Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
scrollbar a ListBox
[*] Michal Hlav�� - 5.1.2000 10:20:05
Zdravim,
skusim to este raz. Nevie niekto ako vypnem v TListBoxe horizontalny
scrollbar. Tak aby sa mi neukazoval aj ked pocet items presiahne.
Dik, Hlavki
IB: Dotaz cez viac databaz
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 5.1.2000 10:53:07
Ahoj
Mam otazku pre skusenejsich IB programatorov
Potreboval by som v Stored procedure pristupovat na data v inej databaze: dovod importovat tabulku z inej databazy. Neviem ako definovat, ze importovana tabulka je v druhej databaze. Skusal som cez "Set Database", ale dostanem vzdy chybovu hlasku.
Potrebujem asi toto:
Create Procedure CopyTable (AnotherDB: VarChar(50)) As
Begin
Insert Into ?? AnotherDB:Table ?? Select * From Table;
End;
Programove riesenie poznam, ale v tejto situacii by bolo vhodnejsie pomocou stored procedure.
Za namety vopred dakujem, Pavol Stolc
pstolc(zv)sc.sknet.sk
Jak obnovit smazane soubory?
[*] Min�� Petr - 5.1.2000 11:06:54
Ahoj vsichni,
jaky souborovy system pouzivate? Pokud ty soubory byly na fat16, tak to jde programem mwundel.exe (+mwundel.hlp, +mwgrafic.dll), sice z dosu, ale win16 program (obnovi i pod W95). Nebo dosovsky undelete.exe anebo unerase.exe.
Pokud jste to mel na fat32, tak nevim (zatim) o zadnym programu na obnovu.
Jestlize by jste ho zjistil, dejte, prosim, vedet.
Dik.
S pozdravem
m���k
petr.minar(zv)kleibl(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Pavel Junek
> Odesl�no: 5. ledna 2000 8:05
> Komu: 'Delphi konference'
> P�edm�t: OT: Jak obnovit smazane soubory?
>
>
> Predem se omlouvam za OT, ale "Ja hlupak. Ja hlava derava."
> jsem si vcera
> vymazal nejake zdrojaky a ted bych je moc potreboval.
>
> Prosim o radu - potreboval bych typ na program, ktery umi
> obnovit smazane
> soubory. (Neumi to nektera utilita z NU?)
>
> V kosi to samozrejme neni, protoze ty ... W95 pouziji pro
> kos procentualni
> cast volneho mista disku a pokud se tato cast zaplni tak to
> mazou rovnou a v
> kosi nechaji starsi soubory. Grrrr.
>
> S diskem nebylo jinak manipulovano, nic se tam nenahravalo.
> Mazano bylo z
> W95.
>
> Dekuji za pomoc.
>
> Pavel
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.115 / Virov� b�ze: 54 - datum vyd�n�: 23.12.1999
>
Zpomaleni davkoveho cteni do TTable
[*] Virag, Ivan <ViragI(zv)logica(tec)com> - 5.1.2000 11:09:18
Zdravim.
Prevadim program z D4 do D5. Je tam modul, ktery cte textovy soubor a
zapisuje hodnoty v radku do jednotlivych poli tabulky. Prelozil jsem
ctyrkovy program do D5 a rychlost nacitani se natolik zpomalila, ze je to
temer k nepotrebe, prestoze jsem v kodu neprovedl zadnou zmenu. Vypada to
zhruba takto:
Var t : textfile;
Mystr : string;
Begin
. . .
while not eof(t) do begin
Readln(t,Mystr);
if Table1.Locate(...) then begin (* if prislusny zaznam jiz existuje
*)
Table1.Edit;
{Naplneni poli table1 ze stringu Mystr}
end
else begin
Table1.Insert;
{Naplneni poli table1 ze stringu Mystr}
end;
Table1.Post;
end;
end;
Pokud nekdo pomuze, vytrhne mi takzvane trn z paty.
Dekuji
Ivan Virag
gz
[*] Tibor Varga (Bratislava) [winco(zv)datapac.sk] <winco(zv)datapac.sk> - 5.1.2000 12:03:44
Mam subor s koncovkou gz, Windows ho oznacuje ako WinZip file, ale
neviem ako ho pomocou WinZip rozbalit.RAS
[*] Martin <geoplan(zv)pp.sinet.sk> - 5.1.2000 12:08:53
zdravim,
velmi pekne dakujem, konecne to chodi.
Martin
----- Original Message -----
Od: Dalibor Toman <dtoman(zv)fortech(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 3. janu�r 2000 16:31
Predmet: Re: RAS
>
>
> >ako to ale oprav�m ? ako zist�m �o pou��va service ?
>
> a) implicitne se vsechno uklada do systemoveho phoneboku
(Windows\System32\RAS\rasphone.pbk)
> takze pokud jako uzivatel mate jiny phone book nejspis jste v rasphone.exe
zmenil defaultni nastaveni
> b) services by melo podle me vzdy pouzivat systemovy phonebook
> c) prihlasil bych se jako administrator a nechal najit vsechny soubory s
priponou *.pbk. Takze bych videl kde se co uklada.
>
> Pozn: *.pbk soubory jsou proste textove soubory, takze se daji rucne
editovat...
>
> Zdravi
> D. Toman
>scrollbar a ListBox
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 5.1.2000 12:25:09
M.Hlavac wrote
>Nevie niekto ako vypnem v TListBoxe horizontalny
>scrollbar. Tak aby sa mi neukazoval aj ked pocet items presiahne.
Ahoj,
lze to napr. takto:
...
type
TNoVertListBox = class(TListBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
var
ListBox1: TNoVertListBox;
implementation
procedure TNoVertListBox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
CreateSubClass(Params, 'NoVertListBox');
with Params do
begin
Style := Style and not WS_HSCROLL ;
Style := Style and not WS_VSCROLL ;
end;
end;
...
Nasel jsem to ve SWAGu, testovano v D3.
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
gz
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 5.1.2000 12:32:10
Ahoj,
jde o UNIX(LINUX)ovy pakovaci format. Bez problemu jde otevrit treba Windows
Commanderem 4.0 (http://www.ghisler.com/).
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: Tibor Varga (Bratislava) [winco(zv)datapac.sk]
> [mailto:winco(zv)datapac.sk]
> Odesl�no: 5. ledna 2000 12:04
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: gz
>
>
> Mam subor s koncovkou gz, Windows ho oznacuje ako WinZip file, ale
> neviem ako ho pomocou WinZip rozbalit.
> Obnova DAT
[*] vase_redakce(zv)email(tec)cz - 5.1.2000 12:54:04
Ahoj,
mam taky problem. Delam datab. aplikaci (nad paradox. tabulky) a zalohuji
tam data. Zalohuji je tim ze je nekam nakopiruji. Problem nastava pri
obnove dat, jelikoz musim vsechny tabulky (spojeni s nimi) uzavrit, abych
mohl soubory prepsat. Ovsem zpatky potrebuji vsechna spojeni obnovit (mohu
mit na obrazovce spoustu formularu a ty maji sve komponenty TABLE, ...).
Nevite jak to udelat, krome toho, ze bych si zjistil, ktera vsechna okna
jsou otevrena a tam dal TABLE.OPEN na vsechny tabulky ??? dik Filip
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Jak obnovit smazane soubory?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 5.1.2000 13:07:11
Ahoj,
v NU je utilita unerase, ktera umi obnovit data (ale nesmi dojit k pohybu na
FAT, pripadne pohybu souboru na disku)
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Pavel Junek [SMTP:junek(zv)hrk.pvtnet(tec)cz]
> Odesl�no: 5. ledna 2000 8:05
> Komu: 'Delphi konference'
> P�edm�t: OT: Jak obnovit smazane soubory?
>
> Predem se omlouvam za OT, ale "Ja hlupak. Ja hlava derava." jsem si vcera
> vymazal nejake zdrojaky a ted bych je moc potreboval.
>
> Prosim o radu - potreboval bych typ na program, ktery umi obnovit smazane
> soubory. (Neumi to nektera utilita z NU?)
>
> V kosi to samozrejme neni, protoze ty ... W95 pouziji pro kos procentualni
> cast volneho mista disku a pokud se tato cast zaplni tak to mazou rovnou a
> v
> kosi nechaji starsi soubory. Grrrr.
>
> S diskem nebylo jinak manipulovano, nic se tam nenahravalo. Mazano bylo z
> W95.
>
> Dekuji za pomoc.
>
> Pavel
> OT: Jak obnovit smazane soubory?
[*] No Comment Group, s.r.o. / Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 5.1.2000 13:13:59
chod na www.download.com a tam si najdi programi Recover4all, EasyRecovery
(FAT32), Recover98 , kazdy znich vie obnovit a su pomerne male.
Bohdan
----- Original Message -----
From: Pavel Junek <junek(zv)hrk.pvtnet(tec)cz>
To: 'Delphi konference' <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, January 05, 2000 8:05 AM
Subject: OT: Jak obnovit smazane soubory?> Predem se omlouvam za OT, ale "Ja hlupak. Ja hlava derava." jsem si vcera
> vymazal nejake zdrojaky a ted bych je moc potreboval.
>
> Prosim o radu - potreboval bych typ na program, ktery umi obnovit smazane
> soubory. (Neumi to nektera utilita z NU?)
>
> V kosi to samozrejme neni, protoze ty ... W95 pouziji pro kos procentualni
> cast volneho mista disku a pokud se tato cast zaplni tak to mazou rovnou a
v
> kosi nechaji starsi soubory. Grrrr.
>
> S diskem nebylo jinak manipulovano, nic se tam nenahravalo. Mazano bylo z
> W95.
>
> Dekuji za pomoc.
>
> Pavel
>gz
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 5.1.2000 13:17:11
On Wed, 5 Jan 2000, Tibor Varga (Bratislava) [winco(zv)datapac.sk] wrote:
> Mam subor s koncovkou gz, Windows ho oznacuje ako WinZip file, ale
> neviem ako ho pomocou WinZip rozbalit.
Ahoj,
tady by zrejme pomohl gunzip.exe. Pro jistotu jsem ti ho hodil na
http://sorry.vse(tec)cz/~xvobl03/gunzip.exe
http://sorry.vse(tec)cz/~xvobl03/gzip.exe
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
gz
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 5.1.2000 13:38:28
Je to zabalene specialnim programkem, ktery pouziva podobnou komprimaci jako
WinZip.
( metoda LZ91 )
Programek se jmenuje
GZIP.exe, GZIP-ARC.exe nebo GZIP386.exe
pokud mas zajem poslu ti je - napis adresu
Pavel SPEJTEK
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Tibor Varga (Bratislava) [winco(zv)datapac.sk]
Odesl�no: 5. ledna 2000 12:04
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: gz
Mam subor s koncovkou gz, Windows ho oznacuje ako WinZip file, ale
neviem ako ho pomocou WinZip rozbalit.
Setri DLL pamet nebo ne?
[*] Karel Kral <kral(zv)purus(tec)cz> - 05.1.2000 13:45:21
Za starych casu Win 3.1 platilo, ze kdy jsem v programu pouzil DLL, vice
instanci stejneho EXE mohlo sdilet jednu instanci DLL. Tudiz, kdyz byl
temer cely program v DLL, dalsi instance nezabiraly o moc vice pameti.
Ted jsem se ale docetl v Delphi Prirucka vyvojare toto: ve Win32 jsou
DLL zavadeny do separatniho pametoveho prostoru specifickeho pro kazdy
proces. Znamena to tedy, ze kdyz 3 instance procesu pouziji stejnou DLL,
pak je tato DLL zavedena 3x, pokazde do jineho pametoveho prostoru a
zabira tudiz 3x vice pameti? To se mi nechce verit. To by byl kernel.exe
zavedeny 10x?
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Obnova DAT
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 5.1.2000 13:55:54
> -----P�vodn� zpr�va-----
> Od: vase_redakce(zv)email(tec)cz [mailto:vase_redakce(zv)email(tec)cz]
> Odesl�no: 5. ledna 2000 12:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Obnova DAT
>
>
> Ahoj,
>
> mam taky problem. Delam datab. aplikaci (nad paradox.
> tabulky) a zalohuji
> tam data. Zalohuji je tim ze je nekam nakopiruji. Problem nastava pri
> obnove dat, jelikoz musim vsechny tabulky (spojeni s nimi)
> uzavrit, abych
> mohl soubory prepsat. Ovsem zpatky potrebuji vsechna spojeni
> obnovit (mohu
> mit na obrazovce spoustu formularu a ty maji sve komponenty
> TABLE, ...).
> Nevite jak to udelat, krome toho, ze bych si zjistil, ktera
> vsechna okna
> jsou otevrena a tam dal TABLE.OPEN na vsechny tabulky ???
>
Obnoveni ze zaloh je vyjimecny stav.
Myslim, ze neni od veci pozadavek, aby si uzivatele restartovali aplikaci.
Jura
gz
[*] Ren� Otisk - 5.1.2000 14:28:09
Hi,
To je koncovka gzipu
Sroub
----- Original Message -----
From: <winco(zv)datapac.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, January 05, 2000 12:03 PM
Subject: gz
> Mam subor s koncovkou gz, Windows ho oznacuje ako WinZip file, ale
> neviem ako ho pomocou WinZip rozbalit.TTreeView: problem s vykreslenim
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.1.2000 14:36:40
From: <Petr.Motlicek(zv)bcbrno(tec)cz>
> jeste jsem si na to nezvykl - D3 s patchem ( ?2?) , WIN95 4.00.950B, IEX
> 4.72.2106.8, gr. karta s S3 chipem...
> Invalidate nefunguje. Zjistili jsme jeste, ze
> pokud do toho TTreeView vlozime uzel jeste
> pred zobrazenim formulare, tak je to OK. Pokud
> ovsem v jiz zobrazenem TTreeView smazeme
> vsechny uzly a vlozime novy, tak se nevykresli...
Ahoj,
To vypada spis na chybu ve VCL. Pokus se udelat co mozna nejkratsi priklad
kde se ta chyba vzdy projevi. Lze to pak zkusit prelozit v jine verzi Delphi
a prelozeny EXE ti poslat. Tim se vylouci pripadna chyba mimo Delphi.
Petr Vones, amatersky programator
Export funkce z EXE a jeji pouziti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.1.2000 14:36:38
From: Rul��ek Daniel <dan.r(zv)avizo(tec)cz>
> Zobrazi se hlaseni:
> "Win32 Error. Code 1114.
> Selhal proces inicializace dynamicky pripojovane knihovny (DLL)"
Ahoj,
Aha, problem bude asi v tom, ze EXE se nechce tvarit jako DLL pri inicializaci.
Tak me napada, proc vlastne nepouzijes DLL a snazis se importovat funkce z EXE ?
Petr Vones, amatersky programator
scrollbar a ListBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.1.2000 14:36:41
From: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>
> skusim to este raz. Nevie niekto ako vypnem v TListBoxe horizontalny
> scrollbar. Tak aby sa mi neukazoval aj ked pocet items presiahne.
Ahoj,
Mas spis asi namysli vertikalni scrollbar. Lze to resit odvozenim nove
komponenty:
type
TXYListBox = class(TListBox)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
{ TXYListBox }
procedure TXYListBox.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
Style := Style and not (WS_HSCROLL or WS_VSCROLL);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
with TXYListBox.Create(Self) do
begin
Parent := Self;
for I := 1 to 100 do
Items.Add(Format('Item %d', [I]));
end;
end;
Petr Vones, amatersky programator
Hledani souboru na siti... - 2 pokr.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.1.2000 14:36:44
From: <katerina.zankova(zv)post(tec)cz>
> prispevek od pana Vonese bohuyel neresi problem
> zaheslovanych slozek
Ahoj,
Ted nemam moznost to zkusit, ale prochazeni sdilenymi slozkami (viz ten priklad)
by melo zahrnovat i slozky s heslem. Takze v tom patrne problem nebude. Pak ti
jde spise asi o to, jak danou sdilenou slozku otevrit (samozrejme pokud znas
heslo :-) Tady prikladam vytrzeny kus kodu z jedne aplikace, ktera si otvirala
sdilenou slozku. Neni to asi sice uplne presne to, co by se hodilo, ale je z toho
videt pouziti funkce WNetAddConnection2. Heslo zadas ve funkci WNetAddConnection2
jako druhy parametr, viz Win32API help.
function TServisData.OpenSharedResource(const Path: String; Silent: Boolean): Boolean;
var
NetRes: TNetResource;
UserName: array[0..31] of Char;
UserNameSize: DWORD;
begin
Result := False;
UserNameSize := Sizeof(UserName);
WNetGetUser(nil, UserName, UserNameSize);
ZeroMemory((zv)NetRes, Sizeof(NetRes));
NetRes.dwType := RESOURCETYPE_DISK;
NetRes.lpRemoteName := PChar(ExtractFileDir(Path));
if not DirectoryExists(Path) and
(WNetAddConnection2(NetRes, nil, UserName, 0) <> NO_ERROR) then
begin
if not Silent then MessBox(sErrorOpenShared, MB_ICONERROR);
end else Result := True;
end;
Petr Vones, amatersky programator
Spojeni dvou tabulek
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.1.2000 14:59:31
On 5 Jan 00, at 10:14, Bosnis wrote:
> Udelal jsem si ty tabulky a vysel mi tenhle select
>
> select A.datum,ifnull(A.typ_dne,B.typ_dne,A.typ_dne) as
> typ_dne,ifnull(A.hodiny,0,A.hodiny) as hodiny
> from
> (
> select ifnull( t1.datum,t2.datum,t1.datum) as
> datum,t1.typ_dne,t1.hodiny from t1,t2 where t1.datum=*t2.datum
> ) as A,t2 as B
> where
> A.datum=B.datum
Co presne dela ifnull? Ja delam pod MS SQL, takze abych mohl
najit adekvatni funkci. Hacek je ale jeste v tom, ze typ_dne neni
null, nicmene v t1 muze byt ke stejnemu datu jina hodnota v
typ_dne oproti "vzoru" v t2.
> jeho vysledek je:
>
> datum typ_dne hodiny
> ========== =========== =======
> 1999-12-30 0 0.00
> 1999-12-31 1 0.00
> 2000-01-01 1 8.00
> 2000-01-02 2 6.00
> 2000-01-03 0 8.00
> 2000-01-04 0 8.00
> 2000-01-05 1 6.00
>
>
> -----P�vodn� zpr�va-----
> Ani tohle se mi nepodarilo uspokojive rozchodit. Uvedu tedy
> konretni data (abstrahuji od typu), zajima me obdobi od 30.12.99 do
> 5.1.00:
>
> T1: datum, typ_dne, hodiny
> 1.1.2000, 1, 8
> 2.1.2000, 2, 6
> 3.1.2000, 0, 8
> 4.1.2000, 0, 8
> 5.1.2000, 1, 6
>
> T2: datum, typ_dne
> 30.12.1999, 0
> 31.12.1999, 1
> 1.1.2000, 0
> 2.1.2000, 2
> 3.1.2000, 0
> 4.1.2000, 0
> 5.1.2000, 0
>
> A ja potrebuji ziskat tento vysledek.
> 30.12.1999, 0, 0
> 31.12.1999, 1, 0
> 1.1.2000, 1, 8
> 2.1.2000, 2, 6
> 3.1.2000, 0, 8
> 4.1.2000, 0, 8
> 5.1.2000, 1, 6
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zpomaleni davkoveho cteni do TTable
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 5.1.2000 15:09:55
Existuje v tabulce prislusny index? Pokud ne, prikaz locate vyhledava
sekvencne. Pak to jede na vetsich tabulkach neuveritelne pomalu.
Ing. Petr Svejda
software specialist
>Prevadim program z D4 do D5. Je tam modul, ktery cte textovy soubor a
>zapisuje hodnoty v radku do jednotlivych poli tabulky. Prelozil jsem
>ctyrkovy program do D5 a rychlost nacitani se natolik zpomalila, ze je to
>temer k nepotrebe, prestoze jsem v kodu neprovedl zadnou zmenu. Vypada to
>zhruba takto:
>
>if Table1.Locate(...) then begin (* if prislusny zaznam jiz existuje
Mezery na casove ose
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 5.1.2000 15:23:14
Mozna stupidni dotaz, ale fakt uz nevim - predem dekuji
Mam dejme tomu takovou tabulku:
Datum od Datum do
************ ***********
1.1.1994 31.6.1994
1.7.1994 31.12.1994
27.11.1994 11.12.1994
7.1.1995 18.1.1995
11.1.1995 15.1.1995
21.1.1995 17.11.1998
18.11.1998 1.1.1999
5.1.1999 24.12.1999
V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a datumy
od
Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim, ze v
teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
2.1.1999 - 4.1.1999
Ja bych toto potreboval zjistit programove co nejefektivneji a nejrychleji,
tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
dulezita.
Muzete mne nekdo nakopnout spravnym smerem, prosim. Spise mi jde o to,
jestli jste se s takovymto problemem jiz nekdo setkal, protoze uz jsem neco
zkousel, ale vzdycky jsem narazil na pripad, kdy jsem mezeru nepoznal,
nejcasteji to bylo tehdy, kdyz jsou do sebe dva vztahy vnorene a jsou o vice
jak radek od sebe. Nejlepe jsem mezery poznal na grafu, ale intervaly mezer
z grafu nedokazu vytahnout a mozna ani graf ve vysledne aplikaci nebudu moci
pouzit.
Mate nekdo nejaky napad? Moc Vas vsechny prosim.
S pozdravem Tom
Delphi 3.02 CS, SP 4.00, W-NT 4.00
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
Acces Violation
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 5.1.2000 15:26:40
Ahoj,
Tak se mi podarilo docilit access violation po kazdem uzavreni programu
(proste ho jenom spustim a pak ho ukoncim). Program zdechne pri uvolnovani
komponent (ale az po OnDestroy! takze to nema na vlastni funkci programu
zadny vliv). na formu je pouzito cca 20 komponent (z RXLib 2.60, Orpheus
2.17, DTools 3.1, a par dalsich komponent). Bohuzel nedokazu rozpoznat, jaky
komponent to zpusobuje. Jak izolovat komponent, ktery chybu zp�sobuje? Kdyz
odstranim komponent, naborim i funkcnost porogramu. Nesetkal jste se s tim,
prosim, nekdo? Ale mam od vsech komponentu zdrojaky... A QR nepouzivam.
Diky
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr.Motlicek(zv)bcbrno(tec)cz [SMTP:Petr.Motlicek(zv)bcbrno(tec)cz]
> Odesl�no: 20. prosince 1999 20:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Acces Violation
>
> > potreboval bych trochu poradit, kde mam zacit hledat. Mam napsanou
> aplikaci
> > v D2 a ta mi nepravidelne (obvykle po kompilaci, na opakovene spusteni
> jiz
> > zridka kdy) vykazuje Acces Violation po pruchodu OnDestroy hlavniho
> > formulare (tj. az za END). Program se normalne ukonci bez jakychkoliv
> > problemu a teprve pak se hlaska objevi (a stahne s sebou nekdy cele
> IDE).
> > Kde bych mel hledat pricinu problemu?
>
> Ahoj,
>
> zkus nejdrive pred kompilaci data SearchPath
> na cesty pro VCL knihovnu (a nejlepe zmen i
> Output pro DCU) a zkus, jestli ten Access
> Violation takto najdes na prislusnem radku
> kodu.
>
> Jinak, pokud je to typicky "....at Address
> FFFFFFF", tak jestli vylozene ty sam
> neuvolnujes jiz uvolnene, tak zapremyslej,
> komu uvolnujes, aniz mas uvolnovat....
>
> Napr. ja s oblibou uvolnoval quick reportu
> bitmapu v QRImage nebo udelas
>
> C := Tcomponent.Create(jinacomponent);
> try
> mnoho kodu
> finally
> C.Free;
> end;
>
> coz je samozrejme spatne.
> (Ale to jsou asi chyby, ktere te napadly samy.)
>
> Pokud je to na jinych addresach, tak si zrejme
> spatne "hrajes" s pointrama...., nebo se
> stringama - jako ukazatele (napr. v procedure
> Move, nebo v jistych situacich musis string
> "alokovat" - SetLength apod.)
>
> No snad te neco napadlo, cim by to mohlo byt.
> Zkus to treba jeste vice priblizit. Mam hodne
> zkusenosti s podobnymi Accessy... :-|
>
> Petr Motlicek
agregace sql
[*] Alinex <alinex(zv)alinex(tec)cz> - 5.1.2000 15:27:05
Ahoj,
nikdy jsem moc s SQL nedelal a ted musim. Jak prdostanu hodnotu vysledku do nejake promene
"Select sum (pocet) from vyrobky where......."
nevim jak dostat ten soucet a pouzit ho dal
obdobne
"Select count(*) from cleni ......
moc diky za nakopnuti (ne vykopnuti)
ALI
Mezery na casove ose
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 5.1.2000 15:56:58
Ahoj,
pro datum pouzivam prevod datumu na cislo (juliansky k.). V knihovne Orpheus
je jednotka StDate, ktera ma soustredeny rutiny pro prevod datumu na cele
cislo. No a s tim pak pracuju pro napr. pro zjistovani intervalu mezi datumy
(DatumDo-DatumOd tj. pocet dni nebo funkci pro odchylku Den-mes-rok). Mozna
by to slo i prevest na TDateTime a pak s tim pracovat jako s cisly (tedy je
i jako cisla setridit a pak se daji poznat i vnorene intervaly). Protoze na
casove ose jsou cisla za sebou tak se da zjistit i duplicita (jedinecnost
dne aj.)
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Brabec Tom� [SMTP:brabec(zv)nym.pvt(tec)cz]
> Odesl�no: 5. ledna 2000 15:23
> Komu: 'DELPHI-Konference'
> P�edm�t: Mezery na casove ose
>
> Mozna stupidni dotaz, ale fakt uz nevim - predem dekuji
> Mam dejme tomu takovou tabulku:
>
> Datum od Datum do
> ************ ***********
> 1.1.1994 31.6.1994
> 1.7.1994 31.12.1994
> 27.11.1994 11.12.1994
> 7.1.1995 18.1.1995
> 11.1.1995 15.1.1995
> 21.1.1995 17.11.1998
> 18.11.1998 1.1.1999
> 5.1.1999 24.12.1999
>
> V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a
> datumy
> od
> Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim, ze
> v
> teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
> 2.1.1999 - 4.1.1999
> Ja bych toto potreboval zjistit programove co nejefektivneji a
> nejrychleji,
> tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
> dulezita.
> Muzete mne nekdo nakopnout spravnym smerem, prosim. Spise mi jde o to,
> jestli jste se s takovymto problemem jiz nekdo setkal, protoze uz jsem
> neco
> zkousel, ale vzdycky jsem narazil na pripad, kdy jsem mezeru nepoznal,
> nejcasteji to bylo tehdy, kdyz jsou do sebe dva vztahy vnorene a jsou o
> vice
> jak radek od sebe. Nejlepe jsem mezery poznal na grafu, ale intervaly
> mezer
> z grafu nedokazu vytahnout a mozna ani graf ve vysledne aplikaci nebudu
> moci
> pouzit.
> Mate nekdo nejaky napad? Moc Vas vsechny prosim.
>
> S pozdravem Tom
>
> Delphi 3.02 CS, SP 4.00, W-NT 4.00
>
> Tom� Brabec
> PVT Nymburk, a.s.
> e_mail: Tomas.Brabec(zv)pvt(tec)cz
> brabec(zv)nym.pvt(tec)cz
> tel: 0325/519639
>
>
> Zpomaleni davkoveho cteni do TTable
[*] Virag, Ivan <ViragI(zv)logica(tec)com> - 5.1.2000 16:28:29
Vsechno je prave uplne stejne. Databaze (Access), index tam je, kod,
vsechno. Pouze jsem to prelozil pod D5.
Ivan Virag
Existuje v tabulce prislusny index? Pokud ne, prikaz locate vyhledava
sekvencne. Pak to jede na vetsich tabulkach neuveritelne pomalu.
Ing. Petr Svejda
software specialist
>Prevadim program z D4 do D5. Je tam modul, ktery cte textovy soubor a
>zapisuje hodnoty v radku do jednotlivych poli tabulky. Prelozil jsem
>ctyrkovy program do D5 a rychlost nacitani se natolik zpomalila, ze je to
>temer k nepotrebe, prestoze jsem v kodu neprovedl zadnou zmenu. Vypada to
>zhruba takto:
>
>if Table1.Locate(...) then begin (* if prislusny zaznam jiz existuje
Mezery na casove ose
[*] Pavel Hampl <phampl(zv)chmi(tec)cz> - 05.1.2000 15:32:15
Nazdarek,
asi bych to resil napriklad jako array [1..366] pro kazdy rok, kde by se
ukladalo, jestli dany den je v nejakem intervalu nebo ne. Na zacatek bych
vsechno nastavil treba na nulu a pak probral vsechny intervaly a dni mezi nimi
nastavil na 1. Ale chce to mit prevod mezi datovym formatem dd.mm.rrrr a
poradim dne v roce. Ted nevim, jestli delfi neco takoveho ma, ale myslim ze jo.
Pavel Hampl
druzicove oddeleni CHMU, Praha Libus
Brabec Tom� wrote:
> Mozna stupidni dotaz, ale fakt uz nevim - predem dekuji
> Mam dejme tomu takovou tabulku:
>
> Datum od Datum do
> ************ ***********
> 1.1.1994 31.6.1994
> 1.7.1994 31.12.1994
> 27.11.1994 11.12.1994
> 7.1.1995 18.1.1995
> 11.1.1995 15.1.1995
> 21.1.1995 17.11.1998
> 18.11.1998 1.1.1999
> 5.1.1999 24.12.1999
>
> V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a datumy
> od
> Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim, ze v
> teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
> 2.1.1999 - 4.1.1999
> Ja bych toto potreboval zjistit programove co nejefektivneji a nejrychleji,
> tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
> dulezita.
> Muzete mne nekdo nakopnout spravnym smerem, prosim. Spise mi jde o to,
> jestli jste se s takovymto problemem jiz nekdo setkal, protoze uz jsem neco
> zkousel, ale vzdycky jsem narazil na pripad, kdy jsem mezeru nepoznal,
> nejcasteji to bylo tehdy, kdyz jsou do sebe dva vztahy vnorene a jsou o vice
> jak radek od sebe. Nejlepe jsem mezery poznal na grafu, ale intervaly mezer
> z grafu nedokazu vytahnout a mozna ani graf ve vysledne aplikaci nebudu moci
> pouzit.
> Mate nekdo nejaky napad? Moc Vas vsechny prosim.
>
> S pozdravem Tom
>
> Delphi 3.02 CS, SP 4.00, W-NT 4.00
>
> Tom� Brabec
> PVT Nymburk, a.s.
> e_mail: Tomas.Brabec(zv)pvt(tec)cz
> brabec(zv)nym.pvt(tec)cz
> tel: 0325/519639
>
>OT: RE: Dane
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.1.2000 16:57:45
Vim, ze toto do konference nepatri, ale mozna by to zajimalo
i ostatni, takze odpovidam sem. Z hlediska financniho uradu
zavisi na tom, zda ta castka jiz byla byvalym zamestnavatelem
zdanena. Pokud ano, neni se treba se jiz o nic starat, takze
predpokladam, ze nebyla. Dale zavisi na tom, zda presahla
hranici 10 000,- Kc (� 38g odst 1 zakona o danich z prijmu
(586/1992)), pokud ne, neni se treba o nic starat, protoze
se jedna o jednorazovy prijem. Pokud castka presahla hranici
10 000,- Kc je nutne podat danove priznani (bez nutnosti
registrace na FU) a to dle �10 tehoz zakona.
Vzhlededm k tomu, ze nezdanitelna cast zakladu dane cini
rocne 34 920,- Kc, bude toto danove priznani nulove,
tzn. nebude se platit zadna dan.
Predpokladam, ze pro jednorazovy prijem neni nutne se ani
nijak registrovat ani na socialce ani na zdravotni pojistovne.
Dobra.> ----------
> Omlouvam se za OT, ale mozna nekdo z Vas mi muze poradit s problemem -
> prosim vsak na soukromy mail (jnagy(zv)nh-trans(tec)cz)!!!
>
> Manzelka je na (uz neplacene) materske dovolene, bez zadnych prijmu.
> Ted naprosto necekane dostala od byvaleho zamestnavatele nejake penize
> jako autorsky honorar za stare programy, co pro neho nekdy pred casem
> delala a jemu se je povedlo jeste nekomu prodat. No a ted je ten
> problem: jak na dane (to asi neni az takovy problem) a ruzne pojistne
> z tech penez, kam vsude je to treba nahlasit, atd. Nevite nahodou
> nekdo?
>
> Mezery na casove ose
[*] psojka(zv)els.ln.skoda(tec)cz - 5.1.2000 17:01:43
> Mozna stupidni dotaz, ale fakt uz nevim - predem dekuji
S nejstupidnejsima problemama je dycky nejvetsi pakarna. :-)
> V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a
datumy
> od Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim,
ze v
> teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
> 2.1.1999 - 4.1.1999
> Ja bych toto potreboval zjistit programove co nejefektivneji a
nejrychleji,
> tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
> dulezita.
Nevim jestli jsem to spravne pochopil, ale pokud mas
tu tabulku v textu zkus pouzit prevod pomoci funkce
function StrToDate(s : String): TDateTime;
TDateTime je typu Double vyjadruje cas ve dnech s pocatkem
na na prelomu roku 1899 a 1900. Pri pouziti StrToDate
bude zlomkova cast nulova, tj. bude to cele cislo.
Pokud uz to mas v casovem formatu rovnou tak to jenom
sesekni o zlomkovou cast.
Pokud rozdil DO-OD bude 1 pak tam dira neni. Pokud bude
vetsi pak interval bude DO+1 az OD-1 to vse vyjadreno
v TDateTime. To se pak da do textu prevest funkci
function DateToStr(Date: TDateTime): String;
pokud to je treba.
Nevim jestli je to co si potreboval, ale snad ti to pichne. ;-)
>>Jackal<<
Pack Table
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.1.2000 17:06:47
>Od: daniel.hrna(zv)vm.sme(tec)cz[SMTP:daniel.hrna(zv)vm.sme(tec)cz]
> >Mam Table a v ni zaznamy, samozrejme, ze tam jsou i zaznamy smazane. Jde mi
> >o to je vymazat z databaze natrvalo.
> >
> >Neco jako ve FoxPro PACK ..
>
----------
Pokud Ti jde o PDOX tak to lze takto :
(uprav si nejake ty kontanty a podbne...;
jednou jsem takto pretvoril ten priklad
z helpu k obrazu svemu :-)
procedure PackTable(var Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
TableOpen,
TableExclusive : boolean;
begin
//Zapamatovat puvodni hodnoty a stavy...
TableOpen:=Table.Active;
TableExclusive:=Table.Exclusive;
if TableOpen then
begin
if Table.State in [dsEdit, dsInsert] then
try
Table.Post;
except
raise EDatabaseError.Create(ETablePost);
end;
Table.Close;
end;
Table.Exclusive:=true;
try
Table.Open;
except
raise EDatabaseError.Create(Format(ETableOpen, [Table.TableName]));
end;
try
Check(DbiGetCursorProps(Table.Handle, Props));
if Props.szTableType = szPARADOX then
begin
// Blank out the structure...
FillChar(TableDesc, SizeOf(TableDesc), 0);
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...
Check(DbiDoRestructure(hDb, 1, (zv)TableDesc, nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create(ETableMustBePdoxOrDBase);
//Obnovit puvodni hodnoty a stavy
if Table.Active then
Table.Close;
Table.Exclusive:=TableExclusive;
if TableOpen then
try
Table.Open;
except
raise EDatabaseError.Create(Format(ETableOpen, [Table.TableName]));
end;
except
raise EDatabaseError.Create(EPack);
end;
end;
Dobra.Mezery na casove ose
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 5.1.2000 17:17:19
Brabec Tom� wrote
> V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a
> datumy
> od
> Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim, ze
> v
> teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
> 2.1.1999 - 4.1.1999
> Ja bych toto potreboval zjistit programove co nejefektivneji a
> nejrychleji,
> tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
> dulezita.
>
Prvym selectom zistis kde su medzery
select datum_do from xxx
where not exists (select datum_od from xxx yyy
where xxx.datum_do = yyy.datum_od + 1)
A tento druhy select sa bude dynamicky menit a doda Ti vlastne do
kedy trva ta medzera, ktorej zaciatok zadas ako parameter
select max(datum_od) from xxx
where datum_od > :datum_do
Treba este odcitat po jednom dni od oboch datumov
JJ
Object moving
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.1.2000 17:27:55
Ahoj, ja to jednou zkousel tak, ze jsem ten panel
"podedil" a pripsal mu udalost WM_NCHitTest, slo to,
panel se mohl pohybovat v ramci jeho vlastnika.
Dobra.> ----------
> Od: Petr.Motlicek(zv)bcbrno(tec)cz[SMTP:Petr.Motlicek(zv)bcbrno(tec)cz]
>
> > potreboval bych poradit, jak mysi pohybovat nejakym objektem (napr.
> > panelem) po nejakem controlu (napr. formulari), stejne jako je tomu v
> > designu Delphi.
>
> v z> �sade m�s tri moznosti (ps�no pro D3):
>
> 1)
> vyuzit udalosti typ On...Drag.... s nastavenim
> TConrol.DragMode := dmAutomatic;
>
> 2)
> vyuzit udalosti typ On...Drag.... s nastavenim
> TConrol.DragMode := dmManual;
>
> 3)
> udelat si vlastni implementaci "drag and drop"
> konec windows a spustenej program
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.1.2000 17:31:45
Ahoj,
teoreticky by melo stacit to mit v OnClose, to by se melo
vykonet vzdy!, zatimco WMKonecWindows se vykona jedine tehdy
byl-li program ukoncen z duvodu zavirani Windows.
Dobra.
> ----------
> Od: Martin Pe> �ek[SMTP:pesek.martin(zv)mymail(tec)cz]
>
> Takze to co mam v udalosti onClick mam dat do procedury WMKoniecWindows ? A ten kus zdrojaku, co je v procedure WMKoniecWindows tam musi bejt ? Pokud ano, muj kus zdrojaku z onClick tam mam dat za to nebo pred to ? Predem dik a cau Martin.
>
> ----- Original Message -----
> From: Pavol Kaka> �ka
> To: delphi-l(zv)fwd(tec)cz
> Sent: Tuesday, December 28, 1999 1:11 PM
> Subject: Re: konec windows a spustenej program
>
> To ako Tvoj program ukoncia Wokna mas v rukach Ty. Wokna pri poziadavku na ukoncenie posielaju vsetkym aplikaciam message WM_QUERYENDSESSION (+ WM_ENDSESSION - vysielana pri ukonceni Windows). Podla toho aky vysledok vrati app sa Windows zachovaju (bud sa vypnu, alebo nie). Napisat to mozes do objektu napr. takto:
> > �> private
> > ���> procedure WMKoniecWindows(var Msg: TMessage); message WM_ENDSESSION;
> > ���> procedure WMKoniecWin(var Msg: TMessage); message WM_QUERYENDSESSION;> �> {dotaz}
> > ��> ...
>
> a pootom tam nieco urobit: (napriklad zavolat udalosti co robis rucne pri ukoncovani aplikacie)
> > �>
> procedure TKStowageF.WMKoniecWin(var Msg: TMessage);
> begin
> > �> Msg.Result := 1; // Moze sa vypnut
> end;
>
> procedure TfrmKWatch.WMKoniecWindows(var Msg: TMessage); // Toto sa vykona pri ukonci Windows
> var
> > �> D: TKsGuardian;
> begin
> > �> if anDetektiv then
> > �> begin
> > ���> D := TKsGuardian.Create;
> > ���> D.Udalost(udEndSession);
> > ���> D.Free;
> > �> end;
> > �> ...
> end;
>
> Ak urobis toto nemalo by dochadzat k nejaky poskodeniam. (Ale v oblasti PC clovek nikdy nevie ;-D} Ale ani ak to neurobis, len si musis uvedomit, ze sa Ti nemusi vykonat vssetko co chces!
>
> Pavol Kaka�ka
> paka(zv)aktis(tec)cz
>
> Kooedinatz mysi mimo aplikaci
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 5.1.2000 17:33:23
Pouzij API fci GetCursorPos
Dobra.
> ----------
> Od: Jmisek[SMTP:jmisekdelphi(zv)seznam(tec)cz]
> �>
> Jak muzu jzistit pozici mysi i mimo
> aplikaci, jeji X a Y na obrazovce.
> �>
> Setri DLL pamet nebo ne?
[*] J�n Grman�������e���zW��ۛg�$ - 5.1.2000 18:08:22
----- Original Message -----
From: Karel Kral <kral(zv)purus(tec)cz>> Za starych casu Win 3.1 platilo, ze kdy jsem v programu pouzil DLL, vice
> instanci stejneho EXE mohlo sdilet jednu instanci DLL. Tudiz, kdyz byl
> temer cely program v DLL, dalsi instance nezabiraly o moc vice pameti.
>
> Ted jsem se ale docetl v Delphi Prirucka vyvojare toto: ve Win32 jsou
> DLL zavadeny do separatniho pametoveho prostoru specifickeho pro kazdy
> proces. Znamena to tedy, ze kdyz 3 instance procesu pouziji stejnou DLL,
> pak je tato DLL zavedena 3x, pokazde do jineho pametoveho prostoru a
> zabira tudiz 3x vice pameti? To se mi nechce verit. To by byl kernel.exe
> zavedeny 10x?
Logicky je kazde DLL zavedene do separatneho pamatoveho priestoru, ale
VYHRADIT pamat LOGICKY a FYZICKY je v systemoch postavenych na WIN32 velky
rozdiel.
WIN32 pristupuje k DLL ako k PAMATOVO MAPOVANEMU suboru (system dokonca
nenacitava DLL do pamati cele, ale roznymi strategiami vhodne nastrankovava
len potrebne casti ...).
V skutocnosti sa teda FYZICKY vyhradi priestor len pre GLOBALNE struktury,
kod je zdielany, lokalne struktury sa vytvaraju za behu programu na HEAPE
DLLka samozrejme.
Doporucujem precitat nejaku odbornejsiu literaturu ako je Delphi Prirucka.
Ak som nieco vysvetlil nepresne, prepacte, nebol to zamer...
Jano.Ukon�en� programu (Delphi 3)
[*] Martin Kucera <mk(zv)paegas.vol(tec)cz> - 5.1.2000 18:21:21
Dobry den, vsichni
muj problemek spociva v tom, ze muj programek bezici v pozadi a prezentujici
se tray ikonou nedokazi winduse zavrit, kdyz chci restartovat ci vypnout.
Nemuzu prijit na to, co je to za udalost nebo co tomu brani. Neni to ani
Application.Terminate ani Form.Close ci Destroy atd. Kdyz dam Ctrl+Alt+Del,
ukoncit tak pry program neodpovida. Samozrejme normalne rucne ukoncit
jde....
Nesetkali jste se s necim takovym? Mozna je to blbinka, ale nemuzu se niceho
dopatrat.
Martin Kucera
Obnova DAT
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.1.2000 18:46:53
Ahoj,
objekt Application ma valstnosti FormCount a Forms [], takze to
muzes projizdet. Treba takto (pouze nastin):
for i := 0 to FormCount - 1 do
begin
if (formular ma dbgrid a je visible na true) then
begin
zavri dataset;
forms [i].tag := treba_jedna;
end else forms [i].tag := treba_nula;
end;
zde si neco delej s tabulkama a zase zavolej:
for i := 0 to FormCount - 1 do
begin
if Forms [i] = treba_jedna then otevri_dataset;
end;
Slavek
> Ahoj,
>
> mam taky problem. Delam datab. aplikaci (nad paradox. tabulky) a zalohuji
> tam data. Zalohuji je tim ze je nekam nakopiruji. Problem nastava pri
> obnove dat, jelikoz musim vsechny tabulky (spojeni s nimi) uzavrit, abych
> mohl soubory prepsat. Ovsem zpatky potrebuji vsechna spojeni obnovit (mohu
> mit na obrazovce spoustu formularu a ty maji sve komponenty TABLE, ...).
> Nevite jak to udelat, krome toho, ze bych si zjistil, ktera vsechna okna
> jsou otevrena a tam dal TABLE.OPEN na vsechny tabulky ???
>
> dik Filip
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Mezery na casove ose
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 5.1.2000 20:02:39
Neevim. asi to zase napisu blbe..... tak mne pak tlucte na soukromem
mailu....
asi bych to prevedl na neco jako
record zacatek,konec:tdatetime end;
-- setridil podle "zacatku" tech intervalu.
budu to cmarat v poli, {datum[0..pocetzaznamu-1]} , ale pokud je toho moc,
tak to bude asi lepsi nacpat do neceho jineho.
pom:=datum[0];
for z:=1 to pocetzaznamu-1 do
begin
if pom.konec+1>datum[z].zacatek then
if pom.konec<datum[z].konec then
pom.konec:=datum[z].konec
else
else
poslizaznam(pom); {zapisovat bokem}
end;
pridejzaznam pak bude posilat uz jenom "spojene prekryvajici se" intervaly.
a mezi nima budou urcite mezery. (minimalne ze dne na den)
pokud chces spojit dva sousedni dny ( ... -17.11.1998 : 18.11.1998 - .....)
tak by melo stacit tu podminku napsat jako
if datum[x].konec+2<.....
if datum[x].konec+2> .....
Mti.
pisu to jen tak do mailu a asi tam bude neco blbe - vypada to moc
jednoduse..... :-)
-----P�vodn� zpr�va-----
Od: Brabec Tom� <brabec(zv)nym.pvt(tec)cz>
Komu: 'DELPHI-Konference' <delphi-l(zv)fwd(tec)cz>
Datum: 5. ledna 2000 15:36
P�edm�t: Mezery na casove ose
Mozna stupidni dotaz, ale fakt uz nevim - predem dekuji
Mam dejme tomu takovou tabulku:
Datum od Datum do
************ ***********
1.1.1994 31.6.1994
1.7.1994 31.12.1994
27.11.1994 11.12.1994
7.1.1995 18.1.1995
11.1.1995 15.1.1995
21.1.1995 17.11.1998
18.11.1998 1.1.1999
5.1.1999 24.12.1999
V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a datumy
od
Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim, ze v
teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
2.1.1999 - 4.1.1999
Ja bych toto potreboval zjistit programove co nejefektivneji a nejrychleji,
tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
dulezita.
Muzete mne nekdo nakopnout spravnym smerem, prosim. Spise mi jde o to,
jestli jste se s takovymto problemem jiz nekdo setkal, protoze uz jsem neco
zkousel, ale vzdycky jsem narazil na pripad, kdy jsem mezeru nepoznal,
nejcasteji to bylo tehdy, kdyz jsou do sebe dva vztahy vnorene a jsou o vice
jak radek od sebe. Nejlepe jsem mezery poznal na grafu, ale intervaly mezer
z grafu nedokazu vytahnout a mozna ani graf ve vysledne aplikaci nebudu moci
pouzit.
Mate nekdo nejaky napad? Moc Vas vsechny prosim.
S pozdravem Tom
Delphi 3.02 CS, SP 4.00, W-NT 4.00
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
Ruzne fonty v DBGridu
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 5.1.2000 22:13:54
Potreboval bych udelat to abych mel v jednom sloupci v DBGridu
vzdy prvni dve pismena tucne a zbytek normalnim fontem.
Tusim ze by se to melo delat pri OnDrawColumnCell, ale
nevim jak tam zmenit ten font a vykreslit to zpet do Gridu.
Resil jste nekdo neco podobneho ?
Diky
Pavel M.Vytvorenie okna s upozornenim.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 5.1.2000 23:06:14
Zdravim vsetkych !
Chcel by som vytvorit okno s upozornenim. Moja predstava je z FoxPro ako
prikaz "wait window 'Nastala chyba cislo 4541' nowait".
Je uzke okno v pravom hornom rohu, ktore sa zobrazi pri zavolani a vrati
focus do okna z ktoreho je volany, ale necaka na reakciu uzivatela, a zmizne
ak uzivatel stlaci klaves alebo tlacitko mysi, ale jeho reakcia je bude
podchytena v okne z ktoreho bolo zavolane (aby nebolo nutne stlacit nejaky
klaves na odstranenie okna a pokracovanie v praci).
Thank you very much.
Best regards.
Roland Tur�an
RoTurSoft
Pal�rikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
Ruzne fonty v DBGridu
[*] Martin Lasevic <lasevic(zv)atlascon(tec)cz> - 6.1.2000 00:05:51
Nevim presne, ale asi bych to delal takto :
1) Presne v metode na OnDrawColumnCell bych si vytvoril ten text rozdeleny na cast
tucnou a netucnou
2) Zmenil styl fontu na tucny a vykreslil pomoci TextOut ( pisu to z hlavy, takze sorry za
pripadne nepresnosti) napsal prvni cast.
3) Existuje nejaka metoda v canvasu, ktera Ti vrati sirku textu. O tuto sirku bych si
pak posunul novy TRect a netucne vypsal zbytek textu.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://baf(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> Potreboval bych udelat to abych mel v jednom sloupci v DBGridu
> vzdy prvni dve pismena tucne a zbytek normalnim fontem.
> Tusim ze by se to melo delat pri OnDrawColumnCell, ale
> nevim jak tam zmenit ten font a vykreslit to zpet do Gridu.
> Resil jste nekdo neco podobneho ?
>
Osud Interbase
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 6.1.2000 00:29:03
Hello All!
http://www.borland.com/about/press/2000/ib.html
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
agregace sql
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 6.1.2000 07:35:57
Ahoj,
nikdy jsem moc s SQL nedelal a ted musim. Jak prdostanu hodnotu vysledku do
nejake promene
"Select sum (pocet) from vyrobky where......."
nevim jak dostat ten soucet a pouzit ho dal
obdobne
"Select count(*) from cleni ......
moc diky za nakopnuti (ne vykopnuti)
ALI
agregace sql
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 6.1.2000 07:40:11
Sorry za predchozi zpravu bez niceho, jinak mozne reseni:
procedure ....;
var A: integer;
wPom: string;
begin
wPom:= 'SELECT sum(pocet) FROM vyrobky';
WITH SqlXXX DO
begin
Close;
Sql.Clear;
Sql.Add(wPom);
Open;
end;
A:= sqlXXX.Fields[0].AsInteger;
end; {Procedure}
Snad ti to pomuze. S pozdravem
Tom
Ahoj,
nikdy jsem moc s SQL nedelal a ted musim. Jak prdostanu hodnotu vysledku do
nejake promene
"Select sum (pocet) from vyrobky where......."
nevim jak dostat ten soucet a pouzit ho dal
obdobne
"Select count(*) from cleni ......
moc diky za nakopnuti (ne vykopnuti)
ALI
Export funkce z EXE a jeji pouziti
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 6.1.2000 07:43:47
P.Vones wrote:
>Tak me napada, proc vlastne nepouzijes DLL a snazis se importovat funkce z
EXE ?
EXE je editor ikon a ja mam takovou predstavu,
ze by se dal spustit nejen samostatne, ale taky
jako dialog (prave volanim exportovane funkce)
z jineho programu. Ten dialog by byl ve volajicim
programu modalnim, takze by se zabranilo vsem
zmenam az do skonceni editace ikony...
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
agregace sql
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 6.1.2000 07:50:02
// telo ulozene procedury v databazi
// pokud se neuvede hlavicka = bezejmena procedura a lze ji pouzivat v
nastrojich, ktere spousti SQL prikazy interaktivne
// toto je WATCOM syntaxe
begin
declare (zv)PROM integer;
select count(*) into (zv)PROM from vyrobky;
// tady uz lze pouzivat promennou (zv)PROM i v jinych selectech
end;
Pavel SPEJTEK
e_mail:bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Alinex
Odesl�no: 5. ledna 2000 15:27
Komu: delphi
P�edm�t: agregace sql
Ahoj,
nikdy jsem moc s SQL nedelal a ted musim. Jak prdostanu hodnotu vysledku
do nejake promene
"Select sum (pocet) from vyrobky where......."
nevim jak dostat ten soucet a pouzit ho dal
obdobne
"Select count(*) from cleni ......
moc diky za nakopnuti (ne vykopnuti)
ALI
Spojeni dvou tabulek
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 6.1.2000 07:58:39
ifnull(A.typ_dne,B.typ_dne,A.typ_dne)
tenhle vyraz dosadi hodnotu B.typ_dne pokud je A.typ_dne=null jinak pouzije
A.typ_dne
hodnoty null v A.typ_dne vniknou pouzitim JOINU - (t1.datum=*t2.datum),
protoze hodnoty ktere se pridaji z tabulky t2, vytvori ve vsech ostatnich
sloupcich ( tj. mimo sloupce datum kam se dosadi hodnota z t2.datum )
hodnotu null
Pavel SPEJTEK
e_mail: bosnis(zv)atlas(tec)cz
www : http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Zbysek Hlinka
Odesl�no: 5. ledna 2000 15:00
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Spojeni dvou tabulek
On 5 Jan 00, at 10:14, Bosnis wrote:
> Udelal jsem si ty tabulky a vysel mi tenhle select
>
> select A.datum,ifnull(A.typ_dne,B.typ_dne,A.typ_dne) as
> typ_dne,ifnull(A.hodiny,0,A.hodiny) as hodiny
> from
>
> select ifnull( t1.datum,t2.datum,t1.datum) as
> datum,t1.typ_dne,t1.hodiny from t1,t2 where t1.datum=*t2.datum
> ) as A,t2 as B
> where
> A.datum=B.datum
Co presne dela ifnull? Ja delam pod MS SQL, takze abych mohl
najit adekvatni funkci. Hacek je ale jeste v tom, ze typ_dne neni
null, nicmene v t1 muze byt ke stejnemu datu jina hodnota v
typ_dne oproti "vzoru" v t2.
> jeho vysledek je:
>
> datum typ_dne hodiny
> ========== =========== =======
> 1999-12-30 0 0.00
> 1999-12-31 1 0.00
> 2000-01-01 1 8.00
> 2000-01-02 2 6.00
> 2000-01-03 0 8.00
> 2000-01-04 0 8.00
> 2000-01-05 1 6.00
>
>
> -----P�vodn� zpr�va-----
> Ani tohle se mi nepodarilo uspokojive rozchodit. Uvedu tedy
> konretni data (abstrahuji od typu), zajima me obdobi od 30.12.99 do
> 5.1.00:
>
> T1: datum, typ_dne, hodiny
> 1.1.2000, 1, 8
> 2.1.2000, 2, 6
> 3.1.2000, 0, 8
> 4.1.2000, 0, 8
> 5.1.2000, 1, 6
>
> T2: datum, typ_dne
> 30.12.1999, 0
> 31.12.1999, 1
> 1.1.2000, 0
> 2.1.2000, 2
> 3.1.2000, 0
> 4.1.2000, 0
> 5.1.2000, 0
>
> A ja potrebuji ziskat tento vysledek.
> 30.12.1999, 0, 0
> 31.12.1999, 1, 0
> 1.1.2000, 1, 8
> 2.1.2000, 2, 6
> 3.1.2000, 0, 8
> 4.1.2000, 0, 8
> 5.1.2000, 1, 6
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
InstalShield CZ
[*] Jaro <jaro(zv)sinea(tec)cz> - 5.1.2000 23:09:48 -0800
Studentovi bych byl ochoten lokalizaci IS
poskytnout bezplatne pro nekomercni ucely.
Ovsem pripadu, kdy nekdo chce sirit pomoci
instalaku nekomercni software asi nebude mnoho.
Poskytovat neco zcela bezplatne nekomu, kdo na tom
pak bude vydelavat penize, se mi nejevi
jako prilis ferove i v pripade, ze se jedna
o studenta. I v tomto pripade by se vsak pro studenta
nasla sleva i z tak dosti nizke ceny lokalizace.
Napis mi k jakemu ucelu to potrebujes a
pripadne e-mail, kam to poslat.
Kontaktuj me na adrese jaro(zv)sinea(tec)cz
Jaro
>
> neco v oblasi freeware by nebylo ? ;-)
> zn. student
>
> > Podivej se na www.sinea(tec)cz
> >Ukon�en� programu (Delphi 3)
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 6.1.2000 08:29:57
Tvoje applikace zrejme neodpovida na zpravu wm_QueryEndSession.
Pripadne ceka nekonecnou dobu na nejaky objekt.
Zkus se podivat jestli nemas nahodou spatne obslouzenou metodu
Form.OnCloseQuery a tam CanClose:=false
Martin
-----P�vodn� zpr�va-----
>muj problemek spociva v tom, ze muj programek bezici v pozadi a
prezentujici
>se tray ikonou nedokazi winduse zavrit, kdyz chci restartovat ci vypnout.
>Nemuzu prijit na to, co je to za udalost nebo co tomu brani. Neni to ani
>Application.Terminate ani Form.Close ci Destroy atd. Kdyz dam Ctrl+Alt+Del,
>ukoncit tak pry program neodpovida. Samozrejme normalne rucne ukoncit
>jde....
GetVersionOfFile nefunguje?
[*] Ing. Zdenek Sraier <sraierzd(zv)atlas(tec)cz> - 6.1.2000 08:47:27
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
Subject: GetVersionOfFile nefunguje?
> Preco mi nefunguje GetVersionOfFile funkcia?
> Chcem zistit internal version number of file.
Tohle mi fungovalo vzdycky (D4P).
Kdysi to nekdo poslal do konference. Dekuji mu.
function GetFileVer(const FileName:string;var V1,V2,V3,V4:word):string;
type
TFVInfo=packed record
pad1,pad2:DWORD;
MSLo,MSHi,LSLo,LSHi:WORD;
pad3:array[1..16] of BYTE;
OS:DWORD;
pad4:array[1..16] of BYTE;
end;
var
VSize,VHandle:DWORD;
VSize2:UINT;
Buffer,Buffer2:Pointer;
FVI:TFVInfo;
PVI:^TFVInfo;
P,P2:array[0..255] of char;
begin
Result:='';
V1:=0;
V2:=0;
V3:=0;
V4:=0;
StrPCopy(P,FileName);
StrPCopy(P2,'\');
VSize:=GetFileVersionInfoSize(P,VHandle);
if VSize>0 then
begin
try
GetMem(Buffer,VSize);
try
if GetFileVersionInfo(P,VHandle,VSize,Buffer)=True then begin
if VerQueryValue(Buffer,P2,Buffer2,VSize2)=True then begin
PVI:=Buffer2;
FVI:=PVI^;
V1:=FVI.MsHi;
V2:=FVI.MsLo;
V3:=FVI.LsHi;
V4:=FVI.LsLo;
Result:=Format('%d.%d.%d.%d',[V1,V2,V3,V4]);
end;
end;
finally
FreeMem(Buffer);
end;
except
Result:='';
end;
end;
end;
S pozdravem Zdenek Sraier
GExperts - kam se ztratili?
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 06.1.2000 08:51:25
Ahoj,
nevite nahodou nekdo co se stalo se strankami GExeprts - addonu pro
Delphi? Na jejich adrese www.gexperts.org uz nefunguji...
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
Spojeni dvou tabulek
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 6.1.2000 08:55:30
Ahoj
pokud jsou v t2 zaznamy ke vsem datumum, tak bych na MS SQL delal takto:
select t2.datum, coalesce(t1.typ_dne, t2.typ_dne), t1.hodiny
from t2 left outer join t1 on (t2.datum = t1.datum)
S pozdravem, Ladislav Nagy
Refresh OnResize
[*] psojka(zv)els.ln.skoda(tec)cz - 6.1.2000 08:57:18
Zdravim.
Vytvorim okno, na kterem je Image a jeden Button.
Image je ukotvenej, tak aby se natahoval pri zmene
velikosti okna. Na Canvas toho Image vykreluji
nejake grafy, jejichz osy se prizpusobuji jeho
velikosti. Image ma rovnez nastaveny meze velikosti
(minimalni). Pri vytvoreni okna ma Image velikost
prave minimalni moznou. Graf se v pohode vykresli.
Pri jakekoli dalsi zmene velikosti okna nastava
problem, ze graf se sice vykresli ve spravne velikosti
ale je z nej videt pouze obdelnik v TopLeft pozici
odpovidajici velikosti prave tem minimalnim mezim.
Procedura GrafPaint obsahuje Img.Invalidate !!!
Zkousel se pouzit v OnResize Img.Refresh; Img.Invalidate;
Img.Repaint; Canvas.Refresh; a to dokonce i najednou
ale je to porad stejny. V tom viditelnem obdelniku
je videt ze se Image zvetsil a jeho obsah taky,
ale neni zcela vykreslen.
procedure TCharakteristika.FormCreate(Sender: TObject);
begin
...
GrafPaint(Img,Charka); // vykresli graf do canvasu Img: TImage
end;
procedure TCharakteristika.FormResize(Sender: TObject);
begin
GrafPaint(Img,Charka); // vykresli graf do canvasu Img: TImage
...
Img.Refresh;
Img.Invalidate;
Img.Repaint;
Canvas.Refresh;
...
end;
Zachrante me please. Do ktere udalosti bych mel
ten Refresh soupnout, aby se to vykreslilo cely?
A nebo je zakopanej cokl nekde jinde?
>>Jackal<<
P.S. Deplhi 4
chyba? - nove barvy v Delphi5
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.1.2000 09:13:11
Toto vypada spis na chybu RxLib, na http://www.rxlib.com
se o tom pise.
> ----------
> Od: Ing. Petr > �vejda[SMTP:lingvista(zv)lingvista(tec)cz]
> D5Prof, Win98
>
> v Delphi5Prof jsem zjistil, ze nejdou nastavit v Object Inspectoru barvy
> clCream, clSkyBlue, ... hlasi to chybu "clCream is not valid integer value".
>
> Kde je chyba? U me nebo v D5?
> Refresh OnResize
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 6.1.2000 09:42:47
Ahoj
co treba zkusit:
procedure TCharakteristika.FormResize(Sender: TObject);
begin
// proved resize bitmapy na kterou se kresli
Img.Bitmap.Width:=Img.Width;
Img.Bitmap.Height:=Img.height;
GrafPaint(Img,Charka); // vykresli graf do canvasu Img: TImage
...
// Img.Refresh;
// snad by mohlo stacit pouze toto pro prekresleni image
Img.Invalidate;
// Img.Repaint;
Canvas.Refresh;
...
end;
Z.Fryz
-----P�vodn� zpr�va-----
Od: psojka(zv)els.ln.skoda(tec)cz
Odesl�no: 06.01.2000 08:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Refresh OnResize
Zdravim.
Vytvorim okno, na kterem je Image a jeden Button.
Image je ukotvenej, tak aby se natahoval pri zmene
velikosti okna. Na Canvas toho Image vykreluji
nejake grafy, jejichz osy se prizpusobuji jeho
velikosti. Image ma rovnez nastaveny meze velikosti
(minimalni). Pri vytvoreni okna ma Image velikost
prave minimalni moznou. Graf se v pohode vykresli.
Pri jakekoli dalsi zmene velikosti okna nastava
problem, ze graf se sice vykresli ve spravne velikosti
ale je z nej videt pouze obdelnik v TopLeft pozici
odpovidajici velikosti prave tem minimalnim mezim.
Procedura GrafPaint obsahuje Img.Invalidate !!!
Zkousel se pouzit v OnResize Img.Refresh; Img.Invalidate;
Img.Repaint; Canvas.Refresh; a to dokonce i najednou
ale je to porad stejny. V tom viditelnem obdelniku
je videt ze se Image zvetsil a jeho obsah taky,
ale neni zcela vykreslen.
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
GExperts - kam se ztratili?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.1.2000 09:46:49
Ahoj,
stranky normalne funguji, stahnul jsem si experta pro D5Pro.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Cibulka Karel [SMTP:K.Cibulka(zv)sh.cvut(tec)cz]
> Odesl�no: 6. ledna 2000 8:51
> Komu: Delphi - maillist
> P�edm�t: GExperts - kam se ztratili?
>
> Ahoj,
>
> nevite nahodou nekdo co se stalo se strankami GExeprts - addonu pro
> Delphi? Na jejich adrese http://www.gexperts.org uz nefunguji...
>
> K.
>
> --
> <TT>
> /* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
> /* KCibulka(zv)seznam(tec)cz */
> /* OnLine: If you have ICQ my ICQ# is 4111110. */
> </TT>
> Export funkce z EXE a jeji pouziti
[*] Mitko Mit�v <mitev(zv)foresta(tec)cz> - 6.1.2000 09:57:51
Ahoj
spousteni exe jako samostaneho programu a zaroven pouzivani jednotlivych
funkci z jinych programu dosahnes lepe nez pouzitim exportu funkci
naprogramovanim COM rozhrani bud na bazi OLE automation serveru nebo jako
OLE document serveru. Podobne jsou udelany Excel nebo Word.
Napr.
naprogramujes rozhrani IEditIcon, ktere bude mit ProgID Icon.Edit potom
ve svem externim programu zavolas:
var
EditIcon : Variant;
begin
EditIcon := CreateOleObject('Icon.Edit');
{ nyni zavolas svoji funkci pro dialog s editaci}
EditIcon.MujDialog;
atd.
Muzes samozrejme s rozhrani ziskavat jakkekoliv hodnoty, ktere dialog
nastavil.
O vytvareni rozhrani COM a Ole se doctes v temer kazde knizce o Delphi.
S pozdravem
Mitko Mitev, FORESTA SG a.s.
www.foresta(tec)cz
mitev(zv)foresta(tec)cz
private: mitev(zv)atlas(tec)cz
-----P�vodn� zpr�va-----
Od: Fryz, Zdenek <fryz(zv)dcb(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. ledna 2000 9:32
P�edm�t: RE: Export funkce z EXE a jeji pouziti
>P.Vones wrote:
>>Tak me napada, proc vlastne nepouzijes DLL a snazis se importovat funkce z
>EXE ?
>
>EXE je editor ikon a ja mam takovou predstavu,
>ze by se dal spustit nejen samostatne, ale taky
>jako dialog (prave volanim exportovane funkce)
>z jineho programu. Ten dialog by byl ve volajicim
>programu modalnim, takze by se zabranilo vsem
>zmenam az do skonceni editace ikony...
>
>Zdenek Fryz
>
>
>
>__________________________________________________________________
>Tato komunikace je urcena vyhradne pro adresata a je duverna.
>This communication is intended solely for the addressee and is
confidential.
>
>Setri DLL pamet nebo ne?
[*] Tomas Kouba <tomas(zv)neo(tec)cz> - 6.1.2000 10:04:20
Zdravim a preji pekny den,
me by to take zajimalo a musim priznat, ze jsem asi tupy, ale nepochopil
jsem to. Setri tedy DLL pamet nebo ne?
------------------------------
Tomas Kouba
mailto:tomas(zv)neo(tec)cz
> > Za starych casu Win 3.1 platilo, ze kdy jsem v programu
> pouzil DLL, vice
> > instanci stejneho EXE mohlo sdilet jednu instanci DLL.
> Tudiz, kdyz byl
> > temer cely program v DLL, dalsi instance nezabiraly o moc
> vice pameti.
> >
> > Ted jsem se ale docetl v Delphi Prirucka vyvojare toto: ve
> Win32 jsou
> > DLL zavadeny do separatniho pametoveho prostoru
> specifickeho pro kazdy
> > proces. Znamena to tedy, ze kdyz 3 instance procesu pouziji
> stejnou DLL,
> > pak je tato DLL zavedena 3x, pokazde do jineho pametoveho prostoru a
> > zabira tudiz 3x vice pameti? To se mi nechce verit. To by
> byl kernel.exe
> > zavedeny 10x?
>
> Logicky je kazde DLL zavedene do separatneho pamatoveho priestoru, ale
> VYHRADIT pamat LOGICKY a FYZICKY je v systemoch postavenych
> na WIN32 velky
> rozdiel.
> WIN32 pristupuje k DLL ako k PAMATOVO MAPOVANEMU suboru
> (system dokonca
> nenacitava DLL do pamati cele, ale roznymi strategiami vhodne
> nastrankovava
> len potrebne casti ...).
> V skutocnosti sa teda FYZICKY vyhradi priestor len pre
> GLOBALNE struktury,
> kod je zdielany, lokalne struktury sa vytvaraju za behu
> programu na HEAPE
> DLLka samozrejme.
>
> Doporucujem precitat nejaku odbornejsiu literaturu ako je
> Delphi Prirucka.
> Ak som nieco vysvetlil nepresne, prepacte, nebol to zamer...
>
> Jano.
>Vytvorenie okna s upozornenim.
[*] Tomas Kouba <tomas(zv)neo(tec)cz> - 6.1.2000 10:05:16
Zdravim,
pripojuji se k dotazu. To by me take zajimalo...
------------------------------
Tomas Kouba
mailto:tomas(zv)neo(tec)cz
> Chcel by som vytvorit okno s upozornenim. Moja predstava je z
> FoxPro ako
> prikaz "wait window 'Nastala chyba cislo 4541' nowait".
> Je uzke okno v pravom hornom rohu, ktore sa zobrazi pri
> zavolani a vrati
> focus do okna z ktoreho je volany, ale necaka na reakciu
> uzivatela, a zmizne
> ak uzivatel stlaci klaves alebo tlacitko mysi, ale jeho
> reakcia je bude
> podchytena v okne z ktoreho bolo zavolane (aby nebolo nutne
> stlacit nejaky
> klaves na odstranenie okna a pokracovanie v praci).
>
> Thank you very much.
>
> Best regards.
>
> Roland Tur�an
> RoTurSoft
> Pal�rikova 10/20
> 934 01 Levice
> Slovakia
>
> tel: ++421-905-487 908
>
>
>
>Vytvorenie okna s upozornenim.
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.1.2000 10:43:18
Ahoj
na http://www.torry.ru jsem pred casem nekde v sekci VCL videl nejaky
custommessagebox, ktery ukazal informace a po chvilce zmizel, tj. necekal na
stisk klavesy.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Tomas Kouba [SMTP:tomas(zv)neo(tec)cz]
> Odesl�no: 6. ledna 2000 10:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Vytvorenie okna s upozornenim.
>
> Zdravim,
>
> pripojuji se k dotazu. To by me take zajimalo...
>
> ------------------------------
> Tomas Kouba
> mailto:tomas(zv)neo(tec)cz
>
>
> > Chcel by som vytvorit okno s upozornenim. Moja predstava je z
> > FoxPro ako
> > prikaz "wait window 'Nastala chyba cislo 4541' nowait".
> > Je uzke okno v pravom hornom rohu, ktore sa zobrazi pri
> > zavolani a vrati
> > focus do okna z ktoreho je volany, ale necaka na reakciu
> > uzivatela, a zmizne
> > ak uzivatel stlaci klaves alebo tlacitko mysi, ale jeho
> > reakcia je bude
> > podchytena v okne z ktoreho bolo zavolane (aby nebolo nutne
> > stlacit nejaky
> > klaves na odstranenie okna a pokracovanie v praci).
> >
> > Thank you very much.
> >
> > Best regards.
> >
> > Roland Tur�an
> > RoTurSoft
> > Pal�rikova 10/20
> > 934 01 Levice
> > Slovakia
> >
> > tel: ++421-905-487 908
> >
> >
> >
> >
> >Jak obnovit smazane soubory?
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 10:47:57
Obrat sa so svojou ziadostou na www.akrylon.sk akrylon(zv)comix.sk
Hi.Roland
------------------------------------------------------------------------
----- Original Message -----
From: Jirka <jnagy(zv)nh-trans(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, January 05, 2000 8:20 AM
Subject: Re: Jak obnovit smazane soubory?> V NU je na to utilita (ted z hlavy nevim, jak se jmenuje), ale problem
> muze byt, pokud mas FAT32. V tom pripade bych doporucil na nejaky jiny
> pocitac nainstalovat NU pro Windows s podporou FAT32 a dat tam ten
> tvuj disk jako druhy a tam to opravit.
> Ja jsem mel pocitac zapeceteny z Autocontu, tak jsem jim to privezl a
> oni mi to vcelku k spokojenosti udelali (za nejakych 1000 Kc, ale tech
> souboru bylo celkem pozehnane, nekolik stovek :-))
>
> Jirka
> ----- P�vodn� zpr�va -----
> Od: Pavel Junek <junek(zv)hrk.pvtnet(tec)cz>
> Komu: 'Delphi konference' <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 5. ledna 2000 8:05
> P�edm�t: OT: Jak obnovit smazane soubory?
>
> > Predem se omlouvam za OT, ale "Ja hlupak. Ja hlava derava." jsem si
> vcera
> > vymazal nejake zdrojaky a ted bych je moc potreboval.
> >
> > Prosim o radu - potreboval bych typ na program, ktery umi obnovit
> smazane
> > soubory. (Neumi to nektera utilita z NU?)
> >
> > V kosi to samozrejme neni, protoze ty ... W95 pouziji pro kos
> procentualni
> > cast volneho mista disku a pokud se tato cast zaplni tak to mazou
> rovnou a v
> > kosi nechaji starsi soubory. Grrrr.
> >
> > S diskem nebylo jinak manipulovano, nic se tam nenahravalo. Mazano
> bylo z
> > W95.
> >
> > Dekuji za pomoc.
> >
> > Pavel
> >
>
>Jak delat Free na sebe?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.1.2000 11:18:11
Ahoj,
nevite prosim nekdo nahodou, jakym zpusobem ma komponenta
spravne volat Free na sebe? (spravne znamena, ze nevznikne
vyjimka chyby pristupu). Konkretne:
Na formu mam PageControl. V kodu vytvarim jednotlive TabSheet
jiz naplnene nejakymi komponentami; pro zjednoduseni
predpokladejme, ze na kazdem TabSheetu bude jeden button. A ja
bych chtel, aby po kliknuti na tento button se TabSheet sam
odstranil z pameti. Stavajici kod mam takovyto:
TTabSheetKomplet = class(TTabSheet)
BitBtn1: TBitBtn;
procedure BitBtnClick(Sender: TObject);
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
end;
----------------------------------------------------------------------------------------------
constructor TTabSheetKomplet.Create(AOwner: TComponent);
begin
inherited;
PageControl := AOwner as TPageControl;
BitBtn1 := TBitBtn.Create(Self);
BitBtn1.Parent := Self; //nebo nejaky panel apod.
BitBtn1.Caption := 'Zavrit';
BitBtn1.NumGlyphs := 2;
try
BitBtn1.Glyph.LoadFromFile(ExtractFilePath(ParamStr(0)) +
'Close.bmp');
except
end;
BitBtn1.Left := 300;
BitBtn1.Top := 8;
BitBtn1.Width := 210;
BitBtn1.OnClick := BitBtnClick;
end;
destructor TTabSheetKomplet.Destroy;
begin
BitBtn1.Free;
inherited;
end;
procedure TTabSheetKomplet.BitBtnClick(Sender: TObject);
begin
Free; <----- no a to je prave problem.
end;
Samotne Free je v poradku, zavola se destruktor a v poradku se
provede. Jenze tim se se zrusi i ten BitBtn a procedura se neni
schopna dokoncit - na slove end vznika vyjimka.
Je mi jasne, ze zakonite vzniknout musi. Otazka zni: jak jinak
na stisknuti toho tlacitka ten TTabSheet uvolnit z pameti? Neco ve
stylu Release jsem nenasel. Jak se to tedy ma spravne delat?
Dekuju predem.
David Lebeda
lebeda(zv)comarr(tec)cz
Refresh OnResize
[*] psojka(zv)els.ln.skoda(tec)cz - 6.1.2000 11:32:31
> Ahoj
>
>co treba zkusit:
>
> // proved resize bitmapy na kterou se kresli
> Img.Bitmap.Width:=Img.Width;
> Img.Bitmap.Height:=Img.height;
>
> Z.Fryz
Pomohlo to, diky za nakopnuti.
Ze mi to nenapdalo hned. %-)
>>Jackal<<
Vytvorenie okna s upozornenim.
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 6.1.2000 12:08:09
> -----P�vodn� zpr�va-----
> Od: Roland Tur�an (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
> Odesl�no: 5. ledna 2000 23:06
> Komu: Delphi CZ konferencia
> P�edm�t: Vytvorenie okna s upozornenim.
>
>
> Zdravim vsetkych !
>
> Chcel by som vytvorit okno s upozornenim. Moja predstava je z
> FoxPro ako
> prikaz "wait window 'Nastala chyba cislo 4541' nowait".
> Je uzke okno v pravom hornom rohu, ktore sa zobrazi pri
> zavolani a vrati
> focus do okna z ktoreho je volany, ale necaka na reakciu
> uzivatela, a zmizne
> ak uzivatel stlaci klaves alebo tlacitko mysi, ale jeho
> reakcia je bude
> podchytena v okne z ktoreho bolo zavolane (aby nebolo nutne
> stlacit nejaky
> klaves na odstranenie okna a pokracovanie v praci).
>
Nechapu, jaky je problem.
Predat focus jinemu oknu po otevreni okna zpravy je jednoduche.
Dokonce by to snad melo jit primo z funkce, ktera zapravu otevrela,
aby sama svemu oknu vratila focus.
Na udalostech pro obsluhu klaves v okne, ktere vyvolalo zpravu
a ma tudiz jeji referenci, jde zavrit okno zpravy taky jednoduse.
Co je predmetem dotazu?
Jura
animacia
[*] Michal Hlav�� - 6.1.2000 12:19:00
Zdravim,
mam jednu velmi zaujimavu otazku. Mam StringGrid. V kazdej cell je jedno
pismenko vycentrovane na stred. Ja by som potreboval toto pismenko rotovat
okolo nejakej osi. Samozrejme to rotovanie je uz cista matika, ale neviem
ako by som mohol dostat z fontu to pismeno tak, aby ta rotacia bola mozna.
Neviem, ci to treba previest na bitmapu a potom to rotovat, alebo nieco ine.
Dakujem za hocijake nakopnutie, Hlavki
Vytvorenie okna s upozornenim.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.1.2000 12:48:49
Co treba to okno vytvorit jako fsStayOnTop,
udelat jeho Show (nikoli showmodal) a tim
by mel focus zustat puvodnimu oknu, ze ktereho
se ten Show vyvolal (tim i dalsi klavesa pujde
to tohoto okna; pripadne se do nej prepnout rucne)
a v onKeypress (rovnez toho puvodniho okna)
zavrit to druhe...
Dobra.
> > -----P> �vodn� zpr�va-----
> > Od: Tomas Kouba [SMTP:tomas(zv)neo(tec)cz]
> > Odesl�no: 6. ledna 2000 10:05
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Vytvorenie okna s upozornenim.
> >
> > Zdravim,
> >
> > pripojuji se k dotazu. To by me take zajimalo...
> >
> > ------------------------------
> > Tomas Kouba
> > mailto:tomas(zv)neo(tec)cz
> >
> >
> > > Chcel by som vytvorit okno s upozornenim. Moja predstava je z
> > > FoxPro ako
> > > prikaz "wait window 'Nastala chyba cislo 4541' nowait".
> > > Je uzke okno v pravom hornom rohu, ktore sa zobrazi pri
> > > zavolani a vrati
> > > focus do okna z ktoreho je volany, ale necaka na reakciu
> > > uzivatela, a zmizne
> > > ak uzivatel stlaci klaves alebo tlacitko mysi, ale jeho
> > > reakcia je bude
> > > podchytena v okne z ktoreho bolo zavolane (aby nebolo nutne
> > > stlacit nejaky
> > > klaves na odstranenie okna a pokracovanie v praci).
> > >
> > > Thank you very much.
> > >
> > > Best regards.
> > >
> > > Roland Tur�an
> > > RoTurSoft
> > > Pal�rikova 10/20
> > > 934 01 Levice
> > > Slovakia
> > >
> > > tel: ++421-905-487 908
> > >
> > >
> > >
> > >
> > >
> Prostredi D5 a prekreslovani
[*] V�t�zslav Vicherek <kvasar(zv)kvasar(tec)cz> - 6.1.2000 12:51:26
Ahojte,
mam takovy problem. Spatne se mi prekresluji okna v prostredi D5prof. Object inspector a navrh formulare jsou temer nepouzitelne. Ostatni aplikace jsou ok, ale v delphi zustavaji na obrazovce viset mrtve(neprekreslene) okna.
Je to BUG D5?
Jsem sam co ma takove problemy?
Honza Fiala
Outlook
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 6.1.2000 12:54:57
Ahoj
ja vim, nesouvisi to moc s Delphi, ale nevite nekdo jak napsat nejaky
script - makro v Outlooku aby mi oznacilo dorucenou zpravu ihned jako
prectenou ?
predem dik
Jak delat Free na sebe?
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 6.1.2000 12:55:50
a co si nastavit zrusxy := true; (nebo pouzit tag) a pak to v
application.onidle zrusit
M.Jak delat Free na sebe?
[*] psojka(zv)els.ln.skoda(tec)cz - 6.1.2000 13:13:55
> Ahoj,
>
> nevite prosim nekdo nahodou, jakym zpusobem ma komponenta
> spravne volat Free na sebe? (spravne znamena, ze nevznikne
> vyjimka chyby pristupu). Konkretne:
Domnivam se ze v destruktoru by se nemelo volat
Free visualnich objektu kteri maji nastaveneho Parenta,
ktery se stara o jejich uvolneni automaticky.
Pri uvolneni pak dochazi k tomu, ze se pri volani
inherited snazi uvolnit kontrolovany objekt znovu
i kdyz uz tam neni.
Jeste pred uvolnenim vlastnika totiz dochazi automaticky
k uvolneni vsech objektu, tj. volani jejich Free, ktere
ma ve svem seznamu Controls[].
Tzn. ze Destroy bude vypadat nasledovne:
destructor TTabSheetKomplet.Destroy;
begin
// BitBtn1.Free;
inherited;
end;
A akcni cast zustane stejna.
procedure TTabSheetKomplet.BitBtnClick(Sender: TObject);
begin
Free;
end;
>>Jackal<<
Rotace fontu (was:animacia)
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 6.1.2000 13:16:37
No, ono v podstate o nic nejde. Mozna by ti pomohla mala
komponentka Tangledlabel, najdes ji v kuchyni.
O rotovani fontu se zminuje i Xavier (??? cosi) Pruvodce
vyvojare. V principu jde je o vytvoreni fontu a nastaveni, inu
zde mala ukazka:
lf:tlogfont.
with LF do begin
lfWidth:=0;
lfOrientation:=0;
lfWeight:=fw_dontcare;
lfCharSet:=Oem_Charset;
lfOutPrecision:=out_Default_Precis;
end;
...
...
...
with Canvas do try
LF.lfEscapement:=Angle*10;
LF.lfHeight:=Self.Font.Height;
LF.lfItalic:=byte(Self.Font.Style+[fsItalic]=Self.Font.Style);
LF.lfUnderline:=byte(Self.Font.Style+[fsUnderline]=Self.Font.Style);
LF.lfStrikeOut:=byte(Self.Font.Style+[fsStrikeOut]=Self.Font.Style);
if (Self.Font.Style+[fsBold]=Self.Font.Style) then
LF.lfWeight:=700;
S:=Self.Font.Name;
Move(s[1],LF.lfFacename,Length(Self.Font.Name));
Font.Handle:=CreateFontIndirect(LF);
if not Transparent then begin
Brush.Color := Self.Color;
Brush.Style := bsSolid;
FillRect(ClientRect);
end;
Brush.Style:=bsClear;
Point:=GetCoord(360,270-Angle,TextWidth(Caption) div
2,0{TextHeight(Caption) div 2},
(Width div 2),(Height div 2));
TextOut(Point.X,Point.Y,Caption);
finally
DeleteObject(Font.Handle);
Martin Nedopil
nedopil(zv)geocities.com
http://kuchyn.delphi(tec)cz (kuchyn(zv)delphi(tec)cz)
-----P�vodn� zpr�va-----
>mam jednu velmi zaujimavu otazku. Mam StringGrid. V kazdej cell je jedno
>pismenko vycentrovane na stred. Ja by som potreboval toto pismenko rotovat
>okolo nejakej osi. Samozrejme to rotovanie je uz cista matika, ale neviem
>ako by som mohol dostat z fontu to pismeno tak, aby ta rotacia bola mozna.
>Neviem, ci to treba previest na bitmapu a potom to rotovat, alebo nieco
ine.
>
>Dakujem za hocijake nakopnutie, Hlavki
Trigger problem
[*] istenp2.epr(zv)mail.cez(tec)cz - 6.1.2000 13:21:28
Zdravim.
Vim, ze tohle patri spis do konference o databazich, ale jsem si jist,
ze mnozi z Vas se s timto problemem jiz setkali.
V C/S datab�z�ch jsem nov�
ek a teprve se rozkoukavam.
Problem:
Vytvorim nize uvedenou strukturu a pri mazani zaznamu v nadrizene tabulce
(kaskadni mazani podrizenych zaznamu) zacne trigger stavkovat, ze nemuze
updatovat nadrizenou tabulku. Mohl by mi nekdo poradit, zda se to da nejak
"ciste" obejit, nebo mi zbyva jen tu ref. integritu udelat rucne
v triggerech nebo v nejhorsim zajistit mazani podrizenych zaznamu
na aplikacni urovni ?
Pro zajimavost jedna se o ORACLE8.
Petr Istenik
istenp2.epr(zv)mail.cez(tec)cz
CREATE TABLE NADRIZENA(
CISLO NUMBER NOT NULL,
SUMA NUMBER DEFAULT 0
CONSTRAINT PRIMARY KEY (CISLO),
) ;
CREATE TABLE PODRIZENA(
ID_PODRIZENA NUMBER NOT NULL,
CISLO NUMBER NOT NULL,
KC NUMBER DEFAULT 0 NOT NULL,
CONSTRAINT PRIMARY KEY (ID_PODRIZENA),
CONSTRAINT FOREIGN KEY(CISLO) REFERENCES NADRIZENA(CISLO) ON DELETE
CASCADE;
) ;
CREATE OR REPLACE TRIGGER SUMACE
BEFORE DELETE
ON PODRIZENA
FOR EACH ROW
BEGIN
UPDATE NADRIZENA
SET SUMA = SUMA - :OLD.KC
WHERE CISLO = :OLD.CISLO;
END;Outlook
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 6.1.2000 13:43:52
> -----P�vodn� zpr�va-----
> Od: Milos Sula [mailto:crkstrobe(zv)geocities.com]
> Odesl�no: 6. ledna 2000 12:55
> Komu: delphi konference
> P�edm�t: Outlook
>
>
> Ahoj
> ja vim, nesouvisi to moc s Delphi, ale nevite nekdo jak napsat nejaky
> script - makro v Outlooku aby mi oznacilo dorucenou zpravu ihned jako
> prectenou ?
> predem dik
>
To se dela nastavenim pravidla v menu / Nastroje / Pruvodce Pravidly
Jura
Vytvorenie okna s upozornenim.
[*] Honza Jochman <Jan.Jochman(zv)ais(tec)cz> - 6.1.2000 13:47:39
> Nechapu, jaky je problem.
> Predat focus jinemu oknu po otevreni okna zpravy je jednoduche.
> Dokonce by to snad melo jit primo z funkce, ktera zapravu otevrela,
> aby sama svemu oknu vratila focus.
> Na udalostech pro obsluhu klaves v okne, ktere vyvolalo zpravu
> a ma tudiz jeji referenci, jde zavrit okno zpravy taky jednoduse.
>
Tak jednoduchy to zas nebude. Samozrejme by to takhle udelat slo, ale pri
predstave, ze bych tuto obsluhu musel napsat pro vsechny komponenty formu se
mi dela nevolno.
Myslim, ze rozumnejsi je napsani hook funkce, ktera to zavreni Wokna zaridi.
S pozdravem
Honza Jochman
Outlook
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 6.1.2000 14:16:15
Mozna by stacilo Nastroje / Moznosti / Cteni / Oznacit = dej si tam nejake
mrnave cislo, asi 1
Pavel
----- Original Message -----
From: Milos Sula <crkstrobe(zv)geocities.com>
To: delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 06, 2000 12:54 PM
Subject: Outlook
> Ahoj
> ja vim, nesouvisi to moc s Delphi, ale nevite nekdo jak napsat nejaky
> script - makro v Outlooku aby mi oznacilo dorucenou zpravu ihned jako
> prectenou ?
> predem dik
>BDE & InstallShield
[*] Petr Vale� - 6.1.2000 14:30:37
Aho vsem,
mam problemy s nastavenim InstallShieldu. V nastaveni BDEcka uvedu
nasledujici parametry >
LANGDRIVER=Paradox Czech 852
ODBC DSN=MedeaBase
po instalaci se zda byt vse OK nicmene LANGDRIVER je sice takto nastaven,
ale jako by to bdeadmin nebral v uvahu nebot tabulky se nezobrazuji s ceskym
obsahem. Pomuze az rucni zasah v bdeadminu a nastaveni "Apply" pak je vse
OK.
Nevite prosim nekdo co s tim ?
Pekne dekuji.
S pozdravem
Petr Vales
Free na sebe - shrnuti
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.1.2000 14:35:40
> > nevite prosim nekdo nahodou, jakym zpusobem ma komponenta
> > spravne volat Free na sebe? (spravne znamena, ze nevznikne
> > vyjimka chyby pristupu). Konkretne:
>
> Domnivam se ze v destruktoru by se nemelo volat
> Free visualnich objektu kteri maji nastaveneho Parenta,
> ktery se stara o jejich uvolneni automaticky.
> Pri uvolneni pak dochazi k tomu, ze se pri volani
> inherited snazi uvolnit kontrolovany objekt znovu
> i kdyz uz tam neni.
> Jeste pred uvolnenim vlastnika totiz dochazi automaticky
> k uvolneni vsech objektu, tj. volani jejich Free, ktere
> ma ve svem seznamu Controls[].
>
> Tzn. ze Destroy bude vypadat nasledovne:
>
> destructor TTabSheetKomplet.Destroy;
> begin
> // BitBtn1.Free;
> inherited;
> end;
>
> A akcni cast zustane stejna.
>
> procedure TTabSheetKomplet.BitBtnClick(Sender: TObject);
> begin
> Free;
> end;
>
> >>Jackal<<
>
Dekuju za pomoc, odstranenim BitBtn1.Free z destruktoru se
problem skutecne vyresil a BitBtn1.Destroy se skutecne provede i
tak, tj. z podnetu ownera (obecne nikoli parenta, nebot, jak jsem
se docetl, parent se tyka pouze umisteni na obrazovce, kdezto
problemy s uvolnovanim pameti resi owner).
A jeste, bez nejake souvislosti s mym dotazem, bych rad
konstatoval, ze v samotnem volani BitBtn1.Free v destruktoru neni
asi problem - v realne aplikaci tam samozrejme nemam jen button,
ale asi 20 komponent, na vsechny jsem volal v destruktoru Free a
nebyly zadne problemy, tj. cela automatika je zrejme udelana
dostatecne inteligentne.
Nicmene se (odted :) ) samozrejme ztotoznuji s puvodni radou,
tj. nechat likvidaci podrizenych komponent na ownerovi a nemichat
se do toho. David Lebeda
lebeda(zv)comarr(tec)cz
Zmena FieldSize
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 6.1.2000 15:18:37
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Sunday, January 02, 2000 11:35 PM
To: Konference Delphi
Subject: Re: Zmena FieldSize
>>From: Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz>
>> nevite nekdo, jak lze elegantne zmenit velikost nejakeho (znakoveho nebo
>> ciselneho) pole v databazi DBF? Je na to prikaz v Local SQL?
>
>Je na to prikaz ALTER TABLE. Druha moznost je pouzitim BDE API funkci, viz
funkce
>DbiDoRestructure. V BDE API helpu mas i priklad: "Example 3: Alter a field
in a
>Paradox or dBASE table"
>
>Petr Vones, amatersky programator
1. ALTER TABLE
ALTER TABLE sice v Local SQL je, ale neni tam ALTER COLUMN, takze pro
zminene ucely (zmena v souboru DBF) to neni mozne reseni.
2. BDE funkce DbiDoRestructure
Ano, dekuji, to je to prave orechove. Pomoci prikladu "Example 3: Alter a
field in a Paradox or dBASE table" je mozne databazi DBF menit.
Pro uplnost dodavam priklad reseni:
procedure ChangeFieldSize(Table: TTable; FieldName: string; FieldSize:
word);
// ChangeField a ChangeRec - viz priklad v BDE32.HLP, fukce
DbiDoRestructure
var Rec: ChangeRec;
begin
if not Table.Exclusive then begin
Table.Active:=false;
Table.Exclusive:=true;
end;
Table.Active:=true;
FillChar(Rec, SizeOf(Rec), 0);
Rec.szNAME:=FieldName; // pozor - musi byt take nastaveno, jinak
ChangeField havaruje
Rec.iLength:=FieldSize;
ChangeField(Table, Table.FindField(FieldName), Rec);
end;
S pozdravem
Pavel Kriz, TDS
Trigger problem
[*] Virag, Ivan <ViragI(zv)logica(tec)com> - 6.1.2000 15:26:42
Zaslany priklad ma drobne syntakticke nedostatky (chybejici nazvy
constraintu, prebytecne carky), ale u me na Oracle 8 funguje to, co tam
bylo, bez problemu.
Ivan Virag
----------
From: istenp2.epr(zv)mail.cez(tec)cz [SMTP:istenp2.epr(zv)mail.cez(tec)cz]
Sent: 6. ledna 2000 13:21
To: delphi-l(zv)fwd(tec)cz
Subject: Trigger problem
Zdravim.
Vim, ze tohle patri spis do konference o databazich, ale jsem si jist,
ze mnozi z Vas se s timto problemem jiz setkali.
V C/S datab�z�ch jsem nov�?<<File: ATT929103.txt>>Trigger problem
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 6.1.2000 15:31:38
Problem je v asi v tomto:
Predpokladam, ze tabulka nadrizena obsahuje sumy za urcite skupiny s kodem
CISLO.
Pokud se smaze suma z nadrizene tabulky a v podrizene existuje nekolik
radku, jejichz soucet tvori sumu v nadrizene tabulce ( v podstate staci jen
jeden ), tak v triggru je zapsano BEFORE DELETE, ale pozor tento BEFORE
plati az pro radky v podrizene tabulce, teda v okamziku kdy jiz v nadizene
neexistuje radek prislusne sumy a tudiz trigger chce updatovat jiz
neexistujici radek !!!
Z cehoz plyne pokud mazu z podrizene tabulky je to OK, ale pri mazani z
nadrizene tabulky musi existovat trigger, ktery docasne zakaze vykonavani
triggru v podrizene tabulce, (mam takovy dojem, ze na to existuje nejaky
prikaz, ale z hlavy to nevim) po odstraneni vsech radku z podrizene tabulky
se obnovi aktivita triggru v podrizene tabulce.
Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www : http://freeweb.coco,cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
istenp2.epr(zv)mail.cez(tec)cz
Odesl�no: 6. ledna 2000 13:21
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Trigger problem
Zdravim.
Vim, ze tohle patri spis do konference o databazich, ale jsem si jist,
ze mnozi z Vas se s timto problemem jiz setkali.
V C/S datab�z�ch jsem nov�?
QuickRep1.Preview - D5 se seknou
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 6.1.2000 15:44:21
D5, FlashFiler 1.54, QR 3.05
Potreboval bych vedet, proc nejde Preview u QuickReportu v design modu
(prave tlacitko a volba Preview) s tabulkami FlashFileru. Seknou se jak
Delphi5, tak i FF server. Da se to nejak nastavit? Vsiml jsem si, ze pokud
poklepu na QuickRep a stisknu tlacitko Preview, vse slape dobre. Zda se, ze
obe moznosti volaji odlisny kod.
Diky
Ing. Petr Svejda
software specialist
Spojeni dvou tabulek
[*] lsd.by(zv)email(tec)cz - 6.1.2000 15:52:04
ahoj jmenuji se david kv�tek,
programuji od 12 ledt dnes je mi 22,
za��n�m se zaj�mat o SQL v delphy, jesli pros�mt� m��e�, po�li mi n�jak�
data
ohledn� programovan� SQL v dephi a n�jakej �vod do delphy, jak se
kompiluje a podobn�,
m�l bych od pond�l� n�co v tomhle programovat v praze a v�bec tomu
nerozum�m ,
ale je to za dobr� prachy,
r�d t� do toho zainteresuju,
zaplat�m ti dob�e , ozvi se okam�it� jak to p�jde.
s pozdravem dave
m�j email je lsd.by(zv)email(tec)cz
ps:spol�ham na tvou pomoc, mi inteligintn� lid� mus�me dr�et p�i sob�
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
User name length
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 16:33:19
Ako zistim aka je max dlzka user name ?
Dakujem.
Best regards.
--------------------
Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
Roland Turcan
RoTurSoft
Palarikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
GetVersionOfFile nefunguje.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 16:33:50
Preco mi nefunguje GetVersionOfFile funkcia?
Chcem zistit internal version number of file.
Dakujem.
Best regards.
--------------------
Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
Roland Turcan
RoTurSoft
Palarikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
ot: HP LJ 4,5,6L (PCL)
[*] Michal Motalik <motalik(zv)cross(tec)cz> - 6.1.2000 15:39:40 -0000
Ahojte,
myslim, ze to je jenom maly off-topic, proto je v predmetu 'ot'.
Nemate nahodou nejake zkusenosti s ovladaci na HP LJ 4,5,6L (PCL) (posledni verze stazena dnes z Internetu). Nainstaloval jsem tento ovladac na pocitac v siti a z jineho, kde mam Delphi a tvorim aplikace, chci tisknout na teto tiskarne. Vzdy, kdyz se ve spustene aplikaci vytvari formular, na kterem je umisteny TPrintDialog, to hodi chybu:
Inicializace knihovny DLL ...\HPBLAF0.DLL selhala. Proces konci nenormalne.
a nejde s tim nic udelat.
Poradi mi, prosim, nekdo?
Win NT 4.0, SP 5, Delphi 4 C/S, HP LJ 5L
Pavel CABAK
cabak(zv)cross(tec)cz
Vytvorenie okna s upozornenim.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 17:50:23
> Nechapu, jaky je problem.
> Predat focus jinemu oknu po otevreni okna zpravy je jednoduche.
> Dokonce by to snad melo jit primo z funkce, ktera zapravu otevrela,
> aby sama svemu oknu vratila focus.
> Na udalostech pro obsluhu klaves v okne, ktere vyvolalo zpravu
> a ma tudiz jeji referenci, jde zavrit okno zpravy taky jednoduse.
>
> Co je predmetem dotazu?
>
> Jura
>
OK ale skus to vyvolat z okna ktore je MDIChild a vtat sa do okna z ktoreho
si ho vyvolal.
Hi. Roland Turcan
Modifikovanie TDBComboBox
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 21:56:54
Chcel by som spojit DBcombobox, tak ze:
Mam field ktory je typu Integer a nech combobox mi vypise ak je
0: Zvolena nula
1: Zvolena jednotka
5: zvolena patka, ...
Ako je to mozne?
Dakujem.
Best regards.
--------------------
Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
Roland Turcan
RoTurSoft
Palarikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
Ukon�en� programu (Delphi 3)
[*] Martin Kucera <mk(zv)paegas.vol(tec)cz> - 6.1.2000 22:29:57
Jo, m�m tam toto:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
Form1.Hide
....
....
end;
proto�e m�m Form1.BorderStyle := bsSingle a ukon�uje se PopupMenu na t�
TrayIcon:
procedure TForm1.CloseAppClick(Sender: TObject);
begin
Application.Terminate;
end;
tak�e kdybych v�d�l, jak odchytit a zpracovat wm_QueryEndSession....
----- Original Message -----
From: Martin Nedopil <nedopil(zv)eskon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 06, 2000 8:29 AM
Subject: Re: Ukon�en� programu (Delphi 3)>
> Tvoje applikace zrejme neodpovida na zpravu wm_QueryEndSession.
> Pripadne ceka nekonecnou dobu na nejaky objekt.
>
> Zkus se podivat jestli nemas nahodou spatne obslouzenou metodu
> Form.OnCloseQuery a tam CanClose:=false
>
> Martin
>
> -----P�vodn� zpr�va-----
>
> >muj problemek spociva v tom, ze muj programek bezici v pozadi a
> prezentujici
> >se tray ikonou nedokazi winduse zavrit, kdyz chci restartovat ci vypnout.
> >Nemuzu prijit na to, co je to za udalost nebo co tomu brani. Neni to ani
> >Application.Terminate ani Form.Close ci Destroy atd. Kdyz dam
Ctrl+Alt+Del,
> >ukoncit tak pry program neodpovida. Samozrejme normalne rucne ukoncit
> >jde....
>
>
>RXMemoryData1.CopyStructure(Table1.DataSource.Data
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 22:36:41
Preco mi nefunguje:
RXMemoryData1.CopyStructure(Table1.DataSource.DataSet);
Dakujem.
Best regards.
--------------------
Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
Roland Turcan
RoTurSoft
Palarikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
Mezery na casove ose
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 6.1.2000 22:37:28
> Mozna stupidni dotaz, ale fakt uz nevim - predem dekuji
> Mam dejme tomu takovou tabulku:
>
> Datum od Datum do
> ************ ***********
> 1.1.1994 31.6.1994
> 1.7.1994 31.12.1994
> 27.11.1994 11.12.1994
> 7.1.1995 18.1.1995
> 11.1.1995 15.1.1995
> 21.1.1995 17.11.1998
> 18.11.1998 1.1.1999
> 5.1.1999 24.12.1999
>
> V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a datumy
> od
> Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim, ze v
> teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
> 2.1.1999 - 4.1.1999
> Ja bych toto potreboval zjistit programove co nejefektivneji a nejrychleji,
> tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
> dulezita.
Ahoj,
tak jsem si to taky zkusil (na Paradoxu):
Toto jsou cisla odkdy je mezera:
Select DatumDo+1 as MezeraOd from datumy
d1
where 0 =
(Select count(*) from datumy d2 where
(d1.datumDo+1 >= d2.datumOD) and
(d1.DatumDo+1 <= d2.datumdo)
)
Toto jsou cisla do kdy je mezera:
Select DatumOD-1 MezeraDo from datumy d1
where 0 =
(Select count(*) from datumy d2 where
(d1.datumOD-1 >= d2.datumOd) and
(d1.DatumOD-1 <= d2.datumDo)
)
Takze jsem dostal dva datasety:
Mezera DO Mezera OD
*************************************
31.12.1993 1.1.1995
6.1.1995 19.1.1995
20.1.1995 2.1.1999
4.1.1999 25.12.1999
*************************************
Je jasn� ze prvn� datum DO a posledni datum
OD by tam nemely byt....
No alespon neco. Ale asi to nebude
nejrychlejsi....(dvakrat prochazet tabulku s
datumy misto jedenkrat)
Petr Motlicek
Orpheus je FreeWare?
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 22:47:51
Orpheus je FreeWare?
Ak ano kde ho zozeniem?
Dakujem.
Best regards.
--------------------
Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
Roland Turcan
RoTurSoft
Palarikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
Obnova DAT
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 6.1.2000 22:58:48
> mam taky problem. Delam datab. aplikaci
(nad paradox. tabulky) a zalohuji
> tam data. Zalohuji je tim ze je nekam nakopiruji. Problem nastava pri
> obnove dat, jelikoz musim vsechny tabulky (spojeni s nimi) uzavrit, abych
> mohl soubory prepsat. Ovsem zpatky potrebuji vsechna spojeni obnovit (mohu
> mit na obrazovce spoustu formularu a ty maji sve komponenty TABLE, ...).
> Nevite jak to udelat, krome toho, ze bych si zjistil, ktera vsechna okna
> jsou otevrena a tam dal TABLE.OPEN na vsechny tabulky ???
Ahoj,
no tak snad vsechny tabulky otevrit v "backup"
adres�ri, a batchem (ci pres dotaz) ladovat do
"atkualniho" adresare, pokud je nemas
samozrejme zamknuty pro zapis. Kdyz by
nekdo editoval, tak je to asi zaznam, ktery asi
nemusis, obnovovat (?)
Ovsem ze s referencni integritou je to potom
nahnute, kdyz ti to padne (snad lze udelat
transakci)
Ale vlastne mne ted napada, ze pokud mas ty
TTable komponenty napojene na jednu
TDatabase, pak klidne udelej neco takoveho:
procedure PDXRestore;
var
ActiveDataSets : TList;
x: integer;
begin
for x:=0 to Database.DataSetCount-1 do
ActiveDataSets.Add(Database.ActiveDataSets[x
]);
Database.Connected := False;
kop�ruju kop�ruju zp�tky;
for x:=0 to ActiveDataSets.Count-1 do
TTable(ActiveDataSets[x]).Open;
end;
Ale stejne si budes muset dat pozor na ruzne
zavislosti typu "lookup" ci "calculated" mezi
tabulkami, pokud se spolehas, ze tabulka je
otevrena, at se ti nevyhodi "Cannot perform this
operation on Closed dataset..."
Petr Motlicek
Orpheus je FreeWare?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.1.2000 22:58:41
Puvodni zprava, kterou napsal RoTurSoft dne 6 Jan 00,:
> Orpheus je FreeWare?
> Ak ano kde ho zozeniem?
Neni to freeware.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
RX Lokalizacia
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 6.1.2000 23:38:51
Stiahol som si slovenske resource file of RX Lib, nakopiroval som ich do
adresara Units, dal som compile na vsetkych balikoch ale pri skusani, nie su
lokalizovane hlasenia (konkretne currencyedit-mimo rozsah), stale mi pise
"value must be between xxx and xxx".
Kde robim chybu, alebo som zabudol.
Dakujem.
Best regards.
--------------------
Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
Roland Turcan
RoTurSoft
Palarikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
AutoAppend from database
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 7.1.2000 01:56:18
Pozna niekto komponentu ktora sa chova ako editbox v internet exploreri a je
naviazany na zdrojovu databazu?
Dakujem.
Best regards.
--------------------
Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
Roland Turcan
RoTurSoft
Palarikova 10/20
934 01 Levice
Slovakia
tel: ++421-905-487 908
Modifikovanie TDBComboBox
[*] Michal Hlav�� - 7.1.2000 02:42:56
Skus TLookUpComboBox v DataControls.
Te noha, Hlavki
-----P�vodn� zpr�va-----
>Chcel by som spojit DBcombobox, tak ze:
>
>Mam field ktory je typu Integer a nech combobox mi vypise ak je
>0: Zvolena nula
>1: Zvolena jednotka
>5: zvolena patka, ...
>
>Ako je to mozne?
>
>Dakujem.
RXMemoryData1.CopyStructure(Table1.DataSource.Data
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 7.1.2000 06:38:50
> Preco mi nefunguje:
>
> RXMemoryData1.CopyStructure(Table1.DataSource.DataSet);
Ahoj,
co je to ta Table1 ?
Petr Motl�cek
OT: Zjisteni IP
[*] Bednar��k Dalibor - 7.1.2000 06:49:52
Omlouv�m se za OT, ale potreboval bych poradit, jak zjistit IP adresu domeny...
treba www.post(tec)cz apod.
Predem moc dekuji
Generator sestav
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 7.1.2000 07:05:22
Ahoj
mame tu takovy problem, pouzivame jeden program, ktery byl vytvoren v Delphi
a pouziva tiskove sestavy (mam takovy pocit od fy Sinea). Problem je s
tiskem na tiskarnach typu HP 4L, kdy prestoze tam je nastaven font Arial tak
se na papire ten vytisknuty text scvrkne (pismenka jsou nekde bliz a nekde
dal od sebe a pismenka s diakritikou to nevytiskne treba vubec). Na
ostatnich tiskarnach to vsak vytiskne v poradku. Zkousel jsem i jine
ovladace a porad nic.RX Lokalizacia
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.1.2000 07:10:15
Ahoj,
myslim si, ze je to problem lokalizace bud v C:\Program
Files\Borland\Delphi2\Source\RTL\SYS\sysutils.rc nebo C:\Program
Files\Borland\Delphi2\Source\VCL\consts.rc ktere patri k Delphi. Pak budes
potrebovat lokalizovat i systemove hlasky. Pokud by ti to pomohlo, mohu ti
poslat const.rc a sysutils.rc prelozene do cestiny a musel by sis je
modifikovat pro D3 (pokud by v nich jeste neco chybelo) nebot jsem to delal
v nouzi pro D2.
Zdravim
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Roland Tur�an (RoTurSoft) [SMTP:rotursoft(zv)nextra.sk]
> Odesl�no: 6. ledna 2000 23:39
> Komu: Delphi CZ konferencia
> P�edm�t: RX Lokalizacia
>
> Stiahol som si slovenske resource file of RX Lib, nakopiroval som ich do
> adresara Units, dal som compile na vsetkych balikoch ale pri skusani, nie
> su
> lokalizovane hlasenia (konkretne currencyedit-mimo rozsah), stale mi pise
> "value must be between xxx and xxx".
>
> Kde robim chybu, alebo som zabudol.
>
>
> Dakujem.
>
> Best regards.
> --------------------
> Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
>
> Roland Turcan
> RoTurSoft
> Palarikova 10/20
> 934 01 Levice
> Slovakia
>
> tel: ++421-905-487 908
D5, ADO, ACCESS pres query
[*] cerny_delphi(zv)post(tec)cz - 7.1.2000 07:35:07
D5, ADO, QUERY
Mate nekdo zkusenosti s praci s databazi ACCESS? Pokud ano, tak bych se r�d zeptal jak se da pripojit pres ADO a pokud mate nekdo zkusenosti s SQL dotazy tak bych se rad zeptal jak vytvorit novou tabulku v teto databazi. Syntaxe SQL by mnela znit \"create table jmeno (test text, ....)\", ale pokazdy kdyz se snazim takto vytvorit databazi tak pise chybove hlasky. Jednou z posledn�ch hlasek je ze tabulka musi byt otevrena exclusivne, ale prozatim nevim jak pres QUERY otevrit databazi exclusivne.
Dik
Jirka
------------------------
Jiri Cerny
Cerny_delphi(zv)post(tec)cz
------------------------
Sledujte zpravodajstvi, TV-program, pocasi, kursy, ...:
*** http://PRESS.CZ
Vytvorenie okna s upozornenim.
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.1.2000 07:46:29
> -----P�vodn� zpr�va-----
> Od: Roland Tur�an (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
> Odesl�no: 6. ledna 2000 17:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Vytvorenie okna s upozornenim.
>
> > Co je predmetem dotazu?
> >
>
> OK ale skus to vyvolat z okna ktore je MDIChild a vtat sa do
> okna z ktoreho
> si ho vyvolal.
>
Aha, to jsou nove informace. :-)
V tom pripade nevim - jestli mas konkretni potize s implementaci,
zkus napsat primo o nich (jestli uz teda nejaka jina odpoved neuspokojila).
Tva otazka byla mozna velmi obecna.
Jura
Carove kody
[*] Bradac Marek <Marek.Bradac(zv)z3.preciosa(tec)cz> - 7.1.2000 08:05:05
Zdravim,
mohl by me prosim nekdo nasmerovat, kde hledat nejakou komponentu na tvorbu
caroveho kodu ? Pripadne nejake vase zkusenosti s timto tematem.
Predem dik
S pozdravem
Marek Bradac
+--------------------------------------------------------------------+
LAN Administrator - Preciosa a.s. - zavod 03
Sklarska 1
463 13 Liberec 24
Czech Republic
Tel : +420485214328, +420603241957
Fax : +420485149076
+-[ mailto:marek.bradac(zv)z3.preciosa(tec)cz ]--[ http://www.preciosa(tec)cz ]-+
GetVersionOfFile nefunguje.
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 7.1.2000 08:14:11
Nazdarek,
jestli chces, tak na to mam napsanou komponentu. Muzes si ji stahnout z
http://www.mujweb(tec)cz/www/miramares/version.htm je to vcetne zdrojaku, tak si
to muzes i prostudovat :-))
Mirek
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 06, 2000 4:33 PM
Subject: GetVersionOfFile nefunguje.> Preco mi nefunguje GetVersionOfFile funkcia?
> Chcem zistit internal version number of file.
>
> Dakujem.
>
> Best regards.
> --------------------
> Pouzivam D3Pro, BDE 5.01, Win98PanEuro, RX Lib, SineaVCL.
>
> Roland Turcan
> RoTurSoft
> Palarikova 10/20
> 934 01 Levice
> Slovakia
>
> tel: ++421-905-487 908
>
>Zjisteni IP
[*] Bobek <bobak(zv)minv.sk> - 7.1.2000 08:21:26
no pokial to nepotrebujes vlozit do nejakej aplikacie tak najjednoduchsi sposob je ping www.post(tec)cz
pomocou command line
----- Original Message -----
From: Bednar��k Dalibor
To: forum
Sent: Friday, January 07, 2000 6:49 AM
Subject: OT: Zjisteni IP
Omlouv�m se za OT, ale potreboval bych poradit, jak zjistit IP adresu domeny...
treba www.post(tec)cz apod.
Predem moc dekuji
Mezery na casove ose
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 7.1.2000 08:24:44
data v tabulce c3:
dod ddo
========== ==========
1994-01-01 1994-06-30
1994-07-01 1994-12-31
1994-11-27 1994-12-11
1995-01-07 1995-01-18
1995-01-11 1995-01-15
1995-01-21 1998-11-17
1998-11-18 1999-01-01
1999-01-05 1999-12-24
Vysledny select je dost hruzny a nevim jak se s tim vyporadaji jine
databaze, ve WATCOM syntaxi vypada takto:
select W.xx+1 as dod,W.dod-1 as ddo
from
(
select
A.*,
(select count(*) from c3 as B where A.dod between B.dod and B.ddo) as II ,
(select max(C.ddo) from c3 as C where C.ddo<=A.dod-1) as xx
from c3 as A
) as W
where
W.II=1
and
W.dod-W.xx>1
a vrati z uvedenych dat vysledek:
dod ddo
========== ==========
1995-01-01 1995-01-06
1995-01-19 1995-01-20
1999-01-02 1999-01-04
pokud by dat bylo v tabulce hodne, musely by byt indexy jak na sloupec dod,
tak na ddo
Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www : http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Petr.Motlicek(zv)bcbrno(tec)cz
Odesl�no: 6. ledna 2000 22:37
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Mezery na casove ose
> Mozna stupidni dotaz, ale fakt uz nevim - predem dekuji
> Mam dejme tomu takovou tabulku:
>
> Datum od Datum do
> ************ ***********
> 1.1.1994 31.6.1994
> 1.7.1994 31.12.1994
> 27.11.1994 11.12.1994
> 7.1.1995 18.1.1995
> 11.1.1995 15.1.1995
> 21.1.1995 17.11.1998
> 18.11.1998 1.1.1999
> 5.1.1999 24.12.1999
>
> V teto tabulce bych ted potreboval zjistit "mezery" mezi datumy do a
datumy
> od
> Jestlize si z teto tabulky vyrobym casovou osu, tak jednoduse zjistim, ze
v
> teto tabulce jsou mezery: 1.1.1995 - 6.1.1995, 19.1.1995 - 20.1.1995 a
> 2.1.1999 - 4.1.1999
> Ja bych toto potreboval zjistit programove co nejefektivneji a
nejrychleji,
> tabulka muze ve skutecnosti byt dosti velka a rychlost je tedy velice
> dulezita.
Ahoj,
tak jsem si to taky zkusil (na Paradoxu):
Toto jsou cisla odkdy je mezera:
Select DatumDo+1 as MezeraOd from datumy
d1
where 0 =
(Select count(*) from datumy d2 where
(d1.datumDo+1 >= d2.datumOD) and
(d1.DatumDo+1 <= d2.datumdo)
)
Toto jsou cisla do kdy je mezera:
Select DatumOD-1 MezeraDo from datumy d1
where 0 =
(Select count(*) from datumy d2 where
(d1.datumOD-1 >= d2.datumOd) and
(d1.DatumOD-1 <= d2.datumDo)
)
Takze jsem dostal dva datasety:
Mezera DO Mezera OD
*************************************
31.12.1993 1.1.1995
6.1.1995 19.1.1995
20.1.1995 2.1.1999
4.1.1999 25.12.1999
*************************************
Je jasn� ze prvn� datum DO a posledni datum
OD by tam nemely byt....
No alespon neco. Ale asi to nebude
nejrychlejsi....(dvakrat prochazet tabulku s
datumy misto jedenkrat)
Petr Motlicek
Mezery na casove ose
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 7.1.2000 08:34:26
Ahoj lidicky,
dekuji mnohokrat vsem za odpovedi, ale kolegyne vymyslela reseni, ktere je
docela zajimave jednoduchy, jen na to prijit, ze :-))). Pro ty, ktere to
zajima, bych si dovolil....
procedure Zjisti_Mezery;
var SG1, SG2: ARRAY[0..20,0..1] OF TDate;
SG3: ARRAY[0..20,0..3] OF TDate;
i, j, k: integer;
zac, kon, kon2: TDate;
begin
sqlXXX.First;
i:= 0; j:= 0; k:= 0;
WHILE NOT DM.sqlXXX.Eof DO
begin
SG1[i,0]:= StrToDate(DM.sqlXXX.FieldByName('d_od').AsString);
SG1[i,1]:= StrToDate(DM.sqlXXX.FieldByName('d_do').AsString);
Inc(i);
DM.sqlXXX.Next;
end; {WHILE NOT}
SG2[0,0]:= SG1[0,0];
SG2[0,1]:= SG1[0,1];
FOR j:= 1 TO i DO
begin
Zac:= SG1[j,0];
Kon:= SG1[j,1];
Kon2:= SG2[k,1];
IF Zac > Kon2 THEN
begin
Inc(k);
SG2[k,0]:= SG1[j,0];
SG2[k,1]:= SG1[j,1];
end {IF "Zac > Kon2"}
ELSE IF Kon > Kon2 THEN SG2[k,1]:= SG1[j,1];
end; {FOR}
// Mezery
FOR j:= 0 TO k-1 DO
begin
SG3[j,2]:= SG2[j,1] + 1;
SG3[j,3]:= SG2[j+1,0] - 1;
SG3[j,0]:= SG3[j,2];
SG3[j,1]:= SG3[j,3];
end; {FOR}
FOR j:= 0 TO k - 1 DO
ShowMessage(DateToStr(SG3[j,0])+'...'+DateToStr(SG3[j,1])+' je mezera !');
end; {Procedure "Zjisti_Mezery"}
Hm ....
Presto jeste jednou vsem dekuji, s pozdravem
Tom
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
Zjisteni IP
[*] Z�vada Ji�� <zavada(zv)atcomp(tec)cz> - 7.1.2000 08:37:37
Zkus v prikazovem radku prikaz:
ping www.post(tec)cz <http://www.post(tec)cz>
Pokud to potrebujes z programu v Delphi, jsou na poskytnuti funkcnosti
prikazu ping k dispozici komponenty, napr v ICS od F.Piette.
Jiri Zavada
zavada(zv)atcomp(tec)cz <mailto:zavada(zv)atcomp(tec)cz>
-----P�vodn� zpr�va-----
Od: Bednar��k Dalibor [mailto:d.bednarcik(zv)vpfm(tec)cz]
Odesl�no: 7. ledna 2000 6:50
Komu: forum
P�edm�t: OT: Zjisteni IP
Omlouv�m se za OT, ale potreboval bych poradit, jak zjistit IP adresu
domeny...
treba www.post(tec)cz <http://www.post(tec)cz> apod.
Predem moc dekuji
Trigger problem[2]
[*] istenp2.epr(zv)mail.cez(tec)cz - 7.1.2000 08:59:44
[P��loha v souboru: priklad2.sql]
[P��loha v souboru: priklad1.sql]
Moc se omlouvam za nepresnosti, psal jsem to z hlav
y...
Pokusim se svuj dotaz blize upresnit. Posilam dva p
riklady, ktere popisuji
presne muj problem...
(cimz se
moc omlouvam vsem v konferenci za ty prilohy)
Prvni pr
iklad je s kaskadnim mazanim podrizenych zaznamu. Hlasi c
hybu:
ORA-04091: tabulka NADRIZENA je m�n�na, trigger/fu
nkce ji nemus� vid�t
ORA-06512: na , ��dka 2
ORA-04088:
chyba b�hem prov�d�n� triggeru 'SUM_DEL'
V druhem pri
kladu zajistuji mazani podrizenych zaznamu v BEFORE DELET
E
triggeru a stejne hlasi chybu:
ORA-04094: tabulka POD
RIZENA je omezen�m, trigger ji nem��e modifikovat
ORA-06
512: na , ��dka 2
ORA-04088: chyba b�hem prov�d�n� trigg
eru 'CAS_DEL'
Vypinat a zapinat trigger, to asi taky n
ebude to prave orechove, protoze by
uzivatel musel toto
pravo dostat
do vinku, coz je podle me relativne nebezpe
cne.
Zbude mi tedy neco jineho, nez zajistit ref. inte
gritu rucne triggery, nebo
mazani osetrit na aplikacni u
rovni ???
Poradi mi nekdo prosim ?????
diky.
Petr Is
tenik
istenp2.epr(zv)mail.cez(tec)cz
(See attached file: p
riklad1.sql)(See attached file: priklad2.sql)
Zjisteni IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.1.2000 09:07:14
>Omlouv�m se za OT, ale potreboval bych poradit, jak zjistit IP adresu domeny...
>treba www.post(tec)cz apod.
WinSock k tomu poskytuje dostatecne nastroje - GetHostByName()
Zdravi
D. Toman
Carove kody
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 7.1.2000 09:31:52
Na DSP i Torry urcite nejaka jsou. Komercni jsou taky napriklad od
TurboPower
SysTools. Zalezi k cemu to potrebujes. Jestli pro svoji potrebu (t.j.
nevyzadujes Ean)
tak by jsi mohl vystacit pouze s fontem, ktery tiskne carovy kod.Tusim, ze
je to Code39.
Pavel M.
----- Original Message -----
From: Bradac Marek <Marek.Bradac(zv)z3.preciosa(tec)cz>
> mohl by me prosim nekdo nasmerovat, kde hledat nejakou komponentu na
tvorbu
> caroveho kodu ? Pripadne nejake vase zkusenosti s timto tematem.
Ukon�en� programu (Delphi 3)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.1.2000 09:31:57
Ahoj a proc tam mas Action:=caNone ?
Vzdyt to bude kvuli tomu. Navic,
to Hide tam taky byt nemusi, ne ?
> ----------
> Jo, m> �m tam toto:
>
> procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> Action := caNone;
> Form1.Hide
> end;
>
> tak�e kdybych v�d�l, jak odchytit a zpracovat wm_QueryEndSession....
>
*** v public casti deklarece formu si uved neco takoveho
jako
procedure WMQueryEnd(wMsg : TMessage);
message WM_QueryEndSession;
a implementacni casti potom uvedes
procedure MyForm1.WMQueryEnd(wMsg : TMessage);
begin
wMsg.Result:=1;
end;
Carove kody
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 7.1.2000 09:36:15
> mohl by me prosim nekdo nasmerovat, kde hledat nejakou komponentu na tvorbu
> caroveho kodu ?
Ahoj,
na www.torry.ru je jich nekolik - pro QR.
Petr Motl�cek
Registrace souboru a prirazeni ext. ikony v IS
[*] psojka(zv)els.ln.skoda(tec)cz - 7.1.2000 09:50:38
Poradte mi nekdo prosim, jak se v InstallShieldu
dela zaregistrovani pripony souboru.
Priznam se, ze registrum nak moc nehovim.
Take jsem dosud neprisel na to jak priradit
napr. souboru *.hlp ikonu. IS se tvari
ze soubor ma ikonu spravne a v polozce
Specify Folders and Icons -> Advanced -> Icon
je vepsan nazev helpoveho souboru. Ten ale
zadnou ikonu neobsahuje a po nainstalovani
se mu prislusna ikona knizecky s otaznikem
nepriradi. Da se souboru priradit ikona
s externi knihovny, ktera neni soucasti
instalace nebo se to dela jinak?
Predem diky
>>Jackal<<
JPG a DB
[*] k.brkl(zv)oku-rk(tec)cz - 7.1.2000 10:07:12
Prosim o kousek zdroje.
Mam JPG v DB blob polozce a jak ho dostat do TImage (nema LoadFromStream)
abych nemusel SaveToFile a LoadFromFile.
Jan Pluskal pouziva TJPEGImage (ma LoadFromStream), nevite nekdo kde ji
najdu?
Diky Karel Brkl
Pohyb my�� a klik
[*] Tu�ek Roman (P15) <TucekR(zv)p15.mepnet(tec)cz> - 7.1.2000 10:15:00
Neznalec ��d� znalce
jak ud�lat abych mohl programov� mohl h�bat my�� a klikat bez z�sahu
u�ivatele (i proti jeho v�li..... :-D) TRT
Zjisteni IP po II
[*] Bednar��k Dalibor - 7.1.2000 10:29:56
Zpusob pres PING nemuzu pouzit jelikoz to nefunguje...
Mame proxy server..
Neexistuje nejakej WWW server, kterej by mi to zjistil?
----- Original Message -----
From: Bobek
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, January 07, 2000 8:21 AM
Subject: Re: Zjisteni IP
no pokial to nepotrebujes vlozit do nejakej aplikacie tak najjednoduchsi sposob je ping www.post(tec)cz
pomocou command line
Zjisteni IP po II
[*] Bobek <bobak(zv)minv.sk> - 7.1.2000 10:53:20
no neviem o nijakom takom :-((
bohuzial
ale zaujimalo by ma konkretne riesenie cez winsock
konkretne pomocou funkcie GetHostByName , nejake konretne riesenie alebo aspon knowhow, vela som s winsock nerobil a help v delphi nie je bohvieco co sa winsock tyka, takze if anybody ste s tym pracovali poslite plz nejake knowhow alebo aspon ma nasmerujte ........ ano ano som nesamostatny a treba mi secko 3x ukazat ;-))))))
vopred diki
Bobek
----- Original Message -----
From: Bednar��k Dalibor
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, January 07, 2000 10:29 AM
Subject: Re: Zjisteni IP po II
Zpusob pres PING nemuzu pouzit jelikoz to nefunguje...
Mame proxy server..
Neexistuje nejakej WWW server, kterej by mi to zjistil?
----- Original Message -----
From: Bobek
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, January 07, 2000 8:21 AM
Subject: Re: Zjisteni IP
no pokial to nepotrebujes vlozit do nejakej aplikacie tak najjednoduchsi sposob je ping www.post(tec)cz
pomocou command line
TCP
[*] Mgr. Marek Osuchowski <marek.osuchowski(zv)post(tec)cz> - 7.1.2000 11:28:07
Dobry den,
predem dekuji za zaslani jednoducheho zdrojoveho textu programu (vlastne
dva - jeden na strane serveru a druhy na strana klienta), ktery by
umoznoval posilani dat po siti peer-to-peer (Win95). Predpokladam pouziti
komponenty TCP v Delphi 3 (verze s Internetem), kterou vlastnim.
Upresneni: potrebuji z jednoho pocitace dat nejakou zpravu na dalsi pocitace
(vsechny IP adresy predem znam, takze jenom...)
Dekuji jeste jednou, s pozdravem "Inetu zdar"
Mgr. Marek Osuchowski
Zjisteni IP po II
[*] Roman Sladek (Bratislava) [slado(zv)datapac.sk] <slado(zv)datapac.sk> - 7.1.2000 11:37:29
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Pozri sa na www.domain.sk. Tam ked si chces zistit, ci dana domena uz je
registrovana alebo nie (kliknes na tlacitko Hladaj) tak sa to presmeruje
na nejaku stranku, ktora to zisti. Tak sa im v tom trosku pohrab a mozno
na nieco prides.
-----Original Message-----
From: Bednar��k Dalibor [mailto:d.bednarcik(zv)vpfm(tec)cz]
Sent: Friday, January 07, 2000 10:30 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Zjisteni IP po II
�
Zpusob pres PING nemuzu pouzit jelikoz to nefunguje...
Mame proxy server..
Neexistuje nejakej WWW server, kterej by mi to zjistil?
�
----- Original Message -----
From: Bobek
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, January 07, 2000 8:21 AM
Subject: Re: Zjisteni IP
no pokial to nepotrebujes vlozit do nejakej aplikacie tak najjednoduchsi
sposob je ping www.post(tec)cz
pomocou command line
�
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.115 / V�rusov� datab�za: 54 - d�tum vydania: 23.12.1999
Trigger problem[2]
[*] delphi(zv)htkpro(tec)cz - 7.1.2000 12:12:36
>
>Moc se omlouvam za nepresnosti, psal jsem to z hlavy...
>Pokusim se svuj dotaz blize upresnit. Posilam dva priklady, ktere popisuji
>presne muj problem...
>(cimz se moc omlouvam vsem v konferenci za ty prilohy)
>
>Prvni priklad je s kaskadnim mazanim podrizenych zaznamu. Hlasi chybu:
>ORA-04091: tabulka NADRIZENA je m�n�na, trigger/funkce ji nemus� vid�t
>ORA-06512: na , ��dka 2
>ORA-04088: chyba b�hem prov�d�n� triggeru 'SUM_DEL'
Chyby v obou pripadech jsou zpusobeny vzajemnou zavislosti nadrizene a
podrizene tabulky. Pro kaskadni delete (plati i pro realizaci CASCADE DELETE
pres trigery) je potreba pouzivat lehke obejiti pres delete trigger na
statement urovni a nikoliv na urovni jednotlivych radku (FOR EACH ROW
klausule).
Postup je zhruba nasledujici - do pole promenych nejakeho package se v FOR
EACH ROW DELETE trigeru priradi hodnoty ktere se maji menit a nasledne se v
STATEMENT DELETE trigeru proveden jejich zmena. Cele je popsane nekde v
dokumentaci, pripadne to bude na oraclovskem metalinku nebo staci zavolat na
support tam to vetsinou vedi z hlavy kde se to da najit. Resili jsme to
stejne.
S pozdravem
Jan Kadlecek
HTK Pro s.r.o.
dev-shop(tec)cz
dev-shop.sk
D5, ADO, ACCESS pres query
[*] Erik Salaj <winsoft(zv)napri.sk> - 7.1.2000 12:25:34
Pozri Adonis FAQ http://www.cybermagic.co.nz/winsoft/adofaq.htm
Erik Salaj
> D5, ADO, QUERY
> Mate nekdo zkusenosti s praci s databazi ACCESS? Pokud ano, tak bych se
r�d zeptal jak se da pripojit pres ADO a pokud mate nekdo zkusenosti s SQL
dotazy tak bych se rad zeptal jak vytvorit novou tabulku v teto databazi.
Syntaxe SQL by mnela znit \"create table jmeno (test text, ....)\", ale
pokazdy kdyz se snazim takto vytvorit databazi tak pise chybove hlasky.
Jednou z posledn�ch hlasek je ze tabulka musi byt otevrena exclusivne, ale
prozatim nevim jak pres QUERY otevrit databazi exclusivne.Klavesnice
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 07.1.2000 12:50:07
Zdravicko,
nevite nekdo, jesli je nejaka funkce, ktera zjisti, zda jsou v buferu klavesnice nejaka
data?
Pavel
------------------------------
Pavel K�ehula <pavel(zv)mas(tec)cz>
M&S spol. s r.o. Boskovice
------------------------------
Pohyb =?iso-8859-2?Q?my=B9=ED?= a klik
[*] Ivo Brhel <ib(zv)unex(tec)cz> - 07.1.2000 12:13:50
Ahoj,
mrkni se na http://www.cyamon.com na komponentu TRecorder.
Cau
Ivos
Tu�ek Roman (P15) wrote:
>
> Neznalec ��d� znalce
>
> jak ud�lat abych mohl programov� mohl h�bat my�� a klikat bez z�sahu
> u�ivatele (i proti jeho v�li..... :-D)
>
> TRT
--
+-------------------------------------------------------+
| Ivo Brhel Tel: +420-643-472318 |
| UNEX a.s. Unicov Fax: +420-643-472314 |
| Brnicko 1032,783 93 Unicov http://www.unex(tec)cz |
| Czech Republic E-mail: ib(zv)unex(tec)cz |
+-------------------------------------------------------+Zjisteni IP po II
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.1.2000 13:14:45
>
>Zpusob pres PING nemuzu pouzit jelikoz to nefunguje...
>Mame proxy server..
>Neexistuje nejakej WWW server, kterej by mi to zjistil?
1) najdi si WWW server, kterej dela verejnou traceroute gateway (http://users(tec)czn(tec)cz/cgi-bin/nph-traceroute)
2) pokud na PC s proxy bezi DNS server nebo Proxy zastupuje DNS (forwardingem) staci, kdyz svuj PC nastavis tak aby pouzival PC s proxy jako DNS server. Pak i ping vrati adresu - ale echo pakety chodit nebudou
zdravi
D. Toman
registry dumping
[*] Miroslav BARICA <barica(zv)mail.matador.sk> - 07.1.2000 13:47:41
hola hey, zdravim vas,
moze ma niekto nasmerovat, akym sposobom vydumpujem obsah vsetkych
registrov z databazy? nieco ako regedit /e brmbrm.
dik dik a papapaaaa
Vytvorenie okna s upozornenim.
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 7.1.2000 14:30:08
> Chcel by som vytvorit okno s upozornenim. Moja predstava je z
> FoxPro ako
> prikaz "wait window 'Nastala chyba cislo 4541' nowait".
> Je uzke okno v pravom hornom rohu, ktore sa zobrazi pri
> zavolani a vrati
> focus do okna z ktoreho je volany, ale necaka na reakciu
> uzivatela, a zmizne
> ak uzivatel stlaci klaves alebo tlacitko mysi, ale jeho
> reakcia je bude
> podchytena v okne z ktoreho bolo zavolane (aby nebolo nutne
> stlacit nejaky
> klaves na odstranenie okna a pokracovanie v praci).
Treba by se to dalo resit nejak takto:
type
TForm1 = class(TForm)
...
private
n: integer;
procedure WndProc(var Message: TMessage); override;
...
implementation
...
// zobrazeni chyboveho okna
SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0,
0, SWP_SHOWWINDOW or SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);
n:=0;
...
procedure TForm1.WndProc(var Message: TMessage);
begin
inherited;
// skryti chyboveho okna
if ((message.Msg >= WM_KEYFIRST) and (message.Msg <= WM_KEYLAST)) or
((message.Msg = CM_ACTIVATE) or (message.Msg = CM_DEACTIVATE)) or
(message.Msg = CM_APPKEYDOWN) or (message.Msg = CM_APPSYSCOMMAND) or
(message.Msg = WM_COMMAND) or ((message.Msg >= WM_MOUSEMOVE) and
(message.Msg <= WM_MOUSELAST)) or (message.Msg = WM_NCMOUSEMOVE) then
begin
if form2 = nil then exit;
if (IsWindowVisible(form2.handle)) then begin
if (n <= 1 ) then inc(n)
else begin
ShowWindow(Form2.Handle, SW_HIDE);
n:=0;
end;
end;
end;
end;
...
end.
Je to spis pro inspiraci, castecne je to zkopirovane ze zdrojaku,
cast jsem racil vypotit sam, testovano jako SDI aplikace v D3/W95.
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Acces Violation
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.1.2000 14:32:17
Ahoj, posilam znovu. Nevite prosim, jak zjistovat chybny komponent? Nebo
ceho se mam chytit?
D�kuji
Jaro B.
------------------------------------
Ahoj,
Tak se mi podarilo docilit access violation po kazdem uzavreni programu
(proste ho jenom spustim a pak ho ukoncim). Program zdechne pri uvolnovani
komponent (ale az po OnDestroy! takze to nema na vlastni funkci programu
zadny vliv). na formu je pouzito cca 20 komponent (z RXLib 2.60, Orpheus
2.17, DTools 3.1, a par dalsich komponent). Bohuzel nedokazu rozpoznat, jaky
komponent to zpusobuje. Jak izolovat komponent, ktery chybu zp�sobuje? Kdyz
odstranim komponent, naborim i funkcnost porogramu. Nesetkal jste se s tim,
prosim, nekdo? Ale mam od vsech komponentu zdrojaky... A QR nepouzivam.
Diky
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr.Motlicek(zv)bcbrno(tec)cz [SMTP:Petr.Motlicek(zv)bcbrno(tec)cz]
> Odesl�no: 20. prosince 1999 20:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Acces Violation
>
> > potreboval bych trochu poradit, kde mam zacit hledat. Mam napsanou
> aplikaci
> > v D2 a ta mi nepravidelne (obvykle po kompilaci, na opakovene spusteni
> jiz
> > zridka kdy) vykazuje Acces Violation po pruchodu OnDestroy hlavniho
> > formulare (tj. az za END). Program se normalne ukonci bez jakychkoliv
> > problemu a teprve pak se hlaska objevi (a stahne s sebou nekdy cele
> IDE).
> > Kde bych mel hledat pricinu problemu?
>
> Ahoj,
>
> zkus nejdrive pred kompilaci data SearchPath
> na cesty pro VCL knihovnu (a nejlepe zmen i
> Output pro DCU) a zkus, jestli ten Access
> Violation takto najdes na prislusnem radku
> kodu.
>
> Jinak, pokud je to typicky "....at Address
> FFFFFFF", tak jestli vylozene ty sam
> neuvolnujes jiz uvolnene, tak zapremyslej,
> komu uvolnujes, aniz mas uvolnovat....
>
> Napr. ja s oblibou uvolnoval quick reportu
> bitmapu v QRImage nebo udelas
>
> C := Tcomponent.Create(jinacomponent);
> try
> mnoho kodu
> finally
> C.Free;
> end;
>
> coz je samozrejme spatne.
> (Ale to jsou asi chyby, ktere te napadly samy.)
>
> Pokud je to na jinych addresach, tak si zrejme
> spatne "hrajes" s pointrama...., nebo se
> stringama - jako ukazatele (napr. v procedure
> Move, nebo v jistych situacich musis string
> "alokovat" - SetLength apod.)
>
> No snad te neco napadlo, cim by to mohlo byt.
> Zkus to treba jeste vice priblizit. Mam hodne
> zkusenosti s podobnymi Accessy... :-|
>
> Petr Motlicek
Zjisteni IP
[*] Ing. Zdenek Sraier <sraierzd(zv)atlas(tec)cz> - 7.1.2000 14:41:06
> Neexistuje nejakej WWW server, kterej by mi to zjistil?
Napriklad
http://www.ripe.net/db/whois.html
S pozdravem Zdenek Sraier
o__o E-mail: sraierzd(zv)email(tec)cz HTTP://www.byll(tec)cz/scuba/zdenek/
( o o) -----------------------------------------------------------
(. .) Strany Potapecske (SP) HTTP://www.byll(tec)cz/scuba/
COMCTL32.DLL
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 7.1.2000 14:47:31 met-1
Ahoj!
Ve sve aplikaci pouzivam ToolBar a obrazky do nej mam ulozene v
ImageListu. Na nekterych pocitacich se ale stane, ze ikony nejsou
videt. V archivu teto konference jsem nasel, ze je to zpusobeno
knihovnou COMCTL32.DLL a tu chybu odstranim jednoduse tak, ze
prislusnou knihovnu zkopiruju ze sveho PC na ten "vadny". Tato rada
funguje, ale je tu jeden problem. Na svem PC mam W95 a kdyz knihovnu
COMCTL32.DLL zkopiruju na pocitac opet s W95, je vse v naprostem
poradku. Ovsem kdyz to kopiruju na pocitac s W98, tak sice ikony v
TooolBaru se objevi, ale narusi se vzhled nabidky Start. Zvetsi se
totiz odstupy mezi jednotlivymi radky, coz by sice az tak moc
nevadilo, ale ma to jeden velice neprijemny dopad. Mam totiz takovy
pocit, ze tim, ze se zvetsi odstupy mezi radky, tak dochazi ke
spatnemu stanoveni "vysky" okna pro menu a vsechny radky nejsou
videt. Teprve az kliknu na "scrollovaci" sipku (ktera se v menu navic
zobrazi), tak vidim zase ten zbytek. Asi to vysvetluju dost blbe, tak
to zkusim jeste nakreslit:
Menu Start puvodni:
+------------+
| Programy |
| Dokumenty |
| ..atd |
| ..atd |
| Spustit |
+------------+
| Vypnout |
+------------+
a menu Start po zkopirovani COMCTL32 (z W95 na W98):
+------------+
| Programy |
| |
| Dokumenty |
| |
|"SIP. DOLU" | <--- tady se objevi ta scrollovaci sipka
+------------+
| Vypnout |
+------------+
Nevite co s tim?
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Generator sestav
[*] Jaro <jaro(zv)sinea(tec)cz> - 7.1.2000 07:53:05 -0800
Tento problem zname. Vyskytl se v jedne z verzi generatoru a ihned byl
odstranen. Rosp. nova sice rychlejsi, ale na nekterych tiskarnach problematicka
metoda tisku byla nahrazena puvodni osvedcenou metodou. Je to jiz tedy delsi
dobu opraveno. Protoze neuvadis od ktere firmy je zminovny program, informuj
prosim dodavatele toho programu, at si vyzada (na muj mail jaro(zv)sinea(tec)cz)
aktualni verzi, kterou jim obratem a bezplatne poslu. Staci, kdyz uvedou, kterou
verzi Delphi pouzivaji. Pokud existuje jeste nekdo jiny, kdo neobdrzel opravu,
at postupuje stejnym zpusobem.
Jaro
>
>
> Ahoj
> mame tu takovy problem, pouzivame jeden program, ktery byl vytvoren v Delphi
> a pouziva tiskove sestavy (mam takovy pocit od fy Sinea). Problem je s
> tiskem na tiskarnach typu HP 4L, kdy prestoze tam je nastaven font Arial tak
> se na papire ten vytisknuty text scvrkne (pismenka jsou nekde bliz a nekde
> dal od sebe a pismenka s diakritikou to nevytiskne treba vubec). Na
> ostatnich tiskarnach to vsak vytiskne v poradku. Zkousel jsem i jine
> ovladace a porad nic.MS SQL a Delphi 3
[*] Honza Jochman <Jan.Jochman(zv)ais(tec)cz> - 7.1.2000 18:15:26
Vazeni pratele,
znam jmeno, user, password a IP database. Ne a ne se na ni z Delphi 3
dostat. Poradi mi nekdo?
S pozdravem
Honza Jochman
Ukladani grafiky do MSSQL7
[*] Jakub Mart�nek <listbox(zv)vakmb(tec)cz> - 7.1.2000 19:16:57
Muzete mne nekdo trochu navest jak ukladat graficka data do poli Image v
MSSQL7?
Diky
VaK Mlada Boleslav, a.s.
Jakub Martinek
jmartinek(zv)vakmb(tec)cz
Zpomaleni davkoveho cteni do TTable
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 7.1.2000 19:34:22
Nekde jsem zahledl, ze neco podobneho se projevovalo jen pri zapnute klavese
ScrollLock (to si nedelam srandu). Udajne snad pomohl upgrade BIOSu
Mirek Junek
Subject: RE: Zpomaleni davkoveho cteni do TTable
| Vsechno je prave uplne stejne. Databaze (Access), index tam je, kod,
| vsechno. Pouze jsem to prelozil pod D5.
|
| Ivan Virag
|
|
|
| Existuje v tabulce prislusny index? Pokud ne, prikaz locate vyhledava
| sekvencne. Pak to jede na vetsich tabulkach neuveritelne pomalu.
|
| Ing. Petr Svejda
| software specialist
|
|
|
| >Prevadim program z D4 do D5. Je tam modul, ktery cte textovy soubor a
| >zapisuje hodnoty v radku do jednotlivych poli tabulky. Prelozil jsem
| >ctyrkovy program do D5 a rychlost nacitani se natolik zpomalila, ze je to
| >temer k nepotrebe, prestoze jsem v kodu neprovedl zadnou zmenu. Vypada to
| >zhruba takto:
| >
| >if Table1.Locate(...) then begin (* if prislusny zaznam jiz existuje
|Pohyb my�� a klik
[*] Jirka Virt <virt(zv)volny(tec)cz> - 7.1.2000 19:45:14
Ahoj,
na pozici mysi je API funkce SetCursorPos(x,y)
a na klik API funkce
....
souradnice := Lo(rect.Right);
souradnice := Hi(rect.Top);
SendMessage(okno,WM_LBUTTONDOWN,MK_LBUTTON,souradnice);
SendMessage(okno,WM_LBUTTONUP,MK_LBUTTON,souradnice);
PostMessage(okno,WM_LBUTTONUP,1,2);
....
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Tu�ek Roman (P15) <TucekR(zv)p15.mepnet(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 07, 2000 10:15 AM
Subject: Pohyb my�� a klik
> Neznalec ��d� znalce
>
> jak ud�lat abych mohl programov� mohl h�bat my�� a klikat bez z�sahu
> u�ivatele (i proti jeho v�li..... :-D)
>
> TRT
>
>RXMemoryData1.CopyStructure(Table1.DataSource.Data
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 7.1.2000 21:25:50
Jasne ja som az na druhy den prisiel na to ze tam je lepsie pouzit:
RXMemoryData1.CopyStructure(DataSource1.DataSet);
ale malo by aj to prve fungovat, lebo
Table1.DataSource.DataSet=DataSource1.DataSet
Hi. Roland Turcan
> co je to ta Table1 ?
>
> Petr Motl�cek
>
>D5, ADO, ACCESS pres query
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 7.1.2000 22:07:43
From: <cerny_delphi(zv)post(tec)cz>> Mate nekdo zkusenosti s praci s databazi ACCESS? Pokud ano, tak bych se
r�d zeptal jak se da pripojit pres ADO
Na napojeni pres ADO staci vybudovat link v ODBC Data Sources (ovl�dac�
panel) a v Delphi pouzit
TADOConnection kde vybudujes ConnectionString tak, ze pouzijes OLE DB
provider.
>SQL by mnela znit \"create table jmeno (test text, ....)
nevim jestli je zrovna tohle to prave orechove pro souborovou databazi
>Jednou z posledn�ch hlasek je ze tabulka musi byt otevrena exclusivne, ale
prozatim nevim jak pres QUERY otevrit >databazi exclusivne.
V tomhle bych doporucoval (pokud pouzivas komponenty ADO v D5 Ent.) poutivat
misto TADOQUERY TADODATASET.
Melo by se to tehle hlasek vyvarovat.
M. Jirman
Generator sestav
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 7.1.2000 22:21:13
From: Milos Sula <crkstrobe(zv)geocities.com>> Ahoj
> mame tu takovy problem, pouzivame jeden program, ktery byl vytvoren v
Delphi
> a pouziva tiskove sestavy (mam takovy pocit od fy Sinea). Problem je s
> tiskem na tiskarnach typu HP 4L, kdy prestoze tam je nastaven font Arial
tak
> se na papire ten vytisknuty text scvrkne (pismenka jsou nekde bliz a nekde
> dal od sebe a pismenka s diakritikou to nevytiskne treba vubec). Na
> ostatnich tiskarnach to vsak vytiskne v poradku. Zkousel jsem i jine
> ovladace a porad nic.
>
Doporucuji zkusit zmenit nastaveni vlastnosti tiskarny, neco na zpusob
"Pismo tisknout jako grafiku" nebo tak nejak podobne, nevim uz presne.
Take bych zkusil vymenit ovladac tiskarny za novejsi, nebo jen jiny.
Obvykle ten z Windows dava lepsi vysledky nez "originalni" od HP.
Vaclav Krmela
COMCTL32.DLL
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 8.1.2000 00:31:56
Ahoj,
ono by to asi taky chtelo tu knihovnu
distribuovat pomoci jejiho instalaku
(50comupd.exe - posledni verze ke stazeni
na MS). Mimochodem je to take podminka
MS k redistribuci teto knihovny.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
----- Original Message -----
From: Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 07, 2000 3:47 PM
Subject: COMCTL32.DLL
> Ahoj!
> Ve sve aplikaci pouzivam ToolBar a obrazky do nej mam ulozene v
> ImageListu. Na nekterych pocitacich se ale stane, ze ikony nejsou
> videt. V archivu teto konference jsem nasel, ze je to zpusobeno
> knihovnou COMCTL32.DLL a tu chybu odstranim jednoduse tak, ze
> prislusnou knihovnu zkopiruju ze sveho PC na ten "vadny". Tato rada
> funguje, ale je tu jeden problem. Na svem PC mam W95 a kdyz knihovnu
> COMCTL32.DLL zkopiruju na pocitac opet s W95, je vse v naprostem
> poradku. Ovsem kdyz to kopiruju na pocitac s W98, tak sice ikony v
> TooolBaru se objevi, ale narusi se vzhled nabidky Start. Zvetsi se
> totiz odstupy mezi jednotlivymi radky, coz by sice az tak moc
> nevadilo, ale ma to jeden velice neprijemny dopad. Mam totiz takovy
> pocit, ze tim, ze se zvetsi odstupy mezi radky, tak dochazi ke
> spatnemu stanoveni "vysky" okna pro menu a vsechny radky nejsou
> videt. Teprve az kliknu na "scrollovaci" sipku (ktera se v menu navic
> zobrazi), tak vidim zase ten zbytek. Asi to vysvetluju dost blbe, tak
> to zkusim jeste nakreslit:
>
> Menu Start puvodni:
> +------------+
> | Programy |
> | Dokumenty |
> | ..atd |
> | ..atd |
> | Spustit |
> +------------+
> | Vypnout |
> +------------+
>
> a menu Start po zkopirovani COMCTL32 (z W95 na W98):
> +------------+
> | Programy |
> | |
> | Dokumenty |
> | |
> |"SIP. DOLU" | <--- tady se objevi ta scrollovaci sipka
> +------------+
> | Vypnout |
> +------------+
>
> Nevite co s tim?
>
> Jirka.
> +-------------------------+---------------------------------+
> | Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
> | Czech Republic | http://risc.upol(tec)cz/~novotnyj |
> | | ICQ: 9495586 |
> +-------------------------+---------------------------------+
> | ... and objects in the rear view mirror can appear closer |
> | than they are |
> +-----------------------------------------------------------+
zobrazeni dialogu v RES souboru pomoci API
[*] gT6 <gt6(zv)atlas(tec)cz> - 8.1.2000 01:11:35
---D4 Std---
Ahoj
v RES souboru mam nekolik dialogu a potreboval bych je zobrazit
pomoci API funkci ...
Nevite nekdo jak na to???
Predem dekuji
gT6
Maximalni pocet souboru
[*] Michal �viga <info(zv)cd-amper(tec)cz> - 8.1.2000 02:12:48
Nevite nekdo, kolik muze byt maximalne souboru nebo adresaru v jednou
adresari.
A jestli je to jine ve FAT, FAT 32, NTFS a na CD?
S pozdravem
Michal �viga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 65 15 052 mobil: 0602/ 207 557
DAMA.CZ - Internetovy casopis pro vsechny zeny
http://www.dama(tec)cz mailto:reklama(zv)dama(tec)cz
======ICQ: 57557677 =======================
----- Original Message -----
From: Vaclav Krmela <krmela(zv)pecomp(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, January 04, 2000 11:11 PM
Subject: Re: Object moving
> ----- Original Message -----
> From: Michal �viga <info(zv)cd-amper(tec)cz>
>
> > Potrebuji ziskat udaj Time, ale je to Integer a nejde prevest pomoci
> > DateTimeToStr.
> > hodnota 664377654 ma byt 25.12.99 19:09
> > Co s tim, jak to prevest do rozumneho formatu?
> > Pouzivam Delphi 2.
> >
> > Predem dik
> > Michal �viga (Sviga)
>
> Nejdrive je nutne prevest Integer na DateTime pomoci FileDateToDateTime.
> Vaclav Krmela
>
Ukon�en� programu (Delphi 3)
[*] Martin Kucera <mk(zv)paegas.vol(tec)cz> - 8.1.2000 02:53:42
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 07, 2000 9:31 AM
Subject: RE: Ukon�en� programu (Delphi 3)> Ahoj a proc tam mas Action:=caNone ?
> Vzdyt to bude kvuli tomu. Navic,
> to Hide tam taky byt nemusi, ne ?
>
To je hlavni form (a jediny) a jde o to, ze kdyz prijde zprava, objevi se na
obrazovce a krizkem v rohu (nebo Alt+F4) se schova a zustava jen ta ikona.
Pripadlo mi to elegantni.> message WM_QueryEndSession;
Toto dost dobre nechapu, ale rad bych pochopil.
Diky Martin Kucera
Zjisteni IP
[*] Werki <delphi(zv)minv.sk> - 8.1.2000 09:40:47
> >Omlouv�m se za OT, ale potreboval bych poradit, jak zjistit IP adresu
domeny...
> >treba www.post(tec)cz apod.
No, na hocakom unixe:
nslookup domena
Zistis domenu aj pripadne aliases..
Ak to potrebuyes nakodit, tak cez sockets to nie je problem. (previous
posting)
Ak si to xes este ulahcit, ye kopec sietovych komponent, ktore po prikaze
connect
vyplnia premennu ip, resp. hostname.
Werki
GExperts - kam se ztratili?
[*] Karel Kral <kral(zv)purus(tec)cz> - 08.1.2000 11:46:23
Tady jsou:
http://www.gexperts.com/gexperts/
Tedy ne .org ale .com
Cibulka Karel wrote:
>
> Ahoj,
>
> nevite nahodou nekdo co se stalo se strankami GExeprts - addonu pro
> Delphi? Na jejich adrese www.gexperts.org uz nefunguji...
>
> K.
>
> --
> <TT>
> /* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
> /* KCibulka(zv)seznam(tec)cz */
> /* OnLine: If you have ICQ my ICQ# is 4111110. */
> </TT>
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Spojeni dvou tabulek
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.1.2000 11:51:04
On 6 Jan 00, at 15:52, lsd.by(zv)email(tec)cz wrote:
> ahoj jmenuji se david kv�tek,
> programuji od 12 ledt dnes je mi 22,
> za��n�m se zaj�mat o SQL v delphy, jesli pros�mt� m��e�, po�li mi
> n�jak� data ohledn� programovan� SQL v dephi a n�jakej �vod do delphy,
Tyto informace lze pochytit zde v konferenci, take doporucuji si k
tomu koupit nejakou vhodnou knizku. Na nasem trhu jich lze
sehnat nekolik, pro zacatecniky vyhovuji prakticky vsechny.
Napriklad od Cantu nebo Swana.
> jak se kompiluje a podobn�, m�l bych od pond�l� n�co v tomhle
> programovat v praze a v�bec tomu nerozum�m , ale je to za dobr�
> prachy, r�d t� do toho zainteresuju, zaplat�m ti dob�e , ozvi se
> okam�it� jak to p�jde.
>
>
> s pozdravem dave
>
> m�j email je lsd.by(zv)email(tec)cz
>
> ps:spol�ham na tvou pomoc, mi inteligintn� lid� mus�me dr�et p�i sob�
Jak si tak procitam ten mail, jsem nejak na pochybach, co si o
tom mam myslet. Kazdopadne nyni jsem vytizen naplno jinou
praci. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zpomaleni davkoveho cteni do TTable
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.1.2000 11:51:04
On 7 Jan 00, at 19:34, Mirek Junek wrote:
> Nekde jsem zahledl, ze neco podobneho se projevovalo jen pri zapnute
> klavese ScrollLock (to si nedelam srandu). Udajne snad pomohl upgrade
> BIOSu
To pochopitelne zadna sranda neni, protoze je vedecky dokazana
skodlivost klavesy ScrollLock. Blize viz
http://www.dati(tec)cz/~slhaters/.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ukladani Streamu
[*] Michal �viga <info(zv)cd-amper(tec)cz> - 8.1.2000 12:03:08
Jak ulozit do TFilestreamu data?
Kdyz ulozim pomoci
var i:Integer;filestream:TFilestream;
...
i:=12;
filestream.writebuffer(i,SizeOf(i));
Tak se mi vytvori soubor o velikosti 12 416 bajtu. A to preci neodpovida
integeru.
S pozdravem
Michal �viga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 65 15 052 mobil: 0602/ 207 557
DAMA.CZ - Internetovy casopis pro vsechny zeny
http://www.dama(tec)cz mailto:reklama(zv)dama(tec)cz
======ICQ: 57557677 =======================
TCP
[*] Martin Kucera <mk(zv)paegas.vol(tec)cz> - 8.1.2000 12:41:54
Ahoj,
jestli to maji byt treba textove zpravy, pak mi pripada nejjednodussi pouzit
sadu komponent, kterou jsem stahl z Torry, casti Communication, TmdWinPopup,
TmdMailSlot, TNetUsers atd. Snad je to, co potrebujes
----- Original Message -----
From: Mgr. Marek Osuchowski <marek.osuchowski(zv)post(tec)cz>
To: Delphi - konference <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 07, 2000 11:28 AM
Subject: TCP
> Dobry den,
> predem dekuji za zaslani jednoducheho zdrojoveho textu programu (vlastne
> dva - jeden na strane serveru a druhy na strana klienta), ktery by
> umoznoval posilani dat po siti peer-to-peer (Win95). Predpokladam pouziti
> komponenty TCP v Delphi 3 (verze s Internetem), kterou vlastnim.
>
> Upresneni: potrebuji z jednoho pocitace dat nejakou zpravu na dalsi
pocitace
> (vsechny IP adresy predem znam, takze jenom...)
>
> Dekuji jeste jednou, s pozdravem "Inetu zdar"
> Mgr. Marek Osuchowski
>
>
>GExperts - kam se ztratili?
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 8.1.2000 13:00:45
To je stara adresa. Nova je prave www.gexperts.org
Radim
>Tady jsou:
>http://www.gexperts.com/gexperts/
>Tedy ne .org ale .com
>
>--
>______________________________________________________
>Karel Kral, informatik
>Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
>Tel: 05/47235000, 0602/552432, Fax: 05/47231203
>E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
>______________________________________________________