Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Delphi2005 Trial
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 22.10.2004 15:25:30
Mel jsem podobny problem, koukl jsem na newsy a zjistil jsem, ze nejsem sam,
Nastesti si tam nejaky kolik stezoval, mu na hotline dali nefunkcni S/N a
autorizacni klic na D7 Trial. Uvedl tam i hodnoty, tak jsem je zkusil a uz
mi to funguje.
V dialogu registracniho wizardu chce S/N a auth. key. Zadal jsem toto:
Serial number: W8HQ-X7F?Q3-RDJ?28-89G9
auth. key: PZE-?Q3
Do home\username jsem nakopiroval REG632.TXT a jede to.
Docela sranda, asi taky nejak nestihaji :-))
Zdravim
Jiri Foldyna
> Ja je mam nainstalovane na C do vychoziho adresare a nic... :(((
> Jsem velice rozhorcen kvalitou resp. nekvalitou produktu
> Borlandu. Nedavno
> jsem zkousel StarTeam trial a musel jsem volat na hotline,
> abych to vubec
> rozchodil - instalace je naprosta tragedie a dokumentace
> jeste vetsi...
Jak na dva mainformy v aplikaci
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 22.10.2004 14:41:26
Tusim, ze mainform je urcen jen tak, ze se vytvari jako prvni v poradi a
tudiz by melo stacit do *.dpr souboru pridat rozhodovani, ktery form
vytvorit...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ing. Igor Vodicka
> Sent: Monday, November 22, 2004 1:17 PM
>
> Kdyz vytvarim projekt v Delphi, tak IDE mi nastavi automaticky prvni form
> jako maim form pro aplikaci. Ktery form je hlavni, muzu zmenit v options
> projektu.
>
> Jak ale zaridit, aby se aplikace tvarila, ze ma dva hlavni
> formulare. Napr.
>pohyb image mysou
[*] dusko <dusko(zv)persoholic.org> - 22.10.2004 14:17:24
dobry den.
mam polozeny image na scrollbare, pricom image je daleko vacsie ako
scrollbar. pohyb funguje cez klasicke posuvniky... ako naprogramovat,
aby sa dalo objektom image pohybovat mysou? myslim klasicky drag and
drop v ramci scrollbaru. klepnem mysou a potiahnem na miesto, co
potrebujem vidiet. diky za rady.
dusko
Access violation v konstruktoru
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 22.10.2004 13:43:21
Uz jsem vyradil z constructoru vsechno, zustal jen radek s inherited, ale porad to pada. Nemuze byt problem v .dfm. Na co se zamerit?
Jaromir Cermak
-----Original Message-----
From: Petr Fejfar [mailto:development(zv)callnet(tec)cz]
Sent: Monday, November 22, 2004 1:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Access violation v konstruktoru
Jaromir Cermak wrote:
> constructor TFORP_EditProtokol.CreateEditProtokol(AOwner:TComponent;
> DS:TDataSet;NazRadku:String);
> begin
> inherited Create(nil{AOwner});
>
> if DS<>nil then
> begin
> dsRad.DataSet:=DS;
> FBeforePost:=DS.BeforePost;
> //DS.BeforePost:=cdsRad.BeforePost;
> FPocZmen:=(DS as TClientDataSet).ChangeCount;
> if DS.Active then
> begin
> DS.First;
> while not DS.Eof do
> begin
> VytvorRadek(DS);
> DS.Next;
> end;
> DS.First;
> end;
> end;
> end;
Cim pristupovat k MSSQL
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 22.10.2004 12:07:11
Zdravim,
mam Delphi 6 Professional. Doted jsem pouzival souborove databaze pres BDE
(vc. localSQL), nicmene ted budu muset zacit pouzivat pristup k MSSQL
serveru.
Chtel bych se proto zeptat, jake komponenty pouzit na pristup k MSSQL, pro
zobrazovani dat (ze selectu) a pro upravu dat.
Pokud mozno neco obdobne jednoducheho na pouziti jako BDE. Melo by to byt
soucast D6Pro, nebo free.
Vim, ze tech moznosti je vic (dbExpress, ADO apod.), ale nevim kterou si
vybrat, aby ten prechod byl co nejmene bolestivy :-(
Diky
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)BDE vs. ADO (problem s rychlosti)
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 22.10.2004 11:05:03
Zdravim,
predelavam aplikaci, ktera je napojena na PostgreSQL z BDE na ADO (kvuli
podpore unicode), ale prijde mi ze selecty jsou hrozne pomale v BDE do 1s v
ADO 20s i vice. Lze to nejak urychlit. Selecty jsou naprosto shodne tabulky
s indexy.
Jeste bych mel jeden dotaz ohledne komponety na zobrazeni neceho jako
"pruzkumnika" pouzivam ShellShock komponenty, ale nefunguji mi u nich UNC
cesty - napr. \\mo3\vol1\
Delphi V.
Diky
Jirka Kratochvil
Error loading MIDAS.DLL
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 22.10.2004 10:37:01
> mam aplikaci v D6, ktera pouziva ClientDataset. Na nekterych
> PC (ruzne konfigurace s ruznymi OS, WinME, WinXP) mi to pri
> spusteni aplikace hlasi viz. Subject. Nesetkal jste se s tim
> nekdo, resp. v cem by mohl byt problem?
> Pro upresneni: kontroloval jsem, ze na stroji, kde to zlobi
> neni jina verze MIDAS.DLL (napr. ve WIN\SYSTEM) => zlobi
> verze MIDAS.DLL, ktera mi na jinych strojich bezi OK.
Nie je lepsie dat si MidasLib do uses? Tym padom linkujes kod ohladne client
dataset, provider atd. priamo do svojej aplikacie a vobec nepotrebujes
pouzivat midas.dll. To plati rovnako pre server ako pre klientov.
HTH
TOndrej
Access violation v konstruktoru
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 22.10.2004 10:43:01
Ahoj vsichni
Mam nasledujici problem a zoufale prosim o pomoc. Vytvoril jsem si vlastni formular s vlastnim konstruktorem. Jako prvni prikaz se vola inherited create(AOwner) a ten zpusobi pad s AV.
Pri podrobnejsim krokovani pres unity delphi jsem si vsiml nasledujicich veci:
v unite system se jeste pred inherited vola funkce ClassCreate. V ni se preskoci instrukce
CALL DWORD PTR [EAX] + VMTOFFSET TObject.NewInstance
v DL je hodnota 255
pri krokovani TCustomForm.Create mi to spadne na volani CreateNew(AOwner);
V konstruktoru jsem pouzival virtualni metodu, ale ani jeji odstraneni mi nepomohlo. Nevite kde delam chybu? Prosim poradte.
Jaromir Cermak
Acrobat Reader check
[*] mstevlik(zv)gamo.sk - 22.10.2004 08:22:49
> Hi all,
> Potrebujem vo svojej delphi app zobrazovat pdf, takze som si
naimportoval
> activex control acrobatreadra verzie 6.0.1, kt. mam na svojom stroji
> Ked som to dal kolegovi uz ako exe a on mal len verziu 5.0 tak mu to pri
> otvoreni formu kde ten control je vyhucalo "Modul nebyl nalezen" :(
> Takze sa vas pytam, viem nejako osetrit ci sa na danom PC nachadza dana
> verzie acrobatreadera a ak nie, tak ten activex control nepouzit
> Bojim sa toho ze to uz vyhuci pri USES kde je spominana PdfLib_TLB :(
Naozaj tu nikto nerobi s PDF? Alebo namiesto ActiveX komponenty AR
pouzivate nieco ine?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +421 905 462010
icq: 38493645
Databaze
[*] Pavel Troubil <mechzk(zv)cbeng(tec)cz> - 22.10.2004 08:14:48
Dobry den,
prosim o radu. Mam zakladni znalosti o Delphi. Potrebuji poradit literaturu, kde se da neco precist jak tvorit aplikace s databazemi. Predem dik. Pavel
Error loading MIDAS.DLL
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 22.10.2004 07:52:46
Dobry den,
mam aplikaci v D6, ktera pouziva ClientDataset. Na nekterych PC (ruzne
konfigurace s ruznymi OS, WinME, WinXP) mi to pri spusteni aplikace hlasi
viz. Subject. Nesetkal jste se s tim nekdo, resp. v cem by mohl byt problem
? Pro upresneni: kontroloval jsem, ze na stroji, kde to zlobi neni jina
verze MIDAS.DLL (napr. ve WIN\SYSTEM) => zlobi verze MIDAS.DLL, ktera mi na
jinych strojich bezi OK.
Diky
Ondrej
OT: service_mgr
[*] Kalhous <kalhous(zv)eu(tec)cz> - 22.10.2004 07:06:43
Pri volani backup z programu D7 (komponenta IBBackupService) se na nekterych pocitacich objevi hlaska
Cannot attach to services manager
service service_mgr is not defined
da se s tim neco delat (tedy myslim z programu D7)?
Z.Kalhous
ToWare s.r.o.
ActiveX Form
[*] Suky <suky(zv)atlas(tec)cz> - 22.10.2004 01:18:17
Dobry den,
20. listopadu 2004, 15:59:55, napsal jste:
S> Ahoj,
S> jakto, ze mi ActiveX Form neodchytava pretazene soubory? Zaregistruji okno k
S> odberu souboru: DragAcceptFiles(Handle, True);
S> ovsem nic se nedeje.
S> Pokud na ActiveX Form umistim WebBrowser a ma nastavenou property:
S> RegisterAsDropTarget := True;
S> tak mi tento browser odchytne pretazeny soubor, ktery udalosti:
S> OnBeforeNavigate2 dokazu zachytit v promenne URL. Ovsem ma to hacek, ze
S> nedokazu odchytit vic souboru, jen jeden.
S> Proste mi nejde do hlavy proc mi zaprve nefunguje registrace: DragAcceptFiles a
S> za druhe se ptam, jestli je alespon moznost prijimat pretazene soubory na
S> komponentu TWebBrowser. Jelikoz mi tu nikdo neporadil a nastesti mi dokazal pomoc jeden muj kamarad s
tim, ze mi pomol nasmerovat spravnym smerem, napisu Vam sem reseni.
Pokud nekdy budete delat ActiveX Form a budete potrebovat Drag&Drop, pouzijte
IDropTarget interface:
function DragEnter(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
function DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
function DragLeave: HResult; stdcall;
function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
Podrobne info najdete na MSDN a vsude na netu pomoci googla.
--
S pozdravem,
Michal Soukup
suky(zv)atlas(tec)cz
D7 a sprava rozsahleho projektu
[*] Jiri Fait <develop(zv)lmss(tec)cz> - 21.10.2004 22:50:02
Mam dotaz,
V aplikaci pouzivame velke mnozstvi framu, datamodulu a unit. Projekt se
stava celkem neprehledny. Lze nejak resit rozdeleni projektu do mensich
casti?
DLL jsou asi celkem nepouzitelne.
Jde mi spis o to, ze najednou pracuji jenom s urcitou casti projektu,
dejme tomu evidenci adres, a chtel bych v tom okamziku mit v Project
Manageru Delphi jenom ty unity se kteryma pracuji.
Nevite nekdo jak na to?
Jiri Fait
ANN: Delphi2005 Trial
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 21.10.2004 20:31:53
Na
http://www.borland.com/products/downloads/download_delphi.html#
je ke stazeni Borland Delphi 2005 Architect Trial.
Zdravim
Jiri Foldyna
OT: Konference Borlandu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.10.2004 21:42:19
Ahoj, nejede nekdo z Vas nahodou z Brna v utery na konferenci Borlandu do
Prahy?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
MSSQL linked server a T-SQL
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 20.10.2004 19:32:10
Tak mi to Outlook nejak divne preformatoval :)
Takze jeste jednou jak si predstavuji ten script:
--nejake T-SQL prikazy ......
....
....
IF ServerJeDostupny=1
BEGIN
-- tady se bude komunikovat s objekty linked serveru
END
ELSE
BEGIN
-- tady nahrada kdyz je nedostupny
END
-- dalsi T-SQL prikazy
.....
.....
Ludek
Sprava opravneni vo WinXP
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 20.10.2004 19:28:09
On Behalf Of Lucky62
> viete niekto poradit nejaky nastroj na spravu opravneni
> jednotlivych userov vo WinXP? WinXP budu v sieti so serverom
> Win SBS 2003 Premium.
>
> Jedna sa mi hlavne o to, aby som zakazal pre beznych userov
> menit niektore nastavenia a aby nemohli svojvolne instalovat
> kdejaky software.
Ahoj,
Pocitace (musi to byt XP pro) prihlas do site, vytvor domenove uzivatele
a je to...
SBS ma na to svoje nastroje - politiky a je tam spousta uz
prednasatvenych skupin uzivatelu.
Ludek
MSSQL linked server a T-SQL
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 20.10.2004 18:54:07
Zdravim,
Potrebuji uvnitr ulozene procedury, tedy v T-SQL nejak rychle otestovat
zda je dostupny jiny SQL server na jinem stroji.
Mam ho prilinkovany jako linked server a potrebuji neco jako
--T-SQL prikazy
......
IF ServerJeDostupny=1
BEGIN
END
......
--T-SQL prikazy
Zkousel jsem sp_linkedservers apod. ale nepodarilo se mi najit nic co by
rychle poznalo ze server neni dostupny .
Jediny zpusob je pokusit se pristoupit k nejakemu objektu na vzdalenem
serveru, ale to ma dva problemy :
1) vzdy se ceka celou dobu na connection timeout
2) vzdy to vyvola vyjjimku a script tedy nedobehne do konce jak bych
potreboval.
Predem dik.
Ludek
Export dat z FB do mySQL
[*] David Klodner <delphikonfer(zv)seznam(tec)cz> - 20.10.2004 16:03:55
Ahoj,
nevite nekdo, jak jednoduse vyexportovat data z FB do mySQL? Potrebuju
jen urcite tabulky a z nich urcita pole.
Potrebuju totiz updatovat databazi na webu ze svoji aplikace.
David Klodner
D5, FB1.5
ActiveX Form
[*] Suky <suky(zv)atlas(tec)cz> - 20.10.2004 15:59:55
Ahoj,
jakto, ze mi ActiveX Form neodchytava pretazene soubory? Zaregistruji okno k
odberu souboru: DragAcceptFiles(Handle, True);
ovsem nic se nedeje.
Pokud na ActiveX Form umistim WebBrowser a ma nastavenou property:
RegisterAsDropTarget := True;
tak mi tento browser odchytne pretazeny soubor, ktery udalosti:
OnBeforeNavigate2 dokazu zachytit v promenne URL. Ovsem ma to hacek, ze
nedokazu odchytit vic souboru, jen jeden.
Proste mi nejde do hlavy proc mi zaprve nefunguje registrace: DragAcceptFiles a
za druhe se ptam, jestli je alespon moznost prijimat pretazene soubory na
komponentu TWebBrowser.
--
S pozdravem,
Michal Soukup
suky(zv)atlas(tec)cz
Kylix a Linux Mandrake 10.0
[*] konf_delphi(zv)centrum(tec)cz - 20.10.2004 15:13:51
Resil jsem podobny problem na MDK 10.1 Community. Jednak Kylix neumi
pracovat s knihovnami glibc vyssimi jak 2.2 (tusim ?), nekdo musi
nainstalovat jeste knihovny compat-glibc. Me ale na MDK 10.1 stacilo do
spousteciho skriptu Kylixu (startkylix a startbcb) hned na zacatek export
tehle promenne "export LD_ASSUME_KERNEL=2.2.5" nebo "export
LD_ASSUME_KERNEL=2.4.1" (nepokousejte se tam napsat verzi sveho kernelu,
nepomuze to - nebo alespon mne ne). Pred tim jsem ale jeste nainstaloval
zaplaty z techto webu: http://www.kylix-patch.de.vu/ a tento:
http://mitglied.lycos.de/AndreasHausladen/Delphi/Kylix/CLXPatches/downloads/
k3fix.tgz. Pak uz vse jede jak ma.
PS: pro spusteni kylix binarek potrebujete do /usr/lib nakopirovat knihovnu
libborqt.so(nebo nejak podobne - nazev bude asi obsahovat nazev verze
knihovny), mela by byt v k3path/bin/
Hodne mi tehda pomohlo abclinuxu(tec)cz a tento thread:
http://www.abclinuxu(tec)cz/forum/show/51651
> Ahoj.
> Potrebuji poradit s Kylixem na Linuxu Mandrake 10.0. Zkusil jsem
nainstalovat a
> zaktivovat celkem bez vetsich problemu.
> Problem nastane v okamziku, kdy chci spustit aplikaci "Run" z Kylixu (jak
Delphi tak
> C). Chova se to jako by aplikace zamrzla. Kdyz se po dlouhe dobe objevi
formular, je
> bez
> jakekoliv kompomenty (i jen Label).
> Nikde jinde jsem nenasel konferenci zabivajici se jen Kylixem a tak prosim
o pomoc
> tady.
> Diky
> S pozdravem Mirek Vopalecky, D7 W2000
formulare vs. MDI resp. new framework
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 20.10.2004 14:03:46
> - stale je otvoreny iba jeden form (v tej pravej casti)
Co tak mit na cely form roztazeny (t.j. vsechny Anchor na true)
TPageControl s TabPosition nastavenym na tpLeft ? Sirka ousek se pak
ale nastavuje neobvyklym TabHeight ;-) a aby Caption nebyly nalezato,
musis je v OnDrawTab malovat 'rucne', t.j. pomoci
Control.Canvas.TextOut.Interbase/Firebird - chybny typ fieldu
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 20.10.2004 13:19:43
> SELECT jmeno, prijmeni, pocet, round(pocet/5000,1) AS xx FROM
ciselnik;
> field "xx" se nadefinuje jako typ integer a nikoliv float.
Kdybys to psal v Pascalu, bylo by ti to jasne hned: vysledek je
integer, kdyz misto '/' das 'div'. V prostredi, kde pro oba pripady je
'/', musis typ vysledku urcit explicitne, staci napriklad
pocet / 5000.0
nebo explicitne pretypovat ten 'pocet' volanim vhodne funkce.Zjisteni lokalni IP
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 20.10.2004 12:45:41
> potrebuju nejak zjistit lokalni IP adresu rozhrani,
> pres kterou UDP pozadavek prisel.
To jsem nenasel nikde, ale dalo by se to udelat tak, ze naslouchas na
kazdem interface socketem pojmenovanym podle site, do ktere je ten
interface pripojen. A podle socketu, ze ktereho to prislo, urcis
interface.
Ve Windows dostanes seznam interfejsu volanim WSAIoctl s funkci
SIO_ADDRESS_LIST_QUERY a v linuxu je to getifaddrs. Z nabizeneho
seznamu vybirej jen IPv4 (sin_family = AF_INET) polozky.Jak na ikonku do FB?
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 20.10.2004 12:33:40
On 19 Nov 2004 at 23:52, Karel Pecinka wrote:
> potreboval bych pro sve run-time generovane formulare ulozit ikonku do
> db (FB1.5) a tak zvazuju, zda pouzit blob nebo varchar. Zajima me Vas
> nazor. S varcharem se lip pracuje, na druhou stranu by mohla byt
> potreba data nejakym zpusobem zakodovat (mozna do nejakyho mime??).
> Jedna se o stovky bajtu, maximalne par kB. Co vy na to?
koukni tady:
http://www.volny(tec)cz/iprenosil/interbase/ip_ib_strings.htm
Jarek Uher
Co ve FB nejde...
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 20.10.2004 12:27:39
Ahoj.
Jestli jsem dobre pochopil jedna se o zobrazeni libovolne tabulky ve
formulari. Pokud je tomu tak staci nedefinovat do formulare DBgrid a
DBnavigator. DBGrid zobrazi libovolne sloupce, pokud mu nejou vyplneny
sloupce natvrdo. A jako data pouzit libovolny datovy zdroj a SQL prikaz
navazany na datovy zdroj, ktery zobrazi co se ma zobrazit. Vse se pak da
menit jen zmenou datoveho zdroje a prekreslenim DBGridu. Problem je v tom,
ze SQL prikazy nemusi fungovat stejne nad jednotlivymi databazemi. Skladbu
SQL prikazu je nutno udelat na zaklade znalosti datoveho providera. To co
funguje pod FB nefunguje pod MSSQL (a tedy i Access).
S pozdravem Mirek Vopalecky, D7 W2000
|-----Original Message-----
|From: delphi-l-owner(zv)clexpert(tec)cz
|[mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of delphi(zv)hon(tec)cz
|Sent: Thursday, November 18, 2004 9:51 AM
|To: delphi-l(zv)clexpert(tec)cz
|Subject: Co ve FB nejde...
|
|
|Ahoj..
|
|mejme nasledujici problem. Uzivatel by mel mit moznost
|zobrazit tabulku o libovolnem poctu sloupcu. Neuvazuji o ceste
|menit metadata, musim na to jinak. Tabulky vypadaji napr. takto:
|
|
|CREATE TABLE DENIK (
| ID INTEGER,
| DATUM TIMESTAMP,
| TEXT VARCHAR (64),
| CASTKA DECIMAL (8, 2),
| SLOUPEC INTEGER);
|
|CREATE TABLE DENIK_SLOUPCE (
| ID INTEGER NOT NULL,
| TEXT VARCHAR (20) CHARACTER SET WIN1250 COLLATE PXW_CSY,
| TYP VARCHAR (1) CHARACTER SET WIN1250 DEFAULT 'A' COLLATE WIN1250,
| DANOVY VARCHAR (1) CHARACTER SET WIN1250 DEFAULT 'A'
|COLLATE PXW_CSY);
|
|INSERT INTO DENIK (ID, DATUM, TEXT, CASTKA, SLOUPEC) VALUES
|(1, '11/15/2004', 'AaA', 100, 1); INSERT INTO DENIK (ID,
|DATUM, TEXT, CASTKA, SLOUPEC) VALUES (2, '11/15/2004', 'bbb', 250, 3);
|
|INSERT INTO DENIK_SLOUPCE (ID, TEXT, TYP, DANOVY) VALUES (1,
|'Prijmy danove', 'P', 'A'); INSERT INTO DENIK_SLOUPCE (ID,
|TEXT, TYP, DANOVY) VALUES (3, 'Vydaje danove', 'V', 'A');
|INSERT INTO DENIK_SLOUPCE (ID, TEXT, TYP, DANOVY) VALUES (2,
|'Prijmy nedanove', 'P', 'N'); INSERT INTO DENIK_SLOUPCE (ID,
|TEXT, TYP, DANOVY) VALUES (4, 'Vydaje nedanove', 'V', 'N');
|
|
|A ja potrebuji vysledek
|
|
|TEXT Prijmy danove Vydaje danove Prijmy
|nedanove Vydaje
|nedanove
|---------------------------------------------------------------
|---------------------------------------
|AaA 100
|bbb 250
|
|
|
|V MS SQL bych na to sel tak, ze si udelam docasnou tabulku a
|pak ji v SP vytvoril a naplnil daty. V FB takto ulozene SP
|nepracuji a je nutno (ma/li to byt SP vracejici vice
|radku) mit presne definovany
|navratove hodnoty coz neni mozne, kdyz se ma pocet sloupcu
|menit. Ma nekdo nejaky napad? Neco co jsem v dokumentaci prehlidl?
|
|Dik
|
|Martin
Kylix a Linux Mandrake 10.0
[*] Lucky62 <lucky62(zv)szm.sk> - 20.10.2004 12:17:38
Mam rovnake skusenosti na RedHat9:
Chcel vyskusat Kylix 3 Enterprise (Linux) - Trial Edition
a chovalo sa to rovnako - pri RUN zmrzlo.
Naproti tomu Kylix 3 Open Edition mi chodil bez problemov.
Lucky.> Ahoj.
> Potrebuji poradit s Kylixem na Linuxu Mandrake 10.0. Zkusil jsem
> nainstalovat a zaktivovat celkem bez vetsich problemu.
> Problem nastane v okamziku, kdy chci spustit aplikaci "Run" z Kylixu (jak
> Delphi tak C). Chova se to jako by aplikace zamrzla. Kdyz se po dlouhe
dobe
> objevi formular, je bez jakekoliv kompomenty (i jen Label).
> Nikde jinde jsem nenasel konferenci zabivajici se jen Kylixem a tak prosim
o
> pomoc tady.
> Diky
> S pozdravem Mirek Vopalecky, D7 W2000
Kylix a Linux Mandrake 10.0
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.10.2004 12:11:38
Ing. Miroslav Vopalecky wrote:
> Ahoj.
> Potrebuji poradit s Kylixem na Linuxu Mandrake 10.0. Zkusil jsem
> nainstalovat a zaktivovat celkem bez vetsich problemu.
> Problem nastane v okamziku, kdy chci spustit aplikaci "Run" z Kylixu (jak
> Delphi tak C). Chova se to jako by aplikace zamrzla. Kdyz se po dlouhe
> dobe objevi formular, je bez jakekoliv kompomenty (i jen Label). Nikde
> jinde jsem nenasel konferenci zabivajici se jen Kylixem a tak prosim o
> pomoc tady.
> Diky
> S pozdravem Mirek Vopalecky, D7 W2000
http://qc.borland.com/wc/wc.exe/details?reportid=8054
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Kylix a Linux Mandrake 10.0
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 20.10.2004 12:05:37
Ahoj.
Potrebuji poradit s Kylixem na Linuxu Mandrake 10.0. Zkusil jsem
nainstalovat a zaktivovat celkem bez vetsich problemu.
Problem nastane v okamziku, kdy chci spustit aplikaci "Run" z Kylixu (jak
Delphi tak C). Chova se to jako by aplikace zamrzla. Kdyz se po dlouhe dobe
objevi formular, je bez jakekoliv kompomenty (i jen Label).
Nikde jinde jsem nenasel konferenci zabivajici se jen Kylixem a tak prosim o
pomoc tady.
Diky
S pozdravem Mirek Vopalecky, D7 W2000 Jak na ikonku do FB?
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 19.10.2004 23:52:47
Zdar chlapi,
potreboval bych pro sve run-time generovane formulare ulozit ikonku do
db (FB1.5) a tak zvazuju, zda pouzit blob nebo varchar. Zajima me Vas
nazor. S varcharem se lip pracuje, na druhou stranu by mohla byt potreba
data nejakym zpusobem zakodovat (mozna do nejakyho mime??). Jedna se o
stovky bajtu, maximalne par kB. Co vy na to?
Karel
SQL a vypocet
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.10.2004 20:04:32
Pavel Poles wrote:
> No myslim ze by to spis melo byt 60/200 nez 200/60 :-)
He. Aha. ;)
Dneska jsem psal 1/2 semestralni pisemku s "formalu", tak jsem trochu mimo.
Takhle uz to vypada realneji. Diky.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
SQL a vypocet
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 19.10.2004 19:32:30
>
> A jak si dospel k tem procentum???
>
> 60+120+20 = 200
> 200/60 = 3,33333333333
>
> To tam chces jako i zaokrouhlovani? Tak to asi nepujde.
>
> Jinak pokud by to melo byt tech 33,3% co si na to udelat nejakou PL/SQL
> procedurku?
No myslim ze by to spis melo byt 60/200 nez 200/60 :-)
Jinak co treba nejak takhle:
SELECT
SUM(A)/SUM(A+B+C)*100 AS A,
SUM(B)/SUM(A+B+C)*100 AS B,
SUM(C)/SUM(A+B+C)*100 AS C
FROM TABULKA
Jediny hacek je v tom ze SUM(A+B+C) nesmi byt 0.
Pavel Poles
SQL a vypocet
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.10.2004 19:18:29
Matejcek Petr wrote:
> dd mam tabulku o sloupcich A, B,C
>
> provedu prikaz select sum(A), sum(B), sum(C) vrati mi to jeden radek
> rekneme o techto cislech 60, 120, 20 (at se to dobre pocita) a ja
> potrebuju aby mi to vratil v procentech tedy 30%, 60%, 10% jaky mam
> pouzit prikaz ?
A jak si dospel k tem procentum???
60+120+20 = 200
200/60 = 3,33333333333
To tam chces jako i zaokrouhlovani? Tak to asi nepujde.
Jinak pokud by to melo byt tech 33,3% co si na to udelat nejakou PL/SQL
procedurku?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
SQL a vypocet
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 19.10.2004 19:06:28
dd mam tabulku o sloupcich A, B,C
provedu prikaz select sum(A), sum(B), sum(C) vrati mi to jeden radek
rekneme o techto cislech 60, 120, 20 (at se to dobre pocita) a ja
potrebuju aby mi to vratil v procentech tedy 30%, 60%, 10% jaky mam
pouzit prikaz ?
firebird 1.0.3
diky PM
ukladani ikon nactenych API funkcemi
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 19.10.2004 18:56:27
Vlastimil Burian wrote:
>> Tusim je to proto, ze Delphi nepodporuje vice jak 16 barev
>> - podivej se po internetu - vali se tam rada workaroundu.
>
> na netu nemuzu nic najit ... nemuzete me nekdo nahodit ??? nebo aspon
> nejakej link
Ruzne vylepsenych TIcon jsme meli docela slusnou sbirku,
ale protoze jsme hledali neco jineho nez resily, tak jsme to zase smazali
(pokud si to pamatuju, tak resili prave SaveToFile ve vice nez 16 barvach).
Rekl bych, ze cast jsme jich ziskali pres odkazy v prispevcich vyhledanych
Googlem v Groups i na Webu podminkou *Delphi TIcon 256 Colors*
nebo nejak podobne.
A urcite nejake byly na Torry, zrejme nekde v sekci VCL | Graphics | Icons.
pf
OT: Sprava opravneni vo WinXP
[*] Lucky62 <lucky62(zv)szm.sk> - 19.10.2004 17:36:21
Zdravim,
viete niekto poradit nejaky nastroj na spravu opravneni jednotlivych userov
vo WinXP?
WinXP budu v sieti so serverom Win SBS 2003 Premium.
Jedna sa mi hlavne o to, aby som zakazal pre beznych userov menit niektore
nastavenia
a aby nemohli svojvolne instalovat kdejaky software.
Ma niekto skusenosti?
Vdaka za nasmerovanie.
Lucky.
Acrobat Reader check
[*] mstevlik(zv)gamo.sk - 19.10.2004 17:38:21
Hi all,
Potrebujem vo svojej delphi app zobrazovat pdf, takze som si naimportoval
activex control acrobatreadra verzie 6.0.1, kt. mam na svojom stroji
Ked som to dal kolegovi uz ako exe a on mal len verziu 5.0 tak mu to pri
otvoreni formu kde ten control je vyhucalo "Modul nebyl nalezen" :(
Takze sa vas pytam, viem nejako osetrit ci sa na danom PC nachadza dana
verzie acrobatreadera a ak nie, tak ten activex control nepouzit
Bojim sa toho ze to uz vyhuci pri USES kde je spominana PdfLib_TLB :(
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +421 905 462010
icq: 38493645
formulare vs. MDI resp. new framework
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 19.10.2004 16:54:18
Ja to delam taky tak.
Jak uvadel nekdo v jinem prispevku - reseni s framy mam ty nejhorsi
zkusenosti (teda v D5).
Nevim, ktere hotkeye mas na mysli, ty ktere jsou z hlavniho menu odchyti ten
mainform a musi se aktualnimu oknu predat v nejake procedure, pokud chci
nejake "lokalni" hotkeye, tak to resim pomoci popup menu, ktere priradim v
TFORM.POPUPMENU toho subokna. Pokud nechci, aby se to popup menu
zobrazovalo, tak dam vsecky polozky VISIBLE:=false.
Tomas Bradle
t.bradle(zv)sanet(tec)cz
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: "Ing. Petr Sikola" <developer(zv)efg(tec)cz>>
> TEditacniForm muzeme pak pouzit primo do okna v hlavnim formu (viz kod
> nahore) i jako samostatnej form (klasicky create,showmodal,free)
>
> akorat jedinej problem, ktery jeste nemame vyresenej je ten, ze nam
> nefunguji hotkey v tom vkladanym formu (hlavni form je sezere driv) -
> poradite nekdo jak to rozchodit (v podstate predat stisk hotkeye z
> jednoho formu do druhyho)?
>
> Mame to v D5
>
> Petr Sikola
Adresar Windows System
[*] Jiri Baudys <konference(zv)baudys.name> - 19.10.2004 11:17:52
Osobne pouzivam TjvDirectories z jedi (www.delphi-jedi.org)
jirka
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Kalhous
Sent: Friday, November 19, 2004 10:44 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Adresar Windows System
Muzete poradit jak z programu zjistim adresar ve kterem je "jadro systemu
windows" - obvykle C:\Windows\System32\, D:\WinNT\System32\ usw.
Z.Kalhous
ToWare s.r.o.
Adresar Windows System
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 19.10.2004 11:35:54
Zkus tuhle fci ...
function getWinDir:string;
var pWinDir:PChar;
iLength:integer;
Begin
iLength := 255;
GetMem(pWinDir, iLength);
GetWindowsDirectory(pWinDir, iLength);
Result := string(pWinDir);
FreeMem(pWinDir, iLength);
end;
+ mam dojem, ze budes muset pouzit knihovnu SysUtils
Milan
TThread vs BeginThread
[*] delphin(zv)post(tec)cz - 19.10.2004 11:21:52
> Jen si proste nejsem jisty co udela TerminateThread(MyThread.Handle) kdyz
uz je to nutne a bude-li to mit vliv na udalost OnTerminate.. Rekl bych, ze
s klidkem provedu
TerminateThread nasilne ukonci vlakno a protoze se vlakno nemuze ukoncit
regulerne, zpravidla posleze dojde v prislusne procesu k nepredvidatelnym
chybam. OnTerminate se nevyvola, protoze ho nema kdo zavolat.Co ve FB nejde...
[*] delphi(zv)hon(tec)cz - 19.10.2004 11:19:52
No vida, kolik se seslo vtipnych reseni. Nicmene mi
jde o to, abych mohl vysledek videt v jakemkoli
SQL editoru nebo jeste lepe, chci oddelit datovy vystup
od jeho zobrazovani a celou problematiku zobecnit
(duvod je, ze se chci neco naucit, ne ze to budu zitra
programovat).
Martin
----- Original Message -----
> Nevim, jestli Ti toto reseni bude vyhovovat, ale my to resime tak, ze
>
> 1. krok udelam proceduru, kde hodnoty sloupcu, kdy neznas pocet
> zapisujem do radku a k tomu pridame nazev hodnoty a pripadne
> typ :
> napr:. Field_Name Field_Value Field_Type
> Pole_1 1 ftInteger
> Pole_2 '2' ftString
> .
> .
> Pole_n n ftInteger
>
> 2. Pouziti nejakeho MemTable, kde v runtimu, vytvorim jednotlive fieldy
> podle typu a hodnoty z radku z procedury prevedem do sloupcu MemTable
Co je noveho v Delphi 2005
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.10.2004 11:15:51
From: "Jiri Cincura" <diskuze(zv)cincura.net>
> Pekny clanek, kde najdete vse co je noveho v D2005 je na BDN:
A dalsi je tady:
http://hallvards.blogspot.com/2004/11/delphi-2005-reviewers-guide.html
Petr Vones
ActiveForm, Drag and Drop souboru
[*] Libor Janecek <libor.janecek(zv)cegedim(tec)com> - 19.10.2004 10:41:48
Vyzkousej VirtualShellTools
Libor OT: Co je noveho v Delphi 2005
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.10.2004 10:41:48
Pekny clanek, kde najdete vse co je noveho v D2005 je na BDN:
FW:
A Technical White Paper By Bob Swart on all that's new in Delphi 2005
http://bdn.borland.com/article/0,1410,32778,00.html
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Adresar Windows System
[*] Kalhous <kalhous(zv)eu(tec)cz> - 19.10.2004 10:43:49
Muzete poradit jak z programu zjistim adresar ve kterem je "jadro systemu windows" - obvykle
C:\Windows\System32\, D:\WinNT\System32\ usw.
Z.Kalhous
ToWare s.r.o.
Adresar Windows System
[*] Jiri Virt <virt(zv)volny(tec)cz> - 19.10.2004 10:49:49
WinAPI
GetSystemDirectory
Jirka Virt
TThread vs BeginThread
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 19.10.2004 10:45:49
Ahoj, prosim o radu
Muzu ukoncit vlakno vytvorene takto
MyThread := TThread.Create(...)
f-ci TerminateThread?
Jedna se o to, ze pouzivam (musim) 3rd party knihovnu, ktera nekdy zatuhne, proto ji taky poustim v threadu, delam to pomoci BeginThread, ted probiha lehky refaktoring kodu a pouzil bych asi TThread, jina vlakna, ktera spoustim muzou zase profitovat s vlastnosti Terminated.
Jen si proste nejsem jisty co udela TerminateThread(MyThread.Handle) kdyz uz je to nutne a bude-li to mit vliv na udalost OnTerminate.. Rekl bych, ze s klidkem provedu
TerminateThread(MyThread.Handle);
MyThread.Free;
a vse ok? OnTerminate se asi nevyvola.
Co po TerminateThread volat MyThread.Terminate misto Free?
Dik za radu odjakziva pouzivam BeginThread, s TThread nemam zkusenosti.
A.B.
D4 WXPPro
Co ve FB nejde...
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 19.10.2004 08:57:39
----- Original Message -----
From: <delphi(zv)hon(tec)cz>> Ahoj..
>
> mejme nasledujici problem. Uzivatel by mel mit moznost
> zobrazit tabulku o libovolnem poctu sloupcu. Neuvazuji o ceste
> menit metadata, musim na to jinak. Tabulky vypadaji napr. takto:
>
Nevim, jestli Ti toto reseni bude vyhovovat, ale my to resime tak, ze
1. krok udelam proceduru, kde hodnoty sloupcu, kdy neznas pocet
zapisujem do radku a k tomu pridame nazev hodnoty a pripadne
typ :
napr:. Field_Name Field_Value Field_Type
Pole_1 1 ftInteger
Pole_2 '2' ftString
.
.
Pole_n n ftInteger
2. Pouziti nejakeho MemTable, kde v runtimu, vytvorim jednotlive fieldy
podle typu a hodnoty z radku z procedury prevedem do sloupcu MemTable
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
Komponenta pro zadavani datumu
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 19.10.2004 07:49:35
Tady je kousek kodu, ktery resi tvorbu data v normalnim TEdit.
Doplnte si to do nejake sve komponenty.
Vystupem je datum ve formatu d.m.yyyy
Petr
try
sText := Text;
while Pos(',', sText) > 0 do //nahrad pripadne carky za tecky
begin
nPozice := Pos(',', sText);
Delete(sText,nPozice,1);
Insert('.',sText,nPozice);
end;
If Length(sText) = 1 Then
begin //v pripade ze retezec je jen jeden znak dlouhy dopln tecku a
mesic a rok
sText := sText + '.'+
IntToStr(MonthOf(Date))+'.'+IntToStr(YearOf(Date));
end
Else If ((Length(sText) = 2) AND ( Pos('.',sText)=0) ) then
begin //v pripade ze retezec je dva znaky dlouhy a neobsahuje tecku tak
dopln tecku a mesic a rok
sText := sText + '.'+
IntToStr(MonthOf(Date))+'.'+IntToStr(YearOf(Date))
end
Else If ((Length(sText) = 2) AND (Pos('.',sText)>0) ) Then
begin //v pripade ze retezec je dva znaky a dlouhy a obsahuje tecku tak
dopln mesic a rok
sText := sText + IntToStr(MonthOf(Date))+'.'+IntToStr(YearOf(Date));
end
Else If ((Length(sText) = 3) AND (Pos('.',sText)=2) ) Then
begin //v pripade ze retezec je tri znaky a dlouhy a obsahuje tecku na
druhem miste tak dopln tecku a rok
sText := sText + '.'+IntToStr(YearOf(Date));
end
Else If ((Length(sText) = 3) AND (Pos('.',sText)=3) ) Then
begin //v pripade ze retezec je tri znaky a dlouhy a obsahuje tecku na
tretim miste tak dopln mesic a rok
sText := sText + IntToStr(MonthOf(Date))+'.'+IntToStr(YearOf(Date));
end
Else If ((Length(sText) = 4) AND (Pos('.',sText)=3) ) Then
begin //v pripade ze retezec je ctyri znaky a dlouhy a obsahuje tecku na
tretim miste tak dopln tecku a rok
sText := sText + '.'+IntToStr(YearOf(Date));
end
Else If ((Length(sText) = 4) AND (Pos('.',sText)=4) ) Then
begin //v pripade ze retezec je ctyri znaky a dlouhy a obsahuje tecku na
ctvrtem miste tak dopln rok
sText := sText + IntToStr(YearOf(Date));
end
Else If ((Length(sText) = 6) AND (sText[6]='.') ) Then
begin //v pripade ze retezec je sest znaku a dlouhy a obsahuje tecku na
sestem miste tak dopln rok
sText := sText + IntToStr(YearOf(Date));
end
Else If ((Length(sText) < 6) AND (Pos('.',sText)=0)) then
begin //pokud je retezec dlouhy mene nez 6 znaku a neobsahuje jednu
tecku tak dopln dnesni datum
sText := DateToStr(Date);
end
Else If ((Length(sText) < 6) AND (Pos('.',sText)> 0)) then
begin //pokud je retezec dlouhy mene nez 6 znaku a obsahuje jednu tecku
tak dopln rok
sText := sText + '.'+IntToStr(YearOf(Date));
end;
If Pos('..', sText) > 0 Then
begin //pokud doslo ke zdvojeni tecky tak to oprav
nPozice := Pos('..', sText);
Delete(sText,nPozice,1);
end;
Text := sText;
StrToDate(Text);
Except
begin
MessageDlg('Vlozeny udaj neni platnym datem. Nastavuji dnesni
datum.',mtError, [mbOK],0);
Text := DateToStr(Date);
SetFocus;
Exit;
end;
On Behalf Of Karel Pecinka
> poradite nekdo nejakou sikovnou kompoentu, ktera uzivateli umozni
> zadavat rychle datum z klavesnice (napr. 1710 bude 17.10. a doplni se
> rok, 17 bude 17. 10. a doplni se aktualni mesic a rok atd.)? Nebylo by
> ani spatny kdyby mel uzivatel i alternativni variantu rozbalit si
> graficky kalendar podobne jako to ma datetimepicker, ale to uz neni
> tak potreba. A kdyby ta komponenta byla rovnou db, tak by to byla
> uplne parada, ale to uz bych si eventuelne pridal.
Komponenta pro zadavani datumu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 19.10.2004 03:03:13
On Behalf Of Karel Pecinka
> poradite nekdo nejakou sikovnou kompoentu, ktera uzivateli
> umozni zadavat rychle datum z klavesnice (napr. 1710 bude
> 17.10. a doplni se rok, 17 bude 17. 10. a doplni se aktualni
> mesic a rok atd.)? Nebylo by ani spatny kdyby mel uzivatel i
> alternativni variantu rozbalit si graficky kalendar podobne
> jako to ma datetimepicker, ale to uz neni tak potreba. A
> kdyby ta komponenta byla rovnou db, tak by to byla uplne
> parada, ale to uz bych si eventuelne pridal.
Ahoj,
Mne se libi TEditSinea (viz. sada freeware komponent Sinea VCL pro
Delphi s uplnymi zdroji na www.sinea(tec)cz)
(EditType = ttDate)
Ludek
ActiveForm, Drag and Drop souboru
[*] Suky <suky(zv)atlas(tec)cz> - 18.10.2004 23:51:00
Dobry den,
snazim se o vytvoreni ActiveForm aplikace pro Internet Explorer, ktery ma jednu
funkci, umoznovat pretazeni souboru z pruzkumnika do TListView.
Vytvoril jsem si proceduru:
procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES;
Napred jsem zkusil v OnCreate registrovat ActiveForm pro prijem souboru
metodou:
DragAcceptFiles(Handle, True);
Bohuzel mi to nefungovalo a tak jsem jeste pouzil zpusob:
procedure TEasyUploader.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Exstyle := Params.Exstyle + WS_EX_ACCEPTFILES;
end;
...... bohuzel taky bez uspechu. Pokazde kdyz pretahuji soubory na ActiveForm,
pretahne si to k sobe Internet Explorer.
Snazil jsem se hledat pomoc na googlu a vysledkem je, ze jsem prosel
neuveritelne mnozstvi stranek, kde se porad dokolecka popisuji vsechny zpusoby,
ktere jsem vyzkousel, ale o ActiveForm a Drag & Drop jsem se nikde nedocetl.
Jste ma posledni nadeje. Software: Delphi5
--
S pozdravem,
Michal Soukup
suky(zv)atlas(tec)cz
Zjisteni lokalni IP
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 18.10.2004 22:26:54
Ahoj, cely thread jsem necetl, ale zjistuji IPcka lokalnich sitovek takto
(nekde jsem to kdysi cajznul nebo tak, ale funguje :)
procedure LoadIPAddressesToTStrings(aitems : TStrings);
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..255] of Char;
i : Integer;
GInitData : TWSADATA;
err : Integer;
begin
aitems.Clear;
err := WSAStartUp($101, GInitData);
if err = 0 then begin
i := 0;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(Buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
while pptr^[i] <> nil do begin
aitems.Add(StrPas(inet_ntoa(pptr^[i]^)));
inc(i);
end;
WSACleanUp;
end;
end;
----- Original Message -----
From: "Jakub Cermak" <cermiforum(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 15, 2004 7:31 PM
Subject: Re: Zjisteni lokalni IP
> No prave ze tech sitovek je vic. To ze loopback je 127.0.0.1 vim :).
>
> Jakub Cermak
> ja.cermi(zv)centrum(tec)cz
>
> ----- Original Message -----
> From: "l. vlcek" <l.vlcek(zv)noel-plus(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, November 15, 2004 10:10 AM
> Subject: Re: Zjisteni lokalni IP
>
>
>> Jakub Cermak napsal(a):
>>> Vim, ze je to zacatecnicky dotaz, ale nejak na to nemuzu prijit. Mam
>>> otevreny a funkcni serverovy UDP socket (nemyslim listening) a potrebuju
>>> nejak zjistit lokalni IP adresu rozhrani, pres kterou pozadavek prisel.
>> ???
>> lokalni adresa je typicky: 127.0.0.1, zvany loopback....
>>
>> Jestli mas na mysli adresu spojeni, ktere jsi otevrel proti jinemu
>> stroji, tak to "obvykle" byva adresa sitovky (pokud jich nemas vic).
>> :-)
>>
>> --
>> L.V.
>> jezevec
>>
>>
>>
>
> Komponenta pro zadavani datumu
[*] hlas <hlas(zv)inmail.sk> - 18.10.2004 16:41:25
ja pouzivam klasicku komponentu dbedit a vedla je tlacitko na kalendar
mam to osetrene tak, ze ak dojde k chybnemu vstupu procedura to
osetri tak ze sa z toho pokusi urobit datum najblizsi tomu vstupu
co nenajde do plni ako now.
napr z 15 spravi 15.11.2004
z 11*10 spravi 11.10.2004
z 11u12 spravi 11.12.2004 atd
strazi to jedina procedura:
procedure THform.MyException(Sender:TObject; E:Exception);
var wRok, wMesiac, wDen, wH, wM, wS, wMS: word;
i, sepCount, Pos1, Pos2, Pos3: byte;
DateStr, TimeStr, PomS, ZalohaS, Hod, Min, Sec: String;
var ABC: String;
F: TextFile;
begin
if (E.ClassType.ClassName='EConvertError') then
begin
if Sender is TDBEdit then
begin
with Sender as TDBEdit do
begin
if DataSource.DataSet.FieldByName(DataField).DataType=ftDate then
begin
decodedate(now,wRok,wMesiac,wDen);
SepCount := 0; // pocet separatorov =0
Pos1:=0; // pozicia 1. separatora=0
Pos2:=0; // pozicia 2. separatora=0
Pos3:=0; // pozicia 3. separatora=0
DateStr:=Text; // premennna datestr obsahuje datum, ktory sa
opravi
// nasl. cyklus zameni vs.ine znaky ako cisla 0-9 za '.' ako
separator
// a poznamena pozicie prvych troch separatorov
for i := 1 to Length(DateStr) do
if not (DateStr[i] in ['0'..'9']) then
begin
DateStr[i] := '.'; //DateSeparator;
inc(SepCount);
case sepCount of
3: Pos3:=i;
2: Pos2:=i;
1: Pos1:=i;
end;
end;
// vsetko za tretim separatorom zmaze - napr 11.3.2000.xxx.xxx.xx
// vratane tretieho separatora a pocet separatorov nastavi na 2
if SepCount>2 then
begin
Delete(DateStr, Pos3-1, Length(DateStr)-Pos3+1);
SepCount:=2;
end;
// doplni chybajuce casti aktualnym mesiacom a rokom
case sepCount of
0: DateStr:=DateStr+'.'+IntToStr(wMesiac)+'.'+IntToStr(wRok);
1: begin
if Pos1<Length(DateStr) then
DateStr:=DateStr+'.'+IntToStr(wRok)
else
DateStr:=DateStr+IntToStr(wMesiac)+'.'+IntToStr(wRok);
end;
2: begin
if Pos2=Length(DateStr) then
DateStr:=DateStr+IntToStr(wRok);
if Pos2-Pos1=1 then
Insert(IntToStr(wMesiac),DateStr,Pos2);
end;
end;
// ak je iny znak na 1. mieste ako cislo tak to cele vymaze
if Pos1=1 then DateStr:='';
// vlozi vysledok do bdeditu
Text:=DateStr;
end;
end
else
begin
Application.ShowException(E); {let Delphi take it from here}
end;
end;
Komponenta pro zadavani datumu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 18.10.2004 16:37:25
Karel Pecinka wrote:
> MaskEdit neprovadi kontrolu zadani spravnosti datumu, napr. umozni zadat
> 5. 13. atd.
To je pravda. Musel by sis to osefovat sam. :(
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Komponenta pro zadavani datumu
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 18.10.2004 16:29:24
MaskEdit neprovadi kontrolu zadani spravnosti datumu, napr. umozni zadat
5. 13. atd.> A co na to pouzit TMaskEdit? Ten ti ty tecky doplni a event.
> i mesice, pokud si to nastavis pri startu.Komponenta pro zadavani datumu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 18.10.2004 16:19:23
Karel Pecinka wrote:
> Zdar,
>
> poradite nekdo nejakou sikovnou kompoentu, ktera uzivateli umozni zadavat
> rychle datum z klavesnice (napr. 1710 bude 17.10. a doplni se rok, 17
> bude 17. 10. a doplni se aktualni mesic a rok atd.)? Nebylo by ani spatny
A co na to pouzit TMaskEdit? Ten ti ty tecky doplni a event. i mesice, pokud
si to nastavis pri startu.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
ANN:Databazovy svet 2004
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 18.10.2004 16:17:23
Preji hezky den,
protoze se tu pomerne casto bavime i o databazich,
dovoluji si vas vsechny s Petrovym svolenim pozvat na 2.
rocnik konference Databazovy svet, ktera se kona 2.
prosince. Prednaset mj. bude i Pavel Cisar s dost
provokativnim tematem:) Vice informaci o cele akci, na
kterou je vstup zdarma, najdete na
http://www.dbsvet(tec)cz/view.php?cisloclanku=2004110101
Dale si vas dovolim pozadat o ucast v hlasovani souteze
Databazovy produkt roku, jehoz 4. rocnik prave probiha a
vyhlaseni vysledku bude prave na konferenci. Vice na
http://www.dbsvet(tec)cz/view.php?cisloclanku=2004110802
Toz to je vse:) Jeste jednou hezky den,
KER
Komponenta pro zadavani datumu
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 18.10.2004 16:13:23
Zdar,
poradite nekdo nejakou sikovnou kompoentu, ktera uzivateli umozni
zadavat rychle datum z klavesnice (napr. 1710 bude 17.10. a doplni se
rok, 17 bude 17. 10. a doplni se aktualni mesic a rok atd.)? Nebylo by
ani spatny kdyby mel uzivatel i alternativni variantu rozbalit si
graficky kalendar podobne jako to ma datetimepicker, ale to uz neni tak
potreba. A kdyby ta komponenta byla rovnou db, tak by to byla uplne
parada, ale to uz bych si eventuelne pridal.
Diky za tipy.
Karel
TWordApplication is running?
[*] Roland Turcan <konf(zv)rotursoft.sk> - 18.10.2004 15:31:20
Hello All!
Aka property sluzi na otestovanie ci bezi MS Word, ktory bol spusteny
cez TWordApplication?
Dakujem.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Alt + F4 a Ctrl + Alt + Del
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 18.10.2004 15:31:20
Dobry den,
18. listopadu 2004, 13:55:07, napsal jste:
>> V postate to, co potrebuji je to, aby uzivatel nemohl vypnout aplikaci
>> jinak, nez mnou povolenou metodou. Da se to udelat nejak jinak?
>>ted sem si teprve precetl tenhle tvuj starsi prispevek - kdyz chces zavrit
>>apl. pouze na tvuj popud tak je to o oto jednodussi ... staci teda v tom
>>onclosequery dat neco jako ...
>>if not /podminky/ then canclose := false;
>>nejlepsi je pak testovat modalresult formulare ... kdyz to bude hlavni
>>formular taxe po zmene modalresultu nezavre takze se pak nemusis starat
>>skoro o nic :)
> V jakych Windows to pobezi ? Kazdou aplikaci, kterou ke ktere mas pristupove
> pravo, nejak sestrelis, bez ohledu na OnCloseQuery. Viz kill.exe > Libor J
Budou to WinXP a Win2k
--
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
Aplikace jako herni menu
[*] Vlko II. <vlko(zv)zilina(tec)net> - 18.10.2004 15:15:18
On Thu, 18 Nov 2004 14:59:17 +0100, petr palicka <palicka.petr(zv)seznam(tec)cz>
wrote:
> obavam se ze docela dost prace s pripravou grafiky. pak bud direct-x
> (komponenty delphix), nebo ownerdraw snad uplne vsech vizualnich
> komponent.
pekny vzhlad sa da dosiahnut aj s mouseover eventami (vymienanie obr pri
prechode
mysou). dalej s pouzitim virtual treeview. vid napr:
http://zeta.zilina.net/picture.php?ukaz=tisesw.jpg
vlko
--
--------------
mail: vlko_(zv)pobox.sk
web: http://vlko.zilina.net
Aplikace jako herni menu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 18.10.2004 14:59:17
Petr Cafourek wrote:
> Zdravim vsechny,
> mam takovy dotaz, da se napsat v Delphi plnohodnotna aplikace, treba
> i s napojenim na SQL, tak aby vypadala jako herni menu v kvalitni
> grafice?
proc ne, treba strategicka hra Original War od Altarinteractive je
napsana cela v delphi.
> Co je k tomu nutne?
obavam se ze docela dost prace s pripravou grafiky. pak bud direct-x
(komponenty delphix), nebo ownerdraw snad uplne vsech vizualnich komponent.
Peca
OT: Aplikace jako herni menu
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 18.10.2004 14:41:16
Zdravim vsechny,
mam takovy dotaz, da se napsat v Delphi plnohodnotna aplikace, treba
i s napojenim na SQL, tak aby vypadala jako herni menu v kvalitni
grafice?
Co je k tomu nutne?
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
Prubeh odesilani emailu pomoci Synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.10.2004 14:37:15
> zacal jsem pouzivat Synapsi. Podarilo se me odeslat email i s
> prilohou. Nevim vsak jak uzivateli zobrazit prubeh (zvlast kdyz je
> email hodne dlouhy). Nemel by nekdo kraticky prikladek?
Kazdy muj socket ma event OnStatus, na ktery kdyz si povesis svoji
proceduru, tak budes informovan o uskutecnenych udalostech na
socketu, mimo jine i o poctu odeslanych ci prijmutych dat.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Co ve FB nejde...
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 18.10.2004 14:17:14
Hezke a verim ze funguje, jenom to ma dva hacky :)
1/ pouze FB 1.5 ale to asi nevadi
2/ delka stringu, kterou predem nemuzes vedet ...... a to je dost velky
problem
zadny string neni dost velky .... Navic pozor na pouzite komponenty, u
nekterych
je string omezen klidne jenom na 512 znaku (nektere verze ZEOS urcite),
navic
takovym stylem, ze se neobtezuji oznamit chybu a string proste ustrihnou
:(((
Utec z toho pouzitim vice dotazu, jak ti tu radi chytrejsi nez ja ....
Rosta
PS: Jeden record z tve tabulky bude minimalne nejakych 10 znaku, ale asi
spis vic.
To je 400 recordu a to neni na pokladni knihu nic moc. Kdyz si das
praci, tak
se ti to mozna podari rozchodit na 32k delky, ale to je na db taky
malo ....
----- Original Message -----
From: <delphi(zv)hon(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 18, 2004 1:31 PM
Subject: Re: Co ve FB nejde...> Ano, je to de facto cross-tab. Jsem krucek od uspechu,
> ale dalsi krok uz nebude. Skutecne v FB nelze v MS-SQL
> to pomoci temporary tables jde....
>
> Zde je me reseni, ktere vraci SQL dotaz ve vysledku ten
> lze pouzit k vytvoreni dotazu, ktery pak vrati tabulku tak
> jak ji potrebuji.....
>
> CREATE PROCEDURE SP_DENIK
> RETURNS (
> CISLO INTEGER,
> VYSLEDEK VARCHAR (4096))
> AS
>
> declare variable DOTAZ varchar(4096);
> declare variable SLOUPEC_ID integer;
> declare variable SLOUPEC integer;
> declare variable SLOUPCU integer;
> declare variable c integer;
> declare variable i integer;
> declare variable DUMMY varchar(4096);
>
>
> BEGIN
>
> /* zjistim, kolik je sloupcu */
> select count(*) from denik_sloupce into :sloupcu;
>
> dotaz = '';
> c = 1;
>
> /* pro kazdy sestavim dotaz */
> for select id from denik_sloupce
> order by id
> into :sloupec_id do begin
>
> dummy = '';
> i = 1;
> while (i <= sloupcu) do begin
> if (i = c) then begin
> dummy = dummy || ' DENIK_SLOUPCE.TEXT ';
> end else begin
> dummy = dummy || ' CAST('' '' as varchar(20)) ';
> end
>
> i = i + 1;
> if (i<=sloupcu) then dummy = dummy || ', ';
> end
>
> dotaz = dotaz || 'SELECT '
> || dummy
> || 'from denik_sloupce '
> || 'where denik_sloupce.id = '
> || sloupec_id;
>
> if (c < :sloupcu) then dotaz = dotaz || ' union ';
> c = c + 1;
> cislo = :sloupec_id;
> vysledek = :dotaz;
> end
>
> SUSPEND;
>
> -- for execute statement :dotaz into :vysledek do suspend;
>
> END
>
>
> jinymi slovy delam vicekrat union....Co vy na to?
>
> Martin
Alt + F4 a Ctrl + Alt + Del
[*] Libor Janecek <libor.janecek(zv)cegedim(tec)com> - 18.10.2004 13:55:07
> V postate to, co potrebuji je to, aby uzivatel nemohl vypnout aplikaci
> jinak, nez mnou povolenou metodou. Da se to udelat nejak jinak?
>ted sem si teprve precetl tenhle tvuj starsi prispevek - kdyz chces zavrit
>apl. pouze na tvuj popud tak je to o oto jednodussi ... staci teda v tom
>onclosequery dat neco jako ...
>if not /podminky/ then canclose := false;
>nejlepsi je pak testovat modalresult formulare ... kdyz to bude hlavni
>formular taxe po zmene modalresultu nezavre takze se pak nemusis starat
>skoro o nic :)
V jakych Windows to pobezi ? Kazdou aplikaci, kterou ke ktere mas pristupove
pravo, nejak sestrelis, bez ohledu na OnCloseQuery. Viz kill.exe
Libor J
varovanie v logu Firebirdu pri DROP PROCEDURE
[*] dphi_forum(zv)proces.sk - 18.10.2004 13:33:05
zdravim
prosim poradte
za behu programu si vytorim stored procedure, zavolam ExecSQL a po
dobehnuti dropnem
vsetko sa vykonava jednym objektom TQuery s default session
v logu firebirdu 1.5 sa obcas objavi nasledovna hlaska, co ma trochu
znepokojuje
Deleting procedure XXXXX which is currently in use by active user requests.
Try to avoid such practice on production servers as it may cause unexpected
errors
do databazy je prihlaseny jeden uzivatel a ma iba jedno pripojenie
ako sa tomu da vyhnut ?
[D5, BDE, FB 1.5]
diky
Co ve FB nejde...
[*] delphi(zv)hon(tec)cz - 18.10.2004 13:31:05
Ano, je to de facto cross-tab. Jsem krucek od uspechu,
ale dalsi krok uz nebude. Skutecne v FB nelze v MS-SQL
to pomoci temporary tables jde....
Zde je me reseni, ktere vraci SQL dotaz ve vysledku ten
lze pouzit k vytvoreni dotazu, ktery pak vrati tabulku tak
jak ji potrebuji.....
CREATE PROCEDURE SP_DENIK
RETURNS (
CISLO INTEGER,
VYSLEDEK VARCHAR (4096))
AS
declare variable DOTAZ varchar(4096);
declare variable SLOUPEC_ID integer;
declare variable SLOUPEC integer;
declare variable SLOUPCU integer;
declare variable c integer;
declare variable i integer;
declare variable DUMMY varchar(4096);
BEGIN
/* zjistim, kolik je sloupcu */
select count(*) from denik_sloupce into :sloupcu;
dotaz = '';
c = 1; /* pro kazdy sestavim dotaz */
for select id from denik_sloupce
order by id
into :sloupec_id do begin
dummy = '';
i = 1;
while (i <= sloupcu) do begin
if (i = c) then begin
dummy = dummy || ' DENIK_SLOUPCE.TEXT ';
end else begin
dummy = dummy || ' CAST('' '' as varchar(20)) ';
end
i = i + 1;
if (i<=sloupcu) then dummy = dummy || ', ';
end
dotaz = dotaz || 'SELECT '
|| dummy
|| 'from denik_sloupce '
|| 'where denik_sloupce.id = '
|| sloupec_id;
if (c < :sloupcu) then dotaz = dotaz || ' union ';
c = c + 1;
cislo = :sloupec_id;
vysledek = :dotaz;
end
SUSPEND;
-- for execute statement :dotaz into :vysledek do suspend;
END
jinymi slovy delam vicekrat union....Co vy na to?
Martin
----- Original Message -----
> No mam obavu, ze budes jen velice tezko hledat nejaky nativni postup,
> kterym
> bys ziskal cross-table. To je totiz tak specificka zalezitost, ze s tim
> relacni DB nativne vubec nepocitaji. Ja to vidim tak, ze budes muset
> vytahnout pozadovane sloupce pres jednotlive dotazy. Nenapada me zadny
> jiny
> postup - SP ani View tohle nezvladnou.
>
> Za velice "fuj fuj" reseni povazuji vytvoreni SP/View pri aktualizaci
> ciselniku, ktery urcuje sloupce te tabulky... :)))
Co ve FB nejde...
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 18.10.2004 13:41:06
No samozrejme je to reseni, ALE:
1. Vubec se mi nelibi modifikace metadat databaze pri behu programu. To
totiz zajiste drive nebo pozdeji zpusobi problemy pri soucasnem pozadavku
uzivatele na vytvoreni / zruseni view. Jedine reseni spociva v tom, ze
ciselnik resp. jeho editace je pristupna pouze a jen administratorovi
systemu a po commitu zmeny se vytvori i novy view. Nicmene, protoze DDL
nelze pouzit uvnitr triggeru nebo SP, tak zase vznika problem pripadneho
padu aplikace mezi commitem zmeny a vytvorenim view.
2. Pokud bude view vytvaren administratorem, tak se pravdepodobne stejne
stane situace, kdy zrovna v okamziku dropovani view chce uzivatel tento view
pouzit v selectu.
RESUME: Vyresit jinak - tohle reseni je vhodne jen pokud presne znas
podminky nasazeni (coz ovsem neznas nikdy a u nikoho :)))). Uz jen to,
zajistit vsechny podminky pro predejiti pripadne kolizi znamena tolik prace,
ze se vlastne vubec nevyplati a je mnohem jednodussi a tim casove mene
narocne, napsat to nekolika dotazy.
S pozdravem
Milan Tomes
P.S.: Proc to vlastne chces dostat z jedine SP/View ???
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of petr palicka
> Sent: Thursday, November 18, 2004 1:31 PM
>
> Milan Tomes wrote:
>
> > Za velice "fuj fuj" reseni povazuji vytvoreni SP/View pri aktualizaci
> > ciselniku, ktery urcuje sloupce te tabulky... :)))
>
> Hele, ale to neni uplne blbej napad, jen ho trochu rozvest. Ja jsem
> potreboval delat exporty pro sync dvou gdb a delal jsem si "docasne"
> externi tabulky.
>
> Tady bych to videl podobne. Zjistit dotazem sloupce, vzit ID z
> generatoru a zalozit view s nazem doplnenym o to ID a potrebnymi sloupci
> a omezenim atp. Pak dotazovat to view a jakmile uz neni potreba, tak ho
> dropnout.
>
> Peca
>
>
>Co ve FB nejde...
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 18.10.2004 13:35:05
To s temi stringy se da pouzit, v nekolika pripadech to pouzivame,
ale je to krajni reseni, protoze je pomale ... Jestli chces poslat vzor,
dej vedet.
Pokud nutne potrebujes
na vystupu ze SP to co popisujes, FB to asi nebude umet normalni
cestou, mozna by to slo nejakou straslivosti jako za behu dynamicky
vytvorit TABLE podle potreby (asi zasahy do systemovych tabulek :((()
a teprve z ni cist, ale to rozhodne neni ciste reseni ....
Rosta
BTW: temp table v MS SQL je 'pozustatek' SYBASE a muj
soukr nazor je obejit se bez nich. Ne ze by nefungovaly, ale
prehlednost a vetsinou i rychlost se z toho da dostat bez nich ...> Ahoj,
> ten prvni napad je v necem zajimavy....
> ale abstrahujme od zahlavi, rekneme, ze jej nepotrebuji.
> Ja spis potrebuji to "telo" tabulky a chci aby to bylo
> vysledkem view nebo SP ne ze to budu muset jeste
> "dozvykavat" v nejakem zobrazovaci. Spis mi jde o
> cistotu reseni.
>
> Martin
Co ve FB nejde...
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 18.10.2004 13:30:59
Milan Tomes wrote:
> Za velice "fuj fuj" reseni povazuji vytvoreni SP/View pri aktualizaci
> ciselniku, ktery urcuje sloupce te tabulky... :)))
Hele, ale to neni uplne blbej napad, jen ho trochu rozvest. Ja jsem
potreboval delat exporty pro sync dvou gdb a delal jsem si "docasne"
externi tabulky.
Tady bych to videl podobne. Zjistit dotazem sloupce, vzit ID z
generatoru a zalozit view s nazem doplnenym o to ID a potrebnymi sloupci
a omezenim atp. Pak dotazovat to view a jakmile uz neni potreba, tak ho
dropnout.
Peca
Co ve FB nejde...
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 18.10.2004 13:18:58
Ahoj,
imho narazis na zasadni problem a to je ze v okamziku zadavani
"univerzelniho" dotazu nevis, kolik bude sloupcu a jake budou jejich nazvy.
mozna by pomohlo nadefinovat podrizenou tabulku spis jako sloupec
typu pole:
radekid...
sloupce_nazvy pole hodnot
sloupce hodnoty pole hodnot
...
dalsi moznost je selektit klasicky joinem po radcich a na klientovi
prehazet do gridu. kdysy byvala v delphi komponenta na datovou kostku,
nevim, jestli by nesla pouzit, nebo napsat podobnou vlastni.
peca
Co ve FB nejde...
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 18.10.2004 13:14:58
No mam obavu, ze budes jen velice tezko hledat nejaky nativni postup, kterym
bys ziskal cross-table. To je totiz tak specificka zalezitost, ze s tim
relacni DB nativne vubec nepocitaji. Ja to vidim tak, ze budes muset
vytahnout pozadovane sloupce pres jednotlive dotazy. Nenapada me zadny jiny
postup - SP ani View tohle nezvladnou.
Za velice "fuj fuj" reseni povazuji vytvoreni SP/View pri aktualizaci
ciselniku, ktery urcuje sloupce te tabulky... :)))
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of delphi(zv)hon(tec)cz
> Sent: Thursday, November 18, 2004 1:05 PM
>
> ten prvni napad je v necem zajimavy....
> ale abstrahujme od zahlavi, rekneme, ze jej nepotrebuji.
> Ja spis potrebuji to "telo" tabulky a chci aby to bylo
> vysledkem view nebo SP ne ze to budu muset jeste
> "dozvykavat" v nejakem zobrazovaci. Spis mi jde o
> cistotu reseni.
>
> ----- Original Message -----
> > Ahoj, jde to zmastit pomoci vnoreneho cyklu FOR SELECT DO, ale
> vracelo by
> > to
> > slozene stringy pro kazdy record (tzn 1 navratovy parametr), a ten
> > string bys musel rozsekat az na clientovi. Takove reseni je samozrejmne
> > kravina. Jednodussi a rychlejsi = nacti ciselnik zahlavi samostatnym
> > dotazem
> > a
> > vnitrnosti tabulky druhym, ten vysledny report nebo dataset uz z toho
> > poskladas ... Jde to cele nacist i jednim dotazem (join) , ale budes
> > zbytecne tahat
> > duplicitni data a stejne to budes muset na clientovi prezvykat ....
> > Rosta
> >
>
>
>Co ve FB nejde...
[*] delphi(zv)hon(tec)cz - 18.10.2004 13:04:57
Ahoj,
ten prvni napad je v necem zajimavy....
ale abstrahujme od zahlavi, rekneme, ze jej nepotrebuji.
Ja spis potrebuji to "telo" tabulky a chci aby to bylo
vysledkem view nebo SP ne ze to budu muset jeste
"dozvykavat" v nejakem zobrazovaci. Spis mi jde o
cistotu reseni.
Martin
----- Original Message -----
> Ahoj, jde to zmastit pomoci vnoreneho cyklu FOR SELECT DO, ale vracelo by
> to
> slozene stringy pro kazdy record (tzn 1 navratovy parametr), a ten
> string bys musel rozsekat az na clientovi. Takove reseni je samozrejmne
> kravina. Jednodussi a rychlejsi = nacti ciselnik zahlavi samostatnym
> dotazem
> a
> vnitrnosti tabulky druhym, ten vysledny report nebo dataset uz z toho
> poskladas ... Jde to cele nacist i jednim dotazem (join) , ale budes
> zbytecne tahat
> duplicitni data a stejne to budes muset na clientovi prezvykat ....
> Rosta
>GridFilter
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 18.10.2004 12:28:53
DevExpress Quantum Grid ... ale j to mastny :-)
http://devexpress.com/
Danik
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jiri Baudys
> chci Vas poprosit, jetli nemate nekdo tip na komponentu dbgrid s filtrem
a-la excel.Co ve FB nejde...
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 18.10.2004 12:16:52
Ahoj, jde to zmastit pomoci vnoreneho cyklu FOR SELECT DO, ale vracelo by to
slozene stringy pro kazdy record (tzn 1 navratovy parametr), a ten
string bys musel rozsekat az na clientovi. Takove reseni je samozrejmne
kravina. Jednodussi a rychlejsi = nacti ciselnik zahlavi samostatnym dotazem
a
vnitrnosti tabulky druhym, ten vysledny report nebo dataset uz z toho
poskladas ... Jde to cele nacist i jednim dotazem (join) , ale budes
zbytecne tahat
duplicitni data a stejne to budes muset na clientovi prezvykat ....
Rosta
----- Original Message -----
From: <delphi(zv)hon(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 18, 2004 9:50 AM
Subject: Co ve FB nejde...> Ahoj..
>
> mejme nasledujici problem. Uzivatel by mel mit moznost
> zobrazit tabulku o libovolnem poctu sloupcu. Neuvazuji o ceste
> menit metadata, musim na to jinak. Tabulky vypadaji napr. takto:
>
> CREATE TABLE DENIK (
> ID INTEGER,
> DATUM TIMESTAMP,
> TEXT VARCHAR (64),
> CASTKA DECIMAL (8, 2),
> SLOUPEC INTEGER);
>
> CREATE TABLE DENIK_SLOUPCE (
> ID INTEGER NOT NULL,
> TEXT VARCHAR (20) CHARACTER SET WIN1250 COLLATE PXW_CSY,
> TYP VARCHAR (1) CHARACTER SET WIN1250 DEFAULT 'A' COLLATE WIN1250,
> DANOVY VARCHAR (1) CHARACTER SET WIN1250 DEFAULT 'A' COLLATE PXW_CSY);
>
> INSERT INTO DENIK (ID, DATUM, TEXT, CASTKA, SLOUPEC) VALUES (1,
> '11/15/2004', 'AaA', 100, 1);
> INSERT INTO DENIK (ID, DATUM, TEXT, CASTKA, SLOUPEC) VALUES (2,
> '11/15/2004', 'bbb', 250, 3);
>
> INSERT INTO DENIK_SLOUPCE (ID, TEXT, TYP, DANOVY) VALUES (1, 'Prijmy
> danove', 'P', 'A');
> INSERT INTO DENIK_SLOUPCE (ID, TEXT, TYP, DANOVY) VALUES (3, 'Vydaje
> danove', 'V', 'A');
> INSERT INTO DENIK_SLOUPCE (ID, TEXT, TYP, DANOVY) VALUES (2, 'Prijmy
> nedanove', 'P', 'N');
> INSERT INTO DENIK_SLOUPCE (ID, TEXT, TYP, DANOVY) VALUES (4, 'Vydaje
> nedanove', 'V', 'N');
>
> A ja potrebuji vysledek
>
>
> TEXT Prijmy danove Vydaje danove Prijmy nedanove
Vydaje
> nedanove
> --------------------------------------------------------------------------
----------------------------
> AaA 100
> bbb 250
>
>
> V MS SQL bych na to sel tak, ze si udelam docasnou tabulku a pak ji v SP
> vytvoril a naplnil daty.
> V FB takto ulozene SP nepracuji a je nutno (ma/li to byt SP vracejici vice
> radku) mit presne definovany
> navratove hodnoty coz neni mozne, kdyz se ma pocet sloupcu menit.
> Ma nekdo nejaky napad? Neco co jsem v dokumentaci prehlidl?
>
> Dik
>
> Martin
>
>
>
>
>Unita pro UCC/EAN128
[*] Jiri Virt <virt(zv)volny(tec)cz> - 18.10.2004 12:28:53
Ahoj,
nemate nekdo po ruce unitu pro UCC/EAN128 na vydekodovani jednotlivych
retezcu z kodu?
Diky
Jirka Virt
Prubeh odesilani emailu pomoci Synapse
[*] delphi(zv)mjsoft(tec)cz - 18.10.2004 12:46:55
Zdravim,
zacal jsem pouzivat Synapsi. Podarilo se me odeslat email i s
prilohou. Nevim vsak jak uzivateli zobrazit prubeh (zvlast kdyz je email
hodne dlouhy). Nemel by nekdo kraticky prikladek?
Diky predem
Karel V.GridFilter
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 18.10.2004 12:42:55
http://www.devexpress.com/?section=/products/VCL/ExQuantumGrid
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jiri Baudys
> Sent: Thursday, November 18, 2004 12:07 PM
>
> Krasny den,
> chci Vas poprosit, jetli nemate nekdo tip na komponentu dbgrid s filtrem
> a-la excel.spusteni programu ze sluzby
[*] delphi(zv)spst(tec)cz - 18.10.2004 12:06:50
Dobry den.
Je mozne, aby sluzba spustila nejakou aplikaci v kontextu aktualne
prihlaseneho uzivatele?
Kdyz neco spustim ze sluzby, tak se to spousti standardne take v kontextu
SYSTEM.
W XP, D5
Predem dekuji
Jirka
GridFilter
[*] Jiri Baudys <konference(zv)baudys.name> - 18.10.2004 12:06:51
Krasny den,
chci Vas poprosit, jetli nemate nekdo tip na komponentu dbgrid s filtrem
a-la excel.
diky
jirka
SQL loader control file
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 18.10.2004 12:20:52
Ahoj,
Potreboval bych nahrat CSV soubor (surova data) do Oracle9. Usoudil
jsem, ze nejjednodussi zpusob bude pouzit SQL Loader. Potreboval bych
trochu pomoci s control file, ktery sql loader vyzaduje. Data do
jednotlivych tabulek jsou ulozeny v oddelenych souborech (nazev
souboru je nazvem tabulky) a na zacatku souboru jsou nazvy atributu z
tabulky. Zaznamy jsou oddeleny ; a retezce ". Datum zadano ve
formatu dd.mm.rrrr hh:mm:ss. Muzete mi nekdo pomoci, napsat jednoduchy
skriptik ? S diky Horyna
SW pro omezeni aktivit uzivatele ala herna (bylo:
[*] delphin(zv)post(tec)cz - 18.10.2004 11:44:43
> Zajimavy, ale stejne se tomu neda snadno zabranit. Mam pocit, ze staci
> spustit windowsy v nouzovem rezimu, sluzby se nespusti a tak nepobezi ani
> ten tvuj hlidac. Mozna by mu dokonce stacilo prejmenovat svou oblibenou
hru
> na notepad.exe a je to :-)
Neni problem zjistit si u procesu cestu k EXE souboru a porovnat CRC.SW pro omezeni aktivit uzivatele ala herna (bylo:
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 18.10.2004 11:50:49
Pokud jeste existuje, tak tohle resil software Tri psi. Je to asi 4 roky
zpet, co jsme to kupovali, nestal moc a dalo se omezit temer vsechno.
Marek Dostal
D7Prof, WinXP Home, FireBird 1.0.2 SW pro omezeni aktivit uzivatele ala herna (bylo:
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.10.2004 11:28:42
> >:BTW, kdyz uz jsme se dostali sem, tak ja bych mel dataz malinko bokem.
> >Chci napsat SW podobny SW pro herny. Potreboval bych, aby slo zadat
> >aplikace, ktere muze uzivatel spustit bez omezeni (textak, sync s palmem
> >...) a zbytek aplikaci by sel spustit na casove omezenou dobu danou
> >kreditem.
>
>Zajimavy, ale stejne se tomu neda snadno zabranit. Mam pocit, ze staci
>spustit windowsy v nouzovem rezimu, sluzby se nespusti a tak nepobezi ani
>ten tvuj hlidac.
A ty snad muzes hrat treba Doom III v nouzovem rezimu? Zkus to a pak dej
vedet. Nejsem si jist, ale vazne v nouzovem rezimu nebezi DirectX, ani
OpenGL, ani dokonce ovladac tve oblibene graficke a zvukove karty. Prave
proto se tomu rika nouzovy, aby jsi mohl opravovat tyto poskozene ovladace
a proto nemuzou byt pusteny uz z principu.
>Mozna by mu dokonce stacilo prejmenovat svou oblibenou hru
>na notepad.exe a je to :-)
Ano, "A je to". Hezky serial :-), ale nezapominejme, ze doby minule jsou
jiz pryc a nebavime se zrejmne o Win95, ci Win98. Takze mame filesystem
NTFS, na nem pristupova prava a uzivatele s omezenymi pravy, ktery NEMUZE
ZAPISOVAT, ani nic MENIT v adresari Program Files, eventuelne GAMES! Takze
prejmenovani nehrozi. Maximalne kopie, ale i to se da obejit a to
kuprikladu ukladanim nikoliv NAZVU souboru, ale MD5ky souboru. Takze ja
vim, ze soubor 8756ad8796ad876876 je hra XYZ a pokud se spusti program
ktery neznam, spoctu si MD5 souboru a pokud se shoduje, je to hra XYZ.
Takze at se to jmenuje notepad.exe nebo doom3.exe, je to stale Doom III a
ma smulu.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
grafy a tisk
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 18.10.2004 11:06:40
to nikdo nemate ve sve aplikaci graf?
Matejcek Petr napsal(a):
>DD,
>
> mam na formu TDBGrid a potreboval bych ho vytisknout na tiskarnu
>ale pokud mozno nejak aby bylo mozne nastavit vzhled stranky kdyz dam
>jen DBGrid.print tak to vyjede malej graf doprostred papiru a ja bych
>to potreboval nejak roztahnout pripadne vybrat tiskarnu pripadne k tomu
>natisknout jeste neco jinyho
>
>diky moc za rady PM
>
>
>
>SW pro omezeni aktivit uzivatele ala herna (bylo:
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 18.10.2004 11:14:41
>:BTW, kdyz uz jsme se dostali sem, tak ja bych mel dataz malinko bokem.
>Chci napsat SW podobny SW pro herny. Potreboval bych, aby slo zadat
>aplikace, ktere muze uzivatel spustit bez omezeni (textak, sync s palmem
>...) a zbytek aplikaci by sel spustit na casove omezenou dobu danou
>kreditem.
Zajimavy, ale stejne se tomu neda snadno zabranit. Mam pocit, ze staci
spustit windowsy v nouzovem rezimu, sluzby se nespusti a tak nepobezi ani
ten tvuj hlidac. Mozna by mu dokonce stacilo prejmenovat svou oblibenou hru
na notepad.exe a je to :-)Zjisteni lokalni IP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.10.2004 11:04:39
> 2) UDP se od TCP lisi tim, ze je bezspojove (connectionless) - UDP
> socket neni pevne spojen s zadnou konkretni vzdalenou IP adresou.
> Teoreticky je sice mozne pomoci connect() "namirit" UDP socket na
> konkretni vzdalenou IP adresu ale to se uplatni pouze pri odesilani
> packetu (neni treba volat sendto() ale jen send()). Prakticky vyznam
> connect() je ale u UDP podle mne nulovy. Na UDP socket po pouziti
> connect() stejne muze prijit UDP packet z libovolne adresy. Protoze
Tohle jsem si kdysi myslel taky, dokud jsem praktickymi testy
neprisel na to, ze se to minimalne na Windows chova jinak!
Zjistil jsem ze kdyz na Windows pouziju pro UDP Connect funkci, pak
pres Recv (ale i pres Recvfrom!) prectu jen ty UDP packety, ktere
prichazi prave z adresy a portu udanem ve volani Connect. Tedy ze
ostatni UDP packety z ostatnich adres jsou tise ignorovany!
Tedy volani Connect pro UDP svuj smysl ma, chova se to pak skutecne
jinak. Ostatne i MSDN o tomto mluvi:
"For a connectionless socket (for example, type SOCK_DGRAM), the
operation performed by connect is merely to establish a default
destination address that can be used on subsequent send/ WSASend and
recv/ WSARecv calls. Any datagrams received from an address other
than the destination address specified will be discarded."
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Vytvoreni komponenty za behu
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 18.10.2004 10:34:37
Nastavuju, ale presto se neukaze s v kolekci Components svyho vlastnika.
To se stane az po InsertComponent, ale pak zase pri zavreni okna vyskoci
AV.
???
Cekal bych, ze nastavenim Parentu dojde k zarazeni do kolekce
komponenent automaticky.
> Ahoj.
> Nastavujes tem komponentam parent ?
>
> Ludek
>
>
> OT: GBAK FB 1.5 a STDOUT na Win2000
[*] Stepan Dobias <stepan.dobias(zv)del(tec)cz> - 18.10.2004 10:34:37
Ahoj,
umi GBAK z FB 1.5 zapisovat na standartni vystup pod Windows 2000?
Diky
Stepan
Alt + F4 a Ctrl + Alt + Del
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 18.10.2004 10:54:39
> V postate to, co potrebuji je to, aby uzivatel nemohl vypnout aplikaci
> jinak, nez mnou povolenou metodou. Da se to udelat nejak jinak?
ted sem si teprve precetl tenhle tvuj starsi prispevek - kdyz chces zavrit
apl. pouze na tvuj popud tak je to o oto jednodussi ... staci teda v tom
onclosequery dat neco jako ...
if not /podminky/ then canclose := false;
nejlepsi je pak testovat modalresult formulare ... kdyz to bude hlavni
formular taxe po zmene modalresultu nezavre takze se pak nemusis starat
skoro o nic :)Alt + F4 a Ctrl + Alt + Del
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 18.10.2004 10:48:38
> Ja vim, ze je to krajne zacatecnicka otazka, ale muzes mi trosku
> priblizit, jak zakazat v OnCloseQuery zakazu vypnuti aplikace?
> Nikdy jsem to neresil a nenapada me, jak to udelat.
uvnitr onclosequery je vnitrni prom. CanClose ... staci dat CanClose =
false;SW pro omezeni aktivit uzivatele ala herna (bylo:
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.10.2004 10:44:38
>
>BTW, kdyz uz jsme se dostali sem, tak ja bych mel dataz malinko bokem.
>Chci napsat SW podobny SW pro herny. Potreboval bych, aby slo zadat
>aplikace, ktere muze uzivatel spustit bez omezeni (textak, sync s palmem
>...) a zbytek aplikaci by sel spustit na casove omezenou dobu danou
>kreditem.
Napsat service, ta nejde beznym zpusobem a uzivatelem ustrelit, takze
pobezi stale. A tato service monitoruje spustene procesy. Pokud je proces v
seznamu "omezenych", zacne pocitat kredit. Pokud uplyne zadany cas, ustreli
program (posle mu nejprve WM_QUIT (tusim) a pokud nezareaguje do urcite
doby, proste ho killne).
>Uvitam rady ci odkazy na zdroje informaci. Klidne bych to i koupil (za
>rozumnou cenu :o), ale pokud jsem nasel neco podobnyho, tak omezeni bylo
>na vsecky programy bez vyjimky a navic rizeny po siti z jinyho kompu. ja
>to potrebuju na doma pro omezeni paranskych aktivit synka.
:-D
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Vytvoreni komponenty za behu
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 18.10.2004 10:26:36
> v programu by se mi libilo vytvaret komponenty za behu tak, abych
> nemusel predem znat typ ani vlastnika komponenty. Vse se dari az na to,
> ze se mi nova komponenta nezaradi do seznamu Components vlastnika a to
> ja potrebuji kvuli naslednemu nastavovani properties. Kdyz pouziju
> Vlastnik.InsertComponent, vse se zda byt ok, ale po zavreni okna vyskoci
> AV.
E := TEdit.Create(AOwner);
// AOwner byva vetsinou formular (zpravidla self),
// ale muze to byt cokoli jineho (TComponent).
E.Left := ...
E.Top := ...
atd.
E.Parent := Panel1;
// Parent musi byt TWinControl
To musi fungovat.
(viz Delphi - Zakladni kurz)
Pokud vznika nejake AV, je pricina jinde.
Z tveho textu neni zrejme, zda spravne rozlisujes Owner (vlastnik, zadava se v konstruktoru a nelze ho menit - readonly) a Parent (kontejner, do ktereho TControl vkladam, lze ho pripadne i menit).
Pokud vim, ze chci vytvaret TEdit, je to jednoduche.
V opacnem pripade mohu pouzit napr. pole typu
ClassArray = array [0..2] of TControlClass = (TEdit, TLabel, TCheckBox);
a
C := ClassArray[i].Create()
nebo podle nazvu tridy - FindClass(AClassName),
predtim RegisterClasses.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================TForm -> TFrame
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.10.2004 09:50:32
Myslim, ze neni problem prepsat textovy Dfm a take PAS.
martin napsal(a):
> Dobry den,
> da sa z TForm nejak urobit TFrame?
> Ide mi o to, ze mam v aplikacii viac formularov no z niektorych by
> som chcel urobit Frame.
> Existuje nejaka finta okrem (New Frame & Copy/Paste) ?
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
OT: SW pro omezeni aktivit uzivatele ala herna (by
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 18.10.2004 09:50:32
Petr Cafourek wrote:
> A mohl bys me prosim trosku nakopnout, jak zakazat TaskMngr a udelat z
> aplikace shell replacer? A pokud bys byl tak hodny, rad bych se na
> Tvou aplikaci podival.
BTW, kdyz uz jsme se dostali sem, tak ja bych mel dataz malinko bokem.
Chci napsat SW podobny SW pro herny. Potreboval bych, aby slo zadat
aplikace, ktere muze uzivatel spustit bez omezeni (textak, sync s palmem
...) a zbytek aplikaci by sel spustit na casove omezenou dobu danou
kreditem.
Uvitam rady ci odkazy na zdroje informaci. Klidne bych to i koupil (za
rozumnou cenu :o), ale pokud jsem nasel neco podobnyho, tak omezeni bylo
na vsecky programy bez vyjimky a navic rizeny po siti z jinyho kompu. ja
to potrebuju na doma pro omezeni paranskych aktivit synka.
Odpovedi prosim na soukromy email palicka.petr(zv)seznam(tec)cz
Dekuji
Peca
Zjisteni lokalni IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.10.2004 09:56:33
DD,
On Tuesday, November 16, 2004 8:05 PM [CET], Jakub Cermak
<cermiforum(zv)centrum(tec)cz> wrote:
> No a prave v tom je ten problem. IP adresa (konkretne vlastnost IP)
> ziskana pres Indy je 0.0.0.0, pres objekt ABinding: TIdSocketHandle
v
> udalosti OnUDPRead. Jinak je mi celkem jedno, jakou knihovnu
pouziju,
> ani API mi neni cizi. Ale "znervoznuje" me to ze na MSDN pisou ze
pro
> udp to nejde, coz me prijde prinejmensim podivne.
podivne to neni:
1) pokud chces zjistit z jake IP adresy prisel UDP packet, _musis_
pouzit pro precteni packetu funkci recvfrom() - ta vraci krome packetu
i adresu odesilatele.
2) UDP se od TCP lisi tim, ze je bezspojove (connectionless) - UDP
socket neni pevne spojen s zadnou konkretni vzdalenou IP adresou.
Teoreticky je sice mozne pomoci connect() "namirit" UDP socket na
konkretni vzdalenou IP adresu ale to se uplatni pouze pri odesilani
packetu (neni treba volat sendto() ale jen send()). Prakticky vyznam
connect() je ale u UDP podle mne nulovy. Na UDP socket po pouziti
connect() stejne muze prijit UDP packet z libovolne adresy.
Protoze UDP neni spojeno se vzdalenou adresou, nemuze Ti system
jednoznacne rict jaka je lokalni adresa (adresa interface), kterym na
nej prisel packet (je to informace vazana na packet ne na socket -
proto ten recvfrom() ). Protoze packet muze prijit libovolnym
rozhranim (ruzne sitovky, localhost atd). Jedine snad na socketu,
ktery byl bind() prilepen k nejakemu konkretnimu rozhrani by Ti mohl
vratit neco smysluplneho (ale byla by to hodnota, kterou jiz znas).
U TCP socketu je po connect() vsechno dane - pomoci routovaci tabulky
je vybrana lokalni IP adresa interface, kterym budou packety prochazet
(pouzije se jako IP adresa odesilatele z tohoto stroje) a ta je
vracena pomoci API funkci jako lokalni IP pro dane TCP spojeni.
Zdravi
Dalibor Toman
Alt + F4 a Ctrl + Alt + Del
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 18.10.2004 09:32:16
Petr Cafourek wrote:
> To by sice slo, ale jedna se o to, ze prava uzivatelu nejsou stanovena
> pomoci windows, ale me aplikace. Jedna se o pomerne rozsahly system a
> spolehat se na windows mi neprislo idealni, zvlaste kdyz na jednom
> pocitaci, v jednom uzivatelskem prihlaseni muze pracovat nekolik lidi.
> Tzn. ze ADMIN v mem pripade muze byt i obycejny USER.
proti vetru se holt moci dost spatne :o)
zas tak moc se to nevylucuje. bezny uzivatel tu tvoji aplikaci
nesestreli a musi pouzit tebou definovany postup.
admin je predpokladam natolik inteligentni, aby dokazal pochopit, jak ma
tvoji aplikaci ukoncit a sebrat mu moznost vladnout systemu proste
nemuzes. on je admin, on je panem nad strojem a systemem, tato prava mu
nemuzes odepirat jenom proto, ze se ti to nehodi pro jednu aplikaci. (to
je to curani proti vetru).
moana by bylo lepsi to korektni ukonce zakomponovat do toho
onclosequery, aby se ukoncila korektne, i kdyz ji admin strili z task
manageru.
Peca
Alt + F4 a Ctrl + Alt + Del
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 18.10.2004 09:30:15
> Ja vim, ze je to krajne zacatecnicka otazka, ale muzes mi trosku
> priblizit, jak zakazat v OnCloseQuery zakazu vypnuti aplikace?
> Nikdy jsem to neresil a nenapada me, jak to udelat.
staci si dat F1 (=help) na udalosti OnCloseQuery.
mezi parametry predanymi volane metode je i jeden, jehoz nastaveni
ovlivnuje, zda se alikace ukonci ci nikoli. neco jako CanClose, nebo tak
neco...
Peca
TClientSocket a TServerSocket a obnoveni spojeni V
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 18.10.2004 09:24:13
Staci na strane klienta v udalosti OnError nastavit ErrorCode na 0 a uz
chyba nevyskoci a pokud je v aplikaci klienta casovy mechanizmus opetovneho
prihlasovani tak po spusteni serveru se bezproblemu opet pripoji. Pri
odpojeni serveru data z klienta ukladam na disk a pri prihlaseni na server
je tam poslu z disku. Nevim, jestli je to 100% ciste, ale hlavni je , ze to
funguje jak ma. Jak jednoduche !!!
Martin
----- Original Message -----
From: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 16, 2004 12:36 PM
Subject: TClientSocket a TServerSocket a obnoveni spojeni
> Rad bych se zeptal, jak zjistim na strane klienta, ze server opet bezi.
> Pokud ukoncim nebo spustim klienta tak to server vi (onConnect a
> onDisconnect) jak ale pozna Klient ze Server byl znovu spusten. Ze byl
> ukoncen klient vi (onDisconnect). Pokud se pokousim v cyklu obnovit
> spojeni(Active nebo Open), a server nebezi tak mi porad pada chyba "
> Asynchronous Socket Error 10061". Urcite na to bude nejaky figl ale v
> sitove komunikaci jsem se nikdy nevrtal tak nevim.
>
> Zapletal Martin
>
> D5, WinXP
>
>
>
> Obsah teto zasilky byl zkontrolovan na pritomnost viru technologii
> BitDefender Alt + F4 a Ctrl + Alt + Del
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 18.10.2004 09:20:12
Dobry den,
18. listopadu 2004, 8:08:06, napsal jste:
> opkud chces zakazat Alt + F4 a Ctrl + Alt + Del pouze v ramci dane aplikace
> tak to neni zas tak velky problem ... zavreni pomoci alt f4 pochopitelne
> vyvolava onclosequery ... ve kterem muzes zakazat zavreni za prve, za druhe
> potom abys vedel ze uzivatek zmackl prave alt f4 tak muzes v udalosti pro
> dane prvky (formular, tlacitka ...) onkeydown testovat klavesy a pak si do
> glob. prom. ulozit do boolean prom. jestli ano, ne ... jeden z mnoha zpusobu
> ....> co se tyce toho alrt + ctrl + del tak to uz tak lehky neni ... musis v
> nejakym tiomeru testovat jestli exist. okno task managera ...
> if findwindow("spravce udalosti", ...) nebo nejak tak .... samozrejme to pak
> ale funguje jenom na ceskych windows ale je to nejjednodussi reseni ...
> kdyztaxe ozvi
>> > Zdravim vsechny,
>> > vim, ze je to banalita, ale nevite nekdo prosim, jak zakazat v
>> > aplikaci stisk klave Alt + F4 a Ctrl + Alt + Del?
Ja vim, ze je to krajne zacatecnicka otazka, ale muzes mi trosku
priblizit, jak zakazat v OnCloseQuery zakazu vypnuti aplikace?
Nikdy jsem to neresil a nenapada me, jak to udelat.
--
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
Alt + F4 a Ctrl + Alt + Del
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 18.10.2004 09:16:12
Dobry den,
17. listopadu 2004, 13:58:48, napsal jste:
> On Tue, 16 Nov 2004 10:16:43 +0100, Petr Cafourek
> <petr.cafourek.d7(zv)seznam(tec)cz> wrote:
>> Jde o to, ze by aplikaci smel vypnout jen admin. A to pres form, ktery
>> je zaheslovany a obsahuje administracni nastaveni. Od jinud bych
>> potreboval, aby aplikace vypnout nesla.
> Ja som robil web browser pre kiosk a vyriesil som to naslednym sposobom:
> 1. aplikacia bezi ako shell replacer
> 2. aplikacia v closequery osetruje zatvorenie cez atl+f4
> 3. aplikacia zakazuje spustenie taskmanagera a vsetkych odlogovacich apod
> serepeticiek cez registre
> 4. v pravidelnych intervaloch zatvara (presnejsie zhadzuje) vsetky app
> ktore
> nevyhovuju urcitym podmienkam.
> Funguje to ale len na w2k a wXP. Aplikacia bezi v ostrej prevadzke cca 3
> mesiace a
> zakaznik je s nou velmi spokojny (ved ju ma zadarmo:). Jedine co treba je
> raz za den
> restartnut pc, pretoze je to web browser na jadre IE a obcas to proste
> zmrzne. Chyba
> ale nie je v mojej app:).
> Ak je ale potreba spustat aj ine applikacie najlepsim sposobom je zakazat
> taskmanager
> a nech bezi ako service. Alebo este jednoduchsie je spustat service pod
> administratorom
> a uzivatel, s urcitymy obmedzeniami nema pravomoci applikaciu zhodit.
> Ciest je viacero
> zalezi na konkretnej situacii a samozrejme su to riesenia pre w2k a wxp.
> vlko
> BTW: Ak ma niekto zaujem app mozem zaslat.
A mohl bys me prosim trosku nakopnout, jak zakazat TaskMngr a udelat z
aplikace shell replacer? A pokud bys byl tak hodny, rad bych se na
Tvou aplikaci podival.
--
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
Alt + F4 a Ctrl + Alt + Del
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 18.10.2004 09:12:11
To by sice slo, ale jedna se o to, ze prava uzivatelu nejsou stanovena
pomoci windows, ale me aplikace. Jedna se o pomerne rozsahly system a
spolehat se na windows mi neprislo idealni, zvlaste kdyz na jednom
pocitaci, v jednom uzivatelskem prihlaseni muze pracovat nekolik lidi.
Tzn. ze ADMIN v mem pripade muze byt i obycejny USER.
>>Tohle jde resit v OnCloseQuery, ale stejne z TaskManageru aplikace pujde
>>sestrelit.
>>Dalsi moznost je cast aplikace, ktera ma bezet porad, prepsat jako sluzbu.
>>Bezny User nema k rizeni sluzeb pristup, administrator ano.
> Co udelat jeste jeden program, ktery spusti tvoji aplikaci v kontextu
> admistratora. Uzivatel bez opravneni administratora nema opravneni ukoncit
> process vytvoreny v jinem bezpecnostnim kontextu. Neco ve smyslu RunAs user.
> Viz API CreateProcesssAsUser
> PS : Pokud to neni adminstator, tak taskman.exe nema sanci
> Libor.J
--
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
Vytvoreni komponenty za behu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 18.10.2004 08:52:10
On Behalf Of Karel Pecinka
> v programu by se mi libilo vytvaret komponenty za behu tak,
> abych nemusel predem znat typ ani vlastnika komponenty. Vse
> se dari az na to, ze se mi nova komponenta nezaradi do
> seznamu Components vlastnika a to ja potrebuji kvuli
> naslednemu nastavovani properties. Kdyz pouziju
> Vlastnik.InsertComponent, vse se zda byt ok, ale po zavreni
> okna vyskoci AV.
Ahoj.
Nastavujes tem komponentam parent ?
Ludek
formulare vs. MDI resp. new framework
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 18.10.2004 08:20:07
no, my to mame presne tak, jak ty popisujes, ze bys to chtel mit, delame
to takhle:
v hlavnim formu:
if (FCurrForm <> nil) then
begin
FCurrForm.Close;
FCurrForm.free;
end;
FCurrForm := nil;
FCurrForm := TEditacniForm.create(nil);
if FCurrForm <> nil then
begin
FCurrForm.BorderStyle := bsNone;
FCurrForm.Parent := Panel90;
FCurrForm.Align := alClient;
FCurrForm.Visible := true;
FCurrForm.show;
end;
TEditacniForm muzeme pak pouzit primo do okna v hlavnim formu (viz kod
nahore) i jako samostatnej form (klasicky create,showmodal,free)
akorat jedinej problem, ktery jeste nemame vyresenej je ten, ze nam
nefunguji hotkey v tom vkladanym formu (hlavni form je sezere driv) -
poradite nekdo jak to rozchodit (v podstate predat stisk hotkeye z
jednoho formu do druhyho)?
Mame to v D5
Petr Sikola
> A tu si neviem rady ako to urobit.
> Uvazoval som tak,
> - ze vytvorim lavy panel(10%) pravy panel(90%)
> - no a do praveho panelu NEJAK, NEVIEM AKO vlozim vytvarany form.
> - nechcem to riesit ako MDI
> - tie formu v pravej casti nebudu mat titulok, ani tlacitka
> close,minimize,maximize - mali by sa prisposobovat velkosti hlavneho
> formu
> Martin
> D7Pro,JCL,JVCL ...
online sledovanie eventlog-u urciteho event ID
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 18.10.2004 08:04:06
Dobre ranko,
Potreboval by som trosku helpnut, nakopnut (nie doslovne ;-)). Rad by
som v security eventlogu reagoval na uzamknutie domenoveho uctu, resp.
na nejaky event ID. Toto vsetko by sa malo diat online, cize hned po
zapisani daneho eventu do logu systemom. Mohol by ma nasmerovat niekto
ako taketo nieco zmastit bez toho aby som si musel napr. kazde 2 minuty
exportovat eventlog a v nom vyhladavat dany event ID? Mam na mysli
nejaky watcher nad eventlogmi.
Vdaka za kazdy napad, M.Alt + F4 a Ctrl + Alt + Del
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 18.10.2004 08:08:06
opkud chces zakazat Alt + F4 a Ctrl + Alt + Del pouze v ramci dane aplikace
tak to neni zas tak velky problem ... zavreni pomoci alt f4 pochopitelne
vyvolava onclosequery ... ve kterem muzes zakazat zavreni za prve, za druhe
potom abys vedel ze uzivatek zmackl prave alt f4 tak muzes v udalosti pro
dane prvky (formular, tlacitka ...) onkeydown testovat klavesy a pak si do
glob. prom. ulozit do boolean prom. jestli ano, ne ... jeden z mnoha zpusobu
....
co se tyce toho alrt + ctrl + del tak to uz tak lehky neni ... musis v
nejakym tiomeru testovat jestli exist. okno task managera ...
if findwindow("spravce udalosti", ...) nebo nejak tak .... samozrejme to pak
ale funguje jenom na ceskych windows ale je to nejjednodussi reseni ...
kdyztaxe ozvi
> > Zdravim vsechny,
> > vim, ze je to banalita, ale nevite nekdo prosim, jak zakazat v
> > aplikaci stisk klave Alt + F4 a Ctrl + Alt + Del?Interbase/Firebird - chybny typ fieldu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 18.10.2004 06:58:01
Slavomir Skopalik wrote:
> pouzij round(CAST(poce AS FLOAT)t/5000,1),
> nebo round(pocet+0.0/5000,1)
^^^^^^^^^^^^^^
to asi ne, to by nejprve delil a potom scital.
bud 0.0+... nebo 1.0*... nebo ten cast.
peca
Vytvoreni komponenty za behu
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 18.10.2004 01:09:37
Zdravim profiky,
v programu by se mi libilo vytvaret komponenty za behu tak, abych
nemusel predem znat typ ani vlastnika komponenty. Vse se dari az na to,
ze se mi nova komponenta nezaradi do seznamu Components vlastnika a to
ja potrebuji kvuli naslednemu nastavovani properties. Kdyz pouziju
Vlastnik.InsertComponent, vse se zda byt ok, ale po zavreni okna vyskoci
AV.
Poradte prosim kde by mohla byt chyba, uz se s tim drbu dele nez je
zdravo.
Diky Karel
TForm -> TFrame
[*] martin <matrix(zv)inmail(tec)cz> - 18.10.2004 00:47:34
Dobry den,
da sa z TForm nejak urobit TFrame?
Ide mi o to, ze mam v aplikacii viac formularov no z niektorych by
som chcel urobit Frame.
Existuje nejaka finta okrem (New Frame & Copy/Paste) ?
--
Martin
D7Pro
formulare vs. MDI resp. new framework
[*] Vlko II. <vlko(zv)zilina(tec)net> - 17.10.2004 23:31:29
On Wed, 17 Nov 2004 22:15:24 +0100, martin <matrix(zv)inmail(tec)cz> wrote:
> - no a do praveho panelu NEJAK, NEVIEM AKO vlozim vytvarany form.
Cesta je cez Frame. Co je vlastne tebou vytvorena komponenta s
rozmiestnenim
vsetkych prvkov. U nas vo frameworku to funguje tak, ze je standardne menu,
ikonove menu napravo a panel roztiahnuty na ostatok ktoreho sa dynamicky
vklada
aktualne potrebny frame. Vsetky browse su framy, a mozu sa pripadne flozit
do
formulara, alebo ako detail do dalsieho formulara.
Myslim si, ze vsade to bude podobne, btw nieco podobne je aj vo Net
frameworku,
cize je celkom plus zvyknut si to pouzivat.
vlko
--
--------------
mail: vlko_(zv)pobox.sk
web: http://vlko.zilina.net
formulare vs. MDI resp. new framework
[*] martin <matrix(zv)inmail(tec)cz> - 17.10.2004 22:15:24
Zdravim Vas,
chcel by som nejak sikovne vyriesit pracu s formularmi v mojej
aplikacii.
Terajsi stav:
- cca 50 formularov, vacsinou modalne
- uplne standarna situacia bez MDI
Buduci stav (hypoteza)
- v lavej casti (cca 10%lavej casti mainformu) hlavneho formulara bude panel,
podobny ako je napr. v XPckach v exploreri, skratka budu tam tlacitka ktore budu zobrazovat
resp. vytvarat nejake formulare
- formulare sa budu zobrazovat v ostatnej casti mainform teda v
zvysnych 90%
- kazde stlacenie dalsieho tlacitka otvara prislusny form a povodny
zatvara
- stale je otvoreny iba jeden form (v tej pravej casti)
- samozrejme z toho formu mozem otvarat dalsie, ale iba vyhradne
modalne
A tu si neviem rady ako to urobit.
Uvazoval som tak,
- ze vytvorim lavy panel(10%) pravy panel(90%)
- no a do praveho panelu NEJAK, NEVIEM AKO vlozim vytvarany form.
- nechcem to riesit ako MDI
- tie formu v pravej casti nebudu mat titulok, ani tlacitka
close,minimize,maximize - mali by sa prisposobovat velkosti hlavneho
formu
Poradte prosim ako na to ...
--
Martin
D7Pro,JCL,JVCL ...
Interbase/Firebird - chybny typ fieldu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 17.10.2004 17:45:05
pouzij round(CAST(poce AS FLOAT)t/5000,1),
nebo round(pocet+0.0/5000,1)
Slavek
> create view test as
> select jmeno, prijmeni, pocet, round(pocet/5000,1) as xx
> from ciselnik;
>
> (Field "pocet" je typu integer.)Interbase/Firebird - chybny typ fieldu
[*] jsdelphi(zv)creatix(tec)cz - 17.10.2004 16:33:00
Mam ve firebirdu 1.5 definovany pohled:
create view test as
select jmeno, prijmeni, pocet, round(pocet/5000,1) as xx from ciselnik;
(Field "pocet" je typu integer.)
Kdyz nacitam data do DBGridu pres TIBQuery(select * from test) a
nenadefinuji seznam fieldu, vytvori se v runtime seznam fieldu automaticky
(to je normalni). Problem je v tom, ze field "xx" z uvedeneho pohledu se
nadefinuje jako typ integer a nikoliv float. V pripade
"round((pocet+0.1)/5000,1) as xx" je vse v poradku a vytvori se field typu
float.
Ocekavany vysledek v DBGridu:
Petr Novak 5000 1
Jan Kun 2000 0.4
Skutecny vysledek v DBGridu (xx = round(pocet/5000,1)):
Petr Novak 5000 1
Jan Kun 2000 0
Skutecny vysledek v DBGridu (xx = round((pocet+0.1)/5000,1)):
Petr Novak 5000 1
Jan Kun 2000 0.4
Nevite nekdo co s tim? Neni problem v tom, ze na 1.radku dat je "pocet" =
5000, takze vysledek je celociselny = 1? Nechce se mi pro kazdy TIBQuery
definovat seznam fieldu, kdyz mam aplikaci v neustalem vyvoji.
Dekuji
Jan Skopovy
Novell NWSendBroadCastMessage
[*] delphi(zv)spst(tec)cz - 17.10.2004 16:00:57
Dobry den.
Potrebuji se zeptat na nasledujici. Mam Novell Netvare 6.5, Windows XP,
Delphi 5.
Mam napsany program (sluzbu) ve Windows XP. Z?teto sluzby potrebuji poslat
?"NWSendBroadCastMessage". K?tomu abych neco odeslal ovsem potrebuji
parametry teto funkce ConnHandle a ConnectionNumber, Kdyz tento program
ladim - nainstaluji si sluzbu, ale nespustim ji, a nasledne v?Delphi
spustim, tak to vse funguje. Najde se spravny ConnHandle a na jeho zaklade i
ConnectionNumber (uzivatele, kteremu posilam data). Ale v?okamziku, kdy
tento program spustim skutecne jako sluzbu WindowsXP nic se neposila. Kde se
berou nesmyslne ConnHandle a ConnectionNumber. Jak ConnHandle tak i
ConnectionNumber zjistuji po prihlaseni do NW (sluzba reaguje na udalost
vyvolanou uzivatelem po prihlaseni). Pravdepodobne je to tim, ze se jedna o
sluzbu. Jak se da toto obejit respektive zaridit, aby sluzba dokazala
posilat Message urcitemu uzivateli. Po prihlaseni ma uzivatel
ConnectionNumber konstantni do odhlaseni (je mozne predavat pomoci
registru), ale ConnHandle je pri kazdem dotazu na server jine.
Predem moc dekuji
Jirka
ThemeManager a ToolButony
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 17.10.2004 16:14:59
Zdravim.
Pokusam sa rozbehat Theme Managera vo Win XP a narazil
som na jednu drobnost.
Teda :
Robim s Delphi5 Prof. na Win XP Prof.
Placnem na form ToolBar, na nom si vyrobim niekolko ToolButonov,
vlastnost "Style" ToolButon1 bude "tbsCheck".
V udalosti OnClick ToolButonu1 zistujem ci je tlacidlo
stlacene :
if ToolButton1.Down= true Then ..... nieco
if ToolButton1.Down= false Then .....nieco
Spustim aplikaciu a ajhla :
Pri kliknuti ToolButon vzdy vracia:
ToolButton1.Down= false;
(Nezavisle na tom, ci je ToolButton naozaj stlaceny, alebo nie)
Otazka : Co s tym? :-))
Rypal som sa aj v zdrojakoch k Theme Manageru, ale
nie som z toho mudry :-(
V pripade, ze nepouzijem Theme Manager funguje vsetko OK.
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)hotmail.com
Excel to Dataset
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 17.10.2004 15:04:53
Mel by to umet ODBC provider od MS, ktery je bud soucasti office, nebo
windows.
Ale nikdy jsem to nezkousel.
Zkus se podivat, jestli to nahodou neumi ADO primo, tak nejak bych to
cekal.
Slavek
> Zdravim vsetkych,
> neviete o nejakej FREE komponente, ktora pracuje s
> excelovskym suborom ako s Dataset-om?
>
> --
> Martin
> Excel to Dataset
[*] martin <matrix(zv)inmail(tec)cz> - 17.10.2004 14:20:50
Zdravim vsetkych,
neviete o nejakej FREE komponente, ktora pracuje s excelovskym
suborom ako s Dataset-om?
--
Martin
Alt + F4 a Ctrl + Alt + Del
[*] Vlko II. <vlko(zv)zilina(tec)net> - 17.10.2004 13:58:48
On Tue, 16 Nov 2004 10:16:43 +0100, Petr Cafourek
<petr.cafourek.d7(zv)seznam(tec)cz> wrote:
> Jde o to, ze by aplikaci smel vypnout jen admin. A to pres form, ktery
> je zaheslovany a obsahuje administracni nastaveni. Od jinud bych
> potreboval, aby aplikace vypnout nesla.
Ja som robil web browser pre kiosk a vyriesil som to naslednym sposobom:
1. aplikacia bezi ako shell replacer
2. aplikacia v closequery osetruje zatvorenie cez atl+f4
3. aplikacia zakazuje spustenie taskmanagera a vsetkych odlogovacich apod
serepeticiek cez registre
4. v pravidelnych intervaloch zatvara (presnejsie zhadzuje) vsetky app
ktore
nevyhovuju urcitym podmienkam.
Funguje to ale len na w2k a wXP. Aplikacia bezi v ostrej prevadzke cca 3
mesiace a
zakaznik je s nou velmi spokojny (ved ju ma zadarmo:). Jedine co treba je
raz za den
restartnut pc, pretoze je to web browser na jadre IE a obcas to proste
zmrzne. Chyba
ale nie je v mojej app:).
Ak je ale potreba spustat aj ine applikacie najlepsim sposobom je zakazat
taskmanager
a nech bezi ako service. Alebo este jednoduchsie je spustat service pod
administratorom
a uzivatel, s urcitymy obmedzeniami nema pravomoci applikaciu zhodit.
Ciest je viacero
zalezi na konkretnej situacii a samozrejme su to riesenia pre w2k a wxp.
vlko
BTW: Ak ma niekto zaujem app mozem zaslat.
--
--------------
mail: vlko_(zv)pobox.sk
web: http://vlko.zilina.net
SQL dotazy do XML
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 17.10.2004 13:50:47
> From: mydelphiconf(zv)centrum(tec)cz
>
> mam nejake XML a potrebuju ho zobrzt v gridu. Delam to pres
> ClientDataset.LoadFromFile('jmeno.xml');
> jenze ted bych potreboval nejaky postup, jak tam delat SQL dotazy ...
SQL dotazy asi nepujdou.
TClientDataSet nabizi nekolik moznosti filtrovani zaznamu. Podivej se na
property Filter/Filtered. Pro indexovane polozky lze pouzit metodu
SetRange. Nebo CloneCursor.... Moznosti je hodne.
Hezke clanky o pouziti TClientDataSet vcetne ukazkovych prikladu psal
Cary Jensen na http://bdn.borland.com/delphi/
Vaclav Krmela
grafy a tisk
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 17.10.2004 11:36:38
DD,
mam na formu TDBGrid a potreboval bych ho vytisknout na tiskarnu
ale pokud mozno nejak aby bylo mozne nastavit vzhled stranky kdyz dam
jen DBGrid.print tak to vyjede malej graf doprostred papiru a ja bych
to potreboval nejak roztahnout pripadne vybrat tiskarnu pripadne k tomu
natisknout jeste neco jinyho
diky moc za rady PM
Synapse a RAW socket
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.10.2004 11:18:36
> Zkousel jsem tridu TRawSocket ze Synapse, povedlo se mi odeslat data,
> nicmene stale mi pred vlastni data Windows (zkousel jsem to i pres API,
> takze to vypada na ne) cpe IP hlavicku, kterou tam ale nechci. Pochopil sem
> dobre RAW sockety kdyz jsem si myslel ze to co odeslu se dostane na sit v
> presne podobe JEN s pridanou Ethernet hlavickou (tedy zadna IP ani nic
> podobneho)?
No, standardne tam system sam cpe jeste IP hlavicku, takze sice muzes
simulovat jine IP protokoly (ci si vymyslet vlastni), ale adresy
osedilatelu a prijemcu modifikovat nemuzes.
V nekterych operacnich systemech muzes pres SetSockOpt to pridavani IP
hlavicek vypnout. To jde treba na Linuxu, ale na windows to pokud vim
vubec nejde. (alespon na starsich Windows to urcite nejde... jestli to
nahodou na nejakych W2k3 uz jde, to fakt netusim.)
Ono je to na druhou stranu dobre, protoze az by ty tuny cerviku, ktere
ziji z der v Outlooku a IE, zacaly navic spoofovat IP hlavicky, to by byl
teprve mazec. ;-(
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Nastaveni predem nezname Property
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 17.10.2004 01:35:54
Nakonec to nebylo zase tak nejhorsi. Zde je reseni, myslim ze se to
mnohym bude hodit. Do uses si pridejte TypInfo a prip. SynaUtil.
procedure SetProperty(AComponent: TComponent; CP: string; Value:
Variant);
var
Component: TComponent;
CompName, PropName: string;
begin
CompName := SeparateLeft(CP, '.');
PropName := SeparateRight(CP, '.');
Component := AComponent.FindComponent(CompName);
if Component <> nil then
begin
SetPropValue(Component, PropName, Value);
end;
end;
function GetProperty(AComponent: TComponent; CP: string; PreferStrings:
Boolean): Variant;
var
Component: TComponent;
CompName, PropName: string;
begin
CompName := SeparateLeft(CP, '.');
PropName := SeparateRight(CP, '.');
Component := AComponent.FindComponent(CompName);
if Component <> nil then
begin
Result := string(GetPropValue(Component, PropName, PreferStrings));
end;
end;
Pouziti:
SetProperty(MainForm, 'Button1.Caption', 'Ahoj');
SetProperty(MainForm, 'Button1.Visible', false) nebo
SetProperty(MainForm, 'Button1.Visible', 'false');
Parada co?
Karel
> Prostuduj si unit typinfo, ale je to docela pruda. Napovedet
> by Ti mohla i ta RX knihovna. David
Synapse a RAW socket
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 16.10.2004 22:09:40
Zkousel jsem tridu TRawSocket ze Synapse, povedlo se mi odeslat data,
nicmene stale mi pred vlastni data Windows (zkousel jsem to i pres API,
takze to vypada na ne) cpe IP hlavicku, kterou tam ale nechci. Pochopil sem
dobre RAW sockety kdyz jsem si myslel ze to co odeslu se dostane na sit v
presne podobe JEN s pridanou Ethernet hlavickou (tedy zadna IP ani nic
podobneho)?
Priklad kodu:
synapse:=TRAWBlockSocket.Create;
synapse.CreateSocket;
synapse.Connect('10.0.0.10','99');
synapse.SendBuffer(buf,buflen);
writeln('Potencialni chyba:',synapse.LastErrorDesc);
writeln('Potencialni chybovy kod:',synapse.LastError);
synapse.Free;
Doufam ze jsem se jasne vymackl.
Jakub Cermak
ja.cermi(zv)centrum(tec)cz
ICQ 159971304
like, case insensitive, cestina VYRESENO
[*] ing. Petr Borkovec <petrborkovec(zv)volny(tec)cz> - 16.10.2004 20:53:33
Po nekolika experimentech dle vasich rad to konecne funguje. Toto byla
posledni chyba:
spatne: SELECT * FROM TAB_ARCHIV WHERE UPPER(OBSAH COLLATE PXW_CSY) LIKE
UPPER(_WIN1250'%toto je potreba najit%')
dobre: SELECT * FROM TAB_ARCHIV WHERE UPPER(OBSAH COLLATE PXW_CSY) LIKE
UPPER('%toto je potreba najit%' collate PXW_CSY)
Dekuju.> Dekuji za odpovedi Jirkovi, Tomasovi a Kalhousovi - nic ale nepomohlo.
Mozna take neni muj > dotaz jasny. Potrebuji prohledat pole tabulky typu
varchar(1000), vyskyt nikoli jen na > zacatku ale i uprostred
retezce, v cestine (character set WIN1250), aby to bylo case >
insensitive.> Zkusil jsem, co napsal Tomas - to nepomohlo. Problem je zrejme v tom, ze
v
> tom 'select * from tab_archiv where UPPER(OBSAH) LIKE '%TOTO JE TREBA
> NAJIT%'' to UPPER(OBSAH)prevadi na velka pismena jen znaky bez
diakritiky -
> ale nevim, jak to vyresit.
> Musis si udelat upper uz nad tim textem v aplikaci, tj. v C++ Builderu
> hodnota1.text.UpperCase() predpokladam ze v Delphi je to to samy
> Tomas
> > Delphi 7, InterBase WI - 06.0.1.6.
> > Potrebuji prohledat pole tabulky, aby hledani bylo case insensitive a
> > fungovalo v cestine. Pole je varchar(10000). Tabulku ctu komponentou
> > IBQuery, pro hledani vkladam do jeji vlastnosti SQL 'select * from
> > tab_archiv where UPPER(OBSAH) LIKE upper(_WIN1250'hodnota1.Text')',do
> > hodnota1.text davam '%toto je treba najit%'.Takto je vysledek hledani
case
> > insensitive pro vsechna pismena s vyjimkou pismen s diakritikou, kde to
> > zustava case sensitive. Mohl by nekdo poradit?
Zjisteni lokalni IP
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 16.10.2004 20:05:30
No a prave v tom je ten problem. IP adresa (konkretne vlastnost IP) ziskana
pres Indy je 0.0.0.0, pres objekt ABinding: TIdSocketHandle v udalosti
OnUDPRead. Jinak je mi celkem jedno, jakou knihovnu pouziju, ani API mi neni
cizi. Ale "znervoznuje" me to ze na MSDN pisou ze pro udp to nejde, coz me
prijde prinejmensim podivne.
Jakub Cermak
ja.cermi(zv)centrum(tec)cz
ICQ 159971304
http://cermi.wz(tec)cz
PGP key: http://cermi.wz(tec)cz/disk/pub_key.asc
----- Original Message -----
From: "l. vlcek" <l.vlcek(zv)noel-plus(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 16, 2004 7:24 AM
Subject: Re: Zjisteni lokalni IP
> Jakub Cermak napsal(a):
>> No prave ze tech sitovek je vic. To ze loopback je 127.0.0.1 vim :).
>>
> jo,
> tyhle informace si drzi datova struktura vazana k socketu. Pristup k nim
> se muze lisit v "urovni konfortu", nebo jak bych to rekl.
> Kazda socketova knihovna obvykle tyto data kopiruje ve svych vlastnich
> strukturach (indy (tusim) v objektech bind nebo neco podobneho...). Lze
> to najit v dokumentaci prislusne knihovny. Dobre byva podivat se i na
> doprovodne priklady. U indy i (treba) u synapse od L.Gebauera jsou
> pomerne primocare....
>
> Jako (obvykle) "posledni pomoc" lze pouzit:
> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winsock/winsock/sockaddr_storage_2.asp
>
>>>--
>>>L.V.
>>>jezevec
>>>
>>>
>>>
>>
>>
>>
>>
>
>
> funkcia na prevod formatu cisla 1.234 567,00 na fo
[*] dphi_forum(zv)proces.sk - 16.10.2004 19:17:27
skus sa pozriet na premennu DecimalSeparator a tu pri spusteni programu
nastavit tak ako potrebujes
Stano
Alt + F4 a Ctrl + Alt + Del
[*] Libor Janecek <libor.janecek(zv)cegedim(tec)com> - 16.10.2004 18:21:22
Omlouvam se.
Je to CreateProcessWithLogonW
Libor.J
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Libor Janecek
Sent: Tuesday, November 16, 2004 6:03 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Alt + F4 a Ctrl + Alt + Del
>Tohle jde resit v OnCloseQuery, ale stejne z TaskManageru aplikace pujde
>sestrelit.
>Dalsi moznost je cast aplikace, ktera ma bezet porad, prepsat jako sluzbu.
>Bezny User nema k rizeni sluzeb pristup, administrator ano.
Co udelat jeste jeden program, ktery spusti tvoji aplikaci v kontextu
admistratora. Uzivatel bez opravneni administratora nema opravneni ukoncit
process vytvoreny v jinem bezpecnostnim kontextu. Neco ve smyslu RunAs user.
Viz API CreateProcesssAsUser
PS : Pokud to neni adminstator, tak taskman.exe nema sanci
Libor.J
Alt + F4 a Ctrl + Alt + Del
[*] Libor Janecek <libor.janecek(zv)cegedim(tec)com> - 16.10.2004 18:03:21
>Tohle jde resit v OnCloseQuery, ale stejne z TaskManageru aplikace pujde
>sestrelit.
>Dalsi moznost je cast aplikace, ktera ma bezet porad, prepsat jako sluzbu.
>Bezny User nema k rizeni sluzeb pristup, administrator ano.
Co udelat jeste jeden program, ktery spusti tvoji aplikaci v kontextu
admistratora. Uzivatel bez opravneni administratora nema opravneni ukoncit
process vytvoreny v jinem bezpecnostnim kontextu. Neco ve smyslu RunAs user.
Viz API CreateProcesssAsUser
PS : Pokud to neni adminstator, tak taskman.exe nema sanci
Libor.J
funkcia na prevod formatu cisla 1.234 567,00 na fo
[*] martin <matrix(zv)inmail(tec)cz> - 16.10.2004 17:37:19
Dobry den,
hladam funkciu na prevod z formatu:
1.234 567,80
do formatu
1234567.80
Hladam nejaku funkciu zmenformat(cislo:string), ktora vrati
string, ktory je v pozadovanom formate.
Existuje nieco hotove?
--
Martin
Nastaveni predem nezname Property
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 16.10.2004 17:29:18
Pomoci RTTI, napr takto:
PropInfo := GetPropInfo(Component.ClassInfo, 'DataSource');
if PropInfo <> nil then
begin
ObjProp := GetObjectProp(Component, 'DataSource');
if ObjProp is TDataSource then
begin
SetObjectProp(Component, 'DataSource', DataSource);
Result := true;
Exit;
end;
end;
Karel Pecinka napsal(a):
> Zdravim kolegy,
>
> potreboval bych mit moznost nastavit neznamou property u komponenty, u
> ktere neznam dopredu typ. Jinymi slovy potrebuju mit moznost v
> konfiguracnim souboru zadat napr.: OK_Button.Caption=&OK nebo
> OK_Button.Visible=false
>
> Jak mam postupovat? Jedna z komponent RX nejak umi zjistit vsechny
> properties na komponente, takze predpokladam, ze to nejak musi jit.
>
> Diky za namety.
>
> Karel
>
>
>
>
>
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
OnChanging TPageControl
[*] Peter Svetlik <peternal(zv)seznam(tec)cz> - 16.10.2004 17:07:16
Zdravim.
Pouzivam TPageControl a potreboval by som pri vyvolani udalosti OnChanging
ziskat informaciu o tom, na ktory TabSheet sa pokusam prepnut.
Riesil to uz niekto z vas?
peter svetlik, D5
Nastaveni predem nezname Property
[*] dam <arthur(zv)argh(tec)cz> - 16.10.2004 16:59:16
Prostuduj si unit typinfo, ale je to docela pruda. Napovedet by Ti mohla i
ta RX knihovna.
David
===================================
Programovani, skoleni .NET, C++, Internet, Delphi
mailto:arthur(zv)lerach(tec)cz
mailto:arthur(zv)argh(tec)cz
http://www.argh(tec)cz
icq: 345377828; msn: arthur(zv)argh(tec)cz
===================================
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Karel Pecinka
> Sent: Tuesday, November 16, 2004 4:45 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Nastaveni predem nezname Property
>
> Zdravim kolegy,
>
> potreboval bych mit moznost nastavit neznamou property u komponenty, u
> ktere neznam dopredu typ. Jinymi slovy potrebuju mit moznost v
> konfiguracnim souboru zadat napr.: OK_Button.Caption=&OK nebo
> OK_Button.Visible=false
>
> Jak mam postupovat? Jedna z komponent RX nejak umi zjistit vsechny
> properties na komponente, takze predpokladam, ze to nejak musi jit.
>
> Diky za namety.
>
> Karel
>
>
> Nastaveni predem nezname Property
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 16.10.2004 16:45:14
Zdravim kolegy,
potreboval bych mit moznost nastavit neznamou property u komponenty, u
ktere neznam dopredu typ. Jinymi slovy potrebuju mit moznost v
konfiguracnim souboru zadat napr.: OK_Button.Caption=&OK nebo
OK_Button.Visible=false
Jak mam postupovat? Jedna z komponent RX nejak umi zjistit vsechny
properties na komponente, takze predpokladam, ze to nejak musi jit.
Diky za namety.
Karel
komponenta XPManifest
[*] Jiri Kratochvil <kratochvil(zv)3a(tec)cz> - 16.10.2004 16:15:12
Zdravim vsechny. Mam problem s komponentou XPManifest?. Kdyz ji polozim do formu prestanou se mizobrazovat mnou nadefinovane barvy (GroupBox atd.) nevite nekdo jak by to slo resit??
Dekuji
Jiri Kratochvil
SQL dotazy do XML
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 16.10.2004 15:57:10
> -----Original Message-----
> mydelphiconf(zv)centrum(tec)cz
> (pres LoadFromFile), mohu vyuzit i ClientDataset.CommandText
> pro napsani SQL prikazu.
To asi nepujde ... command text se predava providerovi pres midas a neslouzi
k sql nad nactenymi daty. Muzes se podivat na TXQuery, ktera umi SQL nad
datasetem/y. Ale neni zadarmo.
Danik
SQL dotazy do XML
[*] mydelphiconf(zv)centrum(tec)cz - 16.10.2004 15:35:08
Asi jsem to spatne napsal ...
kdyz mam pomoci nejakeho ClientDataSet otevreny XML file (pres LoadFromFile), mohu vyuzit i ClientDataset.CommandText pro napsani SQL prikazu.
Nejsem v tomhle vubec zbehly, ale jak v tomto pripade definuju jmeno tabulky? (SELECT X,Y,Z FROM ????)?
nebo mate nekdo jiny a lepsi napad? (doufam :))
P.
______________________________________________________________
> Od: "Daniel Frantik" <frantik(zv)telpro(tec)cz>
> MSSQL2005 to umi (bude umet)
SQL dotazy do XML
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 16.10.2004 15:07:06
MSSQL2005 to umi (bude umet)
Danik
> -----Original Message-----
> mydelphiconf(zv)centrum(tec)cz
> Subject: SQL dotazy do XML
> jenze ted bych potreboval nejaky postup, jak tam delat SQL SQL dotazy do XML
[*] mydelphiconf(zv)centrum(tec)cz - 16.10.2004 15:01:05
Ahoj,
mam nejake XML a potrebuju ho zobrzt v gridu. Delam to pres ClientDataset.LoadFromFile('jmeno.xml');
jenze ted bych potreboval nejaky postup, jak tam delat SQL dotazy ... to uz pres tohle asi tezko udelam. Nemate nekdo nejaky prikladek nebo link na ukazku, jak to udelat?
diky.
P.
Firebird a Firewall XP SP2
[*] Dalibor <dalibor(zv)torola(tec)cz> - 16.10.2004 14:45:04
Odpovim si sam.
Nelze povolit Firebird jenom na aktualni port 3050, protoze si vytvari dalsi
dynamicke TCP spojeni s klientem, zrejme pro eventy.
Ve Firewallu se tedy musi nechat povolit cela aplikace fbserver.exe
> Ahoj, mam akutni problem, ktery potrebuji nutne vyresit.
> PC s WinXP s SP2 zaplym firewallem, na kterem bezi Firebird (Ve firewallu
ja
> povoleni pro port 3050) pri pripojeni clientske stanice Firebird spadne.
>
> Nevite nekdo cim to je, co s tim?
>
> Firebird 1.5.0 / 1.5.2
>
>Firebird a Firewall XP SP2
[*] Dalibor <dalibor(zv)torola(tec)cz> - 16.10.2004 13:06:57
Ahoj, mam akutni problem, ktery potrebuji nutne vyresit.
PC s WinXP s SP2 zaplym firewallem, na kterem bezi Firebird (Ve firewallu ja
povoleni pro port 3050) pri pripojeni clientske stanice Firebird spadne.
Nevite nekdo cim to je, co s tim?
Firebird 1.5.0 / 1.5.2
Licence GPL a uzavreny software
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.10.2004 13:02:56
Ludek ZITA wrote:
> Zadne FAQ nejsou IMHO pravne zavazne, a zadne licencni omezeni nemuze
> samo o sobe odporovat zakonu.
> Takze moralni vyklad mame ve FAQ ale mne by zajimal i ten pravni
> vyklad, a tam si nejsem zcela jist, zda odpovida Tvemu vykladu.
Rozhodujici samozrejme je, jak by se na vec dival soud,
ktery by pravomocne rozsoudil nejakou konkretni kauzu.
V obecne rovine soud bere v uvahu zamer zakonodarce,
text zakona, vyklady zakona, judikaty, precedencni pripady
u zvykoveho prava a kdo vi co jeste.
IMO je nemozne diskutovat tento problem v pravni rovine,
kdyz nejsme pravnici - nejspis bychom nedokazali ani urcit,
ktery soud a podle jakeho prava by takovy spor soudil,
stejne jako to, do jake miry je napr. zavazne, kdyz
licensor deklaruje, ze jeho interpretace GPL se zaklada na
FSF's FAQs atd.atd...
Stejne bychom dosli jen k tomu, ze existuje nejmene jeden pravnik,
ktery by nepovazoval pripadny spor za predem ztraceny ;-)
***
Ja jsem se jen snazil proti subjektivnim vykladum vagniho textu GPL
argumentovat pomerne jednoznacnymi vyklady licensora s tim,
ze jestlize si je nekdo vedom postoje licensora a presto parazituje
na jeho dile, je IMO darebak.
pf
Cena multilicence
[*] delphi(zv)spst(tec)cz - 16.10.2004 12:52:55
http://www.borland(tec)cz/oi_nabidka_skoly.html
OT: Cena multilicence
[*] Vasek Mlynar <v.mlynar(zv)seznam(tec)cz> - 16.10.2004 12:42:54
Omlouvam se za OT, ale chtel bych se plena zeptat, jak se pohybuji ceny multilicenci Delphi od verze 6 pro skolni zarizeni. Pripadne i vyukove balicky C++, (prip. MS OFFICE) apod. Odpoved muze byt i na muj soukromy mejl. Diky za pomoc.
TClientSocket a TServerSocket a obnoveni spojeni
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 16.10.2004 12:36:54
Rad bych se zeptal, jak zjistim na strane klienta, ze server opet bezi. Pokud ukoncim nebo spustim klienta tak to server vi (onConnect a onDisconnect) jak ale pozna Klient ze Server byl znovu spusten. Ze byl ukoncen klient vi (onDisconnect). Pokud se pokousim v cyklu obnovit spojeni(Active nebo Open), a server nebezi tak mi porad pada chyba " Asynchronous Socket Error 10061". Urcite na to bude nejaky figl ale v sitove komunikaci jsem se nikdy nevrtal tak nevim. Zapletal Martin
D5, WinXP
Licence GPL a uzavreny software
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 16.10.2004 12:06:51
On Behalf Of Petr Fejfar
> Ale co kdybyste si precetli tech 50 nebo kolik
> otazek&odpovedi na strankach FSF, abyste zjistili, ze FSF
> nemela nikdy umysl prostrednictvim licence GPL umoznit
> komukoli jakoli volat cokoli pod GPL licenci z non GPL
> software s vyjimkou "kernel" knihoven, ktere jsou soucasti OS
> popr. prekladace
> - to aby se daly psat ty non GPL aplikace treba pod Linux ;-))
>
> A to, ze aplikace pouziva GPL software jako alternativu ke
> komercnimu software, je vhledem k GPL irelevantni.
>
> To plativalo treba o mySQL, kdyz meli zajem na co nejvetsi
> penetraci, ale nechteli to pustit uplne ze retezu. Ale taky
> takovou moznost explicitne deklarovali. A podivej se na
> jejich licensing policy dnes
> - dokonce se odvolavaji nejen na text vlastni GPL, ale primo
> na mnou zminovane vyklady ve FAQ, aby predesli chytraceni chytraku....
Ahoj.
Jen na vysvetleni postoje: Ja se vzdy budu ridit predevsim tim co si
tvurce SW pral.
Jina otazka - a ta mne zajima- je jak se to jeho prani slucuje s pravem
a tam se domnivam, ze je urcita disproporce.
Zadne FAQ nejsou IMHO pravne zavazne, a zadne licencni omezeni nemuze
samo o sobe odporovat zakonu.
Takze moralni vyklad mame ve FAQ ale mne by zajimal i ten pravni vyklad,
a tam si nejsem zcela jist, zda odpovida Tvemu vykladu.
Ludek
ukladani ikon nactenych API funkcemi
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.10.2004 11:26:49
Vlastimil Burian wrote:
> TImage.Picture.SaveToFile .... proste se ulozi s defektem - pouze 16
> barvami a nemuzu to nijak vyresit .... pokud ale nactu tu stejnou
> ikonu normalne ze souboru pomoci TImage.Picture.LoadFromFile tak se
> to potom ulozi spravne ... potrebuju nakopnout !!! predem dik za
> vsechny napady
Tusim je to proto, ze Delphi nepodporuje vice jak 16 barev
- podivej se po internetu - vali se tam rada workaroundu.
pf
ukladani ikon nactenych API funkcemi
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 16.10.2004 11:02:47
mam velky problem ... v projektu na kterem ted pracuju nactu velke mnozstvi ikon z DLL do dynamickeho pole jehoz jednotlive polozky jsou TIcon ... nacitaci z duvodu nekonzistence velikosti ikon provadim API funkci LoadImage ... ale pomoci LoadIcon je myslim stejny problem ... kdyz nactu ikonu do Image tak vypadaji jak maji ... ale pokud je ulozim temer jakkoliv: napr. TIcon.SaveToFile nebo TImage.Picture.SaveToFile .... proste se ulozi s defektem - pouze 16 barvami a nemuzu to nijak vyresit ....
pokud ale nactu tu stejnou ikonu normalne ze souboru pomoci TImage.Picture.LoadFromFile tak se to potom ulozi spravne ... potrebuju nakopnout !!! predem dik za vsechny napady