Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Otev�r�n� tabulek
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 15.4.2002 15:59:17
Problem neni tabulka, ale transakce.
Tedy predpokladam nejaky SQL server.
Hodne zalezi na tom, jestli se ten formular zobrazuje modalne, nebo
nemodalne.
Pro modalni form je nejjednodussi si prepsat metodu ShowModal a v te si
otevrit transakci, na OK commit, na Cancel Rollback (od toho se odvijeji i
otevirani tabulek).
Pro nemodalni form neni asi jine reseni, nez to mit porad otevreny, jelikoz
muze byt stale videt.
Slavek
> Chci se zeptat na nasledujici problem.
> M�m formular ve kterem zobrazuji prip. edituji data jedne tabulky - v
kterem okamziku
> je nejlepsi tuto tabulku otevirat a zavirat pokud ji nechci mit otevrenou
po celou dobu chodu programu, ale jenom v ten moment kdy ji potrebuju a pak
ji zavru.
> Zatim nejlepsi se mi jevi ji otevirat v udalosti OnActivate formu ale mam
problem s tim, ze pokud se mi nepodari ji otevrit a ja nechci v tom pripade
zobrazovat form jak to udelat.
>
> Lenka Donatova
> Nemocnice Vsetin
zoznam
[*] mato <mato.tino(zv)inmail.sk> - 15.4.2002 16:17:17
zdravim
mam tabulku s menamy a potrebujem komponentu ktora by my pomocou
rozbalovacieho zoznamu umoznila vybrat jede zaznam. Skusal som DBComboBox
ale zobrazi iba aktualny zaznam a neda sa listovat. Sipka nereaguje
VarArrayFromStrings - co s tim
[*] Martinec <martin108(zv)post(tec)cz> - 15.4.2002 16:25:10
Pri prevodu zdrojaku z D6 do D5 jsem narazil na funkci VarArrayFromStrings. Nevite nekdo jak nebo cim ji mohu v D5 nahradit?
FTP Upload
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 15.4.2002 16:44:19
No zrejme binarni soubor uploadujes v textovem modu.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "PeJaSoft" <pejasoft(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 15, 2002 8:04 AM
Subject: Re: FTP Upload
> Chyba bude asi nekde jinde, protoze me to s FPiettovskyma komponentama
> fungovalo. Pokud jsem mel nejake problemy, bylo to FTP serverem.
> Ale ty byly pouze typu "spatne datum souboru" atd.
>
> S pozdravem
>
> Petr Jarkovsky
>
> ----- Original Message -----
> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> > From: "Jiri Sedivec" <jsedivec(zv)mail(tec)cz>
> > > mate nekdo zkusenosti s FTP komponentama. Mne se totiz stale stala pri
> > > uploadu, ze soubor je z casti poskozeny. Pouzil jsem jak standartni
> > > komponentu Delphi, tak komponentu od "FPiette".
> >
> > Pouzij radsi Indy (komponenty) http://www.nevrona.com/Indy/ nebo Synapsi
> > (tridy) http://www.ararat(tec)cz/synapse/
>
>
ulozeni data v BTRIEVE
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 15.4.2002 16:45:41
> From: Piskac Josef
>
> BTRIEVE
> vraci jako datum jakesi velke cele cislo,
> ktere priblizne odpovida
> poctu dni od zacatku letopoctu.
Pokud se jedn� o klasicky Btrieve typ Date,
tak by to mohlo byt asi takto:
je to 4-bytova hodnota, kde
1. byte je den
2. byte je mesic
3-4. byte je rok vcetne letopoctu
Vaclav Krmela
promenna na urovni unity
[*] Petr Kuklik <Petr.Kuklik(zv)seznam(tec)cz> - 15.4.2002 16:46:20
DD,
potreboval bych mit na urovni unity TStringList, aby byl pristupny
vsem instancim tridy v teto unite. Lze stringlist vytvorit v
initialization a rusit v finalization unity? Bude skutecne tento
stringlist jediny, nebo kdyz v jine unite dam do uses tuto unitu, tak
se jeji initializacion a finalizacion vola znovu? A nebo, nemate
lepsi reseni?
Petr
______________________________________________________________________
Reklama:
Co davaji v TV? http://tv.seznam(tec)cz
ukonceni chodu vindows XP
[*] Ing. Vladimir Ruzicka <ruzicka(zv)digitus(tec)cz> - 15.4.2002 16:58:41
Ahoj,
pred casem se tu neco podobneho resilo, ale nejak jsem se zpetne nedopatral
k vysledku - moje aplikace napsana v D3 se zavre i s PC po
ExitWindowsEx(EWX_SHUTDOWN,0). Ve Win XP to ale hodi chybu a nic.
Vi nekdo co s tim ?
Dik predem
Vladimir W95, D3
zoznam
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 15.4.2002 17:04:05
Slo by to resit tak, ze naplnis ten TComboBox temi jmeny a jako aktualni
nastavis prvni polozku (ItemIndex:= 0). Soucasne udelas First v te tabulce.
A pak na OnChange toho comboboxu vezmes jeho ItemIndex a udelas v te tabulce
nejprve First a pak MoveBy(combobox.ItemIndex). Tim se nastavi jako aktualni
ten zaznam, ktery odpovida jmenu v tom comboboxu. Pouzivam to ale jen pro
velmi malou tabulku, je otazka, jak se to bude chovat pri velkem poctu
zaznamu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: zoznam
>
> mam tabulku s menamy a potrebujem komponentu ktora by my pomocou
> rozbalovacieho zoznamu umoznila vybrat jede zaznam. Skusal som DBComboBox
> ale zobrazi iba aktualny zaznam a neda sa listovat. Sipka nereaguje
VarArrayFromStrings - co s tim
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.4.2002 17:05:04
From: "Martinec" <martin108(zv)post(tec)cz>
> Pri prevodu zdrojaku z D6 do D5 jsem narazil na funkci VarArrayFromStrings.
> Nevite nekdo jak nebo cim ji mohu v D5 nahradit?
Patrne si ji budes muset prepsat z D6, je to 6 radek.
Petr Vones
IDE - project optios
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 15.4.2002 17:05:01
Zrejme neni v *.dpr souboru {$R *.RES}, cili nastaveni se nema kam ukladat.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Jan Naiser" <tua(zv)wo(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 15, 2002 3:37 PM
Subject: IDE - project optios
> Preji pekny den,
> D5.01, W2k
>
> v IDE D5 ve volbe Project options na zalozce Application mam disablovane
> tlacitko Load icon a na karte Version info rovnez zakazanou volbu Include
> version information in project. Da se to nekde povolit nebo cim to
vzniklo?
> Stalo se tak u vice projektu i starsich, kde uz mam tyto hodnoty
nastavene.
>
> Za radu dekuju, Jan Naiser.
>
>
Potomek z THeader pro prekresleni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.4.2002 17:08:57
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
> potrebuji do THeaderu (nejake sekce) nakreslit nekolik znacek a nemohu
> pouzit HeaderControl (chova se trosku jinak a nemuzu prepisovat desitky
THeader je deprecated, mel by jsi pouzivat THeaderControl. Tam mas navic i
udalost OnDrawSection coz je asi to co hledas.
Petr Vones
array of TNeco
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.4.2002 17:10:49
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> To je pravda (znamena potomka IInterface), ale jestli jsem to dobre
> pochopil, tak je to "pouze" kvuli Linuxu...
Je to predevsim kvuli Object Pascalu. Interface je zkratka nativni soucast
jazyka podobne jako objekty.
Petr Vones
komentar souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.4.2002 17:12:57
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>
> nevite nekdo jak zjistit komentar systemovych souboru, neco jako je v
> ovladacich panelech pokud dom zobrazovat podrobnosti
Podivej se na komponentu TShellListView v Delphi 6.
Petr Vones
Oboustrane zarovnavani textu u RTF
[*] Jaroslav Bruzek <konference-delphi(zv)dcsystems(tec)cz> - 15.4.2002 17:39:30
Cus,
vyzkousel jsem TRichEdit, TRichEdit98, TRxRichEdit, ale %SUB% se mi nedari.
Existuje nejaka spolehliva komponenta, ktera to umi?
Predem dik.
Jarda
Select pres vice databazi pres BDE TDatabase
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 15.4.2002 17:54:35
Roman Netu�il dne 15 Apr 2002 v 15:30:
> Panove,
> nevite nekdo jak udelat select pres vice databzi v BDE komponente
> TQuery napojene na BDE komponetu TDatabase? Kdyz tam uvedu napriklad
> select * from C:\DATA\tabulka, nelibi se mu to. Navic mam problem, ze
> se mi pismena s hacky a carkami objevi az na konci abecedy. Potrebuji
> se totiz napojit na DBF tabulky kodovane v cp 852. Resim to pomoci
> User DSN ODBC a Visual FoxPro driveru. V aliasu BDE nastavim
> langdriver na DBASE csy 852. Potrebuji sestavit select nad taulkami,
> ktere se nachazeji ve dvou oddelenych adresarich.
Ahoj,
da se pouzit neco jako
SELECT a.* FROM "C:\DB1\tab1.db" a
LEFT OUTER JOIN "C:\DB2\tab2.db" b on (....
Karel Rys
zoznam
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.4.2002 18:01:52
> mam tabulku s menamy a potrebujem komponentu ktora by my pomocou
> rozbalovacieho zoznamu umoznila vybrat jede zaznam. Skusal
> som DBComboBox
> ale zobrazi iba aktualny zaznam a neda sa listovat. Sipka nereaguje
TDBLookupComboBox je myslim to, co potrebujes.
HTH
TOndrej
promenna na urovni unity
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 15.4.2002 18:23:01
Bude jedinny, overit si to muzes pomoci break pointu.
Doporuceni je se tomuto vyhnout, zvlaste pri praci s vice vlakny.
analogie k tvojemu problemu je Instance TAplication.
Slavek
> DD,
> potreboval bych mit na urovni unity TStringList, aby byl pristupny
> vsem instancim tridy v teto unite. Lze stringlist vytvorit v
> initialization a rusit v finalization unity? Bude skutecne tento
> stringlist jediny, nebo kdyz v jine unite dam do uses tuto unitu, tak
> se jeji initializacion a finalizacion vola znovu? A nebo, nemate
> lepsi reseni?
>
ukonceni chodu vindows XP
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 15.4.2002 18:37:26
Obecne pro NT funguje http://dusek.webz(tec)cz/tips/exitnt.php, ale v XP to
odzkouseno nemam, cekam az se v tech omalovankach vychytaj brouci :)
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Ing. Vladimir Ruzicka" <ruzicka(zv)digitus(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 15, 2002 4:58 PM
Subject: ukonceni chodu vindows XP
> Ahoj,
>
> pred casem se tu neco podobneho resilo, ale nejak jsem se zpetne
nedopatral
> k vysledku - moje aplikace napsana v D3 se zavre i s PC po
> ExitWindowsEx(EWX_SHUTDOWN,0). Ve Win XP to ale hodi chybu a nic.
>
> Vi nekdo co s tim ?
> Dik predem
>
> Vladimir W95, D3
>
>
zoznam
[*] Filip Kinsky <xkinf01(zv)vse(tec)cz> - 15.4.2002 19:06:54
Ahoj,
pokud to dobre chapu, tak je na tohle vhodnejsi DBLookupComboBox
- u nej nastavis jen ListSource, ListField a KeyField a o vic se
nemusis starat...
Filip
------------------------------
m> zdravim
m> mam tabulku s menamy a potrebujem komponentu ktora by my pomocou
m> rozbalovacieho zoznamu umoznila vybrat jede zaznam. Skusal som DBComboBox
m> ale zobrazi iba aktualny zaznam a neda sa listovat. Sipka nereaguje
VarArrayFromStrings - co s tim
[*] Martinec <martin108(zv)post(tec)cz> - 15.4.2002 19:47:28
Dela ta funkce toto nebo neco jineho?
function VarArrayFromStrings(List: TStrings): OleVariant;
var I: integer;
begin
Result:=VarArrayCreate([0-List.Count-1],varString);
for I:=0 to List.Count-1 do Result[I]:=List[I];
end;
Martinec
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
>
> Patrne si ji budes muset prepsat z D6, je to 6 radek.
>
> Petr Vones
Otev�r�n� tabulek
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 15.4.2002 20:25:59
Otevirani a zavirani tabulek bych se nebal. Pouzivam FlashFiller v 1.53 a
rychlost otevreni a zavreni tabulky je velmi dobra a pro uzivatele
nepostrehnutelna (na 100Mb siti, TCP IP protokol).
Pro spolupraci s dialogy pouzivam nasledujici kontrukci. Tabulky mam
polozene na DataModule, protoze vetsinou je jich spolecne propojeno vice.
Nektere oteviram s inicializaci DataModule jine jen podle potreby (napr.
pro tisk).
Tento DataModul podle potreby inicializuje Editory/Browsery, kterym jako
parametr predava sebe.
Editory na sobe maji DB-sensitivni komponenty, ktere se napojuji pres
TDataSety. Tyto Datasety jsou soucasti editoru. Tim je zaruceno, ze
Datasety ktere pouziva DataModule na propojeni tablek (master/detail)
dostavaji zpravu o zmene (OnChange Data) drive nez Datasety v dialogu.
Editory znaji strukturu sveho nadrizeneho (Ownera) a pri prebirani jeho
jako parametru propoji DBxxxx s DSxxxxx v editoru.
TAddressEditor.ShowModalDlg(AOwnerDataModule: TAddressDataModule): Boolean;
begin
FOwnerDataModule:=AOwnerDataModule;
DSAddressItem.Dataset:=FOwnerDataModule.DBAddressItem;
....
end;
S pozdravem Vaclav Riha
-----P�vodn� zpr�va-----
Od: Lenka Don�tov� [SMTP:lenkad(zv)nemocnice-vs(tec)cz]
Odesl�no: 15. dubna 2002 13:31
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Otev�r�n� tabulek
Chci se zeptat na nasledujici problem.
M�m formular ve kterem zobrazuji prip. edituji data jedne tabulky - v
kterem okamziku
je nejlepsi tuto tabulku otevirat a zavirat pokud ji nechci mit otevrenou
po celou dobu chodu programu, ale jenom v ten moment kdy ji potrebuju a pak
ji zavru.
Zatim nejlepsi se mi jevi ji otevirat v udalosti OnActivate formu ale mam
problem s tim, ze pokud se mi nepodari ji otevrit a ja nechci v tom pripade
zobrazovat form jak to udelat.
Lenka Donatova
Nemocnice Vsetin
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.298 / Virov� b�ze: 161 - datum vyd�n�: 13.11.2001
<<Soubor: ATT00010.html>>
OT: tisk z DOSu pres USB
[*] Jan Naiser <tua(zv)wo(tec)cz> - 15.4.2002 20:59:15
Preji pekny den,
existuji pry manazery, ktere umi osetrit - presmerovat - tisk z DOSovskeho
LPT na USB Win pod WIN32. Neznate nejaky odkaz na inetu?
Diky, Honza.
stopky
[*] �t�p�n Albrecht���jV��dz�� - 15.4.2002 21:20:42
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Existuje v D3 nejaka komponenta ktera by pracovala jako stopky?
Dik
Stepan Albrecht
alby(zv)seznam(tec)cz
stopky
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.4.2002 21:49:55
UHJlY2UgbmVuaSBwcm9ibGVtIHNpIHphcGFtYXRvdmF0IGRvIGR2b3UgcHJvbWVubnljaCB0eXB1
IFREYXRlVGltZQ0KY2FzIHphY2F0a3UgYSBrb25jZSBtZXJlbmksIGEgdG8gcGFrIHpvYnJheml0
Og0KTGFiZWwuQ2FwdGlvbiA6PSBGb3JtYXREYXRlVGltZSgnaGg6bm46c3Muenp6JywgU3RhcnQg
LSBTdG9wKTsNCg0KLS0gDQppbmcuIEphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3oN
Cg0KMTUuNC4yMDAyIKl07HDhbiBBbGJyZWNodDoNCj4gRXhpc3R1amUgdiBEMyBuZWpha2Ega29t
cG9uZW50YSBrdGVyYSBieSBwcmFjb3ZhbGEgamFrbyBzdG9wa3k/DQo+IERpaw0KIA0KPiBTdGVw
YW4gQWxicmVjaHQNCj4gYWxieUBzZXpuYW0uY3oNCiANCiA=
Zaveseni modemu
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 15.4.2002 21:52:45
Mohli byste mi, prosim, ukazat jak to udelat. Mne se to stale nedari -
dostavam handle
na neco uplne jineho ...
dekuji
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 11, 2002 11:24 PM
Subject: Re: Zaveseni modemu
> >Muzete mi poradit jak zavesit standartni modem, ktery vytocil Windows.
> Nevim jak zasahnout na port,
> >ktery jsem ani neotevrel.
>
> RASEnumConnections
>
> ziskas handle na bezici spojeni -> RASHangUp
>
> D. Toman
>
>
>
Video
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 15.4.2002 22:01:09
Ahoj, chtel bych se zeptat, jestli n�kdo nevite o nejake komponente na
prehravani S-Videa a prip. i DVD. (nejlepe free, ale i za rozumny
peniz).
Predem diky
Mirek Drancak
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.345 / Virov� b�ze: 193 - datum vyd�n�: 9.4.2002
Socket Server - tuhne spojenie
[*] Erik Salaj <winsoft(zv)stonline.sk> - 15.4.2002 22:30:51
> hmmm. ja som skusil SOAP.
> ma to dve vady:
>
> a) nevytvara sa perzistentne spojenie - teda kazde volanie spusti ten SOAP
> server, vykona akciu a zase skonci... co je nevyhovujuce - pretoze to
> vyzaduje potom administraciu aktualneho stavu spojenia konkretneho klienta
> na databazu - je predsa nemyslitelne aby som pri kazdom volani otvoril
> databazu - urobil povedzme selekt - zatvoril DB
> (teda ak vyhladavam - pustim kompikovany select - vytiahnem prvych 1000
> zaznamov - ked chcem dalsich 1000 nevyhnutne musim pustit select znova -
co
> som pri DCOM/SOCKET spojeni nemusel !)
nemusis pri kazdom volani otvarat databazu i ked sa to zvykne tak robit
napr. v ADO (ADO totiz dokaze efektivne spravovat pripojenia k databaze).
> ak to chapem spravne - tymto sa SOAP znacne odlisuje od DCOM, SOCKET a
CORBA
> spojenia, NIE ?
SOAP pouziva XML a HTTP na prenos informacii, cize je vhodny
pre internetove distribuovane aplikacie. Samozrejme to ma svoje
vyhody aj nevyhody, treba si k tomu nieco precitat a vyskusat si to.
> b) nepodarilo sa mi to rozchodit pod W95 - teda klientsku cast SOAP
klient -
> pricom na W98, ani W2k nemam problem
> dokonca prenesiem aj z W98 tych 10000 a viac znakov v parametri - co bol
> primarny problem - kde diskusia zacala
>
> ma niekto funkcne demo SOAP servera a klienta ktore funguje ak ked klient
> bezi na W95 ?
Win95 nie je podporovane SOAP Toolkitom
Erik
Spustenie aplikacie jedenkrat
[*] Jozef Baranec <joba(zv)digitaldocuments.org> - 16.4.2002 00:11:50
Myslim, ze sa tu o tom uz pisalo...
Potrebujem zabezpecit, aby sa mi aplikacia spustila iba raz. Cice pri
opakovanom spusteni exe sa mi iba aktualizuje okno uz spusteho exe a
nespusti sa druhe.
Vopred dik za radu.
jozo
Video
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 16.4.2002 06:08:07
> Od: Mirek [SMTP:dmiroslav(zv)seznam(tec)cz]
>
> Ahoj, chtel bych se zeptat, jestli n�kdo nevite o nejake komponente na
> prehravani S-Videa a prip. i DVD. (nejlepe free, ale i za rozumny
> peniz).
>
>
Zde http://www.crazyentertainment.net/ je (ne)oficialni stranka s preklady
DX8.x headeru do Delphi. Na teto strance je take spousta prikladu, mj. i
DSPack (http://www.progdigy.com/), ktery obsahuje komponenty pro ovladani
DVD a videovstupu.
Ober
Spustenie aplikacie jedenkrat
[*] Miroslav Kortus <delphi(zv)nemocnice-vs(tec)cz> - 16.4.2002 06:28:48
Ahoj,
Zkus se podivat na www.zive(tec)cz Tipy a triky v Delphi, dil 7
Mira
ID3 a ty jine
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 16.4.2002 06:54:45
Nazdar,
vim, jak mam dostat ID3 z MP3, ale nevite jak je to u tech ostatnich
formatu (wma) ? Dik DKx.
#DKx*-Prosim nemazat, index do filtru.
Spustenie aplikacie jedenkrat
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 16.4.2002 07:01:20
Mysli, ze to je FindWindow(PChar(MujNejakyStringSNazvemTypu), nil),
ktery vraci nil, pokud neexistuje.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> Potrebujem zabezpecit, aby sa mi aplikacia spustila iba raz. Cice pri
> opakovanom spusteni exe sa mi iba aktualizuje okno uz spusteho exe a
> nespusti sa druhe.
> jozo
Potomek z THeader pro prekresleni
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.4.2002 07:07:58
To je sice pravda, ale zmenit THeader (kde jsou jednoduse menene sekce pomoci listu Sections) na THeaderControl, se mi zda dost slozite. Ani moc mi nevadi ze je to "deprecated", pokud s tim bude co nejmene prace.
Ale i tak diky
Jaro B.
> potrebuji do THeaderu (nejake sekce) nakreslit nekolik znacek a nemohu
> pouzit HeaderControl (chova se trosku jinak a nemuzu prepisovat desitky
THeader je deprecated, mel by jsi pouzivat THeaderControl. Tam mas navic i
udalost OnDrawSection coz je asi to co hledas.
Petr Vones
tisk
[*] smallbear <smallbear(zv)centrum(tec)cz> - 16.4.2002 07:49:50
Ahoj lidi,
potrebuji vyresit problem tisku na obalky. Mam k dispozici promene jako je jmeno, prijmeni atd....
Neresil jste to jiz nekdo? Dival jsem se na tisk, pokousel jsem se neco vytisknout, ale chovalo se to dost divne, tisklo mi to na konec stranky a kdyz jsem nastavil jine okraje, bylo to totez.
Diky,
Tomas
array of TNeco
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 16.4.2002 07:54:50
Zkus mi vysvetlit jeste neco:
Proc u IInterface je metoda QueryInterface pojmenovana stejne jako v COM a
_AddRef a _Release ma na zacatku podtrzitko, kdyz v COM technologii jsou
definovany bez podtrzitka ?
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> From: "Milan Tomes" <milan.tomes(zv)haida(tec)cz>
> > To je pravda (znamena potomka IInterface), ale jestli jsem to dobre
> > pochopil, tak je to "pouze" kvuli Linuxu...
>
> Je to predevsim kvuli Object Pascalu. Interface je zkratka nativni soucast
> jazyka podobne jako objekty.
>
> Petr Vones
>
Spustenie aplikacie jedenkrat
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 16.4.2002 07:56:52
Podivej se do JCL - unita JclAppInst
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Potrebujem zabezpecit, aby sa mi aplikacia spustila iba raz. Cice pri
> jozo
window title exploreru
[*] cYd <cYd(zv)seznam(tec)cz> - 16.4.2002 08:43:17
Hezky den,
lze nejak pomoci delphi zmenit window title internet exploreru? treba aby se
mi tam zobrazoval bezici cas, nebo neco podobneho?
Diky
cYd
User.exe - chyba
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 16.4.2002 08:47:54
Servus,
opet sem narazil na problem typu Error. Mam aplikaci, ktera am i
nekolik formularu v knihovnach. Program beha bez problemu, ale problem
vznik� po ukonceni programu. Provedu trikrat tu samou operaci, dva krat nic
a po treti jak zavru program se objevi hlaska, ze muj progam vykonal
neplatnou operaci, nejcasteji na User.exe nebo Rundll.
Nevite nekdo, cim by to mohlo byt?
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.346 / Virov� b�ze: 194 - datum vyd�n�: 10.4.2002
tisk z DOSu pres USB
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 16.4.2002 08:51:40
Napriklad www.redlich.tele2(tec)cz. Podminkou je, ze DOSovska aplikace vytiskne
sestavu do souboru.
Dan
> Preji pekny den,
>
> existuji pry manazery, ktere umi osetrit - presmerovat - tisk z
DOSovskeho
> LPT na USB Win pod WIN32. Neznate nejaky odkaz na inetu?
>
> Diky, Honza.
Soucet poli
[*] snehulak <snehulak(zv)izs-br(tec)cz> - 16.4.2002 08:57:57
Mel bych dotaz.Da se tento priklad na secteni nekolika poli udelat nejak
elegantneji? Jsem teprv zacatecnik a zatim sem na nic jineho neprisel.
i:integer;
table1.open;
table1.Edit;
i:=table1.fields[3].asinteger+table1.fields[4].asinteger+table1.fields[5].as
integer;
table1.post
Dekuji
Active directory, Delphi, Odomykanie uctov
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 16.4.2002 09:36:40
zdavim pratele a pritelkyne ;o)
help mi, potreboval by som spravit utilitku pre operatorov na odomykanie
uctov v active directory. problem je, ze neviem akym smerom sa pohnut,
co si nastudoovat, kde hladat pomoc a navod k takemuto "velkolepemu
dielu" ;). ma niekto skusenosti s takymto niecim? literatura, navod,
zdrojovy kod, popripade hotovu aplikaciu? ;o). pomohlo by mi aj
nasmerovanie od skusenejsich a znalejsich. vdaka za vsetko co je vo mne
dobre ;o).
M.
BDE
[*] Dalibor �r�tek <dalibor.srutek(zv)i-projekt(tec)cz> - 16.4.2002 09:41:01
Dobry den, chtel bych se zeptat, zda je mozne z aplikace pristupovat k datum
napr. k souboru mdb aniz bych musel mit nainstalave BDE? Diky Srutek
_________________________________________
ICQ#: 103632358
* More ways to contact me <http://wwp.icq.com/103632358>
i See more about me <http://web.icq.com/whitepages/about_me?Uin=103632358>
_________________________________________
User.exe - chyba
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 16.4.2002 09:46:44
Pricin muze byt mnoho - nekorektni uvolnovani pameti, odkazujes se na
objekt, ktery jiz neexistuje, zapisujes do bufferu, ktery jiz byl zrusen
apod. A to, ze to dvakrat projde a potreti nikoli, ukazuje na to, ze patrne
zapisujes nekam do pameti s tim, ze dvakrat se trefis tam, kde to zadnou
skodu neudela a potreti uz zapises nekam, kde to zpusobi tuhle chybu. Zkus
MemProof, je to free a muze ti to pomoci tu chybu odhalit.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> opet sem narazil na problem typu Error. Mam aplikaci, ktera am i
> nekolik formularu v knihovnach. Program beha bez problemu, ale problem
> vznik� po ukonceni programu. Provedu trikrat tu samou operaci, dva krat
nic
> a po treti jak zavru program se objevi hlaska, ze muj progam vykonal
> neplatnou operaci, nejcasteji na User.exe nebo Rundll.
> Nevite nekdo, cim by to mohlo byt?
BDE
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 16.4.2002 09:47:02
KADaoDatabase a KADaoTable. Je-li z�jem, za�lu ...
----- Original Message -----
From: "Dalibor �r�tek" <dalibor.srutek(zv)i-projekt(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 16, 2002 9:41 AM
Subject: BDE
> Dobry den, chtel bych se zeptat, zda je mozne z aplikace pristupovat k
datum
> napr. k souboru mdb aniz bych musel mit nainstalave BDE? Diky Srutek
>
> _________________________________________
>
> ICQ#: 103632358
> * More ways to contact me <http://wwp.icq.com/103632358>
> i See more about me <http://web.icq.com/whitepages/about_me?Uin=103632358>
> _________________________________________
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.346 / Virov� b�ze: 194 - datum vyd�n�: 10.4.2002
User.exe - chyba
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 16.4.2002 09:49:49
Velike ti D, kde mohu ten MemProof sehnat?
Pricin muze byt mnoho - nekorektni uvolnovani pameti, odkazujes se na
objekt, ktery jiz neexistuje, zapisujes do bufferu, ktery jiz byl zrusen
apod. A to, ze to dvakrat projde a potreti nikoli, ukazuje na to, ze patrne
zapisujes nekam do pameti s tim, ze dvakrat se trefis tam, kde to zadnou
skodu neudela a potreti uz zapises nekam, kde to zpusobi tuhle chybu. Zkus
MemProof, je to free a muze ti to pomoci tu chybu odhalit.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.346 / Virov� b�ze: 194 - datum vyd�n�: 10.4.2002
BDE
[*] Dalibor �r�tek <dalibor.srutek(zv)i-projekt(tec)cz> - 16.4.2002 10:08:13
Tak jsem to naimportoval a co ted dale. Do Database property jsem nastavil
cestu k mdb souboru a pri Connected na True to hlasi chybu Unrecognized
database format.... A jeste jak to nakonec napojim na komponenty TQuery,
TDataSource a TRxDbGrid.
-----Original Message-----
From: Rumcajs [mailto:prajz.rumcajs(zv)quick(tec)cz]
Sent: Tuesday, April 16, 2002 9:47 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: BDE
KADaoDatabase a KADaoTable. Je-li z�jem, za�lu ...
----- Original Message -----
From: "Dalibor �r�tek" <dalibor.srutek(zv)i-projekt(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 16, 2002 9:41 AM
Subject: BDE
> Dobry den, chtel bych se zeptat, zda je mozne z aplikace pristupovat k
datum
> napr. k souboru mdb aniz bych musel mit nainstalave BDE? Diky Srutek
>
> _________________________________________
>
> ICQ#: 103632358
> * More ways to contact me <http://wwp.icq.com/103632358>
> i See more about me <http://web.icq.com/whitepages/about_me?Uin=103632358>
> _________________________________________
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.346 / Virov� b�ze: 194 - datum vyd�n�: 10.4.2002
EncodeDate - Invalid argument to date encode
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 16.4.2002 10:16:47
function EncodeDate(Year, Month, Day: Word): TDateTime;
Pokud koduji rok 2000 cili v promene Y je 0 potom fce zpadne na hlasku
%subj% nevite nekdo co s tim.
Specha.
Diky moc
Dialog otevrit cim
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 16.4.2002 09:18:28
Zdravim,
prochazel jsem archiv konference a nic jsem nenasel.
Proto se ptam:
Uzivatel v programu muze spoustet libovolny soubor. Pouzivam na to ShellExecute. Tento prikaz vraci nejakou hodnotu, kdyz neni soubor asociovan. Ja bych v tomto pripade chtel nabidnout uzivateli klasicky dialog "Otevrit cim". Jak muzu toto udelat?
Predem dekuji za nakopnuti vpred.
Mirek Drejcek
EncodeDate - Invalid argument to date encode
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 16.4.2002 10:19:51
Year = 0 neni rok 2000! Zkus dat misto 0 cele cislo 2000
> function EncodeDate(Year, Month, Day: Word): TDateTime;
>
> Pokud koduji rok 2000 cili v promene Y je 0 potom fce zpadne na hlasku
> %subj% nevite nekdo co s tim.
> Specha.
>
> Diky moc
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.346 / Virov� b�ze: 194 - datum vyd�n�: 10.4.2002
EncodeDate - Invalid argument to date encode
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.4.2002 10:21:08
> function EncodeDate(Year, Month, Day: Word): TDateTime;
>
> Pokud koduji rok 2000 cili v promene Y je 0 potom fce zpadne na hlasku
> %subj% nevite nekdo co s tim.
> Specha.
Nejak nevim, ale ja kdyz chci hodnotu 2000, tak napisu 2000 a ne 0.
:-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
BDE
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 16.4.2002 10:21:44
Samozrejme, k mdb napriklad pomoci ADO - pokud mas D5 nebo D6. Je to i lepsi
nez pomoci BDE.
Martin Ben
> -----Original Message-----
> From: Dalibor Srutek [mailto:dalibor.srutek(zv)i-projekt(tec)cz]
>
> Dobry den, chtel bych se zeptat, zda je mozne z aplikace
> pristupovat k datum
> napr. k souboru mdb aniz bych musel mit nainstalave BDE? Diky Srutek
EncodeDate - Invalid argument to date encode
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 16.4.2002 10:33:52
Sorry za unahleny dotaz strasne to spechalo tak jsem ani nepremyslel a
poslal jasne ze tam ma byt 2000 pocitam rok z rodneho cisla takze mi to
nedoslo
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Mephisto
Sent: Tuesday, April 16, 2002 10:17 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: EncodeDate - Invalid argument to date encode
function EncodeDate(Year, Month, Day: Word): TDateTime;
Pokud koduji rok 2000 cili v promene Y je 0 potom fce zpadne na hlasku
%subj% nevite nekdo co s tim.
Specha.
Diky moc
BDE
[*] Martin Cajbik <cajbik(zv)sct.sk> - 16.4.2002 10:46:48
Ja na pristup k MDB pouzivam ODBCe (http://www.sct.sk/soft/ODBCe.exe).
Okrem MDB to umoznuje pristup na lubovolny ODBC zdroj dat.
K programu je nutne pribalit iba jedno DLL a je to volne vratane zdrojakov.
Ma to vsak iba Query (aj ked s moznostou dodefinovat updatovacie prikazy),
ale DB komponenty (okrem DBGrid) aj tak nepouzivam (neviem ako ty).
MarCaNT
> Dobry den, chtel bych se zeptat, zda je mozne z aplikace pristupovat k
datum
> napr. k souboru mdb aniz bych musel mit nainstalave BDE? Diky Srutek
Prubeh FTP prenosu v SYNAPSE.
[*] Petr Dedecek <petrd(zv)atlas(tec)cz> - 16.4.2002 10:50:16
Ahoj,
pouzivam SYNAPSE na FTP prenosy a potrebuji zobrazit prubeh prenosu souboru. Je to nejak mozne ?
Dik.
Petr Dedecek
petrd(zv)atlas(tec)cz
array of TNeco
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 16.4.2002 10:52:47
Zdravim,
podle meho nazoru je Interface neco jako abstraktni trida, ktera mi umoznuje
"vicenasobnou dedicnost" a zarucuje mi urcitou funkcionalitu objektu, ktery
interface implementuje ( stejne jako v prog. jazycich Java, C# )
_AddRef a _Release maji podtrzitka, protoze jsou interne volany v Delphi.
Kdyz implementujes COM pomozi Delphi objektu a nevytvaris si ho od zakladu
sam, jsou metody AddRef a Release volany Delphi podle zivotnosti promennych
a programator by je volat nemel ( proto ty podtrzitka ). Tohle jsem alespon
vycetl z Mistrovstvi v Delphi 3. Tento postuj je implementovan snad od
Delphi 3 a vyse.
Pokud se mylim budu velmi rad, kdyz me uvedete do spravneho obrazu :)
S pozdravem Marek Eichler
----- P�vodn� zpr�va -----
Od: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 16. dubna 2002 7:54
P�edm�t: RE: array of TNeco
> Zkus mi vysvetlit jeste neco:
>
> Proc u IInterface je metoda QueryInterface pojmenovana stejne jako v COM a
> _AddRef a _Release ma na zacatku podtrzitko, kdyz v COM technologii jsou
> definovany bez podtrzitka ?
>
> S pozdravem
>
> Milan Tomes
> mailto:milan.tomes(zv)haida(tec)cz
Prubeh FTP prenosu v SYNAPSE.
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.4.2002 10:56:50
> pouzivam SYNAPSE na FTP prenosy a potrebuji zobrazit prubeh prenosu souboru. Je to nejak mozne ?
Podivej se na event: TFtpSend.DSock.OnStatus
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
commit v IB6
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 16.4.2002 11:30:45
V databaze mam vytvorenu tabulku, ktoru si v aplikacii zobrazim pomocou
IBQuery (select).
Pridam novy zaznam cez IBProc (v databaze je definovana procedura na insert,
na konci je commit). Ako dosiahnut refresh tejto tabulky?
Aby sa zobrazil prave pridany zaznam? Musim zavriet a znovu otvorit IBQuery?
Ale potom aktualny zaznam skoci na zaciatok... :(((
Ako to riesite vy?
Robo
tisk z DOSu pres USB
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.4.2002 11:49:52
----- Original Message -----
From: "Jan Naiser" <tua(zv)wo(tec)cz>
> existuji pry manazery, ktere umi osetrit - presmerovat - tisk z DOSovskeho
> LPT na USB Win pod WIN32. Neznate nejaky odkaz na inetu?
>
> Diky, Honza.
Skus kontaktovat
Ing. Jozef Sebo - admin(zv)akrylon.sk
TRoland
OT- Rychlost NetBEUI vs. TCP/IP
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.4.2002 11:54:26
Ahojte!
Dostal som jedno doporucenie pre nastavenie sieti od jednej firmy pre ich
soft, ktora deklaruje vyssiu rychlost pri pouziti NetBEUI oproti TCP/IP a ze
to aj merali a je to tak.
Mne sa to nezda, aky mate vy na to nazor. V com moze byt NetBEUI rychlejsie
?
TRoland.
window title exploreru
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.4.2002 11:56:01
----- Original Message -----
From: "cYd" <cYd(zv)seznam(tec)cz>
> Hezky den,
> lze nejak pomoci delphi zmenit window title internet exploreru? treba aby
se
> mi tam zobrazoval bezici cas, nebo neco podobneho?
V pripade statickych textov tam niektory provideri si pisu seba a je to
zapisane v registry.
TRoland.
Soucet poli
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.4.2002 11:58:13
----- Original Message -----
From: "snehulak" <snehulak(zv)izs-br(tec)cz>
> Mel bych dotaz.Da se tento priklad na secteni nekolika poli udelat nejak
> elegantneji? Jsem teprv zacatecnik a zatim sem na nic jineho neprisel.
>
> i:integer;
> table1.open;
> table1.Edit;
>
i:=table1.fields[3].asinteger+table1.fields[4].asinteger+table1.fields[5].as
> integer;
> table1.post
Pisem z hlavi do mailera
proce...
Var X,I:Integer;
begin
I:=0;
For X:=0 to Table1.Fields.count-1
do I:=I+table1.fields[x].asInteger;
TRoland.
commit v IB6
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.4.2002 12:09:03
----- Original Message -----
From: "Robert Poncak" <delphi(zv)zvlauto.sk>
> V databaze mam vytvorenu tabulku, ktoru si v aplikacii zobrazim pomocou
> IBQuery (select).
> Pridam novy zaznam cez IBProc (v databaze je definovana procedura na
insert,
> na konci je commit). Ako dosiahnut refresh tejto tabulky?
> Aby sa zobrazil prave pridany zaznam? Musim zavriet a znovu otvorit
IBQuery?
> Ale potom aktualny zaznam skoci na zaciatok... :(((
> Ako to riesite vy?
if ib1.Active and not ib1.IsEmpty then
ib1.Tag:=ib1.FieldByName('jedin').AsInteger;
if ib1.Transaction.InTransaction then ib1.Transaction.Commit;
ib1.sql.Text:='select a.jedin,.... ';
ib1.open; // otvor Query
ib1.Locate('jedin',ib1.Tag,[]);
TRoland.
Spustenie aplikacie jedenkrat
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 16.4.2002 12:15:15
Mrkni na funkce pro manipulaci s "Atomy".
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
> > Potrebujem zabezpecit, aby sa mi aplikacia spustila iba raz. Cice pri
> > opakovanom spusteni exe sa mi iba aktualizuje okno uz spusteho exe a
> > nespusti sa druhe.
>
> > jozo
commit v IB6
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 16.4.2002 12:34:17
Pridavam zaznam tak, ze vim i jeho primary key. V pripade, ze insert projde,
udelam refresh tabulky (Close, Open) a pomoci TDataSet.Locate vyhledam
prislusny zaznam.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Pridam novy zaznam cez IBProc (v databaze je definovana procedura
> na insert,
> na konci je commit). Ako dosiahnut refresh tejto tabulky?
> Aby sa zobrazil prave pridany zaznam? Musim zavriet a znovu
> Robo
OT: DVD z torry.ru
[*] Emresz Tom� <Tomas.Emresz(zv)bsp(tec)cz> - 16.4.2002 12:36:17
Zdravim,
Objednaval si uz nekdo DVD z torryho a platil jinak nez kreditkou ? (Nemam mezinarodni)
Kolik stalo DVD s postovnym ? (V prepoctu na kc)
Dekuji
Tomas Emresz
BSP Group a.s.
Tel.: 02/61218070
email.: tomas.emresz(zv)bsp(tec)cz
EncodeDate - Invalid argument to date encode
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 16.4.2002 12:39:42
kdy z to tam davas z rodneho cisla nenechas tam 6 v mesici?
> Sorry za unahleny dotaz strasne to spechalo tak jsem ani nepremyslel a
> poslal jasne ze tam ma byt 2000 pocitam rok z rodneho cisla takze mi to
> nedoslo
EncodeDate - Invalid argument to date encode
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 16.4.2002 13:01:57
Hi,
nezapominas nahodou pripadne odcitat 50 z mesice narozeni ci dne narozeni?
U zen je mesic narozeni + 50. (U smluvnich pojistencu je den narozeni + 50,
pokud to ctes z karticky pojistence).
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
.. -----Original Message-----
.. poslal jasne ze tam ma byt 2000 pocitam rok z rodneho cisla
OT: Instalace a konfigurace IB na linuxu?
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 16.4.2002 13:13:00
DD,
nemate nekdo zkusenosti s IB na Linuxu? Nyni pouzivam IB z D6 pod Win2k,
ale chci si to vyzkouset i na Linuxu.
Nainstaloval jsem si InterBaseSS_LI_V6.0-1.i386.rpm na RH7.1. Ta
probehla v poradku. Jak ale dal? Nenasel jsem zadnou srozumitelnou
dokumentaci, ktera by popisovala zakladni konfiguraci, a vubec
administraci IB. Asi jsem hledal spatne.
Muzete mi prosim nekdo poradit, kam se mam podivat? Jak vubec IB
spustit, nastavit pristupove prava, vytvorit databazi?
Dekuji za jakoukoli pomoc
S pozdravem
Tomas
Jak vytvorit zastupce
[*] likeapear <likeapear(zv)centrum(tec)cz> - 16.4.2002 14:05:54
ahoj,
potreboval bych jednoduchy prikladek nebo fci, jak vytvorit zastupce na
nakou aplikaci s temito parametry:
prikazovy radek
umisteni zastupce
dekuji
likeapear
Instalace a konfigurace IB na linuxu?
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 16.4.2002 14:15:43
----- Original Message -----
From: "Tomas Vida" <vida(zv)uniware(tec)cz>
> nemate nekdo zkusenosti s IB na Linuxu? Nyni pouzivam IB z D6 pod Win2k,
> ale chci si to vyzkouset i na Linuxu.
> Nainstaloval jsem si InterBaseSS_LI_V6.0-1.i386.rpm na RH7.1. Ta
> probehla v poradku. Jak ale dal? Nenasel jsem zadnou srozumitelnou
> dokumentaci, ktera by popisovala zakladni konfiguraci, a vubec
> administraci IB. Asi jsem hledal spatne.
> Muzete mi prosim nekdo poradit, kam se mam podivat? Jak vubec IB
> spustit, nastavit pristupove prava, vytvorit databazi?
Stahni si dokumentaci k IB 6 beta v PDF z www.borland.com, stale ji
tam nekde maji. Jinak informace najdes na www.ibphoenix.com, v tomto
ohledu se Firebird nelisi od Interbase.
Defacto staci spustit "ibserver" ale lepe je pouzit k tomu "ibmgr -start".
Pokud to ohlasi chybu, ale server se rozjede (zjistis napr. pomoci
"ps -A | grep ib") musis upravit tusim /etc/hosts.equiv a pridat tam
radek s localhost a adresou 127.0.0.1.
Lze sdilet COM port?
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 16.4.2002 14:24:29
Ahoj,
nevite zda lze sdilet jeden seriovy port vice aplikacemi soucasne?
Jara.
svehla(zv)spelza(tec)cz
Spustenie aplikacie jedenkrat
[*] Peter Laufer <laufer(zv)dmasys.sk> - 16.4.2002 14:53:11
Skus toto....
OldHWND := FindWindow('TMainForm',nil);
if OldHWND = 0 then
begin
Application.Initialize;
Application.Title := 'Test';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
else
begin
Application.MessageBox('Aplikacia je uz
spustena!!!','Varovanie',MB_RIGHT+MB_ICONWARNING);
fgHWND := GetForegroundWindow();
if fgHWND <> oldHWND then
begin
AttachThreadInput(GetWindowThreadProcessId(fgHWND,nil),GetCurrentThreadId,Tr
ue);
SetForegroundWindow(OldHWND);
AttachThreadInput(GetWindowThreadProcessId(fgHWND,nil),GetCurrentThreadId,fa
lse);
end;
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jozef Baranec
Sent: Tuesday, April 16, 2002 12:12 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Spustenie aplikacie jedenkrat
Myslim, ze sa tu o tom uz pisalo...
Potrebujem zabezpecit, aby sa mi aplikacia spustila iba raz. Cice pri
opakovanom spusteni exe sa mi iba aktualizuje okno uz spusteho exe a
nespusti sa druhe.
Vopred dik za radu.
jozo
TADODataSet SaveToStream/LoadFromStream jak na to
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 16.4.2002 14:54:14
Ahoj, muzete mi pomoct,
jak ulozit a precist AdoDataSet do streamu.
TADODataSet ma pouze SaveToFile, LoadFromFile,
potrebuji to pro dalsi zpracovani dostat do streamu.
Diky Pavel
commit v IB6
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 16.4.2002 14:57:19
a nie je to pomale? (to zatvaranie a otvaranie a potom este vyhladanie... )
Preco mi neurobi refresh tabulky TTransaction.CommitRetaining ?
Robo
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Milan Tome�
Sent: Tuesday, April 16, 2002 12:34 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: commit v IB6
Pridavam zaznam tak, ze vim i jeho primary key. V pripade, ze insert projde,
udelam refresh tabulky (Close, Open) a pomoci TDataSet.Locate vyhledam
prislusny zaznam.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Pridam novy zaznam cez IBProc (v databaze je definovana procedura
> na insert,
> na konci je commit). Ako dosiahnut refresh tejto tabulky?
> Aby sa zobrazil prave pridany zaznam? Musim zavriet a znovu
> Robo
Jak vytvorit zastupce
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 16.4.2002 14:57:34
Hello likeapear,
Tuesday, April 16, 2002, 2:05:54 PM, you wrote:
l> ahoj,
l> potreboval bych jednoduchy prikladek nebo fci, jak vytvorit zastupce na
l> nakou aplikaci s temito parametry:
l> prikazovy radek
l> umisteni zastupce
l> dekuji
l> likeapear
http://www.builder(tec)cz/art/delphi/shortcut.html
--
Best regards,
Pavel mailto:kubal.p(zv)seznam(tec)cz
Version Info
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 16.4.2002 15:08:17
Zdravim konferenci,
Pokousim se ziskat informace o verzi programu pomoci postupu popsaneho v
helpu. Strucne to vypada takto:
....
var
S: string;
n: DWORD;
Buf: PChar;
begin
S := Application.ExeName;
n := GetFileVersionInfoSize(PChar(S), n);
if n > 0 then
begin
Buf := AllocMem(n+1);
GetFileVersionInfo(PChar(S), 0, n, Buf);
.....
Pokud jsou informace o verzi obsazeny v souboru, skutecne dostanu n>0, avsak
procedura GetFileVersionInfo
vrati v Buf naprosty nesmysl.
Setkal se s tim jiz nekdo a zna zpusob odstraneni, ci zna nekdo jiny,
fungujici postup?
Ing. Jan Dvorak
commit v IB6
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.4.2002 15:09:29
> a nie je to pomale? (to zatvaranie a otvaranie a potom este
> vyhladanie... ) Preco mi neurobi refresh tabulky
> TTransaction.CommitRetaining ?
Je to pomale, hlavne na velkych tabulkach, ale tuto funkcnost nelze bezpecne
implementovat lepe. Uvedom si, jak to s SQL serverem chodi:
1) Ty das pozadavek na server na data, server sestavi vysledek a da Ti ho k
dispozici. DBGrid si ho postupne natahuje do pameti a pracuje pouze s timto
vysledkem.
2) Veskere zmeny, ktere v datech mezitim nekdo provede, grid nemuze videt, dokud
neudela novy dotaz.
3) Po insertu/updatu/deletu, chces-li, aby grid zobrazoval i zmeny provedene jinymi
uzivateli, musis si serveru novym selectem rict opet o aktualni data. Pritom pozor na
isolation level transakce, zvlaste v pripade nespravne prace s transakcemi snapshot.
Na klientovi nemusi byt pomale nove provedeni dotazu, ale prave vyhledani
puvodniho zaznamu (Locate), zvlaste je-li hledany radek nekde hodne daleko od
prvniho radku. Pak neni jina cesta, nez zkusit upravit funkcnost aplikace tak, aby
nebylo potreba mit v gridu nekolik tisic zaznamu apod, aby ten Locate toho musel
prochazet co nejmene.
David Lebeda
Version Info
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 16.4.2002 15:44:22
Podival bych se do JclFileUtils, TJclFileVersionInfo. Tam je to
zpracovane a rozhodne funkcni.
Jan Dvorak wrote:
>
> Zdravim konferenci,
> Pokousim se ziskat informace o verzi programu pomoci postupu popsaneho v
> helpu. Strucne to vypada takto:
> ....
> var
> S: string;
> n: DWORD;
> Buf: PChar;
> begin
> S := Application.ExeName;
> n := GetFileVersionInfoSize(PChar(S), n);
> if n > 0 then
> begin
> Buf := AllocMem(n+1);
> GetFileVersionInfo(PChar(S), 0, n, Buf);
> .....
> Pokud jsou informace o verzi obsazeny v souboru, skutecne dostanu n>0, avsak
> procedura GetFileVersionInfo
> vrati v Buf naprosty nesmysl.
> Setkal se s tim jiz nekdo a zna zpusob odstraneni, ci zna nekdo jiny,
> fungujici postup?
>
> Ing. Jan Dvorak
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
error rlink32
[*] Martin Kolos <koki(zv)monoceros.physics.muni(tec)cz> - 16.4.2002 16:07:17
ahojte
mam D3 a pracuji ve winME. Jenze uz se mi vickrat stalo, ze kdyz si praci
vezmu domu na win95 (stejne delphi),
tak se mi soubor ani nenahraje do prostredi. Objevi se pri otevirani
hlaska:
Error:(0)RLINK32:Unsuported 16bit resource in file projekt.dfm
samozrejme kdyz si udelam novy form a premistim na nej vsechno z
nespustitelneho souboru, pak to jede.
nicmene s casem komponent narusta...
nevite co muze byt spatne?
martin kolos
Lze sdilet COM port?
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 16.4.2002 16:08:42
>Ahoj,
>nevite zda lze sdilet jeden seriovy port vice aplikacemi soucasne?
>
Na co to potrebujes? Podle mne to nelze bez vlastniho ovladace.
Pokud chces ten port pouze odposlouchavat tak pouzij portmon ze
sysinternals.
--
Radek �ervinka, Ing.
Odchoz� zpr�va je mo�n� zavirov�na. Nev�m. Nikdo ji nekontroloval.
Delphi a Access
[*] Dalibor �r�tek <dalibor.srutek(zv)i-projekt(tec)cz> - 16.4.2002 16:33:14
Vytvarim dotaz, kdy jeden field vypocitavam a to delenim jinych dvou poli.
Takze dotaz je zni napr. SELECT PRVNI, DRUHE, PRVNI/DRUHE AS DELENI FROM
tbDATA.
Tento dotaz padne, kdyz bude hodnota fieldu DRUHE = 0. Tak jsem si vyzkousel
a odladil dotaz primo v MS Accessu na novy dotaz: SELECT PRVNI, DRUHE,
IIf(DRUHE = 0; 0; PRVNI/DRUHE) AS DELENI FROM tbDATA. Tento dotaz slape v
pohode, ale jakmile ho provedu z DELPHI pres TQuery.SQL.Add(......)
TQuery.ExecSQL; tak se vygeneruje chyba. Je jine vychodisko z teto situace
anebo staci nekde neco nastavit. Diky Srutek
_________________________________________
ICQ#: 103632358
* More ways to contact me <http://wwp.icq.com/103632358>
i See more about me <http://web.icq.com/whitepages/about_me?Uin=103632358>
_________________________________________
Delphi a Access
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 16.4.2002 16:50:40
> Vytvarim dotaz, kdy jeden field vypocitavam a to delenim
> jinych dvou poli.
> Takze dotaz je zni napr. SELECT PRVNI, DRUHE, PRVNI/DRUHE AS
> DELENI FROM tbDATA.
> Tento dotaz padne, kdyz bude hodnota fieldu DRUHE = 0. Tak
> jsem si vyzkousel a odladil dotaz primo v MS Accessu na novy dotaz:
> SELECT PRVNI, DRUHE, IIf(DRUHE = 0; 0; PRVNI/DRUHE) AS
> DELENI FROM tbDATA. Tento dotaz slape v pohode, ale jakmile ho
> provedu z DELPHI pres TQuery.SQL.Add(......)
> TQuery.ExecSQL; tak se vygeneruje chyba.
Metoda ExecSQL je urcena na vykonavanie SQL prikazov, ktore nevracaju result
set.
V Tvojom pripade (SELECT ...) je vhodnejsia metoda Open.
HTH
TOndrej
commit v IB6
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 16.4.2002 16:52:53
Robert Poncak dne 16 Apr 2002 v 14:57:
> a nie je to pomale? (to zatvaranie a otvaranie a potom este
> vyhladanie... ) Preco mi neurobi refresh tabulky
> TTransaction.CommitRetaining ?
Mozna by se take dalo vyuzit tIBDataSet misto tIBQuery a pomoci RefreshSQL obnovit jen ten jeden
zaznam, nemam to ale vyzkousene pro zaznam, ktery predtim nebyl jiz v tIBDataSet-u obsazen; pokud
to budes zkouset, dej vedet, zda to jde, prosim. Transakce tIBDataSet-u by mela byt nastavena tak,
aby videla zmeny commitnute ostatnimi transakcemi.
Karel Rys
Version Info
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.4.2002 16:53:58
----- Original Message -----
From: "Jan Dvorak" <dvorak(zv)szu(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 16, 2002 3:08 PM
Subject: Version Info
Netrap sa pozri si JCL tam je spravene.
TRoland.
Interbase & GROUP BY clause problem
[*] Richard Willmann <sales(zv)nocomment.sk> - 16.4.2002 17:02:26
Zdravim,
potreboval by som nakopnut ...
su dve tabulky, v jednej su objednavky (kazdy riadok jedna objednavka) v
druhej su produkty (ciselnik s primarnym klucom). Pokusam sa robit
statistiky nad Interbase 6.0:
select COUNT(t1.id), t1.item_id
FROM orders t1
GROUP BY t1.item_id
toto funguje celkom fajn, tak som skusil doplnit: select COUNT(t1.id), t1.item_id, t2.name
FROM orders t1, items t2
WHERE t1.item_id = t2.id
GROUP BY t1.item_id
no a toto nezbehlo .... skusil som aj variantu:
select COUNT(t1.id), t1.item_id, (select t2.name from items where
t2.id=t1.item_nam)
FROM orders t1
GROUP BY t1.item_id
s rovnakym (neuspesnym) vysledkom :( any ideas?
btw: tiez z mne nepochopitelnych pricin InterBase nedokaze vo vypocte napr.
"tretieho" stlpcu pouzit vypocitacu hodnotu stlpcu druheho priklad: select SUM(t1.price) AS a, COUNT(t1.id) AS b, (a / b) AS c
FROM orders t1
GROUP BY t1.item_id
je to v poriadku? rwi
dll predava TStringList
[*] Zdenek <dkonf(zv)seznam(tec)cz> - 16.4.2002 17:35:01
Ahoj lidi,
pomozte prosim.
V DLL mam funkci, ktera vyrobi TStringList a vrati ho jako result.
Ten stringlist vytvarim v initialization a rusim ve finalization
V programu nahraju DLL
hDLL := LoadLibrary( PChar('Report\Report.dll') ); //nahrani DLL
ziskam adresu te funkce (var DLLFunction : function(AppHandle:THandle):
TStringList;)
DLLFunction := GetProcAddress( hDLL, 'SeznamReportu'); //zjisteni
adresy funkce
vytvorim si sl2 (stringlist) a chci mu predat polozky stringlistu z DLL
sl2.assign(DLLFunction(Application.Handle));
A pak uvolnim knihovnu
FreeLibrary(hDLL);
Normalne to fungovalo, ted uz ne.
Ted to skonci hlaskou: Exception EConvertError
Kdyz neprovedu FreeLibrary, tak to taky funguje.
Dik za radu.
Zdenek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.338 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
Interbase & GROUP BY clause problem
[*] Martin Cajbik <cajbik(zv)sct.sk> - 16.4.2002 17:45:38
Zdravim,
nepouzivam sice Interbase ale v standartnom SQL musis kazdy stlpec ktory je
v casti SELECT dat aj do GROUP BY (samozrejme okrem tych na ktore pouzivas
agregacne funkcie).
Takze vysledny SQL by mal vyzerat nejako takto:
SELECT COUNT(t1.id), t1.item_id, t2.name
FROM orders t1, items t2
WHERE t1.item_id = t2.id
GROUP BY t1.item_id, t2.name
co sa tyka druheho prikazu, ten by som prepisal na
select SUM(t1.price) AS a, COUNT(t1.id) AS b, (SUM(t1.price) / COUNT(t1.id))
AS c
FROM orders t1
GROUP BY t1.item_id
SQL to vyzaduje v takejto syntaxi a samotny SQL server by to mal uz
zoptimalizovat :-)
MarCaNT (marcant(zv)sct.sk)
> Zdravim,
>
> potreboval by som nakopnut ...
>
> su dve tabulky, v jednej su objednavky (kazdy riadok jedna objednavka) v
> druhej su produkty (ciselnik s primarnym klucom). Pokusam sa robit
> statistiky nad Interbase 6.0:
>
> select COUNT(t1.id), t1.item_id
> FROM orders t1
> GROUP BY t1.item_id
>
>
> toto funguje celkom fajn, tak som skusil doplnit:
>
> select COUNT(t1.id), t1.item_id, t2.name
> FROM orders t1, items t2
> WHERE t1.item_id = t2.id
> GROUP BY t1.item_id
>
> no a toto nezbehlo ....
>
> btw: tiez z mne nepochopitelnych pricin InterBase nedokaze vo vypocte
napr.
> "tretieho" stlpcu pouzit vypocitacu hodnotu stlpcu druheho priklad:
> >
> select SUM(t1.price) AS a, COUNT(t1.id) AS b, (a / b) AS c
> FROM orders t1
> GROUP BY t1.item_id
>
> > je to v poriadku?
>
> rwi
GetIndexForFields
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 16.4.2002 17:53:22
Zdravim,
Hledam index pro Fields pomoci FindIndexForFields.To dle helpu vraci pouze
Index ascending ne DESCENDING a odkazuje se na GetIndexForFields. Presto mi
to index DESCENDING nevrati, presto, ze existuje.
Pokud ho zadam rucne je do OK.
Nevite jak jinak najit nazev indexu pro Fields (index DESCENDING).
(Table1IndexName:=Table1.IndexDefs.GetIndexForFields('Fields-name',
False).Name;)
Dik Jan Sebesta
Chybova hlaska - EIntOverflow - PROSIM O POMOC
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 16.4.2002 17:56:08
Zdravim, moc prosim, netusite nekdo co znamena hlaska:
Exception module ElntOverflow in module STANDA1.EXE at 00086401.Integer
overflow
a kde by mohl byt problem?
Ten program bezi napriklad v mistnosti, kde je 10 stejnych pocitacu a na
polovine z nich (vzdy stejne) to vyhodi tuto chybu a nic se nespusti.
V cem by to mohlo byt a jak nejlepe prijit na to, co s tim a na co se
zamerit?
Predem moc diky
VJ
Interbase & GROUP BY clause problem
[*] Richard Willmann <sales(zv)nocomment.sk> - 16.4.2002 17:58:12
> nepouzivam sice Interbase ale v standartnom SQL musis kazdy stlpec ktory
je
> v casti SELECT dat aj do GROUP BY (samozrejme okrem tych na ktore pouzivas
> agregacne funkcie).
> Takze vysledny SQL by mal vyzerat nejako takto:
>
> SELECT COUNT(t1.id), t1.item_id, t2.name
> FROM orders t1, items t2
> WHERE t1.item_id = t2.id
> GROUP BY t1.item_id, t2.name
>
> co sa tyka druheho prikazu, ten by som prepisal na
>
> select SUM(t1.price) AS a, COUNT(t1.id) AS b, (SUM(t1.price) /
COUNT(t1.id))
> AS c
> FROM orders t1
> GROUP BY t1.item_id
>
> SQL to vyzaduje v takejto syntaxi a samotny SQL server by to mal uz
> zoptimalizovat :-)
diki moc, vyskusam ...
pekny den
rwi
Interbase & GROUP BY clause problem
[*] Rado Benc <bego(zv)pobox.sk> - 16.4.2002 18:24:14
Nazdar,
> su dve tabulky, v jednej su objednavky (kazdy riadok jedna objednavka) v
> druhej su produkty (ciselnik s primarnym klucom). Pokusam sa robit
> statistiky nad Interbase 6.0:
>
> select COUNT(t1.id), t1.item_id
> FROM orders t1
> GROUP BY t1.item_id
>
> toto funguje celkom fajn, tak som skusil doplnit:
>
> select COUNT(t1.id), t1.item_id, t2.name
> FROM orders t1, items t2
> WHERE t1.item_id = t2.id
> GROUP BY t1.item_id
>
> no a toto nezbehlo ....
>
IMHO ani nezbehne.
Skus to cez view:
1. Vytvor T1:
SQL> CREATE TABLE T1 (
CON> ID NUMERIC(10) NOT NULL PRIMARY KEY,
CON> TYPE_ID NUMERIC(10)
CON> );
2. Napln:
SQL> INSERT INTO T1 (ID, TYPE_ID) VALUES (1, 1);
SQL> INSERT INTO T1 (ID, TYPE_ID) VALUES (2, 1);
SQL> INSERT INTO T1 (ID, TYPE_ID) VALUES (3, 2);
3. Vytvor view:
SQL> CREATE VIEW V1 (CNT, TYPE_ID) AS
CON> SELECT COUNT(ID), TYPE_ID
CON> FROM T1
CON> GROUP BY TYPE_ID
CON> ;
4. Test:
SQL> SELECT * FROM V1 ORDER BY TYPE_ID;
CNT TYPE_ID
============ =====================
2 1
1 2
IMHO funguje.
5. Vytvor T2:
SQL> CREATE TABLE T2 (
CON> ID NUMERIC(10) NOT NULL PRIMARY KEY,
CON> NAME VARCHAR(80)
CON> );
6. Napln:
SQL> INSERT INTO T2(ID, NAME) VALUES (1, 'lopaty');
SQL> INSERT INTO T2(ID, NAME) VALUES (2, 'motyky');
7. Test:
SQL> SELECT V1.CNT, V1.TYPE_ID, T2.NAME
CON> FROM V1
CON> JOIN T2 ON (V1.TYPE_ID = T2.ID);
8. Voila:
CNT TYPE_ID NAME
============ ===================== ==============================
2 1 lopaty
1 2 motyky
AFAIK bez toho view to nepojde. Vysvetlenie je uz v definicii SQL-92:
<cite>
1) The result of the <group by clause> is a partitioning of T into
a set of groups. The set is the minimum number of groups such
that, for each grouping column of each group of more than one
row, no two values of that grouping column are distinct.
2) Every row of a given group contains equal values of a given
grouping column. When a <search condition> or <value expression>
is applied to a group, a reference to a grouping column is a
reference to that value.
</cite>
> btw: tiez z mne nepochopitelnych pricin InterBase nedokaze vo
> vypocte napr. "tretieho" stlpcu pouzit vypocitacu hodnotu stlpcu
> druheho priklad:
>
> select SUM(t1.price) AS a, COUNT(t1.id) AS b, (a / b) AS c
> FROM orders t1
> GROUP BY t1.item_id
>
> je to v poriadku?
Ano, IMHO to vyplyva z definicie SQL-92. Ak sa lepsie pozries na
horeuvedeny SELECT, je nejednoznacne definovany (pre DB engine).
Riesenim je pouzit 2 view:
1. CREATE VIEW V1 (TOTAL, TYPE_ID) AS
SELECT SUM(PRICE), TYPE_ID
FROM T1
GROUP BY TYPE_ID
2. CREATE VIEW V2 (CNT, TYPE_ID) AS
SELECT SUM(ID), TYPE_ID
FROM T1
GROUP BY TYPE_ID
a zjoinovat ich.
HTH,
Rado
____________________________________
http://www.logofun.pobox.sk - urobte radost svojmu telefonu
dll predava TStringList
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 16.4.2002 18:37:30
Uz se to tu nekolikrat probiralo, ale pokud nepouzijes balicek spolecny pro
dll a exe tak Exe.TStringList <> Dll.TStringList, takze instance jsou mezi
sebou nekompatibilni.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Zdenek" <dkonf(zv)seznam(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 16, 2002 5:35 PM
Subject: dll predava TStringList
> Ahoj lidi,
> pomozte prosim.
>
> V DLL mam funkci, ktera vyrobi TStringList a vrati ho jako result.
> Ten stringlist vytvarim v initialization a rusim ve finalization
>
> V programu nahraju DLL
> hDLL := LoadLibrary( PChar('Report\Report.dll') ); //nahrani DLL
>
> ziskam adresu te funkce (var DLLFunction : function(AppHandle:THandle):
> TStringList;)
> DLLFunction := GetProcAddress( hDLL, 'SeznamReportu'); //zjisteni
> adresy funkce
>
> vytvorim si sl2 (stringlist) a chci mu predat polozky stringlistu z DLL
> sl2.assign(DLLFunction(Application.Handle));
>
> A pak uvolnim knihovnu
> FreeLibrary(hDLL);
>
> Normalne to fungovalo, ted uz ne.
> Ted to skonci hlaskou: Exception EConvertError
>
> Kdyz neprovedu FreeLibrary, tak to taky funguje.
>
> Dik za radu.
> Zdenek
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.338 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
>
>
Chybova hlaska - EIntOverflow - PROSIM O POMOC
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 16.4.2002 18:42:01
EIntOverflow is the exception class for integer calculations whose results
are toolarge to fit in the allocated register..
musis tu promennou deklarovat s vetsim rozsahem, napr. LONGINT
ciao Pavel
----- Original Message -----
From: "Vit Jurasek" <delphi(zv)obecpohori(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 16, 2002 5:56 PM
Subject: Chybova hlaska - EIntOverflow - PROSIM O POMOC
> Zdravim, moc prosim, netusite nekdo co znamena hlaska:
>
> Exception module ElntOverflow in module STANDA1.EXE at 00086401.Integer
> overflow
>
> a kde by mohl byt problem?
>
> Ten program bezi napriklad v mistnosti, kde je 10 stejnych pocitacu a na
> polovine z nich (vzdy stejne) to vyhodi tuto chybu a nic se nespusti.
>
> V cem by to mohlo byt a jak nejlepe prijit na to, co s tim a na co se
> zamerit?
>
> Predem moc diky
> VJ
dll predava TStringList
[*] Zdenek <dkonf(zv)seznam(tec)cz> - 16.4.2002 18:49:00
Dobre, ale jak vysvetlis, ze kdyz nezavolam FreeLibrary, tak to funguje a
preda se to spravne?
Pravda, misto sl2.assign ... dam sl2:= ...
a jakto, ze to chvili fungovalo?
Lze teda nejak predat z DLL nekolik stringu bez nutnosti kompilovat to s
balicky? A kdyz se to kompiluje s balicky, tak je pak musim distribuovat s
programem? Ktery vsechny? Kam je umistit na cilovy pocitac, atd.
> Uz se to tu nekolikrat probiralo, ale pokud nepouzijes balicek
> spolecny pro
> dll a exe tak Exe.TStringList <> Dll.TStringList, takze instance jsou mezi
> sebou nekompatibilni.
>
> Jakub Dusek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.338 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
dll predava TStringList
[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 16.4.2002 18:53:42
Zdenek wrote:
>Pravda, misto sl2.assign ... dam sl2:= ...
>
prave metoda assign v tomto pripade neprojde, protoze nejprve
zkontroluje typy obou objektu a dojde k zaveru, ze jsou rozdilne.
eNca
dll predava TStringList
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 16.4.2002 18:55:00
Jde o to ze do urcity miry ty objekty kompatibilni jsou, pak neco pridas a
optimalizaci se to rozejde... Ja mel to same u TQuery, fungovalo mi vsechno
ok krome Field.AsString, pak uz to neslo vubec. Proste objektama bez balicku
mezi dll a exe si zadelavas na problemy, i kdyz to u jednoduchych muze za
urcitych podminek chvili fungovat :)
A pouziti prirazeni misto Assign uz vubec neni dobry napad, to bys ten
objekt musel porad uchovavat vytvoreny v tom druhym modulu protoze se na nej
jen odkazujes ne?
Pro predani vice stringu bych pouzil jako parametr dostatecne velky PChar
buffer a priradil mu TStringList.Text, na druhe strane si zase vytvoris
objekt TStringList kterymu ten text das zpatky. Mozna by slo array of PChar,
ale nevim...
Balicky nepouzivam takze na to ti odpovi nekdo kvalifikovanejsi.
Jakub Dusek
From: "Zdenek" <dkonf(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>> Dobre, ale jak vysvetlis, ze kdyz nezavolam FreeLibrary, tak to funguje a
> preda se to spravne?
> Pravda, misto sl2.assign ... dam sl2:= ...
> a jakto, ze to chvili fungovalo?
> Lze teda nejak predat z DLL nekolik stringu bez nutnosti kompilovat to s
> balicky? A kdyz se to kompiluje s balicky, tak je pak musim distribuovat s
> programem? Ktery vsechny? Kam je umistit na cilovy pocitac, atd.
>
> > Uz se to tu nekolikrat probiralo, ale pokud nepouzijes balicek
> > spolecny pro
> > dll a exe tak Exe.TStringList <> Dll.TStringList, takze instance jsou
mezi
> > sebou nekompatibilni.
> >
> > Jakub Dusek
>
dll predava TStringList
[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 16.4.2002 19:36:32
Jakub Dusek wrote:
>Jde o to ze do urcity miry ty objekty kompatibilni jsou, pak neco pridas a
>optimalizaci se to rozejde... Ja mel to same u TQuery, fungovalo mi vsechno
>ok krome Field.AsString, pak uz to neslo vubec. Proste objektama bez balicku
>mezi dll a exe si zadelavas na problemy, i kdyz to u jednoduchych muze za
>urcitych podminek chvili fungovat :)
>A pouziti prirazeni misto Assign uz vubec neni dobry napad, to bys ten
>objekt musel porad uchovavat vytvoreny v tom druhym modulu protoze se na nej
>jen odkazujes ne?
>
Ne. Assign fyzicky prekopiruje data.
eNca
Chybova hlaska - EIntOverflow - PROSIM O POMOC
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 16.4.2002 19:53:34
From: "Pavel Mattivi" <pmattivi(zv)dezadata(tec)cz>
> EIntOverflow is the exception class for integer calculations whose results
> are toolarge to fit in the allocated register..
> musis tu promennou deklarovat s vetsim rozsahem, napr. LONGINT
> ciao Pavel
Jenze problem je v tom, ze tam tech Integeru je strasne moc. A dalsi co mi
vubec nejde do hlavy je fakt, ze na absolutne (hardwarove) stejnych
konfiguracich, se stejnym OS a stejnymi ovladaci. Proste na jednom to nejede
a na druhem uplne bez problemu.
Jde to nejakym zpusobem u zakaznika odchytit a zjistit, v jakem kodu to
nastalo? Zda se mi, ze to nastava asi nekde jeste pred tim, nez se vytvori a
zobrazi formulare. Proste vyskoci tato hlaska a skonci to.
Diky
VJ
Chybova hlaska - EIntOverflow - PROSIM O POMOC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.4.2002 20:22:40
> From: "Pavel Mattivi" <pmattivi(zv)dezadata(tec)cz>
> > EIntOverflow is the exception class for integer calculations whose
results
> > are toolarge to fit in the allocated register..
> > musis tu promennou deklarovat s vetsim rozsahem, napr. LONGINT
> > ciao Pavel
>
> Jenze problem je v tom, ze tam tech Integeru je strasne moc.
nicmene ne vsechny zpusobuji exception, ze? Prelozit program s vygenerovanim
Map filu a podle nej najit misto v kodu, ktere zlobi (obcas zafunguje i
Search/Find Error v IDE), pripadne pouzit nejakou jinou metodu na ziskani
adresy kodu (JCL Debug ?).
Na druhou stranu nechapu k cemu je dobre mit v produkcnim execku zapnuty
range checking...
>A dalsi co mi
> vubec nejde do hlavy je fakt, ze na absolutne (hardwarove) stejnych
> konfiguracich, se stejnym OS a stejnymi ovladaci. Proste na jednom to
nejede
> a na druhem uplne bez problemu.
Zrejme klasicky problem s neinicializovanymi lokalnimi promennymi. Promenna
ma "nahodnou" hodnotu ze stacku. Kolikrat se stane, ze vetsina instalaci
funguje a par ze zahadnych duvodu nikoliv. Obcas se vyplati peclive cist
warningy kompilatoru (neodhali ale vse).
D. Toman
Chybova hlaska - EIntOverflow - PROSIM O POMOC
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 16.4.2002 20:38:48
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> Na druhou stranu nechapu k cemu je dobre mit v produkcnim execku zapnuty
> range checking...
V napovede jsem nasel, ze je to mozne vypnout. Zda se mi to ale jako kdyz si
vezmu na pistoli tlumic, abych nedelal kraval, ale mrtvola tam po me stejne
zustane. Jake muze mit dusledky vypnuti teto kontroly?> Zrejme klasicky problem s neinicializovanymi lokalnimi promennymi.
Promenna
> ma "nahodnou" hodnotu ze stacku. Kolikrat se stane, ze vetsina instalaci
> funguje a par ze zahadnych duvodu nikoliv. Obcas se vyplati peclive cist
> warningy kompilatoru (neodhali ale vse).
zajimave je, ze tato nahodna hodnota je stejna pro kazdy pocitac po kazde.
proste vezmu 10 pocitacu, na 6 to VZDY jede, na 4 to NIKDY nejede. ach jo,
tezky zivot programatora ;-/
Chybova hlaska - EIntOverflow - PROSIM O POMOC
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.4.2002 21:13:22
> V napovede jsem nasel, ze je to mozne vypnout. Zda se mi to ale jako kdyz
si
> vezmu na pistoli tlumic, abych nedelal kraval, ale mrtvola tam po me
stejne
> zustane.
Ne vzdy je pretecni promenne chybou. U integeru ( a jinych ordinalnich typu)
vlastne zadne
prime nebezpeci nehrozi. "Jen" ta vypoctena hodnota neni zrovna ta, ktera se
ceka. Nekdy je
preteceni dokonce vyhodne.
Jake muze mit dusledky vypnuti teto kontroly?
ruzne :-) Problem je, ze tato kontrola hlida nejen preteceni integeru ale i
rozsahy poli atd.
Ja ji ale nejak nezapinam vubec :-)
>
> > Zrejme klasicky problem s neinicializovanymi lokalnimi promennymi.
> Promenna
> > ma "nahodnou" hodnotu ze stacku. Kolikrat se stane, ze vetsina instalaci
> > funguje a par ze zahadnych duvodu nikoliv. Obcas se vyplati peclive cist
> > warningy kompilatoru (neodhali ale vse).
>
> zajimave je, ze tato nahodna hodnota je stejna pro kazdy pocitac po kazde.
> proste vezmu 10 pocitacu, na 6 to VZDY jede, na 4 to NIKDY nejede. ach jo,
> tezky zivot programatora ;-/
Parkrat jsem to uz taky zazil. Obcas se to projevi az po preinstalaci
stroje, upgradu
pameti, vuhozeni nejakeho driveru atd.
Osobne bych nejdirv kouknul do toho MAP filu (pokud jsi schopen ho vyrobit
pro verzi
programu totoznou s tohou co maji klienti. Vzdycky je mozne, ze budes mit
stesti a chyba
bude vznikat nekde primo ve Tvem kodu a ne nekde zahrabana v unitach bez
zdrojaku atd.
Pak bych vyrobil nejakou special verzi s debug kodem. Pokud opravdu netusis
kde by ta
chyba mohla byt pak bych asi prilinkoval ten debug modul z JCL (s
prislusnymi MAP symboly).
Ovsem je nutne mit na pameti, ze v debug verzi aplikace se chyba s velkou
pravdepodobnosti
(hranicici s jistotou, ze Murphy?) prestane projevovat :-(
D. Toman
stopky
[*] Benjamin <benxp(zv)atlas(tec)cz> - 16.4.2002 21:19:47
A co treba komponenta TTimer?
Myslim, ze to je 4. zalozka (System?).
Benjamin
tisk
[*] Benjamin <benxp(zv)atlas(tec)cz> - 16.4.2002 21:23:24
Cau,
S timto problemem se ve sve aplikaci budu asi taky brzo potykat.
V dialogu Nastaveni tisku na zalozce papir si muzes vybrat tisk na obalky (nekolik formatu).
S nejakou vhodnou komponentou, ktera umi tisknout by to urcitemohlo jit velmi snadno.
Benjamin
Charset v IB
[*] Marek Soukup <marek(zv)b-worlds.de> - 16.4.2002 22:01:53
Zdravim,
musim pracovat s jiz vytvorenou databazi IB6, ktera bezi na Linuxu. Potrebuju, aby mi korektne fungovala funkce Upper s ceskejma znakama. Zatim jsem neprisel na to, jak se da zmenit charset u databaze nebo polozky. Umim ho nastavit pouze pri vytvareni.
Vite nekdo jak na to ?
S pozdravem
Marek Soukup
OT- Rychlost NetBEUI vs. TCP/IP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.4.2002 00:41:22
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Dostal som jedno doporucenie pre nastavenie sieti od jednej firmy pre ich
> soft, ktora deklaruje vyssiu rychlost pri pouziti NetBEUI oproti TCP/IP a ze
> to aj merali a je to tak.
NetBEUI je takovy protokol-neprotokol, nelze jej routovat apod. Uprime receno
vubec bych o nem neuvazoval. Rychlost je dana spise sitovou kartou.
Petr Vones
Potomek z THeader pro prekresleni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.4.2002 00:42:54
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
> To je sice pravda, ale zmenit THeader (kde jsou jednoduse menene sekce
> pomoci listu Sections) na THeaderControl, se mi zda dost slozite. Ani moc mi
> nevadi ze je to "deprecated", pokud s tim bude co nejmene prace.
Nejmene prace bude kdyz to udelas poradne, tedy s THeaderControl.
Petr Vones
Spustenie aplikacie jedenkrat
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.4.2002 00:43:39
From: "Jozef Baranec" <joba(zv)digitaldocuments.org>
> Potrebujem zabezpecit, aby sa mi aplikacia spustila iba raz. Cice pri
> opakovanom spusteni exe sa mi iba aktualizuje okno uz spusteho exe a
> nespusti sa druhe.
Podivej se na priklad SingleAppInst.dpr v JCL
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
Jak vytvorit zastupce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.4.2002 00:46:50
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> potreboval bych jednoduchy prikladek nebo fci, jak vytvorit zastupce na
> nakou aplikaci s temito parametry:
Podivej se na funkci ShellLinkCreate v JclShell:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
Soucet poli
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 17.4.2002 06:21:06
Jednak nevim, o je to soucet poli: je to soucet nekolika sloupcu v
jednom radku nebo to je soucet jednoho sloupce na vsech radcich?!
Beru v uvahu tu druhou variantu.
Vzhledem k tomu, ze neni znamy zdroj dat, muze se jednat i o postupne
dotahovane zaznamy a pak by spis mel byt cyklus FOR nahrazen WHILE
(pze Fields.Count muze byt roven 0, dokud se vsechny zaznamy
nenactou).
with Table1 do
begin
First;
while not EOF do
begin
i := i + FieldByName('JMENO').AsInteger;
next;
end;
end;
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
> Pisem z hlavi do mailera
> proce...
> Var X,I:Integer;
> begin
> I:=0;
> For X:=0 to Table1.Fields.count-1
> do I:=I+table1.fields[x].asInteger;
> TRoland.
Kresleni
[*] Jiri Babka <jb_konf(zv)seznam(tec)cz> - 17.4.2002 06:54:05
Dobry den preji,
vite, prosim, o nejake knihovne pro Delphi, ktera by umela vytvorit obrazek
ve formatu PostScript nebo Windows Metafile?
Dekuji
Jiri Babka
Chybova hlaska - EIntOverflow - PROSIM O POMOC
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.4.2002 07:06:03
> Jde to nejakym zpusobem u zakaznika odchytit a zjistit, v jakem kodu
> to nastalo? Zda se mi, ze to nastava asi nekde jeste pred tim, nez se
> vytvori a zobrazi formulare. Proste vyskoci tato hlaska a skonci to.
Ahoj,
tohle se mi zda dost dobra lokalizace mista a mel bys to pomerne snadno najit.
1) Pokud v dpr. souboru vytvaris vsechny formy (Application.CreateForm), tak
jednotlive formy treba prolozit showMessagem, abys zjistil, kam az to dojde v
poradku a pak prostudovat OnCreate procedury tam, kde to asi vznika.
2) Pokud vsechny OnCreate budou v poradku, muze jeste zlobit OnActivate hlavniho
formulare, resp. OnShow.
3) Kvuli tunelovemu videni by tyto kousky kodu mozna mohl prohlednout nejaky
kolega, ktereho v cizim kodu treba neco trkne...
Jestli jsem mimo, sorry...
David Lebeda
dll predava TStringList
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 17.4.2002 07:12:32
Pouzivam take, ale jako prvni musi byt v kazdem projektu v "USES ShareMem,"
a pak musim k programu dodavat BORLANDMM.DLL.>>Jde o to ze do urcity miry ty objekty kompatibilni jsou, pak neco pridas a
>>optimalizaci se to rozejde... Ja mel to same u TQuery, fungovalo mi vsechno
>>ok krome Field.AsString, pak uz to neslo vubec. Proste objektama bez balicku
>>mezi dll a exe si zadelavas na problemy, i kdyz to u jednoduchych muze za
>>urcitych podminek chvili fungovat :)
>>A pouziti prirazeni misto Assign uz vubec neni dobry napad, to bys ten
>>objekt musel porad uchovavat vytvoreny v tom druhym modulu protoze se na nej
>>jen odkazujes ne?
>Ne. Assign fyzicky prekopiruje data.
>
>eNca
>
>
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Soucet poli
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 17.4.2002 07:14:26
Nestalo by za to to secist v SQL dotazu a pres komponentu TQuery
SELECT POLE1 + POLE2 + POLE3+...+POLEx FROM TABULKA?
Sroub
> Jednak nevim, o je to soucet poli: je to soucet nekolika sloupcu v
> jednom radku nebo to je soucet jednoho sloupce na vsech radcich?!
> Beru v uvahu tu druhou variantu.
> Vzhledem k tomu, ze neni znamy zdroj dat, muze se jednat i o postupne
> dotahovane zaznamy a pak by spis mel byt cyklus FOR nahrazen WHILE
> (pze Fields.Count muze byt roven 0, dokud se vsechny zaznamy
> nenactou).
>
> with Table1 do
> begin
> First;
> while not EOF do
> begin
> i := i + FieldByName('JMENO').AsInteger;
> next;
> end;
> end;
> > Pisem z hlavi do mailera
>
> > proce...
> > Var X,I:Integer;
> > begin
> > I:=0;
> > For X:=0 to Table1.Fields.count-1
> > do I:=I+table1.fields[x].asInteger;
>
> > TRoland.
>
Kresleni
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 17.4.2002 07:15:03
TMetaFile
a kresli se na TMetaFileCanvas -> viz HELP.
>vite, prosim, o nejake knihovne pro Delphi, ktera by umela vytvorit obrazek
>ve formatu PostScript nebo Windows Metafile?
>
>Dekuji
>
>Jiri Babka
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
dll predava TStringList
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 17.4.2002 07:17:40
> Dobre, ale jak vysvetlis, ze kdyz nezavolam FreeLibrary, tak
> to funguje a
> preda se to spravne?
Kdyz zavolas FreeLibrary, tak se ti prece zavola ta finalization v te
dll a jak jsi psal, tam objekt zrusis - neni zadne prekvapeni, ze tedy
prestane fungovat. Musel by sis jej zkopirovat.
> Pravda, misto sl2.assign ... dam sl2:= ...
Ale zkopirovani pomoci mechanismu Assign nezafunguje, prave kvuli tomu,
ze dll.TStringList <> exe.TStringList. Bez balicku nefunguje zadny z
mechanismu pro kontrolu typu objektu, jako jsou operatory IS a AS,
stejne tak funkce, ktere se spolehaji na volani RTTI funkci.
> Lze teda nejak predat z DLL nekolik stringu bez nutnosti
> kompilovat to s balicky?
Pokud nechces pouzivat balicky, pak zapomen na vymozenosti Pascalu a
hezky predavej retezce PChar - tedy pointer na buffer, ktery je ukoncen
nulou. Byva zvykem seznam textu udelat tak, ze mas jeden pointer na
buffer, kde jsou za sebou retezce, mezi nima je vzdy jedna nula = #0 a
na konci celeho seznamu, pak dve nuly.
Honza +
window title exploreru
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 17.4.2002 07:18:56
V pripade dynamickeho textu to lze stejne tak jako WinAmp plugin (nevim
jmeno), ale dela to tak, ze ma timer a kazdou chvilku udela toto:
1) zjisti aktivni okno
2) Zjisti si NC (non client) oblast okna (modry titulek)
3) Zjisti si barvu podkladu
4) Vykresli text s nazvem a cesem pisnicky
>V pripade statickych textov tam niektory provideri si pisu seba a je to
>zapisane v registry.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Delphi a Access
[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 17.4.2002 07:58:18
Skus namiesto IIf(DRUHE = 0; 0; PRVNI/DRUHE)
napisat IIf(DRUHE = 0, 0, PRVNI/DRUHE)
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420241010111 (177)
mobil: +420724296616
icq: 38493645
Interbase & GROUP BY clause problem
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 17.4.2002 07:59:53
> Nazdar,
>
> > su dve tabulky, v jednej su objednavky (kazdy riadok jedna objednavka) v
> > druhej su produkty (ciselnik s primarnym klucom). Pokusam sa robit
> > statistiky nad Interbase 6.0:
> >
> > select COUNT(t1.id), t1.item_id
> > FROM orders t1
> > GROUP BY t1.item_id
> >
> > toto funguje celkom fajn, tak som skusil doplnit:
> >
> > select COUNT(t1.id), t1.item_id, t2.name
> > FROM orders t1, items t2
> > WHERE t1.item_id = t2.id
> > GROUP BY t1.item_id
> >
> > no a toto nezbehlo ....
> >
>
> IMHO ani nezbehne.
> Skus to cez view:
A proc pres view, kdyz neni nezbytne nutny ???
Staci dat do Group by vsechny neagregovane sloupce...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Rado
OT- Rychlost NetBEUI vs. TCP/IP
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 17.4.2002 08:14:59
na FlashFilleru jsme v jedne firme provadeli mereni a TCP/IP byl
jednoznacne rychlejsi (radove) nez NetBEUI. NetBEUI bylo dobre drive, kdyz
W3.11 neumeli prirozene TCP/IP a byl to protokol, ktery vzdycky chodil
(nepotreboval zadne nastaveni a zadnou znalost konfigurace site).
S pozdravem Vaclav Riha
-----P�vodn� zpr�va-----
Od: Roland Turcan [SMTP:rolo(zv)sedas.sk]
Odesl�no: 16. dubna 2002 11:54
Komu: Delphi CZ konferencia
P�edm�t: OT- Rychlost NetBEUI vs. TCP/IP
Ahojte!
Dostal som jedno doporucenie pre nastavenie sieti od jednej firmy pre ich
soft, ktora deklaruje vyssiu rychlost pri pouziti NetBEUI oproti TCP/IP a
ze
to aj merali a je to tak.
Mne sa to nezda, aky mate vy na to nazor. V com moze byt NetBEUI rychlejsie
?
TRoland.
Potomek z THeader pro prekresleni
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 17.4.2002 08:14:28
Ahoj
Tak jsem to pro zkou�ku p�ed�lal na jednon formu, udelal si funkci viz.
Type
IDSection = Record
SectionText:String;
SectionWidth:Integer;
SectionImageIndex:Integer;
End;
Procedure CreateSections(HeaderControl:THeaderControl; IDSections:Array of IDSection);
Var
I: Integer;
HS: THeaderSection;
Begin
If HeaderControl.Sections.Count > 0 Then
HeaderControl.Sections.Clear;
For I := Low(IDSections) To High(IDSections) Do
Begin
HS := HeaderControl.Sections.Add;
HS.Text := IDSections[I].SectionText;
HS.Width := IDSections[I].SectionWidth;
HS.ImageIndex := IDSections[I].SectionImageIndex
End;
End;
a opakovane generuji sections. Ale stava se mi, ze v nekterych pripadech mi to zmrzne v tom HeaderControl.Sections.Clear. Kde muze byt problem, nebo je tam chyba? (Win2000,D5.01Pro)
Diky
Jaro B.
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Wednesday, April 17, 2002 12:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Potomek z THeader pro prekresleni
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
> To je sice pravda, ale zmenit THeader (kde jsou jednoduse menene sekce
> pomoci listu Sections) na THeaderControl, se mi zda dost slozite. Ani moc mi
> nevadi ze je to "deprecated", pokud s tim bude co nejmene prace.
Nejmene prace bude kdyz to udelas poradne, tedy s THeaderControl.
Petr Vones
OT- Rychlost NetBEUI vs. TCP/IP
[*] Kral Jirka jr. <jirka(zv)ispot(tec)cz> - 17.4.2002 08:18:54
> NetBEUI je takovy protokol-neprotokol, nelze jej routovat
> apod. Uprime receno vubec bych o nem neuvazoval. Rychlost je
> dana spise sitovou kartou.
>
Nicmene i v knize o MS implem. TCP/IP pisou, ze je netbeui rychlejsi nez
tcp/ip.
Ale uz jsem se nedocet cim to je.
Ja rikam proc to nepouzit kdyz to nepotrebujes smerovat, ze jo...
J.
OT- Rychlost NetBEUI vs. TCP/IP
[*] Peter Laufer <laufer(zv)dmasys.sk> - 17.4.2002 08:20:10
NetBEUI je taky nepodareny vyplod Microsoftu.
Na tvojom mieste by som sa radsej drzal standardneho TCP/IP. (ten rozdiel v
rychlosti nie je adekvatny moznym problemom...)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Kral Jirka jr.
Sent: Wednesday, April 17, 2002 8:19 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: OT- Rychlost NetBEUI vs. TCP/IP
> NetBEUI je takovy protokol-neprotokol, nelze jej routovat
> apod. Uprime receno vubec bych o nem neuvazoval. Rychlost je
> dana spise sitovou kartou.
>
Nicmene i v knize o MS implem. TCP/IP pisou, ze je netbeui rychlejsi nez
tcp/ip.
Ale uz jsem se nedocet cim to je.
Ja rikam proc to nepouzit kdyz to nepotrebujes smerovat, ze jo...
J.
Delphi a Access
[*] Dalibor �r�tek <dalibor.srutek(zv)i-projekt(tec)cz> - 17.4.2002 08:27:56
Promin jenom jsem se upsal, samozrejme, ze pouzivam Open
-----Original Message-----
From: Ondrej Kelle [mailto:O.Kelle(zv)digitalpublishing.de]
Sent: Tuesday, April 16, 2002 4:51 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Delphi a Access
> Vytvarim dotaz, kdy jeden field vypocitavam a to delenim
> jinych dvou poli.
> Takze dotaz je zni napr. SELECT PRVNI, DRUHE, PRVNI/DRUHE AS
> DELENI FROM tbDATA.
> Tento dotaz padne, kdyz bude hodnota fieldu DRUHE = 0. Tak
> jsem si vyzkousel a odladil dotaz primo v MS Accessu na novy dotaz:
> SELECT PRVNI, DRUHE, IIf(DRUHE = 0; 0; PRVNI/DRUHE) AS
> DELENI FROM tbDATA. Tento dotaz slape v pohode, ale jakmile ho
> provedu z DELPHI pres TQuery.SQL.Add(......)
> TQuery.ExecSQL; tak se vygeneruje chyba.
Metoda ExecSQL je urcena na vykonavanie SQL prikazov, ktore nevracaju result
set.
V Tvojom pripade (SELECT ...) je vhodnejsia metoda Open.
HTH
TOndrej
FETCH v IB6
[*] Jakub Valenta <delphi(zv)dapos(tec)cz> - 17.4.2002 08:31:53
Existuje nejaka fce ci prikaz v SQL ktery by dokazal nacist pouze omezeny
pocet vet v tabulce ktery urcim a ne celou tabulku ?
napr. SELECT * FROM tabulka WHERE neco??
Potrebuji to v IB 6.
Dekuji za navedeni.
JaVal
OT- Rychlost NetBEUI vs. TCP/IP
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.4.2002 08:34:33
> NetBEUI je taky nepodareny vyplod Microsoftu.
> Na tvojom mieste by som sa radsej drzal standardneho TCP/IP. (ten
> rozdiel v rychlosti nie je adekvatny moznym problemom...)
>
Nevyznam se vubec v protokolech, ale pokud bych mezi nimi vahal,
tak tenhle mail nema pro me rozhodovani absolutne zadnou vahu,
protoze nic nerika. Muzes k tomu napsat neco konkretniho - priklad
problemu, aby se dalo posoudit, jestli to v danem pripade opravdu
predstavuje problem?
Dik.
David Lebeda
OT- Rychlost NetBEUI vs. TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 17.4.2002 08:49:41
> Nevyznam se vubec v protokolech, ale pokud bych mezi nimi vahal,
> tak tenhle mail nema pro me rozhodovani absolutne zadnou vahu,
> protoze nic nerika. Muzes k tomu napsat neco konkretniho - priklad
> problemu, aby se dalo posoudit, jestli to v danem pripade opravdu
> predstavuje problem?
Uz to, ze nejvetsi sit sveta - internet - pouziva TCP/IP svedci o
tom,z e protokol TCP/IP bude mit v sitich asi vetsi zastoupeni, nez
NetBeui. Co z toho vyplyva? Urcite najdes mnohem vice sitovyh
programu pracujici s TCP/IP nez s NetBeui.
Proto kdyz si vybiras potokol pro svoji sit, je vhodnejsi zvolit
takovy protokol, na kterem ti toho bude fungovat co nejvice, ne?
Kolik programu vyzaduje TCP/IP? mnoho... kolik programu vyzadje
NetBeui???
Pouzitim TCP/IP nikdy nic nepokazis, nezavres si zadna dvirka. Znam
mnoho malych siti, ktere nakonec skoncily tak, ze temer vsude to
TCP/IP stejne mela, az se to NetBeui zrusilo.
A to uz nemluvim o tom, ze na TCP/IP ti existuje mnoho diagnostickyh
programu... az budes mit s tou siti nejaky problem a ty budes
potrebovat jen zjistit, jestli ti funguje konektivita na nejaky
pocitac... jak to budes s netbeui delat? neni jednodusi u TCP/IP
udelat ping? ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
dll predava TStringList
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 17.4.2002 08:53:21
libabry dll1;
uses sharemem, classes;
var sl:TStringList;
function GetStringList:string;
begin
result:=sl.Text;
end;
initialization
sl:=TStringList.Create;
sl.Add('sdfsdf');
sl.Add('cvxcvxcv');
finalization
sl.Free;
end.
project pokus1;
uses ShareMem, Classes;
function GetStringList:string; external 'dll1';
var sl:TSTringList;
begin
sl:=TStringList.Create;
sl.Text:=GetStringList;
... ... ...
... ... ...
sl.Free;
end.
Pokud to chces bez ShareMemu, pouzij PCHAR a pak musis naalokovat pamet a
zkopirovat string. POZOR: result:=Pchar(str); nestaci !!!!
>Kdyz zavolas FreeLibrary, tak se ti prece zavola ta finalization v te
>dll a jak jsi psal, tam objekt zrusis - neni zadne prekvapeni, ze tedy
>prestane fungovat. Musel by sis jej zkopirovat.
>
> > Pravda, misto sl2.assign ... dam sl2:= ...
... tohle je z pricipu nesmysl -> zadelavas si s tim na problemy. Je
vhodnejsi v techto pripadech zkopirovat, nebo naopak davat pozor na to, aby
se to uvolnovalo jen jedou.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Charset v IB
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.4.2002 08:59:07
----- Original Message -----
From: "Marek Soukup" <marek(zv)b-worlds.de>
> Zdravim,
> musim pracovat s jiz vytvorenou databazi IB6, ktera bezi na Linuxu.
Potrebuju, aby mi korektne fungovala funkce Upper s ceskejma znakama. Zatim
jsem neprisel na to, jak se da zmenit charset u databaze nebo polozky. Umim
ho nastavit pouze pri vytvareni.
Uplne idealne je vytvarat domeny a stlpce s CHARACTER SET ... COLLATE ...
alebo
pouzivat takto "select upper(FIELD_NAME collate pxw_csy) from TABLE"
ale !!!!BACHA!!!! do TIBQuery nenapchas takyto prikaz "Select
upper(:PARAMETER collate pxw_csy) from TABLE", bude hlasit, ze "unknown data
type" (ak sa dobre pamatam). Takze radsej prvy pripad.
TRoland.
PS: Co tak sa pozriet na FireBird, IB6 OE je "death".
OT- Rychlost NetBEUI vs. TCP/IP
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 17.4.2002 09:01:47
Predstavuje, nebot TCP/IP ma kazdy, kdo pari internet, ma lokalni sit, nebo
i modem kvuli faxu. Kdezto vetsina spravcu siti odinstaluje vsechno krom
TCP/IP, nebot to zbytecne zatezuje sit nejakymy nesmysly a hlavne, pokud
mas NetBEUI, ci IPX/SPX a nekde TCP/IP, je problem aby se ti sesitovali
Win9X pocitace. Takze je lepsi tam dat jen jeden protokol. A hlavne dneska
kazdy zna TCP/IP a o ostatnich uz ani neuvazuje.
Dale, co kdyz budes nahodou chtit svoji aplikaci na Linux - to uz jses
nahranej.
Ja osobne bych to take nepouzi.
> > NetBEUI je taky nepodareny vyplod Microsoftu.
> > Na tvojom mieste by som sa radsej drzal standardneho TCP/IP. (ten
> > rozdiel v rychlosti nie je adekvatny moznym problemom...)
> >
>
>Nevyznam se vubec v protokolech, ale pokud bych mezi nimi vahal,
>tak tenhle mail nema pro me rozhodovani absolutne zadnou vahu,
>protoze nic nerika. Muzes k tomu napsat neco konkretniho - priklad
>problemu, aby se dalo posoudit, jestli to v danem pripade opravdu
>predstavuje problem?
>
>Dik.
>
>David Lebeda
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
OT- Rychlost NetBEUI vs. TCP/IP
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.4.2002 09:05:27
OK, ja som sa na mnohych miestach docital, ze NetBEUI je ukecany protocol a
vsade doporucuju pouzit podla moznosti TCP/IP, ale na zaklade coho hlasa ta
firma ze je rychlejsi a
"NetBUI - je zistene zo skusenosti ze tento protokol vykazuje najvacsiu
spolahlivost pri praci "XYZ" po sieti."
TRoland.
Interbase & GROUP BY clause problem
[*] Richard Willmann <sales(zv)nocomment.sk> - 17.4.2002 09:12:30
> A proc pres view, kdyz neni nezbytne nutny ???
>
> Staci dat do Group by vsechny neagregovane sloupce...
este jedna drobnost pls, ako by ste vyriesili doplnenie toho selektu o
percentualne podiely tzn:
lopaty 10 1000Skk 50%
auta 10 1000Skk 50%
problem je ze nemozem pouzit view...
rwi
Interbase & GROUP BY clause problem
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 17.4.2002 09:38:53
----- Original Message -----
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> > Nazdar,
> >
> > > su dve tabulky, v jednej su objednavky (kazdy riadok jedna objednavka) v
> > > druhej su produkty (ciselnik s primarnym klucom). Pokusam sa robit
> > > statistiky nad Interbase 6.0:
> > >
> > > select COUNT(t1.id), t1.item_id
> > > FROM orders t1
> > > GROUP BY t1.item_id
> > >
> > > toto funguje celkom fajn, tak som skusil doplnit:
> > >
> > > select COUNT(t1.id), t1.item_id, t2.name
> > > FROM orders t1, items t2
> > > WHERE t1.item_id = t2.id
> > > GROUP BY t1.item_id
> > >
> > > no a toto nezbehlo ....
> > >
> >
> > IMHO ani nezbehne.
> > Skus to cez view:
>
> A proc pres view, kdyz neni nezbytne nutny ???
>
> Staci dat do Group by vsechny neagregovane sloupce...
A co takhle doplnit na ty ziskavane neagregovane sloupce nejakou
agregacni funkci, ktera vraci v tomto pripade stale stejnou hodnotu,
napr MAX nebo MIN.:
select COUNT(t1.id), t1.item_id, MAX(t2.name)
FROM orders t1, items t2
WHERE t1.item_id = t2.id
GROUP BY t1.item_id
Nebude to rychlejsi nez nasledujici?
select COUNT(t1.id), t1.item_id, t2.name
FROM orders t1, items t2
WHERE t1.item_id = t2.id
GROUP BY t1.item_id, t2.name
Martin Schayna
FETCH v IB6
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 17.4.2002 09:47:16
Pokud by jsi pouzil radeji FB tak ma
select FIRST 100 *
from ..................
pokud opravdu potrebujes IB tak si musis napsat ulozenou
proceduru
> Existuje nejaka fce ci prikaz v SQL ktery by dokazal nacist pouze
> omezeny pocet vet v tabulce ktery urcim a ne celou tabulku ?
>
> napr. SELECT * FROM tabulka WHERE neco??
>
> Potrebuji to v IB 6.
>
> Dekuji za navedeni.
>
> JaVal
>
>
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
OT- Rychlost NetBEUI vs. TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 17.4.2002 09:51:57
> > NetBEUI je takovy protokol-neprotokol, nelze jej routovat
> > apod. Uprime receno vubec bych o nem neuvazoval. Rychlost je
> > dana spise sitovou kartou.
> >
>
> Nicmene i v knize o MS implem. TCP/IP pisou, ze je netbeui rychlejsi
nez
> tcp/ip.
> Ale uz jsem se nedocet cim to je.
> Ja rikam proc to nepouzit kdyz to nepotrebujes smerovat, ze jo...
Vyssi rychlost muze byt dana napriklad timhle:
- vetsi vyuziti eth ramce. Tj NETBEUI ma (mozna) mensi vlastni
hlavicky - cili jeden eth ramec je schopen unest vice uzitecnych dat.
Ale to bude v pomeru typu 1410/1400 cili nic vyrazneho
- mensi rezie pri zpracovani packetu (jednodussi struktura paketu).
Podotykam (neznam podrobnosti o NETBEUI) a muze to byt i naopak.
Co si to proste zkusit?
Hlavni vyhodou NETBEUI je, ze na nem neni co konfigurovat (IP adresy
atd). Nevyhodou, ze neni routovatelny.
D. Toman
FETCH v IB6
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 17.4.2002 10:05:48
select FIRST n1 SKIP n2 * FROM ...
FISRT vrati prvnich n1 zaznamu, skip preskoci n2 zaznamu (aplikuje pred first).
Toto plati pro FB 1.0.
Jinak pokud pouzivas ibsql, tak se nacte jen tolik zaznamu kolik si vyzadas
pomoci next (to je vlasne volani Fetch).
Slavek
> Existuje nejaka fce ci prikaz v SQL ktery by dokazal nacist pouze omezeny
> pocet vet v tabulce ktery urcim a ne celou tabulku ?
>
> napr. SELECT * FROM tabulka WHERE neco??
>
> Potrebuji to v IB 6.
>
> Dekuji za navedeni.
>
> JaVal
>
>
Interbase & GROUP BY clause problem
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 17.4.2002 10:10:06
Bude to rychlejsi, odzkouseno na IB5.6.
Pokuid se jedna o dve pole, tak to neni tak ztrasne,
ovsem pokud jich bude 20 tak uz je to hodne velky rozdil.
Slavek
> select COUNT(t1.id), t1.item_id, MAX(t2.name)
> FROM orders t1, items t2
> WHERE t1.item_id = t2.id
> GROUP BY t1.item_id
>
> Nebude to rychlejsi nez nasledujici?
>
> select COUNT(t1.id), t1.item_id, t2.name
> FROM orders t1, items t2
> WHERE t1.item_id = t2.id
> GROUP BY t1.item_id, t2.name
Active directory, Delphi, Odomykanie uctov
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 17.4.2002 10:23:57
> uctov v active directory. problem je, ze neviem akym smerom sa pohnut,
prace s ADS v Delphi
http://www.agnisoft.com/adsi/
unity pro spravu zabezpeceni, uctu
http://www.wilsonc.demon.co.uk/delphi.htm
Tom
User.exe - chyba
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 17.4.2002 10:28:34
http://www.automatedqa.com/downloads/index.asp
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
>
> Velike ti D, kde mohu ten MemProof sehnat?
>
>
> Pricin muze byt mnoho - nekorektni uvolnovani pameti, odkazujes se na
> objekt, ktery jiz neexistuje, zapisujes do bufferu, ktery jiz byl zrusen
> apod. A to, ze to dvakrat projde a potreti nikoli, ukazuje na to, ze
patrne
> zapisujes nekam do pameti s tim, ze dvakrat se trefis tam, kde to zadnou
> skodu neudela a potreti uz zapises nekam, kde to zpusobi tuhle chybu. Zkus
> MemProof, je to free a muze ti to pomoci tu chybu odhalit.
Odchytavani zmen
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 17.4.2002 10:28:28
Ahoj,
muzu Vas poprosit o radu ? Mam malou aplikaci, kde je jednoduchy
formular, napr. s jednim editem a jednim tlacitkem. To je pri nacteni
(OnActivate ve formulari) nepristupne. No a ja bych chtel, aby se pri
zmene obsahu editu toto tlacitko zpristupnilo.
Diky
Vasek
PS: Mam D6 a Win 2000.
Interbase & GROUP BY clause problem
[*] <ivan.virag(zv)aliatel(tec)cz> - 17.4.2002 10:31:05
Zdravim
t2.name doplnit do GROUP BY...
takze
select COUNT(t1.id), t1.item_id, t2.name
FROM orders t1, items t2
WHERE t1.item_id = t2.id
GROUP BY t1.item_id, t2.name
Ivan Virag
> > select COUNT(t1.id), t1.item_id, t2.name
> > FROM orders t1, items t2
> > WHERE t1.item_id = t2.id
> > GROUP BY t1.item_id
> >
> > no a toto nezbehlo ....
> >
OT: Jak dostat do seznamu adres Outlooku 2000 kont
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 17.4.2002 10:35:08
Ahoj vespolek, kdyz pisu novy mail, mam pod tlacitkem "Komu" moznost vyberu
adres ze slozky "Kontakty". Tedy mel jsem, protoze bylo nutne Outlook2000
preinstalovat. Po reinstalaci mam vsechny slozky tak jak byly vcetne vsech
dat, pouze ty adresy z kontaktu se mi jiz po stisknuti tlacitka "Komu"
neobjevuji. Nevite nekdo, jak je tam dostat?
Diky predem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Jak dostat do seznamu adres Outlooku 2000 kontakty
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 17.4.2002 10:43:32
Otevri si adresar a nastav si jako vychozi slozku - Kontakty uzivatele
Hlavni identita nebo neco podobneho...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> preinstalovat. Po reinstalaci mam vsechny slozky tak jak byly vcetne vsech
> dat, pouze ty adresy z kontaktu se mi jiz po stisknuti tlacitka "Komu"
> neobjevuji. Nevite nekdo, jak je tam dostat?
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
Interbase & GROUP BY clause problem
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 17.4.2002 10:49:24
Abys vypocital procenta, potrebujes znat celek.
Takze bud dvema dotazy:
1. Spocita vse.
2. Druhy pak pouzije vysledek z prvniho jako parametr.
a nejlepe pres uloznou proceduru, nebo
ale muze to byt velmi pomale (zalezi na inteligenci serveru, jetli select expresion vyhodnoti
jen jednou, nebo pro kazdy radek znovu)
select pocet, 100*pocet/( select sum(pocet) from tab) from tab
Slavek
PS: Pro je problem z View ? Jak by ti to pomohlo ?
View je jen predpripraveny select (a jeste omezeny).
Slouzi k usnadneni prace, ale nedava ti zadne nove moznosti (pokud k nemu nejsou trigry).
> este jedna drobnost pls, ako by ste vyriesili doplnenie toho selektu o
> percentualne podiely tzn:
>
> lopaty 10 1000Skk 50%
> auta 10 1000Skk 50%
>
> problem je ze nemozem pouzit view...
>
FETCH v IB6
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 17.4.2002 11:02:02
Hi, Jakub !
you wrote:
JV> Existuje nejaka fce ci prikaz v SQL ktery by dokazal nacist pouze omezeny
JV> pocet vet v tabulce ktery urcim a ne celou tabulku ?
JV> napr. SELECT * FROM tabulka WHERE neco??
JV> Potrebuji to v IB 6.
IB 6 to nepodporuje.
FireBird ma to co potrebujes:
SELECT [FIRST (<integer expr m>)] [SKIP (<integer expr n>)]
popis na: http://prdownloads.sourceforge.net/firebird/Firebird_v1_ReleaseNotes.pdf
Nova vrese IB 6.5 ma stejnou funkce
SELECT * FROM ...
[ROWS <lower_value> [TO <upper_value>] [BY <step_value>] [PERCENT] [WITH TIES]
Ale chci upozornit, ze IB 6.5 neni Free.
Kdyz chces to v IB 6.0, muzes realizovat v SP:
CREATE PROCEDURE lister(N INTEGER)
RETURNS (........)
AS
BEGIN
IF (N IS NULL) THEN EXIT;
FOR SELECT... INTO ... DO
BEGIN
N=N-1;
IF (N >= 0) THEN SUSPEND;
ELSE EXIT;
END
END
Best regards, Alex Cherednichenko.
dll predava TStringList
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 17.4.2002 11:04:04
Jo Assign jo, ale ne to prirazeni o kterym je rec.
Jakub Dusek
From: "Vaclav Votipka" <vaclav.votipka(zv)merlin(tec)cz>
Subject: Re: dll predava TStringList
> >A pouziti prirazeni misto Assign uz vubec neni dobry napad, to bys ten
> >objekt musel porad uchovavat vytvoreny v tom druhym modulu protoze se na
nej
> >jen odkazujes ne?
> >
> Ne. Assign fyzicky prekopiruje data.
>
> eNca
>
paradox via ODBCe
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 17.4.2002 11:07:04
Dobry den,
chtel jsem pouzit jednorazovy pristup k tabulce Paradoxu pres ODBCe.
Vse funguje docela hezky, ale nemohu vytvorit timto zpusobem novou tabulku.
Mam vytvorene DNS na adresar, kde se povaluji tabulky, dejme tomu treba na
DBdemos z Delphi.
Klidne mohu pak udelat "select * from biolife" a vse funguje hezky, ale kdyz
chci vytvorit
novou tabulku pomoci SQL, tak se dozvim "invalid syntax in Create Table".
Proti SQL serveru
to funguje OK. Proto se ptam, jde takto vytvorit tabulka?
Je to pouze priklad s jednoduchymi typy, nikoliv realna tabulka.
CREATE TABLE DBLock2
(
UserID Int,
DateExp DATETIME,
)
Tim jsem myslel, ze se vytvori soubor DBLock2.db v adresari, kde jsou
ostatni tabulky.
Nebo jak se da vytvorit nova tabulka (bez BDE).
Mimochodem: proc se pri vytvoreni TODBCEDatabase vytvori dalsi 4 vlakna
(pripjeni k MS driveru
Paradoxu)?
S pranim hezkeho dne
Radek
User.dll Chyba pri ukoceni programu
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 17.4.2002 11:11:00
Uz sem se na to ptal mnohokrat, ale porad sem tam, kde sem byl na zacatku.
Mam program, ktery ma nekolik formularu v knihovnach dll. Behem behu
prohgramu se nic nestane, ale jakmile program zavru, objevi se, ze program
vykonal neplatnu operaci nekde v user.dll (nejcasteji).
Mezi nejcastejsi odpovedi bylo, ze nekorektne uvolnuji pamet. Pak mi nekdo
radil at si sezenu MemProof, ale vubec nevhapu so mi hlasi, resp., co mam
hledat.
Formulare v knihovnach inicializuji takto
begin
Formular := TFormular.Create(Formular);
end;
Pokud zadam, jak bylo razeno:
Application.CreateForm(TFormular, Formular);
zobrazi se formular hned po spusteni prgramu a ne az jak jej chci pouzit.
Kdyz jej pak zavru, rozbehne se hlavni program (exe). Zavolam formular z
knihovny, zavru jej a zavre se hlavni program (exe).
Co mam s tim delat?
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.346 / Virov� b�ze: 194 - datum vyd�n�: 10.4.2002
User.dll Chyba pri ukoceni programu
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 17.4.2002 11:17:29
Ahoj,
ja to delam nejak takto:
v DLL je fce, ktera vytvori formular a vrati nejaky vysledek:
function ShowForm(FAppHandle : THandle) : Boolean;
begin
Application.Handle := FAppHandle;
Form1 := TForm1.Create(Application);
Result := Form1.ShowModal = mrOK;
FreeAndNil(Form1);
end;
AV
> -----Original Message-----
> From: Rumcajs [mailto:prajz.rumcajs(zv)quick(tec)cz]
>
> hledat.
> Formulare v knihovnach inicializuji takto
>
> begin
> Formular := TFormular.Create(Formular);
> end;
>
> Pokud zadam, jak bylo razeno:
>
> Application.CreateForm(TFormular, Formular);
User.dll Chyba pri ukoceni programu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 17.4.2002 11:18:25
Ja vytvarim neco podobneho, bez problemu pouzivam tuto konstrukci :
Formular := TFormular.Create(Application)
with Formular do
begin
Visible := false;
try
if ShowModal = mrOK then
begin
end;
finally
Free;
end;
end;
Volam to az tehdy, kdy to potrebuji ...
Radek
"Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>(zv)clexpert(tec)cz on 17.04.2002 11:11:00
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: User.dll Chyba pri ukoceni programu
Formulare v knihovnach inicializuji takto
begin
Formular := TFormular.Create(Formular);
end;
Pokud zadam, jak bylo razeno:
Application.CreateForm(TFormular, Formular);
zobrazi se formular hned po spusteni prgramu a ne az jak jej chci pouzit.
Kdyz jej pak zavru, rozbehne se hlavni program (exe). Zavolam formular z
knihovny, zavru jej a zavre se hlavni program (exe).
Co mam s tim delat?
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.346 / Virov� b�ze: 194 - datum vyd�n�: 10.4.2002
paradox via ODBCe
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 17.4.2002 11:19:19
nespravna syntaxe sql prikazu. Int -> Integer a nevim jestli Pdox zna
DateTime
Sroub
> Dobry den,
>
> chtel jsem pouzit jednorazovy pristup k tabulce Paradoxu pres ODBCe.
> Vse funguje docela hezky, ale nemohu vytvorit timto zpusobem novou
tabulku.
>
> Mam vytvorene DNS na adresar, kde se povaluji tabulky, dejme tomu treba na
> DBdemos z Delphi.
> Klidne mohu pak udelat "select * from biolife" a vse funguje hezky, ale
kdyz
> chci vytvorit
> novou tabulku pomoci SQL, tak se dozvim "invalid syntax in Create Table".
> Proti SQL serveru
> to funguje OK. Proto se ptam, jde takto vytvorit tabulka?
> Je to pouze priklad s jednoduchymi typy, nikoliv realna tabulka.
>
> CREATE TABLE DBLock2
> (
> UserID Int,
> DateExp DATETIME,
> )
>
> Tim jsem myslel, ze se vytvori soubor DBLock2.db v adresari, kde jsou
> ostatni tabulky.
> Nebo jak se da vytvorit nova tabulka (bez BDE).
>
> Mimochodem: proc se pri vytvoreni TODBCEDatabase vytvori dalsi 4 vlakna
> (pripjeni k MS driveru
> Paradoxu)?
>
> S pranim hezkeho dne
> Radek