Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Delphi 2005
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 1.8.2005 18:17:14
> Tohle je pod pas. Ono by to klidne slo vykladat jako tak,
> ze .NET nelze bez rozsahlich skoleni pouzivat, tj. ze je tak nelogicky
> ze nikdo nevi, co hledat.
Takhle jsem to vubec nemyslel, Slavku.
Navic bych to vykladal zcela zkreslene - .NET je naopak mnohem logickejsi, "ucesanejsi", nez Win32.
Je JINY !!!
Chtel jsem jenom rici, ze prechod z Delphi do .NET je masivnejsi, nez by se mohlo zdat.
(viz paralelni zprava)
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569, 493 792 931, 776 347 735
====================================
Delphi 2005
[*] Petr Vones <konference(zv)petrvones(tec)net> - 1.8.2005 18:17:14
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
> Ja se zeptam jinak: myslite, ze ma smysl ucit dneska Delphi toho, kdo Delphi
> nezna?
V zadnem pripade. Modernim jazykem je C# a platformou .NET, a pro extermne
zatvrzele alternativce pak snad Java ;-)
Petr Vones
Delphi 2005
[*] Petr Vones <konference(zv)petrvones(tec)net> - 1.8.2005 18:29:15
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
> Je by treba velmi ocenil, kdybych mohl prenest sve vypocty
> do .NET (jako assemblies) jen prelozenim, nikoliv kompletnim prepsam.
Jeste mne napadlo jine reseni. Borland musel pro Delphi.NET napsat alespon
castecne funkcni Code DOM (kvuli component modelu IDE a web service klientum)
se kterym se moc nechlubi (nefunguje plnohodnotne). S pomoci toho lze pak
relativne snadno vytvorit konverzi z jednoho jazyka do druheho, staci aby pro
nej existovala implementace Code DOM.
Borland ma na webu ukazkovou aplikaci ktera umi timto zpusobem do jiste miry
konvertovat C# kod do Delphi.NET:
http://dotnet.borland.com/babelclient/BabelClient.aspx
Samozrejme teoreticky nic nebrani tomu si napsat opacny konvertor a tim dostat
vetsinu existujiciho Delphi Win32 kodu tech vypoctu do C# ;-)
Vice treba zde:
http://bdn.borland.com/article/0,1410,32338,00.html
http://blogs.borland.com/corbindunn/archive/2004/09/30/1493.aspx
Petr Vones
InnoSetup - dve umisteni
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 1.8.2005 18:25:15
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> > da se, prosim, v InnoSetupu nejak udelat to,
> > aby si uzivatel pri instalaci mohl nastavit adresar
> > nejen pro umisteni aplikace(to jde, to je jasny),
> > ale i pro napr. data ? Proste nastavit pri instalaci
> > dva adresare a do kazdeho nasypu neco.
>
> Ano jde.
A slo by, prosim, nasmerovat jak?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Delphi 2005
[*] Petr Vones <konference(zv)petrvones(tec)net> - 1.8.2005 18:15:14
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
> Je by treba velmi ocenil, kdybych mohl prenest sve vypocty
> do .NET (jako assemblies) jen prelozenim, nikoliv kompletnim prepsam.
>
> Pokud by to fugovalo skutecne .NET, tak jsem (byl bych) velmi spokojen, ale
> pokud bude treba nejakeho p/Invoke, tak to nepotrebuji.
No tohle by to jeste mohlo fungovat, nicmene Borland tam stale bude pouzivat
svoje matematicke funkce (tedy pseudofunkce, CLR zadne funkce nema) namisto
kterych je asi lepsi pouzit primo metody tridy System.Math.
Dale tam bude vnucovat svuj "system" unit v podobe Borland.Delphi.dll a nelze
jej presvedcit aby se tehle zbytecnosti vzdal a generoval "normalni" assembly.
> Pokud byste vedeli o takovem kompilatoru pascalu do .Net asseblies, dejte
> vedet.
http://chromesville.com/
Petr Vones
Delphi 2005
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 1.8.2005 18:11:13
> >pomer ucastniku na nasich skolenich dosahuje dnes zhruba 8:1 ve
> prospech platformy .NET. Odvodte si z toho, co chcete.
> >
> Vaclav Halik
> Tohle je tak slaby argument, ze se mi ani nechce verit, ze s nim
> nekdo argumentuje.
Predevsim to neni uvedeno jako argument - pro nic a proti nicemu.
Rikam preci - odvodte si z toho, co chcete.
> Nepripada ti, ze pokud je Delphi pomalu 10 let stara zalezitost,
> ze asi uz spousta lidi jej umi a tudiz na nich maka a moc se
> mepotrebuje skolit, kdezto .Net je relativne cerstva zalezitost
> a tudiz se skoleni hodi.
Samozrejme, je to tak, jak rikas.
Ja z toho nicmene odvozuji, kdyz uz k odvozovani vybizim, ze .NET je dnes opravdu na poradu dne. Neni to nejaka "hudba budoucnosti", jak z nekterych prispevku muze vyplyvat. Nebudu tady ted vypocitavat, kolik firem z tech, ktere u nas byly na skoleni Delphi, navstivilo uz taky ..NET. Je jich hodne, pro me az prekvapive hodne.
Navic, a v tom se mnou budes souhlasit, tech 10 let znalosti Delphi je obrovsky kapital, ktery vyvojarske firmy ve svych Delphi vyvojarich maji. Presto na skoleni jezdi - asi vedi proc, dokazou si to spocitat.
A kdyz k tomu pripoctu "vecerni neformalni diskuse k specifickym problemum ucastniku" (jak deklaruji na svem webu), dava mi to docela dobry obrazek, co se kolem prechodu z Delphi do .NET asi tak deje.
> Jinak k tematu osobne se nedomnivam ze pro nekoho kdo ma D7
> je prinos kupovat cokoliv jineho. A uz vubec nemyslim ze ma smysl
> vyvijet v Delphi .Net aplikace. Co tim kdo ziska ?
Uplny souhlas - taky ja jsem tento pripad :-)
Jeste myslenka, ktera navazuje na tvoje uvahy:
Diskutovalo se tady, zda zacinat nove projekty v Delphi.
Ja se zeptam jinak: myslite, ze ma smysl ucit dneska Delphi toho, kdo Delphi nezna?
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569, 493 792 931, 776 347 735
====================================Delphi 2005
[*] Petr Vones <konference(zv)petrvones(tec)net> - 1.8.2005 18:09:13
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
> Ano, je jiste, ze Win32 API je mrtve, stejne tak je ale jiste, ze .NET 1.1
> API je mrtve, .NET 2.0 NENI kompatibilni, alespon ne zcela (proste jsem ho
> musel odinstalovat a pak vse bezelo jak ma).
.NET 2.0 jeste neexistuje, to byla pouze beta. Jednotlive verze budou moci
vzajemne koexistovat.
Ohledne GUI, prave verze 2.0 to posunuje na jiz zajimavou uroven. Nicmene
nejsou jen GUI aplikace.
> Treba me vytaci drobnost, ze DataReader.GetFloat, umi pouze celocislny index
> a ne nazev fieldu.
Od toho je IDataRecord.GetOrdinal, jinak pomoci IDataRecord.Item
Petr Vones
Delphi 2005
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 1.8.2005 17:39:10
Tohle je pod pas. Ono by to klidne slo vykladat jako tak,
ze .NET nelze bez rozsahlich skoleni pouzivat, tj. ze je tak nelogicky
ze nikdo nevi, co hledat.
Duvodu pro tento stav je vice, proto to povazuji za informaci pod pas.
> Sverim vam dalsi informaci, ktera o necem vypovida:
> pomer ucastniku na nasich skolenich dosahuje dnes zhruba 8:1
> ve prospech platformy .NET. Odvodte si z toho, co chcete.
..NET je v nekterych oblastech lepsi, proto jej pouzivam, treba na WEB,
ale pro tvorbu GUI (pro win32) ?
Dale chci treba dobre grafy, ktere me nestoji majlant, TChart neni dokonaly, ale
nasadil latku pomerne vysoko (drobnost, kvuli ktere nemohu nektere aplikace
prepsat z delphi cgi).
Ano, je jiste, ze Win32 API je mrtve, stejne tak je ale jiste, ze .NET 1.1 API
je mrtve, .NET 2.0 NENI kompatibilni, alespon ne zcela (proste jsem ho musel
odinstalovat
a pak vse bezelo jak ma).
Treba me vytaci drobnost, ze DataReader.GetFloat, umi pouze celocislny index a
ne nazev fieldu.
..NET ma budoucnost, ale musi si ji zaslouzit kvalitou a kvantitou
(zorsirenosti).
Slavek
Delphi 2005
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 1.8.2005 17:31:09
Zdravim,
>Sverim vam dalsi informaci, ktera o necem vypovida:
>pomer ucastniku na nasich skolenich dosahuje dnes zhruba 8:1 ve prospech platformy .NET. Odvodte si z toho, co chcete.
>
>
>
Tohle je tak slaby argument, ze se mi ani nechce verit, ze s nim
nekdo argumentuje.
Proc si myslis jako skolitel, ze lidi chodej na skoleni ?
Neni to asi tim, ze se chtej naucit neco noveho ?
Nepripada ti, ze pokud je Delphi pomalu 10 let stara zalezitost,
ze asi uz spousta lidi jej umi a tudiz na nich maka a moc se
mepotrebuje skolit, kdezto .Net je relativne cerstva zalezitost
a tudiz se skoleni hodi.
Neber to jako provokaci. Jen by mne to zajimalo.
Jinak k tematu osobne se nedomnivam ze pro nekoho kdo ma D7
je prinos kupovat cokoliv jineho. A uz vubec nemyslim ze ma smysl
vyvijet v Delphi .Net aplikace. Co tim kdo ziska ?
S pozdravem Vaclav Halik
Delphi 2005
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 1.8.2005 17:11:07
> Ing. Jiri SOKOL wrote:
> > Je jeste vubec rozumne zacinat nove porjekty pod Win32?
> Petr Zahradnik
> A proc by to nebylo rozumne? Ja klidne zacinam nove projekty pro Win32
> v D5.
> Joan Arc
> Predstava, ze Win32 bude minoritni oproti .NETu za mene nez 3 roky je
> IMHO dost zcestna...
Zda zacinat nove projekty pod Win32, to asi zalezi na velikosti projektu, na velikosti vyvojarskeho tymu, na tom, kdy Win32 opravdu skonci - a ony jednoho dne opravdu skonci.
Ja taky klidne zacnu novy "projektik" v D7, protoze to mam hotove "cobydup".
Jsem nicmene presvedcen, a ti, kteri .NET delaji, mi to potvrdi, ze .NET je mnohem lepsi, je to nova kvalita (nemluvim zde o "nedospelosti" .NET Frameworrk 1.1). Prinasi lepsi modularizaci, tim vetsi stabilitu (robustnost), lepsi delbu prace. V dusledku pak vetsi produktivitu, flexibilitu, obecne vyssi kvalitu.
Navic jsou zde oblasti (treba internet, distribuovane aplikace obecne), kde je .NET lepsi nikoli o rad, ale hned o dva rady.
Proto tvrdim, ze u vetsich projektu nebo u vetsich tymu se vyplati investovat cas (nebo penize, vyjde to na stejno) do prechodu na .NET. Je treba si uvedomit, ze softwarove projekty maji za sebou casto desitky (nekdy stovky) clovekoroku vyvojarske prace. Chcete-li, az skonci Win32, na trh dodat "dospely" .NET produkt, spocitejte si sami, zda prechod na ..NET uz dneska klepe na dvere, nebo jeste ne.
Sverim vam dalsi informaci, ktera o necem vypovida:
pomer ucastniku na nasich skolenich dosahuje dnes zhruba 8:1 ve prospech platformy .NET. Odvodte si z toho, co chcete.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569, 493 792 931, 776 347 735
====================================Delphi 2005
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 1.8.2005 17:07:07
Nebyla, myslim, ze se zamenuji dve veci:
1. Kompatibilita jazyka
2. kompatibilita komponent, specialne VCL
Je by treba velmi ocenil, kdybych mohl prenest sve vypocty
do .NET (jako assemblies) jen prelozenim, nikoliv kompletnim prepsam.
Pokud by to fugovalo skutecne .NET, tak jsem (byl bych) velmi spokojen, ale
pokud bude treba nejakeho p/Invoke, tak to nepotrebuji.
Pokud byste vedeli o takovem kompilatoru pascalu do .Net asseblies, dejte vedet.
Slavek
>
> Borland podle meho soudu vsadil na lenost programatoru ucit
> se neco noveho. Pri prechodu do .NET deklaruje pofiderni
> zpetnou kompatibilitu, ktera zde ovsem byla mnohokrat
> fundovane zpochybnena.
>
> > predpokladam u B. velke ztraty a pochybuju, ze budou dal
> > pokracovat v rpojektu, ktery je ztratovy...
>
> Podle zprav z duveryhodnych zdroju se Delphi 2005 prodava
> (prodavalo?) docela dobre. Nekteri uverili te zpetne
> kompatibilite, nektere presvedcilo nove (lepsi?) IDE.Delphi 2005
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 1.8.2005 16:51:05
> Takze se da rict, ze Borland s Delphi konci?
Nemyslim si, ze Borland s Delphi konci. Obavam se nicmene, ze uz Delphi nic prevratneho neprinese. Jeho kvalitativni potencial je vycerpan. Anders Heilsberg je u Microsoftu a dela .NET (C#).
> Po tom, cos napsal
> dost dobre nechapu proc by si nekdo mel D2k5 kupovat
Borland podle meho soudu vsadil na lenost programatoru ucit se neco noveho. Pri prechodu do .NET deklaruje pofiderni zpetnou kompatibilitu, ktera zde ovsem byla mnohokrat fundovane zpochybnena.
> predpokladam u B. velke ztraty a pochybuju, ze budou dal
> pokracovat v rpojektu, ktery je ztratovy...
Podle zprav z duveryhodnych zdroju se Delphi 2005 prodava (prodavalo?) docela dobre.
Nekteri uverili te zpetne kompatibilite, nektere presvedcilo nove (lepsi?) IDE.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569, 493 792 931, 776 347 735
====================================InnoSetup - dve umisteni
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 1.8.2005 15:53:01
> da se, prosim, v InnoSetupu nejak udelat to,
> aby si uzivatel pri instalaci mohl nastavit adresar
> nejen pro umisteni aplikace(to jde, to je jasny),
> ale i pro napr. data ? Proste nastavit pri instalaci
> dva adresare a do kazdeho nasypu neco.
Ano jde.
Luf
servis a vytvaranie adresarov
[*] Dusan Nagy <dnagy(zv)inomacomp.sk> - 1.8.2005 16:11:03
Nevie si poradit z jedov vecov
mam v systeme w2000 vytvorenych 2 uzivatelov a adresar
s nastavenymi pravami a to nasledovne
user1 - moze iba citat
user2 - plne riadenie
Servis ktory v tomto adresary vytvara podadresare a zapisuje data
je spusteni s pravami user2. Vsetko zdanlivo funguje az na to ze
adresare ktore vytvori servis a tiez data user1 bez problemov zmaze.
Neviem si vysvetlit tento problem adresare sa vytvaraju fc.
mkdir(dir);
Dik za pomoc.Delphi 2005
[*] Joan Arc <johanka.arkova(zv)pnws.org> - 1.8.2005 15:53:01
Ing. Jiri SOKOL wrote:
> Je jeste vubec rozumne zacinat nove porjekty pod Win32?
> Jirka
>
Predstava, ze Win32 bude minoritni oproti .NETu za mene nez 3 roky je
IMHO dost zcestna...
B.
Delphi 2005
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.8.2005 15:10:57
Puvodni zprava ze dne 1.8.2005:
> Takze se da rict, ze Borland s Delphi konci?
To se zeptej Borlandu a ne tady.
> Po tom, cos napsal dost dobre nechapu proc by si nekdo mel D2k5
D2k5 = D2500 - to je jako co?
> kupovat a tak predpokladam u B. velke ztraty a pochybuju, ze budou
> dal pokracovat v rpojektu, ktery je ztratovy...
Ty jsi nejaky ekonom, ze predpokladas ztraty u jineho subjektu na
zaklade subjektivnich informaci?
> Je jeste vubec rozumne zacinat nove porjekty pod Win32?
A proc by to nebylo rozumne? Ja klidne zacinam nove projekty pro Win32
v D5.
> Co muze B. prinest noveho v dalsi verzi Delphi, aby si to vsichni
> chteli koupit?
Vsichni si to rozhodne koupit nebudou chtit, at prinese cokoliv. Ale
jiste se nekdo najde. Nehlede k tomu, ze treba stale vznikaji novi
programatori, kteri nakupuji nove vyvojove nastroje. Tak jako si ne
kazdy stavar koupi velkou michacku, ale micha maltu treba v kolecku
lopatou...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Delphi 2005
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 1.8.2005 15:02:45
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> Takze se da rict, ze Borland s Delphi konci? Po tom, cos
> napsal dost dobre nechapu proc by si nekdo mel D2k5 kupovat a
> tak predpokladam u B. velke ztraty a pochybuju, ze budou dal
> pokracovat v rpojektu, ktery je ztratovy...
> Je jeste vubec rozumne zacinat nove porjekty pod Win32? Co
> muze B. prinest noveho v dalsi verzi Delphi, aby si to
> vsichni chteli koupit?
To netusim jestli je ztratova :\ , ale pokud by udelali Delphi, ktere
bude mit 100% opravene chyby, ktere se tahnou treba taky od D3,
resp. meli ALESPON snahu vydavat treba pravidelne updaty,
dale pokud by treba prekopali VCL, aby byla thread-safe :)) a udelali
rozumnou cenu upgrade tak si koupim treba i Architect verzi.
Rozhodne bych netvrdil, ze Win32 v nejblizsi dobe skonci (to uz se tu
probiralo mnohokrate). A protze se vyse uvedeneho tezko
dockame tak budu stale pouzivat D7, byt s dokoupenyma
(nelevnyma) komponentama, protoze ani blbej ActionManager nefunguje
jak ma apod.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Delphi 2005
[*] Ing. Jiri SOKOL <js-delphi(zv)seznam(tec)cz> - 1.8.2005 14:46:44
> Od: Petr Vones <konference(zv)petrvones.net>
> Datum: 01.8.2005 14:46:27
>
> V Delphi Win32 je tam vyplepseno nekolik drobnosti, ale asi to za upgrade z D7
> nestoji. Pokud mas hodne stare Delphi tak se to asi vyplati.
>
> Delphi.NET jako takove je prakticky nepouzitelne a neni ani vlastne duvod jej
> pouzivat.
>
> Posledni moznost, tedy pouziti jako IDE pro C# se mi v praxi take ukazala
> problematicka. Puvodni idea byla vyvijet aplikaci primarne ve Visual Studiu
> a pro ladeni (nekym jinym, kdo preferuje Delphi IDE) pouzit Delphi 2005. Po
> case se ovsem narazilo na neschopnost IDE spravne importovat vetsi projekt,
> takze ani tuto variantu nelze doporucit.
>
> Petr Vones
Takze se da rict, ze Borland s Delphi konci? Po tom, cos napsal dost dobre nechapu proc by si nekdo mel D2k5 kupovat a tak predpokladam u B. velke ztraty a pochybuju, ze budou dal pokracovat v rpojektu, ktery je ztratovy...
Je jeste vubec rozumne zacinat nove porjekty pod Win32? Co muze B. prinest noveho v dalsi verzi Delphi, aby si to vsichni chteli koupit?
Jirka
Kolecko na mysce spolecne s hook
[*] delphi(zv)spst(tec)cz - 1.8.2005 14:00:40
Zdravim,
Potrebuji ve svem programu zjistit, kterym smerem se otaci kolecko na mysce.
Ne nad nejakou komponentou v mem programu, ale globalne ve Windows XP.
Napsal jsem si hook, ktery tuto udalost odchytava (WM_MOUSEWHEEL), ale v
odchycenych parametrech se mi nepovedlo zjistit smer. Tak jak jsem jiz psal
kdysi ma to fungovat nejak takhle:
if WParam = WM_MOUSEWHEEL then
if TWMMouseWheel(Mess).WheelDelta>0 then
RoolLabel.Caption := 'kolecko hore';
if TWMMouseWheel(Mess).WheelDelta<0 then
RoolLabel.Caption := 'kolecko dole';
ale TWMMouseWheel(Mess).WheelDelta je porad rovno nule
netusite kde delam chybu.
Uz jsem vyzkousel napsat globalni hook v podstate na vse a sledoval, ktery
parametr se pri otaceni zmeni, ale bud jsem to mnel spatne nebo se nic
nedelo. Zaznamenal jsem opet pouze otaceni, ale smer ne.
Predem moc dekuji
Jirka
SOAP a klientske certifikaty
[*] Petr Vones <konference(zv)petrvones(tec)net> - 1.8.2005 13:12:36
From: "Jan Netrval" <jnetrval(zv)pilscom(tec)cz>
> Omlouvam se jde o Win32 (bohuzel).
Prohledej Googlem newsy borland.public.delphi.webservices.soap, uz se to tam
resilo mnohokrat, ale necekej nic snadneho.
Petr Vones
Delphi 2005
[*] Petr Vones <konference(zv)petrvones(tec)net> - 1.8.2005 13:08:35
From: <radek3311(zv)volny(tec)cz>
> spokojen - muzu mit jeden program (projekt) a jednou ho zkompilovat
> jako WIN32 a podruhe jako .Net aplikaci - podle pozadavku uzivatele.
No to samozrejme nemuzes, leda ze by si pouzil demo "fishfact" a prelozil jej
pod paskvilem zvanym VCL.NET, coz je vlastne Win32 API volane pres P/Invoke,
takze to nema s .NET frameworkem naprosto nic spolecneho (akorat je to cele
zbytecne komplikovane a pomale).
V Delphi Win32 je tam vyplepseno nekolik drobnosti, ale asi to za upgrade z D7
nestoji. Pokud mas hodne stare Delphi tak se to asi vyplati.
Delphi.NET jako takove je prakticky nepouzitelne a neni ani vlastne duvod jej
pouzivat.
Posledni moznost, tedy pouziti jako IDE pro C# se mi v praxi take ukazala
problematicka. Puvodni idea byla vyvijet aplikaci primarne ve Visual Studiu
a pro ladeni (nekym jinym, kdo preferuje Delphi IDE) pouzit Delphi 2005. Po
case se ovsem narazilo na neschopnost IDE spravne importovat vetsi projekt,
takze ani tuto variantu nelze doporucit.
Petr Vones
passwordChar u TEditSinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 1.8.2005 12:42:33
> From: Votava
>
> v komponente TEditSinea nefunguje passwordChar, zobrazuji se stale
> vlozene znaky, at je v passwordChar jakyko-li znak,
> nevite o nejake oprave?
Verze 6.05, ktera je ke stazeni na strankach firmy Sinea,
zobrazuje PasswordChar spravne.
Vaclav Krmela
Delphi 2005
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 1.8.2005 11:40:21
> Uz se to tady nekolikrat rozebiralo - ja osobne mam D2005 a jsem
> spokojen - muzu mit jeden program (projekt) a jednou ho zkompilovat
> jako WIN32 a podruhe jako .Net aplikaci - podle pozadavku uzivatele.
Uz se to tady nekolikrat rozebiralo:
..NET je uplne neco jineho, nez Win32, vyzaduje jinou architekturu aplikace, VCL.NET je prasarna.
Prenositelnost zdrojoveho kodu aplikace mezi Win32 a .NET mi pripada jeste horsi napad, nez mezi Delphi (Win32) a Kylixem (Linux).
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569, 493 792 931, 776 347 735
====================================
..prace s komponentami IBX ve vice vlaknech
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 1.8.2005 12:32:32
> chtel jsem pomalejsi select dat do extra threadu (k nemu
> extra database a transakce)
> Problem je v tom, ze v
> TIBDatabase.DoConnect, na volani API funkce
> isc_attach_database se to zasekne.
Ahoj,
IBX ve vice threadech pouzivam a bez problemu funguje. Napada me,
jestli databazi a transakci pro thread vytvaris opravdu az v tom threadu?
Tj. nikoli v konstruktoru threadu, ale az v Execute - a je potreba v kodu
nastavit vsechny potrebne properties - jmenao databaze, default
transakci, dialekt atd.
David Lebeda
InnoSetup - dve umisteni
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 1.8.2005 11:28:18
Ahoj,
da se, prosim, v InnoSetupu nejak udelat to,
aby si uzivatel pri instalaci mohl nastavit adresar
nejen pro umisteni aplikace(to jde, to je jasny),
ale i pro napr. data ? Proste nastavit pri instalaci
dva adresare a do kazdeho nasypu neco.
Neco jako:
Zalozka "Zvolte cilove umisteni pro aplikaci":
---------------------------------------------------------------
Dir aplikace: C:\aplikace
a jeste jednou
Zalozka "Zvolte cilove umisteni pro data aplikace":
------------------------------------------------------------------------
Dir data: D:\data
Jestli na jedne zalozce nebo dvou samostatne to je vcelku
jedno.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
prace s komponentami IBX ve vice vlaknech
[*] t.bradle(zv)sanet(tec)cz - 1.8.2005 11:28:17
Zdravim vsechny,
chtel jsem pomalejsi select dat do extra threadu (k nemu extra database a transakce) a po jejim provedeni dat potrebne udaje do promennych ze kterych se to potom v hravnim threadu zobrazuje. Problem je v tom, ze v TIBDatabase.DoConnect, na volani API funkce isc_attach_database se to zasekne. Nevi nekdo jestli s tim lze neco delat ? IBX je pouze pro hlavni thread ? Doporuci mi nekdo neco misto IBX ?
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
passwordChar u TEditSinea
[*] Votava <mail(zv)votavasw(tec)com> - 1.8.2005 11:40:21
dobry den,
v komponente TEditSinea nefunguje passwordChar, zobrazuji se stale
vlozene znaky, at je v passwordChar jakyko-li znak,
nevite o nejake oprave?
s pozdravem Votava WXPPro, D5
Delphi 2005
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.8.2005 11:34:18
Puvodni zprava ze dne 1.8.2005:
> Uz se to tady nekolikrat rozebiralo - ja osobne mam D2005 a jsem
> spokojen - muzu mit jeden program (projekt) a jednou ho zkompilovat
> jako WIN32 a podruhe jako .Net aplikaci - podle pozadavku uzivatele.
Coz je samozrejme pouze fikce, protoze rozdil mezi Win32 a .NET
aplikacemi je tak zasadni, ze to takhle udelat nelze. Pokud vyvines
Win32 aplikaci, tak prelozenim pod .NET to neni .NET aplikace, ale
stale Win32 aplikace dobastlena pro .NET.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Ako na Properties editor
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 1.8.2005 11:22:16
> From: Robert Fujak
>
> Mam zabulku obsahujucu rozne parametre, ktore su roznych typov.
> Potrebujem to nejako rozumne uzivatelsky zobrazit.
> Nieco ako properties editor.
Mezi VCL komponentami Sinea je komponenta TPropertyBrowserSinea.
Zkus to jako inspiraci, soubor SiVclX.zip na strance
http://www.sinea(tec)cz/default.asp?page=50
Vaclav Krmela
Sorting v DBGridu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 1.8.2005 11:14:15
Marek dne 28 Jul 2005 v 6:06:
> Query.SQL.Text := 'Select xxx from xxx Order by '+
> ''''+DBGrid1.Columns[column.ID].FieldName+''''+' '+ de;
Ahoj,
tohle nebude myslim fungovat, pokud jsou policka vracena dotazem vypocitavana (SELECT
a.Cislo1+a.Cislo2 as Vysledek FROM...). Pak jsem pouzival ORDER BY 5,6 (poradi policek), jde to
zjistit myslim z FieldNumber nebo tak nejak. Take je treba osetrit, kdyz uzivatel chce tridit
podle CalculatedField...
Karel Rys
TStringgrid
[*] horky(zv)cominn(tec)cz - 1.8.2005 10:02:10
> From: Petr Berek [mailto:sojokl(zv)seznam(tec)cz]
> Ted premyslim, jak udelat to, aby do bunky sli vkladat jen
> urcite hodnoty.
Pro omezeni mnoziny vkladanych znaku pouzivam:
procedure eEditKeyPress(Sender: TObject; var Key: Char);
begin
{ osetrime si vkladane hodnoty na 0..9,a..z,A..Z,BackSpace nic jineho nelze zadat }
if not (Key in ['0'..'9', 'a'..'z', 'A'..'Z', #8]) then Key := #0;
end;
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
TStringgrid
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 1.8.2005 09:46:08
Opet zdravim konferu,
takze uz jsem problem vyresil. Ukladani jsem docela nevedome udelal pomoci oddelovace do formatu csv, takze je takto vytvoreny soubor pouzitelny i v excelu, coz me docela potesilo. Mazani radku jsem udelal v cyklu, kde jsem to vsecho presunul a ubral radek. To same jsem vlastne udelal i se sloupcem.
Ted premyslim, jak udelat to, aby do bunky sli vkladat jen urcite hodnoty. Mam uz to osetreno pri stisku klavesy(onKeyPressed) a kdyz se stiskne nejaka jina klavesa, tak zakazu editaci. Jenze to asi neni ten spravny zpusob. Chtel bych, aby pri stisku jine klavesy zustal kurzor v bunce a ten znak se tam jen nezapsal.
Omlouvam se, ze zatezuju, tak zacatecnickymi dotazy.
Petr
< ------------ Puvodni zprava ------------
< Od: Petr Fejfar <development(zv)callnet(tec)cz>
< Predmet: Re: TStringgrid
< Datum: 26.7.2005 10:20:25
< ----------------------------------------
< John Bricklayer wrote:
<
< > Jen me tak napadlo co skusit tohle ?
< > Nemusi se delat potomek, nebo projizdet a presouvat, akorat z toho
< > udelat proc
< >
< > tab.Rows[index].DelimitedText:=tab.Rows[tab.rowcount-1].DelimitedText;
< > tab.RowCount:=tab.RowCount-1;
<
< Tohle prece nemuze fungovat - to bys musel udelat cyklus a "prisunout"
< vsechny radky za Indexem tj. Rows[Index+1]..Rows[RowCount-1].
<
< pf
<
<
<
<
<
<
Cannot transliterate character between sets.
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 1.8.2005 09:26:06
Ahoj,
trochu to s tim souvisi, setkal jsem se s pozadavkem vkladat do textove DB
polozky znaky omega a mi z recke abecedy. Jde to vyresit nejak elegantne?
Diky a zdravim
Dalibor Faltynek
Orgrez, a. s.
tel: +420 541 613 312
fax: +420 541 613 299
e-mail: dalibor.faltynek(zv)orgrez(tec)cz
> Chyba bude nekde jinde, bez problemu ukladame "Fugnerovo nabrezi" ("u" se
dvema teckami) do DB, ktera ma nastaveno CP WIN1250 a v domene k fieldu je
take WIN1250.Delphi 2005
[*] radek3311(zv)volny(tec)cz - 1.8.2005 08:44:03
Uz se to tady nekolikrat rozebiralo - ja osobne mam D2005 a jsem
spokojen - muzu mit jeden program (projekt) a jednou ho zkompilovat
jako WIN32 a podruhe jako .Net aplikaci - podle pozadavku uzivatele.
Chvili jsem take delal v .Netu v MSVS ale moc se me to nelibilo -
pripadalo me to jako Delphi ve verzi 2.0 - mozna az budou mit 9
verzi jako je Delphi ted tak o tom budu uvazovat :-) Jinak pokud
chces pouzivat D2005 jen pro WIN32 tak by ti mohla udelat radost
daleko lepe udelana napoveda oproti Delphi7 a taky nejaky
serepeticky v editoru a fungujici kolecko myse v DBGridu a taky
mozna jinde :-)
Radek
ps: do D2005 je potreba nainstalovat vsechny sp jinak to nema smysl
--
Revolucni vysokorychlostni INTERNET jen za nizky mesicni pausal 399
Kc. Navic MP3 prehravac nebo flash disk ZDARMA! Vice na
http://www.revolucniinternet(tec)cz
Ako na Properties editor
[*] Robert Fujak <robof(zv)inmail.sk> - 1.8.2005 08:08:00
Zdravim Vas.
Mam zabulku obsahujucu rozne parametre, ktore su roznych typov.
ID, HODNOTA, TYP
1, 'text1', 'STRING'
2, 56.0, 'FLOAT'
3, True, 'BOOLEAN'
....
Potrebujem to nejako rozumne uzivatelsky zobrazit. Nieco ako properties
editor .
Nazov - string
Vaha - float
Oznacene - boolean
....
Napadlo ma vyuzit grid a tam vytvorit pod seba na bunkach rozne
TEdit,TCheckBox, a pod. aby som nemusel rucne vypocitavat polohy prvkov.
viete mi poradit iny sposob zobrazenia, alebo ako by sa to dalo vyriesit
inac?
Dakujem
S pozdravom
Robert Fujak
D7
Komponenty pro OPC server
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 1.8.2005 06:19:50
Ahoj,
s psanim serveru moc zkusenosti nemam, ale pokousel jsem se si delat
klienta. Nakonec jsem od toho opustil, jelikoz jsem to vyresil jinak. Par
zdrojaku je tady:
http://www.opcconnect.com/delphi.php
Jinak se daji nejake materilay sehnat zde:
http://www.opcfoundation.org
Hotove servery pro ruzne typy zarizeni se daji sehnat u Matrikonu:
http://www.matrikon.com/
nebo
http://www.kepserver.com/
ale samozrejme za ty se uz plati.
Snad to nejak pomuze.
S pozdravem Krakora M.> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
> Behalf Of pilifs
> Sent: Tuesday, July 26, 2005 1:30 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Komponenty pro OPC server
>
> Zdravim ve spolek,
>
> muzete mi prosim nekdo poskytnout informace o nejakych slusnych
> komponentach pro OPC server?
> Muze byt jak FREE tak i komercni. Popripade jake mate s nimi zkusenosti.
>
> Dik L. Filip
>
>
Delphi 2005
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.7.2005 23:01:18
Puvodni zprava ze dne 31.7.2005:
> Mohu tedy vyjit z toho, ze pro Win32 mi D2005 nic noveho neprinesou?
Ano.
> (na .NET si poridim radsi MSVSC#)
Ano, to je rozumne.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Delphi 2005
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 31.7.2005 22:45:17
Joan Arc wrote (on Sunday, July 31, 2005 8:05 PM):
>> Ja osobne jsem zustal u D7, ale po prvnim SP k D2k5 jsem se dal
>> nezajimal (dalsi SP), podle ohlasu ja borlandich forech je to uz OK,
>> ale osobne jsem to neoveroval.
>>
>> Pokud mas koupene D7 a hodlas dal delat ve Win32 (a nevyuzijes vsechny
>> ty nove Enterprise ficurky), myslim, ze investice do D2k5 neni nutna.
>>
>
> Ok diky,
> Mohu tedy vyjit z toho, ze pro Win32 mi D2005 nic noveho neprinesou?
Dle meho nazoru, nic noveho neprinesou.
> (na .NET si poridim radsi MSVSC#)
>
> B.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Delphi 2005
[*] Joan Arc <johanka.arkova(zv)pnws.org> - 31.7.2005 20:05:06
>
> Ja osobne jsem zustal u D7, ale po prvnim SP k D2k5 jsem se dal nezajimal
> (dalsi SP), podle ohlasu ja borlandich forech je to uz OK, ale osobne jsem
> to neoveroval.
>
> Pokud mas koupene D7 a hodlas dal delat ve Win32 (a nevyuzijes vsechny ty
> nove Enterprise ficurky), myslim, ze investice do D2k5 neni nutna.
>
Ok diky,
Mohu tedy vyjit z toho, ze pro Win32 mi D2005 nic noveho neprinesou?
(na .NET si poridim radsi MSVSC#)
B.
Delphi 2005
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 31.7.2005 19:53:05
Joan Arc wrote (on Sunday, July 31, 2005 7:35 PM):
> Ahoj,
> uvazuji o koupi Delphi 2005, mam projekty v D7 a zajima me
> prenositelnost. Kod jde samozrejme upravit (pokud by nesel v D2005), ale
> zajima me predevsim:
>
> 1/ je nekde seznam 'veci' (komponenty, algoritmy, obraty, veci z VCL) z
> D7 nekompatibilnich s D2005?
Oficialni veci Borladnu mi fakaly na 100%.
> 2/ jede v D2005 synapse?
Jo, otestovano (Win32).
> 3/ jede v D2005 TVirtualTreeView?
Jo, otestovano (Win32).
> 4/ jede v D2005 JVCL a JCL?
Jo, otestovano (Win32). Jen nejake zadrhely s instalaci, ale na druhy pokus
to slo.
>
> Uvitam jakekoliv nazory lidi, kteri pracovali s obema nastroji... zda se
> vyplati prechod na D2005, nebo ne
Ja osobne jsem zustal u D7, ale po prvnim SP k D2k5 jsem se dal nezajimal
(dalsi SP), podle ohlasu ja borlandich forech je to uz OK, ale osobne jsem
to neoveroval.
Pokud mas koupene D7 a hodlas dal delat ve Win32 (a nevyuzijes vsechny ty
nove Enterprise ficurky), myslim, ze investice do D2k5 neni nutna.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Delphi 2005
[*] Joan Arc <johanka.arkova(zv)pnws.org> - 31.7.2005 19:35:03
Ahoj,
uvazuji o koupi Delphi 2005, mam projekty v D7 a zajima me
prenositelnost. Kod jde samozrejme upravit (pokud by nesel v D2005), ale
zajima me predevsim:
1/ je nekde seznam 'veci' (komponenty, algoritmy, obraty, veci z VCL) z
D7 nekompatibilnich s D2005?
2/ jede v D2005 synapse?
3/ jede v D2005 TVirtualTreeView?
4/ jede v D2005 JVCL a JCL?
Uvitam jakekoliv nazory lidi, kteri pracovali s obema nastroji... zda se
vyplati prechod na D2005, nebo ne
Diky
B.
Jak zobrazit seznam seznam okolnich poctacu; Jak z
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 31.7.2005 16:48:52
> Tady jsou nasel a trochu upravil aplikaci z WNetEnumResource, sice to
> pracuej bez problemu. Ale najde mi jenom "sit microsoft", "terminalove
> sluzby", "web klient network"
>>>>>>>>>>>>>>>>>>>>>>>
> if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, nil,NetHandle)
> <> NO_ERROR then Exit;
>
> BufSize := 50 * SizeOf(TNetResource);
> GetMem(NetResources, BufSize);
>>>>>>>>>>>>>>>>>>>>>>>
Predpokladam, ze sit mas a okoli pres Windows vidis a prava mas dostatecna.
Program jsem detailne neprohlizel, taky tomu moc nerozumim. V prikladu od M$
je jeste nulovani bufferu, cili ZeroMemory(NetResources, BufSize); Jestli to
je potreba, netusim.
Dale tam zkus pro zacatek dat RESOURCETYPE_ANY, at vidis, co vsechno vidis.
Vic ti neporadim, ja jsem to napsal na prvni pokus ;-) a jelo to, takze
potize neumim resit. Ani to teoreticky moc neovladam. Pokud ti nikdo jiny
neporadi, poslu ti svuj zdrojak, ale je samozrejme trochu slozitejsi, prida
ti to akorat praci :-(
Vlastik
Jak zobrazit seznam seznam okolnich poctacu; Jak z
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 31.7.2005 13:14:37
>Pokud se tyce seznamu okolnich PC, je mozne pouzit API funkce z kolekce
>WNetEnumResource. Umozni ti najit seznam zapnutych PC a jejich
sdilenych
>prostredku, ci dalsich sitovych prostredku (tiskaren ap.).
Tady jsou nasel a trochu upravil aplikaci z WNetEnumResource, sice to
pracuej bez problemu. Ale najde mi jenom "sit microsoft", "terminalove
sluzby", "web klient network"
Tyto popisky jsou tusim ulozeny v lpProvider;
type
PNetResourceArray = ^TNetResourceArray;
TNetResourceArray = array[0..MaxInt div SizeOf(TNetResource) - 1] of
TNetResource;
var
I, BufSize, NetResult: Integer;
Count, Size: LongWord;
Drive: Char;
NetHandle: THandle;
NetResources: PNetResourceArray;
RemoteNameInfo: array[0..1023] of Byte;
rr : string;
begin
if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, nil,NetHandle)
<> NO_ERROR then Exit;
BufSize := 50 * SizeOf(TNetResource);
GetMem(NetResources, BufSize);
while True do
begin
Count := $FFFFFFFF;
Size := BufSize;
NetResult := WNetEnumResource(NetHandle, Count, NetResources, Size);
if NetResult = ERROR_MORE_DATA then
begin
BufSize := Size;
ReallocMem(NetResources, BufSize);
Continue;
end;
if NetResult <> NO_ERROR then Exit;
for I := 0 to Count - 1 do
if (NetResources^[I].lpLocalName <> nil) then
begin
messagebox(handle,NetResources^[I].lpLocalName,'',0);
Exit;
end;
end;
FreeMem(NetResources, BufSize);
WNetCloseEnum(NetHandle);
end;
Takze nevim jak do toho pole "nacpat" vsechno. detekce pouziti schranky
[*] Radoslav Jalc <develop(zv)jalc.sk> - 31.7.2005 11:36:30
> konferenci nevite nekdo jakym spusobem lze detekovat pouziti schranky
> tj. Clipboard ?
Pozri si :
http://delphi.about.com/od/windowsshellapi/l/aa110700a.htm
http://delphi.about.com/od/windowsshellapi/l/aa110700b.htm
http://www.greatis.com/delphicb/tips/lib/clipboard-monitorclipbrd.html
http://www.tutorials.cn/tutorial/11106/
S pozdravom
Radoslav Jalc | iT Support
ICQ : 259679413
Skype : CALLTO://iteq.sk
[ D7Pro, FireBird 1.5.2, WinXPpro ]
Regularni vyrazy v Delphi
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 30.7.2005 20:17:24
Pavel ! wrote (on Saturday, July 30, 2005 8:01 PM):
> Dobry den pratele,
>
> Chtel jsem vase zeptat, zda-li nevite o existenci nejakleho "Regularniho
> vyrazu" nejake funkce procedury. A jak ho aplikovat v delphi. Neco
> podobneho jako je PHP
Implementace postavena na originalni implementaci z univ. of Toronto.
http://RegExpStudio.com
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Regularni vyrazy v Delphi
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 30.7.2005 20:15:24
30.7.2005 Pavel !:
> Dobry den pratele,
> Chtel jsem vase zeptat, zda-li nevite o existenci nejakleho
> "Regularniho
> vyrazu" nejake funkce procedury. A jak ho aplikovat v delphi. Neco
> podobneho jako je PHP
Stahni si unitu TRegExpr
http://regexpstudio.com/TRegExpr/TRegExpr.html
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Regularni vyrazy v Delphi
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 30.7.2005 20:01:23
Dobry den pratele,
Chtel jsem vase zeptat, zda-li nevite o existenci nejakleho "Regularniho
vyrazu" nejake funkce procedury. A jak ho aplikovat v delphi. Neco
podobneho jako je PHP detekce pouziti schranky
[*] david.kopecek(zv)hacktrack(tec)com - 30.7.2005 14:59:02
Zdravim
konferenci nevite nekdo jakym spusobem lze detekovat pouziti schranky
tj. Clipboard ?
Nasel jsem jenom ukazky toho kdyz se zmeni obsah ale ja potrebuju
odchytnou nejak udalost ze nekdo pastne data ze schranky
Thx
D.Sorting v DBGridu
[*] lelicek(zv)volny(tec)cz - 29.7.2005 20:27:42
Ahoj,
ja pouzivam pro ADO a db na serveru trideni na klientovi.
Pokud je db server nemusi zadny index existovat a presto se dataset
setridi (funguje i pro Access).
Pavel
> for i:=0 to DBGrid1.Columns.Count-1 do
> DBGrid1.Columns[i].Color:= clWhite;
>
> DBGrid1.Columns[column.ID].Color:= clInfoBk;
> Query.SQL.Text := 'Select xxx from xxx Order by '+
> ''''+DBGrid1.Columns[column.ID].FieldName+''''+' '+ de;
>
> ZTable1.Open;
>
> Delphi personal a databaze
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 29.7.2005 18:03:31
Mate nekdo zkusenost s instalaci Lazarusu? Ja mel pak problem pridat
jakekoliv komponenty, co je vsechno nutno udelat?
Diky moc
A.>
>Dobry den,
>to bohuzel fungovat nebude, jak jiz bylo napsano, Personal verze nemaji
>TDataset, o kterouzto komponentu se opira veskera prace.
>Uz jsem tu psal, ze bych se oprel o FreePascal s nadstavbou Lazarus.
>Sice je jeste ve vyvojovych verzich a tudiz obcas malinko nestabilni,
>ale neni to tak zavazne, aby se v tom nedal realizovat projekt. Docela
>dobre se mi podarilo importovat projekt z Delphi jako takovych a na
>Sourceforge.net je prehrsel komponent, od Indy (i kdyz synapse jsou
>lepsejsi), pres ekvivalenty k Sinea az treba po ty UIB2. Hodne units je
>k nalezeni v adresari $HOME/pp/units (namatkou xml, db, dbf, zlib,
>sqlite, ...). Vyhodou je multiplatformita (na urovni zdrojovych kodu
>pochopitelne), takze bez problemu delam na projektech jak v prostredi
>Windows, tak v Linuxu, ale i na mem iBooku (cize MacOS). Zdrojaky jsou
>otevrene, tak neni problem neco doprogramovat a pomoci rozvoji neceho,
>co se dnes nestydim nazvat "Open Source Delphi".
>
> S pozdravem a pranim uspechu
> MaReK Olsavsky
>
>
>
>
Velikost adresare
[*] Jaroslav Bruzek <konference-delphi(zv)dcsystems(tec)cz> - 29.7.2005 17:15:28
Omlouvam se, ale Thunderbird to trosku popletl, znak "plus" nahradil
znaky "plus minus", takze staci smazat svechny minusy a pojede to.
Jaroslav Bruzek napsal(a):
>Videl bych to jeste "cisteji":
>
>function DirSize(Dir:string):Int64;
>Var SR : TSearchRec;
> Err : Integer;
>begin
> Result := 0;
> if (Dir <> '') And Not (Dir[Length(Dir)] in ['\',':']) then
> Dir := Dir + '\';
> Err := FindFirst(Dir + '*.*',faAnyFile,SR);
> While Err = 0 Do Begin
> If SR.Attr And faDirectory = 0 Then
> Inc(Result,SR.Size)
> Else If (sr.Name<>'.') and (SR.Name<>'..') then
> inc(Result,DirSize(Dir + SR.Name));
> Err := FindNext(SR);
> End;
> FindClose(SR);
>End;
>
>
>Doooca z Olomoooca
>
Velikost adresare
[*] Jaroslav BrLZLlek <konference-delphi(zv)dcsystems(tec)cz> - 29.7.2005 16:53:25
Videl bych to jeste "cisteji":
function DirSize(Dir:string):Int64;
Var SR : TSearchRec;
Err : Integer;
begin
Result := 0;
if (Dir <> '') And Not (Dir[Length(Dir)] in ['\',':']) then
Dir := Dir +- '\';
Err := FindFirst(Dir +- '*.*',faAnyFile,SR);
While Err = 0 Do Begin
If SR.Attr And faDirectory = 0 Then
Inc(Result,SR.Size)
Else If (sr.Name<>'.') and (SR.Name<>'..') then
inc(Result,DirSize(Dir +- SR.Name));
Err := FindNext(SR);
End;
FindClose(SR);
End;
Doooca z Olomoooca
Karel Kral napsal(a):
>Porad si myslim, ze rozlisovat to, zda je neco adresar nebo soubor
>pomoci FileExists a DirectoryExists je v tomto pripade nesmysl a
>vykonova dira.
>
>Podivej, jak na to jdou v JCL, potrebne udaje pro rozliseni uz mas v
>TSearchRec:
>
> if (FindInfo.Name <> '.') and (FindInfo.Name <> '..') and
> (FindInfo.Attr and faDirectory <> 0) then ...
>
>
>
>>function DirSize(Dir:string):Int64;
>>var
>> Vysledek : Int64;
>> SearchRec : TSearchRec;
>> Separator : string;
>>begin
>>Vysledek := 0;
>>if Copy(Dir,Length(Dir),1)='\' then
>> Separator := ''
>> else Separator := '\';
>>if FindFirst(Dir+-Separator+-'*.*',faAnyFile,SearchRec) = 0 then
>> begin
>> if FileExists(Dir+-Separator+-SearchRec.Name) then
>> Vysledek := Vysledek +- SearchRec.Size
>> else
>> if DirectoryExists(Dir+-Separator+-SearchRec.Name) then
>> if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
>> DirSize(Dir+-Separator+-SearchRec.Name);
>> while FindNext(SearchRec) = 0 do
>> begin
>> if FileExists(Dir+-Separator+-SearchRec.Name) then
>> Vysledek := Vysledek +- SearchRec.Size
>> else
>> if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
>> DirSize(Dir+-Separator+-SearchRec.Name);
>> end; //while FindNext
>> end; //if FindFirst
>>FindClose(SearchRec);
>>Result := Vysledek;
>>end;
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>Velikost adresare
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 29.7.2005 16:25:24
Porad si myslim, ze rozlisovat to, zda je neco adresar nebo soubor
pomoci FileExists a DirectoryExists je v tomto pripade nesmysl a
vykonova dira.
Podivej, jak na to jdou v JCL, potrebne udaje pro rozliseni uz mas v
TSearchRec:
if (FindInfo.Name <> '.') and (FindInfo.Name <> '..') and
(FindInfo.Attr and faDirectory <> 0) then ...
> function DirSize(Dir:string):Int64;
> var
> Vysledek : Int64;
> SearchRec : TSearchRec;
> Separator : string;
> begin
> Vysledek := 0;
> if Copy(Dir,Length(Dir),1)='\' then
> Separator := ''
> else Separator := '\';
> if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
> begin
> if FileExists(Dir+Separator+SearchRec.Name) then
> Vysledek := Vysledek + SearchRec.Size
> else
> if DirectoryExists(Dir+Separator+SearchRec.Name) then
> if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
> DirSize(Dir+Separator+SearchRec.Name);
> while FindNext(SearchRec) = 0 do
> begin
> if FileExists(Dir+Separator+SearchRec.Name) then
> Vysledek := Vysledek + SearchRec.Size
> else
> if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
> DirSize(Dir+Separator+SearchRec.Name);
> end; //while FindNext
> end; //if FindFirst
> FindClose(SearchRec);
> Result := Vysledek;
> end;
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Velikost adresare
[*] Straka Josef <strakajosef(zv)seznam(tec)cz> - 29.7.2005 12:45:08
Pavel Malinsky napsal(a):
> Sorry, ale koukej se honem rychle uklidnit.
> Nikdo Te nenuti se toho tady ucastnit, ale hlavne si nize
> uvedeny nazor mel brat jako poucku, ze to jde lepe(spravneji)
> a ne se hned nastvat.
> S pozdravem a dikem
>>Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
> neda mi to a musim reagovat.
> Neber to osobne. Je velice dobre, pokud je nekdo ochoten procist
> (prostudovat)zaslany kod a upozornit na nepresnosti ci chyby.
> V opacnem pripade by se zde sirily bludy stejne casto jako dobre
> rady (nebo i casteji) a konference by ztratila svuj vyznam.
> Pavel
Tak jsem se uklidnil a poucil a posilam upravenou funkci. Snad je to jiz
o neco lepsi, i kdyz by to slo asi jeste jednoduseji. Na vysvetlenou jen
poznamenavam, ze to, co jsem napsal, nebylo sproste slovo, ale tzv.
srapnel, jsa poucen od vynalezce COBOLu Jaroslava Cimrmana. Za srapnel
se omlouvam.
Straka Josef
function DirSize(Dir:string):Int64;
var
Vysledek : Int64;
SearchRec : TSearchRec;
Separator : string;
begin
Vysledek := 0;
if Copy(Dir,Length(Dir),1)='\' then
Separator := ''
else Separator := '\';
if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
begin
if FileExists(Dir+Separator+SearchRec.Name) then
Vysledek := Vysledek + SearchRec.Size
else
if DirectoryExists(Dir+Separator+SearchRec.Name) then
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
DirSize(Dir+Separator+SearchRec.Name);
while FindNext(SearchRec) = 0 do
begin
if FileExists(Dir+Separator+SearchRec.Name) then
Vysledek := Vysledek + SearchRec.Size
else
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
DirSize(Dir+Separator+SearchRec.Name);
end; //while FindNext
end; //if FindFirst
FindClose(SearchRec);
Result := Vysledek;
end;
COM port - pristup - opravneni - opet
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 29.7.2005 07:50:46
Ing. Jiri Sokol napsal(a):
> Ahoj.
> No ta aplikace je instalovana na tom FAT32, kde je i cely system -> takze
> problemy s pristupem k souboru by byt nemely. Pres ten COM provadim
> komunikaci a tu zapisuju do DB - Firebird 1.5.2, ktery je instalovan taky na
> tomto stroji. Do registru aplikace nic nezapisuje.
> Je fakt, ze by prece nekdo nezakazal pristup k mysi, ktera muze byt na COM -
> to vyzkousim, ale jinak ja fakticky nevim. Mam hlidany pokus o pristup na
> COM (napr. kdyz uzivatel vybere spatny popr. nekdo vytrhne draty) a v tomto
> miste mi to aplikace ohlasi, ze je problem...
> Za ten napad s tim terminalem + test te mysi diky, urcite to vyzkousim.
> Napada nekoho jeste neco?
Ja bych na to nasadil PortMon a FileMon, oboji mi vetsinou zobrazi kde
presne je problem.
http://www.sysinternals.com/utilities/portmon.html
a
http://www.sysinternals.com/Utilities/Filemon.html
Portmon pouzivam na monitorovani seriove komunikace
> Predem diky.
> Jirka
>
> From: "Martin Nedopil" <martin.nedopil(zv)hon(tec)cz>
> Sent: Thursday, July 28, 2005 10:41 AM
>
>
>>jsi si opravdu jisty, ze je omezena komunikace na seriaku? Nemuze to byt
>>treba tim, ze aplikace zapisuje nekam, kam tento uzivatel nema umoznen
>>zapis nebo se pripojuje do databaze, kde je Windows autentikace a on
>>ta opravneni nema?
>
>
> SOAP a klientske certifikaty
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 29.7.2005 06:06:39
Omlouvam se jde o Win32 (bohuzel).
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Slovanska alej 30
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Vones
Sent: Thursday, July 28, 2005 4:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: SOAP a klientske certifikaty
From: "Jan Netrval" <jnetrval(zv)pilscom(tec)cz>
> Lze prosim v Delphi 2005 Professional, napsat aplikaci, ktera bude ziskavat
> data pres SOAP ze sluzby, ktera vyzaduje overeni pres klientsky certifikat.
Neuplny dotaz. Jaka platforma, Win32 nebo .NET ?
Petr Vones
TStringgrid
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 28.7.2005 22:50:09
>Uz jsem to mazani sloupcu a radku vyresil. Udelal jsem to presouvanim hodnot v bunkach a pak snizil pocet sloupcu, nebo radku.
>Jinak ted resim, jak to ulozit. Udelam na hlavni formular skryte memo, nebo rich edit a pak to budu pomoci nejakeho odelovace kopirovat radek po radku.
>
skryte memo taky nemusis, skus
proc uloz
var a,b,c,d:integer;
str:tstrings;
fl:tfilestream;
begin
str:tstringlist.create;
a:=grid.rowcount;
b:=grid.colcount;
for c:=0 to a-1 do begin
for d:=0 to b-1 do begin
str.add(grid.cells[d,c]);
end;
end;
fl:=tfilestream.create('test.tst',fmcreate);
fl.write(a,4);
fl.write(b,4);
str.SaveToStream(fl);
fl.free
str.free;
end;
a nacteni obracene
proc load;
var a,b,c,d,x:integer;
str:tstrings;
fl:tfilestream;
begin
str:tstringlist.create;
fl:=tfilestream.create('test.tst',fmopenread);
fl.read(a,4);
fl.read(b,4);
str.loadfromStream(fl);
fl.free
grid.rowcount:=a;
grid.colcount:=b;
x:=0;
for c:=0 to a-1 do begin
for d:=0 to b-1 do begin
grid.cells[d,c]:=str.item[x];
inc(x);
end;
end;
str.free;
end;
Jak smazat sam sebe (EXE)
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 28.7.2005 19:47:56
vidis - ja na to prisel vlastni hlavou ;-) prisel sem na to kdysi davno
kdyz sem delal odinstalacni program ... taky to bylo nejak roku 1999 :-)> Tak to jsi lepsi nez nejlepsi.... presne tento algoritmus byl
> popsan v Dr. Dobbs` Journalu nekdy v roce 1999
> (jestli budes chtit vedet presne ktere cislo, mozna si dam tu praci).
> Fungoval tenkrat az od verze Windows95 (v 3.11 z pochopitelnych
> duvodu ne). Popup nad polozkou rozbaleneho comboboxu
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 28.7.2005 19:37:55
Ahoj,
muzete nekdo poradit jak udelat popup menu pres prave tlacitka na polozce
rozbaleneho comboboxu? Resp. Jak zjistim, na kterem itemu bylo kliknuto?
Diky
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Uvolneni on-line vznikleho objektu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.7.2005 18:31:51
28.7.2005 Hovat:
> Neumim uvolnit objek, vytvoreny za behu programu. Objekt ma tag a
> jmeno.
> Poradte mne, prosim, jak na to a budte prosim pokud mozno lidovi - beru
> Delphi po kapkach.
> Diky,
Pokud to neni komponenta, budes si muset nekde zapamatovat odkaz na
ten objekt, abys jej mohl uvolnit. K tomu se hodi napr. TList nebo
TObjectList.
Pokud je to vizualni komponenta, tak pomoci ComponentCount a
Components[i] ji muzes najit, identifikovat podle TAGu a uvolnit
for i := 0 to ComponentsCount - 1 do
if (Components[i] is TEdit) and (TEdit(Components[i]).Tag = 3) then
Components[i].Free;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Uvolneni on-line vznikleho objektu
[*] Hovat <hovat(zv)pcservis(tec)cz> - 28.7.2005 18:21:50
Neumim uvolnit objek, vytvoreny za behu programu. Objekt ma tag a
jmeno.
Poradte mne, prosim, jak na to a budte prosim pokud mozno lidovi - beru
Delphi po kapkach.
Diky,
Pavel HOVAT
PC servis
Hudcova 76
612 00 BRNO
ICO : 105 43384
DIC : CZ450706457
tel : 541 213 196
fax : 541 244 056
whois-ripe && synapse
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.7.2005 17:19:46
david.kopecek(zv)hacktrack.com wrote:
> Zdravim konferenci
>
> mam takovy mensi OT dotazek..
>
> Napsal jsem si easy aplikaci v synapse ktera se dotazuje na data
> umistena ve whois serverech.
>
> POmoci whois dotazu na whios.ripe.net kde zadam jmeno osoby "Venca
> Novak" ziskam nekolik person zaznamu ve formatu VNxxx-RIPE
>
> a otazka je jak k danym person zaznamum dohledam IP rozsahy ve
> kterych
> figuruji ?..
> whois -h whois.ripe.net -- help
Ti vypise napovedu
napriklad
whois -h whois.ripe.net -- -i admin-c __HANDLE__
vypise vsechny objekty z databaze, kde jako admin-c je uveden
__HANDLE__. Je-li vypis omezen delkou netusim.
pomoci prepinace -K je mozne vypsat jen titulky objektu
D. Toman
SOAP a klientske certifikaty
[*] Petr Vones <konference(zv)petrvones(tec)net> - 28.7.2005 16:07:40
From: "Jan Netrval" <jnetrval(zv)pilscom(tec)cz>
> Lze prosim v Delphi 2005 Professional, napsat aplikaci, ktera bude ziskavat
> data pres SOAP ze sluzby, ktera vyzaduje overeni pres klientsky certifikat.
Neuplny dotaz. Jaka platforma, Win32 nebo .NET ?
Petr Vones
SOAP a klientske certifikaty
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 28.7.2005 15:55:34
Zkousim to jeste jednou. Opravdu nikdo nevite jak resi nasledujic problem? Uz nevim co s tim.
Lze prosim v Delphi 2005 Professional, napsat aplikaci, ktera bude ziskavat data pres SOAP ze sluzby, ktera vyzaduje overeni pres klientsky certifikat. Strasne by mi to pomohlo. Bez certifikatu to neni problem.
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Slovanska alej 30
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
TStringgrid
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.7.2005 15:25:27
Uz jsem to mazani sloupcu a radku vyresil. Udelal jsem to presouvanim hodnot v bunkach a pak snizil pocet sloupcu, nebo radku.
Jinak ted resim, jak to ulozit. Udelam na hlavni formular skryte memo, nebo rich edit a pak to budu pomoci nejakeho odelovace kopirovat radek po radku.
Jinak diky za rady.
Petr
< ------------ Puvodni zprava ------------
< Od: Petr Fejfar <development(zv)callnet(tec)cz>
< Predmet: Re: TStringgrid
< Datum: 26.7.2005 10:20:25
< ----------------------------------------
< John Bricklayer wrote:
<
< > Jen me tak napadlo co skusit tohle ?
< > Nemusi se delat potomek, nebo projizdet a presouvat, akorat z toho
< > udelat proc
< >
< > tab.Rows[index].DelimitedText:=tab.Rows[tab.rowcount-1].DelimitedText;
< > tab.RowCount:=tab.RowCount-1;
<
< Tohle prece nemuze fungovat - to bys musel udelat cyklus a "prisunout"
< vsechny radky za Indexem tj. Rows[Index+1]..Rows[RowCount-1].
<
< pf
<
<
<
<
<
<
Vyhledavani v adresarich
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 28.7.2005 14:35:23
> Myslim si, ze to ani nikdy jinak nefungovalo. Jedine, co funguje je
> dok*.doc nebo *.doc ale ne *dok*.doc
Dokonce jedna perlicka: Znak '?' se do DOS 6.2 interpretoval 'nejaky
nebo zadny znak' a od W95 je to jen 'prave jeden libovolny znak.
Zkuste si udelat SKLAD.TXT, SKLAD1.TXT a napiste DIR SKLAD?.TXT - DOS
6.2 vypise oba, 7.0 a vyssi jen ten druhy.Vyhledavani v adresarich
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 28.7.2005 12:39:15
Myslim si, ze to ani nikdy jinak nefungovalo. Jedine, co funguje je
dok*.doc nebo *.doc ale ne *dok*.doc - prost+ARs- co je za hvezdickou se
ignoruje.
Vlastik napsal(a):
>>Pokud ti program dava vzdy stejny vysledek, vloz breakpoint do cyklu
>>vyhledavani a urcite na to prijdes.
>
>
> Rezignoval jsem. Do cyklu jsem vlozil test pomoci funkce MatchesMask a mam
> klid.
>
> Vypada to tak, ze u "slozitejsich" vyhledavacich masek FindFirst/Next
> nepracuje spravne, pokud je jmeno souboru (bez pripony) delsi nez 8 znaku.
> Me by to ani nevadilo, pri pouziti predpokladam *.rar, v nejslozitejsim
> pripade Dok*.rar, takze slo jen o studijni ucely, ale vypada to tak, ze
> chyba neni u mne.
>
> Vlastik
>
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
COM port - pristup - opravneni - opet
[*] Ing. Jiri Sokol <js-delphi(zv)seznam(tec)cz> - 28.7.2005 11:49:11
Ahoj.
No ta aplikace je instalovana na tom FAT32, kde je i cely system -> takze
problemy s pristupem k souboru by byt nemely. Pres ten COM provadim
komunikaci a tu zapisuju do DB - Firebird 1.5.2, ktery je instalovan taky na
tomto stroji. Do registru aplikace nic nezapisuje.
Je fakt, ze by prece nekdo nezakazal pristup k mysi, ktera muze byt na COM -
to vyzkousim, ale jinak ja fakticky nevim. Mam hlidany pokus o pristup na
COM (napr. kdyz uzivatel vybere spatny popr. nekdo vytrhne draty) a v tomto
miste mi to aplikace ohlasi, ze je problem...
Za ten napad s tim terminalem + test te mysi diky, urcite to vyzkousim.
Napada nekoho jeste neco?
Predem diky.
Jirka
From: "Martin Nedopil" <martin.nedopil(zv)hon(tec)cz>
Sent: Thursday, July 28, 2005 10:41 AM
> jsi si opravdu jisty, ze je omezena komunikace na seriaku? Nemuze to byt
> treba tim, ze aplikace zapisuje nekam, kam tento uzivatel nema umoznen
> zapis nebo se pripojuje do databaze, kde je Windows autentikace a on
> ta opravneni nema?
> Jak zjistit, ze uzivatel nema pravo na seriak? Vem terminal a zkus
> zakomunikovat
> se svym zarizenim, nebo s mysi (nejakou starou seriakovou ne plug and
> play)
> a uvidis, co se stane.
>
> Martin.
Vyhledavani v adresarich
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 28.7.2005 11:13:08
Sleduji tady nejake trapeni s vyhledavanim souboru...
Napsal jsem na to kdysi komponentu... Treba pomuze...
Staci naplnit jeji property a zavolat GetFiles...
Vystupem je pak Stringlist hodnot...
Nebo si jen precist jak to funguje...
unit Common_filesearch;
{$WARN UNIT_PLATFORM OFF}
{ Vlastnosti
FileAttr : Atributy pro pouziti ve FindFirst
FileMask : Maska souboru - wildcards jsou pouzitelne
IncludeFields : Prepinace pro volbu udaju o souborech,
ktere budou vraceny (Datum, Cas, Velikost, Atributy)
InSubFolders : "true" jestlize ma vyhledavani probihat rekursivne
v podadresarich
Name : Nazev instance objektu
Path : cesta k adresari ('.fSeparator..');
Sorted : "true" znamena setridene udaje na vystupu
Tag : Pro pouziti v aplikaci
Metoda
SearchForFiles : vraci TStringList - s udaji o relevantnich souborech
- hodnoty jsou oddeleny vybranym znakem
Nazev (povinna polozka)
Datum (volitelna)
Cas (volitelna)
Velikost (volitelna)
Atributy (volitelna)
Vyhledavani v adresarich
[*] Vlastik <bartos(zv)spsmvbr(tec)cz> - 28.7.2005 11:09:08
> Pokud ti program dava vzdy stejny vysledek, vloz breakpoint do cyklu
> vyhledavani a urcite na to prijdes.
Rezignoval jsem. Do cyklu jsem vlozil test pomoci funkce MatchesMask a mam
klid.
Vypada to tak, ze u "slozitejsich" vyhledavacich masek FindFirst/Next
nepracuje spravne, pokud je jmeno souboru (bez pripony) delsi nez 8 znaku.
Me by to ani nevadilo, pri pouziti predpokladam *.rar, v nejslozitejsim
pripade Dok*.rar, takze slo jen o studijni ucely, ale vypada to tak, ze
chyba neni u mne.
Vlastik
COM port - pristup - opravneni - opet
[*] Kratochvil Milan <mkratochvil(zv)farmtec(tec)cz> - 28.7.2005 10:59:07
A nemaji tam UPS od APC? Jejich sw mi vzdy sebere seriovy port i presto ze s UPS komunikuje pres USB.
Ahoj
Milan
COM port - pristup - opravneni - opet
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 28.7.2005 10:57:06
Pokud ta aplikace vyuziva "CreateFile" k pristupu na port, tak bych zkusil hledat tam. V helpu Win32 developer's references je popis. Souvisi to patrne lpSecurityAttributes a dwFlagsAndAttributes, ale s uvedeneho popisu ja nejsem dost moudry na to abych rekl, jak tyto parametry souvisi s pristupem uzivatele s omezenymi pravy. Snad nekdo vi vic. Souvislosti by me take zajimaly - ma nekdo odkaz na vysvetlujici text?
Ahoj vsem!
Vim, ze uz jsem se ptal, nicmene zadna odpoved a ja s tim od ty doby nehnul.
Urcite nekdo z vas prece delal aplikaci komunikujici pre COMport, ne? No a
jak vam to chodi na WinXPProfSP2?
Lze nejak zabranit praci s timto portem uzivatelum s omeznym opravnenim? Mam
vyzkouseno, ze kdyz jsme nainstalovali aplikaci pod adminem, vse fungovalo.
Odhlasili jsme se, prihlasili jako uzivatel s omezenymi pravy a - ups -
problem s pristupem na COM port.
Na PC, kde se to instalovalo, je filesystem FAT32.
Prosim, piste i jen myslenky - nemusi to byt hotovy reseni - mnohdy to
pomuze - ostatni neco pridaji a nakonec z toho bude nejaky vysledek.
Predem vsem diky - fakt si s tim nevim rady.
Jestli jsem zapomnel na nejake podstatne inormace, tak je rad doplnim...
Jirka
---------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 724 144 907
D6Prof+SP3; WinXP+SP2; Firebird 1.5.2
programator amater
COM port - pristup - opravneni - opet
[*] Martin Nedopil <martin.nedopil(zv)hon(tec)cz> - 28.7.2005 10:41:05
Ahoj,
jsi si opravdu jisty, ze je omezena komunikace na seriaku? Nemuze to byt
treba tim, ze aplikace zapisuje nekam, kam tento uzivatel nema umoznen
zapis nebo se pripojuje do databaze, kde je Windows autentikace a on
ta opravneni nema?
Jak zjistit, ze uzivatel nema pravo na seriak? Vem terminal a zkus
zakomunikovat
se svym zarizenim, nebo s mysi (nejakou starou seriakovou ne plug and play)
a uvidis, co se stane.
Martin.
----- Original Message -----
> Ahoj vsem!
> Vim, ze uz jsem se ptal, nicmene zadna odpoved a ja s tim od ty doby
> nehnul.
> Urcite nekdo z vas prece delal aplikaci komunikujici pre COMport, ne? No a
> jak vam to chodi na WinXPProfSP2?
> Lze nejak zabranit praci s timto portem uzivatelum s omeznym opravnenim?
> Mam
> vyzkouseno, ze kdyz jsme nainstalovali aplikaci pod adminem, vse
> fungovalo.
> Odhlasili jsme se, prihlasili jako uzivatel s omezenymi pravy a - ups -
> problem s pristupem na COM port.
> Na PC, kde se to instalovalo, je filesystem FAT32.
>
> Prosim, piste i jen myslenky - nemusi to byt hotovy reseni - mnohdy to
> pomuze - ostatni neco pridaji a nakonec z toho bude nejaky vysledek.
> Predem vsem diky - fakt si s tim nevim rady.
> Jestli jsem zapomnel na nejake podstatne inormace, tak je rad doplnim...
> Jirka
Vyhledavani v adresarich
[*] Vlastik <bartos(zv)spsmvbr(tec)cz> - 28.7.2005 10:29:04
> Zadal jsem jako masku *5*.jpg
>
> Pokud ti program dava vzdy stejny vysledek, vloz breakpoint do cyklu
> vyhledavani a urcite na to prijdes.
> Ja si nevzpominam, ye bych mel s timto nejaky problem.
Help uvadi, ze vyhledavaci cesta muze obsahovat i znaky * a ?, ale neuvadi
zadna specialni pravidla k jejich pouziti. Mne to na masku *5?.jpg klidne
doda i *5.jpg .
Vysledek je 100x stejny, prave delam vyzkumy, co se tam deje. Zatim jsem nic
nenasel.
Vlastik
COM port - pristup - opravneni - opet
[*] Ing. Jiri Sokol <js-delphi(zv)seznam(tec)cz> - 28.7.2005 09:47:01
Ahoj vsem!
Vim, ze uz jsem se ptal, nicmene zadna odpoved a ja s tim od ty doby nehnul.
Urcite nekdo z vas prece delal aplikaci komunikujici pre COMport, ne? No a
jak vam to chodi na WinXPProfSP2?
Lze nejak zabranit praci s timto portem uzivatelum s omeznym opravnenim? Mam
vyzkouseno, ze kdyz jsme nainstalovali aplikaci pod adminem, vse fungovalo.
Odhlasili jsme se, prihlasili jako uzivatel s omezenymi pravy a - ups -
problem s pristupem na COM port.
Na PC, kde se to instalovalo, je filesystem FAT32.
Prosim, piste i jen myslenky - nemusi to byt hotovy reseni - mnohdy to
pomuze - ostatni neco pridaji a nakonec z toho bude nejaky vysledek.
Predem vsem diky - fakt si s tim nevim rady.
Jestli jsem zapomnel na nejake podstatne inormace, tak je rad doplnim...
Jirka
---------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 724 144 907
D6Prof+SP3; WinXP+SP2; Firebird 1.5.2
programator amater
OT: whois-ripe && synapse
[*] david.kopecek(zv)hacktrack(tec)com - 28.7.2005 09:45:01
Zdravim konferenci
mam takovy mensi OT dotazek..
Napsal jsem si easy aplikaci v synapse ktera se dotazuje na data
umistena ve whois serverech.
POmoci whois dotazu na whios.ripe.net kde zadam jmeno osoby "Venca
Novak" ziskam nekolik person zaznamu ve formatu VNxxx-RIPE
a otazka je jak k danym person zaznamum dohledam IP rozsahy ve kterych
figuruji ?..
Thx
D.Delphi personal a databaze
[*] MaReK OlL?avskA? <orsm(zv)centrum(tec)cz> - 28.7.2005 08:38:55
radek3311(zv)volny(tec)cz napsal(a):
> Ahoj,
>
> podivej se sem http://www.gm-software.de - neni to ale zadarmo a
> sem http://www.progdigy.com/index.php na UIB2 - snad to podporuje i
> Delphi6 PE
>
> Radek
Dobry den,
to bohuzel fungovat nebude, jak jiz bylo napsano, Personal verze nemaji
TDataset, o kterouzto komponentu se opira veskera prace.
Uz jsem tu psal, ze bych se oprel o FreePascal s nadstavbou Lazarus.
Sice je jeste ve vyvojovych verzich a tudiz obcas malinko nestabilni,
ale neni to tak zavazne, aby se v tom nedal realizovat projekt. Docela
dobre se mi podarilo importovat projekt z Delphi jako takovych a na
Sourceforge.net je prehrsel komponent, od Indy (i kdyz synapse jsou
lepsejsi), pres ekvivalenty k Sinea az treba po ty UIB2. Hodne units je
k nalezeni v adresari $HOME/pp/units (namatkou xml, db, dbf, zlib,
sqlite, ...). Vyhodou je multiplatformita (na urovni zdrojovych kodu
pochopitelne), takze bez problemu delam na projektech jak v prostredi
Windows, tak v Linuxu, ale i na mem iBooku (cize MacOS). Zdrojaky jsou
otevrene, tak neni problem neco doprogramovat a pomoci rozvoji neceho,
co se dnes nestydim nazvat "Open Source Delphi".
S pozdravem a pranim uspechu
MaReK Olsavsky
- --
MaReK "Penguin" Ol+AWE-avsk+AP0-
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +-420-603-519-650; +-420-775-154-689 (775-1-LINUX)
Na str+AOE-nce bylo naps+AOE-no: "Optimalizov+AOE-no pro Explorer 5, nebo lep+AWEA7Q-".
Tak jsem p+AVk-e+AWE-el na Mozilla Firefox --> http://firefox(tec)czilla(tec)cz/
Posilani SMS
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 28.7.2005 08:20:52
Myslim, ze nejschudnejsi cesta je pres mobil pripojeny k pocitaci
a odesilat standardni SMS.
> Ahoj,
>
> kolega potrebuje ze sve aplikace odesilat SMS (pro
> vsechny
> operatory).
--
Milos J. Hrach, D6 profi, WinXP Home
Jak smazat sam sebe (EXE)
[*] Martin Nedopil <martin.nedopil(zv)hon(tec)cz> - 28.7.2005 08:02:49
Tak to jsi lepsi nez nejlepsi.... presne tento algoritmus byl
popsan v Dr. Dobbs` Journalu nekdy v roce 1999
(jestli budes chtit vedet presne ktere cislo, mozna si dam tu praci).
Fungoval tenkrat az od verze Windows95 (v 3.11 z pochopitelnych
duvodu ne).
Bylo to tam tusim oznaceno jako Kevorkiansky algoritmus
(http://www.google.com/search?hl=cs&q=Doctor+Kevorkian+suicide&lr=)
Martin
----- Original Message -----
> tahle zajimava vec se da napriklad zajimave (jednoduse) resit pomoci
> pomocneho davkoveho souboru ...
> budeme mit program.exe a smaz.bat ... program spusti soubor smaz.bat
> a
> sam se hned pote ukonci ... v souboru smaz.bat musi byt ovsem smycka z
> duvodu latence ... pro pochopeni je dulezizte si uvedomit ze davkovy
> soubor
> "muze sam sebe smazat"
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> WinExec('smaz.bat', 0);
> Application.Terminate;
> end;
>
> [obsah souboru smaz.bat]
> --------------------------
> (zv)echo off
> :smaz
> del program.exe
> if exist program.exe goto smaz
> del smaz.bat
>
>
> Jak rikam - zajimave reseni - vymyslel jsem ho jiz davno - nevim zda to
> nekoho z vas taky napadlo :-)
>
> PS: ten davkovej soubor si samozrejme muzes vytvorit programove to je
> doufam
> jasne :-)
>
Vyhledavani v adresarich
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 28.7.2005 08:00:49
Ahoj
> Zadal jsem jako masku *5*.jpg
>...objevil soubor "gberet 11.jpg".
>...Nebyl jediny, ... nejake pravidlo ... kdyz jsou ve vice adresarich.
> GBERET~2.JPG (ale v ostatnich kratka jmena petku obsahuji ! ).
>
Pokud ti program dava vzdy stejny vysledek, vloz breakpoint do cyklu
vyhledavani a urcite na to prijdes.
Ja si nevzpominam, ye bych mel s timto nejaky problem.
Pavel
Velikost adresare
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 28.7.2005 07:36:41
Ahoj,
neda mi to a musim reagovat.> do konference napsat, ze se vam na to vyseru.
> Straka Josef
>
>> No fuj :-(
>> - funkce nevraci vysledek
>> - misto toho predava sumu ve staticke globalni promenne
>> - jaky smysl ma volat po FindFirst/Next jeste FileExists(),
>> kdyz to je implementovano jako volani FileAge(), ktere
>> znovu vola FindFirst-FindClose - proc tu velikost neberes
>> rovnou z TSearchRec.Size?
Neber to osobne. Je velice dobre, pokud je nekdo ochoten procist
(prostudovat)
zaslany kod a upozornit na nepresnosti ci chyby. V opacnem pripade by se zde
sirily bludy stejne casto jako dobre rady (nebo i casteji) a konference by
ztratila
svuj vyznam.
Pavel
Velikost adresare
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2005 07:00:39
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Straka Josef
Ahoj,
> Dobry den,
> ja jsem si to cele pozorne precetl a vzal jsem si z toho to
> ponauceni,
> ze jestli se jeste nekdy naskytne prilezitost a ja budu mit
> nutkani neco
> do konference napsat, ze se vam na to vyseru.
> Straka Josef
Sorry, ale koukej se honem rychle uklidnit.
Nikdo Te nenuti se toho tady ucastnit, ale hlavne si nize
uvedeny nazor mel brat jako poucku, ze to jde lepe(spravneji)
a ne se hned nastvat.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
> Petr Fejfar napsal(a):
> > Straka Josef wrote:
> >> treba takhle, zdroj tako konference pred par lety:
> >>function DirSize(Dir:string):integer;
> >
> > No fuj :-(
> > - funkce nevraci vysledek
> > - misto toho predava sumu ve staticke globalni promenne
> > - jaky smysl ma volat po FindFirst/Next jeste FileExists(),
> > kdyz to je implementovano jako volani FileAge(), ktere
> > znovu vola FindFirst-FindClose - proc tu velikost neberes
> > rovnou z TSearchRec.Size?
> > pf
Vyhledavani v adresarich
[*] Vlastik <bartos(zv)spsmvbr(tec)cz> - 28.7.2005 06:32:31
Ahoj vsichni,
potrebuji znat vas nazor nebo zkusenosti z celkem trivialni oblasti FindFirst, FindNext ...
Udelal jsem si v podstate jednoduchy kopirovaci program, ktery prohledava adresare a podle zadane masky z nich kopiruje vybrane soubory jinam. Hotovo to bylo celkem rychle, ale pri testech jsem narazil na podivnou vec. Zadal jsem jako masku *5*.jpg cili vsechny obrazky majici ve jmene alespon jednu petku.
Jake bylo moje prekvapeni, kdyz jsem v jednom z prekopirovanych adresaru objevil soubor "gberet 11.jpg". Nebyl jediny, podobnych chyb tam bylo vice, ale vypada to na nejake pravidlo, tzn. urcite soubory se kopiruji, kdyz jsou ve vice adresarich. Ale velka vetsina adresaru obsahuje spravna data a nic nechybi - jen obcas neco prebyva.
Vyloucil jsem nasledujici silene napady, ze by filtr ve FindFirst/Next fungoval v internetovem kodovani, cili ze by si mezeru prevedl na %20, proto jsem radeji pouzil masku s petkou. Ale chybuje to dal. Problem neni ani v DOSovskych jmenech, uvedeny soubor ma kratke jmeno GBERET~2.JPG (ale v ostatnich kratka jmena petku obsahuji ! ).
Jde o Delphi 6 a W2k, jestli to ma na neco vliv.
Dotaz:
Cim to vysvetlujete? Mate nekdo takove zkusenosti? Mam nejak opravovat program? Jak?
Poradte, prosim (snad si to nebudu muset testovat sam namisto fce Delphi).
Diky za odpovedi.
Vlastik
Sorting v DBGridu
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 28.7.2005 06:06:27
Ahoj,
Ja pouzivam toto,
for i:=0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns[i].Color:= clWhite;
DBGrid1.Columns[column.ID].Color:= clInfoBk;
Query.SQL.Text := 'Select xxx from xxx Order by '+
''''+DBGrid1.Columns[column.ID].FieldName+''''+' '+ de;
ZTable1.Open;
Marek
Zdravim vsechny,
mam takovy maly dotaz.
Potreboval bych nejak udelat, aby kdyz uzivatel me aplikace klikne na
nekterou hlavicku sloupce v DBGridu, aby se zaznamy abecedne seradily.
Jde to? Popr. jak?
Dekuji
S pozdravem
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
D6Ent., WinXP Pro SP2, SQL2000
Jak smazat sam sebe (EXE)
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 27.7.2005 23:54:01
tahle zajimava vec se da napriklad zajimave (jednoduse) resit pomoci
pomocneho davkoveho souboru ...
budeme mit program.exe a smaz.bat ... program spusti soubor smaz.bat a
sam se hned pote ukonci ... v souboru smaz.bat musi byt ovsem smycka z
duvodu latence ... pro pochopeni je dulezizte si uvedomit ze davkovy soubor
"muze sam sebe smazat"
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('smaz.bat', 0);
Application.Terminate;
end;[obsah souboru smaz.bat]
--------------------------
(zv)echo off
:smaz
del program.exe
if exist program.exe goto smaz
del smaz.bat
Jak rikam - zajimave reseni - vymyslel jsem ho jiz davno - nevim zda to
nekoho z vas taky napadlo :-)
PS: ten davkovej soubor si samozrejme muzes vytvorit programove to je doufam
jasne :-)> Mozna necim podobnym se bylo zabyvano na serveru zive(tec)cz. Ale situace se
> me zdala docela slozita. Ale cetl jsem nekde, ze staci nejaky zapis do
> registru (asi nemakem do RUNOnce. A on se dany sobrou smaze pri dalsim
> startu. Ta funkce co vyuzivaji instalacni programy (nebo by meli
> vyuzivat)Velikost adresare
[*] Straka Josef <strakajosef(zv)seznam(tec)cz> - 27.7.2005 21:31:51
Dobry den,
ja jsem si to cele pozorne precetl a vzal jsem si z toho to ponauceni,
ze jestli se jeste nekdy naskytne prilezitost a ja budu mit nutkani neco
do konference napsat, ze se vam na to vyseru.
Straka Josef
Petr Fejfar napsal(a):
> Straka Josef wrote:
>> treba takhle, zdroj tako konference pred par lety:
>>function DirSize(Dir:string):integer;
>
> No fuj :-(
> - funkce nevraci vysledek
> - misto toho predava sumu ve staticke globalni promenne
> - jaky smysl ma volat po FindFirst/Next jeste FileExists(),
> kdyz to je implementovano jako volani FileAge(), ktere
> znovu vola FindFirst-FindClose - proc tu velikost neberes
> rovnou z TSearchRec.Size?
> pf
Posilani SMS
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 27.7.2005 21:25:50
Pres SMS.CZ je to bez problemu a mas to za 1Kc komukoliv. Jen se musis zaregistrovat a kredit si posilas treba z uctu.
Tady mas jejich navod a vim ze 100% funguje, pouzivam to ve vlastni app a mas to i s planovanim a dorucenkou na mail.>>>>>>>>>>>>>>>>>>>
Vlastnite svou aplikaci a chcete z ni zasilat SMS pres Vas ucet na SMS(tec)cz? Neni nic jednodussiho.
Schema zasilani:
Nacteni klice pro overeni
http://www.sms(tec)cz/brana/?jmeno=vasejmeno
Zaslani zpravy
http://www.sms(tec)cz/brana/?jmeno=vasejmeno&auth=X&mobil=Y&zprava=Z&cas=T&dorucenka=E
X - overeni - vypocte se jako:
MD5("externibrana" + KLiC + VASE HESLO + "overeniMD5")
Y - prijemci zprav oddeleni strednikem - napr. 00420608123456;00420603123456
Z - text zpravy
T - cas odeslani zpravy (format YYYY-MM-DD hh:mm:ss) nepovinny parametr
E - emailova adresa pro zaslani dorucenky nepovinny parametr
Navratova hodnota:
1. radek - Chybovy stav
2. radek - Zbyvajici kredit (pouze po odeslani)
3. radek - Prijemci uspesne zarazeni do fronty zprav oddeleni strednikem (pouze po odeslani)
Chybove stavy:
OK - zprava zarazena do fronty pro zasilani
ERR - nespecifikovana chyba pri odesilani
ERR-PASS - chyba pri overeni
ERR-CREDIT - nedostatecny kredit pro odesilani
ERR-DEST - chybny prijemce
JB
TStringgrid
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 27.7.2005 21:19:49
>Tohle prece nemuze fungovat - to bys musel udelat cyklus a "prisunout"
>vsechny radky za Indexem tj. Rows[Index+1]..Rows[RowCount-1].
>
>
Pokud potrebujes zachovat serazeni tak by to nefungovalo. To uz by mozna bylo lepsi ji nacitat z databaze. Muzes deletit a insertit pres SQL a seradis si to taky jak chces, no a ulozenou ji taky mas. Pokud nechces databaze tak bys musel udelat presun radku po jednom, insert obracene.
Ulozit stringgrid muzes jednoduse.
Na zacatek streamu ulozis rozmery pole bunek a potom ulozis jednotlive bunky. Loadnes obracene.
Jak smazat sam sebe (EXE)
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 27.7.2005 20:01:44
Ahoj, zdarvim
Mozna necim podobnym se bylo zabyvano na serveru zive(tec)cz. Ale situace se
me zdala docela slozita. Ale cetl jsem nekde, ze staci nejaky zapis do
registru (asi nemakem do RUNOnce. A on se dany sobrou smaze pri dalsim
startu. Ta funkce co vyuzivaji instalacni programy (nebo by meli
vyuzivat)
Nevite nekdo jak na to ? Dekuji
Samek Pavel Jak zobrazit seznam seznam okolnich poctacu; Jak z
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.7.2005 19:53:43
> Pokud se tyce IP adres, to je zase z jineho soudku, tady je nejjednodussi
> pouzit volani programu PING, ovsem pokud znas rozsah adres. Da se take
> naprogramovat vlastni ping pomoci funkci ICMP, ale to uz je docela drina.
A protoze je to drina, netrap se s tim. V Synapsi mas hotovou jednoduchou
funkci PingHost.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Jak zobrazit seznam seznam okolnich poctacu; Jak z
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 27.7.2005 19:49:43
> 1) Potrebuji ziskat seznam vsech uzivatelu na LAN (resp. ty co jsou
> videt v okolnich pocitaich)
> vc jejicj IP a jmena pocitace.
a) Uvedene informace urcite lze zjistit, pokud je clovek administrator. Pro
bezne ucely to muze byt leccos z toho zakazano spravcem site.
b) Seznam okolnich PC je neco jineho, nez seznam uzivatelu. Upresni, co
presne potrebujes.
c) Pro detailni rozbor teto problematiky by bylo potreba prilis mnoho mista
a casu. Strucne receno, musis si spoustu veci vyhledat, kolegove ti treba
poradi konkretni stranky.
Pokud se tyce seznamu okolnich PC, je mozne pouzit API funkce z kolekce
WNetEnumResource. Umozni ti najit seznam zapnutych PC a jejich sdilenych
prostredku, ci dalsich sitovych prostredku (tiskaren ap.).
Pokud se tyce seznamu uzivatelu, je mozno pouzit API funkce NetUserEnum a
NetUserGetInfo, ktere zjistuji uzivatelska data z domenoveho serveru, cili
jsou schopny zjistit vsechny uzivatele, i neprihlasene. Trochu problem je,
ze (pokud vim) jeste na Delphi 6 nejsou tyto funkce implementovany, takze je
si musis nadeklarovat sam.
Pokud se tyce IP adres, to je zase z jineho soudku, tady je nejjednodussi
pouzit volani programu PING, ovsem pokud znas rozsah adres. Da se take
naprogramovat vlastni ping pomoci funkci ICMP, ale to uz je docela drina.
Kolegove mozna doplni dalsi moznosti.
Vlastik
Velikost adresare
[*] brano <odber(zv)centrum.sk> - 27.7.2005 16:13:28
function DirSize(Dir:string):longword;
var
SearchRec : TSearchRec;
Separator : string;
size: longword;
begin
size:=0;
if Copy(Dir,Length(Dir),1)='\' then
Separator := ''
else
Separator := '\';
if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then begin
repeat
if (SearchRec.Attr and faDirectory) = 0 then
size:=size+SearchRec.Size
else
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
size:=size+DirSize(Dir+Separator+SearchRec.Name);
until FindNext(SearchRec) <> 0;
end;
FindClose(SearchRec);
Result:=size;
end;
mydelphi(zv)seznam(tec)cz wrote:
> Dobry den,
>
> existuje nejaka funkce, ktera zjisti velikost adresare ? Myslim tim
> velikost vsech souboru v nem a v jeho podadresarich....
>
OT: Ponuka prace
[*] mstevlik(zv)gamo.sk - 27.7.2005 15:59:27
Hladame jedneho alebo viac ludi na pracu na projekte formou zivnosti,
dohody na dobu urcitu (predpoklad 1-2 mesiace) s nastupom ihned najlepsie
Podmienky:
- Banska Bystrica a okolie
- znalost SQL/PLSQL (Oracle, pripadne PostgreSQL) nutna
Blizsie info na sukromnom maily
Marian Stevlik
IS programmer
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4372098, 4137935, 4372111
gsm: +421 905 462010
icq: 38493645
FibBackupService
[*] delphi(zv)mjsoft(tec)cz - 27.7.2005 15:43:25
Zdar,
myslim, ze to nelze. Z Clienta se musi spustit gbak s
prislusnymi parametery. FibBackupService funguje jen na
serveru.
Karel V.
> Da se nejak pres komponentu FibBackupService z Fib plus
> udelat zaloha na klientskou stanici, ze ktere zalohu spoustim? Jak?FibBackupService
[*] Dalibor <dalibor(zv)torola(tec)cz> - 27.7.2005 14:49:21
Da se nejak pres komponentu FibBackupService z Fib plus udelat zaloha na klientskou stanici, ze ktere zalohu spoustim?
Jak?
Dekuji
D.
Velikost adresare
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 27.7.2005 13:59:18
Straka Josef wrote:
> treba takhle, zdroj tako konference pred par lety:
>
> function DirSize(Dir:string):integer;
No fuj :-(
- funkce nevraci vysledek
- misto toho predava sumu ve staticke globalni promenne
- jaky smysl ma volat po FindFirst/Next jeste FileExists(),
kdyz to je implementovano jako volani FileAge(), ktere
znovu vola FindFirst-FindClose - proc tu velikost neberes
rovnou z TSearchRec.Size?
pf
Posilani SMS
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 27.7.2005 13:57:18
Karel Kral wrote:
> Nebo u nas mame Eurotel SMS Connector, coz je aplikace, na kterou
> posles mail a ona to preposle jako SMS pres SMS centrum Eurotelu. Ma
> i HTTP a WebService rozhrani pro posilani SMS. Ale samozrejme je
> kazda SMS placena.
Dnes kazdy z operatoru v CR nabizi firemnim zakaznikum
nejaky typ primeho pripojeni na SMSC.
pf
sitove karty a TCP/IP
[*] Stranik Frantisek Ing. <fstranik(zv)cpoj(tec)cz> - 27.7.2005 13:03:13
Zdravim a prosim,
potreboval bych nejakou fci,
1. Jak programe zjistit na mem pocitaci:
a. nazvy vsech sitovych karet v pocitaci.
2. Jak programove nastavit:
a. ip adresu sveho pocitace v pripojeni TCP/IP.
b. na mem pocitaci ip adresu DNS serveru v pripojeni TCP/IP.
Diky moc.
Posilani SMS
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 27.7.2005 13:03:14
Nebo u nas mame Eurotel SMS Connector, coz je aplikace, na kterou posles
mail a ona to preposle jako SMS pres SMS centrum Eurotelu. Ma i HTTP a
WebService rozhrani pro posilani SMS. Ale samozrejme je kazda SMS placena.
Martin Burle napsal(a):
>>kolega potrebuje ze sve aplikace odesilat SMS (pro vsechny
>
>
> Zadarmo to myslim nepujde. Bud vlastni sms brana (mobil pripojeny k
> pocitaci), nebo napr. www.sms(tec)cz, kde si predplatis nejaky kredit. Resili
> jsme pres ne odesilani z webove aplikace. Nekde jsem tam zahledl info o dll
> pro odesilani z klientskych aplikaci.
>
> MB
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Sorting v DBGridu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 27.7.2005 12:17:10
Takle ne, to je spatny zpusob.
Pokud k tomu nejsou nejake zvlastni duvody (colation), tak je mnohem
efetivnejsi to setridit na klientovi (client dataset).
Zvlaste pokud se jedna o dotaz typu:
SELECT AVG, COUNT, SUM, ... FROM ... GROUP BY ...
Slavek
>
> Jde to. Udelas novy SQL dotaz z daty serazenymi podle
> prislusneho sloupce nebo nastavis prislusny index. dbGrid
> pouze prezentuje data z nejakeho Datasetu. Potrebujes ty data
> seradit v tom datasetu
Velikost adresare
[*] Straka Josef <strakajosef(zv)seznam(tec)cz> - 27.7.2005 12:07:09
> mydelphi(zv)seznam(tec)cz napsal(a):
> Dobry den,
> existuje nejaka funkce, ktera zjisti velikost adresare ? Myslim tim
> velikost vsech souboru v nem a v jeho podadresarich....
Dobry den,
treba takhle jeste jednou i se zapomenutou deklaraci, zdroj tato
konference pred par lety:
var DirBytes : integer;
function DirSize(Dir:string):integer;
var
SearchRec : TSearchRec;
Separator : string;
begin
if Copy(Dir,Length(Dir),1)='\' then
Separator := ''
else
Separator := '\';
if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then begin
if FileExists(Dir+Separator+SearchRec.Name) then begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end else if DirectoryExists(Dir+Separator+SearchRec.Name) then begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then begin
DirSize(Dir+Separator+SearchRec.Name);
end;
end;
while FindNext(SearchRec) = 0 do begin
if FileExists(Dir+Separator+SearchRec.Name) then begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end else if DirectoryExists(Dir+Separator+SearchRec.Name) then
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then begin
DirSize(Dir+Separator+SearchRec.Name);
end;
end;
end;
end;
FindClose(SearchRec);
end;
Straka Josef
strakajosef(zv)quick(tec)cz
Velikost adresare
[*] Straka Josef <strakajosef(zv)seznam(tec)cz> - 27.7.2005 11:57:08
> mydelphi(zv)seznam(tec)cz napsal(a):
> Dobry den,
> existuje nejaka funkce, ktera zjisti velikost adresare ? Myslim tim
> velikost vsech souboru v nem a v jeho podadresarich....
Dobry den,
treba takhle, zdroj tako konference pred par lety:
function DirSize(Dir:string):integer;
var
SearchRec : TSearchRec;
Separator : string;
begin
if Copy(Dir,Length(Dir),1)='\' then
Separator := ''
else
Separator := '\';
if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then begin
if FileExists(Dir+Separator+SearchRec.Name) then begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end else if DirectoryExists(Dir+Separator+SearchRec.Name) then begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then begin
DirSize(Dir+Separator+SearchRec.Name);
end;
end;
while FindNext(SearchRec) = 0 do begin
if FileExists(Dir+Separator+SearchRec.Name) then begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end else if DirectoryExists(Dir+Separator+SearchRec.Name) then
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then begin
DirSize(Dir+Separator+SearchRec.Name);
end;
end;
end;
end;
FindClose(SearchRec);
end;
Straka Josef
strakajosef(zv)quick(tec)cz
Sorting v DBGridu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 27.7.2005 10:55:03
27.7.2005 Martin Burle:
>> > Nicmene, funguje mi v pohode i pouhe prirazeni IndexFieldNames, alespon
> pro
>> > jedno pole ;)
>>
>> > IndexFieldNames := 'ZARUKA'; //setridi podle pole ZARUKA
>>
>> Jasne, ale to ten index porad musi fyzicky existovat.
>> Nemuzes nastavit index na pole, ktere neni indexovane ;-)
> ...tak to bude tim ze xxclientdataset si ten index vytvori sam, pro me tedy
> o duvod vice proc ho pouzivat :)
Ano, u memory tabulek to takto funguje. S normalni DB tabulkou by to
bylo horsi, protoze bys ji musel otevrit v exclusive modu a pridat
index
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Sorting v DBGridu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 27.7.2005 10:51:03
> > Nicmene, funguje mi v pohode i pouhe prirazeni IndexFieldNames, alespon
pro
> > jedno pole ;)
>
> > IndexFieldNames := 'ZARUKA'; //setridi podle pole ZARUKA
>
> Jasne, ale to ten index porad musi fyzicky existovat.
> Nemuzes nastavit index na pole, ktere neni indexovane ;-)
...tak to bude tim ze xxclientdataset si ten index vytvori sam, pro me tedy
o duvod vice proc ho pouzivat :)
MB
Sorting v DBGridu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 27.7.2005 10:41:02
27.7.2005 Martin Burle:
>> > Pokud ti staci tridit podle jednoho pole, melo by stacit nastavit
>> > IndexFieldNames.
>>
>> Pokud index na tom poli ovsem existuje...
> Nicmene, funguje mi v pohode i pouhe prirazeni IndexFieldNames, alespon pro
> jedno pole ;)
> IndexFieldNames := 'ZARUKA'; //setridi podle pole ZARUKA
Jasne, ale to ten index porad musi fyzicky existovat.
Nemuzes nastavit index na pole, ktere neni indexovane ;-)
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Sorting v DBGridu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 27.7.2005 10:23:01
> > Pokud ti staci tridit podle jednoho pole, melo by stacit nastavit
> > IndexFieldNames.
>
> Pokud index na tom poli ovsem existuje...
Hmm, ja jsem to chtel Petrovi zjednodusit, normalne pouzivam zhruba
takovouto konstrukci:
.....
with TxxDataset(datasource.dataset) do begin
if IFields<>'' then begin //iFields je seznam poli oddeleny ;
with IndexDefs do begin
with AddIndexDef do begin
Name := IName;
Fields := IFields;
Options := FAscDesc; //[ixAscending] nebo
[ixdescending]
end;
end;
IndexName := IName;
end;
end;
Nicmene, funguje mi v pohode i pouhe prirazeni IndexFieldNames, alespon pro
jedno pole ;)
IndexFieldNames := 'ZARUKA'; //setridi podle pole ZARUKA
MB
Velikost adresare
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 27.7.2005 10:13:00
mydelphi(zv)seznam(tec)cz wrote (on Wednesday, July 27, 2005 8:33 AM):
> Dobry den,
>
> existuje nejaka funkce, ktera zjisti velikost adresare ? Myslim tim
> velikost vsech souboru v nem a v jeho podadresarich....
Nevim jestli primo existuje (urcite jo), ale neni prece problem projit
vsechny soubory v adresari (a rekurzi v podadressarich) a poscitat to.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Sorting v DBGridu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 27.7.2005 10:11:00
27.7.2005 Martin Burle:
> Pokud ti staci tridit podle jednoho pole, melo by stacit nastavit
> IndexFieldNames.
Pokud index na tom poli ovsem existuje...
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Sorting v DBGridu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 27.7.2005 10:09:00
> > Potreboval bych nejak udelat, aby kdyz uzivatel me aplikace klikne na
> > nekterou hlavicku sloupce v DBGridu, aby se zaznamy abecedne seradily.
> Podivej se treba na TSMDBGrid, www.scalabium.com.
Mel jsem za to, ze ti jde jen o vizualni stranku veci - Smgrid resi takove
ty sipecky v zahlavi gridu (a spoustu dalsich sikovnych veci). Vlastni
trideni
a) pomoci indexu datasetu - podivej se na IndexDefs, IndexName,
IndexFieldNames. Pokud neni dat moc, melo by to byt rychle, nevyhodou je
tusim nemoznost kombinovat Ascending a Descending v ramci jednoho indexu
(alespon me to nejak neslo)
b) pomoci zmeny klauzule ORDER BY v sql dotazu, tam muzes kombinovat ASC a
DESC, na malych objemech dat to bude pomalejsi.
Pokud ti staci tridit podle jednoho pole, melo by stacit nastavit
IndexFieldNames.
MB
Sorting v DBGridu
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 27.7.2005 09:40:57
>> Zdravim vsechny,
>> mam takovy maly dotaz.
>> Potreboval bych nejak udelat, aby kdyz uzivatel me aplikace klikne na
>> nekterou hlavicku sloupce v DBGridu, aby se zaznamy abecedne seradily.
>> Jde to? Popr. jak?
> Jde to. Udelas novy SQL dotaz z daty serazenymi podle prislusneho
> sloupce nebo nastavis prislusny index.
> dbGrid pouze prezentuje data z nejakeho Datasetu. Potrebujes ty data
> seradit v tom datasetu
Byl by prosim mozny nejaky priklad? Jsem zacatecnik a nejsem si uplne
jist, jak na to. Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
Sorting v DBGridu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 27.7.2005 09:40:57
> Zdravim vsechny,
> mam takovy maly dotaz.
> Potreboval bych nejak udelat, aby kdyz uzivatel me aplikace klikne na
> nekterou hlavicku sloupce v DBGridu, aby se zaznamy abecedne seradily.
Podivej se treba na TSMDBGrid, www.scalabium.com.
MB
Sorting v DBGridu
[*] Miroslav Suchy <suchy(zv)jplusj(tec)cz> - 27.7.2005 09:36:56
> Zdravim vsechny,
> mam takovy maly dotaz.
> Potreboval bych nejak udelat, aby kdyz uzivatel me aplikace klikne na
> nekterou hlavicku sloupce v DBGridu, aby se zaznamy abecedne seradily.
>
> Jde to? Popr. jak?
>
> Dekuji
>
> S pozdravem
> Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
>
> D6Ent., WinXP Pro SP2, SQL2000
>
>
Jja to delam nejak takhle:
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
Table1.IndexName:=Column.FieldName;
Table1.First;
end;
Wabi
Sorting v DBGridu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 27.7.2005 09:28:56
27.7.2005 Petr Cafourek:
> Zdravim vsechny,
> mam takovy maly dotaz.
> Potreboval bych nejak udelat, aby kdyz uzivatel me aplikace klikne na
> nekterou hlavicku sloupce v DBGridu, aby se zaznamy abecedne seradily.
> Jde to? Popr. jak?
Jde to. Udelas novy SQL dotaz z daty serazenymi podle prislusneho
sloupce nebo nastavis prislusny index.
dbGrid pouze prezentuje data z nejakeho Datasetu. Potrebujes ty data
seradit v tom datasetu
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Sorting v DBGridu
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 27.7.2005 09:22:55
Zdravim vsechny,
mam takovy maly dotaz.
Potreboval bych nejak udelat, aby kdyz uzivatel me aplikace klikne na
nekterou hlavicku sloupce v DBGridu, aby se zaznamy abecedne seradily.
Jde to? Popr. jak?
Dekuji
S pozdravem
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
D6Ent., WinXP Pro SP2, SQL2000
Posilani SMS
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 27.7.2005 09:08:55
> kolega potrebuje ze sve aplikace odesilat SMS (pro vsechny
Zadarmo to myslim nepujde. Bud vlastni sms brana (mobil pripojeny k
pocitaci), nebo napr. www.sms(tec)cz, kde si predplatis nejaky kredit. Resili
jsme pres ne odesilani z webove aplikace. Nekde jsem tam zahledl info o dll
pro odesilani z klientskych aplikaci.
MB
vlastnik dokumentu pri tisku
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 27.7.2005 08:54:53
> mam sdilenou tiskarnu na siti a potreboval bych zjistit z jake ip adresy
> prisel dokument na tisk.
pokud programove tak se podivej na funkci EnumJobs da se pres ni zjistit
jmeno stroje a uzivatele
Posilani SMS
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.7.2005 08:40:52
Ahoj
Lebeda David napsal(a):
> Ahoj,
>
> kolega potrebuje ze sve aplikace odesilat SMS (pro vsechny
> operatory). Zatimco na Eurotel by snad melo fungovat odeslani textu
> na cislo(zv)sms.eurotel(tec)cz, u ostatnich operatoru uz by s tim mozna
> mohl byt problem.
u oskara to lze taky, ale prijemce si musi zdarma zaregistrovat
nejake jmeno. Potom ma adresu nejake_jmeno(zv)mujoskar(tec)cz. Prijdou
maximalne 2 zpravy, ne uplne cely email.
U TyDebilu to AFAIK nejde nijak. Mozna je mozne si nekde v T-Zone
nastavit nejake SMTP presmerovani, ale nevim jiste. To by bylo spise na
infolinku operatora.
> Muzete mi prosim nekdo strucne napsat, jak se to v
> soucasne dobe resi? Jak z aplikace odeslat SMS, nejlepe tak, aby si
> ten prijemce nemusel u operatora zrizovat mailovou adresu apod. -
> neni podminkou?
Resi se to treba tak, ze se zpravy posilaji pres telefon pripojeny k
pocitaci, nebo snad existuji verejne komercni brany, ktere ti podobnou
sluzbu zajisti za nejakou uplatu (treba SMS za 1,-). Tohle ale taky
nevim 100% jak to dneska funguje, ale videl jsem drive podobne nabidky v
dobe, kdy operatori zablokovali sve webowe brany.
> Diky
Neni zac.
> David Lebeda
Petr Palicka aka Peca
Velikost adresare
[*] mydelphi(zv)seznam(tec)cz - 27.7.2005 08:32:51
Dobry den,
existuje nejaka funkce, ktera zjisti velikost adresare ? Myslim tim
velikost vsech souboru v nem a v jeho podadresarich....
--
S pozdravem,
Michal Adler
email: mydelphi(zv)seznam(tec)cz
Posilani SMS
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.7.2005 07:18:44
Ahoj,
kolega potrebuje ze sve aplikace odesilat SMS (pro vsechny
operatory). Zatimco na Eurotel by snad melo fungovat odeslani textu
na cislo(zv)sms.eurotel(tec)cz, u ostatnich operatoru uz by s tim mozna
mohl byt problem. Muzete mi prosim nekdo strucne napsat, jak se to v
soucasne dobe resi? Jak z aplikace odeslat SMS, nejlepe tak, aby si
ten prijemce nemusel u operatora zrizovat mailovou adresu apod. -
neni podminkou?
Diky
David Lebeda
Delphi personal a databaze
[*] radek3311(zv)volny(tec)cz - 27.7.2005 07:10:43
Ahoj,
podivej se sem http://www.gm-software.de - neni to ale zadarmo a
sem http://www.progdigy.com/index.php na UIB2 - snad to podporuje i
Delphi6 PE
Radek
--
Revolucni vysokorychlostni INTERNET jen za nizky mesicni pausal 399
Kc. Navic aktivace ZDARMA! Vice na http://www.revolucniinternet(tec)cz
vlastnik dokumentu pri tisku
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 27.7.2005 06:58:42
Ahoj,
mam sdilenou tiskarnu na siti a potreboval bych zjistit z jake ip adresy
prisel dokument na tisk.
diky
Marek
Jak zobrazit seznam seznam okolnich poctacu; Jak z
[*] spravce(zv)dh-soft(tec)cz - 26.7.2005 23:30:11
1) nevim
2) nastavujes nejprve pismo (barvu, tloustku apod) a pak das ADD atd.
D.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Pavel !
Sent: Tuesday, July 26, 2005 11:12 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Jak zobrazit seznam seznam okolnich poctacu; Jak zmenit barvu textu
v RichEdit.
Ahoj zdarvim ucastniky Delphi conf.,
Chtel jsem se na vas obratit z dvema dotazi.
1) Potrebuji ziskat seznam vsech uzivatelu na LAN (resp. ty co jsou
videt v okolnich pocitaich)
vc jejicj IP a jmena pocitace.
2) Jak zmenit barvu pisma v Rich edit:
pr:
richedit1.lines.add('TEXT 1');
richedit1.items.add('TEXT 2');
Dejemtomu prvni radka normalni a ta druha cervena
Dekuji
Jak zobrazit seznam seznam okolnich poctacu; Jak z
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 26.7.2005 23:12:10
Ahoj zdarvim ucastniky Delphi conf.,
Chtel jsem se na vas obratit z dvema dotazi.
1) Potrebuji ziskat seznam vsech uzivatelu na LAN (resp. ty co jsou
videt v okolnich pocitaich)
vc jejicj IP a jmena pocitace.
2) Jak zmenit barvu pisma v Rich edit:
pr:
richedit1.lines.add('TEXT 1');
richedit1.items.add('TEXT 2');
Dejemtomu prvni radka normalni a ta druha cervena
Dekuji Virtual memory a memproof
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 26.7.2005 13:41:31
Ahoj,
muzete mi prosim nekdo vysvetlit, co v MemProofu znamena polozka
Virtual memory?
Diky
David Lebeda
Mezinarodni cislo statu
[*] Ludek <konference(zv)sales(tec)cz> - 26.7.2005 13:35:30
----- Original Message -----
From: "Milan Tomes" <delphi(zv)haida(tec)cz>> Podrobnejsi info viz. pravni predpis c. 487/2003 Sb., o vydani klasifikace
> zemi (CZ-GEONOM) a dale pravni predpis 489/2003 Sb., ktery obsahuje platne
> zneni ciselniku KZEM. Obecne se da rici, ze CZ-GEONOM je zavazny jen pro
EU
> a ne pro zbytek sveta, takze bych doporucil pouzivat spise ISO kod zeme
(at
> jiz numericky nebo textovy - 2 ci 3 znakovy) jinak receno - dle ciselniku
> KZEM.
> Pokud by byl zajem, mame toto cele v jednom ciselniku vc. zkracenych nazvu
> statu a nazvu a zkratky v anglictine.
Ahoj,
Mozna by v dnesni dobe vseliakych statik, ktere kolikrat pouzivaji i svoje
nestandardni oznaceni stalo za to pripravit design databaze tak, aby mohlo
byt vice oznaceni v jednom ciselniku.
Ludek
Komponenty pro OPC server
[*] pilifs <pilifs(zv)seznam(tec)cz> - 26.7.2005 13:29:30
Zdravim ve spolek,
muzete mi prosim nekdo poskytnout informace o nejakych slusnych
komponentach pro OPC server?
Muze byt jak FREE tak i komercni. Popripade jake mate s nimi zkusenosti.
Dik L. Filip
Delphi personal a databaze
[*] MaReK OlL?avskA? <orsm(zv)centrum(tec)cz> - 26.7.2005 09:39:12
Dobry den,
jedna (ne jedina) Free varianta (ba so vice, Open Source) existuje,
jedna se o cele prostredi podobne Delphi, byt v zakladu ne tak hodne
vybavene. Jmenuje se Lazarus (http://lazarus.freepascal.org), ale po
jeho nainstalovani budete muset stahnout jeste nejake packages s
komponentami. Vcelku pouzitelne pro Firbird databazi jsou UIB2
(http://www.progdigy.com/modules.php?name=UIB), ktere chodi v Delphi
(tedy krome te Personal verze) i Lazarusu.
Mozna zkuste se jeste podivat po Jedi komponentach
(http://homepages.borland.com/jedi/jvcl/) jako takovych (UIB2 pod ne spada).
Snad bude nekdo z kolegu znat dalsi variantu.
S pozdravem
MO
- --
MaReK "Penguin" Ol+AWE-avsk+AP0-
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +-420-603-519-650; +-420-775-154-689 (775-1-LINUX)
Na str+AOE-nce bylo naps+AOE-no: "Optimalizov+AOE-no pro Explorer 5, nebo lep+AWEA7Q-".
Tak jsem p+AVk-e+AWE-el na Mozilla Firefox --> http://firefox(tec)czilla(tec)cz/
delphi(zv)spst(tec)cz napsal(a):
> Zdravim,
>
> Ve skole pouzivame k vyuce Delphi 7 Personal. Je mozne do tohoto produktu
> nejak pridat databaze?
>
> Jedna se predevsim o komponenty: DataSource, Table, Query, DBEdit, DBGrid,
> DBText, DBCheckBox .
>
> Existuje nejaka free varianta.
>
>
>
> Predem moc dekuji
>
> Jirka
>
>
>
>
>
Delphi personal a databaze
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 26.7.2005 09:25:11
26.7.2005 delphi(zv)spst(tec)cz:
> Zdravim,
> Ve skole pouzivame k vyuce Delphi 7 Personal. Je mozne do tohoto produktu
> nejak pridat databaze?
> Jedna se predevsim o komponenty: DataSource, Table, Query, DBEdit, DBGrid,
> DBText, DBCheckBox .
Ne. Zaklad databazi TDataset neni obsazen v personal verze
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
TStringgrid
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 26.7.2005 09:17:10
John Bricklayer wrote:
> Jen me tak napadlo co skusit tohle ?
> Nemusi se delat potomek, nebo projizdet a presouvat, akorat z toho
> udelat proc
>
> tab.Rows[index].DelimitedText:=tab.Rows[tab.rowcount-1].DelimitedText;
> tab.RowCount:=tab.RowCount-1;
Tohle prece nemuze fungovat - to bys musel udelat cyklus a "prisunout"
vsechny radky za Indexem tj. Rows[Index+1]..Rows[RowCount-1].
pf
Delphi personal a databaze
[*] delphi(zv)spst(tec)cz - 26.7.2005 08:23:06
Zdravim,
Ve skole pouzivame k vyuce Delphi 7 Personal. Je mozne do tohoto produktu
nejak pridat databaze?
Jedna se predevsim o komponenty: DataSource, Table, Query, DBEdit, DBGrid,
DBText, DBCheckBox .
Existuje nejaka free varianta.
Predem moc dekuji
Jirka
Mezinarodni cislo statu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 26.7.2005 07:13:01
Podrobnejsi info viz. pravni predpis c. 487/2003 Sb., o vydani klasifikace
zemi (CZ-GEONOM) a dale pravni predpis 489/2003 Sb., ktery obsahuje platne
zneni ciselniku KZEM. Obecne se da rici, ze CZ-GEONOM je zavazny jen pro EU
a ne pro zbytek sveta, takze bych doporucil pouzivat spise ISO kod zeme (at
jiz numericky nebo textovy - 2 ci 3 znakovy) jinak receno - dle ciselniku
KZEM.
Pokud by byl zajem, mame toto cele v jednom ciselniku vc. zkracenych nazvu
statu a nazvu a zkratky v anglictine.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Fejfar
> Sent: Monday, July 25, 2005 5:04 PM
>
> Jiri Fait wrote:
>
> > Existuje neco jako mezinarodni cislo statu? Nemyslim zkratku, ale
> > ciselne oznaceni.
>
> Nevim, k cemu to cislo statu potrebujes, ale jak sis urcite
> vsiml, tak v obou predchozich seznamech se kody zemi lisi.
>
> Jeste existuje par dalsich seznamu a aby se to nepletlo, tak
> se taky lisi
> ;-)
>
> Jejich prehled je shromazden ve wikipedii, treba
> http://en.wikipedia.org/wiki/Country_codes:_C
Mezinarodni cislo statu
[*] Ludek <konference(zv)sales(tec)cz> - 26.7.2005 01:56:40
----- Original Message -----
From: "Jiri Fait" <develop(zv)lmss(tec)cz>
> Jak jste na tom vy, pouzivate ISO kody statu nebo proste generujete nejake
> ID?
Ahoj,
Myslim ze nejlepsi je asi takovahle struktura :
STAT_ID (GUID, AUTOINCREMENT.... ) podle designu aplikace
STAT_KOD varchar(6) uniqe
STAT_NAZEV varchar(60)
kde STAT_ID bude klic v tabulkach
s tim, ze to treba naplnis temi ISO kody, ale uzivatel si to muze kdykoliv
prepsat jak potrebuje.
Ludek
Mezinarodni cislo statu
[*] Jiri Fait <develop(zv)lmss(tec)cz> - 25.7.2005 23:28:29
> Nevim, k cemu to cislo statu potrebujes, ale jak sis urcite
> vsiml, tak v obou predchozich seznamech se kody zemi lisi.
>
No a o to mi prave slo, jestli existuje nejaky mezinarodne uznavany seznam.
Jde o ciselnik statu v aplikaci.
Jak jste na tom vy, pouzivate ISO kody statu nebo proste generujete nejake
ID?
Jirka
TStringgrid
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 25.7.2005 21:28:21
Jen me tak napadlo co skusit tohle ?
Nemusi se delat potomek, nebo projizdet a presouvat, akorat z toho udelat proc
takze ...
procedure TForm1.del(tab:tstringgrid;index:integer);
begin
tab.Rows[index].DelimitedText:=tab.Rows[tab.rowcount-1].DelimitedText;
tab.RowCount:=tab.RowCount-1;
end;
plus nejaky ochranny podminky indexu
pokud si budes jisty ze se nevyskytnou znaky #13 v textu tak staci jen "text" misto "delimitedtext"
procedure ins(tab;tst:tstrings);
begin
tab.RowCount:=tab.RowCount+1;
tab.Rows[tab.rowcount-1].assign(tst);
nebo
tab.Rows[tab.rowcount-1].DelimitedText:=tst.DelimitedText;
end; JB
>Zdravim,
>resim takovej problem, jak pridavat, nebo odebirat sloupce ci radky. Zkousim to pres stringgrid1.rows[index].delete[index];
>Tato syntaxe mi vyhodi vyjimku.
>A prosim jeste o jednu vec, jak celou tabulku ulozit do nejakeho souboru.
>Dekuji
>Petr
>
>
TStringgrid
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 25.7.2005 20:46:18
Petr Berek wrote:
> Proste chci abych vsechny bunky ulozil do souboru, ze ktereho by to
> potom slo i otevrit. S tim oddelovacem jednotlivych radku by to slo.
> Ale zatim nemam konkretnejsi algoritmus.
:-OOOO
Co kdybys nahledl to helpu na popis TStrings.CommaText
nebo proste vyzkousel, co ty dva radky kodu delaji?
pf
TStringgrid
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 25.7.2005 19:32:13
Proste chci abych vsechny bunky ulozil do souboru, ze ktereho by to potom slo i otevrit. S tim oddelovacem jednotlivych radku by to slo. Ale zatim nemam konkretnejsi algoritmus. Jinak diky za ten alogirtmus mazani radku s sloupcu.. Zkusim ho.
Diky;
< ------------ Puvodni zprava ------------
< Od: Petr Fejfar <development(zv)callnet(tec)cz>
< Predmet: Re: TStringgrid
< Datum: 25.7.2005 15:39:46
< ----------------------------------------
< MaReK OlL?avskA? wrote:
<
< >> A prosim jeste o jednu vec, jak celou tabulku ulozit do nejakeho
< >> souboru.
< > ^^^Trochu otrocky lze v cyklu projet bunky v radcich postupne radek za
< > rakdem (2 vnorene cykly) a ulozit je do souboru s nejakym jednoduchym
< > oddelovacem, o nemz mate jistotu, ze se vam v bunkach nikde
< > neobjevuje
<
< Proc vymyslet vymyslene? S vyhodou se prece da vyuzit toho,
< ze radek je typu TStrings a ten podporuje praci s CSV formatem.
<
< Takze pro dump obsahu string gridu to textoveho souboru
< staci jen tenhle cyklus:
<
< for RowIdx:=0 to grid1.RowCount-1 do
< writeln(File,grid1.Rows[RowIdx].CommaText);
<
<
<
< HTH, pf
<
<
<
<
<
Zistenie clenstva v skupine Administrators
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 25.7.2005 19:32:13
Na zive je material, ve kterem je i to, jak zjistit, zda je prihlasen admin. Jmenuje se to triky a tipy delphi, myslim, ze nejak tak.
< ------------ Puvodni zprava ------------
< Od: Petr Fejfar <development(zv)callnet(tec)cz>
< Predmet: Re: Zistenie clenstva v skupine Administrators
< Datum: 25.7.2005 16:19:17
< ----------------------------------------
< Barica Miroslav wrote:
<
< > Vedel by mi niekto poradit, nasmerovat ma, ako zistim clenstvo v
< > skupine (napr. Administrators)? Popripade, odkaz na free komponentu
< > by ma tiez potesil ;-)
<
< JCL , konkretne unit JclSecurity obsahuje mj. funkci IsAdministrator..
<
< HTH, pf
<
<
<
<
<
<
Scrollbar na v Tabu (PageControl)
[*] Marek Olsavsky <orsm(zv)centrum(tec)cz> - 25.7.2005 18:42:09
Takze 1. reseni, ktere me napadlo po odeslani dotazu :-(. Doufal jsem,
ze to jde primo... Potesilo me, ze to funguje stejne i v prostredi
Lazarus (pouziva nekdo??).
Vzhledem k tomu, ze jsem asi nebyl prvni, kdo se zeptal na takovouto
elementaritu, nemohli bychom vytvorit nejakou knoweldgebase, idealne
postavenu na nejake Wiki, kam by se takoveto obecnosti davali??
S pozdravem
MaReK Olsavsky
btw: na Java i Python konfere ta wiki probehla nedavno a vypada ze se to
ujmulo a slouzi...
Robert Fujak napsal(a):
> Ja som tam dal TPanel a menim Panel.Top
>
>
> S pozdravom
>
> Robert Fujak
> ----- Original Message -----
> From: "MaReK Olsavsky" <orsm(zv)centrum(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, July 25, 2005 12:21 PM
> Subject: Scrollbar na v Tabu (PageControl)
>
>
>
>>Dobry den,
>>existuje nejaka cesta, jak dostat na Tab v PageControlu scrollbar, abych
>>jeho posunem posouval obsah celeho tabu?? Tedy neco primeho, nez
>>prepocitavat polohu kazdeho prvku, ktery mi na tabu "bydli".
>>Dekuji
>>MaReK Olsavsky
>>
>>- --
>>
>
>
>
>
>
>
>
Mezinarodni cislo statu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 25.7.2005 17:04:02
Jiri Fait wrote:
> Existuje neco jako mezinarodni cislo statu? Nemyslim zkratku, ale
> ciselne oznaceni.
Nevim, k cemu to cislo statu potrebujes, ale jak sis urcite vsiml,
tak v obou predchozich seznamech se kody zemi lisi.
Jeste existuje par dalsich seznamu a aby se to nepletlo, tak se taky lisi
;-)
Jejich prehled je shromazden ve wikipedii, treba
http://en.wikipedia.org/wiki/Country_codes:_C
HTH, pf
Scrollbar na v Tabu (PageControl)
[*] Robert Fujak <robof(zv)inmail.sk> - 25.7.2005 16:36:00
Ja som tam dal TPanel a menim Panel.Top
S pozdravom
Robert Fujak
----- Original Message -----
From: "MaReK Olsavsky" <orsm(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 25, 2005 12:21 PM
Subject: Scrollbar na v Tabu (PageControl)> Dobry den,
> existuje nejaka cesta, jak dostat na Tab v PageControlu scrollbar, abych
> jeho posunem posouval obsah celeho tabu?? Tedy neco primeho, nez
> prepocitavat polohu kazdeho prvku, ktery mi na tabu "bydli".
> Dekuji
> MaReK Olsavsky
>
> - --
>
Mezinarodni cislo statu
[*] Alan Cermak <al.cerm(zv)iol(tec)cz> - 25.7.2005 16:23:59
Napr. Cesky statisticky urad:
http://www(tec)czso(tec)cz/csu/klasifik.nsf/i/1_geonomenklatura
----- Original Message -----
From: "Jiri Fait" <develop(zv)lmss(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 25, 2005 3:43 PM
Subject: OT: Mezinarodni cislo statu
> Existuje neco jako mezinarodni cislo statu? Nemyslim zkratku, ale
> ciselne
> oznaceni.
>
> Dik Jirka
>
>
> Mezinarodni cislo statu
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 25.7.2005 16:13:58
dle ISO 3166 existuje alfanumericke oznaceni 2 pismene, 3 pismene a ciselne.
viz napr: http://userpage.chemie.fu-berlin.de/diverse/doc/ISO_3166.html
Pavel Poles
Jiri Fait napsal(a):
>Existuje neco jako mezinarodni cislo statu? Nemyslim zkratku, ale ciselne
>oznaceni.
>
>Dik Jirka
>
>
OT: Mezinarodni cislo statu
[*] Jiri Fait <develop(zv)lmss(tec)cz> - 25.7.2005 15:43:55
Existuje neco jako mezinarodni cislo statu? Nemyslim zkratku, ale ciselne
oznaceni.
Dik Jirka
Drop mailu z Outlook Expressu
[*] dssoft(zv)centrum(tec)cz - 25.7.2005 14:15:49
> Funguje to tak, ze mam tlacitko "Prevezmi z Outlooku"
> a po stlaceni sa ulozi "prave oznaceny zaznam v Outlooku" priamo na disk
do suboru.
Diky, vyzkousim to. Ale potreboval jsem reseni, ktere by chodilo v Outlook
Expressu.
David
Zistenie clenstva v skupine Administrators
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 25.7.2005 14:13:49
Barica Miroslav wrote:
> Vedel by mi niekto poradit, nasmerovat ma, ako zistim clenstvo v
> skupine (napr. Administrators)? Popripade, odkaz na free komponentu
> by ma tiez potesil ;-)
JCL , konkretne unit JclSecurity obsahuje mj. funkci IsAdministrator.
HTH, pf
TStringgrid
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 25.7.2005 14:07:48
MaReK OlL?avskA? wrote:
>> A prosim jeste o jednu vec, jak celou tabulku ulozit do nejakeho
>> souboru.
> ^^^Trochu otrocky lze v cyklu projet bunky v radcich postupne radek za
> rakdem (2 vnorene cykly) a ulozit je do souboru s nejakym jednoduchym
> oddelovacem, o nemz mate jistotu, ze se vam v bunkach nikde
> neobjevuje
Proc vymyslet vymyslene? S vyhodou se prece da vyuzit toho,
ze radek je typu TStrings a ten podporuje praci s CSV formatem.
Takze pro dump obsahu string gridu to textoveho souboru
staci jen tenhle cyklus:
for RowIdx:=0 to grid1.RowCount-1 do
writeln(File,grid1.Rows[RowIdx].CommaText);
HTH, pf
Zistenie clenstva v skupine Administrators
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 25.7.2005 12:31:41
Kdyz se podivas do MSDN na CheckTokenMembership, tak je tam priklad na
zjisteni prave toho, jestli je uzivatel Admin .
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Barica Miroslav
> Sent: Monday, July 25, 2005 11:46 AM
>
> Vedel by mi niekto poradit, nasmerovat ma, ako zistim
> clenstvo v skupine (napr. Administrators)? Popripade, odkaz Scrollbar na v Tabu (PageControl)
[*] MaReK Olsavsky <orsm(zv)centrum(tec)cz> - 25.7.2005 12:21:41
Dobry den,
existuje nejaka cesta, jak dostat na Tab v PageControlu scrollbar, abych
jeho posunem posouval obsah celeho tabu?? Tedy neco primeho, nez
prepocitavat polohu kazdeho prvku, ktery mi na tabu "bydli".
Dekuji
MaReK Olsavsky
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Na strance bylo napsano: "Optimalizovano pro Explorer 5, nebo lepsi".
Tak jsem presel na Mozilla Firefox --> http://firefox(tec)czilla(tec)cz/
TStringgrid
[*] MaReK OlL?avskA? <orsm(zv)centrum(tec)cz> - 25.7.2005 12:17:40
Petr Berek napsal(a):
> A prosim jeste o jednu vec, jak celou tabulku ulozit do nejakeho souboru.
^^^Trochu otrocky lze v cyklu projet bunky v radcich postupne radek za
rakdem (2 vnorene cykly) a ulozit je do souboru s nejakym jednoduchym
oddelovacem, o nemz mate jistotu, ze se vam v bunkach nikde neobjevuje a
pro nacteni z5 musite mit metodu rozdel, ktera radek s oddelovaci
rozebere do StringListu.
Nebo si musite na zacatek poznacit kolik ma StringGrid sloupcu v radku
a muzete kazdou bunku ukladat na jeden radek.
S pozdravem a pranim uspechu
MaReK Olsavsky
- --
MaReK "Penguin" Ol+AWE-avsk+AP0-
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +-420-603-519-650; +-420-775-154-689 (775-1-LINUX)
Na str+AOE-nce bylo naps+AOE-no: "Optimalizov+AOE-no pro Explorer 5, nebo lep+AWEA7Q-".
Tak jsem p+AVk-e+AWE-el na Mozilla Firefox --> http://firefox(tec)czilla(tec)cz/
TStringgrid
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 25.7.2005 11:49:38
> resim takovej problem, jak pridavat, nebo odebirat sloupce ci radky.
> Zkousim to pres stringgrid1.rows[index].delete[index]; Tato syntaxe
> mi vyhodi vyjimku.
Ja to resim tak, ze sem si udelal potomka TStringGridu a publikoval metody
MoveRow a MoveColumn (stringgrid je ma, ale jen schovany :) - viz kod nize.
Takze pak staci presunout mazany radek na konec a snizit RowCount.
Analogicky sloupec.
Jirka Matejka
type
TMoveGrid = class(TStringGrid)
private
{ Private declarations }
protected
{ Protected declarations }
public
procedure MoveRow(FromIndex, ToIndex: Longint);
procedure MoveColumn(FromIndex, ToIndex: Longint);
published
{ Published declarations }
end;
procedure TMoveGrid.MoveRow(FromIndex, ToIndex: Longint);
begin
inherited MoveRow(FromIndex, ToIndex);
end;
procedure TMoveGrid.MoveColumn(FromIndex, ToIndex: Longint);
begin
inherited MoveColumn(FromIndex, ToIndex);
end;