Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Instalace FB 1.5.2
[*] Radek KALA <kala(zv)betacontrol(tec)cz> - 3.10.2005 17:50:02
Ahoj, na jednom pocitaci mam problem.
po instalaci FB 1.5.2, ktera probehla zdanlive v poradku, chci vytvorit databazi. pokud
tam pustim gbak -r atd. tak mi to po chvili vypise
The system could not find the environment option that was entered.
pomoci google jsem nasel i nekoho jineho kdo ma tento problem ale reseni ne.
Netusite prosim nekdo co by to melo byt.
System Win 2003 server
a obnova bezi na IP:c:\test.gbk
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
WebDav komponenta
[*] delphak(zv)centrum(tec)cz - 3.10.2005 16:51:32
Dobry den,
nemate nekdo zkusenosti s pritupem z Delphi k souborum pres WebDav? Potrebuji soubory cist, zapisovat a mazat. WebDav folder je na https (s certifikatam).
Bylo by fajn aby program fungoval na Windows 2000 i XP
Dik za nasmerovani ...USB a RS485
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 3.10.2005 14:46:58
No to prave fungovat nemuze, protoze je RTS=CTS a DTR=DSR na kazde strane
fyzicky propojeno natvrdo, viz schema na
http://www.hw-group.com/products/rs485_422/index_cz.html#rs485 takze temito
ctyrmi draty zadnou informaci nepreneses, obrazne receno uprostred tunelu
jsou dve zrcadla zady k sobe, skrz to neni videt, blikas na sebe sam a ne
ten kolega na druhy strane. A na to jsem se ptal. Krabicky hw(tec)cz znam, jsou
fajn, ale to je o jinem pisen. Jarda
----- Original Message -----
From: "Radek Cervinka" <radek.cervinka(zv)technodat(tec)cz>
>
> http://www.hw(tec)cz/Teorie-a-praxe/Software/ART931-Virtualni-seriovy-port-zdarma.html
>
> on je to vetsinou emulator Com portu, tj. jelikoz pouzivas WINAPI tak
> ten driver jednotliva volani pro ovladani COM prevadi na svoje struktury
> a pak je posle jako data po ethernetu, NENI to tak ze by to bylo HW
> fizicky spojene.
>
> zadej to googlu virtual com port
>
> R.
>
>> Jak prosim, Pavle, na tom Ethernetu tahas za ostatni signaly? Neslo jen o
>> Rx/Tx/GND (3-dratovy COM), ale i o ty dalsi (RTS/CTS, DTR/DSR), mas na to
>> nejake udelatko? Jarda
Skladanie BLOB na MS SQL
[*] Martin Cajbik <cajbik(zv)sct.sk> - 3.10.2005 14:22:27
Zdravim,
je mozne na MS SQL nejakym sposobom spojit viacero BLOB (image)
zapisanych ako samostatne riadky v tabulke jeden ?. Data su totiz
zapisovane ako ciastkove bloky, konecnym vysledkom by vsak mal byt iba
jeden vysledny.
--
Martin Cajbik
SCT s.r.o. Kosice
USB a RS485
[*] Cabak Pavel <delphikonf(zv)cross(tec)cz> - 3.10.2005 13:35:34
RS485 je pouze 3-dratovy. Ostatni signaly muzes ovladat s prevodnikem Ethernet-RS232 (vse od Papouch-a).
Pavel
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaroslav Pivonka
Posted At: Thursday, November 03, 2005 1:08 PM
Posted To: Delphi konference
Conversation: USB a RS485
Subject: Re: USB a RS485
Jak prosim, Pavle, na tom Ethernetu tahas za ostatni signaly? Neslo jen o Rx/Tx/GND (3-dratovy COM), ale i o ty dalsi (RTS/CTS, DTR/DSR), mas na to nejake udelatko? Jarda
----- Original Message -----
From: "Cabak Pavel" <delphikonf(zv)cross(tec)cz>>S prevodnikem dostanes ovladac a bude se to chovat jako treba COM port z
>rozsirujici karty. System mu prideli nejake cislo (zalezi na jiz
>existujicich portech), ktere pak najdes v systemu v ovladacich panelech.
> Mame odzkousenou komunikaci se zarizenim pomoci prevodniku Ethernet-485.
> Na zarizeni je 485 a COM porty v pocitaci jsou virtualne vytvorene pres
> ovladace k prevodniku. Vsechno bez problemu.USB a RS485
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 3.10.2005 13:50:00
Jaroslav Pivonka napsal(a):
http://www.hw(tec)cz/Teorie-a-praxe/Software/ART931-Virtualni-seriovy-port-zdarma.html
on je to vetsinou emulator Com portu, tj. jelikoz pouzivas WINAPI tak
ten driver jednotliva volani pro ovladani COM prevadi na svoje struktury
a pak je posle jako data po ethernetu, NENI to tak ze by to bylo HW
fizicky spojene.
zadej to googlu virtual com port
R.
> Jak prosim, Pavle, na tom Ethernetu tahas za ostatni signaly? Neslo jen o
> Rx/Tx/GND (3-dratovy COM), ale i o ty dalsi (RTS/CTS, DTR/DSR), mas na to
> nejake udelatko? Jarda
>
> ----- Original Message -----
> From: "Cabak Pavel" <delphikonf(zv)cross(tec)cz>
>
>
>>S prevodnikem dostanes ovladac a bude se to chovat jako treba COM port z
>>rozsirujici karty. System mu prideli nejake cislo (zalezi na jiz
>>existujicich portech), ktere pak najdes v systemu v ovladacich panelech.
>>Mame odzkousenou komunikaci se zarizenim pomoci prevodniku Ethernet-485.
>>Na zarizeni je 485 a COM porty v pocitaci jsou virtualne vytvorene pres
>>ovladace k prevodniku. Vsechno bez problemu.
>
>
>
>
>
> USB a RS485
[*] kck <kck(zv)atlas(tec)cz> - 3.10.2005 13:35:08
Taky by se mi zrovna takovy plnotucny prevodnik hodil, nasel jsem to v
CZ shopu s popisem "Redukce Billionton USB 1.1 - seriovy port RS-232"
...doufam, ze stejne dobre to chodi na portech USB 2.0. Melo by, jen se
pro jistotu ptam, protoze clovek nikdy nevi, co kde muzou zvorat.
USB a RS485
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 3.10.2005 13:08:16
Jak prosim, Pavle, na tom Ethernetu tahas za ostatni signaly? Neslo jen o
Rx/Tx/GND (3-dratovy COM), ale i o ty dalsi (RTS/CTS, DTR/DSR), mas na to
nejake udelatko? Jarda
----- Original Message -----
From: "Cabak Pavel" <delphikonf(zv)cross(tec)cz>>S prevodnikem dostanes ovladac a bude se to chovat jako treba COM port z
>rozsirujici karty. System mu prideli nejake cislo (zalezi na jiz
>existujicich portech), ktere pak najdes v systemu v ovladacich panelech.
> Mame odzkousenou komunikaci se zarizenim pomoci prevodniku Ethernet-485.
> Na zarizeni je 485 a COM porty v pocitaci jsou virtualne vytvorene pres
> ovladace k prevodniku. Vsechno bez problemu.
USB a RS485
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 3.10.2005 13:03:51
Ano, existuje uplna redukce se vsemi signaly na Canon-9, vyrabi ji firma
Bilionton (Tchajwan, jak jinak)...
Jmenuje se to USB232H2-B, dovozce si najdi sam, abych mu nedelal reklamu,
stoji to par stovek, a (na rozdil od mnoha jinych podobnych) se s tim da
cvicit, sleepnout notebook, zase probudit wokna, a opet se probudi vse jak
bylo, i RTS/CTS (pouzivame ty bity treba pro klicovani a indikator prijmu
radiostanic). Jine USB konvertory se treba ze spanku vubec neprobudily.
Pozor, port se ti namapuje nekam nahoru (podle toho, jaka zarizeni predtim
byla k danemu USB kdy pripojena, treba pouzivam-li USB hub tak nekam
COM14-17, na solo USB treba COM10 nebo COM21, je to zmatek, ale pro jednou
se podivej, ktere porty se pri danem zapojeni zrovna vytvori, logiku v tom
nehledej, dal to funguje stabilne na stejnem portu.
Jarda.
PS tedy predpokladam ze prevod RS-485/232 problem necini, ze ti slo o to
USB-RS232-RTS/CTS.
----- Original Message -----
From: "Dalibor Faltynek" <dalibor.faltynek(zv)orgrez(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 03, 2005 12:21 PM
Subject: USB a RS485
> Ahoj,
> potreboval bych poradit v jedne veci: Provozuji digitalni wattmetr pres
> RS485. Programek jsem si na to napsal, vyuzil jsem Crniluv comport a po
> trose potizi s prepinanim RTS (se to tusim jmenuje) to chodi. Jenze na
> novem notebooku neni seriovy port ale jen USB. Kdyz bych si koupil nejakou
> tu redukci z usb na comport, jake to ma vlastne pak cislo portu. A muze to
> fungovat vubec?
> Diky za rady
> Dalibor.
>
> USB a RS485
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 3.10.2005 12:55:25
Dalibor Faltynek napsal(a):
> Ahoj,
> potreboval bych poradit v jedne veci: Provozuji digitalni wattmetr pres RS485. Programek jsem si na to napsal, vyuzil jsem Crniluv comport a po trose potizi s prepinanim RTS (se to tusim jmenuje) to chodi. Jenze na novem notebooku neni seriovy port ale jen USB. Kdyz bych si koupil nejakou tu redukci z usb na comport, jake to ma vlastne pak cislo portu. A muze to fungovat vubec?
> Diky za rady
> Dalibor.
>
>
Mam notebook a pouzivam redukci od gembirdu (2 ruzne), ono je to vlastne
jedno, na co jsem narazil tak to vetsinou pouziva jeden chipset
od prolific
http://tech.prolific.com.tw/visitor/faqcontent.asp?faqid=1398051
naistalujes driver a pribude ti dalsi COM, stejne jako bys mel
rozsirujici kartu
Existuji primo USB<>COM nebo USB <> (COM, LPT, PS2)
R.HTML editor
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 3.10.2005 12:52:59
- FCKEditor
- HTMLArea2
- HTMLArea3
- TinyMCE
a mnoho dalsich, zkus google, nebo treba www.hotscripts.com
Pavel Poles
Milan Tomes napsal(a):
>Zdravim,
>
>Potrebovali bychom skript, ktery na strance zpristupni jakysi jednoduchy
>editor HTML kodu s nasledujicimi vlastnostmi:
>- zarovnavani
>- volba pisma
>- volba velikosti pisma
>- volba barvy pisma a pozadi
>- odrazky
>- volba atributu pisma (tucne, kurziva, podtrzene)
>- musi byt WYSIWYG tzn. zobrazovat text dle nastaveneho formatu a pro
>aplikaci zpristupnit HTML zdroj.
>
>Nevite nekdo o takovem skriptu (i placenem) ???
>
>S pozdravem
>
>Milan Tomes
>
>P.S.: Ukazku mozno videt napr. v SharePointu nebo v diskusich na idnes(tec)cz
>
>
>
>
>
>
USB a RS485
[*] Cabak Pavel <delphikonf(zv)cross(tec)cz> - 3.10.2005 12:48:34
S prevodnikem dostanes ovladac a bude se to chovat jako treba COM port z rozsirujici karty. System mu prideli nejake cislo (zalezi na jiz existujicich portech), ktere pak najdes v systemu v ovladacich panelech.
Mame odzkousenou komunikaci se zarizenim pomoci prevodniku Ethernet-485. Na zarizeni je 485 a COM porty v pocitaci jsou virtualne vytvorene pres ovladace k prevodniku. Vsechno bez problemu.
Pavel Cabak
mailto:cabak(zv)cross(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Faltynek
Posted At: Thursday, November 03, 2005 12:22 PM
Posted To: Delphi konference
Conversation: USB a RS485
Subject: USB a RS485
Ahoj,
potreboval bych poradit v jedne veci: Provozuji digitalni wattmetr pres RS485. Programek jsem si na to napsal, vyuzil jsem Crniluv comport a po trose potizi s prepinanim RTS (se to tusim jmenuje) to chodi. Jenze na novem notebooku neni seriovy port ale jen USB. Kdyz bych si koupil nejakou tu redukci z usb na comport, jake to ma vlastne pak cislo portu. A muze to fungovat vubec?
Diky za rady
Dalibor.Struktura DB pro skladovy system.
[*] Kalhous <kalhous(zv)eu(tec)cz> - 3.10.2005 12:26:07
> Stavy zasob samozrejme v separatni tabulce.
Na tom mi neprijde nic samozrejmeho. Pokud je databaze navrzena alespon
trochu jako obraz reality, existuje neco jako "obraz skladu" v databazi.
Rikejme tomu treba "stavove polozky". Nasouctovani techto stavu pro
skladovou kartu (nebo chcete-li druh zbozi) nebo sklad (dilci skladovou
kartu) je pak dilem okamziku. Evidence stavu v samostatnych atributech na
skladovych kartach respektive dilcich skladovych kartach pro sklady je sice
proti normalizaci (odvozene udaje), ale proc ne - da se to docela trivialne
osetrit na triggerech a zjednodusuje to selecty. Zmena "mnozstvi" na
skladove polozce vyvola zmenu na dilci skladove karte a ta pak konsekventne
na skladove karte. Porad nevidim duvod proc by "samozrejme" mela existovat
nejaka zvlastni tabulka stavu zasob.
> Pohyby: interni pohyby v jedne sade tabulek, prodejove doklady v druhe
> sade tabulek. Je to kvuli tomu, ze struktury tabulek pro interni pohyby
> a prodej se docela lisi.
Nebo navrhnout databazi jako objektovou. Zhruba - kazda "vydejka" je
objektem typu "pohyb skladu" (ktery ma navic radu atributu ktere obecny
pohyb nema), kazda prodejka je objektem typu "vydejka" (ktery ma navic radu
atributu ktere nema obecna vydejka)...
Z.Kalhous
ToWare s.r.o.
tel.: 466 614 024
USB a RS485
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 3.10.2005 12:21:42
Ahoj,
potreboval bych poradit v jedne veci: Provozuji digitalni wattmetr pres RS485. Programek jsem si na to napsal, vyuzil jsem Crniluv comport a po trose potizi s prepinanim RTS (se to tusim jmenuje) to chodi. Jenze na novem notebooku neni seriovy port ale jen USB. Kdyz bych si koupil nejakou tu redukci z usb na comport, jake to ma vlastne pak cislo portu. A muze to fungovat vubec?
Diky za rady
Dalibor.
Pozice MDI child okna
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 12:13:16
> okamziku vytvareni formulare. V okamziku vytvareni formu jeste nevim, zda
ho
> budu potrebovat v modalnim ci nemodalnim rezimu. Tedy vlastne by se to
dalo
> zjistit, ale znamenalo by to opravdu predelani nekolika stovek formularu
> (konkretne uprava onoho vytvareni formu).
Aha. To ja vim uz ve chvili vytvareni. Na modalni variantu pouzivam
variantni konstruktor Createmodal, ktery nastavi nejaky flag pro vlastni
Create. Jak uz jsem psal, dost jsem se s tim natrapil, ale nakonec jsem
nalezl cestu. Resil jsem presne ten problem, kdy jeden formular se nekdy
pouziva jako child pro prohlizeni vsech dat, nekdy jako modal pro
editaci/prohlizeni jednoho zaznamu. Mozna se tomu predelani nevyhnes, pokud
nenajdes jinou cesticku ;). To mas na vytvoreni kazdeho ze stovek formularu
specialni metodu, neotviras je nejak jednotne?
MB
Pozice MDI child okna
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.10.2005 11:52:49
Milan Tomes wrote:
> OnResize ceho ??? Ja nepotrebuji reagovat na zmenu velikosti
> formulare. Jedine co potrebuji je umistit formular po vytvoreni
> doprostred klientske plochy MDI formu.
Pokud si to pamatuju, tak jsme nikdy zadnou MDI aplikaci nedelali,
nicmene si myslim, ze OnResize je vyvolana pri kazdem zobrazeni formulare
a je-li dobra ke zmene velikosti formulare, k zarovnavani jeho vnitrnosti
k pravemu/spodnimu okraji okna atd., mohla by byt stejne dobra i pro
zmenu jeho pozice :-)
pf
Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 11:50:24
A jak do FormCreate dostanu to, jestli chci dany formular v ten ktery
okamzik pouzit v modalnim nebo nemodalnim rezimu ???
To se totiz rozhoduje az v okamziku volani Show/ShowModal a nikoliv v
okamziku vytvareni formulare. V okamziku vytvareni formu jeste nevim, zda ho
budu potrebovat v modalnim ci nemodalnim rezimu. Tedy vlastne by se to dalo
zjistit, ale znamenalo by to opravdu predelani nekolika stovek formularu
(konkretne uprava onoho vytvareni formu).
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Burle
> Sent: Thursday, November 03, 2005 11:44 AM
>
> > V tuto chvili nemozne... Znamenalo by to predelani nekolika set
> formularu...
>
> Proboha proc? Mas prece nejakeho spolecneho predka, ne?Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 11:45:58
Bohuzel neni tomu tak - v ramci child okna se dotazuji na
Application.MainForm.ClientRect a vraci rozmery bez zohledneni menu apod. :(
Ale uz vim proc tomu tak je - v TCustomForm.GetClientRect je upraveno
zjisteni pro minimalizovany stav, ale v pripade viditelneho okna se vola
TWinControl.GetClientRect a tam je bohuzel znam Handle jen hlavniho okna a
to je ten problem.
Nicmene se omlouvam za mystifikaci - GetClientRect vraci opravdu rozmery
spravne, ale pouzit je spatny handle
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Fiala
> Sent: Thursday, November 03, 2005 10:37 AM
>
> 3.11.2005 Milan Tomes:
> > Jenze tohle je presne ta chyba - tohle primo VCL dela a je
> to spatne...
> > Aby se zjistila vyuzitelna plocha MDI formu musi se zavolat
> > GetWindowRect(ClientHandle, R) a misto toho VCL vyuzije hodnotu
> > ClientRect resp. ClientHeight a ClientWidth, ktere se zjistuji z
> > GetClientRect. Jenze GetClientRect vrati rozmery cele
> klientske plochy
> > a nebere v potaz pripadne komponenty umistene v teto plose
> resp. na okrajich plochy.
>
> Neni to pravda. GetClientRect(MDIForm.ClientHandle, Rect) mi
> vraci rozmery skutecne vyuzitelne plochy bez menu, toolbaru,
> bez komponent, ktere jsou na kraji formu.
> Zkus to volat v OnCreate child okna, ne hlavniho okna !Pozice MDI child okna
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 11:43:33
> V tuto chvili nemozne... Znamenalo by to predelani nekolika set
formularu...
Proboha proc? Mas prece nejakeho spolecneho predka, ne?
MB
Zkompaktneni MDB + aktualizace
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 3.10.2005 11:39:07
HI,
Prosim o radu, jak zkompaktnit mdb soubor?
---------------- +
Neni nekde univerzalni procedura, ktera by porovnala:
a) strukturu a nasledne opravila vyhledem k aktualizacnimu souboru?
b) zaznamy pomoci vlastniho id a nasledne dle zvoleneho pravidla (prepis, preskoc..) zaktualizovala rekordy (idealne volitelne na kazdou tabulku zvlast) ?
c) -to uz asi chci moc- a o vsem podala report
(Omluvam se, ale to vite, nechce se mi vytvaret jiz urcite vytvorene)
---------------
- D7, ODBC, BDE (ADO)
Dik za jakykoliv nakopnuti
Prijemny zbytek dne
Vasek Zaruba
8^)
Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 11:26:40
V tuto chvili nemozne... Znamenalo by to predelani nekolika set formularu...
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Burle
> Sent: Thursday, November 03, 2005 11:02 AM
>
> > Mam tedy predefinovanou metodu Show a ShowModal nasledovne:
>
> Rekl bych, ze tohle je pozde - fsMDIchild musis nastavit uz v
> FormCreate.
> Jinak to blikne. Dost jsem se s tim take natrapil ;)Struktura DB pro skladovy system.
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 3.10.2005 11:12:14
Martin Burle wrote:
>>>b) jednotlive druhy pohybu (prijem, prodej apod.) mate v samostatnych
>>>tabulkach, nebo v jedne spolecne?
>>>
>>>
>>>
>>>
>>V jedne tabulce a tabulka pro kazdy druh pohybu (radek prodejky, radek
>>prijemky, ....) maji do teto tabulky referenci.
>>
>>
>
>Diky, mas v tabulce pohybu ulozene i udaje o typu dokladu, jeho datumu apod?
>Mas-li spocist stav k nejakemu datu, tyto udaje potrebujes a pokud by tam
>nebyly, nevyhnes se sade joinu na jednotlive tabulky dokladu a to je prave
>to co ulohu komplikuje. Pokud tam tyto udaje budou zase to porusuje formu ;)
>a komplikuje zmenu techto udaju (napr. datum zarazeni dokladu).
>
>
Datum ulozene 2x:
- pro celou prijemku/prodejku (tam je jen datum, uzivatel ma moznost ho
zmenit)
- potom v tabulce pohybu (tam je datum a cas, uzivatel nema moznost ho
zmenit)
Takze inventuru lze delat jak podle uzivatlskych datumu (vezmu je z
prijemek), tak podle stavu v skladu v SW. Pricemz se zakaznikem dohodlo,
ze bude pouzivat inventuru dle SW, protoze ho zajima vzdy jen aktualni
stav, nikoliv minulost..... (software je pouze skladovy, ucetnictvi jde
mimo nej).
Lukas
>MB
>
>
>
>
>Pozice MDI child okna
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 11:01:48
> Mam tedy predefinovanou metodu Show a ShowModal nasledovne:
Rekl bych, ze tohle je pozde - fsMDIchild musis nastavit uz v FormCreate.
Jinak to blikne. Dost jsem se s tim take natrapil ;)
MB
Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 09:38:31
Abych to jeste vse doplnil - formular je vytvaren s FormStyle = fsNormal,
protoze nekdy ho chci zobrazit jako modalni (pokud by bylo vytvareno jako
fsMDIChild, tak ma automaticky nastaveno Visible = true a zase nelze pouzit
ShowModal pokud je formular viditelny a zaroven nelze nastavit Visible =
false pokud FormStyle = fsMDIChild).
Mam tedy predefinovanou metodu Show a ShowModal nasledovne:
procedure TG3WForm.Show;
begin
if Assigned(Application.MainForm) and (Application.MainForm.ClientHandle
<> 0) and (FormStyle = fsNormal) then
FormStyle := fsMDIChild;
inherited Show;
end;
function TG3WForm.ShowModal: integer;
begin
if FormStyle = fsMDIChild then
begin
FormStyle := fsNormal;
Visible := false;
end;
Result := inherited ShowModal;
end;
OnResize ceho ??? Ja nepotrebuji reagovat na zmenu velikosti formulare.
Jedine co potrebuji je umistit formular po vytvoreni doprostred klientske
plochy MDI formu. Tedy doprostred vyuzitelne plochy MDI formu tak jak je
zjistena volanim API funkce GetWindowRect(ClientHandle...).
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Fejfar
> Sent: Thursday, November 03, 2005 9:27 AM
>
> Milan Tomes wrote:
>
> > souradnice. Vypocet to je jednoduchy, ale kam ho dat, aby okno
> > "nebliklo" pri zmene pozice ???
>
> OnResize jsi zkousel?Struktura DB pro skladovy system.
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 10:39:15
> Pozuivam vetsinou system:
>
> 1.master tabulka = hlavicky dokladu(prijmy/vydeje/opravky)
> 2.detail tabulka = polozky daneho dokladu (vlastni pohyby)
>
> Tema skladu je vsak vetsinou na delsi diskuse.
> Vse samozrejme zalezi na tom co je to za sklad a jak ma fungovat,
Jde o sklad obchodni firmy s pokladnim prodejem.
> protoze neni sklad jako sklad (i kdyz sem se bohuzel setkal i s nazorem
> jedne z prednich firem co dela ucto, ze sklad lze vzdy resit univerzalne,
> coz je kravina prvniho radu). Sklad neni vzdy jen soucasti ucta, ale to je
> vec jina.
Ano, sklady v uctech byvaji naprosto neuzitelne v praxi ;)
MB
Pozice MDI child okna
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 3.10.2005 10:36:47
3.11.2005 Milan Tomes:
> Jenze tohle je presne ta chyba - tohle primo VCL dela a je to spatne...
> Aby se zjistila vyuzitelna plocha MDI formu musi se zavolat
> GetWindowRect(ClientHandle, R) a misto toho VCL vyuzije hodnotu ClientRect
> resp. ClientHeight a ClientWidth, ktere se zjistuji z GetClientRect. Jenze
> GetClientRect vrati rozmery cele klientske plochy a nebere v potaz pripadne
> komponenty umistene v teto plose resp. na okrajich plochy.
Neni to pravda. GetClientRect(MDIForm.ClientHandle, Rect) mi vraci
rozmery skutecne vyuzitelne plochy bez menu, toolbaru, bez komponent,
ktere jsou na kraji formu.
Zkus to volat v OnCreate child okna, ne hlavniho okna !
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Struktura DB pro skladovy system.
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 10:32:22
> >b) jednotlive druhy pohybu (prijem, prodej apod.) mate v samostatnych
> >tabulkach, nebo v jedne spolecne?
> >
> >
> V jedne tabulce a tabulka pro kazdy druh pohybu (radek prodejky, radek
> prijemky, ....) maji do teto tabulky referenci.
Diky, mas v tabulce pohybu ulozene i udaje o typu dokladu, jeho datumu apod?
Mas-li spocist stav k nejakemu datu, tyto udaje potrebujes a pokud by tam
nebyly, nevyhnes se sade joinu na jednotlive tabulky dokladu a to je prave
to co ulohu komplikuje. Pokud tam tyto udaje budou zase to porusuje formu ;)
a komplikuje zmenu techto udaju (napr. datum zarazeni dokladu).
MB
HTML editor
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 3.10.2005 10:21:56
Milan Tomes napsal(a):
> Zdravim,
>
> Potrebovali bychom skript, ktery na strance zpristupni jakysi jednoduchy
> editor HTML kodu s nasledujicimi vlastnostmi:
> - zarovnavani
> - volba pisma
> - volba velikosti pisma
> - volba barvy pisma a pozadi
> - odrazky
> - volba atributu pisma (tucne, kurziva, podtrzene)
> - musi byt WYSIWYG tzn. zobrazovat text dle nastaveneho formatu a pro
> aplikaci zpristupnit HTML zdroj.
>
> Nevite nekdo o takovem skriptu (i placenem) ???
http://tinymce.moxiecode.com/example_full.php?example=true
ale to sis mohl najit sam v googlu za 1 minutu, ja jsem sice sel
najisto, ale kdyz jsem to hledal poprve tak mi to tu minutu trvalo.
R.
ECO (Re: Pozvanka na seminar Borland)
[*] rkubat(zv)email(tec)cz - 3.10.2005 10:19:30
Clanky/videa o ECO:
Video: Overview of ECO III in Borland Developer Studio 2006
http://bdn.borland.com/article/0,1410,33375,00.html
Video: ECO is child's play
http://bdn.borland.com/article/0,1410,33331,00.html
Video: ASP.NET Role-based Authorization
http://bdn.borland.com/article/0,1410,33367,00.html
Popis ECO obecne a seznam odbornych clanku o ECO:
http://bdn.borland.com/delphi/eco
Popis ECO v C#Builder
http://www.borland.com/resources/en/pdf/white_papers/various_csharpbuilder_integrates_alm_20733.pdf
Rad na vyzadani na firemnim mailu (rkubat(zv)borland(tec)cz) poskytnu
vsem zajemcum tyto dva odborne clanky:
Enterprise Core Objects Examined
By Glenn Stephens
Rapid Model Driven Architecture with Borland Delphi 8
for the Microsoft .NET Framework, Architect Edition
and Enterprise Core Objects (ECO)
By Glenn Stephens
Zdravi, -- Richard Kubat
> Hezke odpoledne,
>
> protoze dosud tonu v davnoveku a udrzuju
> aplikace pod Win32 + VCL + FireBird 1.5 + IBX,
> mohl by mi nekdo prosim kratce osvetlit ci vhodnym
> odkazem dat vedet, co je to ECO a zda se da bezne
> vyuzit?
> Google toho sice najde hodne, ale vetsinou jen
> chvalu na to, jak je ECO vynikajici...
>
> Diky,
>
> Karel Rys
Struktura DB pro skladovy system.
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 3.10.2005 10:09:04
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Burle
Ahoj,
> a) ukladate stavy zbozi natvrdo v tabulce, nebo je vzdy
> pocitate sumou pres
> pohyby?
Pokud mozno, tak maximum vypoctu provadim online(a to na strane serveru),
protoze ukladani
vypoctenych hodnot svym zpusobem velmi ztezuje praci - co, kdy a za
jakych okolnosti prepocitat a ulozit aby byly hodnoty pravdive apod.
(Napriklad aktualni stav na karte mam samozrejme ulozenu, totez
treba prumernou cenu, protoze toto se meni pri
pohybu(prijmu/vydeji/opravce)).
Ale treba statistiku prodeje za posledni mesic pocitam online.
> b) jednotlive druhy pohybu (prijem, prodej apod.) mate v samostatnych
> tabulkach, nebo v jedne spolecne?
Pozuivam vetsinou system:
1.master tabulka = hlavicky dokladu(prijmy/vydeje/opravky)
2.detail tabulka = polozky daneho dokladu (vlastni pohyby)
Tema skladu je vsak vetsinou na delsi diskuse.
Vse samozrejme zalezi na tom co je to za sklad a jak ma fungovat,
protoze neni sklad jako sklad (i kdyz sem se bohuzel setkal i s nazorem
jedne z prednich firem co dela ucto, ze sklad lze vzdy resit univerzalne,
coz je kravina prvniho radu). Sklad neni vzdy jen soucasti ucta, ale to je
vec jina. S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Pozice MDI child okna
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 10:08:39
> Funguje to jen zcasti - okno opet blikne na vychozi pozici a take nedodrzi
Ahoj, mam to takto nejak a no problem:
constructor Create(AOwner: TComponent); override;
....
constructor TFrmCommonMDIChild.Create(AOwner: TComponent);
begin
....
inherited Create(AOwner); //provede se OnCreate a onShow
...
//v modalni variante ne
if (not abxFormIsModal) then begin
//pokud se ulozila minula pozice, nacist
if SetupGrpLook.LoadSaveWinProps then
TabxIni(GetGlobalUserIni).LoadWinProps(TForm(self))
else
SetDefaultMDIPos(Self); //VCl to dela podivne, nastavim na stred
end;
....
end;
U me to neblika ;) (D6)
MB
Struktura DB pro skladovy system.
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 3.10.2005 09:56:13
Martin Burle wrote:
>a) ukladate stavy zbozi natvrdo v tabulce, nebo je vzdy pocitate sumou pres
>pohyby?
>
>
Natvrdo v tabulce, ale samozrejme jdou dopocitat.
Neni vyjimkou pro nektere operace porusovat normalni formu. (hlavne
pokud nejsou resitelne pomoci selectu a musi se na to volat SP nebo
aplikacni kod).
>b) jednotlive druhy pohybu (prijem, prodej apod.) mate v samostatnych
>tabulkach, nebo v jedne spolecne?
>
>
V jedne tabulce a tabulka pro kazdy druh pohybu (radek prodejky, radek
prijemky, ....) maji do teto tabulky referenci.
Lukas
>Predem diky za odpovedi,
>
>MB
>
>
>
>
>Struktura DB pro skladovy system.
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 3.10.2005 09:53:48
Stavy zasob samozrejme v separatni tabulce.
Pohyby: interni pohyby v jedne sade tabulek, prodejove doklady v druhe
sade tabulek. Je to kvuli tomu, ze struktury tabulek pro interni pohyby
a prodej se docela lisi.
Martin Burle napsal(a):
>
> a) ukladate stavy zbozi natvrdo v tabulce, nebo je vzdy pocitate sumou pres
> pohyby?
>
> b) jednotlive druhy pohybu (prijem, prodej apod.) mate v samostatnych
> tabulkach, nebo v jedne spolecne?
>
> Predem diky za odpovedi,
>
> MB
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
OT: HTML editor
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 09:51:22
Zdravim,
Potrebovali bychom skript, ktery na strance zpristupni jakysi jednoduchy
editor HTML kodu s nasledujicimi vlastnostmi:
- zarovnavani
- volba pisma
- volba velikosti pisma
- volba barvy pisma a pozadi
- odrazky
- volba atributu pisma (tucne, kurziva, podtrzene)
- musi byt WYSIWYG tzn. zobrazovat text dle nastaveneho formatu a pro
aplikaci zpristupnit HTML zdroj.
Nevite nekdo o takovem skriptu (i placenem) ???
S pozdravem
Milan Tomes
P.S.: Ukazku mozno videt napr. v SharePointu nebo v diskusich na idnes(tec)cz
Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 09:44:57
Funguje to jen zcasti - okno opet blikne na vychozi pozici a take nedodrzi
velikost nastavenou pri navrhu. Bohuzel to potrebuji dodelat do predka vsech
formularu a tudiz nemohu pouzit pevne zadane hodnoty (a hodnoty Width a
Height jsou uz bud upravene nebo se upravi pri Show - nezkoumal jsem to,
protoze to ani nema smysl) :(
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Mirek Mrakota
> Sent: Thursday, November 03, 2005 9:32 AM
>
> Child form musi mit samozrejme position poDefault - pozici
> preci upravujes pomoci CreateParams, tak je nesmysl mu davat
> poMainFormCenter. Pises, ze vypocet je to jednoduchy, tak si
> Left a Top Child formu spocitej - v prikladu je to Params.X a Params.Y
Struktura DB pro skladovy system.
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 09:38:06
Ahoj vsem, mam pomerne slozity skladovy system, databaze FB. System obsahuje
prozatim 4 druhy pohybu, ktere ovlivnuji stavy zbozi ve sladech (prijem,
prodej, interni pohyby, sestavy). DB je navrzena tak, ze kazdy druh pohybu
ma vlastni master a detail tabulku. Aktualni stavy zbozi se ukladaji take v
samostatne tabulce (v ramci nekterych skladovych operaci se stav prepocitava
podle vsech pohybu dane polozky). S beznymi operacemi neni problem, ale ve
chvili, kdy se maji z dat dolovat nejake statistiky... napr. statistika
narustu/poklesu stavu zasob po druzich a mesicich vyzaduje podle casovych
obdobi sesumarizovat pohyby v jednotlivych druzich pohybu, tj. chce to ruzne
pomerne komplikovane view ci SP s uniony tad vsemi druhy pohybu, z nich pak
dalsi selecty se sumami atd. atd. V souvislosti s tim by me zajimalo, jak
tyto veci resi jini. Urcite je zde spousta lidi, kteri pisi sklady...jak to
resite vy ostatni?
a) ukladate stavy zbozi natvrdo v tabulce, nebo je vzdy pocitate sumou pres
pohyby?
b) jednotlive druhy pohybu (prijem, prodej apod.) mate v samostatnych
tabulkach, nebo v jedne spolecne?
Predem diky za odpovedi,
MB
Pozice MDI child okna
[*] Mirek Mrakota <mirek(zv)mrakota(tec)cz> - 3.10.2005 09:31:40
Child form musi mit samozrejme position poDefault - pozici preci upravujes
pomoci CreateParams, tak je nesmysl mu davat poMainFormCenter. Pises, ze
vypocet je to jednoduchy, tak si Left a Top Child formu spocitej - v
prikladu je to Params.X a Params.Y
Pokud rekneme MDIForm bude mit velikost 800x600 (Client.Width a
Client.Height), vlevo bude 100px panel a nahore 40px toolbar, MDIChild chces
mit velky 300x400 na stredu formu (nikoliv na stredu volne plochy), tak je
to:
Params.Width:= 300;
Params.Height:= 400;
Params.X:= 150; // (800-300) div 2 -100
Params.Y:= 60; // (600-400) div 2 - 40
pro MDIChild na stredu volne plochy pak:
Params.X:= 200; // (800-300 -100) div 2
Params.Y:= 80; // (600-400 - 40) div 2
Jinymi slovy Params.X:= 0 a Params.Y:= 0 umisti okno do leveho horniho rohu
vyuzitelneho prostoru.
Nechci se hadat, ze to funguje vsude - pro jistotu D7Pro, WinXP SP2
Mirek
> Bohuzel, tohle moc nefunguje - tedy alespon s mym nastavenim (Position =
> poMainFormCenter, DefaultMonitor = dmMainForm) .
> Nemate nekdo nejakou jinou radu ???
>
>>
>> > Neresil jste nekdo problem pri umistovani MDI child okna na
>> stred MDI
>> > formu ??? VCL obsahuje chybu, ktera, v pripade, ze MDI form
>> obsahuje
>> > cokoliv jineho nez jen standardni menu, okno umisti na spatne
>> > souradnice. Vypocet to je jednoduchy, ale kam ho dat, aby okno
>> > "nebliklo" pri zmene pozice ???
>>
>> unit MujChild
>> ..
>> { Private declarations }
>> procedure CreateParams(var Params: TCreateParams); override; ..
>> procedure TFrmMujChild.CreateParams(var Params: TCreateParams); begin
>> inherited CreateParams(Params);
>> Params.Width:= 300;
>> Params.Height:= 300;
>> Params.X:= 100;
>> Params.Y:= 100;
>> end;
>>
>> Parametry X a Y se odvozuji od vyuzitelne plochy.Pozice MDI child okna
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.10.2005 09:27:15
Milan Tomes wrote:
> souradnice. Vypocet to je jednoduchy, ale kam ho dat, aby okno
> "nebliklo" pri zmene pozice ???
OnResize jsi zkousel?
pf
Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 09:24:50
Jenze tohle je presne ta chyba - tohle primo VCL dela a je to spatne...
Aby se zjistila vyuzitelna plocha MDI formu musi se zavolat
GetWindowRect(ClientHandle, R) a misto toho VCL vyuzije hodnotu ClientRect
resp. ClientHeight a ClientWidth, ktere se zjistuji z GetClientRect. Jenze
GetClientRect vrati rozmery cele klientske plochy a nebere v potaz pripadne
komponenty umistene v teto plose resp. na okrajich plochy.
Jeste k tomu vsemu mi nepomuze nastaveni v constructoru, protoze tohle
nastaveni je prepsano pri volani metody SetWindowToMonitor, ktera lze volbou
vhodnych parametru eliminovat, nicmene jeste dalsi nastaveni je v obsluze
zpravy CM_SHOWINGCHANGED a tu uz eliminovat nemohu... :(
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Fiala
> Sent: Thursday, November 03, 2005 8:58 AM
>
> 3.11.2005 Milan Tomes:
> > Bohuzel, tohle moc nefunguje - tedy alespon s mym
> nastavenim (Position
> > = poMainFormCenter, DefaultMonitor = dmMainForm) .
> > Nemate nekdo nejakou jinou radu ???
>
> Pokud chces zjistit vyuzitelnou oblast obrazovky, tak treba v Create
> formu:
>
> var
> R:TRect;
> begin
> Win32Check(Windows.GetClientRect(fPSpad.ClientHandle, R));
>
> Pak muzes podle hodnot v promene R nastavit pozici okna
> pomoci Left a Top
Pozice MDI child okna
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.10.2005 09:20:24
> Bohuzel, tohle moc nefunguje - tedy alespon s mym nastavenim (Position =
> poMainFormCenter, DefaultMonitor = dmMainForm) .
> Nemate nekdo nejakou jinou radu ???
Ahoj,
ja nastavuji pozici MDI child okna nejak takto:
procedure SetDefaultMDIPos(const F: TForm);
...
....
//W a H obsahuji prvky (postranni toolbary a pod.) ktere zmensuji skutecnou
velikost plochy
X := Max(0,(Application.MainForm.ClientWidth - F.Width - W) div 2);
Y := Max(0,(Application.MainForm.ClientHeight - F.Height - H) div 2);
F.SetBounds(X,Y, F.Width, F.Height);
end;
Tuto metodu pak volam z prepsaneho konstruktoru formulare. Zde bud nactu
minulou pozici a velikost okna, nebo takto nastavim default. Neblika to ;)
MB
Pozice MDI child okna
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 3.10.2005 08:57:57
3.11.2005 Milan Tomes:
> Bohuzel, tohle moc nefunguje - tedy alespon s mym nastavenim (Position =
> poMainFormCenter, DefaultMonitor = dmMainForm) .
> Nemate nekdo nejakou jinou radu ???
Pokud chces zjistit vyuzitelnou oblast obrazovky, tak treba v Create
formu:
var
R:TRect;
begin
Win32Check(Windows.GetClientRect(fPSpad.ClientHandle, R));
Pak muzes podle hodnot v promene R nastavit pozici okna pomoci Left a
Top
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
SQL a default
[*] Vit Krska <krska(zv)del(tec)cz> - 3.10.2005 08:15:27
> komplikovane
> nejdriv je potreba smazat constraint/default a az pak dropnout sloupec
> nejlepsi je, odkoukat to od Enterprise Manageru - pri Design Table se da
> nechat vygenerovat zmenovej skript ...
nedavno jsem to potreboval tak jsem napsal funkci, ktera ti vrati jmeno
constrainu. pak uz ho jen dropnes.
v!tek
------------------------
create function dbo.get_constraint ((zv)_table nvarchar(50), (zv)_column_name
nvarchar(50))
returns nvarchar(128)
as
begin
declare (zv)_out nvarchar(128)
select
(zv)_out = c_obj.name
from sysobjects c_obj
join syscomments com on c_obj.id = com.id
join sysobjects t_obj on c_obj.parent_obj = t_obj.id
join sysconstraints con on c_obj.id = con.constid
join syscolumns col on t_obj.id = col.id
and con.colid = col.colid
where
c_obj.uid = user_id()
and c_obj.xtype = 'D'
and t_obj.name = (zv)_table
and col.name = (zv)_column_name
return ((zv)_out)
end
--------------------------------
>
> M.M.
>
>Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 3.10.2005 07:10:55
Bohuzel, tohle moc nefunguje - tedy alespon s mym nastavenim (Position =
poMainFormCenter, DefaultMonitor = dmMainForm) .
Nemate nekdo nejakou jinou radu ???
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Mirek Mrakota
> Sent: Tuesday, November 01, 2005 7:19 PM
>
> > Neresil jste nekdo problem pri umistovani MDI child okna na
> stred MDI
> > formu ??? VCL obsahuje chybu, ktera, v pripade, ze MDI form
> obsahuje
> > cokoliv jineho nez jen standardni menu, okno umisti na spatne
> > souradnice. Vypocet to je jednoduchy, ale kam ho dat, aby okno
> > "nebliklo" pri zmene pozice ???
>
> unit MujChild
> ..
> { Private declarations }
> procedure CreateParams(var Params: TCreateParams); override; ..
> procedure TFrmMujChild.CreateParams(var Params: TCreateParams); begin
> inherited CreateParams(Params);
> Params.Width:= 300;
> Params.Height:= 300;
> Params.X:= 100;
> Params.Y:= 100;
> end;
>
> Parametry X a Y se odvozuji od vyuzitelne plochy.SQL a default
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 2.10.2005 17:45:35
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Vlastimil Zdenek
> Sent: Tuesday, November 01, 2005 3:16 PM
> muzete mi prosim poradit jak smazat sloupec v tabulce ktery
> ma nastavenu Default hodnotu?
>
> D5Ent, MS SQL2000
>
komplikovane
nejdriv je potreba smazat constraint/default a az pak dropnout sloupec
nejlepsi je, odkoukat to od Enterprise Manageru - pri Design Table se da
nechat vygenerovat zmenovej skript ...
M.M.
ECO (Re: Pozvanka na seminar Borland)
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 2.10.2005 17:15:08
rkubat(zv)email(tec)cz dne 2 Nov 2005 v 12:33:
> Nove vyvojove prostredi ma radikalne zvysenou kvalitu, vykon
> a odezvu. Prinasi vyvoj s vyuzitim modelovani vcetne navrhu
> stavovych stroju a ECO uzivatelum vsech edici produktu jiz
> od edice Professional.
Hezke odpoledne,
protoze dosud tonu v davnoveku a udrzuju aplikace pod Win32 + VCL + FireBird 1.5 + IBX, mohl by mi
nekdo prosim kratce osvetlit ci vhodnym odkazem dat vedet, co je to ECO a zda se da bezne vyuzit?
Google toho sice najde hodne, ale vetsinou jen chvalu na to, jak je ECO vynikajici...
Diky,
Karel Rys
FB 1.5 a zalozni server
[*] Kalhous <kalhous(zv)eu(tec)cz> - 2.10.2005 14:54:33
Mozna misto shadow zkusit standardni replikaci s dosti kratkym intervalem
(rekneme radove minuty), pak na
replikovane db by v nejhorsim pripade chybely zmeny za tech poslednich par
minut. Samozrejme zustane ta
neprijemnost ze po padu se uzivatel musi prihlasit k jine databazi a po
oprave zas zpatky. Krome toho ma-li byt
databaze replikovana bez nepodstatnych ale zbytecnych log chyb, je dobre s
replikaci pocitat uz pri navrhu db
a vyhnout se nekterym problemovym konstrukcim - napriklad insert z triggeru
after insert a podobne.
> mame vytvorenou aplikaci (PHP, Delphi utilitka, FB 1.5), ktera pracuje s
> dulezitymi daty, ktere se nesmi poskodit a musi byt vzdy k dispozici.
> K tomuto ucelu mame vyhrazeny 2 vykonne servery s Windows 2003.
> Nyni stojime pred situaci, jak co kde nastavit a nainstalovat, aby se data
> ukladala soubezne na oba servery a v pripade vypadku (at uz po softwarove
> ci
> hardwarove strance) 1. serveru se pristupovalo k datum na 2. serveru.
...
> 2. u databaze FB nastavit shadow na 2. server pomoci NFS disku
Z.Kalhous
ToWare s.r.o.
tel.: 466 614 024 FB 1.5 a zalozni server
[*] little_bobes(zv)centrum(tec)cz - 2.10.2005 14:30:06
Zdravim,
mame vytvorenou aplikaci (PHP, Delphi utilitka, FB 1.5), ktera pracuje s
dulezitymi daty, ktere se nesmi poskodit a musi byt vzdy k dispozici.
K tomuto ucelu mame vyhrazeny 2 vykonne servery s Windows 2003.
Zatim nam aplikace bezi na 1. z nich.
Nyni stojime pred situaci, jak co kde nastavit a nainstalovat, aby se data
ukladala soubezne na oba servery a v pripade vypadku (at uz po softwarove ci
hardwarove strance) 1. serveru se pristupovalo k datum na 2. serveru.
Dospeli jsme k nasledujicicm bodum:
1. aplikacni prostredi (PHP, utilitky, FB) musime mit nainstalovane na obou
serverech
2. u databaze FB nastavit shadow na 2. server pomoci NFS disku
3. v pripade vypadku 1. serveru by se musel klient sam prihlasit k aplikaci
na 2. serveru
4. po obnoveni cinnosti 1. serveru by se musela databaze z 2. serveru
zkopirovat na tento 1. server?
Z knihy P. Cisare jsme se docetli, ze stin na FB timto zpusobem neni vhodny,
proto bych se rad zeptal, zda jste nekdo resil obdobnou situaci a jakym
zpusobem.
Predem dekuji za Vase rady.
S pozdravem Bob (Delphi 4 c/s, FB 1.5, PHP)
problem po prechode z fb 1.0 na 1.5
[*] hlas <hlas(zv)inmail.sk> - 2.10.2005 14:25:41
pouzivam komponenty IBX
IBDatabase a ostatne (IBSQL, IBQuery) ale neprejde to uz cez connect podla
mna
a aj ked mam konektovanie v ramci vynimky tak sa to chova nestandardne
try
IBDatabase1.DatabaseName:='localhost:'+EditCesta.Text;
IBDatabase1.Connected:=true;
EditStav.Text:='pripojeny';
Cesta:=ExtractFilePath(EditCesta.Text);
If KontrolaVer=false then Odpojenie;
except
EditStav.Text:='nepripojeny';
ShowMessage('Nie ste pripojeny k databaze! Pravdepodobne sa nachadza v
inom adresari!');
end;
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>> Ahoj,
>
> a jakym zpusobem se k tomu serveru (databazi) pripojujes? Jake
> komponenty? Jaky protokol? Posli prosimte connection string.
>
> Peca
problem po prechode z fb 1.0 na 1.5
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 2.10.2005 13:21:11
Ahoj,
a jakym zpusobem se k tomu serveru (databazi) pripojujes? Jake
komponenty? Jaky protokol? Posli prosimte connection string.
Peca
problem po prechode z fb 1.0 na 1.5
[*] hlas <hlas(zv)inmail.sk> - 2.10.2005 13:08:45
aj na dalsom pc u zakaznika mam ten isty problem
a paradoxne sa ten isty soft a ten isty fb 1.5 u neho
(ako nahradne docasne riesenie ) podarilo rozchodit na
unixovom serveri.
> Winsock error 10038 je operace nad neexistujicim socketem. Moc bych za
> to nedal, ze nejsou aktualni klientske knihovny.
>
> S pozdravem
> Pavel Cisar
> IBPhoenix
OT: :Hlasovani Databazovy produkt roku 2005
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 2.10.2005 12:58:19
Preji vsem prijemny den,
na Databazovem svete od vcerejsiho dne probiha ctenarske
hlasovani pro Databazovy produkt roku 2005. Chcete-li svym
hlasem vysledky ovlivnit, diky predem za hlas. Vice na
http://www.dbsvet(tec)cz/view.php?cisloclanku=2005110101
KER
Pozvanka na seminar Borland
[*] rkubat(zv)email(tec)cz - 2.10.2005 12:33:52
Pozvanka na seminar:
DELPHI 2006, C#BUILDER 2006, C++BUILDER 2006
1.12.2005 od 9:30 hodin, Kongresovy sal hotelu Olsanka,
Taboritska 23, 130 87 Praha 3 - Zizkov
Dovoluji si vas srdecne pozvat na seminar o produktu Borland
Developer Studio, obsahujicim uplnou podporu vyvoje aplikaci
v jazycich Delphi for Win32, Delphi for .NET, C/C++ a C#.
Nove vyvojove prostredi ma radikalne zvysenou kvalitu, vykon
a odezvu. Prinasi vyvoj s vyuzitim modelovani vcetne navrhu
stavovych stroju a ECO uzivatelum vsech edici produktu jiz
od edice Professional. Poskytuje dalsi zvyseni produktivity
vyvoje jako technologii Together pro modelovani v jazyce UML,
"zive" sablony, mnoho druhu refactoringu a prinasi zcela nove
i podporu jazyka C++ s vyuzitim rozsirene knihovny vizualnich
komponent VCL.
Registrace zacne v 8:30 hodin. Prednaset bude pan David Intersimone
z Borland USA. Prednaska bude simultanne tlumocena do cestiny. Vstup
je ZDARMA, podminkou je vsak predchozi REGISTRACE. Kazdy registrovany
prichozi dostane od Borlandu maly darek. Vsichni ucastnici seminare
dostanou prodlouzenou moznost (do 15.12.2005) objednat produkty
Delphi 2006, C++Builder 2006 a C#Builder 2006 vcetne upgrade
za zavadeci cenu snizenou o 15%. Na zaver seminare vylosujeme
z pritomnych ucastniku nekolik navstevniku, kteri obdrzi vecne
ceny Borland.
Program seminare:
09:30-09:45 Privitani a organizacni pokyny
09:45-10:15 Prehled vyvojoveho prostredi, nove vlastnosti
pro zvyseni produktivity vyvoje a ladeni
10:15-10:30 Rizeni zivotniho cyklu aplikaci (ALM)
10:30-11:00 Vyvoj v prostredi C++Builder
11:00-11:30 Prestavka a obcerstveni
11:30-12:15 Modelovani aplikaci v Delphi 2006
12:15-13:00 Tvorba aplikaci s vyuzitim ECO III
13:00-13:15 Otazky a odpovedi, vylosovani vecnych cen
Vice najdete na http://www.borland(tec)cz/events/delphi2006.html
Vsechny zdravi a jeste jednou srdecne zve, -- Richard Kubat, Borland s.r.o.problem po prechode z fb 1.0 na 1.5
[*] hlas <hlas(zv)inmail.sk> - 2.10.2005 09:48:50
odkontroloval som u zakaznika gds32.dll
ma na disku c: iba jednu tuto kniznicu a je zhodna s mojou
ma ju v adresari system32, tam kde ma byt
tiez som odkontroloval dll-ky v adresari udf
su zhodne s mojimi
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Winsock error 10038 je operace nad neexistujicim socketem. Moc bych za
> to nedal, ze nejsou aktualni klientske knihovny.
>
> S pozdravem
> Pavel Cisar
> IBPhoenix
Seznam zarizeni.
[*] koukal(zv)petrkoukal(tec)cz - 2.10.2005 09:18:23
Dobry den,
Potrebuji v programu zjistit, zda a kolik je v PC :
- sitovych karet
- LPT portu
- COM portu
- USB portu
(U COM, LPT, USB jeste zjistit, je -li port volny nebo necim obsazeny)
Jake API funkce mam pouzit ?
Predem diky za pomoc
Petr Koukal
problem po prechode z fb 1.0 na 1.5
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 2.10.2005 08:55:55
Ahoj,
hlas napsal(a):
> nik ste sa nestretol s pripadom ze ste nerozchodili povodnu aplikaciu
> nad fb 1.5 ktora behala nad fb 1.0 v pohode?
ano. Problem delala gds32.dll ze stare verze. Mrkni se, jestli je
nemas nahodu ve slozce s programem, to by potom blokovala tu co je ve
C:\WINDOWS\SYSTEM32.
Peca
OT: Verzia Delphi
[*] Robert Fujak <robof(zv)inmail.sk> - 2.10.2005 08:49:29
Zdravim.
Mozete mi prosim napisat aky je rozdiel medzi D7Ent a Prof?
A ak je to v pristupe k datam tak aky?
Z D7Prof sa neda vobec pristupovat k DB? (povedzme FireBird)
Je nejaky dovod preco kupit verziu Ent?
Dakujem.
S pozdravom
Robert Fujak
-----------------------------------
problem po prechode z fb 1.0 na 1.5
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 2.10.2005 08:47:04
Haj hou!
hlas wrote:
> nik ste sa nestretol s pripadom ze ste nerozchodili povodnu aplikaciu
> nad fb 1.5 ktora behala nad fb 1.0 v pohode?
>
> vo firebird.log mam u zakaznika:
> INET/inet_error: select in packet_receive errno = 10038
>
> a neviem co s tym.. :-(
Winsock error 10038 je operace nad neexistujicim socketem. Moc bych za
to nedal, ze nejsou aktualni klientske knihovny.
S pozdravem
Pavel Cisar
IBPhoenix
problem po prechode z fb 1.0 na 1.5
[*] hlas <hlas(zv)inmail.sk> - 2.10.2005 07:50:35
nik ste sa nestretol s pripadom ze ste nerozchodili povodnu aplikaciu
nad fb 1.5 ktora behala nad fb 1.0 v pohode?
vo firebird.log mam u zakaznika:
INET/inet_error: select in packet_receive errno = 10038
a neviem co s tym.. :-(Pozice MDI child okna
[*] Mirek Mrakota <mirek(zv)mrakota(tec)cz> - 1.10.2005 19:18:53
> Neresil jste nekdo problem pri umistovani MDI child okna na stred MDI
> formu
> ??? VCL obsahuje chybu, ktera, v pripade, ze MDI form obsahuje cokoliv
> jineho nez jen standardni menu, okno umisti na spatne souradnice. Vypocet
> to
> je jednoduchy, ale kam ho dat, aby okno "nebliklo" pri zmene pozice ???
Ja pouzivam tohle a nevsiml jsem si zadneho blikani - snad ti to pomuze:
unit MujChild
..
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
..
procedure TFrmMujChild.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Width:= 300;
Params.Height:= 300;
Params.X:= 100;
Params.Y:= 100;
end;
Parametry X a Y se odvozuji od vyuzitelne plochy.
Mirek ADMIN: OT - Ponuka prace.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.10.2005 19:16:27
Puvodni zprava ze dne 1.11.2005:
> fundierte Delphi 7-Kenntnisses,
> insbesondere TDataset/TDatalink,
> GUI-Programmierung,
> Win32-API
> Oracle, ab 9i (SQL, fundierte PL/SQL-Kenntnisse)
Nabidka prace v poradku dle pravidel, ovsem az na ten text. Toto je
ceska konference, ne nemecka. Priste prosim si dej aspon tu malou
praci a preloz to do cestiny.
Dekuji,
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OT - Ponuka prace.
[*] Roland Turcan <konf(zv)rotursoft.sk> - 1.10.2005 19:00:01
Hello delphi-l(zv)clexpert(tec)cz!
Nasa firma hlada programatora:
Ktory by mal splnat toto:
-------------------------
fundierte Delphi 7-Kenntnisses,
insbesondere TDataset/TDatalink,
GUI-Programmierung,
Win32-API
Oracle, ab 9i (SQL, fundierte PL/SQL-Kenntnisse)
Jazykove znalosti: AJ alebo NJ
Toto nie je podmienkou, iba vyhodou : .NET-Kenntnisse (ASP.NET,
WebServices, C#)
V pripade zaujmu kontaktujte p. Belika na belik(zv)timone(tec)cz
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Vlastni vykreslovani v ListView
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 1.10.2005 18:03:29
Prave pro toto chovani jsem to poslal. Je to vynatek ze skutecneho programu,
ve kterem pochopitelne pouzivam ruzne barvy (jakoby zatrhnuty chkbox), takze
vse chodi, jak potrebuji.
Pokud jsem v literature nasel priklad, tak je vzdycky na zmenu barvy pisma.
Ta chodi podle ocekavani, cili spravne. Zkusil jsem totez pro podklad, a
nasel toto podivne chovani.
Zatim jsem ani nezjistil, jestli je to chyba v Delphi nebo ve Windows. Tak
jsem predpokladal, ze delam neco uplne blbe a obratil se na vas.
Asi zkusim jeste mezinarodni forum.
Vlastik.
> je to ozaj podivuhodne, poznamky v texte kodu.(D7P, WXPHOME)
>
> Vlastik wrote:
> > Vazeni,
> >
> > jsem desne zvedavy a potreboval bych (se) naucit spravny zpusob
vykreslovani polozek v ListView, protoze se mi to chova podivne (mam D6
prof.).
> >
> > Mate-li cas, mrknete se na nasledujici kousek programku. Na formulari je
1 checkbox a 1 listview. Ve Form1.OnCreate si nastavim vse, co treba a pak
vykresluji v zavislosti na CheckBoxu pokazde neco jineho, ackoliv podle meho
rozumu by to melo byt vzdycky stejne. Proc to tak je? Delam neco spatne? Jak
to ma byt spravne?
> >
> > Diky za pomoc.
> > Vlastik
> >
> >
> > procedure TForm1.FormCreate(Sender: TObject);
> > var i, j: integer;
> > begin
> > ListView1.ViewStyle:=vsReport;
>
> > ListView1.Color:=clScrollBar;
> 1.KED TU POUZIJEM NAPR. CLWINDOW NAMIESTO SCROLLBAR, ZOBRAZUJE AJ PO
> PREPNUTI CHECKBUTTONU VZDY ROVNAKO, CIZE PODLA OCAKAVANIA
>
> > ListView1.OnCustomDrawSubItem:=ListView1CustomDrawSubItem;
> > for i:=0 to 4 do
> > ListView1.Columns.Add;
> > for i:=0 to 4 do
> > with ListView1.Items.Add do
> > begin Caption:=char(ord('A')+i);
> > for j:=1 to 4 do
> > SubItems.Add(LowerCase(Caption)+IntToStr(j));
> > end;
> > CheckBox1.Checked:=true;
> > end;
> >
> > procedure TForm1.CheckBox1Click(Sender: TObject);
> > begin
> > ListView1.Invalidate;
> > end;
> >
> > procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
> > Item: TListItem; SubItem: Integer; State: TCustomDrawState;
> > var DefaultDraw: Boolean);
> > begin
>
> // if CheckBox1.Checked
> // then Sender.Canvas.Brush.Color:=clWhite;
> 2.KED ZAPOZNAMKUJEM TIETO DVA RIADKY, ZOBRAZUJE PO PREPNUTI CHECKBUTTONU
> TO ISTE, ALE CHYBNE
>
> > case SubItem of
> > 1: Sender.Canvas.Brush.Color:=clLime;
> > 2: Sender.Canvas.Brush.Color:=clScrollBar;
> > 3: Sender.Canvas.Brush.Color:=clYellow;
> > 4: Sender.Canvas.Brush.Color:=clScrollBar;
> > end;
> 3.KED V CASE POUZIJEM NAMIESTO CLSCROLLBAR INU FARBU, NAPR. CLWINDOW,
> ZOBRAZUJE SA TO SPRAVNE, CIZE VZDY ROVNAKO
>
> ked ale pouzijem v bode 1. a v bode 3. rovnaku farbu inu ako
> clScrollBar, dochadza znova k tej chybe. ked su v 1. a 3. rozne farby,
> funguje to podla ocakavania.
>
>
> > end;
> >
> >
> >
> >
> >
>
>
>
>
>ApplyUpdates
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 1.10.2005 17:37:00
> Mam DTB clienta (TClientDataSet). Udelam Post a ted chci udelat
ApplyUpdates, ale NE na vsechny sloupce. Pokud se nepletu, nekde muzu po
rozkliknuti clienta oznacit, co se neprovede v ApplyUpdates, ale zapomnel
jsem to...
Kazdy field (dvoklik na dataset) ma property Provider flags. Vypni
pfInUpdate.
HTH,
MB
SQL a default
[*] Vlastimil Zdenek <vlastimil.zdenek(zv)seznam(tec)cz> - 1.10.2005 15:16:23
Zdravim,
prosim o radu:
muzete mi prosim poradit jak smazat sloupec v tabulce ktery ma nastavenu
Default hodnotu?
Diky moc
vycerpanej Vlasta
D5Ent, MS SQL2000 Pozice MDI child okna
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 1.10.2005 15:09:57
Ahojte,
Neresil jste nekdo problem pri umistovani MDI child okna na stred MDI formu
??? VCL obsahuje chybu, ktera, v pripade, ze MDI form obsahuje cokoliv
jineho nez jen standardni menu, okno umisti na spatne souradnice. Vypocet to
je jednoduchy, ale kam ho dat, aby okno "nebliklo" pri zmene pozice ???
Diky
Milan Tomes
Vlastni vykreslovani v ListView
[*] brano <odber(zv)centrum.sk> - 1.10.2005 15:07:31
je to ozaj podivuhodne, poznamky v texte kodu.(D7P, WXPHOME)
Vlastik wrote:
> Vazeni,
>
> jsem desne zvedavy a potreboval bych (se) naucit spravny zpusob vykreslovani polozek v ListView, protoze se mi to chova podivne (mam D6 prof.).
>
> Mate-li cas, mrknete se na nasledujici kousek programku. Na formulari je 1 checkbox a 1 listview. Ve Form1.OnCreate si nastavim vse, co treba a pak vykresluji v zavislosti na CheckBoxu pokazde neco jineho, ackoliv podle meho rozumu by to melo byt vzdycky stejne. Proc to tak je? Delam neco spatne? Jak to ma byt spravne?
>
> Diky za pomoc.
> Vlastik
>
>
> procedure TForm1.FormCreate(Sender: TObject);
> var i, j: integer;
> begin
> ListView1.ViewStyle:=vsReport;
> ListView1.Color:=clScrollBar;
1.KED TU POUZIJEM NAPR. CLWINDOW NAMIESTO SCROLLBAR, ZOBRAZUJE AJ PO
PREPNUTI CHECKBUTTONU VZDY ROVNAKO, CIZE PODLA OCAKAVANIA
> ListView1.OnCustomDrawSubItem:=ListView1CustomDrawSubItem;
> for i:=0 to 4 do
> ListView1.Columns.Add;
> for i:=0 to 4 do
> with ListView1.Items.Add do
> begin Caption:=char(ord('A')+i);
> for j:=1 to 4 do
> SubItems.Add(LowerCase(Caption)+IntToStr(j));
> end;
> CheckBox1.Checked:=true;
> end;
>
> procedure TForm1.CheckBox1Click(Sender: TObject);
> begin
> ListView1.Invalidate;
> end;
>
> procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
> Item: TListItem; SubItem: Integer; State: TCustomDrawState;
> var DefaultDraw: Boolean);
> begin
// if CheckBox1.Checked
// then Sender.Canvas.Brush.Color:=clWhite;
2.KED ZAPOZNAMKUJEM TIETO DVA RIADKY, ZOBRAZUJE PO PREPNUTI CHECKBUTTONU
TO ISTE, ALE CHYBNE
> case SubItem of
> 1: Sender.Canvas.Brush.Color:=clLime;
> 2: Sender.Canvas.Brush.Color:=clScrollBar;
> 3: Sender.Canvas.Brush.Color:=clYellow;
> 4: Sender.Canvas.Brush.Color:=clScrollBar;
> end;
3.KED V CASE POUZIJEM NAMIESTO CLSCROLLBAR INU FARBU, NAPR. CLWINDOW,
ZOBRAZUJE SA TO SPRAVNE, CIZE VZDY ROVNAKO
ked ale pouzijem v bode 1. a v bode 3. rovnaku farbu inu ako
clScrollBar, dochadza znova k tej chybe. ked su v 1. a 3. rozne farby,
funguje to podla ocakavania.
> end;
>
>
>
>
> chybejici udalost FormShow na zdedenem fomulari
[*] Tomas Hanakol <zkusimhttps(zv)centrum(tec)cz> - 1.10.2005 12:08:54
Zdravim,
pouzivam delphi 2005, aplikaci pro .net spolecne s VCL. Mam problem ze kdyz vytvorim predka napr : common_form, udelam na nem event FormShow, pak si z tohoto predka udelam dedice main_form a na dedicovi zkousim udelat zase FormShow tak se sice vytvori ale po zavreni a otevreni projektu uz neni na dedicovi ten FormShow prirazen v object inspectoru. A z nfm souboru zmizi radky tech udalosti. We win32 to funguje dobre
inherited main_form: Tcommon_form
Caption = 'potomek1_f'
OnCreate = FormCreate <--------------------- chybejici radek v potomkovi
OnShow = FormShow <--------------------- chybejici radek v potomkovi
PixelsPerInch = 96
TextHeight = 13
end
ApplyUpdates
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 1.10.2005 11:44:27
Ahoj,
rad bych vas poprosil o radu.
Mam DTB clienta (TClientDataSet). Udelam Post a ted chci udelat ApplyUpdates, ale NE na vsechny sloupce. Pokud se nepletu, nekde muzu po rozkliknuti clienta oznacit, co se neprovede v ApplyUpdates, ale zapomnel jsem to...
Muze mi prosim nekdo poradit ?
Dekuju
Vasek
Problemy s TWebBrowser.OnNewWindow2 v D6prof
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 1.10.2005 11:01:59
Ahoj,
zkousim udelat multi-tabbed browser na bazi
TWebBrowser a nejsem schopen to rozchodit.
Handler OnNewWindow2 vypada takto:
Tab := _NewTab('');
WB := _LookForBrowser(Tab);
if Assigned(WB) then
ppDisp := WB.DefaultInterface
else
Cancel := TRUE;
takze to vraci v ppDisp interface browseru,
ktery byl vytvoren spolu s novou strankou
(TTabSheet).
Nasledne je vyvolana event BeforeNavigate2,
kde Sender je ten vytvoreny browser
a URL odkazuje na stranku, ktera by se mela
do noveho browseru nacist.
Pak nasleduji eventy NavigateComplete2
a DocumentComplete atd., takze se zda,
ze je vse O.K., ale neni:
okno pridaneho browseru se neprekresluje
resp. po prepnuti Tabu zustava obsah obrazovky
pod oknem neprekresleny a pokud na nej kliknu mysi,
tak to "cinkne" jako kdyz se napr. klika
mimo modalni form.
Kdyz pridavam novou stranku a zobrazuji v ni URL
napr. v ramci obsluhy TAction, tj. "zvenku",
tak to vsechno pracuje bez problemu.***
Takze zrejme mam neco spatne kolem toho predavani
existujiciho browseru misto noveho okna.
Googlem jsem nasel lehce odlisne verze,
kde predavaji jako ppDisp napr. WB.Application,
WB.DefaultInterface as IWebBrowser2 apod.
Nic z toho nepomaha a chova se to stale stejne.
Nema s tim nekdo zkusenosti popr. nenapada nekoho,
co delam spatne?
Diky, pf
OT: Outlook/Pravidla/Vlastni akce
[*] Jiri Baudys <konference(zv)baudys.name> - 1.10.2005 05:09:07
Dobry den,
mam dotazek.
V Outlooku 03 jsem nasel zajimavou moznosti u Pravidelel pro zpracovani
jakousi "Vlastni akci" ale za boha nemuzu prijit na to, jak ji tam pridat a
i v helpu je to k nenalezeni.
diky
jirKa
Delphi 2006
[*] Petr Vones <konference(zv)petrvones(tec)net> - 1.10.2005 02:12:30
From: "Martin Nedopil" <martin.nedopil(zv)hon(tec)cz>
> chtel zeptat. Podle "Key Feature Highlights" je
>
> Latest dbExpress (for VCL) and BDP ADO.NET (for WinForms/ASP.NET)
> client/server and multi-tier
> drivers for BorlandR InterbaseR 7.5, OracleR 10g, IBMR DB2R v8.x,MicrosoftR
> SQL ServerT 2000/2005,
> InformixR v9.x, SQL AnywhereR v9,MySQLR v4.0.24, and SybaseR v12.5
>
> jen pro verzi Enterprise. Znamena to tedy
> ze ve verzi Pro je prd? (tedy ta kosticka
> tam chybi).
A o jakou ti jde platformu ? Pokud Win32 tak dbExpress stejne nebyl moc
pouzivany a skoncilo to bud u ADO nebo nativnich komponent. V pripade .NET
je situace jeste jednodussi, tam mas ADO.NET a prislusne drivery primo ve
frameworku nebo od vyrobce databaze, a zadne Borlandi BDP k nicemu
nepotrebujes.
Petr Vones
ORACLE zdarma
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.10.2005 19:41:38
Ahoj,
mozna pro nekoho zajimava informace - Oracle uvolnil ocesanou verzi
sveho SQL serveru (jeden procesor, velikost databaze 4 GB, operacni
pamet 1 GB):
http://www.oracle.com/technology/software/products/database/oracle10g/index.html
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Delphi 2006
[*] Martin Nedopil <martin.nedopil(zv)hon(tec)cz> - 31.10.2005 15:14:54
Pratele,
mam skromny dotaz.
Prave je na borlandim webu sqela nabidka
jak usetrit 15% ceny!! Staci koupit zajicka v
pytlicku. Celkem bych to zkusil, jen jsem se
chtel zeptat. Podle "Key Feature Highlights" je
Latest dbExpress (for VCL) and BDP ADO.NET (for WinForms/ASP.NET)
client/server and multi-tier
drivers for BorlandR InterbaseR 7.5, OracleR 10g, IBMR DB2R v8.x,MicrosoftR
SQL ServerT 2000/2005,
InformixR v9.x, SQL AnywhereR v9,MySQLR v4.0.24, and SybaseR v12.5
jen pro verzi Enterprise. Znamena to tedy
ze ve verzi Pro je prd? (tedy ta kosticka
tam chybi).
Martin
P.S. A to uz se ani neptam, jestli to ma vubec
cenu.
MDA a Delphi
[*] Karol Chupek <chupek(zv)gmail(tec)com> - 31.10.2005 14:48:27
Ahoj
prave vcera som pozeral na BDN video o ECO
je to 45 min. ale celkom dobre poriesene.. aj s chybickami vyvojara..
a tam je vysvetlenie..
blizsie na
http://bdntv.borland.com/delphi/ECOII%20Accelerating%20Development.html
s pozdravom
Karol
>radek3311(zv)volny(tec)cz wrote:
>
>Stejne mi to pri prvnim zkoumani pripada dost nepouzitelne - kdyz jsem
>si pridal na nejake tride atribut, musel jsem ho rucne pridat taky do
>databaze, nebot jsem neprisel na to, jak nastroj donutit toto pregenerovat.
>
> Lukas
>
>
>
>>Radek
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>
>
>
MDA a Delphi
[*] radek3311(zv)volny(tec)cz - 31.10.2005 13:51:58
az tak jsem to nezkoumal - na webu jsem ale nasel tohle:
A major benefit of ECO is application change management, where
model information is used to automatically update databases and
necessary source code to reduce some of the burden associated with
application maintenance.
tak mozna to nejak jde - trochu jsem taky doufal ze se ozve HAES s
nejakym skolenim
Radek
MDA a Delphi
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 31.10.2005 12:51:29
radek3311(zv)volny(tec)cz wrote:
> ECO Framework by me take zajimal - dela na to nekdo nejaka skoleni
>?
>
>
>
Skoleni neni az tak nutne.
Stacila by nejaka kniha/clanky z praktickeho pouziti.
Stejne mi to pri prvnim zkoumani pripada dost nepouzitelne - kdyz jsem
si pridal na nejake tride atribut, musel jsem ho rucne pridat taky do
databaze, nebot jsem neprisel na to, jak nastroj donutit toto pregenerovat.
Lukas
>Radek
>
>
>
>
>
>USB Flash disk - detekce
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 31.10.2005 11:40:09
>> Tady vsak nenajdu disk, ktery se namapuje na jiz existujici disk. Po
>> prihlaseni do Novellu je prvnim diskem F: a kdyz je C,D,E obsazeno,
>> tak se flash disk namapuje jako F:, ale neni videt. Je potreba pres
>> spravu pocitace zmenit pismeno jednotky. Lze nejak zachytit proces
>> pripojeni USB flash disku a pripadne ho nastavit na nejake jine
>> pismeno (napr.: U:).
>
> Ahoj,
>
> to je nejake podivne, protoze kdyz existuji sitove disky, flash disk se ma
> automaticky namapovat
> na jine pismenko. U nas mame diky novellu obsazene vetsinou F: - P:, takze
> pripojim-li cokoliv
> pres USB, dostane to pismenko Q:... Spis je problem, kdybych mel pripojen
> flash disk jako F: a pak
> se teprve prihlasil na Novell, protoze Novell asi nebude schopen uzurpovat
> to F:.
>
> Karel Rys
Kdysi, kdyz jsme meli Novela a dos tak na to mel vliv LastDrive....
Ja pouzivat s uspechem tuto procedurku
procedure TASKFORM.CheckDevice(var WMsg: TMessage);
function GetDriveLetter(UM: LongInt): String;
var
I, DL: ShortInt;
begin
Result := '';
DL := Ord('A');
For I := 0 to 25 do
begin
If ((UM and 1) = 1) then
Result := Result + Char(DL);
UM := UM shr 1;
Inc(DL);
end;
end;
var
LpDBH: PDEV_BROADCAST_HDR;
LpDBV: PDEV_BROADCAST_VOLUME;
DriveLetter: String;
F: TextFile;
S: string;
povedlose:boolean;
begin
If not DataModule1.automatUSB_reakce.Value then Exit;
povedlose:=false; If WMsg.wParam = DBT_DEVICEARRIVAL then
begin
LpDBH := PDEV_BROADCAST_HDR(WMsg.lParam);
If (LpDBH^.DeviceType = DBT_DEVTYP_VOLUME) then
begin
LpDBV := PDEV_BROADCAST_VOLUME(WMsg.lParam);
If LpDBV^.DeviceType = 2 then
begin
DriveLetter := GetDriveLetter(LpDBV^.UnitMask);
DriveLetter := DriveLetter +
':\'+oznaceniautomatu.Text+'\'+oznaceniautomatu.Text+'.key';
If fileExists(DriveLetter) then
begin
AssignFile(F, DriveLetter);
Reset(F);
try
Readln(F, S);
finally
CloseFile(F);
end;
povedlose:= (s=DataModule1.automatUSB_klic.Value);
end;
if povedlose then
begin
usbaktualizaceform.Timer1.Enabled:=true;
usbaktualizaceform.soubor:=DriveLetter;
usbaktualizaceform.ShowModal;
end
else
begin
DataModule1.zvuky(41);
if DataModule1.automatUSB_VAROVANI.Value then
DataModule1.pisSMS(DataModule1.automatUSB_smsemail.Value,
'Do automatu:'+oznaceniautomatu.Text+', byl vlozen nespravny USB
DRIVER!!');
end;
end;
end;
end;
end;Vlastni vykreslovani v ListView
[*] Vlastik <bartos(zv)spsmvbr(tec)cz> - 31.10.2005 11:48:59
Vazeni,
jsem desne zvedavy a potreboval bych (se) naucit spravny zpusob vykreslovani polozek v ListView, protoze se mi to chova podivne (mam D6 prof.).
Mate-li cas, mrknete se na nasledujici kousek programku. Na formulari je 1 checkbox a 1 listview. Ve Form1.OnCreate si nastavim vse, co treba a pak vykresluji v zavislosti na CheckBoxu pokazde neco jineho, ackoliv podle meho rozumu by to melo byt vzdycky stejne. Proc to tak je? Delam neco spatne? Jak to ma byt spravne?
Diky za pomoc.
Vlastik
procedure TForm1.FormCreate(Sender: TObject);
var i, j: integer;
begin
ListView1.ViewStyle:=vsReport;
ListView1.Color:=clScrollBar;
ListView1.OnCustomDrawSubItem:=ListView1CustomDrawSubItem;
for i:=0 to 4 do
ListView1.Columns.Add;
for i:=0 to 4 do
with ListView1.Items.Add do
begin Caption:=char(ord('A')+i);
for j:=1 to 4 do
SubItems.Add(LowerCase(Caption)+IntToStr(j));
end;
CheckBox1.Checked:=true;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
ListView1.Invalidate;
end;
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if CheckBox1.Checked
then Sender.Canvas.Brush.Color:=clWhite;
case SubItem of
1: Sender.Canvas.Brush.Color:=clLime;
2: Sender.Canvas.Brush.Color:=clScrollBar;
3: Sender.Canvas.Brush.Color:=clYellow;
4: Sender.Canvas.Brush.Color:=clScrollBar;
end;
end;problem po prechode z fb 1.0 na 1.5
[*] hlas <hlas(zv)inmail.sk> - 31.10.2005 11:44:34
na 1.0 bola cesta c:\adresar\db.fdb
na 1.5 je cesta localhost:c:\adresat\db.fdb
----- Original Message -----
From: "Borkovec Roman" <roman.borkovec(zv)bluepixel(tec)cz>> jedna z moznosti je ta, ze se odvolava na databazi bez urceni serveru
> (alespon localhost:databaze)
> jestli mas moznost videt jak tonastavuje, mrkni na to.
> Roman
>
problem po prechode z fb 1.0 na 1.5
[*] Borkovec Roman <roman.borkovec(zv)bluepixel(tec)cz> - 31.10.2005 11:39:43
jedna z moznosti je ta, ze se odvolava na databazi bez urceni serveru
(alespon localhost:databaze)
jestli mas moznost videt jak tonastavuje, mrkni na to.
Roman
>u zakaznika nie je mozne rozbehat povodny soft nad 1.5 firebirdom.
> u seba mi to chodi aj s jeho databazou
> v subore firebird.log ma hlasku:
> INET/inet_error: select in packet_receive errno = 10038
>
>
> v com moze byt problem?
>
> ze by mal ine sietove protokoly?
>
>
>
OT: Licence Delphi 5-7 nutne!
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 31.10.2005 11:01:15
Moc prosim, nemate nekdo k prodeji licenci Delphi 5-7 professional? Moc bych
to potreboval. Kdyby nahodou nekdo mel, prosim na email m.zaplik(zv)volny(tec)cz
dik zaplik problem po prechode z fb 1.0 na 1.5
[*] hlas <hlas(zv)inmail.sk> - 31.10.2005 10:50:49
u zakaznika nie je mozne rozbehat povodny soft nad 1.5 firebirdom.
u seba mi to chodi aj s jeho databazou
v subore firebird.log ma hlasku:
INET/inet_error: select in packet_receive errno = 10038
v com moze byt problem?
ze by mal ine sietove protokoly?USB Flash disk - detekce
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 31.10.2005 10:06:21
delphi(zv)spst(tec)cz dne 30 Oct 2005 v 9:10:
> Tady vsak nenajdu disk, ktery se namapuje na jiz existujici disk. Po
> prihlaseni do Novellu je prvnim diskem F: a kdyz je C,D,E obsazeno,
> tak se flash disk namapuje jako F:, ale neni videt. Je potreba pres
> spravu pocitace zmenit pismeno jednotky. Lze nejak zachytit proces
> pripojeni USB flash disku a pripadne ho nastavit na nejake jine
> pismeno (napr.: U:).
Ahoj,
to je nejake podivne, protoze kdyz existuji sitove disky, flash disk se ma automaticky namapovat
na jine pismenko. U nas mame diky novellu obsazene vetsinou F: - P:, takze pripojim-li cokoliv
pres USB, dostane to pismenko Q:... Spis je problem, kdybych mel pripojen flash disk jako F: a pak
se teprve prihlasil na Novell, protoze Novell asi nebude schopen uzurpovat to F:.
Karel Rys
aritmeticke operace s neomezene dlouhymi cisly
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 31.10.2005 09:13:47
Coz takhle Google multiprecision+arithmetic+delphi ? Tam toho je... Jarda
From: "Vlastimil Burian" <vlastax.b(zv)seznam(tec)cz>> napsal jsem funkce pro [+,-,*,/] pro operace viz %subj% - na bazi string
> .. v zatezi (napr vetsi faktorialy) se jiz projevi ze jsou o dost
> pomalejsi
> nez v nekterych programech ktere jsem shledl jez s takovymi operacemi
> pracuji ... jiz nevim co bych jak optimalizoval ... mohli byste mne
> odkazat
> na nejake overene unity s takovymi funkcemi abych porovnal implementaci ??
> diky
firebird +rdb$
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 31.10.2005 08:49:20
> ahoj kluci nevite kde bych nasel pokec o rdb$ tabulkach, napriklad jak
> zjistit strukturu tabulky pomoci rdb$xxx ci podobne veci...
V roce 2002 na www.dbsvet(tec)cz vychazel serial Systemovy katalog FireBird.
Tady je odkaz na jeden dil:
http://www.dbsvet(tec)cz/view.php?cisloclanku=2002092305 ostatni uz se najdou
snadno.
Jinak knizka Pavla Cisare Podrobna prirucka Interbase/Firebird od
ComputerPress, tam je vse.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 firebird +rdb$
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 31.10.2005 08:40:54
cau,
zkus http://www.dbsvet(tec)cz/view.php?cisloclanku=2002082606.
KER
USB Flash disk - detekce
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 31.10.2005 08:24:28
> Potrebuji zjistit existenci flash disku......
unit U_Usb;
interface
uses
Windows, Messages, SysUtils, Classes, Forms;
type
PDevBroadcastHdr = ^DEV_BROADCAST_HDR;
DEV_BROADCAST_HDR = packed record
dbch_size: DWORD;
dbch_devicetype: DWORD;
dbch_reserved: DWORD;
end;
PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;
DEV_BROADCAST_DEVICEINTERFACE = record
dbcc_size: DWORD;
dbcc_devicetype: DWORD;
dbcc_reserved: DWORD;
dbcc_classguid: TGUID;
dbcc_name: short;
end;
const
GUID_DEVINTERFACE_USB_DEVICE: TGUID =
'{A5DCBF10-6530-11D2-901F-00C04FB951ED}';
DBT_DEVICEARRIVAL = $8000; // system detected a new
device
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
DBT_DEVTYP_DEVICEINTERFACE = $00000005; // device interface class
type
TComponentUSB = class(TComponent)
private
FWindowHandle: HWND;
FOnUSBArrival: TNotifyEvent;
FOnUSBRemove: TNotifyEvent;
procedure WndProc(var Msg: TMessage);
function USBRegister: Boolean;
protected
procedure WMDeviceChange(var Msg: TMessage); dynamic;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property OnUSBArrival: TNotifyEvent read FOnUSBArrival write
FOnUSBArrival;
property OnUSBRemove: TNotifyEvent read FOnUSBRemove write FOnUSBRemove;
end;
implementation
constructor TComponentUSB.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FWindowHandle := AllocateHWnd(WndProc);
USBRegister;
end;
destructor TComponentUSB.Destroy;
begin
DeallocateHWnd(FWindowHandle);
inherited Destroy;
end;
procedure TComponentUSB.WndProc(var Msg: TMessage);
begin
if (Msg.Msg = WM_DEVICECHANGE) then
begin
try
WMDeviceChange(Msg);
except
Application.HandleException(Self);
end;
end
else
Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam,
Msg.lParam);
end;
procedure TComponentUSB.WMDeviceChange(var Msg: TMessage);
var
devType: Integer;
Datos: PDevBroadcastHdr;
begin
if (Msg.wParam = DBT_DEVICEARRIVAL) or (Msg.wParam =
DBT_DEVICEREMOVECOMPLETE) then
begin
Datos := PDevBroadcastHdr(Msg.lParam);
devType := Datos^.dbch_devicetype;
if devType = DBT_DEVTYP_DEVICEINTERFACE then
begin // USB Device
if Msg.wParam = DBT_DEVICEARRIVAL then
begin
if Assigned(FOnUSBArrival) then
FOnUSBArrival(Self);
end
else
begin
if Assigned(FOnUSBRemove) then
FOnUSBRemove(Self);
end;
end;
end;
end;
function TComponentUSB.USBRegister: Boolean;
var
dbi: DEV_BROADCAST_DEVICEINTERFACE;
Size: Integer;
r: Pointer;
begin
Result := False;
Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);
ZeroMemory((zv)dbi, Size);
dbi.dbcc_size := Size;
dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;
dbi.dbcc_reserved := 0;
dbi.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;
dbi.dbcc_name := 0;
r := RegisterDeviceNotification(FWindowHandle, (zv)dbi,
DEVICE_NOTIFY_WINDOW_HANDLE
);
if Assigned(r) then Result := True;
end;
//Touto cestou dekuji jeste jednou panu Robertu Plzakovi, ktery mi pomohl s
resenim
end.
MDA a Delphi
[*] radek3311(zv)volny(tec)cz - 31.10.2005 06:55:57
ECO Framework by me take zajimal - dela na to nekdo nejaka skoleni
?
Radek
firebird +rdb$
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.10.2005 19:42:46
Ahoj,
Ales Pavel napsal(a):
> ahoj kluci nevite kde bych nasel pokec o rdb$ tabulkach,
je to napsane v dokumentaci (reference guide)
> napriklad jak zjistit strukturu tabulky pomoci rdb$xxx
na to staci prikaz SHOW TABLE XXX;
> ci podobne veci...
obecne jenom pozor, neni radno si se systemovymi tabulkami prilis
pohravat.
> nejak to na ibphoenixu nemuzu dohledat.
jako vybornou dokumentaci v cestine doporucuji knihu Pavla Cisare
Interbase a Firebird:
http://knihy.cpress(tec)cz/Book.asp?ID=713&SearchText=K0820&SearchType=11
> Aldik
Peca
StringGrid s moznosti barevnych bunek
[*] brano <odber(zv)centrum.sk> - 30.10.2005 19:06:18
Vlastimil Burian wrote:
> potrebuji komponentu typu StringGrid s vylepsenim viz %subj% - jednoduse u
> kazde bunky urcitelnou barvou pozadi ... TJvStringGrid z JVCL toto se
> domnivam neumi - nebo ano?
TStringAlignGrid
http://www.hoerstemeier.com/grid.htm
aritmeticke operace s neomezene dlouhymi cisly
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 30.10.2005 18:37:50
napsal jsem funkce pro [+,-,*,/] pro operace viz %subj% - na bazi string
... v zatezi (napr vetsi faktorialy) se jiz projevi ze jsou o dost pomalejsi
nez v nekterych programech ktere jsem shledl jez s takovymi operacemi
pracuji ... jiz nevim co bych jak optimalizoval ... mohli byste mne odkazat
na nejake overene unity s takovymi funkcemi abych porovnal implementaci ??
diky StringGrid s moznosti barevnych bunek
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 30.10.2005 18:33:24
potrebuji komponentu typu StringGrid s vylepsenim viz %subj% - jednoduse u
kazde bunky urcitelnou barvou pozadi ... TJvStringGrid z JVCL toto se
domnivam neumi - nebo ano? firebird +rdb$
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 30.10.2005 17:38:56
ahoj kluci nevite kde bych nasel pokec o rdb$ tabulkach, napriklad jak
zjistit strukturu tabulky pomoci rdb$xxx ci podobne veci...
nejak to na ibphoenixu nemuzu dohledat.
Aldik
Rave Reports - zapati posledni stranky
[*] ing. Petr Borkovec <petrborkovec(zv)volny(tec)cz> - 30.10.2005 15:04:20
Delphi 7, Rave Reports - version 5.0, Borland Edition
V tiskovem vystupu potrebuji na konci posledni stranky mit text "razitko:" a
"vystavil:". Zakaznik trva na tom, ze to musi byt az na spodnim okraji
stranky, nikoli tedy nikoli treba uprostred stranky, kde skonci text,
produkovany predchazejicimi databands a nikoli na predchozich strankach, ale
jen na posledni.
Muze nekdo poradit? Dekuji.Grid filtr na polich lookup
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 30.10.2005 14:25:49
ahoj pouzivam VolgaGrid a potreboval bych filtrovat podle jednoho pole v
gridu dalsi pole, problem je v tom ze kdyz prejdu na jiny radek a tam
nastavim prvni parametr jinak zmeni se mi hodnoty v radku prechozim
tj asi takhle
|radek1 | filter polex | filter hodnotx |
|radek2 | filter_polexx | filter_hodnotxx |
diky tomu ze mam query s rozsahem pokazde s jinym vyberem tak se mi i
radek1 a radek2 chaoticky meni (filter hodnotx,filter hodnotxx)
nevite co s tim a jak se to resi?
Aldik
Sietove pripojenie na MSSQL cez ADO
[*] lelicek(zv)volny(tec)cz - 30.10.2005 10:53:04
Ahoj,
nejjednodusi je vyvolat prihlasivaci dialog ADO z TADOConnection.
Staci pak vyplnit (vybrat) jmeno serveru?a database a zpusob
autorizace.
Pavel
Lazarus 0.9.10 na Suse 9.2
[*] Roland Turcan <konf(zv)rotursoft.sk> - 30.10.2005 09:54:32
<<< 30.10.2005 9:50 - delphi(zv)spst(tec)cz "delphi(zv)spst(tec)cz" >>>
dsc> V jakem prostredi to instalujes. Ja jsem to vyzkousel v prostredi KDE a tam
dsc> to chtelo balicky a skutecne se mi nepovedl nainstalovat. V prostredi Gnome
dsc> se bez problemu nainstaloval a pak to fungovalo i po prehlaseni do prostredi
dsc> KDE.
Presne tak, instaloval som to v Suse 9.2 Pro Kde 3.3. Ale skusim to co
si mi poradil.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
USB Flash disk - detekce
[*] delphi(zv)spst(tec)cz - 30.10.2005 09:10:03
Zdravim,
Potrebuji zjistit existenci flash disku. Zatim to provadim takto:
for Drive := 'C' to 'Z' do
begin
DriveLetter := Drive + ':\';
if GetDriveType(PChar(Drive + ':\')) = DRIVE_REMOVABLE then begin
//Tady provadim nejake akce
end;
end;
Tady vsak nenajdu disk, ktery se namapuje na jiz existujici disk. Po
prihlaseni do Novellu je prvnim diskem F: a kdyz je C,D,E obsazeno, tak se
flash disk namapuje jako F:, ale neni videt. Je potreba pres spravu pocitace
zmenit pismeno jednotky.
Lze nejak zachytit proces pripojeni USB flash disku a pripadne ho nastavit
na nejake jine pismeno (napr.: U:).
D7, W XP Profesional
Predem vsem dekuji
Jirka
Lazarus 0.9.10 na Suse 9.2
[*] delphi(zv)spst(tec)cz - 30.10.2005 09:05:38
Zdravim,
V jakem prostredi to instalujes. Ja jsem to vyzkousel v prostredi KDE a tam
to chtelo balicky a skutecne se mi nepovedl nainstalovat. V prostredi Gnome
se bez problemu nainstaloval a pak to fungovalo i po prehlaseni do prostredi
KDE.
Jirka
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Roland Turcan
Sent: Thursday, October 27, 2005 8:49 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Lazarus 0.9.10 na Suse 9.2
Hello All!
Mate niekto instalovany Lazarus na Suse 9.2, lebo mne to stale pise,
ze nemam nejaky balicek instalovany a uz som mu nainstaloval vsetky co
sa pozadovali a stale sa odkazuje na balicky, ktore ked dam
instalovat, tak dostanem hlasenie "already installed"
Netusite kde moze byt hacik?
--
Best regards, TRoland
http://exekutor.rotursoft.sk
________ Information from NOD32 ________
This message was checked by NOD32 Antivirus System for Linux Mail Server.
http://www.nod32.com
Sietove pripojenie na MSSQL cez ADO
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 30.10.2005 07:21:03
Pro pripojeni pouzivam nasledujici parametry:
[SQL Server trusted - overeni podle domeny]
Provider=SQLOLEDB.1
Integrated Security=SSPI
Persist Security Info=False
Data Source=<jmeno serveru>
Initial Catalog=<jmeno databaze>
[SQL Server direct - overeni primo na SQL serveru]
Provider=SQLOLEDB.1
User ID=<jmeno uzivatele>
Persist Security Info=False
Data Source=<jmeno serveru>
Initial Catalog=<jmeno databaze>
Ostatni parametry jsou nadbytecne
Pro pripojeni staci pouzit Connection string v ADO komponente, vede te sam a
nastavi vse spravne. Pokud by mohl byt nekde problem, tak jedine ve
Windowsech, chce to overit instalaci nebo primo preinstalovat MDAC viz napr.
http://support.microsoft.com/?kbid=823718 .
Vlastik
>
> Na internete som nasiel takyto connectionstring:
> Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
> Info=False;User ID=sa;Initial Catalog=vs;Data Source=SERVER;Network
> Library=dbmssocn;uid=sa;pwd=heslo;
>
Sietove pripojenie na MSSQL cez ADO
[*] Peter Ondras <konfery(zv)pse.sk> - 29.10.2005 22:43:59
Ako sa da pripojit na MSSQL2000 z Delphi+ADO? MSSQL je nainstalovany aj
na klientovi aj na serveri. Databaza je vsak len na serveri. Lokalne zo
serveru sa bez problemov pripojim, avsak z klienta neviem zapisat
spravne connectionstring alebo neviem nastavit sql server. Nastavenie
sql serveru som nechal default len v SQL Server Network Utility som
pridal TCP/IP (port som nemenil). Firewall je na oboch stranach vypnuty.
Na internete som nasiel takyto connectionstring:
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;User ID=sa;Initial Catalog=vs;Data Source=SERVER;Network
Library=dbmssocn;uid=sa;pwd=heslo;Foreign keys - problem
[*] Robert Fujak <robof(zv)inmail.sk> - 28.10.2005 15:35:26
keby to niekoho zaujimalo, tak po hodine lamania si hlavy preco??? to
vyriesil backup a restore a vsetko je OK
Robo.
> Zdravim.
> Neviem ci sa mylim ale podla mna by to malo fungovat.
> Je mozne mat dva foreign keys na jednu master tabulku?
FB: Foreign keys - problem
[*] Robert Fujak <robof(zv)inmail.sk> - 28.10.2005 14:18:56
Zdravim.
Neviem ci sa mylim ale podla mna by to malo fungovat.
Je mozne mat dva foreign keys na jednu master tabulku?
mam tabulky
master (ID, NAZOV)
child (ID, IDMASTER1, IDMASTER2)
ID su primarne kluce
ALTER TABLE CHILD ADD FOREIGN KEY (IDMASTER1) REFERENCES MASTER (ID) ON
DELETE ....;
ALTER TABLE CHILD ADD FOREIGN KEY (IDMASTER2) REFERENCES MASTER (ID) ON
DELETE ....;
databaza to dovoli vytvorit, ale do pola IDMASTER2 nemozem dat ziadnu
hodnotu.
S pozdravom
Robert Fujak
Vymazani editu a memo na formulari/panelu aplikace
[*] Dusan Vrazel <d.vrazel(zv)centrum(tec)cz> - 28.10.2005 12:22:23
dej si je na samostatny Tpanel a smaz pak jen ten.
A nestaci to jen skryt? Visible:=false; ?
----- Original Message -----
From: "MaReK Penguin Olsavsky" <orsm(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 28, 2005 11:22 AM
Subject: Vymazani editu a memo na formulari/panelu aplikace
> Dobry den,
> existuje zpusob, ja smazat vsechny vstupni prvky (Edit, MaskEdit, Memo,
> txtGrid) na panelu, ktery je v PageContolu? Potrebuji vyprazdnit
> vcechno, co je na aktivnim pageControlu a zajima me, jestli to lze
> udelat "jen" otrockym smazanim prvek po prvku, nebo jestli existuje
> prostedek, jak vycistit vsechny vstupni prvky, nejlepe jednim prikazem
> :-).
> Dekuji
> MaReK Olsavsky
>
>
>
> __________ NOD32 1.1266 (20051026) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.nod32.com
>
> Vymazani editu a memo na formulari/panelu aplikace
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 28.10.2005 12:17:57
> existuje zpusob, ja smazat vsechny vstupni prvky (Edit, MaskEdit, Memo,
> txtGrid) na panelu, ktery je v PageContolu? Potrebuji vyprazdnit
> vcechno, co je na aktivnim pageControlu a zajima me, jestli to lze
> udelat "jen" otrockym smazanim prvek po prvku, nebo jestli existuje
> prostedek, jak vycistit vsechny vstupni prvky, nejlepe jednim prikazem
:-).
Napis si nejakou metodu, ktera projde vsechny controls daneho kontejneru
(parenta), napr. formulare, nebo panelu, a podle nejakeho kriteria (typ
prvku, jeho tag nebo nejaka jina vlastnost) s nimi neco provede. Tuhle
metodu muzes volat vsude kde bude potreba, takto nejak
ClearAllEdits(FrmMujForm) nebo ClearAllEdits(FrmMujForm.Panel1)
Nezapomen na rekurzivni volani teto metody pro subkontejnery (panely,
groupboxy).
MB
Vymazani editu a memo na formulari/panelu aplikace
[*] Patrik Valenta <valentapat(zv)volny(tec)cz> - 28.10.2005 12:09:31
for i:=0 to componentcount-1 do begin
if (Components[I] is TMemo) then TMemo.lines.clear;
end;
----- Original Message -----
smazat vsechny vstupni prvky (Edit, MaskEdit, Memo,
----------------------------------------
I am using the free version of SPAMfighter for private users.
It has removed 743 spam emails to date.
Paying users do not have this message in their emails.
Try www.SPAMfighter.com for free now!refresh zaznamu v kbmMemtable
[*] Robert Fujak <robof(zv)inmail.sk> - 28.10.2005 11:45:02
ten druhy sposob je ten pravy. pouzivam k plnej spokojnosti
Kbm.Insert;
Kbm.AssignRecord(..
S pozdravom
Robo
> ako refreshnut novy zaznam v kbmMemTable?
>
> nacitam data z query cez
> DM.MTZam.LoadFromDataSet(dm.QZam,[mtcpoStructure,mtcpoProperties]);
>
> potom napr. pridam jeden zaznam SQL insertom do databazy a potreboval by
> som refreshnut ten novo pridany zaznam
>
> aby sa zjavil v gride....
>
> 1. da sa refreshnut cela tabulka... asi nie je moc vhodne
> 2. da sa pridat taky isty zaznam do kbmMemTable cez appen, post... sa mi
> zda neprakticke
>
> neda sa to urobit nejako inak a sikovnejsie?
Vymazani editu a memo na formulari/panelu aplikace
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 28.10.2005 11:22:36
Dobry den,
existuje zpusob, ja smazat vsechny vstupni prvky (Edit, MaskEdit, Memo,
txtGrid) na panelu, ktery je v PageContolu? Potrebuji vyprazdnit
vcechno, co je na aktivnim pageControlu a zajima me, jestli to lze
udelat "jen" otrockym smazanim prvek po prvku, nebo jestli existuje
prostedek, jak vycistit vsechny vstupni prvky, nejlepe jednim prikazem :-).
Dekuji
MaReK Olsavsky
refresh zaznamu v kbmMemtable
[*] hlas <hlas(zv)inmail.sk> - 28.10.2005 10:36:07
ako refreshnut novy zaznam v kbmMemTable?
nacitam data z query cez DM.MTZam.LoadFromDataSet(dm.QZam,[mtcpoStructure,mtcpoProperties]);
potom napr. pridam jeden zaznam SQL insertom do databazy a potreboval by som refreshnut ten novo pridany zaznam
aby sa zjavil v gride....
1. da sa refreshnut cela tabulka... asi nie je moc vhodne
2. da sa pridat taky isty zaznam do kbmMemTable cez appen, post... sa mi zda neprakticke
neda sa to urobit nejako inak a sikovnejsie?
Defaultne pripojenie na internet
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 28.10.2005 08:57:35
Asi bych to resil externim zavolanim "ping x.x.x.x" s konkretni adresou,
vysledek presmeroval a pak vyhodnotil. Hlaseni W jsou obcas nesmyslne.
S pozdravem Mirek Vopalecky, D7 W2000
>
>Zdravim
>
>Mam takuto vec.
>Potrebujem otestovat ci je PC pripojene na internet,
>a ak nie je pripojit sa defaultnym pripojenim.
>
>Skusal som bezne zname konstrukcie typu
>if not InternetAutoDial(INTERNET_AUTODIAL_FORCE_ONLINE
>a tak isto aj cez "ras".
>
>Problem je v tom, ze ked sa uspesne pripojim a
>potom odpojim , obcas mi funkcia vrati hodnotu
>ako keby bolo spojenie stale aktivne (t.j.) neda sa pripojit.
>
>Toto sa deje dost nepravidelne, niekedy sa mi podari
>uspesne otestovat pripojenie a pripojit sa aj 3 -4 krat
>za sebou, inokedy len raz a potom to uz nejde. (az po cca 10 min )
>
>Podotykam ze napr z outloku to u mna funguje 100% spolahlivo.
>
>Mam Win XP Prof. a pripojenie ADSL
>
>Otazka:
>Co to moze sposobovat?
>
>S pozdravom
> Ivan Dulgerov
>Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
>mail : idulgerov(zv)stonline.sk
>
>
>
>
>
>
>
>aplikacia typu taskbar
[*] miroslav.barica(zv)matador.sk - 28.10.2005 08:47:09
Dobry den,
Stojim pred ulohou vytvorit pre uzivatelov ktori sa pripajaju na server
cez terminal klienta zhotovit aplikaciu typu task bar. Tato sa spusti po
nalogovani na server cez TC. Tato :lista" sa ma nachadzat na mieste
povodneho taskbar-u. Tym padom pre mna vystava otazka ako zabezpecit
velkost pracovnej plochy tak aby pri maximalizacii spustenej aplikacii
dana aplikacia neprekryla moj "taskbar". Nema to byt nic zlozite, proste
len lista s tlacidlom pre rozbalenie menu so zoznamom povolenych
aplikacii pre uzivatela. Vedel by ma niekto nasmerovat ako nakodovat
takyto primitivny "taskbar"?
Dakujem za pripadne rady ;-)
M.
Bezici FB z CD-Romu
[*] Roland Turcan <konf(zv)rotursoft.sk> - 27.10.2005 21:01:53
<<< 27.10.2005 20:59 - Ales Pavel "aldik(zv)quick(tec)cz" >>>
AP> no vazne je to tak jednoduche?:-D Takze jen nakopcit firebird na cd +
AP> nastavit gfixem db na read only? Jdu si s tim pohrad vypada to zajimave..
Myslim, ze jeden z dovodov bola aj moznost spustat aplikacie
vyuzivajuce Firebird z readonly zaradeni.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Lazarus 0.9.10 na Suse 9.2
[*] Roland Turcan <konf(zv)rotursoft.sk> - 27.10.2005 20:49:27
Hello All!
Mate niekto instalovany Lazarus na Suse 9.2, lebo mne to stale pise,
ze nemam nejaky balicek instalovany a uz som mu nainstaloval vsetky co
sa pozadovali a stale sa odkazuje na balicky, ktore ked dam
instalovat, tak dostanem hlasenie "already installed"
Netusite kde moze byt hacik?
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Bezici FB z CD-Romu
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 27.10.2005 20:47:02
no vazne je to tak jednoduche?:-D Takze jen nakopcit firebird na cd +
nastavit gfixem db na read only? Jdu si s tim pohrad vypada to zajimave..
petr palicka napsal(a):
>Ahoj,
>
>Ales Pavel napsal(a):
>
>
>>Ahoj da se nejak rozchodit demo s Firebirdem, kde db+exe pobezi bez
>>instalace rovnou z cd?
>>
>>
>
> myslim, ze ano. Pouzij FB Embeded. GFIXem (aspon myslim, ze je na to
>potreba GFIX) nastav databazi jen ke cteni.
>
>
>
>>Mate nekdo zkusenost?
>>
>>
>
> Ne, jenom bezinstalacni beh. fbembeded.dll jsem prejmenoval na
>gds32.dll a placnnul do slozky s programem (pouzivam komponenty IBX).
>Funguje to OK, myslim, ze by to slo i z CD.
>
>
>
>>Aldik
>>
>>
>
>Peca
>
>
>
>
>
Bezici FB z CD-Romu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.10.2005 20:34:35
Ahoj,
Ales Pavel napsal(a):
> Ahoj da se nejak rozchodit demo s Firebirdem, kde db+exe pobezi bez
> instalace rovnou z cd?
myslim, ze ano. Pouzij FB Embeded. GFIXem (aspon myslim, ze je na to
potreba GFIX) nastav databazi jen ke cteni.
> Mate nekdo zkusenost?
Ne, jenom bezinstalacni beh. fbembeded.dll jsem prejmenoval na
gds32.dll a placnnul do slozky s programem (pouzivam komponenty IBX).
Funguje to OK, myslim, ze by to slo i z CD.
> Aldik
Peca
MDA a Delphi
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 27.10.2005 20:02:06
Ahoj,
pouzivate nekdo pri vyvoji v Delphi MDA (asi ECO Framework)? Muzete
se prosim podelit o zkusenosti z praxe?
Zajima mne to zatim ze studijnich duvodu.
Diky,
Lukas
Bezici FB z CD-Romu
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 27.10.2005 19:57:40
Ahoj da se nejak rozchodit demo s Firebirdem, kde db+exe pobezi bez
instalace rovnou z cd?
Mate nekdo zkusenost?
Aldik
Freepascal+Lazarus+Firebird, generator tiskovych s
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.10.2005 13:08:22
> neco je tady http://lazreport.sourceforge.net/ ale nezkousel jsem.
> Jinak asi pred pul rokem jsem neco zkousel napsat v lazaru-su a docela
> me prekvapilo jak obrovske exe soubory z toho lezou. Mate s tim nekdo
> podobnou zkusenost ?
To je problem pouzitych binutils, ktere tam tusim za kazdych
okolnosti linkuji hromady debug informaci, i kdyz o ne nestojis. Zkus
ten exac prohnat pres strip.exe.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Freepascal+Lazarus+Firebird, generator tiskovych s
[*] radek3311(zv)volny(tec)cz - 27.10.2005 12:13:53
neco je tady http://lazreport.sourceforge.net/ ale nezkousel jsem.
Jinak asi pred pul rokem jsem neco zkousel napsat v lazaru-su a
docela me prekvapilo jak obrovske exe soubory z toho lezou. Mate s
tim nekdo podobnou zkusenost ?
Radek
--
Volejte za 0,- Kc po cele CR se sluzbou VOLNY TelefoNet. Vice
informaci na http://telefonet.volny(tec)cz
Delphi a vyuziti pameti
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.10.2005 11:23:22
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Rocek
>
> Delphi 5 + D5EntUpdate na Windows2000 Professional
Tak to teda pak nevim :( , todle bylo vcelku normalni u W9x .
Pameti je dost ? Zacalo to delat z niceho nic ?
PM
Delphi a vyuziti pameti
[*] delphinpp(zv)atlas(tec)cz - 27.10.2005 11:20:57
Martin Rocek wrote:
>mam D5 a jakmile je spustim, zacnou spotrebovavat pamet a vyuzivaji procesor
>na 100% dokud nevycerpaji systemove prostredky.
>
>Zkusil jsem vypnout "Code Insight", ale nic moc.
>
>Mate s tim nekdo zkusenost?
>
>Diky Martin
>
>
Zdar,
ano, tiez som s tym mal problem.. po vypnuti "To-Do Listu" to uz islo ok.
M.Delphi a vyuziti pameti
[*] Martin Rocek <rocek(zv)dibaq(tec)cz> - 27.10.2005 11:18:32
Delphi 5 + D5EntUpdate na Windows2000 Professional
Prepumpovani dat z MDB do FB
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 27.10.2005 11:08:06
ja jsem si udelal insertpump udela to inserty primo do tabulky a pole
ktere si zadas, neni to na nejake velke mnozstvi dat, ale do par stovek
zaznamu to staci.
Ciselniky tak presunu vzdy.
Jestli chces poslu ti to, vice na soukromy mail.
Aldik
petr palicka napsal(a):
>Ahoj,
>
> mam databazi v MDB a potrebuju z ni prepumpovat data do databaze
>Firebirdu. V IBExpertovi je nejaka datova pumpa. Predpokladam, ze
>zdojova databaze se pripoji pre ADO, ale neumim to nastavit. Ted jsem na
>to koukal, a vubec me nenapada, co a jak nastavit, abych mohl z toho MDB
>sosat.
> Nedelal jste to nekdo, nebo nemate nejakou radu, odkazd na web,...?
>
>Dik Peca
>
>
>
>
>
Delphi a vyuziti pameti
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 27.10.2005 10:53:40
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Rocek
> Sent: Thursday, October 27, 2005 10:47 AM
Ahoj,
> mam D5 a jakmile je spustim, zacnou spotrebovavat pamet a
> vyuzivaji procesor
> na 100% dokud nevycerpaji systemove prostredky.
Co je to za OS ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Delphi a vyuziti pameti
[*] Martin Rocek <rocek(zv)dibaq(tec)cz> - 27.10.2005 10:47:14
Dobry den,
mam D5 a jakmile je spustim, zacnou spotrebovavat pamet a vyuzivaji procesor
na 100% dokud nevycerpaji systemove prostredky.
Zkusil jsem vypnout "Code Insight", ale nic moc.
Mate s tim nekdo zkusenost?
Diky Martin
Prepumpovani dat z MDB do FB
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 27.10.2005 10:36:48
petr palicka napsal(a):
> Ahoj,
>
> tak nakonec stacilo pripojit se pomoci ADO pres ODBC (MS Access) a
> podarilo. Chce to chvili "klikat" a trosku premyslet.
Lepsi vetsinou vybrat ADO a ovladac MS Jet4 nez to tlacit pres ado
R.
Prepumpovani dat z MDB do FB
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.10.2005 10:28:23
Ahoj,
tak nakonec stacilo pripojit se pomoci ADO pres ODBC (MS Access) a
podarilo. Chce to chvili "klikat" a trosku premyslet.
Peca
Freepascal+Lazarus+Firebird, generator tiskovych s
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 27.10.2005 09:49:54
MaReK Penguin Olsavsky napsal(a):
> m.zaplik(zv)volny(tec)cz napsal(a):
>
>>existuje pro toto pouziti nejaky free generator?
>>
>>Martin
>
> ^^^Gogle moc nepomohl, ze? OKi, spousta OpenSource projektu je na
> SourceForge.net, staci zadat Lazarus a vyjede spoustu projetu, mezi
> jinym na 9. miste i rport generator. Je tam mnoho dalsiho zajimaveho -
> http://sourceforge.net/search/?type_of_search=soft&words=lazarus&imageField.x=0&imageField.y=0
>
> S pozdravem a pranim hezkeho dne a prijemneho Open Source vyvoje
> MaReK
>
Dobry den,
omlouvam se, jestli mail znel trochu neprijemne, ale posledni dobou
narazim priliz casto na lidi, kteri neprokazi zadnou snahu a hned leti
do konfery. Vy jste alespon vedel, co potrebujete a nevyplodil jste neco
ve stylu (obcas prolitne Linuxovou konferou) - "Nejede mi Linux, co s
tim" a pak se dozvite, ze myslel KDE a ani jej nenainstaloval :-).
SourceForge.net a Google jsou dobre vychozi body, pokud clovek neco
hleda a vetsinou je odpoved hodne vepredu ;-).
MaReK
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Freepascal+Lazarus+Firebird, generator tiskovych s
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 27.10.2005 08:47:24
m.zaplik(zv)volny(tec)cz napsal(a):
> existuje pro toto pouziti nejaky free generator?
>
> Martin
^^^Gogle moc nepomohl, ze? OKi, spousta OpenSource projektu je na
SourceForge.net, staci zadat Lazarus a vyjede spoustu projetu, mezi
jinym na 9. miste i rport generator. Je tam mnoho dalsiho zajimaveho -
http://sourceforge.net/search/?type_of_search=soft&words=lazarus&imageField.x=0&imageField.y=0
S pozdravem a pranim hezkeho dne a prijemneho Open Source vyvoje
MaReK
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Prepumpovani dat z MDB do FB
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 27.10.2005 08:44:59
Ahoj,
mam databazi v MDB a potrebuju z ni prepumpovat data do databaze
Firebirdu. V IBExpertovi je nejaka datova pumpa. Predpokladam, ze
zdojova databaze se pripoji pre ADO, ale neumim to nastavit. Ted jsem na
to koukal, a vubec me nenapada, co a jak nastavit, abych mohl z toho MDB
sosat.
Nedelal jste to nekdo, nebo nemate nejakou radu, odkazd na web,...?
Dik Peca
SQL prikaz
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.10.2005 08:14:31
> >Co mi nie je jasne, ako sa riesi taka situacia, ked v tabulke Udalost, su
> >tri atributy Naklad1 a IdentifikatorMeny1, Naklad2 a IdentifikatorMeny2,
> >Naklad3 a IdentifikatorMeny3. Pricom tie tri meny su rozne, nezavisle.
> >
> select * from Udalost U
> join Mena M1
> on U.IdentifikatorMeny1 = M1.IDMeny
> join Mena M2
> on U.IdentifikatorMeny2 = M2.IDMeny
> join Mena.M3
> on U.IdentifikatorMeny3 = M3.IDMeny
>
Ahoj,
v pripadech, kdy data z joinovane tabulky maji vicemene "druhotny"
charakter v tom smyslu, ze nemaji ovlivnit vyber dat, bych rozhodne
misto join, resp. inner join daval left join.
Obycejny join totiz zpusobi, ze pokud se k nejakemu identifikatoru
meny z tabulky Udalosti nepodari najit zaznam v tabulce meny, tak se
takovy zaznam vubec neobjevi ve vysledku. Coz nemusi byt zadouci.
Za ocekavane chovani bych oznacil to, co dela left join, totiz ze v
takovem pripade radek bude v selectu obsazen, ale v nazvu meny bude
NULL. Cimz obsluha uvidi uz na pohled, ce neco neni v poradku, kdyz
je mena nevyplnena.
Nemluve o situace, kdy by mena nebo cokoli jineho mel byt nepovinny
udaj.
David Lebeda
SQL prikaz
[*] Ivan Turcan <iturcan(zv)drake.sk> - 27.10.2005 06:48:00
A aky SQL server pouzivas ?
Napr pod Oracle mozes pouzit skalarny prikaz...:
SELECT u.*,(select mena1 from mena where u.menaid=menaid),(select mena2 from
mena where u.menaid2=menaid),(select mena3 from mena where u.menaid3=menaid)
FROM UDALOST U.............
Ivan
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Ivan Kozak
Sent: Wednesday, October 26, 2005 7:01 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: SQL prikaz
Ospravedlnujem sa, ak je tato otazka trivialna, ale s sql nemam privelke
skusenosti.
Chcel by som sa spytat, ako sa v SQL riesi nasledovny problem, vysvetlim na
priklade:
Mam tabulku Udalost, s atributom Naklad1 a IdentifikatorMeny1. Jednotlive
meny su ulozene v tabulke MENA, s identifikatorom IdMena.
Ja potrebujem dostat von pomocou selectu udalosti, s atributom Naklad1 a
nazvom meny.
Prislusny prikaz by sa opieral o inner join, napr.
Select Udalost
Inner join MENA........
INTO.....
Toto je vcelku jasne.
Co mi nie je jasne, ako sa riesi taka situacia, ked v tabulke Udalost, su
tri atributy Naklad1 a IdentifikatorMeny1, Naklad2 a IdentifikatorMeny2,
Naklad3 a IdentifikatorMeny3. Pricom tie tri meny su rozne, nezavisle.
Ako vyzera prikaz, ked chcem dostat vo tie tri atributy s prislusnymi
nazvami men?
S pozdravom Ivan Kozak
DBGrid, zakaz editace nekterych bunek
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 26.10.2005 22:27:01
>Ahoj,
>potreboval bych v DBGridu zamezit editaci nekterych bunek (ne celych zaznamu). Nepodarilo se mi dopatrat, jak na to. Myslel jsem v udalosti OnBeforeEdit, ale nevim jak. Muzete mi nekdo prosim poradit?
>
>Diky
>
>Petr
>
Tady je otazka jestli vys ktere pozice bunek presne nebo ne. U prvniho pripadu je to celkem jednoduche, pouzij fn onselectcell a staci otestovat pozici bunky a nastavit treba stringgrid.options.goediting. U druheho pripadu samozrejme to same, akorat si musis nejak oznacit kazdou bunku, bud v bunce nebo v externi tabulce aby jsi podle toho mohl povolovat editaci gridu.
Navic editaci jsem neresil gridem samotnym ale edit polem (kdyz jsem to myslel vazne) ktere se zobrazilo nad editovanou bunkou a v options bylo goedit nastaveno stale na false. Pres edit pole se daly lepe ovlivnovat a kontrolovat zadane udaje a stavy textu.
Freepascal+Lazarus+Firebird, generator tiskovych s
[*] m.zaplik(zv)volny(tec)cz - 26.10.2005 21:30:32
existuje pro toto pouziti nejaky free generator?
Martin
Defaultne pripojenie na internet
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 26.10.2005 19:31:58
Zdravim
Mam takuto vec.
Potrebujem otestovat ci je PC pripojene na internet,
a ak nie je pripojit sa defaultnym pripojenim.
Skusal som bezne zname konstrukcie typu
if not InternetAutoDial(INTERNET_AUTODIAL_FORCE_ONLINE
a tak isto aj cez "ras".
Problem je v tom, ze ked sa uspesne pripojim a
potom odpojim , obcas mi funkcia vrati hodnotu
ako keby bolo spojenie stale aktivne (t.j.) neda sa pripojit.
Toto sa deje dost nepravidelne, niekedy sa mi podari
uspesne otestovat pripojenie a pripojit sa aj 3 -4 krat
za sebou, inokedy len raz a potom to uz nejde. (az po cca 10 min )
Podotykam ze napr z outloku to u mna funguje 100% spolahlivo.
Mam Win XP Prof. a pripojenie ADSL
Otazka:
Co to moze sposobovat?
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)stonline.sk
SQL prikaz
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 26.10.2005 19:23:33
>Co mi nie je jasne, ako sa riesi taka situacia, ked v tabulke Udalost, su
>tri atributy Naklad1 a IdentifikatorMeny1, Naklad2 a IdentifikatorMeny2,
>Naklad3 a IdentifikatorMeny3. Pricom tie tri meny su rozne, nezavisle.
>
>Ako vyzera prikaz, ked chcem dostat vo tie tri atributy s prislusnymi
>nazvami men?
>
>
>
select * from Udalost U
join Mena M1
on U.IdentifikatorMeny1 = M1.IDMeny
join Mena M2
on U.IdentifikatorMeny2 = M2.IDMeny
join Mena.M3
on U.IdentifikatorMeny3 = M3.IDMeny
a pripadne dale pokracovat
Je vhodne misto te hvezdicky vyjmenovat jednotlive sloupce, ktere je
opravdu potreba ze selectu ziskat, aby nebylo
mnozstvi dat tak velke. To pojmenovavani tabulek pouzivam pro zkraceni
zapisu, aby nebylo nutne vypisovat cely nazev tabulky.
Ladislav Stary
SQL prikaz
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 26.10.2005 19:01:06
Ospravedlnujem sa, ak je tato otazka trivialna, ale s sql nemam privelke
skusenosti.
Chcel by som sa spytat, ako sa v SQL riesi nasledovny problem, vysvetlim na
priklade:
Mam tabulku Udalost, s atributom Naklad1 a IdentifikatorMeny1. Jednotlive
meny su ulozene v tabulke MENA, s identifikatorom IdMena.
Ja potrebujem dostat von pomocou selectu udalosti, s atributom Naklad1 a
nazvom meny.
Prislusny prikaz by sa opieral o inner join, napr.
Select Udalost
Inner join MENA........
INTO.....
Toto je vcelku jasne.
Co mi nie je jasne, ako sa riesi taka situacia, ked v tabulke Udalost, su
tri atributy Naklad1 a IdentifikatorMeny1, Naklad2 a IdentifikatorMeny2,
Naklad3 a IdentifikatorMeny3. Pricom tie tri meny su rozne, nezavisle.
Ako vyzera prikaz, ked chcem dostat vo tie tri atributy s prislusnymi
nazvami men?
S pozdravom Ivan Kozak
Metoda TCustomTreeView.SaveToStream uklada v cisel
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 26.10.2005 17:54:36
Chtel jsem ulozit jednoduse pomoci memorystreamu stav uzluu v TTreeview do TMemIniFile. Ale ted by se mi hodilo kdyby ulozene hodnoty mely nejaky smysluplny - textovy tvar. Dalo by se na to nejak jednoduse vyzrat? Nebo musim treeview prolezt 'rucne'?
--
Interni Virova databaze je zastarala.
Zkontrolovano Antivirovym systemem AVG.
Verze: 7.0.344 / Virova baze: 267.12.4/143 - datum vydani: 19.10.2005
--
Interni Virova databaze je zastarala.
Zkontrolovano Antivirovym systemem AVG.
Verze: 7.0.344 / Virova baze: 267.12.4/143 - datum vydani: 19.10.2005
ADMIN: OT: Profidata instalacni CD
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.10.2005 16:20:04
Puvodni zprava ze dne 26.10.2005:
> Omlouvam se za OT, ale potrebuji nutne preinstalovat profidata, a
> postradam CD2, nemohli by jste mi ho prosim nekdo umoznit stahnout?
To se vubec neomlouvej a priste to sem rozhodne neposilej. Tohle tu
nema co delat hned z nekolika duvodu jasne popsanych v pravidlech. Ber
to jako velmi durazne verejne napomenuti administratora.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OT: Profidata instalacni CD
[*] Radek KALA <kala(zv)betacontrol(tec)cz> - 26.10.2005 14:53:32
Omlouvam se za OT, ale potrebuji nutne preinstalovat profidata, a
postradam CD2, nemohli by jste mi ho prosim nekdo umoznit
stahnout?
Dekuji.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Freepascal+Lazarus+Firebird co pouzit?
[*] pilifs <pilifs(zv)seznam(tec)cz> - 26.10.2005 13:43:02
To by me take zajimalo.
Zatim se mi nepovedlo udelat funkcni testovaci aplikaci.
V designe jsem si nahodil zobrazeni jednoduche tabulky do DBGridu,
dokonce mi to v designe otevrelo tabulku a zobrazilo ulozene radky. Ale
po zkompilovani a spusteni aplikace mi to vyhucelo na "Project raised
exception class EUIBError."
Zatim mi teda neni jasne proc :-(
>Zapletal Martin napsal(a):
>
>
>>Chtel bych se zeptat zda je mozne napsat aplikaci ve FP nad databazi FB?
>>Beha to jiz nekomu? Jake komponenty ci postupy je nejlepsi pouzit?
>>Nemate nekdo funkujici projektik na ukazku?
>>
>>
>>
>
>http://www.progdigy.com/modules.php?name=UIB
>
>jinak FPC ma v demech par dem.
>
>
>
>>Zapletal Martin
>>
>>
>
>
>Radek
>
>
>
>Freepascal+Lazarus+Firebird co pouzit?
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 26.10.2005 12:56:34
Zapletal Martin napsal(a):
> Chtel bych se zeptat zda je mozne napsat aplikaci ve FP nad databazi FB?
> Beha to jiz nekomu? Jake komponenty ci postupy je nejlepsi pouzit?
> Nemate nekdo funkujici projektik na ukazku?
>
> Zapletal Martin
Dobry den,
funguje, pro pristup do FirebirdSQL pouzivam UIB2 (
http://progdigy.com/modules.php?name=News&file=article&sid=1 ) stazeni a
nejake forum je na tomtez webu, jsou to Jedi komponenty, ridi se Mozilla
Public Licenci (snad nekecam), castecna dokumentace je na strankach JVCL.
Projektik na ukazku nelze, mame v tom psanu casti pro uzavreny system :-(.
S pozdravem
MaReK Olsavsky
btw: staci je ulozit do podadresare se zdrojaky, nastavit cesty a
zkompilovat, jedou v pohode.
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Freepascal+Lazarus+Firebird co pouzit?
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 26.10.2005 12:56:08
Zapletal Martin napsal(a):
> Chtel bych se zeptat zda je mozne napsat aplikaci ve FP nad databazi FB?
> Beha to jiz nekomu? Jake komponenty ci postupy je nejlepsi pouzit?
> Nemate nekdo funkujici projektik na ukazku?
>
http://www.progdigy.com/modules.php?name=UIB
jinak FPC ma v demech par dem.
> Zapletal Martin
Radek
Freepascal+Lazarus+Firebird co pouzit?
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 26.10.2005 12:27:41
Chtel bych se zeptat zda je mozne napsat aplikaci ve FP nad databazi FB?
Beha to jiz nekomu? Jake komponenty ci postupy je nejlepsi pouzit?
Nemate nekdo funkujici projektik na ukazku?
Zapletal Martin String library
[*] lelicek(zv)volny(tec)cz - 26.10.2005 10:47:09
Ahoj,
potrebuji pracovat s velmi dlouhymi string. Coz je se standardnim
typem stringem z Delphi velmi neefektivni (alokace a dealokace).
Nevite o nejake knihovne, ktera by mela neco jako buffered string ?
Celkem od toho moc nepotrebuji: spojovani, nahrazovani ..
Pavel
--
Volejte za 0,- Kc po cele CR se sluzbou VOLNY TelefoNet. Vice
informaci na http://telefonet.volny(tec)cz
OT: VGA karta s dobrym obrazem
[*] josef novak <24kf(zv)seznam(tec)cz> - 25.10.2005 22:43:51
Ahoj,
musim koupit novou AGP4-8 grafiku, neco levnejsiho nez Matrox, ale s dobrym 2D obrazem (delphi a text) a pokud mozno pasivni chlazeni. Monitor mam 21" HP1130. Doporucite neco ? nebo ceho se vyvarovat ? Radeji mimo konferenci.
Sorry za OT a dik.
jos.
DBGrid, zakaz editace nekterych bunek
[*] lelicek(zv)volny(tec)cz - 25.10.2005 17:07:03
Ahoj,
a co zkousit nastavit to DBGrid.Columns[i].ReadOnly vzdy v
AfterScroll datasetu ?
Pavel
Od: peca.konference(zv)centrum(tec)cz
> To jsem samozrejme zkousel taky, stejny vysledek. ReadOnly jsou
> i nove vlozene zaznamy (tedy prislusne sloupce). Mi prijde, ze
> proste zamkne cely sloupec (tedy dany sloupec ve vsech
> zaznamech), ale tak by to fungovat snad nemelo, ne?
>
> >
> > Tak potom skus
> > DBGrid.Columns[i].ReadOnly
--
Volejte za 0,- Kc po cele CR se sluzbou VOLNY TelefoNet. Vice
informaci na http://telefonet.volny(tec)cz
QuickReport 4.06
[*] Stanislav ADAMCIK <konferencia(zv)stadas.sk> - 25.10.2005 16:14:31
Nemate niekto skusenosti s QuickReport 4.06 ? Zaujimalo by ma ako sa
robi upravovanie zostav z hladiska uzivatela. Skusal som TQREditor, ale
zda sa mi, ze je to dost slabe. Predtym som pracoval s Fast-report.
Stano
www.stadas.sk
Binarni vs textovy soubor
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 25.10.2005 14:35:57
25.10.2005 Ludek:
> From: "Jan Fiala" <jan.fiala(zv)wo(tec)cz>
>> Textovy soubor by nemel obsahovat znaky pod #32 s vyjimkou znaku
>> #9, #12, #10, #13, unicode soubor bude obsahovat i znaky #0
>> Pokud tyto znaky obsahuje, da se predpokladat, ze jde o binarni
>> soubor.
>> Proste soubor otevres, vezmes tak 1000 prvnich znaku a budes
>> zjistovat. Pokud narazis na nejaky z "nedovolenych", koncis s detekci
>> a usoudis, ze jde o binarni soubor.
>> Jeste to muzes upravit tak, ze udelas seznam pripon souboru, o kterych
>> vis, ze jsou binarni a napred zkontrolujes priponu souboru...
> Ahoj,
> To ale preci neni pravda, to ze soubor neobsahuje nejake znaky neznamena ze
> neni binarni.
> Cili takto nemuzes poznat nic.
> Poste neco jako "textovy" nebo "binarni" soubor, pokud to neni nijak
> presneji specifikovano nelze vicemene urcit.
Mas pravdu, nelze 100% urcit, ze soubor neni binarni, ale
uspesnost takove detekce je vysoka a pro bezne pripady postaci.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Dynamicky balicek
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 25.10.2005 14:09:30
Jo asi to predelam na ten standard, ktery pouzivam... Diky:-)
Sroub
<Tusil bych tedy problem v tom prirazeni metody (zv)..., druhy zpusob ktery
pouzivam je, ze pri inicializaci balicku vytvorim nejaky objekt, ktery ma
metody typu TnotifyEvent odpovidajici jednotlivym formularum ci jinym akcim,
a tyto metody rovnou priradim napr. polozkam menu nebo actionlistu. Opet
nevznika tebou popisovany efekt.
MB