Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Oprava cele tabulky
[*] Dalibor Honus <dhonus(zv)logis(tec)cz> - 20.10.1998 12:30:57
>Ahoj,
>Mam dve zacatecnicke otazky:
>1. Potreboval bych opravit v jednom sloupci tabulky vsechny zaznamy. Jedna
>se o cislo a toto cislo potrebuju vynasobit cislem 125.
>Chtel bych to udelat davkove, aby mi program projel celou tabulku,
>prepocetl a zapsal zpet do tabulky.
>
update TABULKA set cislo = cislo * 125
>
>2. Nevite nekdo jak zkonvertovat tabulku DBF do oraclu?
V delphi existuje data migration expert (nejak tak se to jmenuje)
Nadefinujes si aliasy v BDE a pak je to jednoduche
>
>Diky za vsechny rady.
>Pripojeni sitove jednotky
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 20.10.1998 12:40:39
Zdravim,
pomoci funkce WNetConnectionDialog volam z aplikace dialog pro pripojeni
sitove jednotky. Chtel bych tam ovsem predvyplnit nejaky udaj do pole
CESTA. Jde to?
.........................................................
. Libor Krayzel .
. Milicova 15, 702 00 Ostrava .
. Telefon: 069-611 1009 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:elka(zv)seznam(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
.........................................................
Oprava cele tabulky
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 20.10.1998 12:50:58
1. Nevim v jake to mas databazi. Bud projed programove vsechny recordy a
nebo napriklad v interbase je to v SQL:
UPDATE tabulka SET sloupec = sloupec * 125
2. Ja jsem to delal datovou pumpou od Borlandu, ale mam dojem ze je
soucasti jenom Delphi Client-Server.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Pavel_Fuciman.UNION(zv)union(tec)cz [SMTP:Pavel_Fuciman.UNION(zv)union(tec)cz]
> Odesl�no: 20. November 1998 11:52
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Oprava cele tabulky
>
> Ahoj,
> Mam dve zacatecnicke otazky:
> 1. Potreboval bych opravit v jednom sloupci tabulky vsechny zaznamy.
> Jedna
> se o cislo a toto cislo potrebuju vynasobit cislem 125.
> Chtel bych to udelat davkove, aby mi program projel celou tabulku,
> prepocetl a zapsal zpet do tabulky.
>
>
> 2. Nevite nekdo jak zkonvertovat tabulku DBF do oraclu?
>
> Diky za vsechny rady.
> Oprava cele tabulky
[*] Marcello <dvo20um(zv)axpsu.fpf.slu(tec)cz> - 20.10.1998 12:59:47
> Ahoj,
> Mam dve zacatecnicke otazky:
> 1. Potreboval bych opravit v jednom sloupci tabulky vsechny zaznamy. Jedna
> se o cislo a toto cislo potrebuju vynasobit cislem 125.
> Chtel bych to udelat davkove, aby mi program projel celou tabulku,
> prepocetl a zapsal zpet do tabulky.
table.First;
for i:=1 to table.recordcount do
begin
table.edit;
table.fieldbyname('sloupec').value :=
table.fieldbyname('sloupec').value*125;
table.post
table.next;
end;GPF
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 20.10.1998 13:00:51
Ahoj,
mam malinky dotaz. Aplikace mi po korektnim uzavreni pise GPF (ale
ne vzdy) ale vse co je v aplikaci pouzito je spravne uvolneno a aplikace je
jinak korektne uzavrena. Takze problem jako by nebyl. Pouzil jsem Orpheus a
RxLibr. Setkal jste se s tim, prosim, nekdo? A kdyz ano, jak bych to mel
resit?
Predem dekuji za pripadne odpovedi
Jaro B. micrel(zv)micrel(tec)cz
Delphi do C++
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 20.10.1998 13:21:57
> Desim sa niecoho podobneho. Asi by bolo jednoduchsie napisat aplikaciu
> odznovu v C++ ako prepisovat zdrojaky z pascalu...:-)
Preklad pascal -> C existuje.
Tom
DELPHI - WORD s OLE
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 20.10.1998 13:21:07
> .. Potrebuju ten aktualni dokument "vratit:" do aplikace a zavrit ho (jenom
> ten dokument)... Ve visual
"Vratit"? Jestli ho mas v OLE-containeru, zavolej jeho CLose.
Tom
"Skolici materialy"
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 20.10.1998 13:23:19
Ahoj,
mam maly dotaz. Daji se nekde legalne ziskat materialv v cestine, ktere se
pouzivaji p�i skoleni Delphi ?
Jak tak zjistuji, mam hrube neznalosti zakladu programovani v�Delphi ( pojmy
trida, objekt apod. ) a mel bych si tyto v�ci osvetlit.
Napadlo me, ze se v�nejakych skolicich strediscich jistuziva material
v�cestine.
Vasek
V�clav Lukes
E-mail:
Vaclav.Lukes(zv)pvt(tec)cz
511247(zv)sms.paegas(tec)cz
Tel.:
0603-511247
SQL database
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 20.10.1998 13:28:25
Haj hou!
Nemel jsem na mysli jen padavost apod., ale predevsim narocnost na
spravu/konfiguraci a moznosti snadneho programovani atd. SQL 6.5 a nizsi
rozhodne nelze doporucit pro "krabicovy" SQL software. Ovsem pokud mam par
zakazniku a muzu si je hyckat, a cirou nahodou uz maji MS SQL Server a
zatvrzele na nem trvaji, pak pri prihodnych astrologickych podminkach lze o
MS SQL uvazovat :-))).
>??? Nocni mura ??? Nevim jak nizsi verze ale s 6.5 SP3 - SP4 mame velmi
dobre
>zkusenosti. Tim nechci samozrejme tvrdit, ze je to to nejlepsi co existuje.
Ale
>problemy jsme nemeli a pokud ano daly se bez problemu vyresit (staci
sledovat MS
>news konferenci ;-)EnumWindows a Informace o procesu
[*] V�t�zslav Gazda������u��n�?��? - 20.10.1998 13:28:05
>Funguje to dobre, diky moc, ale ma to jeden hacek. Nefunguje to
>pod NT. Mam tuseni, ze to bude bezpecnostni ochranou NT. Pokud
>by jsi i tohle vedel jak obejit, tak jsi dobrej...
Funkce Process32First, Process32Next, Thread32First, Thread32Next ve Windows
NT vubec nejsou. Mam na svych strankach clanek o zjistovani predchozi
instance, kde pouzivam taky tyto funkce. Bohuzel jsem to take zjistil az
pozdeji, takze je ten clanek pouzitelny pouze pro Windows 95. V NT jsem nic
podobneho nenasel.
Vita
Delphi do C++
[*] V�t�zslav Gazda������u��n�?��? - 20.10.1998 13:41:43
Zalezi na tom jak je ta alikace napsana tj. jak moc je zavisla na Delphi,
jestli je to DB aplikace (BDE), jake pouziva komponenty atd. Udelat to jde
vzdy, ale je treba zhodnotit jestli se jedna o pouhe prepsani nebo se bude
muset zacit znovu.
Vita
XLS Password
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 20.10.1998 13:42:40
Zajimalo by jak ? Jde to tedy "cracknout" nebo ne ?
Dobra.
----------
Od: Martin Fron�k[SMTP:FRONEK(zv)ZZNSLANY.CZ]
Odesl�no: 20. listopadu 1998 8:11
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: XLS Password
Dekuji vsem za rady a pomoc. Problem jiz byl vyresen. Pro vasi info:
jednalo se o zamerne zaheslovani, jinak ta firma jede na ISO 9000.
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 Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 19. listopadu 1998 18:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: XLS Password
>
> Radek KALA wrote:
> > Neznam sice postup ale bez ohledu na to zda se to podari
> > doporucuji podat na tohoto cloveka zalobu. Jsem presvedcen, ze
> > se jedna o trestny cin.
>
> To me prijde ponekud prehnane. Asi by to chtelo znat vsechny okolnosti
> za
> kterych k te situaci doslo. Navic, pokud nekdo pripustil aby nejake
> dulezite
> informace kontroloval pouze jeden clovek, ktereho potom vyhodi, tak to
> take
> o necem svedci .....
>
> > > Hi,
> > >
> > > znamy me pozadal, abych se zeptal, zda nekdo nevite jak se dostat
> do
> > > zaheslovaneho souboru MS EXCEL, nebo jak ziskat (vylamat) heslo. U
> nich
> > > ve firme kdosi odesel (byl vyhozen) a nechal po sobe dulezite
> soubory
> > > zaheslovane..........samozrejme heslo si nechal pro sebe..... Diky
> za
> > > kazdou radu.
> > >
> > >
> > > Martin Fron k
> > > ZZN Slan a.s.
> > > Pra sk 1579, 274 49, Slan
> > > tel. +420-314-522986
> > > e-mail: fronek(zv)zznslany(tec)cz
> > >
>
> Internet proti monopolu. Petr Vones, amatersky
> programator
> * http://www.bojkot(tec)cz *
> * protestni akce *
> ************************
> Longint v TP7
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 20.10.1998 13:43:22
Moze niekto poskytnut informacie
o problemoch pri spracovavani dlhych integrov
v Turbo Pascale 7, ak sa program skompiluje pre
386-vu masinu ?.
Program korketne funguje len v 286-kovom kode.
Udajne ide o internu chybu TP7.
Ak ano, ma k tomu niekto dostupnu zaplatu ?
Vdaka vsetkym.
Vlkovic.Offtopic - Internet Exploder
[*] Lubo Fule <fule(zv)sct.sk> - 20.10.1998 13:49:29
Nuz hold, to by nebol Bill...:-) Ale vazne, mne to funguje bez problemov.
Teda, default rozmery a umiestnenie okna su take ake boli pri poslednom
zatvoreni IE. Skus otvorit IE, maximalizovat, zatvorit IE a po dalsom
spusteni IE by to uz malo fungovat tak ako chces, teda aspon mne to tak
funguje. Okrem toho sa da este nastavit aby sa IE zobrazoval vo FullScreen.
Nastavuje sa to vo View/Internet Options/Advanced a tam si najdi Launch
browser in full screen window.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Fron�k
> Sent: Friday, November 20, 1998 12:19 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Offtopic - Internet Exploder
>
>
> Problem to neni, ale otravna vec ano.
>
> 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: Lubo Fule [SMTP:fule(zv)sct.sk]
> > Odesl�no: 20. listopadu 1998 11:41
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Offtopic - Internet Exploder
> >
> > Nuz, neviem ako Tebe, ale mne nerobi ziadny problem kliknut mysou na
> > tlacitko maximalizacie v pravom hornom rohu okna...:-)
> >
> > S pozdravom
> > Lubo Fule
> >
> > > -----Original Message-----
> > > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf
> > Of
> > > Martin Fron�k
> > > Sent: Friday, November 20, 1998 8:09 AM
> > > To: 'delphi-l(zv)fwd(tec)cz'
> > > Subject: RE: Offtopic - Internet Exploder
> > >
> > >
> > > Hi,
> > >
> > > tak to je opravdu velke nedorozumeni. Ja myslim uzivatelsky, kdyz
> > kliknu
> > > na odkaz pravym buttonem a dam otevrit v novem okne. To nove okno
> > neni
> > > maximize, ale ja to tak chci. Co s tim?
> > >
> > >
> > > 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: Jan Janecek [SMTP:stoupa(zv)vos-sps-jicin(tec)cz]
> > > > Odesl�no: 19. listopadu 1998 17:08
> > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > P�edm�t: RE: Offtopic - Internet Exploder
> > > >
> > > > At 16:25 19-11-98 +0100, you wrote:
> > > > >Myslim maximize.
> > > > >
> > > > >
> > > >
> > > > Zkus tohle...
> > > >
> > ----------------------------------------------------------------------
> > > > ------
> > > > ------------
> > > > <HTML>
> > > > <HEAD>
> > > > <TITLE>priklad od stoupy</TITLE>
> > > > <SCRIPT LANGUAGE="JavaScript">
> > > > <!--
> > > > function myFullscreen()
> > > > {
> > > >
> > > >
> > window.open('p124.html','myName','width='+screen.width+',height='+scre
> > > > en.hei
> > > > ght+',top=0,left=0');
> > > > }
> > > >
> > > > // -->
> > > > </SCRIPT>
> > > > </HEAD>
> > > > <BODY BGCOLOR="#ffffff">
> > > > <FORM>
> > > > <INPUT TYPE=button VALUE="Otvor na celu obrazovku"
> > > > onClick="myFullscreen();">
> > > > </FORM>
> > > > </BODY>
> > > > </HTML>
> > > >
> > ----------------------------------------------------------------------
> > > > ------
> > > > -----------
> > > >
> > > > Stoupa
> > > > -------------------------------------
> > > > Jan Janecek - STOUPA
> > > > VOS_SPS
> > > > Pod Kozeluhy 100
> > > > Jicin 50601
> > > > EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> > > > stoupik(zv)xoommail.com
> > > > jan.janecek(zv)post(tec)cz
> > > > WEB: HTTP://members.xoom.com/stoupik
> > > > ICQ: 12364149
> > > > -------------------------------------
> > >
> >
>
Oprava cele tabulky
[*] Lubo Fule <fule(zv)sct.sk> - 20.10.1998 13:53:00
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Marcello
> Sent: Friday, November 20, 1998 1:00 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Oprava cele tabulky
>
>
> > Ahoj,
> > Mam dve zacatecnicke otazky:
> > 1. Potreboval bych opravit v jednom sloupci tabulky vsechny
> zaznamy. Jedna
> > se o cislo a toto cislo potrebuju vynasobit cislem 125.
> > Chtel bych to udelat davkove, aby mi program projel celou tabulku,
> > prepocetl a zapsal zpet do tabulky.
>
> table.First;
> for i:=1 to table.recordcount do
> begin
> table.edit;
> table.fieldbyname('sloupec').value :=
> table.fieldbyname('sloupec').value*125;
> table.post
> table.next;
> end;
>
>
Teda, toto riesenie je absolutne neoptimalne, ved sa to da urobit jedinym
SQL prikazom:
update Tabulka set Cislo = Cislo * 125
tento prikaz mozes napriklad spustit cez TQuery metodou ExecSQL.
screen saver
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 20.10.1998 13:59:58
Zdarec ...>Mam taakovy problem potrebuji naprogramovat screen saver do W95 a
>chybi mi WIN95 SDK, kdyby mi nekdo mohl poslat SDK, nebo jak se
>vytvari Screen saver, Dik.
Nemel by to byt zas az takovy problem screen saver je totiz
docela obycejny exe soubor pouze prejmenovany na SCR :-)> A dale programoval nekdo ve fullscreen modu nobo pod Direct X,
>jestli ano at mi posle nejake demonstracni programky nebo popisy.
>byl bych rad kdyby to nebylo directX sdk
a co se tyka DirectX je perfektni WWW stranka Radima Holane,
je to http://www.stud.fee.vutbr(tec)cz/~xholan00/directx.html a tam najdes
snad vsechno co bys mohl potrebovat ...
s pozdravem
student M.Cizek <starxax(zv)molly.vabo(tec)cz>
HP : http://freeweb.coco(tec)cz/starxax
Mistrovstvi v Delphi nebo neco podobneho
[*] V�t�zslav Gazda������u��n�?��? - 20.10.1998 13:59:02
>kdyz uz jsme u tech knih, nevite nekdo, o necem, kde by byl uceleny
>popis komunikace mezi procesy a mezi thready. Mam na mysli
>takove veci jako jsou semaphory, mutexy, kriticke sekce prenos dat,
>sdileni promennych atd.
Doporucuji knihu "Windows pro pokrocile a experty". Velka cast teto knihy je
prave venovana tomuto tematu. Priklady jsou sice v cecku, ale cela kniha se
toci stejne jenom kolem Win32 API takze by to nemelo vadit.
Vita
Soubory DFM
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 20.10.1998 14:25:10
[P��loha v souboru: TP_FOX.602]
> From: "Marek Repisk " <mrepisky_zl(zv)zsnp.sk>
> To: <delphi-l(zv)fwd(tec)cz>
> Subject: Re: Soubory DFM
> Date: Fri, 20 Nov 1998 07:10:33 +0100
> Reply-to: delphi-l(zv)fwd(tec)cz
> > Pot eboval bych vedet jestli nekdo nezna strukturu souboru DFM, nebo
> > jak z nich vykuchat nazvy komponent a jejich vlastnosti (potrebuji to
> udelat interne
> > a ne pres externi program napr. CONVERT.EXE).
>
> Nazdar,
>
> raz som sa s tym trosku zabaval. Napisal som programik, ktory vie DFM
> precitat
> a urobit jeho txt zapis. Neviem ci dokaze rozlusknut vsetky mozne
> komponenty,
> ale na mojich formoch funguje. Je to len hruby algoritmus, bez kontroly
> chyb.
> Ak sa chces na to pozriet, tak Ti to kludne poslem.
>
> Marek Repisky
> mrepisky_zl(zv)zsnp.sk
>
>
V priloze posilam jeden ze svych ucebnich textu (bohuzel, jeste v
T602), v nemz je struktura DBF-souboru popsana.
S pozdravem
J.Plisek
===================================================
ing. Jan Plisek e-mail:plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE WEB: http://www.spse(tec)cz
Czech Republic
===================================================
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: TP_FOX.602
Date: 24 Oct 1997, 13:23
Size: 15163 bytes.
Type: Unknown
Soubory DFM
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 20.10.1998 14:26:59
> From: "Marek Repisk " <mrepisky_zl(zv)zsnp.sk>
> To: <delphi-l(zv)fwd(tec)cz>
> Subject: Re: Soubory DFM
> Date: Fri, 20 Nov 1998 07:10:33 +0100
> Reply-to: delphi-l(zv)fwd(tec)cz
> > Pot eboval bych vedet jestli nekdo nezna strukturu souboru DFM, nebo
> > jak z nich vykuchat nazvy komponent a jejich vlastnosti (potrebuji to
> udelat interne
> > a ne pres externi program napr. CONVERT.EXE).
>
> Nazdar,
>
> raz som sa s tym trosku zabaval. Napisal som programik, ktory vie DFM
> precitat
> a urobit jeho txt zapis. Neviem ci dokaze rozlusknut vsetky mozne
> komponenty,
> ale na mojich formoch funguje. Je to len hruby algoritmus, bez kontroly
> chyb.
> Ak sa chces na to pozriet, tak Ti to kludne poslem.
>
> Marek Repisky
> mrepisky_zl(zv)zsnp.sk
>
>
Omlouvam se za predchozi odpoved, spletl jsem DFM a DBF.
J.P.
===================================================
ing. Jan Plisek e-mail:plisek(zv)spse(tec)cz
SPSE a VOS tel. 040/51 68 21
Karla IV. 13 fax. 040/51 70 37
531 69 PARDUBICE WEB: http://www.spse(tec)cz
Czech Republic
===================================================Skryti programu
[*] Lubo Fule <fule(zv)sct.sk> - 20.10.1998 14:32:07
Tak potom uz zostava len moznost, ze pred tym ako sa ma program zatvorit,
tak ho znovu spustis. To vsak funguje len za predpokladu, ze sa program da
korektne uzavriet, aby ho windows nezhodil "natvrdo". Skuseny cloviecik by
to asi ale vedel zhodit natvrdo...
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Krayzel Libor
> Sent: Friday, November 20, 1998 12:11 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Skryti programu
>
>
> > Ak pod NT, tak by celkom ucinne pomohlo vhodne nastavenie pristupovych
> > opravneni a utajenie hesla administratora, resp. urobit taku
> > pasticku ako si
> > opisoval ako service a potom, hoci by ju bolo vydiet v
> > zozname uloh, vypnut
>
> Bohuzel. Stanice jsou Windows95.
>
Result set ve TStoredProc
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 20.10.1998 14:55:16
Ahoj,
zajimam se ted o pouziti ulozenych procedur, ktere
vraceji cely dataset jako to dela treba TQuery. Mam odladenou
proceduru (MS-SQL 7.0 beta) a nemuzu se na ni na klientovi
(Delphi 3.01, BDE 5.0 pres native MSSQL) pripojit. Zkousel jsem
metody TStoredProc.Open i ExecProc, pokazde to skonci chybou
"Could not find object".
Ma pouzivani tohoto druhu uloz. procedur nejaky hacek, rozchodil
to vubec nekdo na jakemkoliv SQL serveru ?
diky, Martin
-----------
Ing. Martin Dupal
address: Geislerova 6
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
EnumWindows a Informace o procesu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.10.1998 15:18:00
>Dalibor Toman wrote:
>> psapi.dll - pokud nemate muzu poslat
>
>Taky bych mel zajem... Predem diky.
pokud nekdo ma zajem muze si psapi.dll + original psapi.h a taky muj prepis
psapi.pas nacist z
ftp://ftp.fortech(tec)cz/pub/delphi/psapi
Ti stastlivci kteri maji Platform SDK to (mimo psapi.pas :-) najdou na tom
CD, dalsi info na CD MSDN - staci hledat text psapi (mimo jine se tam pise
ze psapi.dll vlastne jen zabaluje jeste mozna zajimavejsi fce z NTDLL.DLL)
Zdravi
D. Toman
EnumWindows a Informace o procesu
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 20.10.1998 15:26:54
Prosim taky o prispevek
DIky
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Dalibor Toman [SMTP:dtoman(zv)fortech(tec)cz]
> Odesl�no: Friday, November 20, 1998 11:02 AM
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: EnumWindows a Informace o procesu
>
> >Funguje to dobre, diky moc, ale ma to jeden hacek. Nefunguje to pod NT.
> Mam
> >tuseni, ze to bude bezpecnostni ochranou NT. Pokud by jsi i tohle vedel
> jak
> >obejit, tak jsi dobrej...
>
>
> toolhlp32.dll nebo jak se to jmenuje neni pod NT - tam se musi pouzit
> psapi.dll - pokud nemate muzu poslat nasel jsem ji na nejakych MSDN
> CDckach.
> Psapi.dll obsahuje celkem jen asi 4 funkce k enumereci bezicich
> procesu....
>
> Zdravi
> D. Toman
>
> Offtopic - Internet Exploder
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 20.10.1998 15:53:35
Ano, prvni okno je OK, ale ty dalsi se jaksi oteviraji dle libosti
Billa. A o ty mi jde.....
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: Lubo Fule [SMTP:fule(zv)sct.sk]
> Odesl�no: 20. listopadu 1998 13:49
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Offtopic - Internet Exploder
>
> Nuz hold, to by nebol Bill...:-) Ale vazne, mne to funguje bez
> problemov.
> Teda, default rozmery a umiestnenie okna su take ake boli pri
> poslednom
> zatvoreni IE. Skus otvorit IE, maximalizovat, zatvorit IE a po dalsom
> spusteni IE by to uz malo fungovat tak ako chces, teda aspon mne to
> tak
> funguje. Okrem toho sa da este nastavit aby sa IE zobrazoval vo
> FullScreen.
> Nastavuje sa to vo View/Internet Options/Advanced a tam si najdi
> Launch
> browser in full screen window.
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf
> Of
> > Martin Fron�k
> > Sent: Friday, November 20, 1998 12:19 PM
> > To: 'delphi-l(zv)fwd(tec)cz'
> > Subject: RE: Offtopic - Internet Exploder
> >
> >
> > Problem to neni, ale otravna vec ano.
> >
> >
> > 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: Lubo Fule [SMTP:fule(zv)sct.sk]
> > > Odesl�no: 20. listopadu 1998 11:41
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: RE: Offtopic - Internet Exploder
> > >
> > > Nuz, neviem ako Tebe, ale mne nerobi ziadny problem kliknut mysou
> na
> > > tlacitko maximalizacie v pravom hornom rohu okna...:-)
> > >
> > > S pozdravom
> > > Lubo Fule
> > >
> > > > -----Original Message-----
> > > > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf
> > > Of
> > > > Martin Fron�k
> > > > Sent: Friday, November 20, 1998 8:09 AM
> > > > To: 'delphi-l(zv)fwd(tec)cz'
> > > > Subject: RE: Offtopic - Internet Exploder
> > > >
> > > >
> > > > Hi,
> > > >
> > > > tak to je opravdu velke nedorozumeni. Ja myslim uzivatelsky,
> kdyz
> > > kliknu
> > > > na odkaz pravym buttonem a dam otevrit v novem okne. To nove
> okno
> > > neni
> > > > maximize, ale ja to tak chci. Co s tim?
> > > >
> > > >
> > > > 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: Jan Janecek [SMTP:stoupa(zv)vos-sps-jicin(tec)cz]
> > > > > Odesl�no: 19. listopadu 1998 17:08
> > > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > > P�edm�t: RE: Offtopic - Internet Exploder
> > > > >
> > > > > At 16:25 19-11-98 +0100, you wrote:
> > > > > >Myslim maximize.
> > > > > >
> > > > > >
> > > > >
> > > > > Zkus tohle...
> > > > >
> > >
> ----------------------------------------------------------------------
> > > > > ------
> > > > > ------------
> > > > > <HTML>
> > > > > <HEAD>
> > > > > <TITLE>priklad od stoupy</TITLE>
> > > > > <SCRIPT LANGUAGE="JavaScript">
> > > > > <!--
> > > > > function myFullscreen()
> > > > > {
> > > > >
> > > > >
> > >
> window.open('p124.html','myName','width='+screen.width+',height='+scre
> > > > > en.hei
> > > > > ght+',top=0,left=0');
> > > > > }
> > > > >
> > > > > // -->
> > > > > </SCRIPT>
> > > > > </HEAD>
> > > > > <BODY BGCOLOR="#ffffff">
> > > > > <FORM>
> > > > > <INPUT TYPE=button VALUE="Otvor na celu obrazovku"
> > > > > onClick="myFullscreen();">
> > > > > </FORM>
> > > > > </BODY>
> > > > > </HTML>
> > > > >
> > >
> ----------------------------------------------------------------------
> > > > > ------
> > > > > -----------
> > > > >
> > > > > Stoupa
> > > > > -------------------------------------
> > > > > Jan Janecek - STOUPA
> > > > > VOS_SPS
> > > > > Pod Kozeluhy 100
> > > > > Jicin 50601
> > > > > EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> > > > > stoupik(zv)xoommail.com
> > > > > jan.janecek(zv)post(tec)cz
> > > > > WEB: HTTP://members.xoom.com/stoupik
> > > > > ICQ: 12364149
> > > > > -------------------------------------
> > > >
> > >
> >
> "Skolici materialy"
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 20.10.1998 16:45:38
> mam maly dotaz. Daji se nekde legalne ziskat materialv v cestine, ktere se
> pouzivaji p�i skoleni Delphi ?
> Jak tak zjistuji, mam hrube neznalosti zakladu programovani v�Delphi ( pojmy
> trida, objekt apod. ) a mel bych si tyto v�ci osvetlit.
V mych materialech (skoleni fy ERUDIO) takove veci nejsou
(az na vyjimky). V prednasce z programovani na MFF UK
je to tak na jednu prednasku (kdyz posluchaci uz znaji dynamicke
promenne, coz je samo zase aspon na jednu prednasku)...
- a ma-li se nekdo behem par dnu naucit psat programy v Delphi,
nektere veci dostava bez vysvetleni.
Nakonec to je (hlavni?) vyhoda objektoveho programovani, ne?
Ze nektere veci beru tak, jak jsou a zacnu se o ne starat
teprve kdyz potrebuju neco zmenit.
Tom
Longint v TP7
[*] Karel Kral <kral(zv)purus(tec)cz> - 20.10.1998 17:03:53
Jde o chybu v jednotce system pri pouzivani instrukci 386. Muzu poslat
opravu.
Peter Vlkovic wrote:
>
> Moze niekto poskytnut informacie
> o problemoch pri spracovavani dlhych integrov
> v Turbo Pascale 7, ak sa program skompiluje pre
> 386-vu masinu ?.
> Program korketne funguje len v 286-kovom kode.
> Udajne ide o internu chybu TP7.
> Ak ano, ma k tomu niekto dostupnu zaplatu ?
>
> Vdaka vsetkym.
>
> Vlkovic.
--
_______________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0601/536647, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz
_______________________________________________
Window
[*] Kallima II <kallima(zv)bratislava.telecom.sk> - 20.10.1998 17:16:14
Dakujem, ze ste mi poradili s mojim malym problemom.
Teraz mam zopar otazok naozaj suvisiacich s WINDOWS.
Zaujima ma ako sa da urobit, aby v obycajnom okne namiesto
standardnej hornej listy (vacsinou modra) bol nejaky gradient -
prechod napr. od ciernej do sedej. Nieco take som videl v
jednej starsej verzii Microsoft Office.
Dalej by som rad vedel ako sa da urobit okno, ktore nebude
mat standardny obdlznikovy tvar, ale aby jeho tvar bol urceny
nejakou dvojfarebnou bitmapou:
cierna farba = priesvitna, tuto bude diera
biela farba = nepriesvitna, toto je okno
cize dalo by sa urobit okno hocijakeho tvaru urceneho bitmapou.
Este jedna otazka. Ako sa ta pridat maly gombik(ikona) na hornu
listu kde su tlacitka pre minimalizovanie, maximalizovanie a
zavretie programu? Pripadne pridat dalsiu polozku do menu vlavo
ktore sa otvara po kliknuti na ikonu v lavom hornom rohu?
Dakujem Juraj Svec.
OLE DB
[*] Lubo Fule <fule(zv)sct.sk> - 20.10.1998 18:01:17
Neviete niekto, kde najdem typovu kniznicu pre OLE DB, ktoru by som mohol
importovat do Delphi?
Offtopic - Internet Exploder
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.1998 18:58:50
Martin Kubecka wrote:
>
> No mam pocit, ze M.F. myslel aby po prave mysi na link a volbe Open in new Window
> se nove okno oteviralo maximalizovane ne? To by me totiz taky zajimalo. Jedno
> reseni uz jsem nasel - Netscape Communicator 4.5 ;-)))
Tak je to spravne, mozna bych doplnil, ze jej narozdil od IE4.x lze i odinstalovat
bez nutnosti preinstalace celych Windows.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Inicializace
[*] Ji�� Heinisch <HeiJu(zv)sol(tec)cz> - 20.10.1998 19:36:11
ahoj
Mozna takto
Pmenu:=nil;
PMenu := TPopupMenu.Create(...);
HeiJu
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. listopadu 1998 11:45
P�edm�t: RE: Inicializace
>Skus popisat, o co Ti ide trochu podrobnejsie. Ten warning znamena, ze
>smernik moze byt nastaveny na nil a pri jeho pouziti dojde k chybe.
>Ak potrebujes rucne vytvorit instanciu nejakeho objektu, tak sa to robi
>volanim jeho konstruktora, ktory ti zaroven vrati smernik na vytvoreny
>objekt:
>
>PMenu := TPopupMenu.Create(...);
>
>> -----Original Message-----
>> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>> Lukes V�clav
>> Sent: Friday, November 20, 1998 8:52 AM
>> To: 'delphi-l(zv)fwd(tec)cz'
>> Subject: Inicializace
>>
>>
>>
>> Hi,
>>
>> muzete mi prosim n�kdo poradit, jak inicializovat napr. TPopupMenu ?
>>
>> P�i prekladu dostavam tuto hlasku:
>>
>> [Warning] Spol_F.pas(154): Variable 'PMenu' might not have been
>> initialized
>>
>>
>> Diky
>>
>> Vasek
>>
>>
>>
>> V�clav Lukes
>>
>> E-mail:
>> Vaclav.Lukes(zv)pvt(tec)cz
>> 511247(zv)sms.paegas(tec)cz
>>
>> Tel.:
>> 0603-511247
>>
>"Skolici materialy"
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.10.1998 19:37:38
Lukes V�clav wrote:
> mam maly dotaz. Daji se nekde legalne ziskat materialv v cestine, ktere se
> pouzivaji p i skoleni Delphi ?
Nepochybne ucasti na skoleni. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Skryti programu
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 20.10.1998 19:44:27
[P��loha v souboru: Stealth.zip]
Panove, to jsou same machinace a alchimie :-))
Program ze seznamu uloh ZARUCENE schovas malou
prilozenou konponentou......myslim ze potesi i vsechny
VirusDevelopery :-))))))))
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. listopadu 1998 15:49
P�edm�t: RE: Skryti programu
>Tak potom uz zostava len moznost, ze pred tym ako sa ma program zatvorit,
>tak ho znovu spustis. To vsak funguje len za predpokladu, ze sa program da
>korektne uzavriet, aby ho windows nezhodil "natvrdo". Skuseny cloviecik by
>to asi ale vedel zhodit natvrdo...
>
>> -----Original Message-----
>> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>> Krayzel Libor
>> Sent: Friday, November 20, 1998 12:11 PM
>> To: 'delphi-l(zv)fwd(tec)cz'
>> Subject: RE: Skryti programu
>>
>>
>> > Ak pod NT, tak by celkom ucinne pomohlo vhodne nastavenie pristupovych
>> > opravneni a utajenie hesla administratora, resp. urobit taku
>> > pasticku ako si
>> > opisoval ako service a potom, hoci by ju bolo vydiet v
>> > zozname uloh, vypnut
>>
>> Bohuzel. Stanice jsou Windows95.
>>
>
>Offtopic - Internet Exploder
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 20.10.1998 19:44:13
Pripadam si jak debil, ale stacilo reinstalovat SP3 a Exploder ty okna
pri "Open in new window" otvira tak, jak ma. Doufam, ze to nekomu
pomuze.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Offtopic - Internet Exploder
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 20.10.1998 19:44:08
> Me tohlecto delal IE40 take, vyresilo se to nakyma patchem, potom sem si
> nainstaloval IE40-SP1 a je to OK...
Nepamatujes se, jaky patch to byl? Kdybych mel prohledavat vsechny M$
patche, tak nez bych to nasel, vypousteli by uz IE20.0
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Mistrovstvi v Delphi nebo neco podobneho
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 20.10.1998 20:27:06
Mistrovstvi v Delphi 3 vyjde (pry) 25.11. Ale at te neplete nazev,
nejde o knizku od M. Cantu, ale od nekoho jineho.
Nezna nekdo knizku (dobrou) pro Delphi4, samozrejme v anglictine ?
Radim
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. listopadu 1998 18:16
P�edm�t: Mistrovstvi v Delphi nebo neco podobneho
>Zdravicko...
>
>Existuje Mistrovstvi v Delphi nebo neco podobneho pro Delphi 4 (pri
>nejhorsim 3) v cestine? Sice to neni pro me, ale Delphi v kostce se mi
>nelibi. Je tedy nejaka alternativa?
>
>Dekuji za tipy, F.Offtopic - Internet Exploder
[*] Mirun <forcom(zv)telecom(tec)cz> - 20.10.1998 20:29:59
-----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: 20. listopadu 1998 19:44
P�edm�t: Re: Offtopic - Internet Exploder
|Martin Kubecka wrote:
|>
|> No mam pocit, ze M.F. myslel aby po prave mysi na link a volbe Open
in new Window
|> se nove okno oteviralo maximalizovane ne? To by me totiz taky
zajimalo. Jedno
|> reseni uz jsem nasel - Netscape Communicator 4.5 ;-)))
|
|Tak je to spravne, mozna bych doplnil, ze jej narozdil od IE4.x lze i
odinstalovat
|bez nutnosti preinstalace celych Windows.
|
Taky doporucuji zkusit pri nainstalovanem IE4 zalohu celeho systemu.
Az se pokusite provest obnovu objevi se nadherna hlaska:
"System se nepodarilo obnovit. Pocitac asi nebude spravne pracovat."
a pocitac spravne nepracoval...
mirun
Binarni prilohy
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.10.1998 21:31:03
Lidi, neposilejte porad ty binarni prilohy do konference. Diky!
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== 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
Mistrovstvi v Delphi nebo neco podobneho
[*] Petr Ma��k - 20.10.1998 23:33:43
Knizka vysla cesky v Sams Publishing ve edisi UNIS a jmenuje se DELPHI
Pruvodce vyvojare .Vysla v breznu 1966. Vcetne CD s demo priklady stala 850
Kc.
Zdravi
* Petr Ma��k *
* RT electronic *
* rtepema(zv)mbox.vol(tec)cz *
* tel. -02-20510562 *
-----P�vodn� zpr�va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 20. listopadu 1998 8:16
P�edm�t: RE: Mistrovstvi v Delphi nebo neco podobneho
Byl jsem ve Svycarsku a tam jsem se trochu dival do knihy:
Pacheco & Teixeira, Delphi developer's guide
Nevypadala zle.
-----Original Message-----
From: Radim Kunz [mailto:rkunz(zv)ova.comp(tec)cz]
Sent: Friday, November 20, 1998 8:27 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Mistrovstvi v Delphi nebo neco podobneho
Mistrovstvi v Delphi 3 vyjde (pry) 25.11. Ale at te neplete nazev,
nejde o knizku od M. Cantu, ale od nekoho jineho.
Nezna nekdo knizku (dobrou) pro Delphi4, samozrejme v anglictine ?
Radim
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. listopadu 1998 18:16
P�edm�t: Mistrovstvi v Delphi nebo neco podobneho
>Zdravicko...
>
>Existuje Mistrovstvi v Delphi nebo neco podobneho pro Delphi 4 (pri
>nejhorsim 3) v cestine? Sice to neni pro me, ale Delphi v kostce se mi
>nelibi. Je tedy nejaka alternativa?
>
>Dekuji za tipy, F.
Skryti programu
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 21.10.1998 08:58:39
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'KERNEL32.DLL';
ale ja nekde mam i jednodussi zpusob, jenze
nevim kde. Narazil jsem na nej uplne nahodou.
Zkusim ho pristi tyden ve stredu pohledat.
Martin
Table scanner
[*] Pavel M. <talema(zv)top(tec)cz> - 21.10.1998 09:37:26
Ahoj,
pouzivam Table scanner od Demiana na generovani pascalovskeho kodu pro
vytvareni a restrukturizaci tabulek.
Mam verzi 1.06. Vim, ze pak byly jeste verze 1.07, 2.0, 2.01 a 2.02 jako
freeware.
Od verze 3.0 je to shareware za 39$.
Protoze pisu nekomercni programky nechce se mi platit shareware poplatek,
proto
bych uvital, kdby mi nekdo mohl poslat novejsi verzi (1.07 - 2.02) pokud ji
nekdo mate.
Pokousel jsem se projit servery s komponentami, ale tam uz je vsude 3.01
verze.
Diky
Pavel M.D3 a FindField
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 21.10.1998 11:12:55
Taky se vam stava, ze
a) polozka TABULKA.FindField('Pole').AsInteger napoprve
projde ale napodruhe uz se behem programu vyhodi vyjimka?
A kdyz pak definujete TABULKAPole.AsInteger v editoru poli,
tak je vse v poradku?
b) kdyz date TABULKA.Close, tak to obcas ztuhne, ale kdyz radek
vyhodite tak je vse v poradku?
c) taky se vam stava, ze slysite divne hlasy ???? :-)
Martin
Offtopic - Internet Exploder
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 21.10.1998 12:46:10
Co na to rict?
Mam W98 a nechtskape komunikator !
Takovehle rady jsou k nicemu.
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: Mirun [SMTP:forcom(zv)telecom(tec)cz]
> Odesl�no: 20. listopadu 1998 20:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Offtopic - Internet Exploder
>
>
> -----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: 20. listopadu 1998 19:44
> P�edm�t: Re: Offtopic - Internet Exploder
>
>
> |Martin Kubecka wrote:
> |>
> |> No mam pocit, ze M.F. myslel aby po prave mysi na link a volbe Open
> in new Window
> |> se nove okno oteviralo maximalizovane ne? To by me totiz taky
> zajimalo. Jedno
> |> reseni uz jsem nasel - Netscape Communicator 4.5 ;-)))
> |
> |Tak je to spravne, mozna bych doplnil, ze jej narozdil od IE4.x lze i
> odinstalovat
> |bez nutnosti preinstalace celych Windows.
> |
> Taky doporucuji zkusit pri nainstalovanem IE4 zalohu celeho systemu.
> Az se pokusite provest obnovu objevi se nadherna hlaska:
>
> "System se nepodarilo obnovit. Pocitac asi nebude spravne pracovat."
>
> a pocitac spravne nepracoval...
>
> mirun
> Offtopic - Internet Exploder
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 21.10.1998 12:47:33
Mam W98 CZ-bohuzel od vyrobce.......
Takze by mohl pomoct IE SP1 (4.01)????
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: LuborK(zv)tnet(tec)cz [SMTP:LuborK(zv)tnet(tec)cz]
> Odesl�no: 20. listopadu 1998 19:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Offtopic - Internet Exploder
>
> Pripadam si jak debil, ale stacilo reinstalovat SP3 a Exploder ty okna
> pri "Open in new window" otvira tak, jak ma. Doufam, ze to nekomu
> pomuze.
> Lubor bIRDIE Kolar
> ====================
> GSM Phone: +420-603-410019
> ICQ: 18587772
Offtopic - Internet Exploder
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 21.10.1998 12:50:10
Tak to bohuzel ne. Tech oken sem uz (maximalizovanych) pozaviral tisice,
a porad to otevira blbe.....
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: Miroslav Suchy [SMTP:family.suchy(zv)telecom(tec)cz]
> Odesl�no: 19. listopadu 1998 21:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Offtopic - Internet Exploder
>
> Tusim, ze se nove okno Exploreru otevira v takove velikosti a s
> nastavenim (listy nastroju a stavovy radek), jak bylo naposledy
> zavreno.
>
> Aspon u MSIE 3.02 to tak je.
>
> ----------
> Odes�latel: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Offtopic - Internet Exploder
> Datum: 19. listopadu 1998 13:30
>
> Hi,
>
> kdyz jste u toho IE4, nevite nekdo, jak donutit IE k otevreni toho
> noveho okna v plne velikosti? Uz mi to s... to porad zvetsovat. Dik.
>
>
> 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: Jan Janecek [SMTP:stoupa(zv)vos-sps-jicin(tec)cz]
> > Odesl�no: 19. listopadu 1998 12:03
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: Offtopic - Internet Exploder
> >
> > At 11:17 19-11-98 +0100, you wrote:
> > >Ahoj, nejsi v tom sam. Me se to s NT4.0 SP3 a IE4 stava celkem
> > >pravidelne. Stava se mi to, i kdyz si skript na strance sam otvira
> > nove
> > >okno.
> > >Jsem na tom ale jeste o trochu hur nez ty, protoze me se nove okno
> > otevre,
> > >ale obsahem je Winnt\System32 a puvodni okno s Explorerem zatuhne.
> > >Po asi 5 minutach se zase rozjede a napise hlasku ze na strance
> > selhalo
> > >zpracovani skriptu ..blabla.. a zepta se jestli chci ve zpracovani
> > skriptu
> > >pokracovat. Kdyz dam ano, zase zatuhne.
> > >Jestli nekdo vite nejakou fintu v nastaveni, ktera by to vyresila,
> > dejte
> > >prosim vedet..
> > >
> > >Honza Rychtar (hojan(zv)sin.cvut(tec)cz)
> > >
> >
> > Me tohlecto delal IE40 take, vyresilo se to nakyma patchem, potom
> sem
> > si
> > nainstaloval IE40-SP1 a je to OK...
> > Mam NT40 + SP4
> > (funguje to spolehlive i se SP3)
> > Jinak mi funguje perfektne a bez chybek...
> >
> > -------------------------------------
> > Jan Janecek - STOUPA
> > VOS_SPS
> > Pod Kozeluhy 100
> > Jicin 50601
> > EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> > stoupik(zv)xoommail.com
> > jan.janecek(zv)post(tec)cz
> > WEB: HTTP://members.xoom.com/stoupik
> > ICQ: 12364149
> > -------------------------------------
> ----------
Off-topic
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 21.10.1998 13:57:28
Podivej se do archivu konference na www.delphi(tec)cz Tohle
tema se tu projednavalo uz 2x.
Radim Kunz
-----P�vodn� zpr�va-----
Od: Daniel SICHTA <Sichta(zv)asset.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 20. listopadu 1998 11:00
P�edm�t: Off-topic
>Vie niekto ako sa da zistit(algoritmus), na ktory den daneho roku
>pripada velkonocny pondelok ?
>Napr. ako zistim kedy(datum) bol velkonocny pondelok v roku 1986 ?
>Dik !!!
>
>) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>Delphi & MS SQL & ODBC
[*] rsoucekk(zv)email(tec)cz - 21.10.1998 14:14:24
Ahoj
Pouzivam Delphi 3 a MS SQL server 6.5
pres ODBC. Narazij jsem na velmi neprijemny
problem, kdy (pravdepodobne s ohledem na aktualni
konfiguraci) se pri spousteni dotazu (OPEN NEBO EXECSQL)
komunikace se serverem zablokuje (kompletne to zamrzne).
Podotykam, ze mam v tomtez case otevreno jinymi
komponentami nekolik mensich ciselniku (tak do peti).
Je zajimave, ze mi toto zacalo delat az po preinstalaci
systemu, takze se mozna jedna o zalezitost konfigurace.
Mate nekdo podobnou zkusenost? Velmi by mi to pomohlo.
Predem dik Radek
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Window
[*] Lubo Fule <fule(zv)sct.sk> - 21.10.1998 17:34:19
Nuz, teda, ak chces ine okna ako hranate, tak si patrne budes musiet
preprogramovat Windows...:-), alebo zabudni na Windows a urob si nejaky
vlastny woknous, alebo asi najjednoduchsie bude zabudnut na Windows tiez a
zaubstarat si napr. Linux s
X-Windows a tam to uz ide bez problemou, ale nie je tam Delphi...:-)
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Kallima II
> Sent: Friday, November 20, 1998 5:16 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Window
>
>
> Dakujem, ze ste mi poradili s mojim malym problemom.
> Teraz mam zopar otazok naozaj suvisiacich s WINDOWS.
>
> Zaujima ma ako sa da urobit, aby v obycajnom okne namiesto
> standardnej hornej listy (vacsinou modra) bol nejaky gradient -
> prechod napr. od ciernej do sedej. Nieco take som videl v
> jednej starsej verzii Microsoft Office.
>
> Dalej by som rad vedel ako sa da urobit okno, ktore nebude
> mat standardny obdlznikovy tvar, ale aby jeho tvar bol urceny
> nejakou dvojfarebnou bitmapou:
> cierna farba = priesvitna, tuto bude diera
> biela farba = nepriesvitna, toto je okno
> cize dalo by sa urobit okno hocijakeho tvaru urceneho bitmapou.
>
> Este jedna otazka. Ako sa ta pridat maly gombik(ikona) na hornu
> listu kde su tlacitka pre minimalizovanie, maximalizovanie a
> zavretie programu? Pripadne pridat dalsiu polozku do menu vlavo
> ktore sa otvara po kliknuti na ikonu v lavom hornom rohu?
>
> Dakujem Juraj Svec.
>
>
Window
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 21.10.1998 18:27:53
Zdravim
Na oba dva problemy existuje jednoduche reseni ....
Na Delphi super page jsem videl jak komponentu na
gradientni horni listu tak i komponentu na okno libovolneho
tvaru ( jmenovala se tusim TCoolForm nebo tak nejak )...
s pozdravem
student M.Cizek <starxax(zv)molly.vabo(tec)cz>
HP : http://freeweb.coco(tec)cz/starxax
>Nuz, teda, ak chces ine okna ako hranate, tak si patrne budes musiet
>preprogramovat Windows...:-), alebo zabudni na Windows a urob si nejaky
>vlastny woknous, alebo asi najjednoduchsie bude zabudnut na Windows tiez a
>zaubstarat si napr. Linux s
>X-Windows a tam to uz ide bez problemou, ale nie je tam Delphi...:-)
>
>> Zaujima ma ako sa da urobit, aby v obycajnom okne namiesto
>> standardnej hornej listy (vacsinou modra) bol nejaky gradient -
>> prechod napr. od ciernej do sedej. Nieco take som videl v
>> jednej starsej verzii Microsoft Office.
>>
>> Dalej by som rad vedel ako sa da urobit okno, ktore nebude
>> mat standardny obdlznikovy tvar, ale aby jeho tvar bol urceny
>> nejakou dvojfarebnou bitmapou:
>> cierna farba = priesvitna, tuto bude diera
>> biela farba = nepriesvitna, toto je okno
>> cize dalo by sa urobit okno hocijakeho tvaru urceneho bitmapou.
>>
>> Este jedna otazka. Ako sa ta pridat maly gombik(ikona) na hornu
>> listu kde su tlacitka pre minimalizovanie, maximalizovanie a
>> zavretie programu? Pripadne pridat dalsiu polozku do menu vlavo
>> ktore sa otvara po kliknuti na ikonu v lavom hornom rohu?
>>
>> Dakujem Juraj Svec.
>>
Table scanner
[*] Petr Ma��k - 21.10.1998 18:50:18
Mam verzi 2.02. Po�lete na muj e-mail vasi e-mail adresu, ja zaslu soubor
jako prilohu.
Zdravi
* Petr Ma��k *
* RT electronic *
* rtepema(zv)mbox.vol(tec)cz *
* tel. -02-20510562 *
-----P�vodn� zpr�va-----
Od: Pavel M. <talema(zv)top(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. listopadu 1998 9:40
P�edm�t: Table scanner
Outlook Express
[*] Jirka Novacek <jnovacek(zv)telecom(tec)cz> - 21.10.1998 21:10:21
Ahoj Delfini!
Mam nasledujici problem, ktery nesouvisi s programovanim, ale se stahovanim
posty ze serveru. Pouzivam Outlook Express a dost casto se stane, ze pri
prijmu dojde k nejake chybe a obevi se hlaska, ze ze serveru POP3 neprisla
behem 60 vterin zadna zprava. Ponevac se na internet pripojuji tak jednou za
tyden, mam z konference i nekolik set zprav najednou. Tyto zpravy vsak musim
natahovat znovu a znovu dokud se je nepovede stahnout nebo kazdou chvilku
zastavovat prijem. Je mozno s tim neco udelat.
Dekuji predem za radu
BDE
[*] Radek Hladik <rhladik(zv)tfc(tec)cz> - 22.10.1998 01:51:33
Ahoj all,
mam zase jeden dotaz. Pokud pisu aplikaci s BDE a musim
program rucne zavrit (CTRL-F2) nebo mi spadne, zusetane
databaze pro BDE otevrena a uz mne do ni nepusti. Chci se
zeptat, jestli se da zavrit nak lip, nez restartem pocitace.
Diky Radek
Kedar Kidalh
rhladik(zv)tfc(tec)cz
tel. 0603/465771
Mistrovstvi v Delphi nebo neco podobneho
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 22.10.1998 09:14:44
Tak to uz je starozitnost, jestli v te dobe stala 850 Kc, tak dneska par tisic. :-)))
V tom Svycarsku asi byla verze pro Delphi 4, vim, ze uz vysla
Radim Kunz
>Knizka vysla cesky v Sams Publishing ve edisi UNIS a jmenuje se DELPHI
>Pruvodce vyvojare .Vysla v breznu 1966. Vcetne CD s demo priklady stala 850
>Kc.
>
>
>Zdravi
>* Petr Ma��k *
>* RT electronic *
>* rtepema(zv)mbox.vol(tec)cz *
>* tel. -02-20510562 *
>-----P�vodn� zpr�va-----
>Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
>Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
>Datum: 20. listopadu 1998 8:16
>P�edm�t: RE: Mistrovstvi v Delphi nebo neco podobneho
>
>
>Byl jsem ve Svycarsku a tam jsem se trochu dival do knihy:
>Pacheco & Teixeira, Delphi developer's guide
>Nevypadala zle.
>
>
>
>-----Original Message-----
>Dialogy v cestine
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 22.10.1998 11:52:28
Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel prelozene tlacitka dialogu z anglictiny
do cestiny.
Dik
Serbajlo Pavel
ICQ: 20849973
email: serb(zv)mikulov.sol(tec)cz
www: www.nemamstranky(tec)cz
Filtovani dat
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 22.10.1998 11:52:04
Petr Vale� wrote:
>
> Ahoj vsichni,
>
> mam dotaz,
> Kdyz chci nastavit filter na TTable::Filter a jednim ze znaku je " ' "
> jak to mam udelat ???
>
> Priklad :
>
> (COMPANY_NAME = 'AVA'S company')
>
> Diiky
>
> S pozdravem Petr
Cau.
Jednoduche uvozovky uvnitr retezce je nutne zdvojovat, tedy snad
COMPANY_NAME = 'AVA''S company'.
--
==============================================================
= Ing. Martin Kuska - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 710545 =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================Result set ve TStoredProc
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 22.10.1998 12:54:20
Ja osobne jsem jeste nikdy nerozchodil object TStoreProc na
zadnou ulozenou proceduru na Informixu.
Ale da se to pouzit i s TQuery, kde do SQL zadas
volani procedury. Takhle mi to chodi bez problemu.
Chtel bych se zeptat nekoho, kdo pouziva Informix
(je to 5.01 na Unixu) zda se mu podarilo spustit
proceduru pres TStoreProc (at uz pres ODBC nebo Native
spojeni)?
+--------------------------------+
| Ing. Petr JEZEK |
| Delvina, s.r.o. |
| Kuzmanyho 8, 010 01 Zilina, SR |
| Telephone: +421 89-624 344 |
| URL: http://www.delvina.sk |
| Email: mailto:petr(zv)sevis.sk |
+--------------------------------+
-----Original Message-----
From: Martin Dupal [mailto:mdupal(zv)vision(tec)cz]
Sent: Friday, November 20, 1998 2:55 PM
To: Delphi konference
Subject: Result set ve TStoredProc
Ahoj,
zajimam se ted o pouziti ulozenych procedur, ktere
vraceji cely dataset jako to dela treba TQuery. Mam odladenou
proceduru (MS-SQL 7.0 beta) a nemuzu se na ni na klientovi
(Delphi 3.01, BDE 5.0 pres native MSSQL) pripojit. Zkousel jsem
metody TStoredProc.Open i ExecProc, pokazde to skonci chybou
"Could not find object".
Ma pouzivani tohoto druhu uloz. procedur nejaky hacek, rozchodil
to vubec nekdo na jakemkoliv SQL serveru ?
diky, Martin
-----------
Ing. Martin Dupal
address: Geislerova 6
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
Mistrovstvi v Delphi nebo neco podobneho
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 22.10.1998 12:57:58
Trochu starsi vydani, ne :-)
+--------------------------------+
| Ing. Petr JEZEK |
| Delvina, s.r.o. |
| Kuzmanyho 8, 010 01 Zilina, SR |
| Telephone: +421 89-624 344 |
| URL: http://www.delvina.sk |
| Email: mailto:petr(zv)sevis.sk |
+--------------------------------+
-----Original Message-----
From: Petr Ma��k [mailto:rtepema(zv)mbox.vol(tec)cz]
Sent: Friday, November 20, 1998 11:34 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Mistrovstvi v Delphi nebo neco podobneho
Knizka vysla cesky v Sams Publishing ve edisi UNIS a jmenuje se DELPHI
Pruvodce vyvojare .Vysla v breznu 1966. Vcetne CD s demo priklady stala
850
Kc.
Zdravi
* Petr Ma��k *
* RT electronic *
* rtepema(zv)mbox.vol(tec)cz *
* tel. -02-20510562 *
-----P�vodn� zpr�va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 20. listopadu 1998 8:16
P�edm�t: RE: Mistrovstvi v Delphi nebo neco podobneho
Byl jsem ve Svycarsku a tam jsem se trochu dival do knihy:
Pacheco & Teixeira, Delphi developer's guide
Nevypadala zle.
-----Original Message-----
From: Radim Kunz [mailto:rkunz(zv)ova.comp(tec)cz]
Sent: Friday, November 20, 1998 8:27 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Mistrovstvi v Delphi nebo neco podobneho
Mistrovstvi v Delphi 3 vyjde (pry) 25.11. Ale at te neplete nazev,
nejde o knizku od M. Cantu, ale od nekoho jineho.
Nezna nekdo knizku (dobrou) pro Delphi4, samozrejme v anglictine ?
Radim
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. listopadu 1998 18:16
P�edm�t: Mistrovstvi v Delphi nebo neco podobneho
>Zdravicko...
>
>Existuje Mistrovstvi v Delphi nebo neco podobneho pro Delphi 4 (pri
>nejhorsim 3) v cestine? Sice to neni pro me, ale Delphi v kostce se mi
>nelibi. Je tedy nejaka alternativa?
>
>Dekuji za tipy, F.D3 a FindField
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 13:18:19
Martin Nedopil wrote:
>
> Taky se vam stava, ze
>
> a) polozka TABULKA.FindField('Pole').AsInteger napoprve
> projde ale napodruhe uz se behem programu vyhodi vyjimka?
> A kdyz pak definujete TABULKAPole.AsInteger v editoru poli,
> tak je vse v poradku?
Ne.
> b) kdyz date TABULKA.Close, tak to obcas ztuhne, ale kdyz radek
> vyhodite tak je vse v poradku?
Ne.
>
> c) taky se vam stava, ze slysite divne hlasy ???? :-)
Ano.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Skryti programu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 13:19:15
Martin Nedopil wrote:
>
> function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
> stdcall; external 'KERNEL32.DLL';
>
> ale ja nekde mam i jednodussi zpusob, jenze
> nevim kde. Narazil jsem na nej uplne nahodou.
> Zkusim ho pristi tyden ve stredu pohledat.
Ahoj,
me tenhle zpusob zase tak slozity neprijde. Spis by mne zajimalo, jestli
uz bude nekdy kompletni Win32 help u Delphi. Tahle funkce v nem samozrejme
neni :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Pripojeni sitove jednotky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 13:33:37
Krayzel Libor wrote:
>
> Zdravim,
>
> pomoci funkce WNetConnectionDialog volam z aplikace dialog pro pripojeni
> sitove jednotky. Chtel bych tam ovsem predvyplnit nejaky udaj do pole
> CESTA. Jde to?
Ahoj,
mohlo by to jit pomoci WNetConnectionDialog1 (nejsem ted na siti, nemuzu to
zkusit). Ta funkce neni (jako obvykle :-) popsana v helpu, ale je definovana
ve Windows.pas takze to lze z toho vycist. Jeji blizsi popis si muzes najit
na MSDN Online.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Skryti programu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 13:38:32
Krayzel Libor wrote:
>
> > A co udelat procesy 2, kdyz bude jeden sestrelen, tak ten
> > druhy ho ihned
> > spusti a opacne...
> >
> > Karel
> >
> > PS: Ty "filuty" bych doporucoval vyhodit...
>
> Bohuzel nejsem reditel. Ani hrozba srazek z platu jim nepomaha.
Mozna by misto hrozeb pomohlo to u nekolika nejhorsich osob aplikovat ...
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Kopirovani adresare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 13:42:09
Jan Janecek wrote:
>
> Ahoj lidicky,
> potrebuji zkopirovat obsah adresare (soubory i podadresare) nekam jinam.
> Jde o to, aby se zkopirovala cela struktura.
> Jinak kopirovat samotny soubor ci vytvorit adresar umim.
> Nevite nahodou o necem hotovem, ci o nake komponente do Delphi2 ?
O zadne komponente nevim, ale na kopirovani souboru je asi nejlepsi API funkce
SHFileOperation.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Window
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 13:44:01
Kallima II wrote:
> Zaujima ma ako sa da urobit, aby v obycajnom okne namiesto
> standardnej hornej listy (vacsinou modra) bol nejaky gradient -
> prechod napr. od ciernej do sedej. Nieco take som videl v
> jednej starsej verzii Microsoft Office.
V RxLib mas komponetu TRxGradientCaption.
> Dalej by som rad vedel ako sa da urobit okno, ktore nebude
> mat standardny obdlznikovy tvar, ale aby jeho tvar bol urceny
> nejakou dvojfarebnou bitmapou:
> cierna farba = priesvitna, tuto bude diera
> biela farba = nepriesvitna, toto je okno
> cize dalo by sa urobit okno hocijakeho tvaru urceneho bitmapou.
Jine okno nez obdelnikove muzes udelat pomoci regionu, nejaky priklad je
treba v UDDF FAQ (odkaz najdes v odkazech na Delphi Foru)
> Este jedna otazka. Ako sa ta pridat maly gombik(ikona) na hornu
> listu kde su tlacitka pre minimalizovanie, maximalizovanie a
Pomoci vykreslovani v non-klient oblasti, je s tim ale vic prace, musis
jeste odchytavat zpravy mysi a tak dale. Jine reseni by bylo udelat okno
bez okraje a vsechno kreslit primo do klientske oblasti, tak je to udelane
i v tom prikladu v UDDF FAQ. Tezko ale rict, ktere z reseni je vyhodnejsi.
Nejlepsi je nic takoveho nedelat ... :-)
> zavretie programu? Pripadne pridat dalsiu polozku do menu vlavo
> ktore sa otvara po kliknuti na ikonu v lavom hornom rohu?
Napriklad takhle:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
SC_BEEP = 100;
procedure TForm1.FormCreate(Sender: TObject);
begin
InsertMenu(GetSystemMenu(Handle, False), SC_RESTORE, MF_STRING,
SC_BEEP, 'Beep!');
end;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_BEEP then MessageBeep(0) else inherited;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Mistrovstvi v Delphi nebo neco podobneho
[*] Patrik Sl�de�ek�����%g��jgr� - 22.10.1998 13:46:52
Podle m�ch informac� z Computer Pressu m� Mistrovstv� v Delphi 3 vyj�t
25. listopadu, �ty�ka �dajn� bude zhruba o p�l roku pozd�ji. Je t�eba ale
br�t tyto informace s rezervou, nebo� v Computer Pressu jsou - alespo�
co se t��e knih o Delphi - dost velk� slibotechny.
Patrik Sl�de�ek
-----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: 21. listopadu 1998 9:15
P�edm�t: Re: Mistrovstvi v Delphi nebo neco podobneho
Tak to uz je starozitnost, jestli v te dobe stala 850 Kc, tak dneska par
tisic. :-)))
V tom Svycarsku asi byla verze pro Delphi 4, vim, ze uz vysla
Radim Kunz
>Knizka vysla cesky v Sams Publishing ve edisi UNIS a jmenuje se DELPHI
>Pruvodce vyvojare .Vysla v breznu 1966. Vcetne CD s demo priklady stala 850
>Kc.
>
>
>Zdravi
>* Petr Ma��k *
>* RT electronic *
>* rtepema(zv)mbox.vol(tec)cz *
>* tel. -02-20510562 *
>-----P�vodn� zpr�va-----
>Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
>Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
>Datum: 20. listopadu 1998 8:16
>P�edm�t: RE: Mistrovstvi v Delphi nebo neco podobneho
>
>
>Byl jsem ve Svycarsku a tam jsem se trochu dival do knihy:
>Pacheco & Teixeira, Delphi developer's guide
>Nevypadala zle.
>
>
>
>-----Original Message-----
>
Dialogy v cestine
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 14:11:50
> Pavel Serbajlo wrote:
>
> Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel prelozene tlacitka
> dialogu z anglictiny
> do cestiny.
Ahoj,
Mas asi namysli funkci MessageDlg. Asi nejlepsi reseni je misto ni pouzivat primo
dialogy systemu pomoci metody Application.MessageBox.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Mistrovstvi v Delphi nebo neco podobneho
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 14:12:42
> Knizka vysla cesky v Sams Publishing ve edisi UNIS a jmenuje se DELPHI
> Pruvodce vyvojare .Vysla v breznu 1966. Vcetne CD s demo priklady stala
> 850
> Kc.
... a jmenovala se Delphi for ENIAC :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Skryti programu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 22.10.1998 14:48:18
Tak jsem se dostal taky ke cteni zprav. Jak tak na tohle koukam, tak
kdybych byl "filuta" ja a potreboval bych ten system "ojebat", tak mi
zadny
KILL nezabrani. Proste bych ty EXE prejmenoval, a tvuj kill by byl
namydlenej. Mnohem ucinejsi je v BIOSu zakazat A:\ B:\ a setup
zaheslovat.
Pak je jeste ucinejsi reseni, ale to stoji prachy. Nejaky HW+SW treba
DECROS (to neni reklama) jsou i jine produkty. Zalezi, co je to za
filuty a co muzou zpusobit......
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: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 20. listopadu 1998 7:56
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Skryti programu
>
> > > pomoci komponenty Viti Gazdy umim zneviditelnit program na
> > TaskBaru. Ale
> > > da se program vyjmout i ze seznamu bezicich uloh?
> >
> > Myslim ze neda. K cemu to vlastne potrebujes, pises snad
> > nejaky virus ? :-)
>
> Kdepak, na to nemam cas. Ale mam v podniku par filutu, kteri i pres
> nastavenou systemovou politiku Windows (zakaz prace s registry apod)
> se
> snazi system "ojebat". Nosi si POLEDIT.EXE a REGEDIT.EXE na diskete a
> delaji si co chteji, coz je nepripustne. Tak jsem vyrobil pasticku v
> podobe programku KILL.EXE, ktera "zabiji" pri spusteni vyse uvedene
> programy. Ovsem tahle pasticka jede porad a samozrejme ze jde vypnout
> ze
> seznamu bezicich uloh.
> .........................................................
> . Libor Krayzel .
> . Czech Television, Studio Ostrava .
> . Dvorakova 18, 702 00 Ostrava .
> . Telephone: 069-6201375 .
> . URL: http://webhost(tec)cz/elka .
> . E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
> . Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
> . E-mail2: mailto:elka(zv)seznam(tec)cz .
> .........................................................Delphi do C++
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 22.10.1998 15:48:01
V�t�zslav Gazda Fri, Nov 20, 1998 at 01:41:43PM +0100 pise:
> Zalezi na tom jak je ta alikace napsana tj. jak moc je zavisla na Delphi,
> jestli je to DB aplikace (BDE), jake pouziva komponenty atd. Udelat to jde
> vzdy, ale je treba zhodnotit jestli se jedna o pouhe prepsani nebo se bude
> muset zacit znovu.
>
> Vita
nechapu oc vam jde. V C++Builderu muzu pouzivat hotove kusy v Delphi
(komponenty, dialogy, ...) a jen nove veci delat v C++.
O C++Builderu se zabyva konference cpb(zv)gvid(tec)cz (subscribe cpb na
listserv(zv)gvid(tec)cz)
milan
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Skryti programu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 22.10.1998 15:49:31
Jediny "kompletni" help k Win32 jsem videl akorat v MSDN, jsou tam i
navrhy novych funkci pro NT 5 ci jak se to bude jmenovat. Ale nedelej si
iluze, MS si vzdycky necha neco pro sebe. A vyvoj se prece nezastavi,
vzdy bude neco noveho v API.....
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 Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 22. listopadu 1998 13:19
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Skryti programu
>
> Martin Nedopil wrote:
> >
> > function RegisterServiceProcess(dwProcessID, dwType: Integer):
> Integer;
> > stdcall; external 'KERNEL32.DLL';
> >
> > ale ja nekde mam i jednodussi zpusob, jenze
> > nevim kde. Narazil jsem na nej uplne nahodou.
> > Zkusim ho pristi tyden ve stredu pohledat.
>
> Ahoj,
>
> me tenhle zpusob zase tak slozity neprijde. Spis by mne zajimalo,
> jestli
> uz bude nekdy kompletni Win32 help u Delphi. Tahle funkce v nem
> samozrejme
> neni :-)
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator
> * http://www.bojkot(tec)cz *
> * protestni akce *
> ************************
> Dialogy v cestine
[*] Ji�� Heinisch - 22.10.1998 16:03:16
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
ahoj
http://www.clexpert(tec)cz/software/localize/
pro D3 je to free a dobry
HeiJu
-----P�vodn� zpr�va-----
Od: Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz>
Komu: Delphi cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. listopadu 1998 14:03
P�edm�t: Dialogy v cestine
Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel prelozene tlacitka dialogu z anglictiny
do cestiny.
Dik
Serbajlo Pavel
ICQ: 20849973
email: serb(zv)mikulov.sol(tec)cz
www: www.nemamstranky(tec)cz
Dialogy v cestine
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 22.10.1998 18:17:06
to je pekny, ale uz mam hotovou dost rozsahlou aplikaci, a nechce se mi to
predelavat. Daji se nejak prelozit ty tlacitka u messagedlg ?
-----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: 22. listopadu 1998 15:24
P�edm�t: Re: Dialogy v cestine
>> Pavel Serbajlo wrote:
>>
>> Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel
prelozene tlacitka
>> dialogu z anglictiny
>> do cestiny.
>
>Ahoj,
>
>Mas asi namysli funkci MessageDlg. Asi nejlepsi reseni je misto ni pouzivat
primo
>dialogy systemu pomoci metody Application.MessageBox.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>* protestni akce *
>************************
>
>Dialogy v cestine
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.1998 19:44:18
Pavel Serbajlo wrote:
>
> to je pekny, ale uz mam hotovou dost rozsahlou aplikaci, a nechce se mi to
> predelavat. Daji se nejak prelozit ty tlacitka u messagedlg ?
Alespon na to budes pamatovat priste :-)
Mas tedy nekolik moznosti:
1. Pro Delphi 3 a 4 muzes pouzit Hlinkuv Jazykovy Lokalizator, pro to co
potrebujes je zdarma, navic je pekne udelany.
http://www.clexpert(tec)cz/software/localize/
2. Prelozit si to primo v souborech consts.pas (D3 a D4), pak to ale nebude
prelozene v packages ! V pripade D2 prelozit consts.rc soubor.
3. V pripade D4 pouzit vestavenou lokalizaci, ktera ale neni prilis stastna.
4. Napsat si do noveho unitu znovu funkci MessageDlg a v ni pouzit volani
Application.MessageBox s prevodem parametru na puvodni funkci a tento
unit pak zaradit do vsech formularu v projektu za Dialogs. Pri pouziti
tohoto reseni ti to bude i pekne cinkat ze zvukovky :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
DLL a OCX
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 22.10.1998 19:48:52
Ahoj DelphiMistri,
mam par dotazu. Vim, ze asi nemaji moc spolecne primo s Delphi,
ale s programovanim pod Win32 jo.
1) Potrebuji zjistit, zda je nejake DLL ci OCX zaregistrovane.
2) Pokud ne, tak ho zaregistrovat.
Samozrejme programove:) Predem diky Michal Neuwirth
Skryti programu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.10.1998 22:41:41
> me tenhle zpusob zase tak slozity neprijde. Spis by mne zajimalo, jestli
> uz bude nekdy kompletni Win32 help u Delphi. Tahle funkce v nem samozrejme
> neni :-)
Ono to MSDN preci jen k necemu je :-))) Opravdu doporucuji, nemusis
mit Universal ani Professional, kompletni popisy jsou v Library
Subscription, jejiz rocni predplatne neni zase tak drahe. Ale je
take uplne zdarma na webu Microsoftu - i kdyz pri cenach Telecomu
se vyplati ta cedecka :-)))
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
Kopirovani adresare
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.10.1998 22:41:41
> potrebuji zkopirovat obsah adresare (soubory i podadresare) nekam jinam.
> Jde o to, aby se zkopirovala cela struktura.
> Jinak kopirovat samotny soubor ci vytvorit adresar umim.
> Nevite nahodou o necem hotovem, ci o nake komponente do Delphi2 ?
Soucasti SysTools je komponenta na takove kopirovani, ktera navic
i ukazuje takove ty windowsovske letajici papiry. Ale je to
komercni, tak te to asi zajimat nebude...
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
StringGrid - OnExitCell
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.10.1998 00:01:21
> Ond�ej �alplachta wrote:
>
> Zdravim,
> Dik za radu se soubory DFM, moc me to pomohlo.
>
> Mam maly problem se stringgridem, potreboval bych zjistit kdy uzivatel opusti
> editovanou bunku. Nikde jsem tuto udalost nenasel (neco jako OnExitCell).
Ahoj,
pouzij udalost OnSelectCell, v ni muzes i zakazat prechod do jine bunky.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Dialogy v cestine
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 23.10.1998 00:36:11
Pavel Serbajlo Sun, Nov 22, 1998 at 06:17:06PM +0100 pise:
> to je pekny, ale uz mam hotovou dost rozsahlou aplikaci, a nechce se mi to
> predelavat. Daji se nejak prelozit ty tlacitka u messagedlg ?
>
probirali jsme to uz nedavno (dost obsirne). Vsichni tu doporucuji ten
lokalizator (kolega Vonec o nem pise v nasl. mailu). Jinak preklad pro
Delphi 3 (primo do zdrojaku) je mozne si stahnout na
http://www.fi.muni(tec)cz/~sorm/ftp/consts.pas
Je nutne dat Build All a predtim nastavit Conditional defines: czech
milan
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Kopirovani adresare
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 23.10.1998 00:37:40
Petr Zahradnik Sun, Nov 22, 1998 at 10:41:41PM +0100 pise:
> > potrebuji zkopirovat obsah adresare (soubory i podadresare) nekam jinam.
> > Jde o to, aby se zkopirovala cela struktura.
> > Jinak kopirovat samotny soubor ci vytvorit adresar umim.
> > Nevite nahodou o necem hotovem, ci o nake komponente do Delphi2 ?
>
> Soucasti SysTools je komponenta na takove kopirovani, ktera navic
> i ukazuje takove ty windowsovske letajici papiry. Ale je to
> komercni, tak te to asi zajimat nebude...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
o komponente nevim, ale ja bych to resil tak, ze bych si udelal rekurzivni
proceduru, ktera bude prochazet adresar (std. funkce FindFirst/Next/Close) a
v pripade souboru jej zkopiruje, v pripade nalezeneho adresare jej zalozi a
znovu se rekurzivne provede na tento podadresar. To by melo byt trivialni
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Window
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 23.10.1998 06:17:49
Na to, abych mel jiny tvar okna, nepotrebuji nic preprogramovavat. Staci se
podivat na www.gnomehome.demon.nl/uddf/tocfrm.htm kapitola 60. round splash
screen.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. listopadu 1998 18:35
P�edm�t: RE: Window
Nuz, teda, ak chces ine okna ako hranate, tak si patrne budes musiet
preprogramovat Windows...:-), alebo zabudni na Windows a urob si nejaky
vlastny woknous, alebo asi najjednoduchsie bude zabudnut na Windows tiez
a
zaubstarat si napr. Linux s
X-Windows a tam to uz ide bez problemou, ale nie je tam Delphi...:-)
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Kallima II
> Sent: Friday, November 20, 1998 5:16 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Window
>
>
> Dakujem, ze ste mi poradili s mojim malym problemom.
> Teraz mam zopar otazok naozaj suvisiacich s WINDOWS.
>
> Zaujima ma ako sa da urobit, aby v obycajnom okne namiesto
> standardnej hornej listy (vacsinou modra) bol nejaky gradient -
> prechod napr. od ciernej do sedej. Nieco take som videl v
> jednej starsej verzii Microsoft Office.
>
> Dalej by som rad vedel ako sa da urobit okno, ktore nebude
> mat standardny obdlznikovy tvar, ale aby jeho tvar bol urceny
> nejakou dvojfarebnou bitmapou:
> cierna farba = priesvitna, tuto bude diera
> biela farba = nepriesvitna, toto je okno
> cize dalo by sa urobit okno hocijakeho tvaru urceneho bitmapou.
>
> Este jedna otazka. Ako sa ta pridat maly gombik(ikona) na hornu
> listu kde su tlacitka pre minimalizovanie, maximalizovanie a
> zavretie programu? Pripadne pridat dalsiu polozku do menu vlavo
> ktore sa otvara po kliknuti na ikonu v lavom hornom rohu?
>
> Dakujem Juraj Svec.
>
>
>
Dialogy v cestine
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.10.1998 07:37:57
Pavel Serbajlo wrote:
> Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel prelozene
> tlacitka dialogu z anglictiny do cestiny.
>
Zlokalizovat.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
GPF
[*] Radim Krivanek <rumun(zv)anet-brno(tec)cz> - 23.10.1998 07:42:44
Bene Jaroslav wrote:
> Ahoj,
> mam malinky dotaz. Aplikace mi po korektnim uzavreni pise GPF (ale
> ne vzdy) ale vse co je v aplikaci pouzito je spravne uvolneno a aplikace je
> jinak korektne uzavrena. Takze problem jako by nebyl. Pouzil jsem Orpheus a
> RxLibr. Setkal jste se s tim, prosim, nekdo? A kdyz ano, jak bych to mel
> resit?
> Jaro B. micrel(zv)micrel(tec)cz
Take jsem byl vzdycky presvedcen, ze je vse korektni, ale ono nebylo.
Zejmena muze byt problem pri uzavirani objektu, ktere maji definovanu
obsluhu udalosti systemoveho charakteru. Napriklad u oken je mozno
zajistit spravne dokonceni eventovych funkci pred uvolnenim pameti
duslednym pouzivanim Free, nikdy Destroy.
--
** Radim Krivanek (Rumun) ** Telefon 0603 700 307 **
** rumun(zv)anet-brno(tec)cz ** Work: 05 4132 1129 **
** ICQ Online 23045277 ** Home: 05 35 65 77 **
Dialogy v cestine
[*] SunSoft - Mr�z �ubom�r <sunsoft(zv)sunsoft.sk> - 23.10.1998 08:07:27
-----P�vodn� zpr�va-----
Od: Mraz za u?ivatele SunSoft Plus s.r.o.
Odesl�no: 23. november 1998 8:06
Komu: Kustra
P�edm�t: RE: Re: Dialogy v cestine
Jeden s postrehov na vas problem.
V Delphi 1 bolo mozne pouzit Resource Workshop ver 1.02.
ktory je sucastou balika C++ instalu.
S nim sa dalo otvorit exe vygenerovany v Delphi 1 a v jeho res
zdrojoch prepisat YES alebo NO, a taktiez zaradit spet.
V novsich verziach
Delphi vsak tento WorkShop uz nefunguje hlasi z ma iny format
cize je treba novsiu verziu alebo nieco ine, na Torry som videl
nejake editory Res suborov.
LUBO MRAZ.
TSC.
-----P�vodn� zpr�va-----
Od: Kustra
Odesl�no: 23. november 1998 1:50
Komu: Mraz; Fedor
P�edm�t: FW: Re: Dialogy v cestine
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz
Sent: 23. listopadu 1998 00:41
To: delphi-l(zv)fwd(tec)cz
Cc:
Subject: Re: Dialogy v cestine
Pavel Serbajlo Sun, Nov 22, 1998 at 06:17:06PM +0100 pise:
> to je pekny, ale uz mam hotovou dost rozsahlou aplikaci, a nechce se mi to
> predelavat. Daji se nejak prelozit ty tlacitka u messagedlg ?
>
probirali jsme to uz nedavno (dost obsirne). Vsichni tu doporucuji ten
lokalizator (kolega Vonec o nem pise v nasl. mailu). Jinak preklad pro
Delphi 3 (primo do zdrojaku) je mozne si stahnout na
http://www.fi.muni(tec)cz/~sorm/ftp/consts.pas
Je nutne dat Build All a predtim nastavit Conditional defines: czech
milan
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
DLL a OCX
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 23.10.1998 08:18:41 -0000
Ahoj,
ted nevim, co to udela, kdyz budes chtit registrovat jiz jednou
registrovany OCX, ale asi nic tragickeho. Tak proste spust registraci, aniz
by jsi se ptal, zda uz je ten OCX registrovany. Asi to neni to prave
orechove, ale urcite nejjednodussi.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Hubert [SMTP:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz]
Odeslano: 22. listopadu 1998 18:49
Komu: Delphi
Poedmit: DLL a OCX
Ahoj DelphiMistri,
mam par dotazu. Vim, ze asi nemaji moc spolecne primo s Delphi,
ale s programovanim pod Win32 jo.
1) Potrebuji zjistit, zda je nejake DLL ci OCX zaregistrovane.
2) Pokud ne, tak ho zaregistrovat.
Samozrejme programove:) Predem diky Michal Neuwirth
M��en� �asu
[*] V�t�zslav Gazda������u��n�?��? - 23.10.1998 08:26:17
Delam dosovsky programek v BP7. Na seriovy port chodi do jenoho vstupu
signaly. Potrebuji zmerit dobu mezi jednotlivymi signaly s maximalni
presnosti (mikrosekundy). K tak vysoke presnosti vsak nemuzu pouzit hodiny v
pocitaci. Nevi nekdo jak na to ?
Omlouvam se za mirny offtopic.
Diky Vita
Skryti programu
[*] sup(zv)svitap(tec)cz - 23.10.1998 8:28:36
>> > pomoci komponenty Viti Gazdy umim zneviditelnit program na
>> TaskBaru. Ale
>> > da se program vyjmout i ze seznamu bezicich uloh?
>>
>> Myslim ze neda. K cemu to vlastne potrebujes, pises snad
>> nejaky virus ? :-)
>
>Kdepak, na to nemam cas. Ale mam v podniku par filutu, kteri i pres
>nastavenou systemovou politiku Windows (zakaz prace s registry apod) se
>snazi system "ojebat". Nosi si POLEDIT.EXE a REGEDIT.EXE na diskete a
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Zkus je ojebat tim, ze jim zakazes disketovou mechaniku. Viz napr. Zero
Adminstration kit od Microsoftu. Jestli chces. poslu ti evaluation verzi.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
SVITAVY
Tel: ++420-461-568 202
Fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
Inicializace
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 23.10.1998 08:57:04
Ahooj,
vubec nic mi nepomaha. Nevim, co s�tim. U tohohle zapisu se mu nelibi to, co
je v�zavorce:
var
Pmenu: TpopupMenu; MojeMenu: TmenuItem;
.
.
MojeMenu.OnClick := PMenuOnClick(PMenu);
[Error] Unit1.pas(50): Incompatible types: 'TNotifyEvent' and 'procedure,
untyped pointer or untyped parameter'
.
.
.
procedure PMenuOnClick(Sender: TObject);
begin
end;
ja uz fakt nevim, co mam ch zavorek napsat, aby to fungovalo.
V�clav Lukes
E-mail:
Vaclav.Lukes(zv)pvt(tec)cz
511247(zv)sms.paegas(tec)cz
Tel.:
0603-511247
-----P�vodn� zpr�va-----
Od: Jixm Heinisch [mailto:HeiJu(zv)sol(tec)cz]
Odesl�no: 20. listopadu 1998 19:36
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Inicializace
ahoj
Mozna takto
Pmenu:=nil;
PMenu := TPopupMenu.Create(...); HeiJu
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. listopadu 1998 11:45
P�edm�t: RE: Inicializace
>Skus popisat, o co Ti ide trochu podrobnejsie. Ten warning znamena,
ze
>smernik moze byt nastaveny na nil a pri jeho pouziti dojde k chybe.
>Ak potrebujes rucne vytvorit instanciu nejakeho objektu, tak sa to
robi
>volanim jeho konstruktora, ktory ti zaroven vrati smernik na
vytvoreny
>objekt:
>
>PMenu := TPopupMenu.Create(...);
>
>
>> -----Original Message-----
>> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
Behalf Of
>> Lukes V�clav
>> Sent: Friday, November 20, 1998 8:52 AM
>> To: 'delphi-l(zv)fwd(tec)cz'
>> Subject: Inicializace
>>
>>
>>
>> Hi,
>>
>> muzete mi prosim n�kdo poradit, jak inicializovat napr.
TPopupMenu ?
>>
>> P�i prekladu dostavam tuto hlasku:
>>
>> [Warning] Spol_F.pas(154): Variable 'PMenu' might not have been
>> initialized
>>
>>
>> Diky
>>
>> Vasek
>>
>>
>>
>> V�clav Lukes
>>
>> E-mail:
>> Vaclav.Lukes(zv)pvt(tec)cz
>> 511247(zv)sms.paegas(tec)cz
>>
>> Tel.:
>> 0603-511247
>>
>Skryti programu
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 23.10.1998 09:01:29 -0000
Hm, asi to nebude tak jednoduche. Zkusil jsem to pod NT 4.0 a krici to, ze
nemuse najit vstupni bod funkce RegisterServiceProcess v Kerenel32.dll.
Nemam W95, nema to byt jen pro W95 ?
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Pavel Serbajlo [SMTP:serb(zv)mikulov.sol(tec)cz]
Odeslano: 20. listopadu 1998 18:44
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Skryti programu
Panove, to jsou same machinace a alchimie :-))
Program ze seznamu uloh ZARUCENE schovas malou
prilozenou konponentou......myslim ze potesi i vsechny
VirusDevelopery :-))))))))
Dialogy v cestine
[*] rdocekal(zv)csas(tec)cz - 23.10.1998 09:26:16
J� pou��v�m unitu podle http://www.bitsoft.com/freestuff/delphi/msgdlg.htm ,
je to free a m� to tu v�hodu, �e to p�e i na anglickejch Windousech �esky.
Jsou tam upraven� i InputBox a InputQuery. Bude-li z�jem, m��u na FTP poslat
i verzi pro D4.
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
-----P�vodn� zpr�va-----
Od: Pavel Serbajlo [mailto:serb(zv)mikulov.sol(tec)cz]
Odesl�no: 22. listopadu 1998 11:52
Komu: Delphi cz
P�edm�t: Dialogy v cestine
Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel prelozene
tlacitka dialogu z anglictiny
do cestiny.
Dik
Serbajlo Pavel
ICQ: 20849973
email: serb(zv)mikulov.sol(tec)cz
www: www.nemamstranky(tec)cz
Dialogy v cestine
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 23.10.1998 09:32:52
Ano, daji. V D1 si budes mu�set nejakym Resource Workshopem predelat
v Delphi/LIB adresari soubor consts.res - tam jsou jak nazvy tlacitek,
tak titulky toho MessageDlg (jako Warning,...). D3 to bude moznba stejne,
ale nekdo tady v konferenci posilal/nabizel jiz prelozene consts.dcu.
Potom staci jen znovu prelozit
Nebo pouzij Zbyskuv lokalizator na jiz hotovy kompilat, a
le neni preci problem udelat vlastni MessageDlg fuknci, ktera bude
pouzivat Application.MessageBox, jak Ti radi Petr a tim "odpojit"
tu Delphackou.
Dobra.
----------
Od: Pavel Serbajlo[SMTP:serb(zv)mikulov.sol(tec)cz]
Odesl�no: 22. listopadu 1998 18:17
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Dialogy v cestine
to je pekny, ale uz mam hotovou dost rozsahlou aplikaci, a nechce se mi to
predelavat. Daji se nejak prelozit ty tlacitka u messagedlg ?
-----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: 22. listopadu 1998 15:24
P�edm�t: Re: Dialogy v cestine
>> Pavel Serbajlo wrote:
>>
>> Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel
prelozene tlacitka
>> dialogu z anglictiny
>> do cestiny.
>
>Ahoj,
>
>Mas asi namysli funkci MessageDlg. Asi nejlepsi reseni je misto ni pouzivat
primo
>dialogy systemu pomoci metody Application.MessageBox.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>* protestni akce *
>************************
>
>Dialogy v cestine
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 23.10.1998 09:36:30
>----------
>Od: Zbysek Hlinka[SMTP:zhlinka(zv)login(tec)cz]
>Odesl�no: 23. listopadu 1998 7:37
>Komu: delphi-l(zv)fwd(tec)cz
>P�edm�t: Re: Dialogy v cestine
>
>Pavel Serbajlo wrote:
>
>> Nevim, jestli to tu uz nebylo, ale nevim co mam udelat abych mel prelozene
>> tlacitka dialogu z anglictiny do cestiny.
>>
>Zlokalizovat. - :-)))
>
>
Dobra rada nad zlato :-)))
D.Inicializace
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 23.10.1998 09:38:40
Udelal jsem to je�t� jednou a velmi jednoduse. U noveho cisteho formulare
jsem do OnCreate zapsal toto:
PMenu := nil;
PMenu := TPopupMenu.Create(Self);
while PMenu.Items.Count > 0 do PMenu.Items.Delete(0);
MojeMenu := TMenuItem.Create(PMenu);
MojeMenu.Name := 'PMenu1';
MojeMenu.Caption := '&Pokus';
MojeMenu.OnClick := PMenuOnClick(tady je ten problem);
PMenu.Items.Add(MojeMenu);
tak ze cely formulare je tento:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PMenu: TPopupMenu;
MojeMenu: TMenuItem;
implementation
{$R *.DFM}
procedure PMenuOnClick(Sender: TObject);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PMenu := nil;
PMenu := TPopupMenu.Create(Self);
while PMenu.Items.Count > 0 do PMenu.Items.Delete(0);
MojeMenu := TMenuItem.Create(PMenu);
MojeMenu.Name := 'PMenu1';
MojeMenu.Caption := '&Pokus';
MojeMenu.OnClick := PMenuOnClick();
PMenu.Items.Add(MojeMenu);
end;
end.
Cela potiz je v�tom, ze nevim, co napsat do zavorek u PMenuOnClick.
V�clav Lukes
E-mail:
Vaclav.Lukes(zv)pvt(tec)cz
511247(zv)sms.paegas(tec)cz
Tel.:
0603-511247
-----P�vodn� zpr�va-----
Od: Lukes V�clav [mailto:Vaclav.Lukes(zv)pvt(tec)cz]
Odesl�no: 23. listopadu 1998 8:57
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Inicializace
Ahooj,
vubec nic mi nepomaha. Nevim, co s�tim. U tohohle zapisu se mu
nelibi to, co
je v�zavorce:
var
Pmenu: TpopupMenu; MojeMenu: TmenuItem;
.
.
MojeMenu.OnClick := PMenuOnClick(PMenu);
[Error] Unit1.pas(50): Incompatible types: 'TNotifyEvent' and
'procedure,
untyped pointer or untyped parameter'
.
.
.
procedure PMenuOnClick(Sender: TObject);
begin
end;
ja uz fakt nevim, co mam ch zavorek napsat, aby to fungovalo. V�clav Lukes
E-mail:
Vaclav.Lukes(zv)pvt(tec)cz
511247(zv)sms.paegas(tec)cz
Tel.:
0603-511247
-----P�vodn� zpr�va-----
Od: Jixm Heinisch [mailto:HeiJu(zv)sol(tec)cz]
Odesl�no: 20. listopadu 1998 19:36
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Inicializace
ahoj
Mozna takto
Pmenu:=nil;
PMenu := TPopupMenu.Create(...); HeiJu
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. listopadu 1998 11:45
P�edm�t: RE: Inicializace
>Skus popisat, o co Ti ide trochu podrobnejsie. Ten warning
znamena,
ze
>smernik moze byt nastaveny na nil a pri jeho pouziti dojde
k chybe.
>Ak potrebujes rucne vytvorit instanciu nejakeho objektu,
tak sa to
robi
>volanim jeho konstruktora, ktory ti zaroven vrati smernik
na
vytvoreny
>objekt:
>
>PMenu := TPopupMenu.Create(...);
>
>
>> -----Original Message-----
>> From: owner-delphi-l(zv)fwd(tec)cz
[mailto:owner-delphi-l(zv)fwd(tec)cz]On
Behalf Of
>> Lukes V�clav
>> Sent: Friday, November 20, 1998 8:52 AM
>> To: 'delphi-l(zv)fwd(tec)cz'
>> Subject: Inicializace
>>
>>
>>
>> Hi,
>>
>> muzete mi prosim n�kdo poradit, jak inicializovat napr.
TPopupMenu ?
>>
>> P�i prekladu dostavam tuto hlasku:
>>
>> [Warning] Spol_F.pas(154): Variable 'PMenu' might not
have been
>> initialized
>>
>>
>> Diky
>>
>> Vasek
>>
>>
>>
>> V�clav Lukes
>>
>> E-mail:
>> Vaclav.Lukes(zv)pvt(tec)cz
>> 511247(zv)sms.paegas(tec)cz
>>
>> Tel.:
>> 0603-511247
>>
>Re[2]: Kopirovani adresare
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 23.10.1998 09:40:14
>> potrebuji zkopirovat obsah adresare (soubory i podadresare) nekam jinam.
>> Jde o to, aby se zkopirovala cela struktura.
>> Jinak kopirovat samotny soubor ci vytvorit adresar umim.
>> Nevite nahodou o necem hotovem, ci o nake komponente do Delphi2 ?
PZ> Soucasti SysTools je komponenta na takove kopirovani, ktera navic
PZ> i ukazuje takove ty windowsovske letajici papiry. Ale je to
PZ> komercni, tak te to asi zajimat nebude...
A co tadle API funkce:)
The MoveFile function renames an existing file or a directory (including all its children).
BOOL MoveFile(
LPCTSTR lpExistingFileName, // address of name of the existing file
LPCTSTR lpNewFileName // address of new name for the file
);
M��en� �asu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 23.10.1998 09:40:16
Kdyz jsme chteli zvazit napriklad neco hodne lehkeho (rekneme zrnko ryze)
a nemeli jsme dost presne vahy, tak jsme vzdycky zvazili treba padesat
zrnek a vyslednou hmotnost jsme pak vydelili 50-ti. Muzes zmerit treba
cas padesati signalu a ty pak vydelit. Jestli to podstata veci ovsem
dovoluje.
D.
----------
Od: V�t�zslav Gazda[SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 23. listopadu 1998 8:26
Komu: Delphi konference
P�edm�t: M��en� �asu
Delam dosovsky programek v BP7. Na seriovy port chodi do jenoho vstupu
signaly. Potrebuji zmerit dobu mezi jednotlivymi signaly s maximalni
presnosti (mikrosekundy). K tak vysoke presnosti vsak nemuzu pouzit hodiny v
pocitaci. Nevi nekdo jak na to ?
Omlouvam se za mirny offtopic.
Diky Vita
OnClick u PopupMenu
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 23.10.1998 09:41:47
Hi,
Mam nasledujici maly ( pro me velky, jinak bych sem nepsal ) s�prirazenim
udalosti do OnClick u PopupMenu.
Takto vypada jadnoduchy zdrojak:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PMenu: TPopupMenu;
MojeMenu: TMenuItem;
implementation
{$R *.DFM}
procedure PMenuOnClick(Sender: TObject);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PMenu := nil;
PMenu := TPopupMenu.Create(Self);
while PMenu.Items.Count > 0 do PMenu.Items.Delete(0);
MojeMenu := TMenuItem.Create(PMenu);
MojeMenu.Name := 'PMenu1';
MojeMenu.Caption := '&Pokus';
MojeMenu.OnClick := PMenuOnClick( .. ); zde je ten problem. Nevim, co
zapsat do zavorek.
PMenu.Items.Add(MojeMenu);
end;
end.
Poradite mi prosim n�kdo ?
Vasek
V�clav Lukes
E-mail:
Vaclav.Lukes(zv)pvt(tec)cz
511247(zv)sms.paegas(tec)cz
Tel.:
0603-511247
Ceske resource stringy pro Delphi 4
[*] Karel Kral <kral(zv)purus(tec)cz> - 23.10.1998 09:41:56
Mate nekdo prelozene resource stringy do cestiny?. Myslim jednotky
consts.pas, oleconsts, dbconsts.
A pokud ano, muzete mi je zaslat?
--
_______________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0601/536647, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz
_______________________________________________
Re[2]: Kopirovani adresare
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 23.10.1998 09:44:21
MS> Petr Zahradnik Sun, Nov 22, 1998 at 10:41:41PM +0100 pise:
>> > potrebuji zkopirovat obsah adresare (soubory i podadresare) nekam jinam.
>> > Jde o to, aby se zkopirovala cela struktura.
>> > Jinak kopirovat samotny soubor ci vytvorit adresar umim.
>> > Nevite nahodou o necem hotovem, ci o nake komponente do Delphi2 ?
>>
>> Soucasti SysTools je komponenta na takove kopirovani, ktera navic
>> i ukazuje takove ty windowsovske letajici papiry. Ale je to
>> komercni, tak te to asi zajimat nebude...
>>
>> S pozdravem
>> Petr Zahradnik, pocitacovy expert
>>
MS> o komponente nevim, ale ja bych to resil tak, ze bych si udelal rekurzivni
MS> proceduru, ktera bude prochazet adresar (std. funkce FindFirst/Next/Close) a
MS> v pripade souboru jej zkopiruje, v pripade nalezeneho adresare jej zalozi a
MS> znovu se rekurzivne provede na tento podadresar. To by melo byt trivialni
No s tou rekurzi bych trochu brzdil. Kdyz uz bys to chtel delat
takhle, tak bych si udelal zasobnik adresaru, ktere jsem jeste
neprosel. Neco podobnyho pouzivam pro nacteni obsahu celeho disku a
facha to celkem svizne. (Pri rekurzi jsem se na svym 4GB HD se zlou
potazal).
Kopirovani adresare
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 23.10.1998 09:58:06
> No s tou rekurzi bych trochu brzdil. Kdyz uz bys to chtel delat
> takhle, tak bych si udelal zasobnik adresaru, ktere jsem jeste
> neprosel. Neco podobnyho pouzivam pro nacteni obsahu celeho disku a
> facha to celkem svizne. (Pri rekurzi jsem se na svym 4GB HD se zlou
> potazal).
Ja jsem rekurzi na celej disk pouzival taky a problem se nemel naprosto
zadnej (NTFS 3GB). Samozrejme spotreba pameti byla ponekud vetsi :-),
ale bezelo to jako hodinky.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Spoluprace s interpretem fontu
[*] Martin Cerny <cernym(zv)mendelu(tec)cz> - 23.10.1998 10:03:08
Dobry den,
mam tento problem: potreboval bych po specifikaci fontu (jmeno, velikost,
rozliseni) ziskat bitmapy jednotlivych znaku a ty potom ulozit na
disk. Pracuji v Delphi 2.
Dekuji.Kopirovani adresare
[*] Milan Valenta <valenta(zv)telecom(tec)cz> - 23.10.1998 10:08:02
A coz takhle zavolat program XCOPY s parametrem /E ??
S pozdravem
Ing. Milan VALENTA
Horni Slavkov
e-mail: valenta(zv)telecom(tec)cz
----------
> Odes�latel: Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Kopirovani adresare
> Datum: 19. listopadu 1998 12:20
>
> Ahoj lidicky,
> potrebuji zkopirovat obsah adresare (soubory i podadresare) nekam jinam.
> Jde o to, aby se zkopirovala cela struktura.
> Jinak kopirovat samotny soubor ci vytvorit adresar umim.
> Nevite nahodou o necem hotovem, ci o nake komponente do Delphi2 ?
>
> Diky za pomoc...
>
> -------------------------------------
> Jan Janecek - STOUPA
> VOS_SPS
> Pod Kozeluhy 100
> Jicin 50601
> EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> stoupik(zv)xoommail.com
> jan.janecek(zv)post(tec)cz
> WEB: HTTP://members.xoom.com/stoupik
> ICQ: 12364149
> -------------------------------------
Mistrovstvi v Delphi nebo neco podobneho
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 23.10.1998 10:10:37
> Knizka vysla cesky v Sams Publishing ve edisi UNIS a jmenuje se DELPHI
> Pruvodce vyvojare .Vysla v breznu 1966. Vcetne CD s demo priklady stala 850
> Kc.
V ceskem prekladu je v ni silene mnozstvi chyb - od preklepu az po chyby
v prikladech (treba jiny identifikator nebo ze si pri cteni z
clipboardu "pro jistotu" zisti skutecnou velikost dat v clipboardu -
- a pak ji nepouzije z stejne cte SizeOf(...)...
Ale jinak spousta informaci a triku, (a bez servitku - kdyby meli
vsechno vysvetlovat, melo by to deset dilu...).
Tom
Listbox sort
[*] Honza Fiala <fala(zv)imc(tec)cz> - 23.10.1998 10:14:31
Caute,
tedka jsem chtel vyuzit fce. trideni v listboxu a nejak se mi to
nepovedlo.
Delal jsem to takhle a rvalo to na preteceni Call Stack.
V listboxu bylo asi 1000 zaznamu.
Function SortMyList(Item1, Item2): Integer;
var i : Integer;
Begin
i := -1;
if TMyClass(Item1).value > TMyClass(Item2).value then i := 1;
SortMyList := i
End;
...
...
mylist.sort(sortMyList);
Nikde jsem nenasel priklad. Mohl by mi nekdo poradit jak se to ma spravne
delat.
BTW: Nevite jakou metodu trideni to vyuziva. Pokud by to mel byt Buble sort,
tak si to radeji napisu sam v quick sortu.
Dik
Honza Fiala
Inicializace
[*] Lubo Fule <fule(zv)sct.sk> - 23.10.1998 10:16:23
To je uplne samozrejme, ze to takto nejde. Ked tam napises aj parametre, tak
to nevracia smernik na danu metodu, ale hned ju vykonava. Spravny zapis musi
byt:
MojeMenu.OnClick := PMenuOnClick;
Toto do OnClick zapise pointer na danu metodu a ked treba, teda po vyvolani
daneho menu, sa vykona metoda na ktoru OnClick ukazuje. Tvoj predchadzajuci
zapis znamenal: "Vykonaj metodu PMenuOnClick a vrat jej vysledok". Kedze
procedura nic nevracia a uz vobec nie pozadovany pointer, tak to kompilator
nezazral. Moj zapis znamena: "Do OnClick zapis pointer na metodu PMenuClick"
a to je presne to co chces...> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Lukes V�clav
> Sent: Monday, November 23, 1998 8:57 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Inicializace
>
>
> Ahooj,
>
> vubec nic mi nepomaha. Nevim, co s�tim. U tohohle zapisu se mu
> nelibi to, co
> je v�zavorce:
>
> var
> Pmenu: TpopupMenu; MojeMenu: TmenuItem;
>
> .
> .
> MojeMenu.OnClick := PMenuOnClick(PMenu);
>
> [Error] Unit1.pas(50): Incompatible types: 'TNotifyEvent' and 'procedure,
> untyped pointer or untyped parameter'
> .
> .
> .
> procedure PMenuOnClick(Sender: TObject);
> begin
>
> end;
>
> ja uz fakt nevim, co mam ch zavorek napsat, aby to fungovalo.
>
> V�clav Lukes
>
> E-mail:
> Vaclav.Lukes(zv)pvt(tec)cz
> 511247(zv)sms.paegas(tec)cz
>
> Tel.:
> 0603-511247
>
>
> -----P�vodn� zpr�va-----
> Od: Jixm Heinisch [mailto:HeiJu(zv)sol(tec)cz]
> Odesl�no: 20. listopadu 1998 19:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Inicializace
>
> ahoj
>
> Mozna takto
>
> Pmenu:=nil;
> PMenu := TPopupMenu.Create(...);
>
> HeiJu
>
>
> -----P�vodn� zpr�va-----
> Od: Lubo Fule <fule(zv)sct.sk>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 20. listopadu 1998 11:45
> P�edm�t: RE: Inicializace
>
>
> >Skus popisat, o co Ti ide trochu podrobnejsie. Ten warning znamena,
> ze
> >smernik moze byt nastaveny na nil a pri jeho pouziti dojde k chybe.
> >Ak potrebujes rucne vytvorit instanciu nejakeho objektu, tak sa to
> robi
> >volanim jeho konstruktora, ktory ti zaroven vrati smernik na
> vytvoreny
> >objekt:
> >
> >PMenu := TPopupMenu.Create(...);
> >
> >
> >> -----Original Message-----
> >> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of
> >> Lukes V�clav
> >> Sent: Friday, November 20, 1998 8:52 AM
> >> To: 'delphi-l(zv)fwd(tec)cz'
> >> Subject: Inicializace
> >>
> >>
> >>
> >> Hi,
> >>
> >> muzete mi prosim n�kdo poradit, jak inicializovat napr.
> TPopupMenu ?
> >>
> >> P�i prekladu dostavam tuto hlasku:
> >>
> >> [Warning] Spol_F.pas(154): Variable 'PMenu' might not have been
> >> initialized
> >>
> >>
> >> Diky
> >>
> >> Vasek
> >>
> >>
> >>
> >> V�clav Lukes
> >>
> >> E-mail:
> >> Vaclav.Lukes(zv)pvt(tec)cz
> >> 511247(zv)sms.paegas(tec)cz
> >>
> >> Tel.:
> >> 0603-511247
> >>
> >
>
Prepnuti aplikace
[*] Honza Fiala <fala(zv)imc(tec)cz> - 23.10.1998 10:20:56
Caute,
v nekterych situacich me aplikace se mi stava takova vec.
1. Rozjedu mou aplikaci.
2. Rozjedu jinou.
3. Vratim se do me a hned to vypise chybu
control '' has not parent window
Nevim co s tim a kde mam hledat chybu. Pokud jste se nekdo s timto
problemem uz nekdo setkal, tak mi prosim napiste.
Dik Honza Fiala
Patch CRT pro TP
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 23.10.1998 10:28:33
Ahoj vsichni,
pokud bude mit jeste nekdo zajem o ten patch je na me homepage.
Bye,
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
www : www.sarai(tec)cz/~skopik
Ceske resource stringy pro Delphi 4
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 23.10.1998 10:33:10
Karel Kral Mon, Nov 23, 1998 at 09:41:56AM +0100 pise:
> Mate nekdo prelozene resource stringy do cestiny?. Myslim jednotky
> consts.pas, oleconsts, dbconsts.
> A pokud ano, muzete mi je zaslat?
> --
pro 3: http://www.fi.muni(tec)cz/~sorm/ftp/consts.pas
pro 1: doma
pro 2: muzu zaridit
pro 4: jeste jsem nevidel
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
B205, FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
M��en� �asu
[*] Honza Fiala <fala(zv)imc(tec)cz> - 23.10.1998 10:34:55
V DOSu je preruseni casovace a to je volano asi 18x za sekundu.
Presne mereni casu na mikrosekundy je podle meho nazoru nemozne.
Honza Fiala
>Delam dosovsky programek v BP7. Na seriovy port chodi do jenoho vstupu
>signaly. Potrebuji zmerit dobu mezi jednotlivymi signaly s maximalni
>presnosti (mikrosekundy). K tak vysoke presnosti vsak nemuzu pouzit hodiny
v
>pocitaci. Nevi nekdo jak na to ?
>
>Omlouvam se za mirny offtopic.
>Diky Vita
>QuickReport 2.0k + W98
[*] Marcel Langr <ivar(zv)ivar(tec)cz> - 23.10.1998 10:43:17
Mam problem s tiskem sestav ve W98. Mam D3 + QuickReport 2.0k.
Pri tisku sestavy volam Sestava.Preview.
Objevi se Preview okno a pak chyba "Floating point division by zero ".
Stejny program na W95 a NT4.0 funguje dobre.
Co s tim ?
ing. Marcel Langr
ivar(zv)ivar(tec)cz
mlangr(zv)ivar(tec)cz
M��en� �asu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.10.1998 10:48:33
>Delam dosovsky programek v BP7. Na seriovy port chodi do jenoho vstupu
>signaly. Potrebuji zmerit dobu mezi jednotlivymi signaly s maximalni
>presnosti (mikrosekundy). K tak vysoke presnosti vsak nemuzu pouzit hodiny
v
>pocitaci. Nevi nekdo jak na to ?
je nekolik metod, pouzitelnost zavisi na vlastnim reseni cteni signalu
(pomoci preruseni nebo bez nej) a taky skutecne minimalni periody a
pozadovane presnosti:
1) zrychlit IRQ8 - timer misto 18.5 krat za sekundu na nejakou vyssi
hodnotu. Nutne napsat modifikovanou obsluhu, ktera s puvodni rychlisti
spousti starou obsluhu
2) zasmyckovat pomoci assembleru - kde se da zmerit vykonani jednotlivych
instrukci - ale je treba brat zretel na mozny vyskyt vlozeni instrukci od
IRQcek
3) pokud je to na Pentiu tak cist jeho registry citajici pocet instrukcnich
cyklu od startu CPU - absolutne nejpresnejsi a nejjemnejsi citac casu v PC
4) na nekterych PC je mozne z RTC cist presnejsi hoidnoty nez ze
standardniho BIOSu
Zdravi
D. Toman
Export z MS ACCESS 97 do PARADOX tabulky
[*] Pavol Griga <paly(zv)sct.sk> - 23.10.1998 10:54:31
Nevie niekto poradit ako korektne exportovat tabulky z MS ACCESS do
PARADOXU,
ale tak, aby sa zachovala spravne diakritika. Skusal som to cez DataPump,
ale diakritika nebola spravne konvertovana.
Za dobru radu vopred VDAKA
OnClick u PopupMenu
[*] Pavel Kral <kral(zv)afx(tec)cz> - 23.10.1998 10:55:35
ahoj,
vubec tam nepis ty zavorky.
MojeMenu.OnClick := PMenuOnClick;
Pavel
-----Original Message-----
Hi,
Mam nasledujici maly ( pro me velky, jinak bych sem nepsal ) s prirazenim
udalosti do OnClick u PopupMenu.
Takto vypada jadnoduchy zdrojak:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PMenu: TPopupMenu;
MojeMenu: TMenuItem;
implementation
{$R *.DFM}
procedure PMenuOnClick(Sender: TObject);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PMenu := nil;
PMenu := TPopupMenu.Create(Self);
while PMenu.Items.Count > 0 do PMenu.Items.Delete(0);
MojeMenu := TMenuItem.Create(PMenu);
MojeMenu.Name := 'PMenu1';
MojeMenu.Caption := '&Pokus';
MojeMenu.OnClick := PMenuOnClick( .. ); zde je ten problem. Nevim, co
zapsat do zavorek.
PMenu.Items.Add(MojeMenu);
end;
end.
Poradite mi prosim n�kdo ?
Vasek
V�clav Lukes
E-mail:
Vaclav.Lukes(zv)pvt(tec)cz
511247(zv)sms.paegas(tec)cz
Tel.:
0603-511247
Off-topic
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 23.10.1998 11:03:16
From: Daniel SICHTA <Sichta(zv)asset.sk>
To: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
Subject: Off-topic
Date sent: Fri, 20 Nov 1998 10:54:16 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
To bych se ptal nekde u astronomu nebo na nejake jejich
konferenci. Velikonoce jsou urceny nejak dle poctu uplnku od
vanoc nebo tak nejak.
> Vie niekto ako sa da zistit(algoritmus), na ktory den daneho roku
> pripada velkonocny pondelok ?
> Napr. ako zistim kedy(datum) bol velkonocny pondelok v roku 1986 ?
> Dik !!!
>
> ) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Inicializace
[*] Kovac <kovac(zv)pvt.sk> - 23.10.1998 11:03:10
>MojeMenu.OnClick := PMenuOnClick(tady je ten problem);
Do OnClick predsa davas iba adresu procedury, nie parametre.
Tato procedura musi byt metoda triedy (napr. Form1), samozrejme
s rovnakymi parametrami, teda:
procedure TForm1.PMenuOnClick(Sender: TObject);
begin
end;
a potom:
MojeMenu.OnClick := PMenuOnClick;
-----Original Message-----
From: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 23. november 1998 10:52
Subject: RE: Inicializace
BDE a WEB
[*] David_Zabensky.UNION(zv)union(tec)cz - 23.10.1998 11:05:49
Ahoj vsichni.
Mate nekdo zkusenosti s programovanim DB aplikaci pomoci ISAPI. Mam problem
pri pristupu na SQL server z inetu. Problem je v tom, ze uzivateli se
nezobrazi dialog pro zadani hesla. Reseni v zadani hesla v TDatabase mi
pripada dost kostrbate. Jde mi spise o klasicky PWD dialog. Ma neco
takoveho JavaScript? Vsechny dema od Inprise jsou nad tabulkama PDOX a ty
hesla nepotrebuji. Je fakt, ze na tyto veci je asi lepsi Java Builder ale
kdyz ho nemate a mate Delphi ... :-)
Pomozte prosim, dekuji;
Off-topic
[*] Vilda Svoboda <vilem_s(zv)mrp(tec)cz> - 23.10.1998 11:25:37
Takovy algoritmus neexistuje. Termin velikonoc stanovuje Vatikan. Dela to vzdy s rocnim predstihem, aby se mohly vytisknout kalendare.
Vil�m Svoboda
E-Mail: vilem_s(zv)mrp(tec)cz
> To bych se ptal nekde u astronomu nebo na nejake jejich
> konferenci. Velikonoce jsou urceny nejak dle poctu uplnku od
> vanoc nebo tak nejak.
>
> > Vie niekto ako sa da zistit(algoritmus), na ktory den daneho roku
> > pripada velkonocny pondelok ?
> > Napr. ako zistim kedy(datum) bol velkonocny pondelok v roku 1986 ?
> > Dik !!!
> >
> > ) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>
>
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Mostecka 15, 614 00
> tlf. : + 420 5 4532 1112 / 2413
> fax : + 420 5 4521 1501
> GSM : + 420 603 85 75 15
Inicializace
[*] jk(zv)tzus(tec)cz - 23.10.1998 11:42:32
>
>Ahooj,
>
>vubec nic mi nepomaha. Nevim, co s tim. U tohohle zapisu se mu nelibi to,
>co
>je v zavorce:
>
>var
> Pmenu: TpopupMenu; MojeMenu: TmenuItem;
>
>.
>.
>MojeMenu.OnClick := PMenuOnClick(PMenu);
>
>[Error] Unit1.pas(50): Incompatible types: 'TNotifyEvent' and 'procedure,
>untyped pointer or untyped parameter'
>.
>.
>.
>procedure PMenuOnClick(Sender: TObject);
>begin
>
>end;
>
>ja uz fakt nevim, co mam ch zavorek napsat, aby to fungovalo.
>
Ten spravny typ, staci se podivat do helpu !
Deklarace TNotifyEvent je nasledujici
procedure(Sender : TObject) of object;
a prave to of object rika, ze to musi byt metoda nejakeho objektu nikoliv
volne deklarovana procedura, proto to nefunguje. Staci ji deklarovat v ramci
aktualniho formu a bude vse fungovat jak ma.
S pozdravem
Jan Kadlecek
******************************************
* kadlecek(zv)htkpro(tec)cz *
* HTK Pro s.r.o., www.htkpro(tec)cz *
* tel : 02-83880361, fax: 02-6896391 *
* Autorizovany dealer TurboPower *
******************************************Kopirovani adresare
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.10.1998 11:43:42
> A coz takhle zavolat program XCOPY s parametrem /E ??
A neni tohle barbarstvi pod Windowsem?
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
Off-topic - jeste vetsi OT
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 23.10.1998 11:48:06
Dne Mon, 23 Nov 1998 11:25:37 +0100 Vilda Svoboda napsal:
> Takovy algoritmus neexistuje. Termin velikonoc stanovuje Vatikan. Dela to vzdy s rocnim predstihem, aby se mohly vytisknout kalendare.
Tak kdo ma vic casu, mohl by vyvinout komponentu TPope2000, ktera by to
urcovala sama :-)
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Shift ? v BP7
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 23.10.1998 11:50:20
Peter Vlkovic Mon, Nov 23, 1998 at 12:23:08PM +0100 pise:
> Este jednu otazku k BP7
> Vyskytol sa nam problem v prostredi BP7
> (v samotnom IDE, i v beziacej aplikacii),
> kedy pri urcitom zatazeni systemu,
> dojde k podivnemu spravaniu klavesnice,
> ktora sa tvari, ako by bol trvale
> stlaceny preradovca Shift.
> Moze niekto pomoct ?
>
> P.Vlkovic
pomaha levy Shift + trikrat dvojtecku
dela to EMM.
milan
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
B205, FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
Inicializace
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 23.10.1998 11:57:43
Nazdar,
skus toto:
----------------------------------------------------------------------------
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure PMenuOnClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PMenu: TPopupMenu;
MojeMenu: TMenuItem;
implementation
{$R *.DFM}
procedure TForm1.PMenuOnClick(Sender: TObject);
begin
ShowMessage('Hurraaaa...');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PMenu := nil;
PMenu := TPopupMenu.Create(Self);
while PMenu.Items.Count > 0 do PMenu.Items.Delete(0);{???}
MojeMenu := TMenuItem.Create(PMenu);
MojeMenu.Name := 'PMenu1';
MojeMenu.Caption := '&Pokus';
MojeMenu.OnClick := PMenuOnClick;
PMenu.Items.Add(MojeMenu);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PMenu.Popup(200,200);
end;
end.
----------------------------------------------------------------------------
-
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Mereni casu (2)
[*] V�t�zslav Gazda������u��n�?��? - 23.10.1998 12:00:42
>Kdyz jsme chteli zvazit napriklad neco hodne lehkeho (rekneme
>zrnko ryze) a nemeli jsme dost presne vahy, tak jsme vzdycky zvazili
>treba padesat zrnek a vyslednou hmotnost jsme pak vydelili 50-ti.
>Muzes zmerit treba cas padesati signalu a ty pak vydelit. Jestli to
>podstata veci ovsem dovoluje.
Asi jsem to spatne vysvetlil, takze jeste jednou a konkretneji.
Ta dosovska aplikace ma slouzit jako zavodni casomira. Jedna zavodni draha
muze mit libovolny pocet fotobunek, ktere meri mezicasy. Vsechny fotobunky v
jedne draze jsou pripojeny na stejny vstupni pin serioveho nebo paralelniho
portu. Muj program beha ve smycce a zjistuje stav vstupniho pinu.
Takze jednoduseji receno, potrebuji zmerit dobu po kterou byl vykonavan
urcity kod s maximalni presnosti. Hodiny PC na to nestaci, ale nekde jsem
videl takove mereni pomoci Port[$43], ale vubec nevim o co se jedna.
Vita
OnClick u PopupMenu
[*] V�t�zslav Gazda������u��n�?��? - 23.10.1998 12:03:10
Zadne zavorky tam nepis.
Vita
Filtovani dat
[*] Administrator <Administrator(zv)rosoft.sk> - 23.10.1998 12:15:31
ked chces parameter uzavriet v uvodzovkach (string)
Table1.Filter:='COMPANY_NAME ='''+parameter+'''';
ked samostatny ' tak:
Table1.Filter:='COMPANY_NAME ='AVA''S company';> -----P�vodn� zpr�va-----
> Od: Petr Vale� [SMTP:Petr.Vales(zv)gopas(tec)cz]
> Odesl�no: 19. november 1998 11:19
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Filtovani dat
>
> Ahoj vsichni,
>
> mam dotaz,
> Kdyz chci nastavit filter na TTable::Filter a jednim ze znaku je " ' "
> jak to mam udelat ???
>
> Priklad :
>
> (COMPANY_NAME = 'AVA'S company')
>
> Diiky
>
> S pozdravem Petr
Listbox sort
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 23.10.1998 12:18:26
Nazdar,
neskusal som to, ale myslim se, ze Ti tam chyba hodnota 0 pre rovnost.
Potom by to mohlo vyzerat asi takto.
Function SortMyList(Item1, Item2): Integer;
Begin
if TMyClass(Item1).value = TMyClass(Item2).value then Result := 0
else if TMyClass(Item1).value > TMyClass(Item2).value then Result := 1
else Result := -1;
End;
Skus, uvidis.
> BTW: Nevite jakou metodu trideni to vyuziva. Pokud by to mel byt Buble
sort,
> tak si to radeji napisu sam v quick sortu.
Podla toho, ze pre TList tam je Quick Sort tak si myslim, ze aj tu.
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Shift ? v BP7
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 23.10.1998 12:23:08
Este jednu otazku k BP7
Vyskytol sa nam problem v prostredi BP7
(v samotnom IDE, i v beziacej aplikacii),
kedy pri urcitom zatazeni systemu,
dojde k podivnemu spravaniu klavesnice,
ktora sa tvari, ako by bol trvale
stlaceny preradovca Shift.
Moze niekto pomoct ?
P.Vlkovic
Skryti programu
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 23.10.1998 12:25:14
Jo tadle funkce je jenom ve W95 - minuly tyden tady o tom zrovna byla
debata.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Brant [SMTP:pbrant(zv)softhome.net]
> Odesl�no: 23. November 1998 10:01
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Skryti programu
>
> Hm, asi to nebude tak jednoduche. Zkusil jsem to pod NT 4.0 a krici
> to, ze
> nemuse najit vstupni bod funkce RegisterServiceProcess v
> Kerenel32.dll.
> Nemam W95, nema to byt jen pro W95 ?
> ********************************************************
> Petr Brant [pbrant(zv)softhome.net]
>
> programator v MSVC++, obcas Delphi nebo Visual Basic
> ********************************************************
>
>
>
> -----Puvodni zprava-----
> Od: Pavel Serbajlo [SMTP:serb(zv)mikulov.sol(tec)cz]
> Odeslano: 20. listopadu 1998 18:44
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Re: Skryti programu
>
> Panove, to jsou same machinace a alchimie :-))
> Program ze seznamu uloh ZARUCENE schovas malou
> prilozenou konponentou......myslim ze potesi i vsechny
> VirusDevelopery :-))))))))
>
> POMOOOC
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 23.10.1998 12:48:27
Zdravim,
drbu se uz hodinu s Query, ve kterem neumim nastavit vlastnost SQL. Chci
spocitat vsechny polozky, ktere maji prazdnou polozku DATUM.
Select count(id) from SEZNAM.DB where datum is nil
Co delam blbe?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:elka(zv)seznam(tec)cz .
.........................................................
Spoluprace s interpretem fontu
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 23.10.1998 12:57:40 -0000
Ahoj,
pokud to chces udelat rucne, tak na to staci Paintbrush, jestli to
potrebujes udelat programove, nemel by to byt snad tak velky problem.
Napada me vzit nejaky control, ktery ma Canvas, pro nej specifikovat ten
font a text a pak muzes obsah toho Canvasu okopirovat na disk.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Martin Cerny [SMTP:cernym(zv)mendelu(tec)cz]
Odeslano: 23. listopadu 1998 9:03
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: Spoluprace s interpretem fontu
Dobry den,
mam tento problem: potreboval bych po specifikaci fontu (jmeno, velikost,
rozliseni) ziskat bitmapy jednotlivych znaku a ty potom ulozit na
disk. Pracuji v Delphi 2.
Dekuji.Mereni casu
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 23.10.1998 13:13:09
Vitezslav Gazda wrote:
> Delam dosovsky programek v BP7. Na seriovy
port chodi do jenoho vstupu
> signaly. Potrebuji zmerit dobu mezi
jednotlivymi signaly s maximalni
> presnosti (mikrosekundy). K tak vysoke
presnosti vsak nemuzu pouzit hodiny v
> pocitaci. Nevi nekdo jak na to ?
Cas lze zjistit s presnosti na 820 nanosekund.
Jde to ale POUZE v
dosu, woknousy te nepusti k preruseni, leda by
sis napsal
minimalne virtual driver.
Co ovsem pro to musis vedet:
1) Jak nastavit prerusovani seriovemu portu a
svemu vstupu na nem
2) Jak zaridit, abys to preruseni dostal primo
do sveho programu
3) Jak se v BP7 pise obsluha preruseni
4) Jak se obsluhuje preruseni seriovemu portu
5) Jak nastavit casovac v PC, aby pracoval
spravne a pritom z nej
slo vycist pocet tiku v periode 820 ns
6) Jak zjistit pocet tiku v periode 55 ms
7) Jak oba vyctene tiky spojit a urcit z nich
cas v mikrosekundach
Staci, ne?
Rad ti ve vsem poradim.
Premek Fiala
p.fiala(zv)betacontrol(tec)cz
QuickReport 2.0k + W98
[*] Libor Lev <levl(zv)oku-dc(tec)cz> - 23.10.1998 13:13:35
Mozna je problem s ovladacem tiskarny. Me hlasi podobnou chybu
Netscape Navigator ve spojeni s HP LJ 6L a Win3.11.
Libor Lev
levl(zv)oku-dc(tec)cz
Outlook Express
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 23.10.1998 13:23:19
Haj hou!
V menu Nastroje->Ucty->Vlastnosti (u uctu)->Upresnit->Casovy limit serveru
(zvysit soupatkem na max. nebo dle libosti).
>Mam nasledujici problem, ktery nesouvisi s programovanim, ale se stahovanim
>posty ze serveru. Pouzivam Outlook Express a dost casto se stane, ze pri
>prijmu dojde k nejake chybe a obevi se hlaska, ze ze serveru POP3 neprisla
>behem 60 vterin zadna zprava. Ponevac se na internet pripojuji tak jednou
za
>tyden, mam z konference i nekolik set zprav najednou. Tyto zpravy vsak
musim
>natahovat znovu a znovu dokud se je nepovede stahnout nebo kazdou chvilku
>zastavovat prijem. Je mozno s tim neco udelat.
POMOOOC
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 23.10.1998 13:25:13
Coz takhle Select count(id) from SEZNAM where datum = NULL ???
HTH
>drbu se uz hodinu s Query, ve kterem neumim nastavit vlastnost SQL. Chci
>spocitat vsechny polozky, ktere maji prazdnou polozku DATUM.
>
>Select count(id) from SEZNAM.DB where datum is nil
Mereni casu (3)
[*] V�t�zslav Gazda������u��n�?��? - 23.10.1998 13:25:34
>V DOSu je preruseni casovace a to je volano asi 18x za sekundu.
>Presne mereni casu na mikrosekundy je podle meho nazoru
>nemozne.
Toto preruseni nejde pouzit. Cetl jsem, ze pro dosazeni co nejvyssi
presnosti se musi prave toto preruseni vypnout pomoci Inline($FA). Pouzivali
tam potom Port[$43], ale jak jsem psal drive nic vic jsem se o tom
nedozvedel.
Vita
Off-topic
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 23.10.1998 13:33:48 -0000
Algoritmus existuje a vypada takto:
Najde se datum po 21. breznu, ve kterem je uplnek. Pak se najde nejblizsi
nasledujici nedele po tomto uplnku. A to je nedele velikonocni. Problem je
v tom, ze nevim, jak urcit datum toho uplnku.
(Dotaz pro znalce: Podle krestanske verouky by mely byt velikonoce oslavou
zmrtvychvstani Krista, takze teoreticky by se mely velikonoce podobne jako
vanoce slavit v jedno urcite datum. Nikdo mi jeste nedokazal vysvetlit,
proc je toto datum pohyblive. Samozrejme vim, ze puvodni vyznam velikonoc
byla oslava nadchazejiciho jara. Zajima mne vsak, jak vysvetluje cirkev ve
spojitosti zmrtvychvstani Krista pohyblivost data velikonoc.)
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Vilda Svoboda [SMTP:vilem_s(zv)mrp(tec)cz]
Odeslano: 23. listopadu 1998 10:26
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Off-topic
Takovy algoritmus neexistuje. Termin velikonoc stanovuje Vatikan. Dela to
vzdy s rocnim predstihem, aby se mohly vytisknout kalendare.
Vilem Svoboda
E-Mail: vilem_s(zv)mrp(tec)cz
> To bych se ptal nekde u astronomu nebo na nejake jejich
> konferenci. Velikonoce jsou urceny nejak dle poctu uplnku od
> vanoc nebo tak nejak.
>
> > Vie niekto ako sa da zistit(algoritmus), na ktory den daneho roku
> > pripada velkonocny pondelok ?
> > Napr. ako zistim kedy(datum) bol velkonocny pondelok v roku 1986 ?
> > Dik !!!
> >
> > ) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Mostecka 15, 614 00
> tlf. : + 420 5 4532 1112 / 2413
> fax : + 420 5 4521 1501
> GSM : + 420 603 85 75 15
Mereni casu
[*] V�t�zslav Gazda������u��n�?��? - 23.10.1998 13:35:53
Dalibor Toman napsal:
>je nekolik metod
Nebyl by nahodou nejaky prikladek k tem metodam, treba v pascalu ? Nebo
alespon odkaz na nejakou literaturu ci www ?
Diky Vita
resource workshop
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 23.10.1998 13:37:22
Ahoj, v BP7 pod Windows existoval Resource Workshop. Bohuzel ten se neda
pouzit na 32bitove programy. Jaky je ekvivalent pro 32bit Delphi ?
Dik Petr Kroca - pkroca(zv)compact(tec)cz
POMOOOC
[*] Pavel Kral <kral(zv)afx(tec)cz> - 23.10.1998 13:56:49
mozna takto:
Select count(id) from Seznam.db where Datum is Null
Pavel Kral
-----Original Message-----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: '*** Delphi' <delphi-l(zv)fwd(tec)cz>
Date: 23. listopadu 1998 12:18
Subject: POMOOOC
>Zdravim,
>
>drbu se uz hodinu s Query, ve kterem neumim nastavit vlastnost SQL. Chci
>spocitat vsechny polozky, ktere maji prazdnou polozku DATUM.
>
>Select count(id) from SEZNAM.DB where datum is nil
>
>Co delam blbe?
>..........................................................
>.. Libor Krayzel .
>.. Czech Television, Studio Ostrava .
>.. Dvorakova 18, 702 00 Ostrava .
>.. Telephone: 069-6201375 .
>.. URL: http://webhost(tec)cz/elka .
>.. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
>.. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
>.. E-mail2: mailto:elka(zv)seznam(tec)cz .
>..........................................................
>
>
POMOOOC
[*] Dalibor Honus <dhonus(zv)logis(tec)cz> - 23.10.1998 13:56:25
select count(*) from tabulke where datum is null;
-----P�vodn� zpr�va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: '*** Delphi' <delphi-l(zv)fwd(tec)cz>
Datum: 23. listopadu 1998 13:54
P�edm�t: POMOOOC
>Zdravim,
>
>drbu se uz hodinu s Query, ve kterem neumim nastavit vlastnost SQL. Chci
>spocitat vsechny polozky, ktere maji prazdnou polozku DATUM.
>
>Select count(id) from SEZNAM.DB where datum is nil
>
>Co delam blbe?
>.........................................................
>. Libor Krayzel .
>. Czech Television, Studio Ostrava .
>. Dvorakova 18, 702 00 Ostrava .
>. Telephone: 069-6201375 .
>. URL: http://webhost(tec)cz/elka .
>. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
>. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
>. E-mail2: mailto:elka(zv)seznam(tec)cz .
>.........................................................
>POMOOOC
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 23.10.1998 14:13:10
Neeeeeeeee, neeeeeeee nil ale null ...
(NIL je ukazatel, kter� ukazuje nikam)
----------
Od: Krayzel Libor[SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odesl�no: 23. listopadu 1998 12:48
Komu: '*** Delphi'
P�edm�t: POMOOOC
Zdravim,
drbu se uz hodinu s Query, ve kterem neumim nastavit vlastnost SQL. Chci
spocitat vsechny polozky, ktere maji prazdnou polozku DATUM.
Select count(id) from SEZNAM.DB where datum is nil
Co delam blbe?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:elka(zv)seznam(tec)cz .
.........................................................
Mereni casu (3)
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 23.10.1998 14:14:34
Pozn.
Pokud toto preruseni vypnes, a zacnes napr neco cist
z diskety, taxe moto jednotky uz nikdy nezastavi...
A znici se.
D.
----------
Od: V�t�zslav Gazda[SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 23. listopadu 1998 13:25
Komu: Delphi konference
P�edm�t: Mereni casu (3)
>V DOSu je preruseni casovace a to je volano asi 18x za sekundu.
>Presne mereni casu na mikrosekundy je podle meho nazoru
>nemozne.
Toto preruseni nejde pouzit. Cetl jsem, ze pro dosazeni co nejvyssi
presnosti se musi prave toto preruseni vypnout pomoci Inline($FA). Pouzivali
tam potom Port[$43], ale jak jsem psal drive nic vic jsem se o tom
nedozvedel.
Vita
Off-topic
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 23.10.1998 14:23:08
Kecas.
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: Vilda Svoboda [SMTP:vilem_s(zv)mrp(tec)cz]
> Odesl�no: 23. listopadu 1998 11:26
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Off-topic
>
> Takovy algoritmus neexistuje. Termin velikonoc stanovuje Vatikan. Dela
> to vzdy s rocnim predstihem, aby se mohly vytisknout kalendare.
>
> Vil�m Svoboda
> E-Mail: vilem_s(zv)mrp(tec)cz
>
> > To bych se ptal nekde u astronomu nebo na nejake jejich
> > konferenci. Velikonoce jsou urceny nejak dle poctu uplnku od
> > vanoc nebo tak nejak.
> >
> > > Vie niekto ako sa da zistit(algoritmus), na ktory den daneho roku
> > > pripada velkonocny pondelok ?
> > > Napr. ako zistim kedy(datum) bol velkonocny pondelok v roku 1986 ?
> > > Dik !!!
> > >
> > > ) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>
> >
> >
> >
> > S pozdravem Radek KALA
> > BetaControl, s.r.o.
> > Mostecka 15, 614 00
> > tlf. : + 420 5 4532 1112 / 2413
> > fax : + 420 5 4521 1501
>
> > GSM : + 420 603 85 75 15
POMOOOC
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 23.10.1998 14:24:11
> mozna takto:
> Select count(id) from Seznam.db where Datum is Null
Diky za radu vsem, kteri se ozvali.Off-topic
[*] jdanek(zv)fnbrno(tec)cz - 23.10.1998 15:08:29
Zde je algoritmus na vypocet datumu velikonocnocni nedele. Mam to
vyzkousene a funguje to.
A taky me pobavilo, jak ted nekdo psal, ze pry datum velikonoc stanovuje
Vatican rok dopredu, aby se mohli tisknout kalendare.
Spravne jsou dany velikonoce tim, ze jsou prvni nedeli po prvnim jarnim
uplnku, ktery nastava v
Alexandrii. Je to dano historickymi fakty. A tudiz se daji spocitat na
libovolny rok dopredu......
function Velikonoce(Rok:Word):String;
var Ve_A, Ve_B, Ve_C, Ve_K, Ve_P, Ve_Q,Ve_F, Ve_G,Ve_D, Ve_E : LongInt;
Den, Mesic, SRok : String;
begin
Ve_A:=Rok mod 19;
Ve_B:=Rok mod 4;
Ve_C:=Rok mod 7;
Ve_K:=Trunc(Rok/100);
Ve_P:=Trunc(((8 * Ve_K) + 13)/25);
Ve_Q:=Trunc(Ve_K/4);
Ve_F:=(15 - Ve_P + Ve_K - Ve_Q) mod 30;
Ve_G:=(4 + Ve_K - Ve_Q) mod 7;
Ve_D:=((19 * Ve_A) + Ve_F) mod 30;
Ve_E:=((2 * Ve_B) + (4 * Ve_C) + (6 * Ve_D) + Ve_G) mod 7;
if (Ve_D + Ve_E) <= 9 then
begin
Str(22 + Ve_D + Ve_E,Den);
Den:=Trim(Den) + '.';
Mesic:='3.';
end
else
begin
Str(Ve_D + Ve_E - 9,Den);
Den:=Trim(Den) + '.';
Mesic:='4.';
end;
if (Ve_D = 29) and (Ve_E = 6) then Den:='19.';
if (Ve_D = 28) and (Ve_E = 6) and (Ve_A > 10) then Den:='18.';
Str(Rok:4,SRok);
Velikonoce:=Den + Mesic + SRok;
end;
Zdravi Josef Danek
jdanek(zv)fnbrno(tec)cz
Outlook Express
[*] Marek Soukup <marek(zv)comberg(tec)com> - 23.10.1998 15:10:45
Ahoj,
tahle rada ti asi moc nepomuze, ale jedno je jiste: bude po problemech:
pouzivej neco jinyho nez Outlook Express, opravdu to NENI dobrej soft.
Marek Soukup
Jirka Novacek wrote:
> Ahoj Delfini!
>
> Mam nasledujici problem, ktery nesouvisi s programovanim, ale se stahovanim
> posty ze serveru. Pouzivam Outlook Express a dost casto se stane, ze pri
> prijmu dojde k nejake chybe a obevi se hlaska, ze ze serveru POP3 neprisla
> behem 60 vterin zadna zprava. Ponevac se na internet pripojuji tak jednou za
> tyden, mam z konference i nekolik set zprav najednou. Tyto zpravy vsak musim
> natahovat znovu a znovu dokud se je nepovede stahnout nebo kazdou chvilku
> zastavovat prijem. Je mozno s tim neco udelat.
>
> Dekuji predem za radu
Off-topic
[*] Jozef Strn�dik <strnadik(zv)mbox.mrp(tec)cz> - 23.10.1998 15:20:52
-----P�vodn� zpr�va-----
Od: Vilda Svoboda [SMTP:vilem s(zv)mrp(tec)cz]
Odesl�no: 23. november 1998 11:26
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Off-topic
Takovy algoritmus neexistuje. Termin velikonoc stanovuje Vatikan. Dela to vzdy s rocnim predstihem, aby se mohly vytisknout kalendare.
[Jozef Strn�dik]
Toto som nasiel v archive konferencie a urcite to neposlal Jan Pavol II. ....:))))
program velikonoce;
function vel(rok:integer):string;
var s,dat,r:string;
e:integer;
begin
if rok<100 then rok:=rok+1900;
e:=((5+2*(rok mod 4)+4*(rok mod 7)+6*((19*(rok mod 19)+24) mod 30))
mod 7)+((19*(rok mod 19)+24) mod 30)+22;
str(rok:4,r);
if e<=31 then begin
str(e:2,dat);
s:='03/'+dat+'/'+r;
end else begin
if (e-31)>=26 then e:=19 else e:=e-31;
str(e:2,dat);
s:='04/'+dat+'/'+r;
end;
vel:=s;
end;
begin
writeln(vel(1998));
end.
Vil�m Svoboda
E-Mail: vilem s(zv)mrp(tec)cz
> To bych se ptal nekde u astronomu nebo na nejake jejich
> konferenci. Velikonoce jsou urceny nejak dle poctu uplnku od
> vanoc nebo tak nejak.
>
> > Vie niekto ako sa da zistit(algoritmus), na ktory den daneho roku
> > pripada velkonocny pondelok ?
> > Napr. ako zistim kedy(datum) bol velkonocny pondelok v roku 1986 ?
> > Dik !!!
> >
> > ) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>
>
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Mostecka 15, 614 00
> tlf. : + 420 5 4532 1112 / 2413
> fax : + 420 5 4521 1501
> GSM : + 420 603 85 75 15
Mereni casu
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 23.10.1998 15:22:03
Zkus tohle:
UNIT Profiler;
INTERFACE
PROCEDURE Start; { zacatek mereni casu }
FUNCTION Stop: Real; { konec mereni casu, vrati cas v�sec s�rozlisenim
cca 0,7 mikrosekundy }
IMPLEMENTATION
VAR
StartW : Word;
StartM : LongInt;
StopW : Word;
StopM : LongInt;
PROCEDURE Start;
ASSEMBLER;
ASM
{ CLI } { jen pro pomale masiny nebo tam,
kde se da cekat preruseni }
IN AL, 40h
MOV AH, AL
IN AL, 40h
XCHG AH, AL
MOV Word PTR StartW , AX
MOV BX, 40h
MOV ES, BX
MOV BX, 6Ch
MOV AX, ES:[BX]
MOV Word PTR StartM, AX
MOV AX, ES:[BX+2]
MOV Word PTR StartM+2, AX
{ STI } { jen pro pomale masiny nebo tam,
kde se da cekat preruseni }
END;
FUNCTION Stop: Real;
BEGIN
ASM
{ CLI } { jen pro pomale masiny nebo tam,
kde se da cekat preruseni }
IN AL, 40h
MOV AH, AL
IN AL, 40h
XCHG AH, AL
MOV Word PTR StopW, AX
MOV BX, 40h
MOV ES, BX
MOV BX, 6Ch
MOV AX, ES:[BX]
MOV Word PTR StopM, AX
MOV AX, ES:[BX+2]
MOV Word PTR StopM+2, AX
{ STI } { jen pro pomale masiny nebo tam,
kde se da cekat preruseni }
END;
IF StartM <= StopM THEN
StopM:=StopM-StartM
ELSE
StopM:=1572480-StartM+StopM;
IF StartW <= StopW THEN
StopW:=StopW-StartW
ELSE
StopW:=65535-StartW+StopW;
Stop:=(Stopm*65535+StopW)/1193181.667;
END;
END.
Pro vysvetleni : Start cte stav citace tiku (z adresy 0040:006C) a stav
citace z 8253. Stop cte totez, odecte pocty tiku krat 65535 (tak je
inicializovany systemovy casovac) a stavy citace 8253, tim dostane
casovy rozdil v�hodinach casovace (standardne 1,193181667 Mhz) no a pak
uz to jen vydeli hodinovou frekvenci casovace v�Hz a vrati vysledek
v�sekundach. Zakazat a povolit preruseni nemusi byt t�eba, ale je to
jistejsi zejm�na u pomalych masin nebo p�i castem vyskytu interruptu
(t�eba p�i praci v�siti).
-----P�vodn� zpr�va-----
Od: Radek KALA [SMTP:delphi(zv)betacontrol(tec)cz]
Odesl�no: 23. listopadu 1998 13:13
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Mereni casu
Vitezslav Gazda wrote:
> Delam dosovsky programek v BP7. Na seriovy
port chodi do jenoho vstupu
> signaly. Potrebuji zmerit dobu mezi
jednotlivymi signaly s maximalni
> presnosti (mikrosekundy). K tak vysoke
presnosti vsak nemuzu pouzit hodiny v
> pocitaci. Nevi nekdo jak na to ?
Cas lze zjistit s presnosti na 820 nanosekund.
Jde to ale POUZE v
dosu, woknousy te nepusti k preruseni, leda by
sis napsal
minimalne virtual driver.
Co ovsem pro to musis vedet:
1) Jak nastavit prerusovani seriovemu portu a
svemu vstupu na nem
2) Jak zaridit, abys to preruseni dostal primo
do sveho programu
3) Jak se v BP7 pise obsluha preruseni
4) Jak se obsluhuje preruseni seriovemu portu
5) Jak nastavit casovac v PC, aby pracoval
spravne a pritom z nej
slo vycist pocet tiku v periode 820 ns
6) Jak zjistit pocet tiku v periode 55 ms
7) Jak oba vyctene tiky spojit a urcit z nich
cas v mikrosekundach
Staci, ne?
Rad ti ve vsem poradim.
Premek Fiala
p.fiala(zv)betacontrol(tec)cz
DBF soubor
[*] Bro�ek Erik <Erik.Brozek(zv)pvt(tec)cz> - 23.10.1998 15:25:52
Dobry den,
potreboval bych poradit jak v Delphi 3 vytvorit DBF soubor a jak z nej
potom cist. Potrebuju aby si uzivatel vybral z polozky ComboBox nejakou
hodnotu a ta se vytahla z onoho DBF souboru.
Diky Erik.
Shift ? v BP7
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.10.1998 15:27:41
>Este jednu otazku k BP7
>Vyskytol sa nam problem v prostredi BP7
>(v samotnom IDE, i v beziacej aplikacii),
>kedy pri urcitom zatazeni systemu,
>dojde k podivnemu spravaniu klavesnice,
>ktora sa tvari, ako by bol trvale
>stlaceny preradovca Shift.
>Moze niekto pomoct ?
nekolikrat stisknout vsechny Shift , Alt , Ctrl. Pokud bude vypnuty NumLock
problem nenastava. Je to nejakej vleklej problem v BIOSu. Projevuje se tim
ze zustavaji viset preradovace a to pouze v situacich, kdy system nemuze
reagovat okamzite na odezvy klavesnice (a podle mych zkusenosti nejcasteji v
IDE od Borlandu :-)
V IDE Pascalu se projevoval tento problem nejcasteji pri posunu kurzoru
sipkami nahoru nebo dolu, kdy se najednou zacaly oznacovat radky (zustal
viset shift)
Mel jsem podobne problemy na PC, kde jsem spoustel sve rezidenty (file
server peer-to-peer site LPT a COM CONNECT!). Problem nebylo mozne zadnymi
prostredky odstranit (nepocitam-li vypnuti NumLocku). Dokonce jsem myslim
videl nejaky patch pro MS Basic v MS KB nebo tam nekde - ale nepomohl.
Experimentalne jsem zjistil, ze stejny problem vyvolala i zvysena zatez na
peer-to-peer sitovych systemech typu Nowell Lite atd.
Zdravi
D. Toman
Off-topic
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 23.10.1998 15:29:41
velikonoce:
function EasterSunday(Year: Integer): TDateTime;
var
A, B, C, D, F, G: Double;
E: Integer;
begin
A := Year mod 19;
B := Year mod 4;
C := Year mod 7;
F := 19 * A + 24;
D := F - (Int(F / 30) * 30);
G := (5 + 2 * B + 4 * C + 6 * D);
E := Trunc((G - (Int(G / 7) * 7)) + D + 22);
if E <= 31 then Result := EncodeDate(Year, 3, E) else
begin
if E - 31 >= 26 then E := 19 else Dec(E, 31);
Result := EncodeDate(Year, 4, E);
end;
end;
TUNGLI Jan
tungli(zv)pvt.sk
----------
> Od: Vilda Svoboda <vilem_s(zv)mrp(tec)cz>
> Pre: delphi-l(zv)fwd(tec)cz
> Predmet: Re: Off-topic
> D�tum: 23. november 1998 11:25
>
> Takovy algoritmus neexistuje. Termin velikonoc stanovuje Vatikan. Dela to vzdy s rocnim predstihem, aby se mohly vytisknout kalendare.
>
> Vil�m Svoboda
> E-Mail: vilem_s(zv)mrp(tec)cz
>
> > To bych se ptal nekde u astronomu nebo na nejake jejich
> > konferenci. Velikonoce jsou urceny nejak dle poctu uplnku od
> > vanoc nebo tak nejak.
> >
> > > Vie niekto ako sa da zistit(algoritmus), na ktory den daneho roku
> > > pripada velkonocny pondelok ?
> > > Napr. ako zistim kedy(datum) bol velkonocny pondelok v roku 1986 ?
> > > Dik !!!
> > >
> > > ) sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>
> >
> >
> >
> > S pozdravem Radek KALA
> > BetaControl, s.r.o.
> > Mostecka 15, 614 00
> > tlf. : + 420 5 4532 1112 / 2413
> > fax : + 420 5 4521 1501
> > GSM : + 420 603 85 75 15
resource workshop
[*] Milan �orm <xsorm(zv)informatics.muni(tec)cz> - 23.10.1998 15:31:37
Mon, Nov 23, 1998 ve 01:37:22PM +0100 Petr Kro�a ml. napsal:
> Ahoj, v BP7 pod Windows existoval Resource Workshop. Bohuzel ten se neda
> pouzit na 32bitove programy. Jaky je ekvivalent pro 32bit Delphi ?
>
> Dik Petr Kroca - pkroca(zv)compact(tec)cz
workshop ktery je u BC4.5 nebo BC5.0
milan sorm
-------------------------------------------------------------
Milan �orm (aka John Popeln�k) telefon: +420 5 41512348
B205, FI MU, Botanick� 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. dom�: (05) 46211083
Result set ve TStoredProc
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 23.10.1998 15:34:40
StoredProc funguje bez problemu - co presne potrebujes?
TUNGLI Jan
tungli(zv)pvt.sk
----------
> Od: Martin Dupal <mdupal(zv)vision(tec)cz>
> Pre: Delphi konference <delphi-l(zv)fwd(tec)cz>
> Predmet: Result set ve TStoredProc
> D�tum: 20. november 1998 14:55
>
> Ahoj,
> zajimam se ted o pouziti ulozenych procedur, ktere
> vraceji cely dataset jako to dela treba TQuery. Mam odladenou
> proceduru (MS-SQL 7.0 beta) a nemuzu se na ni na klientovi
> (Delphi 3.01, BDE 5.0 pres native MSSQL) pripojit. Zkousel jsem
> metody TStoredProc.Open i ExecProc, pokazde to skonci chybou
> "Could not find object".
>
> Ma pouzivani tohoto druhu uloz. procedur nejaky hacek, rozchodil
> to vubec nekdo na jakemkoliv SQL serveru ?
>
> diky, Martin
>
> -----------
> Ing. Martin Dupal
> address: Geislerova 6
> 77200 Olomouc
> Czech Republic
> tel.: +420/68/5313130
> fax.: +420/68/5313132
> http://www.vision(tec)cz
> mailto:mdupal(zv)vision(tec)cz
>
>
> Mereni casu (2)
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.10.1998 15:40:49
>Asi jsem to spatne vysvetlil, takze jeste jednou a konkretneji.
>Ta dosovska aplikace ma slouzit jako zavodni casomira. Jedna zavodni draha
>muze mit libovolny pocet fotobunek, ktere meri mezicasy. Vsechny fotobunky
v
>jedne draze jsou pripojeny na stejny vstupni pin serioveho nebo paralelniho
>portu. Muj program beha ve smycce a zjistuje stav vstupniho pinu.
>Takze jednoduseji receno, potrebuji zmerit dobu po kterou byl vykonavan
>urcity kod s maximalni presnosti. Hodiny PC na to nestaci, ale nekde jsem
>videl takove mereni pomoci Port[$43], ale vubec nevim o co se jedna.
to je timer 8253 uz si to presne nemapatuju ale myslim, ze obsahuje celkem
3 citace-delice,
pricemz prvni [$40] je IRQ 8 - system timer
druhy dela [$41] refresh DRAMek
a treti [$42] slouzi pro generovani signalu pres speaker - mohl by jit
teoreticky zneuzit
k mereni
nejsem si jist, ale mam pocit, ze je problem se ctenim obsahu delice - navic
kazda aplikace/rezident
, ktery pipne zcela zrusi jeho nastaveni
doporucuju projit ruzne dokumentace TechHelpem pocinaje a Interrupt listem
od p. Browna konce - tam je spousta zajimavych informaci
Pokud ma jit o seriozni reseni je asi nejlepsi koupit za par tisic kartu
citacu nebo RTC do PC a pouzivat je
Zdravi
D. Toman