Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ExitWindowsEx
[*] Josef ��P����*?j�Z��3 - 25.6.1999 10:23:55
Pri pouziti teto funkce ExitWindowsEx (EWX_REBOOT or EWX_FORCE, 0)
pro restartovani Windows je vse v poradku pokud nejsou na pocitaci pripojene
sitove disky.
Pokud jsou pripojene sitove disky tak se zobrazi "Za chvili muzete pocitac
vypnout" a tato hlaska
tam byva hodne dlouho asi 1 minutu.
Nekdy se take stane ze PC v tomto stavu zamrzne.
Toto se deje pouze pokud jsou pripojene sitove jednotky, jinak tato fce
funguje bez problemu.
Mam D3 CS a zkousel jsem to i na jinych PC, chovalo se to stejne.
Nevite nekdo cim by to mohlo byt ??
FlashFiler - zkusenosti ?
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 25.6.1999 10:38:59
Kdyz tak chvalis DBISAM, napis jak je na tom se spolehlivosti.
Fak jdou data do haje, kdyz pocitac padne pri commitu?
> To je prave ten problem, ze pozadavky na tvuj program se meni
> od uzivatele k
> uzivateli (a podle zakona schvalnosti kazdeho pul roku), coz te
donuti
> vytvaret a distribuovat tvou aplikaci ve 2 verzich. Takze shrnuto a
> podtrzeno, pokud nechcete vytvaret kazdy program 2x a otravovat sebe
i
> uzivatele, radeji misto FlashFileru pouzijte DBISAM.
>
> M.
Obsah napovedy
[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 25.6.1999 10:41:14
Omlouvam se, pratele, to mela byt odpoved na soukromy mail, kterou se mi
omylem podarilo adresovat i do konference. Snad to nebylo az tak off
topic...
Vilda
-----P�vodn� zpr�va-----
Od: Josef Kokes <kokes(zv)fsid.cvut(tec)cz>
Lituji, ze Vas musim zklamat, ale to jsem nepsal ja....
JK
-----Original Message-----
From: Vilem Svoboda <vilem_s(zv)mrp(tec)cz>
To: Madlik Josef <madlik(zv)jsp(tec)cz>
Ahoj,
je treba pouzit prikaz:
Application.HelpCommand(HELP_FINDER, 0);
Potiz nastane, budete-li chtit zobrazit konkretni kartu (Obsah, Rejstrik,
Najit). Tady se mi a ani nikomu z mych kolegu zatim nepodarilo nalezt
uspokojive reseni. Bezne se totiz zobrazuje ta karta, ze ktere byl help
naposledy ukoncen nebo karta Obsah, pokud je help spousten poprve (resp.
pokud se zaklada soubor .GID). Ale reseni z�ejm� existuje, ponevadz jsem to
u nekterych programu videl.
Pokud na neco prijdete, dejte mi vedet.
Vilda
-----P�vodn� zpr�va-----
Zdravim.
Pred casem jste psal v konferenci Delphi kurs tvorby napovedy.
Mel bych nasledujici dotaz :
Mam soubor napovedy Help.HLP a obsah napovedy Help.CNT.
Jakym zpusobem mam v Delphi 2 vyvolat obsah napovedy,
tak aby se objevilo okno s obsahem (zalozky s ikonkami
otevrenych a zavrenych knizek - dle Help.CNT)?
Pokud volam napovedu takto:
Application.HelpCommand(HELP_CONTENTS, 0);
tak se zobrazi prvni stranka helpu.
Pritom, kdyz spustim Help.HLP treba v pruzkumnikovi, tak
je vse v poradku.
Help je delan v MS Help WorkShopu.
Nebo delam nejakou chybu pri vytvareni HLP souboru?
Dekuji.
---------------------------------------------------------------
Ing. Josef Madlik
e-mail: madlik(zv)jsp(tec)cz
---------------------------------------------------------------
D 3C/S + MS SQL 7 a varchar(8000)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.6.1999 10:50:04
Erik Salaj wrote:
> > Coz samozrejme muzeme obejit OLE DB knihovnou pres Delphree
> > (porad jeste hledam kupu pomocniku). ADO je dobre v Delphi
> > vynechat, a lze usetrit peniz i za C/S ci dokupovani nadbytecnych
> > doplnku.
>
> Preco je dobre ADO vynechat? Nie je uplne najvyhodnejsie vynechat
> aj OLE DB a pristupovat priamo na OLE DB provider? Alebo vynechat
> aj ten a pristupovat rovno na databazovy subor na disku?
:-)) Chapu, ze se to primo dotyka tvych obchodnich zajmu. Ovsem
mam vaznou obavu, ze Delphi 5 ti udela v tomto bode caru pres
rozpocet.
Takze zopakuji, co jsem psal uz nekolikrat. ADO jsou interfejsy
postavene nad OLE DB, jejich cilem je zjednodusit pristup k
funkcim obsazenym v OLE DB - proto, ze OLE DB je komplikovane
a dost tezko se primo pouziva. Krome toho je tu zajem zpristupnit
OLE DB i pro programatory ve VB, kteri by sotva utahli slozitost
OLE DB, a je otazka, zda by to utahl VB. ADO jsou tedy struktury
urcene pro prime pouziti.
Nez jsem se dostal na OLE DB, zkousel jsem i ADO - je to
opravdu pruhledne, celkem dobre se s tim pracuje, ale nejak mi
unika nutnost prekryvat to dalsimi komponentami - uz treba proto,
ze prekrytim si mohu zkomplikovat tvorbu vicevrstvych aplikaci.
Kdyz jsem badal, jak ADO nacpat do TDataSet, zjistil jsem, ze
pouze pribudou komplikace, a to nejenom kvuli typove ruznosti
borlandskych komponent a OLE DB. Ale jsou tu jeste dva dalsi,
nezanedbatelne fakty - ADO je kvuli VB prevariantovano, coz v
dusledku znamena v Delphi vyrazne zpomaleni pristupu k datum.
Za druhe, ADO zdaleka neumi vyuzit vsech moznosti OLE DB,
ktere jsou mnohdy velice zajimave.
Takze zaver k OLE DB - prime pouziti je samozrejme mozne, ale
zdlouhave, vyzaduje si velkou pozornost. Zde se tedy vyplati udelat
nejake komponenty (ci tridy) nad tim, ostatne Microsoft to pro C++
take tak dela a spolu s OLE DB dodava. Jsme ale v Delphi, ze, kde
je zatim pole neorane.
> Ale fakt je ten, ze pomocou ADO je mozne aj s Delphi Standard
> dosiahnut funkcionalitu neporovnatelne drahsej Delphi C/S verzie.
Ano, to je. S OLE DB lze vsak dosahnout jeste o tridu lepsi
funkcionality - rychlejsi, s vetsimi moznostmi, mezi ktere patri
nejen pristup k databazim, ale celkove do systemu k ruznorodym
informacim, napriklad do majlu a podobne. Je treba pocitat s tim,
ze Win2000 budou OLE DB prolezle skrz naskrz.
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
Pripojeni z oracle do delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.6.1999 10:50:04
Peter Rus wrote:
[OLE DB]
> no jo, ale ja mam delphi 3 :-(( ANebo jsem neco prehledl??
No - brani ti nekdo, abys to doladil na D3? Pokud se vyhnes tomu
nestastnemu potomkovi z TDataSet, tak snad krome Int64 (ktere
by melo stacit vhodne pretypovat) a defaultnich parametru by
nemel byt vaznejsi problem.
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
MDI form z SDI formu
[*] Pavel �im��ek - 25.6.1999 11:07:44
>Ahoj,
>muzete mi nekdo poradit s MDI aplikaci? Potrebuju ze sveho formu vyvolat
>MDI form.
>V D4 Standard jsem si vygeneroval MDI aplikaci, potud vse OK.
>Najivnejsem si myslel, ze bude stacit vzit vygenerovane MAIN a CHILD
>unity apak ze sveho formu hlavni MDI okno klasicky vyvolat:
> MyMDIForm.TMainForm.Create(Self);
> MyMDIForm.Show;
Ja to delam takto:
var Child: TChildForm;
Child:= TChildForm.Create(Application);
a funguje to.
Akorat nesmis zapomenout premistit ChildForm z Auto - create forms do
Available forms v
Project --> Options.
No a Child okno se ti otevre automaticky po jeho vytvoreni. A pak v OnClose
aby se zavrelo tak zas musis nastavit Action na caFree;
Pavel
Obsah napovedy
[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 25.6.1999 11:55:39
Skoro. Zkousel jsem to, Rejstrik funguje, Obsah zobrazi prvni topik (resp.
topik nastaveny prikazem SETCONTENTS). Nam se zatim podarilo zobrazit Help
Topics sice na kterekoli karte, ale pouze zaroven s nekterym topikem. Diky,
zase jsme se o kousek priblizili k dokonalosti.
Vilda
(Cist helpy byva uzitecne - nota bene po sobe :-)
-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Ahoj, mas na mysli tohle ?
procedure TForm1.inNapoveda_ObsahClick(Sender: TObject);
begin
Application.HelpCommand(HELP_CONTENTS, 0);
end;
procedure TForm1.inNapoveda_RejstrikClick(Sender: TObject);
const
EmptyString: PChar = '';
begin
Application.HelpCommand(HELP_PARTIALKEY, Longint(EmptyString));
end;
procedure TForm1.inNapoveda_PouzitiClick(Sender: TObject);
begin
Application.HelpCommand(HELP_HELPONHELP, 0);
end;> ----------
> Ahoj,
>
> je treba pouzit prikaz:
>
> Application.HelpCommand(HELP_FINDER, 0);
>
> Potiz nastane, budete-li chtit zobrazit konkretni kartu (Obsah,
> Rejstrik,
> Najit). Tady se mi a ani nikomu z mych kolegu zatim nepodarilo nalezt
> uspokojive reseni. Bezne se totiz zobrazuje ta karta, ze ktere byl
> help
> naposledy ukoncen nebo karta Obsah, pokud je help spousten poprve
> (resp.
> pokud se zaklada soubor .GID). Ale reseni z�ejm� existuje, ponevadz
> jsem to
> u nekterych programu videl.
>
> Pokud na neco prijdete, dejte mi vedet.
> Vilda
Pripojeni z oracle do delphi
[*] Martin Porkert <tes(zv)pce(tec)cz> - 25.6.1999 13:01:38
vendor init v BDE musi obsahovat ora803.dll a v autoexecu musi byt upravena
cesta
c:\orawin95\BIN kde tu knihovnu najdes.
Ahoj Martin
----- Original Message -----
From: Peter Rus <peterrus(zv)intesys(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, June 25, 1999 8:06 AM
Subject: Re: Pripojeni z oracle do delphi
> Ahoj Petre,
>
> noo, dost mozna to bude ono, ale s nekolika malickostmi:
>
> a) nemam nt-cka
> b) nemam ani jeden z tam jmenovanych souboru, coz bude asi ten problem.
> Hledal jsem i soubory nalezejici verzi osm (nejake ora80.dll), ale
> nic... Pomuze mi nekdo s timhle problemem? Zrejme nemam na pocitadle dll
> soubory pro oracle. Pritom mam ale vsechno nainstalovane so nejspravneji
> podle meho nejlepsiho vedomi a svedomi.
>
> Pomooooooc!
>
> Diky, diky, diky,
>
> Peter Rus
>
> Petr Vones wrote:
> >
> > Peter Rus wrote:
> > > > > Ahoj,
> > > > >
> > > > > mam na serveru netware 5 nainstalovany oracle 8.0.4 a nejak se mi
> > > > > nedari.
> > > > >
> > > > > Spojeni serveru a stanice funguje (overeno pomoci enterprise
> > > > > manageru),
> > > > > odbc taky jakz-takz funguje. Ale bych chtel nativni link. Bohuzel,
> > > > > kdykoliv se o to pokusim (pouzit nativni link), dostanu hlasku
"vendor
> > > > > initialization failed" - nevite nekdo co s tim?
> >
> > Ahoj,
> >
> > Podle toho jak to popisujes by to mohlo byt tohle:
> >
> > http://www.borland.com/devsupport/bde/qanda/FAQ253B.html
> >
> > --
> >
> > Internet proti monopolu. Petr Vones, amatersky
programator
> > * http://www.bojkot(tec)cz *
> > ************************Retezce v DLL
[*] martin.falta(zv)obi(tec)cz - 25.6.1999 13:21:24
Ahoj,
rad bych ukladal vsechny texty, ktere se uzivateli zobrazi do DLL knihovny.
Prozatim jsem zkusil vytvorit knihovnu se souborem retezcu. Ale nepodarilo
se mi, dane texty z knihovny precist. Muze nekdo poradit?
Diky
Pripojeni z oracle do delphi
[*] miroslav.prokel(zv)rtscs(tec)cz - 25.6.1999 13:38:12
b) nemam ani jeden z tam jmenovanych souboru, coz bude asi ten
problem.
Hledal jsem i soubory nalezejici verzi osm (nejake ora80.dll), ale
nic... Pomuze mi nekdo s timhle problemem? Zrejme nemam na pocitadle
dll
soubory pro oracle. Pritom mam ale vsechno nainstalovane so
nejspravneji
podle meho nejlepsiho vedomi a svedomi.
Mozna nosim drivi do lesa, ale pokud nemuzes najit zadnou takovou
dll, nemas asi nainstalovany SQL*Net?
Miro
subnet mask
[*] Santik <santik(zv)pronetix.sk> - 25.6.1999 13:41:50
> Vse se da vycist z registry (vyjma dynamicky pridelene IP adresy via DHCP
> na Win9x - tam se musi vyuzit nezdokumentovane API k vdhcp.386).
>
Vo Win9x existuje systemova utilitka winipcfg.exe, ktora to vie nejako
zistit,
ale ked som sledoval co cita z regsitry cez RegMon (registry monitor ),
tak som nic nezistil - asi sa to da zistit aj inak (mam take podozrenie ze
by sa to
malo dat vycitat priamo z sietove konfiguracneho property sheetu cez nejake
shell OLE funkcie).
Co sa tyka toho registry tak viem, ze na Win95 us nejake zaujimave polozky v
HKLM\\System\\CurrentControlSet\\Class\\NetTrans\\000x ,
ale napr. na NT uz taketo polozky nie su.
Santik
santik(zv)pronetix.sk
Pripojeni z oracle do delphi
[*] Peter Rus <peterrus(zv)intesys(tec)cz> - 25.6.1999 13:48:17
Ooo, ne-e .. oni jsou ty soubory totizto "ora80?" a me tam chybel
otaznik.
Mimochodem, dekuji ti ... zda se, ze to uz funguje!!
Mej se,
Peter
miroslav.prokel(zv)rtscs(tec)cz wrote:
>
> b) nemam ani jeden z tam jmenovanych souboru, coz bude asi ten
> problem.
> Hledal jsem i soubory nalezejici verzi osm (nejake ora80.dll), ale
> nic... Pomuze mi nekdo s timhle problemem? Zrejme nemam na pocitadle
> dll
> soubory pro oracle. Pritom mam ale vsechno nainstalovane so
> nejspravneji
> podle meho nejlepsiho vedomi a svedomi.
>
> Mozna nosim drivi do lesa, ale pokud nemuzes najit zadnou takovou
> dll, nemas asi nainstalovany SQL*Net?
>
> Miro
InstallShield a BDE config
[*] Petr Vale� - 25.6.1999 13:58:45
Ahoj,
zkousim InstalShield z Delphi 4.2 a potrebuji aby se mi na cilovem pocitaci
take nahral konfiguracni soubor BDE idapi32.CFG, kde mam pouze jednu zmenu
MAXFILEHANDLE=256
Ovsem nevim jak to mam udelat.
Dekuji za kazdou radu
Petr
MDI form z SDI formu
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 25.6.1999 14:02:09
Podle mych zkusenosti musi byt hlavni MDI formular hlavnim formularem
aplikace. Z toho vyplyva ze vytvorit MDI formular z SDI formulare nejde.
> -----P�vodn� zpr�va-----
> Od: Petr Ga�ourek [mailto:geta(zv)telecom(tec)cz]
> Odesl�no: 25. �ervna 1999 9:08
> Komu: DELPHI Konference
> P�edm�t: MDI form z SDI formu
>
>
> Ahoj,
> muzete mi nekdo poradit s MDI aplikaci? Potrebuju ze sveho
> formu vyvolat
> MDI form.
> V D4 Standard jsem si vygeneroval MDI aplikaci, potud vse OK.
> Najivnejsem si myslel, ze bude stacit vzit vygenerovane MAIN a CHILD
> unity apak ze sveho formu hlavni MDI okno klasicky vyvolat:
> MyMDIForm.TMainForm.Create(Self);
> MyMDIForm.Show;
> Hlavn� MDI okno se vyvolalo, ale pri otevreni Child okna jsem
> dostalzpravu "... No MDI forms are currently active!
> ...."Kdyz vyvolavam
> hlavni MDI okno ShowModal, tak dostanu hlasku "Cannot make a visible
> window modal.", ale MDI okno je uz otevrene. Child okna sechovaji
> stejne.Co delam spatne? Hledal jsem jak v helpu, tak v dokumentaci
> nainstalacnim CD, ale bez uspechu.
>
> A pak jeste jeden navazujici dotaz. Chtel bych dat to MDI okno do
> DLL.Nenarazim opet na nejake problemy?
>
> Predem diky za rady.
> Petr Gadourek
> Retezce v DLL
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 25.6.1999 14:36:17
Jediny problem muze byt ve spatne instanci modulu, kterou predavas funkci
LoadString, jinak to musi fungovat (ja to pouzivam porad). Viktor
----- Original Message -----
From: <martin.falta(zv)obi(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, June 25, 1999 1:21 PM
Subject: Retezce v DLL
Ahoj,
rad bych ukladal vsechny texty, ktere se uzivateli zobrazi do DLL knihovny.
Prozatim jsem zkusil vytvorit knihovnu se souborem retezcu. Ale nepodarilo
se mi, dane texty z knihovny precist. Muze nekdo poradit?
Diky
TCP/IP ve threadu
[*] muher(zv)csas(tec)cz - 25.6.1999 15:30:28
>1) Ma servis nejaky HWND?
nee, pokud potrebujes pouzivat WSAAsyncSelect, musis si alokovat okno a
jistit chod smycky zprav
Trochu jsem si s tim pohral, ale bez uspechu. Jak vlastne zajistim chod te
smycky?
Nejak jsem to zkousel, ale jen tapu.
Kdyz umistim DefWndProc do Threadu tak to hazi access violation. Musi byt
tedy samostatne v unitu?
Zdravi
D. Toman
Diky
Martin
System variables
[*] tichyr <tichyr(zv)vaipe(tec)cz> - 25.6.1999 15:32:21
Nazdar ! Vi nekdo jak se dostanu z Delphi na systemove promenne. Mam na mysli promenne typu PATH, TEMP.....
Potrebuju je precist, ale nevim jak. Trapne ze ?
Radim
Retezce v DLL
[*] martin.falta(zv)obi(tec)cz - 25.6.1999 16:29:01
Mohl bys mi poslat kousek zdrojaku na ukazku?
Blikani pri prepisu
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 25.6.1999 17:07:14
�au Delph�ci,
m�m p�r takov�ch dot�zk�.
1. M�m TForm, na jeho cel� plo�e je TImage (alClient) a jeden TLabel. TLabel
je Transparent a zobrazuje �as. Je proto do jeho Caption periodicky tento
�as zapisov�n. Probl�m je v tom, �e to nep��jemn� problik�v�. Co s t�m?
2. Pot�ebuji odchytit Shift, Control a Alt. D�l�m to v KeyDown co� se mi
da�� u prvn�ch dvou p��pad�. S Alt m�m probl�my, nebo� generuje Control,
nebo Control + Alt nebo jenom Alt. Nav�c je to r�zn� u lev�ho a prav�ho. Jak
m�m regul�rn� odchytit jenom Alt?
3. V��e uveden� form je bez r�me�ku (None) a jeho pohyb po obrazovce d�l�m
prost�ednictv�m my�i. Probl�m je v tom, �e p�i tomto pohybu zanech�v� za
sebou "ocas"? Co s t�m?
D�k. Jara.
TCP/IP ve threadu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.1999 17:39:18
>>1) Ma servis nejaky HWND?
>nee, pokud potrebujes pouzivat WSAAsyncSelect, musis si alokovat okno a
>jistit chod smycky zprav
>
>>Trochu jsem si s tim pohral, ale bez uspechu. Jak vlastne zajistim chod te
>>smycky?
>>Nejak jsem to zkousel, ale jen tapu. >>Kdyz umistim DefWndProc do Threadu tak to hazi access violation. Musi byt
>>tedy samostatne v unitu????? to jsem nejak nepochopil DefWindowProc() se snad vola z lpfnWndProc a je jedno kde je procedura prirazena k lpfnWndProc definovana...
Pokud neco jako tohle pobezi v Service_Main_Function pak se zpravy rozdistribuuji (okno musi byt vytvoreno pred touto smyckou v Service_Main_Function)
While True do
begin
Res := MsgWaitForMultipleObjects(1,
hServiceStopEvent,
False,
INFINITE,
QS_ALLINPUT);
CASE Res of
WAIT_OBJECT_0+1 : begin // QS_ALLINPUT
While PeekMessage(M,0,0,0,PM_REMOVE) do
begin
TranslateMessage(M);
DispatchMessage(M);
end;
end;
WAIT_OBJECT_0 : begin
Result := 0;
Break; // Stop EVENT
end;
-1 : begin
Result := GetLastError;
...........
Break; // ERROR
end;
else
begin
...................
Break;
end;
end;
end;
Zdravi
D. Toman
spusteni externi aplikace (Was: none)
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 25.6.1999 17:48:55
jan.pechac(zv)post(tec)cz wrote:
>
> Prosim o radu jak definovat spousteni eterniho programu v Delphi. Jde mi
konkretne o pakovace a textove editory.
> Jsem uplny zacatecnik a potrebuji tuto radu abych mohl dokoncit svou prvni
aplikaci.
Omlouvam se za pozdni reakci, ale tento tyden jsem mel fofr.
Tento problem jsem mel vyresen v 16bit pro D1, ale nesel primo prevest
do 32bit pro D3. Diskutovalo se to na konferenci 18.05. a odpovidal mi
Daniel Dedek.
viz.: Re: spustenie programu + jeden namet i dotaz navic
Uz mi to chodi i pro 32bit. posilam lehkou ukazku
ukazka pro 16bit
var
Pcharline: pchar;
id:integer;
Fsize:word;
begin
try
FSize:=length(ProgramkeSpusteni)+length(PripadneSpousteciParametry)+2;
Pcharline:=allocmem(FSize);
strpcopy(Pcharline,ProgramkeSpusteni+' '+PripadneSpousteciParametry);
id:=winexec(Pcharline,SW_SHOWNORMAL); {ID spusteneho procesu:integer }
{ V id se vraci bud cislo chyby spusteni <32, nebo cislo procesu }
{nasledujici smycka umoznuje testovat stav spusteneho procesu}
If id>=32 {spusteni se povedlo}
while getmoduleusage(id) > 0 do
begin
application.processmessages; {aby bezely ostatni aplikace}
testnatimeout
end;
finally
freemem(szcline,FSize);
end;
Pro 32Bit je to vetsi.
Function PExec32(programe, params : STRING):STRING;
var
paramSize : WORD; {pro alokaci Pcharu pri prevodu params na string
koncici 0}
Fmessage : string; {pro pripravu navratoveho textoveho hlaseni o
uspechu }
{nasleduji promenne potrebne pro komunikaci v Win. funkci
CreateProcess}
InitResult : boolean; {sem dava procedura createProces vysledek
inicializace}
szPrograme, { cesta+nazev spousteneho programu, jen pro 32-bit
aplikace }
szParams : pchar;{ cesta+nazev 16-bit aplikace a predavane param
command linu}
ProcessAttrib,
ThreadAttrib :PSecurityAttributes;
Inherithandles :longbool;
creationflags :Dword;
Environment :pointer;
CurDir :pchar;
Startupinfo :TStartupinfo;
Processinfo :Tprocessinformation; { ukazatel na informaci o
spustenem procesu}
ExitCode :Dword; {vraci stav procesu, resp.yda uz byl ukoncen}
begin
try
Fmessage:=''; {priprava stringu pro navratove hlaseni o prubehu}
{nasleduje priprava pro volani Createprocess}
szPrograme:=nil; {aby se daly spoustet i 16-bit aplikace, je jmeno
procesu}
{predavano v param stringu}
ParamSize:=length(programe)+length(params)+2; {+2 je na zero a mezeru
mezi}
szparams:=allocmem(paramSize);
strpcopy(szParams,programe+' '+params);
ProcessAttrib:=nil;
ThreadAttrib:=nil;
Inherithandles:=false;
creationflags:=NORMAL_PRIORITY_CLASS and CREATE_NEW_PROCESS_GROUP;
Environment:=nil;
CurDir:=nil;
{ Zde je treba iniciovat StartupInfo. Podrobnosti viz Win32hlp, nebo
se ozvi primo, at } {nezacpeme konferenci. V podstate tam vsude jinde
muzes dat :=0 nebo nil }
Startupinfo.cb :=sizeof(TProcessInformation);
//longint;
{atd .................}
Startupinfo.hStdError :=0; //thandle;
Initresult:=
CreateProcess(szPrograme,szparams,ProcessAttrib,ThreadAttrib,
Inherithandles,creationflags,Environment,CurDir,
Startupinfo,Processinfo);
WaitForInputIdle( Processinfo.hProcess, 1000);
if initResult
then
begin
Fmessage:='Process started OK';
repeat
application.processmessages;
WaitForSingleObject( Processinfo.hProcess, 1000 );
GetExitCodeProcess( Processinfo.hProcess, ExitCode);
{ zde pripadne osetrit timeout}
until ExitCode<>STILL_ACTIVE;
closehandle(Processinfo.hProcess);
closehandle(Processinfo.hThread);
end
else Fmessage:='Error starting process';
finally
Pexec32:=Fmessage;
freemem(szparams);
end;
end;
D grafika, kde zacit ?
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 25.6.1999 18:06:37
Mam zdvorily dotaz.
Potrebuji naprogramovat kresleni 3d objektu a dosud jsem delal jen 2D.
Poradi mi nekdo, kdo je dale nez ja, kde sehnat nejlepsi informace jak
na to.
(3D funkce, rendering a tak) Nejlepsi by bylo asi tak " 100 trik� a
n�pad� pro 3D" nebo
"3D pro kazdeho" nebo "mistrovstvi v 3D".
Diky za tipy.
Ivan P.
beginupdate,endupdate
[*] Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> - 25.6.1999 19:22:18
Ahoj lidi
Resim takovy problem , prijimam data z COMu , zpracovavam je a zobrazuju. Muj problem je v tom, ze pri zobrazovani do listwiev to memu PC prilis dlouho trva. ( zjistival sem to pomoci f-ce gettickcount ).
Nekde sem se docetl ze by to mely vyresit f-ce beginupdeta a endupdate, ale kdyz je pouziju nic se neurychli.
Poradte mi prosim nejaky zpusob, jak data zobrazova rychleji , nebo popripade nejaky jiny rychlejsi zobrazovaci zobrazovaci prvek.
Predem dekuju DAN
MS SQL 6.5
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 25.6.1999 22:04:30
Ahoj,
ma niekto z Vas "realne" skusenosti s funkcnym pripojenim k subj. z Delphi?
Hladam jednoduche a robustne riesenie... Najlepsie to, co mozno ani nieje
tak rychle ale nie je to zabugovane a tak.
K Delphi sa dodava nieco nativne, ale prednedavnom to niekto poslal do
horucich pekiel takze neviem...
za kazdu radu dakujem :-)
rw
D grafika, kde zacit ?
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 26.6.1999 09:40:03
tak 3D ???
a co takhle OpenGL ????
nejsem v tom moc daleko, ale zd� se to bejt dobr�,
n�jak� info najde� na http://web.iol(tec)cz/mister
�us Sl�va
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/
> ----------
> Odes�latel: Ivan Pavelka[SMTP:I.Pavelka(zv)uni-data(tec)cz]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 25. �ervna 1999 18:06
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: 3D grafika, kde zacit ?
>
> Mam zdvorily dotaz.
>
> Potrebuji naprogramovat kresleni 3d objektu a dosud jsem delal jen 2D.
> Poradi mi nekdo, kdo je dale nez ja, kde sehnat nejlepsi informace jak
> na to.
> (3D funkce, rendering a tak) Nejlepsi by bylo asi tak " 100 trik� a
> n�pad� pro 3D" nebo
> "3D pro kazdeho" nebo "mistrovstvi v 3D".
>
> Diky za tipy.
>
> Ivan P.
>
> ListView a rychlost
[*] Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> - 26.6.1999 11:03:09
Ahoj
Bohuzel sem si neprectl posledni zpravy z delphi konference, a tak se na
neco podobneho poslal dodaz.
Ty fu-ce me nijak casove nepohly, jedine ceho se tim asi docili je to , ze
se do ListView zobrazi je uz koncove hodnoty.
posilam ktratky testovaci program, v editce rozdil je pocet milisekund
ktere se na to zobrazeni potrebuji, zkuste si aktivaci tech funkci zmerit
rozdil z predchozi hodnotou.
Lita to tak 80ms+- 5 a to me vubec nepomuze .
procedure TForm1.FormCreate(Sender: TObject);
var
i:real;
b:tlistitem;
begin
edit3.text:=inttostr(gettickcount);
i:=0;
//ListView1.Items.BeginUpdate;
repeat
b:=ListView1.Items.add;
b.Caption:='fadfdasfasd';
//Edit1.text:='fadsfas';
//Edit1.text:='fadsfas';
//Edit1.text:='fadsfas';
//Edit1.text:='fadsfas';
i:=i+1;
until i>300;//ListView1.items.EndUpdate;
edit4.text:=inttostr(gettickcount);
edit5.text:=inttostr(strtoint(edit3.text)-strtoint(edit4.text));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=inttostr(gettickcount);
end;
end.
Dan
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, June 23, 1999 10:40 PM
Subject: Re: ListView a rychlost
> Tomas Skopik wrote:
> >
> > Ahoj,
> >
> > mam zase jeden dotaz ke komponente TListView. Tentokrak mi jde o
rychlost. Zda se mi, ze je to nejake pomale. Kdyz treba nacitam seznam ktery
ma 500 polozek tak u ListView mi to trva asi 3s. Nacital jsem jen cisty
seznam, jeden sloupec bez ikon, bez trideni. To same je v treba ListBoxu
hned. Ve StringGridu taky.
> >
> > Mozna tomu nerozumim, ale treba v porovnani s Windows Explorerem (ci
jinymi programy, ktere zobrazuji seznam souboru) se mi to jevi pomale.
>
> Ahoj,
>
> A volas na zacatku toho nacitani TListView.Items.BeginUpdate a na konci
pak
> TListView.Items.EndUpdate ?
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************
>PCX format
[*] Miro Mrazik <miro_mr(zv)hotmail(tec)com> - 26.6.1999 09:37:02 pdt
Ahojte,
neviete niekto o komponente resp. zdrojakoch na ulozenie obrazka zobrazeneho
v komponente TImage do suboru vo formate PCX ???
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
D 3C/S + MS SQL 7 a varchar(8000)
[*] Erik Salaj <winsoft(zv)napri.sk> - 26.6.1999 14:47:24
> :-)) Chapu, ze se to primo dotyka tvych obchodnich zajmu. Ovsem
> mam vaznou obavu, ze Delphi 5 ti udela v tomto bode caru pres
> rozpocet.
:-)) Alebo mozno Delphi 6, alebo 7, ... Mozte byt kludny, podla mna
mate malo informacii na taketo konstatovania, takze akekolvek
obavy su uplne zbytocne ;-). Konkurencia je v kazdom pripade
dobra vec a vobec mi nevadi ak niekto pride s konkurencnym
produktom (niekolko ich aj existuje). Tymto krokom by Borland len
potvrdil moje presvedcenie, ze ADO je ta spravna volba a nie BDE
pripadne MIDAS. Len je skoda, ze takato firma na to neprisla skor.
Lebo nestaci iba robit veci spravne ale je aj treba robit spravne veci.
Co sa tyka ADO versus OLE DB tak z mojho pohladu:
1. ADO je daleko daleko jednoduchsie ako OLE DB, preto aj vysledny
produkt je jednoduchsi a teda daleko spolahlivejsi, flexibilnejsi, ....
2. Co sa tyka vykonnosti, tak u databazovych aplikacii je dana
predovsetkym databazou a dobrym OLE DB providerom. Samotne
OLE DB alebo ADO to ovplyvni velmi malo (ak vobec). Pristup
k databaze byva totiz milionkrat pomalsi ako vykonanie zopar instrukcii.
3. Tam kde je OLE DB bude aj ADO, pretoze ADO je zakladne
aplikacne rozhranie pre OLE DB a prevazna vecsina aplikacii, ci uz
web/VB/VC++/Java ... bude pouzivat ADO. Dovolim si tvrdit, ze
OLE DB sa bude priamo pouzivat iba vo velmi vynimocnych pripadoch
(ak vobec). Pre jazyk C++ a Javu existuje specialne ADO rozhranie
bez variantov. Hlavny dovod je jednoduchost a prehladnost, pretoze
varianty sa v C++ pouzivaju dost komplikovane (co sa tyka Javy
to neviem posudit) a vedlajsi efekt, ze je to aj o nieco rychlejsie.
4. Pouzitie ADO umoznuje spristupnit tieto objekty aj mimo komponentov,
napr. pre vykonanie nejakych specialnych operacii, nepodporovanych
priamo komponentami alebo spolupracu s inym softwarom, .... S ADO
je to velmi jednoduche. S OLE DB to je skor teoreticka moznost nieco
take robit..
5. Neviem ake obmedzenia ADO voci OLE DB mate na mysli (o ziadnych
neviem). Treba si uvedomit, ze ADO je produktom Microsoftu rovnako ako
OLE DB a teda je predpoklad, ze bude dostatocne optimalne, efektivne
a bude maximalne vyuzivat vsetky moznosti OLE DB. V kazdom pripade
si myslim, ze Microsoft dokaze vytvorit lepsie rozhranie pre OLE DB
nez ktokolvek iny, pretoze to najlepsie pozna, ma k tomu zdrojovy kod
a dokonca to moze vhodne upravit. Vzhladom na to, ze ADO bude nesporne
zakladnym rozhranim pre pristup k dat, je mozne, ze don zabuduju mechanizmy,
ktore v urcitych pripadoch mozu poskytnut vyssi vykon (povedzme cache)
pripadne viac funkcii nez priamy pristup cez OLE DB. Nepoznam detailne
OLE DB, takze sa neviem vyjadrit konkretne, ci taketo mechanizmy ADO
momentalne obsahuje alebo nie, ale mam podozrenie, ze ano.
6. ADO je urcite daleko viac testovane, co sa tyka funkcnosti, vykonnosti,
multithreadingu, ... nez akakolvek ina aplikacia pre OLE DB. Podla mna je
zbytocna praca riesit tieto uz vyriesene veci znova, hlavne ked na to nie je
ziaden rozumny dovod. Zrychlenie nepouzitim ADO rozhrania a variantov
u databazovych aplikacii je podla mna uplne zanedbatelne rovnako ako
pouzitie assemblera, pretoze problem je celkom inde. V tomto pripade
urcite plati, ze menej je niekedy viac.
Erik Salaj
Off: Delphi3 & ATI Rage 128
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 26.6.1999 16:26:17
Ahoj,
pouzivate nekdo tuhle kartu? Nejak mi zlobi ikony, dela se pres ne svisla cara. Zajimave je, ze se to deje na Speedbaru v Delphi a v Image Editoru. Paleta komponent je pritom v poradku. Tohle plati pro barevnou hloubku 16-bit. Poku to prepnu na 32-bit (24-bit neni), tak v Image Editoru to rozhodi po chvili ikony uplne, v samotnych Delphi to naopak vypada v poradku. Ovladace mam posledni verzi 4.11.6114.
Deje se to jenom me, nebo mate nekdo podobne zkusenosti? Asi se s tim nic delat neda, ale doufam, ze to vyresi dalsi verze ovladacu.
Bye,
----------
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
ListView a rychlost
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 26.6.1999 16:55:36
Ahoj,
zkousel jsem si s tim trochu hrat. Nacital jsem 4000 polozek. Doba zhruba 3500ms, s pouzitim BeginUpdate a EndUpdate potom asi 2500ms. Tady uz je rozdil znatelny, ale porad je to pomale. Kdyz uz totiz pouziju ListView, predpokladam, ze tam bude vice sloupcu a i nejaka ta ikonka. A tim se to samozrejme jeste zpomali. Na jeden sloupec muzu pouzit ListBox.
Bylo by mi to celkem jedno, ale stve me, kdyz vydim jak se to v jinych aplikacich nacita mnohem rychleji. No nic, zjistil jsem, ze nejvic zdrzuje hledani ikon a Application.ProcessMessages. Takze si ikonky budu pridelovat sam a ProcessMessage vyhodim. Dost to urychli, ale stejne to furt neni ono.
Bye,
----------
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
----- Original Message -----
From: Dan Komosny <dan(zv)list.skm.vutbr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, June 26, 1999 11:03 AM
Subject: Re: ListView a rychlost
> Ahoj
>
> Bohuzel sem si neprectl posledni zpravy z delphi konference, a tak se na
> neco podobneho poslal dodaz.
> Ty fu-ce me nijak casove nepohly, jedine ceho se tim asi docili je to , ze
> se do ListView zobrazi je uz koncove hodnoty.
>
> posilam ktratky testovaci program, v editce rozdil je pocet milisekund
> ktere se na to zobrazeni potrebuji, zkuste si aktivaci tech funkci zmerit
> rozdil z predchozi hodnotou.
> Lita to tak 80ms+- 5 a to me vubec nepomuze .
D 3C/S + MS SQL 7 a varchar(8000)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.1999 19:18:17
Erik Salaj wrote:
>
> > :-)) Chapu, ze se to primo dotyka tvych obchodnich zajmu. Ovsem
> > mam vaznou obavu, ze Delphi 5 ti udela v tomto bode caru pres
> > rozpocet.
>
> :-)) Alebo mozno Delphi 6, alebo 7, ... Mozte byt kludny, podla mna
> mate malo informacii na taketo konstatovania, takze akekolvek
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Ahoj,
Prepisuji zde cast prispevku z Borland non-technical newsu. Z odpovedi
jsem vybral jen to podstatne, celou diskuzi lze pak najit treba pomoci
http://www.deja.com
From: "Petr Vones" <petr_v(zv)nospam.post(tec)cz>
Subject: Another Delphi 5 wishes
Newsgroups: borland.public.delphi.non-technical
.
.
7. TDataSet descendant for OLE DB / ADO, but it is only a dream :-)
-----------------------------------------------------------------------
From: "Anders Ohlsson (Borland)" <aohlsson(zv)borland.com>
Subject: Re: Another Delphi 5 wishes
Date: 30 May 1999 00:00:00 GMT
Newsgroups: borland.public.delphi.non-technical
.
.
>7. TDataSet descendant for OLE DB / ADO, but it is only a dream :-)
This will be in Delphi 5.
-----------------------------------------------------------------------
From: "John Kaster" <jkaster(zv)no.spam.borland.com>
Subject: Re: Delphi 5 Information
Date: 16 Jun 1999 00:00:00 GMT
Newsgroups: borland.public.delphi.non-technical
Taz,
I believe this is the current hierarchy. Of course, it is subject tochange:
TCustomConnection
TDatabase
TADOConnection
TIBDatabase
TCustomRemoteServer
TDispatchConnection
TCOMConnection
TDCOMConnection
TStreamedConnection
TWebConnection (HTTP/HTTPS/SSL)
TSocketConnection
TDataSet
TBDEDataSet
TDBDataSet
TTable
TQuery
TClientDataSet
TCustomADODataSet
TADODataSet
TADOTable
TADOQuery
TIBCustomDataSet
TIBDataSet
TIBQuery
TIBTable
> Co sa tyka ADO versus OLE DB tak z mojho pohladu:
>
> 1. ADO je daleko daleko jednoduchsie ako OLE DB, preto aj vysledny
> produkt je jednoduchsi a teda daleko spolahlivejsi, flexibilnejsi, ....
ADO je jakymsi obalem nad OLE DB, tedy to lze trochu prirovnat k pozici
VCL jako obalu nad Win32 API. Je snad VCL spolehlivejsi a flexibilnejsi
nez API ?
> 5. Neviem ake obmedzenia ADO voci OLE DB mate na mysli (o ziadnych
> neviem). Treba si uvedomit, ze ADO je produktom Microsoftu rovnako ako
> OLE DB a teda je predpoklad, ze bude dostatocne optimalne, efektivne
> a bude maximalne vyuzivat vsetky moznosti OLE DB. V kazdom pripade
Dobre, ale ADO jen vyuziva OLE DB, takze primy pristup pres OLE DB musi
byt vzdy minimalne srovnatelny, ne-li lepsi.
> 6. ADO je urcite daleko viac testovane, co sa tyka funkcnosti, vykonnosti,
> multithreadingu, ... nez akakolvek ina aplikacia pre OLE DB. Podla mna je
Pokud je testovane ADO, je s nim zaroven testovane i OLE DB :-) Naopak tim,
ze obejdes jednu vrstvu, snizujes potencialni pravdepodobnost vlivu dalsich
chyb.
Samozrejme ze ADO je pro programatora podstatne jednodussi nez pristup pres
OLE DB, kvuli tomu bylo take vytvoreno.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Srandicky v 'Help' / 'About'
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 27.6.1999 11:35:52
Hello All!
Asi to vacsina pozna, ale niektori novi to mozno este nevedia:
Delphi 1
- ALT + AND
Delphi x
- ALT + TEAM
- ALT + DEVELOPERS
Delphi 3,4 C/S
- ALT + QUALITY
- ALT + VERSION
- ALT + CHUCK
BTW je tam prekvapivo vela zenskych.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
R E P O R T B U I L D E R
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 27.6.1999 12:30:51
Zdravim....
nevite nekdo...kdo u nas v CR objednat ci koupit ReportBuilder (v USA stoji US $249.00 ) od Digital Metaphors.
Popripade kdo zvas s timto nastojem (s komponenty) ma skusenosti, zejmena v oblasti DLL....
Predem diky...
(*********************
Karel Pechanec
kapecha(zv)mias(tec)cz
MIA Software s.r.o
www.mias(tec)cz
*********************)wavy
[*] Martin Konarik <iss-tr(zv)clnet(tec)cz> - 27.6.1999 17:54:31
Ted kdyz jsem zvladnul 15 pohybujicich se image po okne, potreboval bych se naucit neco se zvukama (wavama). Dosud jsem to delal asi dost slozitou cestou pres mediaplayer:
mediaplayer1.filename := 'chime.wav';
mediaplayer1.open;
mediaplayer1.play;
Problem nastal, kdyz jsem chtel prehrat vice zvuku najednou, nebo prehrat zvuk az po prehrani predchoziho zvuku.
Ja teda budu konkretni, snad mi nekdo z vas poradi:
do kratkych wavu namluvim jednotliva pismena a cislice. Potom vezmu nejaky retezec - treba "AK78C", ktery roztrham na jednotlive znaky a chtel bych, aby mi to pocitac pekne odrikal: "a ka sedm osm ce", pripadne "ei kei sevn eit si". Asi bych ty zvuky taky potreboval nacpat do nejakeho pole a pak se na ne odvolavat pomoci indexu.
Dekuji predem
Martin Tower Konarik
vedouci krouzku mladych programatoru a delfista zacatecnik :-)R E P O R T B U I L D E R
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 27.6.1999 18:37:00
��go,
no, kone�n� jeden z m�la co se zab�v� ReportBuilderem,.............
...... zat�m jsem nesly�el o tom �e by se v �R distribuoval RB, taky
by m� to zaj�malo,
vypad� to �e se to fakt bude muset koupit v USA, ' a nev� hlavu '
,
Report Builder Pro stoj� $495.00 - voln� �i�iteln� verze pro koncov�
z�kazn�ky. Slu�n� ��stka.
V oblasti DLL jsem s t�m nepracoval, ale jinak u� to m�m t�m��
zm�knut�.
Mus�m upozornit �e na supportu moc ochotn� nejsou, tak�e nijak
zvlṻ tam rady nehledej,
z�ejm� se snad otev�ou p��tel�t�j�� n�lad� a� se to koup�, doufejme.
Dv� v�ci mi je�t� nejsou jasn� ............
1. Nev� n�kdo jak se d� programov� vytvo�it Subreport Reportu
?????????????
2. A pak bych je�t� byl zv�dav jestli jde programov� pustit Wizard
tvo��c�ho p�edlohu
dle n�jakejch p�ednastavenejch voleb, zkr�tka aby se
u�ivatele na nic neptal.
d�ky p�edem za odpov�di,
�us Sl�va
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/> ----------
> Odes�latel: Karel Pechanec[SMTP:kapecha(zv)mias(tec)cz]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 27. �ervna 1999 12:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: R E P O R T B U I L D E R
>
> Zdravim....
> nevite nekdo...kdo u nas v CR objednat ci koupit ReportBuilder (v USA
> stoji US $249.00 ) od Digital Metaphors.
> Popripade kdo zvas s timto nastojem (s komponenty) ma skusenosti, zejmena
> v oblasti DLL....
> Predem diky...
> �
> (*********************
> Karel Pechanec���
> kapecha(zv)mias(tec)cz
> MIA Software s.r.o
> www.mias(tec)cz��������
> *********************)
> D 3C/S + MS SQL 7 a varchar(8000)
[*] Erik Salaj <winsoft(zv)napri.sk> - 27.6.1999 18:57:40
> Prepisuji zde cast prispevku z Borland non-technical newsu. Z odpovedi
> jsem vybral jen to podstatne, celou diskuzi lze pak najit treba pomoci
> http://www.deja.com
> >7. TDataSet descendant for OLE DB / ADO, but it is only a dream :-)
>
> This will be in Delphi 5.
Ano, ale zabudli na taku malickost, ze iba v C/S verzii. K verzii
Professional sa to vraj bude dat dokupit. Aj tak su to zatial iba
dohady a podla mna nema vyznam sa o tom teraz bavit, kym nie
su k dispozicii presne informacie co, kde a za kolko.
> > 1. ADO je daleko daleko jednoduchsie ako OLE DB, preto aj vysledny
> > produkt je jednoduchsi a teda daleko spolahlivejsi, flexibilnejsi, ....
>
> ADO je jakymsi obalem nad OLE DB, tedy to lze trochu prirovnat k pozici
> VCL jako obalu nad Win32 API. Je snad VCL spolehlivejsi a flexibilnejsi
> nez API ?
Tu neide o samotne VCL alebo Win32 API ale o APLIKACIE pisane
s prislusnym rozhranim. Tvrdim, ze az na vynimky je prevazna vecsina
softwaru pisana pomocou VCL (alebo MFC, OWL, ...) daleko
jednoduchsia, spolahlivejsia, flexibilnejsia, ... v porovnani s priamym
programovanim pomocou Win32 API. To je predsa aj zakladny ucel
tychto kniznic. Ak by tomu tak nebolo, tak by to nikto nepouzival.
> > 5. Neviem ake obmedzenia ADO voci OLE DB mate na mysli (o ziadnych
> > neviem). Treba si uvedomit, ze ADO je produktom Microsoftu rovnako ako
> > OLE DB a teda je predpoklad, ze bude dostatocne optimalne, efektivne
> > a bude maximalne vyuzivat vsetky moznosti OLE DB. V kazdom pripade
>
> Dobre, ale ADO jen vyuziva OLE DB, takze primy pristup pres OLE DB musi
> byt vzdy minimalne srovnatelny, ne-li lepsi.
Preco potom Microsoft programoval ADO ked ADO potom moze byt nanajvys
zrovnatelne alebo horsie ako OLE DB? Podla mna mal na to ten Microsoft
velmi dobry dovod (urcite nie robit horsi pristup k udajom).
> > 6. ADO je urcite daleko viac testovane, co sa tyka funkcnosti,
vykonnosti,
> > multithreadingu, ... nez akakolvek ina aplikacia pre OLE DB. Podla mna
je
>
> Pokud je testovane ADO, je s nim zaroven testovane i OLE DB :-) Naopaktim,
> ze obejdes jednu vrstvu, snizujes potencialni pravdepodobnost vlivu
dalsich
> chyb.
Cize ak pouzivam komplikovanejsie rozhranie, tak znizujem pravdepodobnost
chyb? Ak nepouzivam ziadne kniznice (dalsie vrstvy) tak znizujem
pravdepodobnost chyb? Ak nepouzijem vyssi programovaci jazyk (dalsiu vrstvu)
ale assembler, tak znizujem pravdepodobnost chyb? Odstranim sice
mozne chyby tychto prostriedkov / kniznic (ktore su predsa len
dostatocne odladene, overene, ...), ale tym, ze si to potom musim
vsetko naprogramovat sam, zvysujem pravdepodobnost chyb
v mojom kode, ktory si ale uz musim ja sam napisat, odladit, ....
Obavam sa, ze komplikovanejsi software by nielenze nebolo vyhodne
ale ani mozne takto robit a ze dnes to nikto takto nerobi (alebo musi
mat na to velmi dobry dovod).
Erik Salaj
wavy
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 27.6.1999 19:34:44
Zdravim..
...pro prehrati JINEHO zvuku by jsi mel zavolat nejdriv funkci TMediaPlayer.Close.
Potom to staci hodit jenom do smycky...
-----P�vodn� zpr�va-----
Od: Martin Konarik <iss-tr(zv)clnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 27. �ervna 1999 19:28
P�edm�t: wavy
Ted kdyz jsem zvladnul 15 pohybujicich se image po okne, potreboval bych se naucit neco se zvukama (wavama). Dosud jsem to delal asi dost slozitou cestou pres mediaplayer:
mediaplayer1.filename := 'chime.wav';
mediaplayer1.open;
mediaplayer1.play;
Problem nastal, kdyz jsem chtel prehrat vice zvuku najednou, nebo prehrat zvuk az po prehrani predchoziho zvuku.
Ja teda budu konkretni, snad mi nekdo z vas poradi:
do kratkych wavu namluvim jednotliva pismena a cislice. Potom vezmu nejaky retezec - treba "AK78C", ktery roztrham na jednotlive znaky a chtel bych, aby mi to pocitac pekne odrikal: "a ka sedm osm ce", pripadne "ei kei sevn eit si". Asi bych ty zvuky taky potreboval nacpat do nejakeho pole a pak se na ne odvolavat pomoci indexu.
Dekuji predem
Martin Tower Konarik
vedouci krouzku mladych programatoru a delfista zacatecnik :-)ListView a rychlost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:15:56
Tomas Skopik wrote:
>
> Ahoj,
>
> zkousel jsem si s tim trochu hrat. Nacital jsem 4000 polozek. Doba zhruba 3500ms, s pouzitim BeginUpdate a EndUpdate potom asi 2500ms. Tady uz je rozdil znatelny, ale porad je to pomale. Kdyz uz totiz pouziju ListView, predpokladam, ze tam bude vice sloupcu a i nejaka ta ikonka. A tim se to samozrejme jeste zpomali. Na jeden sloupec muzu pouzit ListBox.
> Bylo by mi to celkem jedno, ale stve me, kdyz vydim jak se to v jinych aplikacich nacita mnohem rychleji. No nic, zjistil jsem, ze nejvic zdrzuje hledani ikon a Application.ProcessMessages. Takze si ikonky budu pridelovat sam a ProcessMessage vyhodim. Dost to urychli, ale stejne to furt neni ono.
Ahoj,
Application.ProcessMessages by jsi mel vyhodit zcela urcite, pokud chces
vyvolat prekresleni nejakeho prvku, pouzij jeto metodu Repaint. K te
rychlosti, pokud ti jde o seznam souboru vcetne zobrazeni ikon, tak ani
Pruzkumnik v tomhle neni nijak rychly. On provadi prohledavani prubezne
pri zobrazovani. Existuje ale jiny zpusob jak to vyresit. Neuvadis jakou
mas verzi, implicitne teda predpokladam D4. Misto zadavani polozek do
ListView jej pouzijes ve virtualnim rezimu (TListView.OwnerData = True)
kde jen nastavis celkovy pocet polozek a vlastni data pak vytvaris az pri
potrebe je zobrazit. Priklad mas v Delphi4\Demos\Virtual Listview.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
InstallShield a BDE config
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:16:18
Petr Vale� wrote:
>
> Ahoj,
>
> zkousim InstalShield z Delphi 4.2 a potrebuji aby se mi na cilovem pocitaci
> take nahral konfiguracni soubor BDE idapi32.CFG, kde mam pouze jednu zmenu
> MAXFILEHANDLE=256
>
> Ovsem nevim jak to mam udelat.
Ahoj,
V adresari "\InstallShield Express Custom Edition For Delphi4\Redist" mas
soubor IDAPI.CNF coz je vlastne konfiguracni soubor .CFG ktery pak IS
pouzije. Otazka je, co to udela pri instalaci ruznych aplikaci ktere
pouzivaji BDE.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Spravy WINDOWS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:16:10
Ing. J�n Kuch�r wrote:
>
> Caute
> Nebudem vsetko vysvetlovat do detailov, ale vo svojom programe potrebujem
> v pripade, ze
> dojde ku chybe ) odchytit spravu ( message ) v okne nez ju zobrazi WINDOWS a
> zakazat zobrazenie spravy, ako na to ?
Ahoj,
Mas tim namysli obsluhu vyjimky ktera se jinak zobrazi v dialogovem okne ?
Pokud ano, tak se podivej na event TApplication.OnException
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
beginupdate,endupdate
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:17:29
> Dan Komosny wrote:
>
> Ahoj lidi
>
> Resim takovy problem , prijimam data z COMu , zpracovavam je a zobrazuju. Muj problem je v
> tom, ze pri zobrazovani do listwiev to memu PC prilis dlouho trva. ( zjistival sem to
> pomoci f-ce gettickcount ).
> Nekde sem se docetl ze by to mely vyresit f-ce beginupdeta a endupdate, ale kdyz je
> pouziju nic se neurychli.
> Poradte mi prosim nejaky zpusob, jak data zobrazova rychleji , nebo popripade nejaky jiny
> rychlejsi zobrazovaci zobrazovaci prvek.
Ahoj,
Pokud nepotrebujes primo ListView, ale stacil by ti obycejny "terminalovy"
vystup, tak se podivej na http://delphree.clexpert.com/ a tam je AsyncFree.
V nem je komponenta TAfTerminal ci TAfDataTerminal ktere jsem prave delal
s ohledem na rychlost zobrazovani. Umoznuje ti i "owner-draw" v leve casti
komponenty, takze si muzes i priradit nejake ikony k jednotlivym radkum.
Pak jeste poznamka k tomu mereni casu pomoci GetTickCount. Neni zrovna
nejpresnejsi, daleko lepsich vysledku dosahnes s funkcemi
QueryPerformanceCounter a QueryPerformanceFrequency.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
BatchMove a diakritika (surne!!!)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:49:50
Peter Hrenovcik wrote:
>
> Cavte.
>
> Poraditem mi prosim niekto ako previest tabulku do textoveho suboru
> komponentou BatchMove aj s diakritikou.
Ahoj,
Problem je v tom, ze BatchMove pri vytvareni .SCH souboru neumi nastavit
language driver. Vypada to, ze by to slo obejit takhle:
procedure ExportTableToAscii(BatchMove: TBatchMove);
const
DBType = szASCII;
LangDriver = 'anczech';
var
pSrcFlds, pDestFlds: pFLDDesc;
TblDesc: CRTblDesc;
pFDesc: FLDDesc;
begin
with BatchMove do
begin
Source.Open;
Mode := batAppend;
pSrcFlds := AllocMem(Source.FieldCount * Sizeof(FLDDesc));
pDestFlds := AllocMem(Source.FieldCount * Sizeof(FLDDesc));
try
Check(DbiGetFieldDescs(Source.Handle, pSrcFlds));
Check(DbiTranslateRecordStructure(nil, Source.FieldCount, pSrcFlds,
PChar(DBType), LangDriver, pDestFlds, True));
ZeroMemory((zv)TblDesc, Sizeof(TblDesc));
StrPCopy(TblDesc.szTblName, Destination.TableName);
StrPCopy(TblDesc.szTblType, DBType);
TblDesc.iFldCount := Source.FieldCount;
TblDesc.pFldDesc := pDestFlds;
pFDesc.iOffset := 0;
pFDesc.iLen := Length(LangDriver) + 1;
pFDesc.szName := 'LANGDRIVER';
TblDesc.iOptParams := 1;
TblDesc.pFldOptParams := (zv)pFDesc;
TblDesc.pOptData := PChar(LangDriver);
Check(DbiCreateTable(TTable(Source).DBHandle, True, TblDesc));
Execute;
finally
FreeMem(pSrcFlds);
FreeMem(pDestFlds);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExportTableToAscii(BatchMove1);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
* Object Inspector *
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:50:50
Petr Fejfar wrote:
>
> Ja uz si moc nepamatuju, proc jsem ten listbox nepouzil, ale mam dojem, ze z
> duvodu, ze Delphi vytvari jen slupku na Gatesovym standardnim prvkem, takze
> veskera logika napr. posuvu apod. se odehrava ve woknech.
Ahoj,
Vzdyt to se ale hodi, nemusis se starat o posouvani pohledu, jen si
obsluhujes vykreslovani polozek.
> BTW, muzes mi, pls, popsat, co je to virtualni rezim u listboxu?
Je to rezim ve kterem do listboxu nevkladas jednotlive polozky, ale jen
nastavis celkovy pocet polozek a jejich obsah si pak vykreslujes sam podle
indexu dane polozky. Da se tim zrychlit prace s listboxem pri vetsim poctu
polozek. Nastavuje se pomoci LBS_NODATA ve stylu listboxu (viz API funkce
CreateWindow), nechapu pro uz to neni primo ve VCL.
Podobny rezim ma i ListView.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Blikani pri prepisu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:50:07
"SPELZA s.r.o." wrote:
>
> �au Delph�ci,
> m�m p�r takov�ch dot�zk�.
>
> 1. M�m TForm, na jeho cel� plo�e je TImage (alClient) a jeden TLabel. TLabel
> je Transparent a zobrazuje �as. Je proto do jeho Caption periodicky tento
> �as zapisov�n. Probl�m je v tom, �e to nep��jemn� problik�v�. Co s t�m?
Ahoj,
Pokud chces neco zobrazovat bez rusivych efektu, musis to cele vykreslit do
bitmapy v pameti a teprve pak v prislusne udalosti OnPaint tuto bitmapu
zkopirovat. Mohlo by to vypadat treba takhle (vlozi datum a cas do obrazku):
procedure TForm1.FormCreate(Sender: TObject);
begin
BitmapImage := TBitmap.Create;
BitmapImage.LoadFromFile('DelphiDuck.bmp');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
BitmapImage.Free;
end;
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
DC, MemDC: HDC;
MemBitmap, OldBitmap: HBITMAP;
OldFont: HFONT;
S: String;
begin
S := FormatDatetime('ddddd tt', Now);
with TPaintBox(Sender) do
begin
Canvas.Font.Size := 24;
Canvas.Font.Color := clRed;
DC := Canvas.Handle;
MemBitmap := CreateCompatibleBitmap(DC, ClientWidth, ClientHeight);
MemDC := CreateCompatibleDC(DC);
OldBitmap := SelectObject(MemDC, MemBitmap);
OldFont := SelectObject(MemDC, Canvas.Font.Handle);
try
SetStretchBltMode(MemDC, STRETCH_DELETESCANS);
StretchBlt(MemDC, 0, 0, ClientWidth, ClientHeight,
BitmapImage.Canvas.Handle, 0, 0, BitmapImage.Width, BitmapImage.Height,
SRCCOPY);
SetBkMode(MemDC, TRANSPARENT);
SetTextColor(MemDC, ColorToRGB(Canvas.Font.Color));
TextOut(MemDC, 100, 100, PChar(S), Length(S));
BitBlt(DC, 0, 0, ClientWidth, ClientHeight, MemDC, 0, 0, SRCCOPY);
finally
SelectObject(MemDC, OldBitmap);
SelectObject(MemDC, OldFont);
Win32Check(DeleteDC(MemDC));
Win32Check(DeleteObject(MemBitmap));
end;
end;
end;
V Delphi 4 by jsi to mohl resit nastavenim vlastnosti DoubleBuffered
na True pri zachovani puvodniho kodu s TImage.
> 2. Pot�ebuji odchytit Shift, Control a Alt. D�l�m to v KeyDown co� se mi
> da�� u prvn�ch dvou p��pad�. S Alt m�m probl�my, nebo� generuje Control,
> nebo Control + Alt nebo jenom Alt. Nav�c je to r�zn� u lev�ho a prav�ho. Jak
> m�m regul�rn� odchytit jenom Alt?
Pokud to odchytavas v TForm.KeyDown, tak nastav KeyPreview na True. Nemel
jsem s tim problemy:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
S: String;
begin
S := '';
if ssAlt in Shift then S := S + 'A';
if ssShift in Shift then S := S + 'S';
if ssCtrl in Shift then S := S + 'C';
OutputDebugString(PChar(S));
end;
> 3. V��e uveden� form je bez r�me�ku (None) a jeho pohyb po obrazovce d�l�m
> prost�ednictv�m my�i. Probl�m je v tom, �e p�i tomto pohybu zanech�v� za
> sebou "ocas"? Co s t�m?
Podle toho jak to popisujes to vypada, ze mas Windows nastavene tak, ze pri
presouvani normalniho okna mysi se ti hybe jen okraj okna a teprve kdyz pustis
tlacitko se ti okno prekresli. Existuje nastaveni kterym muzes zaridit, ze pri
posouvani oken se ti budou presouvat cela, jmenuje se DragFullWindows a je k
tomu zapotrebi nejaka knihovna, tusim ze uz je soucasti IE4. Ten "ocas" bude
asi zpusoben tim, ze jsi vlastne toto chovani naprogramoval pro to tve okno
a mas patrne nejakou pomalou videokartu (ci cely pocitac), takze to nestiha
prekreslovat pri posouvani.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
System variables
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.6.1999 22:50:23
tichyr wrote:
>
> Nazdar ! Vi nekdo jak se dostanu z Delphi na systemove promenne. Mam na mysli promenne typu PATH, TEMP.....
> Potrebuju je precist, ale nevim jak. Trapne ze ?
Ahoj,
Muzes to udelat treba takhle:
function GetEvnVar(const Name: String): String;
var
L: DWORD;
begin
L := GetEnvironmentVariable(PChar(Name), nil, 0);
SetString(Result, nil, L);
if GetEnvironmentVariable(PChar(Name), PChar(Result), L) <> L - 1 then
RaiseLastWin32Error;
end;
procedure GetEnvVarList(List: TStrings);
var
P, StartVar: PChar;
begin
P := GetEnvironmentStrings;
try
StartVar := P;
while StartVar^ <> #0 do
begin
List.Add(StartVar);
StartVar := StrEnd(StartVar) + 1;
end;
finally
FreeEnvironmentStrings(P);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
GetEnvVarList(ListBox1.Items); // Seznam vsech syst. promennych
ShowMessage(GetEvnVar('COMSPEC')); // Hodnota nejake zadane
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Delphi3 & ATI Rage 128
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 28.6.1999 06:13:54
----- P�vodn� zpr�va -----
Od: Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz>> Ahoj,
>
> pouzivate nekdo tuhle kartu? Nejak mi zlobi ikony, dela se pres ne svisla
cara. Zajimave je, ze se to deje na Speedbaru v Delphi a v Image Editoru.
Paleta komponent je pritom v poradku. Tohle plati pro barevnou hloubku
16-bit. Poku to prepnu na 32-bit (24-bit neni), tak v Image Editoru to
rozhodi po chvili ikony uplne, v samotnych Delphi to naopak vypada v
poradku. Ovladace mam posledni verzi 4.11.6114.
>
> Deje se to jenom me, nebo mate nekdo podobne zkusenosti? Asi se s tim nic
delat neda, ale doufam, ze to vyresi dalsi verze ovladacu.
>
Mam stejnou kartu i stejne ovladace a nenam problem. U teto karty hodne
zalezi take na chpsetu zakladni desky. V dobe zacatku prodeje karty to meli
poradne vyresene pouze pro Intel chipset a s tim co jsem tenkrat mel ja
(tusim VIA s AMD procesorem) pocitac pravidelne tuhnul. Po konzultaci s
vyrobci desky i karty s tim neco provedli, poslali programek, ktery "nejak"
nastavil PCI sbernici a v dalsi verzi ovladacu uz to bylo v poradku. Pokud
se vyrobce o problemu nedozvi, nic nespravi.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Duck Report
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 28.6.1999 06:41:05
Videl jsem na DSP Duck Report. Vypada to na docela rozsahly projekt -
mate s nim nekdo nejakou zkusenost - predevsim vzhledem ke QuickReportu
?
Mira
Delphi drobnosti
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 28.6.1999 07:06:19
Ahoj,
dekuji vsem za ohlasy na moji stranecku. Vcera jsem ji aktualizoval, opravil
i par chybicek a doplnil o nektere vecicky, o ktere jsem byl v nedavne dobe
zadan. Verim ze i Vam se siknou a kdyz uz ne primo k pouziti, tak alespon
pro inspiraci. Pokud tam chybi nektere pozadovane veci z doby nedavne
(omlouvam se Palovi), tak momentalne nevim, kde je mam. Avsak, jakmile je
najdu, tak je tam dam. Stranecku najdete stale na stejnem miste
http://www.micrel-dev.com/delphi/ . Pripominky opet rad privitam.
Jaro B.D 3C/S + MS SQL 7 a varchar(8000)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.6.1999 07:39:32
Erik Salaj wrote:
> > :-)) Chapu, ze se to primo dotyka tvych obchodnich zajmu. Ovsem
> > mam vaznou obavu, ze Delphi 5 ti udela v tomto bode caru pres
> > rozpocet.
>
> :-)) Alebo mozno Delphi 6, alebo 7, ... Mozte byt kludny, podla mna
> mate malo informacii na taketo konstatovania, takze akekolvek
> obavy su uplne zbytocne ;-). Konkurencia je v kazdom pripade
:-) Obavam se, ze v tomto smeru jsou me informace dostatecne.
Dokonce se jiz pripravuji, ze budu tyto komponenty na podzim
skolit. :-)
> dobra vec a vobec mi nevadi ak niekto pride s konkurencnym
> produktom (niekolko ich aj existuje). Tymto krokom by Borland len
> potvrdil moje presvedcenie, ze ADO je ta spravna volba a nie BDE
> pripadne MIDAS. Len je skoda, ze takato firma na to neprisla skor.
> Lebo nestaci iba robit veci spravne ale je aj treba robit spravne veci.
:-) Urcite povazuji ADO za lepsi cestu nez BDE (o MIDAS ani
nemluve). Kdyz uz se do toho pustili, meli jit vsak primo na OLE
DB, protoze ADO bude v rade pripadu pomalejsi nez stavajici BDE.
BTW - nebudeme si tykat?
> Co sa tyka ADO versus OLE DB tak z mojho pohladu:
>
> 1. ADO je daleko daleko jednoduchsie ako OLE DB, preto aj vysledny
> produkt je jednoduchsi a teda daleko spolahlivejsi, flexibilnejsi, ....
To urcite.
> 2. Co sa tyka vykonnosti, tak u databazovych aplikacii je dana
> predovsetkym databazou a dobrym OLE DB providerom. Samotne
> OLE DB alebo ADO to ovplyvni velmi malo (ak vobec). Pristup
> k databaze byva totiz milionkrat pomalsi ako vykonanie zopar instrukcii.
Ne. ADO je nadstavbou nad OLE DB, a zpomaleni vychazi prave z
hojneho pouzivani typu variant. OLE DB pracuje s "normalnimi"
typy, az na par vyjimek, ktere se vsak stejne musi zadavat pres
pretypovani variantu na "normalni" typ (tedy usetri se zde cas na
rozpoznani typu variantu).
> 3. Tam kde je OLE DB bude aj ADO, pretoze ADO je zakladne
> aplikacne rozhranie pre OLE DB a prevazna vecsina aplikacii, ci uz
> web/VB/VC++/Java ... bude pouzivat ADO. Dovolim si tvrdit, ze
> OLE DB sa bude priamo pouzivat iba vo velmi vynimocnych pripadoch
> (ak vobec). Pre jazyk C++ a Javu existuje specialne ADO rozhranie
> bez variantov. Hlavny dovod je jednoduchost a prehladnost, pretoze
> varianty sa v C++ pouzivaju dost komplikovane (co sa tyka Javy
> to neviem posudit) a vedlajsi efekt, ze je to aj o nieco rychlejsie.
Jak jsem psal drive - ADO vidim jako rozhrani pro prime (ale
zaroven take zjednodusene a lehce pomalejsi) pouziti. Urcite
nevidim jako vhodne cpat se s ADO (ale vlastne ani s OLE DB) do
konstrukci typu TDataSet (urcite plati pro D3 a D4). Nad ADO bych
videl jako optimalni pouze jednoduche prekryti, aby se z toho dala
udelat komponenta. S OLE DB je to ponekud slozitejsi, tam je
treba udelat nebo prevzit (tedy prelozit z C) komplexnejsi struktury.
> 4. Pouzitie ADO umoznuje spristupnit tieto objekty aj mimo komponentov,
> napr. pre vykonanie nejakych specialnych operacii, nepodporovanych priamo
> komponentami alebo spolupracu s inym softwarom, .... S ADO je to velmi
> jednoduche. S OLE DB to je skor teoreticka moznost nieco take robit..
No vsak o tom celou dobu pisu. :-) S drobnou pripominkou, ze s
OLE DB je to prakticka moznost, ovsem "ponekud" :-) narocnejsi.
Na druhe strane ma OLE DB podstatne vice moznosti nez ADO.
> 5. Neviem ake obmedzenia ADO voci OLE DB mate na mysli (o ziadnych
> neviem). Treba si uvedomit, ze ADO je produktom Microsoftu rovnako ako OLE
> DB a teda je predpoklad, ze bude dostatocne optimalne, efektivne a bude
> maximalne vyuzivat vsetky moznosti OLE DB.
Coz je zbozne prani, realita uz takova byt nemusi (jak je u M$
zvykem). V OLE DB si mohu napriklad nadefinovat, jaka pole (tedy
mohu rovnou odfiltrovat ta co nechci, tedy se ani neprenaseji) a v
jakem typu je chci cist. Mohu si nadefinovat take, v jake delce a v
jakem poradi je chci cist. U ADO jsem si zadne takovehle
vlastnosti nevsiml - pouze toho, ze pole se mi sypou vsechna, a v
typu variant.
Priklad: mam tabulku, dejme tomu ciselnicek, kde mam 10
ruznych poli. Z nejakeho duvodu se mi vice hodi to otevirat primo
pres tablename, nez pres query. Ale chci cist pouze dve polozky,
z toho jedna je deklarovana jako textova, ale muze tam byt vzdy
pouze cislo (takove pripady skutecne jsou). Takze v OLE DB
zadam, ze chci pouze tyto dve pole, a to cislo aby se mi vracelo
napriklad jako integer (a jako integer to budu take editovat a
ukladat). U ADO je to trosku zamotanejsi, protoze tam uz se typ
takto snadno neda ohlidat.
Take si mohu vycist vic vet najednou.
> V kazdom pripade si myslim, ze
> Microsoft dokaze vytvorit lepsie rozhranie pre OLE DB nez ktokolvek iny,
> pretoze to najlepsie pozna, ma k tomu zdrojovy kod a dokonca to moze
> vhodne upravit. Vzhladom na to, ze ADO bude nesporne zakladnym rozhranim
> pre pristup k dat, je mozne, ze don zabuduju mechanizmy, ktore v urcitych
> pripadoch mozu poskytnut vyssi vykon (povedzme cache) pripadne viac
> funkcii nez priamy pristup cez OLE DB. Nepoznam detailne OLE DB, takze sa
> neviem vyjadrit konkretne, ci taketo mechanizmy ADO momentalne obsahuje
> alebo nie, ale mam podozrenie, ze ano.
Technicka poznamka - rozhrani je prave OLE DB, ADO je
nadstavba nad OLE DB. To jen pro ujasneni pojmu. Z tohoto titulu
tedy nemuze byt ADO vykonnejsi ani poskytovat vic funkci (leda by
tam byly pouzity funkce mimo pusobeni OLE DB, o cemz uprimne
pochybuji).
> 6. ADO je urcite daleko viac testovane, co sa tyka funkcnosti, vykonnosti,
> multithreadingu, ... nez akakolvek ina aplikacia pre OLE DB. Podla mna je
> zbytocna praca riesit tieto uz vyriesene veci znova, hlavne ked na to nie
> je ziaden rozumny dovod. Zrychlenie nepouzitim ADO rozhrania a variantov u
> databazovych aplikacii je podla mna uplne zanedbatelne rovnako ako
> pouzitie assemblera, pretoze problem je celkom inde. V tomto pripade
> urcite plati, ze menej je niekedy viac.
Testovanim ADO se zaroven testuje OLE DB, z vyse popsanych
duvodu. :-) Souhlasim, ze pro radu uloh je lepsi pouzit primo ADO.
Ale pro dalsi radu uloh (a hlavne programovacich jazyku) je
vyhodnejsi jit hloubeji a pouzit OLE DB.
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
Off: Delphi3 & ATI Rage 128
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 28.6.1999 07:43:53
Tomas Skopik napsal(a) toto:
> pouzivate nekdo tuhle kartu? Nejak mi zlobi ikony, dela se pres ne
> Deje se to jenom me, nebo mate nekdo podobne zkusenosti? Asi se s tim
> nic delat neda, ale doufam, ze to vyresi dalsi verze ovladacu.
Ano, ATI jsou dost dobre karty (taky je mam skoro ve vsech pocitacich),
ale bohuzel ovladace dodavane s kartami maji skoro vzdycky nejaky problem,
a je potreba stahnout z internetu nejnovejsi verze ovladacu. Ty pak
vetsinou vsechny problemy vyresi...
Zatim jsem s nimi ale nemel problem v Delphi (spis obecne problemy
projevujici se vsude - od rozhazenych bitmap po kompletni zatuhavani GUI
(neslo ani hybat mysi, ale spustene programy jely dale))
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
QueryPerformanceCounter (was: beginupdate,endupdat
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 28.6.1999 07:56:56
----- P�vodn� zpr�va -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 27. �ervna 1999 22:17
P�edm�t: Re: beginupdate,endupdate
> Pak jeste poznamka k tomu mereni casu pomoci GetTickCount. Neni zrovna
> nejpresnejsi, daleko lepsich vysledku dosahnes s funkcemi
> QueryPerformanceCounter a QueryPerformanceFrequency.
>
Zase jsi me dostal, Petre - tyto funkce jsem videl poprve (pouzivam
prave GetTickCount). Hned jsem bezel do helpu ... ale
The QueryPerformanceCounter function retrieves the current value of the
high-resolution performance counter, if one exists.
A prave posledni cast - POKUD EXISTUJE - jak ho nastavim/zapnu/vytvorim,
ci co. Mas nejaky prikladek ? Ale jinak nespecha, je to pro me jen
takovy bonbonek do jednoho programku, ktery si pouzivam ve firme.
Diky Mira
PCX format
[*] Zden�k B�hm - 28.6.1999 08:44:12
Zdar,
o komponente a zdrojakach nevim, ale vysla pred casem skvela kniha -
Encyklopedie grafickych formatu, kde je dobre PCX format popsan. Vydalo ji
nakladatelstvi Computer Press a to je tak vsechno, na co si ted vzpomenu.
Zdarec Zdenek
----- Original Message -----
From: Miro Mrazik <miro_mr(zv)hotmail.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, June 26, 1999 6:37 PM
Subject: PCX format
Ahojte,
neviete niekto o komponente resp. zdrojakoch na ulozenie obrazka zobrazeneho
v komponente TImage do suboru vo formate PCX ???
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
RX Library
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 28.6.1999 09:00:37
Ahoj,
mam dojem, ze lekem na to je :
V unite DB nahrad riadok
ftBlobTypes = [Low(TBlobType)..High(TBlobType)]
riadkom
ftBlobTypes = [ftBlob..ftGraphic]
Zdroj : tato konference
Vaclav Sazima
Josef ��P wrote:
>
> Pri instalaci RX komponent, konkretne pri pokusu o zkompilovani RxDB.dpk mi
> delphi
> nahlasi Internal error URW376 v unite DBUtils.pas
> Mam D3 CS, Rx je verze 2.60
> Nevite nekdo cim to muze byt ?
> Dik za odpoved.D grafika, kde zacit ?
[*] Jan Ko�� <honza(zv)skoda-ujp(tec)cz> - 28.6.1999 09:50:36
Ahoj.
Na moji strance najdes popis zakladnich funkci OpenGL v Delphi3.
Mam tam i nejake priklady.
http://freeweb.bohemia.net/jankocisoft
Honza.
ButtonClick
[*] SICHTA Daniel <Sichta(zv)za.asset.sk> - 28.6.1999 10:03:37
Skusim este raz
Potrebujem odchytit WM spravu a reagovat na nu tak aby sa spustil event
OnClick ( Button).
D3 CS W98.
Vopred dakujem
Ing. Daniel �ichta
% 421-89-542-15
) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> Ceske trideni nad FoxDBF a ODBC
[*] SETAP v.o.s. Pardubice <setap(zv)pce(tec)czcom(tec)cz> - 28.6.1999 10:36:37
Ahoj,
Mam problem s ceskym tridenim. Potrebuji nejak nastavit CHARACTER SET pro tabuli
vytvorenou jako *.DBF pres ODBC 3.51 Microsoft FoxPro Driver 3.51.1029.00.
Potrebuji zarazovat a naslene tridit pre SQL SELECT. (hlavne hacky, carky a pak
mala a velka pismena k sobe)
predem dik za kazdou radu
Honza
jan.prokop(zv)post(tec)cz nebo setap(zv)pce(tec)czcom(tec)cz
typ PChar, co to je, lze nejak zmenit na string?
[*] Standa Kunc <obkstan(zv)obaka-karvina(tec)cz> - 28.6.1999 11:09:10
Zdravim. Potreboval bych editovat typ PChar v CopyFile(odkud:PChar, kam:Pchar, false);
Jaky je rozdil mezi stringem a PCharem, lze nejak konverzovat tyto typy jako treba IntToStr atd.?
Mohu spojovat retezce napsane v PCharu?
Please H E L P ME!prace s Excelem v Delphi
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 28.6.1999 11:13:48
> jestli to budete chtit programovat a ne jenom skladat komponenty, bude
> to troska prace pres OLE. Velmi pekny clanek je na adrese
>...
Anebo, jde-li jen o data, pomoci DDE.
Potreboval jsem minuly tyden cosi prevest do .DB
a Excel-skym exportem do .DBF se mi kazila cestina...
Pomoci DDE se to dari precist.
Tom
PCX format
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 28.6.1999 11:15:22
Dobry site s popisy formatu je http://www.wotsit.org
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
>Dovoluji si doplnit - minuly rok byla na jednom CD v Chipu aplikace
>"1000 formatu" nebo podobny nazev a tam jsou popsany formaty obrazku i
>nejruznejsich dalsich souboru. PCX tam bude urcite take.
> Zdar,
>
> o komponente a zdrojakach nevim, ale vysla pred casem skvela kniha -
> Encyklopedie grafickych formatu, kde je dobre PCX format popsan.
> Vydalo ji
> nakladatelstvi Computer Press a to je tak vsechno, na co si ted
> vzpomenu.
>
> Zdarec Zdenek
>
> Ahojte,
>
> neviete niekto o komponente resp. zdrojakoch na ulozenie obrazka
> zobrazeneho
> v komponente TImage do suboru vo formate PCX ???
>
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
Delphi3 & ATI Rage 128
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 28.6.1999 11:23:38
----- P�vodn� zpr�va -----
Od: Dan Komosny <dan(zv)list.skm.vutbr(tec)cz>
> Ty ovladace jsou pekne stare.Od tohoto ovladace uz vyslo spousty novych
> ovladacu.
> Nesmis totiz hledat na strankach atitech. Tam nic neni. ( mozna tak
ovladace
> ze 4.11 :) )
Pokud vim, tohle je oficialni nejnovejsi ovladac. Dokonce neni ani novejsi
beta verze. 4.11 nema nic spolecneho s datumem. Pokud vis o ovladacich k ATI
kartam, ktere jsou novejsi nez ty na strankach od ATI, dej vedet.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================PCX format
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 28.6.1999 10:57:31
Dovoluji si doplnit - minuly rok byla na jednom CD v Chipu aplikace
"1000 formatu" nebo podobny nazev a tam jsou popsany formaty obrazku i
nejruznejsich dalsich souboru. PCX tam bude urcite take.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************> -----P�vodn� zpr�va-----
> Od: Zden�k B�hm [SMTP:bohm(zv)gacc(tec)cz]
> Odesl�no: 28. �ervna 1999 8:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: PCX format
>
> Zdar,
>
> o komponente a zdrojakach nevim, ale vysla pred casem skvela kniha -
> Encyklopedie grafickych formatu, kde je dobre PCX format popsan.
> Vydalo ji
> nakladatelstvi Computer Press a to je tak vsechno, na co si ted
> vzpomenu.
>
> Zdarec Zdenek
>
> ----- Original Message -----
> From: Miro Mrazik <miro_mr(zv)hotmail.com>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Saturday, June 26, 1999 6:37 PM
> Subject: PCX format
>
>
> Ahojte,
>
> neviete niekto o komponente resp. zdrojakoch na ulozenie obrazka
> zobrazeneho
> v komponente TImage do suboru vo formate PCX ???
>
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
MS SQL 6.5
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 28.6.1999 12:03:55
Realne bezi propojeni na MS SQL pres BDE a nativni driver. Funguje docela
dobre, ale ma zasadni vadu. Od MS SQL 7 M$ nepodporuje nativni driver. Ja
bych za teto situace volil ADO, ale urcite se najdou takovi, kteri budou
tvrdit, ze daleko lepsi je to, nebo ono. Vzdy je to vec nazoru a
konkretnich podminek, univerzalni kriteria vyberu neexistuji.
-----P�vodn� zpr�va-----
Od: No Comment Group, s.r.o. / Sales Department [SMTP:sales(zv)nocomment.sk]
Odesl�no: 25. �ervna 1999 22:05
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: MS SQL 6.5
Ahoj,
ma niekto z Vas "realne" skusenosti s funkcnym pripojenim k subj. z Delphi?
Hladam jednoduche a robustne riesenie... Najlepsie to, co mozno ani nieje
tak rychle ale nie je to zabugovane a tak.
K Delphi sa dodava nieco nativne, ale prednedavnom to niekto poslal do
horucich pekiel takze neviem...
za kazdu radu dakujem :-)
rw
Databaze Access
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 28.6.1999 12:22:07
Zdravim,
kolik "snese" MDA soubor (mam na mysli maximalni velikost).
Diky.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Databaze Access
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 28.6.1999 12:44:07
> kolik "snese" MDA soubor (mam na mysli maximalni velikost).
Omluva - mel jsem samozrejme na mysli MDB (accessovsky format).typ PChar, co to je, lze nejak zmenit na string?
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 28.6.1999 12:51:46
Zdravim...
pomoci fce PChar(s:String)
var
sFrom: String;
sTo:String;
begin
CopyFile(PChar(sFrom),PChar(sTo, false)
...
PChar je vlastne pointer na char PChar = ^ Char...
nemuzes je tudis klasicky scitat jako string /+/...
ale prave pomooci tkz.pointerovske aritmetiky....
-----P�vodn� zpr�va-----
Od: Standa Kunc <obkstan(zv)obaka-karvina(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. �ervna 1999 12:30
P�edm�t: typ PChar, co to je, lze nejak zmenit na string?>Zdravim. Potreboval bych editovat typ PChar v CopyFile(odkud:PChar,
kam:Pchar, false);
>Jaky je rozdil mezi stringem a PCharem, lze nejak konverzovat tyto typy
jako treba IntToStr atd.?
>Mohu spojovat retezce napsane v PCharu?
>Please H E L P ME!
>ListView a rychlost
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 28.6.1999 13:32:15
Ahoj,
mam D3 St. Obcas to zapomenu uvest, to TListView.OwnerData jsem tam nenasel. Ale nacitat to prubezne, by mohlo byt reseni. Jeste si s tim pohraju.
P.S. Kdyz uz je tu rec o verzi Delphi, ma cenu prechazet z D3 St na D4 St.
Bye,
----------
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
> Ahoj,
>
> Application.ProcessMessages by jsi mel vyhodit zcela urcite, pokud chces
> vyvolat prekresleni nejakeho prvku, pouzij jeto metodu Repaint. K te
> rychlosti, pokud ti jde o seznam souboru vcetne zobrazeni ikon, tak ani
> Pruzkumnik v tomhle neni nijak rychly. On provadi prohledavani prubezne
> pri zobrazovani. Existuje ale jiny zpusob jak to vyresit. Neuvadis jakou
> mas verzi, implicitne teda predpokladam D4. Misto zadavani polozek do
> ListView jej pouzijes ve virtualnim rezimu (TListView.OwnerData = True)
> kde jen nastavis celkovy pocet polozek a vlastni data pak vytvaris az pri
> potrebe je zobrazit. Priklad mas v Delphi4\Demos\Virtual Listview.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky programator
> * http://www.bojkot(tec)cz *
> ************************
>
> typ PChar, co to je, lze nejak zmenit na string?
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 28.6.1999 12:40:08
PChar znamena pointer na zacatek retezce, ktery konci znakem chr(0) - to
je obdoba C-ckoveho typu char. String je promenna, ktera na zacatku
obsahuje pocet znaku a pak nasleduji ty znaky. Konverze je jednoducha:
var s:string;
pch:PChar;
s:=string(pch); --> ovsem pozor, pch musi skutecne ukazovat na nejaka
smysluplna data
Obracene je to tusim funkce StrPas nebo StrPCopy nebo podobne, nemam tu
ted help a pracuju spis v C++.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Standa Kunc [SMTP:obkstan(zv)obaka-karvina(tec)cz]
> Odesl�no: 28. �ervna 1999 11:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: typ PChar, co to je, lze nejak zmenit na string?
>
> Zdravim. Potreboval bych editovat typ PChar v CopyFile(odkud:PChar,
> kam:Pchar, false);
> Jaky je rozdil mezi stringem a PCharem, lze nejak konverzovat tyto
> typy jako treba IntToStr atd.?
> Mohu spojovat retezce napsane v PCharu?
> Please H E L P ME!Databaze Access
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 28.6.1999 14:02:21
>kolik "snese" MDA soubor (mam na mysli maximalni velikost).
>
tipoval bych ze DAO ma omezeni asi 2GB
Heretic
typ PChar, co to je, lze nejak zmenit na string?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 28.6.1999 14:14:19
Zpet to jde uplne stejne.
PCh:=PChar(S);
ale protoze se jedna o ukazatel, tedy o adresu
do pameti, nelze je jednoduse scitat.
> ----------
> PChar znamena pointer na zacatek retezce, ktery konci znakem chr(0) -
> to
> je obdoba C-ckoveho typu char. String je promenna, ktera na zacatku
> obsahuje pocet znaku a pak nasleduji ty znaky. Konverze je jednoducha:
> var s:string;
> pch:PChar;
> s:=string(pch); --> ovsem pozor, pch musi skutecne ukazovat na nejaka
> smysluplna data
> Obracene je to tusim funkce StrPas nebo StrPCopy nebo podobne, nemam
> tu
> ted help a pracuju spis v C++.
> **********************************************************************
> **
> > Zdravim. Potreboval bych editovat typ PChar v CopyFile(odkud:PChar,
> > kam:Pchar, false);
> > Jaky je rozdil mezi stringem a PCharem, lze nejak konverzovat tyto
> > typy jako treba IntToStr atd.?
> > Mohu spojovat retezce napsane v PCharu?
> typ PChar, co to je, lze nejak zmenit na string?
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 28.6.1999 14:35:10
Trosku ses seknul ne ?
Je to obracene:
pch := pchar(s)
s := strpas(pch)
> -----P�vodn� zpr�va-----
> Od: Petr Brant [mailto:p.brant(zv)samo(tec)cz]
> Odesl�no: 28. �ervna 1999 13:40
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: typ PChar, co to je, lze nejak zmenit na string?
>
>
> PChar znamena pointer na zacatek retezce, ktery konci znakem
> chr(0) - to
> je obdoba C-ckoveho typu char. String je promenna, ktera na zacatku
> obsahuje pocet znaku a pak nasleduji ty znaky. Konverze je jednoducha:
>
> var s:string;
> pch:PChar;
>
> s:=string(pch); --> ovsem pozor, pch musi skutecne ukazovat na nejaka
> smysluplna data
>
> Obracene je to tusim funkce StrPas nebo StrPCopy nebo
> podobne, nemam tu
> ted help a pracuju spis v C++.
>
> **************************************************************
> **********
> *******************************
>
> Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> Visual Basic
>
> **************************************************************
> **********
> *******************************
>
>
>
>
> > -----P�vodn� zpr�va-----
> > Od: Standa Kunc [SMTP:obkstan(zv)obaka-karvina(tec)cz]
> > Odesl�no: 28. �ervna 1999 11:09
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: typ PChar, co to je, lze nejak zmenit na string?
> >
> > Zdravim. Potreboval bych editovat typ PChar v CopyFile(odkud:PChar,
> > kam:Pchar, false);
> > Jaky je rozdil mezi stringem a PCharem, lze nejak konverzovat tyto
> > typy jako treba IntToStr atd.?
> > Mohu spojovat retezce napsane v PCharu?
> > Please H E L P ME!
> Rolovani TMemo / TRichEdit
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 28.6.1999 14:58:31
Ahoj,
vim, ze se to jiz probiralo, ale bohuzel jsem pri hledani
v archivu konference neokusil horkost uspechu a proto
se obracim na Vas :
Kdyz najdu nejaky retezec v TMemo, tak ho zvyraznim pomoci
SelStart a SelLength, ale pokud tento text neni prave ve vyrezu
obrazovky (je nekde dole/nahore) neni tn vyber videt, chtel bych
proto "odrolovat" tak, aby byl visdet, vite nekdo, jak NA TO ?
Diky moc.
----------
BTW: stava se Vam, prosim, nekdy, ze Vam Delphi
pri pokusu zastavit vykonavani kodu na "tomto"
radku (F4), nebo po vlozeni BreakPointu zahlasi :
"No code generated for th current line" ???
Ale neni to tim, ze by z duvodu optimalizace nebyl
zkompilovan, napr prikaz ShowMessage('Kuk na strejdu');
se normalne vykona, ale pokud sem dam breakpoint,
nezastavi se tu :-( Optimalizaci jsem i vypnul,
ale beze zmeny :-(((
Pointry
[*] Jiri Vrabec Java -5 rocnok <xvrabe00(zv)kapr.fme.vutbr(tec)cz> - 28.6.1999 16:17:00
Mam takovych par problemku :-)))
a.)
// mam takovouto deklaraci :
type TAkce = class(TObject)
Zacatek : Cardinal;
Predchudce,Nasledovnik : TList;
Nazev : string;
constructor Create;virtual;
end;
type TAkcePole = array[1..255] of TAkce;
constructor TAkce.Create;
begin
Predchudce := TList.Create;
Nasledovnik := Tlist.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
var PAkce : ^TAkcePole;
s : string;
begin
// A ted my reknete jestli je spravne toto :
New(PAkce); // velikost = 4
// nebo toto :
GetMem(Pakce,255*SizeOf(TAkce)); // velkost pres 1020
// a dale : jaky je pristup k tomuto poly pristup ??
// je to :
Pakce[1] := TAkce.Create;
....
PAkce[2] := TAkce.Create;
PAkce[2].Nazev := 'Nazev2';
PAkce[2].Predchudce.Add(PAkce[1]);
......
s :=TAkce(TAkce(PAkce[x].Predchudce.Items[0]).Nasledovnik.Items[0]).Nazev;
// nebo
PAkce^[1] := TAkce.Create;
.....
PAkce^[2].Nazev := 'Nazev2';
PAkce^[2].Predchudce.Add(PAkce^[1]);
.....
s
:=TAkce(TAkce(PAkce[x]^.Predchudce.Items[0]).Nasledovnik.Items[0]).Nazev;
// treti varianta : sou spravne oba, ale potom proc ???
end;
// oba jedou a aba sou funkcni (u mne :-))) )
// a jeste jeden dotaz : k cemu je (napr.) toto a jak se to da pouzit ??
// respektive k cemu je deklarace "class of ...."
CAkce = class of TAkce;
Dik. Jirka.navrh tabulky
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 28.6.1999 16:25:02
> A neprehnal jsi to trochu? Kolik milionu korun platite mesicne na
> telefonnich poplatcich?
> I kdybych pocital 60 hovoru za hodinu (coz je asi nesmysl), pak za
> mesic je to
> 60*8*20=9.600,- hovoru.
> Jaro
>
> >
> >velkost databazy :-))) ku kazdemu tomu cloveku v strome bude relacia
> 1:N na
> >tabulu telefonnych hovorov :-))) vies si asi predstavit tu databazu
> ... tak
> >50-100 tisic zaznamov / mesiac v historii min. 12 mesiacov :-)))
Nevim, nevim.
Nas urad ma cca 150 aktivnich uredniku a mesicne vyjizdime cca 2500 - 3000 zaznamu (=hovoru)
Ma-li jeho organizace 30*150 lidicek, je to mozne :-)
Toto bych videl jako ukol pro SQL server.
===========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
your mail
[*] Jiri Vrabec Java -5 rocnok <xvrabe00(zv)kapr.fme.vutbr(tec)cz> - 28.6.1999 16:55:17
Napr. :
ShellEXecute(Handle,'Open','nazev tve aplikace',nil,'adresar
tve aplikace',SW_SHOW);
On Sun, 20 Jun 1999 jan.pechac(zv)post(tec)cz wrote:
>
> Prosim o radu jak definovat spousteni eterniho programu v Delphi. Jde mi konkretne o pakovace a textove editory.
> Jsem uplny zacatecnik a potrebuji tuto radu abych mohl dokoncit svou prvni aplikaci.
> Diky Honza
> jan.pechac(zv)post(tec)cz
> MS SQL 6.5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 28.6.1999 17:52:04
Vice nez dva roky provozujeme aplikaci v D3 nyni v D4 pres BDE + ODBC. Chodi to
vcelku spolehlive - neprijemna je nutnost BDE a ODBC ;-). Ale funkcni to je ...
Mac
Osobne bych ale preferoval D4 Standard (max. proffesional) + nejake komponenty
(Adonis, OLEDB apod.)
"No Comment Group, s.r.o. / Sales Department" wrote:
> ma niekto z Vas "realne" skusenosti s funkcnym pripojenim k subj. z Delphi?
> Hladam jednoduche a robustne riesenie... Najlepsie to, co mozno ani nieje
> tak rychle ale nie je to zabugovane a tak.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Databaze Access
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 28.6.1999 18:05:38
Mam tu bumbrlika ktery ma 720MB a stale roste ;-)
Mac
P.S. Prave to predelavam na MS SQL 7 (potazmo na MSDE 1.0) ;-)
Krayzel Libor wrote:
> > kolik "snese" MDA soubor (mam na mysli maximalni velikost).
>
> Omluva - mel jsem samozrejme na mysli MDB (accessovsky format).
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
MS SQL 6.5
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 28.6.1999 19:43:25
ok. s ADO som robil v VBScripte v prostredi ASP stranok ... AKo na to v
Delphi?
rw
----- Original Message -----
From: Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 28, 1999 12:03 PM
Subject: RE: MS SQL 6.5
> Realne bezi propojeni na MS SQL pres BDE a nativni driver. Funguje docela
> dobre, ale ma zasadni vadu. Od MS SQL 7 M$ nepodporuje nativni driver. Ja
> bych za teto situace volil ADO, ale urcite se najdou takovi, kteri budou
> tvrdit, ze daleko lepsi je to, nebo ono. Vzdy je to vec nazoru a
> konkretnich podminek, univerzalni kriteria vyberu neexistuji.
>
> -----P�vodn� zpr�va-----
> Od: No Comment Group, s.r.o. / Sales Department [SMTP:sales(zv)nocomment.sk]
> Odesl�no: 25. �ervna 1999 22:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: MS SQL 6.5
>
> Ahoj,
>
> ma niekto z Vas "realne" skusenosti s funkcnym pripojenim k subj. z
Delphi?
> Hladam jednoduche a robustne riesenie... Najlepsie to, co mozno ani nieje
> tak rychle ale nie je to zabugovane a tak.
>
> K Delphi sa dodava nieco nativne, ale prednedavnom to niekto poslal do
> horucich pekiel takze neviem...
>
> za kazdu radu dakujem :-)
>
> rw
>
>
>Pointry
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 28.6.1999 20:54:03
type
PtrTAkce=^TAkce;
TAkce = class(TObject)
Zacatek : Cardinal;
Predchudce,Nasledovnik : PtrTAkce;
Nazev : string;
constructor Create;virtual;
end;
type TAkcePole = array[1..255] of TAkce;
constructor TAkce.Create;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var PAkce : ^TAkcePole;
begin
New(PAkce);
PAkce^[1] := TAkce.Create;
.....
PAkce^[2].Nazev := 'Nazev2';
PAkce^[2].Predchudce:=PAkce[1]; // bez striezky lebo chceme pointer
ulozit
.....
end;
A nezabudni: Dispose(PAkce);
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Jiri Vrabec Java -5 rocnok <xvrabe00(zv)kapr.fme.vutbr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Kopie: xvrabe00(zv)kapr.fme.vutbr(tec)cz <xvrabe00(zv)kapr.fme.vutbr(tec)cz>
Datum: 28. j�n 1999 16:56
P�edm�t: Pointry
>Mam takovych par problemku :-)))
>a.)
>// mam takovouto deklaraci :
>type TAkce = class(TObject)
> Zacatek : Cardinal;
> Predchudce,Nasledovnik : TList;
> Nazev : string;
> constructor Create;virtual;
> end;
>
> type TAkcePole = array[1..255] of TAkce;
>
>
>constructor TAkce.Create;
>begin
> Predchudce := TList.Create;
> Nasledovnik := Tlist.Create;
>end;
>
>procedure TForm1.Button1Click(Sender: TObject);
>var PAkce : ^TAkcePole;
> s : string;
>begin
>// A ted my reknete jestli je spravne toto :
> New(PAkce); // velikost = 4
>// nebo toto :
> GetMem(Pakce,255*SizeOf(TAkce)); // velkost pres 1020
>
>// a dale : jaky je pristup k tomuto poly pristup ??
>// je to :
> Pakce[1] := TAkce.Create;
> ....
> PAkce[2] := TAkce.Create;
> PAkce[2].Nazev := 'Nazev2';
> PAkce[2].Predchudce.Add(PAkce[1]);
> ......
>s :=TAkce(TAkce(PAkce[x].Predchudce.Items[0]).Nasledovnik.Items[0]).Nazev;
>// nebo
> PAkce^[1] := TAkce.Create;
> .....
> PAkce^[2].Nazev := 'Nazev2';
> PAkce^[2].Predchudce.Add(PAkce^[1]);
> .....
>s
>:=TAkce(TAkce(PAkce[x]^.Predchudce.Items[0]).Nasledovnik.Items[0]).Nazev;
>// treti varianta : sou spravne oba, ale potom proc ???
>end;
>
>// oba jedou a aba sou funkcni (u mne :-))) )
>// a jeste jeden dotaz : k cemu je (napr.) toto a jak se to da pouzit ??
>// respektive k cemu je deklarace "class of ...."
>
> CAkce = class of TAkce;
>
> Dik. Jirka.
>
>CreateWindowStation
[*] Jan P�ni�ka <Jan.Penicka(zv)iname(tec)com> - 28.6.1999 21:05:06
Ahoj lidi,
mate nekdo nejake zkusenosti se subjektem?
Zkousel jsem pracovat s desktopy a to slo bez problemu, ale pak jsem zkousel
vytvorit WindowStation, ale porad mi to hlasi chybu 126("The specified
module could not be found").
Jedine co se mi podarilo je pomoci fce OpenWindowStation otevrit vychozi
window station, ale kdyz jsem ji zkousel otevrit pomoci subj. tak to zase
hlasilo tu chybu i kdyz podle dokumentace by to melo jit taky.
Nejaky priklad by taky pomohl.
---
Jan Penicka student of Technical University of Liberec
Jan.Penicka(zv)iname.com (ICQ:25524517)
PENDAsoft(zv)iname.com
Par dotazu k DC (Device Context)
[*] Karel Klimes <kchodl(zv)iol(tec)cz> - 28.6.1999 21:19:34
Ahoj Delfini,
mam nasl. cast kodu:
...
...
DC:=GetDC(0);
HPen:=SelectObject(DC,CreatePen(PS_SOLID,1,clBlue);
...
nejaky kresleni LineTo, TextOut apod.
...
musim pri ukonceni uzivani kontextu zarizeni provest:
...
Release(0,DC);
...
nebo musim i smazat vytvoreny HPen:
...
DeleteObject(HPen);
Release(0,DC);
...
dale, pokud musim uzit variantu s DeleteObject zalezi na poradi odstraneni
objektu v zavislosti na tom jak byli vytvoreny. Napr.:
...
HFont:=SelectObject(DC,CreateFont(....));
HBrush:=SelectObject(DC,CreateBrush(....));
...
... neco ...
...
DeleteObject(HBrush);
DeleteObject(HFont);
nebo muzu klidne provest (doufam ze jo, aniz bych zbytecne "okupoval" pamet):
...
DeleteObject(HFont);
HFont:=SelectObject(DC,CreateFont(....)); {pryc starej font a vytvoreni
novyho ... fontu, aniz bych
odstranil HBrush,
... opet nejaky kresleni ... ktery jsem vytvoril pozdeji}
...
DeleteObject(HFont);
DeleteObject(HBrush);
Diky za kazdou odpoved.
Progr-Amather -Kchodl-� 1989-1999
Databaze Access
[*] Erik Salaj <winsoft(zv)napri.sk> - 28.6.1999 21:58:28
Podla mojich informacii je limit pre Access 97 databazu 1GB.
Erik Salaj
----- Original Message -----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 28, 1999 12:44 PM
Subject: RE: Databaze Access
> > kolik "snese" MDA soubor (mam na mysli maximalni velikost).
>
> Omluva - mel jsem samozrejme na mysli MDB (accessovsky format).
> navrh tabulky
[*] No Comment Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 28.6.1999 22:13:12
> > A neprehnal jsi to trochu? Kolik milionu korun platite mesicne na
divil by si sa, ale minuly mesiac prisiel ucet nieco tesne pod milion...
> > telefonnich poplatcich?
> > I kdybych pocital 60 hovoru za hodinu (coz je asi nesmysl), pak za
> > mesic je to
> > 60*8*20=9.600,- hovoru.
^^^ ani nie. ono to funguje ako pseudotarifikator. ty zdvihnes sluchadlo a
vytocis nejake cislo, nedovolas sa a polozis. ustredna ale vypluje zaznam o
pouziti telefonu. na zaklade urcitych pravidiel (dlzka hovoru, paltnost
cisla, existencia predvolby pre medzimesto atd.) oznacim hovor ako platny
alebo ako neplatny. v databaze ale musim mat vsetky ....
a aby som este nezabudol, hovory medzi jednotlivymi klapkami sa tiez loguju
....
ratam s tym najvacsim zakaznikom. cca. 200 telefonnych liniek :-) asi 400
klapiek :-))) je to firma co ma velky barak a prenajima firmam bez vlastneho
baraku priestory + telefonne linky ... zahrnute su aj sekretarske sluzby
atd. preto tie klapky. V zasade mi je to tiez divne, ale ked platia tak sa
nepytam a riesim :-)
no a 200 liniek uz neni sranda... to mi ver.
> Nas urad ma cca 150 aktivnich uredniku a mesicne vyjizdime cca 2500 - 3000
zaznamu (=hovoru)
> Ma-li jeho organizace 30*150 lidicek, je to mozne :-)
^^^ tolko to nie je...
btw: pomer medzi platnymi a neplatnymi je zhruba taky ze 1:3.
> Toto bych videl jako ukol pro SQL server.
oni su skrblici.... a kym to pada, tak platia servis ... :-)))
rw
Format a array of const
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.6.1999 22:15:20
Preji vsem pekneho dne,
nejak jsem se zamotal do druheho argumentu funkce format.
Mam pole integeru, ktere nejakym zpusobem naplnim a chci jej
predat funkci format nasledovne (zkraceno na minimum):
procedure TfrmCasoveOmezeni.bbtnOkClick(Sender: TObject);
var
X: array of integer;
begin {bbtnOkClick}
SetLength (X, 33);
X [0] := ID_O;
X [1] := ID_Z;
...
X [32] := integer (chckNeA.Checked);
Format (sqlInsertIntoTimeTable, X);
end; {bbtnOkClick}
Pokud to pole bylo staticke, pak mi to ani neprelozil, pokud jej
vytvarim dynamicky, buchne mi to s vyjimkou. Jak presne to mam
zapsat?
Diky za kazdou radu
Slavek
-------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------------------------------
ADO vs OLE DB (Was: D 3C/S + MS SQL 7 a varchar(80
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.6.1999 22:31:06
Erik Salaj wrote:
Ahoj,
Je videt ze nove technologie prinaseji i nove moznosti. Drive vetsinou
vznikala flamewar na tema Pascal vs C++, a ted to uz zacina s OLE DB a
ADO :-))
> Ano, ale zabudli na taku malickost, ze iba v C/S verzii. K verzii
> Professional sa to vraj bude dat dokupit. Aj tak su to zatial iba
> dohady a podla mna nema vyznam sa o tom teraz bavit, kym nie
> su k dispozicii presne informacie co, kde a za kolko.
Jiste, zatim nema cenu to dale rozebirat.
> Tu neide o samotne VCL alebo Win32 API ale o APLIKACIE pisane
> s prislusnym rozhranim. Tvrdim, ze az na vynimky je prevazna vecsina
> softwaru pisana pomocou VCL (alebo MFC, OWL, ...) daleko
> jednoduchsia, spolahlivejsia, flexibilnejsia, ... v porovnani s priamym
> programovanim pomocou Win32 API. To je predsa aj zakladny ucel
> tychto kniznic. Ak by tomu tak nebolo, tak by to nikto nepouzival.
Ten muj priklad nebyl asi nejlepsi. Zkusim to jinak. Je to asi jako
kdyby jsi stal pred problemem napsat VCL a ted se rozhodoval, jestli
v ni budes volat primo API nebo ji postavis treba na OWL, tedy na
jakemsi "mezirozhrani". Ja nerikam ze by jsi mel programovat primo v
assembleru nebo pouzivat primo OLE DB, to asi zadny normalni clovek
delat nebude. Jenze pokud uz pises nejakou vyssi knihovnu, a o tom
je myslim tato diskuze, tak je prece vyhodne z ni volat primo funkce
na te nejnizsi urovni, i kdyz to muze byt pro tvurce tech komponent
narocnejsi.
Tim zdaleka nechci rict, ze pouzit ADO jako zakladni vrstvu pro
komponenty je vylozene spatne reseni, to vubec ne. Koneckoncu, pak
by to asi tak nedelal ani Borland, ale jit primo az na OLE DB muze
v pripade Delphi komponent dat lepsi vysledky.
> Preco potom Microsoft programoval ADO ked ADO potom moze byt nanajvys
> zrovnatelne alebo horsie ako OLE DB? Podla mna mal na to ten Microsoft
> velmi dobry dovod (urcite nie robit horsi pristup k udajom).
Protoze ADO podporuje automation a je tak jednoduse pouzitelne z ASP
ci podobnych veci.
> Cize ak pouzivam komplikovanejsie rozhranie, tak znizujem pravdepodobnost
> chyb? Ak nepouzivam ziadne kniznice (dalsie vrstvy) tak znizujem
> pravdepodobnost chyb? Ak nepouzijem vyssi programovaci jazyk (dalsiu vrstvu)
Ne, tak jsem to nemyslel, viz odpovedi vyse.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
QueryPerformanceCounter (was: beginupdate,endupdat
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.6.1999 22:32:51
"Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o." wrote:
> The QueryPerformanceCounter function retrieves the current value of the
> high-resolution performance counter, if one exists.
> A prave posledni cast - POKUD EXISTUJE - jak ho nastavim/zapnu/vytvorim,
> ci co. Mas nejaky prikladek ? Ale jinak nespecha, je to pro me jen
> takovy bonbonek do jednoho programku, ktery si pouzivam ve firme.
Ahoj,
Ta podminka "pokud existuje" se tyka HW pocitace. Dneska uz by to nemel
byt problem, jeste jsem se nesetkal s nejakym kde by to nefungovalo.
Blizsi popis je treba tady:
http://www.iseran.com/Win32/FAQ/section5.html#78
A ted priklad. Pouziva se v nem typ Int64, takze je to jen pro D4 a
vyssi:
procedure TForm1.Button1Click(Sender: TObject);
var
TotalTime: Extended;
ST, ET, Freq: Int64;
begin
Win32Check(QueryPerformanceFrequency(Freq));
QueryPerformanceCounter(ST);
Sleep(200);
QueryPerformanceCounter(ET);
TotalTime := (ET - ST) / Freq;
ShowMessageFmt('%5.3f sec.', [TotalTime]);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ButtonClick
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.6.1999 22:32:11
SICHTA Daniel wrote:
>
> Skusim este raz
>
> Potrebujem odchytit WM spravu a reagovat na nu tak aby sa spustil event
> OnClick ( Button).
Ahoj,
No jo, ale jakou zpravu a od ceho ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ListView a rychlost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.6.1999 22:40:32
Tomas Skopik wrote:
>
> Ahoj,
>
> mam D3 St. Obcas to zapomenu uvest, to TListView.OwnerData jsem tam nenasel. Ale nacitat to prubezne, by mohlo byt reseni. Jeste si s tim pohraju.
Ahoj,
V tom pripade si stahni vylepseny ListView pro D3, mel by tam byt i virtualni
mod:
http://www.delphifreestuff.com/cgi-bin/dfs_components.cgi?extlistview
> P.S. Kdyz uz je tu rec o verzi Delphi, ma cenu prechazet z D3 St na D4 St.
Ted uz asi ne, za par mesicu je tu D5.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Par dotazu k DC (Device Context)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.6.1999 23:35:15
Karel Klimes wrote:
>
> Ahoj Delfini,
> mam nasl. cast kodu:
> ...
> ...
> DC:=GetDC(0);
> HPen:=SelectObject(DC,CreatePen(PS_SOLID,1,clBlue);
> ...
> nejaky kresleni LineTo, TextOut apod.
> ...
>
> musim pri ukonceni uzivani kontextu zarizeni provest:
> ...
> Release(0,DC);
> ...
>
> nebo musim i smazat vytvoreny HPen:
> ...
> DeleteObject(HPen);
> Release(0,DC);
Ahoj,
Vytoreny objekt (Pen) musis samozrejme smazat. V tom prikladu to
mas ale spatne, protoze SelectObject vraci handle predchoziho
nastroje, ne toho ktery vytvaris jako CreatePen. Tady jsem to vic
rozepsal pro nazornost:
procedure TForm1.FormPaint(Sender: TObject);
var
DC: HDC;
SavePen, YourPen: HPen;
begin
DC := GetDC(Handle);
YourPen := CreatePen(PS_SOLID, 1, clBlue);
SavePen := SelectObject(DC, YourPen);
MoveToEx(DC, 10, 10, nil);
LineTo(DC, 100, 100);
SelectObject(DC, SavePen);
DeleteObject(YourPen);
ReleaseDC(Handle, DC);
end;
Ukladani predchoziho pera do SavePen mozna vypada jako zbytecnost,
ale je to pak dulezite pro zruseni YourPen, protoze by nemelo byt
v tu dobu vybrane v DC.
K dalsi casti dotazu, objekty GDI muzes samozrejme rusit a vytvaret
dle libosti, ale mel by jsi vzdy dodrzet aby nedochazelo ke zruseni
prave vybraneho objektu, ktery byl predtim vytvoren.
Jinak se podivej do Win32 API helpu na kapitolu "Device contexts".
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************PCX format
[*] Roman Toda <normex(zv)mail.pvt.sk> - 29.6.1999 00:43:44
Na opacny proces PCX ->TImage mam komponentu. Ked chces poslem Ti ju - mozno
nieco vycitas.
-------------------------------------------
Roman Toda
http://www.technickenormy.com
Normex l.t.d. - fulltext for technical standard
-----P�vodn� zpr�va-----
Od: Foldyna Ji�� <jiri.f(zv)avizo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. j�n 1999 11:56
P�edm�t: RE: PCX format
>Dobry site s popisy formatu je http://www.wotsit.org
>
>Ing. Jiri Foldyna
>mailto:jiri.f(zv)avizo(tec)cz
>
>>Dovoluji si doplnit - minuly rok byla na jednom CD v Chipu aplikace
>>"1000 formatu" nebo podobny nazev a tam jsou popsany formaty obrazku i
>>nejruznejsich dalsich souboru. PCX tam bude urcite take.
>
D 3C/S + MS SQL 7 a varchar(8000)
[*] Erik Salaj <winsoft(zv)napri.sk> - 29.6.1999 00:54:08
> :-) Obavam se, ze v tomto smeru jsou me informace dostatecne.
> Dokonce se jiz pripravuji, ze budu tyto komponenty na podzim
> skolit. :-)
Potom je asi vsetko OK. Ja by som vsak rozhodnutie o uspesnosti
resp. neuspesnosti akehokolvek produktu ponechal radsej na trh
nez na predcasne uvahy, ked este nie su jasne pravidla hry.
> :-) Urcite povazuji ADO za lepsi cestu nez BDE (o MIDAS ani
> nemluve). Kdyz uz se do toho pustili, meli jit vsak primo na OLE
> DB, protoze ADO bude v rade pripadu pomalejsi nez stavajici BDE.
Mozno na to mali dovod.
> BTW - nebudeme si tykat?
Jasne.
> Ne. ADO je nadstavbou nad OLE DB, a zpomaleni vychazi prave z
> hojneho pouzivani typu variant. OLE DB pracuje s "normalnimi"
> typy, az na par vyjimek, ktere se vsak stejne musi zadavat pres
> pretypovani variantu na "normalni" typ (tedy usetri se zde cas na
> rozpoznani typu variantu).
Podstatna je otazka, kolko casu sa usetri a co za to.
> No vsak o tom celou dobu pisu. :-) S drobnou pripominkou, ze s
> OLE DB je to prakticka moznost, ovsem "ponekud" :-) narocnejsi.
Presne tak. Zase pre konkretne rozhodnutie je dolezita otazka,
kolko casu resp. penazi znamena v praxi "o nieco" narocnejsi.
> Na druhe strane ma OLE DB podstatne vice moznosti nez ADO.
Stale neviem, co konkretne tym myslis. Adonis 3.3, co sa tyka
OLE DB obsahuje jedinu nepodstatnu funkciu: zistenie dostupnych
OLE DB providerov.
> Priklad: mam tabulku, dejme tomu ciselnicek, kde mam 10
> ruznych poli. Z nejakeho duvodu se mi vice hodi to otevirat primo
> pres tablename, nez pres query. Ale chci cist pouze dve polozky,
> z toho jedna je deklarovana jako textova, ale muze tam byt vzdy
> pouze cislo (takove pripady skutecne jsou). Takze v OLE DB
> zadam, ze chci pouze tyto dve pole, a to cislo aby se mi vracelo
> napriklad jako integer (a jako integer to budu take editovat a
> ukladat). U ADO je to trosku zamotanejsi, protoze tam uz se typ
> takto snadno neda ohlidat.
Takuto vyhodu resp. moznost povazujem za dost nepodstatnu.
> Take si mohu vycist vic vet najednou.
ADO to tiez umoznuje (metoda GetRows).
> Technicka poznamka - rozhrani je prave OLE DB, ADO je
> nadstavba nad OLE DB. To jen pro ujasneni pojmu. Z tohoto titulu
> tedy nemuze byt ADO vykonnejsi ani poskytovat vic funkci (leda by
> tam byly pouzity funkce mimo pusobeni OLE DB, o cemz uprimne
> pochybuji).
Tu su informacie priamo z dokumentacie:
ADO je APLIKACNE ROZHRANIE (application programming interface (API))
OLE DB je SYSTEMOVE ROZHRANIE (system-level programming interface)
Moj pohlad na OLE DB je:
OLE DB je mnozina COM interface-ov, ktore definuju, ako maju vyzerat
jednotlive komponenty UDA technologie aby navzajom mohli spolupracovat
a teda aby to vsetko spolu fungovalo. OLE DB teda v prvom rade definuje
akusi architekturu tohto systemu a aj podla mna urcene hlavne na to, ak je
potrebne tento system doplnit o dalsie komponenty (napr. vytvorit
novy OLE DB provider). Nie na pouzivanie tohto systemu v aplikaciach,
na to je urcene aplikacne rozhranie ADO.
> Testovanim ADO se zaroven testuje OLE DB, z vyse popsanych
> duvodu. :-) Souhlasim, ze pro radu uloh je lepsi pouzit primo ADO.
> Ale pro dalsi radu uloh (a hlavne programovacich jazyku) je
> vyhodnejsi jit hloubeji a pouzit OLE DB.
No neviem, pre aky programovaci jazyk by mohlo byt OLE DB
vyhodnejsie voci ADO, ked ADO je priamo navrhnute a vytvorene
prave pre ten ucel, aby sa dalo co najjednoduchsie a najvyhodnejsie
pouzit pri programovani aplikacii. Povedal by som, ze OLE DB
je vyhodnejsie (snad aj nutne) pouzit predovsetkym v specialnych
pripadoch programovania UDA subsystemov a to hlavne
v jazyku C++.
Erik Salaj
D 3C/S + MS SQL 7 a varchar(8000)
[*] Martin Fiala <oldjojos(zv)excite(tec)com> - 29.6.1999 03:30:07 pdt
Ahoj,
muze mi nekdo poradit jak si muzu k me vlastni komponente dat vlastni ikonu
do delhpi Component palette. Jak se to dela?
Diky Martin.
_______________________________________________________
Get your free, private email at http://mail.excite.com/Pointry
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 29.6.1999 07:26:55
> -----Original Message-----
> From: TUNGLI Jan [mailto:tungli(zv)pvt.sk]
> Sent: Monday, June 28, 1999 8:54 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Pointry
>
>
>
> type
> PtrTAkce=^TAkce;
> TAkce = class(TObject)
> Zacatek : Cardinal;
> Predchudce,Nasledovnik : PtrTAkce;
> Nazev : string;
> constructor Create;virtual;
> end;
>
To je uplne spatne.
Michas pointery a reference.
Bud pouzij object: (pointer)
type
PtrTAkce=^TAkce;
TAkce = OBJECT //ne class
...
anebo pouzij class: (reference)
TAkce = class(TObject)
Zacatek : Cardinal;
Predchudce,Nasledovnik : TAkce;
Nazev : string;
constructor Create;virtual;
end;
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!Pointry
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 29.6.1999 07:35:45
> -----Original Message-----
> From: Jiri Vrabec Java -5 rocnok [mailto:xvrabe00(zv)kapr.fme.vutbr(tec)cz]
> Sent: Monday, June 28, 1999 4:17 PM
> To: delphi-l(zv)fwd(tec)cz
> Cc: xvrabe00(zv)kapr.fme.vutbr(tec)cz
> Subject: Pointry
> // a jeste jeden dotaz : k cemu je (napr.) toto a jak se to
> da pouzit ??
> // respektive k cemu je deklarace "class of ...."
>
> CAkce = class of TAkce;
>
> Dik. Jirka.
>
K tomu, abys mohl mit v promenne typ (ne instanci typu)
napr.
type
TAkce = class ...;
TPotomekAkce = class(TAkce) ...;
CAkce = class of TAkce;
var
ClassAkce : CAkce;
InstanceAkce : TAkce;
potom muzes provadet prirazeni
ClassAkce := TAkce;
ClassAkce := TPotomekAkce;
a nasledujici kod vytvori instanci tridy podle hodnoty promenne CAkce,
tedy bud TAkce nebo TPotomekAkce:
InstanceAkce := ClassAkce.Create;
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!Par dotazu k DC (Device Context)
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 29.6.1999 08:06:23
Hi,
mel bys v kazdem pripade uvolnit DC, ale pred tim mu prirad pomoci
SelectObject puvodni vlastnosti (ktere by sis mel nekam schovat). Potom
si uvolni alokovane prostredky jak chces.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Karel Klimes [SMTP:kchodl(zv)iol(tec)cz]
> Odesl�no: 28. �ervna 1999 21:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Par dotazu k DC (Device Context)
>
> Ahoj Delfini,
> mam nasl. cast kodu:
> ...
> ...
> DC:=GetDC(0);
> HPen:=SelectObject(DC,CreatePen(PS_SOLID,1,clBlue);
> ...
> nejaky kresleni LineTo, TextOut apod.
> ...
>
> musim pri ukonceni uzivani kontextu zarizeni provest:
> ...
> Release(0,DC);
> ...
>
> nebo musim i smazat vytvoreny HPen:
> ...
> DeleteObject(HPen);
> Release(0,DC);
> ...
>
> dale, pokud musim uzit variantu s DeleteObject zalezi na poradi
> odstraneni
> objektu v zavislosti na tom jak byli vytvoreny. Napr.:
> ...
> HFont:=SelectObject(DC,CreateFont(....));
> HBrush:=SelectObject(DC,CreateBrush(....));
> ...
> ... neco ...
> ...
> DeleteObject(HBrush);
> DeleteObject(HFont);
>
> nebo muzu klidne provest (doufam ze jo, aniz bych zbytecne "okupoval"
> pamet):
> ...
> DeleteObject(HFont);
> HFont:=SelectObject(DC,CreateFont(....)); {pryc starej font a
> vytvoreni
> novyho ... fontu, aniz bych
> odstranil HBrush,
> ... opet nejaky kresleni ... ktery jsem vytvoril pozdeji}
> ...
> DeleteObject(HFont);
> DeleteObject(HBrush);
>
> Diky za kazdou odpoved.
> Progr-Amather -Kchodl-(r) 1989-1999
Rolovani TMemo / TRichEdit
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 29.6.1999 08:10:32
> Kdyz najdu nejaky retezec v TMemo, tak ho zvyraznim pomoci
> SelStart a SelLength, ale pokud tento text neni prave ve vyrezu
> obrazovky (je nekde dole/nahore) neni tn vyber videt, chtel bych
> proto "odrolovat" tak, aby byl visdet, vite nekdo, jak NA TO ?
Jestli se nepletu, tak staci nastavit vlastnost TMema HideSelection na FALSE
a je to.
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Par dotazu k DC (Device Context)
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 29.6.1999 07:38:03
> Ahoj Delfini,
> mam nasl. cast kodu:
> ...
> ...
> DC:=GetDC(0);
> HPen:=SelectObject(DC,CreatePen(PS_SOLID,1,clBlue);
> ...
> nejaky kresleni LineTo, TextOut apod.
> ...
>
> musim pri ukonceni uzivani kontextu zarizeni provest:
> ...
> Release(0,DC);
> ...
>
> nebo musim i smazat vytvoreny HPen:
> ...
> DeleteObject(HPen);
> Release(0,DC);
> ...
[Petr Brant] Musi se provest oboji.
> dale, pokud musim uzit variantu s DeleteObject zalezi na poradi
> odstraneni
> objektu v zavislosti na tom jak byli vytvoreny. Napr.:
> ...
> HFont:=SelectObject(DC,CreateFont(....));
> HBrush:=SelectObject(DC,CreateBrush(....));
> ...
> ... neco ...
> ...
> DeleteObject(HBrush);
> DeleteObject(HFont);
>
> nebo muzu klidne provest (doufam ze jo, aniz bych zbytecne "okupoval"
> pamet):
> ...
> DeleteObject(HFont);
> HFont:=SelectObject(DC,CreateFont(....)); {pryc starej font a
> vytvoreni
> novyho ... fontu, aniz bych
> odstranil HBrush,
> ... opet nejaky kresleni ... ktery jsem vytvoril pozdeji}
> ...
> DeleteObject(HFont);
> DeleteObject(HBrush);
[Petr Brant] Ha, tak to nevim, ale rekl bych, ze by to mohlo
byt jedno. Co jsem tak programoval, tak jsem se na to poradi neohlizel a
zadne problemy to nedelalo. Nevim jak dalece je to osetrene v Delphi,
ale v MSVC++ se musi delat i takove veci, ze po SelectObject (vraci
pointer na puvodni objekt) se musi provest jeste jednou SelectObject a
jako parametr pouzit ten stary pointer. Pokud se to neudela, vyvadi to
roztodivne veci, jako treba ignoruje nove fonty, misto bitmap kresli jen
tecky anebo to uplne sproste spadne.
void CTreeCtl::DisplayBitmap(CDC *where, HBITMAP hBmp, int x,
int y)
{
CDC dc;
BITMAP Bitmap;
CBitmap *r, *pBitmap;
pBitmap = CBitmap::FromHandle( hBmp);
// retrieve th bitmap
dc.CreateCompatibleDC( NULL);
// create a device context for it
r = dc.SelectObject( pBitmap);
// link the bitmap with the context
pBitmap->GetBitmap( &Bitmap);
// get the bitmap
where->BitBlt( x, y, Bitmap.bmWidth, Bitmap.bmHeight,
&dc, 0, 0, SRCCOPY); // and display it
dc.SelectObject( r);
// set the original bitmap to the device context
dc.DeleteDC();
// and delete it
}
> Diky za kazdou odpoved.
> Progr-Amather -Kchodl-� 1989-1999
[Petr Brant]
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
Rolovani TMemo / TRichEdit
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 29.6.1999 08:43:06
Ne ne, ja myslel to, ze kdyz je ten vybrany text mimo
vyrez (treba nekde hluboko dole), ze neni videt, ale
uz to mam, staci tomu Memu poslat zpravu EM_SCROLLCARET.
Memo potom odroluje tak hluboko/vysoko, aby byl videt
caret.
Diky.
> ----------
> Jestli se nepletu, tak staci nastavit vlastnost TMema HideSelection na
> FALSE
> a je to.
>
> > Kdyz najdu nejaky retezec v TMemo, tak ho zvyraznim pomoci
> > SelStart a SelLength, ale pokud tento text neni prave ve vyrezu
> > obrazovky (je nekde dole/nahore) neni tn vyber videt, chtel bych
> > proto "odrolovat" tak, aby byl visdet, vite nekdo, jak NA TO ?
>
>
> Minimalizace do SysTraye a hlavne obnova
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 29.6.1999 09:33:00
Ahoj
Shanim nejakou komponentu, ktera by provedla minimalizaci moji
aplikace do systraye (takovych je spousta, uz jsem asi 3 zkousel) ale
hlavne aby se umela obnovit pomoci zkratkove klavesy.
To znamena, ze tu aplikaci bych mel na plose, mela by prirazenou
nejakou klavesovou zkratku (Ctrl+Alt+A treba) no ja bych ji spustil,
pozdeji minimalizoval a potreboval bych, aby kdyz zmacknu Ctrl+Alt+A
tak aby se ta aplikace OBNOVILA. Co jsem zatim zkousel, tak se mi
bud' spustila nova instance te aplikace a ta predesla tam zustala,
nebo se neudelalo vubec nic.
Byl bych velice povdecen za tu komponentu a pokud by tam byl i maly
example na muj problem byl bych velmi zauzlovan.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - InstallShield
[*] Jaromir Svoboda <svoboda(zv)okfas(tec)cz> - 29.6.1999 10:25:35
Ahoj,
Potreboval bych behem instalace SW zobrazit uzivateli nejake obrazky.
Nevim jak se to v InstallShieldu dela. Mam na mysli pri vlastnim kopirovani
(bezi jiz Progress Bar).
Predem dik. J.Svoboda
mailto:svoboda(zv)okfas(tec)cz
Minimalizace do SysTraye a hlavne obnova
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 29.6.1999 10:41:08
mohlo by se to treba resit kontrolou behu jedne instance programu
- jednoduche (ale ne zcela spolehlive ?) je pouziti fce FindWindow,
nebo pouzitim fce RegisterHotKey a odchycenim WM_HOTKEY ...
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Petr Vaclavek [SMTP:bla(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 29.06.1999 09:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Minimalizace do SysTraye a hlavne obnova
>
> Ahoj
>
> Shanim nejakou komponentu, ktera by provedla minimalizaci moji
> aplikace do systraye (takovych je spousta, uz jsem asi 3 zkousel) ale
> hlavne aby se umela obnovit pomoci zkratkove klavesy.
> To znamena, ze tu aplikaci bych mel na plose, mela by prirazenou
> nejakou klavesovou zkratku (Ctrl+Alt+A treba) no ja bych ji spustil,
> pozdeji minimalizoval a potreboval bych, aby kdyz zmacknu Ctrl+Alt+A
> tak aby se ta aplikace OBNOVILA. Co jsem zatim zkousel, tak se mi
> bud' spustila nova instance te aplikace a ta predesla tam zustala,
> nebo se neudelalo vubec nic.
>
> Byl bych velice povdecen za tu komponentu a pokud by tam byl i maly
> example na muj problem byl bych velmi zauzlovan.
>
> Petr
>
>
> ==< Petr Vaclavek >---- --- --- -- -- - - -
> ====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
> `=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
> `======--- ------ ---- --- -- -- - - - Delphi3 & ATI Rage 128
[*] Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> - 29.6.1999 10:51:10
----- Original Message -----
From: Jan Fiala <fiala(zv)infos(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 28, 1999 6:13 AM
Subject: Re: Delphi3 & ATI Rage 128
>
> ----- P�vodn� zpr�va -----
> Od: Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz>
>
> > Ahoj,
> >
> > pouzivate nekdo tuhle kartu? Nejak mi zlobi ikony, dela se pres ne
svisla
> cara. Zajimave je, ze se to deje na Speedbaru v Delphi a v Image Editoru.
> Paleta komponent je pritom v poradku. Tohle plati pro barevnou hloubku
> 16-bit. Poku to prepnu na 32-bit (24-bit neni), tak v Image Editoru to
> rozhodi po chvili ikony uplne, v samotnych Delphi to naopak vypada v
> poradku. Ovladace mam posledni verzi 4.11.6114.
Ty ovladace jsou pekne stare.Od tohoto ovladace uz vyslo spousty novych
ovladacu.
Nesmis totiz hledat na strankach atitech. Tam nic neni. ( mozna tak ovladace
ze 4.11 :) )
Dan
> >
> > Deje se to jenom me, nebo mate nekdo podobne zkusenosti? Asi se s tim
nic
> delat neda, ale doufam, ze to vyresi dalsi verze ovladacu.
> >
>
> Mam stejnou kartu i stejne ovladace a nenam problem. U teto karty hodne
> zalezi take na chpsetu zakladni desky. V dobe zacatku prodeje karty to
meli
> poradne vyresene pouze pro Intel chipset a s tim co jsem tenkrat mel ja
> (tusim VIA s AMD procesorem) pocitac pravidelne tuhnul. Po konzultaci s
> vyrobci desky i karty s tim neco provedli, poslali programek, ktery
"nejak"
> nastavil PCI sbernici a v dalsi verzi ovladacu uz to bylo v poradku. Pokud
> se vyrobce o problemu nedozvi, nic nespravi.
>
> ===============================
> ing. Jan Fiala fiala(zv)infos(tec)cz
> Prog-Soft s.r.o. Plzen
> INFOS - informacni system pro napojare
> ===============================x po sobe AfterPost - proc?
[*] Tomas Bahnik <tomas.bahnik(zv)vslib(tec)cz> - 29.6.1999 10:59:04
Nesetkal jste se nekdo s tim, ze pri zapnutych CacheUpdates se po zavolani Post dataset neprepne napoprve do dsBrowse, ale zustane v dsInsert, zavola se AfterPost pak se tataz udalost zavola jeste jednou a v tu chvili je uz dataset v dsBrowse. Vypada to jako kdyz se Post spusti jeste jednou.
------------------------------------------------------------
Tomas Bahnik
Dept. of Physics
TU Liberec
www.kfy.vslib(tec)cz/kfy/QR a PagePro6
[*] Otakar �koloud <otakar(zv)ssakhk(tec)cz> - 29.6.1999 11:05:38
Dobry den,
Namate nekdo tuseni pro tiskarna Minolta PagePro6 tiskne v QuickRep (verze
2.0) DetailBand s cernym pozadim a to jenom na prvni tiskove strane.
Dik.
Otakar Skoloud
ADO vs OLE DB
[*] mjuri(zv)gratex.sk - 29.6.1999 11:18:02
Takze na temu OLEDB vs ADO je tu diskusia z DCOM\ATL listu.
(Dufam ze nebude vadit ze sa tam spomina VC++ ...)
Zaver celej diskusie bol taky ze ADO/VC++ je vyhodnejsia kombinacia
ak ide o vyvoj aplikacii, rychlost vyvoja aplikacii, dobu zvladnutia
technologie.
OLEDB/VC++ (resp ATL OLEDB templates) je najvyhodnejsie pre pisanie
ovladacov a
bulk data operacie.
Samotny text diskusie:
If I were just a casual browser of the DCOM/ATL mailing lists, Microsoft
newsgroups, and Microsoft Systems Journal I could easily get the impression
that using ADO with VC++ is completely undocumented, filled with pitfalls
every step of the way, poor performing, and doomed to failure. Some of these
comments come from well-respected COM people and some come from people just
trying to learn a new technology. However, this is not consistent with my
experiences. I will comment on a few specifics.
If I offend anyone with my comments below, that was not my intention so I
apologize. Sometimes it is hard to discuss a topic without attributing the
comment to a person.
1. Lack of ADO/VC++ documentation. MSDN Library April 1999 has more than a
half dozen ADO/VC++ source code samples and dozens of ADO/VC++ knowledge
base/other articles. The last couple of MSDN Library releases have added a
significant amount of ADO/VC++ information. If you do not keep checking the
new releases of MSDN Library you are probably missing a lot of useful
information. In addition to the ADO/VC++ stuff, there is a lot of ADO
documentation and source samples in Visual Basic. I find that people who are
doing mixed-language development have less resistance to applying the ADO/VB
documentation to VC++. There seems to be a lot of resistence from straight
VC++ developers to read ADO/VB documentation. If you want to or have to
program using ADO/VC++ and you are not already doing it, you better learn to
read ADO/VB source and translate it into ADO/VC++ source. It is unrealistic
to expect that Microsoft is going to move from their VB-centric focus with
ADO.
2. Learning ADO/VC++. First, learn to crawl before you try to run. So many
of the problems that people experience with ADO/VC++ are a combination of a
lack of knowledge of SQL, converting SQL data types to C++/Variant data
types, passing in incorrect parameters, and doing advanced database access
stuff. For example, learn how to use isqlw or other database tools to test
out the syntax of your query before running it through an ADO/VC++ program
and to discover the shape of your resultset(s). Learn how to retrieve simple
data types like int, float, and varchar from the database before you start
messing with identity columns, numeric data types, or user-defined data
types. It helps to know whether you are incorrectly handling all datatypes
or just some of the advanced datatypes (that have been known to have
problems on occasion). Learn how to pass in empty Variants as parameters.
This is required in a lot of ADO/VC++ methods. There is plenty of source
samples that show how to do this. If you want to learn how to use
disconnected recordsets, learn how to use connected recordsets first. If you
can't get the ADO/VC++ code for connected recordsets working, you probably
aren't going to have any success with disconnected recordsets.
3. In Don Box's July 1999 MSJ article, he states "I kept hearing about the
relative sluggishness of ADO". Can you be more specific? With just about any
technology you can use it inefficiently if you want to. The are numerous
documented performance tuning tips for ADO. I have found that when following
these tips many of my ADO/VC++ operations perform as well as my OLEDB/VC++
operations. The performance tips that I regularly use include using the OLE
DB Provider instead of the ODBC driver, using stored procedures religiously,
using output parameters and adExecuteNoRecords whenever you are returning
zero or one row, and using VC++ Extensions for ADO. There are many more
performance tips that may be suitable for certain problems. If your goal is
pure speed, then neither OLE DB nor ADO is what you want to use. The
performance of OLEDB/VC++ or ADO/VC++ can't beat db-library/VC++.
4. In Don Box's July 1999 MSJ article, he states "the grotesqueness of
mixing ADO recordsets and C++". The only reason that the code sample looks
grotesque is because the programmer chose to make it that way. There are 2
well-documented techniques for making your ADO/VC++ less grotesque. First,
using #import for ADO allows you to write code that looks very similar to
VB. If your goal is to write ADO/VC++ code that is as readable/similar as
ADO/VB code then you should be using #import. If anyone is interested I can
post a snippet of code that reduces the "grotesque" recordset handling in
ADO/VC++ down to something close to the "elegant" recordset handling in
ADO/VB. If you choose not to use #import with ADO (and there are sometimes
reasons not to) or if you choose to only use raw interfaces with Variants,
then you should fully expect to have grotesque-looking code. I have yet to
run into a technical show-stopper that prevented me from using #import with
ADO. If there are situations where there are problems, then it would help to
talk about them. However, it would not be correct to say that using #import
with ADO should always be avoided. Second, using the VC++ Extensions to ADO
greatly improves the readability of your code and reduces the amount of code
that you have to write to handle ADO recordsets. If you use CRecordset in
MFC or OLE DB Consumer templates, why wouldn't you do something similar for
ADO/VC++. If anyone is interested I can post a snippet of code that reduces
the "grotesque" recordset handling in ADO/VC++ down to something that uses
the ADO Extensions to VC++.
5. Why use ADO with VC++? It really comes down to a choice of technology.
The best reason that I have for using ADO with C++ is to reduce the
different technologies that multi-language development efforts use. If your
team is doing development in many different COM-enabled languages, then
there is a good chance that ADO is the only data access technology that is
common to all of these languages. I think it can greatly ease the
technology-learning and software maintenance if you can reduce the number of
different technologies that the team has to learn. I think it is possible to
write ADO/VC++, show to a VB programmer that is not C++ literate, and have
them be able to read/understand the code. Using other data access
technologies like OLE DB, I think it is less likely that you can do this.
So, on multi-language development efforts I will use ADO in C++ unless I
come across a reason not to use it. If I run into a situation where OLE DB
or db-library is more appropriate, then I will use it. This is much the same
as we do with other technologies (i.e., use C/C++ exclusively except if
there is a need to jump down to assembly language).
6. Why use OLE DB with VC++? If you need to write an OLE DB provider, then
you don't have much of a choice. If you are working on an all-VC++ and you
are already experienced with OLE DB, then it would probably make sense to
keep using it.legalni instalace BDE
[*] Petr Nalevka <nalevka(zv)fzu(tec)cz> - 29.6.1999 09:35:09
Ahoj,
potreboval bych ziskat legalni instalaci BDE, jedina cesta ktera mne
ted napada: naistalovat nejaky program, pri jehoz instalaci se
naistaluje i BDE. Nevite nekdo o necem takovem? Idealni by bylo
freeware.
Diky za kazdou odpoved
Petr Nalevka
GetVersionEx
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 29.6.1999 11:42:49
Ahoj,
nevite nekdo, jak v Delphi bezpecne zjistim jestli mam spusteny Win9x nebo WinNT.
Zkousim bool GetVersionEx(LPOSVERSIONINFO), ale to my vraci porad FALSE.
No a GetVersion(), vraci u WinNT 4.0 a Win95 Hi(GetVersion) = 0, Lo(GetVersion) = 4
a u Win98 Hi(GetVersion) = 10, Lo(GetVersion) = 4.
Takze od sebe nepoznam WinNT4.0 - Win95.
A nebo pouzivam funkci GetVersionEx(LPOSVERSIONINFO) spatne?
.....
var
verze:TOSVersionInfoA;
begin
if GetVersionEx(verze) then
Form1.Caption := IntToStr(verze.dwPlatformId); << a tady mi to vubec neprobehne, protoze
end; << GetVersionEx = false?
.....
Diky za kazdou pripominku
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
Format a array of const
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1999 11:51:32
Slavek Rydval wrote:
> procedure TfrmCasoveOmezeni.bbtnOkClick(Sender: TObject);
> var
> X: array of integer;
> begin {bbtnOkClick}
> SetLength (X, 33);
> X [0] := ID_O;
> X [1] := ID_Z;
> ...
> X [32] := integer (chckNeA.Checked);
>
> Format (sqlInsertIntoTimeTable, X);
> end; {bbtnOkClick}
>
> Pokud to pole bylo staticke, pak mi to ani neprelozil, pokud jej
> vytvarim dynamicky, buchne mi to s vyjimkou. Jak presne to mam
> zapsat?
Format(sqlInsertIntoTimeTable, [X[0], X[1], atd.]);
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
D 3C/S + MS SQL 7 a varchar(8000)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1999 11:51:32
<color><param>0100,0100,0100</param>Erik Salaj wrote:<color><param>7F00,0000,0000</param>> > :-) Obavam se, ze v tomto smeru js=
ou me informace dostatecne.
> > Dokonce se jiz pripravuji, ze budu tyto komponenty na podzim
> > skolit. :-)
>
> Potom je asi vsetko OK. Ja by som vsak rozhodnutie o uspesnosti
> resp. neuspesnosti akehokolvek produktu ponechal radsej na trh
> nez na predcasne uvahy, ked este nie su jasne pravidla hry.</color>To, o cem v tomto odstavci pises ty, je problem souteze mezi
komponentami od Borlandu a komponentami, ktere prodavas ty.
To, o cem pisu ja, je o rozdilu v pristupu ke zdrojum dat.<color><param>7F00,0000,0000</param>> > :-) Urcite povazuji ADO za lepsi c=
estu nez BDE (o MIDAS ani
> > nemluve). Kdyz uz se do toho pustili, meli jit vsak primo na OLE
> > DB, protoze ADO bude v rade pripadu pomalejsi nez stavajici BDE.
>
> Mozno na to mali dovod.</color>Myslim, ze duvod je tento - chteli to mit rychle hotove, aby to mo=
hli
dat do verze 5. Jiny rozumny duvod me nenapada. :-)<color><param>7F00,0000,0000</param>> > Ne. ADO je nadstavbou nad OLE DB, =
a zpomaleni vychazi prave z
> > hojneho pouzivani typu variant. OLE DB pracuje s "normalnimi"
> > typy, az na par vyjimek, ktere se vsak stejne musi zadavat pres
> > pretypovani variantu na "normalni" typ (tedy usetri se zde cas na
> > rozpoznani typu variantu).
>
> Podstatna je otazka, kolko casu sa usetri a co za to.</color>S OLE DB mam datove toky pod vyrazne vetsi kontrolou, coz mi
umozni lepe navrhnout vicevrstvou sitovou aplikaci (budu-li to umet,
ovsem :-))).<color><param>7F00,0000,0000</param>> > No vsak o tom celou dobu pisu. :-)=
S drobnou pripominkou, ze s
> > OLE DB je to prakticka moznost, ovsem "ponekud" :-) narocnejsi.
>
> Presne tak. Zase pre konkretne rozhodnutie je dolezita otazka,
> kolko casu resp. penazi znamena v praxi "o nieco" narocnejsi.</color>Ono take zalezi, jak se to uplatni v aplikaci. Jestlize v programu=
,
kde to chci uplatnit, soutezim na nasem malem pisecku s asi 5
konkurenty (coz je velice hodne), pak krome rychlosti vyvoje
aplikace tu hraje roli i rychlost behu, instalacni naroky a
progresivnost pouzite technologie. Jsem presvedcen o tom, ze
naklady se mi vrati tim, ze budu mit v tomto smeru konkurencni
naskok, a zaroven ze budu moct takto nabyte vedomosti dal
prodavat (skoleni atp.).
BTW - dotaz mimo tema - v souvislosti s Windows 2000, ktere
budou OLE DB prolezle, kolik lidi by melo zajem o proskoleni OLE
DB?<color><param>7F00,0000,0000</param>> > Na druhe strane ma OLE DB podstatn=
e vice moznosti nez ADO.
>
> Stale neviem, co konkretne tym myslis. Adonis 3.3, co sa tyka
> OLE DB obsahuje jedinu nepodstatnu funkciu: zistenie dostupnych
> OLE DB providerov.</color>Nepodstatnou? :-))) To patrne nevis, o cem to je...<color><param>7F00,0000,0000</param>> > Priklad: mam tabulku, dejme tomu c=
iselnicek, kde mam 10
> > ruznych poli. Z nejakeho duvodu se mi vice hodi to otevirat primo
> > pres tablename, nez pres query. Ale chci cist pouze dve polozky,
> > z toho jedna je deklarovana jako textova, ale muze tam byt vzdy
> > pouze cislo (takove pripady skutecne jsou). Takze v OLE DB
> > zadam, ze chci pouze tyto dve pole, a to cislo aby se mi vracelo
> > napriklad jako integer (a jako integer to budu take editovat a
> > ukladat). U ADO je to trosku zamotanejsi, protoze tam uz se typ
> > takto snadno neda ohlidat.
>
> Takuto vyhodu resp. moznost povazujem za dost nepodstatnu.</color>Ja nikoliv. Protoze v dusledku mi muze tohle usetrit dost prace s
kontrolami spravnosti. Coz je v pripade variantu znacna slabina.<color><param>7F00,0000,0000</param>> > Technicka poznamka - rozhrani je p=
rave OLE DB, ADO je
> > nadstavba nad OLE DB. To jen pro ujasneni pojmu. Z tohoto titulu
> > tedy nemuze byt ADO vykonnejsi ani poskytovat vic funkci (leda by
> > tam byly pouzity funkce mimo pusobeni OLE DB, o cemz uprimne
> > pochybuji).
>
> Tu su informacie priamo z dokumentacie:
> ADO je APLIKACNE ROZHRANIE (application programming interface (API))
> OLE DB je SYSTEMOVE ROZHRANIE (system-level programming interface)</color>:-) A tohle je hned prvni veta v dokumentaci:
<color><param>0100,0100,0100</param>Microsoft� ActiveX� Data Objects (ADO)=
enable your client applications to
access and manipulate data in a database server through any OLE DB provide=
r. </color>Dalsi vec je, ze OLE DB dosahne dal nez jen na databaze.<color><param>7F00,0000,0000</param>> Moj pohlad na OLE DB je:
> OLE DB je mnozina COM interface-ov, ktore definuju, ako maju vyzerat
> jednotlive komponenty UDA technologie aby navzajom mohli spolupracovat a
> teda aby to vsetko spolu fungovalo. OLE DB teda v prvom rade definuje
> akusi architekturu tohto systemu a aj podla mna urcene hlavne na to, ak =
je
> potrebne tento system doplnit o dalsie komponenty (napr. vytvorit novy O=
LE
> DB provider). Nie na pouzivanie tohto systemu v aplikaciach, na to je
> urcene aplikacne rozhranie ADO.</color>V principu ano. OLE DB interfejsy lze srovnat urovnove s Win API f=
unkcemi.
Tvoje srovnani s assemblerem je pak programovani nad zcela konkretnimi
ovladaci k te ktere databazi.<color><param>7F00,0000,0000</param>> > Testovanim ADO se zaroven testuje =
OLE DB, z vyse popsanych
> > duvodu. :-) Souhlasim, ze pro radu uloh je lepsi pouzit primo ADO. Ale
> > pro dalsi radu uloh (a hlavne programovacich jazyku) je vyhodnejsi jit
> > hloubeji a pouzit OLE DB.
>
> No neviem, pre aky programovaci jazyk by mohlo byt OLE DB
> vyhodnejsie voci ADO, ked ADO je priamo navrhnute a vytvorene
> prave pre ten ucel, aby sa dalo co najjednoduchsie a najvyhodnejsie
> pouzit pri programovani aplikacii. Povedal by som, ze OLE DB
> je vyhodnejsie (snad aj nutne) pouzit predovsetkym v specialnych
> pripadoch programovania UDA subsystemov a to hlavne
> v jazyku C++.</color>ADO je navrhnute, aby se dalo pouzit zejmena ve Visual Basicu. Vsi=
mni si, ze
priklady na ADO jsou psane prave ve VB. Ne nahodou jsou v C++ priklady
predevsim v OLE DB. Object Pascal je temer stejne mocny jako C++, takze
vzhledem k OLE DB ma vyrazne bliz k C nez k VB.
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
udalost OnFilterRecord znovu
[*] jdanek(zv)fnbrno(tec)cz - 29.6.1999 12:04:09
Zdravim,
zkousim to opet. Opravdu nikdo nevi, zda je mozne pouzit regulerne nad
Tabulkou
(pouzivam konkretne DBF tabulky v D3) soucasne Table.Filter a zaroven
vyuzivat
vysledek udalosti OnFilterRecord?
Jestli ano, tak v jakem vztahu je vysledek udalosti OnFilterRecord,
ktery je
v promenne Accept k vysledku vyrazu ve Filtru? Je to "and" nebo to vubec
takto
nejde?
Poradte mi. Ja to tak zkousim pouzivat, a nekdy to funguje jako "and" a
jindy
to nema logiku a blbne mi mi.
Diky za kazdou pomoc
Jozka
jdanek(zv)fnbrno(tec)cz
Tlacitko TBitBtn
[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 29.6.1999 12:22:41
Dobry den.
Nevite prosim nekdo je-li mozne ve formulari menit barvu tlacitka TBitBtn zadanim treba TBitBtn.color tak
aby kdyz si na toto tlacitko dojedu tabulatorem se zmenila barva pozadi tohoto tlacitka na nekterou mnou
zadanou?
Diky za odpovedi.
Nosek Libor
GetVersionEx
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 29.6.1999 12:39:57
Ahoj,
ja to delam takhle:
�
var
� OSVersion������� : TOSVersionInfo;
� OSVersion.dwOSVersionInfoSize := sizeof(OSVersion);
� if GetVersionEx(OSVersion) then
� begin
��� if OSVersion.dwPlatformId in [VER_PLATFORM_WIN32s,
VER_PLATFORM_WIN32_WINDOWS] then
��� begin������������������������������������
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
��� end;��������������������������������������������� potrebne�konstanty
jsou v helpu k Win API
� end;
�
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
-----P�vodn� zpr�va-----
Od: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
Odesl�no: 29. �ervna 1999 11:43
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: GetVersionEx
Ahoj,
�
��� nevite nekdo, jak v Delphi bezpecne zjistim jestli mam spusteny
Win9x nebo WinNT.
Zkousim bool GetVersionEx(LPOSVERSIONINFO), ale to my vraci porad�
FALSE.
No a GetVersion(), vraci u WinNT 4.0 a Win95 Hi(GetVersion) = 0,
Lo(GetVersion) = 4
a u Win98 Hi(GetVersion) = 10, Lo(GetVersion) = 4.
Takze od sebe nepoznam WinNT4.0 -� Win95.
A nebo pouzivam funkci GetVersionEx(LPOSVERSIONINFO) spatne?
.....
var
verze:TOSVersionInfoA;
begin
if GetVersionEx(verze) then�������������������������������������
Form1.Caption := IntToStr(verze.dwPlatformId);������� << a tady mi to
vubec neprobehne, protoze
end;��������������������������������������������������������������������
<< GetVersionEx = false?
.....
�
������������������������������������������������������������������������
������������������� Diky za kazdou pripominku
������������������������������������������������������������������������
����������������������������������� Jirka Virt
������������������������������������������������������������������������
����������������������������������� email: virt(zv)pepa(tec)cz
������������������������������������������������������������������������
����������������������������������� www.pepa(tec)cz
udalost OnFilterRecord znovu
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 29.6.1999 13:14:45
> Jestli ano, tak v jakem vztahu je vysledek udalosti OnFilterRecord,
>ktery je v promenne Accept k vysledku vyrazu ve Filtru? Je to "and" nebo to
vubec
>takto nejde? Poradte mi. Ja to tak zkousim pouzivat, a nekdy to funguje jako
"and" a
>jindy to nema logiku a blbne mi mi.
V jakych pripadech to blbne.
Podle helpu i z logiky veci by to mel byt prunik.
Nezapomen na Filtered.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
GetVersionEx
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 29.6.1999 12:33:18
Tak jaks to napsal mne to taky neslo. Uz je to nastesti za nas udelano v Sysutils:
var verze: string;
if Win32Platform = 0 then
verze := 'Win32s'
else
if Win32Platform = 1 then
verze := 'Windows 95/98'
else
verze := 'Windows NT';
Bye T.B.
Od: Jiri Virt <virt(zv)pepa(tec)cz>
P�edm�t: GetVersionEx
Ahoj,
nevite nekdo, jak v Delphi bezpecne zjistim jestli mam spusteny Win9x nebo WinNT.
Zkousim bool GetVersionEx(LPOSVERSIONINFO), ale to my vraci porad FALSE.
No a GetVersion(), vraci u WinNT 4.0 a Win95 Hi(GetVersion) = 0, Lo(GetVersion) = 4
a u Win98 Hi(GetVersion) = 10, Lo(GetVersion) = 4.
Takze od sebe nepoznam WinNT4.0 - Win95.
A nebo pouzivam funkci GetVersionEx(LPOSVERSIONINFO) spatne?
.....
var
verze:TOSVersionInfoA;
begin
if GetVersionEx(verze) then
Form1.Caption := IntToStr(verze.dwPlatformId); << a tady mi to vubec neprobehne, protoze
end; << GetVersionEx = false?
.....
Diky za kazdou pripominku
Jirka Virt
Format a array of const
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.6.1999 13:39:04
> Format(sqlInsertIntoTimeTable, [X[0], X[1], atd.]);
To je presne to, co jsem chctel obejit (proto jsem si take to pole
delal).
Slavek
> Zbysek Hlinka
-------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------------------------------
InstallShield
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 29.6.1999 13:48:49
Zdravim...
... obrazkum se v IS rika Billboard a nastavis je v menu IS Dialog Boxes->Billboards->Settings a vyberes adresar, kde mas obrazky, ktere se jmenuji SETUP1.BMP, SETUP2.BMP (...)
-----P�vodn� zpr�va-----
Od: Jaromir Svoboda <svoboda(zv)okfas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 12:07
P�edm�t: InstallShield
Ahoj,
Potreboval bych behem instalace SW zobrazit uzivateli nejake obrazky.
Nevim jak se to v InstallShieldu dela. Mam na mysli pri vlastnim kopirovani
(bezi jiz Progress Bar).
Predem dik. J.Svoboda
mailto:svoboda(zv)okfas(tec)cz
QR a PagePro6
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 29.6.1999 13:59:57
Asi pred rokem mi to taky delalo a vim ze pomohlo preinstalovat driver
tiskarny novou verz� a nebo nejak�m jinym driverem pro jinou tiskarnu,
instaloval mi to bohuzel kolega se kterym uz bohuzel nejsem v kontaktu. Zkus
se ale podivat na stranky QuSoftu. Vim ze konkretne tohle delala jen tahleta
tiskarna a to jeste vicemene nahodne - asi tam nechali litat volne nejaky
bitik.
> -----P�vodn� zpr�va-----
> Od: Otakar �koloud [mailto:otakar(zv)ssakhk(tec)cz]
> Odesl�no: 29. �ervna 1999 11:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: QR a PagePro6
>
>
> Dobry den,
>
> Namate nekdo tuseni pro tiskarna Minolta PagePro6 tiskne v
> QuickRep (verze
> 2.0) DetailBand s cernym pozadim a to jenom na prvni tiskove strane.
>
> Dik.
>
> Otakar Skoloud
> Tlacitko TBitBtn
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 29.6.1999 13:59:41
Ahoj,
blby je, ze tlacitko nema property Color, takze si bud
zkus stahnout nejakou jinou komponentu (DSP, Torry), urcite
nejakou najdes, nebo si udelej vlastni (lze k tomu asi pouzit
i TPanel, kde na onMouseDown zmenis okraj na Lowered,
na onMouseUp zpet na Raised, na onEnter zmenis barvu na Tebou
pozadovanou a na onExit zase zpet tu puvodni)
Dobra.
> ----------
> Nevite prosim nekdo je-li mozne ve formulari menit barvu tlacitka
> TBitBtn
> zadanim treba TBitBtn.color tak aby kdyz si na toto tlacitko dojedu
> tabulatorem se zmenila barva pozadi tohoto tlacitka na nekterou mnou
> zadanou?
> QR a PagePro6
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 29.6.1999 14:01:16
...mel jsem podobny problem u tiskaren OKI... ale jenom kdyz jsem pouzil
Frame.DrawTop:=true nebo Frame.DrawBottom:=true.... zkusil jsem zmenit o par
bodu jejich polohu.... a prestalo to delat.... / preview vsak vypadal
normalne/
jinak ti vic nepovim....
(*-------------------------------------------------------
Karel Pechanec; kapecha(zv)mias(tec)cz
MIA Software s.r.o.; www.mias(tec)cz
-------------------------------------------------------*)
-----P�vodn� zpr�va-----
Od: Otakar �koloud <otakar(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 12:44
P�edm�t: QR a PagePro6
>Dobry den,
>
>Namate nekdo tuseni pro tiskarna Minolta PagePro6 tiskne v QuickRep (verze
>2.0) DetailBand s cernym pozadim a to jenom na prvni tiskove strane.
>
>Dik.
>
>Otakar Skoloud
>GetVersionEx
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.6.1999 14:02:03
> nevite nekdo, jak v Delphi bezpecne zjistim jestli mam spusteny Win9x nebo WinNT.
>Zkousim bool GetVersionEx(LPOSVERSIONINFO), ale to my vraci porad FALSE.
pravdepodobne nemas nastavenu delku struktury pred predanim do GetVersionEx (dwOSVersionInfoSize)
Zdravi
D. Toman
Bitmapa komponenty
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 29.6.1999 14:10:33
Udelas soubor zdroj� komponenty - soubor *.dcr s nazvem pred extenzi stejnym
jako je nazev souboru *.pas ve kterem mas registrovanou komponentu. Bitmapu
komponenty pouzitou v tom souboru pak nazves stejne jako trida komponenty
(myslim ze se vsemi pismeny velkymi). Pak normalne nainstalujes komponentu a
pokud jsi dodrzel vyse uvedeny postup objevi se tvoje bitmapa v palete
komponent. Pokud ji uz mas v nejakem balicku tak tam *.dcr pridej rucne a
nebo se ti tam myslim po kompilaci balicku prida sam pokud ho budes mit ve
stejnem adresari jako je soubor s registraci komponenty.
DO SUBJECTU MAILU PIS VZDYCKY O CO JDE NEBO SE V TECH NEOZNACENYCH MAILECH
ANI SVINA NEVYZNA.
> -----P�vodn� zpr�va-----
> Od: Martin Fiala [mailto:oldjojos(zv)excite.com]
> Odesl�no: 29. �ervna 1999 12:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t:
>
>
> Ahoj,
>
> muze mi nekdo poradit jak si muzu k me vlastni komponente
> dat vlastni ikonu
> do delhpi Component palette. Jak se to dela?
>
> Diky Martin.
>
>
>
>
>
> _______________________________________________________
> Get your free, private email at http://mail.excite.com/
> legalni instalace BDE
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 29.6.1999 14:15:23
Co myslis tim pojmem legalni instalace BDE. Pokud mas legalne Delphi tak si
legalne nainstaluj BDE. Pokud nemas legalne Delphi pak stejne nesmis
distribuovat BDE.
> -----P�vodn� zpr�va-----
> Od: Petr Nalevka [mailto:nalevka(zv)fzu(tec)cz]
> Odesl�no: 29. �ervna 1999 11:35
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: legalni instalace BDE
>
>
> Ahoj,
> potreboval bych ziskat legalni instalaci BDE, jedina cesta ktera mne
> ted napada: naistalovat nejaky program, pri jehoz instalaci se
> naistaluje i BDE. Nevite nekdo o necem takovem? Idealni by bylo
> freeware.
> Diky za kazdou odpoved
> Petr Nalevka
> GetVersionEx
[*] Pavel �im��ek - 29.6.1999 14:21:19
-----P�vodn� zpr�va-----
Od: Jiri Virt <virt(zv)pepa(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 13:31
P�edm�t: GetVersionEx
Ahoj,
nevite nekdo, jak v Delphi bezpecne zjistim jestli mam spusteny Win9x nebo WinNT.
Zkousim bool GetVersionEx(LPOSVERSIONINFO), ale to my vraci porad FALSE.
No a GetVersion(), vraci u WinNT 4.0 a Win95 Hi(GetVersion) = 0, Lo(GetVersion) = 4
a u Win98 Hi(GetVersion) = 10, Lo(GetVersion) = 4.
Takze od sebe nepoznam WinNT4.0 - Win95.
A nebo pouzivam funkci GetVersionEx(LPOSVERSIONINFO) spatne?
.....
var
verze:TOSVersionInfoA;
begin
if GetVersionEx(verze) then
Form1.Caption := IntToStr(verze.dwPlatformId); << a tady mi to vubec neprobehne, protoze
end; << GetVersionEx = false?
.....
Diky za kazdou pripominku
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
Musis pred zavolanim GetVersionEx nastavit
Verze.dwOSVersionInfoSize:= SizeOf(Verze);
Je to popsano v helpu, ale jinak kdyz si tam pridas tenhle radek tak to myslim bude fungovat.
Pavel
Ikona komponenty
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 29.6.1999 14:23:29
.. udelej si treba v Image Editoru resource file RES a vytvor v nem bitmapu
o velikosti
24x24 barev . Bitmapu nazvy podle typu tve kompnenty (napr. TTvojeKoponenta)
a takovy RES soubor uloz do stejneho adresare jako tvoje unita pod stejnym
jmenem jako ma tvoje unita ale s koncovkou DCR ....pak staci nainstalovat a
zobrazi se ti pod tvym obrazkem
(*-------------------------------------------------------
Karel Pechanec; kapecha(zv)mias(tec)cz
MIA Software s.r.o.; www.mias(tec)cz
-------------------------------------------------------*)
-----P�vodn� zpr�va-----
Od: Martin Fiala <oldjojos(zv)excite.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 14:03
>Ahoj,
>
>muze mi nekdo poradit jak si muzu k me vlastni komponente dat vlastni
ikonu
>do delhpi Component palette. Jak se to dela?
>
>Diky Martin.
>
>
>
>
>_______________________________________________________
>Get your free, private email at http://mail.excite.com/
>par otazociek
[*] Lubos <bruce(zv)pobox.sk> - 29.6.1999 14:31:32
Caute Delfini.
Mam zopar otazociek.
1) Hladam funkciu na ziskanie cisla sietovej karty a serioveho cisla HDD.
Potreboval by som nakopnut spravnym smerom, nezaskodil
by aj kusok zdrojaku.
2) Nemate niekto program do win, na presmerovanie vsetkych poziadaviek
smerujucich na CD do zvoleneho adresara ? Cosi ako SUBST na CD.
Nie FakeCD.
vdaka.
/LH
QR a PagePro6
[*] tomas.mazurek(zv)vitkovice(tec)cz - 29.6.1999 12:42:41
Hello,
taky se nam to stalo. Vtip byl v tom, ze urcity cas to fungovalo OK a
pak to zacalo blbnout. Uzivatel prisahal, ze nic nedelal...
Vyresili jsem to reinstalaci tiskarny. Ovsem po odinstalovani
tiskarny jsem musel projit registry a odmazat vse, co souviselo s
onou tiskarnou. Zbyla tam spousta odkazu...
A pak ji znovu nainstalovat. Od te doby je vse opet
OK. Podotykam ze slo o D1 a QR1.1a. Pokud jsem instalaci a
reinstalaci provadel pouze pres inst. program, nic se nezmenilo.
Tomas
Tlacitko TBitBtn
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 29.6.1999 14:53:20
No zrovna BitBtn neni na zmenu barvy staveny. Musis si odvodit komponentu z
jineho predka a obslouzit zpravy CM_MOUSEENTER a CM_MOUSELEAVE.
-----P�vodn� zpr�va-----
Od: Libor Nosek [mailto:nosek(zv)ujf.cas(tec)cz]
Odesl�no: 29. �ervna 1999 12:23
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Tlacitko TBitBtn
Dobry den.
Nevite prosim nekdo je-li mozne ve formulari menit barvu tlacitka TBitBtn
zadanim treba TBitBtn.color tak
aby kdyz si na toto tlacitko dojedu tabulatorem se zmenila barva pozadi
tohoto tlacitka na nekterou mnou
zadanou?
Diky za odpovedi.
Nosek Libor
Memo.SaveTofile ale s appendem
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 29.6.1999 15:10:43
Napada nekoho jak nejsnadneji udelat subj?udalost OnFilterRecord znovu
[*] jdanek(zv)fnbrno(tec)cz - 29.6.1999 15:10:25
Blbne mi to tehdy, kdyz mam nastaveno vse jak popisuji a nad DbGridem, kde
je vyfiltrovano to co potrebuji vyvolam DblClickem dalsi okno, ve kterem
edituji
prave aktualni zaznam Tabulky zobrazovane v DbGridu. Pri zapisu hodnot
tohoto zaznamu mi pak Delphi napisi hlasku "No current record".
Vypozoroval jsem,
ze se mi toto deje prave tehdy, kdyz pouzivam k Table.Filter i udalost
OnFilterRecord.
Jinak mi to takovou hlasku nepise a funguje to normalne. Kdyz totiz zmenim
hodnoty,
ktere se memi pouze v udalosti OnFilterRecord, tak to vypada, jako by si
ten filter z teto udalosti
pamatoval od minula.
Konkretne:
FindStr : String;
......
Table.Filter:='Mesto=''Praha''';
FindStr:='na';
Procedure OnFilterRecord........ ...
begin
Accept:=Pos(FindStr,Dm.Table.FieldByName('Ulice').AsString) > 0;
end;
Kdyz menim vyhledavany retezec (FindStr), tak jako by si to pamatovalo ten
predchozi.
viz vyse
Mam tam neco spatne?
Jozka
kastner(zv)infos(tec)cz na 29.06.99 13:14:45
Odpov�zte pros
Content-type: text/plain; charset�o-8859-1
Content-transfer-encoding: quoted-printable
�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v
Content-type: text/plain; charset�o-8859-2
Content-transfer-encoding: quoted-printable
�dom
Content-type: text/plain; charset�o-8859-1
Content-transfer-encoding: quoted-printable
�: Josef Dan
Content-type: text/plain; charset�o-8859-2
Content-transfer-encoding: quoted-printable
�k/FNBrno)
P�edm�t: Re: udalost OnFilterRecord znovu
Content-type: text/plain; charset�-ascii
> Jestli ano, tak v jakem vztahu je vysledek udalosti OnFilterRecord,
>ktery je v promenne Accept k vysledku vyrazu ve Filtru? Je to "and" nebo
to
vubec
>takto nejde? Poradte mi. Ja to tak zkousim pouzivat, a nekdy to funguje
jako
"and" a
>jindy to nema logiku a blbne mi mi.
V jakych pripadech to blbne.
Podle helpu i z logiky veci by to mel byt prunik.
Nezapomen na Filtered.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
Memo.SaveTofile ale s appendem
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 29.6.1999 15:16:27
A co takhle SaveToStream na FileStream otevrenym jako append...
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
-----P�vodn� zpr�va-----
Od: Radoslav Krehlik [mailto:heretic(zv)softok(tec)cz]
Odesl�no: 29. �ervna 1999 15:11
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Memo.SaveTofile ale s appendem
Napada nekoho jak nejsnadneji udelat subj?MDI form z SDI formu
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 29.6.1999 15:20:41
Ahoj,
pokud se Ti podari rozlustit, jak se da umistit to MDI child do DLL tak mi
napis prosim Te reseni.
Zkousel jsem to, ale dostal jsem hlasku: No MDI forms are currently active!
Diky moc
Michal HAMPL
R E P O R T B U I L D E R
[*] delphi(zv)htkpro(tec)cz - 29.6.1999 15:37:42
Reportbuilder lze koupit u nas na www.dev-shop(tec)cz
S pozdravem
Jan Kadlecek
>Zdravim....
>nevite nekdo...kdo u nas v CR objednat ci koupit ReportBuilder (v USA stoji
>US $249.00 ) od Digital Metaphors.
>Popripade kdo zvas s timto nastojem (s komponenty) ma skusenosti, zejmena v
>oblasti DLL....
>Predem diky...
>
>(*********************
>Karel Pechanec
>kapecha(zv)mias(tec)cz
>MIA Software s.r.o
>www.mias(tec)cz
>*********************)
>
>
>MIME ��st:
>Content-type: text/html; charset="iso-8859-2"
>MIME ��st zaps�na jako p�ipojen� soubor:
> FILE0001.HTM
>
----------------------------------------------------------------------------
legalni instalace BDE
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 29.6.1999 15:50:09
Ahoj,
16-ti bitove BDE vyslo jednou na najekem Chip CD
(jsou to dve diskety) - muzu poslat. A pokud by jsi
chtel 32-bitove, myslim, ze neni nelegalni, pokud
Ti ho nekdo, kdo ma legalne Delphi posle. Kdyby
to bylo nelegalni, predpokladam, ze se nekdo tady
v konferenci ozve (opravdu si nejsem jisty, jestli
lze distribuovat samotne BDE), tak Ti napisu jednu
specialni databazovou aplikaci a dam Ti ji zadarmo
(coz jako autor muzu; a jako majitel Delphi 3 Prof.
s ni muzu distribuovat i BDE)
Dobra.> > Ahoj,
> > potreboval bych ziskat legalni instalaci BDE, jedina cesta ktera mne
> > ted napada: naistalovat nejaky program, pri jehoz instalaci se
> > naistaluje i BDE. Nevite nekdo o necem takovem? Idealni by bylo
> > freeware.
> > Diky za kazdou odpoved
> > Petr Nalevka
> >
> Minimalizace do SysTraye a hlavne obnova
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 29.6.1999 16:13:41
Ahoj
Kdyz posles zpravu predchozi instanci aplikace a ta si ji osetri a obnovi
aplikaci.
Myslim ze by se dalo pouzit handle HPrevInst.
Michal HAMPL
legalni instalace BDE
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 29.6.1999 16:13:56
Ahoj,
konecne negdo se smyslem pro jumor :-)))))))))
Marek Soukup
Petr Nalevka wrote:
> Ahoj,
> potreboval bych ziskat legalni instalaci BDE, jedina cesta ktera mne
> ted napada: naistalovat nejaky program, pri jehoz instalaci se
> naistaluje i BDE. Nevite nekdo o necem takovem? Idealni by bylo
> freeware.
> Diky za kazdou odpoved
> Petr Nalevka
Delphi3 & ATI Rage 128
[*] Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> - 29.6.1999 17:25:51
----- Original Message -----
From: Jan Fiala <fiala(zv)infos(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 28, 1999 11:23 AM
Subject: Re: Delphi3 & ATI Rage 128
>
> ----- P�vodn� zpr�va -----
> Od: Dan Komosny <dan(zv)list.skm.vutbr(tec)cz>
>
>
> > Ty ovladace jsou pekne stare.Od tohoto ovladace uz vyslo spousty novych
> > ovladacu.
> > Nesmis totiz hledat na strankach atitech. Tam nic neni. ( mozna tak
> ovladace
> > ze 4.11 :) )
>
> Pokud vim, tohle je oficialni nejnovejsi ovladac. Dokonce neni ani novejsi
> beta verze. 4.11 nema nic spolecneho s datumem. Pokud vis o ovladacich k
ATI
> kartam, ktere jsou novejsi nez ty na strankach od ATI, dej vedet.
http://hardwarepros.f3d.net/
http://www.demonews.com/
http://www.reactorcritical.com/
Zde jsou vzdy "horke" novikny , mimo jine i ovladace. Pokud nejsou dotycne
veci zobrazeny na hlavni strance, tak v historii je najdes.
Potom jeste muzes zkusit atitech special drivers, pokud chces specialni
ovladace.
( na gamesy ) http://www.atitech.com/ca_us/spdrivers/index.html . Tyto
ovladace se bohuzel nevyskytuji v sekci pro evropu.
Dan
>
> ===============================
> ing. Jan Fiala fiala(zv)infos(tec)cz
> Prog-Soft s.r.o. Plzen
> INFOS - informacni system pro napojare
> ===============================ADO vs OLE DB (Was: D 3C/S + MS SQL 7 a varchar(80
[*] Erik Salaj <winsoft(zv)napri.sk> - 29.6.1999 18:03:50
> Ten muj priklad nebyl asi nejlepsi. Zkusim to jinak. Je to asi jako
> kdyby jsi stal pred problemem napsat VCL a ted se rozhodoval, jestli
> v ni budes volat primo API nebo ji postavis treba na OWL, tedy na
> jakemsi "mezirozhrani". Ja nerikam ze by jsi mel programovat primo v
> assembleru nebo pouzivat primo OLE DB, to asi zadny normalni clovek
> delat nebude. Jenze pokud uz pises nejakou vyssi knihovnu, a o tom
> je myslim tato diskuze, tak je prece vyhodne z ni volat primo funkce
> na te nejnizsi urovni, i kdyz to muze byt pro tvurce tech komponent
> narocnejsi.
Ak by som mal k dispozicii OWL, pripadne ine objektove rozhranie, tak
by som urcite zvazil, ci by nebolo z urciteho hladiska vyhodnejsie to
pouzit, nez programovat to iste este raz (hlavne ak na to ani nemam
dost moznosti, napr. vela dobrych programtorov, spustu casu a penazi).
Urcite by som o tom uvazoval a hned to neodmietal koli tomu, ze je to
dalsie rozhranie naviac. Pretoze rozhrania pisane v C++ (OWL, MFC)
mozu byt velmi efektivne (vykonne) a v mnohych pripadoch su podstatnym
prinosom pri pisani softwaru. Nieco ine by bolo povedzme mat rozhranie
pisane povedzme v Basicu alebo Jave bez dobreho kompilatora, vtedy
by som asi taku moznost dost rychlo zamietol, pretoze vysledok musi
byt samozrejme aj rozumne pouzitelny.
Hlavnym problemom je tu vsak nieco ine: kazdy objektovy jazyk definuje
a implementuje objekty odlisne a spolupraca tychto objektov je velmi
komplikovana. Takze hlavnym problemom by bola nie efektivita, ale to,
ci by pouzitie dvoch odlisnych objektovych modelov nesposobil viac
komplikacii ako uzitku. Prikladom moze byt napr. C++ Builder, ktory
koli spolupraci s VCL pisanej v Object Pascale obsahuje jednak separatny
kompilator Pascalu a dalej koli moznosti priamo programovat VCL objekty
a komponenty aj rozsirenia samotneho jazyka C++. Podla mna to nie je
dobre riesenie a vysledok (nazval by som to poriadny chaos) tomu
aj odpoveda.
Najhorsie na tom je, ze k dispozicii je velmi dobra technologia, ktora
presne tieto problemy riesi: COM, akurat by ju bolo treba pouzit. Nie
je teraz podstatne preco to Borland nepouzil, mozu byt na to rozne
dovody. Ale faktom zostava, ze COM by mohol priniest take
vlastnosti do tvorby softwaru, ktore by vyriesili spustu terajsich
problemov. Ak by napr. OWL bolo riesenie COM (resp. ActiveX)
technologiou, urcite by vobec nebolo potrebne VCL ale radsej miesto
toho rozsirit Delphi o slusnu COM/ActiveX podporu, aby to bolo mozne
priamo a efektivne pouzit (a rovnako aj v C++, vo VB, ...). Je skoda,
ze to takto Borland nerobi, urcite je to daleko lepsie ako pristup pouzity
v C++ Builderi.
Erik Salaj
PLUGINy
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 29.6.1999 18:06:06
Cau fsichni priznifci delphi
Mam v planu vytvaret aplikaci, ktera by mela jit rozsirovat pomoci PLUGINu.
Priklad:
Mam hlavni okno, ktere ma prazdnou plochu a na tu plochu potrebuji
nasmerovat ten plugin. Neco jako MDIForm a plugin by byl MDIChild.
Otazka:
Jake jsou varianty a jake jejich klady a zapory.
(Chtel jsem pouzit DLL, ve kterem bude umisten MDIChild, ale moc se mi
nedarilo)
Predem diky za odpovedi
Michal HAMPL
PrintScreen
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 29.6.1999 18:24:49
Zdravim.
Nemate nekdo zkusenost, jak v aplikaci pod Delphi4 zachytit stisknuti
klavesy PrintScreen?
Form.KeyPreview/OnShortCut na to nefunguje, zpravu wm_KeyDown to bud
negeneruje, nebo ji neumim zachytit. Mam podezreni, ze ji "sezere" system a
aplikaci ji ani neposle, hamoun jeden.
Diky za kazdy napad.
JK
Format a array of const
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1999 18:47:30
Slavek Rydval wrote:
> > Format(sqlInsertIntoTimeTable, [X[0], X[1], atd.]);
> To je presne to, co jsem chctel obejit (proto jsem si take to pole
> delal).
Tak potom zkus (ovsem radim bez jakekoliv zaruky :) treba tohle:
Format(sqlInsertIntoTimeTable, (zv)X);
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
ADO vs OLE DB
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1999 18:47:30
mjuri(zv)gratex.sk wrote:
> Takze na temu OLEDB vs ADO je tu diskusia z DCOM\ATL listu.
> (Dufam ze nebude vadit ze sa tam spomina VC++ ...)
>
> Zaver celej diskusie bol taky ze ADO/VC++ je vyhodnejsia kombinacia
> ak ide o vyvoj aplikacii, rychlost vyvoja aplikacii, dobu zvladnutia
> technologie.
> OLEDB/VC++ (resp ATL OLEDB templates) je najvyhodnejsie pre pisanie
> ovladacov a
> bulk data operacie.
>
> Samotny text diskusie:
> If I were just a casual browser of the DCOM/ATL mailing lists, Microsoft
> newsgroups, and Microsoft Systems Journal I could easily get the ...
Vsak jsem to uz vlastne psal. Jestlize budu chtit rychle nejake
pripojeni, pouziju ADO, a to primo. Pro vyvoj vicenasobne
pouzitelnych komponent vidim jako vhodnejsi OLE DB.
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
Interface
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.6.1999 18:47:31
Ahoj,
nevite nekdo, jak zaregistrovat interface, aby se dalo zakompilovat
do balicku a odtamtud inicializovat?
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
D 3C/S + MS SQL 7 a varchar(8000)
[*] Erik Salaj <winsoft(zv)napri.sk> - 29.6.1999 20:28:03
> > Na druhe strane ma OLE DB podstatne vice moznosti nez ADO.
>
> Stale neviem, co konkretne tym myslis. Adonis 3.3, co sa tyka
> OLE DB obsahuje jedinu nepodstatnu funkciu: zistenie dostupnych
> OLE DB providerov.
Nepodstatnou? :-))) To patrne nevis, o cem to je...
Z hladiska Adonisu ide o uplne nepodstatnu funkciu, ktora je tam len na to,
aby sa pri vybere providera v case navrhu zobrazili pre programatora iba
nainstalovane providery. Najnovsi Adonis pouziva priamo Microsoft DataLink
okno, v ktorom sa moze cele connection vcitane providera vytvarat interaktivne
a aj otestovat spojenie, takze ten vyber providera uz asi nikto velmi ani nepouziva.
O tejto funkcii viem toho dost, kedze som ju aj sam navrhoval, pisal, ....
> Takuto vyhodu resp. moznost povazujem za dost nepodstatnu.
Ja nikoliv. Protoze v dusledku mi muze tohle usetrit dost prace s kontrolami spravnosti. Coz je v pripade variantu znacna slabina.
Otazne je, ci je to dostatocny dovod pre vyber pouzitej technologie. Ci usetrenie urcitej
prace v jednej oblasti nesposobi narast v inej.
:-) A tohle je hned prvni veta v dokumentaci:
Microsoft� ActiveX� Data Objects (ADO) enable your client applications to access and manipulate data in a database server through any OLE DB provider.
Neviem, co si tym chcel povedat.
Dalsi vec je, ze OLE DB dosahne dal nez jen na databaze.
To je samozrejme a rovnako to plati aj pre ADO.
V principu ano. OLE DB interfejsy lze srovnat urovnove s Win API funkcemi. Tvoje srovnani s assemblerem je pak programovani nad zcela konkretnimi ovladaci k te ktere databazi.
Az na to, ze s WinAPI nenapisem ziadny driver, kdezto s OLE DB ano. Snad tu
vidno ten rozdiel, ze WinAPI je aplikacne a OLE DB systemove rozhranie.
ADO je navrhnute, aby se dalo pouzit zejmena ve Visual Basicu. Vsimni si, ze priklady na ADO jsou psane prave ve VB. Ne nahodou jsou v C++ priklady predevsim v OLE DB. Object Pascal je temer stejne mocny jako C++, takze vzhledem k OLE DB ma vyrazne bliz k C nez k VB. Treba si uvedomit, ze priklady pre OLE DB vo Visual Basicu je zbytocne hladat ;-). A jednoduchsie sa pochopi
kratka funkcia vo Visual Basicu aj pre C-ckara ako opacne. Takze je daleko rozumnejsie ADO priklady
robit vo Visual Basicu.
Erik Salaj
udalost OnFilterRecord znovu
[*] Jaro <jaro(zv)sinea(tec)cz> - 29.6.1999 21:23:02
Zkus pred zmenou vypnout filtr a potom ho znovu zapnout
Jaro
-----P�vodn� zpr�va-----
Od: jdanek(zv)fnbrno(tec)cz <jdanek(zv)fnbrno(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 16:12
P�edm�t: Re: udalost OnFilterRecord znovu
>
>Blbne mi to tehdy, kdyz mam nastaveno vse jak popisuji a nad
DbGridem, kde
>je vyfiltrovano to co potrebuji vyvolam DblClickem dalsi okno, ve
kterem
>edituji
>prave aktualni zaznam Tabulky zobrazovane v DbGridu. Pri zapisu
hodnot
>tohoto zaznamu mi pak Delphi napisi hlasku "No current record".
>Vypozoroval jsem,
>ze se mi toto deje prave tehdy, kdyz pouzivam k Table.Filter i
udalost
>OnFilterRecord.
>Jinak mi to takovou hlasku nepise a funguje to normalne. Kdyz totiz
zmenim
>hodnoty,
>ktere se memi pouze v udalosti OnFilterRecord, tak to vypada, jako
by si
>ten filter z teto udalosti
>pamatoval od minula.
>
>Konkretne:
>
> FindStr : String;
>
>......
>
> Table.Filter:='Mesto=''Praha''';
> FindStr:='na';
>
> Procedure OnFilterRecord........ ...
> begin
> Accept:=Pos(FindStr,Dm.Table.FieldByName('Ulice').AsString)
> 0;
> end;
>
>Kdyz menim vyhledavany retezec (FindStr), tak jako by si to
pamatovalo ten
>predchozi.
>viz vyse
>
>Mam tam neco spatne?
>Jozka
>
>
>
>
>
>kastner(zv)infos(tec)cz na 29.06.99 13:14:45
>
>Odpov�zte pros
>Content-type: text/plain; charset�o-8859-1
>Content-transfer-encoding: quoted-printable
>
>
>�m - delphi-l(zv)fwd(tec)cz
>
>Komu: delphi-l(zv)fwd(tec)cz
>Kopie: (Na v
>Content-type: text/plain; charset�o-8859-2
>Content-transfer-encoding: quoted-printable
>
>
>�dom
>Content-type: text/plain; charset�o-8859-1
>Content-transfer-encoding: quoted-printable
>
>
>�: Josef Dan
>Content-type: text/plain; charset�o-8859-2
>Content-transfer-encoding: quoted-printable
>
>
>�k/FNBrno)
>P�edm�t: Re: udalost OnFilterRecord znovu
>
>
>
>Content-type: text/plain; charset�-ascii
>
>
>> Jestli ano, tak v jakem vztahu je vysledek udalosti
OnFilterRecord,
>>ktery je v promenne Accept k vysledku vyrazu ve Filtru? Je to "and"
nebo
>to
>vubec
>>takto nejde? Poradte mi. Ja to tak zkousim pouzivat, a nekdy to
funguje
>jako
>"and" a
>>jindy to nema logiku a blbne mi mi.
>
>V jakych pripadech to blbne.
>Podle helpu i z logiky veci by to mel byt prunik.
>Nezapomen na Filtered.
>
>
>S pozdravem
>Miloslav Skacel
>skacel(zv)stereo(tec)cz
>http://www.stereo(tec)cz
>
>
>
>
>
>navrh tabulky
[*] Jaro <jaro(zv)sinea(tec)cz> - 29.6.1999 21:28:56
V tom pripade to vid�m jako hloup� absurdist�n, kdy� nekdo, kdo plat�
janom za telefonn� slu�by
kolem jednoho mili�nu korun se rozm��l� nad t�m zda zakoupit
datobazov� server za p�r tis�c a� des�tek tis�c
(podle poctu licenc�).. NOJO
Jaro
--------
>> > A neprehnal jsi to trochu? Kolik milionu korun platite mesicne na
>
>divil by si sa, ale minuly mesiac prisiel ucet nieco tesne pod
milion...
>
>> > telefonnich poplatcich?
>> > I kdybych pocital 60 hovoru za hodinu (coz je asi nesmysl), pak
za
>> > mesic je to
>> > 60*8*20=9.600,- hovoru.
>
>^^^ ani nie. ono to funguje ako pseudotarifikator. ty zdvihnes
sluchadlo a
>vytocis nejake cislo, nedovolas sa a polozis. ustredna ale vypluje
zaznam o
>pouziti telefonu. na zaklade urcitych pravidiel (dlzka hovoru,
paltnost
>cisla, existencia predvolby pre medzimesto atd.) oznacim hovor ako
platny
>alebo ako neplatny. v databaze ale musim mat vsetky ....
>
>a aby som este nezabudol, hovory medzi jednotlivymi klapkami sa tiez
loguju
>....
>
>ratam s tym najvacsim zakaznikom. cca. 200 telefonnych liniek :-) asi
400
>klapiek :-))) je to firma co ma velky barak a prenajima firmam bez
vlastneho
>baraku priestory + telefonne linky ... zahrnute su aj sekretarske
sluzby
>atd. preto tie klapky. V zasade mi je to tiez divne, ale ked platia
tak sa
>nepytam a riesim :-)
>
>no a 200 liniek uz neni sranda... to mi ver.
>
>> Nas urad ma cca 150 aktivnich uredniku a mesicne vyjizdime cca
2500 - 3000
>zaznamu (=hovoru)
>> Ma-li jeho organizace 30*150 lidicek, je to mozne :-)
>^^^ tolko to nie je...
>
>btw: pomer medzi platnymi a neplatnymi je zhruba taky ze 1:3.
>
>> Toto bych videl jako ukol pro SQL server.
>
>oni su skrblici.... a kym to pada, tak platia servis ... :-)))
>
>
>rw
>
>
>Format a array of const
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.6.1999 23:01:21
> Tak potom zkus (ovsem radim bez jakekoliv zaruky :) treba tohle:
>
> Format(sqlInsertIntoTimeTable, (zv)X);
****Skoda, ze je to bez zaruky, protoze to nefunguje. Ale uz jsem
se smiril s tremi radky typu ..., X [14],... :-)
Slavek
> Zbysek Hlinka
-------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------------------------------
Tlacitko TBitBtn
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.6.1999 23:04:17
> Nevite prosim nekdo je-li mozne ve formulari menit barvu tlacitka TBitBtn
> zadanim treba TBitBtn.color tak aby kdyz si na toto tlacitko dojedu
> tabulatorem se zmenila barva pozadi tohoto tlacitka na nekterou mnou
> zadanou? Diky za odpovedi. Nosek Libor
****Pred nedavnem se to tu resilo, podivej se do archivu konference
(ale misto TBitBtn hleden TButton, princip by mel bys stejny).
Myslim, ze na to odpovidal Zbysek Hlinka.
Slavek
-------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------------------------------
Format a array of const
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.6.1999 23:55:37
> Slavek Rydval wrote:
>
> > procedure TfrmCasoveOmezeni.bbtnOkClick(Sender: TObject);
> > var
> > X: array of integer;
> > begin {bbtnOkClick}
> > SetLength (X, 33);
> > X [0] := ID_O;
> > X [1] := ID_Z;
> > ...
> > X [32] := integer (chckNeA.Checked);
> >
> > Format (sqlInsertIntoTimeTable, X);
> > end; {bbtnOkClick}
> >
> > Pokud to pole bylo staticke, pak mi to ani neprelozil, pokud jej
> > vytvarim dynamicky, buchne mi to s vyjimkou. Jak presne to mam
> > zapsat?
>
> Format(sqlInsertIntoTimeTable, [X[0], X[1], atd.]);
Ahoj,
Nevim jestli je to co potrebujes, ale lze udelat treba tohle:
resourcestring
sSomeFormat = '%d %d %d %d %d %d %d %d %d %d';
procedure TForm1.Button1Click(Sender: TObject);
var
X: array of TVarRec;
I: Integer;
begin
SetLength(X, 10);
for I := Low(X) to High(X) do
begin
X[I].VType := vtInteger;
X[I].VInteger := I * 100;
end;
ShowMessageFmt(sSomeFormat, X);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************GetVersionEx
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 30.6.1999 06:13:24
To bylo ono.DIKY.
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Pavel �im��ek <simicek(zv)foresta(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 16:08
P�edm�t: Re: GetVersionEx
-----P�vodn� zpr�va-----
Od: Jiri Virt <virt(zv)pepa(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. �ervna 1999 13:31
P�edm�t: GetVersionEx
Ahoj,
nevite nekdo, jak v Delphi bezpecne zjistim jestli mam spusteny Win9x nebo WinNT.
Zkousim bool GetVersionEx(LPOSVERSIONINFO), ale to my vraci porad FALSE.
No a GetVersion(), vraci u WinNT 4.0 a Win95 Hi(GetVersion) = 0, Lo(GetVersion) = 4
a u Win98 Hi(GetVersion) = 10, Lo(GetVersion) = 4.
Takze od sebe nepoznam WinNT4.0 - Win95.
A nebo pouzivam funkci GetVersionEx(LPOSVERSIONINFO) spatne?
.....
var
verze:TOSVersionInfoA;
begin
if GetVersionEx(verze) then
Form1.Caption := IntToStr(verze.dwPlatformId); << a tady mi to vubec neprobehne, protoze
end; << GetVersionEx = false?
.....
Diky za kazdou pripominku
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
Musis pred zavolanim GetVersionEx nastavit
Verze.dwOSVersionInfoSize:= SizeOf(Verze);
Je to popsano v helpu, ale jinak kdyz si tam pridas tenhle radek tak to myslim bude fungovat.
Pavel
PrintScreen
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 30.6.1999 06:52:59
nasel jsem nasledujici priklad :
====================================================
Trapping the Windows system key 'PrintScreen'
Question:
How can I globally trap the Windows system key "PrintScreen"?
Answer:
The following example demonstrates registering a hot key with the
system to globally trap the windows printscreen key.
Example:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const id_SnapShot = 101;
procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if Msg.HotKey = id_SnapShot then
ShowMessage('GotIt');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle,
id_SnapShot,
0,
VK_SNAPSHOT);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey (Form1.Handle, id_SnapShot);
end;
====================================================
ale vypada to, ze se neprovede ulozeni obrazovky do schranky (D3/W95)
v nasledujicim prikladu by se ulozeni melo provest:
====================================================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FClipboardOwner: HWnd;
procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message
WM_DRAWCLIPBOARD;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMDrawClipboard(var Msg: TWMDrawClipboard);
var
nSnap: integer;
begin
SendMessage(FClipboardOwner, WM_DRAWCLIPBOARD, 0, 0);
Msg.Result := 0;
nSnap:=GetAsyncKeyState(VK_SNAPSHOT);
if nSnap <> 0 then ShowMessage('VK_SNAPSHOT');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FClipboardOwner := SetClipboardViewer(Handle);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ChangeClipboardChain(Handle, FClipboardOwner);
end;
end.
====================================================
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Josef Kokes [SMTP:kokes(zv)fsid.cvut(tec)cz]
> Odesl�no: 29.06.1999 18:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: PrintScreen
>
> Zdravim.
>
> Nemate nekdo zkusenost, jak v aplikaci pod Delphi4 zachytit stisknuti
> klavesy PrintScreen?
>
> Form.KeyPreview/OnShortCut na to nefunguje, zpravu wm_KeyDown to bud
> negeneruje, nebo ji neumim zachytit. Mam podezreni, ze ji "sezere" system
> a
> aplikaci ji ani neposle, hamoun jeden.
>
> Diky za kazdy napad.
> JK
> Btrieve Magic
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 30.6.1999 06:53:31
Ahoj,
ted to bude otazka mimo "misu".Mame cast inform. systemu napsanou od
externi firmy v Magicu.No a protoze s firmou nejsou patricne obchodni
vztahy, musime si
nejak vypomahat sami.
Magic pracuje s Btrievem.V tom by problem nebyl.Spise v otevirani tabulek.
Nemuzu vubec najit ty DDF soubory.Nevite kde by to mohl mit ten Magic
schovany. Nemate s tim nekdo zkusenosti. Nebo jeste lepe - nevi nekdo jak by
se dalo slusne pristupovat k tem tabulkam ? Mam ODBC ovladace o Pervasive
soft., ale tema otevru tabulky vytvorene BUTILem. tzn. tabulky maji u sebe
DDF soubory.
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz