Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prevod kodovani cestiny
[*] Marek Prochazka <prochazka(zv)jumbo.ped.muni(tec)cz> - 15.6.2000 19:51:03 met
ma udelanou aplikaci na toto a je tam i vlastne sada jednotlivych
kodu a mozny prevod mezi nimi. Je to silne nedopracovane, ale
podstatu to zachycuje. Problem je, ze to momentalne u sebe nemam, ale
zitra to dotlacim a muzu ti to poslat.
Marek
uzv�en� v�ech program� krom� jednoho
[*] Korin - delphi <korindelphi(zv)atlas(tec)cz> - 15.6.2000 22:02:47
Ahojte, d�l�m n�co jako program pro internetovou kav�rnu ( po startu se spust� m�sto explorer.exe ) .
No a dotaz : u�ivatel se odloguje a chci, aby to uzav�elo v�echny programy krom� toho hlavn�ho. �lo by to ud�lat n�jak pomoc� enumwindows, ale nev�m jak na to a sly�el sem, �e tak by to bylo hrozn� pomal�. Zn�te n�jak� lep�� zp�sob??Nastaveni klavesnice
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 15.6.2000 23:55:33
Ahoj,
mrkni na fci Win32 API> SystemParametersInfo();
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Peter Luk�cs
> Sent: Thursday, June 15, 2000 2:07 PM
> To: Delphi
> Subject: Re: Nastaveni klavesnice
>
>
> To je mi jasn�, ale jak to udelam z Delhi ?
> batex
>
> PS: za to formatovani se fsem omlouvam
>Dinamicka pole.
[*] root <vrabec(zv)pal.skm.vutbr(tec)cz> - 16.6.2000 02:43:32
Mam takovy problem : deklaruju dinamicke pole (array of TPoint) a toto
pole potrebu zvetsovat. : setlength(pole,High(pole)+1000), problem
nastava pokud pocet prvku tohoto poel preroste hodnotu 65535, pak funkce
High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota muze byt
max. 255 coz mi prijde jako absurdni. Nevite nekdo jak to funguje, tedy
jak to dobre nadeklarovat ?
A jeste : nevite jak smazat Canvas ? Pokud na nejj neco nakreslim a
chci to potom smazat, jak na to ? + jak docilit toho ze pokud nastavim
hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala. Ja sem
posunul okno mimo obrazovku a po navratu (refresh po jinem okne) se to
nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
HELP !
J.OT: Logovani IP na postovnim SERVERu
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 16.6.2000 06:59:54
ahoj,
loguji postovni SERVERy IP adresy odkud se na postovni ucet pristupuje? Byva
to zvykem nebo to naopak zvykem neni? Je me jasny, ze zalezi na konkretnim
SERVERu, ale tak nejak z Vasich zkusenosti? Loguji ci spise nikoliv?
Progr-Amather -Kchodl-(r) 1989-2000
Dinamicka pole.
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 16.6.2000 07:11:35
K dynamickemu poli:
type
PPole = ^TPole
TPole = record
bod:TPoint;
next:PPole;
prev:PPole; - nemusi byt jen jestli to bude nutne pro rychlejsi prochazeni
end
var
CPos,CBase:PPole; {ukazatele na aktualni hodnotu a prvni polozku}
....
begin
...
new(CPos); {inicializace pole}
fillchar(CPos^,sizeof(CPos^),#0);
CBase:=CPos;
...
DonePole(CBase); {zruseni pole}
CPos:=CBase; {=nil}
end;
....
- Je potrebne si vytvorit par funkci
SetPole {nastaveni se na pozadovany prvek pole, jak absolutne tak
relativne}
DonePole {zruseni pole}
DelPol {odstraneni nejake polozky z pole}
AddPol {pridani polozky do pole /na konec/}
InsPol {pridani polozky do pole /nekde uprostred/} // CPos:=SetPole(CBase,20); polozka 20
// CPos:=SetPole(CPos,5); posun o 5 polozek
function SetPole(Bas:PPole;Pol:longint):PPole;
var P:PPole;
begin
P:=Bas;
for i:=1 to Pol-1 P:=P^.next;
Result:=P;
end;
// DonePole(Pole,PBase);
procedure DonePole(var Bas:PPole);
var C,Pol:PPole;
begin
Pol:=Bas;
while Pol<>nil do
begin
C:=Pol^.next;
dispose(Pol);
Pol:=C;
end;
Bas:=nil;
end;
// CPos:=DelPole(CPos);
function DelPole(Pol:PPole):PPole;
var C,N:PPole;
begin
C:=Pol^.prev;
N:=Pol^.next;
C^.next:=N;
N^.prev:=C;
dispose(Pol);
Pol:=N;
end;
// CPos:=AddPole(CPos);
function AddPole(Pol:PPole):PPole;
begin
while Pol.next<>nil do Pol:=Pol^.next;
new(Pol.next);
fillchar(Pol^.next^,sizeof(Pol),#0);
Pol^.next^.prev:=Pol;
Pol:=Pol^.next;
end;
// CPos:=InsPole(CPos);
function InsPole(Pol:PPole):PPole;
var C,N:PPole;
begin
new(N);
fillchar(N^,sizeof(N^),#0);
C:=Pol^.prev;
C^.next:=N;
N^.prev:=C;
Pol^.prev:=N;
N^.next:=Pol;
Result:=N;
end; // naplneni polozky
CPos^.bod.x:=x ;
CPos^.bod.y:=y ;
nebo
CPos^.bod:=point(x,y) ;
// cteni polozky
CPos:=SetPole(CBase,20); {polozka 20}
x:=CPos^.bod.x;
y:=CPos^.bod.y;
Mozna existuje lepsi zpusob (neni to tak pohodlne jako zapis A[20]), ale me
se tento zpusob osvedcil.
PS: nemam kod po ruce proto jsem to napsal ted z hlavy, snad tam nebudou
chyby
----------------------------------------------------------------------------
---
Ing. Pavel SPEJTEK
bosnis(zv)atlas(tec)cz
http://freeweb.coco(tec)cz/ps/index.html
----------------------------------------------------------------------------
---
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
root
Sent: Friday, June 16, 2000 2:44 AM
To: konference o delphi
Subject: Dinamicka pole.
Mam takovy problem : deklaruju dinamicke pole (array of TPoint) a toto
pole potrebu zvetsovat. : setlength(pole,High(pole)+1000), problem
nastava pokud pocet prvku tohoto poel preroste hodnotu 65535, pak funkce
High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota muze byt
max. 255 coz mi prijde jako absurdni. Nevite nekdo jak to funguje, tedy
jak to dobre nadeklarovat ?
A jeste : nevite jak smazat Canvas ? Pokud na nejj neco nakreslim a
chci to potom smazat, jak na to ? + jak docilit toho ze pokud nastavim
hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala. Ja sem
posunul okno mimo obrazovku a po navratu (refresh po jinem okne) se to
nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
HELP !
J.
Dinamicka pole.
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.6.2000 07:26:51
> -----P�vodn� zpr�va-----
> Od: root [mailto:vrabec(zv)pal.skm.vutbr(tec)cz]
> Odesl�no: 16. �ervna 2000 2:44
> Komu: konference o delphi
> P�edm�t: Dinamicka pole.
>
>
> Mam takovy problem : deklaruju dinamicke pole (array of TPoint) a toto
> pole potrebu zvetsovat. : setlength(pole,High(pole)+1000), problem
> nastava pokud pocet prvku tohoto poel preroste hodnotu 65535,
> pak funkce
> High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota muze byt
Tak proc se divis, ze to nefunguje pri daleko
vyssi hodnote nez je uvedena v helpu jako maximalni?
> max. 255 coz mi prijde jako absurdni.
Co je na tom absurdniho? Je to vlastnost jazyka a nic
s tim nenadelas, at se ti to libi nebo ne.> Nevite nekdo jak to
> funguje, tedy
> jak to dobre nadeklarovat ?
???
O co ti jde? Myslis, ze nejakym zpusobem docilis, abys mel
v poli vice prvku nez kolik je do nej mozne nacpat?
Jestli chces neco takoveho, tak si asi budes muset vzit
blok pameti a spravovat si ho sam. Nebo si udelat zretezeny
seznam. Ale nemuzes pouzit array. At uz dYnamicky nebo
staticky
Jura
TDirectoryListBox
[*] jof(zv)email(tec)cz - 16.6.2000 07:28:00
Ahoj,
v programu potrebuji prochazet jednotlive
adresare, ale pomoci komponenty
TDirectorylistBox se mi nedari dostat se do
skrytych adresaru, konkretne do docasnych
adresaru Internet Exploreru. Poradte prosim.
-jof-
Zabirani systemovych prostredku (podruhe)
[*] Pavel �ern� - 16.6.2000 07:31:54
Stahl jsem si to a trochu si hral se SpeedButtony.
Poustel jsem si demo tak jak je a pak trochu
experimentoval.
Dosel jsem k nasledujicim vecem, test je vzdy na
40 instanci ( 5 x 8 ) :
- tak jak to demo je v originale, pouziva se tam
Glyph.LoadFromResourceName(HInstance, 'BUTTON1');
a sezere to 4% SYS, 4% GDI, 0% USR
- kdyz taham obrazek z ImageListu, ktery obsahuje vsechny
bitmapy k opakovanemu pouziti
ImageList1.GetBitmap( 0, Glyph );
sezere to 0% SYS, 3% GDI, 0% USR
( pak pri 72 instancich se projevi i 1% SYS )
- kdyz si udelam "vzorovy speedbutton" s obrazkem a
z nej kopiruji
SpeedButton.Glyph := SpeedButtonVzor.Glyph;
tak to nezere prakticky nic. Tedy myslim tim pri nasobnem
pouziti. Predpokladam, ze neco sezral sam vzorovy speedbutton.
Zajimalo by mne, cim se daji tyto rozdily vysvetlit. Poradi nekdo ?
Asi hlavne Petr Vones. Diky.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
>>> "Petr Vones" <pvones(zv)mbox.vol(tec)cz> 4.6.2000 23:31:34 >>>
From: "Pavel �ern�" <cerny(zv)cerny-ps(tec)cz>
> Vracim se k tematu, ktere jsem tady nakousnul asi pred
> tremi tydny. Slo o neumerne zabirani systemovych prostredku
> pod Win9x ( Delphi 5 ).
>
> Takze DBNavigator je opravdu extra zrout.
> Ale napr SpeedButton nebere prakticky nic.
> A obycejny Button bere z tech ruznych
> knofliku nejvic.
Ahoj,
Stahni si nasledujici upravu, soucasti je i demo aplikace kde vidis spotrebovane
zdroje:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=14485
Petr Vones, amatersky programator
Vyjimky SQL serveru
[*] Ren� Otisk - 16.6.2000 07:44:11
HI,
Ja to resil tak, ze mam DLL, do ktereho posilam ty hlasky.V nem je preklad
podle klicovych slov (Duplicate key, Foreign key ...). Zatim to mam jen na
tu prvni uroven, nicmene v budoucnu bych rad identifikoval i objekty, na
kterych to vzniklo. Popis samotnych hlaseni chyb a jejich ciselnych
identifikatoru je popsan v SQLBOL.chm. Mimochodem v MS SQL 7 si muzes
nadefinovat sva chybova hlaseni a generovat je v stored procedurach
Sroub
> Ahoj,
>
> mam databazi na MS SQL serveru 7 a v ni hodne integritnich
> omezeni typu foreign key. Jejich fungovani ve sve aplikaci bych
> potreboval nejak uzivatelsky zprijemnit. Konkretne jde o, ze kdyz
> se treba pokusim smazat neco, co je v konfliktu s nejakym foreign
> key omezenim, vznikne vyjimka s pro uzivatele neprijatelnym
> popisem. Da se vubec nejak poznat typ vyjimky, konkretne to, ze
> vyjimka, ktera vznikla, vznikla skutecne kvuli poruseni integrity?
>
> Dik,
>
> David
Prevod kodovani cestiny
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 16.6.2000 07:45:18
Ahoj,
mam hotovy programek jeste v Pascalu 6.0 pod MS DOS, ktery umi prevadet
textove soubory v
kodovani Kamenicky, Latin2, KOI8, Win 1250, ISO Latin.
Pak mam funkci jeste ve FoxPro 2.6 pro MS DOS, ktera umi prevadet textove
retezce ve vyse uvedenych kodovanich.
Chces neco z toho poslat ?
Jolana
-----P�vodn� zpr�va-----
Od: Ond�ej Kolenat� [mailto:kolenaty(zv)supreme(tec)cz]
Odesl�no: 15. �ervna 2000 16:42
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Prevod kodovani cestiny
Nezna nekdo nejakou unit ktera umi prevadet stringy z jednotlivych kodovych
stranek do jinych. napr: Kamenik --> Latin 2
Delphi, Mobilni telefon a SMS
[*] Pavel �imek <kejchal(zv)volny(tec)cz> - 16.6.2000 08:00:57
Tento okruh problematiky je na tolik slozity, ze jsem sam musel pristoupit k
jinemu reseni. Tim resenim byl MT Ericsson GM12 - coz je jakysi prumyslovy
mobil bez sluchatka a mikrofonu (lze dovybavit) a je pripojeny k PC pres
COM. Ovladani neni sice nejjednodussi ale nikde jsem nesehnal nic rozumneho
nez GM12.
Ahoj
kejchal(zv)volny(tec)cz
deadlock v IB6
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 16.6.2000 08:11:14
Pouzivam IBTable. Pokusim sa to upresnit. Ide mi o nieco podobne
ako testovanie Post pri pouziti BDE. Ak dam post do bloku try, tak
v pripade, ze zaznam pouziva niekto iny, mi BDE hodi vynimku, ktoru
si viem osetrit. Ale ako to urobit pri pouziti IBTable v IB6 ?
----- Original Message -----
From: �ampulka Ji�� <campulka(zv)czas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 15, 2000 1:57 PM
Subject: Re: deadlock v IB6
> Nepouzivas ciste nahodou komponentu TTable....?
>
> ----- P�vodn� zpr�va -----
> Od: Peter Mojdis <mojdis(zv)colnicapo.sk>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 15. �ervna 2000 8:21
> P�edm�t: deadlock v IB6
>
>
> > Ahoj !
> >
> > Zacinam s IB 6 pod D5, preto sorry za mozno primitivnu otazku.
> >
> > Cez IbConsole som si vytvoril Remote Server, na nom databazu s
> > jednou tabulkou. K tejto tabulkje pristupujem z dvoch pocitacov. Ked
> > zacnem v DBGride editovat tabulku na jednom stroji, tak na druhom
> > pri pokuse o editaciu aplikacia zatuhne a odtuhne az potom, ked sa
> > na prvom pocitaci aplikacia ukonci a vypise sa hlaska Deadlock... .
> > Ako zistim, ze s tabulkou pracuje iny uzivatel ?
> >
> >
> >
> >
>
>
Property editor pro TMenuItem
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 16.6.2000 08:19:11
Ahoj vsichni,
nevite prosim Vas nekdo jak se jmenuje
property editor pro tridu TMenuItem?
Potrebuji totiz u sve komponenty umoznit
editovat seznam polozek menu...
Dekuji Otakar Milink
Re[2]: Nastaveni klavesnice
[*] Jan Cejka <jan.cejka(zv)mensa(tec)cz> - 16.6.2000 08:24:57
Jinak je to v
HKEY_CURRENT_USER\Control Panel\Accessibility\KeyboardResponse
v polozce AutoRepeatRate.
Ale to by asi chodilo az po restartu Win.
---
S pozdravem,
Jan Cejka mailto:jan.cejka(zv)mensa(tec)cz
Puvodni zprava od Peter Luk�cs z Thursday, June 15, 2000, 2:06:33 PM:
PL> To je mi jasn�, ale jak to udelam z Delhi ?
PL> batex
PL> PS: za to formatovani se fsem omlouvam
Delphi, Mobilni telefon a SMS
[*] Roman LISZKA <liszak(zv)usa(tec)net> - 16.6.2000 08:25:10
Pavel.Blahovec(zv)atlas(tec)cz wrote:
>
> Hoj.
> Potrebuji udelat programek, ktery mi umozni posilat SMSky z pocitace. Mam
> mobilni telefon pripojeny kabelem k pocitaci a potreboval bych poradil, kde mam
> hledat potrebne informace nebo dokonce jiz hotove komponenty. Zabyval se tim
> nekdo? Ani by mi moc nevadilo, kdyby to fungovalo jen na urcity druh telefonu,
> treba Nokia.
Podle mne uz takovych programu je spousta, zkuste hledat na treba na
altaviste.
Pro Nokie existuje projekt na www.gnokii.org sice pod linux (i se
zdrojaky), ale jsou tam i odkazy na hromadu dalsich informaci.
>
> Poradi nekdo?
> diky
>
> Pavel Blahovec
> E-mail: pavel.blahovec(zv)atlas(tec)cz
--
================================================================
Ing. Roman LISZKA AplInt
mailto: webmaster(zv)www.hledam(tec)cz Dukelska 672
tel.: +420 659 334 621, +420 603 344611 739 61 Trinec 1
http://www.hledam(tec)cz Czech Republic
Nelze spustit D3 C/S - Sumarum
[*] Lauko �tefan <lauko(zv)salamon.sk> - 16.6.2000 08:30:18
Ahoj.
Ja som tento problem tiez mal.
Stacilo nastavit v ovl. pan. System / Vykon / Grafika - hardwarove
urychlovanie na hodn. "ziadne".
Od vtedy to slape D3,4,5.
Lauko.
----- Original Message -----
From: V�clav Hal�k <vhalik(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 15, 2000 1:00 AM
Subject: RE: Nelze spustit D3 C/S - Sumarum
> Zdravim,
>
> >Michal Piacka napsal :
> Stalo se mi to jenom na jednom pocitaci. Byly tam nainstalovane Windows 98
> CZ na jinych systemech to chodi (win98 SK, Win98 US, WIn95 *) Pomohlo
jenom
> preinstalovat operacni system
>
> >dale Jan Jochman napsal :
> Nic to nenapise, najede jen uvodni obrazek a tim to konci :-(
>
> >dale Ing. Lud�k Florian napsal :
> Cauec,
> Kdysi davno se tu psalo cosi o problemech s kartami S3. Neni to ono ?
>
> Takze, setkal sem se se stejnym problemem po instalaci graf. karty
> S3 Virge GX2-AGP 4MB (spis vergl nevim proc sem to kupoval).
> Pred ni jsem mel nekolik karet a bez problemu.
>
> Tu kartu jsem nainstaloval na Win 95 OSR 2, IE 4.01 CZ 80 MB RAM AMD 300.
> Zajimave bylo, ze to delalo uplne to same jak pan Jan Jochman popisuje,
> ovsem u v�ech verzi Delphi, skousel jsem Delphi 2,3,4 - vse C/S a nic
jenom
> stary Delphi 1 slo OK (to sem taky cekal).
> Po brutalnim zasahu do registru to sice nastartuvalo ale stratili se
> komponenty z palety a nic tam nebylo ani po pokusech je tam dostat.
>
> Problem jsem casteane sice obesel ale dost mi to vadi.
> Takze jsem nainstaloval Win NT 4.0 + SP a IE 4.01 a Delphi 2 - vysledek
> najelo to ale m�sto ikon komponent hnusn� cary. (jako zrneni u televize).
> Jinak vse chodilo. Delphi 3 ktere pouzivam jsou na tom lepsi a sice najede
> to ovsem ikony komponent jsou prehazene a k tomu jeste nahodne po startu.
> Pomuze jen minimalizovat Delphi do listy a zvisit barevnou hloubku v
> Ovladacich panelech, pak Delphi Maximalizovat a barevnou hloubku zase
snizit
> na High Color nebo Delphi pouzivat v True Color coz mi moc nepomuze.
>
> Skuste tedy nejprve vymenit Grafickou kartu za jinou znacku a pak pokud to
> nezabere reinstalovat kompletne system.
>
> PS : S3 je na ....
>
> V�clav Hal�k - Amat�rsk� program�tor
> vhalik(zv)es-servis(tec)cz, vhalik(zv)iol(tec)cz, vhalik(zv)centrum(tec)cz
>
>
>
>Bezpecnost programov
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 16.6.2000 08:36:12
Ja jsem to ve FANDu resil take a to timto zpusobem:
Pri kazdem spusteni programu se zkontroluje systemove datum a porovna se s
drive ulozenym datem (bylo ulozeno pri minulem ukonceni) a pokud je datum
pri ukonceni mensi nez syst. datum tak je tady pokus o "oblafnuti" programu
a ten povoli akorat zmenu systemoveho data. Tento zpusob ma vsak jednu
slabinu - a to je, ze uzivatel muze nastavit stale stejne datum a ono to
bude v poradku. Takze jsem pridal kontrolu a omezeni na max. pocet spusteni
v jeden den a je to vyresene.
Milan Tomes
> Ahojte,
>
> Nevie niekto, ako by sa dala spravit spolahliva trial verzia nejakeho
> mojho programu, ale nie tak, ze ked sa prestavi vo window$och
> cas, tak bude
> funkcna naveky...
>
> Dakujem
>
> Miso nnfapso(zv)kios.sk
>Dynamicka pole a canvas Was: Dinamicka pole.
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 16.6.2000 08:37:05
> Mam takovy problem : deklaruju dinamicke pole (array of TPoint) a toto
> pole potrebu zvetsovat. : setlength(pole,High(pole)+1000), problem
> nastava pokud pocet prvku tohoto poel preroste hodnotu 65535, pak funkce
> High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota muze byt
> max. 255 coz mi prijde jako absurdni. Nevite nekdo jak to funguje, tedy
> jak to dobre nadeklarovat ?
Kde ze jsi nasel ten limit ? Ja jsem nic takoveho nenasel. V aplikacich
bezne pouzivam tisice az desetitisice, ale zvladne to daleko vice, je to
pouze otazka pameti:
type T=record A:Byte;B:LongWord; end;
var C:array of T;
begin
SetLength(C,1000000);
Memo1.Lines.Add(IntToStr(Length(C)));
end;
> A jeste : nevite jak smazat Canvas ? Pokud na nejj neco nakreslim a
> chci to potom smazat, jak na to ? + jak docilit toho ze pokud nastavim
> hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala. Ja sem
> posunul okno mimo obrazovku a po navratu (refresh po jinem okne) se to
> nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
Canvas nema zadnou pamet a z rozlicnych duvodu svuj "obraz" zapomina
a ty jej musis pak znovu prekreslit (OnPaint, popr. WM_PAINT, OnDrawCell).
Pokud potrebujes kresbu ukladat pouzit TBitmap, kterou OnPaint obtisknes
na Canvas, nebo primo TImage.
Daniel
Dynamicka pole.
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 16.6.2000 09:00:30
S dynamickymi poli jsem delal a jsem si jist, ze jem tam nacpal i
kolem 1 milionu polozek - sice kratkych, ale jo, a fce High
vracela dobre. Podivej se, do jake promenne to davas, jestli to
neni nahodou Word.
A jinak k dyn. seznamu. neni treba vytvaret vlastni rutiny (viz.
predchozi maily). Existuje v Delphi hotova trida TCollection,
ktera POHODLNE a obsluhuje dyn. seznam polozek. Ty vytvoris jako
potomky tridy TCollectionItem a pak je pridavas do kolekce. Jde
tam pridavat, mazat, apod. Jinak na seznam se da pouzit i trida
TList.
**Dodo**
______________________________________________________________
> Od: root <vrabec(zv)pal.skm.vutbr(tec)cz>
> Komu: konference o delphi <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Fri, 16 Jun 2000 02:43:32 +0200
> P�edm�t: Dinamicka pole.
>
> Mam takovy problem : deklaruju dinamicke pole (array of TPoint)
a toto
> pole potrebu zvetsovat. : setlength(pole,High(pole)+1000),
problem
> nastava pokud pocet prvku tohoto poel preroste hodnotu 65535,
pak funkce
> High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota
muze byt
> max. 255 coz mi prijde jako absurdni. Nevite nekdo jak to
funguje, tedy
> jak to dobre nadeklarovat ?
>
> A jeste : nevite jak smazat Canvas ? Pokud na nejj neco
nakreslim a
> chci to potom smazat, jak na to ? + jak docilit toho ze pokud
nastavim
> hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala.
Ja sem
> posunul okno mimo obrazovku a po navratu (refresh po jinem
okne) se to
> nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
>
> HELP !
>
> J.
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
TDirectoryListBox
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 16.6.2000 09:05:59
TDirectoryListBox se mi moc nelibi, vypada jak vydlabanej z Win
3.1.
Ja bych si stahl z www.delphifreestuff.com komponentu BrowseDr,
to je std. prochazeni adresaru v 32-bit Win.
**Dodo**
______________________________________________________________
> Od: jof(zv)email(tec)cz
> Komu: delphi-l(zv)fwd(tec)cz
> CC:
> Datum: Fri, 16 Jun 2000 07:28:00 +0200 (CEST)
> P�edm�t: TDirectoryListBox
>
> Ahoj,
> v programu potrebuji prochazet jednotlive
> adresare, ale pomoci komponenty
> TDirectorylistBox se mi nedari dostat se do
> skrytych adresaru, konkretne do docasnych
> adresaru Internet Exploreru. Poradte prosim.
> -jof-
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Dynamicka pole.
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 16.6.2000 09:09:58
Nebo mne napadlo, ze Delphi pretypujou vysledek tvyho vypoctu
na Word (ten ma max. hodnotu 65535).
Zkus udelat toto - pretypovat na Integer - nebo pokud misto te
hodnoty 1000 pouzivas promennou, mela by byt integer nebo
LongWord:
setlength(pole,Integer(High(pole)+1000))
**Dodo**
______________________________________________________________
> Od: root <vrabec(zv)pal.skm.vutbr(tec)cz>
> Komu: konference o delphi <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Fri, 16 Jun 2000 02:43:32 +0200
> P�edm�t: Dinamicka pole.
>
> Mam takovy problem : deklaruju dinamicke pole (array of TPoint)
a toto
> pole potrebu zvetsovat. : setlength(pole,High(pole)+1000),
problem
> nastava pokud pocet prvku tohoto poel preroste hodnotu 65535,
pak funkce
> High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota
muze byt
> max. 255 coz mi prijde jako absurdni. Nevite nekdo jak to
funguje, tedy
> jak to dobre nadeklarovat ?
>
> A jeste : nevite jak smazat Canvas ? Pokud na nejj neco
nakreslim a
> chci to potom smazat, jak na to ? + jak docilit toho ze pokud
nastavim
> hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala.
Ja sem
> posunul okno mimo obrazovku a po navratu (refresh po jinem
okne) se to
> nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
>
> HELP !
>
> J.
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Dinamicka pole.
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 16.6.2000 09:11:42
Zkus to pres List. asi takto:
PPoint=^TPoint;
var p:PPoint; l:TList; point:TPoint;
l:=TList.Create;
new(p);
l.add(p);
point:=TPoint(l[0]^);
.
.
for i:=0 to l.count-1 do dispose(l[i]);
l.Free;
Je to pomale na mazani a vkaladani, ale rychle na cteni.
Slavek
>
> Mam takovy problem : deklaruju dinamicke pole (array of TPoint) a toto
> pole potrebu zvetsovat. : setlength(pole,High(pole)+1000), problem
> nastava pokud pocet prvku tohoto poel preroste hodnotu 65535, pak funkce
> High(pole) vraci nesmysl. Prevod kodovani cestiny
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 16.6.2000 09:11:51
Ja mam taky programek, delal jsem ho v Assembleru, takze je
celkem solidne rychly, ma tech kodovani 7+1
brat�� Kamenick�ch
Latin 2
Windows (1250)
ISO 8859-1
ISO 8859-2
KOI-8-�s
Macintosh
bez diakritiky
Umi p�evad�t i DBF (verze DBASE3, FOXPRO pro DOS) soubory.
Je k dispozici v sekci Download na mych strankach. Jmenuje se
Konvert.
http://molly.vabo(tec)cz/~dolezel/***Dodo***
______________________________________________________________
> Od: Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz>
> Komu: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Fri, 16 Jun 2000 07:45:18 +0200
> P�edm�t: RE: Prevod kodovani cestiny
>
> Ahoj,
>
> mam hotovy programek jeste v Pascalu 6.0 pod MS DOS, ktery umi
prevadet
> textove soubory v
> kodovani Kamenicky, Latin2, KOI8, Win 1250, ISO Latin.
>
> Pak mam funkci jeste ve FoxPro 2.6 pro MS DOS, ktera umi
prevadet textove
> retezce ve vyse uvedenych kodovanich.
>
> Chces neco z toho poslat ?
>
> Jolana
>
> -----P�vodn� zpr�va-----
> Od: Ond�ej Kolenat� [mailto:kolenaty(zv)supreme(tec)cz]
> Odesl�no: 15. �ervna 2000 16:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Prevod kodovani cestiny
>
>
> Nezna nekdo nejakou unit ktera umi prevadet stringy z
jednotlivych kodovych
> stranek do jinych. napr: Kamenik --> Latin 2
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Prevod kodovani cestiny
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 16.6.2000 09:32:00
hledej na http://www.micrel(tec)cz/delphi/
Pavel
----- Original Message -----
From: Ond�ej Kolenat� <kolenaty(zv)supreme(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 15, 2000 4:41 PM
Subject: Prevod kodovani cestiny
> Nezna nekdo nejakou unit ktera umi prevadet stringy z jednotlivych
kodovych
> stranek do jinych. napr: Kamenik --> Latin 2
>Handle a PostMessage
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 16.6.2000 09:33:25
Ahoj lidi.
Mam tento problem. Do editacniho okenka jine aplikace potrebuji zapsat
text a nasledne zmacknout klavesu OK. Handle prislusneho okna znam. Je
mozne poslat text primo do tohoto editacniho okenka aniz bych pouzival
PostMessage(ghwnd,WM_KEYDOWN ,VK_TAB ,0);
PostMessage(ghwnd,WM_KEYUP ,VK_TAB ,0);
k nastaveni na edit.
Nasledne jak je mozne zjistit to, ze tlacitko OK lze stisknout - neni
sede. Kdyz poslu
PostMessage(ghwnd,WM_KEYDOWN ,VK_RETURN ,0);
PostMessage(ghwnd,WM_KEYUP ,VK_RETURN ,0);
a tlacitko je sede tak se stiskne jine.
A uplne posledni vec. Po stisku cekam na odezvu aplikace - ma zobrazit
dialog.
Nelibi se mi, zarazovat neco jako
sleep(xy);
je mozne nejak zjistit, ze pozadovany dialog je uz vytvoreny?
Predem vsem dekuji Jirka
Dinamicka pole.
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 16.6.2000 10:01:39
A nebylo by lepsi pouzit uz hotovou komponentu TList, do ktere se da
odkazovat indexem a jak to funguje vevnitr ti muze bejt uplne jedno...
:-)
Bosnis wrote:
>
> K dynamickemu poli:
>
> type
>
> PPole = ^TPole
> TPole = record
> bod:TPoint;
> next:PPole;
> prev:PPole; - nemusi byt jen jestli to bude nutne pro > rychlejsi prochazeni
> end
>
> var
> CPos,CBase:PPole; {ukazatele na aktualni hodnotu a prvni polozku}
>
> ....
--
Martin Pesava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/pomale spravy
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 16.6.2000 10:03:59
Ja mam stejny problem, i prodlevy jsou zhruba na stejne urovni. Taky
se mi stava, ze odpoved (nebo nekolik odpovedi) na zpravu prijde driv,
nez samotna zprava. Ale predpokladam, ze jadro problemu je stejne.
Jirka
QuickReport
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 16.6.2000 10:18:45
zeptam se jeste jednou:
QuickReport si vytvari v tempu docasny soubor qrp*.tmp a pokud neni na disku
dost mista dojde k totalnimu krachu - jde to
nejak inteligentne osetrit ? - ted nemyslim try/except protoze to by prave
nedoslo ke smazani toho qrp*.tmp
M.
Prevod kodovani cestiny
[*] Marek Prochazka <prochazka(zv)jumbo.ped.muni(tec)cz> - 16.6.2000 08:48:16 met
... tak uz jsem to donesl. Je potreba, aby ty jednotlive soubory co
jsou v raru byly ve stejnem adresari, tyto soubory Ti taky pomohou,
pokud si chces prekladac vytvorit sam. soubor prekladac.jouda prepis
na prekladac.exe a v nem si ty prevody muzes vyzkouset. Je to opravdu
pripravna verze, tak to moc nehodnot.... hlavne ne zaporne .... :0)
...pokud bys chtel zdrojaky, tak napis soukrome na
prochazka(zv)jumbo.ped.muni(tec)cz
Marek
Delphi, Mobilni telefon a SMS
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 16.6.2000 10:49:56
Ahoj,
pro NOKIA a NCDS existuje rozsirena sada AT prikazu. Ty umoznuji
posilat a cist SMS a j. Jestli chces, poslu.
Vaclav Sazima
> > Hoj.
> > Potrebuji udelat programek, ktery mi umozni posilat SMSky z pocitace. Mam
> > mobilni telefon pripojeny kabelem k pocitaci a potreboval bych poradil, kde mam
> > hledat potrebne informace nebo dokonce jiz hotove komponenty. Zabyval se tim
> > nekdo? Ani by mi moc nevadilo, kdyby to fungovalo jen na urcity druh telefonu,
> > treba Nokia.Dinamicka pole.
[*] root <vrabec(zv)pal.skm.vutbr(tec)cz> - 16.6.2000 11:03:40
Tak dobre, pokud je pravda ze max hodnota pro funkci setlength je 255 (viz.
help) pak by mne dost zajimalo k cemu je tekove pole do ktereho muzu dat
max. 255 prvku. Sorry ale to si ho udelam staticke (255 prvku v dinamickem
je tak pole pro srandickare co nevi c o roupama) A to se mi nezda.
Jirka.
Polak Jiri wrote:> -----P�vodn� zpr�va-----
> > Od: root [mailto:vrabec(zv)pal.skm.vutbr(tec)cz]
> > Odesl�no: 16. �ervna 2000 2:44
> > Komu: konference o delphi
> > P�edm�t: Dinamicka pole.
> >
> >
> > Mam takovy problem : deklaruju dinamicke pole (array of TPoint) a toto
> > pole potrebu zvetsovat. : setlength(pole,High(pole)+1000), problem
> > nastava pokud pocet prvku tohoto poel preroste hodnotu 65535,
> > pak funkce
> > High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota muze byt
>
> Tak proc se divis, ze to nefunguje pri daleko
> vyssi hodnote nez je uvedena v helpu jako maximalni?
>
> > max. 255 coz mi prijde jako absurdni.
>
> Co je na tom absurdniho? Je to vlastnost jazyka a nic
> s tim nenadelas, at se ti to libi nebo ne.
>
> > Nevite nekdo jak to
> > funguje, tedy
> > jak to dobre nadeklarovat ?
>
> ???
> O co ti jde? Myslis, ze nejakym zpusobem docilis, abys mel
> v poli vice prvku nez kolik je do nej mozne nacpat?
> Jestli chces neco takoveho, tak si asi budes muset vzit
> blok pameti a spravovat si ho sam. Nebo si udelat zretezeny
> seznam. Ale nemuzes pouzit array. At uz dYnamicky nebo
> staticky
>
> Jura
Canvas.
[*] root <vrabec(zv)pal.skm.vutbr(tec)cz> - 16.6.2000 11:06:36
>
Nevite jak smazat Canvas ? Pokud na nejj neco nakreslim a chci to potom
smazat, jak na to ? + jak docilit toho ze pokud nastavim
hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala. Ja sem
posunul okno mimo obrazovku a po navratu (refresh po jinem okne) se to
nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
J.Handle a PostMessage
[*] Libor Junek <libor(zv)thsoft(tec)cz> - 16.6.2000 11:36:31
Je
> mozne poslat text primo do tohoto editacniho okenka aniz bych pouzival
> PostMessage(ghwnd,WM_KEYDOWN ,VK_TAB ,0);
> PostMessage(ghwnd,WM_KEYUP ,VK_TAB ,0);
> k nastaveni na edit.
SetWindowText
> A uplne posledni vec. Po stisku cekam na odezvu aplikace - ma zobrazit
> dialog.
> Nelibi se mi, zarazovat neco jako
> sleep(xy);
> je mozne nejak zjistit, ze pozadovany dialog je uz vytvoreny?
FindWindow
Libor Junek
Nastaveni klavesnice
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 16.6.2000 11:45:05
Zdravim,
v helpu jsem k SystemParametersInfo(); nasel prikazy pro cteni a nastaveni
rychlosti opakovani a zpozdeni opakovani, ale tento ukon zpusobi chybu:
Access violation at sddress 00402B7A in module 'name.exe'. Read of address
FFFFFFFDC ...
procedure TForm1.Button1Click(Sender: TObject);
var dw: dword;
p: pointer;
begin
SystemParametersInfo(SPI_GETKEYBOARDDELAY,dw,p,0);
edit1.Text:= inttostr(dw);
end;
Kdyz pouziju prikaz pro nastaveni
SystemParametersInfo(SPI_SETKEYBOARDDELAY,xxx,p,0);
tak se vubec nic nedeje. At nastavim za xxx jakekoliv cislo, klavesnice se
chova porad stejne.
SPI_GET/SETKEYBOARDSPEED se objevuje podobna chyba (stejna jen s jinymi
cisly).
Za pomoc predem dik
Batex
Dinamicka pole.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.6.2000 11:49:20
On 16 Jun 2000, at 2:43, root wrote:
> Mam takovy problem : deklaruju dinamicke pole (array of TPoint) a toto
> pole potrebu zvetsovat. : setlength(pole,High(pole)+1000), problem
> nastava pokud pocet prvku tohoto poel preroste hodnotu 65535, pak
> funkce High(pole) vraci nesmysl. Navic v helpu je uvedeno ze hodnota
> muze byt max. 255 coz mi prijde jako absurdni. Nevite nekdo jak to
> funguje, tedy jak to dobre nadeklarovat ?
Zkus se inspirovat tim, jak je udelan TList.
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
Dynamicka pole.
[*] Milan Kostka <mkostka(zv)foresta(tec)cz> - 16.6.2000 12:14:38
>setlength(pole,High(pole)+1000),
var
pole : array of TPoint;
setlength(pole,Length(pole)+1000),
MK
Re[2]: Dynamicka pole.
[*] Jan Cejka <jan.cejka(zv)mensa(tec)cz> - 16.6.2000 12:42:34
nebo taky setlength(pole,Integer(High(pole))+1000)
--
S pozdravem,
Jan Cejka mailto:jan.cejka(zv)mensa(tec)cz
Vase mys se pohnula. Windows NT nyni musi restartovat, aby se zmena mohla projevit. Restart? Ano/Ne
Puvodni zprava od Ladislav Dole�el z Friday, June 16, 2000, 9:09:58 AM:
LD> setlength(pole,Integer(High(pole)+1000))
Re[2]: Bezpecnost programov
[*] Jan Cejka <jan.cejka(zv)mensa(tec)cz> - 16.6.2000 12:46:12
Hmm, a co logovat a kontrolovat krome datumu jeste cas ukonceni.
To by se s nastavovanim stejneho datumu nekdo asi nechytal.
--
S pozdravem,
Jan Cejka mailto:jan.cejka(zv)mensa(tec)cz
Windows 98 supports real multitasking - it can boot and crash simultaneously.
Puvodni zprava od Milan Tome� z Friday, June 16, 2000, 8:36:12 AM:
MT> Ja jsem to ve FANDu resil take a to timto zpusobem:
MT> Pri kazdem spusteni programu se zkontroluje systemove datum a porovna se s
MT> drive ulozenym datem (bylo ulozeno pri minulem ukonceni) a pokud je datum
MT> pri ukonceni mensi nez syst. datum tak je tady pokus o "oblafnuti" programu
MT> a ten povoli akorat zmenu systemoveho data. Tento zpusob ma vsak jednu
MT> slabinu - a to je, ze uzivatel muze nastavit stale stejne datum a ono to
MT> bude v poradku. Takze jsem pridal kontrolu a omezeni na max. pocet spusteni
MT> v jeden den a je to vyresene.
MT> Milan Tomes
Rimska cisla
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 16.6.2000 13:08:17
>> Zkus se podivat na funkce IntToRoman a RomanToInt z RXLib. Jsou v unite
>> StrUtils.pas
> neni to spatna funkce ale neresi to muj problem. Na zadani CCCC vypocita
>400 a MIM 1999, coz neresi mou snahu dopidit se urciteho standardu pri
>syntaxi Rimskych cisel. Podle me by to melo vyhodit hlasku, ze TUDY NE,
>PRATELE. Presto dekuji.
Ja bych kvuli tomu nedelal svoji proceduru, ale preci jen bych pouzil to
RxLib:
SpravnyText := IntToRoman(RomanToInt(Trim(UzivatelemZadanyText)));
if not SameText(SpravnyText, Trim(UzivatelemZadanyText)) then
TudyNePrateleMsg;
Pavel Kriz
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel./fax: 02/ 6891 444
http://www.tds-technik(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Straka Josef
Sent: Thursday, June 08, 2000 10:48 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Rimska cisla
Ahoj,
> Zkus se podivat na funkce IntToRoman a RomanToInt z RXLib. Jsou v unite
> StrUtils.pas
>
> Rosta
neni to spatna funkce ale neresi to muj problem. Na zadani CCCC vypocita
400 a MIM 1999, coz neresi mou snahu dopidit se urciteho standardu pri
syntaxi Rimskych cisel. Podle me by to melo vyhodit hlasku, ze TUDY NE,
PRATELE. Presto dekuji.
Zat�m se m�j moc p�kn�.
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
> > From: "Straka Josef" <strakaj(zv)hba(tec)czn(tec)cz>
> > > Jestli nekdo vite o pravidlech pro zapis rimskych cisel, dejte,
prosim,
> > > vedet.
Eventy databaze
[*] Such�nek Luk� <Lukas.Suchanek(zv)merlin(tec)cz> - 16.6.2000 13:47:40
Ave,
sef ted po me chce neco, o cem mnoho nevim ...
Mam databazi ... v ni nejakou tabulku .. a chtel bych aby moje
aplikace byla informovana o tom, ze se neco v tabulce zmenilo. Da se to
resit nejakym Timerem a checkovanim tabulky, pripadne hodnoty v jedne radce
.. ale pokud mam rekneme 100 klientskych pocitacu, ktere si toto checkuji,
uz to bude vytvaret nejakou nenulovou zatez na databazi.
Pouzivame tu Oracle 7.3 (vyhledove 8.1.5), Delphi 5.0, a W98 ci NT
4.0
Predem dekuji za pripadne napady ...
/ Lukas Suchanek
----- Lukas Suchanek ----- 0602 / 844 355 -----
Canvas.
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 16.6.2000 14:15:57
> jak docilit toho ze pokud nastavim
> hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala. Ja sem
> posunul okno mimo obrazovku a po navratu (refresh po jinem okne) se to
> nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
pokud krelis na formular tak ten ma metodu OnPaint a tam musis dat vsechny
vykreslovaci rutiny,
jinak se ti to vzdy pri prekresleni (repaint) smaze.SetWindowPos
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 16.6.2000 14:22:07
Vazeni,
cvicne jsem si napsal aplikaci, ktera mi pripomina akce, vazane na
konretni cas. Pripominka je opakovane doprovazena zvukem,
dokud neuzavru modalni okno. Prislusny usek je naspan takto:
// M� se hl�sit nejbliz�� hl�dan� akce?
if AlarmTime<=Nyni then begin
//zvukov� upozorneni- opakuje se, dokud nestisknu OK v okne
//frmUpozorneni.
PlaySound(PChar('Charge.wav'),0,snd_Async or snd_Loop);
frmUpozorneni:=TfrmUpozorneni.Create(self);
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,
SWP_NOMOVE or SWP_NOSIZE or
SWP_SHOWWINDOW);
with frmUpozorneni do begin
edDatum.Text:=DateToStr(AlarmTime);
edCas.Text:=TimeToStr(AlarmTime);
edZprava.Text:=AlarmZprava;
ShowModal;
PlaySound(nil,0,0); //vyp�n� zvukov� upozorneni na akci
Free;
end;
end;
Problem je v tom, ze po uzavreni formulare 'frmUpozorneni' jiz
nemohu minimalizovat hlavni formular aplikace. Budu vdecny za
radu, co s tim podniknout.
===================================================
ing. Jan Plisek e-mail:plisek(zv)spse(tec)cz
SPSE a VOS tel. (040) 6614788-9
Karla IV. 13 fax. (040) 6614763
531 69 PARDUBICE WEB: http://www.spse(tec)cz
Czech Republic
===================================================Eventy databaze
[*] voltrr1.epr(zv)mail.cez(tec)cz - 16.6.2000 14:05:17
Zdar,
osobne bych to neresil eventama (nepojede ti app a asi se to nedovis) ale na tu
tabulku
bych zkusil hodit trigger ktery po insertu a updatu zapise log do nejake jine
tabulky ( a tu
si pak v Delphi muzes zkoumat)
Radek Voltr
> Ave,
> sef ted po me chce neco, o cem mnoho nevim ...
> Mam databazi ... v ni nejakou tabulku .. a chtel bych aby moje
> aplikace byla informovana o tom, ze se neco v tabulce zmenilo. Da se to
> resit nejakym Timerem a checkovanim tabulky, pripadne hodnoty v jedne radce
> .. ale pokud mam rekneme 100 klientskych pocitacu, ktere si toto checkuji,
> uz to bude vytvaret nejakou nenulovou zatez na databazi.
> Pouzivame tu Oracle 7.3 (vyhledove 8.1.5), Delphi 5.0, a W98 ci NT
> 4.0
> Predem dekuji za pripadne napady ...
Dinamicka pole.
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 16.6.2000 15:09:06
Ahoj
help sice tvrdi ze maximalna hodnota je 255 ale len pre SHORT STRINGy !!!
tzn. pre stare paskalacke retazce.
V pripade LONG_STRINGov a dynamickych poli moze byt ich max. velkost +/- 2Gb :)))
Tomas.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> root
> Sent: Friday, June 16, 2000 11:04 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Dinamicka pole.
>
>
> Tak dobre, pokud je pravda ze max hodnota pro funkci
> setlength je 255 (viz.
> help) pak by mne dost zajimalo k cemu je tekove pole do
> ktereho muzu dat
> max. 255 prvku. Sorry ale to si ho udelam staticke (255 prvku
> v dinamickem
> je tak pole pro srandickare co nevi c o roupama) A to se mi nezda.
>
> Jirka.
> Eventy databaze
[*] Such�nek Luk� <Lukas.Suchanek(zv)merlin(tec)cz> - 16.6.2000 15:31:51
> osobne bych to neresil eventama (nepojede ti app a asi se to
> nedovis) ale na tu
> tabulku
> bych zkusil hodit trigger ktery po insertu a updatu zapise
> log do nejake jine
> tabulky ( a tu
> si pak v Delphi muzes zkoumat)
Hmm fajn diky za ochotu, nicmene pozorzuji, ze jsem se vyjadril
spatne .. triggery nejsou to, co bych neumel nebo neznal .. mam aplikaci,
uzivatel prohlizi tabulku .. a ja potrebuju vedet ze se mu v ty tabulce
zmenily udaje a ze je zapotrebi refresh.
Neustale checkovani toho ci ono bude dost vytezovat at uz databazi
ci vlastni aplikaci .. proste by se mi libilo, aby si aplikace mohla
pospavat a pokud ji dojde zpravicka, ze je treba refresh, tak aby si ho
provedla.
Neni az zase takovy problem to vyresit oklikami, ale bylo by pekne
to vyresit co nejoptimalneji. Kdyz chci byt informovan o verzi nejakeho
noveho programu, tak se prihlasim na jejich mail list, misto toho, abych se
kazdy den chodil koukat na jejich stranky, jestli to tam uz neni ...
/ Lukas Suchanek
SetWindowPos
[*] stingp1.eti(zv)mail.cez(tec)cz - 16.6.2000 14:32:58
>frmUpozorneni:=TfrmUpozorneni.Create(self);
>
>SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,
> SWP_NOMOVE or SWP_NOSIZE or
>SWP_SHOWWINDOW);
> with frmUpozorneni do begin
> edDatum.Text:=DateToStr(AlarmTime);
> edCas.Text:=TimeToStr(AlarmTime);
> edZprava.Text:=AlarmZprava;
> ShowModal;
> PlaySound(nil,0,0); //vyp�n� zvukov� upozorneni na akci
> Free;
> end;
> end;
>
>Problem je v tom, ze po uzavreni formulare 'frmUpozorneni' jiz
>nemohu minimalizovat hlavni formular aplikace. Budu vdecny za
>radu, co s tim podniknout.
No, predpokladam, ze cela metoda uvedena vyse je v hlavnim formulari,
tudiz Handle v SetWindowPos neukazuje na okno se zpravou, ale na hlavni
formular programu. Cili nastavite pro hlavni okno parametry NOMOVE & NOSIZE,
cimzto se s nim pak neda hybat. Problem resi SetWindowPos(frmUpozorneni.Handle,
...
Elementarni, mily Watsone ;)
Pavel Stingl
Eventy databaze
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 16.6.2000 16:00:04
> From: Such�nek Luk� [SMTP:Lukas.Suchanek(zv)merlin(tec)cz]
>
> aplikace byla informovana o tom, ze se neco v tabulce zmenilo. Da se to
> resit nejakym Timerem a checkovanim tabulky, pripadne hodnoty v jedne
> radce
> .. ale pokud mam rekneme 100 klientskych pocitacu, ktere si toto checkuji,
> uz to bude vytvaret nejakou nenulovou zatez na databazi.
> Pouzivame tu Oracle 7.3 (vyhledove 8.1.5), Delphi 5.0, a W98 ci NT
> 4.0
> Predem dekuji za pripadne napady ...
>
>
Oracle vie posiela� DBMS_Alert, a ten bude� posiela� z trigra nad
tabu�kami
JJ
Eventy databaze
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 16.6.2000 17:01:10
vim, ze Ti tim asi nepomuzu, kdyz pouzivate Oracle, ale InterBase tohle presne
umi
Such�nek Luk� wrote:
> Hmm fajn diky za ochotu, nicmene pozorzuji, ze jsem se vyjadril
> spatne .. triggery nejsou to, co bych neumel nebo neznal .. mam aplikaci,
> uzivatel prohlizi tabulku .. a ja potrebuju vedet ze se mu v ty tabulce
> zmenily udaje a ze je zapotrebi refresh.
> Neustale checkovani toho ci ono bude dost vytezovat at uz databazi
> ci vlastni aplikaci .. proste by se mi libilo, aby si aplikace mohla
> pospavat a pokud ji dojde zpravicka, ze je treba refresh, tak aby si ho
> provedla.
> Neni az zase takovy problem to vyresit oklikami, ale bylo by pekne
> to vyresit co nejoptimalneji. Kdyz chci byt informovan o verzi nejakeho
> noveho programu, tak se prihlasim na jejich mail list, misto toho, abych se
> kazdy den chodil koukat na jejich stranky, jestli to tam uz neni ...
>
> / Lukas Suchanek
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Canvas.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.6.2000 17:09:49
On 16 Jun 2000, at 11:06, root wrote:
> Nevite jak smazat Canvas ? Pokud na nejj neco nakreslim a chci to
> potom smazat, jak na to ? + jak docilit toho ze pokud nastavim hodnotu
> pixelu na cavasu aby tam ta barva tam skutecne zustala. Ja sem posunul
> okno mimo obrazovku a po navratu (refresh po jinem okne) se to
> nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
Canvas.FillRect.
Pokud chces nejakou barvu, nastav Canvas.Brush.Color.
Pokud chces, aby se obrazek obnovil, dej malovani napriklad do
Form.OnPaint.
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
Dinamicka pole.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.6.2000 17:09:49
On 16 Jun 2000, at 11:03, root wrote:
> Tak dobre, pokud je pravda ze max hodnota pro funkci setlength je 255
> (viz. help) pak by mne dost zajimalo k cemu je tekove pole do ktereho
> muzu dat max. 255 prvku. Sorry ale to si ho udelam staticke (255 prvku
> v dinamickem je tak pole pro srandickare co nevi c o roupama) A to se
> mi nezda.
Precti si poradne ten help.
"For a __short-string__ variable, SetLength simply sets the length-
indicator character (the character at S[0]) to the given value. In this
case, NewLength must be a value between 0 and 255."
Prelozeno do cestiny, toto omezeni plati pro typ shortstring.
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
Handle a PostMessage
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.6.2000 17:09:49
On 16 Jun 2000, at 9:33, Jiri Novacek wrote:
> Mam tento problem. Do editacniho okenka jine aplikace potrebuji zapsat
> text a nasledne zmacknout klavesu OK. Handle prislusneho okna znam. Je
> mozne poslat text primo do tohoto editacniho okenka aniz bych pouzival
> PostMessage(ghwnd,WM_KEYDOWN ,VK_TAB ,0); PostMessage(ghwnd,WM_KEYUP
> ,VK_TAB ,0); k nastaveni na edit.
Zjisti si handle primo toho editu.
> A uplne posledni vec. Po stisku cekam na odezvu aplikace - ma zobrazit
> dialog. Nelibi se mi, zarazovat neco jako sleep(xy); je mozne nejak
> zjistit, ze pozadovany dialog je uz vytvoreny?
Viz TScreen.Forms.
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
CreateFile,ReadFile - priklad
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 16.6.2000 18:10:36
Dobry,
nasledujici procedura na CloseHandle vytuhne, a jiz nevim co s ni.
Nebo nemeli byste chodivy pascal priklad pro cteni bin. souboru s pouzitim
CreateFile,ReadFile ?
procedure NactiTable1(Name: string;P:pointer);
var F: file;
FileHandle: THandle;
Size,NumBytes: dword;
begin
FileHandle := CreateFile(PChar(Name), GENERIC_READ,
FILE_SHARE_READ+FILE_SHARE_WRITE+FILE_SHARE_DELETE,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, 0);
try
Size:= GetFileSize(FileHandle,nil);
GetMem(P,Size);
ReadFile(FileHandle,P,Size,NumBytes,nil);
finally
CloseHandle(FileHandle);
end;
end;
Jarda Kulheim
Oznacenie riadku DBGride.
[*] Miroslav Hro��o�����,�(�j�Z��3 - 16.6.2000 19:58:13
Dobry,
Potreboval by som poradit ako oznacit dany riadok inou farbou.
Potreboval by som to vo funkcii OnClik zvyrazdnit dany riadok inou farbou a mat ho stale oznaceny danou farbou az dovtedy kym nanho znova nekliknem.
Pracujem v D5, Adonis, Win98.
Miro.KCB error
[*] Lud�k P�ral - 16.6.2000 21:18:47
Vazeni
nemate nekdo zkusenosti s hlaskou "KCB Error�" (objevi se po ukon�en�
aplikace Delphi a restartu PC )
Ludek Paral
Sadov� 2/503
352 01 A�
ludek.paral(zv)telecom(tec)cz
Eventy databaze
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 16.6.2000 21:28:18
V Oracle je neco co se jmenuje dbms_alert
a pouziva se to v trigrech asi takto:
dbms_alert.signal('devicelog', 'zprava 1');
Pak existuje SQL prikaz, ktery ceka, nez nastane pozadovana udalost -> musel by byt
v pomocnem threadu.
Vice v OnLine dokumentaci k Oracle.
Slavek
> > Ave,
> > sef ted po me chce neco, o cem mnoho nevim ...
> > Mam databazi ... v ni nejakou tabulku .. a chtel bych aby moje
> > aplikace byla informovana o tom, ze se neco v tabulce zmenilo. Da se to
> > resit nejakym Timerem a checkovanim tabulky, pripadne hodnoty v jedne radce
> > .. ale pokud mam rekneme 100 klientskych pocitacu, ktere si toto checkuji,
> > uz to bude vytvaret nejakou nenulovou zatez na databazi.
> > Pouzivame tu Oracle 7.3 (vyhledove 8.1.5), Delphi 5.0, a W98 ci NT
> > 4.0
Generovani tabulky HTML
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 17.6.2000 23:16:42
Ahoj,
nevite nekdo o necem cim bych mohl
programove vygenerovat tabulku HTML ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
OnChange v Editu
[*] Pavel �ern� - 18.6.2000 10:23:58
Zdravim vsechny.
Snazim se pomoci obsluhy udalosti OnChange v Editu
docilit prubezne dohledavani v tabulce po kazdem stisku
klavesy. V zasade to funguje. Kdyz to ale doladuji do krasy,
narazim na jeden problem :
- Text od aktualni pozice do konce mam Selected
- Chci, aby se pri stisku klavesy tento kus nahradil
tim jednim novym znakem a pro vysledek teto operace
se znovu provedlo dohledani
Problem
je v tom, ze udalost OnChange se mi zavola dvakrat. Poprve
kdyz se vymaze ta vyselektovana cast, podruhe, kdyz se tam
dosadi novy znak.
To mi vsak vadi, protoze ja na tu prvni cast (smazani selected)
reagovat nechci.
Nevim, jak mam v me procedure, ktera udalost obsluhuje, poznat,
ze se prave smazal selected text (a ja na to mam kaslat) a ze vzapeti
dostanu sanci reagovat na ten novy stav (i s doplnenym novym
znakem).
Jinymi slovy - potreboval bych
- aby obsluha udalosti byla zavolana az pro vysledny stav
( coz asi nedocilim
nebo
- poznat, ze se jedna o tuto situaci a ja uz se podle toho zaridim.
Pomuze nekdo ? Diky.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Dokoncovani Edit
[*] Rommet <rommet(zv)post(tec)cz> - 18.6.2000 11:30:17
Ahoj konference,
nemate nekdo zkusenosti s dokoncovani textu v TEdit, daty s database.
Priklad:
Mam komponentu Edit a databasi PSC (asi 15000 zaznamu)
Kdyz zacinam psat v Edit nazev obce tak se mi automaticky vpise prvni shodny s database PSC, napisu druhy znak atd...
Jemi celkem jasne jak by to bylo ale je to dense pomale.
Zatim ro resim pres TQuery a SQL( SELECT obec, psc from PSC where obec like "%"). Nevite nekdo jak by se to dalo udelat aby to probihalo rychleji (p�. ne za 3s ale za 0.1s).
Diky za vse david
SetWindowPos
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 18.6.2000 22:10:19
> Problem je v tom, ze po uzavreni formulare 'frmUpozorneni'
> jiz nemohu minimalizovat hlavni formular aplikace. Budu
> vdecny za radu, co s tim podniknout.
S timhle jsem se take setkal, ale nedokazu ti konretne poradit
jak to osetrit. Problem je v tom, ze po pouziti WinAPI funkce
se ti rozejde promenne VCL WindowState se skutecnym
stavem okna ve windows. Zkratka VCL si stale mysli ze
okno je puvodnim stavu, takze pozadavek ignoruje. Asi nej-
jednodussi jak se toho zbavit je, nepouzivat WinAPI pro
zmenu stavu okna.
Daniel
DLL vs TImage
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.6.2000 22:28:40
From: "Lubos Dusanic" <lubos(zv)iname.com>
> mam nasledovny problem- z exe modulu volam dll a v nej potrebujem vytvorit
> timage tak, aby sa zobrazil na formulari "patriacom" do exe modulu. stale mi
> to vsak hadze "access violation" a nejak neviem prist na to, kde je chyba.
Pokud chces predavat objekty mezi aplikaci a DLL, tak musis jak aplikaci i DLL
prelozit s balicky.
Petr Vones, amatersky programator
ComboBox a Cursor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.6.2000 22:28:59
From: "Tomas Bihary" <tomas(zv)wige-mic(tec)cz>
> Narazil jsem na problemek s comboboxem.
> A sice kdyz pro TComboBox nastavim nejaky
> kursor mysi a style je csDropDown, projevi se
> toto nastaveni jen pro uzkou oblast ramecku a
> policko se sipkou. Oblast pro editaci ma stale
> crlBeam. Totez se deje i u ScrollBaru napr. u
podle mne je to tak spravne. ComboBox je vlastne 'kombinovany', tedy obsahuje
i edit a ten ma vzdy crBeam kurzor.
Petr Vones, amatersky programator
Zabirani systemovych prostredku (podruhe)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.6.2000 22:28:46
From: "Pavel �ern�" <cerny(zv)cerny-ps(tec)cz>
> Stahl jsem si to a trochu si hral se SpeedButtony.
> Dosel jsem k nasledujicim vecem, test je vzdy na
> 40 instanci ( 5 x 8 ) :
>
> - tak jak to demo je v originale, pouziva se tam
> Glyph.LoadFromResourceName(HInstance, 'BUTTON1');
> a sezere to 4% SYS, 4% GDI, 0% USR
To zhruba souhlasi. Ucelem je nasimulovat stejne chovani jako kdyz se
speedbuttony nahravaji z DFM.
> - kdyz si udelam "vzorovy speedbutton" s obrazkem a
> z nej kopiruji
> SpeedButton.Glyph := SpeedButtonVzor.Glyph;
> tak to nezere prakticky nic. Tedy myslim tim pri nasobnem
> pouziti. Predpokladam, ze neco sezral sam vzorovy speedbutton.
V tomto pripade se bitmapy sdileji (coz se ale nedeje, pokud mas na
formulari treba 100 speedbuttonu se stejnym obrazkem, viz nahore),
takze ten problem neni tak vyrazny.
Pokud nepotrebujes balicky, tak staci aplikovat tu upravu a melo by se
to trochu zlepsit.
Petr Vones, amatersky programator
sprava pameti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.6.2000 22:28:22
From: "Robert Lufinka" <r.lufinka(zv)sh.cvut(tec)cz>
> Chci se zeptat jak je to s funkcemi pro pridelovani pameti.
> Jaky je rozdil mezi GetMem a Allocmem ?
AllocMem vola uvnitr GetMem a alokovanou pamet vyplni nulami.
Petr Vones, amatersky programator
Nelze spustit D3 C/S - Sumarum
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.6.2000 22:29:02
From: "Lauko �tefan" <lauko(zv)salamon.sk>
> Ja som tento problem tiez mal.
> Stacilo nastavit v ovl. pan. System / Vykon / Grafika - hardwarove
> urychlovanie na hodn. "ziadne".
Hm, akorat ze je to pak ponekud pomale ;-) Spise je dobre se podivat na
stranky vyrobce dane videokarty a stahnout si nejnovejsi drivery. Nikdy
never tem co jsou primo ve Windows nebo na prilozenem CD. Dost starosti
si lze take usetrit nekupovanim kdejakeho srotu (SiS, Rendition apod.)
Dale muze byt problem na Win95/NT4 v zastarale knihovne COMCTL32.DLL,
nejnovejsi verze najdes tady:
http://www.microsoft.com/msdownload/ieplatform/ie/comctrlx86.asp
Petr Vones, amatersky programator
CreateFile,ReadFile - priklad
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.6.2000 22:29:06
From: "Jaroslav KULHEIM" <kulheim(zv)fitness(tec)cz>
> nasledujici procedura na CloseHandle vytuhne, a jiz nevim co s ni.
> Nebo nemeli byste chodivy pascal priklad pro cteni bin. souboru s pouzitim
> CreateFile,ReadFile ?
> ReadFile(FileHandle,P,Size,NumBytes,nil);
^ - tady by melo byt spise P^
Jinak me prijde ze si to prilis komplikujes, proc nepouzijes TFileStream
nebo TMemoryStream. Pro cteni velkych souboru je ale tento zpusob pomerne
nevyhodny, lepsi je pouzit mapovani souboru do pameti.
Petr Vones, amatersky programator
Generovani tabulky HTML
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.6.2000 22:29:25
From: "Pavel Malinsk�" <spiderland(zv)iol(tec)cz>
> nevite nekdo o necem cim bych mohl
> programove vygenerovat tabulku HTML ?
Kazdopadne ji muzes generovat primo programove, zapisem do streamu apod.
Patrne budes chtit ale generovat neco z databaze, pokud mas Enterprise
tak tam na to najdes komponenty. Jinak se podivej treba na WebProvider
(http://delphree.clexpert.com/pages/projects/webprovider/).
Petr Vones, amatersky programator
Generovani tabulky HTML
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 18.6.2000 23:05:10
> -----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, June 18, 2000 10:29 PM
> To: Konference Delphi
> Subject: Re: Generovani tabulky HTML
>
> From: "Pavel Malinsk�" <spiderland(zv)iol(tec)cz>
> > nevite nekdo o necem cim bych mohl
> > programove vygenerovat tabulku HTML ?
>
Ahoj,
> Kazdopadne ji muzes generovat primo programove, zapisem do streamu apod.
Tak jsem si to predstavoval.
> Patrne budes chtit ale generovat neco z databaze,
Ne z databaze, bude to jen obsah StringGridu
preklopeny do souboru html k prohlizeni pres
prohlizec.
>pokud mas Enterprise tak tam na to najdes komponenty.
Zapomel jsem dopsat prostredi, a to D5 Pro:-(.
>Jinak se podivej treba na WebProvider
> (http://delphree.clexpert.com/pages/projects/webprovider/).
Podivam...
> Petr Vones, amatersky programator
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Navrhovani objektoveho modelu
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 19.6.2000 00:20:32
Ahoj vsichni,
pro vytvoreni jedne aplikace potrebuji navrhnout jeji objektovy model pro
uchovavani dat. Chtel bych se zeptat jesli nevite o nejakem programku na
navrh objektoveho modelu (pokud mozno freeware).
Diky moc
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Marek Eichler
e-mail: marek.eichler(zv)atlas(tec)cz
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Eventy databaze
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 19.6.2000 06:57:00
> Hmm fajn diky za ochotu, nicmene pozorzuji, ze jsem se vyjadril
> spatne .. triggery nejsou to, co bych neumel nebo neznal .. mam
> aplikaci, uzivatel prohlizi tabulku .. a ja potrebuju vedet ze se mu v
> ty tabulce zmenily udaje a ze je zapotrebi refresh.
Pred casem jsme si tady pohravali s myslenkou resit to UDP
paketem rozeslanym vsem v siti. Proste jakmile by aplikace
provedla modifikaci dat, vyslala by nejaky paket, ze je potreba
refresh. Nicmene k realizaci nakonec nedoslo, takze nevim,
nakolik je to schudne. Realizace samotna slozita neni, tou
schudnosti jsem mel na mysli spolehlivost a tak.
David
Dokoncovani Edit
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 19.6.2000 07:06:00
> Mam komponentu Edit a databasi PSC (asi 15000 zaznamu)
> Kdyz zacinam psat v Edit nazev obce tak se mi automaticky vpise prvni
> shodny s database PSC, napisu druhy znak atd... Jemi celkem jasne jak
> by to bylo ale je to dense pomale. Zatim ro resim pres TQuery a SQL(
> SELECT obec, psc from PSC where obec like "%"). Nevite nekdo jak by se
> to dalo udelat aby to probihalo rychleji (p�. ne za 3s ale za 0.1s).
Nevim, jak to bude rychle, ja na podobne veci pouzivam
LookupCombo komponentu (nevim ted, jak se presne jmenuje),
pokud to jde. Vlastnosti DataSource a DataField zustanou prazdne
a vyplni se LookupSource apod. Timto zpusobem sice nelze vepsat
hodnotu jinou nez je v seznamu, ale nevim, zda to vubec
potrebujes.
Ted si uvedomuju, ze z nejakych duvodu pouzivam vlastne
RxLookupCombo z RxLib, ale momentalne si nevzpominam na
duvod.
David
OnChange v Editu
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 19.6.2000 07:40:35
Ahoj,
ja tento problem resim jinak (totiz pri kazde zmene v editu sahat do databaze o 5000 zaznamech neni nic rychleho).
Mam tedy timer, ktery je nastaveny cca na 1 sec a ten se na Onchange Timer shodi a znova spusti. No a timer mi pak spusti dohledavani.
Ma to dve hlavn� v�hody :
1) Muzu psat libovolny text a az po pauze se provede dohledani, takze psani neni nijak omezene.
2) Dohledani se vola se pouze jednou.
Martin
Pekny den a pilotum stastne pristani ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
OK2 CLM
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
-----P�vodn� zpr�va-----
Od: Pavel �ern� [SMTP:cerny(zv)cerny-ps(tec)cz]
Odesl�no: 18. �ervna 2000 10:24
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: OnChange v Editu
Zdravim vsechny.
Snazim se pomoci obsluhy udalosti OnChange v Editu
docilit prubezne dohledavani v tabulce po kazdem stisku
klavesy. V zasade to funguje. Kdyz to ale doladuji do krasy,
narazim na jeden problem :
- Text od aktualni pozice do konce mam Selected
- Chci, aby se pri stisku klavesy tento kus nahradil
tim jednim novym znakem a pro vysledek teto operace
se znovu provedlo dohledani
Problem
je v tom, ze udalost OnChange se mi zavola dvakrat. Poprve
kdyz se vymaze ta vyselektovana cast, podruhe, kdyz se tam
dosadi novy znak.
To mi vsak vadi, protoze ja na tu prvni cast (smazani selected)
reagovat nechci.
Nevim, jak mam v me procedure, ktera udalost obsluhuje, poznat,
ze se prave smazal selected text (a ja na to mam kaslat) a ze vzapeti
dostanu sanci reagovat na ten novy stav (i s doplnenym novym
znakem).
Jinymi slovy - potreboval bych
- aby obsluha udalosti byla zavolana az pro vysledny stav
( coz asi nedocilim
nebo
- poznat, ze se jedna o tuto situaci a ja uz se podle toho zaridim.
Pomuze nekdo ? Diky.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Dokoncovani Edit
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 19.6.2000 07:44:45
Ahoj,
ja tento problem resim jinak (totiz pri kazde zmene v editu sahat do
databaze o 5000 zaznamech neni nic rychleho).
Mam tedy timer, ktery je nastaveny cca na 1 sec a ten se na Onchange Timer
shodi a znova spusti. No a timer mi pak spusti dohledavani.
Ma to dve hlavn� v�hody :
1) Muzu psat libovolny text a az po pauze se provede dohledani, takze psani
neni nijak omezene.
2) Dohledani se vola se pouze jednou.
Martin
Pekny den a pilotum stastne pristani ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
OK2 CLM
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
-----P�vodn� zpr�va-----
Od: Rommet [SMTP:rommet(zv)post(tec)cz]
Odesl�no: 18. �ervna 2000 11:30
Komu: Delphi konference
P�edm�t: Dokoncovani Edit
Ahoj konference,
nemate nekdo zkusenosti s dokoncovani textu v TEdit, daty s database.
Priklad:
Mam komponentu Edit a databasi PSC (asi 15000 zaznamu)
Kdyz zacinam psat v Edit nazev obce tak se mi automaticky vpise prvni
shodny s database PSC, napisu druhy znak atd...
Jemi celkem jasne jak by to bylo ale je to dense pomale.
Zatim ro resim pres TQuery a SQL( SELECT obec, psc from PSC where obec like
"%"). Nevite nekdo jak by se to dalo udelat aby to probihalo rychleji (p�.
ne za 3s ale za 0.1s).
Diky za vse david
<<Soubor: ATT00001.html>>
Vyjimka
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 19.6.2000 08:00:28
Hi
Pri remote debugingu mi vyhazuje program nasledujici vyjimku
Invalid objects (not initialised ?).
Netusite co by to mohlo byt. Bez debagovani to bezi dobre.
Diky.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Vyjimky SQL serveru
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 19.6.2000 08:29:51
Ahoj,
vyresil jsem to tak, ze jsem SQL7 poslal k certu a presel na IB6.
Ta totiz vraci jen jednu zprava a nikoli celou zaplavu.
(nevim jestli to je reseni i prop tebe)
Michal
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of David Lebeda
> Sent: Thursday, June 15, 2000 1:48 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Vyjimky SQL serveru
>
>
> Ahoj,
>
> mam databazi na MS SQL serveru 7 a v ni hodne integritnich
> omezeni typu foreign key. Jejich fungovani ve sve aplikaci bych
> potreboval nejak uzivatelsky zprijemnit. Konkretne jde o, ze kdyz
> se treba pokusim smazat neco, co je v konfliktu s nejakym foreign
> key omezenim, vznikne vyjimka s pro uzivatele neprijatelnym
> popisem. Da se vubec nejak poznat typ vyjimky, konkretne to, ze
> vyjimka, ktera vznikla, vznikla skutecne kvuli poruseni integrity?
>
> Dik,
>
> David
>
>
> TDataLink a delete
[*] Pavel Slovacek <slovacek(zv)email(tec)cz> - 19.6.2000 08:33:12
Pisu komponentu TDBTreeView a uz zacina fungovat dle mych predstav. Nevim
si rady s identifikaci udalosti delete v DataSetu. Jedine co me napadlo je
zaznamenat si pocet vet v DataSetu a pokud se tento pocet zmensi tak to povazovat
za vymazani zaznamu. Neznate neco lepsiho nez je toto.
S pozdravem
Pavel Slovacek
Bezdiskove stanice
[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 19.6.2000 08:55:00
Ahoj pratele,
nedari se mi rozchodit programy v Delphi s BDE na novelovske siti s
bezdiskovymi stanicemi. Mate s tim nekdo z vas zkusenosti, prosim? Jak se to
musi usporadat? Kam nainstalovat BDE? Jak nastavit sdileni? Co musi byt v
Registry?
Vilda Svoboda
vilem_s(zv)mrp(tec)cz
Dokoncovani Edit
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 19.6.2000 09:02:51
nemate nekdo zkusenosti s dokoncovani textu v TEdit, daty s database.
Priklad:
Mam komponentu Edit a databasi PSC (asi 15000 zaznamu)
Kdyz zacinam psat v Edit nazev obce tak se mi automaticky vpise prvni shodny s database PSC, napisu druhy znak atd...
Jemi celkem jasne jak by to bylo ale je to dense pomale.
Zatim ro resim pres TQuery a SQL( SELECT obec, psc from PSC where obec like "%"). Nevite nekdo jak by se to dalo udelat aby to probihalo rychleji (p�. ne za 3s ale za 0.1s).
A co si na nazev obce udelat index a pak volat GotoNearest ? (i kdyz zase zalezi na tom, co mas za databazi). BTW: Mas na tom poli OBEC udelanej index ? Obcas to dost pomuze ;-)
S pozdravem a pranim hezkeho dne
Milan Schembera
Spravce IT
SPEKTRUM CZ a.s.
mailto:spravce(zv)spektrum(tec)cz
mailto:milan(zv)missoftware(tec)cz
Synapse rel.9
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 19.6.2000 09:34:41
pro vsechny, kteri popuzivaji moji SMTP knihovnu, mam
upozorneni:
Stahnete si novou Synapsi, protoze prave v teto knihovne byla
opravena nenapadna chybicka zpusobujici ve vyjimecnych
pripadech predcasne ukonceni postovni zpravy.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
deadlock v IB6
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 19.6.2000 10:07:13
Ahoj,
narazil jsem na stejny problem. Kdyz jdem hledal v dokumentaci k IB6
nasel jsem pro multi-user jsou nutne SQL links. Jelikoz mam je D5 PRO, dost
mi to stve.
Michal.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Peter Mojdis
> Sent: Friday, June 16, 2000 8:11 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: deadlock v IB6
>
>
> Pouzivam IBTable. Pokusim sa to upresnit. Ide mi o nieco podobne
> ako testovanie Post pri pouziti BDE. Ak dam post do bloku try, tak
> v pripade, ze zaznam pouziva niekto iny, mi BDE hodi vynimku, ktoru
> si viem osetrit. Ale ako to urobit pri pouziti IBTable v IB6 ?
>
>
Eventy databaze
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 19.6.2000 10:13:36
Tomas Michal�k wrote:
> vim, ze Ti tim asi nepomuzu, kdyz pouzivate Oracle, ale InterBase tohle presne
> umi
Toto by zase mna zaujimalo - ako?
>
> Such�nek Luk� wrote:
>
> > Hmm fajn diky za ochotu, nicmene pozorzuji, ze jsem se vyjadril
> > spatne .. triggery nejsou to, co bych neumel nebo neznal .. mam aplikaci,
> > uzivatel prohlizi tabulku .. a ja potrebuju vedet ze se mu v ty tabulce
> > zmenily udaje a ze je zapotrebi refresh.
> > Neustale checkovani toho ci ono bude dost vytezovat at uz databazi
> > ci vlastni aplikaci .. proste by se mi libilo, aby si aplikace mohla
> > pospavat a pokud ji dojde zpravicka, ze je treba refresh, tak aby si ho
> > provedla.
> > Neni az zase takovy problem to vyresit oklikami, ale bylo by pekne
> > to vyresit co nejoptimalneji. Kdyz chci byt informovan o verzi nejakeho
> > noveho programu, tak se prihlasim na jejich mail list, misto toho, abych se
> > kazdy den chodil koukat na jejich stranky, jestli to tam uz neni ...
> >
> > / Lukas Suchanek
>
> --
> =================================
>
> Tomas Michalik
> ProCA, s. r. o.
> V Luzich 818, Praha 4
> Czech Republic
>
> e-mail: michalik(zv)proca(tec)cz
> tel: +420 2 67283446
ComboBox a Cursor
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 19.6.2000 09:24:12
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, June 18, 2000 9:28 PM
Subject: Re: ComboBox a Cursor
> From: "Tomas Bihary" <tomas(zv)wige-mic(tec)cz>
> > Narazil jsem na problemek s comboboxem.
> > A sice kdyz pro TComboBox nastavim nejaky
> > kursor mysi a style je csDropDown, projevi se
> > toto nastaveni jen pro uzkou oblast ramecku a
> > policko se sipkou. Oblast pro editaci ma stale
> > crlBeam. Totez se deje i u ScrollBaru napr. u
>
> podle mne je to tak spravne. ComboBox je vlastne 'kombinovany', tedy
obsahuje
> i edit a ten ma vzdy crBeam kurzor.
>
> Petr Vones, amatersky programator
>
Temer souhlasim, protoze temer vzdy je to tak spravne...
Ale pro jeden muj zamer by se mi prave dost hodilo,
aby to mohlo byt i jinak. Uz jsem se s tim ale smiril.
Tomas Bihary
kontrola jine aplikace
[*] Milan ��ek - 19.6.2000 10:31:58
zdravim vsechny,
potrebuju poradit s nasledujicim: Jak ziskat seznam vsech otevrenych oken
(jejich Handelu)? Dale pak bych potreboval nejakou funkci, ktera by dokazala
overit existenci okna napr. podle Caption.
A do tretice: daji se nejak zjistit vlastnosti jine spustene aplikace? -
sirku a vysku formy, jestli je to treba dialog....
Za odpovedi predem dekuji...
Petr Vones: diky za ty balicky (plugini).
S pozdravem Milan Cizek, amatersky programator, D4 C-S
cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Oznacenie riadku DBGride.
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 19.6.2000 09:45:20
> From: "� � ��" <hrossik(zv)atlas(tec)cz>
> To: "DELPHI - L" <delphi-l(zv)fwd(tec)cz>
> Subject: Oznacenie riadku DBGride.
> Date: Fri, 16 Jun 2000 19:58:13 +0200
> Reply-to: delphi-l(zv)fwd(tec)cz
> Dobry,
>
> Potreboval by som poradit ako oznacit dany riadok inou farbou.
> Potreboval by som to vo funkcii OnClik zvyrazdnit dany riadok inou farbou a mat ho stale oznaceny danou farbou az dovtedy kym nanho znova nekliknem.
>
> Pracujem v D5, Adonis, Win98.
>
> Miro.
>
>
Milan Dvo��k
dvorak(zv)gymzn(tec)cz
Property editor pro TMenuItem
[*] Honza <delphi(zv)mis-net(tec)cz> - 19.6.2000 10:52:22
>Ahoj vsichni,
>
>nevite prosim Vas nekdo jak se jmenuje
>property editor pro tridu TMenuItem?
>
>Dekuji Otakar Milink
Jmenuje se "MenuEditor", ale je tusim zakompilovany do Delphi32.exe.
Polovina cesty k Tvemu cili je napsana dole.
Druha polovina reseni je mi nejasna doted.
V designu se musi komponenty vytvaret pomoci Designeru, aby se provedl
adekvatni zapis do DFM i PAS.
Vytvori-li se nova trida klasicky jak jest nize psano, nerozsiri se
deklarace TForm1 v unite a nastavaji VELKE nesnaze. Kuprikladu kdyz jsem
potreboval pridat do PopupMenu TMyMenuItem (bez pomoci potrebneho Designeru)
tak se neobohatil kod TForm1 a po spusteni zahlasila aplikace Error ..... ze
nezna tridu nebo co.
Kdyz jsem Item vytvoril pomoci Designeru tak bylo vse perfektni, az na to,
ze pri PopupMenu.Items.Add to hodilo access violation at FFFF
Timto se tedy k Tvemu dotazu pripojuji - PROSIM O PROZRAZENI figlu kterak
primet Designer vytvorit tridu ktera PUJDE pridat do MenuItems.
predem DIKY
......Honza
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Datum: 7. �ervna 2000 0:17
P�edm�t: Re: TMenuEditor
>
>Ahoj,
>
>Zjednodusene treba takhle:
>
>unit MenuCompEdit;
>
>interface
>
>uses
> Windows, SysUtils, Classes, Menus;
>
>procedure Register;
>
>implementation
>
>uses
> DsgnIntf, TypInfo;
>
>type
> TMyMenuComponentEditor = class(TComponentEditor)
> private
> procedure EnumPropEditors(Prop: TPropertyEditor);
> public
> procedure ExecuteVerb(Index: Integer); override;
> function GetVerb(Index: Integer): string; override;
> function GetVerbCount: Integer; override;
> end;
>
>{ TMyMenuComponentEditor }
>
>procedure TMyMenuComponentEditor.EnumPropEditors(Prop: TPropertyEditor);
>begin
> if Prop.GetPropType^.Name = 'TMenuItem' then Prop.Edit;
>end;
>
>procedure TMyMenuComponentEditor.ExecuteVerb(Index: Integer);
>var
> CompList: TDesignerSelectionList;
> Item: TMenuItem;
>begin
> case Index of
> 0: begin
> CompList := TDesignerSelectionList.Create;
> try
> CompList.Add(Component);
> GetComponentProperties(CompList, [tkClass], Designer,
EnumPropEditors);
> finally
> CompList.Free;
> end;
> end;
> 1: begin
> Item := TMenuItem.Create(Component);
> Item.Caption := 'Item ...';
> (Component as TMenu).Items.Add(Item);
> Designer.Modified;
> end;
> end;
>end;
>
>function TMyMenuComponentEditor.GetVerb(Index: Integer): string;
>begin
> case Index of
> 0: Result := 'Menu designer';
> 1: Result := 'Add an item';
> end;
>end;
>
>function TMyMenuComponentEditor.GetVerbCount: Integer;
>begin
> Result := 2;
>end;
>
>procedure Register;
>begin
> RegisterComponentEditor(TPopupMenu, TMyMenuComponentEditor);
>end;
QReport, TQRImage a W2000
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 19.6.2000 11:56:06
Ahoj,
mam D3/CS + QR2.0k.
Objavil som problem pri spustani aplikacii pod Window2000. Konkretne u
tlacovych zostav, ktore obsahuju akekolvek komponenty typu TQRImage. Tlac je
presusena hlasenim EFCreateError: 'Cannot create file |||'. Ak z formulara
odstranim TQRImage komponentu chyba nenastane. Podobne ak tu istu aplikaciu
spustam pod W95 alebo W98 bezi bez chyby.
obrazok sa nacitava v metode BeforePrint takto:
qrLogo.Picture.LoadFromFile('c:\bmp\logo.bmp');
Vdaka za namety.
Palo.
pstolc(zv)sc.sknet.sk
jak nacist data z XLS souboru
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 19.6.2000 12:02:02
Zdar.
Potrebuju nacist data z exelovskyho souboru. Jeho struktura
je jednoduha. Zadne funkce ani makra, jen vyplnene policka textem.
Konkretne jde o to, ze si v Excelu nadefinuju tabulku a tu pak prevedu
do SQL insertu.
Dik za radu :o)
Lufi deadlock v IB6
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 19.6.2000 12:17:59
Ahoj,
je to trochu jinak. SQL links nejsou treba, IB Expres staci.
Je ale nutne spravne zmaknout transakce. Prijde mi to, ze
pri spusteni aplikace se nahodi transakce, ktera se ukonci
az s koncem aplikace. Asi je treba kazdy zapis osetrit COMMIT.
Michal
>
> Ahoj,
> narazil jsem na stejny problem. Kdyz jdem hledal v dokumentaci k IB6
> nasel jsem pro multi-user jsou nutne SQL links. Jelikoz mam
> je D5 PRO, dost
> mi to stve.
>
> Michal.
>
>
VTChart
[*] ing. Jiri Vrabec <vrabec(zv)pal.skm.vutbr(tec)cz> - 19.6.2000 12:21:57
Nevite jak je to s komponentou VtChart (D5) ??? Nektere grafy jde zvolit a
pise to ze to ma byt soucasti pristich verzi. Nevite kdy maj vyjit ???
Celkem by se mi ty posledni dva grafy prave ted hodili.
Jirka
Okno na popredi
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 19.6.2000 12:49:37
Zdravim,
co se musi nastavit u formulare aby byl na popredi, ale na popredi
vsech aplikaci nejen te me (tedu ne pres FormStyle)?
Petr Fischer
P.S. Uz to tady bylo X krat, jenze nefunguje archiv konference na
WEBu, takze s tim otravuju timhle zpusobem...Starsi verze Delphi ?
[*] Petr.Dana(zv)pvt(tec)cz - 19.6.2000 12:51:21
Zdravim vsechny,
chtel jsem se zeptat, jestli nekdo nevite, kde by se dali sehnat starsi
verze (3,4) Delphi, samozrejme za nizsi cenu nez se prodava 5.
Nejsem tak bohatej :)
Petr
Eventy databaze
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 19.6.2000 13:09:32
Podivej se na IBAlerts a do manualu k IB na POST_EVENT('DPLCHANGE'); /* send message */
U ib alerts je treba udelat pro spolehlivy beh tohle:
musi mit vlastni DB, jinak se to ze zahadnych dovodu kouse,
dale je dobre oddelit udalost od hlavniho thredu aplikace (ja to resim timerem a flagem).
Slavek
>
> Tomas Michalik wrote:
>
> > vim, ze Ti tim asi nepomuzu, kdyz pouzivate Oracle, ale InterBase tohle presne
> > umi
>
> Toto by zase mna zaujimalo - ako?
>
> >Trideni cisel
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 19.6.2000 13:25:05
Pavel Malinsk� wrote:
> Env: W2000, D5 Pro.
>
> Ahoj,
>
> potreboval bych setridit cisla a napada
> me doplnit pred cisla nuly do poctu maximalniho
> poctu cifer nejvetsiho cisla, nacist napr.
> do StringList a zavolat sort. Nakonec ty
> predchazejici nuly zase orezat. Nemate, pls,
> nekdo inteligentnejsi a rychlejsi zpusob ?
>
Ahoj,
na trideni existuje velka spousta algoritmu (napr. Heapsort, Quicksort,
bublinkove trideni, ...).
Kazdy z nich se hodi na jiny pocet tridenych cisel.
Algoritmy pro ne jsou v kazde ucebnice algoritmizace.
Pokud budes chtit, tak ti poslu nejakou ukazku na tvuj soukromy e-mail
(zadost o nejaky kod posli na marek.software(zv)atlas(tec)cz)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Marek Eichler
e-mail: marek.eichler(zv)atlas(tec)cz
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~kontrola jine aplikace
[*] Ren� Otisk - 19.6.2000 13:37:01
Hi,
HWND FindWindow(
LPCTSTR lpClassName, // address of class name
LPCTSTR lpWindowName // address of window name
);
Parameters
lpClassName
Points to a null-terminated string that specifies the class name or is an
atom that identifies the class-name string. If this parameter is an atom, it
must be a global atom created by a previous call to the GlobalAddAtom
function. The atom, a 16-bit value, must be placed in the low-order word of
lpClassName; the high-order word must be zero.
lpWindowName
Points to a null-terminated string that specifies the window name (the
window's title). If this parameter is NULL, all window names match.
Return Value
If the function succeeds, the return value is the handle of the window that
has the specified class name and window name.
Sroub
> zdravim vsechny,
> potrebuju poradit s nasledujicim: Jak ziskat seznam vsech otevrenych oken
> (jejich Handelu)? Dale pak bych potreboval nejakou funkci, ktera by
dokazala
> overit existenci okna napr. podle Caption.
> A do tretice: daji se nejak zjistit vlastnosti jine spustene aplikace? -
> sirku a vysku formy, jestli je to treba dialog....
>
> Za odpovedi predem dekuji...
> Petr Vones: diky za ty balicky (plugini).
>
> S pozdravem Milan Cizek, amatersky programator, D4 C-S
> cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>jak nacist data z XLS souboru
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 19.6.2000 13:56:54
> Potrebuju nacist data z exelovskyho souboru. Jeho struktura
> je jednoduha. Zadne funkce ani makra, jen vyplnene policka textem.
> Konkretne jde o to, ze si v Excelu nadefinuju tabulku a tu pak prevedu
> do SQL insertu.
To je pomerne malo informaci. Zalezi na tom, co se ti bude libit vic.
Cesty bych videl tyto:
1) pres ODBC - kdysi jsem letmo zkousel a moc me nenadchlo,
zejmena proto, ze jsem nevedel, jak pro SQL pojmenovavat
jednotlive sloupce. Verim, ze podobne by to slo i pres ADO. V
obou pripadech, pokud si pamatuji, mi v SELECTU * from... par dat
z konce souboru chybelo a netusim proc.
2) pomoci OLE Automation. Nutnou podminkou je nainstalovany
Excel na stroji, kde aplikace pobezi. Jinak asi neni problem.
3) jinak. Mozna existuji dalsi moznosti, ale o tech nic nevim :)
David
Generovani tabulky HTML
[*] Lauko �tefan <lauko(zv)salamon.sk> - 19.6.2000 14:08:31
Ahoj,
HTML-tabulku je mozne generovat z cohokolvek (TP1..QBASIC pre DOS 5.0 az po
Delphi 5 a vice) staci si trochu prestudovat jazyk HTML.
HTML-subor je prosty text...
Lauko.
----- Original Message -----
From: Pavel Malinsk� <spiderland(zv)iol(tec)cz>
To: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, June 17, 2000 11:16 PM
Subject: Generovani tabulky HTML
> Ahoj,
>
> nevite nekdo o necem cim bych mohl
> programove vygenerovat tabulku HTML ?
>
> S pozdravem a dikem
> =====================================
> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
> =====================================
> GSM: 0602 652 203
>
Hodne tabulek na SQL
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 19.6.2000 14:12:18
Ahoj,
chci se zeptat na toto: Vim, ze na SQL serveru neni problem mit
velky objem dat. Jak je to s velkym poctem tabulek v databazi?
Nebude to zdrojem nejakeho znatelneho zpomaleni pri praci s
takovou databazi?
Mam MSSQL7, ale otazka je minena obecne.
Diky.
David
kontrola jine aplikace
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 19.6.2000 14:26:22
> zdravim vsechny,
> potrebuju poradit s nasledujicim: Jak ziskat seznam vsech otevrenych oken
> (jejich Handelu)? Dale pak bych potreboval nejakou funkci, ktera by
> dokazala
> overit existenci okna napr. podle Caption.
>
HWND ghwnd;
//--------------------------------------------------------------------------
-
BOOL CALLBACK EnumNajdi(HWND hwnd, LPARAM lParam)
{
static CHAR szClassName[64];
bool bnasiel=TRUE;
GetWindowText(hwnd, szClassName, sizeof(szClassName));
//Sem do uvodzoviek napis CAPTION okna a namiesto 23 daj velkost
toho nazvu vcitane medzier
if (memcmp (szClassName, "xxxxxx DP45 Information", 23) == 0)
{
ghwnd = hwnd;
bnasiel=FALSE;
}
return (bnasiel);
}
//--------------------------------------------------------------------------
-
.....
if(EnumWindows(EnumNajdi,0) == FALSE)
{
MessageBox(NULL,"mam","",MB_OK);
}
/LH
QReport, TQRImage a W2000
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 19.6.2000 15:29:25
> Objavil som problem pri spustani aplikacii pod Window2000. Konkretne u
> tlacovych zostav, ktore obsahuju akekolvek komponenty typu TQRImage. Tlac
je
> presusena hlasenim EFCreateError: 'Cannot create file |||'. Ak z formulara
Ahoj,
jsi prihlasen jako Administrator nebo obycejny uzivatel?
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
www.stereo(tec)cz
ODBC
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 19.6.2000 15:38:00
Ahoj
nevite nekdo jak programove ( D5 ) vytvorit
ODBC datovy zdroj ? Jde o to, aby uzivatel nemusel
sam nastavovat ODBC, ale aby to program udelal sam.
Dik
Lufi
DPH
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 19.6.2000 16:12:13
Vl�da �esk� republiky schv�lila na sv�m zased�n� dne 14. 6. 2000 n�vrh novely z�kona o DPH (�. 588/1992 Sb.), kter�m se s ��innost� od 1. ledna p��t�ho roku m� zv��it DPH ze software z 5 % na 22 %, tedy o 17 %. Ve zd�vodn�n� se prav�, �e jde o nutn� sjednocen� da�ov�ch sazeb, vy�adovan�ch Evropskou uni�. Nikde v�ak u� vl�da ne��k�, �e z�kladn� sazba DPH v EU je obvykle v�razn� ni��� ne� v tuzemsku.
N�vrh z�kona m� na sv� �ervnov� sch�zi (od 27. 6.) projedn�vat Poslaneck� sn�movna.
Blizsi informace a pripojeni k petici muzete ucinit na http://protest.softnov(tec)cz/
D�kuji za prostudov�n� m� zpr�vy a p�eji p�kn� den.
Certified Novell Engeneer 3,4,5
Soudn� znalec v oboru v�po�etn� technika a software.
Daniel Resler
ATC Group
Kejzlarova 1677
Hradec Kr�lov�
500 12
Mail: daniel resler(zv)atcgroup(tec)cz
WWW: www.atcgroup(tec)cz
Mobil: +420 603 45 66 65
Tel.fax: +420 49 527 11 00
jak nacist data z XLS souboru
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.6.2000 16:29:08
ahoj,
1) OLE Automation
Nevim jakou mas verzim, ale v D5 Enterprise v kolonce Servers je TExcelApp
(tusim), ktera po prvotnich obtizi (resilo se to tu celkem zbesile -> viz
archiv). Nevyhodou je skoro zadny help.
2)
Dale je moznost to tahat pres ODBC Excel Driver, ale to jsem jeste moc
nezkousel (dobre pro nizsi verze Delphi)
3)
nebo hledej na www.torry.ru
XLSFile version 1.0 - tato je pro D3, free
XLSReadWrite V1.23- tato vypada pro D3 a D4,
pro nekomercni pouziti free
M.Jirman
----- Original Message -----
From: Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz>> Zdar.
>
> Potrebuju nacist data z exelovskyho souboru. Jeho struktura
> je jednoduha. Zadne funkce ani makra, jen vyplnene policka textem.
> Konkretne jde o to, ze si v Excelu nadefinuju tabulku a tu pak prevedu
> do SQL insertu.
>
> Dik za radu :o)
>
> Lufi
>komponenta na cteni z XLS
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.6.2000 16:36:01
ahoj,
>From Petr Motlicek (10. prosince 99)
>> Moc moznosti nemas. Nekde na DSP jsem tusim videl komponenty, ktere
udajne
>> umi zapisovat a cist Excel format (otazka ja jake verze).
>Ahoj,
>
>mohu privatne nejake poslat, ale jeste jsem je
>nezkousel.
>(nebo hledej na www.torry.ru
>XLSFile version 1.0 - tato je pro D3, free
>XLSReadWrite V1.23- tato vypada pro D3 a D4,
>pro nekomercni pouziti free
>Petr Motlicek
M.Jirman
----- Original Message -----
From: Standa Kunc <standa.kunc(zv)obaka-karvina(tec)cz>
> Zdravim,
> kamos by potreboval precitst hodnoty z excelovske tabulky do delphi.
Nemate
> nejakou vhodnou komponentu nebo postup?
>
> Predem dekuji...
>
> S. Kunc
>kontrola jine aplikace
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.6.2000 16:41:49
ahoj,
ad 2)
staci cist konferenci:
ShowWindow(FindWindow('Titulek', nil), SW_SHOW);
----- Original Message -----
From: Milan ��ek <cizek.milan(zv)seznam(tec)cz>> zdravim vsechny,
> potrebuju poradit s nasledujicim: Jak ziskat seznam vsech otevrenych oken
> (jejich Handelu)? Dale pak bych potreboval nejakou funkci, ktera by
dokazala
> overit existenci okna napr. podle Caption.
> A do tretice: daji se nejak zjistit vlastnosti jine spustene aplikace? -
> sirku a vysku formy, jestli je to treba dialog....
>
> Za odpovedi predem dekuji...
> Petr Vones: diky za ty balicky (plugini).
>
> S pozdravem Milan Cizek, amatersky programator, D4 C-S
> cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
>Spousteni COM serveru jako service v NT
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 19.6.2000 16:49:36
Zdravim,
mam jakysi COM (AutomationObject) server. V klientech se pripojuji
pres CreateRemoteComObject(...).
Lze spustit COM server jako service v NT po startu a nechat vsechny
klienty pripojovat k teto JIZ BEZICI instanci COMu? Jak?
V soucasne dobe mam v DCOMcnfg nastaveno Identify napr: na uzivatele
BUBAK. Pokud je totiz nastaveno Identify na "Launching user" nebo
"Interactive user", spusti se mi pro kazdy klientsky pocitac nova
instance (a navic to jeste ihned spadne) a to ja nechci, protoze v
COM serveru jsou urcita data, ktera chci nacist jen jednou a pro
vsechny je sdilet.
V COM serveru jeste po ukonceni mazu informace z registru
(ComServer.Updateregistry(False)), aby se na server nedalo pripojit
pokud se manualne (nebo po startu) nespusti. Toto spusteni pod
uzivatelem (Identify) BUBAK ma vsak jednu slabost: Musim se do NT
zalogovat pod uzivatelem BUBAK a COM server musi bezet v zalogovanych
NT, coz neni zrovna nejlepsi.
Idealni stav, keterho chci docilit:
1) COM server jako servise
2) pripojeni kohokoli VZDY k teto bezici instanci COM serveru (a
pokud nebezi -> smula, zadny data)
Za kazdou radu tisicere diky, Petr Fischer
ODBC
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.6.2000 16:50:18
ahoj,
Nevim, ale muzes pouzit UDL soubor ktery nahrazuje (vyhodne ci nevyhodne)
datovy zdroj.
Priklad UDL souboru muzes stahnout na (www.glass(tec)cz/software/TestUDL.zip)
M.Jirman
----- Original Message -----
From: Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 19, 2000 3:38 PM
Subject: ODBC
> Ahoj
>
> nevite nekdo jak programove ( D5 ) vytvorit
> ODBC datovy zdroj ? Jde o to, aby uzivatel nemusel
> sam nastavovat ODBC, ale aby to program udelal sam.
>
> Dik
>
> Lufi
>
>QReport, TQRImage a W2000
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 19.6.2000 16:50:33
QUSofti maji v QuickReportu (aspon ve verzi, co mam ja) natvrdo string na
cestu do docasneho adresare (TEMP) nastavenou na 30 znaku.Ve W9x/NT to
stacilo, ale ve W2000 jsou profily pro uzivatele a tudiz je TEMP hloubeji a
nestaci to. Nevim, jestli to jiz opravili, my jsme si to opravili sami
(unita QRPrntr, function TempFileName (radek cca760)). A kdyz si potrebuje
QuickReport udelat docasny soubor, tak to zkrachne. Kdyz ne, tak to funguje.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: Pavol Stolc <pstolc(zv)sc.sknet.sk>
To: Delphi Konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 19, 2000 11:56 AM
Subject: QReport, TQRImage a W2000
> Ahoj,
>
> mam D3/CS + QR2.0k.
>
> Objavil som problem pri spustani aplikacii pod Window2000. Konkretne u
> tlacovych zostav, ktore obsahuju akekolvek komponenty typu TQRImage. Tlac
je
> presusena hlasenim EFCreateError: 'Cannot create file |||'. Ak z formulara
> odstranim TQRImage komponentu chyba nenastane. Podobne ak tu istu
aplikaciu
> spustam pod W95 alebo W98 bezi bez chyby.
>
> obrazok sa nacitava v metode BeforePrint takto:
>
> qrLogo.Picture.LoadFromFile('c:\bmp\logo.bmp');
>
> Vdaka za namety.
>
> Palo.
> pstolc(zv)sc.sknet.sk
>
>Inkrementalni hledani
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 19.6.2000 16:57:15
Neresili jste nekdo inktermentalni hledani na MS SQL serveru 7.0? Tzn. Mam Gridu a ted zacnu psat napriklad nazev obce a ono mi to skace na nejblizsi podobny zaznam. Pouzivam ADOExpress a nejde tam pouzit GotoNearest.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
QReport, TQRImage a W2000
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 19.6.2000 17:32:23
----- Original Message -----
From: Miloslav Sk�cel <kastner(zv)infos(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 19, 2000 3:29 PM
Subject: Re: QReport, TQRImage a W2000
> > Objavil som problem pri spustani aplikacii pod Window2000. Konkretne u
> > tlacovych zostav, ktore obsahuju akekolvek komponenty typu TQRImage.
Tlac
> je
> > presusena hlasenim EFCreateError: 'Cannot create file |||'. Ak z
formulara
>
> Ahoj,
>
> jsi prihlasen jako Administrator nebo obycejny uzivatel?
>
ako uzivatel patriaci do skupiny Administrators, teda s administratorskymi
pravami.
Palo.
pstolc(zv)sc.sknet.sk
komponenta na cteni z XLS
[*] Standa Kunc <standa.kunc(zv)obaka-karvina(tec)cz> - 19.6.2000 17:39:20
Zdravim,
kamos by potreboval precitst hodnoty z excelovske tabulky do delphi. Nemate
nejakou vhodnou komponentu nebo postup?
Predem dekuji...
S. Kunc
komponenta na cteni z XLS
[*] bures <bures(zv)ssakhk(tec)cz> - 19.6.2000 17:51:48
Ahoj tady na ty strance je to co potrebujes
http://www.advdelphisys.com/codelib/codelib_ole_excel_routines.html
Vlada
----- Original Message -----
From: Standa Kunc <standa.kunc(zv)obaka-karvina(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 19, 2000 5:39 PM
Subject: komponenta na cteni z XLS
> Zdravim,
> kamos by potreboval precitst hodnoty z excelovske tabulky do delphi.
Nemate
> nejakou vhodnou komponentu nebo postup?
>
> Predem dekuji...
>
> S. Kunc
>QReport, TQRImage a W2000
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 19.6.2000 17:53:50
> ----- Original Message -----
> From: Jaroslav Nadhera <nadhera(zv)csh(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, June 19, 2000 4:50 PM
> Subject: Re: QReport, TQRImage a W2000
>
> QUSofti maji v QuickReportu (aspon ve verzi, co mam ja) natvrdo string na
> cestu do docasneho adresare (TEMP) nastavenou na 30 znaku.Ve W9x/NT to
> stacilo, ale ve W2000 jsou profily pro uzivatele a tudiz je TEMP hloubeji
a
> nestaci to. Nevim, jestli to jiz opravili, my jsme si to opravili sami
> (unita QRPrntr, function TempFileName (radek cca760)). A kdyz si potrebuje
> QuickReport udelat docasny soubor, tak to zkrachne. Kdyz ne, tak to
funguje.
Aha, ake je tu teda riesenie?
QUSoft vydal posladnu verziu 2.0k a dalej uz pracuju len na verzii 3.x
Pokial mi je zname vobec ich nezaujimaju chyby v verziach volne sirenych s
Delphi, na moj dotaz reagovali tak ze namam platenu verziu. Neviem ale ako
by som zmeny ktore opisujete zapracoval do svojej verzie QReportu. Je mozne
aby ste mi poslali opravene unity? Pomoze to? Alebo treba kompletny design a
runtime package?
Dik za odpoved.
> ----- Original Message -----
> From: Pavol Stolc <pstolc(zv)sc.sknet.sk>
> To: Delphi Konferencia <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, June 19, 2000 11:56 AM
> Subject: QReport, TQRImage a W2000
>
>
> > Ahoj,
> >
> > mam D3/CS + QR2.0k.
> >
> > Objavil som problem pri spustani aplikacii pod Window2000. Konkretne u
> > tlacovych zostav, ktore obsahuju akekolvek komponenty typu TQRImage.
Tlac
> je
> > presusena hlasenim EFCreateError: 'Cannot create file |||'. Ak z
formulara
> > odstranim TQRImage komponentu chyba nenastane. Podobne ak tu istu
> aplikaciu
> > spustam pod W95 alebo W98 bezi bez chyby.
> >
> > obrazok sa nacitava v metode BeforePrint takto:
> >
> > qrLogo.Picture.LoadFromFile('c:\bmp\logo.bmp');
> >
> >
> > Vdaka za namety.
> >
> > Palo.
> > pstolc(zv)sc.sknet.sk
> >
> >Znakovy tisk
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 19.6.2000 18:41:58
> >Ovsem zkus si i tisk na "Obecnou nebo znakovou tiskarnu" (nainstaluj z W95)
>
> Kdyz uz jsme u toho znakoveho tisku...
> Nevide nekdo o ovladaci, ktery by umel krome
> tucneho a podtrzeneho pisma take kurzivu?
> Protoze pokud jsem se neprehledl tak ten standardni
> z Win95 (98) to neumi....
Funguje mi
assign( f, 'LPT1' );
rewrite( f );
write( f, 'ABCD....' );
...
close( f );
Pokud jde o tu kurzivu, v PCL3 je to "[Esc](s1S".
Tom
NMFTP a proxy
[*] Ale� Va���ek�����"q��y�&���w�3 - 19.6.2000 18:57:51
Zdravim,
pracuji s komponentou NMFTP a narazil jsem na jeden problem. Vzdy kdyz
pozadam o vypis nejakeho adresare, vse probehne v pohode, ale tak cca po 5
pokusech se pri teto operaci zastavi muj program a na neco ceka - proste
vrati seznam vsech souboru v danem adresari a nic... program stoji.
Uz jsem zjistil v cem je problem: Pouzivam-li proxy server WinRoute, vse
jede tak jak ma bez sebemensich problemu. Pokud ale pouziju Microsoft Proxy
Server, program se chova tak jak jsem popsal.
Pri pouziti komponent od F. Piettiho vse jede bez problemu i na MS Proxy,
nechci ovsem predelavat pulku projektu pro tyto komponenty.
Nevite nekdo v cem by mohl byt problem? Jsem opravdu v koncich. Hraju si s
tim cely den a porad zadny vysledek. Please help!
(D5 Ent, W2K)
ALES
Vyjimky SQL serveru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.6.2000 18:58:27
On 15 Jun 2000, at 13:48, David Lebeda wrote:
> mam databazi na MS SQL serveru 7 a v ni hodne integritnich
> omezeni typu foreign key. Jejich fungovani ve sve aplikaci bych
> potreboval nejak uzivatelsky zprijemnit. Konkretne jde o, ze kdyz se
> treba pokusim smazat neco, co je v konfliktu s nejakym foreign key
> omezenim, vznikne vyjimka s pro uzivatele neprijatelnym popisem. Da se
> vubec nejak poznat typ vyjimky, konkretne to, ze vyjimka, ktera
> vznikla, vznikla skutecne kvuli poruseni integrity?
Asi dost zalezi na tom, pres jaky stroj k databazi pristupujes. Ja to
v OLE DB delam tak, ze si chytim cislo chyby, a podle toho vypisu
hlasku.
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
TDirectoryListBox
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.6.2000 20:18:36
ahoj,
dalsi pekny 32-bit pruzkumnik(dialogy, masky, a dalsi komponenty) i se
zdojakama vse free, najdes na adrese http://www.gexperts.com/GXExplorer/,
ale je to pravdepodobne pro verze Delphi 4 a 5
M.Jirman
----- Original Message -----
>From: Ladislav Dole�el <dodo(zv)centrum(tec)cz>
>
>TDirectoryListBox se mi moc nelibi, vypada jak vydlabanej z Win
>3.1.
>Ja bych si stahl z www.delphifreestuff.com komponentu BrowseDr,
>to je std. prochazeni adresaru v 32-bit Win.
>**Dodo**
>
>
______________________________________________________________
>> Od: jof(zv)email(tec)cz
>>Komu: delphi-l(zv)fwd(tec)cz
>>
>> Ahoj,
>> v programu potrebuji prochazet jednotlive
>> adresare, ale pomoci komponenty
>> TDirectorylistBox se mi nedari dostat se do
>> skrytych adresaru, konkretne do docasnych
>> adresaru Internet Exploreru. Poradte prosim.
>> -jof-
>>Proxy
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.6.2000 21:20:38
ahoj,
posilam ti na soukromy mail priklad na 'standalone CGI' v delphi na
odchytavani Reqesty (nebo Response ale to je pro nazornost jedno). Problem
je jen v tom ze musis mit D5Ent nebo treba mozna D5Pro a povoleni pro CGI
skripty na serveru.
Kdyby nekdo taky chtel tak at se ozve.
M.Jirman
----- Original Message -----
From: Petr Palicka <petr.palicka(zv)atlas(tec)cz>
ahoj,
pripojuji se k prosbe, mozna by to zajimalo i ostatni.
muj konkretni pozadavek je odchytavat http requesty a odpovedi kvuli
protokolovani...
tedy: dotaz ktery jede ven a odpoved co se vraci + nejakou statistiku,
ale to uz si dodelam (objemy dat, casove prodlevy apod).
> -----Original Message-----
> From: nnfapso(zv)kios.sk [mailto:nnfapso(zv)kios.sk]
>
> Ahoj,
>
> Mohol by si mi prosim ta poslat zdrojak? alebo aspon
> nejake zakladne
> info o programovani proxacov?
>
> Diky moc
>
> S pozdravom Miso nnfapso(zv)kios.sk
>
> ----- Original Message -----
> Od: Lubos Dusanic <lubos(zv)iname.com>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odoslan�: 2. j�n 2000 14:48
> Predmet: RE: Proxy
>
> > caves,
> >
> > mozno by bolo zaujimave, keby si povedal, co vsetko by to
> malo robit. ja
> som
> > teraz dokoncil program, ktory by ti mozno pomohol - bezi
> ako service na
> > windows nt a umoznuje pripojenie viacerych uzivatelov do
> i-net(u) cez
> jeden
> > pc (+logovanie, +autentifikacia uzivatelov a adries). ak by
> ti to stacilo
> > ...
> >
> > lubos
> > > Ahoj
> > > > >muze nekdo poradit, jakym zpusobem udelat jednoduchy proxy
> > > server. Jeden
> > > PC
> > > > pripojen do internetu a za nim nekolik PC. Zajima me,nefunk�n� vyhled�v�n� v historii k
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.6.2000 21:32:25
ahoj,
hledej.asp mi v pohode funguje, ale bejt tebou tak si stahnu konfview od
Slavka Rydvala na http://atrey.karlin.mff.cuni(tec)cz/~bla/konfview.shtml
M.Jirman
----- Original Message -----
From: Ond�ej Kolenat� <kolenaty(zv)supreme(tec)cz>
Dobry den panove.
Chtel bych se zeptat jestli vam take nefunguje fultextove vyhledavani na
webovsk�ch strankach teto konference.
Me to hlasi:
CreateRecordset error 'c0041800'
The content index is corrupt.
/hledani.asp, line 75.
Kam publikovat?
[*] Tomas Burger <slune(zv)yahoo(tec)com> - 19.6.2000 12:33:50 -0700 (pdt)
--- Zdeno Jasek <zdeno.jasek(zv)corinex.sk> wrote:
> potrebujes, musi prechadzat 500 stranok. Na delphi(tec)cz je nejaky pokus
> vytvorit sklad komponentov - ako sa tam da uploadovat?
Skoro se ostycham o tom mluvit, protoze je to velmi, ale velmi vylidnene.
Nicmene je tam cca 6GB mista, takze se neostychejte a piste nejlepe na
Tomas.Burger(zv)delphi(tec)cz, ja vam to tam vystavim...
Tomas
=====
Tomas 'Slune' Burger
-----------------------------------------------
Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
__________________________________________________
Do You Yahoo!?
Send instant messages with Yahoo! Messenger.
http://im.yahoo.com/nefunk�n� vyhled�v�n� v historii konference.
[*] Tomas Burger <slune(zv)yahoo(tec)com> - 19.6.2000 12:37:32 -0700 (pdt)
--- Ond�ej Kolenat� <kolenaty(zv)supreme(tec)cz> wrote:
Zdar Ondro (a vsichni ostatni),
> Chtel bych se zeptat jestli vam take nefunguje fultextove vyhledavani na
> webovsk�ch strankach teto konference.
Preinstalovaval jsem server - mame tam te w2k a iis5 a neni jeste vsechno 100%
dotazene - vzhledem k tomu, ze sedim cca 600km od toho stroje a deli me od nej
nekompromisni http proxyna, to jde trosku pomalejc. Ale vyhledavani uz funguje
a do konce tohoto tydne pobezi znova i archivace (samozrejme data za poslednich
14 dni se neztrati).
Stay tuned!
Tomas
=====
Tomas 'Slune' Burger
-----------------------------------------------
Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
__________________________________________________
Do You Yahoo!?
Send instant messages with Yahoo! Messenger.
http://im.yahoo.com/Generovani tabulky HTML
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 19.6.2000 21:38:38
Ahoj,
vim co je HTML:). Mne slo napr.
o nejakou komponentu, abych nepsal
napsane.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Lauko �tefan
> Sent: Monday, June 19, 2000 2:09 PM
> To: Delphi CZ konferencia
> Subject: RE: Generovani tabulky HTML
>
>
> Ahoj,
> HTML-tabulku je mozne generovat z cohokolvek (TP1..QBASIC pre DOS
> 5.0 az po
> Delphi 5 a vice) staci si trochu prestudovat jazyk HTML.
> HTML-subor je prosty text...
> Lauko.
>
> ----- Original Message -----
> From: Pavel Malinsk� <spiderland(zv)iol(tec)cz>
> To: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> Sent: Saturday, June 17, 2000 11:16 PM
> Subject: Generovani tabulky HTML
>
>
> > Ahoj,
> >
> > nevite nekdo o necem cim bych mohl
> > programove vygenerovat tabulku HTML ?
> >
> > S pozdravem a dikem
> > =====================================
> > > Pavel Malinsky; spiderland(zv)iol(tec)cz <
> > =====================================
> > GSM: 0602 652 203
> >
>
>Trideni cisel
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 19.6.2000 21:38:40
Env: W2000, D5 Pro.
Ahoj,
potreboval bych setridit cisla a napada
me doplnit pred cisla nuly do poctu maximalniho
poctu cifer nejvetsiho cisla, nacist napr.
do StringList a zavolat sort. Nakonec ty
predchazejici nuly zase orezat. Nemate, pls,
nekdo inteligentnejsi a rychlejsi zpusob ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Proc nejde servr delphi.mius.cz ?
[*] Tomas Burger <slune(zv)yahoo(tec)com> - 19.6.2000 12:44:57 -0700 (pdt)
--- x <vrabec(zv)pal.skm.vutbr(tec)cz> wrote:
>
> ty deklarovane dve hodiny sou jako pro zabaveni navstevniku ?
Ne - to je pro ty, co jeste neodchytili, ze ten server ma uz pres 2 roky adresu
http://www.delphi(tec)cz/ - presli jsme na http1.1 a na delphi.mius(tec)cz jsme jaksi
zapomenuli... :)
Takze mala anketka: pouzivate jeste nekdo adresu delphi.mius(tec)cz? Je pro nekoho
problem updatnout si bookmark...?
Tomas
=====
Tomas 'Slune' Burger
-----------------------------------------------
Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
__________________________________________________
Do You Yahoo!?
Send instant messages with Yahoo! Messenger.
http://im.yahoo.com/Vyhledavani archiv konference
[*] Tomas Burger <slune(zv)yahoo(tec)com> - 19.6.2000 12:52:18 -0700 (pdt)
--- Pavel Kahle <kahle(zv)atlas(tec)cz> wrote:
> Jsem jediny komu nejde hledat v konferenci ? -
> psal jsem spravci a nedostal jsem odpoved.
Eh... podle meho outlooku jsem na tvuj email odeslany 13.6. v 13:44 odpovidal
tentyz den v 13:59 - ale na adresu kahle(zv)kahle(tec)cz.
Vysvetleni, proc to nejede, viz predchozi debata...
> Me pripevky, ne ze by bylo o co stat, se objevuji v konferenci s velkym
> zpozdenim (cca 2hod)
2 hodiny je normalni zpozdeni - viz predchozi debata...
Tomas
=====
Tomas 'Slune' Burger
-----------------------------------------------
Tomas.Burger(zv)delphi(tec)cz http://delphi(tec)cz/
__________________________________________________
Do You Yahoo!?
Send instant messages with Yahoo! Messenger.
http://im.yahoo.com/kontrola jine aplikace
[*] x <vrabec(zv)pal.skm.vutbr(tec)cz> - 19.6.2000 23:45:08
No delal sem cele ovladani jine aplikce pomoci posilani sprav, jedna se
o funkce FinWindow a EindWindowdEx. Jinak na tom nic neni. Doporucuju
k tomu pouzit nastroj WinSight.
Jirka
On Mon, 19 Jun 2000, [iso-8859-2] Milan ��ek wrote:
> zdravim vsechny,
> potrebuju poradit s nasledujicim: Jak ziskat seznam vsech otevrenych oken
> (jejich Handelu)? Dale pak bych potreboval nejakou funkci, ktera by dokazala
> overit existenci okna napr. podle Caption.
> A do tretice: daji se nejak zjistit vlastnosti jine spustene aplikace? -
> sirku a vysku formy, jestli je to treba dialog....
>
> Za odpovedi predem dekuji...
> Petr Vones: diky za ty balicky (plugini).
>
> S pozdravem Milan Cizek, amatersky programator, D4 C-S
> cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
> Trideni cisel
[*] x <vrabec(zv)pal.skm.vutbr(tec)cz> - 19.6.2000 23:49:29
ja nevim ale pokud jde o trideni cisel podle velikosti tak snad
neexistuje nic richlejsiho nez znama procedura QuickSort. Nebo sem
nepochopil problem ?
Jirka
On Mon, 19 Jun 2000, [iso-8859-2] Pavel Malinsk� wrote:
> Env: W2000, D5 Pro.
>
> Ahoj,
>
> potreboval bych setridit cisla a napada
> me doplnit pred cisla nuly do poctu maximalniho
> poctu cifer nejvetsiho cisla, nacist napr.
> do StringList a zavolat sort. Nakonec ty
> predchazejici nuly zase orezat. Nemate, pls,
> nekdo inteligentnejsi a rychlejsi zpusob ?
>
> S pozdravem a dikem
> =====================================
> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
> >===================================<
> > ...The Truth Is Out There... <
> =====================================
> GSM: 0602 652 203
> TDirectoryListBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.6.2000 00:22:36
From: <jof(zv)email(tec)cz>
> v programu potrebuji prochazet jednotlive
> adresare, ale pomoci komponenty
> TDirectorylistBox se mi nedari dostat se do
> skrytych adresaru, konkretne do docasnych
> adresaru Internet Exploreru. Poradte prosim.
Ahoj,
Podivej se na funkci SelectDirectory (FileCtrl)
Petr Vones, amatersky programator
Property editor pro TMenuItem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.6.2000 00:22:55
From: "Honza" <delphi(zv)mis-net(tec)cz>
> Druha polovina reseni je mi nejasna doted.
Vypada to, ze by to mohlo jit takhle, ale neni to dvakrat pekne.
procedure TMyMenuComponentEditor.ExecuteVerb(Index: Integer);
var
CompList: TDesignerSelectionList;
procedure AddAnItem;
var
Item: TMenuItem;
Menu: TMenu;
begin
Menu := Component as TMenu;
Item := TMenuItem(Designer.CreateComponent(TMenuItem, Menu, 0, 0, 0, 0));
try
Item.Caption := 'Item ...';
Menu.Items.Add(Item);
Designer.Modified;
except
Item.Free;
raise;
end;
end;
function CheckMenuDesigner: Boolean;
var
W: HWND;
begin
W := FindWindow('TMenuBuilder', nil);
Result := (W = 0) or not IsWindowVisible(W);
if not Result then
MessageDlg('You have to close menu designer before add an item', mtWarning, [mbOk], 0);
end;
begin
case Index of
0: begin
CompList := TDesignerSelectionList.Create;
try
CompList.Add(Component);
GetComponentProperties(CompList, [tkClass], Designer, EnumPropEditors);
finally
CompList.Free;
end;
end;
1: if CheckMenuDesigner then AddAnItem;
end;
end;
Petr Vones, amatersky programator
prace s komponentou TExcelApplication
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 20.6.2000 01:20:02
Mate s tim nekdo zkusenosti ?
Uz nevim jak dal.
Dik
prace s komponentou TExcelApplication
[*] Cerny Roman <cerny.roman(zv)atlas(tec)cz> - 20.6.2000 03:55:10
No to je docela nejasny dotaz, rekni alspon kam az si se dostal :)
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Robert Lufinka
Sent: Tuesday, June 20, 2000 1:20 AM
To: delphi-l(zv)fwd(tec)cz
Subject: prace s komponentou TExcelApplication
Mate s tim nekdo zkusenosti ?
Uz nevim jak dal.
Dik
ODBC
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 20.6.2000 07:44:02
> nevite nekdo jak programove ( D5 ) vytvorit
> ODBC datovy zdroj ? Jde o to, aby uzivatel nemusel
> sam nastavovat ODBC, ale aby to program udelal sam.
K tomu existuje v ODBC API funkce
SQLConfigDataSource s parametrem ODBC_ADD_DSN
nebo ODBC_ADD_SYS_DSN
Osobni zkusenost s touto funkci vsak nemam, nebot
pripojit k databazi se da i bez DSN (datoveho zdroje).
Staci napsat uplny ConnectionString a pouzit pro pripojeni
funkci SqlDriverConnect (na misto SqlConnect).
Pokud pouzivas nejakou komponentu zapouzdrujici ODBC,
tak verim ze i tak to bude umet.
Daniel
------------------------------------------------------
Daniel Rott - roxton(zv)volny(tec)cz
http://www.volny(tec)cz/roxton
Some minor bugs/features fixed/added
deadlock v IB6
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 20.6.2000 08:24:50
Zrejme je to pri pouziti IBTable neriesitelna situacia. Totiz vzdy ked
je Ibtable active=true, tak je aj transakcia aktivna (aj ked je nastavene
CachedUpdates=True), ked transakciu ukoncim cez Commit, tak sa automaticky
nastavi active Ibtable na False a data z dbgridu zmiznu.
Asi nie je mozne pracovat nad viacerymi zaznamami sucasne vo
viacuzivatelskych
aplikaciach. (Ak je, budem vdacny za kazdu radu).
----- Original Message -----
> Ahoj,
> je to trochu jinak. SQL links nejsou treba, IB Expres staci.
> Je ale nutne spravne zmaknout transakce. Prijde mi to, ze
> pri spusteni aplikace se nahodi transakce, ktera se ukonci
> az s koncem aplikace. Asi je treba kazdy zapis osetrit COMMIT.
>
> Michal
>
>
> >
> > Ahoj,
> > narazil jsem na stejny problem. Kdyz jdem hledal v dokumentaci k IB6
> > nasel jsem pro multi-user jsou nutne SQL links. Jelikoz mam
> > je D5 PRO, dost
> > mi to stve.
> >
> > Michal.
> >
> >
>
>
Hodne tabulek na SQL
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 20.6.2000 08:32:20
U nas mame nasazeny SAP R/3 na platforme Win NT 4.0 a MS SQL Server 7.
Ten SAP si vsechno cpe do nejake tabulky a ma jich tam pozehnane,
presne 53 281. Nezda se mi, ze by to ten SQL server se z toho nejak
zpomaloval.
Jirka
----- P�vodn� zpr�va -----
Od: David Lebeda <david.lebeda(zv)comarr(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 19. �ervna 2000 14:12
P�edm�t: Hodne tabulek na SQL
> Ahoj,
>
> chci se zeptat na toto: Vim, ze na SQL serveru neni problem mit
> velky objem dat. Jak je to s velkym poctem tabulek v databazi?
> Nebude to zdrojem nejakeho znatelneho zpomaleni pri praci s
> takovou databazi?
>
> Mam MSSQL7, ale otazka je minena obecne.
>
> Diky.
>
> David
Radkovani pri znakovem tisku
[*] roucka(zv)datus(tec)cz - 20.6.2000 08:38:29
Ahoj vsem zucastnenym.
Prosim o radu. Pokousim se o znakovy tisk pres textovy soubor
na obecnou tiskarnu asi takto:
var
f: TextFile;
begin
AssignPrn(f);
Rewrite(f);
Writeln(f, 'abcd');
Writeln(f, 'efgh');
Writeln(f, 'ijkl');
System.CloseFile(f);
end;
Nadefinoval jsem si vlastni soubor \WINDOWS\TTY.DAT pro kodovani LATIN 2.
Vsechno by bylo v poradku, jenom tiskarna mi tvrdosijne zdvojuje radkovani.
To znamena, ze pro kazde Writeln(...) odradkuje dvakrat. Vysledkem je tisk
textu obradek. Poradte mi, prosim, nekdo, jak donutit tiskarnu, aby
radkovala
po kazdem Writeln(...) jenom jednou.
Diky
Vaclav Roucka---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
ADO+DBase+Rychlost
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 20.6.2000 09:56:04
Ahoj vsichni
Mozna se uz o tom psalo, ale na serge jsem nic moc nenasel.
Prosim o radu jak je potreba nastavit ADO ( bud Ado Expre, nebo primo
ActiveX) pro nasledujici cinnost:
Mam pomerne rozsahly .DBF soubor cca 1 000 000 zaznamu. Potrebuji ho bud bez
filtru nebo s filtrem na neindexovane polozce prekopirovat na MS SQL. Delam
to tak, ze prochazim zaznam po zaznamu a insertuju do tabulky na MS SQL 7.0.
Pouzivam pri tom ADODataSet a ADOCommand z D5.
Bohuzel vse probiha rychlosti splaseneho sneka.
Co by bylo treba, abych vse zrychlil? Jaky pouzit OLE DB provider? Jak
nastavit Connection, DataSet,...? Je lepe pristupovat, resp. filtrovat pres
SQL dotaz, nebo pouzit filter na ADODataSetu?
Diky za kazdou radu, resp. odkaz na web.
Jaromir Cermak
title v dbgridu
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 20.6.2000 09:09:09
> From: "Pavel Kahle" <kahle(zv)atlas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Subject: title v dbgridu
> Date: Wed, 19 Jul 2000 18:55:45 +0200
> Reply-to: delphi-l(zv)fwd(tec)cz
> Zdravim,
>
> lze nejak zrusit 1. pevny radek u dbgridu ?
>
>
V options toho gridu nastav dgTitles na false.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Radkovani pri znakovem tisku
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 20.6.2000 10:15:00
>
> Vsechno by bylo v poradku, jenom tiskarna mi tvrdosijne
> zdvojuje radkovani.
> To znamena, ze pro kazde Writeln(...) odradkuje dvakrat.
> Vysledkem je tisk
> textu obradek. Poradte mi, prosim, nekdo, jak donutit tiskarnu, aby
> radkovala
> po kazdem Writeln(...) jenom jednou.
>
A jaka je to tiskarna? Pokud si dobre vzpominam tak u jehlickovych
slo nastavit, jestli tiskarna po obdrzeni Cr(navrat voziku) udela
automaticky taky Lf(odradkovani) - nastavovalo je to nejakym dip
prepinacem primo na tiskarne (mozna na to existuje i nejaka esc
sekvence). Je treba hledat v manualu tiskarny...
s pozdravem Otakar Milink deadlock v IB6
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 20.6.2000 10:31:00
Zamozrejme, ze to mozne je, jen nepouzivej TIBTable ale nejlepe
TIBDataSet, to je spica komponenta.
Mam dokonce napsanej program, kterej mi ho vytvori a sam
vyplneni SQL prikazy pro insert, update, delete atd. dle struktury
tabulky, takze diky tomu to ani moc nezdrzuje pri programovani.
Problemy se sdilenim tam pak zadny nejsou.
> Zrejme je to pri pouziti IBTable neriesitelna situacia. Totiz vzdy ked
> je Ibtable active=true, tak je aj transakcia aktivna (aj ked je nastavene
> CachedUpdates=True), ked transakciu ukoncim cez Commit, tak sa automaticky
> nastavi active Ibtable na False a data z dbgridu zmiznu.
> Asi nie je mozne pracovat nad viacerymi zaznamami sucasne vo
> viacuzivatelskych
> aplikaciach. (Ak je, budem vdacny za kazdu radu).
>
>
> ----- Original Message -----
>
> > Ahoj,
> > je to trochu jinak. SQL links nejsou treba, IB Expres staci.
> > Je ale nutne spravne zmaknout transakce. Prijde mi to, ze
> > pri spusteni aplikace se nahodi transakce, ktera se ukonci
> > az s koncem aplikace. Asi je treba kazdy zapis osetrit COMMIT.
> >
> > Michal
> >
> >
> > >
> > > Ahoj,
> > > narazil jsem na stejny problem. Kdyz jdem hledal v dokumentaci k IB6
> > > nasel jsem pro multi-user jsou nutne SQL links. Jelikoz mam
> > > je D5 PRO, dost
> > > mi to stve.
> > >
> > > Michal.
> > >
> > >
> >
> >
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Radkovani pri znakovem tisku
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 20.6.2000 10:49:50
Ahoj,
zrejme ma samotna tlaciaren nastavene aby riadkovala po <CR> aj po <LF>
(pozri manual).
Riesenie: prestav tlaciaren, alebo posielaj udaje pre jeden riadok takto
Write(f, 'abdc',#13);
Palo.
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: <roucka(zv)datus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, June 20, 2000 8:38 AM
Subject: Radkovani pri znakovem tisku
Ahoj vsem zucastnenym.
Prosim o radu. Pokousim se o znakovy tisk pres textovy soubor
na obecnou tiskarnu asi takto:
var
f: TextFile;
begin
AssignPrn(f);
Rewrite(f);
Writeln(f, 'abcd');
Writeln(f, 'efgh');
Writeln(f, 'ijkl');
System.CloseFile(f);
end;
Nadefinoval jsem si vlastni soubor \WINDOWS\TTY.DAT pro kodovani LATIN 2.
Vsechno by bylo v poradku, jenom tiskarna mi tvrdosijne zdvojuje radkovani.
To znamena, ze pro kazde Writeln(...) odradkuje dvakrat. Vysledkem je tisk
textu obradek. Poradte mi, prosim, nekdo, jak donutit tiskarnu, aby
radkovala
po kazdem Writeln(...) jenom jednou.
Diky
Vaclav Roucka---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
Radkovani pri znakovem tisku
[*] Mik Radim <mik(zv)oce(tec)cz> - 20.6.2000 11:40:21
Co takhle mist WriteLn pouzit
Write( 'text'#10);
nebo
Write( 'text'#13);
---------------------------------------
Radim Mik, SyCo DPS
> > Vsechno by bylo v poradku, jenom tiskarna mi tvrdosijne
> > zdvojuje radkovani.
> > To znamena, ze pro kazde Writeln(...) odradkuje dvakrat.
> > Vysledkem je tisk
> > textu obradek. Poradte mi, prosim, nekdo, jak donutit tiskarnu, aby
> > radkovala
> > po kazdem Writeln(...) jenom jednou.Delphi a makra v Excelu
[*] jurovska(zv)datus(tec)cz - 20.6.2000 11:43:28
Ahoj. Prosim o radu. Potrebovala bych z programu v Delphi vytvorit makro v
Excelu. Nevim, jak na to. Diky.
Alzbeta Jurovska
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.134 / Virov� b�ze: 63 - datum vyd�n�: 20.3.2000
Radkovani pri znakovem tisku
[*] roucka(zv)datus(tec)cz - 20.6.2000 11:48:28
Ahoj vsem zucastnenym.
Omlouvam se za neuplne informace v puvodnim dotazu a posilam jej jeste
jednou.
Prosim o radu. Pokousim se o znakovy tisk pres textovy soubor na obecnou
tiskarnu asi takto:
var
f: TextFile;
begin
AssignPrn(f);
Rewrite(f);
Writeln(f, ,abcd');
Writeln(f, ,efgh');
Writeln(f, ,ijkl');
System.CloseFile(f);
end;
Nadefinoval jsem si vlastni soubor \WINDOWS\TTY.DAT pro kodovani LATIN 2.
Vsechno by bylo v poradku, jenom tiskarna mi tvrdosijne zdvojuje radkovani.
To znamena, ze pro kazde Writeln(...) odradkuje dvakrat. Vysledkem je tisk
textu obradek. Jedna se o operacni system Windows 95 a jehlickovou tiskarnu
EPSON LX-400 a STAR LC24-20. U te EPSONky neni dip-switch na vypinani
automatickeho odradkovani.
U STARky jsem automaticke odradkovani vypnul, ale nepomohlo to. Chtel jsem
to skusit vypnout pomoci ESC sekvenci
pred zacatkem tisku primo ve vlastnostech obecne tiskarny na strance
"Moznosti zarizeni" v kolonce "Zacatek ulohy"
v kodech zarizeni, ale prislusnou sekvenci jsem v prirucce k tiskarne
nasel pouze pro emulaci IBM, ale ne pro EPSON.
Zkousel jsem hledat i v priruckach k jinym jehlickovym tiskarnam, ale
bohuzel.
Poradte mi, prosim, nekdo, jak donutit tiskarnu, aby radkovala po kazdem
Writeln(...) jenom jednou.
Diky
Vaclav Roucka---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
Radkovani pri znakovem tisku
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 20.6.2000 11:57:16
Ahoj,
jak vypada ten textovy soubor ? Nejsou nahodou radky v nem ukoncene CR+LF ?
Pak by to mohlo vysvetlovat dvoji radkovani.
Jolana Kotatkova
-----P�vodn� zpr�va-----
Od: roucka(zv)datus(tec)cz [mailto:roucka(zv)datus(tec)cz]
Odesl�no: 20. �ervna 2000 11:48
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Radkovani pri znakovem tisku
Ahoj vsem zucastnenym.
Omlouvam se za neuplne informace v puvodnim dotazu a posilam jej jeste
jednou.
Prosim o radu. Pokousim se o znakovy tisk pres textovy soubor na obecnou
tiskarnu asi takto:
var
f: TextFile;
begin
AssignPrn(f);
Rewrite(f);
Writeln(f, ,abcd');
Writeln(f, ,efgh');
Writeln(f, ,ijkl');
System.CloseFile(f);
end;
Nadefinoval jsem si vlastni soubor \WINDOWS\TTY.DAT pro kodovani LATIN 2.
Vsechno by bylo v poradku, jenom tiskarna mi tvrdosijne zdvojuje radkovani.
To znamena, ze pro kazde Writeln(...) odradkuje dvakrat. Vysledkem je tisk
textu obradek. Jedna se o operacni system Windows 95 a jehlickovou tiskarnu
EPSON LX-400 a STAR LC24-20. U te EPSONky neni dip-switch na vypinani
automatickeho odradkovani.
U STARky jsem automaticke odradkovani vypnul, ale nepomohlo to. Chtel jsem
to skusit vypnout pomoci ESC sekvenci
pred zacatkem tisku primo ve vlastnostech obecne tiskarny na strance
"Moznosti zarizeni" v kolonce "Zacatek ulohy"
v kodech zarizeni, ale prislusnou sekvenci jsem v prirucce k tiskarne
nasel pouze pro emulaci IBM, ale ne pro EPSON.
Zkousel jsem hledat i v priruckach k jinym jehlickovym tiskarnam, ale
bohuzel.
Poradte mi, prosim, nekdo, jak donutit tiskarnu, aby radkovala po kazdem
Writeln(...) jenom jednou.
Diky
Vaclav Roucka---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
Radkovani pri znakovem tisku
[*] roucka(zv)datus(tec)cz - 20.6.2000 12:23:21
To jsem zkousel, ale neni to nic platne.
Kdyz pouziju
Write( ,text'#13);
neodradkuje to vubec
a kdyz pouziju
Write( ,text'#10);
odradkuje tiskarna dvakrat.
Vypada to, jako by se znak LF (#10) duplikoval.
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] za u�ivatele Mik
Radim
Odesl�no: 20. �ervna 2000 12:18
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Radkovani pri znakovem tisku
Co takhle mist WriteLn pouzit
Write( ,text'#10);
nebo
Write( ,text'#13);
---------------------------------------
Radim Mik, SyCo DPS
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
adresare windows
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.6.2000 12:55:14
V registru ve vetvi HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion si to muzes vyzobat
Jan Fiala
----- Original Message -----
From: "Milan Dvo��k" <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz>> Zdravim!
>
> Nevite nekdo, jak zjistit adresar, do kterych jsou nainstalovany
> windowsy a souvisejici adresare (tedy standardne WINDOWS,
> WINDOWS\SYSTEM apod, napr i Program Files).
> Milan Dvorak
> dvorak(zv)gymzn(tec)cz
> Inkrementalni hledani
[*] Robert Kindl <rob(zv)exec(tec)cz> - 20.6.2000 11:57:11
> Neresili jste nekdo inktermentalni hledani na MS SQL serveru 7.0?
> Tzn. Mam Gridu a ted zacnu psat napriklad nazev obce a ono mi to skace na
nejblizsi podobny zaznam.
> Pouzivam ADOExpress a nejde tam pouzit GotoNearest.
> J. N�dhera
No ja myslim, ze to ani nepujde (alespon ne jednoduse).
Ono totiz SQL z principu nefunguje stylem "prejdi na zaznam XY",
ale stylem "najdi zaznam XY". Takze spravne reseni je, ze
napr. pisu nazev obce a ono to postupne filtruje napr.
po napsani P mam vsechny od P po napsani R mam vsechny od PR atd.
Ostatni zaznamy proste zmizi...
Rob
adresare windows
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 20.6.2000 12:59:01
Zajistuji to API funkce
GetSystemDirectory, GetWindowsDirectory
Priklad z RX Unit:
function GetWindowsDir: string;
{$IFDEF WIN32}
var
Buffer: array[0..1023] of Char;
begin
SetString(Result, Buffer, GetWindowsDirectory(Buffer, SizeOf(Buffer)));
{$ELSE}
begin
Result[0] := Char(GetWindowsDirectory((zv)Result[1], 254));
{$ENDIF}
end;
Program Files:
The location of the Program Files and Common Files directories is registered
(using the macro REGSTR_PATH_SETUP) in the HKEY_LOCAL_MACHINE root under the
SOFTWARE\Microsoft\Windows\CurrentVersion key. The value names are
ProgramFilesDir and CommonFilesDir.
Vlada Cadsky
----- Original Message -----
From: Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, June 20, 2000 1:24 PM
Subject: adresare windows
> Zdravim!
>
> Nevite nekdo, jak zjistit adresar, do kterych jsou nainstalovany
> windowsy a souvisejici adresare (tedy standardne WINDOWS,
> WINDOWS\SYSTEM apod, napr i Program Files).
> Milan Dvorak
> dvorak(zv)gymzn(tec)cz
adresare windows
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 20.6.2000 12:24:25
Zdravim!
Nevite nekdo, jak zjistit adresar, do kterych jsou nainstalovany
windowsy a souvisejici adresare (tedy standardne WINDOWS,
WINDOWS\SYSTEM apod, napr i Program Files).
Milan Dvorak
dvorak(zv)gymzn(tec)cz
deadlock v IB6
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 20.6.2000 13:25:56
A mohol by si mi nejaky jednoduchy priklad poslat ?
----- Original Message -----
> Zamozrejme, ze to mozne je, jen nepouzivej TIBTable ale nejlepe
> TIBDataSet, to je spica komponenta.
> Mam dokonce napsanej program, kterej mi ho vytvori a sam
> vyplneni SQL prikazy pro insert, update, delete atd. dle struktury
> tabulky, takze diky tomu to ani moc nezdrzuje pri programovani.
> Problemy se sdilenim tam pak zadny nejsou.
>
> > Zrejme je to pri pouziti IBTable neriesitelna situacia. Totiz vzdy ked
> > je Ibtable active=true, tak je aj transakcia aktivna (aj ked je
nastavene
> > CachedUpdates=True), ked transakciu ukoncim cez Commit, tak sa
automaticky
> > nastavi active Ibtable na False a data z dbgridu zmiznu.
> > Asi nie je mozne pracovat nad viacerymi zaznamami sucasne vo
> > viacuzivatelskych
> > aplikaciach. (Ak je, budem vdacny za kazdu radu).
> >
> >
> > ----- Original Message -----
> >
> > > Ahoj,
> > > je to trochu jinak. SQL links nejsou treba, IB Expres staci.
> > > Je ale nutne spravne zmaknout transakce. Prijde mi to, ze
> > > pri spusteni aplikace se nahodi transakce, ktera se ukonci
> > > az s koncem aplikace. Asi je treba kazdy zapis osetrit COMMIT.
> > >
> > > Michal
> > >
> > >
> > > >
> > > > Ahoj,
> > > > narazil jsem na stejny problem. Kdyz jdem hledal v dokumentaci k IB6
> > > > nasel jsem pro multi-user jsou nutne SQL links. Jelikoz mam
> > > > je D5 PRO, dost
> > > > mi to stve.
> > > >
> > > > Michal.
> > > >
> > > >
> > >
> > >
> >
> >
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Cerneho 58/60, 635 00
> tlf. : + 420 5 4622 3491
> fax : + 420 5 4622 3470
> GSM : + 420 603 85 75 15
Client/server Master/detail
[*] ing. Ale� Da�a - 20.6.2000 13:35:37
Zdar
potreboval bych poradit, ktera cesta na pouziti vztahu master-detail je
lepsi ci vyhodnejsi.
Moznosti:
1. nacist master a v dohledavat detail
2. pouzit nested table v masteru.
Zkousel jsem obe varianty a zda se mi, ze druha metoda byla trochu
jednodussi v konstrukci na serveru.
Muzete mi poradit jestli v techto metodach neni zakopany pes.
Alea Dana