Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zvuk po zaloze
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 6.10.2000 13:33:08
Ted me zrovna nenapada jak, ale neslo by treba kontrolovat,
jestli uz je prazdna cache?
> -----P�vodn� zpr�va-----
> Od: Tom� Vlad�k [mailto:tom.vladik(zv)swadvice(tec)cz]
> Odesl�no: 6. ��jna 2000 8:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Zvuk po zaloze
>
>
> A co takle u te ZIPky zakazat zapisovaci cache - nebo te
> ZIPce poslat po
> dokonceni kopirovani prikaz k vysunuti media ....
>
>
> T.
>
> Zakaz minimalizace
[*] L. ZITA <konference(zv)sales(tec)cz> - 6.10.2000 13:40:42
Behalf Of sup(zv)svitap(tec)cz
> Dobry den, delam aplikaci, ktera pojede jako shell misto
> Exploreru. Jak to
> udelat, aby programy z ni pustene nesli minimalizovat?
>
> Jaroslav Weiss
> odd. informatiky
>
Ahoj.
Zkus BorderStyle=none
maximized po startu a v OnCloseQuery si osetri ALT+F4.
Mela by pak byt vlastne porad na pozadi jako plocha.
(neodzkouseno)
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
DBGrid, ScrollBar a aktualni pozice
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 06.10.2000 14:31:23
Zdravim,
prosim Vas o radu. Komponenta DBGrid, ktera zobrazuje soubor DBF, zobrazuje u scrollbaru pouze tri polohy. Nelze tuto komponentu donutit zobrazovat skutecne umisteni v souboru? Popripade aspon nechat zobrazovat aktualni cislo radku v souboru?
Predem dekuji za odpoved.
Mirek.
Pomala databazova aplikace
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 6.10.2000 14:33:29
A co maji nainstalovanyho za klienta pro Notwell ?
Mel jsem s novelovym klientem verze 4.7 tutez zkusenost
(vse bylo hrozive pomale), nyni pouzivam verzi 4.8 a je to (snad) ok.
Tehdy mi pomohlo odinstalovat novelovskyho klienta a
pouzivat microsoftiho klienta pro pristup do novelu.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Brant Petr
> Sent: Friday, October 06, 2000 1:33 PM
> To: Konference Delphi (el. adresa)
> Subject: Pomala databazova aplikace
>
>
> Ahoj vespolek,
>
> databazova aplikace (BDE, tabulky Paradox, pouze dve tabulky maji cca
> desetitisice zaznamu, zbytek nejvyse desitky, jen vzacne stovky)
> u nas jede
> co se tyce rychlosti bezproblemove (sit WinNT, stanice Win98, Win95), u
> zakaznika na tomtez objemu dat se zoufale louda (ted maji sit WinNT +
> Novell, stanice Win98, kdyz meli predchozi verzi s timtez objemem dat,
> Novell myslim jeste nemeli a chodilo to svizne). Nemate nekdo zkusenost,
> jestli se neco nema nastavit v konfiguraci BDE nebo na serveru apod.?
>
> Vyvoj je na D5Prof, Win98
>
> Diky za vsechny napady
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> program�tor
> **************************************
> D & COMM s.r.o.
> Korunova�n� 6, Praha 7
>
> tel. +420-2-3337 3855
> +420-2-2431 4538
> *************************************
>Prosim jak udelat delete v interbasi
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 6.10.2000 14:42:26
Jak udelat delete z tabulky.
umim napr delete from tabulka where polozka > 20, ale
potrenuji neco jako
delete from tabulka1
where tabulka1.f1 = t2.f1 AND tabulka1.f2 = t2.f2
Diky.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
EDBEngineError - Invalid file name
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 6.10.2000 15:34:37
Mam nasledujici problem:
pri pokusu o otevreni tabulky TABLE.OPEN nebo mozna pri SESSION.ADDPASSWORD dochazi k vyjimce EDBEngineError s hlaskou INVALID FILE NAME (bez nazvu souboru). Aplikace bezi na serveru, kde to nemuzu trasovat, tudiz ani presne odchytit, ale s nejvetsi pravdepodobnosti dochazi k vyjimce ve vyse uvedenych pripadech. Soubory (table.db, px, mb... ) na serveru urcite jsou a jsou v poradku. Mozna neco v nastaveni BDE... (nastaveni NetFileDiru i PrivateDiru jsou OK)
Aplikace bezi na serveru IIS 5.0 WNT. Pri testovani na lokale (Personal Web Server W95) slo vse bez obtizi. D5 Prof.
Nevite cim by to mohlo byt zpusobeno? Uz s tim laboruju asi tejden a furt nic. Predem dekuji za veskere chytre i mene chytre napady.
Jirka Matejka
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
assembler
[*] MUDr.Neu�il <drneuzil(zv)razdva(tec)cz> - 6.10.2000 15:45:39
Nevite nekdo kde se da sehnat turbo assembler ?
Jan Neu�il
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
OT: Quick Desk
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 6.10.2000 16:40:09
Caute
viete niekto ako pustit Datapump z Access do IB v QuickDesk 1.7.1 ?
Vobec to tam neviem najst a pisu, ze to tam urcite je.
Help k tomu nedavaju ziadny...
PAtrik
Prosim jak udelat delete v interbasi
[*] Delphi <delphi(zv)aitix(tec)cz> - 6.10.2000 18:52:49
delete from zakazky where exists
( select * from firmy where firmy.firma=zakazky.firma and
firmy.nazev='Alfa');
Pozor, ve from klauzuli selectu uz NENI uvedena tabulka z niz se maze!!!
Leos
> Jak udelat delete z tabulky.
> umim napr delete from tabulka where polozka > 20, ale
> potrenuji neco jako
>
> delete from tabulka1
> where tabulka1.f1 = t2.f1 AND tabulka1.f2 = t2.f2
Trideni CH v Interbase
[*] Delphi <delphi(zv)aitix(tec)cz> - 6.10.2000 19:16:29
> > Pozitivni je, ze kdyz jde dodelat CH, jde pravdepodobne udelat spravne i
> > zbytek.
Mohl by tady nekdo znaly napsat par vet o programovani techto veci v
Interbase?
Mne by se (krome CH, ted uz dikybohu jen na Linuxu) hodilo i pridat narodni
trideni do Unicode.
Leos
Transakcni log 2
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 6.10.2000 20:03:43
Zdravim Vas,
domnivam se, ze v transakcnim logu MS SQL Serveru 7 jsou ulozeny informace
ohledne na velmi nizke urovni (fyzicke adresy na HDD, ... ??), nikoliv vsak
SQL prikazy.
Tim padem neni mozne nahlednout do provadenych SQL prikazu (Pro ladeni je
mozne pouzit Profiler.).
K teto domnence mne vede fakt, ze pokud provadite slozite SQL prikazy
(Inserts, Updates, Deletes), tak na to SQL Server potrebuje cas X. Kdyz
aplikujete vznikly transakcni protokol na zalohu databaze, tak na to SQL
server potrebuje cas Y. Pricemz Y << X.
S pozdravem, Lada
> Ahoj,
>
> zkousim jeste jednou...opravdu nikdo nevite o nejake moznosti, jak
> prohlednout transakcni log na MSSQL7 serveru? Nebo nejakou
> jinou cestu, jak se podivat do historie cinnosti.
> To je prece vec, ktera by mela byt pomerne potrebna a prislo
> by mi jako zvlastni, ze to nejde.
>
> Nebo to opravdu nejde?
>
> David
Translation repository
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 6.10.2000 20:26:09
Zdravim,
nemuzu dostat zadny retezce do %subj%. Polozka "Repository" v menu
(po stisku praveho tlacitka v Translation Manageru) je vzdy zakazana.
Petr Fischer
Win2000, Delphi 5 (SP 1)
P.S. To ze Lokalizator je nejlepsi mi prosim nepiste :))) (stejne ho
asi nakonec pouziju), ale tohle je zadara :)))CGI na IIS, pristupova prava
[*] Karel Hudan <KarelH(zv)cashreform(tec)cz> - 6.10.2000 20:33:08
Zdravim.
Mam takovy dotaz:
Udelal jsem si aplikaci pro generovani HTML stranek a tu jsem umistil pod
IIS 4.0
Pravdepodobne vzhledem k tomu, ze pouzivam BDE mi to ovsem hlasi, ze nemam
dostatecna prava pro beh aplikace.
Pokud se nahlasim jako nekdo s vyssimy pravy, beha vse bez problemu.
Chtel bych se zeptat, jak IIS nastavit, aby to fungovalo k me spokojenosti i
pod anonymous uzivatelem?
To ze se tento uzivatel muze premapovat? na nekoho jineho vim, ale nejsem si
jist, jestli to je dobra cesta, popripade bych rad nastavil tomuto uctu co
nejmensi prava.
Dekuji za kazdou radu.
KarelH
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.191 / Virov� b�ze: 91 - datum vyd�n�: 11.9.2000
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Lud�k P�ral - 7.10.2000 00:23:53
Jedna vec je technologie prekladu a pouziti softwaru pro svet. Druha je ta,
ze kazdy vyvojar v CR si musi pro cesky trh provest svuj preklad hlasek
Delphi. Pokud ale v jine zemi maji volbu menit prostredi v materstine pro
tuzemsky trh nebo v anglictine pro svet, jedna se v danem pripade o obrovske
casove uspory. Pres vsechny superlativy na adresu tuzemskych programatoru,
kolik % projektu Delphi je 100 % prelozeno a kolik to stoji usili?
Ludek Paral
Sadova 2
352 01 As
ludek.paral(zv)telecom(tec)cz
Nekteri z nas na to maji Lokalizator. :-) Jsem take rozhodne pro
zachovani anglictiny, aspon to nemusim pracne prekladat, kdyz
chci poslat program do sveta, coz se deje stale casteji.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
> A jak jedou vsechny Tve aplikace vcetne vsech vyjimek ? Predpokladam,
> ze zakaznici umi bud perfektne anglicky nebo sis vsechny resource jiz
> prelozil.
Ludek Paral
> > Smarja, jenom nelokalizovat Delphi :-)
> > me bohate staci Access... tu kousek cesky, tu kousek anglicky :-))
...
Transakcni log 2
[*] Delphi <delphi(zv)aitix(tec)cz> - 7.10.2000 00:41:44
> domnivam se, ze v transakcnim logu MS SQL Serveru 7 jsou ulozeny
> informace ohledne na velmi nizke urovni (fyzicke adresy na HDD, ... ??),
U Informixu jsou v transakcnim logu ulozeny veskere operace menici data tj.
napr INS, UPD, DEL a maji u sebe dostatecnou informaci ke zpetne analyze,
napriklad u UPD je obraz pred zmenou a po zmene. Nastroj na prohlizeni je
soucasti serveru.
Na specifikovany ukol by se ale asi vice hodil auditing, ktery specifikuje
CO a KOHO ma server sledovat a logovat. Opet jsou tam prohlizeci nastroje
vcetne natazeni do databaze.Auditing se ale musi zapnout a nastavit, tj.
pokud nebyl v okamziku nejakeho problemu aktivni, stejne se musi pouzit
transakcni log.
Ten jde ostatne prohlizet i z pasek, kam se vetsinou zalohuje.
Pro zajimavost - auditing je mozne nastavit tak, aby nejaky jiny uzivatel
hlidal administratora databazoveho serveru.
Tolik Informix.
Leos
Trideni CH v Interbase
[*] Delphi <delphi(zv)aitix(tec)cz> - 7.10.2000 00:57:28
> Mohl by tady nekdo znaly napsat par vet o programovani techto veci v
> Interbase?
Sam sobe :-))
http://www.interbase.com/open/research/art_collation_kit.html
L.Ekvalizer
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 7.10.2000 01:12:31
Zdravim!
Nevedel by nekdo, jak udelat jednoduchej ekvalizer (nebo jak se tomu nadava)
ve Windows? Proste potrebuju zjistovat intezitu vystupniho signalu ze
zvukovky a staci to aplikovat jen pro vystupni wave. Neco takoveho mi dela
treba i MS Volume Control. Vsichni to urcite znate z hi-fi vezi, jak tam
porad vyskakuji ty "kominky" ukazujici aktualni rozlozeni a intenzitu
signalu :)) Presne tohle potrebuju ja, az na to, ze mi staci jen jeden
"kominek"...Po graficke strance si to vyresim, ale potreboval bych pomoct s
tim zjistovanim aktualni hodnoty.
Vasek
OT: undelete pro W95,FAT32
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 07.10.2000 11:15:26
Dik za radu, ale na FAT32 to jaksi nejde...
Ale jinak dik tobe i dalsim za rady. Uz je to vyresino (nakonec jsem
sehnal nejakej programek) a vsechny data jsou zase tam, kde meli bejt...
Zbysek Hlinka wrote:
>
> On 5 Oct 2000, at 20:29, Martin Pe�ava wrote:
>
> > Ahojda lidicky, potrebuju moc pomoc. Nedopatrenim jsem si smazal asi
> > 200 MB dat na FAT32 disku pod W95OSR2, ktery nutne potrebuju obnovit.
> > Na Netu jsem nasel par programu, ktery ale bud jenom ukazou smazany
> > fajly a nebo zachranej jenom fajly mensi jak 10KB (demo, shareware...)
> > Nevite nahodou nekdo o nejaky undelete pro woknousy, kterej by byl
> > free??? --
>
> Restartuj do DOSu a dej undelete.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
| WebMaster of |
| http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
\--------------------------------------------------------------/Pomala databazova aplikace
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.10.2000 15:00:59
Moznym problemem je navazani spojeni (poradi prohledavani), vznika to pri pouziti
vice "konkurencnich protokolu".
Mne se nejvice osvedcilo nainstalovat pouze jeden protokol (TCP/IP).
Pokud maji Novell tak IPX/SPX.
Pokud jsou nutne oba protokoli, tak na vsech PC v siti nastavit
stejne poradi prohledavani.
Slavek
> -----Puvodni zprava-----
> Od: Brant Petr [SMTP:Brant(zv)dcomm(tec)cz]
> Odeslano: 6. oijna 2000 13:33
> Komu: Konference Delphi (el. adresa)
> Poedmit: Pomala databazova aplikace
>
> Ahoj vespolek,
>
> databazova aplikace (BDE, tabulky Paradox, pouze dve tabulky maji cca
> desetitisice zaznamu, zbytek nejvyse desitky, jen vzacne stovky) u nas jede
> co se tyce rychlosti bezproblemove (sit WinNT, stanice Win98, Win95), u
> zakaznika na tomtez objemu dat se zoufale louda (ted maji sit WinNT +
> Novell, stanice Win98, kdyz meli predchozi verzi s timtez objemem dat,
> Novell myslim jeste nemeli a chodilo to svizne). Nemate nekdo zkusenost,
> jestli se neco nema nastavit v konfiguraci BDE nebo na serveru apod.?
>
> Vyvoj je na D5Prof, Win98
>
> Diky za vsechny napady
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> programator
> **************************************
> D & COMM s.r.o.
> Korunovaeni 6, Praha 7
>
> tel. +420-2-3337 3855
> +420-2-2431 4538
> *************************************Dinamicka okna
[*] Anton�n Karartsiolis <karatsiolis(zv)kara.skylink(tec)cz> - 7.10.2000 15:23:30
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Zdrav�m
V teto problematice zac�nam. a tak hledam radu.
Na plose programu potrebuju podle potre potreby z databaze zobrazit nekolik (ruzne mnozstvi) predem nadefinovanych okena ty podle potreby odstranit. Potrebuji tedy poradit s timto problemem:
Na polose programu vytvorit okno (podle predem definovaneho) ktere mohu presouvat a ruzne s nim manipulovat. jedna s moznosti manipulace je okno odstranit.
Zdali se najde nejakej alespon troch ochotnej clovek kterej mi pomuze alespon s kostrou problemu nebo alespon nejakej zdroj kde by se to dalo nastudovat budu za to vdecnej
Anton�n Karatsiolis
ICQ:33329204
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
OT: Form�t *.wdb
[*] Petr Ma�ek - 7.10.2000 16:40:15
Ahoj,
nevite nekdo neco o formatu *.wdb. Mel by to byt format MS Worksu pro W9x.
Dostal jsem od nekoho tento soubor a potreboval bych se dostat k informacim
v nem ulozenym. Problem je, ze nemam zadny program, ktery by s timto
formatem umel pracovat. A kvuli jednomu souboru se mi nechce shanet MS
Works. Stacila by me uplne nejaka komponenta.
Diky moc
Petr Masek
P.S. Nemam moznost casteho pristupu k Netu, takze se muze stat, ze dlouho
nebudu zase psat.
Form�t *.wdb
[*] MUDr.Neu�il <drneuzil(zv)razdva(tec)cz> - 7.10.2000 17:35:20
Mam Works, mohl bych zkusit prevest do *.doc, jinak pomoci nemohu.
S pozdravem
Miloslav Neuzil
----- Original Message -----
From: "Petr Ma�ek" <peter(zv)volny(tec)cz>
To: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, October 07, 2000 4:40 PM
Subject: OT: Form�t *.wdb
> Ahoj,
> nevite nekdo neco o formatu *.wdb. Mel by to byt format MS Worksu pro W9x.
> Dostal jsem od nekoho tento soubor a potreboval bych se dostat k
informacim
> v nem ulozenym. Problem je, ze nemam zadny program, ktery by s timto
> formatem umel pracovat. A kvuli jednomu souboru se mi nechce shanet MS
> Works. Stacila by me uplne nejaka komponenta.
> Diky moc
> Petr Masek
>
> P.S. Nemam moznost casteho pristupu k Netu, takze se muze stat, ze dlouho
> nebudu zase psat.
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Lud�k P�ral - 7.10.2000 23:48:21
Reseni, ktere jsem videl, je postaveno na tom samem, co Zbyskuv
"LOCALIZATOR", akorat ze to pouzivaji DELPHI. Tzn. ze pri spusteni Deplhi se
nactou Resource dle prani uzivatele v AJ nebo NJ a vysledny kod DLL, EXE
atd. obsahuje veskere vyjimky v teto reci, neni jiz co lokalizovat. Ano,
cesky produkt lze pouzit, pokud nemecky vvojar pracuje pro celou evropu. Tam
pouziji ne INPRISE, ale Zbyskuv produkt. NEKRITIZUJI CESKE VYVOJARE, ALE
POSTUP RESENI GLOBLANICH PROBLEMU.
Co mi ale vadilo, ze jsem musel nemeckym kolegum rici - CESKE INPRISE MI
REKLO, ZE INPRISE POUZIVA CELOSVETOVE POUZE AJ. Coz pusobi tak, ze v Cechach
nepracujeme se spravnymi informacemi.
Ludek Paral
Sadova 2
352 01 As
ludek.paral(zv)telecom(tec)cz
----- P�vodn� zpr�va -----
Od: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 6. ��jna 2000 10:57
P�edm�t: Re: Jak je to s prodejem orig. Delphi z druhe ruky
On 5 Oct 2000, at 19:51, Lud�k P�ral wrote:
> Mel jsem nyni v ruce nemecky casopis Entwickler (Vyvojar).
>
> Zde je podrobne rozepsana vlastnost vicejazycnosti, vcetne prepinani
> Delphi s nemeckym, nebo anglickym prostredim. V SRN to ma jednu vyhodu
> - veskere Exception a resourcestring jsou jiz prelozeny. My v Cechach
> jak pitomci musime vsichni veskere krizove stavy ovladat vlastnimi
> vyjimkami.
Pro takovyto postup nevidim nejmensi duvod, pokud se chybova
hlaska nachazi v programu. Daleko jednodussi je _vymenit_
anglicke texty za ceske (tedy lokalizovat). Pokud se text importuje
zvenku, napriklad z nejake DLL (takove BDE, IB, ...), pak jsou na
tom Nemci stejne jako my.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Kompilacia IB6
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 8.10.2000 10:25:34
Cim je mozne skompilovat IB6 source ?
Dakujem
ROland.Kompilacia IB6
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 8.10.2000 13:10:55
Predpokladam, ze to bolo robene na kompilaciu v BC++
P.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Roland Tur�an (RoTurSoft)
Sent: Sunday, October 08, 2000 10:26 AM
To: Delphi CZ konferencia
Subject: Kompilacia IB6
Cim je mozne skompilovat IB6 source ?
Dakujem
ROland.Delphi 5 ENT, ADO + MSSQL2000
[*] Delphi Newsgroup <DELPHI(zv)wsc(tec)cz> - 8.10.2000 14:57:04
Zdravim vsechny Delphare.
Prave testujeme novy MSSQL2000 a narazili jsme na jeden problem tykajici se
pripojeni pres ADO komponenty dodavane s Delphi 5 Enterprise. Jedna se o
nasledujici:
(DELPHI 5 ENT, MSSQL2000, WIN2000Prof)
Mam ADOConnection1: TADOConnection
ConnectionString = 'Provider=SQLOLEDB.1;Persist Security Info=False;
User ID=sa;Initial Catalog=DATABAZE;Data Source=(local)'
Dale ADOQuery1: TADOQuery
Connection = ADOConnection1
SQL.Text = 'SELECT * FROM TABULKA'
Ostatni property jsou vychozi
Nasledujici kod zpusobi chybu:
ADOQuery1.Open;
while not ADOQuery1.EOF do
ADOQuery1.Next;
ADOQuery1.Close; // Tady nastane chyba
Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.
Je jasne, ze mu vadi, ze ADOQuery je v pozici EOF, ale v predchozi verzi
MSSQL to nevadilo a vse fungovalo tak jak melo(?). Pomuze umisteni
ADOQuery1.First nebo podobneho prikazu pred provedeni Close, ale to podle
mne neni univerzalni reseni.
Dalsi postrehy: stejna chyba nastane i pri pouziti komponenty TADOTable nebo
pri pouziti ADO komponent treba s providerem Microsoft.Jet.OLEDB.4.0, coz
znamena, ze chyba neni v MSSQL, ale asi v ADO OCX, ktere dodava Microsoft S
MSSQL2000.
Predem diky za kazdou radu
Michal HAMPL
HAMPL(zv)WSC.CZ
Osekani app od form
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 8.10.2000 14:59:04
Snazim se osekat mou app. od form ale nejak se v tom prestavam orientovat. Hlavne bych chtel
vedet, jak nahradim procedury typu Formxxxx, napr. FormClose, FormCreate, a vse, co jsem pouzival
s form.
Dale by mne zajimalo, kdyz uz budu mit jen cisty program bez formu jestli bude videt v
CTRL+ALT+DEL, nebo bude bezet jako sluzba?
Dale mi to hazelo chybu na message typu WMendsession a wmqueryendsession,
tomu taky nerozumim proc.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
pocet radku v souboru
[*] Milan ��ek - 8.10.2000 15:05:49
nemohl by mi prosim nekdo poradit, jak co nejrychleji zjistit pocet radku v
souboru? Jde o textovy soubor, delam to tak, ze nacitam jednotlive radky a
inkrementuju citac. Ale pri 10MB souboru to docela i trva...
dik za radu
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Delphi 5 ENT, ADO + MSSQL2000
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 8.10.2000 17:03:14
Zdravim,
----- Original Message -----
From: Delphi Newsgroup <DELPHI(zv)wsc(tec)cz>
To: Delphi konference <DELPHI-L(zv)fwd(tec)cz>
Sent: Sunday, October 08, 2000 2:57 PM
Subject: Delphi 5 ENT, ADO + MSSQL2000
> Zdravim vsechny Delphare.
>
> Prave testujeme novy MSSQL2000 a narazili jsme na jeden problem tykajici
se
> pripojeni pres ADO komponenty dodavane s Delphi 5 Enterprise. Jedna se o
> nasledujici:
>
> (DELPHI 5 ENT, MSSQL2000, WIN2000Prof)
>
> Mam ADOConnection1: TADOConnection
> ConnectionString = 'Provider=SQLOLEDB.1;Persist Security Info=False;
> User ID=sa;Initial Catalog=DATABAZE;Data Source=(local)'
> Dale ADOQuery1: TADOQuery
> Connection = ADOConnection1
> SQL.Text = 'SELECT * FROM TABULKA'
>
> Ostatni property jsou vychozi
>
> Nasledujici kod zpusobi chybu:
>
> ADOQuery1.Open;
> while not ADOQuery1.EOF do
> ADOQuery1.Next;
> ADOQuery1.Close; // Tady nastane chyba
> Either BOF or EOF is True, or the current record has been deleted.
> Requested operation requires a current record.
>
> Je jasne, ze mu vadi, ze ADOQuery je v pozici EOF, ale v predchozi verzi
> MSSQL to nevadilo a vse fungovalo tak jak melo(?). Pomuze umisteni
> ADOQuery1.First nebo podobneho prikazu pred provedeni Close, ale to podle
> mne neni univerzalni reseni.
>
> Dalsi postrehy: stejna chyba nastane i pri pouziti komponenty TADOTable
nebo
> pri pouziti ADO komponent treba s providerem Microsoft.Jet.OLEDB.4.0, coz
> znamena, ze chyba neni v MSSQL, ale asi v ADO OCX, ktere dodava Microsoft
S
> MSSQL2000.
Podle toho Jet.OLEDB bych rek, ze to bude spis otazka OLEDB (jakou mas
verzi?), s pristupem pres ODBC na SQL2000 to nedela ? Ja jsem zaznamenal
rozdily v chovani pri ruznych verzich OLEDB a pri pouziti OLEDB a ODBC
provideru. Pozot napr. MS Office 2000 taky pridavaji OLEDB komponenty a to
mi ovlivnilo i pristup na SQL (tedy zatim jen 7.0).
Hodne zdaru.
Tomas
Ekvalizer
[*] Hurricane <hurricane(zv)email(tec)cz> - 8.10.2000 17:03:13
Zdravim
To neni ekvalizer, tomu co chces se rika VU meter. Spis bych to videl na
nejakou komponentu. Urcite ji najdes na www.torry.ru nebo
www.programmersheaven.com.
Hurricane
----- Original Message -----
> Nevedel by nekdo, jak udelat jednoduchej ekvalizer (nebo jak se tomu
nadava)
> ve Windows? Proste potrebuju zjistovat intezitu vystupniho signalu ze
> zvukovky a staci to aplikovat jen pro vystupni wave.Datab�ze Accessu
[*] delphi <korindelphi(zv)atlas(tec)cz> - 8.10.2000 17:16:22
Dobr� den,
r�d bych se v�s zeptal, jak bych mohl ud�lat prohl�e� tabulek v datab�zi MS Accessu. Pokou�el sem se ho ud�lat, ale probl�m byl, �e jsem nedok�zal zjistit n�zvy tabulek, ale to nen� m�j hlavn� probl�m. Nejv�t�� probl�m je, �e kdy� jsem dal table.open, tak to po m� cht�lo login do datab�ze.... jm�no a heslo.... ale j� u t� datab�ze ��dn� jm�no ani heslo nem�m.... v accessu jde otev��t v pohod�.... zkou�el jsem snad v�echny jm�na a hesla, co m� napadly, ale neusp�l jsem.
Mo�n� exisuje n�jak� standartn� heslo a jm�no.
D�ky za radu. Ivan �varc
TvgDBTreeView error
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 8.10.2000 17:30:42
Ahoj,
v aplikacii sa snazim pouzivat %SUBJ%. mam tabulku (TIBTable) tblCat, v nej
fieldy ID, PID, NAME. na to je napojeny datasource dsCat. na dsCat je
napojeny %SUBJ%. Ked sa pokusam otvorit tblCat, vyhlasi mi chybu
tblCat: Cannot perform this operation on a closed dataset.
Poradi niekto?
W2000, D5E + SP1
Jak je to s prodejem orig. Delphi z druhe ruky
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.10.2000 19:05:54
On 7 Oct 2000, at 23:48, Lud�k P�ral wrote:
> Reseni, ktere jsem videl, je postaveno na tom samem, co Zbyskuv
Nekdy nezaskodi podivat se, komu odpovidas. :-) Nechavam celou
puvodni zpravu.
> "LOCALIZATOR", akorat ze to pouzivaji DELPHI. Tzn. ze pri spusteni
> Deplhi se nactou Resource dle prani uzivatele v AJ nebo NJ a vysledny
> kod DLL, EXE atd. obsahuje veskere vyjimky v teto reci, neni jiz co
> lokalizovat. Ano, cesky produkt lze pouzit, pokud nemecky vvojar
> pracuje pro celou evropu. Tam pouziji ne INPRISE, ale Zbyskuv produkt.
> NEKRITIZUJI CESKE VYVOJARE, ALE POSTUP RESENI GLOBLANICH PROBLEMU.
Nevim, jak je delane nemecke Delphi. Ale i v pripade, ze ma
uzivatel moznost vyberu jazyka, pak bude mit "problemy" (resp.
bude mit co lokalizovat), pokud pouzije knihovny tretich stran (napr.
Orpheus, RX atp.). Pikantni na veci je, ze pokud pouzije nekdo
Orpheus a z nej TOvcController, pak si s ITE v D5E ani neskrtne.
> Co mi ale vadilo, ze jsem musel nemeckym kolegum rici - CESKE INPRISE
> MI
> REKLO, ZE INPRISE POUZIVA CELOSVETOVE POUZE AJ. Coz pusobi tak, ze v
> Cechach nepracujeme se spravnymi informacemi.
Zajimave. Ja jsem naopak ziskal pocit, ze americky Borland
prenasi naklady na lokalizaci do nemciny, francouzstiny a
spanelstiny i na nas, protoze dolarova cena u nas byla znacne
vyssi nez v USA. Vsak jsem take kvuli tomu delal hlasity rozruch.
:-)
>
> Ludek Paral
> Sadova 2
> 352 01 As
>
> ludek.paral(zv)telecom(tec)cz
>
> ----- P�vodn� zpr�va -----
> Od: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 6. ��jna 2000 10:57
> P�edm�t: Re: Jak je to s prodejem orig. Delphi z druhe ruky
>
>
> On 5 Oct 2000, at 19:51, Lud�k P�ral wrote:
>
> > Mel jsem nyni v ruce nemecky casopis Entwickler (Vyvojar).
> >
> > Zde je podrobne rozepsana vlastnost vicejazycnosti, vcetne prepinani
> > Delphi s nemeckym, nebo anglickym prostredim. V SRN to ma jednu
> > vyhodu - veskere Exception a resourcestring jsou jiz prelozeny. My v
> > Cechach jak pitomci musime vsichni veskere krizove stavy ovladat
> > vlastnimi vyjimkami.
>
> Pro takovyto postup nevidim nejmensi duvod, pokud se chybova
> hlaska nachazi v programu. Daleko jednodussi je _vymenit_
> anglicke texty za ceske (tedy lokalizovat). Pokud se text importuje
> zvenku, napriklad z nejake DLL (takove BDE, IB, ...), pak jsou na tom
> Nemci stejne jako my.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Full text
[*] Ale� Va���ek�����"q��y�&���w�3 - 8.10.2000 19:17:00
Ahoj,
potreboval bych nejake informace jak se dela indexovani stranek pro
fulltextove vyhledavani. Mam sice nejakou predstavu, ale radeji se necham
poucit. Potreboval bych to udelat v Delphi. Melo by to byt trosku
inteligentni, aby to neindexoval slovo od slova.
Jakykoliv konstruktivni navrh uvitam.
Ales
Internet Explorer
[*] Ale� Va���ek�����"q��y�&���w�3 - 8.10.2000 19:27:17
Ahoj,
potreboval bych poradit s jednou veci. Potreboval bych nacucnout nekam do
svyho programu stranku, kterou si uzivatel prohlizi v exploreru. Staci mi
jenom ten text co uz uzivatel vidi v prohlizi, nemusim mit stranku primo s
tagama.
V podstate potrebuju zjistit vsechny spusteny IE a z nich postupne nacitat
aktivni stranky k sobe do nejakyho stringu. S tim souvisi jeste dalsi vec,
coz je to, ze potrebuju odchytit nejakou zpravu, ze uzivatel klepnul v
prohlizeci na jinej odkaz a explorer mu natahuje jinou stranku, kterou zase
potrebuju "sosnout".
Ales
Osekani app od form
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 8.10.2000 19:34:26
Mno, to si budes muset napsat obsluhu vsech te udalosti, tj. WM_CREATE, WM_CLOSE
apod.
Tohle sem nekdy nekde nasel:
program testwindow;
uses Windows, Messages;
var
WinClass: TWndClassA;
Inst, Handle, Button1, Label1, Edit1: Integer;
Msg: TMsg;
hFont: Integer;
{ Checks if typed password is 'Amigreen' and shows Message }
procedure CheckPassword;
var Textlength: Integer;
Text: PChar;
begin
TextLength := GetWindowTextLength(Edit1);
if TextLength = 8 then
begin
GetMem(Text, TextLength + 1);
GetWindowText(Edit1, Text, TextLength + 1);
if Text = 'Amigreen' then
begin
MessageBoxA(Handle, 'Password is correct.', 'Password check', MB_OK);
FreeMem(Text, TextLength + 1);
Exit;
end;
end;
MessageBoxA(Handle, 'Password is incorrect.', 'Password check', MB_OK);
end;
{ Custom WindowProc function }
function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
{ Checks for messages }
if (lParam = Button1) and (uMsg = WM_COMMAND) then
CheckPassword;
if uMsg = WM_DESTROY then
Halt;
end;
begin
{ ** Register Custom WndClass ** }
Inst := hInstance;
with WinClass do
begin
style := CS_CLASSDC or CS_PARENTDC;
lpfnWndProc := (zv)WindowProc;
hInstance := Inst;
hbrBackground := color_btnface + 1;
lpszClassname := 'AG_TESTWINDOW';
hCursor := LoadCursor(0, IDC_ARROW);
end; { with }
RegisterClass(WinClass);
{ ** Create Main Window ** }
Handle := CreateWindowEx(WS_EX_WINDOWEDGE, 'AG_TESTWINDOW', 'Amigreen
TestWindow 1.00',
WS_VISIBLE or WS_SIZEBOX or WS_CAPTION or WS_SYSMENU,
363, 278, 305, 65, 0, 0, Inst, nil);
{ ** Create a button ** }
Button1 := CreateWindow('Button', 'OK', WS_VISIBLE or WS_CHILD or BS_PUSHLIKE
or BS_TEXT,
216, 8, 75, 25, handle, 0, Inst, nil);
{ ** Create a label (static) ** }
Label1 := Createwindow('Static', '', WS_VISIBLE or WS_CHILD or SS_LEFT,
8, 12, 76, 13, Handle, 0, Inst, nil);
{ ** Create an edit field ** }
Edit1 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or WS_VISIBLE
or
WS_BORDER or ES_PASSWORD, 88, 8, 121, 21, Handle, 0,
Inst, nil);
{ ** Create Font Handle ** }
hFont := CreateFont(-11, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');
{ Change fonts }
if hFont <> 0 then
begin
SendMessage(Button1, WM_SETFONT, hFont, 0);
SendMessage(Label1, WM_SETFONT, hFont, 0);
SendMessage(Edit1, WM_SETFONT, hFont, 0);
end;
{ Change label (static) text }
SetWindowText(Label1, 'Enter password:');
{ Set the focus to the edit control }
SetFocus(Edit1);
UpdateWindow(Handle);
{ ** Message Loop ** }
while(GetMessage(Msg, Handle, 0, 0)) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end; { with }
end.
Roman
> Snazim se osekat mou app. od form ale nejak se v tom prestavam orientovat.
Hlavne bych chtel
> vedet, jak nahradim procedury typu Formxxxx, napr. FormClose, FormCreate, a
vse, co jsem pouzival
> s form.
>
> Dale by mne zajimalo, kdyz uz budu mit jen cisty program bez formu jestli bude
videt v
> CTRL+ALT+DEL, nebo bude bezet jako sluzba?
>
> Dale mi to hazelo chybu na message typu WMendsession a wmqueryendsession,
> tomu taky nerozumim proc.
>Ekvalizer
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 8.10.2000 19:51:27
> Zdravim!
>
> Nevedel by nekdo, jak udelat jednoduchej ekvalizer (nebo jak se tomu nadava)
> ve Windows? Proste potrebuju zjistovat intezitu vystupniho signalu ze
> zvukovky a staci to aplikovat jen pro vystupni wave. Neco takoveho mi dela
> treba i MS Volume Control. Vsichni to urcite znate z hi-fi vezi, jak tam
> porad vyskakuji ty "kominky" ukazujici aktualni rozlozeni a intenzitu
> signalu :)) Presne tohle potrebuju ja, az na to, ze mi staci jen jeden
> "kominek"...Po graficke strance si to vyresim, ale potreboval bych pomoct s
> tim zjistovanim aktualni hodnoty.
Muzes pouzit hodnoty, ktere ti poskytuje mixer tve zvukovky /to je to co se
zobrazuje v MS Volume Control/, na Torry je urcite nejmene jedna komponenta
/nebo muzu poslat svoji/, ma to vsak hacek, ze to nemusi podporovat /spise
nepodporuji/ vsechny zvukove karty. Obavam se, ze
nemuzes zobrazovat signal, ktery sam neprehravas, pokud si nenapises
prostrednika mezi aplikacema a hardwarem... to plati pro vystup, pro vstup to
samozrejme mozne je.
A tem spoustum kominkum se rika spektralni analyzer :-)
Roman
OT: Ceska Delphi Was: Jak je to s prodejem orig. D
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 8.10.2000 19:52:35
No nevim, asi mam stesti, ze preklad do cestiny uz mi nedela problemy a na
druhou stranu vam zavidim vase zakazniky, ti mi 10x odklepnou chybobou zpravu
",100,-korun neni spravne zadana castka" nez je napadne si ji precist, nedejboze
kdyby tam bylo od inprisu napsano "Vstupni hodnota zadana v poli 'Castka' neni
spravne zadane realne cislo." :-)))
Dik, ale tech par hlasek si radeji prelozim sam, pro ten ktery specialni
pripad... nez aby me tu nekdo porad volal, a rikal mi, ze mu to napsalo to a to
a co to je...
Nemluve o tom, ze pod lokalizaci Delphi si nepredstavuju jen prelozeni zdroju!!!
A nemluve o knihovnach ze tretich stran apod... ale to je na delsi povidani a
sme
uz OT... no more comments.
Roman
> Jedna vec je technologie prekladu a pouziti softwaru pro svet. Druha je ta,
> ze kazdy vyvojar v CR si musi pro cesky trh provest svuj preklad hlasek
> Delphi. Pokud ale v jine zemi maji volbu menit prostredi v materstine pro
> tuzemsky trh nebo v anglictine pro svet, jedna se v danem pripade o obrovske
> casove uspory. Pres vsechny superlativy na adresu tuzemskych programatoru,
> kolik % projektu Delphi je 100 % prelozeno a kolik to stoji usili?
Full text
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.10.2000 20:32:27
Ahoj,
podivej se na vypis z prednasek Dokumentrograficke Informacni
Systemy:
http://www.ms.mff.cuni(tec)cz/~kopecky/dis/
Slavek
> Ahoj,
>
> potreboval bych nejake informace jak se dela indexovani stranek pro
> fulltextove vyhledavani. Mam sice nejakou predstavu, ale radeji se necham
> poucit. Potreboval bych to udelat v Delphi. Melo by to byt trosku
> inteligentni, aby to neindexoval slovo od slova.
>
> Jakykoliv konstruktivni navrh uvitam.
>
> Ales
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
pocet radku v souboru
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.10.2000 20:35:06
Ahoj,
zkousel jsi
sl := TStringList.Create;
sl.LoadFromFile ('filename');
Result := sl.Count;
sl.Free;
?
Dalsi mozne zrychleni by mohlo byt namapovani souboru do
pameti.
Slavek
> nemohl by mi prosim nekdo poradit, jak co nejrychleji zjistit pocet radku v
> souboru? Jde o textovy soubor, delam to tak, ze nacitam jednotlive radky a
> inkrementuju citac. Ale pri 10MB souboru to docela i trva...
>
> dik za radu
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Klavesnice
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 8.10.2000 20:38:15
Ahoj, uz jsem se ptal dvakrat a zatim jsem nedostal zadnou odpoved. Tak to
zkousim jeste jednou - strasne nutne to potrebuju:
nevi nekdo z vas, jak pomoci D5 ZAMKNOUT klavesnici a pak ji zase ODEMKNOUT,
pripadne, jak
provest nahradu znaku ve fronte klavesnice za jiny. (Tedy, aby stisknute A
vyvolalo B).
predem tisicere diky...
Mirek Drancak
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
Delphi 5 ENT, ADO + MSSQL2000
[*] Delphi Newsgroup <DELPHI(zv)wsc(tec)cz> - 8.10.2000 21:00:52
Dalsi postrehy:
Chyba je pravdepodobne v kombinaci ADO komponent Delphi a novych ADO
komponent od Microsoftu dodavanych s MSSQL2000, resp. rozdilnym chovani nove
verze ADO komponent od Microsoftu.
Po ladeni VCL knihovny jsem zjistil, ze chyba je zpusobena v
TCustomADODataSet.InternalClose prikazem Recordset.CancelUpdate, ktery v
pripade, ze tabulka (dotaz) je ve stavu EOF vyvola chybu (Either BOF or EOF
is True, or the current record has been deleted. Requested operation
requires a current record.)
S tim souvisi i muj dalsi dotaz: jak je mozno udelat zmenu do VCL kdyz
aplikace pouziva run-time balicky?
Predem diky
Michal HAMPL
HAMPL(zv)WSC.CZ
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Tomas Bradle
Sent: Sunday, October 08, 2000 5:03 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Delphi 5 ENT, ADO + MSSQL2000
Zdravim,
----- Original Message -----
From: Delphi Newsgroup <DELPHI(zv)wsc(tec)cz>
To: Delphi konference <DELPHI-L(zv)fwd(tec)cz>
Sent: Sunday, October 08, 2000 2:57 PM
Subject: Delphi 5 ENT, ADO + MSSQL2000
> Zdravim vsechny Delphare.
>
> Prave testujeme novy MSSQL2000 a narazili jsme na jeden problem tykajici
se
> pripojeni pres ADO komponenty dodavane s Delphi 5 Enterprise. Jedna se o
> nasledujici:
>
> (DELPHI 5 ENT, MSSQL2000, WIN2000Prof)
>
> Mam ADOConnection1: TADOConnection
> ConnectionString = 'Provider=SQLOLEDB.1;Persist Security Info=False;
> User ID=sa;Initial Catalog=DATABAZE;Data Source=(local)'
> Dale ADOQuery1: TADOQuery
> Connection = ADOConnection1
> SQL.Text = 'SELECT * FROM TABULKA'
>
> Ostatni property jsou vychozi
>
> Nasledujici kod zpusobi chybu:
>
> ADOQuery1.Open;
> while not ADOQuery1.EOF do
> ADOQuery1.Next;
> ADOQuery1.Close; // Tady nastane chyba
> Either BOF or EOF is True, or the current record has been deleted.
> Requested operation requires a current record.
>
> Je jasne, ze mu vadi, ze ADOQuery je v pozici EOF, ale v predchozi verzi
> MSSQL to nevadilo a vse fungovalo tak jak melo(?). Pomuze umisteni
> ADOQuery1.First nebo podobneho prikazu pred provedeni Close, ale to podle
> mne neni univerzalni reseni.
>
> Dalsi postrehy: stejna chyba nastane i pri pouziti komponenty TADOTable
nebo
> pri pouziti ADO komponent treba s providerem Microsoft.Jet.OLEDB.4.0, coz
> znamena, ze chyba neni v MSSQL, ale asi v ADO OCX, ktere dodava Microsoft
S
> MSSQL2000.
Podle toho Jet.OLEDB bych rek, ze to bude spis otazka OLEDB (jakou mas
verzi?), s pristupem pres ODBC na SQL2000 to nedela ? Ja jsem zaznamenal
rozdily v chovani pri ruznych verzich OLEDB a pri pouziti OLEDB a ODBC
provideru. Pozot napr. MS Office 2000 taky pridavaji OLEDB komponenty a to
mi ovlivnilo i pristup na SQL (tedy zatim jen 7.0).
Hodne zdaru.
Tomas
pocet radku v souboru
[*] Ale� Va���ek�����"q��y�&���w�3 - 8.10.2000 21:05:13
Co zkusit pouzit TFileStream.
Ales
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Milan ��ek
> Sent: Sunday, October 08, 2000 3:06 PM
> To: Delphi konference
> Subject: pocet radku v souboru
>
>
> nemohl by mi prosim nekdo poradit, jak co nejrychleji zjistit
> pocet radku v
> souboru? Jde o textovy soubor, delam to tak, ze nacitam jednotlive radky a
> inkrementuju citac. Ale pri 10MB souboru to docela i trva...
>
> dik za radu
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>Klavesnice
[*] Ale� Va���ek�����"q��y�&���w�3 - 8.10.2000 21:22:23
Ahoj
> pripadne, jak
> provest nahradu znaku ve fronte klavesnice za jiny. (Tedy, aby stisknute A
> vyvolalo B).
>
> predem tisicere diky...
>
> Mirek Drancak
>
nevim jak tohle presne myslis, ale kdyz das na formu KeyPreview na True a
das na from Memo a doplnis:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = 'a' then Key := 'b';
end;
pak to ty klavesy vymeni. Jestli to neni ono, tak sorry.
ALES
CTRL+A, CTRL+C
[*] Ale� Va���ek�����"q��y�&���w�3 - 8.10.2000 21:53:34
Zdravim,
stale se mi nedari rozchodit kopirovani textu do schranky z jine aplikace.
Najde se nekdo kdo mi poradi jak to udelat. Potrebuju nejake aplikaci (treba
notepad) poslat sekvenci klaves CTRL+A a CTRL+C.
Potrebuju vedet jak do toho vlozim klavesu CTRL (Z helpu nejsem moc
chytrej):
PostMessage(Handle, WM_KEYDOWN, [CO MAM DAT SEM?], [CO MAM DAT SEM?]);
PostMessage(Handle, WM_KEYUP, [CO MAM DAT SEM?], [CO MAM DAT SEM?]);
Simulovat stisk klavesy bez CTRL umim, ale jak tam dostal jeste ten CTRL?
Ales
Datab�ze Accessu
[*] Erik Salaj <winsoft(zv)napri.sk> - 8.10.2000 23:33:43
r�d bych se v�s zeptal, jak bych mohl ud�lat prohl�e� tabulek v datab�zi MS Accessu. Pokou�el sem se ho ud�lat, ale probl�m byl, �e jsem nedok�zal zjistit
nazvy tabuliek je mozno zistit pomocou DAO alebo ADOX.
n�zvy tabulek, ale to nen� m�j hlavn� probl�m. Nejv�t�� probl�m je, �e kdy� jsem dal table.open, tak to po m� cht�lo login do datab�ze.... jm�no a heslo.... ale j�
u t� datab�ze ��dn� jm�no ani heslo nem�m.... v accessu jde otev��t v pohod�.... zkou�el jsem snad v�echny jm�na a hesla, co m� napadly, ale neusp�l jsem.
Mo�n� exisuje n�jak� standartn� heslo a jm�no.
skus uzivatela Admin a heslo prazdne
Erik Salaj, WINSOFT
Delphi 5 ENT, ADO + MSSQL2000
[*] Erik Salaj <winsoft(zv)napri.sk> - 9.10.2000 00:02:58
> Chyba je pravdepodobne v kombinaci ADO komponent Delphi a novych ADO
> komponent od Microsoftu dodavanych s MSSQL2000, resp. rozdilnym chovani
nove
> verze ADO komponent od Microsoftu.
Ano, je to problem spoluprace ADOExpress-u s novym ADO 2.6,
ktore je v MS SQL 2000.
> Po ladeni VCL knihovny jsem zjistil, ze chyba je zpusobena v
> TCustomADODataSet.InternalClose prikazem Recordset.CancelUpdate, ktery v
> pripade, ze tabulka (dotaz) je ve stavu EOF vyvola chybu (Either BOF or
EOF
> is True, or the current record has been deleted. Requested operation
> requires a current record.)
Ano, ale preco ADOExpress robi CancelUpdate, ked na to
nie je ziaden dovod? ADO odozva je v tomto pripade korektna.
> S tim souvisi i muj dalsi dotaz: jak je mozno udelat zmenu do VCL kdyz
> aplikace pouziva run-time balicky?
Na webe je novy patch pre ADOExpress, ktory by to mal riesit
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=14080
Erik Salaj, WINSOFT
Funkcny konvertor VB -> Delphi
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 9.10.2000 04:37:16
Caute
nemate niekto FUNKCNY konvertor z VB - Delphi?
Dik
P
Trosku vetsi SQL.log
[*] Ren� Otisk - 9.10.2000 06:24:31
Hi,
Jsem trosicku zmaten. Mam na NT 4.0 masince MS SQL 7.0 a ten mi vytvari
SQL.log soubor. Jenze ten uz ma nejak pres 1GB a kdyz jej chci odmazat, tak
mi nadava (Sharing violation nebo In Use a tak podobne). Zkousel jsem
zastavit sluzby MS SQL serveru, zkousel jsem odebrat mu prava administratora
a posleze vsech useru a pak si jej priblastnit na jiny ucet ale odmita se se
mnou bavit. Napada me jen restart a nabootovat na jiny system. Jenze to je
masinka, ktera musi byt 24 hodin v provozu... Nevite nekdo co s tim (krom
format C: a jinych extremnich postupu)?
Sroub
pocet radku v souboru
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.10.2000 06:51:23
Zalezi na tom, k cemu to slouzi. jestli soubor zobrazujes v nejakem svem
prohlizeci a chces zobrazovat pocty radku, da se to udelat tak, ze jej
zobrazis okamzite a v dalsim vlaknu si spocitas radky, ktere se ti zobrazi
az za chvili. TStringList asi nebude rychlejsi nez nez zjistovani v cyklus,
ale rozhodne by asi pomohlo namapovani do pameti.
Jean Fiala
----- Original Message -----
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>> nemohl by mi prosim nekdo poradit, jak co nejrychleji zjistit pocet radku
v
> souboru? Jde o textovy soubor, delam to tak, ze nacitam jednotlive radky a
> inkrementuju citac. Ale pri 10MB souboru to docela i trva...
>
> dik za radu
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>Kde sehnat algoritmy
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 9.10.2000 07:06:45
Ahoj
delam ted jeden program kde potrebuji zjistit nejkratsi cestu mezi dvema
body A B(znam jejich souradnice). Zakladem je dvourozmerne pole z integeru,
jehoz rozmery jsou souradnice x,y. Kazda polozka pole ma hodnotu 0 nebo
vetsi(prekazky - nelze se pres ne pohybovat). Po poli je mozno se pohybovat
pouze vertikalne nebo horizontalne. Nemate uz nekdo neco podobneho hotoveho
a nebo kde se da na internetu neco najit (me se zatim nepodarilo najit
nic)?.
Jeste bych potreboval poradit, kde sehnat nejaky algoritmus na hrani
piskvorku, nebo aspon jeho popis.
Dekuji
CGI na IIS, pristupova prava
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.10.2000 07:18:05
> Mam takovy dotaz:
> Udelal jsem si aplikaci pro generovani HTML stranek a tu jsem umistil
> pod IIS 4.0 Pravdepodobne vzhledem k tomu, ze pouzivam BDE mi to ovsem
> hlasi, ze nemam dostatecna prava pro beh aplikace. Pokud se nahlasim
> jako nekdo s vyssimy pravy, beha vse bez problemu. Chtel bych se
> zeptat, jak IIS nastavit, aby to fungovalo k me spokojenosti i pod
> anonymous uzivatelem? To ze se tento uzivatel muze premapovat? na
> nekoho jineho vim, ale nejsem si jist, jestli to je dobra cesta,
> popripade bych rad nastavil tomuto uctu co nejmensi prava.
>
> Dekuji za kazdou radu.
>
Ahoj,
mozna to je v tomto pripade uplne mimo, ale z drivejska vim, ze
BDE za jistych okolnosti pouziva docasne soubory. Typickym
prikladem jsou tusim cached updates. S tim jsem narazil, kdyz
jsem se snazil dat kdysi svou aplikaci na sitovy disk jen pro cteni.
Mozna by pomohlo nastavit PrivateDir nekam, kam jsou prava i pro
zapis.
David
Jak programove zjistit verzi Comctl32.dll?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.10.2000 07:44:48
> sleduji Vasi diskusi o zjisteni verze comctl32.dll pro naslednou
> instalaci comctl32.dll. Ja zatim instaluji comctl32.dll spustenim
> instalacniho programu 401comupd.exe nebo 50comupd.exe. Zajimal by me
> postup jak instalujete comctl32.dll z vlastniho programu. Za odpoved
> dekuji.
Pokud si vzpominam na nejake licencni povidani, tak cesta pres
50comupd.exe apod. je jedina legalni. Zjistovat verzi ale muze mit
smysl kvuli tomu, aby se ten instalak nepoustel zbytecne v
pripadech, kdy to neni potreba.
David
>
> ----- P�vodn� zpr�va -----
> Od: Jaroslav Nadhera <nadhera(zv)csh(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 5. ��jna 2000 14:54
> P�edm�t: Re: Jak programove zjistit verzi Comctl32.dll?
>
>
> > Na zjisteni verze pouzivam proceduru:
> >
> > function VersionNumber(const FileName: String): TVersionNo;
> > var
> > VerInfo: Pointer;
> > Len, BufSize: {$ifdef
> > DelphiLessThan4}Integer{$else}Cardinal{$endif}; Dest:
> > PVSFixedFileInfo;
> > begin
> > FillChar(Result, SizeOf(Result), 0);
> > file://How big is version info?
> > BufSize := GetFileVersionInfoSize(PChar(FileName), Len);
> > if BufSize > 0 then
> > begin
> > file://Reserve sufficient memory
> > GetMem(VerInfo, BufSize);
> > try
> > file://Get version information
> > if GetFileVersionInfo(PChar(FileName), 0, BufSize, VerInfo)
> > then
> > file://Get translation table
> > if VerQueryValue(VerInfo, '\', Pointer(Dest), Len) then
> > with Dest^ do
> > begin
> > Result.MS := dwFileVersionMS;
> > Result.LS := dwFileVersionLS
> > end
> > finally
> > file://Free sufficient memory
> > FreeMem(VerInfo, BufSize)
> > end
> > end
> > end;
>
>
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
>
>
Datab�ze Accessu
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 9.10.2000 07:53:09
Zkus v TDatabase nastavit LoginPromt na False.
Martin
----- Original Message -----
From: delphi
To: delphi-l(zv)fwd(tec)cz
Sent: Sunday, October 08, 2000 5:16 PM
Subject: Datab�ze Accessu
Dobr� den,
r�d bych se v�s zeptal, jak bych mohl ud�lat prohl�e� tabulek v datab�zi MS Accessu. Pokou�el sem se ho ud�lat, ale probl�m byl, �e jsem nedok�zal zjistit n�zvy tabulek, ale to nen� m�j hlavn� probl�m. Nejv�t�� probl�m je, �e kdy� jsem dal table.open, tak to po m� cht�lo login do datab�ze.... jm�no a heslo.... ale j� u t� datab�ze ��dn� jm�no ani heslo nem�m.... v accessu jde otev��t v pohod�.... zkou�el jsem snad v�echny jm�na a hesla, co m� napadly, ale neusp�l jsem.
Mo�n� exisuje n�jak� standartn� heslo a jm�no.
D�ky za radu. Ivan �varc
Excel a Unassigned
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 9.10.2000 08:14:34
Ahoj !
Vo svojej aplikacii pracujem s Excelom cez OLE Automation a narazil som na
nasledujuci problem:
vytvorim si OLE objekt cez
ex:=CreateOleObject('Excel.Application');
Potom si otvorim subor, ktory existuje a zapisujem do neho a na konci
nastavim Visible na True. Potialto to vsetko funguje ako ma.
Na konci urobim nieco ako ex:=Unassigned. Ked v Exceli zatvorim subor, ktory
som otvoril, Excel vykona neplatnu operaciu a skonci (Ak zatvorim cely
Excel, je vetko v poriadku). Problem je zrejme v tom, ze po prikaze
ex:=Unassigned sa Excel z pamati neuvolni. Skusal som aj pred ex:=Unassigned
dat ex.application.quit a potom cez ShellExecute otvorit dany subor, ale
vysledok je este horsi - otvori sa sice Excel, ale je bez odpovede.
Skusal som to aj cez Serverovske komponenty a tam vsetko funguje ako ma, ale
nexce sa mi to vsetko prerabat, navyse tieto komponenty vyzaduju
naistalovane DAO.
Predom dakujem za kazdu radu.
Transakcni log 2
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.10.2000 08:19:28
> domnivam se, ze v transakcnim logu MS SQL Serveru 7 jsou ulozeny
> informace ohledne na velmi nizke urovni (fyzicke adresy na HDD, ...
> ??), nikoliv vsak SQL prikazy. Tim padem neni mozne nahlednout do
> provadenych SQL prikazu (Pro ladeni je mozne pouzit Profiler.).
Ahoj,
ano, je to tak. Kolega posilal tento dotaz na support MS a tam mu
odpovedeli, ze transakcni log v MSSQL7 obsahuje zmenene datove
stranky, nikoli prikazy, ktere zmenu provedly.
Ucel, k nemuz jsem to chtel pouzit, ale nebyl ladeni. U
zakaznika totiz zmizel z jedne tabulky radek, ktery tam drive
prokazatelne byl, a nikdo se k jeho smazani nehlasi. Dokonce
vyrukovali s tim, ze za to muze nas program. Chtel jsem proto
vedet, zda to nejde nejak dohledat. Od ted sice muzeme v triggeru
delat nejake logovani, ale otazky do minulosti to nezodpovi.
Ale dekuji za odpoved :)
David
> > Ahoj,
> >
> > zkousim jeste jednou...opravdu nikdo nevite o nejake moznosti, jak
> > prohlednout transakcni log na MSSQL7 serveru? Nebo nejakou jinou
> > cestu, jak se podivat do historie cinnosti. To je prece vec, ktera
> > by mela byt pomerne potrebna a prislo by mi jako zvlastni, ze to
> > nejde.
> >
> > Nebo to opravdu nejde?
> >
> > David
>
>
Trideni CH v Interbase
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 9.10.2000 08:21:43
ahoj,
> Je tedy podle meho nazoru otazka, nakolik ma smysl menit
> trideni PXW_CSY na
> "knizni", kdyz na nej neni nikdo zvykly. Nebylo by spis lepsi
> vytvorit nove trideni?
> Brichna
imho je to jedno, ja si do tedka myslel, ze ani nic jineho nez "knizni"
trideni neni spravne :(.
ale zase pokud se to hodi do win1250 nebo pxw_csy, tak tnemusim altrovat
databaze, tabulky popripade sloupce a bude to rovnou fungovat :)
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
Datab�ze Accessu
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 9.10.2000 08:52:13
Zdravim,
zalezi na tom, jak se pripojujete na ty tabulky. Ja to delam pres ODBC a pak
pres TTable atd. Pak se zbavite otazky na heslo pres TDatabase a jeji metodu
LoginPrompt (nebo tak nejak)
S pozdravem
M.S.
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
delphi
Odesl�no: 8. ��jna 2000 17:16
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Datab�ze Accessu
Dobr� den,
r�d bych se v�s zeptal, jak bych mohl ud�lat prohl�e� tabulek v datab�zi
MS Accessu. Pokou�el sem se ho ud�lat, ale probl�m byl, �e jsem nedok�zal
zjistit n�zvy tabulek, ale to nen� m�j hlavn� probl�m. Nejv�t�� probl�m je,
�e kdy� jsem dal table.open, tak to po m� cht�lo login do datab�ze.... jm�no
a heslo.... ale j� u t� datab�ze ��dn� jm�no ani heslo nem�m.... v accessu
jde otev��t v pohod�.... zkou�el jsem snad v�echny jm�na a hesla, co m�
napadly, ale neusp�l jsem.
Mo�n� exisuje n�jak� standartn� heslo a jm�no.
D�ky za radu.
Ivan �varc
Kompilacia IB6
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 09.10.2000 08:53:45
"Ing. Patrik Tesar" wrote:
>
> Predpokladam, ze to bolo robene na kompilaciu v BC++
Nebylo. Na platforme Windows to puvodne bylo urceno ke kompilaci v MS
VC++ (z duvodu, ktere dnes jiz neplati). Sam IB6 nekompiluji, takze
aktualni stav neznam, ale urcite pujde najit spravne odkazy na
http://www.ibphoenix.com nebo http://www.interbase2000.org
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Otev�en� okna IE
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 9.10.2000 08:57:31
Cauec,
potrebuju otevrit z Delphi okno internetovskyho prohlizece, coz bych vedel,
ale:
- potrebuji ho otevrit bez tlacitkove listy
- a s definovanou velikosti
Muze mi nekdo poradit, jake parametry lze pouzit pri otvirani exploreru ?
Vim, ze se to tu uz kdysi davno nekde vyskytlo, ale hledam zatim marne.
Dekuji
Bye Ludan
assembler
[*] Tom� Vlad�k������V��?���o�� - 9.10.2000 09:07:56
>
> Nevite nekdo kde se da sehnat turbo assembler ?
> Jan Neu�il
Zkus se podivat na community.borland.com
Kompilacia IB6
[*] Karel B�ich��� - 9.10.2000 09:12:09
>> Cim je mozne skompilovat IB6 source ?
> Predpokladam, ze to bolo robene na kompilaciu v BC++
>
> P.
No nevim, toto napriklad pisou v souboru INCLUDE.MAK v buildu pro Win32:
# This is the common makefile that is included in the component
# makefiles. This set of makefiles is designed to work with
# Borland Make, and will use both Borland and Microsoft compilers.
#
# There are three command-line defines flags that are used by the
# makefiles:
# -DDEV - build a dev build (default: production build)
# -DBORLAND - use Borland C (default: Microsoft C)
# -DCLIENT - build client side stuff (default: server)
#
# Depending on the options passed in, the output files go in
# different directories. This allows one source tree to
# target DEV and PROD builds on multiple compilers without
# clobbering eachother.
#
# The last complexity is the CLIENT vs SERVER libraries. If you need
# to link a program, use one of the following link flags.
# SHRLIB_LINK = client link library
# SVRLIB_LINK = server link library
#
# This is NOT tested with Borland C, if you want to build using Borland C,
# you'll need to do a little work.
Takze makefiles budou spise odladeny pro Microsoft C.
Brichna
CTRL+A, CTRL+C
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 9.10.2000 09:27:12
Ahoj,
mozna je to mimo misu, ale rekl bych, ze musis pridat jeste msg WM_KEYDOWN
pred znak a WM_KEYUP po znaku pro klavesu Ctrl. Help na WM_KEYDOWN a
WM_KEYUP je v helpu k SDK.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: CTRL+A, CTRL+C
>
>
> Zdravim,
>
> stale se mi nedari rozchodit kopirovani textu do schranky z
> jine aplikace.
> Najde se nekdo kdo mi poradi jak to udelat. Potrebuju nejake
> aplikaci (treba
> notepad) poslat sekvenci klaves CTRL+A a CTRL+C.
>
> Potrebuju vedet jak do toho vlozim klavesu CTRL (Z helpu nejsem moc
> chytrej):
>
> PostMessage(Handle, WM_KEYDOWN, [CO MAM DAT SEM?], [CO MAM
> DAT SEM?]);
> PostMessage(Handle, WM_KEYUP, [CO MAM DAT SEM?], [CO MAM DAT SEM?]);
>
> Simulovat stisk klavesy bez CTRL umim, ale jak tam dostal
> jeste ten CTRL?
>
> Ales
>
Kde sehnat algoritmy
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 9.10.2000 09:46:36
Rekurzivni prohledavani stromu,
postupoval bych asi takto:
1. najit nejakou cestu
2. prohladavanim stromu.
pokud najdu kratsi cestu, tak si ji zapamatuju,
pokud delka presahne jiz nalezenou cestu, zbytek
vetve stromu jiz neprohledavam.
Slavek
>
> Ahoj
> delam ted jeden program kde potrebuji zjistit nejkratsi cestu mezi dvema
> body A B(znam jejich souradnice). Zakladem je dvourozmerne pole z integeru,
> jehoz rozmery jsou souradnice x,y. Kazda polozka pole ma hodnotu 0 nebo
> vetsi(prekazky - nelze se pres ne pohybovat). Po poli je mozno se pohybovat
> pouze vertikalne nebo horizontalne. Nemate uz nekdo neco podobneho hotoveho
> a nebo kde se da na internetu neco najit (me se zatim nepodarilo najit
> nic)?.Session.PrivateDir
[*] mbartone(zv)Synthesia(tec)cz - 9.10.2000 09:56:09
Ahoj,
D3 C/S, MS SQL 7.0, nativni link
Pokud mam v aplikaci nastaveno
Session1.NetFileDir := tempdir+'pasport\';
Session1.PrivateDir := tempdir+'pasport\';
lze tuto aplikaci spustit jen jednou. Druhe spusteni napise "Directiry is
busy".
Pokud PrivateDir nepouziji lze aplikaci spustit nekolikrat (ale pomocne
soubory se ukladaji do adresare odkud je aplikace spustena).
Jak co nastavit, aby aplikace sla spustit nekolikrat a pritom se vse
odkladalo do urceneho adresare ?
Milan
CTRL+A, CTRL+C
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 9.10.2000 09:58:57
Nekde na inst. CD v nejakem adresari (neco jako Add...) je unita,
myslim, ze se jmenuje nejak jako sendkeys na posilani klaves aplikacim.
To by snad mohlo pomoct :-)
--
Jan Cejka
MERLIN spol. s r.o.
Otakarova 15, 140 00 Praha 4 - Nusle
tel.: 02-41 010 111
> -----P�vodn� zpr�va-----
> Od: Ale� Va���ek [mailto:vasicek(zv)ecommerce(tec)cz]
> Odesl�no: 8. ��jna 2000 21:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: CTRL+A, CTRL+C
>
>
> Zdravim,
>
> stale se mi nedari rozchodit kopirovani textu do schranky z
> jine aplikace.
> Najde se nekdo kdo mi poradi jak to udelat. Potrebuju nejake
> aplikaci (treba
> notepad) poslat sekvenci klaves CTRL+A a CTRL+C.
>
> Potrebuju vedet jak do toho vlozim klavesu CTRL (Z helpu nejsem moc
> chytrej):
>
> PostMessage(Handle, WM_KEYDOWN, [CO MAM DAT SEM?], [CO MAM
> DAT SEM?]);
> PostMessage(Handle, WM_KEYUP, [CO MAM DAT SEM?], [CO MAM DAT SEM?]);
>
>
> Simulovat stisk klavesy bez CTRL umim, ale jak tam dostal
> jeste ten CTRL?
>
>
> Ales
> PrehravAni mp3 mediaplayer?
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 9.10.2000 10:25:15
Dobry den Vsem,
Otazka je nasledujici. Nasel jsem v historii konference zminku, ze novy
mediaplayer dokaze prehravat i mp3. To mne neobycejne potesilo. Momentalne
bojuji s jednim problemem. Pokud dam MediaPlayer1.Filename:='c:\xy.mp3' a
otevru ho s device type auto je vse v klidu. Jakmile vsak se pkusim o
podobny trik s prirazenim jmena ziskaneho pres findfirst/next Zahlasi, chybu
mmci ze nezna ovladac nebo jej nemuze otevrit. Co s tim? Pripadne co dat do
DEVICETYPE natvrdo. Diky za kazdou radu a pardon, ze se takl vykecavam :-)
J. Vojt.Session.PrivateDir
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.10.2000 10:53:18
----- Original Message -----
From: <mbartone(zv)Synthesia(tec)cz>> Ahoj,
>
> D3 C/S, MS SQL 7.0, nativni link
>
> Pokud mam v aplikaci nastaveno
> Session1.NetFileDir := tempdir+'pasport\';
> Session1.PrivateDir := tempdir+'pasport\';
>
> lze tuto aplikaci spustit jen jednou. Druhe spusteni napise "Directiry is
> busy".
> Pokud PrivateDir nepouziji lze aplikaci spustit nekolikrat (ale pomocne
> soubory se ukladaji do adresare odkud je aplikace spustena).
>
> Jak co nastavit, aby aplikace sla spustit nekolikrat a pritom se vse
> odkladalo do urceneho adresare ?
>
> Milan
NetDir musi byt nastaveny na sdileny adresar
Jan Fiala
Kde sehnat algoritmy
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 9.10.2000 11:34:07
Ahoj,
mas matici A (nxn).
Iteruj na ni operace A := A*A,
kde A*A je definovano
Aij := min (aik+akj) , min pocitat pres k = 1 ... n
A znaci jak rychle se dostanes z bodu x do y jednim tahem
A po prvni iteraci znaci jak rychle se dostanes z x do y po maximalne dvou tazich
A po druhe iteraci znaci jak rychle se dostanes z x do y po maximalne ctyrech tazich
A po treti iteraci znaci jak rychle se dostanes z x do y po maximalne osmi tazich
...
(Ma smysl delat jen dokud X < n, kde X jsem sebral z toho "... po maximalne X tazich")
S pozdravem, Lada
Ahoj
delam ted jeden program kde potrebuji zjistit nejkratsi cestu mezi dvema
body A B(znam jejich souradnice). Zakladem je dvourozmerne pole z integeru,
jehoz rozmery jsou souradnice x,y. Kazda polozka pole ma hodnotu 0 nebo
vetsi(prekazky - nelze se pres ne pohybovat). Po poli je mozno se pohybovat
pouze vertikalne nebo horizontalne. Nemate uz nekdo neco podobneho hotoveho
a nebo kde se da na internetu neco najit (me se zatim nepodarilo najit
nic)?.
Jeste bych potreboval poradit, kde sehnat nejaky algoritmus na hrani
piskvorku, nebo aspon jeho popis.
Dekuji
SQL a FoxPro
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 09.10.2000 11:56:03
Zdravim,
mam tady jeden problem. Pri vytvareni Tabulky pomoci SQL dotazu (komponentou Query) vypada vse Ok. Bohuzel, kdyz tuto tabulku chci otevrit ve FoxPro v.2.0 tak program tuto akci nevykona. Napise ze "Soubor neni databazi".
Nevite prosim nekdo co s tim?
Diky
CTRL+C, CTRL+V
[*] tungli(zv)datapac.sk - 9.10.2000 12:06:12
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Neviem ci to bude fungovat ale mal by to byt takto:
Musis poslat kod na dva krat:
1. Posled CTRL (co je kod 17) (SHIFT je kod 16) ako KeyDown (bez keyUp)
2. Potom posles znak C KeyUp
Prosim napis mi ci to funguje.
Tungli Jan
pocet radku v souboru
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 09.10.2000 12:19:20
Ahoj,
zkzusil bych to nacitat jako netypovy soubor do bufferu treba po 64k a
v bufferu poak pocitat vyskyty $0A (line feed).
Vaclav Sazima
Milan ��ek wrote:
>
> nemohl by mi prosim nekdo poradit, jak co nejrychleji zjistit pocet radku v
> souboru? Jde o textovy soubor, delam to tak, ze nacitam jednotlive radky a
> inkrementuju citac. Ale pri 10MB souboru to docela i trva...
>
> dik za radu
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Kde sehnat algoritmy
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 9.10.2000 12:24:02
A mohl bych se zeptat jak sestavim vtomto pripde strom ?
moje teorie:
vytvorit pole reprezentujici strom napr. striktura: bod int xrodice, int
yrodice;
1.jako root zvolit jeden z bodu A nebo B
2.prochazet body kolem rootu(splnujici kriteria ze se da pres ne tahnout tj
bod = 0) tj. x-1,x+1,y-1,y+1 a pridat je jako deti rootu
3. opakovat bod 2 s vychozimy body ziskanymi z bodu 2, ale vyjmout z toho
body, ktere jiz ve stromu existuji.
Je to tak spravne ?
-----Original Message-----
From: Slavomir Skopalik [mailto:skopalik(zv)atlas(tec)cz]
Sent: Monday, October 09, 2000 9:47 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Kde sehnat algoritmy
Rekurzivni prohledavani stromu,
postupoval bych asi takto:
1. najit nejakou cestu
2. prohladavanim stromu.
pokud najdu kratsi cestu, tak si ji zapamatuju,
pokud delka presahne jiz nalezenou cestu, zbytek
vetve stromu jiz neprohledavam.
Slavek
>
> Ahoj
> delam ted jeden program kde potrebuji zjistit nejkratsi cestu mezi dvema
> body A B(znam jejich souradnice). Zakladem je dvourozmerne pole z
integeru,
> jehoz rozmery jsou souradnice x,y. Kazda polozka pole ma hodnotu 0 nebo
> vetsi(prekazky - nelze se pres ne pohybovat). Po poli je mozno se
pohybovat
> pouze vertikalne nebo horizontalne. Nemate uz nekdo neco podobneho
hotoveho
> a nebo kde se da na internetu neco najit (me se zatim nepodarilo najit
> nic)?.SQL a FoxPro
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.10.2000 13:04:46
Pokud mas v definici nativniho driveru TableLevel vetsi jak 2.5, tak se
vytvari tabulke, ve ktere jsu cisla v nativnim formatu, s cimz si FP 2.0
neporadi. Oprav si to v BDE administratoru a melo by to yt OK.
Jan Fiala
----- Original Message -----
From: "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz>>Zdravim,
>mam tady jeden problem. Pri vytvareni Tabulky pomoci SQL dotazu
(komponentou Query) vypada >vse Ok. Bohuzel, kdyz tuto tabulku chci otevrit
ve FoxPro v.2.0 tak program tuto akci nevykona. >Napise ze "Soubor neni
databazi".
>Nevite prosim nekdo co s tim?
>Diky
Session.PrivateDir
[*] Tomas Vladik������V��?���o�� - 9.10.2000 13:17:14
> Pokud mam v aplikaci nastaveno
> Session1.NetFileDir := tempdir+'pasport\';
> Session1.PrivateDir := tempdir+'pasport\';
>
> lze tuto aplikaci spustit jen jednou. Druhe spusteni napise "Directiry is
> busy".
A coz takle kazde spustene instanci vytvorit unikatni PrivateDir?
T.
IB6: struktura databaze programove
[*] Ota Maly <maly(zv)space(tec)cz> - 9.10.2000 13:25:00
Ahoj,
snazim se programove vytvorit DB (ze skriptu), ale nedari se mi.
Pokud mam IBDatabase, IBTransaction a IBSQL tak vytvorim databazi, tabulky i
generatory, ale nedari se mi poslat tam trigger.
Take me napadlo volat externe isql.exe, na tom ted pracuju, uvidime..
Jak to resite vy?
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
Trosku vetsi SQL.log
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 9.10.2000 13:40:33
Zdravim!
Je pot�eba nastavit ve vlastnostech databaze Auto Shrink a Truncate Log on
Checkpoint, Auto
Close, Auto Create Statistics, Auto Update Statistics. SQL Server si po
nejake dobe ten Log zkrati sam. Pokud tak neudela, je potreba provest Backup
a Restore databaze.
Velmi zadouci je taky nastavit Schedulov�n� Shrink datab�ze TempDb - to je
datab�ze (ten scheduler funguje a pouziva se proto, ze u teto databaze nejde
nastavit Auto Shrink. Nastavte to nekdy na pulnoc nebo tak nejak dokola),
kterou vyuzivaji vsechny ostatni databaze jako tempovou. Tato datab�ze muze
v nekterych pripadech (uz se nam to stalo) hrozive narustat. Tato databaze
je fyzicky alokovana v adresari MSSQL7\data v miste instalace SQL serveru.
S pozdravem
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ren� Otisk
Sent: Monday, October 09, 2000 6:25 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Trosku vetsi SQL.log
Hi,
Jsem trosicku zmaten. Mam na NT 4.0 masince MS SQL 7.0 a ten mi vytvari
SQL.log soubor. Jenze ten uz ma nejak pres 1GB a kdyz jej chci odmazat, tak
mi nadava (Sharing violation nebo In Use a tak podobne). Zkousel jsem
zastavit sluzby MS SQL serveru, zkousel jsem odebrat mu prava administratora
a posleze vsech useru a pak si jej priblastnit na jiny ucet ale odmita se se
mnou bavit. Napada me jen restart a nabootovat na jiny system. Jenze to je
masinka, ktera musi byt 24 hodin v provozu... Nevite nekdo co s tim (krom
format C: a jinych extremnich postupu)?
Sroub
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
Datab�ze Accessu
[*] stingp1.eti(zv)mail.cez(tec)cz - 9.10.2000 12:52:50
>to po m� cht�lo login do datab�ze.... jm�no a heslo.... ale j�
>u t� datab�ze ��dn� jm�no ani heslo nem�m.... v accessu jde otev��t v
pohod�.... zkou�el jsem snad >v�echny jm�na a hesla, co m� napadly, ale neusp�l
jsem.
>Mo�n� exisuje n�jak� standartn� heslo a jm�no.
Kdyz jsem lezl do accessovskych databazi pres DB Explorer, delalo mi to to
same...
Proste jsem nechal obe polozky prazdne a dal OK ;)
-------------------------------
Pavel Stingl
mailto: stingp1.eti(zv)mail.cez(tec)cz
-------------------------------
Zvuk po zaloze
[*] Tom� Vlad�k������V��?���o�� - 9.10.2000 13:55:44
> -----Original Message-----
> From: MUDr.Neu�il [mailto:drneuzil(zv)razdva(tec)cz]
>
> To je skv�l� n�pad. Sta�ilo by mi opravdu vysunout po ukon�en� zapisov�n�
> disketu. Jsem ale skoro za��te�n�k a nev�m jak� je na to k�d. Nev� ho?
> D�ky, ahoj
> Miloslav Neu�il
>
Akorat ze se ZIPkou to neni tak jednoduche jako s CD. I kdyz, kdyz ji umi
vysupnout operacni system, musi to jit naprogramovat.
No, zhlavy to nevim. Jestli se jedna o Win9x, tak to nebude az takovy
problem, theoreticky by to melo jit pres funkci preruseni DOSu, tusim INT
13h nebo INT 21h.
Ve win NT to bude horsi - zrejme to pude pres API fci DeviceIoControl.
Zkus se podivat do archivu konference, jiz se to tu zrejme resilo.
Bye Tom
Kde sehnat algoritmy
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 9.10.2000 14:04:05
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
To je na me nejake moc jednoduche vysvetleni, asi jsem natvrdlej.
nejakl jsem z toho aik akj Aij zmatenej co to je zac, muzes mi to vysvetlit
podrobnej ja matice 6 let nevidel, ale celkem me to zajima, mel jsem davat
ve skole vetsi pozor. Jo a taky nejak nechapu jak do toho vlozit ty
"prekazky" . Tj prvky pole ktere maji hodnotu >0.
dik
-----Original Message-----
From: Ladislav Nagy [mailto:delphi-konference(zv)bcpraha.com]
Sent: Monday, October 09, 2000 11:34 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Kde sehnat algoritmy
Ahoj,
mas matici A (nxn).
Iteruj na ni operace A := A*A,
kde A*A je definovano
Aij := min (aik+akj) , min pocitat pres k = 1 ... n
A znaci jak rychle se dostanes z bodu x do y jednim tahem
A po prvni iteraci znaci jak rychle se dostanes z x do y po maximalne dvou
tazich
A po druhe iteraci znaci jak rychle se dostanes z x do y po maximalne
ctyrech tazich
A po treti iteraci znaci jak rychle se dostanes z x do y po maximalne osmi
tazich
...
(Ma smysl delat jen dokud X < n, kde X jsem sebral z toho "... po maximalne
X tazich")
S pozdravem, Lada
Ahoj
delam ted jeden program kde potrebuji zjistit nejkratsi cestu mezi dvema
body A B(znam jejich souradnice). Zakladem je dvourozmerne pole z integeru,
jehoz rozmery jsou souradnice x,y. Kazda polozka pole ma hodnotu 0 nebo
vetsi(prekazky - nelze se pres ne pohybovat). Po poli je mozno se pohybovat
pouze vertikalne nebo horizontalne. Nemate uz nekdo neco podobneho hotoveho
a nebo kde se da na internetu neco najit (me se zatim nepodarilo najit
nic)?.
Jeste bych potreboval poradit, kde sehnat nejaky algoritmus na hrani
piskvorku, nebo aspon jeho popis.
Dekuji
ikonu z EXE 16x16
[*] Hurricane <hurricane(zv)email(tec)cz> - 9.10.2000 14:51:06
Zdravim
Mam v registru napsanou cestu k EXE souboru (napr:
D:\office\Office\Winword.exe) a potrebuju z toho dostat ikonu, kterou pak
chci dat do TToolbarButtonu97. Dokazu ikonu pomoci ImageListu na ty buttony
nacpat, ale vykresli se nejak divne, jako by se zmensovaly z ruznych
velikosti na 16x16. Jde nejak zaridit, aby se nacitaly 16x16? Zatim pouzivam
toto:
icon.LoadFromFile(Registry.ReadString('ico1'));
Druhy muj problem spociva v tom, ze bych chtel nacitat tu ikonu z EXE
souboru. Kdyz pouziju
icon.LoadFromFile('D:\office\Office\Winword.exe');
nebo
icon.LoadFromFile('D:\office\Office\Winword.exe,1');
tak to nejde.
Nevite nekdo jak na to?
Diky vsem, kdo poradi
Hurricane
CreateProcess z AutomationObject
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 9.10.2000 14:53:39
Zdravim,
chci spustit aplikaci pomoci CreateProcess (v normalni aplikaci
funguje OK), ale z AutomationObject. Problem je v tom, ze se mi
vzdycky spusti SKRYTE! Neni nikde videt, jenom v Task manageru! HELP
PLEASE.
Petr Fischer
Delphi 5 (SP1), Win2000
MS SQL 7 - chyba Access Violation occurred reading
[*] Tom� Vlad�k������V��?���o�� - 9.10.2000 14:59:47
Ahoj lidi,
stalo se Vam nekdy, ze by vam po celkem trivialnim SQL dotazu
muj pripad:
XXXXXXXXXXXXXXX
delete from dbo.D_KLIENT
WHERE (ID > 4500 ) AND (ID < 5500)
XXXXXXXXXXXXXXX
Vybehla nejaka takova chyba:
XXXXXXXXXXXXXXX
ODBC: Msg 0, Level 19, State 1
SqlDumpExceptionHandler: Process 12 generated fatal exception c0000005
EXCEPTION_ACCESS_VIOLATION. SQL Server is terminating this process.
[Microsoft][ODBC SQL Server Driver][Named Pipes]ConnectionWrite
(GetOverLappedResult()).
[Microsoft][ODBC SQL Server Driver]Communication link failure
XXXXXXXXXXXXXXX
A v server logu se objevili takovehle zmatky:
XXXXXXXXXXXXXXX
2000-09-30 06:36:42.88 kernel Copyright (C) 1988-1997 Microsoft
Corporation.
2000-09-30 06:36:42.84 kernel Microsoft SQL Server 7.00 - 7.00.842
(Intel X86) ...
0 x77f05429 Module(KERNEL32+5429) (SwitchToFiber+13d)
0 x77f04ede Module(KERNEL32+4ede) (lstrcmpiW+be)
0 x410927b6 Module(ums+27b6) (FiberStartRoutine+ad)
0 x41092a47 Module(ums+2a47) (ProcessWorkRequests+ec)
0 x410614a1 Module(opends60+14a1) (process_commands+f2)
0 x41061253 Module(opends60+1253) (execute_event+658)
0 x0047fd57 Module(sqlservr+7fd57) (language_exec+396)
0 x00413923 Module(sqlservr+13923) (CSQLSource::Execute+11c)
0 x00480033 Module(sqlservr+80033) (CSQLStrings::FTransform+158)
0 x00413dbd Module(sqlservr+13dbd) (CSQLSource::FTransform+233)
0 x0043b503 Module(sqlservr+3b503) (CProchdr::FCompile+5d7)
0 x00436469 Module(sqlservr+36469) (CCompPlan::FCompileStep+110)
0 x00482055 Module(sqlservr+82055) (CStmtPrepQuery::CStmtPrepQuery+2a1)
0 x00482161 Module(sqlservr+82161) (CSQLStrings::Compile+3e)
XXXXXXXXXXXXXXX
****************************************************************************
***
*
* BEGIN STACK DUMP:
* 10/09/00 14:50:30 spid 12
*
* Exception Address = 006A1F6A (CUpdUtil::PMapGenerateIndexMappings + ef)
* Exception Code = c0000005 E
* Access Violation occurred reading address 0000000C
* Input Buffer 126 bytes -
* d e l e t e f r o m d b o . D _ K L I E N T
* W H E R E ( I D > 4 5 0 0 ) A N D ( I D < 5 5 0 0 )
*
*
*
*
* MODULE BASE END SIZE
* sqlservr 00400000 008c9fff 004ca000
* ntdll 77f60000 77fbdfff 0005e000
* KERNEL32 77f00000 77f5dfff 0005e000
* ADVAPI32 77dc0000 77dfefff 0003f000
* USER32 77e70000 77ec4fff 00055000
* GDI32 77ed0000 77efbfff 0002c000
* RPCRT4 77e10000 77e66fff 00057000
* ole32 77b20000 77bd6fff 000b7000
* OLEAUT32 65340000 653d1fff 00092000
* VERSION 77a90000 77a9afff 0000b000
* SHELL32 70970000 70b17fff 001a8000
* SHLWAPI 70bd0000 70c18fff 00049000
* COMCTL32 715a0000 71628fff 00089000
* LZ32 779c0000 779c7fff 00008000
* opends60 41060000 41085fff 00026000
* ums 41090000 4109cfff 0000d000
* MSVCRT 78000000 7803ffff 00040000
* mswstr10 1b5c0000 1b654fff 00095000
* MSVCIRT 780a0000 780b1fff 00012000
* sqlevn70 410a0000 410a6fff 00007000
* rpcltc1 77bf0000 77bf6fff 00007000
* COMNEVNT 410b0000 410fefff 0004f000
* ODBC32 1f7d0000 1f803fff 00034000
* comdlg32 77d80000 77db1fff 00032000
* SQLWOA 41100000 4110bfff 0000c000
* odbcint 1f8c0000 1f8d5fff 00016000
* NDDEAPI 75a80000 75a86fff 00007000
* WINSPOOL 77c00000 77c17fff 00018000
* SQLTrace 41130000 4117dfff 0004e000
* NETAPI32 77800000 77839fff 0003a000
* NETRAP 77840000 77848fff 00009000
* SAMLIB 777e0000 777ecfff 0000d000
* SQLFTQRY 41020000 41037fff 00018000
* SSNMPN70 41190000 41195fff 00006000
* SSMSSO70 411a0000 411aafff 0000b000
* WSOCK32 776d0000 776d7fff 00008000
* WS2_32 776b0000 776c3fff 00014000
* WS2HELP 776a0000 776a6fff 00007000
* SSMSRP70 411b0000 411b7fff 00008000
* NTLSAPI 758b0000 758b5fff 00006000
* ENUDTC 69140000 69156fff 00017000
* XOLEHLP 69360000 69368fff 00009000
* MTXCLU 69790000 6979cfff 0000d000
* ADME 69120000 69132fff 00013000
* DTCUtil 69000000 69009fff 0000a000
* DTCTRACE 68ff0000 68ff6fff 00007000
* CLUSAPI 7f230000 7f23cfff 0000d000
* RESUTILS 7f250000 7f259fff 0000a000
* MSDTCPRX 69420000 69450fff 00031000
* DTCCM 690b0000 690cdfff 0001e000
* msafd 77660000 7766efff 0000f000
* wshtcpip 77690000 77698fff 00009000
* rpclts1 77e00000 77e05fff 00006000
* RpcLtScm 74fa0000 74faafff 0000b000
* MSWSOCK 77670000 77684fff 00015000
* rnr20 74ff0000 74ffdfff 0000e000
* rasadhlp 75360000 75366fff 00007000
* RpcLtCcm 74fc0000 74fcefff 0000f000
* security 76e70000 76e81fff 00012000
* msapsspc 71730000 71740fff 00011000
* MSVCRT40 10200000 10254fff 00055000
* schannel 77400000 77428fff 00029000
* MSOSS 5e380000 5e3a4fff 00025000
* CRYPT32 5cf00000 5cf5dfff 0005e000
* msnsspc 71700000 7171efff 0001f000
* digest 60900000 6090dfff 0000e000
* SQLRGSTR 411c0000 411c4fff 00005000
* xpstar 411d0000 41200fff 00031000
* SQLWID 412f0000 412f5fff 00006000
* SQLSVC 415e0000 415f8fff 00019000
* odbcbcp 41220000 41225fff 00006000
* SQLRESLD 41320000 41325fff 00006000
* W95SCM 41210000 41217fff 00008000
* SQLSVC 42480000 42485fff 00006000
* xpsqlbot 10000000 10005fff 00006000
* sqlboot 01e60000 01e67fff 00008000
* xpsql70 41370000 41378fff 00009000
* DBGHELP 02670000 02682fff 00013000
* msdbi 6be90000 6beabfff 0001c000
* sqlimage 4a400000 4a40cfff 0000d000
*
* Edi: 13EF4028: 13ef4000 00000020 00000020 007e3050 13ef4028 00798058
* Esi: 140D4578: 00000001 1314ba10 00000004 00000000 13ef4028 00000002
* Eax: 00000000:
* Ebx: 00000000:
* Ecx: 13EF421C: 13834c50 14238a40 13ef4310 0000000e 00000003 0079aea4
* Edx: 00000003:
* Eip: 006A1F6A: 8bb475f6 85f08b00 003cfee8 53fc4d8b db330274 010c43f6
* Ebp: 0965CBFC: 00000000 00000000 13fc2d80 13ef421c 006a557a 0965cc64
* SegCs: 0000001B:
* EFlags: 00010246: 00370020 006c0065 0064006f 004d0020 00360020 0079006c
* Esp: 0965CBC8: 00489ab2 13ef4028 00000007 13fc2d80 13ef4028 00000000
* SegSs: 00000023:
****************************************************************************
***
Hezke ze ?????
TOm
CTRL+C, CTRL+V
[*] Ale� Va���ek�����"q��y�&���w�3 - 9.10.2000 15:43:49
RE CTRL+C, CTRL+VTohle mi nefunguje. Nevi nekdo proc? Nutne to potrebuju
rozbehat:
procedure TForm1.Button1Click(Sender: TObject);
var Handle : THandle;
begin
Handle := FindWindow(PChar('IEFrame'), nil);
SetForeGroundWindow(Handle);
SendMessage(Handle, WM_KEYDOWN, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYDOWN, 65, 0);
SendMessage(Handle, WM_KEYUP, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYUP, 65, 0);
SendMessage(Handle, WM_KEYDOWN, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYDOWN, 67, 0);
SendMessage(Handle, WM_KEYUP, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYUP, 67, 0);
Memo1.PasteFromClipboard;
end;
Ales
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
tungli(zv)datapac.sk
Sent: Monday, October 09, 2000 12:06 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE CTRL+C, CTRL+V
Neviem ci to bude fungovat ale mal by to byt takto:
Musis poslat kod na dva krat:
1. Posled CTRL (co je kod 17) (SHIFT je kod 16) ako KeyDown (bez
keyUp)
2. Potom posles znak C KeyUp
Prosim napis mi ci to funguje.
Tungli Jan
FlashFiler 1.5 a Delphi 5 Standard
[*] L. ZITA <konference(zv)sales(tec)cz> - 9.10.2000 16:32:03
Zdravim.
Da se kombinace %SUBJ% bez problemu pouzivat?
Diky
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
MS SQL 7 - chyba Access Violation occurred reading
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 9.10.2000 16:34:54
----- Original Message -----
From: Tom� Vlad�k <tom.vladik(zv)swadvice(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, October 09, 2000 2:59 PM
Subject: MS SQL 7 - chyba Access Violation occurred reading address 0000000C
> Ahoj lidi,
> stalo se Vam nekdy, ze by vam po celkem trivialnim SQL dotazu
> muj pripad:
>
> XXXXXXXXXXXXXXX
> delete from dbo.D_KLIENT
> WHERE (ID > 4500 ) AND (ID < 5500)
> XXXXXXXXXXXXXXX
>
> Vybehla nejaka takova chyba:
>
> XXXXXXXXXXXXXXX
> ODBC: Msg 0, Level 19, State 1
> SqlDumpExceptionHandler: Process 12 generated fatal exception c0000005
> EXCEPTION_ACCESS_VIOLATION. SQL Server is terminating this process.
> [Microsoft][ODBC SQL Server Driver][Named Pipes]ConnectionWrite
> (GetOverLappedResult()).
> [Microsoft][ODBC SQL Server Driver]Communication link failure
> XXXXXXXXXXXXXXX
>
a pomoci ceho jsi realizoval ten SQL dotaz ? (ADO ? -jaky provider, BDE ?
native, ODBC ?, urcity program ? napr. Query analyzer? )
Dela to vzdy nebo jen nekdy ?
Tomas
CTRL+C, CTRL+V
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 9.10.2000 16:49:40
RE CTRL+C, CTRL+VCau,
nie som si si isty ale myslim ze prvotne tu bol problem ako z app napr.
Notepad zobrazt text do clipoabru a potom s nim nieco urobit, ze?
Mozno netreba riesit cez posielani klaves ale ak zistit Handle edit okna
Notepadu tak mu mozes poslat message aby hodil text do clipoardu sam a
nemusis riesit klavesy. Alebo ak ten Text nepotrebujes mat v clipboarde tak
je este jednoduchsia cetsa poslat tomu editu message aby Ti ten text vratil.
Viz help. (viz. WM_COPY, WM_GETTEXT)
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
>Tohle mi nefunguje. Nevi nekdo proc? Nutne to potrebuju rozbehat:
procedure TForm1.Button1Click(Sender: TObject);
var Handle : THandle;
begin
Handle := FindWindow(PChar('IEFrame'), nil);
SetForeGroundWindow(Handle);
SendMessage(Handle, WM_KEYDOWN, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYDOWN, 65, 0);
SendMessage(Handle, WM_KEYUP, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYUP, 65, 0);
SendMessage(Handle, WM_KEYDOWN, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYDOWN, 67, 0);
SendMessage(Handle, WM_KEYUP, VK_CONTROL, 0);
SendMessage(Handle, WM_KEYUP, 67, 0);
Memo1.PasteFromClipboard;
end;
QReport II
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ct 2000 16:11:54
Zdravim obec Delfinu!
Problem, no mozna to neni problem, ale ja nevim jak s toho ven. :-( Chci vypis
ovat sestavy a delat sumare, ale nejak mi nejdou podsumy. Chci vypsat nekolik
osob, ke kazde nejake naklady a ty secist, ale ke kazde osobe zvlast a na konc
i udelat soucet vsech nakladu. Nejak se mi to nedari a vypadavaji mi jen mezis
oucty, to jest, ze se mi u druhe podsumy sectou dve osoby a ne jen ta druha. P
redem diky za nakopnuti spravnym smerem.
Zamer:
Osoba Naklad
Osoba1 10
Osoba1 20
Osoba1 30
Celkem za osobu 60
Osoba1 5
Osoba1 10
Osoba1 15
Celkem za osobu 30
Celkem naklady 90
Vysledek je bohuzel:
Osoba Naklad
Osoba1 10
Osoba1 20
Osoba1 30
Celkem za osobu 60
Osoba1 5
Osoba1 10
Osoba1 15
Celkem za osobu 90
Celkem naklady 90
M&B
Seriova komunikace
[*] delphi(zv)kahle(tec)cz - 9.10.2000 17:27:32
Muzete mi poradit, kde najdu podrobnejsi informace o programovani komunikace
PC se zarizenim
pripojenym k seriovemu portu .( dig. fotak)
(protokol www.average.org/digicam/protocol.html )
dekuji P.Kahle
MenuItem.Caption bez &
[*] L. ZITA <konference(zv)sales(tec)cz> - 9.10.2000 17:35:34
Zdravim.
Existuje nejaka moznost jak jednoduse ziskat Caption bez "&" dosazeneho
AutoHotKeys.
Pouzivam konstrukci (Sender as TMenuItem).Caption a vadi mi tam ten znacek
"&" pro hotkeys.
Jde to jinak nez pomoci klasickych stringovych operaci (Copy, Pos ....)
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
TIBBlobStream
[*] Ivan Kozak <kozaki(zv)atlas(tec)cz> - 9.10.2000 10:42:40 -0700
Nemate niekto skusenosti s TIBBlobStream? Moj problem je ten, ze moj BLOB field je v TIBQuery, a nie je mi jasne, ako to mam pri vytvarani TIBBlobStream-u povedat. TIBBlobStream.Create totiz nema ziadne parametre. A v zozname properties ma nic nenapada...
Dik za kazdu radu. Ivan
Kde sehnat algoritmy
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 9.10.2000 21:08:31
Ahoj,
zapomen na slovo matice a ber, ze to jsou 2-rozmerna pole.
Tady jsem Ti napsal schematicky navod jak na to.
Je to jeden z moznych zpusobu jak problem resit - ziskas zde kompletni informace jak se nejsnaze dostat z jakehokoliv bodu do jakehokoliv. Pokud Te zajima jen nejefektivnejsi cesta z jednoho konkretniho bodu do jineho a zbytek Te nezajima, tak se najdou samozrejme rychlejsi algoritmy.
type TMyPole = array [1..n,1..n] of integer;
// pole prekazek, lze chapat tez jako napr. vzdalenosti mezi mesty, coz si clovek snaze predstavi
// predpokladam ze na dostani se z bodu x do bodu x je prekazka rovna 0
function ProvedJednuIteraci (const pMyPole : TMyPole) : TMyPole;
begin
for i := 1 to n do
for j := 1 to n do
begin
result[i,j] := pMyPole[i,j];
for k := 1 to n do
result[i,j] := min (result[i,j], pMyPole[i,k] + pMyPole[k,j]);
end;
end;
BEGIN
// Opakovane volej prikaz A := ProvedJednuIteraci(A);
ii := 1;
while ii < n do
begin
A := ProvedJednuIteraci(A);
ii := ii*2;
end;
END;
S pozdravem, Lada
PS: Pokud tomu nebudes rozumet, tak si nakresli pole s prekazkami a ozkousej, co to bude delat.
To je na me nejake moc jednoduche vysvetleni, asi jsem natvrdlej.
nejakl jsem z toho aik akj Aij zmatenej co to je zac, muzes mi to vysvetlit podrobnej ja matice 6 let nevidel, ale celkem me to zajima, mel jsem davat ve skole vetsi pozor. Jo a taky nejak nechapu jak do toho vlozit ty "prekazky" . Tj prvky pole ktere maji hodnotu >0.
dik
Ahoj,
mas matici A (nxn).
Iteruj na ni operace A := A*A,
kde A*A je definovano
Aij := min (aik+akj) , min pocitat pres k = 1 ... n
A znaci jak rychle se dostanes z bodu x do y jednim tahem
A po prvni iteraci znaci jak rychle se dostanes z x do y po maximalne dvou tazich
A po druhe iteraci znaci jak rychle se dostanes z x do y po maximalne ctyrech tazich
A po treti iteraci znaci jak rychle se dostanes z x do y po maximalne osmi tazich
...
(Ma smysl delat jen dokud X < n, kde X jsem sebral z toho "... po maximalne X tazich")
S pozdravem, Lada
Ahoj
delam ted jeden program kde potrebuji zjistit nejkratsi cestu mezi dvema
body A B(znam jejich souradnice). Zakladem je dvourozmerne pole z integeru,
jehoz rozmery jsou souradnice x,y. Kazda polozka pole ma hodnotu 0 nebo
vetsi(prekazky - nelze se pres ne pohybovat). Po poli je mozno se pohybovat
pouze vertikalne nebo horizontalne. Nemate uz nekdo neco podobneho hotoveho
a nebo kde se da na internetu neco najit (me se zatim nepodarilo najit
nic)?.
Jeste bych potreboval poradit, kde sehnat nejaky algoritmus na hrani
piskvorku, nebo aspon jeho popis.
Dekuji
struktura databaze programove
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 10.10.2000 00:08:18
Ahoj,
aku chybu Ti vracia?
Moze sa stat, ze ak pouzijes v skripte premenne uvedene dvojbodkou je nutne
nastavit property ParamCheck := false; (default je true).
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Ota Maly <maly(zv)space(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, October 09, 2000 1:25 PM
Subject: IB6: struktura databaze programove
> Ahoj,
> snazim se programove vytvorit DB (ze skriptu), ale nedari se mi.
> Pokud mam IBDatabase, IBTransaction a IBSQL tak vytvorim databazi, tabulky
i
> generatory, ale nedari se mi poslat tam trigger.
> Take me napadlo volat externe isql.exe, na tom ted pracuju, uvidime..
>
> Jak to resite vy?
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.pap-el(tec)cz
>Seriova komunikace
[*] Krska Vit <v_krska(zv)del(tec)cz> - 10.10.2000 07:14:20
na seriovou komunikaci je nejlepsi si sehnat nejakou komponentu a pak uz
jenom zapisujes znaky na port a odchytavas prijate znaky. co jsem videl tak
dobre udelany balik komponent pro komunikaci je "TComPort v.2.61a" je k tomu
i help. najdes na http://www.torry.ru/
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
delphi(zv)kahle(tec)cz
Sent: Monday, October 09, 2000 5:28 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Seriova komunikace
Muzete mi poradit, kde najdu podrobnejsi informace o programovani komunikace
PC se zarizenim
pripojenym k seriovemu portu .( dig. fotak)
(protokol www.average.org/digicam/protocol.html )
dekuji P.Kahle
QReport II
[*] Campulka Jiri <campulka(zv)czas(tec)cz> - 10.10.2000 07:37:27
----- Original Message -----
From: Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz>
> Zdravim obec Delfinu!
> Problem, no mozna to neni problem, ale ja nevim jak s toho ven. :-( Chci
vypis
> ovat sestavy a delat sumare, ale nejak mi nejdou podsumy. Chci vypsat
nekolik
> osob, ke kazde nejake naklady a ty secist, ale ke kazde osobe zvlast a na
konc
> i udelat soucet vsech nakladu. Nejak se mi to nedari a vypadavaji mi jen
mezis
> oucty, to jest, ze se mi u druhe podsumy sectou dve osoby a ne jen ta
druha. P
> redem diky za nakopnuti spravnym smerem.
U TQRExpr je vlastnost ResetAfterPrint....MS SQL 7 - chyba Access Violation occurred reading
[*] Tom� Vlad�k������V��?���o�� - 10.10.2000 07:38:28
>
>
> a pomoci ceho jsi realizoval ten SQL dotaz ? (ADO ? -jaky provider, BDE ?
> native, ODBC ?, urcity program ? napr. Query analyzer? )
>
> Dela to vzdy nebo jen nekdy ?
>
> Tomas
>
Query Analyzer - to znamena vlastne, jestli se nepletu ODBC.
Kdyz jsem to volal, jako STORED PROC, tak to zkixlo tez.
Chyba naskocila taky pri mazani fungl cele tabulky (pokud v ni byl pocet
zaznamu vetsi nez maly cca. 2000).
Ta tabulka vypada si nejak takto:
XXXXXXXXXXXXXXXXXXXXX
CREATE TABLE [dbo].[D_KLIENT] (
[RDC] [varchar] (11) NULL ,
[PRIJMENI] [varchar] (20) NULL ,
[JMENO] [varchar] (15) NULL ,
[TITUL] [varchar] (10) NULL ,
[ADR_ULICE] [varchar] (30) NULL ,
[ADR_CISLO] [varchar] (8) NULL ,
[ADR_CAST] [varchar] (30) NULL ,
[ADR_OBEC] [varchar] (30) NULL ,
[ADR_PSC] [varchar] (5) NULL ,
[ADR_POSTA] [varchar] (20) NULL ,
... bla, bla, bla
[DELETED] [bit] NULL ,
[ID] [int] IDENTITY (1, 1) NOT NULL ,
[POHLAVI] [char] (1) NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
CREATE CLUSTERED INDEX [Prijmeni] ON [dbo].[D_KLIENT]([PRIJMENI],
[JMENO]) ON [PRIMARY]
GO
ALTER TABLE [dbo].[D_KLIENT] WITH NOCHECK ADD
CONSTRAINT [DF_KLIENT_DELETED] DEFAULT (0) FOR [DELETED],
CONSTRAINT [PK_KLIENT] PRIMARY KEY NONCLUSTERED
(
[ID]
) ON [PRIMARY]
GO
CREATE INDEX [RDC] ON [dbo].[D_KLIENT]([RDC]) ON [PRIMARY]
GO
XXXXXXXXXXXXXXXXXXXXX
Jak vidno, mam tam klustrovany index, protoze standardne si to klienti
sypou serazene a vyfiltrovane podle PRIJMENI.
Az kdyz jsem to misto prosteho DELETE FROM ... projel v takovemhle cyklu,
tak mi to bez odporu proslo.
XXXXXXXXXXXXXXXXXXXXX
while ((SELECT COUNT(ID) FROM D_KLIENT) >0)
BEGIN
SELECT (zv)Min = (SELECT DISTINCT MAX(Prijmeni) FROM D_KLIENT)
delete from d_klient
Where Prijmeni = ((zv)Min)
END
XXXXXXXXXXXXXXXXXXXXX
Myslite, ze jsem blbej ja, nebo MS SQL? Nebojte se mi rici do oci vlastni
nazor.
Dik
Tom
DB indexy, Table is busy
[*] Kalhous Zden�k RNDr. - 10.10.2000 08:14:57
Dobry den.
S Delphi5 zacinam takze asi trivialni dotazy - predem se omlouvam.
Problem 1: Lze obnovit respektive vytvorit indexy paradoxovych, dBase ci
FoxPro tabulek "za chodu" (neco jako "reindex" nebo "index on") jinak nez
drevorubeckym zpusobem zkopirovani dat, vytvoreni nove tabulky a nahrani dat
zpatky ?
Problem 2: Kdysi v praveku jsem delal v Paradoxu 3.0, tam nebyly moznosti
indexovani zrovna nejsilnejsi strankou. Zda se mi, ze px tabulky Delphi 5
nenabizeji nic navic. Nebo nekdo znate fintu jak docilit elegantne
indexovani treba podle hodnoty vyrazu ?
Problem 3: Pri pokusech o restrukturalizaci tabulek za chodu, reindexovani
vyse uvedenou metodou a podobnych akcich mi obcas (zajimave ze ne vzdy a ne
u vsech tabulek v aplikaci) vyskoci chyba "EDBEngineError 'Table is busy' "
i kdyz je evidentne Table.Active=false. Cili nestaci mi ke stesti ani
Table.Active:=false ani Table.Close. Co bych mel jeste podniknout ?
Samozrejme je rec o jednouzivatelskem programu takze pricina neni v tom, ze
by se souborem pracoval nekdo jiny.
Z.Kalhous
Prekreslovanie formulara
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 10.10.2000 08:38:18
Ahoj,
Na formular vykreslujem za behu nejaky metafile. Kedze som chcel vyriesit
problem s prekreslovanim formu pri presuvani formu, premiestnil som
vykreslovanie metafile do udalosti formu OnPaint. No udalost OnPaint sa
podla popisu vyvola pred prekreslenim hociakeho Controlu umiestneneho na
forme alebo pred pouzitim Canvasu formulara. Vysledok je ze sa metafile
vykresluje dva krat, lebo ja forme su aj ine komponenty, ktore sa menia
napr. Labely.
Otazka: da sa teda udalost OnPaint zakazat a potom znovu povolit? Alebo
navrhujete ine riesenie?
Dakujem Marian
Kde sehnat algoritmy
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 10.10.2000 08:40:53
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
No a prave to bych potreboval, jde mi jen o konkretni dva body a nejkratsi
cestu mezi nimi. Tento algoritmus by byl asi pro pole 20x20 bodu celkem
pomaly (potrebuju zpozdeni tak maximalne 1s na P100MHz)
Pokud Te zajima jen nejefektivnejsi cesta z jednoho konkretniho bodu do
jineho a zbytek Te nezajima, tak se najdou samozrejme rychlejsi algoritmy.
-----Original Message-----
From: Ladislav Nagy [mailto:delphi-konference(zv)bcpraha.com]
Sent: Monday, October 09, 2000 9:09 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Kde sehnat algoritmy
Ahoj,
zapomen na slovo matice a ber, ze to jsou 2-rozmerna pole.
Tady jsem Ti napsal schematicky navod jak na to.
Je to jeden z moznych zpusobu jak problem resit - ziskas zde kompletni
informace jak se nejsnaze dostat z jakehokoliv bodu do jakehokoliv. Pokud Te
zajima jen nejefektivnejsi cesta z jednoho konkretniho bodu do jineho a
zbytek Te nezajima, tak se najdou samozrejme rychlejsi algoritmy.
SQL a FoxPro II
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 10.10.2000 09:10:53
Zdravim,
dekuji za odpoved. Bohuzel Level v nativnim driveru je nastaven na 25. Jina volba se ani nastavit neda. Mimochodem, Delphi pouzivam ver. 5. Zkousel jsem vse prelozit ve verzi 3 a vysledek byl pro mne uspokojivy. FoxPro chtela pouze prekonvertovat memo polozky. Ovsem vedouci toto reseni odmita. Vsiml jsem si, ze BDE dodavane s Delphi 3 nema nativni driver pro FoxPro. Takze se vytvori soubor dBase. Nedal by se tento soubor upravit (myslim vyslednou dbf tabulku) tak aby nemela FoxPro namitky?
Predem dik za odpoved.
Mirek Drejcek.
Pokud mas v definici nativniho driveru TableLevel vetsi jak 2.5, tak se
vytvari tabulke, ve ktere jsu cisla v nativnim formatu, s cimz si FP 2.0
neporadi. Oprav si to v BDE administratoru a melo by to yt OK.
Jan Fiala
----- Original Message -----
From: "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz>>Zdravim,
>mam tady jeden problem. Pri vytvareni Tabulky pomoci SQL dotazu
(komponentou Query) vypada >vse Ok. Bohuzel, kdyz tuto tabulku chci otevrit
ve FoxPro v.2.0 tak program tuto akci nevykona. >Napise ze "Soubor neni
databazi".
>Nevite prosim nekdo co s tim?
>Diky
Pole obrazku
[*] Raul Endymion <Raul.Endymion(zv)ns1.infima(tec)cz> - 10.10.2000 09:35:29
Mam ve svym formu 25 obrazku v matici 5*5.
Rad bych ovsem pouzil pri zadavani a praci s temito primo pozici x,
y. Je mozne udelat nejaky pole s odkazy na jednotlive obrazky ?
Napr.
pole : Array[1..5,1..5] of TComponent; a potom ve formcreate
definovat
pole[1,1] := Image1; atd ? Dikes Raul mailto:Raul.Endymion(zv)ns1.infima(tec)cz
SIT Co st�m ...
[*] Sl�va Roman <rsliva(zv)novahut(tec)cz> - 10.10.2000 11:11:59
Ahoj
Prosim o radu. Nikdy jsem nemel moznost primeho pristupu na sit LAN ???
(doma ji nemam :)) )
Nyni mam pres LAN sit spojene 3 PC a znam jejich IP adresy.
Potreboval bych komunikovat se svym programem na jinem PC. Nevim kde a jak
zacit.
Napada mne jen ukladani souboru do sdilenych adresaru. Nevite neco
efektivnejsiho ??
Diky Roman
rsliva(zv)novahut(tec)cz
blby FAQ .... Existuje nejaka moznost vyuzit DDE ???
ADOExpres, problemy pri odpojovani Connection
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 10.10.2000 11:12:20
Ahoj vsichni.
Potreboval bych poradit s nasledujicim problemem. V D5 Ent. SP1 pouzivame
pro pristup k MSSQL 7.0 komponenty ADOExpres. Kdyz nastavim vlastnost
Connected komponenty TADOConnection na False, projevi se mi to ve vypisu
procedury sp_who az po delsi chvili. Navic se stane, ze nekdy pripojeni
nezmizi vubec (zustane viset a blokuje tabulky na serveru). Nevite nekdo cim
to muze byt, a co bych mel udelat pro to aby se server o odpojeni dane
connection dozvedel co nejdrive.
Diky za kazdy tip
Jaromir Cermak
mesta CR
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 10.10.2000 11:31:12
Mam PSC, UTJ, ZUJ, okresy, kraje atp....
Milan Tomes
> Subject: Re: mesta CR
>
>
> Za to pivo to beru, mam databazi kraju, okresu, obci, kat. uz., ozvi se mi
> na soukromi mail
> Cadsky
> cadsky(zv)atlas(tec)cz
>
> > Omlouvam se za OT,
> > ale nutne schanim seznam ceskych mest /ne vesnic, nejaky rozumny/ v
> nejakem prectenischopnem formatu, idelani by bylo, kdyby byly mesta i
> rozdelena podle kraju a kdyby u kazde mesta byly uvedeny souradnice /neni
> podminkou/, tak mate u me pivo :-)
> >
> > Diky za odpovedi, preji prijemny den
> >
> > Roman
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
New SQL Report Builder
[*] tungli(zv)datapac.sk - 10.10.2000 11:43:15
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
New SQL Report Builder ver 1.0 beta - je na svete : www.host.sk/tungli
Program na tvorbu reportov. Umoznuje pre koncovych uzivatelov designovat report podla vlastnych ziadosti. Je mozne pouzit z lubovolneho programovaciho jazyka pod Windows.
Problem s BDE
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 10.10.2000 11:56:40
Mam nasledujici problem:
pri inicializaci BDE (otevreni prvni tabulky) dochazi k hlasce EDBEngineError s hlaskou INVALID FILE NAME (bez nazvu souboru). Jedna se o webserverovou aplikaci (DLL ISAPI napsana v D5 Prof pod W95) bezici na serveru WinNT s NTFS, IIS 5.0.
Soubory (table.db, px, mb... ) na serveru urcite jsou a jsou v poradku. Mozna neco v nastaveni BDE, v registrech???
Pri testovani to fungovalo na nekolika pocitacich bez problemu. Nenapada nekoho v cem by mohl byt problem?
Predem diky.
Jirka Matejka
jiri.matejka(zv)stemmark(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
QRRerpot II
[*] tungli(zv)datapac.sk - 10.10.2000 12:40:48
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ak stiahnes New SQL Report Builder tak tam naides aj report typu
Master Detail , Suma a Total
www.host.sk/tungli/Kde sehnat algoritmy
[*] novacek(zv)vanicek(tec)cz - 10.10.2000 11:07:26
Zdar a silu!
> Jeste bych potreboval poradit, kde sehnat nejaky algoritmus na hrani
> piskvorku, nebo aspon jeho popis.
Je to tzv. minimaxova metoda (Umela inteligence). Podrobnejsi popis
bych hledal krome odborne literatury napr. ve skriptech nebo na webu
universit. Napr. Fakulta informatiky MU Brno ma cast skript v
elektronicke podobe (psali to studenti podle prednasek). Adresa je
neco jako www.informatics.muni(tec)cz/zkusto
Zdar!
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
TODBCQuery a CalculatedField
[*] Tom� Vlad�k������V��?���o�� - 10.10.2000 13:50:16
D5 Pro, ODBCe verzia 2.3
Ahoj lidi,
nejak mi nechteji fungovat CalculatedFields s TODBCQuery. Mate s tim nejake
zkusenosti???
Tom
Eventy v COM objektech
[*] archiv(zv)delphi(tec)cz - 10.10.2000 13:58:57
Zdravim,
omlouvam se za par predchozich vadnych prispevku, ale konfiguroval jsem si postovniho klienta, abych
prispival jmenem prihlasene Exchange slozky Delphi, ketrou hostujeme.
Mam jeden problem. V Delphi 5 Prof. jsem si vyzkousel dle dokumentace vytvorit Automation server, ktery
podporuje udalosti, nejake udalosti jsem si naimplementoval, ale nikde jiz neni priklad, jak napsat klienta, ktery
se k tomuto serveru pripoji a reaguje na tyto udalosti. Snazil jsem se to rozchodit dle knihy INSIDE OLE, ale
nepodarilo se.
Proto prosim, zda by me nekdo nemohl poslat funkcni priklad na Eventy v COM objektech.
Diky moc
Petr Linhart (petr(zv)mius(tec)cz)SQL a FoxPro II
[*] Kalhous Zdenek RNDr. <Zdenek.Kalhous(zv)ipbpojistovna(tec)cz> - 10.10.2000 14:04:38
Snad by pomohlo definovat tabulky v Delphi jako native dBase (ne jako
FoxPro) a ve FoxPro 2.0 nastavit set compatible podle helpu (na konci tohoto
textu) tak, aby se konverze memo poli provedla automaticky (bez dotazu). Je
totiz zajimavou vlastnosti vyssich foxek, ze umeji skoro vsechno krome
vlastnich souboru (to je samozrejme prehnane). Mysleno je to tak, ze kdyz
jsou napriklad lehce nakopnute dbf soubory FoxPro takze je odmita zpracovat
prave s hlasenim "Not a database file", staci takovy dbf soubor otevrit
(obvykle bez problemu) ve FoxBase a udelat COPY - vysledny produkt pak
FoxPro 2.5 a vyssi v pohode otevre a na nic si nestezuje. Stejne umi soubory
od dBaseIII a dale - mozna ze zde by byla situace podobna i kdyz s FoxPro
2.0 jsem to nikdy nezkousel.
Syntax
SET COMPATIBLE FOXPLUS | OFF | DB4 | ON
[PROMPT | NOPROMPT]
Remarks
Commands and functions affected by SET COMPATIBLE include LIKE( ), PLAY
MACRO, SELECT( ) and STORE (when STORE is used with arrays).
SET COMPATIBLE doesn't create compatibility with other Xbase commands,
functions or features that are not supported in FoxPro. For example, it
doesn't allow you to open a report form created in other Xbase products with
the FoxPro Report Writer.
A complete listing of commands that are affected by SET COMPATIBLE is
included in the SET COMPATIBLE topic in the FoxPro Language Reference.
Clauses
FOXPLUS | OFF
FOXPLUS and OFF can be used interchangeably. Include either key word to
allow programs created in FoxBASE+ to run in FoxPro for MS-DOS or FoxPro for
Windows without changes. This is the default setting.
DB4 | ON
Including DB4 or ON affects the behavior of some commands and functions.
[PROMPT | NOPROMPT]
The PROMPT and NOPROMPT options determine if a dialog is displayed when you
open a dBASE table/.DBF with a memo field.
By default, if you open a dBASE table/.DBF with a memo field, the Convert
Memos dialog is displayed, asking if you'd like to convert the dBASE memo
file to a FoxPro format. You must convert the memo field to a FoxPro format
to open the table/.DBF in FoxPro. You can later convert the memo file to a
dBASE format by including the TYPE FOXPLUS option in the COPY command.
Include the PROMPT option to display the Convert memos dialog.
If you include NOPROMPT, the Convert Memos dialog is not displayed when you
open a dBASE table/.DBF with a memo field. The dBASE memo file is
automatically converted to a FoxPro format.
-----Puvodn� zpr�va-----
Od: "Mirek Drejeek" [mailto:drejcek(zv)schkocr(tec)cz]
Odesl�no: 10. r�jna 2000 9:11
Komu: Konference Delphi
Predmet: SQL a FoxPro II
Zdravim,
dekuji za odpoved. Bohuzel Level v nativnim driveru je nastaven na 25. Jina
volba se ani nastavit neda. Mimochodem, Delphi pouzivam ver. 5. Zkousel
jsem vse prelozit ve verzi 3 a vysledek byl pro mne uspokojivy. FoxPro
chtela pouze prekonvertovat memo polozky. Ovsem vedouci toto reseni odmita.
Vsiml jsem si, ze BDE dodavane s Delphi 3 nema nativni driver pro FoxPro.
Takze se vytvori soubor dBase. Nedal by se tento soubor upravit (myslim
vyslednou dbf tabulku) tak aby nemela FoxPro namitky?
Predem dik za odpoved.
Mirek Drejcek.
Pokud mas v definici nativniho driveru TableLevel vetsi jak 2.5, tak se
vytvari tabulke, ve ktere jsu cisla v nativnim formatu, s cimz si FP 2.0
neporadi. Oprav si to v BDE administratoru a melo by to yt OK.
Jan Fiala
----- Original Message -----
From: "Mirek Drejcek" < drejcek(zv)schkocr(tec)cz <mailto:drejcek(zv)schkocr(tec)cz> >
>Zdravim,
>mam tady jeden problem. Pri vytvareni Tabulky pomoci SQL dotazu
(komponentou Query) vypada >vse Ok. Bohuzel, kdyz tuto tabulku chci otevrit
ve FoxPro v.2.0 tak program tuto akci nevykona. >Napise ze "Soubor neni
databazi".
>Nevite prosim nekdo co s tim?
>Diky
Pole obrazku
[*] Radek Janu� <janus(zv)foresta(tec)cz> - 10.10.2000 14:49:36
Jo to normalne funguje
musis ale kazdy TImage v poli zvlast creatovat a rusit - jako klasicke
komponenty
Pole[1,1]:=TImage.create(self);
...
...
-----P�vodn� zpr�va-----
Od: Raul Endymion <Raul.Endymion(zv)ns1.infima(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. ��jna 2000 9:59
P�edm�t: Pole obrazku
> Mam ve svym formu 25 obrazku v matici 5*5.
> Rad bych ovsem pouzil pri zadavani a praci s temito primo pozici x,
> y. Je mozne udelat nejaky pole s odkazy na jednotlive obrazky ?
>
> Napr.
>
> pole : Array[1..5,1..5] of TComponent; a potom ve formcreate
> definovat
> pole[1,1] := Image1; atd ?
>
> Dikes Raul mailto:Raul.Endymion(zv)ns1.infima(tec)cz
>
Pocet stranek
[*] Krska Vit <v_krska(zv)del(tec)cz> - 10.10.2000 15:12:04
ahoj,
nevi nekdo jak zjistit pocet stranek v QuickReportu. potrbuji v reportu
zobrazit "page/page count". zatim to resim tak ze report generuji dvakrat a
to se mi nezda prilis stastne. pri prvnim gerovani zjistim pocet stranek a
ten pak vlozim do reportu a musim generovat znova.
diky
Otevreni jiz pouzivane databaze
[*] Zapl�k���ͪe�?�Y��̿ - 10.10.2000 15:20:16
D5 Profi, W98
Mam jeden malej dotaz. Da se nejakym zpusobem otevrit databaze (napr. *.dbf)
ktera je jiz otevrena jinou aplikaci? Nebo alespon vytvorit jeji kopii . Ani
jedno, ani druhe system nedovoli. Uplne by mi stacilo otevrit ji jen pro
cteni, ale bojim se, ze to asi nepujde. Budu vdecny za jakoukoliv radu.
zaplik(zv)volny(tec)cz
Sirka formu
[*] MUDr.Neu�il <drneuzil(zv)razdva(tec)cz> - 10.10.2000 16:12:50
Potrebuju dat HorizScrollBar na form, na kterem neni nic, nez malovani
Canvas.Pen. Cary jdou doprava az za roh a chtelo by to ScrollBar. Ten mi
funguje na cokoliv sirsiho, ale na Canvas ne. Jak na to?
with HorzScrollBar do
begin
if Canvas.????? > Width then
AutoScroll := True;
Increment := 6;
Visible := True;
end;
Miloslav Neuzil
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Pocet stranek
[*] Ales Kle�ka - 10.10.2000 16:30:07
Ahoj, jestli se nepletu, tak by melo stacit pouzit metodu Prepare. To by
melo provest 'vnitrni tisk', kdy si naplni svoje promenne ( napr.
PageCount ).
Cau Alesh
> ahoj,
> nevi nekdo jak zjistit pocet stranek v QuickReportu. potrbuji v reportu
> zobrazit "page/page count". zatim to resim tak ze report generuji dvakrat
a
> to se mi nezda prilis stastne. pri prvnim gerovani zjistim pocet stranek a
> ten pak vlozim do reportu a musim generovat znova.
>
> diky
Pole obrazku
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 10.10.2000 16:53:58
Ahoj,
funguje to i primo pole[1,1] := Image1, zalezi jen na tom co se Ti vic
libi.
Dalsi vylepseni :
for I := 0 to 24 do
pole [succ (I div 5), succ (I mod 5)] := findcomponent ('Image' +
inttostr (succ (I));
Radek Janu� wrote:
>
> Jo to normalne funguje
> musis ale kazdy TImage v poli zvlast creatovat a rusit - jako klasicke
> komponenty
>
> Pole[1,1]:=TImage.create(self);
> ...
> ...
>
> -----P�vodn� zpr�va-----
> Od: Raul Endymion <Raul.Endymion(zv)ns1.infima(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 10. ��jna 2000 9:59
> P�edm�t: Pole obrazku
>
> > Mam ve svym formu 25 obrazku v matici 5*5.
> > Rad bych ovsem pouzil pri zadavani a praci s temito primo pozici x,
> > y. Je mozne udelat nejaky pole s odkazy na jednotlive obrazky ?
> >
> > Napr.
> >
> > pole : Array[1..5,1..5] of TComponent; a potom ve formcreate
> > definovat
> > pole[1,1] := Image1; atd ?
> >
> >
> > Dikes Raul mailto:Raul.Endymion(zv)ns1.infima(tec)cz
> >TreeView
[*] Ale� Va���ek�����"q��y�&���w�3 - 10.10.2000 17:50:59
Ahoj,
mam TreeView a potreboval bych ho nejak programove prepnout na urcite
polozce do editacniho modu. Stejne jak to dela pruzkumnik pri vytvareni nove
slozky. Vytvori polozku s nazvem Nova slozka, ale uz na ni blika kurzor a
lze ji editovat.
Ales
CTRL+A, CTRL+C
[*] Jan Najv�rek <najvarek(zv)seznam(tec)cz> - 10.10.2000 17:51:38
> Najde se nekdo kdo mi poradi jak to udelat. Potrebuju nejake
> aplikaci (treba notepad) poslat sekvenci klaves CTRL+A a CTRL+C.
Trosku slozita, ale fungujici funkce jak posilat klavesy jsem nasel na www.deja.com v PowerSearch (tam se da naji vse). Autorem je Peter Below...
{************************************************************
* Procedure PostKeyEx
*
* Parameters:
* hWindow: target window to be send the keystroke
* key : virtual keycode of the key to send. For printable
* keys this is simply the ANSI code (Ord(character)). * shift : state of the modifier keys. This is a set, so you
* can set several of these keys (shift, control, alt, * mouse buttons) in tandem. The TShiftState type is
* declared in the Classes Unit.
* specialkey: normally this should be False. Set it to True to * specify a key on the numeric keypad, for example.
* If this parameter is true, bit 24 of the lparam for * the posted WM_KEY* messages will be set.
* Description:
* This procedure sets up Windows key state array to correctly
* reflect the requested pattern of modifier keys and then posts * a WM_KEYDOWN/WM_KEYUP message pair to the target window. Then * Application.ProcessMessages is called to process the messages * before the keyboard state is restored.
* Error Conditions:
* May fail due to lack of memory for the two key state buffers. * Will raise an exception in this case.
* NOTE:
* Setting the keyboard state will not work across applications * running in different memory spaces on Win32 unless AttachThreadInput * is used to connect to the target thread first.
*Created: 02/21/96 16:39:00 by P. Below
************************************************************}
Procedure PostKeyEx( hWindow: HWnd; key: Word; Const shift: TShiftState; specialkey: Boolean );
Type
TBuffers = Array [0..1] of TKeyboardState;
Var
pKeyBuffers : ^TBuffers;
lparam: LongInt;
Begin
(* check if the target window exists *)
If IsWindow(hWindow) Then Begin
(* set local variables to default values *)
pKeyBuffers := Nil;
lparam := MakeLong(0, MapVirtualKey(key, 0));
(* modify lparam if special key requested *)
If specialkey Then
lparam := lparam or $1000000;
(* allocate space for the key state buffers *)
New(pKeyBuffers);
try
(* Fill buffer 1 with current state so we can later restore it. Null out buffer 0 to get a "no key pressed" state. *) GetKeyboardState( pKeyBuffers^[1] );
FillChar(pKeyBuffers^[0], Sizeof(TKeyboardState), 0);
(* set the requested modifier keys to "down" state in the buffer *) If ssShift In shift Then
pKeyBuffers^[0][VK_SHIFT] := $80;
If ssAlt In shift Then Begin
(* Alt needs special treatment since a bit in lparam needs also be set *)
pKeyBuffers^[0][VK_MENU] := $80;
lparam := lparam or $20000000;
End;
If ssCtrl In shift Then
pKeyBuffers^[0][VK_CONTROL] := $80;
If ssLeft In shift Then
pKeyBuffers^[0][VK_LBUTTON] := $80;
If ssRight In shift Then
pKeyBuffers^[0][VK_RBUTTON] := $80;
If ssMiddle In shift Then
pKeyBuffers^[0][VK_MBUTTON] := $80;
(* make out new key state array the active key state map *) SetKeyboardState( pKeyBuffers^[0] );
(* post the key messages *)
If ssAlt In Shift Then Begin
PostMessage( hWindow, WM_SYSKEYDOWN, key, lparam);
PostMessage( hWindow, WM_SYSKEYUP, key, lparam or $C0000000); End
Else Begin
PostMessage( hWindow, WM_KEYDOWN, key, lparam);
PostMessage( hWindow, WM_KEYUP, key, lparam or $C0000000); End;
(* process the messages *)
Application.ProcessMessages;
(* restore the old key state map *)
SetKeyboardState( pKeyBuffers^[1] );
finally
(* free the memory for the key state buffers *)
If pKeyBuffers <> Nil Then
Dispose( pKeyBuffers );
End; { If }
End;
End; { PostKeyEx }
procedure TForm1.SpeedButton2Click(Sender: TObject);
Var
W: HWnd;
begin
W := Memo1.Handle;
PostKeyEx( W, VK_END, [ssCtrl, ssShift], False ); {select all} PostKeyEx( W, Ord('C'), [ssCtrl], False ); {copy to clipboard} PostKeyEx( W, Ord('C'), [ssShift], False ); {replace with C} PostKeyEx( W, VK_RETURN, [], False ); {new line}
PostKeyEx( W, VK_END, [], False ); {goto end}
PostKeyEx( W, Ord('V'), [ssCtrl], False ); {paste from keyboard} end;
Honza Najvarek
Navratovy PChar z funkcie.
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 10.10.2000 18:39:31
Zdravim.
Preco mi nefunguje tato funkcia ako UDF v IB6:
-----------------------------------------------------------------
function UpperRTS(var Text:PChar): PChar;
begin
Result:=Text;
end;
-----------------------------------------------------------------
ked tam napisem nasledujuce tak to funguje
-----------------------------------------------------------------
function UpperRTS(var Text:PChar): PChar;
begin
Result:='chacha';
end;
-----------------------------------------------------------------
Preco ?
Dakujem.
Roland.Sirka formu
[*] Lauko �tefan <lauko(zv)salamon.sk> - 10.10.2000 18:50:14
Ahoj,
mozno staci aj toto:
HorzScrollBar.Range:=1000;
VertScrollBar.Range:=1000;
Lauko.
----- Original Message -----
Od: MUDr.Neu�il <drneuzil(zv)razdva(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 10. okt�ber 2000 16:12
Predmet: Sirka formu
> Potrebuju dat HorizScrollBar na form, na kterem neni nic, nez malovani
> Canvas.Pen. Cary jdou doprava az za roh a chtelo by to ScrollBar. Ten mi
> funguje na cokoliv sirsiho, ale na Canvas ne. Jak na to?
> with HorzScrollBar do
> begin
> if Canvas.????? > Width then
> AutoScroll := True;
> Increment := 6;
> Visible := True;
> end;
> Miloslav Neuzil
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
>PrehravAni mp3 mediaplayer?
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 10.10.2000 20:29:11
Mozna je to uplne mimo, ale FindFirst/Next vraci jenom nazev souboru bez
cesty, takze je ji tam nutno zase pridat...
Vojtek Jiri wrote:
>
> Dobry den Vsem,
> Otazka je nasledujici. Nasel jsem v historii konference zminku, ze novy
> mediaplayer dokaze prehravat i mp3. To mne neobycejne potesilo. Momentalne
> bojuji s jednim problemem. Pokud dam MediaPlayer1.Filename:='c:\xy.mp3' a
> otevru ho s device type auto je vse v klidu. Jakmile vsak se pkusim o
> podobny trik s prirazenim jmena ziskaneho pres findfirst/next Zahlasi, chybu
> mmci ze nezna ovladac nebo jej nemuze otevrit. Co s tim? Pripadne co dat do
> DEVICETYPE natvrdo. Diky za kazdou radu a pardon, ze se takl vykecavam :-)
> J. Vojt.
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
| WebMaster of |
| http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
\--------------------------------------------------------------/
ADOExpres, problemy pri odpojovani Connection
[*] Erik Salaj <winsoft(zv)napri.sk> - 10.10.2000 20:56:41
> Potreboval bych poradit s nasledujicim problemem. V D5 Ent. SP1 pouzivame
> pro pristup k MSSQL 7.0 komponenty ADOExpres. Kdyz nastavim vlastnost
> Connected komponenty TADOConnection na False, projevi se mi to ve vypisu
> procedury sp_who az po delsi chvili. Navic se stane, ze nekdy pripojeni
> nezmizi vubec (zustane viset a blokuje tabulky na serveru). Nevite nekdo
cim
> to muze byt, a co bych mel udelat pro to aby se server o odpojeni dane
> connection dozvedel co nejdrive.
Je to zase problem v ADOExpress-e, neuvolnuje sa tam ADOConnection
objekt iba sa zatvori. Skusal som KeepConnection := False, ale nepomohlo.
V Adonise to chodi korektne.
Erik Salaj, WINSOFT
Sirka formu
[*] MUDr.Neu�il <drneuzil(zv)razdva(tec)cz> - 10.10.2000 21:00:58
Diky Lauko, ale nestaci. Hledam v helpu a taky prt.
Miloslav Neuzil
----- Original Message -----
From: "Lauko �tefan" <lauko(zv)salamon.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, October 10, 2000 6:50 PM
Subject: RE: Sirka formu
> Ahoj,
> mozno staci aj toto:
> HorzScrollBar.Range:=1000;
> VertScrollBar.Range:=1000;
>
> Lauko.
>
> ----- Original Message -----
> Od: MUDr.Neu�il <drneuzil(zv)razdva(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odoslan�: 10. okt�ber 2000 16:12
> Predmet: Sirka formu
>
>
> > Potrebuju dat HorizScrollBar na form, na kterem neni nic, nez malovani
> > Canvas.Pen. Cary jdou doprava az za roh a chtelo by to ScrollBar. Ten mi
> > funguje na cokoliv sirsiho, nez form, ale na Canvas ne. Jak na to?
> > with HorzScrollBar do
> > begin
> > if Canvas.????? > Width then
> > AutoScroll := True;
> > Increment := 6;
> > Visible := True;
> > end;
> > Miloslav Neuzil
> >
> >
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
> >
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
TreeView
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 10.10.2000 22:29:19
Nejsem si 100% jist, ale mam pocit, ze existuje neco jako metoda Edit,
nebo tak nejak, zkus se po tom kouknout...
Ale� Va���ek wrote:
>
> Ahoj,
>
> mam TreeView a potreboval bych ho nejak programove prepnout na urcite
> polozce do editacniho modu. Stejne jak to dela pruzkumnik pri vytvareni nove
> slozky. Vytvori polozku s nazvem Nova slozka, ale uz na ni blika kurzor a
> lze ji editovat.
>
> Ales
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
| WebMaster of |
| http://www.volny(tec)cz/jimx - Neofici�ln� str�nka MISS |
\--------------------------------------------------------------/Sirka formu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 10.10.2000 23:15:06
From: "MUDr.Neu�il" <drneuzil(zv)razdva(tec)cz>
> Potrebuju dat HorizScrollBar na form, na kterem neni nic, nez malovani
> Canvas.Pen. Cary jdou doprava az za roh a chtelo by to ScrollBar. Ten mi
> funguje na cokoliv sirsiho, ale na Canvas ne. Jak na to?
> with HorzScrollBar do
> begin
> if Canvas.????? > Width then
> AutoScroll := True;
> Increment := 6;
> Visible := True;
> end;
> Miloslav Neuzil
Takhle primo to asi nepujde.
Canvas je jako kreslici plocha, pres kterou se form vykresluje.
Canvas formu nemuze byt vetsi, nez je samotny form.
Na form bude nutne polozit nejakou komponentu,
ktera bude mit canvas a jejiz velikost bude vetsi
nez form. Napriklad TPaintBox.
Ja bych to udelal takto:
- na form polozit TPaintBox, Align nechat alNone
- velikost PaintBoxu nastavit na pozadovanovanou velikost
pro kresleni
- pokud se na formu ponecha AutoScroll, je hotovo.
Pokud by byl form slozitejsi s dalsimi komponentami,
bylo by vhodnejsi AutoScroll formu vypnout
a PaintBox podlozit ScrollBoxem
Vaclav Krmela
MS SQL 7 - chyba Access Violation occurred reading
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 10.10.2000 23:34:39
Zdravim,
mozna, ze to nepomuze, ale zkus si to nakonfigurovat pres TCP/IP a vykaslat
se na ty NamedPipes (ty dat uplne pryc). Ja jedu pres TCP/IP a tyhle chyby
nemam.
Nevim, jestli prvotni pricina byla v tom Communication link failure nebo
fatal exception c0000005, proto taky zkus nejak "zkontrolovat" pripojeni k
serveru (HW i konfigurace), nekdy nastve i spatne nalisovany sitovy kabel.
Tomas Bradle
----- Original Message -----
From: Tom� Vlad�k <tom.vladik(zv)swadvice(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, October 10, 2000 7:38 AM
Subject: RE: MS SQL 7 - chyba Access Violation occurred reading address
0000000C
>
> ODBC: Msg 0, Level 19, State 1
> SqlDumpExceptionHandler: Process 12 generated fatal exception c0000005
> EXCEPTION_ACCESS_VIOLATION. SQL Server is terminating this process.
> [Microsoft][ODBC SQL Server Driver][Named Pipes]ConnectionWrite
> (GetOverLappedResult()).
> [Microsoft][ODBC SQL Server Driver]Communication link failure
Eventy v COM objektech
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 10.10.2000 23:38:09
Zdravim,
tady mas adresu na popis COM a DCOM, jsou tam i priklady. Mezi nima je i na
eventy, je tam i komponenta na podporu eventu. Myslim si ze Ti to pomuze.
http://www.intac.com/~bly/com
Tomas Bradle
----- Original Message -----
From: <archiv(zv)delphi(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, October 10, 2000 1:58 PM
Subject: Eventy v COM objektech
> Zdravim,
> omlouvam se za par predchozich vadnych prispevku, ale konfiguroval jsem si
postovniho klienta, abych
> prispival jmenem prihlasene Exchange slozky Delphi, ketrou hostujeme.
>
> Mam jeden problem. V Delphi 5 Prof. jsem si vyzkousel dle dokumentace
vytvorit Automation server, ktery
> podporuje udalosti, nejake udalosti jsem si naimplementoval, ale nikde jiz
neni priklad, jak napsat klienta, ktery
> se k tomuto serveru pripoji a reaguje na tyto udalosti. Snazil jsem se to
rozchodit dle knihy INSIDE OLE, ale
> nepodarilo se.
>
> Proto prosim, zda by me nekdo nemohl poslat funkcni priklad na Eventy v
COM objektech.
>
> Diky moc
>
> Petr Linhart (petr(zv)mius(tec)cz)
>Sirka formu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 10.10.2000 23:02:19
hm, a co tam flaknout TScrollBox, dat align na alClient a malovat na TScrollBox
???
Zdar Radegast
Diky Lauko, ale nestaci. Hledam v helpu a taky prt.
Miloslav Neuzil
----- Original Message
-----
From: "Lauko �tefan" <lauko(zv)salamon.sk>
To: <delp
hi-l(zv)fwd(tec)cz>
Sent: Tuesday, October 10, 2000 6:50 PM
Su
bject: RE: Sirka formu
> Ahoj,
> mozno staci aj tot
o:
> HorzScrollBar.Range:=1000;
> VertScrollBar.Ran
ge:=1000;
>
> Lauko.
>
Prekreslovanie formulara
[*] tomsir1.edu(zv)mail.cez(tec)cz - 10.10.2000 23:08:21
Ahoj, muzes si treba metodu OnPaint predefinovat a to
svoje prekreslovani
vyvolat pouze tehdy, pokud se zmeni
poloha okna ...
Zdar Radegast�
"Mari�n Gor
yl" <goryl(zv)insdata.sk> on 10.10.2000 07:38:18
Odpov�zt
e pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Tomsik Radek/4130P/EDU/CEZ)
P�edm�t: Prekreslovanie formulara
Ahoj,
Na formular vykreslujem za behu nejaky metafile. Kedze som chcel vyriesit
problem s prekreslovanim formu pri presuvani formu, premiestnil som
vykreslovanie metafile do udalosti formu OnPaint. No udalost OnPaint sa
podla popisu vyvola pred prekreslenim hociakeho Controlu umiestneneho na
forme alebo pred pouzitim Canvasu formulara. Vysledok je ze sa metafile
vykresluje dva krat, lebo ja forme su aj ine komponenty, ktore sa menia
napr. Labely.
Otazka: da sa teda udalost OnPaint zakazat a potom znovu povolit? Alebo
navrhujete ine riesenie?
Dakujem Marian
ikonu z EXE 16x16
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 11.10.2000 07:28:30
Dobry den, pouzij funkci ExtractIcon nebo ExtractIconEx
napr.:
icon:=TIcon.Create;
try
icon.Handle:=ExtractIcon (hInstance,[pchar nazvu souboru i
scestou],[poradove cislo ikony (viz help)]);
finally
icon.Free;
end;
----- Original Message -----
From: "Hurricane" <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, October 09, 2000 2:51 PM
Subject: ikonu z EXE 16x16
> Zdravim
>
> Mam v registru napsanou cestu k EXE souboru (napr:
> D:\office\Office\Winword.exe) a potrebuju z toho dostat ikonu, kterou pak
> chci dat do TToolbarButtonu97. Dokazu ikonu pomoci ImageListu na ty
buttony
> nacpat, ale vykresli se nejak divne, jako by se zmensovaly z ruznych
> velikosti na 16x16. Jde nejak zaridit, aby se nacitaly 16x16? Zatim
pouzivam
> toto:
>
> icon.LoadFromFile(Registry.ReadString('ico1'));
>
> Druhy muj problem spociva v tom, ze bych chtel nacitat tu ikonu z EXE
> souboru. Kdyz pouziju
>
> icon.LoadFromFile('D:\office\Office\Winword.exe');
> nebo
> icon.LoadFromFile('D:\office\Office\Winword.exe,1');
>
> tak to nejde.
>
> Nevite nekdo jak na to?
>
> Diky vsem, kdo poradi
> Hurricane
>Pocet stranek
[*] Krska Vit <v_krska(zv)del(tec)cz> - 11.10.2000 07:29:43
ahoj,
posledne jsem se vyjadril neuplne, metodu Prepare na zjisteni stranek
pouzivam. problem je, ze moje aplikace je client a pri generovani reportu se
dotazuje do database a to docela trva. ja provadim prikazy nasledovne:
QR.prepare;
QRLabelPageCount.caption:=inttostr(PageNumber);
QR.prewiewmodal;
prepare a prewiewmodal generuji stejny report, rozdil je jen v tom, ze po
prepare je na strankach misto poctu stranek nula.
toho prikazu prepare bych se chtel nejak efektne zbavit.
vitek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Ales
Kle�ka
Sent: Tuesday, October 10, 2000 4:30 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Pocet stranek
Ahoj, jestli se nepletu, tak by melo stacit pouzit metodu Prepare. To by
melo provest 'vnitrni tisk', kdy si naplni svoje promenne ( napr.
PageCount ).
Cau Alesh
> ahoj,
> nevi nekdo jak zjistit pocet stranek v QuickReportu. potrbuji v reportu
> zobrazit "page/page count". zatim to resim tak ze report generuji dvakrat
a
> to se mi nezda prilis stastne. pri prvnim gerovani zjistim pocet stranek a
> ten pak vlozim do reportu a musim generovat znova.
>
> diky
Navratovy PChar z funkcie.
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 11.10.2000 07:48:03
ahoj,
protoze PCHAR je ukazatel na retezec. to ze do PCHARu priradis string
nevadi, ponevadz delphi to prelozi spravne. proc nefunguje prime
prirazeni nevim presne, ale imho se posilany vstupni retezec zahodi
driv, nez je prectena navratova hodnota funkce, Vysledek pak uazuje
nekam do diry...
dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ firemni mail smtp: palicka(zv)aginfo(tec)cz]
[pro konference: petr.palicka(zv)atlas(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
> -----Original Message-----
> From: Roland Tur�an (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
> Sent: Tuesday, October 10, 2000 6:40 PM
> To: Delphi CZ konferencia
> Subject: Navratovy PChar z funkcie.
>
>
> Zdravim.
>
> Preco mi nefunguje tato funkcia ako UDF v IB6:
> -----------------------------------------------------------------
> function UpperRTS(var Text:PChar): PChar;
> begin
> Result:=Text;
> end;
> -----------------------------------------------------------------
> ked tam napisem nasledujuce tak to funguje
> -----------------------------------------------------------------
> function UpperRTS(var Text:PChar): PChar;
> begin
> Result:='chacha';
> end;
> -----------------------------------------------------------------
>
> Preco ?
>
> Dakujem.
>
> Roland.
> MSSQL7->IB6
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 11.10.2000 08:13:51
Ahoj,
mam aplikaci s databazi na MSSQL7. Chtel bych ji zkusit prevest
na IB6. Existuje v soucasne dobe nejaky zpusob, jak prenest
tabulky z MSSQL na IB6? Pro vyuziti exportu dat z MSSQL
nemam ODBC ani OLEDB driver k IB6 a pouziti BatchMove v
Delphi vyhodi chybu:
General SQL error. Arithmetic exception, numeric overflow, or
string truncation. Cannot transliterate character between character
sets.
Chtel bych se vyhnout rucnimu zakladani tabulek na IB6 kvuli
pomerne bohate strukture (dost sloupcu a indexu).
David
SIT Co st�m ...
[*] Petr Slaby <slaby(zv)bivoj.it.cas(tec)cz> - 11.10.2000 09:02:02
Zkus pouzit freewarove komponenty ICS. Jsou na http://www.rtfm.be/fpiette.
Petr Slaby
----- Original Message -----
From: "Sl�va Roman" <rsliva(zv)novahut(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, October 10, 2000 11:11 AM
Subject: SIT Co st�m ...> Ahoj
> Prosim o radu. Nikdy jsem nemel moznost primeho pristupu na sit LAN
???
> (doma ji nemam :)) )
> Nyni mam pres LAN sit spojene 3 PC a znam jejich IP adresy.
> Potreboval bych komunikovat se svym programem na jinem PC. Nevim kde a jak
> zacit.
> Napada mne jen ukladani souboru do sdilenych adresaru. Nevite neco
> efektivnejsiho ??
>
> Diky Roman
> rsliva(zv)novahut(tec)cz
>
> blby FAQ .... Existuje nejaka moznost vyuzit DDE ???
>
>Pripojeni k MSSQL (pres ADONIS - OLE DB)
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 11.10.2000 09:10:22
Vazeni pratele, ano !
Opet jsem si to dokazal - premira horlivosti nekdy skodi.
Pravdepodobne v zachvatu potreby mit vse co nejnovejsi jsem si stahnul
service pack k ceskym Windows 2000 a nainstaloval jej.
A pote nastal problem:
nefunguje mi pripojeni z meho programu k MS SQL serveru (verze 2000 bera 2).
Pro komunikaci se servrem pouzivam ADONISove komponenty.
Pripojuji se takto:
Data Source=KAM_NT\SQL2000 (na serveru mi bezi dve instance SQL serveru,
proto to jmeno s lomitkem)
Provider=SQLOLEDB.1
UseNTIntegratedSecurity=1
Drive mi vse chodilo jako hodinky a ted nic !
Pritom ostatni druhy pripojeni (MMC konzole ci Query Analyzer) jsu v pohode.
Proto se ptam: je chyba v OLE DB providerovi ci je mozne, ze je nejaka
nesrovnalost i v ADONISu
nebo jsem neco udelal spatne ja (asi nejpravdepodobnejsi varianta) ?
PS: tady je pouzivana konfigurace:
Server:
WinNT 4.0, 1x SQL 7.0, 1x SQL2000 beta 2 (Logovani: windows NT/2000 only)
Klient:
D5 Pro, Adonis 4.0, Win2000 CZ SP1, pocitac je pripojen do domeny.
Diky za jakoukoliv odpoved.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Milan Tome�
> Sent: Tuesday, October 10, 2000 11:31 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: mesta CR
>
>
> Mam PSC, UTJ, ZUJ, okresy, kraje atp....
>
> Milan Tomes
>
> > Subject: Re: mesta CR
> >
> >
> > Za to pivo to beru, mam databazi kraju, okresu, obci, kat. uz.,
> ozvi se mi
> > na soukromi mail
> > Cadsky
> > cadsky(zv)atlas(tec)cz
> >
> > > Omlouvam se za OT,
> > > ale nutne schanim seznam ceskych mest /ne vesnic, nejaky rozumny/ v
> > nejakem prectenischopnem formatu, idelani by bylo, kdyby byly mesta i
> > rozdelena podle kraju a kdyby u kazde mesta byly uvedeny
> souradnice /neni
> > podminkou/, tak mate u me pivo :-)
> > >
> > > Diky za odpovedi, preji prijemny den
> > >
> > > Roman
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
>Kde sehnat algoritmy
[*] Ren� Otisk - 11.10.2000 09:15:40
Hi,
Co se tyce umele inteligence, tak dobry veci jsou od Kelemena plus tam ma
nejake dalsi autory (krestni nevim a tusim starsi veci vydala Bratislava a
loni nebo predloni od nej vyslo neco noveho u nas...). V kazde univerzitni
knihovne to budou mit
Sroub
> Zdar a silu!
>
> > Jeste bych potreboval poradit, kde sehnat nejaky algoritmus na hrani
> > piskvorku, nebo aspon jeho popis.
> Je to tzv. minimaxova metoda (Umela inteligence). Podrobnejsi popis
> bych hledal krome odborne literatury napr. ve skriptech nebo na webu
> universit. Napr. Fakulta informatiky MU Brno ma cast skript v
> elektronicke podobe (psali to studenti podle prednasek). Adresa je
> neco jako www.informatics.muni(tec)cz/zkusto
>
> Zdar!
>
> Vladimir Novacek
>
> VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
> Zborovska 15 fax+BBS: 05-41240246
> 616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
> Ceska Republika http://www.vanicek(tec)cz
SIT Co stim ...
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 11.10.2000 09:18:20
Predpokladam, ze asi programujes v D4, nebo v D5.
Pokud ano, tak se podivej na komponenty NMUDP, NMMSG a NMMSGServ.
V Helpu jsou jednoduche priklady, pro zacatek by ti to melo staci.
Slavek
> -----Puvodni zprava-----
> Od: Sliva Roman [SMTP:rsliva(zv)novahut(tec)cz]
> Odeslano: 10. oijna 2000 11:12
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: SIT Co stim ...
>
> Ahoj
> Prosim o radu. Nikdy jsem nemel moznost primeho pristupu na sit LAN ???
> (doma ji nemam :)) )
> Nyni mam pres LAN sit spojene 3 PC a znam jejich IP adresy.
> Potreboval bych komunikovat se svym programem na jinem PC. Nevim kde a jak
> zacit.
> Napada mne jen ukladani souboru do sdilenych adresaru. Nevite neco
> efektivnejsiho ??
>
> Diky Roman
> rsliva(zv)novahut(tec)cz
>
> blby FAQ .... Existuje nejaka moznost vyuzit DDE ???
> Navratovy PChar z funkcie.
[*] delphi <delphi(zv)enterkosice.sk> - 11.10.2000 09:20:58
Daj si v helpe vyhladat "Returning a PChar local variable"
forgo
>
> Preco mi nefunguje tato funkcia ako UDF v IB6:
> -----------------------------------------------------------------
> function UpperRTS(var Text:PChar): PChar;
> begin
> Result:=Text;
> end;
> -----------------------------------------------------------------
> ked tam napisem nasledujuce tak to funguje
> -----------------------------------------------------------------
> function UpperRTS(var Text:PChar): PChar;
> begin
> Result:='chacha';
> end;
> -----------------------------------------------------------------
> MSSQL7->IB6
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 11.10.2000 10:13:40
Ahoj,
moc som to nestudoval, ale skus sa pozriet na
http://www.ibphoenix.com/sql2gdb.html
Tomas
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of David Lebeda
> Sent: Wednesday, October 11, 2000 8:14 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: MSSQL7->IB6
>
>
> Ahoj,
>
> mam aplikaci s databazi na MSSQL7. Chtel bych ji zkusit prevest
> na IB6. Existuje v soucasne dobe nejaky zpusob, jak prenest
> tabulky z MSSQL na IB6? Pro vyuziti exportu dat z MSSQL
> nemam ODBC ani OLEDB driver k IB6 a pouziti BatchMove v
> Delphi vyhodi chybu:
>
> General SQL error. Arithmetic exception, numeric overflow, or
> string truncation. Cannot transliterate character between character
> sets.
>
> Chtel bych se vyhnout rucnimu zakladani tabulek na IB6 kvuli
> pomerne bohate strukture (dost sloupcu a indexu).
>
> David
> MSSQL7->IB6
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 11.10.2000 10:16:41
koukni se sem http://www.ibphoenix.com/sql2gdb.html
David Lebeda wrote:
>
> Ahoj,
>
> mam aplikaci s databazi na MSSQL7. Chtel bych ji zkusit prevest
> na IB6. Existuje v soucasne dobe nejaky zpusob, jak prenest
> tabulky z MSSQL na IB6?
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Komunikace mezi applikacema..
[*] Raul Endymion <Raul.Endymion(zv)ns1.infima(tec)cz> - 11.10.2000 10:42:23
Potreboval bych popsat co nejrychlejsi zpusoby komunikace mezi
applikacema na jednom a vice pocitacich (zvlast).
Jedna se mi o serverovou aplikaci (ne databazi) a maleho rychle se
natahujiciho klienta (hodne rychle radove 10* za vterinu).
Muzete mi nekdo poradit jak na to ?V tomhle jsem naprosty zacatecnik.
Dikes
Raul mailto:Raul.Endymion(zv)ns1.infima(tec)cz
MSSQL7->IB6
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 11.10.2000 12:40:43
> http://www.ibphoenix.com/sql2gdb.html
Ahoj,
dik za odkaz - je to opravdu ono, ale presto me to vypiska pri
pokusu o preneseni dat s hacky a carkami:
Cannot transliterate character between character sets.
Jaky charset se tedy pouziva na MSSQL7? V IB6 jsem tabulku
zalozil s WIN1250, collate je PXW_CSY.
Co je tedy spatne?
David
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> > Behalf Of David Lebeda
> > Sent: Wednesday, October 11, 2000 8:14 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: MSSQL7->IB6
> >
> >
> > Ahoj,
> >
> > mam aplikaci s databazi na MSSQL7. Chtel bych ji zkusit prevest na
> > IB6. Existuje v soucasne dobe nejaky zpusob, jak prenest tabulky z
> > MSSQL na IB6? Pro vyuziti exportu dat z MSSQL nemam ODBC ani OLEDB
> > driver k IB6 a pouziti BatchMove v Delphi vyhodi chybu:
> >
> > General SQL error. Arithmetic exception, numeric overflow, or
> > string truncation. Cannot transliterate character between character
> > sets.
> >
> > Chtel bych se vyhnout rucnimu zakladani tabulek na IB6 kvuli
> > pomerne bohate strukture (dost sloupcu a indexu).
> >
> > David
> >
struktura databaze programove
[*] Ota Maly <maly(zv)space(tec)cz> - 11.10.2000 13:01:36
Ahoj,
kdyz tam poslu tohle
>SET TERM !
>
>CREATE TRIGGER SET_Neco
>FOR Neco BEFORE INSERT POSITION 0 AS
>BEGIN
> new.Uniq = gen_id(Neco_GEN, 1);
>END !
tak mi to vyhodi hned ten SET TERM, pritom tohle treba v IBConsoli projde v
pohode.
Jeste je predtim definovan generator Neco_GEN.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
>
> Ahoj,
>
> aku chybu Ti vracia?
>
> Moze sa stat, ze ak pouzijes v skripte premenne uvedene
> dvojbodkou je nutne
> nastavit property ParamCheck := false; (default je true).
>
> Pavol Stolc
> pstolc(zv)sc.sknet.sk
> ----- Original Message -----
> From: Ota Maly <maly(zv)space(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, October 09, 2000 1:25 PM
> Subject: IB6: struktura databaze programove
>
>
> > Ahoj,
> > snazim se programove vytvorit DB (ze skriptu), ale nedari se mi.
> > Pokud mam IBDatabase, IBTransaction a IBSQL tak vytvorim
> databazi, tabulky
> i
> > generatory, ale nedari se mi poslat tam trigger.
> > Take me napadlo volat externe isql.exe, na tom ted pracuju, uvidime..
> >
> > Jak to resite vy?
> >
> > S pozdravem
> > Ota Maly
> >
> > PaPouch elektronika
> > http://www.pap-el(tec)cz
> >
>
Komunikace mezi applikacema..
[*] Delphi <delphi(zv)aitix(tec)cz> - 11.10.2000 13:13:37
>Potreboval bych popsat co nejrychlejsi zpusoby komunikace mezi
>applikacema na jednom a vice pocitacich (zvlast).
>Jedna se mi o serverovou aplikaci (ne databazi) a maleho rychle se
>natahujiciho klienta (hodne rychle radove 10* za vterinu).
>Muzete mi nekdo poradit jak na to ?V tomhle jsem naprosty zacatecnik.
Nevim jak s tou rychlosti, ta je dana mnoha vecma okolo,
ale na komunikaci bych pouzil TCPIP tj. WinSock.
Komponenty do delphi viz napriklad:
http://www.rtfm.be/fpiette
Leos
obsluha udalosti pred vyjimkou
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 11.10.2000 13:38:02
Ahoj
Potreboval bych zkontrolovat obsah Db pole typu Datum pri udalosti OnExit
a pokud je datum chybne, tak je opravit.
Tuto obsluhu nelze zajistit u v TDateField.OnValidate protoze interni
vyjimka je pred touto udalosti
Jednodusereceno se potrebuji dostat pred tuto vyjimku a provest opravu
datumu.
S pozdravem Heinisch jiri
prevod tabulky v html do db
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 11.10.2000 13:42:00
Ahoj
Ma nekdo zpracovanou funkci na prevod tabulky v Html formatu do
db formatu ci jinak strukturovaneho textu a je ochoten se o ni podelit ?
S pozdravem Heinisch Jiri
Kde sehnat algoritmy
[*] Marek ��ek - 11.10.2000 13:47:56
Ahoj *.*
na toto existuje nejaka matematicka metoda,
tusim ze se jmenuje Papeho a existuje ve spouste
modifikaci. Princip je ten, ze vycestuju z vychoziho
bodu do vsech do kterych je prime spojeni a tyto
uzly ohodnotim (casem, vzdalenosti, atd)
pak se pokousim vycestovat z teto mnoziny uzlu
ale jen do tech, ktere maji ohodnoceni horsi nez
ohodnoceni uzlu ze ktereho vycestovavam a da se z nej
primo cestovat do jinych uzlu.
Pak je treba zhodnotit, ktere spojeni je lepsi,
muze se stat ze se z A do B dostanu za kratsi cas
s vetsim poctem "prestupu" nebo opacne.
s pribyvajicimi iteracemi pocet uzlu ktere maji
horsi ohodnoceni velmi rychle klesa. Kdyz se to
sikovne naprogramuje (samotny kod ale k dispozici
dat nemuzu, firemni tajemstvi:) tak hledani cesty
mezi 400 uzly je do 1 sec realne, zalezi ale na
tom, kolik se pripousti moznych "prestupu"
Aby to moje vysvetlovani bylo jasnejsi, predstav si
treba zeleznicni sit.
\mc
----- Original Message -----
From: Sula Milos
To: 'delphi-l(zv)fwd(tec)cz'
Sent: Tuesday, October 10, 2000 8:40 AM
Subject: RE: Kde sehnat algoritmy
No a prave to bych potreboval, jde mi jen o konkretni dva body a nejkratsi
cestu mezi nimi. Tento algoritmus by byl asi pro pole 20x20 bodu celkem
pomaly (potrebuju zpozdeni tak maximalne 1s na P100MHz)
Pokud Te zajima jen nejefektivnejsi cesta z jednoho konkretniho bodu do
jineho a zbytek Te nezajima, tak se najdou samozrejme rychlejsi algoritmy.
Jak odchytit WM_Syskeydown
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 11.10.2000 14:13:00
Message jako takovy chytnu, jenze usi mit formular fokus, aby to behalo. A
to je nemozne, protoze ho vytvarim takhle
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=False;
end;
A jak jiste uznate kde nic neni ani smrt nebere. Jde mi o to, aby tato
aplikace chytla klavesu a po ni provedla urcitou akci. Musi to bezet skryte
a nezavisle na tom co je pustene. Poradi Nekdo?
Nejsem si jist, jestli by pomohlo zaregistrovat to jako sluzbu.
Diky za kazdy navrh a prosim nevybodnete se na mne :-)
J. Voj.MSSQL7->IB6
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 11.10.2000 14:26:21
Ahoj,
David Lebeda wrote:
>
> > http://www.ibphoenix.com/sql2gdb.html
>
> Ahoj,
>
> dik za odkaz - je to opravdu ono, ale presto me to vypiska pri
> pokusu o preneseni dat s hacky a carkami:
>
> Cannot transliterate character between character sets.
>
> Jaky charset se tedy pouziva na MSSQL7? V IB6 jsem tabulku
> zalozil s WIN1250, collate je PXW_CSY.
> Co je tedy spatne?
Ja jsem to ani nevidel, ale obecne plati, ze "win1250" musi byt
nastaveno nejen v databazi, ale i pri pripojeni k databazi (v IBObjects
to je TIB_Connection, v IBX to bude neco jineho - a ja ani nevim, pomoci
ceho je ten wizard udelany ...)
Tom