Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ADMIN: Trigger MSSQL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 09.2.2009 15:48:59
Co to tu dnes predvadite za quotovani? Polepsete se!
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Trigger MSSQL
[*] Igor Gottwald <gottwald(zv)oksoftware(tec)cz> - 09.2.2009 15:44:59
Dobry den,
Doporucuji nasledujici postup:
create trigger xx_i on xx after insert
as
begin
update xx
set val = 2 * B.val
from xx A
inner join inserted B on (A.id = B.id)
end
To muze fungovat jak pro INSERT, tak UPDATE trigger.
Pokud chcete pouze INSERT, pak muzete pouzit INSTEAD OF trigger:
create trigger xx_i on xx instead of insert
as
begin
insert into xx (id, val)
select id, 2 * val from inserted
end
Tady uz ale narazite na problem, napr. pokud je ID sloupec s identity.
Instead Of trigger doporucuji jen pokud k tomu mate vazny duvod, napr. v
pripade ze se ve skutecnosti ma provest uplne neco jineho. Instead Of
trigger je velmi uzitecny v pripadech, kdy se treba autoaticky aktualizuji
nejake soucty v jinych tabulkach a ta aktualizace se aktivuje triggery na
master/detail tabulkach, kde data jsou v detailu. A pokud je nastaveno
kaskadove mazani, tak de-facto neni jina moznost jak korektne zachytit v
triggeru smazani master zaznamu. Samozrejme do jde dalsimi triggery v master
tabulce, ale pak zase zlobi prepocet pri insert/update. Naopak Instead Of
trigger je pro takove pouziti idealni.
Pro Vas bych ale doporucil pouzit After. Je to mnohem jasnejsi, proste v
triggeru dostanete dve preddefinovane tabulky INSERTED a DELETED, kde
INSERTED obsahuje nove verze zaznamu (z prikazu INSERT/UPDATE) a DELETED
stare verze (z prikazu UPDATE/DELETE). Jednoduse se tak da rozlisit, co a
kde se zmenilo.
Jeste poznamka - pokud udelate v triggeru tabulky XX operaci nad touto
tabulkou (INSERT, UPDATE, DELETE), triggery tabulky jiz nejsou dale volany.
Pokud provedete operaci nad jinou tabulkou a mate povolene NESTED TRIGGERS,
tak se volaji rekurzivne. Pri chybnem programovani je mozne to zacyklit, ale
musite se snazit a stejne je tam omezeni na pocet urovni vnoreni. Tolik jen
pro poradek.
Na zaver bych si dovolil poznamku k efektivite. Obecne triggery nejsou
prilis efektivni a je potreba je pouzivat s rozumem. Vetsinou pri
rozsahlejsich akcich je lepsi provadet zmeny hromadne nez zaznam po zaznamu.
Nicmene oba pristupy lze pri spravnem pristupu dobre pouzivat a nedoporucuji
jeden kterykoliv nejak hanet nebo precenovat.
S pozdravem
Igor Gottwald, nezavisly vyvojar
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Cajbik Martin
Sent: Monday, February 09, 2009 2:31 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Trigger MSSQL
MSSQL obsahuje v inserted naozaj vsetky vlozene zaznamy ale osobne v tom
nevidim absolutne ziaden problem, budto napisem hromadne spracovanie, s cim
som si zatial vzdy vystacil a co je z hladiska vykonu optimalne, alebo
kurzor...
Martin CAJBIK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Sebelik
Sent: Friday, February 06, 2009 6:44 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Trigger MSSQL
Ne, ze bych s MSSQL uplne zacinal, lecos uz jsem udelal.
Poprve ale vstupuju do navrhu vetsi databaze, ktera by mela mit svoji
aplikacni logiku a vnitrni integritu.
Ve FB jsem byl zvykly bezne pouzivat triggery.
Snadno a krasne.
Vim, ze MSSQL s tim ma urcite problemy (jenom "after" nebo "instead").
Presto jsem neco zkusil:
create table xx(id int, val int);
Chci pri vkladani zdvojnasobit hodnotu "val".
-------------------
create trigger xx_i on xx instead of insert as declare (zv)id int; declare (zv)val
int; begin
select (zv)id=id, (zv)val=(zv)val from inserted;
insert into xx(id,val) values((zv)id,(zv)val*2); end
insert into xx values(1,3)
Tak tohle funguje,
v xx bude
1 6
-------------------
create table yy(id int, val int);
insert into yy values(1,1);
insert into yy values(2,2);
insert into yy values(3,3);
insert into yy values(4,4);
insert into xx select * from yy
select * from xx
Tak tohle nefunguje,
v xx bude jediny zaznam, asi posledni z vlozenych.
Jak to ???
Copak trigger se nevola na kazdem vkladanem zaznamu?
-------------------
Zjistil jsem, ze opravdu ne.
Funguje to takhle:
alter trigger xx_i on xx instead of insert as declare (zv)id int; declare (zv)val
int; declare k cursor for select * from inserted; begin
open k;
fetch k into (zv)id, (zv)val;
while (zv)(zv)fetch_status=0 begin
insert into xx(id,val)
values((zv)id,(zv)val*2);
fetch k into (zv)id, (zv)val;
end
close k;
deallocate k;
end
Tak tohle funguje.
V xx bude
1 2
2 4
3 6
4 8
Cili "inserted" obsahuje vsechny 4 vlozene zaznamy a da se s tim pres kurzor
pracovat.
-------------------
Jenze to snad neni mysleno vazne ... :-(
TAKHLE SE S TIM PRECI PRACOVAT NEDA !!!
ANEBO JSEM BLBEJ JA?
jo, jo, zlaty FB
create trigger xx_u for xx
before insert or update
as begin
new.val = 2*new.val;
end
Jak snadne a krasne ...
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW = www.haes(tec)cz = Vojtiskova
321 = 507 81 Lazne Belohrad ====================================
Trigger MSSQL
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 09.2.2009 16:21:01
Dekuji vsem za nazory.
> Doporucuji nasledujici postup:
> Pro Vas bych ale doporucil pouzit After. Je to mnohem jasnejsi, proste v
> triggeru dostanete dve preddefinovane tabulky INSERTED a DELETED
> Igor Gottwald, nezavisly vyvojar
Vybral jsem si Igora, protoze jsem s postupem casu dospel ke stejnemu nazoru.
Kazdopadne:
-
je to oproti "normalnim" databazim (FB, Oracle, ...) ponekud kostrbatejsi
-
ale jde to
Diky
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
Nabidka prace - programator, implementator, analyt
[*] David Klodner <delphikonfer(zv)seznam(tec)cz> - 10.2.2009 04:19:48
Zdravim konferenci,
shanime lidi na pozice
1. Programator v Delphi 5
Vyvijime informacni system SOFIX (www.sofix(tec)cz) a potrebujeme programatora,
ktery doprogramuje ucetnictvi a personalistiku a mzdy.
Idealni je clovek, ktery ma s ucetnictvim, resp. mzdovou problematikou
zkusenost, ale neni to podminkou.
2. Analytik
Pracovnik, ktery by vytvarel predimplementacni analyzy pro SOFIX.
Dulezita je znalost fungovani obchodnich firem a schopnost premyslet o tom,
co se da kde zlepsit.
3. Implementator SOFIXU
Zavadeni SOFIXU do firem dle analyzy, servis SOFIXU apod.
Prace ve vlastnim vyvojovem prostredi SOFIXU.
Preferujeme praci na ZL, budto v hodinove sazbe nebo se predem dohodneme na
cene urcite casti softwaru.
Mame zajem o dlouhodobou spolupraci, idealne na plny uvazek jen pro nas.
Prace z domova pres RDP, odkudkoliv z CR/SR.
V pripade zajmu se prosim ozvete na muj soukromy mail, ne sem do konference.
Vice informaci na http://www.sofico(tec)cz/zamestnani/
Ing. David Klodner
vedouci softwarovych projektu
SOFICO-CZ, a. s.
U Vodarny 5
568 02 Svitavy
tel.: +420 608 207 091
email: d.klodner(zv)sofico(tec)cz
www.sofico(tec)cz
XMLDoc v Thread vyvla vyjimku
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 10.2.2009 08:04:02
Ahoj
Potrebuji zpracovat klascky xml dokument a pouzivam na to
konstrukci prikazu
XMLDoc: IXMLDocument;
begin
XMLDoc := TXMLDocument.Create(nil) as IXMLDocument;
XMLDoc.LoadFromFile('c:\info.xml');
.....
.....
end;
Pokud to pouziji mimo thread tak je vse v poradku ale v samostatnem
threadu mi to vyvola vyjimku na
XMLDoc.LoadFromFile('c:\info.xml');
Chci se zeptat zda nejde objekt IXMLDocument pouzit v Threadu obecne
nebo delam nekde chybu ja ?
Diky predem za pomoc , uz se s tim sekam druhy den ...
Jura
XMLDoc v Thread vyvla vyjimku
[*] Petr Langer <p.langer(zv)nexnet(tec)cz> - 10.2.2009 08:34:04
Ahoj,
nezapomnel jsi volat CoInitialize nebo CoInitializeEx?
Co treba napsat o jakou vyjimku se jedna...
pl
Heinisch Jiri wrote:
> Ahoj
>
> Potrebuji zpracovat klascky xml dokument a pouzivam na to
> konstrukci prikazu
>
> XMLDoc: IXMLDocument;
> begin
> XMLDoc := TXMLDocument.Create(nil) as IXMLDocument;
> XMLDoc.LoadFromFile('c:\info.xml');
>
> Pokud to pouziji mimo thread tak je vse v poradku ale v samostatnem
> threadu mi to vyvola vyjimku na
> XMLDoc.LoadFromFile('c:\info.xml');
>
> Jura
XMLDoc v Thread vyvola vyjimku
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 10.2.2009 12:06:18
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Heinisch Jiri
> Sent: Tuesday, February 10, 2009 11:52 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: XMLDoc v Thread vyvola vyjimku
>
> Boze, cloveku bude za par let padesat a furt se musi ucit
> .... fujtabl ....
Manualni zavolani CoInitialize je tusim nutne i v pripade DLL.
PMal
XMLDoc v Thread vyvola vyjimku
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 10.2.2009 11:52:17
Boze, cloveku bude za par let padesat a furt se musi ucit .... fujtabl ....
diky za vysvetleni
Petr Zahradnik napsal(a):
> Puvodni zprava ze dne 10.2.2009 od Heinisch Jiri:
>
>> Ale porad nevim proc mi to mimo thread funguje a v Threadu vybehne
>> vyjimka.
>
> Jedna se o inicializaci knihovny COM, kterou je treba zavolat v kazdem
> vlakne pred pouzitim COM objektu. V tom hlavnim vlakne uz je volana.
XMLDoc v Thread vyvola vyjimku
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.2.2009 11:30:15
Puvodni zprava ze dne 10.2.2009 od Heinisch Jiri:
> Ale porad nevim proc mi to mimo thread funguje a v Threadu vybehne
> vyjimka.
Jedna se o inicializaci knihovny COM, kterou je treba zavolat v kazdem
vlakne pred pouzitim COM objektu. V tom hlavnim vlakne uz je volana.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
XMLDoc v Thread vyvola vyjimku
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 10.2.2009 11:18:14
> Poslys, nebyla ta vyjimka nahodou tahle?
>
> "Nebyla provedena procedura CoInitialize"
> Petr Zahradnik, pocitacovy expert
Asi ano, tento problem jsem resil doma na nove instalaci DELPHI 2007
Kdyz jsem to tady v praci resil na zaklade rady z konfery uz mi to tuto
vyjimku nahlasilo.
Mam takove neprijemne tuseni ze mam doma tento typ vyjimek excludovany.
musim se tam kouknout.
Ale porad nevim proc mi to mimo thread funguje a v Threadu vybehne vyjimka.
XMLDoc v Thread vyvola vyjimku
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.2.2009 11:08:14
Puvodni zprava ze dne 10.2.2009 od Heinisch Jiri:
>> nezapomnel jsi volat CoInitialize nebo CoInitializeEx?
> Nezapomnel, ale nevedel, ted uz to funguje.
Poslys, nebyla ta vyjimka nahodou tahle?
"Nebyla provedena procedura CoInitialize"
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================XMLDoc v Thread vyvola vyjimku
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 10.2.2009 11:00:13
Petr Langer napsal(a):
> Ahoj,
> nezapomnel jsi volat CoInitialize nebo CoInitializeEx?
Nezapomnel, ale nevedel , ted uz to funguje.
Jen bych rad vedel proc mi to mimo thread funguje i bez
te CoInitialize ...
Jeste jednou diky
OT: TortoiseSVN
[*] Ludan <konference(zv)sales(tec)cz> - 10.2.2009 22:18:55
Zdravim,
Pouziva jiz nekolik dni k plne spokojenosti TortoiseSVN oproti VisualSVN
repository (mimo mne).
Zacal jsem normaln, tim, ze jsem si pomoci Toroise vytvoril u sebe pracovni
kopii a vse do dnesniho dne pracovalo jak ma.
Najednou se mi deje pri pokusu o commit toto:
**********************************************************************
Odevzdat
Commit failed (details follow):
Server sent unexpected return value (403 Forbidden) in response to
MKACTIVITY
request for '/svn/salestest/!svn/act/bf261d0d-1777-d248-bf90-a9c8db75efc6'
request for '/svn/salestest/!svn/act/bf261d0d-1777-d248-bf90-a9c8db75efc6'
**********************************************************************
Ovsem pokud pouziji klasickou prikazovou radku (CollabNet Subversion Client)
svn commit D:\work\projekt\wc1 -m
Zmen0001. --no-auth-cache --non-interactive --username LZ --password
xxxxxxxx
Tak to funguje. Co to muze byt ?
P.S. Z jine instalace s zjineho PC to take (najednou) pres Tortoise nejede.
Fakt uz nevim.
Predem dik za nakopnuti.
firebird embeded databaza len na citanie
[*] stefunko(zv)szm.sk - 12.2.2009 12:06:33
zdravim konferenciu,
potrebujem urobit program aj s databazou na cd.
akonahle je to na 'readonly' mediu, po spusteni programu (pri starttransaction)
to vykrikuje:
nie je mozne zapisovat na disk a Error while trying to write to file databaza
skusal som nastavit vsetky read i readonly ktore som nasiel, zatial bezuspesne.
Pomoze niekto?
delphi 2007, komponenty TIB...
Stefunko
=== reklama ======================================
http://mail.szm.com - e-mail a priestor na www stranku zadarmo
http://webhosting.szm.com - domeny a webhosting za najnizsie ceny
=== reklama ======================================
http://mail.szm.com - e-mail a priestor na www stranku zadarmo
http://webhosting.szm.com - domeny a webhosting za najnizsie ceny
DBGrid mousemove
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 11.2.2009 22:31:42
Ahoj,
podivej se na tohle:
http://delphi.about.com/od/usedbvcl/l/aa011004a.htm
R.
> Da se nejak ziskat podle pohybu mysi nad jakou bunkou se nachazi? Myslim tim napr. ktery radek datasetu je pod mysi. Kdyz pouziji grid.MouseCoord tak vraci viditelny radek datagridu, ne radek zaznamu :-(. Jde to vubec nejak?
>
> Petr Mathon
>
>
>
DBGrid mousemove
[*] Petr Mathon <dveste zar(zv)quick(tec)cz> - 11.2.2009 22:23:41
Dobry den,
Da se nejak ziskat podle pohybu mysi nad jakou bunkou se nachazi? Myslim tim napr. ktery radek datasetu je pod mysi. Kdyz pouziji grid.MouseCoord tak vraci viditelny radek datagridu, ne radek zaznamu :-(. Jde to vubec nejak?
S pozdravem Petr Mathon
TortoiseSVN
[*] Ludan <konference(zv)sales(tec)cz> - 11.2.2009 11:39:03
----- Original Message -----
From: "Ludan" <konference(zv)sales(tec)cz>
Vyreseno : stacilo restartovat sluzbu repositare.
Ale proc to neslo z Tortoise a z commandline ano to fakt nevim.
Ludek ZITA
XMLDoc v Thread vyvola vyjimku
[*] Ludan <konference(zv)sales(tec)cz> - 11.2.2009 12:01:04
----- Original Message -----
From: "Pavel Malinsky" <malinsky(zv)pmcom(tec)cz>
>> Boze, cloveku bude za par let padesat a furt se musi ucit
>> .... fujtabl ....
>
Tak tak :):)
> Manualni zavolani CoInitialize je tusim nutne i v pripade DLL.
No a i v pripade sluzby
Ludek
OT: Nabidka prace Zlin
[*] Jitka Pizurova <pizurova(zv)email(tec)cz> - 11.2.2009 09:38:56
Ahoj lidi,
hledame programatora pro rozsireni naseho teamu. Jedna se o praci na
plny uvazek
pozadujeme:
- znalost programovacich jazyku Delphi a C
- zkusenosti s vyvojem firmware
- zkusenosti s vedenim maleho teamu (4-5 lidi)
- analyticke mysleni
Benefity:
- Zazemi stabilni spolecnosti
- Zajimave financni ohodnoceni
- Moznost profesniho rustu
- Zamestnanecke vyhody
Misto prace: Zlin
Pokud mate nekdo zajem o vice informaci, prosim, ozvete se mi na muj
email: pizurova(zv)email(tec)cz(mailto:pizurova(zv)email(tec)cz)
Diky
Jitka
firebird embeded databaza len na citanie
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 12.2.2009 14:14:41
> potrebujem urobit program aj s databazou na cd.
> akonahle je to na 'readonly' mediu, po spusteni programu
> (pri starttransaction) to vykrikuje:
> nie je mozne zapisovat na disk a Error while trying to write
> to file databaza
> skusal som nastavit vsetky read i readonly ktore som nasiel,
> zatial bezuspesne.
Je databaza samotna oznacena ako read-only?
http://www.firebirdsql.org/manual/fbutils-gfix-dbmode.html
HTH
TOndrej
firebird embeded databaza len na citanie
[*] stefunko(zv)szm.sk - 12.2.2009 15:02:44
>> potrebujem urobit program aj s databazou na cd.
>> akonahle je to na 'readonly' mediu, po spusteni programu
>> (pri starttransaction) to vykrikuje:
>> nie je mozne zapisovat na disk a Error while trying to write
>> to file databaza
>> skusal som nastavit vsetky read i readonly ktore som nasiel,
>> zatial bezuspesne.>Je databaza samotna oznacena ako read-only?
>http://www.firebirdsql.org/manual/fbutils-gfix-dbmode.html
to je presne ono
vdaka
Stefunko
=== reklama ======================================
http://mail.szm.com - e-mail a priestor na www stranku zadarmo
http://webhosting.szm.com - domeny a webhosting za najnizsie ceny
firebird embeded databaza len na citanie
[*] stefunko(zv)szm.sk - 12.2.2009 14:58:44
>> potrebujem urobit program aj s databazou na cd.
>> akonahle je to na 'readonly' mediu, po spusteni programu
>> (pri starttransaction) to vykrikuje:
>> nie je mozne zapisovat na disk a Error while trying to write
>> to file databaza
>> skusal som nastavit vsetky read i readonly ktore som nasiel,
>> zatial bezuspesne.>Je databaza samotna oznacena ako read-only?
>http://www.firebirdsql.org/manual/fbutils-gfix-dbmode.html
to je presne ono
vdaka
Stefunko
=== reklama ======================================
http://mail.szm.com - e-mail a priestor na www stranku zadarmo
http://webhosting.szm.com - domeny a webhosting za najnizsie ceny
DBExpress pro Oracle - zkusenosti
[*] delphak(zv)centrum(tec)cz - 13.2.2009 08:51:50
Ahoj, mate nekdo zkusenosti s pripojovanim k DB Oracle pomoci DBExpress (TSimpleDataSet). Nepotrebuji vedet, jak se to dela, ale spise zkusenosti ohledne vykonu, stability a pripadne upozorneni na problemy ktere to muze prinaset. Dosud jsem pouzival Direct Oracle Access, ale pro novy projekt ho zakaznik z buhvi jakeho duvodu nechce ....
Delphi 6, Delphi 2009 ...
Dik za informace.
Archiv konference
[*] pavel.simicek(zv)centrum(tec)cz - 16.2.2009 08:48:46
Dobry den.
Jaky je prosim odkaz na archiv konference?
Dekuji, Pavel.
Synapse & HTTPS klient
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 17.2.2009 11:26:22
Zdravim,
nepodarilo se me najit ukazku jak v synapsi napsat HTTPS klienta
ktery by navic pouzival klientske certifikaty. Nema nekdo nejaky
priklad / ukazku po ruce at nevymyslim znovu kolo? Diky moc.
TR
Synapse & HTTPS klient
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.2.2009 12:08:25
> nepodarilo se me najit ukazku jak v synapsi napsat HTTPS klienta
> ktery by navic pouzival klientske certifikaty. Nema nekdo nejaky
> priklad / ukazku po ruce at nevymyslim znovu kolo? Diky moc.
A samotneho HTTPS klienta uz jsi rozbehl?
Pak totiz staci do THttpsend.sock.ssl nastavit tvuj certifikat a
provest HTTP pozadavek.
(do ktere konktretni property, to zalezi na tom, jaky pouzivas SSL
plugin a v jakem formatu mas ten certifikat. Ne kazdy plugin
podporuje vsechny formaty!)
Jakmile si server vyzada klientky certifikat, SSL knihovna jej tam
posle.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Pripojeni na vzdaleny FlashFiler server x problem
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 17.2.2009 13:38:31
Ahoj!
V aplikaci (Delphi 5) se pripojuji na vzdaleny FlashFiler server. Pripojuji
protokolem TCP/IP. V ffLegacyTransport1.ServerName je
"servername(zv)IPadresaServeru".
Na nekterych pocitacich v sitich, kde zrejme maji nastaveny nejaky proxy
server se pripojeni nezdari. Aplikace pri pokusu o pripojeni zatuhne a zadne
chybove hlaseni.
Nemate nekdo prosim vas zkusenosti s takovym pripadem. V otazkach proxy jsem
jaksi nepolibeny.
Diky
Ing. Igor Vodicka
informations systems
Publishing house Sagit, Inc.
Czech Republic
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.2.2009 19:38:21
Ahoj,
> A samotneho HTTPS klienta uz jsi rozbehl?
>
> Pak totiz staci do THttpsend.sock.ssl nastavit tvuj certifikat a
> provest HTTP pozadavek.
tak samotny HTTPS klient uz funguje, certifikaty mu take muzu predat.
Nicmene pokud do uses dam ssl_openssl a mysql4 zaroven, program
prelozeny pod FPC nelze ani spusit - vzdy skonci na nejake podobne chybe
co nejde vystopovat.
Nema nekdo tip co s tim?
./testhttp
An unhandled exception occurred at $0000003AD86091D2 :
EAccessViolation : Access violation
$0000003AD86091D2
$0000003AD8B06734
$0000003AD8E01104
$00002B82468DF270
An unhandled exception occurred at $0000003AD86127B1 :
EAccessViolation : Access violation
$0000003AD86127B1
Diky TR
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.2.2009 15:13:35
Ahoj
> Jedine co me napada je zkusit prehazet poraci unit v uses.
nepomaha
> Podle vypisu
> je to konzolova app, zkus ji debugovat v fpc ide. Spousti se prikazem fp.
IDE hlasi neco ve smyslu "program vratil chybu 11, ulozte zdrojaky a
restartujte IDE".
> Nebo zkus spustit tu app pomoci strace tj.
>
> strace ./testhttp
>
Podle logu co to vypsalo to vypada ze se pokusi nacist a uvolnit pak
knihovny, ale pokud se pokusi uvolnit libcrypto, zbuchne....
...
...
open("/usr/lib64/libssl.so", O_RDONLY) = 4
read(4,
"\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0p!\201,>\0\0\0"..., 832)
= 832
fstat(4, {st_mode=S_IFREG|0755, st_size=302408, ...}) = 0
close(4) = 0
munmap(0x2baa480f7000, 33223) = 0
open("/etc/ld.so.cache", O_RDONLY) = 4
fstat(4, {st_mode=S_IFREG|0644, st_size=33223, ...}) = 0
mmap(NULL, 33223, PROT_READ, MAP_PRIVATE, 4, 0) = 0x2baa480f7000
close(4) = 0
open("/usr/lib64/libcrypto.so", O_RDONLY) = 4
read(4,
"\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\320bE+>\0\0\0"..., 832)
= 832
fstat(4, {st_mode=S_IFREG|0755, st_size=1329816, ...}) = 0
close(4) = 0
munmap(0x2baa480f7000, 33223) = 0
--- SIGSEGV (Segmentation fault) (zv) 0 (0) ---
rt_sigprocmask(SIG_UNBLOCK, [SEGV], NULL, 8) = 0
write(1, "An unhandled exception occurred "..., 55An unhandled exception
occurred at $0000003AD86091D2 :
) = 55
write(1, "EAccessViolation : Access violat"..., 36EAccessViolation :
Access violation
) = 36
write(1, " $0000003AD86091D2\n", 20 $0000003AD86091D2
) = 20
write(1, " $0000003AD8B06734\n", 20 $0000003AD8B06734
) = 20
write(1, " $0000003AD8E01104\n", 20 $0000003AD8E01104
) = 20
write(1, " $00002BAA480D7270\n", 20 $00002BAA480D7270
) = 20
write(1, "\n", 1
) = 1
--- SIGSEGV (Segmentation fault) (zv) 0 (0) ---
rt_sigprocmask(SIG_UNBLOCK, [SEGV], NULL, 8) = 0
write(1, "An unhandled exception occurred "..., 55An unhandled exception
occurred at $0000003AD86127B1 :
) = 55
write(1, "EAccessViolation : Access violat"..., 36EAccessViolation :
Access violation
) = 36
write(1, " $0000003AD86127B1\n", 20 $0000003AD86127B1
) = 20
write(1, "\n", 1
) = 1
munmap(0x2baa4808f000, 262144) = 0
exit_group(217) = ?
TR
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 19.2.2009 15:09:35
Petr Hlozek napsal(a):
> Ahoj,
>
> co vypise ldd ./testhttp ?
> Na jake distribuci to zkousis? Je potreba doinstalovat devel knihovnu k
> openssl. U Ubuntu je to libssl-dev, u Fedory openssl-devel.
>
> Petr
>
>>
>> tak samotny HTTPS klient uz funguje, certifikaty mu take muzu predat.
>> Nicmene pokud do uses dam ssl_openssl a mysql4 zaroven, program
>> prelozeny pod FPC nelze ani spusit - vzdy skonci na nejake podobne chybe
>> co nejde vystopovat.
>>
>>
takze to buchne jeste pred prvnim radkem tveho kodu? co initialization
sekce tech dvou unitu? Pokud das do uses jen jednu
tak to funguje?
zkusil bych
a) ladici vypisy (overis ze to spadne jeste pred tvojim kodem)
b) strace
R.
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Petr Hlozek <petr h(zv)mrp(tec)cz> - 19.2.2009 14:27:32
Jedine co me napada je zkusit prehazet poraci unit v uses. Podle vypisu
je to konzolova app, zkus ji debugovat v fpc ide. Spousti se prikazem fp.
Nebo zkus spustit tu app pomoci strace tj.
strace ./testhttp
Treba to vypise neco co pomuze. Otazkou je, kdy to vlastne padne.
Petr
Tomas Rosa napsal(a):
> Ahoj,
>
> devel knihovny mam snad vsechny, protoze samotne SSL (https) i
> samotna MySQL funguji a i aplikace co je vyuzivaji. Nicmene pokud to
> zkloubim dohromady, tak nic. Jinak je to posledni CentOS (5.2) na 64bit AMD.
>
>> co vypise ldd ./testhttp ?
>
> ldd ./testhttp
> libmysqlclient.so.15 => /usr/lib64/mysql/libmysqlclient.so.15
> (0x0000003a0da00000)
> libdl.so.2 => /lib64/libdl.so.2 (0x0000003ad8e00000)
> libcrypt.so.1 => /lib64/libcrypt.so.1 (0x0000003adae00000)
> libnsl.so.1 => /lib64/libnsl.so.1 (0x0000003adaa00000)
> libm.so.6 => /lib64/libm.so.6 (0x0000003ad9600000)
> libssl.so.6 => /lib64/libssl.so.6 (0x0000003e2c800000)
> libcrypto.so.6 => /lib64/libcrypto.so.6 (0x0000003e2b400000)
> libz.so.1 => /usr/lib64/libz.so.1 (0x0000003ada600000)
> libc.so.6 => /lib64/libc.so.6 (0x0000003ad8a00000)
> /lib64/ld-linux-x86-64.so.2 (0x0000003ad8600000)
> libgssapi_krb5.so.2 => /usr/lib64/libgssapi_krb5.so.2
> (0x0000003e2c400000)
> libkrb5.so.3 => /usr/lib64/libkrb5.so.3 (0x0000003e2bc00000)
> libcom_err.so.2 => /lib64/libcom_err.so.2 (0x0000003adba00000)
> libk5crypto.so.3 => /usr/lib64/libk5crypto.so.3
> (0x0000003e2b800000)
> libkrb5support.so.0 => /usr/lib64/libkrb5support.so.0
> (0x0000003e2c000000)
> libkeyutils.so.1 => /lib64/libkeyutils.so.1 (0x0000003adc200000)
> libresolv.so.2 => /lib64/libresolv.so.2 (0x0000003adc600000)
> libselinux.so.1 => /lib64/libselinux.so.1 (0x0000003ad9e00000)
> libsepol.so.1 => /lib64/libsepol.so.1 (0x0000003ad9a00000)
>
>
> TR
>
>
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.2.2009 14:19:31
Ahoj,
devel knihovny mam snad vsechny, protoze samotne SSL (https) i
samotna MySQL funguji a i aplikace co je vyuzivaji. Nicmene pokud to
zkloubim dohromady, tak nic. Jinak je to posledni CentOS (5.2) na 64bit AMD.
>
> co vypise ldd ./testhttp ?
ldd ./testhttp
libmysqlclient.so.15 => /usr/lib64/mysql/libmysqlclient.so.15
(0x0000003a0da00000)
libdl.so.2 => /lib64/libdl.so.2 (0x0000003ad8e00000)
libcrypt.so.1 => /lib64/libcrypt.so.1 (0x0000003adae00000)
libnsl.so.1 => /lib64/libnsl.so.1 (0x0000003adaa00000)
libm.so.6 => /lib64/libm.so.6 (0x0000003ad9600000)
libssl.so.6 => /lib64/libssl.so.6 (0x0000003e2c800000)
libcrypto.so.6 => /lib64/libcrypto.so.6 (0x0000003e2b400000)
libz.so.1 => /usr/lib64/libz.so.1 (0x0000003ada600000)
libc.so.6 => /lib64/libc.so.6 (0x0000003ad8a00000)
/lib64/ld-linux-x86-64.so.2 (0x0000003ad8600000)
libgssapi_krb5.so.2 => /usr/lib64/libgssapi_krb5.so.2
(0x0000003e2c400000)
libkrb5.so.3 => /usr/lib64/libkrb5.so.3 (0x0000003e2bc00000)
libcom_err.so.2 => /lib64/libcom_err.so.2 (0x0000003adba00000)
libk5crypto.so.3 => /usr/lib64/libk5crypto.so.3
(0x0000003e2b800000)
libkrb5support.so.0 => /usr/lib64/libkrb5support.so.0
(0x0000003e2c000000)
libkeyutils.so.1 => /lib64/libkeyutils.so.1 (0x0000003adc200000)
libresolv.so.2 => /lib64/libresolv.so.2 (0x0000003adc600000)
libselinux.so.1 => /lib64/libselinux.so.1 (0x0000003ad9e00000)
libsepol.so.1 => /lib64/libsepol.so.1 (0x0000003ad9a00000)
TR
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Petr Hlozek <petr h(zv)mrp(tec)cz> - 19.2.2009 12:19:24
Ahoj,
co vypise ldd ./testhttp ?
Na jake distribuci to zkousis? Je potreba doinstalovat devel knihovnu k
openssl. U Ubuntu je to libssl-dev, u Fedory openssl-devel.
Petr
Tomas Rosa napsal(a):
> Ahoj,
>
>> A samotneho HTTPS klienta uz jsi rozbehl?
>>
>> Pak totiz staci do THttpsend.sock.ssl nastavit tvuj certifikat a
>> provest HTTP pozadavek.
>
> tak samotny HTTPS klient uz funguje, certifikaty mu take muzu predat.
> Nicmene pokud do uses dam ssl_openssl a mysql4 zaroven, program
> prelozeny pod FPC nelze ani spusit - vzdy skonci na nejake podobne chybe
> co nejde vystopovat.
>
> Nema nekdo tip co s tim?
>
> ./testhttp
> An unhandled exception occurred at $0000003AD86091D2 :
> EAccessViolation : Access violation
> $0000003AD86091D2
> $0000003AD8B06734
> $0000003AD8E01104
> $00002B82468DF270
>
> An unhandled exception occurred at $0000003AD86127B1 :
> EAccessViolation : Access violation
> $0000003AD86127B1
>
>
> Diky TR
>
> Info: Embarcadero All-Access
[*] rkubat(zv)email(tec)cz - 19.2.2009 12:13:23
Dobry den vsem uzivatelum konference,
ti z vas, kteri pisi aplikace a pracuji s databazemi, by se mohli zajimat novou nabidku Embarcadero pro navrh, tvorbu a provoz softwarovych aplikaci a databazovych systemu v jednom baleni nastroju za opravdu prekvapive nizkou cenu. Existuji i upgrade z Delphi libovolne starsi verze ...
Popis Embarcadero All-Access:
http://www.embt(tec)cz/cs/produkty/34-all-access
Tiskova zprava:
http://www.embt(tec)cz/cs/tiskove-zpravy/12-embarcadero-all-access.html
S pranim hezkeho dne, -- Richard Kubat, Borland s.r.o.
ORA9 - optimalizacia selectu
[*] Michal Simsaj <delphinpp(zv)atlas(tec)cz> - 19.2.2009 09:29:13
Zdravim,
mam zlozitejsi select, priblizne :
select (select sum() from..), (select sum() from..), ..
from nieco
join...
join...
..
group by
ktoreho vyhodnotenie mi trva do 1s..
zaujimave je, ze ked dam :
select * from (horeuvedeny select)
tak jeho vyhodnotenie trva cez 10 min.
Neviete mi niekto pls poradit ako by som mohol postupovat pri pripadnej
optimalizacii ?
dik,
M.
Krokovani unity system.pas
[*] delphi(zv)haida(tec)cz - 19.2.2009 09:11:11
Nastaveni kompilatoru - Use debug DCUs
Pavel
> Tak me to prave prestalo bavit - nejak jsem docilil toho, ze pri krokovani
> zdrojaku se mi krokuji i procedury v unite system.pas. Konkretne procedury
> Nevite, jak se toho zbavit (pekne to zdrzuje)? Resp. jak to nastavovat -
> nekdy se to muze i hodit?
>
Krokovani unity system.pas
[*] Rudolf Krizek <krizek(zv)trifid-sw(tec)cz> - 19.2.2009 09:07:11
Zdravim!
Tak me to prave prestalo bavit - nejak jsem docilil toho, ze pri krokovani
zdrojaku se mi krokuji i procedury v unite system.pas. Konkretne procedury
_PStrCpy a _PStrNCut pred vlezenim do me procedury, resp. _LStrArrayClr nebo
_LStrClr pred navratem z krokovane procedury zpet. V obou pripadech mackam
klavesu F7, protoze mam nastaveno IDE classic na uplne vsechno.
A aby toho nebylo malo, tak se to stava jen u nekterych procedur. Obcas to
vleze i do jine unity.
Nevite, jak se toho zbavit (pekne to zdrzuje)? Resp. jak to nastavovat -
nekdy se to muze i hodit?
Diky za jakoukoliv radu.
S pozdravem
Rudolf Krizek
TRIFID Software
WinXP Home SP2, RAD Studio 2007 December 2007 Update
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 19.2.2009 15:31:37
> open("/usr/lib64/libssl.so", O_RDONLY) = 4
> read(4,
> "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0p!\201,>\0\0\0"..., 832)
> = 832
> fstat(4, {st_mode=S_IFREG|0755, st_size=302408, ...}) = 0
> close(4) = 0
> munmap(0x2baa480f7000, 33223) = 0
>
stejny navratovy kod
> open("/etc/ld.so.cache", O_RDONLY) = 4
> fstat(4, {st_mode=S_IFREG|0644, st_size=33223, ...}) = 0
> mmap(NULL, 33223, PROT_READ, MAP_PRIVATE, 4, 0) = 0x2baa480f7000
> close(4) = 0
> open("/usr/lib64/libcrypto.so", O_RDONLY) = 4
> read(4,
> "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\320bE+>\0\0\0"..., 832)
> = 832
> fstat(4, {st_mode=S_IFREG|0755, st_size=1329816, ...}) = 0
> close(4) = 0
> munmap(0x2baa480f7000, 33223) = 0
>
podle mne se mu to povedlo (ale cert vi), viz o 10 radku drive
strace jen odchytava systemova volani, takze to AV muze byt (a podle mne
je) az dale
> --- SIGSEGV (Segmentation fault) (zv) 0 (0) ---
> rt_sigprocmask(SIG_UNBLOCK, [SEGV], NULL, 8) = 0
> write(1, "An unhandled exception occurred "..., 55An unhandled exception
> occurred at $0000003AD86091D2 :
> ) = 55
> write(1, "EAccessViolation : Access violat"..., 36EAccessViolation :
> Access violation
> ) = 36
>
....
> munmap(0x2baa4808f000, 262144) = 0
R.
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.2.2009 15:23:36
> takze to buchne jeste pred prvnim radkem tveho kodu? co initialization
> sekce tech dvou unitu? Pokud das do uses jen jednu
> tak to funguje?
ano, ukazkovy priklad na pouziti kazde ze dvou unit je OK. Pokud je dam
do uses (bez jakehokoliv pouziti fci z nich) tak je problem. Na poradi
nezalezi.
Initialization sekce k unite mysql neznam, nemam zdrojak. Mam verzi FPC
bez zdrojaku unit, pokusim se najit.
>
> zkusil bych
> a) ladici vypisy (overis ze to spadne jeste pred tvojim kodem)
ano, spadne to jeste pred mym kodem
> b) strace
viz muj minuly email
TR.
prechod z BDE na ADO
[*] lelicek(zv)volny(tec)cz - 19.2.2009 16:13:39
Ahoj,
odpovidam pozde, ale neda mi to, tento kod pro MSSQL moc optimalni neni
a neni ani ekvivalentem prechoziho!
Kdyz tak asi takto:
select co.*, cb.NAZEV
from CIS_ORGJEDNOTEK co LEFT OUTER JOIN CIS_BANKY cb
ON co.KODBANKY=cb.KOD
where co.NOJEDNOTKA=:XXXX
Nejde o tu hvezdicku (take si myslim ze je lepsi vyjmenovat sloupce),
ale o info pro optimalizator a zejmena o pocet vracenych zaznamu!
Pavel
Od: "Jiri Jelinek" <jiri.jelinek(zv)asei(tec)cz>
> napsal bych to asi takto (urcite optimalizovanejsi
> kod (a urcite projde pres
> ADO) a jeste navic pokud pouzivas v select * ma ADO
> velkou rezii s
> metadaty):
>
> select co.KODBANKY, cb.NAZEV
> from CIS_ORGJEDNOTEK co, CIS_BANKY cb
> where co.KODBANKY=cb.KOD and co.NOJEDNOTKA=:XXXX
>
> JiJe
Synapse FTPsend a firewall
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 19.2.2009 21:46:00
Mam nasledujici problem. Jiz nekolik let pouzivam synapse FTPsend a FTp
server FileZilla.
Vse fungovalo bez problemu jelikoz na serveru se nepouzival windows
firewall.
Po zapnuti FW na serveru a pridani vyjimky na port 21 prestalo ftp
spojeni fungovat. Prihlaseni funguje normalne ale jakmile se zavola metoda
InternalStor('STOR ' + FileName, RestoreAt);
tak funkce TFTPSend.DataSocket vraci false (Timeout). Zajimave je ze treba FTP klient z TotalCommanderu funguje naprosto
normalne.
Poradi mi nekdo pokud je to problem synapse jak na to?
Normalne pouzivam Funkci
function FtpPutFile(const IP, Port, FileName, LocalFile, User, Pass:
string): Boolean;
Diky Zvo.
000430) 2/19/2009 21:15:22 PM - (not logged in) (10.139.68.6)>
Connected, sending welcome message...
(000430) 2/19/2009 21:15:22 PM - (not logged in) (10.139.68.6)>
220-FileZilla Server version 0.9.29 beta
(000430) 2/19/2009 21:15:22 PM - (not logged in) (10.139.68.6)>
220-written by Tim Kosse (Tim.Kosse(zv)gmx.de)
(000430) 2/19/2009 21:15:22 PM - (not logged in) (10.139.68.6)> 220
Please visit http://sourceforge.net/projects/filezilla/
(000430) 2/19/2009 21:15:22 PM - (not logged in) (10.139.68.6)> USER PEPA
(000430) 2/19/2009 21:15:22 PM - (not logged in) (10.139.68.6)> 331
Password required for pepa
(000430) 2/19/2009 21:15:22 PM - (not logged in) (10.139.68.6)> PASS ******
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> 230 Logged on
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> TYPE I
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> 200 Type set to I
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> STRU F
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> 200 Using file
structure 'File'
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> MODE S
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> 200 MODE set to S.
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> REST 0
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> 350 Rest supported.
Restarting at 0
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> REST 1
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> 350 Rest supported.
Restarting at 1
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> REST 0
(000430) 2/19/2009 21:15:22 PM - pepa (10.139.68.6)> 350 Rest supported.
Restarting at 0
(000430) 2/19/2009 21:15:27 PM - pepa (10.139.68.6)> EPSV 1
(000430) 2/19/2009 21:15:27 PM - pepa (10.139.68.6)> 229 Entering
Extended Passive Mode (|||51781|)
(000430) 2/19/2009 21:15:52 PM - pepa (10.139.68.6)> disconnected.
Synapse FTPsend a firewall
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 19.2.2009 21:54:00
Ahoj,
Zkusil bych pouzit pasivni rezim. Navazovani spojeni inicializuje klient na
portu 21. Ale vlastni data se prenaseji na portu 20 a spojeni navazuje
server. V tom muze byt casto problem, ze firewall blokuje prichozi
nenavazane spojeni.
Petr
On Thu, Feb 19, 2009 at 9:46 PM, Josef Zvonicek <prosoft(zv)prosoft(tec)cz> wrote:
> Mam nasledujici problem. Jiz nekolik let pouzivam synapse FTPsend a FTp
> server FileZilla.
> Vse fungovalo bez problemu jelikoz na serveru se nepouzival windows
> firewall.
> Po zapnuti FW na serveru a pridani vyjimky na port 21 prestalo ftp
> spojeni fungovat. Prihlaseni funguje normalne ale jakmile se zavola metoda
> InternalStor('STOR ' + FileName, RestoreAt);
>
> tak funkce TFTPSend.DataSocket vraci false (Timeout).
>
> Zajimave je ze treba FTP klient z TotalCommanderu funguje naprosto
> normalne.
> Poradi mi nekdo pokud je to problem synapse jak na to?
TRichEdit
[*] stefunko(zv)szm.sk - 20.2.2009 13:40:59
Zdravim,
ma niekto skusenosti s touto komponentou.
potrbujem zobrazit tabulku, kde v bunke je viac riadkov,
pripadne oramovany viacriadkovy text.
Delphi2007
Stefunko
=== reklama ======================================
http://mail.szm.com - e-mail a priestor na www stranku zadarmo
http://webhosting.szm.com - domeny a webhosting za najnizsie ceny
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 20.2.2009 11:30:51
Ahoj,
>
> Co by se stalo, kdyby treba to MySQL pouzivalo libcrypto.so, ale
> nejake jine verze? Jakmile Synapse pak chce zinicializovat OpenSSl,
> ta zacne s libssl.so, a pak se pokusi nacist libcrypto.so. Nezbuchne
> to na tom, ze uz v pameti ta knihovna je, ale jina verze, nez
> libssl.so ocekava?
>
No, asi na tom mozna neco bude - protoze to nacita knihovny zhruba v
tomto poradi a libcrypto se nacita pokazde jina:
open("/usr/lib64/mysql/libmysqlclient.so.15", O_RDONLY) = 4
open("/lib64/libdl.so.2", O_RDONLY) = 4
open("/lib64/libcrypt.so.1", O_RDONLY) = 4
open("/lib64/libnsl.so.1", O_RDONLY) = 4
open("/lib64/libm.so.6", O_RDONLY) = 4
open("/lib64/libssl.so.6", O_RDONLY) = 4
open("/lib64/libcrypto.so.6", O_RDONLY) = 4
open("/usr/lib64/libz.so.1", O_RDONLY) = 4
open("/lib64/libc.so.6", O_RDONLY) = 4
open("/usr/lib64/libgssapi_krb5.so.2", O_RDONLY) = 4
open("/usr/lib64/libkrb5.so.3", O_RDONLY) = 4
open("/lib64/libcom_err.so.2", O_RDONLY) = 4
open("/usr/lib64/libk5crypto.so.3", O_RDONLY) = 4
open("/usr/lib64/libkrb5support.so.0", O_RDONLY) = 4
open("/lib64/libkeyutils.so.1", O_RDONLY) = 4
open("/lib64/libresolv.so.2", O_RDONLY) = 4
open("/lib64/libselinux.so.1", O_RDONLY) = 4
open("/lib64/libsepol.so.1", O_RDONLY) = 4
open("/usr/lib64/libssl.so", O_RDONLY) = 4
open("/usr/lib64/libcrypto.so", O_RDONLY) = 4
no - i kdyz - uz na to koukam - to jsou jen simlinky, takze opet netusim.
TR
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.2.2009 11:02:49
> Zjistil bych si, zda nahodou nepouziva mysql4 take openssl a zda
> nedochazi k nejake kolizi pri initialization techto dvou unit.
Jeste mne napada jedna vec... nevim, jak se linux v takovych
pripadech chova, takze mne nekamenujte, pokud placnu blbost:
Ale, OpenSSL je slozena ze dvou knihoven libssl.so a libcrypto.so, a
tyto knihovny musi navzajem odpovidat. Nelze kombinovat tyto knihovny
z ruznych verzi OpenSSL.
Co by se stalo, kdyby treba to MySQL pouzivalo libcrypto.so, ale
nejake jine verze? Jakmile Synapse pak chce zinicializovat OpenSSl,
ta zacne s libssl.so, a pak se pokusi nacist libcrypto.so. Nezbuchne
to na tom, ze uz v pameti ta knihovna je, ale jina verze, nez
libssl.so ocekava?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Synapse FTPsend a firewall
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.2.2009 10:54:49
> Mam nasledujici problem. Jiz nekolik let pouzivam synapse FTPsend a
> FTp server FileZilla. Vse fungovalo bez problemu jelikoz na serveru se
> nepouzival windows firewall. Po zapnuti FW na serveru a pridani
> vyjimky na port 21 prestalo ftp spojeni fungovat. Prihlaseni funguje
> normalne ale jakmile se zavola metoda InternalStor('STOR ' + FileName,
> RestoreAt);
>
> tak funkce TFTPSend.DataSocket vraci false (Timeout).
Pricin muze byt nekolik:
Ale pokud TotalCommander funguje, pak jsi narazil na server, ktery
(stejne jako Synapse) umi novy prikaz EPSV. Proto jej Synapse
automaticky pouzila.
Nicmene tvuj firewall tento novy FTP prikaz nezna a tak nevyrobil
patricnou diru pro data.
Muzes zkusit v synapsi nastavit property TFTPsend.forceoldport na
true, cimz se ta podpora novych FTP prikazu vypne. TotalCommander
tyto nove prikazy neumi, tak proto patrne funguje.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Synapse & HTTPS klient - nelze kombinovat s MySQL
[*] Ludan <konference(zv)sales(tec)cz> - 20.2.2009 08:18:39
----- Original Message -----
From: "Tomas Rosa" <trosa(zv)seznam(tec)cz>
> Nicmene pokud do uses dam ssl_openssl a mysql4 zaroven, program
> prelozeny pod FPC nelze ani spusit - vzdy skonci na nejake podobne chybe
Ahoj,
Zjistil bych si, zda nahodou nepouziva mysql4 take openssl a zda nedochazi k
nejake kolizi pri initialization techto dvou unit.
Ludek
Problem s triggry v MSSQL 2005
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 24.2.2009 11:43:40
Ahoj vsichni
Mam takovy dotaz. V D7 Ent jsem narazil na podivne chovani vuci MSSQL 2005 (nejspis Express verze).
V programu pouzivam TADOCommand, kterym posilam prikaz UPDATE ... na nejakou tabulku v databazi, ktery se tyka existujiciho zazanamu. Mam databazi obnovenou ze zalohy zakaznika, ktera obsahuje triggery, odkazujici, do jinych, na mem serveru neexistujicich databazi. V MSSQL 2000 se update zachoval tak, ze se provedl a zkousel provadet prislusne triggery, ktere zhavarovaly a chyba se dostala jako vyjimka do aplikace. V MSSQL 2005 ten prikaz neprojde, delphi nedostanou zadnou spravu o chybe a program pokracuje dal, jako by se nic nestalo. Pritom Management studio od MSSQL, vypise ze bylo zmeneno 0 radku a chyba naztala v triggeru.
Da se to detekovat tak, ze testuju parametr RecordsAffected metody Execute, zda je nenulovy. Ale libilo by se mi vic, kdyby Delphi generovalo vyjimku, tak jako u kazde jine chyby na SQL.
Nevite cim to muze byt, a jestli je to problem i v novejsi verzi Delphi?
Dekuju
Jaromir Cermak
Prime spusteni tiskoveho nahledu v MS IE7
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 24.2.2009 11:49:40
Ahoj,
>mam aplikaci (Delphi6), kde resim tisk pomoci exportu do HTML a nasledneho
tisku v IE7 (proc prave takto ted nechme stranou). >Exportovany html soubor
tak musim otevrit v IE, jit do nabidky a zvolit tiskovy nahled. Nevite
prosim, jestli se ten tiskovy >nahled da vyvolat primo? IE by mel byt
zalozeny na COM, takze by to jit melo...
vytvoris si IEcko (importem shdocvw resp. mozna uz to tam je nekde
importovane), z nej dostanes interface IWebBrowser2. Tam muzes udelat
.Navigate, tim otevres to html. Pak muzes bud pockat nejaky cas nebo ve
smycce kontrolovat ReadyState property az budes mit page natazenou, pripadne
tam muzes povesit event na DocumentComplete.
Pak zavolas ExecWB, command code IDM_PRINTPREVIEW by mel delat to co chces.
Cau
Radek
Prime spusteni tiskoveho nahledu v MS IE7
[*] Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> - 24.2.2009 10:45:36
Zdravim vsechny,
mam aplikaci (Delphi6), kde resim tisk pomoci exportu do HTML a nasledneho tisku v IE7 (proc prave takto ted nechme stranou). Exportovany html soubor tak musim otevrit v IE, jit do nabidky a zvolit tiskovy nahled. Nevite prosim, jestli se ten tiskovy nahled da vyvolat primo? IE by mel byt zalozeny na COM, takze by to jit melo...
diky za inspiraci..
Mgr. Miloslav Pojsl
Automaticke rozbaleni MainMenu po najeti mysi
[*] Jarda <jarecek.b(zv)gmail(tec)com> - 23.2.2009 15:16:00
Dobry den,
potreboval bych ve sve aplikaci zaridit, aby se hlavni menu
automaticky rozbalovalo po najeti kurzoru mysi. Slo by toto nejak
zaridit?
--
Dekuji a jsem s pozdravem,
Jarek
Problem s triggry v MSSQL 2005
[*] Ludan <konference(zv)sales(tec)cz> - 24.2.2009 17:10:01
----- Original Message -----
From: "Jaromir Cermak" <cermak(zv)procom(tec)cz>
> V programu pouzivam TADOCommand, kterym posilam prikaz UPDATE ... na
> nejakou tabulku v databazi, ktery se tyka existujiciho zazanamu. Mam
> databazi obnovenou ze zalohy zakaznika, ktera obsahuje triggery,
> odkazujici, do jinych, na mem serveru neexistujicich databazi. V MSSQL
> 2000 se update zachoval tak, ze se provedl a zkousel provadet prislusne
> triggery, ktere zhavarovaly a chyba se dostala jako vyjimka do aplikace. V
> MSSQL 2005 ten prikaz neprojde, delphi nedostanou zadnou spravu o chybe a
> program pokracuje dal, jako by se nic nestalo. Pritom Management studio od
> MSSQL, vypise ze bylo zmeneno 0 radku a chyba naztala v triggeru.
> Da se to detekovat tak, ze testuju parametr RecordsAffected metody
> Execute, zda je nenulovy. Ale libilo by se mi vic, kdyby Delphi generovalo
> vyjimku, tak jako u kazde jine chyby na SQL.
Ahoj,
Zkus se mrknout v hlepu MS SQL na SET XACT_ABORT ON | OFF
Treba to pomuze.
Ludek
OT: MSSQL2008Expr vykon/instance
[*] Ludan <konference(zv)sales(tec)cz> - 24.2.2009 16:56:00
Zdravim,
Mam 3 vrstvou aplikaci kde app server pouziva DB na MSSQL2008 Express. Nyni
budou tyto aplikace dve (kazda bude zpracovavat jinou evidenci).
Ptam se zda ma z hlediska vykonu smysl aby na serveru bezela pro kazdou
aplikaci zvlast instance SQL serveru nebo je to jedno a muze bezet pouze
jedna instance a v ni dve databaze.
Pro informaci je to starsi stroj 2x XEON 3,4G 4GB RAM OS Windows 2003
server.
Ludek
zjisteni ciloveho adresare
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 25.2.2009 11:03:06
dobry den
nevite nekdo jak zjistit kam odkazuje adresar ktery je tvoren tzv. linkem
(napr "Documents and Settings" ve Vistach)?
zkousel sem FindFirstFile ale tem mi nefungoval, neco sem nasel na internetu
ale nefungovalo me ani to
diky za kazde nakopnuti
Firebird, QuickReport a TMetafile
[*] Ing. Antonin Spurny <spurny(zv)kavlounky(tec)cz> - 26.2.2009 17:12:53
Ahoj,
Jakym spusobem dostanu do tabulky, obrazek z TMetafile komponenty?
zatim to delam takto,
IBT_TISKY ... GTT - docasna tabulka pro sestavu
IBT_TISKYTI_IMAGE ... policko Blob podtyp 0 pro ulozeni obrazku
lObr: TMetafile;
lCan: TMetafileCanvas
lStream: TStream;
....
// naplneni obrazku TMetafile
lCan:= TMetafileCanvas.Create(lObr,0);
lGraph.PaintTo(lCan); // neco se nakresli do TMetafileCanvas
lCan.Free; // TMetafileCanvas se musi uvolnit drive, nez je pouzivan
TMetafile
lCan:= nil;
// ulozeni obrazklu do
if not (DM.IBT_TISKY.State in dsEditModes) then DM.IBT_TISKY.Edit;
lStream:= DM.IBT_TISKY.CreateBlobStream(DM.IBT_TISKYTI_IMAGE,
bmWrite);
lObr.SaveToStream(lStream);
lStream.Free;
DM.IBT_TISKY.Post;
bohuzel pri tisku mi dochazi k chybe "Bitmap image is not valid".
Komponenta pro zobrazeni obrazku je typu TQRDBImage a ja se domnival ze umi
pracovat i s obrazky format TMetafile.
Pokud jsem obdobnym spusobe zpracovaval komponentu TBitmap tak vse chodilo
jak ma, jen obrazky byly trochu kostickovane....
D7, QuickReport 3.0.9, Firebird 2.1, W Vista.
dekuji za pripadnou radu ci nakopnuti,
Tonda
Firebird, TIMESTAMP s tisicinami sekundy
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 26.2.2009 09:50:27
Hmm,
1) ty pouzivas cas klienta? Ve vetsine pripadu je nutne stejnak
zapisovat do databaze cas SQL serveru jinak ten cas ma prakticky nulovou
informacni hodnotu
(pokud nebezi server a klient na jednom pocitaci). A ten cas bych
zjistoval na jednom miste. Takze bych to neresil a upravil tu jednu metodu.
2) Nebo si napsat vlastni proceduru Now a dat ji do projektu na prvni
misto aby ji linker pouzil misto std. (popripade pouzit runtime patch,
nahrazeni procedury za behu - kdysi jsem o tom psal clanek).
R.
> Zdravim !
> V programu pouzivame uz leta komponenty IBX pro pristup k databazi Firebird. Uz leta pouzivam zapis datumu a casu prikazem
> ParamByName('kdy').AsDateTime:= Now;
>
> Na naproste vetsine pocitacu, kde program bezi, se zapise datum a cas ve formatu 2009-02-26 08:49:50:000, tj. tisiciny sekundy vzdy = 000.
>
> Ovsem na nekterych pocitacich se zapise 2009-02-26 08:49:50:452, tj. s tisicinami.
>
>
Firebird, TIMESTAMP s tisicinami sekundy
[*] horky(zv)cominn(tec)cz - 26.2.2009 09:06:25
Zdravim !
V programu pouzivame uz leta komponenty IBX pro pristup k databazi Firebird. Uz leta pouzivam zapis datumu a casu prikazem
ParamByName('kdy').AsDateTime:= Now;
Na naproste vetsine pocitacu, kde program bezi, se zapise datum a cas ve formatu 2009-02-26 08:49:50:000, tj. tisiciny sekundy vzdy = 000.
Ovsem na nekterych pocitacich se zapise 2009-02-26 08:49:50:452, tj. s tisicinami.
Muzete poradit, cim by to mohlo byt ?
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Event pro aktivovani aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.2.2009 09:37:53
Ahoj,
mam aplikaci v D5, ktera ma nektera okna takova, ze maji samostatny
button na taskbaru. Zjistil jsem, ze pri kliknuti na takovy button na
taskbaru krome aktivovani okna dostane aplikace jako takova zpravu
Activate, kterou zachytavam v Application.OnActivate a delam nejake akce.
Ale: zjistil jsem, ze aplikace dostane uvedenou message i v pripade pro
me nepochopitelnem. Svoji aplikaci minimalizuji na taskbar.
Zminimalizuji nebo obnovim jinou aplikaci na taskbaru a (zrejme) pokud
je moje aplikce na taskbaru jako posledni, prijde i ji OnActivate,
ackoli fakticky aktivni neni, nebot ma lezet minimalizovana na taskbaru.
Dotaz tedy zni - proc vubec moje aplikace v tomto pripade dostane
message o aktivovani? Jak mohu rozpoznat, ze se jedna o uzivatelem
provedene kliknuti na nektery z buttonu oken aplikce na taskbaru? Nevite
nekdo o nejakem odkazu, kde by to bylo popsane?
Diky
David Lebeda
Event pro aktivovani aplikace
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 27.2.2009 10:09:55
Ahoj,
co se zkusit otestovat TForm.WindowState?
Vaclav Sazima
Lebeda David napsal(a):
> Ahoj,
>
> mam aplikaci v D5, ktera ma nektera okna takova, ze maji samostatny
> button na taskbaru. Zjistil jsem, ze pri kliknuti na takovy button na
> taskbaru krome aktivovani okna dostane aplikace jako takova zpravu
> Activate, kterou zachytavam v Application.OnActivate a delam nejake akce.
>
> Ale: zjistil jsem, ze aplikace dostane uvedenou message i v pripade pro
> me nepochopitelnem. Svoji aplikaci minimalizuji na taskbar.
> Zminimalizuji nebo obnovim jinou aplikaci na taskbaru a (zrejme) pokud
> je moje aplikce na taskbaru jako posledni, prijde i ji OnActivate,
> ackoli fakticky aktivni neni, nebot ma lezet minimalizovana na taskbaru.
>
> Dotaz tedy zni - proc vubec moje aplikace v tomto pripade dostane
> message o aktivovani? Jak mohu rozpoznat, ze se jedna o uzivatelem
> provedene kliknuti na nektery z buttonu oken aplikce na taskbaru? Nevite
> nekdo o nejakem odkazu, kde by to bylo popsane?
>
> Diky
>
> David Lebeda
>
>
>
Event pro aktivovani aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.2.2009 10:29:57
Vaclav Sazima napsal(a):
> co se zkusit otestovat TForm.WindowState?
>
Ahoj,
ono to je trochu slozitejsi. Hlavni okno aplikace je vyjmuto z Application:
Params.WndParent := GetDesktopWindow; //toto okno vyjmeme ze skryteho
okna aplikace
//pri minimalizaci cele aplikace
se o nej
//pak musime postarat sami
Toto delam kvuli Vistam a AERO - jinak pro minimalizovane aplikace
nefunguji nahledy oken. Takze kdyz se aplikace minimalizuje, na taskbaru
neni videt skryte okno Application, ale mainform. Sam se pak musim
postarat o pripadne restore apod. Problem je v tom, ze oknu prijde
message o aktivovani, stejna, jako kdyz na nej clovek klikne. Ja pak
usoudim, ze pokud je aplikace minimalizovana, uzivatel si ji preje
restorovat.
David Lebeda
> Vaclav Sazima
>
> Lebeda David napsal(a):
>
>> Ahoj,
>>
>> mam aplikaci v D5, ktera ma nektera okna takova, ze maji samostatny
>> button na taskbaru. Zjistil jsem, ze pri kliknuti na takovy button na
>> taskbaru krome aktivovani okna dostane aplikace jako takova zpravu
>> Activate, kterou zachytavam v Application.OnActivate a delam nejake akce.
>>
>> Ale: zjistil jsem, ze aplikace dostane uvedenou message i v pripade pro
>> me nepochopitelnem. Svoji aplikaci minimalizuji na taskbar.
>> Zminimalizuji nebo obnovim jinou aplikaci na taskbaru a (zrejme) pokud
>> je moje aplikce na taskbaru jako posledni, prijde i ji OnActivate,
>> ackoli fakticky aktivni neni, nebot ma lezet minimalizovana na taskbaru.
>>
>> Dotaz tedy zni - proc vubec moje aplikace v tomto pripade dostane
>> message o aktivovani? Jak mohu rozpoznat, ze se jedna o uzivatelem
>> provedene kliknuti na nektery z buttonu oken aplikce na taskbaru? Nevite
>> nekdo o nejakem odkazu, kde by to bylo popsane?
>>
>> Diky
>>
>> David Lebeda
>>
>>
>>
>>
>>
>
>
>
Obarvovani textu v DBGridu
[*] delphi(zv)mjsoft(tec)cz - 01.3.2009 21:30:01
Zdravim,
Nema nekdo napad, jak obarvit kus textu v bunce DBGridu? Cely text bunky
neni problem, ale potrebuji obarvit jen jedno slovo ze slovniho spojeni.
Diky za nakopnuti. Karel
Obarvovani textu v DBGridu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 02.3.2009 07:02:35
Ahoj,
delphi(zv)mjsoft(tec)cz napsal(a):
> ...potrebuji obarvit jen jedno slovo ze slovniho spojeni.
budes si muset cely text vykreslit sam. Mrkni se na metody TCanvas,
je tam TextOut a, tusim, TextBox. Pisu to z hlavy, ale kdyz si metody
TCanvas projde, tak ty na vykreslovani textu najdes.
Peca
Vista UAC
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 02.3.2009 10:16:47
dobry den
nevite nekdo jak si ve Vistach vyzadat povoleni administratorkych prav v
prubehu programu (pri spusteni programu to pres manifest umim). idealne v C#
ale staci jakekoliv nakopnuti
dekuji predem
Vista UAC
[*] Dalibor <dalibor(zv)torola(tec)cz> - 02.3.2009 12:26:55
Treba zde
http://www.codeproject.com/KB/vista-security/UAC_Shield_for_Elevation.aspx
> nevite nekdo jak si ve Vistach vyzadat povoleni administratorkych prav v
> prubehu programu (pri spusteni programu to pres manifest umim). idealne v
> C#
> ale staci jakekoliv nakopnuti
MODBUS a D7
[*] hwa <hwa(zv)centrum(tec)cz> - 03.3.2009 08:42:25
Dobry den,
http://www.modbus-ida.org/
http://home.zcu(tec)cz/~ronesova/bastl/files/modbus.pdf
JC> Potreboval bych pomoc, nebo radu s pouzivanim protokolu MODBUS.
JC> Mam D7 a teplomer DT4120 od madarske firmy DATCON. mel by
JC> komunikovat protokolem MODBUS RTU po seriove lince. Potreboval
MODBUS a D7
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 03.3.2009 06:52:18
Ahoj vsichni
Potreboval bych pomoc, nebo radu s pouzivanim protokolu MODBUS. Mam D7 a teplomer DT4120 od madarske firmy DATCON. mel by komunikovat protokolem MODBUS RTU po seriove lince. Potreboval bych ziskat nejaky popis komunikace i s priklady odeslanych a prijatych packetu, abych se mel ceho chytit, pripadne nejake free komponenty, ktere tuto komunikaci podporuji nebo program, ktery zvladne precist teplotu z tohoto zarizeni, abych mohl otestovat zdfa to vubec funguje.
JINAK JSEM JAKO SLEPY.
DEKUJI ZA KAZDE NAKOPNUTI SPRAVNYM SMEREM
Jaromir Cermak
Vista UAC
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 02.3.2009 15:45:07
Zdar,
ShellExecute s commandem "runas" . Elevace je vzdy na urovni procesu takze
neni mozne jen elevovat thread ale musis si spustit novou instanci exace s
parametrem ktery udela co potrebujes.
Radek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Ladislav Fitz
Sent: Monday, March 02, 2009 10:17 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Vista UAC
dobry den
nevite nekdo jak si ve Vistach vyzadat povoleni administratorkych prav v
prubehu programu (pri spusteni programu to pres manifest umim). idealne v C#
ale staci jakekoliv nakopnuti
dekuji predem
OLE server a Office
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 03.3.2009 14:16:45
Zdravim,
nikdy jsem nemusel zapasit s Ole/ActiveX a tak bych potreboval nejake
nakopnuti. Google na me zaludne polozene dotazy vraci jen jak pouzit
Word v Delphi, ale ja chci opak.
Potrebuji abych mohl do wordu vlozit moji aplikaci - resp. jeji
vystup. Mam program co generuje nejake obrazky a potrebuji tento vlozit
aktivne do wordu. Tj. aby se vzdy aktualne prekeslil z danych dat v
okamziku kdy si nekdo dokument prohlizi / tiskne.
Diky za rady
TR
Nastroj pro tymovou praci
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 04.3.2009 12:38:05
>to prepojene a staci len normalne zacat editovat, pridat alebo zmazat subor
>a automaticky sa odomkne. Robi celkom sikovne auto merge, v pripade, ze uz
Tak toddle byl presne ten duvod proc jsme prestali pouzivat rozsireni ide
pro FreeVCS.
Nekdy neni od veci kdyz programator musi pred tim nez neco odemkne trochu
rozmyslet co dela a ne zacit busit kod.
Ale to je dle vkusu kazdeho soudruha :-D
Cus
Radek
Nastroj pro tymovou praci
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 04.3.2009 09:37:55
Dne Wed, 04 Mar 2009 09:09:53 +0100 Radek Voltr <voltr(zv)eleasoftware.com>
napsal/-a:
> dlouhodobe pouzivame JediVCS (vcetne puvodni FreeVCS) a to pres 8 let a
> zatim to slape jak ma.
My jsme taky pouzivali standalone FreeVCS, ale dost jsme se
s tim natrapili (ve smyslu omezene funkce, nikoli stability).
Tak jsme presli na free SVN a jako klienta pouzivame free
TortoiseSVN, ktery je zaintegrovan do Windows Exploreru -
ten je zejmena se spojeni s placenym Araxis Mergem naprosta
spicka.
pf
Nastroj pro tymovou praci
[*] Peter Ondras <konfery(zv)pse.sk> - 04.3.2009 09:17:53
Visual Studio Team Foundation Server (team system, team explorer). Najlepsie
si rozumie s Visual Studiom, da sa pouzivat aj pre ine prostredia, napr. aj
pre Delphi (v takomto pripade staci nainstalovat team explorer, ktory vyzera
ako Visual Studio a vnom riadit odomykanie a check-in. Vo Visual Studiu je
to prepojene a staci len normalne zacat editovat, pridat alebo zmazat subor
a automaticky sa odomkne. Robi celkom sikovne auto merge, v pripade, ze uz
si sam nevie poradit, tak umoznuje lahko spojit verzie od roznych ludi aj
manualne (klikanim na verzie, pripadne aj uplne manulne prepisovanie). Da sa
vratit podla viacerych kriterii k starsej verzii, pripadne len porovnat
aktualnu verziu so starsou verziou.
Nastroj pro tymovou praci
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 04.3.2009 09:09:53
Ahoj,
>Stacilo by neco jednoducheho co umi zamykat unit pokud s nim nekdo pracuje
a verzovani.
>Bylo by faj, kdyby to slo pouzit i s Visual Studiem.
dlouhodobe pouzivame JediVCS (vcetne puvodni FreeVCS) a to pres 8 let a
zatim to slape jak ma.
Nepouzivame pluginy do IDE ale standalone klienta takze to pouzivame na
vsechno, od Delphi pres
Aspx, C++, dokumentaci az po vsechnu grafiku atd...
Slape to jak ma, je to zadarmo a podpora serverovych DB je slusna
Cau
Radek
Nastroj pro tymovou praci
[*] Pavel Bares <bares(zv)atoll(tec)cz> - 04.3.2009 08:49:51
Ahoj,
mozna se to tu uz nekde probiralo, ale chtel bych se zeptat na nejaky nastroj pro tymovou praci.
Stacilo by neco jednoducheho co umi zamykat unit pokud s nim nekdo pracuje a verzovani.
Bylo by faj, kdyby to slo pouzit i s Visual Studiem.
Co pouzivate, jake jsou zkusenosti ?
dekuji
Pavel Bares
max. pocet des. miest
[*] hlas <hlas(zv)inmail.sk> - 04.3.2009 21:12:37
Aky je max. pocet desatinnych miest pri paradoxovej tabulke
Delphi 7 - pole float
Paradox 7 - pole BCD (#) ?
Nastroj pro tymovou praci
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 04.3.2009 14:58:14
Dne Wed, 04 Mar 2009 14:38:13 +0100 Pavel Bares <bares(zv)atoll(tec)cz> napsal/-a:
> Pouzivate to tak, ze si pomoci exploreru s TortoiseSVN vytahnete
> zdrojaky a na nich pracujete a pak zase pres explorer vracite zpet do
> repo. nebo to jde nejak jednoduseji ?
Kazdy ma svoji vlastni Working Copy u sebe na disku
a v te si dela co chce. Tu WC je treba pravidelne
updatovat se serverem. Zmeny se commituji zpatky na server.
Takovy nejbeznejsi zpusob prace se SVN je, ze vsichni mohou cist,
ale existuje jen par vyvolenych commiteru.
Pokud nekdo udela zmenu, udela ji proti konretni revizi a vygenereju
unified diff. Ten pak postne jako zaplatu napr. do bug-traceru
(my pouzivame trac) no a odpovedny commiter zaplatu ve svoji WC zkusi,
otestuje a je-li s ni spokojen, tak ji commitne na server.
To je asi jediny zpusob, jak udrzet prehled na tim, co se v projektu
deje.
--
Soubory se daji i zamykat, ale s tim nemam dobre zkusenosti,
protoze se vzdycky najde nejaky magor, ktery si neco zamkne
a odejde domu :-(> Je nejaka integrace s IDE delphi ?
Nevim a pochybuji - kdo a proc by to pro tu hrstku lidi
delal...
pf
Nastroj pro tymovou praci
[*] Pavel Bares <bares(zv)atoll(tec)cz> - 04.3.2009 14:38:13
Pouzivate to tak, ze si pomoci exploreru s TortoiseSVN vytahnete zdrojaky a na nich pracujete a pak zase pres explorer vracite zpet do repo. nebo to jde nejak jednoduseji ?
Je nejaka integrace s IDE delphi ?
Pavel Bares
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Fejfar
Sent: Wednesday, March 04, 2009 9:38 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Nastroj pro tymovou praci
Dne Wed, 04 Mar 2009 09:09:53 +0100 Radek Voltr <voltr(zv)eleasoftware.com>
napsal/-a:
> dlouhodobe pouzivame JediVCS (vcetne puvodni FreeVCS) a to pres 8 let a
> zatim to slape jak ma.
My jsme taky pouzivali standalone FreeVCS, ale dost jsme se
s tim natrapili (ve smyslu omezene funkce, nikoli stability).
Tak jsme presli na free SVN a jako klienta pouzivame free
TortoiseSVN, ktery je zaintegrovan do Windows Exploreru -
ten je zejmena se spojeni s placenym Araxis Mergem naprosta
spicka.
pf
Nastroj pro tymovou praci
[*] Peter Ondras <konfery(zv)pse.sk> - 04.3.2009 13:04:07
Ked odomkne nahodou nieco zle, moze dat kedykolvek Undo (subor sa znovu
zamkne, akakolvek zmena sa zahodi), takze integracia s IDE v tomto pripade
nie je problem..
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Radek Voltr
>to prepojene a staci len normalne zacat editovat, pridat alebo zmazat
>subor a automaticky sa odomkne. Robi celkom sikovne auto merge, v
>pripade, ze uz
Tak toddle byl presne ten duvod proc jsme prestali pouzivat rozsireni ide
pro FreeVCS.
Nekdy neni od veci kdyz programator musi pred tim nez neco odemkne trochu
rozmyslet co dela a ne zacit busit kod.
Spusteni programu ze sluzby
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 07.3.2009 07:30:47
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of delphi(zv)mjsoft(tec)cz
> Sent: Saturday, March 07, 2009 1:34 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Spusteni programu ze sluzby
> Ahoj, zkousim si udelat jednoduchou sluzbu v Delphi5. Ma za
> ukol spoustet
> zalohu firebirdu (GBAK.exe). Kdyz nastavim sluzbu jako
Ahoj,
neni jednodussi batak a naplanovana uloha?
PMal
Spusteni programu ze sluzby
[*] delphi(zv)mjsoft(tec)cz - 07.3.2009 01:33:50
Ahoj, zkousim si udelat jednoduchou sluzbu v Delphi5. Ma za ukol spoustet
zalohu firebirdu (GBAK.exe). Kdyz nastavim sluzbu jako INTERACTIVE, tak se
GBAK spusti. V opacnem pripadu se ale nespusti.
Ptam se, protoze jsem se sluzbou nikdy nepracoval, lze spustit externi
program, pokud neni nastaveno ve sluzbe INTERACTIVE? A pokud musi byt
nastveno INTERACTIVE, spusti se ext.program i kdyz neni nikdo k PC
prihlasen?
Diky Karel V.
3915 (20090306)
__________
Jake jsou moznosti stahovani souboru v internetu?
[*] Petr Vones <conference(zv)petrvones(tec)net> - 06.3.2009 14:31:09
Pokud ma byt ta aplikace nasazena ve firemnim prostredi tak:
- ve vetsine pripadu neni povolen jiny protokol nez HTTP. FTP tedy nepujde.
- uzivatel nema administratorska prava, takze (nastesti) nelze nic
automaticky aktualizovat. Alespon ne timto zcela nebezpecnym zpusobem
stahovani neceho odnekud.
Petr Vones
----- Original Message -----
From: "Ing. Igor Vodicka" <vodicka(zv)sagit(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 06, 2009 2:21 PM
Subject: Jake jsou moznosti stahovani souboru v internetu?> Ahoj!
>
> V aplikaci mam udelanou internetovou akutualizaci. Mam tam jednoducheho
> FTP
> klienta (programovano v D5, Indy9), ktery se pripojuje na nas FTP server,
> hleda nove aktualizace a stahuje je do pocitace.
>
> Je jeste nejaka jina varianta, protokol jak stahovat soubory z webu?
>
> Diky
>
> Igor Vodicka
Jake jsou moznosti stahovani souboru v internetu?
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 06.3.2009 14:21:08
Ahoj!
V aplikaci mam udelanou internetovou akutualizaci. Mam tam jednoducheho FTP
klienta (programovano v D5, Indy9), ktery se pripojuje na nas FTP server,
hleda nove aktualizace a stahuje je do pocitace.
Je jeste nejaka jina varianta, protokol jak stahovat soubory z webu?
Diky
Igor Vodicka
FastReport jako sluzba
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 06.3.2009 09:40:51
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Josef Zvonicek
> (exception) (cokoliv, ze polozka neni cislo atd) a ta zprava se mi
> zobrazi v modalnim dialogovem okne a proces mi uvizne.
try
TadyNecoDelame
except
on E: Exception do
begin
ZapisMiToDoLogu(E.Message)
end
end
PMal
FastReport jako sluzba
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 06.3.2009 09:16:50
Puvodni zprava ze dne 6.3.2009 od Josef Zvonicek:
> Vse funguje dobre, dokud se mi fastreport nezahlasi nejakou vyjimku
> (exception) (cokoliv, ze polozka neni cislo atd) a ta zprava se mi
> zobrazi v modalnim dialogovem okne a proces mi uvizne.
A kdyz to volani uzavres do try - except, tak co se stane?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
FastReport jako sluzba
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 06.3.2009 09:10:49
Mam nasleduji problem.
Pouzivam FastReport ve sluzbe ktera bezi na serveru. Podstrcim mu nejake
XML s daty a sablonou a on mi z toho vytvori znakovou tiskovou sestavu
,kterou ja pak primo poslu na tiskarnu DOS klienta jako soubor. Vse
funguje dobre, dokud se mi fastreport nezahlasi nejakou vyjimku
(exception) (cokoliv, ze polozka neni cislo atd) a ta zprava se mi
zobrazi v modalnim dialogovem okne a proces mi uvizne.
Reportoval jsem to na FastReport support a ti mi na to neodpovedeli.
Nema neko nejaky napad jak ve fastreportu nebo obecne potlacit osetreni
vyjimky a osetrovat si to sam?
Diky. Zvo.
Standard popupmenu pre TEdit
[*] Roland Turcan <konf(zv)rotursoft.sk> - 05.3.2009 12:11:32
Hello All!
Mam vlastny grid, do ktoreho som doplnil do paty TEdit, ktory vyuzivam
na filtrovanie. Na samotny Grid mam uz na forme priradene popupmenu,
ktore je ucinne pre samotny grid. Lenze automaticky aj TEdit ziskava
to popupmenu z gridu.
Aj napriek tomu, ze som v constructore gridu nastavil Edit.PopupMenu
:= nil; sa zobrazuje menu z gridu.
Ja by som chcel zobrazit to standardne menu, ktore sa zobrazuje ked je
Editbox polozeny na form s moznostami Copy, Paste, Select All, ....
Ako TEdit donutim zobrazit default popupmenu?
Vdaka.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Jake jsou moznosti stahovani souboru v internetu?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 07.3.2009 18:43:29
2009/3/6 Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz>:
> Je jeste nejaka jina varianta, protokol jak stahovat soubory z webu?
Co treba ClickOne a tomu podobne.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Spusteni programu ze sluzby
[*] delphi(zv)mjsoft(tec)cz - 07.3.2009 13:59:11
Zapomnel jsem, ze kdyz nejsem prihlasen, musi byt cesta k databazi s
localhost na zacatku. Uz to funguje.
Diky.
Karel V.
> > Zkousim ten BAT soubor. Kdyz jsem prihlasen, tak se to pomoci
> > naplanovane
> > ulohy spusti a zazalohuje. Pokud jsem ale odhlasen (zkousin
> > to na XP), tak
> > zaloha neprobehne. Pritom BAT soubor se spusti, to mam
> > overene, mazu tam
> > jeden soubor. GBAK ale nic neudela. Nevim v cem je problem.
>
> Co opravneni. Je nastaveno pro naplanovanou ulohu "Spustit jako"
> a s nastavenym heslem?
>
> Nastav si v tom bataku nejake logovani
>
> prikaz.x >> MujLog.txt
>
> apod.
>
> PMal
3917 (20090307)
__________
Prosba o informace k TRibbon
[*] Josef Kyn <j.kyn(zv)seznam(tec)cz> - 09.3.2009 00:33:17
Prosim o radu kde bych nasel informace jak vytvaret stranky skupiny a prvky
k akci v Ribbon Menu dynamicky za behu programu nebo jak provest skryti a
zobrazeni.
Dekuji Josef Kyn
Odecitani hodnoty v pravidelnych intervalech
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 09.3.2009 23:20:42
> vlozit prikaz Application.ProcessMessages. Pokud to uddelat
> v kazdem cyklu, tak se cela operace prevodu souboru podstatne
> prodlouzi. Zkousel jsem provezt Application.ProcessMessages
> v kazdem tisicim cyklu, ale prodlouzeni je stale znat a navic se
> mi pak timer nespusti kazdou sekundu,
A co tak misto pocitani tisicu cyklu se podivat na GetTickCount a barem
hybat, kdyz pocet milisekund od zacatku prekroci tisicovku. Rovnomernost
zabezpecis tak, ze 'zacatek' pri pohnuti barem posunes o 1000, takze kdyz ti
nekdy treba i 200 ms ulitne, hned v dalsim kroku je dozenes.
Odecitani hodnoty v pravidelnych intervalech
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 08.3.2009 16:42:48
Dne Sun, 08 Mar 2009 16:22:47 +0100 Locke10 <locke10(zv)seznam(tec)cz> napsal/-a:> Application.ProcessMessages. Pokud to uddelat v kazdem cyklu, tak se
> cela operace prevodu souboru podstatne prodlouzi. Zkousel jsem provezt
> Application.ProcessMessages v kazdem tisicim cyklu, ale prodlouzeni je
> stale znat a navic se mi pak timer nespusti kazdou sekundu, ale nekdy
> treba za dve, nebo tri. Proste nepravidelne.
No a tobe nejak vyznamne kolisa delka zpracovanich jednotlivych cyklu?
Pokud ne, tak prece vubec nepotrebujes zadnej timer ani process messages,
proste po kazde k-tem cyklu prepoctes velikost, nastavis progress bar
a udelas jeho update. Dtto pro prvek zobrazujici cas.
Na zacatku si zapamatujes, v kolik jsi zacal a z rozdilu casu
odhadnes konec vypoctu a zobrazis ho.> Nevitenekdo jak toto elegantne osetrit, aby se zbytecne neprotahovala
> operace prevodu souboru? Na rychlosti prevodu totiz docela dost zalezi.
"Ciste" reseni je strcit vypocet do threadu a hlavni thread nechat
jen na zobrazovani/abortnuti vypoctu.
HTH, pf
Standard popupmenu pre TEdit
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 09.3.2009 23:04:41
> Na samotny Grid mam uz na forme priradene popupmenu,
> ktore je ucinne pre samotny grid. Lenze automaticky aj TEdit ziskava
> to popupmenu z gridu.
Urcite je to tak? Protoze ja jsem nedavno resil podobny problem, kdyz se mi
kazdou chvili zobrazilo jine popup menu a prisel jsem na to, ze nektere
komponenty na klik pravym tlacitkem fokus prebiraji (Tedit), ale jine ne
(TCombobox). Prave tlacitko na combu mi zobrazilo nabidku patrici k uplne
jinemu controlu.
Spusteni programu ze sluzby
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 07.3.2009 13:51:11
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of delphi(zv)mjsoft(tec)cz
> Zkousim ten BAT soubor. Kdyz jsem prihlasen, tak se to pomoci
> naplanovane
> ulohy spusti a zazalohuje. Pokud jsem ale odhlasen (zkousin
> to na XP), tak
> zaloha neprobehne. Pritom BAT soubor se spusti, to mam
> overene, mazu tam
> jeden soubor. GBAK ale nic neudela. Nevim v cem je problem.
Co opravneni. Je nastaveno pro naplanovanou ulohu "Spustit jako"
a s nastavenym heslem?
Nastav si v tom bataku nejake logovani
prikaz.x >> MujLog.txt
apod.
PMal
Spusteni programu ze sluzby
[*] delphi(zv)mjsoft(tec)cz - 07.3.2009 13:45:10
Zkousim ten BAT soubor. Kdyz jsem prihlasen, tak se to pomoci naplanovane
ulohy spusti a zazalohuje. Pokud jsem ale odhlasen (zkousin to na XP), tak
zaloha neprobehne. Pritom BAT soubor se spusti, to mam overene, mazu tam
jeden soubor. GBAK ale nic neudela. Nevim v cem je problem.
Karel V.
> > Ahoj, to je taky reseni. Naplanovana uloha se tedy spusti,
> > kdyz neni na
> > serveru nikdo prihlasen? To by me potom stacilo.
>
> Ano
>
> > Tu sluzbu bych ale stejne rad zprovoznil, protoze tam delam
> > jeste dalsi veci
> > (zip, odeslani na FTP, ....).
>
> Jestli jen to tak bez problemu jednim batakem :)
> Existuje spousta podpurnych udelatek na ruzne opicarny.
> viz treba http://unxutils.sourceforge.net/
>
> PMal
3917 (20090307)
__________
Spusteni programu ze sluzby
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 07.3.2009 13:03:08
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of delphi(zv)mjsoft(tec)cz
> Ahoj, to je taky reseni. Naplanovana uloha se tedy spusti,
> kdyz neni na
> serveru nikdo prihlasen? To by me potom stacilo.
Ano
> Tu sluzbu bych ale stejne rad zprovoznil, protoze tam delam
> jeste dalsi veci
> (zip, odeslani na FTP, ....).
Jestli jen to tak bez problemu jednim batakem :)
Existuje spousta podpurnych udelatek na ruzne opicarny.
viz treba http://unxutils.sourceforge.net/
PMal
PVS a komunikace pres WS
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 09.3.2009 13:58:06
Dne Mon, 09 Mar 2009 13:44:05 +0100 Petr Langer <p.langer(zv)nexnet(tec)cz>
napsal/-a:> Jak jsou na tom novejsi verze Delphi (samozrejme win32 verze)? Pokud by
> k tomuto byly vhodne komponenty, byla by to vedenim nejpreferovanejsi
> cesta.
Sice nekomunikujeme s PVS, ale s nekterymi projekty jsme zustali trcet
v Delphi a musime delat WS resp. SOAP klienty a je to tragedie,
protoze krome opravy par chyb na to Bordeland za poslednich
x let nesah :-(
AFAIK, tak bez zaplaty http://cc.embarcadero.com/Item/24535
je to vubec k nicemu...
--
Jestli mas moznost to delat v necem jinem,
tak moje rada je jednoznacna: zahod Delphi
- cim driv, tim lip...
HTH, pf
PVS a komunikace pres WS
[*] Petr Vones <conference(zv)petrvones(tec)net> - 09.3.2009 13:56:06
From: "Petr Langer" <p.langer(zv)nexnet(tec)cz>
> Nebo vite nekdo i o nejakych komercnich komponentach pro komunikaci pres
> WS > a podporujici rozsireni jako WS-Security?
> Jak jsou na tom novejsi verze Delphi (samozrejme win32 verze)? Pokud by k
Nove verze neznam, ale vzhledem k tomu v jakem stavu byla implementace SOAP
v Delphi 7 a v te nasledujici Win32 verzi (temer beze zmen) o tom velmi
pochybuji. Ten kod navic neni zrovna moc dobre napsany. V mych testech to
bylo zhruba 5x az 1000x pomalejsi nez .NET implementace v zavislosti na
datovych typech.
> - externi komponenty napsane .NETu (C#), kolem kterych bude COM obalka.
> Pro
> mne se toto jevi jako nejschudnejsi a nejperspektivnejsi cesta, pokud by
> to
> primo v Delphi neslo, nebo bylo prilis komplikovane.
Tohle se jevi jako nejlepsi zpusob, pokud se te Delphi aplikace nelze zbavit
uplne. Volani kodu z .NET assembly jako COM object fungovalo v Delphi vcelku
bez problemu, pri pouziti primitvnich datovych typu.
Petr Vones
PVS a komunikace pres WS
[*] Petr Langer <p.langer(zv)nexnet(tec)cz> - 09.3.2009 13:44:05
Ahojte,
pouzivate nekdo komunikaci s PVS pomoci webovych sluzeb ve spojeni s Delphi (konkretne Delphi 5)?
Mam ted delat navrh reseni a moznosti jsou:
- komunikace pomoci GovTalk - puvodni styl komunikace, mame jiz historicky castecne implementovano,
mam ale obavy, ze to uz neni moc ze strany PVS podporovano, jde to jinou cestou a muzou to brzo
ustrihnout...
- implementace pres WS - tady jsem nasel jen komponenty IndySOAP, ktere nejsou jiz ve vyvoji a
nepodporuji potrebne standardy, takze bych si to tam musel dodelat sam... Nebo vite nekdo i o
nejakych komercnich komponentach pro komunikaci pres WS a podporujici rozsireni jako WS-Security?
Jak jsou na tom novejsi verze Delphi (samozrejme win32 verze)? Pokud by k tomuto byly vhodne
komponenty, byla by to vedenim nejpreferovanejsi cesta.
- externi komponenty napsane .NETu (C#), kolem kterych bude COM obalka. Pro mne se toto jevi jako
nejschudnejsi a nejperspektivnejsi cesta, pokud by to primo v Delphi neslo, nebo bylo prilis
komplikovane. Zvazuje se i nejake alternativni vyvojove prostredi jako napr. Java, ale tam nemame
nikdo zadne zkusenosti.
- nakup jiz hotove externi komponenty pro komunikaci s PVS. Tady je trochu zadrhel, ze se to ma
sirit jako soucast IS, takze je to o licenci, cene, moznostech, podpore, zpusobu komunikace se
samotnym IS, atd. Toto reseni neni moc preferovano, ale je to hodne o tom vsem, co jsem k tomu
vyjmenoval.
Diky za nazory a tipy ke kazde z uvedenych cest.
Petr Langer
Jake jsou moznosti stahovani souboru v internetu?
[*] Petr Vones <conference(zv)petrvones(tec)net> - 09.3.2009 11:33:57
From: "Ing. Igor Vodicka" <vodicka(zv)sagit(tec)cz>
> Prvni faze; autorizace by jeste sla. HTTP zavolam stranku (ASP script) s
> parametry o uzivateli. Stranka se "pripoji" na SQL, treba spusti
> proceduru,
> ktera vrati co je treba. ASP skript to pak vrati do aplikace.
> Muze byt v tom nejaky "problem"?
Proc tak slozite. Daleko snazsi je si na to udelat web service. Prenos
velkych binarnich souboru pak lze optimalizovat pomoci nektereho ze
standardu (jen kdyby to Delphi jeste podporovalo ...) jako MTOM nebo v
nejhorsim SOAP Attachment.
> Druha faze; po uspesne autorizaci nasleduje samotne stazeni jednoho nebo
> vice souboru (aktualizacni balicek=instalacni exac). Tak to nevim jak na
> to
> pomoci HTTP.
Ve ktere firme vam neco takoveho vubec dovoli ? Spustitelny soubor stazeny
odnekud, navic jeste bez digitalniho podpisu = virus. Cele by to bylo navic
nutne udelat jako Windows Service, protoze uzivatel temer jiste nema prava
pro zapis jinam nez do sveho profilu. Tak to ma byt. Pokud je potreba
aktualizovat pouze datove soubory a ne aplikaci, tak zadne exe neni potreba.
Petr Vones
Jake jsou moznosti stahovani souboru v internetu?
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 09.3.2009 11:25:56
Zdravim!
Uznavam, ze zvoleny zpusob neni idealni, a take se to u nekterych vetsich
firem potvrdilo. Resenim je pouzivat pouze HTTP protokol.
Prvni faze; autorizace by jeste sla. HTTP zavolam stranku (ASP script) s
parametry o uzivateli. Stranka se "pripoji" na SQL, treba spusti proceduru,
ktera vrati co je treba. ASP skript to pak vrati do aplikace.
Muze byt v tom nejaky "problem"?
Druha faze; po uspesne autorizaci nasleduje samotne stazeni jednoho nebo
vice souboru (aktualizacni balicek=instalacni exac). Tak to nevim jak na to
pomoci HTTP.
Muze me nekdo navest, pripadne odkaz, kde sehnat informace apod.
Diky
Igor Vodicka
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Vones
>
> Pokud ma byt ta aplikace nasazena ve firemnim prostredi tak:
>
> - ve vetsine pripadu neni povolen jiny protokol nez HTTP. FTP
> tedy nepujde.
> - uzivatel nema administratorska prava, takze (nastesti) nelze nic
> automaticky aktualizovat. Alespon ne timto zcela nebezpecnym zpusobem
> stahovani neceho odnekud.
>
> Petr Vones
> From: "Ing. Igor Vodicka" <vodicka(zv)sagit(tec)cz>
> > Ahoj!
> >
> > V aplikaci mam udelanou internetovou akutualizaci. Mam tam jednoducheho
> > FTP
> > klienta (programovano v D5, Indy9), ktery se pripojuje na nas
> FTP server,
> > hleda nove aktualizace a stahuje je do pocitace.
> >
> > Je jeste nejaka jina varianta, protokol jak stahovat soubory z webu?
> >
DBGrid
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 09.3.2009 08:23:45
Pekny den preji vsem!
Nevite nekdo, lze-li (pripadne jak) na Delphi DBGridu vymamit:
1. Vyceradkovy Title
2. Footer (staci jednoradkovy - potrebuju soucet za sloupec)
Dik za kazdou radu.
Honza
Spusteni programu ze sluzby
[*] delphi(zv)mjsoft(tec)cz - 07.3.2009 12:41:06
Ahoj, to je taky reseni. Naplanovana uloha se tedy spusti, kdyz neni na
serveru nikdo prihlasen? To by me potom stacilo.
Tu sluzbu bych ale stejne rad zprovoznil, protoze tam delam jeste dalsi veci
(zip, odeslani na FTP, ....).
Karel V.> > Ahoj, zkousim si udelat jednoduchou sluzbu v Delphi5. Ma za
> > ukol spoustet
> > zalohu firebirdu (GBAK.exe). Kdyz nastavim sluzbu jako
>
> Ahoj,
>
> neni jednodussi batak a naplanovana uloha?
>
> PMal
3916 (20090307)
__________
Odecitani hodnoty v pravidelnych intervalech
[*] Locke10 <locke10(zv)seznam(tec)cz> - 08.3.2009 16:22:47
Dobry den,
mam takovyto problem.
Pracujise souborem. Nacitam z nej data, upravuji je a upravena ukladam do jineho souboru. Vstupni soubor ma minimalne 1GB. Nacitani provadim v cyklu, vzdy po bloku 2048B. Vse bezi docela svizne. Potrebuji ale udelat toto: Kazdou sekundu zjistit, kolik procent z puvodniho souboru mam hotovo a kolik casu zbyva do konce. A tady je zakopany pes. Kdyz si pustim na hlavnim formulari komponentu TTimer a kazdou sekundu ji dam zjistit hodnotu promenne, ktera obsahuje procento hotove prace, tak aby se timer vubec obtezoval neco delat, musim v tom cyklu, kde nacitam data ze souboru a ukladam je do druheho, vlozit prikaz Application.ProcessMessages. Pokud to uddelat v kazdem cyklu, tak se cela operace prevodu souboru podstatne prodlouzi. Zkousel jsem provezt Application.ProcessMessages v kazdem tisicim cyklu, ale prodlouzeni je stale znat a navic se mi pak timer nespusti kazdou sekundu, ale nekdy treba za dve, nebo tri. Proste nepravidelne.
Nevitenekdo jak toto elegantne osetrit, aby se zbytecne neprotahovala operace prevodu souboru? Na rychlosti prevodu totiz docela dost zalezi.
Diky za radu.
S pozdravem,
Michal Kos
Amonit Software
mailto:locke10(zv)seznam(tec)cz
konverze sestav sinea do fastreportu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 10.3.2009 07:37:12
Ahoj,
mame v praci jeiz nejaky cas koupeny Fastreport. Chteli bychom jej
konecne zacit vyuzivat, ale mame trochu problem s velkym mnozstvim
tiskovych sestav vytvorenych v Sinee (radove tisice). Cesta rucni
konverze prakticky nepripada v uvahu.
Jedna moznost je nechat stare sestavy "dozivat", nove sestavy, zmeny
a opravy starych jiz delat do FR. To je beh na dlouhou trat a uzivatel
by mel dvoji tiskove prostredi. Druha, ktera me napada, je strojovy
prevod predloh Siney na predlohy FR.
Momentalne nemame dech na napsani vlastniho prevadece, ale napadlo
me, jestli tento problem jiz nekdo neresil a nema neco podobneho hotovo.
Jestli ano, tak funkcni reseni radi zaplatime, pokud by to bylo nejake
kopyto, tak nejaky cas s kolegou muzeme venovat doladeni na vyssi
uroven. Treba se to pak jeste nekomu hodi.
Komercni nabidky asi posilejte rovnou na soukromy email. Nabidky kodu
k dodelani ci nejake forme sdileni, myslim, mohou projit tudy.
Peca aka Petr Palicka
DBGrid
[*] Roland Turcan <konf(zv)rotursoft.sk> - 10.3.2009 07:43:12
Hello,
Az do Delphi 7 sa urcite ani jedno z tvojich poziadaviek sa neda na
TDBGrid realizovat. Mozno v novsich verziach, ale ako pozname Delphi,
tak VCL sa velmi nerozrastala.
TRoland;
<<< 9.3.2009 8:23 - Jan Stefec "stefec(zv)algo-hk(tec)cz" >>>
JS> Pekny den preji vsem!
JS> Nevite nekdo, lze-li (pripadne jak) na Delphi DBGridu vymamit:
JS> 1. Vyceradkovy Title
JS> 2. Footer (staci jednoradkovy - potrebuju soucet za sloupec)
JS> Dik za kazdou radu.
JS> Honza
--
Best regards, TRoland
http://exekutor.rotursoft.sk
konverze sestav sinea do fastreportu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 10.3.2009 07:53:13
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of petr palicka
>
> Ahoj,
>
> mame v praci jeiz nejaky cas koupeny Fastreport. Chteli bychom jej
> konecne zacit vyuzivat, ale mame trochu problem s velkym mnozstvim
> tiskovych sestav vytvorenych v Sinee (radove tisice). Cesta rucni
> konverze prakticky nepripada v uvahu.
> Jedna moznost je nechat stare sestavy "dozivat", nove
> sestavy, zmeny
Ahoj,
pote co jsme kdys zavrhli tu nestastnou sineu tak jsme
sli cestou "stare nechat dozit". Ve FR je to o necem jinem
takze jsme to po par pokusech "prevodu" radsi vzdali, protoze
to za to nestalo.
PMal
T-SQL zapis do souboru
[*] Ludan <konference(zv)sales(tec)cz> - 10.3.2009 08:41:16
Zdravim,
Potrebuji ciste pomoci prostredku MS SQL2005/8 vytvorit soubor na disku a
zapsat do nej nejaky obsah.
Predem diky za vsechny napady.
Ludek.
moznost vytvoreni nove slozky pri jejim vyberu API
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 10.3.2009 13:27:34
Ahoj,
pouzivam pro vyber slozky API funkci SHBrowseForFolder. Funguje
dobre, ale potreboval bych, aby slo behem vybirani slozky vytvorit
nejakou novou. Podle vysledku googlovani by melo stacit nahodit ulFlags
v BrovseInfo na BIF_USENEWUI. Dale jsem vyggoglil, ze je treba volat
CoInitialize pred volanim SHBrowseForFolder. Ale at delam, co delam,
nemam v zobrazenem dialogu moznost vytvorit slozku.
Nevite nekdo kde je zakopany pes?
function JdiProSlozku: String;
var
BrowseInfo: TBrowseInfo;
PSlozka: PChar;
ResultPIDL: PItemIDList;
begin
OleInitialize(nil);
Result:='';
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
ResultPIDL := SHBrowseForFolder(BrowseInfo);
BrowseInfo.hwndOwner := Application.Handle;
BrowseInfo.hwndOwner := Application.Handle;
BrowseInfo.ulFlags := BIF_USENEWUI;
if ResultPIDL <> nil then
begin
PSlozka := StrAlloc(250);
if SHGetPathFromIDList(ResultPIDL, PSlozka) then Result :=
StrPas(PSlozka);
StrDispose(PSlozka);
FreeMemory(ResultPIDL);
end;
OleUninitialize;
end;
Dik, Peca
DBGrid
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 10.3.2009 20:01:59
Roland Turcan napsal(a):
> Az do Delphi 7 sa urcite ani jedno z tvojich poziadaviek sa neda na
> TDBGrid realizovat. Mozno v novsich verziach, ale ako pozname Delphi,
> tak VCL sa velmi nerozrastala.
>
>
No zrovna testuji Delphi 2009 a proti Delphi 5 je tam zmen (resp.
rozsireni) ve VCL ze jsem jen cumel
> S> Pekny den preji vsem!
>
> JS> Nevite nekdo, lze-li (pripadne jak) na Delphi DBGridu vymamit:
> JS> 1. Vyceradkovy Title
> JS> 2. Footer (staci jednoradkovy - potrebuju soucet za sloupec)
>
>
Nechces si udelat vlastni control, ktery se bude seskladat ze 3
komponent? Jako panel nahore, Grid a panel dole?
IMHO to bude nejflexibilnejsi a budes to mit behem hodinky.
R.
T-SQL zapis do souboru
[*] AleL? Pavel <aldik(zv)quick(tec)cz> - 10.3.2009 17:27:49
MS SQL ma v sobe adonet rozhrani, kdysi jsem to zkousel, je to celkem
jednoduchy
http://www.artima.com/forums/flat.jsp?forum=152&thread=107954
Ales
Ludan p+AO0BYQ-e v +ANo-t 10. 03. 2009 v 08:41 +-0100:
> Zdravim,
> Potrebuji ciste pomoci prostredku MS SQL2005/8 vytvorit soubor na disku a
> zapsat do nej nejaky obsah.
>
> Predem diky za vsechny napady.
>
> Ludek.
>
>
>
Chyba - MSSQL 2005 Express
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 12.3.2009 10:24:18
Posli mi ERRORLOG. Vetsinou teto chybe predchazi dalsi informace, ktere SQL
Server napise prave do ERRORLOGu.
Dale bych zkusil spustit DBCC FREEPROCCACHE a DBCC DROPCLEANBUFFERS, potom
pustit profiler, kde budes odchytavat spoustene dotazy a chybove zpravy a
tim zjistit, jaky dotaz pusobi problem.
Martin
--------------------------------------------------
From: "Dalibor" <dalibor(zv)torola(tec)cz>
Sent: Thursday, March 12, 2009 9:56 AM
To: <delphi-l(zv)clexpert(tec)cz>
Subject: Chyba - MSSQL 2005 Express
> Ahoj, nevite nekdo, co presne znamena chyba, kterou mi vposledni dobe
> loguje MSSQL server na jedne stanici na ktere bezi moje sluzba, ktera
> provadi sql dotazy.
>
> "
> The query processor ran out of internal resources and could not produce a
> query plan. This is a rare event and only expected for extremely complex
> queries or queries that reference a very large number of tables or
> partitions. Please simplify the query. If you believe you have received
> this message in error, contact Customer Support Services for more
> information.
> "
>
> Chapu to jako, ze jsem provedl sql dotaz, ktery byl tak slozity, ze ho sql
> server nebyl schopen dokoncit.
> Prochazel jsem si sql dotazy, ale zadne slozite jsem nenasel.
> Chyba se mi objevuje napr. co 10 minut.
>
> Verze serveru je MSSQL 2005 express 9.0.4035
>
> Dekuji za jakoukoliv radu.
>
>
> ************************************
> Dalibor Bednarcik
> TOROLA design s.r.o.
> tel. : +420 558 63 82 17
> e-mail : bednarcik(zv)torola(tec)cz
> www : http://www.torola(tec)cz
> ************************************
>
> Pozn.: Zvazte nezbytnost vytisteni teto zpravy nebo jeji prilohy. Myslete
> na prirodu.
>
>
Chyba - MSSQL 2005 Express
[*] Dalibor <dalibor(zv)torola(tec)cz> - 12.3.2009 09:56:16
Ahoj, nevite nekdo, co presne znamena chyba, kterou mi vposledni dobe loguje MSSQL server na jedne stanici na ktere bezi moje sluzba, ktera provadi sql dotazy.
"
The query processor ran out of internal resources and could not produce a query plan. This is a rare event and only expected for extremely complex queries or queries that reference a very large number of tables or partitions. Please simplify the query. If you believe you have received this message in error, contact Customer Support Services for more information.
"
Chapu to jako, ze jsem provedl sql dotaz, ktery byl tak slozity, ze ho sql server nebyl schopen dokoncit.
Prochazel jsem si sql dotazy, ale zadne slozite jsem nenasel.
Chyba se mi objevuje napr. co 10 minut.
Verze serveru je MSSQL 2005 express 9.0.4035
Dekuji za jakoukoliv radu.
************************************
Dalibor Bednarcik
TOROLA design s.r.o.
tel. : +420 558 63 82 17
e-mail : bednarcik(zv)torola(tec)cz
www : http://www.torola(tec)cz
************************************
Pozn.: Zvazte nezbytnost vytisteni teto zpravy nebo jeji prilohy. Myslete na prirodu.QuickReport a nahled obrazku
[*] spurny(zv)kavlounky(tec)cz - 12.3.2009 09:32:15
Omlouvam se za 2x poslany prispevek, ale muj emailovy klient mi tvrdil,
ze se postu nepodarilo odeslat a ja mu veril.
Tonda
QuickReport a nahled obrazku
[*] spurny(zv)kavlounky(tec)cz - 12.3.2009 09:16:14
Ahoj
mam v QuickReportu sestavu s obrazky, obrazek je v TQRDBImage, kterou
mam polozenou na TQRChildBand (to je pripojene k DetailBand...) v
udalosti TQRChildBand.BeforePrint povoluji tisk TQRChildBand podle
pritomosti obrazku v tabulce (obrazek je bitmapa). Tabulka, ze ktere
tisknu, je docasna (GTT).
Pri nahledu (QuickRep1.PreviewModal) se mi zcela pravidelne stava, ze
obrazek neni videt a je misto nej prazdne misto.
Pokud dam z okna nahledu tisk, pak se mi sestava vytiskne vcetne obrazku
tak jak ma.
Okno nahledu je defaultni.
Nesetkal jste se s tim nekdo? Netusite nahodou co s tim?
D7, QuickReport 3.0.9, Firebird 2.1, W Vista.
dekuji za pripadnou radu ci nakopnuti,
Tonda
QuickReport a nahled obrazku
[*] spurny(zv)kavlounky(tec)cz - 12.3.2009 09:16:13
Ahoj
mam v QuickReportu sestavu s obrazky, obrazek je v TQRDBImage, kterou
mam polozenou na TQRChildBand (to je pripojene k DetailBand...) v
udalosti TQRChildBand.BeforePrint povoluji tisk TQRChildBand podle
pritomosti obrazku v tabulce (obrazek je bitmapa). Tabulka, ze ktere
tisknu, je docasna (GTT).
Pri nahledu (QuickRep1.PreviewModal) se mi zcela pravidelne stava, ze
obrazek neni videt a je misto nej prazdne misto.
Pokud dam z okna nahledu tisk, pak se mi sestava vytiskne vcetne obrazku
tak jak ma.
Okno nahledu je defaultni.
Nesetkal jste se s tim nekdo? Netusite nahodou co s tim?
D7, QuickReport 3.0.9, Firebird 2.1, W Vista.
dekuji za pripadnou radu ci nakopnuti,
Tonda
Program ktery se umi sam smazat
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 11.3.2009 21:21:32
>prosim o nakopnuti, potrebuji nejak nastavit aby muj program v delphi
>se nacetl cely do pameti a umel sam sebe smazat nebo prejmenovat
Pokud se jedna o NT class Windowsy na NTFS tak tam ve vetsine pripadu jde
prejmenovat i bezici exac. V pripade ze to chces udelat ciste tak jak to
delaji napr. instalatory nebo updatery tak se pouziva MoveFileEx kde lze
rict ze operace ma probehnout v ramci restartu PCcka (pozor, na Win9X se to
dela pres WinInit.Ini). Jsou tam nejaka omezeni (napr. na Vistach musis
bezet elevovane) takze se mrkni do msdn/psdk
Moznosti je mnoho, napr. by podle mne slo (nevim teda jak na FATce) udelat
kopii sama sebe do noveho jmena (v pripade prejmenovani) a nasledne spusteni
kdy bud podle jmena nebo parametru poznas ze mas puvodni disk file smaznout.
Cus
Radek
Program ktery se umi sam smazat
[*] Emil Dorner <emildor(zv)seznam(tec)cz> - 11.3.2009 19:45:26
procedure TClientPMApp.SelfDelete(sFileName: string; Params: string);
function GetTmpFileName(ext: string): string;
var
pc: PChar;
begin
try
pc := StrAlloc(MAX_PATH + 1);
GetTempFileName(PChar(PathTemp), 'uis', 0, pc);
Result := string(pc);
Result := ChangeFileExt(Result, ext);
StrDispose(pc);
except
end;
end;
var
batchfile: TStringList;
batchname: string;
begin
try
batchname := GetTmpFileName('.bat');
FileSetAttr(ParamStr(0), 0);
batchfile := TStringList.Create;
batchfile.add(':Label1');
batchfile.add('del "' + ParamStr(0) + '"');
batchfile.add('if Exist "' + ParamStr(0) + '" goto Label1');
batchfile.add('del ' + batchname);
batchfile.SaveToFile(batchname);
ChDir(PathTemp);
{ WinExec(PChar(sFileName), SW_NORMAL);}
ShellExecute(Application.Handle, 'runas', PChar(sFileName), PChar(''),
PChar(ExtractFilePath(sFileName)), SW_SHOW);
Halt;
except
end;
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of hlji
Sent: Wednesday, March 11, 2009 5:11 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Program ktery se umi sam smazat
Zdravim
prosim o nakopnuti, potrebuji nejak nastavit aby muj program v delphi
se nacetl cely do pameti a umel sam sebe smazat nebo prejmenovat
Dekuji Jirka
Program ktery se umi sam smazat
[*] hlji <hlji(zv)atlas(tec)cz> - 11.3.2009 17:11:16
Zdravim
prosim o nakopnuti, potrebuji nejak nastavit aby muj program v delphi
se nacetl cely do pameti a umel sam sebe smazat nebo prejmenovat
Dekuji Jirka
Dokument Excel
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 12.3.2009 11:12:21
Pekny den preji vsem,
potrebuji v Delphi vytvorit novy excelovsky dokument a soupnout do nej
data z FB tabulky. Poradi nekdo, jak na to?
Dik Honza
Dokument Excel
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 12.3.2009 11:24:22
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jan Stefec
> potrebuji v Delphi vytvorit novy excelovsky dokument a soupnout do nej
> data z FB tabulky. Poradi nekdo, jak na to?
> Dik Honza
Ahoj Honzo.
Na tvuj soukromy mail posilam maly programek, ktery slouzi jako obecny nastroj pro prohlizeni a editaci FB databaze. Export do xls (a csv) je jeho soucasti.
Pokud by se ti podarilo neco vymyslet lepe, nez to mam ja, tak posli zpet.
Mej se
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
Dokument Excel
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 12.3.2009 11:24:22
Nevim jak je to ve vyssich verzich Delphi, ale v D5 je na zalozce Servers komponenta ExcelApplication. Pomoci ni by to melo jit.
Kdyz zaguglis, tak najdes examply (spis dej vyhledatvat TExcelApplication).
M. Dvorak
>>> stefec(zv)algo-hk(tec)cz 12.3.2009 11:12 >>>
potrebuji v Delphi vytvorit novy excelovsky dokument a soupnout do nej
data z FB tabulky. Poradi nekdo, jak na to?
Dik Honza
Dokument Excel
[*] Novy Lubos <lnovy(zv)unileasing(tec)cz> - 12.3.2009 11:22:22
Posilam kousek kodu:
Procedure ...
var
SouborExcel, excelApplication: Variant;
begin
try
souborexcel := CreateOleObject('Excel.Application');
except
ShowMessage('Microsoft Excel neni nainstalovan');
exit;
end;
try
SouborExcel.WorkBooks.add(cesta);
SouborExcel.Workbooks[1].Worksheets[1].cells[2,2]:=Textova nebo databazova polozka;
SouborExcel.Workbooks[1].Worksheets[1].cells[3,1]:= Textova nebo databazova polozka;
finally
Souborexcel.application.activeworkbook.SaveAs(cestakamulozit);
application.ProcessMessages;
end;
SouborExcel.Visible := True;
Lubos Novy
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Stefec
Sent: Thursday, March 12, 2009 11:12 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Dokument Excel
Pekny den preji vsem,
potrebuji v Delphi vytvorit novy excelovsky dokument a soupnout do nej
data z FB tabulky. Poradi nekdo, jak na to?
Dik Honza
3929 (20090311) __________
.
OT Knihy k likvidaci aneb Chcete me?
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 12.3.2009 12:20:26
Zdravim pritomne.
Stehujeme se a likvidujeme nepotrebne. Zbylo mi zde nekolik knih ktere by
jeste nekomu mohly poslouzit pro vyuku a tak. Seznam najdete zde:
www.inoma(tec)cz/seznamknih.txt
Za odvoz nebo nejakou mlecnou cokosku. Odber mozny v Brne nebo v Prostejove
dle domluvy. Dale prosim jen soukrome na zapletal(zv)inoma(tec)cz a ne do konfery.
Zapletal Martin
PVS a komunikace pres WS
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.3.2009 14:32:34
Puvodni zprava ze dne 9.3.2009 od Petr Vones:
> Nove verze neznam, ale vzhledem k tomu v jakem stavu byla
> implementace SOAP v Delphi 7 a v te nasledujici Win32 verzi (temer
> beze zmen) o tom velmi pochybuji. Ten kod navic neni zrovna moc
> dobre napsany. V mych testech to bylo zhruba 5x az 1000x pomalejsi
> nez .NET implementace v zavislosti na datovych typech.
Pro nejakou ptakovinu typu poslani dat do webove sluzby na internetu
se da SOAP udelat rucne jednoduse jako XML, neni duvod to nejak hrotit
s podporou SOAP.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OT Knihy k likvidaci aneb Chcete me?
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 12.3.2009 15:30:38
Knihy uz jsou zadane. Dekuji, ze je nemusim vyhazovat!
Zapletal Martin
----- Original Message -----
From: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 12, 2009 12:20 PM
Subject: OT Knihy k likvidaci aneb Chcete me?> Zdravim pritomne.
> Stehujeme se a likvidujeme nepotrebne. Zbylo mi zde nekolik knih ktere by
> jeste nekomu mohly poslouzit pro vyuku a tak. Seznam najdete zde:
>
> www.inoma(tec)cz/seznamknih.txt
>
> Za odvoz nebo nejakou mlecnou cokosku. Odber mozny v Brne nebo v
> Prostejove
> dle domluvy. Dale prosim jen soukrome na zapletal(zv)inoma(tec)cz a ne do
> konfery.
>
> Zapletal Martin
>
>
Dokument Excel
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 12.3.2009 15:46:39
Ahoj,
tak jsem se s tim popral. Programek funguje k plne spokojenosti. Jen
jsem doplnil proceduru:
procedure TfrmEditData.cbxDataChange(Sender: TObject);
begin
dtmEditData.dtsData.SelectSQL.Text := 'select * from ' + cbxData.Text;
end;
Ty's mel dotaz zadanej natvrdo: "dtmEditData.dtsData.SelectSQL.Text :=
select * from vyrobek".
A chvilku mi trvalo, nez jsem nasel Commit schovanej pod tlacitkem
Ulozit. To vis, Vlada me radne vyskolil, ze beda tomu, kdo nechava
necommitnuty transakce... ;-)
Muzu Tvoji proceduru ExportXLS pouzit ve sve aplikaci? Z teh
pribyvajicich radku v excelu bude uzivatel urcite u vytrzeni! :-)
Moc jsi mi pomohl.
Dik Honza
Jan Sebelik napsal(a):
>> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jan Stefec
>> potrebuji v Delphi vytvorit novy excelovsky dokument a soupnout do nej
>> data z FB tabulky. Poradi nekdo, jak na to?
>> Dik Honza
>>
>
> Ahoj Honzo.
>
> Na tvuj soukromy mail posilam maly programek, ktery slouzi jako obecny nastroj pro prohlizeni a editaci FB databaze. Export do xls (a csv) je jeho soucasti.
> Pokud by se ti podarilo neco vymyslet lepe, nez to mam ja, tak posli zpet.
>
> Mej se
>
> Honza
> ====================================
> = RNDr. Jan Sebelik - HAES
> = Skolici a konzultacni stredisko pro vyvoj SW
> = www.haes(tec)cz
> = Vojtiskova 321
> = 507 81 Lazne Belohrad
> ====================================
>
>
>
Dokument Excel
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 12.3.2009 15:42:39
Existuje nejaky podobny jednoduchy kod, ktery umozni exportovat do
XLS, kdyz ma uzivatel nainstalovan OpenOffice?
Petr
2009/3/12 Novy Lubos <lnovy(zv)unileasing(tec)cz>
>
> Posilam kousek kodu:
> ? ? ?souborexcel := CreateOleObject('Excel.Application');
> ? ?except
> ? ? ?ShowMessage('Microsoft Excel neni nainstalovan');
DBGrid
[*] Vasek Zaruba <vasek.zaruba(zv)sielaff(tec)cz> - 12.3.2009 20:36:57
Zkusil jsi:
http://www.bergsoft.net
Je nutne ale si s tim pohrat
Nevite nekdo, lze-li (pripadne jak) na Delphi DBGridu vymamit:
1. Vyceradkovy Title
2. Footer (staci jednoradkovy - potrebuju soucet za sloupec)Project group a podmineny preklad
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2009 13:29:59
Ahoj,
to zni zajimave, vyzkousim. Vsiml jsem si jeste jedne zajimavosti. Pri
Build all u projektu nevznika dsm soubor. Mam tu par projektu, kde dsm
soubor neni (smazal jsem ho). Delphi pak pri otvirani groupy nekolikrat
nadavaji, ze dsm soubor chybi, ale nezalozi ho jako pri rucnim prekladu.
David Lebeda
Pavel Fiser napsal(a):
> Mam pocit, ze kdyz se do skupiny prida .bat (pr.tl.mysi v rootu stromu
> a Add new project -> batch file), tak jej Delphi spusti behem Build
> All. Do te davky bych dal vymaz .dcu zavislych na direktivach.
>
>
Project group a podmineny preklad
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 13.3.2009 13:25:59
Lebeda David napsal(a):
>
> mam D5 a narazil jsem na zajimavy projekt. Mam nekolik projektu v
> project groupe. Nektere projekty vyuzivaji spolecne unity, ovsem maji
> ruzne direktivy podmineneho prekladu. Zjistil jsem, ze kdyz pouziji
> Build all projects, neprobiha zrejme plnohodnotny build kazdeho
> projektu. Jak si jinak vysvetlit, ze pri buildu nejakeho projektu to
> vyleti na chybe nejake spolecne unity, ze to diky podminenemu prekladu
> nezna nejaky identifikator apod.? Pokud dam ten projekt zbuildovat
> samostatne, provede se to dobre. Jako kdyby si Delphi pamatovaly, ktere
> unity uz prelozily behem buildu predchozich projektu a pak uz je
> vynechavaly, bez ohledu na podmineny preklad. Neexistuje zpsusob, jak
> Delphi umravnit?
>
Hmm sice se mi to moc nezda, ale kdyz to tvrdis tak zkus specifikovat
pro kazdy projekt vlastni dcu adresar (kam se budou
generovat dcu).
R.
Udalosti systemu
[*] Petr Mathon <dveste zar(zv)quick(tec)cz> - 12.3.2009 21:29:01
Zdravim
Da se vytvorit v udalostech systemu vlastni protokol?
Aby se mi nezaznamenavali udalosti v "Aplikace?" a da se nejak ta udalost popsat,
aby to nehlasilo "Nelze nalezt popis ID udalosti ( 0 ) ve .... ", Predpokladam nejaky text
resource nebo DLL.
Petr Mathon
Project group a podmineny preklad
[*] Pavel Fiser <fiserpavel(zv)gmail(tec)com> - 13.3.2009 13:17:58
Jen napad (ted jsem nezkousel):
Mam pocit, ze kdyz se do skupiny prida .bat (pr.tl.mysi v rootu stromu
a Add new project -> batch file), tak jej Delphi spusti behem Build
All. Do te davky bych dal vymaz .dcu zavislych na direktivach.
Ja pouzivam podobnou davku spoustenou ze systemove hot-key vzdy po
prepnuti na jiny projekt v ramci groupy, abych nemusel davat Build
project, aby stacilo Compile. Docela zasadni urychleni.
PF.> Jako kdyby si Delphi pamatovaly, ktere
> unity uz prelozily behem buildu predchozich projektu a pak uz je
> vynechavaly, bez ohledu na podmineny preklad. Neexistuje zpsusob, jak
> Delphi umravnit?
Project group a podmineny preklad
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2009 12:55:57
Ahoj,
mam D5 a narazil jsem na zajimavy projekt. Mam nekolik projektu v
project groupe. Nektere projekty vyuzivaji spolecne unity, ovsem maji
ruzne direktivy podmineneho prekladu. Zjistil jsem, ze kdyz pouziji
Build all projects, neprobiha zrejme plnohodnotny build kazdeho
projektu. Jak si jinak vysvetlit, ze pri buildu nejakeho projektu to
vyleti na chybe nejake spolecne unity, ze to diky podminenemu prekladu
nezna nejaky identifikator apod.? Pokud dam ten projekt zbuildovat
samostatne, provede se to dobre. Jako kdyby si Delphi pamatovaly, ktere
unity uz prelozily behem buildu predchozich projektu a pak uz je
vynechavaly, bez ohledu na podmineny preklad. Neexistuje zpsusob, jak
Delphi umravnit?
Diky
David Lebeda
barvy
[*] locke10 <locke10(zv)seznam(tec)cz> - 16.3.2009 09:15:51
Dobry den,
jakym zpusobem mohu zmenit barvu tlacitka TButton a zalozky na
TPageControll, nebo jeste lepe, jak zmenit paletu barev pro svoji aplikaci?
Diky
Michal Kos
Jak skryt okno cizi aplikace
[*] Sula Milos <milos.sula(zv)musumperk(tec)cz> - 16.3.2009 14:30:10
Zdravim,
Je mozne skryt cizi aplikaci tak, aby se nezobrazovalo jak okno na
obrazovce tak nazev aplikace na liste ? Jedna se mi konkretne o program
ChateauXP pro kamerovy system.
V pripade, ze bude aplikace ignorovat volani ShowWindow( oknoaplikace,
SW_HIDE), lze ji skryt jinym zpusobem ?
Dekuji
Milos Sula
Synchronizacia DB
[*] Lauko Stefan, Insypo <lauko(zv)insypo.sk> - 17.3.2009 10:13:23
Zdravim,
vedel by, ma niekto nakopnut spravnym smerom aby som nevymyslal vymyslene?
Existuje firemny DB server k nemu sa pripajaju klienti online to je OK
ale ako vyriesit situaciu ked niektory klienti potrebuju pracovat aj offline
(lokalna DB).
Nejedna sa len o zber dat. Ide o to ze pri pripojeni klienta k fir. serveru
zosynchronizovat data obojstranne.
Vsetky zmeny z klienta na server a opacne.
Napr. Existuje rovnaky zaznam na klientovi aj na serveri, klient opravy
zaznam a aj na serveri niekto opravy ten isty zaznam.
Aky algoritmus pouzit aby ostal po synchronizacii v oboch db ten zaznam
ktory bol naposledy modifikovany.
Casove razitko nepripada v uvahu kedze su offline. Je toto mozne dosiahnut?
Nezaujimaju ma hotove riesenia ale logicke riesenie problemu.
Dakujem, lauko.
Jak s cim je asociovana pripona souboru (napr *.do
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 16.3.2009 19:24:29
Jaroslav Kohak napsal(a):
> Nemate nekdo prikladek pro C++Builder, nebo Delphi jak se dostat k temto asociacim.
> Mam v databazi ulozene soubory s ruznymi cestami a potrebuji tyto soubory spustit.
> Diky J.K.
>
>
No a nestaci ti jen spustit ten soubor?
procedure gStartFile(sFile:String);
var
hHandle: THandle;
begin
sFile:= Trim(sFile);
if (sFile= '') then
Exit;
hHandle := ShellExecute(0, nil, PChar(sFile), nil, '', SW_SHOW);
if (hHandle <= 32) then
// chyba - SysErrorMessage(GetLastError())
end;
R
MODBUS a D7
[*] Jaroslav Kohak <jaroslav.kohak(zv)dites(tec)cz> - 16.3.2009 17:02:20
Sehnal jsi neco? Ja zrovna potrebuji MODBUS pres TCP. Ale nez procitat stohy dokumentace, radej bych chtel najit hotovy prikladek v C++Builderu, nebo Delphi
Diky
jaroslav.kohak(zv)dites(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaromir Cermak
Sent: Tuesday, March 03, 2009 6:52 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: MODBUS a D7
Ahoj vsichni
Potreboval bych pomoc, nebo radu s pouzivanim protokolu MODBUS. Mam D7 a teplomer DT4120 od madarske firmy DATCON. mel by komunikovat protokolem MODBUS RTU po seriove lince. Potreboval bych ziskat nejaky popis komunikace i s priklady odeslanych a prijatych packetu, abych se mel ceho chytit, pripadne nejake free komponenty, ktere tuto komunikaci podporuji nebo program, ktery zvladne precist teplotu z tohoto zarizeni, abych mohl otestovat zdfa to vubec funguje.
JINAK JSEM JAKO SLEPY.
DEKUJI ZA KAZDE NAKOPNUTI SPRAVNYM SMEREM
Jaromir Cermak
Jak s cim je asociovana pripona souboru (napr *.do
[*] Jaroslav Kohak <jaroslav.kohak(zv)dites(tec)cz> - 16.3.2009 16:58:19
Nemate nekdo prikladek pro C++Builder, nebo Delphi jak se dostat k temto asociacim.
Mam v databazi ulozene soubory s ruznymi cestami a potrebuji tyto soubory spustit.
Diky J.K.
Synchronizacia DB
[*] Zdenek Kalhous <kalhous(zv)eu(tec)cz> - 17.3.2009 10:53:25
Sice vas nezajimaji hotova reseni a neni uvedeno o jakou databazi se jedna,
ale nebylo by nejlepsi prave hotove reseni, tj.replikacni server dodavany
vyrobcem databazoveho serveru?
Z.Kalhous
----- Original Message -----
From: "Lauko Stefan, Insypo" <lauko(zv)insypo.sk>
> Existuje firemny DB server k nemu sa pripajaju klienti online to je OK
> ale ako vyriesit situaciu ked niektory klienti potrebuju pracovat aj
offline
> (lokalna DB).
> Vsetky zmeny z klienta na server a opacne.
> Aky algoritmus pouzit aby ostal po synchronizacii v oboch db ten zaznam
> ktory bol naposledy modifikovany.
> Casove razitko nepripada v uvahu kedze su offline. Je toto mozne
dosiahnut?
> Nezaujimaju ma hotove riesenia ale logicke riesenie problemu.Synchronizacia DB
[*] Lauko Stefan, Insypo <lauko(zv)insypo.sk> - 17.3.2009 12:01:30
O replikacii serverov samozrejme viem (na to musim zabudnut).
Mne ide o obecne riesenie synchronizacie niekolkych druhov DB systemov
navzajom nekompatibilnych.
Lauko.
> Sice vas nezajimaji hotova reseni a neni uvedeno o jakou databazi se
> jedna,
> ale nebylo by nejlepsi prave hotove reseni, tj.replikacni server dodavany
> vyrobcem databazoveho serveru?
>
> Z.Kalhous
Synchronizacia DB
[*] Ludan <konference(zv)sales(tec)cz> - 17.3.2009 14:53:41
----- Original Message -----
From: "Lauko Stefan, Insypo" <lauko(zv)insypo.sk>
> Existuje firemny DB server k nemu sa pripajaju klienti online to je OK
> ale ako vyriesit situaciu ked niektory klienti potrebuju pracovat aj
> offline
> (lokalna DB).
> Nejedna sa len o zber dat. Ide o to ze pri pripojeni klienta k fir.
> serveru
> zosynchronizovat data obojstranne.
> Vsetky zmeny z klienta na server a opacne.
> Napr. Existuje rovnaky zaznam na klientovi aj na serveri, klient opravy
> zaznam a aj na serveri niekto opravy ten isty zaznam.
> Aky algoritmus pouzit aby ostal po synchronizacii v oboch db ten zaznam
> ktory bol naposledy modifikovany.
> Casove razitko nepripada v uvahu kedze su offline. Je toto mozne
> dosiahnut?
Ahoj,
No to je na pomalu na dizertacni praci. V kazdem pripade je nutne provest
dukladnou analyzu a podle toho zvolit urcite reseni.
Takze jenom strucne a velmi obecne:
Vsechny nove zaznamy se oznacuji nejakyn jednoznacnym a jedinecnym
identifikatorem , ktery muze byt :
1) nahodny napriklad GUID
2) sestaveny (ID stanice , ID zaznamu)
Dale je potreba zvolit metodu jak resit konflikty (pokud na stejnem zaznamu
udelaji dve a vice stanic zmeny) Tady je mozne:
1) Nechat to nekodho rucne rozsoudit
2) system preferenci (vedouci ma vyssi slovo)
3) casovy system (ten posledni ma pravdu) (coz se bez casoveho razitka
neobejde!!) - pak je treba zajstit synchronizaci casu na vsech pocitacich
nebo pocitat s casovou odchlkou mezi serverem a stanici
Take je potreba o pripadnem neuspechu zmeny nejak informovat uzivatele a
zpetne ji aplikovat na jeho kopii dat
Tohle je vetsinou nejozehavejsi misto celeho procesu. A hraje tady roli i
cetnost synchronizace jednotlivych stanic.
Cele je to take o referencni integerite dat (nejprve je potreba updatovat
ciselniky pak teprve dalsi tabulky - coz mnohdy vede k nutnosti referencni
integritu obchazet)
No a kdyz se vymonis z technickych problemu - synchronizace na urovni
databazovych tabulek nastanou Ti ve firmenim informacnim systemu dalsi
problemy - Jak udrzet ciselne rady dokladu, jak vyresit duplicito porizeni
napriklad nejake adresy subjektu.
Uprimne receno je toho tolik, ze bych v dnesni mobilni dobe volil pokud
mozno online system (web,wap,EDGE/GPRS)...........
Ludek
Problem prechodu z Firebird na MS SQL 2000
[*] Petr Langer <p.langer(zv)nexnet(tec)cz> - 18.3.2009 09:12:48
Ahoj, opravdu to v MSSQL nelze pouzit, misto toho ale muzes pouzit funkce. V BOL hledej "CREATE
FUNCTION".
HTH,
pl
Miloslav Pojsl wrote:
> Zdravim vsechny,
>
> jsem nucen prepisovat funkcni aplikaci psanou v D6 zalozenou na Firebirdu pro MS SQL 2000. Mam SELECT, ve kterem potrebuju hodnoty dvou policek vypocist pomoci ulozene procedury, jejimiz argumenty jsou hodnoty poli z aktualniho zaznamu.
>
>
> Ve Firebird to perfektne funguje. MS SQL 2000 takovu konstrukci
> (SELECT <OutValue> FROM <StoredProcName>(Par1,Par2)) AS <NazevPole>
> udajne nezna a nemuze ulozenou proceduru volat v SELECTu. Prosim zkusene, opravdu takovou ulohu nemuzu v MS SQL 2000 elegantne vyresit?
>
> P.S.:
> Resenim by samozrejme bylo kurzorem nacist pole, ktera vstupuji do SP (Stored proc), v cyklu volat SP a vysledek ulozit do pomocne tabulky a nakonec zavolat SELECT na puvodni a pomocnou tabulku. Jenze ja se bojim, ze to bude pomale. Tech zaznamu je radove 1000 a vola se to vemi casto, takze to musi byt rychle.
>
> Miloslav Pojsl
>
>
Problem prechodu z Firebird na MS SQL 2000
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 18.3.2009 09:06:47
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Miloslav Pojsl
> Ve Firebird to perfektne funguje. MS SQL 2000 takovu konstrukci
> (SELECT <OutValue> FROM <StoredProcName>(Par1,Par2)) AS <NazevPole>
> udajne nezna a nemuze ulozenou proceduru volat v SELECTu.
> Prosim zkusene, opravdu takovou ulohu nemuzu v MS SQL 2000
> elegantne vyresit?
Ahoj,
Sice nejsem zkuseny, ale taky sem narazil :)
a vyrazil SP a udelal funkci, kterou jako select uz zavolas.
Napr:
CREATE FUNCTION dbo.F_GETLISTOFTYPYVOZU (
(zv)modelovyrok integer)
RETURNS TABLE
RETURN
select a.nazev, a.kod,
a.nazev + ' ' + a.kod as nazev_kod
from ci_typy a
where (coalesce(a.del,0) <> -1) and ((((zv)modelovyrok = -1) and
(a.modelovyrok >= 2001)) or (a.modelovyrok = (zv)modelovyrok)) and
a.kod <> '_'
group by a.nazev, a.kod;
volat:
select * from F_GETLISTOFTYPYVOZU(2008)
Daji se s tim delat ruzna kouzla, hledej MSSQL + UDFs
PMal
Problem prechodu z Firebird na MS SQL 2000
[*] Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> - 18.3.2009 08:26:45
Zdravim vsechny,
jsem nucen prepisovat funkcni aplikaci psanou v D6 zalozenou na Firebirdu pro MS SQL 2000. Mam SELECT, ve kterem potrebuju hodnoty dvou policek vypocist pomoci ulozene procedury, jejimiz argumenty jsou hodnoty poli z aktualniho zaznamu.
Konkretne:
SELECT P.*,
M.Cislo+' ('+Budovy.Nazev+')' AS MCislo,
Skup.Nazev AS SNazev,
Typy.Nazev AS TNazev,
Stred.Cislo AS StredCislo,
Budovy.ID AS BID,
(SELECT OutDate FROM GetOutDate(P.ID)) AS OutDate, /* zde se vola ulozena proc */
(SELECT Mark FROM GetKalibraceMark(P.ID,:IDOsoba)) AS Mark, /* zde se vola ulozena proc */
Budovy.Nazev AS BNazev
FROM Pristroje P LEFT JOIN Mistnosti M ON P.Idmistnost=M.Id
LEFT JOIN Budovy ON M.IDBudova=Budovy.ID
LEFT JOIN Strediska Stred ON M.IDStredisko=Stred.ID
LEFT JOIN Skupinymeridel Skup ON P.Idskupinameridel=Skup.Id
LEFT JOIN Typymeridel Typy ON P.Idtypmeridla=Typy.Id
LEFT JOIN MereneVel ON P.ID=MereneVel.IDPristroj
LEFT JOIN Kalibrace K ON K.IDPristroj=P.ID
ORDER BY P.Man
Ve Firebird to perfektne funguje. MS SQL 2000 takovu konstrukci
(SELECT <OutValue> FROM <StoredProcName>(Par1,Par2)) AS <NazevPole>
udajne nezna a nemuze ulozenou proceduru volat v SELECTu. Prosim zkusene, opravdu takovou ulohu nemuzu v MS SQL 2000 elegantne vyresit?
P.S.:
Resenim by samozrejme bylo kurzorem nacist pole, ktera vstupuji do SP (Stored proc), v cyklu volat SP a vysledek ulozit do pomocne tabulky a nakonec zavolat SELECT na puvodni a pomocnou tabulku. Jenze ja se bojim, ze to bude pomale. Tech zaznamu je radove 1000 a vola se to vemi casto, takze to musi byt rychle.
Miloslav Pojsl
vlozeni UNICODE znaku do RichEditu
[*] delphi(zv)mjsoft(tec)cz - 19.3.2009 10:42:22
Zdravim,
Nevite nekdo jak v Delphi za behu vlozit UNICODE znak do RichEditu? Kdyz
to vlozim pres schranku ve spustenem programu, tak to funguje, ale nevim jak
z Delphi.
Diky Karel V.
Delka aktivity cizich aplikaci
[*] BS Roman Borkovec <roman(zv)borkovec(tec)com> - 22.3.2009 16:41:40
Zdravim,
nam se docela osvedcilo toto: http://www.slunecnice(tec)cz/sw/process-pe
sleduje to aktivni okno a nacita, jak dlouho aktivni bylo
Roman Borkovec
+420 732 17 61 31
www.borkovec.com
FastReport jako sluzba
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 23.3.2009 07:38:35
>> Vse funguje dobre, dokud se mi fastreport nezahlasi nejakou vyjimku
>> (exception) (cokoliv, ze polozka neni cislo atd) a ta zprava se mi
>> zobrazi v modalnim dialogovem okne a proces mi uvizne.
>>
>
> A kdyz to volani uzavres do try - except, tak co se stane?
>
>
Zase se se mi zobrazi dialogove okno. Dival jsem se do zdrojaku
FastReportu na volani a je tam pouzit nasledujici kod.
if b = Self then
raise Exception.Create('Error');
Takze to neni chyba programu ale programove vyvolana vyjimka.
Da se to nejak automaticky vypnout aby se to nezobrazovalo?
Zvo.Delka aktivity cizich aplikaci
[*] David Klodner <delphikonfer(zv)seznam(tec)cz> - 22.3.2009 16:19:39
Zdravim,
potreboval bych ve sve aplikaci sledovat, kolik casu jsou aktivni jine
programy a ktere to jsou.
Abych si mohl udelat prehled, ze dnes byl Firefox aktivni 2 h, TotalCmd 0,5
h apod.
Nevite jak na to?
David Klodner
3845 (20090211)fullscreen rezim konzolove aplikace
[*] bily78(zv)tiscali(tec)cz - 23.3.2009 14:43:01
Ahoj.
Pisu konzolovou aplikaci, ktera ma bezet ve fullscreen rezimu. Problem je,
ze kdyz fullscreen rezim zapnu, nastavi se rozliseni 80x50 znaku, ale ja
potrebuju 80x25 znaku. Nikde jsem nenasel jak to zmenit.
Diky za kazdou radu.
Jirka
______________________________________
Sef je k smichu a vyplata k placi? Najdete si lepsi praci na CVonline(tec)cz
http://www.cvonline(tec)cz
ListBox, OwnerDraw a vyska fontu
[*] horky(zv)cominn(tec)cz - 23.3.2009 15:01:02
> From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
> Sent: Monday, March 23, 2009 2:49 PM
>
> horky(zv)cominn(tec)cz napsal(a):
> >> (cely) vetsim fontem. Kdyz nastavim v programu
> >> ListBox.Font.Size na neco
> >> vetsiho, zobrazi se sice polozky spravnou velikosti pisma,
> ale roztez
> >> mezi radky (ItemHeight) je stale mala, jako by slo o
> puvodni velikost
> >> pisma, takze napisy se prekryvaji.
> >>
> > Co zmenit property ItemHeight ?
> No jo, ale na kolik? Velikost pisma neni konstanta, mohu si
> ji zvolit a
> ListBox by na to mel zareagovat. I s ohledem na velka/mala pisma ve
> Windows, uzivatelske aplikovani ScaleBy apod. Tak jak to
> listbox dela pri lbStandard automaticky.
To je ovsem jina otazka. To bych se odpichl od hodnoty, kterou vraci ListBox.Canvas.TextHeight, vrati minimalni vysku potrebnou pro vykresleni daneho textu.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]