Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TWebRequest
[*] Honza Fiala <kvasar(zv)kvasar(tec)cz> - 19.4.2000 10:02:03
--=======5AB647FB=======
Content-Type: text/plain; charset=us-ascii; format=flowed; x-avg-checked=avg-ok-74025A5B
Cao,
nejak se mi nedari prebirat parametry z formulare pokud je nastaveno
<form method="GET" ....> nebo mam ve formulari polozky hidden.
parametry prebiram pres Request.QueryFields.Values['ikona']
Nevite, co delam spatne?
Dik
--=======5AB647FB=======
Content-Type: text/plain; charset=us-ascii; x-avg-checked=avg-ok-74025A5B
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.127 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
--=======5AB647FB=======--
Rychle hladanie v stringu
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 19.4.2000 10:28:45
| Uvedene hledani temer jiste pracuje na podobnem principu jako vyhledavaci
| automat. Inicializace potrebuje linearni cas vzhledem k delce vsech slov
| (vzorku), tj. v tomto pripade je delka 20. Samotne vyhledavani je opet
linearni,
| tentokrat k delce prohledavaneho textu.
| Cili casova slozitost vyhledavani pomoci vyhledavaciho automatu je
O(n+l),kde
| n je delka textu, l je delka vzorku.
|
| Naproti tomu vyhledavani pomoci pos ma casovou slozitost O(n*l), coz je o
| dost horsi.
|
| V tomto konkretnim pripade (delka vzrorku=20,
| delka textu=1000000) bude vyhledavani pomoci vyhledavaciho automatu zhruba
| 10-20 krat rychlejsi (ona ta rezie na prohledavani vyhledavacim automatem
| taky neco stoji, proto to neni presne 20x rychlejsi).
|
| Josef Zlomek
| student MFF UK
| josef.zlomek(zv)email(tec)cz
|
| PS: Pokud chcete, poslu Vam a soukromy mail cast skript v elektronicke
podobe,
| venujici se danemu tematu.
Ako mozem poziadat, bol by som rad. Este na upresnenie to trochu popisem:
Mam subor, v ktorom je niekolko tisic zaznaov - su to oddelovane stringy a
ja potrebujem vyhladat v tomto velkom subore (nacitany ako string) nejaky
iny string. Prevazne o velkosti 10 znakov ale aj inej dlzky. Metoda POS
celkom postacuje, ale aj tak ma zaujima nieco rychlejsie.
Diky moc.
Pavol Kaka�ka
paka(zv)aktis(tec)cz
Patch na D5
[*] Pavel �ern� - 19.4.2000 10:45:31
Prosim o radu - pripadam si jako blbec.
K Delphi 5 by podle ruznych zminek v teto konferenci
mel byt jakysi patch. Kde ho najdu ?
Na Borland support develop strankach to vypada, ze
" ... si to muzu z teto stranky stahnout ... ", ale ja to
tam nejak nemuzu najit.
Na FTP u Borlandu je D5 UpDate, ktery ma cca 19 MB,
tak nevim, jestli to je ono, nebo to je Update ze starsich verzi.
A jeste - ADO komponenty k D5 Prof nejsou ? To je az u
Enterprise ??
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Zachyceni spousteni aplikace
[*] delphi(zv)zas-me(tec)cz - 19.4.2000 11:06:30
Dobry den,
mohl by mi nekdo poradit, jak napsat program, ktery zachyti jakekoliv
spousteni jinych aplikaci (jako to delaji treba antiviry)? Potreboval bych
studentum ve skole zabranit spousteni ruznych (zatim nastesti vetsinou
neskodnych) programku, ktere jim zvenku posilaji kamaradi mailem.
Diky, Karel Rys
Patch na D5
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.4.2000 11:18:25
----- Original Message -----
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>>Prosim o radu - pripadam si jako blbec.
>K Delphi 5 by podle ruznych zminek v teto konferenci
>mel byt jakysi patch. Kde ho najdu ?
>Na Borland support develop strankach to vypada, ze
>" ... si to muzu z teto stranky stahnout ... ", ale ja to
>tam nejak nemuzu najit.
>Na FTP u Borlandu je D5 UpDate, ktery ma cca 19 MB,
>tak nevim, jestli to je ono, nebo to je Update ze starsich verzi.
Sice te asi nepotesim, ale je to ono. Ale 19MB se mi zda nejak malo. Ja ho mam
na Dprof velkej 25 MB.
>A jeste - ADO komponenty k D5 Prof nejsou ? To je az u
>Enterprise ??
Bingo :-)
Jan Fiala
Rychle hladanie v stringu
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 19.4.2000 11:26:33
tahle stranka by mohla byt zajimava
http://home.xnet.com/~johnjac/JCEC.htm
jsou tam ruzne algoritmy jako soucast souteze o nejrychlejsi kod pro
ruzna zadani v Delphi, BCB a VC
Pavol Kaka�ka wrote:
>
> Ako mozem poziadat, bol by som rad. Este na upresnenie to trochu popisem:
>
> Mam subor, v ktorom je niekolko tisic zaznaov - su to oddelovane stringy a
> ja potrebujem vyhladat v tomto velkom subore (nacitany ako string) nejaky
> iny string. Prevazne o velkosti 10 znakov ale aj inej dlzky. Metoda POS
> celkom postacuje, ale aj tak ma zaujima nieco rychlejsie.
>
> Diky moc.
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
OT: Hledame programatora
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 19.4.2000 12:07:40
Hi,
Hledame programatora, Firma cca 33 zam. Brno - Bystrc
Prace na informacnich systemech, Rizeni a planovani vyroby,
sklady apod.
Nove veci D5 + Interbase
Stredne stare veci D4-5 + data ve formatu PDOX
Hodne stare veci ( jen udrzba, je vsak treba zvladnout ) Paradox
4.5 ( MS DOS )
Podrobnejsi informace na vyzadani
Predem upozornuji, ze plat se nepohybuje v zadnem pripade pres
20.000 Kc. Spis bych videl tak kolem 15.000, dle zkusenosti atd....
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Dalhi 5 a ADO
[*] Ji�� Kr�l jr. - 19.4.2000 12:12:57
Mili kolezi, dokazete nekdo odpovedet na dotaz meho frenda:
cituji:
"Abych mohl pouzivat ADO komponenty, staci mi D5 Profi + dokoupit D 5 ADO
Express? Nebo je ADO jen v D5 Enterprise?"
hledali jsme ensr u cz borlandu ale 100% odpoved jsme nenasli...
diky
ANN: IBPerl
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 19.4.2000 12:14:17
Announcing a new public release
of IBPerl, the Perl 5 module
for InterBase RDBMS
Copyright (c) 1996-2000 by Bill Karwin
What is IBPerl?
IBPerl is an object-oriented class module and extension for Perl 5.
The module provides an interface to the InterBase API library, for
programming dynamic SQL applications with the RDBMS server product
from InterBase Software Corp. IBPerl is available for free,
distributable under the Artistic License or the GNU General Public
License.
Why would you want this?
IBPerl provides a Perl-ish programming interface to InterBase.
Any Perl script for which you wish you had a real OLTP database
backend you can now write. CGI scripts for the Web, interactive
applications, automation or systems administration tools that
need database access, anything!
Where can you get IBPerl?
Download the software and documentation from
http://www.karwin.com/ibperl/
How do you use IBPerl?
It comes with reference documentation, as a "pod" file (viewable
in HTML at the above web site). The distribution also contains
example scripts.
What else do you need to use IBPerl?
Perl 5.004, and InterBase 4.0 or higher. You must have
the InterBase product in order to compile and use IBPerl.
How do I install it?
Assuming that you have Perl 5.004 installed and running on your
system, follow these steps (on UNIX/Linux):
1. Unpack the IBPerl archive:
tar xzvf IBPerl-08.tar.gz
or
gzip -d -c IBPerl-08.tar.gz | tar xvf -
2. Change to the IBPerl directory:
cd IBPerl-08
3. Configure the Makefile:
perl Makefile.PL
This should create an appropriate Makefile for your platform,
based on the rules described in Makefile.PL
4. Build the IBPerl extension:
make
5. Install the IBPerl extension:
make install
On Win32, you can use Gurusamy Sarathy's binary distribution of
perl for Win32 (get it at http://www.cpan.com/authors/id/GSAR/).
What platforms are supported?
I develop IBPerl on Linux. I test on Windows as well. IBPerl is
also known to run on Solaris, SCO OpenServer and HP-UX.
Any platform that has an InterBase client library can work with
IBPerl.
What is InterBase?
A SQL-92 conformant RDBMS and database application development
product that operates on Windows 95/98/NT, NetWare, Linux, and
several popular UNIX flavors. Read some of the material on
http://www.interbase.com/ for a full description of this product.
What version is IBPerl?
This is the announcement for Beta release 0.8. IBPerl will undergo
changes in the future. I will add more functionality, and improve
portability. IBPerl will stay in "Beta" state until the 1.0 release.
What about DBI? Is there a DBD::InterBase package?
IBPerl itself does not currently conform to the DBI interface.
There exists another package from Edwin Pratomo that implements
a DBD "wrapper" around IBPerl. You do need IBPerl in order
to use Edwin's DBD::InterBase package.
Get it at http://www.perl.com/authors/id/E/ED/EDPRATOMO/.
What's new in this version?
- Support for EXECUTE PROCEDURE with return parameters
- Support for IB6 datatypes: 64-bit numeric, timestamp, date, time
- Datatypes statement property
- Dialect property for statement and connection
- Support for NULLs in input parameters and positioned updates
- More documentation and examples
- Many bug fixes, more robust code
IBPerl is a contributed freeware software package, and neither
Bill Karwin, nor Inprise Corp. are responsible for damages resulting
from its use or misuse. Test early, test well, test often.
--
Email feedback or inquiries about IBPerl to: bill(zv)karwin.com.obnoveni smazanych zaznamu v dbf
[*] pavel minarik <pavel.minarik(zv)email(tec)cz> - 19.4.2000 12:38:36
dobry den,
mam maly dotazek ohledne obnoveni smazanych zaznamu v dbf tabulce.
dival jsem se na dbiUndeleteRecord a jeho popis v helpu,
ale neni mi jasne, jak se posune kurzor na zaznam oznaceny ke smazani.
zkousel jsem dbiGetNextRecord, ale touto funkci se posunuji jen po nesmazanych
zaznamech.
muzete nekdo naznacit treba priklad cyklu, ktery obnovi v tabulce vsechny
smazane zaznamy.
jde mi take o to, aby se smazane zaznamy dali obnovit i na jinem pocitaci,
nez byly smazany.
diky Pavel
Lokalni Interbase
[*] Libor Simek <l.simek(zv)sh.cvut(tec)cz> - 19.4.2000 12:41:49
Dobry den,
mam drobny problem. Bezne pouzivam pro zpracovani dat lokalni verzi Interbase, pokud je databaze ("soubor.gdb") na lokalnim disku stanice je vse v poradku. Ovsem pokud presunu databazi na sitovy disk, ktery ma stanice namapovan, nepodari se k databazi pripojit.
Je mozne pomoci lokalni verze SQL serveru Interbase pristupovat k datum ulozenym na sitovych discich. Diky za kazdy podnet
Libor Simek
l.simek(zv)sh.cvut(tec)cz
Dalhi 5 a ADO
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.4.2000 12:45:19
----- Original Message -----
From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>> Mili kolezi, dokazete nekdo odpovedet na dotaz meho frenda:
>
> cituji:
> "Abych mohl pouzivat ADO komponenty, staci mi D5 Profi + dokoupit D 5 ADO
> Express? Nebo je ADO jen v D5 Enterprise?"
>
> hledali jsme ensr u cz borlandu ale 100% odpoved jsme nenasli...
>
> diky
Pokud si dokoupis, muzes to pouzivat i v D5 prof. Ale pokud chces investovat do
ADO, podivej se radsi na ADONIS, stale jeste je o par kroku pred ADO Express.
Jan Fiala
Pristup k programu pres internetovy prohlizec
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 19.4.2000 12:56:41
Mam jeden problem.
Ve firme bezi aplikace (D5, MSDE, WIN98) a vedeni
chce mit moznost koukat na urcite udaje. Protoze nepotrebuje
do dat jakkoli sahat, staci jen prohlizeni. Navic v budoucnu bude
vedeni sidlit jinde nez provoz, myslim ze nejlepsi by byl pristup
pres WWW prohlizec.
Vi nekdo jak se takove kousky delaji pod D5?
ing. Michal Kus
TANGO software s.r.o.
pokladn� syst�my pro restaurace a obchody
Krymsk� 42
360 01 Karlovy Vary
017/32 264 68, 32 258 86
kus(zv)tangosw(tec)cz
www.tangosw(tec)cz
Zachyceni spousteni aplikace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.4.2000 13:07:12
Ahoj,
pokud si nainstalujes relativne novy virus PrettyPart, tak poznas, jak se to
ma delat. :-) Ale vazne. Na Zive se o tomto psalo a byl popsan i zpusob, jak
toho dosahnout prave v souvislosti s timto virem. Zkus si to tam najit (hledej
PrettyPark).
Slavek
> mohl by mi nekdo poradit, jak napsat program, ktery zachyti jakekoliv
> spousteni jinych aplikaci (jako to delaji treba antiviry)?
> Diky, Karel Rys
Rychle hladanie v stringu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.4.2000 13:10:00
Ahoj,
podivej se na http://www.ms.mff.cuni(tec)cz/~kopecky/dis/
Tam jsou prednasky, kde mj. najdes vsechny mozny algoritmy na
vyhledavani v textech.
Slavek
> Pavol Kaka ka
> paka(zv)aktis(tec)cz
Lokalni Interbase
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 19.4.2000 13:45:41
Ahoj,
neni to mozne, a neni to mozne ani s nelokalni InterBase, disk musi byt
vzdy lokalni vzhledem k pocitaci, na nemz bezi server InterBase.
Libor Simek wrote:
> Dobry den, mam drobny problem. Bezne pouzivam pro zpracovani dat
> lokalni verzi Interbase, pokud je databaze ("soubor.gdb") na lokalnim
> disku stanice je vse v poradku. Ovsem pokud presunu databazi na sitovy
> disk, ktery ma stanice namapovan, nepodari se k databazi pripojit.
> Je mozne pomoci lokalni verze SQL serveru Interbase pristupovat k
> datum ulozenym na sitovych discich.
S pozdravem,
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
obnoveni smazanych zaznamu v dbf
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 19.4.2000 14:27:00
Na to, aby sa dalo pracovat so zaznamami oznacenymi na zmazanie
je poterbne nastavit vlastnost kurzoru BDE na SOFTDELETEON, vid
var SoftDelete:boolean;
SoftDelete:=True;
rslt := DbiValidateProp(hDBIObj(Table1.Handle), curSOFTDELETEON, True);
if (rslt = DBIERR_NONE) then
Check(DbiSetProp(hDBIObj(Table1.Handle),curSOFTDELETEON,Longint(SoftDelete))
)
Potom sa uz da posunut na dany zaznam a obnovit ho cez dbiundeleterecord.
----- Original Message -----
From: pavel minarik <pavel.minarik(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 19, 2000 12:38 PM
Subject: obnoveni smazanych zaznamu v dbf
> dobry den,
>
> mam maly dotazek ohledne obnoveni smazanych zaznamu v dbf tabulce.
> dival jsem se na dbiUndeleteRecord a jeho popis v helpu,
> ale neni mi jasne, jak se posune kurzor na zaznam oznaceny ke smazani.
> zkousel jsem dbiGetNextRecord, ale touto funkci se posunuji jen po
nesmazanych
> zaznamech.
> muzete nekdo naznacit treba priklad cyklu, ktery obnovi v tabulce vsechny
> smazane zaznamy.
> jde mi take o to, aby se smazane zaznamy dali obnovit i na jinem pocitaci,
> nez byly smazany.
>
> diky Pavel
>
>
kniha k delphi 5
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 19.4.2000 14:42:05
>Ted nedavno vysla literatura v cestine - Prechazime na D5 od ComputerPress. Jde ale o rozdilovou publikaci, nani to kompletni popis.
Jiz jste ji nekdo videl?
Mam zkusenosti s D3 a nyni prechazim na D5. Je ta kniha dobra?
Dik
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=========================================Bezpecna a rychla (lokalni) databaze
[*] Mirek Melichar <xmelich(zv)informatics.muni(tec)cz> - 19.4.2000 14:57:12
Zdravim,
poradi mi nekdo, jaka databaze splnuje %SUBJ% ?
Potreboval bych, aby byla rychla vzhledem k SQL operacim, jsem ochoten
zmenit i verzi Delphi(nyni D4 a Paradox), a akceptovat cenu, pokud bude
jednorazova, tj. zaplatim, a za kazdou instalaci meho programu
(vyuzivajici danou databazi) jiz platit nebudu.
Mirek Melichar
----------------------------------------------------------------------
http://www.fi.muni(tec)cz/~xmelich
http://mirek.zde(tec)cz/
mail:xmelich(zv)fi.muni(tec)cz
tel.: +0420 5 44216310
----------------------------------------------------------------------
Pouziti importovane fce z DLL
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 19.4.2000 15:37:13
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
v jinem programovacim jazyku jsem si napsal
funkci a umistil ji do DLL knihovny. Funkce
potrebuje jeden parametr (retezec zakonceny #0
(NullTerminated - PChar)), ale pri tomto zapisu:
Declare Function MyFunction Lib "MyDLL.dll"
(ByVal MyParam As String) As Integer
dostanu pri pouziti teto funkce hlasku "nespravne
volani" nebo tak nejak podobne. Nefunguje mi
ani tento zapis
Declare Function MyFunction Lib "MyDLL.dll"
(ByVal MyParam$) As Integer
Nevite, kde delam chybu ? Ta knihovni funkce
je spravne.
BTW: Jak v kodu VBA rozdelit jeden dlouhy radek na dva ?COM server a problem s volanim metod
[*] Marian Jonas <marian.jonas(zv)volny(tec)cz> - 19.4.2000 15:51:06
Mam COM server, ve kterem je interface ITest, ma nasledujici deklaraci:
ITest = interface(IDispatch)
['{80D08A04-68AE-42D4-A5BD-CDA3AD8D5886}']
function Get Testik: ITestik; safecall;
property Testik: ITestik read Get Testik;
ITestDisp = dispinterface
['{80D08A04-68AE-42D4-A5BD-CDA3AD8D5886}']
property Testik: ITestik readonly dispid 1;
ITestik = interface(IDispatch)
['{80D08A04-68AE-42D4-A5CD-CDA3AD8D5886}']
function Get Zkouska: WideString; safecall;
property Zkouska: WideString read Get Zkouska
ITestikDisp = dispinterface
['{80D08A04-68AE-42D4-A5CD-CDA3AD8D5886}']
property Zkouska: WideString readonly dispid 1
function TTest.Get Testik: ITestik;
begin
if (FTestik=NIL) then FTestik:=TTestik.Create;
result:=FTestik;
end;
function TTestik.Get Zkouska: WideString;
begin
result:='BBB';
end;
Pokud napriklad v Excelu spustim :
Dim Test as Object
Set Test=CreateObject('TEST SRV.TEST')
Print Test.Testik.Zkouska
Set Test=nothing
je vse v poradku
Pokud ale v Delphi napisu:
var
Test: ITest;
begin
Test:=CoTest.Create;
s:=Test.Testik.Zkouska;
end;
hazi mi to access violation.
Je mi jasny ze Excel pouziva late-binding a Delphi v tomto pripade pouziva vtable-binding.
Ale neni mi jasny, proc to v jednom pripade chodi a v druhem to dava acess v... , i kdyz oboji
vola metodu Get Testik, Get Zkouska ?
Marian
init. hodnota pre TDBEdit
[*] olej.jozef(zv)slsp.sk - 19.4.2000 15:54:34
> Ahoj,
>
Nemate niekto skusenost ako priradit init.hodnotu pri vkladani
noveho zaznamu.
> V D3 mam TTable->TDataSource->TDBEdit a ak si spravim:
>
procedure TFormTEST.TableTESTAfterInsert(DataSet: TDataSet);
begin
EditDATUM_ZALOZENIA.text:=DateTimeToStr(now);
EditSTAV.text:='0';
end;
tak mi vlozi dane hodnoty, ale pri editaci ked prejdem kurzorom na
dane pole tak sa to zmaze.
Potreboval by som aby to ostalo pripadne sa dalo zmenit.
> Dakujem.
>
> Jozo
restart aplikace
[*] <sw.maurice(zv)centrum(tec)cz> - 19.4.2000 16:02:56
Ahoj,
chtel bych se zeptat, zda-li je mozne provest restart aplikace primo z
one bezici aplikace? Potreboval bych uzavrit vsechny formulare, uvolnit je /vcetne
hlavniho/ a pak opet vytvorit, coz neni problem, problem je v tom, ze nevim ve kterem miste to
muzu provest.
Pro uplnost se jedna o reakci na zpravu o zmene rozliseni obrazovky.
/Prosim neodpovidejte, jak to udelat jinak, jine reseni me napadlo, me spis zajima, jestli
jde to na co jsem se ptal :-)/
V kazdem pripade diky za odpoved
Preji prijemny den
m.
e-mail: sw.maurice(zv)centrum(tec)cz
homepage: http://www.mujweb(tec)cz/Zabava/sw.maurice
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Pouziti importovane fce z DLL
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 19.4.2000 16:31:48
Ta funkce s parametrem nic nedela (nevraci jej),
jen jej cte, takze je jedno, jestli ho predam
odkazem, konstantou nebo formalne. Bez toho
retezce to pracuje jak ma (integer vs long
tedy nevadi) - stejne si vracim jen 0(fail) / 1(OK).
Nevice by se mi libilo predat jeho ukazatel
(v pascalu je to PChar), ale nevim jak.
Diky...
...Dobra
> ----------
> Od: Adrian Kantor[SMTP:adr(zv)seno.fio(tec)cz]
> >
> >Declare Function MyFunction Lib "MyDLL.dll"
> > (ByVal MyParam$) As Integer
> >
> >Nevite, kde delam chybu ? Ta knihovni funkce
> >je spravne.
> >
> DLL funkce musi pouzivat volani pascal. Pozor na parametry. Pro string, ktery DLL funkce naplnit je potreba nejprve alokovat
> potrebne misto treba volanim MyParam=String$(2000, 0), jinak to splachne cely Access.
> Dale je treba davat si pozor na typ Integer v Accessu 95 a vys. Ten je v Accessu 16-bit, zatimco v 32-bitovem DLL je to 32-
> bitu. Takze, kde se v DLL objevi int je treba v Accessu pouzit Long.
> Takze bych zkusil
>
> Declare Function MyFunction Lib "MyDLL.dll" (ByVal MyParam$) As Long
> Pristup k programu pres internetovy prohlizec
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 19.4.2000 16:34:59
> Mam jeden problem.
>
> Ve firme bezi aplikace (D5, MSDE, WIN98) a vedeni
> chce mit moznost koukat na urcite udaje. Protoze nepotrebuje
> do dat jakkoli sahat, staci jen prohlizeni. Navic v budoucnu bude
> vedeni sidlit jinde nez provoz, myslim ze nejlepsi by byl pristup
> pres WWW prohlizec.
>
> Vi nekdo jak se takove kousky delaji pod D5?
Zkus balik ICS, verzi BETA, http://www.rtfm.be/fpiette/icsbeta.htm
V bete je pridana nove komponenta HttpServ, ktera to bez problemu umi.
V demu WebServ je ukazka dynamicke tvorby stranek, predavani parametru z
browseru a jine zajimave veci.
Pouzivam to, funguje to.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
Bezpecna a rychla (lokalni) databaze
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 19.4.2000 16:46:14
Haj hou!
Odpoved je jasna: Interbase :o)
Podrobnosti na www.interbase2000.org
pripadne na www.interbase.com
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
----- Original Message -----
From: "Mirek Melichar" <xmelich(zv)informatics.muni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 19, 2000 2:57 PM
Subject: Bezpecna a rychla (lokalni) databaze
> Zdravim,
> poradi mi nekdo, jaka databaze splnuje %SUBJ% ?
> Potreboval bych, aby byla rychla vzhledem k SQL operacim, jsem ochoten
> zmenit i verzi Delphi(nyni D4 a Paradox), a akceptovat cenu, pokud bude
> jednorazova, tj. zaplatim, a za kazdou instalaci meho programu
> (vyuzivajici danou databazi) jiz platit nebudu.
>
> Mirek Melichar
> ----------------------------------------------------------------------
> http://www.fi.muni(tec)cz/~xmelich
> http://mirek.zde(tec)cz/
> mail:xmelich(zv)fi.muni(tec)cz
> tel.: +0420 5 44216310
> ----------------------------------------------------------------------
> Obsluha dynam. vytvarenych komponent
[*] ursula.sourkova(zv)post(tec)cz - 19.4.2000 16:55:54
zdravim delphisti,
chtela bych se zeptat jak obslouzit udalosti (napr. OnClick)
komponent vytvarenych timto stylem:
with TLabel.Create(self) do
try
Parent:=Form1;
Name:=\'Label1\';
...
Show;
finally
ShowMessage(\'Chyba\');
end;
Dekuji
Ursula
Aktualni zpravodajstvi?
*** http://NAJDI.TO
COM a SafeArray
[*] Milan Dobias <mdobias(zv)iss(tec)cz> - 19.4.2000 16:55:42
Ahoj,
mam problem se ziskavanim atributu typu SafeArray. Z cizi aplikace ziskam
COM objekt, ktery ma jednu
z instancich promennych promenou typu SafeArray ( v tomto pripade string).
Potrebuji ziskat tyto
hodnoty, pripadne modifikovat tuto instancni promenou novou hodnotou.
Neco na zpusob :
Var
V : variant;
Pole : OleVariant;
Begin
V := CreateOleObject('MujServer.MeNeco');
{ziskam pole hodnot }
Pole := V.MujAtribut; {muj atribut je prave tato instanci promenna
typu Safearray}
For i := 1 To ???? Do
Begin
Pole[i] := 'aaaa';
{Delam neco s promennou polem }
End;
{vratim zpet}
V.MujAribut := Pole;
End;
Tento priklad vystihuje jen schematicky to, co bych potreboval delat, ne
samozrejme primy kod. Objekt V nemusi byt vytvaren primo
v me aplikaci, vstupuje do metody jako jeden z parametru teto metody.
Dale by me zajimalo, pokud chci sam vytvorit takovy objekt, COM server,
ktery ma napr. jen jeden instancni atribut MUJAtribut typu SaveArray (napr.
stringu)
jak budou vypadat "vnitrnosti" tohoto objektu, hlavne metody
"Set_MujAtribut(Value : PSafeArray):Integer; Get_MujAtribut:PSaveArray,
abych pochopil funkci. Mam vygenerovany projekt, Type library, jen nedokazi
predat vnitrne uchovat a zpracovat data ....
Narychlo jsem se dostal k programovani v Delphi (zatim verze 4), a nemam
zadne vetsi zkusenosti s COM.
Predem dekuji za jakoukoliv pomoc
Milan Dobias, ISS CZECH
mdobias(zv)iss(tec)cz , 019/723 56 73
Zobrazit doc bez pouziti Wordu
[*] jan.derda(zv)post(tec)cz - 19.4.2000 17:00:54
Zdravim vsechny.
Potrebuji poradit s nasledujici veci:
Potrebuji sehnat koponentu, ktera umi zobrazit Wordovske dokumenty bez pouziti Wordu (tj. vyhnout se pouziti OLE)
Dekuji
Jan Derda
restart aplikace
[*] Lubo Fule <fule(zv)sct.sk> - 19.4.2000 17:02:28
Mozes z aplikacie spustit tu istu aplikaciu, cim vlastne na chvilu pobezia
dve a v zapati staru aplikaciu zhodit. Asi takto:
uses ShellAPI; ShellExecute(0, 'open', pchar(Application.ExeName), '',
pchar(ExtractFileDir(Application.ExeName)), SW_SHOW);
Application.Terminate;> Ahoj,
> chtel bych se zeptat, zda-li je mozne provest restart aplikace primo z
> one bezici aplikace? Potreboval bych uzavrit vsechny formulare,
> uvolnit je /vcetne
> hlavniho/ a pak opet vytvorit, coz neni problem, problem je v
> tom, ze nevim ve kterem miste to
> muzu provest.
> Pro uplnost se jedna o reakci na zpravu o zmene rozliseni obrazovky.
> /Prosim neodpovidejte, jak to udelat jinak, jine reseni me
> napadlo, me spis zajima, jestli
> jde to na co jsem se ptal :-)/
init. hodnota pre TDBEdit
[*] Lauko �tefan <lauko(zv)salamon.sk> - 19.4.2000 17:31:25
Ahoj,
Pouzi na to OnNewRecord.
----- Original Message -----
From: <olej.jozef(zv)slsp.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 19, 2000 3:54 PM
Subject: init. hodnota pre TDBEdit
> > Ahoj,
> >
> Nemate niekto skusenost ako priradit init.hodnotu pri vkladani
> noveho zaznamu.
> > V D3 mam TTable->TDataSource->TDBEdit a ak si spravim:
> >
> procedure TFormTEST.TableTESTAfterInsert(DataSet: TDataSet);
> begin
> EditDATUM_ZALOZENIA.text:=DateTimeToStr(now);
> EditSTAV.text:='0';
> end;
>
> tak mi vlozi dane hodnoty, ale pri editaci ked prejdem kurzorom na
> dane pole tak sa to zmaze.
> Potreboval by som aby to ostalo pripadne sa dalo zmenit.
>
> > Dakujem.
> >
> > Jozo
> Pristup k programu pres internetovy prohlizec
[*] L. ZITA <konference(zv)sales(tec)cz> - 19.4.2000 17:54:40
Behalf Of Michal K�s
> Mam jeden problem.
>
> Ve firme bezi aplikace (D5, MSDE, WIN98) a vedeni
> chce mit moznost koukat na urcite udaje. Protoze nepotrebuje
> do dat jakkoli sahat, staci jen prohlizeni. Navic v budoucnu bude
> vedeni sidlit jinde nez provoz, myslim ze nejlepsi by byl pristup
> pres WWW prohlizec.
>
> Vi nekdo jak se takove kousky delaji pod D5?
>
Na tohle musis mit na serveru v prvni rade WEB server.
Treba IIS nebo Appache.
Pak muzes psat aplikaci jako html a do databaze pristupovat pres cgi psane v
Delphi nebo pouzit neco jineho treba ASP nebo PHP.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Instalace IB6
[*] L. ZITA <konference(zv)sales(tec)cz> - 19.4.2000 18:07:50
Zdravim.
Jak se da sirit IB6 spolu s aplikacemi.
Jde mi predevsim o male aplikace ,kde je nutne aby instalaci zvladnul
uzivatel kompletne sam.
Diky za namety.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Avi to BMP (gif, jpg...)?
[*] Gadourek <gadourek(zv)centrum(tec)cz> - 19.4.2000 18:36:43
Ahoj,
na torry jsem nasel priklad, ktery umoznuje zobrazovat AVI soubory a jednotlive
obrazky ukladat do BMP. Vyuziva knihoven AVIFIL32.DLL a AVICAP32.DLL. Ja je ve
Win98 mam, ale nevim jestli jsou dodavany standardne nebo si je prinesl nejaky
program.
Je tam i prelozeny EXE, ktery potrebuje soubor VIDEO.AVI ve svem adresari, pokud
neni tak se nic nedeje.
http://www.torry.ru/samples/samples/graphics/capmci.zip
Petr
|
| Ahoj,
| Ukladam cifernik jednoho pristroje (mereni reologie) jako avi a potreboval
| bych pracovat s jednotlivymi obrazky ve formatu bmp.
| Nevite nekdo o vhodnem zpusobu prevodu videosekvence avi ---> bmp (jpg,
| gif...)?
| Diky za kazdy napad.
| Martin Nezadal
| nezadal(zv)volny(tec)cz
|
|Zu�en� editace
[*] MIKE� P�emysl <premysl.mikes(zv)otr.br.ds.mfcr(tec)cz> - 19.4.2000 18:41:27
Kdy� chci p�es formul�� p�idat nov� z�znam (tla��tko p�id�n� z�znamu),
dostane se formul�� do edita�n�ho re�imu (v�echny pol��ka se vypr�zdn� a
hodnota po�tu z�znam� se nav��� o jednu - tj. k tabulce se p�id� jeden tzv.
pr�zdn� z�znam). Jak ud�lat zru�en� tohoto re�imu, nap��klad kdy� si to
u�ivatel s t�m p�id�v�n�m z�znamu rozmysl�, a chce zp�tky do prohl�ec�ho
m�du? (kl�vesa Esc nic ned�l�).
D�ky
P�emek Mike�
Vysok� Pole 321
Vysok� Pole
Netradicni skautske hry II.
[*] Gadourek <gadourek(zv)centrum(tec)cz> - 19.4.2000 21:00:41
Ponekud me prekvapilo, ze jsem dostal tento email. Zjednejte, prosim, napravu,
aby se to jiz neopakovalo.
Diky
----- Original Message -----
From: "Adam Hauner" <aha(zv)pinknet(tec)cz>
To: "Adamkuv vyber vtipu" <jokes-l(zv)fwd(tec)cz>
Sent: Wednesday, April 19, 2000 6:50 PM
Subject: Vtip: Netradicni skautske hry II.|
| Lavka
|
| Jiste se Vam jiz stalo, ze jste na vyprave dosli k nejake strzi nebo
| propasti, jejiz hloubka Vam brala dech. Nevedl pres ni zadny most a vy
| jste ji museli pracne adlouho obchazet. Dostanete-li se do podobne situace
| nyni, mate jedinecnou prilezitost vyzkouset si svoji obratnos podle naseho
| navodu.
|
| Tak tedy: dorazi-li druzina na podobne misto, presvedcete se nejprve, ze
| je okraj popasti dobre zpevnen a nesesune se v okamziku, kdy na nej
| vstoupite! (nejlepeposlouzi kamen o vaze asi 50kg). Pote si jeden z
| druziny drepne na okraj strze a do napjatych predpazenych pazi uchopi za
| nohy sveho kamarada (viz obr.). Ten zatne brisni a zadove svaly a zustane
| ve vodorovne poloze, cimz vlastne vytvori prvni cast lavky. Pres nej
| prelezaji dalsi a stejnym zpusobem buduji dalsi clanky mostu. Posledni
| clen druziny se plnymi dlanemi dotkne brehu a palci obou rukou se vzepre
| proti jeho svisle stene. V tuto chvilije lavka hotova - vudce druziny po
| ni postupne prenosi na duhou stranu torny a ostatni vybaveni. Potom - sam
| jiz v bezpeci na druhem brehu - vyda pokyn k rozebrani lavky. Pote pusti
| prvni (drepici) skaut sveho kamarada, ktereho dosud drzel za kotniky,
| vstane a oevnym krokem prejde po svych kamaradech na stranu vudce. Ostatni
| clenove druziny si pocinaji stejne. Odpojuji se ppstupne v tom poradi, v
| jakem se do lavky zapojovali. V techto chvilich drzi lavku clen druziny,
| ktery je vzepren palci na druhem brehu. Ten se take pousti jako
| posledni. Ostatni mu pomohou pri vystupu na breh, aby nespadl dolu. Jste
| stastni, ze se Vam lavka podarila a usetrili jste si nekolikaminutovou
| zachazku. Nasazujete si torny a vyrazite dal - vstric dalsim
| dobrodruzstvim.
|
| --
| Adam Hauner
|
| -=[ AHA ]=[ aha(zv)pinknet(tec)cz ]=[ Koukni na http://www.slunecnice(tec)cz ]=-
|
|
| -------------------------------------------------------------------------
| Adamkuv vyber vtipu http://www.jokes(tec)cz/
|
|Obsluha dynam. vytvarenych komponent
[*] Josef Zlomek <josef.zlomek(zv)email(tec)cz> - 19.4.2000 21:22:36
Kazdemu vytvorenemu objektu priradis hodnotu OnClick=obsluzna metoda.
V tomto pripade nekam mezi try - finally pridas prikaz:
OnClick:=ButtonClick;
kde ButtonClick je metoda okna (TFormu), ve kterem vynamicky vytvaris ty labely,
ktera ma stejne parametry jako normalni procedura pro obsluhu dane udalosti
(OnClick). Sama tato procedura je totiz metoda pro obsluhu dane udalosti.> zdravim delphisti,
>
> chtela bych se zeptat jak obslouzit udalosti (napr. OnClick)
> komponent vytvarenych timto stylem:
>
> with TLabel.Create(self) do
> try
> Parent:=Form1;
> Name:=\'Label1\';
> ...
> Show;
> finally
> ShowMessage(\'Chyba\');
> end;
>
> Dekuji
> Ursula
DBLookupListBox, Locate
[*] Surfman <surfman(zv)volny(tec)cz> - 19.4.2000 21:41:59
Ahoj vsichni,
narazil jsem na problem s DBLookupListBoxem.
Pokud behem psani stisknu klavesu s nekterym ceskym znakem (ne u vsech
znaku, napr. �), tak se prislusny zaznam nenajde. Sel jsem po zdrojaku a tam
se zda vsechno v poradku. Po pokusu s Locate jsem dosel k tomuto:
pokud je nastaveno loPartialKey a posledni znak je treba prave to �, tak se
zaznam nenajde. Napr. pri zadani "p�k" se najde "p�ka", pri zadani "p�" se
zaznam nenajde.
Nevite nekdo co s tim?
D4 i D5, WIN 2000 professional
Diky
Surfman
tvorba HELPu
[*] Ma��k Petr <rtepema(zv)mbox.vol(tec)cz> - 19.4.2000 21:41:44
Oasis Std na http://24.112.41.38/delphideluxeii/tlsflib.htm, mysl�m nejlepsi
dostupny z
free programu. Verze nizsi nez 1.3.6.0 byla nespolehliva, muselo se velmi
casto zalohovat. 1.3.6.0 se zda byt stabilnejsi.
RT electronic
Petr Ma��k
rtepema(zv)mbox.vol(tec)cz
----- P�vodn� zpr�va -----
Od: Robert Zak <nrsys(zv)psn.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 18. dubna 2000 12:32
P�edm�t: OT.: tvorba HELPu
> <OT>
> Existuje nejaky freeware na vytvaranie HELPov?
> </OT>
> Robo
>
>
>Rychle prehravani wavu
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 19.4.2000 22:24:03
Prijemny den,
D4 Standard, W95 OSR2.
Chci se zeptat jestli nekdo nevi jak urychlit prehrani vice wav souboru za
sebou. Tedy chci co nejvice zkratit prodlevu mezi jednotlivymi soubory. Ted
to delam tak, ze ve MediaPlayer.FileName je sobor wav. (Wait je na True) a
po jeho prehrani se prehraje dalsi wav. Ale prodleva mezi ukonceni
prehravaji prvniho a zacatku prehravani druheho wavu je moc dlouha (asi
200ms). Nedal by se tento cas nejak radove zkratit?
Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
DBLookupListBox, Locate
[*] Surfman <surfman(zv)volny(tec)cz> - 19.4.2000 23:01:44
Doplneni!
pri nastaveni Language na ANSI ascii to funguje, ale jinak vubec ne.
Surfman
Pristup k datum - beginner.
[*] Michal David <michal(zv)access-it(tec)cz> - 19.4.2000 19:32:47 -0400
Zdravim,
Jsem zacatecnik v delphi asi tydeni lamer. :))
Mam dotaz jak si ulozim jeden zaznam z TTable do promenne?
Hledal jsem neco jako:
type
rec = record of Table1;
end;
var
zaznam : rec;
end;
Ale neuspel jsem.
Mate nekdo nejake elagantni reseni. Nechce se mi deklarovat a vypisovat vsechny fields.
Diky a jsem s pozdravem.
Michal David
P.S. Vite nekdo o konferenci pro uplne zacatecniky?
kniha k delphi 5
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.4.2000 06:01:38
Je to technicky popis rozdilu mezi D4 a D5 - IDE, definice typu apod.
Jan Fiala
----- Original Message -----
From: Richard Valny <Richard.Valny(zv)oku-st(tec)cz>>
> >Ted nedavno vysla literatura v cestine - Prechazime na D5 od ComputerPress.
Jde ale o rozdilovou publikaci, nani to kompletni popis.
>
> Jiz jste ji nekdo videl?
> Mam zkusenosti s D3 a nyni prechazim na D5. Je ta kniha dobra?
>
> Dik
tvorba HELPu
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 20.4.2000 06:46:55
Zdravim,
doporucena stranka existuje, ale stahnout nejde ani radek. Nevis v cem je
problem. Hlasi to chybu 404.
Pavel
> Oasis Std na http://24.112.41.38/delphideluxeii/tlsflib.htm, mysl�m
nejlepsi
> dostupny z
> free programu. Verze nizsi nez 1.3.6.0 byla nespolehliva, muselo se velmi
> casto zalohovat. 1.3.6.0 se zda byt stabilnejsi.
>
> RT electronic
> Petr Ma��k
> rtepema(zv)mbox.vol(tec)cz
> ----- P�vodn� zpr�va -----
> Od: Robert Zak <nrsys(zv)psn.sk>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 18. dubna 2000 12:32
> P�edm�t: OT.: tvorba HELPu
>
>
> > <OT>
> > Existuje nejaky freeware na vytvaranie HELPov?
> > </OT>
> > Robo
> >
> >
> >
>
>
>init. hodnota pre TDBEdit
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 20.4.2000 07:19:15
To se dela v onNewRecord a cpe se toprimo do tabulky.
> > Ahoj,
> >
> Nemate niekto skusenost ako priradit init.hodnotu pri vkladani
> noveho zaznamu.
> > V D3 mam TTable->TDataSource->TDBEdit a ak si spravim:
> >
> procedure TFormTEST.TableTESTAfterInsert(DataSet: TDataSet);
> begin
> EditDATUM_ZALOZENIA.text:=DateTimeToStr(now);
> EditSTAV.text:='0';
> end;
>
> tak mi vlozi dane hodnoty, ale pri editaci ked prejdem kurzorom na
> dane pole tak sa to zmaze.
> Potreboval by som aby to ostalo pripadne sa dalo zmenit.
>
> > Dakujem.
> >
> > Jozo
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Avi to BMP (gif, jpg...)?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 20.4.2000 07:20:02
Ahoj,
mozne reseni je take pouzit jako nastroj PaintShopPro (umi to delat i
davkove a hromadne) a v programu pro GIF animace po nacteni AVI (a snad i
jine animace) je rozlozen na sekvence a lze je ulozit bud samostatne nebo
treba do animovaneho gifu :-)))) . Pri prumerne velikosti AVI cca 1-2MB ale
potrebuje stovky MB odkladneho prostoru :-((
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Gadourek [SMTP:gadourek(zv)centrum(tec)cz]
> Odesl�no: 19. IV 2000 18:37
> Komu: delphi-l(zv)fwd(tec)cz
> Kopie: nezadal(zv)volny(tec)cz
> P�edm�t: Re: Avi to BMP (gif, jpg...)?
>
> Ahoj,
>
> na torry jsem nasel priklad, ktery umoznuje zobrazovat AVI soubory a
> jednotlive
> obrazky ukladat do BMP. Vyuziva knihoven AVIFIL32.DLL a AVICAP32.DLL. Ja
> je ve
> Win98 mam, ale nevim jestli jsou dodavany standardne nebo si je prinesl
> nejaky
> program.
> Je tam i prelozeny EXE, ktery potrebuje soubor VIDEO.AVI ve svem adresari,
> pokud
> neni tak se nic nedeje.
> http://www.torry.ru/samples/samples/graphics/capmci.zip
>
> Petr
>
> |
> | Ahoj,
> | Ukladam cifernik jednoho pristroje (mereni reologie) jako avi a
> potreboval
> | bych pracovat s jednotlivymi obrazky ve formatu bmp.
> | Nevite nekdo o vhodnem zpusobu prevodu videosekvence avi ---> bmp (jpg,
> | gif...)?
> | Diky za kazdy napad.
> | Martin Nezadal
> | nezadal(zv)volny(tec)cz
> |
> |
> zobrazenie obrazku pred spustenim prog.
[*] Ing. Tibor G. �tromajer <tibors(zv)datex.sk> - 20.4.2000 07:30:22
Zdravim vsetkych
Mam rozsiahlejsi program ktory po spusteni startuje asi 5-7 sek. Chcel by som to urobit tak, ze po spusteni programu (klepnuti na ikonu) sa ihned zobrazi napr. nejaky image, a zmizne vo chvili, ked sa zobrazi hlavny formular.
Vedel by mi niekto povedat ako sa to da urobit ?
Dakujem
Instalace IB6
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 20.4.2000 08:15:26
Haj hou!
Do vydani oficialni IB 6 neco takoveho nedoporucuji (ale kdo chce sirit
betu, at si ji siri :o). Jinak je nekde na www.interbase.com PDF prirucka
pro vytvareni vlastni (embedded) instalace IB, pokud ti nevyhovuje
InstallShield.
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
From: "L. ZITA" <konference(zv)sales(tec)cz>
> Jak se da sirit IB6 spolu s aplikacemi.
>
> Jde mi predevsim o male aplikace ,kde je nutne aby instalaci zvladnul
> uzivatel kompletne sam.
tvorba HELPu
[*] Robert Zak <nrsys(zv)psn.sk> - 20.4.2000 08:32:53
hlasi mi to to iste, nemate to prosim vas niekto stiahnute, alebo neviete
niekto inu stranku kde by sa to dalo najst?? Ak ano, nemohli by ste mi to
prosim poslat na moj mail (aj s tym demom)?...
Dakujem
Robo
>Zdravim,
>doporucena stranka existuje, ale stahnout nejde ani radek. Nevis v cem je
>problem. Hlasi to chybu 404.
>Pavel
>
>
>> Oasis Std na http://24.112.41.38/delphideluxeii/tlsflib.htm, mysl�m
>nejlepsi
>> dostupny z
>> free programu. Verze nizsi nez 1.3.6.0 byla nespolehliva, muselo se velmi
zobrazenie obrazku pred spustenim prog.
[*] Ren� Otisk - 20.4.2000 08:43:20
Hi,
Tady je malinky priklad, kdyz tak se ozvi, kdyby neco nebylo jasne
begin
OldHwnd := FindWindow('TMarketing','Market');
if OldHwnd >= 0 then
begin
Screen.Cursor := crHourGlass;
try
Start := TStart.Create(Application); {To je ten startovaci form s logem}
Start.Show;
Start.RxLabel3.Caption := 'Na��t�m hlavn� formul��...';
Start.Update;
Application.Initialize;
Application.CreateForm(TMarketing, Marketing);
Start.RxLabel3.Caption := 'Na��t�m data...';
Start.Update;
Application.CreateForm(TData, Data);
Start.RxLabel3.Caption := 'Na��t�m ��seln�ky...';
Start.Update;
Application.CreateForm(TKodyForm, KodyForm);
...
Start.RxLabel3.Caption := 'Na��t�m formul��e...';
Start.Update;
Application.CreateForm(TFiltr, Filtr);
Application.CreateForm(TSort, Sort);
...
Screen.Cursor := crDefault;
finally
Start.Free;
end;
Application.Run;
end
else
try
if not IsWindowVisible(OldHwnd) then
SendMessage(OldHwnd, WM SYSCOMMAND, SC RESTORE, 0);
SetForegroundWindow(OldHwnd);
except
end;
end.
Sroub
Zdravim vsetkych
Mam rozsiahlejsi program ktory po spusteni startuje asi 5-7 sek. Chcel by som to urobit tak, ze po spusteni programu (klepnuti na ikonu) sa ihned zobrazi napr. nejaky image, a zmizne vo chvili, ked sa zobrazi hlavny formular.
Vedel by mi niekto povedat ako sa to da urobit ?
Dakujem
Tisk na Canvas tiskarny
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 20.4.2000 09:02:21
Ahoj vsem,
udelal jsem si programek kde mam Grid, krery obsahuje v sloupcich texty.
Kdyz chci tisknout na tiskarnu pouzivam primo Canvas tiskarny.
Tisk provadim tak, ze tisknu sloupec po sloupci. Problem je, ze na obrazovce
sirka sloupce je jina nez na tiskarne. Potrebuji vedet jak mohu vypocitat
sirku a tiskarne. Napr. sloupec c.1 ma velikost 112 pixelu na obrazovce, jak
zjistim kolik pixelu je to na tiskarne. Vim, ze to souvisi s DPI tiskarny,
ale nevim jak ho zjistim a jak jej k vypoctu pouzit. Existuje nejaky font
tiskarny, ktery je univerzalni a je na vsech tiskarnach?
Prosim pomozte
Predem vsem dekuji, Jindra
zobrazenie obrazku pred spustenim prog.
[*] Lauko �tefan <lauko(zv)salamon.sk> - 20.4.2000 09:03:03
Ahoj,
pozri ukazku (priklad z delphi) MastApp - subor DPR (v menu Project/ViewSource).
----- Original Message -----
From: Ing. Tibor G. �tromajer
To: Delphi Konf
Sent: Thursday, April 20, 2000 7:30 AM
Subject: zobrazenie obrazku pred spustenim prog. Zdravim vsetkych
Mam rozsiahlejsi program ktory po spusteni startuje asi 5-7 sek. Chcel by som to urobit tak, ze po spusteni programu (klepnuti na ikonu) sa ihned zobrazi napr. nejaky image, a zmizne vo chvili, ked sa zobrazi hlavny formular.
Vedel by mi niekto povedat ako sa to da urobit ?
Dakujem
PChar
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 20.4.2000 09:04:19
> jak nejlepe (a hlavne nejrychleji-jedna se o velky soubor) zpracovat do
> PCharu nacteny obsah textoveho souboru, ktery ma nasledujici strukturu:
>
>
prvni_dlouhy_text[oddelovac]dalsi_dlouhy_text[oddelovac]dalsi_dlouhy_text...
>
> Potrebuji oddelit jednotlive polozky.
Skus pozriet do RxLib na funkciu ExtractWord,... z StrUtils
Pouziti importovane fce z DLL - RESENI
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.4.2000 09:10:41
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
chyba byla pochopitelne mezi klavesnici a zidli,
pri vytvareni funkce jsem si neuvedomil, ze funkci
musim nadeklarovat jako "stdcall" aby se spravne
zpracovaly jeji parametry. Nyni je jiz vse jak ma
byt.
Vsem Vam dekuji...
...Dobra
BTW: Jak se ve VBA uchovavji datumy ? Potrebuji
napr pricist k datumu jeden mesic. Diky.zobrazenie obrazku pred spustenim prog.
[*] Surfman <surfman(zv)volny(tec)cz> - 20.4.2000 09:37:32
----- Original Message -----
From: "Ing. Tibor G. �tromajer" <tibors(zv)datex.sk>
Subject: zobrazenie obrazku pred spustenim prog.
Ahoj
vyrob si formular, ktery chces zobrazit - na nej si dej ten image.
otevri zdrojovy soubor projektu - Project/View Source
program MujProgram
uses
forms
.................
{$R *.res}
begin
TADY TO ZACINA
FrmUvod := TFrmUvod.Create(Application);
FrmUvod.Show;
FrmUvod.Update;
TADY POKRACUJE VYTVARENI FORMULARU
Application.Initialize;
Application.CreateForm(..........................
NA KONCI ZASE VLOZIS
FrmUvod.Hide;
FrmUvod.Free;
Application.Run;
end;Avi to BMP (gif, jpg...)?
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 20.4.2000 09:41:42
> Vyuziva knihoven AVIFIL32.DLL a AVICAP32.DLL. Ja je ve
> Win98 mam, ale nevim jestli jsou dodavany standardne nebo si je prinesl
nejaky
> program.
Co sa tyka tych DLL prezri CAB subory na CD Windows 9x v adresaroch
Win9x\*.cab
Roland
udalosti dynam. vytvarenych komponent
[*] ursula.mourkova(zv)post(tec)cz - 20.4.2000 09:43:32
ahoj,
jak obsluhovat udalosti u takto vytvarenych komponent:
with TLabel.Create(self) do
try
Parent:=Form1;
Name:=\'L1\';
Width:=200;
Height:=10;
...
Show;
finally
ShowMessage(\'Chyba\');
end;
Diky
Ursula
Pripojte se zdarma k internetu:
*** http://VOLNY.CZ
zobrazenie obrazku pred spustenim prog.
[*] Ji�� Kr�l jr. - 20.4.2000 10:00:08
Obsvihni postup z dema MastApp co je u Delphi, hledej "splash screen"; i ten
form se jmenuje splash a potrebny kod je primo ve zdroji projektu, v tom
hlavnim
JK
Zachyceni spousteni aplikace
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 20.4.2000 10:17:58
Nemate nekdo ten clanek k dispozici ? Na Zive jsem ho nenasel. Taky mne
ta problematika zajima.
S pozdravem
Radim Brozek
-----Original Message-----
From: Slavek Rydval [SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
Sent: Wednesday, April 19, 2000 1:07 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Zachyceni spousteni aplikace
Ahoj,
pokud si nainstalujes relativne novy virus PrettyPart, tak poznas, jak se to
ma delat. :-) Ale vazne. Na Zive se o tomto psalo a byl popsan i zpusob, jak
toho dosahnout prave v souvislosti s timto virem. Zkus si to tam najit (hledej
PrettyPark).
Slavek
> mohl by mi nekdo poradit, jak napsat program, ktery zachyti jakekoliv
> spousteni jinych aplikaci (jako to delaji treba antiviry)?
> Diky, Karel Rys
OT: ODBC pro Interbase
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 20.4.2000 10:27:19
Nev�te nekdo kde se da sehnat ODBC ovladac pro Interbase?COM a SafeArray
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 20.4.2000 10:33:32
> -----P�vodn� zpr�va-----
> Od: Milan Dobias [mailto:mdobias(zv)iss(tec)cz]
> Odesl�no: 19. dubna 2000 16:56
> Komu: 'delphi-l(zv)fwd(tec)cz.'
> P�edm�t: COM a SafeArray
>
>
> Ahoj,
>
> mam problem se ziskavanim atributu typu SafeArray. Z cizi
> aplikace ziskam
> COM objekt, ktery ma jednu
> z instancich promennych promenou typu SafeArray ( v tomto
> pripade string).
> Potrebuji ziskat tyto
> hodnoty, pripadne modifikovat tuto instancni promenou novou hodnotou.
> Neco na zpusob :
Zdravim vsechny nestastniky. SafeArray je bes, trapil jsem se s nim dost
dlouho.
Vykopiruju sem priklady pro oba smery - vytvoreni SafeArray a ziskani dat ze
SafeArray.
Delal jsem to z Javy, doufam, ze nevadi, kdyz kod necham v originale.
Taky nevim, jestli se to bude chovat stejne pro vsechny datove typy,
zrovna to pole bytu, ktere jsem ja pouzival, se pri vytvareni promennych
Variant
chova nekdy trochu jinak nez ostatni data :-(
Prilozeny kod muze slouzit tez jako demo k praci s IIS.
//------------------------
//vytvoreni SafeArray a poslani binarnich dat z IIS na klienta:
//parametr b je pole bytu
private void responseBinaryWrite(byte[] b)
{
SafeArray sa = new SafeArray(Variant.VariantByte, b.length);
sa.fromByteArray(b);
Response.BinaryWrite(new Variant(sa));
}
//-------------------------
//z�skej POSTovan� parametry (z objektu Request)
//ziskame je metodou BinaryRead, ktera vraci safearray
//je nutne prijaty variant vyhrnout do SafeArray a ten do pole charu
//velikost prijatych dat v objektu Request
int TB = Request.getTotalBytes();
if (TB > 0) {
String PostedData = new String(
Request.BinaryRead(new Variant(TB)).toSafeArray().toCharArray()
);
}
HTH
Omlouvam se za tu J++ ale nejsem schopen to prepsat do Delphi -
neumim pracovat s mikrosoftismy v Delphi a nemam cas se to ucit.
Pripadne nejasnosti ohledne syntaxe Javy zodpovim.
Jura
udalosti dynam. vytvarenych komponent
[*] Ren� Otisk - 20.4.2000 10:42:24
with TLabel.Create(self) do
try
Parent:=Form1;
Name:=\'L1\';
Width:=200;
Height:=10;
...
Show;
except
on E:Exception do
ShowMessage(E.Message);{E.ClassName - t��da vyjimky... dle helpu}
end;
po finally se kod vzdy musi vykonat (napr uvolneni komponenty), po except
naproti tomu jen, dojde-li k chybe (obsluha chyb).> ahoj,
>
> jak obsluhovat udalosti u takto vytvarenych komponent:
>
> with TLabel.Create(self) do
> try
> Parent:=Form1;
> Name:=\'L1\';
> Width:=200;
> Height:=10;
> ...
> Show;
> finally
> ShowMessage(\'Chyba\');
> end;
>
> Diky
> Ursula
>
>
> Pripojte se zdarma k internetu:
> *** http://VOLNY.CZ
>OT: access-l (for ADMIN)
[*] Karel Kral <kral(zv)purus(tec)cz> - 20.4.2000 11:11:47
Me tez, a tez plno netradicnich skautskych her.
Lubo Fule wrote:
>
> Z mne neznamej priciny mi zacali chodit nejake prispevky urcene pre
> konferenciu tykajucu sa ACCESS-u (access-l(zv)fwd(tec)cz) z adresy
> owner-delphi-l(zv)fwd(tec)cz neviete v com alebo v kom je problem?
>
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Tisk na Canvas tiskarny
[*] Ren� Otisk - 20.4.2000 11:17:43
Hi,
Mely by to byt vlastnosti objektu TPrinter
Sroub
> Ahoj vsem,
>
> udelal jsem si programek kde mam Grid, krery obsahuje v sloupcich texty.
> Kdyz chci tisknout na tiskarnu pouzivam primo Canvas tiskarny.
> Tisk provadim tak, ze tisknu sloupec po sloupci. Problem je, ze na
obrazovce
> sirka sloupce je jina nez na tiskarne. Potrebuji vedet jak mohu vypocitat
> sirku a tiskarne. Napr. sloupec c.1 ma velikost 112 pixelu na obrazovce,
jak
> zjistim kolik pixelu je to na tiskarne. Vim, ze to souvisi s DPI tiskarny,
> ale nevim jak ho zjistim a jak jej k vypoctu pouzit. Existuje nejaky font
> tiskarny, ktery je univerzalni a je na vsech tiskarnach?
>
>
>
> Prosim pomozte
>
>
> Predem vsem dekuji, Jindra
GetTimeZoneInformation
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 20.4.2000 11:33:56
Pri spolupraci s jinymi aplikacemi potrebuji prevezt TDateTime
na ceckovy CTime, coz je UTC ve vterinach od 1.1.1970. Prevod
na vteriny a posun zacatku je trivialni. Pro posun na UTC jsem
pouzil GetTimeZoneInformation, polozku Bias o niz M$ uvadi
UTC=local+bias
Cely vzorec tedy vypada takto:
:=Trunc((tim-EncodeDate(1970,1,1))*(24*60*60))+(tzi.Bias*60)+1;
Pri porovnani casu jsem zjistil ze je tam faliruje jedna hodina.
Problem je onen Bias, ktery hlasi -60 (je v minutach) ackoliv by
mel byt -120, protoze plati letni cas. Ve Windows mam letni cas
nastaven. Pokud se prepnu do unora, tak mam bias take -60.
Z dalsich udaju z GetTimeZoneInformation je zajimave je
standardbias je vzdy 0 ackoliv mam nastavenu Prahu tj. GMT + 1
Zkousel jsem i funkce GetLocalTime a GetSystemTime. Rozdil
mezi nimi cini 2 hodiny (dnes) a 1 hodinu (unor) coz je naprosto
spravne. Predpokladam ze problem je ve funkci GetTimeZoneInfo,
takze si asi bias vypoctu sam jako rozdil mezi LocalTime a
SystemTime.
Pokud jste nekdo neco podobneho resil, budu vdecny za reakci.
------------------------------------------------------
Daniel Rott - roxton(zv)volny(tec)cz
http://www.volny(tec)cz/roxton
Some minor bugs/features fixed/added
GetTimeZoneInformation
[*] Petr Sikola <P.Sikola(zv)sh.cvut(tec)cz> - 20.4.2000 11:43:17
no a neni tam jeste nahodou nejaky info jestli ja zapnuty letni cas (v ty
casovy zone)??
ShiCola
> Pri spolupraci s jinymi aplikacemi potrebuji prevezt TDateTime
> na ceckovy CTime, coz je UTC ve vterinach od 1.1.1970. Prevod
> na vteriny a posun zacatku je trivialni. Pro posun na UTC jsem
> pouzil GetTimeZoneInformation, polozku Bias o niz M$ uvadi
> UTC=local+bias
> Cely vzorec tedy vypada takto:
> :=Trunc((tim-EncodeDate(1970,1,1))*(24*60*60))+(tzi.Bias*60)+1;
> Pri porovnani casu jsem zjistil ze je tam faliruje jedna hodina.
> Problem je onen Bias, ktery hlasi -60 (je v minutach) ackoliv by
> mel byt -120, protoze plati letni cas. Ve Windows mam letni cas
> nastaven. Pokud se prepnu do unora, tak mam bias take -60.
> Z dalsich udaju z GetTimeZoneInformation je zajimave je
> standardbias je vzdy 0 ackoliv mam nastavenu Prahu tj. GMT + 1
>
> Zkousel jsem i funkce GetLocalTime a GetSystemTime. Rozdil
> mezi nimi cini 2 hodiny (dnes) a 1 hodinu (unor) coz je naprosto
> spravne. Predpokladam ze problem je ve funkci GetTimeZoneInfo,
> takze si asi bias vypoctu sam jako rozdil mezi LocalTime a
> SystemTime.
>
> Pokud jste nekdo neco podobneho resil, budu vdecny za reakci.
>
> ------------------------------------------------------
> Daniel Rott - roxton(zv)volny(tec)cz
> http://www.volny(tec)cz/roxton
> Some minor bugs/features fixed/added
>
>ODBC pro Interbase
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 20.4.2000 11:57:52
Nevim jak v IB6, ale u kazde instalace InterBase Clienta bylo mozne zvolit
instalaci ODBC driveru.
JaromirCermak
-----Original Message-----
From: �ampulka Ji�� [mailto:campulka(zv)czas(tec)cz]
Sent: Thursday, April 20, 2000 10:27 AM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: ODBC pro Interbase
Nev�te nekdo kde se da sehnat ODBC ovladac pro Interbase?Datum a cas v dobe prekladu
[*] danikonf(zv)atlas(tec)cz - 20.4.2000 12:02:34
Zdravim,
potreboval bych, aby se mi v aplikaci zobrazoval datum, pripadne cas (stacilo by mi to i jako string), kdy byl projekt prelozen. Zkousel jsem najit nejakou direktivu prekladace, ale na nic jsem nenarazil. Vite nekdo, jak to resit?
(Pracuji s D5.)
Diky moc za pripadnou radu, s pranim hezkeho dne
Daniel Martinec
Kde najit =?ISO-8859-1?Q?obr=E1zky na tl?=acitka a
[*] Pavel �ern� - 20.4.2000 12:18:06
Pokud chci na tlacitka umistit obrazky, potrebuji zdroj - BMP nebo neco.
Spousta symbolu je ve vsech aplikacich stejna.
Najdu nekde v delfach nebo i jinde nejakou "knihovnu"
takovych obrazku ??
Diky za navedeni.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Datum a cas v dobe prekladu
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 20.4.2000 12:24:36
A co zobrazit datum vytvoreni exe souboru?
Vaclav Sazima
danikonf(zv)atlas(tec)cz wrote:
>
> Zdravim,
>
> potreboval bych, aby se mi v aplikaci zobrazoval datum, pripadne cas (stacilo by mi to i jako string), kdy byl projekt prelozen. Zkousel jsem najit nejakou direktivu prekladace, ale na nic jsem nenarazil. Vite nekdo, jak to resit?
>
> (Pracuji s D5.)
>
> Diky moc za pripadnou radu, s pranim hezkeho dne
>
> Daniel Martinec
GetTimeZoneInformation
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 20.4.2000 12:24:24
> no a neni tam jeste nahodou nejaky info jestli ja
> zapnuty letni cas (v tycasovy zone)??
Ano, tento udaj tam je (i kdyz pri prepnuti na
unor, stale hlasi daylight, mozna to chce restart).
Ale co s tim ? Funkce hlasi zhruba toto:
DNES:
tzi.bias = -60
tzi.daylightbias = -60
tzi.standartbias = 0
localtime = 11:00
systemtime = 9:00
UNOR:
tzi.bias = -60
tzi.daylightbias = -60
tzi.standartbias = 0
localtime = 11:00
systemtime = 10:00
Zapomel jsem dodat ze OS je WinNT4.0WSCZ sp6
-----------------------------------------------------
Daniel Rott - roxton(zv)volny(tec)cz
http://www.volny(tec)cz/roxton
Some minor bugs/features fixed/added
ODBC a Excel
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 20.4.2000 12:25:31
Neviete mi niekto poradit, co vsetko je mozne robit cez ODBC pristup na Excel subory. Podarilo sa mi rozchodit citanie zo suboru, neviem vsak ako vytvorit novy subor alebo ako zistit zoznam harkov v subore a kopu dalsich veci na ktore si teraz nespomeniem. Ma s tym niekto skusenosti ?
Diky MarCaNT
Kde najit obr�zky na tlacitka apod ?
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 20.4.2000 12:32:17
Po instalacii Delphi je ich dost vela v Program files\Common files\Borland
Shared\Images\Buttons.
Ak by ti to nestacilo, ozvi sa mi na marcant(zv)sct.sk a ja ti mozem poslat
kopu dalsich.
----- Original Message -----
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, April 20, 2000 12:18 PM
Subject: Kde najit obr�zky na tlacitka apod ?> Pokud chci na tlacitka umistit obrazky, potrebuji zdroj - BMP nebo neco.
> Spousta symbolu je ve vsech aplikacich stejna.
> Najdu nekde v delfach nebo i jinde nejakou "knihovnu"
> takovych obrazku ??
>
> Diky za navedeni.
>
> Pavel �ern�
> email: pavel(zv)cerny-ps(tec)cz
>
>
>Pristup k datum - beginner.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.4.2000 12:32:33
IMHO to nejde, protoze v te dobe jeste
neni znama struktura te tabulky.
Dobra.
> ----------
> Od: Michal David[SMTP:michal(zv)access-it(tec)cz]
>
> Mam dotaz jak si ulozim jeden zaznam z TTable do promenne?
>
> Hledal jsem neco jako:
> type
> rec = record of Table1;
> end;
>
> var
> zaznam : rec;
> end;
>
> Ale neuspel jsem.
>
> Mate nekdo nejake elagantni reseni. Nechce se mi deklarovat a vypisovat vsechny fields.
> Tisk na Canvas tiskarny
[*] Lauko �tefan <lauko(zv)salamon.sk> - 20.4.2000 12:46:06
Ahoj,
priamo na printer.canvas sa kresli dost tazko. Ja som taketo nieco riesil
asi takto:
var
MF:TMetafile;
MFC:TMetafileCanvas;
begin
MF:=TMetafile.Create;
MFC:=TMetafileCanvas.Create(MF,0);
...
MFC.TextOut...
Nakreslim a napisem nieco...
MFC.Free; {aktualizuje MetaFile}
Printer.BeginDoc;
Printer.Canvas.StretchDraw(rect(0,0,Printer.PageWidth,Printer.PageHeight),MF
);
Printer.EndDoc;
end;
Pisal som to z pamate ale malo by to fungovat.
Lauko.
----- Original Message -----
From: Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz>
To: konference delphi <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, April 20, 2000 9:02 AM
Subject: Tisk na Canvas tiskarny
> Ahoj vsem,
>
> udelal jsem si programek kde mam Grid, krery obsahuje v sloupcich texty.
> Kdyz chci tisknout na tiskarnu pouzivam primo Canvas tiskarny.
> Tisk provadim tak, ze tisknu sloupec po sloupci. Problem je, ze na
obrazovce
> sirka sloupce je jina nez na tiskarne. Potrebuji vedet jak mohu vypocitat
> sirku a tiskarne. Napr. sloupec c.1 ma velikost 112 pixelu na obrazovce,
jak
> zjistim kolik pixelu je to na tiskarne. Vim, ze to souvisi s DPI tiskarny,
> ale nevim jak ho zjistim a jak jej k vypoctu pouzit. Existuje nejaky font
> tiskarny, ktery je univerzalni a je na vsech tiskarnach?
>
>
>
> Prosim pomozte
>
>
> Predem vsem dekuji, Jindra
>Kde najit obr�zky na tlacitka apod.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.4.2000 12:56:22
Spoooooustu obrazku najdes tady :
http://mujweb(tec)cz/pocitace/dcomp/download/delphi/glyphs1.zip
http://mujweb(tec)cz/pocitace/dcomp/download/delphi/glyphs2.zip
http://mujweb(tec)cz/pocitace/dcomp/download/delphi/glyphs3.zip
(velikosti jsou cca 34 kB, 89kB a 215kB)
(jinak, dalsi obrazky najdes v Chip-u,
resp. na jeho CD, v kategorii "Zkuste - Delphi"
a dalsi obrazky najdes v %Delphi%\images)
Dobra.
> ----------
> Od: Pavel > �ern�[SMTP:cerny(zv)cerny-ps(tec)cz]
>
> Pokud chci na tlacitka umistit obrazky, potrebuji zdroj - BMP nebo neco.
> Spousta symbolu je ve vsech aplikacich stejna.
> Najdu nekde v delfach nebo i jinde nejakou "knihovnu"
> takovych obrazku ??
>
> Zachyceni spousteni aplikace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.4.2000 13:17:51
Ahoj,
me to nasel v pohode:
http://zive.cpress(tec)cz/r-art.asp/id=10564
Slavek
> Nemate nekdo ten clanek k dispozici ? Na Zive jsem ho nenasel. Taky mne
> ta problematika zajima.
>
> S pozdravem
> Radim Brozek
Datum a cas v dobe prekladu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.4.2000 13:22:12
Ahoj,
na webu existuje plugin do Delphi, ktery Ti vytvori soubor s datem a casem
kompilace. Wiz: http://stonebirds.8m.com/comptime/index.html
Slavek
> potreboval bych, aby se mi v aplikaci zobrazoval datum, pripadne cas (stacilo by mi to i jako string), kdy byl projekt prelozen. Zkousel jsem najit nejakou direktivu prekladace, ale na nic jsem nenarazil. Vite nekdo, jak to resit?
> (Pracuji s D5.)
> Daniel Martinec
COM server a problem s volanim metod
[*] Tom� Br�dle������i�^����? - 20.4.2000 13:38:31
----- P�vodn� zpr�va -----
Od: Marian Jonas
> Je mi jasny ze Excel pouziva late-binding a Delphi v tomto pripade pouziva
vtable-binding.
Dobre tak teda zkus, misto
Test:=CoTest.Create;
dat
Test:=CreateObject('TEST_SRV.TEST');
cimz se nejvice priblizis zpusobu volani toho Excelu (late-binding )
QReport a skladany papir
[*] mbartone(zv)Synthesia(tec)cz - 20.4.2000 13:51:59
Ahoj
D3 C/S, QR 2.0k, epson LQ 1170
Pokud tisknu nekolik stranek za sebou zacne se posouvat hlavicka stranky tak, ze
uz pri 4 strance je v perforaci.
Zkousel jsem nastavit na tiskarne skladany papir - nepomohlo.
V QR jsem nastavil delku papiru na 305mm - taky nepomohlo
Na lejzrovce je vse v poradku. Takze to bude nekde v jehlickove tiskarne a
skladanem papiru.
Nevite jak na to ?
Milan
Seznam MS-SQL serveru
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 20.4.2000 14:01:45
> > Nev�te jak ziskat seznam MS-SQL serveru v siti?
>
> Napr. pomocou SQL-DMO objektov:
>
> uses SQLDMO_TLB; // importovana kniznica SQLDMO
>
> var i, j: Integer;
>
> with CoApplication_.Create.ServerGroups do
> for i := 1 to Count do
> begin
> ShowMessage('Server group: ' + Item(i).Name);
> with Item(i).RegisteredServers do
> for j := 1 to Count do
> ShowMessage('Server: ' + Item(j).Name);
> end
>
> mal by fungovat aj zoznam dostupnych SQL serverov na sieti,
> u mna na lokalnom pocitaci to ale nezobrazilo nic:
>
> with CoApplication_.Create.ListAvailableSQLServers do
> for i := 1 to Count do
> ShowMessage('Available SQL server: ' + Item(i));
>
> Erik
>
Ahoj,
pokud pouziji navrzeny postup, co bude treba sirit spolu s aplikaci,
aby bezela? Nebude potreba mit na stroji, kde ma bezet tato
aplikace, nainstalovaneho klienta MS SQL serveru? Nebo by stacil
MDAC balik?
(dosud jsem s type libraries nemel nic co do cineni, tak o tom
nic nevim).
David
QReport a skladany papir
[*] Ren� Otisk - 20.4.2000 14:46:14
Hi,
Jo neco podobneho jsem zazil s Epson LQ 1070. Delalo mi to i v Excelu apod.
Musis ji naprogramovat na prislusnou vysku papiru v inches. Dokumentace jsem
tehdy nasel primo na inetu (tusim www.epson.com)
Sroub
>
>
> Ahoj
>
> D3 C/S, QR 2.0k, epson LQ 1170
>
> Pokud tisknu nekolik stranek za sebou zacne se posouvat hlavicka stranky
tak, ze
> uz pri 4 strance je v perforaci.
> Zkousel jsem nastavit na tiskarne skladany papir - nepomohlo.
> V QR jsem nastavil delku papiru na 305mm - taky nepomohlo
>
> Na lejzrovce je vse v poradku. Takze to bude nekde v jehlickove tiskarne a
> skladanem papiru.
>
> Nevite jak na to ?
>
> Milan
>Prihlaseni k lokalni tabulce Access
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 20.4.2000 14:58:23
Ahoj vsem,
mam napsany programek v Delphi 4 Std. pro prohlizeni souboru mdb Accessu.
Pouzimam MSACCESS nativni link v BDE.
V Delphi se v komponente Table odkazuji na dany Alias a pomoci Datasource a
DBGrid zobrazuji data. Vse je jak ma byt, ale pokud v property Active v
Table nastavim true zepta se mne pocitac na Uzivatele a heslo. Proti tomu
nic nemam, urcite to ma opoctatneni, ale ne v mem pripade, protoze data v
souboru slouzi jen jako informativni. Tudiz ten dialog otravuje. Nevite jak
to udelat, abych se automaticky prihlasil.
Asi to pujde pres komponentu Database, ale nevim jak se sni napojit na
databazi a DBGrid.
Predem diky
Jindrich Nikodem
Seznam MS-SQL serveru
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 20.4.2000 15:37:39
> > Nev�te jak ziskat seznam MS-SQL serveru v siti?
>
> Napr. pomocou SQL-DMO objektov:
>
> uses SQLDMO_TLB; // importovana kniznica SQLDMO
>
> var i, j: Integer;
>
> with CoApplication_.Create.ServerGroups do
> for i := 1 to Count do
> begin
> ShowMessage('Server group: ' + Item(i).Name);
> with Item(i).RegisteredServers do
> for j := 1 to Count do
> ShowMessage('Server: ' + Item(j).Name);
> end
>
> mal by fungovat aj zoznam dostupnych SQL serverov na sieti,
> u mna na lokalnom pocitaci to ale nezobrazilo nic:
>
> with CoApplication_.Create.ListAvailableSQLServers do
> for i := 1 to Count do
> ShowMessage('Available SQL server: ' + Item(i));
V cem spociva rozdil mezi obema postupy? To druhe skutecne
nefunguje dobre, zda se mi, ze se to ridi Windows registry (viz
podobna diskuse pred par tydny). To prvni by mi vyhovovalo,
skutecne mi to naslo oba nase SQL servery. Nehrozi nebezpeci,
ze to najde i neco jineho? A hlavne: v cemze spociva ten rozdil?
Diky moc. David
tvorba HELPu
[*] Ma��k Petr <rtepema(zv)mbox.vol(tec)cz> - 20.4.2000 15:55:11
Zdravim,
vcera funkcni stranka je http://www.helpmaster.com/zip/oasisse.zip
RT electronic
Petr Ma��k
rtepema(zv)mbox.vol(tec)cz
----- P�vodn� zpr�va -----
Od: Pavel ZIDEK <kopr(zv)kopr(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 20. dubna 2000 6:46
P�edm�t: Re: tvorba HELPu
> Zdravim,
> doporucena stranka existuje, ale stahnout nejde ani radek. Nevis v cem je
> problem. Hlasi to chybu 404.
> Pavel
>
>
> > Oasis Std na http://24.112.41.38/delphideluxeii/tlsflib.htm, mysl�m
> nejlepsi
> > dostupny z
> > free programu. Verze nizsi nez 1.3.6.0 byla nespolehliva, muselo se
velmi
> > casto zalohovat. 1.3.6.0 se zda byt stabilnejsi.
> >
> >
> > RT electronic
> > Petr Ma��k
> > rtepema(zv)mbox.vol(tec)cz
> > ----- P�vodn� zpr�va -----
> > Od: Robert Zak <nrsys(zv)psn.sk>
> > Komu: <delphi-l(zv)fwd(tec)cz>
> > Odesl�no: 18. dubna 2000 12:32
> > P�edm�t: OT.: tvorba HELPu
> >
> >
> > > <OT>
> > > Existuje nejaky freeware na vytvaranie HELPov?
> > > </OT>
> > > Robo
> > >
> > >
> > >
> >
> >
> >
> >
>
>
Potlacen� ukoncen� aplikace
[*] Daniel Krej�� - 20.4.2000 16:13:04
Potreboval bych potlacit ukoncen� aplikace pri stisku Alt+F4, ostatni zkratky jsem jiz vyrusil pomoci nedavno uvadeneho postupu s procedurou SystemParametersInfo, ale na tu Alt+F4 to nepusobi, tak pokud nekdo tusite, tak prosim pomozte. Podivne zapisy pro Master/detail v MIDASu
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 20.4.2000 16:23:50
Diky za radu. Nakonec jsem vse vyresil sam a jinak. Problem byl vindexu.
Zrejme nekdo u Inprisu zapomel na index a ten mi zpusobil nize popsane
prikori. Na client datasetu byl nastaven index podle poradi zmen, takze kdyz
jsem provedl zmenu v prvnim zaznamu a zapsal ho postem, zaznam se posunul az
na konec a na dalsi uz se nedostalo.
Jaromir Cermak
-----Original Message-----
From: ing. Ale� Da�a [mailto:cis(zv)atlas(tec)cz]
Sent: Wednesday, April 19, 2000 8:35 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Podivne zapisy pro Master/detail v MIDASu
Kdyz jsem pouzival MIDAS v D4 a mel jsem na Query povesenou UpdateQuery
nasel jsem na internetu nasledujici proceduru a vse fungovalo.
procedure Tmsucetdata.SetUSQLParams(AQuery: TQuery; ACDS: TClientDataset);
var
i: integer;
Old: Boolean;
Param: TParam;
PName: string;
Field: TField;
Value: Variant;
begin
with AQuery do
begin
for I := 0 to Params.Count - 1 do
begin
Param := Params[I];
PName := Param.Name;
Old := CompareText(Copy(PName, 1, 4), 'OLD_') = 0;
if Old then System.Delete(PName, 1, 4);
Field := ACDS.FindField(PName);
if not Assigned(Field) then Continue;
if Old then Param.AssignFieldValue(Field, Field.OldValue) else
begin
Value := Field.NewValue;
if VarIsEmpty(Value) then Value := Field.OldValue;
Param.AssignFieldValue(Field, Value);
end;
end;
end;
end;
procedure TMsucetData.dsp_CslAdresarBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind;
var Applied: Boolean);
begin
SetUSQLParams ( USQLAdresar.Query[Updatekind], DeltaDS);
USQLadresar.ExecSQL(UpdateKind);
Applied:=true;
end;
Moyna bych od vas potreboval poradit jak resit inteligentne zapis
master/detail v D5, protoze pouzivany zapis pomoci Delta mi v D5 nefunguje.
Ales Dana
tel.: 0603 457 024
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
CERMAK
Sent: Monday, April 17, 2000 11:02 AM
To: Konference Delphi (el. adresa)
Subject: Podivne zapisy pro Master/detail v MIDASu
Ahoj
Mam takovoy maly problem. V D5 Ent. SP1 jsem zacal zkouset pod MIDASEM
nasledujici vec.
Chtel jsem pouzit vestavene podpory master/detail.
Na serveru mam dve Query provazane pres DataSource a na te co je master mam
nastaveny provider. Obje Query maji navesenou UpdateQuery a nemaji nastaveny
ani RequestLive ani CachedUpdates. Provider nema nastavenou zadnou option, a
ResolveToDataSet je False.
Protoze klic se generuje jako identity na serveru, vse funguje tak, ze po
zapisu AfterUpdateRecord pro master query zjistim posledni pridelene ID a
pred updatem detailu ho nastavim do patricneho odkazu.
Na klientovy se Master ClientDataSet napojuje na provider a detail
ClientDataSet se napoji na jeho polozku, ktera odpovida detail Query.
Pri pridavani nove vety do master datasetu Nastane nasledujici problem: kdyz
k teto pridavane polozce v master datasetu, pripisu i dve polozky v detail
datasetu, zapise se mi po apply updates pouze jedna z nich, ale klient se
tvari, jako byc je zapsal obe. Druha nezmizi ani po CancelUpdates. Problem
se projevi az po opetovnem otevreni a zavreni formulare. Trasoval jsem si
zapis a opravdu jsem videl jen jeden Insert do detail tabulky, takze nejde o
chybu,SQL serveru, ktera by se nedostala az na klienta. Muze mi nekdo rict
co delam spatne.
Predem dekuji za pripadnou radu
Jaromir Cermak
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.127 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
Datum a cas v dobe prekladu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 20.4.2000 16:39:53
Ahoj,
pouzivam pro compile info takovyhle komponent
Jaro B.
Priloha:
unit CompInfo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TDateTimeFormat=(tfDefault,tfShortDate,tfLongDate,tfAbbreviated,tfFullName);
TCompileInfo = class(TComponent)
private
{ Private declarations }
FCompileDate,
FVersion,
FCompName,FFormatting:string;
FUpdate,FDateOnly:boolean;
FBuild:Cardinal;
FFormat:TDateTimeFormat;
procedure SetFormat(Value:TDateTimeFormat);
procedure SetVersion(Value:string);
procedure SetUpdate(Value:boolean);
procedure SetCompileDate(Value:string);
procedure SetBuild(Value:Cardinal);
procedure SetCompName(Value:string);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
published
{ Published declarations }
property Build:Cardinal read FBuild write SetBuild default 1;
property CompanyName:string read FCompName write SetCompName;
property CompileDate:string read FCompileDate write SetCompileDate;
property DateOnly:boolean read FDateOnly write FDateOnly default False;
property Format:TDateTimeFormat read FFormat write SetFormat;
property Update:boolean read FUpdate write SetUpdate default False;
property Version:string read FVersion write SetVersion;
end;
procedure Register;
implementation
constructor TCompileInfo.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
FUpdate := False;
FDateOnly := False;
FVersion := '1.0';
FCompName := 'Blue Frog Inc.';
FBuild := 1;
FFormatting := 'c';
FCompileDate := FormatDateTime(FFormatting,Now);
end;
procedure TCompileInfo.SetFormat(Value:TDateTimeFormat);
begin
if FFormat <> Value then
begin
FFormat := Value;
case FFormat of
tfDefault: FFormatting := 'c';
tfShortDate: FFormatting := 'ddddd';
tfLongDate: FFormatting := 'dddddd';
tfAbbreviated: if FDateOnly then
FFormatting := 'yy mmm ddd'
else
FFormatting := 'yy mmm ddd t';
tfFullName: if FdateOnly then
FFormatting := 'yyyy mmmm dddd'
else
FFormatting := 'yyyy mmmm dddd tt';
end;
end;
SetUpdate(FUpdate);
end;
procedure TCompileInfo.SetVersion(Value:string);
begin
if FVersion <> Value then
FVersion := Value;
end;
procedure TCompileInfo.SetUpdate(Value:boolean);
var Tmp:TDateTime;
begin
if Value then
begin
Tmp := Now;
if FDateOnly then
Tmp := Trunc(Tmp);
if (csDesigning in ComponentState) then
FCompileDate := FormatDateTime(FFormatting,Tmp);
end;
FUpdate := Value;
end;
procedure TCompileInfo.SetCompileDate(Value:string);
begin
if FCompileDate <> Value then
FCompileDate := Value;
end;
procedure TCompileInfo.SetBuild(Value:Cardinal);
begin
if FBuild <> Value then
FBuild := Value;
end;
procedure TCompileInfo.SetCompName(Value:string);
begin
if FCompName <> Value then
FCompName := Value;
end;
procedure Register;
begin
RegisterComponents('System', [TCompileInfo]);
end;
end.
> -----P�vodn� zpr�va-----
> Od: Vaclav Sazima [SMTP:sazima(zv)comp(tec)cz]
> Odesl�no: 20. IV 2000 12:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Datum a cas v dobe prekladu
>
> A co zobrazit datum vytvoreni exe souboru?
> Vaclav Sazima
>
> danikonf(zv)atlas(tec)cz wrote:
> >
> > Zdravim,
> >
> > potreboval bych, aby se mi v aplikaci zobrazoval datum, pripadne cas
> (stacilo by mi to i jako string), kdy byl projekt prelozen. Zkousel jsem
> najit nejakou direktivu prekladace, ale na nic jsem nenarazil. Vite nekdo,
> jak to resit?
> >
> > (Pracuji s D5.)
> >
> > Diky moc za pripadnou radu, s pranim hezkeho dne
> >
> > Daniel Martinec
ADO (Adonis) a export
[*] Erik Salaj <winsoft(zv)napri.sk> - 20.4.2000 17:15:44
> resim export jakehokoliv RecordSetu do jineho zdroje (napr.
> DBF, Excel, Paradox ...) pomoci ADO.
Ak pouzivas JetEngine, potom staci vykonat jeden SQL prikaz:
// export do Excel-u:
ADODatabase.ExecSQL('SELECT * INTO MySheet IN "c:\MyFile.xls" "Excel 8.0;"
FROM MyTable');
// export do TXT:
ADODatabase.ExecSQL('SELECT * INTO MyText#txt IN "c:\" "Text;" FROM
MyTable');
// export do Paradox-u:
ADODatabase.ExecSQL('SELECT * INTO MyPXTable IN "c:\" "Paradox 7.X;" FROM
MyTable');
Erik
Hlavni panel
[*] Daniel Krej�� - 20.4.2000 17:37:08
Jde nejak zjistit vyska, resp. ��rka hlavn�ho panelu a jeho pozize (Bottom,Left,Right,Top).
D�le by me zajimala nejaka procedura nebo funkce, kter� "vezme obrazovku" podobne jako Print Screen na kl�vesnici a pak ho ulozila do bitmapy.
M�m D3 Client-Server Suite
Zdar vsem programatorum Delphi
Potlacen� ukoncen� aplikace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.4.2000 18:11:05
Ahoj,
podivej se na udalost FormCloseQuery hlavniho formulare. Jeden zpusob je
take popsan tady: http://www.swnet(tec)cz/article.php?id=10687
Slavek
> Potreboval bych potlacit ukoncen=ED aplikace pri stisku Alt+F4, ostatni =
> zkratky jsem jiz vyrusil pomoci nedavno uvadeneho postupu s procedurou =
> SystemParametersInfo, ale na tu Alt+F4 to nepusobi, tak pokud nekdo =
> tusite, tak prosim pomozte.=20
Vytvo�en� dotazu (query) v MS Access
[*] Erik Salaj <winsoft(zv)napri.sk> - 20.4.2000 18:42:31
> Nevite nekdo, jak se da vytvorit v delphi programu DOTAZ v MS Access DB
97?
> Neco jako:
>
> CREATE QUERY pokus (SELECT * FROM TABLE1)
Dotazy mozno vytvarat pomocou DAO alebo ADOX objektov (viz DAO a Adonis
a FAQ na http://www.cybermagic.co.nz/winsoft ). Prikazy typu CREATE QUERY
Access nepozna (az na CREATE TABLE).
Erik
Hlavni panel
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.4.2000 20:22:04
> D�le by me zajimala nejaka procedura nebo funkce, kter� "vezme obrazovku"
> podobne jako Print Screen na kl�vesnici a pak ho ulozila do bitmapy.
procedure ScreenToBitmap(Bitmap: TBitmap);
var
ScreenCanvas: TCanvas; //pl�tno, kam se kresl�
ScreenRect: TRect; //obd�ln�k
begin {ScreenToBitmap}
//nejprve si zjist�me rozm�ry obrazovky
ScreenRect := Rect(0, 0, Screen.Width, Screen.Height);
//nastav�me rozm�r bitmapy
Bitmap.Height := ScreenRect.Bottom;
Bitmap.Width := ScreenRect.Right;
//vytvo��me pl�tno
ScreenCanvas := TCanvas.Create;
try
//zjist�me handle plochy
ScreenCanvas.Handle := GetWindowDC(GetDesktopWindow);
//a vlo��me do bitmapy
Bitmap.Canvas.CopyRect(ScreenRect, ScreenCanvas, ScreenRect);
finally
//nakonec je�t� uvoln�me nepot�ebn� pl�tno
ScreenCanvas.Free;
end; {try/finally/end}
end; {ScreenToBitmap}
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
reseni diferencialnich rovnic
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 20.4.2000 20:23:34
Zalezi jakych (obycejne, parcialni), presnost, rychlost, rovnice jsou stabilni, rovnice jsou nestabilni (nebo neco mezi),
doporucil bych skripta z VUT BRNO Numericka matematika 4 (mozna to maji ve skriptarne), dale Teorie Automatizace Rizeni 1-3.
Podle dotazu soudim na rovnice asi tak do 10 radu, ne vice (regulator byva obvykle do radu 3).
Pokud ses schopen zapsat rovnice takto:
y1'=f1(Y1,Y2,......,X1,X2,t)
y2'=f2(Y1,Y2,......,X1,X2,t)
y3'=f3(Y1,Y2,......,X1,X2,t)
y4'=f4(Y1,Y2,......,X1,X2,t)
.
.
.
Kde Y je vektor stavovych velicin, X je vektor vstupu, t je cas (obvykle se derivuje podle casu, tedy alespon ve Fyzice :((( ).
f jsou funkce, jenz vyjadruji prvni derivaci prislusne stavove veliciny podle casu.
pak staci Y1=Y1+dt*y1' kde dt je prirustek casu (nebo i jiny).
Uvedeny zpusob je to nejjednodussi, co existuje, ale je to celkem pouzitelne (osobne jsem takle nasimuloval oscilator s OZ, didodovy umernovac).
Lepsi vysledky sosahneme pouzitim metody Runde- Kuta (nebo tak nejak), ale
vzhledem k tomu, ze to pisi z hlavy tak uz zbyva jen odkaz na sripta.
Dalsi klicova slova jsou:
Metoda siti, metoda prediktor-korektor, metoda konecnych prvku.
Tady je program:
program Difequ;
uses vyraz;
const maxequ=20;
var E:array[0..maxequ]of string[60];{pole rovnic}
I,Ip:array[0..maxequ]of extended; {pole integratoru}
equs:integer; {Pocet rovnic}
fi,fo:Text;
j:integer;
t,first,last,step:extended;
v:TVyraz; { neco na vycisleni vyrazu RUN TIME }
function SVar(S: string): PNumber;
begin
if s[1]='T'then SVar:=(zv)t
else if s[1]='Y'then begin
SVar:=(zv)I[ord(s[2])-ord('A')];
end
else SVar:=nil;
end;
function primitiv(Iv:double;const equ:string):double;
begin
v.Init;
v.Transfer(equ);
primitiv:=Iv+step*v.Funkce;
v.Done;
end;
begin Varsolve:=(zv)SVar;
assign(fi,'input.txt');
reset(fi); readln(fi,equs); {read pocet rovnic}
for j:=0to equs-1do readln(fi,E[j]);
for j:=0to equs-1do read(fi,I[j]);
read(fi,first,last,step); t:=first;
close(fi);
assign(fo,'output.txt'); rewrite(fo);
writeln(fo,'Result of numeric solution, generated by Difequ - ELEkT Labs (c)1999');
writeln(fo,'--------------------------------------------------------------------');
while t<last do
begin
write(fo,t:30:10);
for j:=0to equs-1do begin Ip[j]:=primitiv(I[j],E[j]); write(fo,' ',I[j]:30:10); end;
I:=Ip;
writeln(fo);
t:=t+step;
end;
close(fo);
end.
Zdravim vsechny,
nevite nekdo o nejakych knihovnach na reseni diferencialnich rovnic, nebo SW
regulatoru?
diky predem
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
Prihlaseni k lokalni tabulce Access
[*] Ji�� Fait���}���6���3 - 20.4.2000 21:48:00
Pridej si tam komponentu TDatabase. Nastav ji DatabaseName na prislusny
alias a property LoginPromt nastav na False :-)
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jind�ich Nikodem
Sent: Thursday, April 20, 2000 2:58 PM
To: konference delphi
Subject: Prihlaseni k lokalni tabulce Access
Ahoj vsem,
mam napsany programek v Delphi 4 Std. pro prohlizeni souboru mdb Accessu.
Pouzimam MSACCESS nativni link v BDE.
V Delphi se v komponente Table odkazuji na dany Alias a pomoci Datasource a
DBGrid zobrazuji data. Vse je jak ma byt, ale pokud v property Active v
Table nastavim true zepta se mne pocitac na Uzivatele a heslo. Proti tomu
nic nemam, urcite to ma opoctatneni, ale ne v mem pripade, protoze data v
souboru slouzi jen jako informativni. Tudiz ten dialog otravuje. Nevite jak
to udelat, abych se automaticky prihlasil.
Asi to pujde pres komponentu Database, ale nevim jak se sni napojit na
databazi a DBGrid.
Predem diky
Jindrich Nikodem
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.121 / Virov� b�ze: 58 - datum vyd�n�: 31.1.2000
IB: dlzka SQL prikazu
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 20.4.2000 22:39:02
Zdravim,
Je dane nejake maximum znakov na jeden prikaz SQL pre IB ?
Dakujem.
Roland.
Pristup k datum - beginner.
[*] Lud�k P�ral - 20.4.2000 23:19:26
Pri hromadnem zpracovani pouzivam predevsim prenosy do jinych databazi :
i:=0;
while i<=TableExportDat.FieldCount-1 do begin
if FindField(TableExportDat.Fields[i].FieldName)<>nil then
TableExportDat.Fields[i].AsVariant:=FieldByName
(TableExportDat.Fields[i].FieldName).AsVariant;
inc(i);
end;
TableExportDat.Post;
Pokud to chces drzet v pameti, misto TableExportDat bych asi pouzil nejaky
record
RecZaznam:record
PoleNazvu: array[1..50] of pchar;
PolePolozek: array[1..50] of pchar;
end;
a do nej bych to cpal.
> Zdravim,
> Jsem zacatecnik v delphi asi tydeni lamer. :))
> Mam dotaz jak si ulozim jeden zaznam z TTable do promenne?
>
> Hledal jsem neco jako:
> type
> rec = record of Table1;
> end;
>
> var
> zaznam : rec;
> end;
>
> Ale neuspel jsem.
>
> Mate nekdo nejake elagantni reseni. Nechce se mi deklarovat a vypisovat
vsechny fields.
> Diky a jsem s pozdravem.
> Michal David
>
> P.S. Vite nekdo o konferenci pro uplne zacatecniky?
>
>
>
>Popis MS-SQL
[*] lumir.delphi(zv)post(tec)cz - 21.4.2000 04:29:52
Ahoj ve spolek,
zhanim nejakou publikaci nebo lepe receno popis SQL jazyka pro MS-SQL server ve forme souboru, ktery bych si mohl ztahnout free z netu nebo nekdo poslat.
Predem dekuji za kazdou radu nebo primo tu dokumentaci :o)
Lumir.
Ma adr. je LumirKaras(zv)Yahoo.com
QReport a skladany papir
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 21.4.2000 06:25:36
Zdravim,
problem je mozna v tom , ze skladany papir (tabelacni papir) byva jinych
rozmeru nez A4 a tvoje tiskarna o tom nevi. Je treba jehlickove tiskarne
rici - nekdy hardverove jindy softwarove (ale ne pres Win), ze tisknes na
jiny format. Napr pro jehl. tiskarnu Panasonic KX-P2130 existuje program,
ktery to nastavuje.
U A4 - volne listy - proste reknes "Odstrankuj" a je to v pohode a u
tabelacniho papiru to jaksi nejde.
Pavel
>
>
> Ahoj
>
> D3 C/S, QR 2.0k, epson LQ 1170
>
> Pokud tisknu nekolik stranek za sebou zacne se posouvat hlavicka stranky
tak, ze
> uz pri 4 strance je v perforaci.
> Zkousel jsem nastavit na tiskarne skladany papir - nepomohlo.
> V QR jsem nastavil delku papiru na 305mm - taky nepomohlo
>
> Na lejzrovce je vse v poradku. Takze to bude nekde v jehlickove tiskarne a
> skladanem papiru.
>
> Nevite jak na to ?
>
> Milan
>
>Popis MS-SQL
[*] Ren� Otisk - 21.4.2000 07:08:33
Hi,
Primo u MS SQL serveru jest soubor SQLBOL.chm a helpsql.hlp. Z nich a z
konference jsem cerpal do vycerpani...
Sroub
> Ahoj ve spolek,
>
> zhanim nejakou publikaci nebo lepe receno popis SQL jazyka pro MS-SQL
server ve forme souboru, ktery bych si mohl ztahnout free z netu nebo nekdo
poslat.
>
> Predem dekuji za kazdou radu nebo primo tu dokumentaci :o)
>
> Lumir.
>
> Ma adr. je LumirKaras(zv)Yahoo.com
Datum a cas v dobe prekladu
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 21.4.2000 07:21:30
Cosi jsem videl na
http://www.festra.com/eng/index.html Date and time of creation/modification
of a file
Pavel
> A co zobrazit datum vytvoreni exe souboru?
> Vaclav Sazima
>
> danikonf(zv)atlas(tec)cz wrote:
> >
> > Zdravim,
> >
> > potreboval bych, aby se mi v aplikaci zobrazoval datum, pripadne cas
(stacilo by mi to i jako string), kdy byl projekt prelozen. Zkousel jsem
najit nejakou direktivu prekladace, ale na nic jsem nenarazil. Vite nekdo,
jak to resit?
> >
> > (Pracuji s D5.)
> >
> > Diky moc za pripadnou radu, s pranim hezkeho dne
> >
> > Daniel Martinec
>ADO (Adonis) a export
[*] =?utf-8?Q?Miroslav_=C4=8Cipel?= <Miroslav.Cipel(zv)oku-tu(tec)cz> - 21.4.2000 07:24:49
je nutne mit nainstalovany Excel ?
M.
----- Original Message -----
From: "Erik Salaj" <winsoft(zv)napri.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, April 20, 2000 5:15 PM
Subject: Re: ADO (Adonis) a export
> > resim export jakehokoliv RecordSetu do jineho zdroje (napr.
> > DBF, Excel, Paradox ...) pomoci ADO.
>
> Ak pouzivas JetEngine, potom staci vykonat jeden SQL prikaz:
>
> // export do Excel-u:
> ADODatabase.ExecSQL('SELECT * INTO MySheet IN "c:\MyFile.xls" "Excel
8.0;"
> FROM MyTable');
>
.
.
Win32 API Examples...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 21.4.2000 07:43:28
Ahoj,
ma nekdo tip na Delphi priklady programovani
ve Win32 API ?
Diky
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Tisk DOC,RTF ve Wordu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.4.2000 07:53:45
Ahoj,
potreboval bych, prosim, poradit. Nemate, prosim, nekdo priklad, jak vyvolat
v Delphi (3) tisk existujiciho dokumentu (dokument neni vytvoren programem v
Delphi) prostrednictvim Wordu. Potrebuji tisknout DOC, RTF primo pres WORD a
to tak, ze bych si jeste zvolil i tiskarnu. Uvazoval jsem napriklad o
prikazu v makru (WordBasic.FilePrint) ale nevim jak to udelat (jak zadat
tiskarnu ze seznamu tiskaren). Nejaky funkci priklad by mi pomohl. Nebo
napad...
Diky
Jaro B.
P.S. RTF bych mozna mohl tisknout z RICHEDITU ale vse potrebuji na pozadi a
bez editace (i bez preview)Tisk DOC,RTF ve Wordu
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 21.4.2000 08:18:46
> potreboval bych, prosim, poradit. Nemate, prosim, nekdo priklad, jak
vyvolat
> v Delphi (3) tisk existujiciho dokumentu (dokument neni vytvoren programem
v
> Delphi) prostrednictvim Wordu. Potrebuji tisknout DOC, RTF primo pres WORD
a
> to tak, ze bych si jeste zvolil i tiskarnu. Uvazoval jsem napriklad o
> prikazu v makru (WordBasic.FilePrint) ale nevim jak to udelat (jak zadat
> tiskarnu ze seznamu tiskaren). Nejaky funkci priklad by mi pomohl. Nebo
> napad...
Priklad nemam, bo jsem to zatim nepotreboval, ale udelal bych to pres OLE.
V Delphi si udelam OLEObjekt jako Variant, zavolam Word, otevru v nem
soubor a tisk by mohl jit pres OLEObjekt.FilePrint. Seznam tiskaren systemu
se da zjistit v Delphi, stejny seznam bude mit k dispozici i Word a pak by
se mu mela dat vnutit i tiskarna, asi pres OLEObjekt.FilePrintSetup.Printer
nebo tak nejak. Blizsi informace budou v MSDN.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* cellular : +420 604 23 83 29
* e-mail : cerny(zv)atlascon(tec)cz
* private : cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************PChar
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 21.4.2000 08:21:38
> Skus pozriet do RxLib na funkciu ExtractWord,... z StrUtils
No jo, ale vstupem je pro tuhle funkci string a ja mam PChar.MDI aplikace - mizejici ikonky formulare
[*] delphi(zv)zas-me(tec)cz - 21.4.2000 8:23:02
Dobry den,
mam takovy problem s MDI aplikaci: pri prepinani mezi otevrenymi okny
vetsinou zmizi ikonky pro minimalizaci, maximalizaci a zavreni okna.
Klavesova zkratka Ctrl+F4 ale normalne funguje a okno zavre. Program je
napsany v Delphi 5. Prosim nesetkal jste se s tim nekdo a nevite, jak to
odstranit? Mne by to az tak nevadilo, ale uzivatele to mate...
Diky, preji pekny den.
Karel Rys
QReport a skladany papir
[*] delphi(zv)zas-me(tec)cz - 21.4.2000 8:26:38
Tu delku stranky asi bude treba nastavit radeji primo ve Windows v ovladaci
tiskarny, alespon mne to pomohlo. Presna delka myslim je 304,8 mm. (A krome
toho stahnout nejnovejsi ovladac, protoze ten z Windows 95 obcas spatne
posune papir uvnitr sestavy.)
V QuickReport je myslim treba krome delky papiru take nastavit format na
Custom.
Karel Rys
>D3 C/S, QR 2.0k, epson LQ 1170
>
>Pokud tisknu nekolik stranek za sebou zacne se posouvat hlavicka stranky
tak, ze
>uz pri 4 strance je v perforaci.
>Zkousel jsem nastavit na tiskarne skladany papir - nepomohlo.
>V QR jsem nastavil delku papiru na 305mm - taky nepomohlo
dlzka SQL prikazu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.4.2000 08:28:59
Haj hou!
nemam zrovna po ruce dokumentaci, ale je to bud 32 nebo 64 kB.
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
> Je dane nejake maximum znakov na jeden prikaz SQL pre IB ?
Zachyceni spousteni aplikace
[*] delphi(zv)zas-me(tec)cz - 21.4.2000 8:28:28
Dival jsem se na to, dik; elegantni metoda, vyzkousim ji. Opravdu se to dela
takhle? Prijde mi to celkem nebezpecne.
Karel Rys
>Ahoj,
>
>pokud si nainstalujes relativne novy virus PrettyPart, tak poznas, jak se
to
>ma delat. :-) Ale vazne. Na Zive se o tomto psalo a byl popsan i zpusob,
jak
>toho dosahnout prave v souvislosti s timto virem. Zkus si to tam najit
(hledej
>PrettyPark).
>
>Slavek
>
>> mohl by mi nekdo poradit, jak napsat program, ktery zachyti jakekoliv
>> spousteni jinych aplikaci (jako to delaji treba antiviry)?Udalosti u dynamicky vytvorenych komponent
[*] Tom� Fr�ba - 21.4.2000 08:29:17
Preji krasny den a tazi se:
Jak obsluhovat udalosti u dynamicky vytvorenych komponent?
Vsem predem dekuji za odpoved.QReport a skladany papir
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 21.4.2000 08:33:17
> > Zkousel jsem nastavit na tiskarne skladany papir - nepomohlo.
> > V QR jsem nastavil delku papiru na 305mm - taky nepomohlo
> >
> > Na lejzrovce je vse v poradku. Takze to bude nekde v
> jehlickove tiskarne a
> > skladanem papiru.
> >
> > Nevite jak na to ?
pokud vim, je to jen o spravnem nastaveni delky papiru,
nejlepe metodou pokus - omyl s postupnou konvergenci
ke spravnemu cislu. Pokud to sedi i po 10 strankach bez meritelneho
odliseni, tak uz je to asi v pohode.
Tomy
-- Jan Tomsa (Tomy) tomsa(zv)notia(tec)cz
-- Notia Informacni Systemy s.r.o., V Olsinach 709/45, 100 00 Praha
-- TEL +42-02-67313764 FAX +42-02-67313752 http://www.notia(tec)cz
MDI aplikace - mizejici ikonky formulare
[*] Ren� Otisk - 21.4.2000 08:55:44
Hi,
Mne tohle delalo v D3. Mel jsem v procedure UpdateMenuItems nejake volani
(ted uz si nevzpomenu co), ktere mi zpusobovalo, nebo jsem si to aspon
myslel, nize uvedene problemy...
Sroub
> Dobry den,
>
> mam takovy problem s MDI aplikaci: pri prepinani mezi otevrenymi okny
> vetsinou zmizi ikonky pro minimalizaci, maximalizaci a zavreni okna.
> Klavesova zkratka Ctrl+F4 ale normalne funguje a okno zavre. Program je
> napsany v Delphi 5. Prosim nesetkal jste se s tim nekdo a nevite, jak to
> odstranit? Mne by to az tak nevadilo, ale uzivatele to mate...
>
> Diky, preji pekny den.
>
> Karel Rys
Potlacen� ukoncen� aplikace
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.4.2000 08:56:32
Podivej se na udalost OnClose a predevsim na OnCloseQuery.
Das-li toto
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := false;
end;
Taxe program nikdy nezavre... ale doporucuji reagovat
na ukonceni Windows (WM_QUERYENDSESSION)
> ----------
> Od: Daniel Krej> ��[SMTP:fredycrueger(zv)volny(tec)cz]
>
> Potreboval bych potlacit ukoncen> � aplikace pri stisku Alt+F4, ostatni zkratky jsem jiz vyrusil pomoci nedavno uvadeneho postupu s procedurou SystemParametersInfo, ale na tu Alt+F4 to nepusobi, tak pokud nekdo tusite, tak prosim pomozte.
> PChar
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.4.2000 09:03:11
Ja to tedy nestudoval, ale pretypovat PChar
na string a opacne neni snad takovy problem
(pokud Ti to Tvuj kod nejak vyrazne nezpomali)
var
P : PChar;
S : string;
begin
S:='Pokus'
P:=PChar(S);
S:=StrPas(P);
end;
> ----------
> Od: Krayzel Libor[SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl> �no: 21. dubna 2000 8:21
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: PChar
>
> > Skus pozriet do RxLib na funkciu ExtractWord,... z StrUtils
>
> No jo, ale vstupem je pro tuhle funkci string a ja mam PChar.
> USB
[*] Jiri Cap <cap(zv)fsih.cvut(tec)cz> - 21.4.2000 09:05:27
Zdravim delphisty,
nema nekdo z Vas zkusenosti s obsluhou USB portu?
D4Std/W95
Predem diky
Jiri Cap
ADO (Adonis) a export
[*] DELPHI <DELPHI(zv)dingo(tec)cz> - 21.4.2000 07:07:55 gmt
> > resim export jakehokoliv RecordSetu do jineho zdroje
(napr.
> > DBF, Excel, Paradox ...) pomoci ADO.
> Ak pouzivas JetEngine...
JetEnginem se dostanu k lokalnim tabulkam a k Accessu,
ale ja potrubuji vytahovat vytahovat data timto zpusobem
i z MS SQL7 a ORACLU (pouzivam OLE DB Providery pro ne
urcene).
Navic to potrebuju provadet na strane klienta, kde je jen
MSDAC (u Oraclu jeste Oracle client), takze nemuzu vyuzit
(alespon si to myslim) napr. export, ktery umoznuje MSSQL.
Zatim jsem na nic kloudneho jeste neprisel.
Bob
HTTPS
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 21.4.2000 09:23:39
Zdravim ,
nevite nekdo o nejakych komponentach pro realizaci www serveru s podporou
HTTPS ? a take https klienta ?Win32 API Examples...
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.4.2000 09:39:53
Zkusil bych UDDF
http://www.gnomehome.demon.nl/uddf/index.htm
Dobra.> ----------
> Od: Fryz, Zdenek[SMTP:fryz(zv)dcb(tec)cz]
>
> ma nekdo tip na Delphi priklady programovani
> ve Win32 API ?
> HTTPS
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 21.4.2000 09:50:30
Hola,
tak komponenty asi primo ne, kdyz tak nova
verze Pietteho Internet Suite obsahuje jakysi
nastin servriku, no nicmene, je treba se tomu
vice venovat.
Pokud Ti staci hotovy servrik, zkus ws.pinknet(tec)cz .
Pokud Ti staci hotovy obyc klient zkus IE. :-)
Martin
----- Original Message -----
> Zdravim ,
> nevite nekdo o nejakych komponentach pro realizaci www serveru s podporou
> HTTPS ? a take https klienta ?
PChar
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 21.4.2000 10:03:00
Ja bych asi radeji pouzil StrPas a StrPCopy.
PChar je totiz null terminated retezec, coz se o stringu v pascalu asi rict neda.
S pozdravem Miki
-----Original Message-----
From: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Sent: Friday, April 21, 2000 9:03 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: PChar
Ja to tedy nestudoval, ale pretypovat PChar
na string a opacne neni snad takovy problem
(pokud Ti to Tvuj kod nejak vyrazne nezpomali)
var
P : PChar;
S : string;
begin
S:='Pokus'
P:=PChar(S);
S:=StrPas(P);
end;
> Zachyceni spousteni aplikace
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 21.4.2000 10:09:45
Mne se zda tato metoda trochu neprijemna. Ne vzdy je moznost zapisovat do registry ( bezdiskov� stanice ....),
a navic je potreba z me aplikace spoustet ten pozadovany proces, pokud je povolen. Uz to muze prinest komplikace.
Na internetu se objevil program BlackBoxII, jehoz autor resil neco podobneho - a v Delphi. Po spusteni aplikace
ji zalogoval a v pripade, ze bylo jeji spusteni zakazano, tak vyzval k jejimu korektnimu ukonceni. Pokud se
tak nestalo, tak ji po 1 minute odstrelil.
Po dotazu, jak zjistit spusteni aplikace mi odpovedel, ze pomoci odchytavani zprav .
Funkce SetWindowsHookEx z API.
Bohuzel tech zprav chodi prilis mnoho a nepodarilo se mi zjistit, ktera je ta konkretni pri spusteni noveho
tasku.
Mate nekdo nejaky tip ?
S pozdravem Miki
-----Original Message-----
From: delphi(zv)zas-me(tec)cz [SMTP:delphi(zv)zas-me(tec)cz]
Sent: Friday, April 21, 2000 8:28 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re(2x): Zachyceni spousteni aplikace
Dival jsem se na to, dik; elegantni metoda, vyzkousim ji. Opravdu se to dela
takhle? Prijde mi to celkem nebezpecne.
Karel Rys
>Ahoj,
>
>pokud si nainstalujes relativne novy virus PrettyPart, tak poznas, jak se
to
>ma delat. :-) Ale vazne. Na Zive se o tomto psalo a byl popsan i zpusob,
jak
>toho dosahnout prave v souvislosti s timto virem. Zkus si to tam najit
(hledej
>PrettyPark).
>
>Slavek
>
>> mohl by mi nekdo poradit, jak napsat program, ktery zachyti jakekoliv
>> spousteni jinych aplikaci (jako to delaji treba antiviry)?Udalosti u dynamicky vytvorenych komponent
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.4.2000 10:14:38
Udalosti musis mit predem napsane jako procedury a musi mit stejne formalni parametry jako ty vytvarene. Pak provedes pouhe prirazeni napr:
Button1.OnClick := MyOnClick;
Jan Fiala
----- Original Message -----
From: Tom� Fr�ba
To: Delphi konference Preji krasny den a tazi se:
Jak obsluhovat udalosti u dynamicky vytvorenych komponent?
Vsem predem dekuji za odpoved.Udalosti u dynamicky vytvorenych komponent
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 21.4.2000 10:52:33
Nejak takto:
TForm1 = class(TForm)
....
public
procedure klikni(Sender:TObject);
procedure Vytvorbutton;
end;
proceudre TForm1.vytvorbutton;
begin
b := tbutton.create(self);
b.parent := self;
b.onclick := klikni;
end;
procedure TForm1.klikni(sender:TObject);
begin
writeln("ahoj");
end;
-----Original Message-----
From: Tom� Fr�ba <fryba(zv)volny(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Date: 21. dubna 2000 9:56
Subject: Udalosti u dynamicky vytvorenych komponent
Preji krasny den a tazi se:
Jak obsluhovat udalosti u dynamicky vytvorenych komponent?
Vsem predem dekuji za odpoved.
MDI aplikace - mizejici ikonky formulare
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 21.4.2000 10:56:24
>vetsinou zmizi ikonky pro minimalizaci, maximalizaci a zavreni okna.
Dokazes to opakovane navodit?
Meli jsme podobny problem. Pri startu aplikace se podle
ini souboru otviraly child okna a pri tom se nastavoval jejich WindowState.
Stacilo posunout nastaveni WindowState za misto kdy je
MainForm vytvoren a _zobrazen_.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
www.stereo(tec)cz
PChar
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.4.2000 11:05:42
Obavam se, ze jsem necemu neporozumnel.
Tim, ze napisu P:=PChar(S); prave provedu
pretypovani pascalovskeho stringu, tedy retezce
znaku, kde nulty znak udava jeho delku, prave
na null-terminated retzec, kde jiz nulty znak
je soucasti retezce a je tedy vse OK.
> ----------
> Od: Radim Brozek[SMTP:radim.brozek(zv)berit(tec)cz]
>
> Ja bych asi radeji pouzil StrPas a StrPCopy.
> PChar je totiz null terminated retezec,
>
********* Navic, PChar je IMHO jen ukazatel na nej :)
> coz se o stringu v pascalu asi rict neda.
>
>
> -----Original Message-----
> From: Mal> � Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
>
> Ja to tedy nestudoval, ale pretypovat PChar
> na string a opacne neni snad takovy problem
> (pokud Ti to Tvuj kod nejak vyrazne nezpomali)
>
> var
> P : PChar;
> S : string;
> begin
> S:='Pokus'
> P:=PChar(S);
> S:=StrPas(P);
> end;
>
> >
> Textovy soubor
[*] Ji�� Kr�l jr. - 21.4.2000 12:11:35
resim nasledujici trivialitu:
chci zapisovat do textoveho souboru
if existuje pridat radek na konec
if neexistuje vytvorit ho a zapsat radek
je to kravina ale zatim mam jen sbirku I/O erroru
zatimni zdrojak:
var f:textfile;
begin
assignfile(f,'c:\log.txt');
FileMode:=2;
try Reset(F);
except on e:exception
do rewrite(f)
end;
s:='blabla';
writeln(f,s);
CloseFile(F);
diky
JK
Prosim o radu
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 21.4.2000 12:14:37
Pouziju-li funkci MessageDlg("Zmeneno', mtConfirmation, mbYesNoCancel, 0) a
spustim takovyto program na neceskych Windows, odkud se berou ty stringy pro
tlacitka (ANo, ne storno)?==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Zjisteni jmena stanice klienta v DCOM
[*] Marian Jonas <marian.jonas(zv)volny(tec)cz> - 21.4.2000 12:17:16
Ahoj vsichni.
Z klienta se prihlasuji na COM objekt na jinem pocitaci. Potrebuji uvnitr objektu zjistit jmeno klientskeho pocitace. CoQueryClientBlanket zjisti jen jmeno uzivatele. Neznate nejaky figl ?
Marian Jonas
Prosim o radu
[*] Bc. Libor Filip <filip(zv)agrokonzulta(tec)cz> - 21.4.2000 12:23:29
Stringy se berou ze souboru consts.pas .
Soubor lze upravit, znovu prekompilovat a pak by to melo byt cesky.
Osobne mi to funguje.
-----P�vodn� zpr�va-----
Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odesl�no: 21. dubna 2000 12:15
Komu: '*** Delphi'
P�edm�t: Prosim o radu
Pouziju-li funkci MessageDlg("Zmeneno', mtConfirmation, mbYesNoCancel, 0) a
spustim takovyto program na neceskych Windows, odkud se berou ty stringy pro
tlacitka (ANo, ne storno)?==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Prosim o radu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.4.2000 12:25:30
Ahoj,
jsou ulozeny v unite consts.pas (v D1 a D2
je to myslim v nejakem *.RES souboru), resenim
je pouzit misto MessgaeDlg funkci
Application.MessageBox.
Dobra.
> ----------
> Od: Krayzel Libor[SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
>
> Pouziju-li funkci MessageDlg("Zmeneno', mtConfirmation, mbYesNoCancel, 0) a
> spustim takovyto program na neceskych Windows, odkud se berou ty stringy pro
> tlacitka (ANo, ne storno)?
>
> Textovy soubor
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.4.2000 12:29:35
Posilam kousek kodu z Borland Pascalu...
var F: Text;
...
{$I-}
Assign(F, JmenoSouboru);
Append(F);
if IOResult<>0 then
begin
Rewrite(F);
if IOResult<>0 then
pError('Soubor nelze vytvorit');
end;
{$I+}
WriteLn(F, S);
Close(F);
Takto mi to fungovalo...
> ----------
> Od: Ji> �� Kr�l jr.[SMTP:admin(zv)printo(tec)cz]
>
> resim nasledujici trivialitu:
>
> chci zapisovat do textoveho souboru
>
> if existuje pridat radek na konec
> if neexistuje vytvorit ho a zapsat radek
>
> je to kravina ale zatim mam jen sbirku I/O erroru
>
> zatimni zdrojak:
>
> var f:textfile;
> begin
> assignfile(f,'c:\log.txt');
> FileMode:=2;
> try Reset(F);
> except on e:exception
> do rewrite(f)
> end;
> s:='blabla';
> writeln(f,s);
> CloseFile(F);
> diky
>
> JK
>
> StoneBirds Software download PROBLEM.
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 21.4.2000 12:41:52
Zdravim.
Komu sa podarilo stiahnut tieto experty pre D5 , nech sa mi prosim ozve.
Compilation Date and Time expert v.2.0
a
Project Time Log expert v.1.6.3
Dakujem.
roland.PHP vs. Interbase tutorial
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.4.2000 12:42:50
Vazeni pratele PHP a InterBase
Nyni mate k dispozici interaktivni tutorial pro instalaci, konfiguraci a
pouziti serveru Apache, PHP3 a InterBase.
http://www.synectics.co.za/php3/tutorial/tutorial.php3
Hodne zdaru
Pavel Cisar
Borland s.r.o.
-----------------
As I promised, I have written up a tutorial for PHP3 with Apache and
Interbase. There are 3 sections not finished, but I thought I would
publish the URL now, and get any feedback. This is an interactive
tutorial(written with PHP3/Interbase of course), so please feel free to
add your contributions.
http://www.synectics.co.za/php3/tutorial/tutorial.php3
Vince
--
Vince Duggan
Synectics Software
Inprise C/S Business Partner
South Africa
http://www.synectics.co.za
mailto:vince(zv)synectics.co.za
Jak importovat paradox tabulku do database pod Int
[*] "ing. Igor Vodi�ka" <vodicka(zv)sagit(tec)cz> - 21.4.2000 12:53:01
Ahoj vsichni!
Delam aplikaci, ktera je postavena na komponentach InterBase eXpress. Nevim si rady s jednim problemem.
Mam dve tabulky, obe maji stejnou strukturu a indexy. Jedna je v databazi na serveru a druha lokalni paradoxovska. Potrebuji zanamy z lokalni tabulky dostat do tabulky na serveru stylem appendupdate. Pouzivam na to komponentu BatchMove.
Do vlastnosti Source jsem dal komponentu TTable reprezentujici paradox tabulku, do vlastnosti Destination komponentu TTable, reprezentujici tabulku v databazi InterBase, ketra je napojena na komponentu TDatabase. Vlastnost Mode je nastavena na batAppendUpdate. Metoda Execute se provede normalne (bezi SQLkurzor, akce trva urcity cas). Dokonce vlastnost MovedCount mi oznami kolik zaznamu se preneslo, ale ...
Kdyz si tabulku prohlizim v gridu (vsechno je v jednom programu) zaznamy tam nejsou, ani kdyz si tabulku prohlizim v DBexploreru. Grid je napojen na TIBTable a ta na TIBDatabase tak jako ostatni tabulky v databazi. Cilova tabulka je v programu, v datovem modulu na definovana dvakrat jednou pomoci komponenty TIBTable a jednou TTable, to proto ze pozivam BatchMove.
Nerozumim tomu, proc se to tak chova, nevim si rady.
Poradte.
Ahoj Igor Vodicka.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.134 / Virov� b�ze: 63 - datum vyd�n�: 20.3.2000
Nezobrazi se MessageDlg
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 21.4.2000 12:56:06
Zdravim !
Narazil jsem na problem. Nezobrazuje se mi nasledujici MessageDlg i kdyz pri
trasovani timto radkem projde. Absolutne tomu nerozumim:
...
if ConnectionOk then
begin
SendDataToServer(inttostr(SV_Stop));
MessageDlg(Msg2, mtInformation, [mbOK], 0); // TADY NIC NEZOBRAZI
!!!!!
end
else MessageDlg(Msg, mtWarning, [mbOK], 0); // TADY ? KDO VI ???
...
Tyka se D4, NT 4.0 Workstation.
Nebo ze by nejaka direktiva kompilatoru ?
DEKUJI PREDEM !
Martin Dietl
Textovy soubor
[*] Petr Kandera <p_kandera(zv)tanger(tec)cz> - 21.4.2000 13:05:50
----- Original Message -----
From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 21, 2000 12:11 PM
Subject: Textovy soubor
> resim nasledujici trivialitu:
>
> chci zapisovat do textoveho souboru
>
> if existuje pridat radek na konec
> if neexistuje vytvorit ho a zapsat radek
>
> je to kravina ale zatim mam jen sbirku I/O erroru
>
> zatimni zdrojak:
>
> var f:textfile;
> begin
> assignfile(f,'c:\log.txt');
if FileExists('c:\log.txt') then Append(f)
else Rewrite(f);
> s:='blabla';
> writeln(f,s);
> CloseFile(F);
...treba takto :-) (Hlavne jde o ten Append - Reset otvira soubor od
zacatku)
Petr Kandera
<p_kandera(zv)tanger(tec)cz>
Prosim o radu
[*] radomir.chwalek(zv)rtscs(tec)cz - 21.4.2000 13:12:40
osim o radu
>
> Stringy se berou ze souboru consts.pas .
> Soubor lze upravit, znovu prekompilovat a pak by to melo byt cesky.
> Osobne mi to funguje.
Ahoj,
nevim, jak v jinych verzich Delphi, ale ve 4.0 a 5.0 to vubec neni pravda
(alespon co se tyce dialogu).
Lepsi je pouzit API fci MessageBox, ktera si podle meho taha popisy tlacitek
z operacniho systemu.
Dale bych doporucoval se podivat na MessageBoxEx.
Viz hlp:
The MessageBoxEx function creates, displays, and operates a message box. The
message box contains an application-defined message and title, plus any
combination of predefined icons and push buttons. The wLanguageId parameter
specifies which set of language resources is used for the predefined push
buttons. For full descriptions of the other parameters of MessageBoxEx, see
MessageBox .
Radek
>
> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 21. dubna 2000 12:15
> Komu: '*** Delphi'
> P�edm�t: Prosim o radu
>
> Pouziju-li funkci MessageDlg("Zmeneno', mtConfirmation,
> mbYesNoCancel, 0) a
> spustim takovyto program na neceskych Windows, odkud se berou
> ty stringy pro
> tlacitka (ANo, ne storno)?
>
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================
> "Oboustranny tisk"
[*] Brabec Tom� <Tomas.Brabec(zv)pvt(tec)cz> - 21.4.2000 13:12:10
Ahoj,
mam problem s tiskem na oboustranne tiskarne. Sestava je vytvorena v
QuickReportu verze 2.0k.
Ve vlastnostech tiskarny mame nastaveny vychozi tisk oboustranne po delce,
orientace na vysku.
Kdyz poslu ze SW sestavu na oboustranou tiskarnu, suda stranka je vzhuru
nohama. Pokud poslu na tutez tiskarnu dokument z Wordu, tisk je spravny.
Neresil nekdo z vas podobny problem ?
Dik
Delphi 3.02 CS, SP 4.00, W-NT 4.00
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
Textovy soubor
[*] Ji�� Kr�l jr. - 21.4.2000 13:31:49
jo jenze f:textfile je po reset(f) readonly...
Textovy soubor
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.4.2000 13:38:00
Ahoj,
jaky limit radku ma stringlist?
Diky
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Tomas Bihary [SMTP:tomas(zv)wige-mic(tec)cz]
> Odesl�no: 21. IV 2000 14:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Textovy soubor
>
> S pouzitim TStringList by to slo zcela jednoduse:
>
> with TStringList.Create do
> if FileExist('c:\aaa.txt')
> then LoadFromFile('c:\aaa.txt');
> Add('radek');
> SaveToFile('c:\aaa.txt');
> Free;
> end;
>
> Ahoj Tomas Bihary
> ----- Original Message -----
> From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, April 21, 2000 11:11 AM
> Subject: Textovy soubor
>
>
> > resim nasledujici trivialitu:
> >
> > chci zapisovat do textoveho souboru
> >
> > if existuje pridat radek na konec
> > if neexistuje vytvorit ho a zapsat radek
> >
> > je to kravina ale zatim mam jen sbirku I/O erroru
> >
> > zatimni zdrojak:
> >
> > var f:textfile;
> > begin
> > assignfile(f,'c:\log.txt');
> > FileMode:=2;
> > try Reset(F);
> > except on e:exception
> > do rewrite(f)
> > end;
> > s:='blabla';
> > writeln(f,s);
> > CloseFile(F);
> > diky
> >
> > JK
> >
> zobrazeni prubehu vypoctu
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 21.4.2000 14:00:22
Ahoj,
na MS SQL7 mam ulozenou proceduru kterou spoustim pomoci ADOCommand z
ADOExpresu ta procedura bezi as 10 vterin. Je mozne nejak zobrazit prubeh
vypoctu napr. v procentech ?
M.
Prosim o radu
[*] Ren� Otisk - 21.4.2000 14:01:38
Zkus pouzit API funkci int MessageBox(
HWND hWnd, // handle of owner window
LPCTSTR lpText, // address of text in message box
LPCTSTR lpCaption, // address of title of message box
UINT uType // style of message box
);
viz WIN32.hlp
> Pouziju-li funkci MessageDlg("Zmeneno', mtConfirmation, mbYesNoCancel, 0)
a
> spustim takovyto program na neceskych Windows, odkud se berou ty stringy
pro
> tlacitka (ANo, ne storno)?
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ==============================================Textovy soubor
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 21.4.2000 13:24:40
S pouzitim TStringList by to slo zcela jednoduse:
with TStringList.Create do
if FileExist('c:\aaa.txt')
then LoadFromFile('c:\aaa.txt');
Add('radek');
SaveToFile('c:\aaa.txt');
Free;
end;
Ahoj Tomas Bihary
----- Original Message -----
From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 21, 2000 11:11 AM
Subject: Textovy soubor
> resim nasledujici trivialitu:
>
> chci zapisovat do textoveho souboru
>
> if existuje pridat radek na konec
> if neexistuje vytvorit ho a zapsat radek
>
> je to kravina ale zatim mam jen sbirku I/O erroru
>
> zatimni zdrojak:
>
> var f:textfile;
> begin
> assignfile(f,'c:\log.txt');
> FileMode:=2;
> try Reset(F);
> except on e:exception
> do rewrite(f)
> end;
> s:='blabla';
> writeln(f,s);
> CloseFile(F);
> diky
>
> JK
>Prosim o radu
[*] L. ZITA <konference(zv)sales(tec)cz> - 21.4.2000 14:30:15
Behalf Of radomir.chwalek(zv)rtscs(tec)cz
> osim o radu
> >
> > Stringy se berou ze souboru consts.pas .
> > Soubor lze upravit, znovu prekompilovat a pak by to melo byt cesky.
> > Osobne mi to funguje.
>
> Ahoj,
>
> nevim, jak v jinych verzich Delphi, ale ve 4.0 a 5.0 to vubec neni pravda
> (alespon co se tyce dialogu).
>
Mne to funguje.
Postup : consts.pas zkopiruju k zdrojakum projektu, upravim si hlasky tak
jak pro dany projekt potrebuju,
pridam consts.pas k projektu a POZOR je nutne ho rucne v *.dpr presunout na
PRVNI misto a uvadet ho na prvnim miste v sekci uses.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Internal Error C1127
[*] psojka(zv)els.ln.skoda(tec)cz - 21.4.2000 13:55:02
Zdravim.
Nevite nekdo nahodou co znamena chyba
a co by se proti tomu dalo delat?
[Fatal error] Unit.pas(453): Internal Error C1127
Objevuje se na radku, kde je pouze
end; // konec funkce
Predem diky
Ing. Peter Sojka
D4prof W95
TDateTimeField.DisplayFormat pro zobrazeni ms
[*] Tom� Br�dle������i�^����? - 21.4.2000 15:28:13
Zdravim,
nevi prosim nekdo jaky dat v TDateTimeField.DisplayFormat, aby se zobrazily
i milisekundy ?
Diky
Tomas
t.bradle(zv)pvtnet(tec)cz
Tucne pismo v MessageBox
[*] martin.falta(zv)obi.de - 21.4.2000 14:28:02
Ahoj,
pro zobrazeni zprav pouzivam API funkci MessageBox a potreboval bych, aby se mi
urcita cast textu zobrazila tucnym pismem nebo jinou barvou nez cernou. Nevite
nekdo, jak na to?
Mam D3 C/S, Win98/NT
Predem diky.
Martin
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Seznam MS-SQL serveru
[*] Erik Salaj <winsoft(zv)napri.sk> - 21.4.2000 15:30:31
> > > Nev�te jak ziskat seznam MS-SQL serveru v siti?
> >
> > Napr. pomocou SQL-DMO objektov:
>
> pokud pouziji navrzeny postup, co bude treba sirit spolu s aplikaci,
> aby bezela? Nebude potreba mit na stroji, kde ma bezet tato
> aplikace, nainstalovaneho klienta MS SQL serveru? Nebo by stacil
> MDAC balik?
> (dosud jsem s type libraries nemel nic co do cineni, tak o tom
> nic nevim).
SQL-DMO je sucast MS SQL 7 (aj MSDE), takze MDAC nestaci:
Installing SQL-DMO
All required SQL-DMO components are installed as part of either a Microsoft�
SQL ServerT server or client installation. SQL-DMO is implemented in a
single dynamic-link library (DLL). You may develop SQL-DMO applications on
either a client or a server. When using an OLE Automation controller as a
development platform, such as Microsoft Visual Basic�, no additional files
are required. Application development using C or C++ requires the SQL-DMO
header files.
SQL-DMO sample applications, providing additional reference material for
SQL-DMO application development, are included with SQL Server.
Directory File Description
\Mssql7\Binn Sqldmo.dll DLL implementing SQL-DMO objects.
\Mssql7\Binn\
Resources\xxxx Sqldmo.rll Localized resource file. The resource
directory varies based on the national language of the installed SQL Server
client or server. For example, the directory 1033 is a decimal
representation of the language identifier 0X0409, indicating English, U.S.
Sqldmo.hlp SQL-DMO help file used within the development environment
to provide context sensitive help about SQL-DMO objects, properties and
methods.
\Mssql7\
Devtools\Include Sqldmo.h C/C++ header file containing SQL-DMO member
function prototypes, enumerated data types, and macros.
Sqldmoid.h C/C++ header file containing SQL-DMO interface and class
identifiers.
\Mssql7\Install Sqldmo.sql Transact-SQL script implementing stored
procedures that support SQL-DMO. Installed on server installation only.
\Mssql7\
Devtools\Samples\
Sqldmo ALL Sample applications illustrating SQL-DMO use.
Erik
Seznam MS-SQL serveru
[*] Erik Salaj <winsoft(zv)napri.sk> - 21.4.2000 15:36:43
> > mal by fungovat aj zoznam dostupnych SQL serverov na sieti,
> > u mna na lokalnom pocitaci to ale nezobrazilo nic:
> >
> > with CoApplication_.Create.ListAvailableSQLServers do
> > for i := 1 to Count do
> > ShowMessage('Available SQL server: ' + Item(i));
>
> V cem spociva rozdil mezi obema postupy? To druhe skutecne
> nefunguje dobre, zda se mi, ze se to ridi Windows registry (viz
> podobna diskuse pred par tydny). To prvni by mi vyhovovalo,
> skutecne mi to naslo oba nase SQL servery. Nehrozi nebezpeci,
> ze to najde i neco jineho? A hlavne: v cemze spociva ten rozdil?
Prvy sposob pracuje rovnako ako MS SQL 7 konzola (t.j. zobrazi
vsetky zaregistrovane servery). Druhy mi nefunguje, podla dokumentacie
by mal najst a zobrazit viditelne servery na siet (moj pocitac ale do sieti
pripojeny nemam, tak mozno v tom je problem), pricom tato funkcia
je podporovana iba pre Windows NT.
Erik