Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Nativni pristup k FoxPro 2.5
[*] Josef Obdr��lek <it-boss2(zv)seznam(tec)cz> - 5.9.2002 20:52:09
Zkus se mrknout na
http://www.tdbf.net
tam presne takovy komponenty naleznes - jsou free.
Pepa
----- Original Message -----
From: "Zdenek Brejsa" <prog(zv)hjsoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 05, 2002 12:11 PM
Subject: Nativni pristup k FoxPro 2.5
> Ahoj,
> delam program, ktery ma transformovat data z FoxPro 2.5 do IB, a chtel
bych
> se vyhnout BDE. Vite nekdo o komponente pro pristup k temto tabulkam? Nebo
> je najake jine reseni ?
>
> Prosim zachrante mne :-)
>
> Predem dekuji
>
> Zdenek Brejsa - programator HJ-SOFT s.r.o.
> Hradebni 3
> 56301 Lan�kroun
> Tel: 511096, 522889, 524795
> Mob: 0602592948, 0603833124
> ICQ: 47636291
>
>
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] Josef Obdr��lek <it-boss2(zv)seznam(tec)cz> - 5.9.2002 20:57:10
No prave, proto jsem se na to ptal. V datashitu pro D5 jasne pisou, ze
komponenty pro ADO jsou pouze az v Ent. verzi, kdezto tamtez pro D6 Proff.
pisou pouze toto:
DbGo for ADO 2.5 direct access to any ADO-compliant dataset, from office
applications to RDBMS
... co to znamena DbGo for ADO 2.5, ze by nejaka zmena??
Muzete poradit nebo prelozit, tak aby tomu rozumel i nouma jako ja??
Diky, Pepa
----- Original Message -----
From: "Pavel Mattivi" <pmattivi(zv)dezadata(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 05, 2002 12:25 PM
Subject: Re: Jsou komponenty pro ADO dostupne i ve verzi D6 Professional?> ANO jsou, nevim jestli vsechny, to at napise nekdo kdo to zna presne..
> ciao
>
>
> ----- Original Message -----
> From: "Josef Obdr��lek" <it-boss2(zv)seznam(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, September 05, 2002 11:29 AM
> Subject: Jsou komponenty pro ADO dostupne i ve verzi D6 Professional?
>
> > Diky, Pepa
> >
> >
> > (Budu se ptat tak dlouho, dokud mi nekdo neodpovi :-)))))
> >
> > ______________________________________________________________________
> > Reklama:
> > Seznam Prace - Hledate praci nebo menite zamestnani?
> http://prace.seznam(tec)cz
>
>
tcolor
[*] <pavel.sl(zv)centrum(tec)cz> - 05.9.2002 21:15:04
Zdravim,
nevim si s necim rady.
V promene mam nazev barvy,
treba
barva:=red;
a chci priradit do label1.font.color.
Vse jsem provadel:
label1.font.color:=tcolor('cl'+barva);
Kompilator to sice veme, ale vysledna barva textu je vselijaka.
Nevite, co s tim.
Diky
Pavel
--------------------
ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz
tcolor
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 5.9.2002 21:35:29
Takhle se to v zadnem pripade delat nemuze. Slovo 'clred' se nejak zahadne
pretypuje na TColor a Windows z toho nejakou barvu udelaji, ale s konstantou
clRed to nema nic spolecneho. Pokud bys chtel opravdu delat barvu z nazvu,
tak treba pres vyctovy typ, napr.
type TMojeBarvy = (mbRed, mbBlue, ...)
a pak nekde psat
var MojeBarvy: TMojeBarvy;
...
MojeBarvy:= mbRed;// a podobne
...
case MojeBarvy of
mbRed: begin
label1.font.color:= clRed;
....
end;
...
end;
nebo nejak podobne, to zalezi na podminkach. Ale v zadnem pripade tak, jak
to bylo popsane.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: tcolor
>
> nevim si s necim rady.
> V promene mam nazev barvy,
> treba
>
> barva:=red;
>
> a chci priradit do label1.font.color.
>
> Vse jsem provadel:
>
> label1.font.color:=tcolor('cl'+barva);
>
>
> Kompilator to sice veme, ale vysledna barva textu je vselijaka.
Try..except
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 21:40:38
From: "Daniel Frantik" <frantik(zv)telpro(tec)cz>
> Kde jsou? Nejak je nemuzu najit :-(
> Samozejme jsem je hledal, ale nenasel.
Delphi 6+
Petr Vones
tcolor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 21:57:37
From: <pavel.sl(zv)centrum(tec)cz>
> a chci priradit do label1.font.color.
>
> Vse jsem provadel:
>
> label1.font.color:=tcolor('cl'+barva);
Label1.Font.Color := clBlack;
Petr Vones
ADO a alter v databazi
[*] Josef Obdr��lek <it-boss2(zv)seznam(tec)cz> - 5.9.2002 22:04:31
Potreboval bych trochu nakopnout - jak pres ADO komponenty provest zmenu ve
strukture MDB databazi - neco na zpusob ALTER TABLE...
Staci aspon odkaz na web nebo nekam....
Diky.
Pepa
FastReport 2.6 vs. Xerox Docuprint P8e
[*] Roland Turcan <rolo(zv)sedas.sk> - 5.9.2002 22:07:51
Hello Delphi CZ konferencia!
Mate niekto skusenosti so %subj%. Lebo pri tlaci si robi s diakritikou
co chce. Raz vytlaci spravne inde to po..re. Ta ista zostava na HP
DJ690 ide OK.
?
Windows Xp CZ Pro, driver pre Xerox je dodany vo Windows.
--
Best regards, TRoland
tcolor
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 5.9.2002 22:28:57
> V promene mam nazev barvy,
> barva:=red;
???
> a chci priradit do label1.font.color.
> label1.font.color:=tcolor('cl'+barva);
> Kompilator to sice veme, ale vysledna barva textu je vselijaka.
To si pretypoval dva absolutne ruzne typy.
Jestli chces prevadet text na barvu, tak se koukni na funkci
function StringToColor(const S: string): TColor;
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Try..except
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 22:41:53
From: "Daniel Rott" <roxton(zv)seznam(tec)cz>
> V SysUtils take existuji uzitecne funkce
> function TryStrToInt(const S: string; out Value: Integer): Boolean;
> function TryStrToFloat(const S: string; out Value: Extended): Boolean;
> ... a dalsi
> kupodivu vsak o nich nejsou zmineny v helpu
Ale jsou, akorat to chce mit updatovany help:
http://info.borland.com/techpubs/delphi/
Petr Vones
Try..except - nov� dotaz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 23:07:24
From: "bardon" <bardon(zv)akord-soft(tec)cz>
> Existuje neco podobneho pro datum, datumcas, float... ? Hledal jsem v helpu
> a nenasel jsem ani konvezi, ktera by neprodukovala exception (jsou tam jen
> StrToDate, StrToDateTime, StrToFloat ... a ty vsechny produkuji exception,
Viz predchozi odpovedi.
Petr Vones
Ovlivneni caption child okna v MDI aplikaci pri ma
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 23:48:21
From: "Ing. Igor Vodi�ka" <vodicka(zv)sagit(tec)cz>
> Mam MDI aplikaci. Standartne pri maximalizaci child okna se obsah caption
> child okna prida ke caption hlavniho okna a titulkovy pruh child okna zmizi.
> Lze nejak jednoduse udelat, aby pri maximalizaci child okna se okno roztahlo
> do maximalne mozne velikosti a soucasne zustal viditelny pruh zahlavi okna s
> caption?
Tezko. Tohle asi neni to co by jsi presne chtel:
procedure TMDIChild.WMSysCommand(var Message: TWMSysCommand);
var
R: TRect;
begin
if Message.CmdType and $FFF0 = SC_MAXIMIZE then
begin
if Windows.GetClientRect(Application.MainForm.ClientHandle, R) then
BoundsRect := R;
end
else
inherited;
end;
Petr Vones
ADO a alter v databazi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 6.9.2002 00:30:34
> Potreboval bych trochu nakopnout - jak pres ADO komponenty provest zmenu
ve
> strukture MDB databazi - neco na zpusob ALTER TABLE...
pozri ADOX, napr. nasu Adonis FAQ stranku na
http://www.winsoft.sk/adofaq.htm
Erik
FastReport 2.6 vs. Xerox Docuprint P8e
[*] Lauko Stefan <laukosw(zv)naex.sk> - 6.9.2002 07:05:06
Ahoj,
vo vlastnostiach tlaciarne nastav aby tlaciaren nepouzivala vlastne fonty.
Lauko
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Mate niekto skusenosti so %subj%. Lebo pri tlaci si robi s diakritikou
> co chce. Raz vytlaci spravne inde to po..re. Ta ista zostava na HP
> DJ690 ide OK.
> Windows Xp CZ Pro, driver pre Xerox je dodany vo Windows.
dbf
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 6.9.2002 07:23:56
>potrebujem vyvorit dbf tabulku z kodu s polom
>
>N 12.2
>a
>N 10
>
>toto nefunguje:
> with TblDBF.FieldDefs.AddFieldDef do
> begin
> Name:='CIASTKA';
> DataType:=ftFloat;
> //Size:=2;
> //Precision:=2;
> Required:=False;
> end;
Nemelo by tam byt Size:=14, Precision:=2; ?
Roman
==============================
http://kouzelne.misto(tec)cz
Prevod komponent do D7
[*] Miroslav Ondrisek <ondrisek(zv)seznam(tec)cz> - 6.9.2002 07:36:41
Nebo mas v tom kompilovanem balicku v sekci required RTL60. Vyhod ji a dej
tam misto ni RtL70
Mira
> -----Original Message-----
> kdyz dam instalovat komponentu tak se objevi hlaseni
> Nemuzu nahrat balicek RTL60 protoze obsahuje unitu system, ktery je
> take obsazen v balicku RTL70.
>
> Prohledl jsem snad vsechy soubory a nemohu tuto vec najit. Kompiluji
> to pod D7 je pravda, ze mam nainstalovany take D5 a D6, ale jak mam
> tomu rici, aby to zadny RTL60 nepouzivalo.
>
> Diky za
>
>
>
OLE Excel a formatovani
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 6.9.2002 07:41:16
[P��loha v souboru: winmail.dat]
Narodni prostredi lze nakonfigurovat tak, ze i v Cesku muze
byt desetinnym oddelovacem tecka. Neporadil by nekdo zpusob
programoveho zjisteni desetinneho oddelovace?
Ing. Jan Dvorak
Moc dekuji - problem vyresen. Staci zamenit tecku za carku a
uz neni problem. Tedy misto '0.00' zadat '0,00' a je po
problemu.
Sql command pro vyber pomoci AND.
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 06.9.2002 08:13:44
Ahoj,
> On 5 Sep 2002 at 15:13, K�ss, Pavel wrote:
> ty prvni dva selecty jsou zbytecny: staci
*****to samozrejme neni pravda, protoze tazatel chtel, aby se vybraly
rakdy pouze v pripade, ze se tam vyskytuje cena = 100 A SOUCASNE
(nikoliv nebo) cena = 200...
Slavek
> select * from table1
> where ((cena = 100) or (cena = 200))
> and not exists (select * from table1 where cena <> 100 and cena <>
> 200);
> > select distinct *
> > from table1
> > where exists (select * from table1 where cena = 100)
> > and exists (select * from table1 where cena = 200)
> > and not exists (select *
> > from table1
> > where cena <> 100
> > and cena <> 200)
> >
> > Ovsem index nad sloupcem cena velmi doporuceny.
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Sql command pro vyber pomoci AND.
[*] Jan Kr�zek - 6.9.2002 08:18:40
Takze jestli to chapu, tak chces z jedne tabulky dvojici kde jeden datum
je 1.9.2002 a druhy 1.10.2002.
Pak bych volil spojeni teto tabulky sama se sebou:
SELECT * FROM TABLE T1, TABLE T2 WHERE T1.datum = '1.9.2002' AND
T2.datum = '1.10.2002';
Takhle ti to vrati v kazdem radku dvojici, kde prvni ma prvni datum a v
druhe to druhe datum. Ale pozor vrati to vsechny takove dvojice! Pak
zalezi jestli je v te tve tabulce datum jedinecne, nebo mas dalsi
polozku podle ktere poznas, ktere datumy patri k sobe. Pak bys tam
pridal jeste spojeni podle teto polozky.
Urcite by pak slo napsat i dotaz ve smyslu:
SELECT * FROM TABLE T1, TABLE T2 WHERE PlusMesic(T1.datum) = T2.datum;
ktery by ti vratil vsechny dvojice, ktere splnuji tvoji podminku pro
sparovani. To PlusMesic ber s rezervou - mam tim na mysli nejakou funkci
ktera ti k datumu pricte ten mesic (ci co potrebujes), to vsak zalezi na
tve databazi.
Honza +
> -----Original Message-----
> From: David Michal [mailto:david.michal(zv)www-bv.com]
> Sent: Thursday, September 05, 2002 2:21 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Sql command pro vyber pomoci AND.
>
>
> No k necemu dobre to je. :)
> Zde jsem napsal priklad s cenou jelikoz mi to prislo jednodusi nezli
> popisovat skutecnou situaci kterou jsem resil. Ve skutecnosti
> chci takto
> porovnavat datumy. A to u tabulky kde je hodne dulezite zda
> pokud je vyplnen
> napriklad zaznam datum1 = 1.9.2002, tak musi byt v jinem row
> vyplnen zaznam
> datum2 = 1.10.2002. Takze proto jsem resil jak vyresit
> operator and mezi
> rows a nemohl jsem pouzit operator or.
> Diky,
> David
Monitorovani toku dat
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 6.9.2002 08:38:19
Zdravim,
mam takovy dotazek. Mame ve firme pevnou linku k internetu a
potrebovali bychom nejakym zpusobem merit kolik ktera stanice ma
prenosu dat do internetu a zpet. Router je Linuxovy pocitac. Da se nejak
z Delphi udelat program, ktery zachyti paket, zjisti zda jde do
internetu tj na urcitou branu a spocte pocet paketu?
Mohl by me nekdo nakopnout spravnym smerem.
Dekuji
S pozdravem,
Martin
TCPIP komunikace s TApdWinSockPort
[*] likeapear <likeapear(zv)centrum(tec)cz> - 6.9.2002 08:38:29
tak mi z TurboPoweru odpovedeli a reseni je jednoduche:
TApdWinSockPort ma defaultne nastavenou public-vlastnost WsTelnet na true a
u Telnetu je #255 uzivan jako Escape, tudiz staci pouze pred otevrenim portu
shodit tuto vlastnost na false a vse funguje jak ma. takze kdyby ste nekdo
narazili na tento problem je tu reseni. no sam jsem neveril tomu, ze mi
nekdo odpovi.
likeapear
----- Original Message -----
From: "likeapear" <likeapear(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 05, 2002 2:07 PM
Subject: Re: TCPIP komunikace s TApdWinSockPort
> no, zda se, ze chyba je u TurboPower tzn. v TApdWinSockPort. Totiz pokud
je
> TApdWinSockPort server (WsType=wsServer) a jako klient je TClientSocket,
> problem nastava take. Zkusim jim tam napsat a uvidime co z nich vypadne...
>
> likeapear
dbExpress + MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 06.9.2002 08:51:07
On 4 Sep 2002 at 8:24, ing. Jan Fiala wrote:
> A ADO neni zrovna takova vrstva mezi databazi a aplikaci ?
> dbExpress by mel byt pripojen primo na API daneho serveru (aspon podle
> tvrzeni Borlandu) Jako idea to neni spatne, jde o to, zda to bude
> pouzitelne
*****ADO ma sva specifika - jak jinak se chces _rozumne_ dostat na MS
SQL Server? ;-) Tedy ADO je nutna vrstva.
Slavek
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
dbExpress + MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 06.9.2002 09:03:41
On 5 Sep 2002 at 13:35, Petr Vones wrote:
> From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> > *****Napr. portaci na jiny OS nez Windows. Existuje sice referencni
> Zajimavy bude Compact Framework na ty ruzne pidipocitace.
****Na prvni pohled to vypada prijeme. Par informaci lze ziskat napr.
na http://msdn.microsoft(tec)cz/seminare/MSDNakce20, v prezentacich z
letosniho TechEdu pripadne tu
http://msdn.microsoft(tec)cz/seminare/200112_PDChighlights/ Nove veci by
pak meli byt receny na letosnim PDC highlights tusim ze v prosinci v
Praze.
> > port, ale v praxi by slo hlavne o Linux. Tam existuji jakesi Open
> > Source pokusy, ale cele to brzdi tusim ze dva patenty MS, ktere
> > nechteji autori onoho Open Source projektu koupit (udajne nemaji
> > penize).
> Rekl bych ze to 'nechteji' bude silnejsi nez ze 'udajne nemaji
> penize'. Koneckoncu je to predevsim jejich problem. Dalsim zajimavym
> cilem by mohl byt MacOS.
*****Zde bych to videl na problem MS, ze to nechce portovat sam.
Linux se bohuzel stava pro male firmy klicovou platformou a to muze
do budoucna MS ohrozit. MacOS je okrajova zalezitost. Ostatne takovy
graficky program v GDI+ na MacOS nemuze byt rychlejsi nez to, co
umoznuji aplikace nyni.
Slavek
> Petr Vones
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
BDE, dbExpress, ADO a ostatni
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 6.9.2002 09:21:12
> Od: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Ahoj,
>
> > Problemem je, ze se musi provest
> > analyza, coz zdrzuje a ze aplikace vznika zdanlive velmi pomalu a
> > potom, najednou, zacne (nebo taky ne) vsechno (nebo aspon skoro
> > vsechno) pracovat.
> *****Opravdovy problem je, kdyz analyza u strednich a velkych
> projektu chybi. Jinak aplikace zacne fungovat cela najedou jen v
> pripadech nektereho modelu vyvoje software (napr. tzv. vodopad).
> Ovsem v pripade iteracniho vyvoje dostavas neustale (napr. jednou
> tydne) dalsi a dalsi fukcnost, coz ma dalsi efekty jako napr. ze
> muzes zacit skolit drive, nez prijde ostra verze apod.
>
> Slavek
>
Psal jsem to v ponekud sarkastickem tonu (sorry), ale podle mych zkusenosti
je pro tri- a vice-urovnovou aplikaci mozno paralelne pracovat
prakticky na vsech vrstvach najednou. Proto jsem psal, ze to zacne
"fungovat"
vsechno skoro "najednou".
My jsme "paralelni" vyvoj realizovali prostrednictvym
predbeznych specifikaci rozhrani vrstev a objektu.
Byly navrzeny property a metody objektu jednotlivych vrstev
a bez toho, ze by byly naprogramovany, se zacaly pouzivat.
Prace jde (z hlediska programatoru) hezky od ruky,
funkcionalita metod se da vesmes snadno nasimulovat a tak si odladit
i slozite chovani, ale stale neni nic co lze predvest uzivateli
(predpokladam,ze ten jiz navrh interface uz schvalil).
Pri prvnim pouziti teto metody nam predani prvniho plne funkciho formulare
k testovani uzivatelum trvalo skoro 3 mesice (vsechny vrstvy byly plne
funkci).
Druhy byl hotov ve stejny den odpoledne. Pak jsme to uz ani memerili.
Moc hezky se odstranuji chyby: malickosti jsou vesmes v interface a cim
vaznejsi chyba tim spise je nekde v nizsich vrstvach a je spolecna pro vice
formularu, rychle se zjisti, ....
Faktem je, ze pokud je nekdo zvykly na odskrtavani "hotovych" vystupu
a chce se radovat jak to pekne hraje s "planem", tak pro nej je tento postup
rovnou
na infakt = "Na vsem se pracuje, vsechno "skoro" funguje a nic poradne".
Pavel
RXLib v D7?
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 6.9.2002 09:34:15
Skusal uz niekto z vas instalovat RxLib do D7?
Ako?
Vdaka
OnResizeColumn v DbGride
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 6.9.2002 10:31:23
Ahoj,
potreboval bych do DbGridu implementovat %subj%. Muzete mi nekdo poradit
jak to co nejjednoduseji udelat? Potrebuji totiz pri zmene sirky jednoho
sloupce ulozit jeho novou sirku.
A.
Re[2]: ISAPI.dll
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 6.9.2002 10:45:55
Hello Jiri,
Tuesday, September 3, 2002, 3:13:59 PM, you wrote:
JL> Nebo me jeste napadlo, v D6 Ent je help soubor "ISAPI programmer's
JL> reference" :-)
Super.. ale ja bohuzel jeste nemam delphi 6 . jaksi jsem si to jeste
noporidil. ale diky za info
Milan
JL> -----Original Message-----
JL> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
JL> Behalf Of Vymazal Milan
JL> Sent: Friday, August 30, 2002 1:24 PM
JL> To: delphi-l(zv)clexpert(tec)cz
JL> Subject: ISAPI.dll
JL> Zdravim
JL> nemate negde negdo nejake "HOW to write ISAPI library in Delphi" ale
JL> nejake pokrocilejsi veci. potrebuji modifikovat i header atd.
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Nativni pristup k FoxPro 2.5
[*] Martin Cajbik <cajbik(zv)sct.sk> - 6.9.2002 10:45:25
ODBC je standartne sucastou Windows (mozno az na Win 95) takze nic netreba
doinstalovat.
A DSN (Alias) nie je nutne vytvarat, konfiguraciu zdroja dat je mozne
nastavit aj priamo v programe.
MarCaNT (marcant(zv)sct.sk)> > ODBCe,
> HMM to asi ne, nemuzu uzivatele nutit, aby se kvuli jednorazove akci ucil
> konfigurovat ODBC a ja taky neminim kvuli tomu jezdit po stovkach
zakazniku
>
> popr. pokud nepotrebujes indexy a nejsou to moc rozsahla data,
> > tak TDbf komponenta.
> mam pocit ze nepodporuje MEMO (cili *.ftp) - nelze pouzit
>
> nenajde se neco jineho
>
> > > Ahoj,
> > > delam program, ktery ma transformovat data z FoxPro 2.5 do IB, a chtel
> bych
> > > se vyhnout BDE. Vite nekdo o komponente pro pristup k temto tabulkam?
> Nebo
> > > je najake jine reseni ?
> >
>
>
TClientDataSet a LoadFromFile
[*] dphi_forum(zv)proces.sk - 6.9.2002 11:09:27
Zdar...
Mam nasledujuci problem:
Ked mam v CDS nejake zaznamy a dam SavetToFile(..., dfXML) a do ineho CDS
dam LoadFromFile tak je to OK.
Ale ked v CDS nie je zaznam a dam SaveToFile, subor sa ulozi a obsahuje len
hlavocku tabulky a v inom CDS dom LoadFromFile tak to
hodi "Mismatch in datapacket".
Da sa to nejako obist alebo len tak ze nebudem subory bez zaznamov
nacitavat ?
Za kazdu odpoved velmi pekne dakujem.
NORO.
Aby som nezabudol
D5Ent, W2000
OT: Upgrade Delphi
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 6.9.2002 11:49:15
Hi,
Resim problem upgradu Delphi. Na strankach Borlandu je u vyssich verzi cena
na vyzadani, coz me docela naprudilo. Nevite nekdo o alternativach k
Borlandimu shopu? Slusovice jeste Delphouny prodavaji (odkaz?)?
Diky
Sroub
Freereport a prazdne pole
[*] bures <bures(zv)ssakhk(tec)cz> - 6.9.2002 12:35:53
Ahoj konference, mam takovy ac maly, tak dulezity problemek. Pouzivam
FreeReport 2.32
a to zpusoben ze vetsinu veci vypocitam az vzorci freereporu v navrhari
napr [INT([dm.Report2_sql."odprac"] / 60 )]
coz fuguje vyborne az do chvile nez pole dm.Report2_sql."odprac" ma hodnotu
NULL v tu chvili report se cely prestane nacitat a pocitat a nahrasi chybu.
Marne se jiz nekolikaty den snazim vypotit v navrhari pominku ktera by si
nejdrive pole zkontrolovala zda-li neni prazdne, ale podle dodaneho helpu
se mi nadari vypotit nic funkcniho, proto se obracim na Vas s prosbou o radu
zda-li nekdo jiz takovyho problem neresil...
Predem dekuji za odpoved Vlada
Umlceni vstupu zvukove karty
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 6.9.2002 12:36:31
Ahoj, pouzil jsem tip 369 z 1000T&T, pro umlceni vstupu Line in jsem pouzil
parametr MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY a na W98 to funguje. Ale na
WinME a W2000 se objevi chyba c. 11, coz by melo znamenat 'invalid parameter
passed'. Je to u radku CheckMMResults(MixerSetControlDetails(Mixer,
(zv)MixerControlDetails, MIXER_SETCONTROLDETAILSF_VALUE)), to je posledni radek
pred 'finally'. Nemate s tim nekdo zkusenost?
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Cesky dodavatel QuickReportu ?
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 6.9.2002 13:17:09
Nevite zda nekdo prodava v Cesku QuickReport ?
Potreboval bych koupit pro firmu par licenci Professional verze.
Pavel
import do IB 5.5
[*] Robert TOTH <toth(zv)lc.vszp.sk> - 6.9.2002 13:41:05
mam BDE paradox. tabulky z kt. chcem exportovat subory do IB 5.5.
V IB 5.5 som vsak nenasiel prikaz typu "load" alebo nieco podobne. Ako sa
daju najjednoduchsie udaje preniest do InterBase tabulky?
s pozdravom
Ing. Robert TOTH
Lucenec
toth(zv)lc.vszp.sk
Problem s Query a PARADOX databaze
[*] skywalker(zv)stonline.sk - 06.9.2002 14:15:58
Zdravim konfero,
potrebuju pomoct s TQuery, protoze nemuzu prijit na to, kde je v nasledujicim kodu chyba, nebo co mu vlastne vadi.
Opis situace:
Mam databazy ve ktere potrebuju spocitavat hodnoty podle urciteho parametru. Tenhle kod spadne pri krokovani za
radkem "Data.QPlany.SQL.Add('SELECT SUM(PN) AS pnhod');" s hlaskou: Project raised exception class EDBEngineError with message 'Invalid use of keyword.
Token: SELECT
Line Number 3'.
Otazka ? Proc, kdyz 10 radku pred tim to sbehlo bez problemu, akorat se tam nedelal SUM, ale pouze SELECT * FROM.
Query samotne je pouzivano ve stylu "clear-napln-open-zavri". Skuste mi nekdo poradit, v cem je problem, protoze mne
porad nesvitlo, mozna je v to uplna hloupost, jako v 99% vsech podobnejch pripadu. Pole PN existuje a je typu NUMBER,
parameter 'id' je naplnen jako String, protoze i pole KARTA je String.
--- text ---
try
try
Data.QPlany.SQL.Clear;
Data.QPlany.SQL.Add('SELECT SUM(PN) AS pnhod');
Data.QPlany.SQL.Add('FROM plany.db'); <--- misto kde to pri krokovani spadne s Exception
Data.QPlany.SQL.Add('WHERE KARTA=:id');
Data.QPlany.ParamByName('id').AsString:=id;
Data.QPlany.Open;
/// dalsi kod
/// ---
except
raise Exception.Create('Chyba pri spracovani dat');
end;
finally
Data.QPlany.Close;
end;
--- text ---
IB/FB SP nevraci vysledek?
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 6.9.2002 14:23:47
Ahoj,
D6P, Win2000, FB 1
mam SP, ktera hromadne updatuje hodnotu jednoho pole
SET TERM !! ;
/* procedura zmeni hodnotu DEL 'posle do archivu' nebo
'z archivu' vsechny pripady
N/P starsi nez zadane datum
a vrati pocet takto 'presunutych'
*/
CREATE PROCEDURE PRIPADY_TO_ARCHIV (
U_NP SMALLINT,
U_DT_VZNIKU DATE,
U_DEL SMALLINT,
U_NEWDEL SMALLINT,
U_LAST_USER CHAR(4))
RETURNS (POCET INTEGER)
AS
DECLARE VARIABLE S_ID INTEGER;
BEGIN
POCET = 0;
BEGIN
FOR SELECT ID FROM PRIPADY
WHERE (NP = :U_NP) AND (DEL = :U_DEL) AND (DT_VZNIKU < :U_DT_VZNIKU)
INTO :S_ID
DO
BEGIN
UPDATE PRIPADY
SET DEL = :U_NEWDEL, LAST_USER = :U_LAST_USER,
LAST_UPDATE = 'NOW'
WHERE ID = :S_ID;
END
POCET = POCET +1;
SUSPEND;
END
END !!
SET TERM ; !!
COMMIT;
zda se, ze vse funguje OK, ale nejak mi (asi) nevraci POCET nebo jej nedokazu
odchytit.
Na klientovi je toto:
...
with IBStoredProc.Params.CreateParam(ftString, 'LAST_USER',ptInput) do
AsString := xxx;
IBStoredProc.Prepare;
IBStoredProc.ExecProc;
Pocet := IBStoredProc.Params.CreateParam(ftInteger, 'POCET',ptOutput).AsInteger;
// POCET je porad 0, i kdyz update se provede na x zaznamech
IBTransaction1.CommitRetaining;
MessageDlg(Format(rsM_NumberPripaduMoved, [Pocet]), mtInformation, [mbYes],0)
Muze mi, prosim nekdo poradit, kde delam chybu ?
Dekuji a preji hezky den,
Jarek Uher
Problem s balicky obsahujici unit ZLIB
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 6.9.2002 14:48:23
Zdravim,
v Delphi 5 prof. mam nainstalovany balicek, ktery pouziva unit ZLIB.DCU a
ZLIBCONST.DCU. Nyni jsem se pokousel nainstalovat jiny balicek, ktery take
pouziva ZLIB. Delphi mi nahlasilo chybu:
Can't load package "package1.bpl".
Cannot load package 'package1'. It contains unit 'zlib'; which is also
contained in package 'package2'.
Potrebuji mit nainstalovane oba balicky. Zatim mohu mit jen jeden...
Diky za odpoved.
Martin Pavera
Try..except
[*] bardon <bardon(zv)akord-soft(tec)cz> - 6.9.2002 14:57:33
Obavam se, ze v D5 nic takoveho neni. Nebo se mylim?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
StrToFloatDef
StrToDateDef
StrToDateTimeDef
StrToTimeDef
Try..except
[*] bardon <bardon(zv)akord-soft(tec)cz> - 6.9.2002 14:59:40
V D5 nejsou :-(
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Daniel Rott
V SysUtils take existuji uzitecne funkce
function TryStrToInt(const S: string; out Value: Integer): Boolean;
function TryStrToFloat(const S: string; out Value: Extended): Boolean;
... a dalsi
kupodivu vsak o nich nejsou zmineny v helpu
Problemy s TShellTreeView
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 6.9.2002 16:47:51
Mam v programe objekt typu TShellTreeView a TButton. Po kliknuti na Button
sa zavola Close a program sa zavrie. No pokial sa v TShellTreeView zmeni
cesta, tak po kliknuti Button nastane chyba "Access violation at adress
004034CC in modu......"
Co s tym?
Vdaka za kazdu radu.Integer na DateTime v minutach.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 6.9.2002 17:04:03
Zdravim,
Potrebuji delat nejake vypocty s casem. Jednu hodnotu mam integer a s tou
bych chtel pocitat jako s minutami. Nevite nekdo jak na to? Napr. pokud budu
mit cas time := 16:30 a i := 30,
Jak muzu udelat time := time - i, abych dostal time = 16:00 ?
Diky za cas,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.385 / Virus Database: 217 - Release Date: 04/09/2002
BDE a kolize s ostatnimi aplikacemi
[*] Ing. Marta Perglerov� <marta.perglerova(zv)seznam(tec)cz> - 6.9.2002 22:22:14
Subject: BDE a kolize s ostatnimi aplikacemi
> Dobry den,
> s kolegou resime dilema ohledne pouziti BDE pro nasi firemni aplikaci.
> Mame obavy, zda nasi konfiguraci BDE (nastaveni LANGDRIVER apod.) nemuze
> narusit cizi
> aplikace, ktere take hodlame nasadit. Mne se zda, ze v BDE jsou tyto
> parametry
> nastavovany centralne, a ze tudiz muze k takove nezadouci kolizi (jedna
> aplikace nastavi napr. razeni na ANSI a druha to same prepise na Czech 852
> apod.). Je toto nebezpeci realne nebo se mylim? Rada bych poznala vas
nazor
> na toto tema.
>
> Dekuji
>
> Ing. Marta Perglerova
> ********************************
> * programator - analytik
> * IT Consult, s.r.o.
> * GSM: +42-0602323211
> ********************************
>
button
[*] <pavel.sl(zv)centrum(tec)cz> - 06.9.2002 23:09:27
Zdravim,
jeste mam jeden problem.Dynamicky si vytvorim tlacitko, ale
nevim, jak mu mam priradit metodu, ktera bude zpracovavat udalost
kliknuti na nej.
Mam metodu
procedure tdynbutt.clickbutton(Sender:tobject);
a nevim jak ji priradit.
Diky za radu
Pavel
--------------------
ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz
dbExpress + MSSQL
[*] Erik Salaj <winsoft(zv)stonline.sk> - 6.9.2002 23:56:42
> > > *****Multiplatformni nezavislost je stejne realna jako teply snih.
> > > .NET je mnohem dal, nez cely slavny Borland s dbExpressem, ale i tam
> > > jsou problemy (jak pravni, tak technicke).
> > ake konkretne problemy myslis?
> *****Napr. portaci na jiny OS nez Windows. Existuje sice referencni
> port, ale v praxi by slo hlavne o Linux. Tam existuji jakesi Open
> Source pokusy, ale cele to brzdi tusim ze dva patenty MS, ktere
> nechteji autori onoho Open Source projektu koupit (udajne nemaji
> penize).
myslel som skor na tie technicke problemy.
Erik
dbf
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 7.9.2002 10:39:41
Hlas, <mailto:hlas(zv)inmail.sk> napsal:
> potrebujem vyvorit dbf tabulku z kodu s polom
> N 12.2
Pouzij ftCurrency, to ma dostatecnou presnost. Pro zobrazeni a editaci
pak pouzij TMaskEdit, nebo neco jineho s maskou na 2 desetinna mista.
> N 10
Tady pouzij ftInteger, pripadne ftLargeInt, podle potrebne velikosti
ukladanych cisel.
> toto nefunguje:
> with TblDBF.FieldDefs.AddFieldDef do
> begin
> Name:='CIASTKA';
> DataType:=ftFloat;
> //Size:=2;
> //Precision:=2;
> Required:=False;
> end;
Zapomen na Precision a Size u ftFloat.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
WXP, D5Ent/UP1
Hledani souboru
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 7.9.2002 12:59:55
Na http://delphi.about.com/library/weekly/aa052300a.htm jsem nasel
komponentu pro hledani souboru s mnoha funkcemi.
Hledani souboru pomoci "FindFirst" jsem realizoval nize uvedenym kodem.
Obe moznosti jsem otestoval na Delphi 5 + WIN95,98,2000,Me a XP - funguji
bez problemu
Treba to pomuze i dalsimu nestastnikovi.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
procedure Najdi(mask:string);
var
search:TSearchRec;
verz:string;
such:string;
begin
such:=ExtractFileName(mask);
verz:=ExtractFilePath(mask);
if verz[length(verz)]<>'\' then verz:=verz+'\';
if FindFirst(mask,$23,search)=0 then
begin
repeat
form1.ListBox1.Items.Add(verz+search.Name);
Application.ProcessMessages;
until FindNext(search)<>0;
end;
if FindFirst(verz+'*.*',fadirectory,search)=0 then
begin
repeat
if ((search.Attr and fadirectory)=fadirectory) and
(search.name[1]<>'.') then
begin
Najdi(verz+search.name+'\'+such);
end;
until FindNext(search) <>0;
FindClose(search);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
adresar:string;
maska:string;
begin
screen.Cursor:=crHourGlass;
listbox1.Items.Clear;
adresar:=edit1.Text;
maska:=edit2.Text;
if adresar[length(adresar)]<>'\' then adresar:=adresar+'\';
Najdi(adresar+maska);
screen.Cursor:=crDefault;
end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.385 / Virov� b�ze: 217 - datum vyd�n�: 4.9.2002
dbExpress + MSSQL
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.9.2002 21:39:53
6.9.2002 Slavek Rydval:
> On 4 Sep 2002 at 8:24, ing. Jan Fiala wrote:
>> A ADO neni zrovna takova vrstva mezi databazi a aplikaci ?
>> dbExpress by mel byt pripojen primo na API daneho serveru (aspon podle
>> tvrzeni Borlandu) Jako idea to neni spatne, jde o to, zda to bude
>> pouzitelne
> *****ADO ma sva specifika - jak jinak se chces _rozumne_ dostat na MS
> SQL Server? ;-) Tedy ADO je nutna vrstva.
Ado neni nutna vrstva. Je to vrstva nad OleDB, pouze zlidstuje pristup
k MSSQL a standardizuje jej se spoustou dalsich formatu.
Mam predstavu, ze dbExpres je zrovna takova vrstva nad OleDB,
ovsem je to mnohem mensi moloch.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
TEmbeddedWB - jde zakazat klavesove zkratky?
[*] Delphi <delphi(zv)realm(tec)cz> - 7.9.2002 22:32:13
Zdravicko vsem,
mam skromnej dotaz.. Da se nejak zakazat IE klavesove zkratky pro komponentu
TEmbeddedWB (temer stejne jako TWebbrowser)? Zobrazuju v ni HTML ale nechci
at reaguje na klavesove zkratky ktere ma v sobe vestavene IE (CTRL+F -
hledani, CTRL+P - tisk ... atd, vite ktere myslim ne?).
Predem moc dik za kazdou radu.
Petr
dbExpress + MSSQL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.9.2002 23:13:34
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Mam predstavu, ze dbExpres je zrovna takova vrstva nad OleDB,
> ovsem je to mnohem mensi moloch.
Neni to nahodou takhle ?
Aplikace -> Dataset -> ADO -> OLE DB driver -> databaze
Aplikace -> Dataset -> dbExpress -> dbExpress driver -> OLE DB driver ->
databaze
Nejslabsim clankem je podle me ten dbExpress driver, ADO je totiz pomerne dost
pouzivana technologie, takze se da predpokladat ze tam bude mene chyb. Navic
mam dojem (nevim to presne, nezajimam se o databaze) ze dbExpress jako takovy
neni thread-safe.
Petr Vones
Upgrade Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.9.2002 23:19:47
From: "Otisk Rene" <otisk(zv)misel(tec)cz>
> Resim problem upgradu Delphi. Na strankach Borlandu je u vyssich verzi cena
> na vyzadani, coz me docela naprudilo. Nevite nekdo o alternativach k
> Borlandimu shopu? Slusovice jeste Delphouny prodavaji (odkaz?)?
http://www.zive(tec)cz/H/Uzivatel/Ar.asp?ARI=29098&CAI=2112
Petr Vones
Try..except
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.9.2002 00:04:05
From: "bardon" <bardon(zv)akord-soft(tec)cz>
> Obavam se, ze v D5 nic takoveho neni. Nebo se mylim?
Patrne ne.
Petr Vones
Problem s balicky obsahujici unit ZLIB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.9.2002 00:05:31
From: "Martin Pavera" <martin.pavera(zv)cmail(tec)cz>
> v Delphi 5 prof. mam nainstalovany balicek, ktery pouziva unit ZLIB.DCU a
> ZLIBCONST.DCU. Nyni jsem se pokousel nainstalovat jiny balicek, ktery take
> pouziva ZLIB. Delphi mi nahlasilo chybu:
Kazdy unit muze byt *pouze* v jednom balicku (neni-li WEAKPACKAGE). Takze
musis mit ten ZLIB v nejakem spolecnem balicku ktery budou ty tvoje pouzivat.
Petr Vones
Freereport a prazdne pole
[*] miro mrazik <preas_w(zv)stonline.sk> - 8.9.2002 00:17:48
Ahoj,
urob to tak, ze do zostavy pridaj premennu.
Potom v udalosti ReportGetValue
mozes pouzit prislusnu podmienkunapr.
If Parname = 'TvojePremenna' Then
If TableFIELDNieco.IsNull Then
ParValue:=''
else
ParValue:=TvojVypocet;
Miro
----- Original Message -----
From: "bures" <bures(zv)ssakhk(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, September 06, 2002 12:35 PM
Subject: Freereport a prazdne pole
> Ahoj konference, mam takovy ac maly, tak dulezity problemek. Pouzivam
> FreeReport 2.32
> a to zpusoben ze vetsinu veci vypocitam az vzorci freereporu v navrhari
>
> napr [INT([dm.Report2_sql."odprac"] / 60 )]
>
> coz fuguje vyborne az do chvile nez pole dm.Report2_sql."odprac" ma
hodnotu
> NULL v tu chvili report se cely prestane nacitat a pocitat a nahrasi
chybu.
> Marne se jiz nekolikaty den snazim vypotit v navrhari pominku ktera by si
> nejdrive pole zkontrolovala zda-li neni prazdne, ale podle dodaneho helpu
> se mi nadari vypotit nic funkcniho, proto se obracim na Vas s prosbou o
radu
> zda-li nekdo jiz takovyho problem neresil...
>
> Predem dekuji za odpoved Vlada
>
BDE a kolize s ostatnimi aplikacemi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.9.2002 02:58:01
From: "Ing. Marta Perglerov�" <marta.perglerova(zv)seznam(tec)cz>
> s kolegou resime dilema ohledne pouziti BDE pro nasi firemni aplikaci.
V zajmu zachovani dusevniho zdravi se pokuste pouziti BDE a Paradoxu uplne
vyhnout (zvlaste v aplikacich kde pristupuje k datum vice uzivatelu).
V dnesni dobe je to jiz prekonana a dale nepodporovana technologie minuleho
desetileti. V praxi bylo totiz casto nemozne nainstalovat vlastni aplikaci
pouzivajici BDE na 'neznamy' pocitac, kde jiz byla jina aplikace taktez s BDE,
bez toho aby ta puvodni prestala pracovat.
Globalni nastaveni parametru LANGDRIVER vsak melo vliv pouze na nove vytvarene
tabulky v dane aplikaci, informace o language byla jinak ulozena v kazde
tabulce zvlast.
Petr Vones
Cesky dodavatel QuickReportu ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.9.2002 03:06:29
From: "Lstiburek Pavel" <Lstiburek(zv)ceb(tec)cz>
> Nevite zda nekdo prodava v Cesku QuickReport ?
http://www.google.com/search?as_q=QuickReport+Professional&as_sitesearch=(tec)cz
Petr Vones
dbExpress + MSSQL
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.9.2002 06:21:23
7.9.2002 Petr Vones:
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>> Mam predstavu, ze dbExpres je zrovna takova vrstva nad OleDB,
>> ovsem je to mnohem mensi moloch.
> Neni to nahodou takhle ?
> Aplikace -> Dataset -> ADO -> OLE DB driver -> databaze
> Aplikace -> Dataset -> dbExpress -> dbExpress driver -> OLE DB driver ->
> databaze
> Nejslabsim clankem je podle me ten dbExpress driver, ADO je totiz pomerne dost
> pouzivana technologie, takze se da predpokladat ze tam bude mene chyb. Navic
> mam dojem (nevim to presne, nezajimam se o databaze) ze dbExpress jako takovy
> neni thread-safe.
Sice nevim, proc jsi rozpitvaval dbExpress na 2 casti a ADO ne, ale to
neni dulezite.
dbExpress je ve srovnani s ADO velmi tenky - zadne cachovani, pouze
jednosmerne kurzory atd. To je vec, ktera mi bohate staci, protoze
nepotrebuji nic jineho nez spustit ulozenou proceduru nebo provest
dotaz. Vzhledem k jednoduchosti bych tam tech chyb a neocekavaneho
chovani moc necekal.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Integer na DateTime v minutach.
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 08.9.2002 11:12:01
Ahoj,
> david.michal(zv)www-bv.com 6.9.02 17:04 >>>
>Potrebuji delat nejake vypocty s casem. Jednu hodnotu mam integer a s tou
>bych chtel pocitat jako s minutami. Nevite nekdo jak na to? Napr. pokud budu
>mit cas time := 16:30 a i := 30,
>Jak muzu udelat time := time - i, abych dostal time = 16:00 ?
var cas:TDateTime;
MinusMinuty:integer;
cas := Time();
MinusMinuty := 30;
ShowMessage(FormatDateTime('hh:mm', cas));
cas := cas - MinusMinuty / (60 * 24);
ShowMessage(FormatDateTime('hh:mm', cas));
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
import do IB 5.5
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.9.2002 12:07:30
Haj hou!
On 6 Sep 2002 at 13:41, Robert TOTH wrote:
> mam BDE paradox. tabulky z kt. chcem exportovat subory do IB 5.5.
> V IB 5.5 som vsak nenasiel prikaz typu "load" alebo nieco podobne. Ako sa
> daju najjednoduchsie udaje preniest do InterBase tabulky?
DataPump z Delphi nebo IBDataPump ci jiny podobny nastroj - k dohledani na
webu IBPhoenixu.
S pozdravem
Pavel Cisar
http://www.ibphoenix.com
For all your upto date Firebird and
InterBase information
Jak udelam z 1006787844 cas a datum ?
[*] wEnC <wenc(zv)seznam(tec)cz> - 8.9.2002 13:06:12
Mam tabulku v MySQL a casove zaznamy tam jsou ukladany z PHP jako cislo,
napr. 1006787844.
A potreboval bych to nejak sikovne prevest do dbGrid tabulky v delphi.
Na jine upravy pouzivam toto
TIntegerField(Query.fieldbyname('cena')).DisplayFormat:='# ### Kc';
Ale jak prevest to cislo oznacujici pocet sekund od (xx.xx.1970 tusim) na
rozumnej format "hh:mm:ss DD/MM/YY"
V Delphi teprve za��n�m, ale urcite na to existuje nejaky sikovny parametr.
Diky za pomoc.
Tomas
Problem s Query a PARADOX databaze
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.9.2002 13:12:35
> radkem "Data.QPlany.SQL.Add('SELECT SUM(PN) AS pnhod');" s hlaskou:
Padat by to melo ne na tomto radku, ale az pri Open.
Teda mozna je to blbost, ale mas tam nekde ...from...?
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
----------
> Odes�latel: skywalker(zv)stonline.sk
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Problem s Query a PARADOX databaze
> Datum: 6. z��� 2002 14:15
>
> Zdravim konfero,
> potrebuju pomoct s TQuery, protoze nemuzu prijit na to, kde je v nasledujicim kodu chyba, nebo co mu vlastne vadi.
> Opis situace:
> Mam databazy ve ktere potrebuju spocitavat hodnoty podle urciteho parametru. Tenhle kod spadne pri krokovani za
> radkem "Data.QPlany.SQL.Add('SELECT SUM(PN) AS pnhod');" s hlaskou:
>
>
> Project raised exception class EDBEngineError with message 'Invalid use of keyword.
> Token: SELECT
> Line Number 3'.
>
> Otazka ? Proc, kdyz 10 radku pred tim to sbehlo bez problemu, akorat se tam nedelal SUM, ale pouze SELECT * FROM.
> Query samotne je pouzivano ve stylu "clear-napln-open-zavri". Skuste mi nekdo poradit, v cem je problem, protoze mne
> porad nesvitlo, mozna je v to uplna hloupost, jako v 99% vsech podobnejch pripadu. Pole PN existuje a je typu NUMBER,
> parameter 'id' je naplnen jako String, protoze i pole KARTA je String.
>
>
> --- text ---
> try
> try
> Data.QPlany.SQL.Clear;
> Data.QPlany.SQL.Add('SELECT SUM(PN) AS pnhod');
> Data.QPlany.SQL.Add('FROM plany.db'); <--- misto kde to pri krokovani spadne s Exception
> Data.QPlany.SQL.Add('WHERE KARTA=:id');
> Data.QPlany.ParamByName('id').AsString:=id;
> Data.QPlany.Open;
>
> /// dalsi kod
> /// ---
>
> except
> raise Exception.Create('Chyba pri spracovani dat');
> end;
> finally
> Data.QPlany.Close;
> end;
> --- text ---
>
>
OLE Excel a formatovani
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.9.2002 13:17:23
> Narodni prostredi lze nakonfigurovat tak, ze i v Cesku muze
> byt desetinnym oddelovacem tecka. Neporadil by nekdo zpusob
> programoveho zjisteni desetinneho oddelovace?
Pokud vsechno funguje, jak ma, po spusteni programu by mel byt desetinny oddelovac nacten z Windows do promenne DecimalSeparator (myslim unita SysUtils).
Pak se toto nastaveni da samozrejme programove menit.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Integer na DateTime v minutach.
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.9.2002 13:25:07
> Potrebuji delat nejake vypocty s casem. Jednu hodnotu mam integer a s tou
> bych chtel pocitat jako s minutami. Nevite nekdo jak na to? Napr. pokud budu
> mit cas time := 16:30 a i := 30,
> Jak muzu udelat time := time - i, abych dostal time = 16:00 ?
V typu TDateTime je datum a cas ulozen jako
(pocet dni od nejakeho data)+(cas jako pomerna cast dne).
Takze napr. 12:00 je 0.5, 18:00 je 0.75 atd.
Tedy jestli ti rozumin
T,T1: TDateTime;
I: Integer;
T := StrToTime('16:30');
I := 30;
T1 := T - I/(24*60);
TimeToStr(T1)='16:00:00';
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
----------
> Odes�latel: David Michal <david.michal(zv)www-bv.com>
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Integer na DateTime v minutach.
> Datum: 6. z��� 2002 17:04
>
> Zdravim,
> Potrebuji delat nejake vypocty s casem. Jednu hodnotu mam integer a s tou
> bych chtel pocitat jako s minutami. Nevite nekdo jak na to? Napr. pokud budu
> mit cas time := 16:30 a i := 30,
> Jak muzu udelat time := time - i, abych dostal time = 16:00 ?
> Diky za cas,
> David
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.385 / Virus Database: 217 - Release Date: 04/09/2002
import do IB 5.5
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.9.2002 13:30:01
> mam BDE paradox. tabulky z kt. chcem exportovat subory do IB 5.5.
> V IB 5.5 som vsak nenasiel prikaz typu "load" alebo nieco podobne. Ako sa
> daju najjednoduchsie udaje preniest do InterBase tabulky?
Pokud pouzivas BDE, muzes pouzit TBatchMove.
Jinak
while not ParadoxTable.eof do begin
IBTable.Insert;
for i:=0 to IBTable.FieldCount-1 do
IBTable.Fields[i].asString:=ParadoxTable.Fields[i].asString;
IBTable.Post;
ParadoxTable.Next;
end;
Nasly by se dalsi mozne postupy:
parametrizovany prikaz "insert into ..." misto prace s IBTable,
externi tabulky InterBase
...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
----------
> Odes�latel: Robert TOTH <toth(zv)lc.vszp.sk>
> Komu: Delphi-konferencia <delphi-l(zv)clexpert(tec)cz>
> P�edm�t: import do IB 5.5
> Datum: 6. z��� 2002 13:41
>
> mam BDE paradox. tabulky z kt. chcem exportovat subory do IB 5.5.
> V IB 5.5 som vsak nenasiel prikaz typu "load" alebo nieco podobne. Ako sa
> daju najjednoduchsie udaje preniest do InterBase tabulky?
>
> s pozdravom
>
> Ing. Robert TOTH
> Lucenec
>
> toth(zv)lc.vszp.sk
>
>
>
>
IB/FB SP nevraci vysledek?
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.9.2002 13:55:18
Ja teda nevim, ale jsou mi tam divne tri veci:
1.
Ten SUSPEND je tam podle me zbytecny.
Pokud je mi znamo, tak SUSPEND se pouziva tehdy, kdyz ma procedura vracet tabulku hodnot, na klientovi pak "select * from proc(x,y,z)". Jinak potreba neni.
2.
Pokud dobre koukam, tak ten POCET=POCET+1 neni uvnitr cyklu FOR SELECT, ale az za nim.
3.
Jestlize TIBStoredProc priradim jmeno (a asi prepare), tak by si parametry mela vytvorit sama.
Ja jenom zadam vstupni:
IBStoredProc.Params.ByName(...).asString:=...;
udelam
IBStoredProc.Execute;
a prectu vystupni
....:=IBStoredProc.Params.ByName(...).asInteger;
Pisu to z hlavy, takze je to mozna malinko jinak.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
----------
> Odes�latel: Jaroslav Uher <moravia(zv)mbox.vol(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: IB/FB SP nevraci vysledek?
> Datum: 6. z��� 2002 14:23
>
> Ahoj,
>
> D6P, Win2000, FB 1
> mam SP, ktera hromadne updatuje hodnotu jednoho pole
>
> SET TERM !! ;
>
> /* procedura zmeni hodnotu DEL 'posle do archivu' nebo
> 'z archivu' vsechny pripady
> N/P starsi nez zadane datum
> a vrati pocet takto 'presunutych'
> */
>
> CREATE PROCEDURE PRIPADY_TO_ARCHIV (
> U_NP SMALLINT,
> U_DT_VZNIKU DATE,
> U_DEL SMALLINT,
> U_NEWDEL SMALLINT,
> U_LAST_USER CHAR(4))
> RETURNS (POCET INTEGER)
> AS
> DECLARE VARIABLE S_ID INTEGER;
> BEGIN
> POCET = 0;
> BEGIN
> FOR SELECT ID FROM PRIPADY
> WHERE (NP = :U_NP) AND (DEL = :U_DEL) AND (DT_VZNIKU < :U_DT_VZNIKU)
> INTO :S_ID
> DO
> BEGIN
> UPDATE PRIPADY
> SET DEL = :U_NEWDEL, LAST_USER = :U_LAST_USER,
> LAST_UPDATE = 'NOW'
> WHERE ID = :S_ID;
> END
> POCET = POCET +1;
> SUSPEND;
> END
> END !!
> SET TERM ; !!
>
> COMMIT;
>
> zda se, ze vse funguje OK, ale nejak mi (asi) nevraci POCET nebo jej nedokazu
> odchytit.
> Na klientovi je toto:
>
> ...
> with IBStoredProc.Params.CreateParam(ftString, 'LAST_USER',ptInput) do
> AsString := xxx;
>
> IBStoredProc.Prepare;
> IBStoredProc.ExecProc;
>
> Pocet := IBStoredProc.Params.CreateParam(ftInteger, 'POCET',ptOutput).AsInteger;
> // POCET je porad 0, i kdyz update se provede na x zaznamech
>
> IBTransaction1.CommitRetaining;
>
> MessageDlg(Format(rsM_NumberPripaduMoved, [Pocet]), mtInformation, [mbYes],0)
>
>
> Muze mi, prosim nekdo poradit, kde delam chybu ?
>
> Dekuji a preji hezky den,
>
> Jarek Uher
dbExpress + MSSQL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.9.2002 13:58:03
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Sice nevim, proc jsi rozpitvaval dbExpress na 2 casti a ADO ne, ale to
> neni dulezite.
Protoze ADO nema samo o sobe zadny dalsi specificky driver pro databazi.
> dotaz. Vzhledem k jednoduchosti bych tam tech chyb a neocekavaneho
S jednoduchosti chyby moc nesouvisi, ten interface je sice jednoduchy, ale ty
cca 100k drivery naznacuji ze tam asi nejaky kod (a tedy i chyby) jeste bude.
Petr Vones
button
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.9.2002 14:06:45
Pokud ti rozumim, tak by to melo jit jednoduse takto:
T:=TButton.Create(self)
T.Left:=..., T.Top:=...
...
T.OnClick:=clickbutton;
Jenze procedura "clickbutton" byva zpravidla metoda formulare (delegacni architektura).
Principialne by ale nemelo vadit, kdyz to bude jakakoli metoda objektu s prislusnymi parametry. Objekt musi samozrejme existovat.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
----------
> Odes�latel: pavel.sl(zv)centrum(tec)cz
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: button
> Datum: 6. z��� 2002 23:09
>
> Zdravim,
> jeste mam jeden problem.Dynamicky si vytvorim tlacitko, ale
> nevim, jak mu mam priradit metodu, ktera bude zpracovavat udalost
> kliknuti na nej.
> Mam metodu
> procedure tdynbutt.clickbutton(Sender:tobject);
>
> a nevim jak ji priradit.
> Diky za radu
> Pavel
>
> --------------------
> ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz
>
>
>
BDE a kolize s ostatnimi aplikacemi
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 8.9.2002 14:15:47
Predevsim souhlasim s Petrem Vonesem,
jehoz odpoved uz konferenci prosla.
Pokud se ale bez BDE neobejdes, pak nekolik tipu:
Nespolehat se na globalni nastaveni BDE.
Vsechno lze udelat interne uvnitr aplikace:
Nastaven� konfigurace driveru (BDEAdministrator, str�nka Drivers)
Session.DeleteDriver, Session.AddDriver, Session.ModifyDriver, ...
Nastaven� konfigurace aliasu (BDEAdministrator, str�nka Databases)
Pou�it� aliasu bych se v�bec vyh�bal.
Alias mi nahrad� komponenta TDatabase tak, �e (stejn� jako u aliasu) nastav�m property DriverName a Params.
Viz t� Session.GetAliasParams.
V obou p��padech (nastaven� driveru a aliasu) jde o "lok�ln�" nastaven� v r�mci aplikace, nikoli o "glob�ln�" nastaven� v r�mci BDE.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
----------
> Odes�latel: Ing. Marta Perglerov� <marta.perglerova(zv)seznam(tec)cz>
> Komu: Konference DELPHI <delphi-l(zv)clexpert(tec)cz>; Delphi konference <delphi-l(zv)fwd(tec)cz>
> P�edm�t: BDE a kolize s ostatnimi aplikacemi
> Datum: 6. z��� 2002 22:22
>
>
> Subject: BDE a kolize s ostatnimi aplikacemi
>
>
> > Dobry den,
> > s kolegou resime dilema ohledne pouziti BDE pro nasi firemni aplikaci.
> > Mame obavy, zda nasi konfiguraci BDE (nastaveni LANGDRIVER apod.) nemuze
> > narusit cizi
> > aplikace, ktere take hodlame nasadit. Mne se zda, ze v BDE jsou tyto
> > parametry
> > nastavovany centralne, a ze tudiz muze k takove nezadouci kolizi (jedna
> > aplikace nastavi napr. razeni na ANSI a druha to same prepise na Czech 852
> > apod.). Je toto nebezpeci realne nebo se mylim? Rada bych poznala vas
> nazor
> > na toto tema.
> >
> > Dekuji
> >
> > Ing. Marta Perglerova
> > ********************************
> > * programator - analytik
> > * IT Consult, s.r.o.
> > * GSM: +42-0602323211
> > ********************************
> >
zavreni formulare v udalosti OnActivate
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 8.9.2002 17:26:42
Ahoj,
potrebuji drobnou pomoc: Mam formular pro zobrazeni aktualniho stavu
operace(progress bar), ktery chci hned po ukonceni operace zavrit.
Danou operaci spoustim v udalosti OnActivate tohoto formulare. Ovsem
logicky nemuzu zavolat v udalosti OnActivate metodu Form.Close. Nevim
jak to ihned po dokonceni OnActivate zavolat.
Dik
Mira
zavreni formulare v udalosti OnActivate
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.9.2002 17:42:10
<<< 8. 9. 2002 17:41 - Miroslav Dolecek "dolecek(zv)informatics.muni(tec)cz" >>>
MD> Danou operaci spoustim v udalosti OnActivate tohoto formulare. Ovsem
MD> logicky nemuzu zavolat v udalosti OnActivate metodu Form.Close. Nevim
MD> jak to ihned po dokonceni OnActivate zavolat.
Skus toto:
PostMessage(Handle, WM_CLOSE, 0, 0);
--
Best regards, TRoland
Problemy s TShellTreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.9.2002 18:28:45
From: "Martin Kasman" <martinkasman(zv)centrum.sk>
> sa zavola Close a program sa zavrie. No pokial sa v TShellTreeView zmeni
> cesta, tak po kliknuti Button nastane chyba "Access violation at adress
> 004034CC in modu......"
V jake verzi Delphi a na jakem OS ?
Petr Vones
button
[*] Roman Newman <r.newman(zv)zmail.sk> - 8.9.2002 19:26:34
> Zdravim,
> jeste mam jeden problem.Dynamicky si vytvorim tlacitko, ale
> nevim, jak mu mam priradit metodu, ktera bude zpracovavat udalost
> kliknuti na nej.
Procedura obsluhy stlacenia tlacitka musi byt definovana v triede v ktorej
sa tlacitko dynamicky vytvara. Priklad:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure MyButtonClick(Sender: TObject);
end;
.
.
.
procedure TForm1.FormCreate(Sender: TObject);
Var MyButton:TButton;
begin
MyButton:=TButton.Create(Application);
MyButton.Parent:=Form1;
MyButton.Caption:='Tlacitko';
MyButton.Left:=10;
MyButton.Top:=10;
MyButton.OnClick:=MyButtonClick
end;
procedure TForm1.MyButtonClick(Sender: TObject);
begin
{vlastna procedura}
end;
Roman Newman
BDE a kolize s ostatnimi aplikacemi
[*] Ing. Marta Perglerov� <marta.perglerova(zv)seznam(tec)cz> - 8.9.2002 19:46:22
> > Dobry den,
> > s kolegou resime dilema ohledne pouziti BDE pro nasi firemni aplikaci.
> > Mame obavy, zda nasi konfiguraci BDE (nastaveni LANGDRIVER apod.) nemuze
> > narusit cizi
> > aplikace, ktere take hodlame nasadit. Mne se zda, ze v BDE jsou tyto
> > parametry
> > nastavovany centralne, a ze tudiz muze k takove nezadouci kolizi (jedna
> > aplikace nastavi napr. razeni na ANSI a druha to same prepise na Czech
852
> > apod.). Je toto nebezpeci realne nebo se mylim? Rada bych poznala vas
> nazor
> > na toto tema.
> >
> > Dekuji
> >
> > Ing. Marta Perglerova
> > ********************************
> > * programator - analytik
> > * IT Consult, s.r.o.
> > * GSM: +42-0602323211
> > ********************************
> >
>
Prelozit QRPreview v Delphi6
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 8.9.2002 19:52:45
Chcel by som na tvrdo prelozit QRPreview do slovenciny v Delphi6. V Delphi5
som to robil tak, ze som na tvrdo prepisal qrprev v adesary LIB. Ale pri
preklade v D6 mi to pri kompilacii hlasi [Error] RLINK32: Unsupported 16bit
resource in file "C:\.......
Ako by sa to dalo este prelozit? Nechcem preklad v kazdom projekte osobitne
ale naraz pre cely Delphi.
Vdaka za kazdu radu.
Problemy s TShellTreeView
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 8.9.2002 19:57:13
D6, WinXP
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>> From: "Martin Kasman" <martinkasman(zv)centrum.sk>
> > sa zavola Close a program sa zavrie. No pokial sa v TShellTreeView zmeni
> > cesta, tak po kliknuti Button nastane chyba "Access violation at adress
> > 004034CC in modu......"
>
> V jake verzi Delphi a na jakem OS ?
BDE a mo�n� kolize s jin�mi aplikacemi
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 8.9.2002 20:09:10
MP> Dobry den,
Ahoj,
MP> s kolegou resime dilema ohledne pouziti BDE pro nasi firemni aplikaci.
je opravdu nutne pouzit BDE?
MP> Mame obavy, zda nasi konfiguraci BDE (nastaveni LANGDRIVER apod.) nemuze
MP> narusit cizi
MP> aplikace, ktere take hodlame nasadit. Mne se zda, ze v BDE jsou tyto
MP> parametry
MP> nastavovany centralne, a ze tudiz muze k takove nezadouci kolizi (jedna
MP> aplikace nastavi napr. razeni na ANSI a druha to same prepise na Czech 852
MP> apod.). Je toto nebezpeci realne nebo se mylim? Rada bych poznala vas nazor
MP> na toto tema.
Toto nebezpeci je velmi realne, ale i BDE lze konfigurovat dynamicky
za behu programu. Ale na vasem miste bych se mu opravdu vyhnul a
aplikaci napsal pro Interbase/Firebird s pouzitim IBX (D5+) nebo IBO
(http://www.ibobjects.com). Pokud chcete pouzit souborovou databazi,
tak pouzijte Access a pristupujte na nej pres ADO.
MP> Dekuji
Neni zac :-))
Martin Falta
OLE Excel a formatovani
[*] Mgr. Richard Kotrba <richard.kotrba(zv)lanconsult(tec)cz> - 8.9.2002 21:06:09
[P��loha v souboru: winmail.dat]
Take je mozne zjistit aktualni oddelovac desetinne casti zavolanim promenne
DecimalSeparator
R.K.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
Sent: Friday, September 06, 2002 7:41 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: OLE Excel a formatovani
Narodni prostredi lze nakonfigurovat tak, ze i v Cesku muze byt desetinnym
oddelovacem tecka. Neporadil by nekdo zpusob programoveho zjisteni
desetinneho oddelovace?
Ing. Jan Dvorak
Moc dekuji - problem vyresen. Staci zamenit tecku za carku a uz neni
problem. Tedy misto '0.00' zadat '0,00' a je po problemu.Problemy s vytvorenim nove database pomoci prostre
[*] Petr Va�eka <pvareka(zv)mujmejl(tec)cz> - 8.9.2002 22:17:24
Po otevreni dialogu Create database a vyplnenim udaju
Database:
Username:
Password:
obdrzim zpravu:
" .....
Your name and password are not defined. Ask your database administrator to
set up a Firebird Login."
(Kdyz chci pak okno IBexpertu zavrit krizkem, zepta se mne, zda to myslim
vazne a pak ignoruje me pokusy o jeho uzavreni. Musim ho pak "odstrelit"
pomoci spravce uloh.)
Chtel bych poprosit o radu, jak mam zavest noveho uzivatele (IBAccess ?) a
nastavit mu prist. prava, abych vubec neco mohl pod INTERBASE tvorit.
S pozdravem Petr
Umlceni vstupu zvukove karty
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 8.9.2002 22:50:41
> Ahoj, pouzil jsem tip 369 z 1000T&T, pro umlceni vstupu Line in jsem
> pouzil parametr MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY
> a na W98 to funguje. Ale na WinME a W2000 se objevi chyba c. 11, coz
> by melo znamenat 'invalid parameter passed'. Nemate s tim nekdo zkusenost?
Neznam konkretni kod, ale na podobne chovani jsem narazil, kdyz jsem
omylem nastavil cbDetails na celkovou delku vsech prvku paDetails
(spravne ma byt delka jednoho kazdeho).
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Umlceni vstupu zvukove karty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.9.2002 23:19:01
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> Ahoj, pouzil jsem tip 369 z 1000T&T, pro umlceni vstupu Line in jsem pouzil
> parametr MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY a na W98 to funguje. Ale na
> WinME a W2000 se objevi chyba c. 11, coz by melo znamenat 'invalid parameter
> passed'. Je to u radku CheckMMResults(MixerSetControlDetails(Mixer,
Me vznikne chyba uz v mixerGetLineInfo, patrne neexistuje takovy typ vstupu.
O jaky vstup konkretne ma jit ? Pokud chces umlcet vystup na reproduktory tak
pouzij MIXERLINE_COMPONENTTYPE_DST_SPEAKERS.
Petr Vones
pruhlednost ikon
[*] Petr Wolf <PetrWolf(zv)centrum(tec)cz> - 9.9.2002 01:21:50
Dobry den,
v programu si do ImageListu ukladam ikony patrici k ruznym souborum (ikony
ziskavam za behu aplikace).
Ikony pouzivam v TreeView, kde je vse v poradku, ale v momente kdy chci
ikonu zobrazit na platne nejakeho Image, mam problemy s barvou pozadi ikony.
Ikonu beru z ImageListu metodou GetIcon (zkousel jsem i GetBitmap). Tedy
ImageList.GetBitmap (index, Image.Picture.Bitmap) (nebo ..Icon).
Nic vic, nic min. A ikona ma pak na Image cerne pozadi. Proc?
dekuji
Petr Wolf
preklad dialogu
[*] Petr Wolf <PetrWolf(zv)centrum(tec)cz> - 9.9.2002 01:23:31
Dobry den,
jak nahradit slova "Yes", "No", "Cancel" atd. z MessageDlg a podobnych
jejich ceskymi preklady?
Dekuji
Petr Wolf
GetCpuUsage na W9x / Me aj na NT / W2k / XP
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 9.9.2002 01:30:50
Hello All!
Nemate niekto hotovu funkciu na zistenie okamziteho zatazenia CPU?
Ale aby to chodilo aj na NT, tam som ziadne HKEY_DYN_DATA v registry
nenasiel.
V archive konferencie je sice priklad na GetSystemUpTime podla
HKEY_PERFORMANCE_DATA, ale su tam nejake konstanty pre ten UpTime a neviem,
kde zistit konstantu pre CpuUsage.
Bye
V.Mlich http://www.rar(tec)cz
telef. +420-67-7986163
mobil +420-603-454069
Dallas
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 9.9.2002 05:55:10
Zalezi jak je pripojena ctecka tech cipu. Pravdepodobne mas seriove
pripojeni (COM).
Tak to ti staci mit nejakou komponentu ktera umi cist COM port a tech je na
internetu
dost. Koukni se do archyvu konference tam uz nekdo psal primo odkazy na
jednotlive komponenty.
Libor
> V posledni dobe predelavam jednu aplikaci z dosu pod win98 a mam jeden
> problem, aplikace pracuje s cipy Dallas a ja nevim jak je mam cist pod
> windows. nevite nekdo o nejake komponente ktera by to umela ?
preklad dialogu
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 9.9.2002 05:58:07
Pouzij Application.MessageBox
Libor
> jak nahradit slova "Yes", "No", "Cancel" atd. z MessageDlg a podobnych
> jejich ceskymi preklady?
preklad dialogu
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 9.9.2002 06:13:30
Najdi si unitu Const.pas, zmen jednotlive stringy, zkompiluj a potom najdi
konst.dcu, ketry prepises
Tod vse
Rumcajs
> Dobry den,
>
> jak nahradit slova "Yes", "No", "Cancel" atd. z MessageDlg a podobnych
> jejich ceskymi preklady?
>
> Dekuji
>
> Petr Wolf
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
IB/FB SP nevraci vysledek?
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 9.9.2002 06:56:37
On 6 Sep 2002 at 14:23, Jaroslav Uher wrote:
> IBStoredProc.Prepare;
> IBStoredProc.ExecProc;
> Pocet := IBStoredProc.Params.CreateParam(ftInteger,
> 'POCET',ptOutput).AsInteger;
> // POCET je porad 0, i kdyz update se provede na x zaznamech
Vraceni vysledku procedury do delphi je podivna vec. IBStoredProc
nepouzivam ale kdyz udelate treba pres IBSQL
SELECT POCET from jmeno_procedury
tak tahle procedura vrati radu cisel od 1 do x. Aby delala to co
chcete, je potreba suspend dat az za cykl FOR SELECT. Potom
tento SELECT vrati jediny radek a bude to POCET=x.
Monitorovani toku dat
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.9.2002 08:07:38
Hello Martin,
Friday, September 6, 2002, 8:38:19 AM, you wrote:
MR> Zdravim,
MR> mam takovy dotazek. Mame ve firme pevnou linku k internetu a
MR> potrebovali bychom nejakym zpusobem merit kolik ktera stanice ma
MR> prenosu dat do internetu a zpet. Router je Linuxovy pocitac. Da se nejak
MR> z Delphi udelat program, ktery zachyti paket, zjisti zda jde do
MR> internetu tj na urcitou branu a spocte pocet paketu?
MR> Mohl by me nekdo nakopnout spravnym smerem.
MR> Dekuji
MR> S pozdravem,
MR> Martin
Na linuxy je spousta monitorovaciho softu nebo ne ?
Milan
Kedy "zatuhne" UPDATE na IB servri ?
[*] <belcik(zv)centrum.sk> - 09.9.2002 08:14:59
DB aplikacia, Delphi 5 Prof., IB 6, IBX.
Kod:
...
StartTransaction
UPDATE TABULKA ...
Commit
...
Problem:
Dva tyzdne vsetko OK, zrazu mi horeuvedeny UPDATE zostal visiet
na servri, tym padom mi zatuhol aj program. Nepomohlo nic,
program som musel resetovat (CTRL+F2). Po kazdom takomto
spusteni,zatuhnuti a resetovani sa mi zvysilo "Number of
attachments" na servri. Ked som restartol IB server, tak bolo
zase OK a program normalne prebehol. Transakcia nema nijake
parametre. Okrem tohoto programu bola k IB pripojena len IB
Console. Viac sa mi uz taketo zatuhnutie nepodarilo dosiahnut,
takze nemozem zistit, cim to bolo sposobene. Neviem, ci to bol
DEADLOCK, lebo aj ked som zatvoril IB Console a program zostal
sam pripojeny k servru, tak to nepomohlo a program zostal tuhy.
Otazka:
V akych pripadoch zatuhne UPDATE na IB servri ?
KOnkretne ten kod vyzera takto:
try
IBSQL1.SQL.Clear;
IBSQL1.SQL.Add('UPDATE ... velky update asi 30 poli');
IBTransaction1.StartTransaction;
IBSQL1.ExecQuery;
IBTransaction1.Commit;
Result:=true;
except
on E:Exception do
begin
IBTransaction1.Rollback;
end;
end;
Dakujem za poucenie.
Stano Belcik
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
ansistring&Tfilestream
[*] Martin Kolos <koki(zv)monoceros.physics.muni(tec)cz> - 9.9.2002 08:47:59
ahojte
mam soubory ruznych velikosti (radove 500 B) ve kterych potrebuji upravit
par znaku. Prvni co me napadlo, bylo otevrit soubor pomoci metody
Tfilestream.create a nacist obsah do promenne S typu string
Tfilestream.ready(S,sizeof(soubor))
a zde nastava problem, nebot jak znamo, S odkazuje na adresu v pameti,
tedy je to neco jako ukazatel.
Neni problem najit jine reseni (napr. pokud S bude typu shortstring je
vse bez problemu), nicmene by me zajimalo jestli se da a jak pouzit v
metode ready promenna typu ansistring.
A jeste jednu otazku: Kdy musim pouzit fci setlength pro nastaveni
velikosti promenne typu string, kdyz napriklad bezne pouzivane
S:='aaaaaaaaaa'
funguje i bez pouziti teto funkce (a velikost S odpovida
poctu vlozenych znaku)?
Dallas
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 9.9.2002 08:52:36
Na strankach Dallas Semiconductor lze najit navod na praci s
dotykovymi pametmi (o ty se snad jedna) pomoci serioveho
portu - celkem jednoduchy HW. Pro praci s nimi pod Windows v
Delphi staci pouzit nejakou volne dostupnou komponentu nebo
sadu subrutin pro obsluhu serioveho portu (napr. Synaser), a
naprogramovat to tak, aby to bezelo ve zvlastnim vlakne. Pri
prilozeni chipu to vyvola interrupt, ten se musi zpracovat a
pak muze nastat bezna komunikace.
Snad tento namet pomuze.
Ing. Jan Dvorak
V posledni dobe predelavam jednu aplikaci z dosu pod win98 a
mam jeden
problem, aplikace pracuje s cipy Dallas a ja nevim jak je
mam cist pod
windows. nevite nekdo o nejake komponente ktera by to umela
?
Dekuji Beranek D5
OT: reference na grafiku/design
[*] Lada 'Ray' Lostak <ray(zv)unreal64(tec)net> - 9.9.2002 09:39:12
Zdravim,
omlouvam se za offtopic, ale myslim ze je zde hodne lidi, kteri by mi
mohli pomoci. Navic to neni takovy offtopic, neb se to tyka i produktu v
Delphi :) Vytvarime nadnarodni spolecnost (hardware, software, komunikace) a
potrebujeme grafiku/design, ktera urci celi jeji image. To jest od log
produktu, webu, az po stanek na Cebitu. Hledame poruznu, ale zatim nam nic
nepadlo do oka. Zkusili jsme ruzne firmy i grafiky na volne noze. Kdyz uz se
nam nekdo zamlouval, tak byl pro zmenu nespolehlivy :( Nejde nam o
'jednorazovou' vec, ale o casove delsi a flexibilni spolupraci. Je hodne
tezke najit kvalitniho a spolehliveho grafika/designera ci firmu, proto se
na vas obracim s touto prosbou...
Mezi vami je jiste dost lidi, kteri kdysy resili podobny problem. Mate
tedy nekdo prosim reference na graficke studia, ci grafiky na volne noze ?
Idelane z prahy, ale neni podminkou, pokud nevadi cestovani. Jde nam jak o
pocitacovou grafiku (web, loga, ...) tak o DTP (nastivenkami pocinaje, prez
reklamni predmety a cebitem konce).
Jak jsem jiz psal, preferujeme delsi casovou spolupraci, pripadne
'zamestnani' grafika/grafiku (ZL, HPP, VPP). Po zkusenostech z minula
preferujeme spise jedince, nez firmu.
Odpovedi prosim na soukromi majl :)
Moc diky za reference (kladne i zaporne),
Best regards,
Lada 'Ray' Lostak
Unreal64 Develop group
http://www.unreal64.net
Umlceni vstupu zvukove karty
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 9.9.2002 10:12:42
Ahoj, ma jit o vstup "Line", kam mam pripojene radio. S parametrem
MIXERLINE_COMPONENTTYPE_DST_SPEAKERS to funguje, ale nechci vypinat cely
zvukovy vystup, pouze ten linkovy vstup, aby bezelo napriklad zvukove
upozornovani na prichozi postu apod. Na pocitaci s W2000 ten vstup Line in
stoprocentne existuje.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: Re: Umlceni vstupu zvukove karty
>
> From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> > Ahoj, pouzil jsem tip 369 z 1000T&T, pro umlceni vstupu Line in jsem
pouzil
> > parametr MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY a na W98 to funguje. Ale
na
> > WinME a W2000 se objevi chyba c. 11, coz by melo znamenat 'invalid
parameter
> > passed'. Je to u radku CheckMMResults(MixerSetControlDetails(Mixer,
>
> Me vznikne chyba uz v mixerGetLineInfo, patrne neexistuje takovy typ
vstupu.
> O jaky vstup konkretne ma jit ? Pokud chces umlcet vystup na reproduktory
tak
> pouzij MIXERLINE_COMPONENTTYPE_DST_SPEAKERS.
>
> Petr Vones
nahrada za komponentu DBFinder
[*] Miroslav ��stka - 9.9.2002 10:23:59
Dobr� den,
Narazil jsem na komponentu DBFinder ve verzi 1.81. Bohuzel (jestli se
nemylim) neumi pouzivat vice DataSetu. Nevite o nejake jin� komponente,
kter� by to umela ??? Pripadne nevite zda nevysla novejsi verze nez 1.81
???
Diky za odpoved
Castka Miroslav
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.385 / Virov� b�ze: 217 - datum vyd�n�: 4.9.2002
preklad dialogu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 9.9.2002 10:27:24
> > jak nahradit slova "Yes", "No", "Cancel" atd. z MessageDlg a podobnych
> > jejich ceskymi preklady?
> Pouzij Application.MessageBox
> Libor
MessageBox je fajn, ale m� jednu drobnou nev�hodu.
Pokud v�m, tak neum� "yes to all" a "no to all".
J� jsem to �e�il, mo�n� ne �pln� nej�ist�ji, ale p�esto funk�n�.
(Popis je z hlavy, nev�m zda je to �pln� p�esn�)
Ze zdroj�ku funkce MessageDlg jsem vypreparoval funkci CreateMessageDlg.
D��ve, ne� se p��slu�n� formul�� zobraz� pomoc� ShowModal, ud�l�m n�co jako:
for i:=0 to ControlCount-1 do
if Controls[i] is TButton then
with Controls[i] as TButton do
case ModalResult of
mrYes : Caption:='&Ano';
mrNo : Caption:='&Ne';
.....
end;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Umlceni vstupu zvukove karty
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 9.9.2002 11:03:42
> ale nechci vypinat cely zvukovy vystup, pouze ten linkovy vstup,
> aby bezelo napriklad zvukove upozornovani na prichozi postu
> apod. Na pocitaci s W2000 ten vstup Line in stoprocentne existuje.
Jedna vec je textovy popisek zdroje a neco jineho je
dwComponentType, je v tom casto pekny zmatek.
Prave ty Line zdroje byvaji oznacovany ruzne:
MIXERLINE_COMPONENTTYPE_SRC_LINE
MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY
MIXERLINE_COMPONENTTYPE_SRC_ANALOG
Na nekterych zvukovkach muzes najit treba i tri vstupy
AUX a zadne LINE a ANALOG (typicky SB Audio PCI).
Tahle aplikace Ti muze pomoci zobrazit informace, ktere
o sobe zvukovka dava:
http://www.volny(tec)cz/roxton/sw/MixerInfo.exe (32KB)
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.Mailslot - access denied
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 9.9.2002 11:04:46
Potrebuji posilat textovou zpravu (pouze jednim smerem)
mezi dvema NT sluzbami (na temze pocitaci), ale narazim
na opravneni. Pokud obe sluzby spustim jako bezne
aplikace (na ucet uzivatele), tak vse funguje. Pokud bezi
jako sluzby (na ucet system), tak se nelze k mailslotu pripojit.
Funkce vytvoreni mailslotu probehne uspesne:
MailSlot:=CreateMailSlot('\\.\mailslot\roxton\sluzba',0,0,Nil);
Ale pripojeni z druhe sluzby skonci chybou c.5:
MailSlot:=CreateFile('\\.\mailslot\roxton\sluzba',
GENERIC_WRITE,FILE_SHARE_READ,Nil,
OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
Nemate nekdo tuseni v cem muze byt problem ?
Diky
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Prelozit QRPreview v Delphi6
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 9.9.2002 11:40:59
Ahoj,
On 8 Sep 2002 at 19:52, Martin Kasman wrote:
> Chcel by som na tvrdo prelozit QRPreview do slovenciny v Delphi6. V
> Delphi5 som to robil tak, ze som na tvrdo prepisal qrprev v adesary
> LIB. Ale pri preklade v D6 mi to pri kompilacii hlasi [Error] RLINK32:
> Unsupported 16bit resource in file "C:\.......
>
> Ako by sa to dalo este prelozit? Nechcem preklad v kazdom projekte
> osobitne ale naraz pre cely Delphi.
ja to drive delal podobne.
V knize 1001 T&T pro Delphi mas navod jak zaregistrovat
vlastni Preview,
no a udelat si potom vlastni neni problem a catecne se
'odstrihnes' od QR.
Jarek U.
Z Delphi na web
[*] Roman Toda <toda(zv)digitaldocuments.org> - 9.9.2002 12:10:52
Ahoj,
Mame nejake zdrojaky v Delphi (citanie binarnych suborov, vypocty) ktore
potrebujeme dostat do www server aplikacie (ASP, PHP).
Rozhodli sme sa vyrobit COM ktory sa bude z PHP volat.
Nemame s tymto velke skusenosti (jednoduchy priklad nam chodi :) ), takze by
som uvital, keby mi k tomu dal niekto nejaky komentar.
Je to dobry pristup? Na co dat pozor? Ake su potom problemy s instalaciou,
prevadzkou?
Zamota tu vec fakt, ze ten COM bude "loadovat" jednu dllku?
Dik
Roman
preklad dialogu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.9.2002 12:36:34
> jak nahradit slova "Yes", "No", "Cancel" atd. z MessageDlg a podobnych
> jejich ceskymi preklady?
Tieto slova su natahovane z resourcestringov, takze je mozne pouzit
standardnu Delphi lokalizaciu pomocou resource DLL, ako je to popisane v
helpe.
HTH
TOndrej
if ve vyctu
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 9.9.2002 12:47:42
Ahoj,
rad bych vas poprosil o radu. Mam D5 a Win 2000.
Lze udelat neco podobneho ?
IF promenna IN ['A', 'F'] THEN
Jde mi o ten vycet IN.
Diky.
V.
Jakou DB na standalone aplikaci?
[*] Erik Salaj <winsoft(zv)stonline.sk> - 9.9.2002 12:50:30
> Tak poradte, jakou DB pouzit na standalone aplikaci (se kterou bude vzdy
pracovat jen
> jeden clovek na jednom pocitaci a nikdy jinak) tak, aby se s tim v delphi
delalo stejne
> jednoduse, jako s BDE a paradoxovymi tabulkami (aby se daly pouzit
komponenty jako
> dbgrid, dbedit a ostatni db komponety, s daty pracovat jako pri pouziti
ttable a tquery
> apod.).
>
> Proste co pouzit misto "zastarale a nepodporovane technologie", ale aby mi
zustal
> stejny komfort pri vyvoji aplikace jako pri pouziti BDE. Urcite to ale
nemuze byt reseni s
> lokalnim SQL serverem, musi jit o souborove databaze.
>
> Jo, abych nezapomel, musi to byt pro Delphi 6 Pro
vyskusaj MS Access
Erik
Mailslot - access denied
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 9.9.2002 13:08:08
Zrejme na NT bezi sluzba "Messenger", ktera si mailslot obsadi jako prvni.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Daniel Rott
> Sent: Monday, September 09, 2002 11:05 AM
> To: Delphi Forum
> Subject: Mailslot - access denied
>
>
> Potrebuji posilat textovou zpravu (pouze jednim smerem)
> mezi dvema NT sluzbami (na temze pocitaci), ale narazim
> na opravneni. Pokud obe sluzby spustim jako bezne
> aplikace (na ucet uzivatele), tak vse funguje. Pokud bezi
> jako sluzby (na ucet system), tak se nelze k mailslotu pripojit.
>
> Funkce vytvoreni mailslotu probehne uspesne:
> MailSlot:=CreateMailSlot('\\.\mailslot\roxton\sluzba',0,0,Nil);
>
> Ale pripojeni z druhe sluzby skonci chybou c.5:
> MailSlot:=CreateFile('\\.\mailslot\roxton\sluzba',
> GENERIC_WRITE,FILE_SHARE_READ,Nil,
> OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
>
> Nemate nekdo tuseni v cem muze byt problem ?
>
> Diky
> Daniel
> -------------------------------------------------------
> Scanning complete: NO intelligent life form in range.
>
>
if ve vyctu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 9.9.2002 13:10:24
> IF promenna IN ['A', 'F'] THEN
Ahoj,
odpovidam bez Delphi, ale snad to bude pravda:
1) Takhle, jak jsi to napsal, by to melo fungovat, ale s ohledem na bod 2
2) Pascalske mnoziny mohou pojmout tusim max. 256 prvku, a i typ, z nehoz se
mnozina bere, tusim nesmi pojmout vice hodnot. Z toho plyne, ze mnoziny nad
typem char budou OK, v pripade mnozin cisel nesmi jit o vysoke hodnoty (nad 255).
Viz help o typu SET.
David Lebeda
Problem s Query a PARADOX databaze
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 09.9.2002 13:15:22
----------
> Odes�latel: skywalker(zv)stonline.sk
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Problem s Query a PARADOX databaze
> Datum: 6. z��� 2002 14:15
>
> Zdravim konfero,
> potrebuju pomoct s TQuery, protoze nemuzu prijit na to, kde je v nasledujicim kodu chyba, nebo co mu vlastne vadi.
> Opis situace:
> Mam databazy ve ktere potrebuju spocitavat hodnoty podle urciteho parametru. Tenhle kod spadne pri krokovani za
> radkem "Data.QPlany.SQL.Add('SELECT SUM(PN) AS pnhod');" s hlaskou:
>
>
> Project raised exception class EDBEngineError with message 'Invalid use of keyword.
> Token: SELECT
> Line Number 3'.
>
> Otazka ? Proc, kdyz 10 radku pred tim to sbehlo bez problemu, akorat se tam nedelal SUM, ale pouze SELECT * FROM.
> Query samotne je pouzivano ve stylu "clear-napln-open-zavri". Skuste mi nekdo poradit, v cem je problem, protoze mne
> porad nesvitlo, mozna je v to uplna hloupost, jako v 99% vsech podobnejch pripadu. Pole PN existuje a je typu NUMBER,
> parameter 'id' je naplnen jako String, protoze i pole KARTA je String.
>
>
> --- text ---
> try
> try
> Data.QPlany.SQL.Clear;
> Data.QPlany.SQL.Add('SELECT SUM(PN) AS pnhod');
> Data.QPlany.SQL.Add('FROM plany.db'); <--- misto kde to pri krokovani spadne s Exception
> Data.QPlany.SQL.Add('WHERE KARTA=:id');
> Data.QPlany.ParamByName('id').AsString:=id;
> Data.QPlany.Open;
>
> /// dalsi kod
> /// ---
>
> except
> raise Exception.Create('Chyba pri spracovani dat');
> end;
> finally
> Data.QPlany.Close;
> end;
> --- text ---
>
>
Teda nevim, jestli je to jeste aktualni, ale ...
mel jsem jednou podobne problemy. Vyresil jsem to tak, ze jsem misto ...SQL.add(...) udelal
pomocnou
lokalni promennou, do te jsem si vytvoril cely SQL prikaz a ten jsem ulozil
....SQL.Text:=PomocProm;
Mozna to je jen chyba pri prepisu do mailu, ale mozna to bude ta chybka. Pokud ctu spravne, mela by
tam byt mezera (coz se Ti projevi hlavne pri tvorbe ty pomocny promenny).
Hodne zdaru.
Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam(tec)cz
Formular z D6 na D5
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 9.9.2002 13:15:55
Zdravim,
da se nejak jednoduse prevest formular vytvoreny v D6 a ulozeny jako text prevest na formular do D5?
Kdyz to v D5 otevru, tak mi to hlasi, ze obsahuje nezname properties a nakonec spadne na nacteni streamu (asi diky textovemu formatu formulare).
Petr
Razeni v ListView
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.9.2002 13:35:40
Zdravim
radim jednotlive sloupecky tabulky v Listview pomoci teto funkce.
function CustomSortProc1(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result:=lstrcmp(PChar(TListItem(Item1).Caption),PChar(TListItem(Item2).Caption));
end;
Ale pokud mam napriklad seradit cisla 1..1000 tak mi to udela uplne
tak jak to nechci vysledek je neco v tomto stylu
1
10
11
12
13
...
no to je sice spravne ale pouze pro string. jak to mam redit jako
string ?
dik milan
Form v COM objektu
[*] Tom Beran <assas(zv)bonbon(tec)net> - 9.9.2002 12:43:40
Zdravim vsechny,
mam problem s formama v COMech. Konkretne jde o to, ze mam COM objekt a uvnitr tohoto objektu je form. V clientske aplikaci pouzivam tenhle objekt a jeho form vlepuji na form aplikace, vlepeni je bez problemu. Problem je v tom, ze nefunguje TabOrder ani zkratkove klavesy, hlavni form o jeho podrizenem formu nic nevi, takze jeho kontrolu ignoruje. Pokousel jsem se nastavit property Parent na vlepenem formu a to jak predanim primo pointru na hlavni okno, tak prez metodu FindControl (metoda mi vracela stale nil), ale ani tohle nepomohlo.
Nyni se pokousim odchytavat message na hlavnim formu a preposilat je podrizenemu, ale zatim se mi to nejak zdarne nedari.
Nemate nekdo zkusenosti s pouzivanim formu v COMech?
Diky
Dedeni formularu s frame
[*] Delphin <delphin(zv)post(tec)cz> - 9.9.2002 13:47:39
D5 SP2
Mam formular s frame. Frame obsahuje Popup menu, do ktereho jsem ve
formulari pridal prvek Export. Tento formular funguje bez problemu.
Kdyz vyrobim potomka tohoto formulare, tak mi to do .dfm potomka automaticky
prida definici Export (kdyz ho smazu, tak se to pri zobrazeni formu v IDE
vrati zpatky) a v runtime nejde formular vytvorit s chybou "Ancestor for
'Export' not found". Zjistil jsem, ze dedeni funguje, jen kdyz je frame bez
uprav, s upravami to neprojde.
To je "vlastnost" nebo se to da nejak odstranit ?
Diky Delphin
Jak udelam z 1006787844 cas a datum ?
[*] Ludek Finstrle <xfinstrl(zv)informatics.muni(tec)cz> - 9.9.2002 13:56:35
wEnC napsal(a):
> Mam tabulku v MySQL a casove zaznamy tam jsou ukladany z PHP jako cislo,
> napr. 1006787844.
> A potreboval bych to nejak sikovne prevest do dbGrid tabulky v delphi.
> Na jine upravy pouzivam toto
> TIntegerField(Query.fieldbyname('cena')).DisplayFormat:='# ### Kc';
>
> Ale jak prevest to cislo oznacujici pocet sekund od (xx.xx.1970 tusim) na
> rozumnej format "hh:mm:ss DD/MM/YY"
>
> V Delphi teprve za��n�m, ale urcite na to existuje nejaky sikovny parametr.
Toto neni uplne vec Delphi. Zkuste se kouknout spis na stranu MySQL.
Jinak to cislo bude pocet sekund zrejme od 1.1.1970 0:00 nebo tak neco.
Luf
tsearchrec.attr - windows XP
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 09.9.2002 14:05:00
Ahoj,
narazil jsem na problem pri prochazeni direktorarove struktury pri
spusteni programu napsanem pro win9x spustenem pod windows xp (projevilo
se to take pri zkopirovani struktury z xp na 9x). tsearchrec.attr ma pro
direktorar a win9x hodnotu 16, ale pod winxp 48. Pokud jsem toto
zohlednil program zacal fungovat spravne. Zajimalo by me, zda se
onjevily jeste nejake podobne zaludnosti.
Vaclav Sazima
Jak udelam z 1006787844 cas a datum ?
[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 09.9.2002 14:28:04
> > V Delphi teprve za��n�m, ale urcite na to existuje nejaky sikovny parametr.
>
> Toto neni uplne vec Delphi. Zkuste se kouknout spis na stranu MySQL.
> Jinak to cislo bude pocet sekund zrejme od 1.1.1970 0:00 nebo tak neco.
Ahoj,
pokud se jedna skutecne o unixtime, pak bych pouzil unitu DateUtils,
ve ktere jsou obe konverzni fce: UnixTime<->TDateTime.
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Reklama:
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
Mailslot - access denied
[*] Delphin <delphin(zv)post(tec)cz> - 9.9.2002 14:29:15
Taky mi to vracelo chybu 5 a pomohlo misto FILE_SHARE_READ dat
FILE_SHARE_READ or FILE_SHARE_WRITE, ale nevim proc.
----- Original Message -----
From: "Daniel Rott" <roxton(zv)seznam(tec)cz>
To: "Delphi Forum" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 09, 2002 11:04 AM
Subject: Mailslot - access denied
> Potrebuji posilat textovou zpravu (pouze jednim smerem)
> mezi dvema NT sluzbami (na temze pocitaci), ale narazim
> na opravneni. Pokud obe sluzby spustim jako bezne
> aplikace (na ucet uzivatele), tak vse funguje. Pokud bezi
> jako sluzby (na ucet system), tak se nelze k mailslotu pripojit.
>
> Funkce vytvoreni mailslotu probehne uspesne:
> MailSlot:=CreateMailSlot('\\.\mailslot\roxton\sluzba',0,0,Nil);
>
> Ale pripojeni z druhe sluzby skonci chybou c.5:
> MailSlot:=CreateFile('\\.\mailslot\roxton\sluzba',
> GENERIC_WRITE,FILE_SHARE_READ,Nil,
> OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
>
> Nemate nekdo tuseni v cem muze byt problem ?
>
> Diky
> Daniel
> -------------------------------------------------------
> Scanning complete: NO intelligent life form in range.
>
>
Razeni v ListView
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 9.9.2002 14:38:30
> radim jednotlive sloupecky tabulky v Listview pomoci teto funkce.
> function CustomSortProc1(Item1, Item2: TListItem; ParamSort: integer):
integer; stdcall;
> begin
>
Result:=lstrcmp(PChar(TListItem(Item1).Caption),PChar(TListItem(Item2).Capti
on));
> end;
> no to je sice spravne ale pouze pro string. jak to mam redit jako
> string ?
try
c1:=StrToInt(Item1.Caption);
c2:=StrToInt(Item2.Caption);
if c1>c2 then result:=1 else
if c1<c2 then result:=-1 else result:=0;
except
Result:=lstrcmp(PChar(TListItem(Item1).Caption),PChar(TListItem(Item2).Capti
on));
end;
anebo bez try...except pomoci StrToIntDef.
Roman
==============================
http://kouzelne.misto(tec)cz
List index is out of bounds.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 9.9.2002 14:59:32
Zdravim,
V programu si plnim combobox takto:
ComboBox1.Items.AddObject('neco', TObject(-2));
Pak se to snazim precist:
NejakyInteger := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
- zde dostanu chybu, pokud tam mam hodnotu -2
Pokud tam mam hodnotu -1 a vyssi, pak vse funguje jak ma.
Myslel jsem, ze tam mohu dat libovolne zaporne cislo odpovidaji rozsahu typu
integer.
Mate prosim nekdo vysvetleni, pouzivam Delphi6.
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.385 / Virus Database: 217 - Release Date: 04/09/2002
IB/FB SP nevraci vysledek? - Vyreseno
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 9.9.2002 15:06:41
Ahoj,
pokud to nekoho zajima tak:
On 8 Sep 2002 at 13:55, Jan Sebel�k wrote:
> Ten SUSPEND je tam podle me zbytecny.
to ma JS pravdu
a vysledek SP vraci tato konstrukce
IBTransaction1.CommitRetaining;
Pocet := IBStoredProc.Params.ParamValues['POCET'];
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Dekuji za pomoc pri reseni,
Jarek U.
> Pokud je mi znamo, tak SUSPEND se pouziva tehdy, kdyz ma procedura
> vracet tabulku hodnot, na klientovi pak "select * from proc(x,y,z)".
> Jinak potreba neni. 2. Pokud dobre koukam, tak ten POCET=POCET+1 neni
> uvnitr cyklu FOR SELECT, ale az za nim. 3. Jestlize TIBStoredProc
> priradim jmeno (a asi prepare), tak by si parametry mela vytvorit
> sama. Ja jenom zadam vstupni:
> IBStoredProc.Params.ByName(...).asString:=...; udelam
> IBStoredProc.Execute; a prectu vystupni
> ....:=IBStoredProc.Params.ByName(...).asInteger;
>
> Pisu to z hlavy, takze je to mozna malinko jinak.
>
> Honza
> =========================================
> = HAES - RNDr. Jan Sebelik
> = http://www.haes(tec)cz
> = Skolici a konzultacni stredisko pro Delphi a Win32
> = Vojtiskova 206
> = 507 81 Lazne Belohrad
> = tel. 0434 692 569 (0776 347735)
> =========================================
> ----------
> > Odes�latel: Jaroslav Uher <moravia(zv)mbox.vol(tec)cz>
> > Komu: delphi-l(zv)clexpert(tec)cz
> > P�edm�t: IB/FB SP nevraci vysledek?
> > Datum: 6. z��� 2002 14:23
> >
> > Ahoj,
> >
> > D6P, Win2000, FB 1
> > mam SP, ktera hromadne updatuje hodnotu jednoho pole
> >
> > SET TERM !! ;
> >
> > /* procedura zmeni hodnotu DEL 'posle do archivu' nebo
> > 'z archivu' vsechny pripady
> > N/P starsi nez zadane datum
> > a vrati pocet takto 'presunutych'
> > */
> >
> > CREATE PROCEDURE PRIPADY_TO_ARCHIV (
> > U_NP SMALLINT,
> > U_DT_VZNIKU DATE,
> > U_DEL SMALLINT,
> > U_NEWDEL SMALLINT,
> > U_LAST_USER CHAR(4))
> > RETURNS (POCET INTEGER)
> > AS
> > DECLARE VARIABLE S_ID INTEGER;
> > BEGIN
> > POCET = 0;
> > BEGIN
> > FOR SELECT ID FROM PRIPADY
> > WHERE (NP = :U_NP) AND (DEL = :U_DEL) AND (DT_VZNIKU <
> > :U_DT_VZNIKU) INTO :S_ID DO BEGIN
> > UPDATE PRIPADY
> > SET DEL = :U_NEWDEL, LAST_USER = :U_LAST_USER,
> > LAST_UPDATE = 'NOW'
> > WHERE ID = :S_ID;
> > END
> > POCET = POCET +1;
> > SUSPEND;
> > END
> > END !!
> > SET TERM ; !!
> >
> > COMMIT;
> >
> > zda se, ze vse funguje OK, ale nejak mi (asi) nevraci POCET nebo jej
> > nedokazu odchytit. Na klientovi je toto:
> >
> > ...
> > with IBStoredProc.Params.CreateParam(ftString, 'LAST_USER',ptInput)
> > do
> > AsString := xxx;
> >
> > IBStoredProc.Prepare;
> > IBStoredProc.ExecProc;
> >
> > Pocet := IBStoredProc.Params.CreateParam(ftInteger,
> > 'POCET',ptOutput).AsInteger;
> > // POCET je porad 0, i kdyz update se provede na x zaznamech
> >
> > IBTransaction1.CommitRetaining;
> >
> > MessageDlg(Format(rsM_NumberPripaduMoved, [Pocet]), mtInformation,
> > [mbYes],0)
> >
> >
> > Muze mi, prosim nekdo poradit, kde delam chybu ?
> >
> > Dekuji a preji hezky den,
> >
> > Jarek Uher
>
Form v COM objektu
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 9.9.2002 15:07:49
Pouzivam
Application.Handle := xxx;
v COM objektu, kde xxx si predavam volanim k tomu ucelu zrizene metody COM
objektu z hostujici aplikace. Pouzivam to pro COM, ktery obsahuje detske MDI
okno, ktere se natahuje do parent MDI prostredi. Akorat je jeste potreba mit
obe casti prelozene s balicky a rekl bych, ze to jede uspokojive.
-----Puvodni zprava-----
mam COM objekt a uvnitr tohoto objektu je form. V clientske aplikaci
pouzivam tenhle objekt a jeho form vlepuji na form aplikace, vlepeni je bez
problemu. Problem je v tom, ze nefunguje TabOrder ani zkratkove klavesy,
hlavni form o jeho podrizenem formu nic nevi, takze jeho kontrolu ignoruje.
Pokousel jsem se nastavit property Parent na vlepenem formu a to jak
predanim primo pointru na hlavni okno, tak prez
List index is out of bounds.
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 9.9.2002 15:07:11
Ahoj,
zaporne cislo tam dat nemuzes, protoze je to Pointer a ten nemuze byt
mensi nez 0. To ze to funguje s -1 uz se tu pred nedavnem probiralo.
Ales.
> -----Original Message-----
> From: David Michal [mailto:david.michal(zv)www-bv.com]
>
> Pak se to snazim precist:
>
> NejakyInteger :=
> Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
> - zde dostanu chybu, pokud tam mam hodnotu -2
>
> Pokud tam mam hodnotu -1 a vyssi, pak vse funguje jak ma.
> Myslel jsem, ze tam mohu dat libovolne zaporne cislo
> odpovidaji rozsahu typu
> integer.
>
> Mate prosim nekdo vysvetleni, pouzivam Delphi6.
Problemy s detekci Active a DeActive
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 09.9.2002 15:48:25
Ahoj,
mam aplikaci, ktera ma byt OnTop. Jenze, kdyz nebude aktivni, nesmi byt
OnTop, protoze jinak pres ni nebude nic videt.
Osetroval jsem to udalostmi application.onactive/deactive, zkousel jsem to i
pres form1.onactive/deactive
Kdyz totiz v udalosti DeActive provedu zmenu okna z OnTop na NoTop, tak musim
jeste tohle okno poslat dopozadi, jinak jako by zustava porad OnTop.
No a pri techle operacich dojde k tomu, ze se vola udalost OnActive. Pozorny
citatel uz ted tusi co nasleduje. Ano, dojde k tomu, ze je okno zase nastaveno
na OnTop.
OK, osetril jsem OnActive a jsem schopen poznat, jestli se do nej dostanu po provedeni
NoTop. Problem jeste horsi, protoze pak uz (kdyz se uzivatel skutecne vrati do me aplikace)
udalost OnActive neprobehne.
Ach jo, ... co s tim?
Zkousel jsem to i s pomoci odchytavani zprav, ale vysledek je uplne stejny. Napadlo me, ze
by stalo za to se "napichnout" na udalost, ktera zpusobi, ze pruh aplikace je bud modry nebo
sedy. To je presne to, co chci akorat nevim jak to udelat.
Any idea?
Diky Jirka.
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
OT - RE: Monitorovani toku dat
[*] Josef Pol�k <Josef.Polak(zv)clnet(tec)cz> - 9.9.2002 17:30:22
Monitorovat provoz primo na routeru.. rozjet napr. SNTP a pak cist tyto
informace kdekoliv ze site.
S
Pozdravem
J. Polak
-----Original Message-----
From: Martin Radvansky [mailto:delphicz(zv)stereo(tec)cz]
Sent: Friday, September 06, 2002 8:38 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Monitorovani toku dat
Zdravim,
mam takovy dotazek. Mame ve firme pevnou linku k internetu a
potrebovali bychom nejakym zpusobem merit kolik ktera stanice ma
prenosu dat do internetu a zpet. Router je Linuxovy pocitac. Da se nejak
z Delphi udelat program, ktery zachyti paket, zjisti zda jde do
internetu tj na urcitou branu a spocte pocet paketu?
Mohl by me nekdo nakopnout spravnym smerem.
Dekuji
S pozdravem,
Martin
OT - RE: Monitorovani toku dat
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.9.2002 17:39:07
>mam takovy dotazek. Mame ve firme pevnou linku k internetu a
>potrebovali bychom nejakym zpusobem merit kolik ktera stanice ma
>prenosu dat do internetu a zpet. Router je Linuxovy pocitac. Da se
nejak
>z Delphi udelat program, ktery zachyti paket, zjisti zda jde do
>internetu tj na urcitou branu a spocte pocet paketu?
>Mohl by me nekdo nakopnout spravnym smerem.
S pouzitim WinPCap knihovny/driveru (umoznuje napsat sniffer) by to
jit melo
D. Toman
ActiveX komponenty pro PowerBuilder
[*] Jan Najvarek <conference.reader(zv)artin(tec)cz> - 9.9.2002 18:07:45
Zdravim,
ma nekdo zkusenosti tvorby visualnich ActiveX komponent pro PowerBuilder20
Nase komponenty se v PowerBuilderu 7 chovali celkem slusne, v PowerBuilderu 8 vsak vyhazuje aplikace na konci chybu poruseni ochrany dat? Ty nase ActiveX jsou velice jednoduche, v podstate jen ActiveX obalka kolem Delphi komponent. Vypada to, ze PowerBuilder se v necem nechova koretne, na druhe strane, zakaznik ma i jine ActiveX komponenty od jinych vyrobcu a ty tento problem nemaji...
Prosim, poradte...
Diky
Jan Najvarek
ARTIN
List index is out of bounds.
[*] Martin Cajbik <cajbik(zv)sct.sk> - 9.9.2002 18:28:50
Pokial si pamatam, tak problem bol iba z hodnotou -1, ale mozno sa mylim.
Implementacia Items pre ComboBox, ListBox a niektore dalsie pouzivaju na
ziskavanie hodnot API funkcie, ktora v pripade, ze hodnotu nebolo mozne
ziskat vracaju -1 ako chybu.
V D6 u vsetkych takychto komponentov potom v pripade ze nastala chyba alebo
je ulozena hodnota -1 (navratova hodnota funkcie je v oboch pripadoch
rovnaka) vznikne vynimka. V D4 to niektore komponenty zase riesili tak, ze
vratili TObject(-1) aj vtedy, ked by mala vynimka skutocne vzniknut.
Tazko povedat, co je lepsie, najlepsie by snad bolo, keby si kontrolu na
rozsah urobilo Delphi samo a inak vracalo vzdy hodnotu bez vynimky. Tym by
sa vsak zase mierne spomalila praca s ulozenymi objektami a nezarucovalo by
to na 100% korektnu hodnotu.
MarCaNT (marcant(zv)sct.sk)> Zdravim,
> V programu si plnim combobox takto:
>
> ComboBox1.Items.AddObject('neco', TObject(-2));
>
> Pak se to snazim precist:
>
> NejakyInteger := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
> - zde dostanu chybu, pokud tam mam hodnotu -2
>
> Pokud tam mam hodnotu -1 a vyssi, pak vse funguje jak ma.
> Myslel jsem, ze tam mohu dat libovolne zaporne cislo odpovidaji rozsahu
typu
> integer.
>
> Mate prosim nekdo vysvetleni, pouzivam Delphi6.
>
> Diky,
> David
> ---
tsearchrec.attr - windows XP
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 9.9.2002 18:46:17
Atributy adresare jsou slozeny, zahrnuje se do toho i atribut archive,
hidden a tak. Proto to musis zjistovat takhle:
if (SearchRec.Attr and faDirectory <= 0) then
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Monday, September 9, 2002, 2:05:00 PM, you wrote:
VS> Ahoj,
VS> narazil jsem na problem pri prochazeni direktorarove struktury pri
VS> spusteni programu napsanem pro win9x spustenem pod windows xp (projevilo
VS> se to take pri zkopirovani struktury z xp na 9x). tsearchrec.attr ma pro
VS> direktorar a win9x hodnotu 16, ale pod winxp 48. Pokud jsem toto
VS> zohlednil program zacal fungovat spravne. Zajimalo by me, zda se
VS> onjevily jeste nejake podobne zaludnosti.
VS> Vaclav Sazima
tsearchrec.attr - windows XP
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 9.9.2002 19:30:55
----- Original Message -----
From: "Vaclav Sazima" <vaclav.sazima(zv)utilia(tec)cz>
> narazil jsem na problem pri prochazeni direktorarove struktury pri
> spusteni programu napsanem pro win9x spustenem pod windows xp (projevilo
> se to take pri zkopirovani struktury z xp na 9x). tsearchrec.attr ma pro
> direktorar a win9x hodnotu 16, ale pod winxp 48. Pokud jsem toto
> zohlednil program zacal fungovat spravne. Zajimalo by me, zda se
> onjevily jeste nejake podobne zaludnosti.
To neni zadna zaludnost, ale zdokumentovana vlastnost:
48 = $30 = $10 + $20
$10 = FILE_ATTRIBUTE_DIRECTORY
$20 = FILE_ATTRIBUTE_ARCHIVE
Adresare a soubory mohou mit priznak "archive", coz teoreticky znamena
ze byly zmeneny od posledni zalohy. Nevim jestli se tento priznak v tomto
smyslu jeste pouziva, kdyz se zaroven zaznamenava datum a cas posledni
zmeny, ale je to ve WinAPI uz odjakziva. Pri testovani atributu musis priznak
"archive" odfiltrovat napr. takto:
if Attr and FILE_ATTRIBUTE_DIRECTORY <> 0 then
// je to adresar
...
Martin Schayna
Problem s balicky obsahujici unit ZLIB
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 9.9.2002 19:43:53
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, September 08, 2002 12:05 AM
Subject: Re: Problem s balicky obsahujici unit ZLIB
| Kazdy unit muze byt *pouze* v jednom balicku (neni-li WEAKPACKAGE). Takze
| musis mit ten ZLIB v nejakem spolecnem balicku ktery budou ty tvoje
pouzivat.
|
| Petr Vones
Nemam zdrojaky od unitu ZLIB. (Pouzivam unit z Delphi 5 prof. umisteny v
adresari LIB\ZLIB.DCU)
Lze tento problem nejak vyresit?
Co znamena balicek, ktery je WEAKPACKAGE ?
Diky za radu.
Martin Pavera
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
Problem s balicky obsahujici unit ZLIB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.9.2002 19:53:39
From: "Martin Pavera" <martin.pavera(zv)cmail(tec)cz>
> Nemam zdrojaky od unitu ZLIB. (Pouzivam unit z Delphi 5 prof. umisteny v
Mas. Na instalacnim CD v adresari Extras.
> Co znamena balicek, ktery je WEAKPACKAGE ?
Ne balicek ale unit. Takovy unit nemuze mit zadne globalni promenne a kod v
initialization/finalization sekci. Tim jej neni treba primo linkovat do BPL i
kdyz je v balicku (*.dpk) tento unit jinak obsazen. Vice v helpu.
Petr Vones
FTP - prenos pres proxy
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 9.9.2002 20:15:16
Zdravim,
prosim nemohl by mi nekdo poslat kousek zdrojaku nebo tip na komponentu,
ktera se pripoji na vzdalene ftp (pres proxy!) a odesle na toto ftp jeden
soubor?
Moc by mi to pomohlo, je jedno cim a jak, hlavne aby to chodilo v D4.
DIky moc.
JV
List index is out of bounds.
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.9.2002 20:26:30
From: "Martin Cajbik" <cajbik(zv)sct.sk>
> Pokial si pamatam, tak problem bol iba z hodnotou -1, ale mozno sa mylim.
Nemylis se - cteni dat je ve VCL implementovano v souladu s popisem
v SDK a vypada takhle:
function TCustomComboBoxStrings.GetObject(Index: Integer): TObject;
begin
Result := TObject(SendMessage(ComboBox.Handle, CB_GETITEMDATA, Index, 0));
if Longint(Result) = CB_ERR then
Error(SListIndexError, Index);
end;
kde CB_ERR je definovana we WINDOWS.PAS jako -1. Takze pro -2 a vsechny
ostatni hodnoty by to melo byt OK a taky IMHO je.
HTH, pf
ResourceString
[*] Petr Wolf <PetrWolf(zv)centrum(tec)cz> - 9.9.2002 21:00:44
Dobry den,
vedel by nekdo o nejake prakticke ukazce pouziti ResourceStringu, myslim tim
program, ktery ma veskere sve retezcove konstanty ulozeny v externim souboru
a pripadne umozni i zmenu jazyka za behu aplikace?
Chtel bych neco takoveho vytvorit, ale nejsem si jist, zda to cele uplne
dobre chapu.
Dekuji
Petr Wolf
Form v COM objektu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 9.9.2002 21:21:40
On 9 Jan 2002 at 20:15, Tom Beran wrote:
> Zdravim vsechny,
> mam problem s formama v COMech. Konkretne jde o to, ze mam COM objekt
> a uvnitr tohoto objektu je form. V clientske aplikaci pouzivam tenhle
> objekt a jeho form vlepuji na form aplikace, vlepeni je bez problemu.
> Problem je v tom, ze nefunguje TabOrder ani zkratkove klavesy, hlavni
> form o jeho podrizenem formu nic nevi, takze jeho kontrolu ignoruje.
>
> Nemate nekdo zkusenosti s pouzivanim formu v COMech?
Pouzivam form z COM tak jak je, bez vlepovani. Vsechny zpravy posilam
klientovi pres udalosti. Zatim jsem nenarazil na zadne problemy.
S pozdravem
Zbysek Hlinka
Umlceni vstupu zvukove karty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.9.2002 22:32:12
From: "Daniel Rott" <roxton(zv)seznam(tec)cz>
> Jedna vec je textovy popisek zdroje a neco jineho je
> dwComponentType, je v tom casto pekny zmatek.
Presne tak, nekdy se to dokonce zmeni i po instalaci nove verze driveru pro
zvukovku.
Petr Vones
Jakou DB na standalone aplikaci?
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 09.9.2002 23:13:23
Zdravim,
Porad tady vsichni pisete, jak je BDE a Paradox tabulky uplne na nic.
Tak poradte, jakou DB pouzit na standalone aplikaci (se kterou bude vzdy pracovat jen
jeden clovek na jednom pocitaci a nikdy jinak) tak, aby se s tim v delphi delalo stejne
jednoduse, jako s BDE a paradoxovymi tabulkami (aby se daly pouzit komponenty jako
dbgrid, dbedit a ostatni db komponety, s daty pracovat jako pri pouziti ttable a tquery
apod.).
Proste co pouzit misto "zastarale a nepodporovane technologie", ale aby mi zustal
stejny komfort pri vyvoji aplikace jako pri pouziti BDE. Urcite to ale nemuze byt reseni s
lokalnim SQL serverem, musi jit o souborove databaze.
Jo, abych nezapomel, musi to byt pro Delphi 6 Pro
S pozdravem
Pavel �ichovsk� (zichovsky(zv)trul(tec)cz)
Tlac textu z RichEditu
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 10.9.2002 00:07:29
D6, WinXP
Mam v RichEdit nastaveny font Courier a tak sa mi aj zobrazi. Pri tlaci sa
vsak vytlaci text s nejakym inym fontom. Co s tym?
Vdaka za kazdu radu.
Jakou DB na standalone aplikaci?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2002 00:20:31
From: "Pavel Zichovsky" <zichovsky(zv)trul(tec)cz>
> Tak poradte, jakou DB pouzit na standalone aplikaci (se kterou bude vzdy
> pracovat jen jeden clovek na jednom pocitaci a nikdy jinak) tak
>
> Proste co pouzit misto "zastarale a nepodporovane technologie", ale aby mi
> zustal stejny komfort pri vyvoji aplikace jako pri pouziti BDE.
- TClientDataSet (XML nebo CDS soubory)
- http://www.turbopower.com/products/flashfiler/
- http://www.advantagedatabase.com/
Petr Vones
ResourceString
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2002 00:23:37
From: "Petr Wolf" <PetrWolf(zv)centrum(tec)cz>
> vedel by nekdo o nejake prakticke ukazce pouziti ResourceStringu, myslim tim
> program, ktery ma veskere sve retezcove konstanty ulozeny v externim souboru
> a pripadne umozni i zmenu jazyka za behu aplikace?
$(DELPHI)\Demos\RichEdit\Richedit.bpg
Petr Vones
Jakou DB na standalone aplikaci?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.2002 00:30:22
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> - TClientDataSet (XML nebo CDS soubory)
> - http://www.turbopower.com/products/flashfiler/
> - http://www.advantagedatabase.com/
- http://www.elevatesoft.com/prodinfo.htm
Petr Vones
if ve vyctu
[*] Karel Du�ek <Karel.Dusek(zv)oku-tu(tec)cz> - 10.9.2002 06:41:14
IF promenna IN ['A'..'F'] THEN
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 09, 2002 12:47 PM
Subject: if ve vyctu
Ahoj,
rad bych vas poprosil o radu. Mam D5 a Win 2000.
Lze udelat neco podobneho ?
IF promenna IN ['A', 'F'] THEN
Jde mi o ten vycet IN.
Diky.
V.Prihlaseni k Firebirdu
[*] Tom� Muller <muller(zv)ttc(tec)cz> - 10.9.2002 07:06:33
Ahojky,
mam problem. Chtel bych , aby Firebird spustila trigger nebo proceduru na
prihlaseni konkretniho uzivatele s serveru.
Ze String na Char
[*] Martin =?ISO-8859-2?Q?Nov=E1k ?= <mnk(zv)centrum(tec)cz> - 10.9.2002 07:38:14
Zdravim,
chtel bych vedet, jak prevedu jedno pismenko z retezce String na
Char. Funkce Copy mi jedno pismenko vybere, ale je to porad
String. Poradte. Jak prevest String o jednom pismenku na Char.
(Delphi 5, Win98SE).
Dekuji.
S pozdravem Martin.
--------------------
ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz
List index is out of bounds.
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 10.9.2002 07:45:20
Pokud se snazis cist ListIndex := -2, tak samozrejme, protoze tato polozska
neexistuje
Rumcajs
> Zdravim,
> V programu si plnim combobox takto:
>
> ComboBox1.Items.AddObject('neco', TObject(-2));
>
> Pak se to snazim precist:
>
> NejakyInteger := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
> - zde dostanu chybu, pokud tam mam hodnotu -2
>
> Pokud tam mam hodnotu -1 a vyssi, pak vse funguje jak ma.
> Myslel jsem, ze tam mohu dat libovolne zaporne cislo odpovidaji rozsahu
typu
> integer.
>
> Mate prosim nekdo vysvetleni, pouzivam Delphi6.
>
> Diky,
> David
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
OT - RE: Monitorovani toku dat
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 10.9.2002 08:27:51
SNTP ??? asi ne nepletete si to s necim jinym ? Mrknete se na ipac nebo na www.freshmeat.net zadejte accounting software. Pak se jen pripojite pres ftp z delphi nebo pres www rozhrani a stahnete si log soubor.
Milos
-----Original Message-----
From: Josef Pol�k [mailto:Josef.Polak(zv)clnet(tec)cz]
Sent: Monday, September 09, 2002 5:30 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT - RE: Monitorovani toku dat
Monitorovat provoz primo na routeru.. rozjet napr. SNTP a pak cist tyto informace kdekoliv ze site.
S
Pozdravem
J. Polak
-----Original Message-----
From: Martin Radvansky [mailto:delphicz(zv)stereo(tec)cz]
Sent: Friday, September 06, 2002 8:38 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Monitorovani toku dat
Zdravim,
mam takovy dotazek. Mame ve firme pevnou linku k internetu a potrebovali bychom nejakym zpusobem merit kolik ktera stanice ma prenosu dat do internetu a zpet. Router je Linuxovy pocitac. Da se nejak z Delphi udelat program, ktery zachyti paket, zjisti zda jde do internetu tj na urcitou branu a spocte pocet paketu? Mohl by me nekdo nakopnout spravnym smerem.
Dekuji
S pozdravem,
Martin
Ze String na Char
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 10.9.2002 08:48:27
On 10 Sep 2002 at 7:38, Martin Nov�k wrote:
> chtel bych vedet, jak prevedu jedno pismenko z retezce String na
> Char. Funkce Copy mi jedno pismenko vybere, ale je to porad String.
> Poradte. Jak prevest String o jednom pismenku na Char.
var
s: string;
c: char;
s := 'a';
c := s[1];
S pozdravem
Zbysek Hlinka
Jakou DB na standalone aplikaci?
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 10.9.2002 09:00:54
Zdravim
> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> > - TClientDataSet (XML nebo CDS soubory)
Na toto se zkusim podivat, uvidime, jak se to bude chovat.
Umi to primarni/sekundarni indexy, SQL apod?
> > - http://www.turbopower.com/products/flashfiler/
> > - http://www.advantagedatabase.com/
>
> - http://www.elevatesoft.com/prodinfo.htm
Tyto jsou nepouzitelene, nebot nejsou free :-)))
Pro aplikaci, ktera ma byt vicemene free mi nikdo nekoupi engine za stovky dolaru :-(((
S pozdravem
Pavel �ichovsk� (zichovsky(zv)trul(tec)cz)
Problemy s detekci Active a DeActive
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.9.2002 09:13:55
> mam aplikaci, ktera ma byt OnTop. Jenze, kdyz nebude aktivni, nesmi
> byt OnTop, protoze jinak pres ni nebude nic videt.
Tomuhle nejak nerozumim. Kdyz je aplikace aktivni, tak je v popredi, no a kdyz se
prepnes do jine, stane se ta Tvoje neaktivni a podle potreby bude prekryta. Jak se
tedy pozadovane chovani lisi od bezneho chovani kazde aplikace?
David Lebeda
Ze String na Char
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 10.9.2002 09:23:56
Ahoj
Zkus tohle:
var
s: string;
z: char;
begin
s := 'abc';
z := s[1]; // z obsahuje 'a'
z := s[2]; // z obsahuje 'b'
z := s[3]; // z obsahuje 'c'
Jirka
>Zdravim,
> chtel bych vedet, jak prevedu jedno pismenko z retezce String na
>Char. Funkce Copy mi jedno pismenko vybere, ale je to porad
>String. Poradte. Jak prevest String o jednom pismenku na Char.
>(Delphi 5, Win98SE).
> Dekuji.
> S pozdravem Martin.
--------------------
ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz
FTP - prenos pres proxy
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.9.2002 09:26:44
Dival ses treba na Synapsi?
> Zdravim,
> prosim nemohl by mi nekdo poslat kousek zdrojaku nebo tip na
> komponentu, ktera se pripoji na vzdalene ftp (pres proxy!) a odesle na
> toto ftp jeden soubor? Moc by mi to pomohlo, je jedno cim a jak,
> hlavne aby to chodilo v D4. DIky moc. JV
>
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
OT: reference na grafiku/design
[*] Michal <suky(zv)atlas(tec)cz> - 10.9.2002 09:32:38
Dobr� den,
9. z��� 2002, 9:39:12, napsal jste:
LRL> Zdravim,
LRL> omlouvam se za offtopic, ale myslim ze je zde hodne lidi, kteri by mi
LRL> mohli pomoci. Navic to neni takovy offtopic, neb se to tyka i produktu v
LRL> Delphi :) Vytvarime nadnarodni spolecnost (hardware, software, komunikace) a
LRL> potrebujeme grafiku/design, ktera urci celi jeji image. To jest od log
LRL> produktu, webu, az po stanek na Cebitu. Hledame poruznu, ale zatim nam nic
LRL> nepadlo do oka. Zkusili jsme ruzne firmy i grafiky na volne noze. Kdyz uz se
LRL> nam nekdo zamlouval, tak byl pro zmenu nespolehlivy :( Nejde nam o
LRL> 'jednorazovou' vec, ale o casove delsi a flexibilni spolupraci. Je hodne
LRL> tezke najit kvalitniho a spolehliveho grafika/designera ci firmu, proto se
LRL> na vas obracim s touto prosbou...
LRL> Mezi vami je jiste dost lidi, kteri kdysy resili podobny problem. Mate
LRL> tedy nekdo prosim reference na graficke studia, ci grafiky na volne noze ?
LRL> Idelane z prahy, ale neni podminkou, pokud nevadi cestovani. Jde nam jak o
LRL> pocitacovou grafiku (web, loga, ...) tak o DTP (nastivenkami pocinaje, prez
LRL> reklamni predmety a cebitem konce).
LRL> Jak jsem jiz psal, preferujeme delsi casovou spolupraci, pripadne
LRL> 'zamestnani' grafika/grafiku (ZL, HPP, VPP). Po zkusenostech z minula
LRL> preferujeme spise jedince, nez firmu.
LRL> Odpovedi prosim na soukromi majl :)
LRL> Moc diky za reference (kladne i zaporne),
LRL> Best regards,
LRL> Lada 'Ray' Lostak
LRL> Unreal64 Develop group
LRL> http://www.unreal64.net
www.impello(tec)cz ... snad pomohou
Kedy "zatuhne" UPDATE na IB servri ?
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 10.9.2002 09:55:50
IB server po urcitem mnozstvi provedenych transakci nad databazi provadi "setrepani" dat. (v datadase properties najdes sweep interval)
Pokud provadis hodne insertu a updatu spusti se toto setrepani. U vetsich databazi (100MB) to muze trvat i hodinu a behem teto doby nedojde ke zpracovani zadneho SQL dotazu. Nemuze to byt ono?
Tymi
-----Original Message-----
From: belcik(zv)centrum.sk [mailto:belcik(zv)centrum.sk]
Sent: Monday, September 09, 2002 8:15 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Kedy "zatuhne" UPDATE na IB servri ?
DB aplikacia, Delphi 5 Prof., IB 6, IBX.
Kod:
...
StartTransaction
UPDATE TABULKA ...
Commit
...
Problem:
Dva tyzdne vsetko OK, zrazu mi horeuvedeny UPDATE zostal visiet
na servri, tym padom mi zatuhol aj program. Nepomohlo nic,
program som musel resetovat (CTRL+F2). Po kazdom takomto
spusteni,zatuhnuti a resetovani sa mi zvysilo "Number of
attachments" na servri. Ked som restartol IB server, tak bolo
zase OK a program normalne prebehol. Transakcia nema nijake
parametre. Okrem tohoto programu bola k IB pripojena len IB
Console. Viac sa mi uz taketo zatuhnutie nepodarilo dosiahnut,
takze nemozem zistit, cim to bolo sposobene. Neviem, ci to bol
DEADLOCK, lebo aj ked som zatvoril IB Console a program zostal
sam pripojeny k servru, tak to nepomohlo a program zostal tuhy.
Otazka:
V akych pripadoch zatuhne UPDATE na IB servri ?
KOnkretne ten kod vyzera takto:
try
IBSQL1.SQL.Clear;
IBSQL1.SQL.Add('UPDATE ... velky update asi 30 poli');
IBTransaction1.StartTransaction;
IBSQL1.ExecQuery;
IBTransaction1.Commit;
Result:=true;
except
on E:Exception do
begin
IBTransaction1.Rollback;
end;
end;
Dakujem za poucenie.
Stano Belcik
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
ansistring&Tfilestream
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 10.9.2002 10:16:26
Ahoj
Martin Kolos wrote:
>
> par znaku. Prvni co me napadlo, bylo otevrit soubor pomoci metody
> Tfilestream.create a nacist obsah do promenne S typu string
>
> Tfilestream.ready(S,sizeof(soubor))
FileStream := Tfilestream.create (FileName,fmOpenRead);
setkength (S,FileStream.Size);
FileStream.Read (S [1],FileStream.Size);
FileStream.Free;
>
> a zde nastava problem, nebot jak znamo, S odkazuje na adresu v pameti,
> tedy je to neco jako ukazatel.
Vaclav Sazima
if ve vyctu
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 10.9.2002 10:29:18
Diky za radu. U CHAR to funguje. A jak to bude u STRINGu ? Jde to ?
A co v CASE ?
Jak obejit tohle:
CASE promenna OF
'A': ...;
'B': ...;
END;
Vasek
-----Original Message-----
From: Karel Du�ek [mailto:Karel.Dusek(zv)oku-tu(tec)cz]
Sent: Tuesday, September 10, 2002 6:41 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: if ve vyctu
IF promenna IN ['A'..'F'] THEN
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 09, 2002 12:47 PM
Subject: if ve vyctu
Ahoj,
rad bych vas poprosil o radu. Mam D5 a Win 2000.
Lze udelat neco podobneho ?
IF promenna IN ['A', 'F'] THEN
Jde mi o ten vycet IN.
Diky.
V.