Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TTAble -> TQuery
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 19.9.2001 14:03:35
Ahoj !
Neviete niekto, aky SQL prikaz posle komponenta TTable SQL serveru, ked
v DBGride mazem nejaky zaznam a neexistuje jednoznacny kluc ?
Nieco ako DELETE FROM tablex WHERE ... Tie bodky potrebujem doplnit.
Potrebujem to kvoli prerobeniu z TTAble na TQuery.
Zobrazen� obsahu Stored Procedury
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 19.9.2001 13:03:53
Select text from qqq..syscomments where id=object_id('meno_procedury')>potreboval bych zobrazit zdrojovy kod Stored Procedury v Delphi a netusim
>jak na to.
>Diky za kazdou radu.Delphi & Excel II
[*] kinekus-nextra <kinekus(zv)nextra.sk> - 19.9.2001 14:03:10
Ahoj,
neviete niekto, ako do excel listu vlozit obrazok zo suboru a to vsetko cez
Delphi ?
Dakujem .
OT: Oracle Report builder
[*] Radek.Holecek(zv)up.mpsv(tec)cz - 19.9.2001 14:07:47
Zdravim,
vim, ze spise poradim kanon na vrabce, nez reseni v RB, ale
obdobny problem jsem mel v exportu z Excelu do PDF.
Je to mozne vytisknout pres post scriptovou tiskarnu do souboru
a ten potom prevest do PDF. S timhle jsem nikdy nemel problemy.
Holecek
>Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
> ...
>PROBLEM: vyexportuju ten report do PDF (to PDF je nutne ...:() a v tomto
>PDF se mi ceska diakritika nezobrazuje - reps. nesmyslne znaky :(
>... nesetkal jste se nekdo s podobnym problemem
TreeView - SelectedNode
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 19.9.2001 14:12:52
Potreboval by som, aby po vytvoreni stromu v TTreeView bola selectnuta ta
ista TTreeNode.
Skusam to takto:
Tree : TTreeView;
a : TTreeNode;
a := Tree.Selected;
Tree.Items.Clear;
CreateTree(Tree);
Tree.Select(a);
ale vysledok je dost zmeteny a vzdy mi oznaci nejaku inu...
Poznamka: samozrejme, ze sa strom vobec nezmenil a su tam tie iste polozky
ako predtym...
dik jozo
OT: Oracle Report builder
[*] skalsky(zv)oksystem(tec)cz - 19.9.2001 14:13:30
... jenze ja mam problem v tom, ze to mam jako webovskou aplikaci ...
webovej report chci do PDF ... jak to pozenu pres postskript ?
Milan
Zdravim,
vim, ze spise poradim kanon na vrabce, nez reseni v RB, ale
obdobny problem jsem mel v exportu z Excelu do PDF.
Je to mozne vytisknout pres post scriptovou tiskarnu do souboru
a ten potom prevest do PDF. S timhle jsem nikdy nemel problemy.
Holecek
>Od: skalsky(zv)oksystem(tec)cz [mailto:skalsky(zv)oksystem(tec)cz]
> ...
>PROBLEM: vyexportuju ten report do PDF (to PDF je nutne ...:() a v tomto
>PDF se mi ceska diakritika nezobrazuje - reps. nesmyslne znaky :(
>... nesetkal jste se nekdo s podobnym problemem
ORACLE REPORT BUILDER ...
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 19.9.2001 14:15:49
PROBLEM: vyexportuju ten report do PDF (to PDF je nutne ...:() a v tomto
PDF se mi ceska diakritika nezobrazuje - reps. nesmyslne znaky :(
... nesetkal jste se nekdo s podobnym problemem
Podobn� problem se diskutoval jinde. Nesledoval jsem to,
ale myslim, ze vysledek byl ten, ze v PDF je nutne pouzivat
fonty ADOBE ( nebo odzkouset ktere funguji )
S pozdravem Pavel
TreeView - SelectedNode
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.9.2001 14:19:22
19.9.2001 Ing. Jozef Baranec:
> Potreboval by som, aby po vytvoreni stromu v TTreeView bola selectnuta ta
> ista TTreeNode.
> Skusam to takto:
> Tree : TTreeView;
> a : TTreeNode;
> a := Tree.Selected;
> Tree.Items.Clear;
> CreateTree(Tree);
> Tree.Select(a);
> ale vysledok je dost zmeteny a vzdy mi oznaci nejaku inu...
> Poznamka: samozrejme, ze sa strom vobec nezmenil a su tam tie iste polozky
> ako predtym...
Doufam, ze si uvedomujes, ze promenna A obsahuje pouze odkaz
(ukazatel) na skutecny objekt TTreeNode. pokud tento objekt zrusis,
obsahuje A odkaz na neexistujici objekt. Tak se nediv, ze se ti vzdy
oznaci nejaka jina.
Spise bys mel zapamatovat treba i := A.AbsoluteIndex a po vytvoreni
provest Tree.Items[i].Selected.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
ORACLE REPORT BUILDER ...
[*] skalsky(zv)oksystem(tec)cz - 19.9.2001 14:27:52
To PDF vyrabim exportem z Oracle Report Builderu ... v Acrobat Readeru jej
jen zobrazuji ... ale tam se mi zobrazi spatna diakritika :(
-----Original Message-----
From: brant(zv)dcomm(tec)cz [mailto:brant(zv)dcomm(tec)cz]
Sent: Wednesday, September 19, 2001 1:53 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: ORACLE REPORT BUILDER ...
To bude problem spise s tim Acrobat Distillerem nebo cim to delas. Myslim,
ze uz tady zminka o tomhle probehla. Zkus archiv a slovo Acrobat.
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
Cauky lidi,
mirne offtopicova zalezitost ... ale nikde se neda sehnat reseni (bohuzel
i hotline oracle zaslal nefunkcni reseni), takze asi jedna z poslednich
zachran ...
predpoklady :
v regs mam nastavenou ceskou sadu: NLS_LANG =
CZECH_CZECHOSLOVAKIA.EE8MSWIN1250
odzkouseno skriptovani fontu jak CYRILIC, tak CENTRAL EUROPE ....
op.sys : w2k CZ, w2k EN
STAV: pomoci ORACLE REPORT BUILDERU udelam report z nejake databaze, ve
kterem pouziju i ceske fonty. V reportu vse v poradku, diakritika take.
PROBLEM: vyexportuju ten report do PDF (to PDF je nutne ...:() a v tomto
PDF se mi ceska diakritika nezobrazuje - reps. nesmyslne znaky :(
TTAble -> TQuery
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 19.9.2001 14:34:36
Na takove pripady je nastroj SQL Monitor (soucast D5 Ent; myslim, ze to bylo i v D3 C/S), jestli pouzivas MS SQL Server, tak je tam
nastroj Profiler (2k), nebo SQLTrace (6.5, 7)
Marek Muller
-----Original Message-----
Neviete niekto, aky SQL prikaz posle komponenta TTable SQL serveru, ked
v DBGride mazem nejaky zaznam a neexistuje jednoznacny kluc ?
Nieco ako DELETE FROM tablex WHERE ... Tie bodky potrebujem doplnit.
Potrebujem to kvoli prerobeniu z TTAble na TQuery.
synapse
[*] Jan Sebesta <delcomseb(zv)volny(tec)cz> - 19.9.2001 14:40:43
Dekuji, ale pro me je toto spanelska vesnice, pokud nemate nekdo
neco funkcniho co by ste mi poslali tak musim jinak. Pro ostatni, vim ze,
WebCopy od TMS je docela funkci, ale tusim, ze pres WinInet.dll.
Dik Jan
Sebesta
From: Gebauer Lukas <gebylist(zv)mlp(tec)cz>
> > > Dekuji, ale tam jsem nanasel neco jako
> > > "ProgressBar" (pro vetsi soubory zobrazovat stav) ?.
>
> Takoveto veci tam jsou. ;-) Ovsem nejsou pouzivane prave v tech
> jednoduchych jednoucelovych funkcich, ktere slouzi hlavne jako
> priklad pouziti mych objektu implementujici jednotlive protokoly.
>
> Tedy onen objekt THttpSend ma property Sock, coz je v tomto
> pripade TTCPBlockSocket. A tato trida ma jeden event, na ktery
> jsou posilany jak informace o stavu (jako ze se pripojuje, atd...),
> ale take informace o tom, ze prave odeslal/prijmul tolik a tolik bytu
> dat.
>
> Tedy staci se na tento event zavesit, cihat na zpravy
> pozadovaneho typu a aktualizovat pomoci nich citace dat. Z nich si
> pak snadno vyrobis ukazovani na ten prograssbar.
>
> Nove take pomoci teto property Sock muzes nastavit trebas
> SOCKS5 server, atd.
>
> Co tedy jest potreba? Napsat si vlastni finkci na prenos souboru po
> vzoru tech mych jednoduchych zde jiz zminovanych funkci a
> doplnit tam tyto volani.
>
> Neni to nic sloziteho. ;-)
>
> Louci se Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
>OT: Licence Delphi a BP
[*] Danny <dkonf(zv)seznam(tec)cz> - 19.9.2001 15:12:58
Zdravim,
chci se zeptat, jestli se nekdo nechcete zbavit licence k Delphi 5 Prof.
nebo k Borland Pascalu za primereny uplatek, prirozene. (a s nezbytnym
souhlasem Borlandu).
Dekuji za pozornost.
Danny
Soubor s priponou .bdt
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 19.9.2001 15:34:19
Ahoj lidicky,
potreboval bych poradit se souborem, ktery ma koncovku .bdt ? Co je to za
soubor ?
Diky.
==============================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
==============================================OT: GPL, MPL, GNU,... Kdo se v tom ma vyznat?
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 19.9.2001 15:37:23
Ahoj,
mate nekdo preklad (staci odkaz) uvedenych licenci? Je nekdo schopny mi
(pokud mozno polopaticky) rict, co vlastne na zaklade onech licenci mohu
a nemohu?
A konkretne: Mam program, ktery vyuziva SynEdit. Lze ho pripadne prodat?
A pokud ano, nejsou na to nejake podminky/omezeni?
Diky
Miroslav Novosad
mirnov(zv)atlas(tec)cz
PS: OT^2: Toho pojistovaka jsem pustil z hlavy. Vetsina, co mi napsala,
byla proti, a po "vychladnuti" emoci jsem sam uznal, ze je to blbost. A
navic nemam na neho cas:-)Vytvoreni nejakeho dokumentu
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 19.9.2001 15:40:23
Ahoj,
poradite mi nekdo, kdyz chci vytvaret dokument, ktery by obsahoval polozky z
TListView a zaroven mel i nejakou hlavicku, ktera by se dala menit. Mam to
delat pres nejaky parser, nebo jak se toto resi ? Potreboval bych to pak
tisknout, nebo ukladat do nejakeho univerzalniho formatu.
Kdyby mel nekdo nejaky priklad, nebo zajimavy odkaz, budu vdecny.
Diky za pomoc.
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================Pole s TForm
[*] Zden�k Sv�en - 19.9.2001 16:00:50
Ahoj lidickove,
mam jeden takovy problem, ktery vysvetlim na stupidnim lec vystiznem
prikladu.
Mam nekolik typu formularu napr.: TFormA1, TFormB1, TFormA2, TFormC1
potrebuju vytvorit pole konstant z techto formularu, tedy:
Const Formulare : array[1..4] of ????? = (TFormA1, TFormB1, TFormA2,
TFormC1);
nevim, co bych mel doplnit misto otazniku a jestli neco podobneho jde
udelat.
Nasledne uzivatel vybere nejake cislo od 1 do 4 a podle toho se vytvori
prislusny formular, tedy:
Formulare[vybranecislo].Create(self);
Jde neco podobneho udelat?
Diky za radu.
Z.S.Pole s TForm
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 19.9.2001 16:16:35
> potrebuju vytvorit pole konstant z techto formularu, tedy:
>
> Const Formulare : array[1..4] of ????? = (TFormA1, TFormB1, TFormA2,
> TFormC1);
const
MyFormClasses: array[0..3] of TFormClass = (TFormA1, TFormB1, TFormA2,
TFormC1);
function CreateMyForm(AOwner: TComponent; Index: Integer): TForm;
begin
Result := MyFormClasses[Index].Create(AOwner);
end;
HTH
TOndrej
ukonceni threadu a zavreni aplikace
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 19.9.2001 16:25:51
ahoj,
uz si vazne nevim rady. Mam aplikaci, ktera v oncreate vytvori
thread, az se thread dokonci, potrebuju aplikaci celou ukoncit.
TThread.FreeOnTerminate mi nefunguje - nebo nechapu jeho podstatu :(
Timer pravidelne kontroluje, jestli uz thread skoncil, pokud jo, mel
by zavrit aplikaci.
Prosim HELP, diky
procedure TMujThread.Execute;
begin
...
Synchronize(SynLabel);
end;
procedure TMujThread.SynLabel;
begin
...
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
MujThread:=TMujThread.Create(true);
MujThread.FreeOnTerminate:=true;
CheckTimer:=TTimer.Create(Owner);
with CheckTimer do
begin
OnTimer:=CheckTimerOnTimer; Interval:=1500; Enabled:=true;
end;
MujThread.Resume;
end;
procedure TMainForm.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
CheckTimer.OnTimer:=nil;
CheckTimer.Free;
end;
procedure TMainForm.CheckTimerOnTimer(Sender: TObject);
begin
if MujThread.Terminated then MainForm.Close;
end;
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/repaint v threadu
[*] Petr J�nsk� <petr.jansky(zv)volny(tec)cz> - 19.9.2001 16:41:02
Ahoj,
Mam graficky editor, kde je treba, aby nektere graficke objekty blikaly.
Tech objektu je celkem hodne, radove mene je tech, ktere maji blikat.
Udelal jsem to tak, ze mam list tech, ktere maji blikat a v jinem threadu
projizdim tento list a menim barvu objektu. Po zmene barvy se zavola
repaint. Zdanlive to funguje, ale na nekterych pomalejsich pocitacich se
cela aplikace nekdy nekontrolovatelne hrouti. Zrejme musim nejak
synchronizovat thready. Jak na to?
Diky, Petr J�nsk�
=====================================
Zabij bobra zachranis strom!!
GREENPEACE
=====================================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.274 / Virov� b�ze: 144 - datum vyd�n�: 23.8.2001
Pole s TForm
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 19.9.2001 16:50:31
> potrebuju vytvorit pole konstant z techto formularu, tedy:
>
> Const Formulare : array[1..4] of ????? = (TFormA1, TFormB1,
> TFormA2, TFormC1);
>
>
> Formulare[vybranecislo].Create(self);
Misto ???? dej class of TForm.
Honza +Foreign key na vic polozek
[*] Ondrej Zahradnik <ondrej.zahradnik(zv)centrum(tec)cz> - 19.9.2001 17:12:32
Ahoj,
resim takovyto problem.
Mam tabulku A, ktera vypada takto
ID ROK a dalsi pole...
1 1999
1 2000
1 2002
2 2000
2 2002
3 2001
3 2002
pole ID a ROK tvori SPOLECNE primary key.
Ve druhe tabulce B potrebuji mit odkaz na ID, ne na ID a ROK dohromady. Pouze
potrebuji vedet, ze zaznam v tabulce B patri k nejakemu ID v tabulce A.
Idea je takovato: Uzivatel vybere zaznam v tabulce B a ja potrebuju k tomuto zaznamu
vybrat zaznam se stejnym ID, ale s treba s maximalnim rokem( s prostrednim
rokem,...), z tabulky A.
Problem je v tom, ze odkaz na tabulku A v tabulce B nemuze byt foreign key.
Nevite, jak toto vyresit? Mam strach, ze kdyz tabulky nebudou svazany ve vztahu,
mohlo by dojit k poruseni integrity. A krom toho by takovy navrh nebyl moc
cisty.
S pozdravem Ondrej Zahradnik
Pracuje se souborem jina aplikace???
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 19.9.2001 17:34:26
ahoj,
potrebuju nutne zjistit, jestli se souborem pracuje jina aplikace -
presneji, pokud lze soubor cist - nekam ho zkopirovat. Zkusil jsem to
takto, ale jevi se to nefunkcni :(
AssignFile(Soubor,SRec.Name);
{$I-} Rewrite(Soubor); {$I+}
if IOResult<>0 then .. se souborem nelze pracovat
else CloseFile(Soubor);
Diky za radu.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/Rychlost Client/Server Sockets
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 19.9.2001 18:18:50
Zdravim,
mam zahadny problem pri komunikaci pres TCPIP pri pouzivani TClientSocket
(blocking) a TServerSocekt(ThreadBlocking). Pro "hrnuti" dat vyuzivam na
obou stranach TClientStream. Klient se pripoji na server a pak si
"povidaji" (client odesle nejaka data serveru, server odpovi, client
odesle, server odpovi,... a pak se rozpoji)
A TED TEN PROBLEM:
kdyz si mezi sebou vymenuji bloky o velikosti 10byte, tak to trva mnohem
dele, nez kdyz si posilaji bloky 10kB !!!!
Nevite nekdo, cim je to zpusobeno? Prece neni mozne, ze 1000x vice dat se
prenese cca 10x rychleji.
Dodavam ze pouzivam 100Mb sit, server jede na W2000, client na W98.
Mirek Melichar
Rychlost Client/Server Sockets
[*] iko <iko(zv)kamarad(tec)cz> - 19.9.2001 18:44:23
Nebude to tym, ze OS este caka, ci nebudu nahodou dalsie data do paketu? Sa
mu neoplati posielat kazdych par bajtov v samostatnom pakete. Ak chces
okamzite odoslat to co chces, daj nejak flush bafra (neviem momentalne ako).
iko
----- Original Message -----
From: "Mirek Melichar" <mirek(zv)psi(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 19, 2001 6:18 PM
Subject: Rychlost Client/Server Sockets
> Zdravim,
>
> mam zahadny problem pri komunikaci pres TCPIP pri pouzivani TClientSocket
> (blocking) a TServerSocekt(ThreadBlocking). Pro "hrnuti" dat vyuzivam na
> obou stranach TClientStream. Klient se pripoji na server a pak si
> "povidaji" (client odesle nejaka data serveru, server odpovi, client
> odesle, server odpovi,... a pak se rozpoji)
>
> A TED TEN PROBLEM:
> kdyz si mezi sebou vymenuji bloky o velikosti 10byte, tak to trva mnohem
> dele, nez kdyz si posilaji bloky 10kB !!!!
>
> Nevite nekdo, cim je to zpusobeno? Prece neni mozne, ze 1000x vice dat se
> prenese cca 10x rychleji.
>
> Dodavam ze pouzivam 100Mb sit, server jede na W2000, client na W98.
>
> Mirek Melichar
Po WMEndSession se Windows neukonci
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 19.9.2001 19:11:00
Ahoj,
stale se mi pri ukonceni Windows nevypne aplikace ani Windows. Oba handlery,
kterych se to tyka, jsou dole a ja v nich proste nevidim chybu :-(. Dale na
to muze mit vliv nejspis take to, ze aplikace ma nastaven ShowMainform na
false a MainForm si zobrazuji sam.
Ota Maly
P.S.: Zjistil jsem, ze WMEndSession mi prijde, jak ji zpracuju (viz nize),
ale Win se proste neukonci..
procedure Tfmain.WMQueryEndSession ( var Msg : TWMQueryEndSession);
begin
Msg.Result := 1;
inherited;
end;
procedure TfMain.WMEndSession(var Msg : TWMEndSession);
begin
Msg.EndSession := true;
inherited;
end;
Komunikace s UPS
[*] Pavel Simek <kejchal(zv)volny(tec)cz> - 19.9.2001 19:42:00
Ano, mam seznam kodu pro komunikaci s UPS APC. Je to celkem jednoduche, ale
velmi nebezpecne. Muze byt i smazana EPROM v UPS a UPS je zrala do servisu
(a ne do ledajakeho).
Pavel
kejchal(zv)volny(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ota Maly
Sent: Wednesday, September 19, 2001 11:38 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Komunikace s UPS
>
> > nemate nekdo skusenosti s komunikaci s UPS. Konkretne s UPS od APC.
A mas protokol komunikace?
Ota Maly
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001
ORACLE REPORT BUILDER ...
[*] Roman Toda <toda(zv)digitaldocuments.org> - 19.9.2001 19:54:44
Cestina/slovencina v PDF je velky problem. Nepoznam produkt ktory by to mal
spolahlivo vyriesene (okrem Distilleru). Takze pokial chces pouzivat
nastroje inych ako Adobe vyrobcov musis sa na to pripravit . Acrobat ma sadu
(14) fontov ktore nerobia problemy ale urcite ti s nimi nepojde Latin2
kodovanie. Pokial nema "vyrobca exportu" vyriesene vlozenie truetype fontu a
spravny prevod textov do UNICODE tak si s nim nepomozes
Bohuzial jedina rada je kupit Acrobat a pouzivat na vytvorenie PDFka
Distiller.
Pokial ta zaujimaju podrobnosti mozeme o tom podiskutovat. Pripadne mi posli
exportnute PDFko a ja ti poviem ci ma zmysel skusat nieco s fontami.
Roman
----- Original Message -----
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 19, 2001 2:15 PM
Subject: Re: ORACLE REPORT BUILDER ...>
> PROBLEM: vyexportuju ten report do PDF (to PDF je nutne ...:() a v tomto
> PDF se mi ceska diakritika nezobrazuje - reps. nesmyslne znaky :(
>
> ... nesetkal jste se nekdo s podobnym problemem
>
>
> Podobn� problem se diskutoval jinde. Nesledoval jsem to,
> ale myslim, ze vysledek byl ten, ze v PDF je nutne pouzivat
> fonty ADOBE ( nebo odzkouset ktere funguji )
>
> S pozdravem Pavel
>
>
>OT: Minimalizace okna
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 19.9.2001 19:56:19
Mam problem : potrebuji minimalizovat okno na popredi, ale minimalizuje se
pouze moje aplikace, i kdyz je na pozadi. Co s tim ? Dopredu dik...
...DKx...
P.S.: Ocenil bych i zapojeni admina do konference. Ja osobne s Delphi jen
zacinam, a vetsine mejlum vubec nerozumim, ale admin ?Ktery zpusob alokace matice na heapu je lepsi?
[*] Franti�ek Posp�il���~�,#+"#�##�� - 19.9.2001 20:08:28
Zajimal by me vas nazor na to, ktery ze 2 zpusobu alokace velmi velkych
matic na heapu je vyhodnejsi:
1. Pouziti dynamickeho pole
type TMatice = array of array of Extended;
var M: TMatice
Alokuje se pomoci SetLength(M, maxI, maxJ).
Potom pristup k prvku je M[i, j]
2. Pomoci ukazatelu
type PExtArray = ^TExtArray; {ukazatele na prvky v radku}
TExtArray = array [Integer] of Extended;
PPtrArray = ^TPtrArray; {ukazatele na radky matice}
TPtrArray = array [Integer] of PExtArray;
var M: PPtrArray;
Alokace by se provadela po jednotlivych radcich pomoci
AllocMem(velikost_prvku * pocet_sloupcu).
Potom by byl pristup k prvku takto: M^[i]^[j]. Samozrejme je mozne vytvorit
objekt a napsat v nem metody pro cteni a zapis prvku matice.
No a ted bych chtel vedet, jestli napr. pri alokaci matice o celkove
velikosti 800MB je lepsi pouzit prvni nebo druhou metodu. Je mozno zvazit,
zda je pro Windows Memory Manager lepsi alokovat matici vcelku nebo po
castech vzhledem k odkladani na disk (jak je to v Linuxu nevim). Vubec by me
zajimalo jak by v tomto pripade fungovalo swapovani - pri nahodnem pristupu
k prvkum by to asi bylo velice casove narocne. Dale zda se muze projevit
fragmentace pameti. A nakonec (i kdyz je to jen teorie) chci podotknout, ze
druhy zpusob prekonava 4GB omezeni max. velikosti datove struktury.
Pozn.: Ponechme zatim stranou moznost efektivnejsiho ulozeni matice v
pripade soumernosti, pasovosti, ridkosti atd.
Na odpovedi se tesi
Franta
(BD6Personal)
Edit+Locate
[*] Miroslav Evj�k <evjak(zv)atlas(tec)cz> - 19.9.2001 21:51:22
Ahoj,
potreboval bych poradit s nasledujicim:
Inkrementalne hledam v Datasetu na zaklade udalosti OnChange objektu
Edit1.Text, kam uzivatel postupne zadava hledany text.
with IBDataset do
begin
if not Locate('nazevpole', Edit1.Text,[loPartialKey]) then
Edit1.Text := Copy(Edit1.Text,0,Length(Edit1.Text)-1); //**
end;//**
potrebuju, aby se v pripade neuspesneho Locate zadany text v Edit1 zkratil o
posledni zadany (tedy neplatny) znak tak, aby kursor zustal v Editu na konci
retezce. Ve vyse uvedenem kodu se pozice kurzoru nastavi na zacatek textu.
Dik za radu
Mirecek
mailto:miroslav.evjak(zv)seznam(tec)cz
Pole s TForm
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.9.2001 22:10:39
Ano, to by mohlo chodit, ale s omezenim , ze nemuzes pristupovat k
metodam a vlastnostem, pouzitym ve formulari "zvenku" z jineho
formulare.
Vytvaris totiz TForm a ne TFormA1. Pokud si v TFormA1 nadefinujes
nejake vlastnosti nebo metody, nebudou zvenci viditelne.
Musel definovat jejich predka, ktery by tyto metody a vlastnosti
obsahuje, vsechny ostatni formulare by byly typu TMyForm a ne TForm
a pak bys k nim mohl pristupovat.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
19.9.2001 Ondrej Kelle:
>> potrebuju vytvorit pole konstant z techto formularu, tedy:
>>
>> Const Formulare : array[1..4] of ????? = (TFormA1, TFormB1, TFormA2,
>> TFormC1);
> const
> MyFormClasses: array[0..3] of TFormClass = (TFormA1, TFormB1, TFormA2,
> TFormC1);
> function CreateMyForm(AOwner: TComponent; Index: Integer): TForm;
> begin
> Result := MyFormClasses[Index].Create(AOwner);
> end;
> HTH
> TOndrej
Ktery zpusob alokace matice na heapu je lepsi?
[*] iko <iko(zv)kamarad(tec)cz> - 19.9.2001 22:25:38
Tak na to by som sa tesil. Dufam, ze mas aspon giga pamete. Mne stacilo, ked
som spravil 80 megovy memory stream... a mal som pol hodinu odpisany windows
(disk skoro vypalil diodu) (mam 96 mega pamete)
Co sa tyka lepsieho sposobu...myslim ze pre Windows Memory Managera je to
jedno (nestoji za moc). Swapuje tusim po 4k blokoch na disk. Isty cas som to
studoval, lebo som robil jeden soft, co si potreboval cez 200 mega a tiez
tam bol nahodny pristup... Ked pristupis na pamet, co nema v pameti, tak si
windows precita zo swapu 4k blok (akurat ten ktory potrebuje) a zaroven ak
nema pamet, tak nejaky z pameti hodi zas na disk. Strasne neefektivne, ale
je to tak...
Tak... prijemne chvile stravene pri svietiacej diode :) a windowsoch bez
odozvy...
iko
----- Original Message -----
From: "Franti#ek Posp�#il" <fpospisil(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 19, 2001 8:08 PM
Subject: Ktery zpusob alokace matice na heapu je lepsi?> Zajimal by me vas nazor na to, ktery ze 2 zpusobu alokace velmi velkych
> matic na heapu je vyhodnejsi:
>
> 1. Pouziti dynamickeho pole
> type TMatice = array of array of Extended;
> var M: TMatice
> Alokuje se pomoci SetLength(M, maxI, maxJ).
> Potom pristup k prvku je M[i, j]
>
> 2. Pomoci ukazatelu
> type PExtArray = ^TExtArray; {ukazatele na prvky v radku}
> TExtArray = array [Integer] of Extended;
> PPtrArray = ^TPtrArray; {ukazatele na radky matice}
> TPtrArray = array [Integer] of PExtArray;
> var M: PPtrArray;
> Alokace by se provadela po jednotlivych radcich pomoci
> AllocMem(velikost_prvku * pocet_sloupcu).
> Potom by byl pristup k prvku takto: M^[i]^[j]. Samozrejme je mozne
vytvorit
> objekt a napsat v nem metody pro cteni a zapis prvku matice.
>
> No a ted bych chtel vedet, jestli napr. pri alokaci matice o celkove
> velikosti 800MB je lepsi pouzit prvni nebo druhou metodu. Je mozno zvazit,
> zda je pro Windows Memory Manager lepsi alokovat matici vcelku nebo po
> castech vzhledem k odkladani na disk (jak je to v Linuxu nevim). Vubec by
me
> zajimalo jak by v tomto pripade fungovalo swapovani - pri nahodnem
pristupu
> k prvkum by to asi bylo velice casove narocne. Dale zda se muze projevit
> fragmentace pameti. A nakonec (i kdyz je to jen teorie) chci podotknout,
ze
> druhy zpusob prekonava 4GB omezeni max. velikosti datove struktury.
> Pozn.: Ponechme zatim stranou moznost efektivnejsiho ulozeni matice v
> pripade soumernosti, pasovosti, ridkosti atd.
>
> Na odpovedi se tesi
>
> Franta
> (BD6Personal)
>
>Minimalizace okna
[*] Hurricane <hurricane(zv)quick(tec)cz> - 19.9.2001 23:18:37
Zdravim
Nejdriv podminkou otestujes jestli je tvoje okno navrchu a pak ho
minimalizujes.
Hurricane
----- Original Message -----
> Mam problem : potrebuji minimalizovat okno na popredi, ale minimalizuje se
> pouze moje aplikace, i kdyz je na pozadi. Co s tim ?DDE a thread
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 20.9.2001 01:53:51
Ahoj,
mozna jsem trochu mimo, ale potreboval bych vysvetlit, proc to
nefunguje.
Mam na formu TDdeClientConv pro komunikaci s jinym programem. Muj
program ceka ve smycce na dokonceni nejake akce. No a prave tu smycku
jsem chtel dal do samostatneno threadu s tim, ze pres DdeClientConv
posle tomu (jinemu) programu prikaz a az skonci, budu reagovat na
vysledeky. Ale to nejede.
Proc to (DDE) v hlavnim programu funguje a v threadu ne?
Miroslav Novosad
mirnov(zv)atlas(tec)cz
Edit+Locate
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 06:29:32
> with IBDataset do
> begin
> if not Locate('nazevpole', Edit1.Text,[loPartialKey]) then
> Edit1.Text := Copy(Edit1.Text,0,Length(Edit1.Text)-1); //**
> end;
>
>
> //**
> potrebuju, aby se v pripade neuspesneho Locate zadany text v Edit1
> zkratil o posledni zadany (tedy neplatny) znak tak, aby kursor zustal
> v Editu na konci retezce. Ve vyse uvedenem kodu se pozice kurzoru
> nastavi na zacatek textu.
Ahoj,
zkus jeste pridat neco jako Edit1.SelStart := length(Edit1.Text).
David Lebeda
Foreign key na vic polozek
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 06:39:23
> Ahoj,
> resim takovyto problem.
> Mam tabulku A, ktera vypada takto
> ID ROK a dalsi pole...
> 1 1999
> 1 2000
> 1 2002
> 2 2000
> 2 2002
> 3 2001
> 3 2002
> pole ID a ROK tvori SPOLECNE primary key.
> Ve druhe tabulce B potrebuji mit odkaz na ID, ne na ID a ROK
> dohromady. Pouze potrebuji vedet, ze zaznam v tabulce B patri k
> nejakemu ID v tabulce A. Idea je takovato: Uzivatel vybere zaznam v
> tabulce B a ja potrebuju k tomuto zaznamu vybrat zaznam se stejnym ID,
> ale s treba s maximalnim rokem( s prostrednim rokem,...), z tabulky A.
>
> Problem je v tom, ze odkaz na tabulku A v tabulce B nemuze byt foreign
> key.
Uprimne receno se mi na prvni zbezny pohled zda, ze by mohlo jit
o nevhodny datovy model, ale to nemohu posoudit a nakonec o to
ted ani nejde.
Pokud dobre chapu, ptas se na dve veci. Jednak jak zajistit
referencni integritu, a pak problem s dohledanim radku v tabulce A
k radku z tabulky B.
Na MSSQL7 platilo, ze referencni integrita se dala zajistit
dvema zpusoby - bud pomoci foreign keys, a kde to neslo pouzit,
tak pomoci triggeru. Cili napsal bych trigger, ktery by koukal, zda v
tabulce A EXISTS prislusne ID a pokud ne, mel by ten trigger nejak
zhatit provadenou operaci - vyjimkou, rollbackem, podle toho, o
jaky SQL server jde.
U toho dohledani nevidim problem, je to otazka vhodne
postaveneho joinu, nebo se mylim?
David Lebeda
Po WMEndSession se Windows neukonci
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 06:48:29
> stale se mi pri ukonceni Windows nevypne aplikace ani Windows. Oba
> procedure Tfmain.WMQueryEndSession ( var Msg : TWMQueryEndSession);
> begin
> Msg.Result := 1;
> inherited;
> end;
>
> procedure TfMain.WMEndSession(var Msg : TWMEndSession);
> begin
> Msg.EndSession := true;
> inherited;
> end;
>
Ahoj,
ja bych zkusil bud inherited uplne vypustit - tady alespon ja ho tam
nedavam a funguje to, nebo ho dat jako prvni a az potom
manipulaci s Msg. Ve sve aplikaci mam pouze
WMQueryEndSession, to druhe ne - a rovnez to staci.
David Lebeda
repaint v threadu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 06:53:27
> a v jinem threadu projizdim tento list a menim barvu objektu. Po
> zmene barvy se zavola repaint. Zdanlive to funguje, ale na nekterych
> pomalejsich pocitacich se cela aplikace nekdy nekontrolovatelne
> hrouti. Zrejme musim nejak synchronizovat thready. Jak na to?
>
Ahoj, podivej se se TThread.Synchronize. Obecne jde o to, ze
prakticky VSE, co se nachazi ve VCL, je treba z threadu volat
timto mechanismem. Jinak jsou vysledky presne takove, jak pises -
obcas se to nahodile hrouti.
David Lebeda
TTAble ->TQuery
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 07:01:50
> Neviete niekto, aky SQL prikaz posle komponenta TTable SQL serveru,
> ked v DBGride mazem nejaky zaznam a neexistuje jednoznacny kluc ?
> Nieco ako DELETE FROM tablex WHERE ... Tie bodky potrebujem doplnit.
Ahoj,
tohle sice nevim, muselo by se to zjistit jinym zpusobem, jak
ostatne uz nekdo psal vcera, ale podle meho nazoru to stejne
nepotrebujes vedet. Kdyz nemas jednoznacny klic, znamena to, ze
mohou existovat radky, ktere jsou zcela duplicitni? V tom pripade
je pomoci SQL nemas sanci rozlisit. Pokud ne, nezbyva Ti nez
vyjmenovat vsechna pole v danem radku.
David Lebeda
ukonceni threadu a zavreni aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 07:08:03
> ahoj,
> uz si vazne nevim rady. Mam aplikaci, ktera v oncreate vytvori
> thread, az se thread dokonci, potrebuju aplikaci celou ukoncit.
> TThread.FreeOnTerminate mi nefunguje - nebo nechapu jeho podstatu :(
FreeOnTerminate = True zpusobi, ze pote, co metoda Execute
threadu skonci, uvolni se z pameti i objekt MujThread. Ty pak na
uvolneny objekt volas z casovace jeho metodu a je proto div, ze to
zatim nespadlo.
Na thread se da cekat pomoci WaitForSingleObject a jiste
existuji i dalsi zpusoby.
David Lebeda
Foreign key na vic polozek
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 20.9.2001 07:26:20
On 19 Sep 2001, at 17:12, Ondrej Zahradnik wrote:
> Mam tabulku A, ktera vypada takto
V takovychto dotazech neni od veci napsat jaka je to databaze. IB?
> ID ROK a dalsi pole...
> 1 1999
> 1 2000
> pole ID a ROK tvori SPOLECNE primary key.
Ostatne soudim, ze pokud to jen trochu jde (a to jde skoro
vzdycky) tak je stejne lepsi jako PK mit "nevyznamovy"
jednoduchy atribut.
> Ve druhe tabulce B potrebuji mit odkaz na ID, ne na ID a ROK
> dohromady.
> Problem je v tom, ze odkaz na tabulku A v tabulce B nemuze byt foreign
> key.
Muze, ale musel by na A.ID byt unique index coz jak je videt nelze.
> key. Nevite, jak toto vyresit?
Z principu to vidim jinak a to tak, ze v zaznamech tabulky A by mel
byt odkaz na zaznam tabulky B. Jen tak zbezne se mi totiz zda,
ze evidentne B je v tom vztahu parent na kterem muze byt
poveseno nekolik childu A. Neni-li tomu tak a zaznam z tabulky A
muze byt povesen na ruzne zaznamy v tabulce B, je to vztah N:M
a je nutno to udelat pres vazebni tabulku.
Z.Kalhous
TDBF Seek
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 20.9.2001 07:30:03
Zdravim
Je pravda, ze TDBF nema seek podle indexu ale jenom prohledavani metodou
Locate ???
S uctou
Robert Plzak
zavirani modalniho okna v Delphi 6.0 Enterprise
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 20.9.2001 07:31:17
> Odes�latel: jarunek peter <oldiak(zv)yahoo.com>
> moj dalsi problem spociva v tom, ze ked za behu
> vytvorim modalne okno syntaxou:
> mform := tform.create(?);
> formstyle := fsMDIChild;
> toto okno nie je mozne zatvorit standardnym
> kliknutim na krizik Close vpravo hore (toto okno sa
> len minimalizuje).
Otazka Owner tady byla uz diskutovana:
Owner v destruktoru zavre vsechny vlastnene komponenty.
To ze okno nelze zavrit je zpusobeno tim,
ze MDIChild formulare maji v OnClose default Action=caMinimize.
Pokud tam das caFree, pak se okno zavre (a zrusi).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Obchodujte, nakupujte na http://www.e-byznys(tec)cz
TTAble ->TQuery
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 20.9.2001 07:38:07
Odes�latel: Peter Mojdis <mojdis(zv)colnicapo.sk>
Neviete niekto, aky SQL prikaz posle komponenta TTable SQL serveru, ked
v DBGride mazem nejaky zaznam a neexistuje jednoznacny kluc ?
Nieco ako DELETE FROM tablex WHERE ... Tie bodky potrebujem doplnit.
Potrebujem to kvoli prerobeniu z TTAble na TQuery.
Na to je SQLMon.exe (Delphi Enterprise).
Zavisi to na nastaveni property "UpdateMode".
Standardne jsou v tom "where" myslim stare hodnoty vsech polozek.
Nechapu ovsem, jak to souvisi s prechodem od TTable na TQuery.
Pokud to je jedna tabulka, pak TQuery po RequestLive=true lze normalne editovat (mazat zaznamy).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Edit+Locate
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 20.9.2001 07:41:25
...a pocitas i s dalsima variantama, jako ze uzivatel nemusi psat pouze na
konci, ale i uvnitr retezce? (oprava preklepu, apod.)
Napada me, zapamatovat si posledni retezec a pozici SelStart. Tu v pripade
"not Locate" nastavit.
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
www.pejasoft.com
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 20, 2001 6:29 AM
Subject: Re: Edit+Locate
> > with IBDataset do
> > begin
> > if not Locate('nazevpole', Edit1.Text,[loPartialKey]) then
> > Edit1.Text := Copy(Edit1.Text,0,Length(Edit1.Text)-1); file://**
> > end;
> >
> >
> > file://**
> > potrebuju, aby se v pripade neuspesneho Locate zadany text v Edit1
> > zkratil o posledni zadany (tedy neplatny) znak tak, aby kursor zustal
> > v Editu na konci retezce. Ve vyse uvedenem kodu se pozice kurzoru
> > nastavi na zacatek textu.
>
> Ahoj,
>
> zkus jeste pridat neco jako Edit1.SelStart := length(Edit1.Text).
>
> David Lebeda
>repaint v threadu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 20.9.2001 07:42:34
> Odes�latel: Petr J�nsk� <petr.jansky(zv)volny(tec)cz>
> Udelal jsem to tak, ze mam list tech, ktere maji blikat a v jinem threadu
> projizdim tento list a menim barvu objektu. Po zmene barvy se zavola
> repaint. Zdanlive to funguje, ale na nekterych pomalejsich pocitacich se
> cela aplikace nekdy nekontrolovatelne hrouti. Zrejme musim nejak
> synchronizovat thready. Jak na to?
Ke grafickym objektum VCL lze pristupovat vyhradne z hlavniho threadu aplikace.
Pokud to chci delat z vedlejsiho threadu, musim pouzit
Synchronize(preklesli_to)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================TDBF Seek
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.9.2001 07:46:48
Jak se to vezme. On totiz Seek je pouze varianta Locate, pouze se
neprohledavaji polozky, ale index. Zalezi pouze na tom, jak je Locate
v TDBF implementovan.
Jinak v TDatasetu se pouziva misto Seek (ktery pochazi z Fox a dBase)
metoda FindKey
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
20.9.2001 Robert Plz�k:
> Je pravda, ze TDBF nema seek podle indexu ale jenom prohledavani metodou
> Locate ???
Rychlost Client/Server Sockets
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 20.9.2001 07:55:40
> Nebude to tym, ze OS este caka, ci nebudu nahodou dalsie data do paketu? Sa
> mu neoplati posielat kazdych par bajtov v samostatnom pakete. Ak chces
> okamzite odoslat to co chces, daj nejak flush bafra (neviem momentalne ako).
Ze OS ceka na doplneni paketu me nejdriv taky napadlo, jenze to by i u
toho 10kB cekal na doplneni (toho posledniho) - pokud bych se teda zcela
nahodne netrefil primo do jeho delky (ale to ne, prtoze ve skutecnosti
odesilam data o delce 10000+random(100) Bytu ).
takze v tomto to nejspis nebude... (a jsem z toho porad jelen)
> > A TED TEN PROBLEM:
> > kdyz si mezi sebou vymenuji bloky o velikosti 10byte, tak to trva mnohem
> > dele, nez kdyz si posilaji bloky 10kB !!!!
--MM
ukonceni threadu a zavreni aplikace
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 20.9.2001 08:15:51
Ahoj
Podle mne, pokud mas nastaveno FreeOnTerminate a nastane terminate, tak uz potom k tomu threadu nemuzes pristupovat
protoze uz neexistuje. Tim padem si nemuzes ani precist MujThread.Terminated
Preji hodne zdaru
Jirka
> procedure TMujThread.Execute;
> begin
> ...
> Synchronize(SynLabel);
> end;
>
> procedure TMujThread.SynLabel;
> begin
> ...
> end;
>
> procedure TMainForm.FormCreate(Sender: TObject);
> begin
> MujThread:=TMujThread.Create(true);
> MujThread.FreeOnTerminate:=true;
>
> CheckTimer:=TTimer.Create(Owner);
> with CheckTimer do
> begin
> OnTimer:=CheckTimerOnTimer; Interval:=1500; Enabled:=true;
> end;
>
> MujThread.Resume;
> end;
>
> procedure TMainForm.FormClose(Sender: TObject; var Action:
> TCloseAction);
> begin
> CheckTimer.OnTimer:=nil;
> CheckTimer.Free;
> end;
>
> procedure TMainForm.CheckTimerOnTimer(Sender: TObject);
> begin
> if MujThread.Terminated then MainForm.Close;
> end;
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
> Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
> 59826637
>
> ______________________________________________________________________
> Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
> Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/
>Handle
[*] Peter <peter(zv)baris.sk> - 20.9.2001 08:22:33
1 moznost pouzit GetForegroundWindow ale to zisti len aktivne okno
2 moznost prejst vsetky procesy cez enumprocesses a vsetky minimalizzovat
peter
----- Original Message -----
From: David Kraina <DKx(zv)Seznam(tec)cz>
To: Delphi Konference <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, September 15, 2001 11:03 PM
Subject: Handle
> Jak zjistim handle okna na popredi ? (potrebuji minimalizovat jakekoliv
okno
> na popredi)...DKx...DDE a thread
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 20.9.2001 08:32:53
Kazdy thread ze ktereho chces obsluhovat musi volat a pak mit vlastni
smycku zprav. DDEInitialize je v komponentach z Delphi volano mam takovy
dojem v initialization sekci nektere unity tech komponent => ty komponenty
nepodporuji pouziti v jinem nez primarnim vlaknu => nezbyde ti nez pouzit
API, nebo malinko poupravit ty komponenty :-)). Uz to tu nekolikrat slo.
Ondrej
----- Original Message ----- >
> Mam na formu TDdeClientConv pro komunikaci s jinym programem. Muj
> program ceka ve smycce na dokonceni nejake akce. No a prave tu smycku
> jsem chtel dal do samostatneno threadu s tim, ze pres DdeClientConv
> posle tomu (jinemu) programu prikaz a az skonci, budu reagovat na
> vysledeky. Ale to nejede.
>
> Proc to (DDE) v hlavnim programu funguje a v threadu ne?
TTAble ->TQuery
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 20.9.2001 08:34:45
Mozna i proto MS doporucuje mit na kazde tabulce primarni klic.
Preci nejde smazat jen jeden zaznam ze dvou, pokud nevis, ktery z nich
mel uzivatel na mysli.
Nejjednodussi by bylo mit v tabulce identity - pak je vse vyreseno.
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
19.9.2001 Peter Mojdis:
> Ahoj !
> Neviete niekto, aky SQL prikaz posle komponenta TTable SQL serveru, ked
> v DBGride mazem nejaky zaznam a neexistuje jednoznacny kluc ?
> Nieco ako DELETE FROM tablex WHERE ... Tie bodky potrebujem doplnit.
> Potrebujem to kvoli prerobeniu z TTAble na TQuery.
Hex do dec
[*] prajz.rumcajs(zv)quick(tec)cz - 20.9.2001 8:51:22
Servus ve spolek,
nezna nekdo funkci pro prevedeni hexadecimalniho cisla do
decimalniho tvaru? Neco jako opak IntToHex. Predem, zadem, dekuji
OOOOO
OOOOO
OOOOOOO
(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
----------oOOO--(_)--OOOo------------------------------
Lukas Weiss receny Rumcajs
e-mail: rumcajs(zv)email(tec)cz
ooO
-------------( )--Ooo--------------------------------
\ ( ( )
\_) ) /
(_)Hex do dec
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 20.9.2001 09:04:33
Int := StrToInt('$FF');
Ales
> -----Original Message-----
> From: prajz.rumcajs(zv)quick(tec)cz [mailto:prajz.rumcajs(zv)quick(tec)cz]
> Sent: Thursday, September 20, 2001 8:51 AM
> hexadecimalniho cisla do
> decimalniho tvaru? Neco jako opak IntToHex. Predem, zadem, dekuji
Rychlost Client/Server Sockets
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.9.2001 09:06:52
> > Nebude to tym, ze OS este caka, ci nebudu nahodou dalsie data do
paketu? Sa
> > mu neoplati posielat kazdych par bajtov v samostatnom pakete. Ak
chces
> > okamzite odoslat to co chces, daj nejak flush bafra (neviem
momentalne ako).
> Ze OS ceka na doplneni paketu me nejdriv taky napadlo, jenze to by i
u
> toho 10kB cekal na doplneni (toho posledniho) - pokud bych se teda
zcela
> nahodne netrefil primo do jeho delky (ale to ne, prtoze ve
skutecnosti
> odesilam data o delce 10000+random(100) Bytu ).
>
> takze v tomto to nejspis nebude... (a jsem z toho porad jelen)
>
> > > A TED TEN PROBLEM:
> > > kdyz si mezi sebou vymenuji bloky o velikosti 10byte, tak to
trva mnohem
> > > dele, nez kdyz si posilaji bloky 10kB !!!!
>
Defaultne TSP stream ma zaply Nagle algoritmus - ten zpusobuje, ze
data nejsou odeslana okamzite ale az po te pokud do urcite doby
(zlomek sekundy) neprijdou data dalsi. Samozrejme pokud je zaplnen
interni buffer stacku dostatecne (TCP window) odeslou se data bez
cekani. Nagle lze jednoduse vypnout - ale neverim, ze je zdrojem Tvych
problemu.
Jaky je casovy rozdil mezi prenosy kratkych a delsich dat?
PS: netusim, zda neni nejaky optimalizacni mechanismus implementovan i
v tech komponentach co pouzivas.
D. Toman
Hex do dec
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.9.2001 09:09:01
>Servus ve spolek,
>nezna nekdo funkci pro prevedeni hexadecimalniho cisla do
>decimalniho tvaru? Neco jako opak IntToHex. Predem, zadem, dekuji
Mas-li Hex cislo ve stringu pouzij:
IntToStr('$'+HexString)
D. Toman
Hex do dec
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.9.2001 09:10:39
>>Servus ve spolek,
>>nezna nekdo funkci pro prevedeni hexadecimalniho cisla do
>>decimalniho tvaru? Neco jako opak IntToHex. Predem, zadem, dekuji
>Mas-li Hex cislo ve stringu pouzij:
>IntToStr('$'+HexString)
samozrejme jsem mel na mysli
StrToInt...
D. Toman
Hex do dec
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 20.9.2001 09:15:18
> nezna nekdo funkci pro prevedeni hexadecimalniho cisla do
> decimalniho tvaru? Neco jako opak IntToHex. Predem, zadem, dekuji
V retezci S mas to hexadecimalni cislo.. a pak staci udelat velmi
jednoduchou fintu:
i := IntToStr('$' + s);
:-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
ukonceni threadu a zavreni aplikace
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 20.9.2001 09:18:57
> > ahoj,
> > uz si vazne nevim rady. Mam aplikaci, ktera v oncreate vytvori
> > thread, az se thread dokonci, potrebuju aplikaci celou ukoncit.
> > TThread.FreeOnTerminate mi nefunguje - nebo nechapu jeho podstatu :(
>
> FreeOnTerminate = True zpusobi, ze pote, co metoda Execute
> threadu skonci, uvolni se z pameti i objekt MujThread. Ty pak na
> uvolneny objekt volas z casovace jeho metodu a je proto div, ze to
> zatim nespadlo.
> Na thread se da cekat pomoci WaitForSingleObject a jiste
> existuji i dalsi zpusoby.
ahoj,
a je spravny zpusob zavolat na konci metody Execute threadu
Terminated? Pak bych ten thread mel asi nekde uvolnit - v OnClose
formulare?
diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/Hex do dec
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 20.9.2001 09:19:03
> i := IntToStr('$' + s);
Ehm.. opacne... StrToInt. Ja vol...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Po WMEndSession se Windows neukonci
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 20.9.2001 10:34:14
> ja bych zkusil bud inherited uplne vypustit - tady alespon ja ho tam
> nedavam a funguje to, nebo ho dat jako prvni a az potom
> manipulaci s Msg. Ve sve aplikaci mam pouze
> WMQueryEndSession, to druhe ne - a rovnez to staci.
>
> David Lebeda
>
To jsem samozrejme zkousel, ani jedno ani druhe nepomuze. Ja vidim problem v
nejake nestandardnosti moji aplikace, viz napr. ShowMainForm := false, ale
moc to nechapu.
Ota
WORD
[*] Martin Bob�k <bobek(zv)bobek.sk> - 20.9.2001 10:35:24
Dobry den,
Robil niekedy niekto z vas vystup do wordovskeho doc ? Ako na to ?
MB
Po WMEndSession se Windows neukonci
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 10:44:28
> > ja bych zkusil bud inherited uplne vypustit - tady alespon ja ho tam
> > nedavam a funguje to, nebo ho dat jako prvni a az potom manipulaci s
> > Msg. Ve sve aplikaci mam pouze WMQueryEndSession, to druhe ne - a
> > rovnez to staci.
> >
> To jsem samozrejme zkousel, ani jedno ani druhe nepomuze. Ja vidim
> problem v nejake nestandardnosti moji aplikace, viz napr. ShowMainForm
> := false, ale moc to nechapu.
>
Zrovna tohle by ale mohlo jit zjistit pokusem - nekde pred koncem
zkusit ShowMainForm dat na true a ukoncit Windows, nebo ne?
Nebo udelat novou prazdnou aplikaci s showMainForm na False.
Pokud to bude fungovat v poradku, tak sve zdrojaky zazalohovat a
zkusit "umazavat" jednotlive unity nebo funkce - nez se zjisti, kde
je zakopany pes. S pokusem nad prazdnou aplikaci bych zacal.
David Lebeda
Speaker
[*] <bejcek(zv)centrum(tec)cz> - 20.9.2001 10:50:35
Ahoj kluci nemate nejake komponenty na Speaker a na zvuk,pripadne
kde je sezenu?
Diky
Aldik Pavel
amater vsech amateru
D5 Ent,W98
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
ProfGrid
[*] Miroslav Dran��k <DMiroslav(zv)seznam(tec)cz> - 20.9.2001 10:51:54
Ahoj,
nevite nekdo o free nebo ne moc drahe komponente, ktera umi to, co
ProfGrid (align pro jednotlive bunky, exporty atd.) a jeste navic
spojovani bunek? (Jako v Excelu)
Muze mi nekdo poradit nebo rovnou poslat na dmiroslav(zv)seznam(tec)cz?
predem moc dekuji za rychl�u odpoved
Mirek
Drancak
______________________________________________________________________
Hledani lidi a jejich e-mailu: http://www.lide(tec)cz
Edit+Locate
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 20.9.2001 10:52:20
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 20, 2001 6:29 AM
Subject: Re: Edit+Locate
> > with IBDataset do
> > begin
> > if not Locate('nazevpole', Edit1.Text,[loPartialKey]) then
> > Edit1.Text := Copy(Edit1.Text,0,Length(Edit1.Text)-1); file://**
> > end;
> >
> >
> > file://**
> > potrebuju, aby se v pripade neuspesneho Locate zadany text v Edit1
> > zkratil o posledni zadany (tedy neplatny) znak tak, aby kursor zustal
> > v Editu na konci retezce. Ve vyse uvedenem kodu se pozice kurzoru
> > nastavi na zacatek textu.
>
> Ahoj,
>
> zkus jeste pridat neco jako Edit1.SelStart := length(Edit1.Text).
>
> David Lebeda
A este pre istotu Edit.SetLength:=0;
Roland.
ukonceni threadu a zavreni aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.9.2001 10:56:22
> ahoj,
> a je spravny zpusob zavolat na konci metody Execute threadu
> Terminated? Pak bych ten thread mel asi nekde uvolnit - v OnClose
> formulare?
>
Pokud zavolas zvenku MujThread.Terminate, stane se jen to, ze se
nastavi priznak Terminated. Ten by mela metoda Execute
pravidelne sledovat, a kdyz zjisti, ze je nahozen, tak se co nejdrive
ukoncit. Obecne bys tedy nemusel umet rozlisit, jestli terminated
bylo nahozeno proto, ze ten thread nekdo chce ukoncit, nebo ze
uz opravdu dobehl. To uz teda spis nejakou vlastni promennou, ale
mozna nekdo ze zkusenejsich kolegu poradi lepsi zpusob, ja
thready uz nejaky patek v ruce nemel.
David Lebeda
Parameter do Query
[*] Peter Surovy <psurovy(zv)uevora.pt> - 20.9.2001 10:24:50
Zdravim;
chcel by som pri onclicku v comboboxe ziskat z neho hodnotu
ktora by bola parameter pre Query nieco ako:
SELECT DISTINCT "dtbase.dbf". hodnota
FROM "dtbase.dbf"
WHERE
(hodnota = combobox.text)
Da sa nieco take naprogramovat? Alebo si musim vytvorit x Queryov podla
poctu itemov v combo?
Dakujem.
----------------------------------
Ing. Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
OT : Aktivna bunka v Excel.
[*] kinekus-nextra <kinekus(zv)nextra.sk> - 20.9.2001 11:25:47
Ahoj,
V Excel potrebujem nastavit Aktivnu bunku do ktorej vlozim obrazok.
Robim to takto :
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.Range:='C5'; // chyba
Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
Excel.Visible := True;
Ale Excel.Range:='C5' sa nespracuje.
Ked tento riadok vyhodim, obrazok mi hodi rovno do Cells[1,1]
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
Excel.Visible := True;
Otazka znie : Ako nastavit na aku poziciu sa ma obrazok zapisat ?
Dakujem Fabik
Otevreni obrazku
[*] Michal Bachman <bachman(zv)wige-mic(tec)cz> - 20.9.2001 11:39:39
Dobry den,
potreboval bych radu, jak otevrit obrazek, na ktery znam cestu, v defaultnim
prohlizeci uzivatele.
Predem diky
Michal Bachman
Parameter do Query
[*] skalsky(zv)oksystem(tec)cz - 20.9.2001 11:51:04
setkal jsem se s podobnym problemem ... resil jsem to nejak takto :
.... WHERE hodnota = '''+ combobox.text+''';
''' = to jsou tri apostrofy ...
pr. stav: ... vybranej combobox.text = pepa ...
... a sql dotaz bude prelozen nejak takhle : ...... where hodnota =
'pepa';
... zkus se s tim poprat .. ostatne nic jineho ti nezbyde :(
Milan
Milan
"still" Delphi beginner
D5-Ent, IB6, W98,
Skalsky(zv)oksystem(tec)cz
ICQ #67571111
-----Original Message-----
From: Peter Surovy [mailto:psurovy(zv)uevora.pt]
Sent: Thursday, September 20, 2001 11:25 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Parameter do Query
Zdravim;
chcel by som pri onclicku v comboboxe ziskat z neho hodnotu
ktora by bola parameter pre Query nieco ako:
SELECT DISTINCT "dtbase.dbf". hodnota
FROM "dtbase.dbf"
WHERE
(hodnota = combobox.text)
Da sa nieco take naprogramovat? Alebo si musim vytvorit x Queryov podla
poctu itemov v combo?
Dakujem.
----------------------------------
Ing. Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
Parameter do Query
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 20.9.2001 12:00:03
> SELECT DISTINCT "dtbase.dbf". hodnota
> FROM "dtbase.dbf"
> WHERE
> (hodnota = combobox.text)
Ahoj
SELECT DISTINCT "dtbase.dbf". hodnota
FROM "dtbase.dbf"
WHERE
(hodnota = ':hodnota')
tu hodnotu naplnis takhle:
Query.ParamByName('hodnota').AsString := ComboBox.Text;
Pak staci jen
Query.Close;
Query.Open;
Preji hodne zdaru
Jirka
========================
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lanskroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
Parameter do Query
[*] Lauko Stefan <laukosw(zv)naex.sk> - 20.9.2001 12:06:14
----- Original Message -----
From: Peter Surovy <psurovy(zv)uevora.pt>
> Zdravim;
> chcel by som pri onclicku v comboboxe ziskat z neho hodnotu
> ktora by bola parameter pre Query nieco ako:
>
> SELECT DISTINCT "dtbase.dbf". hodnota
> FROM "dtbase.dbf"
> WHERE
> (hodnota = combobox.text)
Ahoj,
do Query.SQL vlozis tento text
SELECT DISTINCT "dtbase.dbf". hodnota
FROM "dtbase.dbf"
WHERE
(hodnota = :CT)
potom uz len...
Query.Active:=False;
Query.ParamByName('CT').Value:=combobox.text;
Query.Active:=True;
Lauko.Ini do TMemoryStream
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 20.9.2001 12:08:52
Mam
aStream : TMemoryStream
a chcem donho ulozit subory. Kazdy subor dostanem v bStream : TMemoryStream.
A zase opacne potrebujem tieto subory porozdelovat do jednotlivych cStream :
TMemoryStream pripadne TStream a tie ukladat bud na disk alebo do mema.
Poznamka: Ide o ini subory.
Vie mi niekto poradit ako na to?
dik jozo
Po WMEndSession se Windows neukonci
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 20.9.2001 12:17:33
A opravdu tam nemas inet komponenty z rady NM (NMPOP3, NMSMTP apod.)?
Mira Ondrisek
BONNEL TECHNOLOGIE
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ota Maly
> Sent: Thursday, September 20, 2001 10:34 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Po WMEndSession se Windows neukonci
> To jsem samozrejme zkousel, ani jedno ani druhe nepomuze. Ja
> vidim problem v
> nejake nestandardnosti moji aplikace, viz napr. ShowMainForm := false, ale
> moc to nechapu.
>
> Ota
>
>
>WORD
[*] Pavel Houdek <buggy(zv)betula.fsid.cvut(tec)cz> - 20.9.2001 12:20:04
Dobry den
Podobny problemek jsem tez resil. Jedine na co jsem prisel je, ze spustite
word a to co potrebujete do toho otevreneho wordu poslete, da se to dokonce i
ulozit, mozna jde pak i ten word zavrit (nezkousel jsem)...
Lze i vytvorit jakysi formular (tabulky apod.) a pak se do nej odkazovat a
vepisovat na urcita mista (sice krpate ale jde to) a nakonec to ulozit jako
neco jineho.
Hezky den
ph
Dne �t 20. z߰� 2001 10:35 jste napsal(a):
> Dobry den,
> Robil niekedy niekto z vas vystup do wordovskeho doc ? Ako na to ?
>
> MB
--
Pavel Houdek
p.houdek(zv)seznam(tec)cz
Otevreni obrazku
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.9.2001 12:26:15
ShellExecute(Application.Handle, 'open', PChar('obrazek'), '', '', SW_SHOWNORMAL);
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
20.9.2001 Michal Bachman:
> potreboval bych radu, jak otevrit obrazek, na ktery znam cestu, v defaultnim
> prohlizeci uzivatele.Kylix, kresleni na Canvas
[*] Pavel Houdek <buggy(zv)betula.fsid.cvut(tec)cz> - 20.9.2001 12:41:27
Dne st 19. z߰� 2001 12:45 jste napsal(a):
> Ahoj
> Pokud budes ten obrazek vykreslovat v metode Paint tak to bude chodit
> bez problemu.
>
> Preji hodne zdaru
Taky ahoj
Diky za reakci...
Jednoduse receno kreslim timto zpusobem:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Canvas.Pen.Color := clBlue;
Form2.Canvas.MoveTo( 10, 10 );
Form2.Canvas.LineTo( 100, 100 );
Form2.Canvas.Brush.Color := clRed;
Form2.Canvas.Font.Name := 'Arial';
Form2.Canvas.TextOut( Form2.Canvas.PenPos.x, Form2.Canvas.PenPos.y,'This
is the end of the line');
end;
Jak by to same vypadalo v metode Paint?
Diky
--
Pavel Houdek
p.houdek(zv)seznam(tec)cz
Aktivna bunka v Excel.
[*] Robert Suska <robert(zv)korak.sk> - 20.9.2001 12:47:14
Skusal si aj take nieco ako excel.cell[C5, 10] alebo setactivecell alebo co
ja viem ??? alebo take nieco, neviem presne ale podla mna prikazom range sa
nastavuje rozsah a nie pozicia v zosite. treba sa pozriet do helpu. ;-)
Dufam ze som Ti pomohol, ak je to somarina tak sorry :)
Robo
> Ahoj,
>
> V Excel potrebujem nastavit Aktivnu bunku do ktorej vlozim obrazok.
> Robim to takto :
>
> Excel := CreateOleObject('Excel.Application');
> Excel.WorkBooks.Add;
> Excel.Range:='C5'; // chyba
> Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
> Excel.Visible := True;
>
> Ale Excel.Range:='C5' sa nespracuje.
>
> Otazka znie : Ako nastavit na aku poziciu sa ma obrazok zapisat ?
>OT : Aktivna bunka v Excel.
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 20.9.2001 12:50:08
> Excel.Range:='C5'; // chyba
> Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
ja bych na to zkusil jit nejak takto (v :
Excel.ActiveSheet.Range['C5:C5'].Select;
Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
T.Kylix, kresleni na Canvas
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 20.9.2001 12:59:54
> Jednoduse receno kreslim timto zpusobem:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Form2.Canvas.Pen.Color := clBlue;
> Form2.Canvas.MoveTo( 10, 10 );
> Form2.Canvas.LineTo( 100, 100 );
> Form2.Canvas.Brush.Color := clRed;
> Form2.Canvas.Font.Name := 'Arial';
> Form2.Canvas.TextOut( Form2.Canvas.PenPos.x,
> Form2.Canvas.PenPos.y,'This
> is the end of the line');
> end;
>
> Jak by to same vypadalo v metode Paint?
imho stejne, ale nebudeto "Button1Click" ale "FormPaint" nebo tak nejak,
proste to hod do udalosti OnPaint.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS OT : Aktivna bunka v Excel.
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 20.9.2001 12:59:13
Ahoj,
zkus
Excel.Range ('C5').Activate
Karel
-----P�vodn� zpr�va-----
Od: kinekus-nextra [mailto:kinekus(zv)nextra.sk]
Odesl�no: 20. z߰� 2001 11:26
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: OT : Aktivna bunka v Excel.
Ahoj,
V Excel potrebujem nastavit Aktivnu bunku do ktorej vlozim obrazok.
Robim to takto :
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.Range:='C5'; // chyba
Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
Excel.Visible := True;
Ale Excel.Range:='C5' sa nespracuje.
Ked tento riadok vyhodim, obrazok mi hodi rovno do Cells[1,1]
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
Excel.Visible := True;
Otazka znie : Ako nastavit na aku poziciu sa ma obrazok zapisat ?
Dakujem Fabik
OT : Aktivna bunka v Excel.
[*] skalsky(zv)oksystem(tec)cz - 20.9.2001 13:01:15
o pokud si spustis zaznam makra a paxe to pokousis prepsat do delphi ...
ostatne to je asi bezna praxe tech, co neumej vsechno nazpamet, tak makro ti
pri vybrani bunky C5 zaznamena nasledujici:
Range("C5").selected;
... vzhledem k tomu, ze objekt Excel jsi vyvolal, pak by to mohlo jit jako
Excel.range('C5').selected;
... bohuzel tu nemam v praci Delphi, takze neni odzkousene ... ale fachat
by to mohlo :)
Milan
"still" Delphi beginner
D5-Ent, W98,
Skalsky(zv)oksystem(tec)cz
ICQ #67571111
-----Original Message-----
From: kinekus-nextra [mailto:kinekus(zv)nextra.sk]
Sent: Thursday, September 20, 2001 11:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT : Aktivna bunka v Excel.
Ahoj,
V Excel potrebujem nastavit Aktivnu bunku do ktorej vlozim obrazok.
Robim to takto :
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.Range:='C5'; // chyba
Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
Excel.Visible := True;
Ale Excel.Range:='C5' sa nespracuje.
Ked tento riadok vyhodim, obrazok mi hodi rovno do Cells[1,1]
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.ActiveSheet.Pictures.Insert('C:\aaa.jpg');
Excel.Visible := True;
Otazka znie : Ako nastavit na aku poziciu sa ma obrazok zapisat ?
Dakujem Fabik
None
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 20.9.2001 13:09:43
ahoj,
neda mi to, abych se nezeptal. Narazil jsem na toto, ve zdroji
projektu (dpr):
Toto funguje:
Application.Initialize;
if ParamStr(1)=LowerCase('-backup') then
Application.CreateForm(TClientForm,ClientForm);
if ParamCount=0 then
Application.CreateForm(TInstallForm,InstallForm);
Application.Run;
Toto uz nikoli:
Application.Initialize;
if ParamStr(1)=LowerCase('-backup') then
Application.CreateForm(TClientForm,ClientForm)
else
Application.CreateForm(TInstallForm,InstallForm);
Application.Run;
Muzete mi nekdo objasnit, proc ta varianta s else nefunguje? Jekmile
tam dam else, tak se mi tlacitko pro preklad disabluje (stejne tak
dalsi tlacitka pro pridani .dfm atp.). Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz,
ICQ:59826637
______________________________________________________________________
Vse pod jednou strechou - squash, Ricochet, aerobik, solaria, sauna,
posilovna, sport shop, sport bar, masaze - http://www.squashpoint(tec)cz
Speaker
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 20.9.2001 13:12:53
> Ahoj kluci nemate nejake komponenty na Speaker a na zvuk,pripadne
> kde je sezenu?
> Diky
To uz tady dlouho nebylo :-)
Procedure PCSpeakerBeep( Frequency, Duration: Integer );
Begin
If Win32Platform = VER_PLATFORM_WIN32_NT Then
Windows.Beep( Frequency, Duration )
Else
Asm MOV ECX, Frequency
JCXZ (zv)(zv)2
MOV EAX, 1193181
CDQ
IDIV ECX
MOV ECX, EAX
IN AL, ($61)
TEST AL, $03
JNZ (zv)(zv)1
OR AL, $03
OUT ($61), AL
MOV AL, $B6
OUT ($43), AL
(zv)(zv)1: MOV AL, CL
OUT ($42), AL
MOV AL, CH
OUT ($42), AL
PUSH Duration
CALL Windows.Sleep
(zv)(zv)2: IN AL, ($61)
AND AL, $FC
OUT ($61), AL
End;
End;WORD
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 20.9.2001 13:55:26
Ahoj,
nekdo se tady ptal na komunikaci delphi s Wordem. To ze se zatim nikdo
neozval je asi proto, ze uz to tu bylo probirano mnohokrat. Ja ti muzu
poradit link, kde by jsi mohl najit neco zajimaveho. Je to asi uprostred
toho obsahu.
http://www.gnomehome.demon.nl/uddf/
Zdravi
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================Kylix, kresleni na Canvas
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 20.9.2001 13:57:30
Ahoj
Zkus to takhle
--------------------------------------------------------------------------------------------------------
Type
TForm1 = class(TForm)
protected
procedure Paint; override;
public
FPaint: Boolean;
end;
implementation
procedure TForm2.Paint;
begin
inherited;
if FPaint then
begin
Canvas.Pen.Color := clBlue;
Canvas.MoveTo( 10, 10 );
Canvas.LineTo( 100, 100 );
Canvas.Brush.Color := clRed;
Canvas.Font.Name := 'Arial';
Canvas.TextOut( Form2.Canvas.PenPos.x, Form2.Canvas.PenPos.y,'This is the end of the line');
end;
end;
--------------------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.FPaint := not Form2.Fpaint;
Form2.Invalidate;
end;
--------------------------------------------------------------------------------------------------------
Staci mackat ten Cudl a bud se to bude vykreslovat nebo ne.
Preji hodne zdaru
Jirka
========================
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lan#kroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
Vypis adresaru
[*] "Mirek Drej�ek"���v#�q��#�d�ʿ - 20.9.2001 14:03:27
Zdravim,
pro zisakni adresaru pouzivam toto:
procedure TForm1.AddFiles(aPath, aMask: String; aRecursion: Boolean);
var FSearchRec, DSearchRec: TSearchRec;
FindResult: Integer;
begin
aPath:= aPath + '\';
FindResult := FindFirst(aPath + aMask, faAnyFile +
faHidden + faSysFile + SysUtils.faReadOnly, FSearchRec);
try
while (FindResult = 0) do FindResult := FindNext(FSearchRec);
FindResult := FindFirst(aPath + aMask, faDirectory + faHidden +
faSysFile + SysUtils.faReadOnly, DSearchRec);
while (FindResult = 0) do
begin
if ((DSearchRec.Attr and faDirectory) = faDirectory) and
(DSearchRec.Name <> '.') and (DSearchRec.Name <> '..') then
begin
ListBox1.Items.Add(DSearchRec.Name);
if aRecursion then AddFiles(aPath + DSearchRec.Name, aMask,
aRecursion);
end;
FindResult := FindNext(DSearchRec);
end;
FindClose(DSearchRec);
finally
FindClose(FSearchRec);
end;
end;
Da se tato procedura upravit, aby se do list boxu zapsala cela cesta?
Mozna by slo toto:
ListBox1.Items.Add(ExpandFileName(DSearchRec.Name));
ale nevim jak nastavit cestu, ktera se bude doplnovat.
Predem dik za jakoukoli radu
Mirek Drejcek.
TListView
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 20.9.2001 14:03:25
Ahojte,
mam takovy problem. Vkladam z jednoho ListViewu do druheho a potrebuji
zjistit, zda je dana polozka v tom druhem jiz obsazena ci ne. Jak to udelam
? Jde mi to u ListBoxu. Pouziji-li tu stejnou techniku, pak mi to tady tak
nefunguje. Pomozte prosim nekdo.
Dekuji.
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================Jazyky a staty
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 20.9.2001 14:23:43
Zdravim.
Kde by som nasiel ak existuje, nieco ako standardne oznacenie kodov jazykov
a statov.
Oznacuje sa to ako ISO norma ?
Dakujem
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
TTAble ->TQuery
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 20.9.2001 14:23:30
Dotahni si jeste sloupec s hodnotou RECNO(), ta je pro radky Dbase tabulky
jednoznacna.
Pavel
> -----P�vodn� zpr�va-----
> Od: ing. Pavel Zilinec [mailto:zilinec(zv)email(tec)cz]
> Odesl�no: 20. z߰� 2001 8:35
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: TTAble ->TQuery
>
>
> Mozna i proto MS doporucuje mit na kazde tabulce primarni klic.
> Preci nejde smazat jen jeden zaznam ze dvou, pokud nevis, ktery z nich
> mel uzivatel na mysli.
> Nejjednodussi by bylo mit v tabulce identity - pak je vse vyreseno.
>
> ------
> ing. Pavel Zilinec
> mailto:zilinec(zv)email(tec)cz
>
> 19.9.2001 Peter Mojdis:
> > Ahoj !
> > Neviete niekto, aky SQL prikaz posle komponenta TTable SQL
> serveru, ked
> > v DBGride mazem nejaky zaznam a neexistuje jednoznacny kluc ?
> > Nieco ako DELETE FROM tablex WHERE ... Tie bodky potrebujem doplnit.
> > Potrebujem to kvoli prerobeniu z TTAble na TQuery.
>
>
> Otevreni obrazku
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 20.9.2001 14:56:45
napr. takto:
ShellExecute(handle, nil,PChar('c:\delphi\images\splash.bmp'), nil, nil,
SW_SHOWDEFAULT);
S pozdravom
Roland Turcan
From: "Michal Bachman" <bachman(zv)wige-mic(tec)cz>
Sent: Thursday, September 20, 2001 11:39 AM
> jak otevrit obrazek, na ktery znam cestu, v defaultnim
> prohlizeci uzivatele.
OT: Seznam obci CR
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 20.9.2001 14:59:50
Ahoj
Nevite nekdo kde bych mohl sehnat seznam obci CR spolu se zemepisnou sirkou a vyskou.
Predem diky
Jirka ukonceni threadu a zavreni aplikace
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 20.9.2001 15:04:49
----- Original Message -----
From: Milan #ݿek <Cizek.Milan(zv)seznam(tec)cz>
Sent: Wednesday, September 19, 2001 4:25 PM
Ahoj,> uz si vazne nevim rady. Mam aplikaci, ktera v oncreate vytvori
> thread, az se thread dokonci, potrebuju aplikaci celou ukoncit.
navrhujem relativne jednoduche riesenie s vyuzitim spolocneho pocitadla. Ina
moznost je v udalost onterminate poslat hlavnemu oknu spravu WM_CLOSE
pomocou PostMessage.
const
ThreadCounter: Integer = 0; // ---------------- pocitadlo threadov
procedure TMainForm.FormCreate(Sender: TObject);
begin
MujThread:=TMujThread.Create(true);
MujThread.FreeOnTerminate:=true;
MujThread.Resume; // ------------------------ timer spustit az po spusteni
threadu
CheckTimer:=TTimer.Create(Owner);
with CheckTimer do
begin
OnTimer:=CheckTimerOnTimer; Interval:=1500; Enabled:=true;
end;
end;
procedure TMujThread.IncThreadCounter;
begin
Inc(ThreadCounter); // ----------------------- zvysime counter
end;
procedure TMujThread.DecThreadCounter;
begin
Dec(ThreadCounter); // ----------------------- zniziime counter
end;
procedure TMujThread.Execute;
begin
Synchronize(IncThreadCounter);
try
...
Synchronize(SynLabel);
finally
Synchronize(DecThreadCounter);
end;
end;
procedure TMainForm.CheckTimerOnTimer(Sender: TObject);
begin
if (ThredCounter<0) then
MainForm.Close;
end;
Zdravim, Pavol Stolc
pstolc(zv)sc.sknet.sk
Parameter do Query
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 20.9.2001 15:07:04
Ahoj,
pokud jsem spravne pochopil dotaz, tak mozna takto:
const
SQL1 = 'SELECT DISTINCT "Dtbase.dbf".hodnota FROM "dtbase.dbf" WHERE
(hodnota = ''%s'')
a v kodu
Query.SQL.Clear;
Query.SQL.Add(Format(SQL1, [combobox.text]));
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele Peter Surovy
> Odesl�no: 20. z߰� 2001 11:25
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Parameter do Query
>
>
> Zdravim;
> chcel by som pri onclicku v comboboxe ziskat z neho hodnotu
> ktora by bola parameter pre Query nieco ako:
>
> SELECT DISTINCT "dtbase.dbf". hodnota
> FROM "dtbase.dbf"
> WHERE
> (hodnota = combobox.text)
>
> Da sa nieco take naprogramovat? Alebo si musim vytvorit x
> Queryov podla
> poctu itemov v combo?
> Dakujem.
>
> ----------------------------------
> Ing. Peter Surovy
> psurovy(zv)uevora.pt
> ICQ #119605423
>
>
>
>
Vypis adresaru
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 20.9.2001 15:15:46
> ListBox1.Items.Add(DSearchRec.Name);
Ahoj
A pro tam nepouzijes tu aPath kterou tej procedure predavas?
ListBox1.Items.Add(aPath+DSearchRec.Name);
Preji hodne zdaru
Jirka
========================
KSH-Data s.r.o.
Dobrovsk�ho 56
56301 Lanskroun
tel:0467/523258
tel+fax:0467/522181
e-mail:wendl(zv)ksh-data(tec)cz
www.ksh-data(tec)cz
ICQ:122972218
OT: Beep pres speaker
[*] <mydelphi(zv)centrum(tec)cz> - 20.9.2001 15:19:06
Nazdrek,
potreboval bych pouzit nejakou proceduru jako beep, kde bych mohl
zadat frekvenci a duration. Ton by se prehral pomoci speakeru
nebo zvukovky. Standardni funkce beep tyto parametry ignoruje a
automaticky prehraje zvuk "hvezdicka". Jak muzu pinout treba
440Hz (komorni A)?
Diky za reakce
Tom(zv)s
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Prepinani klavesnic
[*] Jaskin <jaskin(zv)seznam(tec)cz> - 20.9.2001 15:30:06
Zdravim vsechny vespolek,
Mam takovy problem:
Delam aplikaci ktera obsahuje TRichEdit, po jejim spusteni se mi prepina
anglicka klavesnice do ceske...
Je to asi zpusobeno vlastnosti TRichEdit.Font.CharSet kterou mam nastavenu
na EastEurope_Charset jenomze kdyz ji nastavim na ANSI_CharSet tak se
cestina nezobrazuje korektne...
Potreboval bych poradit jak nastavit, aby zustavala klavesnice ktera je
aktualne nastavena v systemu pri startu programu.
Pokud to nelze tak jak prepinat mezi klavesnicemi ve Windows (programove..
:)
diky Jaskin
Prepinani klavesnic
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 20.9.2001 15:32:06
> Pokud to nelze tak jak prepinat mezi klavesnicemi ve Windows (programove..
see ActivateKeyboardLayout function.
Josef Cerny
Vypis adresaru
[*] Jan Sebesta <delcomseb(zv)volny(tec)cz> - 20.9.2001 15:35:38
From: Mirek Drej�ek <drejcek(zv)schkocr(tec)cz>
To: Konference Delphi <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 20, 2001 2:03 PM
Subject: Vypis adresaru
Zkus toto ListBox1.Items.Add(aPath+DSearchRec.Name);
Prepinani klavesnic
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 20.9.2001 16:29:30
je to sice pouziti API funkce v prikkladu z VisualBasicu, ale mozna ti
pomuze:
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As
Long, ByVal flags As Long) As Long
ActivateKeyboardLayout 0, 0
-----Original Message-----
Behalf Of Jaskin
Zdravim vsechny vespolek,
Mam takovy problem:
Delam aplikaci ktera obsahuje TRichEdit, po jejim spusteni se mi prepina
anglicka klavesnice do ceske...
Je to asi zpusobeno vlastnosti TRichEdit.Font.CharSet kterou mam nastavenu
na EastEurope_Charset jenomze kdyz ji nastavim na ANSI_CharSet tak se
cestina nezobrazuje korektne...
Potreboval bych poradit jak nastavit, aby zustavala klavesnice ktera je
aktualne nastavena v systemu pri startu programu.
Pokud to nelze tak jak prepinat mezi klavesnicemi ve Windows (programove..
:)
diky Jaskin
TIBTransaction.AutoStopAction - IBX 4.62
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 20.9.2001 16:44:37
> From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Sent: Tuesday, September 18, 2001 4:35 PM
> c) Pro transakce v jejichz ramci se provadi toliko SELECT, je
> vhodne pouzivat vzdy COMMIT (nikoliv CommitRetaining!). Rezie
> commitu je velmi nizka, obvzlaste v pripade, ze nedoslo k zadnym
> zmena v ramci transakce.
Dobre ale ak som vykonaval len select, t.j. neprislo v transakcii k zmene je
vyhodnejsie pouzit COMMIT alebo ROLLBACK ?
S pozdravom
Roland Turcan
TStrings Names a Values
[*] Zden�k Sv�en - 20.9.2001 16:54:17
Ahoj,
nevite nekdo na jakym principu se pracuje s vlastnostmi TStrings Names a
Values?
Mam problem a nevim, jestli to tyhle vlastnosti resi nebo ne.
Potrebuju do komponenty TMemo pridavat textove radky a kazdy radek nejak
asociovat s cislenou hodnotou. Jednoduse by se to dalo vysvetlit treba:
Na kazdy radek umistim jmeno a nekde k tomu radku si musim pamatovat cislo.
Napr.
Honza (23)
Jirka (15)
Katka (2)
a pokud pak uzivatel klikne na nejaky radek, zjistim pomoci
MojeMemo.CaretPos.Y na jaky radek to bylo a program zahlasi "Jirka: 15 let".
Je to srozumitelny.
Samozrejme jde jen o priklad. Jde hlavne o to, ze do TMemo chci umistovat
text, ktery ma urcitou cislenou hodnotu. Tuto hodnotu vsak uzivateli
ukazovat nechci. Vlastne tedy potrebuju neco jako AddObject, jenze nechci
asociovat objekt ale cislo.
Jde to nejak jednoduse?
Diky.
Z.S.Milan ��ek - ParamStr(1)=LowerCase('-ba
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 20.9.2001 16:56:34
----- Original Message -----
From: "Milan #ݿek" <Cizek.Milan(zv)seznam(tec)cz>
Sent: Thursday, September 20, 2001 1:09 PM
Toto by uz malo:
Application.Initialize;
if LowerCase(ParamStr(1))='-backup' then
Application.CreateForm(TClientForm,ClientForm)
else
Application.CreateForm(TInstallForm,InstallForm);
Application.Run;
S pozdravom
Roland Turcan
PS: Nezabudal na subject
TStrings Names a Values
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 20.9.2001 17:07:06
> Samozrejme jde jen o priklad. Jde hlavne o to, ze do TMemo
> chci umistovat
> text, ktery ma urcitou cislenou hodnotu. Tuto hodnotu vsak uzivateli
> ukazovat nechci. Vlastne tedy potrebuju neco jako AddObject,
> jenze nechci
> asociovat objekt ale cislo.
> Jde to nejak jednoduse?
Memo.AddObject('blabla', TObject(15));
Ales
obsluha udalosti v kode
[*] jarunek peter <oldiak(zv)yahoo(tec)com> - 20.9.2001 08:12:45 -0700 (pdt)
Zdravicko!
opat si vas dovolim obtazovat jednym amaterskym
dotazom, lebo to neviem nikde najst :O(:
pri dynamickom vytvarani objektu (popri nastaveni
vlastnosti) chcem tomuto objektu priradit obsluhu
udalosti onClose; ako to mam syntakticky zapisat?
with <objekt> do
begin
//prop1 : ....
.
.
.
onClose ????
end;
Peter Jarunek; win2000server;delphi 6.0 enterprise
__________________________________________________
Terrorist Attacks on U.S. - How can you help?
Donate cash, emergency relief information
http://dailynews.yahoo.com/fc/US/Emergency_Information/Pole s TForm
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 20.9.2001 17:28:06
> Ano, to by mohlo chodit, ale s omezenim , ze nemuzes pristupovat k
> metodam a vlastnostem, pouzitym ve formulari "zvenku" z jineho
> formulare.
> Vytvaris totiz TForm a ne TFormA1.
Omyl, <formclass>.Create predsa vytvori instanciu triedy <formclass>, napr.
CreateMyForm(..., 0) by v tom pripade vytvorilo instanciu TFormA1.
Funkcia CreateMyForm sice vracia hodnotu typu TForm, ale na pristupovanie k
vlastnostiam danej triedy staci pouzit RTTI (operator "is") a vhodny
typecast, napr.
with Screen do
for I := 0 to FormCount - 1 do
if Forms[I] is TFormA1 then
begin
with TFormA1(Forms[I]) do
...
end
else if Forms[I] is TFormB1 then
begin
with TFormB1(Forms[I]) do
...
end ... atd.
TOndrej
Zvyraznenie slova !
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 20.9.2001 17:48:53
Ahoj.D5
Mam jednoduchy retazec a nahradzam v nom nejaku cast (teda klasicke
replace).
Potrebujem ukazat ten retazec uzivatelovi a zvyraznit (farba, podklad,
velkost fontu) hladane slovo.
Skusil som pouzit RichEdit ale nejako sa mi nedari.
Kto to riesil poslite mi HINT prosim !!!
Vdaka.
Jan Grman
janog(zv)pluto.elf.stuba.sk
TStrings Names a Values
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 20.9.2001 17:58:04
Memo.AddObject('blabla', Pointer(15));
a pak
Integer(Memo.Lines.Objects[1]);
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================> > Memo.AddObject('blabla', TObject(15));
> >
>
> Zkusil jsem to a pak jsem k tomu pristupoval
> Byte(Memo.Lines.Objects[1])
> a 15 zpatky nedostanu, ale vrati to nulu.
> Je urcite v poradku kontrukce - TObject(15) ?Jazyky a staty
[*] Ji�� Havelka����*���zY�W�#�� - 20.9.2001 18:02:46
> Kde by som nasiel ak existuje, nieco ako standardne oznacenie kodov
jazykov
> a statov.
http://www.w3.org/WAI/ER/IG/ert/iso639.htm
> Oznacuje sa to ako ISO norma ?
a norma je ISO 639
S pozdravem Jiri Havelka
TStrings Names a Values
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 20.9.2001 18:19:52
> > Memo.AddObject('blabla', TObject(15));
>
> Zkusil jsem to a pak jsem k tomu pristupoval
> Byte(Memo.Lines.Objects[1])
> a 15 zpatky nedostanu, ale vrati to nulu.
> Je urcite v poradku kontrukce - TObject(15) ?
zkus Integer(Memo.Lines..... obsluha udalosti v kode
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 20.9.2001 18:36:32
OnClose = MyClose;
procedure TForm1.MyClose(...);
begin
// kod ktery se ma vykonat
end;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> -----Original Message-----
> From: jarunek peter [mailto:oldiak(zv)yahoo.com]
> Subject: obsluha udalosti v kode
>
> pri dynamickom vytvarani objektu (popri nastaveni
> vlastnosti) chcem tomuto objektu priradit obsluhu
> udalosti onClose; ako to mam syntakticky zapisat?
>
> with <objekt> do
> begin
> //prop1 : ....
> .
> .
> .
> onClose ????Zvyraznenie slova !
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 20.9.2001 18:57:28
RaLibrary, ktera je ke stazeni na SuperPage obsahuje zvyraznovani. Deje se
tak pomoc� syntaxe html.
V unite RAUtils je napriklad procedura ItemHtDravEx, ktera zajistuje
vykresleni zvyraznovaneho textu.
Ptak
> Ahoj.D5
>
> Mam jednoduchy retazec a nahradzam v nom nejaku cast (teda klasicke
> replace).
> Potrebujem ukazat ten retazec uzivatelovi a zvyraznit (farba, podklad,
> velkost fontu) hladane slovo.
> Skusil som pouzit RichEdit ale nejako sa mi nedari.
> Kto to riesil poslite mi HINT prosim !!!
>
> Vdaka.
> Jan Grman
> janog(zv)pluto.elf.stuba.sk
>
>
>Otevreni obrazku
[*] Michal Bachman <bachman(zv)wige-mic(tec)cz> - 20.9.2001 19:11:05
Sorry, ale jsem naprostej amater, pise mi to " Undeclared identifier:
'ShellExecute' ". CO MAM DELAT???
Diky moc
Majkl
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 20, 2001 12:26 PM
Subject: Re: Otevreni obrazku
> ShellExecute(Application.Handle, 'open', PChar('obrazek'), '', '',
SW_SHOWNORMAL);
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 20.9.2001 Michal Bachman:
> > potreboval bych radu, jak otevrit obrazek, na ktery znam cestu, v
defaultnim
> > prohlizeci uzivatele.obsluha udalosti v kode
[*] Marek Agh <magh(zv)risouluxw.risoul(tec)com.mx> - 20.9.2001 12:18:18 -0500
> OnClose = MyClose;
>
> procedure TForm1.MyClose(...);
> begin
> // kod ktery se ma vykonat
> end;
>
A procedure MyClose musi mat tie iste parametre, ako normalny OnClose (ktore
to su, sa dozvies, ak si pozries prislusnyNotifyEvent - klikni na prislusny
On... v object inspectore a F1 )Otevreni obrazku
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.9.2001 20:00:38
Je treba pridat ShellApi do sekce Uses
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
20.9.2001 Michal Bachman:
> Sorry, ale jsem naprostej amater, pise mi to " Undeclared identifier:
> 'ShellExecute' ". CO MAM DELAT???
> Diky moc
> Majkl
> ----- Original Message -----
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, September 20, 2001 12:26 PM
> Subject: Re: Otevreni obrazku
>> ShellExecute(Application.Handle, 'open', PChar('obrazek'), '', '',
> SW_SHOWNORMAL);
>>
>> ------
>> ing. Jan Fiala
>> mailto:jan.fiala(zv)iol(tec)cz
>>
>> 20.9.2001 Michal Bachman:
>> > potreboval bych radu, jak otevrit obrazek, na ktery znam cestu, v
> defaultnim
>> > prohlizeci uzivatele.TStrings Names a Values
[*] Zden�k Sv�en - 20.9.2001 20:01:45
Tak tohle nefunguje, Integer(Memo.Lines.Objects[1]) vraci nulu.
Nejaky jiny napad?
> Memo.AddObject('blabla', Pointer(15));
> a pak
> Integer(Memo.Lines.Objects[1]);
> TStrings Names a Values
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 20.9.2001 20:09:19
> Tak tohle nefunguje, Integer(Memo.Lines.Objects[1]) vraci nulu.
> Nejaky jiny napad?
No podle me dvojice
Memo.Lines.AddObject('blabla', TObject(15));
Integer(Memo.Lines.Objects[x]);
fungovat musi.... ja to pouzivam bezne.... ale na hledani prikladu nemam cas
:(
Napad je naprosto v poradku, chyba je nekde mezi klavesnici a zidli (nevim
jestli u me nebo tebe)....
Ales
ParamStr(1)=LowerCase('-backup')
[*] Milan ��ek - 20.9.2001 20:12:26
> Toto by uz malo:
> Application.Initialize;
> if LowerCase(ParamStr(1))='-backup' then
> Application.CreateForm(TClientForm,ClientForm)
> else
> Application.CreateForm(TInstallForm,InstallForm);
> Application.Run;
>
> S pozdravom
> Roland Turcan
Jo diky, uz sem na to prisel ;-). V tom ale problem neni. Jakmile je tam
else, tak to vubec nejde prelozit. Rekl bych ze pak Delphi nevemou ani jeden
form jako startovaci...
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Otevreni obrazku
[*] Milan C�zek - 20.9.2001 20:45:44
> Sorry, ale jsem naprostej amater, pise mi to " Undeclared identifier:
> 'ShellExecute' ". CO MAM DELAT???
ahoj,
do uses pripis ShellAPI.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Konverze v RichEdit
[*] Jaskin <jaskin(zv)seznam(tec)cz> - 20.9.2001 23:04:38
Zdravim,
nemate nekdo priklad jak napsat konverzni metodu pro TRichEdit ?
jde mi o tyto dve:
TConversion.ConvertWriteStream a TConversion.ConvertReadStream
mam v tom zmatek a v helpu toho moc neni... :(
diky Jaskin
TIBTransaction.AutoStopAction - IBX 4.62
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.9.2001 06:53:56
> Dobre ale ak som vykonaval len select, t.j. neprislo v
> transakcii k zmene je
> vyhodnejsie pouzit COMMIT alebo ROLLBACK ?
COMMIT, nebot ma vyrazne nizsi rezii nez ROLLBACK.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Sinea - print dialog
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 21.9.2001 06:53:00
Muj problem: lze nejak omezit vyber tiskaren v dialogu Sinea ? Jde
o toto: v programu vim, ze urcita instalovana tiskarna neni
pouzitelna pro tisk urcite sestavy. A potrebuji vyradit tuto tiskarnu z
nabidky tiskaren Sinea. Dik.
Z.Kalhous
IB6: vracene hodnoty select procedur
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 21.9.2001 06:58:35
Lze nejak rozumne v IB6 (treba i pres Delphi) zjistit jake polozky
vraci select procedura? Totez pro view. Z hlediska klienta se select
procedury a pohledy (az na "drobnosti") jevi jako tabulky, ale
zatimco pro fyzickou tabulku zjistim jeji atributy snadno z
RDB$RALATION_FIELDS, u pohledu a procedur zatim nevidim
jinou cestu nez vyzobavat to z ulozenych metadat.
Z.Kalhous
IB6: vracene hodnoty select procedur
[*] Radek Zhasil <radek.zhasil(zv)vitkovice(tec)cz> - 21.9.2001 07:44:37
u procedur v sys.tabulce RDB$PROCEDURE_PARAMETERS
u tabulek a pohledu RDB$RELATION_FIELDS
e-mail: radek.zhasil(zv)seznam(tec)cz
http://www.mujweb(tec)cz/pocitace/radek.zhasil/
> Subject: IB6: vracene hodnoty select procedur
>
>
> Lze nejak rozumne v IB6 (treba i pres Delphi) zjistit jake polozky
> vraci select procedura? Totez pro view. Z hlediska klienta se select
> procedury a pohledy (az na "drobnosti") jevi jako tabulky, ale
> zatimco pro fyzickou tabulku zjistim jeji atributy snadno z
> RDB$RALATION_FIELDS, u pohledu a procedur zatim nevidim
> jinou cestu nez vyzobavat to z ulozenych metadat.
> Z.Kalhous
Jazyky a staty
[*] dphi_forum(zv)proces.sk - 21.9.2001 07:46:57
Jazykove kody urcuje norma ISO 639.
NORO.Beep pres speaker
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 21.9.2001 07:51:57
> potreboval bych pouzit nejakou proceduru jako beep, kde bych mohl
> zadat frekvenci a duration. Ton by se prehral pomoci speakeru
To uz tady dlouho nebylo :-)
Procedure PCSpeakerBeep( Frequency, Duration: Integer );
Begin
If Win32Platform = VER_PLATFORM_WIN32_NT Then
Windows.Beep( Frequency, Duration )
Else
Asm MOV ECX, Frequency
JCXZ (zv)(zv)2
MOV EAX, 1193181
CDQ
IDIV ECX
MOV ECX, EAX
IN AL, ($61)
TEST AL, $03
JNZ (zv)(zv)1
OR AL, $03
OUT ($61), AL
MOV AL, $B6
OUT ($43), AL
(zv)(zv)1: MOV AL, CL
OUT ($42), AL
MOV AL, CH
OUT ($42), AL
PUSH Duration
CALL Windows.Sleep
(zv)(zv)2: IN AL, ($61)
AND AL, $FC
OUT ($61), AL
End;
End;IB: padani IBserveru - connection lost
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 21.9.2001 07:58:30
Ahoj,
pokud mi bezi IBServer na Windows 98 tak pri CREATE PROCEDURE mi u nekterych
procedur spadne - zcela pravidelne. Pokud vsak bezi na WinNT nebo Win2000
tak STEJNA procedura projde bez problemu a samozrejme i funguje.
Nevite nekdo, jakym smerem se ubirat?
Zda se mi, ze zminene procedury maji ponekud chaoticke odkazovani na
sloupce, jeste to zkusim, ale proc to na Win2000 projde?
Potrebuju, aby to bezelo i jako desktop aplikace, takze nemuzu vnutit
Win2000.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
Beep pres speaker
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 21.9.2001 08:00:51
Ahoj,
na to existuje njaka unita bleeper nebo tak neco a videl jsem ji na
torry.net
Ka.
> potreboval bych pouzit nejakou proceduru jako beep, kde bych mohl
> zadat frekvenci a duration. Ton by se prehral pomoci speakeru
> nebo zvukovky. Standardni funkce beep tyto parametry ignoruje a
> automaticky prehraje zvuk "hvezdicka". Jak muzu pinout treba
> 440Hz (komorni A)?
Sprava tisku
[*] Martin Vlk <mavlk(zv)helpforest(tec)cz> - 21.9.2001 08:01:21
Ahoj,
potrebuji monitorovat a ovladat veskere tiskove ulohy na urcite tiskarne a
to
nasledujicim zpusobem :
Pri vytvoreni nove tiskove ulohy bych potreboval zjistit pocet stranek ktere
se maji
vytisknout a pri splneni urcitych podminek (danych mym programem) tisk
povolit.
Pokud podminky splneny nejsou potrebuji danou tiskovou ulohu pozastavit,
zobrazit uzivateli informaci aby tyto podminky splnil a pote tisk povolit
nebo
zrusit (podle reakce uzivatele).
Nasel jsem funkce FindXXXPrinterChangeNotification a dalsi ovsem pomoci
nich jsem schopen tisk POUZE monitorovat, ale jiz ne ovladat.
Dale jsem se dival na funkce pro praci s Joby (AddJob, GetJob, SetJob)
pomoci
kterych se daji ovladat jednotlive tiskove ulohy, ale nepodarilo se me to
zkloubit
dohromady. Vzdy se zacalo ihned tisknout takze se s tim uz nedalo nic delat.
Nevite nekdo jak to spolehlive rozchodit ?
S pozdravem
Martin VLK
padani IBserveru - connection lost
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.9.2001 08:10:17
ja mel podobny problem, pokuid jsem mel v ladene uloze otevrene
pripojeni a treba z konzole jsem spustil script na vytvoreni DB a byly v
nem zmeny oproti predchozi verzi DB. ja vim, ze by k tomu nemelo
dochazet (ke zmenam DB behem vyvoje klientske aplikce), ale priznejme
si, ze jsem podcenil analyzu ;).
takze, pokud delas create nebo alter, tak si uzavri veskere ostatni
connection na DB a navic si dej bacha na komponenty, kde mas nacteny
pole z tabulek a procedur.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Dbf
[*] prajz.rumcajs(zv)quick(tec)cz - 21.9.2001 8:15:56
Zdravim ve spolek,
chci se zeptat vsech, kdo pouzivaji komponentu TDbf:
Stalo se vam nekdy, ze se po case databaze "zmrsila", tj. v poslednich
radcich se objevila chyba a soubor uz nesel nacist.
Popripade, poradte nejakou jinou komponentu pro ovladani databazi bez
pouziti BDE ci jinych ovladacu.
S pozdravem a pranim statsneho dne bez Fatal erroru
OOOOO
OOOOO
OOOOOOO
(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
----------oOOO--(_)--OOOo------------------------------
Lukas Weiss receny Rumcajs
e-mail: rumcajs(zv)email(tec)cz
ooO
-------------( )--Ooo--------------------------------
\ ( ( )
\_) ) /
(_)Unita
[*] VASEK STEPAN <vaseks(zv)stp(tec)cz> - 21.9.2001 08:25:04
Ahoj vsem,
pros�m kolegy o pomoc reseni problemu .Jak provedu v Dephi 5
Prof.nasledujici:
mam Unitu1 ( Form1). Na ni odkaz na Unitu2 (Form2). Potrebuji smazat Unitu
2, tak aby unit1, byla zachovana a byla funkcni.
Dekuji
zdravi
Stepan Vasek
Interbase na W2000
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 21.9.2001 08:41:40
Kolega ma problem prosim zkuste nam poradit.
Dovolil si nainstalovat IB6 na W2000 s NTFS a pri pokusu o
pripojeni to pise unawailable database.
Zrejme je problem, ze IB nemam na ty databaze problem, ale on
uz nastavil pristup pro Everyone a porad nic.
Diky
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
ctecka carkoveho kodu
[*] Jan #ebesta <delcomseb(zv)volny(tec)cz> - 21.9.2001 08:49:30
Zdravim vsechny,
da se nejak odchytit vstup z ctecky (je zapojena jako vstup z klavesnice)
napr. v ActionList nebo OnKeyPress?
potrebuji rozlisit zda vstup z klavesnice nebo z ctecky.
Dik Jan Sebesta
Unita
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 21.9.2001 08:54:43
Ahoj,
Unitu2 i s formularem2 odstranis tak, ze das Remove file from project a
vyberes ji. V Unite1 proste smazes z odkazu uses nazev formulare2 a je to
hotove.
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================
-----Original Message-----
From: VASEK STEPAN [mailto:vaseks(zv)stp(tec)cz]
Sent: Friday, September 21, 2001 8:25 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: Unita
mam Unitu1 ( Form1). Na ni odkaz na Unitu2 (Form2). Potrebuji smazat Unitu
2, tak aby unit1, byla zachovana a byla funkcni.
TStrings Names a Values
[*] Zden�k Sv�en - 21.9.2001 08:56:27
Tak jsem to zkousel a zkousel a proste to nechodi, vraci to nil. Pak jsem
zkusil to same pro ComboBox a tam to FUNGUJE!
V helpu jsem nasel:
"If a descendant of TStrings does not support the Objects property, reading
this property returns nil."
Takze je mozny, ze property Objects neni komponentou TMemo podporovan?
Nebo jsi si naprosto jisty, ze ti to urcite s TMemo chodilo?
Z.S.> > Tak tohle nefunguje, Integer(Memo.Lines.Objects[1]) vraci nulu.
> > Nejaky jiny napad?
>
> No podle me dvojice
>
> Memo.Lines.AddObject('blabla', TObject(15));
> Integer(Memo.Lines.Objects[x]);
>
> fungovat musi.... ja to pouzivam bezne.... ale na hledani
> prikladu nemam cas
> :(
>
> Napad je naprosto v poradku, chyba je nekde mezi klavesnici a zidli (nevim
> jestli u me nebo tebe)....
>
> Ales
>TStrings Names a Values
[*] Ales Martinik <amartinik(zv)artbrno(tec)cz> - 21.9.2001 09:02:18
Kdyz byl Memo.Lines prazdny, tak po pridani prvni polozky samozrejme
Integer(Memo.Lines.Objects[0])> > Tak tohle nefunguje, Integer(Memo.Lines.Objects[1]) vraci nulu.
> > Nejaky jiny napad?
>
padani IBserveru - connection lost
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 21.9.2001 09:03:53
Ahoj,
uz jsem na to asi prisel. Zpusobuje to update gdsintl.dll (kvuli trideni
CH). Po nahrani stare verze to sice tridi spatne :-(, ale aspon to nepada.
Az budu mit chvilku zkusim se optat autora.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
Hledani tlf cisla v neformatovanem textu
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 21.9.2001 09:47:02
Ahoj,
potrebuji vyhledavat v neformatovanem textu tlf cisla. V textu jich muze byt
vice, nepouziva se zadne std formatovani. Mohou/nemuseji obsahovat
mezinarodni predvolbu a smerove cislo UTO, mohou to byt i mobilni cisla.
Vyhledavani nemusi byt stoprocentne ucinne, ale melo by byt co
nejspolehlivejsi (pokud se neco oznaci jako tlf cislo, nemelo by se prilis
casto stavat, ze to ve skutecnosti tlf cislo neni).
1. Existuje nejaky algoritmus, jak pri znalosti smeroveho cisla UTO urcit
pocet znaku cisla (alespon rozsah) ?
2. Pokud nekdo z ucastniku konference pouziva knihovnu RegExp a ma regular
expression(s) pro takove hledani, byl by ochoten jej zverejnit ?
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
TStrings Names a Values
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 21.9.2001 09:51:27
> Tak jsem to zkousel a zkousel a proste to nechodi, vraci to
> nil. Pak jsem
> zkusil to same pro ComboBox a tam to FUNGUJE!
> V helpu jsem nasel:
> "If a descendant of TStrings does not support the Objects
> property, reading
> this property returns nil."
> Takze je mozny, ze property Objects neni komponentou TMemo podporovan?
> Nebo jsi si naprosto jisty, ze ti to urcite s TMemo chodilo?
Ja to pouzivam vetsinou primo v TStringListu (TStrings) ktery sam vytvarim,
ale TStrings je pouzit jako obsah mnoha komponent, takze predpokladam ze to
pujde, help jsem necetl. Ale pokud to ma byt takovyhle seznam string-cislo,
nedaval bych to do Mema, ale spis do ListBoxu. U mema by mohl byt problem s
editaci a WordWrapem (mozna proto to nefunguje)...
Ales
Zvyraznenie slova !
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 21.9.2001 09:59:32
> Odes�latel: Jan Grman <janog(zv)pluto.elf.stuba.sk>
> Mam jednoduchy retazec a nahradzam v nom nejaku cast (teda klasicke
> replace).
> Potrebujem ukazat ten retazec uzivatelovi a zvyraznit (farba, podklad,
> velkost fontu) hladane slovo.
> Skusil som pouzit RichEdit ale nejako sa mi nedari.
RichEdit by to mel umet.
Nejprve slovo "oznacit": SelStart, SelLength
Pak dodat fontu prislusne atributy: SelAttributes.Color, Pitch, Style
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================ctecka carkoveho kodu
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 21.9.2001 10:04:31
> da se nejak odchytit vstup z ctecky (je zapojena jako vstup z klavesnice)
> napr. v ActionList nebo OnKeyPress?
> potrebuji rozlisit zda vstup z klavesnice nebo z ctecky.
Mnohe ctecky jdou nastavit tak, ze jako prvni znak poslou nejaky specialni
znak (zpravidla s kodem blizkym nule) a podle toho program pozna, ze
nasledujici znaky (treba po CRLF) prisly z ctecky. Ja osobne mam ale radsi
ctecky pres COM port.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
ctecka carkoveho kodu
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 21.9.2001 10:13:56
----- Original Message -----
From: "Jan �ebesta" <delcomseb(zv)volny(tec)cz>
> da se nejak odchytit vstup z ctecky (je zapojena jako vstup z klavesnice)
> napr. v ActionList nebo OnKeyPress?
> potrebuji rozlisit zda vstup z klavesnice nebo z ctecky.
Ahoj.
Kdysi jsem to delal.
Ctecka byla (nevim jak-bylo uz to dane) naprogramovana tak ze pred samotnym
kodem posilala kod klavesy ALT+S a po ukonceni ALT-E.
Tak jsem pouzil dve Action s prislusne nastavenymi ShortCuts a bylo to bez
potizi.
Ludek
Po WMEndSession se Windows neukonci
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 21.9.2001 10:19:40
> A opravdu tam nemas inet komponenty z rady NM (NMPOP3, NMSMTP apod.)?
>
> Mira Ondrisek
>
To tam sice nemam, ale mel jsem (cosi jsem testoval). Celkem nechapu
souvislosti, muzes mi to trochu bliz upresnit? Proc by to tyhle komponenty
mely delat?
Mohlo mi tam totiz po nich neco zustat, z uses jsem to vybagroval, ale dal
nevim.
Jeste lepe obecneji, co muze po probehnuti WMEndSession (tu obdrzim)
zabranit programu v ukonceni?
dik
Ota
ctecka carkoveho kodu
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 21.9.2001 10:20:08
> Zdravim vsechny,
>
> da se nejak odchytit vstup z ctecky (je zapojena jako vstup z klavesnice)
> napr. v ActionList nebo OnKeyPress?
> potrebuji rozlisit zda vstup z klavesnice nebo z ctecky.
>
> Dik Jan Sebesta
ahoj,
prave diky tomu, ze to je jako z klavesnice, tak to pujde odlisit asi
tezko. Jedine co me napada je ohlidat si, jak rychle se naplni treba
nejaky edit (jestli se znaky zadavaji v jakemsi stejnem intervalu,
atp.). Pokud je ta ctecka rychla, pak by stim nemel byt problem. Ale
je to takove fuj reseni.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/Async Professional
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 21.9.2001 10:38:13
Ahoj,
mam aplikaci postavenou na D4Std a AsyncProfessional 2.56. Vse fungovalo k
naproste spokojenosti na W95 i W98 ale s prechodem na W2000 prestala
komunikace fungovat. Pouzivam standardni komunikaci na RS485 s povolenym
RS485Mode a po odeslani prvniho bytu menim vzdy paritu z pMark na pSpace. HW
pocitace i linky je naprosto totozny.
Nevite v cem by mohl byt mezi W98 a W2000 rozdil?
Dik za kazdy napad. Jara.
svehla(zv)spelza(tec)cz
Cislo na pole bitu
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 21.9.2001 11:07:02
Zdravim ve spolek.
Potreboval bych prevest promennou BYTE na pole bitu. Existuje v Delphi
nejaka funkce nebo si musim to cislo do binarni hodnoty prevest sam a
naplnit to pole.
(chci to puzit jako flagy)
Diky za kazdou radu.tvorba komponent pomoci dll
[*] <konference_delphi(zv)centrum(tec)cz> - 21.9.2001 11:12:16
Pls. nevite nekdo, jak pomoci dll vytvorit na formular
komponentu? Ja to udelal takhle (snad to pisu spravne, pisu to z
hlavy, ale takhle nejak...)
------DLL:------
var
e:TEdit;
procedure CreateForm(x:TForm);stdcall;
begin
e:=TEdit.create(x);
e.parentfont:=false;
e.parent:=x;
end;
procedure DestroyForm(x:TForm);stdcall;
begin
e.free;
end;
----program-----
procedure TForm1.FormShow(Sender: TObject);
begin
CreateForm(self);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DestroyForm(self);
end;
------------
fungujeto jenom tehdy, pokud udelam jeste toto
procedure TForm1.FormShow(Sender: TObject);
var a:TButton;
begin
CreateForm(self);
a:=TButton.create(self);
a.parent:=self;
a.top:=-110;
{proste tam pridelam jeste jednu komponentu, ale tak, aby tam
nebyla videt}
end;
Thnx;
Bauglir
-----
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Cislo na pole bitu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.9.2001 11:22:11
----- Original Message -----
From: "L. Filip" <lfilip(zv)lekis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, September 21, 2001 11:07 AM
Subject: Cislo na pole bitu
> Zdravim ve spolek.
> Potreboval bych prevest promennou BYTE na pole bitu. Existuje v
Delphi
> nejaka funkce nebo si musim to cislo do binarni hodnoty prevest sam
a
> naplnit to pole.
neco jako pole bitu delphi nezna. Cili to muzes prevest na pole
Booleanu (nebo obalit funkci, ktera prez index bude maskovat prislusne
bity) nebo lepe maskovat bity pomoci AND ci pretypovat zdrojovou
promennou na Set of flags.
D. Toman