Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Preskakovanie medzi textovym polom komponenty Edit
[*] Ji�� Kr�l jr. - 9.3.2001 08:11:06
jeden zpusob je do eventu OnKeyDown u toho editu dat
Activecontrol:=dalsiedit; //activecontrol je properta Formu
J.
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>kinekus
>>Sent: Friday, March 09, 2001 6:59 AM
>>To: delphi-l(zv)fwd(tec)cz
>>Subject: Preskakovanie medzi textovym polom komponenty Edit
>>
>>
>>Ahojte, ked sa tu tolko preberala separacia zaciatocnikov a
>>profikov, prosim
>>(ako zaciatocnik) radu (od profesionalov).
>>
>>Pri vyplnani bezneho formularu, ktory obsahuje polia komponenty Edit,
>>potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa
>>aktivovalo na
>>pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat tam mysou
>>alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.
>>
>>Dakuejm
>>
>>Milan F�bik
>>
>>
OT: VMWARE
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 9.3.2001 08:25:36
Ahoj lidi,
mate nekdo nejake zkusenosti s www.vmware.com - to je to, co nam pribalili
do krabice s Delphi 5 Pro - teda spon ja sem to tam mel. Prijde mi to jak
tak na to koukam, jako docela dobra vec. Casto neco clovek naprogramuje ve
Win NT 4.0/5.0 a pak na WinPlaystation se nestaci divit ...
Mate s tim nekdo nejake zkusenosti? Ma to nejake minusy?
Nevite, da se to pripadne koupit nekde v Cesku???
T.
_______________________________
Tom�# Vlad�k
vladik(zv)swadvice(tec)cz
ICQ# 101763081
Quickreport, pocet stran
[*] Ji�� Kr�l jr. - 9.3.2001 08:36:24
>> Nijako sa mi nedari zistit pocet stran (jedine vizualne v dolnom lavom
rohu previewu)
ahoj, zde je ta finta
prepare; //musis nejdriv zavolat prepare, jinak je pocet stran neznamy
QLstran.Caption:='/'+inttostr(QRPrinter.Pagecount); // pocet stran si
namaluj do lejbliku
preview; // a je to ;-)
J.
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
Quickreport, pocet stran v 2.0
[*] Ji�� Kr�l jr. - 9.3.2001 08:41:21
>> Nijako sa mi nedari zistit pocet stran (jedine vizualne v
jeste vylepsene o poznamku:
prepare; //musis nejdriv zavolat prepare, jinak je pocet stran neznamy
{na reportu je pred tqrlabelem QLstran sytemfield pagenumber, pak to vypada
nejak takto
strana 1/20}
QLstran.Caption:='/'+inttostr(QRPrinter.Pagecount); //pocet stran si
namaluj do lejbliku
preview; // a je to ;-)
J.
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
Syntaxe jazyka
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 9.3.2001 08:42:31
> Ked nemusis vyhodnocovat kompletny logicky vyraz, pretoze uz poznas
> jeho vyslednu hodnotu, napr. vo vyraze
>
> True or E
>
> nemusis E vyhodnocovat (pretoze vysledok je vzdy True bez ohladu
> na hodnotu
> E).
> Podobne je to vo vyraze
>
> False and E
>
> Niekedy je ale vyhodnotenie E ziaduce. V Eiffele sa to riesi zvlastnymi
> operatormi,
V delphi se to resi prepinaci kompilatoru:
Syntax {$B+} or {$B-}
{$BOOLEVAL ON} or {$BOOLEVAL OFF}
Default {$B-}
{$BOOLEVAL OFF}
_______________________________
Tom�# Vlad�k
vladik(zv)swadvice(tec)cz
ICQ# 101763081
Preskakovanie medzi textovym polom komponenty Edit
[*] Uniplet T�eb�� - elektronika - 9.3.2001 08:46:29
co tak skusit nasledujici vec, do ONKEYDOWN napis
if key=#13 then edit2.setfocus;jak dostat z okolnich pocitacu jmeno pocitace
[*] �ipel Miroslav <Cipel(zv)Gumokov(tec)cz> - 9.3.2001 08:55:27
Ahoj,
mam takovou predstavu ze kliknu pravym tlacitkem na nejaky pocitac z
okolnich pocitacu a vyberu nejakou akci z menu dodaneho mojim programem
psanym v Delphi 5. K tomuto ucelu jsem si v MSDN precetl kapitolu "Creating
Context Menu Handlers" a v Delphi prohledl priklad v adresari
Demos\Activex\Shellext. Problemem ale je ze se me nedari precist jmeno
pocitace na kterem je menu aktivovano. Nevite nekdo jak na to ?
M.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
Preskakovanie medzi textovym polom komponenty Edit
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.3.2001 09:04:28
Koukni na http://www.kopr(tec)cz/delphi/index.htm#KEdit
Pavel
----- Original Message -----
From: kinekus <kinekus(zv)nextra.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 09, 2001 6:58 AM
Subject: Preskakovanie medzi textovym polom komponenty Edit
> Ahojte, ked sa tu tolko preberala separacia zaciatocnikov a profikov,
prosim
> (ako zaciatocnik) radu (od profesionalov).
>
> Pri vyplnani bezneho formularu, ktory obsahuje polia komponenty Edit,
> potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa aktivovalo
na
> pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat tam mysou
> alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.
>
> Dakuejm
>
> Milan F�bik
>
>Preskakovanie medzi textovym polom komponenty Edit
[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 9.3.2001 09:05:02
Tohle obsluhuji v udalosti PressKey pro kazdy edit.
takto:
if key = #13 then Edit2.SetFocus;
Vim ze to jde ale i jednoduseji.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
-----Original Message-----
From: kinekus [mailto:kinekus(zv)nextra.sk]
Subject: Preskakovanie medzi textovym polom komponenty Edit
Ahojte, ked sa tu tolko preberala separacia zaciatocnikov a profikov, prosim
(ako zaciatocnik) radu (od profesionalov).
Pri vyplnani bezneho formularu, ktory obsahuje polia komponenty Edit,
potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa aktivovalo na
pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat tam mysou
alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.
Dakuejm
Milan F�bik
Preskakovanie medzi textovym polom komponenty Edit
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 9.3.2001 09:11:39
Ja taky nejsem profik, ale poradit ti mohu. Podivej se na tutu stranku, tam
najdes vse co budes potrebovat : www.lingivsta(tec)cz .
Krome tohoto kodu tam najdes spoustu zajimavych veci:
Na ud�lost OnKeyPress formulare. Nezapomen nastavit KeyPreview na True !
procedure TFFirDet.FormKeyPress(Sender: TObject; var Key: Char);
begin
{na memopolo�ce se neprovede}
if ActiveControl.ClassName = 'TMemo' then Exit;
if Key = #13 then SelectNext(ActiveControl,True,True);
end;
Filip
-----Original Message-----
From: kinekus [mailto:kinekus(zv)nextra.sk]
Sent: Friday, March 09, 2001 6:59 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Preskakovanie medzi textovym polom komponenty Edit
Ahojte, ked sa tu tolko preberala separacia zaciatocnikov a profikov, prosim
(ako zaciatocnik) radu (od profesionalov).
Pri vyplnani bezneho formularu, ktory obsahuje polia komponenty Edit,
potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa aktivovalo na
pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat tam mysou
alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.
Dakuejm
Milan F�bik
Dialer.exe
[*] Radim Smehlik <radoss(zv)email(tec)cz> - 9.3.2001 09:13:27
Ahoj, nevite nahodou nekdo, proc pod win98 nefunguje dialer. Pritom modem
podporuje voice funkce a s originalnim softwarem telefonovani funguje na
100%.
Predem dekuji.
Radim Smehlik.
EMAIL.CZ - Vase posta je vzdy s Vami na
http://www.email(tec)cz
Preskakovanie medzi textovym polom komponenty Edit
[*] �ampulka Ji�� - 9.3.2001 09:22:28
>
> Pri vyplnani bezneho formularu, ktory obsahuje polia komponenty Edit,
> potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa
> aktivovalo na
> pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat
> tam mysou
> alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.
>
Zkus tohle:
(ve vlastnostech Formu je potreba nastavit KeyPreview na true)
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then SelectNext(ActiveControl,true,false);
end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
Post a ALT+F4 nebo Krizek
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 9.3.2001 09:30:07
> > Tak si tu akci dej bud do OnClose nebo do OnCloseQuery
Ja to spis resim tak, ze to clovekovi nedovolim zavrit, dokud neudela Post
rucne:
procedure TForm.FormCloseQuery( Sender: TObject;
var CanClose: Boolean);
begin
CanClose := True;
if not Assigned( CentralDataSource.DataSet)
then
Exit
else begin
CanClose := not ( CentralDataSource.State in [dsEdit, dsInsert]);
if not CanClose
then MessageDlg( 'Nejd��ve dokon�ete �pravy z�znamu.',
mtWarning, [mbOK], 0);
end;
end;
A v hlavnim okne aplikace pak:
procedure TfrmHlavni.FormCloseQuery( Sender: TObject;
var CanClose: Boolean );
var
I: Integer;
begin
CanClose := True;
// Musime se zeptat, zda lze zavrit vsecka okenka programu
for I := 0 to Application.ComponentCount - 1
do
if Application.Components[I] is TForm
then
with ( Application.Components[I] as TForm ) do begin
// Nesmime volat sami sebe !!
if Handle = self.Handle
then Continue;
CanClose := CanClose and CloseQuery;
// No a kdyz jen jeden nelze zavrit - tak si "zarve" a uz to
dal nekontrolujem
if not CanClose
then Break;
end;
end;
_______________________________
Tom�# Vlad�k
vladik(zv)swadvice(tec)cz
ICQ# 101763081
VMWARE
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.3.2001 09:35:59
> mate nekdo nejake zkusenosti s www.vmware.com - to je to, co nam pribalili
> do krabice s Delphi 5 Pro - teda spon ja sem to tam mel. Prijde mi to jak
> tak na to koukam, jako docela dobra vec. Casto neco clovek naprogramuje ve
> Win NT 4.0/5.0 a pak na WinPlaystation se nestaci divit ...
>
> Mate s tim nekdo nejake zkusenosti? Ma to nejake minusy?
prave to asi treti den testuju a zatim se mi to jevi jako perfektni vec.
Vyhodou je, ze na pomerne malem prostoru disku muzes mit nekolik (libovolny
pocet) nainstalovanych OS (prakticky cokoliv co chodi na PC). Z pohledu
hostitelskeho PC sedi kazdy VMWare klient v souboru (virtualni disk - ale
jde instalovat i na specialni partition) takze ho muzes klidne zkopirovat a
do teto kopie pak doinstalovat treba service pack a testovat rozdily mezi OS
bez a s SP).
D. Toman
Post a ALT+F4 nebo Krizek
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 9.3.2001 09:41:09
Ahoj,
nejsem zadny zkuseny programator, ale mam to udelane takto:
procedure TfrmProstredky.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if (DM.ZruseniZaznamu = False) and (Stav = False) then
begin
frmHlavni.MsgDlg('M�te otev�enou tabulku '+DataModul.NazevTabulky+'.'#13
+
'Z�znam mus�te nejprve ulo�it nebo zru#it.'#13 +
'Potom m��ete formul߰ zav��t.','Upozorn�n�',mtWarning,[mbYes]);
abort;
end;
end;
Vysvetlivky:
DM - Datovy modul
Zruseni zaznamu je promenna Boolean a je false, jestlize dano na Afterpost
tabulky a na Aftercancel jinak je true.
Stav je promenna typu Boolean a je true v pripade, ze selhalo na zacatku
nacteni tabulek a
ty otevres formular, tak pak nesel zavrit, kdyz to tam nebylo.
Zkousel jsem to shodit jakkoliv, ale nepodarilo se mi to.
Myslis, ze to neni to co hledas ? Otestuj to.
Filip
-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
Sent: Thursday, March 08, 2001 10:42 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Post a ALT+F4 nebo Krizek
Tak potom muzes zkusit tohle. Jakmile zacnes editovat v jakemkoliv
editu, nastav si priznak (nejakou logickou promennou). Nulovat ji
budes pri stisku tlacitka pro ulozeni. Pokud bude nastavena, v
OnCloseQuery nastavis CanClose := False, to uzivateli nedovoli uzavrit
formular, a jeste mu muzes vynadat, ze to neulozil :-)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
07.03.2001 Milan Ri#i:
> To jsem si nivne myslel taky. Jenomze ono se to jenom tvari, ze to
funguje.
> Skus si dat polozku primo z tabulky na form, neco v ni udelej a nez z ni
> vyskocis, zrus form. Pres tlacitko, nebo odchod z polozky je to v pohode,
> ale prave, ze me obcas nastane tahle situace a jsem v p.... Na form tech
> polozek mam 30.
> Milan
>>
>> 07.03.2001 Milan Ri#i:
>> > Ahoj,
>>
>> > nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se
> provedl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi
...
>>
>> > Diky
>>
>>
RichEdit, data ze souboru a cestina
[*] Petr <petr(zv)slunce(tec)cz> - 9.3.2001 09:50:37
Ahojte,
potreboval bych poradit s takovou banalitkou:
1) Nactu ASCII soubor (psany pod kod.str.852) pomoci AssignFile, Reset,
Readln a jednotlive radky cpu do RichEditu, ve kterem je zkomolena
diakritika.Je nejaka fce primo v Delphi, ktera by to dokazala prevest z 852
do 1250? Asi ne, ze jo? Muzete mi poradit, jak to mam provest?
2) To same co ad 1) az na to ze se jedna o memo z DBase IV. Pro memo neplati
nastaveni langdriveru z BDE? Ono totiz ostatni fieldy zobrazuji cestinu v
pohode.
To memo dostavam do richeditu pres clipboard z dbricheditu.Neda se to udelat
nejak primo - jednoduseji?.
Diky
Petr
MainMenu a ShortCut
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.3.2001 09:51:10
Zdravim,
v MainMenu1 potrebuji u ShortCut zadat napr. Ctrl+PageUp, ktere nejsou v nabidce
Napr. Ctrl+Home lze zadat, i kdyz v nabidce neni.
Ctrl+Space taky lze zadat - ale pro uzivatele bych chtel aby videli Ctrl+Mezern�k
Diky za rady
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~EnumJobs
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.3.2001 09:52:29
Ahoj,
pouzivam tlac dokumentu prostrednictvom OLE cez Word. Za urcitych
okolnosti
potrebujem tlac stornovat, samozrejme - priamo z programu v Delphi.
V helpe som si nasiel funkciu EnumJobs a SetJobs, ale neviem ako ich
pouzit.
Hladal som nejake priklady aj na internete, ale velmi som neuspel.
Neposlal by mi, prosim, niekto priklad, ako by tieto funkcie pouzit?
Vlkovic
DBComboBox - neco pro profiky
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 9.3.2001 09:57:29
Ahoj Delphaci,
uz jsem to posilal dvakrat, ale nedostal jsem odpoved. Bud je to prilis
slozite, nebo to zapadlo. Zkusim to tedy jeste jednou.
Mam nasledujici problem:
Do DBEditu prirazuji pres DBComboBox polozky z ciselniku. Stava se mi ale,
ze pri prirazovani se pri kliknuti na nekterou polozku v DBComboBoxu tato
polozka zduplikuje. To znamena, ze je v seznamu dvakrat, napriklad ob dva
radky a je oznacena dvakrat. Do Editu se priradi dobre, ale je to nehezky.
Pritom v ciselniku dvakrat neni. Je take zajimave, ze se to stava jen u
nekterych polozek. Nepodarilo se mi ale vystopovat spolecne znameni.
Jestli tomu neni rozumet, napiste mi cemu a ja to upresnim.
* Pouzita databaze SQL Serveru 7.0.
* Pripojeni pres BDE a ODBC.
* Server pouziva kodovani CP 1250 (Ceske).
* Default language je Anglictina.
Nevite nekdo v cem muze byt problem ? V ciselniku jsou polozky ktere
zacinaji hackem. To ale neni problem, uz jsem to zkousel.
Predem diky za rady.
Filip
Obrazek na leve strane PopUpMenu
[*] Petr Falt�nek <delphi(zv)spidla(tec)cz> - 9.3.2001 10:09:51
Ahoj Lidi,
Potreboval bych vedet, jak dostat na levou stranu do PopUpMenu obrazek. Mam
RXLIB, ale RxPopUpMenu umoznuje vkladat ikonky k jednotlivym polozkam. Ja
ale potrebuji jeden obrazek na cele leve strane menu. Poradi mi nekdo,
pliiiz, nebo jsem zase neco prehlid?
Falta
Quickreport ??
[*] Krska Vit <v_krska(zv)del(tec)cz> - 9.3.2001 10:14:48
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
aby se kazdy report zacal tisknout na nove strance tak se podivej na
vlastnost ForceNewPage. tu ma kazby band
Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Tibor G. �tromajer
Sent: Friday, March 09, 2001 7:34 AM
To: Delphi Konf
Subject: Quickreport ?? Ahojte
Chcem sa opytat mozno banalnu vec, ale neviem na to prist.
Tlacove vystupy z mojej aplikacie robim cez Quickreport. V pagefooteri
kazdej stany mam cislo strany.
Ja by smo to chcel spravit tak za by tam bol aj pocet stran a zapis bz
vyzeral: "Str. c. xx z yy"
Nijako sa mi nedari zistit pocet stran (jedine vizualne v dolnom lavom
rohu previewu)
A este jedna otazka
Niekedy potrebujem zlucit viac reportov a tlacit ich ako jeden. Na toto
zrejme sluzi qrcompositereport.
Problem je taky, ze neviem dosiahnut aby kazdy report vlozeny do
qrcompositereport
zacinal na novej strane. Inak to funguje OK. Vedel by mi niekto poradit ?
Tibor G. Stromajer
DBComboBox - neco pro profiky
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 09.3.2001 09:14:00
Bohuzel ti neporadim, ale pridam dalsi indikace.
Mne se totot stava take (ale jen na nekterych pocitacich) v DBGridu.
Zda se mi ze je to vykonem stroje na PII-166Mhz to zdvojuje (nekdy je tam
jeden zaznam az petkrat), na PIII uz ne.
Pouzity software :
D5-Prof.
BDE 5.??
Sybase Anywhere 6.0.4 (CP1250)
Moje teorie: Je neco shnileho v BDE ;-).
Ahoj Karel
Karel Vlcek
===========================
poskytovani software
GSM : ++420 602 264812
mailto: vlcekk(zv)hotmail.com
===========================
----Original Message Follows----
From: Hazuka Filip <filip.hazuka(zv)multivac(tec)cz>
Reply-To: delphi-l(zv)fwd(tec)cz
To: "'Delphi-l(zv)fwd(tec)cz'" <Delphi-l(zv)fwd(tec)cz>
Subject: DBComboBox - neco pro profiky
Date: Fri, 9 Mar 2001 09:57:29 +0100
Ahoj Delphaci,
uz jsem to posilal dvakrat, ale nedostal jsem odpoved. Bud je to prilis
slozite, nebo to zapadlo. Zkusim to tedy jeste jednou.
Mam nasledujici problem:
Do DBEditu prirazuji pres DBComboBox polozky z ciselniku. Stava se mi ale,
ze pri prirazovani se pri kliknuti na nekterou polozku v DBComboBoxu tato
polozka zduplikuje. To znamena, ze je v seznamu dvakrat, napriklad ob dva
radky a je oznacena dvakrat. Do Editu se priradi dobre, ale je to nehezky.
Pritom v ciselniku dvakrat neni. Je take zajimave, ze se to stava jen u
nekterych polozek. Nepodarilo se mi ale vystopovat spolecne znameni.
Jestli tomu neni rozumet, napiste mi cemu a ja to upresnim.
* Pouzita databaze SQL Serveru 7.0.
* Pripojeni pres BDE a ODBC.
* Server pouziva kodovani CP 1250 (Ceske).
* Default language je Anglictina.
Nevite nekdo v cem muze byt problem ? V ciselniku jsou polozky ktere
zacinaji hackem. To ale neni problem, uz jsem to zkousel.
Predem diky za rady.
Filip
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.VMWARE
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 9.3.2001 10:33:13
DDV,
vmWare jsem pred casem testoval a je to fantasticka vec, bohuzel ta cena uz
tak dobra neni - zalezi zda najdete uplatneni.
Testoval jsem to jak pod linuxem RH6.2, tak WinNT a vysledky byly
uspokojive.
Idealni pouziti je napriklad pro testovani setupu, SP ... protoze jsem
zvolil instalaci do "souboru", tj virtulani PC mel disk v souboru mohl jsem
takovy soubor vypalit na CD a mel jsem tak sady typu
WinNT4.0, WinNT4.0 SP4, WinNT4.0 SP4 Office 97... a vuci tomu jsem testoval
instalace, treba pro test instalace BDE a jinych taskaric to je k
nezaplaceni - pokud prot o mate dlouhodobe uziti, vypleti se to i koupit, ja
si vystacil s eval verzi nebot jsem testoval jen jednu konkretni vec a
VmWare se osvedcil.
Dalsi dobra vlastnost je ze po zavreni virtualniho pc se muzete rozhodnout
zda zmeny provedene od zapnuti chcete do virtualniho HDD commitnout, nebo
udelat rollback a pak se to tvari, jako kdyby jste to PC nezapnuli a
testujete isntalaci znova a znova, aniz by bylo nutne porad prekopirovavat
image virtualniho PC.
Pro optimalni chod doporucuji 2CPU (nemusi byt zvlast rychla) a 256MB RAM -
na teto konfiguraci jsem ve virtualnim stroji a hostitelskem OS mel spustene
i Exchangeservery (v obou) a Outlooky a diky tomu, ze virtualni PC ma
konektivitu do site to krasne chodilo.
Jinak nezbyva nez upozornit, ze k podobnemu tematu existuje (pod linux) i
open source alternativa www.plex86.org
a.
> -----Original Message-----
> From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
> Sent: Friday, March 09, 2001 9:36 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: VMWARE
>
>
> > mate nekdo nejake zkusenosti s www.vmware.com - to je to,
> co nam pribalili
> > do krabice s Delphi 5 Pro - teda spon ja sem to tam mel.
> Prijde mi to jak
> > tak na to koukam, jako docela dobra vec. Casto neco clovek
> naprogramuje ve
> > Win NT 4.0/5.0 a pak na WinPlaystation se nestaci divit ...
> >
> > Mate s tim nekdo nejake zkusenosti? Ma to nejake minusy?
>
> prave to asi treti den testuju a zatim se mi to jevi jako
> perfektni vec.
> Vyhodou je, ze na pomerne malem prostoru disku muzes mit
> nekolik (libovolny
> pocet) nainstalovanych OS (prakticky cokoliv co chodi na PC).
> Z pohledu
> hostitelskeho PC sedi kazdy VMWare klient v souboru
> (virtualni disk - ale
> jde instalovat i na specialni partition) takze ho muzes
> klidne zkopirovat a
> do teto kopie pak doinstalovat treba service pack a testovat
> rozdily mezi OS
> bez a s SP).
>
>
>
> D. Toman
>
> Preskakovanie medzi textovym polom komponenty Edit
[*] Ji�� Kr�l jr. - 9.3.2001 10:36:48
>>
>>Zkus tohle:
>>(ve vlastnostech Formu je potreba nastavit KeyPreview na true)
>>
>>procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
>>begin
>> if Key=#13 then SelectNext(ActiveControl,true,false);
>>end;
>>---
>>Odchoz� zpr�va neobsahuje viry.
>>Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>>Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
>>
drobny detail: pro tento priklad je potreba mit spravne serzaneny Tab Order
tech editu (pravy klik na form a Tab Order)
J.
USB
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 09.3.2001 10:39:57
Ahoj,
posilam Ti par odkazu, treba Ti neco z toho pomuze. Drzim palce, ceka me
to taky.
http://www.lvr.com/usb.htm
http://www.greenleafsoftware.com/Main.html
http://www.jungo.com/wdusb.html
http://www.usb-by-example.com/
http://www.usbcomm.com/
Vaclav Sazima
Bednar��k Dalibor wrote:
>
> Ahoj.
>
> Nemate nekdo nejake priklady pro Delphi na USB.
> Pripadne nejake odkazy kde bych se o tom dozvedel vice?
>
> Diky
> Dalibor
Offtopic - hromadny export priloh z MS Outlooku
[*] Daniel Fojt�k <xfojtik(zv)centrum(tec)cz> - 9.3.2001 10:46:12
Mam tu jeden offtopic. Nemate nahodou nekdo script do outlooku pro export
vsech priloh dane slozky do ciloveho adresare?
Jeste lepsi by to bylo jako OLE automat naprogramovany v Delphi...
Predem diky, Fojtik
SMS
[*] Tomas Pocarovsky <pocarovsky(zv)volny(tec)cz> - 9.3.2001 11:23:59
Ahoj
Lze (je technicky mozne) poslat sms primo z modemu na mobil?
Nebo sms organizuje nejakej sms server a z pevne site se na nej nejde
dostat.
Pokud to lze, je na to nejaka komponenta?
Zprostredkovavam havarijni hlaseni technologie z pocitace na mobil, tak me
ty sms prisly jako idealni.
Posilat to pres mail mi prijde riskantni (obsazena linka apod.).
Jeste by byla moznost. Mam program ktery cte text (divne cesky, ale rozumet
tomu je), z databaze ten text umim vytahnout a dialem umim vytocit cislo,
neumim vsak napojit ten hlasovej vystup programu na dial komponentu.
Predem diky za vsechny pokusy o reseni.
Tomas
Pocarovsky
KonfView
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 9.3.2001 11:45:49
Zdravim,
chtel jsem se zeptat, jak to vypada s tim prohlizecem konfery. Posledni
verze byla pred rokem. Me jde hlavne o to, ze mam W2000 a haze mi to tu
chybu "Some internal limit (see context)." Podle popisu posledni verze to
neni opravene.
Bude vubec jeste nekdy vydana nova verze KonfView? Nebo podarilo se nekomu
tuto chybu opravit?
Petr
Post a ALT+F4 nebo Krizek
[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 9.3.2001 12:02:02
Jasne, takze asi to, co jsem si myslel taky - udelat komponentu, protoze
vlastni funkce delphi na to nestaci.
----- Original Message -----
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 08, 2001 8:03 AM
Subject: RE: Post a ALT+F4 nebo Krizek
> Pak bych to resil tak, ze pred uzavrenim (v onCloseQuery) bych preskocil
> nekam jinam - bud na presne definovany objekt a nebo napr. o jeden dopredu
> ci vzad. Uz se mi tohle taky stalo....
>
> Milan Tomes
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Milan Ri#i
> > Sent: Wednesday, March 07, 2001 5:06 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Post a ALT+F4 nebo Krizek
> >
> >
> > Cau,
> > to jsem si nivne myslel taky. Jenomze ono se to jenom tvari, ze
> > to funguje.
> > Skus si dat polozku primo z tabulky na form, neco v ni udelej a nez z ni
> > vyskocis, zrus form. Pres tlacitko, nebo odchod z polozky je to v
pohode,
> > ale prave, ze me obcas nastane tahle situace a jsem v p....
> > Milan
> >
> > ----- Original Message -----
> > From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
> > To: <delphi-l(zv)fwd(tec)cz>
> > Sent: Wednesday, March 07, 2001 3:29 PM
> > Subject: RE: Post a ALT+F4 nebo Krizek
> >
> >
> > > Tak si tu akci dej bud do OnClose nebo do OnCloseQuery
> > >
> > > Milan Tome#
> > > Vedouc� v�vojov�ho t�mu Windows
> > > Softwarehouse HAiDA s.r.o.
> > > Nov� Bor
> > > tel: 0424/722291, 0424/33197
> > > email: Milan.Tomes(zv)haida(tec)cz
> > > Ahoj,
> > >
> > >
> > >
> > > nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4
se
> > prov
> > > edl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi
...
> > >
> > > Diky
> > >
> > >
>
>Post a ALT+F4 nebo Krizek
[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 9.3.2001 12:03:36
Dobry napad. Diky. Vlastne je to dobry zacatek, jak napsat komponentu, o
ktere se zminuji jinde.
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 08, 2001 10:41 PM
Subject: Re: Post a ALT+F4 nebo Krizek
> Tak potom muzes zkusit tohle. Jakmile zacnes editovat v jakemkoliv
> editu, nastav si priznak (nejakou logickou promennou). Nulovat ji
> budes pri stisku tlacitka pro ulozeni. Pokud bude nastavena, v
> OnCloseQuery nastavis CanClose := False, to uzivateli nedovoli uzavrit
> formular, a jeste mu muzes vynadat, ze to neulozil :-)
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 07.03.2001 Milan Ri#i:
> > To jsem si nivne myslel taky. Jenomze ono se to jenom tvari, ze to
funguje.
> > Skus si dat polozku primo z tabulky na form, neco v ni udelej a nez z ni
> > vyskocis, zrus form. Pres tlacitko, nebo odchod z polozky je to v
pohode,
> > ale prave, ze me obcas nastane tahle situace a jsem v p.... Na form tech
> > polozek mam 30.
> > Milan
>
> >>
> >> 07.03.2001 Milan Ri#i:
> >> > Ahoj,
> >>
> >> > nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4
se
> > provedl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi
...
> >>
> >> > Diky
> >>
> >>
>
>Preskakovanie medzi textovym polom komponenty Edit
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 9.3.2001 12:11:18
A co kdyz tam bude vice editu ? Bude psat pro kazdy edit samostatnou
proceduru ?
Ja bych to resil asi takto :
Pro vsechny editu nastavim stejny OnKeyDown a ten bude nasledujici :
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
con : TWinControl;
begin
if Key=VK_RETURN then
if(FindNextControl(Sender as TWinControl, True, True,
True).ClassName='TEdit')then
(FindNextControl(Sender as TWinControl, True, True, True) as
TEdit).SetFocus
else begin
con := FindNextControl(Sender as TWinControl, True, True, True);
while (not(FindNextControl(con, True, True,
True).ClassName='TEdit')) do begin
con := FindNextControl(con, True, True, True);
end;
(FindNextControl(con, True, True, True) as TEdit).SetFocus;
end;
end;
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Uniplet T�eb�� - elektronika <elektronika(zv)uniplet(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 09, 2001 8:46 AM
Subject: Re: Preskakovanie medzi textovym polom komponenty Edit
> co tak skusit nasledujici vec, do ONKEYDOWN napis
>
> if key=#13 then edit2.setfocus;
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
Znovu Delphi - Excel
[*] Str�n�k Franti�ek - 9.3.2001 12:12:01
Vazeni pratele,
prosim o n�sleduj�c� radu:
pou��v�m OLE server pro vyvolani Excelu z Delphi..
pouzivam napr. nasledujici konstrukci:
XLApp:= CreateOleObject('Excel.Application');
XLWork:= XLApp.Workbooks.Open('c:\x.xls');
XLApp.Visible := True;
XLSheet1:= XLWork.Worksheets[1];
XLSheet1.Cells[1, 1].Value:= 'prvni bunka v prvnim listu';
atd. ....
Problem je v tom, ze kdyz tuto konstrukci zavolam, nastartuje novy Excel
a to i v pripade, ze Excel bezi i pred spustenim teto aplikace.
Vim, ze v Basicu je nejaka funkce GetObject, pomoci ktere lze otestovat,
jestli jiz aplikace Excel predtim nebezi.
Nevite o nejake funkci, ktera by v Delphi tuto situaci otestovala ?
Diky za radu.
F.Stranik
mail: FSTRANIK(zv)CPOJ.CZ
Preskakovanie medzi textovym polom komponenty Edit
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 9.3.2001 12:17:52
Toto se hodi pokud chce nastavovat jakykoli "tabovatelny" objekt. Ale ne
pokud chce jen Edity.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: #ampulka Ji�� <campulka(zv)czas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 09, 2001 9:22 AM
Subject: RE: Preskakovanie medzi textovym polom komponenty Edit
> >
> > Pri vyplnani bezneho formularu, ktory obsahuje polia komponenty Edit,
> > potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa
> > aktivovalo na
> > pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat
> > tam mysou
> > alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.
> >
>
> Zkus tohle:
> (ve vlastnostech Formu je potreba nastavit KeyPreview na true)
>
> procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
> begin
> if Key=#13 then SelectNext(ActiveControl,true,false);
> end;
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
LCK soubory
[*] Ren� Otisk - 9.3.2001 12:22:39
Hi
Myslim ze to je jenom pokud najednou uzamknes (upgrade...) vice nez 255
zaznamu a zpusobuje to blbounke omezeni BDE.
Sroub
> Ahoj,
> chtel jsem se zeptat proc se tvori lck soubory, kdyz se pripojuji k
databazi
> SQL pres BDE a ODBC. Mylsel jsem si, ze se tyto soubory tvori pouze pro
> paradoxovske databaze/tabulky. Mam problem s hlasenim "LockFile has grown
> too large" coz znamena, ze lck soubor je prilis veliky. Aplikace je
> aplikacnim serverem, ktery bezi neustale a po nejake dobe se objevi toto
> hlaseni. Kdy dochazi k umazavani zaznamu z lck souboru nebo jak
zabezpecit
> aby se ten soubor nezvetsoval ? Aplikacni server vyrizuje pozadavky
klientu
> a pro nektere pozadavky spousti vlakna ve kterych se vytvareji nove
spojeni
> na databazi. Pokud se dejme tomu po vykonane praci datamodul(spojeni na
SQL)
> nezrusi, pak se asi nezmensi ani lck soubor, ze ? Coz by mohlo byt
pricinou
> problemu. Jinak BDE si asi praci s lck ridi samo, ale pokud by nekdo vedel
> jak to ovlivnit ...
>
> Diky za pomoc.
>
> S pozdravem
> Michal Jiskra
MainMenu a ShortCut
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.3.2001 12:39:31
Ahoj,
dalo by sa to urobit napriklad tak, ze Ctrl+Space budes odchytavat
(obsluhovat) v OnKeyDown a v prislusnej polozke menu doplnis pri
inicializacii (napr. v OnCreate) text 'Ctrl+Space'. Napriklad
takto:
MyMenu.ItemName.Caption := MyMenu.ItemName.Caption +
#9'Ctrl+Medzernik';
(#9 zabezpeci odsadenie textu na uroven ostatnych ShortCutov).
Obsluha OnKeyDown by vyzerala napriklad takto:
if ( Key = VK_Space ) and
( Shift = [ssCtrl] ) then
MyMenu.ItemName.Click(); // "emulacia kliknutia" na danu polozku
menu
Vlkovic
PS: Nezabudni nastavit na forme KeyPreview na True.
Pavel ZIDEK wrote:
>
> Zdravim,
> v MainMenu1 potrebuji u ShortCut zadat napr. Ctrl+PageUp, ktere nejsou
> v nabidce
> Napr. Ctrl+Home lze zadat, i kdyz v nabidce neni.
>
> Ctrl+Space taky lze zadat - ale pro uzivatele bych chtel aby videli
> Ctrl+Mezern�k
>
> Diky za rady
> Pavel
RichEdit, data ze souboru a cestina
[*] Petr <petr(zv)slunce(tec)cz> - 9.3.2001 12:45:07
AHojte,
jeste neco bych potreboval.Jo, vsechno je to pod D4 C/S.
Tady tento kod by mi mel IMHO oznacit v textu >>> TOTAL <<< a nastavit
velikost pisma na 24 a barvu zelenou a jeste tucne.
A vite co to dela? Puvodni text necha na pokoji a pridava zvetseny zbarveny
na konec, ale az od druheho stisknuti tlacitka Pri prvnim stisku.
prida text v puvoni barve i velikosti.
Jsem si vedom toho, ze asi neco ku...m ja, ale nevim co.
Help me, please.
Petr
procedure Form1.button1.click.....
begin
RichEdit1.SelText:='>>> TOTAL <<<';
RichEdit1.SelAttributes.Color:=ClGreen;
RichEdit1.SelAttributes.Size:=24;
RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit1.ClearSelection;
end;
----- Original Message -----
From: Petr <petr(zv)slunce(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 09, 2001 9:50 AM
Subject: RichEdit, data ze souboru a cestina
> Ahojte,
>
> potreboval bych poradit s takovou banalitkou:
>
> 1) Nactu ASCII soubor (psany pod kod.str.852) pomoci AssignFile, Reset,
> Readln a jednotlive radky cpu do RichEditu, ve kterem je zkomolena
> diakritika.Je nejaka fce primo v Delphi, ktera by to dokazala prevest z
852
> do 1250? Asi ne, ze jo? Muzete mi poradit, jak to mam provest?
>
> 2) To same co ad 1) az na to ze se jedna o memo z DBase IV. Pro memo
neplati
> nastaveni langdriveru z BDE? Ono totiz ostatni fieldy zobrazuji cestinu v
> pohode.
>
> To memo dostavam do richeditu pres clipboard z dbricheditu.Neda se to
udelat
> nejak primo - jednoduseji?.
>
> Diky
>
> Petr
>
>
RichEdit, data ze souboru a cestina
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 9.3.2001 13:02:24
Ahoj,
pro vyhledani textu v TRichEdit pouzij metodu FindText (jeji popis je v
helpu). Property SelText obsahuje vybranou cast textu, ktere pak muzes
pomoci SelAttributes nastavit atributy. To, co jsi udelal, nahradi vybrany
text (nebo vlozi na pozici kurzoru, kdyz neni nic vybraneho) stringem '>>>
TOTAL <<<', obarvi a nastavi font.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> AHojte,
> jeste neco bych potreboval.Jo, vsechno je to pod D4 C/S.
>
> Tady tento kod by mi mel IMHO oznacit v textu >>> TOTAL <<< a nastavit
> velikost pisma na 24 a barvu zelenou a jeste tucne.
> A vite co to dela? Puvodni text necha na pokoji a pridava
> zvetseny zbarveny
> na konec, ale az od druheho stisknuti tlacitka Pri prvnim stisku.
> prida text v puvoni barve i velikosti.
> Jsem si vedom toho, ze asi neco ku...m ja, ale nevim co.
> Help me, please.
>
> Petr
>
> procedure Form1.button1.click.....
> begin
> RichEdit1.SelText:='>>> TOTAL <<<';
> RichEdit1.SelAttributes.Color:=ClGreen;
> RichEdit1.SelAttributes.Size:=24;
> RichEdit1.SelAttributes.Style:=[fsBold];
> RichEdit1.ClearSelection;
> end;
Obrazek na leve strane PopUpMenu
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 09.3.2001 13:08:34
ahoj,
to umi komponenta BCmenu. Nedavno ji tu jeden kolega roz-posilal. Mam ji doma, jestli chces, poslu.
> Ahoj Lidi,
>
> Potreboval bych vedet, jak dostat na levou stranu do PopUpMenu obrazek. Mam
> RXLIB, ale RxPopUpMenu umoznuje vkladat ikonky k jednotlivym polozkam. Ja
> ale potrebuji jeden obrazek na cele leve strane menu. Poradi mi nekdo,
> pliiiz, nebo jsem zase neco prehlid?
>
> Falta
>
>
>
_____________________________________________________________________
Poctenicko pro kazdy den: http://www.novinky(tec)cz
Delphi a Wave
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 9.3.2001 13:15:32
Ahojte, poradi mi nekdo, jakym nejjednodussim zpusobem cist v Delphi data ze souboru *.wav s tim, ze mi vrati i format souboru? Nejde mi o prehravani wavu, ale jen spise o cteni dat - pouziti v emulatoru 8-bit. pocitace pro emulaci "Virtualniho magnetofonu". Dekuji za odpoved
Zdenek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 108 - datum vyd�n�: 5.1.2001
KonfView
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 9.3.2001 13:15:08
Ahoj,
nejsem sice autor KonfView, ale mohu odpovedet. KonfView se (zatim)
nerozsiruje, protoze uator ma na praci mj. nejake skolni povinnosti.
K te chybe: protoze se nepodarila zjistit jakakoliv rozumna zavislost na HW,
OS, SW, settings a dalsich, nebylo mozno ji opravit. Co vsak mohu udelat,
je nasledujici: pokud bude zajem, mohu umistit prevedenou tabulku na
Internet a muzete si stahnout ji. Protoze je vetsi nez ona magicka hranice,
pri ktere dochazi k problemum, muzete jiz dalsi data pridavat dle libosti.
Prosim tedy ty, kteri by si chteli DB stahnout, at mi daji vedet na
SOUKROMY mail (tedy nikoliv do konference) a ja databazi trvale umistim
na web (diky ochote dvou serveru mam na to mista dost).
Slavek
<hudba_budoucnosti>
ps.: Koketuji s myslenkou prevest konfview na SQL Server 2000, ale nejpve
musim zjistit, jak dobre se necha uplatnit logicky model DISu a take jeste
drive musim nejak dokoncit diplomku. :-)
</hudba_budoucnosti>
> Zdravim,
> chtel jsem se zeptat, jak to vypada s tim prohlizecem konfery. Posledni
> verze byla pred rokem. Me jde hlavne o to, ze mam W2000 a haze mi to tu
> chybu "Some internal limit (see context)." Podle popisu posledni verze to
> neni opravene.
> Bude vubec jeste nekdy vydana nova verze KonfView? Nebo podarilo se nekomu
> tuto chybu opravit?
>
> Petr
>
>
--------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
* K Jezisku, panacka, ja se budu kolebati...
* Narodil jsem se, radujte se...
--------------------------------------
Ukoncovanie tlacovych uloh
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.3.2001 13:21:00
Ahoj,
na zrusenie prebiehajucich tlacovych uloh som si zlepil
nizsie funkciu. Chcel by som poprosit nejakeho skusenejsieho
programatora (taky "Amatersky programator" by nebol na
zahodenie) o vysvetlenie, ci v danej funkcii nezabudam
nieco uvolnovat, resp. ci nerobim nieco zle.
Ak totiz niekde v programe uvedenu funkciu aspon raz pouzijem,
program pri svojom ukoncovani niekedy pada.
Neviem prist na chybu.
Za pripadnu pomoc vdaka.
Vlkovic
FUNCTION TerminatePrinterJobs: Boolean;
// nizkourovnova procedura na ukoncie tlacovych uloh
var
PrinterHandle: THandle;
DeviceMode: THandle;
NDevice: PChar;
NDriver: PChar;
NPort: PChar;
begin
NDevice := nil;
NDriver := nil;
NPort := nil;
Result := False; // default
TRY
GetMem ( NDevice, 255 );
GetMem ( NDriver, 255 );
GetMem ( NPort, 255 );
Printer.GetPrinter ( NDevice, NDriver, NPort, DeviceMode );
// nechapem preco sa funkcia GetPrinter vola znovu
if DeviceMode = 0 then
Printer.GetPrinter ( NDevice, NDriver, NPort, DeviceMode );
if not OpenPrinter ( NDevice, PrinterHandle, nil ) then
Exit
else
begin
if not AbortPrinter ( PrinterHandle ) then
Exit;
// nechapem druhemu parametru v poradi
SetPrinter ( PrinterHandle, 0, nil, PRINTER_CONTROL_PURGE );
ClosePrinter ( PrinterHandle );
Result := True;
end;
FINALLY
if NDevice <> nil then
FreeMem ( NDevice );
if NDriver <> nil then
FreeMem ( NDriver );
if NPort <> nil then
FreeMem ( NPort );
END;
end;Preskakovanie medzi textovym polom komponenty Edit
[*] �ampulka Ji�� - 9.3.2001 13:57:24
No vsak ja sem jenom nastinil mozne reseni, tak aby to bylo co
nejjednodussi.
Samozrejmne ze je to treba doladit.... :)> Toto se hodi pokud chce nastavovat jakykoli "tabovatelny"
> objekt. Ale ne
> pokud chce jen Edity.
>
> Petr Jur�k, Spr�vce s�t�, program�tor
> COMET System s.r.o.
> 1.M�je 1220
> 756 61 Ro�nov pod Radho#t�m
> tel. 0651/653990
> fax. 0651/653993
> www.cometsystem(tec)cz
>
>
> ----- Original Message -----
> From: #ampulka Ji�� <campulka(zv)czas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, March 09, 2001 9:22 AM
> Subject: RE: Preskakovanie medzi textovym polom komponenty Edit
>
>
> > >
> > > Pri vyplnani bezneho formularu, ktory obsahuje polia
> komponenty Edit,
> > > potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa
> > > aktivovalo na
> > > pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat
> > > tam mysou
> > > alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.
> > >
> >
> > Zkus tohle:
> > (ve vlastnostech Formu je potreba nastavit KeyPreview na true)
> >
> > procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
> > begin
> > if Key=#13 then SelectNext(ActiveControl,true,false);
> > end;
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
> >
> >
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> COMET System Network Administrator.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
Znovu Delphi - Excel
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 9.3.2001 13:59:33
Znovu Delphi - Excel>Vim, ze v Basicu je nejaka funkce GetObject, pomoci
ktere lze otestovat, jestli jiz aplikace Excel predtim nebezi.
>Nevite o nejake funkci, ktera by v Delphi tuto situaci otestovala ?
GetActiveOleObject();
S pozdravom
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
JESTE JEDNOU POST a ALT+F4
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 9.3.2001 14:00:32
Neslo by to takhle?
ad1. zavreni pouze stiskem Save tlacitka
formular.show(...)
begin
savebutton.tag:=0;
end;
formular.onsavebuttonpress(..)
begin
savebutton.tag:=1;
close;
end;
formular.onclosequery(..)
begin
canclose:=savebutton.tag=1;
end;
ad2. zavreni v pripade, ze se needituje, nepridava...
formular.onclosequery(..)
beegin
canclose:=dataset.state=dsbrowse;
end;
Roman
----- Original Message -----
From: Milan Ri#i
To: !!! DELPHI !!!
Sent: Friday, March 09, 2001 5:58 AM
Subject: JESTE JEDNOU POST a ALT+F4
Diky za rady. Ja to taky obchazim, jak se da. To s tim nastavenim promenne a
potvrzeni na editovaci rezim je uz docela systemove a snad i obecne reseni. Ale
napada me dalsich minimalne 9 akci a nejen s Post a nejen v editovacim rezimu,
kdy je treba osetrovat zruseni formulare mimo tlacitko ULOZIT a KONEC (tam je to
v pohode). Takze se ptam trochu jinak - nemate nekdo napad, jak OBECNE "placnout
uzivatele po ruce", kdyz chce odejit z formulare tim, ze ho zrusi namisto toho,
aby pouzil tlacitko, kterym se ma z formulare odejit ? Samozrejme krome toho, ze
vyhodim krizek z formulare ... Aby to nebylo tak jednoduche, pokud tam nic
nedela, nebo se jen diva, a i v jinych pripadech, je vse v poradku. Mozna je to
pro nekoho prkotina, ale ti co delaji programy pro nekoho a nejen pro sebe
urcite vi, co uzivatel dokaze ...
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Znovu Delphi - Excel
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 9.3.2001 14:04:21
> XLApp:= CreateOleObject('Excel.Application');
>Problem je v tom, ze kdyz tuto konstrukci zavolam, nastartuje novy Excel
>a to i v pripade, ze Excel bezi i pred spustenim teto aplikace.
>Nevite o nejake funkci, ktera by v Delphi tuto situaci otestovala ?
Ja to delam takto:
try
XLApp := GetActiveOleObject('Excel.Application');
Result := true;
except
Result := false;
end; {try}
if not Result then
try
XLApp := CreateOleObject('Excel.Application');
Result := true;
except
Result := false;
end; {try}
Josef Cerny
Delphi a Wave
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 9.3.2001 14:18:23
>Ahojte, poradi mi nekdo, jakym nejjednodussim zpusobem cist v Delphi data ze
souboru *.wav s tim, ze >mi vrati i format souboru? Nejde mi o prehravani wavu,
ale jen spise o cteni dat - pouziti v emulatoru 8->bit. pocitace pro emulaci
"Virtualniho magnetofonu". Dekuji za odpoved
No, nejjednodussi bude nejaka komponenta /treba na www.torry.ru /
nebo pak takhle nejak /je to jenom vystrizek, cteni hlavicky wavu/:
uses MMSystem;
var WaveFormatEx:TWaveFormatEx;
FileHandle:THandle;
DataSize:integer;
StartDataPos:integer;
.....
ZeroMemory((zv)WaveFormatEx,sizeof(WaveFormatEx));
ReadSize:=0;
FileHandle:=mmioOpen(PChar(FFileName), nil, MMIO_READ);
if FileHandle<>0 then ReadHeader;
....
procedure TWaveOutThread.ReadHeader;
var mmckinfoparent:MMCKInfo;
mmckinfoSubchunk:MMCKInfo;
begin
mmckinfoParent.fccType:=mmioStringToFOURCC('WAVE',0);
mmioDescend(FileHandle,(zv)mmckinfoParent,nil,MMIO_FINDRIFF);
mmckinfoSubchunk.ckid:=mmioStringToFOURCC('fmt',0);
mmioDescend(FileHandle,(zv)mmckinfoSubchunk,(zv)mmckinfoParent,MMIO_FINDCHUNK);
mmioRead(FileHandle,(zv)waveformatex,mmckinfoSubchunk.cksize);
mmioAscend(FileHandle, (zv)mmckinfoSubchunk, 0);
mmckinfoSubchunk.ckid:=mmioStringToFOURCC('data',0);
mmioDescend(FileHandle,(zv)mmckinfoSubchunk,(zv)mmckinfoParent,MMIO_FINDCHUNK);
StartDataPos:=mmioSeek(FileHandle,0,SEEK_CUR);
DataSize:=mmckinfoSubchunk.cksize;
end;
ve waveformatex mash pak informace o wavu, viz. napoveda k WinAPI
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
DBComboBox - neco pro profiky
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 9.3.2001 14:21:59
Tak to vam gratuluju, pac me se naopak pri pouziti DBComboBox zaznamy ztracely
/zajimave, ze jenom na jednom pocitaci PIII-w2k/! Stacilo jej vymenit za
normalni ComboBox a uz je to OK.
Roman
D4, bez BDE, Access2k
> Bohuzel ti neporadim, ale pridam dalsi indikace.
> Mne se totot stava take (ale jen na nekterych pocitacich) v DBGridu.
>
> Zda se mi ze je to vykonem stroje na PII-166Mhz to zdvojuje (nekdy je tam
> jeden zaznam az petkrat), na PIII uz ne.
>
> Pouzity software :
> D5-Prof.
> BDE 5.??
> Sybase Anywhere 6.0.4 (CP1250)
>
> Moje teorie: Je neco shnileho v BDE ;-).
>
> Ahoj Karel
>
> Karel Vlcek
> ===========================
> poskytovani software
> GSM : ++420 602 264812
> mailto: vlcekk(zv)hotmail.com
> ===========================
>
> ----Original Message Follows----
> From: Hazuka Filip <filip.hazuka(zv)multivac(tec)cz>
> Reply-To: delphi-l(zv)fwd(tec)cz
> To: "'Delphi-l(zv)fwd(tec)cz'" <Delphi-l(zv)fwd(tec)cz>
> Subject: DBComboBox - neco pro profiky
> Date: Fri, 9 Mar 2001 09:57:29 +0100
>
> Ahoj Delphaci,
> uz jsem to posilal dvakrat, ale nedostal jsem odpoved. Bud je to prilis
> slozite, nebo to zapadlo. Zkusim to tedy jeste jednou.
> Mam nasledujici problem:
>
> Do DBEditu prirazuji pres DBComboBox polozky z ciselniku. Stava se mi ale,
> ze pri prirazovani se pri kliknuti na nekterou polozku v DBComboBoxu tato
> polozka zduplikuje. To znamena, ze je v seznamu dvakrat, napriklad ob dva
> radky a je oznacena dvakrat. Do Editu se priradi dobre, ale je to nehezky.
> Pritom v ciselniku dvakrat neni. Je take zajimave, ze se to stava jen u
> nekterych polozek. Nepodarilo se mi ale vystopovat spolecne znameni.
> Jestli tomu neni rozumet, napiste mi cemu a ja to upresnim.
>
> * Pouzita databaze SQL Serveru 7.0.
> * Pripojeni pres BDE a ODBC.
> * Server pouziva kodovani CP 1250 (Ceske).
> * Default language je Anglictina.
>
> Nevite nekdo v cem muze byt problem ? V ciselniku jsou polozky ktere
> zacinaji hackem. To ale neni problem, uz jsem to zkousel.
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
DBComboBox - neco pro profiky
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.3.2001 14:58:40
> Do DBEditu prirazuji pres DBComboBox polozky z ciselniku. Stava se mi
> ale, ze pri prirazovani se pri kliknuti na nekterou polozku v
> DBComboBoxu tato polozka zduplikuje. To znamena, ze je v seznamu
> dvakrat, napriklad ob dva radky a je oznacena dvakrat. Do Editu se
> priradi dobre, ale je to nehezky. Pritom v ciselniku dvakrat neni. Je
> take zajimave, ze se to stava jen u nekterych polozek. Nepodarilo se
> mi ale vystopovat spolecne znameni. Jestli tomu neni rozumet, napiste
> mi cemu a ja to upresnim.
Ahoj,
vsadim se, ze pouzivas komponentu TTable. U te jsem narazil na
podobne chovani. Proti SQL serveru doporucuji tuto komponentu
nepouzivat, usetris si pozdejsi prusvihy.
Reseni bych videl asi tato:
1) TTable nahradit komponentou TQuery
2) Nebo - ponechat TTable a na jeji udalost AfterScroll povesit toto:
Table1.DisableControls;
Table1.Refresh;
Table1.EnableControls;
David Lebeda
RichEdit, data ze souboru a cestina
[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 9.3.2001 15:28:26
kodova stranka CP852 je DOSovska a ty ji potrebujes nacpat do windows, to
moc nepujde, asi budes muset provest konverzi kodovani kazdeho radku pote
co jej nactes ze souboru predtim nez ho vlozis do TRichEditu nebo kamkoliv
jinam. Konverzi bych zkusil napriklad tak ze bych do pole KonvertTable=array
[32..255] of char nacpal prehazeny znaky tak, ze pod indexem [i] je znak v
CP1250 odpovidajici strance CP852. Ma to ale vadu na krase v tom ze je to
celkem pomale prochazet kazdy znak retezce a prepisovat do jineho:
string2:=string2+KonvertTable[ord(string1[i])]... ale je to jedna z
moznosti.
> -----P�vodn� zpr�va-----
> Od: Petr [SMTP:petr(zv)slunce(tec)cz]
> Odesl�no: 9. b�ezna 2001 9:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RichEdit, data ze souboru a cestina
>
> Ahojte,
>
> potreboval bych poradit s takovou banalitkou:
>
> 1) Nactu ASCII soubor (psany pod kod.str.852) pomoci AssignFile, Reset,
> Readln a jednotlive radky cpu do RichEditu, ve kterem je zkomolena
> diakritika.Je nejaka fce primo v Delphi, ktera by to dokazala prevest z
> 852
> do 1250? Asi ne, ze jo? Muzete mi poradit, jak to mam provest?
>
> 2) To same co ad 1) az na to ze se jedna o memo z DBase IV. Pro memo
> neplati
> nastaveni langdriveru z BDE? Ono totiz ostatni fieldy zobrazuji cestinu v
> pohode.
>
> To memo dostavam do richeditu pres clipboard z dbricheditu.Neda se to
> udelat
> nejak primo - jednoduseji?.
>
> Diky
>
> Petr
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
SMS
[*] petr.kerek(zv)cz.abb(tec)com - 9.3.2001 15:30:25
Pres internet pomoci SCRIPTU se da odeslat SMSka primo od operatora. U
nekterych operatoru je to omezeno 1SMS per 120sec. Jinak pokud mas pripojen
MOBIL s PC pomoci kabelu nebo IR lze posilat SMS z PC primo pres MOBIL.
Pomoci AT-Prikazu pres GSM Modem.
Onen prikaz je : AT+CMGF=1 [CrLf] ' Textova SMS
AT+CMGS="+420xxxxxxxxx",129 [Cr]
pak modem posle znak ">" pak se na port posle text a uzavre se
znakem o ASCII hodnote 26.
S pozdravem
Ker�k Petr
IT
Graficky TreeView
[*] vlada_ponechal(zv)post(tec)cz - 9.3.2001 15:54:07
Zdar panove,
Potrebuji radu. Nemate nekdo free komponentu, obdobu treeview, ale v grafickem provedeni. V behu tam potrebuji menit obrazky a pripadne barvu ikony a textu v jednotlivych polozkach. Chci to vazat na SQL server databazi...
Diky,
Vlada
ADO a Informix
[*] "Fait Jir�, ml." <fait(zv)jakl(tec)cz> - 9.3.2001 16:21:32
Nemate nekdo zkusenosti z pripojenim ADO na Informix. Pres ODBC to jede
ale zajima nas preve to DAO.
Jiri Fait
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
Znovu Delphi - Excel
[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 9.3.2001 16:58:08
Tohle mne funguje
try
Excel := GetActiveOleObject('Excel.Application');
except
try
Excel := CreateOleObject('Excel.Application');
except
ShowMessage('Nepodaoilo se otevo�t aplikaci Microsoft Excel.');
Exit;
end;
end;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
-----Original Message-----
From: Josef A. Cerny [mailto:delphi(zv)atlascon(tec)cz]
Sent: Friday, March 09, 2001 2:04 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Znovu Delphi - Excel
> XLApp:= CreateOleObject('Excel.Application');
>Problem je v tom, ze kdyz tuto konstrukci zavolam, nastartuje novy Excel
>a to i v pripade, ze Excel bezi i pred spustenim teto aplikace.
>Nevite o nejake funkci, ktera by v Delphi tuto situaci otestovala ?
Ja to delam takto:
try
XLApp := GetActiveOleObject('Excel.Application');
Result := true;
except
Result := false;
end; {try}
if not Result then
try
XLApp := CreateOleObject('Excel.Application');
Result := true;
except
Result := false;
end; {try}
Josef Cerny
Kontrola fontu
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.3.2001 17:12:52
Ahoj,
ako sa da v Delphi zistit, ci font s urcitym nazvom
uz je v systeme instalovany?
Popripade dalsie informacie o fonte ako napr.
typ, nazov suboru, adresar a pod.
Vdaka.
Vlkovic
Form visible, ikona invisible. Jak???
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 9.3.2001 17:36:07
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Hezky den,
mam Form, ktery je neustale na obrazovce a je StayOnTop. Je to mala utilitka
a jeji ikona, ktera je dole na hlavnim panelu zbytecne zabira misto. Je
mozne nejakym zpusobem schovat ikonu (ptipadne i do tryarey, ale muze to byt
i uplne) tak, aby zustal pouze form???
Diky moc za kazdou radu.
Michal Tiller
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
<mailto:Michal.Tiller(zv)oskarmobil.Cz%20%20%20%20%20:o)>
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327
RichEdit, data ze souboru a cestina
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.3.2001 18:24:22
Na prevod z CP852 na CP1250 pouzij funkci OEMToANSI
Schudnejsi by bylo to do RichEditu dostat pomoci
RichEdit.Lines.BeginUpdate;
RichEdit.Lines.LoadFromFile('soubor');
RichEdit.Lines.Text := OEMToAnsi(RichEdit.Lines.Text);
RichEdit.Lines.EndUpdate;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
09.03.2001 Petr:
> Ahojte,
> potreboval bych poradit s takovou banalitkou:
> 1) Nactu ASCII soubor (psany pod kod.str.852) pomoci AssignFile, Reset,
> Readln a jednotlive radky cpu do RichEditu, ve kterem je zkomolena
> diakritika.Je nejaka fce primo v Delphi, ktera by to dokazala prevest z 852
> do 1250? Asi ne, ze jo? Muzete mi poradit, jak to mam provest?
> 2) To same co ad 1) az na to ze se jedna o memo z DBase IV. Pro memo neplati
> nastaveni langdriveru z BDE? Ono totiz ostatni fieldy zobrazuji cestinu v
> pohode.
> To memo dostavam do richeditu pres clipboard z dbricheditu.Neda se to udelat
> nejak primo - jednoduseji?.
> Diky
> Petr
Toolbar a mainmenu
[*] Jaroslav Antos <jara-slava(zv)seznam(tec)cz> - 09.3.2001 19:04:18
Nevite jak nastavit MainMenu, aby bylo v Toolbaru. (Stejne jako explorerovske menu)
_____________________________________________________________________
Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
Databaze -> David Lebeda a nejenom pro neho
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 9.3.2001 20:00:37
Mas naprostou pravdu Davide. Pouzivam TTable.
Duvod je jednoduchy. Tato komponenta pro me byla, kdyz jsem zacinal
jednodussi.
Vytvoril jsem si jiste znalosti a ted se mi spatne prechazi.
Nemam totiz nektere veci vyjasnene jak je udelat. A co hlavne, chybi mi
celkovy princip
jak pracovat s komponentou Query. Jak zobrazovat udaje do formulare vim, ale
nevim kdy nacitat udaje do Query, zda je lepsi dat celkovy select (Select *
from ...) nebo jak editovat zaznamy, jak vytvaret policko identity a jak
provazat jednotlive tabulky jako master atd...
Nemate nekdo nejaky zajimavy odkaz, jak se vytvari aplikace C/S s Query.
Spis mi jde o princip.
Diky.
Filip
Skiny
[*] Va�ek N�vrat <engine(zv)ropacek(tec)cz> - 9.3.2001 21:02:11
Dobrej den!
Zaujala me funkce cim dal tim vice programu - pouzivat tzv. skiny. Vi nekdo,
jak na to, abych neco podobneho mohl pouzit i ve sve aplikaci?
Diky
Vasek Navrat
Databaze -> David Lebeda a nejenom pro neho
[*] Ji�� Kr�l���i٢#�k�{h�̿ - 9.3.2001 22:04:38
zaklady boje s SQL:
ano, vse je jinak. Timhle jsem prosel pred rokem a teda nic moc...
V prve rade ti radim abys na SQL nelezl pres BDE. Pomoci ADO je to o fest
dost moc rychlejsi a je s tim mene trablu. pokud mas D5 profi, dokup si
ADOExpress nebo zkus komponenty Z.Hlinky link bude na www.localizator(tec)cz
Za druhe: vyvaruj se data-aware controls (TDBedit a spol.) je to cesta do
pekla.
Reseni je: editovac obecny tedit apod. a StoredProc ktera to pekne ulozi na
server.
Je to ku...sky pracnejsi, ale MA to cenu.
Radil mi to Zbysek H., a bohuzel mel pravdu. SQL a DB-aw to dela paseku...
pokud chces nej. priklady stor proc / ADO apod. ozvi se na soukr. mejl
J. "ForgetPdox" Kral ;-))
Nespravny username alebo password.
[*] Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk> - 9.3.2001 22:22:36
Zdravim.
Ako odchytim v IBDatabase, ze nastala chyba napr. zle heslo, neplatna cesta
k databaze, nespousteny server na lokal PC,... Lebo je tam len event OnLogin
kde vytvorim okno pomocou ktoreho vypytam username a password. Ale ak
nastala chyba tak neviem ho odchytit. OnLogin sa spusta, len ak niekde sa
spusta IBQuery a predsa nie je myslitelne aby som pri kazdom okne kde pytam
data. Dufam ze som to pochopitelne napisal co vlastne chcem. Ako to riesite.
dakujem.
Roland
Priradenie ROLE pri prihlasovani k IB
[*] Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk> - 9.3.2001 23:03:50
Zdravim.
Ako inteligentne vyriesit pridelenie ROLE pre uzivatela ktory sa momentalne
prihlasuje. Podla helpu som pochopil ze pri prihlasovani treba povedat ze ku
ktorej ROLE sa chcem zaradit. Ak ROLE neuvediem tam sa prihlasujem iba z
prihlasovacimi pravami uzivatela. Myslim ze nie je zrovna ten najspravnejsi
napad pytat od uzivatela okrem mena, hesla aj ROLE. Pristupove prava chcem
vyriesit na urovny skupin, t.j. administrator iba povie ze JOZO je KNIHOVNIK
a je to. Jozko zada meno heslo a je prihlaseny ako KNIHOVNIK.
Dakujem.
Roland.Graficky TreeView
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 9.3.2001 23:03:24
Ahoj,
Pouzivej ImageList (coz asi delas), ale mej vice barevnych
variant potrebnych ikon a nastavuj prislusny ImageIndex.
Pro vykreslovani barvicek textu a podobnych opicaren
nejlepe pouzit vlastni obsluhu OnCustomDrawItem ci
OnAdvancedCustomDrawItem. V helpu mas myslim postacujici
example.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> vlada_ponechal(zv)post(tec)cz
> Sent: Friday, March 09, 2001 3:54 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Graficky TreeView
>
>
> Zdar panove,
> Potrebuji radu. Nemate nekdo free komponentu, obdobu treeview,
> ale v grafickem provedeni. V behu tam potrebuji menit obrazky a
> pripadne barvu ikony a textu v jednotlivych polozkach. Chci to
> vazat na SQL server databazi...
>
> Diky,
>
> Vlada
> Toolbar a mainmenu
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 9.3.2001 23:03:31
Ahoj,
Obecne:
Zrus prirazeni property Menu na MainMenu1 prislusneho formulare.
Dej na formular TToolBar a pridej tlacitka jenz budou zastupovat hlavni
polozky Menu (Soubor,Editace,...) ke kazdemu tlacitku nastav property
MenuItem k polozce v MainMenu1 (OI ti sam nabidne). Nastav Flat na True,
ShowCaption na True a AutoSize na True u ToolBaru.
Oznac vsechna tlacitka na Toolbaru a nastav Grouped na True a AutoSize na
True.
Na priv. mail posilam priklad.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Jaroslav Antos
> Sent: Friday, March 09, 2001 7:04 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Toolbar a mainmenu
>
>
> Nevite jak nastavit MainMenu, aby bylo v Toolbaru. (Stejne jako
> explorerovske menu)
> _____________________________________________________________________
> Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
>Kontrola fontu
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 9.3.2001 23:03:27
Ahoj,
napriklad seznam dostupnych fontu dostanes takto:
ListBox1.Items:= Screen.Fonts;
Pak ti staci napriklad:
if ListBox1.Items.IndexOf('Lucida Console') > -1 then...
Podrobnejsi informace o fontech lze ziskat napr. pomoci API fci
pod "Font and Text Functions" (EnumFonts,EnumFontFamilies,...)
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Peter Vlkovic
> Sent: Friday, March 09, 2001 5:13 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Kontrola fontu
>
>
> Ahoj,
>
> ako sa da v Delphi zistit, ci font s urcitym nazvom
> uz je v systeme instalovany?
> Popripade dalsie informacie o fonte ako napr.
> typ, nazov suboru, adresar a pod.
> Vdaka.
>
> Vlkovic
> Zmena hesla do IB
[*] Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk> - 9.3.2001 23:07:12
Zdravim.
Moze si uzivatel sam menit heslo ? Lebo ak som prihlaseny ako nie SYSDBA tak
sa so mnou nekamarati a vypisuje, ze nemam opravnenie update/write k tabulke
USERS.
Dakujem.
Roland.Toolbar a mainmenu
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 9.3.2001 23:19:16
> Nevite jak nastavit MainMenu, aby bylo v Toolbaru. (Stejne jako
> explorerovske menu)
Jen tak nejakym nastavenim to nejde. Naznak jak to udelat je
komponenta, ktera je myslim v sekco downloadu na webu
Borlandu. Je na to tez k nalezeni neco malo pokusu na Torry.
Jiri Binder
Zpravy pri aktivovanem menu
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 9.3.2001 23:19:16
Ahoj,
nejak se mi nedari zachytit zpravy mysi (konkretne
wm_mousemove) a wm_keydown up, pri aktivovanem menu.
Ani Application.OnMessage nepomaha. Nevite nahodou kde je
zakopany pes, resp. ty zpravy?
Jiri Binder
Instalace aplikace s IB6
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 9.3.2001 23:26:23
Ahoj,
Dejmez tomu bude se instalovat aplikace postavena na IB6.
Jak se postavit k situaci:
a) je jiz nainstalovan server IB5.x nebo nizsi
b) existuje server IB6 (predpokladam ho vyuzit, ale jak to overit?)
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203 Zpravy pri aktivovanem menu
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 9.3.2001 23:58:26
Ahoj,
jestli jsem pochopil o co ti jde tak treba takhle:
type
TForm1 = class(TForm)
[...]
private
{ Private declarations }
procedure WMNCHitTest(var Message: TMessage); message WM_NCHITTEST;
public
{ Public declarations }
end;
procedure TForm1.WMNCHitTest(var Message: TMessage);
begin
with Message, ScreenToClient(Point(LOWORD(lParam),HIWORD(lParam))) do
Caption:= Format('X: %d, Y: %d',[x,y]);
inherited;
end;
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Jiri Binder
> Sent: Friday, March 09, 2001 11:19 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Zpravy pri aktivovanem menu
>
>
> Ahoj,
>
> nejak se mi nedari zachytit zpravy mysi (konkretne
> wm_mousemove) a wm_keydown up, pri aktivovanem menu.
> Ani Application.OnMessage nepomaha. Nevite nahodou kde je
> zakopany pes, resp. ty zpravy?
> Jiri Binder
>
>
>
>
> VMWARE
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 10.3.2001 07:39:18
> vmWare jsem pred casem testoval a je to fantasticka vec, bohuzel ta cena
uz
> tak dobra neni - zalezi zda najdete uplatneni.
VMWARE ( www.vmware.com ) nabizi take odhlehcenou verzi, ta je jen pro
Linux,
oproti "plne" umi jen Win95 a Win98 a soucasne spusti jen jednu instanci
VMWARE.
Stoji $79. Je to nepochybne varianta klasickeho VMWARE proti konkurencni
Win4Lin.
Detaily na http://www.vmware.com/products/desktop/exp_faqs.html .
Ptal jsem se na LinuxExpo a ceske SUSE ji je schopno dovest a prodat za Kc,
je-li to treba.
Leos
PS: Na MAGEU byl nejaky clovek, ktery ma pod VMWARE vsechny verze Windows,
od Windows 1.0 az po Windows2000, ma to jako konicka a sbira to (kupuje?)
jako "muzeum".
To je ovsem predpokladam pod neodlehcenou verzi.
ADO a Informix
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 10.3.2001 07:49:34
>Nemate nekdo zkusenosti z pripojenim ADO na Informix. Pres ODBC to jede
>ale zajima nas preve to DAO.
Zkusenosti je silne slovo, ale zkousel jsem to.
Vychazim z rok starych poznamek, tak doufam, ze vse jeste plati.
Predevsim potrebuje vlastni ADO, ke stazeni z Microsoftu balik MDAC,
ve Win2000 je tusim soucasti. Dale potrebujete Informix Client SDK verze 2.3
a vyssi,
pri instalaci je v panelu Custom volba OLEDB Provider, to nainstalujete.
Dale na SERVERu spustite skript coledb.sql z etc adresare klienta
proti databazi SYSMASTER, jinak hlaska "base table not found".
Ja zkousel ZAKLADNI veci v Adonis 3.3 a ty sly bez problemu.
Leos
Instalace aplikace s IB6
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 10.3.2001 07:57:34
> a) je jiz nainstalovan server IB5.x nebo nizsi
podle aplikace, pokud je NUTNE pracovat s IB6 (dialekt 3 atd.)
tak upozornit uzivatele a ukoncit instalaci.
> b) existuje server IB6 (predpokladam ho vyuzit, ale jak to overit?)
V registrech bude pod HKLM:
Software\Borland\InterBase\CurrentVersion
Polozka RootDirectory (napr. c:\Program Files\Firebird)
Polozka Version (napr. WI-T0.9.4.41 Firebird Test1)
!!! Interbase 6 :-)
Z uvedeneho plyne ze i Firebird uziva "Borlandovske" registry.
Pripadne jeste test existence bin/ibserver, jestli to nejaky aktivista rucne
nesmazal.
L.Zmena hesla do IB
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 10.3.2001 08:18:54
> Moze si uzivatel sam menit heslo ? Lebo ak som prihlaseny ako nie SYSDBA
tak
Odpovim odkazem:
http://www.volny(tec)cz/iprenosil/interbase/ip_ib_isc4.htm
Leos
Priradenie ROLE pri prihlasovani k IB
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 10.3.2001 08:41:51
> vyriesit na urovny skupin, t.j. administrator iba povie ze JOZO je
KNIHOVNIK
> a je to. Jozko zada meno heslo a je prihlaseny ako KNIHOVNIK.
Vecne je to jednoduche: napriklad u IBOBJECTS je vlastnost SQLROLE
u komponenty IB_CONNECTION.
Ma to ale jeden hacek: je treba pred tim zjistit, co ze to ten JOZO vlastne
je
za roli a to je (asi) v databazi, ke ktere jeste nejsme prihlaseni.
Takze:
1) po startu se automaticky prihlasit jako nejaky fiktivni uzivatel s pravy
k tabulce UZIVATELSKE_ROLE a pak teprve se hlasit jako konkretni uzivatel s
tim,
ze predvyplnim prislusnou vlastnost podle nacteneho pole roli a konkretniho
uzivatele.
2) kazdy uzivatel patri do role PRIHLASENI ktera ma jen pravo na
UZIVATELSKE_ROLE,
a pak roli zmenim a prehlasim jej znova.
Kazdopadne je nutne se hlasit dvakrat (nebo mit seznam uzivatelu/roli jinde
nez v databazi,
coz ma ale zase jine problemy).
3) Role nepouzit, udelat SQL tabulky uzivatel/aplikace/tabulky a
administrator prirazuje pomoci nejakeho programu jednotlive aplikace (ci
skupiny aplikaci) danemu uzivateli a nastavuje ihned (ten program :-))
prislusna prava na tabulky.
Krome dvojnasobneho prihlasovani to ma tu vyhodu, ze JOZO je perspektivni
KNIHOVNIK, tak mu priradi krome aplikace KNIHOVNA jeste aplikaci ZAKAZNICI,
kdezte nastoupivsi slecna KLARA dostane jen aplikaci KNIHOVNA. Na to bys
musel mit dve role, takhle to zkombinujes dle potreby, ale musis to odmakat.
Leos
Databaze -> David Lebeda a nejenom pro neho
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 10.3.2001 12:32:29
On 9 Mar 2001, at 22:04, Ji�� Kr�l wrote:
> V prve rade ti radim abys na SQL nelezl pres BDE. Pomoci ADO je to o
> fest dost moc rychlejsi a je s tim mene trablu. pokud mas D5 profi,
> dokup si ADOExpress nebo zkus komponenty Z.Hlinky link bude na
> www.localizator(tec)cz
Tam to urcite neni, je treba hledat zde:
http://delphree.clexpert.com/pages/projects/oledb/default.htm
Musim vsak upozornit, ze k tomu neni dokumentace a rada veci je
tam v dost surovem stavu. Dale to ma _vyrazne_ jine pojeti nez
BDE, takze temer veskere zkusenosti z BDE lze zahodit, a
program se musi napsat uplne znovu. Pro zacatecniky to urcite
neni vhodne. Na druhe strane, protoze nepouzivam vubec nic z
TDataSetu a komponent na nej navazanych, pracuje to i s D5Std.
> Za druhe: vyvaruj se data-aware controls (TDBedit a spol.) je to cesta
> do pekla.
>
> Reseni je: editovac obecny tedit apod. a StoredProc ktera to pekne
> ulozi na server.
>
> Je to ku...sky pracnejsi, ale MA to cenu.
>
> Radil mi to Zbysek H., a bohuzel mel pravdu. SQL a DB-aw to dela
> paseku...
Bohuzel? :-) Muje zkusenost je takova, ze osetrovat zaludnosti DB-
aware komponent je v dusledku pracnejsi nez nez to psat bez nich.
Jinak DB-aware komponenty jsou skvele pro prohlizecky a
reklamni predvadecky. :-)
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
CORBA a Delphi
[*] david.winter(zv)volny(tec)cz - 10.3.2001 14:16:32
Snazim se proniknout do taju Corby. Hledam nejake odkazy na clanky o Corbe a pouziti v Delphi. Znate nekdo nejake odkazy ?
David Winter
Skiny
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 10.3.2001 18:12:55
Ahoj,
ja na tohle pouzival vlastni komponenty, ktere si pri startu nacitaly zadany
skin /bitmapu/ budto primo ze souboru, anebo se na zacatku natahla prislusna
knihovna /dll/ se skinama...
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
> Dobrej den!
>
> Zaujala me funkce cim dal tim vice programu - pouzivat tzv. skiny. Vi nekdo,
> jak na to, abych neco podobneho mohl pouzit i ve sve aplikaci?
>
> Diky
> Vasek Navrat
>
>InnoSetup+ScriptMaker
[*] Milan ��ek - 10.3.2001 18:31:36
ahoj,
trochu laboruju se ScriptMakerem, a hned mam nekolik dotazu:
1) Mohu nejak docilit, aby instalator mel podobu 'novych' instalatoru ce
Win2k - napr.SeznamListicka je delana v Inno, a ma uz novy design (Inno mam
verzi 1.3).
2) Potrebuju, aby se pri spusteni instalace uz bezici program schodil (znovu
nahodit ho uz umim).
3) Nemate nekdo uz zlokalizovany soubor Default.isl do cestiny?
4) Da se nekde nastavit jmeno odinstalacniho.exe?
diky za odpoved.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
Jak p�en�st seznam mezi Units?
[*] Milan ��ek - 10.3.2001 18:50:45
ahoj,
nevim presne, jak nejlepe vyresit nasledujici:
Potrebuju z jedne unity pouzit jakousi 'seznam-tabulku' v hlavni unite
programu. Pocet polozek neznam, a kazda polozka obsahuje asi 5udaju
(Handle,WindowsName,WindowState...).
Mozna bych to mohl predavat jako StringList, ale neni mi jasne, jak bych pak
jednotlive polozky na 1radku od sebe vyseparoval - napr. WindowsName muze
obsahovat jakekoli znaky (vcetne ,;#).
Pak me napadlo jeste nadeklarovat si:
type TMujList = array of record Handle: HWND; WindowName,WindowState:
string; Width,Height: integer; end;
ale tady nevim, jak naalokovat velikost pole, kdyz nezmam pocet radku.
Diky za radu, a kdyby byla nejaka prakticka ukazka... :-)
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
InnoSetup+ScriptMaker
[*] Tomas Skoda <delphi(zv)jdsoftware.sk> - 10.3.2001 21:46:26
Ahoj
> On Behalf Of Milan #ݿek
> Sent: Saturday, March 10, 2001 6:32 PM
>
> 1) Mohu nejak docilit, aby instalator mel podobu 'novych' instalatoru ce
> Win2k - napr.SeznamListicka je delana v Inno, a ma uz novy design
> (Inno mam verzi 1.3).
Potrebujes My Inno Setup Extensions (http://www.wintax.nl/isx/)
> 3) Nemate nekdo uz zlokalizovany soubor Default.isl do cestiny?
tiez sa da najst na hlavnej stranke *extensions*.
Tomas
Hromadny enable a zmena barvy
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 10.3.2001 23:56:01
Ahoj vsem,
potreboval bych poradit s nasledujicim problemem.
Po kazdem Afterscroll tabulky provadim enable nebo disable jednotlivych poli
a zmenu jejich barvy a to podle hodnty pole Varianta.Text. Ja to resim takto
neohrabane.
procedure TDataModul.ProstredkyAfterScroll(DataSet: TDataSet);
begin
Typ:= Prostredky.FieldByName('Varianta').asString;
if Typ = 'V' then
begin
frmProstredky.Skupina.Color:= clWindow; frmProstredky.Skupina.Enabled:=
True;
frmProstredky.Objem.Color:= clWindow; frmProstredky.Objem.Enabled:=
True;
frmProstredky.Cista.Color:= clWindow; frmProstredky.Cista.Enabled:=
True;
frmProstredky.Prohlaseni.Color:= clInactiveBorder;
frmProstredky.Prohlaseni.Enabled:= False;
frmProstredky.Hruba.Color:= clInactiveBorder;
frmProstredky.Hruba.Enabled:= False;
frmProstredky.Dodavatel.Color:= clInactiveBorder;
frmProstredky.Dodavatel.Enabled:= False;
frmProstredky.Jakost.Color:= clInactiveBorder;
frmProstredky.Jakost.Enabled:= False;
frmProstredky.Uroven.Color:= clInactiveBorder;
frmProstredky.Uroven.Enabled:= False;
frmProstredky.Varianta.Color:= clWindow;
frmProstredky.Varianta.Enabled:= True;
end
else if (Typ = 'M') or (Typ = 'K') then
begin
frmProstredky.Skupina.Color:= clInactiveBorder;
frmProstredky.Skupina.Enabled:= False;
frmProstredky.Prohlaseni.Color:= clWindow;
frmProstredky.Prohlaseni.Enabled:= True;
frmProstredky.Objem.Color:= clInactiveBorder;
frmProstredky.Objem.Enabled:= False;
frmProstredky.Hruba.Color:= clWindow; frmProstredky.Hruba.Enabled:=
True;
frmProstredky.Cista.Color:= clWindow; frmProstredky.Cista.Enabled:=
True;
frmProstredky.Dodavatel.Color:= clWindow;
frmProstredky.Dodavatel.Enabled:= True;
frmProstredky.Jakost.Color:= clWindow; frmProstredky.Jakost.Enabled:=
True;
frmProstredky.Uroven.Color:= clInactiveBorder;
frmProstredky.Uroven.Enabled:= False;
frmProstredky.Varianta.Color:= clWindow;
frmProstredky.Varianta.Enabled:= True;
end
else if Typ = 'S' then
begin
frmProstredky.Skupina.Color:= clInactiveBorder;
frmProstredky.Skupina.Enabled:= False;
frmProstredky.Prohlaseni.Color:= clInactiveBorder;
frmProstredky.Prohlaseni.Enabled:= False;
frmProstredky.Objem.Color:= clInactiveBorder;
frmProstredky.Objem.Enabled:= False;
frmProstredky.Hruba.Color:= clInactiveBorder;
frmProstredky.Hruba.Enabled:= False;
frmProstredky.Cista.Color:= clInactiveBorder;
frmProstredky.Cista.Enabled:= False;
frmProstredky.Dodavatel.Color:= clInactiveBorder;
frmProstredky.Dodavatel.Enabled:= False;
frmProstredky.Jakost.Color:= clInactiveBorder;
frmProstredky.Jakost.Enabled:= False;
frmProstredky.Uroven.Color:= clWindow; frmProstredky.Uroven.Enabled:=
True;
frmProstredky.Varianta.Color:= clWindow;
frmProstredky.Varianta.Enabled:= True;
end
else
begin
frmProstredky.Skupina.Color:= clInactiveBorder;
frmProstredky.Skupina.Enabled:= False;
frmProstredky.Prohlaseni.Color:= clInactiveBorder;
frmProstredky.Prohlaseni.Enabled:= False;
frmProstredky.Objem.Color:= clInactiveBorder;
frmProstredky.Objem.Enabled:= False;
frmProstredky.Hruba.Color:= clInactiveBorder;
frmProstredky.Hruba.Enabled:= False;
frmProstredky.Cista.Color:= clInactiveBorder;
frmProstredky.Cista.Enabled:= False;
frmProstredky.Dodavatel.Color:= clInactiveBorder;
frmProstredky.Dodavatel.Enabled:= False;
frmProstredky.Jakost.Color:= clInactiveBorder;
frmProstredky.Jakost.Enabled:= False;
frmProstredky.Uroven.Color:= clInactiveBorder;
frmProstredky.Uroven.Enabled:= False;
frmProstredky.Varianta.Color:= clWindow;
frmProstredky.Varianta.Enabled:= True;
end;
end;
Nemate nekdo napad, jak to vyresit elegantneji a hlavne bez takoveho
balastu. Stydim se za to, ale
nenapadlo me zatim nic chytrejsiho.
Diky vsem za napady a postrceni.
Filip
Jak p�en�st seznam mezi Units?
[*] Delphi <DelphiForum(zv)seznam(tec)cz> - 11.3.2001 01:16:55
Ja bych to udelal pres TList. Ten tvuj record bych nechal, akorat bych
dodelal toto :
type
pMujList = ^TMujList;
var
list : TList;
pl : pMujList;
Kdyz chces pridat zaznam udelas asi toto :
new (pl);
pl.Handle := ...
....
list.Add(pl);
Vybiras treba podle indexu
pl := list[2];
OnCreate :
list := TList.Create;
OnDestroy :
list.Free;
V podstate nic sloziteho, zato velice ucinne.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Milan #ݿek <cizek.milan(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, March 10, 2001 6:50 PM
Subject: Jak p�en�st seznam mezi Units?> ahoj,
> nevim presne, jak nejlepe vyresit nasledujici:
> Potrebuju z jedne unity pouzit jakousi 'seznam-tabulku' v hlavni unite
> programu. Pocet polozek neznam, a kazda polozka obsahuje asi 5udaju
> (Handle,WindowsName,WindowState...).
> Mozna bych to mohl predavat jako StringList, ale neni mi jasne, jak bych
pak
> jednotlive polozky na 1radku od sebe vyseparoval - napr. WindowsName muze
> obsahovat jakekoli znaky (vcetne ,;#).
> Pak me napadlo jeste nadeklarovat si:
>
> type TMujList = array of record Handle: HWND; WindowName,WindowState:
> string; Width,Height: integer; end;
>
> ale tady nevim, jak naalokovat velikost pole, kdyz nezmam pocet radku.
>
> Diky za radu, a kdyby byla nejaka prakticka ukazka... :-)
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
> Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
>
>Hromadny enable a zmena barvy
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 11.3.2001 09:09:25
Ahoj,
z poslaneho kousku neni zrejme, co jsou to frmProstredky.Skupina a spol.,
ale pokud to ma property Tag, tak jej muzes vyuzit pro identifikaci.
Ovladaci prvky (asi to jsou TEdity, ne ?) si rozdelis do skupin, ktere se
chovaji stejne, tem nastavis stejny tag a pak uz staci napsat proceduru,
ktera zmeni pozadovane vlastnosti (v tvem pripade Color a Enabled) tak, jak
potrebujes. Prikladam kratkou ukazku, jak neco podobneho pouzivam na
hromadne nastaveni Enabled a Visible.
type
SetByTag = (SetEnable, SetVisibility);
procedure SetControlByTag(what : SetByTag; Frm : TComponent; Value :
boolean; T : integer);
var
i : integer;
begin
for i := 0 to pred(Frm.ComponentCount) do
begin
if Frm.Components[i] is TControl then
begin
if Frm.Components[i].Tag = T then
begin
case what of
SetEnable :
begin
(Frm.Components[i] as TControl).Enabled := Value;
end;
SetVisibility :
begin
(Frm.Components[i] as TControl).Visible := Value;
end;
end; {case}
end;
end;
end;
end;
Frm je obvykle form, na kterem ty komponenty lezi.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> Hazuka Filip
> P�edm�t: Hromadny enable a zmena barvy
> Po kazdem Afterscroll tabulky provadim enable nebo disable
> jednotlivych poli
> a zmenu jejich barvy a to podle hodnty pole Varianta.Text. Ja
> to resim takto
> neohrabane.
Jak p�en�st seznam mezi Units?
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 11.3.2001 09:15:51
Ahoj,
je nejaky duvod, proc nepouzit dynamicke pole treba takto:
type
MujRec = record
Handle : HWND;
WindowName, WindowState : string;
Width, Height : integer;
end;
MyList = array of MujRec;
P.S. D5 dynamicka pole podporuji :-))
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Milan #ݿek
> Odesl�no: 10. b�ezna 2001 18:51
> Komu: Delphi konference
> P�edm�t: Jak p�en�st seznam mezi Units?
>
> ahoj,
> nevim presne, jak nejlepe vyresit nasledujici:
> Potrebuju z jedne unity pouzit jakousi 'seznam-tabulku' v hlavni unite
> programu. Pocet polozek neznam, a kazda polozka obsahuje asi 5udaju
> (Handle,WindowsName,WindowState...).
> Mozna bych to mohl predavat jako StringList, ale neni mi
> jasne, jak bych pak
> jednotlive polozky na 1radku od sebe vyseparoval - napr.
> WindowsName muze
> obsahovat jakekoli znaky (vcetne ,;#).
> Pak me napadlo jeste nadeklarovat si:
>
> type TMujList = array of record Handle: HWND; WindowName,WindowState:
> string; Width,Height: integer; end;
>
> ale tady nevim, jak naalokovat velikost pole, kdyz nezmam pocet radku.
>
> Diky za radu, a kdyby byla nejaka prakticka ukazka... :-)
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
> Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
>
>
Image & JPEG
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 11.3.2001 17:27:13
Dobry den,
1) existuje nejaka finta jak menit velikost obrazku tak, aby zustal
proporcionalne spravny?
2) Jak zajistit (udelat) konverzi obrazku do JPG?
Dekuji
Zdenek
IB6 a IBUPDATE
[*] Jindrich Forejt <fofrs(zv)iol(tec)cz> - 11.3.2001 22:37:21
Delphi 5, IB6 a IBUpdateSQL
Mam v tabulce na IBLOCAL vytvoreny AutoInc Trigger na sloupec ID . Potrebuju
abych po insert videl jeho serverem vygenerovane ID. Sice je mozne vzdy
IBQuery zavrit a znova otevrit, ale to je na vice zaznamech trochu dlouhe. A
refresh mi nepomuze protoze v IBUpdateSQL mam .. WHERE ID = :ID, ale kde ID
mam stale az do noveho otevreni IBQuery jako null a ne jako cislo ktere je
na serveru.
Forejt Jindrich
fofrs(zv)iol(tec)cz
Shortcut na nejaku RAS-entry v Phonebooku
[*] Daniel Schmidt <dschmidt(zv)centrum.sk> - 11.3.2001 23:13:39
Dobry den,
viete niekto, prosim, ako sa na desktope urobi shortcut na nejaku entry z
phonebooku?
T.j. ako vytvorim ikonku na desktope, ze po kliknuti na nu sa zacne
vytacanie modemu?
Dakujem
Daniel Schmidt
mailto://dschmidt(zv)centrum.sk
Databaze -> David Lebeda a nejenom pro neho
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.3.2001 06:44:50
> Mas naprostou pravdu Davide. Pouzivam TTable.
> Duvod je jednoduchy. Tato komponenta pro me byla, kdyz jsem zacinal
> jednodussi. Vytvoril jsem si jiste znalosti a ted se mi spatne
> prechazi.
Ja vim, taky jsem zacinal na TTable a hodne dlouho se mi od ni
nechtelo pryc.
Jenze jsem videl uz nekolik aplikaci, ve kterych TTable delala
zcela nevysvetlitelne psi kusy. Zdvojene radky, ale i treba to, ze byl
DBGrid opreny o TTable a pote, co jsem doroloval na posledni
zaznam, uz se nedalo rolovat zpatky nahoru (ale ne uplne vzdy). A
jine a jine. Na neco pomohlo dat do vhodne After... udalosti
Refresh, ale to rozhodne neni dobra cesta. Po prechodu na Query
uvedene problemy zmizely.
Je pravda i to, co tu tvrdi (temer) vsichni - nepouzivat BDE
komponenty. Presto si myslim, ze pro zacatek, tj. pro nauceni se
pouzivat TQuery, nepredstavuje BDE prilis vyraznou prekazku.
>
> Nemam totiz nektere veci vyjasnene jak je udelat. A co hlavne, chybi
> mi celkovy princip jak pracovat s komponentou Query. Jak zobrazovat
> udaje do formulare vim, ale nevim kdy nacitat udaje do Query, zda je
> lepsi dat celkovy select (Select * from ...) nebo jak editovat
> zaznamy, jak vytvaret policko identity a jak provazat jednotlive
> tabulky jako master atd...
V takovemto pripade bych mozna pouvazoval o ucasti na
nejakem skoleni. Rekl bych, ze to bude prinejmensim rychlejsi nez
vlastni badani.
Obecne mas u Query dve moznosti. Bud jiz v dobe navrhu do
property SQL predepsat prislusny dotaz, nebo jej plnit az podle
potreby z kodu nejak takto
with Query1 do
begin
SQL.Clear;
SQL.Add('select ....');
SQL.Add('where....');
end;
Nevyhodou prvniho zpusobu je, ze na kazdy dotaz potrebujes
samostatnou Query, coz je nekdy zbytecne, takze se obvykle
pouziva i druhy zpusob, resp. jejich kommbinace.
select * from... neni dobry zpusob, zejmena ne proto, ze v rade
pripadu te nezajimaji vsechny sloupce, takze je zbytecne se na ne
ptat. Vzdy je lepsi je vyjmenovat, i v pripade, kdy jich ma tabulka
hodne. Vyhodu to ma i v tom, ze kdyz pak do tabulky v databazi
treba pridas sloupec, neprojevi se ti to necekane i v mistech, kde s
tim sloupcem pracovat nechces.
David
IB6 a IBUPDATE
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.3.2001 06:50:28
> Delphi 5, IB6 a IBUpdateSQL
>
> Mam v tabulce na IBLOCAL vytvoreny AutoInc Trigger na sloupec ID .
> Potrebuju abych po insert videl jeho serverem vygenerovane ID. Sice je
> mozne vzdy IBQuery zavrit a znova otevrit, ale to je na vice zaznamech
> trochu dlouhe. A refresh mi nepomuze protoze v IBUpdateSQL mam ..
> WHERE ID = :ID, ale kde ID mam stale az do noveho otevreni IBQuery
> jako null a ne jako cislo ktere je na serveru.
Nedelal bych autoinc pole pomoci triggeru. Staci ulozena
procedura, ktera vrati hodnotu ziskanou z generatoru, a tu ty sam
insertujes do tabulky spolu s ostatnimi daty.
David
>
> Forejt Jindrich
> fofrs(zv)iol(tec)cz
>
>
InnoSetup+ScriptMaker
[*] "Fait Ji��, ml." <fait(zv)jakl(tec)cz> - 12.3.2001 07:13:57
Neni treba pouzivat InooSetup Extensions, stahni si InnoSetup 2.0 a na
strance je i lokalizovany Czech.isl.
Jiri Fait
-----Original Message-----
From: Milan #ݿek [mailto:cizek.milan(zv)seznam(tec)cz]
Sent: Saturday, March 10, 2001 6:32 PM
To: Delphi konference
Subject: InnoSetup+ScriptMaker
ahoj,
trochu laboruju se ScriptMakerem, a hned mam nekolik dotazu:
1) Mohu nejak docilit, aby instalator mel podobu 'novych' instalatoru ce
Win2k - napr.SeznamListicka je delana v Inno, a ma uz novy design (Inno
mam
verzi 1.3).
2) Potrebuju, aby se pri spusteni instalace uz bezici program schodil
(znovu
nahodit ho uz umim).
3) Nemate nekdo uz zlokalizovany soubor Default.isl do cestiny?
4) Da se nekde nastavit jmeno odinstalacniho.exe?
diky za odpoved.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
Jak sortovat data v gridu?
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 12.3.2001 07:26:48
Ahoj
Na TQuery: Znovu ji vyvolat s klauzuli ORDER BY.
Dobre se to da na TClientDatasetu. Tam je mozne si natahnout data z Query a
pak s nimi pracovat jako s tabulkou tzn indexovat, prepinat indexy apod. Ma
to jednu nevyhodu. Potrebujes verzi Enterprise, protoze vyuzivas MIDAS.
Jaromir Cermak
-----Original Message-----
From: Josef L���a� [mailto:josef.lzicar(zv)atlas(tec)cz]
Sent: Thursday, March 08, 2001 10:44 PM
To: Delphi konference
Subject: Jak sortovat data v gridu?
Nevim, jak sortovat data napr. v gridu. Udelam dotaz (query) a pak potrebuji
tu vyslednou sadu seradit (v gridu napr. uzivatel chce tridit podle
sloupcu). Jak na to?
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001
InnoSetup+ScriptMaker
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 12.3.2001 07:59:46
Tohle vsechno umi nova verze 2.0, zatim jsem to nezkousel. Jinak jiz
drive zminovane Inno Setup Extensions. Lokalizace do cestiny najdes na
Inno Setup a Inno Setup Ext.
Milan #ݿek wrote:
>
> ahoj,
> trochu laboruju se ScriptMakerem, a hned mam nekolik dotazu:
>
> 1) Mohu nejak docilit, aby instalator mel podobu 'novych' instalatoru ce
> Win2k - napr.SeznamListicka je delana v Inno, a ma uz novy design (Inno mam
> verzi 1.3).
> 2) Potrebuju, aby se pri spusteni instalace uz bezici program schodil (znovu
> nahodit ho uz umim).
> 3) Nemate nekdo uz zlokalizovany soubor Default.isl do cestiny?
> 4) Da se nekde nastavit jmeno odinstalacniho.exe?
>
> diky za odpoved.
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
> Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
ADO a Informix
[*] malasek(zv)homecredit(tec)cz - 12.3.2001 8:09:44
Bezne se pripojuji na Informix /7/ pres OLEDB a ADO. Je potreba nainstalovat v Informix client setupu pristup pres OLEDB a pres SETNET32 spravne nakonfigurovat pripojeni. Jen jsem narazil na problem, nespravne se zobrazuje RecordID a pokud pouziju jeho hodnotu, bez jakekoliv hlasky spadne cele DELPHI. ODBC je spolehlivejsi, ale jeste nevim, jestli to zpusobuje OLEDB, ADO, nebo ADOExpress.
BYE Petr
>
> Nemate nekdo zkusenosti z pripojenim ADO na Informix. Pres
> ODBC to jede
> ale zajima nas preve to DAO.
>
> Jiri Fait
> kontrola pravopisu
[*] Milan Dvorak <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 12.3.2001 08:20:19
Ahoj,
nedavno se tady nekdo ptal na moznost kontroly pravopisu. Nez
jsem na to stacil reagovat, zahodil jsem si zdrojovy dotaz, takze
odpovidam takto obecne.
Pokud ma tazajici porad zajem, mohu mu poslat komponentu,
ktera v pripade za na je damem pocitaci nainstalovan Word, spusti
jeho dialog, ktery se o kontrolu stara (vcetne vyuziti slovniku, ktery
je k tomu potreba).
Milan Dvorak
dvorak(zv)gymzn(tec)cz
IB6 a IBUPDATE
[*] Richard Kejval <kejval.delphi(zv)atlas(tec)cz> - 12.3.2001 08:35:04
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Do triggeru Dej podminku
if ( ID is null ) then
new.ID=Gen ID("Generator",1);
V Delphi pouzij TIBSQL a nastav do SQL:
Select Gen ID("Generator",1) ID from rdb$databases
No a na After Insert zavolej ExecQuery a normalne nacti do ID hodnotu z TIBSQL a mas to.
Ma to jednu nevyhodu, jestli das storno vety, pak je generator uz posunuty, takze ja to davam az na before post. Bohuzel pri stornovani transakce uz generator zustane posunuty, ale to by vetsinou nemelo vadit.RichEdit, data ze souboru a cestina
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 12.3.2001 08:37:18
Ja pouzivam jbStr od http://www.micrel(tec)cz/delphi/#jbstr
Pavel
----- Original Message -----
From: Petr <petr(zv)slunce(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 09, 2001 9:50 AM
Subject: RichEdit, data ze souboru a cestina
> Ahojte,
>
> potreboval bych poradit s takovou banalitkou:
>
> 1) Nactu ASCII soubor (psany pod kod.str.852) pomoci AssignFile, Reset,
> Readln a jednotlive radky cpu do RichEditu, ve kterem je zkomolena
> diakritika.Je nejaka fce primo v Delphi, ktera by to dokazala prevest z
852
> do 1250? Asi ne, ze jo? Muzete mi poradit, jak to mam provest?
>
> 2) To same co ad 1) az na to ze se jedna o memo z DBase IV. Pro memo
neplati
> nastaveni langdriveru z BDE? Ono totiz ostatni fieldy zobrazuji cestinu v
> pohode.
>
> To memo dostavam do richeditu pres clipboard z dbricheditu.Neda se to
udelat
> nejak primo - jednoduseji?.
>
> Diky
>
> Petr
>
>Problem s FTP
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 12.3.2001 08:40:59
Ahoj, mam malej problem, pouzivam pro prenos souboru
komponentu pro FTP dodanou s Delphi 5.0, Nejak TNMFTP nebo
tak nejak podobne se jmenuje.
Az do minuleho tydne nebyl problem, sem tam se sice nejaky
soubor poskodil ale frekvence poskozeni byla prijatelna, az do
okamziku, kdy jsem dal SW na novou pobocku a zaclo to,
poskozeno je zhruba 70% souboru a vzhledem k tomu, ze se
odesilaji 3 soubory pri kazde davce, tak za ten tyden problehla
uspesne jen jedna. Soubor je poskozen tak ze mu nekde v pulce
vypadne 1-x bytu.... Odjinud to zatim funguje.
A pozor
1. snizeni rychlosti modemu nepomuze.
2. kdyz jsem z toho pocitace nahraval na FTP pomoci
WinComanderu tak to slapalo jak hodinky.
Prosim pomooooooooc,,,, co stim muze byt ????????
Dekuji predem.. S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Jak sortovat data v gridu?
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 12.3.2001 09:02:41
Ahoj,
zkus zaznamy naimportovat do RXDataMemory a tam lze zaznami sortovat podle
jednotlivych poli.
Petr Kejval
Subject: Jak sortovat data v gridu?>Skiny
[*] Pavel Vasek <delphi(zv)wige-mic(tec)cz> - 12.3.2001 09:10:36
Staci dat vyhledat na altaviste skin AND delphi a najdes spoustu odkazu na
ruzne komponenty
specialne urceny prave pro praci se skiny. Jedna z nich je napr.
http://www.praktical.com , ty jsou sice za poplatek, ale vyzkouset si je
muzes. Clanek jak vytvorit formular pro skin je zde:
http://gethelp.devx.com/techtips/delphi_pro/10min/10min1099.asp
Pavel Vasek
----- Original Message -----
From: "Va�ek N�vrat" <engine(zv)ropacek(tec)cz>
To: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 09, 2001 9:02 PM
Subject: Skiny
> Dobrej den!
>
> Zaujala me funkce cim dal tim vice programu - pouzivat tzv. skiny. Vi
nekdo,
> jak na to, abych neco podobneho mohl pouzit i ve sve aplikaci?
>
> Diky
> Vasek Navrat
Image & JPEG
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 12.3.2001 09:11:36
DDV,
podivejte se na "Intel JPEG library", jsou tam i priklady pro delphi
(hadejte pro jaky procesor to je optimalizovno:-) ).
a.
> -----Original Message-----
> From: Zdenek Janish [mailto:medusa(zv)brajan(tec)cz]
> Sent: Sunday, March 11, 2001 5:27 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Image & JPEG
>
>
> Dobry den,
>
> 1) existuje nejaka finta jak menit velikost obrazku tak, aby zustal
> proporcionalne spravny?
> 2) Jak zajistit (udelat) konverzi obrazku do JPG?
>
> Dekuji
> Zdenek
>
> Nespravny username alebo password.
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 12.3.2001 09:21:43
Jak se pripojujete k IB?
a) BDE
b) IB_OBjects
c) IBX
d) jinak
Osobne pouzivam (b) a tam pak prihlaseni delam rucne u komponenty connection
(BDE ma TDatabase, IBX nevim), se zavola metoda Connect().
No a pak mate prehrsel eventu, ktere muzete testovat, treba OnError, nebo
AfterConnect, podivejte se do maulau k prislusnym komponentak, ktere
pouzivate.
Z dotazu se mi zda, ze mate databazi uvedenou u kazdeho query (tedy server a
cestu k souboru), pokud to tak je, zacene pouzivat TDatabase pripadne
TConnection, nebo jak se to u Vami pozivanych komponet jmenuje a pripojujte
se pres tuto komponentu a u TIBQuery... pouze nastavte connection na vasi
komponentu, kterou se pripojujete k DB. Pokud jsem blbe pochopil dotaz, tak
se omlouvam a nic jsem nikdy nenapsal... :-)
a.
-----------------------------------------------------------------------
Ale# Zelen� (OK1UUE)
#esk� spo�itelna a.s.
Na Per#t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
-----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.
> -----Original Message-----
> From: Roland Turcan - RoTurSoft [mailto:rotursoft(zv)nextra.sk]
> Sent: Friday, March 09, 2001 10:23 PM
> To: Delphi CZ konferencia
> Subject: Nespravny username alebo password.
>
>
> Zdravim.
>
>
> Ako odchytim v IBDatabase, ze nastala chyba napr. zle heslo,
> neplatna cesta
> k databaze, nespousteny server na lokal PC,... Lebo je tam
> len event OnLogin
> kde vytvorim okno pomocou ktoreho vypytam username a password. Ale ak
> nastala chyba tak neviem ho odchytit. OnLogin sa spusta, len
> ak niekde sa
> spusta IBQuery a predsa nie je myslitelne aby som pri kazdom
> okne kde pytam
> data. Dufam ze som to pochopitelne napisal co vlastne chcem.
> Ako to riesite.
>
> dakujem.
>
> Roland
> Zpravy pri aktivovanem menu
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 12.3.2001 09:43:03
Ahoj,
problem je v tom, ze v okamziku, kdy se menu aktivuje, zpravy
prestanou dochazet (zkousel jsem s popup menu, ale to je jedno).
Pritom WinSpy je vidi a podle neho by mely byt urceny (pokud
jsem to spravne identifikoval) pro skryte okno aplikace, takze me
prekvapilo, ze jsem je nevidel ve zpracovani OnMessage, kam by
mely prijit jako prvni. Obdobne zpravy od klavesnice jsou
adresovany oknu formu, ale ani ty jsem zatim neodchytil.
Mam vlastni toolbar s menu a potreboval jsem to k tomu, abych
mohl pri spustenem menu prejit na vedlejsi nabidku presunutim
mysi nebo klavesou, jak je to obvykle.
Jiri Binder
From: Pavel Malinsky <spiderland(zv)iol(tec)cz>
> jestli jsem pochopil o co ti jde tak treba takhle:
>
> type
> TForm1 = class(TForm)
> [...]
> private
> { Private declarations }
> procedure WMNCHitTest(var Message: TMessage); message
> WM_NCHITTEST;
> public
> { Public declarations }
> end;
>
> procedure TForm1.WMNCHitTest(var Message: TMessage);
> begin
> with Message, ScreenToClient(Point(LOWORD(lParam),HIWORD(lParam)))
> do
> Caption:= Format('X: %d, Y: %d',[x,y]);
> inherited;
> end;
>
> > Behalf Of Jiri Binder
> > nejak se mi nedari zachytit zpravy mysi (konkretne
> > wm_mousemove) a wm_keydown up, pri aktivovanem menu.
> > Ani Application.OnMessage nepomaha. Nevite nahodou kde je
> > zakopany pes, resp. ty zpravy?
> > Jiri Binder
IB6 a IBUPDATE
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 12.3.2001 09:50:31
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
no, ja byt ten select jeste s dovolenim upravil
Select Gen_ID("Generator",1) ID from rdb$generators
where GENERATOR_NAME = 'MUJ_GENERATOR';
No, co kdyz jednou _TREBA_ tabulka RDB$DATABASE bude moct mit vice radek?
a.
Pisu to z hlavy, takze mne netlucte, pokud se sloupec s jemnem generatoru
jmenuje trochu jinak, treba RDB$GENERATOR_NAME... princip je jasny
-----Original Message-----
From: Richard Kejval [mailto:kejval.delphi(zv)atlas(tec)cz]
Sent: Monday, March 12, 2001 8:35 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: IB6 a IBUPDATE
Do triggeru Dej podminku
if ( ID is null ) then
new.ID=Gen_ID("Generator",1);
V Delphi pouzij TIBSQL a nastav do SQL:
Select Gen_ID("Generator",1) ID from rdb$databases
No a na After Insert zavolej ExecQuery a normalne nacti do ID hodnotu z
TIBSQL a mas to.
Ma to jednu nevyhodu, jestli das storno vety, pak je generator uz posunuty,
takze ja to davam az na before post. Bohuzel pri stornovani transakce uz
generator zustane posunuty, ale to by vetsinou nemelo vadit.
TWebBrowser
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 12.3.2001 09:54:01
Caute
pouzivam ve sve aplikaci TWebBrowser. Kdyz dam Navigate2, tak se mi v okne
zobrazi html stranka jen v pripade ze se ukonci procedura ve ktere Navigate2
volam, ale ja mam za Navigate2 jeste nejaky cyklus ktery chvili trva a dokud
se neukonci tak mi to proste nezacne stahovat. Mate s tim nejake zkusenosti
?
dik
InnoSetup+ScriptMaker
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 12.3.2001 10:02:43
ahoj,
a existuje uz ScriptMaker pro verzi InnoSetup 2.0???
S pozdravem Milan Cizek, D5 Ent
> Tohle vsechno umi nova verze 2.0, zatim jsem to nezkousel. Jinak jiz
> drive zminovane Inno Setup Extensions. Lokalizace do cestiny najdes na
> Inno Setup a Inno Setup Ext.
_____________________________________________________________________
WWW stranky zdarma na http://www.sweb(tec)cz
kontrola pravopisu
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 12.3.2001 10:15:53
Ahoj,
tohle umim, ale potreboval bych neco, co neni vazano na M$. Ani ne
komponentu, spis neco, co proparsuje zadany text s tim, ze vysledky
parsovani si osetrim sam.
Ale stejne diky.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Milan Dvorak
> Odesl�no: 12. b�ezna 2001 8:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: kontrola pravopisu
>
>
> Ahoj,
>
> nedavno se tady nekdo ptal na moznost kontroly pravopisu. Nez
> jsem na to stacil reagovat, zahodil jsem si zdrojovy dotaz, takze
> odpovidam takto obecne.
> Pokud ma tazajici porad zajem, mohu mu poslat komponentu,
> ktera v pripade za na je damem pocitaci nainstalovan Word, spusti
> jeho dialog, ktery se o kontrolu stara (vcetne vyuziti
> slovniku, ktery
> je k tomu potreba).
>
> Milan Dvorak
> dvorak(zv)gymzn(tec)cz
>
Problem s InstallShield alebo BDE ???
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 12.3.2001 10:18:22
Dobry den!
Neviete mi niekto poradit co mam robit ked mi pri spustani aplikacie vyhodi
BDE violation. Totiz vytvaram aplikacie ako napr. kartoteky atd. Ked som to
robil pod Delphi 3.0 C/S a InstallShield ktory bol na CD ku Delphi 3.0 C/S
tak vsetko bolo v pohode. Akonahle vsak som presiel pod Delphi 5 Entpr. Tak
sa vsetko pokazilo. Build prejde normalne ale ked idem instalovat tu
aplikaciu na iny stroj kde nie je nainstalovane Delphi 5 Entr tak instalacia
prebehne korektne ale pri spustani apl. mi to vypluje tu vynimku. Neviete
kde moze byt chyba. Ja uz rozmyslam ze prejdem spat ku Delphi 3.0 C/S. Mam
aj service pack #1 pre Delphi 5 Enterprise a aj nove BDE 5.1.1 a nic.
Pracujem s tabulkami PARADOX.
Za rady vopred dakujem
S pozdravom,
-------------------------------------------------------
Robert Suska, spravca siete, amatersky programator
Radio Lumen, Banska Bystrica
Slovenska republika
www.lumen.sk
spravca(zv)lumen.sk
088/41 25 739 kl.14
-------------------------------------------------------
InnoSetup+ScriptMaker
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 12.3.2001 10:19:53
Ahoj,
zkus ISTool, pouzival jsem ScriptMaker, ale tohle se mi zda lepsi (hlavne to
zije - ScriptMaker se mi zda trosku zatuhl :-)). URL je
http://www.bhenden.org/istool/.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Milan #ݿek
> Odesl�no: 12. b�ezna 2001 10:03
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: InnoSetup+ScriptMaker
>
>
> ahoj,
> a existuje uz ScriptMaker pro verzi InnoSetup 2.0???
>
> S pozdravem Milan Cizek, D5 Ent
>
> > Tohle vsechno umi nova verze 2.0, zatim jsem to nezkousel. Jinak jiz
> > drive zminovane Inno Setup Extensions. Lokalizace do
> cestiny najdes na
> > Inno Setup a Inno Setup Ext.
> _____________________________________________________________________
> WWW stranky zdarma na http://www.sweb(tec)cz
>
Databaze -> David Lebeda a nejenom pro neho
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 12.3.2001 10:24:08
On 12 Mar 2001, at 6:44, David Lebeda wrote:
> Jenze jsem videl uz nekolik aplikaci, ve kterych TTable delala
> zcela nevysvetlitelne psi kusy. Zdvojene radky, ale i treba to, ze byl
> DBGrid opreny o TTable a pote, co jsem doroloval na posledni zaznam,
> uz se nedalo rolovat zpatky nahoru (ale ne uplne vzdy). A jine a jine.
> Na neco pomohlo dat do vhodne After... udalosti Refresh, ale to
> rozhodne neni dobra cesta. Po prechodu na Query uvedene problemy
> zmizely.
TQuery proti MS SQL ma v podstate stejne problemy, plus jeste
nejake dalsi. Obdobne nezadouci vlastnosti jsem zjistil i proti IB.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak sortovat data v gridu?
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 12.3.2001 11:02:03
> Nevim, jak sortovat data napr. v gridu. Udelam dotaz (query) a pak
potrebuji
> tu vyslednou sadu seradit (v gridu napr. uzivatel chce tridit podle
> sloupcu). Jak na to?
>
>
Bude se muset vzdy udelat novy dotaz s prislusnym ORDER BY podle ceho se ma
tridit.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
kontrola pravopisu
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 12.3.2001 11:04:41
Coz to, parser na text neni problem, ale nejde hlavne o to co sa s tym
vyslednym "Tokenom" (slovom) z parseru ma robit?
Respektivne, co povazujes za vysledok parsrovania?
Pavol Kakacka
kasix(zv)atlas(tec)cz
----- Original Message -----
From: "Jir� Foldyna" <jiri.f(zv)avizo(tec)cz>
tohle umim, ale potreboval bych neco, co neni vazano na M$. Ani ne
komponentu, spis neco, co proparsuje zadany text s tim, ze vysledky
parsovani si osetrim sam.
kontrola pravopisu
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 12.3.2001 11:33:12
Ahoj,
za parsovani v souvislosti se spellcheckerem samozrejme nepovazuji pouhou
tokenizaci textu, to fakt neni problem :-), ale kontrolu textu podle
lexikalnich pravodel jazyka (ne tedy mechanicke srovnani se slovnikem - to
by musel byt ten slovnik ku..vsky dlouhy). Spellcheckery pokud mam hodne
chabou povedomost o jejich funkci to delaji tak, ze rozparou text na slova
podle nejakych pravidel a pak jednotliva slova zkusi napasovat na na neco,
co maji v zabudovanem slovniku (matne si vzpominam na veci jako je slovni
zaklad, pripona, predpona, tvaroslovi a tak podobne z davnych dob skolni
dochazky). Pokud timto mlynkem slovo neprojde, zkontroluje se jeste
CUSTOM.DIC, jestli tam nahodou neni (ale pozor, tam se kontroluje presna
shoda, takze by tam musi byt kazdy tvar - viz. checkovani jmen treba ve
Wordu), no a kdyz ho ani tam nenajde, tak by to mel oznamit spolu s
pripadnymi doporucenimi ohledne oprav. Takhle nejak funguje implementace
spellcheckeru spellers z TORRY - tam se prave pouziva spellchecker z M$
Wordu pres CSAPI. No a jabych potreboval prave ten checkovaci engine s
implementaci pravidel ceskeho pravopisu a slovnikem.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Pavol Kakacka
> Odesl�no: 12. b�ezna 2001 11:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: kontrola pravopisu
>
>
> Coz to, parser na text neni problem, ale nejde hlavne o to co sa s tym
> vyslednym "Tokenom" (slovom) z parseru ma robit?
> Respektivne, co povazujes za vysledok parsrovania?
>
> Pavol Kakacka
> kasix(zv)atlas(tec)cz
>
> ----- Original Message -----
> From: "Jir� Foldyna" <jiri.f(zv)avizo(tec)cz>
>
> tohle umim, ale potreboval bych neco, co neni vazano na M$. Ani ne
> komponentu, spis neco, co proparsuje zadany text s tim, ze vysledky
> parsovani si osetrim sam.
>
>
QRep & QRCompositeReport
[*] Krska Vit <v_krska(zv)del(tec)cz> - 12.3.2001 11:34:34
ten samy problem jsem resil taky. vyresil jsem to pouzitim verze 3.0.5. v ty
to fakci.
nebo si udelat vlastni prewiev.
Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Lauko �tefan
Sent: Tuesday, March 13, 2001 9:22 AM
To: delphi-l(zv)fwd(tec)cz
Subject: QRep & QRCompositeReport
Ahoj,
mam problem s QRCompositeReport. Mam dva QuickRep ktore som spojil do
QRCompositeReport. Ked zavolam QRCompositeReport1.PreView je vsetko v
poriadku ale ked kliknem na "Print" v tom momente hlasi Acess violation.
Tlaciaren je nainstalovana spravne, ostatne - QuickRep1.PreView - "Print"
funguju.
Co mam zle nastavene? (v podstate som nic nenastavoval vsetko je "Default")
<D5, QR 3.0.7, W2000>
Dakujem...
Lauko
Databaze -> David Lebeda a nejenom pro neho
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.3.2001 11:52:46
> > Jenze jsem videl uz nekolik aplikaci, ve kterych TTable delala
> > zcela nevysvetlitelne psi kusy. Zdvojene radky, ale i treba to, ze
> > byl DBGrid opreny o TTable a pote, co jsem doroloval na posledni
> > zaznam, uz se nedalo rolovat zpatky nahoru (ale ne uplne vzdy). A
> > jine a jine. Na neco pomohlo dat do vhodne After... udalosti
> > Refresh, ale to rozhodne neni dobra cesta. Po prechodu na Query
> > uvedene problemy zmizely.
>
> TQuery proti MS SQL ma v podstate stejne problemy, plus jeste
> nejake dalsi. Obdobne nezadouci vlastnosti jsem zjistil i proti IB.
>
Netvrdim, ze TQuery je bez problemu, ale troufam si tvrdit, ze jich
ma (podstatne) mene nez TTable. Pouhym nahrazenim TTable
pomoci TQuery se leccos zlepsi. Jak ale rikam, je to jen lepsi,
nikoli dobre.
David
OT: WinMe a volna pamet 640K
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 12.3.2001 11:58:27
Dobry den,
potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
kB.
Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
Prosim i o odpoved, ze to zarucene nejde a proc.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
IB6 a IBUPDATE
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.3.2001 12:16:14
ibx 4.5 uz spravne funguje pripojeni generatoru.
proste vyberes generator, zadas hodnotu pro zvednuti a pole, do ktereho
se ti natlaci hodnota z generatoru ;)
je to od verze 4.42 ale neslapalo to, ted uz jo.
hodnota je naplnena hned jak ji dostanes k editaci, takze ji muzes
pouzit jeste pred postem (napriklad v detail vetech).
btw, piste txt, ne html.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Problem s InstallShield alebo BDE ???
[*] Milan Dvorak <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 12.3.2001 12:20:32
Ahoj,
a instalujes na ty druhe pocitace i novou verzi BDE. Kdyz to totiz u
sebe zkompilujes s BDE verze 5.x, tak to nepojede na pocitaci,
kde je nainstalovano BDE 3.x.
> Dobry den!
>
> Neviete mi niekto poradit co mam robit ked mi pri spustani aplikacie vyhodi
> BDE violation. Totiz vytvaram aplikacie ako napr. kartoteky atd. Ked som to
> robil pod Delphi 3.0 C/S a InstallShield ktory bol na CD ku Delphi 3.0 C/S
> tak vsetko bolo v pohode. Akonahle vsak som presiel pod Delphi 5 Entpr. Tak
> sa vsetko pokazilo. Build prejde normalne ale ked idem instalovat tu
> aplikaciu na iny stroj kde nie je nainstalovane Delphi 5 Entr tak instalacia
> prebehne korektne ale pri spustani apl. mi to vypluje tu vynimku. Neviete
> kde moze byt chyba. Ja uz rozmyslam ze prejdem spat ku Delphi 3.0 C/S. Mam
> aj service pack #1 pre Delphi 5 Enterprise a aj nove BDE 5.1.1 a nic.
> Pracujem s tabulkami PARADOX.
>
> Za rady vopred dakujem
>
> S pozdravom,
>
> -------------------------------------------------------
> Robert Suska, spravca siete, amatersky programator
> Radio Lumen, Banska Bystrica
> Slovenska republika
> www.lumen.sk
> spravca(zv)lumen.sk
> 088/41 25 739 kl.14
> -------------------------------------------------------
Milan Dvorak
dvorak(zv)gymzn(tec)cz
WinMe a volna pamet 640K
[*] Martin Bobak <bobak(zv)minv.sk> - 12.3.2001 12:27:21
s WinME je problem pretoze , WinME uz totizto nema dos ako ho pozname z 9x.
Ma len nejake terminalove okno, ale klasicky stary DOS tam uz nie je.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Karel Kral
Sent: Monday, March 12, 2001 11:58 AM
To: Konference Delphi
Subject: OT: WinMe a volna pamet 640K
Dobry den,
potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
kB.
Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
Prosim i o odpoved, ze to zarucene nejde a proc.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
TWebBrowser
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 12.3.2001 12:53:43
ahoj,
nevim sice o jaky cyklus jde, ale pokud na nem trvas, mozna bys ho mohl dat do vlastniho threadu, nebo pouzit Timer.
S pozdravem Milan Cizek, D5 Ent
> Caute
> pouzivam ve sve aplikaci TWebBrowser. Kdyz dam Navigate2, tak se mi v okne
> zobrazi html stranka jen v pripade ze se ukonci procedura ve ktere Navigate2
> volam, ale ja mam za Navigate2 jeste nejaky cyklus ktery chvili trva a dokud
> se neukonci tak mi to proste nezacne stahovat. Mate s tim nejake zkusenosti
> ?
> dik
>
_____________________________________________________________________
Co davaji v TV? http://tv.seznam(tec)cz
WinMe a volna pamet 640K
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.3.2001 13:11:50
Ale ony WinME ten DOS maji, akorat se ho snazi co nejvice maskovat,
aby MS uzivatele donutil ty dosovske programy opustit :-)
Verim tomu, ze to nastavit pujde, pouze se bude muset jit do
System.INI, podobne jako u max. poctu otevrenych souboru. Pokud je mas
koupene legalne, od ceho je hotline MS ? :-)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.03.2001 Martin Bobak:
> s WinME je problem pretoze , WinME uz totizto nema dos ako ho pozname z 9x.
> Ma len nejake terminalove okno, ale klasicky stary DOS tam uz nie je.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Karel Kral
> Sent: Monday, March 12, 2001 11:58 AM
> To: Konference Delphi
> Subject: OT: WinMe a volna pamet 640K
> Dobry den,
> potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
> nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> kB.
> Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> Prosim i o odpoved, ze to zarucene nejde a proc.
> --
> ______________________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
Jak sortovat data v gridu?
[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 12.3.2001 13:27:48
Obsluz u gridu udalost OnTitleClick
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
DM.ADOQuery1.Active := False;
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.SQL.Add('select * from order by ' + Column.Field.Fullname);
DM.ADOQuery1.Active := True;
end;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
-----Original Message-----
From: Jaroslav Nadhera [mailto:nadhera(zv)csh(tec)cz]
Subject: Re: Jak sortovat data v gridu?> Nevim, jak sortovat data napr. v gridu. Udelam dotaz (query) a pak
potrebuji
> tu vyslednou sadu seradit (v gridu napr. uzivatel chce tridit podle
> sloupcu). Jak na to?
>
>
Bude se muset vzdy udelat novy dotaz s prislusnym ORDER BY podle ceho se ma
tridit.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
SMS
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 12.3.2001 13:31:11
Pres modem primo to nelze. SMS se totiz nikdy neposila primo z mobilu na
mobil. Pokud z mobilu odesles sms, pak mobil zavola na cislo "centrum sms" a
tam preda kod sms. Toto centrum sms zpracuje a odesle prez sms-server u
tveho operatora primo cilovemu mobilu. Pokud bys chtel prez tento modem
volat na servisni centrum, musel bys znat protokol komunikce a navic by ses
musel identifikovat jako registrove cislo sveho operatora.
Nejsnazsi cesta je asi prez http script. Pripadhne prez komunikaci s
pripojenym mobilem, ktery sms odesle.
Michal Tiller
-----Original Message-----
From: Tomas Pocarovsky [mailto:pocarovsky(zv)volny(tec)cz]
Sent: Friday, March 09, 2001 11:24 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SMS
Ahoj
Lze (je technicky mozne) poslat sms primo z modemu na mobil?
Nebo sms organizuje nejakej sms server a z pevne site se na nej nejde
dostat.
Pokud to lze, je na to nejaka komponenta?
Zprostredkovavam havarijni hlaseni technologie z pocitace na mobil, tak me
ty sms prisly jako idealni.
Posilat to pres mail mi prijde riskantni (obsazena linka apod.).
Jeste by byla moznost. Mam program ktery cte text (divne cesky, ale rozumet
tomu je), z databaze ten text umim vytahnout a dialem umim vytocit cislo,
neumim vsak napojit ten hlasovej vystup programu na dial komponentu.
Predem diky za vsechny pokusy o reseni.
Tomas
Pocarovsky
InnoSetup+ScriptMaker
[*] "Fait Ji��, ml." <fait(zv)jakl(tec)cz> - 12.3.2001 13:49:06
No nejake update tam je, ale osobne doporucuji prejit na ISTools.
Puvodne jsem take pouzival ScriptMaker ale ten opravdu na delsi dobu
'zatuhl'. ISTools maji podle mne sirsi podporu.
Ale je to jen muj nazor, nikomu jej nevnucuji.
-----Original Message-----
From: Milan #ݿek [mailto:Cizek.Milan(zv)seznam(tec)cz]
Sent: Monday, March 12, 2001 10:03 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: InnoSetup+ScriptMaker
ahoj,
a existuje uz ScriptMaker pro verzi InnoSetup 2.0???
S pozdravem Milan Cizek, D5 Ent
> Tohle vsechno umi nova verze 2.0, zatim jsem to nezkousel. Jinak jiz
> drive zminovane Inno Setup Extensions. Lokalizace do cestiny najdes na
> Inno Setup a Inno Setup Ext.
_____________________________________________________________________
WWW stranky zdarma na http://www.sweb(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
Priradenie ROLE pri prihlasovani k IB
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.3.2001 14:01:00
Dobry den,
ja toto budu resit zcela jinak - nezajimaji me role, ale hlavne zabezpeceni dat
(zpracovavame osobni udaje lidi). Na IB vytvorim pro svou databazi nekolik
uzivatelu, kteri budou mit heslo pridelene pri instalaci a to heslo bude
zakryptovane ulozene nekde mimo databazi. Pri loginu se zeptam na uzivatelske
jmeno a heslo a do databaze se prihlasim jako uzivatel, ktery ma grantovan
pristup (select) pouze k tabulce uzivatelu. Overim jmeno a heslo a nasledne se
odpojim. Pokud je vse v poradku tak se pripojim zno, ale jiz jako bezny
uzivatel, ktery naopak nema pravo primeho pristupu k tabulce uzivatelu. ma pravo
ke vsemu ostatnimu a k view nad tabulkou uzivatelu (ale ten je omezen na
zobrazeni ID a jmena - heslo NE).
Specialni login bude mit supervisor, ktery bude mit grantovan pristup k tabulce
uzivatelu.
Dale kvuli bezpecnosti chci udelat to, ze se heslo uzivatele (i kdyz bude v
databazi v zakryptovane podobe) nedostane ven. Porovnavat se budou zakryptovane
tvary a to ve SP.
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
> > vyriesit na urovny skupin, t.j. administrator iba povie ze JOZO je
> KNIHOVNIK
> > a je to. Jozko zada meno heslo a je prihlaseny ako KNIHOVNIK.
>
> Vecne je to jednoduche: napriklad u IBOBJECTS je vlastnost SQLROLE
> u komponenty IB_CONNECTION.
> Ma to ale jeden hacek: je treba pred tim zjistit, co ze to ten JOZO vlastne
> je
> za roli a to je (asi) v databazi, ke ktere jeste nejsme prihlaseni.
> Takze:
>
> 1) po startu se automaticky prihlasit jako nejaky fiktivni uzivatel s pravy
> k tabulce UZIVATELSKE_ROLE a pak teprve se hlasit jako konkretni uzivatel s
> tim,
> ze predvyplnim prislusnou vlastnost podle nacteneho pole roli a konkretniho
> uzivatele.
>
> 2) kazdy uzivatel patri do role PRIHLASENI ktera ma jen pravo na
> UZIVATELSKE_ROLE,
> a pak roli zmenim a prehlasim jej znova.
>
> Kazdopadne je nutne se hlasit dvakrat (nebo mit seznam uzivatelu/roli jinde
> nez v databazi,
> coz ma ale zase jine problemy).
>
> 3) Role nepouzit, udelat SQL tabulky uzivatel/aplikace/tabulky a
> administrator prirazuje pomoci nejakeho programu jednotlive aplikace (ci
> skupiny aplikaci) danemu uzivateli a nastavuje ihned (ten program :-))
> prislusna prava na tabulky.
> Krome dvojnasobneho prihlasovani to ma tu vyhodu, ze JOZO je perspektivni
> KNIHOVNIK, tak mu priradi krome aplikace KNIHOVNA jeste aplikaci ZAKAZNICI,
> kdezte nastoupivsi slecna KLARA dostane jen aplikaci KNIHOVNA. Na to bys
> musel mit dve role, takhle to zkombinujes dle potreby, ale musis to odmakat.
> Leos
>DBF refresh na sieti
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 12.3.2001 14:04:00
Pouzivam DBF tablku pod Delphi5 na sieti.
Mam problem v tom ak jeden uzivatel urobi zapis do tabulky , tak druhy
uzivatel to nevidi - neviem preco - Query otvaram este raz a ten zaznam tam
nie je.
Suvisi to s kesovaniem alebo cim?
Ale je zaujimave ze ak znovu odtartujem aplikaciu tak uz je tam ten zaznam.
Preco?
(netdir a privateDir mam nastavene) Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli
NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )
> -----P�vodn� zpr�va-----
> Od: Karel Kral [SMTP:kralkonf(zv)purus(tec)cz]
> Odesl�no: 12. marec 2001 11:58
> Komu: Konference Delphi
> P�edm�t: OT: WinMe a volna pamet 640K
>
> Dobry den,
> potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
> nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> kB.
>
> Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> Prosim i o odpoved, ze to zarucene nejde a proc.
> --
> ______________________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
Problem s FTP
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 12.3.2001 14:32:34
Haj hou!
On 12 Mar 2001,, Radek KALA wrote:
> Ahoj, mam malej problem, pouzivam pro prenos souboru
> komponentu pro FTP dodanou s Delphi 5.0, Nejak TNMFTP nebo
> tak nejak podobne se jmenuje.
Zahod ji a stahni si InternetDirect z
http://www.nevrona.com/indy
a jsem si jist ze bude po problemech. NetManage je s*it.
Hodne zdaru
Pavel Cisar
Firebird - The most addictive database
http://firebird.sourceforge.net
Nastaveni proxy v NN
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.3.2001 14:38:21
Zdravim vsechny.
predem bych chtel jeste jednou podekovat vsem, kteri odpovedeli na moji prosbu o
zaslani nastaveni proxy v MSIE.
A ted bych pripojil jinou prosbicku: Jestli mate nekdo nekde nainstalovany
Netscape Navigator a pouzivate proxy server mohli byste mi prosim zaslat kde a
jak je ulozene toto nastaveni v registrech ???
Dekuji
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
P.S.: Mohu poslat unitu, ktera precte nastaveni proxy u MSIE :)WinMe a volna pamet 640K
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 12.3.2001 15:06:32
O hotline MS bych se vubec nebavil. Snazil jsem se s nimi resit problem ve Wordu
(chybne ODBC ovladace pro DB, DBF) ale hlavne preformatovavani textu pri
mailmarge a ten clovek nejdrive snad ani nevedel, ze takova funkce ve Wordu je a
potom se mi snazil vnutit to, ze pokud nepreinstaluji pocitac a nebudu mit
sterilni prostredi tak nemuzeme tyto dve veci porovnavat. Pritom u nej to take
udelalo. Proste podpora uplne k nicemu... :((((((((((
Milan Tomes
> Ale ony WinME ten DOS maji, akorat se ho snazi co nejvice maskovat,
> aby MS uzivatele donutil ty dosovske programy opustit :-)
> Verim tomu, ze to nastavit pujde, pouze se bude muset jit do
> System.INI, podobne jako u max. poctu otevrenych souboru. Pokud je mas
> koupene legalne, od ceho je hotline MS ? :-)
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 12.03.2001 Martin Bobak:
> > s WinME je problem pretoze , WinME uz totizto nema dos ako ho pozname z 9x.
> > Ma len nejake terminalove okno, ale klasicky stary DOS tam uz nie je.
>
> > Dobry den,
> > potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
> > nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> > vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> > neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> > kB.
>
> > Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> > Prosim i o odpoved, ze to zarucene nejde a proc.
> > --
> > ______________________________________________________
> > Karel Kral, informatik
> > Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> > Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> > E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> > ______________________________________________________
>WinMe a volna pamet 640K
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 12.3.2001 15:29:38
Ahoj,
zkus se podivat na http://windows.online.pl/box/tips_me.htm. Je to sice
neoficialni reseni, ale funkcni. Aspon nam to funguje. Kazdopadne WinME pro
dos aplikace moc vhodny uz neni.
Bohdan Voska
bohdan(zv)softok(tec)cz
----- Original Message -----
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 12, 2001 11:58 AM
Subject: OT: WinMe a volna pamet 640K
> Dobry den,
> potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
> nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> kB.
>
> Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> Prosim i o odpoved, ze to zarucene nejde a proc.
> --
> ______________________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>
>
Jak prejmenovat sekci v registrech
[*] Jioi Koeara - 12.3.2001 15:57:37
Nedari se mi nalezt fci pro prejmenovani a kopirovani sekce (Key) v
registrech
Nevite prosim o necem?
Pazout
OT: Re: WinMe a volna pamet 640K
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.3.2001 16:01:46
Vsak to taky bylo se smajlikem. Ale na druhou stranu, na tu podporu mas
narok.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.03.2001 Milan Tomes:
> O hotline MS bych se vubec nebavil. Snazil jsem se s nimi resit problem ve Wordu
> (chybne ODBC ovladace pro DB, DBF) ale hlavne preformatovavani textu pri
> mailmarge a ten clovek nejdrive snad ani nevedel, ze takova funkce ve Wordu je a
> potom se mi snazil vnutit to, ze pokud nepreinstaluji pocitac a nebudu mit
> sterilni prostredi tak nemuzeme tyto dve veci porovnavat. Pritom u nej to take
> udelalo. Proste podpora uplne k nicemu... :((((((((((
> Milan Tomes
>> Ale ony WinME ten DOS maji, akorat se ho snazi co nejvice maskovat,
>> aby MS uzivatele donutil ty dosovske programy opustit :-)
>> Verim tomu, ze to nastavit pujde, pouze se bude muset jit do
>> System.INI, podobne jako u max. poctu otevrenych souboru. Pokud je mas
>> koupene legalne, od ceho je hotline MS ? :-)
>>
>> ------
>> ing. Jan Fiala
>> mailto:jan.fiala(zv)iol(tec)cz
>>
>> 12.03.2001 Martin Bobak:
>> > s WinME je problem pretoze , WinME uz totizto nema dos ako ho pozname z 9x.
>> > Ma len nejake terminalove okno, ale klasicky stary DOS tam uz nie je.
>>
>> > Dobry den,
>> > potrebujeme provozovat na WinMe dosovskou aplikaci, ktera vyzaduje vice
>> > nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
>> > vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
>> > neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
>> > kB.
>>
>> > Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
>> > Prosim i o odpoved, ze to zarucene nejde a proc.
>> > --
>> > ______________________________________________________
>> > Karel Kral, informatik
>> > Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
>> > Tel: 05/47235000, 0602/552432, Fax: 05/47231203
>> > E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
>> > ______________________________________________________
>>
Zistenie prihlaseneho uzivatela
[*] #u�ka R�bert <spravca(zv)lumen.sk> - 12.3.2001 16:33:17
Zdravim konf.
potrebujem vediet nejake funkcie pomocou ktorych zistim ktory uzivatel je
prihlaseny v systeme. Potrebujem zistit aj anonymneho uzivatela ked sa
mackne ESC. Totiz robim program ktory sa podla prihlaseneho uzivatela bude
rozne spravat. A ked sa masina prihlasi ako anonymouse cez ESC tak
potrebujem zablokovat pristup. Pouzivam W95/98 ako klientov siete NT
Dakujem
S pozdravom,
--------------------------------------------------------
Robert Suska, spravca siete, amatersky programator
Radio Lumen, Banska Bystrica
Slovenska republika
www.lumen.sk
spravca(zv)lumen.sk
ICQ Id: 82600022
mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
088/41 25 739 kl.14
--------------------------------------------------------
OT WinMe a volna pamet 640K
[*] Martin Koran <komar(zv)komar(tec)cz> - 12.3.2001 16:35:30
Ahoj,
> Dobry den,
> potrebujeme provozovat na WinMe dosovskou aplikaci, ktera
> vyzaduje vice
> nez 600 kB volne zakladni pameti. Na Win95 a 98 to bylo v pohode diky
> vyuziti UMB pomoci Emm386 a loadhigh. Ovsem ve WinMe zadny config.sys
> neni a tak jsme v koncich, protoze implicitne je tam vilnych tak 570
> kB.
>
> Neumite nekdo poradit, jak zvetsit velikost volne zakladni pameti?
> Prosim i o odpoved, ze to zarucene nejde a proc.
Zkus http://www.geocities.com/mfd4life_2000/
S pozdravem
Martin Koran
--------------------------------------------
Martin Koran - KOMAR
Podebradova 877
440 01 LOUNY
Czech Republic
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (395) 42 33 72
mailto:komar(zv)komar(tec)cz
http://www.komar(tec)cz
Nastaveni proxy v NN
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 12.3.2001 17:15:06
> A ted bych pripojil jinou prosbicku: Jestli mate nekdo nekde
> nainstalovany
> Netscape Navigator a pouzivate proxy server mohli byste mi
> prosim zaslat kde a
> jak je ulozene toto nastaveni v registrech ???
NN moc registry nepou��v�, �ekl bych �e to je ot�zka p�enositelnosti na jin�
platformy. Proxy je um�st�n� v liprefs.js v pracovn�m adres߰i u�ivatele
(ka�d� m��e m�t jin� nastaven�, nez�le�� to na p�ihl�#en� do windows). Tam
je ��dek
user_pref("network.proxy.http", "proxy");
a dal#� podobn�..... �ekl bych �e stoj� za to si to nainstalovat :-)
Ale#Jak sortovat data v gridu?
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 12.3.2001 18:20:30
On 12 Mar 2001, at 11:02, Jaroslav Nadhera wrote:
> > Nevim, jak sortovat data napr. v gridu. Udelam dotaz (query) a pak
> potrebuji
> > tu vyslednou sadu seradit (v gridu napr. uzivatel chce tridit podle
> > sloupcu). Jak na to?
>
> Bude se muset vzdy udelat novy dotaz s prislusnym ORDER BY podle ceho
> se ma tridit.
Nebo si to vycist do nonDBGridu, a tam si s tim muze kazdy delat
co chce. Je nesmysl stejna data nacitat stale dokola znovu, kdyz
to che uzivatel tridit jen podle jineho sloupce.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
kontrola pravopisu
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 12.3.2001 19:15:13
mohl by nekdo ten kod na vyvolani dialogu kontroly pravopisu (kdyz mam MS
Word) zverejnit, pokud ho vite?
komponenty nechci
Petr Svejda
http://www.lingvista(tec)cz/
> > nedavno se tady nekdo ptal na moznost kontroly pravopisu. Nez
> > jsem na to stacil reagovat, zahodil jsem si zdrojovy dotaz, takze
> > odpovidam takto obecne.
> > Pokud ma tazajici porad zajem, mohu mu poslat komponentu,
> > ktera v pripade za na je damem pocitaci nainstalovan Word, spusti
> > jeho dialog, ktery se o kontrolu stara (vcetne vyuziti
> > slovniku, ktery
> > je k tomu potreba).IB6 a IBUPDATE
[*] Josef Semera <semera(zv)atlas(tec)cz> - 12.3.2001 19:28:31
Mam podobny problem s IBQuery a IBUpdateSQL. Pokud jina instance programu
smaze zaznam, IBUpdateSQL a refresh mi nepomuze protoze ID proste uz
neexistuje. Jedine novy select. Pokud refresh IbUpdate nacte smazanou nacte
pak i AutoInc.
-----Original Message-----
> Delphi 5, IB6 a IBUpdateSQL
>
> Mam v tabulce na IBLOCAL vytvoreny AutoInc Trigger na sloupec ID .
> Potrebuju abych po insert videl jeho serverem vygenerovane ID. Sice je
> mozne vzdy IBQuery zavrit a znova otevrit, ale to je na vice zaznamech
> trochu dlouhe. A refresh mi nepomuze protoze v IBUpdateSQL mam ..
> WHERE ID = :ID, ale kde ID mam stale az do noveho otevreni IBQuery
> jako null a ne jako cislo ktere je na serveru.
Nedelal bych autoinc pole pomoci triggeru. Staci ulozena
procedura, ktera vrati hodnotu ziskanou z generatoru, a tu ty sam
insertujes do tabulky spolu s ostatnimi daty.
CoUninitialize a EAccessViolation
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 12.3.2001 19:37:59
Dobry den vsem,
mam takovy problem s CoUninitialize. V konzolovych aplikacich
se mi vytrvale vyhazuje vyjimka po zavolani
CoUninitialize. Vyjimka ma bazovou adresu 0x004..., takze
se vyhodi az v kodu RTL, ale dojde k ni jenom v pripade,
ze volam CoUninitialize.
Mam D5Pro a W2K Pro SP1, ale delaji mi to i
Delphi 4 Standard na W98. Vzhledem k tomu,
ze Delphi pracuji s interfacema trochu skryte,
tak se v tom moc nevyznam.
Zde je kod:
var
Container: IADsContainer;
User: IADsUser;
Unk: IUnknown;
UserName, Password, AccountName, ContainerURI: AnsiString;
Mode, hConsole: Cardinal;
begin
ContainerURI := ParamStr (1);
Write ('User Name: ');
ReadLn (UserName);
Write ('Password: ');
hConsole := GetStdHandle (STD_INPUT_HANDLE);
GetConsoleMode (hConsole, Mode);
if (Mode AND ENABLE_ECHO_INPUT) = ENABLE_ECHO_INPUT then begin
Mode := Mode XOR ENABLE_ECHO_INPUT;
SetConsoleMode (hConsole, Mode);
ReadLn (Password);
Mode := Mode OR ENABLE_ECHO_INPUT;
SetConsoleMode (hConsole, Mode);
end else
ReadLn (Password);
OleCheck (
CoInitializeEx (nil, COINIT_APARTMENTTHREADED OR
COINIT_SPEED_OVER_MEMORY));
Container := nil;
User := nil;
Unk := nil;
try try
OleCheck (
ADsOpenObject (PWideChar (WideString (ContainerURI)),
PWideChar (WideString (UserName)),
PWideChar (WideString (Password)),
ADS_SECURE_AUTHENTICATION, IID_IADsContainer, Container));
WriteLn;
WriteLn ('Connected to: ', ContainerURI);
WriteLn;
Write ('CN = ');
ReadLn (AccountName);
while AccountName <> '' do begin
AccountName := 'CN=' + AccountName;
Unk := Container.GetObject ('user', WideString (AccountName));
User := Unk as IADsUser;
Unk := nil;
User.AccountDisabled := True;
User.SetInfo;
User := nil;
WriteLn (AccountName, ' is disabled');
WriteLn;
Write ('CN = ');
ReadLn (AccountName);
end;
Container := nil;
except
on E: Exception do begin
WriteLn;
WriteLn (E.Message);
WriteLn;
end;
end;
finally
Container := nil;
User := nil;
Unk := nil;
end;
CoUninitialize;
end.
--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------
Ovladani CD-Rom mechaniky
[*] Petr Ha�lar <rincewind(zv)volny(tec)cz> - 12.3.2001 19:42:17
Ahoj,
mam problem s vysouvanim video CD - kdyz ho pomoci nize popsane procedury
vysunu (ale az po prehrani videa), tak mi naskoci 'modra obrazovka smrti',
ve ktere po me windows (98SE) chteji opetovne vlozeni cedecka do mechaniky.
Z CD by pritom nemel zadny program nic nacitat ! Da se to nejak odstranit?
Diky za kazdou radu.
S pozdravem
Petr Ha#lar
pouzivam takovouto proc. na ovladani cd-rom :
procedure OpenCloseCdDrive(const OpenMode: Boolean; const Drive: Char);
const
OpenCmd: array [Boolean] of DWORD =
(MCI_SET_DOOR_CLOSED, MCI_SET_DOOR_OPEN);
var
Mci: TMCI_Open_Parms;
MciResult: MCIERROR;
Param: DWORD;
DriveName: array[0..2] of Char;
begin
Param := MCI_OPEN_TYPE or MCI_OPEN_TYPE_ID;
FillChar(Mci, SizeOf(Mci), #0);
Mci.lpstrDeviceType := PChar(MCI_DEVTYPE_CD_AUDIO);
if Drive <> #0 then
begin
Mci.lpstrElementName := StrFmt(DriveName, '%s:', [UpCase(Drive)]);
Inc(Param, MCI_OPEN_ELEMENT);
end;
MciResult := MciSendCommand(0, MCI_OPEN, Param, Cardinal((zv)Mci));
if mciResult <> 0 then
raise Exception.Create('Error');
MciSendCommand(Mci.wDeviceID, MCI_SET, OpenCmd[OpenMode], 0);
MciSendCommand(Mci.wDeviceID, MCI_CLOSE, 0, 0);
end;
KILIX - za kolik?
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 12.3.2001 20:07:05
1) Jaka je to verze Kilix Open Ed.?
2) Kolik stoji, co umi a kde ji sehnat?
3) Jakou verzi Linuxu podporuje?
4) Vi nekdo neco blizsiho?
Petr Svejda
http://www.lingvista(tec)cz/
kontrola pravopisu
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 12.3.2001 20:33:00
Ahoj,
kod na vyvolani dialogu nemam, presneji receno nevim, ze by existoval. Mam
komponentu spellers.zip z Torry, ze ktere se daji potrebne rozumy vytahat,
hlavne tam vsak je CSAPI.H prelozene do CSAPI.PAS. Dialog je soucasti te
komponenty, pro vlastni spellcheck se volaji funkce M$ knihovny pro Word97.
Pokud chces, mohu poslat, ma to asi 300 kB.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Ing. Petr Svejda
> Odesl�no: 12. b�ezna 2001 19:15
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: kontrola pravopisu
>
>
> mohl by nekdo ten kod na vyvolani dialogu kontroly pravopisu
> (kdyz mam MS
> Word) zverejnit, pokud ho vite?
>
> komponenty nechci
>
> Petr Svejda
> http://www.lingvista(tec)cz/
>
> > > nedavno se tady nekdo ptal na moznost kontroly pravopisu. Nez
> > > jsem na to stacil reagovat, zahodil jsem si zdrojovy dotaz, takze
> > > odpovidam takto obecne.
> > > Pokud ma tazajici porad zajem, mohu mu poslat komponentu,
> > > ktera v pripade za na je damem pocitaci nainstalovan Word, spusti
> > > jeho dialog, ktery se o kontrolu stara (vcetne vyuziti
> > > slovniku, ktery
> > > je k tomu potreba).
>
>
word2000 a delphi 3
[*] Kokosek <skokosek(zv)seznam(tec)cz> - 12.3.2001 21:19:21
Ahoj, mam takovy problem. Uz to lamu dva tydny.
Potrebuju pres OLE otevrit dokument ve Wordu, najit
nejaky retezec, zmenit ho na jiny a vytisknout. Muzete
nekdo poradit zacatecnikovi, jak na to ?
Napoveda Wordu mi moc nepomohla ....
uplny zacatecnik Lada
RAS server
[*] Lud�k P�ral - 12.3.2001 21:23:34
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj,
nevite prosim nekdo o komponente/unite, ktera umi
connect na RAS spojeni ? Mam jednu (MagRAS), ktera ovsem
pracuje prilis slozitym zpusobem a navic mam podezreni, z
e ma chybu, ktera pri pouzivani bere pamet v IDE Delphi t
ak dlouho, az dojde ke zhrouceni PC (pri 200-300 MB vyuzi
ti pameti).
Rekapitulace stavajiciho stavu :
- pred con
nectem navolim jmeno, heslo, telefon, atd.
- komponenta
ma event StateChanged - ten musim pretypovat a nacist han
dle a SubEntitu spojeni do lokalnich promennych, eventuel
ne resit veskere kolize
-pak provest connect s volanim h
andle
-disconnect volat take s handlem
Chteny stav:
- pouze provadet connect a disconnect urciteho jmena RAS,
o nastaveni, a stavy se nestarat
Lud�k P�ral
lud
ek.paral(zv)telecom(tec)cz
http://web.redbox(tec)cz/lupasoft
htt
p://www.lupasoft.webpark(tec)cz
IB6 a IBUPDATE
[*] Josef Semera <semera(zv)atlas(tec)cz> - 12.3.2001 22:03:32
ale porad musim nacist novy select, updatesql mi stale neaktualizuje smazane
dotazy.
-----Original Message-----
Do triggeru Dej podminku
if ( ID is null ) then
new.ID=Gen_ID("Generator",1);
V Delphi pouzij TIBSQL a nastav do SQL:
Select Gen_ID("Generator",1) ID from rdb$databases
No a na After Insert zavolej ExecQuery a normalne nacti do ID hodnotu z
TIBSQL a mas to.
Ma to jednu nevyhodu, jestli das storno vety, pak je generator uz posunuty,
takze ja to davam az na before post. Bohuzel pri stornovani transakce uz
generator zustane posunuty, ale to by vetsinou nemelo vadit.Databaze -> TQuery vs. TTable
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 12.3.2001 22:43:49
Ahoj vsem kdo mi radili. Nejprve bych vam chtel moc podekovat.
Reknu vam, moc jasno jste mi v tom neudelali. Trochu jste mi z toho zamotali
hlavu. Jeden rika pouzij Query, jiny zase OleDB atd..
Rekneme, ze jsem videl aplikaci, ktera behala velmi dobre vuci SQL severu
7.0 a problemy s tim nebyli.
Zustanu tedy u teto verze. Zkusim zatim prejit na TQuery.
Nemate nekdo nejaky kod, jakym zpusobem plnite databazi pres Query ? Zajimal
by me insert, update a delete. Dale nevim, jak dosahnout toho, abych
zajistil neustalou aktualizaci. Napriklad kdyz nacitam pres Query do
ComboBoxu polozky z ciselniku, pak mi treba neni jasne jak zajistim, aby
kdyz mi nekdo ve chvili, kdy chci z comba prirazovat ten zaznam v ciselniku
smaze, aby se mi to do neho promitlo a zaznam neukazoval na neexistujici
polozku. Tyto problemy s aktualizaci a dalsi mi nejsou vubec jasne. U TTablu
to mam docela zmaknuty, tam je pomerne rozsahla moznost Refreshe.
Reknu vam jen takovou vec. Duvod, proc chci prejit od TTable k TQuery je jen
jediny a to je rychlost. Ja osobne zas tolik problemu s TTable nemam, az na
par, ktere meli reseni.
Poslete mi nekdo prosim nejaky kod s Query ?
Diky moc za kazdou pomoc. Potreboval bych malicko popostrcit, abych s ni
mohl zacit delat.
Ahoj Filip.Zistenie prihlaseneho uzivatela
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 12.3.2001 23:25:09
Ahoj,
The GetUserName function retrieves the user name of the current thread.
This is the name of the user currently logged onto the system.
BOOL GetUserName(
LPTSTR lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
);
viz API Help Key > System Information Functions
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> �u#ka R�bert
> Sent: Monday, March 12, 2001 4:33 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Zistenie prihlaseneho uzivatela
>
>
> Zdravim konf.
>
> potrebujem vediet nejake funkcie pomocou ktorych zistim ktory uzivatel je
> prihlaseny v systeme. Potrebujem zistit aj anonymneho uzivatela ked sa
> mackne ESC. Totiz robim program ktory sa podla prihlaseneho uzivatela bude
> rozne spravat. A ked sa masina prihlasi ako anonymouse cez ESC tak
> potrebujem zablokovat pristup. Pouzivam W95/98 ako klientov siete NT
>
> Dakujem
>
> S pozdravom,
>
> --------------------------------------------------------
> Robert Suska, spravca siete, amatersky programator
> Radio Lumen, Banska Bystrica
> Slovenska republika
> www.lumen.sk
> spravca(zv)lumen.sk
> ICQ Id: 82600022
> mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
> 088/41 25 739 kl.14
> --------------------------------------------------------
>Zpravy pri aktivovanem menu
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 12.3.2001 23:25:16
Ahoj,
no, je videt, ze jsem dotaz nepochopil.:)).
Toto se dela, tak, ze pro tlacitka na toolbaru, ktera
se takto maji chovat(resp. vsechny) musi byt nastaveno
Grouped na True. Oznac vsechny tlacitka na toolbaru
(drz Shift a na kazde klikni) a v OI nastav Grouped na True.
Jinak to co jsem popisoval je odzkousene, pri aktivovanem
menu. S popupmenu to nechodi, ale to uz nepotrebujes:).
Jakakoli jina obsluha je ZBYTECNA.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Jiri Binder
> Sent: Monday, March 12, 2001 9:43 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Zpravy pri aktivovanem menu
>
>
> Ahoj,
> problem je v tom, ze v okamziku, kdy se menu aktivuje, zpravy
> prestanou dochazet (zkousel jsem s popup menu, ale to je jedno).
> Pritom WinSpy je vidi a podle neho by mely byt urceny (pokud
> jsem to spravne identifikoval) pro skryte okno aplikace, takze me
> prekvapilo, ze jsem je nevidel ve zpracovani OnMessage, kam by
> mely prijit jako prvni. Obdobne zpravy od klavesnice jsou
> adresovany oknu formu, ale ani ty jsem zatim neodchytil.
>
> Mam vlastni toolbar s menu a potreboval jsem to k tomu, abych
> mohl pri spustenem menu prejit na vedlejsi nabidku presunutim
> mysi nebo klavesou, jak je to obvykle.
>
> Jiri Binder
>
> From: Pavel Malinsky <spiderland(zv)iol(tec)cz>
> > jestli jsem pochopil o co ti jde tak treba takhle:
> >
> > type
> > TForm1 = class(TForm)
> > [...]
> > private
> > { Private declarations }
> > procedure WMNCHitTest(var Message: TMessage); message
> > WM_NCHITTEST;
> > public
> > { Public declarations }
> > end;
> >
> > procedure TForm1.WMNCHitTest(var Message: TMessage);
> > begin
> > with Message, ScreenToClient(Point(LOWORD(lParam),HIWORD(lParam)))
> > do
> > Caption:= Format('X: %d, Y: %d',[x,y]);
> > inherited;
> > end;
> >
> > > Behalf Of Jiri Binder
> > > nejak se mi nedari zachytit zpravy mysi (konkretne
> > > wm_mousemove) a wm_keydown up, pri aktivovanem menu.
> > > Ani Application.OnMessage nepomaha. Nevite nahodou kde je
> > > zakopany pes, resp. ty zpravy?
> > > Jiri Binder
>
> TGroupControl
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 12.3.2001 23:57:56
Mam nasledujici problem. Omlouvam se pokud to bude obsahlejsi.
(Pisi o design modu)
Vytvarim si v podstate jednoduchou nevisualni komponentu, ktera obsahuje seznam vybranych trid (komponent odvozenych pres TControl). Neni problem zobrazit seznam dostupnych trid na formulari a potrebny seznam si vytvorit. Neni problem udrzovat seznam, pokud nejakou tridu (komponentu) zrusim. Az potud je to snadne.
Co ale nevim je, jak mam poznat, ze jsem nejakou tridu (komponentu) prejmenoval. Pokud tridu (komponentu) prejmenuji a pote si vlezu do editace meho seznamu trid, vse se mi opravi protoze si pamatuji pointer na zvolene tridy.
Pokud ale zapomenu vlezt do tohoto seznamu, tak se mi jmena neopravi a ... a tim jsem v coudu, protoze pointer v design a runtime je pochopitelne jiny. Takze v runtime musim dohledat pointery na tridy (komponenty) podle jejich jmena.
Lze si v design modu vytvorit vnitrni timer, ktery mi bude seznam neustale kontrolovat a opravovat jej podle potreby. To funguje, ..., ale je to prasarna.
Budu vdecny za jakykoliv napad. Za to se v brzke dobe odvdecim pomerne slusnou kolekci naprosto FREE komponent se zdroji pro D5. Jiz brzy.
Jan Skopovy
Ovladani CD-Rom mechaniky
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 13.3.2001 00:00:13
Mozna by bylo lepsi poslat rutinu pro prehravani videa.
Jan Skopovy
----- Original Message -----
From: Petr Ha#lar <rincewind(zv)volny(tec)cz>
To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
Sent: Monday, March 12, 2001 7:42 PM
Subject: Ovladani CD-Rom mechaniky
> Ahoj,
> mam problem s vysouvanim video CD - kdyz ho pomoci nize popsane procedury
> vysunu (ale az po prehrani videa), tak mi naskoci 'modra obrazovka smrti',
> ve ktere po me windows (98SE) chteji opetovne vlozeni cedecka do
mechaniky.
> Z CD by pritom nemel zadny program nic nacitat ! Da se to nejak odstranit?
>
> Diky za kazdou radu.
>
> S pozdravem
> Petr Ha#lar
>
> pouzivam takovouto proc. na ovladani cd-rom :
>
> procedure OpenCloseCdDrive(const OpenMode: Boolean; const Drive: Char);
> const
> OpenCmd: array [Boolean] of DWORD =
> (MCI_SET_DOOR_CLOSED, MCI_SET_DOOR_OPEN);
> var
> Mci: TMCI_Open_Parms;
> MciResult: MCIERROR;
> Param: DWORD;
> DriveName: array[0..2] of Char;
> begin
> Param := MCI_OPEN_TYPE or MCI_OPEN_TYPE_ID;
> FillChar(Mci, SizeOf(Mci), #0);
> Mci.lpstrDeviceType := PChar(MCI_DEVTYPE_CD_AUDIO);
> if Drive <> #0 then
> begin
> Mci.lpstrElementName := StrFmt(DriveName, '%s:', [UpCase(Drive)]);
> Inc(Param, MCI_OPEN_ELEMENT);
> end;
> MciResult := MciSendCommand(0, MCI_OPEN, Param, Cardinal((zv)Mci));
> if mciResult <> 0 then
> raise Exception.Create('Error');
> MciSendCommand(Mci.wDeviceID, MCI_SET, OpenCmd[OpenMode], 0);
> MciSendCommand(Mci.wDeviceID, MCI_CLOSE, 0, 0);
> end;
>
>