Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Indy / Synampse - FTP klient jako proces.
[*] koukal(zv)petrkoukal(tec)cz - 4.5.2005 15:46:27
Dobry den.
Obracim ase na konferenci s dotazem :
Potrebjuj inapsat FTP klienta - jedoucho na pozadi jako proces.
Predtava je nasledujici : Proces bude periodicky prohledavat nejaky adresar, soubory, ktere v nem najde odesle na FTP server.
Musi byt schopen reagovat na chyby pir FTP prenosu (nedostupny server, chyba pri prenosu atd..).
Ma s tim nekdo zkusenosti? Je v tomto ripade lepsi pouziti Synapse mnebo INDY 10 ?
Pomohl by mi i priklad kodu.
Diky.,
Petr Koukal.
zavolani isapi knihovny z aplikace
[*] david.kopecek(zv)hacktrack(tec)com - 4.5.2005 10:22:04
Zdravim
nevite nekdo jak z vlastni aplikace zavolat ISAPI DLL pro zpracovani
PHP napriklad ?
David
OT: MSGRAPH
[*] Dalibor <dalibor(zv)torola(tec)cz> - 4.5.2005 09:32:00
Ahoj, mame aplikaci ktera vyuzia msgraph, na jednom s pocitacu s Win2000, na kterych jsou asi tri ucty uzivatelu.
Pod jednim z techto uctu se nam grafy nezobrazuji (Je to ucet pod kterym probehla prvni instalace a po nejakou dobu bylo vse OK).
Nevite nekdo v cem by mohl byt problem?
Dekuji
Dalibor
autentifikace k MySQL
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 4.5.2005 09:03:57
>Ale i pak jeste muze byt problem v samotnych ZEOS
>komponentach, ktere si s novou libmysql.dll nemuseji
>zcela rozumet... Nevim, nepouzivam je, ale snad Ti to
>alespon trosku pomuze v dalsim patrani...
Jen na okraj. Mam aplikace napsane s ZEOS 5.x radou.
S novou knihovnou libmysql.dll mi to vubec nefunguje.
Vypada to na problem s autentifikaci a kdovi jeste s cim.
Nemnel jsem cas se tim vubec zabyvat. Takze se myslim
ze ti to spis nepude nez pude bez uprav kodu.
Ostatne bez upgradu ZEOS muzes na nejake pripojovani
na 4.1 Server zapomenout. Problem je v tom ze
vyvojari MySQL zmenili dost veci, takze ti pak nefunguje
spravne ani MySQL Control Center, i kdyz se tvari ze je
vse OK. Navic nektere funkce v mysqllib.dll vraci jine
poradi vysledku a maji jine parametry.
Vaclav Halik
Zmena barvy aktualniho radku v gridu
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 4.5.2005 08:29:54
Wed, May 04, 2005 at 07:25:48AM +0200, Jan Fiala napsal(a):
> 3.5.2005 Martin Burle:
> >> Potreboval bych nejak zmenit barvu aktualne vybraneho radku v gridu.
> >> Zmenit barvu radku zvladnu, ale nevim, jak zjistit, ktery radek je
> > aktualni.
>
> > Mam dojem, ze jedina sance je v onAfterScroll zjistit recno, a to pak
> > porovnat s Recno datasetu v metode onDrawColumnCell. Ja jsem si neco
> > podobneho udelal na urovni vlastniho potomka gridu, abych to nemusel na
> > kazdem formulari psat znovu - prepsal jsem obsluhy nejakych zprav, v pripade
> > zajmu se podivam kterych :).
>
> Aktualni radek je ten, na ktery je postaven ukazatel v
> DBGrid.DataSource.Dataset
Ja to kdysi udelal takto (aktivni bunka ma jinou barvu):
if (gdFocused in State) then
begin
Canvas.Brush.Color := SelRowColor;
Canvas.Font.Color := SelRowText;
DrawFocusRect(Canvas.Handle,Rect);
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end
else if ((DataLink.ActiveRecord = Row - (RowCount - DataLink.RecordCount)) and
(not (dgMultiSelect in Options) or
(SelectedRows = nil) or (SelectedRows.Count <= 1))) then
begin
Canvas.Brush.Color := clHighlight;
Canvas.Font.Color := clHighlightText;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Luf
autentifikace k MySQL
[*] Planka Tomas <t.planka(zv)globus(tec)cz> - 4.5.2005 07:31:49
Problem zrejme bude v tom, ze mySQL server, na ktery se ve zminovanem pripade pripojujes je verze 4.1.x! V techto verzich se zmenil zpusob autentifikace uzivatelu, respektive se zmenilo (s ohledem na bezpecnost) kodovani hesel jednotlivych uzivatelu. Mela by pomoci nova verze DLL knihovny libmysql.dll (to je onen klient, ktery je treba upgradovat, je napr. soucasti WINDOWS verze instalace nejnovejsiho mySQL serveru). Ale i pak jeste muze byt problem v samotnych ZEOS komponentach, ktere si s novou libmysql.dll nemuseji zcela rozumet... Nevim, nepouzivam je, ale snad Ti to alespon trosku pomuze v dalsim patrani...
Tom
-----Original Message-----
From: Tomas Bradle [mailto:t.bradle(zv)sanet(tec)cz]
Sent: Tuesday, May 03, 2005 7:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: autentifikace k MySQL
Zdravim vsechny,
mam problem s pristupem na MySQL server u hostingu jednoho zakaznika. Pouzivam ZEOS komponenty, pri pokusu o pripojeni mi hlasi:
Client does not support authentication protocol requested by server; consider upgrading MySQL client
Jinak ten pristup napr. pres MySQL control center a MySQL-Front mi chodi, problem je prave jen pres ty ZEOS komponenty, ty mi ale u jinych klientu chodi bez problemu.
Nevi nekdo cim by to mohlo byt ? Co vlastne znamena upgrade klienta v tomhle pripade ?
diky za jakekoliv nakopnuti
Tomas Bradle
t.bradle(zv)sanet(tec)cz
Firebird a UDF funkce Rand
[*] pilifs <pilifs(zv)seznam(tec)cz> - 4.5.2005 07:29:48
Mate pravdu. Zkusil jsem si udelat vlastni funkci a ta mi pracovala
korektne.
Jednalo se mi o neco takoveho:
select rand(), col1, col2 from nejaka_tabule
Dodavana funkce s FIB pro kazdy radek generuje stejnou hodnotu :-(
>
> >Mam spatny pocit, ze funkce RAND nefunguje.
> >Alespon my jsme si psali vlastni a ta fungovala OK.
>
> > Slavek
>
>
>
>
>
Zmena barvy aktualniho radku v gridu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 4.5.2005 07:25:48
3.5.2005 Martin Burle:
>> Potreboval bych nejak zmenit barvu aktualne vybraneho radku v gridu.
>> Zmenit barvu radku zvladnu, ale nevim, jak zjistit, ktery radek je
> aktualni.
> Mam dojem, ze jedina sance je v onAfterScroll zjistit recno, a to pak
> porovnat s Recno datasetu v metode onDrawColumnCell. Ja jsem si neco
> podobneho udelal na urovni vlastniho potomka gridu, abych to nemusel na
> kazdem formulari psat znovu - prepsal jsem obsluhy nejakych zprav, v pripade
> zajmu se podivam kterych :).
Aktualni radek je ten, na ktery je postaven ukazatel v
DBGrid.DataSource.Dataset
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Zmena barvy aktualniho radku v gridu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.5.2005 23:21:13
> Potreboval bych nejak zmenit barvu aktualne vybraneho radku v gridu.
> Zmenit barvu radku zvladnu, ale nevim, jak zjistit, ktery radek je
aktualni.
Mam dojem, ze jedina sance je v onAfterScroll zjistit recno, a to pak
porovnat s Recno datasetu v metode onDrawColumnCell. Ja jsem si neco
podobneho udelal na urovni vlastniho potomka gridu, abych to nemusel na
kazdem formulari psat znovu - prepsal jsem obsluhy nejakych zprav, v pripade
zajmu se podivam kterych :).
MB
Prubezna aktualizace dotazu
[*] lelicek(zv)volny(tec)cz - 3.5.2005 20:29:00
Pokud je to v transakci, tak se to zavola i kdyz bude transakce
stornovana. Stale si myslim, ze napsat jednoduchou proceduru a
spoutet ji pravidelne v jobu serveru bude asi nejjednodusi a
nejbezpecnejsi.
Pavel
Od: konference(zv)sales(tec)cz
> No da se to treba takhel :
> Napises si jednoduchou dobre osetrenou applikaci (bude
> spoustena na
> serveru), ktera pri zavolani posle nejakou zpravu (message,
> nebo treba pres
> socket) aplikaci.
> Tu pak v triggeru zavolas :
> exec (zv)result = master..xp_cmdshell mojeapp.exe , no_output
autentifikace k MySQL
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 3.5.2005 20:25:00
Zdravim vsechny,
mam problem s pristupem na MySQL server u hostingu jednoho zakaznika.
Pouzivam ZEOS komponenty, pri pokusu o pripojeni mi hlasi:
Client does not support authentication protocol requested by server;
consider upgrading MySQL client
Jinak ten pristup napr. pres MySQL control center a MySQL-Front mi chodi,
problem je prave jen pres ty ZEOS komponenty, ty mi ale u jinych klientu
chodi bez problemu.
Nevi nekdo cim by to mohlo byt ? Co vlastne znamena upgrade klienta v tomhle
pripade ?
diky za jakekoliv nakopnuti
Tomas Bradle
t.bradle(zv)sanet(tec)cz
prohlizec HTML dokumentu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 3.5.2005 20:10:56
> 2. dokumenty nejak zasiforvat a napsat program, ktery v sobe bude mit web
> server, ktery bude umet tyto dokumenty desifrovat a posilat je embedovanemu
> prohlizeci. Toto reseni nepotrebuje nic zapisovat k uzivateli a k tem
> dokumentum se neautorizovana osoba jen tak nedostane.
>
> Zajima me toto. Jak narocne je vyrobit "web server" popsany v bode 2?
> Napada vas nekoho nejake jine reseni?
Vcelku jednoducha vec. Jadro HTTP serveru mas hotove jako demo k
Synapsi. V tom demu mas funkci, ktera dostava jako vstupni parametr
URI, podle toho najdes prislusny soubor, rozsifrujes, a vysledek
nalejes do MemoryStreamu... a zbytek demoaplikace ten obsah streamu
psole zpet do prohlizece. ;-)
Pochopitelne aby to melo smysl, tak bys tam mel pridat nejake
autorizacni mechanizmy,jako treba omezit z jakych pocitacu se na ten
server smi nekdo dostat (patrne bude povoleny jen localhost), a taky
musis nejak osetrit kdo se na ty stranky muze divat!
Jinak pokud by ti to demo nevyhovovalo a chtel bys radeji reseni v
podobe nejake komponenty, pak zkus na internetu najit VisualSynapse
projekt. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Zmena barvy aktualniho radku v gridu
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 3.5.2005 19:30:53
Ahoj,
doufam, ze me nebudete moc bit za tenhle dotaz.
Potreboval bych nejak zmenit barvu aktualne vybraneho radku v gridu.
Zmenit barvu radku zvladnu, ale nevim, jak zjistit, ktery radek je aktualni.
Typ udalosti TDrawColumnCellEvent mi o tom nic nerika.
Diky za jakekoliv nakopnuti.
Ladislav Stary
Komponenta pre tlac ciaroveho kodu (free)
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 3.5.2005 18:58:51
>Vdaka, ale priznam sa, ze komponentov s nazvom TBarcode som nasiel viac,
>vies mi konkretizovat nejaky link?
>M.
nasel sem
http://sodev.webzdarma(tec)cz/
Komponenta pre tlac ciaroveho kodu (free)
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 3.5.2005 18:42:50
>Vdaka, ale priznam sa, ze komponentov s nazvom TBarcode som nasiel viac,
>vies mi konkretizovat nejaky link?
Stahl jsem ji kdysi ze stranek (cz) ktery byly specializovany na komponenty Delphi ale uz nevim
jak byla adresa, dalo se tam prehledne najit vse.
Zda se ze toto je stejny
http://www.slunecnice(tec)cz/product/TBarcode/?SID=05D1571215CCB311C508F0B40994FE8F
Vykresluje do canvas, takze se s ni da i primo tisknout.prohlizec HTML dokumentu
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 3.5.2005 18:36:49
Ahoj *,
mam dokumenty, ktere jsou v html formatu a budou sireny na CD. Pozadavek je
aby je nemohl prohlizet neautorizovany uzivatel. napadaji me tato reseni:
1. dokumenty nejak zasiforvat a napsat program, ktery v sobe bude mit
embedovany prohlizec.Po autorizaci soubory rozsifrije, nekam umisti a necha
je prohlizet tim internim prohlizecem. Toto reseni ma tu nevyhodu, ze ty
rozsifrovany html dokumenty (150MB) umistim na uzivateluv PC a tim vznikne
riziko, ze se k nim dostane nepovolana osoba.
2. dokumenty nejak zasiforvat a napsat program, ktery v sobe bude mit web
server, ktery bude umet tyto dokumenty desifrovat a posilat je embedovanemu
prohlizeci. Toto reseni nepotrebuje nic zapisovat k uzivateli a k tem
dokumentum se neautorizovana osoba jen tak nedostane.
Zajima me toto. Jak narocne je vyrobit "web server" popsany v bode 2?
Napada vas nekoho nejake jine reseni?
Do dokumentu se neda zasahnout, takze nemuzu pocitat s nejakou podporou ze
strany html (javascriptu)
Dekuji za rady.
Prubezna aktualizace dotazu
[*] delphin(zv)post(tec)cz - 3.5.2005 13:52:29
> Napises si jednoduchou dobre osetrenou applikaci (bude spoustena na
> serveru), ktera pri zavolani posle nejakou zpravu (message, nebo treba
> pres
> socket) aplikaci.
> Tu pak v triggeru zavolas :
> exec (zv)result = master..xp_cmdshell mojeapp.exe , no_output
Diky za napady, tohle se mi libi nejvic. Prubezna aktualizace dotazu
[*] konference(zv)sales(tec)cz - 3.5.2005 13:16:26
] On Behalf Of Rosta
> tech zaznamu bylo treba jenom pet ... a to, ze to SQL server 'musi
> stihat' je spatna obhajoba ... Spatny je ten princip, ne ta
> vterina :) I
> kdyby ten dotaz probihal jednou za minutu a trval 0.0000nic,
> tak to neni
> dobre reseni.
> Rosta
> (Jedno z dobrych reseni uz nekdo posilal - pres trigger si
> poslat zpravu
> o udalosti. Pokud SQL server nepodporuje eventy, je to
> slozitejsi, ale
> ne neresitelne.)
>
> lelicek(zv)volny(tec)cz wrote:
>
> >Proc neni mozne opakovat dotaz kazdou sekundu ?
> >Je akce moc dlouha ? - potom to budou muset delat ruzne joby
> >Dotaz trva dlouho ? - pak je ho potreba optimalizovat, nekolik
> >stovek zaznamu neni zas tak moc.
Ahoj,
No da se to treba takhel :
Napises si jednoduchou dobre osetrenou applikaci (bude spoustena na
serveru), ktera pri zavolani posle nejakou zpravu (message, nebo treba pres
socket) aplikaci.
Tu pak v triggeru zavolas :
exec (zv)result = master..xp_cmdshell mojeapp.exe , no_output
Ludek
ShareMem - ano ci ne ???
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 3.5.2005 12:42:24
Ales wrote:
> Ahoj,
>
> a co pouzit misto PChar WideString? Delphi ma pro WideString podporu, takze
> se nemusis starat o alokaci pameti a zaroven nemusis vyuzivat ani ShareMem.
>
> Ales
A co takhle FastShareMem?
http://www.codexterity.com/fastsharemem.htm
R.
Zajimave chovani FireBirdu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 3.5.2005 11:10:18
Jiri Cincura wrote (on Sunday, May 01, 2005 6:50 PM):
> Ahoj,
>
> muzu se zeptat, proc mi tohle dela FB?
>
> Kdyz dam ve SP:
>
> execute statement 'SELECT (CURRENT_DATE-(CAST(MIN(datum) AS DATE)))/7
> FROM um' into :vysledek;
>
> tak musim vysledek zadefinovat jako BigInt, ale kdyz dam:
>
> SELECT (CURRENT_DATE-(CAST(MIN(datum) AS DATE)))/7 FROM um into :vysledek;
>
> tak staci jako Integer.
>
> Muze mi to nekdo vysvetlit?
Nikdo nevi?
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Poloka menu nepojena na Action
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 3.5.2005 10:56:17
Mam polozku TMenuItem napojenou na akci z TActionList. Pokud v dobe navrhu menim v editoru akci nastaveni vlastnosti Enabled promitne se jeji nastaveni do menu (dokonce vse je ihned videt v editoru menu). Pokud tuto zmenu provedu v programu za behu hodnota TAction.Enabled se zmeni, ale TMenuItem.Enabled zustane jak je. Co delam spatne?
Firebird a UDF funkce Rand
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 3.5.2005 10:46:16
Na to je tezke odpovedet, nebot netusim, co delas.
Z tveho popisu to zrovna jednoznacne neni.
Posli kod, bez toho se zde jedna jen o teoreticke cviceni.
To, ze by FB funkci nezavolal se mi opravdu nepozdava.
Slavek
> strany FIB k nejake takove optimalizaci, ktera by mohla
> ovlivnit tuhletu funkci, respektive ji podobne (nepredavaji
> se ji zadne parametry)?
>
> >Mam spatny pocit, ze funkce RAND nefunguje.
> >Alespon my jsme si psali vlastni a ta fungovala OK.
>
> > Slavek
>
>
>
>
>
>
> Firebird a UDF funkce Rand
[*] pilifs <pilifs(zv)seznam(tec)cz> - 3.5.2005 10:38:15
Urcite funguje alespon teda castecne. Pokud ji volam z oddelenych SQL
prikazu (ne v jedne davce) tak to vypada korektne.
Spis se mi ted jedna o princip: dochazi teda ze strany FIB k nejake takove
optimalizaci, ktera by mohla ovlivnit tuhletu funkci, respektive ji podobne
(nepredavaji se ji zadne parametry)?
>Mam spatny pocit, ze funkce RAND nefunguje.
>Alespon my jsme si psali vlastni a ta fungovala OK.
> Slavek
Firebird a UDF funkce Rand
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 3.5.2005 10:18:14
Mam spatny pocit, ze funkce RAND nefunguje.
Alespon my jsme si psali vlastni a ta fungovala OK.
Slavek
>
> Zdravim ve spolek,
> chtel jsem si udelat ve FIB proceduru, ktera by vracela tzv.
> docasnou tabulku v niz jeden sloupec by predstavoval nahodne
> cislo. Bohuzel jsem zjistil, ze FIB pravdepodobne z
> optimalizacnich duvodu vygeneruje nahodne cislo jen jednou a
> to mi dosadi do vsech vracenych radku. Muzete poradit jak lze
> toto na urovni DB vyresit?
>
> L. Filip
>
>
> Komponenta pre tlac ciaroveho kodu (free)
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 3.5.2005 09:44:11
Vdaka, ale priznam sa, ze komponentov s nazvom TBarcode som nasiel viac,
vies mi konkretizovat nejaky link?
M.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of John Bricklayer
Sent: Monday, May 02, 2005 9:05 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Komponenta pre tlac ciaroveho kodu (free)
A co TBarcode ? Je free (aspon jsem se nikde nedocetl ze ne) a funguje
Prubezna aktualizace dotazu
[*] Rosta <rlekes(zv)atlas(tec)cz> - 3.5.2005 08:34:06
Ahoj,
mozne to mozna je (neznam ten konkretni pripad), ale z principu hledej
vzdycky jine reseni nez reseni typu 'dotaz kazdou vterinu' ... i kdyby
tech zaznamu bylo treba jenom pet ... a to, ze to SQL server 'musi
stihat' je spatna obhajoba ... Spatny je ten princip, ne ta vterina :) I
kdyby ten dotaz probihal jednou za minutu a trval 0.0000nic, tak to neni
dobre reseni.
Rosta
(Jedno z dobrych reseni uz nekdo posilal - pres trigger si poslat zpravu
o udalosti. Pokud SQL server nepodporuje eventy, je to slozitejsi, ale
ne neresitelne.)
lelicek(zv)volny(tec)cz wrote:
>Proc neni mozne opakovat dotaz kazdou sekundu ?
>Je akce moc dlouha ? - potom to budou muset delat ruzne joby
>Dotaz trva dlouho ? - pak je ho potreba optimalizovat, nekolik
>stovek zaznamu neni zas tak moc.
>
Firebird a UDF funkce Rand
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 3.5.2005 08:20:04
Ahoj,
napada me, ze FB predpoklada, ze kdyz ma UDFka stejny vstupni
paramter (pokud vubec nejaky), vraci stale stejnou hodnotu. Mohlo by
pomoci, kdyby sel do funkce predavat parametr, byt by se k nicemu
nepouzil, a do toho parametru nacpat nejaka sloupec z dotazovane
tabulky, nebo z generatoru, proste neco, co by server povazoval za
promennou hodnotu, aby UDFko volal na kazdem radku.
To je moje domnenka, nebrat za bernou minci.
Peca
Firebird a UDF funkce Rand
[*] pilifs <pilifs(zv)seznam(tec)cz> - 3.5.2005 07:48:00
Zdravim ve spolek,
chtel jsem si udelat ve FIB proceduru, ktera by vracela tzv. docasnou
tabulku v niz jeden sloupec by predstavoval nahodne cislo.
Bohuzel jsem zjistil, ze FIB pravdepodobne z optimalizacnich duvodu
vygeneruje nahodne cislo jen jednou a to mi dosadi do vsech vracenych radku.
Muzete poradit jak lze toto na urovni DB vyresit?
L. Filip
Prubezna aktualizace dotazu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 3.5.2005 07:15:55
delphin(zv)post(tec)cz dne 2 May 2005 v 18:30:
> Predpokladejme, ze zaznamy kontroluji po 5-ti minutach, treba v
> 00:00:00, v 00:05:00, atd. Kdyz tam nekdo v 00:00:08 prida zaznam, ze
> chce akci v 00:00:10, tak se akce provede az v 00:05:00, coz je
> spatne.
Ahoj,
ve FireBirdu bych pouzil trigger (after insert, popr. i after update) a z nej bych poslal event,
ktery by obsluhujici aplikace zachytila - tim by se nemusela neustale dotazovat, dotaz by byl
treba jen v okamziku, kdy by prisel event.
Karel Rys
Reverzni funkce k funkci Format (string)
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 2.5.2005 22:01:13
Frantisek Mlcoch wrote (on Monday, May 02, 2005 9:53 PM):
> Zdravim, nevite nekdo o funkci nebo zpusobu, ktery by fungoval opacne k
> funkci Format <string>. Potrebuji ze stringu, ktery obsahuje mnozstvi v
> textove podobe vyjadrenych hodnot dostat spolehlive ty hodnoty. Jen pro
> nazornost uvadim cast obsahu toho stringu. Ty hodnoty nemusi byt vzdy na
> stejnem miste nebo ve stejnem poradi.
>
A co zkusit regularni vyrazy. Treba http://RegExpStudio.com
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Reverzni funkce k funkci Format (string)
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 2.5.2005 21:53:12
Zdravim, nevite nekdo o funkci nebo zpusobu, ktery by fungoval opacne k
funkci Format <string>. Potrebuji ze stringu, ktery obsahuje mnozstvi v
textove podobe vyjadrenych hodnot dostat spolehlive ty hodnoty. Jen pro
nazornost uvadim cast obsahu toho stringu. Ty hodnoty nemusi byt vzdy na
stejnem miste nebo ve stejnem poradi.
-----------------
{Reset}
{600 DPI Graphics resolution}
{Set 600 dpi dot resolution}
{Rotate image}
{Landscape}
{Feed from Tray 1 (upper)}
{A4}
{Set VMI = 8/48"}
{Define Top Margin at 1 Lines}
{Horiz position = 0 Dots}
{Vert position = 0 Dots}
{HP GL Picture anchor point = current position}
{HP GL Picture frame width 8134 decipoints}
{HP GL Picture frame height 5712 decipoints}
{Select 1 Copies}
{uncompressed}
----------------
Diky F.
Prubezna aktualizace dotazu
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 2.5.2005 21:21:10
> Samozrejme provadet dotaz 1x za sekundu je nesmysl
Pokud ten dotaz neni slozity, tak by to pro normalni databazovy stroj
nemel byt zase az takovy problem. Napriklad si muzes vytvorit tabulku
s jedinym radkem a jedinou hodnotou - okamzik posledni zmeny -
nastavovanou na Now() automaticky trigerem 'onchange'. Dokonce, pokud
ta tabulka ma to casove pole indexovane, ani 'select max(casove_pole)'
by jednou sa sekundu nemel byt pro slusny server zadnou zatezi.
Jinak sekundova presnost uz je v oblasti, kde by se hodilo pouzit
nejaky jiny aparat (treba 'WaitForSingleObject' ve zvlast threadu
cekajici na vytvoreni flagoveho souboru na sdilenem disku). Nebo v tom
threadu muze cekat SQL dotaz na vysledek stored procedury. Se
samostatnym connection.
Jeste se podivej do konference kolem 4.3. na predmet 'MS SQL, trigger,
aplikace v D7'.
Komponenta pre tlac ciaroveho kodu (free)
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 2.5.2005 21:05:09
A co TBarcode ? Je free (aspon jsem se nikde nedocetl ze ne) a funguje
Prubezna aktualizace dotazu
[*] lelicek(zv)volny(tec)cz - 2.5.2005 20:41:06
Proc neni mozne opakovat dotaz kazdou sekundu ?
Je akce moc dlouha ? - potom to budou muset delat ruzne joby
Dotaz trva dlouho ? - pak je ho potreba optimalizovat, nekolik
stovek zaznamu neni zas tak moc.
Bezi to na serveru nebo MSDE ?
Pavel
Od: delphin(zv)post(tec)cz
> Predpokladejme, ze zaznamy kontroluji po 5-ti minutach, treba v
> 00:00:00, v
> 00:05:00, atd.
> Kdyz tam nekdo v 00:00:08 prida zaznam, ze chce akci v
> 00:00:10, tak se akce
> provede az v 00:05:00, coz je spatne.
kresleni na obraz z webkamery
[*] Pavel P <pavel(zv)tvsp(tec)net> - 2.5.2005 19:59:03
Zkuste treba VideoLab, da se stahnout treba z torry.net, v nem se da k orazku chovat jako k standartni Tbitmap, dokonce je tam tusim primo demo ktere dela neco podobneho.
----- Original Message -----
From: Vladimir Zavadil <zavadilv(zv)seznam(tec)cz>
To: delphi-l(zv)clexpert(tec)cz
Sent: Mon, 2 May 2005 17:48:54 +0200
Subject: kresleni na obraz z webkamery
> Ahoj Vsem,
> pokousim se ve sve aplikaci rozchodit webkameru a do obrazu zni ziskaneho
> kreslit nejake cary. Obraz uz jsem nejak dostal pres WDM a komponentu Tcapture,
> ale nevim jak do toho obrazu nakreslit ty cary, protoze obraz je primo
> vykreslovany na obrazovku. Muze mne tady nekdo nakopnout jak to udelat a nebo
> jakym smerem se mam obratit.
>
> Dik Vlada
>
> Prubezna aktualizace dotazu
[*] delphin(zv)post(tec)cz - 2.5.2005 18:30:57
> Zdravim,
> muzes to trosku upresnit?
> Predpokladam, ze z tabulky vyberes zaznamy ktere splnuji nejake kriterium
> a na ty pak aplikujes akci.
> Tohle by se dalo resit pametove deklarovanyma tabulkama kam bys vybral co
> potrebujes a na tech provedl
> zanou akci treba cyklme.
> Pripadne pokud tech akci neni prilis muzes pouzivat case a projizdet
> nactene rekordsety treba po tech 5 minutach.
Predpokladejme, ze zaznamy kontroluji po 5-ti minutach, treba v 00:00:00, v
00:05:00, atd.
Kdyz tam nekdo v 00:00:08 prida zaznam, ze chce akci v 00:00:10, tak se akce
provede az v 00:05:00, coz je spatne. OnChanging TPageControl a ja potrebuji zjistit jak
[*] Kalhous <kalhous(zv)eu(tec)cz> - 2.5.2005 18:12:56
Tedy nevim jestli spravne rozumim otazce ale prepinani zalozek "z programu"
delam kazdou chvili a to tak
ze
PageControl.ActivePageIndex:=...;
nebo
PageControl.ActivePage:=...;
(podle toho jestli znam index nebo jmeno zalozky na kterou se chci prepnout)
PageControl.OnChange(Self);
refresh;
Zatim jsem se nesetkal s nefungovanim, ale obsluhu udalosti OnChange jak
vidno si volam.
----- Original Message -----
From: "Jiri Bouchala" <bouchala(zv)starmon(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 02, 2005 3:38 PM
Subject: Re: OnChanging TPageControl a ja potrebuji zjistit jak zajistit
vyvolani udalosti
> Uz to nekdo vi?
> Sender je TPageControl a jelikoz OnChanging nastane pred prepnutim neni
> patrne jeste ActivePageIndex nastaven. Ale nezkoumal jsem to. Je to stary
> dotaz - patrne vyreseny.
> Ja potrebuji vyvolat OnChange a OnChanging udalost ne kliknutim mysi na
> zalozku, ale z programu. Pri nastaveni ActivePage ony udalosti nenastanou.
> Vite jak na to?
>
>
> Zdravim.
>
> Pouzivam TPageControl a potreboval by som pri vyvolani udalosti OnChanging
> ziskat informaciu o tom, na ktory TabSheet sa pokusam prepnut.
>
> Riesil to uz niekto z vas?
>
> peter svetlik, D5
>
> Prubezna aktualizace dotazu
[*] jiri.bartonek(zv)email(tec)cz - 2.5.2005 18:10:55
Zdravim,
muzes to trosku upresnit?
Predpokladam, ze z tabulky vyberes zaznamy ktere splnuji nejake kriterium a na ty pak aplikujes akci.
Tohle by se dalo resit pametove deklarovanyma tabulkama kam bys vybral co potrebujes a na tech provedl
zanou akci treba cyklme.
Pripadne pokud tech akci neni prilis muzes pouzivat case a projizdet nactene rekordsety treba po tech 5 minutach.
s pozdravem
Jiri Bartonek
> --- Puvodni zprava ---
> Od: delphin(zv)post(tec)cz
> Datum: 02.05.2005 16:49:18
>
> D7+MSSQL.
> Do tabulky zapisuje jina aplikace zaznamy s datetime s rozlisenim na
> sekundy. Muze zapsat obecne treba jenom 1 sekundu pred hodnotou v datetime.
> Zaznamu bude nekolik stovek denne a jinak nez pres DB to nelze resit.
> V Delphi v ADOQuery mam dotaz, ktery mi zjisti, co se ma delat a na zaklade
> datetime provedu nejakou akci.
> Samozrejme provadet dotaz 1x za sekundu je nesmysl a pri zvoleni nejakeho
> rozumneho intervalu, treba 5 minut zase nektere zaznamy prijdou na radu
> pozde.
> Neni na tohle nejaka finta ?
>
> Diky Delphin
>
>
kresleni na obraz z webkamery
[*] Vladimir Zavadil <zavadilv(zv)seznam(tec)cz> - 2.5.2005 17:48:54
Ahoj Vsem,
pokousim se ve sve aplikaci rozchodit webkameru a do obrazu zni ziskaneho
kreslit nejake cary. Obraz uz jsem nejak dostal pres WDM a komponentu Tcapture,
ale nevim jak do toho obrazu nakreslit ty cary, protoze obraz je primo vykreslovany na obrazovku. Muze mne tady nekdo nakopnout jak to udelat a nebo jakym smerem se mam obratit.
Dik Vlada
Prubezna aktualizace dotazu
[*] delphin(zv)post(tec)cz - 2.5.2005 16:32:48
D7+MSSQL.
Do tabulky zapisuje jina aplikace zaznamy s datetime s rozlisenim na
sekundy. Muze zapsat obecne treba jenom 1 sekundu pred hodnotou v datetime.
Zaznamu bude nekolik stovek denne a jinak nez pres DB to nelze resit.
V Delphi v ADOQuery mam dotaz, ktery mi zjisti, co se ma delat a na zaklade
datetime provedu nejakou akci.
Samozrejme provadet dotaz 1x za sekundu je nesmysl a pri zvoleni nejakeho
rozumneho intervalu, treba 5 minut zase nektere zaznamy prijdou na radu
pozde.
Neni na tohle nejaka finta ?
Diky Delphin OnChanging TPageControl a ja potrebuji zjistit jak
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 2.5.2005 15:38:44
Uz to nekdo vi?
Sender je TPageControl a jelikoz OnChanging nastane pred prepnutim neni patrne jeste ActivePageIndex nastaven. Ale nezkoumal jsem to. Je to stary dotaz - patrne vyreseny.
Ja potrebuji vyvolat OnChange a OnChanging udalost ne kliknutim mysi na zalozku, ale z programu. Pri nastaveni ActivePage ony udalosti nenastanou. Vite jak na to?
Zdravim.
Pouzivam TPageControl a potreboval by som pri vyvolani udalosti OnChanging
ziskat informaciu o tom, na ktory TabSheet sa pokusam prepnut.
Riesil to uz niekto z vas?
peter svetlik, D5
ShareMem - ano ci ne ???
[*] Ales <konference(zv)vasicek.biz> - 2.5.2005 15:36:44
Ahoj,
a co pouzit misto PChar WideString? Delphi ma pro WideString podporu, takze
se nemusis starat o alokaci pameti a zaroven nemusis vyuzivat ani ShareMem.
Ales
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Milan Tomes
>
> prave s kolegou resime zasadni problem - potrebujeme z/do DLL predavat
> stringy a nemuzeme se dohodnout jestli postupovat pres
> buffery a jejich
> delky nebo jednoduse pouzit unitu ShareMem resp. knihovnu
> BorlndMM.dll.
> Balicky jsme zavrhli jiz davno, protoze bychom se nejspise dostali do
> zacarovaneho kruhu.Monitorovani TCP prenosu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.5.2005 15:16:42
Rosta <rlekes(zv)atlas(tec)cz> wrote:
> Nevim, jestli si to chces sam napsat, tak nepomuzu, ale jestli
> hledas
> hotove reseni, myslim, ze nic lepsiho neni:
> http://www.sysinternals.com/ntw2k/source/tcpview.shtml
tcpview nemonitoruje TCP provoz ale zobrazuje informace o tom, ktery
TCP port ma otevrena jaka aplikace (vylepseny netstat) a jeste to
nefunguje na Win9X/Me atd. Nerikam, ze to neni uzitecna aplikace
(napriklad pri odhlalovani viru a trojskych konu)
D. Toman
ShareMem - ano ci ne ???
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 2.5.2005 15:06:41
Mam dotazek,
prave s kolegou resime zasadni problem - potrebujeme z/do DLL predavat
stringy a nemuzeme se dohodnout jestli postupovat pres buffery a jejich
delky nebo jednoduse pouzit unitu ShareMem resp. knihovnu BorlndMM.dll.
Balicky jsme zavrhli jiz davno, protoze bychom se nejspise dostali do
zacarovaneho kruhu.
Takze - pouzit ShareMem nebo nepouzit ??? Mate nekdo nejake postrehy /
zkusenosti at uz pozitivni ci negativni ???
S pozdravem
Milan Tomes
Monitorovani TCP prenosu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.5.2005 14:52:40
Tomas Bradle <t.bradle(zv)sanet(tec)cz> wrote:
> Zdravim vsechny,
>
> chtel bych si udelat monitorovani a protokolovani veskereho provozu
> TCP pres moji proxy. Mohl by me nekdo zasveceny nasmerovat do toho
> spravneho smeru ? Zhruba se orientuji v komunikaci TCP s pomoci
> Synapse.
pokud to ma byt skutecne low level ( a obecnejsi reseni) pak musis:
1) byt schopen zachytit ty packety - existuji free prostredky (driver+
API dll), ktere tohle umoznuji (viz www.tcpdump.org)
2) musis znat strukturu IP packetu, abys rozeznal ten provoz co te
zajima a byl schopen ho klasifikovat.
3) musis se naucit identifikovat packety prislusejicich danemu
spojeni, vytahat z nich data a nalozit s nimi tak jak potrebujes
neni to az tak slozite jak by to mohlo mozna na prvni pohled vypadat -
jen je treba se seznamit se strukturou IP packetu. Ale veci ze
synapse Ti v tomhle pravdepodobne vubec nepomuzou
D. Toman
nefunguje %userprofile%
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 2.5.2005 14:40:31
dd,
Odkazuji se ve svem programu na cestu danou %USERPROFILE% ale na
nekterych PC winXP mi to nefunguje a hlasi cesta nenalezena
pravdepodobne to bude nejaka chybka nastaveni windows ale nevim jak na
to poradil by nekdo kde je nadefinovano kam se ma pri pokusu o pristup
na %userprofile% smerovat ?
diky PM
PChar v dll
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 2.5.2005 14:18:30
Ahoj,
Buff je alokovan na zasobniku, result ukazuje na nej, neni potreba nic
uvolnovat,
ale hrozi prepsani zasobniku a tedy prepsani dat.
( teda jestli se nepletu :-) )
Pavel
> Mejme nasledujici deklaraci funkce v DLL:
>
> Function xxx: PChar; stdcall;
> var
> Buff: array [0..127] of char;
> begin
> StrPCopy(Buff, 'test');
> Result := Buff;
> end;
>
> Napada me dotaz: kdy, kdo a jak provede uvolneni one lokalni promenne ???
> Je
> tento zapis vubec pouzitelny ??? Nevznikne nejaky memory leak ???
>
PChar v dll
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.5.2005 14:14:27
Puvodni zprava ze dne 2.5.2005:
> Function xxx: PChar; stdcall;
> var
> Buff: array [0..127] of char;
> begin
> StrPCopy(Buff, 'test');
> Result := Buff;
> end;
> Napada me dotaz: kdy, kdo a jak provede uvolneni one lokalni promenne ???
Uvolni se hned po ukonceni funkce - jako kazda jina lokalni promenna.
> Je tento zapis vubec pouzitelny ???
Neni, kdyz ten Result bude ukazovat na prave uvolnene pole znaku.
> Nevznikne nejaky memory leak ???
Nevznikne, protoze to bude uvolneno.
Predavani takovych poli znaku se vzdy musi ridit z hlavni aplikace,
tj. hlavni aplikace musi buffer vytvorit, musi do DLL predat ukazatel
na tento buffer a take jeho delku, pokud neni stanovena implicitne. A
hlavni aplikace pak musi buffer take zase sama uvolnit.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
PChar v dll
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 2.5.2005 14:10:22
> A jak nejlepe resit, kdyz nevim, jak velka ta vracena data v PChar budou?
Celkem elegantni zpusob je i pomoci callbacku, kterym se da vyhnout
nutnost zrizovat nejaky buffer.
Daniel
---------------------------------------------------------------
Scanning complete: NO intelligent life form in range.PChar v dll
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 2.5.2005 14:04:16
Mejme nasledujici deklaraci funkce v DLL:
Function xxx: PChar; stdcall;
var
Buff: array [0..127] of char;
begin
StrPCopy(Buff, 'test');
Result := Buff;
end;
Napada me dotaz: kdy, kdo a jak provede uvolneni one lokalni promenne ??? Je
tento zapis vubec pouzitelny ??? Nevznikne nejaky memory leak ???
Diky
Milan Tomes
PChar v dll
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 2.5.2005 13:52:15
Mon, May 02, 2005 at 01:20:12PM +0200, Ladislav Fitz napsal(a):
>
> > A jak nejlepe resit, kdyz nevim, jak velka ta vracena data v PChar budou?
>
> dll zavolas dvakrat poprve s nil a funkce kterou volas ti vrati delku a
> podruhe s jiz hotovym bufferem
A nebo bude dll mit dalsi metodu, pres kterou se ten PChar bude rusit.
Luf
PChar v dll
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 2.5.2005 13:20:12
> A jak nejlepe resit, kdyz nevim, jak velka ta vracena data v PChar budou?
dll zavolas dvakrat poprve s nil a funkce kterou volas ti vrati delku a
podruhe s jiz hotovym bufferem
PChar v dll
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 2.5.2005 13:14:11
> No zaklad je to, ze Pchar je vlastne jen pointer, takze pokud ho predavas
> do
> DLL, tak bys mel udelat to, ze predas pointer na buffer a jeho velikost.
> Alokaci potom presunes do hlavni aplikace a je po starosti...
A jak nejlepe resit, kdyz nevim, jak velka ta vracena data v PChar budou?
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 PChar v dll
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 2.5.2005 12:56:10
No zaklad je to, ze Pchar je vlastne jen pointer, takze pokud ho predavas do
DLL, tak bys mel udelat to, ze predas pointer na buffer a jeho velikost.
Alokaci potom presunes do hlavni aplikace a je po starosti...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Marek Dostal
> Sent: Monday, May 02, 2005 12:50 PM
>
> Prosim o radu: uvnitr funkce v dll knihovne alokuji pchar,
> ktery predam v parametrech volane funkce. Kde mam ten pchar
> uvolnit? Kdyz ho chci uvolnit v programu, ktery funkci z dll
> volal, tak to skonci na Invalid pointer operation.PChar v dll
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 2.5.2005 12:50:08
Prosim o radu: uvnitr funkce v dll knihovne alokuji pchar, ktery predam v parametrech volane funkce. Kde mam ten pchar uvolnit? Kdyz ho chci uvolnit v programu, ktery funkci z dll volal, tak to skonci na Invalid pointer operation.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5
Pridani sloupce typu MEMO do paradoxovske tabulky
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 2.5.2005 12:34:07
Dobry den,
rad bych pouzil pro pridani sloupce do paradoxovske tabulky
Prikazu ALTER TABLE xxx ADD column_Name datovy_typ_memo.
Jen nevim jaky datovy typ by to mel v prikazu ALTER byt.
Pouzivam D6 a win XP a k paradoxu se pripojuji pomoci BDE.
Kdyz pouziji prikaz ALTER TABLE xxx ADD column_Name BLOB
Je vse OK, jenze ja nechci pouzivat BLOB ale MEMO.
Dokazete mi poradit jak pridat memo sloupecek do paradox tabulky?
Z nouze bych bral i jine reseni nez pres SQL prikaz ALTER TABLE.
Petr Gregor
Zmena zahlavi formulare
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 2.5.2005 11:22:01
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ing. Igor Vodicka
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Kalhous
> >
> > Kdyz nenajdete nic lepsiho, zkuste komponentu RxGradient z RxLibrary.
> > ----- Original Message -----
> > From: "Ing. Igor Vodicka" <vodicka(zv)sagit(tec)cz>
> > > Napadlo mne zkusit zmenit barvu zahlavi okna i barvu fontu
> > > caption okna, a to mi prave nejde. Nevite nekdo jak na to? Je
>
> To mne pozdeji take napodlo, pouzit komponentu tohoto druhu. Pouzil jsem
> komponentu JvGradientCaption z JEDI-VCL. Mam ji umistenou na MDIChild okne
> jako neaktivni, Zapinam a vypinem ji v okamziku prepinani okna do
> "zvlastniho rezimu". V normalni SDI aplikaci to funguje dobre,
> ale u MDI se
> to chova nekorektne.
>
> Neznate nekdo nejaky zpusob bez pouziti komponent, neco primo pres funkce
> Delphi?
Nikdo se prozatim nevyjadril, tak to zkousim s komponentou JvGradientCaption
z JEDI-VCL. Jsem momentalne ve stavu:
Na MDIchild okne mam iumistenou komponentu, nastaveny zakladni vlastnosti:
StartColor, GradientSteps = 1 (nechci promenlive zahlavi), GradientInactive
a GradientActive = True. Komponenta je neaktivni. Okno vytvorim, vse je OK.
Okno prepnu do "zvlastniho stavu" (v logice programu ho chci odlisit od
ostatnich oken), aktivuji komponentu JvGradientCaption. Zahlavi se spravne
zmeni. Prepinani mezi jednotlivymi MDIchild okny take bez problemu.
Potize nastavaji ve dvou pripadech:
1. Okno prepinam zpet do bezneho stavu (komponentu JvGradientCaption
deaktivuji), cast zahlavi se vrati do puvodniho stavu, ale 1/3 zprava
zustane zabarvena pro "zvlastni stav". Prepnuli se do jineho okna a zpet je
vse OK.
2. Okno je zapnuto ve "zvlastnim stavu" (komponenta JvGradientCaption je
aktivovana); pomoci mysi tahem menim velikost okna, jakmile sirka okna
klesne pod sirku textu v zahlavi okna, text zmizi, zustane jen zmenena barva
zahlavi. Pri roztazeni okna se text zahlavi zase objevi.
Muze to byt treba chyba v komponente JvGradientCaption, nevim. Nema nekdo z
vas zkusenosti s touto komponentou nebo nezna nekdo jinou, ktera se takto
nechova?
Igor Vodicka
referencni integrita v DB
[*] Tomas Krecek <tomas_krecek(zv)centrum(tec)cz> - 2.5.2005 10:37:57
Bohuzel jsem to chtel prave pro MSSQL 2000, neni tam treba neco podobneho?> Tohle se jmenuje DEFERRED CONSTRAINTS, ale nenapsal jste> pro jaky SQL server, to ma byt, tak Vam asi tezko nekdo poradi.> Jinak Microsoft SQL Server to nema.to by asi slo. jenze zase potrebuju pri ukladani 3 sql prikazy a navic se zesloziti i nacitani> Muzu se zeptat proc to chces resit takhle ??? Pokud trvas na moznosti> propojeni jedne objednavky na vice faktur a vice versa, tak bych radsi> vytvoril vazebni tabulku. U te nebudes mit takoveto problemy.referencni integrita v DB
[*] Kalhous <kalhous(zv)eu(tec)cz> - 2.5.2005 10:37:58
Takovahle vazba tam a zpatky neni moc vhodna obecne a v tomto pripade se mi
zda obzvlast nesikovna. Pokud ma jit o vazbu m:n (k fakture muze byt
libovolny pocet objednavek a k objednavce faktur) tak je cistsi to delat
pres vazebni tabulku, casem se urcite vyskytnou i nejake ty atributy vazby a
kam pak s nimi, ze. A specielne v tomhle pripadku bych si jeste rozmyslel
jestli to ma byt vazba mezi doklady nebo mezi jejich polozkama - to jen
zcela na okraj protoze samozrejme neznam cilovou funkci programu.
> rad bych se zeptal na reference v databazi - cizi klice. Mam zalozene
> tabulky Objednavky a Faktury tak ze objednavka muze mit referenci na
> faktury a faktura na objednavku (skripty jsou dole). Mam omezeni ref.
> integritou prave z duvodu aby se mi nerozhodila databaze.
> create table Objednavky ( PK integer NOT NULL PRIMARY KEY, Faktura
> integer, DalsiParametry varchar(60) )
> create table Faktury ( PK integer NOT NULL PRIMARY KEY, Objednavka integer
> constraint FAK1 references referencni integrita v DB
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 2.5.2005 10:17:56
Muzu se zeptat proc to chces resit takhle ??? Pokud trvas na moznosti
propojeni jedne objednavky na vice faktur a vice versa, tak bych radsi
vytvoril vazebni tabulku. U te nebudes mit takoveto problemy.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of tomas krecek
> Sent: Monday, May 02, 2005 9:54 AM
>
> rad bych se zeptal na reference v databazi - cizi klice. Mam
> zalozene tabulky Objednavky a Faktury tak ze objednavka muze
> mit referenci na faktury a faktura na objednavku (skripty
> jsou dole). Mam omezeni ref. integritou prave z duvodu aby se
> mi nerozhodila databaze.referencni integrita v DB
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 2.5.2005 10:09:55
> Neexistuje nejaky specialni mod, treba nejaky druh transakce
> nebo neco, kdyz bych provedl INSERTy a reference by se
> kontrolovala az pri konecnem commitu do databaze.
Tohle se jmenuje DEFERRED CONSTRAINTS, ale nenapsal jste
pro jaky SQL server, to ma byt, tak Vam asi tezko nekdo poradi.
Jinak Microsoft SQL Server to nema.
Tomas Zalesak
referencni integrita v DB
[*] tomas krecek <tomaskrecek(zv)seznam(tec)cz> - 2.5.2005 09:53:54
Dobry den,
rad bych se zeptal na reference v databazi - cizi klice. Mam zalozene tabulky Objednavky a Faktury tak ze objednavka muze mit referenci na faktury a faktura na objednavku (skripty jsou dole). Mam omezeni ref. integritou prave z duvodu aby se mi nerozhodila databaze.
Problem ktery ale resim je ze musim ukladat na trikrat.
1/ nejdriv treba objednavku bez reference na fakturu,
2/ pak fakturu i s referenci na objednavku
3/ update objednavky - dosadim referenci na fakturu
Chtel bych nejak sloucit body 1 a 3 dpo jednoho sql, ale kvuli referencni integrite to nejde. Neexistuje nejaky specialni mod, treba nejaky druh transakce nebo neco, kdyz bych provedl inserty a reference by se kontrolovala az pri konecnem commitu do databaze.
Dekuji
create table Objednavky ( PK integer NOT NULL PRIMARY KEY, Faktura integer, DalsiParametry varchar(60) )
create table Faktury ( PK integer NOT NULL PRIMARY KEY, Objednavka integer constraint FAK1 references Objednavky(PK), DalsiParametry varchar(60) )
alter table objednavky add Faktura integer constraint OBJ1 references Faktury(PK)
Problemy s pameti
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 2.5.2005 09:33:52
Ahoj mam docela neprijemne problemy s pameti, kdyz se s aplikaci
normalne pracuje, vse je ok, zere sice az 77MB ale prubezne se to
uvolnuje a nejsou problemy, kdyz vsak importuje vetsi kvanta dat, tak
obsazena pamet neustale roste az to zpusobi zahlceni pocitace a selhani
importu, pred importem zaznamu si vytvorim objekt zaznam a na jeho konci
ho uvolnim, tak to delam s kazdym zaznamem, vsechno je korektne
uvolnene(mam spusteny Code Guard) ale vypada to jako by windows
nestihaly uvolnovat pamet, protoze kdyz prerusim import, tak za nejakou
dobu ma ta aplikace spatky tech 77MB, pripadne po shozeni na listu a
vyvolani to ma hned, nevite jak bych mohl udelat aby to ty windowsy
uvolnovaly nejak prubezne??
Diky moc, Tom
--
Ing. Tomas Krejzek
KpSys Pardubice, spol. s r.o.
Cacke 155, 530 02
tel. +420 466 655 055
dll knihovna a predavani parametru
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 2.5.2005 09:03:50
Mam v dll knihovne nejakou funkci
function DllFunc(op: integer; var AParamsOut: PChar): integer; StdCall; export;
Do AParamsOut se mi uklada jako vysledek zavolani funkce DllFunc nejaky seznam udaju, jehoz delku dopredu neznam. Jak spravne pracovat s AParamsOut z hlediska alokovani a uvolnovani? Delam to takto:
AParamsOut:=nil;
DllFunc(0,AParamsOut); //uvnitr funkce udelam AParamsOut:=PomocnyStringList.GetText;
if AParamsOut<>nil then StrDispose(AParamsOut); //tady to hodi Invalid pointer operation
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5
Instalace/Odinstalace sluzby - INNO SETUP
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 2.5.2005 08:27:42
2.5.2005 Dalibor:
> Ahoj, nemate nekdo priklad na instalaci a odinstalaci sluzby pomoci Inno Setupu?
> Stahl jsem si Inno verzi 5.0.8.
A prilozene priklady nestaci ?
Popis v helpu nestaci ?
Doporucuji stahnout ze stranek jrsoftware.org ze sekce 3D party tools
nadstavbu IS TOOLS. Instalaci si nastavis v pruvodci (okenkovem),
ktery ti skript vygeneruje.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
zmena velikosti a ulozeni jpeg
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 2.5.2005 08:11:41
> poradi mi nekdo jak zmenit velikost jpegu a tuto resamplovanou fotku pak
> ulozit ? na kvalite prilis nezalezi ... potrebuju v jednom projektu
> vytvaret
> nahledy k obrazkum, diky
Pro podobny ucel to delam takto:
procedure TfrmMain.ZmensiJpg(AJpg: string);
var jpg: TJpegImage;
bmp: TBitmap;
scale: double;
begin
jpg:=TJpegImage.Create;
try
jpg.LoadFromFile(AJpg);
//chci to zmensit na sirku 800, resp vysku 600
if jpg.Height>jpg.Width then scale:=600/jpg.Height
else scale:=800/jpg.Width;
bmp:=TBitmap.Create;
try
bmp.Width:=round(jpg.Width * Scale);
bmp.Height:=round(jpg.Height * Scale);
bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect,jpg);
self.canvas.Draw(20,30,bmp);
jpg.Assign(bmp);
jpg.CompressionQuality:=90;
jpg.SaveToFile(AJpg);
finally
bmp.Free;
end;
finally
jpg.Free;
end;
end;
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 Komponenta pre tlac ciaroveho kodu (free)
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 2.5.2005 07:51:40
Tiez inklinujem ku zvlast komponente pre ciarovy kod, i ked myslim, ze
aj pouzitie fontu vie niekedy vytrhnut z biedy. Mimochodom, TurboPower
SysTools obsahuju aj komponentu pre tlac ciaroveho kodu.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Tomas Uldrich
Sent: Friday, April 29, 2005 4:26 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Komponenta pre tlac ciaroveho kodu (free)
me se zda jednodussi pouziti komponenty, ktera zvladne vsechny formaty
kodu
a hlavne nemusim na cilovy pocitac instalovat zadne fonty.
Tomas
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
> A neni snazsi brat barcode jako sice trochu divny, ale text?
> Existuji na to true type fonty, viz google: bar code true type, Jarda
>
> ----- Original Message -----
> From: "Tomas Uldrich" <tomas.uldrich(zv)losan(tec)cz>
>
> > napriklad BarCode, kterou lze vlozit na QReport, nebo vytisknout z
> > formulare:
Instalace/Odinstalace sluzby - INNO SETUP
[*] Dalibor <dalibor(zv)torola(tec)cz> - 2.5.2005 07:07:35
Ahoj, nemate nekdo priklad na instalaci a odinstalaci sluzby pomoci Inno Setupu?
Stahl jsem si Inno verzi 5.0.8.
Dekuji
Dalibor
Tchart and Y osa
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 2.5.2005 06:25:32
>
> Ahoj vsichni,
>
>
> Mam prosbu. Vytvarim graf a rad bych v Y (svisle) ose pouzil CAS
> (time). Pokud jsem videl dobre tak je tam jenom TDateTime. Kopnete
> me prosim, co s tim. Nutne to potrebuji.
>
>
> Diky,
>
>
>
> Vl.
>
Ahoj,
myslim, ze staci zmenit formatovani zobrazeni hodnoty. Neco jako hh:mm,
ale je to uz dlouho co jsem to resil. Snad to trochu pomuze.
Hezky den, Krakora M.
Zobrazeni miniatur obrazku
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 1.5.2005 22:38:59
Zda se mi, ze jsem neco videl v JVCL. JVThumbViewDemo ????
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of delphi(zv)mjsoft(tec)cz
Sent: Thursday, April 28, 2005 3:26 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zobrazeni miniatur obrazku
Zdravim,
nevite nekdo o komponente, ktera zobrazi obrazky jako dlazdice vedle sebe
a pod sebou. Tak jako to dela treba ACDSee (miniatury).
Diky Karel V.
Zajimave chovani FireBirdu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 1.5.2005 18:49:34
Ahoj,
muzu se zeptat, proc mi tohle dela FB?
Kdyz dam ve SP:
execute statement 'SELECT (CURRENT_DATE-(CAST(MIN(datum) AS DATE)))/7 FROM
um'
into :vysledek;
tak musim vysledek zadefinovat jako BigInt, ale kdyz dam:
SELECT (CURRENT_DATE-(CAST(MIN(datum) AS DATE)))/7 FROM um
into :vysledek;
tak staci jako Integer.
Muze mi to nekdo vysvetlit?
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Otevreni souboru poklepem mysi apod.
[*] delphi(zv)kopr(tec)cz - 1.5.2005 12:41:07
Zdravim,
ParamStr(0) ...cesta, kde je program, to je jasne
ParamStr(1) ...cesta, kde jsou data, ale datovy soubor mi neukaze
tento test mam FormCreate
Vse je na nejlepsi ceste
Pavel ZIDEK
>
> Je to proto, ze pokud program dosud neni spusten, do te druhe vetve vubec
> nedojde, protoze se provede normalni start aplikace. Snadno to osetris
> napr.
> pres kontrolu ParamStr pri spusteni programu (pri spusteni poklepanim se
> jmeno souboru prida do prikazoveho radku).
> Ta ukazka byla z programu, ktery pro kazdy dalsi soubor vytvari nove MDI
> child okno, tedy pro pridani souboru do jiz bezici aplikace.
>
> Zdravim
>
> Jiri Foldyna
Otevreni souboru poklepem mysi apod.
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 30.4.2005 21:17:59
> Zdravim, diky za nakopnuti spravnym smerem.
> Mam jenom drobny problem, ze program asi nereaguje na
> SwitchTo(0);
> SendCmdLineParams('TF_MainF', 0);
> protoze jestlize program jeste neni spusten, tak nezjisti,
> ktery soubor ma
> otevrit.
> Jestlize program F_MainF je jiz rozjety, vse funguje jak ma.
> Nevis kde je problem
> Diky Pavel ZIDEK
Ahoj,
Je to proto, ze pokud program dosud neni spusten, do te druhe vetve vubec
nedojde, protoze se provede normalni start aplikace. Snadno to osetris napr.
pres kontrolu ParamStr pri spusteni programu (pri spusteni poklepanim se
jmeno souboru prida do prikazoveho radku).
Ta ukazka byla z programu, ktery pro kazdy dalsi soubor vytvari nove MDI
child okno, tedy pro pridani souboru do jiz bezici aplikace.
Zdravim
Jiri Foldyna
Kontrola validity IBAN
[*] lelicek(zv)volny(tec)cz - 30.4.2005 20:05:54
Je tam i stranka s generovanim a kontrolou IBAN, napsana v
Javaskriptu.
Pavel
> Po prohledani to vede na dokument
>
> http://www.cnb(tec)cz/pdf/EBS204_V3_IBAN.pdf
>
> Vlastik
Otevreni souboru poklepem mysi apod.
[*] delphi(zv)kopr(tec)cz - 30.4.2005 07:20:56
Zdravim, diky za nakopnuti spravnym smerem.
Mam jenom drobny problem, ze program asi nereaguje na
SwitchTo(0);
SendCmdLineParams('TF_MainF', 0);
protoze jestlize program jeste neni spusten, tak nezjisti, ktery soubor ma
otevrit.
Jestlize program F_MainF je jiz rozjety, vse funguje jak ma.
Nevis kde je problem
Diky Pavel ZIDEK
>
> do project source
> uses
> JclAppInst,.....
>
> const
> AppUniqueID = 'Guid pomoci Ctrl-Shift-G';
>
> begin
> with JclAppInstances(AppUniqueID) do
> begin
> if CheckInstance(1) then
> begin
> Application.Initialize;
> Application.Title := 'FormTitle';
> Application.CreateForm(TF_MainF, F_MainF);
> Application.Run;
> end
> else
> begin
> SwitchTo(0);
> SendCmdLineParams('TF_MainF', 0);
> end;
> end;
> end.
>
> a do mainformu aplikace
> ...
> private
> procedure WMCopyData(var Message : TWMCopyData); message WM_CopyData;
> ...
>
> v implementaci
>
> uses
> JclFileUtils,
> JclAppInst,
> ...
>
> procedure TF_G32MainF.WMCopyData(var Message : TWMCopyData);
> var
> s : string;
> FileList : TStringList;
> i : integer;
> begin
> with Message do
> begin
> if (From = 0)
> and Assigned(CopyDataStruct)
> and (CopyDataStruct^.dwData = AppInstCmdLineDataKind)
> and (CopyDataStruct^.cbData > 0) then
> begin
> FileList := TStringList.Create;
> try
> with CopyDataStruct^ do
> begin
> SetString(s, PChar(lpData), cbData);
> end;
> FileList.Text := s;
> for i := 0 to FileList.Count - 1 do
> begin
>
> // tady se zpracuje seznam souboru
> ProcessFile(FileList[i]);
> //
> end;
> finally
> FileList.Free;
> end;
> end;
> end;
> end;
>
> Jiri Foldyna
Zneviditelneni zdedene property
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 29.4.2005 20:52:13
> > Nechtel jsem to delat proto, ze jsem chtel nektere
> > vlastnosti, ktere ma az TPanel.
>
> Ziadne take vlastnosti neexistuju.
> TPanel akurat meni viditelnost niektorych vlastnosti zdedenych od
> TCustomPanel, nic viac.
Aha,
ted jsem se koukal do zdrojacu kde je TPanel a je to samozrejme presne tak.
Sem uz tak zblbly, ze sem si toho nejak nevsimnul. Pritom jsem ty zdroje deska
prochazel :-0.
Dekuji panove /i Petru V./, presne toto jsem potreboval vyresit.
S pozdravem Vaclav Halik
stazeni urceneho poctu bytu souboru
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.4.2005 20:32:11
> stale mam problem jak stahnout urceny pocet bytu nejakeho souboru z URL
> ... stahnout ho cely nechci ... napriklad 100 bytu ... jde pak jen o to
> zda se tech par bytu stahne ci nikoliv abych poznal zda je odkaz skutecne
> funkcni ... (dotaz HEAD napr pres Indy jak sme tu resili nezvladne ftp ani
> virtualni adresare ...)
metoda GET se od metody HEAD lisi jen tim, ze HEAD nevarti vlastni data,
jen jejich hlavicky. Takze pokud ti nefunguje HEAD, nebude ti fungovat
ani ten GET!
Nevim, co myslis temi virtualnimi adresari, HEDA se k tomu URL stavi fakt
uplne stejne jako GET. (pochopitelne nevim, jestli v indy neni nejaka
chyba!)
Nicmene ohledne FTP.. FTP a HTTP jsou skutecne zcela odlisne protokoly,
na FTP servery se pres HTTP opravdu nedostanes! Pokud do tveho weboveho
prohlizece zadas nejakou FTP adresu, pak prohlizes pouzije FTP protokol.
Vyjimka je jen tehdy, kdyz pouzivas HTTP proxy s podporou FTP. Pak se se
prohlizec bavi s proxy serverem HTTP protokolem, a az proxy server se se
svetem bavi pres FTP protokol a vysledek preklada do HTTP odpovedi pro
prohlizec.
Z principu neni mozne takto provest vsechny mozne FTP operace, zpravidla
funguje jen GET metoda na konkretni soubor nebo na adresar (a HTTP proxy
vygeneruje HTML stranku s odkazy na obsah FTP adresare). Je tedy take
mozne, ze proste tvoje HTTP proxy vubec neumi simulovat HEAD pozadavek na
FTP protokol...
Ale pokud nejsi za HTTP proxy, pak je zcela nesmyslne se pokouset pres
HTTP protokol pristupovat k FTP!
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
IdFTP - zmena atributov suboru
[*] Jakub Dusek <conference(zv)corexpert(tec)com> - 29.4.2005 20:26:11
Melo by to jit pomoci prikazu napr.:
SITE CHMOD 755 DIRECTORY
takze pres Indy nejlepe asi:
IdFtp.Site(Format('CHMOD %d %s', [attribute, dirName]));
Kazdopadne rozsireni SITE CHMOD je udajne dostupne jen na Unixu, nevim
jak to nastavit na Windows FTP serveru.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Friday, April 29, 2005, 3:27:47 PM, you wrote:
MK> Pouzivam komponentu Indy TIdFTP. Pomocou nej vytvaram adresar na FTP. Ten sa
MK> mi vytvory s atributom 755. Ked sa do neho dostanem, tak uz mi nechce koli
MK> nastavenemu atributu vypisat subory vo vnutry.
MK> Ako zmenim atributy adresara pomocou tejto komponenty? Vidim, ze vsetky
MK> prikazy sa tu vlastne posielaju cez prikazovy riadok.
MK> napriklad:
MK> procedure TIdFTP.MakeDir(const ADirName: string);
MK> begin
MK> SendCmd('MKD ' + ADirName, 257); {Do not translate}
MK> end;
MK> Mozno by stacilo naprogramovat si tento prikaz, len neviem ako.
MK> Vdaka za kazdu radu.
Monitorovani TCP prenosu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.4.2005 20:22:10
> chtel bych si udelat monitorovani a protokolovani veskereho provozu TCP
> pres moji proxy. Mohl by me nekdo zasveceny nasmerovat do toho spravneho
> smeru ? Zhruba se orientuji v komunikaci TCP s pomoci Synapse.
Mas dve moznosti:
1. na vhodnem miste site zachytavat packety a analyzovat je, a pokud se
jedna o zajimavy packet, tak je protokolovat. Pak se podivej na winpcap
knihovnu.
2. napis si vlastni proxy a nech si to logovat primo tou proxynou. ;-)
Nepises, o jakou proxy jde, ale treba jednoducha HTTP proxy je i soucasti
demoprogramu Synapse. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
IdFTP - zmena atributov suboru
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.4.2005 20:18:10
> Ako zmenim atributy adresara pomocou tejto komponenty? Vidim, ze vsetky
> prikazy sa tu vlastne posielaju cez prikazovy riadok.
Samotny FTP protokol zadnou takovou operaci nedefinuje. Pokud to nektery
server umi, pak leda pres nejake nestandardni rozsireni. Tedy kazdy druh
FTP serveru si tu muze delat jak chce.
Takze nejdriv musis zjistit, jestli neco takoveho tebou pouzivany FTP
server vubec umoznuje. Kdyz ano, pak take musis zjistit presne jak... a
pak uz to jiste zvladnes! ;-)
Jak ale vypada tenb prikaz, to zalezi fakt na konkretnim FTP serveru,
obecne ti nikdo poradit nemuze, protoze to standardizovano neni.
Moc jsem neporadil, vid? ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Kontrola validity IBAN
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 29.4.2005 19:56:08
>podivej se na www.cnb(tec)cz
>Pavel
Po prohledani to vede na dokument
http://www.cnb(tec)cz/pdf/EBS204_V3_IBAN.pdf
Vlastik
Kontrola validity IBAN
[*] lelicek(zv)volny(tec)cz - 29.4.2005 19:24:05
podivej se na www.cnb(tec)cz
Pavel
Od: "Martin Rocek" <rocek(zv)dibaq(tec)cz>
> chtel bych se zeptat jestli jste nekdo neresil kontrolu
> validity IBANu?zjisteni %userprofile%
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 29.4.2005 18:32:01
DD,
potreboval bych si z me aplikace ulozit jeden soubor do profilu
uzivatele tj pod XP to bude do %USERPROFILE%\Data Aplikaci\Moje Aplikace
poradil by mi nekdo jak to bude s jinymi operacnimi systemy? co to
udela kdyz se budu treba pod win 98, 95 pokouset zapsat do
%USERPROFILE% bohuzel nemuzu to na vsech vyzkouset a treba jdu uplne
spatnou cestou
prosim o nasmerovani
diky PM
stazeni urceneho poctu bytu souboru
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 29.4.2005 16:47:54
Co treba pouzit IdHTTP od Indy, zacit stahovat soubor GETem a v udalosti
OnWork kontrolovat pocet stazenych bytu a pri urcitem poctu stahovani
prerusit a vyhodnotit...
Jirka Matejka
==>Friday, April 29, 2005 4:39 PM vlastax.b(zv)seznam(tec)cz wrote:
> zdravim vsechny.
> stale mam problem jak stahnout urceny pocet bytu nejakeho souboru z
> URL ... stahnout ho cely nechci ... napriklad 100 bytu ... jde pak
> jen o to zda se tech par bytu stahne ci nikoliv abych poznal zda je
> odkaz skutecne funkcni ... (dotaz HEAD napr pres Indy jak sme tu
> resili nezvladne ftp ani virtualni adresare ...)
zmena velikosti a ulozeni jpeg
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 29.4.2005 16:41:54
poradi mi nekdo jak zmenit velikost jpegu a tuto resamplovanou fotku pak
ulozit ? na kvalite prilis nezalezi ... potrebuju v jednom projektu vytvaret
nahledy k obrazkum, diky stazeni urceneho poctu bytu souboru
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 29.4.2005 16:39:53
zdravim vsechny.
stale mam problem jak stahnout urceny pocet bytu nejakeho souboru z URL ...
stahnout ho cely nechci ... napriklad 100 bytu ... jde pak jen o to zda se
tech par bytu stahne ci nikoliv abych poznal zda je odkaz skutecne funkcni
... (dotaz HEAD napr pres Indy jak sme tu resili nezvladne ftp ani virtualni
adresare ...) Komponenta pre tlac ciaroveho kodu (free)
[*] Tomas Uldrich <tomas.uldrich(zv)losan(tec)cz> - 29.4.2005 16:25:52
me se zda jednodussi pouziti komponenty, ktera zvladne vsechny formaty kodu
a hlavne nemusim na cilovy pocitac instalovat zadne fonty.
Tomas
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
> A neni snazsi brat barcode jako sice trochu divny, ale text?
> Existuji na to true type fonty, viz google: bar code true type, Jarda
>
> ----- Original Message -----
> From: "Tomas Uldrich" <tomas.uldrich(zv)losan(tec)cz>
>
> > napriklad BarCode, kterou lze vlozit na QReport, nebo vytisknout z
> > formulare:Monitorovani TCP prenosu
[*] Rosta <rlekes(zv)atlas(tec)cz> - 29.4.2005 16:15:51
Nevim, jestli si to chces sam napsat, tak nepomuzu, ale jestli hledas
hotove reseni, myslim, ze nic lepsiho neni:
http://www.sysinternals.com/ntw2k/source/tcpview.shtml
Rosta
Tomas Bradle wrote:
>Zdravim vsechny,
>
>chtel bych si udelat monitorovani a protokolovani veskereho provozu TCP pres
>moji proxy. Mohl by me nekdo zasveceny nasmerovat do toho spravneho smeru ?
>Zhruba se orientuji v komunikaci TCP s pomoci Synapse.
>
>diky
>
>Tomas Bradle
>t.bradle(zv)sanet(tec)cz
>t.bradle(zv)worldonline(tec)cz
>
>
>Monitorovani TCP prenosu
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 29.4.2005 15:47:49
Zdravim vsechny,
chtel bych si udelat monitorovani a protokolovani veskereho provozu TCP pres
moji proxy. Mohl by me nekdo zasveceny nasmerovat do toho spravneho smeru ?
Zhruba se orientuji v komunikaci TCP s pomoci Synapse.
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
t.bradle(zv)worldonline(tec)cz
IdFTP - zmena atributov suboru
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 29.4.2005 15:27:47
Pouzivam komponentu Indy TIdFTP. Pomocou nej vytvaram adresar na FTP. Ten sa
mi vytvory s atributom 755. Ked sa do neho dostanem, tak uz mi nechce koli
nastavenemu atributu vypisat subory vo vnutry.
Ako zmenim atributy adresara pomocou tejto komponenty? Vidim, ze vsetky
prikazy sa tu vlastne posielaju cez prikazovy riadok.
napriklad:
procedure TIdFTP.MakeDir(const ADirName: string);
begin
SendCmd('MKD ' + ADirName, 257); {Do not translate}
end;
Mozno by stacilo naprogramovat si tento prikaz, len neviem ako.
Vdaka za kazdu radu.
Kontrola validity IBAN
[*] Martin Rocek <rocek(zv)dibaq(tec)cz> - 29.4.2005 15:25:47
OK,
kdybys poslal nejaky ukazky, tak by to bylo super. V ty Jave to taky
pochopim :o)
Diky moc martinr
Vnorene selecty na FB
[*] Vlko II. <vlko(zv)zilina(tec)net> - 29.4.2005 15:07:45
On Fri, 29 Apr 2005 12:49:33 +0200, Jiri Cincura <diskuze(zv)cincura.net>
wrote:
> Rosta wrote (on Friday, April 29, 2005 12:42 PM):
>> Temer vzdy to muzes napsat bez vnoreneho selectu nebo pomoci konstrukce
>> FOR SELECT DO v SP (a vetsinou je to rychlejsi nez vnorene selecty a
>
> Jo to jsem zkousel, ale nepodarilo se mi predat parametr SP do substringu
> selectu. :(
>
> WHERE SUBSTRING(id FROM 1 FOR :delka) LIKE :text
a co riesenie cez views? je to trosku zlozitejsie, ale
malo by to robit veci dobre
pr
>>> podporuje FB 1.5 vnorene selecty? Me porad nadava.
>>> Neco ve tvaru select neco from (select a from b) where ...
>>> Na Oraclu mi to normalne fungovalo.
select a from b vytworim ako view a z neho mozem veselo
selectovat co len chcem.
Je to troska zlozitejsie riesenie, ale ak sa na to napise dobra trieda,
ktora
to na urovni aplikacie zautomatizuje, tak by to malo ist.
Bohuzial ale neviem, aka je rezia sql servera pri vytvarani views, mozno
ale
poradi Pavel Cisar.
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Kontrola validity IBAN
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 29.4.2005 14:57:44
http://www.iban-rechner.de/index.php
jinak mam doma algoritmus pro kontrolu validity IBAN vcetne BBAN ... mam to sice v Jave, ale princip je stejny ... kdyby ti to pichlo, zkusil bych nekde pohledat ... :)
Milan
D7 ent., WinXP SP2
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Rocek
Sent: Friday, April 29, 2005 2:32 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Kontrola validity IBAN
Zdravim,
chtel bych se zeptat jestli jste nekdo neresil kontrolu validity IBANu?
Diky martinr
Zneviditelneni zdedene property
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.4.2005 14:49:43
> Nechtel jsem to delat proto, ze jsem chtel nektere
> vlastnosti, ktere ma az TPanel.
Ziadne take vlastnosti neexistuju.
TPanel akurat meni viditelnost niektorych vlastnosti zdedenych od
TCustomPanel, nic viac.
HTH
TOndrej
Zneviditelneni zdedene property
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 29.4.2005 14:41:43
Ahoj,
> Jedine reseni je ji odvodit od TCustomPanel ktery nema prave z tohoto duvodu
> published property. V ramci VCL by melo platit, ze vetsina komponent ma vzdy
> TCustomXXX predka, aby bylo mozne nezverejnit property ktere nepotrebujes v
> odvozenych komponentach.
>
> Petr Vones
toho jsem se obaval, asi prehodnotim navrh te komponenty.
Nechtel jsem to delat proto, ze jsem chtel nektere vlastnosti, ktere ma az TPanel.
Kazdopadne diky.
Vaclav Halik
Zneviditelneni zdedene property
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 29.4.2005 14:39:42
> Mam dojem ze staci presunout ji do ne-published sekce, tj,. nejak takto
Pravdu ma samozrejme P.V., zneviditelnovat jednou zverejnene property nelze.
Ja holt pouze zviditelnuji :)
MB
Tchart and Y osa
[*] vponecha(zv)volny(tec)cz - 29.4.2005 14:33:42
Ahoj vsichni,
Mam prosbu. Vytvarim graf a rad bych v Y (svisle) ose pouzil CAS
(time). Pokud jsem videl dobre tak je tam jenom TDateTime. Kopnete
me prosim, co s tim. Nutne to potrebuji.
Diky,
Vl.
--
Zkousejte vysokorychlostni nonstop internet VOLNY ADSL 14 dni
ZDARMA! Jiz dele nevahejte! Prvnich 500 zakazniku navic ziska
tricko.
Vice informaci na http://adsl.volny(tec)cz/adsl-na-zkousku/Kontrola validity IBAN
[*] Martin Rocek <rocek(zv)dibaq(tec)cz> - 29.4.2005 14:31:41
Zdravim,
chtel bych se zeptat jestli jste nekdo neresil kontrolu validity IBANu?
Diky martinr
Zneviditelneni zdedene property
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 29.4.2005 14:25:41
> Tedy abych tuto propertu nevidel v Object Inspektoru, ale mohl ji
> pripadne treba v constructoru Create me komponenty TMyPanel
> nastavit.
Mam dojem ze staci presunout ji do ne-published sekce, tj,. nejak takto
public
.....
property AtUzTeNevidim;
published
......
end;
MB
Zneviditelneni zdedene property
[*] Petr Vones <konference(zv)petrvones(tec)net> - 29.4.2005 14:21:40
From: "Vaclav Halik" <spravasd(zv)suz.cvut(tec)cz>
> Mam komponentu TPanel, udelam si potomka TMyPanel.
>
> A chtel bych aby v TMyPanel treba nebyla properta Caption.
> Tedy abych tuto propertu nevidel v Object Inspektoru, ale mohl ji
> pripadne treba v constructoru Create me komponenty TMyPanel
> nastavit.
Jedine reseni je ji odvodit od TCustomPanel ktery nema prave z tohoto duvodu
published property. V ramci VCL by melo platit, ze vetsina komponent ma vzdy
TCustomXXX predka, aby bylo mozne nezverejnit property ktere nepotrebujes v
odvozenych komponentach.
Petr Vones
Zneviditelneni zdedene property
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 29.4.2005 14:11:40
Zdravim,
mam nasledujici asi uplne trivialni dotaz,
ale nemuzu na to porad nejak prijit:
Priklad:
Mam komponentu TPanel, udelam si potomka TMyPanel.
A chtel bych aby v TMyPanel treba nebyla properta Caption.
Tedy abych tuto propertu nevidel v Object Inspektoru, ale mohl ji
pripadne treba v constructoru Create me komponenty TMyPanel
nastavit.
Asi je to debilni dotaz, ale uz hledam cca 3 hodiny v konfere
a v helpu a porad nic.
Prosim tedy o nakopnuti.
Vaclav Halik
Snadne spusteni ve Windows XP
[*] Suky <suky(zv)atlas(tec)cz> - 29.4.2005 13:15:35
Ahoj,
mam za ukol prijit na to jak pro klienta vytvorit "snadne spusteni", upresnim. Vite jak kdyz vlozite treba do mechaniky CD a ve Windows XP se na tuto udalost otevre okno kde si muze vybrat uzivatel zvolit z jednu moznych operaci jako treba prehrat Audio CD v Media Playeru, popripade v jinych prehravacich co jsou v systemu nainstalovany. Tak potrebuji vedet jak s timto pracuje. Potrebuji do tohoto okna pridat udalost po pripojeni digitalniho fotoaparatu.
Predem dekuji za pomoc v nasmerovani, vubec nevim jak to mam hledat, jake pouzit klicova slova na google.com.
--
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)
Vnorene selecty na FB
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 29.4.2005 12:49:33
Rosta wrote (on Friday, April 29, 2005 12:42 PM):
> Temer vzdy to muzes napsat bez vnoreneho selectu nebo pomoci konstrukce
> FOR SELECT DO v SP (a vetsinou je to rychlejsi nez vnorene selecty a
Jo to jsem zkousel, ale nepodarilo se mi predat parametr SP do substringu
selectu. :(
WHERE SUBSTRING(id FROM 1 FOR :delka) LIKE :text
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Vnorene selecty na FB
[*] Rosta <rlekes(zv)atlas(tec)cz> - 29.4.2005 12:41:32
Jiri Cincura wrote:
>Pavel Cisar wrote (on Friday, April 29, 2005 10:25 AM):
>
>
>>Haj hou!
>>
>>Jiri Cincura wrote:
>>
>>
>>>Ahoj,
>>>
>>>podporuje FB 1.5 vnorene selecty? Me porad nadava.
>>>
>>>Neco ve tvaru select neco from (select a from b) where ...
>>>
>>>Na Oraclu mi to normalne fungovalo.
>>>
>>>
>>Ne, toto FB 1.5 nepodporuje. Podpora pro odvozene tabulky (jak se to
>>spravne nazyva, vnoreny select je neco jineho) je az v chystanem
>>Firebirdu 2.0
>>
>>
>
>To je ovsem velice nemile. :(
>
>
>
Temer vzdy to muzes napsat bez vnoreneho selectu nebo pomoci konstrukce
FOR SELECT DO v SP (a vetsinou je to rychlejsi nez vnorene selecty a
odvozene tabulky na jinych db ...) Rosta
Kompilace pomoci DCC32
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 29.4.2005 11:59:29
Ty parametry jsem tam mel,
celej problem byl v tom ze jsem nestal v adresari s dpr.
Jirka
delphak(zv)centrum(tec)cz wrote:
> dcc32 /?
>
> parametry -B (build all units) nebo -M (build modified units)
>
> V.
>>Prosim poradte, uz se s tim trapim cely den.
>>Pokousim se prelozit projekt primo pres dcc32 a narazil jsem na nasledujici.
>>
>>Priklad:
>>Project1.dpr
>> Unit1.pas
>>
>>Prekladac mi nechce prelozit Project1.dpr pokud nenajde Unit1.dcu pritom
>>tam ale ma Unit1.pas. Kdyz tu Unit1.pas prelozim zvlast a nakopiruju mu
>>tam Unit1.dcu tak uz preklad projde.
>>
>>Hledal jsem nejakej prepinac aby si tu unitu prelozil sam ale nenasel.
>>
>>Predem diky za rady
>>Jirka
Kompilace pomoci DCC32
[*] delphak(zv)centrum(tec)cz - 29.4.2005 11:23:27
dcc32 /?
parametry -B (build all units) nebo -M (build modified units)
V.
----- Original Message -----
From: "Jirka" <jw-delphi(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 29, 2005 10:55 AM
Subject: Kompilace pomoci DCC32
> Prosim poradte, uz se s tim trapim cely den.
> Pokousim se prelozit projekt primo pres dcc32 a narazil jsem na nasledujici.
>
> Priklad:
> Project1.dpr
> Unit1.pas
>
> Prekladac mi nechce prelozit Project1.dpr pokud nenajde Unit1.dcu pritom
> tam ale ma Unit1.pas. Kdyz tu Unit1.pas prelozim zvlast a nakopiruju mu
> tam Unit1.dcu tak uz preklad projde.
>
> Hledal jsem nejakej prepinac aby si tu unitu prelozil sam ale nenasel.
>
> Predem diky za rady
> Jirka
>
>
>
> PDF Form
[*] Jozef Strnadik <strnadik(zv)mbox.mrp.sk> - 29.4.2005 11:05:25
Zdravim,
potrebujem programovo naplnit PDF Form a vysledny dokument vytlacit a prip.
aj ulozit do suboru.
Mozete mi doporucit nejake spolahlive komponenty?
---
S pozdravom
Jozef Strnadik
e-mail: strnadik(zv)mbox.mrp.sk
Kompilace pomoci DCC32
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 29.4.2005 10:55:24
Prosim poradte, uz se s tim trapim cely den.
Pokousim se prelozit projekt primo pres dcc32 a narazil jsem na nasledujici.
Priklad:
Project1.dpr
Unit1.pas
Prekladac mi nechce prelozit Project1.dpr pokud nenajde Unit1.dcu pritom
tam ale ma Unit1.pas. Kdyz tu Unit1.pas prelozim zvlast a nakopiruju mu
tam Unit1.dcu tak uz preklad projde.
Hledal jsem nejakej prepinac aby si tu unitu prelozil sam ale nenasel.
Predem diky za rady
Jirka
Vnorene selecty na FB
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 29.4.2005 10:47:23
Pavel Cisar wrote (on Friday, April 29, 2005 10:25 AM):
> Haj hou!
>
> Jiri Cincura wrote:
>> Ahoj,
>>
>> podporuje FB 1.5 vnorene selecty? Me porad nadava.
>>
>> Neco ve tvaru select neco from (select a from b) where ...
>>
>> Na Oraclu mi to normalne fungovalo.
>
> Ne, toto FB 1.5 nepodporuje. Podpora pro odvozene tabulky (jak se to
> spravne nazyva, vnoreny select je neco jineho) je az v chystanem
> Firebirdu 2.0
To je ovsem velice nemile. :(
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Otevreni souboru poklepem mysi apod.
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 29.4.2005 10:31:22
> Diky za pomoc,
> asociaci umim udelat, program se umi spoustet pouze jednou.
>
> wm_copydata pouzivam pro zasilani dat z jineho programu do
> toho meho, takze
> by to melo prijimat i ty data na poklep mysi, ale nefunguje.
>
> v sekci progarmu mam:
> private
> procedure WMCopyData(var M: TMessage); message WM_COPYDATA;
> ....
>
> Nevis kde delam chybu, do WMCopyData(var M: TMessage); se pri
> breaku vubec
> nedostanu
> Diky za pomoc
> Pavel ZIDEK
Ahoj,
resim to takto (i pro vice souboru najednou):
do project source
uses
JclAppInst,.....
const
AppUniqueID = 'Guid pomoci Ctrl-Shift-G';
begin
with JclAppInstances(AppUniqueID) do
begin
if CheckInstance(1) then
begin
Application.Initialize;
Application.Title := 'FormTitle';
Application.CreateForm(TF_MainF, F_MainF);
Application.Run;
end
else
begin
SwitchTo(0);
SendCmdLineParams('TF_MainF', 0);
end;
end;
end.
a do mainformu aplikace
...
private
procedure WMCopyData(var Message : TWMCopyData); message WM_CopyData;
...
v implementaci
uses
JclFileUtils,
JclAppInst,
...
procedure TF_G32MainF.WMCopyData(var Message : TWMCopyData);
var
s : string;
FileList : TStringList;
i : integer;
begin
with Message do
begin
if (From = 0)
and Assigned(CopyDataStruct)
and (CopyDataStruct^.dwData = AppInstCmdLineDataKind)
and (CopyDataStruct^.cbData > 0) then
begin
FileList := TStringList.Create;
try
with CopyDataStruct^ do
begin
SetString(s, PChar(lpData), cbData);
end;
FileList.Text := s;
for i := 0 to FileList.Count - 1 do
begin
// tady se zpracuje seznam souboru
ProcessFile(FileList[i]);
//
end;
finally
FileList.Free;
end;
end;
end;
end;
(c) Ondrej Kelle, poradil vloni zde v konferenci (opozdene dekuji :-))
Zdravim
Jiri Foldyna
Vnorene selecty na FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 29.4.2005 10:25:21
Haj hou!
Jiri Cincura wrote:
> Ahoj,
>
> podporuje FB 1.5 vnorene selecty? Me porad nadava.
>
> Neco ve tvaru select neco from (select a from b) where ...
>
> Na Oraclu mi to normalne fungovalo.
Ne, toto FB 1.5 nepodporuje. Podpora pro odvozene tabulky (jak se to
spravne nazyva, vnoreny select je neco jineho) je az v chystanem
Firebirdu 2.0
S pozdravem
Pavel Cisar
IBPhoenix
Vnorene selecty na FB
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 29.4.2005 10:23:21
Mela by to umoznovat verze 2.0 ale zatim to je pouze alfa.
viz:
http://firebird.sourceforge.net/
http://www.ibphoenix.com/
Libor
----- Original Message -----
From: "Jiri Cincura" <diskuze(zv)cincura.net>
Sent: Friday, April 29, 2005 10:17 AM
> podporuje FB 1.5 vnorene selecty? Me porad nadava.
> Neco ve tvaru select neco from (select a from b) where ...Vnorene selecty na FB
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 29.4.2005 10:17:20
Ahoj,
podporuje FB 1.5 vnorene selecty? Me porad nadava.
Neco ve tvaru select neco from (select a from b) where ...
Na Oraclu mi to normalne fungovalo.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Komponenta pre tlac ciaroveho kodu (free)
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 29.4.2005 08:55:11
A neni snazsi brat barcode jako sice trochu divny, ale text?
Existuji na to true type fonty, viz google: bar code true type,
Jarda
----- Original Message -----
From: "Tomas Uldrich" <tomas.uldrich(zv)losan(tec)cz>> napriklad BarCode, kterou lze vlozit na QReport, nebo vytisknout z
> formulare:Otevreni souboru poklepem mysi apod.
[*] delphi(zv)kopr(tec)cz - 29.4.2005 08:31:06
Diky za pomoc,
asociaci umim udelat, program se umi spoustet pouze jednou.
wm_copydata pouzivam pro zasilani dat z jineho programu do toho meho, takze
by to melo prijimat i ty data na poklep mysi, ale nefunguje.
v sekci progarmu mam:
private
procedure WMCopyData(var M: TMessage); message WM_COPYDATA;
....
Nevis kde delam chybu, do WMCopyData(var M: TMessage); se pri breaku vubec
nedostanu
Diky za pomoc
Pavel ZIDEK
>> potrebuji, aby po najeti na datovy soubor v manazeru a po poklepu mysi,
>> aby
>> se rozjel nas program, ktery bude umet tento soubor otevrit.
>> Jestlize nas program jiz je spusten, tak aby opet se dany datovy soubor
>> otevrel.
>
> Pokud chces, aby se soubor otevrel v jiz bezici aplikaci, musis
> zajistit, aby sla aplikace spustit pouze jednou - napr. pomoci MUTEX
> Explorer pri dvokliku na soubor spusti novou instanci aplikace, jako
> parametr ji preda soubor. Ty musis zjistit, ze aplikace jiz bezi a
> nejak ji dat na vedomi, ze by mela dany soubor otevrit. Da se na to
> pouzit treba zprava WM_COPYDATA, ktera posle aplikaci primo jmeno
> souboru.
>D5, MemProof, DLL, MSXML a Live Pointer
[*] Petr Vones <konference(zv)petrvones(tec)net> - 29.4.2005 03:50:46
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> Myslis, ze trida (nebo jaky jiny *objekt*) mi neco vyresi?
Minimalne ty problemy s uvolnovanim polozek.
Petr Vones
Nenalezen DesignIntf.dcu
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 28.4.2005 23:46:28
Ten puvodni dotaz prisel ode mne, protoze se mi balicek proste nedarilo
prelozit.
Kdyz jsem mel ve stejne unite naprogramovan vlastni class a zaroven
podporu pro propertyeditor jednoho z mych objektu, tak to
neustale pri prekladu rvalo, ze nenasel nejakou unitu, na kterou je
uveden odkaz v souboru DesignIntf nebo DesignEditors.
Po oddeleni tridy pro property editor do vlastni unity uz to bylo Ok.
Zrejme jde o to, ze se unita, kde je definovany property editor,
dynamicky prilinkovava primo do vyvojovyho prostredi Delphi.
Ladislav Stary
>Mohu se zeptat proc je tolik spatne mit v aplikaci pouzity balicky "Runtime&Designtime" s prilinkovanym odkazem na "DesignIntf"? Krom toho ze to neni programatorsky ciste..jake problemy mohou nastat?
>
>diky za odpoved
>
>Matej, D7 WinXP
>
>Otevreni souboru poklepem mysi apod.
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.4.2005 20:38:15
28.4.2005 delphi(zv)kopr(tec)cz:
> Zdravim,
> potrebuji, aby po najeti na datovy soubor v manazeru a po poklepu mysi, aby
> se rozjel nas program, ktery bude umet tento soubor otevrit.
> Jestlize nas program jiz je spusten, tak aby opet se dany datovy soubor
> otevrel.
Asociace s aplikaci se provede zapisem do registru do vetve HKCR
Podivej se treba na .TXT, jak je udelano, aby se otevrel v NOTEPAD.EXE
Podobne to musis udelat i ty.
Pokud chces, aby se soubor otevrel v jiz bezici aplikaci, musis
zajistit, aby sla aplikace spustit pouze jednou - napr. pomoci MUTEX
Explorer pri dvokliku na soubor spusti novou instanci aplikace, jako
parametr ji preda soubor. Ty musis zjistit, ze aplikace jiz bezi a
nejak ji dat na vedomi, ze by mela dany soubor otevrit. Da se na to
pouzit treba zprava WM_COPYDATA, ktera posle aplikaci primo jmeno
souboru.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Nenalezen DesignIntf.dcu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 28.4.2005 18:44:06
> Mohu se zeptat proc je tolik spatne mit v aplikaci pouzity balicky
> "Runtime&Designtime" s prilinkovanym odkazem na "DesignIntf"? Krom toho ze
> to neni programatorsky ciste..jake problemy mohou nastat?
Nekde v adresari Delphi by mel byt dokument deploy.txt (nebo tak nejak). V
nem jsou uvedeny balicky, ktere lze sirit. Tj. pokud bys siril svoji
aplikaci v baliccich, musel bys pridat i borlandi design-time balicky, ktere
se sirit nesmeji. BTW, uz jsem videl nekolik pomerne masivne sirenych
aplikaci, ktere na toto zvysoka kaslou, a designove balicky obsahuji.
Problemy bych neocekaval, je to asi spis o principu a klidnem spanku...a
mozna o velikosti instalacnich souboru :)
MB Nenalezen DesignIntf.dcu
[*] Matej <matej.k11(zv)seznam(tec)cz> - 28.4.2005 15:55:54
> From: "Ladislav Stary" <stary(zv)ekodat(tec)cz>
>> File not found:DesignIntf.dcu
>> u zdrojoveho souboru, ktery je soucasti te nove vytvorene komponenty.
>>
>> Netusite, kde jsem se dopustil chyby?
>
> Je treba dusledne oddelovat runtime a designtime kod komponent. Patrne si do
> jednoho unitu dal jak runtime kod komponenty tak designtime kod property
> editoru, to je zcela spatne. Na unity jako DesignIntf a spol nesmi byt nikdy
> reference z kodu aplikace, takze to musis rozdelit na dva unity.
>
> Petr Vones
>
Mohu se zeptat proc je tolik spatne mit v aplikaci pouzity balicky "Runtime&Designtime" s prilinkovanym odkazem na "DesignIntf"? Krom toho ze to neni programatorsky ciste..jake problemy mohou nastat?
diky za odpoved
Matej, D7 WinXP
D5, MemProof, DLL, MSXML a Live Pointer
[*] Petr Langer <langer(zv)xdom(tec)cz> - 28.4.2005 15:37:53
> Neni lepsi pouzit objekty nez hruzy s pointery na recordy ?
Prochazim nody podle nejakeho XPathu, z kazdeho vyberu hodnotu ze tri
atributu. Cili vlastne delam tabulku o trech sloupcich (Record) a x radcich
(TList) se kterou pak pracuju.
Myslis, ze trida (nebo jaky jiny *objekt*) mi neco vyresi?
> Pokud se preda jako const tak se uvnitr metody nezvysuje reference.
Dik, to pak jo.
pl
----- Original Message -----
From: "Petr Vones" <konference(zv)petrvones.net>
Subject: Re: D5, MemProof, DLL, MSXML a Live Pointer
> From: "Petr Langer" <langer(zv)xdom(tec)cz>
>> a nevim proc, ale myslel jsem si, ze Delphi bude vedet co je to zac a co
>> s
>> tim, ale evidentne nevi, takze neuvolni ty vnitrni stringy...
>> Pokud udelam
>> Dispose(PMujRecord(list[i]));
>>
>> tak uz to, zda se, jede korektne.
>
> Neni lepsi pouzit objekty nez hruzy s pointery na recordy ?
>
>> btw. k tomu co psal Ondrej - to "const" u stringu chapu, ale proc by to
>> melo
>> i u toho IXMLDOMNode ?
>
> Pokud se preda jako const tak se uvnitr metody nezvysuje reference.
>
> Petr Vones
Zobrazeni miniatur obrazku
[*] delphi(zv)mjsoft(tec)cz - 28.4.2005 15:25:52
Zdravim,
nevite nekdo o komponente, ktera zobrazi obrazky jako dlazdice vedle
sebe a pod sebou. Tak jako to dela treba ACDSee (miniatury).
Diky Karel V.Zmena zahlavi formulare
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 28.4.2005 14:31:48
Ahoj ve spolek!
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Kalhous
>
> Kdyz nenajdete nic lepsiho, zkuste komponentu RxGradient z RxLibrary.
> ----- Original Message -----
> From: "Ing. Igor Vodicka" <vodicka(zv)sagit(tec)cz>
> > Napadlo mne zkusit zmenit barvu zahlavi okna i barvu fontu
> > caption okna, a to mi prave nejde. Nevite nekdo jak na to? Je
To mne pozdeji take napodlo, pouzit komponentu tohoto druhu. Pouzil jsem
komponentu JvGradientCaption z JEDI-VCL. Mam ji umistenou na MDIChild okne
jako neaktivni, Zapinam a vypinem ji v okamziku prepinani okna do
"zvlastniho rezimu". V normalni SDI aplikaci to funguje dobre, ale u MDI se
to chova nekorektne.
Neznate nekdo nejaky zpusob bez pouziti komponent, neco primo pres funkce
Delphi?
Igor Vodicka
FB - zmena hesla SYSDBA
[*] TomA?L? Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 28.4.2005 14:01:46
no tohle by melo zmenit i heslo k databazi, po reinstalaci serveru je
ovsem opet masterkey(pro server, nikoliv pro databazi), s tim nic
nenadelas. Pak nezbyva nic jinyho nez se pripojit k te ukazkove bazi
employee a pres ni to zmenit serveru, delame to takhle a nejsou s tim
zadne problemy.
Tom
votavaSW napsal(a):
>takto zmenim heslo SYSDBA pro cely server, po reinstalaci serveru
>noveho, nebo po preneseni DB na jiny server, bude heslo zase masterkey,
>myslel jsem, ze heslo je ulozeno primo v DB
>
>TomA?L? Krejzek napsal(a):
>
>
>>gsec -user SYSDBA -password masterkey -mo SYSDBA -pw nove_heslo
>>
>>votavaSW napsal(a):
>>
>>
>>
>>
>>>dobry den,
>>>jakym zpusobem lze zmenit heslo uziv. SYSDBA, aniz bych musel vytvaret
>>>DB s novym heslem znovu, stare heslo znam,
>>>s pozdravem Votava
>>>w2k, D5Pro, FB 1.5.2
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
>
>
>
>
--
Ing. Tom+AOEBBQ- Krejzek
KpSys Pardubice, spol. s r.o.
+AQw-ack+AOk- 155, 530 02
tel. +-420 466 655 055
FB - zmena hesla SYSDBA
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 28.4.2005 13:53:45
Ahoj,
votavaSW wrote:
> myslel jsem, ze heslo je ulozeno primo v DB
neni. Heslo je ulozeno v security databazi, ktera je na serveru.
Peca
PS: Opravu nebyl dobrej napad, zaclenit to do vlakna "vlastnost emailove
adresy". Pri zobrazeni posty dle vlaken neni poradne videt, jestli
prisel prispevek k puvodnimu, nebo novemu predmetu.
Priste prosim vytvor pro novy predmet novy mejl, neodpovidej na jiny
s uplne jinou naplni.
Dekuji.
D5, MemProof, DLL, MSXML a Live Pointer
[*] Petr Vones <konference(zv)petrvones(tec)net> - 28.4.2005 13:51:44
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> a nevim proc, ale myslel jsem si, ze Delphi bude vedet co je to zac a co s
> tim, ale evidentne nevi, takze neuvolni ty vnitrni stringy...
> Pokud udelam
> Dispose(PMujRecord(list[i]));
>
> tak uz to, zda se, jede korektne.
Neni lepsi pouzit objekty nez hruzy s pointery na recordy ?
> btw. k tomu co psal Ondrej - to "const" u stringu chapu, ale proc by to melo
> i u toho IXMLDOMNode ?
Pokud se preda jako const tak se uvnitr metody nezvysuje reference.
Petr Vones
problikavani obrazku pri tazeni mysi
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 28.4.2005 13:49:44
> Od: SCHWARZ Karel <schwarz(zv)gfk(tec)cz>
> Datum: 28.04.2005 11:43:03
>
> mam problem s takovym nehezkym "blikanim" obrazku pri tazeni mysi.
> Formular se (asi) nejak prekresluje a obrazek "blika" misto aby se plynule presunoval.
> Kde delam chybu? Mam pouzit jinou komponentu nebo postup?
Ahoj.
Pokud jsem nekdy resil problikavani obrazku, tak mi zatim vzdy stacilo pohrat si s property DoubleBuffered nejakeho parenta toho image.
Snad Ti to bude stacit.
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.2
programator amater
FB - zmena hesla SYSDBA
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 28.4.2005 13:47:44
Heslo je ulozeno v Security.fdb na serveru. Bohuzel zatim jina moznost neni,
ale ve FB2.0 by mela byt volba uloziste hesel.
Libor
----- Original Message -----
From: "votavaSW" <mail(zv)votavasw.com>
Sent: Thursday, April 28, 2005 1:15 PM
> takto zmenim heslo SYSDBA pro cely server, po reinstalaci serveru
> noveho, nebo po preneseni DB na jiny server, bude heslo zase masterkey,
> myslel jsem, ze heslo je ulozeno primo v DB
D5, MemProof, DLL, MSXML a Live Pointer
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.4.2005 13:35:42
> tak uz to, zda se, jede korektne.
> Cili to co mi ukazuje MemProof je misto odkud se to naalokovalo, co
> bylo spravne v te funkci pri prevodu z WideString na String.
samozrejme - MemProof nemuze znat cislo radku zdrojoveho kodu, kde se
to 'zapomnelo' dealokovat :-)
>
> Diky,
> Petr Langer
>
> btw. k tomu co psal Ondrej - to "const" u stringu chapu, ale proc by
> to melo i u toho IXMLDOMNode ?
const ma dva vyznamy - jednak zajisti, ze se omylem nebudes do te
'promenne' zapisovat a jednak v nekterych pripadech vede ke
zrychleni/zkraceni vysledneho kodu - napriklad misto celeho bufferu se
preda jen pointer na buffer.
Cili pokud by IXMLDOMNode byl nejaky slozity typ typu record (coz
zrejme neni) misto kopirovani celeho obsahu te struktury by se predal
pointer. Pokud je IXML... type, ktery se defaultne predava pointrem
pak jiny vyznam nez zamezeni zmeny jeho obsahu ten const IMHO nema
D. Toman
FB - zmena hesla SYSDBA
[*] votavaSW <mail(zv)votavasw(tec)com> - 28.4.2005 13:15:41
takto zmenim heslo SYSDBA pro cely server, po reinstalaci serveru
noveho, nebo po preneseni DB na jiny server, bude heslo zase masterkey,
myslel jsem, ze heslo je ulozeno primo v DB
TomA?L? Krejzek napsal(a):
> gsec -user SYSDBA -password masterkey -mo SYSDBA -pw nove_heslo
>
> votavaSW napsal(a):
>
>
>>dobry den,
>>jakym zpusobem lze zmenit heslo uziv. SYSDBA, aniz bych musel vytvaret
>>DB s novym heslem znovu, stare heslo znam,
>>s pozdravem Votava
>>w2k, D5Pro, FB 1.5.2
>>
>>
>>
>>
>>
>>
>>
>
>
D5, MemProof, DLL, MSXML a Live Pointer
[*] Petr Langer <langer(zv)xdom(tec)cz> - 28.4.2005 13:15:41
no, nakonec jsem zjistil, ze ten problem lezi uplne jinde.
Ja vysledek te funkce ukladam do recordu, ktery je alokovany pomoci new(...)
a ktery obsahuje nekolik retezcu.
Kazdy tento record pak ukladam do TListu.
No a nakonec tam mam "obecnou" funkci pro uvolnovani:
for i := 0 to list.Count - 1 do
begin
Dispose(list[i]);
...
end
a nevim proc, ale myslel jsem si, ze Delphi bude vedet co je to zac a co s
tim, ale evidentne nevi, takze neuvolni ty vnitrni stringy...
Pokud udelam
Dispose(PMujRecord(list[i]));
tak uz to, zda se, jede korektne.
Cili to co mi ukazuje MemProof je misto odkud se to naalokovalo, co bylo
spravne v te funkci pri prevodu z WideString na String.
Diky,
Petr Langer
btw. k tomu co psal Ondrej - to "const" u stringu chapu, ale proc by to melo
i u toho IXMLDOMNode ?
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
Subject: Re: D5, MemProof, DLL, MSXML a Live Pointer
> Petr Langer <langer(zv)xdom(tec)cz> wrote:
>> Ahojte,
>> dalsi problemek, pouzivam ve sve DLL-ce MSXML a pustil jsem si na to
>> MemProof. Zjistil jsem, ze mi rostou "Live Pointers" a po ukonceni
>> aplikace pouzivajici tu DLL mi MemProof ukazuje ze pri volani teto
>> funkce:
>>
>> function TGetStock.GetAttribute(node : IXMLDOMNode; attributeName :
>> string)
>>> string;
>> var
>> attr : IXMLDOMNode;
>> begin
>> Result := '';
>> attr := node.attributes.getNamedItem(attributeName);
>> if (attr <> nil) then
>> Result := attr.text;
>> end;
>>
>> vznikne podle MemProof "Live Pointer" :
>> # Item Kind Value Size Thread API Name Module
>> 97063 Live Pointer 02EF2780 11 604 GetMem RTL
>> GetMem allocates memory from the RTL memory manager and returns
>> pointer. The returned pointer must be freed with FreeMem.
>>
>> Dale jsem zjistil, ze to vznika na radku:
>> Result := attr.text;
>>
>> kde se dale vola
>> System._LStrFromPWCharLen
>> a tam tak na radku 5863 se vola
>> _LStrFromPCharLen(Dest, Buffer, DestLen);
>> odkud se nasledne vola ten GetMem
>>
>> Zrejme z tohoto duvodu dochazi ke zvysovani pameti.
>>
>> Nevi nekdo prosim, jestli je to znamy bug a existuje reseni?
>
> v tomhle by snad chyba byt nemela (pointer na string se pres Result
> preda vys a tam je pak nasledne nekdy uvolnena pamet). Proste
> prekladac vygenroval kod, ktery vezme nejaky bufer (zero terminated
> stringo) a prekopiruje ho do pascalskeho stringa (vcetne alokace
> pameti pro nej)
> Videl bych problem spis v neuvolnovani obsahu attr (nevim co je to
> presne za typ a zda obsahuje jen pointer na existujici pamet ci se
> neco nove vytvari)?
>
> D. Toman
>
>
>
>
D5, MemProof, DLL, MSXML a Live Pointer
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.4.2005 13:07:39
Petr Langer wrote:
> Zrejme z tohoto duvodu dochazi ke zvysovani pameti.
Setkal jsem se s memory leaky v pripade,
ze dokument nebyl vytvaren volanim
iXMLDoc := NewXMLDocument;
ale nejak jinak, tusim to bylo neco jako
iXMLDoc := TXMLDocument.Create(...) as IXMLDocument;
Nez jsme na to ale prisli, tak jsme nainstalovali service pack MSXML
a to taky nejake leaky odbouralo. Ale stezejni bylo vytvareni toho
dokumentu.
to zmizely vsechny leaky. Jestli by zmizely i bez toho SP jsem ale
nezkousel.
HTH, pf
D5, MemProof, DLL, MSXML a Live Pointer
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.4.2005 12:49:36
Petr Langer <langer(zv)xdom(tec)cz> wrote:
> Ahojte,
> dalsi problemek, pouzivam ve sve DLL-ce MSXML a pustil jsem si na to
> MemProof. Zjistil jsem, ze mi rostou "Live Pointers" a po ukonceni
> aplikace pouzivajici tu DLL mi MemProof ukazuje ze pri volani teto
> funkce:
>
> function TGetStock.GetAttribute(node : IXMLDOMNode; attributeName :
> string)
>> string;
> var
> attr : IXMLDOMNode;
> begin
> Result := '';
> attr := node.attributes.getNamedItem(attributeName);
> if (attr <> nil) then
> Result := attr.text;
> end;
>
> vznikne podle MemProof "Live Pointer" :
> # Item Kind Value Size Thread API Name Module
> 97063 Live Pointer 02EF2780 11 604 GetMem RTL
> GetMem allocates memory from the RTL memory manager and returns
> pointer. The returned pointer must be freed with FreeMem.
>
> Dale jsem zjistil, ze to vznika na radku:
> Result := attr.text;
>
> kde se dale vola
> System._LStrFromPWCharLen
> a tam tak na radku 5863 se vola
> _LStrFromPCharLen(Dest, Buffer, DestLen);
> odkud se nasledne vola ten GetMem
>
> Zrejme z tohoto duvodu dochazi ke zvysovani pameti.
>
> Nevi nekdo prosim, jestli je to znamy bug a existuje reseni?
v tomhle by snad chyba byt nemela (pointer na string se pres Result
preda vys a tam je pak nasledne nekdy uvolnena pamet). Proste
prekladac vygenroval kod, ktery vezme nejaky bufer (zero terminated
stringo) a prekopiruje ho do pascalskeho stringa (vcetne alokace
pameti pro nej)
Videl bych problem spis v neuvolnovani obsahu attr (nevim co je to
presne za typ a zda obsahuje jen pointer na existujici pamet ci se
neco nove vytvari)?
D. Toman
D5, MemProof, DLL, MSXML a Live Pointer
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.4.2005 12:45:35
Ondrej Kelle <o.kelle(zv)digitalpublishing.de> wrote:
>> function TGetStock.GetAttribute(node : IXMLDOMNode;
>> attributeName : string)
>>> string;
>
> Ta metoda by mala byt spravne deklarovana ako
>
> function TGetStock.GetAttribute(const node: IXMLDOMNode; const
> attributeName: string): string;
>
ale to s problemem vubec nesouvisi.
D. Toman
Zmena zahlavi formulare
[*] Kalhous <kalhous(zv)eu(tec)cz> - 28.4.2005 11:49:31
Kdyz nenajdete nic lepsiho, zkuste komponentu RxGradient z RxLibrary.
----- Original Message -----
From: "Ing. Igor Vodicka" <vodicka(zv)sagit(tec)cz>
> Napadlo mne zkusit zmenit barvu zahlavi okna i barvu fontu
> caption okna, a to mi prave nejde. Nevite nekdo jak na to? Je nekde nejaky
> priklad, odkaz apod.problikavani obrazku pri tazeni mysi
[*] SCHWARZ Karel <schwarz(zv)gfk(tec)cz> - 28.4.2005 11:41:31
Dobry den,
mam problem s takovym nehezkym "blikanim" obrazku pri tazeni mysi.
Formular se (asi) nejak prekresluje a obrazek "blika" misto aby se plynule presunoval.
Neco podobneho se deje s jinym obrazkem na ktery pak jeste navic kreslim pomoci
Image1.Canvas.Brush.Color:=clskyblue;
Image1.Canvas.Pen.Color:=clskyblue;
Image1.Canvas.Rectangle(116, 10, 116+X2, 28);
Image1.Refresh;
a dale je ve zdrojovem kodu
Application.Processmessages;
S obrazkem se deje to same (i kdyz ne v takove mire jako pri tazeni mysi)
Kde delam chybu? Mam pouzit jinou komponentu nebo postup?
Dekuji
Karel Schwarz
D5, MemProof, DLL, MSXML a Live Pointer
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 28.4.2005 11:17:29
> function TGetStock.GetAttribute(node : IXMLDOMNode;
> attributeName : string)
> : string;
Ta metoda by mala byt spravne deklarovana ako
function TGetStock.GetAttribute(const node: IXMLDOMNode; const
attributeName: string): string;
HTH
TOndrej
FB - zmena hesla SYSDBA
[*] TomA?L? Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 28.4.2005 11:15:28
gsec -user SYSDBA -password masterkey -mo SYSDBA -pw nove_heslo
votavaSW napsal(a):
>dobry den,
>jakym zpusobem lze zmenit heslo uziv. SYSDBA, aniz bych musel vytvaret
>DB s novym heslem znovu, stare heslo znam,
>s pozdravem Votava
>w2k, D5Pro, FB 1.5.2
>
>
>
>
>
>
--
Ing. Tom+AOEBYQ- Krejzek
KpSys Pardubice, spol. s r.o.
+AQw-ack+AOk- 155, 530 02
tel. +-420 466 655 055
D5, MemProof, DLL, MSXML a Live Pointer
[*] Petr Langer <langer(zv)xdom(tec)cz> - 28.4.2005 11:07:26
Ahojte,
dalsi problemek, pouzivam ve sve DLL-ce MSXML a pustil jsem si na to
MemProof. Zjistil jsem, ze mi rostou "Live Pointers" a po ukonceni aplikace
pouzivajici tu DLL mi MemProof ukazuje ze pri volani teto funkce:
function TGetStock.GetAttribute(node : IXMLDOMNode; attributeName : string)
: string;
var
attr : IXMLDOMNode;
begin
Result := '';
attr := node.attributes.getNamedItem(attributeName);
if (attr <> nil) then
Result := attr.text;
end;
vznikne podle MemProof "Live Pointer" :
# Item Kind Value Size Thread API Name Module
97063 Live Pointer 02EF2780 11 604 GetMem RTL
GetMem allocates memory from the RTL memory manager and returns pointer.
The returned pointer must be freed with FreeMem.
Dale jsem zjistil, ze to vznika na radku:
Result := attr.text;
kde se dale vola
System._LStrFromPWCharLen
a tam tak na radku 5863 se vola
_LStrFromPCharLen(Dest, Buffer, DestLen);
odkud se nasledne vola ten GetMem
Zrejme z tohoto duvodu dochazi ke zvysovani pameti.
Nevi nekdo prosim, jestli je to znamy bug a existuje reseni?
Diky,
Petr Langer
Otevreni souboru poklepem mysi apod.
[*] delphi(zv)kopr(tec)cz - 28.4.2005 11:03:25
Zdravim,
potrebuji, aby po najeti na datovy soubor v manazeru a po poklepu mysi, aby
se rozjel nas program, ktery bude umet tento soubor otevrit.
Jestlize nas program jiz je spusten, tak aby opet se dany datovy soubor
otevrel.
Jak nas program pozna, ze ma otevrit tento datovy soubor.
Snad je to srozumitelne
diky Pavel ZIDEK FB - zmena hesla SYSDBA
[*] votavaSW <mail(zv)votavasw(tec)com> - 28.4.2005 10:55:25
dobry den,
jakym zpusobem lze zmenit heslo uziv. SYSDBA, aniz bych musel vytvaret
DB s novym heslem znovu, stare heslo znam,
s pozdravem Votava
w2k, D5Pro, FB 1.5.2
Zmena zahlavi formulare
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 28.4.2005 10:35:23
Ahoj,
mam MDI aplikaci. Jednotlive okna otviram normalne bez problemu v klasickem
provedeni (barevene schema). Uzivatel si muze jednotliva okna zapnout do
zvlastniho rezimu. Takove okno se od ostatnich odlisuje v kontextu aplikace,
ma jine rezimy v chovani. Potreboval bych to dane okno od ostatnich nejak
odlisit. Jinou ikonu v levem hornim rozku umim nastavit, ale chtelo by to
jeste neco. Napadlo mne zkusit zmenit barvu zahlavi okna i barvu fontu
caption okna, a to mi prave nejde. Nevite nekdo jak na to? Je nekde nejaky
priklad, odkaz apod.
D5 Ent, Win 2000
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/vlastnost emailove adresy
[*] Milan Cizek <cizek.milan(zv)seznam(tec)cz> - 28.4.2005 10:33:23
> >> chtel bych se zeptat jestli nekdo nevite ktere znaky muze obsahovat
> >> emailova adresa ?.
Ahoj,
tento regexp jsem kdysi vytvoril, mel by odpovidat prislusnemu RFC.
^[-a-zA-Z0-9!#$%&'*+/=?^_`{|}~]+(\.[-a-zA-Z0-9!#$%&'*+/=?^_`{|}~]+)*(zv)[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$
Milan
vlastnost emailove adresy
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.4.2005 09:31:18
david.kopecek(zv)hacktrack.com wrote:
> to jsem prave cetl ale tam mi tvrdej ze retezec pred (zv)
> muze obsahovat jakekoliv znaky ASCI vetsi jak 37 a nesmi obsahovat
> mezeru a specialni znaky ale do specialnich znaku uvadeji i tecku..
Atom sice nesmi obsahovat tecku, ale adresa neni atom ;-) addr-spec = local-part "(zv)" domain
local-part = word *("." word)
word = atom / quoted-string
HTH, pf
DLL a IsMultiThread
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.4.2005 09:27:18
Petr Langer <langer(zv)xdom(tec)cz> wrote:
> Ahojte,
> mam multithreadovy HTTP servrik ktery na zacatku nahraje z urciteho
> adresare ruzne DLL-ky jako pluginy. Nahraje je jednou na zacatku
> (tedy ne pro kazdy thread) a pak uz jen vola urcitou metodu na
> zaklade zaslaneho pozadavku. Delam tedka prave jeden takovy plugin a
> zjistil jsem, ze Delphi si pri vytvareni threadu nastavuje promennou
> System.IsMutliThread. Ta se urcite nastavi v tom servriku, ale v te
> DLL-ce ne. Mam to explicitne nastavit, ma to nejaky vyznam?
pokud stejne casti DLL jsou volane z ruznych threadu, je treba rucne
IsMultithreaded nastavit. Pametovy manazer Borlandu jinak nefunguje
spravne. Jednou jsem takhle resil dost neprijemnej problem - vyresil
se po te co jsem do initialization sekci knihoven pridal IsMultithread
:= True;
Podivej se do zdrojaku borlandiho memory manageru a uvidis jaky to ma
vliv
D. Toman
vlastnost emailove adresy
[*] david.kopecek(zv)hacktrack(tec)com - 28.4.2005 08:59:16
Dobry den,
28. dubna 2005, 8:35:13, napsal jste:
JP> Precti si RFC 822.
JP> Jarda
JP> ----- Original Message -----
JP> From: <david.kopecek(zv)hacktrack.com>
>> chtel bych se zeptat jestli nekdo nevite ktere znaky muze obsahovat
>> emailova adresa ?.
to jsem prave cetl ale tam mi tvrdej ze retezec pred (zv)
muze obsahovat jakekoliv znaky ASCI vetsi jak 37 a nesmi obsahovat
mezeru a specialni znaky ale do specialnich znaku uvadeji i tecku..
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Jak se dostat k property tridy (rozhrani) pres jej
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 28.4.2005 08:49:15
Podle mne neexistuje.
Martin Rocek napsal(a):
> Diky za odpoved,
>
> prave o to jde, ze k published property se dostanu jednoduse pres RTTI, ale
> jestli neco neexistuje i pro public property.
>
> Diky martinr
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
off topic
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 28.4.2005 08:47:14
Tento zakon byl zrusen zakonem 245/2000 Sb. !!!
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaroslav Pivonka
> Sent: Thursday, April 28, 2005 8:39 AM
>
> Zakon c. 93/1951 Sb., o statnich svatcich, o dnech pracovniho
> klidu a o pamatnych a vyznamnych dnech, ve zneni pozdejsich
> predpisu
>
> ----- Original Message -----
> From: <radek3311(zv)volny(tec)cz>
>
>
> > nevite kde pro muj program v Delphi sehnat svatky v roce - idealni
> > by byla nejaka funkce ktera by vratila pro dany datum jestli je to
DLL a IsMultiThread
[*] Petr Langer <langer(zv)xdom(tec)cz> - 28.4.2005 08:43:14
Ahojte,
mam multithreadovy HTTP servrik ktery na zacatku nahraje z urciteho adresare
ruzne DLL-ky jako pluginy. Nahraje je jednou na zacatku (tedy ne pro kazdy
thread) a pak uz jen vola urcitou metodu na zaklade zaslaneho pozadavku.
Delam tedka prave jeden takovy plugin a zjistil jsem, ze Delphi si pri
vytvareni threadu nastavuje promennou System.IsMutliThread. Ta se urcite
nastavi v tom servriku, ale v te DLL-ce ne. Mam to explicitne nastavit, ma
to nejaky vyznam?
Zatim jsem tam radeji udelal toto:
procedure DllMain(reason: integer);
begin
case reason of
DLL_PROCESS_ATTACH:
begin
...
end;
DLL_THREAD_ATTACH:
begin
System.IsMultiThread := true;
end;
end;
end;
ale nevim presne na co to ma vliv a jestli to vubec potrebuju.
Diky za osvetleni,
Petr Langer
off topic
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 28.4.2005 08:39:14
Zakon c. 93/1951 Sb., o statnich svatcich, o dnech pracovniho
klidu a o pamatnych a vyznamnych dnech, ve zneni pozdejsich
predpisu
----- Original Message -----
From: <radek3311(zv)volny(tec)cz>> Zdravim,
>
> nevite kde pro muj program v Delphi sehnat svatky v roce - idealni
> by byla nejaka funkce ktera by vratila pro dany datum jestli je to
> svatek a pripadne jaky. Klidne takovou funkci napisu ale potreboval
> bych nekde sehnat nejakou databazi svatku - nevite nekdo jak na to ?
>
> Radek