Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Send E-mail
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.2.1999 15:25:37
Jestli ti nevadi pouziti MAPI, tak zkus TEmail2. Je to treba na
TORRY.......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Bene� Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> Odesl�no: 09. �nora 1999 14:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Send E-mail
>
> Ja chtel jenom neco hodne jednoducheho, tak do jednoho kliku na
> tlacitko
> vepsat par radku pro smtpcli a zvlast kdyz uz jsem si ty komponenty
> nainstaloval. Uz jsem pouzil HTTP a vetsi problemy jsem nemel...
>
> quickReport
[*] Martin <martin(zv)geoplanpp.sk> - 9.2.1999 15:26:28
Object inspektor / Functions) som nenasiel , mohli by ste mi to blizsie
vysvetlit ? Ukazal som na komponentu QuicReport a hladal v Objekt
Inspektore. Prip. maly priklad by bodol. Mam delphi2
Martin
>>2. potrebujem urobit v QuickReport sucet ale najskor sucty dvoch stlpcov
>>tabulky a potom ich navzajom videlit, ako sa to da ?
>
>
>Quick report obsahuje i funkce (Object inspektor / Functions). Takze by
melo
>stacit nadefinovat si dve, ktere ti udelaji ty soucty a na konci je pak
>vydelit.
>
>-----------------------------------------------------------------
>ing. Jan Fiala jan.fiala(zv)iname.com
>Prog-Soft s.r.o.
>INFOS - informa�n� system pro n�poj��e
>-----------------------------------------------------------------
>
Dotaz
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 9.2.1999 15:33:32
Haj hou!
> No super, vzhledem k tomu, ze ma zkusenost s ActiveX v
Delphi3=0
>mohl bych videt nejaky zdroj?
Co bys chtel za zdroj ? :-)) Prozen to ActiveX wizardem
(File->New-ActiveX Control) a bud uspejes nebo ne, zalezi na tom,
jake property se mu nepodari zapouzdrit. Mas ovsem pomerne dost
slusnou sanci na uspech.
HTH
DBGrid
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.2.1999 15:43:39
Na komponente TTable, kterou mas umistenou na formulari ci v datamodule,
si klikni pravym tlacitkem, zvol Fields editor... a tam pak pridas ten
calculated field. Doporucuji pridat i existujici fieldy, jinak by ses na
ne nedostal. Tim muzes take urcit, co z tabulky uzivatel uvidi a co ne.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: SICHTA Daniel [SMTP:Sichta(zv)asset.sk]
> Odesl�no: 09. �nora 1999 14:53
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: DBGrid
>
> Porad mi este prosim ta ako vytvorim v DBGride calculated field .
>
> Riadok a stlpec
[*] Lubos <bruce(zv)pobox.sk> - 09.2.1999 15:57:14
Cau all !
Mam dalsi problemik.
Vie mi niekto povedat ako ziskam cislo riadku a cislo stlpca v TRichEdit
prip. TMemo.
Vdaka.
/LH
Dotaz na menu
[*] Tom� R��i�ka - 9.2.1999 17:40:40
Ahoj !
Chtel jsem se zeptat, jak se da pridat do formulare menu, ktere je ulozeno v resource (*.rc). Napr. nejaka DLL obsahuje ve svych resource menu a ja to menu chci pridat k vlastnimu menu na formu (coz je TMainMenu atd.). Tzn. jakymi funkcemi (bud z VCL nebo WIN API) se toho da docilit.
Diky moc.
Tomas
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
PROBLEM
[*] Jiri Vesely <Jiri_Vesely(zv)seznam(tec)cz> - 09.2.1999 19:20:39
Mam takovy problem. V aplikaci sdilim nekolik dbf soubour ktere jsou umisteny a sileny na libovolnem pocitaci v siti ,
samozrejmne nejcasteji servru. Testuji to na 95/98 siti a vsechno slape jak ma..Jiz jsem to instaloval na vice mistech ALE.
Kdyz je na servru WIN NT a stanicich 95/98 tak se stava z instalave nocni mura.
Na servru nemam zadnou aplikaci jen tam mam ulozena sdilena data Neinstaluji tam ani DBE. Ze stanice spustim program a vse jede dobre,
ale jak spustim na jinem PC to same a zacnu sdilet data VSE SE ZPOMALI A COKOLI TRVA STRASNE DLOUHO, 4-8 vterin.
Staci dokonce kdyz otevru jen jeden DBF v Databaze Desktop a ten stejny dbf z jineho PC situace je stejna.
OTEVRENI TRVA STRAAASNE DLOUHO i kdyz dbf ma treba jen 100 k. ALE vzdy po 2-3 hodinovem
silenstvi se z neznamich pricin situace ustali, a rychlost najednou naskoci ALE JA STALE NAVIM PROC :)
Jelikoz zpomaleni nastava i v Databaze Desktop programem to jasne neni mam podezreni na BDE + NT ??? ???
Jak z toho ven ? ceka mne dalsi instalace, a ja pomalu prestavam spat :))) Dekuji za kazdou pomoc. Jiri Vesely
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Zmena fontu
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 9.2.1999 20:49:13
>> > Ahoj
>> >
>> > Jde programove zmenit font u komponenty TListView pro vlastnost
Petr Vones wrote
>Nepises jakou mas verzi Delphi, v D4 mas primo udalosti
TListView.OnCustomDrawXXX.
>Pro starsi verze muzes pouzit komponentu TEnhListView ktera je tady:
>http://www.tda(tec)cz/vita/delkom.htm
Ahoj
Mam D3 , komponentu jsem stahnul, je to dobry, ale
ja bych potreboval font pro Caption a dalsi pro SubItems
tj. 2 fonty v jednom radku
a komponenta podporuje pouze jeden
S pozdravem a diky
Heinisch Jiri
Web server aplikacia
[*] Roman Toda <normex(zv)mail.pvt.sk> - 09.2.1999 21:07:33
Ahoj vsetci..
Chcem robit Web server aplikaciu a nie som v tom moc doma. Preto mi
prosim poradte s nasledovnym:
Je Delphi dobra volba ??? :)
Kde sa da o tom docitat viac ?? Jeden priklad v Delphi je malo. Kde ich
je viac ? Su este nejake ine komponenty na tvorbu stranok ako dodava
Inprise (nic som nenasiel) ? Pripadne nejaky "wizardi" ?
Da sa prevadzkovat v Delphi vytvorena apl. aj na unixe (myslim server)
ked potrebujem Paradox tabulky (dalo by sa uvazovat aj o inej databaze
ale bez BDE to asi nepojde)?
Ma niekto z vas funkcnu web aplikaciu vyrobenu v Delphi - kde sa da
vidiet ?
--
Mgr. Roman Toda - developers center
mailto:normex(zv)mail.pvt.sk; http://www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
seriovy port
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 9.2.1999 21:34:34
Hello Medusa!
> Mozne to je, ale napr. spustim dosi aplikaci / presneji simulator
> EPROM, ktery komunikuje
> pres paralelni port (LPT1), a na jakoukoli dalsi cinost me windowsi
> aplikace, ktera chce komunikovat
> po COM2 se nechyta, proste nejde otevrit.
> Tohle bych poterboval obejit...
Tak to napis rovno. Na to nepotrebujes ziadnu komponentu Delphi.
Staci ked das do \WINDOWS\SYSTEM.INI v sekcii [Enh386] riadok:
COM2AutoAssign=0
Bye a slunce(tec)cz v dusi...
mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Udaje z MemProof
[*] Mirun <forcom(zv)telecom(tec)cz> - 10.2.1999 00:51:29
Nejsem sice guru ale ...
Nastav si v Delphi options Stack Frames, Map file detailed, Include TD32
debug info, do search path si jako prvni nastav misto cesty do adresare Lib
nastav SLib, co nejvice VCL si zkompiluj se stejnymi udaji jako vyse, a v
Memproof nezapomen uvest nastaveni cesty ke zdrojovym souborum.
Potom uz neni (vetsinou) celkem problem se k puvodci chyby dostat - odkazy
na tridy a alokaci objektu jsou vypsany na zasobniku vedle adres a pokud na
ne kliknes, dotahne si primo radek ze zdrojaku.
Je pak docela hlina sledovat, co je ve VCL za ptakoviny...
Mirun
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ondrisek <bonnel(zv)telecom(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 9. �nora 1999 15:18
P�edm�t: Udaje z MemProof
Na zaklade diskuse zde jsem si stahnul MemProof. Krome toho, ze je
skvely, tak bych potreboval od nejakeho guru na MemProof poradit s
interpretaci nekterych vysledku: konkretne po ukonceni jedne me apliakce
dostavam stabilne tyto hlasky:
1.
1 Live Pointer $01A93AAC 540
$0006845B E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0003CECE E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$00044347 E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0006C5AC E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$00017E8E C:\WINDOWS\SYSTEM\KERNEL32.DLL
$00017D3C C:\WINDOWS\SYSTEM\KERNEL32.DLL
Vzhledem k tomu, �e u t�to aplikace neni uvedena trida, zajimalo by me,
jak zjistim, kteryze to pointer mi v te pameti zustal viset
2.
22 Error $00000680 0 Attempt to free
unexisting resource
$00051804 E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$00051514 E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$000286EB E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0002139D E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0003B5F9 E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0000265E C:\WINDOWS\SYSTEM\KERNEL32.DLL
$0002188F C:\WINDOWS\SYSTEM\KERNEL32.DLL
Stejny problem jako ad1. Jak zjistit, coze se to pokousim uvolnovat
3.
22 Window DC $00001396 0 GetWindowDC(1664)
$000517B2 E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$00051514 E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$000286EB E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0002139D E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0003B5F9 E:\PRJ\DELPHI95\INFOTEL3\INFOTEL3.EXE
$0000265E C:\WINDOWS\SYSTEM\KERNEL32.DLL
$0002188F C:\WINDOWS\SYSTEM\KERNEL32.DLL
Smysl teto hlasky uz bohuzel nechapu vubec.
Pomuze nekdo ?
Diky
Programove pridani sdilene slozky
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 10.2.1999 01:34:45
Zdravim
netusite prosim nekdo jak programove zasdilet adresar ?
Dival jsem se do programu NetWatch ktery to mimo jine taky umoznuje a
cekal jsem
ze bude importovat fci NetShareAdd z SVRAPI.DLL ale kupodivu ji neimportuje
!
Nemate nekdo tuseni, jaka jina fce. to muze byt ?
Nebo alespon popis fce NetShareAdd. (nejaky novejsi nez je v SDK helpu k
Delphi, ten je
totiz k nicemu ).
diky Michal <starxax(zv)molly.vabo(tec)cz>Problem s cestinou
[*] Jan Nov�k���r����n�?��? - 10.2.1999 05:46:01
Mam Delphi 4 , BDE 5 . Do tabulky MS Accessu 7 importuji pomoci
komponenty Batch Move data z textoveho souboru XXX.TXT.
Po importu maji data zmrsenou cestinu. Kdyz provedu import
primo z prostredi MS Accessu je cestina v poradku. Nevite cim to muze byt.
Nesetkal jste se s tim nekdo. Dekuji za pripadnou radu.
QuickReport
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 10.2.1999 06:08:09
>(Object inspektor / Functions) som nenasiel , mohli by ste mi to blizsie
>vysvetlit ? Ukazal som na komponentu QuicReport a hladal v Objekt
>Inspektore. Prip. maly priklad by bodol.
>
Kdyz si tuknu na QuickReport, ne na nejaky band nebo prvek tak tam Functions
mam (byly i v D3). Pri jejich definici se postupuje stejne jako u pocitaneho
fieldu napr. v sumary.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
-----------------------------------------------------------------
Web server aplikacia
[*] voltrr1.epr(zv)mail.cez(tec)cz - 10.2.1999 06:25:42
Zdar
> Je Delphi dobra volba ??? :)
Ano - Delphi jsou pro platformu Windows 95/98/NT
> Da sa prevadzkovat v Delphi vytvorena apl. aj na unixe (myslim server)
S velkou pravdepodobnosti ne protoze se jedna o Win32PE .exe nebo .dll
> Ma niekto z vas funkcnu web aplikaciu vyrobenu v Delphi - kde sa da
> vidiet ?
moje vlastni prace na www.holiday(tec)cz - hledej InternetRIS
Radek Voltr
Web server aplikacia
[*] Lubos <bruce(zv)pobox.sk> - 10.2.1999 07:19:37
> > Da sa prevadzkovat v Delphi vytvorena apl. aj na unixe (myslim server)
> S velkou pravdepodobnosti ne protoze se jedna o Win32PE .exe nebo .dll
Ak zozenies emulator windoze pod unix tak asi ano.
Pocul som ze nieco take existuje pod LINUX.
/LH
Send E-mail
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 10.2.1999 07:45:49
> Ja uz jsem FPietteho zavrhl, protoze jsem mel problemy temer u vsech jeho
> komponent. Oni jsou tak trochu spatne udelane...radeji pouzij TCP/IP pack,
> da se to stahnout na www.delphideli.com nebo i na DSP.. -----Original
To mne zajima... co je podle tebe na Pietteho komponentach
spatne udelane? jake jsi mel problemy?
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
DBGrid
[*] SICHTA Daniel <Sichta(zv)asset.sk> - 10.2.1999 07:52:27
Asi tak 10 minut potom ako som poslal moj dotaz som na to prisiel sam.
Ale diky aj tak !!
Ing. Daniel �ichta
ASSET s.r.o. Rosinsk� 8
011 05, �ilina SLOVAKIA
% 421-89-542-15
) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> -----Original Message-----
From: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
Sent: 9. febru�r 1999 15:44
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: DBGrid
Na komponente TTable, kterou mas umistenou na formulari ci v
datamodule,
si klikni pravym tlacitkem, zvol Fields editor... a tam pak
pridas ten
calculated field. Doporucuji pridat i existujici fieldy, jinak
by ses na
ne nedostal. Tim muzes take urcit, co z tabulky uzivatel uvidi a
co ne. Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: SICHTA Daniel [SMTP:Sichta(zv)asset.sk]
> Odesl�no: 09. �nora 1999 14:53
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: DBGrid
>
> Porad mi este prosim ta ako vytvorim v DBGride calculated
field .
>
> Komponenty pro TELNET
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 10.2.1999 08:05:15
�
Ahoj,
�
pou��v�te pros�m n�kdo komponenty pro Telnet ?
�
D�ky
�
�
Va�ek
�Problem s cestinou
[*] Jindriska Kubatova <kubatova(zv)nym.pvt(tec)cz> - 10.2.1999 08:31:01
> Mam Delphi 4 , BDE 5 . Do tabulky MS Accessu 7 importuji pomoci
> komponenty Batch Move data z textoveho souboru XXX.TXT.
> Po importu maji data zmrsenou cestinu. Kdyz provedu import
> primo z prostredi MS Accessu je cestina v poradku. Nevite cim to muze byt.
> Nesetkal jste se s tim nekdo. Dekuji za pripadnou radu.
>
>
Stalo se mi to take, ale pri kopii paradox do paradox.
Je treba nastavit transliterate na false
---------------------------------------------------
Jindriska Kubatova
PVT Kolinska 20 288 18 Nymburk
kubatova(zv)nym.pvt(tec)cz
---------------------------------------------------
Web server aplikacia
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 10.2.1999 08:40:50
Existuje, jmenuje se to Wine a je to tady http://www.winehq.com/
Czescz
Tomas Balusek
-----P�vodn� zpr�va-----
Od: Lubos <bruce(zv)pobox.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. �nora 1999 7:30
P�edm�t: Re: Web server aplikacia
>Ak zozenies emulator windoze pod unix tak asi ano.
>Pocul som ze nieco take existuje pod LINUX.
URLDownloadToFile
[*] ATLAS consulting, spol. s r. o. <vyvoj(zv)atlascon(tec)cz> - 10.2.1999 09:05:34
Cau,
chci pouzit tuhle funkci pro stahovani souboru z Internetu (pro
automaticky update programu). Jenze se tam pouzivaji takove osklive
veci, jako rozhrani apod. Mate s tim nekdo nejake zkusenosti, o ktere se
muzete podelit? Ja jsem jeste s COMama nejak nemel tu cest pracovat...
Diky,
Martin Bodlak
ATLAS consulting, spol. s r. o.
Riadok a stlpec
[*] Lubos <bruce(zv)pobox.sk> - 10.2.1999 09:17:33
> Mam dalsi problemik.
> Vie mi niekto povedat ako ziskam cislo riadku a cislo stlpca v TRichEdit
> prip. TMemo.
Caute All !
Uz som jeden problem vyriesil.
Viem zistit riadok.
Je na to msg EM_EXLINEFROMCHAR.
Ale nevie nahodou niekto nejaky sikovny a rychly sposob na
urcenie stlpca ?
Vdaka.
/LH
Send E-mail
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 10.2.1999 09:53:31
Dost velky, napr FTPclient je totalne na nic!! Pokud se zkousis pripojit k
pocitaci, ktery neni on-line, tak jsem se nedockal chybove hlasky a
komponenta se chovala jako pripojena. Ale neslo se znovu pripojit a ani
odpojit.
Komponenta Pop3.....s tou se mi postu vybrat skutecne nepovedlo.
Pokud jsem pouzil TCP/IP, tak jsem vechno rozbehal behem chvile! Proste je
velky rozdil mezi praci a pohodlnou praci.
-----Original Message-----
From: Gebauer Lukas <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 10. �nora 1999 8:12
Subject: Re: Send E-mail
>> Ja uz jsem FPietteho zavrhl, protoze jsem mel problemy temer u vsech jeho
>> komponent. Oni jsou tak trochu spatne udelane...radeji pouzij TCP/IP
pack,
>> da se to stahnout na www.delphideli.com nebo i na DSP.. -----Original
>
>To mne zajima... co je podle tebe na Pietteho komponentach
>spatne udelane? jake jsi mel problemy?
>
>
>Louci se Lukas Gebauer.
>
>E-mail: gebauerl(zv)mlp(tec)cz
>Winhlp32 - offtopic
[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 10.2.1999 10:09:13
Hi, pros�m v�s o radu.
M�m C++Builder 3 Prof. P�i vytv��en� seznamu slov se mi u n�kolika help� (z
adres��e MS Help) hl�s�: "Program provedl neplatnou operaci a bude ukon�en."
Detaily: "Aplikace Winhlp32 zp�sobila chybu z�sobn�ku v modulu Kernel32.dll
na adrese...".
Nev�te, co s t�m ???
Martin Va�k��
mvackar(zv)cpoj(tec)cz
Zjisteni spustenych aplikaci
[*] ADAMECD(zv)vs.xion(tec)cz - 10.2.1999 10:09:57
Ahoj
Nevite nekdo, jak se daji zjistit spustene aplikace? (staci nazev,
ktery je videt na panelu ve Windows).
-David
David Adamec
ComboBox
[*] Mik Radim <mik(zv)oce(tec)cz> - 10.2.1999 10:56:53
Je to sice blbost, a drbani levou rukou za pravym uchem, ale co takhle
prepsat editacni oblast ComboBoxu Editem?> Dik za snahu... ale moj problem je v tom, ze ja potrebujem, aby sa
> po vybrati nejakej polozky z moznosti v danom ComboBox-e do daneho
> ComboBox-u do ComboBox.Text dostal uplne iny text... Ide mi prave
> o editacne okno daneho ComboBox-u a nie o Label alebo nieco podobne...
> (mozno som sa minule nevyjadril dost presne...)
>
> Problem je v tom, ze ked tam tento text v ramci ComboBox eventu OnChange
> priradim, tak on ho veselo odignoruje.
>
> Ak mate niekto napad, ako toto vyriesit tak si to nenechajte pre seba, ale
> sem
> s tym...
>
> Vdaka za kazdu pomoc...
>
> S pozdravom
>
> SALMON
> (Michal Moscovic)
>
> e-mail:
> salmon(zv)frcatel.utc.sk
> moscovic(zv)fred.utc.sk
>
> web:
> http://fred.utc.sk/~moscovic
> BorderStyle
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.2.1999 10:58:02
Preji vsem pekneho dne,
pouzivam komponenty PageControl a tem chybi vlastnost BorderStyle.
Pokud jich je vice na sobe, nevypada to pekne. Necha se s tim neco
udelat?
Diky za odpovedi.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
CDX indexy
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 10.2.1999 11:09:27
Zdravim vsechny,
mam problem s nacitanim hodnot z tabulky FoxPro s *.cdx indexy (mujtable) z jineho �programu. Potrebuji prepsat urcita data do Pdx tabulky. Definuji v BDE(5.01) objekt s nativn�m ovladacem Foxpro, vezmu TQuery, nastav�m SQL dotaz select * from mujtable,pokusim se zmenit Active na true, dostanu hlasku Invalid Index Descriptor. Co s tim ?? Staci mi sekvencni precteni vsech zaznamu, index nepotrebuji. Pouziji-li napojeni pres TTable, situace je stejna, pokusim-li se pridat IndexFile, nabizi mi jen MDX nebo NDX indexy, bez ohledu co nastavim v TableType ( tam se FoxPro ani nenabidne). Nebo delam naco fatalne chybne ??
Diky za pomoc
* Petr Ma��k *
* RT electronic *
* rtepema(zv)mbox.vol(tec)cz *
* tel. -02-20510562 *
Send E-mail
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 10.2.1999 11:11:36
Jen pro potvrzeni. Jedna se o ICK z www.dev-soft.com ?
> -----P�vodn� zpr�va-----
> Od: Pavel Serbajlo [SMTP:serb(zv)mikulov.sol(tec)cz]
> Odesl�no: 10. �nora 1999 9:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Send E-mail
>
> Dost velky, napr FTPclient je totalne na nic!! Pokud se zkousis
> pripojit k
> pocitaci, ktery neni on-line, tak jsem se nedockal chybove hlasky a
> komponenta se chovala jako pripojena. Ale neslo se znovu pripojit a
> ani
> odpojit.
> Komponenta Pop3.....s tou se mi postu vybrat skutecne nepovedlo.
>
> Pokud jsem pouzil TCP/IP, tak jsem vechno rozbehal behem chvile!
> Proste je
> velky rozdil mezi praci a pohodlnou praci.
>
> -----Original Message-----
> From: Gebauer Lukas <gebylist(zv)mlp(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Date: 10. �nora 1999 8:12
> Subject: Re: Send E-mail
>
>
> >> Ja uz jsem FPietteho zavrhl, protoze jsem mel problemy temer u
> vsech jeho
> >> komponent. Oni jsou tak trochu spatne udelane...radeji pouzij
> TCP/IP
> pack,
> >> da se to stahnout na www.delphideli.com nebo i na DSP..
> -----Original
> >
> >To mne zajima... co je podle tebe na Pietteho komponentach
> >spatne udelane? jake jsi mel problemy?
> >
> >
> >
> >Louci se Lukas Gebauer.
> >
> >E-mail: gebauerl(zv)mlp(tec)cz
> >TlistView
[*] Jirka <virt(zv)pepa(tec)cz> - 10.2.1999 11:22:35
Ahoj,
nepomohl by me nekdo.Potrebuji dat do okna TlistView pretazenim ikonu z
plochy.Pouzivam TimageList a TlistView, ale stale se me nedari.
Alespon kousek kodu !!!
Diky
Jirka Virt
email: virt(zv)pepa(tec)cz
Send E-mail
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 10.2.1999 11:23:42
> Dost velky, napr FTPclient je totalne na nic!! Pokud se zkousis pripojit k
> pocitaci, ktery neni on-line, tak jsem se nedockal chybove hlasky a
> komponenta se chovala jako pripojena. Ale neslo se znovu pripojit a ani
> odpojit. Komponenta Pop3.....s tou se mi postu vybrat skutecne nepovedlo.
Aha... to jsou ty jeho nadstavbove komponenty, ktere jsem nikdy
nepouzil, takze nemuzu soudit. Mne by zajimalo, jestli ma nekdo
nejake nefunkcnosti a boty na jeho TWSocket?
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
Kniha C++ Builder - podrobny pruvodce
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 11:43:17
Hi,
pro kazdeho, kdo chtel nejakou knihu o Builderu:
GRADA pripravuje publikaci %subj%
dne se mi dostal na stul jejich katalog - ma to mit asi 256 stran za asi
290K�
Sice to napsal Miroslav Virius (nemam ho rad - muj problem), ale je to
zatim jedina ceska kniha o Builderu.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
Problemy s tiskem
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 10.2.1999 11:43:17
Cau,
stava se mi, ze pri tisku se spatne prepocitaji fonty na canvasu
tiskarny (podle DPI a tak). Muze za to driver tiskarny, nebo je chyba ve
Windows? Pripadne v Delphi..?
Zatim to resim tak, ze to prepoctu rucne:
fnt := TFont.Create;
fnt.Assign(FrmMain.Font);
FrmMain.Font.Assign(XPrintFont);
h := FrmMain.Font.Height;
ACanvas.Font.Assign(XPrintFont);
ACanvas.Font.Height := Round((h * XFactorV) - 1);
FrmMain.Font.Assign(fnt);
fnt.Free;
kde XFactorV je pomer vertikalniho DPI na tiskarne a na screenu.
Ta jednicka je tam proto, ze s ni mi to funguje lip nez bez ni:)))
Existuje nejaka lepsi a vice device-independent cesta?
--
Hezky den!
________________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Private homepage: http://members.xoom.com/bodlak
Tel. 069-6616432 (office), 0603-490135 (private)CDX indexy
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 11:49:22
Udelej si kopii DBF souboru a nekopiruj CDX, pak to nactes.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Ma��k [SMTP:rtepema(zv)mbox.vol(tec)cz]
> Odesl�no: 10. �nora 1999 11:09
> Komu: Delphi konference
> P�edm�t: CDX indexy
>
> Zdravim vsechny,
> mam problem s nacitanim hodnot z tabulky FoxPro s *.cdx indexy
> (mujtable) z jineho �programu. Potrebuji prepsat urcita data do Pdx
> tabulky. Definuji v BDE(5.01) objekt s nativn�m ovladacem Foxpro,
> vezmu TQuery, nastav�m SQL dotaz select * from mujtable,pokusim se
> zmenit Active na true, dostanu hlasku Invalid Index Descriptor. Co s
> tim ?? Staci mi sekvencni precteni vsech zaznamu, index nepotrebuji.
> Pouziji-li napojeni pres TTable, situace je stejna, pokusim-li se
> pridat IndexFile, nabizi mi jen MDX nebo NDX indexy, bez ohledu co
> nastavim v TableType ( tam se FoxPro ani nenabidne). Nebo delam naco
> fatalne chybne ??
> URLDownloadToFile
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 10.2.1999 11:52:31
mne to fungovalo bez problemov takto:
var
Url, FileName: string;
Result: HResult;
...
Result := URLDownloadToFile(nil, PChar(Url), PChar(FileName), 0, nil);
if Result >= 0 then
// je to OK
else
// chyba
"ATLAS consulting, spol. s r. o." wrote:
> Cau,
>
> chci pouzit tuhle funkci pro stahovani souboru z Internetu (pro
> automaticky update programu). Jenze se tam pouzivaji takove osklive
> veci, jako rozhrani apod.
--
S pozdravom
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
Winhlp32 - offtopic
[*] Lubos <bruce(zv)pobox.sk> - 10.2.1999 11:53:56
> M�m C++Builder 3 Prof. P�i vytv��en� seznamu slov se mi u n�kolika help� (z
> adres��e MS Help) hl�s�: "Program provedl neplatnou operaci a bude ukon�en."
> Detaily: "Aplikace Winhlp32 zp�sobila chybu z�sobn�ku v modulu Kernel32.dll
> na adrese...".
Podla mna je to nedostatkom pamate.
Skus pozatvarat vsetky beziace aplikacie a takto to skus.
/LH
QRPreview a QRCompositeReport
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 10.2.1999 12:00:53
>Skadial sa da zohnat QRCompositeReport, v delphi som ju nenasiel ? Mozno som
>zle hladal.
urcite je soucasti placene verze QR
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
COM porty
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 10.2.1999 12:19:21
Ahoj,
nevite nekdo, jak zjistit, ktere seriove porty jsou instalovany v
pocitaci (W95 a NT)?
Dekuji Vaclav Sazima
Winhlp32 - offtopic
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 12:24:10
Spis bych rekl, ze je to pameti (SIMM ci DIMM). Jsou vsechny stejne,
nebo je to sbirka z celeho sveta?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Lubos [SMTP:bruce(zv)pobox.sk]
> Odesl�no: 10. �nora 1999 11:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Winhlp32 - offtopic
>
> > M�m C++Builder 3 Prof. P�i vytv��en� seznamu slov se mi u n�kolika
> help� (z
> > adres��e MS Help) hl�s�: "Program provedl neplatnou operaci a bude
> ukon�en."
> > Detaily: "Aplikace Winhlp32 zp�sobila chybu z�sobn�ku v modulu
> Kernel32.dll
> > na adrese...".
>
> Podla mna je to nedostatkom pamate.
> Skus pozatvarat vsetky beziace aplikacie a takto to skus.
>
> /LH
Winhlp32 - offtopic
[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 10.2.1999 12:48:33
Mam 32 MB. Pameti jsou vsechny stejne, vsechny zakoupene naraz s pocitacem.
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Odesl�no: 10.�nora 1999 12:24
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Winhlp32 - offtopic
>
> Spis bych rekl, ze je to pameti (SIMM ci DIMM). Jsou vsechny stejne,
> nebo je to sbirka z celeho sveta?
>
>
> Zjisteni spustenych aplikaci
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 10.2.1999 12:50:47
Haj hou!
Funkce EnumWindows Win32 API ti da handle top-level oken a funkci
GetWindowText mas caption.
>Nevite nekdo, jak se daji zjistit spustene aplikace? (staci
nazev,
>ktery je videt na panelu ve Windows).
BAT soubory
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 10.2.1999 12:55:46
Cau,
potreboval bych z DELPHI pustit dosovskou davku, ale kdyz spustim
COMMAND.COM s parametrem nazvu souboru, akorat se spusti prikazovy radek a
nic. Nevite nekdo, jak commandu vnutit nazev souboru tak, aby ho vykonal ?
Diky P
others problems
[*] Kelle Ondrej <kelleon(zv)nnsk.sk> - 10.2.1999 13:07:55
> >Potreboval by som zistit SIRKU jedneho znaku pre konkretny font
> (fixed
> >pitch) a konkretnu velkost.
> Win32 API funkce GetTextMetrics a GetTextExtentPoint32.
Neda sa to iste urobit pomocou TCanvas.TextExtent?
Ondrej Kelle
kelleon(zv)nnsk.sk
BAT soubory
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.2.1999 13:11:47
Ahoj,
> potreboval bych z DELPHI pustit dosovskou davku, ale kdyz spustim
> COMMAND.COM s parametrem nazvu souboru, akorat se spusti prikazovy radek a
> nic. Nevite nekdo, jak commandu vnutit nazev souboru tak, aby ho vykonal ?
****Pouzivas parametr /c ?
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
QuickReport
[*] Martin <martin(zv)geoplanpp.sk> - 10.2.1999 13:12:11
Ale ja mam D2 a v nom to pravdepodobne este nieje. Neda sa urobit upgrade
iba QuickReport z Internetu, nie�o ako upgrade BDE, mne v D2 funguje BDE
4.51. Prip. ine riesenie ?
Martin
-----P�vodn� spr�va-----
Od: Jan Fiala <fiala(zv)infos(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 10. febru�r 1999 6:40
Predmet: Re: QuickReport
>>(Object inspektor / Functions) som nenasiel , mohli by ste mi to blizsie
>>vysvetlit ? Ukazal som na komponentu QuicReport a hladal v Objekt
>>Inspektore. Prip. maly priklad by bodol.
>>
>
>
>Kdyz si tuknu na QuickReport, ne na nejaky band nebo prvek tak tam
Functions
>mam (byly i v D3). Pri jejich definici se postupuje stejne jako u
pocitaneho
>fieldu napr. v sumary.
>
>-----------------------------------------------------------------
>ing. Jan Fiala jan.fiala(zv)iname.com
>Prog-Soft s.r.o.
>INFOS - informa�n� system pro n�poj��e
>-----------------------------------------------------------------
>URLDownloadToFile
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 10.2.1999 13:21:16
Jozef Strnadik wrote:
>
> mne to fungovalo bez problemov takto:
>
> Result := URLDownloadToFile(nil, PChar(Url), PChar(FileName), 0, nil);
>
> Jozef Strnadik
> E-mail: strnadik(zv)mbox.mrp(tec)cz
Diky, slape to jako hodinky. :)
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Problemy s tiskem
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 13:23:39
A jaky mas nastaveny mapovaci mod?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Bodlak [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 10. �nora 1999 11:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Problemy s tiskem
>
> Cau,
>
> stava se mi, ze pri tisku se spatne prepocitaji fonty na canvasu
> tiskarny (podle DPI a tak). Muze za to driver tiskarny, nebo je chyba
> ve
> Windows? Pripadne v Delphi..?
>
> Zatim to resim tak, ze to prepoctu rucne:
>
> fnt := TFont.Create;
> fnt.Assign(FrmMain.Font);
> FrmMain.Font.Assign(XPrintFont);
> h := FrmMain.Font.Height;
> ACanvas.Font.Assign(XPrintFont);
> ACanvas.Font.Height := Round((h * XFactorV) - 1);
> FrmMain.Font.Assign(fnt);
> fnt.Free;
>
> kde XFactorV je pomer vertikalniho DPI na tiskarne a na screenu.
>
> Ta jednicka je tam proto, ze s ni mi to funguje lip nez bez ni:)))
> Existuje nejaka lepsi a vice device-independent cesta?
>
> --
> Hezky den!
> ________________________________________________
> Martin Bodlak, ATLAS consulting, spol. s r. o.
> Private homepage: http://members.xoom.com/bodlak
> Tel. 069-6616432 (office), 0603-490135 (private)Zjisteni velikosti souboru na wwwebu
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 10.2.1999 13:44:56
Cau,
lze nejak _jednoduse_, tj. bez nejakych velikych komponent, zjistit
velikost souboru na wwwebu? Abych mohl pri downloadovani ukazovat
teplomer ci co...
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Problemy s tiskem
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 10.2.1999 13:51:52
Martin Fron�k wrote:
>
> A jaky mas nastaveny mapovaci mod?
>
Nic nemenim, takze asi default. Coz je, tusim, MM_TEXT.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)QuickReport II
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 10.2.1999 13:55:56
Ahojte.
Zkusim se jeste jednou zeptat. ;-))
1) Mam QuickReport na QRListFormu. Volanim QuickReport.Preview se zobrazi
sestava na danem formu a ja nemuzu prijit na to, jak udelat ten form se
sestavou modalni, protoze nemam moznost volat QRListForm.ShowModal a ani v
property toho formu jsem nic nenasel.
2) Na tom formu se mi objevi (po preview) nejaka tlacitka (dalsi stranka,
printer setup,...) a nenasel jsem misto, kde bych je treba nektere zakazal.
3) Kdyz zmenim v printer setupu (z tech tlacitek ad.2) na jinou nez vychozi
tiskarnu ,
tak mi vytiskne pouze Titulek a paticku a ne detaily mezi tim.
Z archivu konference jsem se dozvedel o WWW.QuSoft.COM , ale neni
neco neplaceneho.
Stahl jsem FREE verzi QR20K a nejak nechce fachcit.
Diky za kazde nakopnuti kupredu.
Petr
BAT soubory
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 14:03:08
Takto v C++: WinExec("C:\\davka.bat",SW_HIDE);
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Kro�a ml. [SMTP:pkroca(zv)compact(tec)cz]
> Odesl�no: 10. �nora 1999 12:56
> Komu: Delphi KONFERENCE
> P�edm�t: BAT soubory
>
> Cau,
> potreboval bych z DELPHI pustit dosovskou davku, ale kdyz spustim
> COMMAND.COM s parametrem nazvu souboru, akorat se spusti prikazovy
> radek a
> nic. Nevite nekdo, jak commandu vnutit nazev souboru tak, aby ho
> vykonal ?
>
> Diky P
Fontografer
[*] sup(zv)svitap(tec)cz - 10.2.1999 14:04:04
Pro vsechny zajemce o Fontografer: Je vas mnoho a mnoho z vas ma malou
schranku. Umistil jsem soubor na ftp://194.212.176.109/pub.
Sorry za offtopic.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
Winhlp32 - offtopic
[*] Lubos <bruce(zv)pobox.sk> - 10.2.1999 14:21:53
> Mam 32 MB. Pameti jsou vsechny stejne, vsechny zakoupene naraz s pocitacem.
>
Ja mam 40 MB a mne to robi tiez, ked mam spustene CB, winamp, word,...
Naozaj skus spustit len CB a skus ten help. Prip len help.
Malo by to ist.
/LH
Chyba na paradoxe
[*] Roman Toda <normex(zv)mail.pvt.sk> - 10.2.1999 14:24:02
Ahoj vsetci...
Pri otvarani tabulky mi aj database desktop hlasi takuto chybu: "Corrupt
table/index header. File .....xxx.db". Ako viem este zachranit tie data
??
Aplikacia je v D1
--
Mgr. Roman Toda - developers center
mailto:normex(zv)mail.pvt.sk; http://www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
Off topic - prechod W95 -> NT
[*] Jiri Binder <jiri.binder(zv)pedf.cuni(tec)cz> - 10.2.1999 14:37:51
> - nemate nekdo CESKE programatorske rozlozeni (takove, kde zakladni
> rozlozeni je ceske QWERTY a pres AltGr se pisou originalni znaky
> angl.klavesnice)? Ve W95 jsem s uspechem pouzival ceske progr.rozlozeni
> od Michala Marese, ale neni u ni ani kontakt na nej :-(
>
Presne stejny problem mam nyni i ja a reseni bych uvital.
V soucasne dobe vim pouze o dvou moznostech:
1. WinKlav, (cca 800 Kc) odkaz a casove omezenou verzi lze najit nar. pres
seznam(tec)cz
2. Na strankach www.sysinternals.com (zde je k nalezeni dost zajimavych veci)
je neco, co bych v pripade, ze selzou jine moznosti vyzkousel:
{HYPERLINK "ctrl2cap.htm"}Ctrl2Cap
This is a kernel-mode driver that demonstrates keyboard input filtering just
above the keyboard class driver in order to turn caps-locks into control keys.
Filtering at this level allows conversion and hiding of keys before NT even
"sees" them. Full source is included. Ctrl2cap also shows how to use
HalDisplayString() to print messages to the initialization blue-screen.
{HYPERLINK "ntfsflp.htm"}
Budeteme-li mit vyreseno drive, dejte mi prosim vedet.
Jiri Binder
TlistView
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.2.1999 15:01:07
Ahoj,
koukal jsem trochu do helpu, i jsem zkusil neco napsat a chodi to. Snad
ti to aspon trochu pomuze do zacatku.
procedure DragAcceptFiles(h:integer; r:boolean); cdecl; external
'shell32.dll' ; //tahle fce nastavuje okno tak, aby zpracovavalo zpravu
WM_DROPFILE
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
procedure DropFile(var Msg:TMessage); message WM_DROPFILES; //takhle
se odchyti zprava WM_DROPFILES
public
{ Public declarations }
end;
procedure TForm1.DropFile(var Msg:TMessage);
begin
ShowMessage('Kuk !'); //a tady to zpracuj
....blablabla....
end;
Ma to nedostatek - bere to jen soubory z Exploreru, ne ikony z plochy.
Ale snad to aspon k necemu bude. Kdyz tak napis.
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P�vodn� zpr�va-----
> Od: Jirka [SMTP:virt(zv)pepa(tec)cz]
> Odesl�no: 10. �nora 1999 11:23
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TlistView
>
> Ahoj,
> nepomohl by me nekdo.Potrebuji dat do okna TlistView pretazenim
> ikonu z
> plochy.Pouzivam TimageList a TlistView, ale stale se me nedari.
> Alespon kousek kodu !!!
>
>
> Diky
>
> Jirka Virt
>
> email: virt(zv)pepa(tec)cz
Problemy s tiskem
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 15:02:19
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Bodlak [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 10. �nora 1999 13:52
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Problemy s tiskem
>
> Martin Fron�k wrote:
> >
> > A jaky mas nastaveny mapovaci mod?
> >
> Nic nemenim, takze asi default. Coz je, tusim, MM_TEXT.
>
[Martin Fron�k] No, tak to bude ten problem. Ja pouzivam (kdyz
uz me nekdo donuti k takovejm volovinam) MM_LOMETRIC ci MM_HIMETRIC -
sice potom musis pocitat se zapornym cislem, ale mas to presne zarovnane
- zadne device dependent....Winhlp32 - offtopic
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 15:05:50
Nedavno tady nekdo resil cosi podobne.....a zpusoboval to pry ovladac od
UMAXu.....tak si zkus aktualizovat ovladace od vseho co mas (ale opatrne
:-)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> > Mam 32 MB. Pameti jsou vsechny stejne, vsechny zakoupene naraz s
> pocitacem.
> >
>
> Ja mam 40 MB a mne to robi tiez, ked mam spustene CB, winamp, word,...
> Naozaj skus spustit len CB a skus ten help. Prip len help.
> Malo by to ist.
> /LH
Problemy s tiskem
[*] Miroslav Mares <sm(zv)sct(tec)cz> - 10.2.1999 15:22:16
No jestli to tisknes pres Canvas printru, tak ja to delam takhle:
Printer.Canvas.Font := TDBText(Controls[i]).Font;
case TDBText(Controls[i]).Field.Alignment of
taLeftJustify: DrawText(Printer.Canvas.Handle,
PChar(TDBText(Controls[i]).Field.DisplayText),
Length(PChar(TDBText(Controls
[i]).Field.DisplayText)),
OutRect, DT_LEFT);
taRightJustify: DrawText(Printer.Canvas.Handle,
PChar(TDBText(Controls[i]).Field.DisplayText),
Length(PChar(TDBText(Controls
[i]).Field.DisplayText)),
OutRect, DT_RIGHT);
taCenter: DrawText(Printer.Canvas.Handle,
PChar(TDBText(Controls[i]).Field.DisplayText),
Length(PChar(TDBText(Controls
[i]).Field.DisplayText)),
OutRect, DT_CENTER);
end;
Miroslav Mares
-----P�vodn� zpr�va-----
Od: Martin Bodlak <vyvoj(zv)atlascon(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. �nora 1999 12:56
P�edm�t: Problemy s tiskem
>Cau,
>
>stava se mi, ze pri tisku se spatne prepocitaji fonty na canvasu
>tiskarny (podle DPI a tak). Muze za to driver tiskarny, nebo je chyba ve
>Windows? Pripadne v Delphi..?
>
>Zatim to resim tak, ze to prepoctu rucne:
>
> fnt := TFont.Create;
> fnt.Assign(FrmMain.Font);
> FrmMain.Font.Assign(XPrintFont);
> h := FrmMain.Font.Height;
> ACanvas.Font.Assign(XPrintFont);
> ACanvas.Font.Height := Round((h * XFactorV) - 1);
> FrmMain.Font.Assign(fnt);
> fnt.Free;
>
> kde XFactorV je pomer vertikalniho DPI na tiskarne a na screenu.
>
>Ta jednicka je tam proto, ze s ni mi to funguje lip nez bez ni:)))
>Existuje nejaka lepsi a vice device-independent cesta?
>
>--
>Hezky den!
>________________________________________________
>Martin Bodlak, ATLAS consulting, spol. s r. o.
>Private homepage: http://members.xoom.com/bodlak
>Tel. 069-6616432 (office), 0603-490135 (private)RX 2.60 HELP
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.2.1999 15:24:26
Hi,
od vcerejska je na TORRY %subj% v anglictine.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
Problemy s tiskem
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 10.2.1999 15:28:03
Martin Fron�k wrote:
>
> [Martin Fron�k] No, tak to bude ten problem. Ja pouzivam (kdyz
> uz me nekdo donuti k takovejm volovinam) MM_LOMETRIC ci MM_HIMETRIC -
> sice potom musis pocitat se zapornym cislem, ale mas to presne zarovnane
> - zadne device dependent....
Diky za info. Vyzkousim a uvidime, bude to vetsi zasah do kodu, nez jsem
si myslel...
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Problemy s tiskem
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 10.2.1999 15:48:34
Miroslav Mares wrote:
>
> No jestli to tisknes pres Canvas printru, tak ja to delam takhle:
>
> Printer.Canvas.Font := TDBText(Controls[i]).Font;
>
Diky, ale prave tenhle radek mi nefunguje tak, jak ma. Blbe se prepocte
fyzicka velikost fontu (v tiskovych bodech zarizeni) pri prirazeni fontu
canvasu tiskarny.
Jak tisknout na DT_LEFT a pod. samosebou vim :) Jenom ten prepocet
nefunguje jak ma. A jelikoz pocitam neco podle rozmeru textu na canvase,
vychazi to jinak v preview a jinak na papire.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Application Error
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 10.2.1999 16:11:58
Potreboval bych vedet, jakou direktiovou mam vypnout standartni osetreni
chyb a vyjimek. Pouzivam komponenty IPworks (TCP/IP). Pri logovani na FTP
zadam spatne heslo a aplikace v prostredi delphi spadne. Delphi hlasi
chybovy kod a teprve kdyz v aplikaci pokracuji mi kod zobrazi samotna
aplikace. Jak se vyhnout tomu, aby to spadlo a neco o chybach se psalo jen
kdyz o to ja mam zajem ?
Dik PK
TrichEdit fcie
[*] Lubos <bruce(zv)pobox.sk> - 10.2.1999 16:15:07
Caute All !
Vyhlasujem patranie po nasledujucich funkciach pre TRichEdit (TMemo).
Mozno by to bolo zaujimave pre projekt DELPHREE.
GetStartRow(int row) - vrati celkovu poziciu prveho znaku v riadku od zaciatku
textu
GetEndRow(int row) - vrati celkovu poziciu posledneho znaku v riadku od
zaciatku textu
SetStartRow(int row) - nastavi txt. kurzor na zaciatok riadku (HOME)
SetEndRow(int row) - nastavi txt. kurzor na koniec riadku (END)
GetCol - vrati cislo STLPCA v ktorom je text. kurzor.
GetRow - vrati cilso riadku v ktorom je text. kurzor. - toto mam vyriesene.
SetCol(int col) - nastavi txt. kurzor sa na pozadovany stlpec.
SetRow(int row) - nastavi txt. kurzor na pozadovany riadok.
Archiv som cital. Funkciu "UpdateCursorPos" som nikde v prikladoch nenasiel.
Druhy napad je zaujimavy, ale neviem ako zistim dlzku riadku.
Ak ma niekto nejaky napad, prip. uz nieco vyriesil, tak by mi velmi pomohol.
Ocenim kazde kopnutie dopredu. Najlepsie poriadne silne, aby to slo
rychlejsie.
;)))
/LH
TParams.ParseSQL
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 10.2.1999 16:18:31
Vsimli jste si, ze v Delphi 4.02 nechodi metoda TParams.ParseSQL ?
Je tam bug koncici vyjimkou EAccessViolation.
-----------
Ing. Martin Dupal
address: Hodolanska 35
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
Application Error
[*] Petr Kandera <p_kandera(zv)usa(tec)net> - 10.2.1999 17:29:34
V D2 Tools/Options: Preferences/Debugging - polozka Break on exceptions.
Petr Kandera
<p_kandera(zv)usa.net>
----- Original Message -----
From: Petr Kro�a ml. <pkroca(zv)compact(tec)cz>
To: Delphi KONFERENCE <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 10, 1999 4:11 PM
Subject: Application Error
>Potreboval bych vedet, jakou direktiovou mam vypnout standartni osetreni
>chyb a vyjimek. Pouzivam komponenty IPworks (TCP/IP). Pri logovani na FTP
>zadam spatne heslo a aplikace v prostredi delphi spadne. Delphi hlasi
>chybovy kod a teprve kdyz v aplikaci pokracuji mi kod zobrazi samotna
>aplikace. Jak se vyhnout tomu, aby to spadlo a neco o chybach se psalo jen
>kdyz o to ja mam zajem ?
>
>Dik PK
>Problemy s tiskem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 19:01:08
Martin Bodlak wrote:
>
> Cau,
>
> stava se mi, ze pri tisku se spatne prepocitaji fonty na canvasu
> tiskarny (podle DPI a tak). Muze za to driver tiskarny, nebo je chyba ve
> Windows? Pripadne v Delphi..?
>
> Zatim to resim tak, ze to prepoctu rucne:
>
> fnt := TFont.Create;
> fnt.Assign(FrmMain.Font);
> FrmMain.Font.Assign(XPrintFont);
> h := FrmMain.Font.Height;
> ACanvas.Font.Assign(XPrintFont);
> ACanvas.Font.Height := Round((h * XFactorV) - 1);
> FrmMain.Font.Assign(fnt);
> fnt.Free;
Ahoj,
Problem muze byt v tom, ze jsi nenastavil PixelsPerInch u fontu ktery pouziva
Printer.Canvas.
Viz odkaz:
http://www.inprise.com/devsupport/delphi/ti_list/TI3211.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
QRPreview a QRCompositeReport
[*] Standa Cerny <s.cerny(zv)mod(tec)cz> - 10.2.1999 19:04:50
Ahoj
promin, ze odpovidam az ted, byl jsem sluzebne dva dny v trapu.
Neni to z moji hlavy, ale z hnihy Mistrovstv� v DELPHI 3.// Do udalosti OnPreview vsech sestav
PrevForm.QRPreview1.QRPrinter := TQRPrinter(Sender);
// do udalosti QRCompositeReport1AddReports
begin
With Sender as TQRCompositeReport do begin
Reports.Add(QuickRep1);
Reports.Add(QuickRep2);
...
end;
end;
// a nakonec
QRCompositeReport1.Preview;
Standa Cerny
-----P�vodn� zpr�va-----
Od: Lubos <bruce(zv)pobox.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �nora 1999 7:17
P�edm�t: Re: QRPreview a QRCompositeReport
>> Zdravim programatory
>> vytvoril jsem si vlastni nahled tiskove sestavy pomoci komponenty
QRPreview,
>> a funguje to. Dale jsem otestoval komponentu QRCompositeReport, ktera
>> umi spojovat QuickReporty do jedne sestavy. Poradte jak to dat dohromady.
>> Neustale se sestava ukazuje v tom implicitnim nahledu.
>
>jezisi clovece, toto je to co ja potrebujem .
>Chces povedat ze sa ti zostava zobrazuje len ako Preview ?
>Ak ano tam mi prosim ta napis ako si to urobil.
>
>vdaka.
>
>/LH
>
>
Riadok a stlpec
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 19:07:56
Lubos wrote:
>
> > Mam dalsi problemik.
> > Vie mi niekto povedat ako ziskam cislo riadku a cislo stlpca v TRichEdit
> > prip. TMemo.
>
> Caute All !
> Uz som jeden problem vyriesil.
> Viem zistit riadok.
> Je na to msg EM_EXLINEFROMCHAR.
> Ale nevie nahodou niekto nejaky sikovny a rychly sposob na
> urcenie stlpca ?
Ahoj,
Kdysi se to tu jiz resilo, je to v archivu:
http://www.delphi(tec)cz/soubor.asp?dir=\archiv\1998\mar\03\dlfaaaaf.htm
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
COM porty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 19:18:13
Vaclav Sazima wrote:
>
> Ahoj,
> nevite nekdo, jak zjistit, ktere seriove porty jsou instalovany v
> pocitaci (W95 a NT)?
> Dekuji Vaclav Sazima
Ahoj,
Patrne to bude nekde v registru, nebo to lze udelat i pomoci prochazeni
"rozumneho" poctu moznych portu (rekneme max.do 32) a u kazeho urcit
jestli existuje. Lze to udelat nejak takhle:
const
PS_OPEN = 0;
PS_CLOSE = 1;
PS_NOTEXIST = 2;
type
TPortState = packed record
ComNumber: Word;
State: Word;
end;
function AfGetPortState(PortNumber: Integer): TPortState;
var
DeviceHandle: THandle;
DeviceName: String;
begin
Result.ComNumber := PortNumber;
DeviceName := Format('COM%d', [PortNumber]);
DeviceHandle := CreateFile(PChar(DeviceName), GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING, 0, 0);
if DeviceHandle = INVALID_HANDLE_VALUE then
begin
if GetLastError = ERROR_FILE_NOT_FOUND then
Result.State := PS_NOTEXIST
else
Result.State := PS_OPEN;
end else
begin
CloseHandle(DeviceHandle);
Result.State := PS_CLOSE;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Zjisteni spustenych aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 19:19:55
Pavel Cisar wrote:
>
> Haj hou!
>
> Funkce EnumWindows Win32 API ti da handle top-level oken a funkci
> GetWindowText mas caption.
Ahoj,
Nebo lze vyuzit ToolHelp funkci pro prochazeni procesu. U nich je jedinym
problemem, ze nejsou implementovany v NT4, ale podle M$ by meli byt v NT5.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
CDX indexy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 19:35:40
"Petr Ma��k" wrote:
>
> Zdravim vsechny,
> mam problem s nacitanim hodnot z tabulky FoxPro s *.cdx indexy (mujtable) z jineho �programu. Potrebuji prepsat urcita data do Pdx tabulky. Definuji v BDE(5.01) objekt s nativn�m ovladacem Foxpro, vezmu TQuery, nastav�m SQL dotaz select * from mujtable,pokusim se zmenit Active na true, dostanu hlasku Invalid Index Descriptor. Co s tim ?? Staci mi sekvencni precteni vsech zaznamu, index nepotrebuji. Pouziji-li napojeni pres TTable, situace je stejna, pokusim-li se pridat IndexFile, nabizi mi jen MDX nebo NDX indexy, bez ohledu co nastavim v TableType ( tam se FoxPro ani nenabidne). Nebo delam naco fatalne chybne ??
Ahoj,
Problem muze byt v tom, ze BDE totiz nepodporuje vsechny vyrazy v indexech. Tyto
omezeni jsou popsany tady:
http://www.inprise.com/devsupport/bde/qanda/qna109.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Rozliseni monitoru
[*] Pleticha Ji�� - 10.2.1999 20:15:34
Ahojky,
podle www.delphi(tec)cz je toto tema mnohokrat probrane,
jak ho ale zmenit behem behu programu jako u Windows ??
V Delphi novacek OceaniC
Riadok a stlpec
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 10.2.1999 20:19:05
ahoj
//----------------
type
TPozice = Record
Radek:Word;
Sloupec:Word;
end;
//------------------------------
var Pozice:TPozice;
begin
Pozice:=GetMemoLineCol(DBRichEdit1);//---------------------------------------
function GetMemoLineCol( var memo:TDbRichEdit):TPozice;
var
SloupecP,RadekP:word;
begin
WITH Memo DO
BEGIN
RadekP := SendMessage (memo.Handle, EM_LINEFROMCHAR, SelStart, 0);
SloupecP := SelStart - SendMessage (Handle, EM_LINEINDEX, RadekP,
0) + 1;
END;
Result.Radek:=RadekP;
Result.Sloupec:=SloupecP;
end;
//--------------------------------------------------------------------------
-------
-----P�vodn� zpr�va-----
Od: Lubos <bruce(zv)pobox.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. �nora 1999 9:26
P�edm�t: Re: Riadok a stlpec
>> Mam dalsi problemik.
>> Vie mi niekto povedat ako ziskam cislo riadku a cislo stlpca v TRichEdit
>> prip. TMemo.
>
>Caute All !
>Uz som jeden problem vyriesil.
>Viem zistit riadok.
>Je na to msg EM_EXLINEFROMCHAR.
>Ale nevie nahodou niekto nejaky sikovny a rychly sposob na
>urcenie stlpca ?
>
>Vdaka.
>
>/LH
>COM porty
[*] Petr Kure� - 10.2.1999 21:19:21 -0000
To zalezi na systemu, pod NT muzes uspesne pouzi treba fci pro mapovani
dosovskych zarizeni, ale pod 95 ti to da hlaseni, ze mas v�ech 8 portu.
Petr
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] On Behalf Of
Vaclav Sazima
Sent: Wednesday, February 10, 1999 11:19 AM
To: Delphi
Subject: COM porty
Ahoj,
nevite nekdo, jak zjistit, ktere seriove porty jsou instalovany v
pocitaci (W95 a NT)?
Dekuji Vaclav Sazima
Winhlp32 - offtopic
[*] Petr Kure� - 10.2.1999 21:21:01 -0000
To se sem tam stava, me se nekolikrat stalo, ze jsem proste rejstrik
nevyrobil, i kdybych se zblaznil. Proste to neslo. Mam NT 4 a v te dobe SP3.
Pokud se pamatuji, jedine co pomohlo bylo nainstalovat NT znovu ( prijemnou
zabavu ), nebo ten rejstrik vytvorit jinde a pretahnout (soubory *.fts).
P.S. : pameti to nebude, to jsem zkousel.
Petr
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] On Behalf Of
Vaek�o Martin
Sent: Wednesday, February 10, 1999 9:09 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Winhlp32 - offtopic
Hi, pros�m v�s o radu.
M�m C++Builder 3 Prof. P�i vytv��en� seznamu slov se mi u n�kolika help� (z
adres��e MS Help) hl�s�: "Program provedl neplatnou operaci a bude ukon�en."
Detaily: "Aplikace Winhlp32 zp�sobila chybu z�sobn�ku v modulu Kernel32.dll
na adrese...".
Nev�te, co s t�m ???
Martin Va�k��
mvackar(zv)cpoj(tec)cz
TlistView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 22:01:25
Jirka wrote:
>
> Ahoj,
> nepomohl by me nekdo.Potrebuji dat do okna TlistView pretazenim ikonu z
> plochy.Pouzivam TimageList a TlistView, ale stale se me nedari.
> Alespon kousek kodu !!!
Ahoj,
Pokud s jedna o soubory ci jejich zastupce tak to lze udelat treba takhle:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellAPI, ComCtrls, ImgList;
type
TForm1 = class(TForm)
ListView1: TListView;
SmallImagesList: TImageList;
LargeImagesList: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FNewWndProc, FOldWndProc: Pointer;
procedure ControlWndProc(var Msg: TMessage);
procedure DropFiles(DropHandle: HDROP);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
FNewWndProc := MakeObjectInstance(ControlWndProc);
FOldWndProc := Pointer(SetWindowLong(ListView1.Handle, GWL_WNDPROC, Longint(FNewWndProc)));
DragAcceptFiles(ListView1.Handle, True);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(ListView1.Handle, False);
SetWindowLong(ListView1.Handle, GWL_WNDPROC, Longint(FOldWndProc));
FreeObjectInstance(FNewWndProc);
end;
procedure TForm1.ControlWndProc(var Msg: TMessage);
begin
with Msg do
if Msg = WM_DROPFILES then DropFiles(WParam) else
Result := CallWindowProc(FOldWndProc, ListView1.Handle, Msg, WParam, LParam);
end;
procedure TForm1.DropFiles(DropHandle: HDROP);
var
FilesCount, I: Integer;
FileName: array[0..MAX_PATH] of Char;
FileIcon: TIcon;
FileInfo: TSHFileInfo;
begin
FileIcon := TIcon.Create;
try
ListView1.Items.BeginUpdate;
FilesCount := DragQueryFile(DropHandle, MAXDWORD, nil, 0);
for I := 0 to FilesCount -1 do
begin
DragQueryFile(DropHandle, I, (zv)FileName, Sizeof(FileName));
SHGetFileInfo(FileName, 0, FileInfo, Sizeof(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
FileIcon.Handle := FileInfo.hIcon;
SmallImagesList.AddIcon(FileIcon);
SHGetFileInfo(FileName, 0, FileInfo, Sizeof(FileInfo), SHGFI_ICON or SHGFI_LARGEICON);
FileIcon.Handle := FileInfo.hIcon;
LargeImagesList.AddIcon(FileIcon);
with ListView1.Items.Add do
begin
Caption := ExtractFileName(FileName);
ImageIndex := Index;
end;
end;
ListView1.Items.EndUpdate;
DragFinish(DropHandle);
finally
FileIcon.Free;
end;
end;
end.
-------------------------
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object ListView1: TListView
Left = 16
Top = 32
Width = 337
Height = 217
Columns = <>
HotTrackStyles = []
LargeImages = LargeImagesList
SmallImages = SmallImagesList
TabOrder = 0
end
object SmallImagesList: TImageList
Left = 16
Top = 264
end
object LargeImagesList: TImageList
Height = 32
Width = 32
Left = 56
Top = 264
end
end
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
BorderStyle
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 22:02:39
Slavek Rydval wrote:
>
> Preji vsem pekneho dne,
>
> pouzivam komponenty PageControl a tem chybi vlastnost BorderStyle.
> Pokud jich je vice na sobe, nevypada to pekne. Necha se s tim neco
> udelat?
Ahoj,
Na DSP je komponenta pctrlex.zip ktera by to mela resit.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
QuickReport
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 22:02:10
Martin wrote:
>
> (Object inspektor / Functions) som nenasiel , mohli by ste mi to blizsie
> vysvetlit ? Ukazal som na komponentu QuicReport a hladal v Objekt
> Inspektore. Prip. maly priklad by bodol.
Ahoj,
Pokud vim, tak v QR1.1 (soucast Delphi 2) jeste Functions nejsou. Budes
to muset nejak obejit pomoci TQRDBCalc a TQRLabel.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Chyba na paradoxe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 22:02:28
Roman Toda wrote:
>
> Ahoj vsetci...
>
> Pri otvarani tabulky mi aj database desktop hlasi takuto chybu: "Corrupt
> table/index header. File .....xxx.db". Ako viem este zachranit tie data
> ??
Ahoj,
Zkus pouzit TUtility a Paradox Repair. Neni to ale pro 16bit Delphi.
Najdes to tady: http://www.inprise.com/devsupport/bde/utilities.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
QuickReport a Jpeg v databazi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.2.1999 22:02:17
Ales Zeleny wrote:
>
> DDV,
>
> mam probblem (co jineho),
> do databaze ukladam prez BlobStream JPeg obrazky (coz krasne funguje), jejich
> malovani na formular je tez v pohode, ale jak je dostat na QuickReport - tam se
> nabizi pouze TDBImage, ale ten neumi zobrazit JPEG.
>
> Nevite jak na to?
Ahoj,
Tak pouzij TQRImage a v danem bandu v udalosti BeforePrint to preved z JPEGu
do bitmapy a tu pak zobraz.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Urgentne TCP/IP
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 10.2.1999 22:59:59
Ahoj vsichni,
potrebuji dost nutne nejake ne-komponentove (tzn. ciste objekty ne komponenty) zapouzdreni winsocku, staci mi neco jako TSocket. Potrebuji to free a pokud mozno se zdrojem, je to pro komercni aplikaci. Dekuji za odpovedi.
Ondrej Krajicek
Chyba na paradoxe
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 11.2.1999 00:19:16
V prvni fazi bych tabulku zazalohoval.
1. moznost: odmazat vsechny indexy a vubec vsechno krome *.DB,
pak to zkusit otevrit.
2. moznost: take vsechno odmazat a potom zkusit Table restructure
v DBD, pokud je to tabulka verze 4, radeji doporucuji
dosovsky paradox - take restructure.
3. moznost: pokus je to verze 4, pak dosovsky program TUTILITY.EXE
4. moznost: Existuji podobne utility, ale jiz ne od Borlandu, na Inetu
i do Windows. Neco delal take Tomas Mazurek.
5. moznost: pokud napr. tabulka jde otevrit a pri listovani se DBD zhrouti,
vytvor si prazdnou strukturu a data do ni zaznam po zaznamu
pridavej. Az to spadne, udelej totez, ale od konce tabulky.
vetsinou takhle zachranim az 1-2 recordy vsechno.
6. moznost: podivej se na "www.kallista.com/TechPapers/ParadoxFF/PdoxFF1.htm"
(na konci je mozna html, uz mi to tisklo pres okraj) a podivej se
na strukturu souboru. Pak si napis program a data vybagruj :-)))
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
----------
> Odes�latel: Roman Toda <normex(zv)mail.pvt.sk>
> Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Chyba na paradoxe
> Datum: 10. �nora 1999 14:24
>
> Ahoj vsetci...
>
> Pri otvarani tabulky mi aj database desktop hlasi takuto chybu: "Corrupt
> table/index header. File .....xxx.db". Ako viem este zachranit tie data
> ??
>
> Aplikacia je v D1
>
> --
> Mgr. Roman Toda - developers center
> mailto:normex(zv)mail.pvt.sk; http://www.technickenormy.com
> Normex - fulltext retrieval information system for technical standard
>
> QRPreview a QRCompositeReport
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 11.2.1999 00:22:38
> Odes�latel: Miloslav Skacel <kastner(zv)infos(tec)cz>
> >Skadial sa da zohnat QRCompositeReport, v delphi som ju nenasiel ? Mozno som
> >zle hladal.
>
> urcite je soucasti placene verze QR
>
> S pozdravem
> Miloslav Skacel
QRCompositeReport je soucasti normalniho QR v D4Prof.
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
editace DFM
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 11.2.1999 02:23:26
Je nejaky program na editovani formularovych DFM souboru ?QRPreview a QRCompositeReport
[*] Martin <martin(zv)geoplanpp.sk> - 11.2.1999 07:04:11
a v D2 ?
-----P�vodn� spr�va-----
Od: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 11. febru�r 1999 0:44
Predmet: Re: QRPreview a QRCompositeReport
>> Odes�latel: Miloslav Skacel <kastner(zv)infos(tec)cz>
>> >Skadial sa da zohnat QRCompositeReport, v delphi som ju nenasiel ? Mozno
som
>> >zle hladal.
>>
>> urcite je soucasti placene verze QR
>>
>> S pozdravem
>> Miloslav Skacel
>
>QRCompositeReport je soucasti normalniho QR v D4Prof.
>
>
>S pozdravem Zdenek
>
>--------------------------------------- E-Mail -------------------------
>| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
>| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
>| ( o o) |--------------------- WWW --------------------------|
>| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
>------------------------------------------------------------------------
>| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
>------------------------------------------------------------------------
editace DFM
[*] Libor Valka <valka(zv)brno.cas(tec)cz> - 11.2.1999 07:05:17
Ahoj,
nekolik jich muzes najit na TORRY nebo DSP. Nazvy si ale bohuzel nepamatuju.
Libor
valka(zv)brno.cas(tec)cz
valka(zv)ipm(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Petr Kro�a ml.
> Odesl�no: 11. �nora 1999 2:23
> Komu: Delphi KONFERENCE
> P�edm�t: editace DFM
>
>
> Je nejaky program na editovani formularovych DFM souboru ?
>
>Problemy s tiskem
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 11.2.1999 08:44:18
Petr Vones wrote:
>
> Problem muze byt v tom, ze jsi nenastavil PixelsPerInch u fontu ktery pouziva
> Printer.Canvas.
>
Ne, tak jednoduche to bohuzel neni. On se ten font neprepocte _uplne_
blbe, jen _trosku_ blbe. Na screenu ma Height -11, na tiskarne -33.
Pritom pomer DPI tiskarny a screenu je 3.125 a 3.125 * (-11) je -34.375
a nikoliv -33. Na druhou stranu, me to tiskne dobre az s -35 :))) coz je
trosku magie.
Jestli prepocet zajistuje ovladac, mohl by byt problem v nem, he?
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)QuickReport a Jpeg v databazi
[*] Ales Zeleny <zelenya-l(zv)mlp(tec)cz> - 11.2.1999 08:50:14
Diky, tohle mne nenapadlo :-(
> Tak pouzij TQRImage a v danem bandu v udalosti BeforePrint to preved z
> JPEGu do bitmapy a tu pak zobraz.
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Outlook MSG
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.2.1999 09:15:36
Ahoj,
prosim o radu. Lze nejak jednoduse prevest (importovat, exportovat,
konvertovat...) MSG soubor pro Outlook do textu TXT a zase zpatky? Diky
Jaro B.Chyba na paradoxe
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 11.2.1999 09:17:23
na http://sunsite.icm.edu.pl/delphi/ je atabrepp.zip
popis:
The lsTableRepair is a Paradox table repair component. Just drop in on form,
assign a DatabaseName (or directory) and a TableName (in design-time or
run-time) and execute the Rebuild method. It needs the tutil32.dll file
(*included* in this zip)
no src., source available on request
M.
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 10. �nora 1999 15:35
P�edm�t: Chyba na paradoxe
>Ahoj vsetci...
>
>Pri otvarani tabulky mi aj database desktop hlasi takuto chybu: "Corrupt
>table/index header. File .....xxx.db". Ako viem este zachranit tie data
>??
>
>Aplikacia je v D1
>
>--
>Mgr. Roman Toda - developers center
>mailto:normex(zv)mail.pvt.sk; http://www.technickenormy.com
>Normex - fulltext retrieval information system for technical standard
>
>
>
>
CDROM
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 11.2.1999 09:29:12
Zdrav�m All!
Cht�l bych se zeptat, je mo�n� zjistit jestli jsou dv��ka CDROM
mechaniky otev�eny, nebo ne? Nemysl�m t�m jestli je mechanika p�ipravena
pro �ten� �i ne.
D�luji Nov�k
CD
[*] SICHTA Daniel <Sichta(zv)asset.sk> - 11.2.1999 09:32:26
Caute !!
Existuje nejaka API funkcia na zistenie CD v driveri ? To znamena ci je
nejake CD vlozene v CD-Romke ?
Dakujem !!!
Ing. Daniel �ichta
ASSET s.r.o. Rosinsk� 8
011 05, �ilina SLOVAKIA
% 421-89-542-15
) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> PS] Zakony a Open source v ceskych zemich
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 11.2.1999 09:38:37
Dneska jsem na Inetu objevil tenhle odkaz, asi vas to bude vsechny
zajimat, je to rozbor Open Content Principles/Licence, verze 1.01, a GNU
General Public Licence, verze 2.02 z hlediska ceskeho zakonodarstvi.
Velice poucne...
http://www.fpm(tec)cz/czech/Publikace/oplana.htm
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* ardour(zv)usa.net */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
/* If you don't have ICQ you can page me through: My Personal */
/* Communication Center: http://wwp.mirabilis.com/4111110 */
/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
</TT>
Riadok a stlpec
[*] Lubos <bruce(zv)pobox.sk> - 11.2.1999 09:54:36
SUPER !
Vdaka.
Medzitym som to vyriesil, ale toto tvoje je lepsie.
Ja som posielal
SendMessage(RichEdit1->Handle,WM_KEYDOWN ,VK_HOME ,0);
a potom som odpocital povodnu a tuto poziciu.
/LH
>
> //----------------
> type
>
> TPozice = Record
> Radek:Word;
> Sloupec:Word;
> end;
>
> //------------------------------
>
> var Pozice:TPozice;
> begin
> Pozice:=GetMemoLineCol(DBRichEdit1);
>
> //---------------------------------------
>
> function GetMemoLineCol( var memo:TDbRichEdit):TPozice;
> var
> SloupecP,RadekP:word;
> begin
> WITH Memo DO
> BEGIN
> RadekP := SendMessage (memo.Handle, EM_LINEFROMCHAR, SelStart, 0);
> SloupecP := SelStart - SendMessage (Handle, EM_LINEINDEX, RadekP,
> 0) + 1;
> END;
> Result.Radek:=RadekP;
> Result.Sloupec:=SloupecP;
> end;
>
> //--------------------------------------------------------------------------
> -------
>ODBC Komponenty
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 11.2.1999 10:12:03
ahoj vsichni.
Nezna nekdo komponenty pro primy pristup k ODBC ?
Nepotrebuji toho moc, staci, aby umely SELECT. Nemusi
byt ani free, mohlo by to byt do 100$.
Zkousel jsem MODBC od Konstantina, ty mi spolehlive shodily
program i Delphi.
Zkousel jsem ODBC98, ty mi nesly s ovladacem Interbase od
Visigenic.
OdbcExpress jsem nezkousel, protoze to uz je moc drahe.
Dokonce to ani nemusi byt potomek TDataSet, hlavne aby to
fungovalo.
Radim Kunz
TrichEdit fcie
[*] Vavro Vladimir Ing. <Vlado(zv)tento.sk> - 11.2.1999 10:13:35
Myslim, ze z DSP som stahoval komponentu REdit ( potomok RichEdit ). Ma
pridane niekolko properties. Teba by mozno zaujimali
property CurrentRow: integer;
Get or set the current row where the caret is at
property CurrentCol: integer;
Get or set the current column where the caret is at
Nie je tam sice vsetko co hladas, ale mozno pomoze.
Zdravim
Vlado Vavro
>Caute All !
>Vyhlasujem patranie po nasledujucich funkciach pre TRichEdit
(TMemo).
>Mozno by to bolo zaujimave pre projekt DELPHREE.
>GetStartRow(int row) - vrati celkovu poziciu prveho znaku v
riadku od zaciatku
>textu
>GetEndRow(int row) - vrati celkovu poziciu posledneho znaku v
riadku od
>zaciatku textu
>SetStartRow(int row) - nastavi txt. kurzor na zaciatok riadku
(HOME)
>SetEndRow(int row) - nastavi txt. kurzor na koniec riadku (END)
>GetCol - vrati cislo STLPCA v ktorom je text. kurzor.
>GetRow - vrati cilso riadku v ktorom je text. kurzor. - toto
mam vyriesene.
>SetCol(int col) - nastavi txt. kurzor sa na pozadovany stlpec.
>SetRow(int row) - nastavi txt. kurzor na pozadovany riadok.
Dotaz na DBGrid ap.
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 11.2.1999 10:24:39
Cau,
pridej do napr. TTable lookup field, ktery umistis do DBGridu - on Ti tam
potom um�st� ComboBox.
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Tom� R��i�ka <ruzicka(zv)com-tech(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �nora 1999 16:03
P�edm�t: Dotaz na DBGrid ap. Zdar lidi !
Potreboval bych poradit.
Potrebuju na formular umistit nejaky DBGrid, kter� bude slouzit k
zadavani zaznamu do nejake tabulky. Nektere z polozek (napr. Jmena lidi)
jsou uz umisteny v jin� tabulce v databazi a ja bych chtel umoznit
uzivateli, aby tato data nemusel typovat (a zaroven mu znemoznit zadat n�co
jineho), ale aby mohl tato data vytahnout z tabulky. Predstavuju si to tak,
ze by se nektere sloupce v gridu (polozky) chovaly jako ComboBox. Neexistuje
na to nejaka komponenta ? Delam to v Builderu 1. Zkuste poradit, diky moc !
Tomas
Ruzicka(zv)com-tech(tec)cz
Tomas.ruzicka(zv)post(tec)cz
COM porty
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 11.2.1999 10:28:22
Cau,
Adresa v registry pro Win98 (mozna i 95) a pro NT4 server je
HKEY_LOCAL_MACHINE\Hardware\devicemap\serialcomm
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. �nora 1999 23:42
P�edm�t: Re: COM porty
>Vaclav Sazima wrote:
>>
>> Ahoj,
>> nevite nekdo, jak zjistit, ktere seriove porty jsou instalovany v
>> pocitaci (W95 a NT)?
>> Dekuji Vaclav Sazima
>
>Ahoj,
>
>Patrne to bude nekde v registru, nebo to lze udelat i pomoci prochazeni
>"rozumneho" poctu moznych portu (rekneme max.do 32) a u kazeho urcit
>jestli existuje. Lze to udelat nejak takhle:
>
>const
> PS_OPEN = 0;
> PS_CLOSE = 1;
> PS_NOTEXIST = 2;
>
>type
> TPortState = packed record
> ComNumber: Word;
> State: Word;
> end;
>
>function AfGetPortState(PortNumber: Integer): TPortState;
>var
> DeviceHandle: THandle;
> DeviceName: String;
>begin
> Result.ComNumber := PortNumber;
> DeviceName := Format('COM%d', [PortNumber]);
> DeviceHandle := CreateFile(PChar(DeviceName), GENERIC_READ or
GENERIC_WRITE,
> 0, nil, OPEN_EXISTING, 0, 0);
> if DeviceHandle = INVALID_HANDLE_VALUE then
> begin
> if GetLastError = ERROR_FILE_NOT_FOUND then
> Result.State := PS_NOTEXIST
> else
> Result.State := PS_OPEN;
> end else
> begin
> CloseHandle(DeviceHandle);
> Result.State := PS_CLOSE;
> end;
>end;
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
Dotaz na menu
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 11.2.1999 10:31:38
Cau,
zkus v editoru Menu kontextovou nabidku - Import from resource.
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Tom� R��i�ka <ruzicka(zv)com-tech(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 9. �nora 1999 18:50
P�edm�t: Dotaz na menu
Ahoj !
Chtel jsem se zeptat, jak se da pridat do formulare menu, ktere je
ulozeno v resource (*.rc). Napr. nejaka DLL obsahuje ve svych resource menu
a ja to menu chci pridat k vlastnimu menu na formu (coz je TMainMenu atd.).
Tzn. jakymi funkcemi (bud z VCL nebo WIN API) se toho da docilit.
Diky moc.
Tomas
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
TrichEdit fcie - koniec
[*] Lubos <bruce(zv)pobox.sk> - 11.2.1999 10:32:45
Uz som to vyriesil.
Vdaka.
/LH
Internet
[*] Jirka <virt(zv)pepa(tec)cz> - 11.2.1999 10:33:02
Ahoj,
nevite jak mam odeslat v D3 postou soubor.Nejak nemohu najit jak zakodovat
soubor (Base64).Nepracoval s tim nekdo??Nechci jine externi komponenty.
Myslim si, ze by mely stacit ty vestavene.Nebo ne?
Jirka Virt
email: virt(zv)pepa(tec)cz
LocalShare = true v kodu
[*] reaia(zv)snt(tec)cz (REAiA CONSULTING, s. r. o.) - 11.2.1999 10:37:34
Ahoj,
muzete mi nekdo poradit, jak v kodu (D3, BDE 4.0) nastavit v BDE LocalShare
na true ?
Diky predem,
Jiri Becvar
TF export z QR
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 11.2.1999 11:10:33
Cau,
odpoved na Tvoji otazku neznam, ale zajimalo by mne jak se to exportuje do
HTML.
Predem dik.
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: BEKE Frantisek <beke(zv)asset.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �nora 1999 15:32
P�edm�t: TF export z QR
>Zdravim,
>neviete niekto, ci sa da exportovat QR preview ako RTF subor?
>Viem, ze do html sa to da...
>Dikes, Feri Beke
Wsock3r1
[*] Martin <msky(zv)atlas(tec)cz> - 11.2.1999 11:22:23
Pre pracu s IP pouzivam tuto komponentu:
DELPHI SOCKETS COMPONENT V3.0+
Written by: Gary T. Desrosiers, Enhanced, ported to Delphi 1, 2, and 3, by
Eric Engler,
Neviem vsak spracovat data z roznych klientov, vzdy mi udalost
onDataAvailable vyvola iba posledne akceptovany klient. Potrebujem spracovat
sucastne data z viacerych klientov. V nejakom casopise o PC som videl
popisanu komponentu, ktora sa na 99% zhodovala s touto, mala vsak naviac v
Properties vlastnost IP_Depend_Listening. Neviem sice, ci tato vlastnost
vyriesi moj problem, ale
neviete nahodou, co je to za komponenta a ako k nej prist?
Dakujem za kazdy podnet
MK
Riadok a stlpec
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 11.2.1999 11:26:05
>> Mam dalsi problemik.
>> Vie mi niekto povedat ako ziskam cislo riadku a cislo stlpca v TRichEdit
>> prip. TMemo.
Zkus neco podobneho : (funguje pro Memo, mozna i pro RichEdit, vraci string
ve tvaru Radek:Sloupec)
function TForm1.ActualPositionInMemo: string;
var Position: integer; LP1: longint;
begin
Position := SendMessage(Memo1.Handle, EM_LINEINDEX, -1, 0);
LP1 := SendMessage (Memo1.Handle, EM_LINEFROMCHAR, Position, 0);
Result := IntToStr (LP1+1);
LP1 := Memo1.SelStart - Position;
Result := Result + ':' + IntToStr (LP1+1);
end;
(pozn.: predpoklada se, ze na Formu je TMemo jmenem Memo1 - to je snad
jasne)
Zden�k Moravec zmo(zv)telecom(tec)cz
ParamStr a dlouha jmena souboru
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 11.2.1999 11:31:24
Prosim, muzete mi nekdo poradit, jak zajistit, aby pri spusteni programu se
v ParamStr(1) predavalo dlouhe jmeno souboru. Parametr predavam programu
budto dvojklikem v Exploreru, nebo pomoci praveho tlacitka + volby Odeslat
do (dal jsem si Zastupce do adresare SendTo ...). V programu si pomoci
ParamStr (1) nactu pouze kratke jmeno. Mam Delphi 3 Developer, ale to snad
neni tak podstatne.
Dekuji vsem,
Zden�k Moravec zmo(zv)telecom(tec)cz
EnumWindows
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 11.2.1999 11:35:28
Mam otazku pro zkusene Windows API programatory. Zaujala me funkce
EnumWindows, ale vsechny ukazky, ktere jsem o ni ziskal, slouzily pouze k
ziskani jednoho handlu, ktery pak nasledujici program zpracoval. Jak to
udelat, kdyz chci zpracovat vsechny handly, ktere mi postupne tato funkce
vytvari?
Predem dekuji za vsechny odpovedi,
Zden�k Moravec zmo(zv)telecom(tec)cz
Prvek v DataSet
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 11.2.1999 12:01:53
Pokud myslis, ze vis jeho poradove cislo tak pouzij metodu
MoveBy. Pokud myslis,ze vis nejake identifikacni cislo ulozene v
tabulce pouzij Locate.
From: "Medusa" <medusa(zv)brajan(tec)cz>
To: "Konference DELPHI" <delphi-l(zv)fwd(tec)cz>
Subject: Prvek v DataSet
Date sent: Mon, 8 Feb 1999 23:48:53 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> Ahoj,
>
> Jak jsem jiz jednou psal, database nejsou mym hobby, ale cas od casu je
> potreba do nich sahnout.
>
> A tu jsem narazil na nasledujici problem:
>
> Jak mam ziskat record zaznamu, nabo jak ho vybrat, pokud nechci "poskakovat"
> pomoci "next", ...
> (Neboli, mam cislem urceny zaznam a chci se vnem "hrabat"...)
>
> Dik za pomoc...
>
> Medusa
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4555 1269
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
ODBC Komponenty
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 11.2.1999 12:31:07
Cau,
Muzes zkusit naimportovat komponenty ADO z knihovny napr.: C:\PROGRAM
FILES\COMMON FILES\SYSTEM\ADO\MSADO15.DLL
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Radim Kunz <rkunz(zv)ova.comp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. �nora 1999 11:53
P�edm�t: ODBC Komponenty
>ahoj vsichni.
>
>Nezna nekdo komponenty pro primy pristup k ODBC ?
>Nepotrebuji toho moc, staci, aby umely SELECT. Nemusi
>byt ani free, mohlo by to byt do 100$.
>Zkousel jsem MODBC od Konstantina, ty mi spolehlive shodily
>program i Delphi.
>Zkousel jsem ODBC98, ty mi nesly s ovladacem Interbase od
>Visigenic.
>OdbcExpress jsem nezkousel, protoze to uz je moc drahe.
>
>Dokonce to ani nemusi byt potomek TDataSet, hlavne aby to
>fungovalo.
>
>Radim Kunz
COM port
[*] ALI <alinex(zv)alinex(tec)cz> - 11.2.1999 12:38:20
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim vsechny,
poradimi nekdo jak se obsluhuji COM porty, pripadne najakou nalejvarnu.
moc diky
ALI
Jak na password(y) v paradoxovych tabulkach
[*] Karel Pechanec <ka.pecha(zv)ova.pvtnet(tec)cz> - 11.2.1999 12:48:20
Prosil bych o jasnou a srozumitelnou odpoved na tema:
" Hesla v paradoxovych tabulkach. "
1) chci vlozit primarni heslo do zatim nezaheslovane tabulky
2) chci vymazat primarni heslo ze zaheslovane tabulky( heslo je sam.zname )
Odpovedi at jsou v soualdu se standatnimi komponenty nebo
s API funkcemi IDAPI (nemuzu zde zadne najit, nasel jsem pouze klasicke
PRISTUPY add,remove,... )
Diky za odpovedi (...nutne to potrebuji)Internet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.2.1999 12:50:31
>Ahoj,
> nevite jak mam odeslat v D3 postou soubor.Nejak nemohu najit jak
zakodovat
>soubor (Base64).Nepracoval s tim nekdo??Nechci jine externi komponenty.
>Myslim si, ze by mely stacit ty vestavene.Nebo ne?
je potreba zakodovat soubor jednim z techto kodovani
uuencode
base64
quted printable
rutiny, ktere toto umeji jsou urcite k nalezeni na DSP atd.
Jinak je treba prilohu obalit MIME hlavickami - nejjednodusi je okoukat je
napr z Outlook Expresu atd.
Zdravi
D. Toman
ParamStr a dlouha jmena souboru
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 11.2.1999 13:06:57
Zden�k Moravec wrote:
> Prosim, muzete mi nekdo poradit, jak zajistit, aby pri spusteni programu se
> v ParamStr(1) predavalo dlouhe jmeno souboru. Parametr predavam programu
> budto dvojklikem v Exploreru, nebo pomoci praveho tlacitka + volby Odeslat
> do (dal jsem si Zastupce do adresare SendTo ...). V programu si pomoci
> ParamStr (1) nactu pouze kratke jmeno. Mam Delphi 3 Developer, ale to snad
> neni tak podstatne.
caves,
v rx je na podobne veci funkcia a cele to potom vyzera nasledovne
if ( ParamCount>0 ) then begin
mvPrg:= ParamStr(1);
mvPrg:= ShortToLongPath(mvPrg);
end;
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
CD
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 11.2.1999 13:13:34
Ahoj,
zkus tuhle funkci:
function DiskInDrive(const Drive: char): Boolean;
var
DrvNum: byte;
EMode: Word;
begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord('a') then dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then result := true
else messagebeep(0);
finally
SetErrorMode(EMode);
end;
end;********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P�vodn� zpr�va-----
> Od: SICHTA Daniel [SMTP:Sichta(zv)asset.sk]
> Odesl�no: 11. �nora 1999 9:32
> Komu: 'Delphi'
> P�edm�t: CD
>
> Caute !!
>
> Existuje nejaka API funkcia na zistenie CD v driveri ? To znamena ci
> je
> nejake CD vlozene v CD-Romke ?
> Dakujem !!!
>
> Ing. Daniel �ichta
> ASSET s.r.o. Rosinsk� 8
> 011 05, �ilina SLOVAKIA
> % 421-89-542-15
> ) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> Zjisteni velikosti atd. souboru na wwwebu
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 11.2.1999 13:41:43
Cau,
mam pocit, ze se to nejak neposlalo... Jestli jo a ctete to podruhe, tak
sorry.
Lze nejak _jednoduse_, tj. bez nejakych velikych komponent, zjistit
velikost a datum apod. souboru na wwwebu? Abych mohl pri downloadovani
ukazovat teplomer a zjistovat udaje o souborech driv, nez je stahnu na
lokal.
Nejlip by se mi hodilo neco jako FindFirst & spol., ale pro Internet.
Komponentu FTP nechci pouzivat, kvuli podpore proxy aj. Jestli je nejake
jine reseni, prosim...
Nebo me nasmerujte na nejake information sources.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)EnumWindows
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 11.2.1999 13:44:15
Zden�k Moravec wrote:
>
> Jak to
> udelat, kdyz chci zpracovat vsechny handly, ktere mi postupne tato funkce
> vytvari?
>
Napr. v te callback funkci (ktera se predava jako prvni z parametru)
pridavat handly do listu a pak si s nema delat cokoliv v kodu po volani
EnumWindows.
Ukazku kodu nemam po ruce, ale z WinAPI helpu by to melo byt
vykoukatelne.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)EnumWindows
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 11.2.1999 13:46:35
Ahoj,
myslim, ze k tomu neslouzi tato funkce, ale mely by se pouzit funkce
GetTopWindow a GetNextWindow. Kdyz tak napis na soukromy mail a posli
kousek kodu.
********************************************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
> -----P�vodn� zpr�va-----
> Od: Zden�k Moravec [SMTP:zmo(zv)telecom(tec)cz]
> Odesl�no: 11. �nora 1999 11:35
> Komu: Konference Delphi
> P�edm�t: EnumWindows
>
> Mam otazku pro zkusene Windows API programatory. Zaujala me funkce
> EnumWindows, ale vsechny ukazky, ktere jsem o ni ziskal, slouzily
> pouze k
> ziskani jednoho handlu, ktery pak nasledujici program zpracoval. Jak
> to
> udelat, kdyz chci zpracovat vsechny handly, ktere mi postupne tato
> funkce
> vytvari?
>
> Predem dekuji za vsechny odpovedi,
> Zden�k Moravec zmo(zv)telecom(tec)cz
> ParamStr a dlouha jmena souboru
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 11.2.1999 13:58:00
Skus se podivat na http://www.chami.com/tips/delphi/110896D.html
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+> -----Original Message-----
> From: Zden�k Moravec [mailto:zmo(zv)telecom(tec)cz]
> Sent: Thursday, February 11, 1999 11:31 AM
> To: Konference Delphi
> Subject: ParamStr a dlouha jmena souboru
>
>
> Prosim, muzete mi nekdo poradit, jak zajistit, aby pri
> spusteni programu se
> v ParamStr(1) predavalo dlouhe jmeno souboru. Parametr
> predavam programu
> budto dvojklikem v Exploreru, nebo pomoci praveho tlacitka +
> volby Odeslat
> do (dal jsem si Zastupce do adresare SendTo ...). V programu si pomoci
> ParamStr (1) nactu pouze kratke jmeno. Mam Delphi 3
> Developer, ale to snad
> neni tak podstatne.
>
> Dekuji vsem,
> Zden�k Moravec zmo(zv)telecom(tec)cz
>
> Text files
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 11.2.1999 13:58:52
Potreboval bych v DELPHI 1 pristupovat k textovym souborum (typu SDF).
Ten soubor ma do 50 000 zaznamu (jedna veta ma 255 bytu).
Neni to zadna sitova aplikace, jen jeden uzivatel.
Vim, ze pres BDE to jde (rychlost??). Ale nebylo by lepsi nejake
neBDE reseni. Nema s tim nekdo nejake zkusenosti?
Mozna by bylo lepsi pouzit nejakou MemoryTable komponentu (napr RX - ta
ale
asi jde pres BDE) nebo ten textovy soubor natahnout do nejake tabulky.
BTW: kdyz pujdu pres BDE (ttASCII) je tam nejake omezeni oproti pristupu
ke klasickym tabulkam (DBASE,PARADOX,SQL) - nemoznost insertovat, mazat,
...?
A daji se nejak nastavit jednotlive fieldy pro ten textovy soubor
(aby mi nebral celou vetu jako jeden field a ja pak ho nemusel
rozdelovat
pomoci CalculatedFields co asi dost spomaluje, ne)?
+-------------------------------+
| Ing. Petr Jezek |
| Delvina, s.r.o |
| 010 01 Zilina |
+ - - - - - - - - - - - - - - - +
| tel: +421 (89) 624 344 |
| fax: +421 (89) 621 018 |
| email: petr(zv)sevis.sk |
| web: www.delvina.sk |
+-------------------------------+ParamStr a dlouha jmena souboru
[*] Lubos <bruce(zv)pobox.sk> - 11.2.1999 14:42:23
> Prosim, muzete mi nekdo poradit, jak zajistit, aby pri spusteni programu se
> v ParamStr(1) predavalo dlouhe jmeno souboru. Parametr predavam programu
> budto dvojklikem v Exploreru, nebo pomoci praveho tlacitka + volby Odeslat
> do (dal jsem si Zastupce do adresare SendTo ...). V programu si pomoci
> ParamStr (1) nactu pouze kratke jmeno. Mam Delphi 3 Developer, ale to snad
> neni tak podstatne.
hmhmhm.
WinMain zoberie cely command riadok a ako si ho dalej upravis je na tebe.
Mne to berie v pohode dlhy nazov. Pozri a uprav si funkciu, ktora ti deli
command riadok na
jednotlive argumenty. Pravdepodobne mas v tom dlhom nazve medzery a funkcia to
vyhodnoti ako
dalsi argument.
int WINAPI WinMain(
HINSTANCE hInstance, // handle to current instance
HINSTANCE hPrevInstance, // handle to previous instance
LPSTR lpCmdLine, // pointer to command line
int nCmdShow // show state of window
);
/LH
EnumWindows
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 11.2.1999 14:45:00
posilam kus zdrojaku - ale neni to moc dobrej priklad protoze vsechno co se
deje za EnumWindows jde prepsat do GetWindows
M.
var lstrings : TStringList;
function GetWindows(Handle: HWND; Info: Pointer): BOOL; stdcall;
var ltext1 : array[0..255] of char;
begin
if GetWindowText(Handle, ltext1, SizeOf(ltext1) - 1) > 0 then
begin
lstrings.AddObject(ltext1, TObject(handle));
end;
Result := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var ln1 : integer;
ltext1 : string;
begin
lstrings := TStringList.Create;
lstrings.Clear;
EnumWindows((zv)GetWindows, ln1);
Memo1.Clear;
ln1 := 0;
while ln1 < lstrings.Count do
begin
if IsWindowVisible(HWND(lstrings.Objects[ln1])) then
begin
Memo1.Lines.Add(lstrings[ln1]);
SetWindowText(HWND(lstrings.Objects[ln1]), pchar('*** ' +
lstrings[ln1] + ' ***'));
end;
inc(ln1);
end;
lstrings.Free;
end;
end.
-----P�vodn� zpr�va-----
Od: Zden�k Moravec <zmo(zv)telecom(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 11. �nora 1999 12:03
P�edm�t: EnumWindows
>Mam otazku pro zkusene Windows API programatory. Zaujala me funkce
>EnumWindows, ale vsechny ukazky, ktere jsem o ni ziskal, slouzily pouze k
>ziskani jednoho handlu, ktery pak nasledujici program zpracoval. Jak to
>udelat, kdyz chci zpracovat vsechny handly, ktere mi postupne tato funkce
>vytvari?
>
>Predem dekuji za vsechny odpovedi,
>Zden�k Moravec zmo(zv)telecom(tec)cz
>
>
>
Dotaz na menu
[*] Tom� R��i�ka - 11.2.1999 14:51:54
To jsem nevedel, takze diky, ale presto to neresi muj problem, protoze ja to
potrebuju za behu programu. Jestli nekdo vi, jak na to, budu moc rad, kdyz
mi odpovi.
-----P�vodn� zpr�va-----
Od: Tomas Bradle <tomas(zv)cobra(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. �nora 1999 11:50
P�edm�t: Re: Dotaz na menu
>Cau,
>
>zkus v editoru Menu kontextovou nabidku - Import from resource.
>
>Tomas
>tomas(zv)cobra(tec)cz
>
> -----P�vodn� zpr�va-----
> Od: Tom� R��i�ka <ruzicka(zv)com-tech(tec)cz>
> Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
> Datum: 9. �nora 1999 18:50
> P�edm�t: Dotaz na menu
>
>
> Ahoj !
>
> Chtel jsem se zeptat, jak se da pridat do formulare menu, ktere je
>ulozeno v resource (*.rc). Napr. nejaka DLL obsahuje ve svych resource menu
>a ja to menu chci pridat k vlastnimu menu na formu (coz je TMainMenu atd.).
>Tzn. jakymi funkcemi (bud z VCL nebo WIN API) se toho da docilit.
>
> Diky moc.
>
>
COM port
[*] Lubos <bruce(zv)pobox.sk> - 11.2.1999 14:53:47
> poradimi nekdo jak se obsluhuji COM porty, pripadne najakou
> nalejvarnu.moc diky
ja som pouzival toto :
#define COM2 "COM2"
#define COM1 "COM1"
#define COM_BAUD_RATE 9600
#define COM_DATA_BYTE_SIZE 8
#define COM_PARITY NOPARITY
#define COM_STOP_BIT ONESTOPBIT
char Port[5];
HANDLE hCom;
DWORD dwBytes;
int iTimeWait = 5000;
bool bResult;
//--------------------------------------------------------------------------------
if (RadioGroup1->ItemIndex == 0) strcpy(Port,COM1);
else strcpy(Port,COM2);
//--------------------------------------------------------------------------------
void OpenPort ()
{
hCom = CreateFile (Port, //nazov streamu
GENERIC_WRITE | GENERIC_READ, //povolene
cinnosti
0, //sharing
NULL, //
OPEN_EXISTING, //
FILE_FLAG_OVERLAPPED, //Overlaped
NULL); //
if (hCom != INVALID_HANDLE_VALUE)
{
// If the handle is valid then the file exists.
DCB dcb;
GetCommState (hCom, &dcb);
dcb.BaudRate = COM_BAUD_RATE;
dcb.ByteSize = COM_DATA_BYTE_SIZE;
dcb.Parity = COM_PARITY;
dcb.StopBits = COM_STOP_BIT;
SetCommState (hCom, &dcb);
}
else
{
MessageBox(NULL,"Ned� sa otvori� v�stup na COM Port !!!","Chyba
!!!!",MB_OK);
CloseHandle(hCom);
hCom = NULL;
}
}
//---------------------------------------------------------------------------
int ReadPort (LPSTR pStr, DWORD dwSize)
{
BYTE *Buff;
Buff = pStr;
HANDLE hReadEvent;
DWORD dwBytes = 0;
OVERLAPPED rov = { 0 };
hReadEvent = CreateEvent (NULL, TRUE, FALSE, NULL);
rov.hEvent = hReadEvent;
ReadFile(hCom, pStr, dwSize, &dwBytes, &rov) ;
if (WaitForSingleObject (hReadEvent, iTimeWait) == WAIT_TIMEOUT) {;}
// MessageBox(NULL,"Neprisla odpoved !","Chyba !!!",MB_OK);
CloseHandle (hReadEvent);
return(dwBytes); // vratim pocet prijatych znakov
}
//---------------------------------------------------------------------------
inline void WINAPI ClosePort ()
{
CloseHandle (hCom);
hCom = NULL;
}
//---------------------------------------------------------------------------
inline void WINAPI WritePort (LPSTR pStr, DWORD dwSize)
{
bResult = 1;
bResult = WriteFile (hCom, pStr, dwSize, &dwBytes, NULL);
if (!bResult)
{
MessageBox(NULL,"Neda sa spojit s CM24","CHYBA",MB_OK);
MainForm->BitBtn3->Click();
}
}
//---------------------------------------------------------------------------
//SAMOTNE POUZITIE
//---------------------------------------------------------------------------
sprintf(str,"%c",ENQ); // posielam ENQ
dstr = strlen(str);
// poslem na port
WritePort(str,dstr);
ReadPort(str,1); // citam 1 znak z portu
/LH
TDataSet + OnFilteredRecord
[*] Petr S <p.sadovsky(zv)atlas(tec)cz> - 11.2.1999 15:17:17
Ahojte,
mam takovy problemek.Nemuzu prijit na to, kdy se provede event
OnFilteredRecord.
1) pri zadavani Filter:=...; ?
2) pri Filtered:=True; ?
Z jednoho formu do druheho prenasim udaje o tom, dle ktereho sloupce budu
mit filtr a jeho hodnotu
a jednou mi to event OnFilteredRecord provede a trikrat ne a z helpu nejsem
moudry.A vyse uvedene prikazy volam vzdy.
Diky.
Petr
Dotaz na menu
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 11.2.1999 15:28:20
Tom� R��i�ka wrote:
>
> potrebuju za behu programu. Jestli nekdo vi, jak na to, budu moc rad, kdyz
> mi odpovi.
>
> > Chtel jsem se zeptat, jak se da pridat do formulare menu, ktere je
> >ulozeno v resource (*.rc). Napr. nejaka DLL obsahuje ve svych resource menu
> >a ja to menu chci pridat k vlastnimu menu na formu (coz je TMainMenu atd.).
No jestli je to menu v formulari, tak TMenu ma tusim nejakou metodu
Merge ci tak nejak. Ale pokud je jenom v resourcech, tak nevim (ani jsem
to takhle ulozene v Delphi nevidel a v Cecku jsem uz dost dlouho
nedelal).
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Zadani hesla v par. tabulce
[*] tomas.mazurek(zv)vitkovice(tec)cz - 11.2.1999 15:32:09
Hello,
nasledujici kousek ukazuje, jak zadat primarni heslo pro tabulku typu
Paradox, je to vzato z D1.
procedure TForm1.Button1Click(Sender: TObject);
var
hDb : hDbiDb;
TblDesc : CRTblDesc;
Vysl : DbiResult;
pOptDesc : pFLDDesc;
OptDesc : FldDesc;
pOptData : pBYTE;
Heslo : Array[0..255] of Char;
{ Heslo : String;}
begin
If FileListBox1.ItemIndex = -1
then MessageDlg('Nebyl vybr�n ��den soubor',mtError,[mbOK],0)
else Try
begin
New(pOptDesc);
pOptDesc := (zv)OptDesc;
FillChar(TblDesc,sizeof(CRTblDesc),#0);
DbiOpenDatabase('SZNR','STANDARD',dbiReadWrite,dbiOpenExcl,ni
l,0,nil,nil,hDb); pOptDesc := AllocMem(sizeof(FLDDesc));
pOptData := AllocMem(20); OptDesc.iOffset := 0;
{ OptDesc.iLen := Length('czech') + 1;
StrPCopy(OptDesc.szName,'LANGDRIVER');
StrPCopy(PChar(pOptData),'czech');}
Table1.TableName := FileListBox1.FileName;
StrPCopy(TblDesc.szTblName,Table1.TableName);
StrCopy(TblDesc.szTblType,szParadox);
{ TblDesc.iOptParams := 1;
TblDesc.pFldOptParams := (zv)OptDesc;
TblDesc.pOptData := pOptData;}
TblDesc.bPack:= True;
StrPCopy(Heslo,'AAA');
StrPCopy(TblDesc.szPassword,'AAA');
TblDesc.bProtected := true;
Vysl := DbiDoRestructure(hDb,1,(zv)TblDesc,nil,nil,nil,False);
If Vysl = 0 then ShowMessage(''); end;
finally
begin
DbiCloseDatabase(hDb);
Table1.EnableControls;
Table1.Open;
DbiSaveChanges(Table1.Handle);
Table1.Close;
Dispose(pOptDesc);
end;
end;
end;
Jak vyplyva z kodu, neni na to spec. fce, ale heslo se zadava pres
fci pro restrukturalizaci tabulky...
Mejte se...memorytable
[*] Martin <martin(zv)geoplanpp.sk> - 11.2.1999 15:44:13
zdravim,
viackrat tu bola rec o MemoryTable. Mohol by mi to niekto blizsie objasnit ?
Martin
Zjisteni velikosti atd. souboru na wwwebu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.2.1999 16:23:55
>
>Lze nejak _jednoduse_, tj. bez nejakych velikych komponent, zjistit
>velikost a datum apod. souboru na wwwebu? Abych mohl pri downloadovani
>ukazovat teplomer a zjistovat udaje o souborech driv, nez je stahnu na
>lokal.
samozrejme. WWW server by mel v hlavicce objektu odesilat jak velikost tak i
datum vytvoreni objektu.
Tolik teorie, v praxi se situace ma tak, ze:
Last-Modifed: polozku spousta serveru neodesila i kdyz RFC ji vyzaduje
Content-Length: polozku taky neodesilaji vsevhny servery (cgi skripty s
oblibou ignoruji). Plati, ze ji musi bezpodminecne odesilat server,
komunikujici v protokolu HTTP/1.1. (jinak nebude fungovat bez chunked
transferu persistent connection).
Doporucuji nastudovat RFC 2068 (HTTP/1.1) a RFC1945 (HTTP/1.0)
Zdravi
D. Toman
StoredProc x Transakce
[*] Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz> - 11.2.1999 16:34:01 met
Hi,
mam problem:
na MS SQL 7.0 potrebuju nastartovat transakci a pomoci
StoredProc provadet zmeny v tabulkach. Po ukonceni aktualizaci
dat commit nebo rollback.
Query.Sql.Add('BEGIN TRANSACTION');
Query.ExecSQL;
...
StoredProc.ExecSQL;
Query.Sql.Add('ROLLBACK TRANSACTION');
Query.ExecSQL;
Vypada to rozumne, ale je to nefunkcni. Rollback se totiz vubec
neprojevi !.
Pokud tu proceduru zavolam pomoci Query
(Query.Sql.Add('EXEC proc_name ...'), vse je OK.
Delal bych to timto zpusobem, ale nedokazu zase z Query vydupat
navratovou hodnotu.
Tak to vypada, ze StoredProcedure ma nejakou chybku.
Netusite nekdo, co s tim ?
sikora(zv)kam(tec)czu(tec)cz
StoredProc x Transakce
[*] Pavel Klimes <klimes(zv)c3(tec)cz> - 11.2.1999 17:56:58
Jaroslav Sikora wrote:
>
> Hi,
>
> mam problem:
>
> na MS SQL 7.0 potrebuju nastartovat transakci a pomoci
> StoredProc provadet zmeny v tabulkach. Po ukonceni aktualizaci
> dat commit nebo rollback.
>
> Query.Sql.Add('BEGIN TRANSACTION');
> Query.ExecSQL;
> ...
> StoredProc.ExecSQL;
>
> Query.Sql.Add('ROLLBACK TRANSACTION');
> Query.ExecSQL;
>
> Vypada to rozumne, ale je to nefunkcni. Rollback se totiz vubec
> neprojevi !.
> Pokud tu proceduru zavolam pomoci Query
> (Query.Sql.Add('EXEC proc_name ...'), vse je OK.
> Delal bych to timto zpusobem, ale nedokazu zase z Query vydupat
> navratovou hodnotu.
> Tak to vypada, ze StoredProcedure ma nejakou chybku.
> Netusite nekdo, co s tim ?
>
> sikora(zv)kam(tec)czu(tec)cz
Myslim, ze takto to fungovat nemuze.
Pokud chcete pouzivat SQL prikazy pro commit a rollback, je treba
je umistit primo do ulozene procedury a nevolat je takto
zvlast. Pouzivame to takto a je to OK.
Zdravim.
--
+---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
| C3, s.r.o. (Czech Card Centrum) | __) """ |
| Srobarova 32, Praha 10, Czech Republic | \/"""\ |
+---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+Jak stahnout .ASP
[*] roman.palarcik(zv)spt(tec)cz - 11.2.1999 18:11:03
Mam, takovyto problem: Potrebuji udelat programek, kterym si stahnu
webovou stranku. To by nebyl problem, jde o to ze ta stranka je .asp,
ale znam pritom login a heslo. Jak to ale stahnu, resp. kam ten login a
heslo zapisu (pokud se to vubec takto dela). Nemate nekdo jednoduchou
radu nebo odkaz, kde to je napsane ?
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
TWebBrowser
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 11.2.1999 18:11:39
Ahojte. Uz se to tu resilo, ale v archivu jsem vlastne nic moc nenasel
(nedalo by se v tom nejak rozumnejs hledat?):
Jak integrovat IE do aplikace? Dostal jsem se az ke komponente
TWebBrowser, ale jake metody zavolat, aby to zacalo fungovat, na to jsem
neprisel.
Prikladek zaslany na soukr. adresu by velmi potesil.
Diky
Lukas Voborsky
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Rozliseni monitoru
[*] Pleticha Ji�� - 11.2.1999 18:39:02
Ahojky,
prosim je to velmi nalehave:
jiz jednou poslany dotaz - staci me kopnout spravnym smerem....
podle www.delphi(tec)cz je toto tema mnohokrat probrane,
jak ho ale zmenit behem behu programu jako u Windows ??
V Delphi novacek OceaniC
TImageList vs. TImage
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.2.1999 18:45:56
From: info(zv)saton(tec)cz (SATON Glass s.r.o.)
Zdravim,
nejak nemuzu prijit na zpusob jak dostat obrazek z TImageList. Mam
TListView a k nemu prirazeny TImage List. Potreboval bych pri kliknuti na
polozku v TListView dotahnout do TImage umisteneho o kousek vedle aktualni
obrazek z TImageList. Bohuzel jsem zjistil, ze v jsou to rozdilne typy
TImage vs. TBitmap a ja jsem v koncich.... Diky za kazdou radu.
Kuba
--------------------------------------------------------------------------
-- --------------------------------------- SATON Glass, s.r.o. - slu�by v
oblasti programov�n� a v�po�etn� techniky Klicperova 26, Brno, 628 00 �R
Tel./z�zn./fax.:+420 5 44217819 Mob:+420 603 429505 mail: saton(zv)box(tec)cz
ICQ : 4747183
--------------------------------------------------------------------------
-- ----------------------------------------
Jak stahnout .ASP
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.2.1999 18:54:01
Puvodni zprava, kterou napsal roman.palarcik(zv)spt(tec)cz dne 11 Feb 99,:
> Mam, takovyto problem: Potrebuji udelat programek, kterym si stahnu
> webovou stranku. To by nebyl problem, jde o to ze ta stranka je .asp, ale
Tak to neni webova stranka, ale skript. A ty chces stahnout vysledek
toho skriptu = opravdu webovou stranku a nebo text skriptu (prikazy)?
> znam pritom login a heslo. Jak to ale stahnu, resp. kam ten login a heslo
> zapisu (pokud se to vubec takto dela). Nemate nekdo jednoduchou radu nebo
> odkaz, kde to je napsane ?
A ten login a heslo, to je jako co? To je pro pristup FTP nebo jsou
ty stranky chraneny heslem pres HTTP nebo jak? Pokud je to na FTP,
tak se musis pripojit pomoci protokolu FTP.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Urgentne TCP/IP
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 11.2.1999 19:16:47
Hi,
>potrebuji dost nutne nejake ne-komponentove (tzn. ciste objekty ne
komponenty) zapouzdreni winsocku, staci mi neco jako TSocket. Potrebuji to
free a pokud mozno se zdrojem, je to pro komercni aplikaci. Dekuji za
odpovedi.
>
Mas na mysli, ze nechces, aby byl potomkem tComponent? Proc ti to Vadi?
Bye, pf
TWebBrowser
[*] boro(zv)gratex.sk - 11.2.1999 20:36:32
Ahoj !
Popis interface-ov browsera IE4 najdes tu:
http://www.microsoft.com/workshop/browser/webbrowser/WebBrowser.asp
V Delphi potrebujes importnut ActiveX z SHDOCVW.DLL. Inak, z toho si mozes
pozriet aj vsetky funkcie.
Skusal som ti poslat sample na tvoju adresu, ale Mail Server mi hadze stale
toto:
----- The following addresses had permanent fatal errors -----
<voborsky(zv)menza.mff.cuni(tec)cz> Ing. Boris Becvarov
Software Development
GraTex International a.s.
-----Original Message-----
From: Lukas Voborsky [mailto:xvobl03(zv)sorry.vse(tec)cz]
Subject: TWebBrowser
Jak integrovat IE do aplikace? Dostal jsem se az ke komponente
TWebBrowser, ale jake metody zavolat, aby to zacalo fungovat, na to jsem
neprisel.
Prikladek zaslany na soukr. adresu by velmi potesil.
Diky
Lukas Voborsky
TWebBrowser
[*] Vojtech Semecky <vojtech.semecky(zv)v-soft(tec)cz> - 11.2.1999 21:16:06
>Jak integrovat IE do aplikace? Dostal jsem se az ke komponente
>TWebBrowser, ale jake metody zavolat, aby to zacalo fungovat, na to jsem
>neprisel.
Je to celkem jednoduche. Seznam metod ziskas, kdyz si napises
napr. WebBrowser1. a das Ctrl+Space. Ty zakladni jsou asi tyto :
* Navigate - Skok na patricne URL
* GoHome, GoForward, GoBack, GoSearch, Refresh, Stop - vyznam vyplyva z
nazvu
Vojtech Semecky
EnumWindows
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 11.2.1999 22:11:17
Dekuji za odpovedi, uz mi doslo, ze jako druhy parametr callback funkce lze
pouzit cokoli, takze tam davam ukazatel na formular, ve kterem to pak chci
zpracovavat a je to OK.
Zden�k Moravec zmo(zv)telecom(tec)cz
TF export z QR
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.1999 22:24:01
Tomas Bradle wrote:
>
> Cau,
> odpoved na Tvoji otazku neznam, ale zajimalo by mne jak se to exportuje do
> HTML.
Ahoj,
Pomoci komponenty TQRHTMLFilter (ve verzi QR 3.0.4.)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Rozliseni monitoru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.1999 22:24:32
Pleticha Ji�� wrote:
>
> Ahojky,
>
> prosim je to velmi nalehave:
>
> jiz jednou poslany dotaz - staci me kopnout spravnym smerem....
>
> podle www.delphi(tec)cz je toto tema mnohokrat probrane,
> jak ho ale zmenit behem behu programu jako u Windows ??
Ahoj,
Priklad najdes tady:
http://www.inprise.com/devsupport/delphi/qanda/749.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
TImageList vs. TImage
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.1999 22:47:03
Petr Zahradnik wrote:
>
> From: info(zv)saton(tec)cz (SATON Glass s.r.o.)
>
> Zdravim,
> nejak nemuzu prijit na zpusob jak dostat obrazek z TImageList. Mam
> TListView a k nemu prirazeny TImage List. Potreboval bych pri kliknuti na
> polozku v TListView dotahnout do TImage umisteneho o kousek vedle aktualni
> obrazek z TImageList. Bohuzel jsem zjistil, ze v jsou to rozdilne typy
> TImage vs. TBitmap a ja jsem v koncich.... Diky za kazdou radu.
Ahoj,
Muzes to udelat napriklad takhle:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
ImageList1.GetBitmap(0, Bitmap);
Image1.Picture.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jak na password(y) v paradoxovych tabulkach
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.1999 22:47:12
> Karel Pechanec wrote:
>
> Prosil bych o jasnou a srozumitelnou odpoved na tema:
> " Hesla v paradoxovych tabulkach. "
>
> 1) chci vlozit primarni heslo do zatim nezaheslovane tabulky
> 2) chci vymazat primarni heslo ze zaheslovane tabulky( heslo je sam.zname )
Ahoj,
Tady mas nejake priklady:
http://www.inprise.com/devsupport/bde/bdeapiex/dbidorestructure.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ODBC Komponenty
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 11.2.1999 23:01:41
To nejde, ja potrebuju primo ODBC. Muj program je volne ke stazeni
na Internetu, a mel by u uzivatele ihned fungovat (bez instalaci jinych
veci)
Uz jsem premyslel, ze si napisu vlastni, ale namam na to cas.
Ale diky za radu, bude se hodit jindy.
Radim
>Cau,
>Muzes zkusit naimportovat komponenty ADO z knihovny napr.: C:\PROGRAM
>FILES\COMMON FILES\SYSTEM\ADO\MSADO15.DLL
>
>Tomas
>tomas(zv)cobra(tec)cz
>
>>ahoj vsichni.
>>
>>Nezna nekdo komponenty pro primy pristup k ODBC ?
>>Nepotrebuji toho moc, staci, aby umely SELECT. Nemusi
>>byt ani free, mohlo by to byt do 100$.
>>Zkousel jsem MODBC od Konstantina, ty mi spolehlive shodily
>>program i Delphi.
>>Zkousel jsem ODBC98, ty mi nesly s ovladacem Interbase od
>>Visigenic.
>>OdbcExpress jsem nezkousel, protoze to uz je moc drahe.
>>
>>Dokonce to ani nemusi byt potomek TDataSet, hlavne aby to
>>fungovalo.
>>
>>Radim Kunz
Urgentne TCP/IP
[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 11.2.1999 23:15:59
Ano, mam na mysli, ze nechci aby to byl potomek TComponent. Vadi mi to proto, ze potrebuji toto zapouzdreni pouzit prevazne v aplikacich, ktere nemaji s RAD NIC spolecneho. Jde predevsim o sluzby Windows NT, ktere pisu pomoci API (ne pomoci VCL trid) a komponenta mi do toho nepasuje.
Ondrej Krajicek
-----P�vodn� zpr�va-----
Od: Petr Fejfar <callnet(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. �nora 1999 19:51
P�edm�t: Re: Urgentne TCP/IP
>Hi,
>
>>potrebuji dost nutne nejake ne-komponentove (tzn. ciste objekty ne
>komponenty) zapouzdreni winsocku, staci mi neco jako TSocket. Potrebuji to
>free a pokud mozno se zdrojem, je to pro komercni aplikaci. Dekuji za
>odpovedi.
>>
>
>Mas na mysli, ze nechces, aby byl potomkem tComponent? Proc ti to Vadi?
>
>Bye, pf
>
>Interrupt COM
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 12.2.1999 07:14:30
Zdar,
Sleduji zpravy o obsluze seriove linky a mam pocit,
ze cteni probiha tak, ze se periodicky, ci jednorazove cte z bufferu.
Komponenty, ktere se mi dostali do ruky pracovali tak, ze spousteli casovac a ten pravidelne vyzvedaval buffer a pokud v nem neco bylo, tak komponenta vyvolala udalost. Jenze tento zpusob ma odezvu min 50ms, coz je proklate pomale.
Ma otazka zni nasledovne : Jak to udelat, aby pri preruseni ( prijmu znaku) na COMu vznikla udalost, kterou ja bych obslouzil ihned?
Nebo jsem neco spatne pochopil ?
kminek(zv)mite(tec)cz
www.mite(tec)cz
ParamStr a dlouha jmena souboru
[*] Zden�k Moravec <zmo(zv)telecom(tec)cz> - 12.2.1999 07:15:11
>Skus se podivat na http://www.chami.com/tips/delphi/110896D.html
Diky, to je inspirujici. Doufal jsem jenom, ze se da zaridit, aby ty dlouhe
nazvy posilaly primo Windowsy.
Zden�k Moravec zmo(zv)telecom(tec)cz
Urgentne TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 12.2.1999 07:30:54
> Ano, mam na mysli, ze nechci aby to byl potomek TComponent. Vadi mi to
> proto, ze potrebuji toto zapouzdreni pouzit prevazne v aplikacich, ktere
> nemaji s RAD NIC spolecneho. Jde predevsim o sluzby Windows NT, ktere pisu
> pomoci API (ne pomoci VCL trid) a komponenta mi do toho nepasuje.
Tak proc si nevolas Winsock taky primo jako api? proc k tomu
potrebujes nejake zapouzdreni? me pripada winsock API natolik
jednoduche, ze zapouzdreni naopak obcas i neco zesloziti... ;-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz