Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Vypnuti Audia
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 28.8.1998 10:13:37
Zdravim, jeste mam dotaz k CD audiu. Nastavovat programove hlasitost
umim (funkce auxsetvolume a auxgetvolume) ale nevite nekdo jak zapnout a
vypnout zvuk celkove a taky zvlast u jednotlivych zarizeni (hlavne
potrebuju Audio CD) tak jak je to v ovladacich hlasitost delano pomoci
checkboxu? S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
Delky recordu
[*] Radek Bartik <bartik(zv)nemhoro(tec)cz> - 28.8.1998 10:17:41
Rekl bych, ze mas zapnutou direktivu Aligned record fields ({$A} - je zapnuta jako default)
Zkus toto:
{$A-}
trec1=record
.....
end;
{$A+}
Vraci mi to pro Kod: string[3] velikost 140 a pro Kod: string[4] velikost 141, jak jsi potreboval
Cau Radek
-----P�vodn� zpr�va-----
Od: Greissler Ronald <greissler(zv)cbnet(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 28. srpna 1998 9:41
P�edm�t: Delky recordu
>Nevite nekdo, proc ma record tohoto tvaru (v D3):
> trec1=record
> Klic:LongInt;
> Kod:string[4];
> Rok:SmallInt;
> Dis:byte;
> Hla:byte;
> Poznamka1:string[63];
> Poznamka2:string[63];
> end;
>var lRec:trec1;
>
>velikost sizeof(lRec)=144 a stejny record.
>kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
>
>Jak potom vytvorim record o velikosti 141?
>
>------------------------------------------------------------------------------
>Pozn.:Nepomohlo ani rozdeleni polozky Kod na:
>
>Delka:byte;
>Kod:array[1..4] of char;
>
>ani:
>
>Delka:byte;
>Kod1:char;
>Kod2:char;
>Kod3:char;
>Kod4:char;
>
>apod.
>----------------------------------------------------------------------------
>-----------------------------------------------
>Podobny problem mi vznikl i u recordu:
>trec2=record
> Druh:SmallInt;
> Popis:string[30];
> Poradi:SmallInt;
> Aktivni:byte;
>end;
>
>kde je velikost 38 misto 36 !?! :-((((((((((((
>Rony
>/*********************/
>GREISSLER(zv)CBNET.CZ
>Prerov
>/*********************/Delky recordu
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 28.8.1998 10:17:25
Pouzi packed record pretoze default je unpacked. Viac informacii najdes v D3
Help topic "packed records".
Ondrej Kelle
kelleon(zv)nnsk.sk
> -----Original Message-----
> From: Greissler Ronald [SMTP:greissler(zv)cbnet(tec)cz]
> Sent: Friday, August 28, 1998 8:57 AM
> To: 'DELPHI Distribution List'
> Subject: Delky recordu
>
> Nevite nekdo, proc ma record tohoto tvaru (v D3):
> trec1=record
> Klic:LongInt;
> Kod:string[4];
> Rok:SmallInt;
> Dis:byte;
> Hla:byte;
> Poznamka1:string[63];
> Poznamka2:string[63];
> end;
> var lRec:trec1;
>
> velikost sizeof(lRec)=144 a stejny record.
> kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
>
> Jak potom vytvorim record o velikosti 141?Delky recordu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.8.1998 10:21:35
>Nevite nekdo, proc ma record tohoto tvaru (v D3):
> trec1=record
> Klic:LongInt;
> Kod:string[4];
> Rok:SmallInt;
> Dis:byte;
> Hla:byte;
> Poznamka1:string[63];
> Poznamka2:string[63];
> end;
>var lRec:trec1;
>
>velikost sizeof(lRec)=144 a stejny record.
>kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
jednoduse proto, ze nemate vypnuty align promennych. Pokud jej vypnete
directivou kompilatoru nebo definujete recordy jako packed, budou mit
vsechny polozky tu velikost, kterou vyzaduje jejich typ jinak jsou
zarovnany tak aby lezely na adresach (delitelnych 4 ) kvuli vyssi
rychlosti 32 bitu CPU pri maniplaci s nimi
Pokud ukladate nejake hlavicky do filu a pak je zase ctete nebo ctete
data v cizich formatech ze souboru je dobre se presvedcit, ze definovane
recordy (a promenny v nich)maji tu delku, kterou maji mit
Zdravi
D. Toman
Delky recordu
[*] Richard Willmann <sales(zv)nocomment.sk> - 28.8.1998 10:26:20
mozno zarovnavanie, nieco take je aj C - PRAGMA
-----P�vodn� zpr�va-----
Od: Greissler Ronald <greissler(zv)cbnet(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 28. august 1998 9:51
P�edm�t: Delky recordu
>Nevite nekdo, proc ma record tohoto tvaru (v D3):
> trec1=record
> Klic:LongInt;
> Kod:string[4];
> Rok:SmallInt;
> Dis:byte;
> Hla:byte;
> Poznamka1:string[63];
> Poznamka2:string[63];
> end;
>var lRec:trec1;
>
>velikost sizeof(lRec)=144 a stejny record.
>kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
>
>Jak potom vytvorim record o velikosti 141?
>
>---------------------------------------------------------------------------
---
>Pozn.:Nepomohlo ani rozdeleni polozky Kod na:
>
>Delka:byte;
>Kod:array[1..4] of char;
>
>ani:
>
>Delka:byte;
>Kod1:char;
>Kod2:char;
>Kod3:char;
>Kod4:char;
>
>apod.
>---------------------------------------------------------------------------
-
>-----------------------------------------------
>Podobny problem mi vznikl i u recordu:
>trec2=record
> Druh:SmallInt;
> Popis:string[30];
> Poradi:SmallInt;
> Aktivni:byte;
>end;
>
>kde je velikost 38 misto 36 !?! :-((((((((((((
>Rony
>/*********************/
>GREISSLER(zv)CBNET.CZ
>Prerov
>/*********************/Delky recordu
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 28.8.1998 10:27:37
velikost sizeof(lRec)=144 a stejny record.
kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
Jak potom vytvorim record o velikosti 141?
jeste moc nedelam v Delphi, ale je jasne, ze to souvisi se zarovnavanim dat na nejakou velikost, napr. na hranici wordu, ci jinak. Budto se s tim smir, nebo hledej, urcite to bude v nastavitelne.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Delky recordu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 28.8.1998 10:45:31
Neni to nahodou zarovnavanim na urcitou velikost (1,2,4,8,16,32....)?
v builderu to nastavit jde, jestli taky v delphi, to nevim.....
fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Greissler Ronald [SMTP:greissler(zv)cbnet(tec)cz]
> Odesl�no: 28. srpna 1998 8:57
> Komu: 'DELPHI Distribution List'
> P�edm�t: Delky recordu
>
> Nevite nekdo, proc ma record tohoto tvaru (v D3):
> trec1=record
> Klic:LongInt;
> Kod:string[4];
> Rok:SmallInt;
> Dis:byte;
> Hla:byte;
> Poznamka1:string[63];
> Poznamka2:string[63];
> end;
> var lRec:trec1;
>
> velikost sizeof(lRec)=144 a stejny record.
> kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
>
> Jak potom vytvorim record o velikosti 141?
>
> ----------------------------------------------------------------------
> --------
> Pozn.:Nepomohlo ani rozdeleni polozky Kod na:
>
> Delka:byte;
> Kod:array[1..4] of char;
>
> ani:
>
> Delka:byte;
> Kod1:char;
> Kod2:char;
> Kod3:char;
> Kod4:char;
>
> apod.
> ----------------------------------------------------------------------
> ------
> -----------------------------------------------
> Podobny problem mi vznikl i u recordu:
> trec2=record
> Druh:SmallInt;
> Popis:string[30];
> Poradi:SmallInt;
> Aktivni:byte;
> end;
>
> kde je velikost 38 misto 36 !?! :-((((((((((((
> Rony
> /*********************/
> GREISSLER(zv)CBNET.CZ
> Prerov
> /*********************/TMediaPlayer
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 28.8.1998 10:50:50
Ahojda,
zabranit, aby se po vlozeni hudebniho CD nespustil Win prehravac, nebo si
nastavit svuj vlastni lze resit
"asociovanim typu souboru" ... napr v
Pruzkumnik/(menu)Moznosti/(zalozka)Typy souboru/ZVUKOVE CD !!!
Pekny weekend, volne linky, dobrou naladu, a prehrsel tolerance preje ...
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Zdenek Petruj wrote:
> Ahoj, mam dva dotazy ohledne prehravani hudebniho CD.
> 1. Jak detekovat jestli je na pocitaci zarizeni schopne prehravat
> hudebni CD ( zvukovka, driver )
> 2. Jestlize spoustim pisnicky pomoci nasledujici posloupnosti:
> MediaPlayer.Stop;
> MediaPlayer.Position:=CisloStopy;
> MediaPlayer.Play;
> tak vse funguje ale nekdy (nahodne) se stane ze se pisnicka nespusti a
> to z toho duvodu ze se mi sama od sebe spusti aplikace implicitniho
> prehravace CD co mam nainstalovany ve vindows. Nevite nekdo proc to dela
> nahodne eventuelne proc to dela vubec a jak tomu zamezit. Eventuelne jak
> ho programove zavrit kdyz uz je spusteny.
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
> ____________________________
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
www.PBear.com
[*] Administrator <Administrator(zv)rosoft.sk> - 28.8.1998 10:54:30
Mate niekto skusenosti s nastavenim aby zobrazovalo TFrameView normalne
makcene
podla Win-1250? Nastavil som v Delphi 4 EasternCharset a nic. Co mam
robit?
Patrik Tesar
Delky recordu
[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 28.8.1998 11:10:17
Dej si tam direktivy {$A-}, pak record ma delku bez zarovnavani uvnitr
recordu.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/
-----Original Message-----
From: Greissler Ronald [mailto:greissler(zv)cbnet(tec)cz]
Sent: Friday, August 28, 1998 8:57 AM
To: 'DELPHI Distribution List'
Subject: Delky recordu
Nevite nekdo, proc ma record tohoto tvaru (v D3):
{$A-}
trec1=record
Klic:LongInt;
Kod:string[4];
Rok:SmallInt;
Dis:byte;
Hla:byte;
Poznamka1:string[63];
Poznamka2:string[63];
end;
{$A+}
var lRec:trec1;
velikost sizeof(lRec)=144 a stejny record.
kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
Jak potom vytvorim record o velikosti 141?
------------------------------------------------------------------------
------
Pozn.:Nepomohlo ani rozdeleni polozky Kod na:
Delka:byte;
Kod:array[1..4] of char;
ani:
Delka:byte;
Kod1:char;
Kod2:char;
Kod3:char;
Kod4:char;
apod.
------------------------------------------------------------------------
----
-----------------------------------------------
Podobny problem mi vznikl i u recordu:
trec2=record
Druh:SmallInt;
Popis:string[30];
Poradi:SmallInt;
Aktivni:byte;
end;
kde je velikost 38 misto 36 !?! :-((((((((((((
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/Cestina (v NT)
[*] David_Zabensky.UNION(zv)union(tec)cz - 28.8.1998 11:14:28
Me nefunguje cestina v IDE. Prelozene programy jsou ale OK (pod NT). Pokud
vsak kompiluji pod Win 3.11/95, jsem v pr... jak bata s drevakama - pripada
mi trochu divne prekladat pro kazdou platformu zvlast (???). Mam par
freewarovych programku z Inetu a ty jsou prekompilovane pod Win95 a v mych
NT si moc nepoctu...
PS: Pokud jsem delal kamosovi program (32 bit) a prekompiloval jsem ho pod
NT, v jeho 95 mel problemy nejenom s cestinou, ale i s vykreslovanim
ruznych Label (!!!) - nesedely pozice adt.
Co s tim - poradi nekdo?
PS: pouzivam WinNT 4.0 ceske, serpack 3, build 1381.
Poslite mi niekto
[*] Radek Bartik <bartik(zv)nemhoro(tec)cz> - 28.8.1998 11:22:43
>Hi,
>
>neudelal si nic spatne, jenom neni jeste zaznam v DNS. To vsek nebrani
>tomu, abych mohl postu odesilat. Ctu si ji vsak z jineho serveru
>(fronek(zv)fic(tec)cz)
>
Postu muzes samozrejme posilat pod jakou adresou chces, klidne si muzes dokonce nejakou vymyslet. Ale prijde mi nekorektni odesilat prispevky do konference z adresy, na kterou se neda odpovedet. Vcera jsem Ti taky posilal reakci na tvuj prispevek primo na tvou adresu a take se mi to nepovedlo.
Jinak chyba neni v tom, ze jeste neni zaznam v DNS. Ten tam je. Chyba je v konfiguraci postovniho serveru, na ktery je smerovana posta z domeny zznslany(tec)cz (mail.pc-slany(tec)cz), ktery tuto postu odmita. Mimochodem kdyz jsem u toho Internetu a DNS, vis o tom, ze podle RFC by nazev pocitace v DNS zaznamech nemel obsahovat znak _ ? Vy tam totiz mate zaznam nt_server.ZZNSLANY(tec)cz . Kdyz to tak nekdy vidim, tak mam trochu strach, jak to s tim Internetem dopadne !?!?
Radek
Definov�n� vlastn�ho datov�ho typu
[*] Svatopluk V�t <vit(zv)ardo(tec)cz> - 28.8.1998 11:24:03
Zdravim vsechny!
Potreboval bych poradit s nasledujicim problemem :
Ve svem programu bych potreboval definovat vlastni typ :
type Vlastni = ( jedna, dve,tri,1,2,3)
nevite jak prinutit Delphi aby si myslelo, ze ta cisla 1,2,3 jsou stringy?
K cemu to vsechno?
Mam vlastni proceduru se vstupnim parametrem typu vlastni :
procedura Rekni(radek : vlastni);
begin
Case radek of
jedna : udelej neco
dve : udelej neco2
.
.
.
end;
end;
Da se to udelat, nebo je treba natvrdo provadet smycky If...then..else?
Svatopluk Vit
East Trading Company s.r.o. Karvina (www.ardo(tec)cz)
spravce pocitacove site - network administrator
zacinajici delphista - beginner in Delphi
E-mail : vit(zv)ardo(tec)cz ; svatopluk.vit(zv)post(tec)cz
tel : +420 69 63 06 085
ICQ : 11455617
...sem si dovolil....svesticky z moji zahradky...Cestina (v NT)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 28.8.1998 11:33:45
Jo a nechodi to ani v D4 cimz me nas*ali nejvic :(
Mac
Bardon wrote:
>
> Pod puvodnimi anglickymi NT 4 jela, po aplikaci SP3 nejede, pod ceskymi NT 4 nejela pred SP3 ani po nem. Delphi neumi pro IDE editor nastavit script fontu a nereflektuji implicitni nastaveni systemu ani vselijake aliasy pres registry. Pokud nekdo zna ucinne reseni, sem s nim.Delky recordu
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 28.8.1998 11:34:35
> Nevite nekdo, proc ma record tohoto tvaru (v D3):
> trec1=record
> Klic:LongInt;
> Kod:string[4];
> Rok:SmallInt;
> Dis:byte;
> Hla:byte;
> Poznamka1:string[63];
> Poznamka2:string[63];
> end;
> var lRec:trec1;
> velikost sizeof(lRec)=144 a stejny record.
> kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
> Jak potom vytvorim record o velikosti 141?
Protoze Delphi defaulte provadi zarovnani na 4 bajty.
Zabranis tomu jednoduse - misto 'record' napises 'packed record'
McLEI
OpenGL
[*] Martin VLK <helpfore(zv)helpforest(tec)cz> - 28.8.1998 11:34:19
Dobr� den,
p�edem d�kuji v?em za e-maily na t�ma OpenGL.
Dnes bych r�d se na V�s obr�til s t�mto podrobn�m dotazem.
Nev�m si rady s:
1,Modifikace pozice vertex�,polygon�,objekt�
2,Zm�ny textur v r�mci polygon� /dynamick�
3,Mo?nost implementace v�ce textur na jeden polygon
4,Transparence textur a polygon�
5,vrhan� a p�ij�man� sv�tlo-st�ny
6,Aplikace z.efekt�-lens flare,mlha
7,zm�na a definice spojnic vertex�
8,Definice sv�t�c�ch objekt�
9 kreslen� bitmap v opengl
10. zobrazeni prostorovych TTF fontu
Budu r�d , po?lete s vysv�tlen�m i zdrojov� kod p��slu?n�ho pou?it�
re?en� n�kter�ho probl�mu
S pozdravem
Tom�? Krmela
Krmela(zv)post(tec)cz
RS485, LPT, RealTime, HW
[*] Kosta <kosta(zv)iol(tec)cz> - 28.8.1998 11:37:39
Jsem tu pouhy novacek a tak vznasim skromny, mozna trapny dotaz: Pouziva tu
nekdo Delphi take k necemu jinemu nez databazovym aplikacim? Pokud ano, co
takhle RS485, LPT a komunikace, obecne IRQ, realtime ulohy. Pokud se najde
spriznena duse, potesi me to vice nez desitky majliku na temata ne nepodobna
'Pohyb cen zeleznych ingotu na Mongolske burze'.
Kosta
Komponenty od Franc. Piette
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 28.8.1998 11:46:26
Posli taky na Marian.Morzol(zv)ostrava.aksignal(tec)cz
Diky.
> -----P�vodn� zpr�va-----
> Od: David_Zabensky.UNION(zv)union(tec)cz
> [SMTP:David_Zabensky.UNION(zv)union(tec)cz]
> Odesl�no: 28. srpna 1998 9:23
> Komu: DELPHI Distribution List
> P�edm�t: Re: Komponenty od Franc. Piette
>
>
> > Ahoj,
> > pouzivate prosim nekdo komponenty od F. Piette ( WSocket, TnEmulVT,
> Wait
> a
> > pod. ) ?
> > Vasek
>
> Jo pouzivam a mam s nima jen dobre skusenosti (vzhledem k tomu, ze
> jsou
> free a 16/32 bitove se zdrojakem jsou uplne idealni k programovani pod
> 16/32 Win - davam jim prednost pred TCP komponentami z Delphi). Je to
> sikula. Kdyby jsi chtel poslat nejaky prikladek, napis...
>
> Cau
Klavesy
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 28.8.1998 11:56:51
Ja pouzivam dva zpusoby:
1.Zavolam si Windows API Help z DELPHI menu Help a pomoci Find si vyhledam
heslo virtual-key Codes
(s velkym C :-) a v topic si vyberu Virtual-key Codes a tam jsou uvedeny
v�echny vk_...., ale pozor! Delphi
nedefinuje (viz dale):
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
2.Podivam se do zdrojaku window.pas v delphi3\source\rtl\win\ a tam jsou
uvedeny jako konstanty.
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> Od: Hejna Martin [SMTP:hejnam(zv)praha.comsoft(tec)cz]
> Odesl�no: 26. srpna 1998 15:40
> Komu: 'DELPHI Distribution List'
> P�edm�t: Klavesy
>
> Ahojte zdravim fsecky DELPHISTI
> Potreboval bych vedet jestli existuje seznam vsech virtualnich klaves a
> pripadne jejich hodnnoty.. (vk_Return, ...)
> V helpu je odkaz na tento seznam spatne linkovan...
>
> Diky
>
> Martin Hejna
Delphi 4 - chyby
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 28.8.1998 11:57:05
V D4, narozd�l od D3 a nizsi, v okne Evalute/modif, pokud nebezi aplikace na vyraz napr:
false xor false
da vysledek: Nedeklarovany ident: false
za behu aplikace uz ho najednou zna.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Pristup na databazu cez ODBC
[*] Reiniger Milan <Reiniger(zv)mmp.plzen-city(tec)cz> - 28.8.1998 12:04:52
Musis udelat nekolik kroku:
1) musis mit nebo nainstalujes ODBC (bud z instalacek Accessu, SQL
serveru nebo jako samostatny Data Access Pack)
2) Vysledkem proste musi byt, ze v ovladacich panelech se Ti objevi
32bit ODBC ve Win95 nebo ODBC ve WinNT.
3) Spustis tento ovladaci panel a v zalozce User DSN tuknes Add..
Vyberes Microsoft Access Driver, pojmenujes si nejak Data Source Name a
Select Ti vybere jiz vytvorenou mdb databazi nebo ji vytvoris prazdnou
pomoci Create.
4) Kdyz to vsechno zdarne provedes, ukoncis ODBC administratora a
spustis zpravila v \program files\borland\Common Files\BDE\bdecfg32.exe.
Toto plati pouze pro D2. V D3 jsem to tak nejak nepochopil, ale
vysvetlujou to na
http://www.inprise.com/devsupport/delphi/ti_list/TI2781.html. Kdyz to
zdarne spustis, Tuknes New ODBC Driver v zalozce Drivers, pojmenujes
opet nejak SQL Link Driver ODBC_neco, vyberes Access Driver a v Default
Data Source Name vyberes jiz drive vytvoreny Data Source, ktery jsi
vytvoril v ODBC Administratorovi. V Parameters jeste nastavis LANGDRIVER
na 'ascii' ANSI, aby Ti spravne fungovala cestina.
5) Prepnes se do zalozky Aliases, udelas New Alias, opet nejak nazves,
vyberes Alias Type na ODBC_neco, ulozis a je hotovo.
V D potom uz stejnym postupem, jako pripojeni k jakekoli jine databazi.
S pozdravem
Milan Reiniger
Skroupova 5, c.dv. 92,
tel.: 019/703 5053
reiniger(zv)mmp.plzen-city(tec)cz
http://info.plzen-city(tec)cz
> -----P�vodn� zpr�va-----
> Od: Richard Willmann [SMTP:sales(zv)nocomment.sk]
> Odesl�no: 27. srpna 1998 13:29
> Komu: DELPHI Distribution List
> P�edm�t: Pristup na databazu cez ODBC
>
> Ako sa pripojim na ODBC databazu z delphi (Access)?
>
>
> dakujem
>
> richard
Cestina (v NT)
[*] mdvorak(zv)csas(tec)cz - 28.8.1998 12:08:35
Pred instalaci SP3 je potreba nastavit v REGIONAL SETTINGS DEFAULT
LOCALE na CZECH jinak ti SP prepise fonty. Kdyz to udelas, tak je vse
OK. Nebo dalsi moznosti je, ze si doinstalujes ceske fonty.
Mirek Dvorak
> -----Original Message-----
> From: /O=INEQ/OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON On Behalf Of Bardon
> Sent: Friday, August 28, 1998 8:39 AM
> To: 'DELPHI Distribution List'
> Subject: RE: Cestina (v NT)
>
> Pod puvodnimi anglickymi NT 4 jela, po aplikaci SP3 nejede, pod
> ceskymi NT 4 nejela pred SP3 ani po nem. Delphi neumi pro IDE editor
> nastavit script fontu a nereflektuji implicitni nastaveni systemu ani
> vselijake aliasy pres registry. Pokud nekdo zna ucinne reseni, sem s
> nim.
>
> -----P�vodn� zpr�va-----
> Od: Petr Kebrle [SMTP:kebrle(zv)goldcard(tec)cz]
> Odesl�no: 28. srpna 1998 8:22
> Komu: 'delphi(zv)pinknet(tec)cz'
> P�edm�t: Cestina (v NT)
>
> Dobry den
>
> Chtel bych se zeptat jak Vam funguje cestina v CBuilderu 3 pod
> NT (popr i Delphi 3(4) pod NT).
> Mne osobne ne.
>
> Diky
>
> Ing. Petr Kebrle
> GoldCard s.r.o, Velehradska tr. 875. P.O. Box 119 , Uherske
> Hradiste 686 01 ,Czech republic
> tel. +420-632-556321, 554 069, 554 070 fax. +420-632-540 008
> mailto:kebrle(zv)goldcard(tec)cz http://www.goldcard(tec)cz
> mailto:petr.kebrle(zv)email(tec)cz
> http://members.tripod.com/~petr_kebrle
>
> Delky recordu
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 28.8.1998 12:21:50
Oooo! Velke diky!
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> Od: David_Zabensky.UNION(zv)union(tec)cz [SMTP:David_Zabensky.UNION(zv)union(tec)cz]
>
> Mozna to bude tim, ze kompilator Delphi provadi zarovnani dat v pameti >>
> nemusi tedy platit ze SizeOf(Record) dava vzdy sumu vsech typu. Je to pro
> rychlejsi pristup k datum. Ta volba se da ale vypnout v Code Generation
> >>Aligned Record Fields - mozna ti to pomuze.
>
> Cau David.Pristup na databazu cez ODBC
[*] Richard Willmann <sales(zv)nocomment.sk> - 28.8.1998 13:11:14
Dakujem,
BTW: V ktorej verzii BDE su nativne ovladace pre *.mdb? BOli s nimi nejake
problemy?
Richard willmann
-----P�vodn� zpr�va-----
Od: Radoslav Balvan <balvanra(zv)datalock.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 28. august 1998 13:11
P�edm�t: Re: Pristup na databazu cez ODBC
>musis mat nainstalovany odbc ovladac
>v tvojom pripade zrejme Microsoft Access Driver...
>(instaluje sa myslim spolu s Accessom - presvedcis sa v Control
>Panels|ODBC - drivers)
>
>no a potom uz normalne tak ako na iny zdroj -
> bud si v BDE vytvoris alias spojeny s ODBC DataSourcom
>
> alebo pouzijes TDatabase
>
>
>
>Richard Willmann wrote:
>
>> Ako sa pripojim na ODBC databazu z delphi (Access)?
>>
>
>--
>Maj sa,
>R.
>Vypnuti implicitniho prehravace CD
[*] Lubo Fule <fule(zv)sct.sk> - 28.8.1998 13:40:47
Odstranit autorun pre hudobne CD sa da uplne jednoducho:
V ktoromkolvek suborovom okne chod do menu "View" ("Zobrazit") a spusti
"Options..." ("Moznosti..."), otvori sa dialog, v ktorom je o.i. zalozka
"File Types" ("Typy souboru"). V nej je listbox s registrovanymi typmi
suborov. Medzi nimi pohladaj "Audio CD" ("CD zvuk"). Najjednoduchsie a
najbezpecnejsie je nevymazavat ho, ale len zrusit automaticke spustenie.
Robi sa to v dialogu, ktory sa spusti po stlaceni tlacitka "Edit..."
("Upravit...") pre tento typ. V nom je listbox "Actions" ("Akce"). Polozku,
ktora je napisana hrubym pismom je potrebne "vypnut", lebo tato akcia sa
spusta automaticky. Robi sa to tlacitkom "Set Default" ("Nastavit vychozi"),
ktore funguje ako prepinac. Ked nie je nic "hrube", tak sa nebude nic
spustat automaticky...
To bolo pekne polopate...:-)
S pozdravom
Lubo Fule
> -----Original Message-----
> From: Ales Zeleny [mailto:zelenya(zv)mlp(tec)cz]
> Sent: Thursday, August 27, 1998 5:54 PM
> To: delphi(zv)pinknet(tec)cz
> Subject: Re: Vypnuti implicitniho prehravace CD
>
>
> TWeakUi ke stazeni u MS
>
> > Omlouvam se za to ze jsem v predchozim mailu odmitl radu ohledne vypnuti
> > implicitniho prehravace CD. To bych potreboval take. Potreboval bych aby
> > autorun pro CD ROM zustal zapnuty, ale aby se mi po vlozeni hudebniho CD
> > nespustil implicitni prehravac CD. V Computeru jsem to nenasel. Pokud
> > nekdo vi jak na to a nebo kde to najit budu vdecny.
> >
> > S pozdravem
> > Zdenek Petruj
> > ____________________________
> > adress: Zebra systems, s.r.o.
> > Spartakovcu 3
> > 708 00 Ostrava - Poruba
> > Czech republic
> > ____________________________
> > tel./fax.: +420-(0)69-6912961
> > +420-(0)69-6912963
> > e-mail: zpetruj(zv)zebra(tec)cz
> > internet: http://www.zebra(tec)cz
> >
> >
>
>
>
> +------------------------+ +---------------------------+
> |Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
> |Mestska knihovna v Praze| |Municipal Library of Prague|
> |Marianske nam. 1 | |Marianske nam. 1 |
> |115 72 | |115 72 |
> | | | |
> |Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
> |E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
> |MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
> +------------------------+ +---------------------------+
>
> Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
>
> Multitasking means that applications can crash simultaneously.
>Delky recordu
[*] Lubo Fule <fule(zv)sct.sk> - 28.8.1998 13:45:47
Aby sa record nezarovnaval sa da dosiahnut aj slovom 'packed':
type TMojRecord = packed record
...
end;
Takto to nie je zavisle od nastavenia kompilatora a nikdy sa nebu zarovnavat
na 4 byte..
S pozdravom
Lubo Fule
> -----Original Message-----
> From: David_Zabensky.UNION(zv)union(tec)cz
> [mailto:David_Zabensky.UNION(zv)union(tec)cz]
> Sent: Friday, August 28, 1998 10:57 AM
> To: DELPHI Distribution List
> Subject: Re: Delky recordu
>
>
> Mozna to bude tim, ze kompilator Delphi provadi zarovnani dat v pameti >>
> nemusi tedy platit ze SizeOf(Record) dava vzdy sumu vsech typu. Je to pro
> rychlejsi pristup k datum. Ta volba se da ale vypnout v Code Generation
> >>Aligned Record Fields - mozna ti to pomuze.
>
> Cau David.
>
>Delphi -> Java
[*] Roman LISZKA <liszak(zv)usa(tec)net> - 28.8.1998 14:01:54
> -----Original Message-----
> From: chaloupka(zv)mboxzn(tec)cz [SMTP:chaloupka(zv)mboxzn(tec)cz]
> Sent: Monday, August 17, 1998 11:29 PM
> Subject: Delphi -> Java
>
> Zdar,
>
> prave jsem cetl ze na konferenci BorCon 98 v Denveru, byla predstavena
> alpha
> verze prekladace, ktery dokaze z programu v Delphi udelat cisty javovsky
> byte-code.
Hledal jsem u na inprise.com, nasel jsem stranky o BorCon 98, ale nic
jsem tam
o prekladaci Delphi do java-bytecodu nenasel, mohl bych poprosit o
blizsi nasmerovani.
Roman LISZKA
Binarni hodnoty v registru
[*] jakub.dusek(zv)post(tec)cz - 28.8.1998 14:07:08
Potreboval bych nejaky prakticky program, jak
pouzivat funkce writebinarydata a readbinarydata
pro objekt TRegistry. Diky
Jakub Dusek
Delky recordu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.8.1998 14:19:57
Greissler Ronald wrote:
>
> Nevite nekdo, proc ma record tohoto tvaru (v D3):
> trec1=record
> Klic:LongInt;
> Kod:string[4];
> Rok:SmallInt;
> Dis:byte;
> Hla:byte;
> Poznamka1:string[63];
> Poznamka2:string[63];
> end;
> var lRec:trec1;
>
> velikost sizeof(lRec)=144 a stejny record.
> kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
>
Ahoj,
je to patrne zpusobeno zarovnavanim, pokud tomu chces zabranit definuj ten
zaznam jako:
TRecl = packed record
Petr Vones, amatersky programator
Asociace souboru s aplikaci
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 28.8.1998 14:32:41
Prosim o radu,
jak vytvorit z programu / programove (v Delphi 1), asociaci nejak�ho
souboru (m�m ICO i zvolenou extenzi souboru napr. FF,FA,EF,C1X), aby
bylo mozne ho otevrit jenom poklepnutim na nej (v podstate se asi jedna
o nejakou registraci typu souboru). Rucni prirazovani pres
Pruzkumnik-Moznosti slozky-Typ souboru se mi zda nezikovny, zdlouhavy,
pro dynamickou zmenu nevhodny zpusob.
Dekuji
Jaroslav Benes
SELECT HELP
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 28.8.1998 14:57:50
Pokud jde o MS SQL - tak bych to d�lal procedurou. Vytvo�il bych si kurzor set��d�n� podle ID, zadeklaroval prom�nnou a v cyklu bych p�id�val do prom�nn� dokud se nezm�n� ID - n�sledn� insert do nov� tabulky, vy�ist�n� prom�nn� ... atd.
-----P�vodn� zpr�va-----
Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odesl�no: 28. srpna 1998 13:43
Komu: 'Diskuzn� skupina o Microsoft SQL Serveru'; '*** Delphi'
P�edm�t: SELECT HELP
Zdravim vsechny pritomne,
mam takovouto tabulku:
ID Typ1 Typ2
-------------------------
1 x y
1 xx yy
1 xxx yyy
2 z z
2 zz zz
3 d d
3 dd dd
a chtel bych pomoci Selectu vytvorit novou tabulku s jednim polem:
Typ3
------------------------------------------
[(x,y),(xx,yy),(xxx,yyy)]/1
[(z,z),(zz,zz)]/2
[(d,d),(dd,dd)]/3
Poradite mi nekdo?
Dekuji.
........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. telephone: 069-6201375 .
. URL: http://members.tripod.com/sovtop .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor krayzel(zv)p15.f42.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
........................................................
prosba
[*] Miroslav Hostinsk� <abcsoft(zv)rychnov(tec)cz> - 28.8.1998 15:19:53
Podle mych zkusenosti s IB a Delphi muze byt tento jev zpusoben
1. pomalym hardware (na strane serveru)
2. pouzivanim tzv. lookUp (nabo kalkulacnich poli) v datasetech, nebo (samozrejme) je-li pripojen detail
Vsechen tento balast jsem z Query odstranil, vse se zrychlilo i vami popsany jev zmizel.
Pouzivam PC K6 233 64MB RAM.
S pozdravem
Miroslav Hostinsky
-----P�vodn� zpr�va-----
Od: Jan Skopov� [SMTP:jan.skopovy(zv)vol(tec)cz]
Odesl�no: 26. srpna 1998 23:09
Komu: Delphi forum pinknet
P�edm�t: prosba
<<Soubor: ATT00027.htm>> Nevite nekdo co mam udelat aby:
Pouzivat TQuery na tabulku v IB. Kdyz prochazim tabulkou a drzim kurzorovou sipku, sviti kurzor SQL a dataset nespravne zobrazuje rolujici radky, ktere maji obsah recordu, na kterem jsem stiskl sipku. Teprve kdyz ji pustim, zobrazi dataset recordy spravne. S takovou by me zakaznik hnal svinskym krokem.
Diky, Jan Skopovy
RX - datum
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 28.8.1998 15:22:03
Zdravim,
pouzivam RX komponentu DBDateEdit. Chtel jsem si ji pocestit, ale nevim jak
to udelat ( pokud to tedy vubec jde ).
Chtel bych tam mit nazvy dnu a mesicu v cestine.
Predem diky za informace.
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
Delky recordu
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 28.8.1998 17:32:49
Problem bude asi v�tom, ze Delphi zaokrouhluje delky 1-bytovych polozek
(byte, char) na 2 (kvuli zrychleni pristupu). Je-li potrebna presna
delka (nap��klad komunikace a intrepretace prenesenych dat v�ruznem
operacnim prostredi), mus� se pouzit deklarace PACKED RECORD.
Ing. Ji�� Foldyna
Odd�len� informa�n�ch syst�m�
AV�ZO, a.s., Slav�kova 6142, 708 00 Ostrava - Poruba
mailto:jiri.f(zv)avizo(tec)cz
http://www.AVIZO(tec)cz
tel.: +420 69 690 6612
mobil: +420 602 507 839
fax: +420 69 690 6313
ICQ#: 14919238
-----P�vodn� zpr�va-----
Od: Greissler Ronald [SMTP:greissler(zv)cbnet(tec)cz]
Odesl�no: 28. srpna 1998 8:57
Komu: 'DELPHI Distribution List'
P�edm�t: Delky recordu
Nevite nekdo, proc ma record tohoto tvaru (v D3):
trec1=record
Klic:LongInt;
Kod:string[4];
Rok:SmallInt;
Dis:byte;
Hla:byte;
Poznamka1:string[63];
Poznamka2:string[63];
end;
var lRec:trec1;
velikost sizeof(lRec)=144 a stejny record.
kde se zmeni pouze Kod:string[3] velikost sizeof(lRec)=140 ?
Jak potom vytvorim record o velikosti 141?
------------------------------------------------------------------------
------
Pozn.:Nepomohlo ani rozdeleni polozky Kod na:
Delka:byte;
Kod:array[1..4] of char;
ani:
Delka:byte;
Kod1:char;
Kod2:char;
Kod3:char;
Kod4:char;
apod.
------------------------------------------------------------------------
----
-----------------------------------------------
Podobny problem mi vznikl i u recordu:
trec2=record
Druh:SmallInt;
Popis:string[30];
Poradi:SmallInt;
Aktivni:byte;
end;
kde je velikost 38 misto 36 !?! :-((((((((((((
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/Off - PS/2
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 28.8.1998 17:45:00
Zdravim,
kolega mne rozslapl koncovku od PS/2 portu (tu placatou, co se strka do
boardu).
Nekam jsem zasantrocil jeji popis. Nemate nekdo po ruce jeji popis zapojeni?
pozn. typ TomatoBoard.
(cervena, modra,zluta,zelena vs. PS/2 data, PS/2 Clock, Ground, +5V)
Moc diky.
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
MDIChild system menu; Alt+F9 shortcut
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 28.8.1998 18:59:40
Ahoj,
neporadite prosim nekdo jak:
1. donutit menu pouzivat horke klavesy s modifikatorem ALT?
V TMenuItem.ShortCut se standardne nenabizeji.
2. modifikovat systemove menu v MDIChild, tak aby nereagovalo na Ctrl+F6
(Dalsi),
resp. jak zmenit horkou klavesu k polozce menu?
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Delphi 4 - chyby
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.8.1998 19:38:21
Martin Kubecka wrote:
> Prihodil bych:
>
> 1. Pridam CoolBar a do nej SpeedButton - zacnu pohybovat v navrhu
> SpeedButtonem a neprekresluje se CoolBar.
>
> 2. Stejny postup jako 1. Do SpeedButtonu si dam obrazek, nastavim na
> True vlastnosti Flat a Transparent. Spustim a po najeti na Flat tlacitko
> (oznaci se - jako by vyskoci nahoru) uz zustane vyskocene porad. Kdyz
> vypnu Transparent, tak to chodi OK. V D3 to chodi dobre.
>
2All:
myslim, ze by bylo zajimave udelat serial o chybach D4, pricemz
kazdou takovou zpravu by bylo dobre poslat jako CC i primo na
Inprise (sdurcok(zv)inprise(tec)cz), domnivam se. :-) At si tam s tim
poradi, a treba to posilaji do Ameriky.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
instalacia Interbase 5.0 na NT
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.8.1998 19:38:21
Radoslav Balvan wrote:
> je to IB NT Server 5.1
> pri instalacii nastala jedina chyba (spominany "near error: IBCheck") a tu
> som odstranil uvedenym sposobom...inak nic, chodi celkom dobre
Sorry, uz jsem na to prisel, je to u mne. Pri predchozich
instalacich jsem tomu nevenoval pozornost, takze jsem zadal jine
ID nez jsem mel. To je jedna chyba. Chybovou hlasku, ktera se mi
objevovala pri instalaci, jsem odstranil tak, ze jsem projel registr a
vymazal vsechny drivejsi odkazy na InterBase. A zde je myslim
chyba Inprise, ze pri deinstalaci necisti radne registry.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
6ti barevna bitmapa
[*] Adam Hor��ek���j+iǤ�Ƞ����3 - 28.8.1998 20:28:53
Zdravim,
muzete mi prosim nekdo poradit. V Delphi1 mam nasledujici problem:
procedure TMyComponent.Paint;
var
B:TBitmap;
begin
B.Handle := CreateBitmap (ClientWidht, ClientHeight, 1, 8, nil);
{ by melo vytvorit bitmapu ve 256ti barvach }
B.Canvas.TextOut (0, 0, 'Ahoj');
...
Canvas.CopyMode := cmSrcCopy;
R := Rect (0, 0, Width, Height);
{ Tohle nefunguje }
Canvas.CopyRect (GetClientRect, B.Canvas, GetClientRect);
end;
Pracuji v HighColor a z pametovych duvodu chci vytvorit jen 256ti barevnou
bitmapu. Jenze potom ji nemuzu zkopirovat na Canvas toho objektu. Kdyz
vytvorim bitmapu pomoci fce CreateCompatibleBitmap (...), tak vse funguje,
jenze v rozliseni 1024x768 by mela ta bitmapa asi 4MB, coz je nevyhovujici.
Predem diky za odpovedi...
Adam
Definov�n� vlastn�ho datov�ho typu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.8.1998 22:37:07
Svatopluk V�t wrote:
> Potreboval bych poradit s nasledujicim problemem :
> Ve svem programu bych potreboval definovat vlastni typ :
> type Vlastni = ( jedna, dve,tri,1,2,3)
> nevite jak prinutit Delphi aby si myslelo, ze ta cisla 1,2,3 jsou stringy?
To nechapu. Vyctovy typ je tu proto, abys mel nejakou nazornou
r~adu. Jinak muzes pouzit treba typ byte, kdyz tam potrebujes
cpat cisla. Ale take muzes pretypovat, napriklad takto:
var vl:vlastni;
...
vl:=dve;
case integer(vl) of
0:... //jedna
1:... //dve
...
end;
Pouzit to lze zamozrejme i obracene: vl:=vlastni(1); //dve
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
RS485, LPT, RealTime, HW
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.8.1998 22:37:07
Kosta wrote:
> Jsem tu pouhy novacek a tak vznasim skromny, mozna trapny dotaz: Pouziva
> tu nekdo Delphi take k necemu jinemu nez databazovym aplikacim? Pokud ano,
No, samozrejme. Proto take delame v Delphi, abychom mohli,
kdyz nas omrzi databaze, delat komunikaci, NT sluzby,
lokalizatory a jinou havet. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vypnuti Audia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.8.1998 23:09:33
Zdenek Petruj wrote:
>
> Zdravim, jeste mam dotaz k CD audiu. Nastavovat programove hlasitost
> umim (funkce auxsetvolume a auxgetvolume) ale nevite nekdo jak zapnout a
> vypnout zvuk celkove a taky zvlast u jednotlivych zarizeni (hlavne
> potrebuju Audio CD) tak jak je to v ovladacich hlasitost delano pomoci
> checkboxu?
Ahoj,
Vypnout vstup Audio CD by melo jit takhle:
uses
MMSystem;
procedure CheckMMResult(Value: MMRESULT);
begin
if Value <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('Mixer Error %d', [Value]);
end;
procedure MuteCDInput(Mute: Boolean);
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I, Inputs: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
MuteCD: MIXERCONTROLDETAILS_BOOLEAN;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
Inputs := 0;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine, MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
Inputs := MixerLine.cConnections;
Break;
end;
end;
MixerControls.cControls := 0;
for I := 0 to Inputs - 1 do
begin
MixerLine.dwSource := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine, MIXER_GETLINEINFOF_SOURCE));
if Pos('CD', MixerLine.szShortName) = 1 then
begin
MixerControls.cControls := MixerLine.cControls;
Break;
end;
end;
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls, MIXER_GETLINECONTROLSF_ONEBYTYPE));
MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(MuteCD);
MixerControlDetails.paDetails := (zv)MuteCD;
MuteCD.fValue := Integer(Mute);
CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails, MIXER_GETCONTROLDETAILSF_VALUE));
finally
mixerClose(Mixer);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MuteCDInput(True);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MuteCDInput(False);
end;
end.
Petr Vones, amatersky programator
RS485, LPT, RealTime, HW
[*] Kosta <kosta(zv)iol(tec)cz> - 28.8.1998 23:27:41
>No, samozrejme. Proto take delame v Delphi, abychom mohli,
>kdyz nas omrzi databaze, delat komunikaci, NT sluzby,
>okalizatory a jinou havet. :-)
>S pozdravem
>Zbysek Hlinka
O diky Velky Guru, ze jsem si nevsim. Co takhle drobnou radu do zacatku.
Potrebuji generovat presny casovy rastr s periodou 2 mikrosekundy. Kdyz
rikam presny, tak mam na mysli toleranci do 0.1 mikrosekundy. A v tomto
rastru skenovat stav comu. A ze k cemu - takova jednoducha analyza seriove
komunikace. Je mi lito, ale D3 vcelku uspesne vzdoruji (na P266, 128MB). Ve
woknech jsem pouhy amater, tak co na to odbornici.
Kosta
Public
[*] Petr Provazn�k <amcom(zv)grendel(tec)cz> - 29.8.1998 00:18:18
>Cau panove !
>
>
>V programu prog1 m�m promenou x a chci aby tuto promen� mohli
>pouzit vsechny units programu. Da se to udelat jinak,nez abych
>um�stil tuto promenou do implementcn� c�sti nejake unit ?
>
>program prog1;
>uses ....
>.
>.
>.
>var
>X:Boolean;
>
>Dik za radu.
>
>
Ahoj,
To uz tady nekdo psal ... staci do kazde unity pridat nazev unity kde je
ona promena ...
Napriklad je promena urcena v unite 1, takze abych promenou pouzil i v jine
unite, musim do kazde dalsi unity dopsat ...
uses unit1;
Petr Provaznik
Public
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.8.1998 08:29:53
=?iso-8859-2?B?SmFuIE5vduFr?= wrote:
> V programu prog1 m�m promenou x a chci aby tuto promen� mohli
> pouzit vsechny units programu. Da se to udelat jinak,nez abych
> um�stil tuto promenou do implementcn� c�sti nejake unit ?
Promenna musi byt v _interface_ nejake unity, na kterou se pak
museji odvolavat ostatni unity.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ShutDown & Problem so zapisom do tabulky
[*] Richard Willmann <sales(zv)nocomment.sk> - 29.8.1998 10:45:23
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
tak som to aj chcel ale pokial pri obsluhe shutdown cakam v cykle na false tak je to priliz CPU consuming.
Je potrebne pouzit Timer ?
BTW: Prednedavnom tu niekto hovoril o tom ze sa da cez priame volanie funkcii BDE vynutit zapis dat z cache na disk. Kde taka dokumentacia rastie?
Richard
-----P�vodn� zpr�va-----
Od: Jan Fiala <fiala(zv)iname.com>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 2. september 1998 10:06
P�edm�t: Re: ShutDown & Problem so zapisom do tabulky
Co takhle si pri kompilaci nastavit promennou treba na True a po konci kompilace ji nastavit zpet na False. A v obsluze ShutDown si ji otestovat - neco jako vlajky
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Predstavte si program ktory odchytava vsetko to co pride na COM port a raz
za cas to flushne do tabulky (kazdy 100 zaznam povedzme). Mam odchytenu
spravu windows pre shut down, v kotrej by som chcel odpojit zasuvku COM a
flushnut vsetko to co este nie je v tabulke.
Canvas vs Formular
[*] Jan Sluka <snipe(zv)mail.cybernet(tec)cz> - 29.8.1998 11:01:05
Vazeni,
obracim se na Vas s nasledujicim problemem.
Pokud ma formular nastavenu vlastnost fsNormal,
pak lze na jeho platno kreslit normalne,
ale pokud je jeho vlastnost fsMDIForm, pak na
jeho platno kreslit nelze.
Nevite nekdo jak zabezpecit kresleni na platno
takoveho dormulare?
Dekuji vsem za namety Jan Sluka
Vypnuti Audia
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 29.8.1998 11:18:57
Diky, funguje to. Jen strukturu MIXERCONTROLDETAILS_BOOLEAN Delphi 3
neznalo a tak jsem se prohrabal MMSystem unitou a nahradil to
TMIXERCONTROLDETAILSBOOLEAN a pak uz to slo zkompilovat.
Nevis prosimte jeste co hledat ve strukture MixerLine.szShortName pro
vypnut� vseho tak jak v ovladani hlasitosti (pro jednotlive zarizeni
jsem znaky zkusmo nasel) ? A nebo vypnuti vseho se provede jinak?
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 28. srpna 1998 23:10
> Komu: DELPHI Distribution List
> P�edm�t: Re: Vypnuti Audia
>
> Zdenek Petruj wrote:
> >
> > Zdravim, jeste mam dotaz k CD audiu. Nastavovat programove hlasitost
> > umim (funkce auxsetvolume a auxgetvolume) ale nevite nekdo jak
> zapnout a
> > vypnout zvuk celkove a taky zvlast u jednotlivych zarizeni (hlavne
> > potrebuju Audio CD) tak jak je to v ovladacich hlasitost delano
> pomoci
> > checkboxu?
>
> Ahoj,
>
> Vypnout vstup Audio CD by melo jit takhle:
>
> uses
> MMSystem;
>
> procedure CheckMMResult(Value: MMRESULT);
> begin
> if Value <> MMSYSERR_NOERROR then
> raise Exception.CreateFmt('Mixer Error %d', [Value]);
> end;
>
> procedure MuteCDInput(Mute: Boolean);
> var
> Mixer: HMixer;
> MixerCaps: TMixerCaps;
> MixerLine: TMixerLine;
> I, Inputs: Integer;
> MixerControls: TMixerLineControls;
> MixerControl: TMixerControl;
> MixerControlDetails: TMixerControlDetails;
> MuteCD: MIXERCONTROLDETAILS_BOOLEAN;
> begin
> CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
> try
> CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
> MixerLine.cbStruct := Sizeof(MixerLine);
> Inputs := 0;
> for I := 0 to MixerCaps.cDestinations - 1 do
> begin
> MixerLine.dwDestination := I;
> CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
> MIXER_GETLINEINFOF_DESTINATION));
> if MixerLine.dwComponentType =
> MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
> begin
> Inputs := MixerLine.cConnections;
> Break;
> end;
> end;
>
> MixerControls.cControls := 0;
> for I := 0 to Inputs - 1 do
> begin
> MixerLine.dwSource := I;
> CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
> MIXER_GETLINEINFOF_SOURCE));
> if Pos('CD', MixerLine.szShortName) = 1 then
> begin
> MixerControls.cControls := MixerLine.cControls;
> Break;
> end;
> end;
>
> MixerControls.cbStruct := Sizeof(MixerControls);
> MixerControls.cbmxctrl := Sizeof(TMixerControl);
> MixerControls.pamxctrl := (zv)MixerControl;
> MixerControls.cControls := 1;
> MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
> MixerControls.dwLineID := MixerLine.dwLineID;
> CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls,
> MIXER_GETLINECONTROLSF_ONEBYTYPE));
>
> MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
> MixerControlDetails.dwControlID := MixerControl.dwControlID;
> MixerControlDetails.cChannels := 1;
> MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
> MixerControlDetails.cbDetails := Sizeof(MuteCD);
> MixerControlDetails.paDetails := (zv)MuteCD;
>
> MuteCD.fValue := Integer(Mute);
> CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails,
> MIXER_GETCONTROLDETAILSF_VALUE));
> finally
> mixerClose(Mixer);
> end;
> end;
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> MuteCDInput(True);
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> MuteCDInput(False);
> end;
>
> end.
>
> Petr Vones, amatersky
> programator
Public
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 29.8.1998 11:24:04
> V programu prog1 m�m promenou x a chci aby tuto promen� mohli
> pouzit vsechny units programu. Da se to udelat jinak,nez abych
> um�stil tuto promenou do implementcn� c�sti nejake unit ?
No prave do implementacni casti to nemuzes dat, protoze to je
cast pristupna pouze dane jednotce. Musis do umistit do casti
interface jedne jednotky a na tu se pak v casti uses odkazovat
ze vsech dalsich jednotek.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================ShutDown & Problem so zapisom do tabulky
[*] Richard Willmann <sales(zv)nocomment.sk> - 29.8.1998 12:10:24
presne tak ako hovoris ...
Richard Willmann
-----P�vodn� zpr�va-----
Od: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 2. september 1998 11:58
P�edm�t: RE: ShutDown & Problem so zapisom do tabulky
Hi,
o tohle tu asi neslo, podle me chce autor dotrazu pozastavit ukonceni
win do doby ukonceni kompilace a zapisu, a pak umoznit ukonceni win -
vse v jednom. Je to tak?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:fiala(zv)iname.com]
> Odesl�no: 02. z��� 1998 9:35
> Komu: DELPHI Distribution List
> P�edm�t: Re: ShutDown & Problem so zapisom do tabulky
>
> Co takhle si pri kompilaci nastavit promennou treba na True a po konci
> kompilace ji nastavit zpet na False. A v obsluze ShutDown si ji
> otestovat - neco jako vlajky
>Versioninfo
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 29.8.1998 12:47:48
V RX komponentach je unita verinfo.pas, ktera by mela z daneho souboru vytahnout z resourcu versioninfo, cicmene mel jsem s tim mensi problemy. Nezkousel jste to nekdo pouzit?
Radek
Versioninfo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 17:49:29
> Radek Soucek wrote:
>
> V RX komponentach je unita verinfo.pas, ktera by mela z daneho souboru
> vytahnout z resourcu versioninfo, cicmene mel jsem s tim mensi problemy.
> Nezkousel jste to nekdo pouzit?
>
> Radek
Ahoj,
a s cim mas konkretne problem ? V jednoduchem prikladu to funguje:
procedure TForm1.Button1Click(Sender: TObject);
var
Version: TVersionInfo;
begin
Version := TVersionInfo.Create(Application.ExeName);
try
Label1.Caption := Version.CompanyName;
finally
Version.Free;
end;
end;
--
Petr Vones, amatersky programator
Vypnuti Audia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 18:12:32
Zdenek Petruj wrote:
>
> Diky, funguje to. Jen strukturu MIXERCONTROLDETAILS_BOOLEAN Delphi 3
> neznalo a tak jsem se prohrabal MMSystem unitou a nahradil to
> TMIXERCONTROLDETAILSBOOLEAN a pak uz to slo zkompilovat.
> Nevis prosimte jeste co hledat ve strukture MixerLine.szShortName pro
> vypnut� vseho tak jak v ovladani hlasitosti (pro jednotlive zarizeni
> jsem znaky zkusmo nasel) ? A nebo vypnuti vseho se provede jinak?
Ahoj,
Pak musis vypnout primo linkovy vystup/reproduktory. Je to podobne jako
v predchozim pripade, akorat neni nutne prochazet vsechny vstupy k danemu
vystupnimu zarizeni. Jeste ale k tem jednotlivum vstupum, ten zpusob ktery
jsem popsal v predchozim priklade se mi dvakrat nelibi, puvodne jsem si
predstavoval vstup "CD" vyhledavat podle MixerLine.dwComponentType s hodnotou
MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC, nicmene u me zvukovky (Bravo Sound
za 700 Kc :-) je tento vstup definovan jako MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY.
Nevim kde je chyba, ale prijde me to trochu nelogicky, kdyztak se prosimte
podivej jaky typ to vraci u tebe.
procedure CheckMMResult(Value: MMRESULT);
begin
if Value <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('Mixer Error %d', [Value]);
end;
procedure MuteSpeakersOutput(Mute: Boolean);
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
MuteCD: MIXERCONTROLDETAILS_BOOLEAN;
OutputFound: Boolean;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
OutputFound := False;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine, MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
OutputFound := True;
Break;
end;
end;
if not OutputFound then raise Exception.Create('Nenalezen vystup');
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls, MIXER_GETLINECONTROLSF_ONEBYTYPE));
MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(MuteCD);
MixerControlDetails.paDetails := (zv)MuteCD;
MuteCD.fValue := Integer(Mute);
CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails, MIXER_GETCONTROLDETAILSF_VALUE));
finally
mixerClose(Mixer);
end;
end;
--
Petr Vones, amatersky programator
Definov�n� vlastn�ho datov�ho typu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 18:44:19
Svatopluk V�t wrote:
>
> Zdravim vsechny!
>
> Potreboval bych poradit s nasledujicim problemem :
>
> Ve svem programu bych potreboval definovat vlastni typ :
>
> type Vlastni = ( jedna, dve,tri,1,2,3)
>
> nevite jak prinutit Delphi aby si myslelo, ze ta cisla 1,2,3 jsou stringy?
>
> K cemu to vsechno?
>
> Mam vlastni proceduru se vstupnim parametrem typu vlastni :
>
> procedura Rekni(radek : vlastni);
> begin
> Case radek of
> jedna : udelej neco
> dve : udelej neco2
> .
> .
> .
> end;
> end;
>
> Da se to udelat, nebo je treba natvrdo provadet smycky If...then..else?
Ahoj,
moc jsem to nepochopil, proc chces pouzivat IF..THEN .... ?
--
Petr Vones, amatersky programator
MDIChild system menu; Alt+F9 shortcut
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 19:26:52
Miloslav Skacel wrote:
>
> Ahoj,
>
> neporadite prosim nekdo jak:
>
> 1. donutit menu pouzivat horke klavesy s modifikatorem ALT?
> V TMenuItem.ShortCut se standardne nenabizeji.
Ahoj,
FileNewItem.ShortCut := scAlt + VK_F9; // Alt+F9
nebo
FileNewItem.ShortCut := scAlt + Ord('A'); // Alt+A
>
> 2. modifikovat systemove menu v MDIChild, tak aby nereagovalo na Ctrl+F6
> (Dalsi),
> resp. jak zmenit horkou klavesu k polozce menu?
Takhle by to melo jit zmenit napriklad na Ctrl+F2:
unit Childwin;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, Messages;
type
TMDIChild = class(TForm)
Memo1: TMemo;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
implementation
{$R *.DFM}
const
SC_MYNEXTWINDOW = WM_USER + 1;
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TMDIChild.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType <> SC_NEXTWINDOW then
begin
if Msg.CmdType = SC_MYNEXTWINDOW then Msg.CmdType := SC_NEXTWINDOW;
inherited;
end;
end;
procedure TMDIChild.FormCreate(Sender: TObject);
begin
DeleteMenu(GetSystemMenu(Handle, False), SC_NEXTWINDOW, MF_BYCOMMAND);
AppendMenu(GetSystemMenu(Handle, False), MF_STRING, SC_MYNEXTWINDOW,
'Dalsi'#09'Ctrl+F2');
KeyPreview := True;
end;
procedure TMDIChild.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F2) and (Shift = [ssCtrl]) then
Perform(WM_SYSCOMMAND, SC_MYNEXTWINDOW, 0);
end;
end.
--
Petr Vones, amatersky programator
Corrupt file - other than header
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 29.8.1998 19:39:52
Mam jeste jeden zpusob. Po kazdem table.post provedu table.flushbuffers, coz
ulozi data na disk. K tomu jinak dochazi pouze v pripade table.close.
Jan Skopovy :-)
-----P�vodn� zpr�va-----
Od: tomas.mazurek(zv)vitkovice(tec)cz <tomas.mazurek(zv)vitkovice(tec)cz>
Komu: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Datum: 27. srpna 1998 8:43
P�edm�t: Re: Corrupt file - other than header
Hello,
Pro snizeni cetnosti poskozeni tabulek typu Paradox lze se slusnym
uspechem pouzit toto:
1. fce BDE API dbiSaveChanges(table.handle) u kritickych operaci. Fce
skutecne ulozi data na disk, coz napr. fce Post nedela...
2. V IDAPI tj. pomoci programu BDECFG.EXE nastavit local share na
TRUE.
Jinak nabizim za drobny peniz aplikace v D1 a D3, ktere opravuji a
kontroluji tabulky Paradoxu. U sitovych veci to delam tak, ze v
nocnich hodinach se spusti program, ktery zacne kontrolovat vsechny
tabulky aplikace...
Stejne je ale pravda, ze pro slozitejsi a rozsahlejsi aplikace je
vhodnejsi IB, Oracle apod...
Tomas
Asociace souboru s aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 19:40:53
Bene� Jaroslav wrote:
>
> Prosim o radu,
> jak vytvorit z programu / programove (v Delphi 1), asociaci nejak�ho
> souboru (m�m ICO i zvolenou extenzi souboru napr. FF,FA,EF,C1X), aby
> bylo mozne ho otevrit jenom poklepnutim na nej (v podstate se asi jedna
> o nejakou registraci typu souboru). Rucni prirazovani pres
> Pruzkumnik-Moznosti slozky-Typ souboru se mi zda nezikovny, zdlouhavy,
> pro dynamickou zmenu nevhodny zpusob.
> Dekuji
> Jaroslav Benes
Ahoj,
Podivej se v registru do HKEY_CLASSES_ROOT na nekterou priponu, z toho je to
dobre patrne. Akorat nevim jak v D1 pristupovat k registru Win95, mozna
vyvorit .reg soubor a ten pak importovat.
--
Petr Vones, amatersky programator
RS485, LPT, RealTime, HW
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 29.8.1998 19:44:51
> O diky Velky Guru, ze jsem si nevsim. Co takhle drobnou radu do zacatku.
> Potrebuji generovat presny casovy rastr s periodou 2 mikrosekundy. Kdyz
> rikam presny, tak mam na mysli toleranci do 0.1 mikrosekundy. A v tomto
V tom pripade bych zapomnel na nejaka Wokna,
to neni realTime operacni system (obavam se, tu ze nelze zarucit
nejen takovou presnost intervalu, ale ani to, ze nejaka urcita udalost
VUBEC NASTANE :-)))
Preji hodne stesti!
> rastru skenovat stav comu. A ze k cemu - takova jednoducha analyza seriove
> komunikace. Je mi lito, ale D3 vcelku uspesne vzdoruji (na P266, 128MB). Ve
> woknech jsem pouhy amater, tak co na to odbornici.
>
> Kosta
>
>
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: zds(zv)pce.fairnet(tec)cz (Win1250/ISO-8859-2)
http://www.angelfire.com/biz/zds
*-----------------------------------------------*prosba
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 29.8.1998 19:44:38
Mel jsi pravdu, jsem debil. Mel jsem totiz pripojene 2 TQuery pres master
dataset.
Promin.
Jan Skopovy :(
-----P�vodn� zpr�va-----
Od: Miroslav Hostinsk� <abcsoft(zv)rychnov(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 28. srpna 1998 19:15
P�edm�t: RE: prosba
Podle mych zkusenosti s IB a Delphi muze byt tento jev zpusoben
1. pomalym hardware (na strane serveru)
2. pouzivanim tzv. lookUp (nabo kalkulacnich poli) v datasetech,
nebo (samozrejme) je-li pripojen detail
Vsechen tento balast jsem z Query odstranil, vse se zrychlilo i vami
popsany jev zmizel.
Pouzivam PC K6 233 64MB RAM.
S pozdravem
Miroslav Hostinsky
-----P�vodn� zpr�va-----
Od: Jan Skopov� [SMTP:jan.skopovy(zv)vol(tec)cz]
Odesl�no: 26. srpna 1998 23:09
Komu: Delphi forum pinknet
P�edm�t: prosba
<<Soubor: ATT00027.htm>> Nevite nekdo co mam udelat aby:
Pouzivat TQuery na tabulku v IB. Kdyz prochazim tabulkou a drzim
kurzorovou sipku, sviti kurzor SQL a dataset nespravne zobrazuje
rolujici radky, ktere maji obsah recordu, na kterem jsem stiskl sipku.
Teprve kdyz ji pustim, zobrazi dataset recordy spravne. S takovou by me
zakaznik hnal svinskym krokem.
Diky, Jan Skopovy
Canvas vs Formular
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 19:45:37
Jan Sluka wrote:
>
> Vazeni,
>
> obracim se na Vas s nasledujicim problemem.
> Pokud ma formular nastavenu vlastnost fsNormal,
> pak lze na jeho platno kreslit normalne,
> ale pokud je jeho vlastnost fsMDIForm, pak na
> jeho platno kreslit nelze.
>
> Nevite nekdo jak zabezpecit kresleni na platno
> takoveho dormulare?
Ahoj,
V MDI aplikacich se hlavni okno chova trochu jinak, pokud potrebujes kreslit
do plochy MDI klienta tak to lze udelat zachycenim zpravy WM_ERASEBKGND, priklad
mas treba tady:
http://www.gnomehome.demon.nl/uddf/pages/mdifrm.htm#mdifrm7
--
Petr Vones, amatersky programator
Zpravy od modemu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 19:47:55
Bene� Jaroslav wrote:
>
> Prosim o radu,
> Jak ziskat zpravu od modemu napr. ze bylo spojeni pres modem ukonceno.
> Existuj� ve Windows takove zpravy (pripadne jak je napojit na aktualni
> sluzbu formu), nebo je potreba primo posilat k modemu com retezce a
> zji�tovat odezvy? Dekuji
> Jaroslav Benes
Ahoj,
Zalezi na tom jak to spojeni bylo vytvoreno, jedna z moznosti je monitorovat
stav daneho TAPI zarizeni. Nevim jakou mas verzi Delphi, u D4 uz je konecne
v helpu popsano TAPI, ale stale tam chybi hlavickove soubory (vi nekdo proc ?).
Priklad je na DSP, hledej tam soubor d_tapi.zip
--
Petr Vones, amatersky programator
RS485, LPT, RealTime, HW
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 19:52:24
Kosta wrote:
>
> >No, samozrejme. Proto take delame v Delphi, abychom mohli,
> >kdyz nas omrzi databaze, delat komunikaci, NT sluzby,
> >okalizatory a jinou havet. :-)
>
> >S pozdravem
>
> >Zbysek Hlinka
>
> O diky Velky Guru, ze jsem si nevsim. Co takhle drobnou radu do zacatku.
> Potrebuji generovat presny casovy rastr s periodou 2 mikrosekundy. Kdyz
> rikam presny, tak mam na mysli toleranci do 0.1 mikrosekundy. A v tomto
> rastru skenovat stav comu. A ze k cemu - takova jednoducha analyza seriove
> komunikace. Je mi lito, ale D3 vcelku uspesne vzdoruji (na P266, 128MB). Ve
> woknech jsem pouhy amater, tak co na to odbornici.
Ahoj,
Obavam se ze to asi tak jednoduse nepujde (a to nejen kvuli Windows). Za prve
nevim co presne myslis tim "stav comu". Sledovat lze pouze stavy signalu CTS,
DSR, DCD a RI. RxD zpracovava prislusny obvod a jeho monentalni stav zjistit
nelze (nemam tu ted nikde popis obvodu 8250/16450/16550 mozna to primo poskytuji,
presne si to uz nepamatuju, nicmene to neposkytuje zadna funkce Win32). Navic
dosahnout softwarove takove presnosti se mi zda temer nemozne a v takovem pripade
bych spise volil cestu hardwaru k tomu ucelu zhotovenemu. Dnes uz by to nemel byt
takovy problem a ani financni narocnost takoveho reseni nebude vysoka. Jako jedine
nouzove reseni me napada sledovat zmeny stavovych signalu a pri jejich zmene precist
hodnotu z QueryPerformanceCounter. Takto by sli ziskat hodnoty zmen signalu a ty
pak s pouzitim QueryPerformanceFrequency prevest na realne casove udaje.
--
Petr Vones, amatersky programator
TComboBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 20:36:01
psoft wrote:
>
> Zdravim vsetkych,
>
> rad by som sa opytal dve veci :
>
> 1. Ako urobit combo box, ktory by bol owner draw, ale zaroven
> editovatelny ?
Ahoj,
vypada to ze staci odvodit novou komponentu a v ni zadat pozadovanou kombinaci
parametru v CreateParams. Nevim jestli to ale nema jeste nejakou dalsi zaludnost,
protoze pak by to snad Borlandi udelali rovnou:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TXYComboBox = class(TComboBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure ComboBox1Change(Sender: TObject);
private
XYCombo: TXYComboBox;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TXYCombo }
procedure TXYComboBox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := Style or CBS_OWNERDRAWFIXED;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
XYCombo := TXYComboBox.Create(Self);
with XYCombo do
begin
Parent := Self;
Style := csDropDown;
for I := 1 to 100 do Items.Add(Format('Item %d', [I]));
OnDrawItem := ComboBox1DrawItem;
OnChange := ComboBox1Change;
end;
end;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TXYComboBox(Control) do
begin
Canvas.Font.Color := Index * 5000;
Canvas.TextRect(Rect, Rect.Left, Rect.Top, Items[Index]);
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
MessageBeep(0);
end;
end.> 2. Ako pri ownerdraw comboboxe (alebo tiez dropdownlist) urobit, aby
> mi pri zmene polozky cez vyber uzivatelom vyvolalo nejaku akciu ?
> OnChange akosi nefunguje. Ta je len na zmenu, ked uzivatel priamo
> pise, co potrebuje, ale nie cez vyber zo zoznamu, resp. len pri
> DropDown comboboxe.
V tom prikladu to funguje.
--
Petr Vones, amatersky programator
Ukoncenie procesu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.8.1998 20:52:58
Misecka Rastislav wrote:
>
> Ahoj,
>
>
> > Obavam se ze takto se to udelat neda. Ten problem se tyka pouze tech
> > "osklivych a starych" DOS aplikaci. Muzes si k te aplikaci ale vytvorit
> > PIF soubor. Budto rucne pomoci volby Vlastnosti, nebo to lze i programove
> > pomoci knihovny PIFMGR, ale nevzpominan si ted ze bych to nekde videl
> > hotove.
> >
>
> A neslo by to "Pri ukonceni zavriet" nastavit cez DDE s Explorerom ?
To asi ne, ale manipulace s PIF soubory je treba popsana v knize "Programovani
ve Windows 95", je tam i plno dalsich uzitecnych informaci. Dalsi problem je
ze hlavickovy soubor k PIFMGR (jako obvykle) neni v Delphi, takze si jej budes
muset bud nekde najit nebo v nejhorsim sam prepsat :-)
--
Petr Vones, amatersky programator
RX - datum
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 29.8.1998 23:59:18
Nemam jeste stahnutou verzi 2.5. Mam ted 2.4, ale myslim ze v principu je to
jedno. Ten soubor s cestinou mam a je aktivni. Alespon si to myslim, protoze
napr. v DBDateEdit je hint k tlacitkum (predchazeji mesic,...) je cesky. Co
ale neni cesky jsou nazvy dnu a mesicu.
Kde tohle najdu??
Kuba
----------------------------------------------------------------------------
---------------------------------
>SATON Glass s.r.o. wrote:
>>
>> Zdravim,
>> pouzivam RX komponentu DBDateEdit. Chtel jsem si ji pocestit, ale nevim
jak
>> to udelat ( pokud to tedy vubec jde ).
>> Chtel bych tam mit nazvy dnu a mesicu v cestine.
>> Predem diky za informace.
>
>Ahoj,
>
>k RxLib existuji ceske resource, meli by byt dostupne na http://rx.demo.ru,
>nebo hledej soubor rx250cze.zip na DSP.
>
>--
> Petr Vones, amatersky programator
>
>
Cursor
[*] Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz> - 30.8.1998 00:08:06
Kdyz tisknu na preview generatoru sestav Sinea (znakova, freeware),
tak kurzor mysi neustale meni podobu crSqlHourglass, crHourglass,
crDefault. Zkousel jsem nastavit Screen.Cursor, Strings.BeginUpdate,
Strings.EndUpdate, v generatoru se nastavuje DataSource.DisableControls,
ale nic nepomaha. Lze nejak natvrdo nastavit kurzor mysi ?
Jaroslav KULHEIM,
kulheim(zv)fp-brno(tec)cz
RS485, LPT, RealTime, HW
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 30.8.1998 09:03:30
Kosta wrote:
> >No, samozrejme. Proto take delame v Delphi, abychom mohli,
> >kdyz nas omrzi databaze, delat komunikaci, NT sluzby,
> >okalizatory a jinou havet. :-)
>
> O diky Velky Guru, ze jsem si nevsim.
Dekuji za honosny titul, nekam si ho vylepim. :-)
> Co takhle drobnou radu do zacatku.
> Potrebuji generovat presny casovy rastr s periodou 2 mikrosekundy. Kdyz
> rikam presny, tak mam na mysli toleranci do 0.1 mikrosekundy. A v tomto
> rastru skenovat stav comu. A ze k cemu - takova jednoducha analyza seriove
> komunikace. Je mi lito, ale D3 vcelku uspesne vzdoruji (na P266, 128MB).
> Ve woknech jsem pouhy amater, tak co na to odbornici.
No, tohle uz neni veci Delphi, ale API funkci. Jestli te k necemu
takovemu pusti Wokna, pak musis hledat v API helpu. Obavam se
vsak, ze ti Wokna v tomto smeru budou hazet klacky pod nohy, uz
z titulu multitaskoveho systemu.
Take nerozumim, k cemu muze byt uzitecne sledovat seriovy
prenos v mikrosekundach. V milisekundach bych to jeste chapal.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Cursor
[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 30.8.1998 09:14:11
Zel asi ne, protoze ve funkci
function TSession.ServerCallBack(CBInfo: Pointer): CBRType;
const
MinWait = 500;
begin
Result := cbrUSEDEF;
if (FCBSCType = cbscSQL) and (GetCurrentThreadID = MainThreadID) then
begin
if StartTime = 0 then
begin
TimerID := SetTimer(0, 0, 1000, (zv)TimerCallBack);
StartTime := GetTickCount;
end
else if (TimerID <> 0) and (GetTickCount - StartTime > MinWait) then
Screen.Cursor := crSQLWait;
end;
end;
v Unite DBTables je kurzor nastavovan na tvrdo na crSQLWait, ale ted mne
napada toto reseni:
Nekdy pri inicializaci programnu staci napsat
Screen.Cursors[crSQLWait] := LoadCursor(HInstance, 'MUJKURZOR');
a od te chvile nebude problikavat kurzor crSQLWait, ale Vas kurzor, coz
muze byt bud crDefault nebo crHourglass nebo neco uplne jineho.
Samozrejmne nesmite do unity priprast {$R *.RES} a do unit.res vytvorit
cursor "MUJKURZOR", ale to urcite vite.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o. - toto neni
reklama, ale podpis
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
-----Original Message-----
From: Jaroslav KULHEIM [mailto:kulheim(zv)fp-brno(tec)cz]
Sent: Sunday, August 30, 1998 12:08 AM
To: DELPHI Distribution List
Subject: Cursor
Kdyz tisknu na preview generatoru sestav Sinea (znakova, freeware),
tak kurzor mysi neustale meni podobu crSqlHourglass, crHourglass,
crDefault. Zkousel jsem nastavit Screen.Cursor, Strings.BeginUpdate,
Strings.EndUpdate, v generatoru se nastavuje
DataSource.DisableControls,
ale nic nepomaha. Lze nejak natvrdo nastavit kurzor mysi ?
Jaroslav KULHEIM,
kulheim(zv)fp-brno(tec)cz
RS485, LPT, RealTime, HW
[*] Kosta <kosta(zv)iol(tec)cz> - 30.8.1998 11:57:25
>No, tohle uz neni veci Delphi, ale API funkci. Jestli te k necemu
>takovemu pusti Wokna, pak musis hledat v API helpu. Obavam se
>vsak, ze ti Wokna v tomto smeru budou hazet klacky pod nohy, uz
>z titulu multitaskoveho systemu.
Nejen Delphi, ale ani API. I kdyz se jedna o banalitu, tak holt Wokna jsou v
tomto mimo. A ani ne tak z titulu multitaskoveho OS (viz takova vykopavka
jako OS9), ale spis ze znacne pochybne filosofie.
>Take nerozumim, k cemu muze byt uzitecne sledovat seriovy
>prenos v mikrosekundach. V milisekundach bych to jeste chapal.
No, pokud zacnu a skoncim na beznem pristupu, treba k Inetu, tak mi opravdu
muzou stacit milisekundy. Jakmile to chci jen trochu obecne tak mi je
znakova analyza k nicemu. Skusme jednoduche pocty 115 kB -> jeden bit = cca
9 mikrosekund, pokud potrebuji stavovou a casovou analyzu tak ty 2
mikrosekundy je minimum (predstih a zpozdeni RTS pred TX , ruseni a pod).
Nehlede k tomu ze 115 kB je pomerne pomale - potrebuji tak 360 kB (a uz jsem
na 2 mikrosekundach).
No a resume: program pod Wokny lze pouzit jen jako trochu inteligentni
monitor. Ostatni si musi zvladnou externi HW s vlastnim procesorem. Tedy k
tomuto dospela ma malickost, a jen jsem chtel vedet co by s tim delali
znalejsi. A potom mi to pripadalo zajimavejsi, nez meditace nad otazkou:
*Ukradnout ci neukradnout*.
Kosta
RS485, LPT, RealTime, HW
[*] Kosta <kosta(zv)iol(tec)cz> - 30.8.1998 12:08:45
>Obavam se ze to asi tak jednoduse nepujde (a to nejen kvuli Windows). Za
prve
>nevim co presne myslis tim "stav comu". Sledovat lze pouze stavy signalu
CTS,
>DSR, DCD a RI. RxD zpracovava prislusny obvod a jeho monentalni stav
zjistit
Pokud bude RxD pripojeno treba na CTS druheho portu, nebo vse monitorovano
pres LPT (pres prevodnik) problem HW omezeni je vyresen. Jen ten
rastr???????
>nelze (nemam tu ted nikde popis obvodu 8250/16450/16550 mozna to primo
poskytuji,
>presne si to uz nepamatuju, nicmene to neposkytuje zadna funkce Win32).
Navic
>dosahnout softwarove takove presnosti se mi zda temer nemozne
V technickych moznostech procesoru to je s velkou rezervou. Jen Wokna to
trochu (dost) omezuji svou filosofii.
>a v takovem pripade
>bych spise volil cestu hardwaru k tomu ucelu zhotovenemu. Dnes uz by to
nemel byt
>takovy problem a ani financni narocnost takoveho reseni nebude vysoka. Jako
jedine
>nouzove reseni me napada sledovat zmeny stavovych signalu a pri jejich
zmene precist
>hodnotu z QueryPerformanceCounter. Takto by sli ziskat hodnoty zmen signalu
a ty
>pak s pouzitim QueryPerformanceFrequency prevest na realne casove udaje.
Nerealizovatelne -> naprosto nahodne ztraty udalosti(jejich kumulace), a
potom zpetna analyza ruseni je v podstate nemozna.
>Petr Vones, amatersky programator
Vlastni HW - stejny pristup jsem taky zvolil. Zajimalo me co by s tim delali
znalejsi.
Kosta
Versioninfo
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 30.8.1998 12:46:50
Asi jsem blb; ale presne tak jsem to delal; mozna jsem se nekde preklepl.
Nicmene uz mi to jede.
Dik Radek
Problem s InstallShield
[*] Ing. J�n Kuch�r�����!j��G - 30.8.1998 14:17:43
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledujuci problem. V D3 vytvorim nejaky program, ktory niektore parametre
nacita z nejakeho konfiguracneho suboru. V programe InstallShield vytvorim instalacky tohto programu a teraz ten problem. Ako mam programu InstallShield povedat, aby do instalaciek zahrnul aj ten konfiguracny subor a po nainstalovani aby do daneho adresara dal aj ten dany subor.
Dik za vsetky napady
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
RS485, LPT, RealTime, HW
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.8.1998 16:26:46
> Potrebuji generovat presny casovy rastr s periodou 2 mikrosekundy. Kdyz
> rikam presny, tak mam na mysli toleranci do 0.1 mikrosekundy. A v tomto
> rastru skenovat stav comu. A ze k cemu - takova jednoducha analyza seriove
> komunikace. Je mi lito, ale D3 vcelku uspesne vzdoruji (na P266, 128MB). Ve
> woknech jsem pouhy amater, tak co na to odbornici.
Pak zapomen na Windows a Delphi. Mozna by to mohlo byt resitelne
napsanim treba VXD, ale to si nejsem jist a jsem liny se divat
do MSDN. I kdyz i o tom pochybuji. Vyplyva to z architektury
Windows.
Ja jsem jednou potreboval udelat takovy maly analyzator digitalniho
signalu (ptreboval jsem zjistit, jaky protokol pouziva jedno
zarizeni, pricemz jsem o tom nevedel vubec nic). Udelal jsem si
takovy maly pocitac s jednocipakem 8031, dostatecne velikou pameti
SRAM, dostatecne rychlym kmitoctem, samozrejme take s rozhranim
RS-232 (bylo to celkem jen nekolik obvodu), to jsem pripojil
k PC. No a naprogramoval jsem to tak, aby to nascanovalo kus
vsupniho signalu do pameti a pak mi ho to odeslalo do PC.
Samozrejme, ze seriova komunikace byla pomalejsi, nez jsem
pozadoval merit, takze se cely mereny interval musel vejit do
pameti SRAM toho pocitace. Ale protoze jsem potreboval merit
jeden signal a pamet jsem tam dal 32 kB, mel jsem moznost
zaznamenat 262.144 jednotek, coz bohate stacilo pri te rychlosti,
kterou jsem zvolil (cely blok komunikace nebyl zase az tak
dlouhy). Pak jsem to zanalyzoval, vylezl urcity signal a uz
jsem vedel, co to tam vlastne leze...
V pripade nutnosti rychlejsiho signalu, kde je nutne mit jeste
hustejsi rastr, jsou jednocipaky pracujici na rychleji
frekvenci. Pro urcita mereni by take slo pouzit normalni PC,
ale zato s programem v DOSu, tedy primo assembler, ktery
cte treba paralelni port. Pro me ucely vsak lepe vyhovel
tento externi pocitac.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================MDIChild system menu; Alt+F9 shortcut
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 30.8.1998 19:33:27
>> 2. modifikovat systemove menu v MDIChild, tak aby nereagovalo na Ctrl+F6
>> resp. jak zmenit horkou klavesu k polozce menu?
>Takhle by to melo jit zmenit napriklad na Ctrl+F2:
Diky, ad1 funguje OK.
ad2/ navrhovany postup pro menu horke klavesy v systemovem menu ma jeste hacek.
Ve formulari potrebuji reagovat na Ctrl+F6.
Tako kombinace ale do MDIChild nedorazi.
Je odchycena a vyvola WM_SYSCOMMAND,SC_NEXTWINDOW.
OK, reakci na SC_NEXTWINDOW potlacime ... a misto toho vyvolame svoji obsluhu
pro Ctrl+F6.
Stejnou udalost, ale vyvola take Ctrl+TAB a rucni vyber polozky menu 'Dalsi'.
V techto pripadech je vsak zadouci okna prepnout a ne reagovat jakoby na
Ctrl+F6.
>procedure TMDIChild.WMSysCommand(var Msg: TWMSysCommand);
>begin
> if Msg.CmdType <> SC_NEXTWINDOW then
> begin
> if Msg.CmdType = SC_MYNEXTWINDOW then Msg.CmdType := SC_NEXTWINDOW;
> inherited;
> end;
>end;
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
RS485, LPT, RealTime, HW
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 31.8.1998 00:20:55
Asi nejsem zrovna expert na W&spol, ale o multitaskingu a programovani
v�realnem case n�co vim. Pokud si dob�e pamatuju, tak v�podstate jediny
dostupny kmitocet rizeny krystalem je na vstupu 0/8253 - pouziva se pro
casovac. Jeho frekvence je 1.193180 Mhz, coz je perioda asi 0.84
mikrosekundy. Preprogramovani casovace neprichazi v�uvahu, rozpadly by
se ti minimalne disky, takze zbyva polling - neboli ve smycce cist
casovac a stav COM portu - predpokladam, ze te zajimaji pouze ridici
signaly (serializovana data stejne cist nemuzes :-)). Trochu budou vadit
diry v�datech po preplanovani, ale pokud ti pojede jenom merici task,
tak by to nemuselo byt az tak hrozne. Nacitana data prejedes filtrem,
abys interpoloval periodu 0.84 a dopocitas chybejici hodnoty. Podle
Shannona se muzes s�celkem uspokojivou presnosti dostat max. na 500-550
kHz, takze je to o fous. Pokud se tyka rezie planovani ve Windows, nikdy
jsem ji nemeril, ale pollingem 8253 ji muzes celkem snadno zjistit.
Staci porad dokola cist port 0 citace 8253 - nezapomen pouzit letme
cteni (SC0=SC1=RL0=RL1=0) a hledat diry v�rade. Delka diry ti rekne, jak
dlouho se tvuj task nedostal k�procesoru a podle toho muzes usoudit,
jestli to pujde nebo ne, pripadne zmenit prioritu tasku.
Zadny jiny vnitrni casovy zdroj me nenapada.
Program doporucuji napsat v�asembleru (aspon tu cast, kter� cte porty,
proto�e v�Pascalu by to asi nebylo to prave orechove).
Ing. Ji�� Foldyna
Odd�len� informa�n�ch syst�m�
AV�ZO, a.s., Slav�kova 6142, 708 00 Ostrava - Poruba
mailto:jiri.f(zv)avizo(tec)cz
http://www.AVIZO(tec)cz
tel.: +420 69 690 6612
mobil: +420 602 507 839
fax: +420 69 690 6313
ICQ#: 14919238
O diky Velky Guru, ze jsem si nevsim. Co takhle drobnou radu do
zacatku.
Potrebuji generovat presny casovy rastr s periodou 2
mikrosekundy. Kdyz
rikam presny, tak mam na mysli toleranci do 0.1 mikrosekundy. A
v tomto
rastru skenovat stav comu. A ze k cemu - takova jednoducha
analyza seriove
komunikace. Je mi lito, ale D3 vcelku uspesne vzdoruji (na P266,
128MB). Ve
woknech jsem pouhy amater, tak co na to odbornici.
Kosta
chyba BDE
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 31.8.1998 00:55:36
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite nahodou nekdo, co znamena chyba:
EDBEngineError
Invalid BLOB handle in record buffer
Mam TQuery pripojenou k IB. Kdyz se v DBGridu pohybuji kurzorem po zobrazenem seznamu, z niceho se objevi tato chyba. Pokud TQuery nastavim RequestLive:=true, tato chyba nikdy nenastane. Po zobrazeni chyby je indikator vybraneho radku zobrazen jinde, nez je vybrany record.
Problem je v tom, ze kdyz je TQuery.RequestLive:=true, nelze pouzivat nektere klauzule, jako napriklad COLLATE.
Diky za odpovedi.
Jan Skopovy
chyba BDE
[*] Jan Skopov� <jan.skopovy(zv)vol(tec)cz> - 31.8.1998 01:34:54
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Male doplneni. K chybe dochazi pouze u tabulek, ktere maji vice nez 1 field definovany varchar(3000);
-----P�vodn� zpr�va-----
Od: Jan Skopov� <jan.skopovy(zv)vol(tec)cz>
Komu: Delphi forum pinknet <delphi(zv)pinknet(tec)cz>
Datum: 31. srpna 1998 0:56
P�edm�t: chyba BDE
Nevite nahodou nekdo, co znamena chyba:
EDBEngineError
Invalid BLOB handle in record buffer
Mam TQuery pripojenou k IB. Kdyz se v DBGridu pohybuji kurzorem po zobrazenem seznamu, z niceho se objevi tato chyba. Pokud TQuery nastavim RequestLive:=true, tato chyba nikdy nenastane. Po zobrazeni chyby je indikator vybraneho radku zobrazen jinde, nez je vybrany record.
Problem je v tom, ze kdyz je TQuery.RequestLive:=true, nelze pouzivat nektere klauzule, jako napriklad COLLATE.
Diky za odpovedi.
Jan Skopovy
Pouze 1x pustit cizi aplikaci
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 31.8.1998 02:59:51
Resim nasledujici problem:
bezi mi aplikace a ma za ukol obcas odskocit do AutoCADu. Z AutoCADu se zase
kliknutim v menu obcas odskakuje do meho softu. a toto se muze dit cyklicky.
fazi od AutoCADu ke mne jsem vyresil tim, ze se z ACADu vola muj EXE a ten
ma zajisteno spousteni pouze jedne instance - v pripade dalsich spusteni se
jen reaktivuje puvodni instance (pres Atomy).
jak ale resit opacny smer, kdyz ACAD se klidne necha spustit x-krat.
existuji nejake funkce ci komponenty na praci s procesy ?
diky za pomoc,
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Beh na pozadi
[*] Ing. Ji�� Kub��ek - 31.8.1998 07:11:01
Zdravim vsechny,
pred par dny jsem vznesl nize uvedeny dotaz, ktery nejak zapadl. Dovoluji si
ho vznest znovu:
Mam v D1 aplikaci, ve ktere spustim casove narocnou rutinu (na pr.
komunikaci), obsahujici Application.ProcessMessages. Prubeh zpracovani teto
rutiny zobrazuji v ListBoxu. Kdyz vsak chci posunout radky textu v okne
ListBoxu, zastavi se beh rutiny po dobu stisku tlacitka mysi nad posuvnikem.
Lze s tim neco delat?
Diky za kazdou informaci
Ing.Jiri Kubicek
Email: etatherm(zv)telecom(tec)cz
http://web.telecom(tec)cz/etatherm
Versioninfo
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 31.8.1998 07:40:26
Ja to pouzivam, ale mel jsem problemy pri soucasnem pouzivani Hyper Report
Tee chart komponenty, kdyz jsem prejmenoval unit verinfo.pas na
verinfo2.pas, a ten pouzil, tak bylo vse OK. Na jine reseni jsem bohuzel
neprisel....
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Radek Soucek [SMTP:rsoucek(zv)email(tec)cz]
> Odesl�no: 29. srpna 1998 12:48
> Komu: DELPHI Distribution List
> P�edm�t: Versioninfo
>
> V RX komponentach je unita verinfo.pas, ktera by mela z daneho souboru
> vytahnout z resourcu versioninfo, cicmene mel jsem s tim mensi problemy.
> Nezkousel jste to nekdo pouzit?
> �
> Radek
RS485, LPT, RealTime, HW
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 31.8.1998 07:51:52
Kosta wrote:
> >No, tohle uz neni veci Delphi, ale API funkci. Jestli te k necemu
> >takovemu pusti Wokna, pak musis hledat v API helpu. Obavam se
> >vsak, ze ti Wokna v tomto smeru budou hazet klacky pod nohy, uz
> >z titulu multitaskoveho systemu.
>
> Nejen Delphi, ale ani API. I kdyz se jedna o banalitu, tak holt Wokna jsou
> v tomto mimo. A ani ne tak z titulu multitaskoveho OS (viz takova
> vykopavka jako OS9), ale spis ze znacne pochybne filosofie.
No, rekl bych, ze _mikrosekunda_ je uz tak maly cas, ze SW
sledovani muze vydatne brzdit beh celeho systemu.
>
> >Take nerozumim, k cemu muze byt uzitecne sledovat seriovy
> >prenos v mikrosekundach. V milisekundach bych to jeste chapal.
>
> No, pokud zacnu a skoncim na beznem pristupu, treba k Inetu, tak mi
> opravdu muzou stacit milisekundy. Jakmile to chci jen trochu obecne tak mi
> je znakova analyza k nicemu. Skusme jednoduche pocty 115 kB -> jeden bit =
> cca 9 mikrosekund, pokud potrebuji stavovou a casovou analyzu tak ty 2
> mikrosekundy je minimum (predstih a zpozdeni RTS pred TX , ruseni a pod).
> Nehlede k tomu ze 115 kB je pomerne pomale - potrebuji tak 360 kB (a uz
> jsem na 2 mikrosekundach).
Potom se take klonim k HW reseni, kde se to da osetrit daleko
lepe. SW pro takove kratke casy nepovazuji za vhodny.
> No a resume: program pod Wokny lze pouzit jen jako trochu inteligentni
> monitor. Ostatni si musi zvladnou externi HW s vlastnim procesorem. Tedy k
> tomuto dospela ma malickost, a jen jsem chtel vedet co by s tim delali
> znalejsi. A potom mi to pripadalo zajimavejsi, nez meditace nad otazkou:
> *Ukradnout ci neukradnout*.
:-) To jiste. Ja bych sice HW reseni neumel udelat, ale nekomu
bych to zadal.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Corrupt file - other than header
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 31.8.1998 07:52:56
>Mam jeste jeden zpusob. Po kazdem table.post provedu table.flushbuffers, coz
>ulozi data na disk. K tomu jinak dochazi pouze v pripade table.close.
>Jan Skopovy :-)
>
table.flushbuffers
udela prave dbiSaveChanges(table.handle) :)
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
-----P�vodn� zpr�va-----
Od: Jan Skopov� <jan.skopovy(zv)vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 31. srpna 1998 0:05
P�edm�t: Re: Corrupt file - other than header
>Mam jeste jeden zpusob. Po kazdem table.post provedu table.flushbuffers, coz
>ulozi data na disk. K tomu jinak dochazi pouze v pripade table.close.
>
>Jan Skopovy :-)
>
>-----P�vodn� zpr�va-----
>Od: tomas.mazurek(zv)vitkovice(tec)cz <tomas.mazurek(zv)vitkovice(tec)cz>
>Komu: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
>Datum: 27. srpna 1998 8:43
>P�edm�t: Re: Corrupt file - other than header
>
>
>Hello,
>
>Pro snizeni cetnosti poskozeni tabulek typu Paradox lze se slusnym
>uspechem pouzit toto:
>
>1. fce BDE API dbiSaveChanges(table.handle) u kritickych operaci. Fce
>skutecne ulozi data na disk, coz napr. fce Post nedela...
>
>2. V IDAPI tj. pomoci programu BDECFG.EXE nastavit local share na
>TRUE.
>
Public
[*] Jan Fiala <fiala(zv)iname(tec)com> - 31.8.1998 07:52:19
Pak si tuto promennou nadefinuj v sekci Public v definici tridy. Odkudkoliv se na ni pak dostanes Object.Promenna
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
-----Original Message-----
From: Jan Nov�k <csobta(zv)mbox.vol(tec)cz>
To: Delphi <delphi(zv)pinknet(tec)cz>
Date: 28. srpna 1998 19:50
Subject: Public
Cau panove !
V programu prog1 m�m promenou x a chci aby tuto promen� mohli
pouzit vsechny units programu. Da se to udelat jinak,nez abych
um�stil tuto promenou do implementcn� c�sti nejake unit ?
program prog1;
uses ....
.
.
.
var
X:Boolean;
Dik za radu.Pouze 1x pustit cizi aplikaci
[*] Pavel Kral <kral(zv)afx(tec)cz> - 31.8.1998 08:48:58
Mohl bys pouzit funkci EnumThreadWindows.
viz WIN32.HLP. Pro praci s procesy jsou tam
dalsi funkce.
Pavel
-----Original Message-----
From: Milan Sorm <xsorm(zv)informatics.muni(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 31. srpna 1998 3:14
Subject: Pouze 1x pustit cizi aplikaci
>Resim nasledujici problem:
>
>bezi mi aplikace a ma za ukol obcas odskocit do AutoCADu. Z AutoCADu se
zase
>kliknutim v menu obcas odskakuje do meho softu. a toto se muze dit
cyklicky.
>
>fazi od AutoCADu ke mne jsem vyresil tim, ze se z ACADu vola muj EXE a ten
>ma zajisteno spousteni pouze jedne instance - v pripade dalsich spusteni se
>jen reaktivuje puvodni instance (pres Atomy).
>
>jak ale resit opacny smer, kdyz ACAD se klidne necha spustit x-krat.
>
>existuji nejake funkce ci komponenty na praci s procesy ?
>
>diky za pomoc,
>milan sorm
>
>-------------------------------------------------------------
>Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
>FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
>http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
>
>fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
>
>
CGIEXPERT
[*] graciasz(zv)Comacomp(tec)cz (Zdenek Gracias) - 31.8.1998 09:18:45
Ahoj
nevi nekdo jak zaregiastrovat komponentu CGIExpert
nebo dke se u n�s d� sehnat pln� verze ?
dik za pomoc
GarciasZ(zv)Comacomp(tec)cz
Beh na pozadi
[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 31.8.1998 09:21:09
Jo lze, prepsat do D3 a pouzit pro casove narocnou rutinu Thread s
nastavenou TimeCritical prioritou. A v druhem threadu zobrazovat
vysledky do Listboxu - Kdyz zatuhne nebo se nejak zpozdi zobrazovani,
tak druhy Thread se o zpracovani rutiny postara.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/
-----Original Message-----
From: Ing. Ji�� Kub��ek [mailto:etatherm(zv)telecom(tec)cz]
Sent: Monday, August 31, 1998 7:11 AM
To: Konference DELPHI
Subject: Beh na pozadi
Zdravim vsechny,
pred par dny jsem vznesl nize uvedeny dotaz, ktery nejak zapadl.
Dovoluji si
ho vznest znovu:
Mam v D1 aplikaci, ve ktere spustim casove narocnou rutinu (na pr.
komunikaci), obsahujici Application.ProcessMessages. Prubeh zpracovani
teto
rutiny zobrazuji v ListBoxu. Kdyz vsak chci posunout radky textu v okne
ListBoxu, zastavi se beh rutiny po dobu stisku tlacitka mysi nad
posuvnikem.
Lze s tim neco delat?
Diky za kazdou informaci
Ing.Jiri Kubicek
Email: etatherm(zv)telecom(tec)cz
http://web.telecom(tec)cz/etatherm
chyba BDE
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 31.8.1998 09:24:41
Taky jsem se s tim potykal - souvisi to s nastavenim parametru BDE "BLOBs to
cache", ktery je treba zvetsit. Ale tohle reseni problem pouze oddali -
proste se ta chyba bude objevovat min casto. Uspokojive reseni jsem zatim
nenasel.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Jan Skopov�
> Odesl�no: 31. srpna 1998 0:56
> Komu: Delphi forum pinknet
> P�edm�t: chyba BDE
>
> Nevite nahodou nekdo, co znamena chyba:
> �
> EDBEngineError
> Invalid BLOB handle in record buffer
> �
> Mam TQuery pripojenou k IB. Kdyz se v DBGridu pohybuji kurzorem po
> zobrazenem seznamu, z niceho se objevi tato chyba. Pokud TQuery
> nastavim RequestLive:=true, tato chyba nikdy nenastane. Po
> zobrazeni chyby je indikator vybraneho radku zobrazen jinde, nez je
> vybrany record.
> �
> Problem je v tom, ze kdyz je TQuery.RequestLive:=true, nelze
> pouzivat nektere klauzule, jako napriklad COLLATE.
> �
> Diky za odpovedi.
> �
> Jan Skopovy
CGIEXPERT
[*] David_Zabensky.UNION(zv)union(tec)cz - 31.8.1998 09:47:57
Homepage tehoto dilka je na "http://www.cgiexpert.com/frame.htm" - plna i
freeware verze. Pokud chces vsak psat web modul, skus spise ISAPI - CGI
nepodporuje multithreading (neslo mi se prihlasit dvema instancema
njednou...).
Cau David;
CGIEXPERT
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 31.8.1998 09:56:43
Plna verze se da koupit na http://www.cgiexpert.com/
Taky se da odtamtud stahnout free verze.
U obojiho je instalak, jen pustis a klikas....
Tomas
On Monday, August 31, 1998 9:19 AM, graciasz(zv)comacomp(tec)cz
[SMTP:graciasz(zv)comacomp(tec)cz] wrote:
> Ahoj
> �nevi nekdo jak zaregiastrovat komponentu CGIExpert
> nebo dke se u n�s d� sehnat pln� verze ?
> ���
> � dik za pomoc
> �
> GarciasZ(zv)Comacomp(tec)cz <mailto:GarciasZ(zv)Comacomp(tec)cz>DBASE, pole CHAR a hodnota CHR(0)
[*] Karel K�upala <Karel.Krupala(zv)telecom(tec)cz> - 31.8.1998 10:15:52
Ahoj vsem,
mam nasledujici dotaz k tabulce DBASE a poli CHARACTER (36).
Do tohoto pole potrebuji dostat hodnotu 0 - presneji CHR(0) a to
do celeho retezce, tedy 36 krat.
Pokud pridam do teto tabulky novy zaznam, tak je toto pole
plne mezer - CHR(20h). Nejsem schopen tam zadat jiny znak
nez "printable character".
Se strukturou tabulky nic nenadelam, ani s nutnosti tam ty nuly
dostat. Tabulka je pouzivana ucetnim programem a ten to takhle
potrebuje (bohuzel).
Diky za kazdy napad.
Karel Krupala
Karel.Krupala(zv)telecom(tec)cz
Asociace souboru s aplikaci
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 31.8.1998 10:19:02
>> jak vytvorit z programu / programove (v Delphi 1), asociaci nejak�ho
>> souboru (m�m ICO i zvolenou extenzi souboru napr. FF,FA,EF,C1X), aby
>> bylo mozne ho otevrit jenom poklepnutim na nej (v podstate se asi jedna
>> o nejakou registraci typu souboru). Rucni prirazovani pres
>> Pruzkumnik-Moznosti slozky-Typ souboru se mi zda nezikovny, zdlouhavy,
>> pro dynamickou zmenu nevhodny zpusob.>Podivej se v registru do HKEY_CLASSES_ROOT na nekterou priponu, z toho je
to
>dobre patrne. Akorat nevim jak v D1 pristupovat k registru Win95, mozna
>vyvorit .reg soubor a ten pak importovat.
A ja, protoze jsem velky fanda D1 doplnim, ze toto zrovna jde. Koukni do
helpu
na RegSetValue a RegQueryValue. Tyto fce funguji i v D1 a Win95 prave a jen
pro klic HCR. Lze tedy z D1 modifikovat i asociaci pripon.
Martin
Beh na pozadi
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 31.8.1998 10:35:50
> Mam v D1 aplikaci, ve ktere spustim casove narocnou rutinu (na pr.
>komunikaci), obsahujici Application.ProcessMessages. Prubeh zpracovani teto
>rutiny zobrazuji v ListBoxu. Kdyz vsak chci posunout radky textu v okne
>ListBoxu, zastavi se beh rutiny po dobu stisku tlacitka mysi nad
posuvnikem.
>Lze s tim neco delat?
> Diky za kazdou informaci
Bohuzel v D1 asi nic. Je to dano vnitrni architekturou Windows pro
zpracovani zprav.
Stejne tak ti to ztuhne i kdyz uzivatel bude hybat oknem. Resenim je napsat
to pomoci
threadu v D2 a vyse.
Jako alternativu muzes jeste vyzkouset Win16 Yield nebo Peek&PostMessages
ale je
to prast jak uhod.
Martin
MS SQL6.5 & trigger
[*] TYSLIC(zv)BHAN-CE.MAIL602.CZ - 31.8.1998 10:53:22
Pekny den,
mam maly dotaz,
vytvoril jsem si nasledujici trigger, ale nemuzu prijit na to jak ho
prinutit, aby se provedl pouze na aktualni zaznam.
CREATE TRIGGER CeleJmeno
FOR INSERT,UPDATE
AS
UPDATE Zastupce
SET Cele_Jmeno = Prijmeni+' '+Jmeno
a tady jsem chtel pouzit neco jako
WHERE idZastupce = NEW.idZastupce
ale MS SQL nezna NEW. nebo OLD. jako IB
Za kazde natuknuti predem dekuji
Jirka
Delphi >> JAVA
[*] David_Zabensky.UNION(zv)union(tec)cz - 31.8.1998 10:54:38
Caute,
tak si v pohode browsim a ejhle - na adrese
"http://www.powwwerworkgroup.com/" je konvertor Delphi kodu do Javy. Ze by
prece???
PS: bohuzel neni freeware...
DBASE, pole CHAR a hodnota CHR(0)
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 31.8.1998 11:12:15
Obavam se, ze s tim nic udelat nepujde. hodnota 0 totiz zakoncuje
retezec, takze ji tam dostanes za normalnich okolnosti pouze jednou.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Karel K�upala [SMTP:Karel.Krupala(zv)telecom(tec)cz]
> Odesl�no: 31. srpna 1998 10:16
> Komu: DELPHI Distribution List
> P�edm�t: DBASE, pole CHAR a hodnota CHR(0)
>
> Ahoj vsem,
>
> mam nasledujici dotaz k tabulce DBASE a poli CHARACTER (36).
>
> Do tohoto pole potrebuji dostat hodnotu 0 - presneji CHR(0) a to
> do celeho retezce, tedy 36 krat.
> Pokud pridam do teto tabulky novy zaznam, tak je toto pole
> plne mezer - CHR(20h). Nejsem schopen tam zadat jiny znak
> nez "printable character".
> Se strukturou tabulky nic nenadelam, ani s nutnosti tam ty nuly
> dostat. Tabulka je pouzivana ucetnim programem a ten to takhle
> potrebuje (bohuzel).
>
> Diky za kazdy napad.
>
> Karel Krupala
> Karel.Krupala(zv)telecom(tec)cz
Exchange a Outlook
[*] Mrk��ek, Ale� <mrkacek(zv)sieza(tec)cz> - 31.8.1998 11:21:48
Vazeni kolegove,
i kdyz to nepatri do techto konferenci, chtel bych Vas pozadat o nalehavou
pomoc.
Zboril se nam na firme Exchange server 5.0 a mam problemy.
Jste-li nekdo tez administrator anebo mate nejake zkusenosti s Exchange
serverem
a Outlookem 97 jako klientem poslete mi echo na muj soukromy e-mail a ja Vam
popisi problem. Za odpovedi a zajem velice dekuje nestastny administrator.
Ales Mrkacek
----------------------------------------------------------------------------
-------------------
Ales Mrkacek - Informatika Sieza s.r.o.
e-mail: Mrkacek.Ales(zv)sieza(tec)cz Sturova 1282
tel: 02/4722028, 4727870 142 00 Praha
4
----------------------------------------------------------------------------
--------------------
Stretching bitmapy pro BitButton
[*] Ing. Jaroslav K�e�ek - 31.8.1998 11:44:41
Nevite nekdo, jak vyrobit bitmapu takovou, aby se c D2 C/S roztahovala, kdyz
zmenim vysku BitButtonu (resp. Font.Size).
Funguje to u preddefinovanych BitButtonu (napr. BitButton1.Kind = bkOK).
Bude to nejakym nastavenim bud bitmapy nebo vlastnosti BitButtonu. Zkousel
jsem bitmapu ulozit s vlastnosti Stretch. Pouzil jsem zabudovany Tools/Image
Editor v D2, ale nepomohlo to. Moc tomu editoru ale neverim. Prestoze v
Image Properties nastavim Stretch, pri novem otevreni Image properties je
vlastnost Stretch vymazana.
Jestli je to tim editorem, jaky mam pouzit?
Diky Jaroslav Krecek
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ing. Jaroslav K�e�ek
computer graphic & software development
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
e-mail: grafex(zv)iol(tec)cz or krecek(zv)iol(tec)cz
for short quick message use
jaroslav.krecek(zv)sms.paegas(tec)cz
phone: +420.603.226103
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Properties
[*] Daniel SICHTA <Sichta(zv)asset.sk> - 31.8.1998 12:06:48
Daju sa v debugeri vypisat vsetky properties nejakeho objektu ?
Ing. Daniel �ichta, ASSET s.r.o.
Rosinsk� 8, 011 05, �ilina SLOVAKIA
0421-89-54215
sichta(zv)za.asset.sk
MS SQL6.5 & trigger
[*] Radek Bartik <bartik(zv)nemhoro(tec)cz> - 31.8.1998 12:12:37
V MS SQL se musi pouzit misto NEW INSERTED a misto OLD DELETED.
Staci tedy zmenit podminku na
WHERE idZastupce = INSERTED.idZastupce
a vse bude fungovat jak si prejes.
Radek
-----P�vodn� zpr�va-----
Od: TYSLIC(zv)BHAN-CE.MAIL602.CZ <TYSLIC(zv)BHAN-CE.MAIL602.CZ>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 31. srpna 1998 12:03
P�edm�t: MS SQL6.5 & trigger
>Pekny den,
>
>mam maly dotaz,
>vytvoril jsem si nasledujici trigger, ale nemuzu prijit na to jak ho
>prinutit, aby se provedl pouze na aktualni zaznam.
>
>CREATE TRIGGER CeleJmeno
>FOR INSERT,UPDATE
>AS
>UPDATE Zastupce
> SET Cele_Jmeno = Prijmeni+' '+Jmeno
>
>a tady jsem chtel pouzit neco jako
> WHERE idZastupce = NEW.idZastupce
>ale MS SQL nezna NEW. nebo OLD. jako IB
>
>Za kazde natuknuti predem dekuji
>
> Jirka
DBASE, pole CHAR a hodnota CHR(0)
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 31.8.1998 12:19:09
Mozes pouzit metodu TField.SetData. Odskusal som to na malom priklade a
funguje to. Pouzil som format dBase IV. Table1TEST je pole typu Character
dlzky 5 znakov.
procedure TForm1.Button1Click(Sender: TObject);
const
hehe : array[0..4] of char = #0#0#0#0#0;
begin
Table1.Insert;
Table1TEST.SetData((zv)hehe);
Table1.Post;
end;
Ondrej Kelle
kelleon(zv)nnsk.sk
> -----Original Message-----
> From: Karel K�upala [SMTP:Karel.Krupala(zv)telecom(tec)cz]
> Sent: Monday, August 31, 1998 10:16 AM
> To: DELPHI Distribution List
> Subject: DBASE, pole CHAR a hodnota CHR(0)
>
> Ahoj vsem,
>
> mam nasledujici dotaz k tabulce DBASE a poli CHARACTER (36).
>
> Do tohoto pole potrebuji dostat hodnotu 0 - presneji CHR(0) a to
> do celeho retezce, tedy 36 krat.
> Pokud pridam do teto tabulky novy zaznam, tak je toto pole
> plne mezer - CHR(20h). Nejsem schopen tam zadat jiny znak
> nez "printable character".
> Se strukturou tabulky nic nenadelam, ani s nutnosti tam ty nuly
> dostat. Tabulka je pouzivana ucetnim programem a ten to takhle
> potrebuje (bohuzel).
>
> Diky za kazdy napad.
>
> Karel Krupala
> Karel.Krupala(zv)telecom(tec)cz
Off-topics: konference WinNT
[*] Ales Bukovsky <elidisp(zv)mbox.vol(tec)cz> - 31.8.1998 12:26:19
Predem se omlouvam za off-topics, ale predpokladam, ze je tu vysoka
pravdepodobnost toho, ye mi nekdo poradi...
Nevi nekdo adresu na konferenci o Windows NT (moderovanou cesky nebo
anglicky)? Predem diky...
-Ales Bukovsky, Elidis s.r.o.-
Properties
[*] David_Zabensky.UNION(zv)union(tec)cz - 31.8.1998 12:30:18
Spust si View\Browser. Otevre se ti okno s kompletni referenci VCL.
Cau David;
MS SQL6.5 & trigger
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 31.8.1998 12:33:18
MS SQL server pouziva tabulky Inserted a Deleted v triggeru, jako pomocne,
kde jsou vety, na ktere se Trigger spouusti.
Protoze trigger se muze spustit najednou pro vice vet, musis projit celkou
tuto tabulku.
pro trigger Insert se pouzivat Tablka Inserted, pro Update jsou v Deleted
puvodni a v Insertede nove vety a pro Delete se pouziva pouze Deleted
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: TYSLIC(zv)BHAN-CE.MAIL602.CZ [SMTP:TYSLIC(zv)BHAN-CE.MAIL602.CZ]
> Odesl�no: 31. srpna 1998 11:53
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: MS SQL6.5 & trigger
>
> Pekny den,
>
> mam maly dotaz,
> vytvoril jsem si nasledujici trigger, ale nemuzu prijit na to jak ho
> prinutit, aby se provedl pouze na aktualni zaznam.
>
> CREATE TRIGGER CeleJmeno
> FOR INSERT,UPDATE
> AS
> UPDATE Zastupce
> SET Cele_Jmeno = Prijmeni+' '+Jmeno
>
> a tady jsem chtel pouzit neco jako
> WHERE idZastupce = NEW.idZastupce
> ale MS SQL nezna NEW. nebo OLD. jako IB
>
> Za kazde natuknuti predem dekuji
>
> Jirka
MS SQL6.5 & trigger
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 31.8.1998 13:03:06
MS SQL m� INSERTED a DELETED. Ale pozor, pseudotabulky INSERTED a DELETED obsahuji vsechny vety menene danym prikazem. Teoreticky by to mohlo mozna vypadat nejak takto:
UPDATE Zastupce
SET Cele jmeno=Prijmeni+" "+Jmeno
FROM Zastupce JOIN INSERTED ON Zastupce.IdZastupce = INSERTED.IdZastupce
nebo
UPDATE Zastupce
SET Cele jmeno=Prijmeni+" "+Jmeno
WHERE IdZastupce IN (SELECT IdZastupce From INSERTED)
Mozna, ze by mohlo fungovat i toto (ale nejsem si jisty):
UPDATE INSERTED
SET Cele jmeno=Prijmeni+" "+Jmeno
-----P�vodn� zpr�va-----
Od: TYSLIC(zv)BHAN-CE.MAIL602.CZ [SMTP:TYSLIC(zv)BHAN-CE.MAIL602.CZ]
Odesl�no: 31. srpna 1998 12:54
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: MS SQL6.5 & trigger
Pekny den,
mam maly dotaz,
vytvoril jsem si nasledujici trigger, ale nemuzu prijit na to jak ho
prinutit, aby se provedl pouze na aktualni zaznam.
CREATE TRIGGER CeleJmeno
FOR INSERT,UPDATE
AS
UPDATE Zastupce
SET Cele Jmeno = Prijmeni+' '+Jmeno
a tady jsem chtel pouzit neco jako
WHERE idZastupce = NEW.idZastupce
ale MS SQL nezna NEW. nebo OLD. jako IB
Za kazde natuknuti predem dekuji
Jirka
vyska QRDetailu
[*] Marian Goryl <mgoryl(zv)studnet.sk> - 31.8.1998 13:12:12
Prosim o radu!
----------------
| | <- Header
----------------
| | <- pre kazdy udaj z databazy sa opakuje detail
----------------
| |
----------------
| |
| |
| |
| |
| |
----------------
| | <- Footer
----------------
Ako zistim skutocnu velkost (vysku) detailu. Ja ho naprojektyujem
ako skupinu QRLabelov, ktorym zapnem Autostretch - t.j. AK JE UDAJ
DLHY ROZTIAHNE SA DO VIACERYCH RIADKOV.
Riadky roztiahnu detail po vyske, ktoru potrebujem zistit.
Bud skutocnu vysku detailu (vsetky funkcie vracaju len vysku v
projekte) alebo pocet riadkov v QRLabel - vsetko, co som skusal bud
vracalo nulu alebo stale rovnaku konstantu.
Druha moznost, ak sa da, ako nalepit spodne zahlavie hned pod detaily.
Ak odstrankujem napr. po 2 udaji na strane, chcem, aby zapatie bolo
hned za nim - nie az dolu (Cez Child band to nie je riesenie)
---------------- ----------------
| | | |
---------------- ----------------
| | | |
---------------- ----------------
| | |########|
| | ----------------
| | | |
| | | |
| | | |
| | | |
| | | |
---------------- | |
|########| | |
---------------- ----------------
DBASE, pole CHAR a hodnota CHR(0)
[*] Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz> - 31.8.1998 13:26:04
Nezkousel jsem to, ale mozna by to slo pres metodu InsertRecord nebo
AppendRecord tabulky. Pokud ne, tak asi je treba vyuzit primo funkce BDE na
naplneni bufferu vety. Nevim ted vsak presne, jak se to dela, ja sem to
delal naposledy jeste v Paradox Enginu.
S pozdravem
J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
> -----P�vodn� zpr�va-----
> Od: Karel K�upala [SMTP:Karel.Krupala(zv)telecom(tec)cz]
> Odesl�no: 31. srpna 1998 10:16
> Komu: DELPHI Distribution List
> P�edm�t: DBASE, pole CHAR a hodnota CHR(0)
>
> Ahoj vsem,
>
> mam nasledujici dotaz k tabulce DBASE a poli CHARACTER (36).
>
> Do tohoto pole potrebuji dostat hodnotu 0 - presneji CHR(0) a to
> do celeho retezce, tedy 36 krat.
> Pokud pridam do teto tabulky novy zaznam, tak je toto pole
> plne mezer - CHR(20h). Nejsem schopen tam zadat jiny znak
> nez "printable character".
> Se strukturou tabulky nic nenadelam, ani s nutnosti tam ty nuly
> dostat. Tabulka je pouzivana ucetnim programem a ten to takhle
> potrebuje (bohuzel).
>
> Diky za kazdy napad.
>
> Karel Krupala
> Karel.Krupala(zv)telecom(tec)cz
vyska QRDetailu
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 31.8.1998 13:58:51
Ahojda ...
QrDetailBand.Size.Height - vraci to v nastavenych jednotkach reportu
(characters/inches/MM/native/pixels).
To se voli v QrReport.Units, a doporucuji pouzivat _native_, coz jsou
desetiny MM.
Dobry je to zjistovat v udalosti OnNeedData ...
Vysku bendu muzes za behu i menit :-))).
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Marian Goryl wrote:
> Prosim o radu!
>
> ----------------
> | | <- Header
> ----------------
> | | <- pre kazdy udaj z databazy sa opakuje detail
> ----------------
> | |
> ----------------
> | |
> | |
> | |
> | |
> | |
> ----------------
> | | <- Footer
> ----------------
>
> Ako zistim skutocnu velkost (vysku) detailu. Ja ho naprojektyujem
> ako skupinu QRLabelov, ktorym zapnem Autostretch - t.j. AK JE UDAJ
> DLHY ROZTIAHNE SA DO VIACERYCH RIADKOV.
> Riadky roztiahnu detail po vyske, ktoru potrebujem zistit.
> Bud skutocnu vysku detailu (vsetky funkcie vracaju len vysku v
> projekte) alebo pocet riadkov v QRLabel - vsetko, co som skusal bud
> vracalo nulu alebo stale rovnaku konstantu.
>
> Druha moznost, ak sa da, ako nalepit spodne zahlavie hned pod detaily.
> Ak odstrankujem napr. po 2 udaji na strane, chcem, aby zapatie bolo
> hned za nim - nie az dolu (Cez Child band to nie je riesenie)
>
> ---------------- ----------------
> | | | |
> ---------------- ----------------
> | | | |
> ---------------- ----------------
> | | |########|
> | | ----------------
> | | | |
> | | | |
> | | | |
> | | | |
> | | | |
> ---------------- | |
> |########| | |
> ---------------- ----------------
Beh na pozadi
[*] Lubo Fule <fule(zv)sct.sk> - 31.8.1998 14:58:54
Pokial siahaju moje vedomosti, tak sa s tym neda nic urobit, pretoze pokial
drzis stlacene tlacitko mysi nad posuvnikom, tak sa sustavne posiela danemu
posuvniku sprava s tym suvisiaca a pokial tlacitko neuvolnis, tak sa
sustavne tato sprava spracovava, teda procedura Application.ProcessMessages
neodovzda riadenie dalej. V 32-bitovom prostredi, kde existuje preemptivny
multitasking by sa to samozrejme dalo poriesit.
S pozdravom
Lubo Fule
> -----Original Message-----
> From: Ing. Ji�� Kub��ek [mailto:etatherm(zv)telecom(tec)cz]
> Sent: Monday, August 31, 1998 7:11 AM
> To: Konference DELPHI
> Subject: Beh na pozadi
>
>
> Zdravim vsechny,
> pred par dny jsem vznesl nize uvedeny dotaz, ktery nejak zapadl.
> Dovoluji si
> ho vznest znovu:
> Mam v D1 aplikaci, ve ktere spustim casove narocnou rutinu (na pr.
> komunikaci), obsahujici Application.ProcessMessages. Prubeh
> zpracovani teto
> rutiny zobrazuji v ListBoxu. Kdyz vsak chci posunout radky textu v okne
> ListBoxu, zastavi se beh rutiny po dobu stisku tlacitka mysi nad
> posuvnikem.
> Lze s tim neco delat?
> Diky za kazdou informaci
>
> Ing.Jiri Kubicek
> Email: etatherm(zv)telecom(tec)cz
> http://web.telecom(tec)cz/etatherm
>vyska QRDetailu
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 31.8.1998 15:02:31
Uplne tomu nerozumim. To se jedna o pripad, kdy je naplnena napr. polovina
strany a ty chces odstrankovat a v tu chvili tisknout zapati? Ne az na konci
strany, ale uz uprostred?
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Marian Goryl <mgoryl(zv)studnet.sk>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 31. srpna 1998 14:38
P�edm�t: vyska QRDetailu
>
>Druha moznost, ak sa da, ako nalepit spodne zahlavie hned pod detaily.
>Ak odstrankujem napr. po 2 udaji na strane, chcem, aby zapatie bolo
>hned za nim - nie az dolu (Cez Child band to nie je riesenie)
>
>---------------- ----------------
>| | | |
>---------------- ----------------
>| | | |
>---------------- ----------------
>| | |########|
>| | ----------------
>| | | |
>| | | |
>| | | |
>| | | |
>| | | |
>---------------- | |
>|########| | |
>---------------- ----------------
>
>
>Transparentni bitmapa v D1
[*] Adam Hor��ek���j+iǤ�Ƞ����3 - 31.8.1998 15:49:15
Zdravim vsechny.
Panove, nevite nahodou nekdo o nejake fci pro D1 na vykresleni bitmapy
transparentne?
Predem moc diky, nutne to potrebuji.
Adam Horacek.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
vyska QRDetailu
[*] Marian Goryl <mgoryl(zv)studnet.sk> - 31.8.1998 16:46:23
Ano, chcem vytlacit patu hned, nie az na konci strany.
Marian
-----Original Message-----
From: SATON Glass s.r.o. <info(zv)saton(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: Monday, August 31, 1998 4:35 PM
Subject: Re: vyska QRDetailu
Uplne tomu nerozumim. To se jedna o pripad, kdy je naplnena napr. polovina
strany a ty chces odstrankovat a v tu chvili tisknout zapati? Ne az na konci
strany, ale uz uprostred?
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Marian Goryl <mgoryl(zv)studnet.sk>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 31. srpna 1998 14:38
P�edm�t: vyska QRDetailu
>
>Druha moznost, ak sa da, ako nalepit spodne zahlavie hned pod detaily.
>Ak odstrankujem napr. po 2 udaji na strane, chcem, aby zapatie bolo
>hned za nim - nie az dolu (Cez Child band to nie je riesenie)
>
>---------------- ----------------
>| | | |
>---------------- ----------------
>| | | |
>---------------- ----------------
>| | |########|
>| | ----------------
>| | | |
>| | | |
>| | | |
>| | | |
>| | | |
>---------------- | |
>|########| | |
>---------------- ----------------
Poradte budoucimu zacatecnikovi
[*] jzahon(zv)post(tec)cz - 31.8.1998 17:04:57
Cau Delphisti,
Zatim programuji v Borland Pascalu. Sefove konecne pochopili, ze Woknows jsou dnes opravdu nutnosti. A samozrejme psat programy pro Wokna v BP je blbost.
Rozhodnuti padlo asi logicky na Delphi. Problem je v tom jake. Mohli byste ni nekdo objasnit rozdily mezi verzemi Standard, Professinal a C/S.
Dival jsem se na strankach firmy Apro na srovnavaci tabulku jednotlivych kitu, ale, ze bych vsechno chapal se rict neda. Neni mi napr. jasne, kdyz pri koupi verze Standard je zapovezena prace s databazemi SQL ? Nebo se da napr. pracovat s levnou MySQL ? Da se k databazim pristupovat pres ODBC ? Daji se programovat webovske aplikace ? Apod...
Diky Honza.Asociace souboru s aplikaci
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 31.8.1998 17:04:49
Souhlasim s timto nazorem, zaregistroval bych neco take tak.
Sice jsem to nijak neproveroval, ale nejsou na to (zapis do registru) primo API (nezavisle na verzi Delphi) ?
>>
>> Prosim o radu,
>> jak vytvorit z programu / programove (v Delphi 1), asociaci nejak�ho
>> souboru (m�m ICO i zvolenou extenzi souboru napr. FF,FA,EF,C1X), aby
>> bylo mozne ho otevrit jenom poklepnutim na nej (v podstate se asi jedna
>> o nejakou registraci typu souboru). Rucni prirazovani pres
>> Pruzkumnik-Moznosti slozky-Typ souboru se mi zda nezikovny, zdlouhavy,
>> pro dynamickou zmenu nevhodny zpusob.
>> Dekuji
>> Jaroslav Benes
>Ahoj,
>
>Podivej se v registru do HKEY CLASSES ROOT na nekterou priponu, z toho je to
>dobre patrne. Akorat nevim jak v D1 pristupovat k registru Win95, mozna
>vyvorit .reg soubor a ten pak importovat.
>
>--
> Petr Vones, amatersky programator
RS485, LPT, RealTime, HW
[*] Kosta <kosta(zv)iol(tec)cz> - 31.8.1998 17:25:27
Ing. Ji�� Foldyna
Asi nejsem zrovna expert na W&spol, ale o multitaskingu a programovani
v realnem case n�co vim. Pokud si dob�e pamatuju, tak v podstate jediny
dostupny kmitocet rizeny krystalem je na vstupu 0/8253 - pouziva se pro
casovac. Jeho frekvence je 1.193180 Mhz, coz je perioda asi 0.84
mikrosekundy. Preprogramovani casovace neprichazi v uvahu, rozpadly by
se ti minimalne disky, takze zbyva polling - neboli ve smycce cist
casovac a stav COM portu - predpokladam, ze te zajimaji pouze ridici
signaly (serializovana data stejne cist nemuzes :-)). Trochu budou vadit
diry v datech po preplanovani, ale pokud ti pojede jenom merici task,
tak by to nemuselo byt az tak hrozne. Nacitana data prejedes filtrem,
abys interpoloval periodu 0.84 a dopocitas chybejici hodnoty. Podle
Shannona se muzes s celkem uspokojivou presnosti dostat max. na 500-550
kHz, takze je to o fous. Pokud se tyka rezie planovani ve Windows, nikdy
jsem ji nemeril, ale pollingem 8253 ji muzes celkem snadno zjistit.
Staci porad dokola cist port 0 citace 8253 - nezapomen pouzit letme
cteni (SC0=SC1=RL0=RL1=0) a hledat diry v rade. Delka diry ti rekne, jak
dlouho se tvuj task nedostal k procesoru a podle toho muzes usoudit,
jestli to pujde nebo ne, pripadne zmenit prioritu tasku.
Zadny jiny vnitrni casovy zdroj me nenapada.
Program doporucuji napsat v asembleru (aspon tu cast, kter� cte porty,
proto�e v Pascalu by to asi nebylo to prave orechove).
>>>>>
Pooling je prakticky nepouzitelny, prave to filtrovani a interpolace mi to
zdegraduje na nesmyslne ukazovatko.
Prozatim to funguje s externim procesorem, jen ma predstava byla puvodne
trochu jina.
Coz o to napad by byl, jen mi to zatim preuspesne vzdoruje. Stav comu
scanovat pres LPT port v rezimu EPP, ten umoznuje DMA prenos, takze JEN je
treba nastavit hustotu DMA prenosu, pocet prenasenych dat na 1B a zonu kam
to nacpat. Ale ouha, co to udela s Woknama? Zatim je s neuprosnou
pravidelnosti dokonale zakusuju. A at koukam, kam koukam, takoveto problemky
pod Wokny jsou proste utajovany. Pod DOSem to je vcelku bez problemu. Ale co
se deje v Billove ditku vi jen Buh.
Kosta
kosta(zv)iol(tec)cz 0602/203 175
MS SQL6.5 & trigger
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 31.8.1998 17:27:32
> Pekny den,
>
> mam maly dotaz,
> vytvoril jsem si nasledujici trigger, ale nemuzu prijit na to jak ho
> prinutit, aby se provedl pouze na aktualni zaznam.
>
> CREATE TRIGGER CeleJmeno
> FOR INSERT,UPDATE
> AS
> UPDATE Zastupce
> SET Cele_Jmeno = Prijmeni+' '+Jmeno
>
rekl bych
FROM INSERTED /*coz je tabulka s vkladanymi hodnotami*/
WHERE idZastupce = INSERTED.idZastupce
> a tady jsem chtel pouzit neco jako
> WHERE idZastupce = NEW.idZastupce
> ale MS SQL nezna NEW. nebo OLD. jako IB
>
> Za kazde natuknuti predem dekuji
>
> Jirka
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/MS SQL6.5 & trigger
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 31.8.1998 18:11:08
Uz si nepamatuju jak to v SQl Serveru bylo, ale v Informixu to je takto:
CREATE TRIGGER Upd_obis UPDATE OF oi_ks,oi_lim_vsum,oi_vkl_vsum,oi_mena
on obis
REFERENCING OLD as cOld
NEW as cNew
FOR EACH ROW(
EXECUTE PROCEDURE UpdateObis(cOld.oi_id,'KS',
cOld.oi_ks,cNew.oi_ks,'',''),
EXECUTE PROCEDURE UpdateObis(cOld.oi_id,'MEN',
0,0,cOld.oi_mena, cNew.oi_mena)
);
Ing. Petr Jezek
Delvina s.r.o.
Kuzm�nyho 8
010 01 Zilina, SR
telefon: +421 89 624 344
mobil: +421 905 510 550
email: petr(zv)sevis.sk
web: www.delvina.sk
-----Original Message-----
From: TYSLIC(zv)BHAN-CE.MAIL602.CZ
[mailto:TYSLIC(zv)BHAN-CE.MAIL602.CZ]
Sent: Monday, August 31, 1998 10:53 AM
To: delphi(zv)pinknet(tec)cz
Subject: MS SQL6.5 & trigger
Pekny den,
mam maly dotaz,
vytvoril jsem si nasledujici trigger, ale nemuzu prijit na
to jak ho
prinutit, aby se provedl pouze na aktualni zaznam.
CREATE TRIGGER CeleJmeno
FOR INSERT,UPDATE
AS
UPDATE Zastupce
SET Cele_Jmeno = Prijmeni+' '+Jmeno
a tady jsem chtel pouzit neco jako
WHERE idZastupce = NEW.idZastupce
ale MS SQL nezna NEW. nebo OLD. jako IB
Za kazde natuknuti predem dekuji
Jirka
SQL, vice Countu
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 31.8.1998 18:32:45
Ahoj Delphici,
po nejake dobe ... ;-))
Potrebuji vyresit nasledujici problem:
V jedne tabulce mam umisteny seznam neceho. To neco je identifikovano
podle data. A ja potrebuji napsat takovy vyraz, ktery mi do jedne
tabulky vypise pocty toho ( count(*) ) z kazdeho roku.
Pokud mi nekdo poradi, abych to resil pres Stored Procedure pro kazdy
rok a vypisem do ListBoxu, tak dekuji, uz me to napadlo ;-)) .. jenze
problem je v tom, ze je to na lokalni tabulce a tam SP pouzit nemuzu...
Nevim, jak moc bude tahle tabulka narustat (zatim je mala, malinkata),
ale mozna docela dost, takze to potrebuji udelat vsechno najednou. Proto
i odpada moznost vypsani souctu vysledku jednotlivych vyrazu (pro kazdy
rok zvlast) do ListBoxu... Je to pro srovnavaci, ba primo statisticke
ucely, coz je duvod, proc to potrebuju vsechno najednou. Doufam, ze na
to existuje nejaka finta :-)).
Diky za kazdou radu a namet,
Peter Rus ml.
Intesys B&R s. r. o.
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz/Off-topics: konference WinNT
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 31.8.1998 19:01:05
Mrkni na www.emwac(tec)cz tam je odkaz ...
Mac
Ales Bukovsky wrote:
>
> Predem se omlouvam za off-topics, ale predpokladam, ze je tu vysoka
> pravdepodobnost toho, ye mi nekdo poradi...
>
> Nevi nekdo adresu na konferenci o Windows NT (moderovanou cesky nebo
> anglicky)? Predem diky...
>
> -Ales Bukovsky, Elidis s.r.o.-
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================SQL, vice Countu
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 31.8.1998 19:42:54
Ahoj Lubo,
Ja se picnu ;-))
Hmm .. jou, jak jednoduche a proste ..
DIKY DIKY DIKY!!!
Peter Rus ml.
Lubo Fule wrote:
>
> je to uplne trivialne, netreba na to ziadnu storovanu proceduru, staci GROUP
> BY
> Priklad:
>
> tabulka Pokus vyzera takto
>
> Cislo
> 1
> 1
> 1
> 2
> 2
> 3
> 3
> 3
> 3
> 4
>
> Dotaz
> SELECT Cislo, COUNT(*) FROM Pokus GROUP BY Cislo
> urobi presne to co chces teda:
>
> Cislo COUNT(*)
> 1 3
> 2 2
> 3 4
> 4 1
>
> S pozdravom
> Lubo Fule
>
> > -----Original Message-----
> > From: Peter Rus [mailto:peterrus(zv)intesys(tec)cz]
> > Sent: Monday, August 31, 1998 6:33 PM
> > To: DELPHI Distribution List
> > Subject: SQL, vice Countu
> >
> >
> > Ahoj Delphici,
> >
> > po nejake dobe ... ;-))
> >
> > Potrebuji vyresit nasledujici problem:
> > V jedne tabulce mam umisteny seznam neceho. To neco je identifikovano
> > podle data. A ja potrebuji napsat takovy vyraz, ktery mi do jedne
> > tabulky vypise pocty toho ( count(*) ) z kazdeho roku.
> >
> > Pokud mi nekdo poradi, abych to resil pres Stored Procedure pro kazdy
> > rok a vypisem do ListBoxu, tak dekuji, uz me to napadlo ;-)) .. jenze
> > problem je v tom, ze je to na lokalni tabulce a tam SP pouzit nemuzu...
> > Nevim, jak moc bude tahle tabulka narustat (zatim je mala, malinkata),
> > ale mozna docela dost, takze to potrebuji udelat vsechno najednou. Proto
> > i odpada moznost vypsani souctu vysledku jednotlivych vyrazu (pro kazdy
> > rok zvlast) do ListBoxu... Je to pro srovnavaci, ba primo statisticke
> > ucely, coz je duvod, proc to potrebuju vsechno najednou. Doufam, ze na
> > to existuje nejaka finta :-)).
> >
> > Diky za kazdou radu a namet,
> >
> > Peter Rus ml.
> > Intesys B&R s. r. o.
> >
> mailto:peterrus(zv)intesys(tec)cz
> http://www.intesys(tec)cz/SQL, vice Countu
[*] Lubo Fule <fule(zv)sct.sk> - 31.8.1998 19:47:46
je to uplne trivialne, netreba na to ziadnu storovanu proceduru, staci GROUP
BY
Priklad:
tabulka Pokus vyzera takto
Cislo
1
1
1
2
2
3
3
3
3
4
Dotaz
SELECT Cislo, COUNT(*) FROM Pokus GROUP BY Cislo
urobi presne to co chces teda:
Cislo COUNT(*)
1 3
2 2
3 4
4 1
S pozdravom
Lubo Fule
> -----Original Message-----
> From: Peter Rus [mailto:peterrus(zv)intesys(tec)cz]
> Sent: Monday, August 31, 1998 6:33 PM
> To: DELPHI Distribution List
> Subject: SQL, vice Countu
>
>
> Ahoj Delphici,
>
> po nejake dobe ... ;-))
>
> Potrebuji vyresit nasledujici problem:
> V jedne tabulce mam umisteny seznam neceho. To neco je identifikovano
> podle data. A ja potrebuji napsat takovy vyraz, ktery mi do jedne
> tabulky vypise pocty toho ( count(*) ) z kazdeho roku.
>
> Pokud mi nekdo poradi, abych to resil pres Stored Procedure pro kazdy
> rok a vypisem do ListBoxu, tak dekuji, uz me to napadlo ;-)) .. jenze
> problem je v tom, ze je to na lokalni tabulce a tam SP pouzit nemuzu...
> Nevim, jak moc bude tahle tabulka narustat (zatim je mala, malinkata),
> ale mozna docela dost, takze to potrebuji udelat vsechno najednou. Proto
> i odpada moznost vypsani souctu vysledku jednotlivych vyrazu (pro kazdy
> rok zvlast) do ListBoxu... Je to pro srovnavaci, ba primo statisticke
> ucely, coz je duvod, proc to potrebuju vsechno najednou. Doufam, ze na
> to existuje nejaka finta :-)).
>
> Diky za kazdou radu a namet,
>
> Peter Rus ml.
> Intesys B&R s. r. o.
>
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz/MDIChild system menu; Alt+F9 shortcut
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.8.1998 19:50:34
Miloslav Skacel wrote:
> ad2/ navrhovany postup pro menu horke klavesy v systemovem menu ma jeste hacek.
> Ve formulari potrebuji reagovat na Ctrl+F6.
> Tako kombinace ale do MDIChild nedorazi.
> Je odchycena a vyvola WM_SYSCOMMAND,SC_NEXTWINDOW.
> OK, reakci na SC_NEXTWINDOW potlacime ... a misto toho vyvolame svoji obsluhu
> pro Ctrl+F6.
> Stejnou udalost, ale vyvola take Ctrl+TAB a rucni vyber polozky menu 'Dalsi'.
> V techto pripadech je vsak zadouci okna prepnout a ne reagovat jakoby na
> Ctrl+F6.
Ahoj,
no dobre, tak to zkusim znova a jinak :-)
MDIChild -------------------------------------------------------------------
procedure TMDIChild.FormCreate(Sender: TObject);
begin
DeleteMenu(GetSystemMenu(Handle, False), SC_NEXTWINDOW, MF_BYCOMMAND);
AppendMenu(GetSystemMenu(Handle, False), MF_STRING, SC_NEXTWINDOW,
'Dalsi'#09'Ctrl+F2');
end;
MainForm -------------------------------------------------------------------
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnMessage := OnAppMessage;
end;
procedure TMainForm.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Screen.ActiveForm <> nil) and (Screen.ActiveForm.FormStyle = fsMDIChild) and
((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) then
case Msg.wParam of
VK_F6:
if GetKeyState(VK_CONTROL) < 0 then
begin
Handled := True;
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
VK_F2:
if (GetKeyState(VK_CONTROL) < 0) and (Msg.message = WM_KEYDOWN) then
PostMessage(ClientHandle, WM_MDINEXT, 0, 0);
end;
end;
--
Petr Vones, amatersky programator
Service + DBF na sieti
[*] Lubo Fule <fule(zv)sct.sk> - 31.8.1998 20:59:22
Mam nasledovny problem:
Pisem service aplikaciu v D/4 a potrebujem pristupovat k DBF suborom kdesi
na sieti (najlepsie cez BDE, ale v krajnom pripade aj priamo). Zatial mi to
nejde. Kedze je to servis, tak puzivam sietovu konvenciu pre definovanie
cesty (\\pocitac\share...).
Vdaka za kazdy napad.
S pozdravom
Lubo Fule
Poradte budoucimu zacatecnikovi
[*] �ke��k Jaroslav�������6�����̿ - 31.8.1998 22:01:57
Standard je cenove lakadlo. Neobsahuje zdroje komponent a ma zrejme
konkurovat VisualBacicu, ktery toho neumi o nic vice.
Professinal obsahuje tez knihovnu zdroju. Oproti CS neobsahuje Query
disainer, SQL links na ruzne platformy, vicevrstvou architkturu
(MIDAS, COBRA) a nejake dalsi drobnosti.
Levneji asi prijde, pokud zakoupis Professinal, k tomu nejakej server a
jeden konkretni SQL link na tento server (pokud jiz neni soucasti serveru).
Pak to pujde take.
Pomoci ODBC to pujde urcite, ale myslim, ze to bude pomalejsi nez prime
ovladace. Interbase server 5.01 vcetne jednoho klienta asi za necelych
8.000,-
taky uz neni nic draheho pro vyvoj.
Licence pro dalsi klienty se pak dokupuji do 6.000,- za kus.
Cena verze Professinal pod 20.000,- neni take nijak ohromujici.
Zalezi na tom, co s tim chcete u Vas ve firme delat. Jestli chces
vicevrstvou technologii, pak je C/S nutnosti. V ostatnich pripadech je
to vetsinou prepych.
Jaro
--------------------------------------------
>Cau Delphisti,
>Zatim programuji v Borland Pascalu. Sefove konecne pochopili, ze Woknows
jsou dnes opravdu nutnosti. A samozrejme psat programy pro Wokna v BP je
blbost.
>Rozhodnuti padlo asi logicky na Delphi. Problem je v tom jake. Mohli byste
ni nekdo objasnit rozdily mezi verzemi Standard, Professinal a C/S.
>Dival jsem se na strankach firmy Apro na srovnavaci tabulku jednotlivych
kitu, ale, ze bych vsechno chapal se rict neda. Neni mi napr. jasne, kdyz
pri koupi verze Standard je zapovezena prace s databazemi SQL ? Nebo se da
napr. pracovat s levnou MySQL ? Da se k databazim pristupovat pres ODBC ?
Daji se programovat webovske aplikace ? Apod...
>Diky Honza.
Poradte budoucimu zacatecnikovi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.8.1998 23:04:08
> Levneji asi prijde, pokud zakoupis Professinal, k tomu nejakej server a
> jeden konkretni SQL link na tento server (pokud jiz neni soucasti serveru).
> Pak to pujde take.
Pozor, Inprise nachystal jednu velikou zradu, uz se tu o tom mluvilo,
ze z programu napsaneho pod Delphi Professional nelze pristupovat na
databaze pomoci SQL Links. Snad jedine Interbase, ale tim si nejsem
tak jist. Strucne receno - Standard muze jen na lokalni tabulky,
nedokaze ani SQL Links ani ODBC; Professional muze na lokalni tabulky
a na ODBC, nikoliv na SQL Links; ty muze pouzivat jen Client/Server.
SQL Links pro Delphi nelze dokoupit! Na to si dejte vazne bacha,
protoze se o tom nic moc nemluvi, nicmene je to tak.
Jsou IMHO jen dve reseni, jak pristupovat z Delphi Professional na
databazi typu SQL Server - (a) pres ODBC, coz je vyhovujici, ale
dost pomale, nebo (b) pomoci primeho ovladace k danemu SQL Serveru
jakozto nahrady BDE - konkretne napr. Titan pro Sybase SQL Anywhere
od spolecnosti Reggatta Systems. Za licenci se utrati sice nekolik
stovek dolaru, ale stale je to levnejsi nez Delphi Client/Server,
a pristup na data je mnohem rychlejsi nez pres ODBC.
> Pomoci ODBC to pujde urcite, ale myslim, ze to bude pomalejsi nez prime
> ovladace. Interbase server 5.01 vcetne jednoho klienta asi za necelych
> 8.000,-
> taky uz neni nic draheho pro vyvoj.
> Licence pro dalsi klienty se pak dokupuji do 6.000,- za kus.
Pozor, pokud si nekdo koupi Delphi Professional, nemuze opravdu
pristupovat na InterBase pres SQL Links.
> Cena verze Professinal pod 20.000,- neni take nijak ohromujici.
15 tisic v CR, kolem 10 tisic v USA.
> Zalezi na tom, co s tim chcete u Vas ve firme delat. Jestli chces
> vicevrstvou technologii, pak je C/S nutnosti. V ostatnich pripadech je
> to vetsinou prepych.
A nejen prepych, dokonce sileny utok na penezenku. Mimochodem,
jeste prijde Delphi Enterprise (myslim, ze takto by se to melo
jmenovat) a to teprve uvidime, kolik bude stat...
Americani se maji, to se jim to nakupuje, kdyz tam to stoji
tisice dolaru, zatimco tady statisice korun. Nehlede na to, ze
ceny pro Ceskou republiku jsou v prepoctu kursu dolaru vuci
korune jeste o 40-50% vyssi nez v USA. Jeste stesti, ze dnes
v dobe, kdy mame Internet a svet je maly, neni problem koupit
cokoliv v USA a i s velmi vysokym dopravnym pomoci kuryrni
sluzby typu DHL to vyjde jeste o 30% levneji, nez se to prodava
zde v CR. A to jiz urcite stoji za tu malinkou namahu...
Dost casto nakupuji v zahranici vsechno mozne, nejen proto, ze
to mnohdy vyjde levneji i nez je moje dealerska cena, ale
take proto, ze treba dostanu produkt o mnoho rychleji nez
od distributora z CR. Bezva jsou obchody, kdy posilaji produkt
elektronickou cestou, to je tu hned po autorizaci karty,
takze nekolik minut po objednavce. DHL trva 3-5 dni. Jenze
vetsinou ceny nejsou tak okate nizsi. Vetsina produktu se
podoba cene zde v CR, takze pro nakup v cizine se hodi jen
ty druhy, kde bud je to elektronicky (tedy rychle a bez
dopravneho) nebo to neni zde vubec k dostani a nebo jsou
specialni slevy, kdy to i tak vyjde levneji. Borland je ale
vyjimkou, protoze tam je rozdil tak velky, ze to ma cenu.
A je to rozhodne skoda (ne pro me, ale pro cesky Borland).
Kdyz ja prodavam zbozi ze zahranici, musim take neco vydelat,
jinak bych to nedelal, musi se mi zaplatit dopravne a jeste
zbyt nejaky zisk, takze cena nemuze byt prosty kurs dolaru,
ale rozhodne si nemohu dovolit nasadit cenu prepocet ceny
dle kursu +50%, protoze to bych mozna prodal jednou jednomu...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Poradte budoucimu zacatecnikovi
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 1.9.1998 00:49:47
V poslednim dopise jzahon(zv)post(tec)cz pise:
> Cau Delphisti,
> Zatim programuji v Borland Pascalu. Sefove konecne pochopili, ze Woknows jsou dnes opravdu nutnosti. A samozrejme psat programy pro Wokna v BP je blbost.
> Rozhodnuti padlo asi logicky na Delphi. Problem je v tom jake. Mohli byste ni nekdo objasnit rozdily mezi verzemi Standard, Professinal a C/S.
> Dival jsem se na strankach firmy Apro na srovnavaci tabulku jednotlivych kitu, ale, ze bych vsechno chapal se rict neda. Neni mi napr. jasne, kdyz pri koupi verze Standard je zapovezena prace s databazemi SQL ? Nebo se da napr. pracovat s levnou MySQL ? Da se k databazim pristupovat pres ODBC ? Daji se programovat webovske aplikace ? Apod...
> Diky Honza.
>
Proc Delphi ? Mate jeste moznost s C++Builderem (taky od Imprise). Je to
totez ale v C++ a umi to i importovat Delphi komponenty.
Rozdily mezi Standard, Prof. a C/S
V cene a v moznostech.
Std. je tak na hrani domu, DB skoro zadne
Prof. je to normalni pro podnikajiciho programatora
C/S je priserne drahe a ma navic rozsahle vylepsene veci okolo SQL, DB a
obsahuje nekolik licenci InterBase (SQL Server).
jestli zacinate a jdete z BP, doporucuji Prof.
ODBC jiste, ale je to strasne pomale.
Web aplikace v Delphi3, 4 a C++Builderu 3 jdou.
p.s. zalamujte maily < 75znaku, spatne se ctou.
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Poradte budoucimu zacatecnikovi
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 1.9.1998 00:53:28
V poslednim dopise Petr Zahradnik pise:
> > Levneji asi prijde, pokud zakoupis Professinal, k tomu nejakej server a
> > jeden konkretni SQL link na tento server (pokud jiz neni soucasti serveru).
> > Pak to pujde take.
>
> Pozor, Inprise nachystal jednu velikou zradu, uz se tu o tom mluvilo,
> ze z programu napsaneho pod Delphi Professional nelze pristupovat na
> databaze pomoci SQL Links. Snad jedine Interbase, ale tim si nejsem
> tak jist. Strucne receno - Standard muze jen na lokalni tabulky,
> nedokaze ani SQL Links ani ODBC; Professional muze na lokalni tabulky
> a na ODBC, nikoliv na SQL Links; ty muze pouzivat jen Client/Server.
> SQL Links pro Delphi nelze dokoupit! Na to si dejte vazne bacha,
> protoze se o tom nic moc nemluvi, nicmene je to tak.
toto je pravda. v C++Builderu 3 uz to tak je, ze z Prof. muzu jen na
SQLLinky do Interbase. Na Oracle uz mi to nejde, i kdyz mam SQLLinky od
Delphi 3 vcetne zmineneho Oraclu.
no a pokud mate zajem usetrit, pak vas zaujme Perl pro Windows, nyni vcetne
PerlBuilderu (to prvni zdarma, to druhe za asi $300). umi to ODBC, nativne
do ruznych SQL atd. ale to je opravdu off-topic. (p.s. jeste to ma sqely
jazyk oproti kteremu je Delphi a C pomerne zaostale).
dalsi moznosti usetreni je obstarat si InterBasi na Linuxu, tam je zdarma.
jede pod RH4.2.
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Beh na pozadi
[*] Ing. Ji�� Kub��ek - 1.9.1998 06:46:06
>> Mam v D1 aplikaci, ve ktere spustim casove narocnou rutinu,
>> obsahujici Application.ProcessMessages. Prubeh zpracovani teto
>>rutiny zobrazuji v ListBoxu. Kdyz vsak chci posunout radky textu v okne
>>ListBoxu, zastavi se beh rutiny po dobu stisku tlacitka mysi nad
posuvnikem.
>>Lze s tim neco delat?
Diky vsem za odpovedi, musim vsak zustat v D1. Abych tedy zajistil neruseny
chod casove
narocne rutiny, chci zablokovat vsechny Controls na formulari po dobu
jejiho behu.
Zmenil jsem Screen.Cursor na presypaci hodiny a zkusil zakazat
(Enabled:=false)
formular. V tom pripade se mi vsak vraci default Cursor.
Resenim bylo nechat formular povoleny, ale zakazat vsechny Controls. Neni
nejaka
elegantnejsi cesta?
Jirka
Beh na pozadi
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 1.9.1998 07:13:16
> Diky vsem za odpovedi, musim vsak zustat v D1. Abych tedy zajistil neruseny
> chod casove
> narocne rutiny, chci zablokovat vsechny Controls na formulari po dobu
> jejiho behu.
> Zmenil jsem Screen.Cursor na presypaci hodiny a zkusil zakazat
> (Enabled:=false)
> formular. V tom pripade se mi vsak vraci default Cursor.
> Resenim bylo nechat formular povoleny, ale zakazat vsechny Controls. Neni
> nejaka
> elegantnejsi cesta?
Ted me napadlo (jen tak z rychliku) co kdybys pri vypoctu modalne zobrazil
nejaky dalsi form, kde bybyla hlaska "Pocitam" ci neco tomu podobneho, a
po skonceni ho zavrel. Pripadne jeste na tom zobrazenem formu nejak
zakazat stisk ESC (aby ho nemohl zavrit uzivatel)
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: pavel.zichovsky(zv)sms.paegas(tec)cz (120 znaku)
ICQ: 13484112
PGP podporovano a vitano
Poradte budoucimu zacatecnikovi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.9.1998 08:19:10
jzahon(zv)post(tec)cz wrote:
> Cau Delphisti,
> Zatim programuji v Borland Pascalu. Sefove konecne pochopili, ze Woknows
> jsou dnes opravdu nutnosti. A samozrejme psat programy pro Wokna v BP je
> blbost. Rozhodnuti padlo asi logicky na Delphi. Problem je v tom jake.
> Mohli byste ni nekdo objasnit rozdily mezi verzemi Standard, Professinal a
> C/S. Dival jsem se na strankach firmy Apro na srovnavaci tabulku
> jednotlivych kitu, ale, ze bych vsechno chapal se rict neda. Neni mi napr.
> jasne, kdyz pri koupi verze Standard je zapovezena prace s databazemi SQL
> ? Nebo se da napr. pracovat s levnou MySQL ? Da se k databazim pristupovat
> pres ODBC ? Daji se programovat webovske aplikace ? Apod... Diky Honza.
>
Standard je jenom na hrani, pro rozumnou praci je nevhodny.
Professional je zakladni verze. C/S umi vsechno co predchozi
verze, navic je hlavne pro praci s databazemi na urovni C/S. Pokud
byste chteli C/S plne vyuzit, je nutno pro komercni (nebo firemni)
provoz aplikace jeste dokoupit licenci na MIDAS, ktera je take
pekne draha. C/S se vyplati pro vetsi firmy, ktere maji mohutnou sit.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
SQL, vice Countu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 1.9.1998 08:37:13
Nepotrebujes proceduru, staci preci GROUP BY
select count(*) from tabulka
group by rok
Dobra.
----------
Od: Peter Rus[SMTP:peterrus(zv)intesys(tec)cz]
Odesl�no: 31. srpna 1998 18:32
Komu: DELPHI Distribution List
P�edm�t: SQL, vice Countu
Ahoj Delphici,
po nejake dobe ... ;-))
Potrebuji vyresit nasledujici problem:
V jedne tabulce mam umisteny seznam neceho. To neco je identifikovano
podle data. A ja potrebuji napsat takovy vyraz, ktery mi do jedne
tabulky vypise pocty toho ( count(*) ) z kazdeho roku.
Pokud mi nekdo poradi, abych to resil pres Stored Procedure pro kazdy
rok a vypisem do ListBoxu, tak dekuji, uz me to napadlo ;-)) .. jenze
problem je v tom, ze je to na lokalni tabulce a tam SP pouzit nemuzu...
Nevim, jak moc bude tahle tabulka narustat (zatim je mala, malinkata),
ale mozna docela dost, takze to potrebuji udelat vsechno najednou. Proto
i odpada moznost vypsani souctu vysledku jednotlivych vyrazu (pro kazdy
rok zvlast) do ListBoxu... Je to pro srovnavaci, ba primo statisticke
ucely, coz je duvod, proc to potrebuju vsechno najednou. Doufam, ze na
to existuje nejaka finta :-)).
Diky za kazdou radu a namet,
Peter Rus ml.
Intesys B&R s. r. o.
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz/
Service + DBF na sieti
[*] Mik Radim <mik(zv)oce(tec)cz> - 1.9.1998 08:41:38
Resil jsem podobny problem s NT services pod D3. Vzhledem k tomu, ze mi
v services nechodilo nacitani dat pres DBF, udelal jsem si unit pro
prime nacitani z lokalniho disku. Nyni jsem to vyzkousel i pro sitove
pripojeni a funguje to. Pokud budes chtit, muzu ti ten unit ( neobsahuje
nic svetoborneho) poslat na s.mail.
Radim Mik
> ----------
> Odes�latel: Lubo Fule[SMTP:fule(zv)sct.sk]
> Odpov�di: DELPHI Distribution List
> Odesl�no: 31. srpna 1998 20:59
> Komu: DELPHI Distribution List
> P�edm�t: Service + DBF na sieti
>
> Mam nasledovny problem:
> Pisem service aplikaciu v D/4 a potrebujem pristupovat k DBF suborom
> kdesi
> na sieti (najlepsie cez BDE, ale v krajnom pripade aj priamo). Zatial
> mi to
> nejde. Kedze je to servis, tak puzivam sietovu konvenciu pre
> definovanie
> cesty (\\pocitac\share...).
>
> Vdaka za kazdy napad.
>
> S pozdravom
> Lubo Fule
> ShutDown & Problem so zapisom do tabulky
[*] Richard Willmann <sales(zv)nocomment.sk> - 1.9.1998 08:55:38
Predstavte si program ktory odchytava vsetko to co pride na COM port a raz
za cas to flushne do tabulky (kazdy 100 zaznam povedzme). Mam odchytenu
spravu windows pre shut down, v kotrej by som chcel odpojit zasuvku COM a
flushnut vsetko to co este nie je v tabulke.
Problem je asi taky ze:
1. pride 100. zaznam do cache
2. spusti sa casovo narocna kompilacia a zapis do tabulky
3. pred ukoncenim zapisu pride message o pokuse o shut down
? ako zistit pri obsluhe message shut down ze sa prave nieco pise?
? ako pockat na dokoncenie tej procedury zapisu a az potom odpojit com port?
v dose by som to riesil vlajkami a instrukciami NOP ale v oknach neviem...
Mozno tak isto, ale anozaj neviem.
BTW: Checkovat v cykle premennu asi nie je nic dobre... Ze by timer?
Diki Richard
Transparentni bitmapa v D1
[*] David_Zabensky.UNION(zv)union(tec)cz - 1.9.1998 09:02:02
Mrkni ve WinAPI helpu Delphi 1.0 na heslo BitBlt... Je to tam celkem dobre
popsane (HDC je handle Canvasu)
David;
Carovy kod EAN 13
[*] �uhel Petr <cuhel(zv)diamo(tec)cz> - 1.9.1998 09:17:45
Prijemny den vsem,
nemate nahodou odkaz na specifikaci caroveho kodu jak ma
vypadat nebo eventuelne komponentu do QReport ktera by je umela
tisknout.
Dik
Transparentni bitmapa v D1
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 1.9.1998 09:33:54
AHoj,
nekde na Internetu jsem nasel tohle, bohuzel nemam cas to zkouset:
This is code that I use to display a transparent bitmap. You need the
image you are going to use with black as the transparent color and a black
and white image mask with white as the transparent color. If you find a
better way, please let me know.
Sorry about the non-standard control names, but this is some code I happen
to have sitting around.
procedure TfrmFTD.pbTilePaint(Sender: TObject);
var DestRect,SourceRect:TRect;
begin
SourceRect:=Rect(0,0,imFTDMask.Width,imFTDMask.Height);
DestRect:=Rect(SourceRect.Left+(pbTile.width-imFTD.Width-2),SourceRect.Top+3,
SourceRect.Right+(pbTile.width-imFTD.Width-2),SourceRect.Bottom+3);
pbTile.Canvas.CopyMode:=cmSrcAnd;
pbTile.Canvas.CopyRect(DestRect,imFTDMask.Canvas,SourceRect);
pbTile.Canvas.CopyMode:=cmSrcPaint;
pbTile.Canvas.CopyRect(DestRect,imFTD.Canvas,SourceRect);
end;
V knizce Programujeme v jazyce C++ (Mark Andrews) se o pruhledne bitmape take - a velmi podrobne - pise (str. 313), holt je to C++.
Mnoho uspechu
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
-----Puvodni zprava-----
Od: =?windows-1250?B?QWRhbSBIb3Lh6GVr?=
Odeslano: 31. srpna 1998 15:49
Komu: DELPHI Distribution List
Poedmit: Transparentni bitmapa v D1
Zdravim vsechny.
Panove, nevite nahodou nekdo o nejake fci pro D1 na vykresleni bitmapy
transparentne?
Predem moc diky, nutne to potrebuji.
Adam Horacek.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz Service + DBF na sieti
[*] kurcik <kurcik(zv)sct.sk> - 1.9.1998 09:54:18
Prosim ta mohol by si nam poslat ten unit. Velmi by nam to pomohlo.
Miro
BMP >> PCX
[*] David_Zabensky.UNION(zv)union(tec)cz - 1.9.1998 10:21:33
Dotaz na nejakeho grafickeho guru v Delphi (ci C++)
pred casem jsem psal prosbicku o poskytnuti nejake male rutiny pro konverzi
z BMP do PCX. Nasel jsem si na inetu komponentu, jenz to umi. Bohuzel vsak
uklada data do souboru - a ja bych to potreboval ulozit do streamu.
Vzhledem k tomu, ze grafika neni zrovna me hoby, dela mi problem ulozit 4
PCX roviny - R, G, B a intenzitu. Podarilo se mi ulozit paletu BMP ale
nevim jak dale. Mam k dispozici zdrojak v Turbo Pascalu, ale tam se ty 4
hodnoty ctou primo z karty. Predpokladam ze v prostredi Win 3.11 to
zajistuje samo Windows. Nevim vsak jak to vytahnout (vim ze fce GetRValue,
GetGValue, GetBValue vraci RGB bodu (resp. pixelu)) intenzitu. Najde si
nejaka dobra duse a pomuze?
Stacilo by mi ukladat data v 2 barevnem modu.
Dekuji David;
Verze a chyby 5.33 , 5.36 , 5.37 v Delphi 4.0
[*] Zbyn�k Grygar <zgrygar(zv)zeal(tec)cz> - 01.9.1998 10:47:12
Jentak michodem jsem objevil na jednom nejmenovanem serveru informace ze
29.8 Inprise rekompiloval kompletne delphi a oznacil ho jako verzi 5.37
.
Existuje to nekde? ma nekdo tu novou verzi. A muze se podelit o
zkusenosti s nim ja osobne mam verzi 5.33
V zaveru dopisu prikladam puvodni zneni toho dopisu.
Zbynek Grygar
zgrygar(zv)zeal(tec)cz
------------------------------------------------------------------------------------
�
�
� Ok your prolly thinking "Well i got V4 FINAL released by you guys
a �
� while back, why are you releasing this?".. Letme explane the
story.. �
� Inprise shipped over 1,000 copies of build 5.33 and it WAS
final... �
� However after 1,000 they stoped shipping them and re-compiled it,
fixed �
� a few bugs then shipped build:5.36 (sigh).. Then after a few more
they �
� stoped YET AGAIN re-compiled and shipped the rest as 5.37...
depending �
� on where/when you bought it will determin the build.. People in fcn
have �
� bought 5.33 and
5.37................. ��
��
�
� After getting alot of msg's from people asking me for 5.37 so they
could �
� upgrade it and KNOW that its the last and final build.. So here it
is... ��
��
�
� -----------Whats the diffrence between 5.33 -
5.37?? ��
��
�
� You may of noticed when you got the upgrade's inprise released that
they �
� totally fuckedup your copy of delphi4.. The upgrades ONLY work
with �
� 5.37. :( Inprise noted in the newsgroups that anyone with a 5.33
copy �
� must contact inprise and recive 5.37 so that the upgrades will
work.. ��
�
� 5.33 had a very major problem with one of the common button
controls �
� causing it to crash, This was
fixed.. ��
�
� As Delphi4 is VERY buggy to begin with i felt it was very important
that �
� we released 5.37 so people could upgrade it.. And hopefully have
a �
� better programming
time.. ��
�
� This is the RTN Offical FINAL build 5.37.. Although 5.33 was
final.. �
� (confusing shit huh?)Carovy kod EAN 13
[*] Reiniger Milan <Reiniger(zv)mmp.plzen-city(tec)cz> - 1.9.1998 11:03:33
Vysla kniha s nazvem myslim Carove kody, a v tom je spousta techhle kodu
popsana. Myslim, ze je to od Grady a jednou jsem pohle toho ty cary
tisknul a fakt to fungovalo.
S pozdravem
Milan Reiniger
Skroupova 5, c.dv. 92,
tel.: 019/703 5053
reiniger(zv)mmp.plzen-city(tec)cz
http://info.plzen-city(tec)cz
> -----P�vodn� zpr�va-----
> Od: �uhel Petr [SMTP:cuhel(zv)diamo(tec)cz]
> Odesl�no: 1. z��� 1998 9:18
> Komu: 'DELPHI Distribution List'
> P�edm�t: Carovy kod EAN 13
>
> Prijemny den vsem,
>
> nemate nahodou odkaz na specifikaci caroveho kodu jak ma
> vypadat nebo eventuelne komponentu do QReport ktera by je umela
> tisknout.
>
> Dik
Carovy kod EAN 13
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.9.1998 11:05:46
> nemate nahodou odkaz na specifikaci caroveho kodu jak ma
> vypadat nebo eventuelne komponentu do QReport ktera by je umela
> tisknout.
Specifikace carovych kodu by mely byt v techto CSN:
CSN EN 797 Vymena dat - Carove kody - Specifikace symboliky - "EAN/UPC";
CSN 770061 System EAN. Oznacovani spotrebitelskych obalu carovym kodem;
CSN 770062 Syst�m EAN. Metody hodnoceni citelnosti carovych kodu;
CSN EN 801 Vymena dat - Carove kody - Specifikace symboliky - "Prolozene 2 z 5";
CSN EN 799 Vymena dat - Carove kody - Specifikace symboliky - "Kod 128"
CSN 770063 System EAN. Oznacovani knih.
CSN 770065 System EAN. Oznacovani serialovych publikaci.
Co se tyka komponent pro carovy kod, pro QuickReport je neco
na www.qusoft.com, jinak ja jsem to vyresil tak, ze jsme si
pro QuickReport s kolegou Koranem upravili komponentu caroveho
kodu, ktera je soucasti SysTools - umi hodne ruznych kodu.
Ale je to komercni knihovna.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================help
[*] Tony Kmoch <tony(zv)kmoch(tec)cz> - 1.9.1998 11:26:06 -0600
help
Verze a chyby 5.33 , 5.36 , 5.37 v Delphi 4.0
[*] Jan Fiala <fiala(zv)iname(tec)com> - 1.9.1998 11:29:56
Verzi 5.37 ziskas nainstalovanim Servis packu pro Delphi
S pozdravem "klid zbran�m a program�torum"
se te�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
-----Original Message-----
From: Zbyn�k Grygar <zgrygar(zv)zeal(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 1. z��� 1998 11:02
Subject: Verze a chyby 5.33 , 5.36 , 5.37 v Delphi 4.0
Jentak michodem jsem objevil na jednom nejmenovanem serveru informace ze
29.8 Inprise rekompiloval kompletne delphi a oznacil ho jako verzi 5.37
.
Existuje to nekde? ma nekdo tu novou verzi. A muze se podelit o
zkusenosti s nim ja osobne mam verzi 5.33
V zaveru dopisu prikladam puvodni zneni toho dopisu.
Zbynek Grygar
zgrygar(zv)zeal(tec)cz
------------------------------------------------------------------------------------
Carovy kod EAN 13
[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 1.9.1998 11:50:53
Vim, ze existuji True Type fonty a ze je lze pouzit pro tisk v QReportu
(videl jsem). Bohuzel je nemam. Je treba se porozhlednout nekde po Inetu.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: 0396/619216
-----P�vodn� zpr�va-----
Od: �uhel Petr <cuhel(zv)diamo(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 1. z��� 1998 09:24
P�edm�t: Carovy kod EAN 13
>Prijemny den vsem,
>
> nemate nahodou odkaz na specifikaci caroveho kodu jak ma
>vypadat nebo eventuelne komponentu do QReport ktera by je umela
>tisknout.
>
> Dik
Verze a chyby 5.33 , 5.36 , 5.37 v Delphi 4.0
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 01.9.1998 12:35:32
To DOST pochybuju :-)
viz nize a vlastni zkusenost...
You may of noticed when you got the upgrade's inprise released that they
totally fuckedup your copy of delphi4.. The upgrades ONLY work with
5.37. :( Inprise noted in the newsgroups that anyone with a 5.33
copy must contact inprise and recive 5.37 so that the upgrades will
work..
Mac
> Verzi 5.37 ziskas nainstalovanim Servis packu pro Delphi
> ing. Jan Fiala jan.fiala(zv)iname.com
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================Verze a chyby 5.33 , 5.36 , 5.37 v Delphi 4.0
[*] Zbyn�k Grygar <zgrygar(zv)zeal(tec)cz> - 01.9.1998 12:58:24
Martin Kubecka wrote:
> To DOST pochybuju :-)
>
> viz nize a vlastni zkusenost...
>
> You may of noticed when you got the upgrade's inprise released that they
> totally fuckedup your copy of delphi4.. The upgrades ONLY work with
> 5.37. :( Inprise noted in the newsgroups that anyone with a 5.33
> copy must contact inprise and recive 5.37 so that the upgrades will
> work..
>
Ale pry existuje upraveny vclide4.bpl a pak to jede i s 5.33 No ale???
Zbynek Grygar
zgrygar(zv)zeal(tec)cz
Font 3of9 pro carovy kod
[*] M-PRO s.r.o. <software(zv)mpro(tec)cz> - 1.9.1998 13:17:02
[P��loha v souboru: 3of9.ttf]
Tento font se da pouzit pro tisk pomoci QReportu - neni to EAN13 ale funguje ....
M.Macko,
M-PRO s.r.o. - software pro RIZENI LIDSKYCH ZDROJU, MZDY A PERSONALISTIKU
martinm(zv)m-pro(tec)cz, www.m-pro(tec)cz
Verze a chyby 5.33 , 5.36 , 5.37 v Delphi 4.0
[*] Jan Fiala <fiala(zv)iname(tec)com> - 1.9.1998 13:18:06
Mas pravdu, tim servis packem to neni. V tom pripade mam 5.37, kupovanou nekdy zacatkem srpna.
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
-----Original Message-----
From: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 1. z��� 1998 12:35
Subject: Re: Verze a chyby 5.33 , 5.36 , 5.37 v Delphi 4.0
To DOST pochybuju :-)
viz nize a vlastni zkusenost...
You may of noticed when you got the upgrade's inprise released that they
totally fuckedup your copy of delphi4.. The upgrades ONLY work with
5.37. :( Inprise noted in the newsgroups that anyone with a 5.33
copy must contact inprise and recive 5.37 so that the upgrades will
work..
Mac
Titan SQL Anywhere
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 01.9.1998 13:19:24
Zdravim,
stahl jsem si demo Titan SQL Anywhere pro D3 a zdaleka to nechodi
podle mych predstav. Obzvlast se nemuzu domluvit s TttStoredProc:
Property editor na Params tam jeste neni (budiz), ale ani metoda
Prepare nenacte parametry spravne. Zkratka mi to pripada jako
nedodelane.
Chtel bych se zeptat, zda ma nekdo jine zkusenosti, ev. kde
jsou k dispozici informace o tom, co v tomto produktu dosud
nefunguje.
Diky
Martin
+----------------------------------+
| Ing. Martin Dupal |
| address: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: +420/68/5313130 |
| fax.: +420/68/5313132 |
| http://www.vision(tec)cz |
| mailto:mdupal(zv)vision(tec)cz |
+----------------------------------+Vytvoreni a volani funkce
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 1.9.1998 14:04:58
Ahoj,
mam dotaz na zakladni veci Delphi - vytvoreni a volani funkce.
Rad bych si vytvoril nejakou funkci, treba pokus, kterou nebudu volat s
zadnym parametrem a ona mi vrati dve nejake hodnoty.
Jsem z toho nak mimon.
Vasek
E-mail: lukes(zv)msm.pvt(tec)cz
Tel.: 0603-511247
Kopirovani
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 1.9.1998 14:33:05
Zdravim,
mam nasledujici problemek. Potreboval bych nekolik objektu prekopirovat
do noveho projektu (neni problem Ctrl-C a Ctrl-V). Ale existuje nejaka
moznost, aby se prekopirovaly i s eventama?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. telephone: 069-6201375 .
. URL: http://freeweb.coco(tec)cz/sovtop .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p15.f42.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................