Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Chyba pri instalaci ZeosControls - reseni
[*] David Janko <djanko(zv)infoware(tec)cz> - 27.10.2001 16:26:42
Vyresil jsem to - i kdyz nevim, jak moc korektne, kdyztak me opravte.
Vsechny always-build package jsem prevedl na Never-build (nasel jsem to
v Options pri otevreni toho balicku) a znovu prekompiloval. Napovedel mi
help, v hledat jsem uvedl "Never-build"). Pokud to bylo kazdemu jasne, tak
se omlouvam, teprve s D zacinam.
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
> Prosel jsem jeste archiv Zeos a zjistil, ze tento problem pri instalaci
> ZeosControls v D6:
> [Error] Never-build package 'ZUtils6' requires always-build package
> 'ZCommon6'
> meli i jini. Bohuzel reseni tam neni :((.
> Zkousel jsem to dle navodu i experimentovat s cestami, ale rovnez bez
> uspechu.
> Neresil to uz prosim nekdo, pripadne nemohl by mi nekdo osvetlit co ta
> hlaska znamena ?
> Pridat pole v DBF
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.10.2001 16:39:44
A nemas nadefinovana pole pres FieldEditor (prave tlacitko na
tabulce)? Pak tabulka pole, ktere tam nejsou proste nezna, i kdyz je
pridas do tabulky. Musel bys je pridat programove i tam.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.10.2001 prajz.rumcajs(zv)quick(tec)cz:
> Servus vsem,
> mam aplikaci, ktera si vytvorila pomoci TTable databazi
> (data.dbf). Ted resim problem, jak pridat do jiz existujiciho souboru dbf
> dalsi pole (ftGraphic). Vsechny dosavadni pokusy vytvorili TField, pridali
> ho k TTable (Table1.Fields.Add(TField)), ale jinak se nic nedeje. Kdyz dam
> DBImage1.DataField := 'Foto', tak to rve, ze toto pole neexistuje ...
> D4, Win Me
Progamove stahnuti posty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.10.2001 16:43:42
Rekl bych, ze s OE (Outlook Express) pres OLE moc neporidis. Chce to
postovniho klienta, ktery se da ovladat pres prikazovou radku a to OE
neni. Jinak na spousteni v .BAT s cekanim na dokonceni se pouziva
prikaz START.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
26.10.2001 Jaroslav KULHEIM:
> Dobry den,
> resim problem jak v .bat souboru spustit Outlook Expres, stahnout postu a po
> stazeni pokracovat dalsim prikazem v davce. Hledal jsem command line
> parametry pro OE, ale existuje pouze /mailonly /newsonly nebo tak nejak.
> Napadlo me jeste vytvorit si delphi programek ktery by OE spustil, pres OLE
> stahl postu a ukoncil OE.FB nebo BDE
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 27.10.2001 16:58:49
Ahoj,
On 26 Oct 2001, at 20:58, Lud k ZITA wrote:
> Taky je dobre napsat to "jakoby" pod SQL, tedy
^^^^^^^^^^^^^^^^^
> nepouzivat tabulky a DataAware pro primou editaci uzivatelem, ale
> nacist mu udaje do nejakeho editu a pak to najednou zapsat
> Table.Edit(Insert) Table.FieldByName('pole').AsNeco := Neco;
^^^^^^^^^^
> Table.Post; Tenhle pristup ti usetri 80% problemu.
^^^^^^^^^^^
obavam se, ze Ti moc nerozumim, "jakoby" pod SQL bych si
predstavoval --> TQuery
BTW. Nereaguji proto, abych si 'rypnul', ale spise by mne zajimal
nazor znalcu IB/FB na pouziti komponenty TIBTable. Jen pro mensi
ciselniky a Insert, Updete, Delete resit stejne jako TIBQuery pres SP.
Dekuji,
preji hezky den,
Jarek Uher
syntaxe funkce
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 27.10.2001 17:03:19
Hi,
asi bych tento priklad resil takto
function TMainForm.SetSaveDialogFileName(OldFileName: String):String;
begin
Result := copy(OldFileName,1,Length(OldFileName)-3);
end;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> -----Original Message-----
> From: Hurricane [mailto:hurricane(zv)quick(tec)cz]
>
> Mam ponekud zacatecnicky dotaz na spravnou syntaxi funkce.
> Muzu to takhle
> zapsat, nebo na to musim jinak? Chova se to jako, kdyby se
> SetLength vubec
Sinea a vlastni preview
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 27.10.2001 17:51:22
Ahoj,
chci si vytvorit vlastni nahledove okno sestavy Sinea. Mam nejakou hrubou
predstavu jak na to a nasel jsem o tom i nejakou zminku v konf. u Siney, jenomze
misto odpovedi tam byla priloha a ta z archivu nejak nejde vycist :-(
Nemate nekdo nejaky kousek kodu, popr. rovnou tu prilohu z Sinea konference (na
muj mejl)?
Diky,
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
capture DOS print
[*] Hurricane <hurricane(zv)quick(tec)cz> - 27.10.2001 17:59:54
Zdravim
> > Co ja vim, tak moje HP-DJ690C je taky GDI a v dosu tiskne naprosto
> normalne.
> Jak jsi na to prisel, ze DJ 690 je GDI tiskarna?
Aha, a ja myslel, ze je. V tom pripade nemuzu radit.
Hurricane
syntaxe funkce
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.10.2001 19:03:32
26.10.2001 Hurricane:
> Zdravim
> Mam ponekud zacatecnicky dotaz na spravnou syntaxi funkce. Muzu to takhle
> zapsat, nebo na to musim jinak? Chova se to jako, kdyby se SetLength vubec
> neprovedl. Mam v hlavicce funkce pouzit (var OldFileName: String)... ?
> function TMainForm.SetSaveDialogFileName(OldFileName: String):String;
> begin
> SetLength(OldFileName, Length(OldFileName) - 3);
> Result := OldFileName;
> end;
Pokud pouzijes v deklaraci funkce var OldFileName, jde o odkaz pomoci
promenne oproti odkazu hodnotou. Var se pouziva v pripade, kdy
OldFileName ve funkci (procedure) menis a se zmenenou hodnotou dale
pracujes.
Ve tvem pripade bych nechal deklaraci tak, jak je, ale upravil obsah
na :
begin
Result := OldFileName;
SetLength(Result, Length(Result) - 3);
end;
Predpokladam, ze chces odseknout rozsireni souboru a tecku nechat. Co
pak budes delat se souborem, ktery se jmenuje SOUBOR.C nebo
SOUBOR.HTML ?
Asi by bylo jednodussi pouzit funkci ChangeFileExt(Result, '.')
Ktera ti z SOUBOR.COKOLIV udela SOUBOR.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
syntaxe funkce
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 27.10.2001 19:18:41
function TMainForm.SetSaveDialogFileName(OldFileName: String):String;
begin
Result:= System.Copy(OldFileName, 1, Length(OldFileName) - 3);
end;
Zdenek Janish
ZEOS komponenty obecny dotaz
[*] David Janko <djanko(zv)infoware(tec)cz> - 27.10.2001 19:54:03
> btw. s IB6 me nefunguji polozky NUMERIC, jedine co z nich vidim je
'Overflow'
> :-(( a pokud vim, tak hlavni autor od tohoto projektu odesel a predal jej
nekomu
> jinemu /skupine/, posledni verze je tusim z cervence...
ad NUMERIC: mozna je to tenhle fix z Bety 5: Fixed Interbase BCD field type
support.
I kdyz, taky tam pisou:
Fixed duplicate resource error under Delphi6 and Kylix (Thanks to Vladimir
Krinitsin)
a prave k tehlete chybe sem se dopracoval :((
Kdyz dam appl CLX, tak v momente kdyz pouziju DBGrid (ten jejich neni asi s
CLX kompatibilni,
protoze vubec neni dostupny), tak se dozvim prave toto a uz nic
nezkompiluju.
Jejich example chodi, ale pouziva v uses misto:
QGrids, QDBGrids
prave
Grids, DBGrids
a obavam se, ze tim uz to jaksi neni prenositelne .. ach auvej :((
nejaky napad ? nebo to zkratka neni pres to co pisou kompatibilni ?
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
InterBase server: cannot perform network request t
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 28.10.2001 02:54:20
Znamena to, ze k IB sa neda pripojit z jedneho PC lokalne a z dalsieho po
sieti?
Prip. je mozne zapisat conn. string aj pre pristup k lokalnemu IB ako:
\\server\C:\cesta\k\db\neco.gdb ?
Jaro
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 26, 2001 9:25 AM
Subject: RE: InterBase server: cannot perform network request to...| Haj hou!
|
| On 25 Oct 2001, at 12:56, Petr Palicka wrote:
|
| > Pavel neco rikal ze napriklad pripojeni z jedny strany lokalne a zdruhe
| > positi je zrovna ten pripad. tedy ten string je neco na zpusob
| > \\server\C:\cesta\k\db\neco.gdb. jinac FB prej to resi tim, ze pripojeni
| > na jednu DB s jinym connection stringem proste nedovoli. mozna by se
| > Pavel mohl vyjadrit osobne a presneji, ja jsem hlava derava a navic si
| > nemuzu vzpomenout, jaxe jmenujou ty prasky na lepsi pamet :o].
|
| Nic jsi nezapomel :-) Odlisne connect stringy ktere ovsem vedou
| na stejnou databazi zmatou rozhranni IB/FB a ta se pripoji k
| databazi dvakrat, jako by to byly odlisne databaze. Vysledkem je
| katastrofa. FB tusim od verze Test1 resi problem tak, ze databaze
| se otevira exkluzivne, tudiz druhe otevreni tehoz souboru serverem
| selze.
|
| S pozdravem
|
| Pavel Cisar
| Mobil: 0724 281429
| http://www.ibphoenix(tec)cz
| Vse co potrebujete pro Firebird a InterBase
|
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.286 / V�rusov� datab�za: 152 - d�tum vydania: 10. 10. 2001
Progamove stahnuti posty - cekani v BATu
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 28.10.2001 02:59:08
aa.bat
====
start notepad.exe
echo ahoj
pause
start notepad.exe
takyto BAT pod W2k-SP2 mi spusti prvy notepad NA NIC NECAKA... teda zastavi
sa az na pause
Tiez by som potreboval cakanie na koniec, ale v BATe neviem ako na to.
Jaro
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, October 27, 2001 3:43 PM
Subject: Re: Progamove stahnuti posty
| Rekl bych, ze s OE (Outlook Express) pres OLE moc neporidis. Chce to
| postovniho klienta, ktery se da ovladat pres prikazovou radku a to OE
| neni. Jinak na spousteni v .BAT s cekanim na dokonceni se pouziva
| prikaz START.
|
| ------
| ing. Jan Fiala
| mailto:jan.fiala(zv)iol(tec)cz
|
| 26.10.2001 Jaroslav KULHEIM:
| > Dobry den,
| > resim problem jak v .bat souboru spustit Outlook Expres, stahnout postu
a po
| > stazeni pokracovat dalsim prikazem v davce. Hledal jsem command line
| > parametry pro OE, ale existuje pouze /mailonly /newsonly nebo tak nejak.
| > Napadlo me jeste vytvorit si delphi programek ktery by OE spustil, pres
OLE
| > stahl postu a ukoncil OE.
|
|
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.286 / V�rusov� datab�za: 152 - d�tum vydania: 9. 10. 2001
Nacteni otevreneho souboru
[*] <bukaj(zv)iol(tec)cz> - 28.10.2001 09:56:41
Potrebuji nacist soubor, do ktereho je zapisovano jinym programem. Zkousel
jsem nastavit FileMode na 0 ale nefunguje to, poradite mi?Nacteni otevreneho souboru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.10.2001 10:32:11
> Potrebuji nacist soubor, do ktereho je zapisovano jinym programem. Zkousel
> jsem nastavit FileMode na 0 ale nefunguje to, poradite mi?
Skuzil bych to spise primo poci CreateFile() a nastavil bych prislusne
parametry tak, aby bylo povoleno soubezne cteni/zapis - ale uspech bude
zaviset jak otevrel soubor ten proces co jej jiz pouziva
D> Toman
Nacteni otevreneho souboru
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 28.10.2001 11:12:05
Ahoj,
co tohle:
with TFileStream.Create('tvuj soubor',fmOpenRead or fmShareDenyNone) do
try
XXXXX
finally
Free;
end;
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Subject: Re: Nacteni otevreneho souboru
>
> > Potrebuji nacist soubor, do ktereho je zapisovano jinym
> programem. Zkousel
> > jsem nastavit FileMode na 0 ale nefunguje to, poradite mi?ukonceni windows NT4.0
[*] novos(zv)email(tec)cz - 28.10.2001 14:02:40
zdravim
kdysi davno tady padlo tohle tema. byli tu napsany kusy zdrojaku,
ale ani jeden se mi nepodarilo rozchodit. problem byl zrejme ve
funkci AdjustTokenPrivileges. zda se mi ze kdyz obsluha
prihlasena na pocitac neni ve skupine ktere ma pravo "Vypnout
pocitac" tak se funkce neprovede.
ma prosim nekdo overeny funkcni kod, ktery vypne WinNT i pres to
ze k uzivatelskemu pravu "Vypnout pocitac" v user manageru neni
prirazena zadna skupina?
diky
Ivos
Porovnanie poli, WAS: FB - CURSOR, ...WHERE IN (SE
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 28.10.2001 22:28:33
> Podle mne staci proc by to nestacilo ?
> Jedine ze by ib neumela not. :-((
> IF(not (.....
IB pozna NOT, ale problem je ten isty ako pri porovnani poli, kde
(Null=Null) nie je TRUE ale Null. Preto aj vyhodnotenie vyrazu IF(NOT(Null))
da ten isty vysledok ako IF(Null)... snad som sa vyjadril jasne.
Pavol Stolc
pstolc(zv)sc.sknet.sk
syntaxe funkce
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.10.2001 00:26:16
Zdravim
Diky za radu, to je presne co potrebuju. Ta funkce co jsem poslal, je
vytrzena z kontextu. V realu tram bude neco jineho. Osekal jsem to, aby bylo
jasne videt, co chci. Kde (v ktere unite) je ChangeFileExt, to je presno ce
hledam.
Do ted jsem to delal takhle:
Ext := AnsiLowerCase(ExtractFileExt(OldFileName));
SetLength(OldFileName, Length(OldFileName) - Length(Ext));
Result := OldFileName+'.txt';
BTW AnsiLowerCase je tam pro pozdejsi porovnavani stringu, pouze v tomhle je
to zbytecne.
Na tvuj dotaz odpovim zcela jednoduse, pridam k tomu zpatky jinou priponu
(uz bez tecky).
Hurricane
----- Original Message -----
> > Mam ponekud zacatecnicky dotaz na spravnou syntaxi funkce. Muzu to
takhle
> > zapsat, nebo na to musim jinak? Chova se to jako, kdyby se SetLength
vubec
> > neprovedl. Mam v hlavicce funkce pouzit (var OldFileName: String)... ?
> > function TMainForm.SetSaveDialogFileName(OldFileName: String):String;
> > begin
> > SetLength(OldFileName, Length(OldFileName) - 3);
> > Result := OldFileName;
> > end;
>
> Pokud pouzijes v deklaraci funkce var OldFileName, jde o odkaz pomoci
> promenne oproti odkazu hodnotou. Var se pouziva v pripade, kdy
> OldFileName ve funkci (procedure) menis a se zmenenou hodnotou dale
> pracujes.
> Ve tvem pripade bych nechal deklaraci tak, jak je, ale upravil obsah
> na :
>
> begin
> Result := OldFileName;
> SetLength(Result, Length(Result) - 3);
> end;
>
> Predpokladam, ze chces odseknout rozsireni souboru a tecku nechat. Co
> pak budes delat se souborem, ktery se jmenuje SOUBOR.C nebo
> SOUBOR.HTML ?
> Asi by bylo jednodussi pouzit funkci ChangeFileExt(Result, '.')
> Ktera ti z SOUBOR.COKOLIV udela SOUBOR.syntaxe funkce
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2001 06:38:36
29.10.2001 Hurricane:
> Diky za radu, to je presne co potrebuju. Ta funkce co jsem poslal, je
> vytrzena z kontextu. V realu tram bude neco jineho. Osekal jsem to, aby bylo
> jasne videt, co chci. Kde (v ktere unite) je ChangeFileExt, to je presno ce
> hledam.
Staci si pustit Delphi Help, dat v rejstriku vyhledat ChangeFileExt a
tam ti rekne, ze je to v unite SysUtils
Jinak ChangeFileExt se bezne pouziva primo tak, ze mu predas priponu
vcetne tecky a on ji zmeni, napr. ChangeFileExt(FileName, '.HTML')
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
DBF,CDX,SQL
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 29.10.2001 06:54:36
Ahoj LIDI, potreboval bych nutne pomoct, zkousel jsem kde co, ale vysledek
porad stejny.
Mam DBF tabulku na ktere vytvorim index CDX. (Polozka KLIC NUMERIC,5).
Tabulku naplnim ani ne 1000 zaznamy.
Potom dam SQL
select * from tabulka where KLIC=309
Vyber trva asi 10 sekund.
Dalsi pokus. Vytvorim tabulku, ale bez indexu.
Znovu ten samy select.
VYBER PROBEHNE OKAMZITE.
Nevite nekdo kde muze byt zakopany pes.
Dekuji
BDE 5.01, Delphi 5 Prof.FB nebo BDE
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.10.2001 07:27:42
> > Taky je dobre napsat to "jakoby" pod SQL, tedy
> ^^^^^^^^^^^^^^^^^
> > nepouzivat tabulky a DataAware pro primou editaci uzivatelem, ale
> > nacist mu udaje do nejakeho editu a pak to najednou zapsat
> > Table.Edit(Insert) Table.FieldByName('pole').AsNeco := Neco;
> ^^^^^^^^^^
> > Table.Post; Tenhle pristup ti usetri 80% problemu.
> ^^^^^^^^^^^
> obavam se, ze Ti moc nerozumim, "jakoby" pod SQL bych si
> predstavoval --> TQuery
Aplikace psane pro Paradox s pomoci TTable jsou obvykle psany
zpusobem, ktery neni dobre pouzit pri praci s SQL serverem. O
tom tady v konferenci bylo uz hodne povidani. Proto se obecne
doporucuje, pri prevodu paradoxi aplikace na SQL server, aplikaci
zgruntu prepsat. Jinak se muze snadno stat, ze aplikace bude
hodne lina a bude nemistne zatezovat server, nemluve o moznosti
prenest cast aplikacni logiky na server (ulozene procedury apod.),
coz muze napr. znacne omezit mnozstvi dat zbytecne
prenasenych po siti a zajistit dalsi vyhody.> BTW. Nereaguji proto, abych si 'rypnul', ale spise by mne zajimal
> nazor znalcu IB/FB na pouziti komponenty TIBTable.
Muj nazor je negativni. Na SQL serveru mi prijde prirozene pouzivat
SQL jazyk primo, pod svou kontrolou, nez pouzivat "cernou skrinku"
IBTable, na kterou sice nepotrebujes SQL a "vse funguje tak nejak
samo", ale je otazka, jaka za tim stoji rezie a efektivita.
Mam napr. pocit, ze Table vzdy pracuje se vsemi sloupci dane
tabulky, takze pokud Te vetsina sloupcu nezajima, muzes je pod
Table mit neviditelne, ale stale jsou soucasti dotazu - musi se jimi
zabyvat server, jejich obsah tahat zbytecne po siti...
David Lebeda
Porovnanie poli, WAS: FB - CURSOR, ...WHERE IN (SE
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 29.10.2001 07:40:28
> IB pozna NOT, ale problem je ten isty ako pri porovnani poli, kde
> (Null=Null) nie je TRUE ale Null. Preto aj vyhodnotenie
> vyrazu IF(NOT(Null))
> da ten isty vysledok ako IF(Null)... snad som sa vyjadril jasne.
ne tak docela. IS NULL a IS NOT NULL je SQL konstrukce urce prave ke
zjisteni hodnoty null a vraci true / false.
takze IF (neco IS NULL) then je zcela legalni. IF (neco = null) then
opravdu nelze.Porovnanie poli, WAS: FB - CURSOR, ...WHERE IN (SE
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.10.2001 07:55:23
> > Podle mne staci proc by to nestacilo ?
> > Jedine ze by ib neumela not. :-((
> > IF(not (.....
>
pole, ktera se zmenilo:
(old.pole <> new.pole) or (old.pole is null and new.pole is not null)
or (old.pole is not null and new.pole is null)
pole ktere se nezmenilo
(old.pole = new.pole) or (old.pole is null and new.pole is null)
To opravdu nejsou vzajemne negace a lip to asi nejde. Zatimco
vyrazy s is null se odehravaji v dvojhodnotove logice, vyraz s
rovnitkem resp. nerovnitkem nikoli, proto nelze pouzit obycejnou
negaci. Jde i o to, ze
null or True = True, z cehoz vychazeji sestavene podminky, zatimco
po negaci by se podle de Morganovanych zakonu staly z oru andy
a bohuzel
null and cokoli nikdy nemuze dat True vysledek, coz je v ifu jaksi
potreba.
David Lebeda
Porovnanie poli, WAS: FB - CURSOR, ...WHERE IN (SE
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 29.10.2001 08:10:29
Asi ne, nebot vysledek porovnani je pouze true/false, zvalste
pokud se ptate is null.
Slavek
>
> > Podle mne staci proc by to nestacilo ?
> > Jedine ze by ib neumela not. :-((
> > IF(not (.....
>
> IB pozna NOT, ale problem je ten isty ako pri porovnani poli, kde
> (Null=Null) nie je TRUE ale Null. Preto aj vyhodnotenie vyrazu IF(NOT(Null))
> da ten isty vysledok ako IF(Null)... snad som sa vyjadril jasne.
>
> Pavol Stolc
> pstolc(zv)sc.sknet.sk
>
>
> Stored procedure
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 29.10.2001 09:04:30
Proc? Staci Select (zv)Dur=duration From.... Jenom se musi dat pozor na to,
aby se vracela pouze jedna hodnota.
Radim
> Tak to jedine pres sp_executesql. Ta umoznuje i tebou
> pozadovane navraceni parametru. Prostuduj si BOL, je to fakt
> mocna zalezitost (ta procedura :o).
>
> Keep mailing :-)
> =======================
> Ing. Hynek Svato#
> svatos(zv)kam(tec)czu(tec)cz
> hynek.svatos(zv)atlas(tec)cz
> =======================
>
> > EXEC('SELECT '+(zv)Dur+' = duration from '+(zv)TabName+'
> > WHERE
> > CallID='+(zv)ID+'')
> >
> > No chcel by som, aby v premennej Dur som mal hodnotu
> stlpca duration
> > z tabulky TabName
>
> Casove limitovana aplikace
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 29.10.2001 09:05:11
Aplikace, na ktere pracuji by mela byt casove limitovana, tj. do urciteho
data plne funkcni, potom naopak nefunkcni s hlasenim o expiraci. Poradi mi
nekdo zpusob realizace, ktery nejde jednoduse prekonat napr. zmenou
kaledarniho data?
Ing. Jan Dvorak
FB nebo BDE]
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 29.10.2001 09:21:22
From: "Erik Salaj" <winsoft(zv)stonline.sk>
> > "Moj drahy" (ako by povedala Ann Harrison), v case ked sa vyvyjala IB
bol
> > disk o velkosti 4MB extremne velky a RAM o velkosti 1MB bola bomba :))
> > Osobne som videl behat IB na 286-ke (XT bol extrem) a chodila lepsie nez
> si
> > dokazes predstavit.
>
> lenze tie casy su uz davno prec
>
> Erik
To je fakt :))
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
SQL Error
[*] <kuchar(zv)unicodesys(tec)cz> - 29.10.2001 09:31:14
caute,
do tabulky MSSQL 7 pridavam pres komponentu STOREDPROC data z tab1 do tab2,
nekdy se ale stane ze tab2 ma mene sloupecku nez tab1 a tehdy mi to zarve
chybu o neexistujicim sloupecku asi v teto podobe :
----------------------------------------------------------------------------
-------------
Project XXX.exe raised exception class EDBEngineError with messaage 'Invalid
field name.
[Microsoft][ODBC SQL Setver Driver][SLQ server] Invalid column
name......atd.
----------------------------------------------------------------------------
-------------
da se tato hlaska nejak preves do textove podoby a zapsat do souboru ? v
helpu jsem nasel ze
EDBEngineError ma vlastnost message, ale nevim jak to pouzit.
DIK
SQL Error
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 29.10.2001 09:35:56
Ahoj,
Try
....
....
StoredProc1.ExecSQL;
....
Except
On E : Exception
do ShowMessage(E.Message);
End;
Ales
> -----Original Message-----
> From: kuchar(zv)unicodesys(tec)cz [mailto:kuchar(zv)unicodesys(tec)cz]
> -------------
> da se tato hlaska nejak preves do textove podoby a zapsat do
> souboru ? v helpu jsem nasel ze EDBEngineError ma vlastnost
> message, ale nevim jak to pouzit.OT: Kolik programatoru ma DVD mechaniku?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.10.2001 09:47:27
Ahoj,
> He-he, a to by ma velmi zaujimalo co chystas, ked uz mame odpovedat?
*****Zatim nemohu prozradit nic konkretniho. Rekneme, ze jsou
veci, ktere se jiz na jedno, dve... CD nevejdou a je vhodne je tedy
dat na DVD. Protoze se jedna o cilove zamerenou skupinu, ptam si
primo v ni. :-) Az nastane ten spravny cas, poslu sem samozrejme
konkretni informace (prave v horizontu toho cca pulroku).
Doufam, ze to takto staci.
Jeste jednou diky vsem za odpovedi i podporu. :-)
Slavek
> Kakacka Pavol
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Casove limitovana aplikace
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2001 09:47:42
Pri kazdem spusteni aplikace si zapsat datum a cas a kontrolovat pri
pristim spusteni. Pokud je mensi nez zapsane, bylo manipulovano s
datumem nebo casem
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
29.10.2001 Jan Dvorak:
> Aplikace, na ktere pracuji by mela byt casove limitovana, tj. do urciteho
> data plne funkcni, potom naopak nefunkcni s hlasenim o expiraci. Poradi mi
> nekdo zpusob realizace, ktery nejde jednoduse prekonat napr. zmenou
> kaledarniho data?
> Ing. Jan Dvorak
syntaxe funkce
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 29.10.2001 09:48:12
Funkci ChangeFileExt najdes v SysUtils. Pokud se podivas do helpu, tak jsou
tam dalsi funkce pro praci se jmeny souboru (file name utilities).
Martin Ben
Casove limitovana aplikace
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 29.10.2001 09:52:24
From: "Jan Dvorak" <dvorak(zv)szu(tec)cz>
> Aplikace, na ktere pracuji by mela byt casove limitovana, tj. do urciteho
> data plne funkcni, potom naopak nefunkcni s hlasenim o expiraci. Poradi mi
> nekdo zpusob realizace, ktery nejde jednoduse prekonat napr. zmenou
> kaledarniho data?
> Ing. Jan Dvorak
Par krat sa tu preberalo, ja som o tiez riesil, ale nieco take nema vyznam
riesit "nezlomitlne". Jednak to nevyriesis, jednak to vzdycky pojde prekonat
a jednak 99% uzivatelov si to radsej stiahnu z netu nez aby sa v tom mali
vrtat. Takze si myslim ze sa staci dotazovat na cas v PC a na cas exe suboru
nejak to dat spolu do suvislosti a mat to hotove za par minut.
(Neprekonatelny (citaj "tazsie prekonatelny") je iba HW kluc)
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Remote time
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 29.10.2001 09:56:22
Zdravim,
nevite nekdo jak zjistim aktualni cas na jinem pocitaci (IP popripade jmeno
znam).
Diky
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.292 / Virov� b�ze: 157 - datum vyd�n�: 26.10.2001
Stored procedure
[*] Lubo Fule <fule(zv)ekosoft.sk> - 29.10.2001 10:04:35
> Proc? Staci Select (zv)Dur=duration From.... Jenom se musi dat pozor na to,
> aby se vracela pouze jedna hodnota.
Asi si si nevsimol, ze povodny autor chce dynamicky zadavat meno tabulky,
ktorej sa "selectuje", takze dotaz musi najprv dynamicky "poskladat" a potom
ho vykonat.
L.
>
> > Tak to jedine pres sp_executesql. Ta umoznuje i tebou
> > pozadovane navraceni parametru. Prostuduj si BOL, je to fakt
> > mocna zalezitost (ta procedura :o).
ZEOS komponenty obecny dotaz
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 29.10.2001 10:59:44
Dne 27.��jen�2001, <delphi-l(zv)clexpert(tec)cz> napsal:
> > btw. s IB6 me nefunguji polozky NUMERIC, jedine co z nich vidim je
> 'Overflow'
> > :-(( a pokud vim, tak hlavni autor od tohoto projektu odesel a predal jej
> nekomu
> > jinemu /skupine/, posledni verze je tusim z cervence...
>
> ad NUMERIC: mozna je to tenhle fix z Bety 5: Fixed Interbase BCD field type
> support.
Tenhle fix to neresi, ptal jsem se na to i v ZeosDBO listu a zadna
odpoved...
Roman
______________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
FB nebo BDE
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 29.10.2001 11:01:47
Pouzit TTable mne ani nenapadlo. Standardne pouzivam TQuery a vsechnu DB
logiku se snazim davat do DataModule nebo na server (stored procedure).
Myslim si, ze SQL mi pri pristupu k datum dava nad nimi temer 100% kontrolu
a navic volnost, kterou mi primy pristup k tabulkam neda. I kdyz v pripade
dobre udelanych pohledu (view) bych pro pouhe zobrazeni dat nezavrhoval ani
TTable.
Martin Ben
-----Puvodni zprava-----
Od: Jaroslav Uher [mailto:moravia(zv)mbox.vol(tec)cz]
Table.Edit(Insert) Table.FieldByName('pole').AsNeco := Neco;
^^^^^^^^^^
> Table.Post; Tenhle pristup ti usetri 80% problemu.
^^^^^^^^^^^
obavam se, ze Ti moc nerozumim, "jakoby" pod SQL bych si
predstavoval --> TQuery Update na SQL tabulkou
[*] <kuchar(zv)unicodesys(tec)cz> - 29.10.2001 11:07:44
caute,
predstavte si nekolik tabulek, radove 50, v kazde z nich je nekolik sloupcu
obsahujicich hodnotu datetime, v kazde z nich se ty prislusne sloupce
jmenuji jinak, v nekterych zaznamech neni datum vyplnen a pri prevodu si
MSSQL priradil nasledujici datum : '1899-12-30 00:00:00.000', no a ja
bych ted potreboval slozit jeden univerzalni update ktery by presel vsechny
sloupce a vsechny zaznamy v prislusne tabulce a tento skaredy datum prevedel
na hodnotu NULL, dotaz by mel byt ale univerzalni, tj. abych do nej nemusel
zadavat nazev sloupecku obsahujici datum
DIK
Pouziti soboru jinou aplikaci
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 29.10.2001 11:20:19
Dekuji vsem, kdo odpovedeli na muj dotaz. Problem byl v jine oblasti: Zalezi
predevsim na zpusobu jakym jiny program soubor otevre. Pro zkouseni jsem
pouzival zobrazeni dat ze souboru prohlizecem Window Commander, pripadne
jejich editaci pomoci Notebook spusteneho z Window Comm. Ani jedna tato
aplikace neotevre soubor s 'vyhradnimi' pravy, takze je mozne soubor dokonce
smazat aniz by neco zaprotestovalo. MS Word otevre soubor korektne a potom
funguji vsechny zde doporucene postupy.
Ing. Jan Dvorak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vaclav Sazima
> Sent: Friday, October 26, 2001 5:22 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Pouziti soboru jinou aplikaci
>
>
> Ahoj,
> > > Pro zjisteni, zda je soubor ktery chci zapsat pouzivan jinou
> aplikaci jsem
>
> ja bych to zkusil takhle
> try
> F := TFileStream.create (FileName,fmOpenReadWrite or
> fmShareExclusive);
> F.Free;
> except
> on EFOpenError do //je pouzivan anebo neexistuje
> end;
>
> >jak takovou vec udelat v pascalu?
>
> snad takhle :
> assign (F,FileName);
> filemode := fmOpenReadWrite or fmShareExclusive // ale v DOSU se ty
> konstanty jmenujou nejak jinak
> {$I-}
> reset (F);
> if IOResult <> 0 then //je pouzivan anebo neexistuje
> else
> begin
> close (F); E := IOResult;
> end;
> {$I+}
>
> Vaclav Sazima
FB nebo BDE
[*] Anton�n �ez�� - 29.10.2001 11:41:14
----- Original Message -----
From: "Kaka�ka Pavol" <kakacka(zv)proca(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 29, 2001 9:21 AM
Subject: Re: RE: FB nebo BDE]> From: "Erik Salaj" <winsoft(zv)stonline.sk>
> > > "Moj drahy" (ako by povedala Ann Harrison), v case ked sa vyvyjala IB
> bol
> > > disk o velkosti 4MB extremne velky a RAM o velkosti 1MB bola bomba :))
> > > Osobne som videl behat IB na 286-ke (XT bol extrem) a chodila lepsie
nez
> > si
> > > dokazes predstavit.
> >
> > lenze tie casy su uz davno prec
> >
> > Erik
>
> To je fakt :))
>
> Kaka�ka Pavol
> KasiX(zv)atlas(tec)cz
zas tak uplne nejsou. Prave ted resim problem, jakou DB pouzit pro novou
verzi SW. Strara beha na DOS + NOVELL + Btrieve. Nova na Win + NT Server +
?? , ale na stavajicim HW (tezko asi presvedcim zakaznika, aby vyhodil
nekolik set masin s Cyrix 5x86 na 100Mhz s 16MB RAM - uspech bude par MB RAM
navic). Jo, a ta DB musi byt schopna mimo sitoveho provozu (5-25 stanic) i
lokalniho provozu na uvedenem HW. A hlavne, musi byt stejne rychla.
Vojta Rezac
Update na SQL tabulkou
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 29.10.2001 11:49:44
declare
(zv)table sysname,
(zv)field sysname
declare CR cursor for
select o.name, c.name from systypes t, syscolumns c, sysobjects o
where t.name = 'datetime'
and t.xtype = c.xtype
and c.id = o.id
and o.type = 'U'
open CR
fetch next from CR into (zv)table, (zv)field
while ((zv)(zv)FETCH_STATUS <> -1) begin
if ((zv)(zv)FETCH_STATUS <> -2)
exec('update ' + (zv)table + ' set ' + (zv)field + ' = null where ' + (zv)field + ' = ''1899-12-30 00:00:00.000''')
fetch next from CR into (zv)table, (zv)field
end
close CR
deallocate CR
Marek Muller
-----Original Message-----
predstavte si nekolik tabulek, radove 50, v kazde z nich je nekolik sloupcu
obsahujicich hodnotu datetime, v kazde z nich se ty prislusne sloupce
jmenuji jinak, v nekterych zaznamech neni datum vyplnen a pri prevodu si
MSSQL priradil nasledujici datum : '1899-12-30 00:00:00.000', no a ja
bych ted potreboval slozit jeden univerzalni update ktery by presel vsechny
sloupce a vsechny zaznamy v prislusne tabulce a tento skaredy datum prevedel
na hodnotu NULL, dotaz by mel byt ale univerzalni, tj. abych do nej nemusel
zadavat nazev sloupecku obsahujici datum
Cipher 3.0 ?
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 29.10.2001 12:02:36
> alias Delphi Encryption Compendium 3.0 - je to spr�vn� volba?
>
> Chystam vyuziti:
> - hash: RipeMD320
> - sifrovani: Rijndael
> - random: LFSR (Linear Feedback Shift Register)
Pouzivam je, prijde mi to jako velmi dobra volba v kategerii "kryptovani
zdarma". Na jediny problem jsem narazil p�i pouziti pod Delphi 6, kde
doslo k chybe p�i kompilaci (v assembleru), ale podle me slo o chybu
kompilatoru, "nejak" jsem to opravil/oprasil, doufam ze dobre. S novym
updatem jsem to netestoval, t�eba to pujde prelozit primo.
Ales
Remote time
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 29.10.2001 12:50:04
> nevite nekdo jak zjistim aktualni cas na jinem pocitaci (IP
> popripade jmeno znam).
Cau,
mozes pouzit funkciu NetRemoteTOD z netapi32.dll, napr.:
type
PTODInfo = ^TTODInfo;
TTODInfo = record
ElapsedTime : Integer; {number of seconds since 00:00:00 January 1,
1970}
Milliseconds : Integer; {number of milliseconds since last system reset}
Hours : Integer; {current hour (0-23)}
Minutes : Integer; {current minute (0-59)}
Seconds : Integer; {current second (0-59)}
Hunds : Integer; {current hundredth of a second (0-99)}
TimeZone : Integer; {time against GMT in minutes}
{west of Greenwich gives positive, east negative values}
{value of -1 means undefined time zone}
Interval : Integer; {clock tick interval in ten-thousandth of a second
(0.0001 s)}
Day : Integer; {day of the month (1-31)}
Month : Integer; {month of the year (1-12)}
Year : Integer; {year}
Weekday : Integer; {day of the week (0-6) 0 = Sunday, 1 = Monday etc.}
end;
const
netapi32 = 'netapi32.dll';
function NetApiBufferFree(Buffer : Pointer) : Integer; stdcall;
function NetRemoteTOD(UNCServerName : PWideChar; Info : Pointer) : Integer;
stdcall;
function ServerTime(const UNCServer : String; var Stamp : TDateTime) :
Integer;
implementation
function NetApiBufferFree; external netapi32 name 'NetApiBufferFree';
function NetRemoteTOD; external netapi32 name 'NetRemoteTOD';
function ServerTime(const UNCServer : String; var Stamp : TDateTime) :
Integer;
var
ServerName : PWideChar;
tod : PTODInfo;
Year, Month, Day, Hour, Min, Sec, MSec : Word;
begin
GetMem(ServerName, (Length(UNCServer) + 1) * SizeOf(WideChar));
try
ServerName := StringToWideChar(UNCServer, ServerName, Length(UNCServer)
+ 1);
Result := NetRemoteTOD(ServerName, (zv)tod);
if Result = 0 then
begin
try
Year := tod^.Year;
Month := tod^.Month;
Day := tod^.Day;
Hour := tod^.Hours;
Min := tod^.Minutes;
Sec := tod^.Seconds;
MSec := tod^.Hunds * 10;
if tod^.TimeZone = -1 then {undefined timezone}
Stamp := EncodeDate(Year, Month, Day) +
EncodeTime(Hour, Min, Sec, MSec)
else
Stamp := EncodeDate(Year, Month, Day) +
EncodeTime(Hour, Min, Sec, MSec) - (tod^.TimeZone / 1440);
finally
NetApiBufferFree(tod);
end;
end;
finally
FreeMem(ServerName);
end;
end;
Funkcia ServerTime vrati return code z NetRemoteTOD, co by v pripade uspechu
malo byt 0, inak chybovy kod. Parameter UNCServer by mal obsahovat UNC meno
servera, napr. '\\MYSERVER', v pripade prazdneho stringu to berie cas z
lokalneho stroja.
HTH
TOndrej
FB nebo BDE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 29.10.2001 13:11:50
On 29 Oct 2001 at 11:41, Anton�n �ez�� wrote:
> zas tak uplne nejsou. Prave ted resim problem, jakou DB pouzit pro
> novou verzi SW. Strara beha na DOS + NOVELL + Btrieve. Nova na Win +
> NT Server + ?? , ale na stavajicim HW (tezko asi presvedcim zakaznika,
> aby vyhodil nekolik set masin s Cyrix 5x86 na 100Mhz s 16MB RAM -
> uspech bude par MB RAM navic). Jo, a ta DB musi byt schopna mimo
> sitoveho provozu (5-25 stanic) i lokalniho provozu na uvedenem HW. A
> hlavne, musi byt stejne rychla.
Tak napis aplikaci jako intranetovou, zakaznik si koupi pouze poradny server, a stanice dostanou
data pres prohlizec. Jeste nejaky problem?
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Stored procedure
[*] J�n Drot�r - 29.10.2001 13:11:03
problem je v tom, ze nazov tabulky je parameter,
----- Original Message -----
From: "Radim Hampel" <hampel(zv)ecommerce(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 29, 2001 9:04 AM
Subject: RE: Stored procedure
> Proc? Staci Select (zv)Dur=duration From.... Jenom se musi dat pozor na to,
> aby se vracela pouze jedna hodnota.
>
> Radim
>
> > Tak to jedine pres sp_executesql. Ta umoznuje i tebou
> > pozadovane navraceni parametru. Prostuduj si BOL, je to fakt
> > mocna zalezitost (ta procedura :o).
> >
> > Keep mailing :-)
> > =======================
> > Ing. Hynek Svato#
> > svatos(zv)kam(tec)czu(tec)cz
> > hynek.svatos(zv)atlas(tec)cz
> > =======================
> >
> > > EXEC('SELECT '+(zv)Dur+' = duration from '+(zv)TabName+'
> > > WHERE
> > > CallID='+(zv)ID+'')
> > >
> > > No chcel by som, aby v premennej Dur som mal hodnotu
> > stlpca duration
> > > z tabulky TabName
> >
> >
>Neco na AT prikazy
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 29.10.2001 13:54:53
Zdravim,
lidi prosim vas, nemate nekdo funkci kus kodu (zdrojak, zkompilovanou
jednotku nebo dll), ktery umi komunikovat pomoci AT prikazu? Mam tim na
mysly neco, co bude mit funkci pro otevreni portu, zavreni a funkci, ktere
zadam retezec, ta ho posle a vrati mi retezec s odpovedi.
Potrebuju rychle udelat jednoduchou utilitku k telefonu a bohuzel nemam
dostatek casu se zabyvat samotnou komunikaci.
Stahnul jsem si komponentu SynaSer, kde je primo funkce ATCommand, ale
bohuzel to obcas tuhne nebo se neprenese cela odpoved.
Diky
Petr
lepsi StringGrid
[*] tomsir1.edu(zv)mail.cez(tec)cz - 29.10.2001 14:01:27
Ahoj, hledam nejakou free komponentu like StringGrid, ktera mimo jine
umoznuje klik na fixed rows a cols /pokud mozno vcetne zamacknuti bunky / a
moznost barevneho odliseni radku/sloupcu ... tj. ruznou barvu pro ruzne
bunky ...
Dikz Radek
RxLib
[*] tomsir1.edu(zv)mail.cez(tec)cz - 29.10.2001 14:12:12
nemate nekdo nahodou na disku RxLib .. ?? snazil jsem se to stahnout z
www.rxlib.com, ale ty www nejsou funkcni :O((
soubor prosim na : drag(zv)seznam(tec)cz
Diky Radek
Neco na AT prikazy
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.10.2001 14:24:15
> From: Da�a Petr
>
> lidi prosim vas, nemate nekdo funkci kus kodu (zdrojak, zkompilovanou
> jednotku nebo dll), ktery umi komunikovat pomoci AT prikazu? Mam tim na
> mysly neco, co bude mit funkci pro otevreni portu, zavreni a funkci, ktere
> zadam retezec, ta ho posle a vrati mi retezec s odpovedi.
> Potrebuju rychle udelat jednoduchou utilitku k telefonu a bohuzel nemam
> dostatek casu se zabyvat samotnou komunikaci.
> Stahnul jsem si komponentu SynaSer, kde je primo funkce ATCommand, ale
> bohuzel to obcas tuhne nebo se neprenese cela odpoved.
Ja SynaSer pouzivam a celkem bez problemu.
Pro konektovani pouzivam toto:
BlockSerial := TBlockSerial.Create;
BlockSerial.Connect('COM4', 115200, 8, 'N', 1, false, true);
BlockSerial.EnableRTSToggle(True);
Myslim, ze bez toho posledniho radku to delalo to,
co popisujes.
Pro vlastni cteni pak pouzivam nekolik pokusu,
abych eliminoval nahodne chyby:
function GetAtLine(AtString: string): string;
var S: String;
i,c: integer;
begin
Result := ''; c := 0;
repeat
S := BlockSerial.ATCommand(AtString);
if S <> '' then
begin
i := Pos(#13#10'OK'#13#10, S);
if i > 0 then
begin
S := copy(S, 1, i-1);
i := Pos(#13#10, S);
if i > 0 then S := copy(S, 1, i-1);
Result := S;
Break;
end;
end;
Inc(c);
until c > 5;
end;
Vaclav Krmela
Unit - proc?
[*] Volny <valentapat(zv)volny(tec)cz> - 29.10.2001 14:25:46
to sem samozrejme zkousel a neprelozi to taky.
----- Original Message -----
> vyhodit si slovicko TYPE :)
> > Udelal sem si
> > Unit MyMessage; // obsahuje jen jednu funkci
> > uses .....
> >
> > Interace
> > Type
> > ***** Neco=class(...)
> > Function DefMessageDlg(......): integer // z 1001 tipu
> >
> > implementation
> > Function DefMessageDlg(......): integer // z 1001 tipu
> > begin
> > ......
> > end;
> >
> > proc tam musi byt ta deklarace class ? nerozumim tomu, stejne ji nanic
> > nepotrebuji. Ale bez ni mi to neprelozi.
>
>
> IB/FB problem s Update u SP
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 29.10.2001 15:07:05
Ahoj,
IB/FB 1.0.0.338, D5P, IBX, W98
v tabulce mam definovane pole NAZEV typu VARCHAR(20)
CHARACTER SET WIN1250
a SP Update_Tablexxx
pri volani teto SP s uvedenym parametrem
with IBStoredProcCslSklad.Params.CreateParam(ftString, 'NAZEV',
ptInput) do AsString := 'blabla';
dostanu chybovou hlasku :
conversion error from string "blabla"
Pokud provedu Update mimo SP pomoci
IBQueryTmp.Close;
IBQueryTmp.SQL.Clear;
IBQueryTmp.SQL.Add('UPDATE CSLSKLAD');
IBQueryTmp.SQL.Add('SET CSLSKLADU = :CSLSKLADU, NAZEV
= :NAZEV');
IBQueryTmp.SQL.Add('WHERE ID_SKLAD =
'+IntToStr(Current_ID));
IBQueryTmp.ParamByName('CSLSKLADU').AsInteger :=
EditCslSkladu.AsInteger;
IBQueryTmp.ParamByName('NAZEV').AsString := EditNazev.Text;
IBQueryTmp.ExecSQL;
je vsechno OK.
Muzete mi, prosim poradit jaky typ TFieldType bych mel pouzit, aby
byl kompatibilni s VARCHAR ?
Nebo mam chybu nekde jinde ?
U Insertu pres SP se stejnymi parametry se provede vse bez
problemu.
Dekuji a preji hezky den,
Jarek Uher
Vzdy primarni
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 29.10.2001 15:10:30
Jak mam provest, aby moje aplikace byla vzdy navrchu a za zadnych
okolnosti nepustila nahoru jinou aplikaci i kdyby mela prioritu 200%.
Chci vytvorit ochranny system. Diky DKx
SINEA - sestava do souboru; Data z TADODatasetu do
[*] Radek Ku�era <raku(zv)foresta(tec)cz> - 29.10.2001 15:26:08
Dobry den,
pouzivam WinNT,D3,D4, Adonis, MSSQL.
1.) prosim o radu, zda jde vytvorena sestava v SINEA generatoru zapsat do
souboru. Tedy nejen predloha, ale hlavne data, ktere predhodim sestave.
Pouzivam TADODataset.
Predstavuji si nejakou podobnou metodu jako: Sestava1.PrintTo
2.) Kdyz mam otevreny TADODataset a chci data ulozit do souboru XLS, TXT,
... pak bych chtel vedet, zda jde pouzit neco podobneho, jak jsem vycet z
FAQ k Adonisu:
ADODataSet.SaveADTG('c:\myfile.adtg'); ... ulozi data do ADTG souboru,
podobne lze ulozit data do XML souboru. Kdyz chci vsak jiz naplneny
ADODataset do XLS, pak jsem vycet pouze toto:
Q3.5. How do I export MS Access table into an Excel file?
ADODatabase.ExecSQL('SELECT * INTO MySheet IN "c:\MyFile.xls" "Excel
8.0;" FROM MyTable');
Jenomze ja jiz mam naplnen ADODataset (slozite predem, nez se uzivatel
rozhodne exportovat data do souboru). Pak jsem zkusil aplikovat tento
priklad na MSSQL a stejne mne to nechodi (syntax error near IN...).
Predem dekuji za prispevky
Radek Ku�era
paleta bitmapy
[*] Martin Kolos <koki(zv)monoceros.physics.muni(tec)cz> - 29.10.2001 15:26:05
ahoj
hm tak problem je asi nekde jinde, nebot jako samostatna procedura to
funguje, kdezto po zacleneni do programi jiz ne. (vytvori se filove pruhy
jako dosledek nulovych hodnot zelene slozky palety)
nevite nekdo jestli existuje moznost ulozeni barevne palety do souboru a
jakym zpusobem se pak prirazuje k bitmape?
on je totiz rozdil jestli ji natvrdo prepisu ja (treba pomoci streamu) a
nebo kdyz paletu priradi 'system', kdy jeste preindexuje data podle
podobnosti barev na palete...
dik martin
2001 Oct 25 od �. 46 Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz
Ahoj,
tvou ukazku jsem malicko rozsiril a zda se, ze takhle to funguje dobre :
procedure TForm1.Button1Click(Sender: TObject);
var
pal: PLogPalette;
hpal: HPALETTE;
i: Integer;
Bitmap : TBitmap;
ScanLine : array [0..255] of byte;
begin
Bitmap := TBitmap.create;
Bitmap.Width := 256;
Bitmap.Height := 256;
BitMap.PixelFormat := pf8bit;
pal := nil;
try
GetMem(pal, sizeof(TLogPalette) + sizeof(TPaletteEntry) * 255);
pal.palVersion := $300;
pal.palNumEntries := 256;
for i := 0 to 255 do
begin
pal.palPalEntry[i].peRed := i;
pal.palPalEntry[i].peGreen := i;
pal.palPalEntry[i].peBlue := i;
end;
hpal := CreatePalette(pal^);
if hpal <> 0 then
Bitmap.Palette := hpal;
for I := 0 to 255 do ScanLine [I] := I;
for I := 0 to 255 do move (ScanLine,Bitmap.ScanLine [I]^,256);
bitmap.savetofile ('c:\temp\pokus.bmp');
image1.picture.assign (Bitmap);
finally
FreeMem(pal);
Bitmap.Free;
end;
end;lepsi StringGrid
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 29.10.2001 15:26:58
Zkus gridy od TMS - pro nekomercni uziti jsou free
http://www.tmssoftware.com
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: <tomsir1.edu(zv)mail.cez(tec)cz>
Sent: Monday, October 29, 2001 2:01 PM
> Ahoj, hledam nejakou free komponentu like StringGrid, ktera mimo jine
> umoznuje klik na fixed rows a cols /pokud mozno vcetne zamacknuti bunky /
a
> moznost barevneho odliseni radku/sloupcu ... tj. ruznou barvu pro ruzne
> bunky ...Ako na InterBase cez WWW
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 29.10.2001 15:29:41
Zdravim Vas,
chcel by som Vas poziadat o vseobecne "dobre mienene rady a skusenosti" na
temu
pristupu k IB cez WWW.
Sucasny stav:
"Pomerne hruby" klient napisany v Delphi (IBX, prip. BDE:-)
SQL DB - InterBase
U klienta www server IIS.
Potreboval by som urobit "co najtensieho klienta" - bez instalacie na
lokalnu stanicu,
najlepsie cez www (Intranet s nasadenym MS IE5) tak,
aby mohol "takmer" ktokolvek pristupovat k urcitej velmi obmedzenej palete
funkcii programu.
Napada ma pouzitie PHP pod IIS - vraj existuje nejaky plug-in?
S pristupom do IB. Ako pristupuje PHP4 k IB (na Win32 a prip. na Linuxe).
Pripadne Java - aplet, servlet...
Ako je to s apletmi pri pripajani sa na vzdaielene SQL DB?
Existuje JDBC pre IB?
Jaro
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.286 / V�rusov� datab�za: 152 - d�tum vydania: 9. 10. 2001
IB/FB problem s Update u SP
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 29.10.2001 15:33:51
volam SP nejak takto:
procedure TFImportAK.Button11uClick(Sender: TObject);
var
p: TIBStoredProc;
begin
p:=TIBStoredProc.Create(Self);
try
p.Database:=FDM.IBDatabase1;
p.Transaction:=FDM.IBTransaction1;
p.StoredProcName:='SETAKCIONAR';
p.Prepare; // po prepare jsou params pripravene
p.Params[0].Value:=Null; // cokoliv co potrebujes
// melo by jit i .AsString, .AsInteger....
p.ExecProc;
p.Transaction.Commit;
finally
p.Free;
end;
end;
v pohode, vystrizeno z funkcni procedury.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Neco na AT prikazy
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 29.10.2001 15:46:09
No, zkousel jsem s tim laborovat, ale vypada to, ze je to jeste horsi :-(
Puvodne jsem mel nastaveni COM4, 115200, 8, N, 0, false, false.
To aspon trochu fungovalo, ale obcas do neprecetlo vsechny data.
Pak jsem to zkusil nastavit podle nize uvedeneho a v odpovedi bylo furt
ERROR (taky jsem zkousel ruzne jine nastaveni).
Navic (pri jakemkoliv nastaveni) se nejak divne chova spojeni/odpojeni.
Nejak totalne vytuhava cela aplikace a nejde ani sestrelit. Po nejakem
(dlouhem) case se to vypne. Pritom ikona spojeni ukazuje, ze jsem odpojenej.
Tak nevim :-/ Zatim to resim tak, ze data stahnu Hyperterminalem a pak je
pouziju v tom mojem programku, ale to je samozrejme totalni vopruz :-(
Tak a jsem tam kde jsem byl.
(W2000, D5Prof, R520m)
Petr
> Ja SynaSer pouzivam a celkem bez problemu.
> Pro konektovani pouzivam toto:
>
> BlockSerial := TBlockSerial.Create;
> BlockSerial.Connect('COM4', 115200, 8, 'N', 1, false, true);
> BlockSerial.EnableRTSToggle(True);
>
> Myslim, ze bez toho posledniho radku to delalo to,
> co popisujes.
> Pro vlastni cteni pak pouzivam nekolik pokusu,
> abych eliminoval nahodne chyby:
> IB/FB problem s Update u SP
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 29.10.2001 15:57:30
Haj hou!
On 29 Oct 2001, at 15:07, Jaroslav Uher wrote:
> v tabulce mam definovane pole NAZEV typu VARCHAR(20)
> CHARACTER SET WIN1250
> a SP Update_Tablexxx
>
> pri volani teto SP s uvedenym parametrem
> with IBStoredProcCslSklad.Params.CreateParam(ftString, 'NAZEV',
> ptInput) do AsString := 'blabla';
>
> dostanu chybovou hlasku :
> conversion error from string "blabla"
>
> Pokud provedu Update mimo SP pomoci
> ...
> je vsechno OK.
Na prvni pohled: Retezec / parametr procedury je definovan bez
znakove sady, tudiz prikaz v ulozene procedure nevi, jak preves z
charset NONE na charset WIN1250 (zcela logicky). Deklaruj
parametr ulozene procedury vcetne znakove sady, tedy neco jako
CREATE PROCEDURE UpdateTableXXX (NAZEV VARCHAR(20)
CHARACTER SET WIN1250, dalsi)parametry...)...
Hodne zdaru
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
SINEA - sestava do souboru; Data z TADODatasetu do
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.10.2001 16:02:50
> From: Radek Ku�era
>
> 1.) prosim o radu, zda jde vytvorena sestava v SINEA generatoru zapsat do
> souboru. Tedy nejen predloha, ale hlavne data, ktere predhodim sestave.
> Pouzivam TADODataset.
> Predstavuji si nejakou podobnou metodu jako: Sestava1.PrintTo
Predpokladam, ze je myslen prosty textovy soubor.
K tomu slouzi funkce WriteToFile a WriteToStream.
Jejich deklaraci lze nalezt v unitu Sestavy.pas.
Protoze se jedna o vystup v nejakem rastru do
urciteho radkovani, je nutne, aby predloha takove
sestavy splnovala nektere predpoklady:
- rastr predlohy musi byt nastaven Znakovy
(Nastaveni sestavy / Rastr / Znakovy)
- prvky predlohy musi byt do tohoto rastru zarovnany
(popup menu / Upravy / Vyrovnat vse do rastru)
- vysky jednotlivych oddilu musi byt vyrovnany do rastru
- je vhodne, aby prvky predlohy pouzivaly neproporcionalni
pismo, nejlepe specialni fiktivni fonty Roman 10, 12
nebo 17 cpi
Pokud se dodrzi tato pravidla, nemel by byt problem
exportovat ze Siney do prosteho textoveho souboru.
Vaclav Krmela
Casove limitovana aplikace
[*] ing. V�t Jur�sek - 29.10.2001 16:07:47
ja to mam vyresene tak, ze kdyz to nainstalujes, zapises si datum a cas.
potom pri kazdem spusteni musi byt cas a datum spusteni ve vysledku pozdejsi
nez datum a cas instalace
to musis hlidat, aby ti nemohli nastavovat datum dozadu.
Kdyz napriklad produkt ma fungovat 30 dni, znamena to, ze v "databazi" muze
byt maximalne 30 datumu, vyhovujicich predchozi podmince. A vzhledem k teto
podmince si uzivatel dopredu muze stelovat s casem jak chce - jakmile se pri
spusteni 30x zmeni cislo dne, je konec a je jedno, jestli to je roku 2010
nebo 2001.
pouzite datumy ukladas do souboru a pri spousteni je kontrolujes. pokud uz
datum neni aktualni s dnesnim dnem a v dany datum nebyla aplikace spustena v
pozdejsi cas (naznacuje fixlovani s casem), aplikaci spustis.
chaosove popsane, co?
VJ
>
> Par krat sa tu preberalo, ja som o tiez riesil, ale nieco take nema vyznam
> riesit "nezlomitlne". Jednak to nevyriesis, jednak to vzdycky pojde
prekonat
> a jednak 99% uzivatelov si to radsej stiahnu z netu nez aby sa v tom mali
> vrtat. Takze si myslim ze sa staci dotazovat na cas v PC a na cas exe
suboru
> nejak to dat spolu do suvislosti a mat to hotove za par minut.
>
> (Neprekonatelny (citaj "tazsie prekonatelny") je iba HW kluc)
>
> Kakacka Pavol
>IB UDF do Linuxu
[*] Richard Kejval <kejval.delphi(zv)atlas(tec)cz> - 29.10.2001 16:29:41
Ahoj, prevadim UDF funkce do Linuxu (Red Hat 7.1), ale mam s tim necekane
problemy. Mam jednoduchou funkci na zjisteni mesice z datumu definovanou v
databazi jako:
DECLARE EXTERNAL FUNCTION F_MONTH
DATE
RETURNS INTEGER FREE_IT
ENTRY_POINT 'Month' MODULE_NAME 'IBFunction';
v Delphi pak:
Type
PIBDateTime = ^TIBDateTime;
TIBDateTime = record
Days,
MSec10 : Integer;
end;
const
MSecsPerDay10 = MSecsPerDay * 10;
IBDateDelta = 15018;
var
ResultInteger: Integer;
function Month(IBDatum: PIBDateTime):PInteger; cdecl; export;
var Datum:TDateTime;
R,M,D:word;
begin
Datum := IBDatum^.Days - IBDateDelta + IBDatum^.MSec10 / MSecsPerDay10;
DecodeDate(Datum,R,M,D);
ResultInteger := M;
Result:=(zv)ResultInteger;
end;
Pod W2000 mi tato fce normalne funguje, ale pokud funkci prelozim pod
Kylixem a databazi spustim pod Linuxem, pak mi po zavolani teto fce spadne
interbase server. Nevi nekdo v cem by mohl byt problem, uz jsem z toho pekne
na mrtvici.
Dik za kazdou odpoved
ClientSocket a Thread
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 29.10.2001 16:38:07
Potreboval bych poradit v tomto:
Mam vlakno a v nem se potrebuji navazat spojeni pomoci TClientSocket. Nejak
se mi nedari pockat na navazani spojeni se serverem (TServerSocket).
Vetsinou mi to prejde do casti kodu, kde osetruji stav bez spojeni. Nejspis
potrebuji poradne nakopnout, protoze mi to pri pondelku nejak nemysli
(Momentary Lapse Of Reason)
procedure TMyThread.Execute;
begin
while not terminate do
begin
if not FSocketClient.Active then
FSocketClient.Open; <<<<<< tady potrebuji pockat
if FSocketClient.Active then
//neco delej
else
//neni spojeni
end;
end;
Martin Ben
IB UDF do Linuxu
[*] Jarda Jirava <listuj(zv)centrum(tec)cz> - 29.10.2001 17:04:20
Nebude to treba tim, ze v Linuxu se pocita jinak cas? Mam za to
ze od roku 1970 v (mili)sekundach. Nejsem si 100% jist, ale mohlo
by to tim byt???
************* Richard Kejval
Ahoj, prevadim UDF funkce do Linuxu (Red Hat 7.1), ale mam s tim
necekane
problemy. Mam jednoduchou funkci na zjisteni mesice z datumu
definovanou v
databazi jako:
Type
PIBDateTime = ^TIBDateTime;
TIBDateTime = record
Days,
MSec10 : Integer;
end;
const
MSecsPerDay10 = MSecsPerDay * 10;
IBDateDelta = 15018;
var
ResultInteger: Integer;
function Month(IBDatum: PIBDateTime):PInteger; cdecl; export;
var Datum:TDateTime;
R,M,D:word;
begin
Datum := IBDatum^.Days - IBDateDelta + IBDatum^.MSec10 /
MSecsPerDay10;
DecodeDate(Datum,R,M,D);
ResultInteger := M;
Result:=(zv)ResultInteger;
end;
***************
Jarda
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
paleta bitmapy
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 29.10.2001 17:12:38
Ahoj
Martin Kolos wrote:
> nevite nekdo jestli existuje moznost ulozeni barevne palety do souboru a
> jakym zpusobem se pak prirazuje k bitmape?
Koukni se do Helpu na BITMAPINFOHEADER a spol. a nebo na
http://www.wotsit.org
Vaclav Sazima
ClientSocket a Thread
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 29.10.2001 17:49:06
> Mam vlakno a v nem se potrebuji navazat spojeni pomoci TClientSocket.
Nejak
> se mi nedari pockat na navazani spojeni se serverem (TServerSocket).
> Vetsinou mi to prejde do casti kodu, kde osetruji stav bez spojeni.
> if not FSocketClient.Active then
> FSocketClient.Open; <<<<<< tady potrebuji pockat
> if FSocketClient.Active then
> //neco delej
> else
> //neni spojeni
> end;
Ahoj, no ja mam obavu ze problem je niekde ide.
Funkcia OPEN totiz "caka" - to znamena ze ak je uspesna - potom ak testujem
Active tak je True !
Tam nie je miesto pre nejaku Asynchnonnu cinnost....
Skratka to OPEN sa Ti nepodari a dovodov moze byt viac...
Aspon takto to vidim tak narychlo ja.
-----------------------------
Jan Grman
janog(zv)pluto.elf.stuba.sk
ClientSocket a Thread
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.10.2001 19:15:09
> > Mam vlakno a v nem se potrebuji navazat spojeni pomoci
> > TClientSocket. Nejak se mi nedari pockat na navazani spojeni se
> > serverem (TServerSocket).
.. a az se s TClientSocketem poradne vyvztekate, tak prejdete na Indy
nebo jeste lepe na Synapsi a najednou bude hnedka o mnoho problemu mene.
:-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Progamove stahnuti posty - cekani v BATu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2001 21:36:43
From: "Jaroslav Popluhar" <delphi1(zv)acc.sk>
> takyto BAT pod W2k-SP2 mi spusti prvy notepad NA NIC NECAKA... teda zastavi
> sa az na pause
> Tiez by som potreboval cakanie na koniec, ale v BATe neviem ako na to.
Ahoj,
a je nutne to delat zrovna BATem ? Mozna ma prikaz START i nejake parametry,
kterymi to lze nastavit. Ohledne Outlook Expressu, lze v nem nastavit 'Send
and receive messages at startup', otazka k cemu to ale bude dobre, kdyz (s
vyjimkou root InBox folderu) z neho stejne zpravy programove nedostanes.
Petr Vones
ExpireDate u cookies vo WebModule
[*] Marek Agh <magh(zv)mail.risoul(tec)com.mx> - 29.10.2001 15:22:50 -0600
Caute,
robim s ISAPI WebModulom pod D4 Enterprise, W98, IE5.5, MS PSW4.0.
Vyuzivam cookies na automaticke logoutovanie userov z webu tak, ze nastavim
cookie expire date na o 5 minut neskor od posledneho requestu a ked vyprsi
(teda nic na sieti nerobi), user je povazovany za logoutnuteho (lebo mi
netreba prilis velke security).
Funguje to ale len ak ide o dostatocne neskory cas (min. 6 hodin neskor).
Ak pouzijem Expire := Now + 1/480 ( = 5 minut), cookie do PC dorazi, ale
naspat uz nechodi ziadnej stranke - zrejme vyprsalo a to hned.
TDateTime (ako typ Expires v TCookie) je Double a 1 v nom znamena jeden
den. Napriek tomu by v type Double nemalo byt 1/480 zaokruhlovane k nule,
takze neviem, kde je problem. Nerobili ste niekto s vyuzivanim cookies na
security ucely?FB nebo BDE
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.10.2001 23:43:59
> zas tak uplne nejsou. Prave ted resim problem, jakou DB pouzit pro novou
> verzi SW. Strara beha na DOS + NOVELL + Btrieve. Nova na Win + NT Server +
> ?? , ale na stavajicim HW (tezko asi presvedcim zakaznika, aby vyhodil
> nekolik set masin s Cyrix 5x86 na 100Mhz s 16MB RAM - uspech bude par MB
RAM
> navic). Jo, a ta DB musi byt schopna mimo sitoveho provozu (5-25 stanic) i
> lokalniho provozu na uvedenem HW. A hlavne, musi byt stejne rychla.
U C/S aplikacie by mal stacit slusny server, naroky na HW klientov nemusia
byt
vysoke.
Erik
Unit - proc?
[*] Volny <valentapat(zv)volny(tec)cz> - 30.10.2001 00:07:35
je to divne ale po reinstalaci pocitace -- mimo jine pro dalsi problemy vse
jede jak ma.
Diky vsem
----- Original Message -----
From: "Petr" <DelphiForum(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 31, 2001 5:39 AM
Subject: Re: Unit - proc?> Pokud by jsi svuj priklad upravil asi takto :
>
> Unit MyMessage; // obsahuje jen jednu funkci
> uses .....
>
> Interace
> Function DefMessageDlg(......): integer // z 1001 tipu
>
> implementation
> Function DefMessageDlg(......): integer // z 1001 tipu
> begin
> ......
> end;
>
> tak to musi jit.
>
> Petr Jurik, Spravce site, programator
> COMET System s.r.o.
> 1.Maje 1220
> 756 61 Roznov pod Radhostem
> tel. 0651/653990
> fax. 0651/653993
> http://www.cometsystem(tec)cz
>
> ICQ# : 119119215
>
>
> > Hello, muze mi nekdo vysvetlit proc?
> >
> > Udelal sem si
> > Unit MyMessage; // obsahuje jen jednu funkci
> > uses .....
> >
> > Interace
> > Type
> > ***** Neco=class(...)
> > Function DefMessageDlg(......): integer // z 1001 tipu
> >
> > implementation
> > Function DefMessageDlg(......): integer // z 1001 tipu
> > begin
> > ......
> > end;
> >
> > proc tam musi byt ta deklarace class ? nerozumim tomu, stejne ji nanic
> > nepotrebuji. Ale bez ni mi to neprelozi.
> >
> > e-mail : valentapat(zv)volny(tec)cz
> > ICQ: 54152896
> >
> >
> >
> >
>
>Sinea a vlastni preview
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 30.10.2001 00:15:41
> From: Roman
>
> chci si vytvorit vlastni nahledove okno sestavy Sinea. Mam nejakou hrubou
> predstavu jak na to a nasel jsem o tom i nejakou zminku v konf. u
> Siney, jenomze
> misto odpovedi tam byla priloha a ta z archivu nejak nejde vycist :-(
Princip je velice jednoduchy. Sestava nebo presneji
pozadovana stranka se ulozi ve WMF formatu do
docasneho souboru nebo jenom do Streamu a potom
se nacte a zobrazi v libovolnem objektu TImage.
Asi takto:
procedure TForm1.GotoPage(AIndex: integer);
var M: TMemoryStream;
begin
if (AIndex >= 1) and (AIndex <= FPagesCount) then
begin
FActualPage := AIndex;
M := TMemoryStream.Create;
Sestava1.WritePageToWmfStream(M, FActualPage-1);
M.Seek(0, soFromBeginning);
Image1.Picture.Metafile.LoadFromStream(M);
M.Free;
end;
end;
To je cele.
Trochu vylepseny priklad jsem umistil na
http://www.sinea(tec)cz/sinea.asp?src=download
pod oznaceni preview.zip.
V tomto prikladu je navic ukazka moznosti
exportu sestavy do formatu JPEG nebo GIF.
Vaclav Krmela
Neco na AT prikazy
[*] Erik Salaj <winsoft(zv)stonline.sk> - 30.10.2001 00:52:17
> lidi prosim vas, nemate nekdo funkci kus kodu (zdrojak, zkompilovanou
> jednotku nebo dll), ktery umi komunikovat pomoci AT prikazu? Mam tim na
> mysly neco, co bude mit funkci pro otevreni portu, zavreni a funkci, ktere
> zadam retezec, ta ho posle a vrati mi retezec s odpovedi.
> Potrebuju rychle udelat jednoduchou utilitku k telefonu a bohuzel nemam
> dostatek casu se zabyvat samotnou komunikaci.
> Stahnul jsem si komponentu SynaSer, kde je primo funkce ATCommand, ale
> bohuzel to obcas tuhne nebo se neprenese cela odpoved.
na http://www.cybermagic.co.nz/winsoft mame ComPort komponent,
k tomu je demo priklad, ktory robi presne to, co potrebujes.
Erik
OT Matrox G550
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 30.10.2001 03:51:29
Zdravim,
opet se omlouvam za dotaz na dva monitory, ale Matrox zacal prodavat Matrox
Millenium G550.
Malem jsem tu kartu koupil, ale narazil jsem na problem. Tato karta ma dva
ruzne konektory D-sub15 pin a DVI-I, a to na klasicky monitor a na plochy
monitor.
Lze nejak zapojit misto plocheho monitoru klasicky monitor, nebo mam koupi
starsi G450. kde dle nabidky jsou konektory shodne.
Diky za pomoc
Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Levy a pravy Alt
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 30.10.2001 04:00:10
Zdravim,
na mojim PC, kde programuji a na druhem PC, kde kontroluji programy funguje
v me aplikaci Alt+Insert, a to jak levy, tak i pravy Alt.
Na vsech jinych pocitacich funguje pouze LevyAlt+Insert a PravyAlt+Inser
nereaguje.
Rozdil v pocitacich je jen v nastaveni cestiny - pouzivam QWERTY, moji
protivnici QWERTZ.
Potrevuji zprovoznit PravyAlt+Insert
v udalosti Form1KeyDown odchytavam
case Key of
vk_Insert:
if Shift = [ssAlt] then
begin
end;
end;
Co s tim
diky Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
lepsi StringGrid
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 30.10.2001 06:07:08
Vzdyt tohle vse umi normalni TStringGrid take ...
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
>
> Ahoj, hledam nejakou free komponentu like StringGrid, ktera mimo jine
> umoznuje klik na fixed rows a cols /pokud mozno vcetne zamacknuti bunky /
a
> moznost barevneho odliseni radku/sloupcu ... tj. ruznou barvu pro ruzne
> bunky ...
Sinea a vlastni preview
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 30.10.2001 07:12:00
jestli to byla zprava se subj. "Re: Ridici prvky Sestavy", tak ti to
muzu poslat.
preview.zip asi 2kB. text zpravy najdes za podpisem.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
text zpravy Re: Ridici prvky Sestavy:
Jak to dela QReport nevim, nikdy jsem s nim nedelal.
Pomoci generatoru sestav Sinea to jde udelat takto.
- Sestavu vygenerovat do metafile, kde kazda stranka sestavy
predstavuje jeden WMF soubor
- jednotlive stranky zobrazovat ve svem vlastnim formulari
Jednoduchou aplikaci takto pracujici prikladam
Snad mi spravce konference promine malou binarni prilohu.
Vaclav Krmela
From: "Jan Naiser" <tua(zv)wo(tec)cz>
Subject: Ridici prvky Sestavy
> Preji pekny den,
>
> da se nejakym zpusobem pouzit zobrazeni sestavy na vlastnim formu s
pouzitim
> vlastni obsluhy (posuny, meritko, ...) tak, jak to umi napr. QReport?
> Samozrejme, ze editor by asi musel zustat zachovan. Jedna se mi pouze
o
> "kabat" zobrazeni.
>
> Za odpoved dekuji.
>
> Jan Naiser.
>
>Sinea a vlastni preview
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 30.10.2001 07:14:09
lidi, ja jsem preci chomout. fakt se omlouvam, zprava mela jit
samozrejme na soukromou adresu. proste jsem ji zapomnel prepsat. vzdycky
si vpomenu tesne po tom, co to odeslu (nekdy i bez podpisu, samou
radosti, ze muzu pomoci ;).
jeste jednou sorry.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
OT Matrox G550
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 30.10.2001 07:31:47
Je tam obrovska spousta redukci. Takze lze zapojit i dva klasicke monitory.
S pozdravem
Mirek Drejcek
*********** REPLY SEPARATOR ***********
On 30.10.2001 at 3:51 Pavel ZIDEK wrote:
>Zdravim,
>opet se omlouvam za dotaz na dva monitory, ale Matrox zacal prodavat Matrox
>Millenium G550.
>Malem jsem tu kartu koupil, ale narazil jsem na problem. Tato karta ma dva
>ruzne konektory D-sub15 pin a DVI-I, a to na klasicky monitor a na plochy
>monitor.
>Lze nejak zapojit misto plocheho monitoru klasicky monitor, nebo mam koupi
>starsi G450. kde dle nabidky jsou konektory shodne.
>Diky za pomoc
>Pavel
Progamove stahnuti posty - cekani v BATu
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 30.10.2001 07:52:00
Ahoj
musi tam byt
start /w notepad.exe
### Jaroslav Popluhar napsal dne 28 Oct 01, v 2:59 :
> aa.bat
> ====
> start notepad.exe
> echo ahoj
> pause
> start notepad.exe
>
> takyto BAT pod W2k-SP2 mi spusti prvy notepad NA NIC NECAKA... teda
> zastavi sa az na pause
>
> Tiez by som potreboval cakanie na koniec, ale v BATe neviem ako na to.
>
> Jaro
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director ICQ# 135770414
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Vytvareni formu pres create() napr. do DLL
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 30.10.2001 08:07:13
Ahoj,
je lepsi vytvaret formular pres Create(NIL) nebo Create(Application)? A jak
je to s uvolnovanim formu kdyz je to Create(Application)?
Diky
Ka.
napr.
Try
Form1 := TForm.Create(NIL)
Try
OK:=Form1.ShowModal=mrOK;
Finally
Form1.Free;
End;
Except
OK:=False;
End;Ini ve stringlistu
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 30.10.2001 08:09:33
Ahoj,
mam nacteny rozsahly ini soubor ve stringlistu a potreboval bych k tomu
nejak jednoduse pristupovat s respektovanim sekci. Je to nejak mozne?
Dik
Ka.InterBase server: cannot perform network request t
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 30.10.2001 08:10:04
From: "Jaroslav Popluhar" <delphi1(zv)acc.sk>
> Znamena to, ze k IB sa neda pripojit z jedneho PC lokalne a z dalsieho po
sieti?
Nam to funguje. (FB1 beta2)
> Prip. je mozne zapisat conn. string aj pre pristup k lokalnemu IB ako:
> \\server\C:\cesta\k\db\neco.gdb ?
> Jaro
Skus to, asi takto: "localhost:C:\aaa\bbb.gdb"
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Progamove stahnuti posty - cekani v BATu
[*] ing. V�t Jur�sek - 30.10.2001 08:11:03
START [mo�nosti] program [argumenty...]
START [mo�nosti] dokument.ext
/m[inimized] Spust� nov� program minimalizovan� (na pozad�).
/max[imized] Spust� nov� program maximalizovan� (v pop�ed�).
/r[estored] Spust� nov� program obnoven� (v pop�ed�). [v�choz�]
/w[ait] Nevr�t� se dokud druh� program existuje.
S pozdravem
Vit Jurasek
> > takyto BAT pod W2k-SP2 mi spusti prvy notepad NA NIC NECAKA... teda
zastavi
> > sa az na pause
> > Tiez by som potreboval cakanie na koniec, ale v BATe neviem ako na to.
>
> Ahoj,
>
> a je nutne to delat zrovna BATem ? Mozna ma prikaz START i nejake
parametry,
> kterymi to lze nastavit. Ohledne Outlook Expressu, lze v nem nastavit
'Send
> and receive messages at startup', otazka k cemu to ale bude dobre, kdyz (s
> vyjimkou root InBox folderu) z neho stejne zpravy programove nedostanes.
>
> Petr Vones
>
>Zarovnani Float cisla na tecku a max. na 4 desetin
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 30.10.2001 08:18:40
Ahoj,
narazil jsem na problem se zarovnani float cisel (real a extended).
Zobrazuji je v listboxu v nekolika sloupeckach a potreboval bych je zarovnat
na tecku a ne vice jak na 4 desetinna mista (desetinna mista jsou ruzna
napr. 2.0032, 3.2, 1.001 atp.). Pokud to dorovnam mezerami a pouziji pismo
Courier je to OK ale kdyz chci MS Sans Serif tak je to rozhozene a nikomu se
to nelibi (a Courier se taky nelibi). Pouzivam ownerdraw listboxu. Neresil
jste to nekdo, prosim?
Diky
Ka.Casove limitovana aplikace
[*] Igor Vodicka <vodicka(zv)sagit(tec)cz> - 30.10.2001 08:28:11
Ahoj!
Ja na takova ruzna omezeni a demoverze pouzivam knihovnu OnGuard od firmy
TurboPower (viz stranky Petra Zahradnika). Neni sice free, ale pokud Tvoje
aplikace ma byt komercni a muzes si dovolit investovat, tak je to idealni
reseni.
Umi spoustu veci: casove omezene verze od do, omezeni na pocetkrat spusteni,
na pocet dnu spusteni, ruzne registracni, aktivacni kody, seriova cisla, u
sitovych aplikaci omezeni na pocet uzivatelu a spoustu dalsich veci.
Ing. Igor Vodicka
informacn� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrabuvka
Tel.: 069 67 85 999 , Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jan Dvorak
> Sent: Monday, October 29, 2001 9:05 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Casove limitovana aplikace
>
>
> Aplikace, na ktere pracuji by mela byt casove limitovana, tj.
> do urciteho
> data plne funkcni, potom naopak nefunkcni s hlasenim o
> expiraci. Poradi mi
> nekdo zpusob realizace, ktery nejde jednoduse prekonat napr. zmenou
> kaledarniho data?
>
> Ing. Jan Dvorak
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
String v recordu
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 30.10.2001 08:30:52
Ahoj
Potrebuji dat do packed recordu retezec delsi jak 255 znaku. jak se to da
udelat, abych k tomu pak pristupoval nejak lidsky???
Dik
Ka.Progamove stahnuti posty - cekani v BATu
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 30.10.2001 08:40:37
Prikaz Start ma parametr /w(ait), ktery ceka na ukonceni spusteneho programu a
teprve potom pokracuje ve zpracovani davkoveho souboru
S pozdravem
Milan Tome�
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Tlac v draft mode
[*] dphi_forum(zv)proces.sk - 30.10.2001 08:42:39
Zdravim vsetkych...
Potreboval by som z programu v Delphi tlacit na ihlickovej tlaciarni STAR
LC24-20 ale v textovom mode (draft).
Na tlaciarnach Epson to ide. Neviete mi niekto poradit.
Diky. NORO.
interbase
[*] VASEK STEPAN <vaseks(zv)stp(tec)cz> - 30.10.2001 08:52:12
Ahoj kolegove,
mam prosbu, poterbuji sitove rozchodit Interbasi, pomuze nekdo???
Dekuji
zdravi
Stepan Vasek
interbase
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 30.10.2001 09:04:17
Ahoj,
pomuzu celkem rad, pokud budu umet, ale na tvuj dotaz se da odpovedet leda
tak "ANO".
Zkus to vice upresnit, kde je problem, co to(ne)hlasi, co nejde atd. Takhle
se ti proste poradit neda..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
>
> Ahoj kolegove,
> mam prosbu, poterbuji sitove rozchodit Interbasi, pomuze nekdo???
>
> Stepan Vasek
FB nebo BDE
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.10.2001 09:25:44
> > BTW. Nereaguji proto, abych si 'rypnul', ale spise by mne zajimal
> > nazor znalcu IB/FB na pouziti komponenty TIBTable.
> Odes�latel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
>
> Muj nazor je negativni. Na SQL serveru mi prijde prirozene pouzivat
> SQL jazyk primo, pod svou kontrolou, nez pouzivat "cernou skrinku"
> IBTable, na kterou sice nepotrebujes SQL a "vse funguje tak nejak
> samo", ale je otazka, jaka za tim stoji rezie a efektivita.
Souhlasim s Davidem.
Za rozumny kompromis mezi
"ne-sql" pristupem (napr. TIBTable) a
"super-sql" pristupem (bez pouziti DataSet+DBAware)
povazuji TIBDataSet, kde mam jednotlive akce (select, insert, update, delete) pod dostatecnou kontrolou.
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)
=========================================Ini ve stringlistu
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 30.10.2001 09:28:11
A co zkusit TIniFile ?
Martin Ben
-----Puvodni zprava-----
Od: Ka.Kewasa [mailto:kewasa(zv)quick(tec)cz]
Ahoj,
mam nacteny rozsahly ini soubor ve stringlistu a potreboval bych k tomu
nejak jednoduse pristupovat s respektovanim sekci. Je to nejak mozne?
Dik
Ka.Tlac v draft mode
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 30.10.2001 09:33:31
> From: dphi_forum(zv)proces.sk
>
> Potreboval by som z programu v Delphi tlacit na ihlickovej tlaciarni STAR
> LC24-20 ale v textovom mode (draft).
> Na tlaciarnach Epson to ide. Neviete mi niekto poradit.
>
> Diky. NORO.
Jak tisknes na Epson, ze to jde?
Jak tisknes na Star, ze to nejde?
Jaky pouzivas ovladac tiskarny nebo tisknes bez ovladace?
Pouzivas nejaky generator sestav, nebo tisknes sam? A jak?
Vaclav Krmela
Ini ve stringlistu
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 30.10.2001 09:35:13
>mam nacteny rozsahly ini soubor ve stringlistu a potreboval bych k tomu
>nejak jednoduse pristupovat s respektovanim sekci. Je to nejak mozne?
Zkus TMemIni - nacte INI do pameti a pak pristupujes k polozkam v sekcich
pres jeho metody.
Soubor je zavreny, ale objekt zustane otevreny v pameti dokud ho nezrusis.
Odchytavanie cinnosti
[*] <delphi(zv)zvlauto.sk> - 30.10.2001 09:41:56
Uz som to tu raz pisal, takze skusim este raz:
Ako sa da programovo odchytit cinnost vybranej IP adresy? Tzn. ze
mnozstvo
dat (v kb) , ktore idu z alebo do daneho pocitaca aby sa
spocitavali. Daju
sa takto odchytit osobitne len data ktore idu z PC alebo ktore idu
do PC z danou IP adresou?
Popripade z ktoreho pocitaca (z ktorej IP adresy) boli udaje
vyslane?
Islo by o rezidentny prog. ktory by vsetko sledoval a monitoroval.
Program pre w2k.
Vdaka za kazde "nakopnutie".Prepnuti DOS aplikace do popredi
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 30.10.2001 09:50:51
zdravim vespolek.
Mam takovy problem s prepnutim DOS aplikce v celoobrazovkovem rezimu do
popredi.
Aplikace PC Fand bezi v celoobrazovkovem rezimu, pokud prednu do nejake jine
aplikace
(Np Word), potrebuji se po jejim ukonceni vratit do Fandu.
Hledal jsem v archivu konference, ale nic mi nepomohlo.
Potrebuji, aby to bylo funkcni ve vsech systemech windows.
Pozn. whdl - je handle procesu
1. Funkce z JCL nefunguje vubec
JclAppInstances.BringAppWindowToFront(whdl);
2. Nize uvedeny kod je z archivu konference, ale funguje pro Win98, Me, NT a
2000, ale nefunguje ve Win95.
ShowWindow(whdl,SW_RESTORE);
ShowWindow(whdl,SW_SHOW);
SetForeGroundWindow(whdl);
sendMessage(whdl,WM_SETFOCUS,0,0);
sendMessage(whdl,WM_ACTIVATEAPP,0,0);
sendMessage(whdl,WM_ENABLE,0,0);
sendMessage(whdl,WM_SHOWWINDOW,0,0);
ShowWindow(whdl,SW_RESTORE);
sendMessage(whdl,WM_LBUTTONDOWN,0,0);
Pokud mi nekdo muzete poradit, tak predem mockrate dekuji.
DOS aplikace plni castecne funkci IS(PC Fand) a v dohledne dobe nebude mozne
tuto nasi
nocni muru nahradit SW pro win. Proto mi prosim nerozmlouvejte pouzivani DOS
aplikace,
sam bych to vymenil hned.
J.Madlik
Odchytavanie cinnosti
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.10.2001 09:58:22
> Ako sa da programovo odchytit cinnost vybranej IP adresy? Tzn. ze
> mnozstvo
> dat (v kb) , ktore idu z alebo do daneho pocitaca aby sa
> spocitavali. Daju
> sa takto odchytit osobitne len data ktore idu z PC alebo ktore idu
> do PC z danou IP adresou?
> Popripade z ktoreho pocitaca (z ktorej IP adresy) boli udaje
> vyslane?
> Islo by o rezidentny prog. ktory by vsetko sledoval a monitoroval.
> Program pre w2k.
Uz jsem Ti jednou odpovidal - jedine reseni je napsat/pouzit driver,
ktery bude videt datovy tok a nejak jej vyhodnoti.
Ja osobne bych pouzil free driver WinPCap dostupny na internetu
(napriklad http://netgroup-serv.polito.it/winpcap/install/default.htm)
nebo koupil skeleton driver od www.pcausa.com
D. Toman
Prechod z BDE na ADONIS
[*] Ji�� Vosla�, Profireal, a.s. <jiri.voslar(zv)profireal(tec)cz> - 30.10.2001 10:07:30
Ahoj vsichni,
rozhodl jsem se odejit od BDE a prejit na ADONIS. Protoze nemam s ADONIS
zadne zkusenosti, mam par dotazu, na ktere jsem nenasel nikde odpoved:
Jedna se mi predevsim o konektivitu na MS SQL.
Pouzivam MS SQL 2000 Developer Edition (pro vyvoj - potom Standard Edition),
Delphi 6 Enterprise, Adonis ver. 4.2 (zatim trial), Win 2000 Professional.
1. Rychlost otevreni tabulky (porovnaval jsem ADONIS pres nativni driver s
BDE pres ODBC na tabulce s 10 sloupci a 400.000 radky - 1. sloupec je
PrimaryKey Clustered):
--- slo v podstate o vykonovy test, jsem si vedom, ze v aplikaci nema smysl
vracet tak velke mnoziny dat ---
BDE: otevreni < 1 sec skok na konec
tabulky 1 sec
ADONIS (Cursor: clServer / ctKeySet): otevreni 30 sec skok na konec
tabulky < 1 sec
ADONIS (Cursor: clClient / ctStatic): otevreni 28 sec skok na konec
tabulky < 1 sec
ADONIS (Cursor: clServer / ctDynamic): otevreni < 1 sec skok na konec
tabulky 1 min 37 sec
Dotazy:
Client Cursor se mi kupodivu jevi jako mirne rychlejsi, nezaznamenal jsem
ani vyraznejsi zatizeni site ani nejak enorme vysokou spotrebu zdroju na
klientovi i pri tak velke mnozine dat. Tady mi to neni prilis jasne. Podle
me se pri clClient kopiruje cely vysledek dotazu na klienta, kdezto clServer
s ctKeySet by mel pouze zkopirovat sloupec, ktery je primarnim klicem do
TEMPDB a pak otevrit - melo by to tedy byt podstatne rychlejsi - me se ale
zda, ze i v tomto pripade jde vse na klienta.
Jak je tedy vlastne funguje clClient a clServer?
Je lepsi v ramci lokalni site pouzivat spise klientske cursory?
Dokumentace k Adonisu uvadi, ze na rychlost ma vliv nastaven� CacheSize u
ADODataSetu. Experimentoval jsem s tim, ale zadny vliv na rychost otevreni
ADODataSetu jsem nezaznamenal. Jak mam spravne pracovat s CacheSize?
Kdyz jsem oteviral ADODataSet, ktery nebyl napojeny na DataSource a na Grid,
zkratila se doba otevreni z 30 sec na 5 sec. Proc je to s DataSource tak
pomale a proc pres BDE to funguje i s napojen�m na DataSource bleskove?
2. Refreshovani DataSetu - kdy� pouziji refresh, ztratim aktualni pozici v
Gridu (provede se novy select), Resync neresi inserty a mazani zaznamu.
Pokud zavolam Refresh, musim pouzit ADOFindFirst nebo Locate pro navrat na
akt. pozici - oboji je sekvencni hledani v DataSetu a u vetsich tabulek je
pomale. Co s tim?
3. Jak pristupovat k editaci dat? Primo pres "Edit / Insert -> Post" mi
nepripada vhodne a v ADODataSetu mi to nefungovalo prilis korektne (napr.
problem s DEFAULT u pole typu DATETIME).
Zkousel jsem pouzit ADOUpdateSQL napojene na ADODataSet - to funguje dobre -
mohu volat Edit -> Post, ale zmeny se samozrejme promitnou do DataSetu az po
Refresh - a tam nastupuji problemy s udrzenim akt. pozice a navic si nejsem
jisty jestli to je vhodn� reseni, protoze i zde dochazi k prepinani
DataSet.State. Nejcistsi reseni by asi bylo to uplne obejit, nevolat Edit a
Post a pouzit primo SQL prikazy INSERT resp. UPDATE nebo ulozenou proceduru.
Pak ale nemohu pouzit komponenty typu DBEdit apod. a musim plneni formularu
i parametru SQL prikazu odprogramovat rucne, coz mi pripada dost pracne a
nesikovne. Je jeste nejaka jina moznost o ktere nevim?
4. Po otevreni nekterych tabulek (nevypozoroval jsem nejakou zavislost na
typu a velikosti tabulky, ale vsechny mely primarni index) mi pri prochazeni
Gridem vybehne nasledujici Exception:
"Project xxx.exe raised exception class EInvalidGridOperation with
message 'Grid index out of range' ..."
Kdyz hned po otevreni DataSetu zavolam Refresh nebo Resync, je vse v
poradku. Je to chyba ADONIS nebo moje?
5. Je lepsi pro ADONIS pouzivat OLE DB providera nebo ODBC (Microsofti vsude
propaguji OLE DB, ale vsiml jsem si, ze napr. Enterprise Manager a Query
Analyzer chodi pres ODBC...)?
Budu vdecny za kazdou radu, nazor a zkusenost.
Diky
Jiri Voslar
Rozsah projektu v Delphi
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 30.10.2001 10:10:35
Ahojte,
chtel bych se zeptat, zda jsou znamy nejake limity pro velikost projektu v Delphi.
Mam na mysli pocet formularu v projektu (samozrejme nikoliv auto-create),
rozsah resource dat, apod. Pokud takove limity existuji, jsou jine pro OS na
bazi WinNT a Win9x ? Ci ma na to vsechno vliv verze Delphi?
Martin
ExpireDate u cookies vo WebModule
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 10:15:46
> Ak pouzijem Expire := Now + 1/480 ( = 5 minut), cookie do PC
> dorazi, ale naspat uz nechodi ziadnej stranke - zrejme vyprsalo
Cau,
je rano, som nevyspaty a este som sa nezahrial na pracovnu teplotu, ale:
1 hodina = 1 / 24
1 minuta = 1 / (24 * 60)
5 minut = 5 * 1 / (24 * 60) = 5 / 1440 = 1 / 288
a nie 1 / 480.
Mozno sa mylim.
TOndrej
komponenta - published property typu TStrings
[*] Radek Janu� FSG <janus(zv)foresta(tec)cz> - 30.10.2001 10:19:48
Ahoj ,
potreboval bych poradi,
programuju komponentu ktera ma mimo jine published property typu
TStrings, jak to udelat spravne.
Zkousel jsem ruzne moznosti ale stale s chybou.
Diky za radu. Radek Janus Foresta SG a.s. Vsetin
OT: Databaze na webu a update davkou
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 30.10.2001 10:23:09
Omlouvam se za OT, ale potreboval bych nakopnout spravnym smerem.
Na webu bude databaze, klienti budou mit lokalni data a urcita procedure
vygeneruje seznam zmenenych dat (asi do XML).
Tuto davku potrebuji poslat na web (MSSQL, ASP) a potrebuji aby se touto
davkou databaze na webu aktualizovala.
Nejlepe aby web sam zareagoval na doslou davku, aktualizaoval databazi a
davku odstranil nebo presunul nekam jinam.
Replikace nebo prime pripojeni na databazi nelze pouzit, presneji nechci
pouzit.
Dik za kazde nasmerovani.
Jiri Fait
Informacni systemy
ICQ: 113357332
Email: fait(zv)jakl(tec)cz , ftsoft(zv)iol(tec)cz
Vyber nejblizsi hodnotu
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 30.10.2001 10:24:22
Ahoj,
mam tabulku DBF FOXPRO(index CDX), ktera ma 88000 zaznamu. Obsahuje polozky
X a Y (Float).
Potreboval bych najit nejblizssi X a Y(najednou ) k hodnotam, ktere zadam.
Jak to udelat nejrychleji ?
V Delphi je nejaka funkce FindNearest, ale funguje jen na DBF oindexovanou.
Jde tedy nejak vytvorit slozeny index, kterej by obsahoval Jak hodnotu X tak
Y.Lookup a filter
[*] Str�n�k Franti�ek - 30.10.2001 10:42:29
P��tel�,
m�te n�kdo zku#enosti s pou��v�n�m lookup v datasetu, kdy� jsou
z�znamy filtrov�ny pomoc� ud�losti OnFilterRecord ?
Pokud jsem pou�il lookup u datasetu s filtrem, tak to nefungovalo
(p�i�azovaly se #patn� hodnoty z record�,
kter� neodpov�daly filtru). Pokud jsem OnFilterRecord vyhodil, v#e
fungovalo tak jak m�.
Jako datasety jsem pou�il RXMemoryData.
Za ka�dou odpov�� d�kuji.
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
Jak dostat aplikaci do popredi?
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 30.10.2001 11:01:03
Zdravim,
mam tento problem: Potrebuju spoustet jedinou instanci aplikace a chci pokud
je spustena at se dostane na popredi. Pouzivam funkce SetForegroundWindow a
pro obnoveni SendMessage(Application.handle, WM_SYSCOMMAND, SC_RESTORE, 0);
Pokud je aplikace minimalizovana tak vse probehne v poradku - obnovi se a
hodi se do popredi.
Ale pokud neni minimalizovana tak se nepresune na popredi, ale jen se
aktivuje - zacne problikavat na hlavnim panelu.
Muzete poradit co s tim?
Diky
Lookup a filter
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 30.10.2001 11:07:47
> m�te n�kdo zku#enosti s pou��v�n�m lookup v datasetu, kdy� jsou
> z�znamy filtrov�ny pomoc� ud�losti OnFilterRecord ?
> Pokud jsem pou�il lookup u datasetu s filtrem, tak to nefungovalo
> (p�i�azovaly se #patn� hodnoty z record�,
No, pokud ten tvuj Lookup pouziva standardni FindFirst, FIndNext etc., tak
tyto veci jsou neslucitelne s filtrovanim. FindFirst (a pribuzne metody)
vyhledavaji na podminku uvedeneou ve Filter (resp. OnFilterRecord).
Bud filtrujes, nebo vyhledavas, nelze oboji zaroven ...
T.
IB/FB problem s Update u SP - vyreseno
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 30.10.2001 11:18:51
Ahoj,
jak proste ! Velke diky Pavlu Cisarovi.
Ztravil jsem na tom problemu (ktery jsem si sam vytvoril) skoro celou
nedeli.
Prekopal jsem vsechny SP a uz to funguje dle mych predstav.
BTW. U SP Insert byla ta deklarace take stejne chybna a presto
to proslo.
Preji hezky den,
Jarek Uher
On 29 Oct 2001, at 15:57, Pavel Cisar wrote:
> Haj hou!
>
> On 29 Oct 2001, at 15:07, Jaroslav Uher wrote:
>
> > v tabulce mam definovane pole NAZEV typu VARCHAR(20)
> > CHARACTER SET WIN1250
> > a SP Update_Tablexxx
> >
> > pri volani teto SP s uvedenym parametrem
> > with IBStoredProcCslSklad.Params.CreateParam(ftString, 'NAZEV',
> > ptInput) do AsString := 'blabla';
> >
> > dostanu chybovou hlasku :
> > conversion error from string "blabla"
> >
> > Pokud provedu Update mimo SP pomoci
> > ...
> > je vsechno OK.
>
> Na prvni pohled: Retezec / parametr procedury je definovan bez
> znakove sady, tudiz prikaz v ulozene procedure nevi, jak preves z
> charset NONE na charset WIN1250 (zcela logicky). Deklaruj parametr
> ulozene procedury vcetne znakove sady, tedy neco jako
>
> CREATE PROCEDURE UpdateTableXXX (NAZEV VARCHAR(20)
> CHARACTER SET WIN1250, dalsi)parametry...)...
>
> Hodne zdaru
>
> Pavel Cisar
> Mobil: 0724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
>
komponenta - published property typu TStrings
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 30.10.2001 11:18:39
----- Original Message -----
From: Radek Janu# FSG <janus(zv)foresta(tec)cz>
> Ahoj ,
> potreboval bych poradi,
> programuju komponentu ktera ma mimo jine published property typu
> TStrings, jak to udelat spravne.
Ahoj,
TStrings ma nektere metody abstraktni, proto pouzij nejakeho
potomka teto tridy napr. TStringList.
TMyComponent = class(TComponent)
private
FList: TStringList;
procedure SetList(Value: TStringList);
public
constructor Create(AOwner: TCompoenent); override;
destructor Destroy; override;
published
property List: TStringList read FList write SetList;
end;
constructor TMyComponent.Create(AOwner: TCompoenent);
begin
inherited;
FList := TStringList.Create;
end;
destructor TMyComponent.Destroy;
FList.Free;
inherited;
end;
procedure TMyComponent.SetList(Value: TStringList);
begin
FList.Assign(Value);
end;
S pozdravem
Jaroslav Sipek
Thumbtracking u DBGrid?
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 30.10.2001 11:25:42
Ahoj,
potreboval bych rozjet u DBGrid thumbtracking jako u TStringGridu.
Kdyz pouziju: TStringGrid(RxDBGrid1).Options :=
TStringGrid(RxDBGrid1).Options + [goThumbTracking];
tak to funguje jen pro horizontalni scrollbar. Nevite nekdo jak to
provedu i pro vertikalni? Potreboval bych data zobrazovat hned pri
tazeni posuvnikem.
Diky, Ales
Ako na InterBase cez WWW
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 30.10.2001 11:28:43
Haj hou!
On 29 Oct 2001, at 15:29, Jaroslav Popluhar wrote:
> chcel by som Vas poziadat o vseobecne "dobre mienene rady a
> skusenosti" na temu pristupu k IB cez WWW.
1) PHP - pracuje i s IIS, ale lepsi je Apache. Oboji nejulepe na
Linuxu :-)
2) ASP - Objekty napsane v Delphi, pres IBX ci IBO ci tak jak jsou
nyni v aplikaci (pokud to neni pres BDE). AFAIK je IIS.
3) V D6 pomoci WebSnap. S Kylixem 2 by to melo fungovat i pod
Linuxem. Mozno provozovat CGI, IIS nebo Apache DSO (I ve
windows)
4) Vlastni Delphi aplikace ktera se chova jako web server.
Vse ma sva pro a proti.
Hodne zdaru
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Jak dostat aplikaci do popredi?
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 30.10.2001 11:34:49
Slo by to mozna takhle
h:=FindWindow( trida okna , nil);
if h<>0 then begin
ShowWindow(h, SW_restore);
ShowWindow(h, SW_SHOWNORMAL );
BringWindowToTop(h);
end
> Zdravim,
> mam tento problem: Potrebuju spoustet jedinou instanci aplikace a chci
pokud
> je spustena at se dostane na popredi. Pouzivam funkce SetForegroundWindow
a
> pro obnoveni SendMessage(Application.handle, WM_SYSCOMMAND, SC_RESTORE,
0);
> Pokud je aplikace minimalizovana tak vse probehne v poradku - obnovi se a
> hodi se do popredi.
> Ale pokud neni minimalizovana tak se nepresune na popredi, ale jen se
> aktivuje - zacne problikavat na hlavnim panelu.
>
> Muzete poradit co s tim?
> Diky
>komponenta - published property typu TStrings
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 11:41:15
> potreboval bych poradi,
> programuju komponentu ktera ma mimo jine published property typu
> TStrings, jak to udelat spravne.
Ahoj,
nedavno tu bola ta ista otazka. Da sa to urobit takto:
type
TMyComponent = class(TComponent)
private
FStrings: TStrings;
procedure SetStrings(Value: TStrings);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Strings: TStrings read FStrings write SetStrings;
end;
procedure TMyComponent.SetStrings(Value: TStrings);
begin
FStrings.Assign(Value);
end;
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FStrings := TStringList.Create;
end;
destructor TMyComponent.Destroy;
begin
FStrings.Free;
inherited Destroy;
end;
HTH
TOndrej
Rozsah projektu v Delphi
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 30.10.2001 11:45:04
----- Original Message -----
From: "Martin Dupal" <mdupal(zv)vision(tec)cz>
> chtel bych se zeptat, zda jsou znamy nejake limity pro velikost projektu v
Delphi.
> Mam na mysli pocet formularu v projektu (samozrejme nikoliv auto-create),
> rozsah resource dat, apod. Pokud takove limity existuji, jsou jine pro OS
na
> bazi WinNT a Win9x ? Ci ma na to vsechno vliv verze Delphi?
Presna cisla ti nereknu, ale z vlastni zkusenosti vim ze velky problem
jsou na Win9x resourcy (nikoli ty z *.res souboru aly ty co se alokuji
ve Windows pro okna, controly apod.). Neocenitelnou pomuckou
je pak programatorovi ResourceMeter.
U velkeho projektu se casto pouziva vizualni dedicnost u oken a
pokud otevres na Win9x v IDE okno, ktere ma treba 7 predku,
IDE si je musi otevrit vsechny a zdroje jdou dolu (casto i s pocitacem).
Pri vlastnim behu se tento problem s predky uz nevyskytuje.
Na WinNT/2000 problem s resourcy neni.
Martin Schayna
komponenta - published property typu TStrings
[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 30.10.2001 11:45:50
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
> programuju komponentu ktera ma mimo jine published property typu
> TStrings, jak to udelat spravne.
Pred tydnem jsem se zde ptal na to same a zde je odpoved:
> DDV,
> potreboval bych poradit jak definovat vlastnost
> vlastni komponenty, ktera je typu TStrings.
type
TMyComponent = class(TComponent)
private
FStrings: TStrings;
procedure SetStrings(Value: TStrings);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Strings: TStrings read FStrings write SetStrings;
end;
procedure TMyComponent.SetStrings(Value: TStrings);
begin
FStrings.Assign(Value);
end;
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FStrings := TStringList.Create;
end;
destructor TMyComponent.Destroy;
begin
FStrings.Free;
inherited Destroy;
end;
HTH
TOndrej
-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBO96E2mH3x0A/dynEEQLZdwCgz0xgy4AR1Tl8ZRll+OHOR9TZqNkAn3S4
bIY9wB328/uJsMD0jWuHAzqz
=QVd4
-----END PGP SIGNATURE-----
komponenta - published property typu TStrings
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 30.10.2001 11:48:00
From: "Radek Janu# FSG" <janus(zv)foresta(tec)cz>
> potreboval bych poradi,
> programuju komponentu ktera ma mimo jine published property typu
> TStrings, jak to udelat spravne.
> Zkousel jsem ruzne moznosti ale stale s chybou.
Pozri sa na to ako to ma naprogramovane komponenta TMemo.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
FB nebo BDE
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 30.10.2001 11:59:37
Ahoj,
panove (Davide, Honzo), vy jste ale vzali v potaz pouze PRVNI
CAST me otazky.
Puvodne jsem se ptal:
"... spise by mne zajimal nazor znalcu IB/FB na pouziti komponenty
TIBTable. Jen pro mensi ciselniky a Insert, Updete, Delete resit
stejne jako TIBQuery pres SP."
Jde mi POUZE o zobrazeni dat v DBGridu a jejich vyhledavani.
Aktualizaci techto dat chci resit jen pomoci SP.
Diky tomu, ze jsem se hned na zacatku programovani v Delphi
prihlasil do teto konference, jsem se vyhnul pouzivani DBAware
komponent a ani TUpdateSQL mi neprirostla k srdci. Radeji jsem
pouzival i v Pdx tabulkach 'cisty SQL', da-li se to tak nazvat.
Ted v IB mohu pouzit i SP a tak proc je nevyuzivat.
Preji hezky den,
Jarek Uher
On 30 Oct 2001, at 9:25, Jan Sebel�k wrote:
> > > BTW. Nereaguji proto, abych si 'rypnul', ale spise by mne zajimal
> > > nazor znalcu IB/FB na pouziti komponenty TIBTable.
>
> > Odes�latel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> >
> > Muj nazor je negativni. Na SQL serveru mi prijde prirozene pouzivat
> > SQL jazyk primo, pod svou kontrolou, nez pouzivat "cernou skrinku"
> > IBTable, na kterou sice nepotrebujes SQL a "vse funguje tak nejak
> > samo", ale je otazka, jaka za tim stoji rezie a efektivita.
> Souhlasim s Davidem.
>
> Za rozumny kompromis mezi
> "ne-sql" pristupem (napr. TIBTable) a
> "super-sql" pristupem (bez pouziti DataSet+DBAware)
> povazuji TIBDataSet, kde mam jednotlive akce (select, insert, update,
> delete) pod dostatecnou kontrolou.
>
> 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)
> =========================================
>
>
IB/FB problem s Update u SP - vyreseno
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 30.10.2001 12:00:53
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>
> jak proste ! Velke diky Pavlu Cisarovi.
> Ztravil jsem na tom problemu (ktery jsem si sam vytvoril) skoro celou
> nedeli.
> Prekopal jsem vsechny SP a uz to funguje dle mych predstav.
> BTW. U SP Insert byla ta deklarace take stejne chybna a presto
> to proslo.
S akym charsetom sa prosim Ta pripojujes k databazi? S rovnakym akym mas
deklarovane polia v tabulkach ku ktorym pristupuje SP alebo s inym?
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Jak dostat aplikaci do popredi?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 12:03:23
> mam tento problem: Potrebuju spoustet jedinou instanci
> aplikace a chci pokud
> je spustena at se dostane na popredi. Pouzivam funkce
> SetForegroundWindow a
> pro obnoveni SendMessage(Application.handle, WM_SYSCOMMAND,
> SC_RESTORE, 0);
> Pokud je aplikace minimalizovana tak vse probehne v poradku -
> obnovi se a
> hodi se do popredi.
> Ale pokud neni minimalizovana tak se nepresune na popredi, ale jen se
> aktivuje - zacne problikavat na hlavnim panelu.
Skus z druhej instancie poslat tej prvej svoju spravu (WM_USER + xx) a v
prvej instancii pri jej prijati pouzit Application.Restore;
Application.BringToFront; tieto metody obsahuju volania spominanych API +
este cosi navyse, co Ti tam mozno chyba. Neskusal som to.
HTH
TOndrej
FB nebo BDE
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 30.10.2001 12:05:50
> Za rozumny kompromis mezi
> "ne-sql" pristupem (napr. TIBTable) a
> "super-sql" pristupem (bez pouziti DataSet+DBAware)
> povazuji TIBDataSet, kde mam jednotlive akce (select, insert,
> update, delete) pod dostatecnou kontrolou.
kompromis jo, jestli rozumny nevim.
po invexovem rozhovoru s pavlem jsem si dost
upravil nazor na pristup s pouzitim datasetu.
duvod:
IBDataSet si provadi na pozadi nejake kesovani zaznamu,
aby bylo mozne v gridu listovat vsemi smery. toto kesovani
s sebou prinasi urcite problemy. nevim presne jaky, ale je
to v podstate takovy blackbox nalepeny na zada gridu ;).
nejake nedostatky snad priznava i autor IBX (fakt ted nevim
presne o co jde). kazdopadne jsem si sam parkrat pekne
nabehnul. ono to totiz svadi pracovat s tim jako s tabulkou.
narvete si tam dotazy select, insert, modify, delete, refresh a
pripojite grid a ono to supracky slape. sef koukne prez rameno.
hele, dej tam tydle a tydle polozky propoj tam ciselniky, osoby
a dopocitej tydle sloupce (na serveru, z jinych tabulek). no,
ono to funguje, dobry. pak jsem tam nasypal realny data (byt
nadhodnoceny, ale ja mam zase lepsi stroj nez useri ;). a ono
to najednou neslo. jenom otevreni IBDataSetu trvalo kolik minut.
no hruza.
doporuceni:
udelat si dotaz na nekolik malo klicovych sloupcu. dotaz je rychly,
neb zpracovava kratke radky a posila i malo dat po siti. data
nasladne nacist do stringgridu, stringlistu atp. potom, kdyz uzivatel
najede na polozku (po presunu, po kliknuti, na tlacitko...) nacist
komplexnim dotazem jenom jednu vetu podle klice. server ji
rychle najde a poddotaz a joiny zpracuje taky rychle, protoze to
dela jenom pro tu jednu vetu. poslani po siti je rychle, vete ma
maximalne par kilo.vysledek narvat do editu a po uprave zase poslat
na server.
nevim, sam to musim vyzkouset. aplikaci tesne pred dokoncenim uz
predelavat nebudu ;). snad priste.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Ako na InterBase cez WWW
[*] JIM Design <jim.design(zv)iol(tec)cz> - 30.10.2001 12:20:53
ahoj,
me by tato problematika take zajimala ze strany ASP+ADO a proto bych se
chtel zeptat:
Existuje nejaky volne siritelny OLE/DB source pro IB pres ktery se je mozno
do IB6 napr. pres ADO pripojovat?
(kdysi tu totiz nekdo rikal ze je k mani za urcity obnos, dokud se neproda
nejaky urcity pocet licenci)
M.Jirman
-----Original Message-----
Behalf Of Jaroslav Popluhar
Sent: Monday, October 29, 2001 3:30 PM
Zdravim Vas,
chcel by som Vas poziadat o vseobecne "dobre mienene rady a skusenosti" na
temu
pristupu k IB cez WWW.
Sucasny stav:
"Pomerne hruby" klient napisany v Delphi (IBX, prip. BDE:-)
SQL DB - InterBase
U klienta www server IIS.
Potreboval by som urobit "co najtensieho klienta" - bez instalacie na
lokalnu stanicu,
najlepsie cez www (Intranet s nasadenym MS IE5) tak,
aby mohol "takmer" ktokolvek pristupovat k urcitej velmi obmedzenej palete
funkcii programu.
Napada ma pouzitie PHP pod IIS - vraj existuje nejaky plug-in?
S pristupom do IB. Ako pristupuje PHP4 k IB (na Win32 a prip. na Linuxe).
Pripadne Java - aplet, servlet...
Ako je to s apletmi pri pripajani sa na vzdaielene SQL DB?
Existuje JDBC pre IB?
ExpireDate u cookies vo WebModule
[*] JIM Design <jim.design(zv)iol(tec)cz> - 30.10.2001 12:20:55
ahoj,
na security ucely pouzivam zasadne Sessiony ve kterych mam ulozeny jmeno a
heslo a uzivatel se musi VZDY po ukonceni browseru znovu prihlasit.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Marek Agh
Sent: Monday, October 29, 2001 10:23 PM
Caute,
robim s ISAPI WebModulom pod D4 Enterprise, W98, IE5.5, MS PSW4.0.
Vyuzivam cookies na automaticke logoutovanie userov z webu tak, ze nastavim
cookie expire date na o 5 minut neskor od posledneho requestu a ked vyprsi
(teda nic na sieti nerobi), user je povazovany za logoutnuteho (lebo mi
netreba prilis velke security).
Funguje to ale len ak ide o dostatocne neskory cas (min. 6 hodin neskor).
Ak pouzijem Expire := Now + 1/480 ( = 5 minut), cookie do PC dorazi, ale
naspat uz nechodi ziadnej stranke - zrejme vyprsalo a to hned.
TDateTime (ako typ Expires v TCookie) je Double a 1 v nom znamena jeden
den. Napriek tomu by v type Double nemalo byt 1/480 zaokruhlovane k nule,
takze neviem, kde je problem. Nerobili ste niekto s vyuzivanim cookies na
security ucely?Databaze na webu a update davkou
[*] JIM Design <jim.design(zv)iol(tec)cz> - 30.10.2001 12:20:54
ahoj,
to je pomerne jednoduchy, nejlepsi je IMHO mit klientska data v XML vsechny
a jeste mit v te tabulce dalsi sloupec treba typu integer do kteryho das
napr. ze 1 je zmena a 2 je insert, pri kazdy zmene na klientovych datech tam
das potrebnou hodnotu a tim odlisis data inovovana od tech starych. V ASP
spravnym selectem vyberes jednou vsechen update a pak vsechen insert,
vytvoris Connection na ten SQL server a udelas hromadnej update a potom
hromadnej insert - pokud ti na to bude stacit 30s timeout ASP skriptu.
V pripade potreby reknu blizsi info.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of FAIT Ji��, ml.
Sent: Tuesday, October 30, 2001 10:23 AM
Omlouvam se za OT, ale potreboval bych nakopnout spravnym smerem.
Na webu bude databaze, klienti budou mit lokalni data a urcita procedure
vygeneruje seznam zmenenych dat (asi do XML).
Tuto davku potrebuji poslat na web (MSSQL, ASP) a potrebuji aby se touto
davkou databaze na webu aktualizovala.
Nejlepe aby web sam zareagoval na doslou davku, aktualizaoval databazi a
davku odstranil nebo presunul nekam jinam.
Replikace nebo prime pripojeni na databazi nelze pouzit, presneji nechci
pouzit.
Dik za kazde nasmerovani.
komponenta - published property typu TStrings
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 12:34:59
> TStrings ma nektere metody abstraktni, proto pouzij nejakeho
> potomka teto tridy napr. TStringList.
Ano, ale pri deklaracii vlastnosti sa oplati pouzit prave abstraktne
TStrings (pri vytvarani instancie samozrejme uz musis pouzit neabstraktnu
triedu, napr. TStringList).
Vyhoda je v tom, ze potomci maju potom volnost pri volbe konkretnej
neabstraktnej triedy, ktoru budu vytvarat. Zvlast, ak im k tomu este
pripravis peknu protected metodu CreateStrings: TStrings; virtual; ktoru si
mozu overridnut.
HTH
TOndrej
FB nebo BDE
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.10.2001 12:35:45
> IBDataSet si provadi na pozadi nejake kesovani zaznamu,
> aby bylo mozne v gridu listovat vsemi smery. toto kesovani
> s sebou prinasi urcite problemy. nevim presne jaky, ale je
> to v podstate takovy blackbox nalepeny na zada gridu ;).
> ...
> narvete si tam dotazy select, insert, modify, delete, refresh a
> pripojite grid a ono to supracky slape. sef koukne prez rameno.
> hele, dej tam tydle a tydle polozky propoj tam ciselniky, osoby
> a dopocitej tydle sloupce (na serveru, z jinych tabulek). no,
> ono to funguje, dobry. pak jsem tam nasypal realny data (byt
> nadhodnoceny, ale ja mam zase lepsi stroj nez useri ;). a ono
> to najednou neslo. jenom otevreni IBDataSetu trvalo kolik minut.
> ...
Ono hodne zalezi na tom, jak ten dotaz vypada. Pouhe Open na
dotazu do jedne nebo nekolika malo tabulek bez order by nebo s
order by podle klice probehne temer ihned, ale jakmile se sestavi
obsahly join, ktery server musi nejprve cely sestavit a pak setridit
(nejlepe podle poli z vice tabulek), tak to otevreni trva dlouho a
IBDataset za to nemuze. Kvuli tomu jsme zkouseli i cestu
popsanou v puvodnim prispevku, tj. select jednoduchy s par sloupci
a zbytek dat dotahovat az nasledne a potvrzuji podstatne zlepseni.
Na pouzivani InsertSQL a spol. mi nejvic vadi nutna provazanost se
selectem. Do insertu/updatu nejde strcit data, ktera nejsou v
selectu, coz pak vede k tomu, ze select musi byt kosatejsi nez je
nezbytne nutne, nemluve o zname hlasce Field must have a value,
kvuli ktere je pak nezbytne shazovat Required u fieldu... Nevim,
nechci se hadat o vhodnosti pouzivani InsertSQL/ModifySQL..., to
at si rozhodne kazdy sam, ale muj ciste osobni nazor je, vyhnout
se tomu. Nejsem ale proti tomu, pouzivat DBGrid a IBDataset
pouze pro cteni, pokud tedy, jak jsem psal vyse, neni dotaz
takovy, ze jeho otevreni trva serveru neunosne dlouho.
David Lebeda
FB nebo BDE
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.10.2001 12:58:24
> panove (Davide, Honzo), vy jste ale vzali v potaz pouze PRVNI
> CAST me otazky.
> Puvodne jsem se ptal:
> "... spise by mne zajimal nazor znalcu IB/FB na pouziti komponenty
> TIBTable. Jen pro mensi ciselniky a Insert, Updete, Delete resit
> stejne jako TIBQuery pres SP."
>
> Jde mi POUZE o zobrazeni dat v DBGridu a jejich vyhledavani.
> Aktualizaci techto dat chci resit jen pomoci SP.
>
Ja vim, ale udelal jsem to schvalne. Na malych ciselnikach asi
IBTable nebude predstavovat problem, ale proc misto ni nepouzit
Query? Jinak pokud si pamatuji, kdysi v archivu nekdo psal o
problemech o spravnem trideni ceskych retezcu pod nejakou Table
(nevim, zda TTable nebo IBTable), kdy se zjistilo, ze ta Table
neumela pouzivat collate. Opravdu si nepamatuji detaily, treba to
uz dnes neni aktualni, ale obecne povazuji pouziti Table proti SQL
serveru za nesystemovy krok.
David Lebeda
FB nebo BDE
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 30.10.2001 13:04:03
> Jde mi POUZE o zobrazeni dat v DBGridu a jejich vyhledavani.
> Aktualizaci techto dat chci resit jen pomoci SP.
aha, ja bych se TIBTable stejne radsi vyhnul. kdyz mas cistou SQL
aplikaci, proc ji infikovat "necistymi" praktikami. na ciselnik
konkretne bych si vytvoril vhodneho predka. tedy zprogramoval cely
formular ciselniku a od nej vsecky ciselniky. tak ja uci honza na
skoleni ;). je to fakt pohoda. jedno si to naprogamujes, potom jenom
oddedis ciselnik, nastavis si potrebne property (uz jenom tech par pro
konkretni priklad + dotaz) a mas hotovo.
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
InterBase server: cannot perform network request t
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 30.10.2001 13:08:07
Pavel Cisar dne 26 Oct 2001 v 9:06:
> Databaze je v dialektu 3 nebo 1 ? Pouzivaji se nejaka
specifika
> dialektu 3 ?
Dialekt 3. Z dialektu 3 tam asi bude typ numeric s takovou
presnosti, aby se to ukladalo presne; dale Date a TimeStamp.
> a) Podivejte se do logu interbase (v korenovem adresari
instalace).
> Pokud je neprehledny, tak ho smazte/prekopirujte a
prekontrolujte po
> dalsim padu. Mela by se tam objevit nejaka chyba.
Tady je konec logu:
IB1 (Client) Wed Oct 24 07:58:48 2001
C:\Program Files\Borland\InterBase\bin\ibserver.exe:
terminated abnormally (-1)
IB1 (Client) Wed Oct 24 07:58:49 2001
Guardian starting: C:\Program
Files\Borland\InterBase\bin\ibserver.exe
IB1 (Client) Wed Oct 24 08:04:44 2001
Guardian starting: C:\Program
Files\Borland\InterBase\bin\ibserver.exe
IB1 (Server) Wed Oct 24 11:25:59 2001
INET/inet_error: read errno = 10054
IB1 (Server) Wed Oct 24 15:08:05 2001
INET/inet_error: read errno = 10054
IB1 (Client) Fri Oct 26 14:41:20 2001
Guardian starting: C:\Program
Files\Borland\InterBase\bin\ibserver.exe
IB1 (Client) Fri Oct 26 14:43:02 2001
Guardian starting: C:\Program
Files\Borland\InterBase\bin\ibserver.exe
IB1 (Client) Fri Oct 26 14:45:25 2001
C:\Program Files\Borland\InterBase\bin\ibserver.exe:
terminated abnormally (-1)
IB1 (Client) Fri Oct 26 14:45:26 2001
Guardian starting: C:\Program
Files\Borland\InterBase\bin\ibserver.exe
> b) IB server se provozuje jako service nebo jako bezna
aplikace ?
> Startuje se primo nebo pres guardian ?
Bezi jako service. Jak presne je spusten, po tom jsem se
vlastne ani nepidil - jen jsem zapnul prislusnou volbu...
Podle logu to vypada, ze jej vzdy startuje Guardian.
> c) IB Server bezi porad nebo se vypina (kazdy den/kazdy
tyden) ?
Bezi porad; vypina se obcas - rekneme jednou za 2 - 3 tydny,
kdyz jsme neco predelavali na siti popr. kdyz jsem se bez
vetsich uspechu pokousel premluvit novellovskeho klienta,
aby se automaticky prihlasil na sit.
Karel Rys
Prechod z BDE na ADONIS
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 30.10.2001 12:50:26 -0000
1.Pre podrobny popis clClient vid. http://www.microsoft.com/data (velmi
doporucujem, bez toho budu problemy...)
pouzivam len clClient, prenasany pocet riadkov je vzdy obmedzovany bud
'Select Top...' alebo
nastavenim maxrecords v TADODATASET, dalsie riadky su dodavane v evente
AfterScroll (reakcia na EOF, BOF),
pripadne ako reakcia na klik na nejaky button...
2.Po Refresh v datasete pouzivam ADOFindFirst prip. Locate, aktualny
zaznam uz nemusi existovat..
3.Pre ediciu pouzivam aj DBedit,DBgrid,RXDBgrid (hlavne pre male tabulky)
aj Insert i Update,
niekedy je vhodne pouzit PROFILER (z dev.edition MS SQL) aby bolo
jasne co ide do SQL
4.pravdepodobne nejaka "ptakovina",pouzivam DBgrid a RXDBgrid pre cca 200
roznych tabuliek a vsetko funguje
5.ako DatabaseProvider pouzivam SQLOLEDB.1 pripojenie k MS SQL 7 (2000)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ji�� Vosla�, Profireal, a.s.
Sent: Tuesday, October 30, 2001 9:08 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Prechod z BDE na ADONIS
>Ahoj vsichni,
>rozhodl jsem se odejit od BDE a prejit na ADONIS. Protoze nemam s ADONIS
>zadne zkusenosti, mam par dotazu, na ktere jsem nenasel nikde odpoved:
>
>Jedna se mi predevsim o konektivitu na MS SQL....
Vyber nejblizsi hodnotu
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 30.10.2001 15:19:56
On 30 Oct 2001, at 10:24, Bednar��k Dalibor wrote:
> mam tabulku DBF FOXPRO(index CDX),
> polozky X a Y (Float). Potreboval bych najit nejblizssi X a
> Y(najednou ) k hodnotam, ktere zadam.
> Jde tedy nejak vytvorit slozeny index, kterej by
> obsahoval Jak hodnotu X tak Y.
>
Nerozumim presne otazce (napriklad co je to hodnota nejblizsi
soucasne dvema hodnotam) ale ve FoxPro lze indexovat podle
cehokoliv, tim je mysleno v podstate podle jakehokoliv vyrazu. Cili
muze byt tabulka oindexovana treba podle log(1000*X+Y*Y).
>
>
Z.Kalhous
Jak dostat aplikaci do popredi?
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 30.10.2001 15:38:34
Toto jsem jiz zkousel, ale se stejnm efektem.
----- Original Message -----
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 30, 2001 12:03 PM
Subject: RE: Jak dostat aplikaci do popredi?> > mam tento problem: Potrebuju spoustet jedinou instanci
> > aplikace a chci pokud
> > je spustena at se dostane na popredi. Pouzivam funkce
> > SetForegroundWindow a
> > pro obnoveni SendMessage(Application.handle, WM_SYSCOMMAND,
> > SC_RESTORE, 0);
> > Pokud je aplikace minimalizovana tak vse probehne v poradku -
> > obnovi se a
> > hodi se do popredi.
> > Ale pokud neni minimalizovana tak se nepresune na popredi, ale jen se
> > aktivuje - zacne problikavat na hlavnim panelu.
>
> Skus z druhej instancie poslat tej prvej svoju spravu (WM_USER + xx) a v
> prvej instancii pri jej prijati pouzit Application.Restore;
> Application.BringToFront; tieto metody obsahuju volania spominanych API +
> este cosi navyse, co Ti tam mozno chyba. Neskusal som to.
>
> HTH
> TOndrej
Ini ve stringlistu
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 30.10.2001 15:52:17
A to je soucast D5 (promin blbou otazku :-) )?
Ka.
----- Original Message -----
From: Martin Dietl <dietl(zv)4use(tec)cz>
Subject: RE: Ini ve stringlistu
> >mam nacteny rozsahly ini soubor ve stringlistu a potreboval bych k tomu
> >nejak jednoduse pristupovat s respektovanim sekci. Je to nejak mozne?
>
> Zkus TMemIni - nacte INI do pameti a pak pristupujes k polozkam v sekcich
> pres jeho metody.
> Soubor je zavreny, ale objekt zustane otevreny v pameti dokud ho nezrusis.
ActiveX a obrazek
[*] David Hrbac <hrbac.conf(zv)seznam(tec)cz> - 30.10.2001 15:53:40
Ahoj,
mam vlastni aplikaci + objekt, ktery generuje specialni graf a zobrazuje jen
na canvas. Rad bych to ted predelal do ActiveX objektu, ktery by bezel na
strane serveru a poslal by na stranku primo obrazek (ne soubor). Muzete me
nekdo prosim nasmerovat spravnym smerem?
Diky,
David Hrbac
Vyber nejblizsi hodnotu
[*] Martin Ocenas <matko(zv)proces.sk> - 30.10.2001 15:56:30
Pokial som to spravne pochopil tak hladas min(sqrt((X - X1)^2 + (Y -
Y1)^2)). Toto index nevyriesi. Mohol by si vyuzit v BDE simulaciu SQL a
spravit select
SELECT X, Y, sqrt((X - X1)^2 + (Y - Y1)^2)
FROM ....
ORDER BY 3
vezmes prvy zaznam a mas to. Pripadne mozes dat WHERE na X1 - X a Y1 - Y
>-----Original Message-----
>From: Bednareik Dalibor [mailto:dalibor(zv)torola(tec)cz]
>Sent: Tuesday, October 30, 2001 10:24 AM
>To: forum
>Subject: Vyber nejblizsi hodnotu
>
>
>
>Ahoj,
>mam tabulku DBF FOXPRO(index CDX), ktera ma 88000 zaznamu. Obsahuje polozky
>X a Y (Float).
>Potreboval bych najit nejblizssi X a Y(najednou ) k hodnotam, ktere
>zadam.
>
>Jak to udelat nejrychleji ?
>
>V Delphi je nejaka funkce FindNearest, ale funguje jen na DBF oindexovanou.
>Jde tedy nejak vytvorit slozeny index, kterej by obsahoval Jak hodnotu X
>tak
>Y.
>
>
>IB dotaz not in
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 30.10.2001 16:12:36
Ahoj mam takovy problem
potreboval jsem vytahnout z jedne tabulky vsechny vc, ktere nejsou
v jine tabulce napsal jsem takovy dotaz
select p.vc
from prikazyvc p
where p.vc not in
(select s.vc from sestavykomponenty s)
vratilo to prazdnou tabulku a plan to salo s.natural, p.natural
a kdyz jsem mu pridelal index na sloupec s.vc tak ma plan tak ze
tento index pouzije a vrati skutecne celych cca 27000 zaznamu
Ja tam ten index ale nepotrebuji, protoze v tabulce se delaji zmeny
kazdou minutu, a tento dotaz, ktery jako jediny vyuziva ten index
se pousti tak jednou za tyden. At klidne nebezi 100 ms jako ted,
ale klidne i minutu
tabulky maji slabych 50.000 rekordu. S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
IB dotaz not in
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 30.10.2001 16:19:40
> select p.vc
> from prikazyvc p
> where p.vc not in
> (select s.vc from sestavykomponenty s)
napsany to vypada dobre.
zkus jeste znenit podminku na:
where
not (p.vc in (select s.vc from sestavykomponenty s))
pripadne:
where
not exist (select s.vc from sestavykomponenty s where s.vc = p.vc)
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Unit - proc?
[*] VALIK <valentapat(zv)volny(tec)cz> - 30.10.2001 16:34:10
Hello, muze mi nekdo vysvetlit proc?
Udelal sem si
Unit MyMessage; // obsahuje jen jednu funkci
uses .....
Interace
Type
***** Neco=class(...)
Function DefMessageDlg(......): integer // z 1001 tipu
implementation
Function DefMessageDlg(......): integer // z 1001 tipu
begin
......
end;
proc tam musi byt ta deklarace class ? nerozumim tomu, stejne ji nanic
nepotrebuji. Ale bez ni mi to neprelozi.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
Jak zamenit sloupce a radky?
[*] borkovec(zv)email(tec)cz - 30.10.2001 16:40:10
Vazeni,
byl bych velice vdecen za radu, pripadne i za naznak reseni v nasledujicim: mam tabulku DESCRIPTIONS, ve ktere je seznam vsech tabulek a jejich sloupcu v databazi. (Struktura: id, tablename, colname, popissloupce). Chci naplnit dvousloupcovy grid, kde v prvnim sloupci je seznam vsech popisu sloupcu tabulek (hodnoty sloupce popissloupce v DESCRIPTIONS) a ve druhem jejich hodnoty z odpovidajici, skutecne tabulky - samozrejme pro jednu konkretni polozku te skutecne tabulky. Oba sloupce by mela asi vracet SP s parametrem, ktery identifikuje radek ze skutecne tabulky. prostredi MSSQL2000.
Uz se v tom hrabu dost dlouho, a bez uspechu.
Diky za pomoc.
R&B
P.S. neco takoveho
select DESCRIPTION.popissloupce, TABULKA.(hodnota toho sloupce) from ....
---
Nokia Game je tady. Jsi pripraven?
Zaregistruj se na http://www.nokiagame.com/
Unit - proc?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 30.10.2001 16:43:20
vyhodit si slovicko TYPE :)
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: "VALIK" <valentapat(zv)volny(tec)cz>
> Hello, muze mi nekdo vysvetlit proc?
>
> Udelal sem si
> Unit MyMessage; // obsahuje jen jednu funkci
> uses .....
>
> Interace
> Type
> ***** Neco=class(...)
> Function DefMessageDlg(......): integer // z 1001 tipu
>
> implementation
> Function DefMessageDlg(......): integer // z 1001 tipu
> begin
> ......
> end;
>
> proc tam musi byt ta deklarace class ? nerozumim tomu, stejne ji nanic
> nepotrebuji. Ale bez ni mi to neprelozi.
IDispatch
[*] Peter Surovy <psurovy(zv)uevora.pt> - 30.10.2001 15:50:25 -0000
Ahoj
mam asi taku zaciatocnicku otazku:
mam vlastnost komponenty(proceduru) : napr. setsource, ktora
vyzaduje premennu typu IDispatch:
procedure setsource(var xxx:IDispatch)
myslel som si ze to xxx by mala byt dalsia komponenta, ktora je ActiveX
Ale ked tam zadam jej meno napr. setsource(komponenta)
dostanem tuto hlasku:
[Error] : Types of actual and formal var parameters must be identical
Viete mi niekto poradit co je to IDispatch resp. kde o tom najdem nejake
info
alebo co teraz s tymto?:-(
Dik
-----------------------------
Ing.Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
Zdroje HTML z TWebBrowser
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 30.10.2001 16:59:21
Potrebuji udelat nasledujici vec:
Chci si exportovat historii uctu z eBanky do Excelu.
Na to potrebuji do IE pridat kontextove menu a z neho volat program,
ktery ziska ze stavajiciho okna HTML cisty zdroj a ten pak bude
parsovat. Jde mi o ten zdroj, ktery je vysledkem zpracovani scriptu ASP
nebo PHP, nikoliv o vlastni ASP.
Muze mne nekdo nasmerovat, kudy kam? Kontextove menu IE umim pridat,
parsovani HTML neni problem. Ale jak se napojit na stavajici okno IE?
Zrejme na to budu muset jit pres OLE. Hral jsem si s TWebBrowser, ale to
neni reseni toho, jak se napojit na stavajici okno IE.
D5/Pro
Nasel jsem tento VB script, ktery mi ziska ciste HTML a otevre v novem
okne IE:
<SCRIPT LANGUAGE="VBScript" TYPE="text/vbscript">
Set Win = Window.Open("", "", "toolbar=no,location=no,
directories=no,status=no,menubar=no,scrollbars=yes, resizable=yes,
top=100, left=100, width=" & Screen.Width - 200 & ", height=" &
Screen.Height - 200)
HtmlText = cStr(External.MenuArguments.Document.Body.InnerHtml) & " "
Win.Document.Open
Win.Document.WriteLn "<HEAD><TITLE>Real HTML
Code</TITLE></HEAD><BODY><PRE ID=""preSource"">"
Win.Document.WriteLn "</PRE></BODY></HTML>"
Win.Document.Close
Win.preSource.InnerText = HtmlText
</SCRIPT>
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
IDispatch
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 30.10.2001 17:52:30
IDispatch je interface komponenty
pro jednoduchost doufam, ze se pokousis pouzit komponentu, kterou maz v palete;
jake rozhrani komponenta implementuje, zjistis napr. ze souboru xxx_TBL, ktery budes mit v uses formulare, kde pouzivas komponentu,
v nem hledej kostrukci:
xxx = interface(IDispatch)
['{xxxxxxxxxxxxx}']
....
end;
a pak to muzes volat takhle: setsource(komponenta.xxx)
info o tom najdes samozrejme v helpu
Marek Muller
-----Original Message-----
mam vlastnost komponenty(proceduru) : napr. setsource, ktora
vyzaduje premennu typu IDispatch:
procedure setsource(var xxx:IDispatch)
myslel som si ze to xxx by mala byt dalsia komponenta, ktora je ActiveX
Ale ked tam zadam jej meno napr. setsource(komponenta)
dostanem tuto hlasku:
[Error] : Types of actual and formal var parameters must be identical
Viete mi niekto poradit co je to IDispatch resp. kde o tom najdem nejake
info alebo co teraz s tymto?:-(IDispatch
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2001 17:56:10
> mam vlastnost komponenty(proceduru) : napr. setsource, ktora
> vyzaduje premennu typu IDispatch:
>
> procedure setsource(var xxx:IDispatch)
>
> myslel som si ze to xxx by mala byt dalsia komponenta, ktora
> je ActiveX
> Ale ked tam zadam jej meno napr. setsource(komponenta)
> dostanem tuto hlasku:
>
> [Error] : Types of actual and formal var parameters must be identical
IDispatch je interface pre OLE Automation, ktory umoznuje late binding, tzn.
resolvovanie nazvov metod a parametrov pocas runtime. Ak ta 'dalsia
komponenta' podporuje IDispatch (co ActiveX controls casto podporuju), potom
by to mohlo ist nejako takto:
var
D: IDispatch;
D := Komponenta2 as IDispatch; // vyvola exception ak to nepodporuje
Komponenta1.SetSource(D);
HTH
TOndrej
IB/FB problem s Update u SP - vyreseno
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 30.10.2001 18:40:05
Ahoj,
On 30 Oct 2001, at 12:00, Kakacka Pavol wrote:
> S akym charsetom sa prosim Ta pripojujes k databazi? S rovnakym akym
> mas deklarovane polia v tabulkach ku ktorym pristupuje SP alebo s
> inym?
se stejnym
IBDatabase.Params.Add('lc_ctype=WIN1250');
ale uz je to v pohode.
Databazi jsem vytvoril v IB Query (autor Michal Mutl) s charset
WIN1250 a u vsech poli VARCHAR, kde pocitam s diakritikou tak ji
jeste jednou definuji (CHARACTER SET WIN1250).
A ted uz [ po upozorneni ] i u SP.
Jarek Uher
FB nebo BDE
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 30.10.2001 18:40:05
Ahoj,
On 30 Oct 2001, at 13:04, Petr Palicka wrote:
> ja bych se TIBTable stejne radsi vyhnul. kdyz mas cistou SQL
> aplikaci, proc ji infikovat "necistymi" praktikami.
uz jsem ty TIBTable vyhodil a nahradil TIBQuery. Zkratil pocet
vracenych poli (jen ty, ktere nutne potrebuji zobrazit v DBGridu) a
pred pozadavkem na modifikaci zaznamu radeji provedu jeste jeden
uplny select na celou vetu.
S IBDataSet jsem si dnes hral. Je to presne jak pises. HROZNE
POMALE. Az jsem zasnul.
Dekuji vsem za nazory a doporuceni,
Jarek Uher
Ako na InterBase cez WWW
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 30.10.2001 20:22:25
Haj hou!
On 30 Oct 2001, at 12:20, JIM Design wrote:
> me by tato problematika take zajimala ze strany ASP+ADO a proto bych se
> chtel zeptat:
ASP muze vyuzivat i bezne OLE objekty napsane v Delphi
pristupujici k IB/FB pres IBX nebo i jinak.
> Existuje nejaky volne siritelny OLE/DB source pro IB pres ktery se je mozno
> do IB6 napr. pres ADO pripojovat?
> (kdysi tu totiz nekdo rikal ze je k mani za urcity obnos, dokud se neproda
> nejaky urcity pocet licenci)
Free ne. To o cem se zminujes je ODBC driver od IBP (napsal Jim
Starkey) a ten uz byl zcela uvolnen (k mani na webu IBP nebo v
CVS Firebirdu).
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Zdroje HTML z TWebBrowser
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2001 20:53:08
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> Chci si exportovat historii uctu z eBanky do Excelu.
> Na to potrebuji do IE pridat kontextove menu a z neho volat program,
> ktery ziska ze stavajiciho okna HTML cisty zdroj a ten pak bude
> parsovat. Jde mi o ten zdroj, ktery je vysledkem zpracovani scriptu ASP
Ahoj,
a neni jednodusi vyuzit uz parsovani HTML ktere provadi TWebBrowser ? Rozhrani
je na toto pomerne bohate. Vice tady (http://www.euromind.com/iedelphi) a v
MSDN - IHTMLDocument2 interface atd.
Petr Vones
Databaze na webu a update davkou
[*] Erik Salaj <winsoft(zv)stonline.sk> - 30.10.2001 21:15:36
> Omlouvam se za OT, ale potreboval bych nakopnout spravnym smerem.
> Na webu bude databaze, klienti budou mit lokalni data a urcita procedure
> vygeneruje seznam zmenenych dat (asi do XML).
> Tuto davku potrebuji poslat na web (MSSQL, ASP) a potrebuji aby se touto
> davkou databaze na webu aktualizovala.
> Nejlepe aby web sam zareagoval na doslou davku, aktualizaoval databazi a
> davku odstranil nebo presunul nekam jinam.
> Replikace nebo prime pripojeni na databazi nelze pouzit, presneji nechci
> pouzit.
Pouzi SOAP. Aktualizaciu databazy spristupni ako web sluzbu pomocou SOAP,
klient potom tuto sluzby zavola, ked chce aktualizovat databazu.
Erik
Programovy stisk klavesy
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 30.10.2001 21:15:47
Nazdar, mam dlouhodoby problem - potrebuji mit vlastni program na
pozadi, ktery mi v urcitych casov�ch intervalech bude simulovat stisk
CTRL+Q. Chci aby muj program oklamal aplikaci na popredi a podal ji
hlasku byla stisknuta klavesa. Na to je prikaz keybEvent, ktery ale umi
stiskout klavesu pouze jednu (nebo v�c, jak ?). Budu vdecny za
jakoukoliv odpoved, je to velmi prioritni. Diky.ADO a MS SQL - INDEXY
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 30.10.2001 21:31:31
Dobry den,
mam MS SQL 7.0 a tabulku do ktere pristupuji ADOTable nebo ADODataSet vzdy
kdyz vsak nastiv jmeno indexu objevi se hlaska "Objek nebo zprostredkovatel
nemohou tuto operaci provest".
Nevite nekdo kde by mohla byt chyba?
Dekuji.