Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Delphi a Datab�ze prosba o radu
[*] JIM Design <jim.design(zv)iol(tec)cz> - 17.7.2001 19:32:04
ahoj,
Access+OLE DB nebo ADO
hlavne ne BDE+Paradox a uz vubec ne PCFAND
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Viktor Marek
P�ed �asem jsem zahodil DOSovsk� prorogramovac� jazyk PC Fand a pustil jsem
se do Delphi kde jsem narazil na probl�m
ukl�d�n� dat do n�jak� tabulky. Asi nikdy nebudu tvo�it velk� s�#ov�
datab�zov� aplikace. Jde mi jen o vytv߰en� jednoduch�ch aplikac� typu
"seznam �i evidence n��eho" tedy n�jak� tabulky kter� budu moct t��dit a
prov�d�t vyhled�v�n�,
p��padn� pou��t jednoduch� SQL p��kaz pro vyhled�n�.
Zkusil jsem Paradox a moje prvn� aplikace �sp�#n� odst�elila program jin�
firmy, kter� pou��vala ni�#� verzi BDE
Zkusil jsem Interb�zi, ale vytv߰en� tabulek a cel� koncepce pro moje
skromn� pot�eby je p��li# mamut�
Nakoukl jsem do my SQL a u� nerozum�m v�bec ni�emu
Doporu�ili mi Turbo Power ??????
Pora�te pros�m n�kdo co zvolit pro v�#e uveden� ��el a pokud by byl n�jak�
odkaz na CZ manu�l �i literat�ru je#t� l�pe.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
Jaka lokalni souborova databaze ?
[*] JIM Design <jim.design(zv)iol(tec)cz> - 17.7.2001 19:32:05
ahoj,
kdyz bys ho nemohl "volne" distribuovat (stejne jako MDAC), proc by pak byl
volne ke stazeni na M$ webu.
ale druhym faktem je ze kdyz nainstalujes MDAC 2.5 a >, tak uz
Jet40Sp3_Comp.exe instalovat nemusis
M.Jirman
>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>Behalf Of Petr Zahradnik
>Sent: Tuesday, July 17, 2001 2:14 AM
>
>Co ja vim, tak MSJET pro Access nikdy nebylo mozno volne distribuovat,
>ale byla potreba licence. Fakt je, ze jsem se nedival uz asi rok na
>nejake zmeny, ale neslysel jsem, ze by se neco zmenilo. MDAC je neco
>jineho, MDAC je ADO, ale ne JET. Muzu se vsak mylit, jak rikam, uz
>dlouho jsem se o to nezajimal, protoze Access me nikdy netahl...
>
>
>S pozdravem
Petr Zahradnik, pocitacovy expert
Klientska aplikace s databazi
[*] JIM Design <jim.design(zv)iol(tec)cz> - 17.7.2001 19:32:06
ahoj,
o jakou databazi jde???
jestli je to MSSQL, potrebujes IP nebo url, jmeno db, username a heslo
a pristupovat muzes normalne pres ADO,ODBC apod.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vasicek
Sent: Sunday, July 15, 2001 3:27 PM
Zdravim,
chtel bych se zeptat na takovou zakladni vec, jak muzu pracovat s databazi,
ktera je na netu, kdyz znam ten server, jmeno databaze, uzivatelske jmeno a
heslo. Kterou komponentu pro to mam pouzit, abych ty data ziskal a mohu
zadavat dotazy pomoci SQL? Muzu data v databazi na netu menit?
Diky moc za pomoc
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Systemovy datum IB6 - Server
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 17.7.2001 19:34:01
> Nevedel by nekdo jak by se dalo pomoci SQL prikazu vytahnout z IB6 -
SERVER
> systemovy datum z pocitace, kde je IB6 umistena ? Neco jako "now" ?
SELECT current_time from tabulka;
SELECT current_date from tabulka;
SELECT current_datetime from tabulka;
Leos
Pomala proxy
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 17.7.2001 19:55:46
> Tak to delej podobne jako to delam ja v Synapsi:
>
> 1. zjistim si jestli vubec je neco ke cteni
> 2. zjistim si, kolik bytu dat ceka na precteni
> 3. prectu pouze zjisteny pocet dat
>
> I kdyz pouzijes blokujici sockety, taktenhle postup ti zaruci, ze nikde
> nebudes ani chvilicku blokovany...
Tak tomuhle nejak nerozumim. Videl jsem Synapsi a tam je to snad z duvodu,
aby se dal pouzit timeout, ne? Preci, kdyz vim, ze mam jeste prijmout nejaka
data a zrovna zadna nejsou k dispozici, tak je mi uplne jedno, jestli cekam
ve fci canread() nebo nekde jinde. Navic timeout muzu nastavit (Winsock 2)
pomoci so_sndtimeo a so_rcvtimeo fci setsockopt(). Taky jsem nekde cetl, ze
"peeking" [uziti ioctlsocket(.., fionread, ..) v fci waitingdata] neni vubec
dobre a programator by se tomu mel radeji vyvarovat.
Frankie Y
Delphi a Datab�ze prosba o radu
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 17.7.2001 20:16:20
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
Ahoj.
Pro opravdu miniaturni databaze lze s uspechem pouzit RxMemoryData.
Pokud jde o vetsi objem dat, pak napriklad format Acces a free komponenty
KaDAO (www.delphi.pari.bg).
Do W9x je nutno doinstalovat Jet40Sp3_Comp.exe. Adresu najdes take na
www.delphi.pari.bg.
Ludek
velikost clusteru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 17.7.2001 20:19:26
> Nevite nekdo jak zjistit velikost jednoho clusteru?
GetDiskFreeSpace
Pozn: pozor muze vratit informace neodpovidajici skutecne strukture disku (Na FAT32 pokud je disk vetsi nez 2GB - snazi se nevracet vice nez 65535 cluiteru kvuli nejake kompatibilite). Viz poznamka v WinAPI helpu a msdn.microsoft.com
D. Toman
Odstraneni aplikace z hlavniho panelu
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 17.7.2001 20:27:05
Ahoj,
jak udelam, aby aplikace mela svoje (viditelne) okno na obrazovce a
pritom nebyla na hlavnim panelu ani v systray?
Diky.
Miroslav Novosad
mirnov(zv)atlas(tec)cz
Systemovy datum IB6 - Server
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 17.7.2001 20:35:36
----- Original Message -----
From: "Jakub Valenta" <delphi(zv)dapos(tec)cz>> Nevedel by nekdo jak by se dalo pomoci SQL prikazu vytahnout z IB6 -
SERVER
> systemovy datum z pocitace, kde je IB6 umistena ? Neco jako "now" ?
Ahoj.
Treba pomoci ulozene procedury :
Nejprve si na serveru vytvor SP :
CREATE PROCEDURE DatumCas
RETURNS (
DatumCas TIMESTAMP)
AS
begin
DatumCas = 'now';
suspend;
end
No a pak ji jen volas "SELECT * FROM DatumCas".
Ludek
Jakou pouzit databazi (Free)
[*] brant(zv)dcomm(tec)cz - 17.7.2001 20:36:17
Tady http://tdbf.netfirms.com jsou komponenty pro praci s DBF, se zdroji a
free. Ale nezkousel jsem je.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Ahoj,
pro velmi jednoduchou aplikaci bych potreboval bych tip, na nejak� knihovny
pro pristup k databazi.
Format dat ani vykon neni podstatny, jde hlavne o jednoduchost a cenu.
Klient musi byt soucasti exe a cena nejlepe 0 Kc vcetne DPH. Taky by mela
umet pracovat s databazovymi komponentami Delphi.
BDE, FF a IB nevyhovuji, protoze nesplnuji nektere z vyse uvedenych
pozadavku.OT: "rozdvojka" na port
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 17.7.2001 21:14:07
Kamarad chce koupit scanner, bohuzel vsak nema zadne volne porty. Ma
zakladni desku, kde neni USB port. Zajimalo by mne, zda existuje nejaka
"rozdvojka", ktera by umoznila prepinat mezi obema zarizenimi (modem,
skener) nebo zda musi vzdy oddelavat a pridelavat kabely. Obe zarizeni jsou
plug&play takze by to melo fungovat.
Frankie
Jak na accessovskou databazi ???
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 17.7.2001 21:43:27
Ahoj,
mam jeste takovy dotaz. Budu mit aplikaci, kterou budu distribuovat. Pouziji
na to accessovske tabulky. Pripojuji se k ni pres ODBC a asi i BDE tam
figuruje. Pouzivam instalshield express a kdyz se snazim udelat instalacky
tak se mi nedari vytvorit alias. Mozna existuje nejaky lepsi zpusob jak se
pripojovat k Accessovskym tabulkam ? Znate ho nekdo ? Poradte mi jak to
resit. Urcite budu mit potom problem pri instalaci i s nastavenim prislusne
cesty k tabulkam. Jestli znate nekdo zpusob, jak to resit, tak mi ho prosim
napiste.
Predem Diky.
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================OT "rozdvojka" na port
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.7.2001 22:27:38
From: "Frankie Y" <frankie.y(zv)seznam(tec)cz>
> Kamarad chce koupit scanner, bohuzel vsak nema zadne volne porty. Ma
> zakladni desku, kde neni USB port. Zajimalo by mne, zda existuje nejaka
Ahoj,
pak je asi nejsnazsi koupit PCI radic s USB porty, stoji to par stovek.
Petr Vones, amatersky programator
Icony a prostredi..
[*] Filip Honzarek <DEVELOPER(zv)pcforum(tec)cz> - 17.7.2001 22:29:55
Zdravim,
mam jeden maly dotaz. Potrebuju nejakou licenci od M$
napriklad na to, kdyz pouziju jejich ikony napr. z outlooku,
pripadne budu mit ve sve aplikaci velmi podobne prostredi jako
maji office??
Diky.
Filip Honzarek
OT: "rozdvojka" na port
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.7.2001 22:36:02
Puvodni zprava, kterou napsal Frankie Y dne 17 Jul 2001,:
> Kamarad chce koupit scanner, bohuzel vsak nema zadne volne porty. Ma
> zakladni desku, kde neni USB port. Zajimalo by mne, zda existuje nejaka
> "rozdvojka", ktera by umoznila prepinat mezi obema zarizenimi (modem,
> skener) nebo zda musi vzdy oddelavat a pridelavat kabely. Obe zarizeni jsou
> plug&play takze by to melo fungovat.
Prosimte, co je to za scanner, ze je na seriovy port? Ja jsem tedy
uz videl leccos, ale scanner na seriovem portu ne.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Jakou pouzit databazi (Free)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.7.2001 22:40:25
From: "Michal K�s" <kus(zv)tangosw(tec)cz>
> BDE, FF a IB nevyhovuji, protoze nesplnuji nektere z vyse uvedenych
> pozadavku.
Ahoj,
TClientDataSet a data ve formatu CDS nebo XML.
Petr Vones, amatersky programator
D5 nebo D6?
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 17.7.2001 22:43:44
Dobry den,
jsem tu kratce, ale vidim, ze pan Vones je v teto oblasti velmi
vzdelany. Mohu se optat, odkud cerpa tyto informace? To je z
hlavnich stranek Borlandu, nebo v napovede, nebo diky neustalemu
cteni zdrojoveho kodu VCL?
Karel Krtecek
> Predevsim byla znacne prepracovana RTL, takze napriklad
'prazdna' konzolova
> aplikace ma jen 8k a neimportuje zbytecne OLE knihovny, byl
zmenen zpusob
> synchronizace kodu z threadu takze metoda
TThread.Synchronize jiz nepouziva
> message loop k synchronizaci, pri startu aplikace se ihned
nevyhledavaji
> prislusne resource knihovny ktere slouzi k lokalizaci ale deje se
to az pri
> prvnim pozadavku na nejaky resource
(System.DelayLoadResourceModule) a mnoho
> dalsiho ...
>
> Petr Vones, amatersky programator
>
Klientska aplikace s databazi
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 17.7.2001 16:44:12 -0400
Cau,
je to MySQL databaze(pravdepodobne). Jak bych to mel tedy udelat, kdyz chci
dostat tu tabulku treba do DBGridu.
Diky
Petr Vasicek
>ahoj,
>
>o jakou databazi jde???
>
>jestli je to MSSQL, potrebujes IP nebo url, jmeno db, username a heslo
>a pristupovat muzes normalne pres ADO,ODBC apod.
>
>M.Jirman
>
>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>Behalf Of Petr Vasicek
>Sent: Sunday, July 15, 2001 3:27 PM
>
>Zdravim,
> chtel bych se zeptat na takovou zakladni vec, jak muzu pracovat s databazi,
>ktera je na netu, kdyz znam ten server, jmeno databaze, uzivatelske jmeno a
>heslo. Kterou komponentu pro to mam pouzit, abych ty data ziskal a mohu
>zadavat dotazy pomoci SQL? Muzu data v databazi na netu menit?
> Diky moc za pomoc
>Petr Vasicek
>
>-------------------------------------------
>The Fastest Browser on Earth now for FREE!!
>Download Opera 5 for Windows now! Get it at
>http://www.opera.com/download/
>-------------------------------------------
doporucena literatura
[*] 3dimension <3dimension(zv)atlas(tec)cz> - 17.7.2001 22:48:18
Ja mohu vrele doporucit Mastering Delphi 5 napsal to Marco Cantu a vydal
sybex. Stoji cca 2200-2500 Kc uz si to presne nepamatuju a je to samozrejme
anglicky.
----- Original Message -----
From: "nba" <nbanow(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 17, 2001 7:14 PM
Subject: doporucena literatura
> S delphi zacinam,
> a nepodarilo se mi sehnat zadnou literaturu nemate nekdo nejaky tip?
>VychodZapad slunce
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.7.2001 23:04:23
Zdravim
Vypocitat je to IMHO velice slozite. Pokud to bude mozne, tak bych to
stahoval z ineto od meteorologu.
Hurricane
----- Original Message -----
> Nevite nekdo jak vypocitat cas kdy zapada a vychazi slunce???Re[2]: komponenta
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 17.7.2001 23:06:13
PV> From: "Raul Endymion" <raul(zv)raphael(tec)cz>
>> nainstaloval jsem jednu komponentu, nemam k ni zdrojak, jen DCU a
>> package.. Na liste se mi v delphach objevila spravne, ale kdyz ji
>> pouziju a chci zkompilovat program, pise mi to ze nema .PAS (to pred
PV> Ahoj,
PV> autor patrne zkompiloval DCU s ladicimi informacemi, v tomto pripade pak IDE
PV> chce i zdrojak. Idealni je nepouzivat nic bez zdrojaku, predejdes tak nemilym
PV> prekvapenim.
PV> Petr Vones, amatersky programator
nojo jenomze tady se jedna o komponenty LMD (www.lmd.de). na jejich
webu jsem se docetl, ze pokud mate problemy s delphi mame si stahnout
novy balik (10Mb) coz jsem udelal, ale problem je porad stejny...
Raul mailto:raul(zv)raphael(tec)cz
WheelScroll v mwCustomEditem
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.7.2001 23:07:37
Zdravim
No, muzu to vyzkouset, ale typ neni definovan u zadne z jinych property.
Prece by melo stacit, ze v private definuju FWheelScrollLines: Integer;
Hurricane
--------------------
> zda sa ze ti tam chyba typ tej property:
> => property WheelScrollLines: Integer read FWheelScrollLines write
> FWheelScrollLines default 1;OT: multitasking v DOSu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.7.2001 23:10:36
Zdravim
Nevim, co tim myslis. Funguje to s jakoukoliv DOSovou aplikaci. Treba vsem
znamy Edit se snazi na LPT posilat data pro standardni Epsonku. A to
rezident zpracuje.
Hurricane
----- Original Message -----
> >Ja mam rezidentni ASMovy program, ktery odchytava data
> > posilana na LPT,
>
> zrejme to odchytava jen tisky, ktere pouzivaji BIOS funkce pro tisk.
> Aplikace ktere primo zapisuji na LPT neodchytis (obycejnym
> rezidentem).Rusena seriova komunikace
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.7.2001 23:13:15
Zdravim
HEUREKA
Myslim, ze jsi to vyresil. Me se to zda idealni.
Hurricane
----- Original Message -----
> mozna je to blbost, ale kdysi davno jsem nekde videl komunikaci asi timto
> zpusobem: jednotlive bity byly posilany vicekrat zasebou napr. trikrat
> (11010100 = 111 111 000 111 000 111 000 000) a po prijeti se zjistilo
ktery
> bit vlastne prevlada a ten se bral jako spravny
multitasking v DOSu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.7.2001 23:15:40
Zdravim
V tom pripade jsem se spatne vyjadril. Je to PRESNE tak, jak pises. Neni to
multitasking, ale taskswitching.
Hurricane
----- Original Message -----
> > Navod nemam, ale zcela urcite vim, ze to jde. DosShell (podle knizky k
> > DOSu by mel byt v distrubuci, ja ho tam ale nemam) umi prepinat tasky.
> > Rada DOSovych programu ma v menu Exit to shell a po kliknuti se spusto
> > prompt. Po napsani exit se znova obnovi predchozi program. Jak tohle
> > vyresit by ses mohla docetl v archivu nejake konference, ktera ma k
> > Pascalu a k DOSu blize.
>
> ALE TOHLE NEMA S MULTITASKINGEM NIC SPOLECNEHO!
> To skutecne muze jen spustit novou kopii shellu
> (command.com), ALE beh te puvodniho aplikace
> se tim POZASTAVI, dokud se tento shell zase neukonci!
> (BTW Dosshell byl ten nejvetsi DOS-s**t, ktery se v
> M$DOSu kdy objevil)
> Neplet tady lidi svymi zjednodusenymi predstavami!
>
> S behem vice aplikaci v DOSu to vubec neni jednoduche,
> NE VSECHNY sluzby DOS(BIOS) jsou vytvoreny jako
> reentrantni atd. V TOM LEPSIM pripade muze skoncit
> vicenasobne volani nereentrantniho kodu totalnim
> zatuhnutim PC, v horsim pripade se nemusi projevit hned :-(
>
> Programoval jsem v DOSu (a ASM) dost dlouho,
> abych vedel, o cem mluvim.D5 nebo D6?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.7.2001 23:21:15
From: "Karel Krtecek" <karel.krtecek(zv)centrum(tec)cz>
Ahoj,
> Mohu se optat, odkud cerpa tyto informace?
Jiste.
> To je z hlavnich stranek Borlandu, nebo v napovede, nebo diky neustalemu
> cteni zdrojoveho kodu VCL?
Vetsina veci se da zjistit nejlepe prohlizenim zdrojaku (k nekterym castem RTL
a VCL neni zadna dokumentace), zmeny mezi verzemi Delphi se dobre zjistuji
porovnanim zdrojovych souboru nejakym slusnym nastrojem, treba Araxis Merge.
Neco lze samozrejme najit i u Borlandu na webu (http://community.borland.com)
nebo v newsech (http://www.borland.com/newsgroups/#delphi)
Petr Vones, amatersky programator
doporucena literatura
[*] nba <nbanow(zv)atlas(tec)cz> - 17.7.2001 23:26:51
Nebylo by neco v cestine jenom doplnim ze mam D5 a nevim zda je vhodna i
literatura na D4.
Zatim diky.
----- Original Message -----
From: "3dimension" <3dimension(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 17, 2001 10:48 PM
Subject: Re: doporucena literatura
> Ja mohu vrele doporucit Mastering Delphi 5 napsal to Marco Cantu a vydal
> sybex. Stoji cca 2200-2500 Kc uz si to presne nepamatuju a je to
samozrejme
> anglicky.
>
> ----- Original Message -----
> From: "nba" <nbanow(zv)atlas(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Tuesday, July 17, 2001 7:14 PM
> Subject: doporucena literatura
>
>
> > S delphi zacinam,
> > a nepodarilo se mi sehnat zadnou literaturu nemate nekdo nejaky tip?
> >
>Klientska aplikace s databazi
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 18.7.2001 00:13:19
----- Original Message -----
> Cau,
> je to MySQL databaze(pravdepodobne). Jak bych to mel tedy udelat, kdyz
chci
> dostat tu tabulku treba do DBGridu.
Ahoj.
Jde to treba pres ODBC. Ovladac ODBC stahnes ze stranek MySQL. Take tam
najdes nativni komponenty pro Delphi od tretich stran.
Pripadne volanim API funkci (knihovna libmysql.dll).
Ludek
Re[2]: komponenta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.7.2001 00:21:44
From: "Raul Endymion" <raul(zv)raphael(tec)cz>
> nojo jenomze tady se jedna o komponenty LMD (www.lmd.de). na jejich
> webu jsem se docetl, ze pokud mate problemy s delphi mame si stahnout
> novy balik (10Mb) coz jsem udelal, ale problem je porad stejny...
Ahoj,
no ono by to asi chtelo koupit verzi se zdrojaky. Jinak pouzivat neco takoveho
bez zdrojaku je znacne problematicke, coz uz si asi sam poznal. To uz jsou
lepsi zadne komponenty nez nejake bez zdrojaku.
Petr Vones, amatersky programator
EOutOfResources
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.7.2001 00:46:33
From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> ze bych vycerpal vsechny prostredky... Da se to nejak zjistit? Muze to byt
> zpusobeno vytvarenim formulare v threadu TCPServeru (Indy) bez pouziti
Ahoj,
muze. VCL neni threadsafe takze formulare by jsi mel vytvaret v hlavnim
threadu. Nevidim ani zadny duvod proc to delat prave v TThread.Synchronize,
zkratka jej vytvor jeste predtim nez vytovris/spustis thread.
Petr Vones, amatersky programator
Odstraneni aplikace z hlavniho panelu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.7.2001 00:55:11
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
> jak udelam, aby aplikace mela svoje (viditelne) okno na obrazovce a
> pritom nebyla na hlavnim panelu ani v systray?
Ahoj,
procedure TForm1.FormCreate(Sender: TObject);
begin
with Application do
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;
Petr Vones, amatersky programator
Application.OnHint
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.7.2001 01:02:51
From: "Jaroslav Kuba" <jarda(zv)tresoft(tec)cz>
> Tak se mi Hinty ukazuji i ve formularich ktery nejsou zamerene a je to
> docale blbe, potreboval bych aby udalost OnHint zapisovala pouze do okna
> ktere je navrchu.
> Diky za kazde postrceni spravnym smerem
Ahoj,
obsah hintu si ukladej do nejake promenne v tom formulari od ktereho dedis v
obsluze udalosti OnHint (FrmBasOnHint). Pak si napis metodu ktera pomoci
Screen.ActiveForm zajisti zobrazeni ulozeneho textu jen v prave aktivnim okne
kterou pak budes volat z FrmBasOnHint a OnActivate toho formulare.
Petr Vones, amatersky programator
TJclExcelwriter
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.7.2001 01:10:10
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> exfile.create(FS);
Ahoj,
exfile je objekt, takze jej muis nejdrive vytvorit:
exfile := TJclExcelWriter.Create(FS);
Petr Vones, amatersky programator
Jak na accessovskou databazi ???
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 18.7.2001 07:07:57
KADAO komponenty
Sroub
Ahoj,
mam jeste takovy dotaz. Budu mit aplikaci, kterou budu distribuovat. Pouziji
na to accessovske tabulky. Pripojuji se k ni pres ODBC a asi i BDE tam
figuruje. Pouzivam instalshield express a kdyz se snazim udelat instalacky
tak se mi nedari vytvorit alias. Mozna existuje nejaky lepsi zpusob jak se
pripojovat k Accessovskym tabulkam ? Znate ho nekdo ? Poradte mi jak to
resit. Urcite budu mit potom problem pri instalaci i s nastavenim prislusne
cesty k tabulkam. Jestli znate nekdo zpusob, jak to resit, tak mi ho prosim
napiste.
Pristup k premennym objektu...
[*] Werki <delphi(zv)minv.sk> - 18.7.2001 07:22:31
Ahoj
Dik za rady, vyriesil som to cez forward deklaraciu a predavanie ukazovatela
z rodica detom a tie deti dalsim detom.
Takze aj objektik vnoreny pekne vovnutri moze adresovat hlavny engine.
Pekneeee.
Werki
> > Neviem ci sa mi podari dobre formulovat otazku, ale pokusim sa :)
> > Mam nejaky hlavny objekt s nejakymi premennymi a procedurami a ten si
> > vytvara dalsie, ine typy objektov...
> > je nejaka moznost ako ten vytvoreny objekt moze pristupovat k premennym
> > hlavneho objektu?
> > Premenne hlavneho objektu su public. Typ tych dalsich objektov je
> definovany
> > mimo hlavny objekt.
> > {Napriklad keby niekto deklaroval objekt TInaksiComboBox ako nieco uplne
> > nove a ten by si obcas vytvaral objekt
> > hladac (deklarovany mimo, ale vytvarany in) a ten by chcel mat funkciu
> > hladaj pocet items v comboboxe...len sa neviem k tomu comboboxu, resp.
> > rodicovi dostat...hmm??}
>
> Jak si si uz sam odpovedal ide o "rodica". Ten podriadeny objkety by mal o
> objektu ktoy ho vytvoril vediet. Mozes pouzit konstrukciu
> Object.Create(Owner: TObject). Ten podriadeny objekt musi mat premennu v
> ktorej bude mat uschovany odkaz na vlstnika. Napriklad tak ako to robia
> vsetky komponenty VCL.
>
> Pavol Kaka�ka
> KasiX(zv)atlas(tec)cz
>
>OT: multitasking v DOSu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.7.2001 07:28:49
> Nevim, co tim myslis.
Bios deklaruje nejaky interface pro komunikaci s tiskarnou. Ten teprve
primo pristupuje na LPT port a tak se bavi s tiskarnou. Nektere
programy jej pouzivaji a nektere ne (typicky treba Windows a dalsi
aplikace, ktere se potrebuji bavit s tiskarnou po svem).
Bios interface pro tiskarnu je resen pokoci obsluhy softwaroveho
preruseni (INT xx). Tuto obsluhu muze kdokoliv presmerovat na nejakou
rutinu, ktera udela co potrebuje a pokud pak vrati obsluhu na puvodni
kod tiskne se dal naprosto transparentne.
Naproti tomu primy tisk na port se da odchytit jen slozite - musel bys
mit cosi co pobezi v chranenem modu CPU a zakaze pristup na LPT port -
a tak se o pristupu na nej dozvi diky hlaseni o poruseni zakazu.
>Funguje to s jakoukoliv DOSovou aplikaci. Treba vsem
> znamy Edit se snazi na LPT posilat data pro standardni Epsonku. A to
> rezident zpracuje.
Puvodni tazatel se ptal zrejme na taskswitching/multitasking
(prepinani CS:IP je dost zvlastni termin) a to je ponekud jina kava
nez napsat rezident, ktery udela nejakou malo slozitou aakci (posle to
co precte z LPT na seriovku).
Je treba si uvedomit, ze existuji 2 druhy akci, ktere rezident muze
delat:
1) neco co je zcela reentrantni
2) neco co reentrantni neni (prakticky vsechny funkce DOSu, BIOSu,
atd)
Cili pokud budu psat to presmerovani LPT na seriovku muzu risknout
problemy se soubeznym pouzivanim COMu a budu data rvat primo na COM.
Nepouziju zadnou nereentrantni sluzbu, takze pad PC nezpusobim -
maximalne zmateni dat na COMu.
Pokud ale budu potrebovat data ulozit na disk, pak musim vse delat
uplne jinak. Teoreticky sice i v tomto pripade muzu predpokladat, ze
tisk na LPT se bude vzdy dit jen z aplikace na popredi (a pomoci BIOS
INT 17h) a tedy jedina nereentrantni vnorena funkce bude BIOS obsluha
LPT coz nebude kolidovat s DOSem, _ALE_ staci aby aplikace tiskla
pomoci sluzeb DOSu (copy xxx lpt1) ne primym pouzitim BIOSu a problemy
jsou tady. Cili je nutne zabezpecit toto:
1) bud budu pouzivat funkce DOSu jen tehdy, kdy nejsou pouzivany.
Existuji flagy, ktere toto indikuje - pripadne se muzu povesit na
Int21 a detekovat pouziti DOSu sam. Dale v nekterych pripadech je
mozne volat Fce dosu vzdy - DOS vola uvnitr svych fci INT 28h (pokud
se nepletu) a behem neho je mozne volat dalsi DOS fce.
Dale je treba vedet, ze rezident bezi vlastne pod "uctem" aplikace
behem jejihoz chodu se probudil. Cili ma-li napriklad rezident otevrit
soubor, musi donutit DOS pouzivat spravne informace (DTA) o rezidentu
(jinak se soubor otevre v ramci preruseneho procesu a handle zaradi do
jeho seznamu otevrenych procesu, atd). Po ukonceni prace musi zase
rezident prepnout tyto informace do puvodni podoby.
Pozn: tato metoda neni nekdy pouzitelna, protoze obdobi kdy je DOS
nepouzitelny muze byt velmi dlouhe (tusim, ze zmineny copy xxx lpt DOS
zablokuje na celou dobu tisku, dale pri vyskytu kriticke chyby "abort
retry,...") .
2)nasilnejsi metoda, ktera prepina interni struktury DOSu tak, aby jej
pro sebe zpristupnila i ve chvili kdy je necim zamestnan. Rezident
tedy zazalohuje stav DOSu (DTA a PSP) ulozi novy stav (svoje DTA a
PSP) provede zadanou funkci a pak zase DOS uvede do puvodniho stavu.
Vypada to jednoduse ale situaci komplikuji dalsi nereentranti veci
(BIOS, atd), ktere je treba hlidat, dale ruzne verze DOSu pouzivaji
ruznou strukturu PSP a dalsich...
V praxi se metody 1 a 2 kombinuji tak aby se dosahlo optimalniho
vykonu rezidentu.
D. Toman
multitasking v DOSu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.7.2001 07:34:16
> Zdravim
>
> V tom pripade jsem se spatne vyjadril. Je to PRESNE tak, jak pises.
Neni to
> multitasking, ale taskswitching.
spousteni aplikace z jine aplikace pod DOSem neni ani multitasking ani
taskswitching. Je to jen obycejne spusteni aplikace, kdy ten program
co ji spustil je necinny dokud ta aplikace neukonci cinnost.
Taskswitching se nazyva situace, kdy napriklad spustim 5 aplikaci
postupne (stale bezi) a nejakou horkou klavesou se mezi nima prepinam.
Aplikace do ktere jsem prepnuty bezi - ostatni spi (ale jsou kdykoliv
k dispozici).
Kdyz NC spustis napriklad Edit tak nemuzes rici, ze NC je na pozadani
k dispozici (musis nejprve ukoncit Edit)
>
> Hurricane
> ----- Original Message -----
>
> > > Navod nemam, ale zcela urcite vim, ze to jde. DosShell (podle
knizky k
> > > DOSu by mel byt v distrubuci, ja ho tam ale nemam) umi prepinat
tasky.
> > > Rada DOSovych programu ma v menu Exit to shell a po kliknuti se
spusto
> > > prompt. Po napsani exit se znova obnovi predchozi program.
>Jak tohle
> > > vyresit by ses mohla docetl v archivu nejake konference, ktera
ma k
> > > Pascalu a k DOSu blize.
to neni treba nijak resit. Proste se zavola DOS funkce, kterou se
spousti programy a je to. Zminovany Exit je specialni pripad, kdy
spoustenou aplikaci je command.com - ten se ukoncuje Exitem.
D. Toman
Systemovy datum IB6 - Server
[*] Piskac Josef <josef.piskac(zv)comarr(tec)cz> - 18.7.2001 07:40:38
select current_timestamp from xxxx, kde xxxx je
nejaka tabulka. V databazi ORACLE je tabulka
DUAL, ktera obsahuje prave 1 pole a 1 zaznam. V
IB6 jsem si ji zalozil rucne, abych mohl snadno
zjistovat ruzne promenne ze serveru.
Create table Dual (Dummy VARCHAR(1));
Insert into Dual values ('*');
Commit;
Potom lze napr. zjistit prihlaseneho uzivatele
select user from dual
atd.
Pepa
doporucena literatura
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 18.7.2001 07:42:06
Ja take pouzivam Delphi 5 a mam Mistrovstvi v Delphi 3. Kdo to vydal
a kdo to napsal si nepamatuji, zkus ComputerPress. Rozhodne jsem v
teto knize pochytil zacatky a zbytek uz beru jenom z helpu.
Petr
> Nebylo by neco v cestine jenom doplnim ze mam D5 a nevim zda je vhodna i
> literatura na D4.
> Zatim diky.
>
> > Ja mohu vrele doporucit Mastering Delphi 5 napsal to Marco Cantu a vydal
> > sybex. Stoji cca 2200-2500 Kc uz si to presne nepamatuju a je to
> samozrejme
> > anglicky.
> >
> > > S delphi zacinam,
> > > a nepodarilo se mi sehnat zadnou literaturu nemate nekdo nejaky tip?
> > >
> >
>
>
______________________________________________________________________
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
FAT, FAT32
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 18.7.2001 07:56:39
Diky za rady, uz se mi to podarilo ( alespon ta nejdulezitejsi cast )
Jednalo se o FAT32 a poskozena byla partition table a boot sektory.
Pouzil jsem diskedit z NU 2001 ale dost tezko se s nim pracovalo
(napriklad kalkulacka neumi pocitat )
Pavel
Jak na accessovskou databazi ???
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.7.2001 08:03:50
> mam jeste takovy dotaz. Budu mit aplikaci, kterou budu distribuovat.
> Pouziji na to accessovske tabulky. Pripojuji se k ni pres ODBC a asi i
> BDE tam figuruje.
ODBC a BDE spolu nemaji nic spolecneho v tom smyslu, ze by
jedno podminovalo vzdy pritomnost druheho. To, jestli pouzivas
BDE nebo ne zalezi vyhradne na tom, jake komponenty pouzivas
ve sve aplikaci. Pokud TTable a TQuery, tak je to samozrejme pres
BDE. U distribuovani aplikace s BDE vzdy hrozi komplikace v
pripade, ze na cilovem stroji jiz existuje BDE instalovane jinou
aplikaci. Pro pristup pres ODBC jsem vzdy pouzival komponenty
ODBCe, bohuzel nevim momentalne platny link, protoze autor
zmenil zamestnavatele a jeho puvodni stranka zrejme zanikla.
ODBCe je samozrejme bez BDE.
Prestoze nevim, o jakou aplikaci v Tvem pripade jde, doporucil
bych FlashFiler. Ten je potreba koupit, nicmene za jeho
distribuovani se neplati a rekl bych, ze - ted to nechci nejak
zkreslit - pokud by pro charakter aplikace byl postacujici Paradox,
tak pouziti FlashFileru je rozumne.
Zduraznuji, ze jde o implikaci, netvrdim, ze to plati obracene!!
David Lebeda
Systemovy datum IB6 - Server
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 18.7.2001 08:11:21
SELECT current_timestamp from RDB$DATABASE
> Nevedel by nekdo jak by se dalo pomoci SQL prikazu vytahnout z
> IB6 - SERVER
> systemovy datum z pocitace, kde je IB6 umistena ? Neco jako "now" ?
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
dbExpress
[*] Jon�s Mari�n <Jonas(zv)komercpoj(tec)cz> - 18.7.2001 07:11:35
Mam jeste dva dotazy k dbExpress.
Staci mi pri instalaci dbExpressu na klienta ty DLL knihovny jen nakopirovat
nebo se musi zapisovat do registru/registrovat DLL ?
Mohou byt knihovny dbExpressu ve stejnem adresari jako aplikace.exe a
GDS32.DLL ?
Diik Marian Jonas
>Pavel Cisar napsal:
>Haj hou!
>
>>On 17 Jul 2001,, Jon� Mari�n wrote:
>
>> Mam nekolik dotazu ohledne dbExpressu.
>>
>> 1. Podporuje dbExpress Interbase 6.0 a IBM DB2 ?
>
>Ano.
>
>> 2. Linkuje se dbExpress primo do exace nebo to jsou nejake
>DLL knihovny ?
>
>Drivery maji podobu DLL (cca 150Kb).
>
>> 3. Ce se musi nainstalovat na klientskem pocitaci ?
>
>Aplikace, driver dbExpressu, klientsky sw databaze.
>
>> 4. Staci na pocitaci mit jen GDS32.DLL nebo musi byt
>nainstalovan cely IB
>> Client ?
>
>Staci GDS32.DLL, cely klient neuskodi.
>
>> 5. Ve ktere edici Delphi6 je dbExpress ?
>
>Profi a vyse.
>
>> 6. Ve ktere edici Delphi6 je TSQLClientDataset ?
>
>Profi a vyse.
>
>> Dekuji Marian Jonas
>
>Neni zac
>
>
>Pavel Cisar <pcisar(zv)borland(tec)cz>
>Borland s.r.o.
>doporucena literatura
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 18.7.2001 08:22:24
Podivej se na vltavu,
Mastering Delphi je urcite prelozena do cestiny (Mistrovstvi v Delphi).
Jen nevim, jestli uz je prelozena i 5.
Ozon
P.S. Ale pokud ti mohu poradit, zvykni si na anglickou literaturu, protoze v
ceskych prekladech jsou chyby a obcas dost velke...
> Nebylo by neco v cestine jenom doplnim ze mam D5 a nevim zda je vhodna i
> literatura na D4.
> Zatim diky.
>
> > Ja mohu vrele doporucit Mastering Delphi 5 napsal to Marco Cantu a vydal
> > sybex. Stoji cca 2200-2500 Kc uz si to presne nepamatuju a je to
> samozrejme
> > anglicky.
> >
> >
> > > S delphi zacinam,
> > > a nepodarilo se mi sehnat zadnou literaturu nemate nekdo nejaky tip?
> > >
> >
>
>DLL
[*] prajz.rumcajs(zv)quick(tec)cz - 18.7.2001 8:25:00
Dostal jsem se pred jisty problen: Mam vytvorenou knihovnu Tisk.DLL ve ktere
je formular a na nem komponenta QuickRep. Tento formular potrebuju na zadost
otevrit a pouzivat jako dalsi okno. Zkousel jsem toto:
procedure Spust;
begin
Sestava := TSestava.Create(Sestava);
Sestava.ShowModal;
end;
Bohuzel to vyhodi chybu v Tisk.dll a aplikace spadne. Nevite jak nato?
Dik za kazdou ranu spravnym smerem, Rumcajs
Rusena seriova komunikace
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 18.7.2001 08:25:27
No,
tenhle kod neni idealni, ale znacne redundatni... (sakra, co jsem to rekl -
no zni to blbe, ale je to pravda ;)
Pokud mas moznost, tak se podivej do nejakych VS skript na samoopravne
kody - urcite najdes lepsi. Stoji to za tu namahu.
Rad bych Ti nejaky lepsi poradil ale uprimne receno si zrovna ted nemohu na
zadny vzpomenout ;)
Ozon
>
> Zdravim
>
> HEUREKA
>
> Myslim, ze jsi to vyresil. Me se to zda idealni.
>
> Hurricane
> ----- Original Message -----
>
> > mozna je to blbost, ale kdysi davno jsem nekde videl komunikaci
> asi timto
> > zpusobem: jednotlive bity byly posilany vicekrat zasebou napr. trikrat
> > (11010100 = 111 111 000 111 000 111 000 000) a po prijeti se zjistilo
> ktery
> > bit vlastne prevlada a ten se bral jako spravny
>
>doporucena literatura
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 18.7.2001 08:40:08
Muzes pouzit i knihy o D4.
Nejaky jednoduchy prehled najdes tady
http://www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=124
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> > > S delphi zacinam,
> > > a nepodarilo se mi sehnat zadnou literaturu nemate nekdo
> nejaky tip?IB6.0.1.6 - extrakce metadat
[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 18.7.2001 09:00:10
Nazdar
Pouzivam Interbase server IB6.0.1.6 a potrebuj vyextrahovat metadata
pomoci programu isql.exe.
Pouzivam nasledujici prikaz:
"isql -user SYSDBA -password myPassword -a -output c:\metadata.txt
localhost:e:\interbase\gcrc.gdb"
Bohuzel isql vzdy skonci s chybovou hlaskou "Statement failed,
SQLCODE=-902
Your user name and password are not defined. Ask your database
administrator to set up an Interbase login.
"
User i password jsou zadany spravne.
Nevite nekdo, kde by mohl byt problem ?
S pozdravem
Dusan Fojtik
Delphi a Datab�ze prosba o radu
[*] Martin Nedopil <nedopil(zv)yahoo(tec)com> - 18.7.2001 09:01:22
> "seznam �i evidence n��eho" tedy n�jak� tabulky kter� budu moct t��dit a
> prov�d�t vyhled�v�n�,
> p��padn� pou��t jednoduch� SQL p��kaz pro vyhled�n�.
Ja osobne bych doporucil DBISAM www.elevatesoft.com .Je zvlastni, ze se v
nem
nikdo v konferenci nezminuje. Neni zdarma, ale drahy taky ne. Za cca 6.000
mas
vystarano jednou pro vzdy. Free verze vyhodi dialog.
Je 99% kompatibilni s paradoxem mysleno v oblasti funkci. Nema zadne
DbiPackTable apod. vse se
resi pomoci metod objektu. Objekty samotne jsou kompatibilni s TTable takze
Sinea
funguje, Qreport take, VCL komponenty bez problemu.
Nema zadne LCK soubory (100% vyhoda), vlastni nastroj pro spravu tabulek.
Prihrava se do EXE, je to soubor nekolika komponent. A samozrejme tabulky
je mozno sdilet, SQL 92 standartne uvnitr, ve verzich pro D1-D6 a CBuilder.
Prakticke zkusenosti:
Nejlepsi ze souborovych, lehka obsluha v pripade padu mozny repair
jednoduchym
volanim funkce. V pohode pojme 1.000.000 vet, velmi rychla. Firma
prosperuje,
stale chysta neco noveho, ted C/S reseni.
Tabulky obcas padnou, ale je to <b> podstatne </b> mene casto nez *.DB .
Jsou jasnou ukazkou toho, ze to jde delat i jinak (srovnej velikost IDAPI a
velikost vysledneho EXE s pouzitim DBISAM, pro zajimavost srovnej velikost
IDAPI versus IB6).
Takze je to presne to spravne kladivo pro vsechny, kteri si programuji sve
male sitove ucetnictvi, ruzne kartoteky proste vsude tam, kde ukladame
nevelke mnozstvi dat (20MB tabulky a zadne zpomaleni neni znat), chceme
je i sdilet, obcas potrebujeme SQL (i kdyz neni v siti prilis rychle, ale to
je
zrejme).
Kdo do dnesniho dne musel (z ruznych duvodu) pouzivat paradox a chce
(z ruznych duvodu) pokracovat v souborovych databazich, verte, ty penize
za to opravdu stoji. <i> Nejsem dealer ani jinak financne zavisly na vyse
uvedene
firme a produktu, jen jim strasne fandim </i> .
Pripadne dotazy na tikytak(zv)volny(tec)cz
Tikytak
_________________________________________________________
Do You Yahoo!?
Get your free (zv)yahoo.com address at http://mail.yahoo.com
Re[2]: cursor mysi
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 18.7.2001 09:06:05
Hello Pavel,
>> za behu zmenim komponente 'cursor' mysi, ale zmena se projevy az pri
>> pohybu mysi. Je-li mys v klidu, je videt stale stary cursor :-( Jde
>> nejak na tvrdo prekreslit, aby se zmena projevila okamzite ?
>> ShowCursor() jsem zkousel, nezabira :-(
P> zkus Screen.Cursor:=xxx
To bys pak musel kontrolovat kde vsude mys po screen jezdi a menit kurzor
podle pozice :-(
Uz jsem to odhalil, kurzoru se musi pomoci funkcemi get/setCursorPos(),
pak se ochotne vykresli novy.
--
Best regards,
vt
Re[2]: cursor mysi
[*] Pavel CAB�K <delphikonf(zv)cross(tec)cz> - 18.7.2001 09:13:22
Ahoj,
mas pravdu. Prehledl jsem, ze to ma byt jen pro komponentu.
> >> za behu zmenim komponente 'cursor' mysi, ale zmena se projevy az pri
> >> pohybu mysi. Je-li mys v klidu, je videt stale stary cursor :-( Jde
> >> nejak na tvrdo prekreslit, aby se zmena projevila okamzite ?
> >> ShowCursor() jsem zkousel, nezabira :-(
>
> P> zkus Screen.Cursor:=xxx
>
> To bys pak musel kontrolovat kde vsude mys po screen jezdi a menit kurzor
> podle pozice :-(
Pavel CABAK
cabak(zv)cross(tec)cz
TDBGrid and selected
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 18.7.2001 09:16:41
Zdravim! Jak zjistim, ze uzivatel vybral nejaky zaznam z TDBGrid (napojeny pres SP), kdyz mam mutliselect nastaven na false a SelectedRows nefunguje? Diky
M&B
VychodZapad slunce
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 18.7.2001 09:27:07
> Nevite nekdo jak vypocitat cas kdy zapada a vychazi slunce???
>
http://hotel04.ausys.se/pausch/comp/riset.html
QR & SaveToFile
[*] Vlastimil Zden�k <gestore(zv)wo(tec)cz> - 18.7.2001 08:39:39
Zdravim!
Prosil bych o radu (D5 Ent, NT 4.0, SQL 7.0, QR 3.07)
Jak vyvolam udalost SaveToFile na QR bez Preview a tisku? Proste
vyexportovat sestavu do soubor.xxx pri stisku tlacitka na formu ...
Diky Vlasta
MemoryTable a FindNearest
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.7.2001 09:44:58
Ahoj,
nevite nekdo o nejake memoryTable, ktera umi FindNearest?
David Lebeda
Resorce editor
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 18.7.2001 09:57:43
Zdravim.
Kdysi jsem zahledl nejaky programek pro prevod bitmap do resourcu. Stacilo
pozadovane bitmapy hodit do jedne slozky a program potom vytvoril *.RC
soubor ktery se prevedl do RES.
Nevite nahodou nekdo o nejakem podobnem nastroji?
Diky.Delphi a Datab�ze prosba o radu
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 18.7.2001 10:02:42
> Odes�latel: Viktor Marek <viktor(zv)mbox.vol(tec)cz>
> Zkusil jsem Paradox a moje prvn� aplikace �sp�#n� odst�elila program jin�
> firmy, kter� pou��vala ni�#� verzi BDE
> Zkusil jsem Interb�zi, ale vytv߰en� tabulek a cel� koncepce pro moje
> skromn� pot�eby je p��li# mamut�
> Nakoukl jsem do my SQL a u� nerozum�m v�bec ni�emu
> Doporu�ili mi Turbo Power ??????
No, ja myslim, ze pokud se smiris s tim, ze SQL databaze jsou tady, tak Ti to vyjde jenom na dobre.
Ale pokud bys trval na tom, ze to musi byt male a jednoduche, pak Flash Filer od firmy Turbo Power je urcite reseni, se kterym budes spokojen.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0601 203084]
=========================================IB
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.7.2001 10:17:26
Ahojte
nevite jak zjistim ktere datove typy podporuje IB databaze na druhem konci ?
Jak to delaji programy pro administraci IB kdyz mi nabidnou v seznamu
podporovane datove typy napr. v pruvodci pro vytvareni sloupcu tabulky ?
dik
Milos Delphi a =?iso-8859-2?q?Datab=E1ze_prosba_o_radu?=
[*] iturcan(zv)gamo.sk - 18.7.2001 10:17:00
>Zkusil jsem Paradox a moje prvn� aplikace �sp�#n� odst�elila program jin�
>firmy, kter� pou��vala ni�#� verzi BDE
>Zkusil jsem Interb�zi, ale vytv߰en� tabulek a cel� koncepce pro moje
>skromn� pot�eby je p��li# mamut�
>Nakoukl jsem do my SQL a u� nerozum�m v�bec ni�emu
>Doporu�ili mi Turbo Power ??????
>
>Pora�te pros�m n�kdo co zvolit pro v�#e uveden� ��el a pokud by byl
n�jak�
>odkaz na CZ manu�l �i literat�ru je#t� l�pe.
Osobne sa tiez priklanam k SQL databazam, pokial potrebujes nieco v CZ tak
ti odporucam WinBase602 verziu 7.0. Je jednoducha , celkom spolahliva a
lokalna licencia je free.
Uzivatelske prostredie je celkom pritulne, manual je postacujuci a v
Cestine.
Link je: www.software602(tec)cz/winbase
Priame komponenty bez pouzitia BDE su jednak na: www.software602(tec)cz/wde
alebo
najnovsie verzie priamo u mna. Vid e-mail/ICQ
Ivan Turcan
Development Specialist
Phone: +421 905 500958
Email: iturcan(zv)gamo.sk
ICQ: 39761365
DLL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.7.2001 10:18:07
library tisk;
uses Windows,Forms,SestavaUnit;
procedure Spust(apph:THandle); stdcall;
begin
Application.Handle:=apph;
Sestava := TSestava.Create(Application);
Sestava.ShowModal;
Sestava.Free;
end;
eports
Spust;
P.S: Nevite nekdo jak toto udelat v Kylixu. Tam mi presne todle co ve
Windows funguje spadne :(((>procedure Spust;
>begin
>Sestava := TSestava.Create(Sestava);
>Sestava.ShowModal;
>end;
>Bohuzel to vyhodi chybu v Tisk.dll a aplikace spadne. Nevite jak nato?
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Resorce editor
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.7.2001 10:22:11
soubor.rc - obsah:
NazevResourcu BITMAP "file.bmp"
NazevResourcu2 BITMAP "file2.bmp"
...
pote program BRCC32.EXE u Delphi v adresari Bin
nacteni v programu:
bmp:=TBitmap.Create;
bmp.LoadFromResource(hInstance,'NazevResourcu');
...
BTW: Jinak program ResourceHacker toho umi docela dost (hlavne kuchat a
nahrazovat resourcy v EXE a DLL souborech. Muzu zaslat, url si totiz
nepamatuji.)
At 09:57 18.7.2001 +0200, you wrote:
>Zdravim.
>Kdysi jsem zahledl nejaky programek pro prevod bitmap do resourcu. Stacilo
>pozadovane bitmapy hodit do jedne slozky a program potom vytvoril *.RC
>soubor ktery se prevedl do RES.
>Nevite nahodou nekdo o nejakem podobnem nastroji?
>Diky.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
OT: multitasking v DOSu
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 18.7.2001 10:42:29
Ahoj,
ale to je presne to, ze nevis, o cem pises!
Jsou aplikace, ktere zapisuji primo na fyzicke porty LPT (napr.378H).
Tiskovy filtr na PRN device (BIOS INT 17H, nebo
DOS INT 21H service 05), cesky ovladac klavesnice nebo
graficke karty neni multitasking.
Proc myslis, ze se DOS funkce pro instalaci rezidentu
asi jmenuje tak, jak se jmenuje:
> DOS Fn 31H: Terminate & Stay Resident -- KEEP
Terminate!
Proste je nutne se smirit s tim, ze MSDOS (duraz na MS)
neni multitaskingovy OS.
### Hurricane napsal dne 17 Jul 01, v 23:10 :
> Nevim, co tim myslis. Funguje to s jakoukoliv DOSovou aplikaci. Treba vsem
> znamy Edit se snazi na LPT posilat data pro standardni Epsonku. A to
> rezident zpracuje.
>
> Hurricane
> ----- Original Message -----
>
> > >Ja mam rezidentni ASMovy program, ktery odchytava data
> > > posilana na LPT,
> >
> > zrejme to odchytava jen tisky, ktere pouzivaji BIOS funkce pro tisk.
> > Aplikace ktere primo zapisuji na LPT neodchytis (obycejnym rezidentem).
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Odeslani faxu
[*] Vyvoj <delphi(zv)atlascon(tec)cz> - 18.7.2001 10:42:49
Cau.
Nemate nekdo kod pro odeslani faxu pres printer nebo assignprn?
Jde mi o zadani faxoveho cisla.
Pouzivam D5
**************************************************
* Ing. Roman Macura
* vedouc� SW projektu
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : macura(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
OT: duplicita firiem
[*] R�bert #ak - 18.7.2001 10:42:22
Neriesil ste niekto problem, ako zistit duplicitne zaznamy
v databazi firiem ?
struktura:
nazov firmy
ico - pre CR,SK
ulica + �.p.
PSC
mesto
stat
Jednoducho by som to riesil cez SQL, ale potrebujem
najst inteligentny algoritmus, ktory rozozna preklepy, rozne zapisy PSC atd.
SELECT UNIQUE
nazov
mesto,
ulica,
psc,
stat
FROM firma
Dufam, ze ma nieko nakopne.
Robert Sak
Magion spol. s r.o. tel./fax :0657/614 289
Jiraskova 1284 e-mail: robert.sak(zv)magion(tec)cz
755 01 Vsetin www: http://www.magion(tec)cz
Application.OnHint
[*] Skala Tomas <alcatraz(zv)atlas(tec)cz> - 18.7.2001 10:48:10
Zdravim,
mozna by stacilo jen pridat podminku:
procedure TFrmBas.FrmBasOnHint(Sender: TObject);
begin
if Active then
BarSts.Panels.Items [2].Text := GetLongHint(Application.Hint);
end;
Tomas Skala
> -----Puvodni zprava-----
> Od: Jaroslav Kuba [SMTP:jarda(zv)tresoft(tec)cz]
> Odeslano: 17. eervence 2001 15:52
> Komu: delphi-l(zv)clexpert(tec)cz
> Poedmit: Application.OnHint
>
> Potrebuju nakopnout, mam formular FrmBas od ktereho jsou dedeny vsechny
> formulare v app, na tomto formulari je i StatusBar s nekolika panely. Kdyz
> do Application,OnHint priradim svoji obsluhu asi takovou
>
> procedure TFrmBas.FrmBasOnHint(Sender: TObject);
> begin
> BarSts.Panels.Items [2].Text := GetLongHint(Application.Hint);
> end;
>
> Tak se mi Hinty ukazuji i ve formularich ktery nejsou zamerene a je to
> docale blbe, potreboval bych aby udalost OnHint zapisovala pouze do okna
> ktere je navrchu.
> Diky za kazde postrceni spravnym smerem
>
> Jaroslav KUBA
dbExpress
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 18.7.2001 11:01:14
Haj hou!
On 18 Jul 2001,, Jon�s Mari�n wrote:
> Mam jeste dva dotazy k dbExpress.
>
> Staci mi pri instalaci dbExpressu na klienta ty DLL knihovny jen nakopirovat
> nebo se musi zapisovat do registru/registrovat DLL ?
Staci nakopirovat. Program ovsem musi vedet kde jsou.
> Mohou byt knihovny dbExpressu ve stejnem adresari jako aplikace.exe a
> GDS32.DLL ?
Ano.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.doporucena literatura
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 18.7.2001 11:20:11
Vydava to nakladatelstvi Grada autor Marco Cantu
----- Original Message -----
From: Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, July 18, 2001 7:42 AM
Subject: Re: doporucena literatura
> Ja take pouzivam Delphi 5 a mam Mistrovstvi v Delphi 3. Kdo to vydal
> a kdo to napsal si nepamatuji, zkus ComputerPress. Rozhodne jsem v
> teto knize pochytil zacatky a zbytek uz beru jenom z helpu.
>
> Petr
>
>
> > Nebylo by neco v cestine jenom doplnim ze mam D5 a nevim zda je vhodna i
> > literatura na D4.
> > Zatim diky.
> >
> > > Ja mohu vrele doporucit Mastering Delphi 5 napsal to Marco Cantu a
vydal
> > > sybex. Stoji cca 2200-2500 Kc uz si to presne nepamatuju a je to
> > samozrejme
> > > anglicky.
> > >
> > > > S delphi zacinam,
> > > > a nepodarilo se mi sehnat zadnou literaturu nemate nekdo nejaky tip?
> > > >
> > >
> >
> >
>
> ______________________________________________________________________
> Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 02.07.2001
DLL
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 18.7.2001 11:20:14
> P.S: Nevite nekdo jak toto udelat v Kylixu. Tam mi presne todle co ve
> Windows funguje spadne :(((
v Propertiess, Build With Runtime Packages u DLL museji byt uvedeny vsechny balicky, ktere pouziva
ten formular pro tisk a DLL.
Aplikace ze ktere se spousti ta DLL musi byt taky prelozena se zapnutou volbou Build With Runtime Packages.
Jirka
ODBCe (RE: Jak na accessovskou databazi ???)
[*] Lubo Fule <fule(zv)ekosoft.sk> - 18.7.2001 11:22:14
> aplikaci. Pro pristup pres ODBC jsem vzdy pouzival komponenty
> ODBCe, bohuzel nevim momentalne platny link, protoze autor
> zmenil zamestnavatele a jeho puvodni stranka zrejme zanikla.
Zatial ODBCe posielam e-mailom, takze ked ma niekto zaujem, napiste mi na
sukr. adresu (mailto:fule(zv)ekosoft.sk) a ODBCe vam poslem.
L.
Jak na accessovskou databazi ???
[*] JIM Design <jim.design(zv)iol(tec)cz> - 18.7.2001 11:35:39
ahoj,
to zalezi na tom jakou mas verzi Delphi, zadny ODBC link nepotrebujes, pokud
se pripojujes pres OLEDB/ADO, ve kterem mas moznost volby pripojit se pomoci
connection stringu nebo UDL souboru (ukazka UDL souboru myslim na
www.glass(tec)cz/software/testUDL.zip)
Na cilenem pocitaci je ovsem dulezite zkontrolovat prip. doinstalovat MDAC
2.5 a >
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Hazuka Filip
Ahoj,
mam jeste takovy dotaz. Budu mit aplikaci, kterou budu distribuovat. Pouziji
na to accessovske tabulky. Pripojuji se k ni pres ODBC a asi i BDE tam
figuruje. Pouzivam instalshield express a kdyz se snazim udelat instalacky
tak se mi nedari vytvorit alias. Mozna existuje nejaky lepsi zpusob jak se
pripojovat k Accessovskym tabulkam ? Znate ho nekdo ? Poradte mi jak to
resit. Urcite budu mit potom problem pri instalaci i s nastavenim prislusne
cesty k tabulkam. Jestli znate nekdo zpusob, jak to resit, tak mi ho prosim
napiste.ODBCe - oprava chyby
[*] Lubo Fule <fule(zv)ekosoft.sk> - 18.7.2001 11:39:43
Opravil som v ODBCe jeden bug v TODBCQuery. Prejavoval sa tak, ze za istych
podmienok (RowsetSize = 1 and UseBookmarks = ubLocal) pri skoku na posledny
zaznam (TODBCQuery.Last) zostali v aktivnom buffer-i udaje zo zaznamu, na
ktorom stal kurzor pred volanim Last (dobre viditelne napr. v DBGrid-e). Kto
ma zaujem, moze sa ozvat...
L.
ODBCe - oprava chyby
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.7.2001 11:45:42
> Opravil som v ODBCe jeden bug v TODBCQuery.
> Kto ma zaujem, moze sa ozvat...
>
Ahoj,
ja sice ted nemam rozdelanou zadnou aplikaci s ODBCe, ale
nevylucuji, ze by se mohlo jeste hodit. Kde byva ke stazeni? Stara
adresa uz neplati a novou jsem nepostrehl.
Diky.
David Lebeda
VychodZapad slunce
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 18.7.2001 12:20:46
> Nevite nekdo jak vypocitat cas kdy zapada a vychazi slunce???
Pokud mate radi BASIC, tak muzete takto :-)
http://groups.google.com/groups?h=85f6e6aecf1a03e,8&rnum=8&ic=1&selm=332c08
6e.36251836%40news
10 ' Sunrise-Sunset
20 GOSUB 300
30 INPUT "Lat, Long (deg)";B5,L5
40 INPUT "Time zone (hrs)";H
50 L5=L5/360: Z0=H/24
60 GOSUB 1170: T=(J-2451545)+F
70 TT=T/36525+1: ' TT = centuries
80 ' from 1900.0
90 GOSUB 410: T=T+Z0
100 '
110 ' Get Sun's Position
120 GOSUB 910: A(1)=A5: D(1)=D5
130 T=T+1
140 GOSUB 910: A(2)=A5: D(2)=D5
150 IF A(2)<A(1) THEN A(2)=A(2)+P2
160 Z1=DR*90.833: ' Zenith dist.
170 S=SIN(B5*DR): C=COS(B5*DR)
180 Z=COS(Z1): M8=0: W8=0: PRINT
190 A0=A(1): D0=D(1)
200 DA=A(2)-A(1): DD=D(2)-D(1)
210 FOR C0=0 TO 23
220 P=(C0+1)/24
230 A2=A(1)+P*DA: D2=D(1)+P*DD
240 GOSUB 490
250 A0=A2: D0=D2: V0=V2
260 NEXT
270 GOSUB 820: ' Special msg?
280 END
290 '
300 ' Constants
310 DIM A(2),D(2)
320 P1=3.14159265: P2=2*P1
330 DR=P1/180: K1=15*DR*1.0027379
340 S$="Sunset at "
350 R$="Sunrise at "
360 M1$="No sunrise this date"
370 M2$="No sunset this date"
380 M3$="Sun down all day"
390 M4$="Sun up all day"
400 RETURN
410 ' LST at 0h zone time
420 T0=T/36525
430 S=24110.5+8640184.813*T0
440 S=S+86636.6*Z0+86400*L5
450 S=S/86400: S=S-INT(S)
460 T0=S*360*DR
470 RETURN
480 '
490 ' Test an hour for an event
500 L0=T0+C0*K1: L2=L0+K1
510 H0=L0-A0: H2=L2-A2
520 H1=(H2+H0)/2: ' Hour angle,
530 D1=(D2+D0)/2: ' declination,
540 ' at half hour
550 IF C0>0 THEN 570
560 V0=S*SIN(D0)+C*COS(D0)*COS(H0)-Z
570 V2=S*SIN(D2)+C*COS(D2)*COS(H2)-Z
580 IF SGN(V0)=SGN(V2) THEN 800
590 V1=S*SIN(D1)+C*COS(D1)*COS(H1)-Z
600 A=2*V2-4*V1+2*V0: B=4*V1-3*V0-V2
610 D=B*B-4*A*V0: IF D<0 THEN 800
620 D=SQR(D)
630 IF V0<0 AND V2>0 THEN PRINT R$;
640 IF V0<0 AND V2>0 THEN M8=1
650 IF V0>0 AND V2<0 THEN PRINT S$;
660 IF V0>0 AND V2<0 THEN W8=1
670 E=(-B+D)/(2*A)
680 IF E>1 OR E<0 THEN E=(-B-D)/(2*A)
690 T3=C0+E+1/120: ' Round off
700 H3=INT(T3): M3=INT((T3-H3)*60)
710 PRINT USING "##:##";H3;M3;
720 H7=H0+E*(H2-H0)
730 N7=-COS(D1)*SIN(H7)
740 D7=C*SIN(D1)-S*COS(D1)*COS(H7)
750 AZ=ATN(N7/D7)/DR
760 IF D7<0 THEN AZ=AZ+180
770 IF AZ<0 THEN AZ=AZ+360
780 IF AZ>360 THEN AZ=AZ-360
790 PRINT USING ", azimuth ###.#";AZ
800 RETURN
810 '
820 ' Special-message routine
830 IF M8=0 AND W8=0 THEN 870
840 IF M8=0 THEN PRINT M1$
850 IF W8=0 THEN PRINT M2$
860 GOTO 890
870 IF V2<0 THEN PRINT M3$
880 IF V2>0 THEN PRINT M4$
890 RETURN
900 '
910 ' Fundamental arguments
920 ' (Van Flandern &
930 ' Pulkkinen, 1979)
940 L=.779072+.00273790931*T
950 G=.993126+.0027377785*T
960 L=L-INT(L): G=G-INT(G)
970 L=L*P2: G=G*P2
980 V=.39785*SIN(L)
990 V=V-.01000*SIN(L-G)
1000 V=V+.00333*SIN(L+G)
1010 V=V-.00021*TT*SIN(L)
1020 U=1-.03349*COS(G)
1030 U=U-.00014*COS(2*L)
1040 U=U+.00008*COS(L)
1050 W=-.00010-.04129*SIN(2*L)
1060 W=W+.03211*SIN(G)
1070 W=W+.00104*SIN(2*L-G)
1080 W=W-.00035*SIN(2*L+G)
1090 W=W-.00008*TT*SIN(G)
1100 '
1110 ' Compute Sun's RA and Dec
1120 S=W/SQR(U-V*V)
1130 A5=L+ATN(S/SQR(1-S*S))
1140 S=V/SQR(U):D5=ATN(S/SQR(1-S*S))
1150 R5=1.00021*SQR(U)
1160 RETURN
1165 '
1170 ' Calendar --> JD
1180 INPUT "Year, Month, Day";Y,M,D
1190 G=1: IF Y<1583 THEN G=0
1200 D1=INT(D): F=D-D1-.5
1210 J=-INT(7*(INT((M+9)/12)+Y)/4)
1220 IF G=0 THEN 1260
1230 S=SGN(M-9): A=ABS(M-9)
1240 J3=INT(Y+S*INT(A/7))
1250 J3=-INT((INT(J3/100)+1)*3/4)
1260 J=J+INT(275*M/9)+D1+G*J3
1270 J=J+1721027+2*G+367*Y
1280 IF F>=0 THEN 1300
1290 F=F+1: J=J-1
1300 RETURN
1310 '
1320 ' This program by Roger W. Sinnott calculates the times of
sunrise
1330 ' and sunset on any date, accurate to the minute within several
1340 ' centuries of the present. It correctly describes what
happens in the
1350 ' arctic and antarctic regions, where the Sun may not rise or
set on
1360 ' a given date. Enter north latitudes positive, west
longitudes
1370 ' negative. For the time zone, enter the number of hours west
of
1380 ' Greenwich (e.g., 5 for EST, 4 for EDT). The calculation is
1390 ' discussed in Sky & Telescope for August 1994, page 84.
Re[4]: komponenta
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 18.7.2001 12:51:32
Hello Petr,
Wednesday, July 18, 2001, 12:21:44 AM, you wrote:
PV> From: "Raul Endymion" <raul(zv)raphael(tec)cz>
>> nojo jenomze tady se jedna o komponenty LMD (www.lmd.de). na jejich
>> webu jsem se docetl, ze pokud mate problemy s delphi mame si stahnout
>> novy balik (10Mb) coz jsem udelal, ale problem je porad stejny...
PV> Ahoj,
PV> no ono by to asi chtelo koupit verzi se zdrojaky. Jinak pouzivat neco takoveho
PV> bez zdrojaku je znacne problematicke, coz uz si asi sam poznal. To uz jsou
PV> lepsi zadne komponenty nez nejake bez zdrojaku.
PV> Petr Vones, amatersky programator
No jo, ale kdyz to prece distibuujou, tak by to melo fungovat ne ? Na
jejich webu jsem cetl, ze takovejhle balik davaj i k delpham 6, to
jako tam daj neco co nefunguje ? Potom by me zajimalo, jakym zpusobem
mam distribuovat sve komponenty (HTML Document Generator), kdyz nechci
davat zdrojaky ?
--
Best regards,
Raul mailto:raul(zv)raphael(tec)cz
ASP objekt a pristupova opravneni
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 18.7.2001 13:10:18
Vsechny predpoklady jsou OK, az na ten, ze Server.CreateObject muze otevirat
pouze "in-proc" servery. V tom je potiz pouze neprimo. Zjistil jsem, ze
pristupova prava jsou OK. Problem je v identite objektu (ctrvrta zalozka v
DCOMCNFG - vlastnosti objektu). Protoze objekt pouzivam i pro aplikaci v
Delphi, a potrebuji zarucit jedinou instanci, mam tam volbu nasledujici
uzivatel a samozrejme prislusny ucet, na ktery se ten objekt spousti.
Problem je nejspis v tom, ze ten internetovej ucet nepustej ty W2K na ten
ucet toho objektu. Kdyz jsem dal identitu objektu na spoustejici uzivatel
bylo vse OK. To pro mne znamena vytvorit jiny objekt pro IIS nez pro
Delphi-aplikaci. Tu udelam asi "in-proc", abych se zbavil toho DCOMCNFG,
jestli to teda tak je.
Ale i tak dik.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: "Jan �ebel�k" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 17, 2001 6:02 PM
Subject: Re: ASP objekt a pristupova opravneni
> Nicmene predpokladam, ze web server bezi na Windows (MS IIS).
> Pak pokud se nemylim, tak Server.CreateObject muze otevirat pouze
"in-proc" servery,
> tedy nikoli "out-of-process".
> Z tveho popisu jsem mel dojem, ze pres DCOMCNFG nastavujes prave
"out-of-process" server.
>Honza
Re[4]: komponenta
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.7.2001 13:20:34
Puvodni zprava, kterou napsal Raul Endymion dne 18 Jul 2001,:
> No jo, ale kdyz to prece distibuujou, tak by to melo fungovat ne ? Na
> jejich webu jsem cetl, ze takovejhle balik davaj i k delpham 6, to
Ty zdrojaky si muzes koupit.
> jako tam daj neco co nefunguje ? Potom by me zajimalo, jakym zpusobem
> mam distribuovat sve komponenty (HTML Document Generator), kdyz nechci
> davat zdrojaky ?
Musis si davat pozor, aby to jelo. A samozrejme spousta lidi si
komponenty bez zdrojaku vubec nekoupi (napriklad ja), at jiz to
je z duvodu studia tech komponent, pripadne opravy neceho, upravy
pro sve potreby ci ochrany investice v pripade, ze firma padne
a je potreba neco s tim udelat...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================ODBCe - oprava chyby
[*] Lubo Fule <fule(zv)ekosoft.sk> - 18.7.2001 13:41:17
> ja sice ted nemam rozdelanou zadnou aplikaci s ODBCe, ale
> nevylucuji, ze by se mohlo jeste hodit. Kde byva ke stazeni? Stara
> adresa uz neplati a novou jsem nepostrehl.
Momentalne zial nie je nkde na stiahnutie. Kto chce, poslem mail-om.
L.
OT: duplicita firiem
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 18.7.2001 13:45:04
Ja bych se spolehal ciste na to, ze kazda firma ma sve jednoznacne ICO
a duplicita tedy bude dana ve chvili, kdy se toto ICO bude v databazi
vyskytovat > 1.
select ICO, count(ICO) from Firma group by ICO having count(ICO) > 1
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
18.07.2001 "R�bert �ak":
> Neriesil ste niekto problem, ako zistit duplicitne zaznamy
> v databazi firiem ?
> struktura:
> nazov firmy
> ico - pre CR,SK
> ulica + �.p.
> PSC
> mesto
> stat
> Jednoducho by som to riesil cez SQL, ale potrebujem
> najst inteligentny algoritmus, ktory rozozna preklepy, rozne zapisy PSC atd.
> SELECT UNIQUE
> nazov
> mesto,
> ulica,
> psc,
> stat
> FROM firma
> Dufam, ze ma nieko nakopne.
> Robert Sak
> Magion spol. s r.o. tel./fax :0657/614 289
> Jiraskova 1284 e-mail: robert.sak(zv)magion(tec)cz
> 755 01 Vsetin www: http://www.magion(tec)cz
QR & SaveToFile
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.7.2001 13:51:28
Treba QuickReport.QRPrinter.Save(FileName);
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.7.2001 Vlastimil Zden�k:
> Zdravim!
> Prosil bych o radu (D5 Ent, NT 4.0, SQL 7.0, QR 3.07)
> Jak vyvolam udalost SaveToFile na QR bez Preview a tisku? Proste
> vyexportovat sestavu do soubor.xxx pri stisku tlacitka na formu ...multitasking v DOSu
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 18.7.2001 14:14:19
UZ DOST!!
To co popisujes NENI ANI TASKSWITCHING!
Taskswitching je kdyz:
- spustim jeden proces (A)
- pozastavim proces (A), spustim proces (B)
- a na zadost uzivatele (horka klavesa) stridave kdykoliv pozastavim
bezici proces a necham pokracovat beh druheho procesu,
tedy bezi vzdy jen jeden:
A(start)-B(start)-A(pokrac)-B(pokrac)-A(pokrac)-B(pokrac)....
Kterykoliv z bezicich procesu mohu i ukoncit.
(samozrejme by to mohlo byt i A-B-A-C-B-D-A...)
To, co ty popisujes (spusteni shellu), je obycejne spusteni procesu:
A(start)-B(start)=B(konec)-A(pokrac)-A(konec)
v tom pripade nelze procesy navzajem prepinat.
Precti si nejdriv nejakou literaturu o procesech v DOS,
nez sem zase napises nesmysly.
Tahle debata uz ztraci smysl...
### Hurricane napsal dne 17 Jul 01, v 23:15 :
> V tom pripade jsem se spatne vyjadril. Je to PRESNE tak, jak pises. Neni
> to multitasking, ale taskswitching.
>
> Hurricane
> ----- Original Message -----
>
> > > Navod nemam, ale zcela urcite vim, ze to jde. DosShell (podle knizky k
> > > DOSu by mel byt v distrubuci, ja ho tam ale nemam) umi prepinat tasky.
> > > Rada DOSovych programu ma v menu Exit to shell a po kliknuti se spusto
> > > prompt. Po napsani exit se znova obnovi predchozi program. Jak tohle
> > > vyresit by ses mohla docetl v archivu nejake konference, ktera ma k
> > > Pascalu a k DOSu blize.
> >
> > ALE TOHLE NEMA S MULTITASKINGEM NIC SPOLECNEHO!
> > To skutecne muze jen spustit novou kopii shellu
> > (command.com), ALE beh te puvodniho aplikace
> > se tim POZASTAVI, dokud se tento shell zase neukonci!
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Pomala proxy
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.7.2001 14:17:55
> > 1. zjistim si jestli vubec je neco ke cteni
> > 2. zjistim si, kolik bytu dat ceka na precteni
> > 3. prectu pouze zjisteny pocet dat
> > I kdyz pouzijes blokujici sockety, taktenhle postup ti zaruci, ze
> > nikde nebudes ani chvilicku blokovany...
>
> Tak tomuhle nejak nerozumim. Videl jsem Synapsi a tam je to snad z
> duvodu, aby se dal pouzit timeout, ne? Preci, kdyz vim, ze mam jeste
> prijmout nejaka data a zrovna zadna nejsou k dispozici, tak je mi
> uplne jedno, jestli cekam ve fci canread() nebo nekde jinde. Navic
> timeout muzu nastavit (Winsock 2) pomoci so_sndtimeo a so_rcvtimeo fci
> setsockopt(). Taky jsem nekde cetl, ze "peeking" [uziti
> ioctlsocket(.., fionread, ..) v fci waitingdata] neni vubec dobre a
> programator by se tomu mel radeji vyvarovat.
Nepochopils. Zkusim ti to vysvetlit z jineho konce:
Chces-li ze socketu precist co nejefektivneji prichozi data, a to tak, abys
pokud mozno volal co nejmenekrat Recv funkci a zaroven abys nezustal
trcet v cekani na dosud neprisla data, potrebujes vedet, kolik dat ceka na
vyzvednuti.
Kdyz to totiz vis, pripravis s take tomu odpovidajici velikost bufferu, a
nijak te netrapi jake se pouziva MTA, ci jestli mas tvuj pevne dany buffer
256bytu, 4 kilobyty, ci tak neco... Jestlize na tebe ceka na vyzvednuti
treba 64 kilo dat, tak je prectes jednim vrzem. (ano, pochopitelne zalezi
na nastaveni bufferu ve winsocku, jsou tam zadrhele ve W2k, atd...)
Zjistis-li si pocet cekajicih bytu dat pomoci funkce "ioctlsocket(..,
fionread, ..)", tak mas zaruceno, ze tenhle pocet dat prectes aniz by se
socket zablokoval. Tak pravi dokumentace.
Ovsem sam rikas, ze peeking pomoci teto funkce se nedoporucuje.
Vsimni si, ze to ale take nedelam! Tim se totiz rozumi to, ze cekas na
prichozi data neustalym kontrolovanim navratove hodnoty teto funkce. To
je hovadina a je to neefektivni. Proto je potreba tuto funkci zavolat az
tehdy, kdyz vis, z nejaka data prisly. K tomu prave slouzi ta moje funkce
CanRead.
Ano, mohl bych rovnou cekat ve funcki Recv, jenze to ti prave neumozni
pripravit si dopredu tak velky buffer jaky zrovna potrebujes. Uz chapes
proc to delam tak jak to delam? Reseni timeoutu je uz jen takove by-the-
way bonbonek na dortu. ;-)))
A ty timeouty... bohuzel ne na vsech systemech mas winsock2.. a
pokud bys byl jeste pozornejsi, tak i ty tve timeouty umi Synapse
pouzivat. ;-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Metrika slov, vzdalenost slov, podobnost slov
[*] <pawell.none(zv)atlas(tec)cz> - 18.7.2001 14:24:52
Ahoj,
prosim, mate nekdo k uvedenemu tematu nejakou literaturu, odkaz, zdrojak nebo cokoliv ceho bych se mohl chytit?
diky moc
Pawell
S�riov� p�enos do a z p��stroje
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.7.2001 14:42:40
Tak to mas asi to same co mam ja. :-)
1. Tedy, NEPOUZIVAT harware flow-control!
2. signal RTS ridi smer prevodniku. Je-li 1, vysila se, je-li 0, prijimaji se
data.
Tedy lze pracovat tak, ze normalne mas RTS na 0. Jakmile chces neco
odvysilat, nahod jej na 1, odvysilej data a hnedka pote RTS shod zpet na
0 a cti odpoved.
Pokud to chces pod Wn32, muzes to cele jeste zjednodusit. Pod win32
se totiz da seriovy port nastavit tak, ze samotne windows ti ten RTS
signal ridi samy! Takze si tak nastavis ten port a pak uz jen ctes a
zapisujes data jak je libo, nestaras se o to, windows se o prepinani
prevodniku pomoci signaluRTS postaraji samy.
(nastavi se to nejakym flagem v DCB strukture, ve ktere se nastavuji
parametry serioveho portu. Podivej se kdyztak na webu Synapse na
unitu SynaSer.pas, ke je to naimplementovane...)
L.
> O tom prevodniku 232/485 toho vim moc malo. Je to nejaky Tajwan typ IC
> - 485S a ma na sobe dva prepinace: prvni ma polohy TxOn/RxOn, T-RTS/
> R-RTS, T-RTS/RxOn (nastaveno na T-RTS/R-RTS) druhy ma polohy DCE, DTE
> a Moni (nastaveno na DCE)
>
> Funguje to s firemnim softwarem v polohach nastavenych viz vyse.
>
> Tak a ted jaky je vyznam signalu RTS, DTR atd?. Kdy by se mely
> prestavovat a na jake hodnoty? Co Timeouty, Flowcontrol atd? Prilis
> mnoho neznamych pro me ubohe ja.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
QR & SaveToFile
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 18.7.2001 14:50:50
My mame sice zdroje QR upraveny, ale myslim, ze nasledujici je
soucasti QR (zalezi na cilovem formatu):
Report.QRPrinter.Save(AFileName);
Report.ExportToFilter(TQRASCIIExportFilter.Create(AFileName));
Report.ExportToFilter(TQRCommaSeparatedFilter.Create(AFileName));
Report.ExportToFilter(TQRHTMLDocumentFilter.Create(AFileName));
Report.ExportToFilter(TQRXLSFilter.Create(AFileName));
Report.ExportToFilter(TQRWMFExportFilter.Create(AFileName));
Report.ExportToFilter(TQRWMFExportFilter.Create(AFileName));
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
18.07.2001 Vlastimil Zden�k:
> Zdravim!
> Prosil bych o radu (D5 Ent, NT 4.0, SQL 7.0, QR 3.07)
> Jak vyvolam udalost SaveToFile na QR bez Preview a tisku? Proste
> vyexportovat sestavu do soubor.xxx pri stisku tlacitka na formu ...
> Diky Vlasta
Delphi, C a Crtl
[*] Vladimir (Lupus) Pach <l_u_p_u_s(zv)centrum(tec)cz> - 18.7.2001 15:03:32
Dobry den
Z drivejsi doby: Pri pouziti uniti Crtl v Delphi6 nastane chyba
L2498
Posledni reakce:
>> 1) co je chyba L2498.
>jedna se o interni chybu linkeru. Projevuje se totez i v D5.01 ?
>Petr Vones, amatersky programator
V Delphi5 jsem tuto unitu nenasel. Pro uplnost v Delphi6 je pouze
dcu.
Da se jinak zaradit *.obj do Delphi, tak aby to bylo soucasti
vysledku (prilinkovano). Probjem je v tom, ze *.obj neni
slinkovano a v C se bez runtimu neobejdu, no a linker delphi po
mne bude chtit jeho funkce, ktere mu budou samozrejmne chyby.
Diky za pomoc
Vladimir (Lupus) Pach
-----
Profesion�lov� sv�tov�ho skateboardingu
na http://0g(tec)cz/0107/mystic_sk8_cup
OT: "rozdvojka" na port
[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 18.7.2001 15:14:12
Ale zato modem na paralelnim uz ano, ale taky se mozna Frankie
prepsal... Jedna moznost je rucni prepinac portu - normal. mechanickej
prepinac. Pro dve zarizeni stoji snad do dvou set.
Dan
> > Kamarad chce koupit scanner, bohuzel vsak nema zadne volne porty. Ma
> > zakladni desku, kde neni USB port. Zajimalo by mne, zda existuje
nejaka
> > "rozdvojka", ktera by umoznila prepinat mezi obema zarizenimi
(modem,
> > skener) nebo zda musi vzdy oddelavat a pridelavat kabely. Obe
zarizeni jsou
> > plug&play takze by to melo fungovat.
>
> Prosimte, co je to za scanner, ze je na seriovy port? Ja jsem tedy
> uz videl leccos, ale scanner na seriovem portu ne.
>
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.256 / Virov� b�ze: 129 - datum vyd�n�: 31.5.2001
TDBGrid and selected
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.7.2001 15:21:14
Taky je resenim pretypovat TDBGrid na TStringGrid a informaci zjistit
z vlastnosti Row a Col. tim zjistis na kolikatem radku a sloupci
stojis.
Radek := TStringGrid(DBGrid).Row;
Ale pokud chces udaje z konkretni vety v tabulce, tak tam se dostanes
pres dataSource
Jmeno := DBGrid.Datasurce.Dataset.FieldByname('Jmeno').AsString;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.7.2001 Martin Bab�k:
> Zdravim! Jak zjistim, ze uzivatel vybral nejaky zaznam z TDBGrid (napojeny pres SP), kdyz mam mutliselect nastaven na false a SelectedRows nefunguje? Diky
TDBGrid and selected
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 18.7.2001 15:34:12
Spis bych potreboval zjistit, ktery record je vybrany a po reaktivaci se na nej znovu postavit. Diky
M&B
>>> "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz> 07/18 3:21 >>>
Taky je resenim pretypovat TDBGrid na TStringGrid a informaci zjistit
z vlastnosti Row a Col. tim zjistis na kolikatem radku a sloupci
stojis.
Radek := TStringGrid(DBGrid).Row;
Ale pokud chces udaje z konkretni vety v tabulce, tak tam se dostanes
pres dataSource
Jmeno := DBGrid.Datasurce.Dataset.FieldByname('Jmeno').AsString;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.7.2001 Martin Bab?k:
> Zdravim! Jak zjistim, ze uzivatel vybral nejaky zaznam z TDBGrid (napojeny pres SP), kdyz mam mutliselect nastaven na false a SelectedRows nefunguje? Diky
IB6 a IBConsole
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.7.2001 15:46:30
Zdravim
muzete mi nekdo poradit jestli IB6.01 verze classic by mela fungovat s
IBConsole ? me to hlasi ze to neni podporovno v teto verzi IB. Nevite zda je
na tom Firebird classic lip ?
dik
Milos
OT: duplicita firiem
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 18.7.2001 15:48:00
> Ja bych se spolehal ciste na to, ze kazda firma ma sve jednoznacne ICO
> a duplicita tedy bude dana ve chvili, kdy se toto ICO bude v databazi
> vyskytovat > 1.
Pokud se nekdo neuklepne pri zadavani, ze ? ;-)
Kdyz budu brat v potaz to, ze se nejaka ucetni behem patecniho odpoledne
muze pri zadavani nove firmy uklepnout v jakemkoliv udaji, nebudu nikdy
schopen na 100% zjistit duplicity. Snad leda pouzit full-text index a hledat
to pomoci CONTAINS, NEAR apod., ale i tak je to prace pro vraha.
Nebo zamestnat nejakyho cernocha :)
Milan
Metrika slov, vzdalenost slov, podobnost slov
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 18.7.2001 16:02:36
Prednasky na matfyzu o Dokumentografickych systemech
http://www.ms.mff.cuni(tec)cz/~kopecky/dis/, konktretne v 9. kapitole.
Honza +
> -----Original Message-----
> From: pawell.none(zv)atlas(tec)cz [mailto:pawell.none(zv)atlas(tec)cz]
> Sent: Wednesday, July 18, 2001 2:25 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Metrika slov, vzdalenost slov, podobnost slov
>
>
> Ahoj,
> prosim, mate nekdo k uvedenemu tematu nejakou literaturu,
> odkaz, zdrojak nebo cokoliv ceho bych se mohl chytit?
>
> diky moc
>
> Pawell
> OT: duplicita firiem
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 18.7.2001 16:03:09
> Ja bych se spolehal ciste na to, ze kazda firma ma sve jednoznacne ICO
> a duplicita tedy bude dana ve chvili, kdy se toto ICO bude v databazi
> vyskytovat > 1.
Tedy pokud mi zalezi na adresach, cislech uctu a podobne, tak
bych na ICO jako na jednoznacnou identifikaci nespolehal. ICO
sice identifikuje firmu jako pravni subjekt ale ne napriklad jeji
jednotlive pobocky, zavody atd ktere nemaji vlastni pravni
subjektivitu. Takze napriklad banky, pojistovny, plynarenske,
vodarenske a jine distribucni firmy pusobici na celem uzemi maji
jedine ICO. Takze jde o to, jestli mi staci vedet ze treba VcVaK
maji generalni reditelstvi v Hradci Kralove nebo me zajima take
adresa zavodu v Pardubicich nebo v Chrudimi.
Z.Kalhous
TDBGrid and selected
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 18.7.2001 16:21:55
Dik. Jiz jsem to vyresil pomoci Bookmark, clovek nesmi zase tak slepe verit helpu, dle ktereho to udajne nefunguje pri not multiselect.
M&B
>>> "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz> 07/18 3:21 >>>
Taky je resenim pretypovat TDBGrid na TStringGrid a informaci zjistit
z vlastnosti Row a Col. tim zjistis na kolikatem radku a sloupci
stojis.
Radek := TStringGrid(DBGrid).Row;
Ale pokud chces udaje z konkretni vety v tabulce, tak tam se dostanes
pres dataSource
Jmeno := DBGrid.Datasurce.Dataset.FieldByname('Jmeno').AsString;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.7.2001 Martin Bab?k:
> Zdravim! Jak zjistim, ze uzivatel vybral nejaky zaznam z TDBGrid (napojeny pres SP), kdyz mam mutliselect nastaven na false a SelectedRows nefunguje? Diky
Re[6]: komponenta
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 18.7.2001 17:02:09
Dobr� den,
18. �ervence 2001, 13:20:34, napsal jste:
Takze abych tomu rozumel, LMD komponents special edition for delphi 6
je pouze BIGDEMO.exe a potom dalsich 8Mb dat, ktera jsou vlastne k
nicemu ? Oficialne dodavany k delpham 6 v sekci special for d6, to je
fakt uzasny.. A borlandu nejak uslo ze to vlastne nefunguje ?
PZ> Puvodni zprava, kterou napsal Raul Endymion dne 18 Jul 2001,:
>> No jo, ale kdyz to prece distibuujou, tak by to melo fungovat ne ? Na
>> jejich webu jsem cetl, ze takovejhle balik davaj i k delpham 6, to
PZ> Ty zdrojaky si muzes koupit.
>> jako tam daj neco co nefunguje ? Potom by me zajimalo, jakym zpusobem
>> mam distribuovat sve komponenty (HTML Document Generator), kdyz nechci
>> davat zdrojaky ?
PZ> Musis si davat pozor, aby to jelo. A samozrejme spousta lidi si
PZ> komponenty bez zdrojaku vubec nekoupi (napriklad ja), at jiz to
PZ> je z duvodu studia tech komponent, pripadne opravy neceho, upravy
PZ> pro sve potreby ci ochrany investice v pripade, ze firma padne
PZ> a je potreba neco s tim udelat...
PZ> S pozdravem
PZ> Petr Zahradnik, pocitacovy expert
PZ> ============================================================
PZ> Petr Zahradnik, Computer Laboratory
PZ> Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
PZ> Telefony: 047-5500610, 047-5501627, 0602-409601
PZ> Fax: 047-5511338
PZ> WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
PZ> E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
PZ> ICQ: 21215917
PZ> ============================================================
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
problem s fonty v TDBRichEdit
[*] <va.sykora(zv)atlas(tec)cz> - 18.7.2001 17:13:20
dobry den,
mam velmi zvlastni problem s komponentou TDBRichEdit - komponenta je napojena pres IBTable na blob v DB. pokud, ulozim uplne "cisty" (bez formatovani) text do DB, komponenta jej zobrazi ve fontu Tahoma, ale na nekterych mistech ve fontu SimSun se zmenenou velikosti! pokud se podivam na obsah blobu (utilitou EMS QuickDesk) jako na prosty text, nejsou kolem "kritickych mist" zadne dalsi znaky, ktere by zmenu fontu zpusobily. timto zpusobem mi funguji vsechny komp. odvozene od TCustomRichEdit - neni chyba prave tam?
v. sykora multitasking v DOSu
[*] verner(zv)cenop(tec)cz - 18.7.2001 17:29:12
odpov��OT: RE: multitasking v DOSu
[*] Jakub VERNER <verner(zv)cenop(tec)cz> - 18.7.2001 18:01:43
Omlouvam se vsem prihlasenym za za podivnou "odpoved". Lehce se nam zblaznil
mailserver.
J.V.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of verner(zv)cenop(tec)cz
Sent: Wednesday, July 18, 2001 5:29 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: multitasking v DOSu
odpov��Re[6]: komponenta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.7.2001 18:31:05
From: "Raul Endymion" <raul(zv)raphael(tec)cz>
> Takze abych tomu rozumel, LMD komponents special edition for delphi 6
> je pouze BIGDEMO.exe a potom dalsich 8Mb dat, ktera jsou vlastne k
> nicemu ? Oficialne dodavany k delpham 6 v sekci special for d6, to je
> fakt uzasny.. A borlandu nejak uslo ze to vlastne nefunguje ?
Ahoj,
Za funkcnost komponent na Companion CD odpovida jejich vyrobce. V pripade LMD
maji na webu ke stazeni opravu: http://www.lmdsupport.com/downloads
Petr Vones, amatersky programator
Dotazy SQL
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 18.7.2001 18:55:41
Potreboval bych poradit s dotazy. Mam dve tabulky:
Osoby
- ID
- Jmeno atd.
Funkce
- ID
- Osoby_ID (z tabulky Osoby)
- Nazev
- Stupen - Integer
- Datum - Date
Potrebuji sestavit dotazy, ktery mi zobrazi osoby a u kazde
1. aktualni funkci, t.j. funkci s poslednim datumem
2. nejvyssi zastavanou funkci, t.j. funkci s nejvetsim stupnem
Dekuji
Martin Ben
PS.: Momentary Lapse of Reason
None
[*] Jirka Skladal <jirka.skladal(zv)seznam(tec)cz> - 18.7.2001 19:43:24
Ahoj lidicky.
Tak jsem se pokusil napsat User Definition Function v interbase a narazil
jsem na nezdar.
Pomozte me privest na spravnou cestu. Predem dik.
1. Vytvoril jsem DLL
2. Ulozil jsem ji do spravneho adresare
3. deklaroval jsem: DECLARE EXTERNAL FUNCTION v IB
4. zkusil jsem SQL a vratilo mi to hlouposti
Muj kod:
Dll:
library ib_ais;
uses
SysUtils,
Classes,
UFunc in 'UFunc.pas';
exports aisAND; // jednoducha logicka fce AND {(ais je muj prefix)}
{$R *.RES}
begin
end.
UFunc.pas:
unit UFunc;
interface
function aisAND(aPar1: integer; aPar2: integer): integer; stdcall;
export;
implementation
function aisAND(aPar1: integer; aPar2: integer): integer;
begin
aisAND := (aPar1 and aPar2);
end;
end.
DECLARE EXTERNAL FUNCTION
DECLARE EXTERNAL FUNCTION aisAND
INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'aisAND' MODULE_NAME 'ib_ais';
I Testoval jsem to na takoveto tabulce:
Name: table1 fields: pole1, pole2
Values:
pole1 pole2
2 1
2 2
4 3
select aisAND (pole1, pole2) from table1
A vratilo mi to:
27128580
27128580
27128580
?????
A to je pekna blbost, takze nevim kde mam chybu. :-(
Dikas za radu.
UDF v InterBase
[*] Jirka Skladal <jirka.skladal(zv)seznam(tec)cz> - 18.7.2001 19:43:53
Ahoj lidicky.
Tak jsem se pokusil napsat User Definition Function v interbase a narazil
jsem na nezdar.
Pomozte me privest na spravnou cestu. Predem dik.
1. Vytvoril jsem DLL
2. Ulozil jsem ji do spravneho adresare
3. deklaroval jsem: DECLARE EXTERNAL FUNCTION v IB
4. zkusil jsem SQL a vratilo mi to hlouposti
Muj kod:
Dll:
library ib_ais;
uses
SysUtils,
Classes,
UFunc in 'UFunc.pas';
exports aisAND; // jednoducha logicka fce AND {(ais je muj prefix)}
{$R *.RES}
begin
end.
UFunc.pas:
unit UFunc;
interface
function aisAND(aPar1: integer; aPar2: integer): integer; stdcall;
export;
implementation
function aisAND(aPar1: integer; aPar2: integer): integer;
begin
aisAND := (aPar1 and aPar2);
end;
end.
DECLARE EXTERNAL FUNCTION
DECLARE EXTERNAL FUNCTION aisAND
INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'aisAND' MODULE_NAME 'ib_ais';
I Testoval jsem to na takoveto tabulce:
Name: table1 fields: pole1, pole2
Values:
pole1 pole2
2 1
2 2
4 3
select aisAND (pole1, pole2) from table1
A vratilo mi to:
27128580
27128580
27128580
?????
A to je pekna blbost, takze nevim kde mam chybu. :-(
Dikas za radu.
sada komponent pro skin aplinaci
[*] Milan ��ek - 18.7.2001 20:03:18
ahoj, chci se zeptat: nevite nekdo o nejake free kolekci komponent pro
tvorbu skinovatelne aplikace. Jde mi hlavne oto, aby tam byli alespon
standardni VCL komponenty, na ktere je mozne aplikovat obrazky (skiny) -
minimalne Buton a Checkbox, pokud mozno ListView,TreView...
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Canvas does not allow drawing?
[*] Milan ��ek - 18.7.2001 20:03:22
Pouzivam komponentu pro update aplikace z internetu. Tato chyba se zacne
projevovat, pokud povolim update ve vlastnim threadu. Vetsinou se to
projevi, kdyz prave probyhajici update stornuju a pak ho spustim rucne
znova. Vubec nevim, kam se zamerit :(
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Re[8]: komponenta
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 18.7.2001 21:36:42
PV> From: "Raul Endymion" <raul(zv)raphael(tec)cz>
>> Takze abych tomu rozumel, LMD komponents special edition for delphi 6
>> je pouze BIGDEMO.exe a potom dalsich 8Mb dat, ktera jsou vlastne k
>> nicemu ? Oficialne dodavany k delpham 6 v sekci special for d6, to je
>> fakt uzasny.. A borlandu nejak uslo ze to vlastne nefunguje ?
PV> Ahoj,
PV> Za funkcnost komponent na Companion CD odpovida jejich vyrobce. V pripade LMD
PV> maji na webu ke stazeni opravu: http://www.lmdsupport.com/downloads
PV> Petr Vones, amatersky programator
tu uz sem stahnul ale jsem na tom stejne...
porad tam ty zdrojaky nemam a porad je to chce, byt mam u package
nastaveno compilovat pri potrebe a ne allways compile..
Raul mailto:raul(zv)raphael(tec)cz
doporucena literatura
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 19.7.2001 02:23:30
Ja sam mam tyto knihy v cestine:
"Delphi v kostce" - Technicka literatura BEN
- pro Delphi 1, ale udajne uz maji novou verzi pro Delphi 5
"Delphi 4 - kompletni kapesni pruvodce" - Grada
"Delphi 4 - podrobny pruvodce programatora" - Grada
"Delphi - pruvodce vyvojare", dily II, III, IV - UNIS publishing
- dily I, V, VI snad jeste nevydaly (alespon o tom nevim)
"Delphi v kostce" - Computer Press
"Prechazime na Delphi 5" - Computer Press
Vetsinu jsem sehnal na www.vltava(tec)cz
Martin Ben
Dotazy SQL
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 19.7.2001 02:52:11
Situace se trochu zkomlikovala pridanim jeste jedne tabulky, ale uz jsem ji
s pomoci kamose vyresil.
Dekuji
OT: duplicita firiem
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 19.7.2001 06:16:33
To ano, ovsem neni problem po zadani ICO toto zkontrolovat a v pripade
duplicity mu to pouze oznamit nebo rovnou ukazat tyto duplicitni
zaznamy. Pak ma programator jistotu, ze udelal temer maximum k
potlaceni duplicity. Uzvatel tim bude upozornen na moznou chybu, ale
pritom zalezi jen na nem, co udela.
Pokud bude uzivatel obzvlast natvrdly, tak stejne nic nepomuze a
dodelavat nejake slozite porovnavaci algoritmy je pak zbytecny prepich.
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
18.07.2001 Kalhous Zdenek:
>> Ja bych se spolehal ciste na to, ze kazda firma ma sve jednoznacne ICO
>> a duplicita tedy bude dana ve chvili, kdy se toto ICO bude v databazi
>> vyskytovat > 1.
> Tedy pokud mi zalezi na adresach, cislech uctu a podobne, tak
> bych na ICO jako na jednoznacnou identifikaci nespolehal. ICO
> sice identifikuje firmu jako pravni subjekt ale ne napriklad jeji
> jednotlive pobocky, zavody atd ktere nemaji vlastni pravni
> subjektivitu. Takze napriklad banky, pojistovny, plynarenske,
> vodarenske a jine distribucni firmy pusobici na celem uzemi maji
> jedine ICO. Takze jde o to, jestli mi staci vedet ze treba VcVaK
> maji generalni reditelstvi v Hradci Kralove nebo me zajima take
> adresa zavodu v Pardubicich nebo v Chrudimi.
> Z.Kalhous
TDBGrid and selected
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.7.2001 06:54:43
Kdybys hned v puvodnim dotazu specifikoval, co potrebujes, urcite by
ti nekdo odpovedel hned :-)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.7.2001 Martin Bab�k:
> Spis bych potreboval zjistit, ktery record je vybrany a po reaktivaci se na nej znovu postavit. Diky
Tvuj puvodni tvuj dotaz:
>> Zdravim! Jak zjistim, ze uzivatel vybral nejaky zaznam z TDBGrid (napojeny pres SP), kdyz mam mutliselect nastaven na false a SelectedRows nefunguje? Diky
UDF v InterBase
[*] DARVIS konference Delphi <delphi(zv)darvis(tec)cz> - 19.7.2001 07:13:29
Vsechny parametry jsou do UDF predavany odkazem.
Tudiz hlavicka funkce musi vypadat takto
function aisAND(var aPar1, aPar2: integer): integer; stdcall;export;
nebo
function aisAND(aPar1, aPar2: PInt): integer; stdcall;export;
(a nasledne pouzit aPar1^)
Ostatni je OK
> -----P�vodn� zpr�va-----
> Od: Jirka Skladal [SMTP:jirka.skladal(zv)seznam(tec)cz]
> Odesl�no: 18. �ervence 2001 19:44
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: UDF v InterBase
>
>
>
> function aisAND(aPar1: integer; aPar2: integer): integer; stdcall;
> export;
> implementation
>
Vlada Tucan
DARVIS spol. s r.o.
tel.,fax: +420 312 621939
> D5 nebo D6?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.7.2001 07:20:21
Jeden priklad. Mam textovy editor. Nactu text. Dam ukoncit. Vse je OK.
Pokud predtim zavolam akci, ktera zobrazi SaveDialog, ten stornuji -
cili v programu nic nedelam - klasicka konstrukce
if Savedialog.Execute then begin
ulozeni souboru
end;
a program ukoncim, padne to na Access Violation na adrese xxxxx
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
16.7.2001 Petr Vones:
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>> Samozrejme neni vylouceno, ze je to ma chyba, ale ta by se musela
>> projevit i v D5.
> Proc ? Pokud nekde chybne prepisujes/ctes pamet, tak se to muze projevit az
> zmenou kodu VCL/RTL, tedy prechodem na D6.sada komponent pro skin aplinaci
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 19.7.2001 08:00:30
> ahoj, chci se zeptat: nevite nekdo o nejake free kolekci komponent pro
> tvorbu skinovatelne aplikace. Jde mi hlavne oto, aby tam byli alespon
Podivej se na www.lmd.de
Soucasti baliku jsou i skinovatelna tlacitka, formulare atp.....
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Citanie zo suborov
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 19.7.2001 08:07:37
Priamo od autora je dane toto:
coons
N=1 sh1 10;
M=N shr 1;
type
PartRec = Record
ProgCode: string[10];
atd..
Hx, Hy:array[0..M] of single;
end;
To znamena ze dlzky jednotlivych premennych su dane pevne.
Takto zapisane som to skusal v Pascale 5.5, neslo to, iba ked som mierne
poupravil dlzky, tak to nacitalo niektore hodnoty, ale hrat sa s tym to nema
zmysel. Ako dalej?
Zaujimalo by ma co znamenaju prve tri riadky. Nema tam byt nahodou namiesto
"coons" napisane "const" a su to konstanty?
Poradte este kto viete.
Kto by bol taky dobry a chcel by, tak mu mozem poslat aj nejaky ten subor
nech sa na to pozrie. :))
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of dsedlacek(zv)volny(tec)cz
Sent: Tuesday, July 17, 2001 3:45 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Citanie zo suborov
-- P�vodn� zpr�va --
Mam problem s precitanim suborov, ktore boli zapisovane cez program, ktory
bol vytvoreny v jazyku Pascal. Program ich urcite zapisal cez record.
Aky je rozdiel v tom ked pouzivam Pascal 5.5, Pascal 6.0, alebo Delphi 5.0?
Maju rozlicne zapisy?
Rekl bych, ze tam muze byt problem v internim formatu jednotlivych datovych
typu. Napr v pascalu 5.5 i 6.0 i 7.0 je integer na 2 byty,
real na 6 double na 8 ... . Navic format ulozeni je predem dan (u float
formatu mantisa, zaklad ...). Pri zapisu do souboru se to zapisuje
naskladane jedno za druhym, tak je je to v pameti. V Delphi jsou implicitni
rozsahy vesti. Zkus ten record v deplhi deklarovat tak, aby to odpovitalo
rozsahem puvodnimu paskalu (napr Integer v pascalu myslim odpovida ShortInt
v Delphi).
zdravi Dusan.
Pouze cisla v TEditu
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 19.7.2001 08:10:39
Ahoj
Nevi nekdo jak nejjednoduseji upravit TEdit (TMaskEdit) aby mi umoznoval
zapsat pouze cisla? napr.: "123", "-123", "123,45" atd.
TMaskEdit mi nevyhovuje protoze tam doplnuje "_".
Predem diky za nakopnuti
Jirka
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lan#kroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
LMD-Tools 5.00.10 Final
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 19.7.2001 08:21:47
Pani prosim kto ma stiahnutu presne tuto verziu LMD-Tools ???
Prosim ozvite sa mi.
Zohnal som si k nemu licenciu :)
S pozdravom Robo
MinDouble
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 19.7.2001 08:42:48
Ahoj
Kdyz priradim do promene, ktera je typu Double, hodnotu MinDouble
tak mi po porovnani te promene s MinDouble vyjde False.
var
d : Double;
begin
d := MinDouble;
// (d = MinDouble) - tady mi to rekne False
......
Vyresit se to da jednoduse. Jsem ale zvedavej proc tomu tak je.
Jirka
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lan#kroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
jak zjistim adresar program files?
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 19.7.2001 09:19:04
Ahoj,
nevite nekdo jak zjistim adresar program files pomoci API? Potrebuju,
aby to chodilo na W95 i NT.
Zkousel jsem fci SHGetSpecialFolderLocation, ovsem podle helpu neumi
vratit zrovna program files, ktery nutne potrebuju.
Ales
None
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 19.7.2001 09:25:27
> DECLARE EXTERNAL FUNCTION
>
> DECLARE EXTERNAL FUNCTION aisAND
> INTEGER, INTEGER
> RETURNS INTEGER BY VALUE
RETURNS INTEGER
Me to funguje pouze s timhle.
Jirka
QR & SaveToFile - 2
[*] Vlastimil Zden�k <gestore(zv)wo(tec)cz> - 19.7.2001 08:46:06
QRPrinter sice vytvori soubor, ale: az po priview a dokaze pouze soubor v
QRP formatu. Mam na QR pouzitu komponentu PsQRFilters, ktera dokaze ulozit
soubor v ruznym formatu (vedle pripon QRP prida do save dialogu dalsi).
Pokud pouziji QuickReport.QRPrinter.Save(FileName), tak to sice soubor *.JPG
vytvori, ale nelze nicim otevrit. Na sestave se tiskne i logo firmy, takze
veskere pokusy o ulozeni do formatu doc,html,... padly (zkousene exportni
komponenty to proste nedokazaly). Pokud by jste vedeli o nejake sikovne
komponente, ktera PRESNE ulozi sestavu tak jak je (i s image), vyresilo by
to tento problem ouplne.
Diky Vlasta
Treba QuickReport.QRPrinter.Save(FileName);
------
ing. Jan Fiala
18.7.2001 Vlastimil Zden�k:
> Zdravim!
> Prosil bych o radu (D5 Ent, NT 4.0, SQL 7.0, QR 3.07)
> Jak vyvolam udalost SaveToFile na QR bez Preview a tisku? Proste
> vyexportovat sestavu do soubor.xxx pri stisku tlacitka na formu ...
jak zjistim adresar program files?
[*] Michal Sefcik <mikese(zv)benefitcz(tec)cz> - 19.7.2001 09:46:55
>nevite nekdo jak zjistim adresar program files pomoci API? Potrebuju,
>aby to chodilo na W95 i NT.
>Zkousel jsem fci SHGetSpecialFolderLocation, ovsem podle helpu neumi
>vratit zrovna program files, ktery nutne potrebuju.
Zkus toto:
type
// specifikace konkretniho Windows adresare }
TRegWinDirectory = (wdWindowsDir, wdProgramFiles, wdTemp, wdDesktop,
wdStartMenu,
wdProgramsMenu, wdStartup, wdDocuments);
function GetRegWinDir(ADir: TRegWinDirectory): String;
const RegSection = 'Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell
Folders';
var
WinDirLength: Integer;
Buff: array[0..MAX_PATH] of Char;
begin
case ADir of
wdWindowsDir :
begin
WinDirLength := MAX_PATH;
SetLength(Result, WinDirLength);
WinDirLength := GetWindowsDirectory(PChar(Result), WinDirLength);
SetLength(Result, WinDirLength);
end;
wdProgramFiles:
Result := ReadRootRegValue(HKEY_LOCAL_MACHINE,
'\Software\Microsoft\Windows\CurrentVersion', 'ProgramFilesDir','');
wdTemp :
begin
SetString(Result, Buff, Windows.GetTempPath(SizeOf(Buff), Buff));
Result := ExcludeTrailingBackslash(Result);
end;
wdDesktop : Result := ReadRootRegValue(HKEY_CURRENT_USER,
RegSection, 'Desktop','');
wdStartMenu : Result := ReadRootRegValue(HKEY_CURRENT_USER,
RegSection, 'Start Menu','');
wdStartup : Result := ReadrootRegValue(HKEY_CURRENT_USER,
RegSection, 'Startup','');
wdProgramsMenu : Result := ReadRootRegValue(HKEY_CURRENT_USER,
RegSection, 'Programs','');
wdDocuments : Result := ReadRootRegValue(HKEY_CURRENT_USER,
RegSection, 'Personal','');
else
Result := '';
end;
end;
Michal Sefcik
Benefit CZ, s.r.o.
TListView
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 19.7.2001 10:01:11
Ahoj,
mam takovy problem. Mam TListView a jeho styl je VsIcon. Chci tam zobrazovat
obrazky vyrobku, ale na zaklade toho, co je prave rozbaleno vedle v
TreeViewu. Jde mi ale o to, ze kdyz dam ty obrazky do komponenty ImageList,
tak mi za prve strasne nabyde Exe soubor a za druhe, nebudu je moci menit.
Ja bych potreboval dat je k aplikaci nekam do podadresare a z neho je
nacitat primo cestou. Jak to mam udelat ?
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================Porad prob s Thread
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 19.7.2001 10:03:46
Cau,
ted uz sem se v tom dokonale zamotal. Potreboval bych napsat vlakno ve kterem bude probihat komunikace se seriovymi zarizenimi, ktera bude nezavisla na hlavnim vlakne. Problem je v tom, ze komunikuji az s 11 seriovymi zarizenimi a pokud to bezi v hlavnim vlakne tak se mi stava ze aplikace pri urcitych operacich zustane stat a zpracovava data ze zarizeni. Proto si myslim ze to bude nejlepsi v ramci nezavysleho vlakna. 9zarizeni jsou scannery, ktere ctou po vterine carovy kod. 1zarizeni je pro komunikace se troje a posledni je zapis do serioveho portu na tiskarnu. Chtel bych udelat vlakno na scannery, pro zarizeni a tisk provadet v ramci hlavniho vlakna. Napsal sem si maly testovaci programe ale uz v tom mam takovej zmatek ze vubec nevim zda je to dobre a proc mi nezpracuje zpravu, kterou mu poslu.
const
minScanPeriod = 5;
bManualReset = TRUE;
bNonSignaled = FALSE;
bSignaled = not bNonSignaled;
bWaitSingle = FALSE;
bWaitAll = not bWaitSingle;
WM_ActEvn = WM_USER + 1;
type
eScanEvents = (eteKill,etePosli);
tScanEvents = set of eScanEvents;
ThrScan = class(TThread)
private
CPort : TComPort;
FEvents: array[eScanEvents] of tHandle;
procedure ComPLCRxFlag(Sender: TObject);
function Poslat(s: String): Boolean;
{ Private declarations }
protected
procedure NastavEvn(var msg : TMessage); message WM_ActEvn;
public
ThrHandle: THandle;
constructor Create(CreateSuspended:boolean);
destructor Destroy; override;
procedure Execute; override;
end;
type
TForm1 = class(TForm)
ListBox1: TListBox;
BBPust: TBitBtn;
BBZastav: TBitBtn;
procedure BBPustClick(Sender: TObject);
procedure BBZastavClick(Sender: TObject);
private
Scan: ThrScan;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Znak : String;
implementation
{$R *.DFM}{Thread implementation}
constructor ThrScan.Create(CreateSuspended:boolean);
var
Idx: eScanEvents;
begin
inherited Create(True);
for Idx:=low(FEvents) to high(FEvents) do
FEvents[Idx] := CreateEvent(nil,bManualReset,bNonSignaled,nil);
end;
destructor ThrScan.Destroy;
var
Idx: eScanEvents;
begin
for Idx:=low(FEvents) to high(FEvents) do
if FEvents[Idx]<>0 then
CloseHandle(FEvents[Idx]);
inherited Destroy;
end;
procedure ThrScan.Execute;
var
WxRes: dword;
begin
{Vytvoreni komponent}
CPort:= TComPort.Create(CPort);
{Nastaveni komponent}
CPort.Port:= 'COM1';
CPort.EventChar:= Char(21);
CPort.OnRxFlag:= ComPLCRxFlag;
CPort.SyncMethod:= smNone;
CPort.Open;
{Udrzeni threadu v behu}
try
repeat
WxRes := WaitForMultipleObjects(ord(high(FEvents))-ord(low(FEvents))+1,addr(FEvents),bWaitSingle,minScanPeriod);
case WxRes of
WAIT_FAILED:
begin
end;
// tady budes delat periodickou akci s periodou minScanPeriod
WAIT_TIMEOUT:
begin
Sleep(minScanPeriod);
end;
// tadu si ukoncis thread
WAIT_OBJECT_0+ord(eteKill):
begin
ResetEvent(FEvents[eteKill]);
Break;
end;
WAIT_OBJECT_0+ord(etePosli):
begin
Poslat(Znak);
ResetEvent(FEvents[etePosli]);
end;
WAIT_ABANDONED_0..WAIT_ABANDONED_0+ord(high(FEvents)):
// raise xInternal.CreateFmt(sx_ThreadAbandoned,[WxRes-WAIT_ABANDONED_0])
;
else
;
end;
until FALSE;
except
on E:Exception do
;//Write(AData.ErrorLog, DateTimeToStr(Now) + ' ' + E.Message);
end;
end;
procedure ThrScan.ComPLCRxFlag(Sender: TObject);
var
Data: String;
begin
CPort.ReadStr(Data, CPort.InputCount);
Form1.ListBox1.Items.Add(Data + #13#10);
end;
function ThrScan.Poslat(s: String): Boolean;
begin
result:= True;
try
CPort.WriteStr(s);
except
result:= False;
end;
end;
procedure ThrScan.NastavEvn(var msg : TMessage);
begin
ShowMessage('OK');
SetEvent(FEvents[eteKill]);
end;
{form implementation}
procedure TForm1.BBPustClick(Sender: TObject);
begin
Scan:= ThrScan.Create(True);
Scan.Resume;
end;
procedure TForm1.BBZastavClick(Sender: TObject);
begin
PostThreadMessage(Scan.ThreadID, WM_ActEvn, 0, 0);
end;
tohle reseni jsem nasel v archivu konference, ale bohuzel to nechodi a vubec nevim kde delam chybu, za kazde nakopnuti zpravnym smerem moc dekuji.
Ladap
Pouze cisla v TEditu
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.7.2001 10:05:08
kouni na komponentu TKEdit na http://www.kopr(tec)cz/delphi/index.htm
Pavel
> Nevi nekdo jak nejjednoduseji upravit TEdit (TMaskEdit) aby mi umoznoval
> zapsat pouze cisla? napr.: "123", "-123", "123,45" atd.
> TMaskEdit mi nevyhovuje protoze tam doplnuje "_".
>
> Jirka
jak zjistim adresar program files?
[*] prajz.rumcajs(zv)quick(tec)cz - 19.7.2001 10:08:40
Ja pouzivam komponentu BUDirectories z baliku BUPack - http://www.buypin.com
Rumcajs
>Ahoj,
>
>nevite nekdo jak zjistim adresar program files pomoci API? Potrebuju,
>aby to chodilo na W95 i NT.
>
>Zkousel jsem fci SHGetSpecialFolderLocation, ovsem podle helpu neumi
>vratit zrovna program files, ktery nutne potrebuju.
>
>Ales
>Problem ABIT SA6
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 19.7.2001 10:09:00
Viem ze to nepatri do Delphi konfery ale SiSoft Sandra 2001 PRO mi vypisuje
podivne veci mam dosku ABIT SA6 bez RAID a disk ma prenos iba 4MB/sec
??????? ale pritom mam ATA100 kabel na disk disk je WDAC 40 GB 7200 ot.
proste delo a mne to pri restarte vypisuje v tej bios tabulke LBA, ATA 100
WDAC 40GB atd. ale vo W2k SP2 to nejde ani na polovicny vykon. Prosim
pomozte mi!!!!! prosiiim
Dakujem
S pozdravom ROBO
Pouze cisla v TEditu
[*] skalsky(zv)oksystem(tec)cz - 19.7.2001 10:12:34
tak zkus do udalosti OnKeyPress toho TEditu nasadit proceduru, kde
budes hlidat ASCII kod vstupni klavesy a pokud ten kod nebude odpovidat
cislum 0-9 popripade dalsim znakum jako napriklad znamenko " - ", pak to
nezapise ... pokud kod stisknute klavesy bude jiny, pak to udela neco jineho
(obvykle treba nezapise nic, ze ... ale muze to vypsat nejakej alert jako
Nepovoleny znak ci neco takoveho ... to uz zalezi na tobe)
P.S.
Pripominam, ze je to jen napad ...
Milan P. Skalsk�
odd�len� technick�ho rozvoje
OK System s.r.o.
Na Pankr�ci 125
140 21, Praha 4
---
Web http://www.oksystem(tec)cz
Mail Skalsky(zv)oksystem(tec)cz
Tlf +4202/ 44021217
-----Original Message-----
From: Jiri Wendl, KSH-Data [mailto:wendl(zv)ksh-data(tec)cz]
Sent: Thursday, July 19, 2001 8:11 AM
To: Konference DELPHI
Subject: Pouze cisla v TEditu
Ahoj
Nevi nekdo jak nejjednoduseji upravit TEdit (TMaskEdit) aby mi umoznoval
zapsat pouze cisla? napr.: "123", "-123", "123,45" atd.
TMaskEdit mi nevyhovuje protoze tam doplnuje "_".
Predem diky za nakopnuti
Jirka
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lan#kroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
Oddelovac desetinych mist u IB
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 19.7.2001 10:14:30
Ahoj
Mozna hloupa otazka, ale je u IB6 vzdy stejny oddelovac desetinych mist (tecka, carka).
Pokud ne jak mohu zjistit?
Diky Jirka
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lan#kroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
Jak vlozit jedno pupup menu do druheho
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 19.7.2001 10:28:13
ahoj
mel bych tu jeden problem se kterym si lamu hlavu. Mam dve popup menu popupA
a popupB, ktera by mela fungovat samostatne a v urcite situaci bych
potreboval aby se popupB stalo jednim ze submenu pupupA coz se mi nejak
lidsky nedari zrealizovat.
Pokud provedu toto : vMI := NewSubMenu('SubMenu1', 0, '', AOMI, True), kde
AOMI=Array Of TMenuItem, a nasledne popupA.Add(vMI) , tak mi to po spusteni
hlasi "Menu inserted twice", coz asi chapu.
Pokud provedu toto : vMI := NewSubMenu(SubMenu1, 0, '', PopupB.Items, True),
a nasledne opet popupA.Add(vMI), tak mi to pri zobrazeni vlozi mezi popupA a
popupB jeste jednu uroven, coz bych asi taky chapal.
A ted tedy otazka, jak to provest, aby se mi tam ta meziuroven neukazovala ?
Nenapada nekoho z vas reseni nebo alespon nastrel kudy na to ?
Predem diky za pomoc
PavelC
TListView
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 19.7.2001 10:39:14
TImageList ve kterym jsou obrazky pro TListView, lze menit i v run-time
pomoci metod add, insert, delete atd. Pri pridavani to chce objekt
TBitmap a do toho si muzes nacist obrazek pomoci LoadFromStream a stream
muzes udelat bud z resource v exe stejne jako ze souboru na disku.
Nedelal jsem to, takze nevim zda TListView zareaguje na zmenu sam, nebo
bude potreba volat nejaky refresh.
Honza +
> -----Original Message-----
> From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
> Sent: Thursday, July 19, 2001 10:01 AM
> To: 'delphi-l(zv)clexpert(tec)cz'
> Subject: TListView
>
>
> Ahoj,
> mam takovy problem. Mam TListView a jeho styl je VsIcon. Chci
> tam zobrazovat
> obrazky vyrobku, ale na zaklade toho, co je prave rozbaleno vedle v
> TreeViewu. Jde mi ale o to, ze kdyz dam ty obrazky do
> komponenty ImageList,
> tak mi za prve strasne nabyde Exe soubor a za druhe, nebudu
> je moci menit.
> Ja bych potreboval dat je k aplikaci nekam do podadresare a z neho je
> nacitat primo cestou. Jak to mam udelat ?
>
> ======================
> Filip Hazuka
> ��pkova 363
> L�zn� Bohdane�
> E-mail: Filip.Hazuka(zv)uhk(tec)cz
> Mobil: 0602/411 828
> ======================
>
>
>
>
> Citanie zo suborov
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 19.7.2001 10:41:13
> Priamo od autora je dane toto:
>
> coons
> N=1 sh1 10;
> M=N shr 1;
> type
> PartRec = Record
> ProgCode: string[10];
> atd..
>
> Hx, Hy:array[0..M] of single;
> end;
>
> To znamena ze dlzky jednotlivych premennych su dane pevne.
> Takto zapisane som to skusal v Pascale 5.5, neslo to, iba ked som mierne
> poupravil dlzky, tak to nacitalo niektore hodnoty, ale hrat sa s tym to
nema
> zmysel. Ako dalej?
> Zaujimalo by ma co znamenaju prve tri riadky. Nema tam byt nahodou
namiesto
> "coons" napisane "const" a su to konstanty?
> Poradte este kto viete.
> Kto by bol taky dobry a chcel by, tak mu mozem poslat aj nejaky ten subor
> nech sa na to pozrie. :))
>
> Robo.
Posli mi nejaky soubor, vse co mas o strukture recordu a ja se podivam.
Nemelo by to byt tezke.
Pavel
pavel.gazda(zv)seznam(tec)cz
Pouze cisla v TEditu
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 19.7.2001 10:50:31
Ahoj all,
toho podtrzitka se zbavis, kdyz pridas za masku retezec ';0; '
S uctou Brejsa Zdenek - Programator
HJ-SOFT s.r.o., Hradebni 3, 56301 Lanskroun
----- P�vodn� zpr�va -----
Od: "Jiri Wendl, KSH-Data" <wendl(zv)ksh-data(tec)cz>
Komu: "Konference DELPHI" <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 19. �ervence 2001 8:10
P�edm�t: Pouze cisla v TEditu
> Ahoj
>
> Nevi nekdo jak nejjednoduseji upravit TEdit (TMaskEdit) aby mi umoznoval
> zapsat pouze cisla? napr.: "123", "-123", "123,45" atd.
> TMaskEdit mi nevyhovuje protoze tam doplnuje "_".
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 2.7.2001
jak zjistim adresar program files?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.7.2001 10:51:08
a co takhle: "%programfiles%\"
At 10:08 19.7.2001 +0200, you wrote:
>Ja pouzivam komponentu BUDirectories z baliku BUPack - http://www.buypin.com
>Rumcajs
>
> >Ahoj,
> >
> >nevite nekdo jak zjistim adresar program files pomoci API? Potrebuju,
> >aby to chodilo na W95 i NT.
> >
> >Zkousel jsem fci SHGetSpecialFolderLocation, ovsem podle helpu neumi
> >vratit zrovna program files, ktery nutne potrebuju.
> >
> >Ales
> >
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
TListView
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.7.2001 10:53:33
procedure PridejIkonku(kam:TImageList;file:string);
var bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFormFile(file);
kam.AddMasked(bmp,bmp.pixels[0,0]);
bmp.Free;
end;
At 10:01 19.7.2001 +0200, you wrote:
>Ahoj,
>mam takovy problem. Mam TListView a jeho styl je VsIcon. Chci tam zobrazovat
>obrazky vyrobku, ale na zaklade toho, co je prave rozbaleno vedle v
>TreeViewu. Jde mi ale o to, ze kdyz dam ty obrazky do komponenty ImageList,
>tak mi za prve strasne nabyde Exe soubor a za druhe, nebudu je moci menit.
>Ja bych potreboval dat je k aplikaci nekam do podadresare a z neho je
>nacitat primo cestou. Jak to mam udelat ?
>
>======================
>Filip Hazuka
>��pkova 363
>L�zn� Bohdane�
>E-mail: Filip.Hazuka(zv)uhk(tec)cz
>Mobil: 0602/411 828
>======================
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
OT: RE: Problem ABIT SA6
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 19.7.2001 11:11:57
> podivne veci mam dosku ABIT SA6 bez RAID a disk ma prenos iba 4MB/sec
A mas ve vlastnostech disku zatrzeno DMA ???
Zkus to a uvidis...
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
sada komponent pro skin aplinaci
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 19.7.2001 11:15:26
Ahoj,
treba http://www.varian-software.com/products.html
Milan #ݿek wrote:
>
> ahoj, chci se zeptat: nevite nekdo o nejake free kolekci komponent pro
> tvorbu skinovatelne aplikace.Pouze cisla v TEditu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 19.7.2001 11:29:36
v kodu:
if not (key in ['0'..'9', '-', '.', #13, #8]) thek key := #0;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
Registrace noveho SQL serveru
[*] Ing. J�n Kuch�r <kuchar(zv)unicodesys(tec)cz> - 19.7.2001 11:40:33
Cafte
potrebuju zoufale pomoc a tak se obracim na sirokou verejnost, delam nejaky
administratorsky program pro MS SQL 7 pomoci D5, do Delphi jsem si pres menu
Project a Import type Library nacpal SQL a ted k tomu problemu, potrebuju
zaregistrovat novy server, ale ne pomoci Query component, ale pomoci pomoci
ActiveX prvku, zrusit zaregistrovany server umim, ale pridat ne, tak prosim
pomozte, jako priklad pridavam muj zpusob mazani serveru :
with Application1.ServerGroups do
for a:= 1 to Count do with Item(a).RegisteredServers do
for b := 1 to Count do if Item(b).Name=jmenomazanehoserveru then begin
za:=a;zb:=b;end;
Application1.ServerGroups.Item(za).RegisteredServers.Item(zb).remove;
DIK
Pouze cisla v TEditu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.7.2001 11:55:17
Ale nic mi nebrani napsat 123-46.45
Nehlede k tomu, ze na ceske klavesnici potrebujes spis carku nez tecku
a temi kl�vesami pod #32, kdyz tam das #0..#31 tak nic nezkazis a
bude ti chodit Delete i BackSpace apod.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
19.7.2001 Pesek Michal:
> v kodu:
> if not (key in ['0'..'9', '-', '.', #13, #8]) thek key := #0;LMD-Tools 5.00.10 Final
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.7.2001 12:23:55
Puvodni zprava, kterou napsal Robert Suska, KORAK slovakia dne 19 Jul 2001,:
> Pani prosim kto ma stiahnutu presne tuto verziu LMD-Tools ???
> Prosim ozvite sa mi.
> Zohnal som si k nemu licenciu :)
Tomu nerozumim. Co potrebujes nebo co nam chces rict?
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Pouze cisla v TEditu
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 19.7.2001 12:27:49
Tak jsem to napsal takhle a funguje to podle mych predstav.
Ahoj Jirka
--------------------------------------------------------------
procedure TEditX.KeyPress(var Key: Char);
begin
if not(Key in ['0'..'9',#8,',','-']) then
Key := #0
else
begin
if ((Key = ',') and (Pos(',', Text)>0))
or ((Key = '-') and (Pos('-', Text)>0)) then
begin
Key := #0;
Exit;
end;
inherited;
end;
end;problem s fonty v TDBRichEdit
[*] surfman <surfman(zv)volny(tec)cz> - 19.7.2001 12:37:21
Ahoj,
tento probl�m mam taky a jiz jsem jednou dotaz do konference posilal.
Bohuzel se nenasel nikdo, kdo by vedel co s tim.
Ja jsem jeste provedl nejake vyzkumy a zjistil jsem, ze problem je i v
obycejnem
RichEditu bez napojeni na databazovou tabulku. To by ukazovalo na
TCustomRichEdit.
V cem je problem jsem ale nezjistil.
Win2000 CZ
D5 prof
Surfman
From: <va.sykora(zv)atlas(tec)cz>
Subject: problem s fonty v TDBRichEdit
komponenta jej zobrazi ve fontu Tahoma, ale na nekterych mistech ve fontu
SimSun se
S�riov� p�enos do a z p��stroje
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 19.7.2001 12:46:14
RS485 mi konecne funguje. Jako komponentu jsem pouzil Crniluv Comport, ve
FlowControl mam povolen jen ControlRts. Na SyncMethod se to tvari lhostejne.
Dulezita je prodleva mezi vyslanim dat a shozenim RTS. Je tocira empirie ale
hlavne ze funguje. Musim to zkusit jeste na jine masine. Skoda, ze se tu
nesmi podekovat.
type Ts=array[1..255] of byte;
var s: Ts;
buf: ^Ts;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
pocet: integer; cas1:Tdatetime;
begin
fTimer:=false;
if ComPort1.Connected then ComPort1.Close;
ComPort1.Open; // open serial port
s[1]:=strtoint(edit1.text);
s[2]:=strtoint(edit2.text);
s[3]:=strtoint(edit3.text);
s[4]:=strtoint(edit4.text);
s[5]:=strtoint(edit5.text);
s[6]:=strtoint(edit6.text);
s[7]:=strtoint(edit7.text);
s[8]:=strtoint(edit8.text);
buf:=(zv)s;
comport1.setrts(true);
listbox1.clear;
pocet:=ComPort1.Write(buf^, 8); // vysilani 8 bytu
edit10.text:=inttostr(pocet); // vraci pocet do textboxu
cas1:=now;
repeat until now>cas1+0.0000005; //potrebna prodleva !!!!!!
comport1.setrts(false);
end;
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var str: string;
i: integer;
begin
Comport1.Read(Buf^, count);
for i:=1 to count do listbox1.items.add(inttostr(buf^[i]));
end;
Dalibor Faltynek, technik.
----- Original Message -----
From: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, July 18, 2001 2:42 PM
Subject: Re: S�riov� p�enos do a z p��stroje
> Tak to mas asi to same co mam ja. :-)
>
> 1. Tedy, NEPOUZIVAT harware flow-control!
> 2. signal RTS ridi smer prevodniku. Je-li 1, vysila se, je-li 0, prijimaji
se
> data.
>
> Tedy lze pracovat tak, ze normalne mas RTS na 0. Jakmile chces neco
> odvysilat, nahod jej na 1, odvysilej data a hnedka pote RTS shod zpet na
> 0 a cti odpoved.
Nazory
[*] Peter Surovy <psurovy(zv)uevora.pt> - 19.7.2001 12:05:24
Ahoj
chcel by som sa spytat na nazory skusenejsich ohladom nasled. veci:
Aplikacia pracuje s -poliami zaznamov- ktore sa v uplne povodnej verzii
ukladali a citali z pamate pomocou -pointerov-.
Toto sa ukazalo pri vacsich objemoch dat ako prilis zatazujuce na klientovo
tech. vybavenie.
Nova myslienka bola : kazde pole sa pri prechode cyklom zapise priamo na
disk co pri 30 cykloch vytvori 30 -text. suborov-.
pripada mi to vsak dost komplikovane a navyse ked potrebujem vyhodnotit
premennu zo vsetkych 30 suborov stale musim deklarovat
nove a nove polia otvorit subor nacitat premennu zavriet otvorit dalsi nacit
a tak..Ked potrebujem prem. ktora je nakonci zaznamu musim nacitavat cely
zaznam apod.
Napada ma pouzit -databazu- preto by som sa chcel spytat na prip
nevyhody:
jedna je ze zrejme budem musiet pri instalacii programu zaviest aj
BDEadmin. Ci nie?
----------------------------------
Ing. Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
S�riov� p�enos do a z p��stroje
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 19.7.2001 13:05:58
Jen drobnost.. tu prodlevu nedelej prikazem:
repeat until now>cas1+0.0000005;
Ale pouzij prikaz sleep(casvmilisekundach);
L.
> RS485 mi konecne funguje. Jako komponentu jsem pouzil Crniluv Comport,
> ve FlowControl mam povolen jen ControlRts. Na SyncMethod se to tvari
> lhostejne. Dulezita je prodleva mezi vyslanim dat a shozenim RTS. Je
> tocira empirie ale hlavne ze funguje. Musim to zkusit jeste na jine
> masine. Skoda, ze se tu nesmi podekovat.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
S�riov� p�enos do a z p��stroje
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 19.7.2001 13:50:57
> repeat until now>cas1+0.0000005; //potrebna prodleva !!!!!!
Tohle je presne ten problem, o kterem jsem psal. Ve tvoji aplikaci to
nejspis bude chodit spolehlive, ale pokud potrebujes napsat neco
univerzalne, je to uz trochu problem. Spravne by se to melo cist z HW
serioveho portu, jenze to se mi prave nedari spolehlive na vsech boardech
stejne.
Problem nastane pri zmene rychlosti, casy se pak meni.
Umite nekdo korektne zjistit okamzik odeslani posledni bajtu na linku?
(pripadne Lukas G. tady zminoval rizeni pomoci Woken, muzes to trochu
upresnit(treba odkaz)?)
Ota Maly
Absolutni souradnice vizualniho prvku na obrazovce
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 19.7.2001 14:05:52
ahoj,
zaboha si nemuzu vzpomenout na to, jak se zjisti absolutni souradnice
vizualni komponenty na obrazovce. Napriklad jak bych zjistil absolutni
souradnice leveho horniho rohu TreeView. Potrebuji totiz dale zjistit
absolutni souradnice aktivniho node.
za nakopnuti predem dik
PavelC
Rozdily SQL7/2000
[*] bigzero(zv)post(tec)cz - 19.7.2001 14:06:11
Zdary!
Ve sve aplikaci pouzivam ulozene procedury, ktere volam pres ADOStoredProc (ADONIS). Az dosud jsem nacital navratovou hodnotu (z te ulozene procedury) pres ADOStoredProc.ParamByName('RETURN_VALUE').AsInteger a fungovalo to bez problemu.
Pokud ale aplikace bezi proti SQL Server 2000 (dosud MSSQL 7 SP3) tak mi to hlasi ze to nenaslo parametr 'RETURN_VALUE'. Zjistil jsem ze v tomto pripade se tento parametr jmenuje jinak - '(zv)RETURN_VALUE' !
Pozn. Rozdil je skutecne jen v SQL Serveru (tj. projevuje se to ruzne na tomtez PC).
Otazky: 1) Jakym zpusobem je bezpecne nacitat navratovou hodnotu (nerad bych v ramci aplikace delal vyhybky pro kazdou verzi SQL Serveru).
2) Vite o dalsich obdobnych projevech rozdilu mezi uvedenymi verzemi ?
Diky za [po]radu
Honza
S�riov� p�enos do a z p��stroje
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 19.7.2001 14:14:07
> Umite nekdo korektne zjistit okamzik odeslani posledni bajtu na linku?
> (pripadne Lukas G. tady zminoval rizeni pomoci Woken, muzes to trochu
> upresnit(treba odkaz)?)
Jo, na webu Synapse si stahni SynaSer.zip, kde jsem to
naimplementoval.
Technicky je to jen nahozeni jednoho flagu do DCB struktury... Je to
popsano normalne v MSDN.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Absolutni souradnice vizualniho prvku na obrazovce
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.7.2001 14:36:38
ClientToScreen
a
ScreenToClient
At 14:05 19.7.2001 +0200, you wrote:
>ahoj,
>zaboha si nemuzu vzpomenout na to, jak se zjisti absolutni souradnice
>vizualni komponenty na obrazovce. Napriklad jak bych zjistil absolutni
>souradnice leveho horniho rohu TreeView. Potrebuji totiz dale zjistit
>absolutni souradnice aktivniho node.
>za nakopnuti predem dik
>PavelC
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Absolutni souradnice vizualniho prvku na obrazovce
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 19.7.2001 14:37:50
TControl.ClientToScreen
> -----Original Message-----
> From: ing.Pavel Cabalka [mailto:pavel_cabalka(zv)vcshk(tec)cz]
> Sent: Thursday, July 19, 2001 2:06 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Absolutni souradnice vizualniho prvku na obrazovce
>
>
> ahoj,
> zaboha si nemuzu vzpomenout na to, jak se zjisti absolutni souradnice
> vizualni komponenty na obrazovce. Napriklad jak bych zjistil absolutni
> souradnice leveho horniho rohu TreeView. Potrebuji totiz dale zjistit
> absolutni souradnice aktivniho node.
> za nakopnuti predem dik
> PavelC
>
> Nazory
[*] brant(zv)dcomm(tec)cz - 19.7.2001 14:41:24
Zalezi na tom, jestli chces pouzit napr. Paradox (z vlastni zkusenosti si
dovoluji vrele nedoporucit), v tom pripade je BDE nutne. ALe pokud nebudes
potrebovat rozsahle tabulky, vazby mezi nimi apod, uplne postaci obycejna
DBase. Existuji free komponenty, ktere nepotrebuji BDE.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Ahoj
chcel by som sa spytat na nazory skusenejsich ohladom nasled. veci:
Aplikacia pracuje s -poliami zaznamov- ktore sa v uplne povodnej verzii
ukladali a citali z pamate pomocou -pointerov-.
Toto sa ukazalo pri vacsich objemoch dat ako prilis zatazujuce na klientovo
tech. vybavenie.
Nova myslienka bola : kazde pole sa pri prechode cyklom zapise priamo na
disk co pri 30 cykloch vytvori 30 -text. suborov-.
pripada mi to vsak dost komplikovane a navyse ked potrebujem vyhodnotit
premennu zo vsetkych 30 suborov stale musim deklarovat
nove a nove polia otvorit subor nacitat premennu zavriet otvorit dalsi nacit
a tak..Ked potrebujem prem. ktora je nakonci zaznamu musim nacitavat cely
zaznam apod.
Napada ma pouzit -databazu- preto by som sa chcel spytat na prip
nevyhody:
jedna je ze zrejme budem musiet pri instalacii programu zaviest aj
BDEadmin. Ci nie?