Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
nepovinny PARAMETR
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 11.5.1999 14:01:00
> > > Jenze to je trochu neco jineho. Tato deklarace (tedy s var) dosud
> > > neni v Pascalu mozna. Je to s podivem, protoze nekde uvnitr to
> > > mozne evidentne je. Ale zatim se Inprise neuracil zpristupnit
> > > takovehle deklarace i nam.
> >...
>
> Jiste, ale az od D4. Ovsem nelze tak rozumne resit neco jako
> Write, kde mohou byt libovolne parametry v temer libovolnem
> poctu. :-)
To je tezke, promenny pocet parametru.
V Pascalu plati, ze
parametry ze zasobniku uklizi volana funkce/procedura,
dela to instrukci RET n
V C/C++ uklizi parametry volajici (takze jich tam muze dat, kolik chce,
kdyz je z toho zasobniku zase vybere) a navic pri volani treba
function PrumerNCisel( N,a1,a2,a3,... atd.)
ma volana funkce to N ulozeno vzdycky na stejnem miste (navrchu),
protoze C-cko uklada parametry v obracenem poradi nez Pascal.
Takze zpristupnit to Inprise nemuze.
Btw. treba ten Write() se preklada jako tolik volani,
kolik je parametru.
Tom
QReport TQRDBText a AutoStretch
[*] Jaroslav Ostadal <jaroslav.ostadal.fs(zv)vsb(tec)cz> - 11.5.1999 15:24:00
Vazeni kolegove,
znate nekdo tento problem a jak ho vyresit ?
Mam na QReportu v bandu Detail komponentu TQRDBText pro tisk memo pole
z MSSQL. Komponenta ma vlastnost AutoStretch, protoze text byva promenlive
delky 1 - 5 radek. Funguje to takto : Na Preview vidim text vzdy spravne v cele
delce, po vytisteni se nekdy ztrati posledni radek. Proc je rozdil mezi Preview a
Print ?
Dobry den,
jsem tu novy Koneferenci spis jen sleduji.
Tvorbou Sestav v Qreportu jsem se zabyval a
faktem je ze rozdil mezi print a preview je
neprijemna vec. Nepodarilo se mi ji odstranit.
proto jsem Preview pouzival spis jen jako zbeznou kontrolu.
pro celkovou kontrolu jsem pouzival Tisk.
ten je vsak trosicku drahy.
S pozdravem
Jaroslav Ostadal
jaroslav.ostadal.fs(zv)vsb(tec)cz
Tla��tko Start a menu jako ve Windows
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 11.5.1999 15:37:59
Hi,
nev�te pros�m V�s n�kdo o komponent�, pop�. jak doc�lit toho, abych si na
formul�� um�stil tla��tko jako je tla��tko Start ve Windows v�etn� menu
sm�rem nahoru a n�pisem po jeho lev� stran� ?
D�ky
Va�ek
V�clav Lukes
0603-511247
Vaclav.Lukes(zv)pvt(tec)cz
Delphi 4 & Win 2000 ( WinNt 5.0 )
[*] Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk> - 11.5.1999 15:37:37
Beta 3 je napr. na http://www.microsoft(tec)cz/win2000cpp/ za cca 700 Kc / Sk.
Dalibor
********************************
Dalibor Zliechovec
Frequentis s.r.o.
dalibor.zliechovec(zv)frequentis.sk
+421 7 64287798
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Zbysek Hlinka
Sent: Tuesday, May 11, 1999 11:59 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Delphi 4 & Win 2000 ( WinNt 5.0 )
Jaro wrote:
> Kde jsi vzal Win2000 ?
Beta verze se poflakuji leckdes, ja jsem si jednu napriklad prinesl
ze seminare v Belohradu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Tla��tko Start ... a "svisly"
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.5.1999 16:33:47
Neco takoveho umi rxPopupMenu, je to
ukazano v tom demu k rxLib.
A jaxe tu nekdo ptal na psani textu "nastojato",
tak je tam i videt, jaxe to dela, prave v tom
napisu "bokem"
Dobra.
procedure TMainForm.PopupMenuDrawMargin(Sender: TMenu; Rect: TRect);
const
Txt = 'RXLib';
begin
with PopupMenu.Canvas.Font do begin
Name := 'Courier New';
Style := [fsBold];
Size := 20;
Color := clWhite;
Handle := CreateRotatedFont(PopupMenu.Canvas.Font, 90);
end;
PopupMenu.DefaultDrawMargin(Rect, clLime, RGB(GetRValue(clLime) div 4,
GetGValue(clLime) div 4, GetBValue(clLime) div 4));
SetBkMode(PopupMenu.Canvas.Handle, TRANSPARENT);
ExtTextOut(PopupMenu.Canvas.Handle, Rect.Left, Rect.Bottom - 5,
ETO_CLIPPED,
(zv)Rect, Txt, Length(Txt), nil);
end;> ----------
> nev�te pros�m V�s n�kdo o komponent�, pop�. jak doc�lit toho, abych si
> na
> formul�� um�stil tla��tko jako je tla��tko Start ve Windows v�etn�
> menu
> sm�rem nahoru a n�pisem po jeho lev� stran� ?
>
> InitiateSystemShutdown
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 11.5.1999 14:51:10 met
> Cavte !
>
> Neviete niekto preco mi to vyhadzuje hlasku -
> "Tato funkce je pristupna pouze v rezimu Win32 "
>
> Mam W95 4.00.950 a D3.
>
>
> InitiateSystemShutdown(nil,nil,0,True,True);
> ShowMessage(SysErrorMessage(GetLastError));
>
>
> Diky.
Mozna ze placam mimo, ale ja se kouk do helpu, a tam stoji, ze je
to jen pro WinNT ...
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
SQL- docasne tabulky
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.5.1999 18:13:31
To uz je mlaceni prazdne slamy.
Mam snad poslat do konference svoje curiculum vitae, abych se branil tvemu narceni z nedostatecnych vyvojarskych zkusenosti?
Ucastnici mych kurzu (blizim se k cislu 900) potvrdi, ze jsem velkym zastancem Programovani na strane Server. Pokud jde o logiku dat, snazim se dokonce priblizit k idealu "vsechno na server".
Polozene argumenty byly nekolikrat prekrouceny, takze se odpovida uz na neco jineho, nez o cem byl spor.
Navrhuji proto:
Posli mi priklad na pouziti pomocnych tabulek a pokud se mi podari vyresit to lepe a elegantneji, mam u tebe 10 piv. Pokud ne, mas je u me.
Mozna, nez to pivo vypijeme, vysvetlime si problem lepe a nase odborne nazory se v mnohem sblizi.
Honza
----------
> Odes�latel: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: SQL- docasne tabulky
> Datum: 11. kv�tna 1999 7:12
>
> > -----Original Message-----
> > From: honza(zv)haes(tec)cz [mailto:honza(zv)haes(tec)cz]
> > Sent: Sunday, May 09, 1999 10:27 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: SQL- docasne tabulky
> >
> >
> > > >[Honza]
> > > >> > Programovani procedur a funkci je neco jineho nez prace s
> > > >> > relacni databazi.
> > [Jaro]
> > > Nevim, proc by to melo byt neco jineho. I tady lze dodrzet relacni
> > > model.
> > [Honza]
> > Pokud si vzpominam, tak tam slo o tvrzeni, ze docasne tabulky
> > hraji stejnou roli jako lokalni promenne v pascalovskych
> > funkcich. Alespon tak jsem to pochopil.
>
> Ne, pochopils to spatne. To bylo pouze tvrzeni na stejne urovni.
> Tys tvrdil, ze docasne tabulky jsou zbytecnost. To tvrzeni ma stejnou
> hodnotu jako tvrzeni, ze lokalni promenne jsou zbytecnost. Teda - je to
> blbost.
>
> > > >[Honza]
> > > >Prostoru pro docasne uchovani informaci (ve vztahu ke
> > "Klietovi") mam
> > > v pameti sveho pocitace dost.
> > [ Jaro]
> > > Zpravidla jde o to, ze pokud existuje dalsi zpracovani, tak
> > ne serveru
> > > to probiha mnohem rychleji.
> > [Honza]
> > To dozajista ano. Ulozene procedury mam taky rad.
> > Ale pokud si vzpominam, tak tam slo o to, ze si nekdo do
> > pomocnych tabulek uklada seznam chyb pri validaci zaznamu.
> >
>
> Podle Tve reakce soudim, ze predpokladas validace na klientovi.
> Asi nemas zkusenosti s rozsahlymi C/S aplikacemi - ono by
> skolitelum neskodilo nejaky cas programovat :-)
> (Tim Te nechci hanet, je ale pravda, ze mi nektere Tve nazory
> nepripadaji moc prakticke a myslim si, ze je to prave tim,
> zes nevyvijel a nenasazoval u zakaznika nejaky rozsahly IS).
> Architektura C/S poskytuje volnost volby, kam umistime
> aplikacni logiku. Programatori vyuzivajici jednoduche
> databaze moznost volby prakticky nemaji - vetsinu aplikacni logiky
> musi soustredit na klienty. Naopak pri pouziti lepsiho databazoveho stroje
> je v drtive vetsine pripadu (se kterymi jsem se setkal) vyhodnejsi
> nacpat pokud mozno vsechno do databazoveho serveru a klienty pouzivat
> predevsim k prezentaci dat. Proto i validace by mely probihat
> na serveru (vzdyt jsou navic castecne realizovany pomoci constraints).
> No a v tom pripade potrebujes po dojeti validace dostat seznam chyb na
> klienta.
>
> Jeste k validacim - nekdy, aby to bylo jeste horsi, validace nemuzes mit
> na klientovi vubec. To je v pripadech, kdy potrebujes zjistovat nejake dalsi
> udaje v databazi a tech dat, ktera musis projit, je hodne. Kdybys to
> provadel
> na klientovi, musel bys prenaset velke mnozstvi dat.
>
> Jura
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web :http://freeweb.coco(tec)cz/jpolak
> ----------
> The only good bug, is a dead bug!Microsoft a produkty
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 11.5.1999 19:07:04
1) Nevi nekdo, kam si produkty od microsoftu ukladaji informace o tom, na
kterych webovych strankach jsem uz byl? Potreboval bych s tim udelat asi
totez, co m$ a to zmenit barvu labelu na fialovou
2) Jak se dostat k informacim z Adresare, ktere zase pouziva Outlook....
Dik za rady
cau PAVEL
ExitProc a DLL
[*] Smitka Jiri <XSMITKA(zv)hwlab.felk.cvut(tec)cz> - 11.5.1999 18:37:11 met-1mest
Ahoj,
nemate nekdo vysvetleni, proc v DLL knihovne nefunguje ExitProc ?
Napsal jsem kus programu presne podle helpu - a ono nic. Zadna chyba,
ale taky zadna akce. Funguje pouze v exe.
Zdravi Jirka
P.S. Anebo to ma chodit a chyba je nekde mezi klavesnici a zidli ?
/\_/\
(0 0)
--------------------------oOO--(_)--OOo-----------------------------
Jiri Smitka, CVUT FEL E-mail: xsmitka(zv)hwlab.felk.cvut(tec)cz
( OK1HFE ) WWW: http://cs.felk.cvut(tec)cz/~xsmitka
--------------------------------------------------------------------
Funkce Substr nebo MID
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 11.5.1999 21:13:34
Panstvo, mam dotaz. Napsal jsem si fukci MID (pro pametniky basicu), protoze jsem v Delphi nic takoveho nenasel. Je to jednoduche:
Function MID(ZDROJ:String; ODKOLIKATEPOZICE:Integer;KOLIKZNAKU:Integer):String
Umi nekdo chytrej toto v assembleru, abych dosahl co nevyssi rychlosti?
Dik
Lubor
Funkce Substr nebo MID
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 11.5.1999 21:37:57
A neni na tohle funkce Copy ?
Radim
>Panstvo, mam dotaz. Napsal jsem si fukci MID (pro pametniky basicu),
protoze jsem v Delphi nic takoveho nenasel. Je to jednoduche:
>Function MID(ZDROJ:String;
ODKOLIKATEPOZICE:Integer;KOLIKZNAKU:Integer):String
>
>Umi nekdo chytrej toto v assembleru, abych dosahl co nevyssi rychlosti?
>Dik
>Lubor
JAK OSETRIT ALT+F4
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 11.5.1999 21:57:52
No, s tim spletenim to asi nebude u mne :-), zkus si primitivne napsat primitivni aplikaci, kde na form1 udelas v metode OnClose toto primitivni:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
ShowMessage('Nejdu zavrit');
end;
Jestli to pak zavres jinak nez pres debugger nebo windows shutdown, uznam, ze jsem se spletl. Priste, nez budes kritizovat, si to napred prozkoumej a podivej se, co se pise v helpu k Delphi :-)))
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Paja <delphi4(zv)seznam(tec)cz>
Komu: Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 10. kv�tna 1999 23:18
P�edm�t: Re: JAK OSETRIT ALT+F4
Nazdar,
a hned na zacatku te musim upozornit ze jsi se spletl, mozna jsem primitivni
ale jak zavrit aplikaci to vim ja jen chci dosahnout toho aby se ta aplikace
prave nezavrela. To znamena ze chci a by pri stisku ALT+F4 se treba napsalo
"zadny takovy" a ne aby se aplikace ukoncila. Dalsi dotaz je tedy(protoze
jsem primitiv tak to nevim) jak disablovat Close(tedy krizek v hornim pravem
rohu okna(ne jak ho schovat ale disablovat)), tak snad si to pochopil.
Diky za odpoved Paja(primitiv)
-----P�vodn� zpr�va-----
Od: Kolar Lubor <LuborK(zv)tnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. kv�tna 1999 21:30
P�edm�t: Re: JAK OSETRIT ALT+F4
>Pajo, nic proti, ale tvoje otazky jsou vetsinou znacne primitivni :-).
Napr. v Tform.Close.
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
>----- P�vodn� zpr�va -----
>Od: Paja <delphi4(zv)seznam(tec)cz>
>Komu: Delphi <delphi-l(zv)fwd(tec)cz>
>Odesl�no: 8. kv�tna 1999 19:10
>P�edm�t: JAK OSETRIT ALT+F4
>
>
>> Nazdar,
>>
>> Zajimalo by me jestli nekdo nevite jak osetrit stisk a tedy nasledne
>> ukonceni ALT+F4
>>
>> Diky za jakoukoli odpoved.
>>
>
>
Otoceni labelu
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 11.5.1999 22:21:47
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. kv�tna 1999 20:04
P�edm�t: Re: Otoceni labelu
>Takto maluji text do elipsy, takze si to preber:
>
>procedure ...
Uz jsem si to prebral:-). Diky
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
Funkce Substr nebo MID
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.1999 23:18:17
Kolar Lubor wrote:
>
> Panstvo, mam dotaz. Napsal jsem si fukci MID (pro pametniky basicu), protoze jsem v Delphi nic takoveho nenasel. Je to jednoduche:
> Function MID(ZDROJ:String; ODKOLIKATEPOZICE:Integer;KOLIKZNAKU:Integer):String
>
> Umi nekdo chytrej toto v assembleru, abych dosahl co nevyssi rychlosti?
Ahoj,
Pouzij funkci Copy. Co se tyce rychlosti nemusis mit obavy, je psana v assembleru :-)
Konkretne je to _LStrCopy v System.pas
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
checkbox - Enter =?iso-8859-2?Q?m=EDsto?= Tab
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.1999 23:18:42
Bardon wrote:
>
> Prosim, poradte mi nejaky chytry zpusob, jak to udelat, aby se mi pro stisku klavesy Enter na checkboxu choval formular tak, jako kdybych stisknul tabulator - to jest posunul se na dalsi polozku. Zkousel jsem OnKeyDown a OnKeyPress a vubec se mi to tam nedostane, asi to odchytava uz formular.
Ahoj,
Muzes to udelat treba takhle, KeyPreview na formulari nastav na True:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) and (ActiveControl is TCheckBox) then
begin
Key := #0;
SelectNext(ActiveControl, True, True);
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Problem s ToolHelp funkcemi na NT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.1999 23:18:31
Milan Sorm wrote:
> # Toolhelp funkce nejsou implementovany v NT4, podle MSDN vsak maji byt v
> # NT5. Misto nich lze v NT4 pouzit knihovnu PSAPI, ale neobsahuji presne
> # tytez funkce.
> #
>
> Diky. A nevis nahodou, jestli lze rozpoznat, jestli bezim pod NT/ci nebezim
> pod NT ? Mam to resit vyjimkou, ze kdyz selze ToolHelp, nasadim neco jineho?
Ahoj,
Pomoci globalni promenne Win32Platform (SysUtils). Jinak priklad na prochazeni
procesu v NT4 za pouziti PSAPI.DLL je tady:
http://www.wilsonc.demon.co.uk/delphi.htm (NT Specific Components)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
nepovinny PARAMETR
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.1999 23:21:39
Zbysek Hlinka wrote:
>
> Petr Vones wrote:
>
> > > Jenze to je trochu neco jineho. Tato deklarace (tedy s var) dosud
> > > neni v Pascalu mozna. Je to s podivem, protoze nekde uvnitr to
> > > mozne evidentne je. Ale zatim se Inprise neuracil zpristupnit
> > > takovehle deklarace i nam.
> >
> > Ono "funkce" jako BlockRead, Read, Write, Str apod. nejsou vlastne uplne
> > ciste funkce, ale spise neco mezi funkci a prikazem jazyka. Jde to ale
> > resit pomoci pretezovani, napriklad:
>
> Jiste, ale az od D4. Ovsem nelze tak rozumne resit neco jako
> Write, kde mohou byt libovolne parametry v temer libovolnem
> poctu. :-)
Ahoj,
Otazka je, jestli je to vubec k necemu tak moc potreba :-) Predavani libovolneho
poctu konstantnich parametru se asi prece jen vyuzije casteji. Treba se toho ale
dockame v D5 ...
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Instalator - zadarmo
[*] Jaro <jaro(zv)sinea(tec)cz> - 11.5.1999 23:25:32
Tak abych to uvedl na pravou miru!
Instalator pouzitelny je. Pouzivali jsme jej dva roky a fungoval.
Nebylo nasim zamerem, tento produkt prodavat.
Jeho vyvoj jsme ukoncili jiz vice jak pred rokem.
Pak jsme presli na lokalizovany InstallShield.
Nabidl jsem v teto konferenci BEZPLATNE poskytnuti
instalatori kazdemu, kdo ma zajem. Uvedl jsme, ze se jedna
o jednoduchou zalezitost, ktera neni uz nejaky cas dale rozvijena.
Protoze mi je jasne, ze nekdo ceka od instalatoru dnes uz vice,
poskytl jsem bezplatne i zdroje, aby nekteri nadsenci mohli
pokracovat ve vyvoji. Samozrejme jsem nemel cas
kontrolovat uplnost zdroju. Komponenta TPlovouciPanel
se tam zrejme pripletla z nasi knihovny SINEAVCL.
Knihovna je k dispozici rovnez bezplatne a rovnez se zdroji
na stejnem serveru. Zajiste by bylo vhodne vytahnout
TPlovouciPanel z teto knihovny a pridelit ho k instalatoru,
aby kazdy nemusel instalovat cely balik komponent SINEAVCL
Pres vsechny problemy si myslim, ze toho bylo poskytnuto
dost. Jedna se o nekomercni zalezitost a ja to nikomu
prece nevnucuju. Komu se to nelibi, necht si vytvori vlastni
instalator.
Pokud se ovsem nejaky dobrodinec ujme dalsiho vyvoje a posle mi
vysledek
zpet, rad vyvesim na nas server aktualizovanou verzi.
V pripade opravdoveho zajmu o dalsi vyvoj jsme ochotni poskytnout
i radu komukoliv, ovsem sami jiz ve vyvoji pokracovat nebudeme,
protoze tento instalator jiz jak jsem uvedl napouzivame.
Jestlize by byly problemy s pouzitim knihovny SINEAVCL pro Delphi1,
obratte se prosim na muj mail jaro(zv)sinea(tec)cz nebo primo na
autora krmela(zv)sinea(tec)cz.
Musite me omluvit, protoze s Delphi 1 uz nejmene 2 roky nepracuji.
Jaro
>Zdar vsem,
>
>par poznamek k instalatoru. Vypada to dobre, bohuzel neni to
pouzitelne, tak jak to je, ale je to
>treba trochu upravit (tak treba - (zv)NAZEV1 - je celkem kratky, takze
delsi nazev programu se tam
>proste nevejde).
>Zacnu tedy kompilovat - Delphi (v1.0) nenajde komponentu
TPlovouciPanel + nekolik dalsich, bohuzel
>neni soucasti zdrojaku, kde ji najdu?
>Poznamka 2 - soucasti programu je popis v DOC. Podrobny a dobre
vysvetlujici. Bohuzel vsak jenom
>funkci programu, pokud ho clovek vezme tak jak byl napsan a prelozen,
tak mu staci. Pokud se ale
>rozhodnete program nejak upravovat, musite se spolehnout pouze na to,
ze pochopite, co tim autor
>myslel a kde to vzal (TPlovouciPanel...)
>
>Zdar Zdenek
>
>P.S. Konecne hodnoceni - doporucuju vsem, kteri delaji nejake
aplikace, ktere je potreba nejak
>reprezentativne nainstalovat a nechce se jim travit svuj cas navrhem
vlastnich instalaku. Uvital
>bych jen, kdyby autor podrobnej popsal co a odkud je potreba sehnat
(to jako ktere komponenty),
>popr. to tam rovnou pribalil.
>
Velikost projektu v Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.5.1999 23:39:20
Lukas Marsalek ** student ** wrote:
>
> Vazeni,
>
> Jsem zacatecnik a zkousim v D3 nejakou databazicku. Jako podklad
> kazdeho okna mam bitmapu, docela velkou, 1.2 MB. Delphi standartne
> zaclenuje vsechny obrazky pouzite na formulari do *.dfm souboru. Kdyz
> je tech formularu vice, celkem narusta velikost adresare s mym
> projektem. Neslo by nejak zaridit, aby Delphi nezaclenovalo do
> kazdeho *.dfm souboru tu samou bitmapu ? Ze by si ji treba tahalo z
> nejakeho adresare, treba z "Obrazky" ?
> A take kdyz se projekt kompiluje do EXE, jsou v tom EXE zahrnuty
> vsechny soubory a jeho vysledna velikost je treba v mem pripade kolem
> 5 MB. Neslo by taky nejak pri kopilaci zaridit, ze by se udelal jenom
> maly EXE soubor a zbytek by se natahoval z nejakeho adresare, treba z
> toho "Obrazky" ?
Ahoj,
Muzes pouzit JPEG kompresi, potrebne unity by jsi mel mit na instalacnim
CD, podrobnejsi popis instalace mas tady:
http://www.borland.com/devsupport/delphi/ti_list/TI3333.html
Obrazek muzes napriklad ulozit jako resource a dle potreby nahrat, priklad
je tady:
http://www.borland.com/devsupport/delphi/qanda/1395.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Funkce Substr nebo MID
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.5.1999 23:08:21
Puvodni zprava, kterou napsal Kolar Lubor dne 11 May 99,:
> Panstvo, mam dotaz. Napsal jsem si fukci MID (pro pametniky basicu),
> protoze jsem v Delphi nic takoveho nenasel. Je to jednoduche: Function
> MID(ZDROJ:String; ODKOLIKATEPOZICE:Integer;KOLIKZNAKU:Integer):String
Pak jsi malo hledal, je na to funkce Copy.
> Umi nekdo chytrej toto v assembleru, abych dosahl co nevyssi rychlosti?
Ja ne, ale mozna to v assembleru uz je...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Citanie sectorov z disku vo Win95
[*] Patrik Tesar <patrik.tesar(zv)pobox.sk> - 12.5.1999 03:51:28
Cafte.
Neviete niekto, ako citat sektor po
sektore z pevneho disku pod Win95?
Dik---------------------------
Ing. Patrik Tesar
software consulting
0905/211 274
---------------------------
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
DBlookupComboBox
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 12.5.1999 05:56:21
>
>
>A neni to zbytecne ? DBLookupComboBox ma inkrementalni vyhledavani
>implementovane, tak naco jeste editbox ?
>
>
>Radek P.
>
Zapomel jsem dodat, ze v tom TEDIT zadavam KOD STATU a podle toho
kodu statu, pak potrebuji v tom DBLookupComboboxu nastavit jmeno statu...
A naopak....
Dalibor
>
>
>
>Mam 2 komponenty TEdit a TDBlookupComboBox...
>
>Jak docilit toho aby, pri psani v komp. TEdit se mi nastavoval
>TDBLookupComboBox....
>
>Priklad....Do Tedit napisu PL a v DBlookupComboBox. se mi vybere
>POLSKO...
>
>
>Predem dik
>Dalibor
>Funkce Substr nebo MID
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 12.5.1999 06:23:40
OK, to je presne to, co jsem potreboval. Teda najit to v helpu je zazrak, cekal bych, ze to najdu treba v "See also", ale nic. Diky vsem za rady.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 11. kv�tna 1999 23:18
P�edm�t: Re: Funkce Substr nebo MID
> Kolar Lubor wrote:
> >
> > Panstvo, mam dotaz. Napsal jsem si fukci MID (pro pametniky basicu), protoze jsem v Delphi nic takoveho nenasel. Je to jednoduche:
> > Function MID(ZDROJ:String; ODKOLIKATEPOZICE:Integer;KOLIKZNAKU:Integer):String
> >
> > Umi nekdo chytrej toto v assembleru, abych dosahl co nevyssi rychlosti?
>
> Ahoj,
>
> Pouzij funkci Copy. Co se tyce rychlosti nemusis mit obavy, je psana v assembleru :-)
> Konkretne je to _LStrCopy v System.pas
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky programator
> * http://www.bojkot(tec)cz *
> ************************
>
> Delphi 4 pod Windows NT 4.0 - result
[*] jslavice(zv)vce(tec)cz - 12.5.1999 07:35:58
Diky za nekolk rad. Prikaz BusTrottle=on v sekci [Display] v system.ini
vubec nemel vliv. Zkusil jsem ho pak ve win.ini, potom byly ikony rozhazeny
jinak, ale porad jeste rozhazeny. Pomohlo az stazeni a nainstalovani noveho
driveru videokarty a to i bez instalace Service Pack 2 a 3 pro D4.
Josef Slav��ek
Funkce Substr nebo MID
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.5.1999 08:27:59
Presne tohle dela funkce Copy.
Dobra.
See also Insert a Delete
> ----------
> Od: LuborK(zv)tnet(tec)cz[SMTP:LuborK(zv)tnet(tec)cz]
> Odesl�no: 11. kv�tna 1999 21:13
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Funkce Substr nebo MID
>
> Panstvo, mam dotaz. Napsal jsem si fukci MID (pro pametniky basicu),
> protoze jsem v Delphi nic takoveho nenasel. Je to jednoduche:
> Function MID(ZDROJ:String;
> ODKOLIKATEPOZICE:Integer;KOLIKZNAKU:Integer):String
>
> Umi nekdo chytrej toto v assembleru, abych dosahl co nevyssi
> rychlosti?
> Dik
> Lubor
> SQL- docasne tabulky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 12.5.1999 08:38:09
> -----Original Message-----
> From: honza(zv)haes(tec)cz [mailto:honza(zv)haes(tec)cz]
> Sent: Tuesday, May 11, 1999 6:14 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL- docasne tabulky
>
>
> To uz je mlaceni prazdne slamy.
>
> Mam snad poslat do konference svoje curiculum vitae, abych se
> branil tvemu narceni z nedostatecnych vyvojarskych zkusenosti?
To neni potreba :-)
> Polozene argumenty byly nekolikrat prekrouceny, takze se
> odpovida uz na neco jineho, nez o cem byl spor.
To mi nepripada, ale budiz.
> Navrhuji proto:
> Posli mi priklad na pouziti pomocnych tabulek a pokud se mi
> podari vyresit to lepe a elegantneji, mam u tebe 10 piv.
Muzes to zkusit primo s tou editaci.
Vyresit neco lepe nez existujici fungujici reseni nelze,
pouze lze vylepsit nektera kriteria. Jestli bude hlavnim kriteriem
elegantnost, rychlost, udrzovatelnost, nebo rychlost vyvoje,
to je slovo do pranice. Pro nejvetsi aplikaci nasi firmy
je nejdulezitejsi prave udrzovatelnost. Mame u zakaznika nasazeny
system, delame mu udrzbu a podporu. Klientske programy
(nejsou psany v Delphi, ale PowerBuilderu) maji dohromady pres 50 MB.
Databaze je Informix. Zmeny v databazi jsou mozne pouze pomoci
DBA ulozenych procedur (BTW nekteri zakaznici maji jeste prisnejsi kriteria
-
nelze napr. pouzivat primo na tabulky prikazy SELECT).
My mame vypracovany dve metodiky. Jejich zevrubny popis:
A) ulozenou procedurou
1. SELECT dat do editacniho okna.
2. Uzivatel potvrdi editaci
3. Klient provola Informixi proceduru s parametry - naeditovanymi udaji
4. Procedura zjisti, jestli od bodu 1. nedoslo ke zmene dat v DB, pokud
ano, error
5. Procedura validuje naeditovana data, validacni chyby strka do docasne
tabulky chyb
6. Procedura, pokud prosla validace, ulozi udaje do prislusnych tabulek
7. Klient, pokud neni prazdna tabulka chyb, zobrazi jejich seznam
B) editace v docasne tabulce (silnejsi mechanismus nez A - je pro seznam
editovanych dat)
1. Procedura, ktera nachysta docasnou editacni tabulku a nacpe do ni data
(nektere editacni formulare nelze elegantne popsat selectem)
2. editace docasne tabulky, uzivatel potvrdi editaci
3. Procedura, ktera pro vsechny editovane zaznamy zjisti, zda jiz nebyly
zmeneny
v databazi, validuje data a ulozi. Chyby validace opet uklada do temp.
tabulky.
Nekde je jeste pouzit mix obou metod, je slabsi nez mechanismus B, protoze
umoznuje
editovat vice zaznamu, ale nelze je najednou validovat. Ten spociva v tom,
ze misto docasne tabulky vraci data pro editaci kurzorova procedura a
aktualizace v databazi se provadi opakovanym volanim procedury pro jeden
zaznam
(procedura totozna s procedurou z mechanismu A).
Pozadavek je predevsim na:
- udrzovatelnost. Chci menit validacni podminky, nemuset pritom znovu
kompilovat velky program a prenaset ho k zakaznikovi.
- aktualizace tabulek v databazi probiha pomoci ulozenych procedur
- po neuspesne validaci chci uzivateli zobrazit vsechny nalezene chyby.
- mechanismus musi umoznovat editaci vice zaznamu a mezizaznamove
kontroly (napr. soucet atributu Podil vsech zaznamu je 100%).
Tedy to, co je realizovano mechanismem B, kde jsou pouzity dve docasne
tabulky -
jedna pro editaci, druha pro zobrazeni chyb editovanych dat.
Tesim se na reseni editace dat bez docasnych tabulek. Doufam, ze je problem
specifikovan dostatecne.
S tim, kde bychom si spolu mohli dat pivo - bydlim a ziju v Brne,
co takhle podzimni Invex?
Do Belohradu se v nejblizsi dobe nechystam, mam v praci jine starosti.
Nevylucuju ale, ze v budoucnu na neco pojedu.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Instalator - zadarmo
[*] Zdenek Bohm <bohm(zv)gacc(tec)cz> - 12.5.1999 08:40:06
Jeste k instalatoru,
svym mejlem, kterym jsem shrnul svoje dojmy a poznatky z instalatoru, jsem samozrejme nechtel rici,
ze to je nejak spatne, nebo nejak pomlouvat autora - TO ROZHODNE NE! Pokud to tak vyznelo, omlouvam
se. Jsem rad, kdyz nekdo poskytne ostatnim neco nezistne. Muj mejl spis mel ilustrovat, jak se na
to diva clovek, ktery se dostane k hromade zdrojaku. Prvni co udela, tak to prelozi, jestli je to
vsechno a ma smysl se tim zabyvat. Prelozit to neslo a to se na me nezlobte, nemam prehled, kdy kde
co kdo vytvoril, abych si hned rekl "no jo, TPlovouciPanel, ten je prece od ... a je ke stazeni
.."
Ted jsem si stahl balik SINEAVCL a vsechno slape, (zv)NAZEV1 jsem natahl a je to v pohode - DOPORUCUJU
TO VSEM!
Autorovi se za muj predchozi mejl jeste jednou omlouvam Zdenek
Funkce Substr nebo MID
[*] sup(zv)svitap(tec)cz - 12.5.1999 9:24:50
>Panstvo, mam dotaz. Napsal jsem si fukci MID (pro pametniky basicu),
protoze jsem v Delphi nic takoveho nenasel. Je to >jednoduche:
>Function MID(ZDROJ:String;
ODKOLIKATEPOZICE:Integer;KOLIKZNAKU:Integer):String
>
>Umi nekdo chytrej toto v assembleru, abych dosahl co nevyssi rychlosti?
>Dik
>Lubor
>
>
Proc nepouzijes funkci COPY:
copy(string,od_ktere_pozice,pocet_znaku)
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Oprava tabulky Paradoxu
[*] Juraj Nagy <Jnagy(zv)nh-trans(tec)cz> - 12.5.1999 10:25:08
Nekdy tady nekdo nabizel svuj programek nebo komponentu na opravu
paradoxovskych tabulek a chlubil se, ze opravuje i spatne zapsane vnitrni
cislo autoinkrementu. Pokud to dela zpusobem, ze cislo nastavi na nejvyssi
hodnotu polozky v tabulce, prosil bych ho, aby mi ho poslal na maji
soukromou adresu.
Dekuji.
Jirka
P.S.: Prosim Vas, neradte mi Tutility od Borlandu. Ono mi to cislo opravi,
ale jaksi navic mi mizi zapsane vety (nekdy celkem hodne).
Oprava tabulky Paradoxu
[*] mbartone(zv)Synthesia(tec)cz - 12.5.1999 11:13:51
>Nekdy tady nekdo nabizel svuj programek nebo komponentu na opravu
>paradoxovskych tabulek a chlubil se, ze opravuje i spatne zapsane vnitrni
>cislo autoinkrementu. Pokud to dela zpusobem, ze cislo nastavi na nejvyssi
>hodnotu polozky v tabulce, prosil bych ho, aby mi ho poslal na maji
>soukromou adresu.
>
>Dekuji.
>
>Jirka
>
>P.S.: Prosim Vas, neradte mi Tutility od Borlandu. Ono mi to cislo opravi,
>ale jaksi navic mi mizi zapsane vety (nekdy celkem hodne).
Ja jsem jiz dvakrat uspesne pouzil program Pdxrbld na opravu poskozeneho
autoicrementu a poskozene hlavicky.
Vysledek podstatne lepsi nez Tutility od Borlandu.
Zde je zacatek z README k programu.
{==================================================================
Pdxrbld 3.00 - Kontrola a oprava poru�en�ch tabulek Paradoxu
? Copyright 1996..1999 Roman Krejci-RKS, Pujmanove 1552,
140 00 Praha 4,
Cesk� republika
http://www.rksolution(tec)cz, EMail INFO(zv)rksolution(tec)cz
==================================================================}
Pdxrbld je 32-bitov� utilita pro kontrolu a opravu tabulek PARADOX datab�z�.
Je urcena pro operacn� syst�my Windows 95 a Windows NT. Vedle kontroly a opravy
tabulek zahrnuje i volbu "komprimovat tabulky" - po komprimaci zab�raj�
tabulky mnohem m�ne m�sta na disku proto�e datab�zov� syst�my standardne
nevracej� k pou�it� prostor uvolnen� po vymaz�n� z�znamu. Na rozd�l od vet�iny
podobn�ch programu od jin�ch autoru, Pdxrbld um� pracovat i s tabulkami
chr�nen�mi heslem. Podporovan� verze Paradoxu jsou verze 4 a vy���, (nepracuje
s tabulkami verze 3.5).
Milan
Oprava tabulky Paradoxu
[*] Jaroslav N�dhera <csh(zv)czn(tec)cz> - 12.5.1999 11:16:41
Podivej se na http://www.rksolution(tec)cz/ a tam si zvol Nabidka programu a
sluzeb. Je to PdxRbld.
-----P�vodn� zpr�va-----
Od: Juraj Nagy <Jnagy(zv)nh-trans(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 12. kv�tna 1999 10:38
P�edm�t: Oprava tabulky Paradoxu
>Nekdy tady nekdo nabizel svuj programek nebo komponentu na opravu
>paradoxovskych tabulek a chlubil se, ze opravuje i spatne zapsane vnitrni
>cislo autoinkrementu. Pokud to dela zpusobem, ze cislo nastavi na nejvyssi
>hodnotu polozky v tabulce, prosil bych ho, aby mi ho poslal na maji
>soukromou adresu.
>
>Dekuji.
>
>Jirka
>
>P.S.: Prosim Vas, neradte mi Tutility od Borlandu. Ono mi to cislo opravi,
>ale jaksi navic mi mizi zapsane vety (nekdy celkem hodne).
>
>Excel DDE
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 12.5.1999 11:43:22
Ahoj,
nevite nekdo nahodou prikaz pro DDE pro vyber listu v Excelu podle indexu?
Zatim mi to jde jenom podle nazvu
[WorkBook.Select("_nazev_")].
Za jakekoliv namety diky
Ing. Pavel CABAK
cabak(zv)zl.inext(tec)cz
Jak do TDBGrid udelat multiline?
[*] Jan Linhart <delphi(zv)mis-net(tec)cz> - 12.5.1999 11:43:21
Zdar,
D�ky za n�vrh reseni, avsak...
N�ze uveden� zpusob se zd� b�t dobr�, ale nekde je z�drhel, protoze se to
nejak blbe prekresluje.
Dojedu uplne dolu (m�m tam v�ce z�znamu, nez je vyska gridu) a pri ceste
nahoru to zarucene kresl� blbosti - rozhod� se cel� mr�zka. Ted nev�m,
jestli del�m chybu j�, nebo tohle nen� fin�ln� reseni...
Jeste bych upresnil mou predstavu "multiline"....:
Tam, kde nen� Field na v�ce r�dku by mel grid m�t 1 r�dek, kde ve Fieldu
3 r�dky tak grid udel� Row vysokou pro 3 r�dky a podobne.
>
> Ahoj,
>
> Muzes to udelat napriklad takhle:
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
> Db, Grids, DBGrids, DBTables;
>
> type
> TXYDBGrid = class(TDBGrid)
> protected
> procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
> Column: TColumn; State: TGridDrawState); override;
> procedure LayoutChanged; override;
> public
> constructor Create(AOwner: TComponent); override;
> end;
>
> TForm1 = class(TForm)
> Database1: TDatabase;
> DataSource1: TDataSource;
> Table1: TTable;
> procedure FormCreate(Sender: TObject);
> private
> Grid1: TXYDBGrid;
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Grid1 := TXYDBGrid.Create(Self);
> Grid1.Parent := Self;
> Grid1.Align := alClient;
> Grid1.DataSource := DataSource1;
> end;
>
> { TXYDBGrid }
>
> constructor TXYDBGrid.Create(AOwner: TComponent);
> begin
> inherited Create(AOwner);
> DefaultDrawing := False;
> end;
>
> procedure TXYDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
> Column: TColumn; State: TGridDrawState);
> const
> AlignFlags : array [TAlignment] of Integer =
> ( DT_LEFT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
> DT_RIGHT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
> DT_CENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX );
> var
> R: TRect;
> begin
> Canvas.FillRect(Rect);
> R := Rect;
> InflateRect(R, -2, -1);
> DrawText(Canvas.Handle, PChar(Column.Field.DisplayText), -1, R,
AlignFlags[Column.Field.Alignment]);
> if gdFocused in State then DrawFocusRect(Canvas.Handle, Rect);
> end;
>
> procedure TXYDBGrid.LayoutChanged;
> var
> K: Integer;
> begin
> inherited LayoutChanged;
> Canvas.Font := Font;
> K := Canvas.TextHeight('Wg');
> DefaultRowHeight := K * 2 + 4;
> RowHeights[0] := K + 4;
> end;
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************Velikost projektu v Delphi
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 12.5.1999 12:50:58
> > Jsem zacatecnik a zkousim v D3 nejakou databazicku. Jako podklad
> > kazdeho okna mam bitmapu, docela velkou, 1.2 MB.
> |
> --->nemas tjpeg
> komponent?
> mozem ti ich poslat
> (myslim ze praca s jpeg by bola jednoduchsia:)))
> velkost tvojich suborov sa zmensi mnohonasobne!!!
> >Delphi standartne
> > zaclenuje vsechny obrazky pouzite na formulari do *.dfm souboru. Kdyz
> > je tech formularu vice, celkem narusta velikost adresare s mym
> > projektem. Neslo by nejak zaridit, aby Delphi nezaclenovalo do
> > kazdeho *.dfm souboru tu samou bitmapu ? Ze by si ji treba tahalo z
> > nejakeho adresare, treba z "Obrazky" ?
> > A take kdyz se projekt kompiluje do EXE, jsou v tom EXE zahrnuty
> > vsechny soubory a jeho vysledna velikost je treba v mem pripade kolem
> > 5 MB. Neslo by taky nejak pri kopilaci zaridit, ze by se udelal jenom
> > maly EXE soubor a zbytek by se natahoval z nejakeho adresare, treba z
> > toho "Obrazky" ?
> > Jo jeste neco. Jde nejak programove zjistit, jestli je v mechanice
> > vlozene Audio CD ? Teda aby program umel treba poznat, ze tam je
> > datove, nebo ze je mechanika otevrena.
> > Predem dekuji za odpoved a omluvte moji nezkusenost.
> >
> > S pozdravem
> > L. Marsalek
> >
> ked si nebudes natahovat do timage obrazky priamo ale az pocas spustenia
> programu tak by to slo ...napr. image1.loadimage('obrazok.bmp') v
> tform.create evente....
A ja bych ti doporucil EXEcompresor ...
http://www.entechtaiwan.com/aspack.htm
ten je na projekty z Delphi jako stvoreny :-)
S pozdravem Michal
Jak do TDBGrid udelat multiline?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.5.1999 13:00:45
Jan Linhart wrote:
>
> Zdar,
>
> D�ky za n�vrh reseni, avsak...
> N�ze uveden� zpusob se zd� b�t dobr�, ale nekde je z�drhel, protoze se to
> nejak blbe prekresluje.
> Dojedu uplne dolu (m�m tam v�ce z�znamu, nez je vyska gridu) a pri ceste
> nahoru to zarucene kresl� blbosti - rozhod� se cel� mr�zka. Ted nev�m,
> jestli del�m chybu j�, nebo tohle nen� fin�ln� reseni...
Ahoj,
A jakou mas verzi Delphi ? Ja to delal v D4 a tam to funguje, naopak v D2
se mi obcas spatne prekresloval i normalni DBGrid.
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Velikost projektu v Delphi
[*] rdocekal(zv)csas(tec)cz - 12.5.1999 14:23:46
Akorat ze antivirak AVP na takto zkomprimovane soubory hlasi podezreni.
Nejak se Ti Rusove nedomluvili 8-)
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> A ja bych ti doporucil EXEcompresor ...
> http://www.entechtaiwan.com/aspack.htm
> ten je na projekty z Delphi jako stvoreny :-)
>
> S pozdravem Michal
>
> SQL- docasne tabulky
[*] Karol Zaic <zaic_karol(zv)novitech.sk> - 12.5.1999 14:42:34
> > -----Original Message-----
> > From: honza(zv)haes(tec)cz [mailto:honza(zv)haes(tec)cz]
> > Sent: Tuesday, May 11, 1999 6:14 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: SQL- docasne tabulky
>
> > Navrhuji proto:
> > Posli mi priklad na pouziti pomocnych tabulek a pokud se mi
> > podari vyresit to lepe a elegantneji, mam u tebe 10 piv.
>
Zdravim Honzu!
Skus vyriesit problem s kumulativnou zostavou, ktora vybera:
select danovy_urad,count(*) from podnikatelia
group by danovy_urad
kde tabulka podnikatelia ma 2 miliony zaznamov, tieto zaznamy su priblizne
rovnako rozdelene(pocetne) podla danovych uradov, databaza je vytvorena
s logovanim(teda existuju transakcie) a zostava spadne na prilis dlhu
transakciu.
Ide konkretne o Informix Online Server 5.00 UC5 a klient bezi na AIX-e v 4GL.
Mne sa za 5 rokov vyvoja a teda aj doladovania datoveho modelu nepodarilo
tento problem vyriesit inak ako rozdelenim tabulky na mensie casti(temporarne
tabulky),
kde to uz potom nespadlo(asi 100 tisic zaznamov).
Celkovo sa mi zda, ze temporarne tabulky sa daju velmi vyhodne pouzivat hlavne
ked
je potrebne spracuvat velke mnozstvo dat a toto si vhodne rozdelit. Menej sa
zatazuje
databazovy server, diskovy priestor atd.
Tieto tabulky je vsak absolutne nevhodne zavadzat do datoveho modelu, pouzivam
CASE system na datovy model, pretoze datovy model sluzi na generovanie
create skriptov pre pevne tabulky.
Myslim si tiez, ze vela programatorov, ktori programovali v systemoch
pracujucich
so suborovymi databazami tiez velmi casto pouzivali(ju) pre zostavy alebo
prepocty
tabulky(subory) vzniknute skopirovanim struktury uz existujucej tabulky(suboru).
Aj v Delphi su pre Paradox tabulky(subory) na to metody a urcite ich vela
programatorov spokojne pouziva.
V pripade pouzivania databazoveho serveru, ktory ma vlastny system suborov,
dokonca aj procesov(threadov) je nemozne za behu vytvarat taketo tabulky
(pochybujem, ze by bolo rozumne aby mal aplikacny program DBA prava
a mohol za behu menit alebo vytvarat tabulky - ide o multiuzivatelsky system)
a pouzivaju sa tabulky temporarne. Tieto sa vytvaraju v temporarnom priestore
pre kazdy proces(program) osobitne a jeho ukoncenim zanikaju.
Takze tvrdit, ze temporarne tabulky su blbost je v pripade pouzivania
databazovych serverov riadna blbnost a neznalost.
P.S. Ak chcete uspesne a korektne pracovat s databazovymi servermi,
tak zabudnite na metody zo cias suborovych tiezdatabaz.InstallShield -- Par otazek
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.5.1999 14:47:15
Preji vsem pekneho dne,
mam par dotazu k InstallShieldu
1) chapu dobre, ze jedina rozumna cesta, jak jej donutit vybafnout
na uzivatele cesky je pouzit Lokalizatora?
2) Jak jej mam rozumne otestovat? (pouzivam BDE). Kdyz jsem
naistalil program se vsim vsudy, pak ok, ale po odinstalaci to
s sebou vzalo i BDE.
Predem dekuji za odpovedi
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
JAK OSETRIT ALT+F4
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 12.5.1999 13:48:28
>Nazdar,
>a hned na zacatku te musim upozornit ze jsi se spletl, mozna jsem
primitivni
>ale jak zavrit aplikaci to vim ja jen chci dosahnout toho aby se ta
aplikace
>prave nezavrela. To znamena ze chci a by pri stisku ALT+F4 se treba napsalo
>"zadny takovy" a ne aby se aplikace ukoncila. Dalsi dotaz je tedy(protoze
>jsem primitiv tak to nevim) jak disablovat Close(tedy krizek v hornim
pravem
>rohu okna(ne jak ho schovat ale disablovat)), tak snad si to pochopil.
>
>Diky za odpoved Paja(primitiv)
Ahoj PAJA,
ten krizik Close "tedy krizek v hornim pravem rohu okna" ako pises,
vypnes, alebo po tvojom "disablujes" takto:
procedure TForm1.FormCreate(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil,
'Text_uvedeny_v_property_CAPTION_tvojho_okna');
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;
Vela zdaru!
Jano Jakub
jj_delphi(zv)ke.ubp.sk
rozdily mezi GETMEM a NEW
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 12.5.1999 15:02:08
Ahoj,
nepotrebuji ani tak radu, jako spise posouzeni. Jde mi o to, zda konstrukce,
kterou nasledne vysvetlim, nebude vadit bezchybnemu behu programu.
Vse uvedu na prikladu:
Type TUkazatel = packed record
Num1, Num2 : LongInt;
end; PUkazatel = ^TUkazatel;
Var MujPtr : PUkazatel;
Jeden naalokovany record MujPtr by v pameti mel tedy zabirat 8 bytes. V
tomto momente mi jde o to, zda mohu pamet naalokovat pomoci
GetMem(MujPtr,8) a na konci programu pouzit Dispose(MujPtr);
V helpu delphi je doslovne doporuceno pouzivat dvojice GetMem/FreeMem nebo
New/Dispose. Otazka zni, zda je toto doporuceni jen kvuli predchazeni chyb
behu programu ? Nebo je moznost, ze pokud si spravne pohlidam delky
alokovanych bloku, vyjde to nastejno ?
Dik PK
InstallShield -- Jeste jedna otazka
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.5.1999 15:06:26
Jeste jsem zapomnel na jednu otazku:
projekt pristupuje k tabulkam typu Paradox pomoci TTable a
TQuery. Co vse mam zaskrtnout v polozkach BDE? Nechci ho
instalovat cely.
Predem diky za odpoved
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
typ funkce TStrings
[*] Daniel Dedek <admin2.ok.prague(zv)embassy.mzv(tec)cz> - 12.5.1999 15:26:28
Nazdar vsichni
nejak jsem se zamotal s takovouhle jednoduchou veci:
Potrebuju definovat funkci s navratovym typem TStrings (nebo
TStringList) a nevim, jestli se musi take volat metoda Create a kde a
tak, lepe snad priklad...
function VratList( S: String ): TStrings;
begin
Result.Add( S );
end;
Tak tohle pochopitelne nefunguje, musim nekde volat Create, ale
nevim kde, poradite nekdo? Mohl bych to sice napsat jako proceduru, ale
znate to, ustoupit nemuzu.
Dik
Dan
Jak do TDBGrid udelat multiline?
[*] Jan Linhart <delphi(zv)mis-net(tec)cz> - 12.5.1999 15:29:36
Zdar,
M�m D3.
V DrawColumnCell zjistuju, jestli se Text vejde do Row (podle toho, co
wr�t� DrawText -ten to taky nevrac� moc pohodlne, po "cel�m" prekreslen� se
vzdy zvets� cell, kter� je na rade, co se zvetsov�n� t�ce jen o 1 r�dek),
jenze stejne je to na nic. Kdyz dojedu uplne dolu a zaze nahoru ... :-(
asi by se mely RowHeights zase nekdy zmensovat, ...ale kde? jak?
Kdyz treba povol�m zobrazov�n� Vert.Scrollu a jedu sipkama dol�, smiz� me
selektnut� bunka uplne mimo - kdyz zm�cknu sipku do strany, tak se to
prekresl� l�pe a uvid�m sel.bunku, ale ....
jestli by pomohl zdroj�k.....je to ale zapeklit� - 3. potomek
PS: Nebylo by rychlejs� to prokonzultovat pres ICQ a potom pr�padne
obohatit konferenci pro budouc� pr�padn� dotazy? / icq = 28453454
> > Zdar,
> >
> > D�ky za n�vrh reseni, avsak...
> > N�ze uveden� zpusob se zd� b�t dobr�, ale nekde je z�drhel, protoze se
to
> > nejak blbe prekresluje.
> > Dojedu uplne dolu (m�m tam v�ce z�znamu, nez je vyska gridu) a pri
ceste
> > nahoru to zarucene kresl� blbosti - rozhod� se cel� mr�zka. Ted nev�m,
> > jestli del�m chybu j�, nebo tohle nen� fin�ln� reseni...
>
> Ahoj,
>
> A jakou mas verzi Delphi ? Ja to delal v D4 a tam to funguje, naopak v D2
> se mi obcas spatne prekresloval i normalni DBGrid.
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************Zmena AliasName v OnLogin
[*] Bardon <ineqsw(zv)ova.pvtnet(tec)cz> - 12.5.1999 15:59:17
Kdyz zmenim AliasName v udalosti OnLogin TDatabase, tak se mi tato zmena neprojevi a stale se hlasi k databazi, ktera tam byla pred volanim metody Open. Nemate nahodou nekdo nejakou fintu, jak zmenit AliasName v OnLogin?
Problem s ToolHelp funkcemi na NT
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 12.5.1999 16:45:26
Tue, May 11, 1999 ve 11:18:31PM +0200 Petr Vones napsal:
# Milan Sorm wrote:
#
# > # Toolhelp funkce nejsou implementovany v NT4, podle MSDN vsak maji byt v
# > # NT5. Misto nich lze v NT4 pouzit knihovnu PSAPI, ale neobsahuji presne
# > # tytez funkce.
# > #
# >
# > Diky. A nevis nahodou, jestli lze rozpoznat, jestli bezim pod NT/ci nebezim
# > pod NT ? Mam to resit vyjimkou, ze kdyz selze ToolHelp, nasadim neco jineho?
#
# Ahoj,
#
# Pomoci globalni promenne Win32Platform (SysUtils). Jinak priklad na prochazeni
# procesu v NT4 za pouziti PSAPI.DLL je tady:
#
# http://www.wilsonc.demon.co.uk/delphi.htm (NT Specific Components)
#
Diky moc, to uz vypada chodive.
milan
TShiftState
[*] Martin Bohm <mbohm(zv)quelle.sk> - 12.5.1999 17:15:30
Zdravim
Mam taky maly problem, v nasledujucej procedure mi to vo zvyraznenom riadku hlasi: Incompactible types.
procedure TForm1.SQLPKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Shift = ssShift then
begin
main query.Active := False;
main query.SQL.Clear;
main query.SQL := sqlp.Lines;
main query.Active := True;
end;
end;
Problem je v tom, ze v helpe stoji, ze
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
Takze v com je chyba?
Dakujem za kazdu pomoc.
Martin B�hm
mbohm(zv)quelle.sk
tel. 07/5556 88 08
Detekce CD
[*] Lukas Marsalek ** student ** <MARSALEL.vos97(zv)vsps-su(tec)cz> - 12.5.1999 15:47:30
AHoj vespolek,
Nevite nekdo jak by se dalo v D3 zjistit, jestli je v mechanice
vlozeno zvukove nebo datove CD ? Priapadne, jestli je mechanika
otevrena ?
Kdyz jsem mel v programu tuhle konstrukci :
.
.
.
with MediaPlayer do
DataType := dtCDAudio;
Open;
Play;
.
.
.
tak Delphi ani nepoznalo, ze mam otevrenou mechaniku a tvarily se
jako ze to CD prehravaji. Cekal jsem nejakou chybovou hlasku, ale nic.
POtreboval bych, aby se vyhodila nejaka hlaska v pripade, ze v
mechanice neni zvukove CD. Mate najake napady ?
Lukas
TShiftState
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 12.5.1999 18:27:50
> Zdravim
> Mam taky maly problem, v nasledujucej procedure mi to vo zvyraznenom =
> riadku hlasi: Incompactible types.
> if Shift = ssShift then
>
> Problem je v tom, ze v helpe stoji, ze
> type TShiftState =3D set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, =
> ssMiddle, ssDouble);
>
> Takze v com je chyba?
> Dakujem za kazdu pomoc.
**** Neni to nahodou v tom, ze porovnavas MNOZINU s PRVKEM?
Zkus toto:
if Shift = [ssShift] then ....
Petr
TShiftState
[*] Petr Hartman <medisoft(zv)uo.fairnet(tec)cz> - 12.5.1999 18:43:46
>Mam taky maly problem, v nasledujucej procedure mi to vo zvyraznenom riadku hlasi: Incompactible types.
>
>procedure TForm1.SQLPKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
>begin
>if Shift = ssShift then
Musis napsat
if Shift = [ssShift]
nebo
if ssShift in Shift
S pozdravem
Petr Hartman
Vykon D4 vs. D2 aplikace
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 12.5.1999 19:29:56
Mate nekdo zkusenost s porovnanim vykonu D4 a D2 aplikace?
Ja zkousel aplikaci (DB aplikace, SQL server) napsanou v D2 prelozit v D4,
to mi proslo v poradku. Ale pri startu se mi otevira formular (tahaji se i
nejaka data) 2x pomaleji nez stejna aplikace v D2. Nemam sice na to
"nadupany" HW (Pentium 150, 32MB RAM), ale takove pocitace stejne jsou u
zakazniku. Rozdil v delce natahovani mezi balickovanou a nebalickovanou
aplikaci neni nijak vyrazny - stejne je skoro 2x pomalejsi nez v D2
prelozena aplikace.
Dik.
Leos
Nastaveni sdileni slozky
[*] Tom PLANKA <planka(zv)bigfoot(tec)com> - 12.5.1999 19:44:42
Preji pekneho dne,
narazil jsem na problem, jak programove (z Delphi) nastavit urcitou slozku
(adresar) pro sdileni, vcetne zadani parametru (napr. uplny pristup, nazev
sdilene polozky, heslo, ...). Zkousel jsem hledat v napovede k win32 API,
ale nejsem z toho moc moudry:(
Proto budu rad, kdyz mi nekdo pomuzete - nejlepe kratky uryvek kodu,
popripade male nakopnuti...
Dekuji
Speedy
Opet InstallShield
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.5.1999 20:45:53
Preji vsem pekny den,
opet otravuji s InstallShieldem. Jak je to s knihovnou ComCtrl32.dll?
Konkretne:
Staci, abych ji dal do ciloveho adresare <WINSYSDIR>? Nebo
musim udelat jeste neco vic?
Neodinstaluje se nahodou, kdyz uzivatel da odinstalovat muj
program?
Dalsi postreh s odinstalovanim projektu s BDE: vzalo to i dalsi veci
z Delfinu (D4 SP3), takze jsem je musel preinstalit. :-( Jak se to
necha otestovat?
Diky za odpovedi
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Detekce CD
[*] Petr Kundrata <pksoft(zv)atlas(tec)cz> - 12.5.1999 21:21:34
Lukas Marsalek ** student ** wrote:
>
> AHoj vespolek,
>
> Nevite nekdo jak by se dalo v D3 zjistit, jestli je v mechanice
> vlozeno zvukove nebo datove CD ? Priapadne, jestli je mechanika
> otevrena ?
> Kdyz jsem mel v programu tuhle konstrukci :
> .
> .
> .
> with MediaPlayer do
> DataType := dtCDAudio;
> Open;
> Play;
> .
> .
> .
> tak Delphi ani nepoznalo, ze mam otevrenou mechaniku a tvarily se
> jako ze to CD prehravaji. Cekal jsem nejakou chybovou hlasku, ale nic.
> POtreboval bych, aby se vyhodila nejaka hlaska v pripade, ze v
> mechanice neni zvukove CD. Mate najake napady ?
>
> Lukas
Zkus to takhle:
uses MMsystem;
function mci(const S : string) : string;
begin
SetLength(Result,1000);
mciSendString(PChar(S),//lpstrCommand,
PChar(Result),Length(Result),//lpstrReturnString:
PChar;uReturnLength: UINT;
0);//hWndCallback: HWND
SetLength(Result,StrLen(PChar(Result)));
end;
....
mci('open mcicda.drv alias PM_CD');
ShowMessageFmt( '%s'#13#10#13#10+
'M�dium p��tomno: %s'#13#10+
'Identifikace: %s'#13#10+
'UPC: %s'#13#10+
'Po�et stop: %s'#13#10+
'Aktu�ln� stopa: %s'#13#10+
'D�lka: %s'#13#10+
'M�d: %s',[
mci('info PM_CD product'),
mci('status PM_CD media present'),
mci('info PM_CD identity'),
mci('info PM_CD upc'),
mci('status PM_CD number of tracks'),
mci('status PM_CD current track'),
mci('status PM_CD length'),
mci('status PM_CD mode')
]);
mci('close PM_CD');
....
Petr Kundrata
Instalator - zadarmo
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.5.1999 22:03:32
Ten mail jsem psal ja a ne autor. Autorem je RNDr Krmela, spolecnik
moji firmy.
Ja jsem ho na zaklade ohlasu v konferenci pozadal, aby instalator
uvolnil
a on souhlasil. Rozhodne se nic nestalo.
Rad bych vysvetlil moji mozna az neprimerenou reakci.
Protoze tech veci davame na nas server jiz
delsi cas k dispozici bezplatne vice, tak se najde dost pripadu, kdy
si nekdo neco stahne a jeste nam pak vynada, ze je to takove a ne
onake.
Nekterym lidem se jeden nezavdeci.
Ja uz na takove maily reaguji trochu podrazdene. Mel jsem proste
pocit, ze ten
tvuj mail patri do takove kategorie. Jsem opravdu moc rad, ze jsem se
mylil.
Vim, ze nikdo nemuze tusit, kde je zbytek zdrojaku a nekompletni
je to kazdemu k nicemu. Proto jsem byl nakonec i rad,
ze k pripomince doslo a odpovedel jsem.
Jaro
---------------------------------
>Jeste k instalatoru,
>
>svym mejlem, kterym jsem shrnul svoje dojmy a poznatky z instalatoru,
jsem samozrejme nechtel rici,
>ze to je nejak spatne, nebo nejak pomlouvat autora - TO ROZHODNE NE!
Pokud to tak vyznelo, omlouvam
>se. Jsem rad, kdyz nekdo poskytne ostatnim neco nezistne. Muj mejl
spis mel ilustrovat, jak se na
>to diva clovek, ktery se dostane k hromade zdrojaku. Prvni co udela,
tak to prelozi, jestli je to
>vsechno a ma smysl se tim zabyvat. Prelozit to neslo a to se na me
nezlobte, nemam prehled, kdy kde
>co kdo vytvoril, abych si hned rekl "no jo, TPlovouciPanel, ten je
prece od ... a je ke stazeni
>.."
>Ted jsem si stahl balik SINEAVCL a vsechno slape, (zv)NAZEV1 jsem natahl
a je to v pohode - DOPORUCUJU
>TO VSEM!
>
>Autorovi se za muj predchozi mejl jeste jednou omlouvam Zdenek
>InstallShield -- Jeste jedna otazka
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.5.1999 22:42:51
Slavek Rydval wrote:
>
> Jeste jsem zapomnel na jednu otazku:
>
> projekt pristupuje k tabulkam typu Paradox pomoci TTable a
> TQuery. Co vse mam zaskrtnout v polozkach BDE? Nechci ho
> instalovat cely.
Ahoj,
Pak ti staci "Paradox driver" a "SQL Engine". Neuplna (partial) instalace
v sobe ale skryva nebezpeci v pripade, ze ji pouzijes na pocitaci kde je
jiz nainstalovana starsi verze BDE a ty takto upgradujes pouze nektere
casti.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Nastaveni sdileni slozky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.5.1999 22:43:11
Tom PLANKA wrote:
>
> Preji pekneho dne,
>
> narazil jsem na problem, jak programove (z Delphi) nastavit urcitou slozku
> (adresar) pro sdileni, vcetne zadani parametru (napr. uplny pristup, nazev
> sdilene polozky, heslo, ...). Zkousel jsem hledat v napovede k win32 API,
> ale nejsem z toho moc moudry:(
> Proto budu rad, kdyz mi nekdo pomuzete - nejlepe kratky uryvek kodu,
> popripade male nakopnuti...
Ahoj,
Zalezi na tom, jestli to potrebujes pro Win95/98 nebo NT.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
InstallShield -- Par otazek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.5.1999 22:43:01
Slavek Rydval wrote:
> 1) chapu dobre, ze jedina rozumna cesta, jak jej donutit vybafnout
> na uzivatele cesky je pouzit Lokalizatora?
Ahoj,
Pokud vim, tak lokalizaci InstallShieldu nabizi Sinea.
> 2) Jak jej mam rozumne otestovat? (pouzivam BDE). Kdyz jsem
> naistalil program se vsim vsudy, pak ok, ale po odinstalaci to
> s sebou vzalo i BDE.
Nejlepsi je to testovat na jinem pocitaci, kde neni BDE.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ExitProc a DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.5.1999 22:47:43
Smitka Jiri wrote:
>
> Ahoj,
> nemate nekdo vysvetleni, proc v DLL knihovne nefunguje ExitProc ?
> Napsal jsem kus programu presne podle helpu - a ono nic. Zadna chyba,
> ale taky zadna akce. Funguje pouze v exe.
Ahoj,
help o ni mimo jine rika "ExitProc should only be used when generating .EXE files".
V tvem pripade by jsi spis mel pouzit DllEntryPoint, v Delphi je to realizovano
pomoci promenne DLLProc - viz help.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Microsoft a produkty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.5.1999 23:11:24
Pavel Serbajlo wrote:
>
> 1) Nevi nekdo, kam si produkty od microsoftu ukladaji informace o tom, na
> kterych webovych strankach jsem uz byl? Potreboval bych s tim udelat asi
> totez, co m$ a to zmenit barvu labelu na fialovou
Ahoj,
Seznam navstivenych URL ziskas napriklad takhle:
uses
WinInet;
procedure TForm1.Button1Click(Sender: TObject);
var
SearchHandle: THandle;
EntryInfo: PInternetCacheEntryInfo;
BufSize: DWORD;
URLName: array[0..MAX_CACHE_ENTRY_INFO_SIZE] of Char;
begin
ListBox1.Items.BeginUpdate;
ListBox1.Items.Clear;
BufSize := MAX_CACHE_ENTRY_INFO_SIZE;
GetMem(EntryInfo, BufSize);
EntryInfo^.dwStructSize := MAX_CACHE_ENTRY_INFO_SIZE;
SearchHandle := THandle(FindFirstUrlCacheEntryEx(nil, 0, NORMAL_CACHE_ENTRY, 0, EntryInfo, (zv)BufSize, nil, nil, nil));
if SearchHandle <> 0 then
begin
repeat
BufSize := Sizeof(URLName);
InternetCanonicalizeUrl(EntryInfo^.lpszSourceUrlName, (zv)URLName, BufSize, ICU_DECODE or ICU_NO_ENCODE);
ListBox1.Items.Add(URLName);
BufSize := MAX_CACHE_ENTRY_INFO_SIZE;
EntryInfo^.dwStructSize := MAX_CACHE_ENTRY_INFO_SIZE;
until not FindNextUrlCacheEntryEx(SearchHandle, EntryInfo, (zv)BufSize, nil, nil, nil);
FindCloseUrlCache(SearchHandle);
end;
FreeMem(EntryInfo);
ListBox1.Items.EndUpdate;
end;
> 2) Jak se dostat k informacim z Adresare, ktere zase pouziva Outlook....
S nejvetsi pravdepodobnosti pres IAddrBook, v MAPI by to mela byt funkce
OpenAddressBook, v pripade IE Adress booku pak WABOpen.
Nicmene ani jedna z techto funkci neni v Delphi (nejsou prepsane hlavicky)
a dany interface IAddrBook taky ne :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************TShiftState
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.5.1999 07:19:43
Napis tam misto toho
if ssShift in Shift then
Jinak - to zvyrazneni formatovanim neni
dobry napad. Nekdo prijima pouze prosty text.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz <mailto:e-mail:jura.polak(zv)email(tec)cz>
jiri.polak(zv)tconsult(tec)cz
web : http://freeweb.coco(tec)cz/jpolak <http://freeweb.coco(tec)cz/jpolak>
----------
The only good bug, is a dead bug!
-----Original Message-----
From: Martin Bohm [mailto:mbohm(zv)quelle.sk]
Sent: Wednesday, May 12, 1999 5:16 PM
To: Delphi Forum
Subject: TShiftState
Zdravim
Mam taky maly problem, v nasledujucej procedure mi to vo zvyraznenom riadku
hlasi: Incompactible types.
procedure TForm1.SQLPKeyUp(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
if Shift = ssShift then
begin
main_query.Active := False;
main_query.SQL.Clear;
main_query.SQL := sqlp.Lines;
main_query.Active := True;
end;
end;
Problem je v tom, ze v helpe stoji, ze
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight,
ssMiddle, ssDouble);
Takze v com je chyba?
Dakujem za kazdu pomoc.
Martin B�hm
mbohm(zv)quelle.sk <mailto:mbohm(zv)quelle.sk>
tel. 07/5556 88 08
SQL- docasne tabulky
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 13.5.1999 07:46:01
Ahoj Jirko!
Diky za zpravu. Nad specifikovanym problemem lze nyni vest vecnou diskusi, ktera muze byt prinosem do konference.
Nase vzajemne invektivy totiz ucastniky konference asi uz (opravnene) nudily.
K problemu se vratim pristi tyden, st-pa skolim - mimochodem prave probirame "Programovani na strane Server".
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
> Odes�latel: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: SQL- docasne tabulky
> Datum: 12. kv�tna 1999 8:38
> Muzes to zkusit primo s tou editaci.
>
> Vyresit neco lepe nez existujici fungujici reseni nelze,
> pouze lze vylepsit nektera kriteria. Jestli bude hlavnim kriteriem
> elegantnost, rychlost, udrzovatelnost, nebo rychlost vyvoje,
> to je slovo do pranice. Pro nejvetsi aplikaci nasi firmy
> je nejdulezitejsi prave udrzovatelnost. Mame u zakaznika nasazeny
> system, delame mu udrzbu a podporu. Klientske programy
> (nejsou psany v Delphi, ale PowerBuilderu) maji dohromady pres 50 MB.
> Databaze je Informix. Zmeny v databazi jsou mozne pouze pomoci
> DBA ulozenych procedur (BTW nekteri zakaznici maji jeste prisnejsi kriteria
> -
> nelze napr. pouzivat primo na tabulky prikazy SELECT).
>
> My mame vypracovany dve metodiky. Jejich zevrubny popis:
>
> A) ulozenou procedurou
> 1. SELECT dat do editacniho okna.
> 2. Uzivatel potvrdi editaci
> 3. Klient provola Informixi proceduru s parametry - naeditovanymi udaji
> 4. Procedura zjisti, jestli od bodu 1. nedoslo ke zmene dat v DB, pokud
> ano, error
> 5. Procedura validuje naeditovana data, validacni chyby strka do docasne
> tabulky chyb
> 6. Procedura, pokud prosla validace, ulozi udaje do prislusnych tabulek
> 7. Klient, pokud neni prazdna tabulka chyb, zobrazi jejich seznam
>
> B) editace v docasne tabulce (silnejsi mechanismus nez A - je pro seznam
> editovanych dat)
> 1. Procedura, ktera nachysta docasnou editacni tabulku a nacpe do ni data
> (nektere editacni formulare nelze elegantne popsat selectem)
> 2. editace docasne tabulky, uzivatel potvrdi editaci
> 3. Procedura, ktera pro vsechny editovane zaznamy zjisti, zda jiz nebyly
> zmeneny
> v databazi, validuje data a ulozi. Chyby validace opet uklada do temp.
> tabulky.
>
> Nekde je jeste pouzit mix obou metod, je slabsi nez mechanismus B, protoze
> umoznuje
> editovat vice zaznamu, ale nelze je najednou validovat. Ten spociva v tom,
> ze misto docasne tabulky vraci data pro editaci kurzorova procedura a
> aktualizace v databazi se provadi opakovanym volanim procedury pro jeden
> zaznam
> (procedura totozna s procedurou z mechanismu A).
>
> Pozadavek je predevsim na:
> - udrzovatelnost. Chci menit validacni podminky, nemuset pritom znovu
> kompilovat velky program a prenaset ho k zakaznikovi.
> - aktualizace tabulek v databazi probiha pomoci ulozenych procedur
> - po neuspesne validaci chci uzivateli zobrazit vsechny nalezene chyby.
> - mechanismus musi umoznovat editaci vice zaznamu a mezizaznamove
> kontroly (napr. soucet atributu Podil vsech zaznamu je 100%).
> Tedy to, co je realizovano mechanismem B, kde jsou pouzity dve docasne
> tabulky -
> jedna pro editaci, druha pro zobrazeni chyb editovanych dat.
>
> Tesim se na reseni editace dat bez docasnych tabulek. Doufam, ze je problem
> specifikovan dostatecne.
>
> S tim, kde bychom si spolu mohli dat pivo - bydlim a ziju v Brne,
> co takhle podzimni Invex?
> Do Belohradu se v nejblizsi dobe nechystam, mam v praci jine starosti.
> Nevylucuju ale, ze v budoucnu na neco pojedu.
>
> Jura
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web :http://freeweb.coco(tec)cz/jpolak
> ----------
> The only good bug, is a dead bug!InstallShield -- Jeste jedna otazka
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.5.1999 07:49:14
Slavek Rydval wrote:
> projekt pristupuje k tabulkam typu Paradox pomoci TTable a
> TQuery. Co vse mam zaskrtnout v polozkach BDE? Nechci ho
> instalovat cely.
Paradox sam o sobe zpusobuje problemy, BDE take. Nepridavej
dalsi problemy seskrtanou instalaci BDE.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Instalace Delphi 4 pod Windows 2000
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 13.5.1999 08:09:40
Ahoj,
koho toto zaj�m�, na svet.namodro(tec)cz je �l�nek "Windows 2000 & software" kde
je pops�no, jak instalovat Delphi 4 pod Windows 2000.
Va�ek
V�clav Lukes
0603-511247
Vaclav.Lukes(zv)pvt(tec)cz
cs klavesnice v Delphi4
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 13.5.1999 08:46:02
M�m podobn� probl�m a mo�n� tvoje program�torsk� kl�vesnice by ho vy�e�ila. M��e� mi ji poslat tak�?
D�k. Jara.
svehla(zv)atlas(tec)cz
----P�vodn� zpr�va-----
Od: Pavel Fiser <fiser(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. kv�tna 1999 11:39
P�edm�t: Re: cs klavesnice v Delphi4
Jestli chces, poslu ti programatorskou klavesnici, kde je kompletni ceske rozlozeni a amer.znaky se pisou AltGr a puv.klavesa (napr. &: AltGr+7; ': AltGr+�...).
Mam ji pro Win95 i WinNT.
Zdar
Pavel Chaloupka p�e:
Zdravim, v Delphi 2 (a ve vsech win programech) jsem pouzival pri programovani cs klavesnici a nektere znaky jsem psal jako & - pravy alt+V. V delphi 4 to jiz nejde a vyvolavaji se okna delphi. Nevi nekdo jak docilit aby to pracovalo jak ma? Pavel Chaloupka
E-Mail chaloupka(zv)mboxzn(tec)cz
V�voj SW (Delphi, Java, Linux, Interbase)
Zacatecnicky dotaz
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.5.1999 09:57:37
> Pokud chci nastavit barvu pozadi, napisu (Graf je typu TGraf):
> Graf.Nastaveni.BarvaPozadi:= clBlue;
> Pokud chci ale nakreslit pozadi:
A proc to nenavrhnes trosicku jinak a nepouzaijes dedicnosti?
Typickym prikladem je Bod, Cara, Kruznice snad ve vsem knihach
o OOP.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Excel DDE
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 13.5.1999 09:25:56 met-1mest
Pozor, sesit je Workbook, list je Worksheet. Takze mi to melo jit
normalne takhle:
dim ws as Worksheet
set ws = Workbooks(0).WorkSheets(0)
ws.Select
Oldrich Nic, nico(zv)feld.cvut(tec)cz
Login pro paradox table
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.5.1999 11:33:28
Podivej se na metody
Session.AddPassword
Session.RemovePassword
Dobra.
> ----------
> Od: Petr�j Zden�k[SMTP:ZPetruj(zv)qgir(tec)cz]
> Odesl�no: 13. kv�tna 1999 12:01
> Komu: Delphi Konference (el. adresa)
> P�edm�t: Login pro paradox table
>
> Ahoj,
> nevite nekdo jak program�torsky osetrit zadavani hesla pro
> zaheslovanou
> paradoxovskou tabulku. Jde mi o to abych potlacil implicitni dialog
> pro
> zadani hesla do paradoxu a pouzil svuj dialog. Kdyz jsem driv pracoval
> se
> zaheslvanejma databazema tak to byla vzdy nejaka databaze SQL a tam
> jsem si
> delal login dialogy primo na TDatabase, ale u lokalniho paradoxu nevim
> jak
> se to dela.
>
> KREN
>
>
>
> Login pro paradox table
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 13.5.1999 11:01:53
Ahoj,
nevite nekdo jak program�torsky osetrit zadavani hesla pro zaheslovanou
paradoxovskou tabulku. Jde mi o to abych potlacil implicitni dialog pro
zadani hesla do paradoxu a pouzil svuj dialog. Kdyz jsem driv pracoval se
zaheslvanejma databazema tak to byla vzdy nejaka databaze SQL a tam jsem si
delal login dialogy primo na TDatabase, ale u lokalniho paradoxu nevim jak
se to dela.
KREN
Bitmapy pro tla��tka
[*] j.binder(zv)albacon(tec)cz - 13.5.1999 12:30:39
Nemate prosim nekdo odkaz na rozumny archiv bitmap pro tlactka,
ktery by mohl poslouzit jako rozsireni bitmap dodavanych s Deplhi?
Na internetu je toho sice dost, ale vetsinou spis ikony pochybne
kvality a pouzitelnosti.
Jiri Binder Instalator - zadarmo
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.5.1999 12:34:06
Jaro wrote:
> Ten mail jsem psal ja a ne autor. Autorem je RNDr Krmela, spolecnik
> moji firmy.
> Ja jsem ho na zaklade ohlasu v konferenci pozadal, aby instalator
> uvolnil
> a on souhlasil. Rozhodne se nic nestalo.
> Rad bych vysvetlil moji mozna az neprimerenou reakci.
> Protoze tech veci davame na nas server jiz
> delsi cas k dispozici bezplatne vice, tak se najde dost pripadu, kdy
> si nekdo neco stahne a jeste nam pak vynada, ze je to takove a ne
> onake.
Jak jsem psal jiz drive, domnivam se, ze by bylo rozumne umistit
projekt do inicaitivy Delphree (spise nez na svuj web), kde je
celkem zrejme, ze se jedna o vec, kterou je treba dal vyvijet.
Myslim, ze i vy sami byste si usetrili radu obdobnych majlu. Jestli
tedy mohu pozadat, zkuste se dohodnout s Petrem Zahradnikem,
zda vam umozni i spravcovstvi prislusne stranky, ci zda byste
spise chteli umistit projekt jako volny, pro nekoho, kdo se ho bude
chtit ujmout.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Login pro paradox table
[*] j.binder(zv)albacon(tec)cz - 13.5.1999 12:42:17
From: Petr j Zden k <ZPetruj(zv)qgir(tec)cz>
> nevite nekdo jak program�torsky osetrit zadavani hesla pro zaheslovanou
> paradoxovskou tabulku. Jde mi o to abych potlacil implicitni dialog pro
> zadani hesla do paradoxu a pouzil svuj dialog. Kdyz jsem driv pracoval se
Ja to resim pridanim
Session.Addpassword('heslo');
do inicializacni sekce unitu. Zadani nejakeho hesla je pak jiz jen na
me. ma to i tu vyhodu, ze programem pozadovane heslo nemusi
byt totozne se skutecnym heslem tabulky, ktere uzivatel ani
nemusi znat.
Jiri Binder Rusim otazku Login paradox table
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 13.5.1999 12:03:23
Ahoj,
rusim mou predchozi otazku ohledne zaheslovanych paradoxovskych tabulek.
Dnes mi to nejak nemysli. Vzpomnel jsem si ze se to osetruje v TSession.
Jsem to ale trubka.
KREN
Ulozeni BLOB
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 13.5.1999 11:11:46 met
Zdravicko,
Nemate nekdo, prosim, zkusenosti s ukladanim obrazku a jinych
podobnych dat na SQL Server ? Potreboval bych obrazek, ktery
mam v komponente TDBImage nahnat do StoredProc a tam ho pak
ulozit. Pouzivam ADONIS + MSSQL.
Diky.
svatos(zv)af(tec)czu(tec)cz
ExitProc a DLL
[*] Jiri Smitka <jiri.smitka(zv)atlas(tec)cz> - 13.5.1999 13:17:51
Ahoj,
je pravda, ze help rika "ExitProc should only be used when generating
.EXE files". Nicmene pod heslem "Library initialization code" zcela
normalne ukazuje pouziti v DLL, vcetne prikladu. Take tam je tato veta:
"When a DLL is unloaded, Delphi executes the library's exit procedures
by continuing to call the address stored in the ExitProc variable until
ExitProc becomes nil."
Tak proc to nefunguje ???
Jinak diky za radu, kouknu se na pouziti DllProc, zda se to byt resenim.
Srdecne zdravi
Jirka
P.S. Mam neustale problemy s mailserverem, takze se omlouvam, dojde li
tento mail vickrat.ActiveX- Graph
[*] Martin Bobak <bobak(zv)minv.sk> - 13.5.1999 13:29:30
Vazeny kto mi vie poradit ako prekreslovat ActiveX graf (TGraph) po zadani novych hodnot, totizto pri spusteni aplikacie sa graf vykresli ale ked mu priradim nove hodnoty neprekresluje sa. Vopred thx..........
Martin
Zacatecnicky dotaz
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.5.1999 13:33:33
> Bohuzel zadnou takovou knihu nemam, chybeji mi totiz penize. Ve STK v
> Praze jsou na podobne knihy rezervace 5 mesicu dopredu, ve skolni knihovne
> je vse take vypujceno, kamaradi nepracuji s pocitacem, spoluzaci nic
> takoveho nemaji. Nevis nahodou, jestli je nejaky pruvodce na internetu?
Podivej se na odkazy na me strance (adresa v signature) do sekce
programovani. Pokud tam nic nenajdes, pak rekni a snad se tu
neco vypoti. :-)
Slavek
> Diky, Oldrich Nic, nico(zv)feld.cvut(tec)cz
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Bitmapy pro tlae�tka
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.5.1999 14:19:47
Ja si odnekud, bohuzel uz nevim odkud, stahnul
celou sadu glyphu. Pamatuju si jenom, ze na
te strance byly na leve strane cihly a nejake
popinave rostliny :-)
Chces-li muzu Ti to poslat. Je toho asi 9 zipu.
Otazkou je, co povazujes za "pochybnou kvalitu".
Dobra
PS:
Pokud bude mit jeste nekdo jiny zajem, NEpiste!
"ja chci taky" do konference, napiste primo me.
Bude-li Vas vice, nekam to nahraju a poslu URL
> ----------
> Od: j.binder(zv)albacon(tec)cz[SMTP:j.binder(zv)albacon(tec)cz]
> Odesl�no: 13. kv�tna 1999 12:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Bitmapy pro tlae�tka
>
> Nemate prosim nekdo odkaz na rozumny archiv bitmap pro tlactka,
> ktery by mohl poslouzit jako rozsireni bitmap dodavanych s Deplhi?
> Na internetu je toho sice dost, ale vetsinou spis ikony pochybne
> kvality a pouzitelnosti.
> Jiri Binder
> MSVC++ kniznica a BorlandBuilder 4.0
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 13.5.1999 14:27:03
Poradte mi prosim postup, ako mam prilinkovat kniznicu vytvorenu vo
MSVC++ k BCB 4.0. Mate niekto s tym skusenosti, teda myslim skusenosti so
zaludnostami, ktore vyvstavaju. Konkretne som chcel prilinkovat kniznicu,
ktora bola staticky zlinkovana s MFC.
Vlado
Zacatecnicky dotaz
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 13.5.1999 12:48:01 met-1mest
> > Pokud chci nastavit barvu pozadi, napisu (Graf je typu TGraf):
> > Graf.Nastaveni.BarvaPozadi:= clBlue;
> > Pokud chci ale nakreslit pozadi:
> A proc to nenavrhnes trosicku jinak a nepouzaijes dedicnosti?
> Typickym prikladem je Bod, Cara, Kruznice snad ve vsem knihach
> o OOP.
>
>
> Slavek
Bohuzel zadnou takovou knihu nemam, chybeji mi totiz penize. Ve STK v
Praze jsou na podobne knihy rezervace 5 mesicu dopredu, ve skolni
knihovne je vse take vypujceno, kamaradi nepracuji s pocitacem,
spoluzaci nic takoveho nemaji. Nevis nahodou, jestli je nejaky
pruvodce na internetu?
Diky, Oldrich Nic, nico(zv)feld.cvut(tec)cz
typ funkce TStrings
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 13.5.1999 15:44:41
Koukni na to
function NaplnStringList( S :string) : TStringList;
const
List : TStringList = nil;
begin
try
List := TStringList.Create;
List.Add( S);
Result := List;
except
Result := nil;
end
end;
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Daniel Dedek [SMTP:admin2.ok.prague(zv)embassy.mzv(tec)cz]
Odeslano: 12. kvitna 1999 15:26
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: typ funkce TStrings
Nazdar vsichni
nejak jsem se zamotal s takovouhle jednoduchou veci:
Potrebuju definovat funkci s navratovym typem TStrings (nebo
TStringList) a nevim, jestli se musi take volat metoda Create a kde a
tak, lepe snad priklad...
function VratList( S: String ): TStrings;
begin
Result.Add( S );
end;
Tak tohle pochopitelne nefunguje, musim nekde volat Create, ale
nevim kde, poradite nekdo? Mohl bych to sice napsat jako proceduru, ale
znate to, ustoupit nemuzu.
Dik
Dan
typ funkce TStrings
[*] Karel Kral <kral(zv)purus(tec)cz> - 13.5.1999 16:35:02
Martin Lasevic wrote:
>
> Koukni na to
>
> function NaplnStringList( S :string) : TStringList;
> const
> List : TStringList = nil;
> begin
> try
> List := TStringList.Create;
> List.Add( S);
> Result := List;
> except
> Result := nil;
> end
> end;
To je preci chybne, kdyz nastane exception pri List.Add, vratis nil a
List zustane alokovany. Myslim, ze spravneji je to takto:
function NaplnStringList( S :string) : TStringList;
var
List : TStringList;
begin
List := TStringList.Create;
try
List.Add( S);
Result := List;
except
List.Free;
Result := nil;
end
end;
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
>
> Preji hezky den .....
> ============================================
> ML Software - Martin Lasevic
> Budovatelska 459,
> 708 00 Ostrava - Poruba
> tel.: + 420 (69) 691 85 11, 0603 338 765
> mailto:ml_software(zv)email(tec)cz
> http://www.mujweb(tec)cz/www/ml_software
> ICQ:33630882
> ============================================
>
> -----Puvodni zprava-----
> Od: Daniel Dedek [SMTP:admin2.ok.prague(zv)embassy.mzv(tec)cz]
> Odeslano: 12. kvitna 1999 15:26
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: typ funkce TStrings
>
> Nazdar vsichni
>
> nejak jsem se zamotal s takovouhle jednoduchou veci:
> Potrebuju definovat funkci s navratovym typem TStrings (nebo
> TStringList) a nevim, jestli se musi take volat metoda Create a kde a
> tak, lepe snad priklad...
>
> function VratList( S: String ): TStrings;
> begin
> Result.Add( S );
> end;
>
> Tak tohle pochopitelne nefunguje, musim nekde volat Create, ale
> nevim kde, poradite nekdo? Mohl bych to sice napsat jako proceduru, ale
> znate to, ustoupit nemuzu.
>
> Dik
>
> Dan
Literatura
[*] Adam Mika <amika(zv)iol(tec)cz> - 13.5.1999 16:54:52
Zdravim,
jsem cerstvy uzivatel Delphi a schanim nejakou literaturu na NETu. Zatim
bez uspechu. Muzete mi nekdo neco doporucit? Jakou knizku o Delphi je dobre
koupit?
S pozdravem
Adam Mika
typ funkce TStrings
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 13.5.1999 17:06:48
Zdravim,
tahle metoda je Ok, chci upozornit na neco jineho. Vytvoreny TStringList se
musi po pouziti uvolnit z pameti metodou free. napr.:
with NaplnStringList('nejaky string') do
try
{tady je prace s vytvorenym seznamem}
finally
free;
end;
jinak, zvlaste v cyklu by se hromadily volne bloky objektu TStringList, na
ktere by nebyly odkazy a ubyvala by volna pamet...
cau
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 13. kv�tna 1999 16:29
P�edm�t: RE: typ funkce TStrings
>Koukni na to
>
>function NaplnStringList( S :string) : TStringList;
>const
> List : TStringList = nil;
>begin
> try
> List := TStringList.Create;
> List.Add( S);
> Result := List;
> except
> Result := nil;
> end
>end;
>
>
>Preji hezky den .....
>============================================
>ML Software - Martin Lasevic
>Budovatelska 459,
>708 00 Ostrava - Poruba
>tel.: + 420 (69) 691 85 11, 0603 338 765
>mailto:ml_software(zv)email(tec)cz
>http://www.mujweb(tec)cz/www/ml_software
>ICQ:33630882
>============================================
>
>
>-----Puvodni zprava-----
>Od: Daniel Dedek [SMTP:admin2.ok.prague(zv)embassy.mzv(tec)cz]
>Odeslano: 12. kvitna 1999 15:26
>Komu: delphi-l(zv)fwd(tec)cz
>Poedmit: typ funkce TStrings
>
> Nazdar vsichni
>
> nejak jsem se zamotal s takovouhle jednoduchou veci:
> Potrebuju definovat funkci s navratovym typem TStrings (nebo
>TStringList) a nevim, jestli se musi take volat metoda Create a kde a
>tak, lepe snad priklad...
>
>function VratList( S: String ): TStrings;
>begin
> Result.Add( S );
>end;
>
> Tak tohle pochopitelne nefunguje, musim nekde volat Create, ale
>nevim kde, poradite nekdo? Mohl bych to sice napsat jako proceduru, ale
>znate to, ustoupit nemuzu.
>
>
>Dik
>
>Dan
>
>
>Delphi Pruvodce vyvojare II
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 13.5.1999 17:57:14
Zdravim
Prave jsem se vratil z Comnetu v Praze a privezl jsem si novou
knizku o Delphi (viz.subj). Vydalo ji nakladatelstvi UNIS publishing
Autori :Steve Teixeira & Xavier Pachco.
Jedna se paradoxne o II dil ze VI.( prvni pry vyjde az pozdeji :-) ),
obsahuje CD prilohu kterou mi vsak pry poslou postou ( taky pry
je nestihli jeste vyrobit ).
Obsahuje kapitoly :
ActivX prvky, grafika GDI a fonty, Tisk, MDI aplikace, Clipboard,
multimedia.
Po zbeznem prolistovani bych rekl nic moc.
Prakticky nic noveho, nic co by se zabyvalo konkretne vylepsenimi
Delphi4 ...
S pozdravem
Michal Cizek
Nastaveni sdileni slozky
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 13.5.1999 18:16:11
> narazil jsem na problem, jak programove (z Delphi) nastavit urcitou slozku
> (adresar) pro sdileni, vcetne zadani parametru (napr. uplny pristup, nazev
> sdilene polozky, heslo, ...). Zkousel jsem hledat v napovede k win32 API,
> ale nejsem z toho moc moudry:(
> Proto budu rad, kdyz mi nekdo pomuzete - nejlepe kratky uryvek kodu,
> popripade male nakopnuti...
fce NetShareAdd ....
jestli se nepletu :-)
s pozdravem M. Cizek
GRID + ENTER
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 13.5.1999 19:46:49
ahoj
Potreboval bych nahradit TAB >> ENTER v StringGrid a DBGRID
Diky Heinisch Jiri
Literatura
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 13.5.1999 20:18:15
>jsem cerstvy uzivatel Delphi a schanim nejakou literaturu na NETu. Zatim
>bez uspechu. Muzete mi nekdo neco doporucit? Jakou knizku o Delphi je dobre
>koupit?
Pokud chces ceskou literaturu tak treba Mistrovstvi v Delphi (vysly tri
dily), nazory na ni jsou ruzne, pro zacatek je asi dobre zacit dilem 2
(nebot jednicka je pro 16-bit Delphi 1 a trojka zase predpoklada uz nejake
znalosti)
Leos
Ulozeni BLOB
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.5.1999 20:22:11
Hynek svatos wrote:
> Nemate nekdo, prosim, zkusenosti s ukladanim obrazku a jinych
> podobnych dat na SQL Server ? Potreboval bych obrazek, ktery
> mam v komponente TDBImage nahnat do StoredProc a tam ho pak
> ulozit. Pouzivam ADONIS + MSSQL.
Mno, kdybys chtel poradit s OLE DB, tak to bych snad vedel. Ale
ADO... :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nastaveni sdileni slozky
[*] Tom PLANKA <planka(zv)bigfoot(tec)com> - 13.5.1999 20:36:21
>Zalezi na tom, jestli to potrebujes pro Win95/98 nebo NT.
Potreboval bych to pro Win95/98 - v druhe odpovedi jsem byl upozornen na fci
NetShareAdd, kterou jsem sice nasel uz drive, ale nedari se mi ji pouzit -
nemam moc zkusenosti s volanim fci win32 API - neslo by poslat maly
konkretni prikladek vyuziti teto fce??? - pliiiz:)))
Tom
Instalace Delphi 4 pod Windows 2000
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 13.5.1999 21:26:58
>
>Ahoj,
>
>koho toto zaj�m�, na svet.namodro(tec)cz je �l�nek "Windows 2000 & software"
kde
>je pops�no, jak instalovat Delphi 4 pod Windows 2000.
http://svet.namodro(tec)cz/go/r-art.asp?id=990512031
GRID + ENTER
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.1999 21:28:28
Jiri Heinisch wrote:
>
> ahoj
>
> Potreboval bych nahradit TAB >> ENTER v StringGrid a DBGRID
Ahoj,
Je to napriklad tady, akorat si to budes muset mirne upravit i pro StringGrid:
http://www.borland.com/devsupport/delphi/ti_list/TI2798.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Nastaveni sdileni slozky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.5.1999 21:28:08
Tom PLANKA wrote:
>
> >Zalezi na tom, jestli to potrebujes pro Win95/98 nebo NT.
>
> Potreboval bych to pro Win95/98 - v druhe odpovedi jsem byl upozornen na fci
> NetShareAdd, kterou jsem sice nasel uz drive, ale nedari se mi ji pouzit -
> nemam moc zkusenosti s volanim fci win32 API - neslo by poslat maly
> konkretni prikladek vyuziti teto fce??? - pliiiz:)))
Ahoj,
Priklad mas tady. Potrebne konverze hlavicek (SvrApi95, LmErr) ti muzu poslat
primo.
uses
SvrApi95, LmErr;
procedure TForm1.Button1Click(Sender: TObject);
var
ShareInfo: Tshare_info_50;
Res: NET_API_STATUS;
begin
ZeroMemory((zv)ShareInfo, Sizeof(ShareInfo));
ShareInfo.shi50_netname := 'SHARED';
ShareInfo.shi50_type := STYPE_DISKTREE;
ShareInfo.shi50_flags := SHI50F_RDONLY;
ShareInfo.shi50_remark := 'Sdileny adresar';
ShareInfo.shi50_path := 'C:\SHARED';
ShareInfo.shi50_ro_password := 'heslo';
Res := NetShareAdd(nil, 50, (zv)ShareInfo, Sizeof(ShareInfo));
if Res <> NERR_Success then
ShowMessageFmt('Chyba %d', [Res]);
end;
Popis funkci najdes na MSDN:
http://msdn.microsoft.com/library/sdkdoc/network/ntlmapi_05x0.htm
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Nastaveni sdileni slozky
[*] Patrik Tesar <patrik.tesar(zv)pobox.sk> - 13.5.1999 22:19:09
> >Zalezi na tom, jestli to potrebujes pro Win95/98 nebo NT.
>
>
> Potreboval bych to pro Win95/98 - v druhe odpovedi jsem byl upozornen na fci
> NetShareAdd, kterou jsem sice nasel uz drive, ale nedari se mi ji pouzit -
> nemam moc zkusenosti s volanim fci win32 API - neslo by poslat maly
> konkretni prikladek vyuziti teto fce??? - pliiiz:)))
>
> Tom
>
>
pozri sa na http://www.torry.ru
minule som tam videl celkom dobre veci v zlozke Security
mozno pomozu...
---------------------------
Ing. Patrik Tesar
software consulting
0905/211 274
---------------------------
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Literatura
[*] tomas gurny <gurny(zv)atlas(tec)cz> - 13.5.1999 23:13:51
> jsem cerstvy uzivatel Delphi a schanim nejakou literaturu na NETu. Zatim
> bez uspechu. Muzete mi nekdo neco doporucit? Jakou knizku o Delphi je dobre
> koupit?
Klasika je samozrejme Marco Cantu Mistrovstvi v Delphi.
Osobne se mi ale moc libily nasledujici dve knihy:
J. Sedlacek J. Slaba: Delphi v kostce (BEN 1997).
Bezva pro rychly uvod do Delphi; zvlast databaze se mi
tam zdaji popsane lepe nez v Cantuovi
Thomas Binzinger: Naucte se programovat v Delphi. (Grada 1998). Ta je spise zamerena na samotne programovani.
Ovladani Delphi se venuje jen letmo. Najdes tu pekny uvod
do objektoveho programovani, ale i neco o asembleru, popis
"technickeho pozadi" (bity&bajty, registry...). Taky jsou zde popsany
novinky D2 a D3 (D4 chybi).
Tech knizek se da sehnat vic, zalezi co komu vyhovuje.cs klavesnice v Delphi4
[*] eL_z_Prahy <eL_z_Prahy(zv)seznam(tec)cz> - 14.5.1999 01:59:41
Rad bych se pripojil k tomuto dotazu, ovsem v jeho puvodnim smyslu. tj. jak premapovat nebo vypnout hotkeye v editoru D4. Ja totiz pouzivam klavesnice HP, ktere (mimochodem u jineho vyrobce jsem to nevidel) jsou jen s ceskym popisem a tudiz premapovani klavesnice prilis nepomuze.
eL..
----------
Odes�latel: SPELZA s.r.o. <spelzasro(zv)brno.comp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: cs klavesnice v Delphi4
Datum: 13. kv�tna 1999 8:46
M�m podobn� probl�m a mo�n� tvoje program�torsk� kl�vesnice by ho vy�e�ila. M��e� mi ji poslat tak�?
D�k. Jara.
svehla(zv)atlas(tec)cz
----P�vodn� zpr�va-----
Od: Pavel Fiser <fiser(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. kv�tna 1999 11:39
P�edm�t: Re: cs klavesnice v Delphi4
Jestli chces, poslu ti programatorskou klavesnici, kde je kompletni ceske rozlozeni a amer.znaky se pisou AltGr a puv.klavesa (napr. &: AltGr+7; ': AltGr+�...).
Mam ji pro Win95 i WinNT.
Zdar
Pavel Chaloupka p�e:
Zdravim, v Delphi 2 (a ve vsech win programech) jsem pouzival pri programovani cs klavesnici a nektere znaky jsem psal jako & - pravy alt+V. V delphi 4 to jiz nejde a vyvolavaji se okna delphi. Nevi nekdo jak docilit aby to pracovalo jak ma? Pavel Chaloupka
E-Mail chaloupka(zv)mboxzn(tec)cz
V�voj SW (Delphi, Java, Linux, Interbase)
Nastaveni sdileni slozky
[*] Tom PLANKA <planka(zv)bigfoot(tec)com> - 14.5.1999 06:19:32
Mockrat dekuji vsem za pomoc!
Tom
>Ahoj,
>
>Priklad mas tady. Potrebne konverze hlavicek (SvrApi95, LmErr) ti muzu
poslat
>primo.
>
>uses
> SvrApi95, LmErr;
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
> ShareInfo: Tshare_info_50;
> Res: NET_API_STATUS;
>begin
> ZeroMemory((zv)ShareInfo, Sizeof(ShareInfo));
> ShareInfo.shi50_netname := 'SHARED';
> ShareInfo.shi50_type := STYPE_DISKTREE;
> ShareInfo.shi50_flags := SHI50F_RDONLY;
> ShareInfo.shi50_remark := 'Sdileny adresar';
> ShareInfo.shi50_path := 'C:\SHARED';
> ShareInfo.shi50_ro_password := 'heslo';
> Res := NetShareAdd(nil, 50, (zv)ShareInfo, Sizeof(ShareInfo));
> if Res <> NERR_Success then
> ShowMessageFmt('Chyba %d', [Res]);
>end;
>
>Popis funkci najdes na MSDN:
>http://msdn.microsoft.com/library/sdkdoc/network/ntlmapi_05x0.htm
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
>ExitProc a DLL
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 14.5.1999 07:50:16
Jiri Smitka <jiri.smitka(zv)atlas(tec)cz> wrote:
>je pravda, ze help rika "ExitProc should only be used when generating
>.EXE files". Nicmene pod heslem "Library initialization code" zcela
>normalne ukazuje pouziti v DLL, vcetne prikladu. Take tam je tato veta:
>
>"When a DLL is unloaded, Delphi executes the library's exit procedures
>by continuing to call the address stored in the ExitProc variable until
>ExitProc becomes nil."
>
>Tak proc to nefunguje ???
To nevim, ale usuzoval bych na to, ze jim proste ten priklad z ExitProc zbyl
v dokumentaci z dob D1, protoze jinak pisi
1. ExitProc should only be used when generating .EXE files
2. S pouzitim ExitProc uzce souvisi AddExitProc() a o te pisi "AddExitProc()
should not be used in current versions of Delphi. Instead, use the
FINALIZATION section of a unit. AddExitProc() is not compatible with
packages".
Sam jsem mel pred lety v D1 s ExitProc problem, ale tam slo o to, ze se
funcke WEP volala, jen kdyz se aplikace spustila samostatna mimo IDE.
Jakmile se volala DLL implicitne z aplikace spustene v IDE, tak to debugger
ustrihnul jeste pred tim, nez wokna stacila zavolat WEP. Tusim jsem to
nakonec nekde vycetl, ovsem dnes to nemohu najit. Problem se vyresil sam
tim, ze velikost aplikace prerostla moznosti IDE :-))
Stejne DLL dnes prekladame jak pro WIN16, tak pro WIN32 - tam pouzivame
pouze sekce INITIALIZATION / FINALIZATION a nenarazili jsme na zadne
problemy.
Bye, pf
>
>Jinak diky za radu, kouknu se na pouziti DllProc, zda se to byt resenim.
>
>Srdecne zdravi
>Jirka
>
>P.S. Mam neustale problemy s mailserverem, takze se omlouvam, dojde li
>tento mail vickrat.
>Otoceny DBGrid
[*] kopr <kopr(zv)kopr(tec)cz> - 14.5.1999 09:17:40
Ahoj
Potrebuji otocit v DBGridu slouce za radky a naopak. Znamena to, ze potrebuji zadavat jeden zaznam, ale ne do radku ale ve slouci. Neco jako je v DELPHI Objekt Inspektor.
Nejlepe i se zdroji a jako solo, ne jako soucast nejakeho velkeho baliku.
Diky za namety
Pekny den preje
Pavel ZIDEK
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Bitmapy pro tlacitka (URL)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 14.5.1999 09:36:08
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Hledal jsem tu stranku, odkud to mam, ale
nenasel, takze jsem to nahral sem :
http://dmaly.8m.com/temp.htm
Dobra.Bitmapy pro tlacitka (URL) II.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 14.5.1999 09:56:55
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Asi dvacet minut potom, co jsem odeslal ten predchozi
mail jsem tu stranku konecne nasel. Nicmene ty glyphy,
ktere najdete na te predchozi URL jsou jine nez ty na
teto (nejak se do toho zacinam zamotavat :-)
http://www.purescience.com/delphi/download.htm
-tady je tech 5MB o kterych pisu tady:
http://dmaly.8m.com/temp.htm
Dobra.
Ufff, snad je to srozumitelny :-)
A ty cihly tam jsou.Zarovn�n� ikon u ListView
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 14.5.1999 10:07:28
Ahoj,
m��ete mi pros�m n�kdo poradit, jak zarovnat ikony v ListView na st�ed ?
D�ky
Va�ek
V�clav Lukes
0603-511247
Vaclav.Lukes(zv)pvt(tec)cz
Ikona na liste aplikaci
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 14.5.1999 10:25:54
Ahoj,
nevite, prosim, nekdo jak obnovit ikonu na liste aplikaci? Stava se
mi, ze aplikace startuje s implicitni ikonou jako je na tlacitku START a
teprve po minimalizaci a obnoveni mi tam naskoci skutecna ikona aplikace.
Lze to resit uz pri nastaveni pred startem aplikace v DPR? Pouzivam obvykle
toto nastaveni pro D1:
Var wStyle:LongInt;
begin
wStyle:=getWindowLong(Application.Handle,GWL_Style);
wStyle:=wStyle or ws_Caption;
setWindowLong(Application.Handle,GWL_Style,WStyle);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Diky
Jaro B.TShiftState
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 14.5.1999 12:12:05
Ja pouzivam
if ssShift in Shift then
begin
end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> Mam taky maly problem, v nasledujucej procedure mi to vo zvyraznenom =
> riadku hlasi: Incompactible types.
> if Shift = ssShift then
RES s bitmapou
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 14.5.1999 12:43:38
Zdravicko...
Kdyz vyrobim Resource File s bitmapou pomoci Image Editoru (verze 3.0),
tak mi u te bitmapy znici paletu barev. Nemate nekdo tip na funkcni
generator Resource File?
F.Po�et updatovanych zaznamov
[*] Martin Klepoch <trexima(zv)isnet.sk> - 14.5.1999 12:55:36
Vedel by mi nekto poradi� ako zist�m ko�ko z�znamov bolo zmenen�ch po pou�it� SQL pr�kazu UPDATE? Nie�o tak� ako ke� Database Desktop vr�ti answer tabu�ku.
Martin KLEPOCH
MediaPlayer - automaticka kontrola pozice
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 14.5.1999 12:55:49
Zdravicko...
Pokud pomoci MediaPlayeru prehravam AVI, pozici prave prehravaneho
snimku zjistim z property Position. Jak ale zachytim, kdy se pozice
zmeni?
Dekuji za vsechny napady,
F.DLL pro ISAPI
[*] Michal <talman(zv)regionet(tec)cz> - 14.5.1999 13:39:52
Jen jeden kratky dotaz:
Bud mi knihovna DLL pro ISAPI, vytvorena v Delphi, fungovat pod Apachem bezicim na Linuxu ?
Diky
M.
DLL pro ISAPI
[*] voltrr1.epr(zv)mail.cez(tec)cz - 14.5.1999 13:45:16
Jedna kratka odpoved :
Ne
Radek
> Jen jeden kratky dotaz:
> Bud mi knihovna DLL pro ISAPI, vytvorena v Delphi, fungovat pod Apachem
bezicim na
> Linuxu ?
CD-Romka a bily Verbatim...
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 14.5.1999 15:02:37
Halloa ALL!
Omlouvam se za ne-delphi dotaz....
Mam takovou zajimovou CD-Romku (4X, GoldStar), kter� je asi 5 let stara. A
nacita jenom orig.CD (audio,PC) a bile Verbatimy...jin� CD nenacte ani za
mak...kdyby nenacitala ani ty Verbatimy, tak uz je davno v�aute, ale tohle
me mate...Nevite nahodou, cim by to mohlo byt a zda se s�tim da n�co udelat
(krome vyhozeni :o) ?
Dankuju....Tma Ulozeni BLOB
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 14.5.1999 14:24:17 met
> Hynek svatos wrote:
>
> > Nemate nekdo, prosim, zkusenosti s ukladanim obrazku a jinych
> > podobnych dat na SQL Server ? Potreboval bych obrazek, ktery
> > mam v komponente TDBImage nahnat do StoredProc a tam ho pak
> > ulozit. Pouzivam ADONIS + MSSQL.
>
> Mno, kdybys chtel poradit s OLE DB, tak to bych snad vedel. Ale
> ADO... :-)
Hm, a jak se to dela pres OLE DB ?
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Po�et updatovanych zaznamov
[*] Ale� Kle�ka - 14.5.1999 16:43:08
Ahoj,
myslim si, ze pocet updatovanych radku Ti vrati SQL%ROWCOUNT
Pr.:
UPDATE T1
SET ...
v PocetUPD := SQL%ROWCOUNT;
Ale� Kle�ka
{ a.klecka(zv)email(tec)cz }
----- Original Message -----
From: Martin Klepoch
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, May 14, 1999 12:55 PM
Subject: Po�et updatovanych zaznamov
Vedel by mi nekto poradi� ako zist�m ko�ko z�znamov bolo zmenen�ch po pou�it� SQL pr�kazu UPDATE? Nie�o tak� ako ke� Database Desktop vr�ti answer tabu�ku.
Martin KLEPOCH
DLL pro ISAPI
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.5.1999 16:47:41
Puvodni zprava, kterou napsal Michal dne 14 May 99,:
> Bud mi knihovna DLL pro ISAPI, vytvorena v Delphi, fungovat pod Apachem
> bezicim na Linuxu ?
Rozhodne NE.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
SQL - podminka
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 14.5.1999 19:16:46
Ahojte
Reseny priklad
Mam tabulku s temito udaji - CisloPolozky,mnozstvi,cenaKus,sazbaDPH
a potrebuji vytvorit SQL ktery bude vracet vysledek v jednom radku za
jednotlive sazby DPH podle
GROUP BY CisloPolozky
Je to vubec v SQL takto mozne ? (Paradox, Delphi 3)
Diky Heinisch Jiri
SQL - podminka
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 14.5.1999 20:07:46
>Mam tabulku s temito udaji - CisloPolozky,mnozstvi,cenaKus,sazbaDPH
>
>a potrebuji vytvorit SQL ktery bude vracet vysledek v jednom radku za
>jednotlive sazby DPH podle
>
>GROUP BY CisloPolozky
Nevim jsetli je to co chces, protoze jsem moc nepochopil zadani.
Pokud je cislo polozky rovno cislo materialu a Sazba Dph je 22,5,0 pak
pro vypis po materialech a sazbach by to mohlo byt treba takhle:
select SazbaDPH,CisloPolozky, Sum(mnozstvi*CenaKus)
from Neco group by 1,2
Leos
Instalator - zadarmo
[*] Jaro <jaro(zv)sinea(tec)cz> - 14.5.1999 21:23:52
Jak jsem psal jiz drive, domnivam se, ze by bylo rozumne umistit
projekt do inicaitivy Delphree (spise nez na svuj web), kde je
celkem zrejme, ze se jedna o vec, kterou je treba dal vyvijet.
Myslim, ze i vy sami byste si usetrili radu obdobnych majlu. Jestli
tedy mohu pozadat, zkuste se dohodnout s Petrem Zahradnikem,
zda vam umozni i spravcovstvi prislusne stranky, ci zda byste
spise chteli umistit projekt jako volny, pro nekoho, kdo se ho bude
chtit ujmout.
S pozdravem
Zbysek Hlinka
----------------------------------
Ja jsem s tim prece souhlasil. Projekt je zcela volny a ujmout se toho
muze kdokoliv. Stejne tak jsou zcela volne i ostatni komponenty
SineaVCL,
ktere jsou na nasem serveru k volnemu stazeni a obsahuji zdroje.
Nektere veci uz jsou starsi a hodi se spis pro D1 a D2, ale rada veci
je
dobre pouzitelna i pro D3 a D4.
Spravce Delphree to muze umistit na prislusnou stranku.
Muselo by se to ovsem asi trochu prebrat a pripadne upravit vzhledem
k nedusledne anglictine, co se tyce nazvu vlastnosti metod a
promennych
Jaro
SQL - podminka
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 14.5.1999 21:25:06
>
> >Mam tabulku s temito udaji - CisloPolozky,mnozstvi,cenaKus,sazbaDPH
> >
> >a potrebuji vytvorit SQL ktery bude vracet vysledek v jednom radku za
> >jednotlive sazby DPH podle
> >
> >GROUP BY CisloPolozky
>
>
> Nevim jsetli je to co chces, protoze jsem moc nepochopil zadani.
> Pokud je cislo polozky rovno cislo materialu a Sazba Dph je 22,5,0 pak
> pro vypis po materialech a sazbach by to mohlo byt treba takhle:
>
> select SazbaDPH,CisloPolozky, Sum(mnozstvi*CenaKus)
> from Neco group by 1,2
>
> Leos
select CisloDodList,SazbaDPH, sum(CenaMj*mnozstvi) as CenaCelkem
from WorkDlpolo
Group by CisloDodList,SazbaDPH
Pri tomto dotazu se se sice SazbaDPH rozcleni, ale kazda jednotliva sazba
totozneho dodaciho listu je v samostatnem radku a ja potrebuji aby vysledek
dotazu v jedmom radku byl
CisloDodList SazbaDPH_0_Kc ,SazbaDPH_5_Kc,SazbaDPH_22_Kc,CenaCelkem
Prakticky to jde asi vyresit pomoci 2 dotazu.
v prvnim dotazu (viz vyse) zjistim hodnoty podle jednotlivych sazeb
a v druhem to zaclenit pod jeden radek za kazdy dodaci list.
a ja bych potreboval pouze 1 dotaz
Zmena AliasName v OnLogin
[*] Jaro <jaro(zv)sinea(tec)cz> - 14.5.1999 22:08:35
Kdyz zmenim AliasName v udalosti OnLogin TDatabase, tak se mi tato
zmena neprojevi a stale se hlasi k databazi, ktera tam byla pred
volanim metody Open. Nemate nahodou nekdo nejakou fintu, jak zmenit
AliasName v OnLogin?
-------
Dam ti radu.
Nemusis psat Alias do OnLogin, kdys napises cestu primo do parametru
Tam muzes napsat vsechny parametry Alias a pak nepotrebujes zadny
ALIAS
S Alias jsou totiz jen problemy
V parametrech to pak zamenis snadno
Database1.Params[11] := '//Server/C:\Databaze\Databaze.gdb';
napr: Params:
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
LANGDRIVER=anczechw
SQLQRYMODE=
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
SCHEMA CACHE TIME=-1
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
ENABLE BCD=FALSE
SERVER NAME=C:\Databaze\Databaze.gdb
USER NAME=SYSDBA
PASSWORD=masterkey
-----------
Jaro
Velikost projektu v Delphi
[*] Jaro <jaro(zv)sinea(tec)cz> - 14.5.1999 22:14:19
Nejlepe to zaridis tak, kdyz teprve pri Oncreate kazdeho formulare
nactes teprve podklad z disku (LoadFromFile). Tim bude vysledne EXE
male a zrychli
se i start programu, protoze 5 MB natahovat do pameti ....l
Jaro
>> > Jsem zacatecnik a zkousim v D3 nejakou databazicku. Jako podklad
>> > kazdeho okna mam bitmapu, docela velkou, 1.2 MB.
>> |
>> --->nemas tjpeg
>> komponent?
>> mozem ti ich poslat
>> (myslim ze praca s jpeg by bola
jednoduchsia:)))
>> velkost tvojich suborov sa zmensi
mnohonasobne!!!
>> >Delphi standartne
>> > zaclenuje vsechny obrazky pouzite na formulari do *.dfm souboru.
Kdyz
>> > je tech formularu vice, celkem narusta velikost adresare s mym
>> > projektem. Neslo by nejak zaridit, aby Delphi nezaclenovalo do
>> > kazdeho *.dfm souboru tu samou bitmapu ? Ze by si ji treba tahalo
z
>> > nejakeho adresare, treba z "Obrazky" ?
>> > A take kdyz se projekt kompiluje do EXE, jsou v tom EXE zahrnuty
>> > vsechny soubory a jeho vysledna velikost je treba v mem pripade
kolem
>> > 5 MB. Neslo by taky nejak pri kopilaci zaridit, ze by se udelal
jenom
>> > maly EXE soubor a zbytek by se natahoval z nejakeho adresare,
treba z
>> > toho "Obrazky" ?
>> > Jo jeste neco. Jde nejak programove zjistit, jestli je v
mechanice
>> > vlozene Audio CD ? Teda aby program umel treba poznat, ze tam je
>> > datove, nebo ze je mechanika otevrena.
>> > Predem dekuji za odpoved a omluvte moji nezkusenost.
>> >
>> > S pozdravem
>> > L. Marsalek
>> >
>> ked si nebudes natahovat do timage obrazky priamo ale az pocas
spustenia
>> programu tak by to slo ...napr. image1.loadimage('obrazok.bmp') v
>> tform.create evente....
>A ja bych ti doporucil EXEcompresor ...
>http://www.entechtaiwan.com/aspack.htm
>ten je na projekty z Delphi jako stvoreny :-)
>
>S pozdravem Michal
>CD-Romka a bily Verbatim...
[*] Medusa <medusa(zv)brajan(tec)cz> - 15.5.1999 00:15:06
Ahoj,
----- Original Message -----
From: M�ra Tom� <tmara(zv)itsys(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, May 14, 1999 3:02 PM
Subject: CD-Romka a bily Verbatim...> Halloa ALL!
> Omlouvam se za ne-delphi dotaz....
> Mam takovou zajimovou CD-Romku (4X, GoldStar), kter� je asi 5 let stara. A
> nacita jenom orig.CD (audio,PC) a bile Verbatimy...jin� CD nenacte ani za
> mak...kdyby nenacitala ani ty Verbatimy, tak uz je davno v aute, ale tohle
> me mate...Nevite nahodou, cim by to mohlo byt a zda se s tim da n�co
udelat
> (krome vyhozeni :o) ?
>
> Dankuju....Tma
>
Jesli v tom nebude odrazova plocha, "bili" CDcka jsou podstatne mene
pruhledne nez od jinzch vzrovcu (SAMSUNG, apod...)...
Taky to muze byt vypalovackou,... Osobni skusenost...
Jeden typ mechanik nechtel nacitat vypaleny media a jak jsem potom zjistil,
tak necitelna media byly paleny na IDE vypalovacce, a pokud byly media
paleny na
SCSI vypalovacce, tak bylo vsechno OK...
Tak nevim zda jsem ti pomohl, ale nazor do pranice...
S pozdravem
Medusa
registerServiceProcess
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 15.5.1999 00:35:10
Uff, zkousel jsem si dany problem najit v archivu, protoze vim, ze se to zde
v unoru jiz diskutovalo. Nicmene nenasel jsem potrebne informace.
Rad bych poprosil o radu nekoho, kdo ma zkusenosti s psanim programu jako
Windows Service. Potrebuji, aby se mi program spustil po nalogovani
uzivatele, ale aby soucasne prezil jeho odlogovani. Nepotrebuji to na NT,
ale rad bych, aby to fungovalo na W95/98. Kdysi se tu probiralo pouziti
registerServiceProcess, a to, ze je nedokumentovana. Mohl by mi tedy nekdo
rict, ve ktere knihovne tato funkce je, pripadne, jak se da nadeklarovat do
meho unitu a pripojit praktickou ukazku jejiho pouziti ?
Diky
PK
CD-Romka a bily Verbatim...
[*] eL_z_Prahy <eL_z_Prahy(zv)seznam(tec)cz> - 15.5.1999 02:58:31
Moje obecna zkusenost s vypalovanim:
Pokud na nektera media (napr. RICOH) disk vypalim jen par MB obvykle jsou na nekterych jinych CD mechanikach problemy se ctenim. Zalezi samozrejme na mediu (napr. TDK to neudela) a mechanice ve ktere se to cte. Pokud je ale na disku vypaleno vice jak 150 MB dat problem temer nikdy a nikde nemam. Proto vzdy na CD kam nejde moc dat (napr nejaka instalace SW pro zakaznika) vypalim nejdrive jeden 150MB soubor a pak zbytek. Od te doby se netresu strachy o to, ze k zakaznikovi donesu napsany SW a budu tam koktat cosi o nekompabilite CD-ROM mechanik a kvalite vypalovacek atd. a budu tam narychlo na miste z notebooku bastlit disketovou instalaci.
Vysvetluji si to tim, ze pokud je cela session na CD kraticka tak nektere mechaniky "sneka" prejedou a nechyti tim padem zacatek.
Samozrejme ze take muze jit jen o "vlastnost" meho CD-R/W.
eL..
----------
> Odes�latel: Medusa <medusa(zv)brajan(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: CD-Romka a bily Verbatim...
> Datum: 15. kv�tna 1999 0:15
>
> Ahoj,
>
> ----- Original Message -----
> From: M�ra Tom� <tmara(zv)itsys(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, May 14, 1999 3:02 PM
> Subject: CD-Romka a bily Verbatim...
>
>
> > Halloa ALL!
> > Omlouvam se za ne-delphi dotaz....
> > Mam takovou zajimovou CD-Romku (4X, GoldStar), kter� je asi 5 let stara. A
> > nacita jenom orig.CD (audio,PC) a bile Verbatimy...jin� CD nenacte ani za
> > mak...kdyby nenacitala ani ty Verbatimy, tak uz je davno v aute, ale tohle
> > me mate...Nevite nahodou, cim by to mohlo byt a zda se s tim da n�co
> udelat
> > (krome vyhozeni :o) ?
> >
> > Dankuju....Tma
> >
>
> Jesli v tom nebude odrazova plocha, "bili" CDcka jsou podstatne mene
> pruhledne nez od jinzch vzrovcu (SAMSUNG, apod...)...
>
> Taky to muze byt vypalovackou,... Osobni skusenost...
> Jeden typ mechanik nechtel nacitat vypaleny media a jak jsem potom zjistil,
> tak necitelna media byly paleny na IDE vypalovacce, a pokud byly media
> paleny na
> SCSI vypalovacce, tak bylo vsechno OK...
>
> Tak nevim zda jsem ti pomohl, ale nazor do pranice...
>
> S pozdravem
> Medusa
>
> Ulozeni BLOB
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.5.1999 08:37:15
Hynek svatos wrote:
> > Mno, kdybys chtel poradit s OLE DB, tak to bych snad vedel. Ale
> > ADO... :-)
>
> Hm, a jak se to dela pres OLE DB ?
V C to vypada nejak takto (podle dokumentace):
IRowsetChange * pIRowsetChange;
IAccessor * pIAccessor;
ISequentialStream * pISeqStr;
HROW hrow;
int main() {
// Assume the consumer has a pointer (pIRowsetChange)
// that points to the rowset and
// a pointer (pISeqStr) that points to an
// ISequentialStream object not in the
// rowset. Create an accessor for the BLOB column.
// Assume it is column 1.
HACCESSOR hAccessor;
DBBINDSTATUS rgStatus[1];
DBOBJECT ObjectStruct;
DBBINDING rgBinding[1] = {
1, // Column 1
0, // Offset to data
sizeof(IUnknown*), // obLength length field
0, // Ignore status field
NULL, // No type info
ObjectStruct, // Object structure
NULL, // Ignore binding extension
DBPART_VALUE|DBPART_LENGTH, // Bind value and length
DBMEMOWNER_CLIENTOWNED, // Consumer owned memory
DBPARAMIO_NOTPARAM, // Not a parameter binding
0, // Ignore maxlength
0, // Reserved
DBTYPE_IUNKNOWN, // Type DBTYPE_IUNKNOWN
0, // Precision not applicable
0, // Scale not applicable
};
> tady se vytvari maska, pres kterou data vstupuji do databaze
// Set the elements in the object structure so that
// the provider creates a writable
// ISequentialStream object over the column. The provider
// will read data from the
// ISequentialStream object passed to SetData and write it
// to this object.
ObjectStruct.dwFlags = STGM_READ ;
ObjectStruct.iid = IID_ISequentialStream;
> tady se urcuje, pres co se data ctou
pIRowsetChange->QueryInterface(IID_IAccessor, (void**) &pIAccessor);
pIAccessor->CreateAccessor(DBACCESSOR_ROWDATA, 1, rgBinding,
sizeof(IUnknown *), //tady cosi chybi
> tady se vytvari propojeni masky s objekty, aby OLE DB vedelo, jak data cist
pIAccessor->Release();
//Setup pData row buffer
BYTE* pData=(BYTE*)pIMalloc->Alloc(sizeof(IUnknown*)+sizeof(ULONG));
//Value - pass ISequentialStream pointer to the provider
*(ISequentialStream**)(pData+rgBinding[0].obVaule)=pISeqStr;
//LENGTH - Some providers need to know the length of the stream ahead of
time...
*(ULONG*)(pData+rgBinding[0].oblength)=5000;
//SetData - The provider will then do a ISequentialStream::Read
//on the pISeqStr pointer passed in... pIRowsetChange->SetData(hrow,
hAccessor, &pISeqStr);
return 0;} ;
> a tady je naznak toho, jak data nacpat do databaze.
Tohle jsou streva, samozrejme se to da prekryt vhodnou tridou v Pascalu.
Ted jsem resil, jak pres OLE DB nacpat jednoducha data do tabulky, dale se
chystam na bloby. Mam uz vcelku zvladnutou technologii cteni i zapisu
jednoduchych dat, ale urcite problemy mam s nacpanim tohoto do TDataSet -
takze hledam pomocniky, kteri se v TDataSet vyznaji. OLE DB prekryvam
vlastni tridou.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
CD-Romka a bily Verbatim...
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 15.5.1999 09:05:13
>Omlouvam se za ne-delphi dotaz....
...
>mak...kdyby nenacitala ani ty Verbatimy, tak uz je davno v aute, ale tohle
Jak mi bylo prave vysvetleno, pocitacove CDROM mechaniky se od aut nehodi,
nebot nemaji ANTI-SHOCK-MEMORY a budou na kazdem sebemensim hrbolku
preskakovat. Krome toho by musela (bylo krajne vhodne) mit
ovladani(PLAY,SKIP) na celnim panelu.
Leos
Ucetni SW
[*] eL_z_Prahy <eL_z_Prahy(zv)seznam(tec)cz> - 15.5.1999 14:51:18
Mozna je to trochu off-topic, ale kde jinde patrat.
Pro jednu firmu pomaham vybrat ucetni SW.
Strucne pozadavky:
V soucasnosti 10 stanic (vyhled tak max do 20)
Podvojne ucetnictvi (aby to zkousl FU - asi budou brzo muset mit audit)
Duraz na skladove hospodarstvi - evidence pode vyr. cisel, ceniky.
Moznost vytvaret svoje interni evidence a modifikovat strukturu stavajicich (napr. pridavat dalsi udaje k produktum do skladovych karet)
Moznost uprav a modifikace (na zakazku)
Ja bych radil system Client-Server (SQL) no a aby to bylo napsane v Delphi
Pokud nekdo neco takoveho mate vyvinute, nebo vite o necem podobnem co sami pouzivate dejte mi prosim tip, pokud mozno s odkazem na podrobnejsi informace.
Diky
eL..SQL - podminka
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 15.5.1999 15:47:42
>Prakticky to jde asi vyresit pomoci 2 dotazu.
>
>v prvnim dotazu (viz vyse) zjistim hodnoty podle jednotlivych sazeb
>a v druhem to zaclenit pod jeden radek za kazdy dodaci list.
>a ja bych potreboval pouze 1 dotaz
Obavam se, ze v Paradoxu ti nic jineho nezbyde. U SQL serveru bys jeste mohl
pouzit vnorene selecty, ale ani to by nebylo asi to prave z hlediska vykonu.
Napr.
select doklad, (select sum(dan22) from ucty where doklad=X.doklad) sumdan22,
(select sum(dan5) from ucty where doklad=X.doklad) sumdan5 from ucty X
group by 1
atd.
Leos
Instalator - zadarmo
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.5.1999 18:34:14
Jaro wrote:
[Delphree]
> Ja jsem s tim prece souhlasil. Projekt je zcela volny a ujmout se toho
> muze kdokoliv. Stejne tak jsou zcela volne i ostatni komponenty SineaVCL,
> ktere jsou na nasem serveru k volnemu stazeni a obsahuji zdroje. Nektere
> veci uz jsou starsi a hodi se spis pro D1 a D2, ale rada veci je dobre
> pouzitelna i pro D3 a D4. Spravce Delphree to muze umistit na prislusnou
> stranku. Muselo by se to ovsem asi trochu prebrat a pripadne upravit
> vzhledem k nedusledne anglictine, co se tyce nazvu vlastnosti metod a
> promennych Jaro
No prave. Je treba se dohodnout s Petrem Zahradnikem, to
znamena poslat mu to, s nejakou popiskou v anglictine, a k
souborum je treba pripojit hlavicky (popis je na strankach
Delphree). Pripadne jeste najit dobrovolnika, ktery to poanglicti.
Chapu, ze je to jista prace navic, ale i to pripadne muze udelat
nekdo, kdo by se toho chtel chopit.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Problemy s tiskem
[*] Kamil Rakyta <kimros(zv)atlas(tec)cz> - 15.5.1999 23:11:46
Zdravim,
mam problem s tiskem barevnych (fotky) obrazku na tiskarne. Prozatim resim
tisk nasledujicim zpusobem:
obrazek nahraju do TBitmap a dale pomoci metody Draw objektu Printer ho
vykreslim na Canvas tiskarny. Problem je v tom, ze na kazde tiskarne tisk
vypada uplne jinak, na nekterych cernobilych tiskarnach se vybec
nevytisknout odstiny sedi, ale jen cernobily obraz (tzn. prechod barev
cerna-bila je do pulky cerny a od pulky bily).
Nevite nekdo jak to resit ?
Lze nastavit tiskarnu tak, aby mohla byt rutina na kresleni do canvasu vzdy
stejna ? Je nutno v pripade cernobile tiskarny provadet dithering vlastnim
programem ? V pripade ze ano neexistuje nato jiz nejaka komponenta ?
Mym cilem je dostat vystup podobny napr. programu CorelDraw nebo PaintShop
Pro.
Predem dekuji
Kamil Rakyta
Problemy s tiskem
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 16.5.1999 10:07:40
>mam problem s tiskem barevnych (fotky) obrazku na tiskarne. Prozatim resim
>vykreslim na Canvas tiskarny. Problem je v tom, ze na kazde tiskarne tisk
>vypada uplne jinak, na nekterych cernobilych tiskarnach se vybec
V knizce "Mistrovstvi v Delphi 3" je pomerne dobre popsana interakce mezi
Delphi, GDI, tiskovym ovladacem a grafickym ovladacem. Jsou tam i ruzne
triky a ceho se vyvarovat - koukni se tam, mozna najdes co potrebujes.
Leos
GRID + ENTER
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 16.5.1999 11:32:21
ahoj a diky za pomoc
Zaclenil jsem to primo do potomka StringGrid prikladam kod pro pripadne
ostatni zajemce
//--------------------------------------------------------------------------
----
procedure TStringGridDeis.KeyPress(var Key: char);
begin
inherited KeyPress(Key);
if (Key= #13) and (EnterIsTab)
then
case FEnterDirectionMove of
DownMove:
begin
if row < (rowcount -1) then
row := row +1 else
begin
row := fixedrows;
end;
end;
//-----------------
RightMove:
begin
if col < (colcount -1) then
col := col +1 else
begin
col := fixedCols;
if (row<(RowCount-1)) and (FCrLf) then
row:=row+1;
end;
end;
//-----------------
end;
end;
//--------------------------------------------------------------------------
----
>
> Je to napriklad tady, akorat si to budes muset mirne upravit i
> pro StringGrid:
>
http://www.borland.com/devsupport/delphi/ti_list/TI2798.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************SQL
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 16.5.1999 16:47:33
Ahoj,
mal by som mozno elementarnu otazku. Mam v tabulke 2 datumove polozky a ja
chcem vybrat obe a pritom ich zoradit podla vacsej z nich. Tj. nieco taketo:
select a, b, c from ... order by c.
kde c by bolo nieco ako MAX(a,b). Inak povedane by som chcel vytvorit dalsiu
calculated polozku, ktorej hodnota by bola maximum z dalsich dvoch.
dufam ze som to napisal zrozumitelne :-)
dakujem
rw
Ucetni SW
[*] Jaro <jaro(zv)sinea(tec)cz> - 16.5.1999 18:20:27
Dobre, ale napis svuj e-mail.
Posilat takove nabidky do teto konference je asi nevhodne
Jaro
----------------------------------------------------
>Mozna je to trochu off-topic, ale kde jinde patrat.
>Pro jednu firmu pomaham vybrat ucetni SW.
>Strucne pozadavky:
>V soucasnosti 10 stanic (vyhled tak max do 20)
>Podvojne ucetnictvi (aby to zkousl FU - asi budou brzo muset mit
audit)
>Duraz na skladove hospodarstvi - evidence pode vyr. cisel, ceniky.
>Moznost vytvaret svoje interni evidence a modifikovat strukturu
stavajicich (napr. pridavat dalsi udaje k produktum do skladovych
karet)
>Moznost uprav a modifikace (na zakazku)
>Ja bych radil system Client-Server (SQL) no a aby to bylo napsane v
Delphi
>
>Pokud nekdo neco takoveho mate vyvinute, nebo vite o necem podobnem
co sami pouzivate dejte mi prosim tip, pokud mozno s odkazem na
podrobnejsi informace.
>
>Diky
>
>eL..
>SQL
[*] Jaro <jaro(zv)sinea(tec)cz> - 16.5.1999 18:27:23
A muzes pouzit ulozenou proceduru nebo to delas na tabulkach?
Jaro
-----P�vodn� zpr�va-----
Od: No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 16. kv�tna 1999 17:49
P�edm�t: SQL
>Ahoj,
>
>mal by som mozno elementarnu otazku. Mam v tabulke 2 datumove polozky
a ja
>chcem vybrat obe a pritom ich zoradit podla vacsej z nich. Tj. nieco
taketo:
>
>select a, b, c from ... order by c.
>
>kde c by bolo nieco ako MAX(a,b). Inak povedane by som chcel vytvorit
dalsiu
>calculated polozku, ktorej hodnota by bola maximum z dalsich dvoch.
>
>dufam ze som to napisal zrozumitelne :-)
>
>dakujem
>
>rw
>Problemy s tiskem
[*] Jaro <jaro(zv)sinea(tec)cz> - 16.5.1999 18:40:31
>vypada uplne jinak, na nekterych cernobilych tiskarnach se vybec
>nevytisknout odstiny sedi, ale jen cernobily obraz (tzn. prechod
barev
>cerna-bila je do pulky cerny a od pulky bily).
To asi nevyresis nastavenim, protoze to je problem neschopnosti tech
tiskaren prevest
barvy na uroven sedi. Povestne jsou tim zejmena levne laserove
tiskarny HP.
Musel bys to opravdu zajistit softwarove, podobne jako to resi treba
MS Word
nebo CorelDraw a pod.
Pripadna existence vhodne komponenty by me rovnez zajimala, protoze
mam s nekterymi tiskarnami podobny problem.
Jaro
rozdily mezi GETMEM a NEW
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.5.1999 23:01:16
"Petr Kro�a ml." wrote:
>
> Ahoj,
> nepotrebuji ani tak radu, jako spise posouzeni. Jde mi o to, zda konstrukce,
> kterou nasledne vysvetlim, nebude vadit bezchybnemu behu programu.
> V helpu delphi je doslovne doporuceno pouzivat dvojice GetMem/FreeMem nebo
> New/Dispose. Otazka zni, zda je toto doporuceni jen kvuli predchazeni chyb
> behu programu ? Nebo je moznost, ze pokud si spravne pohlidam delky
> alokovanych bloku, vyjde to nastejno ?
Ahoj,
rozdil mezi GetMem/FreeMem a New/Dispose je v tom (mimo moznosti zadani
velikosti alokovaneho bloku), ze New/Dispose vola interne Initialize a
Finalize. To jsou procedury nutne pro uvolneni pameti u nekterych typu
promennych (napriklad String nebo Variant).
Priklad:
procedure TForm1.Button1Click(Sender: TObject);
var
P: PVariant;
begin
New(P);
P^ := '123';
ShowMessage(P^);
Dispose(P); // spravne
end;
procedure TForm1.Button2Click(Sender: TObject);
var
P: PVariant;
begin
New(P);
P^ := '123';
ShowMessage(P^);
FreeMem(P); // spatne, takto ti vznikne memory leak
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Literatura
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 17.5.1999 00:22:24
mozno sa Vam to nebude pacit, ale 99% vsetkeho co clovek potrebuje k
uspesnemu startu je percitat si *.pdf ktore su v adresary documentation na
instalacnom CD.
Podla mojho nazoru je to vynikajuco spracovany material nielen o
ObjectPascale ale aj o pouzivani "beznych" komponent.
rw
----- Original Message -----
From: tomas gurny <gurny(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, May 13, 1999 11:13 PM
Subject: Re: Literatura
> > jsem cerstvy uzivatel Delphi a schanim nejakou literaturu na NETu.
Zatim
> > bez uspechu. Muzete mi nekdo neco doporucit? Jakou knizku o Delphi je
dobre
> > koupit?
> Klasika je samozrejme Marco Cantu Mistrovstvi v Delphi.
>
> Osobne se mi ale moc libily nasledujici dve knihy:
> J. Sedlacek J. Slaba: Delphi v kostce (BEN 1997).
> Bezva pro rychly uvod do Delphi; zvlast databaze se mi
> tam zdaji popsane lepe nez v Cantuovi
>
> Thomas Binzinger: Naucte se programovat v Delphi. (Grada 1998). Ta je
spise zamerena na samotne programovani.
> Ovladani Delphi se venuje jen letmo. Najdes tu pekny uvod
> do objektoveho programovani, ale i neco o asembleru, popis
> "technickeho pozadi" (bity&bajty, registry...). Taky jsou zde popsany
> novinky D2 a D3 (D4 chybi).
>
> Tech knizek se da sehnat vic, zalezi co komu vyhovuje.typ funkce TStrings
[*] Mirun <forcom(zv)telecom(tec)cz> - 17.5.1999 03:45:50
Pokud mohu k teto funkci neco dodat (a vyvolat dalsi flamewar:-)))
radeji je lepsi se vyhnout funkcim, ktere neco tvori, a vraci to jako
argument. Hrozne to zneprehlednuje kod, a navic se pak memoryleaky tvori jak
houby po desti. Lepsi je predavat jiz vytvoreny objekt jako var parametr, a
nikoliv ho tvorit ve funkci.
Proto bych radeji doporucil :
procedure neco(S:String;var AList:TStrings);
begin
..NejakaOperaceSAList..
end;
a volat
List := TStringList.Create;
try
neco('SomeText',List);
....
finally
List.Free;
end;
jinak receno, pouzivat takoveto tridy jako lokalni promenne vzdy v jedne
funkci, ne globalne. V pripade tridy je pak tvorit v konstruktoru a
uvolnovat v destruktoru.
Proto si rozmysli, zda opravdu neni jine vyhnuti, nez napsat fci, ktera
tvori a vraci tridu.
Mirun
----- Original Message -----
From: Tomas Bradle <tomas(zv)cobra(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, May 13, 1999 5:06 PM
Subject: Re: typ funkce TStrings
Zdravim,
tahle metoda je Ok, chci upozornit na neco jineho. Vytvoreny TStringList se
musi po pouziti uvolnit z pameti metodou free. napr.:
with NaplnStringList('nejaky string') do
try
{tady je prace s vytvorenym seznamem}
finally
free;
end;
jinak, zvlaste v cyklu by se hromadily volne bloky objektu TStringList, na
ktere by nebyly odkazy a ubyvala by volna pamet...
cau
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 13. kv�tna 1999 16:29
P�edm�t: RE: typ funkce TStrings
>Koukni na to
>
>function NaplnStringList( S :string) : TStringList;
>const
> List : TStringList = nil;
>begin
> try
> List := TStringList.Create;
> List.Add( S);
> Result := List;
> except
> Result := nil;
> end
>end;
>
>
>Preji hezky den .....
>============================================
>ML Software - Martin Lasevic
>Budovatelska 459,
>708 00 Ostrava - Poruba
>tel.: + 420 (69) 691 85 11, 0603 338 765
>mailto:ml_software(zv)email(tec)cz
>http://www.mujweb(tec)cz/www/ml_software
>ICQ:33630882
>============================================
>
>
>-----Puvodni zprava-----
>Od: Daniel Dedek [SMTP:admin2.ok.prague(zv)embassy.mzv(tec)cz]
>Odeslano: 12. kvitna 1999 15:26
>Komu: delphi-l(zv)fwd(tec)cz
>Poedmit: typ funkce TStrings
>
> Nazdar vsichni
>
> nejak jsem se zamotal s takovouhle jednoduchou veci:
> Potrebuju definovat funkci s navratovym typem TStrings (nebo
>TStringList) a nevim, jestli se musi take volat metoda Create a kde a
>tak, lepe snad priklad...
>
>function VratList( S: String ): TStrings;
>begin
> Result.Add( S );
>end;
>
> Tak tohle pochopitelne nefunguje, musim nekde volat Create, ale
>nevim kde, poradite nekdo? Mohl bych to sice napsat jako proceduru, ale
>znate to, ustoupit nemuzu.
>
>
>Dik
>
>Dan
>
>
>
cs klavesnice v Delphi4
[*] Petr Kundrata <pksoft(zv)atlas(tec)cz> - 17.5.1999 07:05:16
eL_z_Prahy wrote:
>
> Rad bych se pripojil k tomuto dotazu, ovsem v jeho puvodnim
> smyslu. tj. jak premapovat nebo vypnout hotkeye v editoru D4.
> Ja totiz pouzivam klavesnice HP, ktere (mimochodem u jineho
> vyrobce jsem to nevidel) jsou jen s ceskym popisem a tudiz
> premapovani klavesnice prilis nepomuze.
>
> eL..
>
Zkousel jsem to trochu hledat v resourcech Delphi4.exe.
V RCData/TAPPBUILDER je ulozen DFM k TAppBuilder ktery
obsahuje hlavni menu. Me zajimal hlavne Breakpoints
Ctrl+Alt+B (normalne "{").
...
object DebugBreakPointsCommand: TAction
Category = 'Debug'
Caption = '&Breakpoints'
HelpContext = 1080
Hint = 'View Breakpoints'
ImageIndex = 65
OnExecute = DebugBreakPointsCommandClick
end
Nen� bohuzel pouzita property ShortCut, ktera by sla
predefinovat ale na urovni formulare
inherited AppBuilder: TAppBuilder
Left = 193
Top = 112
HorzScrollBar.Increment = 48
VertScrollBar.Increment = 6
AutoScroll = False
Caption = 'Delphi 4'
ClientHeight = 130
ClientWidth = 431
Menu = MainMenu1
Scaled = False
OnCanResize = FormCanResize
OnClose = FormClose
OnCloseQuery = WindowCloseQuery
OnConstrainedResize = FormConstrainedResize
> OnShortCut = FormShortCut
PixelsPerInch = 96
TextHeight = 13
obsluha udalosti OnShortCut, takze by sly globalne odpojit
vsechny ShortCuts, ale jak vypnout jen nektere se mi
nepodarilo vystopovat.
Petr Kundrata
end user Report Builder
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 17.5.1999 08:19:06
Chladam najaku firmu, ktora by chcela predavat moj SQL Report Builder, ktora umoznuje aj pre uzivatelov vytvarat reporty. Program dokonca umoznuje v run time programovat udalosti, menit SQLdotazy, modifikovat vlastnosti (properties) komponentov a vela ineho. Pripade seriozneho zaujmu mozem poslat demo.
TUNGLI Jan
tungli(zv)pvt.sk
SQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 17.5.1999 08:36:27
> -----Original Message-----
> From: No Comemnt Group, s.r.o. / Sales Department
> [mailto:sales(zv)nocomment.sk]
> Sent: Sunday, May 16, 1999 4:48 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: SQL
>
>
> Ahoj,
>
> mal by som mozno elementarnu otazku. Mam v tabulke 2 datumove
> polozky a ja
> chcem vybrat obe a pritom ich zoradit podla vacsej z nich.
> Tj. nieco taketo:
>
> select a, b, c from ... order by c.
>
> kde c by bolo nieco ako MAX(a,b). Inak povedane by som chcel
> vytvorit dalsiu
> calculated polozku, ktorej hodnota by bola maximum z dalsich dvoch.
>
select a, b, c, Max(a,b) d from ... order by d.
Zalezi na pouzite databazi, jak vypada funkce Max(a,b).
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!registerServiceProcess
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 17.5.1999 09:06:18
No, nevim, jestli je to "koser", ale stacilo by
program spoustet odtud :
Register:HKEY_LOCALMACHINE - SoftWare -
Microsoft - Windows - Current Version - RunService
Potom se to spusti jeste pred nalogovanim (viz pozn.)
a ukonci se to az po shutdownu Windows.
Pozn.:
>Potrebuji, aby se mi program spustil po nalogovani
>uzivatele, ale aby soucasne prezil jeho odlogovani.
Az se prihlasi dalsi uzivatel, taxe to spusti
znovu a bude se to mnozit a mnozit :-)
Jinak mozna dokumentaci najdes tady :
http://msdn.microsoft.com/library/default.htm
Dobra.> ----------
> Rad bych poprosil o radu nekoho, kdo ma zkusenosti s psanim programu
> jako
> Windows Service. Potrebuji, aby se mi program spustil po nalogovani
> uzivatele, ale aby soucasne prezil jeho odlogovani. Nepotrebuji to na
> NT,
> ale rad bych, aby to fungovalo na W95/98. Kdysi se tu probiralo
> pouziti
> registerServiceProcess, a to, ze je nedokumentovana. Mohl by mi tedy
> nekdo
> rict, ve ktere knihovne tato funkce je, pripadne, jak se da
> nadeklarovat do
> meho unitu a pripojit praktickou ukazku jejiho pouziti ?
> typ funkce TStrings
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 17.5.1999 09:07:51
Jo, beru.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Karel Kral [SMTP:kral(zv)purus(tec)cz]
Odeslano: 13. kvitna 1999 16:35
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: typ funkce TStrings
Martin Lasevic wrote:
>
> Koukni na to
>
> function NaplnStringList( S :string) : TStringList;
> const
> List : TStringList = nil;
> begin
> try
> List := TStringList.Create;
> List.Add( S);
> Result := List;
> except
> Result := nil;
> end
> end;
To je preci chybne, kdyz nastane exception pri List.Add, vratis nil a
List zustane alokovany. Myslim, ze spravneji je to takto:
function NaplnStringList( S :string) : TStringList;
var
List : TStringList;
begin
List := TStringList.Create;
try
List.Add( S);
Result := List;
except
List.Free;
Result := nil;
end
end;
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
>
> Preji hezky den .....
> ============================================
> ML Software - Martin Lasevic
> Budovatelska 459,
> 708 00 Ostrava - Poruba
> tel.: + 420 (69) 691 85 11, 0603 338 765
> mailto:ml_software(zv)email(tec)cz
> http://www.mujweb(tec)cz/www/ml_software
> ICQ:33630882
> ============================================
>
> -----Puvodni zprava-----
> Od: Daniel Dedek [SMTP:admin2.ok.prague(zv)embassy.mzv(tec)cz]
> Odeslano: 12. kvitna 1999 15:26
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: typ funkce TStrings
>
> Nazdar vsichni
>
> nejak jsem se zamotal s takovouhle jednoduchou veci:
> Potrebuju definovat funkci s navratovym typem TStrings (nebo
> TStringList) a nevim, jestli se musi take volat metoda Create a kde a
> tak, lepe snad priklad...
>
> function VratList( S: String ): TStrings;
> begin
> Result.Add( S );
> end;
>
> Tak tohle pochopitelne nefunguje, musim nekde volat Create, ale
> nevim kde, poradite nekdo? Mohl bych to sice napsat jako proceduru, ale
> znate to, ustoupit nemuzu.
>
> Dik
>
> Dan
Tab order dialog
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 17.5.1999 09:48:33
Je mozne v Run Time vyvolat Tab Order Dialog Box ?
TUNGLI Jan
tungli(zv)pvt.sk
spustenie programu
[*] Ing. J�n Kuch�r�����!j��G - 17.5.1999 11:27:34
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledovnu otazku ? Je mozne nejakym sposobom zistit ci sa v pocitaci nachadza urcity program a ak ano tak ho spustit ( viem presny nazov exe suboru ). Pre upresnenie pracujem v D4.
Dik
Ing. J�n Kuch�r
KIaR SjF TU Ko�ice
Park Komensk�ho 9
041 27 Ko�ice
tel. : 095 / 602 2589
e-mail : kuchar(zv)tuke.sk
POPUPMENU
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 17.5.1999 11:43:56
Ahoj,
neresil jste nekdo problem, pridani polozky do POPUPMENU plochy Windows??
Vubec nemuzu prijit na to jak to udelat, aby mi vratila handle.
Diky
Jirka Virt
email : virt(zv)pepa(tec)cz
www.pepa(tec)cz
spustenie programu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 17.5.1999 11:57:12
Napr. pres FindFirst a FindNext
Udelat si proceduru, na prohledavani
adresare a volat ji rekurzivne.
Dobra.
> ----------
> Od: Ing. J�n Kuch�r[SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 17. kv�tna 1999 11:27
> Komu: Delphi konferencia
> P�edm�t: spustenie programu
>
> Caute
> Mam nasledovnu otazku ? Je mozne nejakym sposobom zistit ci sa v
> pocitaci nachadza urcity program a ak ano tak ho spustit ( viem presny
> nazov exe suboru ). Pre upresnenie pracujem v D4.
> ����������������������������������������������������������������������
> ��������� Dik
> �
> Ing. J�n Kuch�r
> KIaR SjF TU Ko�ice
> Park Komensk�ho 9
> 041 27 Ko�ice
> tel. : 095 / 602 2589
> e-mail : kuchar(zv)tuke.sk
>
> mixer
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 17.5.1999 11:06:57
Ahojte,
potreboval bych poradit, anebo nakopnout v jedne veci, doufam, ze to
neni moc offtopic :-)
pomoci MM_MIXM_CONTROL_CHANGE odchytavam ruzne zmeny v nastaveni
mixeru a podle toho upravuju vselijaky ty hejblatka v mem okne,
problem je, kdyz se zmeni zdroj nahravani /treba z line na mic
apod./: ze ziskanych parametru dokazu zjistit, ze se jedna o Rec Line
onoho mixeru a ze vybrane zarizeni je WaveIn, coz je samozrejme
pravda, jenze ja uz vazne nevim, ja z toho dostat informaci o
komponentne, ktera byla ve skutecnosti vybrana...
a vubec, existuje nejaky dobry zdroj co se tyka MM pod WinXX?
dik moc za kazdou k cili vedouci radu...
preju pekny den
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/spustenie programu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 17.5.1999 12:20:21
Ahoj,
tady mas ukazku, jak to jde udelat (je to z dosu a vytazene
z kontextu, ale do delphi neni problem snad jiz predelat).
Slavek
procedure Prohledej (Cesta: string);
var
S,MS : SearchRec;
Ch : char;
F : file;
begin {Prohledej}
FindFirst(CESTA+'\*.*',AnyFile,S);
while DosError=0 do
begin
if (S.Attr = Directory) and (S.Name<>'.') and (S.Name<>'..') then
begin
DrawMessage (CESTA + '\'+S.Name);
end; if Pos (CoHledat,CESTA + '\'+S.Name) > 0 then
begin
DataRec.ListBox.PS^.Insert (NewStr (CESTA + '\'+S.Name));
Inc (PocetNalezenych);
{ WriteLn ('Nalezen soubor: ',CESTA + '\'+S.Name);
CH := UpCase (ReadKey);}
end;
if (S.Attr = Directory) and (S.Name<>'.') and (S.Name<>'..') then
begin
Prohledej(CESTA + '\'+S.Name);
end;
FindNext(S);
end;
end; {Prohledej}
no a pak nekde pouzij:
for Drive := 'C' to 'Z' do
if DiskSize (ord (Drive)-ord ('A')+1) <> -1 then
Prohledej (Drive+':');
> Caute
> Mam nasledovnu otazku ? Je mozne nejakym sposobom zistit ci sa v pocitaci
> nachadza urcity program a ak ano tak ho spustit ( viem presny nazov exe
> suboru ). Pre upresnenie pracujem v D4.
> Dik
>
> Ing. J�n Kuch�r
> KIaR SjF TU Ko ice
> Park Komensk�ho 9
> 041 27 Ko ice
> tel. : 095 / 602 2589
> e-mail : kuchar(zv)tuke.sk
>
>
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
instalace a konfigurace ODBC driveru (FoxPro)
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 17.5.1999 12:44:43
Ve sv� aplikaci se napojuji pomoci ODBC driveru od Microsoftu k tabulk�m
FoxPro.
Lze tento driver nejak rozumne naistalovat InstallShieldem a necha se
konfigurovat z programu?
(adresar s tabulkami a indexy?)
Dik
P.S: Pouzivam jej proto, ze SQL se jevi podstatne rychlejsi nez v BDE
(nevim proc, ale je to tak), data jsou ve FoxPro a zustanou tam, nebot je
pouziva starsi DOS program, jehoz nejsem autorem a nehodlam jej ani
vytvaret znovu ve Windows. Nehlede na to, ze k nemu staci stara 486 s 4 MB
RAM.
Data v tabulkach jsou v Latin2 a ODBC driver je umi zobrazit korektne. (to
se mi pres ruzne experimenty s nastavenim v BDE nepodarilo - BDE 5.01 + D3)
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela
registerServiceProcess
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 17.5.1999 12:32:25
> From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> No, nevim, jestli je to "koser", ale stacilo by
> program spoustet odtud :
> Register:HKEY_LOCALMACHINE - SoftWare -
> Microsoft - Windows - Current Version - RunService
Strucne receno-nestacilo
> Potom se to spusti jeste pred nalogovanim (viz pozn.)
ano
> a ukonci se to az po shutdownu Windows.
...ale taky pri odhlaseni uzivatele!
>
> Pozn.:
> >Potrebuji, aby se mi program spustil po nalogovani
> >uzivatele, ale aby soucasne prezil jeho odlogovani.
> Az se prihlasi dalsi uzivatel, taxe to spusti
> znovu a bude se to mnozit a mnozit :-)
>
> Jinak mozna dokumentaci najdes tady :
> http://msdn.microsoft.com/library/default.htm
> Dobra.
>
>
> > ----------
> > Rad bych poprosil o radu nekoho, kdo ma zkusenosti s psanim programu
> > jako
> > Windows Service. Potrebuji, aby se mi program spustil po nalogovani
> > uzivatele, ale aby soucasne prezil jeho odlogovani. Nepotrebuji to na
> > NT,
> > ale rad bych, aby to fungovalo na W95/98. Kdysi se tu probiralo
> > pouziti
> > registerServiceProcess, a to, ze je nedokumentovana. Mohl by mi tedy
> > nekdo
> > rict, ve ktere knihovne tato funkce je, pripadne, jak se da
> > nadeklarovat do
> > meho unitu a pripojit praktickou ukazku jejiho pouziti ?
> >
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail:info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
spustenie programu
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 17.5.1999 13:55:32
Souhlas, ale ne v?echny aplikace se do registru zapisuji. Pak uz opravdu pomuze pouze rekurze.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Petruj Zdenik [SMTP:ZPetruj(zv)qgir(tec)cz]
Odeslano: 17. kvitna 1999 14:41
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: spustenie programu
No ale asi je nejjednodussi pokud je program korektne nainstalovany tak z
registru.
> -----Puvodni zprava-----
> Od: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odeslano: 17. kvitna 1999 12:20
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Re: spustenie programu
>
> tady mas ukazku, jak to jde udelat (je to z dosu a vytazene
> z kontextu, ale do delphi neni problem snad jiz predelat).
>
> > Caute
> > Mam nasledovnu otazku ? Je mozne nejakym sposobom zistit ci
> sa v pocitaci
> > nachadza urcity program a ak ano tak ho spustit ( viem
> presny nazov exe
> > suboru ). Pre upresnenie pracujem v D4.
> > Dik