Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Firebird, jak hlasit chybejici Commit?
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 15.7.2007 15:46:01
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jiri Sladek
> Sent: Sunday, July 15, 2007 3:38 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Firebird, jak hlasit chybejici Commit?
>
> Zdravim uzivatele Firebirdu, prosim o nasmerovani.
> Potrebuji otestovat, jestli je aplikace ve stavu 'byl
> proveden Post, ale
> nebyl proveden CommitRetaining'.
> Chci to mit jako pojistku proti chybe programatora, pokud programator
> zapomene nekam dat CommitRetaining.
if Transakce.InTransaction then
...
Viz help:
Indicates whether a database transaction is in progress or not.
Delphi syntax:
property InTransaction: Boolean;
C++ syntax:
__property bool InTransaction = {read=GetInTransaction, nodefault};
Description
Examine InTransaction at run-time to determine if a database transaction is
currently in progress. InTransaction is true if a transaction is in
progress, false otherwise.
The value of InTransaction cannot be changed directly. Calling
StartTransaction sets InTransaction to true. Calling Commit or Rollback sets
InTransaction to false.Firebird, jak hlasit chybejici Commit?
[*] Jiri Sladek <sladek(zv)czhops(tec)cz> - 15.7.2007 15:38:00
Zdravim uzivatele Firebirdu, prosim o nasmerovani.
Potrebuji otestovat, jestli je aplikace ve stavu 'byl proveden Post, ale
nebyl proveden CommitRetaining'.
Chci to mit jako pojistku proti chybe programatora, pokud programator
zapomene nekam dat CommitRetaining.
Moje aplikace pouziva jen jednu komponentu TIBDatabase a jednu
TIBTransaction, na 'hlavnim' datovem modulu.
Na te 'hlavni' transakci mam nastaveno TARollbackRetaining, takze pripadne'
ne-commitovane zmeny jsou tise zahozeny pri ukoncovani aplikace.
Kdyz nastavim TACommitRetaining, tak dosahnu opacneho chovani -
ne-commitovane zmeny jsou tise ulozeny pri ukoncovani aplikace.
Ja bych chtel, aby se popsane akce neprovedly tise, ale nahlas. Aby aplikace
pri ukoncovani ohlasila - POZOR, NEBYL PROVEDEN COMMIT NEBO ROLLBACK.
Programator by byl takto varovan uz pri testovani aplikace, a mohl by to
opravit.
Dekuji.
Jiri Sladek
sladek zavinac czhops tecka cz
D5pro,
FB2.0
IB komponenty, ktere jsou soucasti D5pro
Soubory .ALS pro context sensitive help
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 14.7.2007 15:30:26
Dobry den,
D7Ent, WXP Prof.
Mam nekolik baliku komponent, ke kterym bych potreboval zprovoznit
kontextovou napovedu v IDE. Mam potrebne soubory .CNT a .HLP, nemam
odpovidajici soubory .ALS. Nevite prosim nekdo, jak .ALS soubory vygenerovat
?
Diky za tipy
JiriF
Stare hodnoty fieldu v tabulce (BDE)
[*] Sliva <sliva(zv)csh(tec)cz> - 13.7.2007 15:48:52
Dobry den
lze v Paradox tabulkach v metode BeforePost zjisti jakou melo pole v zaznamu hodnotu predtim nez se editovalo, tedy v okamziku kdyz se zaznam zapl do edit modu...pak se na neco zmenil a ja v beforepost potrebuji novou hodnotu srovnat s starou (vim ze to lze pres pomocnou promenu pri naplneni pri AfterEnter..ale mam hodne policek), tak hledam neco obecnejsiho, jestli to nahodou BDE nema nekde zapamatovano v nejake property nebo tak nejak...
Diky
Preji Vam hezky den.
ing Sliva Josef
Vypocet plochy plygonu
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 13.7.2007 11:58:38
> nemate nekdo funkci ktera spocita plochu polygonu? (nebo ji
> obsahuje nejaka unita?)
http://www.efg2.com/Lab/Graphics/PolygonArea.htm
HTH
TOndrej
Vypocet plochy plygonu
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 13.7.2007 11:52:37
Zdravim,
nemate nekdo funkci ktera spocita plochu polygonu? (nebo ji obsahuje nejaka unita?)
Dik, Petr Fiser
OT VCL pro automatizaci a tech. schemata
[*] MUDR. Patrik Valenta <valentapat(zv)volny(tec)cz> - 13.7.2007 09:58:30
koukal(zv)petrkoukal(tec)cz napsal(a):
> Hledam segmentove displeje, led indikatory, teplomery, ventily atd.
>
muzu pomoci s komponentami UDIGIT, (7seg.LED) sam je nak nemuzu najit,
proto je posilam bokem na mail
Delphi for PHP, testovani update #2
[*] rkubat(zv)email(tec)cz - 13.7.2007 09:46:29
CodeGear pracuje na novem update pro Delphi for PHP. Tento update obsahuje vice nez 70 oprav, ktere se dotykaji vetsiny oblasti prace s produktem. Hledaji se ochotnici pro testovani, kteri by chovani nove verze proverili. Nemusite byt vlastnikem Delphi for PHP, takze je to i prilezitost seznamit se s produktem a vejit do kontaktu s vyvojovym tymem.
Mate-li zajem, vyplnte, prosim, formular na strance:
http://www.surveymonkey.com/s.aspx?sm=AsT7NAxv4zC5WYKIaK9pRw_3d_3d
Vsechny zdravi, -- Richard Kubat, Borland s.r.o.
OT VCL pro automatizaci a tech. schemata
[*] koukal(zv)petrkoukal(tec)cz - 13.7.2007 08:22:22
Dobry den.
Hledam knihovny (Nejlepe free) vizualnich komponent tj. : segmentove displeje, led indikatory, teplomery, ventily atd.
(I active X) - D2007 sp1 win XP.
Dik za kazdy tip.
Petr Koukal.OT Active X (NIDAQ).
[*] koukal(zv)petrkoukal(tec)cz - 13.7.2007 08:16:20
Dobry den
Pokusil jsem se nainstalovat do D2007 sp 1 (Win XP) active X komponenty :
Component -> Import Component -> Import a Type library nebo Import ActiveX control
(jedna se o kolekci visualnich komponent ( v design mode je lze vlozit do formu), ktere jsou soucasti ovladacu National Instruments (NIDAQ).
Viz .:
http://digital.ni.com/softlib.nsf/webcategories/85256410006C055586256BBB002C1293?opendocument&node=132070_US/
)
Vse ostatni jsem ponechal dle default nabidky Delphi. At jsem vybral jakoukoliv palette page vytvorila se poze type library a do okna tool palette se nic nepridalo.
V cem delam chybu ?
Diky za radu
Petr Koukal. Algoritmus pro vyber polozek jejichz soucet nejlep
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 10.7.2007 16:20:07
Je to fakt, mel jsem prihodnou sadu.
Dalibor.
----- Original Message -----
From: "Kalhous" <kalhous(zv)eu(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 10, 2007 1:15 PM
Subject: Re: Algoritmus pro vyber polozek jejichz soucet nejlepe odpovida
zadane hodnote
> Hm. To snad muze fungovat opravdu jen stastnou nahodou.
> Mam zavazi 2,3,4,5,6,19 a chci slozit hmotnost 20.
>
> Z.Kalhous
>
>> nevim jestli Ti to pomuze a kolik je polozek, ale kdyz jsem potreboval
>> seskladat hmotnost z ruznych zavazi, udelal jsem to takto (je to visual
>> basic z excelu, tak se nelekni): Podminkou je setridit polozky sestupne
>> od
>> nejvetsi.
>> For i = 1 To 22
>> If z(i) + Tl > Pozadovany Then GoTo Dalsi
>> Tl = Tl + z(i)
>> Dalsi:
>> Next i
>> >> Poradite nekdo jednoduchy algoritmus pro vyber polozek ze
>> >> seznamu jejichz soucet nejlepe odpovida zadane hodnote?
>
>
>
HART komunikace
[*] Krakora Martin <mkkonfera(zv)seznam(tec)cz> - 12.7.2007 07:02:39
Dalibor Faltynek napsal(a):
> Ahoj,
> nevite prosim nekdo o unite (nebo DLL) pro komunikaci v HART protokolu
> (Highway Addresable Remote Transducer)?
> Dalik
Pokud je to ten samy protokol, co myslim ja, tedy pro komunikaci se
zarizenimi prumyslove automatizace. Prevazne polni instrumentace. Tak
bych se zkusil podivat po OPC serveru (viz google: OPC + HART). OPC je
zalozeno na COM rozhranich, takze neni problem s pristupem. Jedinou
nevyhodou bude asi to, ze nebude urcite zadarmo. Jinak je urcite potreba
nejake komunikacni rozhrani - prevodnik pro pripojeni k PC, jelikoz se
HART prenasi pres proudovou smycku 4-20 mA.
S pozdravem Krakora Martin.
INDY a mail
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 12.7.2007 12:25:00
> prosim o radu. Pouzivam komponentu INDY na posilani mailu.
> Umim poslat mail s prilohou, nebo htlm dokument s
> formatovanym pismem. Ale neumim do html mailu vlozit obrazek
> (obrazky) tak aby se m mailu zobrazily primo mezi textem.
http://www.dragonsoftru.com/articles/indy-email.html
HTH
TOndrej
INDY a mail
[*] Ing. Roman Lostak <roman(zv)irl(tec)cz> - 12.7.2007 11:54:58
Ahoj vsem,
prosim o radu. Pouzivam komponentu INDY na posilani mailu. Umim poslat mail
s prilohou, nebo htlm dokument s formatovanym pismem. Ale neumim do html
mailu vlozit obrazek (obrazky) tak aby se m mailu zobrazily primo mezi
textem.
Muzete poradit jak na to, prosiiiiiiim
Roman Lostak
roman(zv)irl(tec)cz
Programove rozsviceni diody pro prijem mailu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.7.2007 13:45:32
Puvodni zprava ze dne 10.7.2007 od Petr Berek:
> nevite nekdo, jak by se dala programove rozsvitit kontrolka na
> notebooku, ktera signalizuje nove prichozi e-maily? Notebook je Asus
> a je tam nainstalovany Asus CheckMail. V outlooku se to rozsviti.
http://forum.notebookreview.com/archive/index.php?t-3961.html
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Programove rozsviceni diody pro prijem mailu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.7.2007 13:17:30
On Wednesday, July 11, 2007 10:11 AM ,
palicka.petr(zv)seznam(tec)cz <palicka.petr(zv)seznam(tec)cz> wrote:
>> To funguje tak, ze ten soft saha na POP3 a testuje zpravy.
>
> podle mych zkusenosti to funguje tak, ze ten softik od Asusteku
> kontroluje nejaky registr, kam Utlouk uklada informaci o novych
> emailech (nebo tak neco). kdysi jsem na svuj NB sehnal nejaky
> udelatko, aby to spravne fungovalo s ThunderBirdem, ale ted nevim
> kde
> a NB je docasne mimo provoz.
>
problem neni v tom zjistit zda je nekde nejaka zprava ale jak
rozsvitit tu LEDku - na to se prece ptal tazatel...
D. Toman Programove rozsviceni diody pro prijem mailu
[*] palicka.petr(zv)seznam(tec)cz - 11.7.2007 10:11:18
> To funguje tak, ze ten soft saha na POP3 a testuje zpravy.
podle mych zkusenosti to funguje tak, ze ten softik od Asusteku kontroluje nejaky registr, kam Utlouk uklada informaci o novych emailech (nebo tak neco). kdysi jsem na svuj NB sehnal nejaky udelatko, aby to spravne fungovalo s ThunderBirdem, ale ted nevim kde a NB je docasne mimo provoz.
Peca
Oramovani skupiny v FastReport 4
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 11.7.2007 09:53:16
Vyzkousim , diky
Skoda ze neexistuje nejake systemovejsi reseni ...
Nejake to Group frames :-)
Petr Fiser napsal(a):
> Na vsechny objekty vlozis treba Memo ktere bude prazdne a presunes ho v
> hladine uplne dolu, nastavis Align na baClient. Pak nastavis prislusne
> okraje:
>
> Group Head - left line, top line, right line
> MasterData - left line, right line
> Group Footer - left line, bottom line, right line
>
> Pokud mas jiz na kazdem objektu nejake memo ktere je kolem okraju
> prislusneho objektu, nemusis tam samozrejme davat nic, a pozapinas jen
> prislusne okraje.
>
> Petr Fiser
>
>> Lze nejak oramovat kompletne skupinu v FR4. Tim myslim
>> ze mam :
>>
>> Group Head
>> MasterData
>> Group Footer
>>
>
>
>
Oramovani skupiny v FastReport 4
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 11.7.2007 09:05:12
FR 4.1.59 u techto objektu nema vlastnost Frame (alespon ji tam nevidim)...
Petr Fiser
> nevim jak u FR4, ale u QuickReportu bych to udelal nasledovne:
>
> Group Header - Frame - DrawTop, DrawLeft, DrawRight
> Master data - Frame - DrawLeft, DrawRight
> Group Footer - Frame - DrawBottom, DrawLeft, DrawRight
>
> MM
Oramovani skupiny v FastReport 4
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 11.7.2007 08:59:12
Na vsechny objekty vlozis treba Memo ktere bude prazdne a presunes ho v
hladine uplne dolu, nastavis Align na baClient. Pak nastavis prislusne
okraje:
Group Head - left line, top line, right line
MasterData - left line, right line
Group Footer - left line, bottom line, right line
Pokud mas jiz na kazdem objektu nejake memo ktere je kolem okraju
prislusneho objektu, nemusis tam samozrejme davat nic, a pozapinas jen
prislusne okraje.
Petr Fiser
> Lze nejak oramovat kompletne skupinu v FR4. Tim myslim
> ze mam :
>
> Group Head
> MasterData
> Group Footer
>
Oramovani skupiny v FastReport 4
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 11.7.2007 08:57:12
nevim jak u FR4, ale u QuickReportu bych to udelal nasledovne:
Group Header - Frame - DrawTop, DrawLeft, DrawRight
Master data - Frame - DrawLeft, DrawRight
Group Footer - Frame - DrawBottom, DrawLeft, DrawRight
MM
> -----Original Message-----
>
> Ahoj
>
> Lze nejak oramovat kompletne skupinu v FR4. Tim myslim ze mam :
>
Oramovani skupiny v FastReport 4
[*] Heinis <info(zv)drnholec(tec)cz> - 11.7.2007 07:43:07
Ahoj
Lze nejak oramovat kompletne skupinu v FR4. Tim myslim
ze mam :
Group Head
MasterData
Group Footer
Aa toto cele potrebuji mit v ramecku bez ohledu na promenlivou vysku
skupiny.
Diky Jura.
HART komunikace
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 11.7.2007 07:41:06
Ahoj,
nevite prosim nekdo o unite (nebo DLL) pro komunikaci v HART protokolu
(Highway Addresable Remote Transducer)?
Dalik
Programove rozsviceni diody pro prijem mailu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.7.2007 21:18:26
Puvodni zprava ze dne 10.7.2007 od Petr Berek:
> Zdravim, nevite nekdo, jak by se dala programove rozsvitit kontrolka
> na notebooku, ktera signalizuje nove prichozi e-maily? Notebook je
> Asus a je tam nainstalovany Asus CheckMail. V outlooku se to
> rozsviti.
To funguje tak, ze ten soft saha na POP3 a testuje zpravy.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Programove rozsviceni diody pro prijem mailu
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 10.7.2007 21:12:26
Zdravim,
nevite nekdo, jak by se dala programove rozsvitit kontrolka na notebooku,
ktera signalizuje nove prichozi e-maily? Notebook je Asus a je tam
nainstalovany Asus CheckMail. V outlooku se to rozsviti.
Diky,
Petr
Evropske webove seminare CodeGear
[*] rkubat(zv)email(tec)cz - 10.7.2007 13:21:56
Dobry den vsem,
evropske webove seminare o produktech CodeGear se budou
konat ve dnech 18. a 19.7.2007. Ucast je ZDARMA, staci se
registrovat.
Pujde o osm primo prenasenych technickych prednasek, ktere
poskytnou informace a prakticke rady tykajici se klicovych
oblasti technologii CodeGear pro vyvojare. Prednasky budou
organizovany jako ctyri oddelene puldenni webove seminare,
kazdy s vlastni registracni adresou. Ucastnici budou mit
moznost zeptat se expertu; pouze vsechny prednasky budou
probihat v anglictine.
Dalsi informace o akci najdete zde:
http://dn.codegear.com/article/36708
Temata zahrnuji:
Prehled dalsiho vyvoje produktu CodeGear - "roadmap"
Prevod aplikaci do prostredi Vista
Trasovani, ladeni a testovani webovych sluzeb ve Win32
Vyuziti technologii AJAX ve webovych aplikacich vyvijenych v Delphi
Zajistovani kvality aplikaci vyvijenych v prostredi C++Builder
Vyvoj databazovych aplikaci s DBX4 po skonceni BDE
Vyvoj komponent pro Delphi for PHP
Vizualni vyvoj webovych sluzeb Java a vyvoj pro JEE
Predstaveni vyvojoveho prostredi pro jazyk Ruby
S pratelskym pozdravem, -- Richard Kubat, Borland s.r.o.
Algoritmus pro vyber polozek jejichz soucet nejlep
[*] Kalhous <kalhous(zv)eu(tec)cz> - 10.7.2007 13:15:55
Hm. To snad muze fungovat opravdu jen stastnou nahodou.
Mam zavazi 2,3,4,5,6,19 a chci slozit hmotnost 20.
Z.Kalhous
> nevim jestli Ti to pomuze a kolik je polozek, ale kdyz jsem potreboval
> seskladat hmotnost z ruznych zavazi, udelal jsem to takto (je to visual
> basic z excelu, tak se nelekni): Podminkou je setridit polozky sestupne od
> nejvetsi.
> For i = 1 To 22
> If z(i) + Tl > Pozadovany Then GoTo Dalsi
> Tl = Tl + z(i)
> Dalsi:
> Next i
> >> Poradite nekdo jednoduchy algoritmus pro vyber polozek ze
> >> seznamu jejichz soucet nejlepe odpovida zadane hodnote?
Algoritmus pro vyber polozek jejichz soucet nejlep
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 10.7.2007 12:07:51
Ahoj,
nevim jestli Ti to pomuze a kolik je polozek, ale kdyz jsem potreboval
seskladat hmotnost z ruznych zavazi, udelal jsem to takto (je to visual
basic z excelu, tak se nelekni): Podminkou je setridit polozky sestupne od
nejvetsi.
For i = 1 To 22
If z(i) + Tl > Pozadovany Then GoTo Dalsi
Tl = Tl + z(i)
Dalsi:
Next i
>> Poradite nekdo jednoduchy algoritmus pro vyber polozek ze
>> seznamu jejichz soucet nejlepe odpovida zadane hodnote?
Algoritmus pro vyber polozek jejichz soucet nejlep
[*] Pavel Smerk <xsmerk(zv)fi.muni(tec)cz> - 10.7.2007 11:53:50
On Tue, Jul 10, 2007 at 11:47:49AM +0200, Jan Sebelik wrote:
> > Poradite nekdo jednoduchy algoritmus pro vyber polozek ze seznamu
> > jejichz soucet nejlepe odpovida zadane hodnote?
>
> Nejsem si jist, ale mam pocit, ze jsme na MFF UK dokazovali, ze tento
> (nebo podobny?) problem je NP-uplny. Tedy exponencialni slozitost. Tedy
> nejaky "obzvalst vtipny" algoritmus asi neexistuje. Je to uz hodne davno
> (1974-1979), takze nevim, zda si to s necim nepletu.
Nepletes. Ale spatne rozumis otazce: tazatel nepozaduje rychly algoritmus,
ale staci mu jednoduchy. Takovy jiste existuje, jenom si na to bude muset
vyhradit nejakou extra masinku, kde to bude pocitat, pokud se teda jedna o
seznam nejake nezanedbatelne velikosti. :-)
P.
Algoritmus pro vyber polozek jejichz soucet nejlep
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 10.7.2007 11:47:49
> Poradite nekdo jednoduchy algoritmus pro vyber polozek ze seznamu
> jejichz soucet nejlepe odpovida zadane hodnote?
Nejsem si jist, ale mam pocit, ze jsme na MFF UK dokazovali, ze tento (nebo podobny?) problem je NP-uplny.
Tedy exponencialni slozitost.
Tedy nejaky "obzvalst vtipny" algoritmus asi neexistuje.
Je to uz hodne davno (1974-1979), takze nevim, zda si to s necim nepletu.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
Algoritmus pro vyber polozek jejichz soucet nejlep
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 10.7.2007 11:43:49
Pokud to ma jen tolik cisel kolik je bitu data typu Extended tak muzes
pouzit tohle. Je tam pouzita ta hruba sila a kombinuji se cisla podle
aktualnich bitu ve smycce. Kdyz to sedne, vypadne ti seznam cisel z mnoziny
a pocet cyklu pro vyhledani.
V konstante TEST je hledane cislo. Asi pred sedmi lety to fungovalo. Bylo to
urceno pro rycle dohledani faktur, nebo cehosi. Udelano jako jednorazovka za
deset minut, takze zadna optimalizace kodu.
const
TEST = 5683;
var
Nums: array[0..22] of Word = (420, 440, 442, 454, 456, 470, 484, 512,
541, 566, 568, 572, 584, 584, 594, 616, 622, 668, 684, 822,
830, 1038, 1366); //4194303
function TForm1.FindNumArray(Nums: array of Word): Boolean;
var
S: String;
I, J, K, L: LongWord;
Max: Extended;
begin
Result := FALSE;
Max := Power(2, High(Nums));
for I := 1 to Round(Max) - 1 do begin
K := 0;
L := 1;
for J := 0 to High(Nums) - 1 do begin
if (I and L) <> 0 then K := K + Nums[J];
L := 2 * L;
end;
//... test na vysledek
if K = TEST then begin
L := 1;
S := '';
for J := 0 to High(Nums) - 1 do begin
if (I and L) <> 0 then
S := S + Format('%d ,', [Nums[J]]);
L := 2 * L;
end;
Label1.Caption := IntToStr(K) + ' (' + S + ') ' + IntToStr(I);
Result := TRUE;
Exit;
end else
Label1.Caption := 'IntToStr(K)';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FindNumArray(Nums);
end;
Petr Fiser
> Poradite nekdo jednoduchy algoritmus pro vyber polozek ze seznamu jejichz
> soucet nejlepe odpovida zadane hodnote?
>
> V.
Algoritmus pro vyber polozek jejichz soucet nejlep
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 10.7.2007 11:13:46
Jednoduchy neexistuje, resi se to pomoci genetickych algoritmu,
ruznych optimalici a podobne.
Nejlepsi vysledky zde da hruba sila, ale je velmi casove narocna a selhava
uz pri desitkach polozek, pak mas moznost volit strategie, nebo geneticke
ci podobne algoritmy.
Ukazka programu pro 2D optimalizaci je tady a pri vhodnem nastaveni bude resit i
1D.
http://www.elektlabs(tec)cz/downloads/naklad.zip
Slavek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of delphak(zv)centrum(tec)cz
> Sent: Tuesday, July 10, 2007 8:18 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Algoritmus pro vyber polozek jejichz soucet nejlepe
> odpovida zadane hodnote
>
>
> Poradite nekdo jednoduchy algoritmus pro vyber polozek ze
> seznamu jejichz soucet nejlepe odpovida zadane hodnote?
>
> V.
>
>
>
>
Algoritmus pro vyber polozek jejichz soucet nejlep
[*] delphak(zv)centrum(tec)cz - 10.7.2007 08:17:32
Poradite nekdo jednoduchy algoritmus pro vyber polozek ze seznamu jejichz soucet nejlepe odpovida zadane hodnote?
V.
Ukotvit pricky v DBGridu
[*] Novy Lubos <lnovy(zv)unileasing(tec)cz> - 09.7.2007 15:44:30
Mam pocit ze je tam vlastnost FixedCols a FixedRows, ktery ti pomuzou
Lubos Novy
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
> Behalf Of Dalibor Faltynek
> Sent: Monday, July 09, 2007 2:50 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Ukotvit pricky v DBGridu
>
> Dobry den,
> nevite nejakou fintu, kterak v dbgridu provest neco jako "ukotvit
> pricky" v
> Excelu? (D5Enterprise).
> Diky - Dalibor.
>
>
Tvorba napovedy pro Vista
[*] xxx chlap <xchlap(zv)seznam(tec)cz> - 09.7.2007 14:56:26
Dik treba mi to pomuze.. potreboval jsem nakopnout ... po koupi noveho PC s Vistama sem byl prekvapenej ze Mikrosoft opet
nuti uuzivatele k necemu, co ani vsem uzivatelum fungovat nebude..... Nevim nevim.. ale nelibi se mi jejich pristup...
Mirek.
> ------------ Puvodni zprava ------------
> Od: Ales Pavel <aldik(zv)quick(tec)cz>
> Predmet: Re: Tvorba napovedy pro Vista
> Datum: 09.7.2007 14:45:39
> ----------------------------------------
> nevim co myslis help pro Vistu, ale ja pouzivam helpMaker pro tvorbu
> klasickych helpu htlm i chm
>
> xxx chlap napsal(a):
> > Nevite nekdo, ktery free program je nejlepsi na tvorbu helpu pro VISTA ???
> >
> > Mirek.
> >
> >
> >
>
>
>
>
Ukotvit pricky v DBGridu
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 09.7.2007 14:50:26
Dobry den,
nevite nejakou fintu, kterak v dbgridu provest neco jako "ukotvit pricky" v
Excelu? (D5Enterprise).
Diky - Dalibor.
Tvorba napovedy pro Vista
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 09.7.2007 14:22:24
nevim co myslis help pro Vistu, ale ja pouzivam helpMaker pro tvorbu
klasickych helpu htlm i chm
xxx chlap napsal(a):
> Nevite nekdo, ktery free program je nejlepsi na tvorbu helpu pro VISTA ???
>
> Mirek.
>
>
Tvorba napovedy pro Vista
[*] xxx chlap <xchlap(zv)seznam(tec)cz> - 09.7.2007 14:16:24
Nevite nekdo, ktery free program je nejlepsi na tvorbu helpu pro VISTA ???
Mirek.
popupmenu prirazovana za behu
[*] MartinV <ahi(zv)volny(tec)cz> - 09.7.2007 10:52:10
Ahoj,
vyresil jsem to presunutim prislusnych radku nize do tela jine
procedury, tam uz to funguje. Mohl bych se zeptat, proc v jedne
procedure uplne stejny prikaz funguje, v jine nefunguje? Proc jedna
procedura normalne pracuje s nove vytvorenou komponentou, jina
procedura na stejnem formulari hlasi chybu, ze komponenta neni
definovana? Delphi 6.
Martin V.
>> Na formulari Formular1 mam Label1 a u neho je nadefinovane Popupmenu1.
>> Za behu programu pak vytvorim pole labelu Popisky[i]
>> Zkusil jsem popup menu zkopirovat takhle:
>> for i:=1 to pocet_popisku do
>> popisky[i].PopupMenu := Formular1.Popupmenu1;
>> .. ale popupmenu se mi u popisku nezobrazuje. Je potreba ho nejak
>> aktivovat, nebo
>> to delam cele spatne??
ID> *Ja by som priradil popup uz pri vytvarani TLabel
ID> *Napr :
ID> procedure TForm1.Button1Click(Sender: TObject);
ID> var y : integer;
ID> begin
ID> y := 0;
ID> TLabel.Create(self).Name := 'Label' + IntToStr(Y);
ID> with TLabel(FindComponent('Label' + IntToStr(Y))) do
ID> begin
ID> Caption :=' Nejaky caption... ';
ID> Font.Color:= clBlack;
ID> Font.Size:=8;
ID> Font.Style := Font.Style+[fsBold];
ID> Left := 76;
ID> Top := 20;
ID> Width:=100;
ID> Height:=20;
ID> AutoSize:=false;
ID> WordWrap:=true;
ID> Layout :=tlCenter;
ID> PopupMenu := Form1.PopupMenu1;
ID> Parent := Form1;
ID> end;
ID> end;
ID> S pozdravom
ID> Ivan Dulgerov
delphi 2007 update 1
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 09.7.2007 09:22:03
Pred par tydny jsem si tady stezoval na potrebu byt pripojen na web kdyz
instaluji D2007 update 1. (759 MB instalacni soubor).
Nyni jen upresnuji, Borland mel zrejme v tu dobu vystavenou spatnou
instalacni sadu (kompilace 2.6.2007). Nyni jsem si stahnul soubor znovu
a kompilace z 3.6.2007 a pristup na web jiz nepotrebuje.
Takze pokud mel nekdo podobne problemy , muze si soucasnou verzi
stahnout i pro tento zpusob instalace.
Jura
P.S. Povedlo se nekomu stahnout tu ISO DVD verzi ? ja to zkousel asi 4x
pres ruzne stahovace a nedostal jsem pres 1,9Giga...
popupmenu prirazovana za behu
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 08.7.2007 13:22:46
Zdravim.
> Na formulari Formular1 mam Label1 a u neho je nadefinovane Popupmenu1.
> Za behu programu pak vytvorim pole labelu Popisky[i]
>
> Zkusil jsem popup menu zkopirovat takhle:
>
> for i:=1 to pocet_popisku do
> popisky[i].PopupMenu := Formular1.Popupmenu1;
>
> .. ale popupmenu se mi u popisku nezobrazuje. Je potreba ho nejak
> aktivovat, nebo
> to delam cele spatne??
>
*Ja by som priradil popup uz pri vytvarani TLabel
*Napr :
procedure TForm1.Button1Click(Sender: TObject);
var y : integer;
begin
y := 0;
TLabel.Create(self).Name := 'Label' + IntToStr(Y);
with TLabel(FindComponent('Label' + IntToStr(Y))) do
begin
Caption :=' Nejaky caption... ';
Font.Color:= clBlack;
Font.Size:=8;
Font.Style := Font.Style+[fsBold];
Left := 76;
Top := 20;
Width:=100;
Height:=20;
AutoSize:=false;
WordWrap:=true;
Layout :=tlCenter;
PopupMenu := Form1.PopupMenu1;
Parent := Form1;
end;
end;
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Visual Studio 2005, Win XP Porf. + SP1,
Win98 SE
mail : idulgerov(zv)stonline.sk
ICQ : 190698607
SQL dotaz
[*] lelicek(zv)volny(tec)cz - 08.7.2007 11:14:38
Od: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> ADOQuery1.SQL.Clear;
>
> ADOQuery1.SQL.Add('SELECT *');
>
> ADOQuery1.SQL.Add('FROM qryZoznamUcebni');
>
> ADOQuery1.SQL.Add('WHERE (IDMiestoRealizacia = (zv)IDMiesto)');
>
Select nemuze mit v MSSQL parametry, pouzij budto "=:IDMiesto",
to se resi na klientovi.
Nebo Ulozenou proceduru v TSQL:
CREATE PRCEDURE dbo.ZoznamUcebniDleMista
(zv)IDMIESTO int
AS
SELECT * FROM qryZoznamUcebni
WHERE IDMiestoRealizacia = (zv)IDMiesto
GO
a komponentu store proc, paramery ziskas spProc.Parameters.Refresh.
Pavel
popupmenu prirazovana za behu
[*] MartinV <ahi(zv)volny(tec)cz> - 07.7.2007 17:53:12
Ahoj,
prosim pomozte, jsem samouk a zasekl jsem se:
potrebuju za behu programu priradit popupmenu k dynamicky
vytvarenym komponentam, v tomhle pripade jde o Label.
Na formulari Formular1 mam Label1 a u neho je nadefinovane Popupmenu1.
Za behu programu pak vytvorim pole labelu Popisky[i]
Zkusil jsem popup menu zkopirovat takhle:
for i:=1 to pocet_popisku do
popisky[i].PopupMenu := Formular1.Popupmenu1;
.. ale popupmenu se mi u popisku nezobrazuje. Je potreba ho nejak aktivovat, nebo
to delam cele spatne??
Predem diky za pomoc.
--
Martin V.
ahi(zv)volny(tec)cz
Firebird + Win Vista + UDF
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 06.7.2007 21:39:54
On 7/4/07, Milan Dvorak <dvorak(zv)gymzn(tec)cz> wrote:
> pozice Vist) ale nic nepomaha. Nemate nejakou zkusenost jak to
> zprovoznit?
Toto neni nic s Vistou. To hlasi FB Server. Je treba povolit v
konfiguraku pristup k danemu umisteni a samozrejme udelit prava (v
systemu), aby to server precetl.
--
Jiri {x2} Cincura (Microsoft Student Partner)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
SQL dotaz
[*] radek_456 radek_456 <radek 456(zv)seznam(tec)cz> - 06.7.2007 20:55:51
http://delphi.about.com/od/database/l/aa050101a.htm
SQL dotaz
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 06.7.2007 15:41:31
Ahoj
Mam uplne zaciatocnicky dotaz. Prechadzam z MS Access na SQL 2005 a nedari
sa mi urobit ani jednoduchy dotaz. Vycerpal som vsetky moznosti, obraciam sa
o radu do konferencie
Chcel by som urobit SELECT nad tabulkou
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *');
ADOQuery1.SQL.Add('FROM qryZoznamUcebni');
ADOQuery1.SQL.Add('WHERE (IDMiestoRealizacia = (zv)IDMiesto)');
param:= ADOQuery1.Parameters.CreateParameter('(zv)IDMiesto', ftInteger,
pdInput, 0, DBLookupComboBox7.Field.AsInteger);
param.Index:= 0;
ADOQuery1.Active:= True;
Analogicky som to urobil ako v MS Access, no vzdy mi to hlasi chybu
Must declare the scalar variable "(zv)IDMiesto"
Pouzivam Delphi 2007, Windows Vista, MS SQL 2005 Express,
Provider=SQLOLEDB.1
A uz teraz ma chyta panicky strach ked budem musiet urobit INSERT ak sa mi
nedari urobit jednoduchy SELECT
Dakujem
Ing. Keder Vladimir
html document a string
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 06.7.2007 14:07:24
ahoj tak tu dumam a stacilo by mi ze stringu udelat object HTMLDocument,
netusime jak na to?
A.
TWebBrowser Hide
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 06.7.2007 12:39:18
a jakym stylem to rozparsuju na elementy?:) je nejaky html parser v delphi?
A.
Milos Jircik napsal(a):
> Tak to pujde urcite. Koukni se na prikladek stazeni stranky metodou GET
> http://synapse.ararat(tec)cz/wiki/index.php?page=HttpGetPage a na odeslani dat
> metodou POST http://synapse.ararat(tec)cz/wiki/index.php?page=HtmlForms.
>
>
> Dne Fri, 06 Jul 2007 11:41:14 +0200 Ales Pavel <aldik(zv)quick(tec)cz> napsal/-a:
>
>
>> jde o to ze je chci parsovat a cist z nich data pripadne vyplnit input a
>> ztisknout tlacitko, pujde to?Take si nejsem jist javascriptem...
>>
>> A.
>>
>> Milos Jircik napsal(a):
>>
>>> Pokud nechces stranky zobrazovat a pouze ctes nebo posilas data pres
>>> http,
>>> tak pouzij synapsi.
>>>
>>>
>
>
TWebBrowser Hide
[*] Milos Jircik <m.jircik(zv)mjsoft(tec)cz> - 06.7.2007 11:51:15
Tak to pujde urcite. Koukni se na prikladek stazeni stranky metodou GET
http://synapse.ararat(tec)cz/wiki/index.php?page=HttpGetPage a na odeslani dat
metodou POST http://synapse.ararat(tec)cz/wiki/index.php?page=HtmlForms.
Dne Fri, 06 Jul 2007 11:41:14 +0200 Ales Pavel <aldik(zv)quick(tec)cz> napsal/-a:
> jde o to ze je chci parsovat a cist z nich data pripadne vyplnit input a
> ztisknout tlacitko, pujde to?Take si nejsem jist javascriptem...
>
> A.
>
> Milos Jircik napsal(a):
>> Pokud nechces stranky zobrazovat a pouze ctes nebo posilas data pres
>> http,
>> tak pouzij synapsi.
>>
TWebBrowser Hide
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 06.7.2007 11:41:14
jde o to ze je chci parsovat a cist z nich data pripadne vyplnit input a
ztisknout tlacitko, pujde to?Take si nejsem jist javascriptem...
A.
Milos Jircik napsal(a):
> Pokud nechces stranky zobrazovat a pouze ctes nebo posilas data pres http,
> tak pouzij synapsi.
>
> Milda
>
>
>
>
>
TWebBrowser Hide
[*] Milos Jircik <m.jircik(zv)mjsoft(tec)cz> - 06.7.2007 11:37:14
Pokud nechces stranky zobrazovat a pouze ctes nebo posilas data pres http,
tak pouzij synapsi.
Milda
Dne Fri, 06 Jul 2007 11:11:12 +0200 Ales Pavel <aldik(zv)quick(tec)cz> napsal/-a:
> Ahoj mam ukryty TWebBrowser a nefunguje mi na nem event
> ondocumentcomplete netusite jak na to?
>
> respektive existuje nejaky ukazatel na komponente ze je dokument opravdu
> nahran to by mi stacilo.
>
> Stale zapasim s neuplnymi dokumenty.. abych vysvetlil komponentu
> pouzivam na prechody dalsich stranek,parsuji tagy a ctu znich data a
> pomoci odkazu co tam mam, zkousim i post a tohle je vec ktera me zatim
> zlobi a dost bych ji potreboval...
TWebBrowser Hide
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 06.7.2007 11:11:12
Ahoj mam ukryty TWebBrowser a nefunguje mi na nem event
ondocumentcomplete netusite jak na to?
respektive existuje nejaky ukazatel na komponente ze je dokument opravdu
nahran to by mi stacilo.
Stale zapasim s neuplnymi dokumenty.. abych vysvetlil komponentu
pouzivam na prechody dalsich stranek,parsuji tagy a ctu znich data a
pomoci odkazu co tam mam, zkousim i post a tohle je vec ktera me zatim
zlobi a dost bych ji potreboval...
Ales
Emulace tabelatoru
[*] Jiri Jelinek <jiri.jelinek(zv)asei(tec)cz> - 09.8.2007 16:50:39
Zdravim,
>Jak v D7 nasimuluju stisknuti Tab/ShiftTab? Funkce SelectNext neni bohuzel
to prave orechove.
>Z.Kalhous
volanim nasledujiciho sledu metod
klavesa Shift + Tab:
keybd_event(VK_SHIFT, 0, 0, 0);
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
Application.ProcessMessages;
nebo samotny Tab:
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
Application.ProcessMessages;
S pozdravem Jiri Jelinek.Aktualizace EXE Was: Umisteni BPL souboru u uzivat
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 09.8.2007 21:50:58
Puvodni zprava ze dne 9.8.2007 od delphin(zv)post(tec)cz:
> A jak na aktualizaci EXE/BPL souboru v C:\Program Files\blabla\ pod
> uctem USER ? Vim, ze pod Aministrator nebo Power User to jde, ale
> nechci davat Userum hesla k temto uctum a ze bych se logoval na
> nekolik desitek PC a neco tam instaloval je nerealne nejenom z
> casovych duvodu, ale i proto, ze pocitace se ruzne zapinaji a
> vypinaji a na notebooky neni pristup vubec. Aktualizace jsou asi cca
> 3 tydne. Zatim to resim (asi spatne) tak, ze EXE soubor je proste v
> C:\Document and Settings\blabla\, tam zapisovat jde a tedy kazdy
> uzivatel ma svuj EXE soubor.
> Chci se tedy zeptat, jak se to dela spravne.
Spravne se to dela tak, ze kdyz mas sit zalozenou na Windows Server,
tak pouzijes Windows Installer Service, pokud se to jmenuje stale
stejne. Funguje to tak, ze jako administrator definujes kazdemu
uzivateli (podle nastaveni jednotlivych roli - napriklad vsechny
sexkretarky budou mit MS Word) aplikace, ktere ma mit nainstalovane.
Potom, kdyz vlozis do systemu novou verzi, ta se jim automaticky
nainstaluje pri prihlaseni do systemu. O toto vsechno se automaticky
stara Installer Service, administrator to jen spravuje hromadne,
nemusi samozrejme chodit po jednotlivych stanicich a na kazdou to
cpat...
Toto je samozrejme jedina spravna cesta, protoze jedine Windows
Installer ma mit tato prava. Leda by sis udelal svuj podobny. Uzivatel
nema mit prava administratora a zrovna tak nema co rozhodovat o tom,
co bude nebo nebude instalovano. Od toho je v rozsahle firemni
infrastrukture prave administrator. Kdyz to nechas na uzivateli, tak
si bud bude instalovat, co chce instalovat, a nebo si naopak nebude
instalovat, co ma instalovat.
Takze jinymi slovy, pokud nejsou stanice zapojene v siti s Windows
Server a neni moznost vyuzit teto sluzby Windows Installer Service,
pak je ta moznost si to udelat sam. Aplikace jako takova je spoustena
vzdy pod uctem uzivatele, takze ta nema co kam zapisovat. To neni
reseni. Resenim je napsat nejakou svou sluzbu spustenou pod vyssimi
pravy, ktera bude fungovat podobnym zpusobem, tj. bude zajistovat
konzistenci aplikaci a instalaci novych verzi.
Ano, davat aplikaci do Documents and Settings, to je opravdu
velikanska cunarna :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
RX library a pomoc s procedurov
[*] mephysto(zv)maniaci.sk - 13.8.2007 13:35:16
DD
Stiahol som si tuto verziu rx library:
http://sourceforge.net/project/showfiles.php?group_id=40944&package_id=232594&release_id=509819
ale niak ju neviem naistalovat mam Delphi 7. Skusal som to vsemozne ale vzdy mi to vypisalo niaky
error. Nemohol by mi niekto prosim napisat niaky mininnavod step bby step?
Proble cislo 2 je mam kod:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
zapis: string;
Soubor: TextFile;
begin
if Button = mbRight then
begin
zapis := InttoStr(poradie) +- ' => array('+-InttoStr(X)+-','+-InttoStr(Y)+-'),';
poradie := poradie +- 1;
AssignFile(Soubor, 'mapa.txt');
Append(Soubor);
WriteLn(Subor,zapis); //riadok 50
CloseFile(Soubor);
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.Brush.Color := clWhite;
Image1.Canvas.Rectangle(X, Y, X+-10, Y+-10);
end;
end;
a pri kompilaci mi to hadze chybu:
[Error] map_creator.pas(50): Undeclared identifier: 'Subor'
ma to fungovat tak ze sa do image loadne obbrazok...potom nasledne sa nan klika vzdy na miesto
kliknutia to nieco dokresli a zaroven to generuje dany kod do txt dokumentu v danom tvare vzdy na
novy riadok.
Za vsetky rady dakujem
RX library a pomoc s procedurov
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 13.8.2007 14:01:17
> procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> var
> zapis: string;
> Soubor: TextFile;
>
....
> WriteLn(Subor,zapis); //riadok 50
...
> end;
Soubor <> Subor
Petr Fiser
HTTP a redirect
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.8.2007 14:15:19
Ahoj,
zkousim se Synapsi zvladnout http redirect (301,302,307) - konkretne
ziskani statusu uzivatele v ICQ, kde puvodni odkaz zpusobi dvakrat
presmerovani s kodem 302. Kdyz je v hlavicce v location uvedena plna
adresa pro presmerovani, je vse OK. Bohuzel posledni presmerovani je jen
relativni - radek je treba Location: /5/Online1.gif.
K takove adrese je potreba pripojit zacatek. Existuje nejaky standardni
zpusob, jak ho ziskat, tj. jinak nez ze vezmu posledni nerelativni URL a u
prvniho nezdvojeneho lomitka zbytek textu uriznu? Nebo jak se to dela
spravne?
Diky.
David Lebeda
Combo_filtr
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 13.8.2007 18:25:36
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Zykmund
> Sent: Monday, August 13, 2007 6:08 PM
> >
> > select distinct AnyField from AnyTable
> >
> > Neni to ono :) ?
> >
> > PMal
> >
> > Bylo by to ono,ale pro pr(ipad jazyka SQL.Ja ale(me(l jsem
> to napsat)se pr(ipojuji
> >
> pr(es ADO komponenty.A ty distinct nepodporuji.Ale i tak de(kuji.
Hm, nepouzivam ADO, mozna nem, ale
select AnyField from AnyTable group by AnyField
by snad slo ne?
PMal
Combo_filtr
[*] delphin(zv)post(tec)cz - 13.8.2007 18:19:35
>> Bylo by to ono,ale pro pr(ipad jazyka SQL.Ja ale(me(l jsem to napsat)se
>> pr(ipojuji
>>
> pr(es ADO komponenty.A ty distinct nepodporuji.Ale i tak de(kuji.
Kdyz nefunguje DISTINCT, tak ADO komponenty zarucene podporuji tohle:
select Hodnota
from Tabulka
group by Hodnota
order by Hodnota
Combo_filtr
[*] Zykmund <jiri.zyk(zv)worldonline(tec)cz> - 13.8.2007 18:07:34
Pavel Malinsky napsal(a):
>> -----Original Message-----
>> From: delphi-l-owner(zv)clexpert(tec)cz
>> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Zykmund
>>
>
>
>> 2.V databazi jsou v danem poli(Fieldu) duplicitni hodnoty,ktere se
>> natahnou taky.A to ale uz nevim,jak zaridit,aby se zobrazily
>> jen jedinecne
>> hodnoty.Databaze ma pres 60000 zaznamu a tech jedinecnych
>> je daleko
>> min.Potreboval bych to pro snazsi vyhledavani pro ucely filtrovani.
>>
>
> select distinct AnyField from AnyTable
>
> Neni to ono :) ?
>
> PMal
>
> Bylo by to ono,ale pro pr(ipad jazyka SQL.Ja ale(me(l jsem to napsat)se pr(ipojuji
>
pr(es ADO komponenty.A ty distinct nepodporuji.Ale i tak de(kuji.
>
> __________ NOD32 2456 (20070813) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.eset.com
>
>
>
> __________ NOD32 2456 (20070813) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.eset.com
>
>
>
Combo_filtr
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 13.8.2007 17:51:33
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Zykmund
> 2.V databazi jsou v danem poli(Fieldu) duplicitni hodnoty,ktere se
> natahnou taky.A to ale uz nevim,jak zaridit,aby se zobrazily
> jen jedinecne
> hodnoty.Databaze ma pres 60000 zaznamu a tech jedinecnych
> je daleko
> min.Potreboval bych to pro snazsi vyhledavani pro ucely filtrovani.
select distinct AnyField from AnyTable
Neni to ono :) ?
PMal
Combo_filtr
[*] Zykmund <jiri.zyk(zv)worldonline(tec)cz> - 13.8.2007 17:41:32
Zdravim
Mam dotaz.
Mel jsem pred sebou dva ukoly
1.Do Combo Boxu natahnout hodnoty urciteho pole z SQL databaze a to
tak,aby se Combo rozbaloval(u DBComboBoxu to nejde)
To se mi podarilo.
2.V databazi jsou v danem poli(Fieldu) duplicitni hodnoty,ktere se
natahnou taky.A to ale uz nevim,jak zaridit,aby se zobrazily jen jedinecne
hodnoty.Databaze ma pres 60000 zaznamu a tech jedinecnych je daleko
min.Potreboval bych to pro snazsi vyhledavani pro ucely filtrovani.
D7
Jestli ma nekdo zkusenost s touto problematikou?
Dekuji
J.Z.Dve stejne DB - ms sql 2005
[*] Dalibor <dalibor(zv)torola(tec)cz> - 13.8.2007 21:39:48
Ahoj, da se nejak v ms sql 2005 (pripadne ve ktere verzi) docilit toho, ze bych mel DB, kazda na jinem PC, ktere by se mezi sebou synhronizovaly? Pridam data do jedne a ty se promitnou i do druhe a naopak?
D.Combo_filtr
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 14.8.2007 03:28:12
> bylo by to ono,ale pro pr(ipad jazyka SQL.Ja ale(me(l jsem to
napsat)
> se pr(ipojuji pr(es ADO komponenty.A ty distinct nepodporuji.
Taky pouzivam ADO a s DISTINCTem nebyl nikdy zadny problem.
Combo_filtr
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.8.2007 07:46:29
> >> 2.V databazi jsou v danem poli(Fieldu) duplicitni hodnoty,ktere se
> >> natahnou taky.A to ale uz nevim,jak zaridit,aby se zobrazily jen
> >> jedinecne
> >> hodnoty.Databaze ma pres 60000 zaznamu a tech jedinecnych
> >> je daleko
> >> min.Potreboval bych to pro snazsi vyhledavani pro ucely filtrovani.
> >>
> >
> > select distinct AnyField from AnyTable
> >
> > Bylo by to ono,ale pro pr(ipad jazyka SQL.Ja ale(me(l jsem to napsat)se
> > pr(ipojuji
> >
> pr(es ADO komponenty.A ty distinct nepodporuji.Ale i tak de(kuji.
Ono nejde o SQL databazi? Resp. o jakou databazi a jake komponenty vubec
jde?
Jinak - nevim, jak to delas, ale k popsanemu ukolu by asi bylo vhodne
sahnout po TDBLookupComboBox, ktery ma rozbalovaci roletku oprenou o
databazi.
David Lebeda
Dve stejne DB - ms sql 2005
[*] vlko <vlko(zv)zilina(tec)net> - 14.8.2007 08:26:32
Dalibor wrote:
> Ahoj, da se nejak v ms sql 2005 (pripadne ve ktere verzi) docilit toho, ze bych mel DB, kazda na jinem PC, ktere by se mezi sebou synhronizovaly? Pridam data do jedne a ty se promitnou i do druhe a naopak?
>
> D.
Ano, vola sa to replikacia dat (Replication).
a porovnanie verzii je mozne najst tu:
http://www.microsoft.com/sql/prodinfo/features/compare-features.mspx
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Status uzivatele ICQ
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.8.2007 14:42:58
Ahoj,
tak uz jsem rozchodil uspesne zjistovani statusu uzivatele ICQ pres odkaz
http://web.icq.com/whitepages/online?icq=111111111&img=5,
kde misto 111111111 je cislo uzivatele ICQ.
Zjisteni stavu provadim jednou za 5 sekund. Ke svemu prekvapeni jsem
zjistil, ze pokud je uzivatel offline, je indikace spolehliva. Pokud je
ale online, strida se to jak barevna hudba - jednou to vrati online,
jednou offline, nekdy sedou hvezdicku. Nevim, na cem to zavisi, ale zda se
mi, ze problem je na strane ICQ. Ja prece poslu pozadavek - vyse uvedenou
adresu, radne obdrzim od ICQ odpoved...a ta keca.
Chci se zeptat - mate nekdo podobne zkusenosti s (ne)spolehlivosti statusu
ICQ pri opakovanych dotazech?. Samozrejme ani prvni dotaz neni vzdy OK,
resenim tedy neni to, zobrazit stav jednou a pak ho jiz neaktualizovat.
David Lebeda
Status uzivatele ICQ
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 14.8.2007 15:00:59
Mam ICQ status na webu a chova se to stejne. Obcas je to v poradku,
obcas je to nesmysl.
Ladislav Stary
Lebeda David napsal(a):
> Ahoj,
>
> Zjisteni stavu provadim jednou za 5 sekund. Ke svemu prekvapeni jsem
> zjistil, ze pokud je uzivatel offline, je indikace spolehliva. Pokud je
> ale online, strida se to jak barevna hudba - jednou to vrati online,
> jednou offline, nekdy sedou hvezdicku.
Status uzivatele ICQ
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 14.8.2007 15:29:01
On 8/14/07, Lebeda David <david.lebeda(zv)comarr(tec)cz> wrote:
> Chci se zeptat - mate nekdo podobne zkusenosti s (ne)spolehlivosti statusu
> ICQ pri opakovanych dotazech?. Samozrejme ani prvni dotaz neni vzdy OK,
> resenim tedy neni to, zobrazit stav jednou a pak ho jiz neaktualizovat.
Taky me to zlobilo. Udelal jsem to tak, ze behem minuty jsem poslal 3
nahodne rozlozene requesty a vyhral, ten status, ktery byl majoritni.
Nebylo to nic moc, ale lepsi nez nic (a hlavne mi to pak tolik
neskakalo).
--
Jiri {x2} Cincura (Microsoft Student Partner)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
TClientDataSet.CreateFields
[*] Jiri Puncochar - BC Praha <jiri.puncochar(zv)bcpraha(tec)com> - 15.8.2007 13:52:31
Zdravim,
zrovna nedavno jsem neco podobneho resil, ale nepridavam do TClientDataSet-u
ale do TADODataSet-u (zavreneho), a tam to jde:
sp_ZHS_VFW_Result: TADODataSet;
...
var
locCount : Integer;
locNewStringField : TStringField;
...
locNewStringField := TStringField.Create(sp_ZHS_VFW_Result);
locNewStringField.FieldKind := fkCalculated;
locNewStringField.Calculated := True;
locNewStringField.Index := sp_ZHS_VFW_Result.FieldCount;
locNewStringField.FieldName := 'nove_pole_' +
TrimLeft(IntToStr(locCount));
locNewStringField.Name := 'sp_ZHS_VFW_Result' + 'nove_pole_' +
TrimLeft(IntToStr(locCount));
locNewStringField.DataSet := sp_ZHS_VFW_Result;
...
Jirka
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 15, 2007 1:32 PM
Subject: TClientDataSet.CreateFields
> Potrebuju do TClientDataSet pridal fieldy fkCalculated a fkLookup.
>
> Bezny "design time" postup je snadny:
> - Right-Click na Fields Editor
> - Add All Fields
> - a dale pridavam, co potrebuju
>
> Jenza ja to potrebuju udelat v Runtime...
> Kdyz pridam potrebne Fieldy pred Open, nemam tam ty "all fields" z
> databaze.
> Po Open pridavat nelze.
>
> Honza
TClientDataSet.CreateFields
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 15.8.2007 13:32:29
Potrebuju do TClientDataSet pridal fieldy fkCalculated a fkLookup.
Bezny "design time" postup je snadny:
- Right-Click na Fields Editor
- Add All Fields
- a dale pridavam, co potrebuju
Jenza ja to potrebuju udelat v Runtime...
Kdyz pridam potrebne Fieldy pred Open, nemam tam ty "all fields" z databaze.
Po Open pridavat nelze.
Nasel jsem mechanismus, jak to udelat, ale zda se mi trochu kostrbaty, mozna to jde lip:
cds.PackedRecords:=0;
cds.Open;
Nactu jenom metadata, tedy ty "all fields".
Mam naplneny Fields i FieldDefs.
cds.Close;
Zmizi Fields, zustanou FieldDefs
THookDataSet = class (TDataSet)
end;
THookDataSet(cds).CreateFields;
CreateFields je protected, takze musim pouzit tento "podvod".
Z FieldDefs se vytvori ty "all fields".
Pridam potrebne
F:=TFloatField.Create(self), ...., F.FiedKind:=fkCalculated; F.DataSet:=cds;
atd.
cds.PacketRecords:=-1;
cds.Open;
Nactu vsechny zaznamy a mam to !
Ale neslo by to nejak bez toho THookDataSet a bez dvakrat Open?
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
Odchyceni vyjimky pri necekanem odpojeni od databa
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 15.8.2007 14:32:33
Ahoj mam ted problem s databazi IB, cas od casu se u jednoho zakaznika stane ze jim klekne
pripojeni k databazi, z doposud neznamych duvodu se DB restartuje, zkousel jsem to osetrit
u kazdeho Open/ExecSQL konstrukci
try - catch
Ale stejne je mi to prd platne, protoze mi to ta vyjimka neodchyti a uzivateli se zobrazi
takova ta oskliva systemova hlaska, potreboval bych ji nekde odchytit a zkusit obnovit
pripojeni, protoze v soucasne dobe nejde program odpojit, je jej mozne zabit jen pres spravce.
Nemate to nekdo vyresene???
Diky moc Tom
TClientDataSet.CreateFields
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 15.8.2007 14:38:34
> zrovna nedavno jsem neco podobneho resil, ale nepridavam do
> TClientDataSet-u
> ale do TADODataSet-u (zavreneho), a tam to jde:
No ja jsem to sice s TADODataSet nezkousel,
ale obavam se, ze pokud je v design-time fields editor prazdny, bude prazdny i pred otevrenim. Fieldy, pravda, pridam, ale jak se tam pak dostanou ty fieldy z databaze (ze selectu), to mi neni jasne.
Potrebuju vzit fieldy ze selectu a k nim neco pridat.
Obavam se, ze koneckoncu tohle neresi ani TCustomClientDataSet, ani TADODataSet, ale uz TDataSet.z unit DB.
Nakonec CreateFields, kterou jsem pouzil, je prave metoda TDataSet.
Honza
TClientDataSet.CreateFields
[*] Jiri Puncochar <jiri.puncochar(zv)bcpraha(tec)com> - 15.8.2007 15:34:38
>> zrovna nedavno jsem neco podobneho resil, ale nepridavam do
>> TClientDataSet-u
>> ale do TADODataSet-u (zavreneho), a tam to jde:
>
> No ja jsem to sice s TADODataSet nezkousel,
> ale obavam se, ze pokud je v design-time fields editor prazdny, bude
> prazdny i pred otevrenim.
to je urcite pravda
>Fieldy, pravda, pridam, ale jak se tam pak dostanou ty fieldy z databaze
>(ze selectu), to mi neni jasne.
>
> Potrebuju vzit fieldy ze selectu a k nim neco pridat.
>
>
Ale ja to tak delam, v design-time jsem nacetl ve fields-editoru pomoci Add
all fields pole z database, rucne nejake pridal a pak jeste v runtime pridam
dalsi pole podle potreby. Pridana calculated pole plnim v OnCalcFields
handleru.
Jirka
OT: Firebird konference v CR
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 15.8.2007 17:28:45
Ahoj *,
pripravujeme FB konferenci zde v Ceske republice. Avre Publishing - p.
Marek Kocan a ja. Aktualne se rozhodujeme o miste konani. Ve finalnim
vyberu je Brno a Praha. Jaka lokalita by, z vaseho pohledu, byla pro
vas prijemnejsi?
Presny program apod. bude dostupny behem nekolika dni.
Odpovedi prosim primo na mail (jiri(zv)x2develop.com nebo
diskuze(zv)cincura.net), ne do diskuze.
--
Jiri {x2} Cincura (Microsoft Student Partner)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.8.2007 23:55:10
Puvodni zprava ze dne 15.8.2007 od Jan Kirchner:
> Bohuzel nejsem schopen presne pochopit chovani programu a proto se
> stava, ze po prekladu je vzdy nejake okno, dialog ci string
> neprelozen, pri pristim prekladu zase neco jineho. Naprosto nevim
> cim to je a kde pripadne delam chybu. Vzpominam si ze v predchozich
> verzich se toto delo schvalne snad z duvodu aby se program nedal
> profesionalne pouzivat, ale uz si presne nevzpominam co proti tomu
> delat.
To delala demoverze, kdyz to nebyla plna aktivovana verze. Ted je to
open source, tak snad by to delat nemelo. Ja nicmene pouzivam jeste
komercni aktivovanou verzi, tak nevim. Zbysek uz myslim v teto
konferenci prihlaseny neni, tak pripadne budes muset na jeho e-mail.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Sinea - dynamicka zmena velikosti pisma
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 17.8.2007 15:25:50
From: "Kalhous" <kalhous(zv)eu(tec)cz>
> Jde prosim v generatoru Sinea nejak udelat (programove rizeni tisku?), aby
> se velikost pisma textove datove polozky menila podle toho jak je text
> skutecne dlouhy? Chteji kratke texty vetsim pismem, dlouhe mensim. Treba
> jmeno - "Jan Bis" vytisknout pismem 18 ale "Friedrich-Eusebius Mario
> Skocdopole" pismem 8.
Jednoducha varianta reseni pouze na urovni generatoru sestav neni. Bude
nutna spoluprace volajici aplikace.
Jedno mozne reseni je pres obsluhu udalosti OnPrintElement. Prvek se v
predloze oznaci jako podminene tisteny pomoci programove obsluhy. V obsluze
udalosti je mozne menit parametry fontu prvku, tedy i velikost. Problem je,
ze v teto udalosti neni k dispozici Canvas ani skutecna velikost elementu,
nelze tedy provest presny vypocet. Pokud by stacilo priblizne reseni, tak
obsluha udalosti by vypadala nejak takto:
begin
Text := Sender.DataSource.Dataset.FieldByName('Text').AsString;
ElementFont.Size := 12;
if Length(Text) > 5 then ElementFont.Size := 10;
if Length(Text) > 10 then ElementFont.Size := 8;
end;
Otazkou je, kolik takovychto prvku je v predloze. Pokud je jich vice, musi
se pouzit i parametr identifikace prvku pro jejich rozliseni. Pokud by byl
jen jeden, dal by se parametr identifikace pouzit k predani skutecne sirky
prvku. Pak by se dal pouzit fiktivni Canvas a vypocet velikosti pisma by se
mohl provest presne.
Druhou variantou reseni je pouzit prvek PaintBox. Je to prvek, jehoz
vykresleni je plne pod kontrolou volajici aplikace obsluhou udalosti
OnPaintBox. K dispozici je jak Canvas, tak i skutecne rozmery prvku. Pak je
mozne vse, vcetne rozepsani do vice radku.
Vaclav Krmela
Volani metody prapredka
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 17.8.2007 13:43:43
Uz to mam. Zafungovalo mi volani C1(Self).M;
Jaromir Cermak
-----Original Messag
Behalf Of Jan Sebelik
> Najlepsim riesenim je asi navrhnut tie triedy tak, aby to nebolo potrebne.
> TOndrej
To ma Ondra pravdu.
Slo by to (bez znalosti podrobnosti) principialne treba takto:
procedure C1.Mx; virtual;
procedure C1.M;
procedure C1.M
begin
Mx;
end;
procedure C2.Mx; override
procedura C3.M bude volat Mx z C1, kdyz tam nebude na Mx override.
Honza
====================================
Sinea - dynamicka zmena velikosti pisma
[*] Kalhous <kalhous(zv)eu(tec)cz> - 17.8.2007 13:25:42
Jde prosim v generatoru Sinea nejak udelat (programove rizeni tisku?), aby se velikost pisma textove datove polozky menila podle toho jak je text skutecne dlouhy? Chteji kratke texty vetsim pismem, dlouhe mensim. Treba jmeno - "Jan Bis" vytisknout pismem 18 ale "Friedrich-Eusebius Mario Skocdopole" pismem 8.
Z.Kalhous
Volani metody prapredka
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 17.8.2007 12:23:38
> Najlepsim riesenim je asi navrhnut tie triedy tak, aby to nebolo potrebne.
> TOndrej
To ma Ondra pravdu.
Slo by to (bez znalosti podrobnosti) principialne treba takto:
procedure C1.Mx; virtual;
procedure C1.M;
procedure C1.M
begin
Mx;
end;
procedure C2.Mx; override
procedura C3.M bude volat Mx z C1, kdyz tam nebude na Mx override.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================Volani metody prapredka
[*] Lauko Stefan, Insypo <lauko(zv)insypo.sk> - 17.8.2007 12:21:38
----- Original Message -----
From: "Jaromir Cermak" <cermak(zv)procom(tec)cz>
Sent: Friday, August 17, 2007 9:29 AM
> Mam tridy C1 a C2=class(C1) ..., v obou je implementovana metoda M.
> Potreboval bych nadefinovat tridu C3=class(C2), ktera implementuje metodu
> M takto:
>
> procedure C3.M;
> begin
> ....
> M (z C1)
> ....
> end;
>
> nevite nekdo jak na to. Predem diky
Ahoj,
myslim, ze C1.M;
lauko.
TClientDataSet.CreateFields
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 17.8.2007 12:17:37
Jo, Ondro, je to o trochu lepsi, nez jsem mel ja.
Hlavne je tam jenom 1x Open a nehrajes si na PackedRecords.
Ale hlavne - uklidnil jsi me: kdyz to rikas takhle ty, tak uz to lepsi nepujde.
:-)
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
> type
> THackDataSet = class(TDataSet);
> var
> Field: TField;
> begin
> ClientDataSet.FieldDefs.Update; // nacita metadata
> THackDataSet(ClientDataSet).CreateFields; // vytvori "all fields"
>
> // pridavanie vlastnych fields:
>
> ClientDataSet.Open; // nacita data
> end;
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.8.2007 10:51:31
Puvodni zprava ze dne 17.8.2007 od pk:
> Tim jsem myslel to, ze ve slovniku (soubor trn) je treba New = Novy,
> coz bude pouzito v 10 formularich, ale v nekde v 11. formulari bude
> uzamceny odlisny preklad ze New = Nova a ve 12. formulari zase muze
> byt New = Nove. No a protoze ta konverze techto veci tam neni, tak
> ten 11. a 12. formular musim v novejsim Lokalizatoru najit a ty
> odchylky znovu nastavit.
Ja si ted nejsem uplne 100% jisty, jestli myslime oba totez, ale tohle
se da vyresit dalsim slovnikem, ktery bude jen pro dany formular,
pripadne pro nekolik formularu, v nem bude ulozeny jiny preklad. A pak
se tento jiny slovnik priradi k tem danym formularum.
Horsi je to u retezcu, tam se to nijak poradne udelat neda, protoze
retezce se seradi dohromady na sebe a je v tom maglajs. Za to ovsem
Lokalizator nemuze.
Docela dobre to bylo udelano v TurboPower komponentach, kde je vlastni
resource pro retezce dane sady komponent, takze se pak objevi
samostatne, lze ho prelozit do samostatneho slovniku a nasledne uz jen
prirazovat.
> Ale je dobre, ze se k tomu i tak jeste hlasite, kdyz jste to
> prodaval :-)
Ja samozrejme poradim rad, pokud budu vedet, s tim nemam problem :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Volani metody prapredka
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 17.8.2007 10:23:29
> Mam tridy C1 a C2=class(C1) ..., v obou je implementovana
> metoda M. Potreboval bych nadefinovat tridu C3=class(C2),
> ktera implementuje metodu M takto:
>
> procedure C3.M;
> begin
> ....
> M (z C1)
> ....
> end;
>
> nevite nekdo jak na to. Predem diky
Najlepsim riesenim je asi navrhnut tie triedy tak, aby to nebolo potrebne.
HTH
TOndrej
Volani metody prapredka
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 17.8.2007 09:29:24
Ahoj vsichni
Mam tridy C1 a C2=class(C1) ..., v obou je implementovana metoda M. Potreboval bych nadefinovat tridu C3=class(C2), ktera implementuje metodu M takto:
procedure C3.M;
begin
....
M (z C1)
....
end;
nevite nekdo jak na to. Predem diky
Jaromir Cermak
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] pk <delphi(zv)tds-technik(tec)cz> - 17.8.2007 07:35:17
>> Hlavnim problemem bylo (a je), ze sel zkonvertovat jen samotny
>> slovnik, vlastni preklady (odchylky od standardniho slovniku)
>> zkonvertovat nesly.
> Pod tim si mam predstavit co? Nejak se ztracim.
Tim jsem myslel to, ze ve slovniku (soubor trn) je treba New = Novy, coz
bude pouzito v 10 formularich, ale v nekde v 11. formulari bude uzamceny
odlisny preklad ze New = Nova a ve 12. formulari zase muze byt New = Nove.
No a protoze ta konverze techto veci tam neni, tak ten 11. a 12. formular
musim v novejsim Lokalizatoru najit a ty odchylky znovu nastavit.> PS: Znovu pripominam: nejsem autor, nejsem support :-)
Ale je dobre, ze se k tomu i tak jeste hlasite, kdyz jste to prodaval :-)
Pavel Kriz
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.8.2007 23:16:45
Puvodni zprava ze dne 16.8.2007 od pk:
>> Jadro programu je velmi dobre, mnohe veci jsou unikatni...
> Mozna, ze jadro ma nejake unikatnosti, ale s praktickym uzivanim mam
> take velmi spatne zkusenosti.
Ja ho pouzivam kazdou chvili a mam s nim velmi dobre zkusenosti.
Prekladam s nim vsechny programy, mam udelane ruzne slovniky pro ruzne
sady komponent apod. Prodaval se po celem svete, nez se Zbysek pomatl
a prestal vyvijet programy pro Win32.
> Hlavnim problemem bylo (a je), ze sel zkonvertovat jen samotny
> slovnik, vlastni preklady (odchylky od standardniho slovniku)
> zkonvertovat nesly.
Pod tim si mam predstavit co? Nejak se ztracim.
> Nevim, co se zmenilo k lepsimu v te Open Source verzi 6.4,
Nic se nezmenilo, to se Zbysek pomatl a rekl, ze dal nebude delat pro
Win32, ze na dalsi pocitac uz si Delphi ani nenainstaluje. A ze nebude
Lokalizator dal podporovat a da ho volne. Tak to udelal. Open Source
verze tedy nema ochrany, jinak je snad stejna. Zadne vylepseni se uz
neda cekat.
> Jestli to byl zamer a upozorneni nikde neni, tak to je opravdu
> zvlastni pristup.
Nekde to bylo napsane, ja uz nevim kde, bud v dokumentaci nebo na
webu. Hlavne ja nejsem autor. Co Zbysek dodal, to bylo. Poradit si
nenechal.
> Nicmene, ja mam v programove slozce Lokalizatoru nejaky soubor
> localize.key, snad je to ten ke koupene verzi (na zacatku ma
> "LL60"), presto ty problemy byly. Je tam jeste nejaka jina aktivace
> nez samotna existence tohoto souboru ve slozce s Localize.exe? Nebo
> je v tom GUI nejaky utajeny prepinac aby to chodilo?
Plna verze Lokalizatoru 6 byla chranena tak, ze byl zapotrebi soubor
localize.key, ktery obsahoval licencni udaje, a take jedna nejaka DLL
knihovna, ktera v demoverzi nebyla.
Nicmene tohle uz v te Open Source verzi samozrejme neni, to bylo
odstraneno. Jestli to bylo odstraneno dobre, to netusim. Proto je to
Open Source, aby se v tom kazdy hrabal a hrabal a delal si s tim, co
uzna za vhodne v ramci prislusne licence. Kdo pouziva Open Source,
musi se smirit s tim, ze ma neco zadarmo, ze to treba nebude fungovat,
ze si to treba bude muset doprogramovat.
PS: Znovu pripominam: nejsem autor, nejsem support :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] pk <delphi(zv)tds-technik(tec)cz> - 16.8.2007 22:44:42
> Jadro programu je velmi dobre, mnohe veci jsou unikatni...
Mozna, ze jadro ma nejake unikatnosti, ale s praktickym uzivanim mam take
velmi spatne zkusenosti.
Mame starsi verze Lokalizatoru, ktere jsme hodne pouzivali a docela jsme se
s tim zzili. Verzi 5 jsme vynechali, pak jsme koupili verzi 6, ale v te jsme
udelali jen nejake doplnky, poradne se na to prejit nedalo. Hlavnim
problemem bylo (a je), ze sel zkonvertovat jen samotny slovnik, vlastni
preklady (odchylky od standardniho slovniku) zkonvertovat nesly. Ale i u te
konverze slovniku vznikly problemy, kde se nejak popletla zpetna lomitka
nebo uvozovky (uz presne nevim).
Nevim, co se zmenilo k lepsimu v te Open Source verzi 6.4, ale v ni jsme
nedavno zase zkusili jeden projekt s mnoha dll, vsechno se tvarilo, ze je
prelozene, ale v nekterych dll treba vypadla 1/3 prekladu. Nekdy pomohlo
problematicke dll zkouset znovu otevrit a preklad prekompilovat az se ve
finalnim souboru to chybejici objevilo, ale zase treba neco jineho
zmizelo...
Jednu vec, ktera se tyka toho jadra, jsem take nezkousl: zkompilovane
soubory maji stejne datum a cas jako original...
> To delala demoverze, kdyz to nebyla plna aktivovana verze...
Jestli to byl zamer a upozorneni nikde neni, tak to je opravdu zvlastni
pristup. Nicmene, ja mam v programove slozce Lokalizatoru nejaky soubor
localize.key, snad je to ten ke koupene verzi (na zacatku ma "LL60"), presto
ty problemy byly. Je tam jeste nejaka jina aktivace nez samotna existence
tohoto souboru ve slozce s Localize.exe? Nebo je v tom GUI nejaky utajeny
prepinac aby to chodilo?
Pavel Kriz
TClientDataSet.CreateFields
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 16.8.2007 15:44:16
> Field := TField.Create(ClientDataSet.Owner);
Ospravedlnujem sa za chybu, tu ma byt samozrejme namiesto abstraktnej TField konkretna trieda pre dany datovy typ, napriklad TIntegerField.
TOndrej
TClientDataSet.CreateFields
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 16.8.2007 15:02:13
> Potrebuju do TClientDataSet pridal fieldy fkCalculated a fkLookup.
> cds.PackedRecords:=0;
> cds.Open;
> Nactu jenom metadata, tedy ty "all fields".
> Mam naplneny Fields i FieldDefs.
>
> cds.Close;
> Zmizi Fields, zustanou FieldDefs
>
> THookDataSet = class (TDataSet)
> end;
> THookDataSet(cds).CreateFields;
> CreateFields je protected, takze musim pouzit tento "podvod".
> Z FieldDefs se vytvori ty "all fields".
>
> Pridam potrebne
> F:=TFloatField.Create(self), ....,
> F.FiedKind:=fkCalculated; F.DataSet:=cds;
> atd.
>
> cds.PacketRecords:=-1;
> cds.Open;
> Nactu vsechny zaznamy a mam to !
>
> Ale neslo by to nejak bez toho THookDataSet a bez dvakrat Open?
Ahoj, toto je mozno o maly kusok lepsie:
type
THackDataSet = class(TDataSet);
var
Field: TField;
begin
ClientDataSet.FieldDefs.Update; // nacita metadata
THackDataSet(ClientDataSet).CreateFields; // vytvori "all fields"
// pridavanie vlastnych fields:
Field := TField.Create(ClientDataSet.Owner);
try
Field.FieldName := 'TESTCALC';
Field.Name := ClientDataSet.Name + Field.FieldName;
Field.Calculated := True;
Field.DataSet := ClientDataSet;
except
Field.Free;
raise;
end;
...
ClientDataSet.Open; // nacita data
end;
Bez toho THackDataSet by to slo snad takto:
for I := 0 to ClientDataSet.FieldDefs.Count - 1 do
ClientDataSet.FieldDefs[I].CreateField(ClientDataSet.Owner);
ale ak ma fungovat aj update, potom este bude potrebne spravne nastavit pfInKey v ProviderFlags. Zdrojak je v TDataSet.CreateFields, vnorena procedura SetKeyFields.
Podla mna je lepsie ponechat to na THackDataSet(ClientDataSet).CreateFields.
HTH
TOndrej
TClientDataSet.CreateFields
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 16.8.2007 12:22:01
> Ale ja to tak delam, v design-time jsem nacetl ve fields-editoru
> pomoci Add
> all fields pole z database, rucne nejake pridal a pak jeste v
> runtime pridam
> dalsi pole podle potreby. Pridana calculated pole plnim v OnCalcFields
> handleru.
Ano, to je zcela v poradku.
Ja ale hledam reseni, kde nebudu v design-time delat vubec nic. Vsechno jenom v rutime.
TClientDataSet nebude ani na formulari, ani v datovem modulu. Bude soucasti jakehosi datoveho objektu, ktery bude zcela nevizualne resit aplikacni logiku - presneji jenom jeji cast.
Koneckoncu reseni jsem nalezl a popsal. Ale zda se mi trochu kostrbate. Proto jsem se zeptal.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
ADMIN: Firebird konference v CR
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.8.2007 11:31:58
Puvodni zprava ze dne 16.8.2007 od Slavomir Skopalik:
> Umi, ale nesouhlasi. Opravdu jsem striktne proti tomu, aby nekdo
> poslal mail do konference a odpovedi si nechal posilat pouze na svuj
> mail.
Pokud si chce nekdo dohadovat nejake terminy a sam usoudi, ze si je
bude dohadovat mimo konferenci, tak si je proste bude dohadovat mimo
konferenci a ostatni to budou respektovat. Pokud se to nekomu nelibi a
chce nesouhlasit, tak at si klidne nesouhlasi, ale laskave nekde
jinde, ne v teto konferenci. Spatne quotovane protestni hovadiny sem
rozhodne nepatri.
Neco jineho je zprava "Poradte mi, jak se zobrazi napis AHOJ, a
napiste mi to na soukromy mail." a neco jineho je nejaka rozsahla
diskuze o tom, ze se nekomu libi v Brne a nekomu zase vedle Brna.
> ale jinak si myslim, ze pokud jiz nekdo pouzije konferenci, MUSI
> akceptovat to, ze se o tom tematu bude diskutovat a to at se mu to
> libi, nebo nelibi, vcetne nabidek prace a podobne.
Myslim, ze by vubec nezaskodilo si opet po dlouhe dobe precist
pravidla misto takovych plamennych projevu o nabidkach prace.
Timto toto tema v teto konferenci koncim.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Firebird konference v CR
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 16.8.2007 10:41:55
Umi, ale nesouhlasi.
Opravdu jsem striktne proti tomu, aby nekdo poslal mail do konference
a odpovedi si nechal posilat pouze na svuj mail.
Tohle akceptuji, pouze pokud ti dva spolu uzaviraji nejaky primy vztah
(prodej, prace), ale jinak si myslim, ze pokud jiz nekdo pouzije
konferenci, MUSI akceptovat to, ze se o tom tematu bude diskutovat
a to at se mu to libi, nebo nelibi, vcetne nabidek prace a podobne.
A v tomto konkretnim pripade bych i ja rad vedel, co si o tom mysli
ostatni.
Slavek
> Samozrejme, ze tady zase nekdo neumi cist:
>
> >> Odpovedi prosim primo na mail (jiri(zv)x2develop.com nebo
> >> diskuze(zv)cincura.net), ne do diskuze.
>
> Vzdycky se holt nekdo najde.
Firebird konference v CR
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.8.2007 10:15:53
Puvodni zprava ze dne 16.8.2007 od Slavomir Skopalik:
> Samozrejme, ze Brno, bud areal VUT (technologicky park), nebo
> kongresove centrum.
Samozrejme, ze tady zase nekdo neumi cist:
>> Odpovedi prosim primo na mail (jiri(zv)x2develop.com nebo
>> diskuze(zv)cincura.net), ne do diskuze.
Vzdycky se holt nekdo najde.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.8.2007 10:07:52
Puvodni zprava ze dne 16.8.2007 od Jan Kirchner:
> Bohuzel prace s timto programem vyzaduje vyssi divci.
Jadro programu je velmi dobre, mnohe veci jsou unikatni, tam je
opravdu kus prace. GUI stoji opravdu za prd, ale to se mi nikdy
Zbyskovi nepodarilo vysvetlit.
> Puvodni verze se slozitym odemykanim zustala na starem pocitaci a uz
> ji pouzit nemuzu.
Jak se slozitym odemykanim?
> Doufal jsem ze tu bude nekdo kdo Lokalizator 6.4 pouziva a poradi.
Napis Zbyskovi na hlinka(zv)hlinka(tec)cz a on ti poradi. Ja fakt pouzivam
jeste tu plnou verzi s klicem.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Firebird konference v CR
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 16.8.2007 09:47:51
Samozrejme, ze Brno, bud areal VUT (technologicky park), nebo kongresove
centrum.
Slavek
> pripravujeme FB konferenci zde v Ceske republice. Avre
> Publishing - p. Marek Kocan a ja. Aktualne se rozhodujeme o
> miste konani. Ve finalnim vyberu je Brno a Praha. Jaka
> lokalita by, z vaseho pohledu, byla pro vas prijemnejsi?
>
> Presny program apod. bude dostupny behem nekolika dni.
>
> Odpovedi prosim primo na mail (jiri(zv)x2develop.com nebo
> diskuze(zv)cincura.net), ne do diskuze.
>
> --
> Jiri {x2} Cincura (Microsoft Student Partner)
> http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
>
>
>
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] Jan Kirchner <imconr(zv)volny(tec)cz> - 16.8.2007 00:53:14
Dik za odpoved, ano tak nejak to bylo.
My jsme normalne koupili Lokalizator (myslim predchozi verzi) ale nyni
jsem si nainstaloval posledni Open verzi 6.4. ktera by snad chodit mela
jenze nechodi... Bohuzel prace s timto programem vyzaduje vyssi divci.
Puvodni verze se slozitym odemykanim zustala na starem pocitaci a uz ji
pouzit nemuzu. Doufal jsem ze tu bude nekdo kdo Lokalizator 6.4 pouziva
a poradi.
Honza
Petr Zahradnik napsal(a):
> To delala demoverze, kdyz to nebyla plna aktivovana verze. Ted je to
> open source, tak snad by to delat nemelo. Ja nicmene pouzivam jeste
> komercni aktivovanou verzi, tak nevim. Zbysek uz myslim v teto
> konferenci prihlaseny neni, tak pripadne budes muset na jeho e-mail.
>
> Petr Zahradnik, pocitacovy expert
>
Lokalizator v. 6.04 - nejsem scho pen opakovane st
[*] Jan Kirchner <imconr(zv)volny(tec)cz> - 15.8.2007 23:45:09
Dobry den,
chtel bych Vas opet pozadat o pomoc s ovladanim Lokalizatoru.
Bohuzel nejsem schopen presne pochopit chovani programu a proto se
stava, ze po prekladu je vzdy nejake okno, dialog ci string neprelozen,
pri pristim prekladu zase neco jineho. Naprosto nevim cim to je a kde
pripadne delam chybu.
Vzpominam si ze v predchozich verzich se toto delo schvalne snad z
duvodu aby se program nedal profesionalne pouzivat, ale uz si presne
nevzpominam co proti tomu delat.
Prekladam nas maly program do polstiny a vzdy se mi vraci od kolegu
reklamace, ze neco neni prelozeno, prito je to vzdy neco jineho a ve
slovniku vsechny preklady jsou.
Pro jistotu popisi zpusob jak preklady delam, nikde jsem se spravny
postup nedocetl, pouze jsem na nej prisel metodou pokus-omyl.
0. vymazu stary lokalizovany soubor z adresare PLK
1. otevru lokalizator
2. otevru file s lokalizovanym souborem (z menu File a potom vyberu
posledne otevreny)
3. otevre se okno s projektem
4. Zde v Resource lists mohu zkontrolovat zda je vse prelozeno
5. stisknu tlacitko Put to the program a tim se vygeneruje EXE v polske
verzi
Nyni program prekopiruji do spousteciho adresare a vyzkousim, Musim
projit vsechny okna a vsechny dialogy, pokazde je neprelozeno neco
jineho, jednou vice jindy mene.
Budu moc vdecny za radu, projekt musim odevzdat a nyni na tom opet
nekolik hodin neuspesne sedim.
S pozdravem
Jan Kirchner
Microchip nakup DigiKey
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.8.2007 22:20:16
HCS512 ???
AC164125 - Speech Playback PICtail Plus Daughter Board USD 45
DM163030 - PICDEM LCD 2 DEMO BOARD USD 125
APGRD001 - Passive Keyless Entry (PKE) Reference Design USD 170
APGAC011 - PKE Transponder for APGRD001 Reference Design USD 60
DV164122 - PICkit Serial Analyzer USD 50
DM163024 - PICDEM.NET 2 USD 165
CON0197 - 120 Contact Card-Edge Connector USD 13
DM240001 - Explorer 16 Demo Board USD 130
DV244005 - MPLAB REAL ICE PROBE KIT USD 500
AC244002 - MPLAB REAL ICE PERFORMANCE PAK USD 160
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Microchip nakup DigiKey
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.8.2007 22:32:17
Omlouvam se, to sem nepatrilo...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
TClientDataSet - nesmyslne nactene constrainty
[*] delphak(zv)centrum(tec)cz - 22.8.2007 12:45:53
Ahoj,
mam TClientDataSet pres TDataSetProvider pripojeny k Oracle datasetu. SQL je vyber ze 3 tabulek. TclientDataSet pri Refresh zpusobi chybu Duplicate key violation (samotny oracle dataset je bez problemu). Zjistil jsem, ze TClientDataSet si nacte omezeni (primarni klice) z prvni tabulky za FROM v selectu a to je kamen urazu protoze samozrejme v pripade ze je plneny JOINem tak nelze tyto omezeni pouzit (vazbou na dalsi tabulky vzniknou duplicity).
Osetril jsem to zmenou poradi tabulek ve FROM .. ale zajimalo by me zda-li nekdo zna nejake systemovejsi reseni.
Dik za info.
TClientDataSet - nesmyslne nactene constrainty
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 22.8.2007 12:59:54
> mam TClientDataSet pres TDataSetProvider pripojeny k Oracle
> datasetu. SQL je vyber ze 3 tabulek. TclientDataSet pri Refresh
> zpusobi chybu Duplicate key violation (samotny oracle dataset je
> bez problemu). Zjistil jsem, ze TClientDataSet si nacte omezeni
> (primarni klice) z prvni tabulky za FROM v selectu a to je kamen
> urazu protoze samozrejme v pripade ze je plneny JOINem tak nelze
> tyto omezeni pouzit (vazbou na dalsi tabulky vzniknou duplicity).
> Osetril jsem to zmenou poradi tabulek ve FROM .. ale zajimalo by
> me zda-li nekdo zna nejake systemovejsi reseni.
Systemovejsi reseni bohuzel neznam, ale povsiml jsem si dalsi zajimave skutecnosti, ktera souvisi s poradim tabulek - tentokrat prijemna skutecnost:
ClietnDataSet je schopen editovat i select z vice tabulek - proste dela insert, update, delete do te prvni. Zrejme tento "feature" souvisi i z tim problemem, ktery popisujes.
No, vlastne reseni tveho problemu by mohlo jit cestou, kterou jsem tady nedavno diskutoval: vytvorit si FiedDefs a IndexDefs pred otevrenim datasetu. Pak bys to mel pod kontrolou, ze tam zadne primarni klice nebudou.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================TClientDataSet - nesmyslne nactene constrainty
[*] delphak(zv)centrum(tec)cz - 22.8.2007 13:17:55
To ktera tabulka se bude editovat lze zmenit v udalosti OnGetTableName providera. Pokud udalost neni implementovana edituje se prvni tabulka nalezena za prvnim FROM (tedy i v pripade ze je pouzit nejaky subselect)
Staticke nepomaha nebo delam neco spatne. Ale rozhodne nejsou definovany zadne Indexy. Kde se u TClientDataSetu rika jake jsou constrainty, co je primarni klic a tak podobne? Padne to i kdyz mam sve udelano v designu ...
>
> Systemovejsi reseni bohuzel neznam, ale povsiml jsem si dalsi zajimave skutecnosti, ktera souvisi s poradim tabulek - tentokrat prijemna skutecnost:
>
> ClietnDataSet je schopen editovat i select z vice tabulek - proste dela insert, update, delete do te prvni. Zrejme tento "feature" souvisi i z tim problemem, ktery popisujes.
>
> No, vlastne reseni tveho problemu by mohlo jit cestou, kterou jsem tady nedavno diskutoval: vytvorit si FiedDefs a IndexDefs pred otevrenim datasetu. Pak bys to mel pod kontrolou, ze tam zadne primarni klice nebudou.
>
OT: XML v MSSQL 2000 ladeni
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 22.8.2007 15:00:02
Ahoj vsichni
Nevite nekdo o nejakem nastroji, ktery mi dokaze projit XML dokument a otestovat zda je v poradku tak, aby si s nim poradil parser pouzivany funkci OPENXML v MSSQL 2000, kdyz to ladim na query analyzeru, odpovi to nejakou chybou ve stylu neplatny znak na n te radce a ja tomu nerozumim. Potreboval bych neco, co me nastavi na konkretni misto a ukaze mi kde je chyba.
Dekuji
Jaromir Cermak
XML v MSSQL 2000 ladeni
[*] lelicek(zv)volny(tec)cz - 26.8.2007 17:26:26
Ahoj,
nejjednodusi je napr. Mozila Firefox. Tam je chyba popsana presneji.
Jinak se jedna o stejne chybove hlaseni jako dava EI.
Pavel
Od: "Jaromir Cermak" <cermak(zv)procom(tec)cz>
> Nevite nekdo o nejakem nastroji, ktery mi dokaze projit
> XML dokument a otestovat zda je v poradku tak, aby
> si s nim poradil parser pouzivany funkci OPENXML v
> MSSQL 2000, kdyz to ladim na query analyzeru, odpovi
> to nejakou chybou ve stylu neplatny znak na n te radce
> a ja tomu nerozumim. Potreboval bych neco, co me nastavi
> na konkretni misto a ukaze mi kde je chyba.OT: TP & Vista
[*] Pavol Svorc <svorc(zv)slovanet.sk> - 27.8.2007 08:57:31
Ahoj,
potreboval by som poradit. Program v Turbo Pascale (DOS) sa uz neda
spustit pod Vistou vo fullscreen mode. Pouziva kodovanie kamenickych,
teda ked sa to spusti v okne je diakritika necitatelna. Kolega ma
este od toho nejake zdrojaky. Riesili ste niekto nieco podobne? Ako?
S akym vysledkom?
Diky.
Palo
D7 - balicky
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 27.8.2007 09:31:34
S balicky nemam moc zkusenosti, pouzival jsem je zridka.
Ted me prekvapila takovahle blbost:
Chci to vlastne prekladat bez balicku, akorat jsem chtel pouzit sessinea70.bpl, protoze pri pouziti Sinea dosti bobtna EXE.
Tedy "build with runtime packages", do seznamu pouzitych balicku jenom sessinea70.
Presto to po prekladu vyzaduje
bdertl70.bpl
dbrtl70.bpl
rtl70.bpl
vcl70.bpl
vcldb70.bpl
vclsmp70.bpl
vclx70.bpl
Neni to divne?
Honza
D7 - balicky
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.8.2007 10:03:36
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
> Chci to vlastne prekladat bez balicku, akorat jsem chtel pouzit
> sessinea70.bpl, protoze pri pouziti Sinea dosti bobtna EXE.
> Tedy "build with runtime packages", do seznamu pouzitych balicku jenom
> sessinea70.
>
> Presto to po prekladu vyzaduje
> bdertl70.bpl
> dbrtl70.bpl
> rtl70.bpl
> vcl70.bpl
> vcldb70.bpl
> vclsmp70.bpl
> vclx70.bpl
>
> Neni to divne?
To asi tak bude. To jsou balicky uvedene v Requires runtime balicku
SesSinea. Pri trose snahy by se dal jejich pocet omezit, ale uplne zbavit se
jich nejde, protoze alespon DBRTL, RTL a VCL generator sestav Sinea
potrebuje.
Vaclav Krmela
D7 - balicky
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 27.8.2007 10:01:36
> Chci to vlastne prekladat bez balicku, akorat jsem chtel
> pouzit sessinea70.bpl, protoze pri pouziti Sinea dosti bobtna EXE.
> Tedy "build with runtime packages", do seznamu pouzitych
> balicku jenom sessinea70.
>
> Presto to po prekladu vyzaduje
> bdertl70.bpl
> dbrtl70.bpl
> rtl70.bpl
> vcl70.bpl
> vcldb70.bpl
> vclsmp70.bpl
> vclx70.bpl
>
> Neni to divne?
Je to "as designed". sessinea70.bpl zrejme (priamo alebo nepriamo) zavisi od tych dalsich .bpl (klauza "requires" v dpk). Jedna sa o staticke linkovanie DLL, takze si to mozes pozriet v Dependency Viewer (depends.exe od Microsoftu, sucast Platform SDK).
Nasadenie balickov pre jedinu aplikaciu problem "bobtnania" exe neriesi (co usetris na exe, musis dodat vo forme bpl). V tomto pripade je dokonca z hladiska velkosti vyhodnejsie kompilovat bez balickov - linker by mal z exe vyhodit nepouzity kod.
To skor pri nasadeni viacerych aplikacii, tam sa to uz prejavi (spolocny zdielany kod v bpl, viac mensich exe).
HTH
TOndrej
TP & Vista
[*] vlko <vlko(zv)zilina(tec)net> - 27.8.2007 10:11:37
Pavol Svorc wrote:
> Ahoj,
> potreboval by som poradit. Program v Turbo Pascale (DOS) sa uz neda
> spustit pod Vistou vo fullscreen mode. Pouziva kodovanie kamenickych,
> teda ked sa to spusti v okne je diakritika necitatelna. Kolega ma
> este od toho nejake zdrojaky. Riesili ste niekto nieco podobne? Ako?
> S akym vysledkom?
No lepsie ako sa trapit s prerobenim aplikacie je pouzit
DosBox (http://dosbox.sourceforge.net/news.php?show_news=1)
a spustit aplikaciu v nom.
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Programove vyplnenie formulara v pdf a jeho vytlac
[*] Marian Muller <muller(zv)hselectronic.sk> - 27.8.2007 19:52:15
Ahojte,
potrebujem z Delphi 6 programovo vyplnat polia formulara v .pdf suboroch a potom vyplnene aj vytlacit. Vyriesil uz niekto tento problem bezbolestne?
Uz som to aj hladal niekde v archive, ale nic...
Na internete som nasiel vela komponent, ale vsetko bolo mimo schopnosti mojej penazenky :-(((
Ak by niekto vedel o niecom free, alebo aspon relativne lacnom, velmi by mi to pomohlo. Moze to byt aj nejake male .exe ktory to vyplni a vytlaci aj cez prikazovy riadok.
Dakujem,
Marian.
---------------------------------------------------
Vykonana antivirova kontrola systemom ISG DSi data
---------------------------------------------------
sinea a carovy kod
[*] konference(zv)sales(tec)cz - 27.8.2007 19:30:13
----- Original Message -----
From: "Milan Dvorak" <dvorak(zv)gymzn(tec)cz>> Potreboval bych v sestavach sinea zobrazovat ciselne pole v podobe
> caroveho kodu. Nasel jsem to tam pouze jakostaticky prvek - ne jako prvek
> databaze. Lze to nejak obejit?
Ahoj,
No mas tam pole "Funkcni vyraz" a tam proste dej ktere poje z databaze chces
tisknout (napriklad #2), nebo nejakou funkci, ktera je pocitana z databaze.
Ludek
sinea a carovy kod
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 27.8.2007 19:02:11
Potreboval bych v sestavach sinea zobrazovat ciselne pole v podobe caroveho kodu. Nasel jsem to tam pouze jakostaticky prvek - ne jako prvek databaze. Lze to nejak obejit?
Milan Dvorak
fotky ve firebirdu
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 27.8.2007 18:48:10
Tak jsem prisel jeste na jedno reseni - JPG format umi JvDBImage.
Milan Dvorak
>>> dvorak(zv)gymzn(tec)cz 27.8.2007 16:20 >>>
Zkousim ulozit fotky osob do databaze. Pouzl jsem k tomu BLOB subtype 0.
Kdyz se pokousim nacist fotku do pole (pro jeji zobrazeni jsem pouzil DBImage) tak mi to jde pouze s fotkami ve formatu BMP. U JPG mi to rve "Bitmap image is not valid". Neprisel jsem na to jak u DBImage nastavit jiny format.
Dotaz: jde to nejak resit? - myslim tim, ze by na to sel napasovat JPG. BMP prece jen zere misto na disku. Na pocatek pocitam s cca 750 fotkami a postupne to bude narustat.
Milan Dvorak
fotky ve firebirdu
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 27.8.2007 17:58:07
Zdravim
> Zkousim ulozit fotky osob do databaze. Pouzl jsem k tomu BLOB subtype 0.
> Kdyz se pokousim nacist fotku do pole (pro jeji zobrazeni jsem pouzil
> DBImage) tak mi to jde pouze s fotkami ve formatu BMP. U JPG mi to rve
> "Bitmap image is not valid". Neprisel jsem na to jak u DBImage nastavit
> jiny format.
*Napriklad tu je kus kodu z jedneho mojho programu.
*Natahujem do databazy icony z exe suborov
*U bmp to podobne, jpg sa da samozrejme skonvertovat do bmp.
*Rieseni je viac.
SHGetFileInfo(PChar(Path+SR.Name), 0, FileInfo,
SizeOf(FileInfo),
SHGFI_ICON or SHGFI_SMALLICON);
Ic := TIcon.Create;
Ic .Handle := FileInfo.hIcon;
Strm := TMemoryStream.Create;
try
if Ic <> nil then
begin
Ic.SaveToStream(Strm);
Strm.Position := 0;
TBlobField(RxMemoryData1.FieldByName('Icon')).LoadFromStream(Strm);
end;
finally
Strm.Free;
end;
end;
end;
RxMemoryData1.Post;
> Dotaz: jde to nejak resit? - myslim tim, ze by na to sel napasovat JPG.
> BMP prece jen zere misto na disku. Na pocatek pocitam s cca 750 fotkami a
> postupne to bude narustat.
>
S pozdravom
Ivan Dulgerov
Delphi5 Visual Studio 2005, Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1,
Win98 SE
mail : idulgerov(zv)stonline.sk
ICQ : 190698607
fotky ve firebirdu
[*] Robert Fujak <robof(zv)inmail.sk> - 27.8.2007 17:42:05
Musis pouzit Timage ten podporuje jpg,jpeg,bmp,ico,emf,wmf a nacitavat a
vkladat to cez MemoryStream a TBlobField
Robo
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Milan Dvorak
Sent: Monday, August 27, 2007 3:20 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: fotky ve firebirdu
Zkousim ulozit fotky osob do databaze. Pouzl jsem k tomu BLOB subtype 0.
Kdyz se pokousim nacist fotku do pole (pro jeji zobrazeni jsem pouzil
DBImage) tak mi to jde pouze s fotkami ve formatu BMP. U JPG mi to rve
"Bitmap image is not valid". Neprisel jsem na to jak u DBImage nastavit jiny
format.
Dotaz: jde to nejak resit? - myslim tim, ze by na to sel napasovat JPG. BMP
prece jen zere misto na disku. Na pocatek pocitam s cca 750 fotkami a
postupne to bude narustat.
Milan Dvorak
fotky ve firebirdu
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 27.8.2007 16:20:00
Zkousim ulozit fotky osob do databaze. Pouzl jsem k tomu BLOB subtype 0.
Kdyz se pokousim nacist fotku do pole (pro jeji zobrazeni jsem pouzil DBImage) tak mi to jde pouze s fotkami ve formatu BMP. U JPG mi to rve "Bitmap image is not valid". Neprisel jsem na to jak u DBImage nastavit jiny format.
Dotaz: jde to nejak resit? - myslim tim, ze by na to sel napasovat JPG. BMP prece jen zere misto na disku. Na pocatek pocitam s cca 750 fotkami a postupne to bude narustat.
Milan Dvorak
FB - corrupt database
[*] Kalhous <kalhous(zv)eu(tec)cz> - 28.8.2007 14:41:31
Zkusil bych
gfix -mend
nebo pred casem na stejny dotaz mi P.Cisar poradil nejakou utilitku ktera se
da stahnout i Inetu ale ted uz zpameti nevim jakou. Myslim ze neco jako
IBFirstAID.
Z.Kalhous
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 28, 2007 2:07 PM
Subject: FB - corrupt database
> Bojuju tady s porusenou databazi.
> Nevim, co s ni uzivatel provadel, asi 3-4 roky se neozyval.
> Jde o dochazku pro 1000 lidi - myslel jsem, ze to snad uz ani nepouzivaji,
kdyz se vubec neozyvaji.
> // Zkousim validaci
> GFIX.EXE -v -user SYSDBA -password masterkey person.gdb
> -bad checksum
> -checksum error on database page 267201
>
> // Zkousim Prepare corrupt database for backup
> GFIX.EXE -v -user SYSDBA -password masterkey person.gdb
FB - corrupt database
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 28.8.2007 14:25:30
Neco malo z dokumentace:
-m[end] Data repair Marks corrupt records as unavailable, so they
example, during a subsequent backup)
-f[ull] Data repair Used with -v to check record and page structures, releasing
unassigned record fragments
1. Pravidlo: Porid si kopii a pracuj s kopii, nikdy nepracuj s ostraou DB
2. Pravidlo: Pouzij nejdrive nastroje z verze, kterou pouzivaji oni, potom
nastroje (mineno cely server) s novejsi az po nejnovejsi.
Poznamka: Nekam bych si poznamenal, ze vysledne sestavy nebudou
zrovna z nejpresnejsich.
Slavek
> Bojuju tady s porusenou databazi.
> Nevim, co s ni uzivatel provadel, asi 3-4 roky se neozyval.
> Jde o dochazku pro 1000 lidi - myslel jsem, ze to snad uz ani
> nepouzivaji, kdyz se vubec neozyvaji.
>
> // Zkousim validaci
> GFIX.EXE -v -user SYSDBA -password masterkey person.gdb
> -bad checksum
> -checksum error on database page 267201
>
> // Zkousim Prepare corrupt database for backup
> GFIX.EXE -v -user SYSDBA -password masterkey person.gdb
>
> // Pokus o backup
> GBAK.EXE -b --user SYSDBA -password masterkey person.gdb
> person.gbk -bad checksum -checksum error on database page 267201
>
> // Pokus o backup s "ignore bad checksums"
> GBAK.EXE -b -ig -user SYSDBA -password masterkey person.gdb person.gbk
>
> gbak: ERROR: database file appears corrupt ()
> gbak: ERROR: wrong page type
> gbak: ERROR: page 267201 is of wrong type
> gbak: ERROR: gds_$receive failed
> gbak: Exiting before completion due to errors
>
> Da se s tim jeste neco delat?
> Voni na tom fakt jedou porad naostro a ted maji generovat
> data pro vystup do mezd.
FB - corrupt database
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 28.8.2007 14:07:29
Bojuju tady s porusenou databazi.
Nevim, co s ni uzivatel provadel, asi 3-4 roky se neozyval.
Jde o dochazku pro 1000 lidi - myslel jsem, ze to snad uz ani nepouzivaji, kdyz se vubec neozyvaji.
// Zkousim validaci
GFIX.EXE -v -user SYSDBA -password masterkey person.gdb
-bad checksum
-checksum error on database page 267201
// Zkousim Prepare corrupt database for backup
GFIX.EXE -v -user SYSDBA -password masterkey person.gdb
// Pokus o backup
GBAK.EXE -b --user SYSDBA -password masterkey person.gdb person.gbk
-bad checksum
-checksum error on database page 267201
// Pokus o backup s "ignore bad checksums"
GBAK.EXE -b -ig -user SYSDBA -password masterkey person.gdb person.gbk
gbak: ERROR: database file appears corrupt ()
gbak: ERROR: wrong page type
gbak: ERROR: page 267201 is of wrong type
gbak: ERROR: gds_$receive failed
gbak: Exiting before completion due to errors
Da se s tim jeste neco delat?
Voni na tom fakt jedou porad naostro a ted maji generovat data pro vystup do mezd.
Diky
Honza
Sinea, TPrintDialog, predvolba tiskarny
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 28.8.2007 11:47:20
> Zakaznik by chtel podle typu tistene sestavy automaticky nastavit tiskarnu
> v print dialogu (jinou nez vychozi). Je to nejak mozne primo v print
> dialogu Sinea?
Melo by to jit programove pres property PrinterDialog.PrinterIndex.
Automaticky podle typu sestavy to nejde. Predloha tiskove sestavy je
absolutne nezavisla na instalovanych tiskarnach a tim i prenositelna mezi
libovolnymi stroji.
Jinak by se muselo upresnit ktery dialog a jakym zpusobem je vytvaren a
zobrazovan.
Vaclav Krmela
Sinea, TPrintDialog, predvolba tiskarny
[*] Kalhous <kalhous(zv)eu(tec)cz> - 28.8.2007 10:47:16
Zakaznik by chtel podle typu tistene sestavy automaticky nastavit tiskarnu v print dialogu (jinou nez vychozi). Je to nejak mozne primo v print dialogu Sinea? Pokud ne, da se nejak z D7 menit vychozi tiskarna systemu? Diky.
Z.Kalhous
OT: Nabidka prace v Ostrave
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 28.8.2007 07:47:01
Softwarova firma CHARONWARE, s.r.o., se sidlem v Ostrave,
hleda programatora.
Pozadujeme.:
znalost Delphi,
znalost OOP,
pasivni znalost anglictiny (aktivni znalost vyhodou),
ochotu ucit se novym vecem,
znalost databazi (neni podminkou),
samostatnost,
schopnost analyzy problemu.
Nabizime:
zajimavou praci v mladem kolektivu, prijemne pracovni prostredi,
odpovidajici financni ohodnoceni, zazemi stabilni firmy. Zivotopisy
zasilejte na adresu jobs(zv)casestudio.com. Do zpravy uvedte i nazev pozice.
Programove vyplnenie formulara v pdf a jeho vytlac
[*] Petr Grulich <delfinpetr(zv)gmail(tec)com> - 28.8.2007 21:45:59
Ahoj,
podivej se na FastReport, ten to umi.
2007/8/27, Marian Muller <muller(zv)hselectronic.sk>:
>
> Ahojte,
> potrebujem z Delphi 6 programovo vyplnat polia formulara v .pdf suboroch a
> potom vyplnene aj vytlacit. Vyriesil uz niekto tento problem bezbolestne?
> Uz som to aj hladal niekde v archive, ale nic...
>
> Na internete som nasiel vela komponent, ale vsetko bolo mimo schopnosti
> mojej penazenky :-(((
>
> Ak by niekto vedel o niecom free, alebo aspon relativne lacnom, velmi by
> mi to pomohlo. Moze to byt aj nejake male .exe ktory to vyplni a vytlaci aj
> cez prikazovy riadok.
>
> Dakujem,
> Marian.
> ---------------------------------------------------
> Vykonana antivirova kontrola systemom ISG DSi data
> ---------------------------------------------------
>
>
>
Programove vyplnenie formulara v pdf a jeho vytlac
[*] Pavel Zidek <delphi(zv)kopr(tec)cz> - 29.8.2007 08:50:43
Zdravim,
pravdepodobne potrebujes do originalnich souboru pdf (napr. do danoveho
priznani) zadat nejake texty pomoci sveho programu.
1. dany soubor PDF otevres v Adobe Acrobat Professional
2. koupis si knizku o Adobe, kde se doctes jak na jednotlive radky vlozit
promenne
3. soubor ulozis s priponou FDF
4. svym programem pak vyplnis data v souboru FDF a tetto soubor otevres v
AdobeReader, kde pak mas jiz vyplnene promenne, ktere dale muzes prepisovat,
opravovat atd...
Pavel ZIDEK
> potrebujem z Delphi 6 programovo vyplnat polia formulara v .pdf suboroch a
potom vyplnene aj vytlacit. Vyriesil uz niekto tento problem bezbolestne?
Word Hromadna korespondence z Delphi pres Word Aut
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 29.8.2007 10:06:49
Ahoj,
lze programove pouzivat hromadnou korespondenci z Delphi pres Word
Automation?
Predstavuji si to tak, ze bych si ve Wordu vytvoril sablonu obalky v
Hromadne korespondenci.
Z programu z Delphi bych naplnil zdroj dat a sloucil bych tyto data do
noveho dokumentu a tento dokument zobrazil ve Wordu vse z programu v Delphi.
Petr Kejval
Word Hromadna korespondence z Delphi pres Word Aut
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 29.8.2007 10:28:51
Lze to, ale priprav se na peklo na zemi. Hlavne co se tyka zdroju dat -
my pouzivame DBF pres ODBC a bohuzel se setkavame se situacemi, ze je
nutno znovu otevrit veskere sablony (je jich nekolik set) a definovat
zdroj dat (porad stejny soubor). V novejsich verzich (psanych v Delphi)
pouzivame radeji interni editor zalozeny na komponente TRichView s
nasemi upravami pro podporu slucovacich poli.
Vlastni ovladani je velice jednoduche, ale pokud se ti jedna o nejake
masivnejsi vyuziti urcite bych se kouknul po jinem reseni.
S pozdravem
Milan Tomes
Petr Kejval napsal(a):
> lze programove pouzivat hromadnou korespondenci z Delphi pres Word
> Automation?
>
Word Hromadna korespondence z Delphi pres Word Aut
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.8.2007 10:26:50
> lze programove pouzivat hromadnou korespondenci z Delphi pres Word
> Automation?
>
> Predstavuji si to tak, ze bych si ve Wordu vytvoril sablonu obalky v
> Hromadne korespondenci.
> Z programu z Delphi bych naplnil zdroj dat a sloucil bych
> tyto data do noveho dokumentu a tento dokument zobrazil ve Wordu vse
> z programu v Delphi.
Ano, Word ma metodu MailMerge, ktora je pristupna cez automation.
Z Delphi aplikacie si mozes pripravit data source (napriklad textovy subor, ODBC, atd.), cez automation otvorit vo Worde pripravenu sablonu, zavolat MailMerge a vysledny subor ulozit, vytlacit, atd.
Pouzil som to kedysi davno na hromadne generovanie a tlacenie listov zakaznikom.
HTH
TOndrej
Word Hromadna korespondence z Delphi pres Word Aut
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.8.2007 11:18:54
> Lze to, ale priprav se na peklo na zemi. Hlavne co se tyka
> zdroju dat - my pouzivame DBF pres ODBC a bohuzel se
> setkavame se situacemi, ze je nutno znovu otevrit veskere
> sablony (je jich nekolik set) a definovat zdroj dat (porad
> stejny soubor). V novejsich verzich (psanych v Delphi)
> pouzivame radeji interni editor zalozeny na komponente
> TRichView s nasemi upravami pro podporu slucovacich poli.
> Vlastni ovladani je velice jednoduche, ale pokud se ti
> jedna o nejake masivnejsi vyuziti urcite bych se kouknul
> po jinem reseni.
Bolo to uz davno, takze na detaily si zial nespominam, ale myslim, ze to priradenie data source som robil tiez v kode. Povodny zdroj dat bola DB2 na AS/400 cez ODBC, ale ja som si myslim ukladal docasne textove subory a ako data source pre Word som pouzil tie. Bolo to tusim este v dobach Delphi 4/5.
Nejake problemy tam na zaciatku urcite boli, ale pokial si spominam, nakoniec to fungovalo spolahlivo a zvladalo to generovanie, ukladanie pre backup a tlac niekolko tisic listov denne.
Myslim, ze Word bol vtedy zvoleny kvoli moznosti pre uzivatelov jednoducho si navrhnut nove sablony a pouzit pritom vymozenosti Wordu, napriklad rozne divoke ;-) formatovanie textu, vkladanie obrazkov aj do pozadia, oskenovanych podpisov, pouzivanie nestandardnych formatov papiera, umiestnovanie textovych poli s presnostou v ramci tolerancie pre OCR atd. A vysledne dokumenty boli archivovane v stave jednoducho pouzitelnom pre opetovne vytlacenie.
HTH
TOndrej
Programove vyplnenie formulara v pdf a jeho vytlac
[*] Marian Muller <muller(zv)hselectronic.sk> - 29.8.2007 13:27:03
Super, vyskusal som, funguje. Dakujem.
Ale nevies aka min. verzia AcrobatReader musi byt nainstalovana u zakaznika, aby fungovali tie .fdf subory?
Vdaka.> Zdravim,
> pravdepodobne potrebujes do originalnich souboru pdf (napr. do danoveho
> priznani) zadat nejake texty pomoci sveho programu.
> 1. dany soubor PDF otevres v Adobe Acrobat Professional
> 2. koupis si knizku o Adobe, kde se doctes jak na jednotlive radky vlozit
> promenne
> 3. soubor ulozis s priponou FDF
> 4. svym programem pak vyplnis data v souboru FDF a tetto soubor otevres v
> AdobeReader, kde pak mas jiz vyplnene promenne, ktere dale muzes prepisovat,
> opravovat atd...
> Pavel ZIDEK
>
> > potrebujem z Delphi 6 programovo vyplnat polia formulara v .pdf suboroch a
> > potom vyplnene aj vytlacit. Vyriesil uz niekto tento problem bezbolestne?
Free report a NULL
[*] Jan Naiser <tua(zv)wo(tec)cz> - 29.8.2007 13:53:04
Preji pekny den,
WXPP, D2007
jakym zpusobem se da otestovat ve skriptu free reportu databazova hodnota na
NULL? Je-li hodnota (napr. stringu v nektere souctovane polozce) NULL, pak
mi to samozrejme shodi cely retezec, ktery je ve vysledku prazdny. Pokud
string NULL testuju na prazdny string, vysledek je false, takze se retezec
chova pri testech jako neprazdny.
Zkousel jsem i nastaveni NullStrictConvert apod., ale bez vysledku.
Diky, Honza.
Programove vyplnenie formulara v pdf a jeho vytlac
[*] Pavel Zidek <delphi(zv)kopr(tec)cz> - 29.8.2007 14:17:06
> Super, vyskusal som, funguje. Dakujem.
> Ale nevies aka min. verzia AcrobatReader musi byt nainstalovana u
zakaznika, aby fungovali tie .fdf subory?
Zkousel jsem to na 6.xx a slo to
Pavel ZIDEK
Word Hromadna korespondence z Delphi pres Word Aut
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 29.8.2007 17:39:20
Zkus se podivat na toto: http://ekrtf.code.net.ru
Je tam jak free tak nefree verze. Ta free staci na vetsinu veci (urcite na hromadnou korespondenci). Co neumi je vkladani textu, ktery je sam o sobe RTF (ulozeny napr. v BLOBu). Pouzivam to bezne (ve spojeni s Firebirdem) a funguje to i na pomerne slozite veci.
Milan Dvorak
>>> petr.kejval(zv)worldonline(tec)cz 29.8.2007 10:06:49 >>>
Ahoj,
lze programove pouzivat hromadnou korespondenci z Delphi pres Word
Automation?
Predstavuji si to tak, ze bych si ve Wordu vytvoril sablonu obalky v
Hromadne korespondenci.
Z programu z Delphi bych naplnil zdroj dat a sloucil bych tyto data do
noveho dokumentu a tento dokument zobrazil ve Wordu vse z programu v Delphi.
Petr Kejval
FB - corrupt database
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 30.8.2007 00:37:46
On 8/28/07, Kalhous <kalhous(zv)eu(tec)cz> wrote:
> Zkusil bych
> gfix -mend
> nebo pred casem na stejny dotaz mi P.Cisar poradil nejakou utilitku ktera se
> da stahnout i Inetu ale ted uz zpameti nevim jakou. Myslim ze neco jako
> IBFirstAID.
Je to IBFirstAid od IBSurgeon (myslim). Nyni uz soucasti IBPhoenix.
http://www.ibphoenix.com/main.nfs?a=ibphoenix&page=ibp_firstaid
--
Jiri {x2} Cincura (Microsoft Student Partner)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Drazba Delphi 2007 for Win32 Enterprise
[*] rkubat(zv)email(tec)cz - 30.8.2007 12:08:35
Na webovem obchode Borland s.r.o. s adresou http://shop.codegear(tec)cz byla prave spustena drazba Delphi 2007 Enterprise s vyvolavaci cenou 15 000,- Kc bez DPH, tedy za mene nez polovicni cenu upgrade.
Jedinou neobvyklou veci je pouze to, ze jde o francouzskou jazykovou mutaci. Jinak je to bezne Delphi 2007 vcetne instalacnich medii. Drazba probiha do 21.9.2007, 15:00 hodin. Vydrazeny produkt je okamzite k dispozici.
jak ziskat puvodni hodnotu vlastnosti
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.8.2007 15:14:47
ahoj,
snazim se za vehu ziskat hodnotu vlastnosti, tak jak je nastavena v
DFM. Bohuzel jedine co k tomu vim je, ze se to snad dela pres RTTI.
Muzete me nekdo prosim nakopnout? V helpu nic podobneho najit nemuzu.
bud maly prikladek, nebo nejaky odkaz na dobry zdroj informaci.
dik moc,
Peca aka Petr Palicka
OT: Nabidka prace
[*] Petr Langer <p.langer(zv)nexnet(tec)cz> - 31.8.2007 09:32:03
Spolecnost DC Concept a.s. zabyvajici se vyvojem a distribuci unikatniho
vyvojoveho nastroje nove generace a vyvojem a distribuci podnikovych
informacnich systemu vytvorenych zminenym nastrojem hleda pro pracoviste
v Prostejove do sveho kolektivu schopne, aktivni a dynamicke osobnosti
na pozici:
Pracovnik vyvoje +IBM- Programator
Napln prace : Vyvoj aplikaci pro datove a objektove modelovani
Pozadujeme:
- VS/SS vzdelani technickeho zamereni
- Praxe v oblasti analyzy a vyvoje softwaru vyhodou
- Pokrocila znalost programovaciho jazyka PASCAL (Delphi)
- Znalost operacniho systemu Windows a API rozhranni
- Znalost XML
- Znalost jazyku C+-+-, C#, Java vyhodou
- Znalost principu fungovani databazovych serveru a jazyka SQL vyhodou
- Znalost Microsoft SQL Server nebo Oracle vyhodou
- Analyticke a tvurci schopnosti
- Logicke mysleni
- Schopnost samostatne a tymove prace
- Komunikacni schopnosti
- Znalost anglickeho jazyka (alespon pasivne cteni odborne literatury)
- Vysoke pracovni nasazeni
Nabizime:
- Praci s nejmodernejsimi technologiemi
- Prace na mezinarodnich projektech
- Zajimave pracovni podminky
- Zamestnani v mladem kolektivu
- Odborny rust v oblasti informacnich technologiich
- Misto pracoviste: Prostejov
- Nastup: zari - rijen 2007
V pripade zajmu zasilejte nabidky s udaji o dosazene kvalifikaci
e-mailem na adresu job(zv)dcconcept(tec)cz nebo postou na adresu
DC Concept a.s., Holandska 3, 639 00 Brno,
popripade se informujte na telefonnim cisle 544 502 000.
Prohlaseni o ochrane osobnich udaju:
Zaslanim zivotopisu udeluje uchazec spolecnosti DC Concept a.s., se
sidlem Brno, Holandska 3, IC: 25590481, souhlas se zpracovanim a
uchovanim jeho osobnich udaju na dobu neurcitou do odvolani ve smyslu +AKc-
5 odst. 2 a 5 zakona c. 101/2000 Sb., Zakon o ochrane osobnich udaju.
Souhlas je poskytnut v rozsahu zaslanych udaju. Uchazec zaslanim
zivotopisu potvrzuje, ze uvedene osobni udaje budou pravdive a presne.
OT: Nabidka prace - korekce
[*] Petr Langer <p.langer(zv)nexnet(tec)cz> - 31.8.2007 09:44:04
Nevim proc, ale kdyz mi to prislo zpatky pres konferenci, byly zmrsene
nektere casti, ackoliv puvodni zprava se v Thunderbirdu jevi v poradku.
Takze pokud to vidite stejne jako ja, tak opravuju:
Pracovnik vyvoje - Programator (nevim proc tam pribylo to +-IBM-)
- Znalost jazyku C+-+-, C#, Java vyhodou (nikoliv C+--+--)
v zaverecni casti pak +-AKc- ma byt znak paragrafu
Diky,
Petr Langer
internetovy prohlizec
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 03.9.2007 10:06:49
zdravim
nevite nekdo jak dostat do internetoveho prohlizece vlastni HTML? umim to
pro "Internet Explorer" ale potreboval bych to pro vsechny ostatni
(Firefox,Opera,Safari,Netscape) nevite jestli to vubec lze? (je mi jasne ze
ulozit do temporaly a zavolat prohlizec s parametrem jde taky, ale spis bych
potreboval necco jako active x)
diky za kazdou radu internetovy prohlizec
[*] vlko <vlko(zv)zilina(tec)net> - 03.9.2007 11:36:56
Ladislav Fitz wrote:
> zdravim
>
> nevite nekdo jak dostat do internetoveho prohlizece vlastni HTML? umim to
> pro "Internet Explorer" ale potreboval bych to pro vsechny ostatni
> (Firefox,Opera,Safari,Netscape) nevite jestli to vubec lze? (je mi jasne ze
> ulozit do temporaly a zavolat prohlizec s parametrem jde taky, ale spis bych
> potreboval necco jako active x)
>
> diky za kazdou radu
Pre mozillu je mozne najst activex tu:
http://www.iol.ie/~locka/mozilla/mozilla.htm
Safari pouziva webkit knihovnu, takze by nemal byt problem
ju pouzit v programe vid projekt swift, ktory je napisany v
C# (http://www.zimmy.ca/projects/swift/) a webkit je mozne
stiahnut odtialto: http://webkit.org/
Netscape pouziva mozilla renderovacie jadro, alebo ie
renderovacie jadro (teda neviem ako v najnovsej verzii),
takze tam by problem nemal byt.
Nuz a opera, pretoze je closed source tak bude asi najvatsi
problem, tuna ale pisu, ze to mozne je
http://dev.opera.com/forums/topic/193549, takze skus
sledovat thread mozno to niekto prezradi:)
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
pracovani s byts a bits v delphi
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 04.9.2007 10:02:21
David Kopecek napsal(a):
> mam 2 bytes strukturu ktera udava vlastnost slova
>
> mam zapis v bitech ale nevim jak to interpertovat vyse, nebo jak to
> vyuzit.
>
> 1234567812345678
>
> 1001000000011000
>
bity se pocitaji zprava :)
> 1 bit - kontrola
> 3 bit - type
> 12 bit - pozice
>
> jak z toho dostanu type ? a prevedu pozici do integer ?..
>
s wordem (integerem apod.) se pracuje takto:
//nastavim 3. bit ve wordu
//samozrejme, ze to muzu udelat jako w := 4, nicmene tohle je pro
demonstraci jak nastavovat jednotlive bity
var
w: Word;
begin
w := 0;
w := w or 4;
end;
Nicmene priznam se, ze me ted nenapada jak naopak shodit bit - neco jako
w := w and (not w) ?
> pak by me zajimalo jak priradim do hodnoty type byte tohle 00101110 ?
>
>
Jednoduse - prevedes to na integer nebo do hexa tzn. b := 46 :)
S pozdravem
Milan Tomes
pracovani s byts a bits v delphi
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 04.9.2007 09:46:20
Zdravim konferenci,
omlouvam se za velmi zvlastni otazku ktera ma jednoduchou odpoved ale
ja proste nevim..
mam 2 bytes strukturu ktera udava vlastnost slova
mam zapis v bitech ale nevim jak to interpertovat vyse, nebo jak to
vyuzit.
1234567812345678
1001000000011000
1 bit - kontrola
3 bit - type
12 bit - pozice
jak z toho dostanu type ? a prevedu pozici do integer ?..
pak by me zajimalo jak priradim do hodnoty type byte tohle 00101110 ?
neco jako
var
b:byte;
begin
b:=00101110;
urcite je to komplet easy ale ja vazne nevim a nemuzu nic najit.
vetisnou je minimalne prace s bytem, ale neni neco jako byte[4] :(
diky david
pracovani s byts a bits v delphi
[*] Marek Spisak <spishark(zv)post(tec)cz> - 04.9.2007 10:28:23
> s wordem (integerem apod.) se pracuje takto:
> //nastavim 3. bit ve wordu
> //samozrejme, ze to muzu udelat jako w := 4, nicmene tohle je pro
> demonstraci jak nastavovat jednotlive bity
> var
> w: Word;
> begin
> w := 0;
> w := w or 4;
> end;
>
> Nicmene priznam se, ze me ted nenapada jak naopak shodit bit - neco
> jako
> w := w and (not w) ?
w:= w xor 4;
jinak pro jednotlive bity lze pouzit neco takoveho:
w := w or (1 shl 0); // nastavuje 1. Bit
w := w or (1 shl 1); // nastavuje 2. Bit
w := w or (1 shl 2); // nastavuje 3. Bit, atd.
Marek
pracovani s byts a bits v delphi
[*] delphin(zv)post(tec)cz - 04.9.2007 10:38:24
> omlouvam se za velmi zvlastni otazku ktera ma jednoduchou odpoved ale
> ja proste nevim..
>
> mam 2 bytes strukturu ktera udava vlastnost slova
>
> mam zapis v bitech ale nevim jak to interpertovat vyse, nebo jak to
> vyuzit.
>
> 1234567812345678
>
> 1001000000011000
>
> 1 bit - kontrola
> 3 bit - type
> 12 bit - pozice
>
> jak z toho dostanu type ? a prevedu pozici do integer ?..
>
> pak by me zajimalo jak priradim do hodnoty type byte tohle 00101110 ?
type
TSettings=word; //16-bitu
procedure SetBit(var Settings:TSettings;const Bit:integer);
begin
Settings:=Settings or (1 shl Bit);
end
procedure ResetBit(var Settings:TSettings;const Bit:integer);
begin
Settings:=Settings and not (1 shl Bit);
end;
Prirazeni hodnoty je zrejme, tj Settings:=(1 shl 1) or (1 shl 3) or (1 shl
12);
pracovani s byts a bits v delphi
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 04.9.2007 10:36:24
Marek Spisak napsal(a):
>> Nicmene priznam se, ze me ted nenapada jak naopak shodit bit - neco
>> jako
>> w := w and (not w) ?
>>
>
> w:= w xor 4;
>
Tak to asi ne:
1 xor 1 = 0
1 xor 0 = 1
0 xor 1 = 1
0 xor 0 = 0
> jinak pro jednotlive bity lze pouzit neco takoveho:
>
> w := w or (1 shl 0); // nastavuje 1. Bit
> w := w or (1 shl 1); // nastavuje 2. Bit
> w := w or (1 shl 2); // nastavuje 3. Bit, atd.
>
Taky me to napadlo, ale w or 4 mi prislo nazornejsi, nez bitovy posun :)
S pozdravem
Milan Tomes
pracovani s byts a bits v delphi
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 04.9.2007 10:42:25
> mam 2 bytes strukturu ktera udava vlastnost slova
> 1001000000011000
>
> 1 bit - kontrola
> 3 bit - type
> 12 bit - pozice
>
> jak z toho dostanu type ? a prevedu pozici do integer ?..
>
> pak by me zajimalo jak priradim do hodnoty type byte tohle 00101110 ?
Mozes pouzit logicke operatory and, or, shl, shr. Napriklad:
procedure GetStruct(W: Word; out T: Byte; out P: Word);
begin
if W and $8000 = 0 then
raise Exception.CreateFmt('Control bit not set ($%.4x)', [W]);
T := (W and $7000) shr 12;
P := W and $FFF;
end;
function SetStruct(T: Byte; P: Word): Word;
begin
Result := $8000 or (T and 7) shl 12 or (P and $FFF);
end;
Predpokladam, ze kontrolny bit ma byt vzdy 1.
Priklad pouzitia:
var
W, P: Word;
T: Byte;
begin
W := SetStruct(1, 24);
Writeln(Format('SetStruct(1, 24): $%.4x', [W]));
GetStruct(W, T, P);
Writeln(Format('GetStruct($%.4x): T = %d, P = %d', [W, T, P]));
end;
Pripadne, ak si chces ulahcit pracu, mozes si nad tym napisat triedu:
type
EMyStruct = class(Exception);
TMyStruct = class
private
FTyp: Byte;
FPos: Word;
function GetValue: Word;
procedure SetPos(Value: Word);
procedure SetTyp(Value: Byte);
procedure SetValue(Value: Word);
public
constructor Create(ATyp: Byte; APos: Word); overload;
constructor Create(AValue: Word); overload;
property Pos: Word read FPos write SetPos;
property Typ: Byte read FTyp write SetTyp;
property Value: Word read GetValue write SetValue;
end;
resourcestring
SCtrlBit = 'Control bit not set: $%.4x';
SInvalidPos = 'Invalid position %d';
SInvalidType = 'Invalid type %d';
{ TMyStruct }
function TMyStruct.GetValue: Word;
begin
Result := $8000 or FTyp shl 12 or FPos;
end;
procedure TMyStruct.SetPos(Value: Word);
begin
if Value <> FPos then
begin
if Value > $FFF then
raise EMyStruct.CreateFmt(SInvalidPos, [Value]);
FPos := Value;
end;
end;
procedure TMyStruct.SetTyp(Value: Byte);
begin
if Value <> FTyp then
begin
if Value > 7 then
raise EMyStruct.CreateFmt(SInvalidType, [Value]);
FTyp := Value;
end;
end;
procedure TMyStruct.SetValue(Value: Word);
begin
if Value <> GetValue then
begin
if Value and $8000 = 0 then
raise EMyStruct.CreateFmt(SCtrlBit, [Value]);
FTyp := (Value and $7000) shr 12;
FPos := Value and $FFF;
end;
end;
constructor TMyStruct.Create(ATyp: Byte; APos: Word);
begin
inherited Create;
SetTyp(ATyp);
SetPos(APos);
end;
constructor TMyStruct.Create(AValue: Word);
begin
inherited Create;
SetValue(AValue);
end;
Priklad pouzitia:
var
MyStruct: TMyStruct;
begin
MyStruct := TMyStruct.Create(1, 24);
try
Writeln(Format('Typ = %d, Pos = %d, Value = $%.4x', [MyStruct.Typ, MyStruct.Pos, MyStruct.Value]));
finally
MyStruct.Free;
end;
end;
V Classes je trieda TBits, ktora sa da tiez pouzit na jednoduchu manipulaciu bitov:
Bits := TBits.Create;
try
Bits.Size := SizeOf(Word);
Bits[0] := True;
Bits[1] := False;
...
finally
Bits.Free;
end;
ale ta sa skor hodi pre nastavovanie jednotlivych bitov zvlast.
Pre Tvoj pripad je asi vyhodnejsie pouzit niektory z tych dvoch vyssie uvedenych prikladov.
Je to pisane narychlo bez kontroly, mozno tam mam chyby.
HTH
TOndrej
OT: Nabidka prace VUHZ, a.s. (Frydek-Mistek, Dobra
[*] Marek Spisak <spishark(zv)post(tec)cz> - 04.9.2007 10:44:25
VUHZ, a.s. se sidlem v Dobre hleda na hlavni pracovni pomer
SAMOSTATNEHO PROGRAMATORA PC
(vhodne i pro absolventy)
Vzdelani:
- VS - informacni technologie.
Pozadavky:
- schopnost analyzovat technicke zadani, navrhnout reseni a samostatne
vytvorit a odladit aplikace pro prostredi MS Windows;
- znalost prace v nekterem grafickem vyvojovem prostredi pro tvorbu programu
v objektove orientovanem jazyce;
- schopnost tvurcim zpusobem uplatnit znalosti matematiky pri reseni
problemu.
Dalsi vitane zpusobilosti:
- znalost odborne anglictiny;
- znalost jazyka C++;
- znalost elektroniky, matematickych a statistickych metod.
Napln prace:
- analyza problematiky a realizace samostatnych a tymovych projetku pro
mereni, seriovou komunikaci, rizeni experimentu, sber a trideni dat apod.,
- reseni problemu ve spolupraci s odbornymi pracovniky,
- vypracovani navodu, dokumentaci programu,
- zaskolovani pracovniku pouzivajicich programy, prubezna pomoc pri reseni
problemu.
Nabizime:
- nastupni plat od 20.000,-- Kc dle vzdelani a praxe, nasledna dohoda o vysi
platu dle prokazanych schopnosti;
- vyhody dle Kolektivni smlouvy (napr. 1 tyden dovolene navic, stravenky,
moznost bezurocne pujcky, podnikova rekreace, prispevky na zivotni pojisteni
a penzijni pripojisteni).
V pripade zajmu, prosim, zaslete svuj strukturovany zivotopis na
spisakova(zv)vuhz(tec)cz nebo volejte na tel. 558 601 229. pracovani s byts a bits v delphi
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 04.9.2007 11:48:30
David Kopecek napsal(a):
> MT> s wordem (integerem apod.) se pracuje takto:
> MT> //nastavim 3. bit ve wordu
> MT> //samozrejme, ze to muzu udelat jako w := 4, nicmene tohle je pro
> MT> demonstraci jak nastavovat jednotlive bity
> MT> var
> MT> w: Word;
> MT> begin
> MT> w := 0;
> MT> w := w or 4;
> MT> end;
>
> no to musim vyskouset. prinejhorsim to udelam v asm.. tam na to hezky
> uvidim.. Sice ani za mak nechapu koncepci ale predpokladam ze 4 zamena
> 3 bit , pocita se 0 ?
>
>
pocita se od 1. bitu coz je 2 na 0 ( = 1), 3. bit je tedy 4 (2 na 2)
> MT> Nicmene priznam se, ze me ted nenapada jak naopak shodit bit - neco jako
> MT> w := w and (not w) ?
>
>
>>> pak by me zajimalo jak priradim do hodnoty type byte tohle 00101110 ?
>>>
>>>
>>>
>
> MT> Jednoduse - prevedes to na integer nebo do hexa tzn. b := 46 :)
>
> no sem zvedavej, doufam se strtoint udela co potrbuji..
>
StrToInt neprevede binarni tvar cisla na integer. Pouzij StrToInt('$' +
BinToHex(....))
S pozdravem
Milan Tomes
pracovani s byts a bits v delphi
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 04.9.2007 11:04:27
Zdravim
>> mam 2 bytes strukturu ktera udava vlastnost slova
>>
>> mam zapis v bitech ale nevim jak to interpertovat vyse, nebo jak to
>> vyuzit.
>>
>> 1234567812345678
>>
>> 1001000000011000
>>
MT> bity se pocitaji zprava :)
>> 1 bit - kontrola
>> 3 bit - type
>> 12 bit - pozice
>>
>> jak z toho dostanu type ? a prevedu pozici do integer ?..
>>
MT> s wordem (integerem apod.) se pracuje takto:
MT> //nastavim 3. bit ve wordu
MT> //samozrejme, ze to muzu udelat jako w := 4, nicmene tohle je pro
MT> demonstraci jak nastavovat jednotlive bity
MT> var
MT> w: Word;
MT> begin
MT> w := 0;
MT> w := w or 4;
MT> end;
no to musim vyskouset. prinejhorsim to udelam v asm.. tam na to hezky
uvidim.. Sice ani za mak nechapu koncepci ale predpokladam ze 4 zamena
3 bit , pocita se 0 ?
MT> Nicmene priznam se, ze me ted nenapada jak naopak shodit bit - neco jako
MT> w := w and (not w) ?
>> pak by me zajimalo jak priradim do hodnoty type byte tohle 00101110 ?
>>
>>
MT> Jednoduse - prevedes to na integer nebo do hexa tzn. b := 46 :)
no sem zvedavej, doufam se strtoint udela co potrbuji..
MT> S pozdravem
MT> Milan Tomes
--
S pozdravem,
David
david.kopecek(zv)hacktrack.com
pracovani s byts a bits v delphi - reseni
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 04.9.2007 13:54:38
Zdravim vsechny,
takze uz mam reseni
var
w:word;
b:byte;
itype:byte;
ipos:word;
begin
//$8000 = 1000 0000 0000 0000
//$7000 = 111 0000 0000 0000
//36888 = 1001 0000 0001 1000
w:=36888;
//Read first byte
b:= (W and $8000) shr 15;
//read type - 3 bytes
itype:= (w and $7000) shr 12;
//read
ipos:=w and $fff;
end;
a binarne to vypada takto
1001 0000 0001 1000
AND
1000 0000 0000 0000
-------------------
1000 0000 0000 0000
SHR 15 => 0000 0000 0000 0001 = first bit
1001 0000 0001 1000
AND
0111 0000 0000 0000
-------------------
0001 0000 0000 0000
SHR 12 => 0000 0000 0000 0001 = next 3 bits = type = 1
1001 0000 0001 1000
AND
0000 1111 1111 1111
-------------------
0000 0000 0001 1000 = last 12 bits = position = 24 dec
takze diky vsem slo mi to pochopeni toho celyho..
DK> omlouvam se za velmi zvlastni otazku ktera ma jednoduchou odpoved ale
DK> ja proste nevim..
DK> mam 2 bytes strukturu ktera udava vlastnost slova
DK> mam zapis v bitech ale nevim jak to interpertovat vyse, nebo jak to
DK> vyuzit.
DK> 1234567812345678
DK> 1001000000011000
DK> 1 bit - kontrola
DK> 3 bit - type
DK> 12 bit - pozice
DK> jak z toho dostanu type ? a prevedu pozici do integer ?..
DK> pak by me zajimalo jak priradim do hodnoty type byte tohle 00101110 ?
DK> neco jako
DK> var
DK> b:byte;
DK> begin
DK> b:=00101110;