Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Instalace W2000 a W98SE
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 29.3.2001 22:09:16
----- Original Message -----
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
Subject: RE: Instalace W2000 a W98SE
> ...Problem je, ze to samozdrejme neprevezme
> nastaveni prostredi W98
K tomu prostredi: jednou jsem narazil na "uzivatelske profily", umoznujici export uzivatelova nastaveni na jine poce. Nevim,
zde existuje nejaka kompatibilita a zda jsem to videl u W98 nebo W2k, nicmene mozna je to taky cesta (napr. to zazalohovat pred
reinstalaci -> zrejme by se pak vsechno nemuselo nastavovat znovu).
Pokud jsem prave obevil trakar, tak sorry :-)) S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
IB - create / alter
[*] Lauko #tefan <laukosw(zv)naex.sk> - 29.3.2001 22:35:30
Zdravim vo spolok,
konecne uz zcinam s IB. Viem vytvorit, menit, pouzivat databazu. Mam tento
dotaz:
Ako riesite UpGrade databazi - myslim zmenu struktury pri starte programu.
Napr. u uzivatela je urcita verzia GDB-suboru ja pridam v desiatich
tabulkach stlpce zmenim tela procedur trigerov atd. Poslem exe-subor a pri
prvom spusteni by mala prebehnut kontrola a uprava struktur. Aj toto viem
pracne naprogramovat. Existuje na to lepsi sposob ako rucne...? Co bude po
urcitej dobe ked bude napr. 20 uzivatelov a kazdy bude mat inu verziu
(casovo) GDB-suboru a ja im poslem UpDate programu (nechcem si ani
predstavit ten balast v zdrojakoch).
Za uvahy a pomoc dakujem.
Lauko.
OCX Delphi vs VBasic
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.3.2001 22:56:49
Zdravim
Pro zakaznika jsme napsal OCX komponentu a rika mi, ze mu nejde
zaregistrovat. Kdyz si ji preprogramoval do VisualBasicu, tak to pry slo.
Nevite nekdo, kde delam chybu. Pritom, kdyz si napisu vlastni OCX, s
registraci do Delphi nemam sebemensi problem. Prikladam dopis od zakaznika:
Tu komponentu som preprogramoval do Visual Basicu ak chces poslem ti ju
ide mi bez problemov nechapem tomu ani ja ale je to tak ked som spravil
lubovolnu komponentu v ActiveX v Delphi tak sa nedokazalo ulozit
nastavenie, ked som to spravil v Basicu tak to slo bez problemov, viem si
to vysvetlit jedine tym ze ta aplikacia bola pravdepodobne naprogramovana
v Microsoftackej aplikacii inak neviem ani ja. V podstate mas pravdu aj ja
som bol z toho vedla preco to nejde ked to bolo korektne zaregistrovane
tak vobec to nechapem.
Diky
Hurricane
Interbase, resp. FireBird -- zacatecnik
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 29.3.2001 22:57:35
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Milink Otakar
> Pokud vim tak jiz existuje (byt zatim v beta verzi).
> Dokonce by to snad melo opensource. Viz:
>
> http://www.xtgsystems.com/ib6odbc.php3
>
> s pozdravem Otakar Milink
>
> P.S. Ale ja ten ovladac nezkousel....
Ahoj,
Skutecne existuje!:) Zbezne jsem ho zkousel a zadna potiz.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203 IB - create / alter
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 29.3.2001 23:18:30
From: Lauko �tefan <laukosw(zv)naex.sk>
> Ako riesite UpGrade databazi - myslim zmenu struktury pri starte programu.
Ahoj,
ja pouzivam uchovavanie verzie databazy v jednej tabulke (nazyvam ju
sysdata). S kazdym upgrade, ked sa meni struktura databazy napisem sql
skript, ktory tieto zmeny vykona. Pri starte aplikacie sa zisti z tabulky
sysdata aktualna verzia databazy a porovna sa s pozadovanou. Potom sa
vykonaju v serii vsetky sql skripty, ktore este neboli aplikovane a moze sa
pracovat...
Pavol Stolc
pstolc(zv)sc.sknet.sk
IB zaloha databaze
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 30.3.2001 01:55:42
----- Original Message -----
From: "Jirka Skladal" <jirka.skladal(zv)seznam(tec)cz>
> Tak IB Express mam nainstalovany, ale komponentu pro Backup tu nevidim.
Ahoj.
Musis bud pouzit rozliseni obrazovky minimalne 1280x1024 (Podle poctu
nainstalovanych komponent) o:)
NEBO se musi holt podivat nejak jinak vice doprava na zalozku Interbase
Admin
A taky to musi byt na stroji kde je nainstalovan nejen klient ale i server
IB.
Ludek
ExtractIcon
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 30.3.2001 06:29:14
Melo by to vypadat asi takto :
ExtractIcon ( HInstance, PChar ( OpenDialog1.FileName), Cardinal( -1));
Petr Jur�k, Spr�vce s�te, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Martin Bab�k <M.Babik(zv)mus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 29, 2001 6:06 PM
Subject: ExtractIcon
> Zdravim,
> Nevite jak zjistit pocet icon a nasledne je vyzobat? D5, NT4 SP5. Diky
>
> i := ExtractIcon(HInstance,'Icon_m.dll', -1);
> Toto mi vraci: "Constant expression violes subrange bounds". :-(
>
>
>
> M&B
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.241 / Virov� b�ze: 117 - datum vyd�n�: 27.03.01
Instalace W2000 a W98SE
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 30.3.2001 06:34:51
Pokud uz mas nainstalovane W2k, tak muzes nainstalovat W98. Mas ovsem 2
moznosti :
1. Sehnat si systemovky WinME, ktera neporusi puvodni boot W2k (jediny klad
WinME, na ktery jsem zatim prisel), nabootovat z nich a spustit instalaci
Win98.
2. Nabootovat z cehokoli a po instalaci Win98 nabootovat ze systemovek W2k a
dat opravu.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Adam Feistner <feistna(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 29, 2001 9:55 PM
Subject: Re: Instalace W2000 a W98SE
> Napr. ja jedu na W98SE a W2k prof. (dualboot). Vzhledem k zahnilosti
puvodniho systemu jsem instaloval nacisto. Cele celkem
> pohodova zalezitost:
> - zazalohovani vlastnich dat
> - odpojeni datoveho disku
> - vytvoreni boot diskety W98 (hodi se, jelikoz obsahuje podporu CD-Romky,
atd.)
> - zformatovani disku + rozdeleni (fdiskem, opet pohodicka)
> - nainstalovani W98SE na 1. partitation
> - nainstalovani W2K
> ----------
> U vseho staci jen sledovat obcasne hlasky a sem tam jednoduse odpovedet.
>
> W2K poznaji, ze W98 jsou tam, a pred nabehnutim OS tam mas menu s volbou
Windows / Win2k. Navic delka cekani na odpoved se da
> jednoduse menit (ja mam 3 sekundy a bohate to staci).
>
> S pozdravem,
>
> Adam Feistner
> feistna(zv)volny(tec)cz
> www.volny(tec)cz/feistna/cz.htm
>
>
> Konfig:
> Cel300(zv)450, 96MB, 4,3GB + 0,5GB
>
>
> ----- Original Message -----
> From: <brant(zv)dcomm(tec)cz>
> Subject: OT: Instalace W2000 a W98SE
>
>
> Ahoj vsem, pouzivam W98SE, ale potrebuji pro vyvoj stabilnejsi prostredi.
> Chtel bych si nainstalovat W2000, ale rozmyslim se, zda je nainstalovat na
> soucasne W98 a tim prevzit veskera nastaveni, aplikace, postu apod. anebo
> vsechno zazalohovat (i kdyz to bych udelal stejne) a nainstalovat to na
> cisty pocitac a pak zase vsechno pracne instalovat zpet. Take bych chtel
pro
> testovaci ucely mit na tomtez pocitaci i W98, jde to nainstalovat W98,
kdyz
> uz tam budu mit W2000?
> Diky za vsechny rady.
>
> Jeste poznamku: Posilam zpravu jako Plain Text z Outlooku 2000. Pokud
dojde
> jako HTML, muze za to patrne Outlook, ne ja. Byl bych vdecny, kdyby mi
nekdo
> poradil, jak tento problem odstranit. Jako server mame W2000 Server, MS
> Exchange Server 2000.
>
> RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
> ICQ # 68652380
>
> D&COMM s.r.o
> Korunova�n� 6
> Praha 7
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.241 / Virov� b�ze: 117 - datum vyd�n�: 27.03.01
IB - create / alter
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 30.3.2001 06:37:27
A nezda se ti ze si zbytecne komplikujes zivot ? Nebylo by lepsi prehodnotit
navrh struktury databaze ? Napis o co presne ti v navrhu jde a pokusime se
vymyslet neco vhodnejsiho.
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Lauko �tefan <laukosw(zv)naex.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 29, 2001 10:35 PM
Subject: IB - create / alter
> Zdravim vo spolok,
> konecne uz zcinam s IB. Viem vytvorit, menit, pouzivat databazu. Mam
tento
> dotaz:
> Ako riesite UpGrade databazi - myslim zmenu struktury pri starte programu.
> Napr. u uzivatela je urcita verzia GDB-suboru ja pridam v desiatich
> tabulkach stlpce zmenim tela procedur trigerov atd. Poslem exe-subor a pri
> prvom spusteni by mala prebehnut kontrola a uprava struktur. Aj toto viem
> pracne naprogramovat. Existuje na to lepsi sposob ako rucne...? Co bude po
> urcitej dobe ked bude napr. 20 uzivatelov a kazdy bude mat inu verziu
> (casovo) GDB-suboru a ja im poslem UpDate programu (nechcem si ani
> predstavit ten balast v zdrojakoch).
> Za uvahy a pomoc dakujem.
> Lauko.
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.241 / Virov� b�ze: 117 - datum vyd�n�: 27.03.01
Problem s volanim Outlook.Application...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 30.3.2001 07:11:35
Ahoj
ve sve aplikaci vytvarim OLE objekt volanim:
...
var
O: Variant;
...
O:= CreateOleObject('Outlook.Application');
coz puvodne bez problemu fungovalo, ale momentalne mi funkce konci hlasenim
"Provadeni serveru selhalo".
Pouzita konfigurace:
NT4, SP6, IE5.0, Outlook97 resp. 98
napsano v D3 CS
Zkousel jsem uz reinstalaci Outlooku 97, znovu jsem instaloval SP6, Office
SP1,
instalaci Outlooku 98, ale nic z toho nepomohlo (znovu instalovat cely
system
se mi nechce a ani nemuzu).
Na jinem PC bezi program bez chyby, a pokud na mem PC podobnym zpusobem
volam
Word, nebo Excel taky to funguje.
Vi nekdo kde muze byt chyba ?
Diky za pripadne odpovedi.
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
ROUND
[*] VASEK STEPAN <vaseks(zv)stp(tec)cz> - 30.3.2001 08:04:28
Doby den,
mam vysledek typu real a potrebuju zaokrouhlit na 2 desetinna cisla. Prosim
, jak na to.
Stepan Vasek Interbase, resp. FireBird -- zacatecnik
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.3.2001 08:20:40
On 29 Mar 2001, at 10:23, Jano Skokanek wrote:
> jsem uz byl, zakladni neco (zejmena zakladni instalace ;-)) jsem
> nasel, downloadoval, potreboval bych poradit: - osvedceny OLEDB
> ovladac (prinejhorim ODBC)
Pred casem jsem take hledal OLE DB provider pro IB. Jedine, co
jsem nasel, byly jakesi Delphi unity s quasi OLE DB, coz je pro
praxi vsak dost problematicke az nepouzitelne (napriklad se na to
neda dostat pres ADO). Jestli mezitim nekdo napsal regulerni OLE
DB provider pro IB, nevim, a docela by me to take zajimalo.
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
Instalace W2000 a W98SE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.3.2001 08:20:40
On 29 Mar 2001, at 11:51, Fait Ji��, ml. wrote:
> Pred instalaci W2K bych v kazdem pripade zrusil veskere stopy po
> W95,98,ME.
> Nejlepsi je snad to natvrdo zformatovat.
> Jinak pokud mas dostatecne vykonnou masinu a aspon 128MB RAM tak je
> W2K dobra volba pro Delphi (s 512MB to slape jeste lepe)
Mohu jen potvrdit. Provozoval jsem dualne W98 a W2000 beta (se
128 MB RAM). Na W98 kdyz jsem se trochu rozmachl, kazdou
chvili se neco hroutilo. Takze jsem se s Delphi prestehoval do
W2000 beta. Po koupi plne verze W2000 jsem vse preformatoval
W98 vymazal do posledniho bajtu a nyni ziji podstatne
spokojenejsim zivotem. I kdyz je pravda, ze pameti je malo - pokud
ladim vice programu v jednom projektu najednou (napr. Lokalizator),
pak si Delphi klidne uzurpuje i 100 MB bez mrknuti oka. Horsi ale
je, ze kdyz si natahnu uplne jiny projekt, Delphi ma problemy s
vycistenim pameti po predchozim projektu. Takze pak musim
Delphi ukoncit a znovu nastartovat, abych tech 100 MB setrasl.
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
Databaze v IB II
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 30.3.2001 08:37:01
Ahoj
Zkousel jsem si udelat aplikaci na pristup k databazi MastApp.GDB.
Jenom DBGrid, IBDatabase, IBSQL, IBQuery,IBTransaction.
Pustil jsem si dve instance tohoto programu.
V Jedne jsem zmenil data a cekal jsem, ze se mi ty data projevi i v te druhe
instanci.
Nic. Ani po refresh. ForceRefresh je nastaveno na true.
Muzete mi prosim pomoc, kde delam chybu?
Ulozeni jako - Ttable (Paradox) - pomoc zacatecnik
[*] Marek Bedn�����m�gj��#����# - 30.3.2001 09:01:18
Potrebuji prosim vedet jestli jsou i jine zpusoby ulozeni (Ulozeni jako)
TTable nez
jsem pouzil ja. Muj postup byl nasledujici: Zkopirovani vsech souboru
tabulky pod jinym jmenem a prirazeni tabulky temto novym souborum. Lze toto
resit i elegantnejsim zpusobem?
Za odpoved predem dekuji. Mara.ExtractIcon
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 30.3.2001 09:04:50
Ahoj Petre,
mam to jako "integer". Funguje to jen kdyz pouziji zazracne zaklinadlo "word(-1)", ale to mi pak vraci nulovou hodnotu celkem spolehlive na kazdy soubor "dll, exe, ci icl". :-(
M&B
>>> <brant(zv)dcomm(tec)cz> 03/29 8:37 >>>
>Ta funkce muze vracet i zaporna cisla, tak jestli nemas to i jako unsigned
>int nebo tak neco. Muzes zkusit i ExtractIconEx. Anebo nemuze byt ten soubor
>nejak nabourany?
>>From: Martin Bab�k [mailto:M.Babik(zv)mus(tec)cz]
>>Zdravim,
>>Nevite jak zjistit pocet icon a nasledne je vyzobat? D5, NT4 SP5. Diky
>>i := ExtractIcon(HInstance,'Icon_m.dll', -1);
>>Toto mi vraci: "Constant expression violes subrange bounds". :-(
chyba pri instalaci IB Express update
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 30.3.2001 09:09:13
pokud se nepletu tak to vyzaduje SP1
----- Original Message -----
From: Jirka Skladal
To: delphi-l(zv)clexpert(tec)cz
Sent: Thursday, March 29, 2001 2:33 PM
Subject: chyba pri instalaci IB Express update
Ahoj mam problem.
Nainstaluji IB Express update a po susteni Delphi mi to hodi hlasku:
Vstupni body procedury (zv)Parentagesupport(zv)TSprig(zv)FindItemByPath$qqrx17System(zv)AnsiStringo se nepodarilo v dynamicky propojovane knihovne dsnide50.bpl nalezt.
A pod tim tlacitko OK
Kliknu a jeste zakrici:
Can't load package d:\delphi\delphi5\bin\DCLIB50.bpl. Uvedena procedura nebyla nalezena. Zase lacitko OK. Kdyz kliknu tak nabehnou delphi ale bez komponent k IB.
Kdyz je tam chci pridat v Component->Install Package, tak mi to zakrici stejne hlasky a nic. Nemate s tim nekdo zkusenosti?
Diky Jirka
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.240 / Virova baze: 116 - datum vydani: 23.03.2001
IB - create / alter
[*] Lauko #tefan <laukosw(zv)naex.sk> - 30.3.2001 09:13:02
> A nezda se ti ze si zbytecne komplikujes zivot ? Nebylo by lepsi
prehodnotit
> navrh struktury databaze ? Napis o co presne ti v navrhu jde a pokusime se
> vymyslet neco vhodnejsiho.
> Petr Jur�k, Spr�vce s�t�, program�tor
>
Zatial mi nejde o nic konkretne ale predstavujem si to takto:
V IBConsoli si navrhnem urcitu structuru potom si matadata ulozim do textaku
ako SQL-script.
Pri spusteni programu zistim ci existuje databaza ak nie vytvorim ju a na
prazdnu spustim script.
Ak existuje tak spustim script tak isto ale tu nastava problem - musim
zistit povodnu structuru a urobit len zmeny tak aby pripadne data tiez boli
prevedene a hlavne zachovane.
Zo skusenosti viem, ze navrh databazi teoreticky aj ked je prekonzultovany s
buducim uzivatelom sa po case musi "dotvarat". Ide mi o to, ze uz v zaciatku
chcem program postavit tak aby mi taketo dodatocne zmeny nenarobili velke
problemi.
Lauko.
> > Zdravim vo spolok,
> > konecne uz zcinam s IB. Viem vytvorit, menit, pouzivat databazu. Mam
> tento
> > dotaz:
> > Ako riesite UpGrade databazi - myslim zmenu struktury pri starte
programu.
> > Napr. u uzivatela je urcita verzia GDB-suboru ja pridam v desiatich
> > tabulkach stlpce zmenim tela procedur trigerov atd. Poslem exe-subor a
pri
> > prvom spusteni by mala prebehnut kontrola a uprava struktur. Aj toto
viem
> > pracne naprogramovat. Existuje na to lepsi sposob ako rucne...? Co bude
po
> > urcitej dobe ked bude napr. 20 uzivatelov a kazdy bude mat inu verziu
> > (casovo) GDB-suboru a ja im poslem UpDate programu (nechcem si ani
> > predstavit ten balast v zdrojakoch).
> > Za uvahy a pomoc dakujem.
> > Lauko.
> >
TListView
[*] Marcant <marcant(zv)sct.sk> - 30.3.2001 09:23:02
1. toto bohuzial neviem
2. pri zmene vlastnosti Checked sa (podobne ako pri mnohych inych zmenach)
vznika event OnChange.
Overenie, ci bola polozka zaskrtnuta riesim cez pomocne premenne oldIt:
TListItem (menena polozka) a bolIt: Boolean (stav Checked tejto polozky):
procedure TMyForm.MyListViewChanging(Sender: TObject; Item: TListItem;
Change: TItemChange; var AllowChange: Boolean);
begin
// vyvola sa pred zmenou stavu polozky, odpamata sa menena polozka a jej
stav
oldIt:= Item;
if Item <> nil then
bolIt:= Item.Checked;
end;
procedure TMyForm.MyListViewChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
// po zmene stavu polozky, porovna sa z povodnym stavom
if Item <> nil then
if (oldIt = Item) and (bolIt <> Item.Checked) then
begin
// doslo k zmene Item.Checked
...
end;
end;
> Ahoj mel bych takovy jednoduchy dotaz.
>
> Jedna se mi o komponentu TListView a v ni o dve veci.
>
> 1) lze nejak zmenit rozestupy Ikon pokud mam ViewStyle nastaven na vsIcon
?
> nebyl jsem v helpu schopen dohledat nejakou vlastost na zmenu vzdalenosti
> mezi nimi
> (defaultni je moc velika)
>
> 2) druha vec se tyka vlastnosti CheckBoxes, pokud je nastavena na True a
mam
> ViewStyle na vsList nebo vsReport, potreboval bych primo zachytit na
kterou
> polozku
> uzivatel klikne a u ktere se zmeni vlastnost Checked. Nevim ale ani jedna
z
>
> udalosti mi nepripada jako ta ktera primo zachytava tuto zmenu. Ja to v
> soucane
> dobe delam tak ze po kazdem kliku projedu cely seznam coz je samozrejme
> casove
> ponekud narocne, pokud tam je treba 1000 polozek (samozrejme je to
chvilka
> ale
> me se to nezda jako ciste reseni...)
>
> Diky za kazdou radu
>
> S pozdravem Martin Hejna
>TListView
[*] Marcant <marcant(zv)sct.sk> - 30.3.2001 09:35:35
Dufam, ze to dojde neskor ako moja prva odpoved.
Takze este jedna poznamka, na rozdiel od napr. TListBox-u sa eventy OnChange
a OnChanging
vyvolavaju aj pri programovej zmene a dokonca aj pri naplnani poloziek.
Takze je obvykle
vhodne preskocit kod obsluhy tychto eventov pomocou dalsej pomocnej Boolean
premennej,
ktora bude vyznacovat, ci sa vykonava programova, alebo pouzivatelska zmena.
> Ahoj mel bych takovy jednoduchy dotaz.
>
> Jedna se mi o komponentu TListView a v ni o dve veci.
>
> 1) lze nejak zmenit rozestupy Ikon pokud mam ViewStyle nastaven na vsIcon
?
> nebyl jsem v helpu schopen dohledat nejakou vlastost na zmenu vzdalenosti
> mezi nimi
> (defaultni je moc velika)
>
> 2) druha vec se tyka vlastnosti CheckBoxes, pokud je nastavena na True a
mam
> ViewStyle na vsList nebo vsReport, potreboval bych primo zachytit na
kterou
> polozku
> uzivatel klikne a u ktere se zmeni vlastnost Checked. Nevim ale ani jedna
z
>
> udalosti mi nepripada jako ta ktera primo zachytava tuto zmenu. Ja to v
> soucane
> dobe delam tak ze po kazdem kliku projedu cely seznam coz je samozrejme
> casove
> ponekud narocne, pokud tam je treba 1000 polozek (samozrejme je to
chvilka
> ale
> me se to nezda jako ciste reseni...)
>
> Diky za kazdou radu
>
> S pozdravem Martin Hejna
>Ruzna velikost RECORD v D2 a D5
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 30.3.2001 09:38:27
Zdravim.
Muzete mi nekdo vysvetlit proc RECORD:
type
Tpokus = record
a: double;
b: byte;
end;
ma velikost 12 byte v Delphi 2 a 16 byte v Delphi 5 ?
V obou pripadech mam zapnute RECORD FIELDS ALIGN.
U Delphi 2 je to v poradku, ale v D5 nevim kde se vzaly 4 byte navic a jaka
je jejich pozice.
Diky
J.Madlik
dbase
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 30.3.2001 09:48:55
Ahoj
nevite nekdo jak pomoci TTable vytvorit tabulku ve formatu dbf 3 nebo 4 ?
BDE automaticky vytvari format DBase 5 ale umi pracovat i s predchozimi
verzemi tak se domnivam ze by to mohlo snad nejak jit. V BDE administratoru
mi ta verze nastavit nejde.
dik
Milhaus
Vyvoj SynEditu ohrozen!
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.3.2001 09:57:25
Preji vsem pekneho dne,
hlavni mozek SynEditu - Michael Hieke - chce s tim prastit a prenechat to
nekomu jinemu. Projekt se tak dostava do stavu, ve kterem byl, kdyz jej
opoustel Martin W. Na konci preposilam jeho mail. Jinak by v nejblizsi dobe
mela byt vypustena verze 1.03b.
Slavek
FROM: Michael Hieke
DATE: 03/27/2001 06:21:46
SUBJECT: [Synedit-devel] Next SynEdit version
All,
I have finally decided to not work anymore on the
current "codebase" of SynEdit, so if you want a new
version out you'd need to do it yourself. There are a
lot of people with CVS write access, though they don't
seem to know it, a quick glance at the SynEdit project
page at SourceForge might give them a clue. If somebody
wants to work on the next release they should step
forward and take over the responsibility for the
current SynEdit. IMO it's Jeff who worked the most on
SynEdit in the last months, he also seems to have the
necessary patience for answering questions that should
never have gone to a developer list in the first place.
I lack this patience.
My main reason for this decision is the fact that
SynEdit seems to be used in more projects these days,
and with an amazing cluelessness. I don't know why
IBConsole has to be a case study of how not to use
these components, and I totally don't understand why
nearly everybody bitches about the limitations of the
controls but doesn't do anything about it.
It's now nearly two years that I have asked for the
first time why the then mwEdit was "designed" as it
is. I have finally started to rewrite the code, with
things like word-wrap, support for real tabs and
multiple editor views in mind, and I won't invest
another hour in the old code. Word-wrap works
already, so chances are I'm running into the right
direction.
--------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
* K Jezisku, panacka, ja se budu kolebati...
* Narodil jsem se, radujte se...
--------------------------------------
Problem s volanim Outlook.Application - reseni...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 30.3.2001 10:08:16
...problem byl v registru, polozce:
HKEY_CLASSES_ROOT\CLSID\{0006F033-0000-0000-C000-000000000046}\LocalServer32
kde byla vychozi hodnota:
"C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE"
tento zapis stacilo zmenit na cestu ve tvaru 8.3:
"C:\PROGRA~1\MICROS~1\Office\OUTLOOK.EXE"
Popis reseni jsem nasel na:
http://support.microsoft.com/support/kb/articles/q244/2/64.asp
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Ruzna velikost RECORD v D2 a D5
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 30.3.2001 10:09:38
Jiz jsem v archivu nalezl vycerpavajici odpoved od P.Vonese.
Omlouvam se, ale predtim byl archiv nejak nedostupny, zasekany net.
J.M.
> Zdravim.
>
> Muzete mi nekdo vysvetlit proc RECORD:
>
> type
> Tpokus = record
> a: double;
> b: byte;
> end;
>
> ma velikost 12 byte v Delphi 2 a 16 byte v Delphi 5 ?
>
> V obou pripadech mam zapnute RECORD FIELDS ALIGN.
> U Delphi 2 je to v poradku, ale v D5 nevim kde se vzaly 4 byte navic a
jaka
> je jejich pozice.
>
> Diky
> J.Madlik
>
>Instalace W2000 a W98SE
[*] Karel Horky <horkyk(zv)razdva(tec)cz> - 30.3.2001 10:17:28
>Take bych chtel pro testovaci ucely mit na tomtez pocitaci i W98, jde to
nainstalovat W98, >kdyz uz tam budu mit W2000?
Krome Dual Bootu, ktery umoznuje volbu mezi W98 / W2k, jeste existuji Boot
managery, ktere take dovoluji pri bootu systemu zvolit OS. Podivej se na
XOSL na Chip CD 8/00.
Prakticky jsem nezkousel.
>Jeste poznamku: Posilam zpravu jako Plain Text z Outlooku 2000. Pokud dojde
>jako HTML, muze za to patrne Outlook, ne ja. Byl bych vdecny, kdyby mi
nekdo
Dival jsem se do vlastnosti zpravy a telo zpravy je tam jedno, jenom s
odkazem na alternativni prilohu.
Pripojeny jsou dve prilohy (:-)), jedna jako Text/plain, druha jako
Text/html.
Podle jakeho klice se zvoli pri zobrazeni jedna nebo druha, nevim.
Tuto odpoved pisu jako prosty text v OE 5.5, take by me zajimalo, jak prijde
:)
---------
Karel Horky
horkyk(zv)razdva(tec)cz
Databaze v IB II
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 30.3.2001 10:17:59
> Zkousel jsem si udelat aplikaci na pristup k databazi MastApp.GDB.
> Jenom DBGrid, IBDatabase, IBSQL, IBQuery,IBTransaction.
>
> Pustil jsem si dve instance tohoto programu.
> V Jedne jsem zmenil data a cekal jsem, ze se mi ty data projevi i v te
> druhe instanci. Nic. Ani po refresh. ForceRefresh je nastaveno na
> true.
>
Budu jen hadat, ale rekl bych, ze spatne (resp. skoro vubec)
nepouzivas transakce.
V uvedenem pripade by mi prislo nejcistsi mit dve komponenty
IBTransaction - jednu pro grid (IBQuery) a jednu pro IBSQL.
Po dvojkliku na komponentu IBTransaction se objevi nastaveni
vlastnosti transakce. Doporucuji zvolit Read Commited (v obou) a v
te pro grid navic do parametru pripsat slovo read (transakce jen pro
cteni).
Budes muset pocitat jeste s jednou "zaludnosti", i kdyz ve
skutecnosti je to spise prednost komponenty IBSQL. Totiz
komponenta IBQuery (IBDataset) pri svem otevreni sama zahaji
transakci. IBSQL toto nedela, takze pred pouzitim IBSQL musis
zavolat prislusne IBTransaction1.StartTransaction a na konci
Commit nebo RollBack podle situace. To sice muze vypadat jako
zdrzovani, ale zato mas vse pod kontrolou. Na ten Commit nesmis
po vykonani prikazu v IBSQL zapomenout, dokud nebude Commit,
zmenu v datech neuvidi nikdo dalsi.
David Lebeda
ROUND
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 30.3.2001 10:22:50
> mam vysledek typu real a potrebuju zaokrouhlit na 2 desetinna cisla.
> Prosim , jak na to.
Treba
round(X * 100) / 100;
David
Ruzna velikost RECORD v D2 a D5
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.3.2001 10:28:33
> Zdravim.
>
> Muzete mi nekdo vysvetlit proc RECORD:
>
> type
> Tpokus = record
> a: double;
> b: byte;
> end;
>
> ma velikost 12 byte v Delphi 2 a 16 byte v Delphi 5 ?
>
> V obou pripadech mam zapnute RECORD FIELDS ALIGN.
> U Delphi 2 je to v poradku, ale v D5 nevim kde se vzaly 4 byte navic a
jaka
> je jejich pozice.
D2 a D5 zrejme zarovnavaji data jinym zpusobem. D5 podle manualu postupuje
dvoukrokove: nejdriv zarovna jednotlive polozky recordu a pak zarovna cely
record tak, ze jehovelikost odpovida nasobku delky nejdelsi zarovnane
polozky recordu (doufam, maximum takove delky bere jako 8 - nikoliv
napriklad delku 10kiloveho pole). Cili v Tvem pripade vyrobi zrejme toto:
record
a: double ;// 8 bytu
b : byte; // 1 byte
xx : array[1..7] of byte;// - zarovnani tak aby delka recordu byla
delitelna 8mi - cili 7 bytu
end;
vysledna velikost je pak 16bytu. Vice Object Pascal Language Guide 11-7 a 5
minut experimentovani s D5
D2 zrejme zarovnava Byte na 4 byty (nebo record maximalne na modulo 4) Abys
dosahl kompatibility s D2 musis pouzit toto:
type
Tpokus = packed record
a: double;
aligngarbage: array[1..3] of Byte;
b: byte;
end;
nebo
Tpokus = packed record
a: double;
b: byte;
aligngarbage: array[1..3] of Byte;
end;
D. Toman
Ulozeni jako - Ttable (Paradox) - pomoc zacatecnik
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 30.3.2001 10:40:02
Jde to jednoduse pomoci RenameTable (viz napoveda).
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Marek Bedn߰ <bednar4(zv)kes.zcu(tec)cz>
To: Delphi <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 30, 2001 9:01 AM
Subject: Ulozeni jako - Ttable (Paradox) - pomoc zacatecnikovi
> Potrebuji prosim vedet jestli jsou i jine zpusoby ulozeni (Ulozeni jako)
> TTable nez
> jsem pouzil ja. Muj postup byl nasledujici: Zkopirovani vsech souboru
> tabulky pod jinym jmenem a prirazeni tabulky temto novym souborum. Lze
toto
> resit i elegantnejsim zpusobem?
>
> Za odpoved predem dekuji. Mara.
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.241 / Virov� b�ze: 117 - datum vyd�n�: 27.03.01
Instalace W2000 a W98SE
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 30.3.2001 10:49:56
Ahoj,
Zbysek Hlinka wrote:
>
> Mohu jen potvrdit. Provozoval jsem dualne W98 a W2000 beta (se
> 128 MB RAM). Na W98 kdyz jsem se trochu rozmachl, kazdou
> chvili se neco hroutilo. Takze jsem se s Delphi prestehoval do
> W2000 beta. Po koupi plne verze W2000 jsem vse preformatoval
> W98 vymazal do posledniho bajtu a nyni ziji podstatne
> spokojenejsim zivotem. I kdyz je pravda, ze pameti je malo - pokud
> ladim vice programu v jednom projektu najednou (napr. Lokalizator),
> pak si Delphi klidne uzurpuje i 100 MB bez mrknuti oka. Horsi ale
> je, ze kdyz si natahnu uplne jiny projekt, Delphi ma problemy s
> vycistenim pameti po predchozim projektu. Takze pak musim
> Delphi ukoncit a znovu nastartovat, abych tech 100 MB setrasl.
Nekde v newsech jsem cetl, ze Delphi zerou a nevraceji pamet (bez
prestani, dokud je k dispozici) v pripade, ze v Project Manageru uvedena
cesta k unite uz neplati, ale diky "library path" ji kompiler presto
nalezne.
Nemohl to byt tento problem ?
S pozdravem,
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Cteni ze schranky na MS Exchange
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 30.3.2001 10:56:31
Hi,
potrebuju cist z urcite slozky ve schrance na MS Exchange 5.5 a MS Exchange
2000 zpravu s prilohou.
A prave o tu prilohu mi jde. Potrebuji ji stahnout na lokal a dale s ni
pracovat.
Dale potrebuji tuto prectenou zpravu presunou do jine slozky. To vse
samozrejmne z Delphi.
Ale netusim jak na to. Sice mam pocit ze jsem nekde videl samples ale nemohu
ho najit.
Poradte mi, jak na to.
Dikec
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz Databaze v IB II
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 30.3.2001 11:11:33
Musis pouzivat trigger a 'POST EVENT' v databazi a Event Alerter vo svojej
aplikacii.
Zabudni na IBX a zacni pouzivat FIB+, alebo drahsie IBObjects (priznam sa,
ze neviem
ktore su lepsie...)
Vela stastia
P.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Bednar��k Dalibor
> Sent: Friday, March 30, 2001 8:37 AM
> To: forum
> Subject: Databaze v IB II
>
>
> Ahoj
>
> Zkousel jsem si udelat aplikaci na pristup k databazi MastApp.GDB.
> Jenom DBGrid, IBDatabase, IBSQL, IBQuery,IBTransaction.
>
> Pustil jsem si dve instance tohoto programu.
> V Jedne jsem zmenil data a cekal jsem, ze se mi ty data projevi i
> v te druhe
> instanci.
> Nic. Ani po refresh. ForceRefresh je nastaveno na true.
>
> Muzete mi prosim pomoc, kde delam chybu?
>
>Databaze v IB II
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 30.3.2001 11:17:21
Ahoj,
"Ing. Patrik Tesar" wrote:
>
> Musis pouzivat trigger a 'POST EVENT' v databazi a Event Alerter vo svojej
> aplikacii.
> Zabudni na IBX a zacni pouzivat FIB+, alebo drahsie IBObjects (priznam sa,
> ze neviem
> ktore su lepsie...)
Osobne FIB+ neznam, ale IBExpert, ktery je naprogramovan pomoci FIB+
bude prepsan pro IBO ...
K vyzve na zapomenuti na IBX se pripojuji :-)
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Cteni ze schranky na MS Exchange
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 30.3.2001 11:17:41
prave na niecom podobnom pracujem, rad sa podelim o "vedomosti" a
"nevedomosti" ;o).zalezi na tom, cez aky protokol chces pristupovat k
exchange serveru (MAPI,IMAP,POP3), ja po dlhom experimentovani som ostal
pri IMAP, cez MAPI ma jeduje autorizacia na server, a este zopar veci.
ak by niekto vedel o nejakej MAPI kniznici, komponente, rad sa necham
nasmerovat. inak som skusal komponenty z torry-netu TVKMail a TEmail tam
sa mi zda ze pri ukladani attachmentov sa zlikviduju dlhe nazvy suborov.> -----Original Message-----
> From: Pesek Michal [mailto:Michal.Pesek(zv)MNUL.CZ]
> Sent: Friday, March 30, 2001 10:57 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Cteni ze schranky na MS Exchange
>
>
> Hi,
>
> potrebuju cist z urcite slozky ve schrance na MS Exchange 5.5
> a MS Exchange
> 2000 zpravu s prilohou.
> A prave o tu prilohu mi jde. Potrebuji ji stahnout na lokal a
> dale s ni
> pracovat.
> Dale potrebuji tuto prectenou zpravu presunou do jine slozky. To vse
> samozrejmne z Delphi.
> Ale netusim jak na to. Sice mam pocit ze jsem nekde videl
> samples ale nemohu
> ho najit.
>
> Poradte mi, jak na to.
>
> Dikec
>
> S pozdravem
> Michal PEPR Pesek
> http://www.peprsoft(tec)cz
> Vyjimka pri zpracovani zpravy zaslane funkci SendM
[*] Karel Klimes <klimes(zv)metra(tec)cz> - 30.3.2001 11:31:11
Ahoj vsem,
mam procesy A a B. Funkci okna (WndProc) W1, procesu A, zaslu z procesu B
zpravu pomoci SendMessage. Jaky vysledek (result) vrati tato funkce, v
procesu B, pokud pri zpracovani zpravy v okne W1, procesu A nastane vyjimka
(raise ...)?
Progr-amather -Kchodl-
Karel Klimes
Zobrazovani Child formularu
[*] Listuj <listuj(zv)centrum(tec)cz> - 30.3.2001 11:44:53
Zdravim a preji hezky den,
prave resim tento problem, mam MDI aplikaci, kde je nekolik
ruznych oken. Zatim pouze jedno okno slouzi k zadavani dat avsak
z nej zobrazuji dalsi pomocna okna (detailni informace k
editovane polozce).
Co bych potreboval je abych vzdy mohl zobrazit pouze jeden typ
tohoto detailniho okna (a informace v nem se mi budou menit dle
vyberu).
Zatim jsem to mel vyresene tak, ze byla definovana privatni
promenna typu detailniho formulare v unite.
Zobrazovani probihalo takto.
procedure ZobrazDetail(InformacekZobrazeni: TObject);
begin
if not Assigned(promennadetailform) then
begin
promennadetailform := TdetailForm.Create(FAowner);
end;
promennadetailform.showdetail(InformacekZobrazeni)
end;
Tohle probehlo v pohode do prvniho zobrazeni formulare, jelikoz
formular byl MDIChild tak jsem pri close dal action:=caFree
Pri dalsi zadosti o zobrazeni to ale spadlo, protoze promenna
nebyla nil, ale nemela ani pointer na formular. Assigned vracelo
true.
Prosim pomozte jak to mam resit.
Dekuji predem
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
None
[*] Reznicek David <reznicek(zv)jakl(tec)cz> - 30.3.2001 12:02:50
Ahoj.
Jak pokud mozno jedno jednoduse v QuickReportu 3.0.8. vytisknu celkovy
pocet stran ??
Hledam, hledam a nemuzu to nikde najit. Prosel jsem snad vsechny funkce,
ktere tam jsou
a vysledek vyskery zadny.
Diky za pomoc.
>>>>>>>>>> REZNICEK David <<<<<<<<<<
>>>>>>>>> www.reznicek.virt(tec)cz <<<<<<<<<
>>>>>>>>>> www.gag.virt(tec)cz <<<<<<<<<<<
>>>>>>>>>> reznicek(zv)jakl(tec)cz <<<<<<<<<<
Zobrazovani Child formularu
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 30.3.2001 12:03:55
Pokud budete chtit zobrazit formular pouzijte
Application.CreateForm ( TdetailForm, detailForm);
a v udalosti OnClose ve formulari detailForm
detailForm.Release;
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: Listuj <listuj(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 30, 2001 11:44 AM
Subject: Zobrazovani Child formularu
> Zdravim a preji hezky den,
>
> prave resim tento problem, mam MDI aplikaci, kde je nekolik
> ruznych oken. Zatim pouze jedno okno slouzi k zadavani dat avsak
> z nej zobrazuji dalsi pomocna okna (detailni informace k
> editovane polozce).
>
> Co bych potreboval je abych vzdy mohl zobrazit pouze jeden typ
> tohoto detailniho okna (a informace v nem se mi budou menit dle
> vyberu).
>
> Zatim jsem to mel vyresene tak, ze byla definovana privatni
> promenna typu detailniho formulare v unite.
>
> Zobrazovani probihalo takto.
>
> procedure ZobrazDetail(InformacekZobrazeni: TObject);
> begin
> if not Assigned(promennadetailform) then
> begin
> promennadetailform := TdetailForm.Create(FAowner);
> end;
> promennadetailform.showdetail(InformacekZobrazeni)
> end;
>
> Tohle probehlo v pohode do prvniho zobrazeni formulare, jelikoz
> formular byl MDIChild tak jsem pri close dal action:=caFree
> Pri dalsi zadosti o zobrazeni to ale spadlo, protoze promenna
> nebyla nil, ale nemela ani pointer na formular. Assigned vracelo
> true.
>
> Prosim pomozte jak to mam resit.
>
> Dekuji predem
>
>
> *****************
> Jarda Jirava
> (zv)
> LiStuj
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> *****************
>
> Hrajte on-line hry na http://herna.centrum(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.241 / Virov� b�ze: 117 - datum vyd�n�: 27.03.01
ROUND
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 30.3.2001 12:19:31
Round(cislo*100)/100
> Doby den,
> mam vysledek typu real a potrebuju zaokrouhlit na 2 desetinna cisla.
Prosim
> , jak na to.
>
> Stepan Vasek
>Zobrazovani Child formularu
[*] Marcant <marcant(zv)sct.sk> - 30.3.2001 12:24:18
V tom TDetailFormClose ti chyba priradenie nil do odkazu na formular
(promennadetailform = nil).
Aj ked s tymi roznymi typmi detailnych formularov som to celkom nepochopil,
su vsetky jedneho typu
(TdetailForm) alebo roznych ?
MarCaNT
> Zdravim a preji hezky den,
>
> prave resim tento problem, mam MDI aplikaci, kde je nekolik
> ruznych oken. Zatim pouze jedno okno slouzi k zadavani dat avsak
> z nej zobrazuji dalsi pomocna okna (detailni informace k
> editovane polozce).
>
> Co bych potreboval je abych vzdy mohl zobrazit pouze jeden typ
> tohoto detailniho okna (a informace v nem se mi budou menit dle
> vyberu).
>
> Zatim jsem to mel vyresene tak, ze byla definovana privatni
> promenna typu detailniho formulare v unite.
>
> Zobrazovani probihalo takto.
>
> procedure ZobrazDetail(InformacekZobrazeni: TObject);
> begin
> if not Assigned(promennadetailform) then
> begin
> promennadetailform := TdetailForm.Create(FAowner);
> end;
> promennadetailform.showdetail(InformacekZobrazeni)
> end;
>
> Tohle probehlo v pohode do prvniho zobrazeni formulare, jelikoz
> formular byl MDIChild tak jsem pri close dal action:=caFree
> Pri dalsi zadosti o zobrazeni to ale spadlo, protoze promenna
> nebyla nil, ale nemela ani pointer na formular. Assigned vracelo
> true.
>
> Prosim pomozte jak to mam resit.
>
> Dekuji predem
>
>
> *****************
> Jarda Jirava
> (zv)
> LiStuj
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> *****************
>
> Hrajte on-line hry na http://herna.centrum(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Instalace W2000 a W98SE
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 30.3.2001 12:33:51
> Nekde v newsech jsem cetl, ze Delphi zerou a nevraceji pamet (bez
> prestani, dokud je k dispozici) v pripade, ze v Project Manageru uvedena
> cesta k unite uz neplati, ale diky "library path" ji kompiler presto
> nalezne.
> Nemohl to byt tento problem ?
Me nevracej pamet ani, kdyz mam vsechno v poradku.
Mimochodem, pamet se nevraci i po otevreni a naslednem zavreni tabulky z MS
SQL. Pokud budu pri prochazeni tabulkou (treba 100 000 zaznamu) nacitat jen
100-radkove bloky, tak mam za chvilku zaplnenou celou pamet. To se pry stava
taky jen v Delphi.
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
petr.jarkovsky(zv)databox(tec)cz
dbase
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 30.3.2001 12:45:38
> BDE automaticky vytvari format DBase 5 ale umi pracovat i s predchozimi
Ja bych rek , ze BDE automaticky vytvari to, co je nastaveno v
"Configuration/Drivers/Native/DBASE/LEVEL"
T.
_______________________________
Tom�# Vlad�k
vladik(zv)swadvice(tec)cz
ICQ# 101763081
Excel - sirka sloupce
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 30.3.2001 13:00:23
Jak se nastavuje sirka sloupce v excelu z Delphi 5 pres OLE.
Access violation
[*] Ing. Maxmili�n Szewieczek <m.szewi(zv)asei400(tec)cz> - 30.3.2001 12:04:35
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Zdravim,
zacinam programovat v DELPHI 5 a zatim nevim jak resit nektere problemy. Program mi po spusteni vypise hlasku "Project ..... faulted with message: 'access violation at 0x77f88e7a: write of addres 0x00030f98'. Process stopped. Use Step or Run to continue." Pochopil jsem, ze se snazi zapsat nekam, kam nesmi. Da se to vyresit nejakou direktivou pri prekladu, nebo co se s tim da delat?. Ten program jsem nenapsal ja. Je to priklad na volani procedury.
Diky
M. Szewieczek ASEI400, s. r. o. Tel.:069 691 4641
Excel - sirka sloupce
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 30.3.2001 13:07:58
> Jak se nastavuje sirka sloupce v excelu z Delphi 5 pres OLE.
ExcelSheet.Columns[index].ColumnWidth := <integer>;
kde
ExcelSheet := ExcelBook.WorkSheets[<string>];
kde
ExcelBook := MSExcel.ActiveWorkbook;
kde
MSExcel := CreateOleObject('Excel.Application');
Josef Cerny
Instalace W2000 a W98SE
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 30.3.2001 13:19:09
> > Nekde v newsech jsem cetl, ze Delphi zerou a nevraceji pamet (bez
> > prestani, dokud je k dispozici) v pripade, ze v Project Manageru
> > uvedena cesta k unite uz neplati, ale diky "library path" ji
> > kompiler presto nalezne. Nemohl to byt tento problem ?
>
> Me nevracej pamet ani, kdyz mam vsechno v poradku.
> Mimochodem, pamet se nevraci i po otevreni a naslednem zavreni tabulky
> z MS SQL. Pokud budu pri prochazeni tabulkou (treba 100 000 zaznamu)
> nacitat jen 100-radkove bloky, tak mam za chvilku zaplnenou celou
> pamet. To se pry stava taky jen v Delphi.
>
To je zajimave (a neprijemne). Pomohlo by, kdybych tabulku zrusil
a znovu vytvoril? (tabulkou myslim query). Pokud bude napr. takova
query na formulari, ktery po pouziti uvolnim z pameti - jak se to
chova v tomto pripade?
David
Ruzna velikost RECORD v D2 a D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 13:20:08
From: "Josef Madlik" <madlik(zv)jsp(tec)cz>
> ma velikost 12 byte v Delphi 2 a 16 byte v Delphi 5 ?
>
> V obou pripadech mam zapnute RECORD FIELDS ALIGN.
> U Delphi 2 je to v poradku, ale v D5 nevim kde se vzaly 4 byte navic a jaka
Ahoj,
otazka je co znamena 'v poradku'. V D5 bylo zarovnavani upraveno i na 8 bytu.
Pokud mas nekde ulozeny struktuty v souboru tak je vzdy musis deklarovat jako
packed.
Petr Vones, amatersky programator
Vyjimka pri zpracovani zpravy zaslane funkci SendM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 13:23:03
From: "Karel Klimes" <klimes(zv)metra(tec)cz>
> mam procesy A a B. Funkci okna (WndProc) W1, procesu A, zaslu z procesu B
> zpravu pomoci SendMessage. Jaky vysledek (result) vrati tato funkce, v
> procesu B, pokud pri zpracovani zpravy v okne W1, procesu A nastane vyjimka
> (raise ...)?
Ahoj,
neznazis se takto nahodou predavat pointer na nejaka data ?
Petr Vones, amatersky programator
Instalace W2000 a W98SE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 13:25:25
From: "Tomas Michal�k" <michalik(zv)proca(tec)cz>
> Nekde v newsech jsem cetl, ze Delphi zerou a nevraceji pamet (bez
> prestani, dokud je k dispozici) v pripade, ze v Project Manageru uvedena
> cesta k unite uz neplati, ale diky "library path" ji kompiler presto
> nalezne.
> Nemohl to byt tento problem ?
Ahoj,
jeden problem je v tom, ze prekladac v IDE cachuje unity projektu, takze pokud
mas v project group treba tricet projektu tak je to uz narocne. Uzavrenim toho
projektu by se to melo uvolnit (to co ukazuje Task Manager je blbost).
Petr Vones, amatersky programator
Zobrazovani Child formularu
[*] Listuj <listuj(zv)centrum(tec)cz> - 30.3.2001 13:25:24
OK. tohle vyzkousim, doufam, ze se nedostanu do nejakych
problemu. Vlastne tim prirazuji jeste existujicimu (nebo uz ne?)
formulari nil.
Jsou kazdy jineho typu (respektive, zatim dvou typu)
Pro vysvetleni
mam seznam zakazniku - potrebuji zobrazit detail zakaznika
mam seznam objednavek - zobrazeni detailu objednavky
V te souvislosti se jeste zeptam, jde nejak zajistit posilani
zprav mezi hlavnim formularem a okolnimi (sendmessage?) s tim, ze
predanym parametrem bude object?
Dekuji
>
> V tom TDetailFormClose ti chyba priradenie nil do odkazu na
formular
> (promennadetailform = nil).
> Aj ked s tymi roznymi typmi detailnych formularov som to celkom
nepochopil,
> su vsetky jedneho typu
> (TdetailForm) alebo roznych ?
>
> MarCaNT
> > prave resim tento problem, mam MDI aplikaci, kde je nekolik
> > ruznych oken. Zatim pouze jedno okno slouzi k zadavani dat
avsak
> > z nej zobrazuji dalsi pomocna okna (detailni informace k
> > editovane polozce).
> > Co bych potreboval je abych vzdy mohl zobrazit pouze jeden
typ
> > tohoto detailniho okna (a informace v nem se mi budou menit
dle
> > vyberu).
> >
> > Zatim jsem to mel vyresene tak, ze byla definovana privatni
> > promenna typu detailniho formulare v unite.
> >
> > Zobrazovani probihalo takto.
> >
> > procedure ZobrazDetail(InformacekZobrazeni: TObject);
> > begin
> > if not Assigned(promennadetailform) then
> > begin
> > promennadetailform := TdetailForm.Create(FAowner);
> > end;
> > promennadetailform.showdetail(InformacekZobrazeni)
> > end;
> >
> > Tohle probehlo v pohode do prvniho zobrazeni formulare,
jelikoz
> > formular byl MDIChild tak jsem pri close dal action:=caFree
> > Pri dalsi zadosti o zobrazeni to ale spadlo, protoze promenna
> > nebyla nil, ale nemela ani pointer na formular. Assigned
vracelo
> > true.
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Databaze v IB II
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 30.3.2001 13:26:00
Kdyz uz nabadate k zapomenuti na IBX, muzete prosim nekdo
napsat proc vlastne, Ja ho pouzivam uz dlouho a nikdy jsem
problemy nemel. I Eventy me chodi dobre, pravda jsou tam drobne
musky, ale urcite se s nimi dat zit a netvrdte mi, ze to co
doporucujete je naprosto bez chyby.
>
> Ahoj,
>
> "Ing. Patrik Tesar" wrote:
> >
> > Musis pouzivat trigger a 'POST EVENT' v databazi a Event Alerter vo svojej
> > aplikacii.
> > Zabudni na IBX a zacni pouzivat FIB+, alebo drahsie IBObjects (priznam sa,
> > ze neviem
> > ktore su lepsie...)
>
> Osobne FIB+ neznam, ale IBExpert, ktery je naprogramovan pomoci FIB+
> bude prepsan pro IBO ...
> K vyzve na zapomenuti na IBX se pripojuji :-)
>
> Tom
>
> ================================= 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
[*] Str�n�k Franti�ek - 30.3.2001 13:28:03
V pripade napr. kdyz si delas vlastni Preview pouzij udalost
OnPageAvaliable:
napr. takto:
procedure TNahledF.QRPreview1PageAvailable(Sender: TObject;PageNum:
Integer);
var status:string;
begin
case QRPreview1.QRPrinter.Status of
mpReady: status:=' printer k dispozici';
mpBusy: status:=' prob�h� p��prava str�nek';
mpFinished: status:=' p��prava str�nek ukon�ena';
end;
StatusBar1.Panels[1].Text:='str�nka '+IntToStr(QRPreview1.PageNumber)+'
z '+IntToStr(PageNum);
StatusBar1.Panels[2].Text:=status;
end;
Zdravi: F.Stranik
mailto:FStranik(zv)CPOJ.CZ
> -----P�vodn� zpr�va-----
> Od: Reznicek David [SMTP:reznicek(zv)jakl(tec)cz]
> Odesl�no: 30. b�ezna 2001 12:03
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t:
>
> Ahoj.
> Jak pokud mozno jedno jednoduse v QuickReportu 3.0.8. vytisknu celkovy
> pocet stran ??
> Hledam, hledam a nemuzu to nikde najit. Prosel jsem snad vsechny
> funkce,
> ktere tam jsou
> a vysledek vyskery zadny.
> Diky za pomoc.
>
> >>>>>>>>>> REZNICEK David <<<<<<<<<<
> >>>>>>>>> www.reznicek.virt(tec)cz <<<<<<<<<
> >>>>>>>>>> www.gag.virt(tec)cz <<<<<<<<<<<
> >>>>>>>>>> reznicek(zv)jakl(tec)cz <<<<<<<<<<
>
>
> ROUND
[*] brant(zv)dcomm(tec)cz - 30.3.2001 13:29:10
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Result:=trunc(10^pocet mist * puvodni cislo + 0.5)/10^pocet mist,
napriklad pro 1.6877 by to bylo:
100*1.6877 = 168.77
168.77 + 0.5 = 169.27
trunc(169.27) = 169
169/100 = 1.69 a hotovo
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: VASEK STEPAN [mailto:vaseks(zv)stp(tec)cz]
Sent: Friday, March 30, 2001 8:04 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: ROUND
Doby den,
mam vysledek typu real a potrebuju zaokrouhlit na 2 desetinna cisla. Prosim
, jak na to.
Instalace W2000 a W98SE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 13:31:27
From: "PeJaSoft" <pejasoft(zv)pejasoft.com>
> Mimochodem, pamet se nevraci i po otevreni a naslednem zavreni tabulky z MS
> SQL. Pokud budu pri prochazeni tabulkou (treba 100 000 zaznamu) nacitat jen
Ahoj,
za prve nacitat 100 000 zaznamu neni zrovna idealni u SQL databazi. Dale, jak
k te databazi pristupujes. Jsou v te tabulce BLOBY a pouzivas D4 ?
Petr Vones, amatersky programator
Instalace W2000 a W98SE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.3.2001 13:33:43
On 30 Mar 2001, at 10:49, Tomas Michal�k wrote:
> > ladim vice programu v jednom projektu najednou (napr. Lokalizator),
> > pak si Delphi klidne uzurpuje i 100 MB bez mrknuti oka. Horsi ale
> > je, ze kdyz si natahnu uplne jiny projekt, Delphi ma problemy s
> > vycistenim pameti po predchozim projektu. Takze pak musim Delphi
> > ukoncit a znovu nastartovat, abych tech 100 MB setrasl.
>
> Nekde v newsech jsem cetl, ze Delphi zerou a nevraceji pamet (bez
> prestani, dokud je k dispozici) v pripade, ze v Project Manageru
> uvedena cesta k unite uz neplati, ale diky "library path" ji kompiler
> presto nalezne. Nemohl to byt tento problem ?
Asi ne. Protoze pri praci s nejakym projektem mi podle Task
Manageru naroste MEM Usage do nejake vyse. Kdyz pak otevru
novy projekt (bpg), zabrana pamet zustane a zabira se dalsi pro
novy projekt.
Krome toho, obcas mi Delphi pohlti cely vykon CPU Usage, coz je
take protivne.
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
QuickReport - Pocet stran...???
[*] Reznicek David <reznicek(zv)jakl(tec)cz> - 30.3.2001 13:35:51
Ahoj.
Jak pokud mozno jedno jednoduse v QuickReportu 3.0.8. vytisknu celkovy
pocet stran ??
Hledam, hledam a nemuzu to nikde najit. Prosel jsem snad vsechny funkce,
ktere tam jsou
a vysledek vyskery zadny.
Diky za pomoc.
>>>>>>>>>> REZNICEK David <<<<<<<<<<
>>>>>>>>> www.reznicek.virt(tec)cz <<<<<<<<<
>>>>>>>>>> www.gag.virt(tec)cz <<<<<<<<<<<
>>>>>>>>>> reznicek(zv)jakl(tec)cz <<<<<<<<<<
ROUND
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 30.3.2001 14:04:41
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Domnivam se, ze to nebude davat spravne vysledky u zapornych cisel.
Pouzil bych Round(X) misto Trunc(X + 0.5), tzn.
Y := IntPower(10, pocet mist);
Result := Round(puvodni cislo * Y) / Y;
Funguje to pro zaokrouhlovani obema smery, tj. na desetina i desitkova
mista.
Michal Tiller
-----Original Message-----
From: brant(zv)dcomm(tec)cz [mailto:brant(zv)dcomm(tec)cz]
Sent: Friday, March 30, 2001 1:29 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: ROUND
Result:=trunc(10^pocet mist * puvodni cislo + 0.5)/10^pocet mist,
napriklad pro 1.6877 by to bylo:
100*1.6877 = 168.77
168.77 + 0.5 = 169.27
trunc(169.27) = 169
169/100 = 1.69 a hotovo
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: VASEK STEPAN [ mailto:vaseks(zv)stp(tec)cz <mailto:vaseks(zv)stp(tec)cz> ]
Sent: Friday, March 30, 2001 8:04 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: ROUND
Doby den,
mam vysledek typu real a potrebuju zaokrouhlit na 2 desetinna cisla. Prosim
, jak na to.
Access violation
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 14:21:37
From: "Ing. Maxmili�n Szewieczek" <m.szewi(zv)asei400(tec)cz>
> Da se to vyresit nejakou direktivou pri prekladu, nebo co se s tim da
> delat?. Ten program jsem nenapsal ja. Je to priklad na volani procedury.
Ahoj,
je treba opravit chybu v tom programu.
Petr Vones, amatersky programator
OT: 2 PC ve 2 mestech - jak je spojit?
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 30.3.2001 14:26:11
Omlouvam se za hruby OT, ale byl jsem postaven pred nalehavou situaci.
Musim spojit dva pocitace, kazdy v jinem meste pres normalni telefonni
linky.
Potrebuji najit rychle, elegantni reseni pro prenos souboru - nic min, nic
vic.
Pozor: Internet (ac s tim hrube nesouhlasim) - NEPRIPADA v uvahu.
Oba pocitace Win98. Tusim, ze moznosti bude spousta, ale ktera z nich je ta
prava?!?
Mate nekdo nejakou tuchu nebo zkusenosti?
Aby to nebylo tak uplne OT, jakou pouzit komponentu z D5Prof, kdybych chtel
tuto situaci resit programove svymi silami?
Petr Svejda
http://www.lingvista(tec)cz/
PC ve 2 mestech - jak je spojit?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 14:39:11
From: "Ing. Petr �vejda" <lingvista(zv)lingvista(tec)cz>
> Musim spojit dva pocitace, kazdy v jinem meste pres normalni telefonni
> linky.
> Pozor: Internet (ac s tim hrube nesouhlasim) - NEPRIPADA v uvahu.
Ahoj,
hm, patrne aby to bylo dostatecne drahe ;-)
> Mate nekdo nejakou tuchu nebo zkusenosti?
Mozna by nejdriv stalo za pokus vysvetlit tomu dotycnemu ze spojeni pres
Internet pomoci dial-upu do jineho mesta vyjde ponekud levneji (pokud ovsem
nakladnost a komplikovanost reseni neni cilem).
Asi nejednodussi je na nainstalovat RAS server na ten pocitac a pak se pomoci
"Telefonickeho pripojeni site" na nej pripojit. Na RAS existuje plno komponent
ci prikladu, jeden najdes treba tady:
http://delphi-jedi.org/Jedi:APILIBRARY
Instalace RAS serveru na starsi OS je popsana tady:
http://www.isdn(tec)cz/templ/clanek.phtml?cid=573
Petr Vones, amatersky programator
PC ve 2 mestech - jak je spojit?
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 30.3.2001 14:58:56
Na jakou vzdalenost ?
Pokud je to do cca 20 km volnym terenem, tak by slo pouzit
wireless. Naklady do 50kkc.
Slavek
>
> Musim spojit dva pocitace, kazdy v jinem meste pres normalni telefonni
> linky.
>
> Potrebuji najit rychle, elegantni reseni pro prenos souboru - nic min, nic
> vic.
>
> Pozor: Internet (ac s tim hrube nesouhlasim) - NEPRIPADA v uvahu.
>
> Oba pocitace Win98. Tusim, ze moznosti bude spousta, ale ktera z nich je ta
> prava?!?
>
> Mate nekdo nejakou tuchu nebo zkusenosti?
>
> Aby to nebylo tak uplne OT, jakou pouzit komponentu z D5Prof, kdybych chtel
> tuto situaci resit programove svymi silami?
>
> Petr Svejda
> http://www.lingvista(tec)cz/
> OT: Zpomalovani PC
[*] daniel.hrna(zv)sme(tec)cz - 30.3.2001 14:58:54
Omlouvam se, ale uz nam tady s kamosem dochazi napady jak resit nasledujici
problem:
Na PC iPentium II - 350, 128(100), SB Live ... atd, no proste docela slusna
masina:
Po zapnuti PC se nekdy stane, ze Windows 98/Me nenajede korektne, ale
zpomalene. Potom nejde spustit ani Excel. Musi se Restartovat cele PC! Hry
pokud najedou tak jako zpomaleny film. Potom po restartu je vse ok.
No a takhle to dela nahodne porad, ikdyz uz je v tom PC vse vymenene (krome
CD, ZK).
Ted tam je 733 iPIII, Gigabyte 815.
Stalo se nekomu neco takoveho. Na koho se obratit. Ja mam uplne stejnou
sestavu a jsem v pohode.
Dik za kazdou radu a napad.
PS: Nejsou v tom treba duchove ???ROUND
[*] M. Winkler <m.winkler(zv)seznam(tec)cz> - 30.3.2001 15:19:19
Ahoj,
TvujReal := Round(100 * TvujReal) /100
M. Winkler
| -----Original Message-----
| From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
| Behalf Of VASEK STEPAN
| Sent: Friday, March 30, 2001 8:04 AM
| To: 'delphi-l(zv)clexpert(tec)cz'
| Subject: ROUND
|
|
| Doby den,
| mam vysledek typu real a potrebuju zaokrouhlit na 2 desetinna
| cisla. Prosim
| , jak na to.
|
| Stepan Vasek
|
| ---
| P��choz� zpr�va neobsahuje viry.
| Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
| Verze: 6.0.240 / Virov� b�ze: 116 - datum vyd�n�: 23.3.2001
|
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.240 / Virov� b�ze: 116 - datum vyd�n�: 23.3.2001
Databaze v IB II
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 30.3.2001 15:28:47
Zdravim vsechny
IBX a IBO znam, ale kde roste FIB+ a IBExpert ??? Rad bych to odzkousel.
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> Ahoj,
>
> "Ing. Patrik Tesar" wrote:
> >
> > Musis pouzivat trigger a 'POST EVENT' v databazi a Event Alerter vo svojej
> > aplikacii.
> > Zabudni na IBX a zacni pouzivat FIB+, alebo drahsie IBObjects (priznam sa,
> > ze neviem
> > ktore su lepsie...)
>
> Osobne FIB+ neznam, ale IBExpert, ktery je naprogramovan pomoci FIB+
> bude prepsan pro IBO ...
> K vyzve na zapomenuti na IBX se pripojuji :-)
>
> Tom
OT: Re: Instalace W2000 a W98SE
[*] Hurricane <hurricane(zv)quick(tec)cz> - 30.3.2001 15:41:14
Zdravim
XOSL je vyborny boot manager, ale myslim si, ze ten co je ve W2K splni
stejnou sluzbu.
Hurricane
----- Original Message -----
> >Take bych chtel pro testovaci ucely mit na tomtez pocitaci i W98, jde to
> nainstalovat W98, >kdyz uz tam budu mit W2000?
>
> Krome Dual Bootu, ktery umoznuje volbu mezi W98 / W2k, jeste existuji Boot
> managery, ktere take dovoluji pri bootu systemu zvolit OS. Podivej se na
> XOSL na Chip CD 8/00.
> Prakticky jsem nezkousel.PC ve 2 mestech - jak je spojit?
[*] Hurricane <hurricane(zv)quick(tec)cz> - 30.3.2001 15:49:45
Zdravim
Vlastne mas dve moznosti:
1) Presvedcit dotycneho, aby ti povoliv vytvorit Virtualni Privatni Sit
(VPN) pres internet.
2) Nainstalovat server telefonickeho pripojeni site a udelat telefonicke
pripojeni site na vzdaleny pocitac. Je to ale dost drahe Prave resim, jak
takhle spojit dva kompy, ale obejit ustrednu (vlastni draty), neplatis pak
poplatky. Jestli by slo mezi nima natahnout dva draty, dej vedet, a muzu
poskytnout vic informaci. Pokud je na jedne strane pobockova ustredna, slo
by to natahnout uplne bez problemu. Takhle pripojuje vzdaleny pracoviste
nase skola.
Neni duvod to programovat sam. Server i Klienta mas ve windowsech plne
funkcni.
Hurricane
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 30, 2001 2:58 PM
Subject: RE: 2 PC ve 2 mestech - jak je spojit?> Na jakou vzdalenost ?
> Pokud je to do cca 20 km volnym terenem, tak by slo pouzit
> wireless. Naklady do 50kkc.
>
> Slavek
>
> >
> > Musim spojit dva pocitace, kazdy v jinem meste pres normalni telefonni
> > linky.
> >
> > Potrebuji najit rychle, elegantni reseni pro prenos souboru - nic min,
nic
> > vic.
> >
> > Pozor: Internet (ac s tim hrube nesouhlasim) - NEPRIPADA v uvahu.
> >
> > Oba pocitace Win98. Tusim, ze moznosti bude spousta, ale ktera z nich je
ta
> > prava?!?
> >
> > Mate nekdo nejakou tuchu nebo zkusenosti?
> >
> > Aby to nebylo tak uplne OT, jakou pouzit komponentu z D5Prof, kdybych
chtel
> > tuto situaci resit programove svymi silami?
> >
> > Petr Svejda
> > http://www.lingvista(tec)cz/
> >
>IB - create / alter
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 30.3.2001 16:15:48
Haj hou!
Upgrade struktury "zive" SQL databaze je vzdy problem (bez
ohledu na pouzity server). System ktery zvolis by si mel poradit se
vsemi eventualitami, vcetne pripadnych transformaci dat, protoze
upgrade struktury vetsinou neni jen pridani tabulek a sloupcu, ale
komplexnejsi zmena schematu.
V pripade SQL databazi je vzdy tezke delat ALTER tabulek, kvuli
vazbam mezi objekty (triggery, ulozene procedury, tabulky, view
atd.). Vytvorit genericky program na upgrade ktery by umel
rozmotavat strukturu vazeb je takrka nemozne. Proto se vetsina
upgrade mechanizmu realizuje jako vytvoreni nove struktury a
presunuti dat ze stare do nove. To lze detal v ramci jedne databaze
(nova struktura ovsem musi pojmenovavat objekty jinak nez stara),
nebo vytvorenim nove databaze. Oba pristupy maji sva pro a proti.
Hlavni vyhoda jedne databaze je ve snadnosti presunu dat mezi
tabulkami, nevyhodou je nutnost pouzit jiny namespace. Dve
databaze maji vyhodu shodneho namespace, zato prevod dat je
slozitejsi (nicme ne o moc). Vetsinou se pouziva system dvou
databazi.
Pokud pouzijes metodu dvou databazi, a mas vlastni system
zalohovani dat, pak muzes snadno zakomponovat upgrade primo
do obnovy ze zalohy. Postup je pak takovy, ze pred upgrade
programu se provede zaloha (cez je stejne doporuceny postup) a
pak se jednoduse nainstaluje program. Ten pri prvnim spusteni
provede automaticke obnoveni z teto zalohy, tzn. vytvoreni
databaze (nyni uz s novou strukturou) a prevod dat ze zalohy do
teto databazi, vcetne potrebnych transformaci. Takto mas veskerou
upgrade funkcionalitu na jednom miste (obnova ze zalohy) a ziskas
schopnost obnovit data i ze starsich zaloh vytvorenych starsimi
verzemi bez nutnosti obnovit nejdrive program ve starsi verzi (muze
se hodit).
S pozdravem
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Instalace W2000 a W98SE
[*] Lubo Fule <fule(zv)sct.sk> - 30.3.2001 16:37:24
> > Me nevracej pamet ani, kdyz mam vsechno v poradku.
> > Mimochodem, pamet se nevraci i po otevreni a naslednem zavreni tabulky
> > z MS SQL. Pokud budu pri prochazeni tabulkou (treba 100 000 zaznamu)
> > nacitat jen 100-radkove bloky, tak mam za chvilku zaplnenou celou
> > pamet. To se pry stava taky jen v Delphi.
> >
>
> To je zajimave (a neprijemne). Pomohlo by, kdybych tabulku zrusil
> a znovu vytvoril? (tabulkou myslim query). Pokud bude napr. takova
> query na formulari, ktery po pouziti uvolnim z pameti - jak se to
> chova v tomto pripade?
>
Nesledujem tuto debatu od zaciatku, ale o ake query sa jedna ? Ak je to
TQuery cize BDE, tak je viac nez iste, ze problem nie je v Delphi ale v BDE,
pretoze BDE si alokuje svoju vlastnu pamat do ktorej "cachuje" data vratene
SQL dotazmi a s jej uvolnenim si uz prilis starosti nerobi...
L.
Access violation
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 30.3.2001 16:51:01
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
To bych asi resil opravou chyby, ktera to zpusobuje :) Je to rozbyty.
Michal
-----Original Message-----
From: Ing. Maxmili�n Szewieczek [mailto:m.szewi(zv)asei400(tec)cz]
Sent: Friday, March 30, 2001 1:05 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Access violation
Zdravim,
zacinam programovat v DELPHI 5 a zatim nevim jak resit nektere problemy.
Program mi po spusteni vypise hlasku "Project ..... faulted with message:
'access violation at 0x77f88e7a: write of addres 0x00030f98'. Process
stopped. Use Step or Run to continue." Pochopil jsem, ze se snazi zapsat
nekam, kam nesmi. Da se to vyresit nejakou direktivou pri prekladu, nebo co
se s tim da delat?. Ten program jsem nenapsal ja. Je to priklad na volani
procedury.
Diky
M. Szewieczek ASEI400, s. r. o. Tel.:069 691 4641
TColor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 18:54:52
From: "Petr Ma��k" <rtepema(zv)mbox.vol(tec)cz>
> obc := SetBkColor(FCanvas.handle, FAppearance.FBkgdColor);
> obc je typu TColor, FAppearance.FBkgdColor je typu TColor
>
> Chybova hlaska: Range check Error, projevuje se jak pod W98SE, tak pod W2000
Ahoj,
protoze:
TColor = -$7FFFFFFF-1..$7FFFFFFF
COLORREF SetBkColor(
HDC hdc, // handle of device context
COLORREF crColor // background color value
);
COLORREF = DWORD;
Nepouzivej Range a Overflow checking ve finalnim buildu aplikace, zbytecne
tim zhorsujes efektivitu kodu a vznikaji ti problemy jako tenhle.
Petr Vones, amatersky programator
Procesor a vyjimka
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 30.3.2001 19:11:45
> to je pravda. Jenze vyjimka se do aplikace vubec nedostane, protoze selze
> dany driver. Jedna se o chybu na jine urovni nez je aplikace.
>
> Je zde nekdo kdo provozuje Win98 s VIA chipsetem a Intel procesorem (tohle
asi
> bude ta chybna kombinace) a neprojevuje se mu to ? Jak to vypada s Win98SE
?
> Prijde mi zvlastni ze by to u VIA neopravili, pokud by s tim melo problem
vice
> lidi.
>
> Petr Vones, amatersky programator
Pridavam trosku do mlyna:
Duron 650(zv)7x133, Abit KT7A , chipset KT133A (133 Mhz). drivery Via4in1 4.29
final. Na W98 SE OK, W2000 SP1 OK
Petr Marik
rtepema(zv)mbox.vol(tec)cz
Instalace W2000 a W98SE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 19:28:49
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Asi ne. Protoze pri praci s nejakym projektem mi podle Task
> Manageru naroste MEM Usage do nejake vyse. Kdyz pak otevru
> novy projekt (bpg), zabrana pamet zustane a zabira se dalsi pro
> novy projekt.
Ahoj,
to je tim, ze Mem Usage ukazuje blbost ;-) Musis mezitim alespon minimalizovat
okno Delphi IDE a pak jej obnovit.
Petr Vones, amatersky programator
Pametove naroky IDE Was: Instalace W2000 a W98SE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 19:45:58
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Manageru naroste MEM Usage do nejake vyse. Kdyz pak otevru
> novy projekt (bpg), zabrana pamet zustane a zabira se dalsi pro
Ahoj,
jeste doplneni, kdyz si do zastupce na spusteni IDE pridas parametr -hm tak ti
pak v titulku okna zobrazuje skutecnou hodnotu alokovane pameti. Vice v helpu
pod heslem "IDE command-line options" (Delphi 5.01)
Petr Vones, amatersky programator
Provereni spravnosti URL seznamu
[*] honza.dforum <honza.dforum(zv)atlas(tec)cz> - 30.3.2001 20:05:07
mam soubor, ve kterem mam URL adresy, potreboval bych nejakym
> zpusobem jednotlive tyto adresy otestovat a podle vraceneho kodu
> v hlavicce zahlasit bud OK-pokud se stranka v poradku nacte
> (kod200), nebo ERROR... Zkousel jsem neco vytvorit pomoci
> komponenty HTTPCli z baliku ICS, problem je ale v tom, ze mi
> treba komponenta zahlasi chybu 500 - Internal server error, ale v
> IE stranku bezproblemu zobrazim...
>
> Nedelal jste nahodou nekdo uz neco podobnyho??
>
No ja jsem na po pouzival standartni komponetny z Delph 5. a nebo
co takhle misto GET pouzit HEAD.
popr. mihu poslat ukazku za pouziti NMHTTP1
OT: 2 PC ve 2 mestech - jak je spojit?
[*] Dvo��k Miroslav <CLexpert(zv)clexpert(tec)cz> - 30.3.2001 22:03:00
Puvodni zprava, kterou napsal Ing. Petr �vejda dne 30 Mar 2001,:
> Musim spojit dva pocitace, kazdy v jinem meste pres normalni telefonni
> linky.
>
> Potrebuji najit rychle, elegantni reseni pro prenos souboru - nic min, nic
> vic.
Treba na jednom udelat RAS Server, pokud jeden je NT nebo W2K,
no a z druheho se k nemu pripojovat stejne, jako se pripojujes
do Internetu pres PPP. Pak tam bude normalne TCP/IP a muzes
soubory jet treba pres FTP...
Nebo se treba spojit modemama pres nejaky program typu Norton
pcAnywhere atd. Pak zase muze jeden porad jet jako hostitel
a druhy se na nej pripojovat...
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
============================================================Excel - sirka sloupce
[*] David Majda <david.majda(zv)seznam(tec)cz> - 30.3.2001 22:12:53
Melo by fungovat napr. toto (predpokladam, ze V je Variant obsahujici
objekt typu "Excel.Application" vytvoreny pres CreateOleObject):
V.Columns['B:B'].ColumnWidth:=15;
Vyznam je snad jasny :-)
David Majda
E-mail: david.majda(zv)seznam(tec)cz
WWW: http://dmajda.hyperlink(tec)cz
Bednar��k Dalibor wrote:
> Jak se nastavuje sirka sloupce v excelu z Delphi 5 pres OLE.
Kurzory
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 30.3.2001 16:05:31 -0500
Zdravim,
chtel bych se zeptat, jak mohu spolehlive pouzit v takove aplikaci svuj
kurzor. Kdyz pouziju SetCursor dela to problemy, protoze po zavreni formy se
zase obnovi defaultni kurzor(kdyz tam mam vice forem) a hlavne kdyz mam
modalni okno, pod kterym je jina form, a vyjedu z toho okna, tak se taky ukaze
normalni windowsovskej kurzor(form v pozadi je pres celou obrazovku).
Jedine co mi fungovalo spolehlive bylo SetSystemCursor, jenze to je ponekud
neprakticke, protoze se pak neda obnovit puvodni nastaveni kurzoru(alepson se
mi to nepodarilo).
Neexistuje tedy nejaka moznost pouziti kurzoru v Delphi tak, aby platily pro
celou aplikaci nebo nejaky jiny prikaz nebo alespon zpusob, jakym bych mohl
vratit puvodni kurzor, kdyz pouziju SetSystemCursor?
Dekuji
Petr Vasicek
Chyba v ukladani do souboru - stale nevyreseno
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 30.3.2001 23:14:59
Ahoj vsem.
Tady vam posilam ukazku procedury, kterou chci spustit a hazi to chybu v
oznacenem miste. Je to ale presne okopirovane z napovedy viz (FileWrite
function)- kdyztak na to mrknete.
procedure TForm1.Button1Click(Sender: TObject);
var
BackupName: string;
FileHandle: Integer;
StringLen: Integer;
X: Integer;
Y: Integer;
begin
if Save.Execute then
begin
if FileExists(Save.FileName) then
begin
BackupName := ExtractFileName(Save.FileName);
BackupName := ChangeFileExt(BackupName, '.BAK');
if not RenameFile(Save.FileName, BackupName) then
raise Exception.Create('Unable to create backup file.');
end;
FileHandle := FileCreate(Save.FileName);
{ Write out the number of rows and columns in the grid. }
FileWrite(FileHandle,
Mrizka.ColCount, SizeOf(Mrizka.ColCount));
FileWrite(FileHandle,
Mrizka.RowCount, SizeOf(Mrizka.RowCount));
for X := 0 to Mrizka.ColCount - 1 do
begin
for Y := 0 to Mrizka.RowCount - 1 do
begin
{ Write out the length of each string, followed by the string
itself. }
StringLen := Length(Mrizka.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle,*************************************
Mrizka.Cells[X,Y], *** Pise to tu Variable required ***
Length(Mrizka.Cells[X,Y]);
end; *************************************
end;
FileClose(FileHandle);
end;
end;
Diky za pomoc.
Filip
Chyba v ukladani do souboru - stale nevyreseno
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.3.2001 23:35:43
> Ahoj vsem.
> Tady vam posilam ukazku procedury, kterou chci spustit a hazi to chybu v
> oznacenem miste. Je to ale presne okopirovane z napovedy viz (FileWrite
> function)- kdyztak na to mrknete.
>
> FileWrite(FileHandle,*************************************
> Mrizka.Cells[X,Y], *** Pise to tu Variable required ***
> Length(Mrizka.Cells[X,Y]);
Uz Ti prece nekdo odpovidal jak to vyresit ?!
FileWrite je definovana jako:
Function FileWrite(Handle: Integer; const Buffer; Count: Integer): Integer;
to znamena, ze jako druhy parametr vyzaduje skutecnou promennou (ve skutecnosti se predava pointer na pamet nejake promenne). To co ji predavas ty neni promenna, ale jako fyzicka promenna nexistujici property komponenty (to je ve skutecnosti realizovano funkci/procedurou a ackoliv se navenek tvari jako promenna nejde o pravou promennou)
Cili musis udelat to co ti radi kompilator - uloziit Cells[X,Y] do skutecne promenne a tu FileWritem ulozit
Zdravi
D. Toman
Chyba v ukladani do souboru - stale nevyreseno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.3.2001 23:56:41
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> Cili musis udelat to co ti radi kompilator - uloziit Cells[X,Y] do skutecne
> promenne a tu FileWritem ulozit
Ahoj,
nebo muzes pouzit konstrukci: Pointer(StringGrid1.Cells[X, Y])^
Take by stalo za zvazeni pouzit spise TFileStream a try..finally blok na
uzavreni souboru.
Petr Vones, amatersky programator
TMemo & Font
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 31.3.2001 00:22:15
Dobry den,
1) Lze nejak donutit TMemo aby v pripade, ze se text nevejde, byl posledni
radek videt castecne? Me to zobrazuje jenom cele uplne radky, coz nechci.
2) Dynamicky vytvarim nekolik TMemo, ale v pripade ze velikost je mensi nez
pouzity font, tak vznikne vijimka, ze to cte odkudsi. Pokud je font takovy,
aby byl zobrazen alespon jeden radek, vse je ok... Dela to jenom mne a nebo
to je prirozena vlasnost TMena.
Dekuji za odpovedi
Zdenek
Kurzory
[*] Lauko Stefan <laukosw(zv)naex.sk> - 31.3.2001 00:46:35
Screen.Cursor:=
> Neexistuje tedy nejaka moznost pouziti kurzoru v Delphi tak, aby platily
pro
> celou aplikaci nebo nejaky jiny prikaz nebo alespon zpusob, jakym bych
mohl
> vratit puvodni kurzor, kdyz pouziju SetSystemCursor?
> Dekuji
>
> Petr Vasicek
>
>Nastaven� v�choz� tisk�rny
[*] Choozee <choozee(zv)quick(tec)cz> - 31.3.2001 02:50:08
Hi Dear!
M�m nainstalovan� ve Win98 dv� tisk�rny pot�eboval bych zjistit, jak se programov� v Delphi 4 d� nastavit v�choz� tisk�rna.
D�ky Choozee.TColor
[*] Petr Ma��k - 30.3.2001 17:45:45 -0800
Zdravim vsechny, a hned mam dotaz.
Po prevodu programu do Delphi 5 mi kolabuje tato funkce
obc := SetBkColor(FCanvas.handle, FAppearance.FBkgdColor);
obc je typu TColor, FAppearance.FBkgdColor je typu TColor
Chybova hlaska: Range check Error, projevuje se jak pod W98SE, tak pod W2000
SP1. V D3 je vse OK !!
Pokud prirazeni vynecham a pouziju funkci bez navratove hodnoty, je vse OK.
Zna nekdo duvod a ev reseni? Potrebuji si na zacatku uchovat puvodni barvu
pozadi a pak ji znovu pouzit v prikazu SetBkColor(FCanvas.handle, Obc)
Zpomalovani PC
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 31.3.2001 07:19:00
> Po zapnuti PC se nekdy stane, ze Windows 98/Me nenajede korektne, ale
> zpomalene. Potom nejde spustit ani Excel. Musi se Restartovat cele PC! Hry
> pokud najedou tak jako zpomaleny film. Potom po restartu je vse ok.
Predpokladam, ze jste si to smontovali sami, takze pocitac jako celek
nemuzete nikde reklamovat (Autocont, Bravo, Triline, atd.), coz by
byla cesta nejjednodussi.
Pokud jste vse vymenily, muzeto byt zakladni deskou.
Ja bych postupoval nasledovne:
Reset SETUP, CMOS na tovarni nastaveni, abych predesel nejakemu
podivnemu nastaveni. Vyndal bych vse, co pro beh Windows neni potreba,
napriklad tu zvukovku.
Nainstaloval bych do systemu ovladace dodane k zakladni desce.
Dale bych zkontroloval pamet,
napr http://reality.sgi.com/cbrady_denver/memtest86/
Podobne muzete mimochodem proverit disk pres utility vyrobce,
ale tim to nebude.
Desetkrat bych nabootoval, zda se zavada projevi
ci nikoliv a sledoval irq a Vlastnosti/System, zda tam nemate vykricniky.
Pokud by se to slo pomalu stale, tak bych zkusil vymenit MB.
Postupne bych pridaval komponenty (zvukovku,...).
Hodne stesti.
Leos
Nastaven� v�choz� tisk�rny
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 31.3.2001 07:22:26
uses
Printers;
...
Label1.caption := Printer.Printers[printer.PrinterIndex];
...
Pavel
----- Original Message -----
From: Choozee
To: delphi-l(zv)clexpert(tec)cz
Sent: Saturday, March 31, 2001 2:50 AM
Subject: Nastaven� v�choz� tisk�rny
Hi Dear!
M�m nainstalovan� ve Win98 dv� tisk�rny pot�eboval bych zjistit, jak se programov� v Delphi 4 d� nastavit v�choz� tisk�rna.
D�ky Choozee.Chyba v ukladani do souboru - stale nevyreseno
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 31.3.2001 08:51:55
Jakeho typu ma byt ta promenna. Ja zkousel Variant a fungovalo to. Je to
spravne ?
Diky Filip.
-----Original Message-----
From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
Sent: Friday, March 30, 2001 11:36 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Chyba v ukladani do souboru - stale nevyreseno
> Ahoj vsem.
> Tady vam posilam ukazku procedury, kterou chci spustit a hazi to chybu v
> oznacenem miste. Je to ale presne okopirovane z napovedy viz (FileWrite
> function)- kdyztak na to mrknete.
>
> FileWrite(FileHandle,*************************************
> Mrizka.Cells[X,Y], *** Pise to tu Variable required ***
> Length(Mrizka.Cells[X,Y]);
Uz Ti prece nekdo odpovidal jak to vyresit ?!
FileWrite je definovana jako:
Function FileWrite(Handle: Integer; const Buffer; Count: Integer): Integer;
to znamena, ze jako druhy parametr vyzaduje skutecnou promennou (ve
skutecnosti se predava pointer na pamet nejake promenne). To co ji predavas
ty neni promenna, ale jako fyzicka promenna nexistujici property komponenty
(to je ve skutecnosti realizovano funkci/procedurou a ackoliv se navenek
tvari jako promenna nejde o pravou promennou)
Cili musis udelat to co ti radi kompilator - uloziit Cells[X,Y] do skutecne
promenne a tu FileWritem ulozit
Zdravi
D. Toman
Chyba v ukladani do souboru - stale nevyreseno
[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 31.3.2001 09:32:34
Ano je to spravne, ne neni to spravne. Protoze promenna typu Variant spolkne
jakykoliv typ, neni problem ji dosadit namisto toho Stringu, ktery by mel
byt tady (viz. definice TStringGrid, property Cells[Col,Row]:string). Urcite
je tedy spravnejsi pouzit promenou toho typu ktery tam ma byt misto
univerzalniho Variantu - krome naroku na pamet, rychlosti pristupu a tedy i
vysledneho kodu existuji asi i jine duvody - navic bez kontroly nad datovymi
typy bychom sklouzli zpatky k Basicu :-) nebo Jave ;-)). Z tvych dotazu mam
opakovane pocit, ze by nebylo uplne spatne kdyby jsi venoval misto psani
dotazu prozmenu chvilku cteni a precetl si za prve odpovedi na sve otazky,
ktere z konference dostanes a za druhe nejakou knizku o jazyce Pascal,
pripadne o datovych typech (pokud mas zajem mohu poslat strucny seznam
knizek ktere jsou na toto tema na trhu). A jeste za treti by nebylo spatne
si obcas precist napovedu k Delphi, ktera je dle meho nazoru docela podrobna
a i kdyz tam nektere veci chybi, tak tam urcite najdes to, jakeho typu je
ktera property. Neboj se cteni, clovek se pri tom dozvi mnoho noveho.
R.
> -----P�vodn� zpr�va-----
> Od: Hazuka Filip [SMTP:filip.hazuka(zv)multivac(tec)cz]
> Odesl�no: 31. b�ezna 2001 8:52
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> P�edm�t: RE: Chyba v ukladani do souboru - stale nevyreseno
>
> Jakeho typu ma byt ta promenna. Ja zkousel Variant a fungovalo to. Je to
> spravne ?
>
> Diky Filip.
>
> > Ahoj vsem.
> > Tady vam posilam ukazku procedury, kterou chci spustit a hazi to chybu v
> > oznacenem miste. Je to ale presne okopirovane z napovedy viz (FileWrite
> > function)- kdyztak na to mrknete.
> >
> > FileWrite(FileHandle,*************************************
> > Mrizka.Cells[X,Y], *** Pise to tu Variable required ***
> > Length(Mrizka.Cells[X,Y]);
>
> Uz Ti prece nekdo odpovidal jak to vyresit ?!
>
>
> Cili musis udelat to co ti radi kompilator - uloziit Cells[X,Y] do
> skutecne
> promenne a tu FileWritem ulozit
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
Instalace W2000 a W98SE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.3.2001 09:53:31
On 30 Mar 2001, at 12:33, PeJaSoft wrote:
> Me nevracej pamet ani, kdyz mam vsechno v poradku.
> Mimochodem, pamet se nevraci i po otevreni a naslednem zavreni tabulky
> z MS SQL. Pokud budu pri prochazeni tabulkou (treba 100 000 zaznamu)
> nacitat jen 100-radkove bloky, tak mam za chvilku zaplnenou celou
> pamet. To se pry stava taky jen v Delphi.
Hehe, tak takovehle problemy nemam. Asi to bude tim, ze ve
svych komponentach pamet radne uvolnuji. :-)
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
Je tiskarna nainstalovana - podruhe
[*] Jirka Virt <virt(zv)volny(tec)cz> - 31.3.2001 10:04:21
Zkuste tento kod(unit).
unit tiskarny;
interface
uses Windows, Classes, WinSpool;
function IsPrinter(PrinterName:Pchar):boolean;
function PrinterList:TStringList;
implementation
function IsPrinter(PrinterName:Pchar):boolean;
var PrinterHandle:THandle;
begin
if OpenPrinter(PrinterName,PrinterHandle,nil) then
begin
ClosePrinter(PrinterHandle);
result := True
end
else result :=False;
end;{IsPrinter}
function PrinterList:TStringList;
var
i,dwAlloc,dwReturned,dwBytesOfArray,dwByteNeeded:dWord;
pPrinterInfoI:PPrinterInfo2;Seznam:TStringList;
begin
dwBytesOfArray:=0;
Seznam:= TStringList.Create;
EnumPrinters(PRINTER ENUM LOCAL,Nil,2,Nil,0,dwByteNeeded,dwReturned);
if dwByteNeeded <> 0 then
begin
dwAlloc := GlobalAlloc(GHND,dwByteNeeded);
pPrinterInfoI := GlobalLock(dwAlloc);
if EnumPrinters(PRINTER ENUM LOCAL,Nil,2,pPrinterInfoI,dwByteNeeded,dwBytesOfArray,dwReturned) then
begin
for i:= 0 to dwReturned-1 do
begin
Seznam.Add(pPrinterInfoI.pPrinterName);
{ pPrinterInfoI.pServerName;
pPrinterInfoI.pPortName;
pPrinterInfoI.pDriverName;
pPrinterInfoI.cJobs;
pPrinterInfoI.
.....
}
INC(pPrinterInfoI);
end;{for}
end;{EnumPrinters}
end;{cByteNeeded <> 0}
result := Seznam;
end;{PrinterList}
end.
Jirka Virt
virt(zv)volny(tec)cz
----- Original Message -----
From: Bednar��k Dalibor
To: forum ; kopr(zv)kopr(tec)cz
Sent: Monday, March 26, 2001 3:15 PM
Subject: Re: Je tiskarna nainstalovana - podruhe
Zkus jeste tenhle kod.
function TestTiskarny : string;
{Test na implicitni tiskarnu}
var
FDevice: PChar;
FDriver: PChar;
FPort: PChar;
FHandle: THandle;
CurrentPrinterName: string;
OkrajX, OkrajY : integer;
begin
result:='';
GetMem (FDevice, 255);
GetMem (FDriver, 255);
GetMem (FPort, 255);
try
Printer.GetPrinter (FDevice, FDriver, FPort, FHandle);
CurrentPrinterName := FDevice;
except
CurrentPrinterName :='';
end;
if FDevice <> nil then FreeMem (FDevice, 255);
if FDriver <> nil then FreeMem (FDriver, 255);
if FPort <> nil then FreeMem (FPort, 255);
if CurrentPrinterName = '' then begin
MessageDlg('Neni Implicitni Tiskarna', mtError,[mbOK],0);
end;
result:=CurrentPrinterName;
end;
----- Original Message -----
From: Pavel ZIDEK
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, March 26, 2001 8:18 AM
Subject: Re: Je tiskarna nainstalovana - podruhe
Diky za radu,
s WinAPI mam malo zkusenosti. Jestli te to nebude obtezovat, napis jak to resis ty.
Uz jsem zkoumal, zda nezjistovat v registrech pocet instalovanych ovladacu k tiskarne.
Pavel
----- Original Message -----
From: Jirka Virt
To: delphi-l(zv)fwd(tec)cz
Sent: Sunday, March 25, 2001 3:45 PM
Subject: Re: Je tiskarna nainstalovana - podruhe
Ahoj,
a co z WINAPI EnumPrinters ? Zde ziskas vycet(seznam) dostupnych tiskaren a podle
vstupnich parametru i tiskovych serveru a zprostredkovatelu tisku.
Pokud by to delalo problemy mohu Ti pomoci.neco jsem v tomto smeru jiz delal.
S pozdravem
Jiri Virt
virt(zv)volny(tec)cz
----- Original Message -----
From: Pavel ZIDEK
To: Konference DELPHI forum
Sent: Tuesday, March 20, 2001 3:28 PM
Subject: Je tiskarna nainstalovana - podruhe
Zdravim a ptam se vsech programatoru podruhe.
Prosim vsechny kdo odpovida, at si nejdrive odinstaluji tiskarnu(y) a vyzkousi kod
na zjisteni, zda je tiskarna nainstalovana do windows.
POZNAMKA: pro Printer.PrinterIndex = 0 znamena, ze ve win je nainstalovana 1 tiskarna.
Takze test na pocet Printer.PrinterIndex nelze aplikovat.
Moje zkousky potvrdily pravidlo: test hrubou silou.
Bohuzel se to obcas nevyplaci.
Taky test od Pavla Kakacky:
Result := false;
if Assigned(Printer) and Assigned(Printer.Printer)
then Result := true;
vysel naprazdno - nelze zkompilovat (Variable required)
Prosim o pomoc, kdo ksakru vi jak bezpecne otestovat existenci tiskarny ve Windows.
Prosim ale, zkousky provadejte na systemu, kde doopravdy nejsou instalovany tiskarny.
Musi snad existovat nejaka API funkce.
Diky za pomoc
Ja pouzivam tuto funkci, ktera bezi ale vubec se mi nelibi:
function ExistPrinter: boolean;
begin
try
Result := Printer.PrinterIndex >= 0;
except
end;
end;
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Instalace W2000 a W98SE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.3.2001 10:55:08
On 30 Mar 2001, at 13:25, Petr Vones wrote:
> From: "Tomas Michal�k" <michalik(zv)proca(tec)cz>
> > Nekde v newsech jsem cetl, ze Delphi zerou a nevraceji pamet (bez
> > prestani, dokud je k dispozici) v pripade, ze v Project Manageru
> > uvedena cesta k unite uz neplati, ale diky "library path" ji
> > kompiler presto nalezne. Nemohl to byt tento problem ?
>
> jeden problem je v tom, ze prekladac v IDE cachuje unity projektu,
> takze pokud mas v project group treba tricet projektu tak je to uz
> narocne. Uzavrenim toho projektu by se to melo uvolnit (to co ukazuje
> Task Manager je blbost).
Otazka prave zni, zda IDE spravne uvolni nacachovane unity, kdyz
prejdes na jiny projekt. Jak jinak mi vysvetlis to, ze se mi vyrazne
zpomaluje prace - a pomuze az restart Delphi?
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
Pametove naroky IDE Was: Instalace W2000 a W98SE
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.3.2001 10:55:08
On 30 Mar 2001, at 19:45, Petr Vones wrote:
> > Manageru naroste MEM Usage do nejake vyse. Kdyz pak otevru
> > novy projekt (bpg), zabrana pamet zustane a zabira se dalsi pro
>
> jeste doplneni, kdyz si do zastupce na spusteni IDE pridas parametr
> -hm tak ti pak v titulku okna zobrazuje skutecnou hodnotu alokovane
> pameti. Vice v helpu pod heslem "IDE command-line options" (Delphi
> 5.01)
Mam vazne podezreni, ze ten udaj silne keca. Pokles rychlosti a
silne hrabani po diskove pameti rika neco jineho.
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
Select bez opakovani
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 31.3.2001 14:29:00
Vite nekdo prosim jak udelet select nad temito daty
F1 F2 F3
1 1 A
1 1 B
1 2 C
1 2 D
2 1 E
2 1 F
2 2 G
2 2 H
aby vysledek vypadal nasledovne
F1 F2 F3
1 1 A
B
2 C
D
2 1 E
F
2 G
H
Diky moc
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.243 / Virova baze: 118 - datum vydani: 30.03.2001
Barva menu
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 31.3.2001 15:07:48
Ahoj,
nevite nekdo, jak by se dala zmenit barva menu?
Predem dekuji.
Martin
D5 Pro SP1, W2k SP1
OT: Prevod textu na vzorec
[*] R�bert Fujak <robof(zv)inmail.sk> - 31.3.2001 16:33:43
Zdravim Vas,
potreboval bysom poradit s prevodom textu na vzorec a jeho vypoctom.
Napr:
const
H=100;
V=120;
P=10;
var
s: string;
vysledok: float;
begin
s:='(H+V)/P';
vysledok:= VratVysledok(s);
end.
S pozdravom Fujak, R�bert
mailto: robof(zv)inmail.sk
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.228 / V�rusov� datab�za: 109 - d�tum vydania: 17. 1. 2001
=====================================================
(zv)InMail.sk - Vas postovny server - www.InMail.sk
sponzor www.SlovakNET.sk - profesionalny webhosting
Kurzory
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 31.3.2001 09:35:10 -0500
No to jsem samozrejme zkousel, ale to prave ma ty nedokonalosti, o kterych
jsem psal.
Petr
>Screen.Cursor:=
>> Neexistuje tedy nejaka moznost pouziti kurzoru v Delphi tak, aby platily
>pro
>> celou aplikaci nebo nejaky jiny prikaz nebo alespon zpusob, jakym bych
>mohl
>> vratit puvodni kurzor, kdyz pouziju SetSystemCursor?
>> 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/
-------------------------------------------
Kurzory
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 31.3.2001 16:43:01
Na vraceni zpet staci Screen.Cursor := crDefault;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
31.3.2001 Petr Vasicek:
> No to jsem samozrejme zkousel, ale to prave ma ty nedokonalosti, o kterych
> jsem psal.
> Petr
>>Screen.Cursor:=
>>> Neexistuje tedy nejaka moznost pouziti kurzoru v Delphi tak, aby platily
>>pro
>>> celou aplikaci nebo nejaky jiny prikaz nebo alespon zpusob, jakym bych
>>mohl
>>> vratit puvodni kurzor, kdyz pouziju SetSystemCursor?
>>> 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/
> -------------------------------------------
Procesor a vyjimka
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 31.3.2001 17:42:30
On Thu, 29 Mar 2001, Petr Vones wrote:
> Je zde nekdo kdo provozuje Win98 s VIA chipsetem a Intel procesorem (tohle asi
> bude ta chybna kombinace) a neprojevuje se mu to ? Jak to vypada s Win98SE ?
> Prijde mi zvlastni ze by to u VIA neopravili, pokud by s tim melo problem vice
> lidi.
>
> Petr Vones, amatersky programator
Celeron 366(zv)460 (5.5x84), motherboard Aopen AX 63PRO, chipset VIA Apollo
133A, VIA 4in1 drivers 4.28V
Neprojevilo se to, ale kdybych mel rychlejsi procesor, tak bu to mozna
kikslo taky.
Michal
ExtractIcon
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 31.3.2001 17:52:11
On Thu, 29 Mar 2001, [ISO-8859-1] Martin Bab�k wrote:
> Zdravim,
> Nevite jak zjistit pocet icon a nasledne je vyzobat? D5, NT4 SP5. Diky
>
> i := ExtractIcon(HInstance,'Icon_m.dll', -1);
> Toto mi vraci: "Constant expression violes subrange bounds". :-(
Pokud se nepletu, tak se tam musi dat neco jako $FFFFFFFF.
Michal
ExtractIcon
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.2001 19:35:55
From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> > i := ExtractIcon(HInstance,'Icon_m.dll', -1);
> > Toto mi vraci: "Constant expression violes subrange bounds". :-(
> Pokud se nepletu, tak se tam musi dat neco jako $FFFFFFFF.
Ahoj,
muzes pouzit napriklad UINT(-1)
Petr Vones, amatersky programator
Nastaven� v�choz� tisk�rny
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.2001 20:02:13
From: "Choozee" <choozee(zv)quick(tec)cz>
> M�m nainstalovan� ve Win98 dv� tisk�rny pot�eboval bych zjistit, jak se
> programov� v Delphi 4 d� nastavit v�choz� tisk�rna.
Ahoj,
pomoci Printer.PrinterIndex, viz napoveda k TPrinter.
Petr Vones, amatersky programator
Problem s SystemParametersInfo
[*] Olda Horak <horacius(zv)horacius(tec)cz> - 2001
Ahojky,
mam mensi problemem, s kterym si uz vazne nevim rady. Vtip je v tom, ze drive to fungovalo :(
Od te doby, co jsem PREinstaloval Win95 OSRII, tak to nechodi.
Z nize uvedeneho funguje jen prvni radek, ale druhy se proste neprojevi (mel by zakazat spousteni
screensaveru, ale on se stejne v nastavenem intervalu spusti). Vzdyt zapis je ale stejny, pouze je jina
constanta. Zarazejici je, ze to FUNGOVALO pred reinstalaci OS.
var
Dummy : Integer;
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, (zv)Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, (zv)Dummy, 0);
end;
Neni treba mit nainstalovan jeste nejaky jiny program, to je ale blbost, ne?
Diky za kazdou pomoc
Olda Horak
Win95 OSRII, D5 Pro Update Pack 1
ePodpis v D5Pro
[*] Olda Horak <horacius(zv)horacius(tec)cz> - .2001
Ahoj,
nemate nekdo nejake zkusenosti (unity, komponenty) na elektronicke podepisovani (asymetricky)?
Diky.
Olda Horak
Pervasive SQL
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 28.2.2000 22:40:27
----- Original Message -----
From: Jan Naiser <tua(zv)ltm(tec)cz>
Sent: Monday, February 28, 2000 2:54 PM
Subject: Pervasive SQL
> pri pripojeni na Pervesive SQL pres ODBC se mi ve vsech numerickych
fieldech
> typu FLOAT, SMALLINT krome TINYINT objevi 0 i kdyz realne obsahuji
hodnoty.
> Pri zobrazeni pomoci nastroje SQLScope primo od Pervesive software je vse
> vporadku.
u Interbase pri pouziti poli typu Numeric treba nastavit ENABLE BCD=TRUE.
skut to s Pervasive...
Palo.
Datum
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 10.3.2000 21:22:07
Bacha v tom datumu je i cas, bud to musis dekodovat pomoci DecodeDate nebo
odrezat Trunc(date).
----- Original Message -----
From: <prajz.rumcajs(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 12, 2001 9:23 AM
Subject: Datum
Objevial se mi jedna zvlastni chyba - je-li to chyba:
Mam vstupni pole, ktere porovnavam s datumovou polozkou. Kdyz zadam
s: string;
if StrToDate(s) = DateTimePicker3.Date then ....
a v promene 's' je shodne datum, tak stejne to nic nedela, respektive tvari
se, ze to neni rovno, ale pritom je! Kdyz vymenim rovna se za vetsi ci
mensi, tak to funguje.
Chapete to? Ja ne .... Prosim o pomoc ....
Rumcajs
Spusteni programu se startem Windows
[*] Marek M�ller <delphi-konference(zv)bcpraha(tec)com> - 14.5.2000 12:39:44
do
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
vloz textovou hodnotu obsahujici cestu k tve aplikaci
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Vasicek
Sent: Monday, May 14, 2001 12:22 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Spusteni programu se startem Windows
Zdravim,
jak mohu docilit toho, aby se aplikace spustila vzdy po spusteni Windows a
nechci to davat do Po Spusteni. Kam a jak se to da dat do registru nebo do
win.ini?
Dekuji za radu
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Sledovani provozu na siti
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 20.7.2000 12:00:43
Pouzivali jsme Tiny Net Monitor a je perfektni. Doporucuju.
www.tinysoftware.com
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
----- Original Message -----
> mame lokalni sit pripojenou na Internet a ja bych potreboval vysledovat,
> kolik kdo stahnul z Netu.
> Nevite nekdo o necem?
DirectX
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 23.7.2000 07:50:50
Muzes si je stahnout primo ze stranek autora:
http://www.yks.ne.jp/~hori/index-e.html
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
----- Original Message -----
> Zdravim,
> kde bych mohl sehnat komponentu, jez umoznuje v Delphi praci s
> DirectX(myslim, ze se jmenuje DelphiX).
> Diky
> Petr
StringGrid a Combo box
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 7.1.2001 04:03:24
Uz sem to vy�e#il, nevim jak je to elegantn�. Ale v Onselect si uchovam
globalni promenne x,y bunky.
a v oncellDraw na tyhle souradnice vykreslim t�eba edit nebo cokoli. Ale
potiz je v tom ze existuje pouze Rect.left, right,top.. ale nemu�u zjistit
#i�ku a v�#ku cell.
Teda pokud mam povolene zm�nu velikosti slouc� a ��dku, a pak to nevypad�
p�kn�. V�te n�kdo jak na to ?> Mu�u se optat jak se tam kresli ta komponenta ?
> Zkou#el jsem n�kde zjistit sou�adnice cell ale marn�.
> e-mail : valentapat(zv)volny(tec)cz
> ICQ: 54152896
>
>
> > ja tohle resim tak, ze na OnSelectCell do daneho pole stringgridu
> prekreslim
> > TComboBox.
> > Ota Maly
>
> > > Pratele,
> > > nevite o komponente StringGrid, ktera by mela v sobe ComboBox ?
> > > Diky za informaci
> > >
> > > Franti#ek STR#N#K
> > > mailto:FSTRANIK(zv)CPOJ.CZ
> > >
> > >
> > >
> >
> >
> >
>
>Rozliseni+AltCtrlDel a tak
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 19.1.2001 22:34:46
Jano wrote:
> pre zname dovody je zablokovanie Alt+Ctrl+Del nutne napriklad pri aktivacii
> setrica, robi sa to takto a tusim, ze by to malo bloknut ;-)
HAHAHA, never tomu ... v praci timto zpusobem ukoncuju v 90% pripadu SS
... nejak se to totiz vzdycky kousne ... a chce to heslo treba 5x ... a
na to nemam nervy ... :-)
--
Martin Pe#ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/Bitmap
[*] Zden�k Sv�en - 23.2.2001 19:18:02
Tak jsem nize popsany postup pouzil a skoncilo to hlasenim "Acces violation
at address ..."
Co teda s tim?
Zdenek
> Jestli to skutecne potrebujes pres pomocnou promennou typu TBitmap:
>
> var
> BMP : TBitmap;
>
> begin
> BMP := TBitmap.Create();
> try
> BMP := Image1.Picture.Bitmap;
> Image2.Picture.Bitmap := BMP;
> finally
> BMP.free;
> end;
> end;
>Problem s rusenim controlu
[*] Zden�k Sv�en - 23.2.2001 21:11:42
A neslo by to resit jeste trochu jinak? Co kdyby se po stisku tlacitka
zmenil Parent toho tlacitka na neco jineho nez je onen ruseny panel. To by
pak pri zruseni panelu nedoslo i k odstreleni tlacitka. Pote co by dobehla
udalost stisku tlacitka se muze dodatecne zrusit i ten button. V prubehu
meneni Parenta se jeste tlacitko zneviditelni, aby tam nejak neposkakovalo a
hotovo.
Co myslite, slo by to tak?
Zdenek
> Podobny problem se tu resil v subjektu Kill DLL. K zruseni panelu
> (tedy i tlacitka) musi dojit az po uplnem zpracovani stisku
> tlacitka, tedy se mu posle zprava:
> ...
> const
> WM_FreeTEnhPanel = WM_User + 200;
> ...
> type
> TEnhPanel = class(TPanel)
> ...
> procedure FreeMsg(var Message: TWMChar); message WM_FreeTEnhPanel;
> ...
> end;
> ...
> implementation
>
> procedure TEnhPanel.FreeMsg(var Message: TWMChar);
> begin
> Free;
> end;
>
> procedure TEnhPanel.RemoveBtnClick(Sender: TObject);
> begin
> PostMessage(Handle, WM_FreeTEnhPanel, 0, 0);
> end;
> ...
>
> Marek Muller
>
> -----Original Message-----
> Na RemoveBtnClick tedy volam metodu Free, jenze tim se zrusi i
> toto tlacitko, vznikne (nejspis) bordel na zasobniku a hodi to
> vyjimku bud Abstract Error nebo podle nalady Acces Violation.
>Uzivatelske jmeno ve Windows
[*] Ing. Keder Vladim�r <vkeder(zv)iol.sk> - 13.3.2001 16:35:43
function GetUserNameString: string;
var
user: PChar;
l : DWord;
begin
l := 1024;
user := StrAlloc(Succ(l));
if GetUserName(User, l) then
Result:=StrPas(user)
else
Result:= '';
StrDispose(User);
end;
Vlado
> mohl by mi nekdo prosim napsat konkretni priklad pouziti GetUserName s
> deklaracemi promenych, nevim, jak se tyto typy fci pouzivaji.
> dekuji
> Petr Vasicek
scitani-odecitani datumu nebo casu
[*] EFG developer <developer(zv)efg(tec)cz> - 25.3.2001 15:42:46
ZKUS DATEUTIL Z RXLIB, je tam spousta funkci na scitani a odecitani datumu a
casu.
Petr Sikola
> Nevite nahodou o nejakych funkcich pro scitani a odecitani datumu a casu?
IB6 + struktura database
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 31.3.2001 17:35:49
> ted jsem si nainstaloval IB z 4.4.2001 a jake bylo prekvapeni. Stare db
> soubory nechce otevrit: hlasi nepodporovana struktura, found 8, structure
> 10. Pritom ve ver. 6 a 6.01 je zakaznik pouzival.
Ze svych poznamek:
Upgrade databazi mezi verzemi Interbaze
Databazove soubory (gdb) jsou vytvoreny s urcitou verzi ODS (On-Disc
Structure), tato verze neni vetsinou prenosna mezi ruznymi verzemi
Interbaze. Pri upgrade takovych databazi na novy IB server je treba nejprve
zazalohovat databazi puvodni (starou) verzi Interbaze, konkretne utilitou
gbak. Vytvoreny soubor gbk je pak treba obnovit v nove verzi Interbaze, opet
utilitou gbak. Aktualni verzi ODS je mozne zjistit utilitou gstat, pro IB6
je to verze 10.
Leos
IB6 + procedura + ceske znaky
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 31.3.2001 18:05:05
> potrebuji poradit jak v procedure predavat varchar do lokalni promenne.
Pri
> definici lokani promenne odmita nastavit ceske znaky.
> ALTER PROCEDURE xxx
> AS
> declare variable ivypsoc VarChar(1);
> .....
Bud pouzijte defaultni znakovou sadu u datab�ze
nebo nastavujte u parametru CHARACTER SET,
napr.
create procedure ceska_procedura
returns (navrat varchar(32) character set WIN1250)
as
declare variable testik varchar(32) character set WIN1250;
begin
testik = 'Hackovany text';
navrat = testik;
suspend;
end !!
Leos
Select bez opakovani
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 1.4.2001 00:38:00
----- Original Message -----
From: Mephisto
Subject: Select bez opakovani
Ahoj,
pouzi stored procedure. potrebujes priklad?
Pavol Stolc
pstolc(zv)sc.sknet.sk
Kurzory
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 31.3.2001 18:21:29 -0500
Nestaci, protoze SetSystemCursor prave default zmeni.
Petr
>Na vraceni zpet staci Screen.Cursor := crDefault;
>
>------
>ing. Jan Fiala
>mailto:jan.fiala(zv)iol(tec)cz
>
>31.3.2001 Petr Vasicek:
>> No to jsem samozrejme zkousel, ale to prave ma ty nedokonalosti, o kterych
>> jsem psal.
>> Petr
>
>>>Screen.Cursor:=
>
>>> Neexistuje tedy nejaka moznost pouziti kurzoru v Delphi tak, aby platily
>>>pro
>>> celou aplikaci nebo nejaky jiny prikaz nebo alespon zpusob, jakym bych
>>>mohl
>>> vratit puvodni kurzor, kdyz pouziju SetSystemCursor?
>>> 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/
>> -------------------------------------------
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Fonty
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 31.3.2001 18:25:18 -0500
Mohu nejak poznat, zda ma uzivatel nainstalovane nejake fonty a ja je tak mohu
pouzivat v aplikaci, aniz bych nejak prohledaval adresar Fonts ve Windows.
Napriklad chcu zjistit, zda ma uzivatel k dispozici font "Impact", jak to
udelam?
Dekuju az 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/
-------------------------------------------
Fonty
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 1.4.2001 04:05:27
----- Original Message -----
From: "Petr Vasicek" <pvasicek(zv)operamail.com>> Mohu nejak poznat, zda ma uzivatel nainstalovane nejake fonty a ja je tak
mohu
> pouzivat v aplikaci, aniz bych nejak prohledaval adresar Fonts ve Windows.
Ahoj
Seznam fontu Ti doda globalni promenna Screen.
Takze treba :
function IsFont(FontName: string): boolean;
begin
Result := (Screen.Fonts.IndexOf(FontName) > -1)
end;
Ludek
Kurzory
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 1.4.2001 07:17:29
Hello Petr!
> kurzor. Kdyz pouziju SetCursor dela to problemy, protoze po zavreni formy
se
> zase obnovi defaultni kurzor(kdyz tam mam vice forem) a hlavne kdyz mam
> modalni okno, pod kterym je jina form, a vyjedu z toho okna, tak se taky
ukaze
> normalni windowsovskej kurzor(form v pozadi je pres celou obrazovku).
To ma najviac vytaca, ked niekde vidim program, co si otvori nejake modalne
okno a pod nim necha na celu obrazovku ine svoje okno! Jedina vynimka, ktoru
znesiem, je nejaky alert, co sa len potvrdi OK. Ale ked musis vyplnat nejake
udaje, vzdy sa hodi moznost otvorit si vedla neho nejake ino okno, notepad
atd tak, aby bolo vidiet obe naraz.
Preco by si chcel menit kurzor aj ostatnym oknam? V jednom okne kliknes na
'Hladaj', tak tam sa ukazu presypacie hodiny, ale preco by tie hodiny mali
ukazovat aj ostatne okna? A co ked si medzi tym chce user zascrollovat,
trebars v tom modalnom okne mas grid, a uzivatel si chce skratit cakanie
tym, ze si este prezera jeho stary obsah? To bude pointovat v scrollbare
presypackami?
Bye
V.Mlich http://www.rar(tec)cz
telef. +420-67-7986163
mobil +420-603-454069
Delphi a Flash
[*] Mr. Fredy Nightmare Crueger <Fredy.C(zv)seznam(tec)cz> - 01.4.2001 09:11:57
Lze nejakym zpusobem prehrat v Delphi Flashovou animaci (*.swf). Kdyz ve Flashi zkompiluju do avi, tak to ma 20 MB, samotna animace vsak ma 300 KB. Zkousel jsem prevest i do gifu, velikost je v poradku, ale kdyz sem pouzil Gifanimator z RxLib, tak to bylo cele rozmazane. Uz me nenapada jak to udelat.
_____________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
Select bez opakovani
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 1.4.2001 10:26:48
Proc?
Jak chcete data prezentovat?
Domnivam se, ze to neni problem selectu ale problem prezentace dat.
Ozon
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Mephisto
Sent: Saturday, March 31, 2001 2:29 PM
To: Delphi
Subject: Select bez opakovani
Vite nekdo prosim jak udelet select nad temito daty
F1 F2 F3
1 1 A
1 1 B
1 2 C
1 2 D
2 1 E
2 1 F
2 2 G
2 2 H
aby vysledek vypadal nasledovne
F1 F2 F3
1 1 A
B
2 C
D
2 1 E
F
2 G
H
Diky moc
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.243 / Virova baze: 118 - datum vydani: 30.03.2001
Nezrusitelny breakpoint na W2K
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 1.4.2001 11:33:34
Ahoj,
D5 Ent.,W2K SP1
dostal jsem se do dost neprijemneho problemu. Presunul jsem jeden vetsi
projekt z W98 na W2K. Na W98 fungovalo IDE normalne, v W2K mi IDE samovolne
prerusuje bezici program s tim, ze jsem nastavil breakpoint (coz jsem
neudelal). Kliknu na Run a vzapeti se mi otevre CPU window s timto obsahem:
...
ntdll.Rtl.SetUnicodeCallouts:
ret $0004
ntdll.DbgBreakPoint:
int 3
ret ; <= tady me to vyhodi
ntdll.DbgUserBreakPoint:
...
Je hezke, ze Delphi zachyti int3 a upozorni me na nej. Mene hezke je to, ze
po opetovnem kliknuti na Run se CPU window zobrazi na temze miste. Musim asi
5x kliknout na Run, nez se program spusti :-( CPU window se zobrazi i kdyz
muj program otevira dialog TOpenPictureDialog. Ja uz vazne nevim co s tim.
Zkusil jsem se podivat do okna Call stack a zjistit kdo vola tu funkci
ntdll.DbgBreakPoint, nicmene toto okno je prazdne. Take jsem zkousel ruzna
nastaveni debuggeru pres nabidku Tools -> Debugger Options ale nepovedlo se
mi na nic prijit :-( Stava se mi to jen v jednom konkretnim projektu.
Podotykam, ze pokud se muj program spusti samostatne z .exe souboru, jede
normalne.
Mate s tim nekdo nejake zkusenosti? Predem diky.
S pozdravem
Petr E#ner
petr.esner(zv)atlas(tec)cz
#ICQ 105826792
Nezrusitelny breakpoint na W2K
[*] Vladislav Cadsky <delphi(zv)cadsky(tec)cz> - 1.4.2001 12:30:32
Ahoj, muze to byt ovladacem tiskarny, odinstaluj vsechny tiskarny hlavne tu
vychozi ve windows.
Teto rady se mi dostalo od Amaterskyho programatora, taky jsem to hledat asi
tri dny. Delal to ovladac od HP Deskjet 840C.
Vlada
----- Original Message -----
From: "Petr E#ner" <petr.esner(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, April 01, 2001 11:33 AM
Subject: Nezrusitelny breakpoint na W2K
> Ahoj,
>
> D5 Ent.,W2K SP1
>
> dostal jsem se do dost neprijemneho problemu. Presunul jsem jeden vetsi
> projekt z W98 na W2K. Na W98 fungovalo IDE normalne, v W2K mi IDE
samovolne
> prerusuje bezici program s tim, ze jsem nastavil breakpoint (coz jsem
> neudelal). Kliknu na Run a vzapeti se mi otevre CPU window s timto
obsahem:
>
> ...
> ntdll.Rtl.SetUnicodeCallouts:
> ret $0004
> ntdll.DbgBreakPoint:
> int 3
> ret ; <= tady me to vyhodi
> ntdll.DbgUserBreakPoint:
> ...
>
> Je hezke, ze Delphi zachyti int3 a upozorni me na nej. Mene hezke je to,
ze
> po opetovnem kliknuti na Run se CPU window zobrazi na temze miste. Musim
asi
> 5x kliknout na Run, nez se program spusti :-( CPU window se zobrazi i kdyz
> muj program otevira dialog TOpenPictureDialog. Ja uz vazne nevim co s tim.
> Zkusil jsem se podivat do okna Call stack a zjistit kdo vola tu funkci
> ntdll.DbgBreakPoint, nicmene toto okno je prazdne. Take jsem zkousel ruzna
> nastaveni debuggeru pres nabidku Tools -> Debugger Options ale nepovedlo
se
> mi na nic prijit :-( Stava se mi to jen v jednom konkretnim projektu.
> Podotykam, ze pokud se muj program spusti samostatne z .exe souboru, jede
> normalne.
>
> Mate s tim nekdo nejake zkusenosti? Predem diky.
>
> S pozdravem
> Petr E#ner
> petr.esner(zv)atlas(tec)cz
> #ICQ 105826792
>
>Prevod textu na vzorec
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 1.4.2001 12:46:58
Na to slou�� aritmetick� parsery. Na webech s Delphi-ware jsou na to k
dispozici komer�n�, shareware i free komponenty �i objekty.
Zkus t�eba DSP: http://sunsite.icm.edu.pl/delphi
Martin
> potreboval bysom poradit s prevodom textu na vzorec a jeho vypoctom.
> Napr:
> const
> H=100;
> V=120;
> P=10;
> var
> s: string;
> vysledok: float;
> begin
> s:='(H+V)/P';
> vysledok:= VratVysledok(s);
>
> end.Prevod textu na vzorec
[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 01.4.2001 13:51:53
Zdar
Tisknu delsi texty, ktere jsou v TMemo. Chtel bych, aby si uzivatel mohl vybrat stranky pro tisk a zaroven v tom TMemu nakreslit nejake oddelovaci cary, aby vedel, ktere stranky chce tisknout.
Diky
_____________________________________________________________________
WWW stranky zdarma na http://www.sweb(tec)cz
Barva menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.4.2001 13:58:53
From: "Martin Falta" <martin.falta(zv)atlas(tec)cz>
> nevite nekdo, jak by se dala zmenit barva menu?
Ahoj,
mas namysli barvu textu nebo podkladu ?
Petr Vones, amatersky programator
Promenne v souboru
[*] David FM <dave.fm(zv)atlas(tec)cz> - 1.4.2001 14:35:37
Ahoj Dlephici,
jak ulozit promenne ve formatu ("promena=hodnota", hodnota muze byt ciselna,
nebo string), do souboru a jak si potom libovolne nacist. Znam pouziti
IniFile a Registru ale nechci to pres textovy soubor (aby si to kazdy
prectel)
Diky David
Programovani Palmtopu
[*] <KadaneM(zv)sdc.pce.cdrail(tec)cz> - 1.4.2001 15:31:05
[P��loha v souboru: smime.p7s]
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Cau,
nemate nekdo zkusenost s programovanim Palmtopu konkretne Palm V?
Miroslav Kadan�
Odbor informatiky - #esk� dr�hy s.o. - Spr�va dopravn� cesty Pardubice,
+420 (040) 676 4261, +420 (0603) 370 172
mailto:KadaneM(zv)sdc.pce.cdrail(tec)cz
Barva menu
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 1.4.2001 15:48:13
Ahoj
mam namysli barvu celeho pruhu menu. Pomoci metody OnAdvancedDrawItem se mi
podarilo zmenit barvu podkladu pro danou polozku menu, ale ja potrebuju mit
tu barvu v celem pruhu menu.
Martin
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, April 01, 2001 1:58 PM
Subject: Re: Barva menu
>
> Ahoj,
>
> mas namysli barvu textu nebo podkladu ?
>
> Petr Vones, amatersky programator
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 7.3.2001
databazi nijak zabezpecit
[*] Peter Surov� <surovy(zv)miesto.sk> - 1.4.2001 15:55:40
Ale ide ide jednoducho mam databazu tabulkovu, ktora je typu paradox a
neviem do nej heslo. Viem s nou pracovat pomocou programu ale ked si ju
chcem spustiit napr v dbase exploreri pyta heslo ktore nepoznam da sa s tym
este nieco robit.
Ak mam byt uprimny nie som tvorca programu iba spravca siete na ktorej
sa tato db vyuziva. Je pre mna pomerne problematicke chranit tuto databazu
lebo nie je original pre siet a niekedy sa moze stat ze sa poskodi potom sa
uz do nej cez program nedostanem a dost by mi pomohloo keby som do nej mohol
vstupit pomecou nejakehoexploreru a zistit co sa s nou vlastne stalo. Zato
by som rad vedel ci sa to da ked je chranena heslom Dakujem
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 29, 2001 3:15 PM
Subject: RE: databazi nijak zabezpecit
> zapomnel heslo do paradoxu?
> to snad ani nejde ;)
> > Co ked mam zaheslovany pristup do tabulkovej
> > databazy(paradoxovej).
> > Da sa nejako este do nej dostat? Heslo samozrejme neviem.
>
>
Prevod textu na vzorec
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 1.4.2001 16:58:57
Ja to robim cez komponentu TMathParser.
MathParser.ParseString := (string);
Mozes si ju stiahnut na www.delphi32.com
jozo
> Zdravim Vas,
>
> potreboval bysom poradit s prevodom textu na vzorec a jeho vypoctom.
> Napr:
> const
> H=100;
> V=120;
> P=10;
> var
> s: string;
> vysledok: float;
> begin
> s:='(H+V)/P';
> vysledok:= VratVysledok(s);
>
> end.
>
> S pozdravom Fujak, R�bert
> mailto: robof(zv)inmail.sk
>
>
> ---
> Odch�dzaj�ca spr�va neobsahuje v�rusy.
> Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
> Verzia: 6.0.228 / V�rusov� datab�za: 109 - d�tum vydania: 17. 1. 2001
>
>
> =====================================================
> (zv)InMail.sk - Vas postovny server - www.InMail.sk
> sponzor www.SlovakNET.sk - profesionalny webhosting
>Nacteni zvuku z RES pri startu
[*] Milan ��ek - 1.4.2001 17:50:15
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
ahoj,
snazim se ozvucit svuj program - konkretne najeti misi na tlacitko. Vetsinu informaci jsem jiz nasel v archivu. Zvuky mam prilinkovany v resourcu, vsechno mi funguje. Muj problem ale je, ze cely natazeni zvuku z res a prehrani mam az v odchyceni zpravy CM MOUSEENTER. To zpusobi, ze pri prvnim spusteni a najeti na tlacitko, je asi tak 2s prodleva a pak az se zvuk prehraje a tlacitko se scvakne (pak uz to jde ok). Asi nejlepsi by bylo to nacteni z res dat nekam do Form.Create, ale neprisel jsem, jak na to... Nevite nekdo, jak vsechno nacist pri startu programu, aby to potom uz chodilo pekne svizne?
procedure TForm1.CMMouseEnter(var Msg: TMessage);
var FindHandle,ResHandle: THandle; ResPtr: Pointer;
begin
inherited;
if Pointer(Msg.lParam)=SB LoadFile then
....
if Pointer(Msg.lParam)=SB StartTest then
begin
FindHandle:=FindResource(HInstance,'MouseOver','WAVE');
if FindHandle<>0 then
begin
ResHandle:=LoadResource(HInstance,FindHandle);
if ResHandle<>0 then
begin
ResPtr:=LockResource(ResHandle);
if ResPtr<>Nil then SndPlaySound(PChar(ResPtr),snd ASync or snd Memory);
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;
end;
Diky, peknej zbytek vikendu
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
RichEdit
[*] Milan ��ek - 1.4.2001 17:54:21
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
ahoj,
ve sve aplikaci mam RichEdit, ktery pouzivam na zobrazeni zpracovaneho vystupu. Pokud vkladam jednotlive radky, vzdy je na konci jedna navic (prazdna), nevite jak se toho muzu zbavit? Napadlo me poslat tam backspace, ale treba to jde lip - to same dela i Memo. Pak bych potreboval disablovat editacni cast, ale aby slo posouvat vertikalnim scrollbarem. Proste aby uzivatel nemohl oznacovat text.
Diky za jakekoli info...
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Delphi a Flash
[*] Milan ��ek - 1.4.2001 18:01:00
Lze nejakym zpusobem prehrat v Delphi Flashovou animaci
ahoj,
da se to prehrat pres WebBrowser, nactes to normalne jako html stranku.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Prevod textu na vzorec
[*] Lauko #tefan <laukosw(zv)naex.sk> - 1.4.2001 18:25:38
Ahoj,
pozri sem http://www.infa.ru/black/ralib.htm je tam celkom slusny
interpreter.
Lauko.
----- Original Message -----
From: R�bert Fujak <robof(zv)inmail.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, March 31, 2001 4:33 PM
Subject: OT: Prevod textu na vzorec
> Zdravim Vas,
>
> potreboval bysom poradit s prevodom textu na vzorec a jeho vypoctom.
> Napr:
> const
> H=100;
> V=120;
> P=10;
> var
> s: string;
> vysledok: float;
> begin
> s:='(H+V)/P';
> vysledok:= VratVysledok(s);
>
> end.
>
> S pozdravom Fujak, R�bert
> mailto: robof(zv)inmail.sk
>
>
> ---
> Odch�dzaj�ca spr�va neobsahuje v�rusy.
> Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
> Verzia: 6.0.228 / V�rusov� datab�za: 109 - d�tum vydania: 17. 1. 2001
>
>
> =====================================================
> (zv)InMail.sk - Vas postovny server - www.InMail.sk
> sponzor www.SlovakNET.sk - profesionalny webhosting
>Programovani Palmtopu
[*] Erik Salaj <winsoft(zv)napri.sk> - 1.4.2001 19:09:58
>nemate nekdo zkusenost s programovanim Palmtopu konkretne Palm V?
Ano, mam. Pouzivam PocketStudio http://www.pocket-technologies.com
Erik
OT: 2 PC ve 2 mestech - jak je spojit?
[*] Hurricane <hurricane(zv)quick(tec)cz> - 1.4.2001 21:21:06
Zdravim
RAS muzes do WIN95 doinstalovat, ve vsech ostatnich je obsazen. Tzn., ze to
nemusi byt NT nebo W2K. I kdyz je to obecne lepsi delat server ze
serveroveho OS (NT, W2K, Linux).
Hurricane
----- Original Message -----
From: "Dvo��k Miroslav" <CLexpert(zv)CLEXPERT(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 30, 2001 10:03 PM
Subject: Re: OT: 2 PC ve 2 mestech - jak je spojit?> Puvodni zprava, kterou napsal Ing. Petr �vejda dne 30 Mar 2001,:
>
> > Musim spojit dva pocitace, kazdy v jinem meste pres normalni telefonni
> > linky.
> >
> > Potrebuji najit rychle, elegantni reseni pro prenos souboru - nic min,
nic
> > vic.
>
> Treba na jednom udelat RAS Server, pokud jeden je NT nebo W2K,
> no a z druheho se k nemu pripojovat stejne, jako se pripojujes
> do Internetu pres PPP. Pak tam bude normalne TCP/IP a muzes
> soubory jet treba pres FTP...
>
> Nebo se treba spojit modemama pres nejaky program typu Norton
> pcAnywhere atd. Pak zase muze jeden porad jet jako hostitel
> a druhy se na nej pripojovat...
>
> 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
> ============================================================
>
Delphi a Flash
[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 01.4.2001 21:26:36
> ahoj,
> da se to prehrat pres WebBrowser, nactes to normalne jako html stranku.
>
1. Nikdy jsem s WebBrowserem nedelal, takze nemam ani tuseni kde to najit
2. Myslel jsem neco jednodusiho, napr. nejaka komponenta, kde zadas nazev souboru a proste se to prehraje. Nemam zadny interaktivni animace, proste jednoduche titulky (Credits). Jestli je jedina moznost ten WebBrowser, tak pls napis nejakou linku na stahnuti a trochu ho popis. Diky
_____________________________________________________________________
WWW stranky zdarma na http://www.sweb(tec)cz
Delphi a Flash
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.4.2001 21:40:31
From: "Fredy (nightmare) Crueger" <Fredy.C(zv)seznam(tec)cz>
> 1. Nikdy jsem s WebBrowserem nedelal, takze nemam ani tuseni kde to najit
Ahoj,
TWebBroswer je komponenta v D5 (zalozka Internet). Je to vlastne Internet
Explorer (IWebBrowser2). Pro zobrazeni stranky pouzij metodu Navigate, vice je
v helpu.
Petr Vones, amatersky programator
MAPI, simpleMAPI, SMTP
[*] <OlivaJiri(zv)seznam(tec)cz> - 1.4.2001 21:44:48
muae mi nekdo prosim pomoci s objasnenim rozdilu a definic pojmu v
"Subject"?, jak se simpleMAPI nastavi v Outlooku?, jaky je rozdil mezi MAPI
a SMTP?
dekuji Jirka
Nacteni zvuku z RES pri startu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.4.2001 21:47:18
From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
> v odchyceni zpravy CM_MOUSEENTER. To zpusobi, ze pri prvnim spusteni a
> najeti na tlacitko, je asi tak 2s prodleva a pak az se zvuk prehraje a
Ahoj,
jak je ten WAV velky ? Mozna by pomohlo zjistit poitner do resource pri
spusteni aplikace, tedy provest kod az do volani LockResource a pri dalsich
volanich pouzivat jen ten pointer. UnlockResource/FreeResource neni treba ve
Win32 pouzivat.
Petr Vones, amatersky programator
Vyuzivanie pamete OS Win PlayStation
[*] Roland Turcan - RoTurSoft <rotursoft(zv)nextra.sk> - 1.4.2001 22:00:36
Zdravim.
Ako je to s pouzivanim operacnej pamate pri Windowsoch typu playstation
(9x,MEEEE), lebo niekde som cital, ze na programy je mozne pouzit prvych
64MB a dalsich 64MB je na datove subory.
dakujem.
Roland.Nacteni zvuku z RES pri startu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.4.2001 22:32:42
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> spusteni aplikace, tedy provest kod az do volani LockResource a pri dalsich
> volanich pouzivat jen ten pointer. UnlockResource/FreeResource neni treba ve
Jeste jsem zapomel, ze muzes pouzit TResourceStream coz je mozna jednodusi.
Petr Vones, amatersky programator
Delphi a Flash
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 1.4.2001 22:49:56
>Lze nejakym zpusobem prehrat v Delphi Flashovou animaci (*.swf). Kdyz ve Flashi
zkompiluju do avi,
lze :-) ta prvni moznost je via HTML, ta druha je pres ActiveX (naimportuj si
ShockwaveFlash)
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
simulator klavesnice
[*] DJ <giorgione(zv)email(tec)cz> - 2.4.2001 00:00:41
Dobry den,
chtel bych tuto konferenci pozadat o radu v nasledujicim problemu.
Pro jednoho postizeneho cloveka se snazim naprogramovat simulator klavesnice.
Tzn. uzivatel klikne na button v me aplikaci a ja poslu prislusny keybd_event.
V momente, kdy tento keybd_event posilam, samozrejme potrebuju, aby byla
aktivni (tj. mela focus) ta (uplne cizi, predem neznama) aplikace, ktere
simulaci stisku klaves posilam. Nejlepsi asi je, aby muj program vubec neziskal
focus (tj. zustal neaktivni), kdyz se klikne na button, ktery posila simulaci
klavesy. Cili obecne jak udelat toto: kdyz uzivatel klikne na moji aplikaci,
ja toto kliknuti obslouzim, ale aplikace neziska focus. Jenze jak na to?
Vim, ze to udelat lze, ale uz si s tim marne lamu hlavu 2 tydny. Prosim,
pomozte.
S pozdravem
Jiri Dolezel
P.S. Zkousel jsem i jine moznosti. Napr. zjistit handle prvku, kteremu budu
klavesy posilat a pote pouzit PostMessage. Tady jsem narazil ale ruzne jine
problemy...
EMAIL.CZ - Vase posta je vzdy s Vami na
http://www.email(tec)cz
Delphi a Flash
[*] Jirka Skladal <jirka.skladal(zv)seznam(tec)cz> - 2.4.2001 01:05:55
1) Importuj ActiveX (Components->Import ActiveX control , vyber ShockWave
Flash)
2) vznikne ti unita s nazvem: ShockwaveFlashObjects_TLB a tu dej do nejakeho
balicku (install component)
3) a v palete, do ktere to nainstalujes, budes mit komponentu ShockwaveFlash
a tu dej na formular a prirad ji do vlastnosti( movie ) cestu k flash
animaci.
Jirka
Lze nejakym zpusobem prehrat v Delphi Flashovou animaci (*.swf). Kdyz ve
Flashi zkompiluju do avi, tak to ma 20 MB, samotna animace vsak ma 300 KB.
Zkousel jsem prevest i do gifu, velikost je v poradku, ale kdyz sem pouzil
Gifanimator z RxLib, tak to bylo cele rozmazane. Uz me nenapada jak to
udelat.
_____________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
simulator klavesnice
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 2.4.2001 04:04:46
----- Original Message -----
From: "DJ" <giorgione(zv)email(tec)cz>>chtel bych tuto konferenci pozadat o radu v nasledujicim problemu.
>Pro jednoho postizeneho cloveka se snazim naprogramovat simulator
>klavesnice.
...
Ahoj.
Mozna se na mne budes za tuhle radu zlobit, ale ve Windows 2000
existuje utilitka "Kl�vesnice na obrazovce". Ta tohle vse uz umi.
Najdes to v oddile "Usnadneni".
Win 9x to pokud vim standardne nemaji, ale neco se mozna najde na
http://www.microsoft.com/enable
Ludek