Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Kopirovani TADOQuery
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 24.1.2005 22:02:05
Ahoj :-)
Resil jsem to, kdyz jsem delal automatickou sestavu z TQuery, udelal
jsem to takhle a funguje to :)
{ pQuery: TADOQuery; - zdrojove query pro DBGrid }
// kopie TQuery pro ucely tisku //
with ReportQuery do begin
SQL.Text := pQuery.SQL.Text;
Parameters.Assign(pQuery.Parameters);
CopyQueryFields(pQuery, ReportQuery); // tady je to zkopirovani fieldu
Filter := pQuery.Filter;
Filtered := pQuery.Filtered;
Open;
end;// kopiruje fieldy z jednoho query do druheho //
procedure CopyQueryFields(ASource, ADestination: TADOQuery);
var
i: Integer;
vField: TField;
begin
if not ASource.Active then Exit;
for i := 0 to ADestination.FieldCount - 1 do
ADestination.Fields[i].Visible := False;
with ASource do
for i := 0 to FieldCount - 1 do
if Assigned(ADestination.FindField(Fields[i].FieldName)) then
with ADestination.FindField(Fields[i].FieldName) do begin
DisplayLabel := Fields[i].DisplayLabel;
Visible := Fields[i].Visible;
Index := Fields[i].Index;
end
else
begin
if ADestination.Active then Continue;
if Fields[i].Calculated then Continue;
vField := GetFieldClass(Fields[i].DataType).Create(Fields[i].Owner);
try
with vField do
begin
Calculated := Fields[i].Calculated;
Size := Fields[i].Size;
Required := Fields[i].Required;
DisplayWidth := Fields[i].DisplayWidth;
DisplayLabel := Fields[i].DisplayLabel;
Visible := Fields[i].Visible;
Index := Fields[i].Index;
FieldName := Fields[i].FieldName;
OnGetText := Fields[i].OnGetText;
OnSetText := Fields[i].OnSetText;
DataSet := ADestination;
end;
if vField is TBooleanField then
TBooleanField(vField).DisplayValues := TBooleanField(Fields[i]).DisplayValues;
except
vField.Free;
end;
end;
end;
Myslim, ze jsem to zkopiroval z nejake knihy ci odkud ... funguje to
pro me ucely dobre.
Stepan o:) -=* Martin Pisarik <delphi-l(zv)clexpert(tec)cz>, 24.1.2005 17:21 wrote *=-
MP> Ahoj *,
MP> mam nasledujici problem. Mam v datamodulu komponentu TADOQuery s nastavenymi
MP> fieldy a ostatnimi property. Potrebuju v runtime vyrobit dalsi objekty typu
MP> TADOQuery takove aby mely stejne nastavene propery vcetne fieldu. Nejde mi
MP> to.
MP> TADOQuery neumi delat Assign. Kdyz jsem zkusil v cyklu projit vsechny fieldy
MP> zdrojove komponenty a dynamicky je vytvaret podle toho i v cilove
MP> komponente, tak mi to pri volani field->Assign haze nepochopitelne Access
MP> violation.
MP> Jak to mam udelat?
MP> Zde je kus kodu:
MP> for (int i=0;i<zdroj->FieldCount;i++) {
MP> n=zdroj->Fields->Fields[i]->ClassName();
MP> if (n=="TStringField") {
MP> sF=new TStringField(cil);
MP> cil->Fields->Add(sF);
MP> sF->Assign(zdroj->Fields->Fields[i]); // Tady to hodi AVE!
MP> }
MP> }
MP> Dik za pomoc.Poradi zaznamu v SQL
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 24.1.2005 19:29:54
Ne, tohle u FB neplati a pochybuji, ze nekde ano.
Vzdy je nutne psat ORDER BY, jinak se pouzije
fyzicke poradi zaznamu (a to nemusi mit nic spolecneho
s poradim vkladani).
Slavek
> 1) Pokud ma PK tak budou dle PK.
> Pokud ne, tak obecne neni poradi zaruceno to servery nezarucuji.
>
> Pavel
> LCD Eizo L768 blikani textu pri posunu
[*] Robert Plzak <rpvp(zv)vagnerplast(tec)cz> - 24.1.2005 19:03:52
Auto fine contrast jsem vypnul a mam [picture] pro vse.
Chytni mysi scrollbar a zkus si pomalinku posouvat textem
v okne nahoru a dolu. Bude to blikat a rozmazavat text.
R. Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Diblik
Sent: Monday, January 24, 2005 2:15 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: LCD Eizo L768 blikani textu pri posunu
On Mon, 24 Jan 2005 12:40:57 +0100, Petr Vones
<konference(zv)petrvones.net> wrote:
> From: "Robert Plzak" <rpvp(zv)vagnerplast(tec)cz>
> > ostry obraz. Bohuzel jen ten co se nehybe :o(
> > Kdyz treba roluji text v okne MSIE, tak pozadi textu nazloutne
> > ztmavi se, text se rozmaze a po skonceni posunu se zaostri,
> > pozadi zesvetli a zbela. Takze to stale blika.
>
> Tohle je typicky problem vsech LCD displeju pro ktery stale preferuji
> CRT. Predpokladam ze je pripojen pres DVI, pokud se nouzove pouziva
> VGA vstup tak je ten efekt udajne jeste horsi.
>
> > Mate podobne zkusenosti s LCD Eizo?
>
> Ne primo s Eizo ale nevidel jsem jeste LCD ktere by se takhle
> nechovalo. Navic je to znacne subjektivni, jsou lide kteri tenhle
> problem nevidi nebo jim vubec nevadi.
>
> Petr Vones
>
Ja mam L568 a zadne takove problemy nepozoruji. Zkusil bych se podivat
na nastaveni programu Screen Manager a funkci Auto fine contrast, ktera
ridi zmeny kontrastu pro ruzne aplikace. Jan Diblik
LCD Eizo L768 blikani textu pri posunu
[*] Robert Plzak <rpvp(zv)vagnerplast(tec)cz> - 24.1.2005 19:01:51
Ja ho mam pripojeny na DVI a tim padem nelze jina nez 60Hz freq.
Dik R. Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Martin Burle
Sent: Monday, January 24, 2005 1:31 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: LCD Eizo L768 blikani textu pri posunu
> Koupil jsem novy LCD Eizo L768 19". Ma krasne barvy a perfektne
> ostry obraz. Bohuzel jen ten co se nehybe :o(
Tohle by nemel slusny LCD delat, myslim ze to neni typicky jev. Mozna
mas nastavenou prilis vysokou obnovovaci frekvenci, nebo je to vadny
kus. IMHO LCD nejsou moc vhodne na hry, filmy apod, resp. nemusi to byt
"ono".
MB
LCD Eizo L768 blikani textu pri posunu
[*] Robert Plzak <rpvp(zv)vagnerplast(tec)cz> - 24.1.2005 18:59:51
Tim USB kabelem to mam propojene a vidim to i ve spravci zarizeni.
Zarizeni standardu HID > Ovladaci prvky monitoru EIZO standardi HID.
Monitor mam pripojeny digitalne na DVI original kabelem.
Grafika GF FX5700.
Ale kdyz si pustim ten program z CD (Screen Adjustment Program),
tak prvni co mi rekne, abych stisknul [A] auto a to nefunguje a nic se
nedeje.
Mam za to, ze kdyz jsem na DVI, tak to [A] nefunguje?
Je to tak?
R. Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Milan Schembera
Sent: Monday, January 24, 2005 1:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: LCD Eizo L768 blikani textu pri posunu
Ahoj,
na prilozenem CD k tomuto monitoru je instalace programu, kde si
nastavis jednotlive barevne profily a parametry monitoru (musis ale
pouzit i prilozeny USB kabel a propojit monitor s pocitacem timto
kabelem). Ten samy monitor tu mam a neni s nim absolutne zadny problem.
M.
4> Zdravim a omlouvam se za OT.
4> Na Eizo(tec)cz na me dotazy nereaguji, tak bych se Vas chtel zeptat na
4> nazor k memu problemu. Koupil jsem novy LCD Eizo L768 19". Ma krasne
4> barvy a perfektne
4> ostry obraz. Bohuzel jen ten co se nehybe :o(
4> Kdyz treba roluji text v okne MSIE, tak pozadi textu
4> nazloutne
4> ztmavi se, text se rozmaze a po skonceni posunu se zaostri,
4> pozadi zesvetli a zbela. Takze to stale blika. Ve hrach
4> (napr. HL2) se pri pohybu do strany rozmaze obraz (rozostri
4> se) a pak zase zaostri.
4> Az se z toho dela zle od zaludku a bolej oci.
4> Druhy monitor LCD Samsung 17" je v pohode.
LCD Eizo L768 blikani textu pri posunu
[*] Robert Plzak <rpvp(zv)vagnerplast(tec)cz> - 24.1.2005 18:45:49
Kabel mam original z dodavky monitoru. Pripojeno digitalne k DVI, takze
nemohu pouzit
Screen Adjustment Program z CD. Take funkce Autosetting nebeha, kdyz
jsem na DVI.
Dik za informace
Preji pekny den
R. Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jakub Martinek
Sent: Monday, January 24, 2005 3:31 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: LCD Eizo L768 blikani textu pri posunu
Rolovani textu maze u vsech - zatim jsem nevidel LCD, ktere by to
nedelalo. Mimo jine pouzivame od Eizo nekolik L550,568,767. Pri spravnem
nastaveni jsou uvedene efekty minimalni. Zkontrolujte kabely a
nastaveni. Eizo 768 je spickovy LCD a uvedene jevy by se meli projevovat
minimalne.
Jakub Martinek
jmartinek(zv)vakmb(tec)cz
VaK Mlada Boleslav, a.s.
> Koupil jsem novy LCD Eizo L768 19". Ma krasne barvy a perfektne ostry
obraz.
> Bohuzel jen ten co se nehybe :o( Kdyz treba roluji text v okne MSIE,
> tak
pozadi textu nazloutne
> ztmavi se, text se rozmaze a po skonceni posunu se zaostri, pozadi
zesvetli a zbela. Takze to stale blika.
> Ve hrach (napr. HL2) se pri pohybu do strany rozmaze obraz (rozostri
> se) a
pak zase zaostri.
> Az se z toho dela zle od zaludku a bolej oci. Druhy monitor LCD
> Samsung
17" je v pohode.FB - Chyba: Unable to complete... pripojeni bylo v
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 24.1.2005 18:23:47
> ABV (Client) Wed Jan 19 15:07:39 2005
> INET/inet_error: send errno = 10054
Predpokladam, ze tohle koreluje s odpojenim klienta.
Je to tak ?
> ABV (Client) Wed Jan 19 15:10:29 2005
> INET/inet_error: send errno = 10054
Stahni si tcpviw ze www.sysinternals.com
Treba ti to pomuze, pokud se to deje na lokale, tak tam mas neco
shnileho,
ale opravdu netusim co.
Slavek
WSAECONNRESET
(10054)
Connection reset by peer.
A existing connection was forcibly closed by the remote host. This
normally results if the peer application on the remote host is suddenly
stopped, the host is rebooted, or the remote host used a "hard close"
(see setsockopt for more information on the SO_LINGER option on the
remote socket.) Poradi zaznamu v SQL
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 24.1.2005 17:49:25
Jak kde, treba na Oraclu to neni ani podle PK. Proste bez ORDER BY =
nahoda (respektive tak jak mu to prijde pod ruku, bud v indexu nebo
full scanem v tabulce).
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, January 24, 2005, 5:31:23 PM, you wrote:
LP> 1) Pokud ma PK tak budou dle PK.
LP> Pokud ne, tak obecne neni poradi zaruceno to servery nezarucuji.
LP> Pavel
Poradi zaznamu v SQL
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 24.1.2005 17:31:23
1) Pokud ma PK tak budou dle PK.
Pokud ne, tak obecne neni poradi zaruceno to servery nezarucuji.
Pavel
> From: Pavel Poles [mailto:delphi(zv)noni(tec)cz]
>
> 1) Lze se spolehnout pri dotazu typu SELECT * FROM Tabulka
> (tedy bez specifikovaneho ORDER BY)
> ze poradi zaznamu bude vzdy stejne, a to takove v jakem
> poradi se do databaze (Firebird 1.5) ukladali?
>
> 2) Lze nekde ziskat pocesteny soubor firebird.msg?
>
Kopirovani TADOQuery
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 24.1.2005 17:21:22
Ahoj *,
mam nasledujici problem. Mam v datamodulu komponentu TADOQuery s nastavenymi
fieldy a ostatnimi property. Potrebuju v runtime vyrobit dalsi objekty typu
TADOQuery takove aby mely stejne nastavene propery vcetne fieldu. Nejde mi
to.
TADOQuery neumi delat Assign. Kdyz jsem zkusil v cyklu projit vsechny fieldy
zdrojove komponenty a dynamicky je vytvaret podle toho i v cilove
komponente, tak mi to pri volani field->Assign haze nepochopitelne Access
violation.
Jak to mam udelat?
Zde je kus kodu:
for (int i=0;i<zdroj->FieldCount;i++) {
n=zdroj->Fields->Fields[i]->ClassName();
if (n=="TStringField") {
sF=new TStringField(cil);
cil->Fields->Add(sF);
sF->Assign(zdroj->Fields->Fields[i]); // Tady to hodi AVE!
}
}
Dik za pomoc.Poradi zaznamu v SQL
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 24.1.2005 17:19:22
Zdravim konferenci,
1) Lze se spolehnout pri dotazu typu SELECT * FROM Tabulka
(tedy bez specifikovaneho ORDER BY)
ze poradi zaznamu bude vzdy stejne, a to takove v jakem
poradi se do databaze (Firebird 1.5) ukladali?
2) Lze nekde ziskat pocesteny soubor firebird.msg?
Dekuji za odpovedi
Pavel Poles
Natazeni dat do TQuery resp. rxMemoryData
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 24.1.2005 16:51:20
V tom pripade me nenapada proc by mel fetch trvat tak dlouho... Nejsou
v tech polich nejake velke CLOBy nebo BLOBy? Pokud ne, videl bych to
na nejaky bug (nebo preformance problem) v TZMySQLQuery, protoze tohle
neni normalni.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, January 24, 2005, 9:12:38 AM, you wrote:
JM> Je to
JM> select pole from tabulka where intid=cislo.
JM> Promenna intid je primarni klic na tabulce. Myslim, ze v databazi problem
JM> neni, ta dotaz provede rychle, prenos dat na klienta je taky rychly, problem
JM> je asi v tom ze TQuery, resp. TZMySQLQuery trva dlouho, nez to do sebe
JM> nasosa :(
JM> Jirka Matejka
Data z konference
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 24.1.2005 16:43:19
Tak jsem tam nakopiroval ta data co tam byla, doufam, ze to nejakej jouda
zase nezlikviduje. Jsou tam roky 2000 - 2003 a rok 2004 az do prosince.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
D&COMM s.r.o.
Korunovacni 6
Praha 7
dosud jsem uspesne stahoval aktualizace databaze prispevku z konference
pomoci adresy
ftp://delphi:archivar(zv)ftp.delphi(tec)cz/Other/KonfViewData/
Nyni mi to hlasi, ze Windows nemohou ziskat pristup k teto slozce. Rad
bych vedel, v cem je problem.
JCL a odchyceni chyboveho stavu..
[*] Petr Vones <konference(zv)petrvones(tec)net> - 24.1.2005 15:49:15
From: <david.kopecek(zv)hacktrack.com>
> var
> GlobalExHandler:TGlobalExHandler;
> begin
> GlobalExHandler :=TGlobalExHandler.Create;
>
> Application.OnException:=GlobalExHandler.HandlerProc;
>
> a jakmile jsem to odstranil a nasimuloval exception strtoin('x'); tak
> exceptdlg to odchytil. Zajimavy je ze kombinace GlobalExHandler a
> ExceptDlg spusobi ze aplikace ne nesmrtelna.
Ten GlobalExHandler je presne co ?
Petr Vones
Ukonceni Threadu
[*] delphin(zv)post(tec)cz - 24.1.2005 15:45:14
> V aplikaci vytvorim a spustim Thread.
> V urcitou chvili jej potrebuji z hlavniho threadu aplikace ukoncit,
> at dela, co dela. Proste ho sestrelit. Jde to nejak korektne udelat?
Korektne nijak. Existuje sice funkce TerminateThread, ale ta nadela vic
skody nez uzitku.
Jedina moznost korektniho ukonceni threadu je dat threadu nejak vedet a on
se ve vhodnou chvili ukonci sam.Ukonceni Threadu
[*] Igor Kapoun <igor.kapoun(zv)volny(tec)cz> - 24.1.2005 15:35:13
V aplikaci vytvorim a spustim Thread.
V urcitou chvili jej potrebuji z hlavniho threadu aplikace ukoncit,
at dela, co dela. Proste ho sestrelit. Jde to nejak korektne udelat?
Dik. Igor
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21.1.2005
LCD Eizo L768 blikani textu pri posunu
[*] Jakub Martinek <listbox(zv)vakmb(tec)cz> - 24.1.2005 15:31:13
Rolovani textu maze u vsech - zatim jsem nevidel LCD, ktere by to nedelalo.
Mimo jine pouzivame od Eizo nekolik L550,568,767. Pri spravnem nastaveni
jsou uvedene efekty minimalni.
Zkontrolujte kabely a nastaveni. Eizo 768 je spickovy LCD a uvedene jevy by
se meli projevovat minimalne.
Jakub Martinek
jmartinek(zv)vakmb(tec)cz
VaK Mlada Boleslav, a.s.
> Koupil jsem novy LCD Eizo L768 19". Ma krasne barvy a perfektne ostry
obraz.
> Bohuzel jen ten co se nehybe :o( Kdyz treba roluji text v okne MSIE, tak
pozadi textu nazloutne
> ztmavi se, text se rozmaze a po skonceni posunu se zaostri, pozadi
zesvetli a zbela. Takze to stale blika.
> Ve hrach (napr. HL2) se pri pohybu do strany rozmaze obraz (rozostri se) a
pak zase zaostri.
> Az se z toho dela zle od zaludku a bolej oci. Druhy monitor LCD Samsung
17" je v pohode.
LCD Eizo L768 blikani textu pri posunu
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 24.1.2005 14:35:08
Ja se taky pridam:
Podobny problem jsme take meli s jednim LCD. Vymenili jsme VGA
(klasicky) kabel za silnejsi (puvodni mel mensi prumer a si i spatne
stineni) a problem se vyresil.
Petr Sikola
> On Mon, 24 Jan 2005 12:40:57 +0100, Petr Vones
> <konference(zv)petrvones.net> wrote:
> > From: "Robert Plzak" <rpvp(zv)vagnerplast(tec)cz>
> > > ostry obraz. Bohuzel jen ten co se nehybe :o(
> > > Kdyz treba roluji text v okne MSIE, tak pozadi textu
> > > nazloutne
> > > ztmavi se, text se rozmaze a po skonceni posunu se zaostri,
> > > pozadi zesvetli a zbela. Takze to stale blika.
> >
> > Tohle je typicky problem vsech LCD displeju pro ktery stale
> preferuji CRT.
> > Predpokladam ze je pripojen pres DVI, pokud se nouzove
> pouziva VGA vstup tak
> > je ten efekt udajne jeste horsi.
LCD Eizo L768 blikani textu pri posunu
[*] Jan Diblik <diblik(zv)gmail(tec)com> - 24.1.2005 14:15:07
On Mon, 24 Jan 2005 12:40:57 +0100, Petr Vones <konference(zv)petrvones.net> wrote:
> From: "Robert Plzak" <rpvp(zv)vagnerplast(tec)cz>
> > ostry obraz. Bohuzel jen ten co se nehybe :o(
> > Kdyz treba roluji text v okne MSIE, tak pozadi textu
> > nazloutne
> > ztmavi se, text se rozmaze a po skonceni posunu se zaostri,
> > pozadi zesvetli a zbela. Takze to stale blika.
>
> Tohle je typicky problem vsech LCD displeju pro ktery stale preferuji CRT.
> Predpokladam ze je pripojen pres DVI, pokud se nouzove pouziva VGA vstup tak
> je ten efekt udajne jeste horsi.
>
> > Mate podobne zkusenosti s LCD Eizo?
>
> Ne primo s Eizo ale nevidel jsem jeste LCD ktere by se takhle nechovalo. Navic
> je to znacne subjektivni, jsou lide kteri tenhle problem nevidi nebo jim vubec
> nevadi.
>
> Petr Vones
>
Ja mam L568 a zadne takove problemy nepozoruji. Zkusil bych se podivat
na nastaveni programu Screen Manager a funkci Auto fine contrast,
ktera ridi zmeny kontrastu pro ruzne aplikace.
Jan Diblik
Problem pri otvarani Excelu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 24.1.2005 13:55:05
> * podpora IDE pri prani (i kdyz toto je sporne)
No, myslel jsem pri PSANI.
Problem pri otvarani Excelu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 24.1.2005 13:49:04
Tak uplne k nicemu nejsou. Napr. v knize Delphi 4 Unleashed se doctes,
ze volani pres TypeLib ma sve vyhody oproti OleVariant. Kdyz to jde,
volam vzdy pres typelib:
* kontrola syntaxe uz v compile-time
* rychlejsi
* podpora IDE pri prani (i kdyz toto je sporne)
* moznost podedit sve "vylepsene" objekty, to pouzivame hodne.
Jinak s tvymi vyhradami souhlasim.
Jan Sebelik napsal(a):
>>>Pouzivam komponenty s palety Servers
>
>
>>Karel Kral
>>...
>>To se pak resi volanim ne pres TypeLib ale pres OleVariant.
>
>
> Nechci zadnou flamewar, ale podle me jsou komponenty z palety Servers k nicemu.
>
> 30 tisic radku kodu, zadny help.
> Stejne nezbyva nez MSDN anebo pokusy...
> A pokud uz ty metody znam, pak je mi komponenta na nic.
> Jedu primo pres OleVariant.
>
> Tyto komponenty navic funkcnost vubec nezapouzdruji, jsou v podstate jenom prepisem COM interface toho OLEVariant.
> Borland je tam dal podle meho soudu jenom proto, aby mohl rici "podporujeme MS Office".
> Hezke, ale k nicemu - viz vyse.
>
> Honza
> ====================================
> = RNDr. Jan Sebelik - HAES
> = Skolici a konzultacni stredisko pro vyvoj SW
> = www.haes(tec)cz
> = Vojtiskova 321
> = 507 81 Lazne Belohrad
> = tel. 493 792 931 (mobil 776 347 735)
> ====================================
>
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
LCD Eizo L768 blikani textu pri posunu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 24.1.2005 13:31:03
> Koupil jsem novy LCD Eizo L768 19". Ma krasne barvy a
> perfektne
> ostry obraz. Bohuzel jen ten co se nehybe :o(
Tohle by nemel slusny LCD delat, myslim ze to neni typicky jev. Mozna mas
nastavenou prilis vysokou obnovovaci frekvenci, nebo je to vadny kus. IMHO
LCD nejsou moc vhodne na hry, filmy apod, resp. nemusi to byt "ono".
MB
LCD Eizo L768 blikani textu pri posunu
[*] Milan Schembera <four(zv)4squares(tec)net> - 24.1.2005 13:25:01
Ahoj,
na prilozenem CD k tomuto monitoru je instalace programu, kde si nastavis jednotlive barevne profily a parametry monitoru (musis ale pouzit i prilozeny USB kabel a propojit monitor s pocitacem timto kabelem). Ten samy monitor tu mam a neni s nim absolutne zadny problem.
M.
4> Zdravim a omlouvam se za OT.
4> Na Eizo(tec)cz na me dotazy nereaguji, tak bych se Vas chtel
4> zeptat na nazor k memu problemu.
4> Koupil jsem novy LCD Eizo L768 19". Ma krasne barvy a
4> perfektne
4> ostry obraz. Bohuzel jen ten co se nehybe :o(
4> Kdyz treba roluji text v okne MSIE, tak pozadi textu
4> nazloutne
4> ztmavi se, text se rozmaze a po skonceni posunu se zaostri,
4> pozadi zesvetli a zbela. Takze to stale blika. Ve hrach
4> (napr. HL2) se pri pohybu do strany rozmaze obraz (rozostri
4> se) a pak zase zaostri.
4> Az se z toho dela zle od zaludku a bolej oci.
4> Druhy monitor LCD Samsung 17" je v pohode.SQL pripojeni - zacatecnicky dotaz
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 24.1.2005 12:58:59
> Podle toho pro mne je asi nejvhodnejsi ADO.
> Jake komponenty je nejvhodnejsi pouzit? A ceho se mam radeji
> vyvarovat, abych predesel zbytecnym problemum?
Tedy asi MS SQL.
Ja jsem spise priznivcem Firebird (IBX nebo IBX+ClientDataSet), takze s MS SQL nejake velke zkusenosti nemam.
Na ucebne mi skolni priklady samozrejme chodi, ale "realne" aplikace jsem pres ADO psal dosud jen do MS Access (.mdb).
Pouzijes TADOConnection + nejaky DataSet.
Je tam TADOTable, TADOQuery, TADDataSet.
Vsechny jsou odvozeny od TADOCustomDataSet, ktery fakticky veskerou funkcnost implementuje.
Ja bych tedy asi volil TADODataSet, protoze se mi zda nejmene "ohnuty" od sveho predka.
U TADOTable, TADOQuery bych se obaval nejakych moznych neprijemnosti, vzniklych "ohybanim" kvuli pofiderni kompatibilite se starou TTable, TQuery (BDE).
Za podstatnou povazuji (mimo jine) property CursorLocation.
V pripade, ze to bude na klientovi, nacitaji se ze "select" veskera data ze serveru.
V kazdem pripade bys mel dodrzet zakladni pravidla prace s jakoukoli SQL databazi:
Nacitat co nejmene dat (vyber pomoci "where" v select), maximum logiky prenest na server (triggery, ulozene procedury).
A vubec:
pokud bych nad ADO postavil TDataSetProvider+TClientDataSet, pak budu vsechno programovat na tim TClientDataSet (v podstate memory table) a ani vlastne nebudu vedet, ze je pod tim ADO a MS SQL. Navic lze aplikacni logiku rozdelit schematicky na server (MS SQL), aplikacni server (TDataSetProvider) a "tenkeho" klienta (TClientDataSet). Tohle reseni je mi hodne sympaticke.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================LCD Eizo L768 blikani textu pri posunu
[*] Petr Vones <konference(zv)petrvones(tec)net> - 24.1.2005 12:40:57
From: "Robert Plzak" <rpvp(zv)vagnerplast(tec)cz>
> ostry obraz. Bohuzel jen ten co se nehybe :o(
> Kdyz treba roluji text v okne MSIE, tak pozadi textu
> nazloutne
> ztmavi se, text se rozmaze a po skonceni posunu se zaostri,
> pozadi zesvetli a zbela. Takze to stale blika.
Tohle je typicky problem vsech LCD displeju pro ktery stale preferuji CRT.
Predpokladam ze je pripojen pres DVI, pokud se nouzove pouziva VGA vstup tak
je ten efekt udajne jeste horsi.
> Mate podobne zkusenosti s LCD Eizo?
Ne primo s Eizo ale nevidel jsem jeste LCD ktere by se takhle nechovalo. Navic
je to znacne subjektivni, jsou lide kteri tenhle problem nevidi nebo jim vubec
nevadi.
Petr Vones SQL pripojeni - zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 24.1.2005 11:46:54
Hello Jan,
Monday, January 24, 2005, 10:50:49 AM, you wrote:
>> Vytvarim aplikaci, pomoci ktere by
>> se uzivatele meli pripojit k SQL databazi na vzdalenem serveru a
>> zobrazovat si tak ruzne informace. Bohuzel, nikdy jsem s databazemi v
>> delphi nepracoval.
> Predevsim je treba vedet k jake databazi.
> V Delphi jsou ctyri technologie pripojeni, kazda je vhodna na neco jineho.
> BDE
> Vseobecne odmitane z duvodu, ktere zde nebudu opakovat.
> Asi nejuniverzalnejsi.
> ADO
> Vyzaduje OLE DB provider pro danou databazi.
> Asi nejvhodnejsi pro databaze od Microsoftu (MS SQL, MS Access).
> Ale treba i Oracle a dalsi.
> IBX
> Interbase/Firebird
> dbExpress
> InterBase/Firebird, Oracle, MySQL a dalsi.
> Vyzaduje uplne jine ("odpojene") techniky prace s daty (TClientDataSet).
> V Delphi neobsazene knihovny:
> TORADataSet a dalsi.
> Honza
> (zrovna jsem to minuly tyden skolil :-)
> ====================================
> = RNDr. Jan Sebelik - HAES
> = Skolici a konzultacni stredisko pro vyvoj SW
> = www.haes(tec)cz
> = Vojtiskova 321
> = 507 81 Lazne Belohrad
> = tel. 493 792 931 (mobil 776 347 735)
> ====================================
Podle toho pro mne je asi nejvhodnejsi ADO.
Jake komponenty je nejvhodnejsi pouzit? A ceho se mam radeji
vyvarovat, abych predesel zbytecnym problemum? Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
OT: LCD Eizo L768 blikani textu pri posunu
[*] Robert Plzak <rpvp(zv)vagnerplast(tec)cz> - 24.1.2005 11:44:53
Zdravim a omlouvam se za OT.
Na Eizo(tec)cz na me dotazy nereaguji, tak bych se Vas chtel
zeptat na nazor k memu problemu.
Koupil jsem novy LCD Eizo L768 19". Ma krasne barvy a
perfektne
ostry obraz. Bohuzel jen ten co se nehybe :o(
Kdyz treba roluji text v okne MSIE, tak pozadi textu
nazloutne
ztmavi se, text se rozmaze a po skonceni posunu se zaostri,
pozadi zesvetli a zbela. Takze to stale blika.
Ve hrach (napr. HL2) se pri pohybu do strany rozmaze obraz
(rozostri se)
a pak zase zaostri.
Az se z toho dela zle od zaludku a bolej oci.
Druhy monitor LCD Samsung 17" je v pohode.
Mate podobne zkusenosti s LCD Eizo?
S pozdravem
R. Plzak
Data z konference
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 24.1.2005 11:16:51
Koukal jsem na to a vse je smazane. Bohuzel nelze zjistit, kdo to ma na
svedomi. Udelam tam znovu adresar Other/KonfViewData a nakopiruju je tam
znovu. Jen aby nevzniklo nedorozumeni: nejsem ani spravcem, ani vlastnikem
toho serveru, jsem obycejny clovek, ktery se rad rozdeli o data s ostatnimi.
Proto prosim NEMAZTE je, slouzi vsem.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
D&COMM s.r.o.
Korunovacni 6
Praha 7
dosud jsem uspesne stahoval aktualizace databaze prispevku z konference
pomoci adresy
ftp://delphi:archivar(zv)ftp.delphi(tec)cz/Other/KonfViewData/
Nyni mi to hlasi, ze Windows nemohou ziskat pristup k teto slozce. Rad
bych vedel, v cem je problem.
Problem pri otvarani Excelu
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 24.1.2005 11:02:50
> > Pouzivam komponenty s palety Servers
> Karel Kral
> ...
> To se pak resi volanim ne pres TypeLib ale pres OleVariant.
Nechci zadnou flamewar, ale podle me jsou komponenty z palety Servers k nicemu.
30 tisic radku kodu, zadny help.
Stejne nezbyva nez MSDN anebo pokusy...
A pokud uz ty metody znam, pak je mi komponenta na nic.
Jedu primo pres OleVariant.
Tyto komponenty navic funkcnost vubec nezapouzdruji, jsou v podstate jenom prepisem COM interface toho OLEVariant.
Borland je tam dal podle meho soudu jenom proto, aby mohl rici "podporujeme MS Office".
Hezke, ale k nicemu - viz vyse.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================SQL pripojeni - zacatecnicky dotaz
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 24.1.2005 10:50:49
> Vytvarim aplikaci, pomoci ktere by
> se uzivatele meli pripojit k SQL databazi na vzdalenem serveru a
> zobrazovat si tak ruzne informace. Bohuzel, nikdy jsem s databazemi v
> delphi nepracoval.
Predevsim je treba vedet k jake databazi.
V Delphi jsou ctyri technologie pripojeni, kazda je vhodna na neco jineho.
BDE
Vseobecne odmitane z duvodu, ktere zde nebudu opakovat.
Asi nejuniverzalnejsi.
ADO
Vyzaduje OLE DB provider pro danou databazi.
Asi nejvhodnejsi pro databaze od Microsoftu (MS SQL, MS Access).
Ale treba i Oracle a dalsi.
IBX
Interbase/Firebird
dbExpress
InterBase/Firebird, Oracle, MySQL a dalsi.
Vyzaduje uplne jine ("odpojene") techniky prace s daty (TClientDataSet).
V Delphi neobsazene knihovny:
TORADataSet a dalsi.
Honza
(zrovna jsem to minuly tyden skolil :-)
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Problem pri otvarani Excelu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 24.1.2005 10:48:49
Podle mne je jedine rozumne reseni pouzivat vzdy komponenty pro NIZSI
nebo stejnou verzi excelu, nez pouzivas. Tedy Excel 97 nebo Excel 2000.
I tak narazime na problemy - napr. metoda Sort ma jiny pocet parametru v
kazde verzi Excelu. To se pak resi volanim ne pres TypeLib ale pres
OleVariant.
Ing. Keder Vladimir napsal(a):
>>Neni problem v tom, ze pouzivas predimportovane komponenty pro Excel XP a
>>snazis se s nima volat Excel 2000 ?
>
>
> Pouzivam komponenty s palety Servers
>
> uses ... ExcelXP, ...
>
> ako zistim verziu Excelu ?
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Data z konference
[*] Jan Plisek <plisek(zv)spse(tec)cz> - 24.1.2005 10:42:48
Vazeni,
dosud jsem uspesne stahoval aktualizace databaze prispevku z konference
pomoci adresy
ftp://delphi:archivar(zv)ftp.delphi(tec)cz/Other/KonfViewData/
Nyni mi to hlasi, ze Windows nemohou ziskat pristup k teto slozce. Rad
bych vedel, v cem je problem.
Dekuji predem za pomoc.
J.Plisek
SQL pripojeni - zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 24.1.2005 10:38:47
Zdravim vsechny,
mam naprosto zacatecnicky dotaz. Vytvarim aplikaci, pomoci ktere by
se uzivatele meli pripojit k SQL databazi na vzdalenem serveru a
zobrazovat si tak ruzne informace. Bohuzel, nikdy jsem s databazemi v
delphi nepracoval.
Mohl by mi prosim nekdo poradit, jak se k DB pripojit? Hledal jsem
tyto informace na internetu, ale priklady, ktere jsem nasel mi
nefungovali.
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
D6 Pro, WinXP Pro SP2
MS SQL2000, Win2003
Zjisteni seznamu existujicich tabulek ve Firebirdu
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 24.1.2005 09:50:44
Dik moc, byl jsem slepy, pouzivam oba dva, myslim ze je to v obou
stejne, takze se da pouzit 'select RDB$RELATION_NAME from RDB$RELATIONS
where RDB$SYSTEM_FLAG = 0'
Tom
>Hmm, nenapsal jsi tu nejzasadnejsi vec - jaky pouzivas DB engine. Dovolim si predpokladat, ze FB.
>
>
>
Zjisteni seznamu existujicich tabulek ve Firebirdu
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 24.1.2005 09:18:39
>
> SELECT DISTINCT RDB$RELATION_NAME AS TABLE_NAME
> FROM RDB$RELATIONS
> WHERE
> RDB$RELATION_NAME NOT STARTING WITH 'RDB$'
> ORDER BY RDB$RELATION_NAME
Myslim, ze by to spis melo byt:
select a.rdb$relation_name
from rdb$relations a
where
(a.rdb$system_flag=0)
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
Natazeni dat do TQuery resp. rxMemoryData
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 24.1.2005 09:12:38
Je to
select pole from tabulka where intid=cislo.
Promenna intid je primarni klic na tabulce. Myslim, ze v databazi problem
neni, ta dotaz provede rychle, prenos dat na klienta je taky rychly, problem
je asi v tom ze TQuery, resp. TZMySQLQuery trva dlouho, nez to do sebe
nasosa :(
Jirka Matejka
==>Sunday, January 23, 2005 6:24 PM delphi(zv)corexpert.com wrote:
> V tom pripade je velmi dulezita WHERE clausule dotazu, respektive
> existence indexu na pole (ci kombinace poli) ktere z tech 100 tisic
> vybere ten jeden radek. Zkus poslat WHERE podminku. A popsat pole co
> jsou v ni.
>
> Jakub Dusek
Zjisteni seznamu existujicich tabulek ve Firebirdu
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 24.1.2005 08:58:37
Pokud pouzivas komponentu TSQLConnection z Delphi, tak v ni je primo funkce
GetTableNames:
procedure TSQLConnection.GetTableNames(List: TStrings; SystemTables: Boolean
= False); Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5
Zjisteni seznamu existujicich tabulek ve Firebirdu
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 24.1.2005 08:48:35
> Od: Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz>
> Datum: 24.01.2005 08:31:56
>
> Ahoj, mam programek ktery vytvari strukturu databaze pro hlavni program
> ktery pak nad ni pracuje, chtel bych si v nem vypsat seznam jiz
> vytvorenych tabulek,
Ahoj.
Hmm, nenapsal jsi tu nejzasadnejsi vec - jaky pouzivas DB engine. Dovolim si predpokladat, ze FB.
Pak se to resi pres systemove tabulky, ktere normalne (pres IB Consoli) nejsou videt. Jestli chces o sve DB vedet vic, stahni si IBExperta (je ve verzi personal free) - z nej uz vyctes spoustu veci.
Pro odpoved, zda existuje nejaka tabulka delam tohle:
**********************
function TUpdDatabaze.TableExists (const Name: String;
const DTB: TDataBaze): boolean;
var
tmpSQL:TIBQuery;
begin
tmpSQL := TIBQuery.Create(nil);
try
case DTB of
dtbCentral:begin
tmpSQL.Database := IBD_Cent;
tmpSQL.Transaction := IBT_Cent;
end;
dtbPerson :begin
tmpSQL.Database := IBD_Pers;
tmpSQL.Transaction := IBT_Pers;
end;
end;
if not tmpSQL.Transaction.InTransaction then
tmpSQL.Transaction.StartTransaction;
tmpSQL.SQL.Text := 'SELECT COUNT(RDB$RELATION_NAME) '+
'FROM RDB$RELATIONS '+
'WHERE RDB$RELATION_NAME = :NAZEV_TABULKY';
tmpSQL.ParamByName('NAZEV_TABULKY').AsString := AnsiUpperCase(Name);
tmpSQL.Open;
result := tmpSQL['count'] > 0;
finally
tmpSQL.close;
if tmpSQL.Transaction.Active then
tmpSQL.Transaction.Commit;
FreeAndNil(tmpSQL);
end;
end;
Indexy:
tmpSQL.SQL.Text := 'SELECT COUNT(RDB$INDEX_NAME) '+
'FROM RDB$INDICES '+
'WHERE RDB$INDEX_NAME = :INDEX_TABULKY';
tmpSQL.ParamByName('INDEX_TABULKY').AsString := AnsiUpperCase(Name);
Procedury:
tmpSQL.SQL.Text := 'SELECT COUNT(RDB$PROCEDURE_NAME) '+
'FROM RDB$PROCEDURES '+
'WHERE RDB$PROCEDURE_NAME = :PROCEDURA';
tmpSQL.ParamByName('PROCEDURA').AsString := AnsiUpperCase(Name);
Triggery:
tmpSQL.SQL.Text := 'SELECT COUNT(RDB$TRIGGER_NAME) '+
'FROM RDB$TRIGGERS '+
'WHERE RDB$TRIGGER_NAME = :NAZEV_TRIGGER';
tmpSQL.ParamByName('NAZEV_TRIGGER').AsString := AnsiUpperCase(Name);
TableConstraint:
tmpSQL.SQL.Text := 'SELECT COUNT(RDB$CONSTRAINT_NAME) '+
'FROM RDB$RELATION_CONSTRAINTS '+
'WHERE (RDB$CONSTRAINT_NAME = :NAZEV_KLICE) AND '+
'(RDB$RELATION_NAME = :NAZEV_TAB)';
tmpSQL.ParamByName('NAZEV_KLICE').AsString := AnsiUpperCASE(Name);
tmpSQL.ParamByName('NAZEV_TAB').AsString := AnsiUpperCASE(TableName);
Generator:
tmpSQL.SQL.Text := 'SELECT COUNT(RDB$GENERATOR_NAME) '+
'FROM RDB$GENERATORS '+
'WHERE RDB$GENERATOR_NAME = :NAZEV_GENERATOR';
tmpSQL.ParamByName('NAZEV_GENERATOR').AsString := AnsiUpperCase(Name);
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
Zjisteni seznamu existujicich tabulek ve Firebirdu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 24.1.2005 08:46:34
No ono to celkem nic neni :)))
Nasledujici select vybere seznam vsech tabulek a views, ktere nejsou
systemove (tzn. nezacinaji retezcem RDB$):
SELECT DISTINCT RDB$RELATION_NAME AS TABLE_NAME
FROM RDB$RELATIONS
WHERE
RDB$RELATION_NAME NOT STARTING WITH 'RDB$'
ORDER BY RDB$RELATION_NAME
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Tomas Krejzek
> Sent: Monday, January 24, 2005 8:27 AM
>
> navic ale i do budoucna bych rad tohle umel, nevite nekdo jak
> to z te databaze dostat, prochazel jsem systemove tabulky,
JCL a odchyceni chyboveho stavu..
[*] david.kopecek(zv)hacktrack(tec)com - 24.1.2005 08:28:33
Zdravim
JR> A nezabije se ta Exception nekde "omylem"? Treba se to nekde v bloku try
JR> except nejak obslouzi a vy si toho ani nevsimnete.. Strilim od boku.. Me se
JR> podobne chovani stava, kdyz poustim nejaky kod v design formularich, tam se
JR> take neodchycene vyjimky kamsi ztraci - vukod se neprovede, ale zadnou
JR> chybovou hlasku nevidim.. Takze jsem si na to udelal vlastni obsluhu a kdyz
JR> to vleze do bloku except, tak si to sam obslouzim a nahlasim si to..
on ten exceptdlg nevyhodil zadnou vyjimku. Ale presto tam musela neke
nastat. Pak jsem si ale vzpomel ze v DPR mam osetrene vyjimky pres
var
GlobalExHandler:TGlobalExHandler;
begin
GlobalExHandler :=TGlobalExHandler.Create;
Application.OnException:=GlobalExHandler.HandlerProc;
a jakmile jsem to odstranil a nasimuloval exception strtoin('x'); tak
exceptdlg to odchytil. Zajimavy je ze kombinace GlobalExHandler a
ExceptDlg spusobi ze aplikace ne nesmrtelna.
>> mam takovy zvlastni problem. Mame aplikaci ktera bezi na pozadi a
>> zpracovava a zarazuje urcite soubory do urcite db ci slozky.
>> Aplikace zpracovava cca 3 soubory za sekundu a nekdy i vice. Ale
>> stava se nam ze obcas cca po 1 dnu provozu to nahlasi excpetion na
>> na urcitem adrese v kodu. Tato exception vyvola pad hlavniho
>> zpracujiciho vlakna a aplikace je takto nefunkcni. Skousel jsem
>> debugerem najit danou cast kudu ale dosel jsem nekam na systemovou
>> cast kde jsem nasel funkce sysmemfree a nebo entercriticalsection.
>> Respektivne jsem nanasel presneho puvodce chyby. Debugerem se to
>> odhalit neda protoze chyba nastane cca po 1 dnu.
>> ale na zaklade rady pana Brantla z konference ohledne odchyceni
>> chyboveho stavu jsem pouzil ExceptDlg z JCL debug tools.
>>
>> Jenze po zapracovani exceptDLG do DPR aplikace uz bezi 6 dni bez
>> padu a jakekoliv exception.. Coz me velmi zarazi. Aplikace proste
>> bezi jako by byla nesmrtelna.
>>
>> Nevite cim by tohle mohlo byt zpusobeno ?
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Zjisteni seznamu existujicich tabulek ve Firebirdu
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 24.1.2005 08:26:32
Ahoj, mam programek ktery vytvari strukturu databaze pro hlavni program
ktery pak nad ni pracuje, chtel bych si v nem vypsat seznam jiz
vytvorenych tabulek, je to sice trosku neco navic ale i do budoucna bych
rad tohle umel, nevite nekdo jak to z te databaze dostat, prochazel jsem
systemove tabulky, ale v zadne to nenasel, resp. spousta z nich mela
memo a blob hodnoty ktere mi nezobrazoval.
Dik moc, Tom
FB - Chyba: Unable to complete... pripojeni bylo v
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 24.1.2005 08:14:31
> Od: Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz>
> Datum: 21.01.2005 15:25:00
>
> Jeste pad serveru :))).
> Takze si prostuduj log serveru.
Tak tuhle odpoved jsem trochu cekal - nicmene z logu serveru nejsem moudry. Dovoluji si ho tady vlozit.
******************************
ABV (Client) Wed Jan 19 13:33:23 2005
Guardian starting: C:\Program Files\Firebird\Firebird_1_5\bin\fbserver.exe
ABV (Client) Wed Jan 19 15:07:39 2005
INET/inet_error: send errno = 10054
ABV (Client) Wed Jan 19 15:10:29 2005
INET/inet_error: send errno = 10054
ABV (Client) Wed Jan 19 15:10:35 2005
INET/inet_error: send errno = 10054
ABV (Client) Wed Jan 19 15:10:38 2005
INET/inet_error: send errno = 10054
ABV (Client) Wed Jan 19 15:10:40 2005
INET/inet_error: send errno = 10054
ABV (Client) Wed Jan 19 15:10:44 2005
INET/inet_error: send errno = 10054
ABV (Client) Wed Jan 19 15:10:44 2005
INET/inet_error: send errno = 10054
ABV (Client) Wed Jan 19 15:10:50 2005
INET/inet_error: send errno = 10054
ABV (Client) Thu Jan 20 13:24:39 2005
INET/inet_error: send errno = 10054
ABV (Client) Thu Jan 20 13:24:39 2005
INET/inet_error: send errno = 10054
ABV (Client) Fri Jan 21 10:09:20 2005
Guardian starting: C:\Program Files\Firebird\Firebird_1_5\bin\fbserver.exe
******************************
Da se z toho vycist neco, co by mohlo dany problem vyresit?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
OT: obnoveni smazaneho zaznamu ve FireBirdu
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 24.1.2005 07:02:26
Ahoj.
Potreboval bych vedet, zda FireBird 1.5 pri smazani zaznamu tabulky jen
zaznam oznaci jako neplatny a pokud ano, zda existuje mechanismus, jak
zaznam opet obnovit (zplatnit).
K pristupu k databazi pouzivam IBDatabase, IBTransaction, IBTable a IBQuery.
S pozdravem Mirek Vopalecky, D7 W2000 Data za cely mesic
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 23.1.2005 23:53:32
Je mi lito, ale kartezky soucin ma sva pravidla.
tj. ses schopen dostat jen vsechny EXISTUJI kombinace
A x B, ale neexistujici nedostanes.
a to chtel tazatel (neexistuje DEN, ale on chtel ho mit).
Takze jsou dve reseni:
1. Tabulka
2. Ulozna procedura, ktera vygeneruje data, ktera by jinak byla v
tabulce.
Popsal jsem druhe reseni.
FOR cyklus umi jen prochazet zaznamy, nikol
iterovat promennou, to umi u FB pouze while.
Slavek
> tak to bych se hadal, proc si nemuzu na select udelat cursor viz
> dokumentace FOR SELECT a pracovat s nim? Vysvetlis mi to?
> Mimochodem proc nepouzijete reseni ktere jsem poslal predtim.
> Nezlobte
> se na me ale kvuli zjisteni hodnot za mesic delat tabulku mno fuj.
>
> Ales
>
> Slavomir Skopalik napsal(a):
>
> >Obavam se, ze je to stejna blbost :((.
> >Prikaz FOR u FB funguje pouze pro SELECT, nikol jako
> iteracni cyklus.
> >Takze asi nejak takto: Do Ulozne procedury si predat mesic,
> za ktery se
> >ma pocitat.
> >
> >zactek je predany pocatek (datum bez casu)
> >pocetdni= .... ; /*ted me nenapada, jak to jednoduse
> zjistit, koukni se
> >po UDF, nebo si to predej
> > jako parametr, pak bude funkce o neco univerzalnejsi
> (tydenni report
> >:)) */
> >i=0;
> >WHILE(i<pocetdni)DO BEGIN
> > SELECT ... WHERE datum BETWEEN :zacatel AND :zacatek+1 INTO ...;
> > SUSPEND;
> > zacatek=zacatek+1;
> > i=i+1;
> >END
> >
> > Slavek
> >
> >
> >
> >
> >
> >
> >
> >
>
>
> JCL a odchyceni chyboveho stavu..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 23.1.2005 23:49:31
A nezabije se ta Exception nekde "omylem"? Treba se to nekde v bloku try
except nejak obslouzi a vy si toho ani nevsimnete.. Strilim od boku.. Me se
podobne chovani stava, kdyz poustim nejaky kod v design formularich, tam se
take neodchycene vyjimky kamsi ztraci - vukod se neprovede, ale zadnou
chybovou hlasku nevidim.. Takze jsem si na to udelal vlastni obsluhu a kdyz
to vleze do bloku except, tak si to sam obslouzim a nahlasim si to..
david.kopecek(zv)hacktrack.com wrote:
> Dobry den,
>
> mam takovy zvlastni problem. Mame aplikaci ktera bezi na pozadi a
> zpracovava a zarazuje urcite soubory do urcite db ci slozky.
> Aplikace zpracovava cca 3 soubory za sekundu a nekdy i vice. Ale
> stava se nam ze obcas cca po 1 dnu provozu to nahlasi excpetion na
> na urcitem adrese v kodu. Tato exception vyvola pad hlavniho
> zpracujiciho vlakna a aplikace je takto nefunkcni. Skousel jsem
> debugerem najit danou cast kudu ale dosel jsem nekam na systemovou
> cast kde jsem nasel funkce sysmemfree a nebo entercriticalsection.
> Respektivne jsem nanasel presneho puvodce chyby. Debugerem se to
> odhalit neda protoze chyba nastane cca po 1 dnu.
>
> ale na zaklade rady pana Brantla z konference ohledne odchyceni
> chyboveho stavu jsem pouzil ExceptDlg z JCL debug tools.
>
> Jenze po zapracovani exceptDLG do DPR aplikace uz bezi 6 dni bez
> padu a jakekoliv exception.. Coz me velmi zarazi. Aplikace proste
> bezi jako by byla nesmrtelna.
>
> Nevite cim by tohle mohlo byt zpusobeno ? Data za cely mesic
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 23.1.2005 22:35:26
tak to bych se hadal, proc si nemuzu na select udelat cursor viz
dokumentace FOR SELECT a pracovat s nim? Vysvetlis mi to?
Mimochodem proc nepouzijete reseni ktere jsem poslal predtim. Nezlobte
se na me ale kvuli zjisteni hodnot za mesic delat tabulku mno fuj.
Ales
Slavomir Skopalik napsal(a):
>Obavam se, ze je to stejna blbost :((.
>Prikaz FOR u FB funguje pouze pro SELECT, nikol jako iteracni cyklus.
>Takze asi nejak takto:
>Do Ulozne procedury si predat mesic, za ktery se ma pocitat.
>
>zactek je predany pocatek (datum bez casu)
>pocetdni= .... ; /*ted me nenapada, jak to jednoduse zjistit, koukni se
>po UDF, nebo si to predej
> jako parametr, pak bude funkce o neco univerzalnejsi (tydenni report
>:)) */
>i=0;
>WHILE(i<pocetdni)DO BEGIN
> SELECT ... WHERE datum BETWEEN :zacatel AND :zacatek+1 INTO ...;
> SUSPEND;
> zacatek=zacatek+1;
> i=i+1;
>END
>
> Slavek
>
>
>
>
>
>
>
Data za cely mesic
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 23.1.2005 22:19:23
Ahoj Dalibore :-)
To se dela opravdu spatne. Budes muset pouzit druhou tabulku ve ktere
budou jenom VSECHNY datumy pro potrebny casovy interval. V selectu ji
pak spojis s tabulkou ze ktere vybiras data.
Muzes to udelat bud v ulozene procedure, kde si vytvoris na serveru
docasnou tabulku a tu spojis s tabulkou ze ktere vybiras data.
Procedura pak nevraci parametry, ale result set (nevim, jestli to jde
ve Firebirdu, ale v MSSQL ano).
Nebo si (treba na zacatku roku) vygeneruj tabulku ve ktere budou
jen datumy na cely rok, (nebo 10 let atd. :), spojis ji s tabulkou
ze ktere vybiras data a omezis to prez ty datumy.
Nebo muzes udelat 28-31 unionem spojenych selectu, a v kazdem vybiras
data za 1 den ... ale to je fakt uchylarna :-)
Stepan o:) -=* Dalibor <delphi-l(zv)clexpert(tec)cz>, 23.1.2005 18:26 wrote *=-
D> Ahoj, potreboval bych vybrat data z tabulky za cely mesic.
D> Klasickym selectem dostanu jenom dny, ve kterych nejaka data byly.
D> Jak to delate vy?
D> Dalibor
D> Firebird 1.5, Delphi 7
Data za cely mesic
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 23.1.2005 22:01:22
Obavam se, ze je to stejna blbost :((.
Prikaz FOR u FB funguje pouze pro SELECT, nikol jako iteracni cyklus.
Takze asi nejak takto:
Do Ulozne procedury si predat mesic, za ktery se ma pocitat.
zactek je predany pocatek (datum bez casu)
pocetdni= .... ; /*ted me nenapada, jak to jednoduse zjistit, koukni se
po UDF, nebo si to predej
jako parametr, pak bude funkce o neco univerzalnejsi (tydenni report
:)) */
i=0;
WHILE(i<pocetdni)DO BEGIN
SELECT ... WHERE datum BETWEEN :zacatel AND :zacatek+1 INTO ...;
SUSPEND;
zacatek=zacatek+1;
i=i+1;
END
Slavek
> ale prosim te radeji si mrkni na prikaz FOR a udelej si proceduru.
> Memory tabulka je to posledni co bych delal. Z klasickeho selectu
> dostanes vsechno neboj:-D
> Rozhodne nepouzij dolni prikaz, to je naprosta blbost.
> Rozdil za poslednich 30 dni a za posledni mesic kazdy urcite vime:-D
>
> Ales
Data za cely mesic
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 23.1.2005 19:11:10
ale prosim te radeji si mrkni na prikaz FOR a udelej si proceduru.
Memory tabulka je to posledni co bych delal. Z klasickeho selectu
dostanes vsechno neboj:-D
Rozhodne nepouzij dolni prikaz, to je naprosta blbost.
Rozdil za poslednich 30 dni a za posledni mesic kazdy urcite vime:-D
Ales
>>
>> Dalibor napsal(a):
>>
>>> Datum tam mam.
>>> Vypis ma obsahovat vsechny dny, tedy od 1. do 31 a to i dny ve
>>> kterych nic neni.
>>> Napada me akorat vytvorit nejakou MemoryTabulku ve ktere vygeneruju
>>> cely mesic a dosadim tam data dnu, ktere mam k dispozici
>>>
>>>
>>>
>>>> A mas tam nejaky datum?
>>>>
>>>> Pokud jo, zkus si pridat podminku: WHERE CAST(datum AS
>>>> DATE)>=(CURRENT_DATE-30).
>>>>
>>>> Jestli jsem to nepochopil, tak se omlouvam.
>>>>
>>>> --
>>>> Jiri Cincura
>>>> http://www.cincura.net/
>>>> http://ID3renamer.cincura.net/
>>>> ICQ#: 314711544
>>>> http://photo.cincura.net/
>>>> http://phorum.cincura.net/
>>>> http://x2develop.com/
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
Data za cely mesic
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 23.1.2005 19:01:08
To je preci blbost, vsichni vime proc
ja bych to udelal nejak takhle
select substring(cast (p.evidoval_date as varchar(24)) from 1 for 7)
from p_prijatefa p where substring(cast (p.evidoval_date as varchar(24))
from 1 for 7) ='2005-01'
Ales
Jiri Cincura napsal(a):
>Dalibor wrote:
>
>
>>Ahoj, potreboval bych vybrat data z tabulky za cely mesic.
>>Klasickym selectem dostanu jenom dny, ve kterych nejaka data byly.
>>Jak to delate vy?
>>
>>
>
>A mas tam nejaky datum?
>
>Pokud jo, zkus si pridat podminku: WHERE CAST(datum AS DATE)>=(CURRENT_DATE-30).
>
>Jestli jsem to nepochopil, tak se omlouvam.
>
>
>
Data za cely mesic
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 23.1.2005 18:59:08
Dalibor wrote:
> Datum tam mam.
> Vypis ma obsahovat vsechny dny, tedy od 1. do 31 a to i dny ve kterych
> nic neni.
A kdyz tam nic nejni, je tam co? NULL?
Pokud tam vubec nic nejni, prehodnotil bych navrh DB a daval bych tam prave treba NULL.
Jinak dalsi moznost me napadla, udelat jeste jednu tabulku (pouze datum a ty zbyle sloupce ale s NULL) a s ni udelat sjednoceni.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Data za cely mesic
[*] Dalibor <dalibor(zv)torola(tec)cz> - 23.1.2005 18:47:07
Datum tam mam.
Vypis ma obsahovat vsechny dny, tedy od 1. do 31 a to i dny ve kterych nic
neni.
Napada me akorat vytvorit nejakou MemoryTabulku ve ktere vygeneruju cely
mesic a dosadim tam data dnu, ktere mam k dispozici
>
> A mas tam nejaky datum?
>
> Pokud jo, zkus si pridat podminku: WHERE CAST(datum AS
> DATE)>=(CURRENT_DATE-30).
>
> Jestli jsem to nepochopil, tak se omlouvam.
>
> --
> Jiri Cincura
> http://www.cincura.net/
> http://ID3renamer.cincura.net/
> ICQ#: 314711544
> http://photo.cincura.net/
> http://phorum.cincura.net/
> http://x2develop.com/
>
>
Natazeni dat do TQuery resp. rxMemoryData
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 23.1.2005 18:24:54
V tom pripade je velmi dulezita WHERE clausule dotazu, respektive
existence indexu na pole (ci kombinace poli) ktere z tech 100 tisic
vybere ten jeden radek. Zkus poslat WHERE podminku. A popsat pole co
jsou v ni.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Sunday, January 23, 2005, 5:26:49 PM, you wrote:
JM> Temer vyhradne jeden radek, jedna se vetsinou o promenne typu interger (cca
JM> 90%), zbytek jsou datumy a stringy... Tabulka muze obsahovat desetitisice
JM> radku, nemela by prelezt 100 tis.
JM> Jirka Matejka
Data za cely mesic
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 23.1.2005 18:35:06
Dalibor wrote:
> Ahoj, potreboval bych vybrat data z tabulky za cely mesic.
> Klasickym selectem dostanu jenom dny, ve kterych nejaka data byly.
> Jak to delate vy?
A mas tam nejaky datum?
Pokud jo, zkus si pridat podminku: WHERE CAST(datum AS DATE)>=(CURRENT_DATE-30).
Jestli jsem to nepochopil, tak se omlouvam.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Data za cely mesic
[*] Dalibor <dalibor(zv)torola(tec)cz> - 23.1.2005 18:26:56
Ahoj, potreboval bych vybrat data z tabulky za cely mesic.
Klasickym selectem dostanu jenom dny, ve kterych nejaka data byly.
Jak to delate vy?
Dalibor
Firebird 1.5, Delphi 7
DBGrid Refresh
[*] RTE <rtepema(zv)mbox.vol(tec)cz> - 23.1.2005 18:24:55
Ale ono jde hlavne o to, ze pokud oznaceny zaznam je napr.
>uprostred >> obrazovky, tak po refresh se obsah posune. Potreboval
>bych tedy ulozit >> pozici prvniho zobrazeneho zaznamu a pak zase
>po nacteni dat obnovit tuto >> pozici tak, aby nedoslo k zadnemu
>posunu.
>
Ja pouzivam v potomkovi DBGridu podobnou konstrukci jako Viktor Doubek,
s vyuzitim primarniho klice tabulky. Zaznam zustane vzdy na svem miste v
DBGridu a pokud byl aktivni, aktivnim tez zustane.
S pozdravem
Petr Marik
type
TScrollPos = record
GridPosition:integer;
ActRec:longint;
end;
TDBGridWR = class(TDBGrid)
..
public
procedure GetScrollPos( var scrollPos: TScrollPos; const ActField :
string);
procedure SetScrollPos( const scrollPos: TScrollPos; const ActField :
string );
..
end;
procedure TDBGridWithRuler.GetScrollPos( var scrollPos: TScrollPos;
const ActField:string);
begin //preda ven cislo radku v mrizce a pozici aktualniho zaznamu
podle pole ActField
scrollPos.ActRec:=Datasource.Dataset.FieldByname(ActField).AsInteger;
scrollPos.GridPosition:=DataLink.ActiveRecord;
end;
procedure TDBGridWithRuler.SetScrollPos( const scrollPos: TScrollPos;
const ActField:string);
var
n:integer;
begin //nastavi grid do pozadovane scroll pozice
Datasource.dataset.DisableControls;
if Datasource.dataset.Locate(ActField,scrollPos.ActRec,[]) then
begin
n:=DataLink.ActiveRecord;
if n>scrollPos.GridPosition then
begin
Datasource.dataset.MoveBy(DataLink.RecordCount-ScrollPos.Gridposition-1);
Datasource.dataset.MoveBy(-DataLink.RecordCount+ScrollPos.Gridposition+1);
end;
if n<scrollPos.GridPosition then
begin
Datasource.dataset.MoveBy(-scrollPos.GridPosition);
Datasource.dataset.MoveBy(scrollPos.GridPosition);
end;
end;
Datasource.dataset.EnableControls;
end;
v aplikaci je pouziti jednoduche
procedure XX
var
sp:TScrollPos;
begin
.....
try
DBGridWR.Datasource.Dataset.DisableControls;
DBGridWR.GetScrollPos(sp,ActFields);
//ActFields je nazev pole, podle ktereho se hleda, spolehlive a
jednoduche je pole typu Autoinc.
// Pokud je pouzit slozeny klic, musi se upravit volani procedury
Locate a ActFields je pak
// seznam nazvu poli slozeneho klice.
.....
//libovolne oprace s datasetem gridu, pripadne i dalsimi
.....
finally
......
DBGridWR.SetScrollPos(sp,ActFields); //pole je nazev stejneho
pole jako vyse
DBGridWR.Datasource.Dataset.EnableControls;
end;
end;nastaveni uctu v Outlook pres Delphi
[*] Slavek Hemala <vlkb(zv)atlas(tec)cz> - 23.1.2005 18:20:53
ahoj,
nevite jak by se dal nastavit SMTP server vsech uctu, ktere jsou v
Outlook2003? Predstavoval bych si to tak, ze bych pouzil CreateOLEObject na
pripojeni k Outlooku ale pak dal nevim, jak se dostat k nastaveni uctu.
diky
Slavek
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21.1.2005
Natazeni dat do TQuery resp. rxMemoryData
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 23.1.2005 17:26:49
Temer vyhradne jeden radek, jedna se vetsinou o promenne typu interger (cca
90%), zbytek jsou datumy a stringy... Tabulka muze obsahovat desetitisice
radku, nemela by prelezt 100 tis.
Jirka Matejka
==>Sunday, January 23, 2005 5:18 PM delphi(zv)corexpert.com wrote:
> Ahoj,
> kolik se taha na klienta radku? Kolik je v tabulce celkem radku?
>
>> mam TZMySQLQuery (ze sady ZeosDB komponent) do ktereho natahuji
>> prikazem "SELECT pole1, pole2... FROM tabulka ... data z databaze
>> MySQL. Pocet poli, ktere se takto natahuji je pres 1000. Provedeni
>> prikazu diky tomu trva dost dlouho (na PIII/800 s 256 RAM) cca pul
>> minuty. Problem je evidentne na strane klienta, databaze to vyridi
>> temer okamzite. Obdobne dlouho trva pokud chci tato data prenest do
>> rxMemoryData (pomoci metody LoadFromDataSet).
>
>> Predpokladam, ze to asi nejde, ale nevite nejakou finticku jak to
>> urychlit? Na slabsich konfiguracich nez uvadim vyse (cca P300) uz to
>> jsou dve minuty a to je neunosne :(
>
>> diky
>
>> Jirka Matejka
>> D6Prof, W2000 SP4, MySQL 4.0.23
Natazeni dat do TQuery resp. rxMemoryData
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 23.1.2005 17:18:48
Ahoj,
kolik se taha na klienta radku? Kolik je v tabulce celkem radku?
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Sunday, January 23, 2005, 4:46:45 PM, you wrote:
JM> Zdravim,
JM> mam TZMySQLQuery (ze sady ZeosDB komponent) do ktereho natahuji prikazem
JM> "SELECT pole1, pole2... FROM tabulka ... data z databaze MySQL. Pocet poli,
JM> ktere se takto natahuji je pres 1000. Provedeni prikazu diky tomu trva dost
JM> dlouho (na PIII/800 s 256 RAM) cca pul minuty. Problem je evidentne na
JM> strane klienta, databaze to vyridi temer okamzite. Obdobne dlouho trva pokud
JM> chci tato data prenest do rxMemoryData (pomoci metody LoadFromDataSet).
JM> Predpokladam, ze to asi nejde, ale nevite nejakou finticku jak to urychlit?
JM> Na slabsich konfiguracich nez uvadim vyse (cca P300) uz to jsou dve minuty
JM> a to je neunosne :(
JM> diky
JM> Jirka Matejka
JM> D6Prof, W2000 SP4, MySQL 4.0.23
Natazeni dat do TQuery resp. rxMemoryData
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 23.1.2005 16:46:45
Zdravim,
mam TZMySQLQuery (ze sady ZeosDB komponent) do ktereho natahuji prikazem
"SELECT pole1, pole2... FROM tabulka ... data z databaze MySQL. Pocet poli,
ktere se takto natahuji je pres 1000. Provedeni prikazu diky tomu trva dost
dlouho (na PIII/800 s 256 RAM) cca pul minuty. Problem je evidentne na
strane klienta, databaze to vyridi temer okamzite. Obdobne dlouho trva pokud
chci tato data prenest do rxMemoryData (pomoci metody LoadFromDataSet).
Predpokladam, ze to asi nejde, ale nevite nejakou finticku jak to urychlit?
Na slabsich konfiguracich nez uvadim vyse (cca P300) uz to jsou dve minuty
a to je neunosne :(
diky
Jirka Matejka
D6Prof, W2000 SP4, MySQL 4.0.23
Nacteni HTML stranky z netu.
[*] Lauko Stefan <laukosw(zv)naex.sk> - 23.1.2005 11:44:24
>> vyskusaj SYNAMPSE - HTTPPost.
>
> Mas asi spis na mysli:
>
> Synapse - HttpSend. ;-)
> Lukas Gebauer.
Ano - pisal som to z pamati :-), inak je to vyborna kniznica.
Lauko.
Nacteni HTML stranky z netu.
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 23.1.2005 11:12:21
> vyskusaj SYNAMPSE - HTTPPost.
Mas asi spis na mysli:
Synapse - HttpSend. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Nacteni HTML stranky z netu.
[*] Lauko Stefan <laukosw(zv)naex.sk> - 23.1.2005 10:52:17
Ahoj,
vyskusaj SYNAMPSE - HTTPPost.
Lauko.
----- Original Message -----
From: "Pavel !" <paullb(zv)seznam(tec)cz>> Ahoj, zdravim. Potrefoval bych nejakym zpusobem nacist obsah webove
> stanky z netu pr : http://neco.xx/index.htm
> Obsah toho htm souboru treba do StringListu. FireBird: Vnorene fce v SQL
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 23.1.2005 10:46:15
Ahoj,
mam takovyto select:
SELECT script, COUNT(script) FROM mrtg WHERE CAST(dt AS DATE)>=(CURRENT_DATE-7) AND script LIKE '%read%' GROUP BY script ORDER BY 2
DESC;
skvele to funguje (vypisuje to "statistiku", jake skripty uzivatel vybiral a spoustel).
Ale jak bych jeste potreboval, aby to vypisovalo jen skripty, jejich pocet spusteni (COUNT(script)) je vetsi jak prumer v celych
spoustenich. Jako abych tam mohl dat HAVING COUNT(script)>AVG(COUNT(script)).
Ale jak na to, tohle samozrejme nejde? Zkousel jsem nejake vnorene selecty, ale bez uspechu.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/
JCL a odchyceni chyboveho stavu..
[*] david.kopecek(zv)hacktrack(tec)com - 23.1.2005 10:44:13
Dobry den,
mam takovy zvlastni problem. Mame aplikaci ktera bezi na pozadi a
zpracovava a zarazuje urcite soubory do urcite db ci slozky.
Aplikace zpracovava cca 3 soubory za sekundu a nekdy i vice. Ale
stava se nam ze obcas cca po 1 dnu provozu to nahlasi excpetion na
na urcitem adrese v kodu. Tato exception vyvola pad hlavniho
zpracujiciho vlakna a aplikace je takto nefunkcni. Skousel jsem
debugerem najit danou cast kudu ale dosel jsem nekam na systemovou
cast kde jsem nasel funkce sysmemfree a nebo entercriticalsection.
Respektivne jsem nanasel presneho puvodce chyby. Debugerem se to
odhalit neda protoze chyba nastane cca po 1 dnu. ale na zaklade rady pana Brantla z konference ohledne odchyceni
chyboveho stavu jsem pouzil ExceptDlg z JCL debug tools.
Jenze po zapracovani exceptDLG do DPR aplikace uz bezi 6 dni bez
padu a jakekoliv exception.. Coz me velmi zarazi. Aplikace proste
bezi jako by byla nesmrtelna.
Nevite cim by tohle mohlo byt zpusobeno ?
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Nacteni HTML stranky z netu.
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 23.1.2005 10:06:07
Ahoj, zdravim. Potrefoval bych nejakym zpusobem nacist obsah webove
stanky z netu pr : http://neco.xx/index.htm
Obsah toho htm souboru treba do StringListu.
Co vlasne potrebuji
-------------------
* Nacteni strabnky z Webu do promene ci objektu
* Funkci pro hedani v retezci pr:
chci najit v obsahu <A href="(libovolny text).(jpg|jpeg)">
* Zjisteni velikosti nejakeho objektu na strance (B)
Diky. IR ovladac k TV karte
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 23.1.2005 10:06:10
Kalasickej IR/Da port na kompu neni, pouze ten co je implementovany na
TV karte. Ale na nej aspi pujde tezko nejak pristupovat. Kdyz o nem
nevim skoro nic.
p.
-----Original Message-----
No idealni je kdyz mas v pocitaci infraport, pak uz je to celkem snadny,
vetsina dalkovejch ovladani jde pri spravnem pristupu k hardware
infraportu chytit, no ale zkousel jsem to naposled pod w98.Problem pri otvarani Excelu
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 22.1.2005 20:05:05
> Neni problem v tom, ze pouzivas predimportovane komponenty pro Excel XP a
> snazis se s nima volat Excel 2000 ?
Pouzivam komponenty s palety Servers
uses ... ExcelXP, ...
ako zistim verziu Excelu ? Problem pri otvarani Excelu
[*] Petr Vones <konference(zv)petrvones(tec)net> - 22.1.2005 19:37:02
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> Access violation at address 00000000. Read of address 00000000.
Neni problem v tom, ze pouzivas predimportovane komponenty pro Excel XP a
snazis se s nima volat Excel 2000 ?
Petr Vones IR ovladac k TV karte
[*] Pavel P <pavel(zv)tvsp(tec)net> - 22.1.2005 19:33:01
No idealni je kdyz mas v pocitaci infraport, pak uz je to celkem snadny, vetsina dalkovejch ovladani jde pri spravnem pristupu k hardware infraportu chytit, no ale zkousel jsem to naposled pod w98.
----- Original Message -----
From: Pavel ! <paullb(zv)seznam(tec)cz>
To: delphi-l(zv)clexpert(tec)cz
Sent: Sat, 22 Jan 2005 18:56:59 +0100
Subject: IR ovladac k TV karte
> Jenom jsem tak premyslel, mam TV kartu a k tomu jsem vyfasoval dalkovy
> ovladac.
> Protoze je skoda, aby byl ovladac vyuzivan pouze v tom pitomim software.
> Tak me napsalo, co takhle nejake "rozsireni" problem, je ze prijmac
> tohoto ovl. Je zapojen do jakeho si "neznameho" konektoru na TV Toneru..
> Nejprve, bych chtel postavit nejakej scanner tohoto portu a podle stavu
> pridelovat jednotliva tlacitka. Nemate nekdo s timto nejake zkusenosti
> ??
>
> p.
>
>
>
> IR ovladac k TV karte
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 22.1.2005 18:56:59
Jenom jsem tak premyslel, mam TV kartu a k tomu jsem vyfasoval dalkovy
ovladac.
Protoze je skoda, aby byl ovladac vyuzivan pouze v tom pitomim software.
Tak me napsalo, co takhle nejake "rozsireni" problem, je ze prijmac
tohoto ovl. Je zapojen do jakeho si "neznameho" konektoru na TV Toneru.
Nejprve, bych chtel postavit nejakej scanner tohoto portu a podle stavu
pridelovat jednotliva tlacitka. Nemate nekdo s timto nejake zkusenosti
??
p.Problem pri otvarani Excelu
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 22.1.2005 17:26:47
> S jakou chybou ?
Access violation at address 00000000. Read of address 00000000.
Problem pri otvarani Excelu
[*] Petr Vones <konference(zv)petrvones(tec)net> - 22.1.2005 16:56:44
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> Potrebujem otvorit Excel a vytlacit subor xls. Pouzivam Delphi 7 a pri
> instalacii som si vybral podporu Office XP. Pokial sa pokusim otvorit Excel
> XP tak je to bez problemov. Pokial to iste vyskusam s Excel 2000, skonci
> operacia chybou. Pouzivam nasledujucu konstrukciu
S jakou chybou ?
Petr Vones Problem pri otvarani Excelu
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 22.1.2005 16:52:44
Ahoj
Potrebujem otvorit Excel a vytlacit subor xls. Pouzivam Delphi 7 a pri
instalacii som si vybral podporu Office XP. Pokial sa pokusim otvorit Excel
XP tak je to bez problemov. Pokial to iste vyskusam s Excel 2000, skonci
operacia chybou. Pouzivam nasledujucu konstrukciu
Excel := TExcelApplication.Create(Application);
Excel.ConnectKind := ckNewInstance;
WBK := Excel.Workbooks.Open(tmpFile, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
Excel.ActiveWorkbook.PrintOut(1, 20, PrintDialog.Copies, False,
Printer.Printers[Printer.PrinterIndex], False, PrintDialog.Collate,
EmptyParam, 0);
WBK.Close(False, tmpFile, 0, 0);
Excel.Free;
Ako zabezpecit bezproblemove Otvorenie, Vytlacenie a Ukoncenie Excel 2000/XP
?
Ing. Keder Vladimir Of Topic
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 22.1.2005 13:38:29
> (Podobne ako to je na listenwac(tec)cz, kde sa do tela spravy dal nejaky
> parameter, uz si nespominam aky a stiahla sa cela diskusia na fore trebars
> asp-l)
*A starsie data este tu:
http://www.rydval(tec)cz/slavek/DataZKonference.php
> Vie niekto poradit dobre stranky venovane delphi, v cestine, slovencine
> ?(V
> delphi zaciatocnik.)
http://brant.wz(tec)cz/
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)stonlune.sk
Of Topic
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 22.1.2005 12:08:20
On 22 Jan 2005 at 10:16, ivan wrote:
> Neda sa nejakym sposobom stiahnut diskusia na tomto fore, nechcel by
> som zatazovat forum otazkami, ktore mozno uz boli preberane
> niekolkokrat. (Podobne ako to je na listenwac(tec)cz, kde sa do tela
> spravy dal nejaky parameter, uz si nespominam aky a stiahla sa cela
> diskusia na fore trebars asp-l)
>
> Vie niekto poradit dobre stranky venovane delphi, v cestine,
> slovencine ?(V delphi zaciatocnik.)
podivej se tady
http://www.pspad.com/cz/konfview.htm
Jarek Uher
Of Topic
[*] ivan <hraskoi(zv)stonline.sk> - 22.1.2005 10:16:10
OT:
Neda sa nejakym sposobom stiahnut diskusia na tomto fore, nechcel by som
zatazovat forum otazkami, ktore mozno uz boli preberane niekolkokrat.
(Podobne ako to je na listenwac(tec)cz, kde sa do tela spravy dal nejaky
parameter, uz si nespominam aky a stiahla sa cela diskusia na fore trebars
asp-l)
Vie niekto poradit dobre stranky venovane delphi, v cestine, slovencine ?(V
delphi zaciatocnik.)
Ivan mnoho framu na jednom formulari
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.1.2005 04:17:41
Pri vytvareni mnoha framu na formulari dochazi, podle vyjadreni meho kolegy
(tedy sefa :-), k vycerpani systemovych prostredku. Jiz se to v konferenci
objevilo. Jde mi o to, zda nemohu prostredky uvolnit napriklad tim, ze bych
pred kazdym, nebo po kazdem vytvareni framu zavolal cosi jako
Application.ProcessMessages. Po pravde receno nevim presne, co ty prostredky
tak zere. Zda to jsou samotne framy nebo, zda to je cosi jineho. Jeste se to
pokusim propatrat, ale pokud by nekdo mel podobny problem a nejakym zpusobem
ho jiz resil. Tak by mne to reseni zajimalo. (Vytvareni framu az po
vytvoreni formulare - ComponentFromString() jsem se chtel nejak vyhnout,
nebot nevim, co to vsechno prinese za svizele, chtel bych to obejit nejak
jednoduseji..)
Ma nekdo zkusenosti s pouzitim vetsiho mnozstvi framu na jednom formulari
(20, 30 ..) ??
JR
icq: 84661209
tel.: 777055590
email: jan_rizek(zv)centrum(tec)cz
Webhosting
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 21.1.2005 20:09:03
Pavel Poles wrote:
> www.pipni(tec)cz maji firebird, ale myslim ze bezi na Linuxu.
>
Ano, u nas na pipni(tec)cz je FireBird, ale bezi na Linuxu.
Jinak si samozrejme doporucuji placeny, free je opravdu pro nenarocne aplikace.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/synchronizace s Abrou G2(G3)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.1.2005 15:24:43
Jiri Rocnak wrote:
> Kdyz uz jsme tady narazili na Abra OLE, tak bych se chtel zeptat, jak
> spravne inicializovat tento objekt, pokud jej chci pouzivat ve zvlastnim
> threadu. Hlasilo mi to kdysi nejakou chybu s CoInitialize. Podrobnosti si uz
> nepamatuji - thready jsem vypustil :-) Ted by se mi to ale docela hodilo.
> Poradi nekdo? Treba Martin Schayna?
Zrejme se jedna o obecny problem s inicializaci klienta libovolneho OLE
serveru, v kazdem threadu je treba volat CoInitialize a CoUnitialize.
Delphi se te od toho snazi odfiltrovat, protoze vola defaultne pro
hlavni thread CoInitialize samo jakmile pouzijes unitu ComObj.
Martin Schayna
FB - Chyba: Unable to complete... pripojeni bylo v
[*] Kalhous <kalhous(zv)eu(tec)cz> - 21.1.2005 15:16:43
Rekl bych, ze daleko nejcastejsi pricinou je zhrouceni serveru pripadne
situace, kdy se server sice jeste formalne nezhroutil ale vtipnym pozadavkem
se zahltil tak, ze na nic jineho nema cas.
> Unable to complete network request to host "ABC".
> Error writing data to the connection.
> Stavajici pripojeni bylo vynucene ukonceno vzdalenym hostitelem.
> Uz se to tu parkrat rozebiralo a tak se chci zeptat, jestli nemate nekdo
> nejaky tip jak to odstranit popr. nejake nove informace. Tusim, ze tu
> padly nazory:
> - chyba sitoveho prvku (switch)
> - chyba sitovky
> - chybny driver sitovky
FB - Chyba: Unable to complete... pripojeni bylo v
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.1.2005 14:28:39
Jeste pad serveru :))).
Takze si prostuduj log serveru.
Slavek
>
> No jo, ale plati to, kdyz mam server a aplikaci na jednom PC?
> To teoreticky pres sitovky vlstne ani nejdu...synchronizace s Abrou G2(G3)
[*] Jiri Rocnak <rocnak(zv)admiscz(tec)net> - 21.1.2005 13:56:36
Kdyz uz jsme tady narazili na Abra OLE, tak bych se chtel zeptat, jak
spravne inicializovat tento objekt, pokud jej chci pouzivat ve zvlastnim
threadu. Hlasilo mi to kdysi nejakou chybu s CoInitialize. Podrobnosti si uz
nepamatuji - thready jsem vypustil :-) Ted by se mi to ale docela hodilo.
Poradi nekdo? Treba Martin Schayna?
Diky.DBGrid Refresh
[*] viktordoubek(zv)volny(tec)cz - 21.1.2005 12:38:31
>> Ale ono jde hlavne o to, ze pokud oznaceny zaznam je napr.
uprostred >> obrazovky, tak po refresh se obsah posune. Potreboval
bych tedy ulozit >> pozici prvniho zobrazeneho zaznamu a pak zase
po nacteni dat obnovit tuto >> pozici tak, aby nedoslo k zadnemu
posunu.
LD> zkus se podivat na Datalink.ActiveRecord a podobne zalezitosti
- LD> nejspis do zdroju db.pas, dbgrids.pas apod. Nicmene mam
pocit, ze LD> zrovna to ActiveRecord, ktere vlastne tusim obvykle
udava, kolikaty LD> radek shora je v gridu aktivni, je read only.
Treba ale najdes zpusob, LD> jak to ovlivnit.
Ja to pouzivam v potomkovi DBGridu takto (neni to uplne koser, ale
pro me pouziti to postacuje):
---------
type
TScrollPos = record
TopRec: integer;
ActRec: integer;
end;
TMyDBGrid = class(TDBGrid)
..
public
procedure GetScrollPos( var scrollPos: TScrollPos);
procedure SetScrollPos( const scrollPos: TScrollPos);
..
end;
procedure TMyDBGrid.GetScrollPos( var scrollPos: TScrollPos);
begin //preda ven cislo aktualniho zaznamu a zaznamu, ktery je v
1.viditelnem radku gridu scrollPos.ActRec :=
DataSource.DataSet.RecNo;
scrollPos.TopRec := scrollPos.ActRec - DataLink.ActiveRecord;
end;
procedure TMyDBGrid.SetScrollPos( const scrollPos: TScrollPos);
begin //nastavi grid do pozadovane scroll pozice a na pozadovany
aktualni zaznam DataSource.DataSet.First;
DataSource.DataSet.MoveBy( scrollPos.TopRec +
DataLink.RecordCount - 2); DataSource.DataSet.MoveBy(
scrollPos.ActRec - DataSource.DataSet.RecNo); end;
---------
Aplikace pak vypada takto (DBG je ten muj potomek gridu) - v tomto
pripade specialni prohledavani datasetu, ktery se projizdi po
zaznamech:
---------
var
CDS :TClientDataSet;
found :boolean;
sp :TScrollPos;
begin
..
//predat si prohledavany dataset (hledame to primo v nem)
CDS := TClientDataSet( DBG.DataSource.DataSet);
//schovat si aktualni pozici
DBG.GetScrollPos( sp);
CDS.DisableControls;
try
//projizdet dataset prislusnym smerem, nastavit found
..
//nenasli -> vratime se do vychozi pozice
if not found then
DBG.SetScrollPos( sp);
finally
CDS.EnableControls;
end;
end;
Webhosting
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 21.1.2005 12:26:29
www.pipni(tec)cz maji firebird, ale myslim ze bezi na Linuxu.
Krom toho jejich free hosting moc nedoporucuji, spatne zkusenosti...
> Nevi nekdo o moznosti webhosting pro Firebird provozovany pod OS Windows.
> Dik za kazde nasmerovani. Vlada
synchronizace s Abrou G2(G3)
[*] Liska David <david.liska(zv)aac-czech(tec)cz> - 21.1.2005 12:20:29
>
> Set InvoiceObject = G3.CreateObject("(zv)IssuedInvoice") Set
> InvoiceData = InvoiceObject.GetValues(ID) Set InvoiceRows =
> InvoiceData.ValueByName("Rows") For Each InvoiceRowData in InvoiceRows
> InvoiceRowData.ValueByName("Text") = "oprava"
> Next
> InvoiceObject.UpdateValues ID, InvoiceData
>
> Pokud budes mit problemy a ja cas, muzu poradit ;-)
Ted uz to zvladnu, diky za navod :-)
Jeste bych potreboval vedet, jestli se pri zakladani noveho radku (treba InvoiceRow) da zjistit jeho ID, ktere bude ulozeno. ID hlavicky vrati fce "mInvoice.CreateNewFromValues(mInvoiceData)". Ale u polozky? Tam je jen metoda "mCollection.Add(mInvoiceRowData)" ktera nic nevraci. Jde mi o to, ze potrebuju udrzet nejakou vazbu mezi obemi databazemi. Byla by moznost po ulozeni faktury znovu ji nacist a precist ID polozek, ale pak zas vznika problem pri parovani a bylo by to narocnejci na vykon...
David
Predava (ekonomickych) dat mezi programy
[*] KasiX <kasix(zv)atlas(tec)cz> - 21.1.2005 12:08:28
> Od: delphi-l-owner(zv)clexpert(tec)cz
> Predmet: Predava (ekonomickych) dat mezi programy
> Vidim, ze ABRA G2 nabizi moznost OLE. Zabyval se nekdo nejakou
> standartizaci pri predavani dat mezi ekonomickymi subjekty,
> existuje norma
> nebo open platforma pro sjednoceni komunikace (napriklad na
> XML)? A pokud
> nic neexistuje, neni chut neco zakladniho pripravit na
platforme teto
> konference? Urcite je mezi nami dost zkusenych praktiku.
Ale bohuzial nieco existuje. System pre vymenu elektronickych
dat EDI (www.edi(tec)cz).
Ide o medzinarodny standard. Technologicky je to naprosty
shit a pre firmu nasej velkosti, ktora to pouziva, potrebujes
aspon jednoho cloveka na plny uvazok, ktory sa stara o
"plynuly" chod tejto "lacnej" "sluzby".
Druhy "bohuzial" je ten, ze ako to uz vo svete chodi, vyhrava
ten, kdo je marketingovo zaujimavejsi a nie ten, kdo je
technologicky lepsi. O nakupe SW rozhoduju manazeri odtrhnuty od reality,
.... to hovori za vsetko.
EDI je vyznamne podporovane konzorciom
hypermarketov, ktore ovladaju trh a ktore to pouzivaju.
Hypermaktery "nutia" samozrejme ostate firmy k vyuzivanu
tohto "standardu". Osobne si myslim, ze nie je prilis rozumne
vytvorit nieco obdobne a konkurovat im.
Inym riesenim (pre mensich partnerov) je samozrejme pouzit nejaky
middleware. Napriklad
MS BizTalk Server. Rovnake stroje maju i SAP, Oracle, HP, ...
Cize si myslim, ze cokolvek dalsie je neprerazitelne.
Pavol Kakacka
Vedouci vyvoje IS
AAC Czech s.r.o.
V Luzich 818
Praha 4 Libus
tel: +420 234 646 443
pavol.kakacka(zv)aac-czech(tec)cz
www.aac-czech(tec)cz
Predava (ekonomickych) dat mezi programy
[*] konference(zv)sales(tec)cz - 21.1.2005 11:36:25
On Behalf Of Vaclav Riha
> Vidim, ze ABRA G2 nabizi moznost OLE. Zabyval se nekdo nejakou
> standartizaci pri predavani dat mezi ekonomickymi subjekty,
> existuje norma
> nebo open platforma pro sjednoceni komunikace (napriklad na
> XML)? A pokud
> nic neexistuje, neni chut neco zakladniho pripravit na platforme teto
> konference? Urcite je mezi nami dost zkusenych praktiku.
Ahoj,
Existuje EDI. To definuje ruzne typy standartizovanych zprav
(Faktura,Objednavka.....)
Ovsem u nas obchodni retezce, ktere hraji pri implementaci velkou roli (u
nichz na rozhodujicich mistech sedi takovi ti "managori s opravdu ale
opravdu hodne utazenou kravatou") zacaly implementovat zpravy trochu
chaoticky a misto toho aby nejprve zavedly predavani ciselniku, tak zacaly
dost nelogicky zpravami typu objednavka, faktura atd...
Tim padem je nesmirny problem, protoze nejprve musi dojit "papirovou" cestou
k sladeni ciselniku a teprve po te lze pouzit EDI zpravy. Ovsem vylucuje to
jakoukoliv zmenu sortimentu u dodavatele a tak se to cele zvrhlo v to, ze to
retezce pouzivaji pouze na staly sortiment coz byvaji vetsinou pouze
zakladni potraviny. Ostatni dodavatele maji smulu protoze i kdyz maji
nejakou cast sveho sortimentu v kolonce "staly sortiment" vzdy obvykle
existuje urcita cast sortimentu "akcniho zbozi" o kterem se neda pres EDI
komunikovat a tim padem je pro ne EDI na nic, neb mit ve firme zcela osobity
logisticky proces pro kazdy retezec jeste dvakrat, neni uspora ale naopak
podhoubi pro problemy.
Tot moje zkusenost.
Ludek Predava (ekonomickych) dat mezi programy
[*] delphi(zv)hon(tec)cz - 21.1.2005 11:10:22
Priklad z praxe:
Mame velky (rozumej drahy) IS na vyrobu, ale ma spatnou ekonomiku.
Mame velky (rozumej drahy) IS na ekonomiku, ale ma spatnou vyrobu.
Ti dva sami navrhli, ze se dohodnou.
Jedou na platforme MS-SQL, data maji diky vychozi collate radeji
ve spolecne treti DB. Data si prehazujou triggrama, krkolomne
je to cele ale budiz. A ted. Je tam chyba. Volam prvnimu, chyba
je u druheho. Volam druhemu, ten zas tvrdi, ze je chyba u prvniho.
Jeden si hraje na SQL guru a bud bude po jeho nebo vubec.
Ego programatoru nezna mezi, to mi ver (nejsem vyjimkou). Tedy
si myslim, ze jakakoli dohoda je nemozna.
A to mam pripad, kdy pouzivaji stejnou platformu. Co takhle
DBF soubory (nejmenovaneho ucetnictvi) s Oracle tabulkami
vyrobniho IS?
Buh zehnej Tvemu konani (ale byt Tebou radeji zkusim
levitaci nebo suchou noho Mrtve more a tak).
Martin
P.S. Omlouvam se za predchozi, asi Tunderbird nebo nekde
mezi klavesnici a zidli...
>>Vidim, ze ABRA G2 nabizi moznost OLE. Zabyval se nekdo nejakou
>>standartizaci pri predavani dat mezi ekonomickymi subjekty, existuje norma
>>nebo open platforma pro sjednoceni komunikace (napriklad na XML)? A pokud
>>nic neexistuje, neni chut neco zakladniho pripravit na platforme teto
>>konference? Urcite je mezi nami dost zkusenych praktiku.Webhosting
[*] Vladimir Vrba - TKV <vrba(zv)tkv(tec)cz> - 21.1.2005 11:32:24
Nevi nekdo o moznosti webhosting pro Firebird provozovany pod OS Windows.
Dik za kazde nasmerovani. Vlada
synchronizace s Abrou G2(G3)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.1.2005 11:04:22
Liska David wrote:
> delam export faktur do Abry G2 pres OLE. Zalozeni
> noveho dokladu vcetne polozek jde, na to jsem prisel.
> Zmena hlavicky existujiciho dokladu taky. Ale za boha
> nemuzu prijit jak zmenit existujici radek (polozku
> faktury). Ted to delam tak, ze pri zmene exist. dokladu
> vsechny radky smazu a zalozim znovu, ale prijde mi to
> jako spatne reseni... Vi nekdo jak na to?
Radky se opravuji skrz hlavicku, proste si pozadas o
data objektu faktury (interface ObjectData) a na nem
pozadas o kolekci radek pomoci ValueByName('Rows'),
dostanes interface DataCollection, ktery muzes prochazet
a kazdy clen kolekce je zase objekt typu ObjectData,
tentokrat se vsak jedna o radek faktury. Na nem muzes
pristupovat k jeho hodnotam, treba ValueByName('Text').
Na zaver ulozis cely objekt faktury pomoci UpdateValues.
S radky se samostatne nepracuje, vzdy pres jejich
hlavicku, toto plati i pro ulozeni nove faktury.
Priklad opravy vsech radku faktury ve VBS:
Dim G3
Set G3 = CreateObject("AbraOLE.Application")
Dim InvoiceObject,
Dim ID, InvoiceData, InvoiceRows, InvoiceRowData
ID = .... ' ID objektu opravovane faktury
Set InvoiceObject = G3.CreateObject("(zv)IssuedInvoice")
Set InvoiceData = InvoiceObject.GetValues(ID)
Set InvoiceRows = InvoiceData.ValueByName("Rows")
For Each InvoiceRowData in InvoiceRows
InvoiceRowData.ValueByName("Text") = "oprava"
Next
InvoiceObject.UpdateValues ID, InvoiceData
Pokud budes mit problemy a ja cas, muzu poradit ;-)
Martin Schayna
http://www.abra(tec)cz/
Predava (ekonomickych) dat mezi programy
[*] delphi(zv)hon(tec)cz - 21.1.2005 10:58:16
P+AVkA7Q-klad z praxe:
M+AOE-me velk+AP0- (rozum+ARs-j drah+AP0-) IS na v+AP0-robu, ale m+AOE- +AWE-patnou ekonomiku.
M+AOE-me velk+AP0- (rozum+ARs-j drah+AP0-) IS na ekonomiku, ale m+AOE- +AWE-patnou v+AP0-robu.
Ti dva sami navrhli, +AX4-e se dohodnou.
Jedou na platform+ARs- MS-SQL, data maj+AO0- d+AO0-ky v+AP0-choz+AO0- collate rad+ARs-ji
ve spole+AQ0-n+AOk- t+AVk-et+AO0- DB. Data si p+AVk-ehazujou triggrama, krkolomn+AOk-
je to cel+AOk- ale budi+AX4-. A te+AQ8-. Je tam chyba. Vol+AOE-m prvn+AO0-mu, chyba
je u druh+AOk-ho. Vol+AOE-m druh+AOk-mu, ten zas tvrd+AO0-, +AX4-e je chyba u prvn+AO0-ho.
Jeden si hraje na SQL guru a bu+AQ8- bude po jeho nebo v+AW8-bec.
Ego program+AOE-tor+AW8- nezn+AOE- mez+AO0-, to mi v+ARsBWQ- (nejsem v+AP0-jimkou). Tedy
si mysl+AO0-m, +AX4-e jak+AOE-koli dohoda je nemo+AX4-n+AOE-.
A to m+AOE-m p+AVkA7Q-pad, kdy pou+AX4A7Q-vaj+AO0- stejnou platformu. Co takhle
DBF soubory (nejmenovan+AOk-ho +APoBDQ-etnictv+AO0-) s Oracle tabulkami
v+AP0-robn+AO0-ho IS?
B+AW8-h +AX4-ehnej Tv+AOk-mu kon+AOE-n+AO0- (ale b+AP0-t Tebou rad+ARs-ji zkus+AO0-m
levitaci nebo suchou noho Mrtv+AOk- mo+AVk-e a tak).
Martin
> Vidim, ze ABRA G2 nabizi moznost OLE. Zabyval se nekdo nejakou
> standartizaci pri predavani dat mezi ekonomickymi subjekty, existuje norma
> nebo open platforma pro sjednoceni komunikace (napriklad na XML)? A pokud
> nic neexistuje, neni chut neco zakladniho pripravit na platforme teto
> konference? Urcite je mezi nami dost zkusenych praktiku.
--
Odchoz+AO0- zpr+AOE-va neobsahuje vir
Zkontrolov+AOE-no Antivirov+AP0-m syst+AOk-mem AVG.
Verze: 7.0.302 / Virov+AOE- b+AOE-ze: 265.7.1 - datum vyd+AOE-n+AO0-: 19
Predava (ekonomickych) dat mezi programy
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 21.1.2005 10:44:10
Vidim, ze ABRA G2 nabizi moznost OLE. Zabyval se nekdo nejakou
standartizaci pri predavani dat mezi ekonomickymi subjekty, existuje norma
nebo open platforma pro sjednoceni komunikace (napriklad na XML)? A pokud
nic neexistuje, neni chut neco zakladniho pripravit na platforme teto
konference? Urcite je mezi nami dost zkusenych praktiku.
S pozdravem Vaclav Riha
FB - Chyba: Unable to complete... pripojeni bylo v
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 21.1.2005 09:58:06
Ahoj panove!
Mam problem, ktery se tu uz nekolikrat resil. Z niceho nic se mi obcas objevi hlaseni:
Unable to complete network request to host "ABC".
Error writing data to the connection.
Stavajici pripojeni bylo vynucene ukonceno vzdalenym hostitelem.
Uz se to tu parkrat rozebiralo a tak se chci zeptat, jestli nemate nekdo nejaky tip jak to odstranit popr. nejake nove informace. Tusim, ze tu padly nazory:
- chyba sitoveho prvku (switch)
- chyba sitovky
- chybny driver sitovky
No jo, ale plati to, kdyz mam server a aplikaci na jednom PC? To teoreticky pres sitovky vlstne ani nejdu...
Za kazdy napad budu vdecny.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
TMemo - obarveni jednotlivych tetu
[*] vstuchl(zv)email(tec)cz - 21.1.2005 09:58:06
Ahoj, potreboval bych poradit, jak se da v komponente TMemo udelat obarveni textu. Napriklad prvni radka bude cervena, druha modra, na treti bude jen od znaku 5 do znaku 50 jina barva.
Dekuji za kazde voditko,
Vasek
TMemo - obarveni jednotlivych tetu
[*] Ing. Ludek Florian <ludek.florian(zv)bluerose(tec)cz> - 21.1.2005 09:42:04
Cauec,
> Ahoj,
>
> potreboval bych poradit, jak se da v komponente TMemo udelat obarveni
textu. Napriklad prvni radka bude cervena, druha modra, na treti bude jen od
znaku 5 do znaku 50 jina barva.
>
nekde jsem stahnul priklad, ale na ListBox, tak ten je nize, EXE s prikladem
a zdroji Ti posilam primo, ne do konference.
Bye Ludan
------------------------------------------------------------------------
unit head;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm_hlavni = class(TForm)
ListBox: TListBox;
Timer: TTimer;
Shape1: TShape;
CheckBox: TCheckBox;
icq1: TImage;
icq2: TImage;
Label1: TLabel;
Label2: TLabel;
procedure ListBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure TimerTimer(Sender: TObject);
procedure ListBoxDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure ListBoxEnter(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure icq2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_hlavni: TForm_hlavni;
implementation
{$R *.dfm}
procedure TForm_hlavni.ListBoxMouseMove(Sender: TObject; Shift: TShiftState;
X,
Y: Integer);
begin
if not CheckBox.Checked then
begin
if (Y > ListBox.Height - 10) then
listBox.Perform(WM_VSCROLL,SB_LINEDOWN,0)
else
if (Y < 10) then
listBox.Perform(WM_VSCROLL,SB_LINEUP,0);
end;
end;
procedure TForm_hlavni.TimerTimer(Sender: TObject);
begin
ListBox.Perform(WM_VSCROLL,SB_LINEDOWN,0);
end;
procedure TForm_hlavni.ListBoxDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
if index mod 2 = 0 then
begin
ListBox.Canvas.Font.Color := clWhite;
ListBox.Canvas.Brush.Color := $00A86E3A;
Rect.Right := ListBox.Width div 2;
ListBox.Canvas.FillRect(rect);
ListBox.Canvas.Brush.Color := $005B5BFF;
Rect.Left := Rect.Right;
Rect.Right := ListBox.Width;
ListBox.Canvas.FillRect(Rect);
end;
ListBox.Canvas.Brush.Style := bsClear;
ListBox.Canvas.TextOut(0,Rect.Top, ListBox.Items[Index]);
end;
// (index mod 2) = 1 - sudy
// (index mod 2) = 0 - lichy
// (index mod 3) = 0 - kazda treti
// (index mod 4) = 0 - kazda ctvrta
procedure TForm_hlavni.ListBoxEnter(Sender: TObject);
begin
CheckBox.SetFocus;
end;
procedure TForm_hlavni.FormCreate(Sender: TObject);
begin
ListBox.Perform(WM_VSCROLL,SB_TOP,0);
end;
procedure TForm_hlavni.CheckBoxMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ListBox.Perform(WM_VSCROLL,SB_TOP,0);
if CheckBox.Checked then
Timer.Enabled := true
else
Timer.Enabled := false;
end;
procedure TForm_hlavni.icq2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
icq1.Show;
end;
procedure TForm_hlavni.FormMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
icq1.Hide;
end;
end.TMemo - obarveni jednotlivych tetu
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 21.1.2005 09:42:04
Ja ti nevim, jestli to u TMemo jde, ale kdyz pouzijes TRichEdit, tak tam to jde urcite a velice jednoduse ... nehlede na spousty jinych vyhod ....
Milan
-----Original Message-----
Ahoj,
potreboval bych poradit, jak se da v komponente TMemo udelat obarveni textu. Napriklad prvni radka bude cervena, druha modra, na treti bude jen od znaku 5 do znaku 50 jina barva.
synchronizace s Abrou G2(G3)
[*] Liska David <david.liska(zv)aac-czech(tec)cz> - 21.1.2005 10:12:08
Zdravim,
delam export faktur do Abry G2 pres OLE. Zalozeni noveho dokladu vcetne polozek jde, na to jsem prisel. Zmena hlavicky existujiciho dokladu taky. Ale za boha nemuzu prijit jak zmenit existujici radek (polozku faktury). Ted to delam tak, ze pri zmene exist. dokladu vsechny radky smazu a zalozim znovu, ale prijde mi to jako spatne reseni... Vi nekdo jak na to?
Diky, David
TMemo - obarveni jednotlivych tetu
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 21.1.2005 09:48:05
Na to se musi pouzit TRichEdit.
Tk.
> potreboval bych poradit, jak se da v komponente TMemo udelat
> obarveni textu. Napriklad prvni radka bude cervena, druha
> modra, na treti bude jen od znaku 5 do znaku 50 jina barva.
TMemo - obarveni jednotlivych tetu
[*] horky(zv)cominn(tec)cz - 21.1.2005 09:40:03
> From: vstuchl(zv)email(tec)cz [mailto:vstuchl(zv)email(tec)cz]
> potreboval bych poradit, jak se da v komponente TMemo udelat
> obarveni textu. Napriklad prvni radka bude cervena, druha
TMemo to neumi, musis pouzit TRichEdit. Tohle jsem posilal pred tydnem, zkus si prohledat doslou postu z konference, urcite najdes i vic veci.
Prohlidni si demo
"c:\Program Files\Borland\Delphi7\Demos\RichEdit\richedit.dpr"
nebo pristupuj primo na vlastnosti vybraneho textu
oznacis si cast textu a zmenis mu barvu:
richedit.SelAttributes.Color := clRed;
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
TMemo - obarveni jednotlivych tetu
[*] vstuchl(zv)email(tec)cz - 21.1.2005 09:20:00
Ahoj,
potreboval bych poradit, jak se da v komponente TMemo udelat obarveni textu. Napriklad prvni radka bude cervena, druha modra, na treti bude jen od znaku 5 do znaku 50 jina barva.
Dekuji za kazde voditko,
Vasek
Dokaze spuspeny program prepisat vlastne *.exe
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 21.1.2005 09:15:59
> Od: campulka <campulka(zv)czas(tec)cz>
> Datum: 21.01.2005 07:18:30
>
> Ja to zase delam tak, ze spusteny exe za chodu prejmenuju a stazenemu updatu
> dam puvodni jmeno... takze po restartu aplikace se spousti aktualizovana (v
> ni pak muze byt kod na odmazani stare app)
Ahoj.
Ja na to mam jinou metodu. Aplikace se pripoji k NETu, zjisti dostupnost nove verze, pokud existuje nabidne jeji stazeni. PO stazeni se rozbali a ulozi "vedle" bezici aplikace s jinym nazvem. Bezici aplikace spusti "klon" s parametrem, ktery zpusobi, ze klon jenom okopiruje sam sebe pod nazvem puvodni aplikace a spusti jiz hotovou novou verzi - opet s paramatrem, kterym jednak poznam, ze jde o spusteni po updateu a jednak jsem schopne presunout uzivatele do stavu prace, ve ktere byl pred tim, nez povolil update.
Sel jsem timhle krkolomnejsim zpusobem, protoze jsem neznal to, co tady psal P. Vones a tudiz se mi nedarilo prejmenovani souboru za behu atd.
Vim, ze existuje jeste jedno reseni - ted si nevybavim, jestli jsem to cetl nekde na NETu a nebo jestli je to primo jededn z tipu triku z knihy 1001 Tipu triku v Delphi (nebo tak nejak ;o) a tam bylo popsano reseni podobne jake jsem zvolil akorat s tim rozdilem, ze se nova aplikace nekopirovala na disk, ale rovnou do apmeti a spustila se odtamtud. Zbytek uz byl snad stejny.
No ispiraci jsi dostal dost, Petre, tak hura do vlastniho reseni! ;o)
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.2
programator amater
Zjisteni barevne hloubky ikony
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 21.1.2005 08:41:55
Tak nakonec jsem si napsal vlastni TIcon od zacatku (bez API funkci pro
ikony). Funguje mi perfektne ale mam jeden dotaz: Vi nekdo proc se u
nekterych ikon udava ve strukture TBitmapInfoHeader vyska bitmapy dvakrat
vetsi nez ve strukture TIconDirEntry? Zjistuji to jen u obrazku 32*32
pixelu.
Diky
Tk.
> potrebuji spravne zobrazit jakoukoli ikonu (soubor *.ico) v
> Delphi na vsech
> Windows rekneme od Win98 a vyse. Tu narazim na problem s
> 32-bitovymi ikonami
> s alpha kanalem, ktere mi DrawIcon(Ex) nezobrazi spravne napr. na W2K.
Dokaze spuspeny program prepisat vlastne *.exe
[*] campulka <campulka(zv)czas(tec)cz> - 21.1.2005 07:15:49
Ja to zase delam tak, ze spusteny exe za chodu prejmenuju a stazenemu updatu
dam puvodni jmeno... takze po restartu aplikace se spousti aktualizovana (v
ni pak muze byt kod na odmazani stare app)
> -----Original Message-----
> Ahoj,
> IMHO to nejde. Resi se to tak, ze s programem distribuujes
> jeste jednu jednoduchou aplikaci a pak:
> 1) Stahnes update (s jinym jmenem)
> 2) zavolas tu jednoduchou updatovaci app a ukoncis hlavni aplikaci
> 3) pockas na ukonceni hlavni app a pak prespises novym souborem
> 4) Spustis hlavni aplikaci a ukoncis pomocnou app
>
>
> Ludek
DBGrid Refresh
[*] MAd <mad(zv)worldmail(tec)cz> - 20.1.2005 19:41:02
Zdravim,
add1) Data jsou napojena na MySQL (pres ZEOS) a pokud mam informace, tak
neobsahuje moznost Triggeru, ani funkce.
add2) To je dobre reseni
add3) Predpokladam, ze pocet zaznamu nepresahne 300 zaznamu za rok, takze
bych si s tim nedelal hlavu :-)
-----Original Message-----
1) Mas zakladni problem - proce delat refresh vzdy po dvou minutach - co
kdyz k zadne zmene nedoslo? Pak bude zbytecny! Mas tyto moznosti:
a) pouzivas-li Firebird, pak vyuzit jeho events nad konkretni tabulkou,
ktera Te zajima a pokud prijde udalost, pak teprve delat refresh
b) mas-li jiny BD engine, pak lze udelat to rozesilani vsem preihlasenym
klientum na zaklade trigger, UDF atd.
2) Nechces-li, neumis-li a nebo existuji-li jine duvody proc nemuzues pouzit
1a) nebo 1b), pak si z aplikace kontroluj sam, jestli doslo k nejake zmene.
Jako idelani se jevi sledovat hodnotu nejakeho generatoru a nebo primo
hodnotu ID z Tve tabulky - zmenila se max. hodnota id? pokud ano, je potreba
udelat refresh.
Tohle reseni Ti bude fungovat jen pri vytvoreni novych zaznamu. Pokud
potrebujes zajistit zmeny i pri refreshi, tak se hodi udelat si novou
tabulku, do ktere budes triggerem zapisovat cas posledni zmeny te tabulky,
co Te zajima - no a pak uz je postup stejny jako zjistit zda se zmenilo id,
ale s tim rozdilem, ze sledujes cas
3) Tve reseni neni dobre! Bude fungovat chvili po instalaci, ale jakmile se
bude Tva tabulka doplnovat, bude to pro uzivatele utrpueni. PROC? Predstav
si, ze casem naplnis Tvou tabulku 1.000.000 zaznamu. A ted si predstav, ze
Tva apliakce bude pozadovat stazeni 1.000.000 zaznamu co dve minuty +
presunuti se na zaznam, na kterm byl uzivatel -> uzivatel bude vic cekat na
apliakci, nez vubec bude moct neco delat. Co s tim? Vykasli se na pouziti
Table a pouzij radeji query, ve kterem si muzes jasne definovat, ktere
zaznamy Te vubec zajimaji!!! Vis, ze uziavtel je na zaznamu x, tak si nechas
poslat zaznamy x-5 a x+5. Je to podle me rozhodne lepsi cesta!
Co se tyce RecNo a posunuti se na pozici, na ktere uzivatel skutecne byl,
tak jsem Ti v prvni zprave napsal i kousek kodu, ale to, co naspal Pavel
Benacek je presne. Misto RecNo pouzij treba ID a po refresi se presun na
pozici, ktera ma toto id.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
DBGrid Refresh
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 20.1.2005 18:44:58
Hmm, ale co kdyz on treba nebude mit v tabulce 10E6 zaznamu. Ver tomu, ze je
spousta aplikaci, kde mas v tabulkach stovky zaznamu a tim to konci. Napr
ucetni software. Dejme tomu, ze refresh toho gridu bude trvat 1 sekundu, pak
si toho uzivatel ani nemusi vsimnout (zvlast, kdyz se treba zrovna nebude
ten grid videt)
Aby se mu nastavil stejny zaznam jako pred refreshem je resitelne
pamatovanim si primarniho klice. Ovsem to aby zustal radek na stejne pozici
vzhledem k ramu toho gridu asi nebude tak snadny. Aspon ja nevim jak to
jednoduse vyresit. Kdyby na to nekdo prisel, uvital bych to,pouzil bych to
pri normalni refreshi, ktery udela uzivatel. Dalsi vec, kterou by si musel
tazatel nejak vyresit je pripad, ze aktualni zaznam po refreshi zmizi (nekdo
jiny ho treba smazal). Jaky zaznam pak oznacit aby to uzivatele nematlo.
>
> 3) Tve reseni neni dobre! Bude fungovat chvili po instalaci, ale
> jakmile se bude Tva tabulka doplnovat, bude to pro uzivatele
> utrpueni. PROC? Predstav si, ze casem naplnis Tvou tabulku
> 1.000.000 zaznamu. A ted si predstav, ze Tva apliakce bude
> pozadovat stazeni 1.000.000 zaznamu co dve minuty + presunuti se
> na zaznam, na kterm byl uzivatel -> uzivatel bude vic cekat na
> apliakci, nez vubec bude moct neco delat. Co s tim? Vykasli se na
> pouziti Table a pouzij radeji query, ve kterem si muzes jasne
> definovat, ktere zaznamy Te vubec zajimaji!!! Vis, ze uziavtel je
> na zaznamu x, tak si nechas poslat zaznamy x-5 a x+5. Je to podle
> me rozhodne lepsi cesta!
>
> Co se tyce RecNo a posunuti se na pozici, na ktere uzivatel
> skutecne byl, tak jsem Ti v prvni zprave napsal i kousek kodu,
> ale to, co naspal Pavel Benacek je presne. Misto RecNo pouzij
> treba ID a po refresi se presun na pozici, ktera ma toto id.
Tvorba MDB
[*] Mirek Mrakota <mirek(zv)mrakota(tec)cz> - 20.1.2005 18:42:57
> prosim, vi nekdo, jak lze programove vytvorit databazovy soubor
> MDB (MS Access) ?
uses ComObj;
var
v: OLEVariant;
begin
v := CreateOleObject('ADOX.Catalog');
v.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb');
v := NULL;
end;
DBGrid Refresh
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 20.1.2005 18:14:55
> Od: MAd <mad(zv)worldmail(tec)cz>
> Datum: 20.01.2005 01:43:07
v aplikaci potrebuji delat cca. jednou za dve minuty refresh tabulky, ktera je napojena na DBGrid (aplikace je multiuzivatelska a napojena na SQL server
- potrebuji, aby vsichni klienti meli aktualni data). Potreboval bych tento refresh udelat "nenapadne", aby tim uzivatel nebyl obtezovan (nedochazelo k vertikalnimu posunovani).
Tim sice dosahnu, ze zustanu na aktualnim zaznamu (je viditelny), ale obsah se muze posunout... Nema nekdo lepsi system ?
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Ahoj.
Uz jsem na Tvuj dotaz odpovedel - docela rozsahlym mailem, ale diky www.email(tec)cz a jeho chybe jsem prisel o cely dopis >(((( Tak snad napodruhe uz to vyjde!
1) Mas zakladni problem - proce delat refresh vzdy po dvou minutach - co kdyz k zadne zmene nedoslo? Pak bude zbytecny! Mas tyto moznosti:
a) pouzivas-li Firebird, pak vyuzit jeho events nad konkretni tabulkou, ktera Te zajima a pokud prijde udalost, pak teprve delat refresh
b) mas-li jiny BD engine, pak lze udelat to rozesilani vsem preihlasenym klientum na zaklade trigger, UDF atd.
2) Nechces-li, neumis-li a nebo existuji-li jine duvody proc nemuzues pouzit 1a) nebo 1b), pak si z aplikace kontroluj sam, jestli doslo k nejake zmene. Jako idelani se jevi sledovat hodnotu nejakeho generatoru a nebo primo hodnotu ID z Tve tabulky - zmenila se max. hodnota id? pokud ano, je potreba udelat refresh.
Tohle reseni Ti bude fungovat jen pri vytvoreni novych zaznamu. Pokud potrebujes zajistit zmeny i pri refreshi, tak se hodi udelat si novou tabulku, do ktere budes triggerem zapisovat cas posledni zmeny te tabulky, co Te zajima - no a pak uz je postup stejny jako zjistit zda se zmenilo id, ale s tim rozdilem, ze sledujes cas
3) Tve reseni neni dobre! Bude fungovat chvili po instalaci, ale jakmile se bude Tva tabulka doplnovat, bude to pro uzivatele utrpueni. PROC? Predstav si, ze casem naplnis Tvou tabulku 1.000.000 zaznamu. A ted si predstav, ze Tva apliakce bude pozadovat stazeni 1.000.000 zaznamu co dve minuty + presunuti se na zaznam, na kterm byl uzivatel -> uzivatel bude vic cekat na apliakci, nez vubec bude moct neco delat. Co s tim? Vykasli se na pouziti Table a pouzij radeji query, ve kterem si muzes jasne definovat, ktere zaznamy Te vubec zajimaji!!! Vis, ze uziavtel je na zaznamu x, tak si nechas poslat zaznamy x-5 a x+5. Je to podle me rozhodne lepsi cesta!
Co se tyce RecNo a posunuti se na pozici, na ktere uzivatel skutecne byl, tak jsem Ti v prvni zprave napsal i kousek kodu, ale to, co naspal Pavel Benacek je presne. Misto RecNo pouzij treba ID a po refresi se presun na pozici, ktera ma toto id.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
Dokaze spuspeny program prepisat vlastne *.exe
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 20.1.2005 17:32:47
Psal o tom Petr Vones ve vlakne o spusteni programu z pameti.
<CITACE>
Tohle zalezi na nastaveni nasledujicih flagu v hlavicce PE souboru:
IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP
IMAGE_FILE_NET_RUN_FROM_SWAP
http://msdn.microsoft.com/library/devprods/vs6/visualc/vccore/_core_.2f.swap
run.htm
V Delphi to lze specifikovat pomoci:
{$SetPEFlags IMAGE_FILE_NET_RUN_FROM_SWAP}
{$SetPEFlags IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP}
</CITACE>
No ja osobne bych sel jinou cestou nez prepisovani sama sebe. Resil jsem to
dalsim programem, updaterem, ktery byl spusten updatovanym programem.
Updatovany program se ukoncil, updater ho prepsal a zase spustil.
Problem by byl s updatovanim updateru, ale to by nemuselo byt potreba, pokud
bude jednoduchy, tak by v nem nemelo byt co k opravovani :-)> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Langer
> Sent: Thursday, January 20, 2005 5:19 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Dokaze spuspeny program prepisat vlastne *.exe
>
>
> Myslim ze to lze, ale nevim presne na kterych windowsech. Na XP
> urcite, na
> 2000 nevim a na 98/Me asi ne. Je na to nejaky flag v PE hlavicce, ktery
> rika, ze se pred spustenim ma udelat "shadow copy" a ta teprve spustit.
> Nedavno se tu o tom mluvilo.
>
> Petr Langer
>
> ----- Original Message -----
> From: "Ing. SKODA Peter" <delphikonf(zv)proxima-soft.sk>
> Subject: Dokaze spuspeny program prepisat vlastne *.exe
>
>
> > Dobry den,
> > potreboval by som vediet ci dokaze spuspeny program prepisat vlastne
> > *.exe.
> > Potrebujem to vediet ohladne updatovania Aplikacie.
> > s pozdravom
> > SKODA Peter
>
>
>
Dokaze spuspeny program prepisat vlastne *.exe
[*] Petr Langer <langer(zv)xdom(tec)cz> - 20.1.2005 17:18:45
Myslim ze to lze, ale nevim presne na kterych windowsech. Na XP urcite, na
2000 nevim a na 98/Me asi ne. Je na to nejaky flag v PE hlavicce, ktery
rika, ze se pred spustenim ma udelat "shadow copy" a ta teprve spustit.
Nedavno se tu o tom mluvilo.
Petr Langer
----- Original Message -----
From: "Ing. SKODA Peter" <delphikonf(zv)proxima-soft.sk>
Subject: Dokaze spuspeny program prepisat vlastne *.exe
> Dobry den,
> potreboval by som vediet ci dokaze spuspeny program prepisat vlastne
> *.exe.
> Potrebujem to vediet ohladne updatovania Aplikacie.
> s pozdravom
> SKODA Peter
DBGrid Refresh
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 20.1.2005 16:36:42
> Od: MAd <mad(zv)worldmail(tec)cz>
> Datum: 20.01.2005 01:43:07
v aplikaci potrebuji delat cca. jednou za dve minuty refresh tabulky, ktera je napojena na DBGrid (aplikace je multiuzivatelska a napojena na SQL server
- potrebuji, aby vsichni klienti meli aktualni data). Potreboval bych tento refresh udelat "nenapadne", aby tim uzivatel nebyl obtezovan (nedochazelo k vertikalnimu posunovani).
Tim sice dosahnu, ze zustanu na aktualnim zaznamu (je viditelny), ale obsah se muze posunout...
>-------------------------------------------------------------
Ahoj.
1) nemyslim si, ze refresh vzdy po nejakem casovem intervalu je cool reseni ->
a) pouzivas-li FireBird je jednoduche si vytvorit eventy, ktere Ti poslou udalost, ze doslo k pridani zaznamu
b) pouzivas-li jiny DB engine, pak si muzes udelat trigger, ktery posle zpravu na pripojene klienty - ci-li obdoba eventu z FB
2) pokud nechces, neumis a nebo mas jine duvody proc to nepredelat na 1a) nebo 1b), pak nez delat refresh vzdy, tak je lepsi sledovat jeden udaj, ktery Ti rekne, jestli vubec refresh potrebujes - jako idealni se jevi sledovat hodotu id v tabulce - pak Ti staci mit timer, ktery se bude koukat na ID a kdyz se zmeni, zavola refresh. Tohle bude fungovat jen v pripade, ze po zadani zaznamu je zaznam uz nemenny - ci-li tohle by nefungovalo, pokud by nejaky uzivatel nejaky zaznam zmenil. Reseni - mit trigger, ktery do nejake spec. tabulky zapise treba cas posledni aktualizace a pak plati co jsem napsal, akorat misto ID budes sledovat cas z jine tabulky.
Jeste Te chci upozornit, ze Tve reseni bude fungovat jen v momente instalace aplikace - duvod? Jakmile zacne byt v systemu vice dat, budes se potykat s problemem traffic a dale Tva aplikace bude vic tuha, nez se s ni vubec bude dat pracovat - PROC? Predstav si, ze se casem Tva tabulka naplni 1.000.000 zaznamu a Ty podle Tveho reseni budes delat refresh co dve minuty tehle zaznumu - DES! Tvym zakladnim problemem je na tuto praci pouzit Table. Proc chces mit v PC vsechny zaznamy? Neni lepsi si udelat Query, napsat si SQL dotaz, ktery Ti vrati aktualni zaznam, na kterm je uzivatel a pak treba 5 pred a 5 za???? Vydis, ze timto zpusobem Ti prijde omezene mnozstvi dat. Aplikace bude nescetne krat rychlejsi, traffic bude minimalni...
3) presun na RecNo neni vhodny - jak uz jsi sam poznamenal, muze pravdepodobne dojit k insertu zaznamu popr. pokud mas tabulku razenu podle nejakeho sloupce, muze dojit ke zmene zaznamu (napriklad mas serazeno podle prijmeni a nekdo si jej zmenil-je potreba to v tabulce upravit) a tim dojde ke zmene RecNo, na kterem uzivatel ve skutecnosti byl.
RESENI? Jednoduche - orientovat se ne podle RecNo, ale podle ID zaznamu v tabulce:
RecNo:=DataModule1.tblNabidky.FieldByName('id').AsInteger;
... refresh ...
tblNabidky.First;
while not tblNabidky.Eof do
begin
if DataModule1.tblNabidky.FieldByName('id').AsInteger = RecNo then
break;
tblNabidky.Next;
end;
Hodne zdaru!
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
Dokaze spuspeny program prepisat vlastne *.exe
[*] konference(zv)sales(tec)cz - 20.1.2005 16:20:41
On Behalf Of Ing. SKODA Peter
> Dobry den,
> potreboval by som vediet ci dokaze spuspeny program prepisat
> vlastne *.exe.
> Potrebujem to vediet ohladne updatovania Aplikacie.
> s pozdravom
Ahoj,
IMHO to nejde. Resi se to tak, ze s programem distribuujes jeste jednu
jednoduchou aplikaci a pak:
1) Stahnes update (s jinym jmenem)
2) zavolas tu jednoduchou updatovaci app a ukoncis hlavni aplikaci
3) pockas na ukonceni hlavni app a pak prespises novym souborem
4) Spustis hlavni aplikaci a ukoncis pomocnou app
Ludek
Tvorba MDB
[*] Milan Kotaska <mkotaska(zv)post(tec)cz> - 20.1.2005 14:24:32
Ahoj,
prosim, vi nekdo, jak lze programove vytvorit databazovy soubor
MDB (MS Access) ?
Dokaze spuspeny program prepisat vlastne *.exe
[*] Burkovsky Ladislav <ladislav.burkovsky(zv)autinform.de> - 20.1.2005 14:52:35
Skus rename, stiahnut nove exe a restart.
Laco
potreboval by som vediet ci dokaze spuspeny program prepisat vlastne *.exe.Dokaze spuspeny program prepisat vlastne *.exe
[*] Ing. SKODA Peter <delphikonf(zv)proxima-soft.sk> - 20.1.2005 14:46:34
Dobry den,
potreboval by som vediet ci dokaze spuspeny program prepisat vlastne *.exe.
Potrebujem to vediet ohladne updatovania Aplikacie.
s pozdravom
SKODA Peter
algoritmus na kontrolu ICO
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 20.1.2005 14:24:32
RC se pridelovalo tak, ze kazda matrika CSR mela prideleny interval cisel ze ktereho brala a doplnovala
posledni cislici, tak aby sedla kontrolni cislice.
Interval byl takovy aby to stacilo na normalni pocet deti narozeny za jeden den.
Takze to bylo docela jednoduche a nenarocne na zajisteni.
Vetsina chyb byla zpusobena nepochopenim postupu prislusnym urednikem
nebo chybou pri vypoctu kontrolni cislice.
Jak to beha nyni nevim, ale asi existuje nejaky centralni register.....
ale ona je cena pocitace dnes nizsi nez mesicni plat urednika.
> nevidim dovod na jednosmernu funkciu, skor by to cislo malo
> byt zabezpecene nejakym CRC kodom koli preklepom. A malo
> by byt generovane nahodne.
algoritmus na kontrolu ICO
[*] Winsoft <winsoft(zv)netkosice.sk> - 20.1.2005 14:14:31
> Asi jsi nemel prilezitost cist, ze se v CR chysta vymena vsech rodnych
cisel
> za "neosobni", proste se zvoli vhodna jednosmerna funkce a vznikne jakysi
> czUID, ze ktereho by se dalo poznat, ze je chybne vycucany z prstu, ale
neda
nevidim dovod na jednosmernu funkciu, skor by to cislo malo
byt zabezpecene nejakym CRC kodom koli preklepom. A malo
by byt generovane nahodne.
> se zpetne odvodit nic o jeho majiteli. Stavajici system RC by stejne
> fungoval jen do 31.10.2099 ;-)) Jarda
vzhladom na vyhradene dvojcislie pre rok zrejme aj skor
Erik
BDS 2005 a QuickReport
[*] Ing. Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 20.1.2005 12:58:25
Ahoj,
chtel jsem zkusebne prelozit projekt z D7 v BDS 2005 jako Win32 aplikaci.
Ale nemohu v BDS 2005 najit Quick Report. Obsahuje BDS 2005 Quick Report?
Petr DBGrid Refresh
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.1.2005 13:46:29
> Ale ono jde hlavne o to, ze pokud oznaceny zaznam je napr. uprostred
> obrazovky, tak po refresh se obsah posune. Potreboval bych tedy ulozit
> pozici prvniho zobrazeneho zaznamu a pak zase po nacteni dat obnovit tuto
> pozici tak, aby nedoslo k zadnemu posunu.
Ahoj,
zkus se podivat na Datalink.ActiveRecord a podobne zalezitosti -
nejspis do zdroju db.pas, dbgrids.pas apod. Nicmene mam pocit, ze
zrovna to ActiveRecord, ktere vlastne tusim obvykle udava, kolikaty
radek shora je v gridu aktivni, je read only. Treba ale najdes zpusob,
jak to ovlivnit.
I ja bych si zkusil zapamatovat spis primarni klic vyhledavaneho
zaznamu a pak nejak takto nastavit polohu aktivniho radku v gridu.
Treba uspejes.
David Lebeda
konverence DOT NET
[*] dam <arthur(zv)argh(tec)cz> - 20.1.2005 13:24:27
Jeste je taky celkem zivej net(zv)builder(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Rizek
> Sent: Thursday, January 20, 2005 11:22 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: konverence DOT NET
>
> Vsechny zdravim,
>
> jiz pred nejakou dobou jsem se prihlasil do konference
> "dotnet-l", ale
> zadne emaily mi chodit nezacali. Funguje vubec??
>
> Pokud ne, neporadili by jste mi nejake slusne ceske nebo i zahranicni
> konference?
>
> hezky den
>
> JR
>
>
>
> DBGrid Refresh
[*] MAd <mad(zv)worldmail(tec)cz> - 20.1.2005 12:44:23
Ale ono jde hlavne o to, ze pokud oznaceny zaznam je napr. uprostred
obrazovky, tak po refresh se obsah posune. Potreboval bych tedy ulozit
pozici prvniho zobrazeneho zaznamu a pak zase po nacteni dat obnovit tuto
pozici tak, aby nedoslo k zadnemu posunu.
Michal
-----------------------
Asi bych to delal stejne, jen misto ulozeni RecNo bych si ulozil informaci o
klici na kterem prave jsem a pokud pri refresh pribudou zaznamy, tak ti
nebude vadit, ze RecNo zaznamu je jine.
Pavel B.
On Wed, 19 Jan 2005 20:04:57 +0100, MAd <mad(zv)worldmail(tec)cz> wrote:
> Zdravim vsechny,
> v aplikaci potrebuji delat cca. jednou za dve minuty refresh tabulky,
> ktera je napojena na DBGrid
> procedure DataRefresh;
> Var CurRec: Integer;
> Begin
> If frmMain.Active Then
> Begin
> DataModule1.tblNabidky.DisableControls;
> CurRec:=DataModule1.tblNabidky.RecNo;
> DataModule1.tblNabidky.Refresh;
> DataModule1.tblNabidky.RecNo:=CurRec;
> WriteToStatus;
> DataModule1.tblNabidky.EnableControls;
> End;
> End;
>
> Tim sice dosahnu, ze zustanu na aktualnim zaznamu (je viditelny), ale
> obsah se muze posunout... Nema nekdo lepsi system ?
> Diky za rady,
> S pozdravem Michal
>
>algoritmus na kontrolu ICO
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 20.1.2005 12:44:23
----- Original Message -----
From: "Winsoft" <winsoft(zv)netkosice.sk>
> Ale problem s tymi vselijakymi icami a rodnymi cislami
> je ten, ze do tych icov sa koduje rozna informacia.
> Napr. v rodnom cisle je datum narodenia a pohlavie,
> v DRC kod danoveho uradu a pod. Z hladiska
> bezpecnosti tam IMHO ziadna taka informacia
> nema co robit. Napr. rodne cislo zivnostnikov
> sluzilo dodedavna ako ich ICO. Lenze RC je
> osobny udaj, zial takuto zjavnu somarinu uradnici
> alebo "odbornici" nedomysleli. Ked ICO zacne
...
Asi jsi nemel prilezitost cist, ze se v CR chysta vymena vsech rodnych cisel
za "neosobni", proste se zvoli vhodna jednosmerna funkce a vznikne jakysi
czUID, ze ktereho by se dalo poznat, ze je chybne vycucany z prstu, ale neda
se zpetne odvodit nic o jeho majiteli. Stavajici system RC by stejne
fungoval jen do 31.10.2099 ;-)) Jarda konverence DOT NET
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.1.2005 12:32:22
Jiri Cincura wrote:
> primi list na diskuze)
Melo tam byt primo link na diskuze.
Jinak teda: http://www.emwac(tec)cz/news/default.asp
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/algoritmus na kontrolu ICO
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 20.1.2005 12:52:24
Jenom do 20054 (;-)
> se zpetne odvodit nic o jeho majiteli. Stavajici system RC by stejne
> fungoval jen do 31.10.2099 ;-)) Jarda
>
>
>
>
Linked SQL servery
[*] Petr Lupinek <plupinek(zv)synthesia(tec)cz> - 20.1.2005 12:30:22
Zdravim,
dovoluji si preposlat dotaz od kolegy:
-------
Potrebuji pro ucely distribuovanych dotazu (a v budoucnu i merge replikaci)
propojit dva MS SQL servery pres sp_add_linkedserver, pripadne pres
Enterprise Managera.
Jeden server je MSSQL2000 SP3 a druhy MSSQL2000 RTM (bez SP).
Overovani mixed mode.
Bude to chodit s rozdilnymi SP?
-------
Osobne si myslim, ze se nedostane pres overeni, ale potreboval bych to od
nekoho zkuseneho potrvdit
S pozdravem
Ing. Petr Lupinek
datove komunikacni systemy
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel.: 466825535
mob.: +420 736 505 512
konverence DOT NET
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.1.2005 12:24:21
Jan Rizek wrote:
> Vsechny zdravim,
>
> jiz pred nejakou dobou jsem se prihlasil do konference "dotnet-l", ale
> zadne emaily mi chodit nezacali. Funguje vubec??
>
> Pokud ne, neporadili by jste mi nejake slusne ceske nebo i zahranicni
> konference?
>
> hezky den
>
> JR
No ta u Petra Zahradnika je "mrtva". Dobra je konference na emwacu. Myslim, ze minuly tyden se to tu resilo.
Jinak VSNET-L na EMWAC.CZ (nejak jim to nejde, ale v historii najdes primi list na diskuze)
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/algoritmus na kontrolu ICO
[*] Winsoft <winsoft(zv)netkosice.sk> - 20.1.2005 11:44:18
> > Zrejme pre danove urady cisla ako 005 a 5 nie su rovnake ;-).
> > Erik
>
> Zalezi, jak jsou tato cisla interpretovana v jejich informacnim systemu.
Pokud jako string, tak... Vzpominam si, kdyz jsem pred lety pracoval v
jakesi instituci, kde byl registr >obyvatel, jaky problem jsme meli s
9-mistnymi rodnymi cisly (do roku 1953 vcetne). Spousta lidi tam byla 2x,
protoze pri importu z jakesi databaze se jim doplnila zprava >nula 8-).
v tomto pripade povedzme cisla 5 a 50 rovnake nie su,
na taku chybu moze upozornit aj ta kontrola mod 11.
Ale problem s tymi vselijakymi icami a rodnymi cislami
je ten, ze do tych icov sa koduje rozna informacia.
Napr. v rodnom cisle je datum narodenia a pohlavie,
v DRC kod danoveho uradu a pod. Z hladiska
bezpecnosti tam IMHO ziadna taka informacia
nema co robit. Napr. rodne cislo zivnostnikov
sluzilo dodedavna ako ich ICO. Lenze RC je
osobny udaj, zial takuto zjavnu somarinu uradnici
alebo "odbornici" nedomysleli. Ked ICO zacne
byt cislom a nie kodom, tak nebude treba na vsetko
extra ico ale postaci mozno aj jedno. Lebo ja teraz
mozem byt identifikovany niekolkymi sposobmi
(rodne cislo, COP, cislo pasu) - ale IMHO ani
jedna z tychto moznosti na identifikaciu dobra
nie je lebo RC je osobny udaj, COP a cislo pasu
sa zas meni.
Erik
OT: konverence DOT NET
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 20.1.2005 11:22:16
Vsechny zdravim,
jiz pred nejakou dobou jsem se prihlasil do konference "dotnet-l", ale
zadne emaily mi chodit nezacali. Funguje vubec??
Pokud ne, neporadili by jste mi nejake slusne ceske nebo i zahranicni
konference?
hezky den
JR DBGrid Refresh
[*] Pavel Benacek <pavel.benacek(zv)cegedim(tec)com> - 20.1.2005 10:22:11
Asi bych to delal stejne, jen misto ulozeni RecNo bych si ulozil informaci
o klici na kterem prave jsem a pokud pri refresh pribudou zaznamy, tak ti
nebude vadit, ze RecNo zaznamu je jine.
Pavel B.
On Wed, 19 Jan 2005 20:04:57 +0100, MAd <mad(zv)worldmail(tec)cz> wrote:
> Zdravim vsechny,
> v aplikaci potrebuji delat cca. jednou za dve minuty refresh tabulky,
> ktera je napojena na DBGrid
> procedure DataRefresh;
> Var CurRec: Integer;
> Begin
> If frmMain.Active Then
> Begin
> DataModule1.tblNabidky.DisableControls;
> CurRec:=DataModule1.tblNabidky.RecNo;
> DataModule1.tblNabidky.Refresh;
> DataModule1.tblNabidky.RecNo:=CurRec;
> WriteToStatus;
> DataModule1.tblNabidky.EnableControls;
> End;
> End;
>
> Tim sice dosahnu, ze zustanu na aktualnim zaznamu (je viditelny), ale
> obsah
> se muze posunout... Nema nekdo lepsi system ?
> Diky za rady,
> S pozdravem Michal
>
>
Zjisteni barevne hloubky ikony
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 20.1.2005 09:30:08
Ahoj,
potrebuji spravne zobrazit jakoukoli ikonu (soubor *.ico) v Delphi na vsech
Windows rekneme od Win98 a vyse. Tu narazim na problem s 32-bitovymi ikonami
s alpha kanalem, ktere mi DrawIcon(Ex) nezobrazi spravne napr. na W2K.
Dobra, nadefinuji potomka TIcon, kde prepisu Draw a pouziji funkci
Alphablend takto:
procedure TKIcon.Draw(ACanvas: TCanvas; const Rect: TRect);
const
BF: TBlendFunction = (BlendOp: AC_SRC_OVER; BlendFlags: 0;
SourceConstantAlpha: 255; AlphaFormat: AC_SRC_ALPHA);
var
BM: TBitmap;
Info: TIconInfo;
begin
with Rect do
begin
TKCanvas(ACanvas).RequiredState([csHandleValid]);
GetIconInfo(Handle, Info);
BM := TBitmap.Create;
try
BM.Handle := Info.hbmColor;
if (Info.hbmMask = INVALID_HANDLE_VALUE) or
not AlphaBlend(ACanvas.Handle, Left, Top, Right - Left, Bottom -
Top, BM.Canvas.Handle, 0, 0, BM.Width, BM.Height, BF) then
DrawIcon(ACanvas.Handle, Left, Top, Handle);
finally
BM.ReleaseHandle;
BM.Free;
end;
end;
end;
Nu a 32-bit ikona se jiz zobrazi spravne, ale ouha, jine ikony s mensim
poctem bpp zvladne Alphablend pri 32-bitovem modu displeje take (protoze
hbmColor bitmapa je DDB) ale nezobrazi je spravne. Jde mi o to, jak v tom
Draw ci TKIcon zjistit puvodni rozliseni toho obrazku, nez byl
prekonvertovan do DDB, aby se pro nizsi bpp zavolalo to DrawIcon, aniz bych
musel zasahovat do Graphics.pas nebo psat/kopirovat celou komponentu podle
sveho.
Nebo prosim o link na jiz hotovou nahradu TIcon (tj. potomka TGraphic),
ktera zobrazuje ikony spravne. Zkousel jsem hledat na torry.ru ale nic
pouzitelneho jsem zatim nenasel...
Tk.
Firebird - dve pevne propojene tabulky
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 20.1.2005 08:54:03
Ahoj,
Mozna by slo pouzit integritu + trigger u tab1 a uniqkey na tab2.
Novy zaznam v Tab1 triggerem after insert vytvori prazdny radek v Tab2
se stejnym PK. Tab2 bys pak vzdy jen updatoval, nebo mazal a trigger
after delete by mazal prave osirely radek v Tab1.
Peca
Firebird - dve pevne propojene tabulky
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 20.1.2005 08:42:02
To to obvykle resi tak, ze se do primarni tabulky doplni sloupce
stvrzujici "platnost" zaznamu a kontrola se provadi v tiggeru pouze
pro platne zaznamy.
Nevyhodou je nutnost po insertu provest jeste update.
Dalsi moznosti je kontrolovat, ktere sloupce se zmenily a
update provest pouze pro zmenene sloupce. To je u nekteych DB
efektivnejsi nez je memit vsechny, ale pouze pro sloupce s pevnou
delkou.
> Foreign Key, ale jak proti opustenym zaznamum v TAB1? Musi
> byt totiz mozne provest import dat z
> ostatnich pobocek a tam "na kratkou chvilku" dojde k tomu, ze
> bude existovat zaznam v TAB1 a
> teprve pote se importuje i zaznam do TAB2...
>
algoritmus na kontrolu ICO
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 20.1.2005 08:38:02
Nesdilim tvou viru v matematicke schopnosti uredniku na matrice.
Na vlastni oci jsem videl, jak na to meli mechanickou pomucku - neco jako
kodovy zamek na kolo.
Nastavilo se vsech deset cislic a bud to sedlo nebo ne. Nebo se posledni
dala najit, jako u zamku.
Dokazes si predstavit tu mechaniku?
Trochu napovedy - je to postavene na vlastnosti, co tu uz nekdo zminil -
sude a liche cislice atd.
10 % 11 = 10,
100 % 11 = 1,
1000 % 11 = 10,
10000 % 11 = (100 * 100) % 11 = (100%11)*(100%11)=1
atd.
Jo: % coby mod uz to prepisovaqt nebudu
11 je prvocislo takze aritmetika zbytkovych trid mod 11 je aritmetika
telesa.
JPi
ps jde o rc ne ico
----- Original Message -----
From: "Winsoft" <winsoft(zv)netkosice.sk>
Sent: Wednesday, January 19, 2005 5:44 PM
> to ako bol alebo je problem pre niekoho vydelit rodne cislo
> jedenastimi bez kalkulacky?
>
> Erik
Firebird - dve pevne propojene tabulky
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 20.1.2005 08:05:59
Dobry den,
ve FB 1.5 budu mit tabulku s cca 2.500.000 zaznamu, kazdy prumerne kolem 0.8 kB dat. Vetsina poli
v zaznamu se moc casto nemeni, ale pak je tam par poli, ktera se meni casto a treba u 15 % zaznamu
v jednu chvili.
Rikal jsem si, ze bych tedy tabulku rozdelil na tabulky dve - jednu s temi skoro nemennymi udaji,
druhou s temi promennymi. Mene smeti a vetsi rychlost pri zmenach, podstatne mene dat pri exportu
zmenenych zaznamu na pobocky.
Co si o tom mysli zdejsi zkusenejsi? ;-) Je mozne nejak rozumne zajistit referencni integritu?
Dejme tomu, ze TAB1 je hlavni, TAB2 na ni zavisla. Potreboval bych mit jistotu, ze zaznam v TAB2
existuje prave jen v pripade, ze existuje odpovidajici zaznam v TAB1, i naopak - rad bych se
vyhnul "opustenym" zaznamum v obou tabulkach. "Opustenym" zaznamum v TAB2 se da zabranim pomoci
Foreign Key, ale jak proti opustenym zaznamum v TAB1? Musi byt totiz mozne provest import dat z
ostatnich pobocek a tam "na kratkou chvilku" dojde k tomu, ze bude existovat zaznam v TAB1 a
teprve pote se importuje i zaznam do TAB2...
Kdyby Vas nekoho neco napadlo a poradili jste, diky moc predem :)
Karel Rys
algoritmus na kontrolu ICO
[*] Docekal Radek <rdocekal(zv)csas(tec)cz> - 20.1.2005 07:41:57
> Zrejme pre danove urady cisla ako 005 a 5 nie su rovnake ;-).
> Erik
Zalezi, jak jsou tato cisla interpretovana v jejich informacnim systemu. Pokud jako string, tak... Vzpominam si, kdyz jsem pred lety pracoval v jakesi instituci, kde byl registr obyvatel, jaky problem jsme meli s 9-mistnymi rodnymi cisly (do roku 1953 vcetne). Spousta lidi tam byla 2x, protoze pri importu z jakesi databaze se jim doplnila zprava nula 8-).
Radek Docekal
DBGrid Refresh
[*] MAd <mad(zv)worldmail(tec)cz> - 19.1.2005 20:04:57
Zdravim vsechny,
v aplikaci potrebuji delat cca. jednou za dve minuty refresh tabulky, ktera
je napojena na DBGrid (aplikace je multiuzivatelska a napojena na SQL server
- potrebuji, aby vsichni klienti meli aktualni data). Potreboval bych tento
refresh udelat "nenapadne", aby tim uzivatel nebyl obtezovan (nedochazelo k
vertikalnimu posunovani). Nyni to mam reseno nasledovne:
procedure DataRefresh;
Var CurRec: Integer;
Begin
If frmMain.Active Then
Begin
DataModule1.tblNabidky.DisableControls;
CurRec:=DataModule1.tblNabidky.RecNo;
DataModule1.tblNabidky.Refresh;
DataModule1.tblNabidky.RecNo:=CurRec;
WriteToStatus;
DataModule1.tblNabidky.EnableControls;
End;
End;
Tim sice dosahnu, ze zustanu na aktualnim zaznamu (je viditelny), ale obsah
se muze posunout... Nema nekdo lepsi system ?
Diky za rady,
S pozdravem Michal
algoritmus na kontrolu ICO
[*] Winsoft <winsoft(zv)netkosice.sk> - 19.1.2005 18:56:52
> A ty to dokazes z hlavy? Ja tedy ne.
preco akurat z hlavy, co tak si zobrat ceruzku a papier?
> Zajimavou vlastnosti cisla delitelneho 11 je, ze soucet sudych cislic a
> lichych cislic musi byt nula nebo take delitelny 11. Tohle uz z hlavy
umim.
>
> Jinak upozornuju, ze tahle debata je o algoritmu Modulo 11, coz jak
> zminoval Petr Zahradnik neni to same,
> jako delitelne 11.
ja si myslim, ze netreba robit vedu tam, kde je to zbytocne.
Netusim akym zazracnym algorimom ratali konkretne moje
rodne cislo, ale vyratali ho zle a museli ho neskor zmenit.
Lenze kym na to uradnici prisli (asi po 20 rokoch), uz toto
cislo samozrejme bolo kdekade zaznamenane vo velijakych
dokladoch a evidenciach. A tak sa doteraz bezne stretavam
s obidvoma variantami ;-) A este jedna zaujimavost
s cislami: na danovom urade nam vytkli, ze na peciatke
nemame v ICO (alebo DICO, alebo IC DPH alebo
DRC - uz ani neviem kde, lebo uz sa v tych roznych
icoch nevyznam) na zaciatku dva nuly. Zrejme pre danove
urady cisla ako 005 a 5 nie su rovnake ;-).
Erik
algoritmus na kontrolu ICO
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 19.1.2005 18:28:50
A ty to dokazes z hlavy? Ja tedy ne.
Zajimavou vlastnosti cisla delitelneho 11 je, ze soucet sudych cislic a
lichych cislic musi byt nula nebo take delitelny 11. Tohle uz z hlavy umim.
Jinak upozornuju, ze tahle debata je o algoritmu Modulo 11, coz jak
zminoval Petr Zahradnik neni to same,
jako delitelne 11.
Ladislav Stary
Winsoft napsal(a):
>>Mas naprostou pravdu, ale tenhle prosty fakt u rodneho cisla lze zamlzit
>>tim, ze algoritmus vypoctu zbytku po deleni mnohaciferneho cisla jedenacti
>>se prezentuje tak, aby sel pocitat z jednotlivych cifer malou nasobilkou a
>>scitanim. V roce 1954 nebyly pocitace ani kalkulacky. Ejhle kouzlo.
>>
>>
>
>to ako bol alebo je problem pre niekoho vydelit rodne cislo
>jedenastimi bez kalkulacky?
>
>Erik
>
>
>algoritmus na kontrolu ICO
[*] Winsoft <winsoft(zv)netkosice.sk> - 19.1.2005 17:44:47
> Mas naprostou pravdu, ale tenhle prosty fakt u rodneho cisla lze zamlzit
> tim, ze algoritmus vypoctu zbytku po deleni mnohaciferneho cisla jedenacti
> se prezentuje tak, aby sel pocitat z jednotlivych cifer malou nasobilkou a
> scitanim. V roce 1954 nebyly pocitace ani kalkulacky. Ejhle kouzlo.
to ako bol alebo je problem pre niekoho vydelit rodne cislo
jedenastimi bez kalkulacky?
Erik
Komponenta TMSComm32
[*] URBAN Leos <leos.urban(zv)qds(tec)cz> - 19.1.2005 15:50:38
Ahoj,
napadne mi to pripomina sadu komponent TMSAsync32 pro komunikace po
RS232, http://www.tmssoftware.com .
Ale mozna se pletu.
Leos
> Nevite nekdo kde bych mohl ziskat TMSComm32, pripadne o co se vlastne jedna?
algoritmus na kontrolu ICO
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 19.1.2005 15:32:36
Mas naprostou pravdu, ale tenhle prosty fakt u rodneho cisla lze zamlzit
tim, ze algoritmus vypoctu zbytku po deleni mnohaciferneho cisla jedenacti
se prezentuje tak, aby sel pocitat z jednotlivych cifer malou nasobilkou a
scitanim. V roce 1954 nebyly pocitace ani kalkulacky. Ejhle kouzlo.
----- Original Message -----
From: "Martin Pisarik" <martin.pisarik(zv)seznam(tec)cz>> Myslel jsem, ze pod pojmem "kontrola modulo 11" se skryva toto:
> cislo_je_platne = ((cislo mod 11)==0)
> Aspon u rodnych cisel se to tak chape ne?algoritmus na kontrolu ICO
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 19.1.2005 14:14:31
Jeste jednou cely algoritmus v maximalistickem pojeti :)))
type
TICValidationType = (icvtFull, icvtMod);
function isICValid(AIC: integer; AValType: TICValidationType = icvtFull):
boolean; overload;
function isICValid(AIC: string; AValType: TICValidationType = icvtFull):
boolean; overload;
implementation
uses
SysUtils,
JclStrings;
function isICValid(AIC: integer; AValType: TICValidationType): Boolean;
begin
Result := isICValid(IntToStr(AIC), AValType);
end;
function isICValid(AIC: string; AValType: TICValidationType): boolean;
var
i: integer;
j: integer;
begin
Result := false;
AIC := StrFillChar('0', 8 - Length(AIC)) + AIC;
if Length(AIC) <> 8 then
exit;
j := 0;
case AValType of
icvtFull:
begin
for i := 2 to 8 do
j := j + (StrToInt(AIC[9 - i]) * i);
j := 11 - (j mod 11);
case j of
0, 10: Result := StrToInt(AIC[8]) = 1;
1: Result := StrToInt(AIC[8]) = 0;
else
Result := StrToInt(AIC[8]) = j;
end;
end;
icvtMod:
begin
for i := 1 to 8 do
j := j + (StrToInt(AIC[9 - i]) * i);
Result := (j mod 11) = 0;
end;
end;
end;
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Milan Tomes
> Sent: Wednesday, January 19, 2005 12:52 PM
>
> Kdyz jsme u toho algoritmu, tak zaklad je spravne, ale chybi
> jedna podstatna
> cast, ktera muze vysledky kontroly zkreslit.
<snipped>
algoritmus na kontrolu ICO
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 19.1.2005 13:26:27
Nasel jsem ted v rychlosti na internetu tenhle odkaz:
http://www.mvcr(tec)cz/casopisy/kriminalistika/1999/9903/rak.html
Myslim, ze by se to mohlo hodit.
Ladislav Stary
Martin Pisarik napsal(a):
>Myslel jsem, ze pod pojmem "kontrola modulo 11" se skryva toto:
>
>cislo_je_platne = ((cislo mod 11)==0)
>
>Aspon u rodnych cisel se to tak chape ne?
>
>
>algoritmus na kontrolu ICO
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.1.2005 13:04:25
Puvodni zprava ze dne 19.1.2005:
> Myslel jsem, ze pod pojmem "kontrola modulo 11" se skryva toto:
> cislo_je_platne = ((cislo mod 11)==0)
> Aspon u rodnych cisel se to tak chape ne?
Ne, to opravdu neni totez.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
algoritmus na kontrolu ICO
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 19.1.2005 12:52:24
Kdyz jsme u toho algoritmu, tak zaklad je spravne, ale chybi jedna podstatna
cast, ktera muze vysledky kontroly zkreslit.
function KontrolaICO(const sICO: string): Boolean;
var
i, k: Integer;
begin
Result := Length(sICO) = 8;
if not Result then
exit;
try
StrToInt(sICO);
k := 0;
for i := 2 to 8 do
k := k + (StrToInt(sICO[9-i]) * i);
k := 11 - (k mod 11);
{-----------------------------------------}
case k of
0, 10: Result := StrToInt(sICO[8]) = 1;
1: Result := StrToInt(sICO[8]) = 0;
else
Result := StrToInt(sICO[8]) = k;
end;
{-----------------------------------------}
except
on e: EConvertError do
Result := False;
end;
end;
S pozdravem
Milan Tomes
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pospisil Jan
> Sent: Tuesday, January 18, 2005 5:17 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: algoritmus na kontrolu ICO
>
>
> >
> > > zdravim, poradi mi niekto algoritmus na kontrolu spravnosti ICA ?
> >
> > function KontrolaICO(sICO: string): Boolean;
> > var i, k: Integer;
> > begin
> > Result := Length(sICO) = 8;
> > if Result then
> > try
> > StrToInt(sICO);
> > k := 0;
> > for i := 2 to 8 do begin
> > k := k + StrToInt(sICO[9-i]) * i;
> > end;
> > k := 11 - k mod 11;
> > if (Copy(IntToStr(k), Length(IntToStr(k)), 1) <>
> > Copy(sICO, 8, 1)) then
> > Result := False;
> > except
> > on e: EConvertError do
> > Result := False;
> > end; // try/except
> > end; { ValidateICO }
> >
> > Myslim, ze to mam taky z teto konference.
> >
> > Jarda
>
> Jen poznamka ICO nemusi mit vzdy prave 8 znaku. Minimalne jich
> musi mit tusim 6 a maximalne snad az 12. Tim rozmezim si nejsem
> jist, ale neni to vzdy osum. A nakonec kdyz je jich min jak osum,
> tak neplati ani delitelnost 11.
>
> ---<{Pospa}>---
>
>
>
OT: Software pro zaznam telefonatu
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 19.1.2005 12:46:24
Nedodate nekdo SW pro monitorovani a zaznam tel. hovoru. (napr. pro zachranou sluzbu)? Admin promine.
S pozdravem Vaclav Riha
algoritmus na kontrolu ICO
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 19.1.2005 12:44:23
Ano, u rodneho cisla plati tato kontrola, ale zde je v celem kontrolnim
mechanismu modulo 11 jen jeden z dilcich vypoctu.
IMHO modulo znamena zbytek po celociselnem deleni...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Martin Pisarik
> Sent: Wednesday, January 19, 2005 12:38 PM
>
> Myslel jsem, ze pod pojmem "kontrola modulo 11" se skryva toto:
>
> cislo_je_platne = ((cislo mod 11)==0)
>
> Aspon u rodnych cisel se to tak chape ne?
algoritmus na kontrolu ICO
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 19.1.2005 12:38:23
Myslel jsem, ze pod pojmem "kontrola modulo 11" se skryva toto:
cislo_je_platne = ((cislo mod 11)==0)
Aspon u rodnych cisel se to tak chape ne?
algoritmus na kontrolu ICO
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.1.2005 11:12:23
Puvodni zprava ze dne 19.1.2005:
> Nase ICO, z roku 2003 neni celociselne delitelne 11, tak nevim...
Mozna to bude tim, ze modulo a delitelnost je neco uplne jineho.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
algoritmus na kontrolu ICO
[*] Mira <ondrisek(zv)seznam(tec)cz> - 19.1.2005 11:10:23
Bud v pohode, nase mnohem starsi taky neni...
M.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Pisarik
> Sent: Wednesday, January 19, 2005 9:26 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: algoritmus na kontrolu ICO
>
> Nase ICO, z roku 2003 neni celociselne delitelne 11, tak nevim...