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 hledat soubor i v podadresarich?
[*] <little_bobes(zv)centrum(tec)cz> - 12.3.2003 14:13:41
Zdravim,
mam funkci
function Hledej_Soubor(jmeno_souboru: string; adresare: tstrings): string
var a: string;
begin
result := '';
...
for loop := 0 to adresare.count - 1 do
begin
a := adresare[loop] + '\' + jmeno_souboru;
if fileexists(a) then // tady to potrebuji zmenit, ale nevim jak
begin
result := a;
exit;
end;
end;
...
end;
kde v parametru "adresare" predavam nekolik ruznych adresaru na ruznych
discich.
Nyni ale chci, aby mi funkce kontrolovala i vsechny podslozky v
"adresarich", zda se nahodou soubor nenachazi tam.
Resil jste nekdo tento problem?
Diky Bob
(D4 c/s)
Slozeny versus jednoduchy PK
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 12.3.2003 14:07:44
Pokud mozno pouzij jednoduchy PK, u slozenych
narazis na hodne problemu pri vyberu hodnot (nutnost
definovat pomocne indexy, ...).
Pro vice pobocek bych pouzil pridelovani intervalu pro hodnoty
PK, tyto intervali pridelit bud na vzdy, nebo je dynamicky
pridelovat po malich castech.
Ono kdy je lepsi slozeny a kdy jednoduchy nejlepe vyjde
z navrhu DB.
Typicky pokud je relace identifikacni, tak je FK i PK, pokud
ne, tak je pouze FK.
Obces je vhodne provest "precislovani", napriklad mas 3-4 patrovy
ciselnik a ve zpodnim patre bude vznikat hodne hodnot, zde je vhodne
mit co nejjednudussi PK i FK (uz jen kvuli objemu dat).
Slavek
> Ahoj,
>
> pomohl by mi nazor z praxe:
> Je jednodussi prace se slozenym primarnim klicem (2 sloupce) nebo
> jednoduchym (1 sloupec) ?
>
> Konkretne:
> ID - autoincrement (generator): cislo zaznamu napr. 10
> DATA - CHAR(3): puvod vety napr. 'JBC'
> nebo
> ID - CHAR(10): oboji najednou napr. JBC0000010
>
> Poznamka:
> smyslem sloupce DATA je moznost replikace dat (pokud zakaznika nepresvedcim,
> ze dnes neni problem vzdaleny pristup do DB).
Komponenta THotKey
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 12.3.2003 14:01:37
Asi jsem narazil na chybku v komponente TShortCut.
Staci v runtime pomoci klavesnice vlozit kombinaci obsahuj�c� INSERT, treba Ctrl+Alt+Ins, pak hodnotu programove precist z
vlastnosti Hotkey a opet ji tam strcit. Ouha, vidim, ze "Ins" se zmenilo na "Num 0". Dela vam to taky? Mam D6+SP2. Zkousel jsem to
na Win2k,Win98 a WinXP - stejne chovani. Komponenta THotKey je jen wrapper pro systemovy control, tak ze by byl problem u Billa
Gatese? V jeho dialogu pro zastupce ale tento control funguje spravne. Martin
Slozeny versus jednoduchy PK
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 12.3.2003 13:23:23
> Behalf Of Pavel Cisar
> Nevyhody:
>
> - Problematicky vyber radku pouze podle casti klice (vzdy
> natural scan).
Pokud se pouzije nejaky Number a divate se na nej jako na retezec, tahle
nevyhoda odpada.
ID pak vypada XXXYYYYYYYY, kde XXX je ID *.gdb a YYYYYYYY je vlastni ID v
teto databazi z generatoru.
Ma to jine nevyhody, ale rychlost to podle meho nebude... (Pouzijes
ID>=XXX000000 and ID<=XXX99999999 apod)
Danik
Re[2]: IB a problem s Eventy pri ukonceni programu
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 12.3.2003 13:45:24
FB by mel byt stabilnejsi (snad), vzhledem k tomu, ze pouzivam pouze FB,
tak pouzivam i klienta pouze od FB. Cim vice SW, tim vetsi problemy,
takze doporucuji minimalizovat pocat verzi.
Slavek
> Diky moc,
> vytrhl jsi mi trn z paty. Na tech masinach, kde to tuhlo byl opravdu
> gds32.dll z IB5.6, nahradil jsem ho gds32.dll z FB a vse fungovalo.
> Zkousel jsem i gds32.dll z IB6 a taky to bezi. Je klient FB v necem
> lepsi nez IB6 nebo mi staci pouzivat klienta IB6?
>
> Petr
Re[2]: IB a problem s Eventy pri ukonceni programu
[*] Petr Selinger <delphiforum(zv)centrum(tec)cz> - 12.3.2003 13:32:59
Diky moc,
vytrhl jsi mi trn z paty. Na tech masinach, kde to tuhlo byl opravdu
gds32.dll z IB5.6, nahradil jsem ho gds32.dll z FB a vse fungovalo.
Zkousel jsem i gds32.dll z IB6 a taky to bezi. Je klient FB v necem
lepsi nez IB6 nebo mi staci pouzivat klienta IB6?
Petr
> Ano setkal, problem je v gds32.dll.
> Pouzij gds32.dll s FB a budes mit klid, nebo nesmis pouzivat TCP
spojeni.
> Slavek
>> Ahoj,
>> nesetkal se nekdo s problemem ukoncovani aplikace, kdyz mel
>> zaregistrovane Eventy na IB? Pokud neprovadim RegisterEvents,
tak se
>> program ukonci normalne, pokud registruju, tak pri uzavirani
>> databaze zace procesor smazit na 100% a asi po dvou minutach se
>> aplikace konecne ukonci (pokud vubec). Pri destroy datamodulu
jsem
>> zkousel Unregistrovat eventy, delat ruzne ForceClose, Close
>> databaze, ruzne to prehazovat, atd... Problem se vyskytne, jenom
>> pokud jsem pred tim nejaky Event zaregistroval. Jinak program
>> funguje naprosto normalne a pri spusteni a pri behu zadne
problemy
>> nejsou.
IB/FB - jak na zakazane znaky v uzivatelsky zadava
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.3.2003 13:26:56
> Proste mam Memo, do ktereho muze uzivatel napsat
> libovolnou poznamku.
> Co s tim, kdyz tahle poznamka obsahujem znaky
> jako napr. " nebo ' a spoustu daslich?
Ahoj,
Muzes mit funkci, ktera zdvoji apostrofy. Ale lepsi moznost je takovy
text predat do SQL dotazu parametrem, tj.
SelectSQL.Text := 'insert into pokus(sloupec) values(:par)';
Params.ByName('par').AsString := Memo1.Text;
A je to. Nebo jsem neco nepochopil?
IB/FB - jak na zakazane znaky v uzivatelsky zadava
[*] <js-delphi(zv)quick(tec)cz> - 12.3.2003 13:22:29
Ahoj.
Resim jeden maly primitivni problem viz subjekt.
Proste mam Memo, do ktereho muze uzivatel napsat
libovolnou poznamku.
Co s tim, kdyz tahle poznamka obsahujem znaky
jako napr. " nebo ' a spoustu daslich?
Resite to tak, ze tyto kriticke znaky prevedete
pomoci nejake tabulky a nebo staci pred kazdy
citlivy znak vlozit nejaky uvozujici znak? Jaky?
U jinych DBsystemu jsem se setkal s pouzitim ~
nebo \.
Je nekde v helpu seznam vsech znaku, abych
nahodou na nejaky nezapomnel?
Diky, Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
IB a problem s Eventy pri ukonceni programu
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 12.3.2003 13:06:01
Ano setkal, problem je v gds32.dll.
Pouzij gds32.dll s FB a budes mit klid, nebo nesmis pouzivat TCP spojeni.
Slavek
> Ahoj,
> nesetkal se nekdo s problemem ukoncovani aplikace, kdyz mel
> zaregistrovane Eventy na IB? Pokud neprovadim RegisterEvents, tak se
> program ukonci normalne, pokud registruju, tak pri uzavirani
> databaze zace procesor smazit na 100% a asi po dvou minutach se
> aplikace konecne ukonci (pokud vubec). Pri destroy datamodulu jsem
> zkousel Unregistrovat eventy, delat ruzne ForceClose, Close
> databaze, ruzne to prehazovat, atd... Problem se vyskytne, jenom
> pokud jsem pred tim nejaky Event zaregistroval. Jinak program
> funguje naprosto normalne a pri spusteni a pri behu zadne problemy
> nejsou.
Access violation za ENDem - problem MessageBox
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 12.3.2003 12:43:16
Mozna je to blbost, ale zkus pouzit namisto =
MessageBox(Application.Handle,
...) prikaz Application.MessageBox(PChar('....'),'.....',MB_....). =
Pouzivam
to zhusta a nikdy s tim problemy nebyly. Napada me jeste, jestli treba =
v tom
MessageBoxu nepouzivas nealokovany PChar apod. To, ze k chybe nedojde =
vzdy,
by tomu nasvedcovalo, protoze se nekdy lze tim ukazatelem strefit do =
vhodne
oblasti pameti a k AV nedojde.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Lokalizoval jsem co to dela.
V prihlasovaci procedure mam pouzito (pokud je nekorektni
prihlaseni) MessageBox(Application.Handle, ...); Pokud tento
prikaz odstranim, probehne ukonceni ok. Jakmile je tam, je
problem (nekdy taky ne). Je potreba nejak zvlast rusit
Access violation za ENDem - problem MessageBox
[*] harman(zv)volny(tec)cz - 12.3.03 12:36:32
Lokalizoval jsem co to dela.
V prihlasovaci procedure mam pouzito (pokud je nekorektni
prihlaseni) MessageBox(Application.Handle, ...); Pokud tento
prikaz odstranim, probehne ukonceni ok. Jakmile je tam, je
problem (nekdy taky ne). Je potreba nejak zvlast rusit
MessageBox? Nebo kde muze byt problem? Diky moc za rady.
Honza.
> Ahoj,
>=20
>=20
> > No jeste me napadlo ze by mozna mohl byt problem v
> > kodu
> > finalization nektere z jednotek, ale trasoval jsem to
> > od
> > posledniho ENDu F7 a nikde chyba nevznikla, prave
> > naopak, pokud
> > se to kdekoli zastavi, tak to potom (jakoby si
> > odpocinula) chybu
>=20
> ************* nebo jakoby stacil dobehnout nejaky
> ************* thread, ktery
> pak jinak saha na uz zrusene objekty...
> Teda pokud nejaky thready ve sve aplikaci pouzivas...
>=20
> Tomas Bihary
>=20
>=20
>=20
>=20
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG
> (http://www.grisoft(tec)cz).
> Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED:
> 10.3.2003
>=20
>=20
--=20
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
IB a problem s Eventy pri ukonceni programu
[*] Petr Selinger <delphiforum(zv)centrum(tec)cz> - 12.3.2003 12:35:50
Ahoj,
nesetkal se nekdo s problemem ukoncovani aplikace, kdyz mel
zaregistrovane Eventy na IB? Pokud neprovadim RegisterEvents, tak se
program ukonci normalne, pokud registruju, tak pri uzavirani
databaze zace procesor smazit na 100% a asi po dvou minutach se
aplikace konecne ukonci (pokud vubec). Pri destroy datamodulu jsem
zkousel Unregistrovat eventy, delat ruzne ForceClose, Close
databaze, ruzne to prehazovat, atd... Problem se vyskytne, jenom
pokud jsem pred tim nejaky Event zaregistroval. Jinak program
funguje naprosto normalne a pri spusteni a pri behu zadne problemy
nejsou.
Zajimave je, ze se mi to stava jenom asi na dvou PC, k dispozici mam
napr. identicky pocitac se stejnou konfiguraci a tam to nedela.
Na vsech PC mam nainstalovane klienty IB5.6 na jednom PC jede i
IB5.6 server (ten, na kterem to taky tuhne). Aby to bylo jeste vic
zamotane, tak tyto programy jsou dva a nekde tuhne pri ukonceni
jeden
a nekde zase ten druhy, ale je to vzdy na tech stejnych PC.
Asi bude tezke to nejak vyresit, ale aspon naznacit smer, kterym se
mam ubirat. Zkousim uz vse mozne i nemozne. Diky, Petr.
COUNT v sekci WHERE na FB
[*] bleak <bleak(zv)mvesely(tec)com> - 12.3.2003 11:31:05
dekuji vsem za odpovedi. HAVING count... to je to co jsem potreboval. Orientoval jsem jen podle
Embeded SQL Giude a tak nejak jsem tapal.
Ty castky maji ve velke vetsine stejnou vysi, presto to funguje tak jak ma. Kdyz pouziju GROUP BY
id_klienta, je jedno jaka je vyse castky nebo jestli jsou stejne. Tak to chapu a tak mi to funguje.
Tridim dle id_klienta.
bleak
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
SELECT id_klienta, COUNT(castka) AS pocet FROM table WHERE
ucet=31104
GROUP BY id_klienta
HAVING count(castka)=23
V GROUP BY musi byt uvedeno presne to, co je v SELECT neagregovane.
takze
bud "select id_klienta, count ... group by id_klienta having..."
(vrati klienty, kteri poslali 23 plateb)
nebo "select count...having..." bez group by
(vrati v kazdem pripade cislo 23 - asi nesmysl)
V HAVING se musi napsat cele count(castka), nelze jen alias POCET.
V pripadnem ORDER BY pak nelze nic jineho, nez poradove cislo sloupce.
Ale stejne, co kdyz budou castky ve dvou platbach stejne?
Jaky pak bude count(castka)?
Spice by to melo byt nejak "count(id_platby)".
viz kurz "Navrh a implmentace SQL databaze".
Honza
Access violation za ENDem.
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 12.3.2003 11:18:23
Ahoj,> No jeste me napadlo ze by mozna mohl byt problem v kodu
> finalization nektere z jednotek, ale trasoval jsem to od
> posledniho ENDu F7 a nikde chyba nevznikla, prave naopak, pokud
> se to kdekoli zastavi, tak to potom (jakoby si odpocinula) chybu
************* nebo jakoby stacil dobehnout nejaky thread, ktery
pak jinak saha na uz zrusene objekty...
Teda pokud nejaky thready ve sve aplikaci pouzivas...
Tomas Bihary
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED: 10.3.2003
Hledam lokalni DB stroj s bloby cca 10 MB
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 12.3.2003 10:56:18
Pokud ti nevadi instalace dalsiho SW, tak zkus FireBird.
Posledni stabilni verze je 1.0.2
Umi Bloby, DB je kompaktni v jednom souboru (muzes si ji ovsem rozdelit).
firebird.sourceforge.net
Slavek
> ahoj, potrebuju zjistit zda existuje nejaka DB (lokalni, souborova), ktera umi
> bloby cca kolem 10 MB. Muze byt freeware i shareware, ale je urcena pro
> komercni pouziti. MySQL znam, potreboval otestovat nejaky dalsi. Diky Karel Klimes
Slozeny versus jednoduchy PK
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 12.3.2003 09:22:40
Chtel jsem odpovedet sam, ale Pavel to udelal za me (viz nize).
Tedy rozhodne spise jednoslozkovy primarni klic.
Viceslozkove si muzeme dovolit pouze "dole" v datovem modelu, tedy tam, =
kde uz nehrozi zadne "nabalovani" (primarni klic se neprenasi pres =
identifikacni relaci do dalsich Detail entit/tabulek), treba Faktura -> =
Radek, pod radkem asi uz nic nebude, Radek bude mit klic =
IDFaktury+CisloRadku.
Jeste k te nevyhode:
Ta se podle meho soudu da vetsinou eliminovat.
V konkretnim pripade by DATA melo byt samostatnou polozkou, pritom ID by =
i tak melo byt zaruceno jako jednoznacne. Treba by se daly nejak =
nastavit generatory tak, aby se ciselne rady neprekryly (SET GENERATOR). =
Nebo nejak jinak. ID muze byt treba i neco jako GUID, pak to bude =
jednoznacne urcite.=20
viz nas kurz "Navrh a mplementace SQL databaze".
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Pavel Cisar <pcb(zv)atlas(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Re: Slozeny versus jednoduchy PK
> Datum: 11. b=F8ezna 2003 15:42
>=20
> Haj hou!
>=20
> On 11 Mar 2003 at 12:53, Miroslav Evjak wrote:
>=20
> > pomohl by mi nazor z praxe:
> > Je jednodussi prace se slozenym primarnim klicem (2 sloupce) nebo
> > jednoduchym (1 sloupec) ?
> >=20
> > Konkretne:
> > ID - autoincrement (generator): cislo zaznamu napr. 10
> > DATA - CHAR(3): puvod vety napr. 'JBC'
> > nebo
> > ID - CHAR(10): oboji najednou napr. JBC0000010
> >=20
> > Poznamka:
> > smyslem sloupce DATA je moznost replikace dat (pokud zakaznika =
nepresvedcim,
> > ze dnes neni problem vzdaleny pristup do DB).
>=20
> Jednoduche klice jsou vzdy vyrazne lepsi nez slozene.
>=20
> Vyhody:
>=20
> - Neni treba se tolik rozepisovat pri specifikaci joinu, vyberu =
konkretniho=20
> zaznamu apod.=20
>=20
> - Slozene klice maji tendenci se nabalovat. Co zacina jako dve pole u =
ciselniku=20
> konci jako tri a vice u odvozenych tabulek.=20
>=20
> - Komplikuje se definice sprazenych tabulek - cizich klicu (je treba =
uvest vsechna=20
> pole). Pokud mas tabulku s vice cizimi klici do ruznych tabulek, je =
jeji struktura jiz=20
> pomerne "kosata" :-)
>=20
> - Snaze se s tim pracuje v programech, obzvlaste pokud je primarni =
klic=20
> standardizovany (napr. char(20), numeric(18,0) apod.)
>=20
> Nevyhody:
>=20
> - Problematicky vyber radku pouze podle casti klice (vzdy natural =
scan).
>=20
> S pozdravem
> Pavel Cisar
>=20
> Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,=20
> Fulda, Nemecko
> http://www.firebird-conference.com
>=20
> Mobil: 724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
Hledam lokalni DB stroj s bloby cca 10 MB
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 12.3.2003 10:09:53
Skus sa pozriet na FlashFiler, podla dokumentacie zvlada blob do 2GB.
http://sourceforge.net/projects/tpflashfiler/
P.Svorc
> ahoj,
>
> potrebuju zjistit zda existuje nejaka DB (lokalni, souborova), ktera umi
> bloby cca kolem 10 MB. Muze byt freeware i shareware, ale je urcena pro
> komercni pouziti.
Hledam lokalni DB stroj s bloby cca 10 MB
[*] Jarom�r Sola� <solar(zv)magion(tec)cz> - 12.3.2003 10:04:34
Coz takhle FlashFiler (http://sourceforge.net/projects/tpflashfiler/).
Jarek Sola�
----- Original Message -----
From: "Karel Klimes" <klimes(zv)unicontrols-tramex(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 12, 2003 9:29 AM
Subject: Hledam lokalni DB stroj s bloby cca 10 MB
ahoj,
potrebuju zjistit zda existuje nejaka DB (lokalni, souborova), ktera umi
bloby cca kolem 10 MB. Muze byt freeware i shareware, ale je urcena pro
komercni pouziti.
MySQL znam, potreboval otestovat nejaky dalsi.
Diky
Karel Klimes
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov� b�ze: 260 - datum vyd�n�: 10.3.2003
COUNT v sekci WHERE na FB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 12.3.2003 10:01:53
SELECT id_klienta, COUNT(castka) AS pocet FROM table WHERE
ucet=3D31104
GROUP BY id_klienta
HAVING count(castka)=3D23
V GROUP BY musi byt uvedeno presne to, co je v SELECT neagregovane.
takze=20
bud "select id_klienta, count ... group by id_klienta having..."
(vrati klienty, kteri poslali 23 plateb)
nebo "select count...having..." bez group by=20
(vrati v kazdem pripade cislo 23 - asi nesmysl)
V HAVING se musi napsat cele count(castka), nelze jen alias POCET.
V pripadnem ORDER BY pak nelze nic jineho, nez poradove cislo sloupce.
Ale stejne, co kdyz budou castky ve dvou platbach stejne?=20
Jaky pak bude count(castka)?
Spice by to melo byt nejak "count(id_platby)".
viz kurz "Navrh a implmentace SQL databaze".
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: bleak <bleak(zv)mvesely.com>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: OT: COUNT v sekci WHERE na FB
> Datum: 11. b=F8ezna 2003 16:43
>=20
> zdravim,
> potrebuji provest neco takoveho:
>=20
> SELECT COUNT(castka) AS pocet FROM table WHERE
> ucet=3D31104 AND pocet=3D23
> GROUP BY id_klienta
>=20
> cili vybrat vsechny zaznamy, kde je zaplaceny urcity pocet plateb na =
jeden
> ucet. FB ale odmita "pocet" jako neznamy sloupec. Nebere ani kdyz =
misto
> "pocet=3D23" napisu "COUNT(castka)=3D23".
> Jak to spravne provest?
>=20
Hledam lokalni DB stroj s bloby cca 10 MB
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 12.3.2003 10:04:56
nejake linky na develope s SQLite su na
http://cvs.hwaci.com:2080/sqlite/wiki?p=3DSqliteWrappers
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
Ing. Jozef Kalus=09
SOVA
=A5. =A9t=FAra 17/28
018 61 BELU=A9A
Mob.: 0905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
Web: http://www.equipment.sk
-----Original Message-----
From: Lukas Gebauer [mailto:gebylist(zv)mlp(tec)cz]=20
Sent: Wednesday, March 12, 2003 9:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Hledam lokalni DB stroj s bloby cca 10 MB
> potrebuju zjistit zda existuje nejaka DB (lokalni, souborova), ktera=20
> umi bloby cca kolem 10 MB. Muze byt freeware i shareware, ale je=20
> urcena pro komercni pouziti.
>
> MySQL znam, potreboval otestovat nejaky dalsi.
No, treba SQLite ma velikost jednoho pole v tabulce omezenou na dve
giga... je to lokalni SQL baze postavena jako free a opensource. Z
Delphi muzes pristupovat pres DBexpress, nebo primo pres specielni
komponenty.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
Hledam lokalni DB stroj s bloby cca 10 MB
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 12.3.2003 09:25:50
> potrebuju zjistit zda existuje nejaka DB (lokalni, souborova), ktera
> umi bloby cca kolem 10 MB. Muze byt freeware i shareware, ale je
> urcena pro komercni pouziti.
>
> MySQL znam, potreboval otestovat nejaky dalsi.
No, treba SQLite ma velikost jednoho pole v tabulce omezenou na dve
giga... je to lokalni SQL baze postavena jako free a opensource. Z
Delphi muzes pristupovat pres DBexpress, nebo primo pres specielni
komponenty.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
OT: COUNT v sekci WHERE na FB
[*] Radek KALA <Kala(zv)BetaControl(tec)cz> - 12.3.2003 09:21:51
treba takto. Jen zhlavy nevim jestli patri napred GROUP BY nebo
HAVING. To si zkus.
SELECT COUNT(castka) AS pocet
FROM table
WHERE
ucet=31104
GROUP BY id_klienta
HAVING COUNT(castka)=23
> zdravim,
> potrebuji provest neco takoveho:
>
> SELECT COUNT(castka) AS pocet FROM table WHERE
> ucet=31104 AND pocet=23
> GROUP BY id_klienta
>
> cili vybrat vsechny zaznamy, kde je zaplaceny urcity pocet plateb na
> jeden ucet. FB ale odmita "pocet" jako neznamy sloupec. Nebere ani
> kdyz misto "pocet=23" napisu "COUNT(castka)=23". Jak to spravne
> provest?
>
> bleak
> 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
Hledam lokalni DB stroj s bloby cca 10 MB
[*] Karel Klimes <klimes(zv)unicontrols-tramex(tec)cz> - 12.3.2003 09:29:56
ahoj,=0D
=0D
potrebuju zjistit zda existuje nejaka DB (lokalni, souborova), ktera umi
bloby cca kolem 10 MB. Muze byt freeware i shareware, ale je urcena pro
komercni pouziti.=0D
=0D
MySQL znam, potreboval otestovat nejaky dalsi.=0D
=0D
Diky=0D
=0D
Karel Klimes
Access violation za ENDem.
[*] harman(zv)volny(tec)cz - 12.3.03 08:08:48
No jeste me napadlo ze by mozna mohl byt problem v kodu
finalization nektere z jednotek, ale trasoval jsem to od
posledniho ENDu F7 a nikde chyba nevznikla, prave naopak, pokud
se to kdekoli zastavi, tak to potom (jakoby si odpocinula) chybu
neudela.
> > Nize uvedeny kod funguje bez chyby, pokud
> > PrihlaseniOK=true, pokud ale
> > ne, tak konci chybovou hlaskou.
>
> Ahoj,
>
> do zacatku bych si tipnul na nejakou chybu v OnCreate
> hlavniho
> formu nebo DM, v uvahu prichazi jeste chyba kdekoli v
> TfPrihlaseni.
> Ta chyba by se pak projevila pri uvolnovani formulare.
>
> Navrhuji zkusit na konci dpr souboru jeste zavolat
> FreeAndNil na
> vsechny vytvorene formulare a kouknout se, zda to
> projde nebo
> zkolabuje v nekterem z techto Free.
>
> David Lebeda
>
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Sloupce SELECT
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.3.2003 07:02:56
> SELECT a.lokalita, a.objekt, a.nazev, a.min, a.max ...
> FROM tabulka a
Ahoj,
sorry, poprve jsem si to spatne precetl. Muj nazor je ted takovyto:
Pokud nepomuze syntaxe a."MIN", tak mas asi smulu a nezbyde, nez sloupec
prejmenovat. Jakmile das nazev sloupce do uvozovek, tak uz zalezi na velikosti
pismen, ale obvykle jsou velka...zkus a dej vedet.
Access violation za ENDem.
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.3.2003 06:55:45
> Nize uvedeny kod funguje bez chyby, pokud PrihlaseniOK=true, pokud ale
> ne, tak konci chybovou hlaskou.
Ahoj,
do zacatku bych si tipnul na nejakou chybu v OnCreate hlavniho
formu nebo DM, v uvahu prichazi jeste chyba kdekoli v TfPrihlaseni.
Ta chyba by se pak projevila pri uvolnovani formulare.
Navrhuji zkusit na konci dpr souboru jeste zavolat FreeAndNil na
vsechny vytvorene formulare a kouknout se, zda to projde nebo
zkolabuje v nekterem z techto Free.
Access violation za ENDem.
[*] J�n Harman <harman(zv)volny(tec)cz> - 11.3.2003 23:24:18
Ahoj,
prosim o radu.
Nize uvedeny kod funguje bez chyby, pokud PrihlaseniOK=true, pokud ale ne,
tak konci chybovou hlaskou. Pouzivam D7.
Zajimave je, ze pokud dam breakpoint na posledni end, tak se tam normalne
zastavi, zmacknu F9 a ukonci se bez chyby. Bez breakpointu to hodi chybu.
Spusteni hotoveho Exe zavisi taky na systemu:
Win2000 - vzdy hodi hlasku ze instrukce na xxx se odkazovala na pamet xxx,
nemuze byt read...(dokonce nekdy hlasi stejnou chybu i pri ukonceni i kdyz
prihlaseni bylo OK.
Win95 - nehlasi zadnou chybu,
WinXP - ohlasi chybu jen nekdy.
Diky moc, Honza
begin
Application.Initialize;
Application.CreateForm(TfMain, fMain);
Application.CreateForm(TDM, DM);
fpr := TfPrihlaseni.Create(Application);
if PrihlaseniOK then begin // tady je neco jako fpr.ShowModal, zadani
hesla...
Application.CreateForm(TfCiselniky, fCiselniky);
Application.Run;
end;
end.
Sloupce SELECT
[*] Ing. Zden�k �ezn��ek - 11.3.2003 21:56:06
Ja vim, ze agregacni fce maji jinou syntaxi, ale me to fakt blbne. Jedna =
se
o IB 6. Dotaz zadavam z INConsole a pise to asi toto:
Dotaz vypada takto:
SELECT a.lokalita, a.objekt, a.nazev, a.min, a.max
FROM CisBox a
a IB 6 pise toto:
Dynamic SQL Error
SQL error code =3D -104
Token unknown - line 1, char 40
min
Statement: SELECT a.lokalita, a.objekt, a.nazev, a.min, a.max
FROM CisBox a
line 1, char 40 je tecka za a.min
Dik Zdenek
----- Original Message -----
From: "Franti=B9ek Ml=E8och" <frantisek.mlcoch(zv)vsb(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 11, 2003 8:17 AM
Subject: Re: Sloupce SELECT
> Je sice pravda,ze stejne se jmenuji i agregacni funkce,ale ty se v SQL
> dotazu zapisuji jinak. Musi se jim specifikovat argument a to je nazev
> sloupce:
>
> SELECT a.pol1, MIN(a.pol2) FROM a
>
> Dobry SQL server by nemel chapat zapis:
>
> SELECT a.pol1, a.MIN FROM a
>
> jako pouziti agregacni funkce. A pokud to tak chape asi by bylo lepsi
zvolit
> jiny.
> Jeste muzete zkusit jednu moznost a to zapsat nazev do hranatych zavore=
k.
>
> SELECT a.pol1, a.[MIN] FROM a
>
> F.
>
Sloupce SELECT
[*] Ing. Zdenek Rezn�cek <reznicek(zv)pce(tec)cz> - 11.3.2003 21:45:40
Nevim jestli jsem to napsal presne, ale tabulka ma tyto polozky:
lokalita char(3), objekt char(3), nazev varchar(30), min decimal(5,1), ma=
x
decimal(5,1) .... atd.
pricemz polozky min a max znamenaj=ED mezn=ED hodnoty pro objekt.
Jakmile napisu
SELECT a.lokalita, a.objekt, a.nazev, a.min, a.max ...
FROM tabulka a
SQL rve toto:
Dynamic SQL Error
SQL error code =3D -104
Token unknown - line 1, char 40
min
Statement: SELECT a.lokalita, a.objekt, a.nazev, a.min, a.max
FROM CisBox a
Zadne uvozovky ani hranete zavorky nepomahaji. Jedna se o IB 6. Dotaz je
zadavan z IBConsole
Zda se to trivialni, ale nemuzu s tim hnout.
Dik Zdenek
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 11, 2003 7:30 AM
Subject: Re: Sloupce SELECT
> > poradte prosim, jak do dotazu SELECT zaradit sloupce, ktere se
> > duchaplne jmenuji MIN a MAX. Zkousel jsem neco jako:
> >
> > SELECT a.polozka1, a.polozka2, a."MIN", a."MAX"
> > FROM tabulka a
> >
> > a ruzne jine varianty s uvozovkami. Vse marne. MIN a MAX asi chape
> > jako agregacni fce. Proste se nedari.
>
> Ahoj,
>
> min a max jsou opravdu agregacni funkce a takhle to proto nejde. Vysled=
kem
min a
> max je jedno cislo. TO se ma opisovat stale stejne do vsech radku v
selectu?
>
> 1) Bud pouzit group by a.polozka1, a.polozka2
>
> 2) Nebo dva dotazy - jeden na polozky, jeden na to min a max.
>
> David Lebeda
COUNT v sekci WHERE na FB
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 11.3.2003 21:04:25
HAVING COUNT(castka)=3D23
-----Original Message-----
From: bleak [mailto:bleak(zv)mvesely.com]=20
Sent: Tuesday, March 11, 2003 7:30 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: COUNT v sekci WHERE na FB
to nejde, porad je pocet unknown column...
nakonec jsem to resil ulozenou procedurou ale jde to i v beznem selektu
(neco jako (23=3D(SELECT COUNT(castka)...), ale je to pomale.
bleak
----- Original Message -----
From: "Ben, Martin (CONS FIN)" <Martin.Ben(zv)ge.com>
> SELECT COUNT(castka) AS pocet FROM table WHERE
> ucet=3D31104
> GROUP BY id_klienta
> HAVING pocet=3D23
>
> > -----Original Message-----
> > From: bleak [mailto:bleak(zv)mvesely.com]
> >
> > SELECT COUNT(castka) AS pocet FROM table WHERE
> > ucet=3D31104 AND pocet=3D23
> > GROUP BY id_klienta
> >
> > cili vybrat vsechny zaznamy, kde je zaplaceny urcity pocet plateb na
> > jeden ucet. FB ale odmita "pocet" jako neznamy sloupec. Nebere ani
> > kdyz misto
> > "pocet=3D23" napisu "COUNT(castka)=3D23".
> > Jak to spravne provest?
>
COUNT v sekci WHERE na FB
[*] bleak <bleak(zv)mvesely(tec)com> - 11.3.2003 19:29:34
to nejde, porad je pocet unknown column...
nakonec jsem to resil ulozenou procedurou ale jde to i v beznem selektu
(neco jako (23=(SELECT COUNT(castka)...), ale je to pomale.
bleak
----- Original Message -----
From: "Ben, Martin (CONS FIN)" <Martin.Ben(zv)ge.com>
> SELECT COUNT(castka) AS pocet FROM table WHERE
> ucet=31104
> GROUP BY id_klienta
> HAVING pocet=23
>
> > -----Original Message-----
> > From: bleak [mailto:bleak(zv)mvesely.com]
> >
> > SELECT COUNT(castka) AS pocet FROM table WHERE
> > ucet=31104 AND pocet=23
> > GROUP BY id_klienta
> >
> > cili vybrat vsechny zaznamy, kde je zaplaceny urcity pocet
> > plateb na jeden
> > ucet. FB ale odmita "pocet" jako neznamy sloupec. Nebere ani
> > kdyz misto
> > "pocet=23" napisu "COUNT(castka)=23".
> > Jak to spravne provest?
>
MS SQL 7 a IIF
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 11.3.2003 18:54:51
> BTW tvoj zapis nedava spravny vysledok, dve smeny su v sobotu a v
> nedelu, v pracovne dni su tri, takze este pouzijem ELSE. Vlastne ono
> je tam _povinne_!
Ahoj.
Ja jsem to netestoval a nepremyslel jsem nad tim. Melo to byt jen
"nakopnuti" smerem k CASE.
Rad jsem pomohl.
Ludek
MS SQL 7 a IIF
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 11.3.2003 18:50:59
>> SELECT INT(VYROBENO-(1/4))*3 +
>> (Frac(VYROBENO) * IIF(DayOfWeek(VYROBENO)=1
>> OR DayOfWeek(VYROBENO)=7, 2,3))
> co takhle:
> SELECT INT(VYROBENO-(1/4))*3 + (Frac(VYROBENO) *
> case when DayOfWeek(VYROBENO)=1 then 2
> when DayOfWeek(VYROBENO)=7 then 3
> end AS SMENA
Diky, je to tak! Takze IIF sa u Microsoftu vola CASE a dokonca sa mi
to zda sympatickejsie. Prerobim to na case. Medzitym som to totiz
urobil so SUBSTRING, ('tyden ma jenom 7 dni', ako spieva Ledecky):
Frac(VYROBENO) * SUBSTRING('2333332',DayOfWeek(VYROBENO),1)
a netreba to ani preCASTovat.
BTW tvoj zapis nedava spravny vysledok, dve smeny su v sobotu a v
nedelu, v pracovne dni su tri, takze este pouzijem ELSE. Vlastne ono
je tam _povinne_!
CASE WHEN DayOfWeek(VYROBENO) BETWEEN 2 AND 6 THEN 3 ELSE 2 END
> (nevim jestli podle toho pujde grupovat)
Na MS SQL ide, u Accessu sa cely vyraz musi este raz opisat do GROUP
BY
bye
vmlich
Nejasnost kolem SMTP Autentikace
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.3.2003 18:03:18
> Omlouvam se za OT, ale potrebuji poradit od nejakeho SMTP guru ;-)
> Nas provider zavedl SMTP autentikaci, takze pred prihlasenim k SMTP
serveru
> musime uvest login/heslo. Pro nase nedelphi vyvojove prostredi
existuje
> knihovna pro prijem/odesilani emailu, pomoci ktere toto prihlaseni
nelze
> provest (je mozne jen jednoduchy
> sendmail(smtp+port,hlavicka,zprava,prilohy)). Pri komunikaci se
supportem
> jsem byl odkazan na to, ze problem je nekde v administraci mail
serveru a ze
> mame od administratora ziskat nejaky specialni port pro odesilani
emailu
> (?!). Tomu dost dobre nerozumim: pokud budu mit spesl port, kterym
budu moct
> odeslat mail bez prihlaseni, tak k cemu je potom autentikace? Za 2.:
ten
> port je predem specifikovany nebo to budu zadat u kazdeho
mailserveru
> zvlast?
> Zatim mi to pride spise jako nedostatek te nasi knihovny (coz mi
support
> nerekne) a rad bych v tom mel jasno.
Vtip je v tom, ze pokud ma byt provider schopen prijimat postu ze
sveta musi
mit k dispozici SMTP kanal, ktery neni authentifikovany. Existuje
tendence rozdelit
SMTP tok od klientu a SMTP tok mezi servery. Na jednom portu bezi SMTP
pro klienty a na jinem pro servery. Klientske muze byt vesele
heslovane to druhe
ne (ale zase muze/musi mit implementovana nejake pekna omezeni -
relaying atd).
Nicmene i kdyby mel provider SMTP jeste na jinem portu stejne Ti to
asi
nepomuze protoze antispam ochrana (zakazanej relaying) Ti nedovoli
posilat
maily dal do internetu.
D. Toman
COUNT v sekci WHERE na FB
[*] Ben, Martin (CONS FIN) <Martin.Ben(zv)ge(tec)com> - 11.3.2003 11:07:34 -0500
SELECT COUNT(castka) AS pocet FROM table WHERE
ucet=31104
GROUP BY id_klienta
HAVING pocet=23
> -----Original Message-----
> From: bleak [mailto:bleak(zv)mvesely.com]
>
> SELECT COUNT(castka) AS pocet FROM table WHERE
> ucet=31104 AND pocet=23
> GROUP BY id_klienta
>
> cili vybrat vsechny zaznamy, kde je zaplaceny urcity pocet
> plateb na jeden
> ucet. FB ale odmita "pocet" jako neznamy sloupec. Nebere ani
> kdyz misto
> "pocet=23" napisu "COUNT(castka)=23".
Slozeny versus jednoduchy PK
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 11.3.2003 16:51:44
Ahoj,
> pomohl by mi nazor z praxe:
> Je jednodussi prace se slozenym primarnim klicem (2 sloupce) nebo
> jednoduchym (1 sloupec) ?
>
> Konkretne:
> ID - autoincrement (generator): cislo zaznamu napr. 10
> DATA - CHAR(3): puvod vety napr. 'JBC'
> nebo
> ID - CHAR(10): oboji najednou napr. JBC0000010
>
> Poznamka:
> smyslem sloupce DATA je moznost replikace dat (pokud zakaznika
nepresvedcim,
> ze dnes neni problem vzdaleny pristup do DB).
>
> Databaze InterBase/FireBird.
Pokud mohu poradit z praxe, kde se replikaci uz delsi dobu zabyvame, pouzili
jsme slozeny klic ID z generatoru + ID konkretniho gdb souboru a to
pouzivame
ve vsech tabulkach, takze i cizi klice maji vzdy jen 2 hodnoty.
Kdybych se mohl rozhodovat znova, pouzil bych jako primarni klic radsi GUID
a urcite bych se vyhnul nekterym problemum pri replikaci a asi by se s tim
i lip pracovalo.
S pozdravem
ing. Richard Kejval
IC Software s.r.o
Mobil: +420602477679
OT: COUNT v sekci WHERE na FB
[*] bleak <bleak(zv)mvesely(tec)com> - 11.3.2003 16:43:46
zdravim,
potrebuji provest neco takoveho:
SELECT COUNT(castka) AS pocet FROM table WHERE
ucet=31104 AND pocet=23
GROUP BY id_klienta
cili vybrat vsechny zaznamy, kde je zaplaceny urcity pocet plateb na jeden
ucet. FB ale odmita "pocet" jako neznamy sloupec. Nebere ani kdyz misto
"pocet=23" napisu "COUNT(castka)=23".
Jak to spravne provest?
bleak
Variant or safe array is locked.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.3.2003 16:33:06
From: "Jarom�r �erm�k" <CERMAK(zv)PROCOM(tec)cz>
> Resim nasledujici problem a potreboval bych poradit. V programu napsanem
> v D7 ukladam obsah ClientDatasetu na disk jako XML a stejne ho i ctu. Ve
> firme chodi vse v poradku, ale u zakaznika se pri nacitani/ukladani
> objevy vyse uvedena hlaska. Programy v D5 chodily dobre. Nevite nekdo co
Patrne se ti nedopatrenim natahuje MIDAS.DLL ze starsi verze Delphi ktera je
na tom pocitaci. Preloz tu aplikaci s unitem MidasLib nebo tam dej do adresare
aplikace tu dll z Delphi 7.
Petr Vones
Pocesteni aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.3.2003 16:14:22
On 11 Mar 2003 at 15:07, Jiri Babka wrote:
> snazim se prijit na to, jak pocestit aplikaci, kterou delam v Delphi 6
> Professional. Chtel bych napr. nahradit anglicke texty ve standardnich
> dialozich z knihovny Dialogs.pas ceskymi. Poradite mi, jak na to? V
> prirucce jsem nasel pouze zpusob, jak udelat prepinani jazyku za behu,
> ale to neni to co chci. Nechci zadny soubor .CSY, ale aby to bylo
> primo v .EXE.
http://www.localizator.com
Umi oboje.
S pozdravem
Zbysek Hlinka
Zmena InterBase -> Firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.3.2003 15:42:28
Haj hou!
On 11 Mar 2003 at 12:38, Miroslav Evjak wrote:
> mam databazi vytvorenou v InterBase6. Je mozne ji beze zmeny pouzit ve
> FireBirdu 1.xx (samozrejme cestou Backup/Restore), nebo to obnasi nejake
> problemy a upravy v databazi?
Backup/restore staci (ale je nutny kvuli zmene trideni CH u PXW_CSY).
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Slozeny versus jednoduchy PK
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 11.3.2003 15:42:28
Haj hou!
On 11 Mar 2003 at 12:53, Miroslav Evjak wrote:
> pomohl by mi nazor z praxe:
> Je jednodussi prace se slozenym primarnim klicem (2 sloupce) nebo
> jednoduchym (1 sloupec) ?
>
> Konkretne:
> ID - autoincrement (generator): cislo zaznamu napr. 10
> DATA - CHAR(3): puvod vety napr. 'JBC'
> nebo
> ID - CHAR(10): oboji najednou napr. JBC0000010
>
> Poznamka:
> smyslem sloupce DATA je moznost replikace dat (pokud zakaznika nepresvedcim,
> ze dnes neni problem vzdaleny pristup do DB).
Jednoduche klice jsou vzdy vyrazne lepsi nez slozene.
Vyhody:
- Neni treba se tolik rozepisovat pri specifikaci joinu, vyberu konkretniho
zaznamu apod.
- Slozene klice maji tendenci se nabalovat. Co zacina jako dve pole u ciselniku
konci jako tri a vice u odvozenych tabulek.
- Komplikuje se definice sprazenych tabulek - cizich klicu (je treba uvest vsechna
pole). Pokud mas tabulku s vice cizimi klici do ruznych tabulek, je jeji struktura jiz
pomerne "kosata" :-)
- Snaze se s tim pracuje v programech, obzvlaste pokud je primarni klic
standardizovany (napr. char(20), numeric(18,0) apod.)
Nevyhody:
- Problematicky vyber radku pouze podle casti klice (vzdy natural scan).
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
OT: Nejasnost kolem SMTP Autentikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.3.2003 15:41:57
Puvodni zprava, kterou napsal Roman dne 11 Mar 2003:
> Nas provider zavedl SMTP autentikaci, takze pred prihlasenim k SMTP
> serveru musime uvest login/heslo. Pro nase nedelphi vyvojove prostredi
> existuje knihovna pro prijem/odesilani emailu, pomoci ktere toto
> prihlaseni nelze provest (je mozne jen jednoduchy
> sendmail(smtp+port,hlavicka,zprava,prilohy)). Pri komunikaci se supportem
No tak ta knihovna nepodporuje SMTP autentizaci.
> jsem byl odkazan na to, ze problem je nekde v administraci mail serveru a
> ze mame od administratora ziskat nejaky specialni port pro odesilani
> emailu (?!). Tomu dost dobre nerozumim: pokud budu mit spesl port, kterym
> budu moct odeslat mail bez prihlaseni, tak k cemu je potom autentikace? Za
To je ptakovina, kdyz to tak bude, tak se pak kdokoliv muze na ten port
napojit a postu odesilat.
> 2.: ten port je predem specifikovany nebo to budu zadat u kazdeho
> mailserveru zvlast? Zatim mi to pride spise jako nedostatek te nasi
> knihovny (coz mi support nerekne) a rad bych v tom mel jasno.
Ano, je to nedostatek te knihovny, ktera to asi neumi. Od toho je
autentizace, aby bylo zajisteno, ze nikdo jiny neposle mail ven -
spammer...
SMTP autentizace se chova tak, ze kazdy postovni server vetsinou
podporuje nekolik ruznych autentizacnich metod. Kdyz se na nej napojis,
tak ti napise, jake podporuje. Podivej, takhle:
250-Petr Zahradnik Mail Server Hello clpc; ESMTPs are:
250-TIME
250-AUTH=LOGIN
250-AUTH CRAM-MD5 LOGIN
250 HELP
Tady vidis dve moznosti autentizace - LOGIN a CRAM-MD5 LOGIN. Postovni
klient si vybere jednu z nich takto:
AUTH CRAM-MD5
No a na to mu server odpovi tak, ze mu posle nahodny retezec pro overeni:
PDg1NjM4NjQxLjM0NkBjbGV4cGVydC5jej4=
Klient ho vezme a dohodnutym zpusobem zakoduje vysledek (jmeno/heslo
podle typu algoritmu slouci s tim nahodnym a vyplivne vysledek):
Y2xleHBlcnQgMjQwNTQxNWEzODgyMGE2ZjZiMDk4NTI2Yzk4YzY5MGY=
No a je to... Neposila se otevrene jmeno/heslo, to sis vsiml. Server
potvrdi:
235 Authentication successful.
A uz se muze posilat mail...
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================OT: Nejasnost kolem SMTP Autentikace
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 11.3.2003 15:23:09
Piokyud tim mel na mysli, ze by se mel zvest vas postovni server,
ktery by slouzij jen pro vas a bezel by na nejakem nestandardnim
portu, pak mi to prijde jako hovadina, protoze:
1. takto nestandardni port by se mel tak ci tak zabezpecit, abyste
jej mohli pouzivat jen vy. Tedy patrne omezenim pres IP adresu.
2. ve chvili, kdy umi zabezpecit podle Ip adresy, je zcela
standardnipostup, ze se podle IP adresy da na standardnim SMTP
serveru autenticifikovat. (tedy nastavit IP adresy, pro ktere nebude
vyzadovano SMTP prihlaseni)
cele tyhle veci jsou kvuli tomu, aby si pres vas SMTP server nemohl
posilat kdo chce co chce. na druhou strnu kazdy SMTP server MUSI
umoznit prijem postu bez autenticifikace od kohokoliv, je-li zprava
urcena pro mistniho uzivatele. Jinak takovy server nemuze prijimat
postu z internetu!
Byva zvykem konfigurovat SMTP servery nasledujicim zpusobem:
- posta z venku pro mistniho uzivatele povolena.
- posta z danych IP adres povolena (IP jsou nastaveny pro mistni
uziovatele, aby mohli pohodlne odesilat cokoliv)
- Posta z jinych IP pro jine nez lokalni uzivatele je povolena pouze
po uspesnem prihlaseni. (zabraneni zneuziti)
Sprave reseni vaseho problemu vidim ve dvou vecech:
1. donutit spravce vaseho SMTP serveru, aby povolil vase IP adresy,
aby nebylo nutne prihlasovani
2. nakopat dodavatele te vasi knihovny, ze neumi neco tak zakladniho,
jako prihlasovani-se k SMTP.
> Omlouvam se za OT, ale potrebuji poradit od nejakeho SMTP guru ;-) Nas
> provider zavedl SMTP autentikaci, takze pred prihlasenim k SMTP
> serveru musime uvest login/heslo. Pro nase nedelphi vyvojove prostredi
> existuje knihovna pro prijem/odesilani emailu, pomoci ktere toto
> prihlaseni nelze provest (je mozne jen jednoduchy
> sendmail(smtp+port,hlavicka,zprava,prilohy)). Pri komunikaci se
> supportem jsem byl odkazan na to, ze problem je nekde v administraci
> mail serveru a ze mame od administratora ziskat nejaky specialni port
> pro odesilani emailu (?!). Tomu dost dobre nerozumim: pokud budu mit
> spesl port, kterym budu moct odeslat mail bez prihlaseni, tak k cemu
> je potom autentikace? Za 2.: ten port je predem specifikovany nebo to
> budu zadat u kazdeho mailserveru zvlast? Zatim mi to pride spise jako
> nedostatek te nasi knihovny (coz mi support nerekne) a rad bych v tom
> mel jasno.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Pocesteni aplikace
[*] Jiri Babka <jb_konf(zv)seznam(tec)cz> - 11.3.2003 15:07:12
Dobry den,
snazim se prijit na to, jak pocestit aplikaci, kterou delam v Delphi 6
Professional. Chtel bych napr. nahradit anglicke texty ve standardnich
dialozich z knihovny Dialogs.pas ceskymi. Poradite mi, jak na to? V prirucce
jsem nasel pouze zpusob, jak udelat prepinani jazyku za behu, ale to neni to
co chci. Nechci zadny soubor .CSY, ale aby to bylo primo v .EXE.
Dekuji za radu
Jiri Babka
Synapse - GetSubPart
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 11.3.2003 15:05:51
> 1. Pri rozhodovani, akym sposobom rozparsovat
> telo spravy, resp. jej jednotlive casti je
> treba vychadzat z obsahu vlastnosti Primary
> a Secondary v prislusnom TMimePart objekte.
prvni, podle ceho by ses mel rozhodovat je property PrimaryCode. To
ti urcuje druh dat, tedy jakasi interpretace primarniho mime typu.
muze nabyvat hodnot:
MP_TEXT - obsahuje text
MP_MULTIPART - obsahuje subparty
MP_MESSAGE - obsahuje kompletni jinou zpravu
MP_BINARY - obsahuje nejake binarni data
Temito ctyrmi typy jsi totiz schopen popsat vsechny mozne druhy dat.> 2. Text mailu (sprava) sa nachadza vzdy v prvej
> "sekcii", ak ide o MULTIPART sekciu (ala outlook)
> treba z nej vyextrahovat opat len jeho prvu cast.
Toto neni pravidlem! (jen zvyklost...) Textova cast se muze nachazet
kdekoliv.
> 3. Pri forwardovanej sprave moze byt prenasana sprava
> v jedinej "sekcii" typu MESSAGE/RFC822, po jej
> "rozbaleni" dostaneme jednotlive casti povodnej
> spravy. Plati to aj u viackrat forwardovanej spravy?
forwardovani probiha u ruznych postovnich lientu ruzne... nekter
puvodni zpravu prilozi jako MP_MESSAGE, jini nechaji pubvodni zpravu,
jen do textu pripisou,z e je to odforwardovano, jindy zase dojde k
odformwardovani, ale ve zpave se nzmeni nic, jen se doplni par
hlavicek.
V pripade nekolikanasobneho forwardovani dochazi k mixu vsehu vyse
uvedeneho.
> 4. Akykolvek subor mozno rozlisit podla toho, ze
> vlastnost Primary prislusneho TMimePartu je
> typu "APPLICATION".
Ne! Testuj to podle 'PrimaryCode = MP_BINARY'. Tim si osetris vsechny
mozne pripady.
Napriklad kdyz ti nekdo prilozi jako soubor obrazek, bude mit v mime
typu treba image/jpeg, nicmene bude v PrimaryCode oznacen jako
binarni.
> 5. Aky vyznam ma pouzitie PostPart a PrePart?
To ma vyznam pouze u multipartu.
Prepart je cast dopisu mezi hlavickami a parvnim multipart boundary.
Obvykle obsahuje text s informaci pro ty, kteri se na zpravu divaji
pres MIME nekompatibilni prohlizec. Takova ta obligatni hlaska: "toto
je zprava ve format MIME, blabla" jedna se tedy o text urceny tem,
kteri nemaji MIME prohlizec, aby nebyli vydeseni z toho, co na ne
vybaflo za smeti. MIME kompatibilni software ma tuto cast ignorovat,
ale to neznamena, ze bys s ni nemohl v synapsi pracovat. ;-)
Postpart je obdobne cas dopisu za posledni boundary do konce dopisu.
I tato cast ma byt MIME softem ignorovan. obcas je tam napsano neco
jako: "--- konec dopisu ---".
Nema to zadny prakticky vyznam. Snad jen ze jiste druhy viru
vyuzivali jednu dobu chyby v outlooku, ktery dokazal interpretovat
prilohu, i kdyz byla umistena v Postpartu, ackoliv ji mel ignorovat.
To byla vtipna finta, protoze existuje mnoho e-mail scanneru, ktere
ovsem cti MIME (narozdil od microsoftu), a tak postpart ignorovaly,
proto ten virus hladce prosel az k Outlooku. :-)
> 6. Ako som zistil, pouzitie RETR na nasom serveri
> sposobi zmazanie spravy. Ak si chcem spravu
> precitat bez toho, aby bola na serveri zmazana,
> pouzivam metodu TOP s dostatocne velkym argumentom
> (podla velkosti danej spravy). Je to korektne?
Ano, nekltere POP3 servery opravdu mazou zpravy jen ctenim, aniz by
cekaly na prikaz DELE. Osobne to nepovazuji za stastne reseni, a
primarne bych se snazil presvedcit administratora POP3 servru, aby se
zacal chovat standardne.
Obezlicka s TOP by mela ale fungovat.
> 7. Da sa zistit, ci sprava obsahuje urcitu prilohu
> bez toho, aby som stahoval zo servera komplet
> celu spravu?
Muzes maxmalne stahnout jen hlavicky (pres TOP), a podivat se na
hlavicku Content-type. podle toho poznas, jestli se jedna o text, o
binarni zpravu ci o multipart.
Chces-li vedet cokoliv vice,treba jestli ten m,ultipart obsahuje
tebou zadanou prilohu, pak MUSIS stahnout celou zpravu, protoze jinak
nebudes mit potrebne informace, ktere jsou roztrouseny po celem
dopisu.
> 8. Na postupne dekodovanie spravy som zvolil
> nasledovny postup:
> Head.DecodeHeaders ( Mess.Lines ); // dokoduje hlavicku
> Mess.DecodeMessage(); // dekoduje telo spravy
> Mess.MessagePart.DecomposeParts(); // "rozbalenie sekcii"
Tady staci volat pouze DecodeMessage. Ten ti zavola i
Mess.header.decodeheaders, zavola i ten decomposeparts!
Ve zbytku kodu zkus zapracovat poznatku sdelene vyse. ;-)
Jinak ja podobne veci resim tak, ze si udelam proceduru, kterou
priradim do Mess.Messagepart.OnWalkpart, a pak zavolam
Messagepart.Walkpart, a ta moje procedura je zavolana pro kazdou part
v dopise a nemusim nic rucne prochazet.
V te procedure se pak jen divam, jakeho je part typu, a kdyz je typu,
ktery mne zajima, tak si vytahnu obsah a neco s nim provedu. (treba
zavolam DecodePart, atd.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Variant or safe array is locked.
[*] Jarom�r �erm�k - 11.3.2003 14:52:54
Ahoj vsichni
Resim nasledujici problem a potreboval bych poradit. V programu napsanem
v D7 ukladam obsah ClientDatasetu na disk jako XML a stejne ho i ctu. Ve
firme chodi vse v poradku, ale u zakaznika se pri nacitani/ukladani
objevy vyse uvedena hlaska. Programy v D5 chodily dobre. Nevite nekdo co
mi tam chybi a jak to tam dostanu. Predem diky za jakykoliv napad.
Jaromir Cermak
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.2.2003
OT: Nejasnost kolem SMTP Autentikace
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 11.3.2003 14:13:34
Omlouvam se za OT, ale potrebuji poradit od nejakeho SMTP guru ;-)
Nas provider zavedl SMTP autentikaci, takze pred prihlasenim k SMTP serveru
musime uvest login/heslo. Pro nase nedelphi vyvojove prostredi existuje
knihovna pro prijem/odesilani emailu, pomoci ktere toto prihlaseni nelze
provest (je mozne jen jednoduchy
sendmail(smtp+port,hlavicka,zprava,prilohy)). Pri komunikaci se supportem
jsem byl odkazan na to, ze problem je nekde v administraci mail serveru a ze
mame od administratora ziskat nejaky specialni port pro odesilani emailu
(?!). Tomu dost dobre nerozumim: pokud budu mit spesl port, kterym budu moct
odeslat mail bez prihlaseni, tak k cemu je potom autentikace? Za 2.: ten
port je predem specifikovany nebo to budu zadat u kazdeho mailserveru
zvlast?
Zatim mi to pride spise jako nedostatek te nasi knihovny (coz mi support
nerekne) a rad bych v tom mel jasno.
Dik,
Roman
==============================
http://kouzelne.misto(tec)cz
Slozeny versus jednoduchy PK
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 11.3.2003 13:59:08
Miroslav Evjak dne 11 Mar 2003 v 12:53:
> Ahoj,
>
> pomohl by mi nazor z praxe:
> Je jednodussi prace se slozenym primarnim klicem (2 sloupce) nebo
> jednoduchym (1 sloupec) ?
Ahoj,
vyjadrim jen svuj nazor, poucne povidani jsem o tom moc necetl: pouzivam v podobnych pripadech
slozeny primarni klic, pripada mne o dost jednodussi pak vybrat jen ty zaznamy, ktere potrebujeme.
A po zkusenostech s lidmi na pobockach (maji obcas povahu experimentatoru) jsem rad, kdyz pripadne
problemy ovlivni jen jejich pobocku.
Je pravda, ze to trosku pridelava praci u joinu, zato se ale nestane, ze by v jedne ciselne rade
pribyly na pobockach doklady ci polozky ciselniku se stejnym cislem apod.
Karel Rys
DLL a access violation
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 11.3.2003 13:12:11
Nepomohlo to a nevim, co delam blbe. Poslal bych ti na tvuj mail vetsi kus
kodu z moji aplikace a jestli bys byl od ty dobroty a mrknul na to.....
Pokud ano, posli mi na zdenek(zv)gestore(tec)cz tvoji adresu a poslal bych to.
Diky moc Vlasta
> Muzes to zkusit nejak takhle:
>
> procedure abc;
> var
> Text : PChar;
> begin
> GetMem(Text, MaximalniDelkaTextu + 1);
> try
> ZavolejProcDll1(Text);
> ZavolejProcDll2(Text);
> finally
> FreeMem(Text, MaximalniDelkaTextu + 1);
> end;
> end;
>
> Nekdy je lepsi pouzit array [0..MaximalniDelkaTextu] of char, kde nemusis
> nic alokovat a uvolnovat, ale zase mas predem danou maximalni delku.
>
> Jarda
>
>OT: Praci programatora v Delphi
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 11.3.2003 12:36:46
Zdravim konferu
omlouvam se za offtopic. Ale kamarad zhani praci programatora v DELPHI
pokud by jste negdo vedel tak prosim na muj mail
vymazal.milan(zv)seznam(tec)cz ja mu to preposlu. Diky moc
Praxe a znalosti: Praxe pri vyvoji 2 roky. Znalosti komunikacnich
protokolu, ADODB, bezpecnost, internet, PPP, systemove veci,
ISAPI filtery, COM compnenty, procedurove moduly pro MSSQL
moduly pro Apache. Znalosti SQL,PHP, ASP,ASP.NET a MSSQL.
Lokalita: Okoli brna
format spoluprace: zivnostensky list.
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Slozeny versus jednoduchy PK
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 11.3.2003 12:53:46
Ahoj,
pomohl by mi nazor z praxe:
Je jednodussi prace se slozenym primarnim klicem (2 sloupce) nebo
jednoduchym (1 sloupec) ?
Konkretne:
ID - autoincrement (generator): cislo zaznamu napr. 10
DATA - CHAR(3): puvod vety napr. 'JBC'
nebo
ID - CHAR(10): oboji najednou napr. JBC0000010
Poznamka:
smyslem sloupce DATA je moznost replikace dat (pokud zakaznika nepresvedc=
im,
ze dnes neni problem vzdaleny pristup do DB).
Databaze InterBase/FireBird.
Diky.
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.02.2003
Oracle & BDE, TStoredProc
[*] Ivan Virag <lgcvirag(zv)iol(tec)cz> - 11.3.2003 12:42:53
Jo aha. J=E1 jsem m=ECl ten sam=FD probl=E9m a pokud si pamatuju, ono to =
mam pocit
chod=ED, ale neobjevuj=ED se napriklad automaticky parametry. Uz si to al=
e uplne
nepamatuju. Fakt je ten, ze ted to take volam i se schematem, coz me urci=
tym
zpusobem omezuje napriklad pri testovani. Pokud by se ti podarilo neco
zjistit, dej prosimte vedet.
ivan virag
>V samotnem synonymu problem neni. SP mohu spustit bez problemu napr. v
>SQL Plus. Ale problem je v komponente TStoredProc, kde to lze pouze se
>schematem. StoredProcName =3D <owner_schema_name>.<stored_proc_name>
Libor Filip
Zmena InterBase -> Firebird
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 11.3.2003 12:38:55
Ahoj,
mam databazi vytvorenou v InterBase6. Je mozne ji beze zmeny pouzit ve
FireBirdu 1.xx (samozrejme cestou Backup/Restore), nebo to obnasi nejake
problemy a upravy v databazi?
Dik za rady.
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.02.2003
DLL a access violation
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 11.3.2003 12:48:35
> Aha, tak asi v tom bude problem - zadnou alokaci a uvolnovani
neprovadim....
> Mozna to bude tim, ze nevim ani poradne jak...
> Mohl bych poprosit o nejaky strucny prikladek se SPRAVNYM pouzitim PCharu
s
> DLL? Dekuji...
>
Muzes to zkusit nejak takhle:
procedure abc;
var
Text : PChar;
begin
GetMem(Text, MaximalniDelkaTextu + 1);
try
ZavolejProcDll1(Text);
ZavolejProcDll2(Text);
finally
FreeMem(Text, MaximalniDelkaTextu + 1);
end;
end;
Nekdy je lepsi pouzit array [0..MaximalniDelkaTextu] of char, kde nemusis
nic alokovat a uvolnovat, ale zase mas predem danou maximalni delku.
Jarda
Oracle & BDE, TStoredProc
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 11.3.2003 12:24:29
V samotnem synonymu problem neni. SP mohu spustit bez problemu napr. v
SQL Plus. Ale problem je v komponente TStoredProc, kde to lze pouze se
schematem. StoredProcName = <owner_schema_name>.<stored_proc_name>
Libor Filip
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ivan Virag
Sent: Tuesday, March 11, 2003 11:32 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Oracle & BDE, TStoredProc
to synonymum musi byt vytvoreno takto:
create public synonym <stored_proc_name> for
<owner_schema_name>.<stored_proc_name>
Potom to v kazdem pripade musi chodit.
Ivan Virag
Synapse - GetSubPart
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 11.3.2003 12:02:27
Je to trivialna chyba, uvedomil som si to, az ked
mail dorazil do konferencie.
Dovolim si ale este jeden (dufam) maly dotaz.
Sposob, akym su zlozene spravy sa podla vsetkeho lisi
v zavislosti od klienta, ktory ich odosiela.
Vo svojej aplikacii potrebujem spravit automat na
prijmanie sprav, rozbalovanie priloh a ich spracovanie.
Primarne ma zaujimaju subory prilozene k sprave, ale
tiez aj obsah samotnej spravy v plain texte.
Osetrenie vsetkych moznych situacii asi nebude
mozne, skusam preto roznych klientov a rozne
sposoby posielania. V tejto suvislosti potrebujem
potvrdit resp. vyvratit nasledovne tvrdenia:
1. Pri rozhodovani, akym sposobom rozparsovat
telo spravy, resp. jej jednotlive casti je
treba vychadzat z obsahu vlastnosti Primary
a Secondary v prislusnom TMimePart objekte.
2. Text mailu (sprava) sa nachadza vzdy v prvej
"sekcii", ak ide o MULTIPART sekciu (ala outlook)
treba z nej vyextrahovat opat len jeho prvu cast.
3. Pri forwardovanej sprave moze byt prenasana sprava
v jedinej "sekcii" typu MESSAGE/RFC822, po jej
"rozbaleni" dostaneme jednotlive casti povodnej
spravy. Plati to aj u viackrat forwardovanej spravy?
4. Akykolvek subor mozno rozlisit podla toho, ze
vlastnost Primary prislusneho TMimePartu je
typu "APPLICATION".
5. Aky vyznam ma pouzitie PostPart a PrePart?
6. Ako som zistil, pouzitie RETR na nasom serveri
sposobi zmazanie spravy. Ak si chcem spravu
precitat bez toho, aby bola na serveri zmazana,
pouzivam metodu TOP s dostatocne velkym argumentom
(podla velkosti danej spravy). Je to korektne?
7. Da sa zistit, ci sprava obsahuje urcitu prilohu
bez toho, aby som stahoval zo servera komplet
celu spravu?
8. Na postupne dekodovanie spravy som zvolil
nasledovny postup:
var
POP3: TPOP3Send;
Head: TMessHeader;
Mess: TMIMEMess;
SrcPart,Part: TMimePart;
...
POP3.Top ( MsgIndex, MsgSize );
Mess.Clear();
Mess.Lines.Assign ( POP3.FullResult );
Head.DecodeHeaders ( Mess.Lines ); // dokoduje hlavicku
Mess.DecodeMessage(); // dekoduje telo spravy
Mess.MessagePart.DecomposeParts(); // "rozbalenie sekcii"
SrcPart := Mess.MessagePart;
// ide o forwardovanu spravu?
if ( SrcPart.Primary = 'MESSAGE' ) and
( SrcPart.Secondary = 'RFC822' ) and
( SrcPart.GetSubPartCount() = 1 ) then
begin
// nastavi SrcPart na vlastny obsah
SrcPart := SrcPart.GetSubPart ( 0 );
// ak ide len o forwardovany prosty text
if SrcPart.GetSubPartCount() = 0 then
SrcPart := Mess.MessagePart; // naspat
end;
...
for i := 0 to SrcPart.GetSubPartCount() - 1 do
begin
Part := SrcPart.GetSubPart ( i );
... spracovanie prislusnej casti spravy
Povodne som to zacal vyvijat na predoslej verzii Synapse,
az pri hladani riesenia prvych problemov som natrafil
na http://groups.yahoo.com/group/synalist/ kde som
sa nieco priucil a ktora ma insporovala prejst na
novu verziu, kde je problematika parsovania sprav
prepracovana.
Vdaka za kazdu odpoved.DLL a access violation
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 11.3.2003 11:55:47
Aha, tak asi v tom bude problem - zadnou alokaci a uvolnovani neprovadim....
Mozna to bude tim, ze nevim ani poradne jak...
Mohl bych poprosit o nejaky strucny prikladek se SPRAVNYM pouzitim PCharu s
DLL? Dekuji...
> > S PChary se menipuluje. Posilam si kazdy Result z DLL function do
> Memo.Lines
> > pres Memo.Lines.Add(Result). Ze by to vadilo? Vyhybam se stringum (dle
> > vrelych doporuceni z konference) a pouzivam JEN PChar.
> > Zarazi me, ze i obycejne naplneni editu pak padne na access
violation....
>
> To, ze pouzivas PChary je v poradku. Problem spis bude ve zpusobu jejich
> pouziti. Jak je alokujes a uvolnujes?
>
> Jarda
>
>
>DLL a access violation
[*] Ji�� Mat�jka�����^�F�צ����̿ - 11.3.2003 11:57:32
A mas v uses ShareMem (na prvnim miste) a na ceste borlndmm.dll? Nemusi t=
o
byt vzdy, ale jenom kdyz jsou predavane parametry urcitych typu (stringy.=
..)
Jirka Matejka
----- Original Message -----
From: "Vlastimil Zden=ECk" <delphi(zv)gestore(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 11, 2003 9:12 AM
Subject: DLL a access violation
> Zdravim,
> prosil bych o radu s docela (pro me :)) dobrou zahadou.
> V me aplikaci pouzivam DLL. Na stisk prvniho tlacitka si DLL otevru a
> provedu prvni fci z DLL. Na stisk druheho tlacitka pouziju handle DLL z
> prvniho nacteni (ulozen v private promenych) a provedu druhou fci z DLL.
Vse
> je OK. Pokud ale pod treti tlacitko dam volani prvni i druhy funkce z D=
LL
> dojde k vyjimce: access violation blabla read of address bla bla!
> Takze nevite co s tim? Ma se neco po kazdem zavolani DLL uvolnit? Proc =
to
> funguje "rucne" a nejde TO SAME zavolat za sebou??
>
> Diky za kazdou radu a popichnuti
> Vlasta
> D5 Ent, WNT, W98
>
>
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 26.2.2003
DLL a access violation
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 11.3.2003 11:47:19
> S PChary se menipuluje. Posilam si kazdy Result z DLL function do
Memo.Lines
> pres Memo.Lines.Add(Result). Ze by to vadilo? Vyhybam se stringum (dle
> vrelych doporuceni z konference) a pouzivam JEN PChar.
> Zarazi me, ze i obycejne naplneni editu pak padne na access violation....
To, ze pouzivas PChary je v poradku. Problem spis bude ve zpusobu jejich
pouziti. Jak je alokujes a uvolnujes?
Jarda
Oracle & BDE, TStoredProc
[*] Ivan Virag <lgcvirag(zv)iol(tec)cz> - 11.3.2003 11:31:41
to synonymum musi byt vytvoreno takto:
create public synonym <stored_proc_name> for
<owner_schema_name>.<stored_proc_name>
Potom to v kazdem pripade musi chodit.
Ivan Virag
>Zdravim konferenci,
> mam vytvoren Public Synonym na Stored proceduru z jineho schematu nez
>ke kteremu jsem prihlasen. Tuto SP mohu zavolat pouze s uvedenim schematu.
>Lze to nejak obejit?
>D5, Oracle 8.1.5.
DLL a access violation
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 11.3.2003 11:09:18
CoInitialize se vysvetlilo - moje chyba, pouzivam v DLL ADOQuery a mel jsem
spatne ConnectionString... :).
S PChary se menipuluje. Posilam si kazdy Result z DLL function do Memo.Lines
pres Memo.Lines.Add(Result). Ze by to vadilo? Vyhybam se stringum (dle
vrelych doporuceni z konference) a pouzivam JEN PChar.
Zarazi me, ze i obycejne naplneni editu pak padne na access violation....> > > Result := MaProc(Hwnd,Param);
> >
> > A jak tvoris ten Param, co predavas do knihovny?
>
> a jeste - dochazi k nejake manipulaci s temi PChary (i te v resultu )
> ??
>
> Ta hlaska s CoInitialize je taky zajimava - pouzivas (i v knihovne)
> nejake OLE atd?
>
> D. Toman
>
>
>Oracle & BDE, TStoredProc
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 11.3.2003 10:59:41
Zdravim konferenci,
mam vytvoren Public Synonym na Stored proceduru z jineho schematu nez
ke kteremu jsem prihlasen. Tuto SP mohu zavolat pouze s uvedenim schematu.
Lze to nejak obejit?
D5, Oracle 8.1.5.
DLL a access violation
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.3.2003 10:56:03
> > Result := MaProc(Hwnd,Param);
>
> A jak tvoris ten Param, co predavas do knihovny?
a jeste - dochazi k nejake manipulaci s temi PChary (i te v resultu )
??
Ta hlaska s CoInitialize je taky zajimava - pouzivas (i v knihovne)
nejake OLE atd?
D. Toman
Jak jednoduse zakodovat heslo v INI souboru
[*] Delphin <delphin(zv)post(tec)cz> - 11.3.2003 10:50:08
> potrebuji si ulozit heslo v INI soboru.
Nejjednodussi je ulozit jeden zaxorovany znak do dvou znaku. Prvni byte
128+(Data and $f), druhy byte 128+((Data and $f0) shr 4)
DLL a access violation
[*] Jaroslav Bu�ek <bucek(zv)eskon(tec)cz> - 11.3.2003 10:39:59
> Result := MaProc(Hwnd,Param);
A jak tvoris ten Param, co predavas do knihovny?
Jarda
DLL a access violation
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 11.3.2003 10:18:22
kousek kodu:
Hwnd je jako private promena v aplikaci
Knihovnu loudim po zjisteni parametru aplikace pouze jednou na zacatku a
uvolnuji se zarenim aplikace
Vstupni a vystupni parametry jsou vzdy PChary.
Hwnd :=
LoadLibrary(PChar(ExtractFilePath(Application.Exename)+'Dll\moje.dll'));
pak uz jen pres ProcName volam funkce z knihovny
var
MaProc : function(Hwnd:THandle;Parametr:PChar):PChar; stdcall;
if (Hwnd>32)
then
begin
(zv)MaProc := GetProcAddress(Hwnd,ProcName);
if ((zv)MaProc<>nil)
then
begin
Result := MaProc(Hwnd,Param);
end
end
Prvni pruchod po naloudeni knihovny OK, ale druhy uz ne. Dokonce nelze ani
po prvnim pruchodu naplnit obycejny Edit nejakym textem.
Problem bude asi s pristupem do pameti, ale nemuzu na to prijit.......:((
>
> > Zdravim,
> > prosil bych o radu s docela (pro me :)) dobrou zahadou.
> > V me aplikaci pouzivam DLL. Na stisk prvniho tlacitka si DLL otevru
> a
> > provedu prvni fci z DLL. Na stisk druheho tlacitka pouziju handle
> DLL z
> > prvniho nacteni (ulozen v private promenych) a provedu druhou fci z
> DLL. Vse
> > je OK. Pokud ale pod treti tlacitko dam volani prvni i druhy funkce
> z DLL
> > dojde k vyjimce: access violation blabla read of address bla bla!
> > Takze nevite co s tim? Ma se neco po kazdem zavolani DLL uvolnit?
> Proc to
> > funguje "rucne" a nejde TO SAME zavolat za sebou??
>
> zrejme nejakej problem s volanim tech funkci. Predavani argumentu ci
> navratovych hodnot jemozna nejak spatne. Mozna ta DLL nejak nevhodne
> manipuluje s pameti...
> Jake typy parametru se predavaji? Jake typy navratove hodnoty?
>
> Posli ukazku kodu
>
> D> Toman
>
>
>Synapse - GetSubPart
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 11.3.2003 10:09:34
Jak proste! ;-)
Cislovani subpartu totiz neni od 1, ale od 0. (podobne jako treba
stringy ve TStringList)
Takze vrati-li ti getSubParthodnotu 1, znamena to, ze mas pouze jeden
subpart, a to s indexem 0! Zkus tedy GetSubPart(0). Kdyby ten
getsubpartcount vratil 2, pak bys bel dva subparty s indexem 0 a 1.
Ty ses pokousel zjistit subpart, ktery neexistuje, proto ti to
vratilo nil.
> snazim sa vyrobit jednoducheho POP3 klienta,
> s vyuzitim kniznice L.Gebauera - Synapse.
> Natrafil som vsak na problem pri dekodovani
> spravy, ktora bola forwardovana.
> Metoda GetSubPart(1) mi vzdy vracia prazdny
> ukazatel (nil), hoci GetSubPartCount = 1.
> Nevie niekto - Lukas ;-) poradit, ako sa dostanem
> k jednotlivym castiam forwardovaneho mailu?
> Za pripadnu pomoc vdaka.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Sloupce SELECT
[*] Ivan Virag <lgcvirag(zv)iol(tec)cz> - 11.3.2003 09:02:44
>poradte prosim, jak do dotazu SELECT zaradit sloupce, ktere se duchaplne
>jmenuji MIN a MAX.
Opet chybi zminka o typu databaze.
na Oracle jsem si udelal tabulku
create table test
(min number
,max number);
a potom jsem vybral polozky prikazem
select min, max from test;
Vsechno mi fungovalo bez problemu.
ivan virag
DLL a access volation
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 11.3.2003 09:58:22
jeste dodatek:
Delphi hlasi chybu: "nebylo zavolano CoInitialize" a program pak "exception
EOleSysError in module" a ukazuje na knihovnu....DLL a access violation
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 11.3.2003 09:12:46
Zdravim,
prosil bych o radu s docela (pro me :)) dobrou zahadou.
V me aplikaci pouzivam DLL. Na stisk prvniho tlacitka si DLL otevru a
provedu prvni fci z DLL. Na stisk druheho tlacitka pouziju handle DLL z
prvniho nacteni (ulozen v private promenych) a provedu druhou fci z DLL. Vse
je OK. Pokud ale pod treti tlacitko dam volani prvni i druhy funkce z DLL
dojde k vyjimce: access violation blabla read of address bla bla!
Takze nevite co s tim? Ma se neco po kazdem zavolani DLL uvolnit? Proc to
funguje "rucne" a nejde TO SAME zavolat za sebou??
Diky za kazdou radu a popichnuti
Vlasta
D5 Ent, WNT, W98
DLL a access violation
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.3.2003 09:48:43
> Zdravim,
> prosil bych o radu s docela (pro me :)) dobrou zahadou.
> V me aplikaci pouzivam DLL. Na stisk prvniho tlacitka si DLL otevru
a
> provedu prvni fci z DLL. Na stisk druheho tlacitka pouziju handle
DLL z
> prvniho nacteni (ulozen v private promenych) a provedu druhou fci z
DLL. Vse
> je OK. Pokud ale pod treti tlacitko dam volani prvni i druhy funkce
z DLL
> dojde k vyjimce: access violation blabla read of address bla bla!
> Takze nevite co s tim? Ma se neco po kazdem zavolani DLL uvolnit?
Proc to
> funguje "rucne" a nejde TO SAME zavolat za sebou??
zrejme nejakej problem s volanim tech funkci. Predavani argumentu ci
navratovych hodnot jemozna nejak spatne. Mozna ta DLL nejak nevhodne
manipuluje s pameti...
Jake typy parametru se predavaji? Jake typy navratove hodnoty?
Posli ukazku kodu
D> Toman
Synapse - GetSubPart
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 11.3.2003 09:47:37
Ahoj,
snazim sa vyrobit jednoducheho POP3 klienta,
s vyuzitim kniznice L.Gebauera - Synapse.
Natrafil som vsak na problem pri dekodovani
spravy, ktora bola forwardovana.
Metoda GetSubPart(1) mi vzdy vracia prazdny
ukazatel (nil), hoci GetSubPartCount = 1.
Nevie niekto - Lukas ;-) poradit, ako sa dostanem
k jednotlivym castiam forwardovaneho mailu?
Za pripadnu pomoc vdaka.
Pouziti DLL
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 11.3.2003 09:09:58
> chtel bych ve sve aplikaci pouzit DLL, ale chtel bych
> to udelat tak, aby ta aplikace bezela i bez ni s tim,
> ze by byly jiste funkce souvisejici s tou dll
> nepristupne.
Na dynamicke natahovanie DLL pouzi LoadLibrary a GetProcAddress (na
uvolnenie potom FreeLibrary).
LoadLibrary vrati chybovy kod, ak ta DLL nie je najdena, a podla toho mozes
aktivovat/deaktivovat prvky uzivatelskeho rozhrania.
var
MyDLL: HMODULE = 0;
MyFunc1: function(X, Y: Integer): Integer; stdcall = nil;
MyFunc2: procedure(X, Y: Integer); stdcall = nil;
initialization
MyDLL := LoadLibrary('mydll.dll');
if MyDLL <> 0 then
begin
(zv)MyFunc1 := GetProcAddress(MyDLL, 'MyFunc1');
(zv)MyFunc2 := GetProcAddress(MyDLL, 'MyFunc2');
end;
finalization
if MyDLL <> 0 then
FreeLibrary(MyDLL);
end.
V tomto priklade by ta aktivacia uzivatelskych prvkov mohla vyzerat
napriklad takto (s pouzitim TAction):
ActionMyFunc1.Enabled := Assigned((zv)MyFunc1);
HTH
Chyba z WinInet pomoci FormatMessage
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 11.3.2003 09:31:45
Taky jsem to resil, tady je vysledek:
unit WinINetErr;
interface
uses
Windows, WinINet, SysUtils;
// prevede ErrorCode na string
function WinINetErrorMessage(ErrorCode: Integer): string;
// z konce hlaseni odstrani mezery a tecku
function ClearSysMessage(S: string): string;
implementation
resourcestring
sUnknownWinINetErr =3D 'Chyba knihovny WinINet =C0=DDslo %d';
sErrIConnAbort =3D 'P=B0ipojen=DD k internetu bylo p=B0eru=DCen=
o';
sErrIConnReset =3D 'P=B0ipojen=DD k internetu bylo p=B0eru=DCen=
o';
{ System error messages }
function ClearSysMessage(S: string): string;
begin
while (Length(S) > 0) and (S[Length(S)] in [#0..#32, '.']) do
SetLength(S, Length(S) - 1);
Result :=3D S;
end;
// moje doplneni nekterych chybovych kodu
function WinINetCustMessage(ErrorCode: integer): string;
begin
case ErrorCode of
ERROR_INTERNET_CONNECTION_ABORTED: Result :=3D sErrIConnAbort;
ERROR_INTERNET_CONNECTION_RESET: Result :=3D sErrIConnReset;
else
Result :=3D Format(sUnknownWinINetErr, [ErrorCode]);
end; // case
end; // func
function WinINetErrorMessage(ErrorCode: Integer): string;
var
ModuleHandle: HModule;
Len: Integer;
Buffer: array[0..255] of Char;
begin
ModuleHandle :=3D GetModuleHandle('wininet');
Len :=3D FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_ARGUMENT_ARRAY or FORMAT_MESSAGE_FROM_HMODULE,
pointer(ModuleHandle), ErrorCode, LOCALE_USER_DEFAULT, Buffer,
SizeOf(Buffer), nil);
SetString(Result, Buffer, Len);
Result :=3D ClearSysMessage(Result);
if Result =3D '' then
Result :=3D WinINetCustMessage(ErrorCode);
end;
Jan K=F8=ED=BEek wrote:
> =
> Zdravim,
> =
> chtel bych zobrazit chybovou hlasku k chybe z GetLastError(), kterou
> nastavi funkce z knihovny WinInet. Kdyz se vola FormatMessage, tak jak
> je to v SysUtils.SysErrorMessage, tak se mi zadna hlaska nevrati.
> =
> Je tedy treba predat handle na WinInet.dll. Ale kde jej mam vzit, kdyz
> knihovnu nelinkuji dynamicky, ale pouze diky uses WinInet. Mam presto
> volat LoadLibrary('wininet') a tak ziskat handle?
> =
> Honza +
-- =
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
MS SQL 7 a IIF
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 11.3.2003 09:23:34
----- Original Message -----
From: "Viliam Mlich" <mlich1(zv)volny(tec)cz>
> ACCESSu nahradit IIF:
>
> SELECT INT(VYROBENO-(1/4))*3 + (Frac(VYROBENO) * IIF(
> DayOfWeek(VYROBENO)=1 OR DayOfWeek(VYROBENO)=7, 2,3)) AS SMENA ...
> GROUP BY SMENA ...
Ahoj.
Co treba
SELECT INT(VYROBENO-(1/4))*3 + (Frac(VYROBENO) *
case when DayOfWeek(VYROBENO)=1 then 2
when DayOfWeek(VYROBENO)=7 then 3
end AS SMENA ...
GROUP BY SMENA ...
Mozna by to mohlo fungovat (nevim jestli podle toho pujde grupovat)
Ludek
Jak jednoduse zakodovat heslo v INI souboru
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 11.3.2003 09:16:01
> potrebuji si ulozit heslo v INI soboru. Samozrejme nechci, aby si ho
> mohl precist jakykoliv uzivatel a tak bych ho potreboval zakodovat.
> Umim udelat XOR, problemem je, ze vysledek nesmi obsahovat znaky pod
> #32. Muzete mi nekdo poradit? --
V cem je problem? Libovolne binarni data (tedy i znaky pod #32) muzes
preci zakodovat. To zakodovane heslo preci muzes do toho Ini ulozit
treba v hexadecimalni forme, nebo treba v base64 kodu...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Jak jednoduse zakodovat heslo v INI souboru
[*] Petr Langer <langer(zv)xdom(tec)cz> - 11.3.2003 09:12:29
A potrebujes to heslo zpatky dekodovat do originalni podoby?
Paklize ne, pouzij hash (napr SHA1), kde pak pri prihlasovani spocitas hash
zadaneho hesla a porovna s tim v ini.
Jinak pouzij nejakou jednoduchou symerickou sifru. Komponent se na to na
webu vali spousta.
HTH
Petr Langer
----- Original Message -----
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
Subject: Jak jednoduse zakodovat heslo v INI souboru
> Ahoj,
> potrebuji si ulozit heslo v INI soboru. Samozrejme nechci, aby si ho
> mohl precist jakykoliv uzivatel a tak bych ho potreboval zakodovat. Umim
> udelat XOR, problemem je, ze vysledek nesmi obsahovat znaky pod #32.
> Muzete mi nekdo poradit?
> --
Jak jednoduse zakodovat heslo v INI souboru
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 11.3.2003 09:05:03
tak si urob nejaku prevodnu tabulku ascii znakov t.j. napr. cez pole,
kde indexy budu reprezentovat ciselny kod ascii znaku
joka
--------------------------------------------
Ing. Jozef Kalus=09
=A5. =A9t=FAra 17/28
018 61 BELU=A9A
Mob.: 0905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
web: http://www.equipment.sk
-----Original Message-----
From: Karel Kral [mailto:kralkonf(zv)purus(tec)cz]=20
Sent: Tuesday, March 11, 2003 9:01 AM
To: Konference Delphi
Subject: Jak jednoduse zakodovat heslo v INI souboru
Ahoj,=20
potrebuji si ulozit heslo v INI soboru. Samozrejme nechci, aby si ho
mohl precist jakykoliv uzivatel a tak bych ho potreboval zakodovat. =
Umim
udelat XOR, problemem je, ze vysledek nesmi obsahovat znaky pod #32.=20
Muzete mi nekdo poradit?
--=20
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
Pouziti DLL
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 11.3.2003 08:58:31
Koukni se na API fce LoadLibrary a GetProcAddress.
LoadLibrary ti nacte tu DLL a GetProcAddress ti vrati adresu te fce z te
DLL.
Libor
From: "Dalibor" <dalibor(zv)torola(tec)cz>
Sent: Tuesday, March 11, 2003 8:40 AM
> chtel bych ve sve aplikaci pouzit DLL, ale chtel bych to udelat tak, aby
ta
> aplikace bezela i bez ni s tim, ze by byly jiste funkce souvisejici s tou
> dll nepristupne.
Jak jednoduse zakodovat heslo v INI souboru
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 11.3.2003 09:07:17
Ahoj,
koukni na toto:
function Crypt_Text(Text, Klic : String) : String;
var
KeyLen : Integer;
KeyPos : Integer;
offset : Integer;
Dest : string;
SrcPos : Integer;
SrcAsc : Integer;
Range : Integer;
begin
if Trim(Text) =3D ''
then begin
Result :=3D '';
Exit;
end;
Dest :=3D '';
KeyLen :=3D Length(Klic);
KeyPos:=3D0;
Range:=3D256;
offset:=3DRandom(Range);
dest:=3Dformat('%1.2x',[offset]);
for SrcPos :=3D 1 to Length(Text)
do begin
SrcAsc:=3D(Ord(Text[SrcPos]) + offset) MOD 255;
if KeyPos < KeyLen
then KeyPos:=3D KeyPos + 1
else KeyPos:=3D1;
SrcAsc:=3D SrcAsc xor Ord(Klic[KeyPos]);
try
Dest :=3D Dest + Format('%1.2x',[SrcAsc]);
except
Dest :=3D 'error';
Break;
end;
Offset :=3D SrcAsc;
end;
Result :=3D Dest;
end;
function UnCrypt_Text(Text, Klic : String) : String;
var
KeyLen : Integer;
KeyPos : Integer;
offset : Integer;
dest : string;
SrcPos : Integer;
SrcAsc : Integer;
TmpSrcAsc : Integer;
begin
Text :=3D Trim(Text);
if Trim(Text) =3D ''
then begin
Result :=3D '';
Exit;
end;
try
Dest :=3D '';
KeyLen :=3D Length(Klic);
KeyPos :=3D 0;
offset :=3D StrToInt('$'+ copy(Text,1,2));
SrcPos :=3D 3;
try
repeat
SrcAsc:=3DStrToInt('$'+ copy(Text,SrcPos,2));
if KeyPos < KeyLen
then KeyPos :=3D KeyPos + 1
else KeyPos :=3D 1;
TmpSrcAsc :=3D SrcAsc xor Ord(Klic[KeyPos]);
if TmpSrcAsc <=3D offset
then TmpSrcAsc :=3D 255 + TmpSrcAsc - offset
else TmpSrcAsc :=3D TmpSrcAsc - offset;
Dest :=3D Dest + Chr(TmpSrcAsc);
Offset :=3D SrcAsc;
SrcPos :=3D SrcPos + 2;
until SrcPos >=3D Length(Text);
except
Dest :=3D 'error';
end;
Result :=3D Dest;
except
Result :=3D 'error';
end;
end;
Ales
> -----Original Message-----
> From: Karel Kral [mailto:kralkonf(zv)purus(tec)cz]=20
>=20
> Ahoj,=20
> potrebuji si ulozit heslo v INI soboru. Samozrejme nechci, aby si ho
> mohl precist jakykoliv uzivatel a tak bych ho potreboval=20
> zakodovat. Umim
> udelat XOR, problemem je, ze vysledek nesmi obsahovat znaky pod #32.=20
> Muzete mi nekdo poradit?
> --=20
> ______________________________________________________
> Karel Kral, vedouci odd. IT / IT manager
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 547 235 000, 602 552 432, Fax: 547 231 203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>=20
Jak jednoduse zakodovat heslo v INI souboru
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 11.3.2003 09:01:17
Ahoj,
potrebuji si ulozit heslo v INI soboru. Samozrejme nechci, aby si ho
mohl precist jakykoliv uzivatel a tak bych ho potreboval zakodovat. Umim
udelat XOR, problemem je, ze vysledek nesmi obsahovat znaky pod #32.
Muzete mi nekdo poradit?
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Pouziti DLL
[*] Ing. Jan Dubsk� - Stroj�rna P�lava <dubsky(zv)s-palava(tec)cz> - 11.3.2003 08:58:53
Omlouvam se za blabol, ale neumim cist. DLL a DDE vypada podobne, ale je
to neco jineho.
>Otestuj si jestli doslo k propojeni aplikaci a podle toho pak nastavis
>souvisejici funkce nebo ENABLED tlacitka, kter=E9 to spousteji.
>Test :=3D DdeClientConv1.OpenLink;
>Honza
>Ahoj,
>chtel bych ve sve aplikaci pouzit DLL, ale chtel bych to udelat tak,=20
>aby ta
>aplikace bezela i bez ni s tim, ze by byly jiste funkce souvisejici s
tou=20
>dll nepristupne.
Pouziti DLL
[*] Ing. Jan Dubsk� - Stroj�rna P�lava <dubsky(zv)s-palava(tec)cz> - 11.3.2003 08:56:04
Otestuj si jestli doslo k propojeni aplikaci a podle toho pak nastavis
souvisejici funkce nebo ENABLED tlacitka, kter=E9 to spousteji.
Test :=3D DdeClientConv1.OpenLink;
Honza
>Ahoj,
>chtel bych ve sve aplikaci pouzit DLL, ale chtel bych to udelat tak,
aby ta=20
>aplikace bezela i bez ni s tim, ze by byly jiste funkce souvisejici s
tou=20
>dll nepristupne.
Pouziti DLL
[*] Dalibor <dalibor(zv)torola(tec)cz> - 11.3.2003 08:40:54
Ahoj,
chtel bych ve sve aplikaci pouzit DLL, ale chtel bych to udelat tak, aby ta
aplikace bezela i bez ni s tim, ze by byly jiste funkce souvisejici s tou
dll nepristupne.
Sloupce SELECT
[*] Franti�ek Ml�och <frantisek.mlcoch(zv)vsb(tec)cz> - 11.3.2003 08:17:43
Je sice pravda,ze stejne se jmenuji i agregacni funkce,ale ty se v SQL
dotazu zapisuji jinak. Musi se jim specifikovat argument a to je nazev
sloupce:
SELECT a.pol1, MIN(a.pol2) FROM a
Dobry SQL server by nemel chapat zapis:
SELECT a.pol1, a.MIN FROM a
jako pouziti agregacni funkce. A pokud to tak chape asi by bylo lepsi zvolit
jiny.
Jeste muzete zkusit jednu moznost a to zapsat nazev do hranatych zavorek.
SELECT a.pol1, a.[MIN] FROM a
F.
PackTable pro FF2
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 11.3.2003 07:46:47
Zdravim,
>Asi to pak hned otevres a necekas, az to prejmenuje po packovani...
no zde problem neni. Pouzivam Pack takhle:
dle helpu pouzivam tuto formuli:
ffdbbase.Check(Table.PackTable(TaskID));
....
ale pada to hlaskou:
Chyba: Debuger Exception Notification
Popis: Projekt Program.exe raised exception class EffException with message
'Timed out waiting for reply'. Process stoped. Use Step or Run to continue.
tato chyba vznikne v souboru: ffsrpack.inc
ve funkci:
function TffServerEngine.TablePack(aDatabaseID : TffDatabaseID;
const aTableName : TffTableName;
var aRebuildID : LongInt): TffResult;
na radku:
Result := TableOpen(rpDB.DatabaseID,
aTableName, False, '', 0, omReadWrite,
smExclusive, DB.Timeout, CursorID, nil);
Kde ksakru delam chybu.
Diky za pomoc Pavel ZIDEK
> omlouvam se za mirny O.T. ale potrebuji udelat PackTable pro FF2. Dle
> helpu mi tato metoda nefunguje - padne to chybovou hlaskou. Podotykam, ze
> tabulky pouzivam v SINGLE rezimu - tzn. bez ffServeru.
OT:Umisteni sablony IE pro Print&Preview
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 11.3.2003 07:41:13
Ahoj,
nevite nekdo, odkud si IE taha sablonu pro nahled a tisk stranek?
Roman
Sloupce SELECT
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.3.2003 07:30:24
> poradte prosim, jak do dotazu SELECT zaradit sloupce, ktere se
> duchaplne jmenuji MIN a MAX. Zkousel jsem neco jako:
>
> SELECT a.polozka1, a.polozka2, a."MIN", a."MAX"
> FROM tabulka a
>
> a ruzne jine varianty s uvozovkami. Vse marne. MIN a MAX asi chape
> jako agregacni fce. Proste se nedari.
Ahoj,
min a max jsou opravdu agregacni funkce a takhle to proto nejde. Vysledkem min a
max je jedno cislo. TO se ma opisovat stale stejne do vsech radku v selectu?
1) Bud pouzit group by a.polozka1, a.polozka2
2) Nebo dva dotazy - jeden na polozky, jeden na to min a max.
Sloupce SELECT
[*] Ing. Zden�k �ezn��ek - 11.3.2003 01:13:34
Zdravim vsechny program=E1tory,
poradte prosim, jak do dotazu SELECT zaradit sloupce, ktere se duchaplne
jmenuji MIN a MAX.
Zkousel jsem neco jako:
SELECT a.polozka1, a.polozka2, a."MIN", a."MAX"
FROM tabulka a
a ruzne jine varianty s uvozovkami. Vse marne. MIN a MAX asi chape jako
agregacni fce. Proste se nedari.
Poradte co s tim.
Diky Zdenek Reznicek
MS SQL 7 a IIF
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 11.3.2003 00:22:46
Nemozem najst v MS SQL 7. ziadnu ekvivalentnu nahradu IIF.
Netrvam priamo na IIF, staci cokolvek, co riesi problem:
Polozky v tabulke VYROBKY maju pole VYROBENO typu smalldatetime. A
potrebujem select, ktorym ich zgrupujem po smenach.
Ovsem nejedna sa o klasicky trojsmenny system. Tam by to bolo
jednoduche: smalldatetime zmenseny o 6 hodin sa preCASTuje na float,
vynasobi 3 a cela cast vysledku je jednoznacne cislo smeny. Ranna,
poobedna, nocna je podla (SMENA mod 3).
Ale tito vtaci maju cez vikend 2 12-tky. DayOfWeek problem neni,
modulo 7 je v MS SQL ako '% 7'. Ale neviem, cim pri preklapani z
ACCESSu nahradit IIF:
SELECT INT(VYROBENO-(1/4))*3 + (Frac(VYROBENO) * IIF(
DayOfWeek(VYROBENO)=1 OR DayOfWeek(VYROBENO)=7, 2,3)) AS SMENA ...
GROUP BY SMENA ...
proste k 3-nasobku celej casti dna sa pripocita 2-nasobok zlomkovej
casti v nedelu a 3-nasobok cez tyzden. Pre zjednodusenie som pouzil
Frac a DayOfWeek pascalske, aj tak to moc nezjednodusilo.
Ide o to, aby sa cez vikend dostalo do jednej grupy celych 12 hodin,
inak len 8. Nevadi, ze 'tretia' smena cez vikend nebude.
Ma SQL 7 UDF? Nic tak v dokumentacii nevidim. Ale je mozne, ze to
volaju nejako inac.
bye
vmlich
None
[*] <b.klucka(zv)gentlemail(tec)com> - 10.3.2003 22:36:29
Ahoj, vyzkousel jsem vsechny mozne postupy konverze na iconu
{http://community.borland.com/article/0,1410,17748,00.html}
{procedure TForm1.Button1Click(Sender: TObject);
var BitmapImageList: TImageList;
icon:TIcon;
begin
BitmapImageList :=3D TImageList.CreateSize(24, 24);
try
BitmapImageList.AddMasked(Source.picture.Bitmap, clFuchsia);
icon:=3DTIcon.Create;
BitmapImageList.GetIcon(0, Icon);
dest.Picture.Icon.Assign(icon);
icon. SaveToFile('tr.ico');
icon.Free;
finally
BitmapImageList.Free;
end;
end}
atd. atd.
ale kdyz iconu ulozim, ma standartnich 16 barev... nevite, jak na to?
-------------------------------
Bronislav Klucka
mail: b.klucka(zv)gentlemail.com
_________________________________________________________________________=
_____
ZNA=C8KOV=C9 PO=C8=CDTA=C8E DEXX
=A9PI=C8KOV=C1 KVALITA - zav=E1d=EDme ISO 9001
GARANCE NEJNI=AE=A9=CDCH CEN - PC + monitor ji=BE od 11.990!
k ADSL zdarma webkamera =E8i USB flashdisk
http://www.email(tec)cz/dexx
Chyba z WinInet pomoci FormatMessage
[*] tondrej(zv)t-online.de - 10.3.2003 16:28:10
> chtel bych zobrazit chybovou hlasku k chybe z
> GetLastError(), kterou nastavi funkce z
> knihovny WinInet. Kdyz se vola FormatMessage,
> tak jak je to v SysUtils.SysErrorMessage, tak
> se mi zadna hlaska nevrati.
>
> Je tedy treba predat handle na WinInet.dll.
> Ale kde jej mam vzit, kdyz knihovnu nelinkuji
> dynamicky, ale pouze diky uses WinInet. Mam
> presto volat LoadLibrary('wininet') a tak
> ziskat handle?
Ak ju linkujes staticky, tak je natiahnuta operacnym systemom uz pri
spusteni .exe. Jej handle zistis pomocou GetModuleHandle. Priklad na
volanie FormatMessage s GetModuleHandle najdes v zdrojaku
TWebConnection.Check (unita SConnect).
V pripade, ak GetLastError vrati ERROR_INTERNET_EXTENDED_ERROR, potom
potrebujes volat InternetGetLastResponseInfo, ktora Ti vrati konkretnu
hlasku.
HTH
Tlac viacerych obrazkov
[*] <js-delphi(zv)quick(tec)cz> - 10.3.2003 16:14:16
Nemam u sebe v praci Delphi=2C takze to nebude =
uplne 100=25 nicmene jako inspiraci to vzit muzes
1)kompenenta QuickReport (QR)
2)pridat Bandy (asi bude v Tvem pripade vhodne =
pouzit jen Detail=2C ale asi pozdeji vyuzijes i =
Header a Footer)
3)pridat do DetailBandu komponentu QRImage
4)pridat nejlepe dve globalni promenne napr=2E =
SumPics=2C NumPic =3A integer
5) pridat proceduru QR=2EOnNeedData
tady je tusim promenna More=2E Tu dosadime podle =
More=3A=3DSumPics=3C=3DNumPic=3B
6) pridat proceduru QR=2EBeforePrint
proved nulovani promnennych
NumPic=3A=3D0=3B
SumPics=3A=3D=7Bpocet souboru=7D=3B
6)pridat proceduru DetailBand=2EAfterPrint
Inc(NumPic)=3B
7) pridat proceduru DetailBand=2EBeforPrint
QRImage=2EBitmap=2ELoadFormFile(xy)=3B
8) nevim jestli jsou ty obrazky vzdy velke jako =
stranka=2E Jestli jo=2C hledej u QRImage property =
AutoStretch nebo tak neco a mohlo by to stacit=2E =
Pokud velikost neni vetsi nez strana=2C lze QR =
naridit=2C aby dalsi Detail provadel na dalsi =
strane=2C takze v procedure DetialBand=2EAfterPrint =
popr=2E QR=2EOnNeedData bych pridal podminku a prikaz =
vytvorit novou stranu=2E Ted si nevzpomenu jak to =
bylo=2C ale zkus hledat u toho DetailBandu nebo QR =
neco jako NextPage=2C CreateNextPage=2C =2E=2E=2E =2E
Snad to takhle pujde=2E
Ahoj
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A mstevlik=40gamo=2Esk
Datum=3A pond=ECl=ED=2C 10=2E b=F8ezna 2003 v 3=3A56 odp=2E
P=F8edm=ECt=3A Tlac viacerych obrazkov
=3E Hi all
=3E Potrebujem poradit ako mam vytlacit obrazky =
=3E (najlepsie cez QuickReport)
=3E Kazdy obrazok nech je na jednej stranke a =
=3E obrazky sa nachadzaju na disku v =
=3E urcitom adresari
=3E =
=3E Stevlik Marian
odstraneni ESC znaku z textu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 10.3.2003 16:10:50
----- Original Message -----
From: "Vladimir Teply" <teplyv(zv)chrudim(tec)cz>
>
> potrebuju z textoveho souboru odstranit ESC sekvence pro tiskarnu
> (#27#33...). Nevite nekdo o nejake filtrovaci utilite, pripadne neco jako
> "najdi a nahrad" i pro znaky mensi nez ASCII 32?
>
Ahoj.
Zkus treba StringReplace
Ludek
OT: odstraneni ESC znaku z textu
[*] Vladimir Teply <teplyv(zv)chrudim(tec)cz> - 10.3.2003 15:59:31
DD,
potrebuju z textoveho souboru odstranit ESC sekvence pro tiskarnu
(#27#33...). Nevite nekdo o nejake filtrovaci utilite, pripadne neco jako
"najdi a nahrad" i pro znaky mensi nez ASCII 32?
Diky
Vlada
Tlac viacerych obrazkov
[*] mstevlik(zv)gamo.sk - 10.3.2003 15:56:22
Hi all
Potrebujem poradit ako mam vytlacit obrazky (najlepsie cez QuickReport)
Kazdy obrazok nech je na jednej stranke a obrazky sa nachadzaju na disku v
urcitom adresari
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
Chyba z WinInet pomoci FormatMessage
[*] Jan K��ek - 10.3.2003 15:44:37
Zdravim,
chtel bych zobrazit chybovou hlasku k chybe z GetLastError(), kterou
nastavi funkce z knihovny WinInet. Kdyz se vola FormatMessage, tak jak
je to v SysUtils.SysErrorMessage, tak se mi zadna hlaska nevrati.=20
Je tedy treba predat handle na WinInet.dll. Ale kde jej mam vzit, kdyz
knihovnu nelinkuji dynamicky, ale pouze diky uses WinInet. Mam presto
volat LoadLibrary('wininet') a tak ziskat handle?
internetove komponenty INDI
[*] Bilek Zdenek <bilekz(zv)vosrk(tec)cz> - 10.3.2003 14:56:04
Vazeni priznivci Delphi.
Ma nekdo z Vas prakticke zkusenosti s internetovymi komponentami
INDI?
Pouzivam z nabidky INDI komp. idFTP. Jsem vcelku spokojeny pokud je
uzivatel programu pripojeny tel. linkou. Problemy ovsem nastavaji pri
provozu programu v siti.
Muzete mi nekdo prosim poradit, jake jsou podminky provozu v siti,
tak aby komp. idFTP nehlasila chyby typu Socet Error XXX, nebo Time
Out.... a podobne, aby prenso fungoval uspokojive. Mozna ze chyba je
nekde na me strane v souvoslosti s nastavenim parametru komponenty -
nevim. Prohlizec WWW stranek funguje OK a FTP prenso nikoli.
Jake musi provest spravce site nastaveni, aby prenos dat fungoval -
v sitich se nevyznam, ale mohu pozadavky smerovat na spravce site.
Nekdy se program tvari, jako-by k interentu pristup vubec nemel.
Diky za jakoukoli radu, ktera muze pomoci - pripadne jake jsou Vase
zkusenosti s toubo problematikou..
Pavel Bilek
Preruseni ADO select
[*] Michal Kolisek <michal.kolisek(zv)asei(tec)cz> - 10.3.2003 13:47:45
Zkusil bych zrusit spojeni na databazi, nemusi to byt pres thread.
M.Kolisek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lstiburek Pavel
Sent: Monday, March 10, 2003 1:29 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: Preruseni ADO select
Ahoj,
resim zrovna rozsahle dotazy nad DB a ty vedou i do desitek minut,
potreboval bych nejakym zpusobem umoznit uzivateli ukoncit dotaz.
Jak na to ?
Samostatny thread, ale jak zastavit provadeni dotazu ?
Pavel
Preruseni ADO select
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 10.3.2003 13:53:12
To neni tak jednoduche:
1. spojeni s DB je ukonceno az 30 sec po uzavreni pripojeni,
2. ve thredu to jet musi, jinak to nebude pracovavat zpravy Windows.
Pavel
> From: Michal Kolisek [mailto:michal.kolisek(zv)asei(tec)cz]
>
> Zkusil bych zrusit spojeni na databazi, nemusi to byt pres thread.
>
> M.Kolisek
>
> resim zrovna rozsahle dotazy nad DB a ty vedou i do desitek minut,
> potreboval bych nejakym zpusobem umoznit uzivateli ukoncit dotaz.
> Jak na to ?
> Samostatny thread, ale jak zastavit provadeni dotazu ?
IBDataSet.Insert, DBLookupComboBox
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 10.3.2003 13:43:54
David Lebeda odpovida uplne presne,=20
akorat je treba jeste zajistit aby se vygenerovane ID taky dostalo na =
klienta.
Do TIBDataSet by se mel zadat "generator field" a v prislusnem triggeru =
by se melo osetrit, zda ID bylo zadano z klienta nebo zda to ma udelat =
server:
if (new.ID is null) then new.ID =3D gen_ID(g_ID,1);
viz nase kurzy Delphi a InterBase
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Re: IBDataSet.Insert, DBLookupComboBox
> Datum: 10. b=F8ezna 2003 8:23
>=20
> > 1. IBDataSet je napojen na tabulku, ktere obasahuje jako primarni =
klic
> > ID, ktere je generovan strane databaze (IB) trigrem before insert.
> > Kdyz uzivatel na vyse popsanem formu vyplni vsechna data, zmackne OK =
a
> > nasledne se provede IBDataSet.Post, tak vyskoci hlaska, ze musi byt
> > zadan ID.
>=20
> Tohle nebude problem vyresit. Pokud je pole v databazi NOT NULL, coz =
ID jiste je,=20
> odpovidajici pole v datasetu ma nastavenu property Required na True. =
Coz=20
> znamena, ze uz Delphi ohlidaji, aby byla vlozena hodnota. Delphi =
nemuzou tusit, ze=20
> nekde existuje trigger, ktery toto pole vyplni. Potrebujes proto =
priznak Required=20
> shodit:
> 1) Pokud mas pole vytvorena jiz v dobe navrhu, kliknes na prislusny =
field a v=20
> ObjectInspectoru opravis property Required.
>=20
> 2) Nebo to muzes vzdy udelat z kodu - v AfterOpen neco jako
> Dataset.FieldByName('id').Required :=3D False;
>=20
> > 2. Na Formu je i komponenta DBLookUpComboBox, kde si uzivatel muze
> > vybrat data z LookUp tabulky. Vedle mam tlacitko, ktere muze =
uzivatel
> > zmacknout, kdyz chce vytvorit novy zaznam v lookup tabulce. Zobrazi =
se
> > tedy novy form, uzivatel zada data, insert a nasleduji navrat na
> > puvodni form, ktery je stale v rezimu dsInsert. Jak udelat to, aby =
se
> > refresly data v DBLookUpCombo jsem nevyresil ani nahodou.
>=20
> To bude asi chybna prace s transakcemi.
>=20
> 1) Dataset, ktery tvori seznam polozek pro DBLookupComboBox, musi mit =
vlastni=20
> transakci, nejlepe ReadCommited - viz dvojklik na komponente =
transakce.
>=20
> 2) Obsluha tlacitka pro pridani zaznamu do lookup musi mit rovnez =
vlastni transakci.=20
> Po vlozeni radku musis udelat commit teto transakce a nasledne =
Close/Open lookup=20
> tabulky, nejlepe spojene s Commit/StartTransaction lookup datasetu.
>=20
>=20
>=20
> > A to nemluvim o tom, ze bych chtel, aby uz ten novy
> > lookup zaznam byl primo vybran v DBLkpCmbBoxu.
>=20
> Prirazenim hodnoty klice do DBLkpCmBox.KeyValue.
>=20
Preruseni ADO select
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 10.3.2003 13:28:49
Ahoj,
resim zrovna rozsahle dotazy nad DB a ty vedou i do desitek minut,
potreboval bych nejakym zpusobem umoznit uzivateli ukoncit dotaz.
Jak na to ?
Samostatny thread, ale jak zastavit provadeni dotazu ?
StayOnTop ve stylu Winamp
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 10.3.2003 10:21:57
fsStayOnTop funguje takto:
1) Pokud je formular hlavni okno aplikace -> je pres vsechny aplikace da
desktopu
2) Poku je furmular <> hlavni okno aplikace -> je StayOnTop POUZE v ramci
aplikace.
(viz. help, praxe ;-)
Resenim je napr. nastavit toto okno jako MainForm nebo pomoci
SetWindowLong(NewmainForm.Handle, GWL_HWNDPARENT , 0) zaridit, aby se tak
alespon trochu choval...
Danik
> -----Original Message-----
owner(zv)clexpert(tec)cz]On
> Behalf Of ing. Jan Fiala
> fsStayOnTop funguje a okno je nad ostatnimi okny. Mozna tam delas
> nejakou chybu. Ale vzhledem k tomu, ze jsi nezdelil zadne podrobnosti,
> vic ti k tomu rict nemuzu.
> Dalsi moznosti je API funkce:
> SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE +
> SWP_NOMOVE + SWP_NOACTIVATE);
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 9.3.2003 Dobroslav Studnicka:
> > fsStayOnTop bohuzel nefunguje :(
> > Okno sice nejspis bude stay on top, ale jenom v ramci jedne aplikace
> > (rekl bych - nedrzelo to nahore pri prepnuti focusu na
> jinou aplikaci,
> > takze jsem to dal nezkoumal)
> > Potrebuju aby aplikace za kazdou cenu visela nad ostatnimi
> okny, presne
> > tak jak to dela winamp
Re[2]: FTP pristup z D7
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 10.3.2003 10:16:11
To uz tu taky bylo :) Ano je to tak, a prechod z NM komponent je silne
doporucovan.
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Monday, March 10, 2003, 10:04:49 AM, you wrote:
pkvc> Ano, opravdu to tam je. Ale v D4 byla komponenta NMFTP a v D& jsem
pkvc> ji nenasel. Kdyz jsem tedy psal nejaky program v D4, ktery
pkvc> vyuzival tuto komponentu a budu v nem chtit treba udelat nejakou
pkvc> upravu v D7, tak budu muset misto NMFTP pouzit komponentu z
pkvc> knihovny INDY, pokud si NMFTP nenainstaluji do D7?
pkvc> PK
pkvc> ----- P�VODN� ZPR�VA -----
pkvc> Od: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
pkvc> Komu: delphi-l(zv)clexpert(tec)cz
pkvc> P�edm�t: Re: FTP pristup z D7
pkvc> Datum: 7.3.2003 - 13:20:12
>> Vzdyt je to tu stale dokola.
>> V D7 je knihovna INDY
>>
>> Osobne doporucuji knihovnu SYNAPSE
>> (http://www.ararat(tec)cz)
>>
>> --
>> Jan Fiala
>> mailto:jan.fiala(zv)iol(tec)cz
>>
>> 7.3.2003 petr-kucera(zv)volny(tec)cz:
>> > Dobry den,
>>
>> > prosim Vas, existuje v D7 neco jako v D4 NMFTP?
>> > Potreboval
>> > bych stahnout nejaky soubor ze vzdaleneho pocitace
>> > pomoci ftp.
>> > Jak se to da kdyztak udelat v D7?
>>
>>
>>
>>
PropertyEditor
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 10.3.2003 10:08:37
Ahoj vsem.
Tak mam zase jeden problem a nevim jak dal. Omlouvam se, ale z casovych
duvodu jsem
neprojizdel historii konfery. Na tehle strance
http://delphi.about.com/library/bluc/text/uc092501d.htm je ukazka presne
toho co potrebuju
vytvorit, jenze jsem asi absolutne natvrdlej :-(.
Komponenta ma namisto puvodniho jednoradkoveho textu zobrazit text
nekolikaradkovy.
Vzhledem k tomu, ze tuto vlastnost (hodnoty) plnim v Delphi IDE, tak je
nutne mit moznost
zobrazit onen dialog - stejne jako vlastnost Lines u komponenty TMemo.
Potrebuju vytvorit komponentu jez bude potomek TLabel a bude mit vlastnost
CaptionLines,
pripadne se prekryje puvodni vlastnost Caption. Chci aby se po kliknuti na
tlacitko se tremi
teckami (je vedle dane vlastnosti v ObjectInspectoru) zobrazil dialog kam
vepisu jednotlive
radky.
Vi prosim nekdo o konkretnim a funkcnim postupu? Uz jsem na tom ztravil dost
casu a nic.
Predem dik za cokoli.
FTP pristup z D7
[*] petr-kucera(zv)volny(tec)cz - 10.3.2003 10:04:49
Ano, opravdu to tam je. Ale v D4 byla komponenta NMFTP a v D& jsem
ji nenasel. Kdyz jsem tedy psal nejaky program v D4, ktery
vyuzival tuto komponentu a budu v nem chtit treba udelat nejakou
upravu v D7, tak budu muset misto NMFTP pouzit komponentu z
knihovny INDY, pokud si NMFTP nenainstaluji do D7?
PK
----- P=D9VODN=CD ZPR=C1VA -----
Od: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
Komu: delphi-l(zv)clexpert(tec)cz
P=F8edm=ECt: Re: FTP pristup z D7
Datum: 7.3.2003 - 13:20:12
> Vzdyt je to tu stale dokola.
> V D7 je knihovna INDY
>=20
> Osobne doporucuji knihovnu SYNAPSE
> (http://www.ararat(tec)cz)
>=20
> --=20
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>=20
> 7.3.2003 petr-kucera(zv)volny(tec)cz:
> > Dobry den,
>=20
> > prosim Vas, existuje v D7 neco jako v D4 NMFTP?
> > Potreboval
> > bych stahnout nejaky soubor ze vzdaleneho pocitace
> > pomoci ftp.
> > Jak se to da kdyztak udelat v D7?
>=20
>=20
>=20
FindWindow a sluzby
[*] Jiri Babka <jb_konf(zv)seznam(tec)cz> - 10.3.2003 09:54:32
Dobry den,
poradite mi, prosim, proc nefunguje fce FindWindow, pokud ji volam ze sluzby?
FindWindow vrati 0 i presto, ze zadane okno, ktere je hlavnim oknem klasicke
aplikace, existuje. Pokud FindWindow volam s uplne stejnymi parametry, ale z
klasicke aplikace, vrati se spravny handle. Sluzbu mam naprogramovanu v D6 s
vyuzitim TServiceApplication a TService. Dekuji.
Jiri Babka
IBDataSet.Insert, DBLookupComboBox
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.3.2003 08:23:51
> 1. IBDataSet je napojen na tabulku, ktere obasahuje jako primarni klic
> ID, ktere je generovan strane databaze (IB) trigrem before insert.
> Kdyz uzivatel na vyse popsanem formu vyplni vsechna data, zmackne OK a
> nasledne se provede IBDataSet.Post, tak vyskoci hlaska, ze musi byt
> zadan ID.
Tohle nebude problem vyresit. Pokud je pole v databazi NOT NULL, coz ID jiste je,
odpovidajici pole v datasetu ma nastavenu property Required na True. Coz
znamena, ze uz Delphi ohlidaji, aby byla vlozena hodnota. Delphi nemuzou tusit, ze
nekde existuje trigger, ktery toto pole vyplni. Potrebujes proto priznak Required
shodit:
1) Pokud mas pole vytvorena jiz v dobe navrhu, kliknes na prislusny field a v
ObjectInspectoru opravis property Required.
2) Nebo to muzes vzdy udelat z kodu - v AfterOpen neco jako
Dataset.FieldByName('id').Required := False;
> 2. Na Formu je i komponenta DBLookUpComboBox, kde si uzivatel muze
> vybrat data z LookUp tabulky. Vedle mam tlacitko, ktere muze uzivatel
> zmacknout, kdyz chce vytvorit novy zaznam v lookup tabulce. Zobrazi se
> tedy novy form, uzivatel zada data, insert a nasleduji navrat na
> puvodni form, ktery je stale v rezimu dsInsert. Jak udelat to, aby se
> refresly data v DBLookUpCombo jsem nevyresil ani nahodou.
To bude asi chybna prace s transakcemi.
1) Dataset, ktery tvori seznam polozek pro DBLookupComboBox, musi mit vlastni
transakci, nejlepe ReadCommited - viz dvojklik na komponente transakce.
2) Obsluha tlacitka pro pridani zaznamu do lookup musi mit rovnez vlastni transakci.
Po vlozeni radku musis udelat commit teto transakce a nasledne Close/Open lookup
tabulky, nejlepe spojene s Commit/StartTransaction lookup datasetu.
> A to nemluvim o tom, ze bych chtel, aby uz ten novy
> lookup zaznam byl primo vybran v DBLkpCmbBoxu.
Prirazenim hodnoty klice do DBLkpCmBox.KeyValue.
IBDataSet.Insert, DBLookupComboBox
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 9.3.2003 23:06:59
Ahoj,
skoro cely den se snazim vyresit zdanlive trivialni problem, ale uz
toho mam fakt plne zuby:
Mam formular a na nem umistene ruzne Data Controls (prevazne DBEdit,
DBLookUpComboBox). Pred zobrazenim formulare provedu metodu Insert u
objektu IBDataSet, ktery je pomoci DataSource napojen na prave na ty
datove komponenty na Formu. Ted je IBDataSet ve stavu dsInsert a
vsechny komponenty jsou prazdne a cekaji na zadani noveho zaznamu od
uzivatele. A ted ty problemy:
1. IBDataSet je napojen na tabulku, ktere obasahuje jako primarni klic
ID, ktere je generovan strane databaze (IB) trigrem before insert.
Kdyz uzivatel na vyse popsanem formu vyplni vsechna data, zmackne OK a
nasledne se provede IBDataSet.Post, tak vyskoci hlaska, ze musi byt
zadan ID. V cem je problem, kdyz tam mam ten trigger? Kdyz pouzivam
pro ulozeni zaznamu IBSQL nebo IBDataSet.InsertRecord, tak je vsechno
OK a ID se vygeneruje.
2. Na Formu je i komponenta DBLookUpComboBox, kde si uzivatel muze
vybrat data z LookUp tabulky. Vedle mam tlacitko, ktere muze uzivatel
zmacknout, kdyz chce vytvorit novy zaznam v lookup tabulce. Zobrazi se
tedy novy form, uzivatel zada data, insert a nasleduji navrat na
puvodni form, ktery je stale v rezimu dsInsert. Jak udelat to, aby se
refresly data v DBLookUpCombo jsem nevyresil ani nahodou. Nepomohlo
fakt nic, ani zavreni a otevreni IBDataSet na ktery je napojena ta
lookup tabulka. A to nemluvim o tom, ze bych chtel, aby uz ten novy
lookup zaznam byl primo vybran v DBLkpCmbBoxu. Projel jsem help srkz
nazkrz, vyzkousel snad vsechno, ale nepodarilo se. Tohle jsou tak
zakladni DB veci, ze mi fakt prijde, ze se mi ty Delphi dnes vysmivaji
:-) Spatny den..
Diky za pomoc
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
PackTable pro FF2
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 09.3.2003 19:15:02
Puvodni zprava, kterou napsal Pavel ZIDEK dne 9 Mar 2003:
> omlouvam se za mirny O.T. ale potrebuji udelat PackTable pro FF2. Dle
> helpu mi tato metoda nefunguje - padne to chybovou hlaskou. Podotykam, ze
> tabulky pouzivam v SINGLE rezimu - tzn. bez ffServeru.
Asi to pak hned otevres a necekas, az to prejmenuje po packovani...
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================PackTable pro FF2
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.3.2003 18:49:25
Zdravim,
omlouvam se za mirny O.T. ale potrebuji udelat PackTable pro FF2. Dle helpu
mi tato metoda nefunguje - padne to chybovou hlaskou.
Podotykam, ze tabulky pouzivam v SINGLE rezimu - tzn. bez ffServeru.
Diky za pomoc Pavel ZIDEK
sejmuti obrazovky
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 9.3.2003 18:27:51
Zdravim
Problem se mi podarilo vyresit DOSovskym graberem PCXDUMP. PC s WIN 98 js=
em
nastartoval v DOS rezimu a pres PCXDUMP sejmul obrazovku do image.pcx. Da=
lsi
uprava obrazku je uz legrace.
Pokud ma nekdo zajem o PCXDUMP, mohu zaslat.
Zkousel jsem i SnagIt, ten sice provede sejmuti DOSovske obrazovky i v
rezimu Windows, ale vysledny obrazek je pouze cernobily a zdaleka nedosah=
uje
kvality PCXDUMPu.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
>Do prezentace bych potreboval dat obrazovku starsiho DOSovskeho programu
>napsaneho v PCFandu.
>Pokud program najedu ve Windows okne neni sejmuti obrazovky problem, ale
>pisma nabidek se nezobrazi spravne v kodu Kamenickych. Pokud najedu prog=
ram
>v celoobrazovkovem rezimu nedari se mi sejmout obrazovku.
>Z netu jsem stahl nekolik graberu obrazovky pro DOSovske programy, ale
>vysledek je mizerny.
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.2.2003
StayOnTop ve stylu Winamp
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.3.2003 12:58:47
fsStayOnTop funguje a okno je nad ostatnimi okny. Mozna tam delas
nejakou chybu. Ale vzhledem k tomu, ze jsi nezdelil zadne podrobnosti,
vic ti k tomu rict nemuzu.
Dalsi moznosti je API funkce:
SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE +
SWP_NOMOVE + SWP_NOACTIVATE);
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
9.3.2003 Dobroslav Studnicka:
> fsStayOnTop bohuzel nefunguje :(
> Okno sice nejspis bude stay on top, ale jenom v ramci jedne aplikace
> (rekl bych - nedrzelo to nahore pri prepnuti focusu na jinou aplikaci,
> takze jsem to dal nezkoumal)
> Potrebuju aby aplikace za kazdou cenu visela nad ostatnimi okny, presne
> tak jak to dela winamp
StayOnTop ve stylu Winamp
[*] Dobroslav Studnicka <morph(zv)centrum(tec)cz> - 9.3.2003 11:51:02
fsStayOnTop bohuzel nefunguje :(
Okno sice nejspis bude stay on top, ale jenom v ramci jedne aplikace
(rekl bych - nedrzelo to nahore pri prepnuti focusu na jinou aplikaci,
takze jsem to dal nezkoumal)
Potrebuju aby aplikace za kazdou cenu visela nad ostatnimi okny, presne
tak jak to dela winamp
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of ing. Jan Fiala
> Sent: Saturday, March 08, 2003 6:01 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: StayOnTop ve stylu Winamp
>
>
> Nastavis Form.FormStyle na fsStayOnTop
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 8.3.2003 Dobroslav Studnicka:
> > Zdravim,
> > poradi nekdo jak donutit formular aplikace aby zustal StayOnTop
> > podobne jako to dela winamp ? Myslim tim ze kdyz prepnu na jinou
> > aplikaci, formular bude porad viset pres okna ostatnich aplikaci...
>
>
Clipboard - Znakova sada
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.3.2003 08:28:39
Zdravim,
zkuste nahlidnout do http://www.kopr(tec)cz/window.htm
a do http://www.kopr(tec)cz/win2000.htm
Pavel ZIDEK
Ahoj,
z databazove tabulky (FB) vyberu nejake polozky (ve znakove sade
win1250) AsString, ktere oddelim #9 a metodou Clipboard.AsText je
kopnu do schranky. Otevru excel a udelam CTRL+Ins. Ale problem, v
excelu mam zkomolenou cestinu. Pokud ale udelam v excelu "Vlozit
Jinak" a vyberu druhou variantu, je to ok. Nejaky napad prosim?
OT: sejmuti obrazovky
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 8.3.2003 20:12:08
Zdravim
Resim tento problem.
Do prezentace bych potreboval dat obrazovku starsiho DOSovskeho programu
napsaneho v PCFandu.
Pokud program najedu ve Windows okne neni sejmuti obrazovky problem, ale
pisma nabidek se nezobrazi spravne v kodu Kamenickych. Pokud najedu progr=
am
v celoobrazovkovem rezimu nedari se mi sejmout obrazovku.
Z netu jsem stahl nekolik graberu obrazovky pro DOSovske programy, ale
vysledek je mizerny.
Neporadi nekdo co s tim, nebo nema nekdo nejaky sikovny graber?
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.2.2003
StayOnTop ve stylu Winamp
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.3.2003 18:01:06
Nastavis Form.FormStyle na fsStayOnTop
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
8.3.2003 Dobroslav Studnicka:
> Zdravim,
> poradi nekdo jak donutit formular aplikace aby zustal StayOnTop podobne
> jako to dela winamp ?
> Myslim tim ze kdyz prepnu na jinou aplikaci, formular bude porad viset
> pres okna ostatnich aplikaci...
StayOnTop ve stylu Winamp
[*] Dobroslav Studnicka <morph(zv)centrum(tec)cz> - 8.3.2003 16:22:40
Zdravim,
poradi nekdo jak donutit formular aplikace aby zustal StayOnTop podobne
jako to dela winamp ?
Myslim tim ze kdyz prepnu na jinou aplikaci, formular bude porad viset
pres okna ostatnich aplikaci...
dikes
Firebird: Chyba 'unavailable database' pri navazan
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.3.2003 14:21:34
Haj hou!
On 7 Mar 2003 at 17:44, Jiri Babka wrote:
> pouzivam databazi Firebird 1.0 ve Win2000 a mam program A, ktery se pripoji k
> databazi, neco provede a skonci. Pokud program A spustim rucne, vse probehne,
> jak ma. Pokud se program A spusti z jineho programu, je take vse OK. Pokud se
> vsak program A spusti z programu, ktery je sluzbou, pri pokusu o pripojeni k
> databazi dojde k chybe 'unavailable database'.
> Vite, prosim, nekdo, co je potreba nastavit, aby to fungovalo? Pristupova
> prava souboru .gdb jsem zkousel nastavit na 'Uplne rizeni' pro vsechny mozne
> skupiny, ale stejne to nefugovalo.
Mno, prava programu, resp. sluzby ktera ho spousti se musi nastavit, ale ne k
databazovemu souboru, ale k TCP/IP spojenim.
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Interbase a ADOTable
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 7.3.2003 15:29:58
> Odes=EDlatel: Franti=B9ek Ml=E8och <frantisek.mlcoch(zv)vsb(tec)cz>
> Pouzivam DB Interbase (server Firebird 1.0) a ODBC od EasySoft. Kdyz v =
D6
> pouziji komponentu ADOTable pro pristup k tabulce, dojde vzdy pri =
aktivaci
> komponenty k zobrazeni vyjimky:
Nechci ti do toho mluvit, mozna mas spoustu duvodu, proc to delat zrovna =
takhle.
Ale ODBC + OLEDBProviderForODBC + ADO, to je zbytecne moc vrstev, o =
problemy si koledujes.
Kdyz mame nativni IB komponenty...
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Prenesenie suboru cez Modem
[*] J�n Harman <harman(zv)volny(tec)cz> - 7.3.2003 22:17:28
Programoval jsem modemovy prenos, ale jenom klienta. Pouzival jsem ciste
TAPI.
Jan Harman, Brno, harman(zv)volny(tec)cz
> Ahojte
>
> Cital som v konferencii, o modemoch a pripojeniach a prenosoch, ale nic mi
> nepomohlo.
> Potreboval by som vytocit cislo, a odoslat subor. Program - prijemca, by
> mal hned zistit, ze ide prenos.
> Potrebujem na to RAS?......Synapse?........alebo ako?......
>
> Vdaka Michal
>
>
>
Konverze bitmapy na iconu
[*] <b.klucka(zv)gentlemail(tec)com> - 7.3.2003 23:44:55
Ahoj, vyzkousel jsem vsechny mozne postupy konverze na iconu
{http://community.borland.com/article/0,1410,17748,00.html}
{procedure TForm1.Button1Click(Sender: TObject);
var BitmapImageList: TImageList;
icon:TIcon;
begin
BitmapImageList :=3D TImageList.CreateSize(24, 24);
try
BitmapImageList.AddMasked(Source.picture.Bitmap, clFuchsia);
icon:=3DTIcon.Create;
BitmapImageList.GetIcon(0, Icon);
dest.Picture.Icon.Assign(icon);
icon. SaveToFile('tr.ico');
icon.Free;
finally
BitmapImageList.Free;
end;
end}
atd. atd.
ale kdyz iconu ulozim, ma standartnich 16 barev... nevite, jak na to?
-------------------------------
Bronislav Klucka
mail: b.klucka(zv)gentlemail.com
Firebird: Chyba 'unavailable database' pri navazan
[*] Jiri Babka <jb_konf(zv)seznam(tec)cz> - 7.3.2003 17:44:42
Dobry den,
pouzivam databazi Firebird 1.0 ve Win2000 a mam program A, ktery se pripoji k
databazi, neco provede a skonci. Pokud program A spustim rucne, vse probehne,
jak ma. Pokud se program A spusti z jineho programu, je take vse OK. Pokud se
vsak program A spusti z programu, ktery je sluzbou, pri pokusu o pripojeni k
databazi dojde k chybe 'unavailable database'.
Vite, prosim, nekdo, co je potreba nastavit, aby to fungovalo? Pristupova
prava souboru .gdb jsem zkousel nastavit na 'Uplne rizeni' pro vsechny mozne
skupiny, ale stejne to nefugovalo.
Dekuji za kazdou radu.
Jiri Babka
idTCPServer&balicek
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 7.3.2003 16:33:57
Cau chlapaci, zase ja....:())
Prosil bych jeste konzultaci a radu:
pouzivam pro LAN chat komponenty TCPServer a TCPClient od Indy. Vse je OK
ale posilam "pouze" stringy (ReadLN a WriteLn). V techto stringach "koduju"
ruzne informace. Chci se zeptat: Lze posilat a na druhe strane taky cist
pomoci techto komponent "balicky"? "Balickem" myslim pole stringu,
integeru,... Pokud ano, jak? (ouplne super by byl prikladek :)))
Diky moc za cokoli....:))
Vlasta
D5 Ent, W98, WNT
OT Runtime balicky a Debugger Exception Notificati
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 16:24:39
From: "Tom Beran" <tfuzzy(zv)atlas(tec)cz>
> No, tak to potesi. Takze kdyz chci odladit projekt v D6, musim si koupit a
> nainstalovat D5 nebo D7.
Vypada to, ze to je zpusobene tim RTL Update 2, viz QC #3354:
http://qc.borland.com/wc/wc.exe/details?reportid=3354
Jinak tech chyb uz je opravdu v Delphi presprilis. Tento tyden jsem napriklad
pouzival XML transformace a data binding. Jen za dva dny jsem v tom nasel asi
sest chyb.
Petr Vones
OT: Runtime balicky a Debugger Exception Notificat
[*] Tom Beran<tfuzzy(zv)atlas(tec)cz> - 7.3.2003 15:44:20
> Aha promin, mas pravdu, ja to zkousel v D7. V D5 a D7 to funguje, zajimava chyba.
> Ted uz to ale nikdo opravovat nebude.
>
No, tak to potesi. Takze kdyz chci odladit projekt v D6, musim si koupit a
nainstalovat D5 nebo D7.
Jednou tu Zbysek Hlinka psal: "... .NET to jeste neumi, COM to uz neumi ..." a mel
svatou pravdu, k tomu me napada spousta stavnatych slov, ale to bych porusil pravidla
konference.
Jak na serveru zavrit soubor otevreny nekym ze sit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 14:57:23
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Diky. Uz jen to, ze by to mohlo jit je potesujici informace
Tusim ze je to funkce NetFileClose, hledej v MSDN nebo PSDK. Pozor vsak na
jednu vec, ty fuknce jsou jine (jine parametry) pro NT a Win9x, i kdyz maji
stejny nazev.
Petr Vones
Runtime balicky a Debugger Exception Notification
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 15:21:56
From: "Tom Beran" <tfuzzy(zv)atlas(tec)cz>
> Zkousel jsem to u kolegy na pocitaci, kde jsou taky D6+UP2+RTL update, a je
> to stejne :o((
Aha promin, mas pravdu, ja to zkousel v D7. V D5 a D7 to funguje, zajimava
chyba. Ted uz to ale nikdo opravovat nebude.
Petr Vones
AT prikaz pro delivery report na nokii
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 7.3.2003 15:14:44
Ahoj,
odpovim si sam. Kdyby to nekdo potreboval, informace o octetu SMS-SUBMIT
jsou zde:
http://www.dreamfabric.com/sms/submit_fo.html
nastaveni AT prikazu pro odeslani dorucenky provedete pomoci
AT+CSMP=3D49,167,0,0
Je uplne jedno, jestli SMS odesilate pomoci PDU nebo textoveho rezimu.
Snad se to bude nekomu hodit.
Runtime balicky a Debugger Exception Notification
[*] Tom Beran<tfuzzy(zv)atlas(tec)cz> - 7.3.2003 15:19:55
> Normalni to neni, jinak to funguje. Smaz DOF, DSK a CFG u toho projektu
jestli
> se tam nahodou neco nenastavilo spatne.
Tim to nebude, i kdyz si vytvorim uplne novy trivialni projektik, treba
takto:
(******* TestikException ********)
program TestikException;
uses
Windows,
Forms;
var
i: Integer;
begin
try
TForm(i).Destroy; //No to je prece error
except
i:=0;
end;
end.
(******* TestikException ********) Tak kdyz to prelozim bez balicku, je to O.K., na radku s komentarem mi po spusteni v IDE vyskoci vyjimka.
Nastavim pouziti balicku (VCL+RTL), prebuilduju a to ze doslo k vyjimce zjistim jedine nastavenim breakpointu do
except bloku :o(
Zkousel jsem to u kolegy na pocitaci, kde jsou taky D6+UP2+RTL update, a je to stejne :o((
Prenesenie suboru cez Modem
[*] dphi_forum(zv)proces.sk - 7.3.2003 14:57:02
Ahojte
Cital som v konferencii, o modemoch a pripojeniach a prenosoch, ale nic mi
nepomohlo.
Potreboval by som vytocit cislo, a odoslat subor. Program - prijemca, by
mal hned zistit, ze ide prenos.
Potrebujem na to RAS?......Synapse?........alebo ako?......
Vdaka Michal
barva TabControl
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 14:08:11
From: <b.klucka(zv)gentlemail.com>
> Jde mi o to, ze zmenim barvu formulare, zmeni se i barva ramecku
> TTabControl, ale ouska zustanou clBtnFace, prebarvi se jenom, pokud dam
> OwnerDraw=true, ale to zase musim vykreslovat i text... to se mi zase
> nechce...
Odpovedel sis sam, musis to pak vykreslovat rucne pri OwnerDraw = True.
Ukonceni externi aplikace
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.3.2003 13:50:32
TmFqaXQgc2kgamVqaSBIYW5kbGUgKHRyZWJhIHBvbW9jaSBGaW5kV2luZG93KSBhIHBvc2xhdCBq
aSBuZWpha291DQp6cHJhdnUgV01fQ0xPU0UNCg0KLS0gDQpKYW4gRmlhbGENCm1haWx0bzpqYW4u
ZmlhbGFAaW9sLmN6DQoNCjcuMy4yMDAzIEpp+O0gQmF1ZHm5Og0KPiBLcmFzbnkgZGVuIHByZWpp
LA0KPiBuZXR1c2l0ZSBqYWsgdWtvbmNpdCBleHRlcm5pIGFwbGlrYWNpID8=zakodovani stringu v .EXE
[*] Jan Naiser <tua(zv)wo(tec)cz> - 7.3.2003 14:42:20
Ahoj,
s tim byva problem pri vyskytu nekterych specialnich znaku. (napr.
apostrof). Ja jsem to resil tak, ze jsem si ty xorovane znaky v retezci
ulozil do noveho retezce v hexa pomoci programku, ktery mi je prevedl takto:
#$42#$6A#$72#$6E. Zpetne to prevest uz neni problem.
Honza.
> Co zkratka vybrat tech par textu co chci zakodovat, napsat si jednoduche
dve
> funkce ktere to prevedou tak, aby to byl zase textovy retezec. Pak si
pomoci
> jednoduche aplikace tyto texty pres clipboard prevedu a vlozim do
zdrojoveho
> kodu a pomoci dane funkce za behu prevedu na puvodni obsah. Prace tak na
pul
> hodiny.
>
> Petr Vones
>
Interbase a ADOTable
[*] Franti�ek Ml�och <frantisek.mlcoch(zv)vsb(tec)cz> - 7.3.2003 14:39:35
Pouzivam DB Interbase (server Firebird 1.0) a ODBC od EasySoft. Kdyz v D6
pouziji komponentu ADOTable pro pristup k tabulce, dojde vzdy pri aktivaci
komponenty k zobrazeni vyjimky:
Raised exception class EVariantTypeCastError with message 'Could not convert
variant of type (Null) into type (String)'.
Kdyz tu samou tabulku otevru v navrhovem rezimu nebo pomoci komponenty
ADOQuery (SELECT * FROM tabulka) zadna chyba nenastane.
Poradte co s tim?
Diky F.
Runtime balicky a Debugger Exception Notification
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 14:10:43
From: "Tom xXx" <assas(zv)bonbon.net>
> mam takovy problem, kdyz prelozim projekt s balicky, nevyskakuji mi v
> IDE okna s "Debugger Exception Notification".
>
> Je to normalni chovani projektu s runtime balicky nebo se da nekde neco
> nastavit???
Normalni to neni, jinak to funguje. Smaz DOF, DSK a CFG u toho projektu jestli
se tam nahodou neco nenastavilo spatne.
Petr Vones
Jak na serveru zavrit soubor otevreny nekym ze sit
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.3.2003 14:21:07
Diky. Uz jen to, ze by to mohlo jit je potesujici informace
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
7.3.2003 Petr Vones:
> From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
>> Nejaky uzivatel ma na serveru otevreny konkretni soubor
>> Je mozne programove ukoncit (natvrdo) toto spojeni, podobne jako to
>> jde udelat v ServerManageru nebo Sprave pocitace ?
> Podivej se na LanManager API, konverzi najdes na Jedi:
> http://delphi-jedi.org/APILIBRARY
> Petr Vones
Clipboard - Znakova sada
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 14:15:51
From: <harman(zv)volny(tec)cz>
> z databazove tabulky (FB) vyberu nejake polozky (ve znakove sade
> win1250) AsString, ktere oddelim #9 a metodou Clipboard.AsText je
> kopnu do schranky. Otevru excel a udelam CTRL+Ins. Ale problem, v
> excelu mam zkomolenou cestinu. Pokud ale udelam v excelu "Vlozit
> Jinak" a vyberu druhou variantu, je to ok. Nejaky napad prosim?
Musis nastavit v clipboardu jeste format CF_LOCALE, uz se to tu resilo:
http://delphi(tec)cz/soubor.asp?rok=2001&mesic=mar&den=28&soubor=dlfaaaal.htm
Jak na serveru zavrit soubor otevreny nekym ze sit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 14:06:32
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Nejaky uzivatel ma na serveru otevreny konkretni soubor
> Je mozne programove ukoncit (natvrdo) toto spojeni, podobne jako to
> jde udelat v ServerManageru nebo Sprave pocitace ?
Podivej se na LanManager API, konverzi najdes na Jedi:
http://delphi-jedi.org/APILIBRARY
Ukonceni externi aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.3.2003 14:05:23
From: "Ji�� Baudy�" <baudys(zv)duplikace(tec)cz>
> netusite jak ukoncit externi aplikaci ?
Napriklad funkcemi TerminateTask a TerminateApp v unitu JclSysInfo z JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
Thread a WaitForXXXObject
[*] tondrej(zv)t-online.de - 07.3.2003 11:22:55
>> Thread sa dostane do signaled stavu automaticky pri
>> svojom ukonceni.
>> (Pokial bezi, je non-signaled.)
> To znamena presne co ???
To znamena, ze kym sa vykonava thread procedure, thread je non-signaled
a pri ukonceni (API ExitThread, TerminateThread) sa dostane do stavu
signaled.
TThread vola ExitThread po ukonceni metody Execute.
S FreeOnTerminate to nijako nesuvisi.
> Mel jsem pokus, kde korektne dobehla metoda Execute,
> ale WaitForSingleObject na tento thread porad cekal
Predpokladam, ze si v tom pokuse mal nejaku chybu.
Na to, ze thread sa po ukonceni dostane do signaled stavu, sa IMHO
mozes spolahnut, o to sa stara operacny system.
> Pak jsem pro jistotu pridal nakonec Terminate
TThread.Terminate nerobi nic okrem toho, ze nastavi vlastnost
Terminated na True. Typicky kod v tele Execute teda vyzera takto:
while not Terminated do
...
alebo
nejaky kod...
if Terminated then
Exit;
dalsi kod...
if Terminated then
Exit;
dalsi kod...
Skratka ak pouzivas TThread, tak do signaled stavu sa dostava po
odchode z Execute, nezavisle na FreeOnTerminate.
HTH
FTP pristup z D7
[*] Ji�� Mat�jka�����^�F�צ����̿ - 7.3.2003 13:57:53
Zkus TIdFTP (Indy). Urcite to neni stejne jako NMFTP, ale na transfery po
FTP protokolu naprosto v pohode.
Jirka Matejka
----- Original Message -----
From: <petr-kucera(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 07, 2003 1:07 PM
Subject: FTP pristup z D7
> Dobry den,
>
> prosim Vas, existuje v D7 neco jako v D4 NMFTP? Potreboval
> bych stahnout nejaky soubor ze vzdaleneho pocitace pomoci ftp.
> Jak se to da kdyztak udelat v D7?
>
> Dekuji.
>
> S pozdravem Petr Kucera.
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.2.2003
Ukonceni externi aplikace
[*] Ji�� Baudy� - 7.3.2003 13:35:20
Krasny den preji,
netusite jak ukoncit externi aplikaci ?
D=EDky
Jirka
zakodovani stringu v .EXE
[*] Pavel Gazda <pavel_gazda(zv)dataint(tec)cz> - 7.3.2003 13:44:23
Jestli nepotrebujes nic extra tak napr:
var
PWS : string;
S : string;
begin
PWS := 'moje tajne heslo';
for j := 1 to length(S) do
S[j] := char(byte(S[j]) xor byte(PWS[j mod length(PWS)+1]));
.....
ono casto staci i
inc(S[j]);
> Dobry den,
> existuje nejaky jednoduchy zpusob jak zakodovat nejakym zpusobem
> stringove retezce pouzite v programu tak aby nebyly volne citelne?
>
> Diky
> VN.
>
Jak na serveru zavrit soubor otevreny nekym ze sit
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.3.2003 13:36:16
Nejaky uzivatel ma na serveru otevreny konkretni soubor
Je mozne programove ukoncit (natvrdo) toto spojeni, podobne jako to
jde udelat v ServerManageru nebo Sprave pocitace ?
--
ing. Jan Fiala
MailTo:jan.fiala(zv)iol(tec)cz
ICQ: 23032692 FTP pristup z D7
[*] petr-kucera(zv)volny(tec)cz - 07.3.2003 13:07:17
Dobry den,
prosim Vas, existuje v D7 neco jako v D4 NMFTP? Potreboval
bych stahnout nejaky soubor ze vzdaleneho pocitace pomoci ftp.
Jak se to da kdyztak udelat v D7?
Dekuji.
Re[2]: zakodovani stringu v .EXE
[*] Vladimir Nikel <vladimir.nikel(zv)vitkovice(tec)cz> - 7.3.2003 13:33:27
to je asi nejlepsi reseni, tech textu neni zase tak moc.
Diky za rady
VN.
<==============Original message text===============
From: "Michal Kuncl" <spider_x(zv)quick(tec)cz>
> pouzij nejaky pakovac exace (ASPack, UPX, atd.). Ma to sice nevyhodu, ze se
A kup uzivateli jeste jednou tolik RAM kolik uz ma aby mu to bezelo. Takovehle
veci automaticky povazuji za virus a mazu.
> Dokonale reseni:
> kombinace vyse uvedenych :-)
Co zkratka vybrat tech par textu co chci zakodovat, napsat si jednoduche dve
funkce ktere to prevedou tak, aby to byl zase textovy retezec. Pak si pomoci
jednoduche aplikace tyto texty pres clipboard prevedu a vlozim do zdrojoveho
kodu a pomoci dane funkce za behu prevedu na puvodni obsah. Prace tak na pul
hodiny.
Petr Vones
zakodovani stringu v .EXE
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 7.3.2003 13:01:20
Nebylo by jednodusi, kdybys mel kodovaci / dekodovaci funkci a ten reteze=
c
tahal z nejakeho externiho souboru?
Rumcajs
> Dobry den,
> existuje nejaky jednoduchy zpusob jak zakodovat nejakym zpusobem
> stringove retezce pouzite v programu tak aby nebyly volne citelne?
>
> Diky
> VN.
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
Re[2]: zakodovani stringu v .EXE
[*] Vladimir Nikel <vladimir.nikel(zv)vitkovice(tec)cz> - 7.3.2003 13:31:07
diky, zkusim.
VN.
<==============Original message text===============
Jenoduche reseni:
pouzij nejaky pakovac exace (ASPack, UPX, atd.). Ma to sice nevyhodu, ze se
da exac zase rozpakovat. Ale na zmateni / odrazeni mene zkusenych uzivatelu
by to mohlo stacit.
Slozite reseni:
Nekde na www.torry.net jsem videl unitu na zakodovani textu v exaci (mam ten
pocit ze umela i kodovat ini soubory, resource a mozna i formy) ale uz jsem
zapomel jak se jmenovala :-(. Zkus hledat, mozna najdes.
Dokonale reseni:
kombinace vyse uvedenych :-)
Zdravi
Spider_X
(michal.kuncl(zv)merlin(tec)cz)
----- Original Message -----
From: "Vladimir Nikel" <vladimir.nikel(zv)vitkovice(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 07, 2003 1:04 PM
Subject: zakodovani stringu v .EXE
> Dobry den,
> existuje nejaky jednoduchy zpusob jak zakodovat nejakym zpusobem
> stringove retezce pouzite v programu tak aby nebyly volne citelne?
>
> Diky
> VN.
>
Re[2]: zakodovani stringu v .EXE
[*] Vladimir Nikel <vladimir.nikel(zv)vitkovice(tec)cz> - 7.3.2003 13:24:16
to by slo, ale stejne tam v tom pripade musim mit nejakou konstantu s
s nejakou frazi podle ktere se budou ty retezce dekodovat.
VN.
<=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DOriginal message text=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Nebylo by jednodusi, kdybys mel kodovaci / dekodovaci funkci a ten reteze=
c
tahal z nejakeho externiho souboru?
Rumcajs
> Dobry den,
> existuje nejaky jednoduchy zpusob jak zakodovat nejakym zpusobem
> stringove retezce pouzite v programu tak aby nebyly volne citelne?
>
> Diky
> VN.
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003