Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
kryptovani
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 2.5.2001 12:54:04
> P�edm�t: kryprovani
> potrebuji napsat kryprovaci funkci, neco jako crypt v u*ixu,
> ( function
> kryptuj(const t:string):string )
> nemate nekdo neco podobneho staci i link.
Ahoj,
dobry sifrovaci SW je na Torry - hledej CIPHER.ZIP.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
DELPHIX podruhe
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 2.5.2001 13:25:42
Jeste jeden dotazek....
jak je mozne nejjednoduseji (a nejrychleji) v celoobrazovkovem rezimu (fullscreen) zobrazovat bitmapu tak, aby u ni bylo prokladane radkovani... tj. jeden radek z bitmapy, dalsi radek volny, dalsi radek bitmapy, atd...
Take bych se rad zeptal, zda existuje rychlejsi funkce pro vykreslovani zvetsene bitmapy nez StretchDraw(Rect, Bitmap,.. ktera mi pri vetsim zvetseni jak 1X prijde velmi pomala (potrebuji stretchnout BMP 320*200 do rozliseni 800*600)
Dekuji za odpoved
Zdenek
CTRL + R pomoc� PostMessage
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 2.5.2001 13:35:30
> Je to velika prekerie, jeste porad jsem na to neprisel, ikdyz uz hledam
> skoro mesic (po chvilkach):
>
> Jak poslu na okno cizi aplikace kombinaci klaves CTRL+nejake pismeno ?
Zkus se podivat do newsu, namatkou napr. tady:
http://groups.google.com/groups?hl=cs&lr=&safe=off&ic=1&th=84c564dbf5f92b31,3&seekm=74r5g8%24g715%40forums.borland.com#p
http://groups.google.com/groups?hl=cs&lr=&safe=off&ic=1&th=bce1b8bbbef57e40,2&seekm=4ljlcu%24b4e%40mksrv1.dseg.ti.com#p
http://groups.google.com/groups?hl=cs&lr=&safe=off&ic=1&th=56f3d2bf83ef466b,3&seekm=34cba137.10327983%40news.arrowsmith.
net#p
T.
Problem s DBGrid.OnDrawColumnCell
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 2.5.2001 13:37:34
Navrhuji tyto zmeny
procedure TFrmBrowseAuto.DBPxGrid1DrawColumnCell(Sender:
TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If not (gdSelected in State) Then
If DBPxGrid1.DataSet.FieldByName ('CP').AsInteger = 99 Then
Canvas.Brush.Color := $00A0F0F0;
DBPxGrid1.DefaultDrawColumnCell (Rect, DataCol, Column,State);
end;
> Pozrite si prosim obrazok a skuste poradit co robim zle, resp.
kde je
> zakopany pes (Bug) ?
> Potrebujem opravit kod u seba alebo niekde vo vetve k DBGrid.
>
> Moja obsluha OnDrawColumnCell:
>
> procedure TFrmBrowseAuto.DBPxGrid1DrawColumnCell(Sender:
TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if Column.Field.DataSet.FieldByName ('CP').AsInteger = 99
> then DBPxGrid1.Color:= $00A0F0F0
> else DBPxGrid1.Color:= clWindow;
> DBPxGrid1.DefaultDrawColumnCell (Rect, DataCol, Column,
State);
> end;
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Qreport, master-detail
[*] V�t Kr�ka����+?#�$g�^#�3 - 2.5.2001 13:49:20
SubDetail band ma vlastnosti HeaderBand a FooterBand. to by snad melo bejt
ono, vytvoris nejakej footer band se souhrnymi udaji a pomoci jiz zminene
vlastnosti ji pripojis k SubDetail bandu.
vitek
vit.krska(zv)del(tec)cz
----------------------------------
Dobry den,
nevi nekdo jak v qreportu - pouzivam delphi 3 client server - vytisknout
sestave master detail po sekci subdetail s daty z vedlejsi tabulky jeste
nejaka pole z hlavni tabulky.
Priklad:
(1. vyrobek)
Vseobecne udaje vyrobku (hlavni dataset)
rozpiska soucasti (vedlejsi dataset)
souhrnne udaje (opet hlavni dataset).
(dalsi vyrobek)
.IB:Interbase Express 4.52
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 2.5.2001 14:25:36
Ahoj,
po nainstalovani updatu IBX na 4.52 se udalo toto:
Mam TIBStoredProc, v ni spoustim svoji ulozenou proceduru, ale ted mi to
hlasi, ze procedura neexistuje. Problem je ve velikosti pismen, zda se mi,
ze nyni jsou komponenty IBX case sensitive, coz drive nebyly.
(nazvy procedur ve skriptu mam zadane bez uvozovek, coz driv melo za
dusledek to, ze to nebylo citlive na velikost pismen).
Reseni me napada vcelku jednoduche (UpCaseStr), ale co kdyz v dalsi verzi
IBX je to bude vyzadovat male..:-).
Nevite o tom nekdo neco blizsiho, jako treba Proc, Jak se toho zbavit atd.?
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
vzhled PageControl, TabControl
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 2.5.2001 14:45:17
Ahoj,
potrebuji, aby se zalozky u PageControl zobrazovaly zkosene (pravidelny
lichobeznik) - tak jak je to napr v ikonkach pro slozku. Poslal bych
obrazek, ale asi by se to nelibilo ADMINovi ... ;-)
Pomuze nekdo?
Diky Petr
Prechod z Paradoxu na IB
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 2.5.2001 14:52:49
Pokusil jsem se to obejit tak, ze pridam SQL prikazem novou vetu pouze s
klicem, refresnu tabulku najdu si tu vetu a dam Edit a pak uz pokracuje
stary program. Jenze pak zase bylo prvni pridani dlouhe a nasledujici uz
rychle. Tak jsem to zkombinoval :o), poprve pridam vetu APPENDem a pak uz
SQL.INSERTem - je to silene, ale beha to uz pouzitelne.
----- P�vodn� zpr�va -----
Od: "Zden�k Brej#a" <prog(zv)hjsoft(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 1. kv�tna 2001 13:37
P�edm�t: Prechod z Paradoxu na IB
> Zdar vsem,
> mame fungujici aplikaci na Paradoxu pres BDE a predelavame ji na IB (pres
> BDE) - cas a zakaznici tlaci.
> Narazil jsem na toto: je aktualizacni formular 1:N hlavicka se uklada pres
> TTable, detaily pres kesovane TQuery a cele je to v transakci.
> Ukladam 1. doklad: TTable.Append trva asi 0.5 sec.
> Ukladam 2. doklad: TTable.Append trva asi 11 sec.
> a dalsi doklady 11 az 13 sec.
>
> setkal se s tim nekdo ?
>
> da se neco delat ?
>
> za nakopnuti predem dekuji
>
> Zdenda Brejsa prog(zv)hjsoft(tec)cz
>
>
DELPHIX
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 2.5.2001 14:53:20
Omlouvam se jestli to posilam podruhe, ale napoprve se mi to veatilo zpet...
Ahojte,
vznesl bych zde takovy zacatecnicky dotaz: v emulatoru osmibitoveho mikropocitace MZ-800 pouzivam komponentu DELPHIX pro Fullscreen zobrazeni. Vse se chova normalne az do okamziku, kdy se prepnu z okna do fullscreenu a zpet - pote se mi hlavni okno nastavi jako "stay on top", tudiz nelze prekryt zadnym jinym oknem. Poradi mi nekdo kde je chyba?
Diky
Zdenek
QReport nebo SINEA?
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 2.5.2001 15:08:50
> p.s. pri tisku na laserovku nebo inkoust je vse OK, ale na traktor se mi
> kazda stranka posune cca o 1cm. Co s tim?
Bude potreba nastavit spravne rozmer papiru a mozna vypnout u tiskarny
automaticky posun pres perforaci..
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Memo jako ve wordu
[*] JIM Design <jim.design(zv)iol(tec)cz> - 2.5.2001 15:20:43
ahoj,
kdysi sem delal neco podobneho a pouzil sem na to specielni roztahovaci
panel ze SineaVCL a mel na nem
TMemo s Align:=AlClient.
Pokud se ti to podle nasledujiciho popisu nepodari udelat muzu poslat kus te
app :-)
M.Jirman
-----Original Message-----
Behalf Of EFG developer
Subject: Memo jako ve wordu
DDV,
nevite nekdo z vas, jak udelat nad vertikalnim scrollbarem u mema splitter
tak, aby vypadal a choval se tak, jako napr. ve wordu?
(je mi jasne, ze budu muset pouzit 2 mema, ale jak udelat ten splitter)
Dekuji Petr Sikola
TWebBrowser ... Requerst.Content.Fields...
[*] JIM Design <jim.design(zv)iol(tec)cz> - 2.5.2001 15:20:44
ahoj,
a co to obejit tak ze sestavis to co ten formular posila pri odkliknuti NEBO
si udelas vlastni skript (asp nebo php), do kteryho naladujes co chces
pomoci URL s parametry (tvujskript.asp?f1=aaa&f2=bbb...atd).
Temahle 2 zpusoby si ale pomuzes jen pokud nechces aby tam uzivatel mel
prednastaveno jen cast a zbytek doplnoval!
M.Jirman
-----Original Message-----
Behalf Of Ing. Jozef Baranec
Subject: TWebBrowser ... Requerst.Content.Fields...
Zdravim
Mozem v TWebBrowser.Navigate(String) nastavit aj Content.Fields?
Napr. zoberiem stranku vyhladavac Altavista.com a zavolam form action s
vopred vyplnenymi fieldami, ale ich obsah zoberiem zo zadanych stringov aby
som ich nemusel vypisovat do stranky browsera.DELPHIX podruhe
[*] Delphi <delphi(zv)minv.sk> - 2.5.2001 15:21:05
Vidim ze ti vsetci odpovedaju :)) Tak sa ti pokusim pomoct ya.
Prekladane riadkovanie...hmm...mozes kreslit po pixely: napr: dxdraw.surface.pixels[x,y]:=clred myslim a nakreslit si to ako xes
z bitmapy. Ale pozor, ye to pekne pomale, pretoze robit cosi cez pixels je dost o drzku (tak sa to vlastne nerobi :))) Inak ma to nateraz nenadapa, zrejme budes musiet prekodit flip rutinu.
StretchDraw je pekne rychli :)) Co mas proti nemu? Okrem toho ze na kazdej karte ti to pojde inac v tom nevidim ziadny problem.. *uskrn*
Pomale nie je zvacsenie, ale nacapenie spritesu do backbuffra, lebo je velky. 800x600 je pekna palka. Ja stretchujem vacsinou len mensie
spritiky, resp. si mozes stretchnuty sprite kopnut do nejakeho vastneho surface a ten kreslit cez draw. To by uz malo zrychlit dost.
Ohladom prepnutia....co tak si pozriet examples? Proste das do eventu onfinalize: dxtimer.enabled:=false a do oninitialize dxtimer.enabled:=true. On skoliduje preto ze si v timeri volal rutiny ktore pri neaktivnom dxdrawe nefaxcia a preto to skape.
Vid. www.gamedev.net, tam mas tiez info o vsetkom, ale pozor, je to Visual C++ friendly web
BTW, mozem mat potom copy of MZ800 emulator??? :)))
PS: Vsetci kto tu pouzivate DXlibrary, D3D, kontaktujme sa....
Werki
jendris(zv)minv.sk
ICQ: 99708922
-----
riginal Message -----
From: Zden�k Adler
To: delphi-l(zv)clexpert(tec)cz
Sent: Wednesday, May 02, 2001 1:25 PM
Subject: DELPHIX podruhe
Jeste jeden dotazek....
jak je mozne nejjednoduseji (a nejrychleji) v celoobrazovkovem rezimu (fullscreen) zobrazovat bitmapu tak, aby u ni bylo prokladane radkovani... tj. jeden radek z bitmapy, dalsi radek volny, dalsi radek bitmapy, atd...
Take bych se rad zeptal, zda existuje rychlejsi funkce pro vykreslovani zvetsene bitmapy nez StretchDraw(Rect, Bitmap,.. ktera mi pri vetsim zvetseni jak 1X prijde velmi pomala (potrebuji stretchnout BMP 320*200 do rozliseni 800*600)
Dekuji za odpoved
Zdenek
big endian
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 02.5.2001 15:55:48
Zdravim,
mam tady jednu absolutne zacatecnickou otazku. Mam soubor z ktereho si prectu cislo typu integer, ale toto je ulozeno jako big endian. Co s nim musim udelat aby pro mne bylo citelne? A jak prevedu treba integer 50 na big endian?
Predem dik za jakoukoli odpoved.
Mirek Drejcek.
Komunikace po siti s DHCP
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 2.5.2001 16:45:28
Hezky den,
chci se optat, zda nemate zkusenosti s komunikaci po siti, kde je IP adresa
dynamicky pridelovana.
Mam aplikaci, jejiz casti jsou postaveny pro komunikaci po siti pres TCP/IP,
ale zatim jsem neresil jiny pripad, nez kdyz byly na masinach, kde programy
bezely, pevne pridelene IP adresy.
Ted jsem se poprve setkal se situaci, kde se pevne IP adresy nepouzivaji,
maji je dynamicky pridelovane z DHCP.
No a ted prave jsem jaksi narazil, co dal. Kdyz se adresy neustale meni, je
mozno komunikovat mezi obema programy ? Jestli ano, tak cim ? Pouzivam
komponenty TCPServer a TCPClient od viz nize, se kterymi jsem zatim nadmiru
spokojen.
---
WSockets Version 1.20 - A Simple VCL Encapsulation of the WinSocket API
Copyright (C) 1997 by Robert T. Palmqvist <robert.palmqvist(zv)skanska.se>
---
Na siti pouzivaji pouze TCI/IP protokol, zadny IPX/SPX nebio NetBEUI tam
provozovan neni.
Dekuji za kazdou novou radu.
Dik, Bye Ludan
QReport nebo SINEA?
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 2.5.2001 17:25:22
Hi all,
QuickReport 3.0 je nastroj pouzitelny akorat pro velmi jednoduche sestavy.
Osobne jsem delal sestavu s detailem, 7 subdetaily a nebyl jsem schopen
vnutit Quickreportu mou predstavu. Mam dobre zkusenosti s ReportBuilderem,
ma ovsem ponekud vyssi cenu (kolem 700$ :) ). Sineu jsem nezkousel. Ohledne
toho tisku na traktoru - resil jsem uplne stejny problem - traktor neni A4
ale vetsi (neco kolem 8.5 x 11") proste 210 * 305 mm, nebo tak nejak.
Ozon,
pocitacovy amater ;)
P.S. Pokud je Quickreport pomaly, mozna by jeste stalo za to zkusit
zoptimalizovat vazby mezi query, nebo tables, ja to delam tak, ze mam uz
pripravenou tabulku s daty pro cely report.Rozdily v kompiovanem exe
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 2.5.2001 17:37:50
On 2 May 2001, at 10:35, Martin Dietl wrote:
> pouze obsahem na par adresach.
V casti, kde je vykonny kod, nebo v casti, kde jsou ulozene
resourcy (poznas je podle toho, ze tam jsou definice DFM a ruzne
unicode texty, a je to obvykle ke konci souboru). Delphi totiz muze
po kazde kompilaci seradit jinym zpusobem resourcestringy.
> -----Original Message-----
> > muze mi nekdo vysvetlit, proc se lisi vysledny EXE kod, kdyz
> > prelozim
> STEJNY
> > zdrojovy kod ?
>
> Ahoj,
>
> cim se lisi, velikosti nebo pouze obsahem pri binarnim porovnani ?
>
> Petr Vones, amatersky programator
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
cteni z DBGridu
[*] celda <jcelikovsky(zv)mbox.dkm(tec)cz> - 2.5.2001 17:40:28
Prosim,
potrebuji poradit, jak nacist (do stringu) text (proste jednu polozku, treba
na souradnici [3,5]) z DBGridu.
Property DBGrid1.Fields[x].Text mi vrati (logicky) pouze obsah prvni bunky v
sloupci x. Jak se mam dostat k tem dalsim bunkam?
Diky,
Celda.Komunikace po siti s DHCP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.5.2001 18:02:31
>
> Ted jsem se poprve setkal se situaci, kde se pevne IP adresy nepouzivaji,
> maji je dynamicky pridelovane z DHCP.
>
> No a ted prave jsem jaksi narazil, co dal. Kdyz se adresy neustale meni,
je
> mozno komunikovat mezi obema programy ? Jestli ano, tak cim ? Pouzivam
> komponenty TCPServer a TCPClient od viz nize, se kterymi jsem zatim
nadmiru
> spokojen.
1) dynamicke adresy obvykle zadny problem neprinaseji
2) problem muze vzniknout jen tehdy, pokud je treba se pripojovat na server,
ktery meni IPcka (nebo pokud se pouziva nejaka authentifikace na bazi
kontroly IPcek).
Pokud se musis pripojovat na nejakou stanici, ktera meni IPCka, musis jeji
aktualni IPcko ziskat pomoci jmena stanice (to by melo byt stale pevne).
Cili program, ktery se pripojuje musi znat jmeno cilove stanice, prevede si
jej na IPCko a je to.
Dalsi metodou je vyhledavani protistrany pomoci broadcastu (pokud je klient
i server na jednom segmentu)
D. Toman
Rozmer okna pred Maximalizaci/Minimalizaci
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 2.5.2001 18:20:10
Dobry den,
Kde je "schovan" puvodni rozmer okna (formu) pri maximalizaci nebo
minimalizaci?
Dekuji
Zdenek
Master/detail
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 2.5.2001 18:22:26
Ahoj,
mam mozna hloupej dotaz. Muzu udelat master/detail report s ado? Zkousel
to nekdo? Chci vytisknout seznam objednavek a u kazde objednavky jeji
zbozi, v prikladech pracuji jen s query, ja pouzivam dataset, coz by
melo byt to same, ale jaksi neni. Vazba je pres vice poli, ale v tom by
nemel byt problem, nebo jo? Vsechny jsou napsane v Params, porad nic.
Jsem zoufalej, znicenej, prosim pomozte.
D5 Prof, W2k, QR 3.0, Adonis
Radim Hampel
Kurzory
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 2.5.2001 18:27:27
Zdravim,
potreboval bych nejak programove nakreslit do kurzoru znamenko plus,
jako kdyz se v pruzkumniku pretahuji nejake soubory a pridrzi se pri tom
CTRL.
Nevi nekdo jak na to?
Ales
GSM aplikacie
[*] brant(zv)dcomm(tec)cz - 2.5.2001 18:28:57
Jak je to s telefonem, to bohuzel nevim, ale nase aplikace umi pracovat s
GSM modemem. Delame to pomoci komponent AsyncFree. Kdyz tak se ozvi na
soukromy mail nebo na ICQ.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: KAZ#K �ubo# [mailto:lubosk(zv)asset.sk]
Sent: Friday, April 27, 2001 1:03 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: GSM aplikacie
Surne zhanam nejake komponenty na ovladanie GMS telefonu, SMS,AT prikazy....
Mate niekto s tym skusenosti?
Dik Lubos
Rozdily v kompiovanem exe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.5.2001 18:37:55
From: "Martin Dietl" <dietl(zv)4use(tec)cz>
> pouze obsahem na par adresach.
Ahoj,
pokud je to v oblasti CODE sekce tak je to zpusobeno tim, ze linker po kazdem
prekladu mirne prehazi poradi unitu (patrne nejaky vedlejsi efekt). Na funkci
to samozrejme nema vliv.
Petr Vones, amatersky programator
ak zapsat vzorec do Excelu ?
[*] bosnis <bosnis(zv)yo(tec)cz> - 2.5.2001 19:03:16
Tom�# Hol� :
>jak mam vkladat vzorecky
>zkousim: WS.Cells.Item[22, 4].Value := '=SUMA(D1:D21)' ;
> WS je TExcelWorksheet;
> ale v excelu se mi objevi
> #NAZEV?
> kdyz na nej dan F2 a enter, tak je to spravne
S Excelem je to trochu problem, protoze plno nazvu funkci je prelozenych do cestiny (ty se daji zadavat primo do bunky), ale pokud chces programovat ve Visual Basicu musis pouzivat anglicke originalni nazvy !!! (proto zafunguje F2 ENTER, ale ne z kodu)
=> misto =SUMA() pouzivat =SUM()
dale pak misto do .Value davat vzorec do .FormulaR1C1
Ing. Pavel �PEJTEK
bosnis(zv)yo(tec)cz
OT: MSOCKLIB.DLL
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 2.5.2001 19:19:31
Ahoj,
nevi nekdo kde sehnat vyse uvedenou DLL.
Je potreba komunikaci DOSoveho programu s NT serverem
pod TCP/IP.
Je to desne stary, ale nikde to nemuzu najit ....
a potrebuji ho opravdu velmi, velmi nutne
Dik
Automatick� tisk do souboru
[*] Michal Vojta <michal.vojta(zv)iol(tec)cz> - 2.5.2001 23:25:10
Ahoj,
mam aplikaci, ktera tiskne v nepravidelnych intervalech data na lokalni
tiskarnu,
prostredi je dost nehostinne, vlhko, prach. Chtel bych tisknout do souboru,
ale pri klasickem nastaveni portu tiskarny na FILE, se pri kazdem tisku
objevi okno Save file pro zadani ciloveho souboru tisku. Nevite o zpusobu,
jak zadat jmeno souboru natvrdo?
Napsal bych si programek, ktery by pak testoval pritomnost toho souboru, a
prejmenoval/presunul bych ho jinam.
Michal VOJTA
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.217 / Virov� b�ze: 102 - datum vyd�n�: 1.12.2000
QReport nebo SINEA?
[*] Lud�k P�ral - 3.5.2001 00:54:12
Ahoj,
pracuji delsi dobu se Sineou. Ma sve mensi mouchy, do W98 umim ale bez
problemu tisknout ve znak.rezimu . K Sinee existuje ceska konference, takze
lze vnutit i vlastni vkladani dat, lze tez jednoduse naprogramovat vlastniho
tvurce sestav (nad malymi db i master-detail). Neumim ovsem ze Siney primo
exportovat do html/rtf/xls. XLS si musis vytvorit sam, RTF/HTML zase umi
QREP.
I pres to, ze me nejeden Delphista odrazuje, pracuje se mi zatim se Sineou
nejlepe a uzivatele jsou take radi za ceske prostredi.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zaplik
Sent: Wednesday, May 02, 2001 12:26 PM
To: Delphi Konference
Subject: QReport nebo SINEA?
Zdravim
D5/Profi(SP1),W2000
Stojim pred problemem jaky nastroj pouzit pro generovani tiskovych sestav.
Doposud jsem pouzival QReport 3.0 , ale narazil jsem na jeho obrovskou
pomalost. Sineu neznam a tak se ptam. QReport, Sinea nebo uplne neco jineho.
Jedna se o slozitejsi sestavy radove v desetitisicich zaznamu. Take bych
chtel provadet export do txt, rtf, xls, html ... Zatim pracuji s dbf
soubory, ale i prace s nimi je pomala. Co bych mohl pouzit v ramci D5 profi,
abych zase moc neutracel.
p.s. pri tisku na laserovku nebo inkoust je vse OK, ale na traktor se mi
kazda stranka posune cca o 1cm. Co s tim?
Dik vsem.
Martin Zapletal
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
Komunikace po siti s DHCP
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 3.5.2001 07:25:38
Mam takovy pocit, ze DHCP funguje tak, ze prideli IP adresu pri inicializaci
site ve Windows a pak se po celou dobu behu jiz nemeni.
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> No a ted prave jsem jaksi narazil, co dal. Kdyz se adresy neustale meni, je
> mozno komunikovat mezi obema programy ? Jestli ano, tak cim ? Pouzivam
Master/detail
[*] V�t Kr�ka����+?#�$g�^#�3 - 3.5.2001 07:36:03
ja pouzivam ADODataSet na vsechno i na ulozeny procedury a nemam s nim
problem a report master/detail mi taky bezi bez problemu.
jednou jsem ale na jeden narazil: dataset master musis otevrit driv nez
detail, ale to snad neni problem, to je logicke.
ted uz me jen napada jestli mas oba ADODataSety svazane pomoci DataSource,
ale to asi jo, kdyz cerpas z prikladu.
vitek
vit.krska(zv)del(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Radim Hampel
Sent: Wednesday, May 02, 2001 6:22 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Master/detail
Ahoj,
mam mozna hloupej dotaz. Muzu udelat master/detail report s ado? Zkousel
to nekdo? Chci vytisknout seznam objednavek a u kazde objednavky jeji
Master/detail
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 3.5.2001 07:48:13
Ted me napadlo:
kdyz jsem zacal pouzivat M/D ve spojeni se Sineou
a dal jsem "ADODataSet.DisableControls" tak mi to nefungovalo (Print,
Preview),
ovsem pokud jsem "vlezl" do navrhu te sestavy a pak provedl kontrolni
Preview ci tisk
tak to jelo, no byl jsem z toho celej tumpachovatej, nakonec jsem v
zoufalstvi
smazal jiz zminovany DisableControls a ono se to rozjelo ...
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> ja pouzivam ADODataSet na vsechno i na ulozeny procedury a nemam s nim
> problem a report master/detail mi taky bezi bez problemu.
> jednou jsem ale na jeden narazil: dataset master musis otevrit driv nez
> detail, ale to snad neni problem, to je logicke.
> ted uz me jen napada jestli mas oba ADODataSety svazane pomoci DataSource,
> ale to asi jo, kdyz cerpas z prikladu.
>
> vitek
> vit.krska(zv)del(tec)cz
Kurzory
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 3.5.2001 08:00:19
Neni lepsi si vytvorit resource s podobami kurzoru ktere by mel nabyvat a
potom je v programu menit? Myslim ze "dokreslovani" do kurzoru by byla
zbytecna prace......
Zdenek
----- Original Message -----
From: Ales Vasicek <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 02, 2001 6:27 PM
Subject: Kurzory
Zdravim,
potreboval bych nejak programove nakreslit do kurzoru znamenko plus,
jako kdyz se v pruzkumniku pretahuji nejake soubory a pridrzi se pri tom
CTRL.
Nevi nekdo jak na to?
Ales
Automatick� tisk do souboru
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 3.5.2001 08:06:44
Mozna by stalo za to napsat programek, ktery bude zachytavat data zasilana
na port tiskarny, pripadne ktery by je jeste dokazal vytahnout z fronty -
dokonce jsem neco podobneho videl, bohuzel si uz vsak nevzpomenu, jak se
jmenoval.
Zdenek
----- Original Message -----
From: Michal Vojta <michal.vojta(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 02, 2001 11:25 PM
Subject: Automatick� tisk do souboru
> Ahoj,
> mam aplikaci, ktera tiskne v nepravidelnych intervalech data na lokalni
> tiskarnu,
> prostredi je dost nehostinne, vlhko, prach. Chtel bych tisknout do
souboru,
> ale pri klasickem nastaveni portu tiskarny na FILE, se pri kazdem tisku
> objevi okno Save file pro zadani ciloveho souboru tisku. Nevite o zpusobu,
> jak zadat jmeno souboru natvrdo?
> Napsal bych si programek, ktery by pak testoval pritomnost toho souboru,
a
> prejmenoval/presunul bych ho jinam.
> Michal VOJTA
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.217 / Virov� b�ze: 102 - datum vyd�n�: 1.12.2000
>
>Kurzory
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 3.5.2001 08:32:57
Jasne ze bylo,
ale nekdo si nastavi treba 3d ukazatel mysi a kdyz stiskne v me aplikaci
ctrl, tak mu zobrazim muj kurzor se znamenkem plus. Vypadalo by to dost
blbe. Napadlo me udelat to pomoci hintu, ktery bych zobrazoval u kurzoru
a do ktereho bych normalne napsal +. Jenze zase nevim jak udelat tohle.
Me totiz pripada, ze v pruzkumniku je to delane take tak (pomoci hintu).
Nevi nekdo jak na to?
Ales
> -----Original Message-----
> From: Zden�k Adler [mailto:zdeneka(zv)seznam(tec)cz]
> Neni lepsi si vytvorit resource s podobami kurzoru ktere by
> mel nabyvat a
> potom je v programu menit? Myslim ze "dokreslovani" do kurzoru by byla
> zbytecna prace......ak zapsat vzorec do Excelu ?
[*] Tom� Hol� - 3.5.2001 09:02:22
nojo sakra, dyt to ma logiku, a uz si vzpominam, ze jsem o tom prekladu nekde cetl, diky moc ...
TH
----- Original Message -----
From: bosnis
To: delphi-l(zv)clexpert(tec)cz
Sent: Wednesday, May 02, 2001 7:03 PM
Subject: Re: ak zapsat vzorec do Excelu ? Tom�# Hol� :
>jak mam vkladat vzorecky
>zkousim: WS.Cells.Item[22, 4].Value := '=SUMA(D1:D21)' ;
> WS je TExcelWorksheet;
> ale v excelu se mi objevi
> #NAZEV?
> kdyz na nej dan F2 a enter, tak je to spravne
S Excelem je to trochu problem, protoze plno nazvu funkci je prelozenych do cestiny (ty se daji zadavat primo do bunky), ale pokud chces programovat ve Visual Basicu musis pouzivat anglicke originalni nazvy !!! (proto zafunguje F2 ENTER, ale ne z kodu)
=> misto =SUMA() pouzivat =SUM()
dale pak misto do .Value davat vzorec do .FormulaR1C1
Ing. Pavel �PEJTEK
bosnis(zv)yo(tec)cz
Program D4->BDE-MSACCESS na W2000
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 3.5.2001 09:17:48
Ahoj,
zakaznik provozuje muj program napsany v D4, ktery pristupuje k datum v mdb
databazi pres BDE 5.01 a nativn� driver MSACCESS (DAO3.5). Tento program
funguje na W95,W98,NT4 k plne spokojenosti. Zakaznik ho zacal provozovat na
W2000 a pise, ze po spusteni vyskoci hlaska "Vlozte disketu do mechaniky
A:".Po odklepani teto hlasky program normalne funguje. Ja nemam W2000, a
proto mu nejsem schopen rict, kde je chyba.
Proto se zde ptam, lze provozovat program v D4 s vyse uvedenym pristupem k
datum i pod W2000 nebo to ma nejaky zadrhel. Prosim napiste mi zda nekdo
neco podobneho provozuje.
Za kazdou odpoved dekuji
ak zapsat vzorec do Excelu ?
[*] Tom� Hol� - 3.5.2001 09:23:52
to FormulaR1C1 moc nezafungovalo, prihodilo to do vzorce apostrofy:
v delphi mam '=SUM(D'+IntToStr(FirstRow)+':D'+IntToStr(Row-1)+')' ;
=SUMA('D7':'D13')
ale s tim VALUE to funguje
je to velka chyba pouzivat Value misto FormulaR1C1, nebo je to fuk ?
S Excelem je to trochu problem, protoze plno nazvu funkci je prelozenych do cestiny (ty se daji zadavat primo do bunky), ale pokud chces programovat ve Visual Basicu musis pouzivat anglicke originalni nazvy !!! (proto zafunguje F2 ENTER, ale ne z kodu)
=> misto =SUMA() pouzivat =SUM()
dale pak misto do .Value davat vzorec do .FormulaR1C1
D modely aut a ovladanie
[*] KAZ�K �ubo� <lubosk(zv)asset.sk> - 3.5.2001 09:25:32
Mam k vam jednu prosbu.Potrebujem len trosku postrcit.Potrebujem spravit 3D
model auta,ktory sa da priblizovat,oddalovat presne tak ako je v hre Need
for speed 5. To by nebolo ani tak dolezite ale ako by som mohol kurzorom
mysi menit,otvorit alebo otacat objektom....
Nemate niekto komponenty na tieto veci.
Dakujem moc by ste mi pomohli.....
Lubos
Rozdily mezi InterBase 6.x a FireBird
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 3.5.2001 08:34:29
Najde se tu nekdo, kdo by mi mohl alespon trochu priblizit rozdily mezi
InterBase 6.x a FireBird ?
Diik Marian Jonas
SCP ci jine zabezpecene FTP
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 3.5.2001 09:54:06
Ahoj,
shanim nejakou knihovnu, ktera podporuje prenos pomoci SCP (ci jak se
jmenuje prenos souboru s vyuzitim SSH). Nebo me alespon nasmerujte na nejaky
popis.
Ci existuje jina varianta zabezpeceneho FTP?
Jan Krizek
- D5Prof Update 1, W2K -
p.s. Vcera mi z konference prisel jenom jeden mail - stalo se neco s
konferenci nebo se mnou?DLL
[*] Zden�k Sv�en - 3.5.2001 09:58:01
Nevite nekdo, jak jednoduse zaridit to, aby DLL modul mohl pristupovat k
promennym a objektum formulare, z ktereho byl aktivovan/spusten?Komunikace po siti s DHCP
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 03.5.2001 10:02:35
DHCP server ti prideli adresu jednou, Win si ji zapamatuji. Pri dalsim
prihlaseni zadaji po DHCP serveru stejnou adresu, jako mely drive.
Teprve pokud neni volna, dostane stroj jinou IP. Pravdepodobnost
nejakych rychlych zmen IP je tedy mala. Ale asi opravdu budes muset
postupovat dotazem pres jmeno stroje.
"Ing. Lud�k Florian" wrote:
>
> Hezky den,
>
> Ted jsem se poprve setkal se situaci, kde se pevne IP adresy nepouzivaji,
> maji je dynamicky pridelovane z DHCP.
>
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Komunikace po siti s DHCP
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 3.5.2001 10:06:44
Myslim ze se na dany PC nemusi odkazovat pouze jeho IP adresou, ale ze je
mozno vyuzit DNS, ktere mu zustava stejne - je treba ho vsak nastavit v
ovladacich panelech->Sit->TCP/IP-> jmeno hostitele... Je to mozna hloupost,
ale melo by to jit
Zdenek
----- Original Message -----
From: Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 02, 2001 4:45 PM
Subject: Komunikace po siti s DHCP
> Hezky den,
>
> chci se optat, zda nemate zkusenosti s komunikaci po siti, kde je IP
adresa
> dynamicky pridelovana.
>
> Mam aplikaci, jejiz casti jsou postaveny pro komunikaci po siti pres
TCP/IP,
> ale zatim jsem neresil jiny pripad, nez kdyz byly na masinach, kde
programy
> bezely, pevne pridelene IP adresy.
>
> Ted jsem se poprve setkal se situaci, kde se pevne IP adresy nepouzivaji,
> maji je dynamicky pridelovane z DHCP.
>
> No a ted prave jsem jaksi narazil, co dal. Kdyz se adresy neustale meni,
je
> mozno komunikovat mezi obema programy ? Jestli ano, tak cim ? Pouzivam
> komponenty TCPServer a TCPClient od viz nize, se kterymi jsem zatim
nadmiru
> spokojen.
>
> ---
> WSockets Version 1.20 - A Simple VCL Encapsulation of the WinSocket API
> Copyright (C) 1997 by Robert T. Palmqvist <robert.palmqvist(zv)skanska.se>
> ---
>
> Na siti pouzivaji pouze TCI/IP protokol, zadny IPX/SPX nebio NetBEUI tam
> provozovan neni.
>
> Dekuji za kazdou novou radu.
>
> Dik, Bye Ludan
>
>
>SCP ci jine zabezpecene FTP
[*] Lev Libor <lev(zv)sce(tec)cz> - 3.5.2001 10:09:07
Existuje klient SCP s grafickym uzivatelskym rozhranim jmenuje se iXplorer
a je se zdrojaky v Delphi.
http://www.i-tree.org/
Libor Lev
Rozdily v kompiovanem exe
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 3.5.2001 10:54:56
Ahoj
### Petr Vones napsal dne 2 May 01, v 18:37 :
> From: "Martin Dietl" <dietl(zv)4use(tec)cz>
> > pouze obsahem na par adresach.
>
> Ahoj,
>
> pokud je to v oblasti CODE sekce tak je to zpusobeno tim, ze linker po
> kazdem prekladu mirne prehazi poradi unitu (patrne nejaky vedlejsi efekt).
> Na funkci to samozrejme nema vliv.
>
Jeste mne napada:
-co treba version info & automaticka inkrementace buildu?
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Algoritmus pro vyhledani dvojice cisel
[*] brant(zv)dcomm(tec)cz - 3.5.2001 11:07:49
Ahoj vespolek,
mam tento problem: V databazi (Paradox) mam seznam zemepisnych souradnic a
seznam odpovidajicich mest. Dostanu zemepisne souradnice a k nim se ma
vyhledat nejblizsi mesto. Ma to ovsem byt rychle. Neni problem databazi
seradit podle jedne souradnice, ale jak na to, kdyz mam dve? Napadlo me
najit nejblizsi souradnici pomoci GotoNearest a pak projizdet zaznamy dokud
nenajdu nejblizsi druhou souradnici nebo dokud se nenajde jiz prilis
rozdilna prvni souradnice. Nema nekdo lepsi napad?
Diky za vsechna popostrceni.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7 Algoritmus pro vyhledani dvojice cisel
[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 3.5.2001 11:14:02
co takhle vyrobit docasnou tabulku ve ktere budou vzdalenosti (odmocnina z
(dx^2+dy^2)) a tuto tabulku potom seradit...
> -----P�vodn� zpr�va-----
> Od: brant(zv)dcomm(tec)cz [SMTP:brant(zv)dcomm(tec)cz]
>
> Ahoj vespolek,
> mam tento problem: V databazi (Paradox) mam seznam zemepisnych souradnic a
> seznam odpovidajicich mest. Dostanu zemepisne souradnice a k nim se ma
> vyhledat nejblizsi mesto. Ma to ovsem byt rychle. Neni problem databazi
> seradit podle jedne souradnice, ale jak na to, kdyz mam dve? Napadlo me
> najit nejblizsi souradnici pomoci GotoNearest a pak projizdet zaznamy
> dokud
> nenajdu nejblizsi druhou souradnici nebo dokud se nenajde jiz prilis
> rozdilna prvni souradnice. Nema nekdo lepsi napad?
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
Algoritmus pro vyhledani dvojice cisel
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 3.5.2001 11:19:06
> mam tento problem: V databazi (Paradox) mam seznam zemepisnych souradnic a
> seznam odpovidajicich mest. Dostanu zemepisne souradnice a k nim se ma
> vyhledat nejblizsi mesto. Ma to ovsem byt rychle. Neni problem databazi
Coz takhle to filtrovat - neco jako WHERE (ABS(X-X0)<=LIMIT) AND (ABS(Y-Y0)<=LIMIT)
a zkusit v iteraci zvysovat limit, az se neco chyti...
Otazka je, jak rychle to bude BDE zvladat pri realnem poctu zaznamu v tabulce...
T.
D modely aut a ovladanie
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 03.5.2001 11:19:25
Potrebujem spravit 3D
> model auta,ktory sa da priblizovat,oddalovat presne tak ako je v hre Need
> for speed 5. To by nebolo ani tak dolezite ale ako by som mohol kurzorom
> mysi menit,otvorit alebo otacat objektom....
ahoj,
presne to, co hledas jsem jiz videl hotove (pochopitelne v Delphi). Daly se primo nacist modely aut z TNFS a otacet snimy. Cele to bylo postaveno na komponentach DelphiX. Zkus se podivat po internetu, existuje cela rada (i ceskych) serveru zabyvajicich se problematikou Delphi&Hry...
S pozdravem Milan Cizek
__________________________________________________________________________
Sout�� o zna�kov� ceny TIC TAC a Ferrari http://rd.seznam(tec)cz/www.tictac(tec)cz
Program D4->BDE-MSACCESS na W2000
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 3.5.2001 11:20:52
On 3 May 2001, at 9:17, Petr Kejval wrote:
> zakaznik provozuje muj program napsany v D4, ktery pristupuje k datum
> v mdb databazi pres BDE 5.01 a nativn� driver MSACCESS (DAO3.5). Tento
> program funguje na W95,W98,NT4 k plne spokojenosti. Zakaznik ho zacal
> provozovat na W2000 a pise, ze po spusteni vyskoci hlaska "Vlozte
> disketu do mechaniky A:".Po odklepani teto hlasky program normalne
> funguje. Ja nemam W2000, a proto mu nejsem schopen rict, kde je chyba.
> Proto se zde ptam, lze provozovat program v D4 s vyse uvedenym
> pristupem k datum i pod W2000 nebo to ma nejaky zadrhel. Prosim
> napiste mi zda nekdo neco podobneho provozuje.
Neco podobneho se mi stavalo, kdyz jsem nekde nastavil cestu k
A: a potom jsem pocitac vypnul, aniz bych zmenil cestu.
Samozrejme se to tykalo konkretniho programu, protoze W2000 si
ke kazdemu programu pamatuji naposledy pouzitou cestu.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Pristup k property pres promennou nebo ukazatel
[*] Milink Otakar <otam(zv)TDAT.CZ> - 3.5.2001 11:30:31
Ahojte,
nevite nekdo jestli a pripadne jak je mozne pristupovat
k property pres promennou nebo ukazatel?
O co mi jde: Potrebuji vyhledavat v datasetu a to jak
smerem dopredu tak i dozadu a navic od zacatku nebo
od aktualni pozice. Algoritmus je vzdy stejny jen se
misto Next vola Prior a misto Eof se vola Bof. A tady
je ten problem Eof a Bof jsou property a nedaji se volat
neprimo - tedy alespon ja to neumim....
Ukazka kodu:
var
InitMove, StepMove: procedure of object;
StopCheck: function: Boolean of Object; //????
if SearchDirection = sdSearchForward then
begin
InitMove := First;
StepMove := Next;
StopCheck := Eof; //!! takto to bohuzel nelze...
end
else
begin
InitMove := Last;
StepMove := Prior;
StopCheck := Bof;
end;
if FindNext then
InitMove := StepMove;
InitMove;
while not StopCheck do
begin
Result := Compare;
if Result then
Break;
StepMove;
end;
s pozdravem Otakar Milink
P.S. metodu Locate znam (:-)
Algoritmus pro vyhledani dvojice cisel
[*] Petr Ma��k - 3.5.2001 11:57:29
Ahoj,
metoda GoToNearest umoznuje nastaveni klice provice poli, na pr.
with Table1 do
begin
SetKey;
FieldByName('Souradnice1').AsInteger := X1;
FieldByName('Souradnice2').AsInteger := X2;
GotoNearest;
end;
Mozna to nebude dost rychle.
Petr Marik
rtepema(zv)mbox.vol(tec)cz
Napadlo me
najit nejblizsi souradnici pomoci GotoNearest a pak projizdet zaznamy dokud
nenajdu nejblizsi druhou souradnici nebo dokud se nenajde jiz prilis
rozdilna prvni souradnice. Nema nekdo lepsi napad?
----- Original Message -----
From: <brant(zv)dcomm(tec)cz>
Subject: Algoritmus pro vyhledani dvojice cisel
Diky za vsechna popostrceni.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
Algoritmus pro vyhledani dvojice cisel
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 3.5.2001 12:00:37
brant(zv)dcomm(tec)cz dne 3 May 2001, v 11:07:
> mam tento problem: V databazi (Paradox) mam seznam zemepisnych
> souradnic a seznam odpovidajicich mest. Dostanu zemepisne souradnice a
> k nim se ma vyhledat nejblizsi mesto. Ma to ovsem byt rychle. Neni
> problem databazi seradit podle jedne souradnice, ale jak na to, kdyz
> mam dve? Napadlo me najit nejblizsi souradnici pomoci GotoNearest a
> pak projizdet zaznamy dokud nenajdu nejblizsi druhou souradnici nebo
> dokud se nenajde jiz prilis rozdilna prvni souradnice. Nema nekdo
> lepsi napad?
No napad, by byl, ted jen ho realizovat...
Hadam, ze souradnice mas v ciselnych polich. Vzdalenost hledaneho
bodu od jineho bodu v databazi bych pocital Pythagorovou vetou, ale
asi bych to neodmocnoval (jednak zdrzeni, jednak kdo vi, jestli se v
SQL da umocnovat a odmocnovat, ze...). Nemohu to ted vyzkouset, ale
snad by to mohlo byt nejak takhle:
SELECT a.*
FROM Mesta.db a
ORDER BY ((50-ZemSirka)*(50-ZemSirka) + (15-ZemDelka)*(15-ZemDelka))
Ted jen overit, zda se do ORDER BY da napsat vyraz. Pokud ne, mozna
by to slo takto:
SELECT
a.*,
((50-ZemSirka)*(50-ZemSirka) + (15-ZemDelka)*(15-ZemDelka)) as
Vzdalenost
FROM Mesta.db a
ORDER BY Vzdalenost
No je to jen namet, ono i to pouziti Pythagorovy vety tady neni uplne
spravne, kdyz je to na povrchu koule (nekde by se dal urcite najit
presny vzorec), navic to neresi "preteceni" pres 360 stupnu...
Karel Rys
ak zapsat vzorec do Excelu ?
[*] bosnis <bosnis(zv)yo(tec)cz> - 3.5.2001 12:50:06
From: Tom�# Hol�
je to velka chyba pouzivat Value misto FormulaR1C1, nebo je to fuk ?
Neni to fuk
.Value vraci hodnotu v bunce - mela by se pouzivat jen na cteni hodnoty
.Formula obsahuje vzorec / =SUM(D7:D13) /
.FormulaR1C1 obsahuje vzorec ve tvaru / =R[-1]C*5 / - pouziva se pro zapis vzorce v relativni podobe, kde vztazny bod je aktualni aktivni bunka, pokud by byla aktivni bunka D7 pak vzorec =R[-1]C*5 je interpretovan jako =D6*5 ten pak bude v .Formula
obe varianty Formula se pouzivaji jak k prirazovani hodnot tak vzorcu
Ing. Pavel �PEJTEK
bosnis(zv)yo(tec)cz
OT: Email web access
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 3.5.2001 12:57:14
Sorry za OT
Neznate prosim nekdo nejakou utilitu pro vzdalene cteni posty (neco jako ma
M$ Exchange - okno Outlooku v Exploreru)
Diky
R
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.250 / Virova baze: 123 - datum vydani: 18.04.2001
Algoritmus pro vyhledani dvojice cisel
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 3.5.2001 13:33:22
Ne, takto ne. Horsi, pomajejsi reseni snad nejde nalezt. Pokazde by to
musel pocitat pro vsechny dvojice a jeste v iteraci, ne dekuji. Asi
nejlepsi je ta docasna(nebo stala?) tabulka s rozdily, ta se muze
indexovat a pujde to jako po masle.
> -----Original Message-----
> From: Tomas Vladik [mailto:tom.vladik(zv)swadvice(tec)cz]
> Sent: Thursday, May 03, 2001 11:19 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Algoritmus pro vyhledani dvojice cisel
>
>
> > mam tento problem: V databazi (Paradox) mam seznam
> zemepisnych souradnic a
> > seznam odpovidajicich mest. Dostanu zemepisne souradnice a
> k nim se ma
> > vyhledat nejblizsi mesto. Ma to ovsem byt rychle. Neni
> problem databazi
>
> Coz takhle to filtrovat - neco jako WHERE (ABS(X-X0)<=LIMIT)
> AND (ABS(Y-Y0)<=LIMIT)
>
> a zkusit v iteraci zvysovat limit, az se neco chyti...
>
> Otazka je, jak rychle to bude BDE zvladat pri realnem poctu
> zaznamu v tabulce...
>
>
> T.
>
>
> Algoritmus pro vyhledani dvojice cisel
[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 3.5.2001 13:33:02
tak to mi prijde rychlejsi projet celou databazi a vyhledat minimum, protoze
pri te iteraci bude x krat projizdet celou databazi zatimco pri hledani
minima jen jednou. Neco takovehoto:
var d, min:real;mesto:string;
min:=1e999;
for i:=1 to n do
begin
d:= (sqrt((x[i]-x0)*(x[i]-x0)+(y[i]-y0)*(y[i]-y0));
if d<min then begin min:=d;mesto:=mesto[i];end;
end; -
> > mam tento problem: V databazi (Paradox) mam seznam zemepisnych souradnic
> a
> > seznam odpovidajicich mest. Dostanu zemepisne souradnice a k nim se ma
> > vyhledat nejblizsi mesto. Ma to ovsem byt rychle. Neni problem databazi
>
> Coz takhle to filtrovat - neco jako WHERE (ABS(X-X0)<=LIMIT) AND
> (ABS(Y-Y0)<=LIMIT)
>
> a zkusit v iteraci zvysovat limit, az se neco chyti...
>
> Otazka je, jak rychle to bude BDE zvladat pri realnem poctu zaznamu v
> tabulce...
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
OT: Interbase na Linuxu - jeii sprava
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 03.5.2001 13:57:57
Ahoj,
naistalovali jsme IBase 6 na RedHat Linux.
ISQL chodi bez problemu ale nemohu najit vhodnou IBConsole, kterou bych
mohl server spravovat z WinNT.
Mam IBConsole verse 1.0.0.336. Konektuji se pomoci TCP/IP a at to zkusim
pomoci cisla masiny nebo jmeny z DNS je vysledek stejny:
"Cannot attach to services manager
Services functionality will be supported in a later version of the =
product"
Nevite nekdo co s tim nebo kde by se dala sehnat lepsi verze?
P.S: Proti IBase 6 na WinNT to chodi bez problemu.
Dik
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================Modalne okno z formularu volaneho v Threade
[*] Lubos Daniel <ldaniel(zv)gymmt.sk> - 3.5.2001 13:57:39
Ahoj.
Ked volam modalne okno pre fomular, ktory bol otvoreny v threade, tak sa
mi tento formular vobec ako modalny nechova.
Da sa nejako spravit, aby tento formular, ktory volam bol modalny len pre
ten jeden form?
S pozdravom, Lubos
Nove okno s novym tlacitkom na taskbare
[*] Lubos Daniel <ldaniel(zv)gymmt.sk> - 3.5.2001 14:05:22
Ahoj.
Uz som sa o tom zmienoval. Pomocou poslanej procedury som do vytvaraneho
okna pridal dotycnu proceduru, ktora pri vytvarani zaistila, ze sa jej
vytvori na taskbare tlacitko.
Lenze potom sa pri modalnom okno volaneho z tohto noveho formulara tento
form schoval a zobrazilo sa hlavne okno, do ktoreho sa nedalo ani prepnut.
"Vyriesil" to dalsi prispevok, ktory zabranil volaniu
RestoreTopMosts. Lenze mne tento kod nijako nepomahal, aj ked sa
volal. Funguje to tak ako predtym.
Podla mna je chyba niekde inde, ale kde?
Vie to niekto?
S pozdravom, Lubos
Prenos dat pres seriovy port
[*] Robert Poncak <robo(zv)zvlauto.sk> - 3.5.2001 14:36:27
Prave dnes som natrafil na inete na komponenty tohto typu. Este som to
poriadne nepozrel, ale skus su tam aj priklady:
Varian async32.
http://www.varian-software.com/downloads.html
Robo.
----- Original Message -----
From: Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 03, 2001 4:23 PM
Subject: Prenos dat pres seriovy port
> Ahoj!
>
> Dostal jsem za ukol udelat aplikaci, ktera bude pomoci serioveho
> portu kopirovat data (soubory) z/do jineho PC. Nanestesti o teto
> problematice nevim zhola, ale zhola nic, s vyjimkou toho, ze to nejak
> jde. :-) Coz jako primarni vychodisko se sice da akceptovat, ale k
> napsani projektu to asi nestaci :-( Toz bych prosil zkusenejsi o par
> rad. Zkousel jsem hledat na Netu, ale jelikoz jsem v teto
> problematice "cisty list papiru", tak nevim, co je dulezite, co
> potrebuji a co ne. Takze treba stranky, kde se vyskytly obraty jako
> "..nahodit DTR...", "...buffer UARTu.." jsem zatim vesele ignoroval.
>
> Moje laicka predstava je asi takovato (vychazim z toho, jak z
> uzivatelskeho hlediska pracoval "prastary" Norton Commander):
> Na jednom PC by se moje app spustila jako "vysilaci" a na tom druhem
> jako "prijimaci". Na zacatku prenosu bych asi prenesl jmeno
> kopirovaneho souboru, jeho velikost a mozna i CRC. Pak by asi
> nasledovala nejaka oddelovaci sekvence znaku a pak by nasledoval
> vlastni prenos dat. Po jeho ukonceni bych asi poslal jeste nejakou
> dalsi sekvenci, ktera by oznamovala, ze data byla prenesena vsechna.
>
> No a ted moje zacatecnicke dotazy:
> 1) Jak zjistim, ze port na tom druhem PC je "otevren", tj. ze ceka na
> data?
> 2) Jaka je maximalni prenosova rychlost a jak ji mohu nastavovat?
> 3) Jak se kontroluje, ze data se prenesla v poradku?
> 4) Jak zjistim kolik seriovych portu dotycne PC ma?
> 5) Jak se zjisti CRC souboru?
> 6) Doporucena literatura, zdroje, linky. Cestinu preferuji, English
> muze byt taky.
> 7) Tipy na komponenty, ktere se pri psani teto aplikace daji vyuzit.
> (Coz takove ASyncPro? Da se pouzit?)
> 8) Lze tuto problematiku resit i v pripade, ze na jednom PC bude
> nejaky program, ktery bude posilat data na seriovy port a na tom
> druhem PC bude ta moje aplikace data prijimat? Pochopitelne za
> predpokladu, ze budu vedet, co a jak ten "cizi" program posila.)
> 9) Dalsi rady od zkusenych vitam.
>
> Moc prosim o pomoc, aspon o nasmerovani tim spravnym smerem.
>
> Jirka.
>virtual Listview
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 3.5.2001 14:48:46
Jak je to s TListItem v ListView ve virtualnim rezimu ?
Mam dojem ze by nemeli vubec existovat, alespon ne
vsechny, ale jak lze pouzit treba vlastnost ItemFocused ?
Nasledujici kod ma vyvolat zmenu poradi pretazenim
polozky mysi, ale objekt li se "sam od sebe zmeni", tzn.
okazmize po naplneni funkci GetItem obsahuje spravne
udaje, ale v dobe prirazeni step:=li.Index jiz obsahuje
jina data. Jak TListView obhospodaruje Items, kdyz
je ve virtualnim rezimu ?
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X,
Y: Integer);
var li:TListItem;
step:Integer;
begin
li:=ListView1.GetItemAt(X,Y);
if li<>Nil then begin
step:=li.Index;
if ListView1.ItemFocused<>Nil then begin
Dec(step,ListView1.ItemFocused.Index);
UpdateOrder(step);
end;
end;
end;
Predem dekuji
------------------------------------------------------
Daniel Rott - roxton(zv)volny(tec)cz
http://www.volny(tec)cz/roxton
Some minor bugs/features fixed/added
Prenos dat pres seriovy port
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 3.5.2001 14:59:37
New SQL Report Builder ako Delph5 komponenta je na svete. Umoznuje
napojenie NSQLRB na lubovolny DataSet pod Delphi. Plne podporuje end user
designer. (Free)
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli
Nove okno s novym tlacitkom na taskbare
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 3.5.2001 15:02:01
Ahoj,
nevim zda bude to fungovat, ale toto mi kdysi poslal Tomas Skoda
[mailto:tomas.skoda(zv)jdsoftware.sk]:
> Tvoj kod je spravny ale asi nie celkom uplny.
>
> Stane sa ti totiz, ze ked budes mat nejake, takto upravene
> okno a z tohoto okna zobrazis nejake modalne okno (ShowModal,
> alebo lubovolne *message* okno), upravene okno zmizne a uzivatel uvidi
> len hlavne okno aplikacie a modalne okno. Ked uzavries modalne okno,
> upravene okno sa znova zobrazi.
>
> Na odstranenie tejto chyby pouzivam tento kod v DPR subore:
>
> begin
> Application.Initialize;
> // !!!
> SetWindowLong(Application.Handle,
> gwl_ExStyle,
> GetWindowLong(Application.Handle, gwl_ExStyle) or
> ws_Ex_ToolWindow);
> // !!!
> Application.CreateForm(TDCAppForm, DCAppForm);
> Application.Run;
> end.
>
>
> Dufam, ze ti to trochu pomoze.
>
> Tomas Skoda
> tomas.skoda(zv)jdsoftware.sk
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>
> procedure TForm2.CreateParams(var Params: TCreateParams);
> begin
> inherited CreateParams(Params);
> Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
> Params.WndParent := 0;
> end;
> NSQLRB ako Delphi komponent
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 3.5.2001 15:03:20
New SQL Report Builder ako Delphi5 komponenta je na svete. Umoznuje
napojenie na lubovolny DataSet pod Delphi. Plne podporuje end user designer,
na tychto urovniach:
1. Uplna podpora modifikacia reportu
2. bez moznosti modifikacie DataSet-u
3. bez moznosti modifikacie report programu.
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli
> >Dynamick� tvorba QRLabel
[*] Petr <petr(zv)slunce(tec)cz> - 3.5.2001 15:46:21
Ahojte,
v D5E SP1 pod W98 v QuickReportu potrebuji vytvorit v QRBandu (rbTitle)
nejake QRLabely.
Toto je kod zkusebniho unitu.Vsechno pri PreviewModal probehne (nekousne se
to ani nevyhazuje zadnou chybu), ale na nic se nezobrazi.
Nasel jsem v konfere zminku o fci InsertControl nebo InsertComponent pro
vytvareni vizualnich komponent za behu, ale ani jedna nezabrala.
Narval jsem do kodu vsechny mozne vlastnosti QRLabelu a porad se ty mrchy
nechcou ukazat.
Predem diky
Petr Sadovsky
var
Form2: TForm2;
QRLabel00 : array [0..4] of TQRLabel;
implementation
procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand:
Boolean);
var j:Integer;
Retez:String;
begin
for j:=4 downto 0 do
begin
QRLabel00[J]:=TQRLabel.Create(QRBand1);
InsertControl(QRlabel00[J]);
with QRLabel00[J] do
begin
Enabled:=True;
Left:=10;
Top:=10+(J*2);
Width:=60;
Height:=16;
Frame.Color := clBlack;
Frame.DrawTop := False;
Frame.DrawBottom := False;
Frame.DrawLeft := False;
Frame.DrawRight := False;
Size.Height := 44.97916666666;
Size.Left :=-21.1666666666667;
Size.Top := 148.166666666667;
Size.Width := 272.520833333333;
Alignment := taLeftJustify;
AlignToBand := False;
AutoSize := True;
AutoStretch := False;
Caption:=' Ty vole !!!';
Color := clWhite;
Font.Charset := DEFAULT_CHARSET;
Font.Color := clWindowText;
Font.Height := -12;
Font.Name := 'Arial Narrow';
Font.Pitch:=fpDefault;
Font.Style := [];
Font.Size := 15;
ParentFont := False;
Parent:=QRBand1;
Transparent := False;
WordWrap := True;
Retez:=' Ty vole';
// onPrint := QRLabel1Print(QRBand1,Retez);
end;
// end; // for
end;
Not enabled TButton a event OnClick
[*] Tono Kukura <akukura(zv)microstep-hdo.sk> - 3.5.2001 15:54:22
Ahoj, vedeli by ste mi poradit
ako by sa dalo odchytit, ked niekto klikne na TButton, ktory ma nastaveny
Enabled:=False.
Vopred dik za napady
Tono
Dynamick� tvorba QRLabel
[*] Alexandr #tefek <alex(zv)scova.vabo(tec)cz> - 3.5.2001 16:15:19
Zkus
QRLabel00[J].Parent := Self;
Alexandr STEFEK
> > Ahojte,
> >
> > v D5E SP1 pod W98 v QuickReportu potrebuji vytvorit v QRBandu (rbTitle)
> > nejake QRLabely.
> > Toto je kod zkusebniho unitu.Vsechno pri PreviewModal probehne (nekousne
> se
> > to ani nevyhazuje zadnou chybu), ale na nic se nezobrazi.
> > Nasel jsem v konfere zminku o fci InsertControl nebo InsertComponent pro
> > vytvareni vizualnich komponent za behu, ale ani jedna nezabrala.
> > Narval jsem do kodu vsechny mozne vlastnosti QRLabelu a porad se ty
mrchy
> > nechcou ukazat.
> >
> > Predem diky
> >
> > Petr Sadovsky
> >
> > var
> > Form2: TForm2;
> > QRLabel00 : array [0..4] of TQRLabel;
> >
> > implementation
> >
> > procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand; var
PrintBand:
> > Boolean);
> > var j:Integer;
> > Retez:String;
> > begin
> > for j:=4 downto 0 do
> > begin
> > QRLabel00[J]:=TQRLabel.Create(QRBand1);
> > InsertControl(QRlabel00[J]);
> > with QRLabel00[J] do
> > begin
> > Enabled:=True;
> > Left:=10;
> > Top:=10+(J*2);
> > Width:=60;
> > Height:=16;
> > Frame.Color := clBlack;
> > Frame.DrawTop := False;
> > Frame.DrawBottom := False;
> > Frame.DrawLeft := False;
> > Frame.DrawRight := False;
> > Size.Height := 44.97916666666;
> > Size.Left :=-21.1666666666667;
> > Size.Top := 148.166666666667;
> > Size.Width := 272.520833333333;
> > Alignment := taLeftJustify;
> > AlignToBand := False;
> > AutoSize := True;
> > AutoStretch := False;
> > Caption:=' Ty vole !!!';
> > Color := clWhite;
> > Font.Charset := DEFAULT_CHARSET;
> > Font.Color := clWindowText;
> > Font.Height := -12;
> > Font.Name := 'Arial Narrow';
> > Font.Pitch:=fpDefault;
> > Font.Style := [];
> > Font.Size := 15;
> > ParentFont := False;
> > Parent:=QRBand1;
> > Transparent := False;
> > WordWrap := True;
> > Retez:=' Ty vole';
> > // onPrint := QRLabel1Print(QRBand1,Retez);
> > end;
> > // end; // for
> > end;
> >
> >
> >
>Prenos dat pres seriovy port
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 3.5.2001 14:23:07 met-1
Ahoj!
Dostal jsem za ukol udelat aplikaci, ktera bude pomoci serioveho
portu kopirovat data (soubory) z/do jineho PC. Nanestesti o teto
problematice nevim zhola, ale zhola nic, s vyjimkou toho, ze to nejak
jde. :-) Coz jako primarni vychodisko se sice da akceptovat, ale k
napsani projektu to asi nestaci :-( Toz bych prosil zkusenejsi o par
rad. Zkousel jsem hledat na Netu, ale jelikoz jsem v teto
problematice "cisty list papiru", tak nevim, co je dulezite, co
potrebuji a co ne. Takze treba stranky, kde se vyskytly obraty jako
"..nahodit DTR...", "...buffer UARTu.." jsem zatim vesele ignoroval.
Moje laicka predstava je asi takovato (vychazim z toho, jak z
uzivatelskeho hlediska pracoval "prastary" Norton Commander):
Na jednom PC by se moje app spustila jako "vysilaci" a na tom druhem
jako "prijimaci". Na zacatku prenosu bych asi prenesl jmeno
kopirovaneho souboru, jeho velikost a mozna i CRC. Pak by asi
nasledovala nejaka oddelovaci sekvence znaku a pak by nasledoval
vlastni prenos dat. Po jeho ukonceni bych asi poslal jeste nejakou
dalsi sekvenci, ktera by oznamovala, ze data byla prenesena vsechna.
No a ted moje zacatecnicke dotazy:
1) Jak zjistim, ze port na tom druhem PC je "otevren", tj. ze ceka na
data?
2) Jaka je maximalni prenosova rychlost a jak ji mohu nastavovat?
3) Jak se kontroluje, ze data se prenesla v poradku?
4) Jak zjistim kolik seriovych portu dotycne PC ma?
5) Jak se zjisti CRC souboru?
6) Doporucena literatura, zdroje, linky. Cestinu preferuji, English
muze byt taky.
7) Tipy na komponenty, ktere se pri psani teto aplikace daji vyuzit.
(Coz takove ASyncPro? Da se pouzit?)
8) Lze tuto problematiku resit i v pripade, ze na jednom PC bude
nejaky program, ktery bude posilat data na seriovy port a na tom
druhem PC bude ta moje aplikace data prijimat? Pochopitelne za
predpokladu, ze budu vedet, co a jak ten "cizi" program posila.)
9) Dalsi rady od zkusenych vitam.
Moc prosim o pomoc, aspon o nasmerovani tim spravnym smerem.
Jirka.OT: Jak registrovat Windows Commander?
[*] brant(zv)dcomm(tec)cz - 3.5.2001 16:57:52
Omlouvam se za OT, nemam vsak nikoho, na koho bych se mohl obratit. Jeden
nas zakaznik (je to skola, takze chuda) potrebuje mit WinCommander legalne.
Vim, ze existuje nejaka ceska firma, ktera se registraci zahranicniho SW
zabyva, ale nemuzu si vzpomenout na jmeno. Nevite nekdo?
P.S. Doporucoval jsem jim Servant Salamander apod., jenze oni to chteji pro
FTP klienta, ktery tam je, ze jsou pry na to zvykli.
Diky
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7 D modely aut a ovladanie
[*] JIM Design <jim.design(zv)iol(tec)cz> - 3.5.2001 17:00:14
ahoj,
asi je tato rada necekana z DELPHI konference, ale ja bych to nejjednoduseji
udelal tak, ze bych si 3D modely aut prevedl do VRML (dost zalezi na tom v
jakem 3D formatu to ted mas) - prevadet do *.VRL umi treba CorelDRAW, a ten
pak zobrazoval v klasickem MS Internet Exploderu, do kteryho si pred tim
musis stahnout a nainstalovat asi 11MB plugin kterej ti pri nacteni
jakehokoliv *.VRL zmeni explorer v takovej 3D prochazec (vypada skoro jako
ten v NFS :-)))
To cele pak muzes zakomponovat do Delphi treba pomoci komponenty
TWebBrowser.
Jeden z techto free 3rd party pluginu do exploreru je treba WorldView2.1, v
pripade nenalezeni na nejakem vyhledavaci ti muzu zjistit odkud sem ho
stahl.
M.Jirman
-----Original Message-----
Behalf Of KAZ#K �ubo#
Sent: Thursday, May 03, 2001 9:26 AM
Mam k vam jednu prosbu.Potrebujem len trosku postrcit.Potrebujem spravit 3D
model auta,ktory sa da priblizovat,oddalovat presne tak ako je v hre Need
for speed 5. To by nebolo ani tak dolezite ale ako by som mohol kurzorom
mysi menit,otvorit alebo otacat objektom....
Nemate niekto komponenty na tieto veci.
Dakujem moc by ste mi pomohli.....
Lubos
cteni z DBGridu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 3.5.2001 18:07:39
DBGrid1.Cells[x,y]
>> From: celda [mailto:jcelikovsky(zv)mbox.dkm(tec)cz]
>> Subject: cteni z DBGridu
>>
>>
>> Prosim,
>> potrebuji poradit, jak nacist (do stringu) text (proste
>> jednu polozku, treba
>> na souradnici [3,5]) z DBGridu.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz Program bez panelu
[*] Jakub Pl�ek <kubapl(zv)seznam(tec)cz> - 3.5.2001 19:46:51
Ahoj,
zajimalo by me jak udelat, aby kdyz spustim muj program, se neobevil panel
dole v hlavni nabidce(myslim tim u tlacitka START).
Diky za jakoukoliv pomoc.
Jakub Pl#ek
kubapl(zv)seznam(tec)cz
www.sweb(tec)cz/kubapl
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.4.2001
Jak registrovat Windows Commander?
[*] Miroslav Evj�k <evjak(zv)atlas(tec)cz> - 3.5.2001 20:24:40
Behalf Of brant(zv)dcomm(tec)cz
Subject: OT: Jak registrovat Windows Commander?
e.
Vim, ze existuje nejaka ceska firma, ktera se registraci zahranicniho SW
zabyva, ale nemuzu si vzpomenout na jmeno. Nevite nekdo?
Zkus www.jimaz(tec)cz, registroval jsem pres ne RAR a jin� ...
Mirecek
evjak(zv)atlas(tec)cz
Dynamick� tvorba QRLabel
[*] Lauko #tefan <laukosw(zv)naex.sk> - 3.5.2001 23:58:44
Ahoj,
pre TControl (a vsetkych potomkov) plati pri vytvarani za behu :
cmp:= TControl.Create(Self) - self je Owner (vlastnik) vytvoreneho objectu
(vacsinou TForm).
( Create(Self) prida ho do zoznamu self.Components)
cmp.parent:= QRBand1; - parent znamena kde sa ma nakreslit.
Parenta mozes menit lubovolne.
(prida ho do zoznamu QRBand1.Controls)
TQRLabel je potomkom TControl (vzdialenym).
Lauko.
From: Alexandr �tefek <alex(zv)scova.vabo(tec)cz>
> Zkus
>
> QRLabel00[J].Parent := Self;
****** V tomto pripade sa QRLabel nenakresli vobec. ********
>
> Alexandr STEFEK
> > > Narval jsem do kodu vsechny mozne vlastnosti QRLabelu a porad se ty
> mrchy
> > > nechcou ukazat.
> > >
> > > Predem diky
> > >
> > > Petr Sadovsky
> > >
> > > var
> > > Form2: TForm2;
> > > QRLabel00 : array [0..4] of TQRLabel;
> > >
> > > implementation
> > >
> > > procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand; var
> PrintBand:
> > > Boolean);
> > > var j:Integer;
> > > Retez:String;
> > > begin
> > > for j:=4 downto 0 do
> > > begin
> > > QRLabel00[J]:=TQRLabel.Create(QRBand1);
> > > InsertControl(QRlabel00[J]);
> > > with QRLabel00[J] do
> > > begin
> > > Enabled:=True;
> > > Left:=10;
> > > Top:=10+(J*2);
> > > Width:=60;
> > > Height:=16;
> > > Frame.Color := clBlack;
> > > Frame.DrawTop := False;
> > > Frame.DrawBottom := False;
> > > Frame.DrawLeft := False;
> > > Frame.DrawRight := False;
> > > Size.Height := 44.97916666666;
> > > Size.Left :=-21.1666666666667;
> > > Size.Top := 148.166666666667;
> > > Size.Width := 272.520833333333;
> > > Alignment := taLeftJustify;
> > > AlignToBand := False;
> > > AutoSize := True;
> > > AutoStretch := False;
> > > Caption:=' Ty vole !!!';
> > > Color := clWhite;
> > > Font.Charset := DEFAULT_CHARSET;
> > > Font.Color := clWindowText;
> > > Font.Height := -12;
> > > Font.Name := 'Arial Narrow';
> > > Font.Pitch:=fpDefault;
> > > Font.Style := [];
> > > Font.Size := 15;
> > > ParentFont := False;
> > > Parent:=QRBand1;
> > > Transparent := False;
> > > WordWrap := True;
> > > Retez:=' Ty vole';
> > > // onPrint := QRLabel1Print(QRBand1,Retez);
> > > end;
> > > // end; // for
> > > end;
> > >
> > >
> > >
> >
>
>
Opet QReport a tisk na traktor
[*] Zaplik <zaplik(zv)volny(tec)cz> - 4.5.2001 07:04:17
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Dobry den
Prochazel jsem konferenci, ale nikde jsem nenasel odpoved na to, jak donutit jehlickovou tiskarnu tisknout spravne stranky. Neco podobneho se tady probiralo, ale bez nejakeho vysledku. I kdyz se snazim v qrep nastavit delko papiru na 305mm,custom, tak se nic nestane. Pokazde je dalsi stranka posunuta cca o 1cm.
Poradte prosim. D5profi, QRep 3.0, W2000, Epson
p.s. nevite nekdo jak pri exportu Qrep do txt, html , rtf zabezpecit aby se jednotliva pole neprekryvala a nabyla pohazena?
Martin Zapletal
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
Opet QReport a tisk na traktor
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 4.5.2001 07:23:45
Tak tady si dej velky pozor!!!
QReport neumi zvladnout zadny "custom format", takze jedina moznost,
jak ho k tomu donutit, je nastavit "default format", ktery ma prave
tuto pozadovanou delku stranky.
Bohuzel, takovych formatu aby clovek pohledal. My uz dnes vime, ze
tento format ma napriklad "Nemecky skladany papir", ale je velmi
obtizne to tam dostat. Je to totiz rozdilne od verze Windows.
Pro W95 staci do konfikuracniho souboru pro tiskarny (myslim eps.cfg
nebo tak nejak).
Pro W98 to snad ani nejde.
Dale posilam, jak mi to vyresil kolega pro W2000.
U nekterych ovladacu jehlickovych tiskaren neni ve W2000 ovladac, ktery by
mel formular FANFOLD_STD_GERMAN - tj. bezny traktorovy papir, vetsinou je
odpovidajici formular definovan jako custom, to ale znamena ze QuickReport
nebude schopen spravne strankovat (QR pozna jen noncustom formulare).
Nastesti tvurci W2000 pouzili hlavu kdyz vymysleli system tisku. Kazda
tiskarna ma soubor .GPD ktery obsahuje veskera nastaveni tisku a zaroven
ridici kody pro tisk. Tento soubor je textovy a lze jej snadno opravovat.
Bohuzel spooler tisku si tento .GPD soubor "prekompiluje" pri instalaci do
souboru .BUD ktery je uz necitelny.
Moznosti jak toto obejit je nekolik. Vyzkousel jsem tuto a zda se mi
nejjednodusi; podstrcit pri instalaci tiskarny vlastni .GPD soubor. Vytvoril
jsem si soubor DRIVER.CAB se soubory potrebnymi pro instalaci asi
nejbeznejsi tiskarny EPSON FX-850.
Pri instalaci az se vas W2000 zeptaji, kde jsou soubory ulozeny, podstrcte
jim tento upraveny DRIVER.CAB. Puvodni DRIVER.CAB NESMI byt v
adresari WINNT\DRIVERS ... a ani nesmi byt v adresari, ze ktereho se
instalovali W2000.
To ze skutecne bere upraveny DRIVER.CAB, poznate tak, ze pri instalaci
zarvou Windows na chybejici digitalni podpis u souboru EPFX850.GPD.
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
04.05.2001 Zaplik:
> Dobry den
> Prochazel jsem konferenci, ale nikde jsem nenasel odpoved na to, jak donutit jehlickovou tiskarnu tisknout spravne stranky. Neco podobneho se tady probiralo, ale bez nejakeho vysledku. I kdyz se
> snazim v qrep nastavit delko papiru na 305mm,custom, tak se nic nestane. Pokazde je dalsi stranka posunuta cca o 1cm.
> Poradte prosim. D5profi, QRep 3.0, W2000, Epson
> p.s. nevite nekdo jak pri exportu Qrep do txt, html , rtf zabezpecit aby se jednotliva pole neprekryvala a nabyla pohazena?
> Martin Zapletal
> zaplik(zv)volny(tec)cz
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
SUBST
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 4.5.2001 07:26:14
Ahoj,
jak muzu vytvorit virtulani disk na urcity adresar ze sveho programu.
Presne tak, jak to dela DOSovsky SUBST .
Dynamick� tvorba QRLabel
[*] Petr <petr(zv)slunce(tec)cz> - 4.5.2001 07:59:30
Toto staci na obycejny Label, ale pro QRLabel ani n�hodou.Pomoooc.
procedure TForm1.FormCreate(Sender: TObject);
var Label00: array [0..10] of TLabel;
J:Integer;
begin
J:=0;
Label00[J]:=TLabel.Create(self);
Label00[J].Parent:=self;
Label00[J].Left:=10;
Label00[J].Top:=10;
Label00[J].Width:=60;
Label00[J].Height:=16;
Label00[J].Autosize:=True;
Label00[J].Caption:=' Ty bejku ';
end;
----- Original Message -----
From: Lauko �tefan <laukosw(zv)naex.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 03, 2001 11:58 PM
Subject: RE: Dynamick� tvorba QRLabel
> Ahoj,
> pre TControl (a vsetkych potomkov) plati pri vytvarani za behu :
> cmp:= TControl.Create(Self) - self je Owner (vlastnik) vytvoreneho objectu
> (vacsinou TForm).
> ( Create(Self) prida ho do zoznamu self.Components)
>
> cmp.parent:= QRBand1; - parent znamena kde sa ma nakreslit.
> Parenta mozes menit lubovolne.
> (prida ho do zoznamu QRBand1.Controls)
>
> TQRLabel je potomkom TControl (vzdialenym).
>
> Lauko.
>
> From: Alexandr �tefek <alex(zv)scova.vabo(tec)cz>
> > Zkus
> >
> > QRLabel00[J].Parent := Self;
> ****** V tomto pripade sa QRLabel nenakresli vobec. ********
> >
> > Alexandr STEFEK
>
> > > > Narval jsem do kodu vsechny mozne vlastnosti QRLabelu a porad se ty
> > mrchy
> > > > nechcou ukazat.
> > > >
> > > > Predem diky
> > > >
> > > > Petr Sadovsky
> > > >
> > > > var
> > > > Form2: TForm2;
> > > > QRLabel00 : array [0..4] of TQRLabel;
> > > >
> > > > implementation
> > > >
> > > > procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand; var
> > PrintBand:
> > > > Boolean);
> > > > var j:Integer;
> > > > Retez:String;
> > > > begin
> > > > for j:=4 downto 0 do
> > > > begin
> > > > QRLabel00[J]:=TQRLabel.Create(QRBand1);
> > > > InsertControl(QRlabel00[J]);
> > > > with QRLabel00[J] do
> > > > begin
> > > > Enabled:=True;
> > > > Left:=10;
> > > > Top:=10+(J*2);
> > > > Width:=60;
> > > > Height:=16;
> > > > Frame.Color := clBlack;
> > > > Frame.DrawTop := False;
> > > > Frame.DrawBottom := False;
> > > > Frame.DrawLeft := False;
> > > > Frame.DrawRight := False;
> > > > Size.Height := 44.97916666666;
> > > > Size.Left :=-21.1666666666667;
> > > > Size.Top := 148.166666666667;
> > > > Size.Width := 272.520833333333;
> > > > Alignment := taLeftJustify;
> > > > AlignToBand := False;
> > > > AutoSize := True;
> > > > AutoStretch := False;
> > > > Caption:=' Ty vole !!!';
> > > > Color := clWhite;
> > > > Font.Charset := DEFAULT_CHARSET;
> > > > Font.Color := clWindowText;
> > > > Font.Height := -12;
> > > > Font.Name := 'Arial Narrow';
> > > > Font.Pitch:=fpDefault;
> > > > Font.Style := [];
> > > > Font.Size := 15;
> > > > ParentFont := False;
> > > > Parent:=QRBand1;
> > > > Transparent := False;
> > > > WordWrap := True;
> > > > Retez:=' Ty vole';
> > > > // onPrint := QRLabel1Print(QRBand1,Retez);
> > > > end;
> > > > // end; // for
> > > > end;
> > > >
> > > >
> > > >
> > >
> >
> >
>
>
OT: Interbase na Linuxu - jeii sprava
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 4.5.2001 07:59:37
Haj hou!
On 3 May 2001,, Richard Valny wrote:
> Ahoj,
> naistalovali jsme IBase 6 na RedHat Linux.
> ISQL chodi bez problemu ale nemohu najit vhodnou IBConsole, kterou bych
> mohl server spravovat z WinNT.
> Mam IBConsole verse 1.0.0.336. Konektuji se pomoci TCP/IP a at to zkusim
> pomoci cisla masiny nebo jmeny z DNS je vysledek stejny:
>
> "Cannot attach to services manager
> Services functionality will be supported in a later version of the =
> product"
>
> Nevite nekdo co s tim nebo kde by se dala sehnat lepsi verze?
> P.S: Proti IBase 6 na WinNT to chodi bez problemu.
Podivejte se na www.ibphoenix.com a nebo www.interbase2000.org
do seznamu administracnich nastroju pro IB. Vyber je veliky.
S pozdravem
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Opet QReport a tisk na traktor
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 4.5.2001 08:21:20
Zdravim,
jiz dlouho se zde mluvi o jehlickove tiskarne, ale nebylo receno o jakou jehlicku jde. Spousta jehl. tiskaren ma primo v sobe nastavenou delku stranky. Zkus si prolistovat manual, zda na tuto jehlicku neni zase nejaka vyjimka.
A z wordu ta jehlicka tiskne dobre?
Pavel
----- Original Message -----
From: Zaplik
To: Delphi Konference
Sent: Friday, May 04, 2001 7:04 AM
Subject: Opet QReport a tisk na traktor
Dobry den
Prochazel jsem konferenci, ale nikde jsem nenasel odpoved na to, jak donutit jehlickovou tiskarnu tisknout spravne stranky. Neco podobneho se tady probiralo, ale bez nejakeho vysledku. I kdyz se snazim v qrep nastavit delko papiru na 305mm,custom, tak se nic nestane. Pokazde je dalsi stranka posunuta cca o 1cm.
Poradte prosim. D5profi, QRep 3.0, W2000, Epson
p.s. nevite nekdo jak pri exportu Qrep do txt, html , rtf zabezpecit aby se jednotliva pole neprekryvala a nabyla pohazena?
Martin Zapletal
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
Jak registrovat Windows Commander?
[*] Ji�� Kr�l jr. - 4.5.2001 08:30:10
nejjednodussi je, pokud maji ve firme k uctu EC/MC nebo VISA kartu a
zaplatit to po inetu kartou.
Nemyslim si, ze je treba zivit nejake prostredniky. Podle me by to slo i bez
karty domluvit se s majitelem licence a pripadne prevest $ z banky do banky.==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)
Prenos DAT ale teraz po LPT1 ako NC50
[*] Robert Suska <robert(zv)korak.sk> - 4.5.2001 08:35:37
Potrebujem komponentu na prenos dat po paralelnom porte, bracho si kupil
NOTEBOOK a nechce sa mu kopirovat data cez disketu tak som mu navrhol ze mu
to naprogramujem. Tu na COM1 uz mam ;-)
P.S. Viete nemam co momentalne na praci :)
S pozdravom,
--------------------------------------------------------
Robert Suska, IT specialista, amatersky programator
KORAK slovakia, Banska Bystrica
Slovenska republika
www.korak.sk
robert(zv)korak.sk
mIRC - /server 195.168.40.146 - channel #sme NICK Sefino
+421 088 415 14 02
--------------------------------------------------------
Modalne okno z formularu volaneho v Threade
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.5.2001 08:36:20
> Ked volam modalne okno pre fomular, ktory bol otvoreny v threade, tak
> sa mi tento formular vobec ako modalny nechova. Da sa nejako spravit,
> aby tento formular, ktory volam bol modalny len pre ten jeden form?
>
Ahoj,
tak presne tohle jsem se snazil nejak vyresit a jsem cim dal vic
skepticky.
1) Formular nelze vytvorit v threadu bez volani Synchronize (na NT
to zdanlive slape, i kdyz jde zrejme o koledovani si o Access
Violation, ale W2000 uz rovnou reknou, ze canvas neni dostupny).
Pouziti Synchronize ale znamena, ze ten form de fakto vytvori
hlavni form.
2) Zkousel jsem prepsat ShowModal tak, aby nedisabloval vsechna
okna, ale jen sveho ownera. Jenze... ShowModal se chova tak, ze
po dobu sveho provadeni obsluhuje frontu zprav. Neni opravdu
problem vytvorit "lokalne modalni" okno, ale funguje to jen v
pripade, kdy je v cele aplikaci zobrazeno jen jedno soucasne. A to
asi neni zamer. Jakmile vyvolas nekolik lokalne modalnich oken,
prejde obsluha smycky zprav do posledniho ShowModal, takze kod
ZA JINYM showmodal (tj. po zavreni nejakeho starsiho modalniho
okna) se neprovede, dokud neskonci vsechna modalni okna
vytvorena pozdeji. Vyzkouseno.
3) Cestou, ktera by mohla byt schudna, je pouzivani vlaken tak, ze
hlavni vlakno aplikace nedela nic, jen se stara o zobrazovani
(synchonize z ostatnich vlaken) a veskere obsluhy buttonku apod. -
zkratka kod aplikace probiha v jinych vlaknech. To ovsem
komplikuje psani aplikace tak silenym zpusobem, ze je to skoro
nepouzitelne. Na kdejakou volovinu, napr. i ktera ma zavolat
ShowModal, musi byt thread, ktery ovsem pouziva VCL pres
synchronize (takze psat vlakna a procedury pro synchronizaci...).
Navic by bylo potreba metodu ShowModal zcela prepsat, tak aby
se nestarala o smycku zprav, ale provadela suspend vlakna, jez ji
vyvolalo apod....,
zkratka nez by clovek napsal i trivialni aplikaci, zemrel by
vycerpanim.
Muj vyzkum se ted bude ubirat asi k COM (out of process server),
tj. modul, v nemz se muze vyskytnout modalni okno, by byl
samostany exe (COM server) a jadro aplikace by ho ovladalo coby
COM. Verim, ze takto by se "lokalne modalni okna" dala pouzivat,
a to normalne (ShowModal bez uprav klasicky - modalni v ramci
sveho exe). V tuto chvili nemam nejmensi tuseni, zda je ta cesta
schudna ci ne.
David Lebeda
Rozdily v kompiovanem exe
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 4.5.2001 08:46:15
> On Behalf Of Zdenek Drvota
> ### Petr Vones napsal dne 2 May 01, v 18:37 :
> > From: "Martin Dietl" <dietl(zv)4use(tec)cz>
> > > pouze obsahem na par adresach.
> >
> > pokud je to v oblasti CODE sekce tak je to zpusobeno tim, ze linker po
> > kazdem prekladu mirne prehazi poradi unitu (patrne nejaky vedlejsi
efekt).
> > Na funkci to samozrejme nema vliv.
> >
> Jeste mne napada:
> -co treba version info & automaticka inkrementace buildu?
Ahoj,
automaticka inkrementace je vypnuta, version info nezmeneno.
Ucelem je provest porovnani shodnosti mezi exacem zkompilovanym z WORKING
DIRECTORY a exacem ze zdrojaku ziskanych po naslednem CheckIn do VSS a potom
GetLatestVersion - tedy dvojita kontrola:
a) ve VSS je to co tam ma byt
b) klientovi se dodava stejny exe ktery byl otestovan.
Martin
Lotus NOTES a MAPI
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 4.5.2001 09:06:34
Pro pristup k Outlook jsem pouzil funkce MAPI.
Nevite, prosim, nekdo zda existuji nejake funkce pro napojeni na LOTUS NOTES
?
Mate s tim nekdo zkusenosti?
Jeste jsem nehledal na internetu, tak mi nenadavejte, pokud je o tom hodne
informaci.
pavel.gazda(zv)seznam(tec)cz
Lotus NOTES a MAPI
[*] Ing. Jarom�r Solar <solar(zv)magion(tec)cz> - 4.5.2001 09:09:36
> Nevite, prosim, nekdo zda existuji nejake funkce pro
napojeni na LOTUS NOTES
> ?
> Mate s tim nekdo zkusenosti?
Na torry je soubor ln.zip. Je to mnozina trid pro pripojeni
k Notesovskym databazim. Pouzivaji primo jeho rozhrani
(prepis z Ceckovskych hlavickovych souboru). A dokonce to i
funguje.
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
MAGION system a.s. (http://www.magion(tec)cz)
tel./fax :0657/614 289
sit a W2000
[*] Miroslav Hostinsk� <miroslav.hostinsky(zv)worldonline(tec)cz> - 4.5.2001 09:19:36
D4
program bezi na W98 a server IB6 na W2000
vsechno bezi normalne, po skonceni smeny vypnou PC s W98 a jdou domu.
server bezi dal. Rano spusti PC s w98 a program jiz nejde spustit, protoze
nefunguje sit.
Teprve kdyz restartuji server vse zase bezi normalne.
Po celodennim testovani jsme chybu nenasli
Program spolehlive funguje u mnoha jinych zakazniku
Dekuji za kazdou radu.
Mira
SUBST
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 4.5.2001 09:31:54
DDV,
alespon na WinNT (2000) necekane prikazem subst, jak na wir9x/Millenium to
nevim. Ze sveho programu pouzij subst ShellExecute(), nebo CreateProcess().
a.
P.S.: Taky mne prekvapilo, kdyz jsem na WinNT tento prikaz nasel.
Mimochodem, rad jej pouzivam.
-----------------------------------------------------------------------
Ales Zeleny (OK1UUE)
Ceska sporitelna a.s.
Bubenska 1
170 00 Praha 7
Email: azeleny(zv)csas(tec)cz
tel: +420 2 66703 306
-----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.
> Ahoj,
> jak muzu vytvorit virtulani disk na urcity adresar ze sveho programu.
> Presne tak, jak to dela DOSovsky SUBST .D modely aut a ovladanie
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 4.5.2001 09:44:34
...A na zobrazeni tlacitka pro ukonceni aplikace pouzij dreveny spalicek,
ktery vyfotis, v pripade nedigit. fotaku oscanujes, upravis v grafickem
editoru, strcis ten obrazek do flashe a vlozit pomoci druheho TWebBrowsera
na formular. :-))
Jinak zajimave ukazky rotace 3D objektu najdes treba tady:
http://perso.wanadoo.fr/thomas.senikies/3D_downloads.htm
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
www.pejasoft.com
----- Original Message -----
> ahoj,
>
> asi je tato rada necekana z DELPHI konference, ale ja bych to
nejjednoduseji
> udelal tak, ze bych si 3D modely aut prevedl do VRML (dost zalezi na tom v
> jakem 3D formatu to ted mas) - prevadet do *.VRL umi treba CorelDRAW, a
ten
> pak zobrazoval v klasickem MS Internet Exploderu, do kteryho si pred tim
> musis stahnout a nainstalovat asi 11MB plugin kterej ti pri nacteni
> jakehokoliv *.VRL zmeni explorer v takovej 3D prochazec (vypada skoro jako
> ten v NFS :-)))
> To cele pak muzes zakomponovat do Delphi treba pomoci komponenty
> TWebBrowser.
>
> Jeden z techto free 3rd party pluginu do exploreru je treba WorldView2.1,
v
> pripade nenalezeni na nejakem vyhledavaci ti muzu zjistit odkud sem ho
> stahl.
>
> M.Jirman
Jak registrovat Windows Commander?
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.5.2001 10:05:51
On 3 May 2001, at 20:24, Miroslav Evj�k wrote:
> Behalf Of brant(zv)dcomm(tec)cz
> Subject: OT: Jak registrovat Windows Commander?
> e.
> Vim, ze existuje nejaka ceska firma, ktera se registraci zahranicniho
> SW zabyva, ale nemuzu si vzpomenout na jmeno. Nevite nekdo?
>
> Zkus www.jimaz(tec)cz, registroval jsem pres ne RAR a jin� ...
Az na vyjimecne pripady pro tuto cestu nevidim zadny duvod. Dnes
neni problem registrovat se primo, a prevest primo i penize. V
podstate jediny duvod pro volbu zprostredkovatele vidim v tom, ze
takovy zprostredkovatel posila vic penez najednou, takze docili
nizsi celkove ceny (to jest za bankovni poplatky, ktere jsou ve
vztahu k cene WC dost vysoke).
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
FileVersion
[*] Tibor Galik <tgalik(zv)usske.sk> - 04.5.2001 10:20:17
Prosim o radu.
Uz sa tu velakrat spominalo ze na ziskanie info o subore sa da pouzit komponenta %subj%.
Ale ako zapisat tieto udaje uz do existujuceho exe file-u?
diky
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)usske.sk
IB : Autoincrement
[*] Miroslav Hro��o���#�,�(�j�Z��3 - 4.5.2001 10:37:46
Nazdar,
Prave sa zoznamujem s IB 6.0 a rad by som sa dozvedel od Vas,
ci IB 6.0 ma nieco podobne, ako je v MSSQL7 Identity .
Inac povedane, ci mozna typ, ktoremu sa automaticky prideluje nasledujuca hodnota. Musi byt ale typu Integer.
Miro.ODBCe
[*] martin.falta(zv)obi.de - 4.5.2001 10:50:26
Ahoj,
mam dve otazky.
1) Odkud se da stahnout ODBCe?
2) Jak se lze pres ODBC pripojit k Access DB, ktera je zaheslovana?
Diky.
Martin
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.vzhled PageControl, TabControl
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 4.5.2001 11:11:53
Ahoj,
potrebuji, aby se zalozky u PageControl zobrazovaly zkosene (= pravidelny
lichobeznik) - tak jak je to napr v ikonkach pro slozku ve W98.
Pomuze nekdo?
Diky Petr
Hookovani klavesnice a CTRL+ALT+DEL
[*] HERO Computers <obchod(zv)hero(tec)cz> - 4.5.2001 11:18:30
Mam nasledujici problem: Hooknul jsem si klavesnici (udelano jako DLL).
Vse funguje OK (po celych Windows), ale v NT nebo Win2000 po stisknuti
CTRL+ALT+DEL se tato funkce vypne a obnovi se az po vyskoceni ze systemoveho
dialogu.
Nejaka rada ?
Diky
Ivs
Modalne okno z formularu volaneho v Threade
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 4.5.2001 11:22:27
> 3) Cestou, ktera by mohla byt schudna, je pouzivani vlaken tak, ze
> hlavni vlakno aplikace nedela nic, jen se stara o zobrazovani
> (synchonize z ostatnich vlaken) a veskere obsluhy buttonku apod. -
> zkratka kod aplikace probiha v jinych vlaknech. To ovsem
Zdar,
pokud vim, tak na tom jsou zalozeny windows. Proste zobrazovani se
serializuje, neni mozno paralelne zobrazovat. Proto Delphi vytvareji ono
skryte neviditelne okno. MFC funguje stejne, pokud vim, je tam jedna smycka
zprav (=> jeden thread), ktera vykresluje GUI...
Ozon
******************************************
* David Mensik
* student of Palacky University
*
* e-mail: mensikd(zv)seznam(tec)cz
* www: http://www.inf.upol(tec)cz/~mensikd
* icq: 19658607
******************************************IB : Autoincrement
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.5.2001 11:37:57
> ci IB 6.0 ma nieco podobne, ako je v MSSQL7 Identity .
ne, primo jako identity ne
> Inac povedane, ci mozna typ, ktoremu sa automaticky
> prideluje nasledujuca hodnota. Musi byt ale typu
> Integer.
ale dela se to pres trigger a generator.
projdi si histori konfery, je tu spousta prikladu
priste pis v txt a ne v HTML.
princip je ten, ze vytvoris polozku typu integer
treba:
KLIC INTEGER;
vytvoris generatoe (priklad je v helpu k IB6)
treba:
CREATE GENERATOR GNR_KLIC;
o v triggeru si do polozky vlozis hodnotu
treba:
CREATE TRIGGER bi_Tabulka FOR Tabulka
BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.Klic IS null) Then
NEW.Klic = GEN_ID(gnr_Klic, 1);
END
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/IB : Autoincrement
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 4.5.2001 11:38:43
Ne, IB ma Generatory, hodnota se prirazuje vetsinou v aplikaci, ale lze ji priradit
i v trigru Before Insert treba takto:
Create Trigger TrGnPanelsInfoid FOR PanelsInfo BEFORE INSERT POSITION 0 AS
BEGIN
IF (new.id IS NULL) THEN new.id=GEN_ID(GenPanelInfoID,1);
END ^
Slavek
> Nazdar,
>
> Prave sa zoznamujem s IB 6.0 a rad by som sa dozvedel od Vas,
> ci IB 6.0 ma nieco podobne, ako je v MSSQL7 Identity .
> Inac povedane, ci mozna typ, ktoremu sa automaticky prideluje nasledujuca hodnota. Musi byt ale typu Integer.
>
> Miro.Opet QReport a tisk na traktor
[*] Zaplik <zaplik(zv)volny(tec)cz> - 4.5.2001 11:48:39
>jiz dlouho se zde mluvi o jehlickove tiskarne, ale nebylo receno o jakou
jehlicku jde. Spousta jehl.
>tiskaren ma primo v sobe nastavenou delku stranky. Zkus si prolistovat
manual, zda na tuto
>jehlicku neni zase nejaka vyjimka.
>A z wordu ta jehlicka tiskne dobre?
Jedna se o ruzne typy Epson-ek a Star-ek. Z ostatnich SW (napr. z Wordu)
tisknou spravne.
Asi se budu muset vice zahloubat do konfikuraci a driveru tiskaren. Netusil
jsem, ze je v driverech takovej binec. Presto dik za pomoc.
Martin Zapletal
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
Rozmer okna pred Maximalizaci/Minimalizaci
[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 4.5.2001 11:53:03
Zkus tohle
type TWindowPlacement = record
length: Integer;
flags: Integer;
showCmd: Integer;
ptMinPosition: TPoint;
ptMaxPosition: TPoint;
rcNormalPosition: TRect;
end;
var WindowPlacement: TWINDOWPLACEMENT;
begin
FillChar(WindowPlacement, SizeOf(WindowPlacement), 0);
WindowPlacement.length := SizeOf(WindowPlacement);
Win32Check(GetWindowPlacement(Handle, (zv)WindowPlacement));
// tady uz pristupujes k prislusnym polozkam, viz. help.
end;
( puvodne od P. Vonese, takze slava opet na jeho hlavu )
Ahoj, Dan
> Dobry den,
> Kde je "schovan" puvodni rozmer okna (formu) pri maximalizaci nebo
> minimalizaci?
> Dekuji
> Zdenek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.243 / Virov� b�ze: 118 - datum vyd�n�: 30.3.2001
Zapis do registru
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 4.5.2001 12:19:54
Ahoj,
pokud zapisuju do registru (stale prepisuju tentyz klic) kazdych 10s treba
rok, ma to nejaky negativni vliv na Windows(9x/NT)? (fragmentace registru ci
buhvicojeste?)
Jde mi o to, jestli takoveto zapisy muzu s klidem posilat do registru, nebo
si mam vytvorit vlastni (ini) soubor.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
Dynamick� tvorba QRLabel
[*] Lauko #tefan <laukosw(zv)naex.sk> - 4.5.2001 12:32:30
Ahoj,
staci to ale vytvaranie nesmie prebiehat v Preview (pri generovani reportu).
Ja som to vyskusal takto...
Na sukromi mail ti to posielam cele.
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
Button1: TButton;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
procedure Button1Click(Sender: TObject);
procedure QRLabel1Print(sender: TObject; var Value: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
QRLabel:TQRLabel;
n:Integer;
begin
For n:= 1 to 5 do
begin
QRLabel:=TQRLabel.Create(Self);
QRLabel.Name:='MojLabel'+IntToStr(n);
QRLabel.Parent:= QRBand1;
QRLabel.Left:=n* QRLabel.Width;
QRLabel.Top:= (n *QRLabel.Height);
QRLabel.OnPrint:=QRLabel1Print;
end;
QuickRep1.Preview;
{Zrusenie QRLabelov}
For n:= 1 to 5 do
begin
QRLabel:=TQRLabel(FindComponent('MojLabel'+IntToStr(n)));
If Assigned(QRLabel) then QRLabel.Free;
end
end;
procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
Value:='Ahoj : '+TComponent(sender).Name;
end;
end.
Lauko.
----- Original Message -----
From: Petr <petr(zv)slunce(tec)cz>
> Toto staci na obycejny Label, ale pro QRLabel ani n�hodou.Pomoooc.
> > pre TControl (a vsetkych potomkov) plati pri vytvarani za behu :
> > cmp:= TControl.Create(Self) - self je Owner (vlastnik) vytvoreneho
objectu
> > (vacsinou TForm).
> > ( Create(Self) prida ho do zoznamu self.Components)
> >
> > cmp.parent:= QRBand1; - parent znamena kde sa ma nakreslit.
> > Parenta mozes menit lubovolne.
> > (prida ho do zoznamu QRBand1.Controls)
> >
> > TQRLabel je potomkom TControl (vzdialenym).
> >
> > Lauko.
> >
> > From: Alexandr �tefek <alex(zv)scova.vabo(tec)cz>
> > > Zkus
> > >
> > > QRLabel00[J].Parent := Self;
> > ****** V tomto pripade sa QRLabel nenakresli vobec. ********
> > >
> > > Alexandr STEFEK
> >
> > > > > Narval jsem do kodu vsechny mozne vlastnosti QRLabelu a porad se
ty
> > > mrchy
> > > > > nechcou ukazat.
> > > > >
> > > > > Predem diky
> > > > >
> > > > > Petr Sadovsky
> > > > >
> > > > > var
> > > > > Form2: TForm2;
> > > > > QRLabel00 : array [0..4] of TQRLabel;
> > > > >
> > > > > implementation
> > > > >
> > > > > procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand; var
> > > PrintBand:
> > > > > Boolean);
> > > > > var j:Integer;
> > > > > Retez:String;
> > > > > begin
> > > > > for j:=4 downto 0 do
> > > > > begin
> > > > > QRLabel00[J]:=TQRLabel.Create(QRBand1);
> > > > > InsertControl(QRlabel00[J]);
> > > > > with QRLabel00[J] do
> > > > > begin
> > > > > Enabled:=True;
> > > > > Left:=10;
> > > > > Top:=10+(J*2);
> > > > > Width:=60;
> > > > > Height:=16;
> > > > > Frame.Color := clBlack;
> > > > > Frame.DrawTop := False;
> > > > > Frame.DrawBottom := False;
> > > > > Frame.DrawLeft := False;
> > > > > Frame.DrawRight := False;
> > > > > Size.Height := 44.97916666666;
> > > > > Size.Left :=-21.1666666666667;
> > > > > Size.Top := 148.166666666667;
> > > > > Size.Width := 272.520833333333;
> > > > > Alignment := taLeftJustify;
> > > > > AlignToBand := False;
> > > > > AutoSize := True;
> > > > > AutoStretch := False;
> > > > > Caption:=' Ty vole !!!';
> > > > > Color := clWhite;
> > > > > Font.Charset := DEFAULT_CHARSET;
> > > > > Font.Color := clWindowText;
> > > > > Font.Height := -12;
> > > > > Font.Name := 'Arial Narrow';
> > > > > Font.Pitch:=fpDefault;
> > > > > Font.Style := [];
> > > > > Font.Size := 15;
> > > > > ParentFont := False;
> > > > > Parent:=QRBand1;
> > > > > Transparent := False;
> > > > > WordWrap := True;
> > > > > Retez:=' Ty vole';
> > > > > // onPrint := QRLabel1Print(QRBand1,Retez);
> > > > > end;
> > > > > // end; // for
> > > > > end;
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> >
> >
>
>
sit a W2000
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 4.5.2001 12:38:51
On 4 May 2001, at 9:19, Miroslav Hostinsk� wrote:
Mozna pricina muze byt uvedeni serveru do sleep modu. Nektere
sitove karty se pak po "oziveni" pocitace nevzpamatuji.
> protoze nefunguje sit. Teprve kdyz restartuji server vse zase bezi
> normalne.
>
Z.Kalhous
Algoritmus pro vyhledani dvojice cisel
[*] <ondra.vosta(zv)centrum(tec)cz> - 04.5.2001 12:51:58
Podle me je nejrychlejsi zpusob(pokud se databaze mest moc casto
nemeni) udelat si k temto bodum tzv. Voronoiho (nejsem si jist,
ze se takhle pise) diagramy. Teoreticky to jsou mnoziny v rovine
prislusne bodum teto roviny a jsou to mnoziny bodu, ktere jsou
tomuto bodu nejblize. Voronoiho diagramy lze vytvorit v linearnim
case (zhruba 5n jestli si to dobre pomatuju) a pak uz by jsi
jenom hledal, do ktere mnoziny dany bod patri. Nevyhoda je, ze
pri kazde zmene databaze mest budes muset diagramy predelavat.
Pokud chces muzu ti poslat nejakou teorii okolo Voronoiho
diagramu. Pis na muj mail ondra.vosta(zv)centrum(tec)cz.
Ondra
______________________________________________________________
> mam tento problem: V databazi (Paradox) mam seznam zemepisnych
souradnic
> a
> seznam odpovidajicich mest. Dostanu zemepisne souradnice a k
nim se ma
> vyhledat nejblizsi mesto. Ma to ovsem byt rychle. Neni problem
databazi
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Hookovani klavesnice a CTRL+ALT+DEL
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 4.5.2001 12:54:05
----- Original Message -----
From: "HERO Computers" <obchod(zv)hero(tec)cz>> Mam nasledujici problem: Hooknul jsem si klavesnici (udelano jako DLL).
> Vse funguje OK (po celych Windows), ale v NT nebo Win2000 po stisknuti
> CTRL+ALT+DEL se tato funkce vypne a obnovi se az po vyskoceni ze
systemoveho
> dialogu.
>
Ahoj.
M$ vsude tvrdi ze CTRL+ALT+DEL VZDY odchytne system, je to proto, aby nejaky
jiny program nemohl po stisku ALT+CTRL+DEL simulovat prihlasovaci dialog a
vyloudit tak z uzivatele heslo.
Ludek
JPEG v databazi
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 4.5.2001 12:58:18
> 1) neni to data-aware (pro prohlizeni), takze musim zakazat prechod na
jiny
> zaznam v dobe, kdy obrazek natahuji a to nekdy trva dlouho, protoze
obrazky
> jsou velke (jednotky MB)
> 2) neumim prerusit nacitani z streamu do image takze to blokuje aplikaci
> 3) prijde mi to v porovani s pouzitim DBImage desne neobratne ( snad jen,
ze
> to akceptuje Drag'n'Drop souboru s obrazkem z exploreru je pekne.
>
> Nemate nekdo nejaky lepsi zpusob, jak z souboru (BMP), clipboardu,
(pripadne
> cteni TIFFu - to vubec nenumim) udelat JPEG a ulozit jej do DB (tady mi to
> pouzivani JpegNeeded() a assignovani Piturtes nevadi a ani mne moc
presuseni
> streamu) ?
>
> Hlavne jak s prohlizenim?
Mel bych alespon namet:
Na adrese http://www.ibaccess.org/download.htm je ke stazeni open source
IBAccess Toni Martira.
Balik obahuje dbaware komponentu, ktera je odvozena stejne jako dbimage.
Navic umi GIF, JPEG a par "drobnosti". Me pomohla.
Ahoj Frantisek Sevcik
Anexis
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.250 / Virov� b�ze: 123 - datum vyd�n�: 18.4.2001
Jak registrovat Windows Commander?
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 4.5.2001 13:02:20
----- Original Message -----
> nejjednodussi je, pokud maji ve firme k uctu EC/MC nebo VISA kartu a
> zaplatit to po inetu kartou.
> Nemyslim si, ze je treba zivit nejake prostredniky. Podle me by to slo i
bez
> karty domluvit se s majitelem licence a pripadne prevest $ z banky do
banky.
Ahoj.
Podle informaci, ktere jsem ziskal, jsou poplatky za prevod mezi ucty mnohem
vyssi nez provize napr. zminovane firmy Jimaz.
Program v cene 25 USD mi zaregistrovali za 1300,- Kc, pritom poplatky za
prevod by byly cca 15 USD !!!
Takze radsi zivit poctive prostredniky, kteri to umeji, nez lichvare v
bance.
Ludek
Rozdily v kompiovanem exe
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 4.5.2001 13:08:05
----- Original Message -----
From: "Martin Dietl" <dietl(zv)4use(tec)cz>
> > Jeste mne napada:
> > -co treba version info & automaticka inkrementace buildu?
>
> Ahoj,
> automaticka inkrementace je vypnuta, version info nezmeneno.
> Ucelem je provest porovnani shodnosti mezi exacem zkompilovanym z WORKING
> DIRECTORY a exacem ze zdrojaku ziskanych po naslednem CheckIn do VSS a
potom
> GetLatestVersion - tedy dvojita kontrola:
> a) ve VSS je to co tam ma byt
> b) klientovi se dodava stejny exe ktery byl otestovan.
>
Ahoj
Nebylo by tedy jednodussi tu aut. inkrementaci buildu zapnout a porovnavat
verzi ?
Proto to snad je a ja to s uspechem pouzivam.
Ludek
Opet QReport a tisk na traktor
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 4.5.2001 12:56:53
Pokud ta tiskarna strankuje z Wordu dobre, znamena to ze je skutecne chyba v
QReportu. Moznosti jak tyto problemy obejit je nekolik. Koupit QR a ve
zdrojacich si to opravit. Nebo pokud nepotrebujete mit aplikaci jako .BPL,
staci poupravit unitu Printers, konkretne metodu NewPage. QuickReport tuto
metodu vola behem tisku, pri prechodu na novou stranku. Staci jen do NewPage
prihodit kod, ktery nastavi format papiru na A4, Letter, Fanfold dle
potreby. Presny kod najdete v knize Mistrovstvi v Delphi 3 nebo 4.
Marian Jonas
-----Original Message-----
From: Pavel ZIDEK [mailto:delphi(zv)kopr(tec)cz]
Sent: Friday, May 04, 2001 8:21 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Opet QReport a tisk na traktor
Zdravim,
jiz dlouho se zde mluvi o jehlickove tiskarne, ale nebylo receno o jakou
jehlicku jde. Spousta jehl. tiskaren ma primo v sobe nastavenou delku
stranky. Zkus si prolistovat manual, zda na tuto jehlicku neni zase nejaka
vyjimka.
A z wordu ta jehlicka tiskne dobre?
Pavel
----- Original Message -----
From: Zaplik
To: Delphi Konference
Sent: Friday, May 04, 2001 7:04 AM
Subject: Opet QReport a tisk na traktor
Dobry den
Prochazel jsem konferenci, ale nikde jsem nenasel odpoved na to, jak donutit
jehlickovou tiskarnu tisknout spravne stranky. Neco podobneho se tady
probiralo, ale bez nejakeho vysledku. I kdyz se snazim v qrep nastavit delko
papiru na 305mm,custom, tak se nic nestane. Pokazde je dalsi stranka
posunuta cca o 1cm.
Poradte prosim. D5profi, QRep 3.0, W2000, Epson
p.s. nevite nekdo jak pri exportu Qrep do txt, html , rtf zabezpecit aby se
jednotliva pole neprekryvala a nabyla pohazena?
Martin Zapletal
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
Zavedeni COM objektu do pameti
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 4.5.2001 14:00:59
A ten COM mas v EXE(single/multi)/DLL ?
----- Original Message -----
From: "Petr Reichl" <p.reichl(zv)gmc.net>
To: "ListServ - Delphi (el. adresa)" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 27, 2001 2:22 PM
Subject: Zavedeni COM objektu do pameti
> Zdravim,
>
> u klasicke DLL lze odchytit, kdyz si DLLku atachne nejaky process. Lze toto
> udelat i COMu?
>
> U klasicke DLL se dela neco takoveho:
>
> -- [ Code ] --
> procedure DLLEntryPoint(dwReason: Dword);
> begin
> case dwReason of
> DLL_PROCESS_ATTACH: ShowMessage('Start');
> end;
> end;
> -- [ Code ] --
>
> ... u COMu to ale nefunguje. Muzete mi poradit jak na to?
>
> S pozdravem,
>
> Petr Reichl
Dynamick� tvorba QRLabel
[*] Petr <petr(zv)slunce(tec)cz> - 4.5.2001 14:02:02
Ahoj,
takze jsem zapomnel na property Name. Jsem oc..
Diky moc.
Petr Sadovsky
----- Original Message -----
From: Lauko �tefan <laukosw(zv)naex.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 04, 2001 12:32 PM
Subject: RE: Dynamick� tvorba QRLabel
> Ahoj,
> staci to ale vytvaranie nesmie prebiehat v Preview (pri generovani
reportu).
> Ja som to vyskusal takto...
> Na sukromi mail ti to posielam cele.
>
> type
> TForm1 = class(TForm)
> QuickRep1: TQuickRep;
> Button1: TButton;
> QRBand1: TQRBand;
> QRLabel1: TQRLabel;
> procedure Button1Click(Sender: TObject);
> procedure QRLabel1Print(sender: TObject; var Value: String);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> QRLabel:TQRLabel;
> n:Integer;
> begin
> For n:= 1 to 5 do
> begin
> QRLabel:=TQRLabel.Create(Self);
> QRLabel.Name:='MojLabel'+IntToStr(n);
> QRLabel.Parent:= QRBand1;
> QRLabel.Left:=n* QRLabel.Width;
> QRLabel.Top:= (n *QRLabel.Height);
> QRLabel.OnPrint:=QRLabel1Print;
> end;
>
> QuickRep1.Preview;
>
> {Zrusenie QRLabelov}
> For n:= 1 to 5 do
> begin
> QRLabel:=TQRLabel(FindComponent('MojLabel'+IntToStr(n)));
> If Assigned(QRLabel) then QRLabel.Free;
> end
>
> end;
>
> procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
> begin
> Value:='Ahoj : '+TComponent(sender).Name;
> end;
>
> end.
> Lauko.
>
> ----- Original Message -----
> From: Petr <petr(zv)slunce(tec)cz>
>
> > Toto staci na obycejny Label, ale pro QRLabel ani n�hodou.Pomoooc.
>
> > > pre TControl (a vsetkych potomkov) plati pri vytvarani za behu :
> > > cmp:= TControl.Create(Self) - self je Owner (vlastnik) vytvoreneho
> objectu
> > > (vacsinou TForm).
> > > ( Create(Self) prida ho do zoznamu self.Components)
> > >
> > > cmp.parent:= QRBand1; - parent znamena kde sa ma nakreslit.
> > > Parenta mozes menit lubovolne.
> > > (prida ho do zoznamu QRBand1.Controls)
> > >
> > > TQRLabel je potomkom TControl (vzdialenym).
> > >
> > > Lauko.
> > >
> > > From: Alexandr �tefek <alex(zv)scova.vabo(tec)cz>
> > > > Zkus
> > > >
> > > > QRLabel00[J].Parent := Self;
> > > ****** V tomto pripade sa QRLabel nenakresli vobec. ********
> > > >
> > > > Alexandr STEFEK
> > >
> > > > > > Narval jsem do kodu vsechny mozne vlastnosti QRLabelu a porad se
> ty
> > > > mrchy
> > > > > > nechcou ukazat.
> > > > > >
> > > > > > Predem diky
> > > > > >
> > > > > > Petr Sadovsky
> > > > > >
> > > > > > var
> > > > > > Form2: TForm2;
> > > > > > QRLabel00 : array [0..4] of TQRLabel;
> > > > > >
> > > > > > implementation
> > > > > >
> > > > > > procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand; var
> > > > PrintBand:
> > > > > > Boolean);
> > > > > > var j:Integer;
> > > > > > Retez:String;
> > > > > > begin
> > > > > > for j:=4 downto 0 do
> > > > > > begin
> > > > > > QRLabel00[J]:=TQRLabel.Create(QRBand1);
> > > > > > InsertControl(QRlabel00[J]);
> > > > > > with QRLabel00[J] do
> > > > > > begin
> > > > > > Enabled:=True;
> > > > > > Left:=10;
> > > > > > Top:=10+(J*2);
> > > > > > Width:=60;
> > > > > > Height:=16;
> > > > > > Frame.Color := clBlack;
> > > > > > Frame.DrawTop := False;
> > > > > > Frame.DrawBottom := False;
> > > > > > Frame.DrawLeft := False;
> > > > > > Frame.DrawRight := False;
> > > > > > Size.Height := 44.97916666666;
> > > > > > Size.Left :=-21.1666666666667;
> > > > > > Size.Top := 148.166666666667;
> > > > > > Size.Width := 272.520833333333;
> > > > > > Alignment := taLeftJustify;
> > > > > > AlignToBand := False;
> > > > > > AutoSize := True;
> > > > > > AutoStretch := False;
> > > > > > Caption:=' Ty vole !!!';
> > > > > > Color := clWhite;
> > > > > > Font.Charset := DEFAULT_CHARSET;
> > > > > > Font.Color := clWindowText;
> > > > > > Font.Height := -12;
> > > > > > Font.Name := 'Arial Narrow';
> > > > > > Font.Pitch:=fpDefault;
> > > > > > Font.Style := [];
> > > > > > Font.Size := 15;
> > > > > > ParentFont := False;
> > > > > > Parent:=QRBand1;
> > > > > > Transparent := False;
> > > > > > WordWrap := True;
> > > > > > Retez:=' Ty vole';
> > > > > > // onPrint := QRLabel1Print(QRBand1,Retez);
> > > > > > end;
> > > > > > // end; // for
> > > > > > end;
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
> >
>
>
Jak na Wave data?
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 4.5.2001 14:13:58
Zdravim,
potreboval bych zjistit, jakym nejjednodussim zpusobem vycitat data z *.WAV
souboru, pripadne i jinych zvukovych formatu (napr. MP3, ....) bez toho,
abych musel znat strukturu hlavicky techto souboru - jen abych cetl hodnoty
jednotlivych samplu. Nejde mi o prehravani ale pouze o zobrazeni, pripadne
nejakou statistiku.... Pomuze mi nekdo?
Zdenek Adler
COM objekt
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 4.5.2001 14:15:43
Ahoj,
zkousel jsem udelat jednoduchou aplikaci - form, na nem 2
buttony. Jeden button pres OLE zavola Word, druhy button Excel.
Funguje to bez problemu. Vec, ktera se mi libi, je, ze pokud ve
Wordu vznikne modalni okno, je modalni pouze v ramci toho wordu,
tj. s Excelem i svou aplikaci mohu i pri tom normalne pracovat.
Presne to potrebuji.
Nyni bych chtel takto napsat vlastni COM objekt - aplikaci
ovladanou pres COM z jine sve aplikace. Jsem v teto oblasti uplny
zacatecnik, a proto prosim o par rad:
1) Lze tu aplikaci umistit do in-proc serveru (DLL), nebo to musi byt
exe? (Jde mi o tohle - bude-li to in-proc server, bude mit vlastni
obsluhu smycky zprav, tj. bude tam modalita pouze v ramci toho
COM objektu?)
2) Vite o nejake dobre literature, kde by bylo primerene podrobne a
srozumitelne popsano tema COM a Delphi5? Mam Mistrovstvi v
D3, ale to neni moc pouzitelne.
Diky.
David Lebeda
Prenos DAT ale teraz po LPT1 ako NC50
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 4.5.2001 14:24:32
Univerzalni komponenta asi neexistuje, jelikoz LPT neni zas tak
uplne univerzalni rozhrani.
Podle zapojeni kabelu muzes mit ruzne typy komunikace, to je ale
zavisle i na pouzitem portu, ne kazdy LPT port podporuje vse a take
je to velmi spatne zdokumentovano.
Zde jsou zakladni rezimy:
1. SPP jednosmerny
2. SPP obousmerny
3. EPP obousmerny
4. ECP obousmerny s DMA
Pod Win9x muzes pritupovat primo na adresy, pod WinNT si musis
naprogramovat, nebo nekde sehnat driver.
Pokud budes mit zajem muzu ti na tvuj soukromi mail poslat
zdrojak ze stareho pascalu, ktery umel komunikavat v nibble mode
pres LPT rychloti cca 75KB/sec.
Slavek
>
> Potrebujem komponentu na prenos dat po paralelnom porte, bracho si kupil
> NOTEBOOK a nechce sa mu kopirovat data cez disketu tak som mu navrhol ze mu
> to naprogramujem. Tu na COM1 uz mam ;-)
>
> P.S. Viete nemam co momentalne na praci :)D modely aut a ovladanie
[*] Delphi <delphi(zv)minv.sk> - 4.5.2001 14:29:47
OpenGL alebo D3D?? Na to nie su komponenty ako take, musis si to spravit sam
, ale
v podstate to nie je az taky problem, ak to xes cez OpenGl, je to na mesiac
studia a D3D tak
na pol roka, ale otacat autickom je ak si uplny zaciatocnik na 2-3 dni....a
ak ti staci
to len otacat a nepotrebujes zdrojak, tak ti to nakodim za hodinku :)))
Werki
> Mam k vam jednu prosbu.Potrebujem len trosku postrcit.Potrebujem spravit 3
D
> model auta,ktory sa da priblizovat,oddalovat presne tak ako je v hre Need
> for speed 5. To by nebolo ani tak dolezite ale ako by som mohol kurzorom
> mysi menit,otvorit alebo otacat objektom....
> Nemate niekto komponenty na tieto veci.
> Dakujem moc by ste mi pomohli.....
>
> Lubos
>
>Prenos DAT ale teraz po LPT1 ako NC50
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 4.5.2001 14:56:34
Lze je propojit paralelnim kabelem i v DOSU pomoci Lablinc a vypada to jako
nasdilene
> Windows Commander podporuje >
> D. Toman
Prenos DAT ale teraz po LPT1 ako NC50
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.5.2001 14:58:07
Windows Commander podporuje prenosy po LPT (netestoval jsem) - pokud to
chodi je to nejsnazsi varianta
D. Toman
FileVersion
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.5.2001 15:01:57
On 4 May 2001, at 10:20, Tibor Galik wrote:
> Uz sa tu velakrat spominalo ze na ziskanie info o subore sa da pouzit
> komponenta %subj%. Ale ako zapisat tieto udaje uz do existujuceho exe
> file-u?
Mam obavu, ze na to zadne specialni funkce nejsou. Ale lze to
udelat tak, ze vyjmes resource s VersionInfo, predelas si ho, a pak
ho soupnes zpatky. Preji peknou zabavu. :-))
Pokud chces jenom zmenit jiz existujici textove polozky, pak si
porid Jazykovy Lokalizator.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Rozdily v kompiovanem exe
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 4.5.2001 15:24:41
> On Behalf Of Lud�k ZITA
> Nebylo by tedy jednodussi tu aut. inkrementaci buildu zapnout a porovnavat
> verzi ?
Kdyz ono je ale s klientem dohodnuto, ze na poslednim miste budou cislovane
RELEASE.
Tim ale nezabranim tomu, ze provedu CheckIn na neco jineho nez chci a ani to
nezjistim.
Vlastni zkusenost - do VSS se nam podarilo naimportovat jinou knihovna
konstant (z chybneho adresare), prislo se na to az u klienta :-(
SUBST
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 4.5.2001 16:00:12
Ahoj
### Zelen� Ale# napsal dne 4 May 01, v 9:31 :
> alespon na WinNT (2000) necekane prikazem subst, jak na wir9x/Millenium to
Na Win9x to funguje taky.
> nevim. Ze sveho programu pouzij subst ShellExecute(), nebo
> CreateProcess().
>
> > jak muzu vytvorit virtulani disk na urcity adresar ze sveho programu.
> > Presne tak, jak to dela DOSovsky SUBST .
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
IB : Autoincrement
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 4.5.2001 16:15:52
Ahoj,
nekdo tu radil generator + trigger, ja jen upozornuji na problemy s
pripadnymi exporty a doporucuji generator + ulozena procedura. Jinak viz
archiv..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
Nazdar,
Prave sa zoznamujem s IB 6.0 a rad by som sa dozvedel od Vas,
ci IB 6.0 ma nieco podobne, ako je v MSSQL7 Identity .
Inac povedane, ci mozna typ, ktoremu sa automaticky prideluje nasledujuca
hodnota. Musi byt ale typu Integer.
Miro.
Co je $EXTERNALSYM ??
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 4.5.2001 17:07:03
Zdravim vsechny,
muze mi prosim nekdo nejak lidsky vysvetlit co znamena direktiva
$EXTERNALSYM. Z Delphi helpu jsem to nejak nemohl pochopit.
diky
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
OT: Delphi aplikace a Intranet
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 4.5.2001 21:50:14
Ahoj Delphaci,
1) mam takovy problem: Chtel bych spoustet Delphi aplikaci - i kdyz ono je
to v podstate jedno, co je to za App - ze stranky firemniho Intranetu.
Samozrejme se zobrazi hlaska, jestli chci App spustit nebo stahnout. To je
jeden dialog a druhy je, ze tato App neni "podepsana", jestli ji chci
opravdu spustit. Ptam se: da se nejak - zase pomoci nejake aplikace v
Delphi5 - naridit vzdalenemu PC na siti, aby tuto App spustil bez techto
dialogu?
2) Je to asi hloupost, ale nikde v helpu jsem to nenasel: jak predam fokus
jiz bezici aplikaci, kdyz znam jeji handle?
predem diky
Mirek Drancak
Delphi aplikace a Intranet
[*] Hurricane <hurricane(zv)quick(tec)cz> - 4.5.2001 23:11:14
Zdravim
ad1) Nejde, jeda ze bys objevil dost podstatnou bezpecnostni diru v IE.
Dialog o nepodepsanem souboru lze odstranit jednoduse v nastaveni
zabezpeceni, ale ten druhy asi ne. I kdyz, ted jsem koukal do nastaveni
urovni zabezepeceni v IE. Kdybys intranetu nastavil vlastni uroven, podle
napovedy, ktera tam byla by to mozna melo jit. Vyzkousej to. Ale ja jsem uz
X-krat slysel, ze to zadnym zpusobem obejit nelze. Potom by to byla idealni
dira pro viry.
ad2) SetFocus na to nejde?
Hurricane
----- Original Message -----
> 1) mam takovy problem: Chtel bych spoustet Delphi aplikaci - i kdyz ono je
> to v podstate jedno, co je to za App - ze stranky firemniho Intranetu.
> Samozrejme se zobrazi hlaska, jestli chci App spustit nebo stahnout. To je
> jeden dialog a druhy je, ze tato App neni "podepsana", jestli ji chci
> opravdu spustit. Ptam se: da se nejak - zase pomoci nejake aplikace v
> Delphi5 - naridit vzdalenemu PC na siti, aby tuto App spustil bez techto
> dialogu?
>
> 2) Je to asi hloupost, ale nikde v helpu jsem to nenasel: jak predam fokus
> jiz bezici aplikaci, kdyz znam jeji handle?Zobrazeni aplikace na TaskBar
[*] Petr Cafourek <cafi(zv)atlas(tec)cz> - 5.5.2001 03:39:06
Zdravim.
Udelal jsem si takovou malou aplikaci s hodinami a datem, aby
se mi zobrazovali primo v oblasti plochy, ale potreboval bych nejak
udelat, aby se mi to nezobrazovalo jako spustena aplikace na TaskBar.
Nemate nekdo nejaky napad jak to spachat?
Predem moc dekuji.
QReport nebo SINEA?
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 5.5.2001 08:30:01
> D5/Profi(SP1),W2000
> Stojim pred problemem jaky nastroj pouzit pro generovani
> tiskovych sestav.
> Doposud jsem pouzival QReport 3.0 , ale narazil jsem na jeho obrovskou
> pomalost. Sineu neznam a tak se ptam. QReport, Sinea nebo
Pouzivam QR ve spojeni QRDesing a PSQRFilter jiz dva roky a jsem
spokojen. Samozrejme ze ma sve mouchy, ale co nema. Zatim jsem nenarazil
na problem, ze bych nemohl vytvorit sestavu podle svych predstav.
Jir Fait
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.249 / Virov� b�ze: 122 - datum vyd�n�: 13.4.2001
sit a W2000
[*] JIM Design <jim.design(zv)iol(tec)cz> - 5.5.2001 13:18:50
ahoj,
a vyplnujou pri spousteni tech Win98 jmeno a heslo do site?
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Miroslav Hostinsk�
Sent: Friday, May 04, 2001 9:20 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: sit a W2000
D4
program bezi na W98 a server IB6 na W2000
vsechno bezi normalne, po skonceni smeny vypnou PC s W98 a jdou domu.
server bezi dal. Rano spusti PC s w98 a program jiz nejde spustit, protoze
nefunguje sit.
Teprve kdyz restartuji server vse zase bezi normalne.
Po celodennim testovani jsme chybu nenasli
Program spolehlive funguje u mnoha jinych zakazniku
Dekuji za kazdou radu.
Mira
Modalne okno z formularu volaneho v Threade
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 5.5.2001 13:33:54
Zdravim,
----- Original Message -----
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 04, 2001 8:36 AM
Subject: Re: Modalne okno z formularu volaneho v Threade
> Muj vyzkum se ted bude ubirat asi k COM (out of process server),
> tj. modul, v nemz se muze vyskytnout modalni okno, by byl
> samostany exe (COM server) a jadro aplikace by ho ovladalo coby
> COM. Verim, ze takto by se "lokalne modalni okna" dala pouzivat,
> a to normalne (ShowModal bez uprav klasicky - modalni v ramci
> sveho exe). V tuto chvili nemam nejmensi tuseni, zda je ta cesta
> schudna ci ne.
>
> David Lebeda
Ja vyzkum provadim v oblasti tesne vedle. Jde mi o to, aby aplikace mohla
mit vice formu s tlacitkem na taskbaru podobne jako treba Office 2000,
samozrejme taky s modalnimi okny-tedy lokalne modalnimi, jak jsi je nazval.
Moje zkusenosti jsou vynikaj�c�. Jde preci o samostatne aplikace takze
modalni okno je pouze v ramci te COM aplikace. Je treba ovsem uvazovat
"multiaplikacne", tzn., ze prenos dat mezi aplikacemi je trochu omezen: v
ramci OLE datovych typu. Tedy zadne tridy, pole, pointery apod. Jako pole
lze pouzit variant array, zkratka jde o COM objekty. Pozor na thread-modely
u tech COMu.
Hodne zdaru a dej vedet jak pokracujes.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Jako odchytit zavirami aplikace COM objektu z task
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 5.5.2001 13:54:44
Zdravim vsechny,
nevite nekdo jak odchytit zadost o zavreni aplikace, kdyz uzivatel klepne
pravym tlacitkem na tlacitko v Taskbaru a pres popup menu vybere "x Zavrit".
Uz mam odchyceno zavreni hlavniho okna aplikace: tam je to wm_syscommand s
parametrem sc_close.
Pokud to neodchytim, pak se objevi znama hlaska o tom, ze aplikace obsahuje
aktivni COM objekty na ktere existuji reference z klientskych aplikaci.
diky za jakykoliv namet na reseni
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
OT : To Lukas Gebauer /SynaSer/
[*] tomsir1.edu(zv)mail.cez(tec)cz - 5.5.2001 15:50:29
Dobry den, pokusil jsem se pouzit vasi unitu, ovsem objevil se problemek
ve funkci /predpokladam ze to bude stejne i v dalsich/ :
function TBlockSerial.SendBuffer(buffer:pointer;length:integer):integer;
var
x:integer;
begin
x:=integer(WriteFile(Fhandle,buffer^,length,result,nil));
serialcheck(x);
ExceptCheck;
end;
Zde mi kompiler nechce sezrat v radku x:=integer(WriteFile(Fhandle,buffer^,length,result,nil)); to nil na konci, krici,
ze typ aktualniho a formalniho parametru musi byt identicky .. tj. POverlapped ...
delam nekde chybu ?? jak to obejit ??
diky Radek
Zjisteni vsech Form v projektu
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 5.5.2001 13:24:35 -0400
Zdravim,
jak mohu v run-time zjistit jake vsechny Formy mam v projektu. Konkretne
treba potrebuji zmenit u vsech caption na neco, takze abych je nekde dostal a
mohl s nimi pracovat.
Dekuji
Petr
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
sit a W2000
[*] Miroslav Hostinsk� <miroslav.hostinsky(zv)worldonline(tec)cz> - 5.5.2001 20:12:55
> ahoj,
>
> a vyplnujou pri spousteni tech Win98 jmeno a heslo do site?
>
> M.Jirman
Nevyplnujou, maji nastaveno prihlaseni do windows
S pozdravem
Hostinsky Miroslav,
Zobrazeni aplikace na TaskBar
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 5.5.2001 22:41:25
----- Original Message -----
From: "Petr Cafourek" <cafi(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, May 05, 2001 3:39 AM
Subject: Zobrazeni aplikace na TaskBar
> Zdravim.
> Udelal jsem si takovou malou aplikaci s hodinami a datem, aby
> se mi zobrazovali primo v oblasti plochy, ale potreboval bych nejak
> udelat, aby se mi to nezobrazovalo jako spustena aplikace na TaskBar.
> Nemate nekdo nejaky napad jak to spachat?
> Predem moc dekuji.
>
ShowWindow(application.handle, SW_HIDE);
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Prenos DAT ale teraz po LPT1 ako NC50
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.5.2001 23:01:33
> Lze je propojit paralelnim kabelem i v DOSU pomoci Lablinc a vypada to jako
> nasdilene
Nic co se jmenuje Lablinc jsem na Inetu nenasel - neni to preklep? ZAjima me to proto, ze jsem kdysi taky psal neco takoveho (peer-to-peer sit pod DOSem s moznosti sdileni disku a tiskaren pomoci seriaku i LPT, pricemz server nebyl dedikovany a oba PC si mohly sdilet prostredky navzajem) viz:
http://www.fortech(tec)cz/connect2.htm
D> Toman
sit a W2000
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 6.5.2001 06:19:26
> vsechno bezi normalne, po skonceni smeny vypnou PC s W98 a jdou domu.
> server bezi dal. Rano spusti PC s w98 a program jiz nejde
> spustit, protoze
> nefunguje sit.
> Teprve kdyz restartuji server vse zase bezi normalne.
>
> Po celodennim testovani jsme chybu nenasli
> Program spolehlive funguje u mnoha jinych zakazniku
> Dekuji za kazdou radu.
>
Setkal jsem se z podobnou situaci. Po nastartovani PC, vcetne zadani
hesla nebyly pripojene sitove disky k dispozici. Pokud se na ne ale v
prozkumniku kleplo, sitove propojeni se objevilo. Nastaveni site bylo
pritom v poradku (bylo zapnuto obnoveni sitovych propojeni po startu).
Nejprve jsme to resili tim, ze jsme dali na plochu zastupce sitoveho
disku a uzivatele poucili o tom, ze ma po startu pc "zkontrolovat sit"
tim ze dvakrat kliknul na toho zastupce. Pozdeji jsme museli z nejakeho
duvodu reinstalovat Windows a po teto reinstalaci se to chovalo uz
normalne, cili spravne a zastupce jsme tam nedavali.
Jelikoz jsme neodhalili pravou pricinu predchoziho chovani, tipuji ale
ze by snad pomohlo odinstalovani site a nova jeji instalace.
S pozdravem
Jiri Fait
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.249 / Virov� b�ze: 122 - datum vyd�n�: 13.4.2001
Prenos DAT ale teraz po LPT1 ako NC50
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 6.5.2001 06:27:56
sorry preklep....
Je to soucast� DOSU.
Pouz�v�m to zr�dka, ale jsou to dva exe jeden je interlink, a druhy
Interserv
do ovladaciho poc. jsem dal toto do config.sys. ...
rem DEVICE=c:\dos\interlnk.exe/lpt1
odremujes a restartujes.
druhej fachal se bootuje z diskety na ktere mas jen system a probram
Intersrv.exe (tu disketu ted nemuzu najit takze to neni na 100% ... ale oba
soubory jsou soucasti MSDOS 5
adresar dos asi neni na w masin�ch, kdyztak muzu ty dva exe poslat na email.
> Nic co se jmenuje Lablinc jsem na Inetu nenasel - neni to preklep
> Toman
sit a W2000
[*] <jan.navratil(zv)email(tec)cz> - 6.5.2001 13:20:08
S identickym problemem jsem se potykal pred ctvrt rokem. Predpokladam, ze
sit je realizovana prekrizenou dvoulinkou (tj. 2xPC) resp. koax. BEZ aktivnich
prvku.
Problem je v nastaveni ovladace sitovky (v mem pripade 3Com), ktery je defautne
prilis chytry -automaticky vypne sitovku, pokud neni pouzivana (tj. napr.
kdyz zustane server na siti sam).
No a W2K reaguji na odpojeni sitovky tak, ze automaticky vypnou veskere sitove
sluzby (tj. na serveru v tu chvili prestanou fungovat i sitove protokoly).
Reseni je bud zmenit nastaveni ovladace sitovky (1x checkbox) nebo pripojit
server na aktivni prvek.
Jan Navratil
> --- P�vodn� zpr�va ---
> Od: "FAIT_Ji��,_ml." <fait(zv)jakl(tec)cz>
> Datum: 06.05.2001 08:06:43
>
> > vsechno bezi normalne, po skonceni smeny vypnou PC s W98 a jdou domu.
> > server bezi dal. Rano spusti PC s w98 a program jiz nejde
> > spustit, protoze
> > nefunguje sit.
> > Teprve kdyz restartuji server vse zase bezi normalne.
> >
> > Po celodennim testovani jsme chybu nenasli
> > Program spolehlive funguje u mnoha jinych zakazniku
> > Dekuji za kazdou radu.
> >
>
> Setkal jsem se z podobnou situaci. Po nastartovani PC, vcetne zadani
> hesla nebyly pripojene sitove disky k dispozici. Pokud se na ne ale v
> prozkumniku kleplo, sitove propojeni se objevilo. Nastaveni site bylo
> pritom v poradku (bylo zapnuto obnoveni sitovych propojeni po startu).
> Nejprve jsme to resili tim, ze jsme dali na plochu zastupce sitoveho
> disku a uzivatele poucili o tom, ze ma po startu pc "zkontrolovat sit"
> tim ze dvakrat kliknul na toho zastupce. Pozdeji jsme museli z nejakeho
> duvodu reinstalovat Windows a po teto reinstalaci se to chovalo uz
> normalne, cili spravne a zastupce jsme tam nedavali.
> Jelikoz jsme neodhalili pravou pricinu predchoziho chovani, tipuji ale
> ze by snad pomohlo odinstalovani site a nova jeji instalace.
>
>
> S pozdravem
> Jiri Fait
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.249 / Virov� b�ze: 122 - datum vyd�n�: 13.4.2001
>
---
EMAIL.CZ - Vase posta je vzdy s Vami
http://www.email(tec)cz
Delphi a format MPG
[*] Jirka Borovy <jborovy(zv)atlas(tec)cz> - 6.5.2001 14:22:06
Shanim nejakou komponentu pro Delphi 5.0, abych mohl s ni spoustet videa ve formatu MPG
(nasel jsem MP3, ale ne MPG)
Dekuju za odpoved
SIMCA
**********************
Simca - Jirka Borovy - simca(zv)nhl(tec)cz - ms2001(zv)zde(tec)cz
ICQ - 66436984
www.volny(tec)cz/borovy - www.melies(tec)cz
http://extraliga.game.site(tec)cz, http://ms2001.zde(tec)cz
Prenos DAT ale teraz po LPT1 ako NC50
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 6.5.2001 16:49:07
> > Nic co se jmenuje Lablinc jsem na Inetu nenasel - neni to preklep
> > Toman
Ahoj,
pravdepodobne slo o Laplink. Ten se pouzival na propojeni dvou pocitacu bud
prekrizenym seriovym kabelem pres COM, nebo pomoci specialniho kabelu pres
LPT.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
MediaPlayer z ActiveX
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 6.5.2001 18:17:11
Dobry den,
udelaj jsem import MediaPlayer z ActiveX, ale nejsem schopen zjistit jak
nacist kolik frame ma byt za sekundu.
Pradte, prosim,
Zdenek
Prosba o radu Mam tiskarnu Minolta 1100 (ne L)
[*] Josef K�n <jkyn(zv)iol(tec)cz> - 6.5.2001 20:04:48
-----Original Message-----
From: Josef K�n [mailto:jkyn(zv)iol(tec)cz]
Sent: Sunday, May 06, 2001 8:01 PM
To: delphi-l-owner(zv)clexpert(tec)cz
Subject: FW: Prosba o radu Mam tiskarnu Minolta 1100 (ne L)
-----Original Message-----
From: Joky [mailto:joky(zv)centrum(tec)cz]
Sent: Sunday, May 06, 2001 7:47 PM
To: delphi-l-owner(zv)clexpert(tec)cz
Subject: Prosba o radu Mam tiskarnu Minolta 1100 (ne L)
Mam program fakturacniho sevisu ze ktereho tisknu ale jen nektere sestavy
se vytisknou na tiskarne u� jse vyskou#el i vitvo�it nov� program a nejedeto
mam nahrano Qreport 3.0.7 d�kuji za ka�d� podn�t zofal� Josef K�n
OT : To Lukas Gebauer /SynaSer/
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.5.2001 20:48:29
Zkus to upravit tak, abys misto 'WriteFile' volal 'windows.WriteFile'
:-)
Lukas.
>
> Dobry den, pokusil jsem se pouzit vasi unitu, ovsem objevil se
> problemek ve funkci /predpokladam ze to bude stejne i v dalsich/ :
>
> function
> TBlockSerial.SendBuffer(buffer:pointer;length:integer):integer; var
> x:integer;
> begin
> x:=integer(WriteFile(Fhandle,buffer^,length,result,nil));
> serialcheck(x);
> ExceptCheck;
> end;
>
> Zde mi kompiler nechce sezrat v radku
> x:=integer(WriteFile(Fhandle,buffer^,length,result,nil)); to nil na
> konci, krici, ze typ aktualniho a formalniho parametru musi byt
> identicky .. tj. POverlapped ...
>
> delam nekde chybu ?? jak to obejit ??
>
> diky Radek
>
>
>
>
Automatick� tisk do souboru
[*] Jirka Virt <virt(zv)volny(tec)cz> - 6.5.2001 21:41:17
Ahoj,
Na to aby se tiskarna neptala na nazev souboru staci u ni na zalozce
Podrobnosti - Pridat port,
zaskrtnout Jine pak OK a do editu napsat treba c:\uloha.prn.A kazda uloha
zde bude ulozena.
Pak budes muset ovsem odchytavat tyto soubory, protoze bude nasledujici
ulohou prepsan.
Kdyby jsi neco potreboval, presne toto jsem delal.
Mam udelany programek , ktery hlida tiskouvou frontu a pri zjisteni jakekoli
ulohy nebo vice uloh
je postupne uklada na disk a ty pak konvertuje a posila je postupne na jinou
tiskarnu nebo primo do LPT portu.(Potreboval jsem konverovat ESCape
znaky).Misto teto konverze, by mohl ukladat tyto soubory pod jedinecnym
nazvem?
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Zden�k Adler <zdeneka(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 03, 2001 8:06 AM
Subject: Re: Automatick� tisk do souboru
> Mozna by stalo za to napsat programek, ktery bude zachytavat data zasilana
> na port tiskarny, pripadne ktery by je jeste dokazal vytahnout z fronty -
> dokonce jsem neco podobneho videl, bohuzel si uz vsak nevzpomenu, jak se
> jmenoval.
>
> Zdenek
>
> ----- Original Message -----
> From: Michal Vojta <michal.vojta(zv)iol(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Wednesday, May 02, 2001 11:25 PM
> Subject: Automatick� tisk do souboru
>
>
> > Ahoj,
> > mam aplikaci, ktera tiskne v nepravidelnych intervalech data na lokalni
> > tiskarnu,
> > prostredi je dost nehostinne, vlhko, prach. Chtel bych tisknout do
> souboru,
> > ale pri klasickem nastaveni portu tiskarny na FILE, se pri kazdem tisku
> > objevi okno Save file pro zadani ciloveho souboru tisku. Nevite o
zpusobu,
> > jak zadat jmeno souboru natvrdo?
> > Napsal bych si programek, ktery by pak testoval pritomnost toho
souboru,
> a
> > prejmenoval/presunul bych ho jinam.
> > Michal VOJTA
> >
> >
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.217 / Virov� b�ze: 102 - datum vyd�n�: 1.12.2000
> >
> >
>
>Algoritmus pro vyhledani dvojice cisel
[*] Petr Kundrata <pksoft(zv)atlas(tec)cz> - 6.5.2001 21:54:32
Ahoj!
1. Rozdelit mapu mest na ctverce a pro kazde mesto pridat
polozku ctverec (do ktereho patri).
2. Pri hledani najit cilovy ctverec a projit vsechna mesta ve
ctverci. Pokud nalezena vzdalenost je horsi(vetsi) nez
vzdalenost od jinych ctvercu (jejich hranic), prohledat
take tyto ctverce.
Petr Kundrata
----- Original Message -----
From: <brant(zv)dcomm(tec)cz>
Sent: Thursday, May 03, 2001 11:07 AM
Ahoj vespolek,
mam tento problem: V databazi (Paradox) mam seznam zemepisnych souradnic a
seznam odpovidajicich mest. Dostanu zemepisne souradnice a k nim se ma
...
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
Kompresia suborov
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 6.5.2001 22:01:30
Ahoj
Neviete niekto o nejakych komponentach (najlepsie FREE) na kompresiu
suborov?
dik
S pozdravom
Ing. Jozef Baranec
Normex spol. s r.o.
www.digitaldocuments.org
joba(zv)digitaldocuments.org
Jak registrovat Windows Commander?
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 6.5.2001 22:32:12
Hello Ludek!
> Podle informaci, ktere jsem ziskal, jsou poplatky za prevod mezi
> ucty mnohem vyssi nez provize napr. zminovane firmy Jimaz.
> Program v cene 25 USD mi zaregistrovali za 1300,- Kc, pritom
> poplatky za prevod by byly cca 15 USD !!!
Tak to su v tom JIMAZe pekni zlodeji, lebo napr. RAR za USD 35 u mna stoji
pre pravnicku osobu 1400 Kc a pre fyzicku dokonca 1100 Kc.
Tema je tu off topic, takze dalej to rozoberat nehodlam, medzi tolkymi
srackami, co tu posielate, sa jedna snad unesie aj odo mna, ozvat som sa
musel :-(
BTW k tym priloham: spravca list-servera to nedokaze nastavit tak, aby sa
prilohy automaticky odstrihli, ale stale je tu moznost davat do spravy URL
rucne, dnes uz neni problem s freee web space.
Bye
V.Mlich http://www.rar(tec)cz
0.123456789012345678901234567890*2/2
[*] Miloslav Sk�cel <delphicz(zv)stereo(tec)cz> - 6.5.2001 22:39:26
Ahoj,
pokud v kalkulacce ve Windows provedu vypocet %subj% dostanu presny
vysledek.
Jak byste takovou kalkulacku implementovali v Delphi?
Typ extended ma pocet significat digits 19-20.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
Kompresia suborov
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.5.2001 22:42:31
>
> Neviete niekto o nejakych komponentach (najlepsie FREE) na kompresiu
> suborov?
Hledej ZLIB - free kompresni rutiny s fakt dobrou kompresi (Inflate/deflate)
D. Toman
Prenos DAT ale teraz po LPT1 ako NC50
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.5.2001 22:44:48
> > > Nic co se jmenuje Lablinc jsem na Inetu nenasel - neni to preklep
> > > Toman
> Ahoj,
>
> pravdepodobne slo o Laplink. Ten se pouzival na propojeni dvou pocitacu bud
> prekrizenym seriovym kabelem pres COM, nebo pomoci specialniho kabelu pres
> LPT.
ten ovsem nedovoloval volne pouzivat vzdalene disky (sdilet je) dalsim programum
D. Toman