Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zjisteni hodnoty z akt. TDBEditu
[*] Tom� Br�dle������i�^����? - 9.3.2000 17:03:39
Zdravim,
myslim, ze Tvuj problem je v tom, ze Sender neni ten DBEdit, aleSpeedButton,
ktery stisknes.
Tomas
-----P�vodn� zpr�va-----
Od: Jiri Toman <toman(zv)plbohnice(tec)cz>
>
>Jeste jednou prosim o radu pokud jste nokdo neco podobneho resil.
>Priklad programu.
>
>procedure TForm1.TLDoplnClick(Sender: TObject); // po stisknuti
SpeedButtonu
>
>var
> hodnota: String;
>begin
>posled.SetFocus; // nastavim se na
>posledne editovany TDBEdit
>hodnota:=(Sender as TDBEdit).Text; // chci zjistit hodnotu v
>TDBEditu - NEFUNGUJE
>selectNext(activeControl,True,True); // prejdu na nasledujici v
>poradi TDBEdit
>showmessage((screen.activecontrol).Name); //pro kontrolu vypise jmeno
>TDBEditu
>Table1.FieldByName((Sender as TDBEdit).FieldName).AsString:=hodnota;
>//hodnotu zapisu do aktualniho TDBEditu -NEFUNGUJE
>..........
>.........
>Pokud dosadim do prg. konkretni jmena TDBEditu (DBEdit1, DBEdit2 ) vse
chodi v
>pohode
>ja, ale potrebuji to delat obecne. Protoze nevim na jakym TDBEditu uzivatel
>bude.
>
>TIBdataset versus TIBQuery
[*] rotursoft(zv)nextra.sk - 9.3.2000 16:11:08 gmt
> Haj hou!
>
> V rychlosti interakce s IB serverem ne, ale ve stylu prace s daty
je rozdil
> znacny. TIBDataset je jednoznacne lepe pouzitelny.
>
Ale TIBDataset nema Params , myslim ze to je tazkopadnejsie ako
TIBQuery.
> Hodne zdaru
>
> Pavel Cisar
> Borland s.r.o.
> pcisar(zv)inprise(tec)cz
>
> ----- Original Message -----
> From: "Roland Tur�an (RoTurSoft)" <rotursoft(zv)nextra.sk>
> To: "Delphi CZ konferencia" <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, March 08, 2000 11:04 PM
> Subject: TIBdataset versus TIBQuery
>
>
> > Zdravim.
> >
> > Je rozdiel v rychlosti spracovania medzi IBDataset a IBQuery a
aky ?
> >
> > Hi. Roland.
> >
>
>
--
100% recycled eMails send via http://webmail.nextra.sk.
Zmena struktury DB suboru
[*] L. ZITA <konference(zv)sales(tec)cz> - 9.3.2000 17:23:02
Behalf Of Radovan Popovi�
>nevie nahodou niekto ako je mozne programovo zmenit struktutu DB suboru?
>Mam paradoxovu tabulku naplnenu udajmi a potreboval by som pridat dalsi
>stlpec, prip. zmenit velkost nejakeho stlpca.Zatial to robim tak, ze
>pomocou TBatchMove presypem data do prazdnej tabulky s novou strukturou.
>Problem vznika, ak db obsahuje stlpec Autoinc. Vtedy pred spustenim
>batchmove otvorim subor (OpenFile), binarne zmenim typ Autoinc na LongInt,
>presypem data a potom vratim spat typ na Autoinc (cez OpenFile +
WriteFile).
>Exisuje nejaky "normalny" sposob, ako zachovat hodnoty v Autoinc stlpci?
Pouzit Query a
ALTER TABLE table_reference DROP [COLUMN] column_reference | ADD [COLUMN]
column_reference [,reference DROP [COLUMN] column_reference | ADD [COLUMN]
column_reference...]
Ludek ZITA
IPX, Novell, Novell Libs for Delphi
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 9.3.2000 17:42:19
Zdravim,
asi sa budem opakovat. Ale potreboval by som nejaku kniznicu (napr. ako
pascalovska Ipx.pas) na pracu s protokolom IPX. Super by bolo aj s popisom.
(v sietach som zaciatcnik, teda nielen vnich).
A vedel by mi niekto ozrejmit, preco neexistuje help k Novell Libs for
Delphi. neviem ani vypisat prihlasenych uzivatelov.
Totiz robim program chat (uz som tu pisal o tom), taku obdobu chat.exe z NT,
alebo talk z Unixu, VMS, atd. lenze pre Novell. Proste paralelna on-line
komunikacia medzi dvomi uzivatelmi. Ide o to, ze su dva Tmemo zoradene vo
vert. smere. Horne okno je okno pisuceho, a dolne okno je protivnika. Po
stlaceni klavesy sa posle paket na protivnika a jemu sa to objavi v dolnej
casti a naopak.
Dik za kazde nakopnutie.
Miso
OT: neduste n�s - neduste internet!
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 9.3.2000 18:06:13
>Pozor!
>v MF Dnes sice napsali: "Necel�ch p�t set korun u� dnes sta�� n�kter�m
>p��znivc�m internetu k tomu, aby u po��ta�e mohli tr�vit �ty�iadvacet
>hodin denn� po cel� m�s�c."
>To je sice pravda ale pouze v pripade, ze jste sice trvale pripojeni
>ale neprenasite data. Dattel si totiz nechava platit za prenesena data,
>viz http://www.dattelkabel(tec)cz/mistral/nabidka_sluzeb.html
>
>A tato sluzba mi pripada dost draha.
>Kdyz si predstavim, ze stahuji 1 MB na dattelu, zaplatim za to v rezimu
>Standard 9,90,- Kc. oproti tomu pres Volny, kdyz mi jede rychlosti
>4 kB/s to zvladnu zhruba za 250 s, coz je 4 minuty tedy pul impulsu az
>necele
>dva impulsy. tedy nekolikanasobne levnejsi.
>Jenomze Dattel s prenesenymi daty zlevnuje, coz u dialupu nehrozi, ale
>napriklad
>o vikendu lze touto rychlosti za 1 impuls stahnout az tri MB, tedy 2.50
>oproti 10,20 Kc. Takze srovnani jejich nejlevnejsich tarifu vychazi
>ctyrikrat levneji telecom.
>Jeste dam jejich cenik u sluzby standard tak jak jsem ho vykopiroval:
Aaaa, prepac, ale omyl!!! Od nedavna Dattelkabel pri pripojeni rychlostou 64
kb/s s predlpatenim na 3 mesiace uctuje 998,- Kc bez obmedzenia MB (No
obmedzenie je iba 64kb/s * pocet sekund stravenych u intentetu.). Takze byt
cely mesiac, 24 hodin denne na Netu za 433,- Kc to je uz asi dobre nie?
Obmedzenie na MB to bolo kedysi, asi tak 2 tyzdne dozadu myslim. Skratka uz
to neplati. A cerstvi cenik je tu.: (viz niz)
Bohuzial, ide iba o ludi, ktory maju pripojenie na kabel.(Aktivacia je
2,500) prenajom modemu na 1 mesiac je 99,- Kc
A pre narocnych je moznost 128, 256, alebo rychlost bez obmedzenia, ale ta
je za 9999,-
Podrobnejsie info:
http://www.dattelkabel(tec)cz/mistral/ceniky.html
btw: Ale uz to je asi OT, aj ked asi uzitocny, ale aby sa spravcovia
nehnevali, tak .... :-))))
S pozdravom
Pavol Kaka�ka
paka(zv)aktis(tec)cz
DeviceID u CDROMek
[*] Honza <delphi(zv)mis-net(tec)cz> - 9.3.2000 19:01:31
Ahoj
v PC m�m 2 CD-ROMky a marne se snaz�m zjistit jednotlive DeviceID
Prosim nevite nekdo jak se toho dopatrat?
D3 W98 (nutnost funkce i na NT)
Predem diky
..............Honza
PS : funkcemi GetLogicalDriveStrings ani GetDriveType jsem to nezjistil
Zjisteni hodnoty z akt. TDBEditu
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 9.3.2000 19:13:11
Zkousel jsem to v D3 a sender je TSpeedButton. Neni to ten problem ?
MS
> Jeste jednou prosim o radu pokud jste nokdo neco podobneho resil.
> Priklad programu.
>
> procedure TForm1.TLDoplnClick(Sender: TObject); // po stisknuti
> SpeedButtonu
>
> var
> hodnota: String;
> begin
> posled.SetFocus; //
> nastavim se na
> posledne editovany TDBEdit
> hodnota:=(Sender as TDBEdit).Text; // chci zjistit hodnotu v
> TDBEditu - NEFUNGUJE
> selectNext(activeControl,True,True); // prejdu na
> nasledujici v
> poradi TDBEdit
> showmessage((screen.activecontrol).Name); //pro kontrolu vypise jmeno
> TDBEditu
> Table1.FieldByName((Sender as TDBEdit).FieldName).AsString:=hodnota;
> //hodnotu zapisu do aktualniho TDBEditu -NEFUNGUJE
> ..........
> .........
> Pokud dosadim do prg. konkretni jmena TDBEditu (DBEdit1, DBEdit2
> ) vse chodi v
> pohode
> ja, ale potrebuji to delat obecne. Protoze nevim na jakym
> TDBEditu uzivatel
> bude.
> Jak najit chybu?
[*] Cibulka Karel <k.cibulka(zv)sh.cvut(tec)cz> - 9.3.2000 21:02:59
Ahoj,
z tohohle se moc poradit neda, ale mohl by jsi to zkusit z MemProofu:
http://www.totalqa.com/download/index.htm
K.
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 09, 2000 10:22 AM
Subject: Jak najit chybu?> Ahoj,
>
> mam problem, jak najit chybu (kterou hledam uz cele mesice).
>
> Aplikaci (D2) otevru a zavru (nic vic).
> V poradku probehne OnCreate i OnDestroy formulare (kdyz to ladim, neni v
> nich obvykle nic).
>
> Program pak zahlasi Access Violation (na porad stejne adrese, ktera vede
do
> unity Controls):
>
> procedure TWinControl.DestroyHandle;
> var
> I: Integer;
> begin
> if FHandle <> 0 then
> begin
> if FWinControls <> nil then
> for I := 0 to FWinControls.Count - 1 do
> TWinControl(FWinControls[I]).DestroyHandle; <= zde to zahlasi
chybu
> Access Violation
> DestroyWnd;
> end;
> end;
>
> Program ale pokracuje dal, aplikace se normalne ukonci. Jedinou veci je
> rusiva hlaska o chybe.
> Moje otazka zni: Jak zjistim cim je to zpusobeno? Nebo jak to hledat?
> Uz jsem s tim stravil mnoho mesicu, aplikaci jsem i prepsal ale zrejme je
to
> problem nejakeho komponentu, ktery je pro aplikaci nezbytny (je jich asi
> 45). Naposledy jsem to celou noc ladil, seznamil jsem se s hromadami (mi
nic
> nerikajicich) veci, ale k nejakemu vysledku jsem nedospel. Je to v Delphi
2
> a bezi to na W95/98.
>
> Dekuji za pripadne rady a namety, prominte zoufalemu chybujicimu...
>
> Jaro B.tcp/ip
[*] Ondra Krajsa <KRAJSA(zv)mail.jakub.hiedu(tec)cz> - 10.3.2000 07:17:10
Nazdar,
nevite nekdo jak v Delphi4 zjistit aktualni dobu pouzivani tcp/ip
nebo winsocku. Potrebuju to ke kontrole doby pripojeni
k internetu.Nejde to zjistit nejak jinak?
dik.
Ondra Krajsa
Otevreny existujici soubor v Excelu
[*] Hlinka Jan <Hlinka(zv)dcomm(tec)cz> - 9.3.2000 21:18:00
Ahoj, diky za radu...
Mam tu dalsi problemek....
po otevreni
ExcelOle.WorkBooks.Open(ExcelFileName);
zjistim meno aktualniho listu
var S:Variant;
s:= ExcelOle.ActiveSheet.Name;
to facha, lec pri odkazu na bunku mi to pada
var x: string; (v bunkach jsou jenom stringy, zkousel jsem dat i x jako
variant ale bez uspechu)
x:= ExcelOle.Worksheets(s).Cells(1,1).Value;
Bohuzel nemuzeme pochopit (sedime tu 2 :o))))) proc nefunguje napr.
x:= ExcelOle.Workbooks.Worksheets(s).Cells(1,1).Value;
i kdyz Worksheets je v pavouku objektu pod Workbooks...
Diky za odpovedi
Hippy
P.S. Existuje nekde (u nekoho) tabulka ci popis stylu vlevo jak to vypada v
Basicu a vpravo je uveden prepis v Delphi....???Interbase, BDE a CHARSET
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.3.2000 12:34:42 -0800
A jak jsi zalozil databazi?
Musis pouzit klauzuli
DEFAULT CHARACTER SET
Jaro
>
>
> Zkousel jsem (a rozvnez PDX ANSI Czech) a neuspel... Kde jeste muze byt
> chyba?
>
> Honza
>
> > FOXPro win 1250 nastavit v BDE a bude to OK.
> >
> > Slavek
> >
> > poradte zoufalci, jak nastavit CHARSET CODEPAGE pri pripojovani se k
> > Interbasi (5.6) skrze BDE (5.1.1)?
> > Pouzivam D4 C/S.
> >
> > Mam nastavenou kodovou stranku pro databasi jako WIN1250 a kdyz chci
> poslat
> > nejaka data s hackami a carkami,
> > tak mi to hlasi chybu.
> >
> > predem diky,
> >
> > Honza
> >
> Cisteni diskety
[*] Lud�k P�ral - 9.3.2000 21:57:15
Neviprosim nekdo, jak vycistit v D3 disketu (jedna se mi o smazani vsech souboru pro zalohovani)
Predem dekuji
ludek.paral(zv)telecom(tec)cz
IB: Error reading data from connection.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 9.3.2000 22:19:27
Zdravim.
Pocas citanie udajov po chvili napojeni na IB mi vypise "Error reading data
from connection.", a viac sa so mnou nebavi. Musim ukoncit moju applikaciu a
spustit ju znova.
Preco?
Hi. Roland
kopie obrazovky pod formularem
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 9.3.2000 22:41:00
Hello Milos!
> do TBitmap nebo neceho jineho) "pod" formularem, tj. vyrez obrazovky pod
> formularem,jako by tam ten formular nebyl. Potrebuji to pro realizaci
> polopruhledneho formulare ...
Hladaj v archive tejto konferencie spravu z 2.1.2000 s predmetom Transparent
form
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Otvirani existujiciho souboru v Excelu
[*] Hurricane <hurricane(zv)iol(tec)cz> - 9.3.2000 22:41:46
Zdravim
> potrebuji otevrit existuji xls soubor jehoz jmeno si nactu z
OpenDialogu...
> zkousim to takto:
a proc na to nepouzijes klasicky ShellExecute? Automticky to pouzije
program, ktery je asociovany k XLS, tedy Excel.
Hurricane
Ubyvani systemovych zdroju v TListView.OnCustomDra
[*] Tom� Br�dle������i�^����? - 9.3.2000 22:55:01
Zdravim vsechny,
mam pro Vas vsechny zahadu, na kterou jsem prisel vylucovaci metodou a nevim
jak vznikla. (Delphi 5)
v udalostni metode OnCustomDrawItem chci podle ImageIndex zvolit barvu pisma
nasledujicim zpusobem:
procedure TfrAdoTETabProps.alvColsCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
const clr: array[1..2] of TColor = (clNavy, clMaroon);
var c: integer;
begin
c:=item.ImageIndex;
if c > 0 then sender.canvas.Font.Color:=clr[c];
end;
Kdyz zmenim velikost okna (nasleduje samozrejme prekresleni vcetne volani
OnCustomDrawItem) dochazi k ubytku systemovych zdroju (ty se uvolni s
ukoncenim aplikace). Kdyz radek s if vyhodim, je vsechno OK.
Nevi nekdo cim to muze byt ?
predem diky
Tomas
t.bradle(zv)pvtnet(tec)cz
TDataset.Refresh
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 9.3.2000 22:58:47
Hello All!
> smaze. Ted strelim od boku - nepomohlo by treba obcas
> Database.Close? (tj. metoda nikoli komponenty Query, ale
> komponenty Database (jen zkusit, zda to ten soubor neodstrani)).
To by som musel zavriet aj dalsie 4 databazy, ale to uz si kvoli rychlosti
nemozem dovolit.
>> a co kdyby tvuj program po kazdem provedeni 'Open' provedl smaznuti
>> toho souboru?
To je vylucene uplne. Ja ju len monitorujem, ale dalsi siesti na sieti
sem-tam niektory zaznam updatnu. Inak ide len o niekolko desiatok zaznamov,
cela databaza ma okolo 8kB.
> problem s narustanim PDOXUSRS.LCK jsem uspesne odstranil nastavenim
>
> Session.PrivateDir := 'C:\WINDOWS\TEMP';
>
> (jiny adresar nez jsou data).
Data mam pochopitelne na serveri a PrivateDir na lokalnom tempe. To slovo
'session' mi ale vnuklo napad skusit na tuto databazu samostatnu session so
samostatnou PrivateDir.
v kazdom pripade vsetkym diky za snahu.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
IPX, Novell, Novell Libs for Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.3.2000 23:12:13
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
> asi sa budem opakovat. Ale potreboval by som nejaku kniznicu (napr. ako
> pascalovska Ipx.pas) na pracu s protokolom IPX. Super by bolo aj s popisom.
> (v sietach som zaciatcnik, teda nielen vnich).
Ahoj,
Neco takoveho je tady, komponenta TIPX (ipxunit.zip)
http://www.kobira.co.jp/sakura/d_net_lan.htm
Petr Vones, amatersky programator
TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.3.2000 23:12:17
From: Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz>
> jak zjistim u TTreeView kde je kurzor (napr. na ktery TNode uzivatel
> kliknul)?
Ahoj,
Podivej se na vlastnost TTreeView.Selected
Petr Vones, amatersky programator
Listview umisteni ikon
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.3.2000 23:12:22
From: DiGi <DiGi(zv)MujMail(tec)cz>
> potreboval bych umistit ikony v listview na libovolne misto (aby to
> vypadalo a CHOVALO jako Plocha)
> Nastaveni pomoci item.top a item.left mi to ignoruje,
> v TListView.IconOptions.Arrangement se da nastavit jen Top a Left..
Ahoj,
a mas nastaveno TListView.IconOptions.AutoArrange na False ?
Petr Vones, amatersky programator
OT: neduste n�s - neduste internet!
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.3.2000 23:13:38
From: Pavol Kaka�ka <paka(zv)aktis(tec)cz>
> Aaaa, prepac, ale omyl!!! Od nedavna Dattelkabel pri pripojeni rychlostou 64
> kb/s s predlpatenim na 3 mesiace uctuje 998,- Kc bez obmedzenia MB (No
DattelKabel vypadal pomerne rozume, dokud neprisel s touto nabidkou. Uvedene
parametry vypadaji pekne, jen kdyby to nebylo nabizeno tak strasne pod cenou.
Podle toho totiz bude vypadat i kvalita. Zkusenosti uzivatelu kteri od DK jiz
pripojeni maji si lze procist tady. Pokud povazuje ztratovost paketu do 20%
jako primerenou (!), tak co si lze o serioznosti nabidky DK asi myslet:
http://www.lupa(tec)cz/komentare/ukaz.php3?k_id=730
Pro srovnani, k VOL se bezne pripojuji na rychlosti 49333 (v idealnim pripade
i 52000), coz odpovida cca 5kB/s pri stahovani komprimovaneho souboru. K tomu
je nutne pripomenout, ze DattelKabel ma pomerne dost trapnou konektivitu do
Internetu, udajne jen 2M oproti napriklad VOLu se 122M. Samozrejme ze nelze
jednoduse vynasobit 64k poctem uzivatelu a dle toho posuzovat propustnost, ale
v tomto pripade je ten pomer uz dost vrazedny, navic kdyz se ma jeste jednat o
objemove neomezene pripojeni. Navic podle nekterych hlasu jde hlavne o trik s
navysenim hodnoty DattelKabelu pred jeho prodejem a ne o nabidku kvalitni sluzby
za rozumnou cenu. Je to skoda, Internet pres CATV je jinak technologicky velmi
dobre reseni, ktere by mohlo byt i financne prijatelne, jenze ...
Uz je to ale dost OT.
Petr Vones, amatersky programator
IB: request synchronization error
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 9.3.2000 23:16:06
Zdravim
Dalsia hlaska IB: "request synchronization error" ale na PC prevadzkojucom
lokalnu databazu.
Preco ?
Hi. Roland.Ubyvani systemovych zdroju v TListView.OnCustomDra
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.3.2000 23:18:52
From: Tom� Br�dle <t.bradle(zv)pvtnet(tec)cz>
> mam pro Vas vsechny zahadu, na kterou jsem prisel vylucovaci metodou a nevim
> jak vznikla. (Delphi 5)
>
> v udalostni metode OnCustomDrawItem chci podle ImageIndex zvolit barvu pisma
> nasledujicim zpusobem:
Ahoj,
Tohle je chyba ve VCL Delphi 5. Stahni si update pack#1, tam je to opraveno:
http://www.borland.com/devsupport/delphi/downloads
Petr Vones, amatersky programator
VCS 1.4
[*] Dalibor Honus <dhonus(zv)iname(tec)com> - 10.3.2000 06:06:54
Zmenil jsem jednotku a sdresar, kde mam ulozeny projekt. Bohuzel se mi pro
Check Out ukladaji soubory do stareho adresare. Poradte, prosim, korektni
postup, jak zmenit adresar Pro Check Out. V Project manageru VCS se
adresar zobrazuje spravne.
Diky za radu.
____________________________________________
Dalibor Honus
Foto Morava s.r.o.
kancelar : 0656 - 721 190 kl.45
mobil : 0602 - 591341
domu : 0656 - 802 835
e-mail : dhonus(zv)fotomorava(tec)cz (dhonus(zv)iname.com)
____________________________________________
Excel_tlb
[*] Dalibor Honus <dhonus(zv)iname(tec)com> - 10.3.2000 06:07:41
Pouzivam Unit Excel_tlb a mam nasledujici problem.
kdyz pouziju nasledujici property
sheet.cells.Item[radek+5,1+mesic].NumberFormat := '0.00%';
Tak mi to hlasi chybu
Nen� mozne nastavit vlastnost NumberFormat tridy Range.
Konfuigurace D4 Std., WIN98, MS Excel 97 SR-1
____________________________________________
Dalibor Honus
Foto Morava s.r.o.
kancelar : 0656 - 721 190 kl.45
mobil : 0602 - 591341
domu : 0656 - 802 835
e-mail : dhonus(zv)fotomorava(tec)cz (dhonus(zv)iname.com)
____________________________________________
Cisteni diskety
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.3.2000 06:10:23
Napadaji me dve moznosti :
1. pomoci FindFirst projet disketu a mazat jednotlive soubory a adresare
2. pomoci funkce SHFormatDrive quick formatem disketu vymazat
Jan Fiala
----- Original Message -----
From: Lud�k P�ral
Neviprosim nekdo, jak vycistit v D3 disketu (jedna se mi o smazani vsech souboru pro zalohovani)
Predem dekuji
ludek.paral(zv)telecom(tec)cz
Otevreny existujici soubor v Excelu
[*] Anton�n Novotn����j{h�)���Z��3 - 10.3.2000 07:31:52
Ahoj,
myslim, ze by tam melo byt jenom
x := ExcelOle.Cells[x, y]
Pokud ti muzu doporucit, tak cti pozorne napovedu k VB pro Excel, vsechno
tam je a je mozne to primo pouzit v Delphi.
Tonda
-----P�vodn� zpr�va-----
Od: Hlinka Jan <Hlinka(zv)dcomm(tec)cz>
Komu: 'Konference o Delphi' <delphi-l(zv)fwd(tec)cz>
Datum: 9. b�ezna 2000 22:16
P�edm�t: Otevreny existujici soubor v Excelu
> Ahoj, diky za radu...
>Mam tu dalsi problemek....
>po otevreni
>
>ExcelOle.WorkBooks.Open(ExcelFileName);
>
>zjistim meno aktualniho listu
>
>var S:Variant;
>s:= ExcelOle.ActiveSheet.Name;
>
>to facha, lec pri odkazu na bunku mi to pada
>
>var x: string; (v bunkach jsou jenom stringy, zkousel jsem dat i x jako
>variant ale bez uspechu)
>x:= ExcelOle.Worksheets(s).Cells(1,1).Value;
>
>Bohuzel nemuzeme pochopit (sedime tu 2 :o))))) proc nefunguje napr.
>
>x:= ExcelOle.Workbooks.Worksheets(s).Cells(1,1).Value;
>
>i kdyz Worksheets je v pavouku objektu pod Workbooks...
>
>Diky za odpovedi
>
> Hippy
>
>P.S. Existuje nekde (u nekoho) tabulka ci popis stylu vlevo jak to vypada v
>Basicu a vpravo je uveden prepis v Delphi....???
>Blikani pri prekreslovani
[*] jirpun(zv)post(tec)cz - 10.3.2000 07:49:07
Zdravim vas a mam takovy problem:
Situace:
- mam formular s komponentou Image1 : TImage zarovnanou na celou plochu formulare
- na Image1.Canvas je nakreslen jakysi obrazek metodami TCanvas
- na formulari jsou dale umisteny komponenty TLabel, TSpeedButton, TButton - jsou umisteny pred Image1, takze jsou videt
- v pravidelnych casovych intervalech, zhruba 10x za vterinu neco na Image1.Canvas nakreslim metodami TCanvas
Problem:
- pri kazdem prekresleni objekty (TLabel, TSpeedButton) umistene pred Image1 zablikaji
- objekty TButton a TStaticText neblikaji
- cili komponenty odvozene od TGraphicControl blikaji, komponenty odvozene od TWinControl neblikaji
- TLabel mohu nahradit TStaticText
- cim ale nahradit TSpeedButton (chci mit skupiny tlacitek s vlastnosti Down) ?
- nebo da se blikani nejak jinak zabranit ?
Nemam moc zkusenosti s grafikou v Delphi a budu vdecny za kazdou radu.
Jirka
Prohledavac, ktery Vam rozumi.
*** http://NAJDI.TO
Content-Type v konferenci
[*] Roman LISZKA <liszak(zv)usa(tec)net> - 10.3.2000 07:55:08
> <DIV><FONT face="Arial CE" size=2></FONT></DIV>
> <DIV> </DIV>
Vidim, ze s nastupem Microsoft Outlook Express 5.00.* (pravdepodobne se
jiz prodalo takove mnozstvi Win2000) jiz firma M$ odstranila posilani
priloh ale posila se vse primo jako HTML formatovany dokument, ale pro
jistotu v hlavicce je:
Content-Type: text/plain
coz ale znamena, ze zprava je TEXTOVA! A jako textova se urcite
zobrazuje i v jinych mailerech nez vyse zminovana verze Outlooku. A cist
se to poradne neda. Pokud to tedy jde nastavit, prenastavte si svuj
mailer, at neposila neco, co neodpovida RFC.
A otazka pro spravce, brojil jste proti priveskum mstnef (nebo jak se to
jmenovalo) a tohle Vam pripada v poradku?
--
Ing. Roman LISZKA
OLEDB - testy
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.3.2000 07:55:27
> > Ja jsem alespon pro ted s testy skoncil, protoze jsem pred chvili
> > dostal dostatek jine prace. Takze snad pozdeji, i kdyz by me to taky
> > zajimalo :)
>
> Pokud mas pripravenou databazi, snad by to nemuselo byt tak
> narocne. :-)
Dostal jsem ted dve zakazky s pomerne vrazednym terminem,
takze vse, co s tim primo nesouvisi, pro ted odsouvam. Ale jen
odsouvam, nikoli zahazuji. Ostatne, nekdo jiny se toho treba chopi
driv :)
David
task bar
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 10.3.2000 07:56:37
Ako sa da zakazat vykreslenie buttonu v task bare ked spustim program?
Mam komponentu (Trayicon) ktora mi vytvori iconu v v task bare vedla hodin,
ale na hlavnom task bare je stale zobrazene tlacidlo aktivneho programu.
Peto
Kde sehnat export filtry na QR2??
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 10.3.2000 08:03:44
Ja se pridam, jde nekde sehnat struktura PDF (asi i QR2 -> PDF) souboru.
Pavel ZIDEK
> Nevite nekdo nahodou, jak bych mohl sehnat filtry pro tisk do souboru pro
QuickReport2.0? Nejlepsi by bylo RTF nebo DOC.
> ---
> Filip Kinsky, student, amateur programmer :-))
>
> Angelfire for your free web-based e-mail. http://www.angelfire.com
>Vyborny programek KonfView, ale....
[*] Ing. Miroslav Ond��ek - 10.3.2000 08:08:13
Uz jsem to probiral s autory, pokud chcete vedet cokoliv o me
konfiguraci BDE apod., napiste mi na ondrisek(zv)atlas(tec)cz
Ja jsem to naplnil uplne v pohode - nejdrive 75MB s daty do 8/99 a pak
postupne zari 99 - unor 2000. Vse naprosto bez problemu. P133/64MB.
Mira
----- Original Message -----
From: Hlinka Jan <Hlinka(zv)dcomm(tec)cz>
To: 'Slavek Rydval' <rk(zv)atrey.karlin.mff.cuni(tec)cz>; 'Konference o Delphi'
<delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 09, 2000 3:10 PM
Subject: Vyborny programek KonfView, ale....> Ahoj,
> Pri zpracovani KonfView zahlasil (tusim okolo 7000-teho mailu)
preteceni...
> Trosku jsem projizdel Tve zdrojaky, lec potrebnou upravu jsem
nedokazal
> udelat. Pracujes na nejake aktualizaci abych mohl najednou zpracovat
tech
> cca 40MB? Nebo nedokaze mi nekdo poradit kde a jak mam zmenit zdrojovy
> soubor?
----- Original Message -----
From: Jiri Toman <toman(zv)plbohnice(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 09, 2000 4:47 PM
Subject: Re: Vyborny programek KonfView, ale....
Ahoj.
K te chvale se pripojuji. Mel jsem stejny problem. Kolem 5000 zaznamu se
to
zaseklo.
Pomohlo mi, az kdyz jsem si stahl od autora predem naplnenou DB. Asi
10Mb zip.
Pak uz to nacita v pohode.
Cau Jirka.
public beta IB6 pro Linux je tady
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 10.3.2000 08:22:30
http://www.interbase.com/open/news/linux60beta_pr.html
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
IB: Error reading data from connection.
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 10.3.2000 08:25:26
zrejme se prerusilo spojeni mezi klientem a serverem, koukni se, co mas v logu
na serveru
Roland Tur�an (RoTurSoft) wrote:
> Zdravim.
>
> Pocas citanie udajov po chvili napojeni na IB mi vypise "Error reading data
> from connection.", a viac sa so mnou nebavi. Musim ukoncit moju applikaciu a
> spustit ju znova.
>
> Preco?
>
> Hi. Roland
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Listview umisteni ikon
[*] DiGi <DiGi(zv)MujMail(tec)cz> - 10.3.2000 08:28:39
To je samozrejme :-)
Hlavni problem (i s tim SetPosition) je ten, ze pri OwnerData se
tyto parametry proste ignoruji... Kdyz svoje data nastoucham do
ItemsListu v ListView tak funguje aspon ten SetPosition
DiGi
--- DiGi(zv)MujMail(tec)cz ---------------------------------------------
-------------------------------------------- http://www.qr(tec)cz ---
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Thursday, March 09, 2000 11:12 PM
To: Konference Delphi
Subject: Re: Listview umisteni ikon
From: DiGi <DiGi(zv)MujMail(tec)cz>
> potreboval bych umistit ikony v listview na libovolne misto (aby to
> vypadalo a CHOVALO jako Plocha)
> Nastaveni pomoci item.top a item.left mi to ignoruje,
> v TListView.IconOptions.Arrangement se da nastavit jen Top a Left..
Ahoj,
a mas nastaveno TListView.IconOptions.AutoArrange na False ?
Petr Vones, amatersky programator
OLE DB a ORACLE8
[*] Robert Vanek <delphi(zv)dingo(tec)cz> - 10.3.2000 08:36:01
Zdravim vsechny,
pripojuji se na Oracle pres ADO pomoci OLE DB providera od ORACLU.
(Je to nejaka beta, ostry jsem jeste nenasel)
Vse funguje jak ma, ale jakmile pouziji SQL s volnou vazbou:
SELECT
TVyrobek.C_VYROBKU,
TVyrobek.NAZEV,
TVyrobek_Druh.NAZEV As DRUH_NAZEV,
TVyrobek.POZNAMKA
FROM
TVyrobek,
TVyrobek_Druh
WHERE
TVyrobek.DRUH = TVyrobek_Druh.ID(+)
Hodi to drzku: ORA-03106: Kriticka chyba komunikacniho protokolu Two task
Oracle je na NW a jsem spojen pres TCP/IP.
Nevim, kde muze byt krpa.
Co me nejvic nastvalo je, ze OLE DB provider od Microsoftu jede.
Diky
Robert Vanek
Jak zjistit, zda jde o notebook?
[*] DS-SOFT David Sauer <ds.soft(zv)atlas(tec)cz> - 10.3.2000 08:42:22
A co zjistit verzi BIOSu ? Stolni PC a notebooky maji jine verze.
Bud mit seznam verzi (to by ale znamenalo znacne zkoumani) nebo zjistit jak
se to da poznat obecne.
Vetsina BIOSu pri startu pise dlouhy retezec (vetsinou na posledni radce)
kde je zakodovano mnoho udaju o zakladni desce. Z tohoto by se mozna dalo
zjistit ma-li PCMCIA sloty a jestli ma podporu napajeni pres baterie.
David Sauer
Otevreny existujici soubor v Excelu
[*] Ren� Otisk - 10.3.2000 08:58:46
Hi,
Nejak matne si pamatuji, ze to nebere kulate ale hranate zavorky, ale je to
davno, takze je to bez zaruky. Vsak zkus a uvidis...
sroub
> Ahoj, diky za radu...
> Mam tu dalsi problemek....
> po otevreni
>
> ExcelOle.WorkBooks.Open(ExcelFileName);
>
> zjistim meno aktualniho listu
>
> var S:Variant;
> s:= ExcelOle.ActiveSheet.Name;
>
> to facha, lec pri odkazu na bunku mi to pada
>
> var x: string; (v bunkach jsou jenom stringy, zkousel jsem dat i x jako
> variant ale bez uspechu)
> x:= ExcelOle.Worksheets(s).Cells(1,1).Value;
>
> Bohuzel nemuzeme pochopit (sedime tu 2 :o))))) proc nefunguje napr.
>
> x:= ExcelOle.Workbooks.Worksheets(s).Cells(1,1).Value;
>
> i kdyz Worksheets je v pavouku objektu pod Workbooks...
>
> Diky za odpovedi
>
> Hippy
>
> P.S. Existuje nekde (u nekoho) tabulka ci popis stylu vlevo jak to vypada
v
> Basicu a vpravo je uveden prepis v Delphi....???Ikonky u RxMenu
[*] Ren� Otisk - 10.3.2000 08:59:44
Hi,
Presne to mas udelane v demo aplikaci RxLib, podle toho jsem to delal...
Sroub
> Zdravim
>
> Chtel bych mit menu i s ikonkama. Vim, ze to umi RxMenu, ale do ted
> semnezjistil, jak se to dela. Na Form sem si dal ImageList, nahral sem do
> nej ikonky. U RxMenu sem nastavil Images na ImageList 1. (vcelku logicke)
> Ale nikde sem nenasel, neco jako ImageIndex, proste nevim,kde si mam
> nastavit, jaka ikonka se zobrazi. V demu jim to funguje, ale me ne. Nevite
> kde delam chybu?
> ----------------------------------
> Hurricane
> hurricane(zv)iol(tec)cz
> http://web.telecom(tec)cz/LUNASoft
InterBase 6.0 for Linux
[*] Pavel Cisar \(Inprise CZ\) <pcb(zv)atlas(tec)cz> - 10.3.2000 08:59:07
Haj hou!
Public beta InterBase 6.0 pro Linux (zatim bez zdroju) je k mani na
http://www.interbase.com a www.interbase2000.org pripadne na
ftp://delphi-jedi.org
Klient pro Windows je tam take.
Zaroven byly zverejneny newsgropy na forums.inprise.com ktere se tykaly IB6
(codename KINOBI).
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
Pretypovani objektu v zavislosti na jeho typu
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 10.3.2000 09:01:33
Zdravim vsechny
Mam nasledujici problem. V procedure potrebuju pretypovat objekt v zavislosti na jeho typu. Zatim to resim nasledujicim zpusobem
procedure Jmeno(Sender : TForm)
begin
if Sender is TFormChild1 then
with Sender as TFormChild1 do
kod;
else Sender is TFormChild2 then
with Sender as TFormChild2
stejny kod;
end;
ale zda se mi zbytecny opakovat stejny kod dvakrat. Nevi nekdo jak to vyresit lepe?
Diky za kazdy napad Ales
Cisteni diskety
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 10.3.2000 09:05:52
Treba takto:
Procedure KillDirectory(Directory: String; Remove: Boolean);
{ Vymaze obsah adresare vcetne podadresaru. Pokud Remove=true, zrusi i adresar Directory }
const
AnyFileButDir = faAnyFile and (not faDirectory) and (not faVolumeID);
procedure KillSubDirs(Const baseDir: String); // Base dir ma backslash
var SavedDir : String;
Srec : tSearchRec;
aDosError: Integer;
begin
aDosError := FindFirst(BaseDir+'*.*',faDirectory,Srec);
Try
While aDosError = 0 do begin
if ((Srec.Attr and faDirectory) <> 0) and
(Srec.name <> '.') and
(Srec.name <> '..') then begin
SavedDir := BaseDir+Srec.name;
KillSubDirs(ForceBackSlash(SavedDir));
RmDir(SavedDir);
end;
aDosError := FindNext(Srec);
end;
Finally
SysUtils.FindClose(Srec);
End;
aDosError := FindFirst(BaseDir+'*.*',AnyFileButDir,Srec);
if aDosError = 0 then
Try
While aDosError = 0 do begin
EraseFile(BaseDir+Srec.name);
aDosError := FindNext(Srec);
end;
Finally
SysUtils.FindClose(Srec);
End;
end;
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
----- Original Message -----
From: Lud�k P�ral
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, March 09, 2000 9:57 PM
Subject: Cisteni diskety
Neviprosim nekdo, jak vycistit v D3 disketu (jedna se mi o smazani vsech souboru pro zalohovani)
Predem dekuji
ludek.paral(zv)telecom(tec)cz
Delphi 5, chybne krokovani po exceptions
[*] Karel Kral <kral(zv)purus(tec)cz> - 10.3.2000 09:15:19
Ahoj, mam docela divny problem.
V procedure vyvolam Exception. Delphi zobrazi okno "Project xxx raised
exception, use Step or Run...". Ok, odklepnu hlasku a jsem na radku
radku s raise. Dam F7 a kurzor mi skoci na "OutCLinkDir:=
ReadString('OutCLinkDir', '')", tedy 3. radek procedury od konce(to je
to, cemu se divim), znovu F7 a teprve tehdy jsem na obsluze vyjimky.
Pritom, kdyd si vytvorim nejaky jednoduchy testovaci pripad, vse
funguje, jak ma.
Mate s tim nekdo zkusenosti? Blbne Delphi nebo ja? Mam D5.01 Pro.
Inkriminovana procedura: (je zvenci uzavrena v try..except).
procedure TServerCfg.Read;
begin
FillChar(BaseOpt, SizeOf(BaseOpt), 0);
FillChar(ServerOpt, SizeOf(ServerOpt), 0);
if not FileExists(FIniFName) then
raise Exception.CreateFmt(sCantOpenIni, [FIniFName]);
with BaseOpt, FMainIni do
begin
FMainIni.CurSubKey:= 'Other';
LogFName:= ReadString('Log', defLogFName);
InCLinkDir:= ReadString('InCLinkDir', '');
OutCLinkDir:= ReadString('OutCLinkDir', '');
end;
end;
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Cisteni diskety
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 10.3.2000 09:41:47
Ahoj,
ja pouzivam funkci FileUtil.ClearDir z RXLib
napr. takto:
if ClearDir('A:', true) then
begin
if SetVolumeLabel(PChar('A:\'), PChar('91160000')) then
begin
FDSave := true;
end;
end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz <mailto:jiri.f(zv)avizo(tec)cz>
-----P�vodn� zpr�va-----
Od: Lud�k P�ral [mailto:ludek.paral(zv)telecom(tec)cz]
Odesl�no: 9. b�ezna 2000 21:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Cisteni diskety
Neviprosim nekdo, jak vycistit v D3 disketu (jedna se mi o smazani vsech
souboru pro zalohovani)
Predem dekuji
ludek.paral(zv)telecom(tec)cz <mailto:ludek.paral(zv)telecom(tec)cz> Pretypovani objektu v zavislosti na jeho typu
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.3.2000 09:42:30
>Zdravim vsechny
>Mam nasledujici problem. V procedure potrebuju pretypovat objekt v zavislosti
na jeho typu. Zatim to resim >nasledujicim zpusobem
Nestacilo by neco takoveho, pokud je kod stejny :
procedure Jmeno(Sender : TForm)
begin
if (Sender is TFormChild1) or (Sender is TFormChild2) then
with Sender as TFormChild1 do
kod;
end;
Jan Fiala
Blikane pri prekreslovani
[*] Zak Robert <nrsys(zv)psn.sk> - 10.3.2000 09:50:05
Zdravim,
Mam komponentu TImage a na nej TLabel. Label mam nastaveny ako transparent a
pokial nad nim prechadzam mysou, potrebujem mu zmenit farbu. To sa mi aj
podarilo, problem ale je ze pokial tu farbu prestavim, preblikne na Label-i
medzi zmenami farieb sedy podklad. Da sa to prosim vas nejak obist? Napr. aj
inou komponentou, StaticText ale nema vlastnost Transparent ...
Dakujem
Robo
public beta IB6 pro Linux je tady
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 10.3.2000 09:52:57
zaroven jsou verejne dostupne newsgroups, ktere byly az dosud dostupne
pouze beta testerum IB6
forums.inprise.com
interbase.public.kinobi.*
kinobi je kodove jmeno pro IB6
(Kinobi - japonsky vyraz pro "puvab ve forme a funkcnosti" -- puvab
neceho,
co spravne funguje a zaroven nedela nic vic, nez je nutne - uspornost)
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Trideni v SQL
[*] Ivic Jozef <jozef.ivic(zv)delta.sk> - 10.3.2000 10:02:26
Ahojte,
neviem sice co chces robit, ale triedit mozes aj pomocou
zmeny indexov v komponente TTable.
Je to celkom rychle.
-----Original Message-----
From: Petr Reichl [mailto:reichl(zv)atlas(tec)cz]
Sent: Friday, March 03, 2000 7:54 PM
To: ListServ - Delphi
Subject: Trideni v SQL
Zdravim vsechny,
potrebuji poradit s nasledujicim problemem tykajici se spise jazyka SQL nez
Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu v teto otevrene
tabulce tridit podle urcitych kriterii. Muzete mi porait nejaky prikaz?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
grabovani URL
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 10.3.2000 10:16:27
Zkousim to jeste jednou, nikdo nevite jak v realnem case grabovat URL linky
z MSIE/NC ? Treba to co umi CuteFTP a podobne programy.
Heretic-X, SOFTWARE specialist
Cisteni diskety
[*] Karol Zaic <zaic_karol(zv)novitech.sk> - 10.3.2000 10:24:24
Nasledujucim kodom:
uses ... ShlObj ...
procedure TFDavky.SBZapisClick(Sender: TObject);
var F: TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO DELETE;
F.pFrom := 'a:\*.*' + #0 + #0;
F.pTo := #0 + #0;
F.fFLAGS := FOF NOCONFIRMATION or FOF SILENT;
if ShFileOperation(F) <> 0 then
{ chyba pri mazani }
end.
-----P�vodn� spr�va-----
Od: Lud�k P�ral <ludek.paral(zv)telecom(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 9. marec 2000 22:06
Predmet: Cisteni diskety
Neviprosim nekdo, jak vycistit v D3 disketu (jedna se mi o smazani vsech souboru pro zalohovani)
Predem dekuji
ludek.paral(zv)telecom(tec)cz
Delphi 5, chybne krokovani po exceptions
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 10.3.2000 10:27:15
| Ahoj, mam docela divny problem.
| V procedure vyvolam Exception. Delphi zobrazi okno "Project xxx raised
| exception, use Step or Run...". Ok, odklepnu hlasku a jsem na radku
| radku s raise. Dam F7 a kurzor mi skoci na "OutCLinkDir:=
| ReadString('OutCLinkDir', '')", tedy 3. radek procedury od konce(to je
| to, cemu se divim), znovu F7 a teprve tehdy jsem na obsluze vyjimky.
| Pritom, kdyd si vytvorim nejaky jednoduchy testovaci pripad, vse
| funguje, jak ma.
|
| Mate s tim nekdo zkusenosti? Blbne Delphi nebo ja? Mam D5.01 Pro.
Ahoj,
moze to byt viac moznosti. Bud kompilator, neskompiloval tu unitu, ktoru
krokusej (stava sa to casto)
Zmaz *.dcu a skontroluj ci ju mas zahrnutu v projekte,
alebo dalsia moznost je, ze si ten xxx.PAS subor editoval v nejakom editore
textovom a ten Ti tam dal znak CrlEol (Enter), s ktorym si Delphi nevie
(neviem preco) poradit a ukazuje iny riadok, nez na ktorom v skutocnoti
stoji.
Dalsia varianta je, ak tu proceduru volas v cykle alebo uz mas nestabilne
Windows.
Pavol Kaka�ka
paka(zv)aktis(tec)cz
filtr v master-detail tabulkach
[*] Ren� Otisk - 10.3.2000 10:45:47
Hi,
D3, RxLib2.75, MS SQL7
Mam nasledujici problem: mam databazi a v ni tabulky master-detail (tech detail je asi (vlastne presne) 11). Chtel bych, aby uzivatel mohl filtrovat zaznamy tak, aby mohl z kterekoli detailni tabulky si vybrat konkretni zaznam(y) a zaroven aby se to projevilo na masteru. Zkousel jsem nejdriv aplikovat filtr na detail (normalni SQL dotaz s klauzuli WHERE) a potom na master stylem
SELECT xxx FROM MasterTable
WHERE PK IN
((SELECT DISTINCT PK FROM DetalTable1 WHERE ...)
AND PK IN
(SELECT DISTINCT PK FROM DetalTable3 WHERE ...))
OR PK IN
(SELECT DISTINCT PK FROM DetalTable11 WHERE ...)
AND PK IN
(SELECT DISTINCT PK FROM DetalTable5 WHERE ...
UNION
SELECT DISTINCT PK FROM DetalTable8 WHERE ...)
jenze to mi pripada tak trosku uhozene a neni to optimalni ani z hlediska rychlosti. Zkousel jsem i nahradit AND klauzuli UNION,
ale o moc lepsi to nebylo. Uzivatel musi mit moznost si sestavit filtr tak, aby mohl pouzit operatory AND a OR a ty libovolne vzajemne uzavirat do zavorek.
Napadlo me (nezkousel jsem), ze bych si pres vsechny ty tabulky udelal brutalni view svazany klicem (joinem), jenze to si zase myslim, ze ten view nabobtna jak testo na boruvkove knedliky (sakra mam hlad). A tak tu ted smutne sedim a premyslim, kterak to vyresit.
Mate nekdo nejaky napad, zkusenost ci primo radu?
Dekuji predem a hezky vikend
Sroub
P.S. Odchozi zprava neobsahuje viry a obsahuje muj problem
Pretypovani objektu v zavislosti na jeho typu
[*] Ren� Otisk - 10.3.2000 10:48:14
Hi,
Spis bych to strcil do nejakeho podprogramu a parametrem bych predaval ty
formy (nekde v demoaplikacich je to snad neco na zpusob CRef )
Sroub
>
> >Zdravim vsechny
>
> >Mam nasledujici problem. V procedure potrebuju pretypovat objekt v
zavislosti
> na jeho typu. Zatim to resim >nasledujicim zpusobem
>
> Nestacilo by neco takoveho, pokud je kod stejny :
>
> procedure Jmeno(Sender : TForm)
> begin
> if (Sender is TFormChild1) or (Sender is TFormChild2) then
> with Sender as TFormChild1 do
> kod;
> end;
>
> Jan Fiala
IPX, Novell, Novell Libs for Delphi
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 10.3.2000 10:52:12
> A vedel by mi niekto ozrejmit, preco neexistuje help k Novell Libs for
> Delphi. neviem ani vypisat prihlasenych uzivatelov.
Myslim ze to bude tim, ze knihovny pro Delphi jsou jen prepisy hlavicek
z C do Pascalu, takze by se mel pouzivat help pro Ceckove knihovny.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
Prace s Excelem
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.3.2000 11:57:24
Ahoj,
prochazel jsem ted archiv, ale nenasel jsem tam nic, co by me
uspokojilo. Prosim o pripadne nasmerovani.
Chtel bych pracovat s excelovskymi tabulkami pomoci beznych
databazovych komponent. Zkousel jsem pres ODBC, pripojeni se
mi i povedlo, ale pri dotazu
SELECT * from [List1$] vznikne vyjimka, ze je mnoho poli. Jak
ten SQL prikaz modifikovat, aby vratil jen prvnich 5 sloupcu?
Dik.
David
Pretypovani objektu v zavislosti na jeho typu
[*] viragi(zv)eurotel.sk - 10.3.2000 12:18:58
<<Zdravim vsechny
<<Mam nasledujici problem. V procedure potrebuju pretypovat objekt v zavislosti
na <<jeho typu. Zatim to resim nasledujicim zpusobem
<<procedure Jmeno(Sender : TForm)
<<begin
<< if Sender is TFormChild1 then
<< with Sender as TFormChild1 do
<< kod;
<< else Sender is TFormChild2 then
<< with Sender as TFormChild2
<< stejny kod;
<<end;
Zdravim
Me se zda uplne zbytecna ta podminka a nasledne pretypovani. Pokud je kod
stejny, tak se provadi s formularem, ktery je predavan v parametru procedury.
Tim by mel byt ten if vyresen.
Ivan Virag
Pretypovani objektu v zavislosti na jeho typu
[*] MUMU MUMU <MUMU(zv)seznam(tec)cz> - 10.3.2000 13:20:37
Mam problem: V Delphi 3 jsem si udelal komponentu zalozenou na TImage a chtel bych uzivateli znepristupnit nektere property TImage, ale mohl je pritom uvnitr komponenty pouzivat (napr. Picture)
Diky.
PS: Kopii odpovedi prosim poslat na mcetkovsky(zv)centrum(tec)cz
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
filtr v master-detail tabulkach
[*] Ji�� Kr�l jr. - 10.3.2000 12:34:25
> Chtel bych, aby uzivatel mohl filtrovat zaznamy tak, aby mohl z kterekoli
detailni tabulky si > vybrat konkretni zaznam(y) a zaroven aby se to
projevilo na masteru. Zkousel jsem nejdriv
> aplikovat filtr na detail (normalni SQL dotaz s klauzuli WHERE) a potom na
master stylem
mozne spatne, chapu ale Master:Detail === 1:N. Cili v detailu vidim vsechno
co patri pod konkretni master, takze co bys vlastne chtel na Masteru
projevovat? Pokud mas zobrazene detaily, tak mas taky jen 1 master record,
ne? Nebo's to myslel jinak?
JK
Delphi 5, chybne krokovani po exceptions
[*] Karel Kral <kral(zv)purus(tec)cz> - 10.3.2000 12:41:35
Dodatek:
samozrejme jsem pouzil Build all, pak jeste smazal vsechnu DCU a opet
prekompiloval. Tim to neni. Kdyz udelam zamerne chybu v nekterem
inkriminovanem radku, kompilator na to prijde.
Takze jednotka JE zkompilovana Ok.
Karel Kral wrote:
>
> Ahoj, mam docela divny problem.
> V procedure vyvolam Exception. Delphi zobrazi okno "Project xxx raised
> exception, use Step or Run...". Ok, odklepnu hlasku a jsem na radku
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
RecordCount
[*] Jan Fryscak <fryscak(zv)scio(tec)cz> - 10.3.2000 12:57:45
Ahoj lidi,
nevite nahodou nekdo proc mi TQuery.RecordCount vraci -1 vzdy, kdyz dotaz
obsahuje pole vetsi nez 255 znaku? Pouzivam D4 a pres BDE se nativne
pripojuji k Oracle 8.1.5.
Diky
Honza
Vlastnosti tiskarny
[*] Boris Pe�ka <duhasystem(zv)volny(tec)cz> - 10.3.2000 13:10:47
Myslel jsem spise vlastnosti ke konkretnimu modelu tiskarny. Napr. k tiskarne na tisk pristupovych karet (Eltron P310) se nastavuje kontrast a jas tistenych barev, ale k cernobile laserovce nic takoveho neni. Naopak u laserovek je nastaveni ekonomickeho modu, coz zase neni u Eltronu. Tyhle vlastnosti se napr. ve Win2000 zobrazuji takto :
Start --> Settings -> Printers --> Eltron P310 --> Properties --> Printing Preferences --> Advanced
Rad bych vedel, jak se alespon k temto vlastnostem dostanu. Potrebuji totiz udelat svuj vlastni dialog na nastaveni tiskaren. Kazda tiskarna ma svoje vlastni vlastnosti, ktere se zobrazi v nastavovacim dialogu tiskarny (napr. PrinterSetupDialog). Nevite nekdo, jak tyto specificke vlastnosti zobrazit ve svem vlastnim dialogu20
Jake velikosti papiru existuji pro danou tiskarnu resi nasledujici funkce:
procedure TForm1.ComboBox1Change(Sender: TObject);
Type
TPaperName = Array [0..63] of Char;
TPaperNameArray = Array [1..High(Cardinal) div Sizeof( TPaperName )] of
TPaperName;
PPapernameArray = ^TPaperNameArray;
Var
Device, Driver, Port: Array [0..255] of Char;
hDevMode: THandle;
i, numPaperformats: Integer;
pPaperFormats: PPapernameArray;
begin
Printer.PrinterIndex := ComboBox1.ItemIndex;
Printer.GetPrinter(Device, Driver, Port, hDevmode);
numPaperformats :=
WinSpool.DeviceCapabilities( Device, Port, DC PAPERNAMES, Nil, Nil );
If numPaperformats > 0 Then Begin
GetMem( pPaperformats, numPaperformats * Sizeof( TPapername ));
try
WinSpool.DeviceCapabilities( Device, Port, DC PAPERNAMES,
Pchar( pPaperFormats ), Nil);
ComboBox2.Items.clear;
For i:= 1 To numPaperformats Do
ComboBox2.Items.add( pPaperformats^[i] );
ComboBox2.ItemIndex := 0;
finally
FreeMem( pPaperformats );
end;
End;
End;
Pokud se jedna o dalsi volby, pak je k tomu urcena struktura DEV MODE. Odkaz na ni v prikladu promenna hDevMode. Jeji popis je v unitu Windows.pas: hledej strukturu TDeviceModeA.Pretypovani objektu v zavislosti na jeho typu
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 10.3.2000 13:15:17
To neni ono, protoze v tom kodu sice pouzivam stejne atributy pro oba formy,
ale kdyz TFormChild2 pretypuji na TChildForm1, tak se pouziji atrubuty
objektu TFormChild1 a ja potrebuji pouzit atributy TFormChild2.
Ales
----- Original Message -----
From: Jan Fiala <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 10, 2000 9:42 AM
Subject: Re: Pretypovani objektu v zavislosti na jeho typu
>
> >Zdravim vsechny
>
> >Mam nasledujici problem. V procedure potrebuju pretypovat objekt v
zavislosti
> na jeho typu. Zatim to resim >nasledujicim zpusobem
>
> Nestacilo by neco takoveho, pokud je kod stejny :
>
> procedure Jmeno(Sender : TForm)
> begin
> if (Sender is TFormChild1) or (Sender is TFormChild2) then
> with Sender as TFormChild1 do
> kod;
> end;
>
> Jan Fiala
>
Pretypovani objektu v zavislosti na jeho typu
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 10.3.2000 13:34:59
Zalezi od toho, co presne ten kod vykonava. Ak pouziva iba vlastnosti a metody, ktore maju obidva typy spolocne, to znamena ktore maju odvodene od spolocneho predka (v tomto pripade tym predkom bude zrejme TForm - ak teda nie su obidve odvodene od nejakeho ineho formularu), tak staci na zaciatku jedno pretypovanie na toho spolocneho predka. Vysledny kod teda bude:
with Sender as TForm do
kod;
pripadne aj s podmienkou:
if Sender is TForm then
with TForm(Sender) do // toto je vraj optimalnejsie, ak si si isty ze Sender is TForm
kod;
----- Original Message -----
From: Ales Janda
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, March 10, 2000 9:01 AM
Subject: Pretypovani objektu v zavislosti na jeho typu
Zdravim vsechny
Mam nasledujici problem. V procedure potrebuju pretypovat objekt v zavislosti na jeho typu. Zatim to resim nasledujicim zpusobem
procedure Jmeno(Sender : TForm)
begin
if Sender is TFormChild1 then
with Sender as TFormChild1 do
kod;
else Sender is TFormChild2 then
with Sender as TFormChild2
stejny kod;
end;
ale zda se mi zbytecny opakovat stejny kod dvakrat. Nevi nekdo jak to vyresit lepe?
Diky za kazdy napad Ales
Pretypovani objektu v zavislosti na jeho typu
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 10.3.2000 13:39:46
Sorry, obcas rychlejsie pisem ako rozmyslam a v tomto pripade som si nevsimol, ze Sender uz je typu TForm a teda ziadne pretypovanie nie je nutne a cely kod bude vlastne iba:
with Sender do
kod;
----- Original Message -----
From: Ales Janda
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, March 10, 2000 9:01 AM
Subject: Pretypovani objektu v zavislosti na jeho typu
Zdravim vsechny
Mam nasledujici problem. V procedure potrebuju pretypovat objekt v zavislosti na jeho typu. Zatim to resim nasledujicim zpusobem
procedure Jmeno(Sender : TForm)
begin
if Sender is TFormChild1 then
with Sender as TFormChild1 do
kod;
else Sender is TFormChild2 then
with Sender as TFormChild2
stejny kod;
end;
ale zda se mi zbytecny opakovat stejny kod dvakrat. Nevi nekdo jak to vyresit lepe?
Diky za kazdy napad Ales
filtr v master-detail tabulkach
[*] Ren� Otisk - 10.3.2000 13:46:33
Hi,
Maly priklad pro jednu detailni tabulku. V Masteru mam zakazky a jsou
zobrazene v DBGridu, v detailu mam ke kazde zakazce nejakou mnozinu pracovni
cinnosti, zodpovedneho pracovnika, termin ... A ja bych chtel, aby si
uzivatel zadal svoji cinnost nebo neci cinnost, nebo zodpovednou osobu,
utvar proste cokoli co lze a vyjely by mu na masteru jen zakazky, ktere
prislusi k danemu dotazu. Ale tohle je jen jednoduchy priklad... No ale co s
tim, kdyz je tech detailtablu 11 a na kazdou muzu teoreticky dat x dotazu na
jednotlive polozky? Kdysi jsem to delal tak, ze uzivatel mel omezeni zadat
max 5 podminek, ale nekdy se to proste neveslo.
P.S. Omlouvam se za spatne vyjadrenou otazku...
Sroub
----- Original Message -----
From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 10, 2000 12:34 PM
Subject: RE: filtr v master-detail tabulkach
> > Chtel bych, aby uzivatel mohl filtrovat zaznamy tak, aby mohl z
kterekoli
> detailni tabulky si > vybrat konkretni zaznam(y) a zaroven aby se to
> projevilo na masteru. Zkousel jsem nejdriv
> > aplikovat filtr na detail (normalni SQL dotaz s klauzuli WHERE) a potom
na
> master stylem
>
> mozne spatne, chapu ale Master:Detail === 1:N. Cili v detailu vidim
vsechno
> co patri pod konkretni master, takze co bys vlastne chtel na Masteru
> projevovat? Pokud mas zobrazene detaily, tak mas taky jen 1 master record,
> ne? Nebo's to myslel jinak?
>
> JK
>Error reading data from connection.
[*] Miroslav Hostinsk� <abcsoft(zv)rychnov(tec)cz> - 10.3.2000 14:03:56
Ahoj,
jde s pravdepodobne o chybu site (ta se pri kopirovani nemusi projevit).
Stavalo se mi to velmi casto na jedine stanici v siti, ostatni fungovali
bezchybne. Vymenit pocitac nepomohlo. Pak jsme prisli na to, ze pobliz vede
elektricky kabel k jistemu energeticky narocnemu zarizeni a ten
pravdepodobne rusil sit. Po natazeni site jinou cestou problemy prestaly.
Cau Mira
----- Original Message -----
From: MJ soft
To: DELPHI Distribution List
Sent: Monday, February 14, 2000 10:39 AM
Subject: Error reading data from connection ...
Ahoj
mam program v DELPHI4 na IB 5. Mam jej nainstalovany na siti Win98 prez
TCP/IP. Pri praci to na klientovi po kratkem case vyhodi hlasku "Error
reading data from connection". Pak nezbyva nic jineho nez program vypnout a
zapnout. Potom to zase chvili jede a cele se to opakuje. Zajimave je, ze pri
kopirovani souboru ve Windows a jin� cinnosti to funguje uplne normalne.
Stalo se me to uz u dvou zakazkniku. Nesetkal jste se s tim nekdo?
Diky predem
Jindra
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 09, 2000 10:19 PM
Subject: IB: Error reading data from connection.> Zdravim.
>
> Pocas citanie udajov po chvili napojeni na IB mi vypise "Error reading
data
> from connection.", a viac sa so mnou nebavi. Musim ukoncit moju applikaciu
a
> spustit ju znova.
>
> Preco?
>
> Hi. Roland
transparentni formular
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 10.3.2000 14:07:27
Ahoj
nasel jsem zajimavou komponentu
je ke stazeni napr. z me homepage
http://www.geocities.com/crkstrobe/glassy.zip
http://www.geocities.com/crkstrobe/glassydemo.zip
je to stazene vsechno z www.utilmind.com . Je to celkem cool.RAS, cekani na vytoceni
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 10.3.2000 14:31:00
Moc diky za radu. Ted jsem to konecne roschodil. Napadl me spasny napad, jak
ji dotahnout k cili. Pri vytaceni zobrazim modalni okno, ktere pozastavi beh
programu. Toto okno obdrzi zpravu o ukonceni vytaceni a volanim Close ve
WndProc se zavre.
Jaromir Cermak
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Wednesday, March 08, 2000 10:57 PM
To: Konference Delphi
Subject: Re: RAS, cekani na vytoceni
From: CERMAK <CERMAK(zv)procomcr(tec)cz>
> Ve svem programu pouzivam unitu, ktera zpristupnuje RAS ze systemu
Windows.
> Mam nasledujici problem.v programu volam RASDialA(nil, nil, (zv)rdParams, 0,
> (zv)RasDialFunc, (zv)hRasConn);
Ahoj,
Pokud chces volat RasDial synchronne, tak to lze treba takhle. Potrebne
konverze hlavicek RAS a pomocnych funkci najdes na JEDI (RAS.ZIP):
http://delphi-jedi.org/Jedi:APILIBRARY:656572865
uses
Ras, RasError, RasUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
DialParams: TRasDialParams;
Conn: THRasConn;
Res: DWORD;
begin
ZeroMemory((zv)DialParams, Sizeof(DialParams));
DialParams.dwSize := Sizeof(DialParams);
DialParams.szPhoneNumber := '12345';
DialParams.szUserName := 'username';
DialParams.szPassword := 'password';
Conn := 0;
Res := RasDial(nil, nil, (zv)DialParams, 0, nil, Conn);
if Res <> SUCCESS then
begin
if Conn <> 0 then RasHangUp(Conn);
RasCheck(Res);
end else
ShowMessage('Spojeno');
end;
Petr Vones, amatersky programator
Zmena domeny
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.3.2000 15:36:38
Ahoj,
pokud budete stahovat komponenty z www.micrel-dev.com/delphi pak tato jiz
neni uplne funkcni. Zkuste pripojeni na http://www.micrel(tec)cz/delphi/
Diky
Jaro B.Copy v Excelu
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.3.2000 15:38:34
Ahoj,
muzete mi nekdo prosim napsat nejaky funkcni priklad procedurky
v Delphi 4, ktera ve stavajici excelovske tabulce zkopiruje obsah
Listu1 do Listu2 v jednom souboru? Nasel jsem v helpu k visual
basicu cosi jako copy after, ale nevim, jak to pouzit. Delam:
var
Excel: variant;
Excel.CreateOleObject('Excel.Application');
Excel.Workbooks.Open('d:\xxx.xls');
Excel.sheets['List1'].Copy ... no a sem by to chtelo nejak dat to
after
Nepiste mi prosim, at to delam primo v Excelu - jde mi spis o
pochopeni veci nez prave o tuto konkretni zalezitost.
Pripadne prosim o navedeni, jak jinak (lepe) pracovat s xls
soubory. Cesty pres OLEDB ci ODBC vedou ke ztrate formatu dat
(asi?), navic nevim, jak mam v prikazu select specifikovat
pozadovane sloupce.
David
RecordCount
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 10.3.2000 15:44:54
Skus SELECT Count(*) FROM tab WHERE podm.
Miso
-----Original Message-----
From: Jan Fryscak <fryscak(zv)scio(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: Friday, March 10, 2000 2:00 PM
Subject: RecordCount
>Ahoj lidi,
>nevite nahodou nekdo proc mi TQuery.RecordCount vraci -1 vzdy, kdyz dotaz
>obsahuje pole vetsi nez 255 znaku? Pouzivam D4 a pres BDE se nativne
>pripojuji k Oracle 8.1.5.
>
>Diky
>Honza
>Delphi 5, chybne krokovani po exceptions
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.3.2000 15:45:25
> > Ahoj, mam docela divny problem.
> > V procedure vyvolam Exception. Delphi zobrazi okno "Project xxx
> > raised exception, use Step or Run...". Ok, odklepnu hlasku a jsem na
> > radku
Ted mozna placnu blbost, ale jako pokus to ujde :)). Nepomuze
vypnuti optimalizace? (nekde v Project/Options)
David
Delphi 5, chybne krokovani po exceptions
[*] Karel Kral <kral(zv)purus(tec)cz> - 10.3.2000 17:06:38
Optimalizaci jsem mel vypnutou :(((.
David Lebeda wrote:
>
> Ted mozna placnu blbost, ale jako pokus to ujde :)). Nepomuze
> vypnuti optimalizace? (nekde v Project/Options)
>
> David
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
InterBase 6.0 for Linux
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.3.2000 18:20:07
On 10 Mar 00, at 8:59, Pavel Cisar (Inprise CZ) wrote:
> Public beta InterBase 6.0 pro Linux (zatim bez zdroju) je k mani na
> http://www.interbase.com a www.interbase2000.org pripadne na
> ftp://delphi-jedi.org
Mas prehled, jestli bude v IB defaultne take typ GUID, nebo se
bude muset nejak dodelavat?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Hromadny pristup k objektum
[*] Petr Kro�a - 11.3.2000 01:31:43
Zdravim,
potreboval bych poradit s asi trivialnim problemem.
Na Formu mam umisteno napr. 10 x TEdit, pricemz pri vkladani na form jsou
jednotlive edity pojmenovany Edit1, Edit2 ....
Jakym zpusobem lze k temto jednotlivym TEditum pristupovat hromadne, kdyz u
vsech potrebuji udelat stejne nastaveni?
Nechci totiz delat otrocky
Edit1.Width:=84;
Edit2.Width:=84;
Edit3.Width:=84;
Edit4.Width:=84;
ale spise to udelat takto
For x:=1 to 10 do
Edits[x].Width:=84;
Pro tento ucel jsem si nadefinoval pole, jehoz jednotlivym prvkum na zacatku
priradim Edity a potom pristupuji pomoci nej.
Neni takovy pristup pres pole implementovan nejak standartne v Delphi?
Diky
Petr Kroca
Znepristupneni property uzivatelum
[*] MUMU MUMU <MUMU(zv)seznam(tec)cz> - 11.3.2000 10:16:01
Udelal jsem si komponentu zalozenou na TImage a chtel bych uzivatelum znepristupnit nektere jeji property (napr. Picture). Jak to udelat, abych se ja na ne mohl v komponente odkazovat a pouzivat je, ale zvenku tato property nebyla pristupna?
Diky.
PS: Kopii odpovedi prosim poslat na mcetkovsky(zv)seznam(tec)cz
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Znepristupneni property v Delphi 3
[*] MUMU MUMU <MUMU(zv)seznam(tec)cz> - 11.3.2000 10:20:58
Udelal jsem si konponentu v Delphi 3 zalozenou na TImage a potreboval bych uzivatelum znepristupnit nektere property. Jak to udelat abych je pritom mohl uvnitr komponenty pouzivat, aniz by do nich mel zvenku nekdo pristup?
Diky.
PS: Kopii odpovedi prosim poslat na mcetkovsky(zv)seznam(tec)cz
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Hromadny pristup k objektum
[*] DAP - Robert Plz�k <rpdap(zv)atlas(tec)cz> - 11.3.2000 10:10:30
For x:=1 to 10 do
(Edits[x] as TEdit).Width:=84;Platebni karty
[*] Kosta <kosta(zv)iol(tec)cz> - 11.3.2000 11:01:57
Skromny dotaz, ma tu nekdo realne skusenosti s prijimanim plateb ze
zahranici pres platebni(kreditni) karty?
Kosta
kosta(zv)iol(tec)cz
-------------------------------------------
Kosta
P.O.Box 38
Posta 41
141 00 Praha 4 - Sporilov
-------------------------------------------
0603 / 33 87 47
-------------------------------------------
task bar
[*] Lauko �tefan <lauko(zv)salamon.sk> - 11.3.2000 13:32:39
Ahoj.
Do FormCreate staci vlozit toto:
ShowWindowAsync( Application.Handle, SW_HIDE );
Application.ProcessMessages;
----- Original Message -----
From: Peter Mojdis <mojdis(zv)colnicapo.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 10, 2000 7:56 AM
Subject: task bar
> Ako sa da zakazat vykreslenie buttonu v task bare ked spustim program?
> Mam komponentu (Trayicon) ktora mi vytvori iconu v v task bare vedla
hodin,
> ale na hlavnom task bare je stale zobrazene tlacidlo aktivneho programu.
>
> Peto
>
>
>Hromadny pristup k objektum
[*] Lauko �tefan <lauko(zv)salamon.sk> - 11.3.2000 13:40:31
For x := 0 to ControlCount - 1 do
If Controls[x] is TEdit then TEdit(Controls[x]).Width:=84;
> Zdravim,
> potreboval bych poradit s asi trivialnim problemem.
>
> Na Formu mam umisteno napr. 10 x TEdit, pricemz pri vkladani na form jsou
> jednotlive edity pojmenovany Edit1, Edit2 ....
> Jakym zpusobem lze k temto jednotlivym TEditum pristupovat hromadne, kdyz
u
> vsech potrebuji udelat stejne nastaveni?
>
> Nechci totiz delat otrocky
> Edit1.Width:=84;
> Edit2.Width:=84;
> Edit3.Width:=84;
> Edit4.Width:=84;
>
> ale spise to udelat takto
>
> For x:=1 to 10 do
> Edits[x].Width:=84;
>
> Pro tento ucel jsem si nadefinoval pole, jehoz jednotlivym prvkum na
zacatku
> priradim Edity a potom pristupuji pomoci nej.
> Neni takovy pristup pres pole implementovan nejak standartne v Delphi?
>
> Diky
> Petr Kroca
>
>W2000 je WinNT 5.0
[*] Lauko �tefan <lauko(zv)salamon.sk> - 11.3.2000 14:08:07
Alebo som sa sekol...?
Bezi aj na P100 32Mb HDD 13Gb... Na Celeron 330 64Mb HDD 3,4Gb je to skoro to iste.
P100 dobieha asi pre rychlejsi disk (UDMA).
Horsie je to so sys. prostriedkami - hned sa vycerpaju (ako pri NT 4.0).
D4 tiez funguje dobre.
V celku sa mi zda spolahlivy.
Prepacte temu nie o programovani.
Orientace QR
[*] Petr Pa��enko <petrpas(zv)volny(tec)cz> - 11.3.2000 15:24:45
Pokou�el jsem se v�emo�n� nastavit orientaci pap�ru (poportrait,polandscape),
ale vytrvale mne to ignoruje. Zadam o kazdou radu.
Petr Pascenko
CreateProcess + DOS
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 11.3.2000 15:25:11
Ahojte,
asi si rikate, proc ten ocas, potrebuje spoustet dos prikazy ve woknech.Osvetlim to:
Mam takovy programek, ktery vybira a rozkopirovava soubory z posty M602 pomoci Imex602 a nasledne se spusti batak, ktery soubory rozkopiruje, kam patri a uklidi po sobe.Dokud post. brana bezela na W95, bylo vsechno v pohode, ale jakmile jsme byli nuceni prejit na NT4.0, vsechno je jinak.Bezne je uklizeno drive nez rozkopirovano, coz je chyba ;-) Tak jsem si rikal, ze bude lepsi cist batak po radku a spoustet jeho jednotlive prikazy pres CreateProcess, abych si zajistil, ze se dalsi spusti, az se dokonci predchozi.
Zkousel jsem vytvorit soubor *.cmd (prejmenovalk jsem batak) a kazdy prikaz uvozoval cmd /c , coz by melo zajistit cekani na dokonceni prikazu, ale minulo se to ucinkem. Daval jsem mezi kazdy prikaz choice se zpozdenim 120s, taky nic. A ted kdyz si myslim, ze to konecne bude chodit ( pres CreateProcess ), tak mi to nebere zrno ;-) .
Jde o to, ze uz mam ten program delsi dobu hotovy a nechce se mi ho cely predelavat, aby mi to kopirovalo a uklizelo za sebou primo pres Delphi.Jde o mnoho souboru s ruznymi extenzemi a nechce se mi do toho.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Ahojte,
potreboval bych postrcit.Pres menu Start -> Spustit ve Win98 nelze spustit napr prikaz dir *.* , ale lze spustit prikaz command /c dir *.* . takze bych predpokladal, ze kdyz dam prikaz, ktery se spusti z menu Start -> Spustit, ke spusteni pres fci CreateProcess, tak pojede.Bohuzel to nejede.
Naopak, pokud chci napr. pakovat tak CreateProcess spusti pouze prikaz arj a zkouska *.* , ale ne command /c arj a zkouska *.*, i kdyz z menu Start->Spustit lze spustit oba dva prikazy.
Nevite nekdo, jak na to?
with StartupInfo do
begin
cb:=sizeof(StartupInfo);
lpReserved:=nil;
lpDesktop:=nil;
lpTitle:=nil;
dwX:=0; dwY:=0;
dwFlags:=STARTF USESTDHANDLES;
wShowWindow:=SW SHOWDEFAULT;
cbReserved2:=0;
lpReserved2:=nil;
end;
PP:='command /c '+PP;
if CreateProcess(nil,PChar(PP),nil,nil,false,0,nil,nil, StartupInfo, ProcessInfo) then
WaitForSingleObject(ProcessInfo.hProcess,INFINITE);
Predem dekuji.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
W98,D4C/S
Trideni v SQL
[*] Jaro <jaro(zv)sinea(tec)cz> - 11.3.2000 08:06:35 -0800
> neviem sice co chces robit, ale triedit mozes aj pomocou
> zmeny indexov v komponente TTable.
> Je to celkom rychle.
>
Pokud se pta na trideni pomoci SQL prikazu, tak zrejme
pouziva TQuery a nikoliv TTAble.
Prikaz SELECT obsahuje klausuli ORDER BY jmeno pole
(nebo seznam poli oddelenych carkou).
Petr neuvedl, jakou databazi pouziva, ale pokud chce tvorit c/s,
tak pouzivat TTable neni prilis vhodne reseni.
Jaro
>
>
> Zdravim vsechny,
>
> potrebuji poradit s nasledujicim problemem tykajici se spise jazyka SQL nez
> Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu v teto otevrene
> tabulce tridit podle urcitych kriterii. Muzete mi porait nejaky prikaz?
>
> Preji prijemny den.
>
> Petr Reichl
> ---
> * E-mail: reichl(zv)centrum(tec)cz
> * PGP: support
> * ICQ: 56430979
> ---
> Orientace QR
[*] Lauko �tefan <lauko(zv)salamon.sk> - 11.3.2000 17:28:14
Ahoj,
o ktoru verz. QR sa jedna, o aku tlaciaren ide? Ja mam taku skusenost ze
niektore ovl. tlaciarne vracaju blbe rozmery strany a tak je uplne jedno co
je nastavene (preview je spatny). Je to spatne aj vytlacene?
Orientaciu pre QR nastavuj vzdy QuickRep.Page.Orientation:=poportrait.
Este by som vyskusal nainstalovat dalsiu tlaciaren napr. HP LJ 4L (mam ju
odskusanu) potom ju treba nastavit ako predvolenu a restartovat Delphi a
potom pozriet v QR ci sa nieco s oriantaciou deje.
> Pokou�el jsem se v�emo�n� nastavit orientaci pap�ru
(poportrait,polandscape),
> ale vytrvale mne to ignoruje. Zadam o kazdou radu.
> Petr Pascenko
>InterBase 6.0 for Linux
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 11.3.2000 17:58:54
Ahoj,
ve verzi 6 nebude. Mel by ale jit ulozit jako CHAR pole s collation
OCTETS.
Zbysek Hlinka wrote:
> Mas prehled, jestli bude v IB defaultne take typ GUID, nebo se
> bude muset nejak dodelavat?
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Cekani na ukonceni aplikace
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 11.3.2000 20:17:49
Zdravim,
na toto tema zde uz bylo neco napsano, ale porad s tim nemohu hnout. Mam
nasledujici problem:
Z hlavni aplikace spustim vedlejsi. Z teto vedlejsi potrebuji pockat na
ukonceni te hlavni a potom teprve spustit proceduru v te vedlejsi. Dost jsem
si s tim uz hral (WaitForSingleObject ....), ale nehnu s tim.
Muzete mi prosim poradit konkretni kod?
Preji prijemny den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
QuickReport - zkraceni textu
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 11.3.2000 20:19:46
Zdar,
potrebuji pri nacitani dat do sekce Detail v QuickReportu zkratit napr.
Label1 (neznam presne oznaceni) na 10 mist a pridat 3 tecky. V jake udalosti
odchytim nacitani dat? Zkousel jsem OnNeedData, ale neslo to. Muzete mi
poradit?
Preji prijemny den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
Cekani na ukonceni aplikace
[*] Marian Winkler <ag.art(zv)iol(tec)cz> - 11.3.2000 22:10:18
From: Petr Reichl
Subject: Cekani na ukonceni aplikace
> Z hlavni aplikace spustim vedlejsi. Z teto vedlejsi potrebuji pockat na
> ukonceni te hlavni a potom teprve spustit proceduru v te vedlejsi. Dost
jsem
> si s tim uz hral (WaitForSingleObject ....), ale nehnu s tim.
>
>
Ahoj,
zkus tohle (bez zaruky) / jeste jsem to nepotreboval.
function WinExecAndWait32(FileName:String; Visibility : integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security
attributes}
nil, { pointer to thread security
attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
else
begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;
( by Pat Ritchey)
ag.art
Marian Winkler
ag.art(zv)iol(tec)cz
GSM: +42 0604 880 555
Czech Rep.
Cekani na ukonceni aplikace
[*] Marian Winkler <ag.art(zv)iol(tec)cz> - 11.3.2000 22:14:48
From: Petr Reichl
Subject: Cekani na ukonceni aplikace
>
> Z hlavni aplikace spustim vedlejsi. Z teto vedlejsi potrebuji pockat na
> ukonceni te hlavni a potom teprve spustit proceduru v te vedlejsi. Dost
jsem
> si s tim uz hral (WaitForSingleObject ....), ale nehnu s tim.
>
>
Ahoj, jeste jsem nasel tohle.
Zdroj : Inprise Delphi IT
Q: How do I execute a program and have my code wait until it is finished?
A:
uses Wintypes,WinProcs,Toolhelp,Classes,Forms;
Function WinExecAndWait(Path : string; Visibility : word) : word;
var
InstanceID : THandle;
PathLen : integer;
begin
{ inplace conversion of a String to a PChar }
PathLen := Length(Path);
Move(Path[1],Path[0],PathLen);
Path[PathLen] := #0;
{ Try to run the application }
InstanceID := WinExec((zv)Path,Visibility);
if InstanceID < 32 then { a value less than 32 indicates an Exec error }
WinExecAndWait := InstanceID
else
begin
Repeat
Application.ProcessMessages;
until Application.Terminated or (GetModuleUsage(InstanceID) = 0);
WinExecAndWait := 32;
end;
end;
ag.art
Marian Winkler
ag.art(zv)iol(tec)cz
GSM: +42 0604 880 555
Czech Rep.Cekani na ukonceni aplikace
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 12.3.2000 00:57:09
On Sat, 11 Mar 2000, Marian Winkler wrote:
> From: Petr Reichl
> Subject: Cekani na ukonceni aplikace
>
>
> > Z hlavni aplikace spustim vedlejsi. Z teto vedlejsi potrebuji pockat na
> > ukonceni te hlavni a potom teprve spustit proceduru v te vedlejsi. Dost
> jsem
> > si s tim uz hral (WaitForSingleObject ....), ale nehnu s tim.
> >
> >
Ahoj,
jaky mas problem s WaitForSingleObject, s jeho pomoci a spomoci mutexu bych
to delal ja.
Hlavni aplikace:
Vytvori nejak pojmenovany Mutex
Spusti vedlejsi aplikaci
Ukoncuje se
Na konci sebe sama zrusi svuj Mutex
Vedlejsi aplikace:
Zkusi vytvorit mutex se stejnym jmenem
Pokud neexistuje, zrusi ho a jede si, protoze vi, ze hlavni aplikace nebezi
nebo dostane ERROR_ALREADY_EXISTS, pak chvili pocka a cyklicky zkousi
vytvoreni mutexu, dokud ji to neprestane bavit
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
PGP podporovano
Cekani na ukonceni aplikace
[*] L. ZITA <konference(zv)sales(tec)cz> - 12.3.2000 03:17:07
Behalf Of Petr Reichl
> Zdravim,
>
> na toto tema zde uz bylo neco napsano, ale porad s tim nemohu hnout. Mam
> nasledujici problem:
>
> Z hlavni aplikace spustim vedlejsi. Z teto vedlejsi potrebuji pockat na
> ukonceni te hlavni a potom teprve spustit proceduru v te
> vedlejsi. Dost jsem
> si s tim uz hral (WaitForSingleObject ....), ale nehnu s tim.
>
> Muzete mi prosim poradit konkretni kod?
>
Ahoj.
A dival jses do FAQ ?
Ja pouzivam tohle :
http://www.delphi(tec)cz/faq.asp?faq=28
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
KonfView
[*] Roman Sev��k����� �Ȥ�*%�̿ - 12.3.2000 10:21:02
Ahoj,
mel jsem stejny problem - udelal jsem upgrade BDE na verzi 5.01.
Roman
----- Original Message -----
From: Miky <miky28(zv)atlas(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, February 20, 2000 10:15 AM
Subject: KonfView
> Jiz jsem tady slysel dotaz na to, proc nejde ten programek KonfView.
> Sem stah verzi 1.4 a zkolabuje to pri vytvareni databaze. Je nejakej
> figl jak to odstranit? Do databaze nevidim a netroufam se v tom
> hrabat.
>
> Dikec Miky
>
>
> QuickReport - zkraceni textu
[*] Roman �ev��k����� �Ȥ�*%�̿ - 12.3.2000 10:25:51
Ahoj,
ja to delam v udalosti QRLabel1.OnPrint, kde zmenim hodnotu Value
Roman
----- Original Message -----
From: Petr Reichl <reichl(zv)atlas(tec)cz>
To: ListServ - Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, March 11, 2000 8:19 PM
Subject: QuickReport - zkraceni textu
> Zdar,
>
> potrebuji pri nacitani dat do sekce Detail v QuickReportu zkratit napr.
> Label1 (neznam presne oznaceni) na 10 mist a pridat 3 tecky. V jake
udalosti
> odchytim nacitani dat? Zkousel jsem OnNeedData, ale neslo to. Muzete mi
> poradit?
>
> Preji prijemny den.
>
> Petr Reichl
> ---
> * E-mail: reichl(zv)centrum(tec)cz
> * PGP: support
> * ICQ: 56430979
> ---
>
>Media player pod D3 prestal fungovat
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 12.3.2000 13:22:50
Ahoj,
mam problem s komponentou tMediaPlayer pri prehravani CD: pri pokusu o
otevreni zarizeni to hlasi "No MCI device open".
Pokud dam AutoOpen, tak to pri spusteni programu natvrdo zadre PC (na
reset).
Donedavna se to chovalo normalne, ted se zrejme ve Win neco preinstalovalo
(DLL ?) nekompatibilni verzi, bohuzel nevim, kdy to zaclo takhle vyvadet.
Trochu mam podezreni na driver od video karty (ATI) - to je jedine , co jsem
v posledni dobe preinstalovaval, protoze se mi obcas stane, ze po spusteni
se mi WIN spusti 640x480 a prestoze se driver ATI hlasi, nejde nastavit vic
nez 800x600 / 256 barev apomuze jedine preinstalace ATI driveru.
Pod D5 se to chova normalne a bez problemu to funguje.
Konf: PC166/64 MB, ATI Rage pro II+, W98 anglicke
Nemate nekdo radu ?
Diky, Mirek
SQL SERVER - @@ IDENTITY
[*] bigzero(zv)post(tec)cz - 12.3.2000 14:09:33
Zdravim,
nevim si rady s nasledujicim:
Potrebuji do aplikace precist hodnotu syst. prom. (zv)(zv)IDENTITY. Zkousel jsem to primo pres Query (SELECT (zv)(zv)IDENTITY), vytvoril jsem i zapouzdrujici ulozenou proceduru, ale stale se mi nevraci (napr. do gridu) zadna hodnota.
Kdyz si vytvorim proceduru, ktera vraci statickou hodnotu tak je vse OK.
Zkousel jsem to pres BDE+ODBC i pres ADONIS se stejnymi vysledky.
Diky za radu
Honza
Chcete hledat nebo chcete najit?
*** http://NAJDI.TO
Velikost souboru
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 12.3.2000 15:17:54
Zdravim,
potrebuji ziskat presnou velikost souboru, ale funkce FileGetSize vraci
nejake chybne cislo. Muzete mi poradit?
Preji prijemny den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
SQL SERVER - @@ IDENTITY
[*] Tom� Br�dle������i�^����? - 12.3.2000 15:50:47
Zdravim,
s (zv)(zv)IDENTITY byvaji dost potize. Nejlepe je provest vlozeni dat pres
ulozenou proceduru, ktera vrati (zv)(zv)IDENTITY jako vystupni parametr nebo jako
recordset (vysledek select-u). Pozor na to, protoze napr. pri pouziti
Triggeru s dalsim insertem nabyde (zv)(zv)IDENTITY nove hodnoty (z posledniho
insertu).
Ja uspesne pouzivam napr. tuto ulozenou proceduru:
CREATE PROCEDURE stp_InsertObject
(zv)name varchar(50),
(zv)prj int
AS
if exists(select * from PrjObjekty where IdPrj=(zv)prj and Name=(zv)name)
select -1 as IdObj
else
begin
insert into PrjObjekty (IdPrj, Name) values ((zv)prj, (zv)name)
select (zv)(zv)IDENTITY as IdObj
end
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: bigzero(zv)post(tec)cz <bigzero(zv)post(tec)cz>>Zdravim,
>
>nevim si rady s nasledujicim:
>
>Potrebuji do aplikace precist hodnotu syst. prom. (zv)(zv)IDENTITY. Zkousel jsem
to primo pres Query (SELECT (zv)(zv)IDENTITY), vytvoril jsem i zapouzdrujici
ulozenou proceduru, ale stale se mi nevraci (napr. do gridu) zadna hodnota.
>
>Kdyz si vytvorim proceduru, ktera vraci statickou hodnotu tak je vse OK.
>
>Zkousel jsem to pres BDE+ODBC i pres ADONIS se stejnymi vysledky.
>
>Diky za radu
>
>Honza
MDI & Menu ala Word
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 12.3.2000 18:32:11
Ahoj
(C++ Builder 4)
Udelal jsem ve svem projektu (FormStyle = MDI) menu ve stylu Delphi
(nebo Word) - tj. pomoci ControlBaru a ToolBaru, kde jsem jednotlivym
buttonum priradil do vlastnosti MenuItem prislusne podmenu hlavniho
menu a mam 2 problemy:
1) Kdyz maximalizuji Child okno, tak se mi nikde nezobrazi ty ridici
buttonky (Minimalizace, Obnova/Maximalizace, Zavreni), ktere jsou v
levem hornim rohu toho Child okna.
2) Kdyz nastavim ve formulari WindowMenu na jednu polozku (podmenu)
toho hlavniho menu, tak se zde stejne nezobrazuje seznam Child oken.
Jak to tedy zprovoznit? Jde to nejak jednoduse, nebo si musim hlidat
vytvareni a ruseni oken a prepinani a podle toho si to tam sam rucne
pridavat polozky a podobne?
Predem diky za napady jak to rozchodit.
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Cekani na ukonceni aplikace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.3.2000 19:01:18
On 11 Mar 00, at 20:17, Petr Reichl wrote:
> Z hlavni aplikace spustim vedlejsi. Z teto vedlejsi potrebuji pockat
> na ukonceni te hlavni a potom teprve spustit proceduru v te vedlejsi.
> Dost jsem si s tim uz hral (WaitForSingleObject ....), ale nehnu s
> tim.
Pokud obe aplikace pises ty, tak si zjisti handle spousteneho
programu, posli mu zpravu, ze ho spoustis z prvniho programu, ze
ma tedy cekat, pri ukonceni prvniho programu posli zpravu, ze ma
volne ruce. Pokud by to melo fungovat sitove :-), resil bych to asi
pres COM objekty.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
InterBase 6.0 for Linux
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.3.2000 19:01:18
On 11 Mar 00, at 17:58, Tomas Michal�k wrote:
> ve verzi 6 nebude. Mel by ale jit ulozit jako CHAR pole s collation
> OCTETS.
Hm, to neni moc sikovne. Jak se to deklaruje - jako CHAR(38) a
uklada se to jako retezec
'{0C7FF16C-38E3-11d0-97AB-00C04FC2AD98}' (jak si to poradi s
velkymi/malymi pismeny?), nebo jako CHAR(16) (binarni ulozeni)?
> > Mas prehled, jestli bude v IB defaultne take typ GUID, nebo se
> > bude muset nejak dodelavat?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
AsyncPro 2.5
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 12.3.2000 21:16:00
Hello All!
Monday, March 06, 2000 7:45 AM Roman Sladek wrote:
VM>> dialogu na zmenu konfiguracie zavieram porty a program chce citat
adresu
VM>> 0000004. :-(
VM>>
VM>> Konkretne je to v module AdPort.pas vo funkcii ComWindowProc hned na
> Stiahni si upgrade na 2.58. Mne to robilo podobne veci a uz nerobi :-))]
Stiahol som. A z fleku sa zacal spravat slusne. Diky.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
TDataset.Refresh
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 12.3.2000 21:25:38
Hello All!
Takze moj problem s 30 megovym PDOXUSRS.LCK k 15-kilovej databaze sa
nakoniec vyriesil tym, ze som tu databazu presunul na SQL servera.
Prekvapivo sa ziaden .LCK nevytvara :-) a aplikacia, ktora predtym na
kliknutie reagovala cca po 0.3-0.6 s. teraz ledva znatelne mrkne,
pravdepodobne najvacie zdrzanie je, ze pred akciou close/open davam
Screen.cursor:=crSQLWait; a potom zase vraciam crNormal. A mozem to opakovat
nielen 700, ale kludne aj 1500 krat!
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
transparentni form
[*] Hurricane <hurricane(zv)iol(tec)cz> - 12.3.2000 21:50:33
http://www.lawrenz.com/coolform/
je tam transparentni formular, memo a button a jedna pekna slecna ....
funguje dobre
----------------------------------
Hurricane
hurricane(zv)iol(tec)cz
http://web.telecom(tec)cz/LUNASoft
Medi Player
[*] Hurricane <hurricane(zv)iol(tec)cz> - 12.3.2000 21:57:58
No, zkus preinstalovat ten Media Player.
Me se takhle nechce spustit WirDosu CD Prehravac, tak sem si naprogramoval
vlastni s MediaPlayerem a chodi to OK.
----------------------------------
Hurricane
hurricane(zv)iol(tec)cz
http://web.telecom(tec)cz/LUNASoft
Minimalizace
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 12.3.2000 22:17:24
Zdravim,
z delphi 3 jsem byl zvykli pouzivat tuto proceduru:
procedure TForm2.FormResize(Sender: TObject);
begin
if WindowState = wsMinimized then Application.Minimize;
end;
ktera pri minimalizaci Form2 minimalizovala celou aplikaci i kdyz byl Form2 otevren ShowModal.
V delphi 5 mi to nejde !
Nemate nekdo podobne zkusenosti ? Nebo jak docilit minimalizace cele aplikace pri ShowModal ?
Diky Vlada
QR generovani sestav za behu z DBGridu
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 12.3.2000 22:33:56
Ahoj,
D4 St. a QR 3.0.5
snazim se napsat proceduru, ktera bude za behu generovat
jednoduche sestavy (bez dalsich uprav) primo z DBGridu.
Stahul jsem si z http://www.qusoft.com soubor
QuickReport Knowledge Base a podle neho ji vytvoril.
Vse se zda bez problemu, az na jednu kosmetickou vadu - tisne mi
to ob radek (mozna ob dva).
- vytvorim QRCreateList
- modifikuji TitleBand a pridam na nej dalsi QRLabel(y)
- modifikuji ColumnHeaderBand dle DBGridu
- modifikuji DetailBand dle DBGridu
- zjistim, zda vsechny sloupce DBGridu jsou vytvorene
a kdyz ne (tim, ze QRCreateList nastavuje sirku poli z
table/query a sirka jednotlivych sloupcu v DBGridu je
vetsinou mensi, vzikne prostor pro pridani dalsich poli)
tak pridavam v cyklu dalsi komponenty QRLabel do
ColumnHeaderBand a QRExp do DetailBand.
Nez pridam prvni komponentu QRExp, zustava radkovani sestavy
tak jak jej nastavim, ale pri pridani treba i jedine
komponenty QRExp, mi jako by tisknutou hodnotu pole
(QRExp.Value) ZALAMUJE a vysledny tisk je ob radek.
I kdyz DetailBand.Height vraci pokazde predem nastavenou
hodnotu.
Je zajimave, ze na ColumnHeaderBand je vse OK.
Uz nevim co s tim, mozna, ze jsem zapomnel nastavit nekterou
properities..
Celou proceduru vkladam na konec e-mailu.
(**** TADY JE NEKDE TA CHYBA ****)
with
TQRExpr(MyReport.Bands.DetailBand.AddPrintable(TQRExpr)) do
begin
Parent :=MyReport.Bands.DetailBand;
AlignToBand:=false;
AutoSize :=false;
AutoStretch:=false;
WordWrap :=false;
Width :=DbGrid1.Columns[I].Width;
Left :=X;
X :=Left + Width+ _Gap;
Alignment :=DbGrid1.Columns[I].Alignment;
Expression :='['+DbGrid1.Columns[I].FieldName+']';
if DbGrid1.Fields[I].DataType in
[ftFloat, ftCurrency] then Mask := Format_Real;
if DbGrid1.Fields[I].DataType in
[ftInteger] then Mask := Format_Int;
end;
Dekuji za vsechny podnety,
Jarek Uher
**************************************************************
pozn. ve slozenych zavorkach - Qusoft
procedure TFormVzorG.PopM_GeneratorTiskuClick(Sender:
TObject);
const
_Gap = 5;
_TitleBand_Height = 42;
_ColumnHeader_Height = 54; // 3 lines * 17 +1
_DetailBand_Height = 20;
_MaxPortrait = 992;
var
MyReport: TCustomQuickRep;
FieldList: TStringList;
I, X, Max_ColGrid, Max_ColReport, Max_Width : integer;
Tx : string;
begin
{ default the list to nil }
FieldList := nil;
FieldList := TStringList.Create;
// fill FieldList from DBGrid
for I := 0 to DbGrid1.FieldCount - 1 do
FieldList.Add(DbGrid1.Columns[I].FieldName);
{ Make sure the new report object is set to nil, otherwise the
QRCreateList function will not create it and you will get an access
violation}
MyReport := nil;
{ Make the call to create the report. This will create the report with
a Column Header band and a Detail band. You can customize the
report
before you call preview or print.}
QRCreateList(MyReport, Self, DBGrid1.DataSource.DataSet,
Caption, FieldList);
// modify TitleBand
MyReport.Bands.TitleBand.Height:=_TitleBand_Height;
with MyReport.Bands.TitleBand do
for I := 0 to ControlCount -1 do
if Controls[I] is TQRLabel then
with TQRLabel(Controls[I]) do
begin
Top := 0;
Font.Size:=10;
with RecINI do
Caption :=User.Jmeno+', '+User.Ulice+', '+User.Misto;
end;
// add QRLabel
Tx:=Caption;
MyReport.Bands.TitleBand.HasChild:=true;
with
TQRLabel(MyReport.Bands.TitleBand.AddPrintable(TQRLabel)) do
begin
Parent := MyReport.Bands.TitleBand;
Left := 20;
Top := 20;
AutoStretch:=true;
WordWrap :=false;
Caption := Tx;
Font.Size :=10;
Font.Style :=[fsBold];
end;
// modify ColumnHeaderBand
MyReport.Bands.ColumnHeaderBand.Height:=_ColumnHeader_Heig
ht;
X:=0;
with MyReport.Bands.ColumnHeaderBand do
for I := 0 to ControlCount -1 do
if Controls[I] is TQRLabel then
with TQRLabel(Controls[I]) do
begin
Width := DbGrid1.Columns[I].Width;
Left :=X;
X :=Left + Width+ _Gap;
Top :=0;
Height :=_ColumnHeader_Height;
Font.Size :=8;
AutoStretch:=false;
AutoSize :=false;
WordWrap :=true;
Width :=DbGrid1.Columns[I].Width;
Caption :=DbGrid1.Columns[I].Title.Caption;
Alignment :=DbGrid1.Columns[I].Title.Alignment;
Font.Style :=[fsBold];
Frame.DrawBottom:=false;
end;
// modify DetailBand
X:=0;
with MyReport.Bands.DetailBand do
for I := 0 to ControlCount -1 do
if Controls[I] is TQRExpr then
begin
with TQRExpr(Controls[I]) do
begin
Width := DbGrid1.Columns[I].Width;
Left :=X;
X :=Left + Width+ _Gap;
Alignment:=DbGrid1.Columns[I].Alignment;
if DbGrid1.Fields[I].DataType in
[ftFloat, ftCurrency] then Mask := Format_Real;
if DbGrid1.Fields[I].DataType in
[ftInteger] then Mask := Format_Int;
end;
end;
Max_Width:=X - _Gap;
Max_ColGrid :=DbGrid1.FieldCount;
Max_ColReport:=MyReport.Bands.ColumnHeaderBand.ControlCount;
if (Max_ColGrid > Max_ColReport) // all columns is not in report
AND (Max_Width < MyReport.Width-50) then
begin
X :=Max_Width+ _Gap;
MyReport.Bands.ColumnHeaderBand.HasChild:=true;
MyReport.Bands.DetailBand.HasChild:=true;
for I := Max_ColReport+1 to DbGrid1.FieldCount - 1 do
if (Max_Width + DbGrid1.Columns[I].Width) <
(MyReport.Width-50) then
begin
// Add next QRLabel
with
TQRLabel(MyReport.Bands.ColumnHeaderBand.AddPrintable(TQRL
abel)) do
begin
Parent := MyReport.Bands.ColumnHeaderBand;
Width := DbGrid1.Columns[I].Width;
Left :=X;
Top :=0;
Height :=_ColumnHeader_Height;
AutoStretch:=false;
AutoSize :=false;
WordWrap :=true;
Width :=DbGrid1.Columns[I].Width;
Caption :=DbGrid1.Columns[I].Title.Caption;
Alignment :=DbGrid1.Columns[I].Title.Alignment;
Font.Style :=[fsBold];
end;
// add next QRExpr
(**** TADY JE NEKDE TA CHYBA ****)
with
TQRExpr(MyReport.Bands.DetailBand.AddPrintable(TQRExpr)) do
begin
Parent :=MyReport.Bands.DetailBand;
AlignToBand:=false;
AutoSize :=false;
AutoStretch:=false;
WordWrap :=false;
Width :=DbGrid1.Columns[I].Width;
Left :=X;
X :=Left + Width+ _Gap;
// Height :=17;
// Top :=0;
Alignment :=DbGrid1.Columns[I].Alignment;
Expression :='['+DbGrid1.Columns[I].FieldName+']';
if DbGrid1.Fields[I].DataType in
[ftFloat, ftCurrency] then Mask := Format_Real;
if DbGrid1.Fields[I].DataType in
[ftInteger] then Mask := Format_Int;
(***** jen pro test *********)
Frame.DrawTop:=true;
Frame.DrawLeft:=true;
Frame.DrawRight:=true;
Frame.DrawBottom:=true;
Frame.Color:=clSilver;
(***** jen pro test *********)
end;
Max_Width:=X - _Gap;
end;
end;
MyReport.Bands.DetailBand.Height:=_DetailBand_Height;
MyReport.Width:=Max_Width;
// modify PaperSize
with MyReport do
begin
{Get the current papersize from the default printer and set the
report to use it}
with TQRPrinter.Create do
begin
Printerindex := -1;
MyReport.Page.PaperSize := PaperSize;
if Max_Width < _MaxPortrait
then MyReport.Page.Orientation := poPortrait
else MyReport.Page.Orientation := poLandscape;
Free;
end;
end;
// modify PageFooterBand
with MyReport.Bands.PageFooterBand do
for I := 0 to ControlCount -1 do
if Controls[I] is TQRExpr then
with TQRExpr(Controls[I]) do
begin // 123456
Tx:=Expression; // 'Page'+Pagenumber
Delete(Tx,2,4);
Insert('Strana ',Tx,2);
Expression:=Tx;
X:=Left;
end;
// add next QRLabel - current date
MyReport.Bands.TitleBand.HasChild:=true;
with
TQRLabel(MyReport.Bands.TitleBand.AddPrintable(TQRLabel)) do
begin
Parent := MyReport.Bands.TitleBand;
Left := X-20;
Top := 20;
AutoStretch:=true;
WordWrap :=false;
Caption := 'ze dne '+FormatDateTime('DD.MM.YYYY',Now);
Font.Size :=8;
end;
MyReport.PreviewModal;
MyReport.Free;
if FieldList <> nil then FieldList.Free;
DbGrid1.Refresh;
DbGrid1.SetFocus;
end;Content-Type v konferenci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.3.2000 22:54:52
From: Roman LISZKA <liszak(zv)usa.net>
> Vidim, ze s nastupem Microsoft Outlook Express 5.00.* (pravdepodobne se
> jiz prodalo takove mnozstvi Win2000) jiz firma M$ odstranila posilani
OE5 bezi i na W95 :-)
> priloh ale posila se vse primo jako HTML formatovany dokument, ale pro
> jistotu v hlavicce je:
> Content-Type: text/plain
Zvlastni, pokud nastavis "Odesilat zpravy jako prosty text" tak to funguje
spravne. V pripade zprav v (nesmyslnem) HTML formatu je pak v hlavicce:
Content-Type: multipart/alternative;
Textova cast zpravy ma hlavicku:
Content-Type: text/plain;
A HTML pak:
Content-Type: text/html;
> A otazka pro spravce, brojil jste proti priveskum mstnef (nebo jak se to
> jmenovalo) a tohle Vam pripada v poradku?
Osobne bych byl pro orezavani vsech priloh (vcetne HTML zprav), funguje to
tak i v jinych mail-listech.
Petr Vones, amatersky programator
Velikost souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.3.2000 23:03:15
From: Petr Reichl <reichl(zv)atlas(tec)cz>
> potrebuji ziskat presnou velikost souboru, ale funkce FileGetSize vraci
> nejake chybne cislo. Muzete mi poradit?
Ahoj,
Par prikladu mas tady:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\apr\19\dlfaaadx.htm
Petr Vones, amatersky programator
grabovani URL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.3.2000 23:03:29
From: Radoslav Krehl�k <heretic(zv)softok(tec)cz>
> Zkousim to jeste jednou, nikdo nevite jak v realnem case grabovat URL linky
> z MSIE/NC ? Treba to co umi CuteFTP a podobne programy.
Ahoj,
Ted uz asi tusim o co ti jde, ziskat URL z prave aktivniho okna prohlizece
jako to dela treba ICQ ? Jedna z moznosti je pres DDE, ale IE a NC to maji
pravdepodobne kazdy jinak. Pro IE viz odkaz:
http://support.microsoft.com/support/kb/articles/Q160/9/57.ASP
Petr Vones, amatersky programator
Listview umisteni ikon
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.3.2000 23:03:32
From: DiGi <DiGi(zv)MujMail(tec)cz>
> Hlavni problem (i s tim SetPosition) je ten, ze pri OwnerData se
> tyto parametry proste ignoruji... Kdyz svoje data nastoucham do
> ItemsListu v ListView tak funguje aspon ten SetPosition
Ahoj,
Spatne zpravy, ListView totiz nepodporuje SetPosition ve virtualnim rezimu.
Petr Vones, amatersky programator
zjistovani volnych domen CZ
[*] Petr Kro�a - 12.3.2000 23:57:51
Zdravim,
nevite nekdo, jak by sly z Delphi zjistovat volne domeny v TLD CZ ?
Nebo jak se obecne dotazuji organiazace typu NIC? Jak to maji udelane treba
domeny(tec)cz?
Diky
Petr Kroca
zjistovani volnych domen CZ
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.3.2000 00:18:42
From: Petr Kro�a <delphi.konference(zv)compact(tec)cz>
> nevite nekdo, jak by sly z Delphi zjistovat volne domeny v TLD CZ ?
Ahoj,
Treba pomoci WHOIS sluzby, viz priklad:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\jul\08\dlfaaacs.htm
Petr Vones, amatersky programator
Hromadny pristup k objektum
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 13.3.2000 07:19:21
> For x := 0 to ControlCount - 1 do
> If Controls[x] is TEdit then TEdit(Controls[x]).Width:=84;
>
> >
> > Na Formu mam umisteno napr. 10 x TEdit, pricemz pri vkladani na form
> > jsou jednotlive edity pojmenovany Edit1, Edit2 .... Jakym zpusobem
> > lze k temto jednotlivym TEditum pristupovat hromadne, kdyz
> u
> > vsech potrebuji udelat stejne nastaveni?
> > ...
> > ale spise to udelat takto
> >
> > For x:=1 to 10 do
> > Edits[x].Width:=84;
> >
> > Pro tento ucel jsem si nadefinoval pole, jehoz jednotlivym prvkum na
> zacatku
> > priradim Edity a potom pristupuji pomoci nej.
Kdysi jsem to delal taky pres pole. Pristup pres Controls (na
zacatku mailu) totiz v situaci, kdy tech editu je na formu vic a me
zajimaji jen nektere, vede k tomu, ze podminka v ifu se
zkomplikuje (je treba testovat Name, Tag apod.). Delat to pri
kazdem pristupu k editum (je-li to casto) muze dost zdrzovat.
O nejakem mechanismu v Delphi nevim.
David
Multilanguage aplikace
[*] martin.falta(zv)obi.de - 13.3.2000 08:23:05
Ahoj,
ja osobne, vsechny retezce ukladam do DLL knihoven a pokud si uzivatel vybere
jiny jazyk nez je nastaveny, pouze nahraji jinou knihovnu a zmeni popisky vsech
komponent.
Martin
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Optional Params v VB
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 13.3.2000 08:29:19
Ahoj,
protoze na muj dotaz ohledne funkce Copy v Excelu nebyl zadny
ohlas, zkusim to polozit obecneji:
Ve VB pro Excel (ale asi obecne) existuji, pokud jsem to dobre
pochopil, nepovinne parametry. Prikladem je treba metoda Copy v
syntaxi
Expression.Copy(Before, After)
kdy muze byt uveden pouze jeden z techto parametru. Ve VB se
to pouzije takto:
Worksheets("Sheet1").Copy after := Worksheets("Sheet3")
Ja bych ted rad totez zavolal pres OLE z Delphi. Jak?
David
Vicenasobna instance s prepnutim
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 13.3.2000 08:45:11
[P��loha v souboru: winmail.dat]
D5Prof
Ohlidat si vicenasobne sputeni programu umim, ziskam handle jiz spusteneho
okna a ukoncim podruhe spustenou aplikaci. ALE...
Chci se na aplikaci prepnout, coz zajistim prokazem
SetForegroundWindow(MujHandle). Kdyz ma vsak aplikace otevrene dalsi modalni
okno a je minimalizovana, prepne se prikaz na hlavni okno aplikace, ktere
vsak nemuzu ovladat, protoze n�kde je skryto modalni okno. Je to na
odstreleni aplikace.
Potrebuji neco na zpusob StaraAplication.UkazSe_tak jak si. :-)))))))
Doufam, ze jsem to dostatecne vysvetli. Myslim si, ze je to problem. ktery
trapi i ostatni.
Diky
Ing. Petr Svejda
software specialist
Velikost souboru
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 13.3.2000 08:52:25
Ahoj,
treba funkce FindFirst.
Ales
----- Original Message -----
From: Petr Reichl <reichl(zv)atlas(tec)cz>
To: ListServ - Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, March 12, 2000 3:17 PM
Subject: Velikost souboru
> Zdravim,
>
> potrebuji ziskat presnou velikost souboru, ale funkce FileGetSize vraci
> nejake chybne cislo. Muzete mi poradit?
>
> Preji prijemny den.
>
> Petr Reichl
> ---
> * E-mail: reichl(zv)centrum(tec)cz
> * PGP: support
> * ICQ: 56430979
> ---
>
RecordCount
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 13.3.2000 08:59:50
Nevim proc se BDE chova, tak jak se chova, ale obecne si myslim ze pro
zjisteni poctu vet je lepe pouzivat SELECT COUNT(*) nez RecordCount. Proc?
Protoze RecordCount fyzicky pocita pocet vet vracenych serverem a to u
vetsich dotazu muze zdrzovat. Zmineny SELECT je pro vetsi rozsahy dat
rychlejsi.
Jaromir Cermak
-----Original Message-----
From: Jan Fryscak [mailto:fryscak(zv)scio(tec)cz]
Sent: Friday, March 10, 2000 12:58 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RecordCount
Ahoj lidi,
nevite nahodou nekdo proc mi TQuery.RecordCount vraci -1 vzdy, kdyz dotaz
obsahuje pole vetsi nez 255 znaku? Pouzivam D4 a pres BDE se nativne
pripojuji k Oracle 8.1.5.
Diky
Honza
Platebni karty
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2000 09:08:22
>Ahoj,
>
>pokial to chces na registraciu tvojho SW uzivatelmi zo zahranicia, velmi
>dobry je www.regsoft.com Mozes sa tam zaregistrovat zdarma, a raz mesacne
ti
>poslu sek alebo priamo na tvoj ucet ... Tvoji zakaznici mozu platit ako
>chcu, kedykolvek, skadekolvek.
dalsi moznost:
RegNow - vyhoda spjate s WinFiles
ShareIt - nizka provize
V ceskych luzich a hajich nikdo.....
D. Toman
Aktualni znak
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 13.3.2000 09:17:44
Zdravim,
jak zjistit v TMemo aktualni znak na kterem stoji kurzor?==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.127 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
Optional Params v VB
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 13.3.2000 09:23:19
>
> Worksheets("Sheet1").Copy after := Worksheets("Sheet3")
>
> Ja bych ted rad totez zavolal pres OLE z Delphi. Jak?
Uz jsem na to prisel, je to:
E.WorkSheets['Sheet1'].Copy(After:=E.WorkSheets['Sheet3']);
David
Pretypovani objektu v zavislosti na jeho typu
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 13.3.2000 09:31:31
Ahoj,
mam MDI aplikaci, ve ktere mam dva druhy formularu TChildForm1 a TChildForm2. Obe tridy maji spolecne jen 4 atributy, ktere mohou byt pro kazdy objekt nastaveny rozdilne. Procedure 'Jmeno' predavam pomoci TSreen.ActiveForm aktualni child formular a pres nej potrebuji ziskat nebo nastavit hodnoty tech 4 spolecnych atributu. Kdych je ActiveForm TChildForm2 a pretypuji ho na TCholdForm1 tak se mi pouziji hodnoty z TChildForm1. Kdyz ho pretypuji na TChildForm2 tak to je v pohode. Prijde mi to celkem divny, protoze v ActiveForm by mel ukazovat na adresu v pameti a pretypovani predka na potomka by mi melo umoznit pristup na nove atributy a melo by byt jedno jestli je to TChildForm1 nebo TChildForm2. Nebo je to jinak ?
procedure Jmeno(Sender : TForm)
begin
if Sender is TFormChild1 then
with Sender as TFormChild1 do
kod;
else Sender is TFormChild2 then
with Sender as TFormChild2
stejny kod;
end;
Ales
----- Original Message -----
From: Martin �ajbik (Marcant)
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, March 10, 2000 1:34 PM
Subject: Re: Pretypovani objektu v zavislosti na jeho typu
Zalezi od toho, co presne ten kod vykonava. Ak pouziva iba vlastnosti a metody, ktore maju obidva typy spolocne, to znamena ktore maju odvodene od spolocneho predka (v tomto pripade tym predkom bude zrejme TForm - ak teda nie su obidve odvodene od nejakeho ineho formularu), tak staci na zaciatku jedno pretypovanie na toho spolocneho predka. Vysledny kod teda bude:
with Sender as TForm do
kod;
pripadne aj s podmienkou:
if Sender is TForm then
with TForm(Sender) do // toto je vraj optimalnejsie, ak si si isty ze Sender is TForm
kod;
----- Original Message -----
From: Ales Janda
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, March 10, 2000 9:01 AM
Subject: Pretypovani objektu v zavislosti na jeho typu
Zdravim vsechny
Mam nasledujici problem. V procedure potrebuju pretypovat objekt v zavislosti na jeho typu. Zatim to resim nasledujicim zpusobem
procedure Jmeno(Sender : TForm)
begin
if Sender is TFormChild1 then
with Sender as TFormChild1 do
kod;
else Sender is TFormChild2 then
with Sender as TFormChild2
stejny kod;
end;
ale zda se mi zbytecny opakovat stejny kod dvakrat. Nevi nekdo jak to vyresit lepe?
Diky za kazdy napad Ales
InterBase 6.0 for Linux
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 13.3.2000 09:59:22
Ahoj,
Zbysek Hlinka wrote:
> On 11 Mar 00, at 17:58, Tomas Michal�k wrote:
>
> > ve verzi 6 nebude. Mel by ale jit ulozit jako CHAR pole s collation
> > OCTETS.
>
> Hm, to neni moc sikovne. Jak se to deklaruje - jako CHAR(38) a
> uklada se to jako retezec
> '{0C7FF16C-38E3-11d0-97AB-00C04FC2AD98}' (jak si to poradi s
> velkymi/malymi pismeny?), nebo jako CHAR(16) (binarni ulozeni)?
char(16) binarni ulozeni, ALE stejne je to spatny, protoze jsem prosel
IB6 newsy a zjistil jsem, ze IB Client ma nejaky bug tykajici ukladani
CHAR poli s collation OCTETS - jeste v rijnu tvrdili, ze o tom vedi, ale
ze vzhledem k narocnosti reseni to vyresi az ve verzi po IB6 - to se
mozna ale zmenilo, kdovi ...
S pozdravem,
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
task bar
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.3.2000 10:15:31
Pouzij funkci
ShowWindow(handle, SW_HIDE)
D.
> ----------
> Ako sa da zakazat vykreslenie buttonu
> v task bare ked spustim program?
> Mam komponentu (Trayicon) ktora
> mi vytvori iconu v v task bare vedla hodin,
> ale na hlavnom task bare je stale zobrazene
> tlacidlo aktivneho programu.
> MessageBox a Beep
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 13.3.2000 09:51:23 -0000
Zdravim
Nevite prosim jde-li zobrazit Application.MessageBox bez pipnuti?
Diky
Tomas Bihary
Delphi 4 + ServiceApp
[*] Pavel Chaloupka <chaloupka(zv)mboxzn(tec)cz> - 13.3.2000 11:19:42
Zdravim,
nevi nekdo, jak se da ladit Service v D4? Je na to treba specialni debuger
nebo to jde nejak i v IDE?
Pavel Chaloupka
E-Mail: pavel(zv)chaloupka(tec)cz
WWW: www.chaloupka(tec)cz
V�voj SW (Windows NT, Linux, SQL Datab�ze, Internet)TDataset.Refresh
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.3.2000 11:51:57
On 12 Mar 00, at 21:25, Viliam Mlich wrote:
> Takze moj problem s 30 megovym PDOXUSRS.LCK k 15-kilovej databaze sa
> nakoniec vyriesil tym, ze som tu databazu presunul na SQL servera.
> Prekvapivo sa ziaden .LCK nevytvara :-) a aplikacia, ktora predtym na
> kliknutie reagovala cca po 0.3-0.6 s. teraz ledva znatelne mrkne,
> pravdepodobne najvacie zdrzanie je, ze pred akciou close/open davam
> Screen.cursor:=crSQLWait; a potom zase vraciam crNormal. A mozem to
> opakovat nielen 700, ale kludne aj 1500 krat!
No vidis, a takovych zprav se tu kolem tematu souborova vs SQL
databaze napsalo... :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
MSDE
[*] Lubo Fule <fule(zv)sct.sk> - 13.3.2000 12:05:26
Je to asi trochu offtopic, takze sorry...
Neviete, kde by som mohol zohnat kompletny popis ku konfiguracnemu suboru
(.ISS) pre instalaciu MSDE?
Vdaka
L.
Blikani pri prekreslovani
[*] Zak Robert <nrsys(zv)psn.sk> - 13.3.2000 12:08:57
Ahoj,
Chcem sa len spytat, podarilo sa ti nejak vyriesit ten problem s blikanim?
Robi mi to to iste, mam na TImage TLabel. Do konferencie sa neozval nikto,
ak mas nejaky napad, prosim ozvi sa.
Dik
Robo
-----P�vodn� spr�va-----
Od: jirpun(zv)post(tec)cz <jirpun(zv)post(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 10. marec 2000 8:38
Predmet: Blikani pri prekreslovani
>Zdravim vas a mam takovy problem:
>Situace:
>- mam formular s komponentou Image1 : TImage zarovnanou na celou plochu
formulare
>- na Image1.Canvas je nakreslen jakysi obrazek metodami TCanvas
>- na formulari jsou dale umisteny komponenty TLabel, TSpeedButton,
TButton - jsou umisteny pred Image1, takze jsou videt
>- v pravidelnych casovych intervalech, zhruba 10x za vterinu neco na
Image1.Canvas nakreslim metodami TCanvas
>
>Problem:
>- pri kazdem prekresleni objekty (TLabel, TSpeedButton) umistene pred
Image1 zablikaji
>- objekty TButton a TStaticText neblikaji
>- cili komponenty odvozene od TGraphicControl blikaji, komponenty odvozene
od TWinControl neblikaji
>- TLabel mohu nahradit TStaticText
>- cim ale nahradit TSpeedButton (chci mit skupiny tlacitek s vlastnosti
Down) ?
>- nebo da se blikani nejak jinak zabranit ?
>
>Nemam moc zkusenosti s grafikou v Delphi a budu vdecny za kazdou radu.
>
>Jirka
>
Aktualni znak
[*] Ren� Otisk - 13.3.2000 12:08:44
Hi,
Vyuzij SelStart a SelLength(tendle nazev si nejsem jisty, ale tak nejak)
Sroub
Zdravim,
jak zjistit v TMemo aktualni znak na kterem stoji kurzor?==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
==============================================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.127 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
Pretypovani objektu v zavislosti na jeho typu
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 13.3.2000 12:23:11
Co znamena, ze maju 4 spolocne atributy ?
Ak to znamena, ze kazdy z nich ma 4 atributy, ktore maju v kazdom z nich rovnake meno a typ, ale pritom su v kazdom z nich definovane samostatne napriklad:
type
TChildForm1 = class(TForm)
...
private
...
public
Atribut1: Typ1; Atribut2: Typ2; Atribut3: Typ3; Atribut4: Typ4;
...
end;
type
TChildForm2 = class(TForm)
...
private
...
public
Atribut1: Typ1; Atribut2: Typ2; Atribut3: Typ3; Atribut4: Typ4;
...
end;
tak ti ziadne pretypovanie nepomoze a spolocny kod nenapises (za urcitych okolnosti by to mohlo fungovat ale nie je to ciste a ani to neodporucam pretoze to obvykle vedie k Abstract Error alebo Access violation).
Ak vsak maju obidva formulare spolocneho predka, pripadne jeden z nich je odvodeny od druheho napriklad:
type
TChildForm0 = class(TForm)
...
private
...
public
Atribut1: Typ1; Atribut2: Typ2; Atribut3: Typ3; Atribut4: Typ4;
...
end;
type
TChildForm1 = class(TChildForm0)
...
type
TChildForm2 = class(TChildForm0)
...
alebo
type
TChildForm2 = class(TChildForm1)
...
tak staci pretypovat na toho spolocneho predka (ChildForm0 alebo ChildForm1) a napisat ten spolocny kod.
Dufam, ze to bolo z toho popisu dostatocne jasne - je to vlastne jeden zo zakladov OOP.
----- Original Message -----
From: Ales Janda
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, March 13, 2000 9:31 AM
Subject: Re: Pretypovani objektu v zavislosti na jeho typu
Ahoj,
mam MDI aplikaci, ve ktere mam dva druhy formularu TChildForm1 a TChildForm2. Obe tridy maji spolecne jen 4 atributy, ktere mohou byt pro kazdy objekt nastaveny rozdilne. Procedure 'Jmeno' predavam pomoci TSreen.ActiveForm aktualni child formular a pres nej potrebuji ziskat nebo nastavit hodnoty tech 4 spolecnych atributu. Kdych je ActiveForm TChildForm2 a pretypuji ho na TCholdForm1 tak se mi pouziji hodnoty z TChildForm1. Kdyz ho pretypuji na TChildForm2 tak to je v pohode. Prijde mi to celkem divny, protoze v ActiveForm by mel ukazovat na adresu v pameti a pretypovani predka na potomka by mi melo umoznit pristup na nove atributy a melo by byt jedno jestli je to TChildForm1 nebo TChildForm2. Nebo je to jinak ?
procedure Jmeno(Sender : TForm)
begin
if Sender is TFormChild1 then
with Sender as TFormChild1 do
kod;
else Sender is TFormChild2 then
with Sender as TFormChild2
stejny kod;
end;
Ales
Delphi 4 + ServiceApp
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2000 12:25:58
>Zdravim,
>
>nevi nekdo, jak se da ladit Service v D4? Je na to treba specialni debuger
>nebo to jde nejak i v IDE?
Kod vykonavany v Service muze vetsinou bezet jako obycejna aplikace - staci
tedy jej spustit jako App (podmineny preklad nebo musi program rozlisit typ
startu).
Ladit kod v rezimu Service snad jde jen remote debuggerem. Lze samozrejme
pouzivat metodu ladicich vypisu...
Zdravi
D. Toman
Blikani formulare
[*] jirpun(zv)post(tec)cz - 13.3.2000 12:39:25
Zobecnuji svuj problem, o kterem jsem psal minuly tyden.
Mam formular s komponentou TImage, na tuto komponentu kreslim jejimi metodami (LineTo(), Pixels[]:=, ...).
1. problem - pri kazdem prekresleni zablikaji komponenty TLabel a TSpeedButton umistene pred TImage
2. problem - pokud tento formular neni aktivni, ale je videt, pri prekresleni zablika cely formular (cela TImage)
Mozna je uvedeny postup kresleni v zadane nespravny, ale nevim proc a jak to udelat spravne?
Poradi nekdo? Predem dekuji.
Jirka
Pripojte se zdarma k internetu:
*** http://VOLNY.CZ
InterBase 6.0 for Linux
[*] Pavel Cisar \(Inprise CZ\) <pcb(zv)atlas(tec)cz> - 13.3.2000 12:58:32
Haj hou!
Ne, ale muzes pouzit char nebo 2xInt64.
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
> Mas prehled, jestli bude v IB defaultne take typ GUID, nebo se
> bude muset nejak dodelavat?
MSDE
[*] Martin Koran <komar(zv)komar(tec)cz> - 13.3.2000 12:59:10
Ahoj,
> Je to asi trochu offtopic, takze sorry...
> Neviete, kde by som mohol zohnat kompletny popis ku
> konfiguracnemu suboru
> (.ISS) pre instalaciu MSDE?
http://support.microsoft.com/support/kb/articles/Q233/3/12.ASP
S pozdravem
Martin Koran
--------------------------------------------
Martin Koran - KOMAR
Hilbertova 68
440 01 LOUNY
Czech Republic
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (395) 42 33 72
mailto:komar(zv)komar(tec)cz
http://www.komar(tec)cz kod
[*] Macko Peter <macko(zv)axa.sk> - 13.3.2000 13:07:42
Zdravim,
otvoril som databazu PC Translatora (dbf subor - napr. v ACCESSe). Prvy
stlpec obsahuje anglicke slovicka, druhy slovenske. Druhy je necitatelny,
ale podla mna to nie ziaden pokus o znemoznenie citania slovnika, ale iba o
ine kodovanie znakov. Nieco podobne ako UNICODE. Mozno to aj je UNICODE, ale
neviem to dekodovat, dajakym standardnym sposobom. Neviete co je to za kod a
ako na to?
ASCI ?CODE
Napr.: a ...... x
b ...... {
c ...... |
d ...... ~
ch ...... �
(ch je tiez jedno pismeno a teda jeden kod.)
Peter Macko
Aktualni znak
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 13.3.2000 13:16:23
> jak zjistit v TMemo aktualni znak na kterem stoji kurzor?
malo by to ist takto:
Memo1->SelLength=1;
ShowMessage(Memo1->SelText);
Memo1->SelLength=0;OT:struktura mp3
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 13.3.2000 13:20:26
Caute All!
Potreboval by som pre kamarata ziskat strukturu suboru
MP3. A tiez by bodol popis algorytmu na dekodovanie.
Neviete ma niekto kopnut spravnym smerom ?
Sorry za OT.
Vdaka.
/LH
Aktualni znak
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 13.3.2000 13:46:05
Ahoj,
Ren� Otisk wrote:
> Hi,
> Vyuzij SelStart a SelLength(tendle nazev si nejsem jisty, ale tak nejak)
> Sroub
pokud te opravdu zajima ZNAK a ne pozice, pak je tohle presnejsi, protoze
SelStart spolu se SelLength nepopisuji nutne pozici kurzoru
chr := Memo1.Lines[Memo1.CaretPos.Y][Memo1.CaretPos.X+1];
> jak zjistit v TMemo aktualni znak na kterem stoji kurzor?
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
OT: Command Line mailer
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 13.3.2000 14:07:54
Preji pekny den,
tlumocim tento dotaz meho kamarada:
neznate nahodou nejakou utilitu, ktera by umela odeslat e-mail z prikazove
radky, ale pod WFW !?
Ja mam pro W95, ale potreboval bych pro WFW. Potrebuju to pro batch, ktery
mi spousti na stanicich antivir a informuje me o event. nalezenych nakazach.
Za pripadne namety predem dekuji.
Jan Naiser.
Seznam MS-SQL serveru
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 13.3.2000 14:32:44
Nev�te jak ziskat seznam MS-SQL serveru v siti?
ing. Michal K�s
TANGO software s.r.o.
pokladn� syst�my pro restaurace a obchody
Krymsk� 42
360 01 Karlovy Vary
017/32 264 68, 32 258 86
kus(zv)tangosw(tec)cz
www.tangosw(tec)cz
QuickReport - zkraceni textu
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 13.3.2000 15:06:13
Zkus pouzit BeforePrint sestavy nebo Bandu, nebo OnPrint QRLabelu.
Jaromir Cermak
-----Original Message-----
From: Petr Reichl [mailto:reichl(zv)atlas(tec)cz]
Sent: Saturday, March 11, 2000 8:20 PM
To: ListServ - Delphi
Subject: QuickReport - zkraceni textu
Zdar,
potrebuji pri nacitani dat do sekce Detail v QuickReportu zkratit napr.
Label1 (neznam presne oznaceni) na 10 mist a pridat 3 tecky. V jake udalosti
odchytim nacitani dat? Zkousel jsem OnNeedData, ale neslo to. Muzete mi
poradit?
Preji prijemny den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
kod
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 13.3.2000 15:52:17
je to kodovane - prehazene ascii znaky
staci udelat konverzni tabulku pro jednotlive znaky
----- P�vodn� zpr�va -----
Od: Macko Peter <macko(zv)axa.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 13. b�ezna 2000 13:07
P�edm�t: kod
Zdravim,
otvoril som databazu PC Translatora (dbf subor - napr. v ACCESSe). Prvy
stlpec obsahuje anglicke slovicka, druhy slovenske. Druhy je necitatelny,
ale podla mna to nie ziaden pokus o znemoznenie citania slovnika, ale iba o
ine kodovanie znakov. Nieco podobne ako UNICODE. Mozno to aj je UNICODE, ale
neviem to dekodovat, dajakym standardnym sposobom. Neviete co je to za kod a
ako na to?
ASCI ?CODE
Napr.: a ...... x
b ...... {
c ...... |
d ...... ~
ch ...... �
(ch je tiez jedno pismeno a teda jeden kod.)
Peter Macko
struktura mp3
[*] DiGi <DiGi(zv)MujMail(tec)cz> - 13.3.2000 16:12:13
http://www.mpegx.com/
Nekde tam je Delphi player (vcetne zdrojaku) nebo primo nejaky free
knihovny...
Dalsi free knihovny byly na www.mp3.com (nebo org nebo tak nejak
podobne)... staci hledat a hledat...
--- DiGi(zv)MujMail(tec)cz ---------------------------------------------
-------------------------------------------- http://www.qr(tec)cz ---
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Lubos Hubka
Sent: Monday, March 13, 2000 1:20 PM
To: delphi-l(zv)fwd(tec)cz
Subject: OT:struktura mp3
Caute All!
Potreboval by som pre kamarata ziskat strukturu suboru
MP3. A tiez by bodol popis algorytmu na dekodovanie.
Neviete ma niekto kopnut spravnym smerom ?
Sorry za OT.
Vdaka.
/LH
Antwort: Ikonky u RxMenu
[*] martin.falta(zv)obi.de - 13.3.2000 16:28:22
Ahoj,
musis napsat obluhu udalosti GetImageIndex.
Napr. takto (z dema Rx):
procedure TMainForm.MainMenuGetImageIndex(Sender: TMenu; Item: TMenuItem;
State: TMenuOwnerDrawState; var ImageIndex: Integer);
begin
if Item.Tag >= 0 then ImageIndex := Item.Tag;
end;
Martin
Von: hurricane(zv)iol(tec)cz am 09.03.2000 14:54 GMT
Bitte antworten an delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie: (Blindkopie: Martin Falta/OBI/CZ)
Thema: Ikonky u RxMenu
Zdravim
Chtel bych mit menu i s ikonkama. Vim, ze to umi RxMenu, ale do ted
semnezjistil, jak se to dela. Na Form sem si dal ImageList, nahral sem do
nej ikonky. U RxMenu sem nastavil Images na ImageList 1. (vcelku logicke)
Ale nikde sem nenasel, neco jako ImageIndex, proste nevim,kde si mam
nastavit, jaka ikonka se zobrazi. V demu jim to funguje, ale me ne. Nevite
kde delam chybu?
----------------------------------
Hurricane
hurricane(zv)iol(tec)cz
http://web.telecom(tec)cz/LUNASoft
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.IB5.5: User is god?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.3.2000 16:46:32
Preji vsem pekneho dne,
potrebuji, aby na klientovi byl krome jineho ISQL. Tento programek
vsak umozni na serveru uzivateli zcela v pohode vytvorit si
databazi, dokonce na libovolnem miste na disku, pokud zna jeho
strukturu.
Jak omezit uzivateli IB prava, aby mohl pouze vytvaret a mazat
data v databazi, nikoliv vsak aby mohl mazat ci vytvaret databazi?
Diky za pripadne odpovedi.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Platebni karty
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.3.2000 17:43:54
Puvodni zprava, kterou napsal Kosta dne 11 Mar 00,:
> Skromny dotaz, ma tu nekdo realne skusenosti s prijimanim plateb ze
> zahranici pres platebni(kreditni) karty?
1. Je to off-topic, takze by mel byt oznaceny v subjektu "OT".
2. Napis mi na muj mail (ne do konference), co potrebujes...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano