Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Funkce v Sinea
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 13.9.2005 12:48:51
Dobry den,
v nasi firme pouzivame Sinea komponenty. Mame trochu nejasno v
uzivatelskych funkcich. Pres "klikadlo" v editoru jsem vytvoril fci,
ktera mi do souboru *.pts spadla jako:
'F,40,KontrolaNuly,"Vlozi cislo, nebo, je-li nula,
mezeru",1,"3",0,"IFF(&1>0,&1,'')",0,15,2,2'.
Nejsem si jist, jestli mam spravne zapsan prvni parametr, aby nebyl
tvrde tahan z databaze, ale aby jej bylo mozne pouzit pri volani teto
funkci na nekolika mistech, samozrejme, ze s ruznymi promennymi.
Podstatne je, ze nevime, jak tuto funkci pouzivat v sestave, kdy ji
potrebuji nekolikrat pouzit s nekolika promennymi (ciselneho typu a
navrat musi byt textovy, ktery dle hodnotu vrati retezec s cislem, nebo
nic). Idealni by bylo jimi nahradit stavajici prvky, takze defacto
nahradit prime zobrazeni filtrovanim pres tuto funkcicku. Opet idealne v
prostredi editoru sestavy, protoze zakaznici nemuseji "skousnout" primou
editaci souboru.
Doufam, ze se mi povedlo problem zformulovat srozumitelne.
S pozdravem a diky
Marek Olsavsky
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
RELDP, CAPICOM, sifrovani
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.9.2005 12:28:50
Puvodni zprava ze dne 13.9.2005:
> Byl jsem tam, ale nepamatuju si uplne presne vsechno. Nicmene, kdyz
> pouziju konverzni funkce StringToWideString bstratim bud kus textu,
> nebo se nemuzu dockat vysledku sifrovani.
Tak pokud jsi tam byl, vzpomen si, co jsem rikal - ze tu funkci pro
prevod mezi stringem a widestringem jsem zamerne napsal spatne, resp.
ne uplne presne. Nepocita se tam totiz s lichym poctem znaku, na coz
je treba udelat mirnou prasarnicku - natvrdo prepsat hlavicku
widestring. Takze tuto funkci si musis lehce upravit, aby chodila na
lichy pocet znaku. Mozna je to prave duvod problemu.
Protoze evidentne vetsina lidi v Belohrade spatne poslouchala, a
zaroven protoze spousta lidi nema takove zkusenosti s CAPICOM, a uz
jsem jinde cetl celou radu spekulaci radoby odborniku, kteri usoudili,
ze CSSZ neumi zpracovat lichy pocet znaku, namisto aby se snazili
najit chybu u sebe, a jsou navic tak sebevedomi, ze tyto mylne
informace jeste ruzne publikuji na internetu, tak tady je funkce,
ktera korektne prevede soubor do WideStringu pro praci s CAPICOM
nezavisle na delce, zda je suda nebo licha:
function FileToWideString(const FileName: String): WideString;
var
FS: TFileStream;
Ptr: Pointer;
begin
FS := TFileStream.Create(FileName, fmOpenRead);
try
SetLength(Result, (FS.Size + 1) div 2);
FS.Read(Result[1], FS.Size);
Ptr := Pointer(Integer(Pointer(Result)) - 4);
PInteger(Ptr)^ := FS.Size;
finally
FS.Free;
end;
end;
Dva radky na finally prave meni v hlavicce WideStringu informaci o
spravne delce, protoze v pripade licheho cisla ji Delphi nasadi na
sudou hodnotu.
----------------------------------------------------------------------
PS: ADMIN: A ber to zaroven jako durazne napomenuti za spatne
qutovani:
NAPOMENUTI ADMINISTRATORA KONFERENCE DELPHI ZA SPATNE QUOTOVANI
viz pravidla konference bod 5 d)
http://www.clexpert(tec)cz/konference/pravidla.asp
----------------------------------------------------------------------
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
RELDP, CAPICOM, sifrovani
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.9.2005 11:42:45
Puvodni zprava ze dne 13.9.2005:
> Kdyz jsem zkosel sifrovat a desifrovat tuto zpravu podle vzoru Petra
> Zahradnika ze seminare z Belohradu heslem Belohrad pokazila se
> cestina, XML bez cestiny je OK. Kdyz ale odstranim z RELDP souboru
> cestinu, desifrovani se stejne nepodari.
Byl jsi na tom seminari osobne nebo jsi videl jen ty slajdy?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Memo a azbuka
[*] JZ <j-z(zv)seznam(tec)cz> - 13.9.2005 10:56:41
Pardon, nevsimnbul jsem si te odpovedi :-(
> ------------ Puvodni zprava ------------
> Od: Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz>
> Predmet: Memo a azbuka
> Datum: 12.9.2005 12:23:46
> ----------------------------------------
> Zdravim vsechny
>
> Resim problem, kdy potrebuji do komponenty memo vlozit text psany azbukou
> (bezne kodovani - text prekopirovany z wordu pomoci clipboardu), ale v memo
> se mi zobrazuji jenom otazniky. Vlastnost fontu v memo mi nabizi pouze
> stredoevropsky font. Jak lze toto vyresit?
>
> Diky za radu
>
> Honza
>
>
>
>
>
RELDP, CAPICOM, sifrovani
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 13.9.2005 12:00:47
Byl jsem tam, ale nepamatuju si uplne presne vsechno. Nicmene, kdyz pouziju konverzni funkce StringToWideString bstratim bud kus textu, nebo se nemuzu dockat vysledku sifrovani.
Poslu kombinace ktere jsem zkousel:
Tohle funguje jen bez cestiny:
Spolecny:=EncryptData(XMLDocument1.XML.Text,'Belohrad');
TextLog.Lines.Text:=DecryptData(Spolecny,'Belohrad')
a tohle taky
Spolecny:=EncryptData(StringToWideString(XMLDocument1.XML.Text),'Belohrad');
TextLog.Lines.Text:=WideStringToString(DecryptData(Spolecny,'Belohrad'));
Jaromir Cermak
-----Original Message-----
From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
Sent: Tuesday, September 13, 2005 11:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: RELDP, CAPICOM, sifrovani
Puvodni zprava ze dne 13.9.2005:
> Kdyz jsem zkosel sifrovat a desifrovat tuto zpravu podle vzoru Petra
> Zahradnika ze seminare z Belohradu heslem Belohrad pokazila se
> cestina, XML bez cestiny je OK. Kdyz ale odstranim z RELDP souboru
> cestinu, desifrovani se stejne nepodari.
Byl jsi na tom seminari osobne nebo jsi videl jen ty slajdy?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
--
Poichozi zprava neobsahuje viry.
Zkontrolovano Antivirovym systemem AVG.
Verze: 7.0.344 / Virova baze: 267.10.23/99 - datum vydani: 12.9.2005
Synaser, Xonlimit, Xofflimit
[*] radek3311(zv)volny(tec)cz - 13.9.2005 10:56:41
Ahoj,
mam tady jedno zarizeni ze ktereho se snazim pres RS231 stahnout
data - k tomu zarizeni je dodany vzorovy program (exe) ktery to umi
a me se to z Delphi a SynaSer zaboha nedari. Uz jsem z toho zoufaly
- nemuze byt problem v Xonlimit a Xofflimit ? Nemuzu prijit na to
jak to nastavit - nevite nekdo kde se to da nastavovat ?
Radek
vzorovy program:
23 IOCTL_SERIAL_SET_BAUD_RATE Serial1 SUCCESS Rate: 19200
24 IOCTL_SERIAL_SET_RTS Serial1 SUCCESS
25 IOCTL_SERIAL_SET_DTR Serial1 SUCCESS
26 IOCTL_SERIAL_SET_LINE_CONTROL Serial1 SUCCESS StopBits:
1 Parity: NONE WordLength: 8 27 IOCTL_SERIAL_SET_CHAR Serial1
SUCCESS EOF:0 ERR:0 BRK:0 EVT:0 XON:11 XOFF:13 28
IOCTL_SERIAL_SET_HANDFLOW Serial1 SUCCESS Shake:1
Replace:40 XonLimit:0 XoffLimit:3074 29
IOCTL_SERIAL_GET_MODEMSTATUS Serial1 SUCCESS
30 IRP_MJ_WRITE Serial1 SUCCESS Length 1: W
31 IRP_MJ_READ Serial1 SUCCESS Length 0:
32 IRP_MJ_READ Serial1 SUCCESS Length 0:
muj program:
0.00000724 IOCTL_SERIAL_SET_BAUD_RATE Serial1 SUCCESS
Rate: 19200 0.00000357 IOCTL_SERIAL_SET_RTS Serial1
SUCCESS
0.00000362 IOCTL_SERIAL_SET_DTR Serial1 SUCCESS
0.00000233 IOCTL_SERIAL_SET_LINE_CONTROL Serial1 SUCCESS
StopBits: 1 Parity: NONE WordLength: 8 0.00000115
IOCTL_SERIAL_SET_CHAR Serial1 SUCCESS EOF:0 ERR:0 BRK:0
EVT:0 XON:11 XOFF:13 0.00000240 IOCTL_SERIAL_SET_HANDFLOW
Serial1 SUCCESS Shake:1 Replace:40 XonLimit:1 XoffLimit:1
0.00001707 IRP_MJ_WRITE Serial1 SUCCESS Length 1: W
0.00000130 IOCTL_SERIAL_GET_COMMSTATUS Serial1 SUCCESS
29.99974163 IRP_MJ_READ Serial1 CANCELLED Length 1
0.00005856 IOCTL_SERIAL_PURGE Serial1 SUCCESS Purge:
RXABORT 0.00000173 IOCTL_SERIAL_GET_COMMSTATUS Serial1
SUCCESS 29.99989873 IRP_MJ_READ Serial1 CANCELLED
Length 1
0.00006022 IOCTL_SERIAL_PURGE Serial1 SUCCESS Purge:
RXABORT
Memo a azbuka
[*] Ludek <konference(zv)sales(tec)cz> - 13.9.2005 11:42:45
----- Original Message -----
From: "Ing. Dubsky Jan"
> Resim problem, kdy potrebuji do komponenty memo vlozit text psany azbukou
> (bezne kodovani - text prekopirovany z wordu pomoci clipboardu), ale v
memo
> se mi zobrazuji jenom otazniky. Vlastnost fontu v memo mi nabizi pouze
> stredoevropsky font. Jak lze toto vyresit?
Ahoj,
Font.Name := 'Arial';
Font.Charset := RUSSIAN_CHARSET;
Ludek
RELDP, CAPICOM, sifrovani
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 13.9.2005 11:36:45
Ahoj vsichni
Mam takovy dotaz. Snazim se protlacit ELDP elektronicky na cssz. Vyuzivam Indy v D7 a CAPICOM 2.0. konecne se mi podarilo vytvorit zpavu s kterou mi ladici portal prijme a posle mi e-mail s nasledujici chybou:
Chybovy kod: 30013.
Popis chyby: Chyba pri zpracovani podani.Nelze desifrovat zpravu! {Object reference not set to an instance of an object.}.
Podle meho nazoru pouzivam platny certifikat s verejnym klicem cssz. Pro sifrovani pouzivam algoritmus 3DES. Pred odeslanim ze spravy odstanim vsechny konce radku (tj. #13#10). Data si pripravim v komponente TXMLDocument a prislusnemu capicom objektu predam XMLDocument.XML.Text. Kdyz jsem zkosel sifrovat a desifrovat tuto zpravu podle vzoru Petra Zahradnika ze seminare z Belohradu heslem Belohrad pokazila se cestina, XML bez cestiny je OK. Kdyz ale odstranim z RELDP souboru cestinu, desifrovani se stejne nepodari.
Nenajde se nekdo, kdo by me popostrcil dal.
Jaromir Cermak
prace s vyrezem jpeg obrazku
[*] Roman Kubin <r.kubin(zv)jcee(tec)cz> - 13.9.2005 10:56:41
Problem je prave v tom, ze tak velikou bitmapu v pameti nevytvoris, protoze
pri rozmerech 20000x20000 a 24 bit. hloubce by zabrala cca 1144 MB, coz je
pomerne dost. Proto se snazim pracovat pouze s vyrezem zmineneho obrazku,
ale nevim jak na to. Zkousel jsem i Bmp.Canvas.Draw(0,0,Jpg), ale tato tato
metoda pravdepodobne vytvari docasnou bitmapu o rozmerech Jpg, takze take
skonci s chybou nedostatku zdroju.> nechapu problem ... TCanvas.CopyRect() pro docasne vytvoreneho TBitmap by
> neslo? ... unitu s funkci pro ulozeni do JPG poslu na vyzadani na tvuj
> mail
>
>
>> snazim se pracovat s obrazkem jpeg o rozmerech cca 20000x20000 px,
>> Bmp.Assign(Jpg) nepripada v uvahu, kvuli nedostaku sys. prostredku,
>> zajimalo
>> by me jestli nekdo nezna komponentu ci knihovnu pomoci ktere by slo
>> prevest
>> do Bmp pouze vyrez zminovaneho Jpg.
>> Bylo by vynikajici kdyby dana knihovna umela i opacnou konverzi,
>> napr.(Bmp(256x256px) zapsat do Jpg(20480x2048px) na pozici 1024,512).
>
> Odeslani referreru
[*] Michal Bukacek <michal(zv)bukacek(tec)cz> - 13.9.2005 11:24:44
Co treba te tvo strance predavat nejaky parametr metodou GET napriklad :
http://example.com/?z_programu=1
a ve strance si to prebrat napr v PHP
<?
if($_GET['z_programu']==1){
//----------- pocitadlo 1
}else{
//----------- pocitadlo 2
}
?>
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of JZ
Sent: Tuesday, September 13, 2005 11:05 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Odeslani referreru
Ahoj
mam v about okenku label s onclick udalosti ktera otevre webovou stranku:
shellexecute(0,'open',pchar('http://example.com/'),pchar(''),'',sw_shownorma
l)
ale potreboval bych potom ve statistikach rozlisit ktere navstevy jsou primo
z programu. Nevite nekdo jestli/jak se da odeslat refferer?
Diky
Honza
Odeslani referreru
[*] JZ <j-z(zv)seznam(tec)cz> - 13.9.2005 11:04:42
Ahoj
mam v about okenku label s onclick udalosti ktera otevre webovou stranku:
shellexecute(0,'open',pchar('http://example.com/'),pchar(''),'',sw_shownormal)
ale potreboval bych potom ve statistikach rozlisit ktere navstevy jsou primo z programu. Nevite nekdo jestli/jak se da odeslat refferer?
Diky
Honza
Memo a azbuka
[*] JZ <j-z(zv)seznam(tec)cz> - 13.9.2005 10:54:40
Muzes zkusit TnT Delphi Unicode Controls
http://www.tntware.com/delphicontrols/unicode/
taky Honza
> ------------ Puvodni zprava ------------
> Od: Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz>
> Predmet: Memo a azbuka
> Datum: 12.9.2005 12:23:46
> ----------------------------------------
> Zdravim vsechny
>
> Resim problem, kdy potrebuji do komponenty memo vlozit text psany azbukou
> (bezne kodovani - text prekopirovany z wordu pomoci clipboardu), ale v memo
> se mi zobrazuji jenom otazniky. Vlastnost fontu v memo mi nabizi pouze
> stredoevropsky font. Jak lze toto vyresit?
>
> Diky za radu
>
> Honza
>
>
>
>
>
Jak udelat neco jako ShowModal bez blokovani ostat
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 13.9.2005 09:46:27
> Nevite prosim o jednoduchem zpusobu, jak docilit toho, aby zpracovani kodu
v okne "A" cekalo na
> zavreni okna "B" (a uzivatel v tomto okne "A" nemohl pracovat), ale
ostatni okna aplikace (zejmena
> ta ostatni okna "A") pritom nebyly blokovana?
Ahoj, a co to okno A proste skryt, a zobrazit ho az po uzavreni okna B?
Resil bych to asi posilanim zprav.
MB
Jak udelat neco jako ShowModal bez blokovani ostat
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.9.2005 08:10:09
> Nevite prosim o jednoduchem zpusobu, jak docilit toho, aby zpracovani kodu v okne "A" cekalo na
> zavreni okna "B" (a uzivatel v tomto okne "A" nemohl pracovat), ale ostatni okna aplikace (zejmena
> ta ostatni okna "A") pritom nebyly blokovana?
Ahoj,
jen strelba od boku. Nepomohlo by, kdyby i okno B bylo nemodalni a na
volajici okno A se volalo neco jako EnableWindow s cilem znemoznit
pristup do toho okna? Nicmene prace by tim ponekud zkomplikovala -
musel bys zobrazit okno B a v te procedure, kde to udelas, uz necekat
na zavreni okna B. A z okna B pak treba poslat zpravu oknu A pri
zavreni okna B, aby okno A vedelo, ze ma reagovat na zavreni okna B.
Mozna by taky stalo za to, vymyslet mechanismus, ktery zajisti, ze kdyz
kliknes na okno A, ke kteremu existuje okno B, aby focus ziskalo okno
B. Nevim, jestli v tom EnableWindow muze nejak pomoci, je to jen prvni
napad.
David Lebeda
Jak udelat neco jako ShowModal bez blokovani ostat
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.9.2005 07:40:07
Dobre rano,
zakaznik ma nasledujici potrebu: v aplikaci si otevre nekolik instanci okna "A". Ta nejsou
modalni, mezi nimi vesele prepina. V nekterych chvilich ale potrebuje pridat nebo editovat nektery
ze zobrazenych zaznamu. Aplikace k tomu vytvori okno "B" a modalne ho zobrazi. Typicky kod v okne
"A" vypada nejak takto:
dPolozky.Insert;
try
fDetaily:=tDetailyForm.Create(self); // okno "B"
try
fDetaily.Nastav(dPolozky);
if fDetaily.ShowModal<>mrOK then Abort;
finally
FreeAndNil(fDetaily);
end;
except
dPolozky.Cancel;
raise;
end;
Vyhodou ShowModal pro me je, ze zpracovani tohoto kodu pokracuje az pote, co se uzivatel nejak
vyporada s editaci detailu. Velkou nevyhodou pro zakaznika je vsak fakt, ze dokud je okno "B"
zobrazeno, nemuze pracovat nejen v materskem okne "A", ale ani v ostatnich oknech "A".
Nevite prosim o jednoduchem zpusobu, jak docilit toho, aby zpracovani kodu v okne "A" cekalo na
zavreni okna "B" (a uzivatel v tomto okne "A" nemohl pracovat), ale ostatni okna aplikace (zejmena
ta ostatni okna "A") pritom nebyly blokovana?
Diky,
Karel Rys
D5Pro
Sinea a format media v tiskarne
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 12.9.2005 21:23:19
> Mame tiskarnu na potisk CD, tiskneme na ni pomoci Siney 5.40 z
> 16.10.2002.
Verze 5.40 z 16.10.2002 je jiyzhodne stara verze.
Pochybuji, ze by se nekdo zabyval hledanim problemu v teto verzi.
Doporucuji zkusit nejakou novejsi verzi a problem resit az tehdy,
pokud by pretrvaval i v novejsi verzi.
Vaclav Krmela
Ctrl+C pres HotKey
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 12.9.2005 20:07:14
12.9.2005 Ludek Finstrle:
> Ahoj
> MainForm je cizi okno, muj je jen plugin do teto aplikace, kde si
> otviram vlastni okna. Dale mam napsanou komponentu, ve ktere
> v WM_KEYDOWN resim Ctrl+C (kopirovani).
> Problem je v tom, ze v hlavnim okne aplikace je na Ctrl+C v menu
> povesene nejake jine kopirovani, ktere se spusti, i kdyz je aktivni
> me okno a mnou napsana komponenta je Focusnuta. Tzn. nejsem schopen
> vyvolat pomoci klavesnice kopirovani v ramci me komponenty.
Musis ve sve komponente zpracovat zpravu WM_COPY, ne odchytavat Ctrl+C
v OnKeyDown
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Ctrl+C pres HotKey
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 12.9.2005 17:37:03
Ahoj
v oblasti hot keyu se vubec nepohybuji a s podobnym problemem jsem
se nikdy nesetkal. Mohl by mi nekdo poradit jak z nasledujici situace:
MainForm je cizi okno, muj je jen plugin do teto aplikace, kde si
otviram vlastni okna. Dale mam napsanou komponentu, ve ktere
v WM_KEYDOWN resim Ctrl+C (kopirovani).
Problem je v tom, ze v hlavnim okne aplikace je na Ctrl+C v menu
povesene nejake jine kopirovani, ktere se spusti, i kdyz je aktivni
me okno a mnou napsana komponenta je Focusnuta. Tzn. nejsem schopen
vyvolat pomoci klavesnice kopirovani v ramci me komponenty.
Nemate nekdo nejaky napad jak to resit?
Luf
prace s vyrezem jpeg obrazku
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 12.9.2005 17:03:01
nechapu problem ... TCanvas.CopyRect() pro docasne vytvoreneho TBitmap by
neslo? ... unitu s funkci pro ulozeni do JPG poslu na vyzadani na tvuj mail
> snazim se pracovat s obrazkem jpeg o rozmerech cca 20000x20000 px,
> Bmp.Assign(Jpg) nepripada v uvahu, kvuli nedostaku sys. prostredku,
> zajimalo
> by me jestli nekdo nezna komponentu ci knihovnu pomoci ktere by slo
> prevest
> do Bmp pouze vyrez zminovaneho Jpg.
> Bylo by vynikajici kdyby dana knihovna umela i opacnou konverzi,
> napr.(Bmp(256x256px) zapsat do Jpg(20480x2048px) na pozici 1024,512). Sinea a format media v tiskarne
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.9.2005 15:28:53
Ahoj,
kolega me poprosil, abych zjistil, jestli jste se nekdo nesetkal s necim
takovymhle pri pouzivani generatoru sestav Sinea.
Mame tiskarnu na potisk CD, tiskneme na ni pomoci Siney 5.40 z
16.10.2002. Sestava ma velikost 471x471 bodu. Pri pokusu o tisk se
objevi dialog Sinea - moznosti tisku, ktery tvrdi, ze format media v
tiskarne je mensi nez velikost predlohy. Staci ale otevrit okno s
nastavenim vlastnostmi tiskarny, aniz by se tam cokoli zmenilo, ho
pomoci OK zavrit - a najednou se format media v tiskarne upravi na
spravnou velikost. Dela to na me dojem, ze poprve si Sinea velikost
media v tiskarne nejakym zpusobem vycuca z prstu (coz nepochybne
neni pravda) - ale proc tedy to cislo na poprve nesedi a po popsanem
ukonu je najednou vse OK? Zajimave je, ze na starych verzich Siney (z
roku 2000) se nic takoveho nedeje a tisk probiha bez problemu.
Netusite nekdo, kde by mohl byt problem?
Diky
David Lebeda
Nabidka zamestnani
[*] Stepan Drzka - Centrum <stepan.drzka(zv)centrum(tec)cz> - 12.9.2005 13:20:44
Pardon, spravna adresa je:
http://www.reliance(tec)cz/data/jobs/
S.D.Joy-Stick + 8 Tlacitek
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 12.9.2005 13:20:44
HI *,
Pouzivam Joystick pro technologicke zarizeni. Obsluhuji ho TJvJoystick (JEDI's JVCL). Nemate nekdo, prosim nejakou komponentku na obsluhu vicetlacitkoveho joystiku, ideal 8 (pokousel jsem se komponentku upravit, ale utopil jsem se v tom).
DIKY.
Prijemny zbytek dne
Vasek Zaruba
8^)
OT: Nabidka zamestnani
[*] Stepan Drzka - Centrum <stepan.drzka(zv)centrum(tec)cz> - 12.9.2005 13:00:42
Ahoj vsem,
nase spolecnost hleda Delphi vyvojare. Jde o vyvoj SCADA/HMI systemu
Reliance (www.reliance(tec)cz). Informace o nabidce naleznete zde:
http://www.reliance(tec)cz/testing/data/jobs/
Pokud nekoho nabidka zaujme, v zadnem pripade neodpovi na tento mail,
ale bude se ridit pokyny na uvedene adrese!!!
Dekuji
Stepan Drzka
Poslani a odchyceni sitoveho broadcastu
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 12.9.2005 12:42:41
> Nic ve zlem, ale muzu se zeptat proc se to snazis psat od
> nuly? Ve tvem pripade kdybys radeji pouzil Indy nebo Synapsi,
> tam bys to mel uz davno hotove. ;-)
Diky. Proc od nuly? Treba protoze me to bavi a v Synapsi se nevyznam. Prijde
zbytecne davat do projektu neco, co ma tisice radkuktere jsem nenapsal ja.
..)
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Poslani a odchyceni sitoveho broadcastu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 12.9.2005 12:14:39
> chci si broadcastem poslat nejaky string - to jsem snad zvladl,
> nicmene se mi nedari nikde najit jak udelat to precteni na jinem PC.
> Netusim, jestli u broadcastu musim delat spojeni pres connet atd.
> Cekani na prijem bych rad v nezavislem vlakne, tady je me snazeni:
Broadcast je UDP packet jako kazdy jiny, takze je cti pres RecvFrom
funkci. (nejdes-li si ji v MSDN, budes tam mit i priklad) Nezapomen
ale pred tim i na tom prijimacim socketu povolit SO_BROADCAST!
To co tam naznacujes s Listen funkci je nesmysl, to je jen pro TCP
protokol.
Nic ve zlem, ale muzu se zeptat proc se to snazis psat od nuly? Ve
tvem pripade kdybys radeji pouzil Indy nebo Synapsi, tam bys to mel
uz davno hotove. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Poslani a odchyceni sitoveho broadcastu
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 12.9.2005 11:56:38
Ahoj,
chci si broadcastem poslat nejaky string - to jsem snad zvladl, nicmene se
mi nedari nikde najit jak udelat to precteni na jinem PC. Netusim, jestli u
broadcastu musim delat spojeni pres connet atd. Cekani na prijem bych rad v
nezavislem vlakne, tady je me snazeni:
type
TBindThread = class(TThread)
protected
procedure Execute; override;
private
Sock: TSocket;
SockAddr: TSockAddrIn;
WSAData: TWSAData;
public
constructor Create;
destructor Destroy; override;
end;
function SendBroadCast(Data: string): boolean;
implementation
const Port = 4011;
function SendBroadCast(Data: string): boolean;
var Sock: TSocket; SockAddr: TSockAddrIn; WSAData: TWSAData; SockOpt:
Boolean;
begin
Result:=False;
if WSAStartup($0101,WSAData) = INVALID_SOCKET then Exit;
Sock:=socket(AF_INET,SOCK_DGRAM,0);
if Sock<>INVALID_SOCKET then
begin
if
setsockopt(Sock,SOL_SOCKET,SO_BROADCAST,PChar((zv)SockOpt),SizeOf(SockOpt))=SOC
KET_ERROR then
ShowMessage(IntToStr(WSAGetLastError))
else
begin
ZeroMemory((zv)SockAddr,SizeOf(TSockAddr));
SockAddr.sin_family:=AF_INET;
SockAddr.sin_addr.s_addr:=htonl(INADDR_BROADCAST);
SockAddr.sin_port:=htons(Port);
if
sendto(Sock,Data[1],Length(Data),0,SockAddr,SizeOf(TSockAddrIn))<>SOCKET_ERR
OR then
Result:=True;
end;
end;
CloseSocket(Sock);
WSACleanup;
end;
constructor TBindThread.Create;
begin
inherited Create(True);
if WSAStartup($0101,WSAData) = INVALID_SOCKET then Exit;
Sock:=socket(AF_INET,SOCK_DGRAM,0);
if Sock<>INVALID_SOCKET then
begin
SockAddr.sin_family:=AF_INET;
SockAddr.sin_port:=htons(Port);
SockAddr.sin_addr.s_addr:=INADDR_ANY;;
if bind(Sock,SockAddr,SizeOf(SockAddr)) = SOCKET_ERROR then Exit;
end;
Resume;
end;
destructor TBindThread.Destroy;
begin
closesocket(Sock);
WSACleanup;
end;
procedure TBindThread.Execute;
begin
//---------------------> tady si uz nevim rady
repeat
listen(Sock,5); until Terminated;
end;
end.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Tlac TMetaFile
[*] Lauko Stefan <laukosw(zv)naex.sk> - 12.9.2005 11:00:33
Ahoj,
vo svojom programe vytvaram zostavy za pomoci TMetafile - TMetaFileCanvas. Vsetko funguje dobre na vacsine tlaciarni.
Na niektorych tlaciarnach je odozva velmi dlha (radovo niekolko minut). Snazil som sa hladat riesenie na Internete bezvysledne.
Vypada to tak, ze driver problemovych tlaciarni zvlada prevod EMF formatu velmi tazko a pomaly. Vacsinou sa jedna o HP DJ tlaciarne. Testoval som (HP DJ 5550).
Zistil som (na problemovej tlaciarni) pokusmi, ze ked nepouzijem TMetaFile ale TBitmap tak je tlac rychla.
Ma to ale problem, pri TBitmap je vysledok "zubaty".
Vedel by ma niekto nasmerovat na nejaky dobry zdroj informacii o tejto problematike?
D6-prof. WinXp.
Dakujem, Lauko. is not valid BCD value
[*] Robert Fujak <robof(zv)inmail.sk> - 12.9.2005 10:54:33
> Zdravim Vas.
> Ako robite sucty cez TIBQuery, ked vysledok je napriklad 555 555 555
> 605,00
> mam taketo SQL a hadze to chybu "xx is not valid BCD value"
>
Update IBX 7.04 ..... ono su to jednoduche veci, len treba
porozmyslat.......
Dik
S pozdravom
Robert Fujak
Memo a azbuka
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 12.9.2005 10:44:32
12.9.2005 Ing. Dubsky Jan:
> Zdravim vsechny
> Resim problem, kdy potrebuji do komponenty memo vlozit text psany azbukou
> (bezne kodovani - text prekopirovany z wordu pomoci clipboardu), ale v memo
> se mi zobrazuji jenom otazniky. Vlastnost fontu v memo mi nabizi pouze
> stredoevropsky font. Jak lze toto vyresit?
Pouzit nejake UNICODE memo, napr. z TNT Unicode Controls
Jinak bys musel pouzit TTF font a nastavit Cyrilici. Ale jakmile tam
mas otazniky, znamena to, ze ze schranky to slo v UTF-8
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Memo a azbuka
[*] Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz> - 12.9.2005 10:38:30
Zdravim vsechny
Resim problem, kdy potrebuji do komponenty memo vlozit text psany azbukou
(bezne kodovani - text prekopirovany z wordu pomoci clipboardu), ale v memo
se mi zobrazuji jenom otazniky. Vlastnost fontu v memo mi nabizi pouze
stredoevropsky font. Jak lze toto vyresit?
Diky za radu
Honza
Zaveseni modemu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 12.9.2005 09:12:24
Svehla Jaroslav wrote:
> Sleep(2000)
> +++
> Sleep(2000)
> ATH0
>
> anebo HW posloupnost:
> DTR:= false
> Sleep(300)
> DTR:= true
> Sleep(300)
>
> toto bez problemu funguje ale u nekterych internich modemu, predevsim
> u notebooku to nefunguje. Nesetkal jste se nekdo s timto problemem,
> pripadne nemate nejaky napad jak na to?
Aby byl vyse uvedeny postup *zcela* korektni, mel by
add sleep(2000)
nastavit periodu delsi nez escape guard time - u rady modemu
obsah registru S12 v nasobcich 20 ms
add +++
vysilat escape sequenci slozenou z escape znaku, ktery je definovan
v registru S2
add Drop DTR
Aby modem zavesil na dropnuti signalu DTR, tak musi byt to takoveho
rezimu inicializovan zpravidla prikazem &D2
***
Pokud nemas k modemu dokumentaci, lze nahlednout do podadresare INF\ do .INF
souboru k danemu modemu, jak jej inicializuji Windows
a jaky prikaz pouzivaji pro hangup.
***
Kdyz srovnas sady prikazu+vlastnosti modemu od ruznych vyrobcu
tak zjistis, ze se zase tak moc nepodobaji navic vlastni modemy
obsahuji radu implementacnich chyb a co u starsiho modelu
fungovalo, u novejsiho uz nefunguje atd.
Takze nejake univerzalni reseni IMO neexistuje a prakticky to lze resit
snad jenom tak, ze s takovymi modemy tvuj soft nebude "kamaradit"
a uzivateli vcas rekne, ze s jeho HW nechce mit nic spolecneho ;-)
pf
is not valid BCD value
[*] Robert Fujak <robof(zv)inmail.sk> - 12.9.2005 08:25:59
Zdravim Vas.
Ako robite sucty cez TIBQuery, ked vysledok je napriklad 555 555 555 605,00
mam taketo SQL a hadze to chybu "xx is not valid BCD value"
select
A.ID,
SUM(A.MNPRED*B.SKLC) SKMNPRED,
SUM(A.MNSKUT*B.SKLC) SKMNSKUT
....
Uz som to prerobil, aby mi to vracala StoredProc, ale nie je to ono.
TIBQuery si samo nadefinuje TFMTBCDField a neda sa to zmenit.
Dakujem za radu.
S pozdravom
Robert Fujak
Zaveseni modemu
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 12.9.2005 08:15:54
Ahoj,
ve sve aplikaci obsluhuji modem a pro okamzite zaveseni pouzivam SW posloupnost:
Sleep(2000)
+++
Sleep(2000)
ATH0
anebo HW posloupnost:
DTR:= false
Sleep(300)
DTR:= true
Sleep(300)
toto bez problemu funguje ale u nekterych internich modemu, predevsim u notebooku to nefunguje. Nesetkal jste se nekdo s timto problemem, pripadne nemate nejaky napad jak na to?
Jara
prace s vyrezem jpeg obrazku
[*] Roman Kubin <r.kubin(zv)jcee(tec)cz> - 12.9.2005 08:07:52
Ahoj,
snazim se pracovat s obrazkem jpeg o rozmerech cca 20000x20000 px,
Bmp.Assign(Jpg) nepripada v uvahu, kvuli nedostaku sys. prostredku, zajimalo
by me jestli nekdo nezna komponentu ci knihovnu pomoci ktere by slo prevest
do Bmp pouze vyrez zminovaneho Jpg.
Bylo by vynikajici kdyby dana knihovna umela i opacnou konverzi,
napr.(Bmp(256x256px) zapsat do Jpg(20480x2048px) na pozici 1024,512).
PS: Delphi 5
Diky, Robiin thread & synchronize + Timer
[*] Tomas Juricek <krusty(zv)razdva(tec)cz> - 11.9.2005 18:12:52
> 3) mam novy problem - data jsou po vygenerovani nacitana pomoci TLoadThread
> z (jiz nebeziciho) TCountThread (FList - TStringList) pres TMemoryStream do
> TRichEdit na hlavnim formulari (doufam ze se vam z toho nezamotala hlava).
> LZE nejak zaridit aby aplikace byla ziva behem teto akce =
> TRichEdit.Lines.LoadFromStream??? Vlakno (TLoadThread) mi k tomu nepomohlo
> at uz v nem nasledujici proceduru pouziju s nebo bez synchronizace. Uz me
> nenapada jakym jinym zpusobem mam aplikaci udrzet behem nacitani nazivu
Tohle neni ve VCL mozne. Pokud je nacitani z streamu vylozene pomale,
pomuze si primo ve vlakne vytvorit pomocny TStrings a pote ho priradit
pomoci TRichEdit.Lines.Assign pres Synchronize.
thread & synchronize + Timer
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 11.9.2005 17:34:50
bohuzel ani to nepomohlo takze to asi nepujde
> 1) Timer je implementovan v OS a OS na to ma specialni mechanismus urceny
> prave na realizaci timeru. Jak je to implementovano konkretne nevim. API
> kolem timeru je jenom na komunikaci aplikace s OS.
> 3) Pravdepodobne nijak ciste. Mozna pomuze naplnit ho z vlakna bez
> synchronizace zatimco je visible na false, ale je to bez zaruky. thread & synchronize + Timer
[*] delphin(zv)post(tec)cz - 11.9.2005 17:04:47
1) Timer je implementovan v OS a OS na to ma specialni mechanismus urceny
prave na realizaci timeru. Jak je to implementovano konkretne nevim. API
kolem timeru je jenom na komunikaci aplikace s OS.
3) Pravdepodobne nijak ciste. Mozna pomuze naplnit ho z vlakna bez
synchronizace zatimco je visible na false, ale je to bez zaruky.
ReleaseMutex
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 11.9.2005 15:08:39
zacinam pouzivat MemProof pro kontrolu uvolnovane pameti ... pro kontrolu
spusteni jedne instance aplikaci pouzivam mutex ... memproof mi hlasi ze
neni uvolnen (o to se ale postara system) ... tak nevim - je podle vas
zbytecne ReleaseMutex pouzit v tomhle pripade (aby to bylo jako pro poradek)
? thread & events
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 11.9.2005 11:46:26
Vyreseno -- zatmeni mysli ...> Zajimalo by me jak u threadu resite implementaci udalosti ala OnSuspend,
> OnResume? Nejak mi nedochazi jak toho mam dosahnout.
thread & events
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 11.9.2005 11:26:24
Zajimalo by me jak u threadu resite implementaci udalosti ala OnSuspend,
OnResume? Nejak mi nedochazi jak toho mam dosahnout. Vypis sloupce tabulky FB do TMemo
[*] Lada <lada.xt(zv)volny(tec)cz> - 10.9.2005 19:27:19
Ladislav Stary napsal(a):
>> ID1 := dbGrid1.DataSource.DataSet.FieldByName('ID').AsInteger;
>> for pocet := ID1 to 4 do begin
>>
>otazka prvni: Co je toto za konstrukci? To ID1 si ctes z DB, moc tomu
>nerozumim.
>
tohle jsem tam dal, abych mohl zacit zapis do TMemo od radku na kterem
stojim v DBGridu.. nicmene
tim jak jsem to dal zkousel a vlozil jsem -
dbgrid1.DataSource.DataSet.First; - trosku to ztratilo smysl...
>> memo1.Lines.Add(dbgrid1.DataSource.DataSet.Fields[2].asstring);
>>
>otazka druha: Proc nepouzijes taky FieldByName, odkazovat se na Field
>jeho poradovym cislem mi nepripada rozumny
>
to jsem pouzil jenom pro zkouseni toho cyklu (menit cisla je kapku
rychlejsi, nez vzpominat na nazvy poli.. :-) )
Jinak, proc nepristupuju k datasetu a k fieldum primo, ale pres DBGrid
byla vicemene podstata meho dotazu,
ale coby zacatecnik jsem to poradne nedokazal formulovat. Ted uz tomu
snad rozumim a moc dekuju vsem,
kteri reagovali.
Diky, Lada
Vypis sloupce tabulky FB do TMemo
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 10.9.2005 17:11:09
> Zajimavy nazor, vsichni pred pouzitim with varuji, proto radeji pouzivam
> lokalni promenne, ktere odkazuji na objekty.
Ahoj, nejak jsem varovani "vsech" pred with nezaznamenal, ale mozna ze jsem
zrovna nedaval pozor ;)
Kazdopadne je potreba mit vzdy napameti ke kteremu objektu se co vztahuje a
dat si pozor hlavne ve vicenasobne zanorenych with. Kdysi jsem narazil na
nejaky problem pri pouziti with ve spojeni s pretypovanym objektem, nejake
to with Txxxx(neco) do, tam se pak tusim nesmi uvnitr bloku with...pouzit
totez pretypovani (treba z duvodu kolize stejne pojmenovanych property).
> Co se tyce automatickych promennych fieldu, tak je take nepouzivam.
> Nejak me desi jejich automaticke vytvareni jejich pojmenovani
> jako TabulkaSloupec. Navic, kdyz je TQuery ulozeno jeste v datovem
> modulu, je vypisovani odkazu na Field unavne.
Je-li to unavne, tak je to presne prilezitost pro pouziti with, ne?
Pokud jsou ale na stejnem formulari (ja to tak obvykle mivam a toto je jeden
z duvodu), pak jsem kdysi mival podobny pocit, ale pak jsem prisel na
codecompletion ;) a zjistil jsem ze mi vypisovani fieldu jde mnohem lepe od
ruky a pripadne preklepy odhali uz prekladac, zatimco u tebe vznikne v
pripade chyby v nazvu fieldu (a ze ty nazvy byvaji kolikrat dost dlouhe)
chyba az za behu - kdovikdy ;). Navic mi tak nejak nedela dobre, ze pri
kazdem FieldByname se ten field teprve hleda :)))
Ale to je jen nazor ;)
MB
Vypis sloupce tabulky FB do TMemo
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 10.9.2005 16:45:07
Martin Burle napsal(a):
>Spravne asi s pouzitim with,
>
Zajimavy nazor, vsichni pred pouzitim with varuji, proto radeji pouzivam
lokalni promenne, ktere odkazuji na objekty.
Samozrejme s try .. finally a uvolnovanim objektu souhlas.
Co se tyce automatickych promennych fieldu, tak je take nepouzivam.
Nejak me desi jejich automaticke vytvareni jejich pojmenovani
jako TabulkaSloupec. Navic, kdyz je TQuery ulozeno jeste v datovem
modulu, je vypisovani odkazu na Field unavne.
Ladislav Stary
Vypis sloupce tabulky FB do TMemo
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 10.9.2005 16:13:05
> Poradil by mne nekdo prosim, jak to udelat jednoduseji bez
> dbGrid1.DataSource.DataSet...... zkratka tak,
> abych nemusel skakat skoro 'fyzicky' v dbGridu z radku na radek...?
Spravne asi s pouzitim with, disablecontrols, a s bookmarkem vcetne jeho
uvolneni, a hlavne v bloku try..finally, viz nize. Otazkou je, proc k
datasetu a fieldum nepristupujes primo, ale beres si referenci od gridu?
Pokud jsou dataset i grid na jednom formulari, je to myslim jednodusi, misto
FieldByName je IMHO mene nachylne na chybu pri psani pouzit primo neco jako
DataSetID.AsString.
MB
procedure TForm1.btnOKClick(Sender: TObject);
var ID1, pocet : integer;
begin
with dbGrid1.DataSource.DataSet do begin
disablecontrols;
B:=GetBookmark;
try
first;
ID1 := FieldByName('ID').AsInteger;
memo1.Clear;
for pocet := ID1 to 4 do begin
memo1.Lines.Add(Fields[2].asstring);
Next;
end;
First;
finally
GotoBookmark(B);
FreeBookmark(B);
EnableControls;
end;
end;
end;
Vypis sloupce tabulky FB do TMemo
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 10.9.2005 14:06:56
> abych nemusel skakat skoro 'fyzicky' v dbGridu z radku na radek...?
Na to mivaji datasety vlastnost ControlsDisabled.
presmerovani portu
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 10.9.2005 14:02:55
Lukas Gebauer napsal(a):
>Pokud si chces napsat svuj NAT, tak to budes muset jit ponekud
>hloubeji do systemu.
>
Ten NAT me docela zajima, nemas nejaky odkaz, kde by o tom bylo neco
napsano? Hledal jsem a nenasel.
Diky
Vypis sloupce tabulky FB do TMemo
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 10.9.2005 13:56:55
> ID1 := dbGrid1.DataSource.DataSet.FieldByName('ID').AsInteger;
> for pocet := ID1 to 4 do begin
>
Otazka prvni: Co je toto za konstrukci? To ID1 si ctes z DB, moc tomu
nerozumim.
> memo1.Lines.Add(dbgrid1.DataSource.DataSet.Fields[2].asstring);
>
Otazka druha: Proc nepouzijes taky FieldByName, odkazovat se na Field
jeho poradovym cislem mi nepripada rozumny
Jinak bych to udelal asi stejne jako ty, jen par uprav:
procedure TForm1.Button1Click(Sender: TObject);
var
ID1, pocet : integer;
DS : TDataSet;
Zalozka : TBookMark;
begin
DS := dbGrid1.DataSource.DataSet;
Zalozka := DS.GetBookMark;
DS.DisableControls;
DS.First;
ID1 := DS.FieldByName('ID').AsInteger;
memo1.Clear;
for pocet := ID1 to 4 do begin
memo1.Lines.Add(DS.Fields[2].asstring);
DS.Next;
end;
DS.GotoBookMark(Zalozka);
DS.EnableControls;
end;
Ladislav Stary
Vypis sloupce tabulky FB do TMemo
[*] Lada <lada.xt(zv)volny(tec)cz> - 10.9.2005 12:12:47
Zdravim vsechny,
mam prosbu, vypisuju si obsah sloupce tabulky FB do Mema a za tim ucelem
jsem si napsal toto:
procedure TForm1.btnOKClick(Sender: TObject);
var ID1, pocet : integer;
begin
dbGrid1.DataSource.DataSet.First;
ID1 := dbGrid1.DataSource.DataSet.FieldByName('ID').AsInteger;
memo1.Clear;
for pocet := ID1 to 4 do begin
memo1.Lines.Add(dbgrid1.DataSource.DataSet.Fields[2].asstring);
dbGrid1.DataSource.DataSet.Next;
end;
dbGrid1.DataSource.DataSet.First;
end;
Poradil by mne nekdo prosim, jak to udelat jednoduseji bez
dbGrid1.DataSource.DataSet...... zkratka tak,
abych nemusel skakat skoro 'fyzicky' v dbGridu z radku na radek...?
Dik moc, Lada
thread & synchronize + Timer
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 10.9.2005 09:54:36
1) pokud API implementace timeru neni realizovana pres thread pak nechapu
jak fyzicky pracuje - pokud by se ti chtelo budu rad kdyz jeho funkci
podrobne rozepises
2) PostMessage bude asi nejlepsi volbou - akorat budu muset nejak zajistit
aby nedochazelo ze zbytecne prilisnemu vykreslovani (zpomalovani) ale to
snad nebude problem
3) mam novy problem - data jsou po vygenerovani nacitana pomoci TLoadThread
z (jiz nebeziciho) TCountThread (FList - TStringList) pres TMemoryStream do
TRichEdit na hlavnim formulari (doufam ze se vam z toho nezamotala hlava).
LZE nejak zaridit aby aplikace byla ziva behem teto akce =
TRichEdit.Lines.LoadFromStream??? Vlakno (TLoadThread) mi k tomu nepomohlo
at uz v nem nasledujici proceduru pouziju s nebo bez synchronizace. Uz me
nenapada jakym jinym zpusobem mam aplikaci udrzet behem nacitani nazivu
procedure TLoadThread.LoadFromStream;
begin
[TFormMain].[TRichEdit].Lines.LoadFromStream(FStream);
end;
> Timer se rozhodne nechova jako thread, protoze je realizovan
> prostrednictvim
> zprav. Tudiz kdyz z nejakeho duvodu je pozastaveno zpracovani zprav,
> napriklad dlouhym vypoctem v hlavnim vlakne, tak timer proste nefunguje.
> TThread.Synchronize zajisti, ze se momentalne nezpracovava zadna zprava
> vcetne OnTimer.
>
> Pokud chci zapisovat ve vlakne do FList a v OnTimer neco z FList
> zobrazovat,
> tak se na tohle se nejlepe hodi TCriticalSection.
> Asi nejvhodnejsi by ale bylo posilat z vlakna zpravy s aktualnim stavem
> pomoci PostMessage hlavnimu vlaknu, ktere to bude jenom zobrazovat. Pak se
> nemusi nic synchronizovat. thread & synchronize + Timer
[*] delphin(zv)post(tec)cz - 10.9.2005 09:20:30
Timer se rozhodne nechova jako thread, protoze je realizovan prostrednictvim
zprav. Tudiz kdyz z nejakeho duvodu je pozastaveno zpracovani zprav,
napriklad dlouhym vypoctem v hlavnim vlakne, tak timer proste nefunguje.
TThread.Synchronize zajisti, ze se momentalne nezpracovava zadna zprava
vcetne OnTimer.
Pokud chci zapisovat ve vlakne do FList a v OnTimer neco z FList zobrazovat,
tak se na tohle se nejlepe hodi TCriticalSection.
Asi nejvhodnejsi by ale bylo posilat z vlakna zpravy s aktualnim stavem
pomoci PostMessage hlavnimu vlaknu, ktere to bude jenom zobrazovat. Pak se
nemusi nic synchronizovat.
thread & synchronize + Timer
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 10.9.2005 08:34:26
snazil jsem se zjistit jak funguje TTimer - v helpech jsem dosel k tomu ze
je to jen zapouzdreni API funkci SetTimer a KillTimer ... Timer se chova
jako thread - zustava mi jen otazkou zda je v nem postarano o
synchronizaci - pred par dny jsem v konferenci psal o synchronizaci mezi
mnou vytvorenym threadem a hlavnim threadem. Kdyz probiha vlakno pro vypocet
(TCountThread) tak je stale zapisovano do FList (TStringList) a pomoci
Timeru na hlavnim formulari 10x za sekundu probiha aktualizace stavu - tam
je pristupovano k property List (->FList). Ani jednou se nestalo nic
nekaleho, takze predpokladam ze o synchronizaci je radne postarano
(Synchronize uvnitr onTimer nelze pouzit jsem zjistil). Jen chci slyset
nejake vyjadreni od zkusenejsiho pripadne korekci.
procedure TFormMain.genRefreshTimerTimer(Sender: TObject);
begin
genState.Caption := 'pocet: ' + IntToStr(CountThread.List.Count) + #13#10
+
'cas: ' + TimeToStr(Time - CountThread.BeginTime);
end;TTabSheet - zmena barvy Caption
[*] Patrik Valenta <valentapat(zv)volny(tec)cz> - 10.9.2005 06:42:18
procedure TForm1.PageControl3DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var text:string;
Point:Tpoint;
begin
if TabIndex>=0 then begin
Text:=Tpagecontrol(control).pages[TabIndex].Caption;
with control.canvas do begin
FrameRect(rect);
case tabindex of
0: Brush.Color:=clred;
1: Brush.Color:=$0003ADA5;
2: Brush.Color:=clLime;
3: Brush.Color:=clTeal;
4: Brush.Color:=clolive;
end;
point.X:=(Rect.Right-rect.Left) div 2 - TextWidth(text) div 2;
point.y:=(Rect.Bottom-rect.top) div 2 - Textheight(text) div 2;
TextRect(rect,rect.left+point.x,rect.top+point.y,text);
end;
end;
end;
----- Original Message -----
> na formu mame TPageControl na nekolik Tabsheet(u).
> U nekterych bychom potrebovali nastavit jinou barvu, ale jen na
> 'ousku'.
--
I am using the free version of SPAMfighter for private users.
It has removed 672 spam emails to date.
Paying users do not have this message in their emails.
Try www.SPAMfighter.com for free now!Detekce ticha
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 9.9.2005 16:39:16
Popsano jest v PSDK viz Waveform audio (jukni se na popis funkci waveInOpen,
waveInAddBuffer a waveInStart a bude ti to jasne). Pokud bys chtel ovladat
programove i mixer tak se jukni v PSDK jeste na Audio Mixers, ale to je imho
trosku slozitejsi se v tom zorientovat, mozna ti pomuze tahle utilitka
http://3web.dkm(tec)cz/roxton/sw/MixerInfo.exe (zobrazi vlastnosti mixeru).
Daniel
----- Original Message -----
From: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, September 09, 2005 3:49 PM
Subject: Re: Detekce ticha
fajn, dik za teorii ale prikladek by nebyl. V tomto smeru jsem neznalec a z
tveho popisu moc moudry nejsem. Delam spis do databazi. Prosim, neslo by to
vic polopate?
Martin
> Na NT4 a W2K jsem to resil cteni hodnot z
> MIXERCONTROL_CONTROLTYPE_PEAKMETER, ale v XP jsem zatim nevidel zvukovku,
> ktera by jej mela. Stejnych hodnot jako peakmeter lze dosahnout nahravanim
> (staci nizky nSamplesPerSec) a pocitanim minima a maxima z kazdeho vzorku,
> pro detekci ticha si stanovit nejakou prahovou uroven rozdilu tohoto
> minima
> a maxima, nebot nektere zvukovky i bez zapojeneho vstupu generuji dost
> sumu.
> Pocitat energetickou uroven signalu se mi prilis neosvedcilo, jednoduche
> nalezeni minimalni a maximalni hodnoty je rychle a vetsinou plne
> postacuje.
>
> Daniel
presmerovani portu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 9.9.2005 15:57:13
> chtel chych se zeptat, zda lze napr pomoci synapse nejak presmerovat
> porty v IP komunikaci v pocitaci. Neco jako dela fireware.
Na urovni winsocku muzes udelat jen to, ze si napises server, ktery
nasloucha na zadanem portu a veskerou komunikaci preposila nekam
jinam.
Pokud si chces napsat svuj NAT, tak to budes muset jit ponekud
hloubeji do systemu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Detekce ticha
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 9.9.2005 15:49:12
fajn, dik za teorii ale prikladek by nebyl. V tomto smeru jsem neznalec a z
tveho popisu moc moudry nejsem. Delam spis do databazi. Prosim, neslo by to
vic polopate?
Martin
> Na NT4 a W2K jsem to resil cteni hodnot z
> MIXERCONTROL_CONTROLTYPE_PEAKMETER, ale v XP jsem zatim nevidel zvukovku,
> ktera by jej mela. Stejnych hodnot jako peakmeter lze dosahnout nahravanim
> (staci nizky nSamplesPerSec) a pocitanim minima a maxima z kazdeho vzorku,
> pro detekci ticha si stanovit nejakou prahovou uroven rozdilu tohoto
> minima
> a maxima, nebot nektere zvukovky i bez zapojeneho vstupu generuji dost
> sumu.
> Pocitat energetickou uroven signalu se mi prilis neosvedcilo, jednoduche
> nalezeni minimalni a maximalni hodnoty je rychle a vetsinou plne
> postacuje.
>
> Daniel
Detekce ticha
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 9.9.2005 15:29:11
Na NT4 a W2K jsem to resil cteni hodnot z
MIXERCONTROL_CONTROLTYPE_PEAKMETER, ale v XP jsem zatim nevidel zvukovku,
ktera by jej mela. Stejnych hodnot jako peakmeter lze dosahnout nahravanim
(staci nizky nSamplesPerSec) a pocitanim minima a maxima z kazdeho vzorku,
pro detekci ticha si stanovit nejakou prahovou uroven rozdilu tohoto minima
a maxima, nebot nektere zvukovky i bez zapojeneho vstupu generuji dost sumu.
Pocitat energetickou uroven signalu se mi prilis neosvedcilo, jednoduche
nalezeni minimalni a maximalni hodnoty je rychle a vetsinou plne postacuje.
Daniel
----- Original Message -----
From: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, September 09, 2005 3:11 PM
Subject: Detekce ticha
Moc prosim, nevite nekdo jak jednoduse na vstupu zvukove karty zjistit zda
je na ni priveden nejaky signal ci ne? Priznam se ze vubec netusim jak to
udelat. Rozhodne bych se nechtel poustet do spektralni analyzy. Jde mi jen
pouze o to zda se nahodou neobjevi misto ticha signal a to tak ze pri tichu
by mel byt vstup prakticky galvanicky odpojen.
Martin
D5-7, WinXP
Detekce ticha
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 9.9.2005 15:11:09
Moc prosim, nevite nekdo jak jednoduse na vstupu zvukove karty zjistit zda
je na ni priveden nejaky signal ci ne? Priznam se ze vubec netusim jak to
udelat. Rozhodne bych se nechtel poustet do spektralni analyzy. Jde mi jen
pouze o to zda se nahodou neobjevi misto ticha signal a to tak ze pri tichu
by mel byt vstup prakticky galvanicky odpojen.
Martin
D5-7, WinXP presmerovani portu
[*] Petr Vetesnik <vetesnik(zv)gmail(tec)com> - 9.9.2005 14:51:08
Dobry den,
chtel chych se zeptat, zda lze napr pomoci synapse nejak presmerovat porty v
IP komunikaci v pocitaci.
Neco jako dela fireware.
Petr
TTabSheet - zmena barvy Caption
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 9.9.2005 14:25:06
Ahoj,
na formu mame TPageControl na nekolik Tabsheet(u).
U nekterych bychom potrebovali nastavit jinou barvu, ale jen na
'ousku'.
Uzivateli zobrazit, ktere TABs jsou editovatelne.
Pouzivame standardni komponentu z D6P.
Dival jsem se do archivu konfery, 1001 Tipu a Triku..., zkousim ruzne
moznosti pomoci TWinControlHack = class(TWinControl), nic se mi
nedari.
Diky za kazdy napad,
preji hezky den a nasledny vikend,
Jarek Uher FB a ClientDataSet
[*] Robert Fujak <robof(zv)inmail.sk> - 9.9.2005 13:59:04
Zdravim Vas.
Mam asi dost zaciatocnicku otazku, ale ako funguje ClientDataSet.
Napojil som IBDataSet cez DataSetProvider na ClientDataSet a ked editujem,
alebo pridavam zaznamy v ClientDataSet tak tie sa bezproblemov zapisuju do
databazy aj ked v IBDataSet je nadefinovany len prikaz SelectSQL.
InsertSQL, UpdateSQL a RefreshSQL som nechal praznde? je to v poriadku?
Dakujem.
S pozdravom
Robert Fujak
Jak odchytit udalost na horizontalnim scroll baru
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 9.9.2005 09:22:45
Ahoj vespolek!
Muze mi prosim nekdo pomoct se %sub. Jedna se mi o to, kdyz mysi klikanim na
sipku horizontalniho scrollbaru posunuji DBGrid, abych videl dalsi sloupce.
Existuje na to nejaka udalost? Pouzivam free komponentu SMDBGrid
(www.scalabium.com) na D5Ent.
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
USB Flash Drive
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 9.9.2005 08:12:33
Hi *,
Uz jsem se jednou dotazoval, ale stale se mi nedari. Potrebuji odchytit zasunuti USB Flash Driveru, jeho identifikaci a pripadne zakazani. Neresil jste to nekdo, prosim?
+
{Hraju si s BIOPODem (otisk prstu) od APC, nenasel jsem vsak nikde popis (dll), jak s nim komunikovat z vlastni APP, neni to tak horke, ale kdyby jste nekdo vedel .....}
DIKY MOC, ZA JAKEKOLIV POSTRCENI
Prijemny zbytek dne
Vasek Zaruba
8^)
algoritmus na prevod cisla na cislo slovy
[*] david.kopecek(zv)hacktrack(tec)com - 8.9.2005 20:03:43
Zdravim
diky vsem.. jeden si vyberu vsechny vypadaj super :)
jeste jednou diky
D.
JB> function VyberTextNum(x:integer;ar:array of string):string;
JB> begin
JB> if x=0 then Result:=ar[0]
JB> else if x=1 then Result:=ar[1]
JB> else if x=2 then Result:=ar[2]
JB> else if x<5 then Result:=ar[3]
JB> else Result:=ar[4];
JB> end;
JB> function IntToText(cis:integer):string; // hlavni funkce
JB> const
JB> jedn : array[0..9] of string[11] =
JB> ('','jedna','dve','tri','ctyri','pet',
JB> 'sest','sedm','osm','devet');
JB> jednT : array[0..9] of string[11] =
JB> ('','','dva','tri','ctyri','pet',
JB> 'sest','sedm','osm','devet');
JB> nact : array[0..9] of string[11] =
JB> ('','jeden','dva','tri','ctr','pat',
JB> 'sest','sedm','osm','devate');
JB> NadDeset : array[0..4] of string =
JB> ('deset','act','nact','nact','nact');
JB> Des : array[0..9] of string =
JB> ('','','dvacet','tricet','ctyricet','padesat',
JB> 'sedesat','sedumdesat','osumdesat','devadesat');
JB> Sto : array[0..4] of string = ('','sto','ste','sta','set');
JB> Moc : array[0..2,0..4] of string =(
JB> ('','','','',''),
JB> ('','tisic','tisice','tisice','tisic'),
JB> ('','milion','miliony','miliony','milionu')
JB> );
JB> var
JB> a,x,ades,asta,atis,prac:integer;
JB> s,sx,ss:string;
JB> begin
JB> s:='';
JB> a:=0;
JB> repeat
JB> prac:= cis mod 1000;
JB> cis := cis div 1000;
JB> x:=prac;
JB> atis := prac div 100;
JB> prac := prac - atis*100;
JB> asta := prac div 10;
JB> prac := prac - asta*10;
JB> ades := prac div 1;
JB> sx:=VyberTextNum(atis,sto);
JB> if atis>1 then
JB> sx:=jedn[atis]+sx;
JB> if a=0 then
JB> ss:=jedn[ades]
JB> else
JB> ss:=jednT[ades];
JB>
JB> if asta>0 then begin
JB> if asta<2 then begin
JB> ss:=nact[ades];
JB> ss:=ss+VyberTextNum(ades,NadDeset);
JB> end else begin
JB> ss:=des[asta];
JB> ss:=ss+jedn[ades];
JB> end;
JB> end;
JB> if x<2 then begin
JB> s:=VyberTextNum(x,moc[a])+ss+s
JB> end else
JB> s:=sx+ss+VyberTextNum(x,moc[a])+s;
JB>
JB> inc(a);
JB> until cis=0; // opakuj dokud neni cislo nula
JB>
JB> Result:=s;
JB> end;
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
algoritmus na prevod cisla na cislo slovy
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 8.9.2005 17:11:31
function VyberTextNum(x:integer;ar:array of string):string;
begin
if x=0 then Result:=ar[0]
else if x=1 then Result:=ar[1]
else if x=2 then Result:=ar[2]
else if x<5 then Result:=ar[3]
else Result:=ar[4];
end;
function IntToText(cis:integer):string; // hlavni funkce
const
jedn : array[0..9] of string[11] =
('','jedna','dve','tri','ctyri','pet',
'sest','sedm','osm','devet');
jednT : array[0..9] of string[11] =
('','','dva','tri','ctyri','pet',
'sest','sedm','osm','devet');
nact : array[0..9] of string[11] =
('','jeden','dva','tri','ctr','pat',
'sest','sedm','osm','devate');
NadDeset : array[0..4] of string = ('deset','act','nact','nact','nact');
Des : array[0..9] of string = ('','','dvacet','tricet','ctyricet','padesat',
'sedesat','sedumdesat','osumdesat','devadesat');
Sto : array[0..4] of string = ('','sto','ste','sta','set');
Moc : array[0..2,0..4] of string =(
('','','','',''),
('','tisic','tisice','tisice','tisic'),
('','milion','miliony','miliony','milionu')
);
var
a,x,ades,asta,atis,prac:integer;
s,sx,ss:string;
begin
s:='';
a:=0;
repeat
prac:= cis mod 1000;
cis := cis div 1000;
x:=prac;
atis := prac div 100;
prac := prac - atis*100;
asta := prac div 10;
prac := prac - asta*10;
ades := prac div 1;
sx:=VyberTextNum(atis,sto);
if atis>1 then
sx:=jedn[atis]+sx;
if a=0 then
ss:=jedn[ades]
else
ss:=jednT[ades];
if asta>0 then begin
if asta<2 then begin
ss:=nact[ades];
ss:=ss+VyberTextNum(ades,NadDeset);
end else begin
ss:=des[asta];
ss:=ss+jedn[ades];
end;
end;
if x<2 then begin
s:=VyberTextNum(x,moc[a])+ss+s
end else
s:=sx+ss+VyberTextNum(x,moc[a])+s;
inc(a);
until cis=0; // opakuj dokud neni cislo nula
Result:=s;
end;
Jak na odbc
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 8.9.2005 16:01:26
Zdravim,
prosim Vas, mohl by mi nekdo pomoct? Stahl jsem si komponenty ODBCe a
nainstaloval. Jenze kdyz je chci pouzit, tak mi nejdriv delphi zahlasil,
ze nema soubor odbcbase.pas. Tento soubor jsem dal hledat a take jsem ho
nasel ve slozce source. Udelal jsem tedy odkaz na library k tomuto
adresari. Nahle vsak delphi zacal hlasit:
[Error] ODBCeDef.inc(12): 'INTERFACE' expected but identifier 'Unknown'
found
[Fatal Error] ODBCBase.pas(257): Could not compile used unit
'ODBCStrConsts.pas'
vubec nevim o co se jedna a co s tim. Muzete nekdo poradit?
Pouzivam Delphi 7
FB - nutnost pravidelne restartovat server?
[*] Jan Naiser <tua(zv)wo(tec)cz> - 8.9.2005 14:23:19
Preji pekny den,
bezi mi par aplikaci na serveru Firebird 1.5, vetsinou na Linuxu. Stalo se
asi 2x cca 1x za 3-4 mesice, ze nektery FB na serveru vytuhl a bylo treba
jej restartnout. V teto souvislosti jsem se setkal s nazorem nekterych
adminu, kteri veskere bezici SQL servery (sluzby) kazdou noc restartuji.
Nemyslim si (zatim), ze by to bylo az tak casto potreba.
Proto se ptam: jake jsou vase zkusenosti, popr. praxe a je-li opravdu nutne
po nejakem case FB restartnout?
Diky, Honza.Jak na export cisel do Excelu?
[*] pilifs <pilifs(zv)seznam(tec)cz> - 8.9.2005 14:01:17
Jo, jo,
mate pravdu. Pouzil jsem unitu, ktera to prave tou procedurou SetCell
zapouzdrovala a davala to tam jako string.
Ted jsem ji trochu upravil a dela to presne to co ma.
Dik.
Karel Kral napsal(a):
>P.S. Ale je nesmysl cisla do Excelu predavat jako string, jak to delas
>ty. Mel bys to predavat jako Variant, uz se to tu probiralo. Pak bys
>takoveto problemy nemel. Nebo jako pole Variantu, to je nejrychlejsi.
>
>Karel Kral napsal(a):
>
>
>>>...
>>>excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
>>>458,00 do excelu se prevede OK
>>>excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
>>>458,25 do excelu se prevede jako text
>>>...
>>>
>>>Ukladam to do predem vytvorene XLS sablony, kde konkretni pole maji jiz
>>>svuj format (cislo,mena).
>>>Nevite jsetli musim predem nejakym (jakym?) zpusobem nastavit
>>>"decimalseparator" v Excelu? Nebo jak se to ma resit aby to fungovalo
>>>podle predpokladu?
>>>
>>>Dik za kazdou radu.
>>>
>>>D5 Ent.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
>
>Variants.pas NullStrictConvert - odvazil se to nek
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 8.9.2005 13:53:17
Ahoj,
dlouhou dobu me stvalo psat tyto konstrukce v mych programech:
if VarIsNull(MyVariant) then
MyBoolean := false
else MyBoolean := MyVariant;
Musel jsem osetrovat pripad, kdy mohl byt Variant NULL, jinak konverze
vyhucela na vyjimku. Ted jsem nasel v jednotce Variants zajimavou
promennou NullStrictConvert, ktera zpusobi, ze konverze vrati false bez
vyjimky.
Ale je to globalni promenna. Mam obavy, co to muze udelat s ostatnimi
knihovnami (DevExpress, FastReport), ktere uzivaji varianty.
Otazka: odvazil jste se ji nekdo nastavit na false?
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Jak na export cisel do Excelu?
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 8.9.2005 13:25:14
P.S. Ale je nesmysl cisla do Excelu predavat jako string, jak to delas
ty. Mel bys to predavat jako Variant, uz se to tu probiralo. Pak bys
takoveto problemy nemel. Nebo jako pole Variantu, to je nejrychlejsi.
Karel Kral napsal(a):
>>...
>>excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
>>458,00 do excelu se prevede OK
>>excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
>>458,25 do excelu se prevede jako text
>>...
>>
>>Ukladam to do predem vytvorene XLS sablony, kde konkretni pole maji jiz
>>svuj format (cislo,mena).
>>Nevite jsetli musim predem nejakym (jakym?) zpusobem nastavit
>>"decimalseparator" v Excelu? Nebo jak se to ma resit aby to fungovalo
>>podle predpokladu?
>>
>>Dik za kazdou radu.
>>
>>D5 Ent.
>>
>>
>>
>>
>>
>>
>>
>>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Jak na export cisel do Excelu?
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 8.9.2005 12:39:10
Takto ho prectes, mohl by jit i nastavit. Jsou to property TExcelApplication
// nacte mistni nastaveni
procedure TXlApplication.ReadLocalSettings;
begin
with Application do
begin
xllYearCode:= StrToChar(International[xlYearCode, 0]);
xllMonthCode:= StrToChar(International[xlMonthCode, 0]);
xllDayCode:= StrToChar(International[xlDayCode, 0]);
xllFormatGeneral:= International[xlGeneralFormatName, 0];
xllDecimalSeparator := StrToChar(International[xlDecimalSeparator, 0]);
xllThousandsSeparator :=
StrToChar(International[xlThousandsSeparator, 0]);
xllCurrencyDecimals := International[xlCurrencyDigits, 0];
end;
end;
pilifs napsal(a):
> Zdravim ve spolek,
>
> exportuji data do Excelu pres OLE objekt. Mam problem v tom, ze pokud
> tam chci poslat cislo tak vse co ma hodnotu za desetinnou carkou se
> prevede jako text.
> Priklad:
> ...
> excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
> 458,00 do excelu se prevede OK
> excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
> 458,25 do excelu se prevede jako text
> ...
>
> Ukladam to do predem vytvorene XLS sablony, kde konkretni pole maji jiz
> svuj format (cislo,mena).
> Nevite jsetli musim predem nejakym (jakym?) zpusobem nastavit
> "decimalseparator" v Excelu? Nebo jak se to ma resit aby to fungovalo
> podle predpokladu?
>
> Dik za kazdou radu.
>
> D5 Ent.
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
algoritmus na prevod cisla na cislo slovy
[*] Martin Matousek <martin.matousek(zv)topspin(tec)cz> - 8.9.2005 11:25:04
function PrevodNaSlovy(Cislo:Integer):String;
var StoTisice,DesetiTisice,Tisice,Stovky,Desitky, Zbytek: Integer;
Const
PrevodDesitky : Array[2..9] of String =
('dvacet','tricet','ctyricet','padesat','sedesat',
'sedmdesat','osmdesat','devadesat');
begin
Result := '';
if Cislo > 999999 then
Exit;
StoTisice := Cislo div 100000; //StoTisice od 20
if StoTisice > 1 then
begin
Zbytek := Cislo mod 100000;
Result := Result + (Prevod(100,Stovky));
end else Zbytek := Cislo; //Stotisice do 19
DesetiTisice := Cislo div 10000; //desetitisice od 20
if DesetiTisice > 1 then
begin
Zbytek := Cislo mod 10000;
Result := Result + PrevodDesitky[DesetiTisice];
end else Zbytek := Cislo;
Tisice := Zbytek div 1000; //tisice do 19
if Tisice > 0 then
begin
Zbytek := Zbytek mod 1000;
Result := Result + (Prevod(1000,Tisice));
end else if Desetitisice > 0 then
Result := Result + 'tisic';
Stovky := Zbytek div 100; //Stovky
if Stovky > 0 then
begin
Zbytek := Zbytek mod 100;
Result := Result + (Prevod(100,Stovky));
end;
Desitky := Zbytek div 10; //desitky od 20
if Desitky > 1 then
begin
Zbytek := Zbytek mod 10;
Result := Result + PrevodDesitky[Desitky];
end;
if Zbytek > 0 then //jednotky do 19
Result := Result + (Prevod(1,Zbytek));
end;
function Prevod(Rad,Hodnota:Integer):String;
const
Jednotky : Array[5..19] of String =
('pet','sest','sedm','osm','devet',
'deset','jedenact','dvanact','trinact','ctrnact',
'patnact','sestnact','sedmnact','osmnact','devatenact');
begin
if (Hodnota > 4) and (Hodnota < 20) then
Result := Jednotky[hodnota];
if Rad = 1000 then
begin
Result := Result + 'tisic';
if Hodnota = 1 then Result := 'jedentisic';
if Hodnota = 2 then Result := 'dvatisice';
if Hodnota = 3 then Result := 'tritisice';
if Hodnota = 4 then Result := 'ctyritisice';
end;
if Rad = 100 then
begin
Result := Result + 'set';
if Hodnota = 1 then Result := 'jednosto';
if Hodnota = 2 then Result := 'dveste';
if Hodnota = 3 then Result := 'trista';
if Hodnota = 4 then Result := 'ctyrista';
end;
if Rad = 1 then
begin
if Hodnota = 1 then Result := 'jedna';
if Hodnota = 2 then Result := 'dve';
if Hodnota = 3 then Result := 'tri';
if Hodnota = 4 then Result := 'ctyri';
end;
end;
Firebird - uvolneni mista na HDD po databazi
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 8.9.2005 10:51:01
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> mel jsem v FB 1.5 databazi asi 2miliony zaznamu (velikost
> souboru s databazi asi 2GB). Po smazani techto 2mil. zaznamu
> si vsak soubor drzi stale stejnou velikost. Jak prinutim FB
> aby soubor zmensila pouze na potr. velikost? ;-) Dik S
Udelej backup/restore.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Firebird - uvolneni mista na HDD po databazi
[*] Kalhous <kalhous(zv)eu(tec)cz> - 8.9.2005 11:13:04
Treba backup/restore.
> mel jsem v FB 1.5 databazi asi 2miliony zaznamu (velikost souboru s
> databazi asi 2GB). Po smazani techto 2mil. zaznamu si vsak soubor drzi
> stale stejnou velikost. Jak prinutim FB aby soubor zmensila pouze na potr.
> velikost? ;-) algoritmus na prevod cisla na cislo slovy
[*] Ing. Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 8.9.2005 11:03:02
Ahoj,
pouzivame toto pro slovni vyjadreni korun:
function KorunyNaSlova(kc : double) : string;
{prevod Kc ve tvaru cisla DOUBLE na slovni vyjadreni korun
uvazovano maximalne na biliony - ani u bilionu uz zpravidla
neni ulozene cislo v exp. tvaru presne}
function PrevedTriCifry(TriC : string; Tvar1 : string;
Tvar2 : string; Tvar3 : string;
MuzZen : string) : string;
var vysledek : string;
cifra : string[1];
cifry : string[2];
const NazJednM : array[0..19] of string[11] =
('','jeden','dva','tri','ctyri','pet',
'sest','sedm','osm','devet','deset',
'jedenact','dvanact','trinact','ctrnact','patnact',
'sestnact','sedmnact','osmnact','devatenact');
NazJednZ : array[0..19] of string[11] =
('','jedna','dve','tri','ctyri','pet',
'sest','sedm','osm','devet','deset',
'jedenact','dvanact','trinact','ctrnact','patnact',
'sestnact','sedmnact','osmnact','devatenact');
NazDesit : array[2..9] of string[10]=
('dvacet','tricet','ctyricet','padesat',
'sedesat','sedmdesat','osmdesat','devadesat');
NazStovek : array[0..9] of string[10]=
('','jednosto','dveste','trista','ctyrista','petset',
'sestset','sedmset','osmset','devetset');
begin
vysledek := '';
{triciferne cislo TriC - precist}
cifry := Copy(TriC,2,2); {posledni 2 cifry}
If StrToInt(cifry) < 20 then
begin
If MuzZen = 'M' then
vysledek := NazJednM[StrToInt(cifry)];
If MuzZen = 'Z' then
vysledek := NazJednZ[StrToInt(cifry)];
Case StrToInt(cifry) of
1 : vysledek := vysledek+Tvar1;
2,3,4 : vysledek := vysledek+Tvar2;
else
vysledek := vysledek+Tvar3;
end;
end
else begin
cifra := Copy(TriC,3,1); {posledni 1 cifra}
If MuzZen = 'M' then
vysledek := NazJednM[StrToInt(cifra)];
If MuzZen = 'Z' then
vysledek := NazJednZ[StrToInt(cifra)];
{pridat zaverecny text}
Case StrToInt(cifra) of
1 : vysledek := vysledek+Tvar1;
2,3,4 : vysledek := vysledek+Tvar2;
0,5..9 : vysledek := vysledek+Tvar3;
end;
cifra := Copy(TriC,2,1); {prostredni 1 cifra}
vysledek := NazDesit[StrToInt(cifra)] + vysledek;
end;
cifra := Copy(TriC,1,1); {prvni 1 cifra}
vysledek := NazStovek[StrToInt(cifra)] + vysledek;
RESULT := vysledek;
end;
var tri: string; {tri cifry z korun}
hal : string; {halere}
kor : string; {koruny}
minus : string; {pro zaporna cisla}
T: string; {vysledek}
begin
T := '';
tri := '';
hal :='';
kor :='';
If kc < 0 then
begin
kc := -kc;
minus := 'minus';
end
else
minus := '';
{HALERE}
hal := FloatToStrF(Frac(kc)*100,ffFixed,15,0);
{nula des. mist - zaokrouhli se na cele-bylo-li ulozeno nepresne}
{doplnit halere na tri cifry zleva nulami}
If length(hal)= 1 then
hal := '00'+hal;
If length(hal) = 2 then
hal := '0'+hal;
{KORUNY}
kor := FloatToStrF(kc,ffFixed,15,2);
Delete(kor,length(kor)-2,3); {odstranit halere a des tecku}
{doplnit kc na tri cifry zleva nulami}
If length(kor) mod 3 = 1 then
kor := '00'+kor;
If length(kor) mod 3 = 2 then
kor := '0'+kor;
{nyni beru postupne 3 cifry zprava a zpracovavam}
{HALERE}
If not (StrToInt(hal) = 0) then
T := ' ' + PrevedTriCifry(hal,' haler',' halere',' haleru','M');
{mezi korunami a haleri ma byt mezera}
{JEDNOTKY}
tri := copy(kor,length(kor)-2,3); {vezme posledni 3 pozice}
T := PrevedTriCifry(tri,' koruna ceska',' koruny ceske',' korun
ceskych','Z') + T;
If StrToFloat(kor) = 0 then {v castce jsou jen halere nebo uplna nula
korun}
begin
T := 'nula' + T;
end;
{TISICE}
If length(kor) > 3 then
begin
tri := copy(kor,length(kor)-5,3); {vezme 3 cifry - tisice}
If not (StrToInt(TRI) = 0) then
T := PrevedTriCifry(tri,'tisic','tisice','tisic','M') + T;
{MILIONY}
If length(kor) > 6 then
begin
tri := copy(kor,length(kor)-8,3); {vezme posledni 3 pozice}
If not (StrToInt(TRI) = 0) then
T := PrevedTriCifry(tri,'milion','miliony','milionu','M') + T;
{MILIARDY}
If length(kor) > 9 then
begin
tri := copy(kor,length(kor)-11,3); {vezme posledni 3 pozice}
If not (StrToInt(TRI) = 0) then
T := PrevedTriCifry(tri,'miliarda','miliardy','miliard','Z') + T;
If length(kor) > 12 then
begin {bili}
tri := copy(kor,length(kor)-14,3); {vezme posledni 3 pozice}
If not (StrToInt(TRI) = 0) then
T := PrevedTriCifry(tri,'bilion','biliony','bilionu','M') + T;
end; {bili}
end; {miliardy}
end {miliony}
end; {tisice}
result := minus+T;
end;
S pozdravem
Petr Kejval
----- Original Message -----
From: <david.kopecek(zv)hacktrack.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 08, 2005 9:44 AM
Subject: algoritmus na prevod cisla na cislo slovy
> Zdravim konferenci
>
> nemate nekdo please hotovy algoritmus na prevod cisla do cisla slovy ?
> Potrebuji to pro prevod penezite castky
>
> napr
>
> 1000-> Jeden Tisic
>
> Thx.
>
> D.
>
> Firebird - uvolneni mista na HDD po databazi
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 8.9.2005 10:53:01
Zdravi,
udelaej backup a restore.
Peca
algoritmus na prevod cisla na cislo slovy
[*] Hash <parizsky(zv)gmail(tec)com> - 8.9.2005 10:51:00
>
> >nemate nekdo please hotovy algoritmus na prevod cisla do cisla slovy ?
>
Z historie konfery:
function Prevod(Rad,Hodnota:Integer):String;
const
Jednotky : Array[5..19] of String =
('pet','sest','sedm','osm','devet',
'deset','jedenact','dvanact','trinact','ctrnact',
'patnact','sestnact','sedmnact','osmnact','devatenact');
begin
IF (Hodnota > 4) And (Hodnota < 20) Then
Result := Jednotky[hodnota];
IF Rad = 1000 Then
Begin
Result := Result + 'tisic';
IF Hodnota = 1 Then Result := 'jedentisic';
IF Hodnota = 2 Then Result := 'dvatisice';
IF Hodnota = 3 Then Result := 'tritisice';
IF Hodnota = 4 Then Result := 'ctyritisice';
End;
IF Rad = 100 then
Begin
Result := Result + 'set';
IF Hodnota = 1 Then Result := 'jednosto';
IF Hodnota = 2 Then Result := 'dveste';
IF Hodnota = 3 Then Result := 'trista';
IF Hodnota = 4 Then Result := 'ctyrista';
End;
IF Rad = 1 Then
Begin
IF Hodnota = 1 Then Result := 'jedna';
IF Hodnota = 2 Then Result := 'dve';
IF Hodnota = 3 Then Result := 'tri';
IF Hodnota = 4 Then Result := 'ctyri';
End;
end;
function PrevodNaSlovy(Hodnota: Real):String;
var Cislo,DesetiTisice,Tisice,Stovky,Desitky,Zbytek: Integer;
Const
PrevodDesitky : Array[2..9] of String =
('dvacet','tricet','ctyricet','padesat','sedesat',
'sedmdesat','osmdesat','devadesat');
begin
Cislo:= Round(Int(Hodnota));
Result := '';
DesetiTisice := Cislo div 10000; {Desetitisice od 20}
IF DesetiTisice > 1 then
Begin
Zbytek := Cislo mod 10000;
Result := Result + PrevodDesitky[DesetiTisice];
End Else Zbytek := Cislo;
Tisice := Zbytek div 1000; {Tisice do 19}
IF Tisice > 0 Then
Begin
Zbytek := Zbytek mod 1000;
Result := Result + (Prevod(1000,Tisice));
End Else IF Desetitisice > 0 Then
Result := Result + 'tisic';
Stovky := Zbytek div 100; {Stovky}
IF Stovky > 0 Then
Begin
Zbytek := Zbytek mod 100;
Result := Result + (Prevod(100,Stovky));
End;
Desitky := Zbytek div 10; {Desitky od 20}
IF Desitky > 1 Then
Begin
Zbytek := Zbytek mod 10;
Result := Result + PrevodDesitky[Desitky];
End;
IF Zbytek > 0 Then {jednotky do 19}
Result := Result + (Prevod(1,Zbytek));
IF Length(Result) > 0 Then Result := UpperCase(Result[1]) + Copy(Result,2,
Length(Result)) + ' korun';
end;
Ladap
Firebird - uvolneni mista na HDD po databazi
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 8.9.2005 10:43:00
Krasny den,
mel jsem v FB 1.5 databazi asi 2miliony zaznamu (velikost souboru s databazi asi 2GB). Po smazani techto 2mil. zaznamu si vsak soubor drzi stale stejnou velikost. Jak prinutim FB aby soubor zmensila pouze na potr. velikost? ;-) Dik S pozdravem Pavel Hora
Jak na export cisel do Excelu?
[*] pilifs <pilifs(zv)seznam(tec)cz> - 8.9.2005 10:16:58
Zdravim ve spolek,
exportuji data do Excelu pres OLE objekt. Mam problem v tom, ze pokud
tam chci poslat cislo tak vse co ma hodnotu za desetinnou carkou se
prevede jako text.
Priklad:
...
excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
458,00 do excelu se prevede OK
excel.SetCell(1,1,ado.FieldByName(pole).AsString); // hodnota pole je
458,25 do excelu se prevede jako text
...
Ukladam to do predem vytvorene XLS sablony, kde konkretni pole maji jiz
svuj format (cislo,mena).
Nevite jsetli musim predem nejakym (jakym?) zpusobem nastavit
"decimalseparator" v Excelu? Nebo jak se to ma resit aby to fungovalo
podle predpokladu?
Dik za kazdou radu.
D5 Ent.
algoritmus na prevod cisla na cislo slovy
[*] david.kopecek(zv)hacktrack(tec)com - 8.9.2005 09:44:55
Zdravim konferenci
nemate nekdo please hotovy algoritmus na prevod cisla do cisla slovy ?
Potrebuji to pro prevod penezite castky
napr
1000-> Jeden Tisic
Thx.
D.karta PCL1753 a WinXP
[*] Simek Pavel <p.simek(zv)svscr(tec)cz> - 8.9.2005 09:42:55
Ahoj vsem, potrebuji pod D3 (pripadne i D5) ovladat I/O kartu PCL1753. Jde o
ovladani pres adresy. WinXP mi ale nedovoli primy pristup. Poradite nekdo
jak to resit??
Pavel
Firebird a UDF knihovny v linuxu?
[*] pilifs <pilifs(zv)seznam(tec)cz> - 8.9.2005 09:42:55
Zkousel jsem jak "var" tak i bez. Pokud jsem tam nepuzil VAR tak mi
pokazde FB zhavaroval.
V C bych to rad napsal, ale nejsem v nem dost zbehly na to abych to
dokazal v kratke dobe napsat.
Napsal vubec nekdo funkcni UDF v Pascalu pro FB na Linuxu? V Kylixu se
mi to take nepovedlo.
Karel Rys napsal(a):
>pilifs dne 7 Sep 2005 v 18:51:
>
>
>
>>Zdravim ve spolek,
>>uz pekne dlouho se trapim s vytvorenim UDF-ka do FB 1.5 na Linuxu.
>>Delam to ve FreePascalu 2. Pokud nize uvedenou funkci zavolam ve FB
>>tak mi to vraci uplne nesmyslne cisla. Napr. pro "SELECT f_max(10,20)
>>FROM rdb$database" mam vystup -1216806892. Kod knihovny:
>>----------------------------------------------------------------------
>>-- library p001; function int_max(var a,b: integer): integer; cdecl;
>>export; begin
>> if a > b then int_max := a else int_max := b;
>>end;
>>exports
>> int_max;
>>end.
>>
>>
>
>Ahoj,
>
>myslis, ze parametry funkce maji byt "var a,b:integer"? Nepatri tam jen "a,b:integer"?
>
>Jinak ve FB 1.5 se zrovna tohle da delat i prikazem CASE v SQL, nicmene UDF asi potrebujes pro
>neco slozitejsiho.
>
>Karel Rys
>
>
>
>
>Firebird a UDF knihovny v linuxu?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.9.2005 08:12:22
pilifs dne 7 Sep 2005 v 18:51:
> Zdravim ve spolek,
> uz pekne dlouho se trapim s vytvorenim UDF-ka do FB 1.5 na Linuxu.
> Delam to ve FreePascalu 2. Pokud nize uvedenou funkci zavolam ve FB
> tak mi to vraci uplne nesmyslne cisla. Napr. pro "SELECT f_max(10,20)
> FROM rdb$database" mam vystup -1216806892. Kod knihovny:
> ----------------------------------------------------------------------
> -- library p001; function int_max(var a,b: integer): integer; cdecl;
> export; begin
> if a > b then int_max := a else int_max := b;
> end;
> exports
> int_max;
> end.
Ahoj,
myslis, ze parametry funkce maji byt "var a,b:integer"? Nepatri tam jen "a,b:integer"?
Jinak ve FB 1.5 se zrovna tohle da delat i prikazem CASE v SQL, nicmene UDF asi potrebujes pro
neco slozitejsiho.
Karel Rys
Firebird a UDF knihovny v linuxu?
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 8.9.2005 08:08:21
Ahoj,
pod linuxem jsem je delal radsi v C a nebyl zadnej problem.
Jirka
pilifs napsal(a):
> Zdravim ve spolek,
> uz pekne dlouho se trapim s vytvorenim UDF-ka do FB 1.5 na Linuxu. Delam
> to ve FreePascalu 2.
> Pokud nize uvedenou funkci zavolam ve FB tak mi to vraci uplne nesmyslne
> cisla.
> Napr. pro "SELECT f_max(10,20) FROM rdb$database" mam vystup -1216806892.
> Kod knihovny:
> ------------------------------------------------------------------------
> library p001;
> function int_max(var a,b: integer): integer; cdecl; export;
> begin
> if a > b then int_max := a else int_max := b;
> end;
> exports
> int_max;
> end.
> -----------------------------------------------------------------------
> SQL:
> -----------------------------------------------------------------------
> declare external function f_max integer,integer returns integer by value
> entry_point by 'int_max' module_name 'p001';
>
>
> Firebird a UDF knihovny v linuxu?
[*] pilifs <pilifs(zv)seznam(tec)cz> - 7.9.2005 18:51:25
Zdravim ve spolek,
uz pekne dlouho se trapim s vytvorenim UDF-ka do FB 1.5 na Linuxu. Delam
to ve FreePascalu 2.
Pokud nize uvedenou funkci zavolam ve FB tak mi to vraci uplne nesmyslne
cisla.
Napr. pro "SELECT f_max(10,20) FROM rdb$database" mam vystup -1216806892.
Kod knihovny:
------------------------------------------------------------------------
library p001;
function int_max(var a,b: integer): integer; cdecl; export;
begin
if a > b then int_max := a else int_max := b;
end;
exports
int_max;
end.
-----------------------------------------------------------------------
SQL:
-----------------------------------------------------------------------
declare external function f_max integer,integer returns integer by value
entry_point by 'int_max' module_name 'p001';
TADOQuery a nastavenie CommandTimeout
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 7.9.2005 14:05:04
Ahoj,
neco tam je navic
Melo by to byt takhle:
var
SQLCmd: string;
adc: tadocommand;
begin
SQLCmd := Format('SELECT TOP %D ' +
'DEST_HOST, COUNT(DEST_HOST) AS PRISTUP, SUM(BYTES_RECVD) AS SPOLUB
' +
'FROM MSP_LOG_TB WHERE LOG_DATE =''%S'' ' +
'GROUP BY DEST_HOST ' +
'ORDER BY PRISTUP DESC', [10, FormatDateTime('YYYYMMDD', Datum)]);
qryQuery1.SQL.Clear;
qryQuery1.SQL.Add(SQLCmd);
try
{ adc := tadocommand.Create(self); }
// tohle sem nepatri. Nepotrebujes delat create. Naplneni Adc mas v
nasledujici radce.
adc := qryQuery1.Parameters.Command;
adc.CommandTimeout := 10000;
qryQuery1.ExecSQL;
>> Resime to tak ze to zmenime v TAdocommand, tj.
>> var Adc:TAdoCommand;
>> begin
>> Adc:=ADOQuery.Parameters.command;
>> Adc.CommandTimeOut := 999; zmeni se na hodnotu, kterou potrebujes.
>> end;
>
>
Bohdan Voska
TADOQuery a nastavenie CommandTimeout
[*] miroslav.barica(zv)matador.sk - 7.9.2005 13:07:00
No, priznam sa ze tomu moc nerozumiem, ale skutocne to zabralo ;-)
Kus mojho uz upraveneho inkriminovaneho kodu
var
SQLCmd: string;
adc: tadocommand;
begin
SQLCmd := Format('SELECT TOP %D ' +
'DEST_HOST, COUNT(DEST_HOST) AS PRISTUP, SUM(BYTES_RECVD) AS SPOLUB
' +
'FROM MSP_LOG_TB WHERE LOG_DATE =''%S'' ' +
'GROUP BY DEST_HOST ' +
'ORDER BY PRISTUP DESC', [10, FormatDateTime('YYYYMMDD', Datum)]);
qryQuery1.SQL.Clear;
qryQuery1.SQL.Add(SQLCmd);
try
adc := tadocommand.Create(self);
adc := qryQuery1.Parameters.Command;
adc.CommandTimeout := 10000;
qryQuery1.ExecSQL;
>
> Resime to tak ze to zmenime v TAdocommand, tj.
> var Adc:TAdoCommand;
> begin
> Adc:=ADOQuery.Parameters.command;
> Adc.CommandTimeOut := 999; zmeni se na hodnotu, kterou potrebujes.
> end;
TADOQuery a nastavenie CommandTimeout
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 7.9.2005 12:32:53
Resime to tak ze to zmenime v TAdocommand, tj.
var Adc:TAdoCommand;
begin
Adc:=ADOQuery.Parameters.command;
Adc.CommandTimeOut := 999; zmeni se na hodnotu, kterou potrebujes.
end;
Bohdan Voska
----- Original Message -----
From: <miroslav.barica(zv)matador.sk>> Ano, vlastne ma, teraz som si to pri podrobnejsiom nahlade do helpu
> vsimol, ale je protected
>
>>
>> Vzdyt (alespon v D7) ma ADOQuery stejne jako ostatni ADO
>> komponenty property CommandTimeout. Pouzivam a funguje.
>> Nevim, jak v D5.
>>
>> > DB TADOCommand (tam sa da aj timeout nastavit), alebo
>> existuje nejaka
TADOQuery a nastavenie CommandTimeout
[*] miroslav.barica(zv)matador.sk - 7.9.2005 11:42:49
Ano, vlastne ma, teraz som si to pri podrobnejsiom nahlade do helpu
vsimol, ale je protected
>
> Vzdyt (alespon v D7) ma ADOQuery stejne jako ostatni ADO
> komponenty property CommandTimeout. Pouzivam a funguje.
> Nevim, jak v D5.
>
> miroslav.barica(zv)matador.sk napsal(a):
> > Dobry den,
> > Som trosku uz mimo rozumneho myslenia (nebrat doslovne ;-)) Robim
> > vyber z SQL DB cez ADOQuery, nedavno mi prestala chodit aplikacia,
> > zistil som ze query pada na timeout. Da sa nastavit timeout aj na
> > query, alebo nie. Mozno len je chyba medzi stolickou a klavesnicou,
> > ale v helpe som sa moc nedocital. Je lepsie pouzivat pre
> vyber z SQL
> > DB TADOCommand (tam sa da aj timeout nastavit), alebo
> existuje nejaka
> > finta aby to zabralo aj na query? Nastavenie commandtimeoutu pri
> > vytvoreni connection komponentou TADOConnection mi na query
> nezabera.
TADOQuery a nastavenie CommandTimeout
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 7.9.2005 11:24:48
Vzdyt (alespon v D7) ma ADOQuery stejne jako ostatni ADO komponenty
property CommandTimeout. Pouzivam a funguje. Nevim, jak v D5.
miroslav.barica(zv)matador.sk napsal(a):
> Dobry den,
> Som trosku uz mimo rozumneho myslenia (nebrat doslovne ;-))
> Robim vyber z SQL DB cez ADOQuery, nedavno mi prestala chodit aplikacia,
> zistil som ze query pada na timeout. Da sa nastavit timeout aj na query,
> alebo nie. Mozno len je chyba medzi stolickou a klavesnicou, ale v helpe
> som sa moc nedocital. Je lepsie pouzivat pre vyber z SQL DB TADOCommand
> (tam sa da aj timeout nastavit), alebo existuje nejaka finta aby to
> zabralo aj na query? Nastavenie commandtimeoutu pri vytvoreni connection
> komponentou TADOConnection mi na query nezabera.
> Dakujem za pripadne vysvetlenie, rady, odkazy
> M.
>
> D5, MSSQL2000, WINXP
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
TADOQuery a nastavenie CommandTimeout
[*] miroslav.barica(zv)matador.sk - 7.9.2005 10:54:46
Dobry den,
Som trosku uz mimo rozumneho myslenia (nebrat doslovne ;-))
Robim vyber z SQL DB cez ADOQuery, nedavno mi prestala chodit aplikacia,
zistil som ze query pada na timeout. Da sa nastavit timeout aj na query,
alebo nie. Mozno len je chyba medzi stolickou a klavesnicou, ale v helpe
som sa moc nedocital. Je lepsie pouzivat pre vyber z SQL DB TADOCommand
(tam sa da aj timeout nastavit), alebo existuje nejaka finta aby to
zabralo aj na query? Nastavenie commandtimeoutu pri vytvoreni connection
komponentou TADOConnection mi na query nezabera.
Dakujem za pripadne vysvetlenie, rady, odkazy
M.
D5, MSSQL2000, WINXP
Vyska formulare v motivu XP
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 6.9.2005 11:59:08
> > Neexistuje nejake programatorske reseni? Neresi to treba D2005 tak
> > se se vyska TFormu pocita bez zahlavi?
Ahoj, pisu jen z hlavy, ale treba to pomuze.
1) Rozmery nejruznejsich veci ve Win si lze vyzadat - viz
GetSystemMetrics.
2) Formular ma krome Width a Height take ClientWidth a ClientHeight.
3) Co kdyz se vypne u formu property AutoScroll? Form by pak
nemusel mit posuvniky, ale prvky, ktere jsou prilis blizko okraje, muzou
byt okrajem castecne prekryty.
Jestli ti neco z toho bude k necemu, nevim.
David Lebeda
Vyska formulare v motivu XP
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 6.9.2005 11:25:04
6.9.2005 Martin Matousek:
> Predpokladam ze to jiz musel nekdo a mozna i v konferenci resit.
> Bohuzel jsem to pri hledani podle predpokladanych klicu nenasel. Takze:
> XP maji standardne vetsi zahlavi okna, a jeste je mozno tuto vysku
> zvetsit. Je pak tedy mozne ze nektere nemaximalizovane formulare
> vytvorene s predpokladem vysky zahlavi ve w95,98,2k se spatne
> zobrazi s pouzitim motivu xp (zobrazi se scrollbary).
> V soucasne chvili jsem to vyresil tak ze jsem si zapnul implicitni
> motiv xp a vsechny formulare rucne opravil tak aby vyska odpovidala motivum xp.
> Neexistuje nejake programatorske reseni? Neresi to treba D2005 tak
> se se vyska TFormu pocita bez zahlavi?
Problemy se zmensi, pokud ovladaci prvky jsou zarovnany na mrizce.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Vyska formulare v motivu XP
[*] Martin Matousek <martin.matousek(zv)topspin(tec)cz> - 6.9.2005 08:12:45
Predpokladam ze to jiz musel nekdo a mozna i v konferenci resit. Bohuzel jsem to pri hledani podle predpokladanych klicu nenasel. Takze:
XP maji standardne vetsi zahlavi okna, a jeste je mozno tuto vysku zvetsit. Je pak tedy mozne ze nektere nemaximalizovane formulare vytvorene s predpokladem vysky zahlavi ve w95,98,2k se spatne zobrazi s pouzitim motivu xp (zobrazi se scrollbary).
V soucasne chvili jsem to vyresil tak ze jsem si zapnul implicitni motiv xp a vsechny formulare rucne opravil tak aby vyska odpovidala motivum xp.
Neexistuje nejake programatorske reseni? Neresi to treba D2005 tak se se vyska TFormu pocita bez zahlavi?
windows xp, D5
Dikes
Martin
Jak sifruje CAPICOM
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 6.9.2005 10:41:00
Ahoj vsichni
Zajimalo by me nasledujici. Mam text. Zasifruju jej a vlozim do textu nejakeho tagu v XML. uvnitr tohoto tagu jsou konce radku (tj #13#10) Maji tyto znaky nejaky vyznam, nebo je muzu beztrestne vynechat?
Jaromir Cermak
D5 a preklady do jinych jazyku
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.9.2005 09:16:50
Jan Fiala dne 5 Sep 2005 v 15:03:
> Pro D5 je to stejne. A Localizator (nevim jestli verze 3) podle mne
> podporuje i tento zpusob prekladu. Principem je nacist DLL s resourci
> (viz zdroj v tom prikladu)
Tak jeste jednou diky moc za nakopnuti spravnym smerem! Lokalizator opravdu vytvari knihovny,
ktere se takto daji pouzit.
Zajimave je, ze demo RichEdit mi pod D5 ani D6 nefunguje spravne (evidentne se udela nejaky zmatek
ve zdrojich, protoze to prelozene texty zobrazuje naprosto zmatene, vzdy to vytahne jiny text, nez
jaky tam patri), ale v me aplikaci to funguje jak ma. Jupi! :) Takze kdyby to nekdo resil, staci v
podstate pouzit unitu ReInit.pas z dema RichEdit.
Karel Rys
podivny deadlock na Firebirdu
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 6.9.2005 08:54:49
Limbo jsem kontroloval, nebyly, poskozenou DB jsem se pokousel odhalit tim
zalohovanim a obnovenim, otazkou je, jestli to staci... (po obnoveni problem
pretrvaval)
Tomas
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 05, 2005 12:33 PM
Subject: Re: podivny deadlock na Firebirdu
> To vypada bud na limbo transakce, nebo poskozenou DB.
>
> Slavek
>
>
podivny deadlock na Firebirdu
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 6.9.2005 08:52:48
----- Original Message -----
From: "Jakub Dusek" <conference(zv)corexpert.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 05, 2005 7:29 PM
Subject: Re: podivny deadlock na Firebirdu
> Jen bych to upresnil (doufam ze spravne vzhledem k Firebirdu, vychazim
> ze svych zkusenosti s Oraclem). Deadlock nevznikne pokud dve session
> meni stejny radek (protoze ta prvni si ho zamkne a ta druha korektne
> ceka na uvolneni),
no to v pripade "nowait" neplati, neceka se na uvolneni, exception vypadne
hned, jestli se teda nepletu...
Tomas
OT: reldp, problem se sifrovanim
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 6.9.2005 07:14:41
Ahoj vsichni
Moc prosim o radu. Vytvarim program, ktery komunikuje s vladnim portalem, uz se mi konecne podarilo vnutit zpravu, kterou prijme, jako syntakticky spravnou. Mam ale problem, vraci mi, chybove hlaseni, i e-mailem, ze se mu Nepodarilo desifrovat data. Sifrovani provadim takto:
try
myStore:=CreateOleObject('CAPICOM.store');
encData:=CreateOleObject('CAPICOM.EnvelopedData');
//tady to musis projit a najit ten certifikat kterej ma v nazvu cssz
myStore.Open(2,'AddressBook',0);
for i:=1 to myStore.Certificates.Count do
if (Pos('cssz', myStore.Certificates.Item[I].SubjectName) > 0) then
begin
myCert := myStore.Certificates.Item[I];
ShowMessage(myCert.SubjectName);
end;
encData.Algorithm.KeyLength:=0; //maximum
encData.Algorithm.Name:=3; // 3DES
lwsPom:=xmldRELDP.XML.Text;
while Pos(#13#10,lwsPom)>0 do
Delete(lwsPom,Pos(#13#10,lwsPom),2);
encData.Content:=lwsPom;//vymenaData je string kterej obsahuje XML dat. vetu
encData.Recipients.Add(myCert);
ZData:=encData.encrypt(0);
Result:=True;
except
end;
myStore.Close;
Nevite kde delam chybu?
Napada me a zkousel jsem: Konverzi StringToWideString pred sifrovanim, podle prikladu ktery uvadel tusim Petr Zahradnik v Belohrade.
Nejaky problem z kodovanim cestiny.
Problem zpusobeny tim, ze ze sifrovaneho radku vymazu konce radku #13#10.
Neco jineho.
JESTLI VITE CO DELAM SPATNE. PROSIM PORADTE. DEKUJI. Jaromir Cermak
Jak na odbc
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 5.9.2005 21:53:59
5.9.2005 Petr Berek:
> Zdravim konferu,
> nevite nekdo o nejakych materialech, ktere by popisovali propojeni delphi a
> odbc? Diky
Pokud myslis pouzit ODBC v Delphi, tak doporucuji nativni komponenty
ODBCe. Pokud budes potrebovat dalsi informace a materialy, zkus
kontaktovat autora - Lubo Fule
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Jak na odbc
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 5.9.2005 20:19:52
Zdravim konferu,
nevite nekdo o nejakych materialech, ktere by popisovali propojeni delphi a
odbc? Diky
podivny deadlock na Firebirdu
[*] Jakub Dusek <conference(zv)corexpert(tec)com> - 5.9.2005 19:29:49
Jen bych to upresnil (doufam ze spravne vzhledem k Firebirdu, vychazim
ze svych zkusenosti s Oraclem). Deadlock nevznikne pokud dve session
meni stejny radek (protoze ta prvni si ho zamkne a ta druha korektne
ceka na uvolneni), ale pokud dve session meni stejne radky, ale v
ruznem poradi. Klasicky priklad:
CAS 1
-----
Session 1 - updatne a zamkne si radek 1
Session 2 - updatne a zamkne si radek 2
CAS 2
-----
Session 1 - pokusi se o update radku 2
Session 2 - pokusi se o update radku 1
CAS 3
-----
Session 1 - ceka az session 2 uvolni radek 2 pro editaci
Session 2 - ceka az session 1 uvolni radek 1 pro editaci
= DEADLOCK, protoze session uvolni radek az po commitu, ke kteremu ale
nedojde, protoze jeji akci blokuje druha session.
Takze na tohle bych se soustredil pri hledani problemu. Jeste jsem se
nesetkal s tim kdy by deadlock nebyl zpusoben chybou v kodu :)
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, September 5, 2005, 11:57:09 AM, you wrote:
SS> Dve aplikace meni soucasne stejny radek DB.
SS> Slavek
postMessage
[*] Votava <mail(zv)votavasw(tec)com> - 5.9.2005 17:49:41
samozrejme, opraveno, vse funkcni, dekuji zdvorile,
s pozdravem Votava
Petr Fejfar napsal(a):
> Votava wrote:
>
>
>>appMessage ve formu ji vsk odchytim osmkrat, at mam handled false
>>nebo true, nevite co s tim?
>
>
> A neposilas si ji misto na Application.MainForm.Handle na HWND_BROADCAST?
>
> pf
>
>
>
>
> .
>
postMessage
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.9.2005 17:15:38
Votava wrote:
> appMessage ve formu ji vsk odchytim osmkrat, at mam handled false
> nebo true, nevite co s tim?
A neposilas si ji misto na Application.MainForm.Handle na HWND_BROADCAST?
pf
Delphi + TExcelApplication
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 5.9.2005 17:03:37
pro ilustraci (funkcni celek)
uses ..... , ExcelXP;
procedure fill;
var
filename:string;
ExcelApp: TExcelApplication;
wkBook: _WorkBook;
wkSheet: _WorkSheet;
begin
Filename:= 'C:\pokus.xls'; //sablona
ExcelApp := TExcelApplication.Create(nil); //vytvoreni Excelu
ExcelApp.Visible[0]:=false;
ExcelApp.Connect;
ExcelApp.Workbooks.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam,EmptyParam, EmptyParam, 0);
wkBook := ExcelApp.Workbooks.Item[1];
wkSheet := wkBook.Sheets[1] as _WorkSheet;
wkSheet.Cells.Item[3, 3].value:='pepa';
ExcelApp.Save;
ExcelApp.Quit;
ExcelApp.Disconnect;
end; ... otevre Excel (najde-li ho ... neosetreno), pripoji se k nemu, otevre sablonu, najde 1. workbook, najde na nem 1. sheet, zapise do urcene bunky, ulozi, zavre, odpoji ...
jednodusseji to imho neslo.
P.S.
taky by se mi obcas hodily takovehle napovedy :)))
Milan
D7 Ent., WinXP SP2
-----Original Message-----
v zalozkach Server jsem objevil komponenty pro MSOffice,
> konkretne TExcelApplication, TExcelWorkSheet a TExcelWorkBook
> ... rad bych z Delphi zalozil ExcelSheet (resp. otevrel jiz
> existujici soubor), poupravil par bunek, ulozil jako .... a
Delphi + TExcelApplication
[*] Michel Rabadi <michel(zv)asex(tec)cz> - 5.9.2005 16:55:36
> Ahoj lidi,
> v zalozkach Server jsem objevil komponenty pro MSOffice,
> konkretne TExcelApplication, TExcelWorkSheet a TExcelWorkBook
> ... rad bych z Delphi zalozil ExcelSheet (resp. otevrel jiz
> existujici soubor), poupravil par bunek, ulozil jako .... a
Par zajimavosti je treba tady
http://www.djpate.freeserve.co.uk/AutoExcl.htm
M.Delphi + TExcelApplication
[*] mydelphiconf(zv)centrum(tec)cz - 5.9.2005 16:19:33
Ahoj lidi,
v zalozkach Server jsem objevil komponenty pro MSOffice, konkretne TExcelApplication, TExcelWorkSheet a TExcelWorkBook ... rad bych z Delphi zalozil ExcelSheet (resp. otevrel jiz existujici soubor), poupravil par bunek, ulozil jako .... a vytiskl. Ale nejak si s tim nevim rady, DelphiHelp ze mne prilis moudreho taky neudelal ... nemuze mi nekdo helpnout? (staci url s prikladem ... dost by mi to pichlo ..)
diky
P.
D7, WinXP
zacatecnik
postMessage
[*] Votava <mail(zv)votavasw(tec)com> - 5.9.2005 16:09:32
dobry den,
z threadu si do aplikace posilam vlastni message (mam ji zaregistrovanou
pomoci RegisterWindowMessage), v aplikaci ji odchytavam pomoci
appMessage, poslu-li jednou postMessage z vlakna, v appMessage ve formu
ji vsk odchytim osmkrat, at mam handled false nebo true, nevite co s tim?
s pozdravem Votava D5Pro winXPPro
D5 a preklady do jinych jazyku
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 5.9.2005 15:03:27
5.9.2005 Karel Rys:
> Omlouvam se, neprelozil, jsem tele :) Ted jsem je tedy uz prelozil, pro jistotu zkopiroval
> vysledne soubory do stejne slozky jako richedit.exe. Vysledkem je, ze to funguje dost podivne -
> jazyk se prepne, napisu par pismen a pri pokusu o zavreni to napise dotaz nadepsany "&Alle nein",
> text dotazu zadny, a mam si vybrat, zda Alle ja, Ruck nebo Esc. Preklady tedy sice funguji, ale
> prijde mi, ze je nejaky zmatek v resourcich. Kazdopadne to
> podtrebuju pro D5, tak zkusim jeste
> studovat.
Pro D5 je to stejne. A Localizator (nevim jestli verze 3) podle mne
podporuje i tento zpusob prekladu.
Principem je nacist DLL s resourci (viz zdroj v tom prikladu)
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
D5 a preklady do jinych jazyku
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.9.2005 14:55:26
Jan Fiala dne 5 Sep 2005 v 14:43:
> A prelozil jsi i ty jazykove knihovny ?
> Otevri si
> \Program Files\Borland\Delphi7\Demos\RichEdit\richedit.bpg,
> prekompiluj i jazykove knihovny a pak to vyzkousej znovu.
Omlouvam se, neprelozil, jsem tele :) Ted jsem je tedy uz prelozil, pro jistotu zkopiroval
vysledne soubory do stejne slozky jako richedit.exe. Vysledkem je, ze to funguje dost podivne -
jazyk se prepne, napisu par pismen a pri pokusu o zavreni to napise dotaz nadepsany "&Alle nein",
text dotazu zadny, a mam si vybrat, zda Alle ja, Ruck nebo Esc. Preklady tedy sice funguji, ale
prijde mi, ze je nejaky zmatek v resourcich. Kazdopadne to podtrebuju pro D5, tak zkusim jeste
studovat.
Diky,
Karel Rys
D5 a preklady do jinych jazyku
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 5.9.2005 14:43:25
5.9.2005 Karel Rys:
> Jan Fiala dne 5 Sep 2005 v 9:54:
>> Pokud mas lokalizaci udelanou pomoci DLL knihoven je to mozne prepinat
>> za behu. Podivej se na demo: \Program
>> Files\Borland\Delphi7\Demos\RichEdit
> Ahoj,
> no mam tu jen D5 Pro a D6 Pro. V D6 Pro jsem nasel to same demo, ale kdyz ve spustene aplikaci
> kliknu, ze to chci francouzsky nebo nemecky, nestane se vubec nic a vse je dal v puvodnim jazyce.
> To umim taky, ale tak to nechci :)
A prelozil jsi i ty jazykove knihovny ?
Otevri si
\Program Files\Borland\Delphi7\Demos\RichEdit\richedit.bpg,
prekompiluj i jazykove knihovny a pak to vyzkousej znovu.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
D5 a preklady do jinych jazyku
[*] Cejka Pavel <cejka(zv)proteco(tec)cz> - 5.9.2005 14:29:24
Ahoj,
pravdebodobne jsi neprovedl build projektu v adresarich Deu, Enu a Fra. Tim
padem nemas dostupne prislusne lokalizovane DLL.
Pavel
>no mam tu jen D5 Pro a D6 Pro. V D6 Pro jsem nasel to same demo, ale kdyz
ve
>spustene aplikaci kliknu, ze to chci francouzsky nebo nemecky, nestane se
vubec nic a vse je
>dal v puvodnim jazyce.To umim taky, ale tak to nechci :)
>Karel Rys
D5 a preklady do jinych jazyku
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.9.2005 14:11:22
Jan Fiala dne 5 Sep 2005 v 9:54:
> Pokud mas lokalizaci udelanou pomoci DLL knihoven je to mozne prepinat
> za behu. Podivej se na demo: \Program
> Files\Borland\Delphi7\Demos\RichEdit
Ahoj,
no mam tu jen D5 Pro a D6 Pro. V D6 Pro jsem nasel to same demo, ale kdyz ve spustene aplikaci
kliknu, ze to chci francouzsky nebo nemecky, nestane se vubec nic a vse je dal v puvodnim jazyce.
To umim taky, ale tak to nechci :)
Karel Rys
Maximalni pocet balicku v projektu
[*] Ing. Pavel Zilinec <pavel.zilinec(zv)seznam(tec)cz> - 5.9.2005 13:17:18
Ahojte,
mame rozsahlu (opravdu rozsahlou) aplikaci, kde vyuzivame balicku.
Jejich pocet se nam rozrostl na 100 a mame je vsechny pro hromadny
preklad zarazene v jednom projektu.
Dokud jich bylo 99, tak bylo vse OK, ale ted ten projekt ani
nenacteme, pokud nemame update 1_1. A kdyz ho mame, tak to pri
pokusu o preklad zacne hlasit 'Access violation ..dcc70.dll'.
Neradi bychom rozdelovali balicky do 2 projektu, nevite tedy nekdo o
tomto problemu a jak jej vyresit?
Rozhodne to nebude chybou v nekterem z balicku, pze staci vyhodit
jakykoliv (i starsi) balicek a je to zase OK.
D7Ent, WinXP SP2
--
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
podivny deadlock na Firebirdu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 5.9.2005 12:33:14
To vypada bud na limbo transakce, nebo poskozenou DB.
Slavek
> No dobra tohleto chapu, ale restartuju server, pustim jen
> jednu aplikaci provadim souhrn operaci pod urcitou transakci
> a bac ho...
>
> Navic jen kdyz menim udaje tykajiciho se jen jednoho
> konkretniho zakaznika, zvolim-li jineho zakaznika jehoz udaje
> edituju (nad skupinou tabulek, nejake SP atd. - tech zmen je
> vic v ramci transakce) tak to je OK. Podotykam, ze aplikace
> jede v ostrem provozu jiz skoro rok a bez jedineho problemu
> tohoto typu. Kriticka data jsem "rucne" odmazal a vytvoril je
> znova a vse jede zase OK, dokonce i stejne operace se stejnym
> zakaznikem, ktery predtim vykazoval deadlock.podivny deadlock na Firebirdu
[*] t.bradle(zv)sanet(tec)cz - 5.9.2005 12:21:13
No dobra tohleto chapu, ale restartuju server, pustim jen jednu aplikaci provadim souhrn operaci pod urcitou transakci a bac ho...
Navic jen kdyz menim udaje tykajiciho se jen jednoho konkretniho zakaznika, zvolim-li jineho zakaznika jehoz udaje edituju (nad skupinou tabulek, nejake SP atd. - tech zmen je vic v ramci transakce) tak to je OK. Podotykam, ze aplikace jede v ostrem provozu jiz skoro rok a bez jedineho problemu tohoto typu. Kriticka data jsem "rucne" odmazal a vytvoril je znova a vse jede zase OK, dokonce i stejne operace se stejnym zakaznikem, ktery predtim vykazoval deadlock.
Tomas
> Dve aplikace meni soucasne stejny radek DB.
> Hlavni problem je v navrhu DB, proste se vyhnout
> situacim, kdy vice aplikaci meni ty same radky, nebo s tim proste
> pocitat a pustit vypocet znovu, nad novou verzi radku.
>access violation ... in module bordbk50.dll
[*] Votava <mail(zv)votavasw(tec)com> - 5.9.2005 12:09:12
dobry den,
toto se mi posledni dobou stava na notebooku s WinXPProSP2, D5Pro,
jedine reseni ktere jsem na ruznych forech nasel, je preinstalovat D5,
nechtelo se mi do toho, rad bych nasel pricinu, ale vymekl jsem a
reinst. provedl, ovsem problem je tu opet,
setkal jste se s tim nekdo?
S pozdravem Votava
.podivny deadlock na Firebirdu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 5.9.2005 11:57:09
Dve aplikace meni soucasne stejny radek DB.
Hlavni problem je v navrhu DB, proste se vyhnout
situacim, kdy vice aplikaci meni ty same radky, nebo s tim proste
pocitat a pustit vypocet znovu, nad novou verzi radku.
Slavek
> read_committed,rec_version,nowait. Chapu, ze se prece jenom
> nekdy deadlock vyskytnout muze, ale restartoval jsem server,
> provedl backup a restore - chyba zustava. Co by to mohlo
> zpusobovat ? Jak se tomu vyvarovat ? Jak to resit ?podivny deadlock na Firebirdu
[*] t.bradle(zv)sanet(tec)cz - 5.9.2005 11:47:07
Zdravim vsechny,
mam normalne fungujici (vice nez pul roku) skupinu aplikaci pracujici nad spolecnou databazi Firebird (v.1.5.2). Ted se mi stalo, ze mi vybehla pri provadeni ulozene procedury chyba typu deadlock. Pouzivam striktne u vsech transakci: read_committed,rec_version,nowait. Chapu, ze se prece jenom nekdy deadlock vyskytnout muze, ale restartoval jsem server, provedl backup a restore - chyba zustava. Co by to mohlo zpusobovat ? Jak se tomu vyvarovat ? Jak to resit ?
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
ADMIN: Delphi Collection 2005
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.9.2005 11:07:03
Puvodni zprava ze dne 5.9.2005:
> Popularni kolekce DVD byla aktualizovana a rozsirena na nyni jiz tri
> DVD. Obsahuje mnozstvi aplikaci, utilit a kompomemt pro programovaci
> prostredky firmy Borland: Delphi, C++Builder, Kylix a nove i pro
> .NET
Co to je tohle za reklamni bordel? To snad neni mozny...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Delphi Collection 2005
[*] JM <jan.masek(zv)mcu(tec)cz> - 5.9.2005 10:29:00
Popularni kolekce DVD byla aktualizovana a rozsirena na nyni jiz tri DVD.
Obsahuje mnozstvi aplikaci, utilit a kompomemt pro programovaci prostredky
firmy Borland: Delphi, C++Builder, Kylix a nove i pro .NET
http://www.mcu(tec)cz/modules/news/article.php?storyid=512
J.Masek
HDD a S.M.A.R.T.
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 5.9.2005 10:26:59
zdravim
nemate nekdo komponentu ktera umi cist S.M.A.R.T. informace z hardu?D5 a preklady do jinych jazyku
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 5.9.2005 09:54:57
5.9.2005 Karel Rys:
> Zdravim,
> pomoci Lokalizatoru ver. 3 jsme udelali preklad aplikace do nemciny a ted resime nasledujici: do
> aplikace se hlasi uzivatele svym jmenem a heslem. U kazdeho uzivatele je zapsano, jakou reci
> mluvi. Chtel bych docilit toho, ze kdyz se napr. odhlasi cesky hovorici uzivatel a prihlasi se
> uzivatel mluvici nemecky, prepne se aplikace do nemciny. Tohle mi dobre funguje u vsech hodnot a
> ciselniku, ktere se tahaji z databaze, ale nedari se mi aplikaci primet, aby za behu zacala
> pouzivat .DE soubor se zdroji. I v souboru transl.pas je uvedeno, ze aplikaci je nutne
> restartovat. Nepodarilo se Vam nekomu prijit na cesticku, jak jazyk zmenit za behu bez nutnosti
> restartu aplikace?
Pokud mas lokalizaci udelanou pomoci DLL knihoven je to mozne prepinat
za behu.
Podivej se na demo:
\Program Files\Borland\Delphi7\Demos\RichEdit
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
D5 a preklady do jinych jazyku
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.9.2005 08:06:45
Zdravim,
pomoci Lokalizatoru ver. 3 jsme udelali preklad aplikace do nemciny a ted resime nasledujici: do
aplikace se hlasi uzivatele svym jmenem a heslem. U kazdeho uzivatele je zapsano, jakou reci
mluvi. Chtel bych docilit toho, ze kdyz se napr. odhlasi cesky hovorici uzivatel a prihlasi se
uzivatel mluvici nemecky, prepne se aplikace do nemciny. Tohle mi dobre funguje u vsech hodnot a
ciselniku, ktere se tahaji z databaze, ale nedari se mi aplikaci primet, aby za behu zacala
pouzivat .DE soubor se zdroji. I v souboru transl.pas je uvedeno, ze aplikaci je nutne
restartovat. Nepodarilo se Vam nekomu prijit na cesticku, jak jazyk zmenit za behu bez nutnosti
restartu aplikace?
Diky,
Karel Rys
thread & synchronize
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 4.9.2005 08:31:07
>> >> FSource^.List.SaveToStream(Stream);
>> > Vyuziva-li kolekci List i thread FSource, musis zajistit, ze s ni bude
>> > pracovat v jeden okamzik jen jeden thread, napriklad pomoci kritickych
>> > sekci.
>>
>> Tohle jsem nepochopil - kdyztak popis vic nazorne o co jde.
>
> Jde o to, ze se muze stat, ze soucasne bude thread TCountThread a
> TLoadThread pracovat s kolekci List (FSource^.List). V takovem pripade ti
> nejspis spadne cela aplikace. Musis nejakym zpusobem synchronizot pristup
> napriklad pomoci kritickych sekci. Vic se doctes v napovede.
teprve kdyz CountThread dokonci generovani dat (tedy veskerou svou cinnost)
posle hlavnimu formulari zpravu - ten v tomto okamziku vytvori LoadThread
ktery jiz (bezpecne) muze s daty vynalozit - v tomto ohlednu zde ocividne
nema smysl vyuzit popisovaneho mechanismu ale chapu oc jde a v nejblizsi
dobe se zasvetim thread & synchronize
[*] Tomas Juricek <krusty(zv)razdva(tec)cz> - 4.9.2005 08:23:06
> >> FSource^.List.SaveToStream(Stream);
> > Vyuziva-li kolekci List i thread FSource, musis zajistit, ze s ni bude
> > pracovat v jeden okamzik jen jeden thread, napriklad pomoci kritickych
> > sekci.
>
> Tohle jsem nepochopil - kdyztak popis vic nazorne o co jde.
Jde o to, ze se muze stat, ze soucasne bude thread TCountThread a
TLoadThread pracovat s kolekci List (FSource^.List). V takovem pripade ti
nejspis spadne cela aplikace. Musis nejakym zpusobem synchronizot pristup
napriklad pomoci kritickych sekci. Vic se doctes v napovede.thread & synchronize
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 4.9.2005 08:11:00
>> PCountThread = ^TCountThread
> Nerozumim tomu, proc si TCountThread predavas jako ukazatel? Trida je
> ukazatel sama o sobe.
Protoze potrebuji vynilovat promennou vlozenou jako parametr konstruktoru -
tedy FreeAndNil(FSource^); - je to nejlepsi reseni - ale o to ted nejde
>> FSource^.List.SaveToStream(Stream);
> Vyuziva-li kolekci List i thread FSource, musis zajistit, ze s ni bude
> pracovat v jeden okamzik jen jeden thread, napriklad pomoci kritickych
> sekci.
Tohle jsem nepochopil - kdyztak popis vic nazorne o co jde.>> FormMain.genNumList.Lines.LoadFromStream(Stream);
> Stream musis premistit do sekce private, aby k nemu mela pristup i nova
> metoda LoadFromStream.
>
> procedure TLoadThread.LoadFromStream;
> begin
> FormMain.genNumList.Lines.LoadFromStream(Stream);
> end;
>
> procedure TLoadThread.Execute;
> begin
> ...
> Synchronize(LoadFromStream);
> ...
> end.
To jsem potreboval vedet - branil jsem se prehozeni promenne Stream primo do
objektu vlakna ... jinak ale procedura Synchronize odmita spolupracovat ...
ve stylu Synchronize(LoadFromStream(Stream)); thread & synchronize
[*] Tomas Juricek <krusty(zv)razdva(tec)cz> - 4.9.2005 07:52:54
> PCountThread = ^TCountThread
Nerozumim tomu, proc si TCountThread predavas jako ukazatel? Trida je
ukazatel sama o sobe.
> FSource^.List.SaveToStream(Stream);
Vyuziva-li kolekci List i thread FSource, musis zajistit, ze s ni bude
pracovat v jeden okamzik jen jeden thread, napriklad pomoci kritickych
sekci.
> FormMain.genNumList.Lines.LoadFromStream(Stream);
Stream musis premistit do sekce private, aby k nemu mela pristup i nova
metoda LoadFromStream.
procedure TLoadThread.LoadFromStream;
begin
FormMain.genNumList.Lines.LoadFromStream(Stream);
end;
procedure TLoadThread.Execute;
begin
...
Synchronize(LoadFromStream);
...
end.
Tomas Juricek
thread & synchronize
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 4.9.2005 06:58:51
prosim o pomoc - vim ze bych mel pouzit ve vlaknu synchronizaci kdyz budu z
vlakna pristupovat do hlavniho vlakna v tomto pripade ke komponente -
posilam celou malinkou unitu threadu ktery jsem napsal pro LOAD dat z jineho
vlakna (CountThread). Vlakna pouzivam sporadicky proto mi prosim napiste dle
vas nejlepsi reseni - nejlepe kod, diky
unit LoadThread;
interface
uses
Windows, Messages, SysUtils, Classes, CountThread;
const
WM_STOPLOAD = WM_USER + 3;
type
PCountThread = ^TCountThread;
TLoadThread = class(TThread)
private
FSource: PCountThread;
public
constructor Create(ASource: PCountThread);
destructor Destroy; override;
procedure Execute; override;
end;
implementation
uses
Main;
constructor TLoadThread.Create(ASource: PCountThread);
begin
inherited Create(False);
FSource := ASource;
FreeOnTerminate := True;
end;
destructor TLoadThread.Destroy;
begin
FreeAndNil(FSource^);
PostMessage(FormMain.Handle, WM_STOPLOAD, 0, 0);
inherited Destroy;
end;
procedure TLoadThread.Execute;
var
Stream : TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
FSource^.List.SaveToStream(Stream);
Stream.Position := 0;
// - Z D E -
FormMain.genNumList.Lines.LoadFromStream(Stream);
// - Z D E -
finally
Stream.Free;
end;
end;
end.Drag&Drop a tvar kursoru
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 2.9.2005 11:55:50
> ve sve aplikaci resim drag&drop jednak mezi dvema listboxy, jednak i
> na prohazovani polozek v listboxu. Mam to udelane a funguje to dobre.
> Ale behem neseni polozky je zobrazen pouze kurzor crDrag. Ja bych
> chtel realizovat to, abych pri tazeni prenasel opis vybraneho radku z
> listboxu, tj. obdelnicek s textem prenaseneho radku. Muze byt i nejak
> "zamlzen", zasednut apod. Tj. zadny pevny kurzor jako crDrag. Jak se
> toto realizuje?
Ja to resim mozna pracne, ale efektne "plovoucim" panelem, ktery vytvorim a
pak onmousemove tahnu a na miste urceni uvolnim access violation ... in module bordbk50.dll
[*] votavaSW <mail(zv)votavasw(tec)com> - 2.9.2005 10:23:43
dobry den,
toto se mi posledni dobou stava na notebooku s WinXPProSP2, D5Pro,
jedine reseni ktere jsem na ruznych forech nasel, je preinstalovat D5,
nechtelo se mi do toho, rad bych nasel pricinu, ale vymekl jsem a
reinst. provedl, ovsem problem je tu opet,
setkal jste se s tim nekdo?
S pozdravem Votava
Drag&Drop a tvar kursoru
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 2.9.2005 09:37:39
Ahoj,
ve sve aplikaci resim drag&drop jednak mezi dvema listboxy, jednak i
na prohazovani polozek v listboxu. Mam to udelane a funguje to dobre.
Ale behem neseni polozky je zobrazen pouze kurzor crDrag. Ja bych
chtel realizovat to, abych pri tazeni prenasel opis vybraneho radku z
listboxu, tj. obdelnicek s textem prenaseneho radku. Muze byt i nejak
"zamlzen", zasednut apod. Tj. zadny pevny kurzor jako crDrag. Jak se
toto realizuje?
Diky
David Lebeda
Sinea - tisk "Demonstracni verze ..."
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 2.9.2005 09:19:37
> From: Dalibor Faltynek
>
> lze pouzivat nove verze sinea s D5 a BDE?
Ano.
Vaclav Krmela
Sinea - tisk "Demonstracni verze ..."
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 2.9.2005 09:11:37
Ahoj,
lze pouzivat nove verze sinea s D5 a BDE?
Dalik.
----- Original Message -----
From: "Vaclav Krmela" <krmela(zv)ustinadorlici(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, September 02, 2005 9:01 AM
Subject: Re: Sinea - tisk "Demonstracni verze ..."> >
> > Generator sestav Sinea jsme radne zakoupili a zaplatili, vse OK az na
> > problem s exportem do rtf formatu. Dostal jsem radu abych provedl
> upgrade
>
> Je treba rozlisit update a upgrade.
>
> Na webu je v soucasne dobe k dispozici verze X.51.4. Tuto verzi lze
> pouzit jako bezplatny update na vsechny verze pocinaje verzi X.50.0. z
> dubna 2004, tedy na verzi Sinea 2004.
>
> Pro starsi verze je nutne provest placeny upgrade.
>
> Vaclav Krmela
>
>
>
>
>
>
>
Sinea - tisk "Demonstracni verze ..."
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 2.9.2005 09:01:36
>
> Generator sestav Sinea jsme radne zakoupili a zaplatili, vse OK az na
> problem s exportem do rtf formatu. Dostal jsem radu abych provedl
upgrade
Je treba rozlisit update a upgrade.
Na webu je v soucasne dobe k dispozici verze X.51.4. Tuto verzi lze
pouzit jako bezplatny update na vsechny verze pocinaje verzi X.50.0. z
dubna 2004, tedy na verzi Sinea 2004.
Pro starsi verze je nutne provest placeny upgrade.
Vaclav Krmela
Sinea - tisk "Demonstracni verze ..."
[*] Kalhous <kalhous(zv)eu(tec)cz> - 2.9.2005 07:39:30
Generator sestav Sinea jsme radne zakoupili a zaplatili, vse OK az na problem s exportem do rtf formatu. Dostal jsem radu abych provedl upgrade (tim se problem s rtf opravdu odstranil), upgrady jsou ale na webu jako "Demo" verze a od te doby se projevuje dost neprijemna vec - pri primem tisku je v zahlavi stranek podtisk "Demonstracni verze tiskoveho modulu" coz se samozrejme uzivatelum nelibi. Da se s tim delat neco jineho nez jim poradit aby tiskli pres preview (tam ten podtisk neni)?
Z.Kalhous
ToWare s.r.o.
tel.: 466 614 024
access violation ... in module bordbk50.dll
[*] votavaSW <mail(zv)votavasw(tec)com> - 1.9.2005 23:48:57
dobry den,
toto se mi posledni dobou stava na notebooku s WinXPProSP2, D5Pro,
jedine reseni ktere jsem na ruznych forech nasel, je preinstalovat D5,
nechtelo se mi do toho, rad bych nasel pricinu, ale vymekl jsem a
reinst. provedl, ovsem problem je tu opet,
setkal jste se s tim nekdo?
S pozdravem Votava
typ BIGINT v SP na FB
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 1.9.2005 15:46:25
Ahoj,
setkali jste se nekdo s tim, ze nelze pouzit datovy typ BIGINT/NUMERIC(18,0)
v ulozene procedure? Spojuji v SP data z vice tabulek (union), pokud na to
jdu standardnim view, neni problem s CAST(XXX as BIGINT).
V SP ale nelze pouzit ani CAST(XXX as BIGINT), ani primo pracovat s polem
tohoto typu. Projde ale CAST(XXX as INTEGER), coz pochopitelne spadne pri
konverzi vetsich cisel.
Obesel jsem to zmenou typu pole v tabulce na DOUBLE PRECISION, ale zajimalo
by me zda o tom nekdo neco nevi; sam jsem se zatim niceho nedopatral :(
MB
Delphi Personal
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 1.9.2005 09:13:44
Potrebuji Delphi Personal (pro vyuku) a zjistil jsem, ze jedina moznost, jak jej ziskat je z DVD z casopisu Chip 05/2005. Mate nekdo prosim toto dvd a byli byste ochotni mi z nej vypalit Delphi Personal a dobirkou poslat? Odpovedi prosim smerujte mimo konferenci na email dostal(zv)agnis(tec)cz.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5
zmena focusu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 1.9.2005 09:09:42
> Zdravim
> Pls aka proceura/funkcia je volana pri zmene focusu okna?
> Dik
Muzes obslouzit zpravu:
procedure CMFocusChange(var Msg: TCMFocusChanged); message CM_FOCUSCHANGED;
MB
zmena focusu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 1.9.2005 08:31:37
> Pls aka proceura/funkcia je volana pri zmene focusu okna?
Ted nemam pustene Delphi, ale bud v TScreen nebo TApplication je
event - jak na zmenu aktivniho formu, tak i na zmenu aktivniho prvku.
Takze jukni do helpu, jiste to hned presne najdes.
David Lebeda
zmena focusu
[*] Tomas Blazek <tomas.blazek(zv)pse.sk> - 31.8.2005 19:04:38
Zdravim
Pls aka proceura/funkcia je volana pri zmene focusu okna?
Dik
excel + nova stranka
[*] Vlastimil Zdenek <vlastimil.zdenek(zv)seznam(tec)cz> - 31.8.2005 17:52:33
Zdravim vsechny,
prosim o radu:
z delphi plnim excel soubor. Soubor muze mit nekolik stranek, radky nejsou stejne vysoke. Na konec souboru prijde rekapitulace. Tu bych chtel mit vzdy pohromade - na jedne strance. Jak zjistim, kde pjem skoncil pred rekapitulaci na strance? Radky spocitat nemohu(jsou ruzne vysoke). Excel mi po priview nakresli prerusovanou caru, kde je konec stranky. A prave jeji pozici bych chtel zjistit...
Diky moc vsem za radu....
Vlasta, D5, Office2003
Komponenta pro SQL script
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 31.8.2005 17:28:31
On 31 Aug 2005 at 16:54, horky(zv)cominn(tec)cz wrote:
> Muzes to nejak naznacit ? SQL scripty pouzivame nejen na vkladani vet
> do DB po vytvoreni, ale take na Create/Alter Procedure, atd. Vlastne
> popis vsech objektu databaze mame v jednom scriptu a jeho vykonanim se
> provede instalace do nove vytvorene DB.
na soukr. mail ti posilam kus kodu.
Jarek U.
Komponenta pro SQL script
[*] horky(zv)cominn(tec)cz - 31.8.2005 16:54:28
> From: Jaroslav Uher [mailto:jarek(zv)iuher(tec)cz]
> Sent: Wednesday, August 31, 2005 3:46 PM
> > Muzete mi poradit nejakou komponentu pro zpracovani SQL scriptu ve
> > spojitosti s komponentami FIBPlus ? Nemusi byt zadarmo.
>
> nemusis nic prikupovat, vse se da jednoduse resit v FIBPlus.
> Staci ti k tomu TpFIBQuery.
Muzes to nejak naznacit ? SQL scripty pouzivame nejen na vkladani vet do DB po vytvoreni, ale take na Create/Alter Procedure, atd.
Vlastne popis vsech objektu databaze mame v jednom scriptu a jeho vykonanim se provede instalace do nove vytvorene DB.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Komponenta pro SQL script
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 31.8.2005 15:46:24
On 31 Aug 2005 at 14:02, horky(zv)cominn(tec)cz wrote:
> Zkousim nyni trial verzi FIBPlus komponent pro pristup na Firebird v
> 1.5.2. Komponenty se jevi dobre, ale chybi mezi nimi nejaka pro SQL
> scripty.
> Otazka:
> Muzete mi poradit nejakou komponentu pro zpracovani SQL scriptu ve
> spojitosti s komponentami FIBPlus ? Nemusi byt zadarmo.
nemusis nic prikupovat, vse se da jednoduse resit v FIBPlus.
Staci ti k tomu TpFIBQuery.
My je pouzivame s D6P uz asi rok a pul, k plne spokojenosti.
V porovnani s IBX jsou i rychlejsi.
Budes si jen muset zvyklou na ponekud jine nazvy komponent.
Neco jsem pred casem pripravoval pro http://www.dbsvet(tec)cz
Jarek Uher
Komponenta pro SQL script
[*] horky(zv)cominn(tec)cz - 31.8.2005 14:02:14
Zdravim vsechny !
Zkousim nyni trial verzi FIBPlus komponent pro pristup na Firebird v 1.5.2.
Komponenty se jevi dobre, ale chybi mezi nimi nejaka pro SQL scripty. Na www.Devrace.com maji odkazy na 2 komponenty FIBScript, ale jedna nefunguje spravne ('SET NAMES WIN1250' povazuje za nespravny statement) a druha nejde nainstalovat (ve vsech 4 trial zipech jsou pouze *.dcu a dpk, ale pri instalaci/kompilaci to vyzaduje *.pas).
Otazka:
Muzete mi poradit nejakou komponentu pro zpracovani SQL scriptu ve spojitosti s komponentami FIBPlus ? Nemusi byt zadarmo.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Rozpoznani IP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 31.8.2005 11:44:04
> Dekuji za odpoved, abych mohl uplne odstrelit ty Indy, potrebuju jeste
> vedet, jestli v Sinea je nejaka metoda, ktera mi vrati jmeno/IP proxy
> serveru, je-li ten k dispozici (aby uzivatel nemusel tukat rucne, ale
> mohl tlacitkem nacist ze systemu). Staci nazev.
Kdyz uz koukas do te Synapsi dokumentace, tak se tam porozhledni...
viz:
http://synapse.ararat(tec)cz/docs/help/synamisc.html
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Rozpoznani IP
[*] MaReK OlL?avskA? <orsm(zv)centrum(tec)cz> - 31.8.2005 11:12:00
Lukas Gebauer napsal(a):
> V synapsi muzes prelozit jmeno na seznam adres, nebo adresu na jmeno.
> viz:
>
> http://synapse.ararat(tec)cz/docs/help/blcksock.TBlockSocket.html#ResolveI
> PToName
>
> http://synapse.ararat(tec)cz/docs/help/blcksock.TBlockSocket.html#ResolveN
> ameToIP
Dekuji za odpoved, abych mohl uplne odstrelit ty Indy, potrebuju jeste
vedet, jestli v Sinea je nejaka metoda, ktera mi vrati jmeno/IP proxy
serveru, je-li ten k dispozici (aby uzivatel nemusel tukat rucne, ale
mohl tlacitkem nacist ze systemu). Staci nazev.
Dekuji
MaReK Olsavsky
BTW: Pro pana Zahradnika - nejde z konfery odstranit restrikci na non
iso-8859-1 znaky? Tohle je jedina konfera, ve ktery jsem (java, Python,
Mandrake), kde to zlobi a mit extra podpis a odhackovane jmeno kvuli
jedny konfere se mi fakt nechce ;-)
- --
MaReK "Penguin" Ol+AWE-avsk+AP0-
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +-420-603-519-650; +-420-775-154-689 (775-1-LINUX)
Na str+AOE-nce bylo naps+AOE-no: "Optimalizov+AOE-no pro Explorer 5, nebo lep+AWEA7Q-".
Tak jsem p+AVk-e+AWE-el na Mozilla Firefox --> http://firefox(tec)czilla(tec)cz/
OT: Poptavka zamestnani programator Delphi
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 31.8.2005 09:33:53
Dobry den,
muj byvaly kolega Jaroslav Rocek hleda zamestnani a s jeho souhlasem
pisu do teto konference. On neni v soucasne dobe prihlaseny.
Pracoval jsem s nim nekolik let a tak pripojuji i nektere osobni postrehy.
Znalosti:
* Velmi dobre znalosti Delphi, praxe 10 let.
* Naprosto jedinecne schopnosti prace s SQL, zejmena Microsoft SQL. Je
schopny napsat ucetni uzaverku ve stored procedure, optimalizovat
rychlost zpracovani dat z hodiny na 2 minuty atd.
* Velmi spolehlivy a zodpovedny.
Blizsi informace, pozadavky na zaslani zivotopisu a dalsi kontakty
prosim na sopukromy mail jarda.rocek(zv)quick(tec)cz
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Rozpoznani IP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 31.8.2005 09:11:51
> jenze mi to jaxi neprojde, pri chodu teto casti kodu mi Delphi (Win)
> vygneruji chybu "Abstract Error", be dalsiho popisu.
> Potrebuji se zeptat, jestli je nekde treba nejaky dalsi kod, nebo
> jestli toto resi i Synapse (zatim vim, ze existuje, ale nepo(u)zival
> jsem ji). btw: Umi neco i obraceny postup? Z IP udelat nazev?? Asi ne
> vzhledem ke sdileni IP adres.
V synapsi muzes prelozit jmeno na seznam adres, nebo adresu na jmeno.
viz:
http://synapse.ararat(tec)cz/docs/help/blcksock.TBlockSocket.html#ResolveI
PToName
http://synapse.ararat(tec)cz/docs/help/blcksock.TBlockSocket.html#ResolveN
ameToIP
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.