Archív konference Delphi

Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.

Jak na sitove pripojeni?

[*] Petr Varga <djvar(zv)post(tec)cz> - 20.5.2002 22:07:57

Ahoj
> Bude to to pro spoustu zvas asi velmi jednoduche, ale pro me je to
> otazka.. Potreboval bych sitove propojit pocitace.. Jeden je server a
> ostatni se na nej pripojuji. Jako aby server vysilal a ostatni to
> prijimali. V napovede jsem nasel komponentu tcp n ebo tak nejak, ale i tak
> si s tim nevim rady jak to presne udelat.. Server by mel vysilat jednou za
> cas nejaky text vzdy pro urciteho prijemce.. Heh je to asi zmatene, ale
> doufam, ze to nekdo pochopi a poradi mi..
Popripade by nebylo spatne kdyby alespon server ukladal nejaka data do souboru a ostatni je cetli.. Diky Petr
----
ETH Party - 21.5.- Radost FX
Hip hop proti rasismu
DJ Wich, Orion, Trafik, Dizzastarr
Vice na www.ethparty.org

Delphi 5 v. Delphi 6

[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 20.5.2002 22:38:34

Ahoj,

chystam se nainstalovat D6 Pro, ale
chtel jsem se zeptat zda je treba si na neco
dat pozor pri koexistenci D5Pro a D6Pro
na jednom PC, predpokladam, ze ne.
Nebo se pletu?

S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203

Jak na sitove pripojeni?

[*] Harris <harri.s(zv)tiscali(tec)cz> - 20.5.2002 23:10:25

Pokud to chces delat pres soubory tak to je jednoduche. Normalne je ctes a
zapisujes jako na lokalu, akorat pouzivas sitovou cestu
//pocitac/adresar/soubor.
Pokud to chces pres Client/Server tak zalezi spise asi na sitovem propojeni
co mas k dispozici. V Delphi mas komponenty napr ClientSocket a
ServerSocket.
Harris.

----- Original Message -----
From: "Petr Varga" <djvar(zv)post(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 20, 2002 10:07 PM
Subject: Jak na sitove pripojeni?> Ahoj
> > Bude to to pro spoustu zvas asi velmi jednoduche, ale pro me je to
> > otazka.. Potreboval bych sitove propojit pocitace.. Jeden je server a
> > ostatni se na nej pripojuji. Jako aby server vysilal a ostatni to
> > prijimali. V napovede jsem nasel komponentu tcp n ebo tak nejak, ale i
tak
> > si s tim nevim rady jak to presne udelat.. Server by mel vysilat jednou
za
> > cas nejaky text vzdy pro urciteho prijemce.. Heh je to asi zmatene, ale
> > doufam, ze to nekdo pochopi a poradi mi..
> Popripade by nebylo spatne kdyby alespon server ukladal nejaka data do
souboru a ostatni je cetli.. Diky Petr
> ----
> ETH Party - 21.5.- Radost FX
> Hip hop proti rasismu
> DJ Wich, Orion, Trafik, Dizzastarr
> Vice na www.ethparty.org

www formular - vyplnit a odeslat - TWebBrowser

[*] <volcik(zv)email(tec)cz> - 20.5.2002 23:13:16

Zdravim vsecky. Dne 24.2.2002 zde probehl dotaz/odpoved na tema "Jak vyplnit a odeslat www formular v delphi?". Prohledal jsem na toto tema archiv, ale bez uspokojiveho vysledku. Muzete mi nekdo poradit, jak s pomoci standardni komponenty TWebBrowser provest vyplneni a odeslani www formulare v delphi? Privital bych jednoduchy prikladek (je nactena stranka-formular a provest automaticke vyplneni urcenych poli a odeslat) nebo odkaz, kde je neco podobneho reseno, abych se priucil. Dekuji, Volcik (D5, W9x/W2000)

______________________________________________________________________________
Kalend�� Email.CZ - dokonal� organizace Va�eho �asu: http://kalendar.email(tec)cz

Delphi vs C++ DLL

[*] Jan Zeleny <zeleny.jan(zv)seznam(tec)cz> - 21.5.2002 00:25:44

Bingo! To je ono. sizeof(short) v Cecku je 2 - unsigned int.
V Delphi je sizeof(shortint) 1.

Diky!

J.Z.


Dne 20.�kv�ten�2002, <delphi-l(zv)clexpert(tec)cz> napsal:

>
> >int funkce(TPole &pole,...), kde typedef short TPole[30]
> >
> >int funkce(pole:TPole,...). kde type TPole = array [0..29]
>
> mohlo by to byt napriklad takhle:
> TYPE
> TFunctionXX = Function(VAR P : TPole) : Integer;cdecl;
>
> nebo
> TFunctionXX = Function(P : PPole) : Integer;cdecl;
>
> kde PPole = ^TPole
> a TPole = Array[0..29] of ShortInt; (*pokud short je 1 bytovy integer*)
>
>
> samozrejme vse zavisi na konkretni deklaraci funkce v CCku.
>
>
> D. Toman
>
>

______________________________________________________________________
Reklama:
WWW stranky zdarma na http://www.sweb(tec)cz

www formular - vyplnit a odeslat - TWebBrowser

[*] Jan Zeleny <zeleny.jan(zv)seznam(tec)cz> - 21.5.2002 00:42:10

Neni to z me hlavy. Vidis, jak je dulezite se podivat jiz na starsi
prispevky.

J.Z.


Od: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Komu: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
P�edm�t: re: posilani klaves do twebbrowser
Datum: 14. listopadu 2000 5:53

From: <konference(zv)novalis.dyndns.org>
> v delphi 5 bych potreboval do TWEBBrowser posilat znaky a nektere specialni
klavesy
> chtel bych aby kdyz zmacknu v programu tlacitko,
> tak mi to treba udela 5krat tabulator (kurzor pak bude ve formulari) a pak
tam vypise
> obsah TEDITu

Ahoj,

pokud ti jde o predvyplneni textoveho pole na strance tak to lze
udelat primo
upravou atributu jednotlivych HTML elementu v TWebBrowser.

Priklad, v prihlasovacim formulari do konference najdes:

<TD><input type="text" name="Email"></TD>

V aplikace lze pak pole Email vyplnit takto:

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.delphi(tec)cz/prihlas.asp');
end;

procedure TForm1.FillForm;
var
Doc: IHTMLDocument2;
I: Integer;
Element: OleVariant;
Elements: IHTMLElementCollection;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
Elements := Doc.all;
for I := 0 to Elements.length - 1 do
begin
Element := Elements.item(I, varEmpty);
if (Element.tagName = 'INPUT') and (Element.type = 'text') and
(Element.name = 'Email') then
Element.value := 'email(zv)aaa.aaa';
end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp = WebBrowser1.DefaultInterface then
FillForm;
end;

Petr Vones, amatersky programator




Dne 20.�kv�ten�2002, <delphi-l(zv)clexpert(tec)cz> napsal:

> Zdravim vsecky. Dne 24.2.2002 zde probehl dotaz/odpoved na tema "Jak vyplnit a odeslat www formular v delphi?". Prohledal jsem na toto tema archiv, ale bez uspokojiveho vysledku. Muzete mi nekdo poradit, jak s pomoci standardni komponenty TWebBrowser provest vyplneni a odeslani www formulare v delphi? Privital bych jednoduchy prikladek (je nactena stranka-formular a provest automaticke vyplneni urcenych poli a odeslat) nebo odkaz, kde je neco podobneho reseno, abych se priucil. Dekuji, Volcik (D5, W9x/W2000)
>
> ______________________________________________________________________________
> Kalend�� Email.CZ - dokonal� organizace Va�eho �asu: http://kalendar.email(tec)cz
>
>

______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz

Delphi 5 v. Delphi 6

[*] Jan Zeleny <zeleny.jan(zv)seznam(tec)cz> - 21.5.2002 00:44:27

Ja osobne jsem nemel zadne problemy. Funguje je to bez problemu.

J.Z.


Dne 20.�kv�ten�2002, <delphi-l(zv)clexpert(tec)cz> napsal:

> Ahoj,
>
> chystam se nainstalovat D6 Pro, ale
> chtel jsem se zeptat zda je treba si na neco
> dat pozor pri koexistenci D5Pro a D6Pro
> na jednom PC, predpokladam, ze ne.
> Nebo se pletu?
>
> S pozdravem a dikem
> =====================================
> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
> =====================================
> GSM: 0602 652 203
>
>

______________________________________________________________________
Reklama:
Kam do kina ci divadla? http://kultura.seznam(tec)cz

Ulozenie zaznamov do aoAdoTable

[*] <idulgerov(zv)centrum.sk> - 21.5.2002 05:51:51

Zdravim vsetkych.

Kedze nikto nereagoval, skusim este raz :-)

Mam takyto zaujimavy problemik.
Robim si katalogizacny program na cd-cka.
Postupujem asi takto:
1.Precitam obcah CD, a vyberiem nazvy suborov
o ktore mam zaujem
2.Nasypem udaje (pocas nacitavania) do
RxMemoryTable
3.Pokusim sa nasypat data do aoAdoTable.
V krajnom pripade ich moze byt cca 6-7000.
4.Standardny postup Apend - Post je
pri takomto mnozstve velmi pomaly.
Skusam to teda takto :
Zavolam RxMemoryData1.SaveToDataSet(aoADOTable1,0);
Program zacne ukladat, no po ulozeni niekolkych
zaznamov zamrzne.
Pocet ulozenych zaznamov je rozny (niekedy 1000, ale
niekedy iba 10).
Neviete niekto co s tym?
Ked som to skusal s komponentou Table + BDE
slapalo to v pohode, dokonca aj s Tdbf.
Bohuzial standardna Table mi nevyhovuje z
dovodu zavislosti na BDE, a Tdbf zase koli
nemoznosti pouzit SQL.
Mam D5 prof.

Ivan Dulgerov
programator-amater, mladost v prdeli do penzie daleko
SLOVAK REPUBLIC


----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting

slozity dotaz

[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 21.5.2002 08:01:03

Osobne si myslim, ze to bude resitelne pouze pres stored proceduru:

create procedure Test
returns Jmeno varchar(24), Cislo integer
as
begin
for select distinct jmeno from table1 into Jmeno do
begin
select first 3 sum(cislo) cislo from table1 where jmeno = 'jmeno' order
by 'jmeno_desc_indexu_nad_polozkou_cislo'
into cislo;
suspend;
end
end^

S pozdravem

Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz

> Behalf Of jan.neuzil(zv)email(tec)cz
> Mam tabulku se dvema polozkami "jmeno" a "cislo".Stejna jmena se
> v tabulce vsak mohou opakovat. Potreboval bych jmena zgrupovat
> podle jineho kriteria nez je SUM. Mohl bych napr. napsat : select
> jmeno, SUM(cislo) from table1 group by jmeno. Misto secteni tech
> cisel pro stejna jmena bych ale potreboval secist jen tri
> nejvetsi. Tj. nemuzu pouzit SUM(cislo). Nevite prosim vas nekdo

zistenie Pop-Up menu

[*] iturcan(zv)gamo.sk - 21.5.2002 08:38:17

Zdravim,

Je mozne nejakym sposobom zistit pop-up menu konkretnej aplikacie / okna
a pripadne ho modifikovat ?

dakujem

Ivan

ADOExpress memo a null hodnoty

[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 21.5.2002 08:56:50

Sorry, napsal jsem to spatne,
problem neni samozrejme s INSERT ani UPDATE do sloupce,
ale prizazenim hodnoty do promene (presneji parametru) typu text,
ten mozny neni.
Standardne provadim update v DB pomoci ulozenych procedur,
ale zde vyjimecne, jsem pro ciselnik pouzil dateaware komponenty
a byl jsem prekvapen, ze vsechny poznamky jsou = '' a nikoliv NULL,
presto, ze jsem provadel kontrolu (vyhazeni vsech bilych mezer z konce)
a prirazeni NULL hodnoty do VALUE.
Pavel

Zakladni proble tedy je jak vlozit
> From: Martin Cajbik [mailto:cajbik(zv)sct.sk]
> Neviem co bolo myslene tym, ze do stlpca typu text nie je v
> MSSQL mozne
> priradzovat
> UPDATE aj INSERT stlpcov typu Text funguje bez problemov.
> Rovnako nie je
> problem
> vlozit do tohoto stlpca hodnotu NULL (ak samozrejme nie je
> nastaveny na NOT
> NULL).
>
> MarCaNT (marcant(zv)sct.sk)

OT: Windows 2000

[*] <mkotaska(zv)atlas(tec)cz> - 21.5.2002 08:58:14

Ahoj.
Omlouvam se za silny OT.
Prosim, zda-li by me nekdo mohl nasmerovat, na konferenci o sprave WINDOWS 2000 Server. Konkretne jde o konfiguraci uzivatelu a vytvareni login scriptu a prihlasovani klientu z W98.

Dekuji.
Milan Kotaska
mkotaska(zv)atlas(tec)cz



Instalacia FireBird, MySQL a dalsie

[*] KALUS Jozef <Jozef.Kalus(zv)spordat.sk> - 21.5.2002 09:02:48

stale to hlasi "unable to open libmysql.dll", niekde som sa docital ze D6
podporuje iba MySQL 3.22.32, t.j. ja mam 3.23... nemoze to byt v tom ?

-----Original Message-----
From: Martin Valach [mailto:vachix(zv)centrum.sk]
Sent: Monday, May 20, 2002 9:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Instalacia FireBird, MySQL a dalsie


k bodu 2)
na klientoch nakopiruj libmysql.dll do adresaru windows:

windows\system a windows\system32

martin

----- Original Message -----
From: "KALUS Jozef" <Jozef.Kalus(zv)spordat.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 20, 2002 8:28 AM
Subject: Instalacia FireBird, MySQL a dalsie


> zdravim vsetkych,
>
> 1. stiahol som si FireBird 1.0 pre windows (myslim ze to je Super Server
> alebo nieco take), ale jedine co som po tejto instalacii nasiel je jeho
> odinstalacia, neviete mi niekto povedat, ako a kde sa daju zalozit tabulky
a
> ako sa na db da dostat z D6Pro.
>
> 2. mam MySQL, pouzijem komponenty z D6Pro, ale ked chcem spravit konekt,
tak
> mi to hodi hlasku "error load: libmysql.dll" alebo nieco podobne, nie som
> teraz na tom stroji, je ale zrejme ze tu DLL nemoze naist, pozeral som to
a
> ma ju D6 aj u seba a ja ju mam aj v adresari pri aplikacii.
>
> Na objasnenie:
>
> Server: W2000Server (MS SQL7, MySQL, FireBird)
> Klient: W2000Prof, D6Prof
> Lan: Eth. 100
>
> Dik
>
> joka
>
> PS: myslim ze takychto dotazov tu mate od novacikov dost, ale akosi si
> neviem dat s tym rady
>
>
>

IB/FB

[*] KALUS Jozef <Jozef.Kalus(zv)spordat.sk> - 21.5.2002 09:06:10

ludkovia,

akym stylom sa dostanem na IB/FB z D6Pro, ale prosim bez BDE ?

ako je na tom dbExpress ? je vobec pouzitelny na sietovu IB/FB ?


dik

joka

Delphi a CACH�

[*] Jane�ek Michael <michael.janecek(zv)spar-cr(tec)cz> - 21.5.2002 09:28:51

Zdravim,

Nem�te n�kdo zku�enosti s napojen�m Delphi na DB CACH�?

... nainstaloval jsem si CACH� server na sv�m po��ta�i, do glob�l� se dostanu p�es telnet, v�e ok. Ale BDE admin. m� i pod fyzick�m n�tlakem nechce pustit p�es login: unknown user name or pass. V CACH� kontrol panel v�e vykazuje OK. Nev�te tedy n�kdo, zda je pot�eba pou��t n�co jako speci�ln� driver �i co?

D�ky, MJane�ek


Michael Jane�ek
--------------------------------------------------------------
SPAR �esk� obchodn� spole�nost s r.o.
Programmer / Delphi developer
Tel. 02 / 67 155 156
Fax. 02 / 67 155 119
E-mail: michael.janecek(zv)spar-cr(tec)cz
http://www.interspar(tec)cz

Inicializacia premennych v deklaracii

[*] Robert Suska <delphi(zv)korak.sk> - 21.5.2002 09:33:55

Ahojte!

surne

da sa inicializovat viac premennych v deklaracii naraz? existuje na to
nejaka finta FN

napr.

var
s: String = ''; // toto je ok
as, ss: String = ''; // toto uz vraj nie je vporiadku podla komilatoru
??? ako na to ? to musim vsetko rozpisat ako taky mantak pod seba?

???? vieste niekto dost by to ulahcilo pracu

Dakujem

Robo

Connect to FireBird

[*] harri.s(zv)tiscali(tec)cz - 21.5.2002 09:35:29

ahoj, nainstaloval jsem FireBird, ale to je vse co jsem udelal. Nemuzu se
hnout z mista. Jak se k nemu z delphi pripojit? Pouzit komponenty
InterBase?
Co mam delat? Poradte prosim.
Harris.

_______________________________________________________
VELK� LETN� SOUT̮ na http://leto.tiscali(tec)cz.
Vyhrajte leteck� z�jezd do Bulharska!

ADOExpress memo a null hodnoty

[*] Martin Cajbik <cajbik(zv)sct.sk> - 21.5.2002 09:38:00

Zrejme pojde cisto o nejaky problem (mozno iba s nastavenim) ADO komponent,
s tym ti vsak bohuzial neporadim. Ja aj na jednoduche tabulky radsej
pouzivam storovane procedury a do databazy pristupujem cez ODBCe.

MarCaNT (marcant(zv)sct.sk)> Sorry, napsal jsem to spatne,
> problem neni samozrejme s INSERT ani UPDATE do sloupce,
> ale prizazenim hodnoty do promene (presneji parametru) typu text,
> ten mozny neni.
> Standardne provadim update v DB pomoci ulozenych procedur,
> ale zde vyjimecne, jsem pro ciselnik pouzil dateaware komponenty
> a byl jsem prekvapen, ze vsechny poznamky jsou = '' a nikoliv NULL,
> presto, ze jsem provadel kontrolu (vyhazeni vsech bilych mezer z konce)
> a prirazeni NULL hodnoty do VALUE.
> Pavel
>
> Zakladni proble tedy je jak vlozit
> > From: Martin Cajbik [mailto:cajbik(zv)sct.sk]
> > Neviem co bolo myslene tym, ze do stlpca typu text nie je v
> > MSSQL mozne
> > priradzovat
> > UPDATE aj INSERT stlpcov typu Text funguje bez problemov.
> > Rovnako nie je
> > problem
> > vlozit do tohoto stlpca hodnotu NULL (ak samozrejme nie je
> > nastaveny na NOT
> > NULL).
> >
> > MarCaNT (marcant(zv)sct.sk)
>
>

DBLookupComboBox

[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 21.5.2002 09:44:29


Ahoj,

stale se topim v DBLookupComboBoxu. Muzete mi prosim poradit ? Mam D5 a
Win 2000.
Jak se postavim v DBLookupComboBoxu na nejaky radek ?

Vasek

Connect to FireBird

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.5.2002 09:53:59

primo v DELPHI jsou komponenty IBX (Interbase Express).
funguji dobre.

peca

MEMO a diakritika

[*] likeapear <likeapear(zv)centrum(tec)cz> - 21.5.2002 09:55:27

Predem dekuji vsem kteri se vyjadrili k problemu se subjektem "vhodny
databazovy system podobny BDE". Nejspise zkusime ten FlashFiler.

Jeste bych se rad zeptal jestli nekdo nenarazil na problem s TMemo, ve
kterym je tucny Font MS SansSerif. Pri psani ceskych znkau se rozjizdi
pozice kurzoru od psaneho textu. Nevite nekdo co stim? Font nemuzu zmenit,
protoze je v nasi aplikaci volitelny.

likeapear

db grid

[*] iturcan(zv)gamo.sk - 21.5.2002 10:36:36

Hi all,

neviete niekto o komponente (DB GRIDE) ktora by podporovala checkboxy , a
uplne najlepsie vedela by data zobrazit v stromovej strukture.

uplne super by bolo keby to bolo free

dakujem

Ivan

DBLookupComboBox

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.5.2002 10:43:05

> stale se topim v DBLookupComboBoxu. Muzete mi prosim poradit ? Mam D5
> a Win 2000. Jak se postavim v DBLookupComboBoxu na nejaky radek ?
>

DBLookupComboBox.KeyValue := nejaka hodnota


Pritom to "nejaka hodnota" by melo odpovidat typove hodnotam pole
KeyField. Pokud tabulka v poli KeyField obsahuje tu hodnotu, vybere se.

David Lebeda

Hook na otevreni souboru z internetu

[*] Frant�k Daniel <Daniel.Frantik(zv)merlin(tec)cz> - 21.5.2002 10:45:48

Dobry den

- Zaujala me jedna utilitka, ktera blokuje stahovani souboru z internetu z
urcitych vyjmenovanych domen. Chapu, ze to lze omezit v IE, ale to neni ten
cil.
- Jak tedy zjistim (a pripadne zakazu), kdy IE chce stahovat nejaky soubor
(jde mi napr. o bannery)?
- Dekuji predem za vsechny napady, stacil by snad i princip ;-)

s pozdravem
Danik Frantik

db grid

[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 21.5.2002 10:53:19

virtual tree view

http://www.lischke-online.de

eNca

iturcan(zv)gamo.sk wrote:

>Hi all,
>
>neviete niekto o komponente (DB GRIDE) ktora by podporovala checkboxy , a
>uplne najlepsie vedela by data zobrazit v stromovej strukture.
>
>uplne super by bolo keby to bolo free
>
>dakujem
>
> Ivan
>
>
>

SNMP

[*] Zach Tom� - 21.5.2002 10:54:15

Lze nekde sehnat nejake slusne komponenty nebo neco podobneho pro praci se SNMP v D6?

Dekuji

Tom� Zach

-----------------------------------------------------
G-DATA servis, spol. s r.o.
Geologick� 2
CZ 152 00 Praha 5
-----------------------------------------------------
I�O:61063398, DI�:005-61063398
Tel:+420-2-96555811, Fax:+420-2-96555899
http://www.g-data(tec)cz



---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.362 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002

Prehrani MIDI

[*] Martin Simbartl <martin.simbartl(zv)seznam(tec)cz> - 21.5.2002 11:06:40

Zdravim,
tak pod WIN XP to jde taky. Diky za pomoc.

Martin Simbartl
ICQ # 152589363
http://simbartl.hyperlinx(tec)cz

----- Original Message -----
From: "VladimirRuzicka" <ruzicka(zv)digitus(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, May 18, 2002 3:12 PM
Subject: Re: Prehrani MIDI

>Takze zkus se podivat na fci mciSendString.

>priklad pouziti:

>mciSendString(PChar('OPEN SEQUENCER!c:\mujsoubor.mid alias music'),nil,0,0);
>// otevre k prehravani, cesta nesmi obsahovat mezeru a znaky s diakritikou v
>nazvu, nejlepe je stary dosovsky filesystem, nebo pred spustenim skladby si
>ji nakopirovat na root do nejakeho souboru...
>mciSendString(PChar('play music'),nil,0,0); // zacnes prehravat
>mciSendString(PChar('stop music'),nil,0,0); // takhle ji zastavis
>mciSendString(PChar('close music'),nil,0,0); // takhle uvolnis alias

>Nevim jak to bude s XPckama, ale za pokus to stoji. V W95 a W98 to mam
>odzkousene a jede to v pohode.

>Vladimir, W95 D3, W98 D4,
>vyvoj hudebniho software pro muzikanty - viz http://www.volny(tec)cz/musicer

SNMP

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 21.5.2002 11:32:35

> Lze nekde sehnat nejake slusne komponenty nebo neco podobneho pro praci se SNMP v D6?

Synapse. :-)

Pak to jeste umi Indy, ale tam je na SNMP prevzaty stary kod ze
Synapse, takze je jaksi lepzi jit rovnou 'ke zdroji', ktery je
ponekud aktualnejsi. ;-)
-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

Delphi a CACH�

[*] Frant�k Daniel <Daniel.Frantik(zv)merlin(tec)cz> - 21.5.2002 11:34:33

Cache ma specialni DLL, pres kterou jde komunikovat. Kdyz to umi Visual
Basic, nemel by byt problem v Delphi. Ale nikdy jsem se o to nesnazil.

Danik

> -----P�vodn� zpr�va-----
> Od: Jane�ek Michael [mailto:michael.janecek(zv)spar-cr(tec)cz]
> Odesl�no: 21. kv�tna 2002 09:29
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Delphi a CACH�
>
>
> Zdravim,
>
> Nem�te n�kdo zku�enosti s napojen�m Delphi na DB CACH�?
>
> ... nainstaloval jsem si CACH� server na sv�m po��ta�i,
> do glob�l� se dostanu p�es telnet, v�e ok. Ale BDE admin. m�
> i pod fyzick�m n�tlakem nechce pustit p�es login: unknown
> user name or pass. V CACH� kontrol panel v�e vykazuje OK.
> Nev�te tedy n�kdo, zda je pot�eba pou��t n�co jako speci�ln�
> driver �i co?
>
> D�ky, MJane�ek
>
>
> Michael Jane�ek
> --------------------------------------------------------------
> SPAR �esk� obchodn� spole�nost s r.o.
> Programmer / Delphi developer
> Tel. 02 / 67 155 156
> Fax. 02 / 67 155 119
> E-mail: michael.janecek(zv)spar-cr(tec)cz
> http://www.interspar(tec)cz
>

Delphi a CACH�

[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 21.5.2002 11:42:52

[P��loha v souboru: winmail.dat]> -----P�vodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele Jane�ek Michael
>
> Nem�te n�kdo zku�enosti s napojen�m Delphi na DB CACH�?
>
> ... nainstaloval jsem si CACH� server na sv�m po��ta�i,
> do glob�l� se dostanu p�es telnet, v�e ok. Ale BDE admin. m�
> i pod fyzick�m n�tlakem nechce pustit p�es login: unknown
> user name or pass. V CACH� kontrol panel v�e vykazuje OK.
> Nev�te tedy n�kdo, zda je pot�eba pou��t n�co jako speci�ln�
> driver �i co?

Ahoj,
a jake jmeno a heslo pouzivas. Po nainstalovani by melo fungovat
jmeno: "_system" a heslo "sys".

S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz

Watch chyba:Variable "i" inaccessible here due to

[*] snehulak <snehulak(zv)izs-br(tec)cz> - 21.5.2002 11:44:30

Zdravim vsechny,

tohle mi to pise kdyz se snazim ladit program.Nevite cim by to mohlo byt? A
da se ta optimalizace nejak vypnout nebo jak to odstranit.
Diky

DBLookupComboBox

[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 21.5.2002 11:45:42


Absolutne se mi nedari. Nevim, co s tim...
Je tu prosim nekdo, na koho se obratit treba telefonicky ohledne
DBLookupComboBoxu ???
Diky.

V.

-----Original Message-----
From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Tuesday, May 21, 2002 10:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: DBLookupComboBox


> stale se topim v DBLookupComboBoxu. Muzete mi prosim poradit ? Mam D5
> a Win 2000. Jak se postavim v DBLookupComboBoxu na nejaky radek ?
>

DBLookupComboBox.KeyValue := nejaka hodnota


Pritom to "nejaka hodnota" by melo odpovidat typove hodnotam pole
KeyField. Pokud tabulka v poli KeyField obsahuje tu hodnotu, vybere se.

David Lebeda

Mix dvou RAW audio dat

[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 21.5.2002 11:53:52

Vazeni pratele,

mohl by mi nekdo poradit, jakym zpusobem, popripade kde bych nasel informace
o tom, jak mixovat dva audio soubory?
Abych to priblizil - mam DLL, ktera mi vraci nasledujici parametry po
otevreni audia:
1. handle
2. sample rate
3. number of channels
4. bits per sample per channel
5. number of bytes occupied by sound samples in this handle
6. pointer to the raw sound data

(omlouvam se za anglictinu, ale myslim si, ze by tyto vyrazy mohly byt po
prekladu zavadejici)

ja bych potreboval mixovat (ne prehravat) dve "raw sound data" do jedne.

Diky moc za kazdou radu
Jarda

DBGrid - needituje - Error: Informace.........?

[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 21.5.2002 11:55:37

cus lidi,
zaboha nemuzi rozchodit funkci editace s DBGridem

mam jednoduchou databazu MS ACCESS 2000, ktera ma 10 sloupcu, zadnej
klic,zadne automaticky generovane cislo.
Do DB neni vice pristupu.

k databaz se pripijuju:

ADOconnection (keepConnectin=True, CursorLocation=clUseClient), na to je
povesena
ADOQuery (CursorTyope=ctKeySet, LockType=ltOptimistic). pak
DS(AutoEdit=True, Enabled=True);
DBGRID(ReadOdly=False, Options=[dgEditing])

kdyz prepisu hodnotu v bunce a stisku klavesu sipku dolu, cimz by se to melo
postnout, tak to hodi:

,,Informace o sloupci klicu jsou nedostatecne nebo nespravne. Akrualizace se
tyka prislis mnoha radku."

Pocet zaznamu je asi 20. W2000 D5Ent.
nevi nekdo co delam
blbe?
dik
P.

MEMO a diakritika

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.5.2002 12:11:57

> Jeste bych se rad zeptal jestli nekdo nenarazil na problem s TMemo, ve
> kterym je tucny Font MS SansSerif. Pri psani ceskych znkau se rozjizdi
> pozice kurzoru od psaneho textu.

Ahoj,

tohle se opravdu deje - a mam pocit ze pri tucnem pismu obecne. Po
odstraneni priciny jsme moc nepatrali - proste v memu se tucne pismo
neaplikuje.
Mam jen jeden tip, mozna k nicemu: u nekterych komponent, neni
Font a Canvas.Font totez (ruzne hodnoty apod.). Mozna by stalo za to
zapatrat timhle smerem, ale jak rikam, treba to bude k nicemu.

David Lebeda

Watch chyba:Variable "i" inaccessible here due to

[*] likeapear <likeapear(zv)centrum(tec)cz> - 21.5.2002 12:20:44

Project/Options/Compiler/CodeGeneration/Optimization.
A buildni celej projekt.

likeapear

----- Original Message -----
From: "snehulak" <snehulak(zv)izs-br(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 21, 2002 11:44 AM
Subject: Watch chyba:Variable "i" inaccessible here due to optimization


| Zdravim vsechny,
|
| tohle mi to pise kdyz se snazim ladit program.Nevite cim by to mohlo byt?
A
| da se ta optimalizace nejak vypnout nebo jak to odstranit.
| Diky
|
|

Watch chyba:Variable "i" inaccessible here due to

[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.5.2002 12:23:44

----- Original Message -----
From: "snehulak" <snehulak(zv)izs-br(tec)cz>
> tohle mi to pise kdyz se snazim ladit program.Nevite cim by to mohlo byt? A
> da se ta optimalizace nejak vypnout nebo jak to odstranit.
> Diky
>

Optimalizace lze vypnout ale zrovna teto optimalizace se to netyka.
Ja to delam tak, ze si na konci procedurky kde se promenna 'i'
pouziva davam radek:

begin
...
NxNop([i]);
end;

Funkce NxNop() s predanymi parametry nic nedela, pouze se takto
oklame prekladac aby si myslel ze promenna 'i' bude jeste potreba.
Napriklad pokud bys tam dal misto volani nejake funkce pouze
prirazeni 'i:=0;' optimalizator prekladace by to neprelozil protoze
by spravne zjistil ze se naplneni uz k nicemu nepouzije.
Implementace NxNop z nasi knihovny:

{** No Operation. Nic nedel�, jen se do n� daj� predat argumenty pro oklam�n�
optimalizace prekladu. Pokud je prvn� argument Boolean nebo Integer,
vrac� jeho hodnotu (0=False).}
function NxNop(Args: array of const): Boolean;
begin
Result := False;
with Args[Low(Args)] do
case VType of
vtBoolean: Result := VBoolean;
vtInteger: Result := (VInteger <> 0);
end;
end;

Martin Schayna

http proxy

[*] iko <iko(zv)kamarad(tec)cz> - 21.5.2002 12:31:19

kde zohnat http proxy so zdrojakmi? alebo taky, co uklada vsetok prenos do
suborov, teda aj poziadavku na web, aj odpoved servera aj s hlavickou...

diky za nakopnutie, ak nebude, budem musiet stvorit... ach jo

Watch chyba:Variable "i" inaccessible here due to

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.5.2002 12:37:11

Kompilator usoudil, ze ta promenna neni pro debugovani kodu podstatna, tak
ji do vysledneho EXE nezahrnul. Optimalizaci vypnes pomoci voleb
Project/Options/zalozka Compiler/odskrtnout "Optimization" (plati pro D5
Pro).

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380

D&COMM s.r.o.
Korunovacn� 6
170 00 Praha 7


> Subject: Watch chyba:Variable "i" inaccessible here due to
optimization
>
> tohle mi to pise kdyz se snazim ladit program.Nevite cim by to mohlo byt?
A
> da se ta optimalizace nejak vypnout nebo jak to odstranit.

DBLookupComboBox

[*] Kinsky Filip <xkinf01(zv)vse(tec)cz> - 21.5.2002 12:37:03

Ahoj,
zkus nastavit KeyValue na ID radku, na ktery se chces
presunout.
Filip

> Jak se postavim v DBLookupComboBoxu na nejaky radek ?
>
> Vasek

Watch chyba:Variable "i" inaccessible here due to

[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 21.5.2002 12:41:23

>Predmet: Watch chyba:Variable "i" inaccessible here due to optimization

A co je to zac ten Compiler?

Josef Cerny

DBLookupComboBox

[*] miro mrazik <preas_w(zv)stonline.sk> - 21.5.2002 13:12:11

Skkus sa v tej tabulke, z ktorej berie udaje postavit na dany riadok
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 21, 2002 9:44 AM
Subject: DBLookupComboBox


>
> Ahoj,
>
> stale se topim v DBLookupComboBoxu. Muzete mi prosim poradit ? Mam D5 a
> Win 2000.
> Jak se postavim v DBLookupComboBoxu na nejaky radek ?
>
> Vasek
>

DBGrid - needituje - Error: Informace.........?

[*] Pavel Kral <kral(zv)zoner(tec)com> - 21.5.2002 13:17:07

ahoj,
doporucil bych nejaky primarni klic (unikatni), aby ta databaze vedela,
o ktery zaznam konkretne se jedna. Pokud neni k dispozici
zadna identifikace zaznamu, tak nemuze vedet, ktery zaznam
vlastne editujes.

Pavel

> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vagner Pavel
> Sent: Tuesday, May 21, 2002 11:56 AM
> To: 'delphi-l(zv)clexpert(tec)cz'
> Subject: DBGrid - needituje - Error: Informace.........?
>
>
> cus lidi,
> zaboha nemuzi rozchodit funkci editace s DBGridem
>
> mam jednoduchou databazu MS ACCESS 2000, ktera ma 10 sloupcu, zadnej
> klic,zadne automaticky generovane cislo.
> Do DB neni vice pristupu.
>
> k databaz se pripijuju:
>
> ADOconnection (keepConnectin=True,
> CursorLocation=clUseClient), na to je
> povesena
> ADOQuery (CursorTyope=ctKeySet, LockType=ltOptimistic). pak
> DS(AutoEdit=True, Enabled=True);
> DBGRID(ReadOdly=False, Options=[dgEditing])
>
> kdyz prepisu hodnotu v bunce a stisku klavesu sipku dolu,
> cimz by se to melo
> postnout, tak to hodi:
>
> ,,Informace o sloupci klicu jsou nedostatecne nebo nespravne.
> Akrualizace se
> tyka prislis mnoha radku."
>
> Pocet zaznamu je asi 20. W2000 D5Ent.
> nevi
> nekdo co delam
> blbe?
>
> dik
> P.
>

SNMP

[*] Zach Tom�s - 21.5.2002 13:29:36

Velmi dekuji za radu

-----Original Message-----
From: Gebauer Lukas [mailto:gebylist(zv)mlp(tec)cz]
Sent: Tuesday, May 21, 2002 11:33 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SNMP


> Lze nekde sehnat nejake slusne komponenty nebo neco podobneho pro praci se SNMP v D6?

Synapse. :-)

Pak to jeste umi Indy, ale tam je na SNMP prevzaty stary kod ze
Synapse, takze je jaksi lepzi jit rovnou 'ke zdroji', ktery je
ponekud aktualnejsi. ;-)
-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.362 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002

BorCon 2002 - Delphi 7 .NET ...

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2002 13:33:03

Dr.Bob's BorCon 2002 Report: http://www.drbob42.com/borcon.htm

Petr Vones

Hook na otevreni souboru z internetu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2002 13:35:29

From: "Frant�k Daniel" <Daniel.Frantik(zv)merlin(tec)cz>
> - Jak tedy zjistim (a pripadne zakazu), kdy IE chce stahovat nejaky soubor
> (jde mi napr. o bannery)?

http://www.euromind.com/iedelphi/ie5tools/bho.htm

Petr Vones

Inicializacia premennych v deklaracii

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2002 13:37:06

From: "Robert Suska" <delphi(zv)korak.sk>
> da sa inicializovat viac premennych v deklaracii naraz? existuje na to

Ne, viz Object Pascal Language Guide. Globalni promenne jsou vsak automaticky
inicializovany na nulu.

Petr Vones

Tuhnuti ImageListu na P4

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2002 13:40:44

From: "Pavel Kral" <kral(zv)zoner.com>
> ma aplikace (napsana v D3) tuhne na P4 (1.6 GHz), a to pri pridavani bitmapy
> do ImageListu,
> tj. i pri vytvareni DBGridu apod. Nevite nekdo co s tim? Dik.

- Musis mit Update Pack #2 pro Delphi 3.
- Bylo by vhodne prejit na nejakou novejsi verzi Delphi.
- Na jakem operacnim systemu se to deje ?

Petr Vones

Prevod ShortString na normal string

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2002 13:44:05

From: "Robert Suska" <delphi(zv)korak.sk>
> Ako sa da previest ShortString na normalny string?

procedure TForm1.Button1Click(Sender: TObject);
var
SH: ShortString;
S: string;
begin
SH := '1234';
S := SH;
ShowMessage(S);
end;

Obecne je ale vhodne ShortString nepouzivat.

Petr Vones

DBGrid - needituje - Error: Informace.........?

[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 21.5.2002 13:47:06

Vagner Pavel dne 21 May 2002 v 11:55:

> mam jednoduchou databazu MS ACCESS 2000, ktera ma 10 sloupcu, zadnej
> klic,zadne automaticky generovane cislo. Do DB neni vice pristupu.

...

> kdyz prepisu hodnotu v bunce a stisku klavesu sipku dolu, cimz by se
> to melo postnout, tak to hodi:
>
> ,,Informace o sloupci klicu jsou nedostatecne nebo nespravne.
> Akrualizace se tyka prislis mnoha radku.">
> Pocet zaznamu je asi 20. W2000 D5Ent.
> nevi nekdo co delam
> blbe?
> dik
> P.
>

Ahoj,

podle meho soudu by mohlo vadit, ze nemas zadny klic. Zkus nejaky pridat a uvidis, jestli to
pomuze...

Karel Rys

Watch chyba:Variable "i" inaccessible here due to

[*] Martin Cajbik <cajbik(zv)sct.sk> - 21.5.2002 13:51:11

Je to v Projekt \ Options \ Compiler \ Optimization. Nezabudni potom spravit
Build a pre ostru verziu to zase nastav spat (a samozrejme opat Build).

MarCaNT (marcant(zv)sct.sk)> Zdravim vsechny,
>
> tohle mi to pise kdyz se snazim ladit program.Nevite cim by to mohlo byt?
A
> da se ta optimalizace nejak vypnout nebo jak to odstranit.
> Diky
>
>

DBGrid - needituje - Error: Informace.........?

[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 21.5.2002 14:02:43

no nepomohlo, rvalo to furt to samy a pak kdyz doslo k ty chybe, tak uz to
ani neprovedlo 'SELECT * ...' a znova hlaska.
Tak me napadlo, jestli by nebylo lepsi dat na form nejaky DBEdity primo na
jednotliva pole a Dat DBGrid na ReadOndly.
Pavel



-----Original Message-----
From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
Sent: Tuesday, May 21, 2002 1:47 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: DBGrid - needituje - Error: Informace.........?


Vagner Pavel dne 21 May 2002 v 11:55:

> mam jednoduchou databazu MS ACCESS 2000, ktera ma 10 sloupcu, zadnej
> klic,zadne automaticky generovane cislo. Do DB neni vice pristupu.

...

> kdyz prepisu hodnotu v bunce a stisku klavesu sipku dolu, cimz by se
> to melo postnout, tak to hodi:
>
> ,,Informace o sloupci klicu jsou nedostatecne nebo nespravne.
> Akrualizace se tyka prislis mnoha radku.">
> Pocet zaznamu je asi 20. W2000 D5Ent.
> nevi nekdo co delam
> blbe?
> dik
> P.
>

Ahoj,

podle meho soudu by mohlo vadit, ze nemas zadny klic. Zkus nejaky pridat a
uvidis, jestli to
pomuze...

Karel Rys

http proxy

[*] David Janko <djanko(zv)infoware(tec)cz> - 21.5.2002 14:08:54

Pokud neva linuxi a v C tak treba squid - jestli je naportovan i pro win to
nevim, mrkni se.
Pripadne bych se rozhledl po dalsich linuxich - muzou byt jednodussi nez
squid, ci i jiz naportovane pro win - a velmi pravdepodobne budou se
zdrojaky ... ale asi budou vzdy v C/C++ ...


---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999

----- Original Message -----
From: "iko" <iko(zv)kamarad(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 21, 2002 12:31 PM
Subject: http proxy


> kde zohnat http proxy so zdrojakmi? alebo taky, co uklada vsetok prenos do
> suborov, teda aj poziadavku na web, aj odpoved servera aj s hlavickou...
>
> diky za nakopnutie, ak nebude, budem musiet stvorit... ach jo
>

IB/FB

[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.5.2002 14:09:18

Haj hou!

On 21 May 2002 at 9:06, KALUS Jozef wrote:

> akym stylom sa dostanem na IB/FB z D6Pro, ale prosim bez BDE ?

Pouzij InterBase Express (zalozka InterBase + InterBase Admin).

> ako je na tom dbExpress ? je vobec pouzitelny na sietovu IB/FB ?

Ano.

S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase

Watch chyba:Variable "i" inaccessible here due to

[*] snehulak <snehulak(zv)izs-br(tec)cz> - 21.5.2002 14:18:54



> >Predmet: Watch chyba:Variable "i" inaccessible here due to optimization
> A co je to zac ten Compiler?
>
> Josef Cerny
>

Je to Delphi 6, ale ten predchozi prispevek mi to vyresil timto dekuju
autorovi :)

Snehulak

Watch chyba:Variable "i" inaccessible here due to

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.5.2002 14:29:00

Kompilator, tj. program, ktery preklada jednotlive unity a tvori z nich
soubory DCU. Pak nastupuje Linker, to je program, ktery dava jednotlive DCU
dohromady a vytvari z nich EXE resp. DLL, OCX apod.

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380

D&COMM s.r.o.
Korunovacn� 6
170 00 Praha 7


> >Predmet: Watch chyba:Variable "i" inaccessible here due to optimization
>
> A co je to zac ten Compiler?
>
> Josef Cerny

UDF v DELPHI6 pro FB1 se zpracovanim hodnoty NULL

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 21.5.2002 14:36:22

ahoj,

potrebuju v DELPHI 6 prof. napsat UDF-ku. ve ktery
poznam, ze predany parametr ma hodnotu <null> a
po zpracovani dokaze pripadnou hodnotu <null> vratit.
AFAIK je todle vymozenosti FB, kterou IB nema, ale
neumim to napsat. zatim mam obyc UDF, ve ktery s
hodnotama <null> nepracuju. muzete mi poradit, co
bych mel kde upravit?:
<zdrojak>
// funkce vrati pocet celych/zapocatych let mezi daty
// potreboval bych poznat, ze nektery z datumu is null
// a v tom pripadku vratit taky null

library ag_udf;

const
IBASE_DLL = 'gds32.dll';
cYearOffset = 1900;

type
ISC_LONG = LongInt; // 32 bit signed
UISC_LONG = LongWord; // 32 bit unsigned
TGDS_QUAD = record
gds_quad_high : ISC_LONG;
gds_quad_low : UISC_LONG;
end;
PGDS_QUAD = ^TGDS_QUAD;

// C Date/Time Structure
TCTimeStructure = record
tm_sec : integer; // Seconds
tm_min : integer; // Minutes
tm_hour : integer; // Hour (0--23)
tm_mday : integer; // Day of month (1--31)
tm_mon : integer; // Month (0--11)
tm_year : integer; // Year (calendar year minus 1900)
tm_wday : integer; // Weekday (0--6) Sunday = 0)
tm_yday : integer; // Day of year (0--365)
tm_isdst : integer; // 0 if daylight savings time is not in effect)
end;
PCTimeStructure = ^TCTimeStructure;
TM = TCTimeStructure;
PTM = ^TM;

procedure isc_decode_date (ib_date: PGDS_QUAD; tm_date:
PCTimeStructure); stdcall; external IBASE_DLL;

function YearsCount(ib_date_from, ib_date_to: PGDS_QUAD;
var CountParts: Integer): integer; cdecl; export;
var // 0 - pouze cel� roky, 1 - ka�d� zapo�at� rok
tm_date_from, tm_date_to: tm;
md_from, md_to: Integer;
begin
isc_decode_date(ib_date_from, (zv)tm_date_from);
isc_decode_date(ib_date_to, (zv)tm_date_to);
Result:=tm_date_to.tm_year-tm_date_from.tm_year;
if CountParts=1 then
begin
md_from:=tm_date_from.tm_mon*100+tm_date_from.tm_mday;
md_to:=tm_date_to.tm_mon*100+tm_date_to.tm_mday;
if md_from<=md_to then inc(Result);
end;
end;

exports
YearsCount;

begin
isMultiThread:=True; // tohle to tu _mus�_ b�t!
end.
</zdrojak>

dekuji PeC(zv)

Edit komponenta na porizeni meny

[*] <ivan.virag(zv)aliatel(tec)cz> - 21.5.2002 14:44:28

Zdravim.

Nevite prosimvas nekdo o komponente na por�zovani menove castky, ktera by nebyla zavisla na region�lnim nastaveni a poctu desetinnych mist? CurrencyEdit z RxLib se pri urcitych nastavenich Windows nechova dobre. Dekuji.

Ivan Virag

Delphi 5

[*] Zdenek <dkonf(zv)seznam(tec)cz> - 21.5.2002 14:48:06

Ahoj,
nevite nekdo kde a jak sehnat Delphi 5?

Diky.

Zdenek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002

ovladanie dbgridu z kodu

[*] mato <mato.tino(zv)inmail.sk> - 21.5.2002 14:48:47

zdravim

D5

ako v kode nastavit, ktore stlpce maju byt v DBgride a ich vlastnosti ? V
dobe navrhu dbgrid nevie k comu bude pripojeny a potom mi zobrazuje vsetky
stlpce v datasete.

mato

Chart2FX.VBX

[*] Ing. Zden�k �ezn��ek - 21.5.2002 14:51:44

Ja vim, jenze v DELPHI 1 nic takoveho neni

Zdenek


----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, May 19, 2002 11:45 PM
Subject: Re: Chart2FX.VBX


> From: "Ing. Zden�k �ezn��ek" <reznicek(zv)nem.pce(tec)cz>
> > �e�ili jste n�kdo probl�m s jin�m druhem �ar v grafu komponenty
> > Chart2FX.VBX ?
>
> Asi by bylo lepsi pouzit nativni VCL komponentu na grafy, napriklad TChart
> ktery je primo soucasti Delphi.
>
> Petr Vones

CM_BASE + ???

[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 21.5.2002 15:00:08

Zdravim vsechny,

potrebuji udelat novou konstantu pro zpravu mezi objekty, ale nevim co mam
dosadit za ty otazniky abych se nestrefil do nejake duplicity. Delphi help o
tom zaryte mlci... :(((

S pozdravem

Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz

odstraneni persistant fields TQuery

[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 21.5.2002 15:29:13

Nazdar,

nemohu najit zpusob, jak za behu odstranit persistant fields (definovane v
design mode ) v TQuery. Pote, co se query otevre a zavre nedokazi vycistit
fields.

Nevi nekdo, jak na to?

Diky

Dan

UDF v DELPHI6 pro FB1 se zpracovanim hodnoty NULL

[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 21.5.2002 15:39:24

podivej se na http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/firebird/interbase/extlib/fbudf/
Ber to jako priklad v C++.
Jinak se jedna o predavani parametru pres deskriptor.

Slavek

> ahoj,
>
> potrebuju v DELPHI 6 prof. napsat UDF-ku. ve ktery
> poznam, ze predany parametr ma hodnotu <null> a
> po zpracovani dokaze pripadnou hodnotu <null> vratit.
> AFAIK je todle vymozenosti FB, kterou IB nema, ale
> neumim to napsat. zatim mam obyc UDF, ve ktery s
> hodnotama <null> nepracuju. muzete mi poradit, co
> bych mel kde upravit?:
> <zdrojak>
> // funkce vrati pocet celych/zapocatych let mezi daty
> // potreboval bych poznat, ze nektery z datumu is null
> // a v tom pripadku vratit taky null

Tuhnuti ImageListu na P4

[*] Pavel Kral <kral(zv)zoner(tec)com> - 21.5.2002 15:47:55

> ma aplikace (napsana v D3) tuhne na P4 (1.6 GHz), a to pri
> pridavani bitmapy
> > do ImageListu,
> > tj. i pri vytvareni DBGridu apod. Nevite nekdo co s tim? Dik.
>
> - Musis mit Update Pack #2 pro Delphi 3.

A ten se da stahnout, nebo se musi kupovat?

> - Bylo by vhodne prejit na nejakou novejsi verzi Delphi.

To vim, ale ta aplikace je dost rozsahla a nejak se nemuzu odhodlat.

> - Na jakem operacnim systemu se to deje ?

Win98

Diky

Hook na otevreni souboru z internetu

[*] Pavel Kral <kral(zv)zoner(tec)com> - 21.5.2002 15:54:30

stahovat nejaky soubor
> > (jde mi napr. o bannery)?
>
> http://www.euromind.com/iedelphi/ie5tools/bho.htm
>

Podle tohoto se da vytvorit plugin pro IE, ale nebude
se to zrejme tykat napr. Mozilly.
Obecne se to da resit snad jedine jako proxy server,
jako to maji delane Webwasher (WebWasher.com) a Proxomitron.
V prohlizeci se pak musi nastavit "Pouzivat proxy server".

Pavel

ovladanie dbgridu z kodu

[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 21.5.2002 15:55:26

Napr. :

Grid.Columns.Add;
Grid.Columns[Grid.Columns.Count - 1].FieldName := 'Fieldname';> ako v kode nastavit, ktore stlpce maju byt v DBgride a ich vlastnosti
> ? V dobe navrhu dbgrid nevie k comu bude pripojeny a potom mi
> zobrazuje vsetky stlpce v datasete.
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15

DBGrid - needituje - Error: Informace.........?

[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 21.5.2002 15:58:01

Musis si na tabulce vytvorit primarni klic (nebo unikatni index) nebo musis
mit zajisteno ze nebudou existovat dva shodne radky. Pro update je "jako"
vygenerovan prikaz UPDATE tabulka SET a1 = 'kkkk', a2 = ...WHERE a1= 'jhjj'
AND a2 = ...
Po zpracovani je zkontrolovano zda byl updateovan prave jeden radek, pokud
je pocet radku jiny, je implicitni transakce rollbackovan a zobrazena tebou
uvedena zprava. Toto plati pro vsechny neradkove orientovane databaze.
Radkove orientovana databaze udrzuje trvale informaci o cisle radku (je to
takovy "automaticky primarni klic") a tak dokaze podle nej urcit zaznam k
oprave.

Pavel

> From: Vagner Pavel [mailto:Vagner(zv)ceps(tec)cz]
> cus lidi,
> zaboha nemuzi rozchodit funkci editace s DBGridem
>
> mam jednoduchou databazu MS ACCESS 2000, ktera ma 10 sloupcu, zadnej
> klic,zadne automaticky generovane cislo.
> Do DB neni vice pristupu.
>
> k databaz se pripijuju:
>
> ADOconnection (keepConnectin=True,
> CursorLocation=clUseClient), na to je
> povesena
> ADOQuery (CursorTyope=ctKeySet, LockType=ltOptimistic). pak
> DS(AutoEdit=True, Enabled=True);
> DBGRID(ReadOdly=False, Options=[dgEditing])
>
> kdyz prepisu hodnotu v bunce a stisku klavesu sipku dolu,
> cimz by se to melo
> postnout, tak to hodi:
>
> ,,Informace o sloupci klicu jsou nedostatecne nebo nespravne.
> Akrualizace se
> tyka prislis mnoha radku."
>
> Pocet zaznamu je asi 20. W2000 D5Ent.
> nevi
> nekdo co delam
> blbe?
>
> dik
> P.
>

ovladanie dbgridu z kodu

[*] �tevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 21.5.2002 16:05:19

Pozri si dbGrid.Columns <- zoznam Columnsov, praca ako s TList

Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420 2 41010111 (153)
mobil: +420 724 296616
icq: 38493645

Delphi 5

[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 21.5.2002 16:19:25

Objednat na http://shop.borland(tec)cz.

Jakub Dusek

-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------

----- Original Message -----
From: "Zdenek" <dkonf(zv)seznam(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 21, 2002 2:48 PM
Subject: Delphi 5


> Ahoj,
> nevite nekdo kde a jak sehnat Delphi 5?
>
> Diky.
>
> Zdenek
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002
>
>

Delphi 6 UPD#2 - chyba pri kompilsaci

[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 21.5.2002 16:21:12

Nazdar,

po instalaci UPD2 je zapotrebi stahnout a instalovat update IBX - viz n�vod
k UPD2. V archivu konference je i www adresa na update IBX.

Dan


----- Original Message -----
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 21, 2002 4:26 PM
Subject: Delphi 6 UPD#2 - chyba pri kompilsaci


> Ahoj,
>
> W2k SP1, D6 P Update Pack 2
>
> nainstaloval jsem si Update # 2 a to jsem zrejme nemel delat,
> protoze nastaly problemy.
>
> 1. Nesnasely se komponenty RX s dclsoap60.bpl, tak jsem RX
> komponenty prekompiloval (viz Readme.txt), coz bohuzel
> nepomohlo a tak jsem je nakonec odinstalovat
>
> 2. Daleko vetsi problem je, ze pri kompilaci mi to hlasi chybu:
> [Error] IBXMLHeader.pas(149): Undeclared identifier:
> 'SIB65feature'
> a SIB65feature nemohu najit v celem adresari D6
>
> akze nevim. Nerad bych preinstalovaval D6 na zakladni instalaci.
>
> Prosim o jakoukoliv radu a moc dekuji,
>
> preji hezky den
>
> Jarek Uher
>
>

CRC

[*] Zach Tom� - 21.5.2002 16:23:45

Mam takovy problem, potrebuji porovnavat velke mnozstvi pomerne dlouhych stringu. Napadlo me to resit, v ramci jednoduchosti a rychlosti, necim jako je kontrolni soucet. Proste bych vytvoril jedinecne cislo, ktere by oznacovalo jednoznacne dany string. Bohuzel ale nevim, jakym zpusobem na to v Delphi jednoduse jit.
Mohl by mi nekdo poradit? Mam D6

Tomas Zach



---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002

ovladanie dbgridu z kodu

[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 21.5.2002 16:23:52

Zdar,

DBGrid ma property Columns, kde si u kazdeho sloupce muzes nastavit
viditelnost.

Dan


----- Original Message -----
From: "mato" <mato.tino(zv)inmail.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 21, 2002 2:48 PM
Subject: ovladanie dbgridu z kodu


> zdravim
>
> D5
>
> ako v kode nastavit, ktore stlpce maju byt v DBgride a ich vlastnosti ? V
> dobe navrhu dbgrid nevie k comu bude pripojeny a potom mi zobrazuje vsetky
> stlpce v datasete.
>
> mato
>
>

Delphi 6 UPD#2 - chyba pri kompilsaci

[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 21.5.2002 15:26:58

Ahoj,

W2k SP1, D6 P Update Pack 2

nainstaloval jsem si Update # 2 a to jsem zrejme nemel delat,
protoze nastaly problemy.

1. Nesnasely se komponenty RX s dclsoap60.bpl, tak jsem RX
komponenty prekompiloval (viz Readme.txt), coz bohuzel
nepomohlo a tak jsem je nakonec odinstalovat

2. Daleko vetsi problem je, ze pri kompilaci mi to hlasi chybu:
[Error] IBXMLHeader.pas(149): Undeclared identifier:
'SIB65feature'
a SIB65feature nemohu najit v celem adresari D6

akze nevim. Nerad bych preinstalovaval D6 na zakladni instalaci.

Prosim o jakoukoliv radu a moc dekuji,

preji hezky den

Jarek Uher

CRC

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 21.5.2002 16:38:39


V Synapsi, konkretne v unite SynaCode.pas mas funkce na vypocet CRC
stringu uz hotove. (a pochopitelne ve tvem projektu muzes pouzit jen
tuto unitu, ktera je sama o sobe nezavisla, takze se nedes, ze
Synapse je knihovna po TCP/IP. ;-)

> Mam takovy problem, potrebuji porovnavat velke mnozstvi pomerne dlouhych stringu. Napadlo me to resit, v ramci jednoduchosti a rychlosti, necim jako je kontrolni soucet. Proste bych vytvoril jedinecne cislo, ktere by oznacovalo jednoznacne dany string. Bohuzel ale nevim, jakym zpusobem na to v
Delphi jednoduse jit.
> Mohl by mi nekdo poradit? Mam D6


-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

Delphi 5

[*] Slavomir Cekel <cekel(zv)noves.sk> - 21.5.2002 16:39:33

bohuzial ... pokial viem, tak D5 sa uz nepredava !!! tiez som chcel
zakupit, btw. teraz je akcia, D6 prof za 20500 Sk (bez DPH tusim) ...
tak kde je problem ?

> Ahoj,
> nevite nekdo kde a jak sehnat Delphi 5?
>
> Diky.
>
> Zdenek

CRC

[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 21.5.2002 16:43:51


Na to se pouzivaji tzv. hashovaci funkce.
Mozna by se daly pouzit i systemove objekty Monikers, ale to jsem jeste
nezkousel.

Josef Cerny

>Mam takovy problem, potrebuji porovnavat velke mnozstvi pomerne dlouhych
stringu. Napadlo me to >resit, v ramci jednoduchosti a rychlosti, necim jako
je kontrolni soucet. Proste bych vytvoril >jedinecne cislo, ktere by
oznacovalo jednoznacne dany string. Bohuzel ale nevim, jakym zpusobem na to
>v Delphi jednoduse jit.
>Mohl by mi nekdo poradit? Mam D6


CRC

[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 21.5.2002 17:09:47



Zach Tom� wrote:

>Mam takovy problem, potrebuji porovnavat velke mnozstvi pomerne dlouhych stringu. Napadlo me to resit, v ramci jednoduchosti a rychlosti, necim jako je kontrolni soucet. Proste bych vytvoril jedinecne cislo, ktere by oznacovalo jednoznacne dany string. Bohuzel ale nevim, jakym zpusobem na to v Delphi jednoduse jit.
>Mohl by mi nekdo poradit? Mam D6
>
Na torry najdes komponenty na vypocet CRC. Jen bych podotknul, ze pokud
se u dvou stringu rovna jejich CRC, neznamena to ze se rovnaji i stringy
samotne, i kdyz to je dost pravdepodobne. :-)

eNca

Delphi 5

[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 21.5.2002 17:13:11

Oficialne ne, ale staci pozadat Borland, jeste nejake zasoby maji. Ja jsem
si nedavno takhle koupil D5 Standard ktere jsem ted obratem upgradoval na D6
Professional :)

Jakub Dusek

From: "Slavomir Cekel" <cekel(zv)noves.sk>
To: <delphi-l(zv)clexpert(tec)cz>


bohuzial ... pokial viem, tak D5 sa uz nepredava !!! tiez som chcel
zakupit, btw. teraz je akcia, D6 prof za 20500 Sk (bez DPH tusim) ...
tak kde je problem ?

> Ahoj,
> nevite nekdo kde a jak sehnat Delphi 5?
>
> Diky.
>
> Zdenek

Paradox tab, BDE a sit

[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 21.5.2002 18:20:43

Ahoj,

mam dotaz ohledne BDE. Pouzivam v aplikaci komponenty TTable, TDataSource, TDBGrid, TDBNavigator.
V BDE Administratoru jsem si vytvoril alias:
Pokus123, typ: Standard, default driver: Paradox, Path: U:\DATA\

configuration-drivers-native-paradox:
Net dir: U:\DATA\
LangDriver: pdx ANSI Czech 'CH'

configuration-system-init:
Default driver: Paradox
LangDriver: pdx ANSI Czech 'CH'
Local Share: True

Toto nastaveni je shodne na vsech stanicich.
Na jednom pocitaci jsem prisdilel adresar, ktery jsem na ostatnich stanicich pripojil jako disk U:.
Cili tab. je pro vsechny pocitace v siti v adr. U:\DATA\pokus.db

Problem:

aplikace bezi, ale ignoruje zmeny a kazdy uzivatel si muze psat co chce ale druhemu se to
nezobrazi. Pri prvnim testovani doslo k tomu, ze aplikace ignorovala vsechny data, ale vzala
si data jednotlivych sloupcu - typy, nazvy, pocty.

Vypada to, ze obsah ty tabulky je rozdilny podle toho, kterou aplikaci spustim jako prvni.

Co delam spatne? Kde je problem ... ??

Diky Jiri
Sokol

______________________________________________________________________
Reklama:
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz

Delphi 3.0 professional

[*] Jan Dubsk� <hdplot(zv)seznam(tec)cz> - 21.5.2002 18:37:52

Jak je to s licenci starych verzi Delphi, konkretne V 3.0?
Da se jeste nekde legalne koupit, je mozne ji pouzivat jako freeware, kdyz
uz zkoncila jeji distribuce, nebo uz neni sance ji legalne ziskat a
pouzivat.

Pripadne pokud by nekdo vlastnil original licenci a prodal by ji (pokud to
vubec jde) ozvete se mi treba na osobni mejl hdplot(zv)seznam(tec)cz

SQL - MAX() podle dnesniho datumu

[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 21.5.2002 19:10:51

Ahoj,

potrebuji vybrat maximalni cislo + 1, ze vsech zaznamu, ktere byly zadany dnesni den
jde to udelat nejak inteligentneji nez to mam ja.......

DECLARE (zv)MaxCislo INT

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DATEPART(dd,DatumAdd)=DATEPART(dd,GETDATE()) AND
DATEPART(mm,DatumAdd)=DATEPART(mm,GETDATE()) AND
DATEPART(yyyy,DatumAdd)=DATEPART(yyyy,GETDATE())

slo by to nejak pres BETWEEN ?

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DatumAdd BETWEEN /* tady nejak naformatovat GETDATE() bez tech hodin, nastavit je na 00:00:00 */ AND GETDATE()

MSSQL2000


S pozdravem

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644

Paradox tab, BDE a sit

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.5.2002 19:18:45

Hm, ja to mam u sveho programu stejne a chodi to bez problemu. Zkusil bych
namisto toho sdileneho disku napsat napr. \\server\data apod. a zkusit to
takhle. Zkus take, jestli je to takto nastavene i na tom serveru s daty a
zda v tom adresari je soubor pdoxusrs.net nebo tak nejak podobne a zda neni
nekde jinde po ceste. Kdyz tak napis na soukr. mail nebo na ICQ.

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380

D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7

> Subject: Paradox tab, BDE a sit

> mam dotaz ohledne BDE. Pouzivam v aplikaci komponenty TTable, TDataSource,
TDBGrid, TDBNavigator.
> V BDE Administratoru jsem si vytvoril alias:
> Pokus123, typ: Standard, default driver: Paradox, Path: U:\DATA\
>
> configuration-drivers-native-paradox:
> Net dir: U:\DATA\
> LangDriver: pdx ANSI Czech 'CH'
>
> configuration-system-init:
> Default driver: Paradox
> LangDriver: pdx ANSI Czech 'CH'
> Local Share: True
>
> Toto nastaveni je shodne na vsech stanicich.
> Na jednom pocitaci jsem prisdilel adresar, ktery jsem na ostatnich
stanicich pripojil jako disk U:.
> Cili tab. je pro vsechny pocitace v siti v adr. U:\DATA\pokus.db
>
> Problem:
>
> aplikace bezi, ale ignoruje zmeny a kazdy uzivatel si muze psat co chce
ale druhemu se to
> nezobrazi. Pri prvnim testovani doslo k tomu, ze aplikace ignorovala
vsechny data, ale vzala
> si data jednotlivych sloupcu - typy, nazvy, pocty.
>
> Vypada to, ze obsah ty tabulky je rozdilny podle toho, kterou aplikaci
spustim jako prvni.
>
> Co delam spatne? Kde je problem ... ??

Kopirovani s listwiev do riche

[*] ji�� B�tu��k����*�Z ��%�� - 21.5.2002 20:07:44

Mam takovy problem ,potrebuji kopirovat data s listview do riche ale aby
zustaly sformatovane tak jak byly v listview .tj. do sloupcu (ponevadz je
potrebuji pote vytisknout a nevim co jineho pouzit ono memo ma strasne
malou kapacitu ,operuji asi s 2 - 3 Mb textu ) Poradte mi prosim

KinDR zacinajici programator v delphi 5

http proxy

[*] Milan Cizek <cizek.milan(zv)seznam(tec)cz> - 21.5.2002 20:42:27

ahoj,
napr. komponenta GpHTTPProxy, kterou najdes na netu.
Pokud ti jde jen o to logovani, muzes pouzit napr. SkyProxy nebo
Proxomitron, ktere umi i POST data.

S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637

> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of David Janko
> Sent: Tuesday, May 21, 2002 2:09 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: http proxy
>
>
> Pokud neva linuxi a v C tak treba squid - jestli je naportovan i
> pro win to
> nevim, mrkni se.
> Pripadne bych se rozhledl po dalsich linuxich - muzou byt jednodussi nez
> squid, ci i jiz naportovane pro win - a velmi pravdepodobne budou se
> zdrojaky ... ale asi budou vzdy v C/C++ ...
>
> ---
> Best Regards,
> David Janko
> programmer & Linux system administrator
> djanko(zv)infoware(tec)cz
> +420 604 164 999
>
> ----- Original Message -----
> From: "iko" <iko(zv)kamarad(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Tuesday, May 21, 2002 12:31 PM
> Subject: http proxy
>
>
> > kde zohnat http proxy so zdrojakmi? alebo taky, co uklada
> vsetok prenos do
> > suborov, teda aj poziadavku na web, aj odpoved servera aj s hlavickou...
> >
> > diky za nakopnutie, ak nebude, budem musiet stvorit... ach jo
> >
>
>

Dlzka String a zavislost na RAM

[*] Robert Suska <delphi(zv)korak.sk> - 21.5.2002 20:56:46

Ahojte!

Ma zmysel pouzivat takyto zapis:

var

s: String[10];

obmedzi to ze sa alokuije pre premennu s len 10byt ram alebo sa to robi
podla toho ze kolko znakov priradim do s ???

Dakujem

Robo

odstraneni persistant fields TQuery

[*] Lauko Stefan <laukosw(zv)naex.sk> - 21.5.2002 20:56:14

TQuery1.Fields.Clear;

From: "Redlich Software" <RedlichDaniel(zv)seznam(tec)cz>
> nemohu najit zpusob, jak za behu odstranit persistant fields (definovane v
> design mode ) v TQuery. Pote, co se query otevre a zavre nedokazi vycistit
> fields.
>
> Nevi nekdo, jak na to?

Kopirovani s listwiev do riche

[*] Martin Cajbik <cajbik(zv)sct.sk> - 21.5.2002 21:03:35

Na tento ucel si vytvor dynamicku zostavu cez QuickReport.

MarCaNT (marcant(zv)sct.sk)> Mam takovy problem ,potrebuji kopirovat data s listview do riche ale aby
> zustaly sformatovane tak jak byly v listview .tj. do sloupcu (ponevadz
je
> potrebuji pote vytisknout a nevim co jineho pouzit ono memo ma strasne
> malou kapacitu ,operuji asi s 2 - 3 Mb textu ) Poradte mi prosim
>
> KinDR zacinajici programator v delphi 5
>
>
>
>
>

FB a ZEOS

[*] bleak <bleak(zv)atlas(tec)cz> - 21.5.2002 21:09:01

zdravim,
je mozny se pripojit komponentami Zeos (ZIbSqlDatabase) na Firebird? Pokud
ano, jake je spravne nastaveni?
Nastavim:
database: emp
host: localhost
login: sysdba
password: masterkey
Zeos hlasi: Unable to complete network request to host "localhost"
Nejsp� asi FB a Zeos nejdou dohromady...

bleak

P.S. mam d4, proto hledam jine komponety pro pristup na FB, nez napr. IBX

SQL - MAX() podle dnesniho datumu

[*] Martin Cajbik <cajbik(zv)sct.sk> - 21.5.2002 21:19:45

Co trebars takto:

DECLARE (zv)MaxCislo INT
DECLARE (zv)Dnes datetime, (zv)Zajtra datetime

SELECT (zv)Dnes = DATEADD(day, '20000101', DATEDIFF(day, '20000101',
GETDATE()))
SELECT (zv)Zajtra = DATEADD(day, 1, (zv)Dnes)

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo)+1, 1)
FROM Tabulka
WHERE DatumAdd >= (zv)Dnes
AND DatumAdd < (zv)Zajtra

Rozhodne to bude rychlejsie ako porovnavanie cez DATEPART.
Pripadne mozes vynechat podmienku na (zv)Zajtra, pokial bude zarucene, ze v
tabulke nebudu novsie ako dnesne datumy.
Jednoduchsiu metodu ako datum orezat na cely den nepoznam, takze ak by
niekto o niecom vedel budem rad.

MarCaNT (marcant(zv)sct.sk)

Ahoj,

potrebuji vybrat maximalni cislo + 1, ze vsech zaznamu, ktere byly zadany
dnesni den
jde to udelat nejak inteligentneji nez to mam ja.......

DECLARE (zv)MaxCislo INT

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DATEPART(dd,DatumAdd)=DATEPART(dd,GETDATE()) AND
DATEPART(mm,DatumAdd)=DATEPART(mm,GETDATE()) AND
DATEPART(yyyy,DatumAdd)=DATEPART(yyyy,GETDATE())

slo by to nejak pres BETWEEN ?

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DatumAdd BETWEEN /* tady nejak naformatovat GETDATE() bez tech hodin,
nastavit je na 00:00:00 */ AND GETDATE()

MSSQL2000


S pozdravem

Bc. Jaroslav Blazek

SQL - MAX() podle dnesniho datumu

[*] Martin Cajbik <cajbik(zv)sct.sk> - 21.5.2002 21:22:40

Sorry drobny preklep, spravne malo byt

SELECT (zv)Dnes = DATEADD(day, DATEDIFF(day, '20000101',
GETDATE()), '20000101')

MarCaNT (marcant(zv)sct.sk)

> Co trebars takto:
>
> DECLARE (zv)MaxCislo INT
> DECLARE (zv)Dnes datetime, (zv)Zajtra datetime
>
> SELECT (zv)Dnes = DATEADD(day, '20000101', DATEDIFF(day, '20000101',
> GETDATE()))
> SELECT (zv)Zajtra = DATEADD(day, 1, (zv)Dnes)
>
> SELECT (zv)MaxCislo = ISNULL(MAX(Cislo)+1, 1)
> FROM Tabulka
> WHERE DatumAdd >= (zv)Dnes
> AND DatumAdd < (zv)Zajtra
>
> Rozhodne to bude rychlejsie ako porovnavanie cez DATEPART.
> Pripadne mozes vynechat podmienku na (zv)Zajtra, pokial bude zarucene, ze v
> tabulke nebudu novsie ako dnesne datumy.
> Jednoduchsiu metodu ako datum orezat na cely den nepoznam, takze ak by
> niekto o niecom vedel budem rad.
>
> MarCaNT (marcant(zv)sct.sk)
>
> Ahoj,
>
> potrebuji vybrat maximalni cislo + 1, ze vsech zaznamu, ktere byly zadany
> dnesni den
> jde to udelat nejak inteligentneji nez to mam ja.......
>
> DECLARE (zv)MaxCislo INT
>
> SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
> FROM Tabulka
> WHERE DATEPART(dd,DatumAdd)=DATEPART(dd,GETDATE()) AND
> DATEPART(mm,DatumAdd)=DATEPART(mm,GETDATE()) AND
> DATEPART(yyyy,DatumAdd)=DATEPART(yyyy,GETDATE())
>
> slo by to nejak pres BETWEEN ?
>
> SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
> FROM Tabulka
> WHERE DatumAdd BETWEEN /* tady nejak naformatovat GETDATE() bez tech
hodin,
> nastavit je na 00:00:00 */ AND GETDATE()
>
> MSSQL2000
>
>
> S pozdravem
>
> Bc. Jaroslav Blazek
>
>

Ulozenie zaznamov do aoAdoTable

[*] Roman <sw.maurice(zv)seznam(tec)cz> - 21.5.2002 21:42:42

> Zdravim vsetkych.
>
> Kedze nikto nereagoval, skusim este raz :-)
>
> Mam takyto zaujimavy problemik.
> Robim si katalogizacny program na cd-cka.
> Postupujem asi takto:
> 1.Precitam obcah CD, a vyberiem nazvy suborov
> o ktore mam zaujem
> 2.Nasypem udaje (pocas nacitavania) do
> RxMemoryTable
> 3.Pokusim sa nasypat data do aoAdoTable.
> V krajnom pripade ich moze byt cca 6-7000.
> 4.Standardny postup Apend - Post je
> pri takomto mnozstve velmi pomaly.
> Skusam to teda takto :
> Zavolam RxMemoryData1.SaveToDataSet(aoADOTable1,0);
> Program zacne ukladat, no po ulozeni niekolkych
> zaznamov zamrzne.
> Pocet ulozenych zaznamov je rozny (niekedy 1000, ale
> niekedy iba 10).
> Neviete niekto co s tym?
> Ked som to skusal s komponentou Table + BDE
> slapalo to v pohode, dokonca aj s Tdbf.
> Bohuzial standardna Table mi nevyhovuje z
> dovodu zavislosti na BDE, a Tdbf zase koli
> nemoznosti pouzit SQL.
> Mam D5 prof.

Pouzil bych spise aoQuery (ReturnRecordSet:=false;
CheckoForceReadOnly:=false; apod.) a data presunul pomoci dotazu.
A cele to pustil v transakci. (je-li aoDatabase.TransactionSupported).

Roman
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/

Dlzka String a zavislost na RAM

[*] <jan.neuzil(zv)email(tec)cz> - 21.5.2002 21:45:43

tohle alokuje pamet 10 bytu a vic se do toho nevejde, takze to trochu svuj smysl ma. Nicmene je to spise jen pro kompatibilitu s 16bit. Pascalem. Myslim ale, ze implicitne je v Delphi nastaven ansistring, ktery je opravdu tak velky, kolik do neho vlozis.
> --- P�vodn� zpr�va ---
> Od: "Robert Suska" <delphi(zv)korak.sk>
> Datum: 21.05.2002 20:57:54
>
> > Ahojte!
> >
> > Ma zmysel pouzivat takyto zapis:
> >
> > var
> >
> > s: String[10];
> >
> > obmedzi to ze sa alokuije pre premennu s len 10byt ram alebo sa to robi
> > podla toho ze kolko znakov priradim do s ???
> >
> > Dakujem
> >
> > Robo
> >
> >

______________________________________________________________________________
Kalend�� Email.CZ - dokonal� organizace Va�eho �asu: http://kalendar.email(tec)cz

SQL - MAX() podle dnesniho datumu

[*] Michal Olexa <olexa(zv)seznam(tec)cz> - 21.5.2002 21:48:48

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE CAST(CONVERT(real,DatumAdd) AS int)=CAST(CONVERT(real,GETDATE()) AS
int)

orezani hodin je teda:
SELECT CONVERT(datetime, CAST(CONVERT(real, GETDATE()) AS int))

Michal Olexa



-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Blazek Jaroslav
Sent: Tuesday, May 21, 2002 7:11 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: SQL - MAX() podle dnesniho datumu


Ahoj,

potrebuji vybrat maximalni cislo + 1, ze vsech zaznamu, ktere byly zadany
dnesni den
jde to udelat nejak inteligentneji nez to mam ja.......

DECLARE (zv)MaxCislo INT

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DATEPART(dd,DatumAdd)=DATEPART(dd,GETDATE()) AND
DATEPART(mm,DatumAdd)=DATEPART(mm,GETDATE()) AND
DATEPART(yyyy,DatumAdd)=DATEPART(yyyy,GETDATE())

slo by to nejak pres BETWEEN ?

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DatumAdd BETWEEN /* tady nejak naformatovat GETDATE() bez tech hodin,
nastavit je na 00:00:00 */ AND GETDATE()

MSSQL2000


S pozdravem

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644


---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002

---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002

CRC

[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 21.5.2002 22:34:54


----- Original Message -----
From: "Milan Schembera" <milan(zv)missoftware(tec)cz>
> Cokoliv je teoreticky mozne, prakticky se stane a v tu nejblbejsi dobu a v
> nejnevhodnejsim poradi. Murphyho zakony plati... Uz jsem se taky parkrat
> poucil ;-)
>
> (admina prosim za prominuti)
>
> > -----Original Message-----
> > From: Vaclav Votipka
> >
> > Jen bych
> > podotknul, ze pokud
> > se u dvou stringu rovna jejich CRC, neznamena to ze se
> > rovnaji i stringy
> > samotne, i kdyz to je dost pravdepodobne. :-)

Ahoj.
Myslim, ze nejaky hash je lepsi nez CRC.
Nejsem si sice 100% jisty, ale myslim, ze pokud zkombinuji delku stringu
napriklad s MD5 tak mam zcela urcite jednoznacne vyjadreni stringu.
Vychazim z tomo, ze pro dva stejne dlouhe stringy s jinym obsahem nebude
nikdy stejny vysledek funkce MD5.
POkud se mylim opravte mne.

Ludek


---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.342 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002

Paradox tab, BDE a sit

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 21.5.2002 22:56:34

On 21 May 2002 at 18:20, Ing. Jiri SOKOL wrote:

> mam dotaz ohledne BDE. Pouzivam v aplikaci komponenty TTable,
> TDataSource, TDBGrid, TDBNavigator. V BDE Administratoru jsem si
> vytvoril alias: Pokus123, typ: Standard, default driver: Paradox,
> Path: U:\DATA\
>
> Co delam spatne? Kde je problem ... ??

Spatne delas predevsim to, ze chces provozovat Paradox na siti. Az
rozchodis tento problem, prijdou jine, horsi. Jestli chces opravdu
poradit, zahod Paradox a BDE a preorientuj se na FireBird nebo MS SQL
(potazmo MSDE), usetris si spoustu zbytecnych starosti.

S pozdravem

Zbysek Hlinka


CRC

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.5.2002 23:18:42

Puvodni zprava, kterou napsal Lud�k ZITA dne 21 May 2002:

> > Cokoliv je teoreticky mozne, prakticky se stane a v tu nejblbejsi dobu a
> > v nejnevhodnejsim poradi. Murphyho zakony plati... Uz jsem se taky
> > parkrat poucil ;-)
> >
> > > Jen bych
> > > podotknul, ze pokud
> > > se u dvou stringu rovna jejich CRC, neznamena to ze se
> > > rovnaji i stringy
> > > samotne, i kdyz to je dost pravdepodobne. :-)
>
> Myslim, ze nejaky hash je lepsi nez CRC.
> Nejsem si sice 100% jisty, ale myslim, ze pokud zkombinuji delku stringu
> napriklad s MD5 tak mam zcela urcite jednoznacne vyjadreni stringu.
> Vychazim z tomo, ze pro dva stejne dlouhe stringy s jinym obsahem nebude
> nikdy stejny vysledek funkce MD5. POkud se mylim opravte mne.

Kontrolni soucty (napr. CRC16, CRC32 apod.) jsou neco trochu jineho nez
hashovaci funkce (napr. MD2, MD5, SHA-1 apod.).

Kontrolni soucet se pouziva pro zabezpeceni konzistence dat pri prenosu,
tj. pridava se k nejakym datum (nejcasteji ke kazdemu datovemu bloku) pro
kontrolu, zda nekde cestou neco nevypadlo a nema se prenos datoveho bloku
opakovat. Pozadavkem na kontrolni soucet tedy je rozpoznat, zda nedoslo k
poruse datoveho kanalu. Byva to obvykle 16-bitove nebo 32-bitove cislo.

Hashovaci funkce se pouziva pro otisk vstupnich dat. Tam jsou uplne jine
pozadavky. Hashovaci funkce musi byt jednosmerna, tj. aby z vysledku
nebylo mozne ziskat zdrojova data. Vysledny otisk musi odrazet cela
zdrojova data a take zmeny v nich. Pokud se zmeni jeden jediny bit ve
zdroji dat, vysledkem musi byt zmena v celem otisku, idealne tedy se musi
vsechny bity vysledku zmenit s 50% pravdepodobnosti. Hashovaci funkce
musi byt odolna proti kolizim. Kolize znamena, ze se najdou dve datove
zpravy se shodnym otiskem. Byva to nejmene 128-bitove (MD5), lepe 160-
bitove (SHA-1), ale i vicebitove cislo.

Kontrolni soucet typu CRC32 nezajistuje otisk, vyskyt kolizi je znacny.
Neni velkym problemem najit dve a vice datovych zprav se shodnym
kontrolnim souctem, uz jen proto, ze 32-bitove cislo odrazi pouhe 4
miliardy variant, ale take proto, ze kontrolni soucet nema vlastnosti
hashovaci funkce. Prestoze kontrolni soucty treba CRC32 nejsou jen
prostym souctem vstupnich dat, lze s jistou nadsazkou rici, to je pouhy
"soucet", proto se to take soucet jmenuje.

Hashovaci funkci lze prirovnat k semleti v mlynku na maso, i se to tak
casto prezentuje. Predstavte si to tak, ze vezmete jablko, hrusku, rajce,
kus masa, trochu hliny a to cele dukladne smichate a dukladne rozmelete -
vznikne nejaka semletina a tak si trosku schovate do pytlicku. Je jasne,
ze kdyz totez udelate bez masa, vysledek bude jiny a poznate to i v tom
malem "vzorku" v pytlicku. Jinak lze take prirovnat hashovaci funkci s
otiskem prstu. Mame zde vsechny vlastnosti, tj. jednosmernost (z otisku
prstu nedame dohromady cloveka a dokonce ani nezjistime, jak se jmenuje),
odraz zdroje dat (otisk prstu reprezentuje jednoho cloveka), minimalni
kolize (najit dva lidi se stejnym otiskem prstu je temer nemozne).

S pozdravem
Petr Zahradnik, pocitacovy expert

============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================

ExpressQuantumGrid spatne zobrazeni ceskych znaku

[*] Fait FTSOFT <fait(zv)ftsoft(tec)cz> - 22.5.2002 00:26:37

Nepouzivate nahodou nekdo subj? Mam problem se zobrazovani nekterych znaku s
hacky.
Nesetkali jste se nekdo s necim podobnym?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.361 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002

Edit komponenta na porizeni meny

[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 22.5.2002 04:29:03

http://www.kopr(tec)cz/delphi/index.htm
Komponenta KEdit, KLabeledEdit
Nastav EditType na teCurrency a v CurrPosition si nastavis kde tu menu
potrebujes a v CurrTezxt si napises vlastni kod meny. V CurrTextShow si
rikaz, zda menu zobrazit ci nikoliv. Dale si nastavis dle helpu dalsi
zobrazovaci parametry, napr pocet zadavanych des. mist a pocet zobrazovanych
des. mist, coz neni jedno a to same.

----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz

> Nevite prosimvas nekdo o komponente na por�zovani menove castky, ktera by
nebyla zavisla na region�lnim nastaveni a poctu desetinnych mist?
CurrencyEdit z RxLib se pri urcitych nastavenich Windows nechova dobre.
Dekuji.
>
> Ivan Virag

ovladanie dbgridu z kodu

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.5.2002 06:50:41

> ako v kode nastavit, ktore stlpce maju byt v DBgride a ich vlastnosti
> ? V dobe navrhu dbgrid nevie k comu bude pripojeny a potom mi
> zobrazuje vsetky stlpce v datasete.

Ahoj,

cesty jsou dve: jedna pres DBGrid.Columns, viz ostatni maily a druha -
vlastnosti Fieldu. Tj. pokud na dataset dvakrat kliknes a nechas si jiz v
dobe navrhu vygenerovat fieldy, ma kazdy field vlastnosti jako Visible,
DisplayLabel, DisplayWidth apod., ktere si nastavis podle libosti. Pokud
nechces fieldy vytvaret v dobe navrhu, muzes tyto upravy delat az z kodu
napr. v AfterOpen datasetu (neco jako Query1.FieldByName('id').Visible :=
False).

David Lebeda

Adonis a MS SQL 2000

[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 22.5.2002 07:59:47

Ahoj,
zacinam s MS SQL 2000 Serverem, ke kteremu se pripojuji pres ADO pomoci
komponent Adonis, konkretne TADODataSet.
Mam nasedujici dotazy:

Mam vytvorenu na serveru nasledujici tabulku Table1 s primarnim klicem ID,
ktery je zaroven autoincrement.
CREATE TABLE Table1 (
[ID] [int] IDENTITY (1, 1) NOT NULL ,
[Jmeno] [varchar] (50) COLLATE Czech_CI_AS NULL ,
[Prijmeni] [varchar] (50) COLLATE Czech_CI_AS NULL
) ON [PRIMARY]
GO
ALTER TABLE [dbo].[Table1] WITH NOCHECK ADD
CONSTRAINT [PK_Table1_1] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]
GO

Dotaz 1:
Mam nastaveny tyto parametry TADODataSetu.
ADODataSet.CursorLocation:=clClient;
ADODataSet.ctStatic;
ADODataSet.ltOptimistic;
V pripade, ze prepisu hodnotu polo�ky Jmeno napr. ze jmena Honza na Petr,
tak pri Post posle ADO na server prikaz (zkopirovano z SQL Profileru) "exec
sp_executesql N'UPDATE "Zkouska".."Table1" SET "Jmeno"=(zv)P1 WHERE "ID"=(zv)P2
AND "Jmeno"=(zv)P3', N'(zv)P1 varchar(4),(zv)P2 int,(zv)P3 varchar(5)', 'Petr', 4,
'Honza'", ale protoze jiny uzivatel mezitim zmenil hodnotu polozky Jmeno na
Pepa dojde k nasledujici chybe "Radek nelze aktualizovat. Pravdepodobne byly
od posledniho cteni zmeneny nektere hodnoty." Toto hlasku ma za nasledek
cast prikazu WHERE AND "Jmeno"=(zv)P3', ja bych, ale chtel dat uzivateli
moznost presto tyto zmenit ulozit (tak jak to dela Enterprise Manager), ale
nevim jak to udelat, aby se generovat prikaz s WHERE "ID"=(zv)P2. bez casti
prikazu AND "Jmeno"=(zv)P3'.

Dotaz 2:
Predchozi problem "Radek nelze aktualizovt. ...." jsem chtel obejit tim, ze
jsem nastavil ADODataSet.ltBatchOptimistic a pouzil TADOUpdateSQL s prikazy:
insert into Table1 ( Jmeno, Prijmeni) values ( :Jmeno, :Prijmeni)
update Table1 set Jmeno = :Jmeno, Prijmeni = :Prijmeni where ID = :OLD_ID
delete from Table1 where ID = :OLD_ID
Zde zase neumim aktualizovat polozku ID v DataSetu na hodnotu, kterou vrati
prikaz SELECT (zv)(zv)Identity pri pridani noveho zaznamu.

Vyreseni techto problemu je pro me velmi dulezite. Za kazdou odpoved
dekuji.

Petr

CRC

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 22.5.2002 08:07:28

Pokud puvodni tazatel pouzije mnou nabizenou unitu SynaCode.pas ze
synapse, tak i v ni ma jiz hotove funkce na vypocet treba MD5 hashe
ze stringu. (ktery je na tuto ulohu asi vhodnejsi...)

Myslim, ze si tam sam snadno vybere co mu bude nejlepe vyhovovat. ;-)

> Cokoliv je teoreticky mozne, prakticky se stane a v tu nejblbejsi dobu a v
> nejnevhodnejsim poradi. Murphyho zakony plati... Uz jsem se taky parkrat
> poucil ;-)


-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

CRC

[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 22.5.2002 09:01:43



Lud�k ZITA wrote:

>Ahoj.
>Myslim, ze nejaky hash je lepsi nez CRC.
>Nejsem si sice 100% jisty, ale myslim, ze pokud zkombinuji delku stringu
>napriklad s MD5 tak mam zcela urcite jednoznacne vyjadreni stringu.
>Vychazim z tomo, ze pro dva stejne dlouhe stringy s jinym obsahem nebude
>nikdy stejny vysledek funkce MD5.
>
>
Jak kontrolni soucty, tak i hashovaci funkce maji jednu spolecnou
vlastnost - z nekonecne velke mnoziny vsech moznych vstupnich dat
dokazou vypocitat cislo o pevne delce. Tedy to vysledne cislo je jedno z
konecne mnoziny vsech moznych cisel. Z tohoto duvodu bude vzdy mozne
najit dvojici ruznych vstupnich dat generujici stejne vystupni cislo.
Ruznymi fintami muzeme snizovat pravdepodobnost takoveho vyskytu ale
nikdy ji nesnizime na nulu.

Myslim, ze pri porovnavani dlouhych stringu lze s uspechem pouzit
nasledujici scenar:
1) Nejprve porovnam hashe - v tomto kroku vyloucim drtivou vetsinu
stringu a zbyde mi mala mnozina, ktera obsahuje potencialne shodne prvky.
2) Jednotlive prvky teto male mnoziny porovnam primo - "bajt po bajtu" a
tim overim, zda jsou skutecne stejne

eNca

IB/FB

[*] KALUS Jozef <Jozef.Kalus(zv)spordat.sk> - 22.5.2002 09:10:17

zdravim,

takze moje vysledky badania (musim to zatial naozaj takto nazvat :o) ), pre
tych co zacinaju tak ako ja:

1. konekt na FB/IB (db server) sa mi nakoniec podarilo rozbehat cez
InterBase komponenty

2. cez dbExpress som tam nasiel iba daky IBLocal, co je pristup na lokalny
IB/FB ale konekt na sietove IB/FB som nenasiel ( asi je to mojou
nevedomostou alebo nepritomnostou nejakeho ovladaca)

3. teda ak funguje aj dbExpress (voci sietovemu serveru IB/FB, ak si nietko
najde chvilku tak nech mi prosim v tomto helpne), tak co je lepsie pouzit:
dbExpress alebo InterBase ???

joka

PS Pavel Cisar:
skoda ze nie je na ibphoenix(tec)cz prelozena licencia (nie som v anglictine tak
dobry) a akosi stale neviem ci mozem Firebird pouzit do svojej aplikacie pre
zakaznikov zadarmo alebo nie, t.j. za aplikaciu mozem pytat bubaky ale
neviem ako je to so serverom a licenciami, mohol by si mi to prosim ta
objasnit, niekde som tam nasiel, ze za FB nie su ziadne lic. poplatky, ale
chcem mat istotu, dik

Haj hou!

On 21 May 2002 at 9:06, KALUS Jozef wrote:

> akym stylom sa dostanem na IB/FB z D6Pro, ale prosim bez BDE ?

Pouzij InterBase Express (zalozka InterBase + InterBase Admin).

> ako je na tom dbExpress ? je vobec pouzitelny na sietovu IB/FB ?

Ano.

S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase

Paradox tab, BDE a sit

[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 22.5.2002 09:16:37

> rozchodis tento problem, prijdou jine, horsi. Jestli chces opravdu
> poradit, zahod Paradox a BDE a preorientuj se na FireBird nebo MS SQL
> (potazmo MSDE), usetris si spoustu zbytecnych starosti.

Ano, pri pouziti MSDE se zbavis spoustu starosti s problemy s daty, ale
pribydou ohromne problemy pri instalaci MSDE. Bezny uzivatel (takovy, ktery
umi kliknutim na ikonu spustit Word a napsat v nem dopis) MSDE nenainstaluje
(nekdy ani odbornik ne).

J. N�dhera

CSH spol. s r.o.
Velfl�kova 10, 160 00 Praha 6
tel.: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel.: 069/633 56 87
www: http://www.csh(tec)cz , e-mail: nadhera(zv)csh(tec)cz

Enter = Tab

[*] Ing. Jan Dubsk� <hdplot(zv)seznam(tec)cz> - 22.5.2002 09:21:48

Jak zaridit, aby na Editu po stisku klavesy Enter probehlo totez, co
po stisku klavesy Tab, to znamena zamereni na dalsi prvek dle hodnoty
TabOrder.

______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz

Enter = Tab

[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 22.5.2002 09:23:51

Co takhle dat do onKeyDown toto:
if Key = 13 then
Key := 9;
popridpade:
if Key = 13 then
ActiveControl := TDalsi;

Jak zaridit, aby na Editu po stisku klavesy Enter probehlo totez, co
po stisku klavesy Tab, to znamena zamereni na dalsi prvek dle hodnoty
TabOrder.

Enter = Tab

[*] skalsky(zv)oksystem(tec)cz - 22.5.2002 09:28:44

Zkus na onKeyPress
If key = chr(13) then key:=chr(9);

... mohlo by to fachcit

Milan


-----Original Message-----
From: Ing. Jan Dubsk� [mailto:hdplot(zv)seznam(tec)cz]
Sent: Wednesday, May 22, 2002 9:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Enter = Tab

Jak zaridit, aby na Editu po stisku klavesy Enter probehlo totez, co
po stisku klavesy Tab, to znamena zamereni na dalsi prvek dle hodnoty
TabOrder.

______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz

Rychlost dotazu na FB

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.5.2002 09:43:58

Ahoj,

jsem celkem neprijemne prekvapen malym vykonem Firebirdu pri dvou
druzich cinnosti - pouzivani joinu a pouzivani order by. Nejak nerozumim
tomu, proc se dotaz s tremi joiny na tabulkach s 20000 radky musi otevirat
nekolik desitek sekund (i bez order by), ackoli na vsech spojovanych
polozkach je index. Ale budiz - zalozi se ulozena procedura, kde joinovane
tabulky dohledam rucne, to umim vyresit.

Jak ale na takovouhle situaci? Mam tabulku T_VYROBKY majici sloupec
ID a dalsich 40 sloupcu. Dale existuje tabulka T_KATEGORIE majici
sloupec ID. Jelikoz vyrobek muze byt v nekolika kategoriich nebo nemusi
byt v zadne, existuje i vazebni tabulka T_VYRKAT s dvema sloupci:
IDVYR, IDKAT. No a ted bych chtel seznam vyrobku, ktere nejsou v
kategorii 0.

Udelam-li

select id from T_VYROBKY where id not in (select idvyr from T_VYRKAT
where idkat = 0)

trva to asi minutu.

Zlepseni neprinese ani toto:

select v.id from T_VYROBKY v where not exists(select 1 from T_VYRKAT
k where k.idkat = 0 and k.idvyr = v.id)

I tohle trva silene dlouho. Pritom vyrobku je 20000, kategorii 200 a tabulka
T_VYRKAT obsahuje cca 55 000 radku. Neboli skoro nic. Indexy na
vsechna pole zde uvedena jsou samozrejmosti. Jak to napsat lepe? A jeste
tak, aby vysledek byl abecedne serazen podle nejakeho sloupce z tabulky
vyrobky?

No a ted z jineho soudku. Neuveritelne zdrzujici ORDER BY. Podle rady
jsem nechal docasne soubory vytvaret na ramdisku, cimz doslo sice k
znatelnemu zlepseni, ale stale nic moc. Neexistuje zpusob, jak serveru
predepsat, aby k order by nepouzil sort, ale treba index? V nekterych
pripadech by to treba pomohlo (?).

Dik.

David Lebeda

IB6/FB - mazani tabulek

[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 22.5.2002 09:47:49

Zdravim,
mam nasledujici tabulky

CREATE TABLE Studenti (
ID_Student D_ID,
FName D_Name,
SName D_Name,
ID_Trida D_ID,
ID_Ucitel D_ID,
ID_Reditel D_ID,
ID_Rocnik D_ID,
ID_Obor D_ID,
PRIMARY KEY ( ID_Student )
);

/*Tabulka uchovavajici seznam maturitnich trid*/
CREATE TABLE Tridy (
ID_Trida D_ID,
Name D_Trida,
PRIMARY KEY ( ID_Trida )
);

a dalsi ( ty nejsou podstatne ). Dale jsem si vytvoril relace s referencni
integritou

/*Relace mezi maturitni tridou a studenty*/
ALTER TABLE Studenti ADD
CONSTRAINT Student_Trida FOREIGN KEY ( ID_Trida ) REFERENCES Tridy (
ID_Trida )
ON DELETE NO ACTION
ON UPDATE CASCADE;

no a pak mam trigger pro generovani ID a SP pro praci s daty.

Muj dotaz zni co musim udelat, abych mohl smazat tabulky.
Nejprve mazu SP pak triggery, vyjimky, generatory, ale pri mazani tabulek mi
to hlasi furt nejake zavislosti i kdyz se znazim nejprve smazat relaci
ALTER TABLE Studenti DROP CONSTRAINT Student_Trida

S pozdravem Marek Eichler


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.362 / Virov� b�ze: 199 - datum vyd�n�: 7.5.2002

CRC

[*] Martin Valach <vachix(zv)centrum.sk> - 22.5.2002 09:49:24

mozno ti to postaci

function GetHashCode(Str: PChar): Integer;
var
Off, Len, Skip, I: Integer;
begin
Result := 0;
Off := 1;
Len := StrLen(Str);
if Len < 16 then
for I := (Len - 1) downto 0 do
begin
Result := (Result * 37) + Ord(Str[Off]);
Inc(Off);
end
else
begin
{ Only sample some characters }
Skip := Len div 8;
I := Len - 1;
while I >= 0 do
begin
Result := (Result * 39) + Ord(Str[Off]);
Dec(I, Skip);
Inc(Off, Skip);
end;
end;
end;

alebo

function ElfHash(const Value: string): Integer;
var
i, x: Integer;
begin
Result := 0;
for i := 1 to Length(Value) do
begin
Result := (Result shl 4) + Ord(Value[i]);
x := Result and $F0000000;
if (x <> 0) then
Result := Result xor (x shr 24);
Result := Result and (not x);
end;
end;


martin

ExpressQuantumGrid spatne zobrazeni ceskych znaku

[*] Frant�k Daniel <Daniel.Frantik(zv)merlin(tec)cz> - 22.5.2002 09:53:24

Pouzivame i s cestinou, problemy jsem nezaregistroval. Pouzivame verzi 2.1
Mas nastavene ceske fonty?

Danik

> Od: Fait FTSOFT [mailto:fait(zv)ftsoft(tec)cz]
> P�edm�t: ExpressQuantumGrid spatne zobrazeni ceskych znaku
>
>
> Nepouzivate nahodou nekdo subj? Mam problem se zobrazovani
> nekterych znaku s
> hacky.
> Nesetkali jste se nekdo s necim podobnym?

Delphi 5

[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 22.5.2002 10:03:14

Take SWS Slusovice mohou mit nejake zbytky. Driv totiz distribuovali Borland.


S pozdravem Vaclav Riha

-----P�vodn� zpr�va-----
Od: Jakub Dusek [SMTP:jdev(zv)seznam(tec)cz]
Odesl�no: 21. kv�tna 2002 17:13
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Re: Delphi 5

Oficialne ne, ale staci pozadat Borland, jeste nejake zasoby maji. Ja jsem
si nedavno takhle koupil D5 Standard ktere jsem ted obratem upgradoval na D6
Professional :)

Jakub Dusek

From: "Slavomir Cekel" <cekel(zv)noves.sk>
To: <delphi-l(zv)clexpert(tec)cz>


bohuzial ... pokial viem, tak D5 sa uz nepredava !!! tiez som chcel
zakupit, btw. teraz je akcia, D6 prof za 20500 Sk (bez DPH tusim) ...
tak kde je problem ?

> Ahoj,
> nevite nekdo kde a jak sehnat Delphi 5?
>
> Diky.
>
> Zdenek


UDF v DELPHI6 pro FB1 se zpracovanim hodnoty NULL

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.5.2002 10:05:02

> podivej se na
>
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/firebird/interbase/extlib
/fbudf/
> Ber to jako priklad v C++.
> Jinak se jedna o predavani parametru pres deskriptor.

tos mi teda pomoh :), vejram do toho a nevim, zas tak moc C++ neumim.

zeptam se jinak, mam funkci:
function YearsCount(ib_date_from, ib_date_to, ib_date_max: PUDFParam;
var CountParts: Integer): PUDFParam; cdecl; export;
v databazi jako:
declare external function YearsCount
Date by descriptor, Date by descriptor, Date by descriptor,
Integer
returns Integer by descriptor
entry_point 'YearsCount' module_name 'ag_udf.dll';

no a ted, jak vratim ten descriptor?
takhle:
Result:=ib_util_malloc(SizeOf(PGDS_QUAD));
if Result<>nil then
begin
Result^.BaseType:=UDF_Type_Short;
Result^.Scale:=0;
Result^.Length:=0;
Result^.SubType:=0;
Result^.Flags:=UDF_Flag_NoSubType;
PSmallInt(Result^.Address)^:=i;
end;
nebo pouze takhle:
PSmallInt(Result^.Address)^:=i;

kdepak bych nasel nejakou dokumentaci k pouzivany descriptoru?

dekuji PeC(zv)

Enter = Tab

[*] Jan Barinka <delphi(zv)barinka.nwt(tec)cz> - 22.5.2002 10:12:36

takhle jsem to kdysi delal a tusim ze to fungovalo:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin;
Key:=#0;
Form1.SelectNext(Form1.ActiveControl, True, True);
end;
end;

Jan Barinka / Jean-Michel /
e-mail: jan(zv)barinka.nwt(tec)cz
URL: http://barinka.nwt(tec)cz


----- Original Message -----
From: "Ing. Jan Dubsk�" <hdplot(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 22, 2002 9:21 AM
Subject: Enter = Tab


Jak zaridit, aby na Editu po stisku klavesy Enter probehlo totez, co
po stisku klavesy Tab, to znamena zamereni na dalsi prvek dle hodnoty
TabOrder.

______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz

neco jako ShowModal pro MDI aplikaci

[*] tomsir1.edu(zv)mail.cez(tec)cz - 22.5.2002 10:27:57

Ahoj,
potreboval bych pro MDI aplikaci nasledujici : mam nekolik child oken na
sobe nezavislych. V kazdem child okne mam nejake akce s formulari.
Potreboval bych tyto formulare vytvaret tak, aby byly "modalni" pro dane
child okno, ale jiz ne pro ostatni ... ma toto nejake jednoduche reseni ??

Diky Radek


RTF klicova slova

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 22.5.2002 10:38:26

Ahoj,
nemate, prosim, nekdo seznam co znamenaji klicova slova v RTF (napr. \fet0 \sectd \linex0 \tqc atp.)? Musim opravit nejaky generator reportu, ktery primo generuje text a vubec se v tom nevyznam. Tez bych potreboval vedet, jak se generuje do RTF cestina paznaky \xx. Privital bych nejakou dokumentaci k RTF formatu.
Dekuji
Pripadne namety ci prilohy prosim na muj mail.
Jaro B.
mailto:JBenes(zv)cpoj(tec)cz

Paradox tab, BDE a sit

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.5.2002 10:40:35

On 22 May 2002 at 9:16, Jaroslav Nadhera wrote:

> > rozchodis tento problem, prijdou jine, horsi. Jestli chces opravdu
> > poradit, zahod Paradox a BDE a preorientuj se na FireBird nebo MS
> > SQL (potazmo MSDE), usetris si spoustu zbytecnych starosti.
>
> Ano, pri pouziti MSDE se zbavis spoustu starosti s problemy s daty,
> ale pribydou ohromne problemy pri instalaci MSDE. Bezny uzivatel
> (takovy, ktery umi kliknutim na ikonu spustit Word a napsat v nem
> dopis) MSDE nenainstaluje (nekdy ani odbornik ne).

Jo, to mas castecne pravdu, ale sitovy SW se obvykle nesiri jako
shareware po internetu, ktery si uzivatele instaluji sami. V
takovychto pripadech je zahodno mit aspon minimalni support, ve
kterem je zahrnuta instalace programu. Pokud se nekomu nezda MSDE,
muze si vybrat jinou databazi, se kterou jsou mensi problemy pri
instalaci. Krome toho, instalace BDE na siti si s MSDE celkem nijak
nezada.

S pozdravem

Zbysek Hlinka


Enter = Tab

[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 22.5.2002 10:43:40

Jeste je treba nastavit pro Form1 vlastnost KeyPreview na true; staci v
design time v Object Inspector.

Ing. Jan Dvorak

> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jan Barinka
> Sent: Wednesday, May 22, 2002 10:13 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Enter = Tab
>
>
> takhle jsem to kdysi delal a tusim ze to fungovalo:
>
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> if Key=#13 then begin;
> Key:=#0;
> Form1.SelectNext(Form1.ActiveControl, True, True);
> end;
> end;
>
> Jan Barinka / Jean-Michel /
> e-mail: jan(zv)barinka.nwt(tec)cz
> URL: http://barinka.nwt(tec)cz

SQL - MAX() podle dnesniho datumu

[*] Zika Petr <pzika(zv)ciglersw(tec)cz> - 22.5.2002 10:49:56

Ahoj

Zkus se podivat na funkci DATEDIFF

SELECT ... WHERE DATEDIFF(dd, DatumAdd, GETDATE()) = 0

Petr

-----Original Message-----
From: Blazek Jaroslav [mailto:Jaroslav.Blazek(zv)access-it(tec)cz]
Sent: Tuesday, May 21, 2002 7:11 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: SQL - MAX() podle dnesniho datumu


Ahoj,

potrebuji vybrat maximalni cislo + 1, ze vsech zaznamu, ktere byly zadany dnesni den jde to udelat nejak inteligentneji nez to mam ja.......

DECLARE (zv)MaxCislo INT

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DATEPART(dd,DatumAdd)=DATEPART(dd,GETDATE()) AND
DATEPART(mm,DatumAdd)=DATEPART(mm,GETDATE()) AND
DATEPART(yyyy,DatumAdd)=DATEPART(yyyy,GETDATE())

slo by to nejak pres BETWEEN ?

SELECT (zv)MaxCislo = ISNULL(MAX(Cislo),0)+1
FROM Tabulka
WHERE DatumAdd BETWEEN /* tady nejak naformatovat GETDATE() bez tech hodin, nastavit je na 00:00:00 */ AND GETDATE()

MSSQL2000



---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.363 / Virov� b�ze: 201 - datum vyd�n�: 21.5.2002

RTF klicova slova

[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.5.2002 11:04:05

http://www.google.com/search?q=RTF+specification

najdes toho kupu. Zalezi, jakou verzi chces a v jakem formatu.

At 10:38 22.5.2002 +0200, you wrote:

>Ahoj,
>nemate, prosim, nekdo seznam co znamenaji klicova slova v RTF (napr. \fet0
>\sectd \linex0 \tqc atp.)? Musim opravit nejaky generator reportu, ktery
>primo generuje text a vubec se v tom nevyznam. Tez bych potreboval vedet,
>jak se generuje do RTF cestina paznaky \xx. Privital bych nejakou
>dokumentaci k RTF formatu.
>Dekuji
>Pripadne namety ci prilohy prosim na muj mail.
>Jaro B.
>mailto:JBenes(zv)cpoj(tec)cz

S pozdravem
Tomas Rosa

------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------

CRC

[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 22.5.2002 11:05:34

> Myslim, ze pri porovnavani dlouhych stringu lze s uspechem pouzit
> nasledujici scenar:
> 1) Nejprve porovnam hashe - v tomto kroku vyloucim drtivou vetsinu
> stringu a zbyde mi mala mnozina, ktera obsahuje potencialne
> shodne prvky.
> 2) Jednotlive prvky teto male mnoziny porovnam primo - "bajt
> po bajtu" a
> tim overim, zda jsou skutecne stejne

Ahoj,

tento postup nezarucuje stoprocentni spolehlivost, protoze stejny hash i CRC
mohou mit jak stejne, tak rozdilne stringy. Pokud by byla zapot�eb�
stoprocentn� jistota, mus� se ud�lat compare. Je�t� by �lo pro zrychlen�
nejprve zkontrolovat, jestli se shoduj� d�lky, ale to mo�n� d�l� i funkce
compare sama od sebe.

Zdravim

Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

RTF klicova slova

[*] Frant�k Daniel <Daniel.Frantik(zv)merlin(tec)cz> - 22.5.2002 11:12:09

dle P.V. z drivejska:
http://support.microsoft.com/support/kb/articles/Q86/9/99.ASP

Danik

> -----P�vodn� zpr�va-----
> Od: Tomas Rosa [mailto:trosa(zv)seznam(tec)cz]
> Odesl�no: 22. kv�tna 2002 11:04
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: RTF klicova slova
>
>
> http://www.google.com/search?q=RTF+specification
>
> najdes toho kupu. Zalezi, jakou verzi chces a v jakem formatu.
>
> At 10:38 22.5.2002 +0200, you wrote:
>
> >Ahoj,
> >nemate, prosim, nekdo seznam co znamenaji klicova slova v
> RTF (napr. \fet0
> >\sectd \linex0 \tqc atp.)? Musim opravit nejaky generator
> reportu, ktery
> >primo generuje text a vubec se v tom nevyznam. Tez bych
> potreboval vedet,
> >jak se generuje do RTF cestina paznaky \xx. Privital bych nejakou
> >dokumentaci k RTF formatu.
> >Dekuji
> >Pripadne namety ci prilohy prosim na muj mail.
> >Jaro B.
> >mailto:JBenes(zv)cpoj(tec)cz
>
> S pozdravem
> Tomas Rosa
>
> ------------------------=[ pinknet on every
> screen]=-----------------------
> Tomas Rosa
> Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
> +420 602 860 704
> PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
> --------------------------------------------------------------
> -------------
>

neco jako ShowModal pro MDI aplikaci

[*] tomsir1.edu(zv)mail.cez(tec)cz - 22.5.2002 11:21:52


OK, ale jak na to, kdyz jeste nemam ten formular vytvorenej, pridavam novej
form do aplikace ??
Diky R.


novos(zv)email(tec)cz(zv)clexpert(tec)cz on 22.05.2002 12:07:09

Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz

Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz


Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
P�edm�t: Re: neco jako ShowModal pro MDI aplikaci


zdravim,

jde to vyresit tak, ze ty modal okna zdedis (v D3 pres menu - new -
zalozka s tvymi formulari) z tech child oken. u tech modal oken
pak nastavis formstyle = fsNormal a visible = false.
volas je pak normalne ShowModal

Ivos

>

Zmena kontrastu a jasu u bitmapy

[*] Petr Potocek <pp1(zv)volny(tec)cz> - 22.5.2002 11:47:24

Ahoj,
nemel by nekdo nahodou radu nebo lepe priklad, jak (v D6) menit jas a
kontrast u bitmapy? V knize 1001 T&T sice priklad je, ale absolutne nechapu,
jak ho pouzit.

Predem diky
Petr Potocek

GDI+

[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 22.5.2002 11:56:08

nemate nekdo skusenozti s GDI+ (rychlost, pouzitelnost, moznosti sireni
(autorska prava), ktere systemy jsou podporovany, atd...)

CRC

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.5.2002 11:57:50

Puvodni zprava, kterou napsal Vaclav Votipka dne 22 May 2002:

> Jak kontrolni soucty, tak i hashovaci funkce maji jednu spolecnou
> vlastnost - z nekonecne velke mnoziny vsech moznych vstupnich dat
> dokazou vypocitat cislo o pevne delce. Tedy to vysledne cislo je jedno z
> konecne mnoziny vsech moznych cisel. Z tohoto duvodu bude vzdy mozne najit
> dvojici ruznych vstupnich dat generujici stejne vystupni cislo. Ruznymi
> fintami muzeme snizovat pravdepodobnost takoveho vyskytu ale nikdy ji
> nesnizime na nulu.

U kvalitnich hashovacich funkci je vyskyt kolizi tak nizky, ze
pravdepodobnost nalezeni dvou stejnych vstupnich dat se stejnym otiskem
je zcela zanedbatelna.

> Myslim, ze pri porovnavani dlouhych stringu lze s uspechem pouzit
> nasledujici scenar:
> 1) Nejprve porovnam hashe - v tomto kroku vyloucim drtivou vetsinu
> stringu a zbyde mi mala mnozina, ktera obsahuje potencialne shodne prvky.
> 2) Jednotlive prvky teto male mnoziny porovnam primo - "bajt po bajtu" a
> tim overim, zda jsou skutecne stejne

To je zbytecna prace. Hashovaci funkce SHA-1 je bezpecna a je navrzena
pro vstupni blok dat az (2 na 64) minus 1 bitu.

S pozdravem
Petr Zahradnik, pocitacovy expert

============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================

neco jako ShowModal pro MDI aplikaci

[*] novos(zv)email(tec)cz - 22.5.2002 11:07:09

zdravim,

jde to vyresit tak, ze ty modal okna zdedis (v D3 pres menu - new -
zalozka s tvymi formulari) z tech child oken. u tech modal oken
pak nastavis formstyle = fsNormal a visible = false.
volas je pak normalne ShowModal

Ivos

On 22 May 2002, at 10:27, tomsir1.edu(zv)mail.cez(tec)cz wrote:

> Ahoj,
> potreboval bych pro MDI aplikaci nasledujici : mam nekolik child oken na
> sobe nezavislych. V kazdem child okne mam nejake akce s formulari.
> Potreboval bych tyto formulare vytvaret tak, aby byly "modalni" pro dane
> child okno, ale jiz ne pro ostatni ... ma toto nejake jednoduche reseni ??
>
> Diky Radek
>
>
>
>

CRC

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.5.2002 12:09:09

Puvodni zprava, kterou napsal Jiri Foldyna dne 22 May 2002:

> tento postup nezarucuje stoprocentni spolehlivost, protoze stejny hash i
> CRC mohou mit jak stejne, tak rozdilne stringy. Pokud by byla zapot�eb�

Pravdepodobnost, ze pri stejnem otisku hashovaci funkce SHA-1 jsou shodna
i vstupni data je: 1 - 0.5^160. To sice neni 100%, ale "jen":
1 - 6,8423 x 10^-49 ... a to je spolehlive.

> stoprocentn� jistota, mus� se ud�lat compare. Je�t� by �lo pro zrychlen�
> nejprve zkontrolovat, jestli se shoduj� d�lky, ale to mo�n� d�l� i funkce
> compare sama od sebe.

Je to zbytecne.

S pozdravem
Petr Zahradnik, pocitacovy expert

============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================

IB6/FB - mazani tabulek

[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 22.5.2002 12:15:12

Generatory rusit nemusis, exceptions taky ne.

Zrus triggery, foreign keys, primary key (je to take constraint), stored
procedury pak udelej commit a v pripade, ze ti to hlasi, ze je objekt
pouzivan (object in use) se odpoj a znovu pripoj. Pak by melo byt mozne
dropnout tabulku.

S pozdravem

Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz

> Muj dotaz zni co musim udelat, abych mohl smazat tabulky.
> Nejprve mazu SP pak triggery, vyjimky, generatory, ale pri mazani
> tabulek mi
> to hlasi furt nejake zavislosti i kdyz se znazim nejprve smazat relaci
> S pozdravem Marek Eichler

Rychlost dotazu na FB

[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 22.5.2002 12:16:45

Probelmem je spatne polozeny dotaz, zkus to napsat takto:

select * from T_vyrobky V
left join T_VYRKAT k on V.pk=k.fk and K.idkat=0
where K.fk is NULL

Takovyto dotaz bude mnohem rychlejsi.
Dale je podstatne jake indexy jsi pouzil. Neni index jako index,
nektere indexy mohou select i zpomalit (i 10x).
predpokladam, ze v T_VyKat je FK na T_Vyrobky a v obou techto tabulakch
jsou definovany PK.
Zadne dalsi indexy NEJSOU zadouci.
Order by ne tento select by nemel trvat dlouho, zde ovsem spise nez na indexech
zalezi na poctu poli v order by, cim vice poli, tim pomalejsi.
Pokud ovsem pouzijes order by na tabulky vyrobku (jeji indexove pole), pak
se index nejspise pouzije.

Slavek

> -----P�vodn� zpr�va-----
> Od: Lebeda David [SMTP:david.lebeda(zv)comarr(tec)cz]
> Odesl�no: 22. kv�tna 2002 9:44
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Rychlost dotazu na FB
>
> Ahoj,
>
> jsem celkem neprijemne prekvapen malym vykonem Firebirdu pri dvou
> druzich cinnosti - pouzivani joinu a pouzivani order by. Nejak nerozumim
> tomu, proc se dotaz s tremi joiny na tabulkach s 20000 radky musi otevirat
> nekolik desitek sekund (i bez order by), ackoli na vsech spojovanych
> polozkach je index. Ale budiz - zalozi se ulozena procedura, kde joinovane
> tabulky dohledam rucne, to umim vyresit.
>
> Jak ale na takovouhle situaci? Mam tabulku T_VYROBKY majici sloupec
> ID a dalsich 40 sloupcu. Dale existuje tabulka T_KATEGORIE majici
> sloupec ID. Jelikoz vyrobek muze byt v nekolika kategoriich nebo nemusi
> byt v zadne, existuje i vazebni tabulka T_VYRKAT s dvema sloupci:
> IDVYR, IDKAT. No a ted bych chtel seznam vyrobku, ktere nejsou v
> kategorii 0.
>

Zmena kontrastu a jasu u bitmapy

[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 22.5.2002 12:19:59

> nemel by nekdo nahodou radu nebo lepe priklad, jak (v D6) menit jas a
> kontrast u bitmapy? V knize 1001 T&T sice priklad je, ale absolutne
nechapu,
> jak ho pouzit.

Rozebrat bitmapu bod po bodu, kazdy rozlozit na 3 barevne slozky (RGB),
pohrat si s konstantami, vyrobit novy bod a dat jej zpet do bitmapy.

Priklad z knihy neznam, ale delal jsem kdysi neco podobneho, tak jsem
vytrh kus kodu.

var
x,y : integer;
c, r,g,b,s: integer;

begin
for y := 0 to Image1.Height do
begin
for x := 0 to Image1.Width do
begin
c := Image1.Canvas.Pixels[x,y];
// rozklad na slozky
r := c AND $FF; //cervena slozka
g := c AND $FF00 shr 8; //zelena slozka
b := c AND $FF0000 shr 16; // modra

s := round(0.15*b + 0.35*g + 0.5*r);

// svetlejsi
if s <= 205 then inc(s,50);

// vetsi kontrast
s := s*s div 255;

Image2.Canvas.Pixels[x,y] := s;

end; {for x}
Image2.Repaint;
end; {for y}
end;

Josef Cerny


UDF v DELPHI6 pro FB1 se zpracovanim hodnoty NULL

[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 22.5.2002 12:30:21

Bohuzel dokumentaci jsem zadnou nenasel a s deksriptory jsem zatim taky nepracoval.

PSmallInt(Result^.Address)^:=i; bych si netroufnul napsat, jelikoz by to melo spadnou na acces violation,
jelikoz pole address neni inicializovano.
Asi budes muset naalokovat dalsi pametovy blok pro vlastni data, ale ted jen spekuluji.

Jen vim ze existuji a jsou pouzity prave v teto UDF.
Pokud se ti to podari realizovat dej vedet.
Na placenem CD k FB by mohlo neco byt, to bude urcite vedet P. Cisar.

Slavek

toto je jedinna cast o deskriptorech k FB, ketrou jsem nasel ibase.h

/********************************************************************/
/* CVC: Public descriptor interface held in dsc.h. */
/* We need it documented to be able to recognize NULL in UDFs. */
/* Being its original name "dsc", I renamed it paramdsc here. */
/* Notice that I adjust to the original definition: contrary to */
/* other cases, the typedef is the same struct not the pointer. */
/* I included the enumeration of dsc_dtype possible values. */
/* Ultimately, dsc.h should be part of the public interface. */
/********************************************************************/

#if !defined(_JRD_DSC_H_)
/* This is the famous internal descriptor that UDFs can use, too. */
typedef struct paramdsc {
unsigned char dsc_dtype;
signed char dsc_scale;
ISC_USHORT dsc_length;
short dsc_sub_type;
ISC_USHORT dsc_flags;
unsigned char *dsc_address;
} PARAMDSC;

> tos mi teda pomoh :), vejram do toho a nevim, zas tak moc C++ neumim.
>
> zeptam se jinak, mam funkci:
> function YearsCount(ib_date_from, ib_date_to, ib_date_max: PUDFParam;
> var CountParts: Integer): PUDFParam; cdecl; export;
> v databazi jako:
> declare external function YearsCount
> Date by descriptor, Date by descriptor, Date by descriptor,
> Integer
> returns Integer by descriptor
> entry_point 'YearsCount' module_name 'ag_udf.dll';
>
> no a ted, jak vratim ten descriptor?
> takhle:
> Result:=ib_util_malloc(SizeOf(PGDS_QUAD));
> if Result<>nil then
> begin
> Result^.BaseType:=UDF_Type_Short;
> Result^.Scale:=0;
> Result^.Length:=0;
> Result^.SubType:=0;
> Result^.Flags:=UDF_Flag_NoSubType;
> PSmallInt(Result^.Address)^:=i;
> end;
> nebo pouze takhle:
> PSmallInt(Result^.Address)^:=i;
>
> kdepak bych nasel nejakou dokumentaci k pouzivany descriptoru?
>
> dekuji PeC(zv)

UDF v DELPHI6 pro FB1 se zpracovanim hodnoty NULL

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 22.5.2002 12:45:34

ahoj,

takze jsem na to asi prisel. postupnym studovanim webu, konferenci
a diky nemale pomoci Alexe Cherednichenka (nebo Alexi?), a metodou
pokus - omyl (misty spise omyl - omyl ;). no a protoze, konkretni
priklad
jak vracet descriptor v delphach jsem nenasel, tak poslu co jsem
zplodil.
pokud v tom nekdo uvidite chybu, tak mi prosim vynadejte. unitu IBTypes
neprikladam v podstate jde o (dle meho soudu) preklad casti fbudf z C do
Pas od nekoho, kdo je vzahlavi oznacen jako RCAV.

library ag_udf;

uses
IBTypes;

const
IBASE_DLL = 'gds32.dll';
IBUTIL_DLL = 'ib_util.dll';

procedure isc_decode_date (ib_date: PGDS_QUAD; tm_date:
PCTimeStructure); stdcall; external IBASE_DLL;
function ib_util_malloc(l: integer): pointer; cdecl; external
IBUTIL_DLL;

(*
/* pocet roku mezi prvnimi dvema datumy s
moznym omezenim na maximalne treti datum a
vypocetem pouze cele roky (0) nebo zapocate roky (1) */
declare external function YearsCount
Date by descriptor, Date by descriptor, Date by descriptor,
Integer
returns Integer by descriptor
entry_point 'YearsCount' module_name 'ag_udf.dll';
*)

function YearsCount(var ib_date_from, ib_date_to, ib_date_max:
TUDFParam;
var CountParts: Integer): PUDFParam; cdecl; export;
var // 0 - pouze cele roky, 1 - kazdy zapocaty rok
tm_date_from, tm_date_to, tm_date_max: TCTimeStructure;
md_from, md_to, i: Integer;
to_null, max_null: Boolean;
begin
try
to_null:=UDF_IsNull(ib_date_to);
max_null:=UDF_IsNull(ib_date_max);
if UDF_IsNull(ib_date_from) or to_null and max_null then
begin
Result:=nil;
EXIT;
end;
InitializeTCTimeStructure(tm_date_from);
isc_decode_date(PGDS_QUAD(ib_date_from.Address), (zv)tm_date_from);
InitializeTCTimeStructure(tm_date_to);
InitializeTCTimeStructure(tm_date_max);
if to_null then // an, na, nn
isc_decode_date(PGDS_QUAD(ib_date_to.Address), (zv)tm_date_max)
else if max_null then
isc_decode_date(PGDS_QUAD(ib_date_to.Address), (zv)tm_date_to)
else
begin
isc_decode_date(PGDS_QUAD(ib_date_to.Address), (zv)tm_date_to);
isc_decode_date(PGDS_QUAD(ib_date_max.Address), (zv)tm_date_max);
end;
if (tm_date_max.tm_year>0) and
((tm_date_max.tm_year<tm_date_to.tm_year) or
(tm_date_max.tm_year=tm_date_to.tm_year) and
((tm_date_max.tm_mon<tm_date_to.tm_mon) or
(tm_date_max.tm_mon=tm_date_to.tm_mon) and
(tm_date_max.tm_mday<tm_date_to.tm_mday))) then
begin
tm_date_to.tm_year:=tm_date_max.tm_year;
tm_date_to.tm_mon:=tm_date_max.tm_mon;
tm_date_to.tm_mday:=tm_date_max.tm_mday;
end;
i:=tm_date_to.tm_year-tm_date_from.tm_year;
if CountParts=1 then
begin
md_from:=tm_date_from.tm_mon*100+tm_date_from.tm_mday;
md_to:=tm_date_to.tm_mon*100+tm_date_to.tm_mday;
if md_from<=md_to then inc(i);
end;
Result:=ib_util_malloc(SizeOf(PGDS_QUAD));
if Result<>nil then
begin
Result.BaseType:=UDF_Type_Short;
Result.Scale:=0;
Result.Length:=SizeOf(Integer);
Result.SubType:=0;
Result.Flags:=0;
Result.Address:=ib_util_malloc(SizeOf(Integer));
PInteger(Result.Address)^:=i;
end;
except
Result:=nil;
end;
end;

exports
YearsCount;

begin
isMultiThread:=True; // tohle to tu _musi_ byt!
end.

dekuji PeC(zv)

CRC

[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 22.5.2002 12:57:27



Jiri Foldyna wrote:

>>Myslim, ze pri porovnavani dlouhych stringu lze s uspechem pouzit
>>nasledujici scenar:
>>1) Nejprve porovnam hashe - v tomto kroku vyloucim drtivou vetsinu
>>stringu a zbyde mi mala mnozina, ktera obsahuje potencialne
>>shodne prvky.
>>2) Jednotlive prvky teto male mnoziny porovnam primo - "bajt
>>po bajtu" a
>>tim overim, zda jsou skutecne stejne
>>
>>
>
>Ahoj,
>
>tento postup nezarucuje stoprocentni spolehlivost, protoze stejny hash i CRC
>mohou mit jak stejne, tak rozdilne stringy. Pokud by byla zapot�eb�
>stoprocentn� jistota, mus� se ud�lat compare.
>
Zrejme jsme se nepochopili. Bodem dva jsem minil prave compare. Ten sam
o sobe zarucuje 100% spolehlivost. Bod 1 slouzi pro zmenseni vstupni
mnoziny dat (ve vetsine pripadu zrejme na 1 prvek).

eNca

WinInet, Proxy a SSL

[*] Sommer Pavel <PSommer(zv)cpoj(tec)cz> - 22.5.2002 13:09:24

Ahoj,
delam aplikaci, ktera z internetu stahuje soubory. Pristupuji tam pres
WinInet (InternetOpen, InternetOpenUrl, InternetReadFile), ale mam
nasledujici problem:
Nedari se mi pripojit na https (SSL) - resp. nevim, jak predat jmeno a
heslo, nebo nejlepe udelat to tak, aby se pri pokusu o pristup na
zabezpecene stranky
zobrazil automaticky login dialog (tak jako v IE). Podobny problem mam v
pripade, kdy na internet pristupuji pres proxy a musim se na nej
explicitne hlasit (IE mi opet
automaticky zobrazi login dialog a pak je vse OK). Pokud byste s tim
nekdo mel zkusenost, poslete prosim cast kodu (z prikladu je to nejlepe
videt).

Diky
PaS.

neco jako ShowModal pro MDI aplikaci

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2002 13:10:07

On 22 May 2002 at 11:07, novos(zv)email(tec)cz wrote:
> jde to vyresit tak, ze ty modal okna zdedis (v D3 pres menu - new -
> zalozka s tvymi formulari) z tech child oken. u tech modal oken pak
> nastavis formstyle = fsNormal a visible = false. volas je pak normalne
> ShowModal
******To mi nejak unika. V cem je dobra ta dedicnost? Pokud jsem
dobre pochopil puvodni dotaz, tak vsechna okna maji byt MDI, i ta
pseudomodalni. Jakmile nastavis FormStyle na fsNormal, jsi v kyblu,
protoze okno vyjede mimo formular (coz navic neuvidis, bude-li
Visible na False).Dale, ShowModal ti z Visible=False opet udela
Visible=True.

Slavek

> Ivos
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.

CRC

[*] Vaclav Votipka <vaclav.votipka(zv)merlin(tec)cz> - 22.5.2002 13:16:23



Petr Zahradnik wrote:

>>Myslim, ze pri porovnavani dlouhych stringu lze s uspechem pouzit
>>nasledujici scenar:
>>1) Nejprve porovnam hashe - v tomto kroku vyloucim drtivou vetsinu
>>stringu a zbyde mi mala mnozina, ktera obsahuje potencialne shodne prvky.
>>2) Jednotlive prvky teto male mnoziny porovnam primo - "bajt po bajtu" a
>>tim overim, zda jsou skutecne stejne
>>
>>
>
>To je zbytecna prace. Hashovaci funkce SHA-1 je bezpecna a je navrzena
>pro vstupni blok dat az (2 na 64) minus 1 bitu.
>
Nevim, co znamena, ze je navrzena pro uvedenou delku vstupnich dat ale
rozhodne to neznamena, ze pro data s touto delkou generuje jedinecne hashe.

Pokud se nemylim, tak SHA-1 generuje cisla o delce 160 bitu. Tedy jako
vysledek tohoto hashe muze vyjit cislo od 0 do (2^160)-1. Nic jineho.
Kdyz vezmu blok binarnich dat o delce 20bytu, tak mam 2^160 moznosti, co
v tomto bloku dat bude zapsano. Zde si dovedu predstavit, ze bude pro
kazdou variantu na vstupu hashovaciho algoritmu existovat jedinecna
hodnota na vystupu. Pokud ale budou na vstupu 21 bytu dlouha data, pak
mezi nimi nutne musi existovat dvojice generujici stejny hash. Kolik
takovych duplicit asi bude pri zpracovani dat o delce 200B? Nemyslim si,
ze je moznost shody zanedbatelna (i kdyz je mala - na tom se shodneme) a
proto jsem navrhoval vyse uvedene reseni.

eNca


neco jako ShowModal pro MDI aplikaci

[*] tomsir1.edu(zv)mail.cez(tec)cz - 22.5.2002 13:18:49


Asi jsem to vyjadril nepresne ... takze prikladek :

MDIChild_1 vola Formular_1, ktery je pro MDIChild_1 modalni, tzn. teprve
po stisknuti OK/Cancel muze MDIChild_1 pokracovat v nejakych akcich ...

totez pro MDIChild_2 a Formular_2 ......

jde mi o to, abych mohl v pripade ze mam otevreny Formular_1 /MDIChild_1
"stoji a ceka" / prekliknout na MDIChild_2 a pokracovat v nem ....

Snad jse to ted vyjadril jasneji a presneji a snad to jde a neni to blbost
...

Diky Radek

"Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>(zv)clexpert(tec)cz on 22.05.2002
13:10:07

Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz

Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz


Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
P�edm�t: Re: neco jako ShowModal pro MDI aplikaci


On 22 May 2002 at 11:07, novos(zv)email(tec)cz wrote:
> jde to vyresit tak, ze ty modal okna zdedis (v D3 pres menu - new -
> zalozka s tvymi formulari) z tech child oken. u tech modal oken pak
> nastavis formstyle = fsNormal a visible = false. volas je pak normalne
> ShowModal
******To mi nejak unika. V cem je dobra ta dedicnost? Pokud jsem
dobre pochopil puvodni dotaz, tak vsechna okna maji byt MDI, i ta
pseudomodalni. Jakmile nastavis FormStyle na fsNormal, jsi v kyblu,
protoze okno vyjede mimo formular (coz navic neuvidis, bude-li
Visible na False).Dale, ShowModal ti z Visible=False opet udela
Visible=True.

Slavek

> Ivos
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.

neco jako ShowModal pro MDI aplikaci

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2002 13:22:57

Ahoj,

> potreboval bych pro MDI aplikaci nasledujici : mam nekolik child
> oken na sobe nezavislych. V kazdem child okne mam nejake akce s
> formulari. Potreboval bych tyto formulare vytvaret tak, aby byly
> "modalni" pro dane child okno, ale jiz ne pro ostatni ... ma toto
> nejake jednoduche reseni ??
****Jednoduche do ucite miry. Pokud mas MDI okno A, ktere zavola okno
B, ktere ma byt oproti A modalni, pak A.Enabled = False. Jenze!
Uzival, ktery klikne na A bude zmaten, protoze se nic nestane (zrejme
spravny postup je zobrazit B). Tedy zpet A.Enabled na True a kdyz
kliknu na A, zobrazim B. Jenze ouha, A problikne nahoru a pak se zase
zobrazi B (a co teprve, kdyz budes mit retezec A->B->C...->Z). Take
to bude delat problemy s Ctrl+(Shift+)F6 a dalsimi MDI operacemi.
Dale: kdyz z A vyvolam pseudomodalne okno B, pak asi predpokladam, ze
pujde o nejaky formular apod. Co se stane, kdyz jedno okno
zmaximalizujes? Bude maximalizovany i tento dialog, coz je spatne. A
co teprve ten humac pri Tile (pripadne Cascade, Minimize all, atd
atd). Pokud jsem te dosud nezhnusil, tak ted zrejme urcite. Beznymi
operacemi pomoci VCL to zrejme udelat nejde. Resenim je napr. napsat
si vlastni okna (napr. odvozene od TPanelu) se vsim vsudy vcetne
vykreslovani hormi listy, tlacitek, ikony, reagovat na mnoho zprav a
dalsi. Take operace Tile, Cascade, systemove menu a dalsich sto
dulezitych veci. Z vlastni zkusenosti ti mohu rict, ze je to humus a
nedosahnes rozumnych vysledku. Pracnost je vysoka. Navic pri prechodu
na WinXP muzes hledat nejblizsi vetev, kam se za zavesis za krk.
Exponencialne se problem rozroste, ma-li byt na nove vytvorenem
,,formulari`` Ole kontejner.

Zaver? Zapomen na to nebo vymysli neco malo pracneho a funkcniho (a
dej mi vedet).

Slavek

> Diky Radek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.

WinInet, Proxy a SSL

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 22.5.2002 13:22:21


Kdybys netrval na WinInetu, tak bych vedel... ;-) ehm.

> delam aplikaci, ktera z internetu stahuje soubory. Pristupuji tam pres
> WinInet (InternetOpen, InternetOpenUrl, InternetReadFile), ale mam
> nasledujici problem: Nedari se mi pripojit na https (SSL) - resp.
> nevim, jak predat jmeno a heslo, nebo nejlepe udelat to tak, aby se pri
> pokusu o pristup na zabezpecene stranky zobrazil automaticky login
> dialog (tak jako v IE). Podobny problem mam v pripade, kdy na internet
> pristupuji pres proxy a musim se na nej explicitne hlasit (IE mi opet
> automaticky zobrazi login dialog a pak je vse OK). Pokud byste s tim
> nekdo mel zkusenost, poslete prosim cast kodu (z prikladu je to
> nejlepe videt).


-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

WinXP a dual monitor

[*] Martin Bob�k <bobek(zv)nextra.sk> - 22.5.2002 13:24:17

Caute delphini,

mam vo WinXP dva monitory a chcel by som spravit v delphi nejaky softik
ktorym budem jeden z nich vypinat zapinat. Teda zobrazovanie na nom.
Nejake navody ?

Diki,

Bobek

Mereni systemovych prostredku

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 22.5.2002 13:28:10

Ahoj vespolek, chtel bych do sveho programu zahrnout take mereni mnozstvi
systemovych prostredku (samozrejme jen W95, W98, Me) podobne jako to delaji
napr. Norton Utilities. Nemate nekdo nejakou free komponentu, zdrojak,
odkaz...?

Diky predem

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380

D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7

Tuhnuti ImageListu na P4

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 13:29:34

From: "Pavel Kral" <kral(zv)zoner.com>
> > - Musis mit Update Pack #2 pro Delphi 3.
>
> A ten se da stahnout, nebo se musi kupovat?

#1 se tusim musel koupit a #2 pak bylo mozne stahnout. Bez nej je Delphi 3
nepouzitelne, coz jsi sam poznal.

> > - Bylo by vhodne prejit na nejakou novejsi verzi Delphi.
>
> To vim, ale ta aplikace je dost rozsahla a nejak se nemuzu odhodlat.

Cim driv to udelas tim lip.

Petr Vones

neco jako ShowModal pro MDI aplikaci

[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 22.5.2002 13:36:52

Vytazeno z MS Platform SDK:

Child Window Activation
Any number of child windows can appear in the client window at any one time,
but only one can be active. The active child window is positioned in front
of all other child windows, and its border is highlighted.

The user can activate an inactive child window by clicking it. An MDI
application activates a child window by sending a WM_MDIACTIVATE message to
the MDI client window. As the client window processes this message, it sends
a WM_MDIACTIVATE message to the window procedure of the child window to be
activated and to the window procedure of the child window being deactivated.

To prevent a child window from activating, handle the WM_NCACTIVATE message
to the child window by returning FALSE.

The system keeps track of each child window's position in the stack of
overlapping windows. This stacking is known as the Z order. The user can
activate the next child window in the Z order by clicking Next from the
window menu in the active window. An application activates the next (or
previous) child window in the Z order by sending a WM_MDINEXT message to the
client window.

To retrieve the handle to the active child window, the MDI application sends
a WM_MDIGETACTIVE message to the client window.

Jestli jsem to dobre pochopil, tak si ve WndProc osetris zpravu
WM_NCACTIVATE a v pripade, ze budes mit nejakou interni promennou (napr.
FCanActivate) nastavenou na false tak vratis false a muzes udelat napr. to,
ze prepnes na povoleny form...


S pozdravem

Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz

> Asi jsem to vyjadril nepresne ... takze prikladek :
> MDIChild_1 vola Formular_1, ktery je pro MDIChild_1 modalni, tzn. teprve
> po stisknuti OK/Cancel muze MDIChild_1 pokracovat v nejakych akcich ...
> totez pro MDIChild_2 a Formular_2 ......
> jde mi o to, abych mohl v pripade ze mam otevreny Formular_1 /MDIChild_1
> "stoji a ceka" / prekliknout na MDIChild_2 a pokracovat v nem ....
> Diky Radek

Mereni systemovych prostredku

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 13:41:55

From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> Ahoj vespolek, chtel bych do sveho programu zahrnout take mereni mnozstvi
> systemovych prostredku (samozrejme jen W95, W98, Me) podobne jako to delaji
> napr. Norton Utilities. Nemate nekdo nejakou free komponentu, zdrojak,
> odkaz...?

Musi byt nainstalovan Meric systemovych prostredku z Windows. Potom muzes
pouzit funkce IsSystemResourcesMeterPresent a GetFreeSystemResources z JCL,
unit JclSysInfo.

Petr Vones

Sitovy program - jak na nej?

[*] <little_bobes(zv)centrum(tec)cz> - 22.5.2002 13:45:20

Zdravim,

stojim pred problemem. Doposud jsem vytvarel sitove programy pouze s
MIDASem:
- na serveru TRemoteDataModule
- na klientovi: TSocketConnection a TClientDataSet

Nyni mam prevest stavajici jednouzivatelsky nedatabazovy (!) program na
sitovou podobu, kdy je na klientovi mimo jine pouze okno s tlacitky a na
zaklade jejich povelu se na serveru provadeji veskere manipulace. Cele by to
melo bezet na protokolu TCP/IP.

Kde bych mohl najit nejaky priklad, protoze nevim, jak zajistit, aby kazdy
klient mel sve pametove misto a sve vlakno (neco jako doposud mne znamy
TRemoteDataModule). Mam D4 c/s.

Diky za pomoc.

Bob


neco jako ShowModal pro MDI aplikaci

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2002 13:49:33

Ahoj,

to by zrejme opravdu melo fungovat, ale az do te doby, dokud nezacnes
pouzivat takove formulare, ktere nesmeji menit svoji velikost. Pak
narazis na operacich typu Tile ci Maximalizace.

Slavek

> Vytazeno z MS Platform SDK:
>
> Milan Tomes
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.

Muze Se Pozastavit Bezici Vlakno Samo? Jak Na To?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 13:54:56

From: "Jujtov e-mail" <jujto(zv)stonline.sk>

Jiste, vetsinou vlakno ceka v nejake wait funkci (WaitForSingleObject ...)

Petr Vones

Dlzka String a zavislost na RAM

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2002 13:55:30

From: "Robert Suska" <delphi(zv)korak.sk>
> Ma zmysel pouzivat takyto zapis:
>
> var
>
> s: String[10];

Nema. Pouzivej vsude string (AnsiString).

Petr Vones

© Delphi.cz, program netcode.cz, 2008-9.