Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
FB ztracene spojeni opet
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 13.4.2003 20:17:55
Zkousel i cyklem 0..componentCount zavirat kompletne vsechny TDataSet
valik, ICQ 54152896
----- Original Message -----
> pred Clear bys mel jeste volat
> if IBQuery.Active then IBQuery.Active := false;
> Jarek U.Zjisteni zda je formular otevreny
[*] Miroslav Vopaleck� <m.vopalecky(zv)worldonline(tec)cz> - 13.4.2003 20:03:15
Zdravim vsechny.
Jako zacatecnik v Delphi mam nastedujici problem.
Mam aplikaci v D7/W2000. je to uloha MDI, kde oteviram Child formulare
pomoci procedur nap��klad:
"
procedure TfrMain.P01Click(Sender: TObject);
var Child9:TfrPu03;
begin
Child9:=TfrPu03.Create(Application);
Child9.Top:=0; Child9.Left:=0;
Child9.Height:=500; Child9.Width:=700;
Child9.Show;
end;
"
nejsem vsak schopen zjistit, zda jiz formular neni otevreny, je na to nejaky
figl, nebo to budu muset osetrit pomoci pomocnych promenych.
Diky za rady
Mirek Vopalecky
None
[*] <xeno2(zv)centrum.sk> - 13.4.2003 19:35:57
v bindings, alebo default port
ICQ: 175081855 - http://xeno2.wz(tec)cz - tutorialy, tipy, triky na Photoshop
------------------------------------------------------------------------
Vysk��aj Aquafresh Whitening syst�m - pre �iarivo biele zuby, intenz�vne
svie�i dych a cel� Tvoje �sta. S��a� o 10.000,- Sk!
http://ad.centrum.sk/link/?cid=1278&banner=1
Nepochopitelne vyjimky
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 13.4.2003 19:01:48
> From: Martin Falta
>
> nasledujici kod mi generuje vyjimku Abstract Error nebo AV.
> Vzdycky tu vyjimku
> vyhodi kliknuti na tlacitko, ktere je vytvorene jako druhe. Nevedel by
> nekdo proc?
>
Mozna by pomohlo vytvaret ListBox a tlacitka s vlastnikem GroupBox:
ListBox:=TListBox.Create(Groupbox);
...
CancelButton:=TButton.Create(Groupbox);
...
OkButton:=TButton.Create(Groupbox);
A pri ruseni rusit pouze GroupBox:
procedure TForm1.CancelButtonClick(Sender: TObject);
begin
FreeAndNil(GroupBox);
end;
Ja bych ale takovouto konstrukci asi nikdy nepouzil.
Vaclav Krmela
None
[*] shotec <shotec(zv)seznam(tec)cz> - 13.4.2003 19:13:17
Dobry den,
nevi nekdo, jak v INDY IdTCPServer nastavit port? ja to proste z tej
dokumentace nemuzu vycist, uz se mi povedlo nastavit klienta, ale server
porad nic...
Nepochopitelne vyjimky
[*] Martin Falta <martin(zv)aprog(tec)cz> - 13.4.2003 18:32:12
Ahoj,
nasledujici kod mi generuje vyjimku Abstract Error nebo AV. Vzdycky tu vyjimku
vyhodi kliknuti na tlacitko, ktere je vytvorene jako druhe. Nevedel by
nekdo proc?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure CancelButtonClick(Sender:TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
GroupBox:TGroupBox;
OkButton:TButton;
CancelButton:TButton;
ListBox:TListbox;
x:byte;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
GroupBox:=TGroupBox.Create(self);
with GroupBox do
begin
Parent:=Form1;
Left:=Parent.Width div 4;
Top:=5;
Width:=Parent.Width div 2;
Height:=Parent.Height div 2;
Caption:='Ahoj';
end;
ListBox:=TListBox.Create(self);
with ListBox do
begin
Parent:=GroupBox;
Left:=5;
Width:=Parent.Width-10;
Top:=15;
Height:=Parent.Height div 2;
Items.Add('1');
Items.Add('2');
Items.Add('3');
SetFocus;
end;
CancelButton:=TButton.Create(self);
with CancelButton do
begin
Parent:=GroupBox;
Left:=Parent.Width div 5 * 3;
Top:=Parent.Height div 4 * 3;
Width:=Parent.Width div 5;
Caption:='Cancel';
Cancel:=true;
OnClick:=CancelButtonClick;
end;
OkButton:=TButton.Create(self);
with OkButton do
begin
Parent:=GroupBox;
Left:=Parent.Width div 5;
Top:=Parent.Height div 4 * 3;
Width:=Parent.Width div 5;
Caption:='OK';
Default:=true;
OnClick:=OkButtonClick;
end;
end;
procedure TForm1.CancelButtonClick(Sender: TObject);
begin
FreeAndNil(ListBox);
FreeAndNil(GroupBox);
end;
procedure TForm1.OkButtonClick(Sender: TObject);
begin
x:=ListBox.ItemIndex;
FreeAndNil(ListBox);
FreeAndNil(GroupBox);
end;
end.
Urychlenie presunu v dbgride, loknutie ostatnych d
[*] Vlko II. <vlko(zv)zilina(tec)net> - 13.4.2003 18:22:57
Mam taky mensi problem, pretoze sa snazim urychlit program beziaci na
databaze a je tam dost poloziek a na formulari sa nachadza dbgrid a nad nim
su edity, v ktorych sa edituju
polozky. Dbgrid a edity maju spolocny dataset. Dalej su tam rozne
dblookupedity, ktore
sa odkazuju na dalsie datasety a tu je problem, ked chcem rychlo skrolovat
v dbgride,
tak musim tieto ostatne datasety pozatvarat aby sa zbytocne v nich
referencie nevyhladavali.
Ale pretoze, ked tabulku zavriem, tak ju musim nasledne aj otvorit, a to
trosku trva, nedali
by sa tie ostatne datasety nejakym sposobom locknut proti posunu?
dosial to mam takto
procedure TfEvidFaktury.ZDBGrid1Enter(Sender: TObject);
begin
//pozatvaram tabulky napr
datamod.qZmluvy.Close;
end;
procedure TfEvidFaktury.ZDBGrid1Exit(Sender: TObject);
begin
//otvorim tabulky
datamod.qZmluvy.Open;
end;
dbGrid sa napr odkazuje na tabulku qFaktury
v ktorej je polozka IDZmluva a ta je cez tDBLookupCombo prepojena na
qZmluvy
Kym neuzavriem takto tabulku tak na pomalsich strojoch to trosku trva.
Nedala by sa ta teda tabulka qZmluvy nejakym sposobom locknut proti pohybu?
Komponenty na db su zeos a server bezi na PostgreSQL - len pre informaciu:)
Vopred dakujem
Vlko
--
--------------
vlko_(zv)pobox.sk
Delphi 6 RTL Update Pack 3
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.4.2003 17:22:17
Ahoj,
Borland uvolnil dalsi 'maly' update na Delphi 6. Upozornuji ze se nejedna o
dalsi kumulativni update (neni to totiz jasne napsane v Readme), takze pred
jeho instalaci je nutne mit instalovan:
Delphi 6 Update Pack 2
Delphi 6 RTL Update 2
Ke stazeni zde http://www.borland.com/products/downloads/download_delphi.html
Soubor obsahuje pouze zabalene aktualizovane soubory, ktere je nutno kopirovat
rucne postupne do prislusnych adresaru.
Pripadne muzete pouzit BAT soubor (bez zaruky ;-), vyuziva command-line WinZip
pro rozbaleni:
------------------------------------------------------------------------------
md Temp
cd Temp
"%ProgramFiles%\WinZip\wzunzip.exe" -d ..\d6_rtl3.zip
copy BaseRTL.msm "%ProgramFiles%\Borland\Delphi6\MergeModules\BaseRTL.msm"
copy Classes.pas
"%ProgramFiles%\Borland\Delphi6\Source\RTL\Common\Classes.pas"
copy Classes.dcu "%ProgramFiles%\Borland\Delphi6\Lib\Classes.dcu"
copy debug\Classes.dcu "%ProgramFiles%\Borland\Delphi6\Lib\Debug\Classes.dcu"
copy rtl.dcp "%ProgramFiles%\Borland\Delphi6\Lib\rtl.dcp"
copy rtl60.bpl "%SystemRoot%\System32\rtl60.bpl"
copy rtl60.map "%SystemRoot%\System32\rtl60.map"
del BaseRTL.msm
del Classes.pas
del Classes.dcu
del debug\Classes.dcu
del rtl.dcp
del rtl60.bpl
del rtl60.map
del README_D6_RTL_3.txt
rd debug
cd ..
rd Temp
------------------------------------------------------------------------------
Petr Vones
FB ztracene spojeni opet
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 13.4.2003 12:44:20
Ahoj,
On 13 Apr 2003 at 9:32, MUDr. Patrik VALENTA wrote:
> Zdravim jeste jednou s problemem osetreni ztraceneho spojeni
>
> dostal jsem radu pouzit IBDatabase1.forceclose; ale nepomohlo to,
> stale po uspesnem znovukonektnuti pretrvava hlaska Dataset Open pro
> pokusu pracovat s Query, konkretne pri SQL.Clear;
pred Clear bys mel jeste volat
if IBQuery.Active then IBQuery.Active := false;
>
> TDatabase.closeDatasets by se mely zavrit vsechy ale taky to
> nepomuze... uz si nevim rady.
Jarek U.
FB ztracene spojeni opet
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 13.4.2003 09:32:45
Zdravim jeste jednou s problemem osetreni ztraceneho spojeni
dostal jsem radu pouzit IBDatabase1.forceclose; ale nepomohlo to, stale po
uspesnem znovukonektnuti
pretrvava hlaska Dataset Open pro pokusu pracovat s Query, konkretne pri
SQL.Clear;
TDatabase.closeDatasets by se mely zavrit vsechy ale taky to nepomuze...
uz si nevim rady.
valik
ICQ 54152896
zapis do registru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.4.2003 18:26:10
pridat do sekce uses "Registry"
procedure AddRun(const s: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER; // je to default, ale...
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
begin
reg.WriteString(ExtractFileName(s), s);
reg.CloseKey;
end;
finally
reg.free;
end;
end;
Je to z hlavy, takze doufam, ze tam neni moc chyb :-(
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.4.2003 shotec:
> Dobry den, jsem v delphi a pascalu novej, mohl by mi nekdo napsat kod, pro
> zapis aplikace do klice run (spusteni pri startu) dekuji
zapis do registru
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 12.4.2003 17:24:09
> mohl by mi nekdo napsat kod, pro zapis
> aplikace do klice run (spusteni pri startu)
Napises v programe slovo 'tregistry', umiestnis na neho kurzor,
zmacknes F1, potom kliknes na slove 'Example' a mas to.
bye
vmlich
zapis do registru
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 12.4.2003 16:58:02
> Od: shotec [SMTP:shotec(zv)seznam(tec)cz]
> napsat kod, pro
> zapis aplikace do klice run (spusteni pri startu) dekuji
>=20
Podivej se do helpu na TRegistry, mel by tam byt i nazorny priklad.
Ober
zapis do registru
[*] shotec <shotec(zv)seznam(tec)cz> - 12.4.2003 15:48:52
Dobry den, jsem v delphi a pascalu novej, mohl by mi nekdo napsat kod, pro
zapis aplikace do klice run (spusteni pri startu) dekuji
programova instalace driveru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.4.2003 22:44:12
Urcite. Staci se podivat na to, co se zavola v registrech pro INF
soubor:
%SystemRoot%\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %1
Takze timto prikazem by se mela spustit instalace.
Prikaz lze vycist v registrech v:
HKEY_CLASSES_ROOT\inffile\shell\Install\command
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
7.4.2003 Zdenek Navratil:
> Ahoj,
> zajimalo by mne, jestli je mozne z vlastniho programu nejak spustit
> instalaci driveru, ke kteremu mam soubor aaa.inf atd.
> Diky.
> Zdenek Navratil.
InstallShieldExpres vo Win XP
[*] Karel Macha� <MachacKarel(zv)quick(tec)cz> - 12.4.2003 13:13:16
J� ho m�m nainstalovan� na XP prof. a bez probl�m� ho pou��v�m na m�lo
n�ro�nou instalaci.
Karel Macha�
----- Original Message -----
From: <idulgerov(zv)centrum.sk>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 11, 2003 8:12 AM
Subject: InstallShieldExpres vo Win XP
> Zdravim vsetkych.
>
> Vcera som sa pokusil nainstalovat si
> InstallShieldExpres z cd-cka Delphi 5 prof na Win XP Prof + SP1.
> Bohuzial instalacia zlyhala, instalator vyhodil chybove
> hlasenie :
>
> "config.nt Systemovy subor sa neda pouzit v aplikaciach
> MS-Dos a Microsoft Windows. Prikazom zatvorit ukoncite
> aplikaciu."
>
> Pouzivate niekto InstallShield po Win XP ?
> Funguje Vam to ?
>
> Ja ho normalne nepouzivam, ale teraz by sa mi fakt hodil :-(
>
> S pozdravom
>
> Ivan Dulgerov SK
>
>
> ------------------------------------------------------------------------
> Vysk��aj Aquafresh Whitening syst�m - pre �iarivo biele zuby, intenz�vne
> svie�i dych a cel� Tvoje �sta. S��a� o 10.000,- Sk!
> http://ad.centrum.sk/link/?cid=1278&banner=1
>
Farba kurzoru v StringGride
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 12.4.2003 12:53:37
> farba mi vobec nevyhovuje. Da sa tato farba nejak zmenit
podivaj sa na help a priklad k eventu OnDrawCell
bye
vmlich
Farba kurzoru v StringGride
[*] alex <bugala_a(zv)inmail.sk> - 12.4.2003 10:49:14
Ahojte,
v StringGride som si navolil vlastnost goRowSelect = true, avsak tmavomodra
farba mi vobec nevyhovuje. Da sa tato farba nejak zmenit, alebo pripadne
uplne zrusit farebne odlisenie buniek?
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
e-mail: bugala_a(zv)inmail.sk
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
Simulace disku ze souboru - vlastni sifrovany disk
[*] Delphi konference <delphi.konference(zv)creatix(tec)cz> - 11.4.2003 22:41:57
Mam zajimavy problem. Rad bych vytvoril vlastni simulaci disku z meho
vlastnoho souboru - napriklad jako je emulace CD-ROM z iso souboru. Rad
bych si vlastnim zpusobem sifroval sva data. Nechci pouzivat zadny
komercni produkt, jako je PGP disk. Ma nekdo napad jak na to? Pokud se
mi to podari, uverejnim to jako free.
Diky vsem za napady
Jan Skopovy
--------------------------------------
avast! Antivirus: Odchozi zprava cista.
Virova databaze (VPS): 11.4.2003
Metafile a StretchDraw
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 11.4.2003 22:41:04
jezis ja jsem vul ::)
funguje to dobre...to Tve, diky moc
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vaclav Krmela
Sent: Friday, April 11, 2003 10:10 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Metafile a StretchDraw
> From: Bronislav Klu�ka
>
> R.Right := MulDiv(2100*Screen.PixelsPerInch,
> GetDeviceCaps(RefDC, HORZSIZE),
> GetDeviceCaps(RefDC, HORZRES));
Neni mi jasny smysl tohoto vypoctu.
V jakych jednotkach by mel byt vysledek?
Pro nasledne vykreslovani na Canvas se pouzivaji
jednotky Pixely, takze mi tam pripada nadbytecne
PixelsPerInch.
Zkus to takto:
R.Right := MulDiv(2100*100,
GetDeviceCaps(RefDC, HORZSIZE),
GetDeviceCaps(RefDC, HORZRES));
Vaclav Krmela
Metafile a StretchDraw
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 11.4.2003 22:10:03
> From: Bronislav Klu=E8ka
>=20
> R.Right :=3D MulDiv(2100*Screen.PixelsPerInch,=20
> GetDeviceCaps(RefDC, HORZSIZE), =20
> GetDeviceCaps(RefDC, HORZRES));
Neni mi jasny smysl tohoto vypoctu.=20
V jakych jednotkach by mel byt vysledek?
Pro nasledne vykreslovani na Canvas se pouzivaji
jednotky Pixely, takze mi tam pripada nadbytecne
PixelsPerInch.
Zkus to takto:
R.Right :=3D MulDiv(2100*100,=20
GetDeviceCaps(RefDC, HORZSIZE), =20
GetDeviceCaps(RefDC, HORZRES));
Vaclav Krmela
Re[2]: FIREBIRD - Ako to zoptimalizovat ?
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.4.2003 21:03:04
Haj hou!
On 11 Apr 2003 at 15:33, Roland Turcan wrote:
> Uz som skusal aj
> jednoduchu SP ktora mi vrati
>
> SELECT KURZ_LIST
> FROM TIKETY2
> WHERE TIKET=9251001
> union all
> select cast(19954 as double precision) from rdb$database
> ;
A to uz k cemu ? Mimochodem tvuj problem vezi v tom, ze at to napises jak to
napises, porad to bude muset byt natural scan pres tabulku s 9000 radky s
dohledevanim v tabulce s 72000 radky pro kazdy radek prvni tabulky. Protoze
tam pas podminku OR, tak jsi celkem v haji :-) Urcite zlepseni by mel byt VIEW
nad kterym udelas to GROUP BY a HAVING:
CREATE VIEW VIEW_A AS
SELECT * FROM KOMBINACIE
WHERE KURZ_LIST=19954
UNION ALL
SELECT A.* FROM KOMBINACIE A
JOIN TIKETY2 B ON A.KURZ_LIST = B.KURZ_LIST
WHERE B.TIKET=9245001)
Prvni select bude rychly diky optimalizovane filtraci indexem, druhy by mel byt
take rychly, protoze optimalizator by ho mel vyhodnotit jako spojovani B -> A,
pricemz B je filtrovane indexem. Outer join je v tomto pripade dle meho zbytecny,
a pokud mu ho budes nutit, tak se s efektivitou rozluc, to je vzdy natural scan
pres outer tabulku s pripojovanim.
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Metafile a StretchDraw
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 11.4.2003 20:55:47
Mam nasledujici zdrojak:
procedure TForm1.Button2Click(Sender: TObject);
var mf:TMetaFile;
mfc:TMetaFileCanvas;
{$IFDEF WIN32}
R: TRect;
RefDC: HDC;
{$ENDIF}
begin
mf:=TMetaFile.Create;
mfc:=TMetaFileCanvas.Create(mf,0);
{$IFDEF WIN32}
RefDC := GetDC(0);
R.Left := 0;
R.Top := 0;
R.Right := MulDiv(2100*Screen.PixelsPerInch, GetDeviceCaps(RefDC,
HORZSIZE), GetDeviceCaps(RefDC, HORZRES));
R.Bottom := MulDiv(2970*Screen.PixelsPerInch, GetDeviceCaps(RefDC,
VERTSIZE), GetDeviceCaps(RefDC, VERTRES));
mfc.Handle := CreateEnhMetaFile(RefDC, nil, (zv)R, nil);
ReleaseDC(0, RefDC);
{$ELSE}
mfc.Handle := CreateMetaFile(nil);
{$ENDIF}
r:=Rect(0,0,2100,2970);
mfc.Ellipse(r);
mfc.Free;
PBox.Canvas.StretchDraw(Rect(0,0,PBox.Width,PBox.Height),mf);
mf.Free;
end;
PBox je TPaintBox.
Problem je v tom, ze se mi nevykresli cela elipsa, ale nevejde se zprava a
zleva... (skutecne nevejda, na MetaFileCanvasu je cela);
necite nekdo, kde je problem?
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
O stranku zpet
[*] Ale� Hruban <ales hruban(zv)alisys(tec)cz> - 11.4.2003 18:48:58
Komponenta PageControl ma prvek TabIndex, pomoci ktereho se lze pohyboval
po strankach libovolne od 0 do PageControl.PageCount-1. Prvek TabIndex
obsahuje index aktualne zobrazene stranky.
Je to jedna z moznosti.
Ales
PDA a programovani aplikaci
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 11.4.2003 18:47:43
AH> Nevite nekdo, zda lze v nekterem z vyvojovych nastroju Borlandu vyvijet
AH> aplikace pro zarizeni PDA, pripadne ktere nastroje se pro tyto zarizeni
AH> daji pouzit ?
AH> Ales
A neni lepsi pouzit JAVU?
Pro PDA znam jen Microsofti CE tools C verze 3 (ted delaji verzi 4) a
nejakej MS basic.
Na PDA lze nainstalovat Personal Java for WinCE specifikace 1.1.2 a pro tu se daji
psat aplikace celkem rozumne. Na Sunu je i ke stazeni emulator pro PC.
Na iPAQ mam nainstalovanou Personal Java a programy tam behaji celkem
slusne pokud dodrzuji specifikaci.
S pozdravem
Martin Radvansky
FIREBIRD - Ako to zoptimalizovat ? --- OPRAVA
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.4.2003 18:37:08
Haj hou!
On 11 Apr 2003 at 13:43, Roland Turcan wrote:
> Ako to zoptimalizovat?
Mno, bylo dobre kdyby jsi pri zadosti o optimalizaci uvedl take provadeci PLAN
ktery server pouziva. Vzhledem k tomu ze nemam dotycne tabulky, tak si to
nemuzu sjet sam. Rovnez by bylo dobre vedet kolik vet je v kazde tabulce.
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
PDA a programovani aplikaci
[*] Ale� Hruban <ales hruban(zv)alisys(tec)cz> - 11.4.2003 17:35:53
Nevite nekdo, zda lze v nekterem z vyvojovych nastroju Borlandu vyvijet
aplikace pro zarizeni PDA, pripadne ktere nastroje se pro tyto zarizeni
daji pouzit ?
Ales
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.471 / Virov=E1 b=E1ze: 269 - datum vyd=E1n=ED: 10.4.2003
=20
O stranku zpet
[*] abyssinians(tec)cz <abyssinian(zv)centrum(tec)cz> - 11.4.2003 17:21:35
Ahoj,
vyuzivam ve sve aplikaci komponentu PageControl, kde je mozne pomoci
zalozek prepinat mezi jednotlivymi strankami neboli TabSheety.
Rad udelal tlacitko, ktere by po stisku zobrazilo
TabSheet predesly tomu aktualnimu, prave zobrazenemu.
Ve vetsine aplikaci se takova funkce nazyva "O stranku zpet".
Nenapadlo jak to resit jinak nez do nejakeho ini souboru
ukladat historii zobrazeni jednotlivych stranek,
ale problem je, ze aplikace ma bezet z CD-ROMu a nesmi tudiz
vytvaret zadne pomocne soubory.
Nedelal jste nekdo neco podobneho?
Dik za pripadne namety.
A. Goetz, zacatecnik
D6
--------------------
Centrum(tec)cz P�ipojen� - P�ipojte se k internetu bez �ek�n� a zdarma! http://pripojeni.centrum(tec)cz
Re[2]: Build balicku, titulek okna
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 11.4.2003 15:55:07
>> Existuje nejaka moznost jak zmenit u MDI okna obrazek v ikone pro
>> maximalizaci?
PV> Na vlastni ikonu ?
No stacilo by dat tam ikonu co tam patri kdyz se provede maximalizace.
Jelikoz odchytavam zpravu pro maximalizaci a maximalizuji to sam na
rozmer, tak bych chtel, aby se take ikona jevila jako ze je to okno
maximalizovane (takove ty dve okenka pres sebe)
PV> Neni to namapovany disk ? DRF je nejaky docasny soubor ktery se pouziva pri
PV> kompilaci s balicky.
Ne neni to zadny mapovany disk. Normalni fyzicka jednotka druhy disk.
Ta chyba nastane jen u buildu, pokud tam ta chyba je a dam kompile tak
to projde bez chyb.
Problem je ten, ze kdyz mam 8 balicku v aplikaci a dam build all tak
se mi to zastavi na balicku SpolFunc.dpk na tu samu chybu. Dam compile
a chyba zmizi. Dam pokracovat v buildu od dalsiho a projde to az k
vlastnimu exe, kde to zase skonci na tu chybu. Dam kompile a chyba
zmizi.
--
S pozdravem,
Martin Radvansky
Re[2]: FIREBIRD - Ako to zoptimalizovat ?
[*] Roland Turcan <rolo(zv)sedas.sk> - 11.4.2003 15:33:14
<<< 11. 4. 2003 15:23 - Lebeda David "david.lebeda(zv)comarr(tec)cz" >>>
>> SELECT FIRST 1 COUNT(*)
>> FROM KOMBINACIE A
>> JOIN TIKETY2 B ON B.KURZ_LIST=A.KURZ_LIST
>> WHERE B.TIKET=9245001 OR A.KURZ_LIST=19954
>> GROUP BY KOMBINOVAT
>> HAVING COUNT(*)>1
LD> Udelal bych tento pokus:
LD> SELECT FIRST 1 COUNT(*)
LD> FROM KOMBINACIE A
LD> JOIN TIKETY2 B ON B.KURZ_LIST=A.KURZ_LIST and
LD> B.TIKET=9245001
LD> WHERE A.KURZ_LIST=19954
LD> GROUP BY KOMBINOVAT
LD> HAVING COUNT(*)>1
LD> a zalozit index na dvojici TIKETY2.KURZ_LIST TIKETY2.TIKET.
LD> Zjistil jsem totiz, ze je-li nekde podminka where pres dva sloupce a
LD> na kazdem sloupci je samostatny index, je vykon otresny. Udela-li
LD> se jeden index na oba sloupce, zlepseni je obrovske - i treba z
LD> nekolika minut na nekolik sekund.
LD> Dej vedet, zda to pomohlo.
LD> David Lebeda
-------------------------------------------
My answer:
----------
To som uz skusal, ale aby som to presnejsie vysvetlil:
V tabulke KOMBINACIE su dva stlpce KOMBINOVAT(cislo skupiny) a KURZ_LIST. Do tejto
tabulky sa zapisuje, ze v danej skupine sa ktore KURZ_LIST zoskupuju.
V BeforeInser or Update TIKETY2 kontrolujem, ci nahodov
dalsi(opravovany) zaznam s hodnotou KURZ_LIST=19954 nie je z zakazanej
kombinacii zo zaznamom, ktory uz v tabulke TIKETY2 existuje. Aj
existuje aspon jedna zakazana kombinacia, zaznam nie je mozne zadat.
Tabulka TIKETY2 obsahuje >72tis. records a KOMBINACIE >9tis.
Ta kombinacia s JOIN a nie LEFT JOIN mi nevrati to co chcem.
Exekucny plan s LEFT JOIN je:
PLAN SORT (JOIN (A NATURAL,B INDEX (IDX_TIKETY2_KURZ_LIST)))
Tie indexy ktore mi doporucujes mam davno vytvorene. Uz som skusal aj
jednoduchu SP ktora mi vrati
SELECT KURZ_LIST
FROM TIKETY2
WHERE TIKET=9251001
union all
select cast(19954 as double precision) from rdb$database
;
ale nebolo to vobez lepsie, cas na vykonanie bol 3x vacsi!
--
Best regards, TRoland
Pomaly nabeh programu u balicku
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 11.4.2003 14:13:15
> Mame system postaveny na baliccich a jsme s tim vcelku spokojeni.
> Jenze uz jsme se dostali asi na 80 balicku a bohuzel se nam ted zacalo
> stavat, ze kdyz zapneme agendu, tak to asi 20s trva, nez to nabehne.
A kde sa tie balicky nachadzaju? Ak ich Windows hlada cez environment
variable PATH, to moze chvilku trvat, podla toho, co vsetko v nej je...
(napriklad mapovane sietove cesty a podobne).
HTH
TOndrej
Build balicku, titulek okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2003 13:48:02
From: "Martin Radvansky" <delphicz(zv)stereo(tec)cz>
> Existuje nejaka moznost jak zmenit u MDI okna obrazek v ikone pro
> maximalizaci?
Na vlastni ikonu ?
> Mam jeste porad problem s buildem balicku.
> Muze mi nekdo predit s problemem, pri provedeni buildu balicku mi to
> hlasi chybu:
> (Error) MainDtata.dpk(53): RLINK32: Error opening file
> "D:\Vyvoj\Projekt\SpolFunc\SpolFunc.drf"
>
> Co je to soubor s priponou drf? zadny takovy neexistuje.
Neni to namapovany disk ? DRF je nejaky docasny soubor ktery se pouziva pri
kompilaci s balicky.
Petr Vones
FIREBIRD - Ako to zoptimalizovat ?
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.4.2003 13:27:48
> SELECT FIRST 1 COUNT(*)
> FROM KOMBINACIE A
> JOIN TIKETY2 B ON B.KURZ_LIST=A.KURZ_LIST
> WHERE B.TIKET=9245001 OR A.KURZ_LIST=19954
> GROUP BY KOMBINOVAT
> HAVING COUNT(*)>1
Udelal bych tento pokus:
SELECT FIRST 1 COUNT(*)
FROM KOMBINACIE A
JOIN TIKETY2 B ON B.KURZ_LIST=A.KURZ_LIST and
B.TIKET=9245001
WHERE A.KURZ_LIST=19954
GROUP BY KOMBINOVAT
HAVING COUNT(*)>1
a zalozit index na dvojici TIKETY2.KURZ_LIST TIKETY2.TIKET.
Zjistil jsem totiz, ze je-li nekde podminka where pres dva sloupce a
na kazdem sloupci je samostatny index, je vykon otresny. Udela-li
se jeden index na oba sloupce, zlepseni je obrovske - i treba z
nekolika minut na nekolik sekund.
Dej vedet, zda to pomohlo.
David Lebeda
Import udajov (aj struktura tabulky) z ms-access d
[*] Roland Turcan <rolo(zv)sedas.sk> - 11.4.2003 13:47:32
<<< 11. 4. 2003 13:47 - Vlko II. "vlko(zv)zilina.net" >>>
VI> btw: Ta diakritika tam musi ostat, lebo jednoducho uz to je tak zrobene, aj
VI> ked viem, ze je to blbost, ale co uz:)
-------------------------------------------
My answer:
----------
tomuto by som sa velmi vyhol!
--
Best regards, TRoland
Pomaly nabeh programu u balicku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2003 13:19:27
From: "Ing. Pavel �ilinec" <zilinec(zv)psinfos(tec)cz>
> Mame system postaveny na baliccich a jsme s tim vcelku spokojeni.
> Jenze uz jsme se dostali asi na 80 balicku a bohuzel se nam ted zacalo
> stavat, ze kdyz zapneme agendu, tak to asi 20s trva, nez to nabehne.
Na jakem hardware ? Pouziti balicku ma urcity vliv, ovsem na i na prumernem
hardware (CPU kolem 1GHz) je to zalezitost desitek milisekund.
> A protoze to je u kazde agendy jinak (nektere nabehnou okamzite), tak
> jsme z toho odvodili, ze cim nize je dana agenda a jeji balicky
> postavena (tzn., ze vyuziva mnohem vice jinych balicku, ktere se take
> odkazuji na jine balicky ...), tak startovani trva dele.
Tohle by chtelo vice informaci, ty balicky jsou predpokladam nahravane
dynamicky, co vsechno se pri zavedeni/ukonceni deje ?
> Myslime si, ze je to nejakou kontrolou "hlavicek" ve vsech podrizenych
> baliccich, pze pokud dame jinou verzi balicku zdanlive nesouvisejici s
> danou agendou, tak je nam to schopno pri startovani nahlasit chybu a
> skoncit.
Balicky jsou obycejne DLL, takze se pouze provede fixup importovanych funkci a
pak zavola kod ktery kontroluje, zdali neni uz nekde unit stejneho jmena ve
vice baliccich, vse jsou to ale operace na desitky milisekund.
> Je nam jasne, ze ta kontrola je tam z hlediska funkcnosti potrebna,
> ale neda se to nejak obejit nebo nekde neco nastavit pri prekladu, aby
> to startovani bylo vsude rychle (za predpokladu, ze si treba pretim
> overime bezchybnost prekladu, ...)?
Ne, ten problem musi byt nekde uplne jinde, 20 sec. uz je prilis dlouho (pokud
to nebezi na P1 75 Mhz ;-)
Petr Vones
Cteni portu LPT (paralelni).
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2003 13:28:03
From: "Stuchl, Vaclav" <VStuchl(zv)lear.com>
> Jedn� se mi konkr�tn� o komunikaci dvou po��ta��, cht�l bych t�mto
> dos�hnot vy��� rychlosti ne� umo��uje s�riov� komunikace.
Na urovni Win32 API lze tezko rict z LPT portu (nemluve o tom, ze uz se tento
port na novych motherboardech kolikrat ani nevyskytuje), musel by jsi pouzit
specialni driver, ktery by misto "portu urceneho pro tiskarnu" pouzival
nejakou vlastni komunikaci. Takove drivery se urcite daji koupit, otazka
jestli to ma smysl. Uprime receno, v dnesni dobe se nabizi asi daleko lepsi
reseni nez LPT port na propojeni dvou pocitacu - (Wireless) Ethernet nebo USB.
Petr Vones
FIREBIRD - Ako to zoptimalizovat ? --- OPRAVA
[*] Roland Turcan <rolo(zv)sedas.sk> - 11.4.2003 13:43:42
Hello Delphi CZ konferencia!
1. priklad
SELECT FIRST 1 COUNT(*)
FROM KOMBINACIE
WHERE KURZ_LIST IN (SELECT KURZ_LIST
FROM TIKETY2
WHERE TIKET=9245001)
OR
KURZ_LIST=19954
GROUP BY KOMBINOVAT
HAVING COUNT(*)>1
;
2. priklad
SELECT FIRST 1 COUNT(*)
FROM KOMBINACIE A
LEFT JOIN TIKETY2 B ON B.KURZ_LIST=A.KURZ_LIST
WHERE B.TIKET=9245001 OR A.KURZ_LIST=19954
GROUP BY KOMBINOVAT
HAVING COUNT(*)>1
;
Indexy su aj na:
KOMBINACIE.KURZ_LIST
KOMBINACIE.KOMBINOVAT,
TIKETY2.TIKET
Select ma zistit, ze ak vlozim zaznam do TIKETY2 s hodnotou
KURZ_LIST=19954 nebude v zakazanej kombinacii podla tabulky KOMBINACIE.
Jednoznacne mu vadi to OR vo WHERE. Prikaz sa dlho vykonava!
Ako to zoptimalizovat?
--
Best regards, TRoland
zvuk
[*] Simko Ivan <ivan.simko(zv)pozfond.sk> - 11.4.2003 13:37:43
Kde najdem komponentu na prehratie zvuku?zvuk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2003 13:45:21
From: "Simko Ivan" <ivan.simko(zv)pozfond.sk>
> Kde najdem komponentu na prehratie zvuku?
TMediaPlayer primo v Delphi.
Petr Vones
MSSQL a DBExpress
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2003 13:21:13
From: <mstevlik(zv)gamo.sk>
> No nenasiel som to tam, resp. je tam nejaky update pre Delphi 7 ale
> registrovanych uzivatelov, co nie som
Pokud vim, tak Delphi 7 bez registrace vubec nebezi, resp. maximalne 30 dni.
Nevidim tedy duvod proc se nezaregistrovat a stahnout ten update.
Petr Vones
EAccessViolation pri praci s tridou :-((
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 11.4.2003 13:22:48
From: "Bohac Frantisek" <bohacf(zv)vnol(tec)cz>
> begin
> with myDF do begin
> Create;
> OpenFile(cesta_k_prg+'data\stanice.dat',true);
> ...
Ta pricina je samozrejme v te neinicializovane lokalni promenne myDF
(obsahuje v podstate nejakou nahodnou polozku ze stacku - proto se to
chova jinak pri zmene kodu, ktery nijak nesouvisi s tou chybou:).
Kdyz uz musis za kazdou cenu pouzivat to nestastne with, tak takto:
with TDataFile.Create do
begin
...
end;
Kdyz se ucis programovat, tak na to WITH zapomen.
Dnes prekladac optimalizuje, takze to nemusis delat
za nej a ta trocha psani navic se bohate vrati
ve spolehlivejsim a lepe modifikovatelnem kodu.
HTH, pf
Neposteni uzivatele na plochu + databaze ( !!! pom
[*] Vlko II. <vlko(zv)zilina(tec)net> - 11.4.2003 13:26:17
On Thu, 10 Apr 2003 20:18:54 +0200, Jan �imeck� <jsimecky(zv)zskuldova(tec)cz>
wrote:
> Dobry den,
>
> potreboval bych poradit jak lze udelat aby aplikace nabehla pri startu
> windows tak ze nenabehne lista ani plocha. Proste aby aplikace se sama
> spustila pri nabihani pocitace, tak aniz by neco bylo videt na plose a
> nebyla lista (nechci listu nijak blokovat a ni pllochu zakryvat...). Bude
> se
je to pastnute z helpu k litestep, co je shel replacer, ale malo by to
pomoct, bohuzial je toho dost vela, tak odpuste za mnoztvo, a v podstate
staci namiesto litestep.exe dat nazov tvojho programu
win98: First you want to start up your text editor (ie notepad, editpad,
ultra edit) and open your c:\windows\system.ini file. If you set your
windows directory to something other than c:\windows\, look for it in that
directory and you'll find the system.ini.
Next you will want to find the line shell=explorer.exe in your system.ini
file, this line is normally found near the top. You are going to want to
comment out your shell=explorer.exe line by placing a semi-colon, ";", in
front of it. Then on the next line enter a line as follows;
shell=c:\litestep\litestep.exe
win2k,xp
Configuring Windows NT for LiteStep
The most common problem that happens during a LiteStep install on a Windows
NT machine is that most of the time users don't have administrative
privileges on their machine and can't use a shell swapper. There is,
however, a way to get around this.
You will need to modify a few registry entries, don't be afraid, so fire up
regedit and lets get started.
HKey_Local_Machine\Software\Windows
NT\CurrentVersion\IniFileMapping\system.ini\boot>SYS:Software\Microsoft\Windows
NT\CurrentVersion\Winlogon
change this to USR:Software\Microsoft\Windows NT\CurrentVersion\Winlogon
HKey_Current_User\Software\Microsoft\Windows
NT\CurrentVersion\Winlogon>Shell
change the value of Shell to c:\litestep\litestep.exe to add LiteStep.
HKey_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced>SeperateProcess
- if this DWORD is set to "1" explorer won't load as the shell when
triggered inside another shell, if this key is set to "0" it will. This key
effects LiteStep if you are using Internet Explorer 4 and up, if you have
an earlier version of Internet Explorer, use a STRING named DesktopProcess,
with a value of "1" instead of the DWORD. Basically you need this set to
yes if you don't want to have explorer setting itself as shell everytime
you access it.
Note: You can make LiteStep restart automatically after a crash in Window
NT. This was taken from the LiteStep b24 Manual written by TheMAN."The command SetAsShell makes LiteStep behave as the Official shell and it
notifies Windows of this fact. This does seem to create some problems with
Windows at times (especially with IE and quite often when running NT) and
it has been found that if you do use StepAsShell in your Step.Rc,you might
have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
key's value in your registry to 1 to get IE (and Windows) to work properly.
The only advantage to using SetAsShell is that LiteStep is automatically
started when it crashes, like Explorer normally does. As setting LiteStep
as the shell seems to create strange problems on different machines, it is
suggested that you don't set this value in your Step.Rc. If you do use
SetAsShell and decide to take it out after a while, remember that you will
have to reboot (not Recycle as is the normal case with a Step.Rc change)
and that you may have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
registry value back to 0 to get everything working properly."
So basically, if you want to try this - take a risk, worst thing that can
happen is that you will have problems with explorer until you change the
key back.
Configuring Windows 2K for LiteStep
The most common problem that happens during a LiteStep install on a Windows
NT machine is that most of the time users don't have administrative
privileges on their machine and can't use a shell swapper. There is,
however, a way to get around this.
You will need to modify a few registry entries, don't be afraid, so fire up
regedit and lets get started.
HKey_Local_Machine\Software\Microsoft\Windows
NT\CurrentVersion\IniFileMapping\system.ini\boot > Shell
change this to USR:Software\Microsoft\Windows NT\CurrentVersion\Winlogon
HKey_Current_User\Software\Microsoft\Windows
NT\CurrentVersion\Winlogon>Shell
change the value of Shell to c:\litestep\litestep.exe to add LiteStep.
HKey_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer -
Create a New vallue called DesktopProcess and set the Data Field to 1.
HKey_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\BrowseNewProcess
> - Change this value to "yes", it seems to correct a few problems with
explorer spawning itself as the shell.
Note: You can make LiteStep restart automatically after a crash in Window
NT. This was taken from the LiteStep b24 Manual written by TheMAN."The command SetAsShell makes LiteStep behave as the Official shell and it
notifies Windows of this fact. This does seem to create some problems with
Windows at times (especially with IE and quite often when running NT) and
it has been found that if you do use StepAsShell in your Step.Rc,you might
have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
key's value in your registry to 1 to get IE (and Windows) to work properly.
The only advantage to using SetAsShell is that LiteStep is automatically
started when it crashes, like Explorer normally does. As setting LiteStep
as the shell seems to create strange problems on different machines, it is
suggested that you don't set this value in your Step.Rc. If you do use
SetAsShell and decide to take it out after a while, remember that you will
have to reboot (not Recycle as is the normal case with a Step.Rc change)
and that you may have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
registry value back to 0 to get everything working properly."
So basically, if you want to try this - take a risk, worst thing that can
happen is that you will have problems with explorer until you change the
key back.
--
--------------
vlko_(zv)pobox.sk
XML Databaza?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.4.2003 13:35:18
From: "Peter Turcan" <peter.turcan(zv)centrum.sk>
> mam aplikaciu (nie hotovu) postavenu na ADO a rozmyslam, ci by nebolo
> lepsie ju prerobit do XML. Aj preto, lebo nie je (asi) potrebne nic
> dodatocne instalovat.
TClientDataSet umi ukladat data i do XML souboru (Borland tomu rika MyBase ;-)
> Ako je to s rychlostou, prehladmi atd? Pocet zaznamov v databaze
> nebude velmi velky.
Pro male soubory (rekneme do 10MB) je to asi dobre pouzitelne.
> (otazka na okraj: Je takto mozne ulozit do jedneho XML aj viac tabuliek?)
TClientDataSet podporuje nested datasety, vice v serialu na Community webu:
http://bdn.borland.com/soapbox/professionaldeveloper/
Z vlastni zkusenosti doporucuji se vyhnout XML transformacim pri pouziti vice
tabulek. XML transformace obsahuji pomerne dost chyb.
Petr Vones
EAccessViolation pri praci s tridou :-((
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 11.4.2003 12:59:05
to: Rumcajs
protoze jsem mel nadefinovane tohle, odpada moznost chybovosti v pristupu
pres dane data; ale taky se mi to hodne stavalo (a stava :-(:
Stanice: array [1..max_stanic] of TStanice;
to: David Lebeda
skonci to na SaveStanice; (tohle je procedura v data.pas)
kdyz dam krokovat, tak to skonci na radku OpenFile ...
OpenFile(cesta_k_prg+'data\stanice.dat',true);
ale to jen za predpokladu, ze za tim mam smycku for; kdyz tam smycka for
neni, tak je to uplne v poradku ... asi to nejak blbne pri kompilaci ...
zkusite se na to nekdo mrknout? Zdrojak je docasne na
www.sweb(tec)cz/franky/sprava.zip a bez exe je na
www.sweb(tec)cz/franky/sprava_noexe.zip
Frantisek Bohac
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 11, 2003 12:10 PM
Subject: Re: EAccessViolation pri praci s tridou :-((> > Prosim o radu - ucim se pracovat s tridami (protoze mi to pripada
> > lepsi (kdyz uz pracuji s objektovym jazykem)) a narazil jsem na chybu
>
> Ahoj,
>
> tak ne prvni letme kouknuti se mi zda, ze metoda fce WriteString zapisuje
do
> souboru dFile, coz je nejaka globalni promenna, zatimco SaveStanice ma
svoji
> lokalni instanci, coz je neco uplne jineho. Jinak - mas debugger, mel bys
najit
> konkretni radek v WriteString, kde Ti to pada....nebo ne?
>
> Pokud jsem neco prehledl, sorry.
>
> David Lebeda
>
>
>
FIREBIRD - Ako to zoptimalizovat ?
[*] Roland Turcan <rolo(zv)sedas.sk> - 11.4.2003 13:15:50
Hello Delphi CZ konferencia!
1. priklad
SELECT FIRST 1 COUNT(*)
FROM KOMBINACIE
WHERE KURZ_LIST IN (SELECT KURZ_LIST
FROM TIKETY2
WHERE TIKET=9245001)
OR
KURZ_LIST=19954
GROUP BY KOMBINOVAT
HAVING COUNT(*)>1
;
2. priklad
SELECT FIRST 1 COUNT(*)
FROM KOMBINACIE A
JOIN TIKETY2 B ON B.KURZ_LIST=A.KURZ_LIST
WHERE B.TIKET=9245001 OR A.KURZ_LIST=19954
GROUP BY KOMBINOVAT
HAVING COUNT(*)>1
;
Indexy su aj na:
KOMBINACIE.KURZ_LIST
KOMBINACIE.KOMBINOVAT,
TIKETY2.TIKET
Select ma zistit, ze ak vlozim zaznam do TIKETY2 s hodnotou
KURZ_LIST=19954 nebude v zakazanej kombinacii podla tabulky KOMBINACIE.
Jednoznacne mu vadi to OR vo WHERE.
Ako to zoptimalizovat?
--
Best regards, TRoland
Import udajov (aj struktura tabulky) z ms-access d
[*] Vlko II. <vlko(zv)zilina(tec)net> - 11.4.2003 13:16:19
Existuje nejaky nastroj na import udajov z ms-access do firebird, teda ani
tak o udaje nejde
na to je pumpovacich nastrojov habadej, nieco co by vytvorilo strukturu
tabulky, na autoincrement typy by vytvorilo generator a pod. Bohuzial
databaza je robena s diakritikou v nazvoch tabuliek a stlpcov, tak
standardny delphi Datapump si s tym nevie poradit. Nevie niekto o niecom?
btw: Ta diakritika tam musi ostat, lebo jednoducho uz to je tak zrobene, aj
ked viem, ze je to blbost, ale co uz:)
--------------
vlko_(zv)pobox.sk
EAccessViolation pri praci s tridou :-((
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 11.4.2003 13:12:48
----- Original Message -----
From: "Bohac Frantisek" <bohacf(zv)vnol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 11, 2003 12:59 PM
Subject: Re: EAccessViolation pri praci s tridou :-((> to: Rumcajs
>
> protoze jsem mel nadefinovane tohle, odpada moznost chybovosti v pristupu
> pres dane data; ale taky se mi to hodne stavalo (a stava :-(:
> Stanice: array [1..max_stanic] of TStanice;
>
> to: David Lebeda
>
> skonci to na SaveStanice; (tohle je procedura v data.pas)
>
> kdyz dam krokovat, tak to skonci na radku OpenFile ...
>
> OpenFile(cesta_k_prg+'data\stanice.dat',true);
>
> ale to jen za predpokladu, ze za tim mam smycku for; kdyz tam smycka for
> neni, tak je to uplne v poradku ... asi to nejak blbne pri kompilaci ...
>
> zkusite se na to nekdo mrknout? Zdrojak je docasne na
> www.sweb(tec)cz/franky/sprava.zip a bez exe je na
> www.sweb(tec)cz/franky/sprava_noexe.zip
>
> Frantisek Bohac
>
Mas to hodne zmatene, myl by ses podivat, jak se vlastne
vytvareji objekty.
Misto:
procedure SaveStanice;
var
i: integer;
myDF: TDataFile;
begin
with myDF do begin
Create;
OpenFile(cesta_k_prg+'data\stanice.dat',true);
...
bys tam mel mit:
procedure SaveStanice;
var
i: integer;
myDF: TDataFile;
begin
myDf := TDataFile.Create;
with myDF do begin
OpenFile(cesta_k_prg+'data\stanice.dat',true);
Radim
Secteni ikon v Systray
[*] Petr Varga <djvar(zv)post(tec)cz> - 11.4.2003 12:31:06
Ahoj vsichni.
Potreboval jsem pomoci. Nema nekdo z Vas nejaky trik nebo navod
na to jak secist ikony v tray oblasti? Snazim se o to uz tyden a
porad mi to nejde. Zadnou Api jsem na to nenasel.
Jde mi tedy o to dostat z traye jake ikony v sobe ma.. Nejlepe by
bylo, kdybych mohl vycist vsechny ty struktury tech ikon. To
znamena toho typu NOTIFYICONDATA. Z toho uz bych si nasel ktere
aplikaci patri jaka ikona.
Doufam, ze se tu nekdo najde kdo by o tom neco vedel.
Pripadne jestli nekdo alespon nevi, jak se pracuje s funkcemi
openprocess, readprocessmemory. Jak cist, jak se dozvedet odkud
zacit cist.
Predem moc dekuji
Petr Varga
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
EAccessViolation pri praci s tridou :-((
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.4.2003 12:10:44
> Prosim o radu - ucim se pracovat s tridami (protoze mi to pripada
> lepsi (kdyz uz pracuji s objektovym jazykem)) a narazil jsem na chybu
Ahoj,
tak ne prvni letme kouknuti se mi zda, ze metoda fce WriteString zapisuje do
souboru dFile, coz je nejaka globalni promenna, zatimco SaveStanice ma svoji
lokalni instanci, coz je neco uplne jineho. Jinak - mas debugger, mel bys najit
konkretni radek v WriteString, kde Ti to pada....nebo ne?
Pokud jsem neco prehledl, sorry.
David Lebeda
EAccessViolation pri praci s tridou :-((
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 11.4.2003 10:45:22
Dival sem se na to jenom z "letadla" ale v tom cyklu, nemelo by byt:
for i := 0 to max_stanic - 1 do begin
WriteString(Stanice[i].nazev);
end;
Sice beres jako prvni udaj, ale ten ma index 0, takze posledni udaj ma index
max - 1.
Rumcajs
> EAccessViolation pri praci s tridou :-((
>
> Prosim o radu - ucim se pracovat s tridami (protoze mi to pripada lepsi
> (kdyz uz pracuji s objektovym jazykem)) a narazil jsem na chybu ...
protoze
> v Deplhi jiz nejakou dobu programuji a rad se poucim od zkusenejsich,
velmi
> by mne potesilo, kdybyste mi nekdo poradili - predem dekuji. (P.S. - muzu
to
> poslat i mailem +obrazek s chybou)
>
> z unity main volam SaveStanice, na ktere se to zasekne s chybou:
>
> procedure TfrmMain.mnuUlozitClick(Sender: TObject);
> begin
> SaveStanice;
> end;
>
> ---------------------------- unit data: --------------------------
> unit data;
>
> interface
> procedure SaveStanice;
>
> type TStanice = record
> nazev: string[50];
> ip: string[16];
> mac: string [20];
> poznamka: string;
> end;
>
> const
> max_stanic = 250;
>
> var
> Stanice: array [1..max_stanic] of TStanice;
> pocet_stanic: integer;
>
> implementation
>
> uses
> SysUtils, IniFiles, main, myDataFile;
>
> { -------------------------------------------------------- }
> procedure SaveStanice;
> var
> i: integer;
> myDF: TDataFile;
> begin
> with myDF do begin
> Create;
> OpenFile(cesta_k_prg+'data\stanice.dat',true);
> // tady nsatav chyba - kdyz tu cyklus neni a je tu pouze
WriteString('aaa');
> tak je to v poradku.
> for i := 1 to max_stanic do begin
> WriteString(Stanice[i].nazev);
> end;
> CloseFile;
> end;
> end;
>
> (* tohle jsem tam potreboval zapasovat:
> for i := 1 to max_stanic do begin
> WriteString(Stanice[i].nazev);
> WriteString(Stanice[i].ip);
> WriteString(Stanice[i].mac);
> WriteString(Stanice[i].poznamka);
> end;
> *)
>
> end.
>
> ---------------------------- unit myDataFile: --------------------------
> unit myDataFile;
>
> (*
> myDataFile V1.0
> Unita pro nacitani a ukladani dat do a z datoveho souboru
> *)
>
> interface
>
> type TDataFile = class
> alive: boolean;
> version: word;
> // otevre soubor a otestuje hlavicku
> function OpenFile(nazev: string; zapis: boolean): boolean;
> function CloseFile: boolean;
> function WriteString(st: string): boolean;
> end;
>
> implementation
>
> { --------------------------------------------------------- }
>
> uses
> sysutils;
>
> { --------------------------------------------------------- }
>
> const
> dFileName: string = '';
> dWrite: boolean = False;
> dfHead = 'myDF';
> dfVersion = $0100; // verze programu
>
> var
> dFileVer: word;
> dFile: file of Byte;
> b: byte;
>
> { --------------------------------------------------------- }
>
> // zapise radek
> function TDataFile.WriteString(st: string): boolean;
> var i: integer;
> begin
> {$I-}
> if LengTh(st) > 0 then
> for i := 1 to LengTh(st) do begin
> b := Ord(st[i]);
> Write(dFile,b);
> end;
> b := 0;
> Write(dFile,b);
> {$I+}
> if IOResult <> 0 then result := False
> else result := True;
> end;
>
> function TDataFile.CloseFile: boolean;
> begin
> {$I-}
> System.CloseFile(dFile);
> alive := False;
> {$I+}
> end;
>
> // otevre soubor ke cteni nebo k zapisu
> function TDataFile.OpenFile(nazev: string; zapis: boolean): boolean;
> var
> st: string;
> begin
> dFileName := nazev;
> dWrite := zapis;
> alive := False;
> {$I-}
> AssignFile(dFile,dFileName);
> if dWrite then begin
> ReWrite(dFile);
> WriteString(dfHead);
> // zapisu verzi
> b := Hi(dfVersion);
> Write(dFile,b);
> b := Lo(dfVersion);
> Write(dFile,b);
> end else begin
> Reset(dFile);
> ReadString(st);
> if st <> dfHead then begin // neni spravna hlavicka
> result := False;
> Exit;
> end;
> Read(dFile,b);
> version := 256*b;
> Read(dFile,b);
> version := version+b;
> end;
> if IOResult <> 0 then begin
> result := False;
> Exit;
> end;
> {$I+}
> // a ukoncim
> alive := True;
> result := True;
> end;
>
> end.
>
>
Cteni portu LPT (paralelni).
[*] Stuchl, Vaclav <VStuchl(zv)lear(tec)com> - 11.4.2003 10:47:58
> V=E1=BEeni kolegov=E9,
> =09
>=20
> m=E1 n=ECkdo zku=B9enost s t=EDm, jak =E8=EDst data =
p=F8ich=E1zej=EDc=ED do PC p=F8es
> paraleln=ED port?
>=20
> Poslat na port je asi jednoduch=E9, tak jako se d=ECl=E1 tisk na LPT. =
Nebo snad
> pro oba sm=ECry existuje n=ECjak=E1 komponenta?
> Jedn=E1 se mi konkr=E9tn=EC o komunikaci dvou po=E8=EDta=E8=F9, =
cht=ECl bych t=EDmto
> dos=E1hnot vy=B9=B9=ED rychlosti ne=BE umo=BE=F2uje s=E9riov=E9 =
komunikace.
>=20
>=20
> D=ECkuji Va=B9ek Stuchl
>=20
>=20
>=20
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.471 / Virov=E1 b=E1ze: 269 - datum vyd=E1n=ED: 10.4.2003
=20
MSSQL a DBExpress
[*] Lubomir Fule <fule(zv)humansoft.sk> - 11.4.2003 10:35:39
> Ok tak sa skusam pripojit cez ADODataSet cez D6Pro co mi teoreticky i
> funguje, len potrebujem vyriesit jednu vec aby sa mi v
> DBGride prejavovali
> zmeny urobene inym uzivatelom
> Ako taketo nieco riesite obecne? Ked som nastavil CursorType
> na ctDynamic,
> tak podla helpu by to malo fungovat ale na grid to pripojit neviem
> Nechce sa mi to riesit cez nejaky timer, kt. by volal
> Refresh, to sa mi
> zda dost zvrhle a i nepratkticke
Podla mna sa to inac neda. To by server musel posielat na klientov nejake
spravy pri kazdej zmene, inac si to neviem predstavit. To co vidis v Gride
je predsa lokalne u Teba v pamati a na to aby sa to znova nacitalo zo
servera, musis zavolat refresh (Close - Open - Locate), inac to nejde.
L.
EAccessViolation pri praci s tridou :-((
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 11.4.2003 10:28:39
EAccessViolation pri praci s tridou :-((
Prosim o radu - ucim se pracovat s tridami (protoze mi to pripada lepsi
(kdyz uz pracuji s objektovym jazykem)) a narazil jsem na chybu ... protoze
v Deplhi jiz nejakou dobu programuji a rad se poucim od zkusenejsich, velmi
by mne potesilo, kdybyste mi nekdo poradili - predem dekuji. (P.S. - muzu to
poslat i mailem +obrazek s chybou)
z unity main volam SaveStanice, na ktere se to zasekne s chybou:
procedure TfrmMain.mnuUlozitClick(Sender: TObject);
begin
SaveStanice;
end;
---------------------------- unit data: --------------------------
unit data;
interface
procedure SaveStanice;
type TStanice = record
nazev: string[50];
ip: string[16];
mac: string [20];
poznamka: string;
end;
const
max_stanic = 250;
var
Stanice: array [1..max_stanic] of TStanice;
pocet_stanic: integer;
implementation
uses
SysUtils, IniFiles, main, myDataFile;
{ -------------------------------------------------------- }
procedure SaveStanice;
var
i: integer;
myDF: TDataFile;
begin
with myDF do begin
Create;
OpenFile(cesta_k_prg+'data\stanice.dat',true);
// tady nsatav chyba - kdyz tu cyklus neni a je tu pouze WriteString('aaa');
tak je to v poradku.
for i := 1 to max_stanic do begin
WriteString(Stanice[i].nazev);
end;
CloseFile;
end;
end;
(* tohle jsem tam potreboval zapasovat:
for i := 1 to max_stanic do begin
WriteString(Stanice[i].nazev);
WriteString(Stanice[i].ip);
WriteString(Stanice[i].mac);
WriteString(Stanice[i].poznamka);
end;
*)
end.
---------------------------- unit myDataFile: --------------------------
unit myDataFile;
(*
myDataFile V1.0
Unita pro nacitani a ukladani dat do a z datoveho souboru
*)
interface
type TDataFile = class
alive: boolean;
version: word;
// otevre soubor a otestuje hlavicku
function OpenFile(nazev: string; zapis: boolean): boolean;
function CloseFile: boolean;
function WriteString(st: string): boolean;
end;
implementation
{ --------------------------------------------------------- }
uses
sysutils;
{ --------------------------------------------------------- }
const
dFileName: string = '';
dWrite: boolean = False;
dfHead = 'myDF';
dfVersion = $0100; // verze programu
var
dFileVer: word;
dFile: file of Byte;
b: byte;
{ --------------------------------------------------------- }
// zapise radek
function TDataFile.WriteString(st: string): boolean;
var i: integer;
begin
{$I-}
if LengTh(st) > 0 then
for i := 1 to LengTh(st) do begin
b := Ord(st[i]);
Write(dFile,b);
end;
b := 0;
Write(dFile,b);
{$I+}
if IOResult <> 0 then result := False
else result := True;
end;
function TDataFile.CloseFile: boolean;
begin
{$I-}
System.CloseFile(dFile);
alive := False;
{$I+}
end;
// otevre soubor ke cteni nebo k zapisu
function TDataFile.OpenFile(nazev: string; zapis: boolean): boolean;
var
st: string;
begin
dFileName := nazev;
dWrite := zapis;
alive := False;
{$I-}
AssignFile(dFile,dFileName);
if dWrite then begin
ReWrite(dFile);
WriteString(dfHead);
// zapisu verzi
b := Hi(dfVersion);
Write(dFile,b);
b := Lo(dfVersion);
Write(dFile,b);
end else begin
Reset(dFile);
ReadString(st);
if st <> dfHead then begin // neni spravna hlavicka
result := False;
Exit;
end;
Read(dFile,b);
version := 256*b;
Read(dFile,b);
version := version+b;
end;
if IOResult <> 0 then begin
result := False;
Exit;
end;
{$I+}
// a ukoncim
alive := True;
result := True;
end;
end.
ADO a update SQL
[*] Milan Bartonek <mbartonek(zv)synthesia(tec)cz> - 11.4.2003 10:30:31
>> Jak se da pres ADO (pouzivam TADOQuery) v D6 definovat jake polozky se
>> budou insertovat a jake updatovat ?
>> pro BDE je to UpdateSql.
> Podivej se do helpu ADO na hesla Unique Table, Unique Schema, Unique
> Catalog, Resync Command, Update Criteria. Nastavenim techto vlastnosti se
> dosahne pozadovane funkcnosti.
> Jinak jsem na toto tema psal do konference priklad. Podivej se do archivu
> konference na helo resync v ADO.
V helpu mi to zadna hesla (Unique Table, Unique Schema, ...) nenaslo - D6
prof
podle tveho prikladu nevim k cemu priradit Item[..] v udalosti AfterOpen.
Milan
neprekreslovanie Label
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 11.4.2003 09:22:44
----- Original Message -----
From: "Lukas Estvanc" <newkaso(zv)hotmail.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 10, 2003 6:50 PM
Subject: neprekreslovanie Label
> Mam na ploche label1 a tlacitko ... okrem toho kopu inych veci. Stlacim
> form1.repaint; nefunguje
>
Mel jsem podobny problem v D5 - vykreslovani v cyklu nechodilo. Spravilo to:
Label.Update
Petr
neprekreslovanie Label
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 11.4.2003 09:32:18
Tak pouzi "Label1.Update;" . To funguje na 100%. >: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Lukas Estvanc
>: Sent: Thursday, April 10, 2003 9:51 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: RE: neprekreslovanie Label
>:
>: >prekreslovani resi Delphi pomoci metody invalidate, tzn prekresli
se, az
>: na
>: >to "ma cas", pokud si chces prekresleni vynutit, tak po nastaveni
>: caption
>: >zavolel label1.repaint
>:
>: Skusal som aj label1.repaint, nefunguje. Funguje mi:
>: label1.hide;
>: label1.show;
>: ale neni to moc "inteligentne riesenie". Skor by ma zaujimalo preco
to
>: robi.
>:
>: --
>: Lukas Estvanc
>:
>: _________________________________________________________________
>: Help STOP SPAM with the new MSN 8 and get 2 months FREE*
>: http://join.msn.com/?page=features/junkmail
---
avast! Antivirus: Odchadzajuca sprava cista.
Virova databaza (VPS): 8. 4. 2003
Testovane: 11. 4. 2003 9:31:15
avast! (c) copyright 2000-2003 ALWIL Software.
http://www.avast.com
InstallShieldExpres vo Win XP
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 11.4.2003 09:05:35
Nepouzivej ho. Ten co je na CD s Delphi je prilis jednoduchy, anglicky a
ocividne chybovy. Navic pokud by jci chtel neco malinko lepsiho (jinou
verzi tohoto sw) je take drahy.
Zkus http://www.innosetup.com
Je to presny opak a navic on sam je psany v Delphi. Dokonce se chlubi ze ho
pouziva i M$ pro sve aplikace ;-)
>Vcera som sa pokusil nainstalovat si
>InstallShieldExpres z cd-cka Delphi 5 prof na Win XP Prof + SP1.
>Bohuzial instalacia zlyhala, instalator vyhodil chybove
>hlasenie :
>
>"config.nt Systemovy subor sa neda pouzit v aplikaciach
>MS-Dos a Microsoft Windows. Prikazom zatvorit ukoncite
>aplikaciu."
>
>Pouzivate niekto InstallShield po Win XP ?
>Funguje Vam to ?
> S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
neprekreslovanie Label
[*] StuPe - 11.4.2003 09:02:55
Jeste zkus Application.ProcessMessages, ten zpusob=ED zpracov=E1n=ED =
zpr=E1v ve fronte
Ten Label se bezne prekresl=ED az pri v=FDstupu z procedury (reakce na =
event) napr. onClick()
takto by se mely zpr=E1vy win zpracovat i v polovine procedury mezi =
begin-end proc. napr. OnClick() butonku
StuPe http://stupe.jinde(tec)cz
----- Puvodn=ED zpr=E1va -----=20
Od: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 11. dubna 2003 8:30
Predmet: Re: neprekreslovanie Label
> > Mam na ploche label1 a tlacitko ... okrem toho kopu inych veci.
> > Stlacim tlacitko a to ma jedinu ulohu a to urobit label1.caption =
:=3D
> > 'A' ... Problem je v tom, ze sice program prepise hodnotu
> > label1.caption, ale neprekresli ho.
>=20
> Ahoj,
>=20
> to je divne a rozhodne ne v poradku. Nelezi ten label treba na nejakem =
panelu, ktery=20
> je not enabled?
>=20
> Pak bych jeste zkusil volat Label1.Update, popr. Form.Update. Rozdil =
mezi Update a=20
> Repaint, Refresh apod. je v tom, ze pokud ve fronte zprav existuje =
pozadavek na=20
> prekresleni, ale system ho odklada na pozdeji, tak Update vynuti =
prekresleni hned.=20
>=20
> David Lebeda
>=20
>=20
>=20
Add record into the Paradox
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.4.2003 08:25:18
> novy zaznam pridavam do paradoxu tak, ze:
>
> Table1.Append;
> Form2.ShowModal;
> if Form2.ModalResult = mrOK then
> Table1.Post;
> if Form2.ModalResult = mrCancel then
> Table1.Cancel;
>
> Uvedenie tabulky do stavu insert Append-om vsak umoznuje
> pridavat zaznam len na koniec tabulky. Snazil som sa tam pridat
>
> Table1.First;
>
> ale vyhadzuje mi to chybu zapisu.
U databazi obecne plati dulezite pravidlo, ze pokud ty sam nespecifikujes poradi
zaznamu, vraci se ti v obecne nahodnem poradi. Resp. pozadavkem je, aby se
vratila vsechna spravna data, ale je jedno, v jakem poradi. Proto proste pri vkladani
data vlozis do tabulky a melo by ti byt jedno, kam se opravdu zapisi. Protoze pri
praci s daty pouzijes index nebo order by ci jiny zpusob, ktery urci jejich setrideni.
Append vklada na konec, Insert tam, kde stojis (asi), ale vynucovat to je systemove
spatne.
-------------------------------------------------
K tomu kodu, co jsi napsal, bych mel jednu vyhradu, ktera ti v tomto pripade prijde
mozna zbytecna, ale v slozitejsich pripadech by te mohla pekne potrapit. Mas tam za
ShowModal dva ify. Pruser nastane, jestlize ModalResult nebude mrOK ani
mrCancel. V dane situaci to treba nehrozi, ale obecne, jestlize potrebujes vkladaci
rezim nejak ukoncit, musi tam byt alternativa, ktera neni omezena podminkou. Napr.
nejake else, blok finally apod.
David Lebeda
Add record into the Paradox
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 11.4.2003 08:58:05
alex, <mailto:bugala_a(zv)inMail.sk>:
a> Je mozne pridavat zaznamy na zaciatok tabulky Paradox ??????
Zapomen na fyzicke usporadani tabulky. To co se ti vrati prikazem
Table.First, je dano mimo jine aktivnim indexem a filtrem.
Precti si nejakou knizku, ja jsem praci s Paradoxem vycetl v
Mistrovstvi v Delphi 2 od Marco Cantu. Dnes je to jiz stare, ale s
Paradoxem se dela stale stejne.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Ztracene spojeni s FB
[*] <rdanhel(zv)centrum(tec)cz> - 11.4.2003 08:28:45
>> Zdravim...> snazim se osetrit ztratu spojeni s FB serverem (napr. pri vypnuti PC
kde
> bezi server) a nevim si s tim rady
> > Function TForm1.PingDB(DBO:Tobject):Boolean;> begin
> if IBDatabase1.TestConnected then begin
> Result:=true;> exit;> end;> repeat
> if DefMessageDlg('Varov�n�','Databaze byla odpojena, zkusit
p�ipojit znovu
> ?',> mtConfirmation, [mbYes, mbNo], mrNo, 0) = mrNo then begin
> Result:=false;> exit;> end;> > TIBQuery(DBO).close; ******> IBDatabase1.close;> Try
> IBDatabase1.Connected:=true;> Result:=true;> except
> ShowMessage('Akce ne�sp�n�, mo�n� je po��ta� vypnut !');> end;> until IBDatabase1.Connected;> end;> > Po uspesnem znovupripojeni se ale objevi chyba "Dataset open", i
kdyz tam ma
> close (radek s *******)>
Skus pouzit misto database.close tak database.forceclose. Close v
pripade ztraty spojeni nefunguje. (neni co zavirat)
Jestw ale nevim jestli TestConected ti vrati false kdyz se odpoji
server. Databaze ano ale spadnuti serveru nebo lankove komunikace
tusim ze testconnected neschodi, ale nejsem si jistej. Pouzivam
FibPlus komponenty. Ty maji na odpojeni svoje eventy a je to super.
S pozdravem Rostislav Danhel
--------------------
Centrum(tec)cz P�ipojen� - P�ipojte se k internetu bez �ek�n� a zdarma! http://pripojeni.centrum(tec)cz
neprekreslovanie Label
[*] dphi_forum(zv)proces.sk - 11.4.2003 08:29:31
u mna to fungovalo, ale co tak pouzit Application.ProcessMessages;???
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 100 do
begin
Label1.Caption := IntToStr(I);
Sleep(10);
Application.ProcessMessages;
end;
end;
|---------+--------------------------->
| | "Lukas Estvanc" |
| | <newkaso(zv)hotmail|
| | .com> |
| | Sent by: |
| | delphi-l-owner(zv)c|
| | lexpert(tec)cz |
| | |
| | |
| | 10.04.2003 21:50|
| | Please respond |
| | to delphi-l |
| | |
|---------+--------------------------->
>---------------------------------------------------------------------------------------------------------------|
| |
| To: delphi-l(zv)clexpert(tec)cz |
| cc: |
| Subject: RE: neprekreslovanie Label |
>---------------------------------------------------------------------------------------------------------------|
>prekreslovani resi Delphi pomoci metody invalidate, tzn prekresli se, az
na
>to "ma cas", pokud si chces prekresleni vynutit, tak po nastaveni caption
>zavolel label1.repaint
Skusal som aj label1.repaint, nefunguje. Funguje mi:
label1.hide;
label1.show;
ale neni to moc "inteligentne riesenie". Skor by ma zaujimalo preco to
robi.
--
Lukas Estvanc
_________________________________________________________________
Help STOP SPAM with the new MSN 8 and get 2 months FREE*
http://join.msn.com/?page=features/junkmail
Pomaly nabeh programu u balicku
[*] Ing. Pavel �ilinec����)b����ȧ~�� - 11.4.2003 08:46:43
Mame system postaveny na baliccich a jsme s tim vcelku spokojeni.
Jenze uz jsme se dostali asi na 80 balicku a bohuzel se nam ted zacalo
stavat, ze kdyz zapneme agendu, tak to asi 20s trva, nez to nabehne.
A protoze to je u kazde agendy jinak (nektere nabehnou okamzite), tak
jsme z toho odvodili, ze cim nize je dana agenda a jeji balicky
postavena (tzn., ze vyuziva mnohem vice jinych balicku, ktere se take
odkazuji na jine balicky ...), tak startovani trva dele.
Myslime si, ze je to nejakou kontrolou "hlavicek" ve vsech podrizenych
baliccich, pze pokud dame jinou verzi balicku zdanlive nesouvisejici s
danou agendou, tak je nam to schopno pri startovani nahlasit chybu a
skoncit.
Je nam jasne, ze ta kontrola je tam z hlediska funkcnosti potrebna,
ale neda se to nejak obejit nebo nekde neco nastavit pri prekladu, aby
to startovani bylo vsude rychle (za predpokladu, ze si treba pretim
overime bezchybnost prekladu, ...)?
Zakaznici si jiz pri prepinani agend zacinaji delat kafe, ... :)
Diky za kazdou radu ci napad.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Add record into the Paradox
[*] Michal Kolisek <michal.kolisek(zv)asei(tec)cz> - 11.4.2003 08:29:05
Dobry den.
No, bude dobre si najprv precitat nieco o funkcnosti a riadeni zaznamov v
databazi. Skutocne nieje mozne zapisovat do databazi na urcite miesto (pkial
je to novy zaznam, v drtivej vetsine sa bude automaticky pridavat na koniec
tabulky). Jedinym riesenim je vyrobit si index s inkrementalnou hodnotou, a
pri pridavani noveho zaznamu si zistit, ktore cislo je posledne a zvetsit ho
o jedna (v pripade pridani na koniec), alebo zmenit toto cislo u zaznamov,
ktore su po mieste, kam chces zaznam pridat, a potom vlozit.
Druha moznost je zapomenut na Paradox a zalozit si strukturovany subor...
M.Kolisek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ji�� Mat�jka
Sent: Friday, April 11, 2003 7:47 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Add record into the Paradox
Udelal bych
Table1.First;
Table1.Insert;
... vlozeni hodnot
Table1.Post; // nebo Cancel kdyz potrebujes
Ale obecne nelze v relacni databazi spolehat na razeni zaznamu, to by se
melo delat vzdy v SQL pres ORDER BY. Otazkou je zda lze povazovat Paradox za
opravdu relacni databazi :-))
Jirka Matejka
----- Original Message -----
From: "alex" <bugala_a(zv)inMail.sk>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 10, 2003 8:42 PM
Subject: Add record into the Paradox
> Ahojte,
>
> novy zaznam pridavam do paradoxu tak, ze:
>
> Table1.Append;
> Form2.ShowModal;
> if Form2.ModalResult = mrOK then
> Table1.Post;
> if Form2.ModalResult = mrCancel then
> Table1.Cancel;
>
> Uvedenie tabulky do stavu insert Append-om vsak umoznuje
> pridavat zaznam len na koniec tabulky. Snazil som sa tam pridat
>
> Table1.First;
>
> ale vyhadzuje mi to chybu zapisu.
>
> Je mozne pridavat zaznamy na zaciatok tabulky Paradox ??????
>
> Dakujem,
> Alex
>
> -----------------------------------------------------
> Bugala Alex - stredoskolak
> Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
> e-mail: bugala_a(zv)inMail.sk
>
>
> ----------
> Teraz uz domena .SK pre kazdeho uplne ZADARMO.
> Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
>
>
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.470 / Virov� b�ze: 268 - datum vyd�n�: 11.4.2003
neprekreslovanie Label
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.4.2003 08:30:19
> Mam na ploche label1 a tlacitko ... okrem toho kopu inych veci.
> Stlacim tlacitko a to ma jedinu ulohu a to urobit label1.caption :=
> 'A' ... Problem je v tom, ze sice program prepise hodnotu
> label1.caption, ale neprekresli ho.
Ahoj,
to je divne a rozhodne ne v poradku. Nelezi ten label treba na nejakem panelu, ktery
je not enabled?
Pak bych jeste zkusil volat Label1.Update, popr. Form.Update. Rozdil mezi Update a
Repaint, Refresh apod. je v tom, ze pokud ve fronte zprav existuje pozadavek na
prekresleni, ale system ho odklada na pozdeji, tak Update vynuti prekresleni hned.
David Lebeda
neprekreslovanie Label
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 11.4.2003 08:38:19
> Stlacim tlacitko a to ma jedinu ulohu a to urobit
> label1.caption := 'A' ...
> Problem je v tom, ze sice program prepise hodnotu
> label1.caption, ale neprekresli ho. Prekresli ho
> az po tom, ako okno minimalizujem/maximalizujem,
> alebo prejdem "ponad" label nejakym inym oknom.
Bezne to funguje. Predpokladam, ze tam mas nejaky kod, ktory tomu
prekreslovaniu brani.
Skus sa pozriet na nezvycajne veci na urovni parenta alebo formulara:
message handlers, window style (v CreateParams) apod.
HTH
TOndrej
InstallShieldExpres vo Win XP
[*] <idulgerov(zv)centrum.sk> - 11.4.2003 08:12:01
Zdravim vsetkych.
Vcera som sa pokusil nainstalovat si
InstallShieldExpres z cd-cka Delphi 5 prof na Win XP Prof + SP1.
Bohuzial instalacia zlyhala, instalator vyhodil chybove
hlasenie :
"config.nt Systemovy subor sa neda pouzit v aplikaciach
MS-Dos a Microsoft Windows. Prikazom zatvorit ukoncite
aplikaciu."
Pouzivate niekto InstallShield po Win XP ?
Funguje Vam to ?
Ja ho normalne nepouzivam, ale teraz by sa mi fakt hodil :-(
S pozdravom
Ivan Dulgerov SK
------------------------------------------------------------------------
Vysk��aj Aquafresh Whitening syst�m - pre �iarivo biele zuby, intenz�vne
svie�i dych a cel� Tvoje �sta. S��a� o 10.000,- Sk!
http://ad.centrum.sk/link/?cid=1278&banner=1
Add record into the Paradox
[*] Ji�� Mat�jka�����^�F�צ����̿ - 11.4.2003 07:46:46
Udelal bych
Table1.First;
Table1.Insert;
... vlozeni hodnot
Table1.Post; // nebo Cancel kdyz potrebujes
Ale obecne nelze v relacni databazi spolehat na razeni zaznamu, to by se
melo delat vzdy v SQL pres ORDER BY. Otazkou je zda lze povazovat Paradox za
opravdu relacni databazi :-))
Jirka Matejka
----- Original Message -----
From: "alex" <bugala_a(zv)inMail.sk>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 10, 2003 8:42 PM
Subject: Add record into the Paradox
> Ahojte,
>
> novy zaznam pridavam do paradoxu tak, ze:
>
> Table1.Append;
> Form2.ShowModal;
> if Form2.ModalResult = mrOK then
> Table1.Post;
> if Form2.ModalResult = mrCancel then
> Table1.Cancel;
>
> Uvedenie tabulky do stavu insert Append-om vsak umoznuje
> pridavat zaznam len na koniec tabulky. Snazil som sa tam pridat
>
> Table1.First;
>
> ale vyhadzuje mi to chybu zapisu.
>
> Je mozne pridavat zaznamy na zaciatok tabulky Paradox ??????
>
> Dakujem,
> Alex
>
> -----------------------------------------------------
> Bugala Alex - stredoskolak
> Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
> e-mail: bugala_a(zv)inMail.sk
>
>
> ----------
> Teraz uz domena .SK pre kazdeho uplne ZADARMO.
> Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
>
>
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.470 / Virov� b�ze: 268 - datum vyd�n�: 11.4.2003
Neposteni uzivatele na plochu + databaze ( !!! pom
[*] Ludv�k Vl�ek <l.vlcek(zv)noel-plus(tec)cz> - 11.4.2003 07:06:47
Jan �imeck� napsal(a):
> Dobry den,
>
> potreboval bych poradit jak lze udelat aby aplikace nabehla pri startu
> windows tak ze nenabehne lista ani plocha. Proste aby aplikace se sama
> spustila pri nabihani pocitace, tak aniz by neco bylo videt na plose a
> nebyla lista (nechci listu nijak blokovat a ni pllochu zakryvat...). Bude se
> zrejme neco pridat do registru, ale nevim jak...
No,
princip spociva v tom, ze je treba ve winech zamenit neco jako shell. Ve
win se to tusim jmenuje Explorer.exe a odkazuje se na tento soubor
polozka shell v souboru \%WINDOWS%\system.ini
Matne si vzpominam, ze navody na podobne triky vychazely (a jeste stale
vychazeji) v casopise PC World. Na jejich strankach (tusim www.pwc(tec)cz)
lze tyto nalezt online. Sice to neni prave zhava novinka, ale tyhle
triky tam urcite jsou, jelikoz byly publikovany relativne davno...
Goog luck
--
L.V.
jezevec
ADO a update SQL
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 11.4.2003 07:00:55
> Ahoj,
>
> Jak se da pres ADO (pouzivam TADOQuery) v D6 definovat jake polozky se
> budou insertovat a jake updatovat ?
> pro BDE je to UpdateSql.
>
> Hlavne to potrebuji pro nasledujici priklad
>
> select a.*, b.text
> from a
> left join b on b.id = a.id
>
> data zobrazim na formulari a pri zmene udaju udelam
>
> ADOQuery,FieldByName('text').Value := .....;
> ADOQuery.Post;
>
> abych nemusel znovu nacitat select. Zde to pak nahlasi chybu.
> Potrebuji nekde zadat, ze se update, insert a delete dela jen nad
tabulkou
> A a ne i nad B .
Podivej se do helpu ADO na hesla Unique Table, Unique Schema, Unique
Catalog, Resync Command, Update Criteria. Nastavenim techto vlastnosti se
dosahne pozadovane funkcnosti.
Jinak jsem na toto tema psal do konference priklad. Podivej se do archivu
konference na helo resync v ADO.
Petr
ADO a update SQL
[*] Milan Bartonek <mbartonek(zv)synthesia(tec)cz> - 11.4.2003 05:59:04
Ahoj,
Jak se da pres ADO (pouzivam TADOQuery) v D6 definovat jake polozky se
budou insertovat a jake updatovat ?
pro BDE je to UpdateSql.
Hlavne to potrebuji pro nasledujici priklad
select a.*, b.text
from a
left join b on b.id = a.id
data zobrazim na formulari a pri zmene udaju udelam
ADOQuery,FieldByName('text').Value := .....;
ADOQuery.Post;
abych nemusel znovu nacitat select. Zde to pak nahlasi chybu.
Potrebuji nekde zadat, ze se update, insert a delete dela jen nad tabulkou
A a ne i nad B .
Dekuji
Bartonek Milan
Add record into the Paradox
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 10.4.2003 21:37:15
Opravdu by jsi se nemel spolehat na to, ze se zaznam napise do nejakeho
fyzickeho mista. Pokud na tom skutecne zalezi, pouzij treba typovy ci
textovy soubor. Ale nespolehej se na nejake fyzicke poradi zaznamu v
databazi. Staci zmenit nejaky index a je po vsem. A pokud bys presel =
treba
na Access nebo SQL, je to nepouzitelne.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
novy zaznam pridavam do paradoxu tak, ze:
Table1.Append;
Form2.ShowModal;
if Form2.ModalResult =3D mrOK then
Table1.Post;
if Form2.ModalResult =3D mrCancel then=20
Table1.Cancel;
Uvedenie tabulky do stavu insert Append-om vsak umoznuje
pridavat zaznam len na koniec tabulky. Snazil som sa tam pridat
Table1.First;
ale vyhadzuje mi to chybu zapisu.
Je mozne pridavat zaznamy na zaciatok tabulky Paradox ??????
neprekreslovanie Label
[*] Lukas Estvanc <newkaso(zv)hotmail(tec)com> - 10.4.2003 21:50:59
>prekreslovani resi Delphi pomoci metody invalidate, tzn prekresli se, az na
>to "ma cas", pokud si chces prekresleni vynutit, tak po nastaveni caption
>zavolel label1.repaint
Skusal som aj label1.repaint, nefunguje. Funguje mi:
label1.hide;
label1.show;
ale neni to moc "inteligentne riesenie". Skor by ma zaujimalo preco to robi.
--
Lukas Estvanc
_________________________________________________________________
Help STOP SPAM with the new MSN 8 and get 2 months FREE*
http://join.msn.com/?page=features/junkmail
Ztracene spojeni s FB
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 10.4.2003 21:24:01
Zdravim...
snazim se osetrit ztratu spojeni s FB serverem (napr. pri vypnuti PC kde
bezi server) a nevim si s tim rady
Function TForm1.PingDB(DBO:Tobject):Boolean;
begin
if IBDatabase1.TestConnected then begin
Result:=true;
exit;
end;
repeat
if DefMessageDlg('Varov�n�','Databaze byla odpojena, zkusit p�ipojit znovu
?',
mtConfirmation, [mbYes, mbNo], mrNo, 0) = mrNo then begin
Result:=false;
exit;
end;
TIBQuery(DBO).close; ******
IBDatabase1.close;
Try
IBDatabase1.Connected:=true;
Result:=true;
except
ShowMessage('Akce ne�sp�n�, mo�n� je po��ta� vypnut !');
end;
until IBDatabase1.Connected;
end;
Po uspesnem znovupripojeni se ale objevi chyba "Dataset open", i kdyz tam ma
close (radek s *******)
valik
ICQ 54152896
neprekreslovanie Label
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 10.4.2003 21:23:37
prekreslovani resi Delphi pomoci metody invalidate, tzn prekresli se, az na
to "ma cas", pokud si chces prekresleni vynutit, tak po nastaveni caption
zavolel label1.repaint
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Neposteni uzivatele na plochu + databaze ( !!! pom
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 10.4.2003 21:36:27
>potreboval bych poradit jak lze udelat aby aplikace nabehla pri startu
>windows tak ze nenabehne lista ani plocha. Proste aby aplikace se sama
>spustila pri nabihani pocitace, tak aniz by neco bylo videt na plose a
>nebyla lista (nechci listu nijak blokovat a ni pllochu zakryvat...). Bude se
>zrejme neco pridat do registru, ale nevim jak...
ve win9x stacilo pridat do win.ini
shell=c:\mojeapp.exe
a to stacilo -> pustila se na misto Exploreru, tedy namisto listy a plochy.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Add record into the Paradox
[*] alex <bugala_a(zv)inMail.sk> - 10.4.2003 20:42:05
Ahojte,
novy zaznam pridavam do paradoxu tak, ze:
Table1.Append;
Form2.ShowModal;
if Form2.ModalResult = mrOK then
Table1.Post;
if Form2.ModalResult = mrCancel then
Table1.Cancel;
Uvedenie tabulky do stavu insert Append-om vsak umoznuje
pridavat zaznam len na koniec tabulky. Snazil som sa tam pridat
Table1.First;
ale vyhadzuje mi to chybu zapisu.
Je mozne pridavat zaznamy na zaciatok tabulky Paradox ??????
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
e-mail: bugala_a(zv)inMail.sk
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
Neposteni uzivatele na plochu + databaze ( !!! pom
[*] Jan �imeck� - 10.4.2003 20:18:54
Dobry den,
potreboval bych poradit jak lze udelat aby aplikace nabehla pri startu
windows tak ze nenabehne lista ani plocha. Proste aby aplikace se sama
spustila pri nabihani pocitace, tak aniz by neco bylo videt na plose a
nebyla lista (nechci listu nijak blokovat a ni pllochu zakryvat...). Bude se
zrejme neco pridat do registru, ale nevim jak...
Dale bych potreboval vytvorit na serveru databazi (muze to byt i soubor) a
na klienskych PC se budou data menit (pracovat z hodnoty). Nejidealnejsi by
bylo, kdyby na servetu bezel nejaky sql klient (to je bez problemu), ale jde
mi o to jak zasilat na ip serveru, kde mysql bezi sql prikazy a ziskane
hodnoty ( pr. select * from uzivatele where user=1 ). Nebo mate nejaky jiny
napad???
Predem dekuji za vasi odpoved (napiste mi prosim veskere napady). (zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan Simecky
simecky(zv)centrum(tec)cz
-----------------------------
http://www.simecky.tk
http://www.sranda.tk
http://www.reklalink.tk
http://www.kam-nalesne.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.438 / Virov� b�ze: 246 - datum vyd�n�: 7.1.2003
neprekreslovanie Label
[*] Lukas Estvanc <newkaso(zv)hotmail(tec)com> - 10.4.2003 18:50:57
Mam na ploche label1 a tlacitko ... okrem toho kopu inych veci. Stlacim
tlacitko a to ma jedinu ulohu a to urobit label1.caption := 'A' ... Problem
je v tom, ze sice program prepise hodnotu label1.caption, ale neprekresli
ho. Prekresli ho az po tom, ako okno minimalizujem/maximalizujem, alebo
prejdem "ponad" label nejakym inym oknom.V inych projektoch a v inych
formularoch tohto projektu mi to robi normalne ...
kompiloval som to v Borland Delphi 6 aj 7 s tym istym vysledkom...
form1.repaint; nefunguje
V com moze byt chyba?
--
Lukas Estvanc
_________________________________________________________________
The new MSN 8: advanced junk mail protection and 2 months FREE*
http://join.msn.com/?page=features/junkmail
Free databazovy engine, pre Delphi & Kylix
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 10.4.2003 17:39:10
>Ahoj,
>poznate niekto free databazu pre Delphi a Kylix, pricom ju netreba
>instalovat?
>Zda sa mi, ze existovalo nieco take, co sa skompiluje priamo s programom.
>Staci nejaku zakladnu podmnozinu SQL.
>Pripomeniete mi nazov, link?
>Pripadne ak s tym mate nejake skusenosti, mozte napisat.
>S pozdravom
>Ondrej Krsko
na torry.net si nech vyhledat SQLite
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
XML Databaza?
[*] delphin <delphinPP(zv)seznam(tec)cz> - 10.4.2003 16:15:50
> (otazka na okraj: Je takto mozne ulozit do jedneho XML aj viac tabuliek?)
..TClientDataSet pozna TDataSetField, cize v jednom XML mozes mat
Master-Detail... v tom D6 Demos priklade : "Example of using
TXMLTransformProvider" je to tak urobene...
MSSQL a DBExpress
[*] mstevlik(zv)gamo.sk - 10.4.2003 15:29:52
Ok tak sa skusam pripojit cez ADODataSet cez D6Pro co mi teoreticky i
funguje, len potrebujem vyriesit jednu vec aby sa mi v DBGride prejavovali
zmeny urobene inym uzivatelom
Ako taketo nieco riesite obecne? Ked som nastavil CursorType na ctDynamic,
tak podla helpu by to malo fungovat ale na grid to pripojit neviem
Nechce sa mi to riesit cez nejaky timer, kt. by volal Refresh, to sa mi
zda dost zvrhle a i nepratkticke
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
icq: 34893645
MSSQL a DBExpress
[*] mstevlik(zv)gamo.sk - 10.4.2003 14:54:51
No nenasiel som to tam, resp. je tam nejaky update pre Delphi 7 ale
registrovanych uzivatelov, co nie som
Je mozne sa pripojit i cez D6 Pro (ponuka mi len pripojenie na MySQL a
InterBase)?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
icq: 34893645
MSSQL a DBExpress
[*] Lubomir Fule <fule(zv)humansoft.sk> - 10.4.2003 14:46:02
> Snazim sa pripojit cez DBExpress na MSSQL, kt. mam u seba na locale
> Robim to cez TSQLConnection, kt. sa mi podari pripojit cez
> ConnectionName
> = MSSQLConnection
> K tomu som pripojil bud TSQLDataSet (kde CommandType = ctQuery a
> CommandText = Select * From Tab1), alebo cez TSQLQuery, kde
> som nastavil
> SQL.Text
> Pridam si na form TDataSource a TDBGrid a toto sa mi pri previazani a
> nastavni Active = True na DataSet prejavi hlaskou:
> "Operation not allowed on a undirectional dataset"
> Tak som tam dal TDBNavigator a TDBEdit a to mi fungovalo, ale
> len dovtedy
> kym som cez DBNavigator nedal skok na posledny zaznam,
> vyhodilo mi to tu
> istu chybu :((
> Neviem v com je problem :(
> Mam D7 Ent a WinXP, MSSQL SP3
Pokial viem, tak DBExpres principalne nepodporuje bidirectional datasety,
ktore vsak vyzaduju komponenty TDBGrid a im podobne. Vseobecny postup je
DBExpres - Provider - TClientDataset - TDataSource - TDBGrid. Ale podla
mojej osobnej skusenosti je na MSSQL lepsie pouzit nejake nativne ODBC alebo
ADO komponenty.
L.
MSSQL a DBExpress
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.4.2003 14:32:21
From: <mstevlik(zv)gamo.sk>
> Neviem v com je problem :(
> Mam D7 Ent a WinXP, MSSQL SP3
V Delphi 7 Downloads sekci na Borlandu je aktualizovany dbExpress driver pro
MS SQL. Treba to pomuze.
Petr Vones
MSSQL a DBExpress
[*] mstevlik(zv)gamo.sk - 10.4.2003 14:06:44
Hi all,
Snazim sa pripojit cez DBExpress na MSSQL, kt. mam u seba na locale
Robim to cez TSQLConnection, kt. sa mi podari pripojit cez ConnectionName
= MSSQLConnection
K tomu som pripojil bud TSQLDataSet (kde CommandType = ctQuery a
CommandText = Select * From Tab1), alebo cez TSQLQuery, kde som nastavil
SQL.Text
Pridam si na form TDataSource a TDBGrid a toto sa mi pri previazani a
nastavni Active = True na DataSet prejavi hlaskou:
"Operation not allowed on a undirectional dataset"
Tak som tam dal TDBNavigator a TDBEdit a to mi fungovalo, ale len dovtedy
kym som cez DBNavigator nedal skok na posledny zaznam, vyhodilo mi to tu
istu chybu :((
Neviem v com je problem :(
Mam D7 Ent a WinXP, MSSQL SP3
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
icq: 34893645
Free databazovy engine, pre Delphi & Kylix
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.4.2003 13:48:04
> > SQLite... http://www.sqlite.org/
> >
> > Je to proste jedna DLL ('.so' pro linux), ktery prihodis k tvemu
> > programu, natahnes si ubsluznou unitku, a jedes. Pripadne existuji i
> > DBExpress drivery...
>
> To vyzera zaujimavo. Aky "wrapper" pouzivas k tej DLLke? Ja som nejake
> nasiel, mozno mi ale ulahcis vyber.
Pouzivam to co se vali na www.torry.net (mam na mysli ty
freewareove...)
Tedy:
http://www.torry.net/db/direct/db_directsql/tsqlite.zip
jako interface k tomu DLLku. (Neni to pro Kylix, ale neni problem to
pro kylix upravit... pripadne mohu pomoci)
A pak pouzivam
http://www.torry.net/db/direct/db_directsql/sqlitedb.zip od Martina
Falty, coz je nadstavba k vyse uvedenemu, ktera poskytuje objekt,
ktery je velmi podobny klasickemu TQuery (ale neni vizualni!), a
dobre se s tim pak programuje. ;-)
Oboje je free a opensource, takze se to dobre upravuje k obrazu
svemu. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Free databazovy engine, pre Delphi & Kylix
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.4.2003 13:50:18
> > SQLite... http://www.sqlite.org/
> To vyzera zaujimavo. Aky "wrapper" pouzivas k tej DLLke? Ja som nejake
> nasiel, mozno mi ale ulahcis vyber.
Jeste doplnim.. na Torry je tajke freeware DBExpress driver pro
SQLite, ba i freeware TDataSet pro SQLite.
Oboje jsem ale nezkousel, vse uvedene v minulem mailu mi stacilo ke
stesti. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
XML Databaza?
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 10.4.2003 13:17:47
ahojte
chcem sa spytat, ci mate skusenosti s XML Databazami a ake.
mam aplikaciu (nie hotovu) postavenu na ADO a rozmyslam, ci by nebolo
lepsie ju prerobit do XML. Aj preto, lebo nie je (asi) potrebne nic
dodatocne instalovat.
Ako je to s rychlostou, prehladmi atd? Pocet zaznamov v databaze
nebude velmi velky.
(otazka na okraj: Je takto mozne ulozit do jedneho XML aj viac tabuliek?)
Dakujem
Peter
Free databazovy engine, pre Delphi & Kylix
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 10.4.2003 13:28:21
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> SQLite... http://www.sqlite.org/
>
> Je to proste jedna DLL ('.so' pro linux), ktery prihodis k tvemu
> programu, natahnes si ubsluznou unitku, a jedes. Pripadne existuji i
> DBExpress drivery...
To vyzera zaujimavo. Aky "wrapper" pouzivas k tej DLLke? Ja som nejake
nasiel,
mozno mi ale ulahcis vyber.
S pozdravom
Ondrej Krsko
Free databazovy engine, pre Delphi & Kylix
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 10.4.2003 13:08:36
> > poznate niekto free databazu pre Delphi a Kylix, pricom ju netreba
> > instalovat?
> > Zda sa mi, ze existovalo nieco take, co sa skompiluje priamo s
programom.
> > Staci nejaku zakladnu podmnozinu SQL.
> Flashfiler. Byvalo to od Turbopower, tedka volne ke stazeni i se zdrojaky
na
> http://sourceforge.net/projects/tpflashfiler/
Bezi to aj pod Kylixom? Lebo podla toho, co som sa docital v diskusii na
stranka, sa mi zda ze nie.
Text file a STREAM
[*] Jan Harman <harman(zv)volny(tec)cz> - 10.4.2003 13:23:46
> .. mam textovy soubor majici velikost zhruba 50 Mbyte..
> V souboru jsou
> umistena data, tedy co radek to nejaky udaj zakonceny
> znaky Chr (10) + Chr
> (13).. Zjistil jsem , ze nejlepsi je nacitat takhle
> velike soubory pres
> FileStream, ale nevim jak z toho streamu dostat ten
> jeden radek ukonceny Chr
> (10) + Chr (13) ???
Nevim proc by to musel byt FileStream, ja bych v tomto pripade
asi pouzil jednoduse TextFile a cetl radek po radku Readln; Honza
--
Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Free databazovy engine, pre Delphi & Kylix
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.4.2003 12:20:50
> poznate niekto free databazu pre Delphi a Kylix, pricom ju netreba
> instalovat? Zda sa mi, ze existovalo nieco take, co sa skompiluje
> priamo s programom. Staci nejaku zakladnu podmnozinu SQL.
>
> Pripomeniete mi nazov, link?
> Pripadne ak s tym mate nejake skusenosti, mozte napisat.
SQLite... http://www.sqlite.org/
Je to proste jedna DLL ('.so' pro linux), ktery prihodis k tvemu
programu, natahnes si ubsluznou unitku, a jedes. Pripadne existuji i
DBExpress drivery...
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Free databazovy engine, pre Delphi & Kylix
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 10.4.2003 12:08:37
Ahoj,
poznate niekto free databazu pre Delphi a Kylix, pricom ju netreba
instalovat?
Zda sa mi, ze existovalo nieco take, co sa skompiluje priamo s programom.
Staci nejaku zakladnu podmnozinu SQL.
Pripomeniete mi nazov, link?
Pripadne ak s tym mate nejake skusenosti, mozte napisat.
S pozdravom
Ondrej Krsko
Free databazovy engine, pre Delphi & Kylix
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 10.4.2003 12:14:49
----- Original Message -----
From: "Ondrej Krsko" <ondrej.krsko(zv)zoznam.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 10, 2003 12:08 PM
Subject: Free databazovy engine, pre Delphi & Kylix
> Ahoj,
>
> poznate niekto free databazu pre Delphi a Kylix, pricom ju netreba
> instalovat?
> Zda sa mi, ze existovalo nieco take, co sa skompiluje priamo s programom.
> Staci nejaku zakladnu podmnozinu SQL.
>
> Pripomeniete mi nazov, link?
> Pripadne ak s tym mate nejake skusenosti, mozte napisat.
>
> S pozdravom
> Ondrej Krsko
>
Flashfiler. Byvalo to od Turbopower, tedka volne ke stazeni i se zdrojaky na
http://sourceforge.net/projects/tpflashfiler/
Radim
access - otevreni zaheslovane databaze (mdb soubor
[*] <delphik(zv)email(tec)cz> - 10.4.2003 11:48:00
To:Jiri Virt=20
U mdb mas dve moznosti zabezpeceni:
a) heslo primo v databazi (mdb)
b) nadefinovani uzivatelu, hesel a pristupu (vygeneruje se jeste mdw)
V pripade b) k otevreni mdb musis urcit soubor mdw, zadat uzivatele a hes=
lo. Jednodussi bude kdyz si projdes v accessu nastroje/zabezpeceni/...
Myslel jsem, ze kdyz o necem takovem vis, tak jsem se zeptal :-)=20
Delphik
_________________________________________________________________________=
_____
ZNA=C8KOV=C9 PO=C8=CDTA=C8E DEXX
=A9PI=C8KOV=C1 KVALITA - zav=E1d=EDme ISO 9001
GARANCE NEJNI=AE=A9=CDCH CEN - PC + monitor ji=BE od 10.990!
k ADSL zdarma webkamera =E8i USB flashdisk
http://www.email(tec)cz/dexx
Text file a STREAM
[*] tintin tintin <tintin.tintin(zv)seznam(tec)cz> - 10.4.2003 11:24:48
Zdravim..
nedokazal by mi nekdo poradit s timto problemem..
.. mam textovy soubor majici velikost zhruba 50 Mbyte.. V souboru jsou
umistena data, tedy co radek to nejaky udaj zakonceny znaky Chr (10) + Chr
(13).. Zjistil jsem , ze nejlepsi je nacitat takhle velike soubory pres
FileStream, ale nevim jak z toho streamu dostat ten jeden radek ukonceny Chr
(10) + Chr (13) ???
..Dekuji za kazdy TIP..
Martin..
Delphi 6, Win200
Build balicku, titulek okna
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 10.4.2003 10:36:18
Dobry den,
Existuje nejaka moznost jak zmenit u MDI okna obrazek v ikone pro
maximalizaci?
Pri stisku maximalizace provadim zvetseni na maximalni moznou plochu
klienta a potreboval bych take zmenit ikonu v tlacitku maximalizace.
Mam jeste porad problem s buildem balicku.
Muze mi nekdo predit s problemem, pri provedeni buildu balicku mi to
hlasi chybu:
(Error) MainDtata.dpk(53): RLINK32: Error opening file
"D:\Vyvoj\Projekt\SpolFunc\SpolFunc.drf"
Co je to soubor s priponou drf? zadny takovy neexistuje.
Prostredi WXP Pro CZ, SP1, D7 Pro
Dekuji Vsem za odpoved
--
S pozdravem,
Martin Radvansky
Re[2]: access - otevreni zaheslovane databaze (mdb
[*] Roland Turcan <rolo(zv)sedas.sk> - 10.4.2003 10:00:40
pp> > -------------------------------------------
pp> > My answer:
pp> > ----------
pp> > A autor este zije?
<<< 10. 4. 2003 9:58 - petr palicka "palicka.petr(zv)seznam(tec)cz" >>>
pp> to se nevi, nebot uz cca dva roky pry nebere telefony, neodpovida na
pp> dopisy, email ani web nema (neni nikde uveden a googlem jsem ho nenasel
pp> :o( )
FBI, CIA, Interpol, ... ? Stale nic?
pp> levy ani pravy shift pri otevirani souboru mdb nikterak nepomaha, hesla
pp> "nic", "sa" a "admin" malymi ani velkymi nezabiraji...
-------------------------------------------
My answer:
----------
Existuje software "Advanced Access Password Recovery", ktory sa chali
tym, ze "umi". Skus si ho najst na webe. Ak by si nenasiel, mam v
archive trial verziu 2.4 a mozem Ti ju poslat.
--
Best regards, TRoland
access - otevreni zaheslovane databaze (mdb soubor
[*] Jiri Virt <virt(zv)volny(tec)cz> - 10.4.2003 10:01:21
Nevim, co to je zabezpeceni pomoci mdw...
tenhle programek jsem si psal sam ...
Jirka
To:Jiri Virt
existuje neco podobneho na mdb zabezpecene pomoci mdw ???
Delphik
FB konflikt konkurenta pri modifikaci dat
[*] MUDr.Patrik Valenta <valentapat(zv)volny(tec)cz> - 11.4.2002 10:07:03
jo to je presne ono--- zkusim, dik
----- Original Message -----
> deadlock
> update conflicts with concurrent update
> Pokud se chces tomuto vyhnout, dej tam parametry
>
> read_committed
> rec_version
valik
access - otevreni zaheslovane databaze (mdb soubor
[*] <delphik(zv)email(tec)cz> - 10.4.2003 09:50:31
To:Jiri Virt=20
existuje neco podobneho na mdb zabezpecene pomoci mdw ???
Delphik
_________________________________________________________________________=
_____
ZNA=C8KOV=C9 PO=C8=CDTA=C8E DEXX
=A9PI=C8KOV=C1 KVALITA - zav=E1d=EDme ISO 9001
GARANCE NEJNI=AE=A9=CDCH CEN - PC + monitor ji=BE od 10.990!
k ADSL zdarma webkamera =E8i USB flashdisk
http://www.email(tec)cz/dexx
FB konflikt konkurenta pri modifikaci dat
[*] David Li�ka <konference(zv)thsoft(tec)cz> - 10.4.2003 09:25:38
Zrejme jde o hlasku
deadlock
update conflicts with concurrent update
Podivej se do parametru komponent IBTransaction jak mas nastavenou izolacni
uroven. Lze i dvojklikem na komponentu. Pokud mas parametry prazdne
(defaultne jsou) pak se to chova tak, ze otevres 1. dataset propojeny na
1.transakci, otevres 2. dataset propojeny na 2. transakci, 1. dataset
postnes a commitnes a 2. dataset uz neulozis... viz. hlaska nahore.
Pokud se chces tomuto vyhnout, dej tam parametry
read_committed
rec_version
David
----- Original Message -----
From: "MUDr.Patrik Valenta" <valentapat(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 10, 2002 2:01 PM
Subject: FB konflikt konkurenta pri modifikaci dat
> zdravim.
> Jednou se mi stalo, �e p�i UPDATE operaci nad tabulkou se objevila tato
> hlaska (viz.predmet zpravy). Urcite se nejednalo o modifikaci stejneho
> zaznamu. Reseni bylo pouze v odhlaseni a znovuprihlaseni k databzi. Muze
mi
> nekdo poradit jak to mam pro priste osetrit ?
>
> valik
>
>
>OT: Chyba MS Wordu na W2000 zo suborom pracuje iny
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 10.4.2003 09:31:21
Jo, mel jsem stejny problem s Office 97. Na (WinNT?), 2K a XP se jednalo o
pristupove prava.
Dany uzivatel musi byt jako lokalni admin (PowerUser nestaci) nebo si na
support.microsoft.com musis najit, na ktere adresare a soubory musi mit
pristupova prava pro cteni a zapis
Sroub
> Tyka se to registrace typu souboru a jejich otevirani: Pisu to z hlavy a
> nemam moznost to vyzkouset, ale pro Vas to nebude problem uz vyresit.
>
> Pruzkumnik>Nastroje>Moznosti slozky...>Typy souboru
>
> najit pozadovany typ dokumentu
>
> a u neho budto pridat nebo vymazat "" v nazvu souboru nebo "" u parametru
> %1 nebo tak nejak. Mozna pomohlo i vypnuti nebo uprava radku DDE. Nevim to
> z hlavy, ale lze to zjistit kouknutim na nativni formaty Windows, napr.
BMP
> a podle toho upravit i Office dokumenty (delal to i Corel 8)
>
> S pozdravem Vaclav Riha
>
> Peter Vlkovic dne 9 Apr 2003 v 13:33:
>
> > sorry za OT, ale natrafili sme uz na druhy
> > pocitac s W2000, kde pri otvarani dokumentov
> > vyhodadzuje MS Word hlasku, ze so suborom
> > pracuje iny uzivatel. Potom subor normalne
> > otvori a vsetko je OK.
> > Nestretli ste sa uz niekedy s takouto chybou?
>
> Ano, projevovalo se to pri instalaci Word 97 na W2K (soubor se oteviral
> vlastne dvakrat - Word i
> Excel).
>
> K Office 97 existuji 2 opravne balicky, je zahodno oba nainstalovat,
> myslim, ze to stacilo. Pokud
> ne, je treba patrat v registru, bohuzel uz presne nevim, co se muselo
> odmazat.access - otevreni zaheslovane databaze (mdb soubor
[*] Jiri Virt <virt(zv)volny(tec)cz> - 10.4.2003 09:05:38
str�nky nic moc ... ale je to tam ... ;-)
http://www.volny(tec)cz/virt/download/crackaccess.zip
Jirka
access - otevreni zaheslovane databaze (mdb soubor
[*] Ben, Martin (CONS FIN) <Martin.Ben(zv)ge(tec)com> - 10.4.2003 02:01:24 -0400
Nepomohlo by neco z tohoto?
http://www.slunecnice(tec)cz/Win/Utility/Bezpecnost_sifrovani/Zjistovani_hesel/
Martin Ben
-----Original Message-----
From: petr palicka [mailto:palicka.petr(zv)seznam(tec)cz]
levy ani pravy shift pri otevirani souboru mdb nikterak nepomaha, hesla
"nic", "sa" a "admin" malymi ani velkymi nezabiraji...
FB konflikt konkurenta pri modifikaci dat
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 10.4.2003 08:36:55
MUDr. Patrik VALENTA dne 9 Apr 2003 v 21:46:
> Presne zneni errormessage neznam, bylo to na obrazovce jen jednou-
Omlouvam se za spatne quotovani, puvodni zpravu uz nemam.
Napadlo me, zda nemuze problem vzniknout i tom, ze oba zaznamy, ktere se soucasne pridavaly,
nebyly jeste commitnute, a pritom se odkazovaly pres foreign key na stejny zaznam v nejake jine
tabulce...
Karel Rys
OT: Chyba MS Wordu na W2000 zo suborom pracuje iny
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 10.4.2003 07:45:18
Tyka se to registrace typu souboru a jejich otevirani: Pisu to z hlavy a
nemam moznost to vyzkouset, ale pro Vas to nebude problem uz vyresit.
Pruzkumnik>Nastroje>Moznosti slozky...>Typy souboru
najit pozadovany typ dokumentu
a u neho budto pridat nebo vymazat "" v nazvu souboru nebo "" u parametru
%1 nebo tak nejak. Mozna pomohlo i vypnuti nebo uprava radku DDE. Nevim to
z hlavy, ale lze to zjistit kouknutim na nativni formaty Windows, napr. BMP
a podle toho upravit i Office dokumenty (delal to i Corel 8)
S pozdravem Vaclav Riha
Peter Vlkovic dne 9 Apr 2003 v 13:33:
> sorry za OT, ale natrafili sme uz na druhy
> pocitac s W2000, kde pri otvarani dokumentov
> vyhodadzuje MS Word hlasku, ze so suborom
> pracuje iny uzivatel. Potom subor normalne
> otvori a vsetko je OK.
> Nestretli ste sa uz niekedy s takouto chybou?
Ano, projevovalo se to pri instalaci Word 97 na W2K (soubor se oteviral
vlastne dvakrat - Word i
Excel).
K Office 97 existuji 2 opravne balicky, je zahodno oba nainstalovat,
myslim, ze to stacilo. Pokud
ne, je treba patrat v registru, bohuzel uz presne nevim, co se muselo
odmazat.
Karel Rys
Pristup k zaznamom v Paradoxe...
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.4.2003 08:09:57
> V tabulke Paradox mam desat zaznamov:
>
> zaznam c. 01
> zaznam c. 02
> zaznam c. 03
> ::::::::::::
> zaznam c. 10
>
>
> 1. ako sa pristupuje k jednotlivym zaznamom???
> (velmi by mi pomohol kusok kodu...)
>
> Napr.: keby som chcel konkretne vymazat zaznam
> na 5 pozicii.
Ahoj,
V Paradoxu, pokud budes pouzivat TTable a ne TQuery, muzes pracovat soucasne
jen s jednim zaznamem. Najit ho muzes pomoci FindKey nebo Locate - pro zacatek
viz help. FindKey vyzaduje index, Locate tusim nikoli. Na pouzivani indexu si u
Paradoxu musis zvyknout, protoze predstavuji jedinou cestu, jak rychle data setridit a
umoznit v nich vyhledavat (s pomoci TTable, nemluvim o TQuery). Bez indexu sice
dokazes vyhledavat pomoci Locate a tridit pomoci TQuery s pouzitim SQL jazyka,
ale pri vetsim mnozstvi dat to bude pomale.
A ten kousek kodu. Koukam, ze nejakou odpoved uz mas v jinych mailech s pomoci
Locate, tak ja pridam ukazku s FindKey:
if Table1.FindKey([5]) then
Table1.Delete;
Pak ovsem musi nasledovat precislovani. Pro automaticke cislovani bys mohl mozna
pouzit property RecNo - viz help a treba calculated pole, ale to az se v oblasti
databazi trochu vic rozkoukas. Je mi jasne, ze kazdy zacatek je tezky.
> A pripadne to vyuzit pri zoradovani v DBGride ???
DBGrid sam data netridi. U TTable neni jina moznost, nez mit na tabulce index
(vytvoris ho pri vytvareni tabulky nebo kdykoli dodatecne pridas - to je vlastnost
tabulky, nikoli programu).
U TQuery muzes v SQL jazyce urcit setrideni pomoci ORDER BY, ale to je v danem
pripade asi zbytecne komplikovane reseni (ucit se jen kvuli trideni SQL jazyk).
David Lebeda
access - otevreni zaheslovane databaze (mdb soubor
[*] novogear(zv)novogear(tec)cz - 10.4.2003 08:11:32
Zkuste pouzit nejakeho "louskace" hesel napr.
http://www.elcomsoft.com/prs.html
S pozdravem
Ondrej Prokop
webbot(zv)telecom(tec)cz
>
> Ahoj,
>
> ozval se zakaznik, ktery ma zajem prevest data ze
> stare aplikacem, kterou uz autor neudrzuje. Poslal
> mi data a ejhle, je to accessovsky soubor mdb a neni
> k nemu heslo. Tedy zrejme si ho ma ta aplikace nekde
> uvnitr, protoze uzivatel se nijak neprihlasuje.
> Existuje nejaky univerzal jako u paradoxu, nebo jiny
> zpusob, jak databazi otevrit a vycucat z ni data? Ta
> stara aplikace je psana ve Visual Basicu a vic z toho
> asi nevyrazim :o(
>
> dekuji
>
> peca
>
>
Re[2]: access - otevreni zaheslovane databaze (mdb
[*] Petr Slaby <petr.slaby(zv)i(tec)cz> - 10.4.2003 07:52:45
Ahoj,
doporucuji stranky ELCOMSOFTu:
www.elcomsoft.com/acpr.html
Petr
access - otevreni zaheslovane databaze (mdb soubor
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 10.4.2003 07:28:15
> -------------------------------------------
> My answer:
> ----------
> A autor este zije?
to se nevi, nebot uz cca dva roky pry nebere telefony, neodpovida na
dopisy, email ani web nema (neni nikde uveden a googlem jsem ho nenasel
:o( )
levy ani pravy shift pri otevirani souboru mdb nikterak nepomaha, hesla
"nic", "sa" a "admin" malymi ani velkymi nezabiraji...
no, to vypada, ze to klient bud prepise, nebo leda vycucat OCRkem ze
screenshotu tiskovych sestav.
jeste me ted napadlo, ze tiskovy vystup je imho crystal reportem
(OCXko). nema crystal report nejakou moznost exportovat vysledne sestavy
v nejakem "rozumnem" tvaru (html, csv...)? verzi bohuzel nevim, ale
zkusim se s klientem jeste domluvit.
dekuji
peca
SQL Rozdil mezi datumy
[*] Ing. Pavel �ilinec����)b����ȧ~�� - 10.4.2003 05:23:20
Prave proto tam byl ten group by, aby se to vybralo jen jednou, tak
misto
select a.idpac, a.datum, b.datum
from vys a, vys b
where (a.idpac = b.idpac) and (b.datum>a.datum) and
((b.datum-a.datum)<365)
bych napsal
select a.idpac, min(a.datum) as Datum1, min(b.datum) as Datum2
from vys a, vys b
where (a.idpac = b.idpac) and (b.datum>a.datum) and
((b.datum-a.datum)<365)
group by a.IDPac
Pak se to stejne ale opet silne podoba puvodnimu navrhu :)
Jen tam mas jeste mozna dve diry:
U tech datumu jsem daval puvodne "<=", pze jsem pocital s tim, ze by
mohly byt dve stejne polozky IDPac se stejnym datumem (pak by se ale
muselo nejak vyloucit porovnani zaznamu "sam ses sebou", pokud tam
chces mit presne ty nejmensi rozdily - pokud by stacila jen
indikace, tak se tam da to "=" doplnit a dodat treba Having na
"count(*) > 1").
"365" neni presny rozdil pro 1 rok :)
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
MPV> Dodelal jsem to ke svemu gustu
MPV> select a.idpac,a.datum,b.datum from vys a, vys b
MPV> where (a.idpac = b.idpac) and (b.datum>a.datum) and
MPV> ((b.datum-a.datum)<365)
MPV> ma to ale jeden hacek ... zde se vetsi datum porovnava se vsemi mensimi,
MPV> ja bych potreboval jen s tim nejblizsim. Tzn. jestlize existuje vice nez dva
MPV> zaznamy ... je vysledek pozitivni jen jednou.
MPV> valik
nevite co jeto DBISAMTb,
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 9.4.2003 22:19:50
Zdravim
Pouzivam databazi DBISAM a DBISAMTb jsem nasel v knihovne. Pokud pouzivas
DBISAM a chtel bys o databazi diskutovat napis na privat mail
Viktor Marek
viktor(zv)mbox.vol(tec)cz
> nevite nekdo co je to DBISAMTb ? A kde se to da stahnout ?
> Milan Vymazal
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.470 / Virov� b�ze: 268 - datum vyd�n�: 8.4.2003
Pristup k zaznamom v Paradoxe...
[*] J�n Harman <harman(zv)volny(tec)cz> - 9.4.2003 21:40:01
> 1. ako sa pristupuje k jednotlivym zaznamom???
> (velmi by mi pomohol kusok kodu...)
Dejme tomu ze pouzivat TTable a pole ve kterem je to cislo se jmenuje "ID"
Zaznam vyberes kliknutim na neho v DBGridu, nebo Funkci:
table.Locate('ID', id, []);
> Napr.: keby som chcel konkretne vymazat zaznam
> na 5 pozicii.
>
id := 5;
if table.Locate('ID', id, []) then table.Delete;
>
> 2. na zaciatku tabulky ma kazdy zaznam cele cislo.
> existuje nejaka polozka, pomocou ktorej by sa
> dalo toto cislo zistit, pripadne nacitat do nejakej
> premennej ???
id := table.Fields[0].AsInteger;
nebo
id := table.FieldByName('ID').AsInteger;
> Ak ano, tak ako ???
>
> A pripadne to vyuzit pri zoradovani v DBGride ???
Nato je lepsi pouzit TQuery, potom zadas do query.SQL:
'select * from tabulka order by ID desc; // nebo asc (default)
Mnoho stesi, Honza
FB konflikt konkurenta pri modifikaci dat
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 9.4.2003 21:46:58
----- Original Message -----
> My answer:
> ----------
> 1. Aka je verzia servera? WI-V6.2.794 Firebird 1.0
> 2. Aka izolacna uroven transakcii sa pouziva?
> 3. Velkost stranky?
> 4. Velkost zaznamu?
> 5. Dalsi connect bol pritomny? ANO
2-4 neznam odpoved.
Presne zneni errormessage neznam, bylo to na obrazovce jen jednou-
valik
Jmeno komponenty
[*] J�n Harman <harman(zv)volny(tec)cz> - 9.4.2003 21:33:03
> Potreboval bych poradit, jestli pri dynamickem vytvoreni komponenty za
> behu programu muzu priradit teto komponente jmeno, ktere je stejne jako
> nazev promenne. Neco podobneho, jako se prirazuje v IDE pri navrhu.
> Tusim ze to pujde jenom prirazenim jmena v Create, ale jistota je jistota.
Normalne po vytvoreni muzes priradit jmeno ale taky kdykoli chces, jen owner
nesmi mit dve jmena komponent stejne.
Honza
SQL Rozdil mezi datumy
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 9.4.2003 21:29:53
----- Original Message -----
> select a.Polozka, Pocet = count(a.Polozka) - 1
> from Tab a, Tab b
> where a.Polozka = b.Polozka and a.Datum <= b.Datum and
> datediff(yy, a.Datum, b.Datum) = 0
> group by a.Polozka
Dodelal jsem to ke svemu gustu
select a.idpac,a.datum,b.datum from vys a, vys b
where (a.idpac = b.idpac) and (b.datum>a.datum) and
((b.datum-a.datum)<365)
ma to ale jeden hacek ... zde se vetsi datum porovnava se vsemi mensimi,
ja bych potreboval jen s tim nejblizsim. Tzn. jestlize existuje vice nez dva
zaznamy ... je vysledek pozitivni jen jednou.
valik
Pristup k zaznamom v Paradoxe...
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 9.4.2003 20:24:39
> nejak nie som schopny vyriesit dany problem.
Tvoj problem by vyriesilo niekolkodnove skolenie, v ziadnom pripade
necakaj odpovede v konferencii.
Ale aby si mohol dostavat privatne odpovede mimo konferenciu, musis si
najprv nastavit v mailovom klientovi spravnu spiatocnu adresu. Toto sa
mi vratilo:
<bugala_a(zv)inMail.sk>: host mail2.pvt.net[194.149.101.165] said: 554
<bugala_a(zv)inMail.sk>: Recipient address rejected: Access denied (in
reply
to RCPT TO command)
bye
vmlich
access - otevreni zaheslovane databaze (mdb soubor
[*] alex <bugala_a(zv)inMail.sk> - 9.4.2003 19:23:49
Ahoj!
Pravdepodobne viem ako na to. Aka je to verzia Accesu ???
Ak to este nemas vyriesene, posli mi mail na sukromny email a
potom ti napisem viac.
Zatial,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
e-mail: bugala_a(zv)inMail.sk
Pristup k zaznamom v Paradoxe...
[*] alex <bugala_a(zv)inMail.sk> - 9.4.2003 19:05:33
Ahojte!
Dakujem za odpovede, ale nejak nie som schopny vyriesit
dany problem. Preto sa Vas chcem opytat na par veci.
V tabulke Paradox mam desat zaznamov:
zaznam c. 01
zaznam c. 02
zaznam c. 03
::::::::::::
zaznam c. 10
1. ako sa pristupuje k jednotlivym zaznamom???
(velmi by mi pomohol kusok kodu...)
Napr.: keby som chcel konkretne vymazat zaznam
na 5 pozicii.
2. na zaciatku tabulky ma kazdy zaznam cele cislo.
existuje nejaka polozka, pomocou ktorej by sa
dalo toto cislo zistit, pripadne nacitat do nejakej
premennej ???
Ak ano, tak ako ???
A pripadne to vyuzit pri zoradovani v DBGride ???
Za nakopnutie dakujem, lebo uz som z toho uplny
magor. :-((
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
Jmeno komponenty
[*] jancarik(zv)hame(tec)cz <jancarik(zv)hame(tec)cz> - 09.4.2003 18:57:57
Dobry den.
Potreboval bych poradit, jestli pri dynamickem vytvoreni komponenty za
behu programu muzu priradit teto komponente jmeno, ktere je stejne jako
nazev promenne. Neco podobneho, jako se prirazuje v IDE pri navrhu.
Tusim ze to pujde jenom prirazenim jmena v Create, ale jistota je jistota.
Diky
Stana
Literatura k FireBird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.4.2003 18:47:24
Haj hou!
On 9 Apr 2003 at 13:50, Str=E1n=EDk Franti�ek Ing. wrote:
> Kdy bude k=A0dispozici nejaka literatura (dokumentace) k=A0FireBird ?
> Diky za odpoved
Dokumentace (mimo jine) v anglictine je k dispozici na IBPhoenix Developer=
's
CD v PDF (dve knihy, celkem pres 1000 stran). Jinak jiz brzo vyjde u Comp=
uter
Pressu kniha o IB a FB, cca 450 stran (pocitam ze tak do dvou az tri mesic=
u by
mela byt na pultech).
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
IB/FB Parametr ROLE
[*] David Liska <konference(zv)thsoft(tec)cz> - 9.4.2003 18:04:24
nevite nekdo jak napsat do IBDatabase parametr role?
pisu to
sql_role=NEJAKA_ROLE
a nefunguje...pise to DPB Constant (0) is unknown.
David
Literatura k FireBird
[*] Str�n�k Franti�ek Ing. <FStranik(zv)cpoj(tec)cz> - 9.4.2003 13:50:39
Kdy bude k=A0dispozici nejaka literatura (dokumentace) k=A0FireBird ?
Diky za odpoved
F.Stranik
ADMIN: OT: KOMERCE: Prodej hardware
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 09.4.2003 17:22:39
Puvodni zprava, kterou napsal Vymazal Milan dne 9 Apr 2003:
> omlouvam se za OT a KOMERCE ale potrebuji se zbavit hardware ktery
> nepotrebuji..
To sis asi spletl konferenci o Delphi s bazarem. V zadnem pripade tu
takove zpravy nemaji co delat. Ber to jako napomenuti za hrube poruseni
pravidel.
access - otevreni zaheslovane databaze (mdb soubor
[*] Roland Turcan <rolo(zv)sedas.sk> - 09.4.2003 17:00:33
<<< 9. 4. 2003 17:00 - petr palicka "palicka.petr(zv)seznam(tec)cz" >>>
pp> Ahoj,
pp> ozval se zakaznik, ktery ma zajem prevest data ze
pp> stare aplikacem, kterou uz autor neudrzuje.
-------------------------------------------
My answer:
----------
A autor este zije?
--
Best regards, TRoland
FB konflikt konkurenta pri modifikaci dat
[*] Roland Turcan <rolo(zv)sedas.sk> - 09.4.2003 16:29:03
<<< 9. 4. 2003 16:27 - MUDr.Patrik Valenta "valentapat(zv)volny(tec)cz" >>>
MPV> zdravim.
MPV> Jednou se mi stalo, �e p�i UPDATE operaci nad tabulkou se objevila tato
MPV> hlaska (viz.predmet zpravy). Urcite se nejednalo o modifikaci stejneho
MPV> zaznamu. Reseni bylo pouze v odhlaseni a znovuprihlaseni k databzi. Muze mi
MPV> nekdo poradit jak to mam pro priste osetrit ?
MPV> valik
-------------------------------------------
My answer:
----------
1. Aka je verzia servera?
2. Aka izolacna uroven transakcii sa pouziva?
3. Velkost stranky?
4. Velkost zaznamu?
5. Dalsi connect bol pritomny?
--
Best regards, TRoland
access - otevreni zaheslovane databaze (mdb soubor
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 9.4.2003 16:49:47
Skus pri otvarani tej Db drzat stlaceni lavy shit (alebo pravy?)
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 09, 2003 4:26 PM
Subject: access - otevreni zaheslovane databaze (mdb souboru)> Ahoj,
>
> ozval se zakaznik, ktery ma zajem prevest data ze
> stare aplikacem, kterou uz autor neudrzuje. Poslal
> mi data a ejhle, je to accessovsky soubor mdb a neni
> k nemu heslo. Tedy zrejme si ho ma ta aplikace nekde
> uvnitr, protoze uzivatel se nijak neprihlasuje.
> Existuje nejaky univerzal jako u paradoxu, nebo jiny
> zpusob, jak databazi otevrit a vycucat z ni data? Ta
> stara aplikace je psana ve Visual Basicu a vic z toho
> asi nevyrazim :o(
>
> dekuji
>
> peca
>
>
>
>
access - otevreni zaheslovane databaze (mdb soubor
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 09.4.2003 16:26:17
Ahoj,
ozval se zakaznik, ktery ma zajem prevest data ze
stare aplikacem, kterou uz autor neudrzuje. Poslal
mi data a ejhle, je to accessovsky soubor mdb a neni
k nemu heslo. Tedy zrejme si ho ma ta aplikace nekde
uvnitr, protoze uzivatel se nijak neprihlasuje.
Existuje nejaky univerzal jako u paradoxu, nebo jiny
zpusob, jak databazi otevrit a vycucat z ni data? Ta
stara aplikace je psana ve Visual Basicu a vic z toho
asi nevyrazim :o(
dekuji
peca
Re[2]: Jak na XML
[*] delphin <delphinPP(zv)seznam(tec)cz> - 9.4.2003 15:41:43
> d> ..neviem ako v D5, ale D6 ma nastroj XMLMapper, kde si vies urobit XTS
> d> Transformation File, ten pouzijes v XMLTransformProvideri a ten
napojis na
> d> TClientDataSet, ktory mozes dat do DataSource..
>
> pocuj a taketo napojenie je read-only, alebo je mozny aj zapis do
> takejto XML databazy?
>
..v D6 Demos je priklad : "Example of using TXMLTransformProvider"... mas
tam nazorne ukazane, ze to funguje aj na zapis...
nevite co jeto DBISAMTb,
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.4.2003 15:46:52
Zdravim
nevite nekdo co je to DBISAMTb ? A kde se to da stahnout ?
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
OT:dokumentacia a knihy na stiahnutie
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.4.2003 15:26:51
Cau Petr,
Wednesday, April 9, 2003, 1:52:45 PM, you wrote:
> hmm, vypada to bezva. Jenom to ma maly zadrhel, ze se mi z tama nepodarilo
> nic stahnout :-(
> Nekomu jo?
Mno vypada to perfektne :) ale nic nejde uz jsem napsal adminovy..
> Petr Langer
S pozdravem
Milan Vymazal
Re[2]: Jak na XML
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 9.4.2003 14:52:19
Ahoj delphin,
Dnes, (9. apr�l 2003, 14:19:54), si poslal mail :
d> Cau!
d> ..neviem ako v D5, ale D6 ma nastroj XMLMapper, kde si vies urobit XTS
d> Transformation File, ten pouzijes v XMLTransformProvideri a ten napojis na
d> TClientDataSet, ktory mozes dat do DataSource..
pocuj a taketo napojenie je read-only, alebo je mozny aj zapis do
takejto XML databazy?
Peter
Jak na XML
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 9.4.2003 14:55:56
mozno zaujimavym a jednoduchym riesenim moze byt aj komponenta TADODataSet a
jej metoda LoadFromFile('...FileName.XML')...
ale neviem ci existuje v D5 profi :-(
Milan
-----Original Message-----
From: Jiri Virt [mailto:virt(zv)volny(tec)cz]
Sent: Wednesday, April 09, 2003 2:27 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Jak na XML
No, to prave v D5 neni ... alespon teda v Profi verzi ... trebas to je nekde
hotovy a podobny jako v D7...
Jirka
> ..neviem ako v D5, ale D6 ma nastroj XMLMapper, kde si vies urobit XTS
> Transformation File, ten pouzijes v XMLTransformProvideri a ten napojis
na
> TClientDataSet, ktory mozes dat do DataSource..
OT: Chyba MS Wordu na W2000 zo suborom pracuje iny
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 9.4.2003 14:08:04
Peter Vlkovic dne 9 Apr 2003 v 13:33:
> sorry za OT, ale natrafili sme uz na druhy
> pocitac s W2000, kde pri otvarani dokumentov
> vyhodadzuje MS Word hlasku, ze so suborom
> pracuje iny uzivatel. Potom subor normalne
> otvori a vsetko je OK.
> Nestretli ste sa uz niekedy s takouto chybou?
Ano, projevovalo se to pri instalaci Word 97 na W2K (soubor se oteviral vlastne dvakrat - Word i
Excel).
K Office 97 existuji 2 opravne balicky, je zahodno oba nainstalovat, myslim, ze to stacilo. Pokud
ne, je treba patrat v registru, bohuzel uz presne nevim, co se muselo odmazat.
Karel Rys
Automaticky processing pri starte aplikacie
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.4.2003 14:09:45
Martin Dietl:
> Muzu se zeptat na zduvodneni toho reseni?
Zrejme preto, lebo prvykrat je OnShow hlavneho formulara volany este mimo
slucky spracovavania sprav aplikacie.
Kod v TApplication.Run vyzera v skratke priblizne takto:
FMainForm.Visible := True;
repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;
To znamena, ze v kontexte OnShow, ked je volany prvykrat pri spusteni
aplikacie nemozes ocakavat, ze hlavny formular bude spracovavat spravy
(prekreslovanie a podobne).
Preto je jednym z rieseni PostMessage s vlastnou spravou, ta sa zaradi do
message queue a bude spracovana normalne v ramci message loop, ked na nu
pride rad.
Jaroslav Popluhar:
> Chcel by som sa profikov opytat ako je to s pridelovanim hodnot
> konstantam WM_XXXX.
> Kdesi som cital nieco v zmysle, ze pre zabezpecenie jednoznacnosti
> spravy je lepsie poziadat o pridelenie hodnoty OS, tusim nieco ako
> GetRegisteredMessage ci co.
Mas asi na mysli RegisterWindowMessage. To je potrebne iba v pripade, ak
potrebujes spracovavat rovnaku spravu vo viacerych aplikaciach.
$0000 - $03FF (WM_USER - 1) su rezervovane pre system.
$0400 (WM_USER) - $7FFF su urcene pre privatne spravy v ramci window class.
Mal by si dat pozor na to, aby si nemal konflikty hodnot pre rozne window
classes pouzite v aplikacii.
$8000 (WM_APP) - $BFFF mozes pouzit pre privatne spravy v ramci aplikacie.
$C000 - $FFFF - globalne spravy. Hodnotu z tohoto rozsahu dostanes po
zavolani RegisterWindowMessage, a ta potom plati az do skoncenia Windows
session. Kazda dalsia aplikacia, ktora zavola RegisterWindowMessage s tym
istym stringom, dostane naspet tu istu hodnotu.
Viac informacii najdes v Platform SDK.
HTH
TOndrej
prenest Delphi
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 09.4.2003 14:51:16
> Zdravim podruhe:
> Leze nejakym zpusobem prenest cele nainstalovane delphi z PC na PC ? staci
> jen prenest komponenty (aby byly v palete a funkcni), at se nemusi znovu
> prace instalovat ?
>
> s pozdravem valik
>
>
Dobry den!
Delphi jako kazdy jiny SW ve Windows je nainstalovan, musite prenest cele
program files\delphi
program files\borland shared
a vsechny klice registru odkazujici na delphi,
jenze to nemusi fungovat - nevim jestli Delphi neregistruje nejake COM, COM+, OLE
nebo Acvtive X komponenty.
Asi bude snadnejsi nova instalace...
Petr Koukal
prenest Delphi
[*] Kadan� Miroslav <Miroslav.Kadane(zv)cht-pce(tec)cz> - 9.4.2003 14:34:47
Staci zazalohovat registry a je to - mam to otestovany a opravdu to =
funguje.
Jo je=B9t=EC z adresare SYSTEM32 prekopirovat *.BPL
-----Original Message-----
From: MUDr.Patrik Valenta [mailto:valentapat(zv)volny(tec)cz]=20
Sent: Wednesday, April 10, 2002 2:00 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: prenest Delphi
Zdravim podruhe:
Leze nejakym zpusobem prenest cele nainstalovane delphi z PC na PC ? =
staci
jen prenest komponenty (aby byly v palete a funkcni), at se nemusi znovu
prace instalovat ?
s pozdravem valik
OT: KOMERCE: Prodej hardware
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.4.2003 14:16:16
Zdravim
omlouvam se za OT a KOMERCE ale potrebuji se zbavit hardware ktery
nepotrebuji..
Zakladni deska (do 1200Mhz, USB, LAN, sound)
+ Procesor 750Mhz AMD
+ Chladic ......................... Dohodou..
Vypalovacka 2x zapis, 8 cteni - perfektni stav 500,-
Sitove karty ISA SMC - kus za 150,-
+
Mobil Sony CMD J6 + nabijecka + kabel + perfektni stav - 2000,-
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Jak na XML
[*] Jiri Virt <virt(zv)volny(tec)cz> - 9.4.2003 14:27:15
No, to prave v D5 neni ... alespon teda v Profi verzi ... trebas to je nekde
hotovy a podobny jako v D7...
Jirka
> ..neviem ako v D5, ale D6 ma nastroj XMLMapper, kde si vies urobit XTS
> Transformation File, ten pouzijes v XMLTransformProvideri a ten napojis
na
> TClientDataSet, ktory mozes dat do DataSource..
Jak na XML
[*] delphin <delphinPP(zv)seznam(tec)cz> - 9.4.2003 14:19:54
Cau!
..neviem ako v D5, ale D6 ma nastroj XMLMapper, kde si vies urobit XTS
Transformation File, ten pouzijes v XMLTransformProvideri a ten napojis na
TClientDataSet, ktory mozes dat do DataSource..
----- Original Message -----
From: "Jiri Virt" <virt(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 09, 2003 1:13 PM
Subject: Jak na XML
> Ahoj,
> potreboval by prohlizet a nacitat data z XML.Nemate nekdo komponentku
tak,
> abz se dala napojit na TDataSource? Mam D5 profi.
>
> Diky
>
> Jiri Virt
>
>
>
OT:dokumentacia a knihy na stiahnutie
[*] Petr Langer <langer(zv)xdom(tec)cz> - 9.4.2003 13:52:45
hmm, vypada to bezva. Jenom to ma maly zadrhel, ze se mi z tama nepodarilo
nic stahnout :-(
Nekomu jo?
Petr Langer
----- Original Message -----
From: "KALUS Jozef" <jozef.kalus(zv)spordat.sk>
Subject: OT: dokumentacia a knihy na stiahnutie
zdar,
kolega mi poslal tento link http://www.gorkhali.com/kamal/download.htm ,
...
joka
prenest Delphi
[*] MUDr.Patrik Valenta <valentapat(zv)volny(tec)cz> - 10.4.2002 14:00:27
Zdravim podruhe:
Leze nejakym zpusobem prenest cele nainstalovane delphi z PC na PC ? staci
jen prenest komponenty (aby byly v palete a funkcni), at se nemusi znovu
prace instalovat ?
s pozdravem valik
FB konflikt konkurenta pri modifikaci dat
[*] MUDr.Patrik Valenta <valentapat(zv)volny(tec)cz> - 10.4.2002 14:01:09
zdravim.
Jednou se mi stalo, �e p�i UPDATE operaci nad tabulkou se objevila tato
hlaska (viz.predmet zpravy). Urcite se nejednalo o modifikaci stejneho
zaznamu. Reseni bylo pouze v odhlaseni a znovuprihlaseni k databzi. Muze mi
nekdo poradit jak to mam pro priste osetrit ?
valik
NDIS2 v autoexec.bat
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 9.4.2003 13:27:36
matne si spominam, ze existovalo take nieco ako Novell DOS a tam to
myslim islo.... mali to nejak inac vyriesene s tymito ovladacmi...=20
ale inak ... nuz skor nie ako ano...=20
mohol by si to vyskusat na nejakej NT,2k masine, alebo v OS/2 V3, kde =
to
islo pre kazde DOS okno urobit zvlast pri spustani DOS okna... (NT,2k
vid autoexec.nt a config.nt)
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
Ing. Jozef Kalus=09
=A5. =A9t=FAra 17/28
018 61 BELU=A9A
Mob.: 0905 459156
e-mail: equipment(zv)equipment.sk
Web: http://www.equipment.sk
-----Original Message-----
From: Jiri Novacek [mailto:Delphi(zv)spst(tec)cz]=20
Sent: Wednesday, April 09, 2003 12:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: NDIS2 v autoexec.bat
Ahoj
Mam takovy proble. Potrebuji natahnout ovladac sitove karty az v
autoexec.bat. Ted se natahuje v config.sys pomoci
device=3Dovladac.dos
je mozne treba pomoci nejakeho programu toto udelat i jinde.
Predem dekuji
Jirka
Jak na XML
[*] Jiri Virt <virt(zv)volny(tec)cz> - 9.4.2003 13:13:08
Ahoj,
potreboval by prohlizet a nacitat data z XML.Nemate nekdo komponentku tak,
abz se dala napojit na TDataSource? Mam D5 profi.
Diky
Jiri Virt
OT: NDIS2 v autoexec.bat
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 9.4.2003 13:25:44
Jiri Novacek dne 9 Apr 2003 v 12:43:
> Mam takovy proble. Potrebuji natahnout ovladac sitove karty az v
> autoexec.bat. Ted se natahuje v config.sys pomoci
> device=ovladac.dos
> je mozne treba pomoci nejakeho programu toto udelat i jinde.
Pokud mas ovladac s priponou .COM, tak ano. Klasicky pro Novell se pouzije napr. sekvence:
LSL.COM
NE2000.COM (napr.; od vyrobce sitovky)
IPXODI.COM
VLM.EXE
Karel Rys
OT: Chyba MS Wordu na W2000 zo suborom pracuje iny
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.4.2003 13:33:28
Ahoj,
sorry za OT, ale natrafili sme uz na druhy
pocitac s W2000, kde pri otvarani dokumentov
vyhodadzuje MS Word hlasku, ze so suborom
pracuje iny uzivatel. Potom subor normalne
otvori a vsetko je OK.
Nestretli ste sa uz niekedy s takouto chybou?
Vlkovic
MouseToCell
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 9.4.2003 12:46:08
Rostislav Leke�, <mailto:rlekes(zv)atlas(tec)cz>:
RL> mam tento problem se stringgridem: na prave tlacitko mysi potrebuju
RL> zobrazit popupmenu
Obsluhu stisku tlacitka dopln testem:
RL> while PopupMenu1.Items.Count > 0 do PopupMenu1.Items[0].Free;
RL> StringGrid1.MouseToCell(X, Y, Column, Row);
{ test spravnosti koordinatu }
if Column >= 0 and Row >= 0 then begin
RL> MenuItem := TMenuItem.Create(PopupMenu1);
RL> MenuItem.Caption := 'Hide '+stringgrid5.Cells[column,0];
RL> MenuItem.OnClick:=SkryjSloupec;
RL> PopupMenu1.Items.Add(MenuItem);
RL> popupmenu1.Popup(x,y);
end;
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1