Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Spousteni s parametrem
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 4.1.2001 13:32:35
> jiz odpovidaly, ale muj problem je v tom ze potrebuji tuto
> externi aplikaci spustit i s parametry. Napr. winrar s parametrem
> a dvema cestama. Nebo cokoliv jeneho. Dekuji predem za pomoc. Calle
V v JCL (http://delphi-jedi.org/Jedi:JCLDOWNLOADS) je funkce
ShellExecAndWait
ShellExexAndWait is a wrapper for the Win32 API function ShellExecuteEx
which alleviates removes some of the complexities of this function by
providing defaults for some of it's lesser used parameters. This function
performs an action specified on a file which can be anything from executing
the file to opening it using the associated editor. This routine is
identical to ShellExec except that this function waits for the action to be
completed. For example, when using this file to open a html document, the
function will launch the default webbrowser and then wait until the browser
is terminated, only then will this function return to it's caller.
function ShellExecAndWait(const FileName: string; const Parameters: string;
const Verb: string; CmdShow: Integer): Boolean;
Parameters
FileName
Name of the file or object on which to perform the action.
Parameters
Application parameters. The parameters must be separated by spaces. To
include double quotation marks, enclose each mark in a pair of quotation
marks. This parameter defaults to an empty string.
Verb
Specifies the action to be performed. The available verbs depend on the type
of object specified in the FileName parameter but some of the more commonly
used ones are 'open', 'print' and 'edit'. See the Platform SDK documentation
for more information. This parameter defaults to an empty string which
causes the default verb to be executed (usually 'open').
CmdShow
Flags that specify how the application should display when it's opened. See
the Platform SDK documentation on ShellExecute for more information.
Commonly used values are SW_HIDE and SW_SHOW. This parameter defaults to
SW_SHOWNORMAL.
Return Values
If the function succeeds it returns True, otherwise it returns False. You
can call GetLastError to get more detailed information about the reason of
failure.
Quick Info
Unit: JclShell
Par otazek k IB
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 4.1.2001 13:38:04
A jak k tomu dojde? Ja pouzivam jen jednu transakci.
Michal
-----Original Message-----
From: Pavel Skalicky [mailto:P.Skalicky(zv)sh.cvut(tec)cz]
Sent: Thursday, January 04, 2001 11:40 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Par otazek k IB
Deadlock = zatuhnuti, pokud transakce A ceka na vysledek transakce B a
trans. B ceka na vysledek trans. A (neni jen v db) = neboli vsichni cekaji a
nic se nedeje.
Pavel
-------------------------------------------------
Pavel Skalick�
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
----- Original Message -----
From: "Michal Tiller" <Michal.Tiller(zv)oskarmobil(tec)cz>
To: "Delphi Forum (E-mail)" <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 04, 2001 11:22 AM
Subject: OT: Par otazek k IB
> Hezky den,
>
> mam par otazek k IB:
>
> 1/ Je nejaky dobry free manazer IB databaze? Pouzivam SQL Explorer od
> Borlandu a nic moc :o)
> 2/ Co znamena error "Deadlock"?
> 3/ Muze se databaze poskodit, pokud se snazim s ni pracovat a mam malo
mista
> na disku? Hodi to error a mam pocit, ze od te doby se chova divne.
> 4/ Lze poskozenou db nejak opravit?
>
> Mnohokrat dekuji za kazdou malinkou odpoved,
>
> Michal Tiller
>Par otazek k IB
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.1.2001 13:38:16
> 1/ Je nejaky dobry free manazer IB databaze? Pouzivam SQL Explorer od
> Borlandu a nic moc :o)
Ja o zadnem nevim, ale mozna si vzpomenete, ze jsem tu pred
casem chvalil IBAdmin.
Musim to odvolat - pred IBAdminem uprimne varuji - je skrz
naskrz prolezly chybami, takze sice funguje a je i uzitecny, ale
stejne clovek kazdou chvili musi nadavat, ze to a to nefunguje tak,
jak by melo, obcas o neco prijde apod. - proste NEBRAT.
David Lebeda
PS: Nemam ted pravidla konference po ruce, ale mam pocit, ze i
temata kolem SQL a databazi jsou povolena, takze bych je
neoznacoval jako OT (nic ve zlym, samozrejme). :)RC soubory v Delphi 5
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 4.1.2001 15:03:54
Zkus napred soubor.rc prelozit
brc32 soubor.rc
RC soubory v Delphi 5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.1.2001 15:16:24
From: "CHMEL Karel, Mgr." <kchmel(zv)csob(tec)cz>
> podle helpu jde v D5 primo v prostredi vytvaret *.RC soubory
> a automaticky je prekladat na *.RES soubory. Me se to ale
Ahoj,
pridej dany RC soubor do projektu v Project Manageru.
Petr Vones, amatersky programator
Tisk fotek ve stupnich sedi
[*] Petr Hajny <hajny5(zv)eryx1.zcu(tec)cz> - 4.1.2001 15:23:35
Ahoj,
nevite prosim nekdo, jak vytisknout fotku tak, aby byl vysledek ve
stupnich sedi na tiskarne, ktera na hloubku 1 bit na pixel (HP LaserJet
6L)? Pouhym kopirovanim na Printer.Canvas dosahnu vysledku pouze
"cerna/bila", nic mezi tim.
Zkousel jsem provest rozklad stupnu sedi na (cerna/bila) v Photoshopu a
pak je vysledek docela dobrej, i kdyz stale ne idealni. Potreboval bych to
ale delat nejak programove a to pokud mozno bez pouziti specialnich
komponent. Exisuje na to nejaka API funkce?
(W98, d4)
Dik.PARADOX 8 nebo vyssi ODBC driver
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 4.1.2001 15:59:06
RE: Zapis do TXT souboruNevedel by nekdo kde najit subj.
Dekuji.
Frantisek Sevcik, sevcik(zv)anexis(tec)cz
Tisk fotek ve stupni sedi
[*] Petr Hajny <hajny5(zv)eryx1.zcu(tec)cz> - 4.1.2001 17:09:01
Ahoj, preji pekny den,
nevite prosim nekdo, jak vytisknout fotku tak, aby byl vysledek ve
stupnich sedi na tiskarne, ktera na hloubku 1 bit na pixel (HP LaserJet
6L)? Pouhym kopirovanim na Printer.Canvas dosahnu vysledku pouze
"cerna/bila", nic mezi tim.
Zkousel jsem provest rozklad stupnu sedi na (cerna/bila) v Photoshopu a
pak je vysledek docela dobrej, i kdyz stale ne idealni. Potreboval bych to
ale delat nejak programove a to pokud mozno bez pouziti specialnich
komponent. Exisuje na to nejaka API funkce?
(W98, d4)
Dik
Spousteni s parametrem
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 04.1.2001 17:11:42
Na to jsem pouzil unitu Processes od Petra Vonese. Mela by byt tady: (?)
http://www.delphi-jedi.org
TJvCreateProcess (Processes.pas)
--------------------------------
Encapsulation of CreateProcess API function, including waiting for
process terminate in separate thread.
Ing. Ondrej Riha wrote:
>
> Nazdarek,
> potreboval bych poradit a to celkem rychle s jednim problemem. Ve sv�m programu v Delphi spoustim pomoci shellexecute externi program. Potreboval bych pockat na jeho ukonceni a pak teprve zase pokracovat ve sv� aplikaci. Vim ze na tento dotaz jste tu jiz odpovidaly, ale muj problem je v tom ze potrebuji tuto externi aplikaci spustit i s parametry. Napr. winrar s parametrem a dvema cestama. Nebo cokoliv jeneho. Dekuji predem za pomoc. Calle
>
> _____________________________________________________________________
> Vylep#ete sv�j prohlݿe� Internetu na http://software.seznam(tec)cz/listicka
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Tisk fotek ve stupnich sedi
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 4.1.2001 17:29:02
> Ahoj,
> nevite prosim nekdo, jak vytisknout fotku tak, aby byl vysledek ve
> stupnich sedi
...
> Exisuje na to nejaka API funkce?
O existenci API funkce nevim, ale ja to delam takto:
procedure ConvertToGrayScale(var ACanvas: TCanvas; ARect: TRect);
var x,y,bw,pix: integer;
begin
for y := ARect.Top to ARect.Bottom do
for x := ARect.Left to ARect.Right do
begin
pix := ACanvas.Pixels[x,y];
bw := Round((0.3*GetRValue(pix)) + (0.59*GetGValue(pix)) +
(0.11*GetBValue(pix)));
ACanvas.Pixels[x,y] := RGB(bw,bw,bw);
end; {for x}
end; {ConvertToGrayScale}
Josef Cerny
********************************************
* Josef A. Cerny
* SW projects leader
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
IB6 - GRANT REFERENCES
[*] Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 4.1.2001 18:21:13
Cafte vsetci,
Mam problemik. Studujem ib6 a prave bezpecnost a pridelovanie prav tabulkam.
pochopil som ako funguje grant select,insert,update,delete ale absolutne
neviem pochopit ako funguje
grant references. Ake ma vyuzitie a tak. Pomozte!
Dik za kazdu moznost
Bohdan Pomsahar
Tisk fotek ve stupni sedi
[*] SSOU Vodochody s.r.o. <ssouvodochody(zv)mbox.vol(tec)cz> - 4.1.2001 18:34:00
Takhle ziskas jen cernobilou presentaci R, G nebo B kanalu - ne cernobilou
fotografii z barevne.
Puvodni dotaz znel, jak rici tiskarne, ze se tiskne v odstinech sedi a ne
jen cerno-bile. Mam za to, ze tuto praci (tedy rozklad) by mel delat ovladac
tiskarny, nebo tiskarna sama. Otazkou spise tedy bude, jak donutit
printer.canvas, ze nebude cerno-bily, ale ze bude s urcitou hloubkou odstinu
ci barev.
Videl bych to na spolupraci Printer.GetPrinter a Printer.SetPrinter.
Soucasti je pomerne obsahla struktura parametru, kde jsem zahlid i neco
okolo barev a barevne hloubky. Vyhledal jsem to ted narychlo v HELPu D2 a
nezkousel jsem co vsechno se s tim da delat, ale mam pocit, ze to bude ta
spravna cesta.
VW
----- Original Message -----
From: bures <bures(zv)ssakhk(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 04, 1999 5:47 PM
Subject: Re: Tisk fotek ve stupni sedi
> Ahoj nevim jestli ti to bude stacit ale kdyz vezems obrazek a zjistis
barvu
> pixelu cavnas.pixels[1,1] a zjistis s toho hodnotu R pomoci funkci
GetRValue
> a kdyz nastavis tomu pixelu stejnou G a B hodnotu jaklo je ta R tak ti z
> toho vypadne obrazek ve 256 stupnich sedi. ( to same muzes udelat z G
nebo
> B hodnoty )
>
> Vlada
>
> ----- Original Message -----
> From: "Petr Hajny" <hajny5(zv)eryx1.zcu(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, January 04, 2001 5:09 PM
> Subject: Tisk fotek ve stupni sedi
>
>
> > Ahoj, preji pekny den,
> >
> > nevite prosim nekdo, jak vytisknout fotku tak, aby byl vysledek ve
> > stupnich sedi na tiskarne, ktera na hloubku 1 bit na pixel (HP LaserJet
> > 6L)? Pouhym kopirovanim na Printer.Canvas dosahnu vysledku pouze
> > "cerna/bila", nic mezi tim.
> > Zkousel jsem provest rozklad stupnu sedi na (cerna/bila) v Photoshopu a
> > pak je vysledek docela dobrej, i kdyz stale ne idealni. Potreboval bych
to
> > ale delat nejak programove a to pokud mozno bez pouziti specialnich
> > komponent. Exisuje na to nejaka API funkce?
> > (W98, d4)
> >
> > Dik
> >
> >
> >
>
>Par otazek k IB
[*] Delphi <delphi(zv)aitix(tec)cz> - 4.1.2001 18:37:12
> 1/ Je nejaky dobry free manazer IB databaze? Pouzivam SQL Explorer od
Ja zatim vystacil s ISQL :-))) Ale neni problem v Delphi nejaky rozumny
napsat.
Jen je podle mne dobre ho postavit na SQL prikazech. Kdysi jsem udelal neco
podobneho
pro Informix, proste okno pro prikazy a dole seznam vracenych vet ci pocet
zmenenych vet.
Vcetne tisku vyberu.
> 2/ Co znamena error "Deadlock"?
Smrtelne objeti, cili uzivatel A zamkne fakturu 1 a snazi se zmenit
organizaci X a uzivatel B jiz zamkl organizaci X a snazi se zmenit fakturu
1. Nikdy by se nedockali, tak to server vyhodnoti jako deadlock a jednoho
shodi (nebo oba?).
> 3/ Muze se databaze poskodit, pokud se snazim s ni pracovat a mam malo
mista na disku?
> Hodi to error a mam pocit, ze od te doby se chova divne.
Predpokladam ze asi ano, uz tu o potrebe dostatku mista u IB byla rec.
> 4/ Lze poskozenou db nejak opravit?
Jasne. Navod: http://www.ibphoenix.com/ibp_db_corr.html
Na Ibphoenix je vubec dost zajimavych veci - vykon, konfigurace,...
Leos
Zafarbenie substringu v TRichEdit
[*] Ale� Kle�ka - 4.1.2001 18:55:10
Zkus:
RichEdt.SelStart := XY;
RichEdt.SelLength := XX;
RichEdt.SelAttributes.Color := clBlue;
Pokud jsem to spravne pochopil, tak by Ti to melo pomoct.
Alesh
----- Original Message -----
From: Ivan Koz�k
To: Delphi
Sent: Thursday, January 04, 2001 9:31 PM
Subject: Zafarbenie substringu v TRichEdit
Ahojte.
Potrebujem zafarbit vyhladavany retazec v najdenom BLOBe (ktory zobrazujem pomocou TRichEditom). Nie je mi jasne, ako to robit, lebo Color fontu v TRichEdit sa vztahuje na cely text, nie na substringy.
Nerobili ste niekto nieco podobne?
Dik za kazdy napad. Ivan Kozak
Cesta k adresari
[*] Jaroslav Antos <jara-slava(zv)seznam(tec)cz> - 04.1.2001 20:10:32
Dobry den
mam takovou drobnost, jsem zacatecnik. Nevite jak zjistit cetsu k aktualnimu adresari, ve kterem jsem spustil program?
diky
_____________________________________________________________________
Mapy Prahy, Brna a #ech najdete na http://www.mapy(tec)cz
Zafarbenie substringu v TRichEdit
[*] Ivan Koz�k - 4.1.2001 12:31:27 -0800
Ahojte.
Potrebujem zafarbit vyhladavany retazec v najdenom BLOBe (ktory zobrazujem pomocou TRichEditom). Nie je mi jasne, ako to robit, lebo Color fontu v TRichEdit sa vztahuje na cely text, nie na substringy.
Nerobili ste niekto nieco podobne?
Dik za kazdy napad. Ivan Kozak
Cesta k adresari
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 4.1.2001 21:42:39
Cestu se jmenem spusteneho souboru lze ziskat pomoci fce: ParamStr(0). Staci
odstranit jmeno souboru.
Jan Skopovy
----- Original Message -----
From: "Jaroslav Antos" <jara-slava(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 04, 2001 8:10 PM
Subject: Cesta k adresari
> Dobry den
>
> mam takovou drobnost, jsem zacatecnik. Nevite jak zjistit cetsu k
aktualnimu adresari, ve kterem jsem spustil program?
>
> diky
> _____________________________________________________________________
> Mapy Prahy, Brna a #ech najdete na http://www.mapy(tec)cz
App na zjisteni oken
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 4.1.2001 21:53:36
Dobr� den,
Potrebuju poslat winampu nejakou klavesu (simuluju stisk klaves) ale
potrebuju jmeno jeho okna, jak ho zjistim ?
--
S pozdravem,
Raul
raul(zv)raphael(tec)cz
Cesta k adresari
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 4.1.2001 22:16:59
Prijemny den,
pouzivam tuto funkci
//CESTA K EXE SOUBORU APLIKACE
function AppPath :string;
begin
Result := ExtractFilePath(Application.ExeName);
end;
S pozdravem Straka Josef,
kteremu uz kukacka 28krat oznamila jaro.
e-mail: strakaj(zv)hbnet(tec)cz
www: http://strakaj.zde(tec)cz
> Dobry den
>
> mam takovou drobnost, jsem zacatecnik. Nevite jak zjistit cetsu k
aktualnimu adresari, ve kterem jsem spustil program?
>
> diky
>Cesta k adresari
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 4.1.2001 22:20:58
Ahoj,
ja pouzivam
AppPath := ExtractFilePath(Application.ExeName);
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Jaroslav Antos
> Odesl�no: 4. ledna 2001 20:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Cesta k adresari
>
>
> Dobry den
>
> mam takovou drobnost, jsem zacatecnik. Nevite jak zjistit
> cetsu k aktualnimu adresari, ve kterem jsem spustil program?
>
> diky
> _____________________________________________________________________
> Mapy Prahy, Brna a #ech najdete na http://www.mapy(tec)cz
>
Velikost Start tlacitka
[*] Hurricane <hurricane(zv)quick(tec)cz> - 4.1.2001 22:20:25
Zdravim
Jo, urcite to de. Startbutton je vlastne okno, ma svuj handle a muzes ho
treba i zavrit pomoci WM_CLOSE.
Treba takhle:
var StartHandle: HWND;
StartHandle := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button',
nil);
SendMessage (StartHandle, WM_CLOSE, 0, 0);
Hurricane
----- Original Message -----
> Da se nejak zmenit velikost Start tlacitka ve Win95 a/nebo Win98?Cesta k adresari
[*] Hurricane <hurricane(zv)quick(tec)cz> - 4.1.2001 22:29:48
Zdravim
Celou cestu k EXEaci mas v Application.ExeName a adresar muzes ziskat timto:
Unit SysUtils
function ExtractFileDir(const FileName: string): string; //bez lomitka
function ExtractFilePath(const FileName: string): string; //s lomitkem
Doporucuji prohledat help k SysUtils nebo stahnout Delphi Tips&Tricks z
http://www.ssakhk(tec)cz/home/vobornik/mikmik.htm (tam je i spousta dalsich
zajimavosti, ale nejak moc se to neujalo).
Hurricane
----- Original Message -----
mam takovou drobnost, jsem zacatecnik. Nevite jak zjistit cetsu k aktualnimu
adresari, ve kterem jsem spustil program?Cesta k adresari
[*] Ing. Keder Vladim�r <vkeder(zv)iol.sk> - 4.1.2001 23:07:06
Napriklad takto
ExtractFilePath(ParamStr(0));
alebo takto
ExtractFilePath(Application.EXEName);
alebo s UNC cestou ak to spustas po sieti takto
ExtractFilePath(ExpandUNCFileName(Application.EXEName))
S pozdravom
Vlado
----- Original Message -----
From: "Jaroslav Antos" <jara-slava(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 04, 2001 8:10 PM
Subject: Cesta k adresari
> Dobry den
>
> mam takovou drobnost, jsem zacatecnik. Nevite jak zjistit cetsu k
aktualnimu adresari, ve kterem jsem spustil program?
>
> diky
> _____________________________________________________________________
> Mapy Prahy, Brna a #ech najdete na http://www.mapy(tec)cz
IB Console u IB6
[*] Ji�� Wendl - 5.1.2001 07:07:54
Ahoj vsem.
Mam problem. Nainstaloval jsem si nejnovejsi IB6 a nefunguje me IB Console.
Kdykoliv se pokousim otevrit, nebo vytvorit a nasledne otevrit, nejakou databazi,
tak ji neotevre a nahlasi "DPB Constant (0) is unknown". Dela to ale jenom tenhle
program. Urcite delam neco spatne protoze uz jsem zkousel IB nainstalovat na
tri ciste pocitace a pokazde to melo stejny vysledek. Treba se s tim nekdo z vas uz setkal
a vi jak to vyresit. Predem dekuji za pomoc a preji vsem hezky vykend.
Jiri Wendl
Tisk fotek ve stupni sedi
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 5.1.2001 07:51:59
> nevite prosim nekdo, jak vytisknout fotku tak, aby byl vysledek ve
> stupnich sedi na tiskarne, ktera na hloubku 1 bit na pixel (HP
> LaserJet 6L)? Pouhym kopirovanim na Printer.Canvas dosahnu vysledku
> pouze "cerna/bila", nic mezi tim. Zkousel jsem provest rozklad stupnu
> sedi na (cerna/bila) v Photoshopu a pak je vysledek docela dobrej, i
> kdyz stale ne idealni. Potreboval bych to ale delat nejak programove a
> to pokud mozno bez pouziti specialnich komponent. Exisuje na to nejaka
> API funkce? (W98, d4)
Ahoj,
mam pocit, ze temto technikam se rika dithering (ale bez zaruky, s
grafikou jsem se setkal naposledy ve skole), je nekolik metod a
nejsou myslim nijak narocne na programovani. Algoritmy bych
hledal v nejake ucebnici pocitacove grafiky.
David
Paradox 8 nebo vyssi ODBC
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 5.1.2001 07:52:27
Vim pouze o placenych na strankach fy MERANT.COM ci tak nejak. Je tam
mesicni trial. Ceny od 100 do 4000$ podle verze. Pokud bude
nekdo vedet o necem jinem, byl bych taky rad (kvuli cene).
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Zafarbenie substringu v TRichEdit
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 5.1.2001 07:57:23
Pro ten richedit musis na False nastavit vlastnost HideSelection.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Snimani kamerou
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 5.1.2001 08:07:00
Ahoj
souhlasim s Hurricanem. Tento program mam taky a testoval jsem ho po
vcerejsim prispevku do konference. Vysledek ?
1- dvere a prostor za nimi musi byt pomerne dost kontrastni nebo alespon
jinak barevne...
2- zustava doresit, jak zajistit konstatni osvetleni mistnosti... Neni
problem na sesiak pripojit nejaky foto prvek a osvetlovaci infraLED, ale to
je prozatim jiny problem :))
S pozdravem Batex
> Zdravim
>
> Jak jsem kdysi posilal knihovnu k portum a televizi, tak mam jeste exampl
na
> normalni prohlizec TV (tusim ze ale pres Overlay) a program pro mereni
sirky
> predmetu TV kamerou. I se zdrojakama. Myslim, ze ke kamerovemo zjistovani
> otevrenych dveri by se to dalo s uspechem pouzit.
>
> Hurricane
Data z netu na COM ?
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 5.1.2001 08:13:57
Dik za radu, ale obavam se, ze toto nepostaci... Proc? Protoze kazda
komunikace po seriovem portu(modem i prime propojeni) pouziva nejen datove
linky TxD a RxD, ale take pomocne "dotazovaci" vstupy a vystupy. Ja
potrebuji tyto vystupy k napajeni modemu. Toto se da sice nahradit externim
zdrojem, ale zustava problem v prenosu... Kvuli jednoduchosti modemoveho
zarizeni se ho nemuzu dotazovat na stavy bufferu jako to dela napr.
telefonni modem.... Toto by vsechno mela zastavat aplikace a prenaset uz
jenom data na RxD.
To jen tak na upresnenou...
S pozdravem Batex
----- Original Message -----
From: <KadaneM(zv)sdc.pce.cdrail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 04, 2001 9:52 AM
Subject: RE: Data z netu na COM ?> Co� takhle do s�t� nainstalovat ovlada� propojen� s�riov�m kabelem, maj�
ho
> ka�d� Windows od verze 95a a jestli ne tak v adres߰i
windows\inf\mdmgen.inf
> sta�� smazat st�edn�ky u PNPC031 a M2700. Jinak by m� zaj�malo to za��zen�
> na propojen�.
> #au Mirek
>
> -----Original Message-----
> From: tomsir1.edu(zv)mail.cez(tec)cz [mailto:tomsir1.edu(zv)mail.cez(tec)cz]
> Sent: Wednesday, January 03, 2001 7:00 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Data z netu na COM ?
>
>
>
> hm,nezlob se, ze ti neporadim, ale docela mne zajima to zelezo, konkretne
> ten
> prenos mezi ser. porty ....vysilac a prijimac
> jestli se podelis, budu rad ...
>
> Diky Radegast
>
>
>
>
> Peter Luk�cs <batex(zv)astrafren(tec)cz> on 03.01.2001 18:56:50
>
> Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
>
> Komu: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
> Kopie: (Na v�dom�: Tomsik Radek/4130P/EDU/CEZ)
> P�edm�t: Data z netu na COM ?
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
App na zjisteni oken
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 05.1.2001 08:24:36
A nebylo by jednodussi pouzit komponentu primo pro praci s WinAmpem...
Neco doma negde mam, tak kdyby byl zajem, muzu poslat. Bud je to z DSP
nebo z Torry...
Raul Endymion wrote:
>
> Dobr� den,
>
> Potrebuju poslat winampu nejakou klavesu (simuluju stisk klaves) ale
> potrebuju jmeno jeho okna, jak ho zjistim ?
>
> --
> S pozdravem,
> Raul
> raul(zv)raphael(tec)cz
Par otazek k IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 5.1.2001 08:28:07
napriklad pri sdilenem pristupu. tedy ze dvou ruznych pracovist nebo
aplikaci...
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
> A jak k tomu dojde? Ja pouzivam jen jednu transakci.
***************
> Deadlock = zatuhnuti, pokud transakce A ceka na vysledek transakce B a
> trans. B ceka na vysledek trans. A (neni jen v db) = neboli
> vsichni cekaji a nic se nedeje.
***************
> > 2/ Co znamena error "Deadlock"?App na zjisteni oken
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 5.1.2001 08:28:00
Ahoj,
ja to delam takhle a funguje to:
Handle := FindWindow(PChar('Winamp v1.x'), nil);
Ales
> From: Raul Endymion [mailto:raul(zv)raphael(tec)cz]
> Subject: App na zjisteni oken
>
> Dobr� den,
>
> Potrebuju poslat winampu nejakou klavesu (simuluju stisk klaves) ale
> potrebuju jmeno jeho okna, jak ho zjistim ?App na zjisteni oken
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 5.1.2001 08:44:33
Mozes pouzit SInfo na adrese:
http://lcpx07.lc.ehu.es/JMA/win95.html
alebo Ti mozem poslat programek ktory nieco take robi. Vypise zoznam okien,
childov, procesy....
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Dobr� den,
Potrebuju poslat winampu nejakou klavesu (simuluju stisk klaves) ale
potrebuju jmeno jeho okna, jak ho zjistim ?
poskozene ikony na palete Delphi
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 5.1.2001 09:19:00
Ahoj,
po spusteni Delphi je vse OK, ale po natazeni jakehokoli projektu se mi
prekresli ikony na palete Standard castmi ikon z RxLib.
Verze Comctl32 je 5.81, graficka karta S3 Trio3D.
Vim, ze se to tady probiralo mnohokrat, ale me se to nikdy nestavalo. Pred
nedavnem jsem vsak instaloval RxLib, kterou jsem drive nepouzival.
Nevite, nema to nejakou souvislost s Rx?
A pochopitelne co s tim?
NT4SP5; D5UP1; RxLib tusim 2.75;
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
poskozene ikony na palete Delphi
[*] Ren� Otisk - 5.1.2001 10:04:12
Jeste pro upresneni:
Stalo se to, kdyz se natahl projekt z D5 Prof bez UpdatePack1# bez a updatu
IB komponent na D5Prof s UpdatePack1# a s updatem IB komponent 4.4. A od te
doby to dela....
Sroub
> Ahoj,
> po spusteni Delphi je vse OK, ale po natazeni jakehokoli projektu se mi
> prekresli ikony na palete Standard castmi ikon z RxLib.
> Verze Comctl32 je 5.81, graficka karta S3 Trio3D.
>
> Vim, ze se to tady probiralo mnohokrat, ale me se to nikdy nestavalo. Pred
> nedavnem jsem vsak instaloval RxLib, kterou jsem drive nepouzival.
>
> Nevite, nema to nejakou souvislost s Rx?
> A pochopitelne co s tim?
>
> NT4SP5; D5UP1; RxLib tusim 2.75;
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.papouch.com
PageProducer nebo DataSetQueryProducer???
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 05.1.2001 10:58:33
ahoj,
mam takove dilema: tabulku vytazenou z ORACLU pres QUERY. Nyni ji chci prevest na html kod. Jdemi o to, ze nektere zaznamy chci jeste pred vlozenim do html zmodifikovat...
Pokud pouzivam PageProducer, pak se mi to zda pomerne slozite...
Pokud pouzivam DataSetQueryProducer, nevim, jak modifikovat polozky. Zkousel jsem v OnHTMLTag, ale nevim jak.
Co je lepsi??? poradte prosim :-((
S pozdravem Milan Cizek, D5 Ent
_____________________________________________________________________
Jak si stoj� kurz koruny? http://kurzy.seznam(tec)cz
Batchmove rusi heslovani paradox tabulek... Jak to
[*] vlada_ponechal(zv)post(tec)cz - 5.1.2001 11:05:08
Zdar panove,
Mel bych jeste jednou stejny dotaz. Nejak jsem nedostal na predesli odpoved, tak jeste jednou... Pokud si zahesluji tabulky paradoxu a za pomoci session.password je pouzivam v programu, vse funguje tak jak ma az na jedno. Velmi casto pouzivam komponenty batchmove. Tato vsak tabulky kopiruje bez hesla. Ja osobne vidim dve moznosti. Presvedcit batchmove, aby tabulky kopiroval i s hesly a nebo po nakopirovani tabulky heslo programove zadat. Prvni moznost je jednodussi a pohodlnejsi.
Panove, nevite jak na to? Nemate nejake priklady? V helpu jsem toho moc nenasel...
Mam D3.
Diky,
Vlada
GExperts a Procedure List
[*] Va�k�� Martin - 5.1.2001 11:38:39
Ahoj, prosim o radu:
Mam GExperts v 0.96.1 a C++Builder 3. Procedure List mi hlasi : "This
expert is for use in .PAS or .DPR files only".
Vyssi verze GExperta jsou uz jen pro C++Builder 4 a 5.
Nevite o nejakem jinem programu, ktery by mi usnadnil navigaci (funkce,
promenne...) ?
Predem moc dekuju.
Martin Vackar
IB6 - GRANT REFERENCES
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 5.1.2001 12:08:16
Pokud vis jak funguje FK, tak cti dale, pokud ne precti
si z dokumentace.
No a ten FK potrebuje cist z tabulky na kterou se odkazuje a zaroven
ty nechces, aby z ni cetl ten uzivatel, tak mu das pouze pravo reference.
Je to typicky pripad jekterych ciselniku, ktere jsou jen pro nekoho.
Slavek
> Mam problemik. Studujem ib6 a prave bezpecnost a pridelovanie prav tabulkam.
> pochopil som ako funguje grant select,insert,update,delete ale absolutne
> neviem pochopit ako funguje
> grant references. Ake ma vyuzitie a tak.Podivne chovani StatusBaru
[*] brant(zv)dcomm(tec)cz - 5.1.2001 12:23:14
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.
Ahoj vespolek,
mam MDI aplikaci, dole je StatusBar, dva panely jsou ownerdrawn a pomoci
timeru do nich kreslim text resp. obrazek a zase je mazu pomoci FillRect
(viz kod dole), takze to pekne blika. Vsechno pracuje dobre, ale pokud
pohybuju mysi na volne plose MDI okna (tedy nezakryteho nekterym z
otevrenych oken aplikace), zacnou se v panelech objevovat stridave tucne a
zase normalni napisy z menu (frekvence zmeny tucne pismo-normalni pismo vsak
nezavisi na tom blikacim timeru). Kdyz se pohyb mysi zastavi, napisy zmizi a
zase je to v poradku. Dela to na 95 i 98 a na ruznych grafickych kartach.
Netusite nekdo, cim to muze byt? Mam W98SE, D5Prof.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
type BOType = (boText, boImage);
(...)
procedure TBlinkObject.HideObject(Canvas: TCanvas; Rect: TRect);
begin
begin
if (BlinkText<>'') or (BlinkImage<>nil) then
begin
Canvas.Brush.Color:=BkColor;
Canvas.Brush.Style:=bsSolid;
Canvas.FillRect(Rect);
end;
end;
end;
procedure TBlinkObject.ShowObject(Canvas: TCanvas; Rect: TRect);
begin
if BlinkType = boText then
begin
if BlinkText<>'' then
begin
Canvas.Font.Style:= FntStyle;
Canvas.Font.Color:=ColorText;
Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, BlinkText);
end;
end;
if BlinkType = boImage then
begin
if BlinkImage<>nil then
begin
Canvas.Draw(Rect.Left + 1, Rect.Top + 1, BlinkImage.Picture.Graphic);
end;
end;
end;
vnorena transakce
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 5.1.2001 12:39:35
ahoj,
u IB6 lze pouzit CommitRetaining.
udela to to, ze se potvrdi doposud provedene zmeny, ale transakce
zustava otevrena.
imho je to velmi podobne, jak popisujes checkpoint u oracle, akorat ze
pokud nastane
nejaky problem a das rollback a zahajis novou transakci od mista kde byl
posledni
CommitRetaining. Zmeny potvrzene CommitRetaining jiz odvolat nelze.
doufam, ze to popisuji jasne...
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
> U DB se tomu rika CheckPoint, pokud vim tak tento mechanismus
> podporuje Oracle, takze
> pokud to nutne potrebujes, tak prejdi na Oracle.
> Jinak Transakce by mela byt nedelitelna -> Zahajim, pracuji, koncim,
> bud se to povede cele, nebo nic. Check pointy slouzi pri vetveni, tj.
> pokusim se provest transakci, nezdarilo se, tak se vracim k poslednimu
> Check pointu a zkousim jinou variantu. Na IB to znamena
> odvolavam celou transakci
> a zahajuji znovu s tim ze na konci zkousim neco jineho
> (modifikuji porikazi pred padem).
> Check pointy se uplatnuji u dlouhych transakci, kde by jejich opetovne
> zahajeni stalo prilis mnoho penez (strojoveho casu). Vzhledem k tomu,
> ze pouzivas D3 a BDE soudim ze se nejedna o tento pripad.Synchronizace casu
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 5.1.2001 12:40:40
Mam nasledujici problem: pouzivam na NT Serveru sluzbu TIMESERV pro synchronizaci casu na serveru a na stanicich.
Kdyz synchronizuju cas na stanici tak pouzivam prikaz "NET TIME \\N#ZEV SERVERU /SET /YES". A ja bych potreboval vedet cislo portu po kterym ten cas beha abych ho mohl odchytit v DELPHI 5 pomoci komponenty Fastnet\NMTime. Neznate nekdo nejakej zpusob jak ten cas precist?
Ahoj,
cislo portu "TimServer" mas uvedeny v subore "services" v adresari: "...WinNT\System32\drivers\Etc\"
...
time 37/tcp timserver
time 37/udp timserver
...
Jano
OT: RAR self-extract
[*] Spravce site ZSU <admin(zv)zsuprkova.pvtnet(tec)cz> - 5.1.2001 11:54:14 -0000
Sorry za OT. Nevite nekdo, jestli jde zaridit, aby se RAR s-e archiv
(Win) pekne potichoucku rozbalil na pozadi do urceneho adresare? Jestli
to jde zaridit nejakejma prepinacema...? Odpovedi prosim primo me, je
zbytecne zatezovat konferu.
Diky, R.V.
-----
Radovan Vojtek - Spravce site
Zakladni skola, Uprkova ul. 1
500 09, Hradec Kralove
CZECH REPUBLIC
tel.: +420(49)5270294
mobil: +420(604)849231
#ICQ: 63924162
-----
---
Odchozi zprava neobsahuje viry.
Outgoing message does not contain any viruses
SUPERVISOR (zv) ZSU Network
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.225 / Virov� b�ze: 107 - datum vyd�n�: 22-12-00
ZNOVA: Trideni CH v Interbase
[*] azeleny(zv)csas(tec)cz - 5.1.2001 12:56:21
Dobry den,
zkusil jsem pouzit trideni stazene z nize uvedene adresy a narazil jsem na
jeden zasadni problem:
(radi to krasne, coz o to), pri hledeani
select NAZEV from VECI where NAZEV like 'C%' to korektne vrati jen ty od C
nikoliv Ch, ale
select NAZEV from VECI where NAZEV like 'Ch%' nevrati nic, i kdyz tam takove
zaznamy jsou (select * from VECI) to vrati a korektne seradi.
Databaze ma deafult character set WIN_1250 a NAZEV ma collate PXW_CSY.
Delam neco spatne?
Ma nekdo podobnou zkusenost?
Testoval to nekdo?
Tento problem cini jinak krasne DLL nepouzitelnym, doufam, ze je to moje
chyba.
Pro poradek verze:
SQL> show version;
ISQL Version: WI-V6.0.0.627
InterBase/x86/Windows NT (access method), version "WI-V6.0.0.627"
InterBase/x86/Windows NT (remote server), version "WI-V6.0.0.627/tcp
(sasanka)/P10"
InterBase/x86/Windows NT (remote interface), version "WI-V6.0.0.627/tcp
(sasanka)/P10"
on disk structure version 10.0
SQL>
> -----Original Message-----
> From: Karel B�ich��� [mailto:brichna(zv)atlas(tec)cz]
> Sent: Friday, October 13, 2000 9:24 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Trideni CH v Interbase
>
>
> > > z vlastnich testu i prispevku v archivu jsem overil, ze
> IB 6 netridi
> > > korektne cesky, presneji ze nezatridi CH mezi H a I.
> > > Je to dost problem pri nasazeni v IS, jak to resite vy?
> >
> > http://web.redbox(tec)cz/brichna/ib_trid_ch.html . Pod Windows
> mi to zatim
> > funguje. Pro Linux jsem to zatim nekompiloval.
>
> Tak jsem se pokusil tu knihovnu zkompilovat i pro Linux. Vysledek jsem
> ulozil na vyse uvedenou adresu. Nemel jsem moc casu to
> zkouset, ale na prvni
> pohled to vypada, ze to funguje. Jestli to nekdo budete
> zkouset, dejte mi
> vedet, jak to dopadlo.
>
> Brichna
>
> P.S. opet se jedna pouze o zmenu trideni CH na
> WIN1250/PXW_CSY. Trideni
> pismen s hackem a carkou jsem ponechal beze zmeny.
> RAR self-extract
[*] Ren� Otisk - 5.1.2001 13:05:12
Spust to pres CreateProcess s p��znakem SW_HIDE
Sroub
Sorry za OT. Nevite nekdo, jestli jde zaridit, aby se RAR s-e archiv
(Win) pekne potichoucku rozbalil na pozadi do urceneho adresare? Jestli
to jde zaridit nejakejma prepinacema...? Odpovedi prosim primo me, je
zbytecne zatezovat konferu.
Diky, R.V.
-----
Radovan Vojtek - Spravce site
Zakladni skola, Uprkova ul. 1
500 09, Hradec Kralove
CZECH REPUBLIC
tel.: +420(49)5270294
mobil: +420(604)849231
#ICQ: 63924162
-----
---
Odchozi zprava neobsahuje viry.
Outgoing message does not contain any viruses
SUPERVISOR (zv) ZSU Network
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.225 / Virov� b�ze: 107 - datum vyd�n�: 22-12-00
Data z netu na COM ?
[*] L. ZITA <konference(zv)sales(tec)cz> - 5.1.2001 13:21:23
----- Original Message -----
From: "Peter Luk�cs" <batex(zv)astrafren(tec)cz>> Dik za radu, ale obavam se, ze toto nepostaci... Proc? Protoze
kazda
> komunikace po seriovem portu(modem i prime propojeni) pouziva nejen datove
> linky TxD a RxD, ale take pomocne "dotazovaci" vstupy a vystupy. Ja
> potrebuji tyto vystupy k napajeni modemu. Toto se da sice nahradit
externim
> zdrojem, ale zustava problem v prenosu... Kvuli jednoduchosti modemoveho
> zarizeni se ho nemuzu dotazovat na stavy bufferu jako to dela napr.
> telefonni modem.... Toto by vsechno mela zastavat aplikace a prenaset uz
> jenom data na RxD.
> To jen tak na upresnenou...
>
> S pozdravem Batex
>
Ahoj.
Nejsem si zcela jist, ale v nastaveni COMu se da nastavit i SW rizeni
prenosu.
Zkusit to muzes jednoduse, zkus si udelat ve Win9x prime propojeni PC pomoci
ser. portu
a pak vymen propojeni za kabel s pouze "datovymi" draty a uvidis.
Ludek
GExperts a Procedure List
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 5.1.2001 13:27:24
GExperts a Procedure ListJe este verze, myslim ze jej ozacenie le 1.0 a je vyssia nez verzia 0.96.1 i 0.96.2 a ja osobne som ju stahoval z GExperts webu.
Inak Delphi 5 ma este Browser.
Pavol Kakacka
kasix(zv)atlas(tec)cz
Ahoj, prosim o radu:
Mam GExperts v 0.96.1 a C++Builder 3. Procedure List mi hlasi : "This expert is for use in .PAS or .DPR files only".
Vyssi verze GExperta jsou uz jen pro C++Builder 4 a 5.
Nevite o nejakem jinem programu, ktery by mi usnadnil navigaci (funkce, promenne...) 20
poskozene ikony na palete Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.1.2001 13:43:39
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
> Verze Comctl32 je 5.81, graficka karta S3 Trio3D.
>
> Vim, ze se to tady probiralo mnohokrat, ale me se to nikdy nestavalo. Pred
> nedavnem jsem vsak instaloval RxLib, kterou jsem drive nepouzival.
>
> Nevite, nema to nejakou souvislost s Rx?
> A pochopitelne co s tim?
Ahoj,
Tezko rict, RxLib je v nekterych castech ponekud problemova. Zkus updatovat
driver na videokartu, popripade ji vymenit (nebo nepouzivat RxLib ;-)
Petr Vones, amatersky programator
Seznam bezicich procesu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.1.2001 13:46:42
From: "Petr Reichl" <p.reichl(zv)gmc.net>
> hledam nejlepe komponentu, ktera by umela zobrazit seznam bezicich procesu v
> systemu a vybrany proces zrusit. Muzete mi prosim neco doporucit?
Ahoj,
pokud ti staci funkce (neni treba komponentu na kazdou drobnost) tak v JCL
(http://delphi-jedi.org/Jedi:JCLDOWNLOADS) je funkce RunningProcessesList.
Ukoncit proces lze pomoci API funkce TerminateProcess (je to vsak ponekud
drsne reseni), priklad najdes v aplikaci ToolHelpViewer, ktera je ke stazeni
zde (http://www.volweb(tec)cz/pvones/delphi)
Petr Vones, amatersky programator
Podivne chovani StatusBaru
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 5.1.2001 13:50:37
Podivne chovani StatusBaruMeli jsme podobne zkusenosti. Nekdy se vubec
nevolala udalost na prekresleni.
Stacilo prelozit "ComCtrls.pas" s vypnutou optimalizaci a je vse OK.
Zkus jestli to neni stejny problem.
Petr Smol�k
psmolik(zv)fides(tec)cz
> Ahoj vespolek,
> mam MDI aplikaci, dole je StatusBar, dva panely jsou ownerdrawn a pomoci
> timeru do nich kreslim text resp. obrazek a zase je mazu pomoci FillRect
(viz kod > dole), takze to pekne blika. Vsechno pracuje dobre, ale pokud
pohybuju mysi na > volne plose MDI okna (tedy nezakryteho nekterym z
otevrenych oken aplikace),
> zacnou se v panelech objevovat stridave tucne a zase normalni napisy z
menu
> (frekvence zmeny tucne pismo-normalni pismo vsak nezavisi na tom blikacim
> timeru). Kdyz se pohyb mysi zastavi, napisy zmizi a zase je to v poradku.
Dela to > na 95 i 98 a na ruznych grafickych kartach. Netusite nekdo, cim to
muze byt?
> Mam W98SE, D5Prof.
> RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
> ICQ # 68652380
> D&COMM s.r.o
> Korunova�n� 6
> Praha 7
vnorena transakce
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 5.1.2001 14:31:55
From: Petr Palicka <petr.palicka(zv)atlas(tec)cz>
> u IB6 lze pouzit CommitRetaining.
>
> udela to to, ze se potvrdi doposud provedene zmeny, ale transakce
> zustava otevrena. imho je to velmi podobne, jak popisujes checkpoint u
> oracle, akorat ze pokud nastane nejaky problem a das rollback a
> zahajis novou transakci od mista kde byl posledni CommitRetaining.
> Zmeny potvrzene CommitRetaining jiz odvolat nelze.
~~~~~~~~~
Ovsem o to prave jde, aby bylo mozne delat rollback postupne
k urcitym bodum
Jiri Binder
Batchmove rusi heslovani paradox tabulek... Jak to
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 5.1.2001 14:35:42
Ahoj,
Nemuzes misto BatchMove normalne zkopirovat soubory (tj. x.db,x.px,
x.val,..) ?
Mirek
| Zdar panove,
| Mel bych jeste jednou stejny dotaz. Nejak jsem nedostal na predesli
odpoved, tak jeste jednou... Pokud si zahesluji tabulky paradoxu a za pomoci
session.password je pouzivam v programu, vse funguje tak jak ma az na jedno.
Velmi casto pouzivam komponenty batchmove. Tato vsak tabulky kopiruje bez
hesla. Ja osobne vidim dve moznosti. Presvedcit batchmove, aby tabulky
kopiroval i s hesly a nebo po nakopirovani tabulky heslo programove zadat.
Prvni moznost je jednodussi a pohodlnejsi.
|
| Panove, nevite jak na to? Nemate nejake priklady? V helpu jsem toho moc
nenasel...
|
| Mam D3.
|
| Diky,
|
| Vlada
|Moznost zaskrtnuti vice moznosti v Comboxu
[*] NOVOTN� Milan <mnovotny(zv)csob(tec)cz> - 5.1.2001 14:39:33
chtel bych vas pozadat o radu, jestli nekdo z vas neresil problem, kdy chci
vybrat vice jak jednu moznost z comboboxu. Combopbox je nastaven jen na
jednu z moznosti. Za jakoukoliv radu predem dekuji
Milan Novotn�
02 6135 5190
Batchmove rusi heslovani paradox tabulek... Jak to
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 5.1.2001 14:39:55
> Zdar panove,
> Mel bych jeste jednou stejny dotaz. Nejak jsem nedostal na predesli
odpoved, tak jeste jednou... Pokud si zahesluji tabulky paradoxu a za pomoci
session.password je pouzivam v programu, vse funguje tak jak ma az na jedno.
Velmi casto pouzivam komponenty batchmove. Tato vsak tabulky kopiruje bez
hesla. Ja osobne vidim dve moznosti. Presvedcit batchmove, aby tabulky
kopiroval i s hesly a nebo po nakopirovani tabulky heslo programove zadat.
Prvni moznost je jednodussi a pohodlnejsi.
Tady je nejakej priklad pro druhej pripad
procedure AddMasterPassword(Table: TTable; pswd: string);
const
RESTRUCTURE_TRUE = WordBool(1);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;
begin
{ Make sure that the table is opened and is exclusive }
if (Table.Active = False) or (Table.Exclusive = False) then
raise EDatabaseError.Create('Table must be opened in exclusive mode to
add passwords');
{ Initialize the table descriptor }
FillChar(TblDesc, SizeOf(CRTblDesc), 0);
with TblDesc do
begin
{ Place the table name in descriptor }
StrPCopy(szTblName, Table.TableName);
{ Place the table type in descriptor }
StrCopy(szTblType, szPARADOX);
{ Master Password, Password }
StrPCopy(szPassword, pswd);
{ Set bProtected to True }
bProtected := RESTRUCTURE_TRUE;
end;
{ Get the database handle from the cursor handle }
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
{ Close the table }
Table.Close;
{ Add the master password to the Paradox table }
Check(DbiDoRestructure(hDb, 1, (zv)TblDesc, nil, nil, nil, FALSE));
{ Add the new password to the session }
Session.AddPassword(pswd);
{ Re-Open the table }
Table.Open;
end;
----------------------------
Ahoj
Prace s neznamou tridou
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 5.1.2001 15:42:21
Dobry den,
mam nasledujici situaci:
Na TPanel mam rozmisteno nekolik TSpeedButton. Pokud prochazim tuto kolekci
-- [ Code ] --
var intControl : Integer;
begin
for intControl := 0 to panPKW2ToolBar.ControlCount - 1 do begin
...
end;
-- [ Code ] --
... tak muzu pracovat s danym objektem na urvni tridy TControl. Jak mu ma
rici, ze se jedna o tridu TSpeedButton.
S pozdravem,
Petr Reichl
ZNOVA: Trideni CH v Interbase
[*] Karel B�ich��� - 5.1.2001 16:01:58
> zkusil jsem pouzit trideni stazene z nize uvedene adresy a narazil jsem na
> jeden zasadni problem:
> (radi to krasne, coz o to), pri hledeani
> select NAZEV from VECI where NAZEV like 'C%' to korektne vrati jen ty od C
> nikoliv Ch, ale
> select NAZEV from VECI where NAZEV like 'Ch%' nevrati nic, i kdyz tam
takove
> zaznamy jsou (select * from VECI) to vrati a korektne seradi.
> Databaze ma deafult character set WIN_1250 a NAZEV ma collate PXW_CSY.
Zdravim,
toto je vec, kterou jsem se zatim nazabyval. Provedl jsem tedy nejake testy
a zjistil jsem, ze pokud muze Interbase pri hledani LIKE 'C%' pouzit index,
vraci vyrazy zacinajici na 'C' ale uz ne na 'CH'. Pri hledani LIKE 'CH%' mi
vraci pouze vyrazy zacinajici na 'CH'. Pokud ale nemuze pouzit index, lisi
se vysledky v tom, ze pri hledani LIKE 'C%' vraci i vyrazy zacinajici na
'CH'. Testovano na WI-V6.0.0.627 . Jen pro uplnost, v obou pripadech to
vyhleda pouze stejne kombinace 'ch','CH','Ch','cH' jako v dotazu.
Brichna
P.S. U indexu, ktere byly vybudovany s puvodnim DLL je nutne je prebudovat s
DLL podporujicim CH.
Synapse a MSExchange
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 5.1.2001 16:03:58
Ahoj vsichni
Nedavno jsem si stahnul synapsi pro D5 Release 15 z 10.12.2000. Vyuzivam ji
pro posilani posty.
Kdyz poslu zpravu na lokalni adresu (v ramci firemni site) vse funguje
dobre. Kdyz ji ale chci poslat ven (do internetu) procedura mailto vraci
false a prijejim krokovani jsem zjistil ze server vraci chybu Relaing is
prohibited. Nevite nekdo co s tim. Outlook normalne odesila a ja bych chtel
totez dosahnout i u meho programu.
Na serveru je MSExhange 5.5. Mozna by pomohl odkaz na stranku s definici
SMTP protokolu pro Exchange server nebo priklad korektni komunikace s timto
serverem.
Diky za kazdou radu
Jaromir Cermak QReport - zmena pohledu
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 5.1.2001 16:39:31
Dobry den,
je mozne nastavit, aby se QReport pri print preview ukazoval v zobrazeni
'zoom to fit' a ne 'zoom to width', ktere ma nastaveno jako vychozi. Nikde
jsem to nenasel.
Petr
OT: Par otazek k IB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 5.1.2001 16:39:11
Haj hou!
On 4 Jan 2001,, Michal Tiller wrote:
> 1/ Je nejaky dobry free manazer IB databaze? Pouzivam SQL Explorer od
> Borlandu a nic moc :o)
www.ibphoenix.com
> 2/ Co znamena error "Deadlock"?
Vzajemne zablokovani transakci. Bezne by se nemel pri praci s IB
objevit. Kdy a za jakych okolnosti se ti to stava ?
> 3/ Muze se databaze poskodit, pokud se snazim s ni pracovat a mam malo mista
> na disku? Hodi to error a mam pocit, ze od te doby se chova divne.
Muze. IB take potrebuje volne misto na pracovni soubory (napr. pro
setrideni vysledku prikazu select).
> 4/ Lze poskozenou db nejak opravit?
Viz command-line utilita gfix v /bin adresari IB
Hodne zdaru
> Mnohokrat dekuji za kazdou malinkou odpoved,
>
> Michal Tiller
>
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.ADO a OleDB instalace
[*] Libor Stujan <listuj(zv)centrum(tec)cz> - 05.1.2001 16:57:29
Prosim, docela bych to potreboval.
Vytvoril jsem aplikaci, ktera pouziva ADO komponenty z Delphi
a k DB (Oracle) pristupuji pomoci OLEDB provider (MSDAORA.1).
Ted ale nevim co vsechno potrebuji zahrnout do instalace, tak
aby mi program chodil i na ostatnich PC. Instalaci rozumim
prenos souboru, pripadne pomoci Inno Setupu, nebo jiny skvely
napad mate? (ne prepisovat celou aplikaci prosim ;-)
Hezky den a ahoj
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Synapse a MSExchange
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 5.1.2001 17:22:50
> Na serveru je MSExhange 5.5. Mozna by pomohl odkaz na stranku
> s definici
> SMTP protokolu pro Exchange server nebo priklad korektni
> komunikace s timto
> serverem.
Ano, presne na tento problem som narazil aj ja.
Vsetky moje pokusy skoncili neuspechom.
Tiez som zvedavy ako sa to da urobit.
/LH
Podivne chovani StatusBaru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.1.2001 18:10:59
From: "Petr Smol�k" <psmolik(zv)fides(tec)cz>
> Podivne chovani StatusBaruMeli jsme podobne zkusenosti. Nekdy se vubec
> nevolala udalost na prekresleni.
> Stacilo prelozit "ComCtrls.pas" s vypnutou optimalizaci a je vse OK.
Ahoj,
to je velice podivne reseni. Nespocival problem v necem jinem ?
Petr Vones, amatersky programator
Prace s neznamou tridou
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.1.2001 18:13:48
5.1.2001 Petr Reichl :
> Dobry den,
> mam nasledujici situaci:
> Na TPanel mam rozmisteno nekolik TSpeedButton. Pokud prochazim tuto kolekci
> -- [ Code ] --
> var intControl : Integer;
> begin
> for intControl := 0 to panPKW2ToolBar.ControlCount - 1 do begin
> ...
> end;
> -- [ Code ] --
> ... tak muzu pracovat s danym objektem na urvni tridy TControl. Jak mu ma
> rici, ze se jedna o tridu TSpeedButton.
> S pozdravem,
> Petr Reichl
Pomoci pretypovani. Napriklad: TSpeedButton(Controls[i]).xxxx
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Synapse a MSExchange
[*] Delphi <Delphi(zv)scio(tec)cz> - 5.1.2001 18:19:34
> Nedavno jsem si stahnul synapsi pro D5 Release 15 z
> 10.12.2000. Vyuzivam ji
> pro posilani posty.
> Kdyz poslu zpravu na lokalni adresu (v ramci firemni site) vse funguje
> dobre. Kdyz ji ale chci poslat ven (do internetu) procedura
> mailto vraci
> false a prijejim krokovani jsem zjistil ze server vraci chybu
> Relaing is
> prohibited.
Ahoj,
ja bych zase potreboval, aby mi server tuto hlasku daval...
Honza
OT: Par otazek k IB
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 5.1.2001 18:26:31
Mam program, ktery ma jedno Connection a jednu transakci.
Nacita txt soubory, vyplnuje pripravene sql pro insert, pripadne update a
odesila je. Nic vic. Jede jeden prikaz za druhym. A kazdou chvili mi to
totalne zatuhne. Pak musim restartovat cele PC se servrem, jinak pri pokusu
o opetovne connectnuti do db mi to vyhodi Deadlock. :( Nevim, co s tim.
Mam db prez 4 GB. Nekolikrat se mi stalo, ze se mi zaplnil disk jak
zvetsovanim db a pridavanim souboru na nej, tak i slozitejsimi dotasy, ktere
vytvarely velke tmp soubory.
Do teto db se take pripojuji uzivatele, kteri si ji jen prohlizeji.
Protoze nevim, zda zapisovany radek uz v db je, tak pouzivam pri zapisu tuto
syntaxi:
StartTransaction;
for {radky} do
try
{insert sql}
ComitRetainig;
except
RollBackRetaining;
{update sql}
ComitRetainig;
end;
Commit;
Pokud tam radek jiz je, indexy mi vyvolaji exception a ja udelam update.
Mozna bych to mel delat obracene: Update a kdyz 0 radku, tak Insert, ale
nevim jak zjistit, kolik radku to updatovalo.
Za kazdou radu moc dekuji,
Michal Tiller.
-----Original Message-----
From: Pavel Cisar [mailto:pcb(zv)atlas(tec)cz]
Sent: Friday, January 05, 2001 4:39 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: OT: Par otazek k IB
Haj hou!
On 4 Jan 2001,, Michal Tiller wrote:
> 1/ Je nejaky dobry free manazer IB databaze? Pouzivam SQL Explorer od
> Borlandu a nic moc :o)
www.ibphoenix.com
> 2/ Co znamena error "Deadlock"?
Vzajemne zablokovani transakci. Bezne by se nemel pri praci s IB
objevit. Kdy a za jakych okolnosti se ti to stava ?
> 3/ Muze se databaze poskodit, pokud se snazim s ni pracovat a mam malo
mista
> na disku? Hodi to error a mam pocit, ze od te doby se chova divne.
Muze. IB take potrebuje volne misto na pracovni soubory (napr. pro
setrideni vysledku prikazu select).
> 4/ Lze poskozenou db nejak opravit?
Viz command-line utilita gfix v /bin adresari IB
Hodne zdaru
> Mnohokrat dekuji za kazdou malinkou odpoved,
>
> Michal Tiller
>
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.Synapse a MSExchange
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.1.2001 19:19:41
Problem je v konfiguraci Exchange.
Kazdy SMTP server by mel nakonfigurovat tak, aby povoloval
relaying pouze pro ty zpravy, jejichz odesilatel ci prijemce je lokalni
uzivatel daneho postovniho serveru.
vami popisovany problem tedy pravdepodobne nastava tehdy, kdy
jako adresu ODESILATELE pouzivate nejakou adresu, ktera neni na
danem exchange serveru znama.
kdyz pak totiz mail adresujete lokalnimu uzivateli, je splnena vyse
polozena podminka, protoze adresat mailu je lokalni uzivatel. jakmile
ale posilate neco ven, je zprava odmitnuta.
Zkontrolujte tedy e-mail adresu, kterou pouzivate jako adresu
odesilatele. problem je na 99% v ni. Zkuste ji nastavit na adresu,
kterou urcite exchange zna. Zkuste pouzit tu e-mail adresu, z jake
uspesne odesilate outlookem a musi to fungovat...
Lukas.
> Ahoj vsichni
>
> Nedavno jsem si stahnul synapsi pro D5 Release 15 z 10.12.2000.
> Vyuzivam ji pro posilani posty. Kdyz poslu zpravu na lokalni adresu (v
> ramci firemni site) vse funguje dobre. Kdyz ji ale chci poslat ven (do
> internetu) procedura mailto vraci false a prijejim krokovani jsem
> zjistil ze server vraci chybu Relaing is prohibited. Nevite nekdo co s
> tim. Outlook normalne odesila a ja bych chtel totez dosahnout i u meho
> programu. Na serveru je MSExhange 5.5. Mozna by pomohl odkaz na
> stranku s definici SMTP protokolu pro Exchange server nebo priklad
> korektni komunikace s timto serverem.
>
> Diky za kazdou radu
>
>
> Jaromir Cermak
Moznost zaskrtnuti vice moznosti v Comboxu
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 5.1.2001 19:27:37
> chtel bych vas pozadat o radu, jestli nekdo z vas neresil problem, kdy
chci
> vybrat vice jak jednu moznost z comboboxu. Combopbox je nastaven jen na
> jednu z moznosti. Za jakoukoliv radu predem dekuji
A proc nepouzijes lisbox? Jestli se ti jedna jen o to rozbaleni nabidky...
podobneho efektu dosahnes i s listboxem: vysku nastavis na jen jeden radek a
pri OnEnter ji nastavis na 8,10 nebo kolik potrebujes. Pri OnExit nastavis
vysku zpet na puvodni velikost :))
PS:Prave jsem si to vyzkousel a funguje to dobre :))
S pozdravem Batex
Synapse a MSExchange
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.1.2001 20:29:26
>Problem je v konfiguraci Exchange.
nejde o problem _ALE_ o bezpecnostni feature :-). Server ktery nema relaying
zakazany _JE_ problem (resp. ma/bude mit problem).>Kazdy SMTP server by mel nakonfigurovat tak, aby povoloval
>relaying pouze pro ty zpravy, jejichz odesilatel ci prijemce je lokalni
>uzivatel daneho postovniho serveru.
>
>vami popisovany problem tedy pravdepodobne nastava tehdy, kdy
>jako adresu ODESILATELE pouzivate nejakou adresu, ktera neni na
>danem exchange serveru znama.
CHYBA - relayingem je mineno toto:
- kazda zprava, ktera ma byt odeslana jinam nez do lokalniho boxu
(lokalnimu uzivateli), tedy do Internetu - je relaying (jde na dalsi
mailserver = relay)
Cili kdokoliv (libovolna adresa odesilatele) muze poslat zpravu odkudkoliv
(z libovolneho IPCka) , _pokud_ cilem zpravy je lokalni box serveru (prez
ktery dany clovek tu zpravu odesila). Naopak posilani zprav, ktere maji jit
ven (do Internetu), _musi_ server povolit jen omezenemu okruhu pocitacu
(IPCek), vetsinou. Cili firmy povoluji relaying pro IPCka vlastni lokalni
site, provideri povoluji relaying pro vsechny IPCka, ktera vlastni (aby
mohli jejich klienti pouzivat jejich mail server k posilani posty do
Internetu).
Cilem tohoto nastaveni je zakazat spamerum zneuzivat cizi servery k
rozesilani spamu. Je-li server spravne nastaven, zjisti, ze spamer se
pripojil z neznameho (nepovoleneho) IPCka, zjisti, ze cilem zpravy neni
lokalni box uzivatele a vsledkem je po povelu RCPT TO: hlaska '550 we don't
relay'. Cili spamer svesi ohon a jde hledat dalsi server (urcite ho najde,
spousta lidi provozuje SMTP aniz vi co dela dokonce aniz vi, ze jej ma
pusteny :-( ).
>kdyz pak totiz mail adresujete lokalnimu uzivateli, je splnena vyse
>polozena podminka, protoze adresat mailu je lokalni uzivatel. jakmile
>ale posilate neco ven, je zprava odmitnuta.
>Zkontrolujte tedy e-mail adresu, kterou pouzivate jako adresu
>odesilatele. problem je na 99% v ni.
A neni. Na 100% :-)
> Zkuste ji nastavit na adresu,
>kterou urcite exchange zna. Zkuste pouzit tu e-mail adresu, z jake
>uspesne odesilate outlookem a musi to fungovat...
Kdyby to tak bylo pak je cele to nastaveni uplne k nicemu.
PS. jednoduchy test nastaveni SMTP lze udelat pomoci telnetu:
telnet mail.server(tec)cz 25
>>EHLO aaa
<<250-BLABLA
<<250 XXX
>>MAIL FROM:temer(zv)cokoliv
<<250 Sender OK
>>RCPT TO:<cilova(zv)adresa>
<<250 recipient OK
>>RCPT TO:adresa(zv)kterou.server.nepovazuje.za.lokalni
<<550 We don't relay
>>QUIT
---
>> uvozuje Tvoje povely
<< uvozuje odpovedi ze serveru
Zdravi
D. Toman
kamera
[*] Hurricane <hurricane(zv)quick(tec)cz> - 5.1.2001 20:39:01
Zdravim
Jak jsem kdysi posilal knihovnu k portum a televizi, tak mam jeste exampl na
normalni prohlizec TV (tusim ze ale pres Overlay) a program pro mereni sirky
predmetu TV kamerou. I se zdrojakama. Myslim, ze ke kamerovemo zjistovani
otevrenych dveri by se to dalo s uspechem pouzit.
Hurricane
----- Original Message -----
pride na to, jakym zpusobem bude resena indikace otevrenych dveri. Pokud
nejaky jinym snimacem, tak se tedy snimani obrazu bude spoustet dle vnejsiho
signalu ze snimace.
Pokud je nutno otevrene dvere indikovat z obrazu, je to asi komplikovanejsi.
Znamena to obraz snimat prubezne a vyhodnocovat. Zde je nutno zvolit vhodnou
metodu, dle okolnich podmine (tj. napr. bude se nejak vyrazne menit
osvetleni sceny behem dne, muze pred dvermi (i zavrenymi) obcas nekdo
prejit, muze tam nekdo neco odlozit, oprit koste vedle dveri...). Metoda
analyzy obrazu musi byt vybrana tak, aby indikovala prave jen otevrene dvere
a ne jine deje (budou-li). Moznosti me napdaji nasledujici.
1. V obraze vyhledavat hrany, tj. okraje dveri. Ty budou pri zavrenych na
miste. V pripade otevreni se zmeni jejeich poloha. Problem: pride na to jak
kontrastni je scena, muzou se vzhodnotit i futra pri otevrenych dveri...
2. Srovnavani se vzorovym snimkem, delat rozdil.
3. Srovnavani se vzorovym snimkem vzpostem korelacni fce.
Technicky je smaozrejme nutne obstarat framegraber s programatorskym
rozhranim nebo pres TWAIN.
PageProducer nebo DataSetQueryProducer???
[*] Delphi <delphi(zv)minv.sk> - 5.1.2001 12:18:24 -0800
Pouzi PageProducer. Mne sa vobec zlozity nezda. A spravis s tym vsetko.
Werki
PS: ak nevies ako, napis, poslem ti priklad. jendris(zv)minv.sk
BTW, ved je tam aj delphacky priklad niekde nie?
> ahoj,
> mam takove dilema: tabulku vytazenou z ORACLU pres QUERY. Nyni ji chci
prevest na html kod. Jdemi o to, ze nektere zaznamy chci jeste pred vlozenim
do html zmodifikovat...
>
> Pokud pouzivam PageProducer, pak se mi to zda pomerne slozite...
>
> Pokud pouzivam DataSetQueryProducer, nevim, jak modifikovat polozky.
Zkousel jsem v OnHTMLTag, ale nevim jak.
>
> Co je lepsi??? poradte prosim :-((
>
> S pozdravem Milan Cizek, D5 Ent
> _____________________________________________________________________
> Jak si stoj� kurz koruny? http://kurzy.seznam(tec)cz
poskozene ikony na palete Delphi
[*] Jan Psohlavec <j.psohlavec(zv)mbox.vol(tec)cz> - 5.1.2001 22:11:10
Setkal jsem se stejn�m probl�mem - chaotick� obr�zky ikon a probl�m byl
pr�v� v grafick� kart� S3 Trio 3D, tedy p�esn� v jej�m ovlada�i (zmi�uje se
o tom manu�l). Pod NT a 2000 je v#e v po��dku, ale grafick� driver pro W98 a
W95 je #patn�. Nem� cenu stahovat ani nejnov�j#� verzi ovlada�e pro W98 z
webu, proto�e probl�m potrv� d�le.
Jedin� #ance je vym�nit kartu, nebo syst�m, nebo si na ten nepo��dek
zvyknout.
Z�st�v�m s pozdravem
Jan Psohlavec
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ota Maly
Sent: Friday, January 05, 2001 9:19 AM
To: delphi-l(zv)fwd(tec)cz
Subject: poskozene ikony na palete Delphi
Ahoj,
po spusteni Delphi je vse OK, ale po natazeni jakehokoli projektu se mi
prekresli ikony na palete Standard castmi ikon z RxLib.
Verze Comctl32 je 5.81, graficka karta S3 Trio3D.
Vim, ze se to tady probiralo mnohokrat, ale me se to nikdy nestavalo. Pred
nedavnem jsem vsak instaloval RxLib, kterou jsem drive nepouzival.
Nevite, nema to nejakou souvislost s Rx?
A pochopitelne co s tim?
NT4SP5; D5UP1; RxLib tusim 2.75;
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
poskozene ikony na palete Delphi
[*] Pavel Lavicka <plavicka(zv)mbox.vol(tec)cz> - 5.1.2001 22:20:55
Obdobny problem jsem resil pred nekolika mesici, kdy mi takto zlobily Delphi
4. Zjistil jsem, ze tento efekt se vyskytuje prave pri pouziti grafickych
karet s chipem S3 Trio 3D. Pri pouziti graficke karty s jinym chipem tento
problem (alespon dle mych zkusenosti) nevznika. Protoze se mi nechtelo menit
grafickou kartu, vyresil jsem to tak, ze jsem v ovladacich panelech karty
snizil hardwarovou akceleraci na stupen Zakladni. Problem tim zmizel a pri
provozovani Delphi to prilis nevadi.
Hezky den preje
Pavel Lavicka
----- Original Message -----
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, January 05, 2001 9:19 AM
Subject: poskozene ikony na palete Delphi
> Ahoj,
> po spusteni Delphi je vse OK, ale po natazeni jakehokoli projektu se mi
> prekresli ikony na palete Standard castmi ikon z RxLib.
> Verze Comctl32 je 5.81, graficka karta S3 Trio3D.
>
> Vim, ze se to tady probiralo mnohokrat, ale me se to nikdy nestavalo. Pred
> nedavnem jsem vsak instaloval RxLib, kterou jsem drive nepouzival.
>
> Nevite, nema to nejakou souvislost s Rx?
> A pochopitelne co s tim?
>
> NT4SP5; D5UP1; RxLib tusim 2.75;
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.papouch.com
>
>Video
[*] stepan hamouz <hamik(zv)cbox(tec)cz> - 5.1.2001 22:53:13
Dik za radu , Je to hodn� zaj�mav� n�pad ale pro m� pou�it� je tak trochu
nevhodn�(Ten program
bude pou��vat t�ta a tomu nevisv�tl�m �e s t�m oknem nesm� hejbat ,ale to
asi v#ichni zn�me).
A ktomu zho#en� grafiky doh�z� proto�e mus�m poslat spr�vu SendMessage
(cwnd, WM_CAP_GRAB_FRAME, 0, 0);
kter� Video zastav� a zap�#e do Canvas.
Podle mn� posun okna by se dal je#t� vychytat ,ale p�ekrit� asi ne.
----- Original Message -----
From: "Peter Luk�cs" <batex(zv)astrafren(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 04, 2001 8:43 AM
Subject: Re: Video
> Pouzivam neco podobneho pro webcam. Snimam obrazek z canvas formu a ulozim
> ho do image a nepoznal jsem zadny rozdil kvality :)) Delam to asi takhle:
>
> procedure TForm1.FormToBitmap(Bitmap: TBitmap);
> var ScreenCanvas: TCanvas; file://pl�tno, kam se kresl�
> ScreenRect: TRect;
> begin
> ScreenRect := Rect(0 {Form1.Left}, 0{Form1.Top},
> 348{clientwidth},288{clientheight}); file://velikost snimaneho okna
> Bitmap.Height := ScreenRect.Bottom;
> Bitmap.Width := ScreenRect.Right;
> ScreenCanvas := TCanvas.Create;
> try file://zjist�me handle plochy
> ScreenCanvas.Handle := canvas.handle;//GetWindowDC(GetDesktopWindow);
> file://a vlo��me do bitmapy
> Bitmap.Canvas.CopyRect(ScreenRect, ScreenCanvas, ScreenRect);
> finally file://nakonec je#t� uvoln�me nepot�ebn� pl�tno
> ScreenCanvas.Free;
> end; {try/finally/end}
> end;
>
> ma to sice jeden neduh - jestlize okno prekryje jina aplikace nebo dojde k
k
> jeho minimalizaci, uklada se obraz, ktery je na stejnem miste jakko
puvodni
> vieookno... me to ale nevadi - muzu snimat i jine veci, nez obrazky z
kamery
> :))
>
> S pozdravem Batex
> ----- Original Message -----
> From: stepan hamouz
> To: delphi-l(zv)fwd(tec)cz
> Sent: Wednesday, January 03, 2001 7:47 PM
> Subject: Video
>
>
> Ahoj.
> M�m takov� probl�m.
> Mam aplikaci kter� zobrazuje video pomoc� fce "CapCreateWindow".
> a toto video pot�ebuji ukl�dat do AVI.
> Co� se mi u� jak# tak da�� , ale to video je hrozn� velk� a p�itom je v
> hrozn� kvalit�.
> Ukl�d�m to asi takhle
>
> SendMessage (cwnd, WM_CAP_GRAB_FRAME, 0, 0);
> BitBlt(Image2.Canvas.Handle, 0, 0, Image2.Width, Image2.Height,
> GetDC(cwnd), 0, 0, SRCCOPY);
>
> -Nap�ed p�ekop�ruji obraz do Komponenty "Image2" a potom ho ukl�d�m, ale
u�
> jako p�ekop�rovan� m� #patnou
> kvalitu(p�i ulo�en� se je#t� zhor#�). (probl�m je asi v obouh p��padech v
> nastaven� po�tu bitu obr�zku?????)
>
> Nev�te n�kdo jak by se to dalo �e#it jinak.
> Budu r�d za ka�dou radu.
> Dik.
>Video
[*] stepan hamouz <hamik(zv)cbox(tec)cz> - 5.1.2001 22:53:28
D�k.
Moje karta komprimaci podporuje ,ale nev�m jak j� pou��t dialog Komprese
Vide mi nab�dne
pouze upln� sn�mky bez komprese a ve struktu�e AVICOMPRESSOPTIONS sem na nic
tak� nep�i#el.
Mo�n� �e by mi sta�ila i SW komprimace ,ale m�m podobn� probl�m -nevi jak
��kou pou��t.
�as by na to snad ��k� byl proto�e ukl�d�m asi tak 5 snimk�/s na PIII 500.
Jo a ktomu zhor#en� kvality doch�z� d�ky spr�v� SendMessage (cwnd,
WM_CAP_GRAB_FRAME, 0, 0);
----- Original Message -----
From: "Vaclav Krmela" <krmela(zv)ustinadorlici(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, January 04, 2001 9:40 AM
Subject: Re: Video
> From: stepan hamouz
>
> > Mam aplikaci kter� zobrazuje video pomoc� fce
> > "CapCreateWindow" a toto video pot�ebuji ukl�dat do AVI.
> > Co� se mi u� jak# tak da�� , ale to video je hrozn� velk�
> > a p�itom je v hrozn� kvalit�.
>
> Ukladat do AVI je siroky pojem, jaky AVI mas na mysli?
> Bez komprese to nepujde, na to asi nemas dostatecne
> vykony pocitac.
> Podporuje tvoje digitalizacni karta HW kompresi?
> Pokud ano, pouzij ji. Potom ale to vysledne AVI
> neprohlidnes nikde jinde.
> Pouzivas SW kompresi? Potom musis hledat kompromis
> mezi kvalitou a vykonem pocitace.
>
> Pokud budes ukladat do AVI, vzdy to bude velke.
> Muzes ale pouzit naslednou MPEG kompresi,
> doporucuji MPEG-4.
>
> Muzes zkusit i On-line MPEG-4 kompresi s vyuzitim
> Windows Media Encoderu. Tim se da udelat zaznam
> v prijatelne kvalite o velikosti 5 MB / minutu.
> Zalezi hodne na tom, co budes povazovat
> za prijatelnou kvalitu.
>
> > Ukl�d�m to asi takhle
> > SendMessage (cwnd, WM_CAP_GRAB_FRAME, 0, 0);
> > BitBlt(Image2.Canvas.Handle, 0, 0, Image2.Width, Image2.Height,
> > GetDC(cwnd), 0, 0, SRCCOPY);
> >
> > -Nap�ed p�ekop�ruji obraz do Komponenty "Image2"
> > a potom ho ukl�d�m, ale u� jako p�ekop�rovan� m� #patnou
> > kvalitu(p�i ulo�en� se je#t� zhor#�).
> > (probl�m je asi v obouh p��padech v nastaven� po�tu bitu obr�zku?????)
>
> Ja ukladam staticke obrazky pomoci funkce
> WM_CAP_FILE_SAVEDIB do docasneho pracovniho
> souboru, na ktery automaticky aplikuji JPEG kompresi.
>
> Samotnym kopirovanim se kvalita nemuze zhorsovat.
> Nekvalitu je treba hledat hned na vstupu.
>
> Vaclav Krmela
>
>
>sys. zdroje a DLL
[*] Hurricane <hurricane(zv)quick(tec)cz> - 5.1.2001 23:24:27
Zdravim
Zajimalo by me, jak je to se systemovymi zdroji pro pouziti DLL. Mam
primitivni aplikaci: tlacitko, deklarace funkce v DLL a procedura k tlacitku
v ktery je jen spusteni te externi procedury. Na prvni pohled se chova
svizne, jako by byla opravdu jen takova mala primitivni. Ale porad mi vrta
hlavou, jestli si za sebou netahne zatez v podobe DLL.
Chtel bych vedet, do jake miry zabira DLL systemove zdroje i kdyz neni prave
pouzita. Pri spusteni se jen zkontroluje pritomnost funkce v DLL a ta se
hned zase odpoji, nebo zustane pripojena? Na tom AboutFormu v DLL mam veliky
obrazek (0.5MB) a nechci aby byl uvnitr hlavni aplikace. Usetrim tim hodne
kdyz ho nacpu do DLL?
Diky moc vsem
Hurricane
ADO a OleDB instalace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.1.2001 11:04:21
On 5 Jan 2001, at 16:57, Libor Stujan wrote:
> Vytvoril jsem aplikaci, ktera pouziva ADO komponenty z Delphi a k
> DB (Oracle) pristupuji pomoci OLEDB provider (MSDAORA.1).
>
> Ted ale nevim co vsechno potrebuji zahrnout do instalace, tak
> aby mi program chodil i na ostatnich PC. Instalaci rozumim
> prenos souboru, pripadne pomoci Inno Setupu, nebo jiny skvely
> napad mate? (ne prepisovat celou aplikaci prosim ;-)
Urcite tam bude muset byt MDAC (krome W2000, kde zas musi
byt aktualni SP - podle verze ADO, kterou pouzivas), a jeste pred
tim nejspis i IE ve verzi, kterou vyzaduje MDAC. Tot by melo byt
vse, protoze driver pro Oracle je standardni soucasti MDAC.
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
D5 a Win2000
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.1.2001 14:34:11
DD,
je normalni, ze na Win2000 v D5 IDE nemam pristupne Event log debug window (neni vubec v seznamu debug oken) a take nefunguje browsing symbolu - Alt S+Y (chybi v menu Search ) ??
D. Toman
List Index Out Of Bound a mwEdit
[*] Hurricane <hurricane(zv)quick(tec)cz> - 6.1.2001 16:18:46
Zdravim
Mam nejnovejsi mwEdit (tusim ze 0.92a) a mam takovyto problem. Mam v nem
napsany text, kurzor nekde v textu a ja ho vyberu pomoci Ctrl+Shift+End
(kurzor je ted pod poslednim radkem s textem) a smazu ho pomoci Del. V tom
na me vyskoci hlaska List Index Out Of Bounds (cislo). Cisle je vzdy cislo
radku kde byl kurzor pred vyberem. Ale jinak vse funguje normalne, text se
smazal tak jak sem chtel. Nemate nekdo tuseni, v cem je problem?
Pro uplnost jeste pridavam funkci a radek na ktere se kompilator zastavi a
oznaci ho modre.
function TmwCustomEdit.GetSelText: string;
function CopyPadded(const S: string; Index, Count: integer): string;
var
SrcLen: Integer;
DstLen: integer;
P: PChar;
begin
SrcLen := Length(S);
DstLen := Index + Count;
if SrcLen >= DstLen then
Result := Copy(S, Index, Count)
else begin
SetLength(Result, DstLen);
P := PChar(Result);
StrPCopy(P, Copy(S, Index, Count));
Inc(P, Length(S));
FillChar(P^, DstLen - Srclen, $20);
end;
end;
procedure CopyAndForward(const S: string; Index, Count: Integer; var P:
PChar);
var
pSrc: PChar;
SrcLen: Integer;
DstLen: Integer;
begin
SrcLen := Length(S);
if (Index <= SrcLen) and (Count > 0) then begin
Dec(Index);
pSrc := PChar(S) + Index;
DstLen := Min(SrcLen - Index, Count);
Move(pSrc^, P^, DstLen);
Inc(P, DstLen);
P^ := #0;
end;
end;
procedure CopyPaddedAndForward(const S: string; Index, Count: Integer;
var P: PChar);
var
OldP: PChar;
Len: Integer;
begin
OldP := P;
CopyAndForward(S, Index, Count, P);
Len := Count - (P - OldP);
FillChar(P^, Len, #$20);
Inc(P, Len);
end;
const
sLineBreak = #$0D#$0A;
var
First, Last, TotalLen: Integer;
ColFrom, ColTo: Integer;
I: Integer;
{$IFDEF MWE_MBCSSUPPORT}
l, r: Integer;
s: string;
{$ELSE}
ColLen: integer;
{$ENDIF}
P: PChar;
begin
if not SelAvail then
Result := ''
else begin
with BlockBegin do begin
ColFrom := X;
First := Y - 1;
end;
with BlockEnd do begin
ColTo := X;
Last := Y - 1;
end;
TotalLen := 0;
case SelectionMode of
smNormal:
if (First = Last) then
Result := Copy(Lines[First], ColFrom, ColTo - ColFrom)
else begin
// step1: calclate total length of result string
TotalLen := Max(0, Length(Lines[First]) - ColFrom + 1);
for i := First + 1 to Last - 1 do
Inc(TotalLen, Length(Lines[i])); //////// ZDE JE CHYBA
Inc(TotalLen, ColTo - 1);
Inc(TotalLen, Length(sLineBreak) * (Last - First));
// step2: build up result string
SetLength(Result, TotalLen);
P := PChar(Result);
CopyAndForward(Lines[First], ColFrom, MaxInt, P);
CopyAndForward(sLineBreak, 1, MaxInt, P);
for i := First + 1 to Last - 1 do begin
CopyAndForward(Lines[i], 1, MaxInt, P);
CopyAndForward(sLineBreak, 1, MaxInt, P);
end;
CopyAndForward(Lines[Last], 1, ColTo - 1, P);
end;
smColumn:
begin
if ColFrom > ColTo then
SwapInt(ColFrom, ColTo);
// step1: calclate total length of result string
{$IFNDEF MWE_MBCSSUPPORT}
ColLen := ColTo - ColFrom;
TotalLen := ColLen + (ColLen + Length(sLineBreak)) * (Last -
First);
// step2: build up result string
SetLength(Result, TotalLen);
P := PChar(Result);
for i := First to Last - 1 do begin
CopyPaddedAndForward(Lines[i], ColFrom, ColLen, P);
CopyAndForward(sLineBreak, 1, MaxInt, P);
end;
CopyPaddedAndForward(Lines[Last], ColFrom, ColLen, P);
{$ELSE} //MWE_MBCSSUPPORT
for i := First to Last do begin
s := Lines[i];
l := ColFrom;
r := ColTo;
MBCSGetSelRangeInLineWhenColumnSelectionMode(s, l, r);
Inc(TotalLen, r - l);
end;
Inc(TotalLen, Length(sLineBreak) * (Last - First));
// step2: build up result string
SetLength(Result, TotalLen);
P := PChar(Result);
for i := First to Last - 1 do begin
s := Lines[i];
l := ColFrom;
r := ColTo;
MBCSGetSelRangeInLineWhenColumnSelectionMode(s, l, r);
CopyPaddedAndForward(s, l, r - l, P);
CopyAndForward(sLineBreak, 1, MaxInt, P);
end;
s := Lines[Last];
l := ColFrom;
r := ColTo;
MBCSGetSelRangeInLineWhenColumnSelectionMode(s, l, r);
CopyPaddedAndForward(Lines[Last], l, r - l, P);
{$ENDIF}
end;
smLine:
begin
// If block selection includes LastLine,
// line break code(s) of the last line will not be added.
// step1: calclate total length of result string
for i := First to Last do
Inc(TotalLen, Length(Lines[i]) + Length(sLineBreak));
if Last = Lines.Count then
Dec(TotalLen, Length(sLineBreak));
// step2: build up result string
SetLength(Result, TotalLen);
P := PChar(Result);
for i := First to Last - 1 do begin
CopyAndForward(Lines[i], 1, MaxInt, P);
CopyAndForward(sLineBreak, 1, MaxInt, P);
end;
CopyAndForward(Lines[Last], 1, MaxInt, P);
if (Last + 1) < Lines.Count then
CopyAndForward(sLineBreak, 1, MaxInt, P);
end;
end;
end;
end;
Prostredi Delhi - vkladani kodu
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 6.1.2001 18:19:14
Prijemny den,
pouzivam D5Prof a Win 95 OSR2
Kdyz programuji v je docela pracne vypisovat znovu a znovu stejny kod (napr.
cykly). Je jasne, ze tam musi byt FOR TO DO pripadne BEGIN a END, nebo IF
THEN pripadne BEGIN END ELSE BEGIN END. V Delphi 5 jsem nasel v menu
"Tools/Editor Options..." kartu "Code Insight" a na ni "Code templates". Zda
se, ze je to to co potrebuji, ze by to na nejakou zkratku vlozilo cast casto
se vyskytujiciho kodu do programu. Ale nevim jak to pouzit. Uz jsem zjistil
jak to zmenit nebo upravit, ale nevim jak to pouzit pri programovani.
Trapne, co?
Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
S pozdravem Straka Josef,
kteremu uz kukacka 28krat oznamila jaro.
e-mail: strakaj(zv)hbnet(tec)cz
www: http://strakaj.zde(tec)cz
Synchronizace adresaru
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 6.1.2001 18:19:36
Prijemny den,
pouzivam D5Prof a Win 95 OSR2
Mam dnes dotaz na sysnchronizovani adresaru. Chtel bych udelat takovou
malou zalohovaci aplikaci, ktera bude udrzovat vzdy parove adresare ve
stejnem stavu. Do primarniho dodam nebo zmenim nejaky soubor a po nejakem
case jsem informovan o tom, ze bych mel provest sysnchronizaci. Nevite nekdo
jak nalozit s problemem udrzovani adresaru ve stejnem stavu?
Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
S pozdravem Straka Josef, kukacka kukla 28krat jaro.
e-mail: strakaj(zv)hbnet(tec)cz
www: http://strakaj.zde(tec)cz
Problem s cykly
[*] Ing. Ondrej Riha <coolcalle(zv)seznam(tec)cz> - 06.1.2001 20:21:33
Mam problem s cykly. Delphi se teprve ucim. Potreboval bych vedet jak udelat cyklus ktery vykonava nejakou cinost, dokud se nezmackne klavesa (jakakoliv). Potrebuju aby ten cyklus ovsem necekal na ten stisk klavesy ale pracoval. V Pascalu bych to udelal asi
repeat
......
until keypressed;
Ale jak to ud�lat v Delphi to nev�m. Pripadne by mohl cyklus reagovat na click praveho tlacitka mysi. Dekuji predem za pomoc.
Ondrej Riha
Delphi zacatecnik
coolcalle(zv)seznam(tec)cz
_____________________________________________________________________
Hled�n� lid� a jejich e-mail�: http://www.lide(tec)cz
Problem s cykly
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 6.1.2001 21:55:26
Ahoj
take jednoduche ako v starom pascale to nebude ale ...
vytvor si formular, ktoreho deklaracia vyzera asi takto
type
TForm1 = class(TForm)
private
FKeyPressed: Boolean; // test, ci uzivatel stlacil pozadovanu klavesu
public
{ Public declarations }
end;
vytvor si udalost, ked uzivatel stlaci nejaku klavesu
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = KLAVESA_KTORU_POTREBUJEM then FKeyPressed:= True;
end;
pomom ten svoj cyklus mozes napisat napriklad takto
while not (FKeyPressed) do begin
// tu je tvoj kod
RobNieco();
// !!! DOLEZITE !!!, umozni precitat pripadnu udalost zo zoznamu sprav
Application.ProcessMessages;
end;
A ked budes potrebovat reagovat na stlacenie praveho tlacitka nad
formularom,
staci ked pridas obsluhu udalosti:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then FKeyPressed:= True;
end
Dufam, ze ti to trochu pomoze :)
Tomas
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ing. Ondrej Riha
> Sent: Saturday, January 06, 2001 8:22 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Problem s cykly
>
>
> Mam problem s cykly. Delphi se teprve ucim. Potreboval bych vedet
> jak udelat cyklus ktery vykonava nejakou cinost, dokud se
> nezmackne klavesa (jakakoliv). Potrebuju aby ten cyklus ovsem
> necekal na ten stisk klavesy ale pracoval. V Pascalu bych to udelal asi
>
> repeat
> ......
> until keypressed;
>
> Ale jak to ud�lat v Delphi to nev�m. Pripadne by mohl cyklus
> reagovat na click praveho tlacitka mysi. Dekuji predem za pomoc.
>
> Ondrej Riha
> Delphi zacatecnik
> coolcalle(zv)seznam(tec)cz
>
> _____________________________________________________________________
> Hled�n� lid� a jejich e-mail�: http://www.lide(tec)cz
>Prostredi Delhi - vkladani kodu
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 6.1.2001 23:18:55
Ahoj
mozes skusit kombinaciu CRTL-J.
Tomas
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Josef Straka
> Sent: Saturday, January 06, 2001 6:19 PM
> To: Delphi
> Subject: Prostredi Delhi - vkladani kodu
>
>
> Prijemny den,
> pouzivam D5Prof a Win 95 OSR2
>
> Kdyz programuji v je docela pracne vypisovat znovu a znovu stejny
> kod (napr.
> cykly). Je jasne, ze tam musi byt FOR TO DO pripadne BEGIN a END, nebo IF
> THEN pripadne BEGIN END ELSE BEGIN END. V Delphi 5 jsem nasel v menu
> "Tools/Editor Options..." kartu "Code Insight" a na ni "Code
> templates". Zda
> se, ze je to to co potrebuji, ze by to na nejakou zkratku vlozilo
> cast casto
> se vyskytujiciho kodu do programu. Ale nevim jak to pouzit. Uz
> jsem zjistil
> jak to zmenit nebo upravit, ale nevim jak to pouzit pri programovani.
> Trapne, co?
>
> Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
> S pozdravem Straka Josef,
> kteremu uz kukacka 28krat oznamila jaro.
> e-mail: strakaj(zv)hbnet(tec)cz
> www: http://strakaj.zde(tec)cz
>
>
> PChar a prazdny retezec
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.1.2001 00:16:45
DD,
Bud me to uz nemysli nebo mi Borlandi neco zatajili :-(
Nasledujici kod nedela to co bych cekal (D5):
VAR
P: PChar;
begin
P := '';
if P <> '' then
AkceNerovno;
end;
AkceNerovno se vykona pokazde (podmika je zdy splnena) - nebot porovnani Delphi provadi, tak, ze kontroluje zda promenna P obsahuje neco jineho nez NIL. To by tak nevadilo, kdyby P:='' nastavovalo promennou P na NIL (ale ono ji nastavuje tak, ze ukazuje na nulovy byte v pameti - Borlandi chteji aby byl PChar jednoduse priraditelny stringu i pokud neobsahuje znaky). Cili nekdo tady neco nedomyslel. Nebo musim PChar na prazdny text testovat jinak?
Vyresil jsem to pouzitim konverzni funkce:
Function GetZStrValue(P : PChar) : String;
begin
if (zv)P <> NIL then
Result := StrPas(P);
end;
Zdravi
D. Toman
Rozli�en�
[*] Va�ek N�vrat <engine(zv)ropacek(tec)cz> - 7.1.2001 01:12:16
Jeste nez jsem presel na zmenu rozliseni pomoci DirectX, tak jsem vyuzival
tuto funkci, ktera testuje mozne barevne hloubky pro dane rozliseni a prepne
si rozliseni na pozadovane s nejlepsi barvnou hloubkou, co dana karta
utahne:
----------
Function REChangeResolution (Zmena: boolean): string;
var DevMode: TDevMode; DevMode_Err: TDevMode absolute 0;
begin
Case Zmena of
True:
begin
With DevMode do begin DevMode.dmBitsPerPel:= 24; DevMode.dmPelsWidth:= 800;
DevMode.dmPelsHeight:= 600; DevMode.dmFields:=DM_BITSPERPEL or DM_PELSWIDTH
or DM_PELSHEIGHT; end;
if ChangeDisplaySettings (DevMode, CDS_FULLSCREEN) <> 0
then begin DevMode.dmBitsPerPel:= 16; if ChangeDisplaySettings (DevMode,
CDS_FULLSCREEN) <> 0
then begin DevMode.dmBitsPerPel:= 8; if ChangeDisplaySettings (DevMode,
CDS_FULLSCREEN) <> 0
then begin ChangeDisplaySettings (DevMode_Err, CDS_FULLSCREEN);
application.MessageBox (pchar('Va#e grafick� karta pravd�podobn� nepodporuje
rozli#en� 800x600 v 256 barv�ch nebo vy##�ch, kter� program pot�ebuje ke
sv�mu spr�vn�mu b�hu.'),pchar('Chyba rozli#en�'),mb_iconerror); Halt; end;
end; end;
end;
False:
ChangeDisplaySettings(DevMode_Err,CDS_FULLSCREEN);
end
end;
----------
S pranim pekneho dne
Vasek Navrat
www.newreality(tec)cz
darklogic(zv)darklogic(tec)cz
----- Original Message -----
From: "Ondrej Skipala" <OSkip(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, December 27, 2000 8:04 PM
Subject: Rozli#en�
Ned�vno jsem se ot�zal, zda existuje n�jak� p��kaz na zm�nu rozli#en�.
P�i#la mi odpov�� �e ano a abych se pod�val na n�jak� str�nky, kter� byli v
angli�tin�. Pros�m v�s p�kn�, mohli byste mi napsat p��mo p��kaz do
procedury na p�epnut� rozli#en� na 800x600(32)
Na internetov�ch str�nk�ch v angli�tin� se velmi #patn� orientuji :(
��kuji
_____________________________________________________________________
Hled�n� lid� a jejich e-mail�: http://www.lide(tec)cz
Prostredi Delhi - vkladani kodu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.1.2001 09:34:18
6.1.2001 Josef Straka :
> Prijemny den,
> pouzivam D5Prof a Win 95 OSR2
> Kdyz programuji v je docela pracne vypisovat znovu a znovu stejny kod (napr.
> cykly). Je jasne, ze tam musi byt FOR TO DO pripadne BEGIN a END, nebo IF
> THEN pripadne BEGIN END ELSE BEGIN END. V Delphi 5 jsem nasel v menu
> "Tools/Editor Options..." kartu "Code Insight" a na ni "Code templates". Zda
> se, ze je to to co potrebuji, ze by to na nejakou zkratku vlozilo cast casto
> se vyskytujiciho kodu do programu. Ale nevim jak to pouzit. Uz jsem zjistil
> jak to zmenit nebo upravit, ale nevim jak to pouzit pri programovani.
> Trapne, co?
Pokud jsi zjistil jak to upravit, urcite sis vsiml zkratek jako je
IFB, IFE atd. Pokud v kodu napises IFB a Ctrl+J, doplni se ti tam
pozadovana cast kodu.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Video
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.1.2001 10:10:23
From: "stepan hamouz" <hamik(zv)cbox(tec)cz>> Moje karta komprimaci podporuje ,ale nev�m jak j� pou��t dialog Komprese
> Vide mi nab�dne
> pouze upln� sn�mky bez komprese a ve struktu�e AVICOMPRESSOPTIONS sem na
nic
> tak� nep�i#el.
> Mo�n� �e by mi sta�ila i SW komprimace ,ale m�m podobn� probl�m -nevi jak
> ��kou pou��t.
Dialog volany funkci WM_CAP_DLG_VIDEOCOMPRESSION
neni dialogem digitalizacni karty, ale je dialogem Windows.
V tomto dialogu se vybiraji jednotlive SW kompresni kodeky
instalovane v systemu Windows jako zarizeni na kompresi videa.
Z tohoto dialogu je mozne i jednotlive nastavovat parametry
kazdeho tohoto kodeku, pokud to ten ktery kodek umoznuje.
V tomto dialogu je drobna chybicka, po rozbaleni Combo boxu
je nulova vyska jeho seznamu polozek. Klavesami Up/Down
lze ale mezi jednotlivymi polozkami prechazet.
Pokud digitalizacni karta ma svoji vlastni HW podporu
komprese, je prednostne pouzita komprese HW a
SW kodeky se jiz neuplatni. V tom pripade jsou
v dialogu WM_CAP_DLG_VIDEOCOMPRESSION
nabizeny pouze zarizeni bez dalsi komprese.
Nastaveni HW komprese je nutne provest pomoci ovladace
konkretni karty. K tomu slouzi dialogy
WM_CAP_DLG_VIDEOFORMAT
WM_CAP_DLG_VIDEOSOURCE
WM_CAP_DLG_VIDEODISPLAY
Ne vsechny karty musi nabizet vsechny tyto dialogy.
Zda konkretni ovladac karty nabizi konkretni dialog
lze predem zjistit pomoci funkce
WM_CAP_DRIVER_GET_CAPS
Nastaveni HW komprese bych hledal nejspise na prvnim
z uvedenych dialogovych oken.
Oba popisovane zpusoby komprese se uplatni
pouze pri snimani plynuleho videa, nikoliv pri grabovani
statickych snimku. Staticke snimky budou asi vzdy
grabovany bez komprese do DIB.
> Jo a ktomu zhor#en� kvality doch�z� d�ky spr�v� SendMessage (cwnd,
> WM_CAP_GRAB_FRAME, 0, 0);
Znovu opakuji, ze samotne pouziti funkce
WM_CAP_GRAB_FRAME nemuze vest ke zhorseni
kvality snimku. Pokud ke zhorseni dochazi, musi byt
pricina jinde.
> > > Ukl�d�m to asi takhle
> > > SendMessage (cwnd, WM_CAP_GRAB_FRAME, 0, 0);
> > > BitBlt(Image2.Canvas.Handle, 0, 0, Image2.Width, Image2.Height,
> > > GetDC(cwnd), 0, 0, SRCCOPY);
> > >
> > > -Nap�ed p�ekop�ruji obraz do Komponenty "Image2"
> > > a potom ho ukl�d�m, ale u� jako p�ekop�rovan� m� #patnou
> > > kvalitu(p�i ulo�en� se je#t� zhor#�).
Pricinu bych hledal na dvou mistech
- v nastaveni barevne hloubky displeje, pokud jsou zkreslovany barvy
- v nastaveni velikosti snimaciho okna, pokud je nedostatecne
rozliseni snimku
Znovu doporucuji zkusit funkci WM_CAP_FILE_SAVEDIB,
ktera ulozi snimek do souboru v originalni barevne hloubce
a velikosti, nastavene v dialozich digitalizacni karty.
Vaclav Krmela
Hledani a preskoky v binarnim souboru
[*] Robert Kindl <rob(zv)exec(tec)cz> - 7.1.2001 11:49:43
> Co jsem kde a jak pouzil, viz nize. Doufam, ze i Robert Kindl se s
> nami podeli o jeho algoritmus, abychom mohli porovnat dalsi
> techniku. Klidne se toho ujmu.
> Zbysek Hlinka
No dlouho jsem necetl postu, takze reaguji o neco pozdeji.
http://www.exec(tec)cz/kindl
zde je ke stazeni moje diplomova prace na dane tema.
Je to v podobe z roku 1994 takze pro TurboPascal.
Rob
poskozene ikony na palete Delphi
[*] Hurricane <hurricane(zv)quick(tec)cz> - 7.1.2001 12:52:36
Zdravim
Mam graf. Diamond Stealth II S220 a obcas se mi vyskytuje obdobny problem.
Kdyz se mi nejak spatne zkompiluje program nebo se to sekne, sem tam
(parkrat do roka) se mi uplne popletou ikony v TImageList. Vsechny tyto
popletene ikony vyhazim a nahraju je znova a vsechno je OK. Nevim jestli to
souvisi s grafickou, mozna se jen uplne zprehazely cisla v DFM.
Hurricane
----- Original Message -----
Setkal jsem se stejn�m probl�mem - chaotick� obr�zky ikon a probl�m byl
pr�v� v grafick� kart� S3 Trio 3D, tedy p�esn� v jej�m ovlada�i (zmi�uje se
o tom manu�l). Pod NT a 2000 je v#e v po��dku, ale grafick� driver pro W98 a
W95 je #patn�. Nem� cenu stahovat ani nejnov�j#� verzi ovlada�e pro W98 z
webu, proto�e probl�m potrv� d�le.
Jedin� #ance je vym�nit kartu, nebo syst�m, nebo si na ten nepo��dek
zvyknout.setrizeni OraQuery
[*] Milan ��ek - 7.1.2001 13:06:30
ahoj,
mam OraQuery, pomoci SQL ziskam vysledek OraQuery (tabulku), nyni potrebuju
tridit vysledek dotazu podle sloupce... ale jak?
Nebo musim zkopirovat vysledek dotazu do jine tabulky??
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.225 / Virov� b�ze: 107 - datum vyd�n�: 22.12.2000
PChar a prazdny retezec
[*] Hurricane <hurricane(zv)quick(tec)cz> - 7.1.2001 13:07:50
Zdravim
IMHO sy myslim, ze pomoci if P <> '' then muzes porovnavat String, ale ne
PChar. PChar obsahuje na konci nuly, kdezto String ne. Muzes porovnavat dva
Stringy nebo dva PChary ale ne navzajem. Musis jednu promennou prevest na
druhy typ. Pouzij if P <> Pchar(''), to funguje.
Hurricane
----- Original Message -----
> Bud me to uz nemysli nebo mi Borlandi neco zatajili :-(
>
> Nasledujici kod nedela to co bych cekal (D5):
>
> VAR
> P: PChar;
> begin
> P := '';
> if P <> '' then
> AkceNerovno;
> end;
>
> AkceNerovno se vykona pokazde (podmika je zdy splnena) - nebot porovnani
Delphi provadi, tak, ze kontroluje zda promenna P obsahuje neco jineho nez
NIL. To by tak nevadilo, kdyby P:='' nastavovalo promennou P na NIL (ale ono
ji nastavuje tak, ze ukazuje na nulovy byte v pameti - Borlandi chteji aby
byl PChar jednoduse priraditelny stringu i pokud neobsahuje znaky). Cili
nekdo tady neco nedomyslel. Nebo musim PChar na prazdny text testovat jinak?
>
> Vyresil jsem to pouzitim konverzni funkce:
> Function GetZStrValue(P : PChar) : String;
> begin
> if (zv)P <> NIL then
> Result := StrPas(P);
> end;
>
> Zdravi
> D. Toman
>sys. zdroje a DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2001 15:11:58
From: "Hurricane" <hurricane(zv)quick(tec)cz>
Ahoj,
> Zajimalo by me, jak je to se systemovymi zdroji pro pouziti DLL. Mam
Naprosto stejne jako v EXE.
> Chtel bych vedet, do jake miry zabira DLL systemove zdroje i kdyz neni prave
> pouzita. Pri spusteni se jen zkontroluje pritomnost funkce v DLL a ta se
> hned zase odpoji, nebo zustane pripojena? Na tom AboutFormu v DLL mam veliky
> obrazek (0.5MB) a nechci aby byl uvnitr hlavni aplikace. Usetrim tim hodne
> kdyz ho nacpu do DLL?
DLL se namapuje do pametoveho prostoru procesu, pak uz vicemene neni rozdilu
mezi 'kodem aplikace' a 'kodem DLL'. Problem je spise v pouziti VCL v DLL, pak
mas totiz v jednom procesu kod VCL vlastne dvakrat, coz je ponekud zbytecne a
je treba osetrovat aby si VCL mezi sebou rozumely (viz Application.Handle).
Pokud mas v DLL jen jedno okno, tak bych zvazil pouziti API misto VCL. Jine a
asi nejlepsi reseni je pouziti balicku (jak v EXE, tak v te DLL), pak muzes
bez problemu pouzit VCL v obou pripadech, navic balicek bude velmi maly. Uplne
ti staci pouzit zakladni VCLx0 balicek.
Petr Vones, amatersky programator
D5 a Win2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2001 15:13:39
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> je normalni, ze na Win2000 v D5 IDE nemam pristupne Event log debug window
(neni vubec v seznamu debug oken) a take nefunguje browsing symbolu - Alt S+Y
(chybi v menu Search ) ??
Ahoj,
to normalni neni. Patrne se to nejak spatne nainstalovalo. Me funguje D5.01 na
Win2k US SP1 bez problemu.
Petr Vones, amatersky programator
PChar a prazdny retezec
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2001 15:25:24
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> AkceNerovno se vykona pokazde (podmika je zdy splnena) - nebot porovnani
Delphi provadi, tak, ze kontroluje zda promenna P obsahuje neco jineho nez
NIL. To by tak nevadilo, kdyby P:='' nastavovalo promennou P na NIL (ale ono
ji nastavuje tak, ze ukazuje na nulovy byte v pameti - Borlandi chteji aby byl
PChar jednoduse priraditelny stringu i pokud neobsahuje znaky). Cili nekdo
tady neco nedomyslel. Nebo musim PChar na prazdny text testovat jinak?
Ahoj,
P := '' nemuze nastavit nil, protoze nil a '' neni totez. Nekdy se predanim
nil rozumi prazdny parametr a predanim '' hodnota retezce - prazdny.
Porovnani tak jak jej chces by slo udelat treba takhle:
procedure TForm1.Button1Click(Sender: TObject);
var
P: PChar;
begin
P := '';
if StrPas(P) <> '' then
ShowMessage('<>''''');
end;
Petr Vones, amatersky programator
Problem s cykly
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.1.2001 18:10:23
From: "Tomas Skoda" <tomas.skoda(zv)jdsoftware.sk>
> while not (FKeyPressed) do begin
> // tu je tvoj kod
> RobNieco();
> // !!! DOLEZITE !!!, umozni precitat pripadnu udalost zo zoznamu sprav
> Application.ProcessMessages;
Ahoj,
pouziti Application.ProcessMessages ve vlastni smycce je vzdy ponekud
problematicke. Aplikace bude totiz 'viset' ve smycce i v pripade, ze se
pozaduje jeji ukonceni. Urcitym resenim by byla uprava na:
procedure TForm1.Button1Click(Sender: TObject);
begin
FPressed := False;
while not FPressed do
begin
Label1.Caption := TimeToStr(Now);
Application.ProcessMessages;
if Application.Terminated then
Break;
end;
end;
Jina reseni: Za prve by bylo dobre uvest konkretnejsi priklad toho, k cemu je
takova smycka nutna. Windows jsou rizene zpravami, takze by bylo lepsi se
snazit vyuzit tento mechanismus.
Petr Vones, amatersky programator
Hledani a preskoky v binarnim souboru
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.1.2001 18:49:54
On 7 Jan 2001, at 11:49, Robert Kindl wrote:
> > Co jsem kde a jak pouzil, viz nize. Doufam, ze i Robert Kindl se s
> > nami podeli o jeho algoritmus, abychom mohli porovnat dalsi
> > techniku. Klidne se toho ujmu. Zbysek Hlinka
>
> No dlouho jsem necetl postu, takze reaguji o neco pozdeji.
>
> http://www.exec(tec)cz/kindl
Dival jsem se na to, nejrychleji (z tveho vzorku) mi na velkem textu
vychazel ExtBMH, nikoliv Shit-Or algoritmus.
Konecne automaty jsem zatim neimplementoval, protoze tam
pracujes s pameti zpusobem nepouzitelnym ve Woknech.
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
poskozene ikony na palete Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2001 01:37:52
From: "Pavel Lavicka" <plavicka(zv)mbox.vol(tec)cz>
> 4. Zjistil jsem, ze tento efekt se vyskytuje prave pri pouziti grafickych
> karet s chipem S3 Trio 3D. Pri pouziti graficke karty s jinym chipem tento
> problem (alespon dle mych zkusenosti) nevznika. Protoze se mi nechtelo menit
> grafickou kartu, vyresil jsem to tak, ze jsem v ovladacich panelech karty
> snizil hardwarovou akceleraci na stupen Zakladni. Problem tim zmizel a pri
Ahoj,
to je dost zoufale reseni, navic dnes neni prilis duvodu proc pouzivat zrovna
S3 karty, v levne kategorii lze koupit i jine. U Win9x je jeste jedna moznost
v zapsani 'BusThrottle = 1' do [display] sekce SYSTEM.INI souboru:
http://community.borland.com/article/0,1410,19602,00.html
Petr Vones, amatersky programator
FRAME - K cemu?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2001 03:09:48
From: "Hynek Svato#" <svatos(zv)kam(tec)czu(tec)cz>
> Dle meho skromneho nazoru zde nejsou Frames pro usetreni sys. prostredku OS
> nybrz pro usetreni sys. prostredku programatora: cas, namaha, nervy.
Ahoj,
pouzitim frames lze v nekterych pripadech zmensit velikost EXE souboru. Treba
pri opakovanem pouziti grafickych komponent, protoze data (bitmapy apod.) jsou
pak ulozeny v DFM jen jednou v danem frame a ne opakovane v kazdem formulari.
Petr Vones, amatersky programator
Problem s cykly
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 8.1.2001 07:28:07
no toto ma zaujalo. napriklad importujem udaje do tabulky v cykle while
not recordset.eof ..... a v cykle je prikaz application.proccessmessage.
vsetko zbehne, procedura konci, chcem po skonceni za cyklom zavriet
automaticky dialogove okno prikazom slef.close a nic. okno pozera na mna
dalej ;o). je mozne ze je to vzniknute prave problemom popisanym nizsie?
>
> pouziti Application.ProcessMessages ve vlastni smycce je vzdy ponekud
> problematicke. Aplikace bude totiz 'viset' ve smycce i v
> pripade, ze se
> pozaduje jeji ukonceni. Urcitym resenim by byla uprava na:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> FPressed := False;
> while not FPressed do
> begin
>
> Label1.Caption := TimeToStr(Now);
>
> Application.ProcessMessages;
> if Application.Terminated then
> Break;
>
> end;
> end;
>
> Jina reseni: Za prve by bylo dobre uvest konkretnejsi priklad
> toho, k cemu je
> takova smycka nutna. Windows jsou rizene zpravami, takze by
> bylo lepsi se
> snazit vyuzit tento mechanismus.
>
> Petr Vones, amatersky programator
>
>
> QReport - zmena pohledu
[*] Krska Vit <v_krska(zv)del(tec)cz> - 8.1.2001 07:33:38
ahoj,
resenim je, udelat si vlastni preview
Ing. V�t Kr�ka
vit.krska(zv)del(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr
Reichl
Sent: Friday, January 05, 2001 4:40 PM
To: ListServ - Delphi (el. adresa)
Subject: QReport - zmena pohledu
Dobry den,
je mozne nastavit, aby se QReport pri print preview ukazoval v zobrazeni
'zoom to fit' a ne 'zoom to width', ktere ma nastaveno jako vychozi. Nikde
jsem to nenasel.
Petr
kalendar
[*] Martin <geoplan(zv)pp.sinet.sk> - 8.1.2001 08:14:53
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Dobry,
existuje nejaka komponenta kalendar podobna ako v D5, ale aby zacinal pondelkom a nie nedelou a aby sa dali dat policka soboty a nedele inou farbou ? Prip. aj ine datumy inou farbou ?
Martin
casove udaje
[*] Martin <geoplan(zv)pp.sinet.sk> - 8.1.2001 08:17:50
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
hi,
D5, databaza Acces 97
potrebujem ulozit odpracovane hodiny a minuty na zakazke. Potom potrebujem ich spocitavat a pod. Datovy typ polozky databazy v access date/ time nejak blbne.Jednak sa tazko zadavaju udaje-ciarka bodka a aj to blbne pri spocitavani. Ako by sa to dalo ulozit ?
Martin
vnorena transakce
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 8.1.2001 08:18:55
Commit retainig NELZE pouzit misto Check pointu, u check pointu
lze transakci vzdy odvolat (Uplne celou i se schvalenymi check pointy).
Commit retaining je pro vice na sebe
navazujicich transakci, pokud by Vam selhala posledni transakce,
tak predchozi uz neodvolate.
Slavek
>
> ahoj,
>
> u IB6 lze pouzit CommitRetaining.
>
> udela to to, ze se potvrdi doposud provedene zmeny, ale transakce
> zustava otevrena.
> imho je to velmi podobne, jak popisujes checkpoint u oracle, akorat ze
> pokud nastane
> nejaky problem a das rollback a zahajis novou transakci od mista kde byl
> posledni
> CommitRetaining. Zmeny potvrzene CommitRetaining jiz odvolat nelze.
>
> doufam, ze to popisuji jasne...Podivne chovani StatusBaru
[*] Petr Hajny <hajny5(zv)eryx1.zcu(tec)cz> - 8.1.2001 08:39:02
Me se to stavalo taky, a vyresil jsem to volanim Repaint; objektu, na
ktery jsem kreslil. Od te doby jsem polozky z menu ve StatusBaru nevidel.
On Fri, 5 Jan 2001 brant(zv)dcomm(tec)cz wrote:
> Ahoj vespolek,
> mam MDI aplikaci, dole je StatusBar, dva panely jsou ownerdrawn a pomoci
> timeru do nich kreslim text resp. obrazek a zase je mazu pomoci FillRect
> (viz kod dole), takze to pekne blika. Vsechno pracuje dobre, ale pokud
> pohybuju mysi na volne plose MDI okna (tedy nezakryteho nekterym z
> otevrenych oken aplikace), zacnou se v panelech objevovat stridave tucne a
> zase normalni napisy z menu (frekvence zmeny tucne pismo-normalni pismo vsak
> nezavisi na tom blikacim timeru). Kdyz se pohyb mysi zastavi, napisy zmizi a
> zase je to v poradku. Dela to na 95 i 98 a na ruznych grafickych kartach.
> Netusite nekdo, cim to muze byt? Mam W98SE, D5Prof.
>
> RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
> ICQ # 68652380
>
> D&COMM s.r.o
> Korunova�n� 6
> Praha 7
>
>
> type BOType = (boText, boImage);
>
> (...)
>
> procedure TBlinkObject.HideObject(Canvas: TCanvas; Rect: TRect);
> begin
> begin
> if (BlinkText<>'') or (BlinkImage<>nil) then
> begin
> Canvas.Brush.Color:=BkColor;
> Canvas.Brush.Style:=bsSolid;
> Canvas.FillRect(Rect);
> end;
> end;
> end;
>
> procedure TBlinkObject.ShowObject(Canvas: TCanvas; Rect: TRect);
> begin
> if BlinkType = boText then
> begin
> if BlinkText<>'' then
> begin
> Canvas.Font.Style:= FntStyle;
> Canvas.Font.Color:=ColorText;
> Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, BlinkText);
> end;
> end;
> if BlinkType = boImage then
> begin
> if BlinkImage<>nil then
> begin
> Canvas.Draw(Rect.Left + 1, Rect.Top + 1, BlinkImage.Picture.Graphic);
> end;
> end;
> end;
>
> Jak ulozit composite report
[*] Krska Vit <v_krska(zv)del(tec)cz> - 8.1.2001 08:45:18
ahoj,
mam takovy problem, chci programove ulozit report. report je slozen ze dvou
reportu pomoci komponenty QRCompositeReport. u jednoducheho repotru pouziji
funkci Save v property QRPrinter, ale CompositeReport nic takoveho nema.
nevite nekdo co s tim? potrebuji to dost nutne.
diky za vse.
Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz
OT: Par otazek k IB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.1.2001 08:58:21
Haj hou!
Podle symptomu soudim, ze pouzivas IBExpress a nenastavil jsi
parametry transakce. Je vhodne nastavit Read Committed v
component editoru transakce.
Pro zjisteni poctu aktualizovanych nebo zrusenych radek slouzi
property RowsAffected.
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.Podivne chovani StatusBaru
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 8.1.2001 09:00:21
>> Podivne chovani StatusBaruMeli jsme podobne zkusenosti. Nekdy se vubec
>> nevolala udalost na prekresleni.
>> Stacilo prelozit "ComCtrls.pas" s vypnutou optimalizaci a je vse OK.
> to je velice podivne reseni. Nespocival problem v necem jinem ?
>
> Petr Vones, amatersky programator
Je to dost mozne. Take bych rad nasel presnou pricinu a odstranil ji.
Stavalo se nam to ve dvou programech, ktere jsou naprosto rozdilne.
Po dvou dnech badani se na nic lepsiho neprislo a tohle alespon visuelne
pomohlo.
Bylo to jeste s D3, po prechodu na D5 problemy myslim uz nebyly (ale jisty
si nejsem).
Petr Smol�k
psmolik(zv)fides(tec)cz
ZNOVA: Trideni CH v Interbase
[*] azeleny(zv)csas(tec)cz - 8.1.2001 09:15:16
Dobry den,
zkusil jsem pouzit trideni stazene z nize uvedene adresy a narazil jsem na
jeden zasadni problem:
(radi to krasne, coz o to), pri hledeani
select NAZEV from VECI where NAZEV like 'C%' to korektne vrati jen ty od C
nikoliv Ch, ale
select NAZEV from VECI where NAZEV like 'Ch%' nevrati nic, i kdyz tam takove
zaznamy jsou (select * from VECI) to vrati a korektne seradi.
Databaze ma deafult character set WIN_1250 a NAZEV ma collate PXW_CSY.
Delam neco spatne?
Ma nekdo podobnou zkusenost?
Testoval to nekdo?
Tento problem cini jinak krasne DLL nepouzitelnym, doufam, ze je to moje
chyba.
Pro poradek verze:
SQL> show version;
ISQL Version: WI-V6.0.0.627
InterBase/x86/Windows NT (access method), version "WI-V6.0.0.627"
InterBase/x86/Windows NT (remote server), version "WI-V6.0.0.627/tcp
(sasanka)/P10"
InterBase/x86/Windows NT (remote interface), version "WI-V6.0.0.627/tcp
(sasanka)/P10"
on disk structure version 10.0
SQL>
> -----Original Message-----
> From: Karel B�ich��� [mailto:brichna(zv)atlas(tec)cz]
> Sent: Friday, October 13, 2000 9:24 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Trideni CH v Interbase
>
>
> > > z vlastnich testu i prispevku v archivu jsem overil, ze
> IB 6 netridi
> > > korektne cesky, presneji ze nezatridi CH mezi H a I.
> > > Je to dost problem pri nasazeni v IS, jak to resite vy?
> >
> > http://web.redbox(tec)cz/brichna/ib_trid_ch.html . Pod Windows
> mi to zatim
> > funguje. Pro Linux jsem to zatim nekompiloval.
>
> Tak jsem se pokusil tu knihovnu zkompilovat i pro Linux. Vysledek jsem
> ulozil na vyse uvedenou adresu. Nemel jsem moc casu to
> zkouset, ale na prvni
> pohled to vypada, ze to funguje. Jestli to nekdo budete
> zkouset, dejte mi
> vedet, jak to dopadlo.
>
> Brichna
>
> P.S. opet se jedna pouze o zmenu trideni CH na
> WIN1250/PXW_CSY. Trideni
> pismen s hackem a carkou jsem ponechal beze zmeny.
> List Index Out Of Bound a mwEdit
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 8.1.2001 09:24:10
Tak skus SynEdit (ten isty autor), na MWEdite (stara verzia) sa uz
nepracuje.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
| Mam nejnovejsi mwEdit (tusim ze 0.92a) a mam takovyto problem. Mam v nem
| napsany text, kurzor nekde v textu a ja ho vyberu pomoci Ctrl+Shift+End
| (kurzor je ted pod poslednim radkem s textem) a smazu ho pomoci Del. V tom
| na me vyskoci hlaska List Index Out Of Bounds (cislo). Cisle je vzdy cislo
| radku kde byl kurzor pred vyberem. Ale jinak vse funguje normalne, text se
| smazal tak jak sem chtel. Nemate nekdo tuseni, v cem je problem?
|poskozene ikony na palete Delphi
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 8.1.2001 09:30:09
Ahoj,
zacinam sice mirne ujizdet do OT, ale zajimalo by me jake jine levne karty
to nedelaji.
S levnyma ATI nemam dobre zkusenosti (problemy s ovladaci pod NT) a o
dalsich v podstate nevim..
Ahoj
Ota Maly
> Ahoj,
>
> to je dost zoufale reseni, navic dnes neni prilis duvodu proc
> pouzivat zrovna
> S3 karty, v levne kategorii lze koupit i jine. U Win9x je jeste
> jedna moznost
> v zapsani 'BusThrottle = 1' do [display] sekce SYSTEM.INI souboru:
> http://community.borland.com/article/0,1410,19602,00.html
>
> Petr Vones, amatersky programator
>
>
>Prostredi Delhi - vkladani kodu
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 8.1.2001 09:33:01
Krom tohoto je tu este docela dobry balicek GExpertov a tam je "Code
Librarian"
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
| Kdyz programuji v je docela pracne vypisovat znovu a znovu stejny kod
(napr.
| cykly). Je jasne, ze tam musi byt FOR TO DO pripadne BEGIN a END, nebo IF
| THEN pripadne BEGIN END ELSE BEGIN END. V Delphi 5 jsem nasel v menu
| "Tools/Editor Options..." kartu "Code Insight" a na ni "Code templates".
Zda
| se, ze je to to co potrebuji, ze by to na nejakou zkratku vlozilo cast
casto
| se vyskytujiciho kodu do programu. Ale nevim jak to pouzit. Uz jsem
zjistil
| jak to zmenit nebo upravit, ale nevim jak to pouzit pri programovani.
Filesize vs. TextFile
[*] milan_2(zv)sose-sou(tec)cz - 8.1.2001 9:55:46
Cau Delphaci,
Existuje prikaz pro zjisteni velikosti souboru ?
FileSize ... nelzepouzit pro TXT soubory :(
Dik za pripadny napad.
--------------------------
Milan = Milan2(zv)sose-sou(tec)cz
Informacni technologie
SOSE-Sou Usti n.L
kalendar
[*] Juraj Skotnick� <delphi(zv)jdsoftware.sk> - 8.1.2001 10:07:33
Caves,
Predpokladam, ze pouzivas komponentu TMonthCalendar. Tato komponenta ma
vlastnost "FirstDayOfWeek", kde mozes nastavit, ktorym dnom sa zacina
tyzden.
Juraj
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin
Sent: Monday, January 08, 2001 8:15 AM
To: delphi-l(zv)fwd(tec)cz
Subject: kalendar
Dobry,
existuje nejaka komponenta kalendar podobna ako v D5, ale aby zacinal
pondelkom a nie nedelou a aby sa dali dat policka soboty a nedele inou
farbou ? Prip. aj ine datumy inou farbou ?
Martin
kalendar
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 8.1.2001 10:24:33
podivej se na www.torry.ru
Tam je primo skupina kalendare (tusim v sekci Date a Time) - a vni
plno kalendarovzch komponent.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Video
[*] Martin Fi�ar <Martin Fisar(zv)gordic(tec)cz> - 8.1.2001 10:24:45
----- Original Message -----
From: Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, January 07, 2001 10:10 AM
Subject: Re: Video
...
> Dialog volany funkci WM_CAP_DLG_VIDEOCOMPRESSION
> neni dialogem digitalizacni karty, ale je dialogem Windows.
> V tomto dialogu se vybiraji jednotlive SW kompresni kodeky
> instalovane v systemu Windows jako zarizeni na kompresi videa.
> Z tohoto dialogu je mozne i jednotlive nastavovat parametry
> kazdeho tohoto kodeku, pokud to ten ktery kodek umoznuje.
> V tomto dialogu je drobna chybicka, po rozbaleni Combo boxu
> je nulova vyska jeho seznamu polozek. Klavesami Up/Down
> lze ale mezi jednotlivymi polozkami prechazet.
Tohle je zp�sobeno chybnou knihovnou MSVFW32.DLL ve
WINDOWS\SYSTEM. Mo�n� bych n�kde je#t� na#el opravenou
sta�enou tu#�m n�kde z www.tvfreak(tec)cz
Martin Fi#ar
Martin_Fisar(zv)gordic(tec)cz
Video
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 8.1.2001 10:32:10
> Dik za radu , Je to hodn� zaj�mav� n�pad ale pro m� pou�it� je tak trochu
> nevhodn�(Ten program
> bude pou��vat t�ta a tomu nevisv�tl�m �e s t�m oknem nesm� hejbat ,ale to
> asi v#ichni zn�me).
Ja jsem nerekl, ze s nim nesmi hybat... Hybat muze, ale nesmi se
napriklad dostat za okraj viditelne casti monitoru, ale to jde softwareove
osetrit :) No a k tomu prekryvani ... jde pouzit StayOnTop, ale jakmile se
ukaze jina aplikace on top, tak ji prekryje, ale to je uz jiny
problem(mimochodem jiz v konferenci reseny).
> A ktomu zho#en� grafiky doh�z� proto�e mus�m poslat spr�vu SendMessage
> (cwnd, WM_CAP_GRAB_FRAME, 0, 0);
> kter� Video zastav� a zap�#e do Canvas.
Touto funkci nedochazi ke zhorseni obrazu !!! Mel jsem podobny problem, ale
ten nebyl v Grab Frame, ale v nastavene barevne hloubce, ktera je v prewiev
modu jina, nez v Overlay.
SendMessage (cwnd, WM_CAP_DLG_VIDEOSOURCE, 0, 0);
timto nastavis zdroj... Po vyberu Video Standardu (musis ho vybrat i kdyz
zustava stejny...) se zobrazi i velikost snimku a jaho barevna hloubka.Pri
pouziti nejvyssi by nemelo ke zmene kvality dojit !!!
> Podle mn� posun okna by se dal je#t� vychytat ,ale p�ekrit� asi ne.
A nakonec jeste rada k te komresi... Pokud by ses rozhodl pouzit jen
jednotlive snimky a ne video tak, jako ja doporucuju pouzit funkci
TJpg.assign, ktera ti bmp prevede na jpg. No a u jpg jde prece volit i
kompresi :)) ja jsem s tim dosahl pri 30% kompresi snizeni velikosti z 391kB
na 5,74kB :)) a to uz je nejaky prinos nebo ne ? S pozdravem Batex
casove udaje
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.1.2001 10:47:40
8.1.2001 Martin :
> hi,
> D5, databaza Acces 97
> potrebujem ulozit odpracovane hodiny a minuty na zakazke. Potom potrebujem ich spocitavat a pod. Datovy typ polozky databazy v access date/ time nejak blbne.Jednak sa tazko zadavaju udaje-ciarka
> bodka a aj to blbne pri spocitavani. Ako by sa to dalo ulozit ?
Zkus pouzit univerzalni format YYYYMMDD HH:MM:SS a zapisovat jej jako
string. Nacitat a pracovat s tim uz muzes jako s TDateTime.
Prevod jednoduse pomoci funkce
String := FormatDateTime('yyyymmdd hh:nn:ss', DateTime);
Tento format by mel byt bezproblemovy.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Record nebo TClass
[*] Ji�� Fait���}���6�#�3 - 8.1.2001 10:57:36
Jaky je rozdil mezi nasledujicimi pristupy, jde mi o zatizeni pameti, zdroju
atp.
Type
TTestRecord = record
NejakyRetezec:string[20];
NejakeCislo:integer;
end;
var
MujRecord:TTestRecord;
-----------------------------
NEBO
-----------------------------
Type
TTestRecord = Class
NejakyRetezec:string[20];
NejakeCislo:integer;
end;
Jiri Fait
[mailto:fait(zv)jakl(tec)cz]
[mailto:ftsoft(zv)iol(tec)cz]
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.215 / Virov� b�ze: 101 - datum vyd�n�: 16.11.2000
kalendar
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.1.2001 10:59:09
8.1.2001 Martin :
> Dobry,
> existuje nejaka komponenta kalendar podobna ako v D5, ale aby zacinal pondelkom a nie nedelou a aby sa dali dat policka soboty a nedele inou farbou ? Prip. aj ine datumy inou farbou ?
Pokud mluvis o TDateTimePickeru, tak ten si bere Prvni den z lokalniho
nastaveni pocitace. Pokud mluvis o komponente TMonthCalendar, tak tam
mas property FirstDayOfWeek, ktera ma default hodnotu
dowLocaleDefault, ale jinak ji muzes nastavit na jakykoliv den. Barvy
jdou castecne ovlivnit v property CalColors
Pokud pises o komponente TCalendar ze zalozky Samples, tak tam je zase
property StartOfWeek, kterou si nastav na 1.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Filesize vs. TextFile
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.1.2001 11:02:38
8.1.2001 milan_2(zv)sose-sou(tec)cz :
> Cau Delphaci,
> Existuje prikaz pro zjisteni velikosti souboru ?
> FileSize ... nelzepouzit pro TXT soubory :(
Ke zjisteni velikosti muzes pouzit napr. Funkci FindFirst, ktera z
zaznamu TSearchRec vraci mimo jine i velikost souboru bez nutnosti jej
otevirat.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
poskozene ikony na palete Delphi
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 8.1.2001 11:17:55
S3 nasazuji jiz nekolit let a bez vetsich problemu, nejde mi o cenu.
Nasazuji je hlavne do prumyslu, kde je jakakoliv moznost dalsiho nastaveni
na obtiz (je treba to zakazat). Rozliseni zpravidla 800x600.
Pokud Vam nevadi slozita instalace, tak lze pouzit Matrox. Do kancelare
na OFFICE se da pouzit i integrovana grafika, ale jen pro nizka rozliseni,
vysoke rozliseni (>1280x1024) chce kvalitni kartu s dobrym DAC alespon 300MHz.
Dnes se hodi tak Geeforce MX, Matrox (ten vlastnim, ale instalace zabera tak tyden).
Dalsi informace:
www.zive(tec)cz
www.techbox(tec)cz
Slavek
>
> Ahoj,
> zacinam sice mirne ujizdet do OT, ale zajimalo by me jake jine levne karty
> to nedelaji.
> S levnyma ATI nemam dobre zkusenosti (problemy s ovladaci pod NT) a o
> dalsich v podstate nevim..
> > Ahoj,
> >
> > to je dost zoufale reseni, navic dnes neni prilis duvodu proc
> > pouzivat zrovna
> > S3 karty, v levne kategorii lze koupit i jine. U Win9x je jeste
> > jedna moznost
> > v zapsani 'BusThrottle = 1' do [display] sekce SYSTEM.INI souboru:
> > http://community.borland.com/article/0,1410,19602,00.html
poskozene ikony na palete Delphi
[*] Martin Matou�ek A <matousek.martin(zv)atlas(tec)cz> - 8.1.2001 11:22:12
Nev���m sv�m o��m !!!
( Asi nebudete v��it ale je tomu tak )
Ji� asi rok pou��v�m na m�m stroji s NT 4 SP 4,5,6 postupn�, D3 s RX, a
VGA S3 Trio 3D, v#e fungovalo bezvadn�.
Jakmile jsem se vr�til ze silvestrovsk�ch pr�zdnin obnovil jsem projekt
z home PC, objevily se p�esn� ty probl�my o kter�ch jste tak horliv� psali.
Va#e re#en� s akcelerac�, je sice zaj�mav�, ale u mne to sp�#e zav�n�
nov�m mil�niem.
S pozdravem
Martin Matou#ek
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 08, 2001 1:37 AM
Subject: Re: poskozene ikony na palete Delphi
> From: "Pavel Lavicka" <plavicka(zv)mbox.vol(tec)cz>
> > 4. Zjistil jsem, ze tento efekt se vyskytuje prave pri pouziti
grafickych
> > karet s chipem S3 Trio 3D. Pri pouziti graficke karty s jinym chipem
tento
> > problem (alespon dle mych zkusenosti) nevznika. Protoze se mi nechtelo
menit
> > grafickou kartu, vyresil jsem to tak, ze jsem v ovladacich panelech
karty
> > snizil hardwarovou akceleraci na stupen Zakladni. Problem tim zmizel a
pri
>
> Ahoj,
>
> to je dost zoufale reseni, navic dnes neni prilis duvodu proc pouzivat
zrovna
> S3 karty, v levne kategorii lze koupit i jine. U Win9x je jeste jedna
moznost
> v zapsani 'BusThrottle = 1' do [display] sekce SYSTEM.INI souboru:
> http://community.borland.com/article/0,1410,19602,00.html
>
> Petr Vones, amatersky programator
>
>kalendar
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 8.1.2001 11:24:26
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.
Komponenta v Delphi 5 TDateTimePicker ma property FirstDayOfWeek, ktera Ti
umozni nastavit ktery koliv den jako zacatek tydne vcet vychoziho nastaveni
windows, coz mi pripada jako to spravne reseni. Takove veci by se meli
nastavovat ve windows a ne v programu. Nastaveni barev je take moznem, ale
nejsem si jist ze tak, jak to chces Ty.
Michal
-----Original Message-----
From: Martin [mailto:geoplan(zv)pp.sinet.sk]
Sent: Monday, January 08, 2001 8:15 AM
To: delphi-l(zv)fwd(tec)cz
Subject: kalendar
Dobry,
existuje nejaka komponenta kalendar podobna ako v D5, ale aby zacinal
pondelkom a nie nedelou a aby sa dali dat policka soboty a nedele inou
farbou ? Prip. aj ine datumy inou farbou ?
Martin
Filesize vs. TextFile
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 8.1.2001 11:51:39
asi budes muset pouzit FindFirst.>Cau Delphaci,
>Existuje prikaz pro zjisteni velikosti souboru ?
>FileSize ... nelzepouzit pro TXT soubory :(
>Dik za pripadny napad.
--------------------------
Milan = Milan2(zv)sose-sou(tec)cz
Informacni technologie
SOSE-Sou Usti n.L
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Filesize vs. TextFile
[*] Mion <mion(zv)quick(tec)cz> - 8.1.2001 12:01:12
a co takhle chvilkove otevrit onen textov� soubor jako binarni, zjistit
velikost a zase ho zavrit? Takhle to delam ja...
Mion
----- Original Message -----
Cau Delphaci,
Existuje prikaz pro zjisteni velikosti souboru ?
FileSize ... nelzepouzit pro TXT soubory :(
Dik za pripadny napad.
Filesize vs. TextFile
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 8.1.2001 11:04:58 met-1
> Existuje prikaz pro zjisteni velikosti souboru ?
> FileSize ... nelzepouzit pro TXT soubory :(
Tak si ten textovy soubor otevri jako netypovy a FileSize fungovat
urcite bude.
Jirka.databaze jako textovy soubor, a viceuzivatelsky pr
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 8.1.2001 12:09:51
Zdravim,
k prvnimu dotazu. Podle meho nazoru se to da vyresit tim, ze si napises
svuj vlastni DataSet, ktery by obsluhoval dany typ textoveho souboru.
Vlastni DataSet se da napsat tusim od Delphi 3. Vcelku dobry popis i s
prikladem tvorby DataSetu pro ASCII soubor je v knize Mistrovstvi v Delphi 3
od nakladatelstvi Computer Press
S pozdravem Marek Eichler
----- Original Message -----
From: <jsramek(zv)kodys(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, January 03, 2001 11:23 AM
Subject: databaze jako textovy soubor, a viceuzivatelsky pristup
> Ahoj mam dva dotazy
> 1) nevim, jak pristupovat k textovemu souboru jako k tabulce a
> propojit jej treba pres Query na Grid. Ve VB se pred tim musi
> definovat struktura toho *.txt (nazvy a pocet znaku jdnotlivych
> atributu tabulky - souboru) a pak se k nemu pristupuje jako k
> Recordsetu - Datasetu. Netusim ale jak tady...
>
> 2) jak zabezpecit viceuzivatelsky pristup k databazi (napr. Accessu),
> aby byla osetrena napr. kolize pri soucasne editaci zaznamu vice
> uzivateli. Neco v tom smyslu jako zamykani zaznamu pri teto operaci...
>
> Diky za kazde rady ci pripominky.
>
> Jakub.poskozene ikony na palete Delphi
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 8.1.2001 12:27:23
Ahoj,
zacinam sice mirne ujizdet do OT, ale zajimalo by me jake jine levne karty
to nedelaji.
S levnyma ATI nemam dobre zkusenosti (problemy s ovladaci pod NT) a o
dalsich v podstate nevim..
Ahoj
Ota Maly
> Ahoj,
>
> to je dost zoufale reseni, navic dnes neni prilis duvodu proc
> pouzivat zrovna
> S3 karty, v levne kategorii lze koupit i jine. U Win9x je jeste
> jedna moznost
> v zapsani 'BusThrottle = 1' do [display] sekce SYSTEM.INI souboru:
> http://community.borland.com/article/0,1410,19602,00.html
>
> Petr Vones, amatersky programator
>
>
>
ZNOVA: Trideni CH v Interbase
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 8.1.2001 12:39:19
Pochopil jsem spravne, ze musim po nahrani teto knihocvny
pregenerovat indexy ???
Pokud ano tak staci udelat zalohu a databaze a pak restore ???
Pokud nestaci tak jak to co nejjednoduseji udelat.
Dekuji.
> Dobry den,
>
> zkusil jsem pouzit trideni stazene z nize uvedene adresy a narazil jsem na
> jeden zasadni problem:
> (radi to krasne, coz o to), pri hledeani
> select NAZEV from VECI where NAZEV like 'C%' to korektne vrati jen ty od C
> nikoliv Ch, ale
> select NAZEV from VECI where NAZEV like 'Ch%' nevrati nic, i kdyz tam takove
> zaznamy jsou (select * from VECI) to vrati a korektne seradi.
>
> Databaze ma deafult character set WIN_1250 a NAZEV ma collate PXW_CSY.
>
> Delam neco spatne?
> Ma nekdo podobnou zkusenost?
> Testoval to nekdo?
>
> Tento problem cini jinak krasne DLL nepouzitelnym, doufam, ze je to moje
> chyba.
>
> Pro poradek verze:
>
> SQL> show version;
> ISQL Version: WI-V6.0.0.627
> InterBase/x86/Windows NT (access method), version "WI-V6.0.0.627"
> InterBase/x86/Windows NT (remote server), version "WI-V6.0.0.627/tcp
> (sasanka)/P10"
> InterBase/x86/Windows NT (remote interface), version "WI-V6.0.0.627/tcp
> (sasanka)/P10"
> on disk structure version 10.0
> SQL>
>
> > -----Original Message-----
> > From: Karel B�ich��� [mailto:brichna(zv)atlas(tec)cz]
> > Sent: Friday, October 13, 2000 9:24 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: RE: Trideni CH v Interbase
> >
> >
> > > > z vlastnich testu i prispevku v archivu jsem overil, ze
> > IB 6 netridi
> > > > korektne cesky, presneji ze nezatridi CH mezi H a I.
> > > > Je to dost problem pri nasazeni v IS, jak to resite vy?
> > >
> > > http://web.redbox(tec)cz/brichna/ib_trid_ch.html . Pod Windows
> > mi to zatim
> > > funguje. Pro Linux jsem to zatim nekompiloval.
> >
> > Tak jsem se pokusil tu knihovnu zkompilovat i pro Linux. Vysledek jsem
> > ulozil na vyse uvedenou adresu. Nemel jsem moc casu to
> > zkouset, ale na prvni
> > pohled to vypada, ze to funguje. Jestli to nekdo budete
> > zkouset, dejte mi
> > vedet, jak to dopadlo.
> >
> > Brichna
> >
> > P.S. opet se jedna pouze o zmenu trideni CH na
> > WIN1250/PXW_CSY. Trideni
> > pismen s hackem a carkou jsem ponechal beze zmeny.
> >
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
Otravna okna
[*] Ondrej Riha <coolcalle(zv)seznam(tec)cz> - 08.1.2001 12:53:08
Chtel bych si udelat programek kterej pri surfovani budse zavirat automaticky ta otravna okna z reklamou atd. Ucel je aby zustalo otevreno vzdi jen jedno okno exploreru a to co bylo spusteno prvni. Jak ty okna zavrit vim, ale jak zjistit jejich handle nebo caption nevim. Jsem zacatecnik (prechazim z Pascalu) tak bych prosil pripadne rady trochu polopaticky. Jeste by me zajimalo jak se da okno exploreru maximalizovat. Dekuji
Ondrej Riha
zacatecnik amater
_____________________________________________________________________
Mapy Prahy, Brna a #ech najdete na http://www.mapy(tec)cz
Jak ulozit composite report
[*] tomas.mazurek(zv)vitkovice(tec)cz - 8.1.2001 11:59:44
Ahoj,
co mi funguje je:
mit vlastni tqrpreview, do nej nacteny komp. report, vlastni preview
ma pak property qrprinter a ta ma SAVE. Komp. report sam o sobe,
myslim, nejde ulozit...
TM
Prebitecna okna
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 8.1.2001 13:12:56
Cau bud pouzi program SInfo a tlacitko Pick a zisti si classu okna. (Alebo
ti poslem programemk ktory Ti vylistuje zoznam oknie s childami, handlami,
modulami, ...)
Caption je asi zbytocne zistovat, lebo ten sa pravdepodobne bude menit.
(IExplorer otvara okna roznych class)
Potom Handle chytis cez FindWindow(<classname>, nil) <> 0;
No a potom uz s tym robis co chces.
Dalsim kontrolnym bodom moze byt velkost okna. GetWindowSize(...) nebo tak
nejak. Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Chtel bych si v Delphi4 udelat programek kterej pri surfovani po internetu
automaticky zavira vsechna prebitecna okna, ktera se automaticky otviraji
nap�. reklamy a surfovani za penize. Cilem je aby zustalo pouze jedno okno
Exploreru. Vedel bych jak ty okna zavrit, ale jakym zpusobem zjistim handle
nebo caption tech nove otevrenych oken to nevim. Jsem zacatecnik (prechazim
z Pascalu) takze propadne rady prosim vysvetlit polopaticky. Jeste by me
zaj�malo jak se d� urcen� okno Exploreru maximalizovat. Dekuji vsem za
pripadne rady.
Ondrej Riha
zacinajici amater
Filesize vs. TextFile
[*] Spravce site ZSU <admin(zv)zsuprkova.pvtnet(tec)cz> - 8.1.2001 12:27:36 -0000
Ahoj, nevim, ale mozna by pomohlo ten soubor neotevirat jako textovy,
ale binarne - pak by ta velikost zjistit sla
RV
-----
Radovan Vojtek - Spravce site
Zakladni skola, Uprkova ul. 1
500 09, Hradec Kralove
CZECH REPUBLIC
tel.: +420(49)5270294
mobil: +420(604)849231
#ICQ: 63924162
-----
----- Original Message -----
From: <milan_2(zv)sose-sou(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 08, 2001 8:55 AM
Subject: Filesize vs. TextFile
> Cau Delphaci,
>
> Existuje prikaz pro zjisteni velikosti souboru ?
> FileSize ... nelzepouzit pro TXT soubory :(
>
> Dik za pripadny napad.
>
> --------------------------
> Milan = Milan2(zv)sose-sou(tec)cz
> Informacni technologie
> SOSE-Sou Usti n.L
---
Odchozi zprava neobsahuje viry.
Outgoing message does not contain any viruses
SUPERVISOR (zv) ZSU Network
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.225 / Virov� b�ze: 107 - datum vyd�n�: 25-12-00
Hledani a preskoky v binarnim souboru
[*] Robert Kindl <rob(zv)exec(tec)cz> - 8.1.2001 13:30:26
> > > Co jsem kde a jak pouzil, viz nize. Doufam, ze i Robert Kindl se s
> > > nami podeli o jeho algoritmus, abychom mohli porovnat dalsi
> > > techniku. Klidne se toho ujmu. Zbysek Hlinka
> >
> > No dlouho jsem necetl postu, takze reaguji o neco pozdeji.
> >
> > http://www.exec(tec)cz/kindl
>
> Dival jsem se na to, nejrychleji (z tveho vzorku) mi na velkem textu
> vychazel ExtBMH, nikoliv Shit-Or algoritmus.
>
> Konecne automaty jsem zatim neimplementoval, protoze tam
> pracujes s pameti zpusobem nepouzitelnym ve Woknech.
> S pozdravem
> Zbysek Hlinka
Jo to mas pravdu. ExtBMH vychazi rychlejsi nez ExtBYG (Shift-Or).
Jenze ja v te diplomce resil zejmena zobecneny pripad,
kdy chces v textu najit i vyskyty s "k" preklepy nebo
dokonce "k" editacnimi operacemi (replace=preklep, insert, delete).
To je samozdrejme slozitejsi uloha,
kterou BMH ani nedokaze resit,
zatimco Shift-OR jednoduchym zobecnenim ano.
Konecny automat je pritom pro tuto ulohu jeste vyhodnejsi nez Shift-OR.
Pro proste vyhledani vzorku vyhodnejsi nebude.
Takze jsem lehce mistifikoval, pokud jsem tvrdil, ze pro
jednoduchou ulohu prosteho nalezeni vzorku existuje lepsi algoritmus
nez BMH. Je to pravda jen pro slozitejsi zadani s "k" chybami.
To vsak v zadnem pripade nesnizuje uzitecnost ostatnich algoritmu.
Rob
Filesize vs. TextFile
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 08.1.2001 13:33:04
Nazdarek, mam pocit, ze ve starym BP7 byl typ Text (v Dephi = TextFile)
vlastne zaznam, kde jedna z polozek byl handle na soubor ... A tudiz se
dalo pres assembler zjistit velikost fajlu. Ve winech, jestli je to v
tom TextFilu taky, by to melo jit pres API funkce. Ale nevim to jiste.
Jenom navrh.
Jinak bych zkousel uz zminovany netyp.file / findfirst.
milan_2(zv)sose-sou(tec)cz wrote:
>
> Cau Delphaci,
>
> Existuje prikaz pro zjisteni velikosti souboru ?
> FileSize ... nelzepouzit pro TXT soubory :(
>
> Dik za pripadny napad.
>
> --------------------------
> Milan = Milan2(zv)sose-sou(tec)cz
> Informacni technologie
> SOSE-Sou Usti n.L
--
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|
\--------------------------------------------------------------/INSERT, BDE a dBase IV
[*] Petr S <petr(zv)slunce(tec)cz> - 8.1.2001 13:54:05
Ahojte,
chtel bych se zeptat, jsetli nekdo delal toto
Query1.SQL.Add('INSERT INTO T1 (FIELD1,FIELD2)');
Query1.SQL.Add('select FIELD1,FIELD2 from T2');
EXECSQL;
Celkem to chodi, az na to, ze pokud je jeden z fieldu typu NUMERIC, tak to
spadne s hlaskou o "Mismasi".Prece to nemuze byt delany jenom pro STRINGy
(jine datove typy jsem nezkousl)..
Kdyz jsem zkousel insert into T1 (Field1) values (250), tak to proslo.
D4 C/S, BDE 5.11, T1 a T2 jsou tabulky dBase IV s naprosto stejnou
strukturou( jedna je ziva a druha je archiv ).
Diky Petr
P.S. Pouzivat dBase IV neni muj napad!!!!
Delphi3 a RX Library
[*] milan_2(zv)sose-sou(tec)cz - 8.1.2001 14:15:50
Cau delphaci
Problem :
Instaloval jsem do Delphi 3 RX library presne podle prilozeneho
popisu. Po prvnim spusteni Delphi jsem rpacoval s komponentama uplne
normalne. Jakmile jsem ale vypnul Delphi a pote jsem je otevrel znova, tak
RX komponenty nebyly a Delphi hlasily neco o nenalezenejch DPL souborech a
nebo jejich nekompatibilite.
Prohlizel jsem si stranky na www.rxlib.com, kde jsou popsany
problemy s jejich instalaci, ale zadne rozumne reseni jsem nenasel.
Nemel jste nekdo nahodou stejny problem a vite, jak na nej ??? Budu vdecny
za pomoc. Diky.
Delphi3, W98
--------------------------
Milan = Milan2(zv)sose-sou(tec)cz
Informacni technologie
SOSE-Sou Usti n.L
Filesize vs. TextFile
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2001 14:41:56
From: <milan_2(zv)sose-sou(tec)cz>
> Existuje prikaz pro zjisteni velikosti souboru ?
Ahoj,
V JCL (http://delphi-jedi.org/Jedi:JCLDOWNLOADS) najdes funkci FileGetSize.
Petr Vones, amatersky programator
IB6 a Error: invalid request BLR at offset 932
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 8.1.2001 14:44:12
Ahoj,
mam problem so %subj% , W98, D5, IBX44, IB60
Ked dam na TIBQurry do SQL.Text na vyrobenie procedure "CREATE
PROCEDURE......"
tak zavolam Prepare. OK. Potom zavolam OPEN. OK Potom chcem zavolat Commit a
vyhodi mi to tuto chybu %subj%.
Spozoroval som ze toto mi vyhodi ked ma ten text procedury viac ako 5kb. Ked
ju poslem vykonat v tvare ze mam jej definiciu (hlavicku kde su jej in/out
parametre) a bez tela a v tele je iba:
BEGIN
Exit;
END
tak to v pohode prejde.
Potom zavolam SQL "update procedure....... " a potom OK. Sakra ale nemozem
ju normalne vytvorit.
Server aj Client ma dialect 3.
Nevie niekdo co s tym, co je to za chybu?
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Synapse a MSExchange
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 8.1.2001 14:56:14
Ahoj
Ze sveho outlooku normalne postu odesilam, kdyz ji ale odeslu z programu s
pouzitim synapse, nedostane se ven do internetu. Pravdepodobne jde o to, ze
synapse odesila mail anonyme. Prosim neznate nekdo odkaz na popis SMTP
komunikace mezi OUTLOOKEM 2000 a Exchange serverem. Jaromir Cermak
-----Original Message-----
From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
Sent: Friday, January 05, 2001 8:29 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Synapse a MSExchange
>Problem je v konfiguraci Exchange.
nejde o problem _ALE_ o bezpecnostni feature :-). Server ktery nema relaying
zakazany _JE_ problem (resp. ma/bude mit problem).>Kazdy SMTP server by mel nakonfigurovat tak, aby povoloval
>relaying pouze pro ty zpravy, jejichz odesilatel ci prijemce je lokalni
>uzivatel daneho postovniho serveru.
>
>vami popisovany problem tedy pravdepodobne nastava tehdy, kdy
>jako adresu ODESILATELE pouzivate nejakou adresu, ktera neni na
>danem exchange serveru znama.
CHYBA - relayingem je mineno toto:
- kazda zprava, ktera ma byt odeslana jinam nez do lokalniho boxu
(lokalnimu uzivateli), tedy do Internetu - je relaying (jde na dalsi
mailserver = relay)
Cili kdokoliv (libovolna adresa odesilatele) muze poslat zpravu odkudkoliv
(z libovolneho IPCka) , _pokud_ cilem zpravy je lokalni box serveru (prez
ktery dany clovek tu zpravu odesila). Naopak posilani zprav, ktere maji jit
ven (do Internetu), _musi_ server povolit jen omezenemu okruhu pocitacu
(IPCek), vetsinou. Cili firmy povoluji relaying pro IPCka vlastni lokalni
site, provideri povoluji relaying pro vsechny IPCka, ktera vlastni (aby
mohli jejich klienti pouzivat jejich mail server k posilani posty do
Internetu).
Cilem tohoto nastaveni je zakazat spamerum zneuzivat cizi servery k
rozesilani spamu. Je-li server spravne nastaven, zjisti, ze spamer se
pripojil z neznameho (nepovoleneho) IPCka, zjisti, ze cilem zpravy neni
lokalni box uzivatele a vsledkem je po povelu RCPT TO: hlaska '550 we don't
relay'. Cili spamer svesi ohon a jde hledat dalsi server (urcite ho najde,
spousta lidi provozuje SMTP aniz vi co dela dokonce aniz vi, ze jej ma
pusteny :-( ).
>kdyz pak totiz mail adresujete lokalnimu uzivateli, je splnena vyse
>polozena podminka, protoze adresat mailu je lokalni uzivatel. jakmile
>ale posilate neco ven, je zprava odmitnuta.
>Zkontrolujte tedy e-mail adresu, kterou pouzivate jako adresu
>odesilatele. problem je na 99% v ni.
A neni. Na 100% :-)
> Zkuste ji nastavit na adresu,
>kterou urcite exchange zna. Zkuste pouzit tu e-mail adresu, z jake
>uspesne odesilate outlookem a musi to fungovat...
Kdyby to tak bylo pak je cele to nastaveni uplne k nicemu.
PS. jednoduchy test nastaveni SMTP lze udelat pomoci telnetu:
telnet mail.server(tec)cz 25
>>EHLO aaa
<<250-BLABLA
<<250 XXX
>>MAIL FROM:temer(zv)cokoliv
<<250 Sender OK
>>RCPT TO:<cilova(zv)adresa>
<<250 recipient OK
>>RCPT TO:adresa(zv)kterou.server.nepovazuje.za.lokalni
<<550 We don't relay
>>QUIT
---
>> uvozuje Tvoje povely
<< uvozuje odpovedi ze serveru
Zdravi
D. Toman
---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.217 / Virov� b�ze: 102 - datum vyd�n�: 1.12.2000
poskozene ikony na palete Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2001 14:59:59
From: "Ota Maly" <ota.maly(zv)volny(tec)cz>
> zacinam sice mirne ujizdet do OT, ale zajimalo by me jake jine levne karty
> to nedelaji.
Ahoj,
vzhledem k tomu, ze se tento problem ve spojeni s Delphi IDE casto opakuje, to
zase az tak OT myslim neni.
> S levnyma ATI nemam dobre zkusenosti (problemy s ovladaci pod NT) a o
> dalsich v podstate nevim..
ATI jsem mel prave namysli. Nesmis pouzit drivery co jsou na CD, ale stahnout
z Internetu nove. Dale pak levne TNT2 se dnes prodavaji pod 2000, obcas je k
videni i starsi Matrox. Mimochodem, pokud vim, tak Matrox byla jedna z mala
firem, ktera byla ochotna tento problem spolu s Borlandem resit.
Mozna by nebylo spatne vytvorit jakousi databazi 'zarucene funkcnich karet',
tedy seznam: typ karty, OS a verze driveru (ovsem ne prostrednictvim zprav do
teto konference ;-)
Petr Vones, amatersky programator
Problem s cykly
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.1.2001 15:24:38
From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
> no toto ma zaujalo. napriklad importujem udaje do tabulky v cykle while
> not recordset.eof ..... a v cykle je prikaz application.proccessmessage.
Ahoj,
a k cemu je potreba Application.ProcessMessages behem importu ? Pokud chces
zobrazovat prubeh nejakym ukazatelem, tak pouzij jeho metodu TControl.Update.
Petr Vones, amatersky programator
Struktura WAV
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 8.1.2001 15:53:47
Dobry den,
Potreboval bych strukturu WAV souboru. A nebo komponentu, ktera dokaze
praci s WAV daty a poskytnout zakladni informace o WAVu.
Diky
Zdenek
sys. zdroje a DLL
[*] Hurricane <hurricane(zv)quick(tec)cz> - 8.1.2001 16:23:18
Zdravim
Diky za radu, ale porad jsem z toho zmateny. Funguje to tak, ze pri spusteni
EXE se DLL natahne cela do pameti a pak to spolupracuje? Pochopil sem? Muj
zamer je priblizen takovy. Chtel bych mit program, ktery bude maly a tudiz
pobezi svizne a bude se rychle spoustet. Pokud uzivatel chce zobrazit napr.
konfiguracni dialog nebo AboutBox, prislusne Formy se natahnou z DLL do
pameti, spusti se a po uzavreni se zase z pameti odstrani. Potrebuji to i z
psychologickeho hlediska. Kdyz uzivateli dam 400KB EXE + 500KB DLL nebo
900KB EXE, ktery si vybere? Taky bych potom mohl do DLL nacpat obrazek pro
AboutBox, ktery ma 0.5MB. To bych se do EXE neodvazil nacpat.
> DLL se namapuje do pametoveho prostoru procesu, pak uz vicemene neni
rozdilu
> mezi 'kodem aplikace' a 'kodem DLL'. Problem je spise v pouziti VCL v DLL,
pak
> mas totiz v jednom procesu kod VCL vlastne dvakrat, coz je ponekud
zbytecne a
> je treba osetrovat aby si VCL mezi sebou rozumely (viz
Application.Handle).
Kde ho mam dvakrat? Vzdyt musim jen napsat predavani parametru a promennych
mezi EXE a DLL. Vysvetli mi to prosim bliz.
> Pokud mas v DLL jen jedno okno, tak bych zvazil pouziti API misto VCL.
Jine a
> asi nejlepsi reseni je pouziti balicku (jak v EXE, tak v te DLL), pak
muzes
> bez problemu pouzit VCL v obou pripadech, navic balicek bude velmi maly.
Uplne
> ti staci pouzit zakladni VCLx0 balicek.
Jake balicky mas na mysli? Asi ne ty s komponentama, nebo ano? Co je to
VCLx0, o tom slysim poprve. Mam D3.
Diky za snahu, nekomu to holt trva trochu dele
Hurricane
Oracle komponenty
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 8.1.2001 18:58:53
Prajem prijemny podvecer :)
Ake mate skusenosti s uvedenymi komponentami:
* Direct Oracle Access (www.allroundautomations.nl)
* Oracle Data Access Components (http://www.crlab.com/odac.html)
?
Dakujem za odpovede
Ondrej
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]kalendar
[*] Ivan Koz�k - 8.1.2001 10:36:21 -0800
Skus ruske komponenty RxLib. at http://www.rxlib.com. iko
-----Original Message-----
From: Martin <geoplan(zv)pp.sinet.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 8. ledna 2001 0:27
Subject: kalendar
Dobry,
existuje nejaka komponenta kalendar podobna ako v D5, ale aby zacinal pondelkom a nie nedelou a aby sa dali dat policka soboty a nedele inou farbou ? Prip. aj ine datumy inou farbou ?
Martin
COM a DLL
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.1.2001 20:10:08
DD,
Experimentuju s COM objekty. Volani provadena primo z aplikace jsou OK.
Volani provadena z DLLka zpusobuji problemy. Sice jsem zjistil, ze
ComObj.pas v pripadi IsLibrary nevola CoInitialize(Ex), takze jej musim
volat sam. Ale zrejme mi neco uniklo (s COMy prave zacinam), protoze po te
co aplikace pouzivajici DLLko skonci (CoUnInitialize volam), nastane nahla
smrt - debuggger chvili nic nerika, pak vypise hlasku o tom, ze aplikace
zpusobila prilis mnoho vyjimek. Pak muzu krokovat, pokud pustim program dal
(F9) nedobehne a ani v D5 jej nejde zarazit (musim ho ustrelit
taskmanagerem). Zrejme je problem s dokoncovanim kodu DLLka (nekde se neco
prepise/zacykli).
Zkousel jsem ruznym zpusobem inicializovat/deinicializovat COMy, ale bez
vysledku (jedine co vim, ze pokud COM neinicializuju, pak problem s
ukoncenim nenastane)
Jsou nejake (zrejme ano) problemy/zvlastnosti pri pouzivani COM objektu z
DLLek (aplikace startuje nekolik threadu)?
Zdravi
D. Toman
Zarovnanie textu v tlacitku do strany
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 8.1.2001 22:19:47
Zdravim.
Je mozne zarovnat text v tlacitku do lava or prava ?
Dakujem.
Roland.Problem s cykly
[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 9.1.2001 01:24:20
Tento problem je casty, pokud spustim vykonavani nejake procedury pri
udalosti OnCreateForm nebo OnShowForm nefunguje po ukonceni procedury
self.Close. Lepsi je spustit proceduru nejakym timerem nebo provest zavreni
formulare timerem. Ale hezke reseni to neni ! Tento problem nastava pri
modalnim zobrazeni formulare.
Jan Skopovy
----- Original Message -----
From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, January 08, 2001 7:28 AM
Subject: RE: Problem s cykly
> no toto ma zaujalo. napriklad importujem udaje do tabulky v cykle while
> not recordset.eof ..... a v cykle je prikaz application.proccessmessage.
> vsetko zbehne, procedura konci, chcem po skonceni za cyklom zavriet
> automaticky dialogove okno prikazom slef.close a nic. okno pozera na mna
> dalej ;o). je mozne ze je to vzniknute prave problemom popisanym nizsie?
>
> >
> > pouziti Application.ProcessMessages ve vlastni smycce je vzdy ponekud
> > problematicke. Aplikace bude totiz 'viset' ve smycce i v
> > pripade, ze se
> > pozaduje jeji ukonceni. Urcitym resenim by byla uprava na:
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > FPressed := False;
> > while not FPressed do
> > begin
> >
> > Label1.Caption := TimeToStr(Now);
> >
> > Application.ProcessMessages;
> > if Application.Terminated then
> > Break;
> >
> > end;
> > end;
> >
> > Jina reseni: Za prve by bylo dobre uvest konkretnejsi priklad
> > toho, k cemu je
> > takova smycka nutna. Windows jsou rizene zpravami, takze by
> > bylo lepsi se
> > snazit vyuzit tento mechanismus.
> >
> > Petr Vones, amatersky programator
> >
> >
> >Velke bitmapy a Jpeg
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 9.1.2001 08:19:43
Ahoj,
kdysi se tu resil problem, ze nekomu nesla vytvorit velka bitmapa pro
ulozeni mnoha malych obrazku. Vcera jsem delal neco podobneho, na
Celeronu s 128 MB RAM to bez potizi umi zpracovat bitmapu 800 x 16000
bodu v 24bitovem formatu, po ulozeni to ma pres 30 MB.
Narazil jsem ale na jiny problem: pomoci unity JPEG (soucast
instalace Delphi Pro) jsem to chtel ulozit do formatu JPG, nacez se
objevilo suche hlaseni JPEG error #36. Nevite prosim nekdo, zda tato
unita zvlada zpracovani velkych obrazku popr. zda delam neco spatne?
S obrazky do 2500 x 2500 bodu ochotne pracuje, nad 3000 x 3000 bodu
uz vzdy pise tuto chybu. Pripadne znate-li nejakou jinou free
komponentu pro nacitani a ukladani JPG, budu vdecny za odkaz na ni.
Diky, s pozdravem
Karel Rys
delphi(zv)zas-me(tec)cz