Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT Fw: Obsazeni mista souborem
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.6.2001 08:51:35
> Ahoj,
>
> podle me ten odhad zabrane velikosti na Novellu jeste narazi na sub-
> alokaci; vetsina programu, ktere se pokouseji odhadnout zabrane misto
> na novellovskem disku, dostane od Windows informaci, ze jeden cluster
> je (asi?) 64 kB, takze pak ukazuji silne nadhodnocena cisla. Meli
> jsme program, ktery dokonce kdyz (zcestne) usoudil, ze se tam
> nevejde, ani nedal uzivateli moznost v instalaci pokracovat - brrr.
Ono zjistovani fyzicke struktury na sitovych discich je vzdy pofiderni.
Pokud dany redirektor primo nepodporuje funkce, ktere zverejnuji tyto
informace (tj nejde o M$ redirektor) pak je docela mozne, ze jedine co se da
zjistit je volne misto na disku.
D. Toman
adresar windows - jeste jednou
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.6.2001 08:56:08
> Z. Hlinka napsal, ze si Delphi z unity vezmou jen ten kod, ktery je
potreba
> a zbytek ignoruji. To by pak znamenalo, ze muzu JCL pouzit bez problemu, o
> kterych jsem psal. Asui pred pul rokem jsme se o tomto problemu bavili a
> IMHO jsme se shodli na tom, ze si kompilator vezme i nepotrebny kod. Jak
to
> teda je?
Co takhle se po kompilaci podivat o kolik se Ti zvetsil EXE file? Bude hned
patrne jestli se prilinkovala cela ta unita (pripadne jeste neco dalsiho)
nebo jen usek kodu odpovidajici pouzitym funkcim.
D. Toman
QReport.PrinterSetup
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.6.2001 09:41:51
Asi te moc nepotesim
1. Budes si potrebovat napsat vlastni Preview.
2. budes si muset napsat vlastni printer setup
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.6.2001 Jiri Novotny:
> Ahoj!
> Pri seznamovani s QReportem jsem narazil na zrejme trivialni vec,
> kterou ale nedovedu vyresit. Na formulari mam button pro tisk sestavy
> a chtel bych, aby to fungovalo tak, ze po kliknuti na tento button
> se nejprve objevi dialogove okno pro vyber tiskarny a teprve az
> uzivatel klikne v tomto dialogu na OK, se spusti tisk. Ale kdyz
> klikne na Storno, tak aby tisk neprobehl. A tento posledni problem
> nedokazu rozlousknout, nevim, jak se pri pouziti QReport.PrinterSetup
> pozna, ze uzivatel kliknul na Storno. Chybi mi tam neco podobneho
> jako Execute u "klasickeho" PrintDialogu. Poradi mi nekdo?
> Jirka.MemoryTable
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.6.2001 09:54:38
bud pouzij RXMemorytable z RX komponent nebo kbMemoryTable, najdes ji
na http://delphi.e-indexit.com/
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.6.2001 Jon�# Mari�n:
> Ahoj,
> hledam MemoryTable komponentu, ktera by byla odvozena od TDataset,
> nepotrebovala by BDE, zadne dodatecne DLL knihovny, mela by zdrojaky a
> byla by free. Nepotrebuji zadne indexy, filtry ani zadne specialitky.
> Staci mi jen First, Next, Prior, Last, Eof, Bof, FieldByName a nacist
> do ni data z jineho TDataset. Zkuste mi nejakou doporucit.
> Dekuji
> Marian Jonas
adresar windows - jeste jednou
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 22.6.2001 09:58:08
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> je to tak jak psal Zbysek, kompilator (presneji receno linker) do
vysledneho
> souboru da jen to co se odnekud vola.
Myslim ze to neni za kazdych okolnosti pravda. Niektore veci (ale nezistoval
som ktore) linker skutocne naflaka do projektu zbytocne. Napriklad
konstatnty typu array of xxx. Ked mam definovanu takuto konstanu v extra
unite a ked tu unitu iba prilinkujem do projektu tak vysledny exe obsahuje
aj pri zapnutej optimalizacii a vypnutych debug info danu nikde nepouzitu
konstanu! Takze je pravdepodobne ze bude linkovat aj dalsie zbytocnosti.
Takto vypada skusobna unita:
unit UnitXXXX;
interface
const
XXXXXXXX: array[1..12] of String = (
'xxxxxxxxx', 'yyyyyyyyy', 'xxxcccvvv', 'xxxcccvvv',
'alfa', 'xor', 'mor', 'bor',
'dxxxcccvvv', 'xxxcccvvv', 'ix', 'vicdksksjaja');
implementation
end.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
komponenty od TMS
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 22.6.2001 10:07:50
ahoj,
nemate nekdo zakoupene komponenty od TMS? Potreboval bych vedet, jestli je mozne komponenty treba koupit samostatne. 125 USD za cely balik si nemohu dovolit (pro svuj freeware :)). Mam zajem maximalne o 2komponenty se zdroji, na jejich webu se moc nevyznam :(
Diky MilanC, D5 Ent
MDI
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 22.6.2001 10:24:15
Ahoj,
mam MDI aplikaci. Kdyz zminimalizuju okno a v tom okne nastane nejaka
udalost, tak se obnovi.
Pritom bych potreboval, aby to okno zustalo zminimalizovano. Nevite jak doho
docilit.
Diky MOC.
Zahada nespustitelneho programu
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 22.6.2001 10:37:55
Zdravim vsechny!
Narazil jsem na jednu zahadu a nevim si s tim rady. Prosim poradte.
Distribujeme vlastni aplikaci. Je MDI, pracuje s HTMLtexty a nektere
informace jsou ulozeny v paradox tabulkach. K tabulkam program pristupuje
pres BDE. Instalacni program aplikaci kompletne nainstaluje vcetne BDE a
jeho konfigurace (instalace i pozna zda je uz BDE nainstalovano a prepisuje
pouze starsi verze ovladacu a knihoven). Do tedka nebyly zadne problemy u
uzivatelu vyjma interakce nasi aplikace s jinymi softy pouzivajici BDE, to
se ale resilo individualne s kazdym uzivatelem a vyresilo.
Ted se u nekterych uzivatelu objevil problem, ze po uspesne instalaci
spustili program chvilku bezely presipaci hodiny a pak nic program se
nerozjel, zadna hlaska ani zatuhnuti nic. Objevuje se to na ruznych windows
95, 98 i 98 SE, take na win2000 (jeden uzivatel rikal, ze na jednom PC s win
ME to jede a na jinem s win 2000 ne).
Program je delan v D5. Instalacni program je udelan v Eschalon setupu. Na PC
mam Win NT 4.0 CZ.
Nevite nekdo, cim to muze byt, nesetkali jste se s tim. U nas takovou
situaci nejsem schopny na zadnem pocitaci navodit, vse funguje OK.
Predem dik za kazdou pomoc.
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
MemoryTable
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.6.2001 10:53:40
Ano, myslel jsem TRxMemoryData
A jinak kbmemTable to BDE skutecne nepotrebuje.
Je odvozena od TDataset viz kbMemTable.PAS:
TkbmCustomMemTable = class(TDataSet)
Jediny odkaz na BDE je v kbmMemTableDesForm.pas.
Pisu o kbMemTable v2.52i
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.6.2001 Pavol Kaka�ka:
> To bol asi preklep, autor zrejme myslel TRxMemoryData
> From: "Jon�# Mari�n" <Jonas(zv)komercpoj(tec)cz>
>> RXMemoryTable i kbMemoryTable jsou odvozeny od TDBDataset -
>> takze pouzivaji BDE, ja potrebuju primo odvozenou od TDataset.
QReport.PrinterSetup
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 22.6.2001 11:05:40
Je to dira, kterou zalepili tak, ze vlastnost Tag u QReportu
je nastavena na 1 nebo 0 podle toho, zda byl dialog pro
print setup potvrzen nebo stornovan (ev. opacne-vyzkousej).
Martin
> Ahoj!
>
> Pri seznamovani s QReportem jsem narazil na zrejme trivialni vec,
> kterou ale nedovedu vyresit. Na formulari mam button pro tisk sestavy
> a chtel bych, aby to fungovalo tak, ze po kliknuti na tento button
> se nejprve objevi dialogove okno pro vyber tiskarny a teprve az
> uzivatel klikne v tomto dialogu na OK, se spusti tisk. Ale kdyz
> klikne na Storno, tak aby tisk neprobehl. A tento posledni problem
> nedokazu rozlousknout, nevim, jak se pri pouziti QReport.PrinterSetup
> pozna, ze uzivatel kliknul na Storno. Chybi mi tam neco podobneho
> jako Execute u "klasickeho" PrintDialogu. Poradi mi nekdo?
>
> Jirka.TDBLookupComboBox
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 22.6.2001 11:11:23
Ahoj,
pouzivam komponentu TDBLookupComboBox a potreboval bych si
sam vykreslovat ten text, nebo jen zmenit barvu casti textu,
Vybira se tam text typu A - Anol N - Ne atd,
Ruzne mnoziny a ja bych potreboval aby ta prvni cast po pomlcku
byla nejak rozumne zvyraznena. Nevite nekdo o nejake jednoduche
moznosti.
Diky
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
QReport.PrinterSetup
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 22.6.2001 09:17:47 met-1
Ahoj!
Pri seznamovani s QReportem jsem narazil na zrejme trivialni vec,
kterou ale nedovedu vyresit. Na formulari mam button pro tisk sestavy
a chtel bych, aby to fungovalo tak, ze po kliknuti na tento button
se nejprve objevi dialogove okno pro vyber tiskarny a teprve az
uzivatel klikne v tomto dialogu na OK, se spusti tisk. Ale kdyz
klikne na Storno, tak aby tisk neprobehl. A tento posledni problem
nedokazu rozlousknout, nevim, jak se pri pouziti QReport.PrinterSetup
pozna, ze uzivatel kliknul na Storno. Chybi mi tam neco podobneho
jako Execute u "klasickeho" PrintDialogu. Poradi mi nekdo?
Jirka.MemoryTable
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 22.6.2001 11:28:24
To bol asi preklep, autor zrejme myslel TRxMemoryData
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
----- Original Message -----
From: "Jon�# Mari�n" <Jonas(zv)komercpoj(tec)cz>> RXMemoryTable i kbMemoryTable jsou odvozeny od TDBDataset -
> takze pouzivaji BDE, ja potrebuju primo odvozenou od TDataset.
>
> Marian Jonas
QReport.PrinterSetup
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 22.6.2001 11:28:30
QuickRep.Tag := 1;
QuickRep.PrinterSetup;
if QuickRep.Tag = 0 then QuickRep.Print;
Je to tam opravdu vyresene vylozene blbe. Navic to nefunguje u
QRCompositeReport.
end ohekzeh minarp a mevardzop S
arebmehcS naliM .rDCP
ERAWTFOSSIM
444449/8060 .let
zc.erawtfossim.www\\:ptth
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jiri Novotny
> Pri seznamovani s QReportem jsem narazil na zrejme trivialni vec,
> kterou ale nedovedu vyresit. Na formulari mam button pro tisk sestavy
> a chtel bych, aby to fungovalo tak, ze po kliknuti na tento button
> se nejprve objevi dialogove okno pro vyber tiskarny a teprve az
> uzivatel klikne v tomto dialogu na OK, se spusti tisk. Ale kdyz
> klikne na Storno, tak aby tisk neprobehl. A tento posledni problem
> nedokazu rozlousknout, nevim, jak se pri pouziti QReport.PrinterSetup
> pozna, ze uzivatel kliknul na Storno. Chybi mi tam neco podobneho
> jako Execute u "klasickeho" PrintDialogu. Poradi mi nekdo?
None
[*] Lubos Daniel <ldaniel(zv)gymmt.sk> - 22.6.2001 11:30:53
Ahoj.
Robim program, ktory skopiruje subor a potom ho chce znovu nacitat (ten
zapisany), aby som sa uistil, ze povedzme nie je zla disketa. Lenze windows
si to drzi v pamati a necita to znovu z tej diskety, ale len z pamate.
Nevie mi niekto poradit ako na to, aby som ten subor skutocne nacital?
Lubos
TDBLookupComboBox
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 22.6.2001 11:33:12
> pouzivam komponentu TDBLookupComboBox a potreboval bych si
> sam vykreslovat ten text, nebo jen zmenit barvu casti textu,
> Vybira se tam text typu A - Anol N - Ne atd,
> Ruzne mnoziny a ja bych potreboval aby ta prvni cast po pomlcku
> byla nejak rozumne zvyraznena. Nevite nekdo o nejake jednoduche
> moznosti.
Pouzi metodu Canvas.TextOut {vykresli text podla zadanych parametrov} v
OnCustomDraw. Priklady najdes v Delphi5\Samples alebo vo VCL.
Pavol Kakacka
kasix(zv)atlas(tec)cz
MemoryTable
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 22.6.2001 10:42:36
Ahoj,
hledam MemoryTable komponentu, ktera by byla odvozena od TDataset,
nepotrebovala by BDE, zadne dodatecne DLL knihovny, mela by zdrojaky a
byla by free. Nepotrebuji zadne indexy, filtry ani zadne specialitky.
Staci mi jen First, Next, Prior, Last, Eof, Bof, FieldByName a nacist
do ni data z jineho TDataset. Zkuste mi nejakou doporucit.
Dekuji
Marian Jonas
MemoryTable
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 22.6.2001 11:45:43
> RXMemoryTable i kbMemoryTable jsou odvozeny od TDBDataset -
> takze pouzivaji BDE, ja potrebuju primo odvozenou od TDataset.
V RxLib jsou dve pametove tabulky. RxMemoryTable pouziva BDE,
RxMemoryData nikoli. Tak ji zkus.
David Lebeda
OT: Acces 2000 Nastaveni parametru
[*] �EZN��EK David - 22.6.2001 11:54:25
Ahoj *.*
Chci se zeptat jestli nahodou nekdo nevi jak nastavit urcity parametr v
Accesu 2000 DAO 3.6.
Jedna se konkretne o parametr 'Je nutno zadat' pro vsechny druhy poli
krome AutoIncrement.
Default je nastaveny na 'ne'. Jde to nejak zmenit ???? A jestli ano tak
kde ???? ............... Reznicek David ...............
............... reznicek(zv)jakl(tec)cz ............
............... www.gag.virt(tec)cz ...............
_____
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG ( www.grisoft(tec)cz
<http://www.grisoft(tec)cz> ).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
MemoryTable
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 22.6.2001 11:54:11
> RXMemoryTable i kbMemoryTable jsou odvozeny od TDBDataset -
> takze pouzivaji BDE, ja potrebuju primo odvozenou od TDataset.
>
TRxMemoryData component
Unit
RxMemDS
Description
RXLib 2.60 new component. This is a memory table that does'nt need nor use
the BDE nor the DBClient DLL.
Delphi 6
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.6.2001 12:09:34
Ahoj,
dostal se mi do ruky subj., takze ho testuji. Prvni, co me
zaskocilo, je priserna nenazranost pameti IDE. Nemeril jsem to ale
baj ocko odhaduji, ze spotrebuje asi o ctvrtinu az tretinu vic pameti
nez D5. Holt cena za dalsi komfort, ktery v D6 je. Takze prestoze
je minimalni pamet udavana na 64 MB, myslim, ze pod 128 MB
nema smysl jit, rozumnou velikost vidim az u 256 MB (upgradujte
nekdo honem Lokalizator, at si mohu dokoupit pamet :).
Tak pro zajimavost, pouhy start D6E (W2000) mi spolkne nejmene
30 MB pri jednom oteviranem projektu, 37 MB pri otevreni 17
projektu Lokalizatoru. Hromadna kompilace 17 soucasne
otevrenych projektu Lokalizatoru spolkne dalsich cca 200 MB ani
nemrkne.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TDBLookupComboBox
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 22.6.2001 12:13:24
> > pouzivam komponentu TDBLookupComboBox a potreboval bych si
> > sam vykreslovat ten text, nebo jen zmenit barvu casti textu,
> > Vybira se tam text typu A - Anol N - Ne atd,
> > Ruzne mnoziny a ja bych potreboval aby ta prvni cast po pomlcku
> > byla nejak rozumne zvyraznena. Nevite nekdo o nejake jednoduche
> > moznosti.
>
> Pouzi metodu Canvas.TextOut {vykresli text podla zadanych parametrov} v
> OnCustomDraw. Priklady najdes v Delphi5\Samples alebo vo VCL.
To jsem chtel, ale nejak jsem tam tu udalost nenasel
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
MemoryTable
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 22.6.2001 11:20:21
RXMemoryTable i kbMemoryTable jsou odvozeny od TDBDataset -
takze pouzivaji BDE, ja potrebuju primo odvozenou od TDataset.
Marian Jonas
ing. Jan Fiala napsal:
>bud pouzij RXMemorytable z RX komponent nebo kbMemoryTable, najdes ji
>na http://delphi.e-indexit.com/
>TDBLookupComboBox
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 22.6.2001 12:26:38
> > Pouzi metodu Canvas.TextOut {vykresli text podla zadanych parametrov} v
> > OnCustomDraw. Priklady najdes v Delphi5\Samples alebo vo VCL.
>
> To jsem chtel, ale nejak jsem tam tu udalost nenasel
No vidis, to som si nevsimol. ;-) Tak to budes musiet prepisat metodu
"Paint" a to farebne kreslenie tam doplnit. Hold bude to musiet byt podedena
komponenta. Alebo sa pozri po nejakej komponente na Netu
Pavol Kakacka
kasix(zv)atlas(tec)cz
Delphi 6
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 22.6.2001 12:46:13
Take jsem jiz mel tu cest.
Testoval jsem integrovane komponenty pro pripojeni k mySQL serveru. Nemel
jsem k testovani moc casu, ale po 2 hodinach se mi to nepodarilo rozchodit.
Tyto komponenty umoznuji nastavit:
IP adresu mySQL serveru
jmeno db
login
passwd
Kdyz jsem to vse korektne nastavil, tak mi test pripojeni (a nasledne i
zkompilovana aplikace) rvaly chybovou hlasku, ze mam spatny login/password).
Samozrejme, ze to nebyla pravda. Korektonost udaju jsem si overoval ZEOS
komponentami v D5 a mySQL adminem.
Dokonce, kdyz jsem jako IP adresu serveru uvedl absolutni nesmysl, napr.
jfkhsdj.jkhds.jsdhsjdh, tak mi neustale tvrdil, ze mam spatny login/passwd.
Jedine, co jsem nikde nemohl nastavit bylo cislo portu, na kterem mySQL
bezi.
No chlapci v Borlandu se moc nevytahli.........
tomas
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zbysek Hlinka
> Sent: Friday, June 22, 2001 12:10 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Delphi 6
>
>
> Ahoj,
>
> dostal se mi do ruky subj., takze ho testuji. Prvni, co me
> zaskocilo, je priserna nenazranost pameti IDE. Nemeril jsem to ale
> baj ocko odhaduji, ze spotrebuje asi o ctvrtinu az tretinu vic pameti
> nez D5. Holt cena za dalsi komfort, ktery v D6 je. Takze prestoze
> je minimalni pamet udavana na 64 MB, myslim, ze pod 128 MB
> nema smysl jit, rozumnou velikost vidim az u 256 MB (upgradujte
> nekdo honem Lokalizator, at si mohu dokoupit pamet :).
>
> Tak pro zajimavost, pouhy start D6E (W2000) mi spolkne nejmene
> 30 MB pri jednom oteviranem projektu, 37 MB pri otevreni 17
> projektu Lokalizatoru. Hromadna kompilace 17 soucasne
> otevrenych projektu Lokalizatoru spolkne dalsich cca 200 MB ani
> nemrkne.
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
> ---
> Poichozi zprava neobsahuje viry.
> Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.262 / Virova baze: 132 - datum vydani: 12.6.2001
>
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virova baze: 132 - datum vydani: 12.6.2001
Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.6.2001 12:49:12
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> je minimalni pamet udavana na 64 MB, myslim, ze pod 128 MB
> nema smysl jit, rozumnou velikost vidim az u 256 MB (upgradujte
Ahoj,
tohle je ale rozumna velikost pameti pro pocitac ktery pouzivas na vyvoj
obecne, zvlast kdyz jsou ted pameti relativne levne.
> Tak pro zajimavost, pouhy start D6E (W2000) mi spolkne nejmene
> 30 MB pri jednom oteviranem projektu, 37 MB pri otevreni 17
Dobre vis ze to co ukazuje Task Manager je blbost ;-) Minimalizuj Delphi IDE a
podivej se co to pak bude ukazovat. Nebo si spust Delphi s parametrem -hm.
> projektu Lokalizatoru. Hromadna kompilace 17 soucasne
> otevrenych projektu Lokalizatoru spolkne dalsich cca 200 MB ani
Tohle je klasicky problem s cachovanim DCU ktere je pravda prilis agresivni.
Tim ze pro project group neni spolecne nastaveni nelze sdilet DCU pro spolecne
unity, protoze kazdy projekt muze mit jine nastaveni prekladace a tudiz
odlisne DCU.
Petr Vones, amatersky programator
OT DBF -> IB bez BDE
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.6.2001 12:53:21
Nejnovejsi verze Tdbf http://tdbf.casdb.com/ by to mela umet
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.6.2001 Lauko �tefan:
> mam jeden trivialny problem. Potreboval, by som presypat data z DBF tabulky
> verzie FOX26 do IB-firebird. Skusal som niekolko verzii TDBF funguje to ale
> nenacita memo. Indexi nepotrebujem len ciste data. Ma to uz niekto vyriesene
> a pomohol by mi ? Nechcel by som kvoli tomu instalovat BDE jedna sa o
> niekolko tabuliek a jednorazovy presun. Pripadne odkaz na spravnu verziu
> TDBF ktora pracuje aj s FOX26 .None
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.6.2001 12:55:52
>
> Robim program, ktory skopiruje subor a potom ho chce znovu nacitat (ten
> zapisany), aby som sa uistil, ze povedzme nie je zla disketa. Lenze
windows
> si to drzi v pamati a necita to znovu z tej diskety, ale len z pamate.
> Nevie mi niekto poradit ako na to, aby som ten subor skutocne nacital?
>
mozna by pomohlo otevrit file pomoci CreateFile() a nastavit
FILE_FLAG_NO_BUFFERING
vice viz Help
D. Toman
OT DBF -> IB bez BDE
[*] Lauko #tefan <laukosw(zv)naex.sk> - 22.6.2001 13:04:25
Ahoj...
mam jeden trivialny problem. Potreboval, by som presypat data z DBF tabulky
verzie FOX26 do IB-firebird. Skusal som niekolko verzii TDBF funguje to ale
nenacita memo. Indexi nepotrebujem len ciste data. Ma to uz niekto vyriesene
a pomohol by mi ? Nechcel by som kvoli tomu instalovat BDE jedna sa o
niekolko tabuliek a jednorazovy presun. Pripadne odkaz na spravnu verziu
TDBF ktora pracuje aj s FOX26 .
Dakujem, s pozdravom Lauko.OT DBF -> IB bez BDE
[*] Tom� Hol� - notebook <notebook(zv)thcom(tec)cz> - 22.6.2001 13:13:49
DAODS a pouzij Access
TH
> mam jeden trivialny problem. Potreboval, by som presypat data z DBF
tabulky
> verzie FOX26 do IB-firebird. Skusal som niekolko verzii TDBF funguje to
ale
> nenacita memo. Indexi nepotrebujem len ciste data. Ma to uz niekto
vyriesene
> a pomohol by mi ? Nechcel by som kvoli tomu instalovat BDE jedna sa o
> niekolko tabuliek a jednorazovy presun. Pripadne odkaz na spravnu verziu
> TDBF ktora pracuje aj s FOX26 .
> Dakujem, s pozdravom Lauko.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
Select bez opakovani
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 22.6.2001 14:30:48
Hi all,
mam nasledujici problem potrebuji udelat select nad touto tabulkou
VarChar1 VarChar2
A A
A B
B A
B B
B C
a to tak aby se ve vysledku neopakovaly stejne polozky ... tzn. ze vysledek
by mel vypadat takto
A A
B
B A
B
C
diky za kazdou radu
M
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.06.2001
Select bez opakovani
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 22.6.2001 14:46:25
jedna-li se o IB potom snad napsat ulozenou proceduru, asi takto
declare variable vv varchar(x)
as
vv = 'nesmysl';
for
select v1,v2
from table
into :V1, :V2
do begin
if (v1 = vv)
then v1 = null
else vv = v1;
suspend;
end
to prece musi fungovat ne.
> mam nasledujici problem potrebuji udelat select nad touto tabulkou
>
> VarChar1 VarChar2
>
> A A
> A B
> B A
> B B
> B C
>
> a to tak aby se ve vysledku neopakovaly stejne polozky ... tzn. ze vysledek
> by mel vypadat takto
>
> A A
> B
> B A
> B
> C
>
> diky za kazdou radu
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
OT Fw: Obsazeni mista souborem
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 22.6.2001 14:52:21
Ahoj,
aby nedoslo k dalsi mylce:
Cylindr NEMA NIC SPOLECNEHO s clusterem!
### ing. Jan Fiala napsal dne 22 Jun 01, v 6:01 :
> 21.6.2001 Dalibor Toman:
>
> > 1) velikost sektoru na disku je vzdy 512B. Co se meni je velikost
> > clusteru (pocet sektoru per cluster)
>
> Mas pravdu, zamenil jsem cylindr (cluster) a sektor
>
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Delphi 6
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.6.2001 16:03:21
On 22 Jun 2001, at 12:46, Tomas Vida wrote:
> Testoval jsem integrovane komponenty pro pripojeni k mySQL serveru.
> Nemel jsem k testovani moc casu, ale po 2 hodinach se mi to nepodarilo
> rozchodit. Tyto komponenty umoznuji nastavit: IP adresu mySQL serveru
> jmeno db login passwd
>
> Kdyz jsem to vse korektne nastavil, tak mi test pripojeni (a nasledne
> i zkompilovana aplikace) rvaly chybovou hlasku, ze mam spatny
> login/password). Samozrejme, ze to nebyla pravda. Korektonost udaju
> jsem si overoval ZEOS komponentami v D5 a mySQL adminem. Dokonce, kdyz
> jsem jako IP adresu serveru uvedl absolutni nesmysl, napr.
> jfkhsdj.jkhds.jsdhsjdh, tak mi neustale tvrdil, ze mam spatny
> login/passwd. Jedine, co jsem nikde nemohl nastavit bylo cislo portu,
> na kterem mySQL bezi.
Tohle bude asi patrne chyba komponent, ze? Mne tuhne IDE v
pripade (nekdy, zatim jsem nenasel zavislost), kdyz mam otevreno
vice ActiveX projektu a v nejakem .tlb okne neco posucham a pak
stisknu tlacitko Refresh Implementation nebo na hlavnim panelu
Save All.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi6 a RxLibrary
[*] Str�n�k Franti�ek - 22.6.2001 16:31:51
Pratele ,
mate nejake zpravy o RxLibrary a Delphi
Zdravi
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
pohybuj�c� se grandient
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 22.6.2001 16:39:21
Ahoj,
zrovna ctu zdrojaky jedne komponenty a tam je nasledujici upoutavka:
WavePanel
~~~~~~~~~
WavePanel - component with running colors, like panel at the bottom
of the screen when Windows 9x loading.
All this programs you can download from my web site at:
http://members.xoom.com/seregaz/
Treba to je to co hledas
Honza +
> -----Original Message-----
> From: Milan #ݿek [mailto:cizek.milan(zv)seznam(tec)cz]
> Sent: Thursday, June 21, 2001 9:16 PM
> To: Delphi konference
> Subject: pohybuj�c� se grandient
>
>
> ahoj,
> schanim komponentu/unitu, ktera dokaze vytvorit na formu
> obdelnik, ve kterym
> pobezi stale dokola (navazujici) grandient. Presne takovy ten
> prouzek, ktery
> zname pri startu Win98, nebo pri loginu do Win2k... Stacil by
> i v podobe
> plynuleho gifu, ale byl bych raci, kdybych si moch nastavit ty barvy.
>
> Nemate nekdo neco takoveho? Diky
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
> Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
> Delphi 6
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.6.2001 17:46:47
On 22 Jun 2001, at 12:49, Petr Vones wrote:
> > Tak pro zajimavost, pouhy start D6E (W2000) mi spolkne nejmene
> > 30 MB pri jednom oteviranem projektu, 37 MB pri otevreni 17
>
> Dobre vis ze to co ukazuje Task Manager je blbost ;-) Minimalizuj
> Delphi IDE a podivej se co to pak bude ukazovat. Nebo si spust Delphi
> s parametrem -hm.
Uz jsem ti psal, ze to je blbost. Jestlize mam 128 MB, a system
ukazuje 140 MB zabranych a zacne vydatne chroupat s diskem,
pak verim Task Manageru, a ne IDE.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Prosba o zkusenosti - tenky klient
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 22.6.2001 18:06:54
Zdravim,
mam ted udelat program pro nejake dealery jedne firmy. Premyslim, na jakem
principu by to asi bylo nejvhodnejsi. Co se tyce penez, tam problem neni,
takze bych se chtel zeptat, kdo ma s jakym resenim zkusenosti. Situace je
asi takova:
Ve firme bezi MS SQL Srv 7.0 na Win2k Srv. Ten MSSQL je pristupny z inetu
(zatim to je firewallovane na trustovane IP). Aby byl klient tenky (tech
dealeru je pres 700), premyslel jsem o 3-vrstve architekture. Pripojeni k
app-serveru bude probihat samozrejme pres inet. Tak a ted se ptam, co mi kdo
poradi za nejefektivnejsi reseni - co se tyce programovani, tak i udrzby,
bezpecnosti, zpusobu pripojeni (COM,HTTP,MTS,...) apod.
Zatim jsem nic podobneho nedelal, takze uvitam kazdou zkusenost.
Diky predem.
end ohekzeh minarp a mevardzop S
arebmehcS naliM .rDCP
ERAWTFOSSIM
444449/8060 .let
zc.erawtfossim.www\\:ptth
Zjisteni kurzoru na vizualni komponente
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 22.6.2001 17:32:44 -0400
Zdravim,
napsal jsem si komponentu(velice primitivni) odvozenou od TImage, pricemz
kdyz je kurzor na componente, tak je obrazek jiny nez normalne. Mam tam Timer,
v jehoz OnTimeru se to zjistuje. Funguje to az na jeden problem, kdyz prepnu
do jine aplikace we windows nebo treba jen na Start panel, hodi to obcas chybu
Acces Violation.
Vim v cem to je, ale nevim jak to mam opravit. Tady je kod, kde nastava
chyba:
"if ((FindDragTarget(Mouse.CursorPos,False) as TControl)<>nil) then begin
if ((FindDragTarget(Mouse.CursorPos,False) as TControl).parent=parent) and
((FindDragTarget(Mouse.CursorPos,False) as TControl).name=name) then begin"
Druha podminka je pro zjisteni, zda je kurzor nad prave kontrolovanou
komponentou. Prvni podminkou jsem prave chtel resit onen problem, kdy kurzor
neni nad zadnou componentou, abych pak neporovnaval neco co neexistuje,
problem se ale stale obcas vyskytne, kdyz prepnu ven z aplikace hodi se chyba
Access violation.
Poradte mi prosim, jak mam kod osetrit, aby se chyba uz neobjevovala. Mohl
bych treba uvest na zacatku jinou podminku, jenz by pustila kod dal pouze v
pripade, ze je kurzor v me aplikaci nebo neco podobneho? Ma Aplikace je
roztazena pres celou plochu s BorderStyle bsNone, takze vyjet se normalne mysi
neda.
Dekuji moc za pomoc
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
OT: AnsiStringy
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 22.6.2001 17:34:54 -0400
Zdravim,
chtel bych poprosit, zda by mi nekdo nemohl vysvetlit, jak je to s
uvolnovanim AnsiStringu, o kterem se tu psalo(aspon jsem to tak pochopil).
Tedy kdyz si deklaruju promennou typu 'string', pak s ni delam nejake
operace, je treba ji vzdy nakonec uvolnit pomoci SetLength(S,0)[ci S:='']?
Plati to i kdyz ji deklaruji v nejake procedure ci funkci, nebo kdyz ji
posilam jako parametr funkce/procedury?
Jak je to pak s typem string[x] nebo shortstring, ty by se mely nakonec
nastavit na nulovou delku?
Omlouvam se, jsou to asi velice banalni otazky, ale
za odpovedi na ne vam budu opravdu velice vdecny - Dekuji
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
OT: Pristup z MS SQL 7 na Oracle 7
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 22.6.2001 23:43:18
Ahoj,
omlouvam se za OT.
Chtel jsem si na MS SQL 7 vytvorit jednu SP, ktera read-only sahne do
Oracle7 databaze a ziskana data joinuje s jinou MS SQL tabulkou a vrati je
klientske aplikaci.
Nainstaloval jsem na PC1 Oracle7 Server. Na PC2, kde je MS SQL 7 server,
jsem nainstaloval Oracle-Client. Z tohoto PC2, jsem schopny se pres "Oracle
ODBC32 Test Connection" uspesne dotazovat a menit Oraclovska data na PC1.
Nedari se mi ale pristoupit na Oracle primo z MS SQL (z tela SP).
Zkusil jsem uz vsechno mozne (par nadejnych pokusu prikladam nize) a ne a ne
to rozchodit.
Musim pristupovat pouze pres SQL*Net Alias?
Pres jaky OleDB provider? "Microsoft ODBC pro Oracle" nebo "Oracle 7.3 ver
2.5" provider ?
(Mimochodem jak se pozna, ktery z OleDB provideru je MSDAORA, ktery
doporucuje MS?)
Nebo mam zkusit na klienta nainstalovat neco z tools of Oracle8? Treba
kompletniho klienta. Chodil by vubec s Oracle7?
Prosim, co musim kde nainstalovat/nastavit, abych mohl pristupovat primo?
Diky, Ladislav Nagy
_______________________________________________
Mgr. Ladislav Nagy
Baader Computer, Hradebn� 287/22, 370 01 C. Budejovice
Tel.: +420-38-6354553,-4; Fax: +420-38-6354556
SELECT * FROM OPENRowset('MSDAORA', 'SQL';'internal';'internal', 'select *
from TEST' )
go
Server: Msg 7399, Level 16, State 1, Line 1
OLE DB provider 'MSDAORA' reported an error.
[OLE/DB provider returned message: ORA-12154: TNS:could not resolve service
name]
This example assumes that an SQL*Net alias name has been defined as
OracleDB.
sp_addlinkedserver 'OrclDB', 'Oracle', 'MSDAORA', 'OracleAlias'
sp_addlinkedsrvlogin 'OrclDB', false, 'sa', 'internal', 'internal'
SELECT * FROM OrclDB..TEST
Server: Msg 208, Level 16, State 1, Line 1
Invalid object name 'OrclDB..TEST'.
SELECT * FROM OrclDB..internal.TEST
Server: Msg 7399, Level 16, State 1, Line 1
OLE DB provider 'MSDAORA' reported an error.
[OLE/DB provider returned message: ORA-12154: TNS:could not resolve service
name
]
Zjisteni kurzoru na vizualni komponente
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 23.6.2001 00:13:55
V ty komponente si napis obsluhu udalosti CM_MOUSEENTER a CM_MOUSELEAVE.
Martin
----- Original Message -----
From: "Petr Vasicek" <pvasicek(zv)operamail.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 22, 2001 11:32 PM
Subject: Zjisteni kurzoru na vizualni komponente
> Zdravim,
> napsal jsem si komponentu(velice primitivni) odvozenou od TImage, pricemz
> kdyz je kurzor na componente, tak je obrazek jiny nez normalne. Mam tam
Timer,
> v jehoz OnTimeru se to zjistuje. Funguje to az na jeden problem, kdyz
prepnu
> do jine aplikace we windows nebo treba jen na Start panel, hodi to obcas
chybu
> Acces Violation.
> Vim v cem to je, ale nevim jak to mam opravit. Tady je kod, kde nastava
> chyba:
>
> "if ((FindDragTarget(Mouse.CursorPos,False) as TControl)<>nil) then begin
> if ((FindDragTarget(Mouse.CursorPos,False) as TControl).parent=parent)
and
> ((FindDragTarget(Mouse.CursorPos,False) as TControl).name=name) then
begin"
>
> Druha podminka je pro zjisteni, zda je kurzor nad prave kontrolovanou
> komponentou. Prvni podminkou jsem prave chtel resit onen problem, kdy
kurzor
> neni nad zadnou componentou, abych pak neporovnaval neco co neexistuje,
> problem se ale stale obcas vyskytne, kdyz prepnu ven z aplikace hodi se
chyba
> Access violation.
> Poradte mi prosim, jak mam kod osetrit, aby se chyba uz neobjevovala.
Mohl
> bych treba uvest na zacatku jinou podminku, jenz by pustila kod dal pouze
v
> pripade, ze je kurzor v me aplikaci nebo neco podobneho? Ma Aplikace je
> roztazena pres celou plochu s BorderStyle bsNone, takze vyjet se normalne
mysi
> neda.
>
> Dekuji moc za pomoc
>
> Petr Vasicek
>
> -------------------------------------------
> The Fastest Browser on Earth now for FREE!!
> Download Opera 5 for Windows now! Get it at
> http://www.opera.com/download/
> -------------------------------------------
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.261 / Virov� b�ze: 131 - datum vyd�n�: 6.6.2001
OpenGL.
[*] #t�p�n Hamouz - 23.6.2001 07:41:55
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Nevyte nekdo jak pomoc� OpenGL zobrazit bitmapu a jak se puzivaji veci jako AND, XOR aby se dosahlo pruhledosti.
Diky moc.Delphi 6
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 23.6.2001 09:08:53
Myslim, ze si pockam na D7
Nevidim nic, co by som v D6 k svojej praci potreboval
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zbysek Hlinka
> Sent: Friday, June 22, 2001 12:10 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Delphi 6
>
>
> Ahoj,
>
> dostal se mi do ruky subj., takze ho testuji. Prvni, co me
> zaskocilo, je priserna nenazranost pameti IDE. Nemeril jsem to ale
> baj ocko odhaduji, ze spotrebuje asi o ctvrtinu az tretinu vic pameti
> nez D5. Holt cena za dalsi komfort, ktery v D6 je. Takze prestoze
> je minimalni pamet udavana na 64 MB, myslim, ze pod 128 MB
> nema smysl jit, rozumnou velikost vidim az u 256 MB (upgradujte
> nekdo honem Lokalizator, at si mohu dokoupit pamet :).
>
> Tak pro zajimavost, pouhy start D6E (W2000) mi spolkne nejmene
> 30 MB pri jednom oteviranem projektu, 37 MB pri otevreni 17
> projektu Lokalizatoru. Hromadna kompilace 17 soucasne
> otevrenych projektu Lokalizatoru spolkne dalsich cca 200 MB ani
> nemrkne.
>
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
> Acces 2000 Nastaveni parametru
[*] Erik Salaj <winsoft(zv)stonline.sk> - 23.6.2001 11:11:24
> Chci se zeptat jestli nahodou nekdo nevi jak nastavit urcity parametr v
> Accesu 2000 DAO 3.6.
> Jedna se konkretne o parametr 'Je nutno zadat' pro vsechny druhy poli
> krome AutoIncrement.
> Default je nastaveny na 'ne'. Jde to nejak zmenit ???? A jestli ano tak
> kde ????
pre DAODS komponenty:
DAODatabase1.TableDefs['MyTable'].Fields['MyField'].Required := True;
Erik
Prosba o *.pas
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 23.6.2001 14:08:52
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
Odpoved 1) Myslim, ze je lepsi pouzit Zbyskuv lokalizator. To, co jednou
prelozis, si uz pamatuje.
Dotaz 2) Kde ten zazrak najdu?Diky
Aldik
Prosba o *.pas
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.6.2001 14:13:19
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> Odpoved 1) Myslim, ze je lepsi pouzit Zbyskuv lokalizator. To, co jednou
> prelozis, si uz pamatuje.
> Dotaz 2) Kde ten zazrak najdu?Diky
Ahoj,
http://www.localizator.com
Petr Vones, amatersky programator
Otaceni
[*] Ivanoslav <ivanoslav(zv)yahoo(tec)com> - 23.6.2001 14:51:59
Zdravim Fsechny.
Mam jeden problem
V normalnim Image vykresluju Rectangle Canvasem ,a
potreboval bych ho mit nakloneny treba o 45 stupnu.
Plis poradte mi.
Dekuji
Ivanoslav
Aktualiz�cia cez internet
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 23.6.2001 14:55:48
Chcem dorobit do svojho programu moznost aktomatickeho update cez internet,
no stretavam sa len zo samymi problemamy:
1.) Ako sa da zistit, ci je pocitat prave pripojeny k internetu?
2.) Kde sa da ziskat nejaka free komponenta na zbalenie a rozbalenie
suborov?
3.) Ako zadat Windowsu, aby pri restarte aktualizoval subory novymi?
Za kazdu dobru radu, pripadne cast zdrojaku, budem vdacny.Problem s ShellExecute
[*] bigzero(zv)post(tec)cz - 23.6.2001 14:59:40
Zdravicko!
Pokousim se spustit obycejny dosovsky .BAT pres ShellExecute a mam s tim nasledujici starost:
Windows hlasi "Soubor \\SERVER\DISK\ABC.BAT nelze nalezt..." ale jen za nasledujicich podminek (jinak to chodi bez problemu - BAT se spusti a vykona).
1) V programu se predtim zapisovalo na disketu.
2) Disketa se vyndana z mechaniky.
3) ABC.BAT je umisten na serveru (UNC).
4) Klient pouziva se W95/98.
Pokud je jakykoliv bod nesplnen vse opet funguje (napr. kdyz se da ABC.BAT na lokalni disk). Soubor je volan z celou cestou, aktualni WIN adresar se pred pokusem spustit BAT nastavi na cestu, kde je BAT. Zkousel jsem i ShellExec z JCL se stejnymi vysledky.
Honza
---
Prague Ensemble Theatre presents: "HUNTING COCKROACHES"
More information at http://www.vol(tec)cz/pet
Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.6.2001 15:03:18
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Uz jsem ti psal, ze to je blbost. Jestlize mam 128 MB, a system
> ukazuje 140 MB zabranych a zacne vydatne chroupat s diskem,
> pak verim Task Manageru, a ne IDE.
Ahoj,
jeste by bylo dobre vedet o jake hodnote se vlastne bavime ;-) Pokud je to
'Mem Usage' tak to nerika temer nic, lepsi by to uz bylo v pripade 'VM Size'
kde je to cca 24M pri spusteni IDE.
Petr Vones, amatersky programator
label s transparentnym podkladom
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 23.6.2001 15:04:25
Label ma vlastnost Transpared, tak ji nastav na True
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
>> -----Original Message-----
>> From: Tomas Bozik [mailto:tomas_bozik(zv)pobox.sk]
>> neviete niekto ako povedal Labelu, aby mal transparentny podklad??komponenty od TMS
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 23.6.2001 15:09:18
Hi,
lze koupit i jednotlive komponenty, ale v pripade, ze potrebujes dve, tak
moc neusetris.
Cena jedne komponenty se pohybuje okolo 50 USD.
>> -----Original Message-----
>> From: Milan #ݿek [mailto:Cizek.Milan(zv)seznam(tec)cz]
>> nemate nekdo zakoupene komponenty od TMS? Potreboval bych
>> vedet, jestli je mozne komponenty treba koupit samostatne. Je snad C++ Buider smejd???
[*] Ivanoslav <ivanoslav(zv)yahoo(tec)com> - 23.6.2001 15:09:09
Zdravim
Teda me kompiling v Delphi trva pomerne kratkou dobu.
( na PIII 750 Mhz, 128 ),ale i na pomalejsich Peeceecek mi to
nedela vubec poblemy ( AMD ka sest, nevim kolik- 300 Mhz, 128 ).
zkousel jsem i P-133, 128 Mb Ram a taky no problem.
Ivanoslav
CDO
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 23.6.2001 15:44:21
Ahoj,
rad bych pracoval s %subj%, ale nemuzu ji v mych DP Prof
naimportovat(myslim TLB), nemate ji prosim nekdo? Poslete ji prosim na
soukromy mail. Jde mi predevsim o kontakty a maily, takze jestli s tim
nekdo mate zkusenost, myslim ze i ostatni oceni nejake linky, ze kterych
jste cerpali. Diky.
Radim
Vypis Soub. ze vsech adr.
[*] Pavel <pawlmd(zv)volny(tec)cz> - 23.6.2001 18:25:31
Dobry den !
Jak udelat vypis vsch souboru z adresaru celeho disku ?
Jak zjistit aktualni adresar ?
Pavel
Zjisteni kurzoru na vizualni komponente
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 23.6.2001 18:54:20 -0400
To prave pouzit nechci, chci mit stalou kontrolu, jak to mam, jen potrebuju
osetrit tu chybu, kdyz se prepnu nekam jinam.
Petr
>V ty komponente si napis obsluhu udalosti CM_MOUSEENTER a CM_MOUSELEAVE.
>Martin
>
>----- Original Message -----
>From: "Petr Vasicek" <pvasicek(zv)operamail.com>
>To: <delphi-l(zv)clexpert(tec)cz>
>Sent: Friday, June 22, 2001 11:32 PM
>Subject: Zjisteni kurzoru na vizualni komponente
>
>
>> Zdravim,
>> napsal jsem si komponentu(velice primitivni) odvozenou od TImage, pricemz
>> kdyz je kurzor na componente, tak je obrazek jiny nez normalne. Mam tam
>Timer,
>> v jehoz OnTimeru se to zjistuje. Funguje to az na jeden problem, kdyz
>prepnu
>> do jine aplikace we windows nebo treba jen na Start panel, hodi to obcas
>chybu
>> Acces Violation.
>> Vim v cem to je, ale nevim jak to mam opravit. Tady je kod, kde nastava
>> chyba:
>>
>> "if ((FindDragTarget(Mouse.CursorPos,False) as TControl)<>nil) then begin
>> if ((FindDragTarget(Mouse.CursorPos,False) as TControl).parent=parent)
>and
>> ((FindDragTarget(Mouse.CursorPos,False) as TControl).name=name) then
>begin"
>>
>> Druha podminka je pro zjisteni, zda je kurzor nad prave kontrolovanou
>> komponentou. Prvni podminkou jsem prave chtel resit onen problem, kdy
>kurzor
>> neni nad zadnou componentou, abych pak neporovnaval neco co neexistuje,
>> problem se ale stale obcas vyskytne, kdyz prepnu ven z aplikace hodi se
>chyba
>> Access violation.
>> Poradte mi prosim, jak mam kod osetrit, aby se chyba uz neobjevovala.
>Mohl
>> bych treba uvest na zacatku jinou podminku, jenz by pustila kod dal pouze
>v
>> pripade, ze je kurzor v me aplikaci nebo neco podobneho? Ma Aplikace je
>> roztazena pres celou plochu s BorderStyle bsNone, takze vyjet se normalne
>mysi
>> neda.
>>
>> Dekuji moc za pomoc
>>
>> Petr Vasicek
>>
>> -------------------------------------------
>> The Fastest Browser on Earth now for FREE!!
>> Download Opera 5 for Windows now! Get it at
>> http://www.opera.com/download/
>> -------------------------------------------
>>
>
>
>---
>Odchoz� zpr�va neobsahuje viry.
>Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>Verze: 6.0.261 / Virov� b�ze: 131 - datum vyd�n�: 6.6.2001
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Levna DB
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 24.6.2001 02:37:20
odpoved od :david.lebeda(zv)comarr(tec)cz>
paradoxu bych se vyhnul jaksi z provoznich duvodu, snadno se to
sesype. Vadi Ti tohle, nebo postradas nejakou funkcnost?
Doplneni:
Oboje....preci jen prikazy v Oracle jsou prikazy v Oracle,a to havarovani
paradoxu pri vetsim objemu dat je silene..
Aktualiz�cia cez internet
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 24.6.2001 07:25:00
Ahoj,
tenhle problem prave resim taky, mohli bychom dat hlavy dohromady a neco
elegantniho vymyslet.
Radim
> Chcem dorobit do svojho programu moznost aktomatickeho update
> cez internet,
> no stretavam sa len zo samymi problemamy:
>
> 1.) Ako sa da zistit, ci je pocitat prave pripojeny k internetu?
> 2.) Kde sa da ziskat nejaka free komponenta na zbalenie a rozbalenie
> suborov?
> 3.) Ako zadat Windowsu, aby pri restarte aktualizoval subory novymi?
>
> Za kazdu dobru radu, pripadne cast zdrojaku, budem vdacny.
>
> Delphi 6
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 24.6.2001 08:39:50
On 23 Jun 2001, at 15:03, Petr Vones wrote:
> > Uz jsem ti psal, ze to je blbost. Jestlize mam 128 MB, a system
> > ukazuje 140 MB zabranych a zacne vydatne chroupat s diskem, pak
> > verim Task Manageru, a ne IDE.
>
> jeste by bylo dobre vedet o jake hodnote se vlastne bavime ;-) Pokud
> je to 'Mem Usage' tak to nerika temer nic, lepsi by to uz bylo v
> pripade 'VM Size' kde je to cca 24M pri spusteni IDE.
Mem Usage ukazuje, jak s pameti hospodari Windows. Jestlize
tato hodnota preleze velikost fyzicke RAM, pak Wokna zacnou
vcelku spolehlive pouzivat virtualni RAM, tedy hrabat po disku. Cim
vice je virtualni pameti zabrane, tim je vykon horsi. Pokud
prekrocim dvojnasobek fyzicke RAM, vykon opet rapidne klesa.
Jestlize se Mem Usage priblizi celkove vyhrazene pameti, system
zacne rvat o nedostatku pameti. A je mi srdecne jedno, kolik
presne zabere IDE z Delphi, ale zajima me, jak s tim hospodari
Wokna. Vysledkem tedy je, ze mi system zacne zahy hrabat na
disku, cimz jde vykon do haje. V podstate musim rict, ze v dnesni
dobe bych mel jakus takous rezervu od 512 MB RAM vyse. 64 MB
je zoufalost, 128 MB je malo, ale i 256 MB spotrebuji velice rychle.
Z toho se tedy odvijeji parametry pristiho pocitace. :-) Rec je
samozrejme o W2000.
BTW - samotne W2000 s podporou .NET a bezicim MS SQL 2000
spolknou vice nez 100 MB.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vypis Soub. ze vsech adr.
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 24.6.2001 11:32:48
Ad aktualni adresar: GetCurrentDir: string (viz Help)
Ad vypis vsech souboru:
- FindFirst, FindNext (viz Help) a rekurze v pripade adresare
- na stejnem problemu pracuju
- nacitani cele stromove struktury, souboru a jejich filtrovani
- zatim dosahuju rychlosti kolem 0,5 - 5 souboru / ms
- unita bude co nevidet na webu, muzu poslat ukazku posledni verze
- neznate nekdo rychlejsi zpusob nacitani celeho disku? Pripominam ze potrebuju nacitat vse, nejde o "prochazeni stromu". S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Pavel" <pawlmd(zv)volny(tec)cz>
Sent: Saturday, June 23, 2001 6:25 PM
> Dobry den !
>
> Jak udelat vypis vsch souboru z adresaru celeho disku ?
> Jak zjistit aktualni adresar ?
Vypis Soub. ze vsech adr.
[*] Tom� Hol� - 24.6.2001 12:07:12
ahoj, heledej v napovede funkce FindFirst a FindNext
prochazeni celeho disku vypada asi takto pomoci rekurze:
procedure prochazej( "C:\");
findFirst(*.*)
while not konec begin // myslim, ze konec v BP byla IO chyba 18 ted v
delphi nevim, je tam ale nejaky example
FindNext(*.*)
if Adresar then
Prochazej(Adresar)
else
vypis Soubor
delal jsem to kdysi v BP mozna maji delphi enjakou novotu ale o te nevim
a aktualni adresar je zde
function GetCurrentDir: string;
vse je v helpu
TH
> Jak udelat vypis vsch souboru z adresaru celeho disku ?
> Jak zjistit aktualni adresar ?
>
Aktualiz�cia cez internet
[*] Milan ��ek - 24.6.2001 12:59:05
ahoj, co treba pouzit neco hotoveho?
TMSWebUpdade (www.tmssoftware.com) - super, pro nekomercni pouziti zdarma,
bez zdroju, umi i kompresy, restart aplikace do nove verze...
www.utilmind.com - tam je taky neco podobneho, je to free.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Chcem dorobit do svojho programu moznost aktomatickeho update
> cez internet,
Aktualiz�cia cez internet
[*] JIM Design <jim.design(zv)iol(tec)cz> - 24.6.2001 14:35:44
ahoj,
1)
pomoci RAS funkci
http://delphi-jedi.org/Jedi:APILIBRARY (RAS.ZIP)
2)
www.ziptv.com (ted nevim jestli uplne free) nebo kdekoliv jinde (torry,
superpage)
3)
udelas si na to nadprogram, kterej umistis (pri zdarnem stazeni) bud do "po
spusteni" nebo do ini (myslim ze tam je parametr "run")
M.Jirman
-----Original Message-----
Behalf Of Martin Kasman
Sent: Saturday, June 23, 2001 2:56 PM
Chcem dorobit do svojho programu moznost aktomatickeho update cez internet,
no stretavam sa len zo samymi problemamy:
1.) Ako sa da zistit, ci je pocitat prave pripojeny k internetu?
2.) Kde sa da ziskat nejaka free komponenta na zbalenie a rozbalenie
suborov?
3.) Ako zadat Windowsu, aby pri restarte aktualizoval subory novymi?
Za kazdu dobru radu, pripadne cast zdrojaku, budem vdacny.
Access
[*] JIM Design <jim.design(zv)iol(tec)cz> - 24.6.2001 14:35:43
ahoj,
to se tu uz asi pred >1/2 rokem probiralo, zkus archiv konference
M.Jirman
-----Original Message-----
Behalf Of Delphi konference
Sent: Wednesday, June 20, 2001 12:47 PM
Ne
Zdravim.
Nevite nekdo jak zkompromovat pres ADO db. MS Access z Delphi 5.0 ?
Diky
Marcel M.scrollbar v DBGridu
[*] Milan ��ek - 24.6.2001 17:39:01
ahoj,
mam 2 dotazy:
1) da se nejak nastavit, aby byl vertikalni scrollbar u dbgridu stale
visible, i kdyz neni zapotrebi?
2) da se nejak nastavit, aby mrizka byla v celem gridu, bez ohledu na pocet
zaznamu (myslim tim v celem okne odzhora az dolu - i kdyz tam bude jen 1
zaznam)
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Predani odkazu na komponentu do DLL
[*] Jirka Skladal <jirka.skladal(zv)seznam(tec)cz> - 24.6.2001 17:57:56
Ahoj lidicky.
Mam poblem s volanim fce v DLL.
V Dll mam funkci ktera pracuje s komponentou IBSQL, predanou v parametru
fce. Kdyz s ni ale chci cokoli provest tak me to hodi vyjimku.
Klient:
deklarace:
procedure test(IBSQL: TIBSQL); external 'base.Dll';
volani:
test(IBSQL1); ,kde IBSQL1 je komponenta hozena na formulari,(takze je
spravne vytvorena)
base.DLL:
deklarace
procedure test(IBSQL: TIBSQL); stdcall; export;
implementace:
procedure test(IBSQL: TIBSQL);
begin
IBSQL.SQL.Clear; // tak tady me to pekne zarve
...
...
end;
Co delam spatne? Proc s ni nemuzu normalne pracovat?
Diky Jirka
instalace MDAC
[*] JIM Design <jim.design(zv)iol(tec)cz> - 24.6.2001 18:04:48
Ahoj,
Zjistit verzi MDAC neni problem pomoci JEDI (GetMDACVersion) - abys
neinstaloval zbytecne, a pak ji pustit pomoci techto parametru (neobtezoval
uzivatele hlaskou):
mdac_typ.exe /q /c:"setup /qnt"
M.Jirman
-----Original Message-----
Behalf Of #ipel Miroslav
Sent: Monday, June 18, 2001 11:46 AM
Dobry den,
ve svem programu pouzivam ADO a problem je ze ne na vsech
pocitacich kde muj program pobezi
je nainstalovano MDAC. Nevite nahodou jestli je mozne udelat
nejakou automatickou instalaci napr.
pri prvnim spusteni meho programu ? M.
Delphi 5 enterprice a komponenty server
[*] Tom�s Po�arovsk� - 24.6.2001 20:31:08
Cau
nevite nekdo, jak sehnat help nebo jak pouzit (priklad) viz subj. jde mi
hlavne o spolupraci s excelem.
(Napojit se na soubor a do sablony nasypat data)
Na delphi serveru psali neco o helpu pro Tword, ale ostatni ze jsou nekde u
microsoftu.
Hledane komponenty:
tExcelSheet, tExcelWorkBook, tExcelApplication a tExcelChart ty nazvy nevim
presne, mam to nainstalovany v praci.
Napsal jsem sice na to svou komponentu, ale je strasne primitivni proti
tomu, co by mohlo umet tohle.
Diky i za nasmerovani. Tomas Pocarovsky
Vypis Soub. ze vsech adr.
[*] Lauko #tefan <laukosw(zv)naex.sk> - 24.6.2001 23:58:57
----- Original Message From: Pavel <pawlmd(zv)volny(tec)cz>
> Jak udelat vypis vsch souboru z adresaru celeho disku ?
> Jak zjistit aktualni adresar ?
Ahoj,
tu mas funkcny priklad...rekurzivne volanie procedury...
Lauko.
Procedure NacitajDisk( Path: String; St:TStrings);
var
SR:TSearchRec;
Result:Integer;
begin
If Path[Length(Path)] <> '\' then
Path:= Path+'\';
Result:=FindFirst(Path+'*.*',faAnyFile,SR);
While Result = 0 do
begin
If (SR.Name <> '..') then
begin
If (SR.Name <> '.') and (SR.Attr = faDirectory) then
NacitajDisk(Path+SR.Name,St)
else
St.Add(Path+SR.Name);
end;
Result:=FindNext(SR);
end;
FindClose(SR);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
NacitajDisk('C:\',ListBox1.Items);
end;
upload na ftp
[*] Tom� M�dle - 25.6.2001 00:40:32
Dobry den
nemate nejaky navod na upload souboru na ftp serever?
diky
Aktualiz�cia cez internet
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 25.6.2001 07:14:10
tusim, ze na CHIP 6/01 byla nejaka takova komponenta...
Sroub
Ahoj,
tenhle problem prave resim taky, mohli bychom dat hlavy dohromady a neco
elegantniho vymyslet.
Radim
> Chcem dorobit do svojho programu moznost aktomatickeho update
> cez internet,
> no stretavam sa len zo samymi problemamy:
>
> 1.) Ako sa da zistit, ci je pocitat prave pripojeny k internetu?
> 2.) Kde sa da ziskat nejaka free komponenta na zbalenie a rozbalenie
> suborov?
> 3.) Ako zadat Windowsu, aby pri restarte aktualizoval subory novymi?
>
> Za kazdu dobru radu, pripadne cast zdrojaku, budem vdacny.
>
>OpenGL.
[*] Werki <delphi(zv)minv.sk> - 25.6.2001 07:20:36
Najrychlejsie je zobrazit normalne mapovany polygon ako bitmapu. Priehladnost sa dosiahne tak, ze
urcis priehladnu farbu (resp. rozsah) a HW spravi transparenciu za teba. Na presne prikazy sa ma nepytaj, pretoze robim hlavne s DX.
Werki
PS: na open GL je nieco ako red book kde mas vsetko yasno, skus si to niekde najst. OpenGL sa da vraj naucit za 2 dni komplet, aspon podla reci.
----- Original Message -----
From: �t�p�n Hamouz
To: delphi-l(zv)clexpert(tec)cz
Sent: Saturday, June 23, 2001 7:41 AM
Subject: OpenGL. Nevyte nekdo jak pomoc� OpenGL zobrazit bitmapu a jak se puzivaji veci jako AND, XOR aby se dosahlo pruhledosti.
Diky moc.Rotace obr�zku
[*] Werki <delphi(zv)minv.sk> - 25.6.2001 07:30:56
< Dobr� den,
> pot�ebuji poradit, zda nezn�te n�jakou #ikovn�j#� cestu, jak rotovat
> body
> na obr�zku o libovoln� �hel. Procedura, kterou jsem s�m vytvo�il mi
> p�ipad� p�inejmen#�m pon�kud t��kop�dn�.
Transformacia cez maticu 2x2 alebo cez vzorceky...
Werki
Zjisteni kurzoru na vizualni komponente
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 25.6.2001 07:56:20
Zkus treba
>> "if (FindDragTarget(Mouse.CursorPos,False)<>nil) then begin
>> if ((FindDragTarget(Mouse.CursorPos,False) as TControl).parent=parent)
>and
>> ((FindDragTarget(Mouse.CursorPos,False) as TControl).name=name) then
>begin"
popr. zkus pridat podminku
if (FindDragTarget(Mouse.CursorPos,False) is TControl) then.......
BTW proc nechces pouzit CM_MOUSEENTER a CM_MOUSELEAVE ???
Tam preci stalou kontrolu mas - i kdyz spustit aplikaci a kurzor mas potom na
konkretnim prvku tak k teto udalosti dojde. Mohu ti zaslat komponentu (take
potomek TImage), ktera ma tyhle udalosti odchycene.
> To prave pouzit nechci, chci mit stalou kontrolu, jak to mam, jen potrebuju
> osetrit tu chybu, kdyz se prepnu nekam jinam.
> Petr
S pozdravem
Milan Tome�
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Jak vlozit ActiveX do formu za behu programu
[*] likeapear <likeapear(zv)centrum(tec)cz> - 25.6.2001 08:12:03
Potrebuju vlozit ActiveX do formlulare, ale ne v design modu (pres Import
ActiveX control), ale primo za behu programu. AX bych vybral podle jmena
nebo GUID a pak bych vlozil do formu. Jenom nevim jak...
likeapear
AnsiStringy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.2001 09:20:43
> chtel bych poprosit, zda by mi nekdo nemohl vysvetlit, jak je to s
> uvolnovanim AnsiStringu, o kterem se tu psalo(aspon jsem to tak pochopil).
> Tedy kdyz si deklaruju promennou typu 'string', pak s ni delam nejake
> operace, je treba ji vzdy nakonec uvolnit pomoci SetLength(S,0)[ci S:='']?
nikoliv. V drtive vetsine pripadu kompilator automaticky dealokuje pamet
pouzitou long stringem. Tj., pozna, v jakem bloku je platna deklarace
promenne a na zacatku bloku (procedura,...) stringo inicializuje na prazdny
retezec (nema alokovanou zadnou pamet - pokud by se tak nedelo program by se
hned sesypa) a na konci bloku (tesne pred koncem procedury,..) automaticky
zase pamet uvolni.
Exituje ale nekolik pripadu, kdy kompilator z principu neni schopen
uvolnovani long stringu osetrit. Jedna se napriklad o long sringa ve
vlastnich slozenych strukturach (promenne typu record, pole stringu, atd)
Pokud jsi zvykly napriklad recordy inicializovat pomoci FillChar, pak pokud
v recordu jsou stringa, musis si dat pozor , aby neobsahovala zadne retezce
(prepsal bys pointry a nedealokoval pamet). Prepis string promennych na 0
(NIL) je mozny (a nutny) jen v pripade, ze struktura obsahuje zatim jen
nahodna data (stringa jsou nepouzita). Jinak musis nejprve stringa
dealokovat (S := ''; SetLength(S,0) je to same ale ponekud mene citelne)
> Plati to i kdyz ji deklaruji v nejake procedure ci funkci, nebo kdyz ji
> posilam jako parametr funkce/procedury?
String parametry se dealokuji v kodu, ktery volal proceduru/funkci.
>Jak je to pak s typem string[x] nebo shortstring, ty by se mely nakonec
> nastavit na nulovou delku?
protoze v techto pripadech nejde o dynamicky alokovane retezce ale o
promenn, ktere maji jiz pri kompilaci zajistenu maximalni velikost nealokuje
je kompilator dynamicky, ale staticky. Proto se o uvolnovani pameti techto
retezcu neni treba vubec zajimat (zadna deallokace neni treba)
Doporucuji precist si v helpu pojednani o short a long stringach. Je tam
vsechno dost podrobne vysvetleno
D. Toman
Vypis Soub. ze vsech adr.
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.2001 09:37:11
> - neznate nekdo rychlejsi zpusob nacitani celeho disku? Pripominam ze
potrebuju nacitat vse, nejde o "prochazeni stromu".
no podle mne jsou mozne 3 pristupy k nacitani obsahu disku (adresare,
soubory)
1) rekurzeA: nekde zacnu (root disku) a prolezam polozky adresare. Jakmile
narazim na adresar vlezu do nej a prohledavam o uroven hloub. Cili mam
tandenci co nejdrive se zavrtat co nejhloub.
2) rekurze B: nekde zacnu (root disku) a nactu jmena vsech souboru i
adresaru. Pak vezmu podadresare jeden po druhem a vlezu do nich a stale
opakuji. Podotykam, ze vzdy nactu nejdriv cely obsah adresare a pak lezu dal
3)vykaslu se na sluzby operacniho systemu a nactu si strukturu disku
vlastnimi prostredky (primym ctenim sektoru disku).
----
varianta 1) je nejjednodussi na implementaci (prosta rekurze)
varianta 2) je malinko slozitejsi
varianta 3) je nejslozitejsi ve windows obtizne realizovatelna (jednak
problemy s pristupem k disku, jednak nutne znat dost dobre strukturu
filesystemu - zvlaste na NTFS ,...). Smysl podle me melo takto nacitat
adresare jen v DOSu...
Rychlost nacteni by mela vzrustat s cislem varianty. Varianta 1) nejvice
skace po disku, Varianta 2) skace po disku mene (nacte vzdy cely adresar a
zpracuje jej drive nez vypadne z cache) rychlost 3) zavisi na implentaci.
Pokud je v PC dostatek RAM aby system mohl pouzivat vetsi diskovou cache pak
rozdily mkezi 1) a 2) budou velmi male (pokud se podari udrzet vsechny
adresare v cache).
D> Toman
DAODS a pripojeni import externi tabulky v progra
[*] Tom� Hol� - notebook <notebook(zv)thcom(tec)cz> - 25.6.2001 09:45:10
Ahoj, nevite nekdo, zda je to mozne ?
dik TH
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 15.6.2001
Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 25.6.2001 09:50:53
> rad bych se zeptal, jestli nema nekdo zkusenost s problemem nahodneho a
> samozvaneho ukoncovani Delphi aplikace bezici pod Win ME, na AMD Athlon
Pokud jsme meli problemy podobneho razu, tak vzdy s procesory AMD. Nechci
tvrdit, te jsou AMD zcela spatne, ale vzdy, kdyz byl podobny problem a
vymenil se procesor za Intel, problemy zmizely. Proc to bylo se zatim
nezjistilo (ony dva pripady se vyresily vymenou procesoru).
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
OT: seriova komunikace v Pascalu
[*] Danny <delphiforum(zv)atlas(tec)cz> - 25.6.2001 10:06:15
Ahoj lidi,
potrebuju pro jeden starsi program napsanej v TP7 dodelat to, abych
jednoduse mohl poslat na seriovy port nejakej byte a naopak z portu cist.
Mate nekdo zdrojacek, radu, napad, odkaz, knihovnu, ...
Diky.
Danny
Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 25.6.2001 10:45:22
Jaroslav Nadhera wrote:
>
> > rad bych se zeptal, jestli nema nekdo zkusenost s problemem nahodneho a
> > samozvaneho ukoncovani Delphi aplikace bezici pod Win ME, na AMD Athlon
>
> Pokud jsme meli problemy podobneho razu, tak vzdy s procesory AMD. Nechci
> tvrdit, te jsou AMD zcela spatne, ale vzdy, kdyz byl podobny problem a
> vymenil se procesor za Intel, problemy zmizely. Proc to bylo se zatim
> nezjistilo (ony dva pripady se vyresily vymenou procesoru).
Hmm, aby to nebylo tak jednoduche, tak prispeju dvema dalsimi
historkami. Na jednom pocitaci fungovaly vsechny aplikace az na aplikace
z MS Office. Na druhem pocitaci pro zmenu neustale padal MS Outlook,
nektere jeho funkce nefungovaly vubec. Vse se udalo behem posledniho
roku. U obou se problem odstranil az vymenou procesoru za jiny kus.
Procesory nebyly pretaktovane a jine aplikace nemely zadny problem.
Jeden Celeron a jedno Pentium III - frekvence neznam, ale jednalo se o
soudobe modely. Takze bych to zobecnil tak, ze nejake problemy se cas
od casu objevi u vseho.
S pozdravem,
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Rekurze s TWinControl
[*] Danny <delphiforum(zv)atlas(tec)cz> - 25.6.2001 11:17:18
Zkousel jsem pouzit Components a nechodi to.
For i:=0 to NejakejPanel.ComponentCount-1 do
If NejakejPanel.Components[i] is TComboBox then ...
Skonci to hlaskou List index out of bounds
> Bud se muzes odkazat na vlastnost ControlCount, ktera v pripade, ze
> obsahuje dalsi prvky bude vetsi nez 0.
> Ale jinak muzes misto rekurze pouzit vlastnost Components, ktera
> je obdobna jako Controls, ale nabizi ti vsechny prvky vcetne tech, ktere
> jsou ve vnorenych kontejnerech.
>
> Libor
>
> -----P�vodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele Danny
> Odesl�no: 20. �ervna 2001 14:05
> Komu: Delphi konference
> P�edm�t: Rekurze s TWinControl
>
>
> Ahoj lidickove,
>
> na formulari mam umistenou spoustu ovladacich prvku jako ComboBox,
> RadioGroup apod. U vsech musim zkontrolovat, jestli byly necim vyplnene,
> tzn, jestli nahodou nejsou prazdne.
> Vsechno to lezi na jednom spolecnem Panelu (Panel1)
> Dal je to seskupovany do GroupBoxu a dalsich Panelu.
> Tudiz me napadlo, ze si napisu funkci, ktere se zada jako parametr ten
> spolecny Panel1 a ta bude projizdet vsechny Controls a kdyz se
> bude jednat o
> ovladaci prvek, tak ho zkontroluju a kdyz to bude nejaky Kontejner (Panel,
> GroupBox, ...), tak rekurzivne zavolam tu samou funkci a predam ji ten
> kontejner.
> Vsechno je OK, tu funkci jsem snad taky sesmolil spravne, ale
> problem stejne
> nastal.
> Presne nevim, jak mam zjistit, jestli urcita komponenta je kontejner nebo
> neni. Myslem jsem, ze mi staci testovat jestli to je TWinControl (ma
> property Controls), ale asi ne, nebot i TCheckBox je potomkem
> TWinControl a
> zadny Controls nema.
> Existuje tedy neco (hadam, ze jo) cim by se dalo zjistit, jestli
> komponenta
> muze vlastnit jine komponenty?
> Diky za radu.
> Danny
>
>Delphi 5 enterprice a komponenty server
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 25.6.2001 11:38:55
Ty komponenty jsou zapouzdrenim COM rozhrani jednotlivych aplikaci od MS.
Tedy help k nim je u MS - urcite v MSDN Library (odtamtud cerpam ja) a nebo
u MS Office (nebo alespon si myslim, ze help k objektovemu rozhrani je mozno
nainstalovat)
Honza +
> -----Original Message-----
> From: Tom�s Poearovsk� [mailto:pocarovsky(zv)volny(tec)cz]
> Sent: Sunday, June 24, 2001 8:31 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Delphi 5 enterprice a komponenty server
>
>
> Cau
> nevite nekdo, jak sehnat help nebo jak pouzit (priklad) viz
> subj. jde mi
> hlavne o spolupraci s excelem.
> (Napojit se na soubor a do sablony nasypat data)
> Na delphi serveru psali neco o helpu pro Tword, ale ostatni
> ze jsou nekde u
> microsoftu.
> Hledane komponenty:
> tExcelSheet, tExcelWorkBook, tExcelApplication a tExcelChart
> ty nazvy nevim
> presne, mam to nainstalovany v praci.
>
> Napsal jsem sice na to svou komponentu, ale je strasne
> primitivni proti
> tomu, co by mohlo umet tohle.
>
> Diky i za nasmerovani.
>
>
> Tomas Pocarovsky
>
> seriova komunikace v Pascalu
[*] Volny <valentapat(zv)volny(tec)cz> - 25.6.2001 11:55:11
neco tu mam jestli ti to pomuze ... ReadPort nemam ale zrejme tam bude jenom
istrukce in misto out
Procedure Sendport(p:word;b:byte);Stdcall;
begin
asm
push edx
push eax
mov dx,p
mov al,b
out dx,al
pop eax
pop edx
end;
end;
procedure setport;
begin
sendport(BA+3,$80); {aktivuje zadani rychlosti}
sendport(BA,$60); {dolni slabika}
sendport(BA+1,0); {horni slabika}
sendport(BA+3,1); {6 bitu, 1 stop, none}
end;
----- Original Message -----
> Ahoj lidi,
> potrebuju pro jeden starsi program napsanej v TP7 dodelat to, abych
> jednoduse mohl poslat na seriovy port nejakej byte a naopak z portu cist.
> Diky.
>
> Danny
>
>Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 25.6.2001 12:04:16
> Pokud jsme meli problemy podobneho razu, tak vzdy s procesory AMD. Nechci
> tvrdit, te jsou AMD zcela spatne, ale vzdy, kdyz byl podobny problem a
> vymenil se procesor za Intel, problemy zmizely. Proc to bylo se zatim
> nezjistilo (ony dva pripady se vyresily vymenou procesoru).
Tohle ale nemusi bych chybou procesoru - je znamo, ze Windows jsou navrzeny
pro Intel, proto pravdepodobne na Intelu pobezi lepe. Ale je spousta zaplat,
kterymi se tyto rozdily smazou. Ja provozuji jiz rok WinNt a Win2k na
Athlonu a bez jakychkoliv problemu. Takze mozna nez vymenit procesor (a v
tomto pripade i desku) zkusit predtim jeste aplikovat nejaky patch
Pavel Skalicky
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 25.6.2001 12:23:37
Ahoj,
> > Pokud jsme meli problemy podobneho razu, tak vzdy s procesory
> AMD.
Spis nez s procesorem byva obcas problem se zakladni deskou. Pokud ma nekdo
srot typu PC CHIPS, tak vymena desky muze mnohe vyresit.
Evidentne problemove byly AMD K5, ale to uz je snad historie, Athlona tu ma
kolega na vyvoj a neni s nim nejmensi problem.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
Delphi a MAC
[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 25.6.2001 12:29:05
Zdravim vsechny,
mam program pro PC, ktery pouziva BDE. Potrebuju ten samy program dat na MAC. Mate nekdo s tim zkusenosti ? Rad bych vedel, co vse to obnasi, nez pujdu k uzivateli s Macintoshem a zjistim, ze to nefunguje ....Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 25.6.2001 12:53:51
> Ahoj,
> > > Pokud jsme meli problemy podobneho razu, tak vzdy s procesory
> > AMD.
>
> Spis nez s procesorem byva obcas problem se zakladni deskou. Pokud ma
nekdo
> srot typu PC CHIPS, tak vymena desky muze mnohe vyresit.
Ahoj.
Ja zase jako prvni menim pamet. Jinak samozrejme matherboard je skutecne
velmi dulezity.
Ludek
Delphi 5 enterprice a komponenty server
[*] Tom�s Hol� - notebook <notebook(zv)thcom(tec)cz> - 25.6.2001 12:57:39
ahoj dobry start je na
http://www.djpate.freeserve.co.uk/AutoExcl.htm
a potom zkouset zaznam makra v Excelu,
koukat do zdrojaku
C:\Program Files\Borland\Delphi5\Ocx\Servers\excel2000.pas
a do helpu k MS Office
C:\Program Files\Microsoft Office\Office\1029\VBAXL9.CHM
a tohle vsechno dohromady ti tak z 30% pomuze a zbytek je totalni pokusomyl
ale nakonec to jde, zatim jsem nenasel vec, ktera by nesla udelat !
TH
> -----Original Message-----
> From: Tom�s Poearovsk� [mailto:pocarovsky(zv)volny(tec)cz]
> Sent: Sunday, June 24, 2001 8:31 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Delphi 5 enterprice a komponenty server
>
>
> Cau
> nevite nekdo, jak sehnat help nebo jak pouzit (priklad) viz
> subj. jde mi
> hlavne o spolupraci s excelem.
> (Napojit se na soubor a do sablony nasypat data)
> Na delphi serveru psali neco o helpu pro Tword, ale ostatni
> ze jsou nekde u
> microsoftu.
> Hledane komponenty:
> tExcelSheet, tExcelWorkBook, tExcelApplication a tExcelChart
> ty nazvy nevim
> presne, mam to nainstalovany v praci.
>
> Napsal jsem sice na to svou komponentu, ale je strasne
> primitivni proti
> tomu, co by mohlo umet tohle.
>
> Diky i za nasmerovani.
>
> Tomas Pocarovsky
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
InstallShield
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 25.6.2001 13:32:49
zdravim,
pri instalaci programu, ktery se jmenuje xy mam nastaveno Application Name na xy, aby se tento nazev zobrazoval. Ale tento nazev se objevuje i pri nastavovani Program folders. Cili pod cim to ma byt v nabidce START. Ale ja bych tam potreboval implicitni nastaveni jine. Jde to vubec udelat?
Predem diky za jakoukoli radu
Mirek Drejcek.
Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 25.6.2001 13:35:24
> Tohle ale nemusi bych chybou procesoru - je znamo, ze Windows jsou
navrzeny
> pro Intel, proto pravdepodobne na Intelu pobezi lepe. Ale je spousta
zaplat,
> kterymi se tyto rozdily smazou. Ja provozuji jiz rok WinNt a Win2k na
> Athlonu a bez jakychkoliv problemu. Takze mozna nez vymenit procesor (a v
> tomto pripade i desku) zkusit predtim jeste aplikovat nejaky patch
Jo, to je pravda, ale spatne se to resi u zakaznika, ktery je 400 km daleko.
A kdyz po vymene procesoru problem zmizne (a u dalsi drtive vetsiny
zakazniku se neprojevi), tak uz se po pricine zpravidla nepatra. Ono to muze
byt i treba necim nemocnym na motherboardu, spatnymi pametmi apod. (oba tyto
pripady jsem zazil).
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
Delphi a MAC
[*] Ji�� Kr�l jr. - 25.6.2001 13:46:52
::mam program pro PC, ktery pouziva BDE. Potrebuju ten samy program dat na
::MAC. Mate nekdo s tim zkusenosti ? Rad bych vedel, co vse to obnasi, nez
::pujdu k uzivateli s Macintoshem a zjistim, ze to nefunguje ....
z tve otazky neni patrne, co o Applech vis. Napr. ze PC exe je pro Mac OS
jen snuska hexa cisilek...
IMO: BDE pro Mac-y neni, a "ten samy program" ti na Mac OS rozhodne
nepojede.
J.
InstallShield
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 25.6.2001 13:48:55
>pri instalaci programu, ktery se jmenuje xy mam nastaveno Application Name
na xy, aby se tento nazev zobrazoval. Ale tento nazev se objevuje >i pri
nastavovani Program folders. Cili pod cim to ma byt v nabidce START. Ale ja
bych tam potreboval implicitni nastaveni jine. Jde to vubec >udelat?
To se nastavuje v Dialog boxes a tam v Select Program Folder.
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
AnsiStringy
[*] Erik Salaj <winsoft(zv)stonline.sk> - 25.6.2001 14:43:57
> Exituje ale nekolik pripadu, kdy kompilator z principu neni schopen
> uvolnovani long stringu osetrit. Jedna se napriklad o long sringa ve
> vlastnich slozenych strukturach (promenne typu record, pole stringu, atd)
Kompilator inicializuje a uvolnuje stringy aj v zaznamoch a poliach.
> Pokud jsi zvykly napriklad recordy inicializovat pomoci FillChar, pak
pokud
> v recordu jsou stringa, musis si dat pozor , aby neobsahovala zadne
retezce
> (prepsal bys pointry a nedealokoval pamet). Prepis string promennych na 0
> (NIL) je mozny (a nutny) jen v pripade, ze struktura obsahuje zatim jen
> nahodna data (stringa jsou nepouzita). Jinak musis nejprve stringa
> dealokovat (S := ''; SetLength(S,0) je to same ale ponekud mene citelne)
Premenna string nikdy neobsahuje nahodne data, pokial ich tam niekto
nevhodnym pretypovanim alebo funkciami ako FillChar nezapise.
> > Plati to i kdyz ji deklaruji v nejake procedure ci funkci, nebo kdyz ji
> > posilam jako parametr funkce/procedury?
>
> String parametry se dealokuji v kodu, ktery volal proceduru/funkci.
Pocitaju sa referencie a string sa uvolnuje vtedy, ked pocitadlo klesne na
0.
Nemusi to byt volajuca procedura/funkcia.
Erik
Co pozira systemove prostredky?
[*] Danny <delphiforum(zv)atlas(tec)cz> - 25.6.2001 14:53:18
Ahoj,
moje aplikace dost krute uzira systemove prostredky. Nedavno jsem vznesl
dotaz, proc tomu tak je, ale nikdo se nechyt.
Mam tedy konkretni dotaz. Je v poradku, kdyz si vytvorim globalni promenne
jako treba nasledujici:
ACombo,BCombo:array[1..4] of TComboBox;
a pak provadim
ACombo[1]:=NejakyComboBox;
ACombo[2]:=JinyComboBox;
...
tzn. vytvarim si pole komponent z formulare.
Je to v pohode? Nemusim nic uvolnovat?
Dik za pomoc.
Danny
DAODS a pripojeni import externi tabulky v progra
[*] Erik Salaj <winsoft(zv)stonline.sk> - 25.6.2001 15:09:41
Pozri http://www.cybermagic.co.nz/winsoft/daofaq.htm#Q27
a http://www.cybermagic.co.nz/winsoft/daofaq.htm#Q34
Erik
Aplikace do rustiny
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 25.6.2001 15:17:28
Ahoj,
stojim pred problemem lokalizace aplikace do rustiny. Chci se
proto zeptat, zda s tim nekdo mate nejake zkusenosti a jake? Jak
na to? Staci vzit ceskou aplikaci a lokalizator, nebo je to slozitejsi?
Krome toho bych se rad zeptal znalcu FlashFileru - ona
aplikace stoji na FF v rezimu single exe. Daji se cekat nejake
neprijemnosti, bude-li FF spusten na ruskych Windows
(zobrazovani, trideni apod.).
Diky za nazory.
David Lebeda
Co pozira systemove prostredky?
[*] brant(zv)dcomm(tec)cz - 25.6.2001 16:23:18
Tento zapis znamena ve skutecnosti jen pole ukazatelu na ty kombicka, takze
neni nutne zadne uvolnovani, pokud ovsem korektne uvolnujes ty puvodni
objekty. Muzes zkusit treba pres MemProof, jestli ti nekde neco nezustava
viset, dokonce uvidis i ve zdrojaku misto, kde jsi nejakou tu neuvolnenou
pamet alokoval.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
moje aplikace dost krute uzira systemove prostredky.
Mam tedy konkretni dotaz. Je v poradku, kdyz si vytvorim globalni promenne
jako treba nasledujici:
ACombo,BCombo:array[1..4] of TComboBox;
a pak provadim
ACombo[1]:=NejakyComboBox;
ACombo[2]:=JinyComboBox;
...
tzn. vytvarim si pole komponent z formulare.
Je to v pohode? Nemusim nic uvolnovat?AnsiStringy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.6.2001 16:24:28
> > Exituje ale nekolik pripadu, kdy kompilator z principu neni schopen
> > uvolnovani long stringu osetrit. Jedna se napriklad o long sringa ve
> > vlastnich slozenych strukturach (promenne typu record, pole stringu,
atd)
>
> Kompilator inicializuje a uvolnuje stringy aj v zaznamoch a poliach.
mel jsem na mysli promenne nevytvarene automaticky kompilatorem (dynamicke
promenne), ale koukam, ze jsem to tam nenapsal :-(
> > Pokud jsi zvykly napriklad recordy inicializovat pomoci FillChar, pak
> pokud
> > v recordu jsou stringa, musis si dat pozor , aby neobsahovala zadne
> retezce
> > (prepsal bys pointry a nedealokoval pamet). Prepis string promennych na
0
> > (NIL) je mozny (a nutny) jen v pripade, ze struktura obsahuje zatim jen
> > nahodna data (stringa jsou nepouzita). Jinak musis nejprve stringa
> > dealokovat (S := ''; SetLength(S,0) je to same ale ponekud mene citelne)
> Premenna string nikdy neobsahuje nahodne data, pokial ich tam niekto
> nevhodnym pretypovanim alebo funkciami ako FillChar nezapise.
a proto programy, ktere na to spolehaji hlasi exceptiony na pouhem prirazeni
do stringa ... Tam kde toho kompilator je z principu schopen tam
inicializace/deinicializace je automaticka. Tam kde to neni mozne musi se o
ni postarat programator.
> > > Plati to i kdyz ji deklaruji v nejake procedure ci funkci, nebo kdyz
ji
> > > posilam jako parametr funkce/procedury?
> >
> > String parametry se dealokuji v kodu, ktery volal proceduru/funkci.
>
> Pocitaju sa referencie a string sa uvolnuje vtedy, ked pocitadlo klesne na
> 0.
> Nemusi to byt volajuca procedura/funkcia.
podle mne - nikdy to neni volana procedura. Volajici procedura to skutecne
byt nemusi - ale jen pokud promenna byla deklarovana mimo ni.
Cili vzdy se uvolni (myslim zcela dereferuje a dealokuje) v nadrazenem kodu.
A vzdy k tomu musi dojit tam kde je ta promenna deklarovana. Pripominam, ze
mam na mysli automatickou dealokaci (ne programatorem vlozene S := '')
Volana procedura zvysuje reference pouze pokud je stringo predavane hodnotou
(bez VAR). Jinak se reference nezvysuje a tim padem neni treba ani
automaticka dealokace
Samozrejme, ze automaticky generovany kod, dealokuje stringo 'legalne' -
tedy snizi references a pokud jsou nenulove (nekdo pred tim napriklad
priradil S := S2) pak se zadna pamet neuvolnuje.
D. Toman
Excel
[*] Peter Surovy <psurovy(zv)uevora.pt> - 25.6.2001 16:14:01
Nedavno tu prebiehala debata a vytvarani excelovskych suborov.
Niekto doporucil stiahnut si unit JCL Excell z Delphi Jedi. To som vsetko
poctivo vykonal teraz som vsak zistil ze pouzitie tohoto unitu(resp.
procedur v nom) je nad moje programatorske schopnosti a IQ 23 a Help
neexistuje resp. existuje ale zrovna JCL Excell v nom nie je. Nemate niekto
kus kodu kde by som mohol vidiet ako to vlastne funguje a ako to mozem
pouzit aj ja?
A da sa zapisat do Excel. zositu priamo aj array ci najskor ho musim ulozit
ako tabulku db?
Dakujem
----------------------------------
Ing. Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
Scroll Bar
[*] cis <cis(zv)atlas(tec)cz> - 25.6.2001 19:15:04
Hi,
trapim se s takovou malickosti. Potreboval bych nekde v programu odchytit
okamzik kdy uzivatel programu klikne, nebo se mysi premisti nad vertikalni
scrollbar (napr. Treeview, grid....). Diky za nakopnuti spravnym smerem
alda
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 9.5.2001
MemoryTable
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 25.6.2001 19:57:15
> RXMemoryTable i kbMemoryTable jsou odvozeny od TDBDataset -
> takze pouzivaji BDE, ja potrebuju primo odvozenou od TDataset.
TkbmMemTable, k nalezeni viz nize, nevyuziva BDE a je odvozeno
od TDataSet. Pouzivam, mohu jen doporucit.
Jiri Binder
> ing. Jan Fiala napsal:
> >bud pouzij RXMemorytable z RX komponent nebo kbMemoryTable, najdes ji
> >na http://delphi.e-indexit.com/
horizontalny posuvnik u treeview
[*] miki misovic <suro(zv)naex.sk> - 25.6.2001 23:21:21
Ahoj,
Potreboval by som pomoct s nasledujucim problemom.Ako zakazat horizontalny
posuvnik u treeview?
Dik.Rekurze s TWinControl
[*] Lauko #tefan <laukosw(zv)naex.sk> - 26.6.2001 00:09:43
From: Danny <delphiforum(zv)atlas(tec)cz>
> Zkousel jsem pouzit Components a nechodi to.
>
> For i:=0 to NejakejPanel.ComponentCount-1 do
> If NejakejPanel.Components[i] is TComboBox then ...
>
> Skonci to hlaskou List index out of bounds
Ahoj,
v tomto pripade je to trochu inak. Musis to pouzit na ownera - vo vacsine
pripadov TForm.
Napriklad takto:
{zistim kompatibilitu objektu}
Function IsCompatibleClass(Sender:TObject;S:String):Boolean;
var
ClassRef: TClass;
begin
Result:=False;
ClassRef := Sender.ClassType;
while ClassRef <> nil do
begin
If ClassRef.ClassName = S then begin Result:=True; Break; end;
ClassRef := ClassRef.ClassParent;
end;
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
For i:=0 to ComponentCount-1 do {prejde vsetko co je vlozene na formular tak
ako to je v DFM}
If IsCompatibleClass( Components[i],'TControl') then {Je to najmej
TControl ? - ma parenta.}
begin
If TControl( Components[i]).Parent = NejakejPanel then
begin
{je to vizualna componenta a jej parent je
NejakejPanel a jej owner je self }
If Components[i] is TComboBox then ...
end;
If TControl( Components[i]).Parent = NejakejPanel1 then ...
{je to vizualna componenta a jej parent je
NejakejPanel1 a jej owner je self }
{Atd...}
end;
end;
Lauko.
Kresleni dvoubarevne bitmapy
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 26.6.2001 00:45:12
> Problem je v tom, za jsem chtel docilit o trochu vice, minimalne
> to, aby cernobila bitmapa se zobrazila
> cerna->na zadanou barvu,
> bila->pruhledna
> Idelane jeste trochu vic: v podstate tribarevniou bitmapu
> 1.barva->zadanou barvu
> 2.barva->na jinou barvu
> 3. barva->pruhledna
> Myslel jsem, ze by to nemel byt problem, ale nejak se mi nedarilo
mno, napadaji mne 2 reseni:
1. PixelFormat:=pf24bit; HandleType:=bmDIB, Transparent:=true;
TransparentColor:=??;
pak pomoci Canvas.FloodFil menit barvy a zobrazovat
2. PixelFormat:=pf4bit; HandleType:=bmDIB, Transparent:=true;
TransparentColor:=??;
a barvu menit pomoci palety /CreatePallete, SelectPallete../ ... tohle jsem
prakticky zkousel kdysi v Dosu
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 26.6.2001 01:56:10
Diky vsem za podnetne navrhy a pripominky.
Nutno podotknout, ze zatim jak to vypada, pravdu mel Petr Vones (asi
jako vzdy :)
Skutecne test na FPU skoncil padem zarucene, vzdy a ihned.
Vzhledem k tomu, ze k dispozici byly hned 3 vzorky hardware, nerekl
bych, ze se jedna o nahodu. Pro informaci uvadim, ze motherboardy jsou
FIC s KT133A. Tomas Michalik, ac je v tom urcite nevinne, bude tusit
odkud pochazeji.. :)
S pozdravem,
Filip Hochman
Tomas Michal�k wrote:
>
> Jaroslav Nadhera wrote:
> >
> > > rad bych se zeptal, jestli nema nekdo zkusenost s problemem nahodneho a
> > > samozvaneho ukoncovani Delphi aplikace bezici pod Win ME, na AMD Athlon
> >
> > Pokud jsme meli problemy podobneho razu, tak vzdy s procesory AMD. Nechci
> > tvrdit, te jsou AMD zcela spatne, ale vzdy, kdyz byl podobny problem a
> > vymenil se procesor za Intel, problemy zmizely. Proc to bylo se zatim
> > nezjistilo (ony dva pripady se vyresily vymenou procesoru).
>
> Hmm, aby to nebylo tak jednoduche, tak prispeju dvema dalsimi
> historkami. Na jednom pocitaci fungovaly vsechny aplikace az na aplikace
> z MS Office. Na druhem pocitaci pro zmenu neustale padal MS Outlook,
> nektere jeho funkce nefungovaly vubec. Vse se udalo behem posledniho
> roku. U obou se problem odstranil az vymenou procesoru za jiny kus.
> Procesory nebyly pretaktovane a jine aplikace nemely zadny problem.
> Jeden Celeron a jedno Pentium III - frekvence neznam, ale jednalo se o
> soudobe modely. Takze bych to zobecnil tak, ze nejake problemy se cas
> od casu objevi u vseho.
>
> S pozdravem,
>
> =================================
>
> Tomas Michalik
> ProCA, s. r. o.
> V Luzich 818, Praha 4
> Czech Republic
>
> e-mail: michalik(zv)proca(tec)cz
> tel: +420 2 67283446
Aplikace do rustiny
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 26.6.2001 08:07:28
On 25 Jun 2001, at 15:17, David Lebeda wrote:
> stojim pred problemem lokalizace aplikace do rustiny. Chci se
> proto zeptat, zda s tim nekdo mate nejake zkusenosti a jake? Jak na
> to? Staci vzit ceskou aplikaci a lokalizator, nebo je to slozitejsi?
Pro LL5 je uz i rusky slovnik (tedy prelozene zakladni BPL z D5),
prave dnes jsem ho dostal od prekladatele. V LL5 je to stejne
obtizne jako z treba z anglictiny do cestiny, pokud umis rusky a
mas naistalovane ruske fonty a klavesnici. V LL4 to zdaleka tak
jednoduche neni, i kdyz to jde take.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
algoritmus - max. vyuzitie plochy materialu
[*] DHederer(zv)softip.sk - 26.6.2001 08:07:00
Ahoj,
hladam algortimus na maximalne vyuzitie plochy materialu.
Teda mam material, ktory ma obdlznikovy tvar cize x*y,
hrubka ma nezaujima.
Vstupy:
rozmery obdlznikovych tvarov, ktore chcem vyrezat
a potrebujem zistit ich najoptimalnejsie rozmniestnenie, aby som
mal co najmenmsi odpad.
Podmienka: viem odpilit len celu dlzku alebo sirku dosky
-------------------------------------
|_neda sa _| |
|_ _ _ _ _ _ _ _ _ _ _ _ _ |
|**************************** | - len cela dlzka sa da odpilit
------------------------------------
Delphi 6 a mySQL
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 26.6.2001 08:18:00
Tak uz jsem prisel na ten problem s dbExpres komponentou v D6.
Pokud se potrebujete pripojit na mySQL server, tak muzete, ale pouze pokud
jej mate nainstalovany na lokalnim pocitaci (tam, kde programujete).
Je nutno jen korektne vyplnit nazev databaze, login a heslo.
V kolonce host (IP adresa mySQL serveru), muze byt cokoli. At tam date
localhost, jjsdkjdnuer, proste cokoli, tak se komponenta VZDYCKY pripoji
pouze na lokalni pocitac.
---
Tomas
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virova baze: 132 - datum vydani: 12.6.2001
Aplikace do rustiny
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 26.6.2001 08:24:32
> > stojim pred problemem lokalizace aplikace do rustiny.
>
> Pro LL5 je uz i rusky slovnik (tedy prelozene zakladni BPL z D5),
> prave dnes jsem ho dostal od prekladatele. V LL5 je to stejne obtizne
> jako z treba z anglictiny do cestiny, pokud umis rusky a mas
> naistalovane ruske fonty a klavesnici. V LL4 to zdaleka tak jednoduche
> neni, i kdyz to jde take.
Mam LL 4.70c a protoze ten preklad do rustiny je jen asi
jednorazova a pomerne mala zakazka, nevyplati se kvuli tomu
kupovat novy lokalizator.
Da se nejak shrnout, kudy se vrhnout do problemu? Nebo
existuje nejaky odkaz, kde bych to mohl nastudovat? Ja si zatim
nejak neumim predstavit, jak na ceskych NT4 s ceskou klavesnici
vytvorim aplikaci v azbuce, ale rad se to naucim.
Diky predem.
David Lebeda
PSafeArray - jak na nej ?
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 26.6.2001 08:32:59
Tak uz jsem ho zlomil :))
moje konfigurace je Delphi 5 Ent., Windows 2000 Pro + SP2
- pro vytvoreni z niceho
var p1: PSafeArray;
....
SafeArrayCopy(PSafeArray(TVarData(VarArrayOf(['prvni polozka', 'druha
polozka', ....])).VArray), p1);
// a v p1 je dane pole a muze se pouzit
- mame PSafeArray a chceme z nej dostat data
var I: Integer;
PomV: OleVariant;
...
SafeArrayGetElement(p1, I, PomV);
// p1 = PSafeArray, I = index od nuly, PomV = vysledek
Doufam, ze to nekomu usnadni praci :))
Zdravi
Pavel Skalicky
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
Budoucnost FastReportu
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 26.6.2001 08:40:00
Hello All!
Mozno vas bude zaujimat, co v RU.DELPHI.INFO odpovedal autor fastreportu na
dotaz, co planuje dalej:
=== cut begin ===
Tento mesiac sa budem snazit vystavit FR.42 s powerpackom - desiatky roznych
komponent (podpora roznych SUBD, exportne filtre atd). Nie som ich autorom.
Po 2.42 planujem zacat prace na verzii 3.0 - bude to prakticky uplne znovu
napisane, spusta novych moznosti, zatial neprezradim, akych, len pripomeniem
normalny cross-tab. Termin vydania prvej bety 3.0 nie je urceny, ale
predpokladam, ze to bude este v tomto roku ;-)
Bude aj verzia pre Kylix, mozno ze uz v serii 2.42, alebo az v 3.0, podla
toho, ake problemy vyskocia pri portovani.
=== cut end ===
Bye
V.Mlich http://www.winrar(tec)cz
Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 26.6.2001 08:49:01
Ahoj,
Filip Hochman wrote:
>
> Diky vsem za podnetne navrhy a pripominky.
> Nutno podotknout, ze zatim jak to vypada, pravdu mel Petr Vones (asi
> jako vzdy :)
> Skutecne test na FPU skoncil padem zarucene, vzdy a ihned.
> Vzhledem k tomu, ze k dispozici byly hned 3 vzorky hardware, nerekl
> bych, ze se jedna o nahodu. Pro informaci uvadim, ze motherboardy jsou
> FIC s KT133A. Tomas Michalik, ac je v tom urcite nevinne, bude tusit
> odkud pochazeji.. :)
jasne, sam jsem si prosel martyriem vybirani jednoho funkcniho kusu z
uplne prvni serie AZ11 vice nez pred rokem :-( Nasel jsem ho a jsem od
te doby spokojen (WinNT). Ty problemy se projevuji i po aplikaci
posledniho 4in1 patche ?
> S pozdravem,
> Filip Hochman
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
seriova komunikace v Pascalu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.6.2001 09:07:44
> neco tu mam jestli ti to pomuze ...
No tak tohle bych se pouzivat neodvazil. Kde je osetreni zaplneni bufferu
(cili test na pripravenost k akceptovani dalsiho znaku k odeslani??)
>ReadPort nemam ale zrejme tam bude jenom
> istrukce in misto out
tam se zase musi testovat zda skutecne nejaky znak prisel....
> Procedure Sendport(p:word;b:byte);Stdcall;
> begin
> asm
> push edx
> push eax
>
> mov dx,p
> mov al,b
> out dx,al
>
> pop eax
> pop edx
> end;
> end;
>
> procedure setport;
> begin
> sendport(BA+3,$80); {aktivuje zadani rychlosti}
> sendport(BA,$60); {dolni slabika}
> sendport(BA+1,0); {horni slabika}
> sendport(BA+3,1); {6 bitu, 1 stop, none}
> end;
Misto techhle rutin je uz lepsi pouzivat BIOS obsluhu pro seriaky (tusim INT
14h). Ale uplne nejlepsi je neco interrupt driven - neco co visi na
preruseni od prislusneho seriaku a automaticky pri prichodu znaku jej precte
a nekam ulozi, pripadne posle dalsi znak jakmile je seriak pripraven jej
akceptovat.
Moje zdrojaky k plne interrupt driven obsluze seriaku pod DOSem najdes tady:
ftp.lit(tec)cz/utils/serial
D. Toman
Aplikace do rustiny
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 26.6.2001 09:28:18
> > > stojim pred problemem lokalizace aplikace do rustiny.
> >
> > Pro LL5 je uz i rusky slovnik (tedy prelozene zakladni BPL z D5),
> > prave dnes jsem ho dostal od prekladatele. V LL5 je to stejne obtizne
> > jako z treba z anglictiny do cestiny, pokud umis rusky a mas
> > naistalovane ruske fonty a klavesnici. V LL4 to zdaleka tak jednoduche
> > neni, i kdyz to jde take.
>
> Mam LL 4.70c a protoze ten preklad do rustiny je jen asi
> jednorazova a pomerne mala zakazka, nevyplati se kvuli tomu
> kupovat novy lokalizator.
> Da se nejak shrnout, kudy se vrhnout do problemu? Nebo
> existuje nejaky odkaz, kde bych to mohl nastudovat? Ja si zatim
> nejak neumim predstavit, jak na ceskych NT4 s ceskou klavesnici
> vytvorim aplikaci v azbuce, ale rad se to naucim.
Ja sice nevim, jak v Localizatoru, ale ve Windows98 jsem normalne pridal
ruskou klavesnici (OvlPanely, klavesnice, jazyk, pridat, rusky) a v
textovych editorech Word, 602Text staci prepnout klavesnici na rustinu
(ikona vpravo dole) a pisu v azbuce - font prehodi sam na ruskou verzi
nastaveneho fontu.
Leos
kopi
[*] Lubos Daniel <ldaniel(zv)gymmt.sk> - 26.6.2001 09:31:02
> mozna by pomohlo otevrit file pomoci CreateFile() a nastavit
> FILE_FLAG_NO_BUFFERING
NEpomaha to.
P.S: Sorry za ten subjekt
TRUE and TRUE = FALSE ?
[*] Danny <delphiforum(zv)atlas(tec)cz> - 26.6.2001 10:14:21
Zdarek,
narazili jsme na dost podivnou vec, kterou asi zcela nechapeme.
Var A,B,Vysledek:Boolean;
begin
A:=TRUE;
B jsme zapomneli nastavit, ale pri ladeni a krokovani nam Delphi ukazovaly,
ze hodnota B je TRUE.
Vysledek := A and B;
A bylo TRUE, B bylo (podle WatchListu) taky TRUE a Vysledek = FALSE.
Jak je to mozny?
Danny
Delphi 6
[*] BLAU <blau(zv)emdat(tec)cz> - 26.6.2001 10:22:08
Naprosty souhlas jedna se o klasicky problem sudych verzi delphi bez
problemu pouzitelne byli D3 a D5 takze pristi verzi kterou budu kupovat bude
urcite nejdrive verze D7... :)
s D5 Pro jsem neprosto spokojeny a myslim ze i cena do 10k je ekvivalentni
hodnote produktu.
Petr Balu
software developer
Subject: RE: Delphi 6
> Myslim, ze si pockam na D7
> Nevidim nic, co by som v D6 k svojej praci potreboval
Delphi 6
[*] Dana Petr <Petr.Dana(zv)pvt(tec)cz> - 26.6.2001 10:32:20
> s D5 Pro jsem neprosto spokojeny a myslim ze i cena do 10k je
> ekvivalentni
> hodnote produktu.
Mam to chapat tak, ze jsi sehnal D5 Pro do 10.000 Kc ??? A kde proboha,
vzdyt to stoji pres 20.000
Petr
TRUE and TRUE = FALSE ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.6.2001 10:37:01
> Zdarek,
> narazili jsme na dost podivnou vec, kterou asi zcela nechapeme.
>
> Var A,B,Vysledek:Boolean;
>
> begin
> A:=TRUE;
>
> B jsme zapomneli nastavit, ale pri ladeni a krokovani nam Delphi
ukazovaly,
> ze hodnota B je TRUE.
>
> Vysledek := A and B;
>
> A bylo TRUE, B bylo (podle WatchListu) taky TRUE a Vysledek = FALSE.
>
Je treba se podivat jak kompilator vyhodnocuje A and B v pripade, ze se
jedna o boolean. Je mozne, ze B neobsahovalo hodnotu 1 ale neco jineho
nenuloveho (watch list to zobrazi jako true) a AND vyhodnocuje jen nulte
bity
Pripadne je mozne, ze za jinych podminek Vas program dosadil (nahodne) do B
False nikoliv True.
D. Toman
OT: Prosim jaky MB si mam koupit
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 26.6.2001 10:40:28
Predem se omlouvam za OT.
Mam ale obrovsky problem a potrebuji horychle vyresit
Potrrebuji jeste dnes koupit novy PC na DELPHI 6, grabovani videa
a sem tam nejakou hru
mam vybrano Athlon 1.2 GHz / 266 MHz/ 256 MB RAM a nevim
jaky MB
bud
QDI
KinetiZ 7E-A - ATX, VIA KT-133A, AGP 4x, audio, Sock.A, ATA100
ktery ma sice 266 MHz sbernici ale jen 133 MHz DIMM
a nebo
ECS K7AMA, ALI Magic 1645 - socketA, Sound, LAN, mATX
ktery ma i pamet na 266 MHz, ale zase neznam ten Chipset ani
desku, prosim kdo to znate poradte.
specha, dekuji
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
None
[*] JKOCI(zv)chargeurs-interlining(tec)com - 26.6.2001 10:48:24
Ahoj,
potrebuji vytvorit vicejazycnou aplikaci.
- Zrejme k tomu potrebuji nejaky string resource, ale nemam 32bit resource
editor.
- Nebo v helpu Delphi pod "Environment dialog box" vidim, ze posledni
zalozka Environment je "Translation tools". Ale ja tam nic takoveho nemam.
Je tedy ITE pouze ve verzi Enterprise?
Jak byste problem s vice jazyky resili vy?
Diky, Johnnie
D5, W2K
Aplikace do rustiny
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 26.6.2001 10:58:23
> > > > stojim pred problemem lokalizace aplikace do rustiny.
> > >
> > > Pro LL5 je uz i rusky slovnik (tedy prelozene zakladni BPL z D5),
> > > prave dnes jsem ho dostal od prekladatele. V LL5 je to stejne
> > > obtizne jako z treba z anglictiny do cestiny, pokud umis rusky a
> > > mas naistalovane ruske fonty a klavesnici. V LL4 to zdaleka tak
> > > jednoduche neni, i kdyz to jde take.
> >
> Ja sice nevim, jak v Localizatoru, ale ve Windows98 jsem normalne
> pridal ruskou klavesnici (OvlPanely, klavesnice, jazyk, pridat, rusky)
> a v textovych editorech Word, 602Text staci prepnout klavesnici na
> rustinu (ikona vpravo dole) a pisu v azbuce - font prehodi sam na
> ruskou verzi nastaveneho fontu.
Takze: s tou klavesnici je to pravda a na zaklade experimentu se
mi zda, ze provest lokalizaci lokalizatorem neni problem. Pritom je
potreba zrejme v prekladane aplikaci nastavit font na nejaky s
cyrilickym charsetem, mne se libi Times New Roman. Na zaklade
techto dvou kroku by mela vzniknout rusky mluvici aplikace.
Nebo je jeste nejaky jiny problem?
Nyni se pokusim experimentovat na tema FlashFiler a rustina.
Opet - zda nebude mit problem pojmout data v azbuce a hlavne
zda na nich bude spravne vyhledavat a tridit. Nezkousel jste to
nekdo?
David Lebeda
KYLIX - komponenty
[*] BLAU <blau(zv)emdat(tec)cz> - 26.6.2001 10:58:00
Ahoj kuciiii
cil projektu trivrstva DB aplikace client - server na zakazku
Problem: migrace stavajicich technologii z D3, D4, D5 --> KYLIX 1.0
Dotaz: existuje nejaka alternativa ke komponentam RX 2.7,
AsyncFree,
generatoru tiskovych sestav Sinea,
pro KYLIX 1.0 ?
Mate nekdo nejake typy na komponety nebo ze ktere strany na to jit?
Jinak bez podpory seriove komuniakce a kvalitnich tiskovych vystupu je mi KYLIX i s celou paradou okolo na nic a nezbyde nic jineho nez zase pro kazdeho clienta licencovat Wopice od M$.
s pozdravem Petr Blau software developer
None
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 26.6.2001 10:59:35
> potrebuji vytvorit vicejazycnou aplikaci.
>
> Jak byste problem s vice jazyky resili vy?
>
www.localizator.com
David Lebeda
OT: seriova komunikace v Pascalu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 26.6.2001 11:10:34
Ahoj,
registry serioveho portu (com1, com2 = 2f8,com3 = 3e8, com4 = 2e8)
ComDataRegister : 3f8;
ComDivIntr : 3f9;
ComIntrIdent : 3fA;
ComLineControll : 3fB;
ComModemControll : 3fC;
ComLineStatus : 3fD;
ComModemStatus : 3fE;
{$F+} {nutne kvuli preruseni}
inicializace :
ComUARTValueH := Hi (115200 div ComSpeed);
ComUARTValueL := lo (115200 div ComSpeed);
port [ComDivIntr] := 0; {Disable Intr}
D := port [ComDataRegister];
D := port [ComModemStatus];
D := port [ComLineStatus];
port [ComLineControll] := $83;
port [ComDataRegister] := ComUartValueL;
port [ComDivIntr] := ComUartValueH;
port [ComLineControll] := 3 + comParity shl 3; {8 bitu 1 Stop}
port [ComModemControll] := 9;
GetIntVec (ComIntrNumber,OldComISR);
SetIntVec (ComIntrNumber,NewComISR);
port [ComDivIntr] := 1; {Enable IRQ When DATA Ready}
port [$21] := port [$21] and comIRQMask
pri ukonceni programu je dobre vratit zpet vektor preruseni, ev. masku -
port 21
obsluha preruseni kdyz prijdou data
procedure NewComISR; interrupt;
begin
D := port [comDataRegister];
port [$20] := $20;
end;
odeslani byte :
port [comDataRegister] := D;
To by Ti mohlo stacit.
Vaclav Sazima
Danny wrote:
>
> Ahoj lidi,
> potrebuju pro jeden starsi program napsanej v TP7 dodelat to, abych
> jednoduse mohl poslat na seriovy port nejakej byte a naopak z portu cist.Aplikace do rustiny
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 26.6.2001 11:35:49
On 26 Jun 2001, at 8:24, David Lebeda wrote:
> > > stojim pred problemem lokalizace aplikace do rustiny.
> >
> Mam LL 4.70c a protoze ten preklad do rustiny je jen asi
> jednorazova a pomerne mala zakazka, nevyplati se kvuli tomu
> kupovat novy lokalizator.
> Da se nejak shrnout, kudy se vrhnout do problemu? Nebo
> existuje nejaky odkaz, kde bych to mohl nastudovat? Ja si zatim
> nejak neumim predstavit, jak na ceskych NT4 s ceskou klavesnici
> vytvorim aplikaci v azbuce, ale rad se to naucim.
V kazdem pripade je nutne doinstalovat podporu rustiny. Z ceske
klavesnice to samozrejme nejde, Lokalizator nema vlastni
klavesnice. LL4 edituje texty v ansi kodovani, takze pokud se
nepodari zobrazit spravne bukvicky, je nutne jeste nastavit ve
Woknech rustinu jako defaultni. V LL5 se vse edituje v unicode,
takze tam staci mit klavesnici a font, a v ceskych Woknech lze
prekladat treba z rustiny do hebrejstiny (coz v LL4 takto snadno
nejde).
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Prosim jaky MB si mam koupit
[*] Tom�s Hol� - notebook <notebook(zv)thcom(tec)cz> - 26.6.2001 11:55:06
jedine Abit nebo Asus !!!
max potom MSI
TH
----- Original Message -----
From: "Radek KALA" <Kala(zv)Atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 26, 2001 10:40 AM
Subject: OT: Prosim jaky MB si mam koupit
> Predem se omlouvam za OT.
>
> Mam ale obrovsky problem a potrebuji horychle vyresit
> Potrrebuji jeste dnes koupit novy PC na DELPHI 6, grabovani videa
> a sem tam nejakou hru
> mam vybrano Athlon 1.2 GHz / 266 MHz/ 256 MB RAM a nevim
> jaky MB
> bud
> QDI
> KinetiZ 7E-A - ATX, VIA KT-133A, AGP 4x, audio, Sock.A, ATA100
> ktery ma sice 266 MHz sbernici ale jen 133 MHz DIMM
> a nebo
> ECS K7AMA, ALI Magic 1645 - socketA, Sound, LAN, mATX
> ktery ma i pamet na 266 MHz, ale zase neznam ten Chipset ani
> desku, prosim kdo to znate poradte.
> specha, dekuji
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Cerneho 58/60, 635 00
> tlf. : + 420 5 4622 3491
> fax : + 420 5 4622 3470
> GSM : + 420 603 85 75 15
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
Registry a restart/vypnuti windows
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 26.6.2001 11:58:20
Zdravim,
pred casem jsem psal, ze mam alikaci ktera neustale bezi, taktez to ze v
pripade ukonceni windowsu se aplikace odmitne ukoncit a nasledne i windowsy.
Po kratke dobe (asi tak mesici) jsem konecne prisel cim to. V pripade ze dam
do TForm.QueryClose nebo sekce finalization uvolneni (MyInit.Free) tak se
aplikace prestane ukoncovat.
Proc?
MyInit je TRegistry a je globalni...
D5 ent, Win2k, ME, W98.
Zdenek
Prosim jaky MB si mam koupit
[*] Jiri Kral jr. <admin(zv)printo(tec)cz> - 26.6.2001 12:03:41
::QDI nebo
::ECS K7AMA, ALI Magic 1645 - socketA, Sound, LAN, mATX
brrrr, jedine ASUS, ABIT, resp. MSI ale rozhodne te odrazuji od experimentu
s nejakyma takovyma hruzama...
neusetris, leda se s tim budes dozirat a resit "zahadne" pady, tuhnuti apod.
J.K.
Reakce na zmenu obrazku
[*] Danny <delphiforum(zv)atlas(tec)cz> - 26.6.2001 12:07:50
Zdravim,
mam komponentu TImage a potrebuju provest urcite operace pri zmene obrazku,
tzn. v pripade, ze se zmeni obsah, tak na to chci reagovat.
Bohuzel ale nevim jak.
v sekci Private v TImage je
procedure PictureChanged(Sender: TObject);
myslel jsem, ze mi bude stacit ji ve svy unite prepsat, ale bud to nejde
nebo to delam spatne.
Chape nekdo muj problem a zaroven zna odpoved?
Diky.
Danny
Delphi 6
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 26.6.2001 12:11:52
> Mam to chapat tak, ze jsi sehnal D5 Pro do 10.000 Kc ??? A kde proboha,
> vzdyt to stoji pres 20.000
>
> Petr
>
Tesne pred vanoci mel cesky Borland akci Delphi 5 Professional za (tusim)
8490,-.
Ota Maly
TRUE and TRUE = FALSE ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.6.2001 12:23:49
> > Zdarek,
> > narazili jsme na dost podivnou vec, kterou asi zcela nechapeme.
> >
> > Var A,B,Vysledek:Boolean;
> >
> > begin
> > A:=TRUE;
> >
> > B jsme zapomneli nastavit, ale pri ladeni a krokovani nam Delphi
> ukazovaly,
> > ze hodnota B je TRUE.
> >
> > Vysledek := A and B;
> >
> > A bylo TRUE, B bylo (podle WatchListu) taky TRUE a Vysledek = FALSE.
> >
>
> Je treba se podivat jak kompilator vyhodnocuje A and B v pripade, ze se
> jedna o boolean. Je mozne, ze B neobsahovalo hodnotu 1 ale neco jineho
> nenuloveho (watch list to zobrazi jako true) a AND vyhodnocuje jen nulte
> bity
>
> Pripadne je mozne, ze za jinych podminek Vas program dosadil (nahodne) do
B
> False nikoliv True.
>
Tak jsem si to zkousel a kod:
VAR a,b,c : Boolean;
begin
c := true;
byte(b) := $10;
..
kompilator prelozi jako
;c:= true
mov byte ptr[c],01
;byte(b) := $10
mov byte ptr[b],10
;a := b and c
mov al,[b]
and al,[c]
mov[a],al
vysledkem je samozrejme byte(a) = 0 = FALSE
--
cili promenna B, ktera se tvari jako TRUE ve skutecnosti TRUE neobsahuje a
v logickych operacich se neda pouzit (pokud nejnizsi bit neni nastaven na 1
neni to plnohodnotne TRUE).
Pozn: pri porovnavani hodnot (if A then...) kompilator pouziva instrukce:
cmp [A],00
cili libovolna nenulova hodnota v A je vyhodnocena jako TRUE. Pouze nule je
brana jako FALSE.
D. Toman
PSafeArray - jak na nej ?
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 26.6.2001 12:24:42
Na praci se SafeArrays jsou v Delphi funkce VarArray...
V helpu jsou i srozumitelny priklady
Tom
KYLIX - komponenty
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.6.2001 12:26:36
Puvodni zprava, kterou napsal BLAU dne 26 Jun 2001,:
> Jinak bez podpory seriove komuniakce a kvalitnich tiskovych =
> vystupu je mi KYLIX i s celou paradou okolo na nic a nezbyde nic jineho =
> nez zase pro kazdeho clienta licencovat Wopice od M$. =20
TurboPower nedavno uvedl Async Professional CLX, ktery podporuje
tedy i Kylix. Ale zadarmo rozhodne neni :)
http://www.turbopower.com/products/Linux/APRO/
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Prosim jaky MB si mam koupit
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 26.6.2001 12:28:58
Dobry a levny je take Soltek,
ja mam na Athlonu board GigaByte a je super (ale nevim, jestli je jeste k
sehnani).
Zdravi
Pavel Skalicky
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
None
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 26.6.2001 12:33:58
On 26 Jun 2001, at 10:48, JKOCI(zv)chargeurs-interlining.c wrote:
> potrebuji vytvorit vicejazycnou aplikaci.
>
> - Zrejme k tomu potrebuji nejaky string resource, ale nemam 32bit
> resource editor. - Nebo v helpu Delphi pod "Environment dialog box"
> vidim, ze posledni zalozka Environment je "Translation tools". Ale ja
> tam nic takoveho nemam. Je tedy ITE pouze ve verzi Enterprise?
Jo, ITE je pouze v Enterprise, a jeste k tomu s nekterymi
komponentami nefunguje. Pro zajimavost jsem zkousel translator i
v D6, a tuto chybu dosud neopravili.
> Jak byste problem s vice jazyky resili vy?
Mam na to vlastni nastroj - http://www.localizator.com
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zjisteni existujicich protokolu
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 26.6.2001 13:06:23
Zdar vsem,
existuje v Delphi nejaka funkce, ktera zjisti zda je nainstalovan protokol
NETBUI, TCP/IP ... ?
predem diky za pomoc
Delphi 6
[*] BLAU <blau(zv)emdat(tec)cz> - 26.6.2001 13:07:53
Mrkni se do ceniku - nabizeli to tusim jako upgrade na komkurencni produkt
napriklad M$ Visula studio, ale zahrnovalo to i Office ... :)
Tak jsem to hned koupil. Stejne jsem zjistil ze nejake podpory se od ceskeho
zastoupeni nedockam a tak me vubec nemrzi nemoznost buouciho upgrade...
navic nez vychytaji chyby z D6 tak to tipuji nejmene na 3 SP... :) a tak si
rdeji pockam na lichou verzi D7 a ty si koupim primo od amiku vychazi to o
asi 20% levneji. Ostatne podobne jako vse ostatni PowerBook cca 2300 U$ -
90kKc - u nas cca 140kKc, SGI flat panel 1295 U$ - u nas cca 80kKc. Tak proc
nevyuzivat teticky za oceanem v dobe internetu a kreditnich karet...
Jedine co me ted, ale pali je absence komponent pro KYLIX... fakt nikdo
nevite?
>
> > Mam to chapat tak, ze jsi sehnal D5 Pro do 10.000 Kc ??? A kde proboha,
> > vzdyt to stoji pres 20.000
> >
> > Petr
> >
>
> Tesne pred vanoci mel cesky Borland akci Delphi 5 Professional za (tusim)
> 8490,-.
>
> Ota Maly
>
>
>Proxy & WinInet API
[*] Sl�va - 26.6.2001 13:09:06
Zdar,
nedari se mi udelat obsluhu proxy :(
poradi nekdo jak na to ?
zkousim to nasledovne :
hOpen := InternetOpen('agent...',INTERNET_OPEN_TYPE_PRECONFIG, nil,nil,0)
hConnect := InternetConnect(hOpen, 'ServerName', 80,
'','',INTERNET_SERVICE_HTTP,DWORD(Self));
hHTTPRequest := HttpOpenRequest(hConnect, 'GET', PCHAR(aURL), nil, nil, nil,
INTERNET_FLAG_KEEP_CONNECTION, DWORD(Self) );
HttpSendRequest( hHTTPRequest, nil,0,nil,0);
a ted chci zjistit odezvu od Proxy, jestli vubec je zapotrebi zobrazovat
dialog pro prihlaseni :
if not HttpQueryInfo ( hHTTPRequest, HTTP_QUERY_FLAG_NUMBER and
HTTP_QUERY_STATUS_CODE, Pointer(dwStatus), dwStatusSize, Res) then
RaiseLastWin32Error;
tady to ovsem spadne na chybu : 12150, ze neexistuje hlavicka :((
ocekavam tam odezvu 407 : HTTP_STATUS_PROXY_AUTH_REQ
ale jak se ji dozvedet ???
PS. na proxy se pozadavek o aURL zobrazil..... p�edem d�k za radu,
Sl�va
Prosim jaky MB si mam koupit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2001 13:15:16
From: "Radek KALA" <Kala(zv)Atlas(tec)cz>
> QDI KinetiZ
> ECS K7AMA, ALI Magic
Brrr, tak tomuhle srotu se zdaleka vyhni. Jedine: Abit, Asus, GigaByte, MSI.
Na MB (a monitoru) se nevyplati setrit.
Petr Vones, amatersky programator
RE2: Prosim jaky MB si mam koupit
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 26.6.2001 13:16:27
> ::QDI nebo
> ::ECS K7AMA, ALI Magic 1645 - socketA, Sound, LAN, mATX
>
> brrrr, jedine ASUS, ABIT, resp. MSI ale rozhodne te odrazuji od experimentu
> s nejakyma takovyma hruzama...
> neusetris, leda se s tim budes dozirat a resit "zahadne" pady, tuhnuti apod.
>
Tak Vam teda dekuju, potrebuju to koupit dnes a z nabidky techto
dvou. To ze muze existovat neco lepsiho bych vymyslel taky. Na
druhou stranu neverim tomu, ze QDI nebude fungovat, uz jsem jich
videl nekolik a fungovaly.
Zkuste prosim poradit nekdo kdo zna ty ECS a chipset ALI Magic
Jeste jednou dekuji
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Padajici DB aplikace; Windows ME; Athlon 1.2GHz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.6.2001 13:28:35
From: "Filip Hochman" <filip.hochman(zv)atlas(tec)cz>
> Skutecne test na FPU skoncil padem zarucene, vzdy a ihned.
> Vzhledem k tomu, ze k dispozici byly hned 3 vzorky hardware, nerekl
> bych, ze se jedna o nahodu. Pro informaci uvadim, ze motherboardy jsou
Ahoj,
zkousel jsi:
a) nainstalovat posledni 4.31 VIA pack ?
b) naisntalovat na dany pocitac Windows 2000 SP2 a spustit ty dva testy ?
Je take dobre zkontrolovat jestli procesor neni pretaktovany a je dobre
chlazeny.
Petr Vones, amatersky programator
Mrznouci pocitac a Delphi 5 enterprice a komponent
[*] Tomas Pocarovsky <tomas.pocarovsky(zv)brno.siemens(tec)cz> - 26.6.2001 13:35:14
Ahoj
Pri spusteni nasledujiciho ucebnicoveho prikladu mi vzdycky vytuhne
pocitac.
(On mi zmrzne casto a pri ruznych vecech (vzdy v Delphi), ale tady by to
(velmi pravdepodobne) nemela byt moje chyba. :-) )
http://www.djpate.freeserve.co.uk/D5Excel.zip (ma to asi 3 kByte)
Je to o pouziti komponent SERVER s excelem.
Tuhne to tak, ze prvne vytuhne aplikace, ale jeste jdou prepinat okna, pak
nejdou prepnout ani okna nakonec vytuhne mys. Na trojhmat to vetsinou
nereaguje, nebo zmodra obrazovka. to vse behem nekolika vterin.
Moje konfigurace:
D5 ent + SP1 +SP2
Win 2000 PRO + SP2
AMD Athalon 750
Cipset VIA kt 133 + patch 4in1
deska MSI k7T PRO 2-A (Bios z kvetna letosniho roku)
Test na FPU od Petra Vonese probehl bez problemu.
Prosim, prosim, smutne koukam zkuste to spustit a napiste mi na jake
konfiguraci to jelo/nejelo.
Predem dekuji za Vas cas (melo by to zabrat jen chvilku).
POZOR. Pred zkousemim vsechno ostatni zavrit a ulozit. HROZBA zamrznuti
pocitace.
Diky Tomas Pocarovsky
P.S.: Mam mesic stary pocitac, tak potrebuju do ruky nejaky argumenty, nez
pujdu za sefem, ze chcu novej. :-) :-(.
P.S.2: Cimz bych castecne nasmeroval toho cloveka co dneska kupuje zakladni
desku. :-)OT: Samolepici etikety
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 26.6.2001 13:45:17
Ahoj,
delam aplikaci pro tisk etiket ale na zkouseni potrebuji sehnat samolepici
etikety pro tisk v laserove tiskarne. Etikety musi byt ve tvaru dvou
propojenych casti (jedna cast se nalepi a druha zustane nenalepena a je
urcena k pozdejsimu odtrhnuti). Nevite kde se daji sehnat?
Preji pekny den. Jara
svehla(zv)atlas(tec)cz
AnsiStringy
[*] Erik Salaj <winsoft(zv)stonline.sk> - 26.6.2001 13:49:49
> > Kompilator inicializuje a uvolnuje stringy aj v zaznamoch a poliach.
>
> mel jsem na mysli promenne nevytvarene automaticky kompilatorem (dynamicke
> promenne), ale koukam, ze jsem to tam nenapsal :-(
Aj u dynamicky alokovanych/uvolnovanych (t.j. pomocou new/dispose)
premennych/strukturach/poliach su stringy korektne inicializovane a
uvolnovane
pokial su samozrejme tieto dynamicke premenne korektne vytvarane
a rusene.
> a proto programy, ktere na to spolehaji hlasi exceptiony na pouhem
prirazeni
> do stringa ... Tam kde toho kompilator je z principu schopen tam
> inicializace/deinicializace je automaticka. Tam kde to neni mozne musi se
o
> ni postarat programator.
V pripade stringov je kompilator vzdy schopny zabezpecit korektnu
inicializaciu/uvolnenie pomocou pocitania referencii.
> > > > Plati to i kdyz ji deklaruji v nejake procedure ci funkci, nebo
kdyz
> ji
> > > > posilam jako parametr funkce/procedury?
> > >
> > > String parametry se dealokuji v kodu, ktery volal proceduru/funkci.
> >
> > Pocitaju sa referencie a string sa uvolnuje vtedy, ked pocitadlo klesne
na
> > 0.
> > Nemusi to byt volajuca procedura/funkcia.
>
> podle mne - nikdy to neni volana procedura. Volajici procedura to
skutecne
Moze to byt kludne i volana procedura.
> byt nemusi - ale jen pokud promenna byla deklarovana mimo ni.
Nemas pravdu.
> Cili vzdy se uvolni (myslim zcela dereferuje a dealokuje) v nadrazenem
kodu.
> A vzdy k tomu musi dojit tam kde je ta promenna deklarovana. Pripominam,
ze
> mam na mysli automatickou dealokaci (ne programatorem vlozene S := '')
Blbost.
> Volana procedura zvysuje reference pouze pokud je stringo predavane
hodnotou
> (bez VAR). Jinak se reference nezvysuje a tim padem neni treba ani
> automaticka dealokace
Pocitadlo referencii sa zvysuje vzdy vtedy, ked pribudne referencia na dany
string,
bez ohladu na VAR.
> Samozrejme, ze automaticky generovany kod, dealokuje stringo 'legalne' -
> tedy snizi references a pokud jsou nenulove (nekdo pred tim napriklad
> priradil S := S2) pak se zadna pamet neuvolnuje.
Nie je ani tak dolezite, ci to tobi 'legalne' ale ci to robi 'spravne' ;-)
Erik
MAINICION
[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 26.6.2001 14:18:48
Jakym zpusobem lze v programu nastavit ikonu aplikace ve vlastnim resource
souboru.
Pokud vytvorim vlastni rs soubor a do nej vlozim radek
MAINICON ICON 'aplikace.ico'
Pri kompilaci dostanu WARNING s hlaskou, ze dochazi k duplikaci RESOURCE,
ale ze zanecha ten muj
Lze nejak rici Delphi, aby nevytvarel defaultni ikonu v projektovem res?
Potrebuji mit podminenou komilaci, kterou budu menit ikony aplikace.
Jiri Kocara
Mrznouci pocitac a Delphi 5 enterprice a komponent
[*] Tom�s Hol� - notebook <notebook(zv)thcom(tec)cz> - 26.6.2001 14:21:12
asi blby dotaz : mas nainstalovany ten excel ?
TH
----- Original Message -----
From: "Tomas Pocarovsky" <tomas.pocarovsky(zv)brno.siemens(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 26, 2001 1:35 PM
Subject: Mrznouci pocitac a Delphi 5 enterprice a komponenty server
> Ahoj
> Pri spusteni nasledujiciho ucebnicoveho prikladu mi vzdycky vytuhne
> pocitac.
> (On mi zmrzne casto a pri ruznych vecech (vzdy v Delphi), ale tady by to
> (velmi pravdepodobne) nemela byt moje chyba. :-) )
> http://www.djpate.freeserve.co.uk/D5Excel.zip (ma to asi 3 kByte)
> Je to o pouziti komponent SERVER s excelem.
>
> Tuhne to tak, ze prvne vytuhne aplikace, ale jeste jdou prepinat okna, pak
> nejdou prepnout ani okna nakonec vytuhne mys. Na trojhmat to vetsinou
> nereaguje, nebo zmodra obrazovka. to vse behem nekolika vterin.
>
> Moje konfigurace:
>
> D5 ent + SP1 +SP2
> Win 2000 PRO + SP2
> AMD Athalon 750
> Cipset VIA kt 133 + patch 4in1
> deska MSI k7T PRO 2-A (Bios z kvetna letosniho roku)
>
> Test na FPU od Petra Vonese probehl bez problemu.
>
> Prosim, prosim, smutne koukam zkuste to spustit a napiste mi na jake
> konfiguraci to jelo/nejelo.
> Predem dekuji za Vas cas (melo by to zabrat jen chvilku).
> POZOR. Pred zkousemim vsechno ostatni zavrit a ulozit. HROZBA zamrznuti
> pocitace.
>
> Diky Tomas Pocarovsky
>
> P.S.: Mam mesic stary pocitac, tak potrebuju do ruky nejaky argumenty, nez
> pujdu za sefem, ze chcu novej. :-) :-(.
>
> P.S.2: Cimz bych castecne nasmeroval toho cloveka co dneska kupuje
zakladni
> desku. :-)
>
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
AnsiStringy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.6.2001 14:35:32
>>> Kompilator inicializuje a uvolnuje stringy aj v zaznamoch a poliach.
>> mel jsem na mysli promenne nevytvarene automaticky kompilatorem
(dynamicke
>> promenne), ale koukam, ze jsem to tam nenapsal :-(
> Aj u dynamicky alokovanych/uvolnovanych (t.j. pomocou new/dispose)
> premennych/strukturach/poliach su stringy korektne inicializovane a
> uvolnovane
> pokial su samozrejme tieto dynamicke premenne korektne vytvarane
> a rusene.
procedure test;
TYPE
PRec = ^TRec;
TRec = Record
a : String;
end;
VAR
P : PRec;
begin
GetMem(P,100);
P^.a := 'a';
// tady to lehne - protoze P^.A neni korektne inicializovane
...
end;
v tomto pripade kompilator nemuze legalne osetrit inicializaci stringa
a proto si to programator musi osetrit sam (zminovane
FillChar(P^,100,0) )
>> a proto programy, ktere na to spolehaji hlasi exceptiony na pouhem
>> prirazeni do stringa ... Tam kde toho kompilator je z principu schopen
>> tam inicializace/deinicializace je automaticka. Tam kde to neni mozne
>> musi se o ni postarat programator.
>
> V pripade stringov je kompilator vzdy schopny zabezpecit korektnu
> inicializaciu/uvolnenie pomocou pocitania referencii.
neni pravda - viz vyse.
>>> Plati to i kdyz ji deklaruji v nejake procedure ci funkci, nebo
>>>> kdyz ji posilam jako parametr funkce/procedury?
>>>>
>>> String parametry se dealokuji v kodu, ktery volal proceduru/funkci.
>>> Pocitaju sa referencie a string sa uvolnuje vtedy, ked pocitadlo klesne
>>> na 0. Nemusi to byt volajuca procedura/funkcia.
>>
>> podle mne - nikdy to neni volana procedura. Volajici procedura to
> skutecne
>
> Moze to byt kludne i volana procedura.
nepodarilo se mi prijit na to kdy. Je-li parametr predan jako VAR - nesmi
jej procedura automaticky dealokovat. Je-li parametr predan hodnotou pak
procedura dealokuje svoji vlastni lokalni kopii.
Napis kdy procedura uvolni stringo deklarovane mimo ni.
>> Cili vzdy se uvolni (myslim zcela dereferuje a dealokuje) v nadrazenem
>> kodu.
>> A vzdy k tomu musi dojit tam kde je ta promenna deklarovana. Pripominam,
>> ze mam na mysli automatickou dealokaci (ne programatorem vlozene S := '')
>
> Blbost.
Popis alespon jeden kontrapriklad.
>
> > Volana procedura zvysuje reference pouze pokud je stringo predavane
> hodnotou
> > (bez VAR). Jinak se reference nezvysuje a tim padem neni treba ani
> > automaticka dealokace
> Pocitadlo referencii sa zvysuje vzdy vtedy, ked pribudne referencia na
dany
> string,
> bez ohladu na VAR.
grr! Samozrejme, ze se reference zvysuje, kdykoliv se vyrobi dalsi kopie
stringa. Ja se bavil ale o vlivu typu predavani stringa procedure na citac
referenci. Pokud jsi presvedcen, ze :
Procedure XY(VAR S : String);
begin
S := 'a';
end;
zvysuje reference ci vytvari automaticky dealokacni kod tak si to zkus
zkompilovat a podivej se do vysledneho kodu.
>
> > Samozrejme, ze automaticky generovany kod, dealokuje stringo 'legalne' -
> > tedy snizi references a pokud jsou nenulove (nekdo pred tim napriklad
> > priradil S := S2) pak se zadna pamet neuvolnuje.
>
> Nie je ani tak dolezite, ci to tobi 'legalne' ale ci to robi 'spravne' ;-)
Opet me utvrzujes ve svych demagogickych schopnostech
D. Toman