Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT: Re: Male pismenka v Kylixu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 11.5.2001 07:45:20
> Jinak ale nevim o tom, ze by nastaveni WINE melo jakykoliv vliv na beh
> kylixu. Jsou to prece dva nezavisle programy.
Chacha.. Kylixacke IDE pouziva WINE! (mozna proto je cele takove
liiineeeee....)
BTW: spustitelny soubor Kylix IDE se jmenuje 'Delphi' ;-))))))))
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
UpdateSQL
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 11.5.2001 07:52:04
AHoj,
mam TQuery. Pripadne zmeny(vkladani, mazani. atd) se provadeji pres
UpdateSQL.
Potreboval bych nekdy provest pri zmene zaznamu a naslednem potvrzeni misto
MODIFY INSERT..
Nevite nekdo jak toho docilit?
Ako nastavit textovy format bunky v Exceli
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 11.5.2001 08:03:05
> // tu by som potreboval nastavit format bunky Sheet.Cells[1, 1] na text
> Sheet.Cells[1, 1] := 'jan/2001';
>
Sheet.Cells[1, 1].FormatNumber := '(zv)';
pavel.gazda(zv)seznam(tec)cz
Male pismenka v Kylixu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.5.2001 08:03:36
Haj hou!
On 10 May 2001,, Gebauer Lukas wrote:
> Jo, to jsem objevil. Je tam odkaz na documentation/fonts, ale nic
> takoveho jsem nikde nenasel. Po dokumentaci k Wine jsem se take
> shanel, ale nejak ji ne a ne nalezt. :-/
Ta na webu www.winehq.org neni bud aktualni nebo uplna,
pripadne oboje. Nejlepsi dokumentace je primo v jejich CVS.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.OT: Re: Male pismenka v Kylixu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.5.2001 08:06:17
Haj hou!
On 11 May 2001,, Gebauer Lukas wrote:
> Chacha.. Kylixacke IDE pouziva WINE! (mozna proto je cele takove
> liiineeeee....)
Nepouziva WINE (coz je v podstate emulator), ale WineLib (coz je
sada knihoven WIN API, ktere se prilinkuji k aplikaci. WINE
spousti Windows EXE soubory, kdezto aplikace pousivajici
WineLib jsou nativni Linuxove v ELF formatu. Bohuzel cas (jen
cast!) IDE Kylixu je napsana ve VCL, a VCL se vaze na WIN API.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.tlac na tlaciaren
[*] iko <iko(zv)kamarad(tec)cz> - 11.5.2001 08:09:39
Tlacim cez Pritner.Canvas na tlaciaren, ale robi mi to blbosti. Napriklad ak
nakreslim ciernu plochu a potom cez to bielu ciaru, tak ta ciara je za
ciernou plochou, teda neni. Dalej ak napisem biele pismena na tu ciernu
plochu, tak je to dobre...ale ked potom este na tie pismena nakreslim sedu
plochu tak ona je po vytlaceni nad ciernou plochou, ale pod tymi bielymi
pismenami. Cudne to vyzera :) Na inej tlaciarni je to zas trosku inak. Pri
preview vo FinePrint je to normalne, ale ked to on potom vytlaci, tak je to
zas chore.
Co robim zle? Ako mam tlacit na tlaciaren? Keby som kreslil najprv do
metafile a ten potom hodil na tlaciaren bolo by to dobre? (ak ano... ako mam
prepocitavat rozmery? Metafilom moc nerozumiem...multiboot
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 11.5.2001 08:23:53
----- Original Message -----
From: Zdenek Brejsa <prog(zv)hjsoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 10, 2001 10:12 AM
Subject: OT: multiboot
> omlouvam se za OT, ale nevim kam se obratit
>
> kupuji pocitac a chci tam m�t Win98,W2K a Linux: poradte mi, kde sehnat
> program pro multiboot (pokud mozno free ;o))
>
> predem diky
>
> Zkus Partition Manager. Je Free a umi skoro vse. Adresu nevim ale
Altavista ti jej najde v pohode
Antwort: file of trecotd na CD
[*] martin.falta(zv)obi.de - 11.5.2001 08:32:27
Ahoj,
to je proto, ze fce Reset() otevira soubory (krome textovych) pro cteni i
zapis. Spise bych pouzil API fci. FileOpen().
Martin
Von: simca.jb(zv)post(tec)cz(zv)clexpert(tec)cz am 10.05.2001 14:13 OEZ
Bitte antworten an delphi-l(zv)clexpert(tec)cz
Gesendet von: delphi-l-owner(zv)clexpert(tec)cz
An: delphi-l(zv)clexpert(tec)cz
Kopie:
Thema: file of trecotd na CD
Rad pouzivam k ulozeni dat format file of recotd, a rad bych tou pouzval na
CD, ale bohuzel se na CD soubory chovaji podivne
Kdyz chci otevrit soubor pomosi reset(soubor) tak tato oparace vygeneruje
error.
Nevim bohuzle, jak je mozne otevrit na CD soubor file of record??????? Aby
mi to nehlasilo chybu?
Jirka Borovy
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Prace s ADO a ulozene procedury
[*] Listuj <listuj(zv)centrum(tec)cz> - 11.5.2001 08:56:45
Zdravim pri patku,
mel bych dotaz, jak se spravne pracuje s ADODB komponentami,
pri praci s ulozenymi procedurami na SQL serveru 7.0?
Mam tuto konstrukci, ktera by mi mela vratit pro zvolene ID pocet
vyskytu
DBCommand.CommandText := DB_NEPOUZITE;
DBCommand.CommandType := cmdStoredProc;
DBCommand.Parameters.Clear;
DBCommand.Parameters.CreateParameter
('ID',ftInteger,pdInput,0,ID);
DBCommand.Parameters.CreateParameter
('POCET',ftInteger,pdOutput,0,Ret);
DBCommand.Execute;
Avsak v promenne Ret se mi vzdy vrati 0.
Muzete mi prosim pomoc?
Diky
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
spustit prikaz dosu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.5.2001 09:06:45
Od nejjednodussiho bez kontroly k nejslozitejsimu s kontrolou procesu:
WinExec, ShellExecute, CreateProcess
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
11.5.2001 Koci Michal:
> Dobry den,
> uz nejaku ru chvilku sa tu morim s problemom, ako spustit z Delphi 5
> Profesional
> nejaky prikaz dosu. V pascale na to bola procedure Exec, ale v Delphi?
> Poradite mi niekto prosim?
> Mifko
Prace s ADO a ulozene procedury
[*] V�t Kr�ka����+?#�$g�^#�3 - 11.5.2001 09:15:42
osobne na vsechny dotazy a ulozene procedury pouzivam ADODataSet. pro
proceduru tak napriklad vypada SQL dotaz takto:
//////////////////////////
DECLARE (zv)StanStill REAL
EXEC up_StandStill :StartTime, :EndTime, :ID, (zv)StandStillTime = (zv)StanStill
OUT
SELECT (zv)StanStill * 60 AS StandStill
///////////////////////////
ja proste ADODataSet pouzivam na vsechno.
vitek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Listuj
Sent: Friday, May 11, 2001 8:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Prace s ADO a ulozene procedury
Zdravim pri patku,
mel bych dotaz, jak se spravne pracuje s ADODB komponentami,
pri praci s ulozenymi procedurami na SQL serveru 7.0?
Mam tuto konstrukci, ktera by mi mela vratit pro zvolene ID pocet
Prace s ADO a ulozene procedury
[*] Milink Otakar <otam(zv)TDAT.CZ> - 11.5.2001 09:25:24
>
> Mam tuto konstrukci, ktera by mi mela vratit pro zvolene ID pocet
> vyskytu
>
> DBCommand.CommandText := DB_NEPOUZITE;
> DBCommand.CommandType := cmdStoredProc;
> DBCommand.Parameters.Clear;
> DBCommand.Parameters.CreateParameter
> ('ID',ftInteger,pdInput,0,ID);
> DBCommand.Parameters.CreateParameter
> ('POCET',ftInteger,pdOutput,0,Ret);
> DBCommand.Execute;
>
> Avsak v promenne Ret se mi vzdy vrati 0.
>
No ja bych za Execute jeste pridal:
Ret := DBCommand.Parameters.Parameters.ParamByName('POCET').Vaue;
s pozdravem Otakar Milink
P.S. Nestacilo by misto rucniho zadavani parametru zadat
DBCommand.Parameters.Refresh; ?Male pismenka v Kylixu
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 11.5.2001 09:29:02
Ahoj,
Kylix (IDE) pouziva cast programu Wine (myslim ze se tomu rika winelib).
Aplikace v nem vytvorene ne. To mne privadi na myslenku, zda Kylix (potazmo
Delphi) dokazi prelozit sami sebe (jako Free Pascal). Driv to tak pry bylo,
a nyni? Vi to nekdo.
Radek
-----P�vodn� zpr�va-----
Od: Hurricane <hurricane(zv)quick(tec)cz>
Komu: delphi-l(zv)clexpert(tec)cz <delphi-l(zv)clexpert(tec)cz>
Datum: 10. kv�tna 2001 23:04
P�edm�t: OT: Re: Male pismenka v Kylixu
>Zdravim
>
>A proc by ne? Existuje Linuxovy program WINE, pod kterym jdou spoustet
>windowsove aplikace. Uplne vsechny samozrejme nefungujou, ale velika
>vetsina. Office myslim funguje, dale taky Photoshop, CDPlayer, notepad,...
>Dokonce i muj delphinovy program jsem castecne spustil (nefungoval mi muj
>specialni dialog).
>
>Jinak ale nevim o tom, ze by nastaveni WINE melo jakykoliv vliv na beh
>kylixu. Jsou to prece dva nezavisle programy.
>
>Hurricane
>
>----- Original Message -----
>Subject: Re: Male pismenka v Kylixu
>
>
spustit prikaz dosu
[*] Koci Michal <Michal_Koci(zv)koba.sk> - 11.5.2001 09:40:00
Dobry den,
uz nejaku ru chvilku sa tu morim s problemom, ako spustit z Delphi 5
Profesional
nejaky prikaz dosu. V pascale na to bola procedure Exec, ale v Delphi?
Poradite mi niekto prosim?
Mifko
--
Michal Koci
Komercni Banka Bratislava
Sprava a vyvoj IS
07/592 77 356
GPS, MAPY
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 11.5.2001 09:55:26
Ahoj,
nasel by se tady nekdo kdo by mi sdelil nejake informace o GPS.
V blizke dobe budu muset resit problem sledovani sluzebnich aut a
zobrazovat jejich polohy na mape.
Pripadne jestli mate nejake linky, kde bych se o tehle problematice
dozvedel neco vice.
Dekuji.
Dalibor
GPS, MAPY
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 11.5.2001 10:29:04
> nasel by se tady nekdo kdo by mi sdelil nejake informace o GPS.
>
> Pripadne jestli mate nejake linky, kde bych se o tehle problematice
http://www.axolot.com
http://www.torry.net/gps.htm
T.Service a komunikace
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 11.5.2001 10:36:56
Jiste :)
Zalezi jakou komunikaci mas na mysli.
Napada mne neco takoveho:
Nasdilis si pamet mezi service a aplikaci, ktera s nim bude komunikovat. To
se dela pres fci myslim CreateFileMapping, kde si vytvoris pojmenovany
file-mapping, nejlepe ve swapu. Pak v alpikaci, ktera ma s service
komunikovat zavolas OpenFileMapping. Tim mas sekci, kde mohou pristupovat
oba programy (service + aplikace). No a pro synchronizaci si vytvoris treba
eventy a vzdycky, kdyz aplikace chce neco rict service, tak nahodi event, v
service bude thread, ktery ve smycce ceka na tu eventu
(WaitForSingleObject()) a provede precteni tech informaci, co tam aplikace
zapsala, z toho si vytvori, co ma vlastne delat a udela to. Komunikace zpet
je uplne na stejnem principu. Windows jeste umoznuji zpravu WM_COPYDATA.
Ikdyz ja si myslim, ze service muze prijmout take libovolnou zpravu, ale uz
si presne nevzpominam. Mozna ze SCM umoznoval i user-defined volani service,
ale to uz si nevzpomenu.
Odkazy, ktere by mohly pomoci:
MSDN (http://msdn.microsoft.com/library/default.asp) - viz fce Interprocess
Comunication (dostanes se tam, kdyz zadas hledat WM_COPYDATA) - tam toho je
vic, jsou tam popsany i ty fce na mapovani souboru.
Borland help k Win32 API, tam by taky mohlo neco o tom byt.
Ev. muj projekt o service :))
ftp://ftp.inf.upol(tec)cz/pub/projects/1997/3/mensikd.zip
> Nikdy jsem stim nedelal, slo by rosku sireji?
>
> Zdenek
>
> > Soubory mapovane do pameti + treba eventy?
> > Eventualne WM_COPY message.
Ozon.
Doufam, ze to pomuze.SELECT a datum - EXTRACT ??
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.5.2001 10:47:14
Parametr do SQL prikazu se predava bud pomoci promenne, zacinajici
dvojteckou, napr:
select ...
where Datum = :Datum
Pak se provede naplneni promenne :
Query1.ParamByName('Datum').AsString := '01.12.2001';
Je dobre u parametru nastavit, ze je vstupni a datovy typ. Pokud
naplnis obsah TQuery a bude obsazena promenna, najdes ji i v object
inspectoru.
Query1.Open;
Dalsi moznosti je vygenerovat si cely text dotazu, tak jak to delas,
ovsem nesmis tam predat nazev promenne datum, ale jeji obsah:
Query1.SQL.Text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
NAROZENI= ''' + datum + '''');
{ apostrofy si uprav dle potreby, aby v dotazu zustal obsah promenne
ohraniceny :-) }
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
11.5.2001 "Milan Skalsk�":
> var datum : string;
> den, mesic, rok:word;
> begin
> DecodeDate(now, rok, mesic, den);
> Datum:=DateToStr(now);
> Datum:=Copy(datum,1,Length(datum)-4);
> Datum:=datum+'%%%%';
> Query1.SQL.Text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> NAROZENI= datum');
> Query1.Open;
> ... hlaska : Invalid Field Name DATUM .... jak to udelat, aby mi to bralo
> nejakou promennou, do ktere budu ukladat dnesni datum ????
> ... kdyz to udelam pomoci EXTRACT (viz. Delphi Local SQL Help), tak nevim,
> kam to mam narvat :(((
> takhle mi to ale urcite nefacha :((SELECT a datum - EXTRACT ??
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 11.5.2001 11:05:37
Jaka verze BDE je u D3 ?
Umi tvoje verze BDE Extract ?
Co to pise za hlasku, nebo to vypisoje spatny data ?
Zkus pouzit posledni verzi BDE tj. 5.11
Slavek
> ... kdyz to udelam pomoci EXTRACT (viz. Delphi Local SQL Help), tak nevim,
> kam to mam narvat :(((
> takhle mi to ale urcite nefacha :((
>
> var den, mesic, rok:word;
> begin
> DecodeDate(now, rok, mesic, den);
> Query1.SQL.text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> EXTRACT(month FROM narozeni) = mesic and EXTRACT(day FROM narozeni) =
> den');
> Query1.Open;
> multiboot
[*] Tom� Hol� - 11.5.2001 11:07:17
www.xosl.org
nebo lilo z linuxu
mozne je i poopravit soubor boot.ini ve W2K
a nebo uplne malicky a super ej os-bs(tec)cz :)
vejde se doo MBR a je k tomu zdrojak v ASM
muzu zaslat na mail
vse je free
TH
----- Original Message -----
From: "L. Filip" <lfilip(zv)lekis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 11, 2001 8:23 AM
Subject: Re: multiboot
>
> ----- Original Message -----
> From: Zdenek Brejsa <prog(zv)hjsoft(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, May 10, 2001 10:12 AM
> Subject: OT: multiboot
>
>
> > omlouvam se za OT, ale nevim kam se obratit
> >
> > kupuji pocitac a chci tam m�t Win98,W2K a Linux: poradte mi, kde sehnat
> > program pro multiboot (pokud mozno free ;o))
> >
> > predem diky
> >
> > Zkus Partition Manager. Je Free a umi skoro vse. Adresu nevim ale
> Altavista ti jej najde v pohode
restart site ve W2K z programu
[*] Tom� Hol� - 11.5.2001 11:09:18
Ahoj,
netusite, jak bych mohl pod W2K zakazat a znovu povolit sitove pripojeni
ekvivalent nabidky v lokalnim menu pripojeni k mistni siti - Zakazat a
Zapnout
chci si udela prepinatko siti, protoze chodim s notebookem do vice firem, a
kazda ma jinou cfg IP adres
a s timhle si nevim rady
dik TH
SELECT a datum - EXTRACT ??
[*] "Milan Skalsk�" - 11.5.2001 9:12:46
>> Na Sybase SQL funguje napriklad toto :
>> select prijmeni, jmeno, narozeni FROM "DATA.DBF" where
>NAROZENI=current date
Bohuzel SQL v Delphi3 nezna CURRENT DATE :((((
... chci, aby mi to vypsalo lidi, kteri maji dany den narozeniny.
data v NAROZENI jsou ve formatu dd.mm.yyyy
udelal jsem to takhle, ale .... :(((
var datum : string;
den, mesic, rok:word;
begin
DecodeDate(now, rok, mesic, den);
Datum:=DateToStr(now);
Datum:=Copy(datum,1,Length(datum)-4);
Datum:=datum+'%%%%';
Query1.SQL.Text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
NAROZENI= datum');
Query1.Open;
... hlaska : Invalid Field Name DATUM .... jak to udelat, aby mi to bralo
nejakou promennou, do ktere budu ukladat dnesni datum ????
... kdyz to udelam pomoci EXTRACT (viz. Delphi Local SQL Help), tak nevim,
kam to mam narvat :(((
takhle mi to ale urcite nefacha :((
var den, mesic, rok:word;
begin
DecodeDate(now, rok, mesic, den);
Query1.SQL.text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
EXTRACT(month FROM narozeni) = mesic and EXTRACT(day FROM narozeni) =
den');
Query1.Open;
Heeeeeeeeeeeeeeelp :) Diky vsem
Milan
Delphi beginner
Delphi3 C/S, W98
SELECT a datum - EXTRACT ??
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 11.5.2001 11:13:11
> udelal jsem to takhle, ale .... :(((
>
> var datum : string;
> den, mesic, rok:word;
> begin
> DecodeDate(now, rok, mesic, den);
> Datum:=DateToStr(now);
> Datum:=Copy(datum,1,Length(datum)-4);
> Datum:=datum+'%%%%';
> Query1.SQL.Text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> NAROZENI= datum');
> Query1.Open;
>
> ... hlaska : Invalid Field Name DATUM .... jak to udelat, aby mi to bralo
> nejakou promennou, do ktere budu ukladat dnesni datum ????
Ja bych to delal takhle:
> Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> NAROZENI="'+datum+'"';
a nebo
> Query1.SQL.Text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> NAROZENI=:datum');
a potom v Params vypln polozku Query1.Datum
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
DiskFreeSpace
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 11.5.2001 11:21:29
V DirListBoxe si vyberiem cielovy adresar a potrebujem zistit velkost
volneho miesta na cielovom disku.
function DiskFree(Drive: Byte): Int64;
mi vyhadzuje chybu
Nepoznate nahodou iny sposob ako to zistit?
Jozo
www.digitaldocuments.org
joba(zv)digitaldocuments.org
SELECT a datum - EXTRACT ??
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 11.5.2001 11:40:59
A co tak to udelat takhle :
Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
NAROZENI= ''' + FormatDateTime ( 'dd.mm.yyyy', now) + '''';
Query1.Open;
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- P�vodn� zpr�va -----
Od: Milan Skalsk� <milan_2(zv)sose-sou(tec)czmilan_2(zv)sose-sou(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: p�tek, 11. kv�tna 2001 11:12
P�edm�t: SELECT a datum - EXTRACT ??>> Na Sybase SQL funguje napriklad toto :
>> select prijmeni, jmeno, narozeni FROM "DATA.DBF" where
>NAROZENI=current date
Bohuzel SQL v Delphi3 nezna CURRENT DATE :((((
... chci, aby mi to vypsalo lidi, kteri maji dany den narozeniny.
data v NAROZENI jsou ve formatu dd.mm.yyyy
udelal jsem to takhle, ale .... :(((
var datum : string;
den, mesic, rok:word;
begin
DecodeDate(now, rok, mesic, den);
Datum:=DateToStr(now);
Datum:=Copy(datum,1,Length(datum)-4);
Datum:=datum+'%%%%';
Query1.SQL.Text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
NAROZENI= datum');
Query1.Open;
... hlaska : Invalid Field Name DATUM .... jak to udelat, aby mi to bralo
nejakou promennou, do ktere budu ukladat dnesni datum ????
... kdyz to udelam pomoci EXTRACT (viz. Delphi Local SQL Help), tak nevim,
kam to mam narvat :(((
takhle mi to ale urcite nefacha :((
var den, mesic, rok:word;
begin
DecodeDate(now, rok, mesic, den);
Query1.SQL.text:=('SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
EXTRACT(month FROM narozeni) = mesic and EXTRACT(day FROM narozeni) =
den');
Query1.Open;
Heeeeeeeeeeeeeeelp :) Diky vsem
Milan
Delphi beginner
Delphi3 C/S, W98
spustit prikaz dosu
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 11.5.2001 12:11:28
Ahoj,
napriklad takto by sel spustit prikaz DEL, kteryby mazal vschny soubory v
adresari c:\a
procedure TForm1.Button1Click(Sender: TObject);
var CmdLine : string;
begin
CmdLine:='command.com c:\windows /c del c:\a\*.*';
windows.WinExec(PChar(CmdLine),SW_SHOW);
end;
Petr Kejval
DiskFreeSpace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.5.2001 12:15:27
> V DirListBoxe si vyberiem cielovy adresar a potrebujem zistit velkost
> volneho miesta na cielovom disku.
> function DiskFree(Drive: Byte): Int64;
> mi vyhadzuje chybu
jakou?
> Nepoznate nahodou iny sposob ako to zistit?
na velkych discich (a na nenamapovanych discich (UNC path) je treba pouzivat
API funkci: GetDiskFreeSpaceEx(). Ta je ale jen v nekterych verzich Windows
(od Win95 OSR2, nebyla treba na FAT16ce) a proto ji musis pouzivat
dynamickym odkazem (GetProcAdress())
Ale GetDiskFree pouziva GetDiskFreeSpaceEx() tam kde je dostupna. Cili
jedine co neumi je UNC path
D. Toman
Prace s ADO a ulozene procedury
[*] Listuj <listuj(zv)centrum(tec)cz> - 11.5.2001 12:20:35
Jo, diky, to bylo presne ono co jsem potreboval.
Co se tyce refresh, tak mozna ano, ale ja mam pouze jeden command
a nekolik procedur, ktere ruzne volam a takhle jim zaroven i
predam parametry, coz bych stejne musel nekde provest. Jde spis o
to, co je rychlejsi, jestli komunikovat nejdrive se serverem (pro
refresh) a pote naplnit hodnoty, nebo nejdrive naplnit hodnoty a
pak se dotazovat serveru.
Presto diky, tohle mi nejak nedoslo, ze potrebuji vratit hodnotu.
hezky den
______________________________________________________________
> Od: Milink Otakar <otam(zv)TDAT.CZ>
> >
> > Mam tuto konstrukci, ktera by mi mela vratit pro zvolene ID
pocet
> > vyskytu
> >
> > DBCommand.CommandText := DB_NEPOUZITE;
> > DBCommand.CommandType := cmdStoredProc;
> > DBCommand.Parameters.Clear;
> > DBCommand.Parameters.CreateParameter
> > ('ID',ftInteger,pdInput,0,ID);
> > DBCommand.Parameters.CreateParameter
> > ('POCET',ftInteger,pdOutput,0,Ret);
> > DBCommand.Execute;
> >
> > Avsak v promenne Ret se mi vzdy vrati 0.
> >
>
> No ja bych za Execute jeste pridal:
>
> Ret := DBCommand.Parameters.Parameters.ParamByName
('POCET').Vaue;
>
> s pozdravem Otakar Milink
>
> P.S. Nestacilo by misto rucniho zadavani parametru zadat
> DBCommand.Parameters.Refresh; ?
>
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
SELECT a datum - EXTRACT ??
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.5.2001 12:21:43
Nevim, skoly nemam :-), ale takhle zjistis pouze lidi, kteri se
narodili dnes. Pokud jsem se narodil vloni, mam smulu :-(
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
11.5.2001 Petr:
> A co tak to udelat takhle :
> Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> NAROZENI= ''' + FormatDateTime ( 'dd.mm.yyyy', now) + '''';
> Query1.Open;
> Petr Jur�k, Spr�vce s�t�, program�tor
> COMET System s.r.o.TSpeedButton
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.5.2001 12:44:07
Glyph prechazi po nacteni do resource a stava se soucasti programu.
Cesta se neuchov�v�. Pokud to potrebujes, udelej si potomka a pridej
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
10.5.2001 "Mirek Drej�ek":
> Zdravim,
> zkusil jsem nahravat do TSpeedButton bitmapu za behu programu. Vse probehlo hladce. Ale nyni bych potreboval nazev tohoto souboru. Neco jako SpeedButton1.Glyph.FileName. Ale nemuzu nic najit.
> Hledam spatne, nebo to skutecne nejde?
> Predem dik za jakoukoli odpoved.
> Mirek Drejcek
Nove okno s novym tlacitkom na taskbare
[*] Lubos Daniel <ldaniel(zv)gymmt.sk> - 11.5.2001 12:47:39
Ahoj.
Toto mi tiez moc nefunguje a straca sa ikona na taskbare.
Cau
----- Original Message -----
From: Ales Vasicek <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 03, 2001 3:02 PM
Subject: RE: Nove okno s novym tlacitkom na taskbare
Ahoj,
nevim zda bude to fungovat, ale toto mi kdysi poslal Tomas Skoda
[mailto:tomas.skoda(zv)jdsoftware.sk]:
> Tvoj kod je spravny ale asi nie celkom uplny.
>
> Stane sa ti totiz, ze ked budes mat nejake, takto upravene
> okno a z tohoto okna zobrazis nejake modalne okno (ShowModal,
> alebo lubovolne *message* okno), upravene okno zmizne a uzivatel uvidi
> len hlavne okno aplikacie a modalne okno. Ked uzavries modalne okno,
> upravene okno sa znova zobrazi.
>
> Na odstranenie tejto chyby pouzivam tento kod v DPR subore:
>
> begin
> Application.Initialize;
> // !!!
> SetWindowLong(Application.Handle,
> gwl_ExStyle,
> GetWindowLong(Application.Handle, gwl_ExStyle) or
> ws_Ex_ToolWindow);
> // !!!
> Application.CreateForm(TDCAppForm, DCAppForm);
> Application.Run;
> end.
>
>
> Dufam, ze ti to trochu pomoze.
>
> Tomas Skoda
> tomas.skoda(zv)jdsoftware.sk
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>
> procedure TForm2.CreateParams(var Params: TCreateParams);
> begin
> inherited CreateParams(Params);
> Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
> Params.WndParent := 0;
> end;
>
None
[*] Lubos Daniel <ldaniel(zv)gymmt.sk> - 11.5.2001 12:50:00
Ahoj.
Neviete niekto ako si mozem zoskinovat moj program.
Napr. ako Winamp alebo Netscape 6?
Inac, ako to robi Thematic Chroma?
www.thematic.com/chroma
Lubos
menu v exploreri
[*] Tomas Bozik <tomas_bozik(zv)pobox.sk> - 11.5.2001 14:26:22
mam takyto problemik... chcem si rozsirit menu explorera...
volam funkciu GetMenuItemInfo(FMenu, FCIDM_MENU_FILE, FALSE, Info), kde
fmenu je handle systemoveho menu (ktore urcite nie je 0), info je
struktura MenuItemInfo. vo win 2000 ni vracia true ( co je dost logicke,
lebo tam existuje), ale vo win nt 4.0 mi vracia false ( ale napriet tomu
tam je, len mi nenaplni strukturu)... microsoft aj borland pisu, ze by to
malo behat, ale nebeha... neviete mi nekto poradit, ako naplnim strukturu
info tak, aby som s nou mohol pracovat a pridavat si polozky v menu vo win
nt4.0????
s pozdravom
tomas bozik
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
restart site ve W2K z programu
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 11.5.2001 15:40:48
Ve Win2k je sikovnej programek NETSH (netshell), kterej to umi bez
zakazovani a povolovani. Pripadne priklady poslu na pozadani na soukromou
adresu.
Krome toho to lze jeste resit DHCP serverem v pripojovane siti (otazka 5
minut konfigurace).
Milan
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Tom�# Hol�
>
> chci si udela prepinatko siti, protoze chodim s notebookem do
> vice firem, a
> kazda ma jinou cfg IP adres
SELECT a datum - akutni
[*] Als <Als.FofrsIT(zv)worldonline(tec)cz> - 11.5.2001 16:56:12
Ahoj,
iJF> Ale tazatel potreboval urcite i lidi, kteri se nenarodili zrovna
iJF> letos. Narozeniny se slavi prece kady rok :-)
>> Na Sybase SQL funguje napriklad toto :
>> select prijmeni, jmeno, narozeni FROM "DATA.DBF" where NAROZENI=current date
>> to je typ pro vyber primo v SQL (current date)
>> nebo v delphi
>> SQL.Add('select prijmeni, jmeno, narozeni FROM "DATA.DBF" where
>> NAROZENI='2001/03/31'
>> 2001/03/31 bude naplneny nejaky string.
to je vlastne pravda ....
pak staci napsat misto
where NAROZENI='2001/03/31' jen
where substr(NAROZENI,6,5)='03/31'
a problem je vyresen.
Da se pouzit i Like ale ve vetsich datab je to pomalejsi.
--
S pozdravem
Jiri Kubelka Als.FofrsIT(zv)worldonline(tec)cz
Trivrstva aplikace
[*] Listuj <listuj(zv)centrum(tec)cz> - 11.5.2001 16:59:31
Zdravim,
mel bych pred vikendem jeden dotazek.
Snazim se vytvorit komplexnejsi aplikaci, kde vyuzivam
databazi. A stale nemohu prijit na nejvyhodnejsi provazani
jednotlivych unit.
Nad databazi mam poveseny DataModul (dale DM), ktery poklada
dotazy a informace uchovava v objektech (potomci TObject)
pripadne seznamech techto objektu. Cela logika je vyresena v
techto objektech. Tady prvne zacinam trochu tapat, jak spravne
plnit objekty. Maji se plnit v DM, nebo nejak jinak (napr.
predany seznam objektu jako parametr do DM a z nej volana metoda
pro pridani objektu s parametrem TFields?) Zatim to mam resene
tak, ze vystupem z procedury je Seznam objektu, ktere se v DM
vytvari.
Dalsi problem mam pote v zobrazovani. Kazdy objekt se nejak
zobrazuje na formulari a prozatim to mam resene tak, ze v
ListBoxu pridavam i tento Objekt (cimz jej vlastne duplikuji),
protoze jednou je v onom predanem seznamu objektu a podruhe v
Listboxu. Pokud bych totiz chtel ten seznam napr. setridit, tak
se nemuzu odkazovat absolutnim umistenim v seznamu (ItemIndex
atd.) Tady me nenapada jak to lepe resit. Navic, jak potom sirit
predavani a zpracovani udalosti techto jednotlivych objektu, kde
jim prirazovat procedury, ktere se maji vykonaji? (Objekt je
napr. vytvoren v onom Seznamu objektu nebo dokonce v DataModulu.
Urcite uz to kazdy z vas resil takze mate vlastni postup jak
nejlepe na tyhle veci jit. Byl bych moc rad, kdyby jste mi
pomohli. (Urcite pomuzete i dalsim) Omlouvam se za trochu delsi
mejl, ale pro lepsi vyuziti Delphi to urcite stoji.
Jde mi o to, abych potom mohl tvorit moduly, a minimalne lepe
to spravovat.
Preji hezky vikend.
PS> doufam, ze jsem to popsal dobre, a uz v tom popisu nejsou
obecne chyby.
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************multiboot
[*] Tom� Hol� - 11.5.2001 17:22:09
dostal jsem asi 10 zadosti o ten programek, tak si dovoluji poslat odjkaz
sem, jelikoz je o nej opravdu zajem
http://www.thcom(tec)cz/osbs135.rar
Ako precitat Btieve DOS verzia
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 11.5.2001 21:34:47
Zadravim.
Ako precitam databazy z BTrieve (dufam ze som to dobre napisal). Ide o jeden
sklad kde sa vyvoj zastavil a uzivatelia by chceli s toho dostat data aspon
do Excelu.
Dakujem.
Roland
Schovani listy
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 11.5.2001 16:35:26 -0400
Zdravim,
muzu nejak nechat zajet(schovat)hlavni panel?
Diky
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Ako precitat Btieve DOS verzia
[*] Matula M. <mirek.delphi(zv)centrum(tec)cz> - 11.5.2001 22:49:45
Pokud jsi s Btrieve nyni Pervasive nikdy nedelal, tak te lituji. Data jsou
ulozena v souborech. Soubor=tabulka. Pokud mas soubory, ktere konci *.DDF,
mas vyhrano, obsahuji strukturu databaze. Stahni si trial verzi databazoveho
stroje a pristup k datum je pres ODBC nebo ADO. I v tomto pripade muzes
narazit na nekompatibilni datove typy.
Pokud *.DDF nemas, pak je struktura databaze ulozena v programu a v tom
pripade bych to radeji vzdal.
Mirek
| Zadravim.
|
| Ako precitam databazy z BTrieve (dufam ze som to dobre napisal). Ide o
jeden
| sklad kde sa vyvoj zastavil a uzivatelia by chceli s toho dostat data
aspon
| do Excelu.
|
|
| Dakujem.
|
| Roland
|
|SELECT a datum - EXTRACT ??
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 12.5.2001 11:36:15
> A co tak to udelat takhle :
>
> Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> NAROZENI= ''' + FormatDateTime ( 'dd.mm.yyyy', now) + '''';
> Query1.Open;
Tohle by mo�n� vyu�ila n�jak� porodnice na v�pis novorozenc� za dne#ek :-)
S men#� �pravou dotazu to ale fungovat bude:
query.sql.text := 'SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" WHERE
narozeni LIKE "' + formatdatetime('dd.mm.') + '%"';
Mike
>> ... chci, aby mi to vypsalo lidi, kteri maji dany den narozeniny.
>> data v NAROZENI jsou ve formatu dd.mm.yyyy
Schovani listy
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 12.5.2001 13:35:36
procedure showtaskbar(visible: boolean);
var h: hwnd;
begin
h := findwindow('Shell_TrayWnd', nil);
if h <> 0 then showwindow(h, byte(visible) * sw_restore);
end;
Mike
> Zdravim,
> muzu nejak nechat zajet(schovat)hlavni panel?
> Diky
> Petr Vasicek
Ako precitat Btieve DOS verzia
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 12.5.2001 14:44:21
Ono to ma pripony DAT.
R.
----- Original Message -----
From: "Matula M." <mirek.delphi(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 11, 2001 10:49 PM
Subject: Re: Ako precitat Btieve DOS verzia
> Pokud jsi s Btrieve nyni Pervasive nikdy nedelal, tak te lituji. Data jsou
> ulozena v souborech. Soubor=tabulka. Pokud mas soubory, ktere konci *.DDF,
> mas vyhrano, obsahuji strukturu databaze. Stahni si trial verzi
databazoveho
> stroje a pristup k datum je pres ODBC nebo ADO. I v tomto pripade muzes
> narazit na nekompatibilni datove typy.
>
> Pokud *.DDF nemas, pak je struktura databaze ulozena v programu a v tom
> pripade bych to radeji vzdal.
>
> Mirek
>
>
> | Zadravim.
> |
> | Ako precitam databazy z BTrieve (dufam ze som to dobre napisal). Ide o
> jeden
> | sklad kde sa vyvoj zastavil a uzivatelia by chceli s toho dostat data
> aspon
> | do Excelu.
> |
> |
> | Dakujem.
> |
> | Roland
> |
> |
>SELECT a datum - EXTRACT ??
[*] Delphi <DelphiForum(zv)seznam(tec)cz> - 12.5.2001 18:51:42
> Nevim, skoly nemam :-), ale takhle zjistis pouze lidi, kteri se
> narodili dnes. Pokud jsem se narodil vloni, mam smulu :-(
Omlouvam se, psal jsem to narychlo a trochu jsem to dopletl. Spravne to ma
byt takto :
Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
NAROZENI like ''' + FormatDateTime ( 'dd.mm.', now) + '%''';
Query1.Open;
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
Jmeno uzivatele ve Windows
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 12.5.2001 13:13:22 -0400
Zdravim,
nevim jestli uz to tady neprobehlo, ale chtel bych se zeptat, jak mohu
zjistit jmeno aktualniho uzivatele(resp. uzivatelske jmeno) ve Windows.
Takove, co se zadava jako login na zacatku, login do site.
Diky vam moc za odpoved.
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Prilinkovani DLL
[*] DarkLogic <engine(zv)ropacek(tec)cz> - 12.5.2001 19:48:43
Dobry den!
Muj program pouziva 2 externi DLL knihovny (bass.dll a UnRar.dll). Rad bych
je pridal nejak primo do exace, aby tam nestrasily vedle nej a abych omezil
zbytecnou chybu uzivatelu, ze zapomene k exaci zkopirovat par DLL. Poradi mi
nekdo jak na to?
Dikes
Vasek Navrat
Ulozeni reportu jako txt (rtf)
[*] Kokosek <skokosek(zv)seznam(tec)cz> - 12.5.2001 20:40:54
Ahoj,
muze mi nekdo poradit, jak ulozit sestavu Qreport do txt nebo rtf ?
Mam D3.
Lada
Program bez panelu
[*] Ji�� H�sek - 12.5.2001 21:58:12
> Kdyz dam showwindow(application.handle, sw_hide) do
> TForm1.CreateForm(Sender: TObject) tak se mi na liste to tlacitko
> kratce zobrazi! Nevite nekdo, jak to udelat lepe????
Ja to delam tak, ze primo do DPR dam:
Application.Initialize;
application.showmainform:=false;
showwindow(application.handle,sw_hide);
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
a do uses pridam windows.Jmeno uzivatele ve Windows
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 12.5.2001 22:14:36
Ahoj,
viz fci GetUserName() z helpu Win32 API.
Martin
------------------------------------------------------------------------
The GetUserName function retrieves the user name of the current thread. This
is the name of the user currently logged onto the system.
BOOL GetUserName(
LPTSTR lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
);
Parameters
lpBuffer
Points to the buffer to receive the null-terminated string containing the
user's logon name. If this buffer is not large enough to contain the entire
user name, the function fails.
nSize
Pointer to a DWORD that, on input, specifies the maximum size, in
characters, of the buffer specified by the lpBuffer parameter. If this
buffer is not large enough to contain the entire user name, the function
fails. If the function succeeds, it will place the number of characters
copied to the buffer into the DWORD that nSize points to.
Return Values
If the function succeeds, the return value is nonzero, and the variable
pointed to by nSize contains the number of characters copied to the buffer
specified by lpBuffer, including the terminating null character.
If the function fails, the return value is zero. To get extended error
information, call GetLastError.
Remarks
If the current thread is impersonating another client, the GetUserName
function returns the user name of the client that the thread is
impersonating.
----- Original Message -----
From: "Petr Vasicek" <pvasicek(zv)operamail.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, May 12, 2001 7:13 PM
Subject: Jmeno uzivatele ve Windows
> Zdravim,
> nevim jestli uz to tady neprobehlo, ale chtel bych se zeptat, jak mohu
> zjistit jmeno aktualniho uzivatele(resp. uzivatelske jmeno) ve Windows.
> Takove, co se zadava jako login na zacatku, login do site.
> Diky vam moc za odpoved.
> Petr Vasicek
Identifikace okna podle t��dy
[*] Milan ��ek - 13.5.2001 00:21:52
ahoj,
snazim se zjistit handle okna, podle jeho tridy pomoci fce FindWindow. Toto
okno je vyvolane cizim programem modalne. Jiz jsem vyzkousel asi 3 programy
na zjisteni tridy okna - vzdy mi ukazali neco jako #32770, pokud to dam do
FindWindow, nefunguje to. Podle Caption okna to nemohu identifikovat,
prototze je pokazde zcela jine. Ma predstava je takova, ze si najdu to okno
podle tridy, a pak pomoci GetWindowText poravnam s ruznymi variantami...
Muzete mi prosim poradit, kde delam chybu? Diky. Prikladam kod:
procedure TForm1.Timer1Timer(Sender: TObject);
var DD_CONTINUE_HWND: HWND; DD_WINDOWNAME: string;
begin
DD_CONTINUE_HWND:=FindWindow(Pchar(#32770),nil);
GetWindowText(DD_CONTINUE_HWND,PChar(DD_WINDOWNAME),255);
if (DD_WINDOWNAME='Continue') or (DD_WINDOWNAME='Notice') or
(DD_WINDOWNAME='Attention') or (DD_WINDOWNAME='Info') then
ShowMessage('HWND: '+IntToStr(DD_CONTINUE_HWND)+', Caption:
'+DD_WINDOWNAME);
end;
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Ako precitat Btieve DOS verzia
[*] Matula M. <mirek.delphi(zv)centrum(tec)cz> - 13.5.2001 05:27:46
To znamena, ze mas k dispozici radky v binarni podobe. Tvym ukolem je
zjistit strukturu do ktere se bude pasovat ten binarni zaznam.
xx=record
field1 :typxxx;
...
end;
Pokud se dostanes az sem, mas dve cesty.
1.Pouzijes DDFmaker k vytvoreni DDF souboru s popisem databaze a pak
pracujes pre ODBC. Tato varianta ma nekolik omezeni.Napr. nezna 6Byte Real
(real48) a ten se v DOS casto pouzival, zaznam nesmi byt typu variant, nesmi
byt pouzity nektere typy klicu.
2.Budes pracovat na urovni API Btrieve (cti radek atd.), pak nemas zadna
omezeni. Data prectes v binarni podobe a ulozis do struktury record. Tak se
s Btrive pracovalo v DOS.
Pokud si s tim nebudes vedet rady, muzu se ti na ty data podivat.
Mirek
| Ono to ma pripony DAT.
|
| R.
|
|
|
| > Pokud jsi s Btrieve nyni Pervasive nikdy nedelal, tak te lituji. Data
jsou
| > ulozena v souborech. Soubor=tabulka. Pokud mas soubory, ktere konci
*.DDF,
| > mas vyhrano, obsahuji strukturu databaze. Stahni si trial verzi
| databazoveho
| > stroje a pristup k datum je pres ODBC nebo ADO. I v tomto pripade muzes
| > narazit na nekompatibilni datove typy.
| >
| > Pokud *.DDF nemas, pak je struktura databaze ulozena v programu a v tom
| > pripade bych to radeji vzdal.
| >
| > Mirek
| >
| >
| > | Zadravim.
| > |
| > | Ako precitam databazy z BTrieve (dufam ze som to dobre napisal). Ide o
| > jeden
| > | sklad kde sa vyvoj zastavil a uzivatelia by chceli s toho dostat data
| > aspon
| > | do Excelu.
| > |
| > |
| > | Dakujem.
| > |
| > | Roland
| > |
| > |
| >
|
|Uzivatelske jmeno ve Windows
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 13.5.2001 05:07:09 -0400
Zdravim,
mohl by mi nekdo prosim napsat konkretni priklad pouziti GetUserName s
deklaracemi promenych, nevim, jak se tyto typy fci pouzivaji.
dekuji
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Ukon�en� aplikace
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 13.5.2001 11:35:59
Dobry den,
o zakazani ALT-F4 a pod tu je mnoho prispevku, ale jak zaridit aby se
aplikace ukoncila pri restartu nebo vypnuti PC, pokud mam:
procedure TDel_StatusForm.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
if not Self.fKonec
then Action := caNone;
end;
fKonec nastavuji pokud uzivatel chce aplikaci ukoncit.
Pokud se ale restartuje nebo vypina PC tak to hlasi, ze aplikace
neodpovida...
Dekuji
Zdenek
Prilinkovani DLL
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.5.2001 14:13:31
Existuje utilita, tusim s nazvem PEBundle, ktera dokaze knihovny
prilinkovat k EXE a navic zvolit, co se s nimi ma delat pri spusteni
programu. Zda je rozbalit pouze do pameti, nahrat do systemoveho
adresare Windows atd.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.5.2001 DarkLogic:
> Dobry den!
> Muj program pouziva 2 externi DLL knihovny (bass.dll a UnRar.dll). Rad bych
> je pridal nejak primo do exace, aby tam nestrasily vedle nej a abych omezil
> zbytecnou chybu uzivatelu, ze zapomene k exaci zkopirovat par DLL. Poradi mi
> nekdo jak na to?
Ulozeni reportu jako txt (rtf)
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.5.2001 14:17:27
QuickReport obsahuje exportni filtry. Ty po umisteni na report rozsiri
standardni nabidku pro ulozeni o ty, ktere si vyberes (WMF, HTML, RTF,
XLS, TXT ...)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.5.2001 Kokosek:
> Ahoj,
> muze mi nekdo poradit, jak ulozit sestavu Qreport do txt nebo rtf ?
> Mam D3.
> Lada
Ukon�en� aplikace
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 13.5.2001 17:08:19
Jeliko� jde o zak�z�n� ukon�en� aplikace ze strany u�ivatele (tedy nap�.
alt-f4, ...) navrhoval bych odchyt�vat zpr�vy WM_SYSCOMMAND a v z�vislosti
na hodnot� self.fkonec prov�d�t self.close. Takov�to postup je v tomto
p��pad� plnohodnotnou n�hradou za pou�it� va#eho formclose(..), p�i�em� se
tak vyhnete potݿ�m s OS.
Mohlo by to vypadat nap�. takto:
type TDel_StatusForm = class(tform)
...
procedure wmsyscommand(var msg: twmsyscommand); message
wm_syscommand;
...
end;
...
procedure TDel_StatusForm.wmsyscommand(var msg: twmsyscommand);
begin
if msg.cmdtype and $fff0 = sc_close then
begin
if self.konec then self.close;
...
end
else inherited;
end;> o zakazani ALT-F4 a pod tu je mnoho prispevku, ale jak zaridit aby se
> aplikace ukoncila pri restartu nebo vypnuti PC, pokud mam:
>
> procedure TDel_StatusForm.FormClose(Sender: TObject; var Action:
> TCloseAction);
> begin
> if not Self.fKonec
> then Action := caNone;
> end;
>
> fKonec nastavuji pokud uzivatel chce aplikaci ukoncit.
> Pokud se ale restartuje nebo vypina PC tak to hlasi, ze aplikace
> neodpovida...Prilinkovani DLL
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 13.5.2001 19:26:29
pebundle:
http://www.collakesoftware.com/files/pebsetup.exe
Mike
Uzivatelske jmeno ve Windows
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 13.5.2001 19:27:48
function username: string;
const len: dword = 127;
begin
setlength(result, len);
if getusername((zv)result[1], len) then setlength(result, len - 1) else result
:= '';
end;
Mike
> Zdravim,
> mohl by mi nekdo prosim napsat konkretni priklad pouziti GetUserName s
> deklaracemi promenych, nevim, jak se tyto typy fci pouzivaji.
> dekuji
> Petr Vasicek
Ukon�en� aplikace
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 13.5.2001 23:56:20
V pripade restaru nebo ukonceni windowsu se negeneruje
WM_SYSCOMMAND : sc_close ???
(Pri alt-f4 se generuje - krokovano)
Dekuji
Zdenek
PS: Kde se vice docist o tom co windowsy delaji (generuji) v pripade
Reset/Vypnuti/Spanku/Hibernate???
----- Original Message -----
> Jeliko� jde o zak�z�n� ukon�en� aplikace ze strany u�ivatele (tedy nap�.
> alt-f4, ...) navrhoval bych odchyt�vat zpr�vy WM_SYSCOMMAND a v z�vislosti
> na hodnot� self.fkonec prov�d�t self.close. Takov�to postup je v tomto
> p��pad� plnohodnotnou n�hradou za pou�it� va#eho formclose(..), p�i�em� se
> tak vyhnete potݿ�m s OS.
>
> Mohlo by to vypadat nap�. takto:
>
> type TDel_StatusForm = class(tform)
> ...
> procedure wmsyscommand(var msg: twmsyscommand); message
> wm_syscommand;
> ...
> end;
>
> ...
>
> procedure TDel_StatusForm.wmsyscommand(var msg: twmsyscommand);
> begin
> if msg.cmdtype and $fff0 = sc_close then
> begin
> if self.konec then self.close;
> ...
> end
> else inherited;
> end;
>
>
StringList - loadFromFile
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 14.5.2001 00:59:48
Zdravim,
mam nasledujici problem:
procedure Ahoj;
var
Neco: TStringList;
begin
Neco := StringList.Create;
Try
Neco.LoadFormFile(soubor);
...
Except
end;
end;
No a pokud pred timhle nactu uplne jiny soubor treba pomoci OpenDialog, pak mi to LoadFromFile hodi vyjimku. V opacnem pripade
se soubor nacte v poradku.
Nevite nekdo cim to je a co s tim? Dik,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
D5 Ent, W2k
P.S.: nasel jsem uplne stejny dotaz v archivu konfery - 1997, ale bez odpovedi
dynamicka lokalizace frames
[*] Jirka Skladal <jirka.skladal(zv)seznam(tec)cz> - 14.5.2001 03:44:25
Nevite jak mam dynamicky lokalizoval frames? Ten priklad s RichEditem je
nelokalizuje. Pliiss poradte. Jirka
StringList - loadFromFile
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.5.2001 06:06:06
Uvadis soubor i s cestou ? Open dialog meni adresar pro aplikaci.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.5.2001 Adam Feistner:
> Zdravim,
> mam nasledujici problem:
> procedure Ahoj;
> var
> Neco: TStringList;
> begin
> Neco := StringList.Create;
> Try
> Neco.LoadFormFile(soubor);
> ...
> Except
> end;
> end;
> No a pokud pred timhle nactu uplne jiny soubor treba pomoci OpenDialog, pak mi to LoadFromFile hodi vyjimku. V opacnem pripade
> se soubor nacte v poradku.
StringList - loadFromFile
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 14.5.2001 06:49:10
Jakou vyjimku ???
> No a pokud pred timhle nactu uplne jiny soubor treba pomoci OpenDialog,
pak mi to LoadFromFile hodi vyjimku. V opacnem pripade
> se soubor nacte v poradku.
>
> Nevite nekdo cim to je a co s tim?
StringList - loadFromFile
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 14.5.2001 07:31:20
Pokud to mas opravdu napsane tak jak to pises, tak je tam chyba.Melo by
to byt takhle:
neco := TStringList.Create;
> -----Original Message-----
> From: Adam Feistner [mailto:feistna(zv)volny(tec)cz]
> Sent: Monday, May 14, 2001 1:00 AM
> To: Delphi new
> Subject: StringList - loadFromFile
>
>
> Zdravim,
>
> mam nasledujici problem:
>
> procedure Ahoj;
> var
> Neco: TStringList;
> begin
> Neco := StringList.Create;
> Try
> Neco.LoadFormFile(soubor);
> ...
> Except
>
> end;
> end;
>
> No a pokud pred timhle nactu uplne jiny soubor treba pomoci
> OpenDialog, pak mi to LoadFromFile hodi vyjimku. V opacnem pripade
> se soubor nacte v poradku.
>
>
> Nevite nekdo cim to je a co s tim?
>
>
> Dik,
>
> Adam Feistner
> feistna(zv)volny(tec)cz
> www.volny(tec)cz/feistna/cz.htm
>
>
> D5 Ent, W2k
>
> P.S.: nasel jsem uplne stejny dotaz v archivu konfery - 1997,
> ale bez odpovedi
Ako precitat Btieve DOS verzia
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.5.2001 07:42:49
Zkus pouzit BUTIL ( je soucasti BTrieve) pro export do TXT,
pak rozlousknout strukturu zaznamu nebo se podivej jestli ji nekde nemas
definovanou.
pavel.gazda(zv)seznam(tec)cz
Ceny Delphi 6
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 14.5.2001 07:49:08
Uz jsou na svete ceny Delphi 6.
D6 personal 4400.-
D6 prof 40 400,-
D6 prof/upgr 15 990,-
D6 enterpr 120 480.-
Program samotny mat byt ve 24. tydnu tohoto roku.
Radim
SetForegroundWindow a W2000
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 14.5.2001 07:58:32
Ahoj,
narazil jsem na zajimave chovani, ktere si neumim vysvetlit.
Vytvoril jsem jednoduchy COM exe server (po zavolani otevre form
s par buttony) a jednoducheho klienta, ktery tento COM server
pouziva (tj. pro tuto chvili spusti ho). Na formu COM serveru je
button AktivujMain, ktery provede SetForegroundWindow na handle
hlavniho formu klienta (handle se preda do COM objektu po jeho
spusteni). Na klientu je button AktivujCOM, ktery zavola metodu
COM serveru, v jejimz tele je Application.BringToFront.
A ted problem. Na NT4 vse funguje spravne, tj. z klienta lze
aktivovat do popredi COM server a naopak - z COM serveru lze
zaktivovat klienta.
Na W2000 lze z COM serveru aktivovat klienta. Z neznamych
duvodu se ale nepodari z klienta aktivovat COM server. On se sice
stane aktivni (=je videt, ktery button ma focus), ale titulek okna
zustane modry u klienta. A pozor - pri ladeni z Delphi to funguje
spravne!!! Pouze u primeho spusteni exe se to chova, tak jak pisu.
Mate nekdo nejake vysvetleni, popr. napad, co s tim? V metode
vyse popsane Application.BringToFront jsem zkousel nahradit
pomoci SetActiveWindow i SetForegroundWindow, ale bez
uspechu.
D5.01 Enterprise.
Diky.
David Lebeda
SELECT a datum (FormatDateTime)
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.5.2001 08:15:18
Ale je do te doby, nez to nekdo nebo nejaka jina aplikace prenastavi
:-(
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.5.2001 Milan Tome#:
> Zkus si v BDE nastavit format datumu na 1 a pak zformatuj datum na MM/DD/YYYY s
> nulama na zacatku. To stoprocentne funguje - my to ve firme pouzivame.Ako precitat Btieve DOS verzia
[*] Matula M. <mirek.delphi(zv)centrum(tec)cz> - 14.5.2001 08:21:16
To mas pravdu. To je nejjednodussi zpusob jak se dostat k datum.
Mirek
----- Original Message -----
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 14, 2001 7:42 AM
Subject: Re: Ako precitat Btieve DOS verzia
> Zkus pouzit BUTIL ( je soucasti BTrieve) pro export do TXT,
> pak rozlousknout strukturu zaznamu nebo se podivej jestli ji nekde nemas
> definovanou.
>
> pavel.gazda(zv)seznam(tec)cz
>
>
>Identifikace okna podle t��dy
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 14.5.2001 08:25:58
A co to zkusit takhle:
DD_CONTINUE_HWND:=FindWindow(Pchar('#32770'),nil);
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> na zjisteni tridy okna - vzdy mi ukazali neco jako #32770, pokud to dam do
> FindWindow, nefunguje to. Podle Caption okna to nemohu identifikovat,
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> var DD_CONTINUE_HWND: HWND; DD_WINDOWNAME: string;
> begin
> DD_CONTINUE_HWND:=FindWindow(Pchar(#32770),nil);
>
> GetWindowText(DD_CONTINUE_HWND,PChar(DD_WINDOWNAME),255);
> if (DD_WINDOWNAME='Continue') or (DD_WINDOWNAME='Notice') or
> (DD_WINDOWNAME='Attention') or (DD_WINDOWNAME='Info') then
> ShowMessage('HWND: '+IntToStr(DD_CONTINUE_HWND)+', Caption:
> '+DD_WINDOWNAME);
> end;
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
> Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
restart site ve W2K z programu
[*] Tu�ek Roman (M� Praha 15) - 14.5.2001 08:34:44
winnt i win2k mohou mit najednou prideleno vice IP adres, gateway, masek
apod. tak proc prepinatko ?
> -----P�vodn� zpr�va-----
> Od: Milan Schembera [SMTP:milan(zv)missoftware(tec)cz]
> Odesl�no: 11. kv�tna 2001 15:41
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: RE: restart site ve W2K z programu
>
> Ve Win2k je sikovnej programek NETSH (netshell), kterej to umi bez
> zakazovani a povolovani. Pripadne priklady poslu na pozadani na soukromou
> adresu.
>
> Krome toho to lze jeste resit DHCP serverem v pripojovane siti (otazka 5
> minut konfigurace).
>
> Milan
>
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> > Behalf Of Tom�# Hol�
> >
> > chci si udela prepinatko siti, protoze chodim s notebookem do
> > vice firem, a
> > kazda ma jinou cfg IP adres
> SELECT a datum (FormatDateTime)
[*] "Milan Skalsk�" - 14.5.2001 6:51:06
Ahojky,
Bohuzel mi to dle tve rady nefacha :( Hlasi mi to Type Mismatch in
Expresson :((( (EDBError with Message "Type Mismatch ...."
{
Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
NAROZENI like '''+FormatDateTime ('d.m.', now) + '%''';
// ... kdyz tam bude 'dd.mm', tak to bude hledat data treba 02.09.2001,ale
ono je to ulozene ve formatu 2.9.2001, proto 'd.m.'
Query1.Open;
}
... v cem to muze byt ?
Nemohlo by to byt treba tim, ze datum v souboru je sice ukladano jako DATE,
ale ve formatu DD.MM.YYYY ... a navic pokud je datum treba 1.1.2001, taxe to
ulozi jako 1.1.2001 a ne jako 01.01.2001 ?
Milan
--- P�vodn� dopis ----------------------------------------------------------
Datum: 12.05.2001 18:34
Od: "Delphi" <DelphiForum(zv)seznam(tec)cz>
Pro: milan_2(zv)sose-sou(tec)cz, ...
V�c: Re: SELECT a datum - EXTRACT ??
----------------------------------------------------------------------------
>> Nevim, skoly nemam :-), ale takhle zjistis pouze lidi, kteri se
>> narodili dnes. Pokud jsem se narodil vloni, mam smulu :-(
>
>Omlouvam se, psal jsem to narychlo a trochu jsem to dopletl. Spravne to ma
>byt takto :
>
>Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
>NAROZENI like ''' + FormatDateTime ( 'dd.mm.', now) + '%''';
>Query1.Open;
>
>Petr Jur�k, Spr�vce s�t�, program�tor
>COMET System s.r.o.
>1.M�je 1220
>756 61 Ro�nov pod Radho#t�m
>tel. 0651/653990
>fax. 0651/653993
>www.cometsystem(tec)cz
>
>
Milan
Delphi beginner
Delphi3 C/S, W98
SELECT a datum (FormatDateTime)
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 14.5.2001 09:09:06
Zkus si v BDE nastavit format datumu na 1 a pak zformatuj datum na MM/DD/YYYY s
nulama na zacatku. To stoprocentne funguje - my to ve firme pouzivame.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Bohuzel mi to dle tve rady nefacha :( Hlasi mi to Type Mismatch in
> Expresson :((( (EDBError with Message "Type Mismatch ...."
> {
> Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
> NAROZENI like '''+FormatDateTime ('d.m.', now) + '%''';
> // ... kdyz tam bude 'dd.mm', tak to bude hledat data treba 02.09.2001,ale
> Milan
SELECT a datum (FormatDateTime)
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 14.5.2001 09:24:01
Z vlastni zkusenosti vim, ze tohle opravdu moc casto nehrozi resp. nam se to za
cca. 5 let jeste nestalo a tech instalaci mame opravdu dost...
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Ale je do te doby, nez to nekdo nebo nejaka jina aplikace prenastavi
> :-(
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
Uzamceni stanice
[*] jemeto <jemeto(zv)volny(tec)cz> - 14.5.2001 09:34:02
D5E, NT
Lze zachytit udalost, kdy uzivatel "uzamkne PC" resp. "odemkne" pomoci
(Ctrl+Alt+Del). Zasila Windows v tomto pripade nejake zpravy.
Diky za pomoc
SELECT a datum - akutni
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 14.5.2001 09:47:57
>Potrebuju do DBGridu vypsat seznam vsech lidi z tabulky, kteri maji "dnes"
>narozeniny ...
>pole NAROZENI obsahuje datum narozeni clovicka (typ DATE)
> pouzil jsem uz dva druhy a ani jeden mi nefacha
Ahoj,
a tohle by nevyhovovalo ?
SELECT prijmeni,jmeno,narozeni FROM "DATA.DBF"
WHERE DAY(narozeni)="24" AND MONTH(narozeni)="1"
Melo by najit vsechny, kteri se narodili 24.1.
Jolana Ko#�tkov�
e_mail: Jolana.Kotatkova(zv)pvt(tec)cz SELECT a datum - akutni
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 14.5.2001 09:56:39
Paradox i Delphi hlasi Invalid use of keyword. Token Day(Datum)='1'
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Ahoj,
>
> a tohle by nevyhovovalo ?
>
> SELECT prijmeni,jmeno,narozeni FROM "DATA.DBF"
> WHERE DAY(narozeni)="24" AND MONTH(narozeni)="1"StringList - loadFromFile
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 14.5.2001 09:56:22
Jo dik, tohle bylo ono - neuvedomil jsem si to a mel jsem tam pouze soubor. Dik.
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
P.S.: Jinak, samozrejme tam ma byt Neco := TSrtingList.Create; Sem se prepsal pri psani mailu. Sorry.
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
Subject: Re: StringList - loadFromFile
> Uvadis soubor i s cestou ? Open dialog meni adresar pro aplikaci.
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 14.5.2001 Adam Feistner:
> > Zdravim,
>
> > mam nasledujici problem:
>
> > procedure Ahoj;
> > var
> > Neco: TStringList;
> > begin
> > Neco := StringList.Create;
> > Try
> > Neco.LoadFormFile(soubor);
> > ...
> > Except
>
> > end;
> > end;
>
> > No a pokud pred timhle nactu uplne jiny soubor treba pomoci OpenDialog, pak mi to LoadFromFile hodi vyjimku. V opacnem
pripade
> > se soubor nacte v poradku.SELECT a datum (FormatDateTime)
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 14.5.2001 10:08:19
> ... v cem to muze byt ?
>Nemohlo by to byt treba tim, ze datum v souboru je sice ukladano jako DATE,
>ale ve formatu DD.MM.YYYY ... a navic pokud je datum treba 1.1.2001, taxe
to
>ulozi jako 1.1.2001 a ne jako 01.01.2001 ?
Zkus jeste tohle :
Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
cast(NAROZENI as char(10)) like ''' + FormatDateTime ( 'dd.mm.', now) +
'%''';
Query1.Open;
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 09.05.01
restart site ve W2K z programu
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 14.5.2001 10:29:51
Mezi nami: Tuhle moznost jsem zkousel, ale nejak nefugovala v pripade
ruznych GW a masek. :-(
Nebo sem blbej a neprisel na to, jak ...
M.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Tu�ek Roman (M# Praha 15)
>
> winnt i win2k mohou mit najednou prideleno vice IP adres,
> gateway, masek
> apod. tak proc prepinatko ?
Zalozka OBSAH v napovede
[*] Josef Madlik <josef.madlik(zv)worldonline(tec)cz> - 14.5.2001 11:25:09
Zdravim vespolek.
Kdysi v konferenci probehla diskuze o problemu zobrazeni
zalozky Obsah pri vyvolani napovedy. Ale bohuzel jsem
v archivu nenalezl, jestli se to nekomu povedlo.
Umim zobrazit Rejstrik pomoci prikazu:
Application.HelpCommand(HELP_PARTIALKEY, Longint(EmptyString));
Ale pokud pouziji:
Application.HelpCommand(HELP_FINDER, 0);
Otevre se vzdy napoveda na zalozce, ktera byla otevrena naposledy.
Pritom to nejak jit musi, nebot jine aplikace to zvladnou.
Nevite tedy nekdo jak primet napovedu, aby se mi otevrela
vzdy na zalozce Obsah?
Predem Vam dekuji.
J.Madlik
None
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 14.5.2001 11:28:36
Hledej na Internetu Skin Factory. Vaclav Sazima
Lubos Daniel wrote:
>
> Ahoj.
>
> Neviete niekto ako si mozem zoskinovat moj program.
> Napr. ako Winamp alebo Netscape 6?
>
> Inac, ako to robi Thematic Chroma?
> www.thematic.com/chroma
>
> Lubos
Ukon�en� aplikace
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 14.5.2001 12:00:34
> V pripade restaru nebo ukonceni windowsu se negeneruje
> WM_SYSCOMMAND : sc_close ???
Ne. Windows mohou program ukoncit nekolikerym zpusobem. Napr.: poslanim
zpravy WM_CLOSE, ale nikdy ne pres WM_SYSCOMMAND. Tahle zprava se posila,
kdyz udela neco UZIVATEL - klikne na zavrit, chce okno maximalizovat,
minimalizovat, atd. S klidem muzes pouzit to co jsem ti napsal - je to
vyzkousene.
> PS: Kde se vice docist o tom co windowsy delaji (generuji) v pripade
> Reset/Vypnuti/Spanku/Hibernate???
>
> ----- Original Message -----
> > Jeliko� jde o zak�z�n� ukon�en� aplikace ze strany u�ivatele (tedy nap�.
> > alt-f4, ...) navrhoval bych odchyt�vat zpr�vy WM_SYSCOMMAND a v
z�vislosti
> > na hodnot� self.fkonec prov�d�t self.close. Takov�to postup je v tomto
> > p��pad� plnohodnotnou n�hradou za pou�it� va#eho formclose(..), p�i�em�
se
> > tak vyhnete potݿ�m s OS.
> >
> > Mohlo by to vypadat nap�. takto:
> >
> > type TDel_StatusForm = class(tform)
> > ...
> > procedure wmsyscommand(var msg: twmsyscommand); message
> > wm_syscommand;
> > ...
> > end;
> >
> > ...
> >
> > procedure TDel_StatusForm.wmsyscommand(var msg: twmsyscommand);
> > begin
> > if msg.cmdtype and $fff0 = sc_close then
> > begin
> > if self.konec then self.close;
> > ...
> > end
> > else inherited;
> > end;
> >
> >
>
>SELECT a datum - akutni
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 14.5.2001 12:03:22
Toto je format z Accesu, v BDE je na to funkce Extract. Ale to uz tady bylo.
Slavek
>
> Paradox i Delphi hlasi Invalid use of keyword. Token Day(Datum)='1'
>
>
> > Ahoj,
> >
> > a tohle by nevyhovovalo ?
> >
> > SELECT prijmeni,jmeno,narozeni FROM "DATA.DBF"
> > WHERE DAY(narozeni)="24" AND MONTH(narozeni)="1"Personal information manager
[*] Kr�l Jirka jr. <admin(zv)printo(tec)cz> - 14.5.2001 12:03:29
::omlouvam se za OT, ale chci nahradit Outlook98, ktery pouzivam pro postu,
Vrele doporucuji Outlook 2000 (tzn. vyrazeni klinu klinem)
jsem s nim naprosto spokojen, a navic krasne umi informacne kopulovat s
handheld PC.
Je rychly a stabilni, funguje na nem vetsina viru ;-))), ale specialista
jiste nebude spoustet podezrele atasmenty s VBS nebo PIF, ze ano.
Jirka
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 9.5.2001
SELECT a datum - akutni
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.5.2001 12:15:49
Zkus tento tvar:
SELECT a.*
FROM odberat.db a
WHERE (extract(day from ZmDatum)=28)
and (extract(month from ZmDatum)=4)
Karel Rys
Milan Tome# dne 14 May 2001, v 9:56:
> Paradox i Delphi hlasi Invalid use of keyword. Token Day(Datum)='1'
>
> S pozdravem
>
> Milan Tome#
> Vedouc� v�vojov�ho t�mu Windows
> Softwarehouse HAiDA s.r.o.
> Nov� Bor
> tel: 0424/722291, 0424/222284
> email: Milan.Tomes(zv)haida(tec)cz
>
> > Ahoj,
> >
> > a tohle by nevyhovovalo ?
> >
> > SELECT prijmeni,jmeno,narozeni FROM "DATA.DBF"
> > WHERE DAY(narozeni)="24" AND MONTH(narozeni)="1"
>
Spusteni programu se startem Windows
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 14.5.2001 06:22:06 -0400
Zdravim,
jak mohu docilit toho, aby se aplikace spustila vzdy po spusteni Windows a
nechci to davat do Po Spusteni. Kam a jak se to da dat do registru nebo do
win.ini?
Dekuji za radu
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Spusteni programu se startem Windows
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 14.5.2001 12:29:25
> jak mohu docilit toho, aby se aplikace spustila vzdy po spusteni Windows a
> nechci to davat do Po Spusteni. Kam a jak se to da dat do registru nebo do
Zkus z JCL pouzit RegisterAutoExec z unitu JclRegistry ...
T.Spusteni programu se startem Windows
[*] Martin Bocek <Martin_Bocek(zv)gordic(tec)cz> - 14.5.2001 12:42:19
> jak mohu docilit toho, aby se aplikace spustila vzdy po spusteni Windows
a
> nechci to davat do Po Spusteni. Kam a jak se to da dat do registru nebo do
> win.ini?
Pro Windows98 je to v registrech ve vetvi:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
S pozdravem
Martin Bocek (Martin_Bocek(zv)gordic(tec)cz)
Spusteni programu se startem Windows
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 14.5.2001 12:43:09
Dej to do registru na
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Petr Jur�k, Spr�vce s�te, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
> nechci to davat do Po Spusteni. Kam a jak se to da dat do registru nebo do
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 09.05.01
Uzamceni stanice
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 14.5.2001 12:45:26
Nelze,
ve WinNT to nejde vubec, leda ze by se prepsala gina, jinak W2K na to snad
maji nejakou api fci - LockWorkStation(). Nicmene, zatim se mi nedari ji
nejak rozchodit ;).
Ozon
> D5E, NT
>
> Lze zachytit udalost, kdy uzivatel "uzamkne PC" resp. "odemkne" pomoci
> (Ctrl+Alt+Del). Zasila Windows v tomto pripade nejake zpravy.Zalozka OBSAH v napovede
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 14.5.2001 13:15:27
Ahoj,
From: "Josef Madlik" <josef.madlik(zv)worldonline(tec)cz>
>
> Umim zobrazit Rejstrik pomoci prikazu:
> Application.HelpCommand(HELP_PARTIALKEY, Longint(EmptyString));
>
> Ale pokud pouziji:
> Application.HelpCommand(HELP_FINDER, 0);
> Otevre se vzdy napoveda na zalozce, ktera byla otevrena naposledy.
> Pritom to nejak jit musi, nebot jine aplikace to zvladnou.
musis pouzit
Application.HelpJump(NAVESTI);
podivej se do Helpu
> Nevite tedy nekdo jak primet napovedu, aby se mi otevrela
> vzdy na zalozce Obsah?
Jarek Uher
"Zatuhnuti" CTRL
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 14.5.2001 13:48:52
Zdravim,
deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
(nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
(pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
uvolni !?
Co to muze zpusobovat ? (nebo aspon jak automatizovane zjistit tuto situaci
a provest napravu)
prede dekuji za nakopnuti
"Zatuhnuti" CTRL
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 14.5.2001 14:07:05
Ahoj
Nemas zapnutou funkci "Jednim prstem" v ovladacich panelech v casti
"Moznosti usnadneni"?
Jaromir Cermak
-----Original Message-----
From: Zden�k Brej#a [mailto:prog(zv)hjsoft(tec)cz]
Zdravim,
deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
(nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
(pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
uvolni !?
Co to muze zpusobovat ? Uzamceni stanice
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 14.5.2001 14:20:03
Sorry, mluvil jsem k jinemu tematu...
Takze tedy:
Pri stisknuti Ctrl+Alt+Delete se skutecne vygeneruje zprava
WLX_SAS_TYPE_CTRL_ALT_DEL, kterou Winlogon posle GINA dll (nesklonuji). IMHO
jedine reseni je napsat filtr na GINA.dll, ev. ji prepsat. Druha moznost je
napsat filter driver na klavesnici, ktery odchytne Ctrl+Alt+Del. Ale to je
takove docela hloupe reseni.
Odkazy: MSDN - Security->Logon Authentication. (na
http://msdn.microsoft.com/library)
Ozon
> Nelze,
> ve WinNT to nejde vubec, leda ze by se prepsala gina, jinak W2K na to snad
> maji nejakou api fci - LockWorkStation(). Nicmene, zatim se mi nedari ji
> nejak rozchodit ;).
>
> > D5E, NT
> >
> > Lze zachytit udalost, kdy uzivatel "uzamkne PC" resp. "odemkne" pomoci
> > (Ctrl+Alt+Del). Zasila Windows v tomto pripade nejake zpravy.
>Select v ListView
[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 14.5.2001 14:23:02
Potreboval by som, aby sa pri kliknuti na nejaky riadok v ListView (pri
ViewStyle:= vsReport) nezmenila podkladova farba tohoto riadku. Da sa to
urobit nejako jednoducho?
Roman
Zalozka OBSAH v napovede
[*] Josef Madlik <josef.madlik(zv)worldonline(tec)cz> - 14.5.2001 14:32:31
Zrejme si nerozumime.
Mam soubor napovedy xxx.hlp a soubor s obsahem xxx.cnt.
Pokud spustim primo xxx.hlp, otevre se okno, ktere obsahuje
celkem 3 zalozky:
- Obsah
- Rejstrik
- Najit
Vyvolat napovedu a otevrit konkretni tema napovedy, umim.
Mne ale zajima, jak vyvolat napovedu, aby se otevrelo
okno s obsahem napovedy - dle xxx.cnt.
J.Madlik
----- Original Message -----
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>> Ahoj,
>
> From: "Josef Madlik" <josef.madlik(zv)worldonline(tec)cz>
> >
> > Umim zobrazit Rejstrik pomoci prikazu:
> > Application.HelpCommand(HELP_PARTIALKEY, Longint(EmptyString));
> >
> > Ale pokud pouziji:
> > Application.HelpCommand(HELP_FINDER, 0);
> > Otevre se vzdy napoveda na zalozce, ktera byla otevrena naposledy.
> > Pritom to nejak jit musi, nebot jine aplikace to zvladnou.
>
> musis pouzit
> Application.HelpJump(NAVESTI);
> podivej se do Helpu
>
> > Nevite tedy nekdo jak primet napovedu, aby se mi otevrela
> > vzdy na zalozce Obsah?
>
>
> Jarek Uher
> Uzamceni stanice
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 14.5.2001 14:36:18
Btw, a existuje neco podobneho jako je (zminovana) GINA.DLL i na
PlayStationu 9x a Meee?
>ve WinNT to nejde vubec, leda ze by se prepsala gina, jinak W2K na to snad
>maji nejakou api fci - LockWorkStation(). Nicmene, zatim se mi nedari ji
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
"Zatuhnuti" CTRL
[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 14.5.2001 14:47:49
neni to nejaka z funkci winsows pro ulehceni psani telesne postizenym? (je
to nekde v prislusenstvi nebo ovladacich panelech - psani jednim prstem).
Anebo zaspinena klavesnice? (tedy skutecne "prilepeny" ctrl)
-----Original Message-----
From: Zden�k Brej#a [mailto:prog(zv)hjsoft(tec)cz]
Sent: Monday, May 14, 2001 1:49 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: "Zatuhnuti" CTRL
Zdravim,
deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
(nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
(pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
uvolni !?
Co to muze zpusobovat ? (nebo aspon jak automatizovane zjistit tuto situaci
a provest napravu)
prede dekuji za nakopnuti
Focus na vybrany text v MDIChildu
[*] Ing. Rudolf Krizek <rudolf.krizek(zv)mlade(tec)cz> - 14.5.2001 14:56:14
Ahoj,
potrebuji poradit s nasledujicim: mam MDI aplikaci. MDIChildy zobrazuji
textove soubory, resim problem s nalezenim a nahrazenim textu. zobrazim
dialog pro replace, naleznu a vyselektuji hledany text, ale nedokazu udelat
dany childform s vysledky hledani aktivni, abych videl, co jsem vlastne
nalezl. pritom kdyz se rucne prepnu na dany child, je nalezeny text spravne
vybrany. Tedy abych to shrnul: nedokazu prenest fokus z dialogu replace do
daneho mdichildu abych videl, co je nalezeno.
PS: mam D5 a W2K
Zdravi Rudolf Krizek
Uzamceni stanice
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 14.5.2001 15:10:19
Zkuste se podivat pod Win2K ci WinNT na klic
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon\Notify\
Je tam seznam knihoven DLL a seznam funknci, ktere GINA vola pri nejake
akci. Kazda knihovna si definuje o cem chce byt informovana a jak se
jmenuje jeji vnitrni funknce.
> > > Lze zachytit udalost, kdy uzivatel "uzamkne PC" resp. "odemkne" pomoci
> > > (Ctrl+Alt+Del). Zasila Windows v tomto pripade nejake zpravy.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
"Zatuhnuti" CTRL
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 14.5.2001 15:19:44
----- P�vodn� zpr�va -----
Od: "Radek Janka" <radek.janka(zv)ipsystem(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 14. kv�tna 2001 14:47
P�edm�t: RE: "Zatuhnuti" CTRL
> neni to nejaka z funkci winsows pro ulehceni psani telesne postizenym? (je
> to nekde v prislusenstvi nebo ovladacich panelech - psani jednim prstem).
> Anebo zaspinena klavesnice? (tedy skutecne "prilepeny" ctrl)
to urcite ne, protoze to nedela jen u mne, ale u dalsich 5 zakazniku (W98,
W2K)
>> deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
>> (nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
>> (pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
>> uvolni !?
>>
>> Co to muze zpusobovat ? (nebo aspon jak automatizovane zjistit tuto
situaci
>> a provest napravu)
>>
>> prede dekuji za nakopnuti
Prepis funkce z Ccka do Pascalu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.5.2001 15:41:02
DD,
lze vubec nejak prepsat v pascalu deklaraci hlavicky funkce, ktera je v Ccku
deklarovana takto:
void NejakeJmeno(int, ...);
tedy ma variabilni pocet parametru?
D. Toman
restart site ve W2K z programu
[*] Tom� Hol� - 14.5.2001 15:51:43
a jak se to nastavi ?
me zatim vyhovuje ten tnetshell od kolegy, facha to super !!!
TH
> winnt i win2k mohou mit najednou prideleno vice IP adres, gateway, masek
> apod. tak proc prepinatko ?
>
Prepis funkce z Ccka do Pascalu
[*] Marek M�ller <delphi-konference(zv)bcpraha(tec)com> - 14.5.2001 15:52:08
zkus se do helpu podivat na funkci VarArrayOf()
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Dalibor Toman
Sent: Monday, May 14, 2001 3:41 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Prepis funkce z Ccka do Pascalu
DD,
lze vubec nejak prepsat v pascalu deklaraci hlavicky funkce, ktera je v Ccku
deklarovana takto:
void NejakeJmeno(int, ...);
tedy ma variabilni pocet parametru?
D. Toman
Select v ListView
[*] brant(zv)dcomm(tec)cz - 14.5.2001 16:05:14
Nevim, jestli je to dost jednoduche, ale da se nastavit styl na OwnerDrawn a
pak se staras o vykreslovani radku sam a tim padem muzes ovlivnit i to
podbarvovani.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Tel. 0724/007234
Potreboval by som, aby sa pri kliknuti na nejaky riadok v ListView (pri
ViewStyle:= vsReport) nezmenila podkladova farba tohoto riadku. Da sa to
urobit nejako jednoducho?Select v ListView
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 14.5.2001 16:21:43
Podle me takhle.... ale ja to pouzivam v jine souvislosti....
procedure TForm.ListCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
List.Canvas.Font.Color := clXXX;
List.Canvas.Brush.Color := clYYY;
DefaultDraw := True;
end;
Ales
> Potreboval by som, aby sa pri kliknuti na nejaky riadok v
> ListView (pri
> ViewStyle:= vsReport) nezmenila podkladova farba tohoto
> riadku. Da sa to
> urobit nejako jednoducho?SELECT a datum (FormatDateTime) - POKROK
[*] Marek M�ller <delphi-konference(zv)bcpraha(tec)com> - 14.5.2001 16:22:31
vyzkousel jsem to a tohle mi fungovalo:
Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
EXTRACT(MONTH FROM narozeni) = ' + FormatDateTime ( 'm', now) + ' AND EXT
RACT(DAY FROM narozeni) = ' + FormatDateTime ( 'd', now);
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Milan Skalsk�
Sent: Monday, May 14, 2001 5:02 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: SELECT a datum (FormatDateTime) - POKROK
Datum: 14.05.2001 11:43
Od: "Petr" <DelphiForum(zv)seznam(tec)cz>
Pro: milan_2(zv)sose-sou(tec)cz, ...
V�c: Re: SELECT a datum (FormatDateTime)
>Zkus jeste tohle :
>
>Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
>cast(NAROZENI as char(10)) like ''' + FormatDateTime ( 'dd.mm.', now) +
>'%''';
---------------------------------------------------------------------------
... POKROK : Uz to pri vykonavani dotazu netuhne ... to znamena, ze je to
syntakticky spravne :) ... bohuzel do toho DBGRIDU mi to nevypise jedineho
clovicka ... nevim proc :(
Kdyztak mrknete na to nekdo, kdo si myslite, ze byste s tim neco svedli ...
posilam to v priloze, ma to asi 6 kB v *.zip a nebo 31kB zdrojakove soubory
vcetne DB.
DIky moc
... Milan
Milan
Delphi beginner
Delphi3 C/S, W98
SELECT a datum (FormatDateTime) - POKROK
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 14.5.2001 16:24:26
Ahoj,
s datumem se pracuje obecne dost ruzne, pokud je to nejaka *.DBF, tak
nejjednodusi je prime porovnani !
Query14.SQL.Text := 'SELECT prijmeni, jmeno, narozeni FROM data WHERE
narozeni = DATE()'
Pokud by slo SQL server je nutna konverze (datum obsahuje i cas a ten je
treba oddelit).
PS: extenze souboru tabulky je nepovinna pokud je 'DBF' (default hodnota)!
Ahoj Pavel
-----P�vodn� zpr�va-----
Od: "Milan Skalsk�"<milan_2(zv)sose-sou(tec)cz> [mailto:milan_2(zv)sose-sou(tec)cz]
Odesl�no: 14. kv�tna 2001 17:02
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: SELECT a datum (FormatDateTime) - POKROK
Datum: 14.05.2001 11:43
Od: "Petr" <DelphiForum(zv)seznam(tec)cz>
Pro: milan_2(zv)sose-sou(tec)cz, ...
V�c: Re: SELECT a datum (FormatDateTime)
>Zkus jeste tohle :
>
>Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
>cast(NAROZENI as char(10)) like ''' + FormatDateTime ( 'dd.mm.', now) +
>'%''';
---------------------------------------------------------------------------
... POKROK : Uz to pri vykonavani dotazu netuhne ... to znamena, ze je to
syntakticky spravne :) ... bohuzel do toho DBGRIDU mi to nevypise jedineho
clovicka ... nevim proc :(
Kdyztak mrknete na to nekdo, kdo si myslite, ze byste s tim neco svedli ...
posilam to v priloze, ma to asi 6 kB v *.zip a nebo 31kB zdrojakove soubory
vcetne DB.
DIky moc
... Milan
Milan
Delphi beginner
Delphi3 C/S, W98
"field BETWEEN ... AND ..." nepouziva index
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 14.5.2001 16:33:06
Dobry den,
D 5 Ent., IB 6, IBExpress.
Mam tabulku T_Values s fieldy
"S_Day" TIMESTAMP,
"Object" Char(10),
"Value" Integer
Index je (S_Day, Object). Potrebuji vybrat hodnotu Value pro Object = ... v
rozmezi S_Day od ... do ...
Pokud pouziji dotaz
"(Object = ...) and (S_Day between ... and ...)"
nebo
"(S_Day >= ...) and (S_Day <= ...))",
trva vyber velmi dlouho.
Pokud pouziji dotaz
"(Object = ...) and (S_Day in (..., ..., ..., ..., ...))"
nebo
"(S_Day = ...) or (S_Day = ...) or (S_Day = ...) or (S_Day = ...) or
(S_Day = ...)",
pak je vysledek mnohem rychlejsi.
Je zrejme, ze v prvnim pripade neni pouzit Inedex. Druhy zpusob je nepruzny
a pouzitelny pouze pro jednoduche selecty generovane z v kodu Delphi. Pro
ulozene procedure, ktere pracuji s rozmezim od ... do ... je nemozne pouzit
durhy zpusob.
Otazka: Lze prinutit SELECT, aby pouzil index pri BETWEEN? Nebo existuje
nejake jine reseni?
Diky za kazdou pomoc,
Michal Tiller
(poukaz na vyvojare)
Michal.Tiller(zv)OskarMobil.Cz
Prepis funkce z Ccka do Pascalu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.5.2001 16:38:05
> zkus se do helpu podivat na funkci VarArrayOf()
Bohuzel s typem Variant to _nema_ nic spolecneho
> lze vubec nejak prepsat v pascalu deklaraci hlavicky funkce, ktera je v
Ccku
> deklarovana takto:
>
> void NejakeJmeno(int, ...);
>
> tedy ma variabilni pocet parametru?
Za predpokladu, ze Ccko nepridava do seznamu predanych parametru skryty
parametr, ktery uznacuje skutecny pocet parametru zadany volajicim to lze
ale zrejme jednoduse obejit prostou deklaraci nekolika funkci s potrebnym
poctem parametru:
Procedure NejakeJmeno_1param(Prvni, Konec: Integer);cdecl;
Procedure NejakeJmeno_2param(Prvni,Druhy, Konec: Integer);cdecl;
...
...
za predpokladu, ze promenna Konec bude mit hodnotu, kterou Cckovska funkce
bere jako zarazku.
D. Toman
Uzamceni stanice
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 14.5.2001 16:41:52
Nevim, podivej se do MSDN.
Ozon
> Btw, a existuje neco podobneho jako je (zminovana) GINA.DLL i na
> PlayStationu 9x a Meee?SELECT a datum (FormatDateTime) - POKROK
[*] "Milan Skalsk�" - 14.5.2001 15:01:58
[P��loha v souboru: dbase - sql pokus.zip";]
Datum: 14.05.2001 11:43
Od: "Petr" <DelphiForum(zv)seznam(tec)cz>
Pro: milan 2(zv)sose-sou(tec)cz, ...
V�c: Re: SELECT a datum (FormatDateTime)
>Zkus jeste tohle :
>
>Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where
>cast(NAROZENI as char(10)) like ''' + FormatDateTime ( 'dd.mm.', now) +
>'%''';
---------------------------------------------------------------------------
... POKROK : Uz to pri vykonavani dotazu netuhne ... to znamena, ze je to
syntakticky spravne :) ... bohuzel do toho DBGRIDU mi to nevypise jedineho
clovicka ... nevim proc :(
Kdyztak mrknete na to nekdo, kdo si myslite, ze byste s tim neco svedli ...
posilam to v priloze, ma to asi 6 kB v *.zip a nebo 31kB zdrojakove soubory
vcetne DB.
DIky moc
... Milan
Milan
Delphi beginner
Delphi3 C/S, W98
SQL dotaz nebo Filtr
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 14.5.2001 17:03:18
Zdravim,
v programu otevru DBF soubor. V tomto programu si uzivatel muze udelat SQL dotaz na tuto tabulku. Pri zadani napr tohoto dotazu select * from "tabulka" where sloupec=21 je bohuzel vysledkem dotazu prazdna tabulka. Pritom tam hodnota 21 skutecne je. Staci, kdyz prepisu tuto hodnotu znovu hodnotou 21 a vse je v poradku. To same se deje, kdyz na komponentu TTable zkusim nastavit filtr. Udela to to same. Zkousel jsem to na dvou PC, chovaji se stejne.
Mohl by jste prosim nekdo poradit? Mohu poslat i tabulky na soukromou adresu. Po zabaleni maji necele 3k.
Predem dekuji za jakoukoli odpoved.
Mirek Drejcek.
Select v ListView
[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 14.5.2001 17:06:48
Sice to funguje, ale ma to jeden velky nedostatok.
Ked nastavim OwnerDraw:= True, okamzite mi zmiznu vsetky subitemy a
ikonky a uz ich viac nezobrazim. Skusal som podobne vyplnit
ListCustomDraw aj ListCustomDrawSubItem, ale bez uspechu.
Roman
Ales Radikovsky wrote:
>
> Podle me takhle.... ale ja to pouzivam v jine souvislosti....
>
> procedure TForm.ListCustomDrawItem(Sender: TCustomListView;
> Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
> begin
> List.Canvas.Font.Color := clXXX;
> List.Canvas.Brush.Color := clYYY;
>
> DefaultDraw := True;
> end;
>
> Ales
>
> > Potreboval by som, aby sa pri kliknuti na nejaky riadok v
> > ListView (pri
> > ViewStyle:= vsReport) nezmenila podkladova farba tohoto
> > riadku. Da sa to
> > urobit nejako jednoducho?SQL dotaz nebo Filtr
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 14.5.2001 17:23:45
Poslete to, jestli vam uz nekdo neodpovedel, to bude nejaka prkotina.
> Zdravim,
> v programu otevru DBF soubor. V tomto programu si uzivatel
> muze udelat SQL dotaz na tuto tabulku. Pri zadani napr tohoto
> dotazu select * from "tabulka" where sloupec=21 je bohuzel
> vysledkem dotazu prazdna tabulka. Pritom tam hodnota 21
> skutecne je. Staci, kdyz prepisu tuto hodnotu znovu hodnotou
> 21 a vse je v poradku. To same se deje, kdyz na komponentu
> TTable zkusim nastavit filtr. Udela to to same. Zkousel jsem
> to na dvou PC, chovaji se stejne.
> Mohl by jste prosim nekdo poradit? Mohu poslat i tabulky na
> soukromou adresu. Po zabaleni maji necele 3k.
> Predem dekuji za jakoukoli odpoved.
>
> Mirek Drejcek.
>
>
> SELECT a datum narozeni - VYRESENO
[*] "Milan Skalsk�" - 14.5.2001 17:52:06
To All Delphins,
dekuji vsem za pomoc, hlavne pak Jolane Kotatkove, problem je vyresen. V
pripade, ze by Vas nekoho zajimalo konkretni reseni, pak zde pripojuji i
danou sekvenci pismenek, ktere dohromady davaji smysluplny text ... :
public
mY, mM, mD:Word;
.
.
...
Decodedate(Now(),mY,mM,mD);
Query1.SQL.Text:='SELECT prijmeni, jmeno, narozeni FROM "DATA.DBF" where'+
' (extract(day from narozeni)='+IntToStr(mD)+') '+
' and (extract(month from narozeni)='+IntToStr(mM)+')';
Query1.Open;
...
Milan
Delphi beginner
Delphi3 C/S, W98
Prepis funkce z Ccka do Pascalu
[*] Delphi <DelphiForum(zv)seznam(tec)cz> - 14.5.2001 20:37:36
> void NejakeJmeno(int, ...);
Ja bych to prepsal takto :
procedure NejakeJmeno ( i : integer; args : array of variant);
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
Prepis funkce z Ccka do Pascalu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.5.2001 21:10:24
Moc si toho z cecka uz nepamatuju, ale neslo by to takhle:
procedure MojeProc(const x:array of integer);
begin
for i:=low(x) to high(x) do something...
end;
...
MojeProc([1,2,3,4,5]);
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Skiny
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.5.2001 21:46:15
Anebo si v napovede k Delpham precti, co je to TBitmap a TControl, a v napovede
k Win32 API co je Region... a pak je jeste treba naucit se kreslit :-)
Roman
> Hledej na Internetu Skin Factory. Vaclav Sazima
>
> Lubos Daniel wrote:
> >
> > Ahoj.
> >
> > Neviete niekto ako si mozem zoskinovat moj program.
> > Napr. ako Winamp alebo Netscape 6?
> >
> > Inac, ako to robi Thematic Chroma?
> > www.thematic.com/chroma
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Reset na CD
[*] simca.jb(zv)post(tec)cz - 14.5.2001 22:04:10
Dekuji za radu, abych nahradil proceduru Reset funkci fileOpen. Ale bohuzel, bych chtel s tim otevrenym souborem pracovat velmi podobne, jako s file of trecord, ale nevim, jak cist z souboru otevreneho pomoci fileopen data po recordech, nebo po castech, co odpovidaji velikosti zadanyho trecord.
Jirka Borovy
Ukon�en� aplikace
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 14.5.2001 22:12:53
> Ne. Windows mohou program ukoncit nekolikerym zpusobem.
Ano, dekuji,
lec jsem zaznamenal jednu drobnost a to po kliknuti pravym tlacitkem na
button v seznamu uloh (lista s tlacitkem "start" a hodinami) a vyberem
"Zavrit" aplikaci zcela ukonci - WM_SYSCOMMAND se vubec negeneruje. Lze i
toto nejak obejit?
Zdenek
> Napr.: poslanim
> zpravy WM_CLOSE, ale nikdy ne pres WM_SYSCOMMAND. Tahle zprava se posila,
> kdyz udela neco UZIVATEL - klikne na zavrit, chce okno maximalizovat,
> minimalizovat, atd. S klidem muzes pouzit to co jsem ti napsal - je to
> vyzkousene.
>
SQL
[*] Jaroslav Bayer <jaroslav.bayer(zv)quick(tec)cz> - 14.5.2001 23:36:38
Programuji jednoduche databazove aplikace v DELPHI 5. Drive jsem se snazil vse naprogramovat bez SQL, ale neslo to, a proto jsem se uchylil k teto metode. Muj problem spociva v tom, ze po nacteni tabulky napr. do DBGrid pomoci prikazu "SELECT * FROM nazev tabulky" nejsem schopen tuto tabulku odstranit prikazem "DROP TABLE nazev tabulky". Chyba neni v napojeni QUERY nebo jinych komponent - ani v readonly tabulce. Po restartovani programu ji lze vymazat, ale po zobrazeni, se problem opakuje.
Dekuje za pomoc Jaroslav Bayer.Select v ListView
[*] Roman Kunovsk� <delphi-konference(zv)bcpraha(tec)com> - 14.5.2001 23:49:33
"SubItemy" a ikonky musis znovu naplnit v OnData handeru ...
Roman
> Sice to funguje, ale ma to jeden velky nedostatok.
> Ked nastavim OwnerDraw:= True, okamzite mi zmiznu vsetky subitemy a
> ikonky a uz ich viac nezobrazim. Skusal som podobne vyplnit
> ListCustomDraw aj ListCustomDrawSubItem, ale bez uspechu.
>
> Roman
>
> Ales Radikovsky wrote:
> >
> > Podle me takhle.... ale ja to pouzivam v jine souvislosti....
> >
> > procedure TForm.ListCustomDrawItem(Sender: TCustomListView;
> > Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
> > begin
> > List.Canvas.Font.Color := clXXX;
> > List.Canvas.Brush.Color := clYYY;
> >
> > DefaultDraw := True;
> > end;
> >
> > Ales
> >
> > > Potreboval by som, aby sa pri kliknuti na nejaky riadok v
> > > ListView (pri
> > > ViewStyle:= vsReport) nezmenila podkladova farba tohoto
> > > riadku. Da sa to
> > > urobit nejako jednoducho?Chyba v TIBQuery.IsEmpty ?
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 15.5.2001 00:55:12
Zdravim.
Preco mi IBX 4.52 v TIBQuery.IsEmpty vrati true aj napriek tomu ze tam
zarucene nie je ziadny zaznam. Opytam sa ho to napr. tri krat a potom mi
odpovie true. Medzi kazdym opytanim este refreshnem data. Som na lokale ako
single user takze mi nikto do dat nefusuje a predsa si niekedy vrati ze nie
je Empty.
Why ?
Dakujem.
Roland.Focus na vybrany text v MDIChildu
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 15.5.2001 05:48:19
Pokud tomu dobre rozumim, mas na MDIChild formulari objekt, ktery
obsahuje nize popsane a ve kterem se provadi vyhledavani.
Zkus se podivat, jestli u toho objektu nemas HideSelection na True a
pripadne ho prepni na False (viditelnost oznaceneho textu i po ztrate
focusu).
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
> potrebuji poradit s nasledujicim: mam MDI aplikaci. MDIChildy zobrazuji
> textove soubory, resim problem s nalezenim a nahrazenim textu. zobrazim
> dialog pro replace, naleznu a vyselektuji hledany text, ale nedokazu udelat
> dany childform s vysledky hledani aktivni, abych videl, co jsem vlastne
> nalezl. pritom kdyz se rucne prepnu na dany child, je nalezeny text spravne
> vybrany. Tedy abych to shrnul: nedokazu prenest fokus z dialogu replace do
> daneho mdichildu abych videl, co je nalezeno.
> PS: mam D5 a W2K
> Zdravi Rudolf Krizek
SQL
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 15.5.2001 06:13:39
>Muj problem spociva v tom, ze po nacteni tabulky napr. do DBGrid pomoci
prikazu "SELECT * FROM nazev tabulky" >nejsem schopen tuto tabulku odstranit
prikazem "DROP TABLE nazev tabulky".
Ono zalezi na tom co pouzivas.
Pokud TDataSet, musis ji prvni zavrit a potom by to pres TQuery melo jit.
Pokud pouzivas TQuery, zkus predtim ukoncit a znova spustit transakci (a
pote samozrejme uplatnit zmeny).
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 09.05.01
Prepis funkce z Ccka do Pascalu
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 15.5.2001 06:39:16
Nejsem ceckar (to slovo zni blbe), ale co takhle dynamicke pole Array of
integer?
P.S. varim z vody
Sroub
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 14, 2001 4:34 PM
Subject: Re: Prepis funkce z Ccka do Pascalu
>
> >Void neznamena promenny pocet parametru, ale to, ze funkce nevraci zadnou
> >hodnotu, takze to odpovida procedure v Pascalu, tj. void NejakeJmeno(int
a)
> >je totez jako procedure NejakeJmeno(a: integer).
>
> v te ukazce neni dulezitej ten void ale ty 3 tecky v deklaraci parametru
:-(
>
>
> D. Toman
>"field BETWEEN ... AND ..." nepouziva index
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 15.5.2001 06:46:33
Zkuste pouzit jednoduche indexy Index (S_Day) a Index (Object),
ovlivnit pouziti indexu lze frazi PLAN v SELECT.
On 14 May 2001, at 16:33, Michal Tiller wrote:
> "S_Day" TIMESTAMP,
> "Object" Char(10),
> "Value" Integer
> Index je (S_Day, Object).
Z.Kalhous
Prepis funkce z Ccka do Pascalu
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 15.5.2001 07:10:12
> Nejsem ceckar (to slovo zni blbe), ale co takhle dynamicke pole Array of
> integer?
Tri tecky nenaznacuje ze tam budou cisla, nybrz COKOLI.
Proto Array of Variant.
Jak jsem jiz psal, bude to vypadat takto :
procedure NejakeJmeno ( i : integer; args : array of variant);
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 09.05.01
Seriove cislo HDD
[*] rjunga(zv)oku-ka(tec)cz - 15.5.2001 07:19:16
Ahoj vsichni,
potreboval bych v D4 zjistit seriove cislo HDD nebo jine info udavane
vyrobcem (typ, jmeno, atd). Uz se tady resilo seriove cislo svazku (to, co
vznika pri formatovani), ale to neni to, co potrebuji.
Diky za kazdy namet.
Roman Junga
Focus na vybrany text v MDIChildu
[*] Ing. Rudolf Krizek <rudolf.krizek(zv)mlade(tec)cz> - 15.5.2001 08:01:45
Tohle funguje, ale jenom uvidim vybrany text (mimochodem v childformu je jen
jeden memo objekt).
Ja ale potrebuji aby byl aktivni ten Childform aby se v nem dalo hned
pracovat dal a upravovat ten vybrany text.
Takhle ho sice vidim, ale stejne se tam musim pred jakoukoliv upravou
prepnout rucne.
Rudolf Krizek, rudolf.krizek(zv)email(tec)cz
> Pokud tomu dobre rozumim, mas na MDIChild formulari objekt, ktery
> obsahuje nize popsane a ve kterem se provadi vyhledavani.
> Zkus se podivat, jestli u toho objektu nemas HideSelection na True a
> pripadne ho prepni na False (viditelnost oznaceneho textu i po ztrate
> focusu).
>
> ------
> ing. Pavel Zilinec
> mailto:zilinec(zv)email(tec)cz
>
> > potrebuji poradit s nasledujicim: mam MDI aplikaci. MDIChildy zobrazuji
> > textove soubory, resim problem s nalezenim a nahrazenim textu. zobrazim
> > dialog pro replace, naleznu a vyselektuji hledany text, ale nedokazu
udelat
> > dany childform s vysledky hledani aktivni, abych videl, co jsem vlastne
> > nalezl. pritom kdyz se rucne prepnu na dany child, je nalezeny text
spravne
> > vybrany. Tedy abych to shrnul: nedokazu prenest fokus z dialogu replace
do
> > daneho mdichildu abych videl, co je nalezeno.
> > PS: mam D5 a W2K
> > Zdravi Rudolf Krizek
>
>
>Seriove cislo HDD
[*] <vetrak(zv)datalock.sk> - 15.5.2001 08:17:30
Pokial mas zaujem, poslem Ti to vyriesene pre Delphi4.
Samozrejme na sukromny e-mail, aby admin nemusel upozornovat.
Vetrak
Focus na vybrany text v MDIChildu
[*] EFG developer <developer(zv)efg(tec)cz> - 15.5.2001 08:46:29
zkus udelat MDIChild.bringtofront
Petr Sikola
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ing. Rudolf Krizek
> Sent: Tuesday, May 15, 2001 8:02 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Re: Focus na vybrany text v MDIChildu
>
>
> Tohle funguje, ale jenom uvidim vybrany text (mimochodem v
> childformu je jen
> jeden memo objekt).
> Ja ale potrebuji aby byl aktivni ten Childform aby se v nem dalo hned
> pracovat dal a upravovat ten vybrany text.
> Takhle ho sice vidim, ale stejne se tam musim pred jakoukoliv upravou
> prepnout rucne.
> Rudolf Krizek, rudolf.krizek(zv)email(tec)cz
>
> > Pokud tomu dobre rozumim, mas na MDIChild formulari objekt, ktery
> > obsahuje nize popsane a ve kterem se provadi vyhledavani.
> > Zkus se podivat, jestli u toho objektu nemas HideSelection na True a
> > pripadne ho prepni na False (viditelnost oznaceneho textu i po ztrate
> > focusu).
> >
> > ------
> > ing. Pavel Zilinec
> > mailto:zilinec(zv)email(tec)cz
> >
> > > potrebuji poradit s nasledujicim: mam MDI aplikaci. MDIChildy
> zobrazuji
> > > textove soubory, resim problem s nalezenim a nahrazenim
> textu. zobrazim
> > > dialog pro replace, naleznu a vyselektuji hledany text, ale nedokazu
> udelat
> > > dany childform s vysledky hledani aktivni, abych videl, co
> jsem vlastne
> > > nalezl. pritom kdyz se rucne prepnu na dany child, je nalezeny text
> spravne
> > > vybrany. Tedy abych to shrnul: nedokazu prenest fokus z
> dialogu replace
> do
> > > daneho mdichildu abych videl, co je nalezeno.
> > > PS: mam D5 a W2K
> > > Zdravi Rudolf Krizek
> >
> >
> >
> "field BETWEEN ... AND ..." nepouziva index
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.5.2001 08:48:25
Haj hou!
Pouziti indexu pro optimalizaci dotazu se ridi nekolika pravidly:
1) Pokud indexni vyraz (seznam polozek) je shodny s jednou
stranou casti where vyrazu, pak se index pouzije.
2) Pokud se leva cast indexniho vyrazu shoduje s jednou stranou
casti where vyrazu, pak se index pouzije.
3) Pokud casti where vyrazu odpovida jina cast indexniho vyrazu
(napr. konec indexu), pak index neni pouzit. To je vcelu dost
logicke.
4) Pokud existuje vice indexu vyhovujicich pravidlu 1) a 2), pak
optimalizator obcas odvede spatnou praci a vybere mene vhodny
index (viz nize)
4) Pokud ma index prilis nizkou selektivitu (viz. prikaz UPDATE
STATISTICS), pak neni pouzit. Tady je prave vada soucasneho
optimalizatoru, ktery v pripade existence dvou indexu pri vypadku
prvniho nepouzije dalsi mozny, nebo vybere index s horsimi
vlastnostmi pro vyber.
Obecna pravidla pro tvorbu indexu urcenych k optimalizaci dotazu:
1) Nevytvarejte prekryvajici se indexy (tedy indexy pres stejna pole,
obvzlaste pokud se shoduji leve casti indexnich vyrazu).
2) Vyhnete se slozenym indexum, pokud to jde. Index pres jedno
pole je vyhodnejsi.
3) Nevytvarejte indexy na polozky s nizkou kardinalitou (maly pocet
diskretnich hodnot ve velkem poctu zaznamu). Prikladem je napr.
index pres polozku pohlavi.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Reset na CD
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 15.5.2001 09:04:28
> Dekuji za radu, abych nahradil proceduru Reset funkci fileOpen. Ale
bohuzel, bych chtel s tim otevrenym
Muj odhad:
V Pascalu existovala promenna FileMode (nebo nejak podobne) , byla v
jednotce system (myslim).
Ta umoznovala nastavit rezim prace se soubory , ja jsem ji pouzil pro
povoleni sdileni souboru pod Windows.
Myslim si, ze by mohlo fungovat neco takoveho:
FMOld := FileMode;
FileMode := READONLY;
Reset(f);
FileMode := FMOld;
pavel.gazda(zv)seznam(tec)cz
Prepis funkce z Ccka do Pascalu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.5.2001 09:06:02
----- Original Message -----
From: "Delphi" <DelphiForum(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 14, 2001 8:37 PM
Subject: Re: Prepis funkce z Ccka do Pascalu
> > void NejakeJmeno(int, ...);
>
> Ja bych to prepsal takto :
>
> procedure NejakeJmeno ( i : integer; args : array of variant);
>
Ccko ocekava, ze nevyjmenovane parametry (trojtecka) budou mist stejny typ
(resp. stejnou velikost) jako posledni uvedeny parametr. 'Int' zabere 4
byty, Variant 16 bytu....
D. Toman
Help creator
[*] Robert Suska <robert(zv)korak.sk> - 15.5.2001 09:15:00
Potrebujem nejaky jednoduchy softi kna tvorbu helpu. Ale fakt jednoduchy :).
Neviete nejaku URL, alebo nemate niekto nieco take?
Dakujem
S pozdravom,
--------------------------------------------------------
Robert Suska, IT specialista, amatersky programator
KORAK slovakia, Banska Bystrica
Slovenska republika
www.korak.sk
robert(zv)korak.sk
mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
+421 088 415 14 02
--------------------------------------------------------
Prepis funkce z Ccka do Pascalu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.5.2001 09:19:10
> > Nejsem ceckar (to slovo zni blbe), ale co takhle dynamicke pole Array of
> > integer?
>
> Tri tecky nenaznacuje ze tam budou cisla, nybrz COKOLI.
> Proto Array of Variant.
?!? ty tecky znamenaji v Cecku (neni to uplne presne ale pro tu funkci,
kterou chci volat to plati), ze se libovolne krat opakuje parametr jehoz
type je _shodny_ s predchozim paremetrem. Cili pokud byl posledni parametr
pred trojteckou typu 'int' pak i ostatni budou typu 'int' (resp zaberou 4
byty na stacku - cili muzu predat cokoliv, co zabere stejny pocet bytu)
CCko nezna typ Variant...
>
> Jak jsem jiz psal, bude to vypadat takto :
>
> procedure NejakeJmeno ( i : integer; args : array of variant);
>
:-(
D. Toman
Eventy TForm
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 15.5.2001 09:21:53
Dobry den,
chtel bych se zeptat:
OnClose, OnCloseQuery, OnDestroy
ktere z techto eventu se vola pri:
a) spustene aplikaci a vypnuti/restartu Windowsu (nevim jak vykrokovat)
b) pri ukonceni aplikace (jenom Close, CloseQuery??)
c) pri pouziti metody Free (only Destroy??)
Dekuji
Zdenek
WinCVS - synchonizace zdroj�k�
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 15.5.2001 09:22:29
Ahoj,
hledam nekoho, kdo ma zkusenosti s programem WinCVS pro synchronizaci
zdrojovych kodu pri tymove praci a kdo by byl ochoten poradit.
Mam problem se synchronizaci vetve programu. Pri vytvareni vetve jsem
zapomel po oznaceni vetve udelat "update" pro danou vetev. Ted kdyz to chci
synchronizovat , tak mi to halsi neco o "sticky tags" a ze to neni "branch".
To bude zrejme tim , ze jsem neprovedl ten update. Zajimalo by mne jak z
toho ven a jak se to bude sychronizovat.
Michal Jiskra
Seriove cislo HDD
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 15.5.2001 09:23:05
> potreboval bych v D4 zjistit seriove cislo HDD nebo jine info udavane
> vyrobcem (typ, jmeno, atd). Uz se tady resilo seriove cislo
> svazku (to, co
> vznika pri formatovani), ale to neni to, co potrebuji.
>
> Diky za kazdy namet.
Zdar,
no nevim jestli to pomuze, ale pokud umis delat s COMem v Delphi, tak muzes
pouzit WMI a podivat se na classu Win32_DiskDrive. Tam je temer vse, bohuzel
tam neni to cislo, seriove cislo svazku (ale to pises, ze nechces) je
obsazeno v clase Win32_LogicalDisk.
Doufam, ze to trochu pomuze, ale asi by bylo lepsi podivat se po inetu po
nejakych freeware komponentach (treba na Delphi Super Page)...
Ozon
Prepis funkce z Ccka do Pascalu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.5.2001 09:29:50
> Moc si toho z cecka uz nepamatuju, ale neslo by to takhle:
>
> procedure MojeProc(const x:array of integer);> begin
> for i:=low(x) to high(x) do something...
> end;
PS - nechci psat ekvivalent Cckove funkce - ale volat fuknci z DLL (psanou v
CCku)
>
> ....
>
> MojeProc([1,2,3,4,5]);
>
Tahle konstrukce vypada nejlepe - ale jsou tu tyto problemy:
1) pokud je v deklaraci sluvko CONST - pak se na stack predava pouze pointer
na cele pole. Ale Cckovska funkce ocekava na stacku radu 4 bytovych
polozek - ne pointer na takovou radu
Cili CONST musi z deklarace zmizet (a podobne - nesmi se v ni objevit VAR)
2) pokud je parametr predavan hodnotou (zadny VAR/CONST), kopii globalni
promenne na lokalni stack _NEDELA_ volajici ale sama rutina (grr) - proste
prvni co rutina zapsana jako "procedure XX(a : Array of integer)" udela je ,
ze cele pole "a" zapushuje ve smycce na stack. To je sice efektivni z
hlediska delky kodu (pri vicenasobnem volani rutiny se tato smycka
negeneruje pred kazdym volanim funkce) ale v mem pripade, to znamena, ze je
Open array nepouzitelny (Cckovska rutina ocekava, ze ty parametry uz na
stacku jsou).
3) Pascal pridava k Open Array parametru dalsi promennou nas stack
(skutecny pocet polozek pole). Cili se na stacku objevi dalsi polozka - ale
ta se da klidne ignorovat
Cili reseni stale zustavaji podle mne 2:
- natypovani natvrdo (pripadne overloading)
- nejake harakiri s kombinaci Pacalu a ASM
D. Toman
Registry pri vypnuti/restartu windows
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 15.5.2001 09:40:50
Dobry den,
v TForm.OnDestroy mam ukladani nastaveni do registru. V pripade klasickeho
ukonceni aplikace vse probehne v poradku. Pokud ale aplikace bezi a
ukoncuji/restartuji se windowsy tak mi to hlasi vyjimku a neukonci mi to
aplikaci a tim i windowsy nedokonci operaci...
Ukladani jsem presunul do TForm.OnCloseQuery, bez zmeny... OnClose bude asi
zbytecny pokus?!
Pristup do registru mam pres globalni promenou tupu TRegistry v samostatne
unite a promenou probouzim k zivotu v sekci initialization a uvolnuji v
finalization:
unit InitApp;
interface
uses Registry;
var InitReg: TRegistry;
implementation
...
initialization
InitReg:= TRegistry.Create;
finalization
InitReg.Free;
end.
Tuto unit mam pridanou ve vsech unitach s formy...
Nevite proc to dela tezkosti??? Windowsy si zamykaji v pripade
vypnuti/restaru registry drive nez se ukonci vsechny aplikace?
Dekuji
Zdenek
Focus na vybrany text v MDIChildu
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 15.5.2001 10:03:31
Ja pouziva tento kod pro vyhledavani v memo. Mas tady ukazku kodu.
Neni problem po uspesnem nalezeni dat za NajdiRetezen prikaz
FindDialog1.CloseDialog a vratis se automaticky zpet. Muzes take
udelat Memo1.SetFocus a okno pro vyhledani zustane, ale aktivni bude
Tvuj formular.
Navic mam jeste navazanou klavesu F3 na hledani dalsiho vyskytu.
procedure TDEV_fMain.FindDialog1Find(Sender: TObject);
begin
FindDialog1.Execute;
NajdiRetezec;
end;
procedure TDEV_fMain.NajdiRetezec;
begin
with FindDialog1 do
begin
if FindText = '' then exit;
Screen.Cursor:= crHourGlass;
if Memo1.FindText(FindText, frDown in Options, frMatchCase in Options, frWholeWord in Options) then
Memo1.ScrollInView
else
PS_Chyba('', 'Nelze naj�t "' + FindText + '"');
end;
Screen.Cursor:= crDefault;
end;
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
TXT File otev��t jako HEXA
[*] Libor V�trovec <libor(zv)wlw(tec)cz> - 15.5.2001 09:19:15
Zdrav�m
pros�m o radu, jak na to. M�m TXT file, kter� pot�buji otev��t v HEXA a
naj�t v tomto k�du "01" a nahradit za "0D 0A" jak to ud�lat? Naj�t to a
opravit to nen� probl�m probl�m m�m v tom �e nev�m jak otev��t TXT file do
Hexa. Za Radu p�edem d�kuji
Libor
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.116 / Virov� b�ze: 55 - datum vyd�n�: 10.1.2000
Prepis funkce z Ccka do Pascalu
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 15.5.2001 10:26:49
> Ccko ocekava, ze nevyjmenovane parametry (trojtecka) budou mist stejny typ
> (resp. stejnou velikost) jako posledni uvedeny parametr. 'Int' zabere 4
> byty, Variant 16 bytu....
Tak to se seredne pletes. Vem si napriklad "printf" !
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 09.05.01
Komprimace pole
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 15.5.2001 10:28:03
Dobry den,
vite, prosim, nekdo o nejake komponente, ktere umi zkomprimovat (ZIP, RAR)
pole dat a vratit opet pole a nejlepe jeste zaheslovat?
Dekuji
Zdenek
IDE & GUI
[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 15.5.2001 10:29:07
Jak lze docilit aby aplikace mela vystup bud IDE nebo GUI v zavislosti na
tom zda je volana s nejakymi parametry? Pazout
SQL
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 15.5.2001 10:30:34
On 14 May 2001, at 23:36, Jaroslav Bayer wrote:
> Muj problem spociva v tom, ze po nacteni
> tabulky napr. do DBGrid pomoci prikazu "SELECT * FROM nazev tabulky"
> nejsem schopen tuto tabulku odstranit prikazem "DROP TABLE nazev
> tabulky". Chyba neni v napojeni QUERY nebo jinych komponent - ani v
> readonly tabulce.
Tvoje chyba je v tom, ze pri DROP nesmi byt tabulka otevrena.
Standardni komponenty maji tu nestastnou vlastnost, ze behem
zobrazovani udrzuji permanentne otevreny dataset i v databazi, coz
brani smazani tabulky.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ