Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Blikajici obrazky
[*] Martin Konarik <iss-tr(zv)clnet(tec)cz> - 8.7.1999 12:52:49
[P��loha v souboru: letka.zip]
Chtel jsem poprosit Vas vsechny, kteri jste si "hrali" s pohybem obrazku po formulari (Delphi 3), abyste mi pomohli. Diky rade Romana Vasicka mam x obrazku, ke kterym pristupuji pomoci indexu a ktere "prohanim" po obrazovce. Problem je s jejich blikanim - cim vetsi obrazek a rychlost pohybu, tim vetsi nezadouci blikani.
Slysel jsem, ze se to resi jakymsi swapovanim ci flipovanim obrazovky a ze je k tomu treba vyuzit nejake dalsi komponenty ci jina udelatka. Takova informace me sice jako zacatecnika obohatila, ale stale nevim jak to udelat.
Posilam kratoulinky programek, kde po obrazovce leta 10 poblikavajicich letadelek (a pokud si pridate bitmapu jako pozadi - to teprve zacne blikot) a chtel jsem vas poprosit, jestli byste nekdo nemohl doplnit tento kod o tech par radek, ktere chybi k tomu, aby to neblikalo.
Dekuji
Martin Tower Konarik
zajmovy krouzek vypocetni techniky
Smysluplnost oboru (was : Mistrovstvi v Delphi - v
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 8.7.1999 12:56:30
> Smysluplne by bylo zastavit se a pouzivat SW, ktery jiz dokonale
> splnuje ucel, za kterym byl vytvoren. A je jiz odladen(!).
Tohle je zajimava otazka - odladen!
Kdyz jsem pred mnoha lety programoval ucetnictvi,
bal jsem se, ze mne jednou zavrou. A to slo jenom
o penize; neumim si predstavit tu hruzu programovat
vlaky, letadla nebo medicinu.
Nestesti je podle mne prave v tom "odladen".
Nelibi se mi, je-li verohodnost programu zalozena na tom,
ze uz dlouho nespadnul.
Dokud jsem psal v "holem" pascalu, mohl jsem rici,
ze vim, co mu program dela. Pokud byl v poradku prekladac
(a to taky vzdycky nebyl).
Jakmile pouzivam knihovny (staci i Turbo Vision,
ale dnes (alespon v Delphi) vetsinou :-) Windows),
uz nemuzu analyticky, rozumem, odvodit, ze je muj program spravne.
A i kdyz pominu bugy, stejne neni v mych silach obsahnout
cele chovani tech knihoven (potreboval bych specifikaci, co delaji),
abych vedel, ze se mohu spolehnout na vysledek -
=> viz treba nedavna diskuse o chybach ve vypoctu v dusledku
prenastaveni presnosti koprocesoru, to cele v dusledku 'uses"
jakesi unity.
Prijde mi, ze velka cast toho softwaru, co tu spolecne plodime,
je staveni hradu z pisku. Na neznamych zakladech.
Jako kdyz na vojne novy vykonny praporcik podepisuje
prevzeti rozkradeneho skladu a doufa, ze neprijde kontrola,
nez to preda dalsimu.
Reseni?
Napada mne jedine software+specifikace + certifikat,
ze dela to, co je ve specifikaci. A z takoveho softwaru
a pomoci nej stavet a prekladat dalsi software.
A tu certifikaci a) kdosi nezavisly
b) opravdu analyticky; vim, co delaji
pouzite casti, maji papir na to, ze to opravdu delaji,
a kdyz je pouzivam tak a tak, vysledkem bude to a to.
Je to utopie. A jasne, ze timhle zpusobem by neslo
(nebo slo, ale bylo by to priserne drahe, protoze to
overovani by bylo priserne drahe) produkovat kazdy rok
novou versi.
Ale jinak porad stavime hrady z pisku a sebevetsi pocet
testu nevylouci chybu.
Tom
(dnes filosoficky :-)) Smysluplnost oboru (was : Mistrovstvi v Delphi - v
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 8.7.1999 13:32:56
> -----Original Message-----
> From: Tomas Holan [mailto:HOLAN(zv)ksvi.mff.cuni(tec)cz]
> Sent: Thursday, July 08, 1999 12:57 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Smysluplnost oboru (was : Mistrovstvi v Delphi - vyzva)
>
>
> > Smysluplne by bylo zastavit se a pouzivat SW, ktery jiz dokonale
> > splnuje ucel, za kterym byl vytvoren. A je jiz odladen(!).
>
> Tohle je zajimava otazka - odladen!
>
> Kdyz jsem pred mnoha lety programoval ucetnictvi,
> bal jsem se, ze mne jednou zavrou. A to slo jenom
> o penize; neumim si predstavit tu hruzu programovat
> vlaky, letadla nebo medicinu.
>
> Nestesti je podle mne prave v tom "odladen".
> Nelibi se mi, je-li verohodnost programu zalozena na tom,
> ze uz dlouho nespadnul.
To jsme na tom stejne. Bohuzel je to realita.
A jina skutecnost ani byt nemuze (v dohledne dobe).
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Dotaz na D3Pro
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 08.7.1999 13:38:08
daniel.hrna(zv)vm.sme(tec)cz wrote:
> Mam D3 Prof.
> Uz to tady mozna bylo, ale prosim pomozte mi, chtel bych aby mi na Buttonech
> v MSGDLG a jinde fungovaly misto YES, NO, OK, atd. ceske hlasky treba ANO,
> NE. Urcite se to prepise v nejakem zdrojaku v D3, ale kde a jak.
Ja zkopiruji soubor const.pas k projektu, priradim ho do neho a prepisu si
konstanty jak potrebuji pro konkretni projekt. (Nejenom tlacitka ale i Caption
dialogu a pod.)
(D4 STANDART)
eL..Upper in table
[*] Ale� Kle�ka - 8.7.1999 13:53:10
Ahoj,
nevim presne jak je to u Informixu, ale u oraclovkeho SQL to neni treba
pretypovavat, protoze se to pretypuje automaticky. A pokud by to nefungvalo,
tak zkus pouzit f-ci To_Char.
S pozdravem
Ale� Kle�ka
{ a.klecka(zv)email(tec)cz }
----- Original Message -----
From: Martin Bab�k <M.Babik(zv)mus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, July 08, 1999 11:08 AM
Subject: RE: Upper in table
D�ky to je ono! Asi to nep�jde, ale pro� se nezeptat? Lze tak� n�jak�m
obdobn�m zp�sobem p�ev�st integer na string? M&B
Resource editor pro Win32?
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 8.7.1999 13:05:27
Ahoj,
uz dost davno sa mi podarilo zohnal z I-netu ResourceEditor (16bit,32bit) od Symantecu:
http://www.fortunecity.com/roswell/leehigh/0/resedit.zip (1,77MB)
v starych logoch som objavil linku nan a skusil som ju. Na moje prekvapenie, este tam je :-)
Samozrejme, ze to nie je vsemocne :-(
Jano
-----Original Message-----
From: Zdenek Drvota <drvota(zv)zds(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 8. j�l 1999 10:36
Subject: Resource editor pro Win32?
Ahoj,
zkousel jsem hledat nejaky resource editor pro
Win32 EXE/DLL... (9x), jako byval B.Workshop pro 16bitovky,
ale neuspel jsem. Copak opravdu nic takoveho
neexistuje?
(Potrebuji upravit stringy v jednom cizim programu pro
Win32, je zrejme vytvoren v Borland C++, verzi nevim,
je v nem retezec
"Borland C++ - Copyright 1996 Borland Intl.")
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Detekce modemu
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 8.7.1999 14:14:19
Preji vsem hezky den,
Muze mi nekdo poradit jak co nejspolehliveji detekovat pritomnost modemu ve
Win3.11/95/98/NT ?
Staci jen modem je/neni pripojen ...
Diky
R.Pospisil
Upper in table
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 08.7.1999 14:27:07
M&B
>>> Ale� Kle�ka <aklecka(zv)merlin(tec)cz> 07/08 1:53 >>>
Ahoj,
nevim presne jak je to u Informixu, ale u oraclovkeho SQL to neni treba
pretypovavat, protoze se to pretypuje automaticky. A pokud by to nefungvalo,
tak zkus pouzit f-ci To_Char.
A jak to pou�iji p�i selectu m�l jsem na mysli n�co jako, �e bych pak b�hem toho selectu vybral v�echna ��sla za��naj�c� t�eba na "1" n�co jako "like '1%'. OFFTOPIC - dotaz ohledne laserove tiskarny
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 8.7.1999 14:42:02
Dobry den vsem
U nas se vyskytuje tiskarna "Texas Instruments microWriter Page Printer" pro
kterou se nam nedari sehnat novy toner a tvrzeny valec. Nevite o nejakem
dodavateli?
Diky Pavel Mlynar
WsControl
[*] Santik <santik(zv)pronetix.sk> - 8.7.1999 14:44:26
Ahoj,
nevie niekto nahodou, co robi funkcia WsControl ?
Je to funkcia z wsock32.dll a nie je nikde dokumentovana,
zato hojne pouzivana v ( najma MS) programoch.
Santik
santik(zv)pronetix.sk
Blikajici obrazky
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 8.7.1999 14:52:29
Dival jsem se na tvuj program a musim konstatovat ze cela koncepce zobrazeni
tech letadelek je spatna. A to nemluvim o tom ze jsem si omylem nevybalil
tvou jednu bitmapu a vzhledem k tomu ze vubec nemas osetreny chyby na nil
hodnotu obrazku a jeste to mas v cyklu tak program spadl neskutecnym
zpusobem se zacyklenymi chybovymi hlaskami.
Koncepce nacteni obrazku do komponent TImage a pak hybani s komponentami po
formulari je naprosto scestna - to ti bude vzdycky blikat. Protoze pri
jakekoliv zmene souradnic se nejdrive obnovi podklad a pak se vykresli obsah
TImage.
Takovy ukol se resi tak ze vytvoris objekty TBitmap do kterych nactes sve
bitmapy a tyto bitmapy pak zobrazujes na podklad Canvas (at uz Canvas
formulare nebo canvas nejake bitmapy. Osobne bych doporucoval vsechny typy
letadel dat vedle sebe do jedne bitmapy a pouzit jeden objekt TBitmap. Pak
pro prislusny druh letadla pouzit TBitmap.Canvas.CopyRect. Pokud budes mit
podklad bitmapu tak si musis samozrejme zapamatovat vzdy posledni cast
podkladu a uchovavat si ji v nejake mezibitmape a to pak pouzit pri
prekreslovani.
Proste kratce receno - vsechny zmeny bitmap musis provadet v pameti a az
vysledek placnout na podkladovy Canvas.
Jinak synchronizovat vykreslovani s frekvenci monitoru je ve windows
nerealne. To pak jedine pouzit DirektX ale to je zase uplne o necem jinem.
-----P�vodn� zpr�va-----
Od: Martin Konarik [mailto:iss-tr(zv)clnet(tec)cz]
Odesl�no: 8. �ervence 1999 12:53
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Blikajici obrazky
Chtel jsem poprosit Vas vsechny, kteri jste si "hrali" s pohybem obrazku po
formulari (Delphi 3), abyste mi pomohli. Diky rade Romana Vasicka mam x
obrazku, ke kterym pristupuji pomoci indexu a ktere "prohanim" po obrazovce.
Problem je s jejich blikanim - cim vetsi obrazek a rychlost pohybu, tim
vetsi nezadouci blikani.
Slysel jsem, ze se to resi jakymsi swapovanim ci flipovanim obrazovky a ze
je k tomu treba vyuzit nejake dalsi komponenty ci jina udelatka. Takova
informace me sice jako zacatecnika obohatila, ale stale nevim jak to udelat.
Posilam kratoulinky programek, kde po obrazovce leta 10 poblikavajicich
letadelek (a pokud si pridate bitmapu jako pozadi - to teprve zacne blikot)
a chtel jsem vas poprosit, jestli byste nekdo nemohl doplnit tento kod o
tech par radek, ktere chybi k tomu, aby to neblikalo.
Dekuji
Martin Tower Konarik
zajmovy krouzek vypocetni techniky
Zeme puvodu
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 8.7.1999 14:56:11
Zdravim
Mam dotaz, da se nejakym zpusobem v aplikaci zjistit na koho, je registrovana domena (resp z jake zeme to pristupuju ) z kere pristupuju na internet ale podle podle IP adresy (kdyz neznam domenu)? bo existuje nejaka sluzba vyhledavaci na toto?
Dik moc Pavel Polak
Gulate GUI
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 8.7.1999 15:26:16
Nazdar Robo,
prosim Ta, ake komponenty pouizivas na tvoje gulate GUI prvky?
Nebodaj vlastne? Mohol by som aspon vidiet aspon nejake to demo?
Vlado
> -----Original Message-----
> From: Robert Jendrisak [SMTP:delphi(zv)minv.sk]
> Sent: Friday, July 09, 1999 11:45 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Taka divna otazocka
>
> Robim si taky chutny gulatucky programik.
> Formular kruh mam, aj tlacitka aj image....ale este potrebujem
> combobox...nema niekto poruke?
> Uz mam dost tych hranatych tvarov, idem spat k prirode...
>
> muahahahaha
>
> Werki
Blikajici obrazky
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 8.7.1999 15:36:06
ve form create - form1.doublebuffered:=true;
"zobrazletadla" kreslit na onpaint
a timer ukoncit form1.refresh (pripadne tu cast, kam se bude priste cmarat.)
Pomuze tak?
Mti.
-----P�vodn� zpr�va-----
Chtel jsem poprosit Vas vsechny, kteri jste si "hrali" s pohybem obrazku
po formulari (Delphi 3), abyste mi pomohli. Diky rade Romana Vasicka mam x
obrazku, ke kterym pristupuji pomoci indexu a ktere "prohanim" po obrazovce.
Problem je s jejich blikanim - cim vetsi obrazek a rychlost pohybu, tim
vetsi nezadouci blikani.
Slysel jsem, ze se to resi jakymsi swapovanim ci flipovanim obrazovky a
ze je k tomu treba vyuzit nejake dalsi komponenty ci jina udelatka. Takova
informace me sice jako zacatecnika obohatila, ale stale nevim jak to udelat.
Posilam kratoulinky programek, kde po obrazovce leta 10 poblikavajicich
letadelek (a pokud si pridate bitmapu jako pozadi - to teprve zacne blikot)
a chtel jsem vas poprosit, jestli byste nekdo nemohl doplnit tento kod o
tech par radek, ktere chybi k tomu, aby to neblikalo.
Dekuji
Martin Tower Konarik
zajmovy krouzek vypocetni techniky
Version info podle conditionals defines
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 08.7.1999 16:26:17
Zdravim vsechny.
Mam program ktery kompiluji do dvou verzi (demo s nekterymi omezenimi a
plna verze) dle nastaveni DEMO v conditionals defines.
Rad bych aby ve vyslednem exe byla ruzna verze souboru nebo treba
poznamka (Comments) podle nastaven� conditionals defines.
neco jako
{$IFDEF DEMO}
Comments := 'DEMOVERZE';
{$ENDIF}
{$IFNDEF DEMO}
Comments := 'OSTRA VERZE';
{$ENDIF}
Vite nekdo jak na to ?
Diky
eL..Dotaz na D3Pro
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 8.7.1999 16:37:44
neni lepsi pouzivat application.messagebox?
-----P�vodn� zpr�va-----
Od: daniel.hrna(zv)vm.sme(tec)cz <daniel.hrna(zv)vm.sme(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervence 1999 11:22
P�edm�t: Dotaz na D3Pro
Mam D3 Prof.
Uz to tady mozna bylo, ale prosim pomozte mi, chtel bych aby mi na Buttonech
v MSGDLG a jinde fungovaly misto YES, NO, OK, atd. ceske hlasky treba ANO,
NE. Urcite se to prepise v nejakem zdrojaku v D3, ale kde a jak.
Predem dik
Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
Detekce modemu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.7.1999 17:18:11
>Preji vsem hezky den,
>
>Muze mi nekdo poradit jak co nejspolehliveji detekovat pritomnost modemu ve
>Win3.11/95/98/NT ?
>
>Staci jen modem je/neni pripojen ...
RASEnumConnections()
Zdravi
D. Toman
Upper in table
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 8.7.1999 17:45:08
>Ahoj,
>nevim presne jak je to u Informixu, ale u oraclovkeho SQL to neni treba
>pretypovavat, protoze se to pretypuje automaticky. A pokud by to
nefungvalo,
>tak zkus pouzit f-ci To_Char.
>
>A jak to pou�iji p�i selectu m�l jsem na mysli n�co jako, �e bych pak b�hem
toho selectu vybral v�echna ��sla za��naj�c� t�eba na "1" n�co jako "like
'1%'.
>
Neviem ci pomozem aj takymto sposobom,
ale napriklad pre paradox je mozne pouzit
na konverziu funkciu CAST:
SELECT
area AS toto_je_cele_cislo,
CAST(area AS CHAR(10)) AS toto_je_string
FROM country
WHERE
CAST(area AS CHAR(10)) like '1%'
Mozno take nieco existuje aj v Informixe.
forgo
Upper in table
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 8.7.1999 18:27:12
>M�m dot�ze�ek, m�m tabulku v datab�zi (informix) a v n� field s mal�mi a
velk�mi znaky cht�l bych n�jak jednodu�e vyselektit ��st z�znam� za��naj�c�
t�eba "ABC", jak ud�lat select aby mi to vybralo
Pokus mas Informix Dynamic Server >= 7.30 a databazi nastavenou s podporou
cestiny (GLS client_locale a db_locale), pak ti bude fungovat funkce upper()
tak, jak predpokladas.
Napr.
select * from adresar where upper(jmeno[1])="S^"
nebo
select * from adresar where upper(jmeno) matches "S^*"
Leos
Jak porovnavat 6-tice bytu?
[*] muher(zv)csas(tec)cz - 8.7.1999 18:49:25
Zdravim vsechny
Mam problem s porovnavanim pole bytu delky 6 bytu. Napada mne porovnavat to
pres variantni zaznamy:
TArr = Record
Case Byte Of
0: (Array6Byte: Array [1..6] Of Byte);
1: (Mac2aWord: Word; Mac2bLongint: Longint);
End;
a pak porovnavat ten Word a Longint:
If (x1.Mac2aWord=x2.Mac2aWord) And (x1.Mac2bLongint=x2.Mac2bLongint) Then
...
Melo by to jit vsak nejak elegantneji. Napriklad existuji prorvnavaci funkce
v assembleru. Vi nekdo jak na to? Mate nejaky jiny napad?
Diky
Martin Uher
Upper in table
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 8.7.1999 19:20:07
Add textovy vyber cisla:
Zcela jiste ti v Informixu projde neco takovehoto:
select * from tabulka
where ""||cislo matches "1*"
kde "" je prazdny retezec a || je concatenation operator
Todle mne jen tak napadlo, mozna je tam fakt nejaka funkce.
Leos
Resource editor pro Win32?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.7.1999 20:13:25
Zdenek Drvota wrote:
> zkousel jsem hledat nejaky resource editor pro
> Win32 EXE/DLL... (9x), jako byval B.Workshop pro 16bitovky,
> ale neuspel jsem. Copak opravdu nic takoveho
> neexistuje?
> (Potrebuji upravit stringy v jednom cizim programu pro
> Win32, je zrejme vytvoren v Borland C++, verzi nevim,
> je v nem retezec
> "Borland C++ - Copyright 1996 Borland Intl.")
Krome Lokalizatoru, ve kterem to lze udelat, budou na Delphree
komponenty pro praci s resources - zatim predevsim vycitaci, ale
neni problem to udelat i obracene.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
GetPrinter
[*] PAC <apscomp(zv)login(tec)cz> - 8.7.1999 21:35:45
Ahoj delphisti,
tak jsem se dnes trapil s funkci GetPrinter a usoudil jsem, ze jsem asi
peknej tupec, protoze se mi to nepodarilo prokopnout ani po celodennim
usili.
Potrebuju ziskat informace ze struktury PRINTER_INFO_2.
At jsem se snazil jak jsem chtel, neustale mi to pada a jedna se s nejvetsi
pravdepodobnosti o chybu pri alokaci pameti pro tuto strukturu.
Nenasel by se nejaky dobrak s funkcnim prikladem pouziti teto funkce?
Diky
Pavel
Client dataset
[*] Ji�� Zachardala����*��6����jV��,zX���v�� - 8.7.1999 21:47:04
Midas
Nevite nahodou nekdo jak odstranit aby se u souboru cds data jen nepridavaly ale taky ubiraly (mazaly fizicky).
Dekuji piste prosim na xzachar(zv)pluto.spsselib.hiedu(tec)cz
Dotaz na D3Pro
[*] Jaro <jaro(zv)sinea(tec)cz> - 8.7.1999 21:48:00
>neni lepsi pouzivat application.messagebox?
-------------
Ja myslim, ze je to rozhodne lepsi. Zasadne tez pouzivam WinApi
dialogy, protoze jsou pak shodne s jazykovou lokalizaci Windows.
Vsimete si ovsem, ze ve Windows CZ se OK nepreklada.
OK je proste OK. Tomu dnes uz asi rozumi vsichni.
Zde je priklad nekterych dialogu:
Application.MessageBox('Naucte programovat sveho psa .... bude vas mit
rad!',
'Informace ...', MB_RIGHT + MB_ICONINFORMATION);
Application.MessageBox('Nesedte stale u pocitace nebo zblbnete!',
'Varovani ...', MB_RIGHT + MB_ICONWARNING);
if Application.MessageBox(Opravdu to chces ???',
'Dotaz ...', MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) = IDYES
then begin
--------
Jaro
>
>-----Puvodni zprava-----
>Od: daniel.hrna(zv)vm.sme(tec)cz <daniel.hrna(zv)vm.sme(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 8. cervence 1999 11:22
>Predmet: Dotaz na D3Pro
>
>
>Mam D3 Prof.
>Uz to tady mozna bylo, ale prosim pomozte mi, chtel bych aby mi na
Buttonech
>v MSGDLG a jinde fungovaly misto YES, NO, OK, atd. ceske hlasky treba
ANO,
>NE. Urcite se to prepise v nejakem zdrojaku v D3, ale kde a jak.
>
>Predem dik
>
> Daniel Hrna - technik VT
>Severomoravska energetika a.s.
> RZ Valasske Mezirici
>tel.: 0651-683 442, fax:0651-683 424
> mailto:Daniel.Hrna(zv)vm.sme(tec)cz
> mobil: 0603-257397
>
>Detekce modemu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:16:07
Radek Pospisil wrote:
>
> Preji vsem hezky den,
>
> Muze mi nekdo poradit jak co nejspolehliveji detekovat pritomnost modemu ve
> Win3.11/95/98/NT ?
>
> Staci jen modem je/neni pripojen ...
Ahoj,
Podle toho jak to popisujes to ale vypada na dva problemy:
1. Jestli je nejaky modem nainstalovan
2. Jestli se dany nainstalovany modem prave nejakym zpusobem pouziva.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jak porovnavat 6-tice bytu?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:17:31
muher(zv)csas(tec)cz wrote:
>
> Zdravim vsechny
>
> Mam problem s porovnavanim pole bytu delky 6 bytu. Napada mne porovnavat to
> pres variantni zaznamy:
> TArr = Record
> Case Byte Of
> 0: (Array6Byte: Array [1..6] Of Byte);
> 1: (Mac2aWord: Word; Mac2bLongint: Longint);
> End;
> a pak porovnavat ten Word a Longint:
> If (x1.Mac2aWord=x2.Mac2aWord) And (x1.Mac2bLongint=x2.Mac2bLongint) Then
> ...
> Melo by to jit vsak nejak elegantneji. Napriklad existuji prorvnavaci funkce
> v assembleru. Vi nekdo jak na to? Mate nejaky jiny napad?
Ahoj,
Pouzij funkci CompareMem (je v SysUtils).
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Problem s multithreadingem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:17:03
> Bronislav Gabrhel wrote:
>
> Dobr� den,
> m�m probl�m s vl�kny. Pot�ebuji spustit z okna n�kolik dalš�ch
> oken jako nez�visl� podprocesy se sd�len�mi daty
> (viz. p�ilo�en� jednoduch� p��klad) a nejde mi to. Nefunguje to a nev�m pro�.
Ahoj,
Dival jsem se na ten priklad a priznam se, ze jsem to prilis nepochopil.
Princip je ve VCL takovy, ze jakekoliv metody VCL muzes volat pouze z
hlavnino threadu, z ostatnich pomoci metody TThread.Synchronize. Dale
mi pak neni jasne, proc volas Application.CreateForm(TfRunRoll, fRunRoll)
z threadu (sice pres synchronize). Ono to sice mozna funguje, ale neni
to prilis prehledne, navic i zbytecne. To vytvareni by jsi mel provest
primo z hlavniho threadu aplikace. Jak jsem psal v uvodu, nevim presne
co to ma delat, ale pokud ti jde o "soucasne" spousteni vice SQL dotazu
prostrednictvim BDE, tak se podivej na priklad v \Demos\Db\BkQuery.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Dotaz na D3Pro
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:18:04
daniel.hrna(zv)vm.sme(tec)cz wrote:
>
> Mam D3 Prof.
> Uz to tady mozna bylo, ale prosim pomozte mi, chtel bych aby mi na Buttonech
> v MSGDLG a jinde fungovaly misto YES, NO, OK, atd. ceske hlasky treba ANO,
> NE. Urcite se to prepise v nejakem zdrojaku v D3, ale kde a jak.
Ahoj,
Prepisovani ve zdrojaku VCL neni zrovna dobrym resenim, uz jen proto, ze
to nelze pouzit pokud pouzivas balicky. Asi nejlepsi reseni je pomoci
funkce Application.MessageBox. Pokud by jsi ale prece jen chtel lokalizovat
texty ve VCL, tak pouzij Localizator - http://www.localizator.com
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Version info podle conditionals defines
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:19:02
eL wrote:
>
> Zdravim vsechny.
>
> Mam program ktery kompiluji do dvou verzi (demo s nekterymi omezenimi a
> plna verze) dle nastaveni DEMO v conditionals defines.
> Rad bych aby ve vyslednem exe byla ruzna verze souboru nebo treba
> poznamka (Comments) podle nastaven� conditionals defines.
>
> neco jako
>
> {$IFDEF DEMO}
> Comments := 'DEMOVERZE';
> {$ENDIF}
> {$IFNDEF DEMO}
> Comments := 'OSTRA VERZE';
> {$ENDIF}
>
> Vite nekdo jak na to ?
Ahoj,
Musel by jsi to udelat tak, ze by jsi nepouzil zalozku VersionInfo v
Delphi, ale vytvoril by jsi vlastni .RC soubor s temito informacemi
a ten pak prelozil pomoci BRCC32 a pomoci {$R xxx} pripojil k aplikaci.
Kdysi jsem delal pridavek do IDE pro D2, protoze tam zadavani Version
Info vubec nebylo, takze bych v tom nasel i presne tu strukturu.
Reseni je to ale dost nepohodlne. Co to treba udelat tak, ze by jsi
mel dva projektove soubory (*.dpr) se stejnym obsahem a lisily by se
pouze tim jestli prekladas aplikaci jako demo.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
DBF soubory
[*] prog0807 <prog0807(zv)email(tec)cz> - 8.7.1999 23:20:38
caute
mam dotazek. Nejdou mi otevirat nektere DBF soubory v DatabaseExploreru.
Hlasi to Corrupt table/index header, BDE error 8961. Nevite nekdo co s tim?
Jak se to da otevrit? Jeste na vysvetlenou. Mam asi 20 DBF souboru z
jednoho programu a z nich mi 7 hlasi tuto chybu. Ostatni jdou otevrit v
pohode. Mam BDE 4.00 a 5.0, verzi DBExploreru mam 3.00. Dekuji za
kazdou radu.
Petr Michalek
Zeme puvodu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:20:29
> Pavel Polak wrote:
>
> Zdravim
>
> Mam dotaz, da se nejakym zpusobem v aplikaci zjistit na koho, je registrovana domena (resp
> z jake zeme to pristupuju ) z kere pristupuju na internet ale podle podle IP adresy (kdyz
> neznam domenu)? bo existuje nejaka sluzba vyhledavaci na toto?
Ahoj,
Takova sluzba samozrejme existuje, jmenuje se WHOIS. WWW rozhrani najdes
treba tady (RIPE je ale jen evropska databaze)
http://www.ripe.net/db/whois.html
Pokud by jsi to chtel udelat programove, tak by to mohlo vypadat treba
takhle:
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Memo1: TMemo;
Button1: TButton;
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.SelText := AdjustLineBreaks(Socket.ReceiveText);
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Format('Connected to %s ...', [Socket.RemoteHost]));
ClientSocket1.Socket.SendText('delphi(tec)cz' + #13#10);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := 'whois.ripe.net';
ClientSocket1.Service := 'whois';
ClientSocket1.Open;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Kop�rov�n� datab�ze do clipbordu.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:24:09
"Libor V�trovec" wrote:
>
> P�edem d�kuji za va�� pomoc.
> Kop�rov�n� datab�ze d�l�m p�ez memo ale to jde jen do ur�it� velikosti a to
> do velikosti mema pak se zastav� a v clipbordu m�m jen to co je v memu v�te
> n�kdo jak to obej�t an� by jsem pouil memo?
Ahoj,
Nevim jestli jsem to dobre pochopil, ale pokud ti jde o to ulozit obsah
tabulky do clipboardu v textovem formatu, tak to muzes udelat nejak
takhle:
uses
ClipBrd;
function PadRight(const S: String; Len: Integer): String;
begin
SetLength(Result, Len);
Result := S;
while Length(Result) < Len do Result := Result + ' ';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TextList: TStringList; // pouzito jen pro prehlednost
S: String;
I: Integer;
begin
SetLength(S, 1024);
TextList := TStringList.Create;
try
with Table1 do
try
DisableControls;
First;
while not Eof do
begin
S := '';
for I := 0 to FieldCount - 1 do
S := S + PadRight(Fields[I].AsString, Fields[I].DisplayWidth + 1);
TextList.Add(S);
Next;
end;
Clipboard.AsText := TextList.Text;
finally
EnableControls;
end;
finally
TextList.Free;
end;
end;
Pokud ti slo ale o praci s BLOBy, tak pro prenaseni jeho obsahu jako
textu muzes pouzit vlastnost TBlobField.AsString.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Smysluplnost oboru (was : Mistrovstvi v Delphi - v
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:27:31
Jirka Fejfar wrote:
>
> Ahoj ...
>
> nechci tady rozsirovat dalsi offtopic, ale docela me zaujala ta posledni
> veticka v obsahle odpovedi Petra Vonese ...
Ahoj,
Koukam ze se to jako offtopic ujalo :-) Co jsem tim teda myslel ?
Jsou to vlastne dva problemy. Prvni je, jak uz tu nekolik z vas
naznacilo pomerne velka nespolehlivost softwaru "pro masy" a na
muj vkus dosti sileny inovacni cyklus, kde vec rok stara je jiz
casto povazovana za ztracenou. Nenapada me ted snad zadny jiny
obor, kde by nekvalita a nefunkcnost byla tak vseobecne prijimana
za standart jako v tomto. Staci si jen precist licencni ujednani
u jakehokoliv softwaru a vicemene se dozvite, ze se vlastne za nic
neruci :-) Dalsi vec se tyka uz vlastniho objemu vedomosti. Jiste
mi date za pravdu, ze clovek sotva stiha sledovat a alespon z
casti se pokusit porozumet nejnovejsim technologiim. Jakmile se uz
ale jen trochu vice dostane do hloubky, vec je zastarala a nahrazena
necim prevratne novejsim.
Druhy problem je o necem zcela jinem. Totiz, co nam vlastne cele
slavne informacni technologie jako takove prinaseji. Jiste je zde
rada oboru kde maji vysledky, ale predevsim v oblasti "masoveho"
vyuziti nemam az tak jednoznacny pocit o cele jejich prospesnosti.
Stava se spise prostredkem k tomu, aby se lidstvo zamestnalo samo
sebou. Pokud se na celou vec podivate s urcitym odstupem, tak je
to nekdy az legracni, jak lide v zahlcovani se ruznymi informacemi
snad spatruji nadeji, ze tak bude budouci zivot bohatsi, lepsi,
veselejsi .... Zatim jsem si toho nejak nevsiml :-)
Nechci uz dale pokracovat v dalsich pseudofilozofickych blabolech
(jako je tento), navic je to jiz v teto konferenci znacne offtopic.
Takze pripadne (nevyhnutelne :-) reakce posilejte primo na moji
adresu a NE do konference.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Tabulky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1999 23:53:57
Filip REJLEK - Menfy wrote:
>
> Pomuzete nekdo ? Mam 2 tabulky (*.dbf) a zobrazuji je pomoci
> DBGridu. Potrebuji oznacene radky z DBGrid1 zobrazit v DBGrid 2
> a DBGr2 vytisknout. Diky...
Ahoj,
Da se to resit zkopirovanim vybranych zaznamu do nejake docasne tabulky.
Mam pocit ze se to tu uz resilo, tady mas priklad, ale neni prilis idealni.
Potrebujes k nemu take RxLib. Najdes jej prozatim zde:
http://www.volweb(tec)cz/pvones/download/Copying_selected_records.zip
P.S.:
Pro spravce ftp.mlp(tec)cz: Kdysi bylo na tomto serveru zrizeno FTP pro
potreby konference. Nejak to ale prestalo brat to puvodni heslo :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Dotaz na D3Pro
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 09.7.1999 03:24:15
Jaro wrote:
> >neni lepsi pouzivat application.messagebox?
> -------------
> Ja myslim, ze je to rozhodne lepsi. Zasadne tez pouzivam WinApi
> dialogy, protoze jsou pak shodne s jazykovou lokalizaci Windows.
> Vsimete si ovsem, ze ve Windows CZ se OK nepreklada.
> OK je proste OK. Tomu dnes uz asi rozumi vsichni.
Bohuzel tam zrejme chybi moznost nadefinovat vice tlacitek.
Jak napriklad pomoci MessageBox udelat toto:
UserResult := MessageDlg ('Smazat soubor', mtConfirmation,
[mbYes,mbNo,mbAll,mbCancel], 0);
Ja jsem na to neprisel.
eL..DBF soubory
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 9.7.1999 06:59:35
Je nekolik moznosti. Napr. hlavicka tabulky je opravdu poskozena (tzn. ze
neodpovida pocet zaznamu v tabulce poctu zaznamu v hlavicce) - to se da
opravit, existuje na to spousta nastroju (napr. FileFix od Nortona). Dale to
muze byt tim, ze v hlavicce je informace, ze k souboru ma existovat indexovy
soubor a ty ho tam nemas.
Dalse moznosti je, ze soucasti indexu je pametova promenna (napr. Index On
mujField For mujField = promenna). Takovou tabulku pak bez existence
promenne neotevres.
Pokud znas strukturu tabulky (zkus napr. Norton Commander, M602), vytvor si
prazdne struktury a z puvodnich tabulek to do nich naapenduj.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
----- P�vodn� zpr�va -----
Od: prog0807 <prog0807(zv)email(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. �ervence 1999 23:20
P�edm�t: DBF soubory
>
> caute
>
> mam dotazek. Nejdou mi otevirat nektere DBF soubory v DatabaseExploreru.
> Hlasi to Corrupt table/index header, BDE error 8961. Nevite nekdo co s
tim?
> Jak se to da otevrit? Jeste na vysvetlenou. Mam asi 20 DBF souboru z
> jednoho programu a z nich mi 7 hlasi tuto chybu. Ostatni jdou otevrit v
> pohode. Mam BDE 4.00 a 5.0, verzi DBExploreru mam 3.00. Dekuji za
> kazdou radu.
>
> Petr Michalek
>
>
>DBNavigator a obrazky
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 9.7.1999 07:01:41
Pokud mas D4, pouzij Action List. Mas v nem preddefinovane vsechny akce,
ktere se tykaji DBNavigatoru, takze si udelas vlastni listu tlacitek a
priradis jim prislusne akce.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
----- P�vodn� zpr�va -----
Od: <rjunga(zv)oku-ka(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. �ervence 1999 7:39
P�edm�t: DBNavigator a obrazky
> Ahoj vsichni, doufam, ze me neukamenujete jako posledne. Mam jednu prosbu.
> Nevite nekdo, jak bych mohl v DBNavigatoru zmenit obrazky? Konkretne mi
> staci sipky <, >, <<, >>. Chtel bych si tam dat vlastni a hezci.
> Diky moc.
> Roman
>EMail
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 9.7.1999 08:04:08
mozna mas jinou verzi ICS, tohle pouzivam a funguje to:
Author: Fran�ois PIETTE
Object: TSmtpCli class implements the SMTP protocol (RFC-821)
Support file attachement using MIME format (RFC-1521)
EMail: francois.piette(zv)pophost.eunet.be
francois.piette(zv)rtfm.be http://www.rtfm.be/fpiette
Creation: 09 october 1997
Version: 2.12
v SmtpProt.pas:
TSmtpState = (smtpReady, smtpDnsLookup, smtpConnecting,
smtpConnected, smtpInternalReady,
smtpWaitingBanner, smtpWaitingResponse, smtpAbort);
M..
.
.
>
> > ----------
> > while SmtpClient.State <> smtpReady do
> *** Tady mi to rve, ze property State neexistuje
> > begin
> > Application.ProcessMessages;
> > end;
> >
>
.
.
.
Upper in table
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 09.7.1999 08:21:52
>>> "Robert Jendrisak" wrote:
>Na to si mal mysliet pri navrhu tabulky...ohladom upper...
>to je funkcia Informix 4gl, nie sql, takze byt pouzita moze byt,
>nie je to take jednoduxe ako sa ti moze gdzdat.
no ne v�dy tabulku navrhuje ten kdo na ni n�sledn� nabaluje soft, a tak� na co zab�rat zbyte�n� m�sto. Jen pro zaj�mavost v tabulce je deset takov�ch field� a tabulka m� v sou�asn� dob� n�co kolem 15k record�
>Upper ti nekonvertne slovienstinu-chcestinu.
>Kup si revolver, a si to nexaj prest hlavou...
j� si to rad�ji nejd��v zkus�m, ne� n�co zav�d�j�c�ho pl�cnu, UPPER zvl�dne �e�tinu s p�ehledem (sloven�tinu nev�m), pou��v�m "pdx ANSI Czech 'CH'" langdriver.
A proboha to je p�eklep nebo jsi skute�n� napsal "CH"??? A jak� v�echna spojen� souhl�sek se t�m "X" daj� nahradit? To jen pro zaj�mavost a p�iu�en� se novotvar�m. :-) M&B
TDateTimePicker
[*] Jaroslav ��pek <jaroslav.sipek(zv)idea(tec)cz> - 9.7.1999 08:23:36
Ahoj,
nevite nekdo, kde by se dala sehnat komponenta podobna TDateTimePicker.
Potrebuji, aby bylo mozne tam nic nezadat. Ide�ln� by bylo, kdyby vstup byl
typu String
a teprve po zadani by se prevadel na datum. Chtel bych si tuto komponentu
upravit tak, aby kdyz napisu na vstup napr. +1, aby se tam doplnilo
zitrejsi datum atd.
Budu velice vdecny za jakekoliv odkazy na datumove komponenty.
Jaroslav Sipek
E-mail: jaroslav.sipek(zv)idea(tec)cz
DBNavigator a obrazky
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.7.1999 09:18:50
Mno, ja bych si (D3) udelal vlastni butonky na nejaky panylek,
{ ale mozna to umi sinea DBNavigator (nejsem si jisty) }
dej si tam ctyri tlacitka, nastav jim glyphy, jaky chces
a do OnClick napis
<< = Table1.First { misto Table muze byt i Query }
< = Table1.Prior
> = Table1.Next
>> = Table1.Last
a je to...
Dobra.
BTW: Kdo Te kamenoval ? Vzdyt preci "Hod po me kamenem Ty,
kdoz jsi bez viny..." (a takov� to asi nikdo neni :-)
> ----------
> Ahoj vsichni, doufam, ze me neukamenujete jako posledne. Mam jednu
> prosbu.
> Nevite nekdo, jak bych mohl v DBNavigatoru zmenit obrazky? Konkretne
> mi
> staci sipky <, >, <<, >>. Chtel bych si tam dat vlastni a
> hezci.
>
> EMail
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.7.1999 09:33:12
>mozna mas jinou verzi ICS, tohle pouzivam a funguje to:
Zkusim se podivat po novejsi. >v SmtpProt.pas:
>
> TSmtpState = (smtpReady, smtpDnsLookup,
smtpConnecting,
> smtpConnected, smtpInternalReady,
> smtpWaitingBanner, smtpWaitingResponse,
smtpAbort);
Yo, je to tam, ale jako protected, takze se na to stejne nemuzu dostat.
Dobra.EMail
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.7.1999 09:37:36
>> protoze mam D3, nemuzu pouzit
>> uses ...NMSMTP...
>Nejmenuje se nahodou NNSMTP?
Nic takoveho, mam D3 a adresar s nim neobsahuje zadny
soubor, jehoz jmeno by obsahovalo SMTP, takze ani NN,
ani MM, proste nic. Mozna az D4...
Dobra.TDateTimePicker
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 09.7.1999 10:06:57
Zdravim.
Jaroslav ��pek wrote:
> Ahoj,
> nevite nekdo, kde by se dala sehnat komponenta podobna TDateTimePicker.
Neco je v RXLib
> Potrebuji, aby bylo mozne tam nic nezadat.
Na to pouzivam vlastnosti checked (nutno nastavit pri navrhu vlastnost
ShowCheckbox na True)
eL..Version info podle conditionals defines
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 09.7.1999 10:08:39
Petr Vones wrote:
> Co to treba udelat tak, ze by jsi
> mel dva projektove soubory (*.dpr) se stejnym obsahem a lisily by se
> pouze tim jestli prekladas aplikaci jako demo.
>
Tohle se ukazalo jako pouzitelne.
Diky
eL..
Detekce modemu
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 9.7.1999 10:10:28
>
> Ahoj,
>
> Podle toho jak to popisujes to ale vypada na dva problemy:
> 1. Jestli je nejaky modem nainstalovan
> 2. Jestli se dany nainstalovany modem prave nejakym zpusobem pouziva.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************
Ahoj,
Jde mi v podstate jen o to, zjistit, ze je nainstalovany modem a ze je
pripraven k pouziti. Zatim to resim tak, ze na seriove porty poslu prikaz AT
a kdyz se mi v odpovedi vrati OK, tak je to nejspis modem. Toto reseni
trochu funguje, ale neprijde mi nejlepsi. Typ modemu, nebo tak to, me
nezajima. Pokud je modem nainstalovany, ale vypnuty, to taky nevadi. Zajima
me jen jestli je ready nebo ne.
za jakykoliv namet diky,
Radek Pospisil
Napojen� datab�ze
[*] petrhalamicek(zv)email(tec)cz - 9.7.1999 10:43:52
Zdrav�m v�echny.
Mu�e mi pros�m n�kdo pomoci s t�m jak napojit datab�zi a� za b�hu
programu ? Mysl�m to tak, �e kdy� um�st�te komponentu Tdatabase do
aplikace, a potom se dvojklikem na tuto komponentu dostanete do "Database
editoru", pak kliknete na Default a ono se objevi DATABASE NAME.. . Pr�v�
tohle pot�ebuji napojit a� za b�hu aplikace a n� u� p�i vytv��en�.
D�ky moc.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Dll & Datab�ze
[*] petrhalamicek(zv)email(tec)cz - 9.7.1999 10:46:44
Zdrav�m v�echny.
Cht�l bych se zeptat, jestli je mo�n� v�bec p�istupovat z knihovny *.dll
ke komponent� TABLE, kter� je um�st�na na n�jak�m formul��i. V�dycky, kdy�
se nap�. pokou��m o z�pis,nebo cokoliv jin�ho prov�d�t s TABLE tak mi to
h�e ERROR. Nem�l by n�kdo n�jak� primitivn� p��klade�ek?
D�ky moc
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Zabezpe�en� Paradoxu
[*] petrhalamicek(zv)email(tec)cz - 9.7.1999 10:50:10
Zdrav�m v�echny.
M��e mi n�kdo poradit, jak m��u zapezpe�it tabulku Paradox, aby do n�
nemohl b�t p��stup ani pomoc� nap�. Database Desktopu .... . J� bych k
t�to tabulce pot�eboval m�t p��stup z programu, ale jinak, aby to bylo z
jak�-koliv jin� aplikace vylou�eno. Zpracov�v�m toti� data,kter� jsou pro
firmu maxim�ln� cenn�.
D�ky moc.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Napojen� datab�ze
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 9.7.1999 11:07:22
tak pouzij v OnCreate datoveho modulu toto
DB.Params.Values['USER NAME'] := 'SYSDBA';
DB.Params.Values['PASSWORD'] := 'masterkey';
DB.Params.Values['SERVER NAME'] := ChangeFileExt(ParamStr(0), '.GDB');}
DB.Open;
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
-----P�vodn� zpr�va-----
Od: petrhalamicek(zv)email(tec)cz [mailto:petrhalamicek(zv)email(tec)cz]
Odesl�no: 9. �ervence 1999 10:44
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Napojen� datab�ze
Zdrav�m v�echny.
Mu�e mi pros�m n�kdo pomoci s t�m jak napojit datab�zi a� za b�hu
programu ? Mysl�m to tak, �e kdy� um�st�te komponentu Tdatabase do
aplikace, a potom se dvojklikem na tuto komponentu dostanete do "Database
editoru", pak kliknete na Default a ono se objevi DATABASE NAME.. . Pr�v�
tohle pot�ebuji napojit a� za b�hu aplikace a n� u� p�i vytv��en�.
D�ky moc.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Smysluplnost oboru (was : Mistrovstvi v Delphi - v
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 09.7.1999 11:11:02
Neda mi to neodpovedet ...
Petr Vones wrote:
> Ahoj,
>
> Koukam ze se to jako offtopic ujalo :-) Co jsem tim teda myslel ?
> Jsou to vlastne dva problemy. Prvni je, jak uz tu nekolik z vas
> naznacilo pomerne velka nespolehlivost softwaru "pro masy" a na
> muj vkus dosti sileny inovacni cyklus, kde vec rok stara je jiz
> casto povazovana za ztracenou.
To nemusi byt na skodu v uplne kazdem pripade.Jde zde hlavne o to zda se
prislusny dodavatel postavi k zakaznikovi stylem:
"je zde nova verze, ktera ma lepsi funkce a koupite si ji pokud to budete
potrebovat"
a nebo jako M$
"dame na trh novou pomalejsi neodzkousenou a padajici verzi, ktera prakticky
nic noveho neumi ale budete si ji muset koupit, protoze nekompatibilitou se
starou verzi Vas k tomu prinutime".
> Nenapada me ted snad zadny jiny
> obor, kde by nekvalita a nefunkcnost byla tak vseobecne prijimana
> za standart jako v tomto. Staci si jen precist licencni ujednani
> u jakehokoliv softwaru a vicemene se dozvite, ze se vlastne za nic
> neruci :-)
A tady nastava problem. Jiste by clovek kupujici SW mel mit podobnou zaruku
jako kdyz kupuje dejme tomu auto. Bohuzel v pocitaci malokdy zustanou nejake
stopy po tom co vlastne "poruchu" zpusobilo. U auta se da napriklad celkem vez
problemu dokazat majiteli, ze pouzil nespravny olej nebo ze nejak zasahl do
nastaveni motoru. U SW tohle nejde a tak je to jak to je.
Napsat naprosto bezvaden rozsahlejsi SW, ktery navic v densni dobe musi byt
zavisly na "nepruhlednem" OS, ktery muze byt provozovan v nejruznejsich
konfiguracich je prakticky nemozne a zase nejvice zavisi na dodavateli SW jak
se k pripadnym problemum postavi a do jake miry stabilni SW uvede na trh.
> Dalsi vec se tyka uz vlastniho objemu vedomosti. Jiste
> mi date za pravdu, ze clovek sotva stiha sledovat a alespon z
> casti se pokusit porozumet nejnovejsim technologiim. Jakmile se uz
> ale jen trochu vice dostane do hloubky, vec je zastarala a nahrazena
> necim prevratne novejsim.
>
To je bohuzel pravda. Cele to speje k tomu, ze jsou vyuzivany moduly, ktere
nelze znat do hloubky se vsemi neduhy, ktere to sebou nese. Zajimava je
myslenka certifikace pouzitych modulu a OS.
> Druhy problem je o necem zcela jinem. Totiz, co nam vlastne cele
> slavne informacni technologie jako takove prinaseji. Jiste je zde
> rada oboru kde maji vysledky, ale predevsim v oblasti "masoveho"
> vyuziti nemam az tak jednoznacny pocit o cele jejich prospesnosti.
> Stava se spise prostredkem k tomu, aby se lidstvo zamestnalo samo
> sebou. Pokud se na celou vec podivate s urcitym odstupem, tak je
> to nekdy az legracni, jak lide v zahlcovani se ruznymi informacemi
> snad spatruji nadeji, ze tak bude budouci zivot bohatsi, lepsi,
> veselejsi .... Zatim jsem si toho nejak nevsiml :-)
>
>
S timhle ovsem zasadne pres veskerou uctu k autorovi NESOUHLASIM.
Pokud srovnam dobu pred 5 lety, kdy jsem v teto oblasti zacal podnikat ( do te
doby to byl jen konicek) musim rici ze mi skutecne "informacni technologie"
pomaha a jeji rozvoj je znat.
Spolupracuji na dalku s lidmi, o kterych bych vubec nevedel, ze existuji.
Dodavam zbozi z jednoho mista do cele republiky a tomu, ze to neni do celeho
sveta nebrani rozhodne nekvalita tohoto oboru ale spise administrativni a
obchodni prekazky (clo, DPH, rozdeleni trhu, prevody plateb...) Diky GSM
technologii (povazuji to za soucast oboru) mohu bez problemu pracovat v tymu a
byt kdekoliv. (Usetrim si cca 1-2 hodiny denne dopravy do zamestnani a zpet).
Totez pozoruji i u svych znamych a nekterych obchodnich partneru. Momentalne
mne nenapada nic jineho ale pri hlubsim zamysleni by se jiste jeste neco naslo.
Samozrejme, ze to zavisi na kazdem jednotlivci, zda si dokaze z techto novych
informacnich a komunikacnich moznosti vybrat to co mu pomuze nebo zda se stane
jejich otrokem a bude je pouzivat jen pro ten fakt ze existuji. Automobil je
take mozne pouzit k rychlemu prekonani vzdalenosti a nebo si v nem riskantni
jizdou zvysovat adrenalin v krvi a pripadne se zabit.> Nechci uz dale pokracovat v dalsich pseudofilozofickych blabolech
> (jako je tento), navic je to jiz v teto konferenci znacne offtopic.
> Takze pripadne (nevyhnutelne :-) reakce posilejte primo na moji
> adresu a NE do konference.
>
Rozhodne to je vice k veci nez nedavna diskuze zda si dat panaka nebo panenku.
eL..Dll & Datab�ze
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.7.1999 11:14:33
Priklad najdes v adresari D1\Demos\DB\BDEDLL
V D3\Demos jsem ho uz nenasel.
Dobra.
> ----------
> Cht�l bych se zeptat, jestli je mo�n� v�bec p�istupovat z knihovny
> *.dll
> ke komponent� TABLE, kter� je um�st�na na n�jak�m formul��i. V�dycky,
> kdy�
> se nap�. pokou��m o z�pis,nebo cokoliv jin�ho prov�d�t s TABLE tak mi
> to
> h�e ERROR. Nem�l by n�kdo n�jak� primitivn� p��klade�ek?
> Napojen� datab�ze
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 9.7.1999 11:15:00
A co ti brani pri behu aplikace udelat :
Database1.DatabaseName := jmeno;
Database1.Connected := True;
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
----- P�vodn� zpr�va -----
Od: <petrhalamicek(zv)email(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. �ervence 1999 10:43
P�edm�t: Napojen� datab�ze
> Zdrav�m v�echny.
> Mu�e mi pros�m n�kdo pomoci s t�m jak napojit datab�zi a� za b�hu
> programu ? Mysl�m to tak, �e kdy� um�st�te komponentu Tdatabase do
> aplikace, a potom se dvojklikem na tuto komponentu dostanete do "Database
> editoru", pak kliknete na Default a ono se objevi DATABASE NAME.. . Pr�v�
> tohle pot�ebuji napojit a� za b�hu aplikace a n� u� p�i vytv��en�.
>
> D�ky moc.
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>Zabezpe�en� Paradoxu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.7.1999 11:17:42
Jde ji nastavit heslo, ale existuji utilitky,
ktere zjisti ekvivalent, takze je to na nic,
ale muzes udaje (jednotlive polozky) sifrovat.
(zalezi to ale na tom, jak bude velika a jakou
bude mit strukturu)
Dobra.
> ----------
> M��e mi n�kdo poradit, jak m��u zapezpe�it tabulku Paradox, aby do n�
> nemohl b�t p��stup ani pomoc� nap�. Database Desktopu .... . J� bych k
>
> t�to tabulce pot�eboval m�t p��stup z programu, ale jinak, aby to bylo
> z
> jak�-koliv jin� aplikace vylou�eno. Zpracov�v�m toti� data,kter� jsou
> pro
> firmu maxim�ln� cenn�.
> Taka divna otazocka
[*] Robert Jendrisak <delphi(zv)minv.sk> - 9.7.1999 11:45:09
Robim si taky chutny gulatucky programik.
Formular kruh mam, aj tlacitka aj image....ale este potrebujem
combobox...nema niekto poruke?
Uz mam dost tych hranatych tvarov, idem spat k prirode...
muahahahaha
Werki
Zabezpe�en� Paradoxu
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 9.7.1999 11:52:38
nastavit pro tabulku PASSWORD SECURITY treba v Database Desktopu v
restrukturalizaci tabulky
> -----P�vodn� zpr�va-----
> Od: petrhalamicek(zv)email(tec)cz [mailto:petrhalamicek(zv)email(tec)cz]
> Odesl�no: 9. �ervence 1999 10:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Zabezpe�en� Paradoxu
>
>
> Zdrav�m v�echny.
>
> M��e mi n�kdo poradit, jak m��u zapezpe�it tabulku Paradox, aby do n�
> nemohl b�t p��stup ani pomoc� nap�. Database Desktopu .... .
> J� bych k
> t�to tabulce pot�eboval m�t p��stup z programu, ale jinak,
> aby to bylo z
> jak�-koliv jin� aplikace vylou�eno. Zpracov�v�m toti�
> data,kter� jsou pro
> firmu maxim�ln� cenn�.
>
> D�ky moc.
>
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
> Napojen� datab�ze
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 9.7.1999 11:55:59
Podivej se na vlastnosti Tdatabase.Session tam najdes seznam databazi
> -----P�vodn� zpr�va-----
> Od: petrhalamicek(zv)email(tec)cz [mailto:petrhalamicek(zv)email(tec)cz]
> Odesl�no: 9. �ervence 1999 10:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Napojen� datab�ze
>
>
> Zdrav�m v�echny.
> Mu�e mi pros�m n�kdo pomoci s t�m jak napojit datab�zi a� za b�hu
> programu ? Mysl�m to tak, �e kdy� um�st�te komponentu Tdatabase do
> aplikace, a potom se dvojklikem na tuto komponentu dostanete
> do "Database
> editoru", pak kliknete na Default a ono se objevi DATABASE
> NAME.. . Pr�v�
> tohle pot�ebuji napojit a� za b�hu aplikace a n� u� p�i vytv��en�.
>
> D�ky moc.
>
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
> Zabezpe�en� Paradoxu
[*] Michal HAMPL <PLHA(zv)VIP.CBNET.CZ> - 9.7.1999 11:56:12
Zkus tabulce nastavit nejake heslo a to pak pouzivej v programu.
-----P�vodn� zpr�va-----
Od: petrhalamicek(zv)email(tec)cz <petrhalamicek(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervence 1999 11:42
P�edm�t: Zabezpe�en� Paradoxu
Zdrav�m v�echny.
M��e mi n�kdo poradit, jak m��u zapezpe�it tabulku Paradox, aby do n�
nemohl b�t p��stup ani pomoc� nap�. Database Desktopu .... . J� bych k
t�to tabulce pot�eboval m�t p��stup z programu, ale jinak, aby to bylo z
jak�-koliv jin� aplikace vylou�eno. Zpracov�v�m toti� data,kter� jsou pro
firmu maxim�ln� cenn�.
D�ky moc.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Zabezpe�en� Paradoxu
[*] Karel Pechanec <kapecha(zv)mias(tec)cz> - 9.7.1999 12:15:37
zdravim
jiste...paradoxove tabulky maji tkz. >password security<, a tam si muzes
nastavit >master password< a dalsi pristupy. Tim tabulku zasifrujes i s
daty. To se provadi restruktem (fce DbiDoRestructure). Pristup k tabulce je
potom podminen zadanim hesla. Tyto vstupy muzes osetrit podle sve libosti
treba TSession komponentou...tady mas kus zdroje pro vlozeni takoveho
hesla...
procedure procAddMasterPassword(Table: TTable; pswd: string);
const
RESTRUCTURE_TRUE = WordBool(1);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;
begin
if (Table.Active = False) or (Table.Exclusive = False) then
raise EDatabaseError.Create('Tabulka neni v exclusive mode');
FillChar(TblDesc, SizeOf(CRTblDesc), 0);
with TblDesc do
begin
StrPCopy(szTblName, Table.TableName);
StrCopy(szTblType, szPARADOX);
StrPCopy(szPassword, pswd);
bProtected := RESTRUCTURE_TRUE;
end;
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
Table.Close;
Check(DbiDoRestructure(hDb, 1, (zv)TblDesc, nil, nil, nil, FALSE));
Table.Open;
end;
-----P�vodn� zpr�va-----
Od: petrhalamicek(zv)email(tec)cz <petrhalamicek(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervence 1999 11:51
P�edm�t: Zabezpe�en� Paradoxu
Zdrav�m v�echny.
M��e mi n�kdo poradit, jak m��u zapezpe�it tabulku Paradox, aby do n�
nemohl b�t p��stup ani pomoc� nap�. Database Desktopu .... . J� bych k
t�to tabulce pot�eboval m�t p��stup z programu, ale jinak, aby to bylo z
jak�-koliv jin� aplikace vylou�eno. Zpracov�v�m toti� data,kter� jsou pro
firmu maxim�ln� cenn�.
D�ky moc.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Zabezpe�en� Paradoxu
[*] Milan N�mec <nemec(zv)goldcard(tec)cz> - 9.7.1999 12:39:53
Nepotrebujes utilitky existuji univerzalni hesla.
Takze bud si to sam zasifrujes, nebo musis
pouzit neco bezpecnejsiho nez paradoxove tab.
Milan
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, July 09, 1999 11:17 AM
Subject: RE: Zabezpe�en� Paradoxu
> Jde ji nastavit heslo, ale existuji utilitky,
> ktere zjisti ekvivalent, takze je to na nic,
> ale muzes udaje (jednotlive polozky) sifrovat.
> (zalezi to ale na tom, jak bude velika a jakou
> bude mit strukturu)
>
> Dobra.
>
> > ----------
> > M��e mi n�kdo poradit, jak m��u zapezpe�it tabulku Paradox, aby do n�
> > nemohl b�t p��stup ani pomoc� nap�. Database Desktopu .... . J� bych k
> >
> > t�to tabulce pot�eboval m�t p��stup z programu, ale jinak, aby to bylo
> > z
> > jak�-koliv jin� aplikace vylou�eno. Zpracov�v�m toti� data,kter� jsou
> > pro
> > firmu maxim�ln� cenn�.
> >Jak porovnavat 6-tice bytu?
[*] muher(zv)csas(tec)cz - 9.7.1999 12:50:31
> Ahoj,
>
> Pouzij funkci CompareMem (je v SysUtils).
>
No to je presne ono!
Diky
Martin Uher
DBNavigator a obrazky
[*] rjunga(zv)oku-ka(tec)cz - 9.7.1999 13:13:56
Jo, to by slo, ale je to pracne a zbytecne vypisovani kodu.
Ale presto diky.
Roman
Mal? Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> na 09.07.99 09:18:50
Please respond to delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
cc: (bcc: Roman Junga/IDC/OkUKarvina/CZ)
Subject: RE: DBNavigator a obrazky
Mno, ja bych si (D3) udelal vlastni butonky na nejaky panylek,
{ ale mozna to umi sinea DBNavigator (nejsem si jisty) }
dej si tam ctyri tlacitka, nastav jim glyphy, jaky chces
a do OnClick napis
<< = Table1.First { misto Table muze byt i Query }
< = Table1.Prior
> = Table1.Next
>> = Table1.Last
a je to...
Dobra.
BTW: Kdo Te kamenoval ? Vzdyt preci "Hod po me kamenem Ty,
kdoz jsi bez viny..." (a takov? to asi nikdo neni :-)
> ----------
> Ahoj vsichni, doufam, ze me neukamenujete jako posledne. Mam jednu
> prosbu.
> Nevite nekdo, jak bych mohl v DBNavigatoru zmenit obrazky? Konkretne
> mi
> staci sipky <, >, <<, >>. Chtel bych si tam dat vlastni a
> hezci.
>
>
Detekce modemu
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 09.7.1999 14:28:31
At 17:18 8.7.1999 +0200, you wrote:
>>Muze mi nekdo poradit jak co nejspolehliveji detekovat pritomnost modemu ve
>>Win3.11/95/98/NT ?
>>Staci jen modem je/neni pripojen ...
>RASEnumConnections()
A pokud nema RAS nainstalovany ?
S. Kolar (standa(zv)winroute.com)
Detekce modemu
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 09.7.1999 14:28:04
At 10:10 9.7.1999 +0200, you wrote:
>Jde mi v podstate jen o to, zjistit, ze je nainstalovany modem
To zjistis z registry - vcetne typu apod.
> a ze je
>pripraven k pouziti.
Cesta vede pres vyuziti API fce BOOL GetCommModemStatus:
//Zjisti zda na otevrenem ser. portu sedi modem a je zapnuty
DWORD SerialDetectModem(HANDLE PortHandle,
DWORD TimeoutInMs,
DWORD RetryCount)
{
DWORD ModemStatus,i;
for(i = 0; i < RetryCount; i++)
{
if(GetCommModemStatus(PortHandle,&ModemStatus))
if(ModemStatus & MS_DSR_ON)
return NO_ERROR;
Sleep(TimeoutInMs);
}
return ERROR_SEM_TIMEOUT;
} S. Kolar (standa(zv)winroute.com)
Blikajici obrazky
[*] Robert Jendrisak <delphi(zv)minv.sk> - 9.7.1999 14:36:19
Dobre, navediem ta aspon na spravnu cestu.
predstav si image 1(visible:=false), image 2(visible:=false) a image 3(visible:=true)
Image 1 vlastni pozadie, image 2 lietadielko a image 3 je to co sa zobrazuje.
Postup...
zmazes image 3, nakreslis don pozadie, nakreslis lietadielko, refreshnes....
a je po probleme...yak proste watsone.
SPRAVIL SOM UZ BEZIACE PISMENA DO KRUHU...WOW
Uz len neviem ako spravit kruhovu pomlcku a krizik :(((
Werki
Muahahaha
----- Original Message -----
From: Martin Konarik
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, 8 July 1999 12:52
Subject: Blikajici obrazky
Chtel jsem poprosit Vas vsechny, kteri jste si "hrali" s pohybem obrazku po formulari (Delphi 3), abyste mi pomohli. Diky rade Romana Vasicka mam x obrazku, ke kterym pristupuji pomoci indexu a ktere "prohanim" po obrazovce. Problem je s jejich blikanim - cim vetsi obrazek a rychlost pohybu, tim vetsi nezadouci blikani.
Slysel jsem, ze se to resi jakymsi swapovanim ci flipovanim obrazovky a ze je k tomu treba vyuzit nejake dalsi komponenty ci jina udelatka. Takova informace me sice jako zacatecnika obohatila, ale stale nevim jak to udelat.
Posilam kratoulinky programek, kde po obrazovce leta 10 poblikavajicich letadelek (a pokud si pridate bitmapu jako pozadi - to teprve zacne blikot) a chtel jsem vas poprosit, jestli byste nekdo nemohl doplnit tento kod o tech par radek, ktere chybi k tomu, aby to neblikalo.
Dekuji
Martin Tower Konarik
zajmovy krouzek vypocetni techniky
WsControl
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 09.7.1999 14:45:35
At 14:44 8.7.1999 +0200, you wrote:
>nevie niekto nahodou, co robi funkcia WsControl ?
Ano - vim to velice presne. Konkretne je to API pro volani
TdiQueryInformationEx a TdiSetInformationEx do kerneloveho driveru
(protokoloveho zasobniku).
Vypada asi takhle:
DWORD (__stdcall *WsControl)(DWORD Param1,
DWORD GetSetCmd,
VOID *InBuffer,
DWORD *InBufferSize,
VOID *OutBuffer,
DWORD *OutBufferSize);
V InBufferu je TDI control struktura - jeji popis viz DDK, DejaNews & apol.
(je toho docela dost), v OutBufferu navratova data (v pripade
TdiQueryInformationEx).
Daji se s tim delat skvele veci, zjistovat interni info o TCPIP a dalsich
protokolech (to, na jaky protokol se odvolavas, se tusim ridi tim
"Param1"), menit routovaci tabulku atd.
>Je to funkcia z wsock32.dll a nie je nikde dokumentovana,
>zato hojne pouzivana v ( najma MS) programoch.
To je pro ty <censored> zcela a naprosto typicke :-(
S. Kolar (standa(zv)winroute.com)
BookMark
[*] jdanek(zv)fnbrno(tec)cz - 9.7.1999 14:46:00
Ahojte,
Chci se zeptat, jestli nekdo nezna nejake elegantni reseni na problem,
kdyz oznacim nejaky zaznam BookMarkem a prochazim databazi a v ni podle
nejakeho dotazu rusim zaznamy. Potom se chci vratit na stejny zaznam, kde
jsem
byl predtim a ktery si pamatuji v Zalozce. Kdyz nebyl tento zaznam zrusen,
je to OK. Bohuzel, kdyz byl tento zaznam zrusen, hlasi program chybu,
protoze
puvodni zaznam jiz neni v databazi (viz nasledujici procedura). Da se to
nejak
elegantne vyresit, pripadne da se nastavit najblizsi nasledujici nezruseny
zaznam k puvodnimu a ted jiz zrusenemu zaznamu? Diky za kazdou radu.
Jozka
jdanek(zv)fnbrno(tec)cz
Procedure Najdi;
var Zalozka : TBookmark;
begin
Zalozka:=Table.GetBookMark;
Table.First;
While not Table.Eof do
begin
if Table.FieldByName('Datum').AsString < '20.5.1999' then
Table.Delete
else Table.Next;
end
Table.GotoBookmark(Zalozka);
Table.FreeBookmark(Zalozka);
end;
d2_d4
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 9.7.1999 15:40:34
****Obavam se, ze to muzes nastavit pouza jako direktivu
v programu nebo v Project Options/Directories & Conditions.
Slavek
> Kde sa to nastavuje okrem kodu ?
> > je chyba ?
> ****Jestli to nebude nekompatibilitou realnych cisel. Podivej se na
> direktivu
> prekladace REALCOMPATIBILITY.
>
> Slavek
>
> >
> > Martin
> >
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Upper in table
[*] Robert Jendrisak <delphi(zv)minv.sk> - 9.7.1999 15:44:04
> Zdrav�m Delphinskou obec!
Zdravime zdoxliny
> M�m dot�ze�ek, m�m tabulku v datab�zi (informix) a v n� field s mal�mi a
velk�mi znaky cht�l bych n�jak jednodu�e vyselektit ��st z�znam� za��naj�c�
t�eba "ABC", jak ud�lat select aby mi to vybralo mal� i velk� a nemusel jsem
rozli�ovat velikost.
Na to si mal mysliet pri navrhu tabulky...ohladom upper...
to je funkcia Informix 4gl, nie sql, takze byt pouzita moze byt,
nie je to take jednoduxe ako sa ti moze gdzdat.
Upper ti nekonvertne slovienstinu-chcestinu.
Kup si revolver, a si to nexaj prest hlavou...
takze co by som na tvojom mieste spravil??
V tvojom pripade sprav reselect a upshiftni si vsetky znaky...
cosi ako case zrejme funguje aj v tomto shitackom pascale.
Potom znova ich vloz do tabulky upshiftnute, seba sa sameho.
Ale ak to takto teda tu robit nexes, tak...pak, udelej tohle wole.
select * from aaa where a matches "a*" or a matches "A*"
V tomto pripade namiesto znaku o ktorom si si nie isty o case,
mozes pouzit aj "?b*"
takze...Ivan, chora mysel je 2 dni pred svadbou...ostatny ako xu
Muahahaha
Werki
>Napadlo mne ud�lat temp tabulku pomoc� "select *, upper(neco) as necojineho
from tablename into temp tabletemp", ale nev�m jak se nyn� dostat na polo�ku
"necojineho", hl�s�, �e neexistuje, tedy v SQLExploreru v Delphi4 to nezn�
ani tu temp tabulku. :-( Co s t�m? P�edem d�k za n�m�ty.
>
> M&B
>Zabezpe�en� Paradoxu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.7.1999 16:42:34
petrhalamicek(zv)email(tec)cz wrote:
> M��e mi n�kdo poradit, jak m��u zapezpe�it tabulku Paradox, aby do n�
> nemohl b�t p��stup ani pomoc� nap�. Database Desktopu .... . J� bych k
> t�to tabulce pot�eboval m�t p��stup z programu, ale jinak, aby to bylo z
> jak�-koliv jin� aplikace vylou�eno. Zpracov�v�m toti� data,kter� jsou pro
> firmu maxim�ln� cenn�.
Lze ji zaheslovat. Ale pro maximalne cenna data bych urcite
Paradox nepouzil, resp. _zadnou_ souborovou databazi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TDateTimePicker
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.7.1999 16:42:34
Jaroslav ��pek wrote:
> nevite nekdo, kde by se dala sehnat komponenta podobna TDateTimePicker.
> Potrebuji, aby bylo mozne tam nic nezadat. Ide�ln� by bylo, kdyby vstup
> byl typu String a teprve po zadani by se prevadel na datum. Chtel bych si
> tuto komponentu upravit tak, aby kdyz napisu na vstup napr. +1, aby se tam
> doplnilo zitrejsi datum atd. Budu velice vdecny za jakekoliv odkazy na
> datumove komponenty.
Orpheus od TurboPower, prodava to tady Petr Zahradnik. Tyto
komponenty pouzivam k plne spokojenosti (tedy s vyjimkou
dlouheho casu, >24 hodin).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Detekce modemu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.1999 16:58:17
>>>Muze mi nekdo poradit jak co nejspolehliveji detekovat pritomnost modemu ve
>>>Win3.11/95/98/NT ?
>>>Staci jen modem je/neni pripojen ...
>>RASEnumConnections()
>
>A pokud nema RAS nainstalovany ?
no tak holt asi neexistuje z PS zadne RASovske spojeni :-)
chapal jse dotaz tak, ze chce zjistit zda je aktivni pripojeni nejakym modemem (na urovni nejakych sitovych protokolu) standardnim zpusobem (tedy RASem)
Z dalsich zprav v tomto threadu vyplynulo, ze chce zjistit fyzickou pritomnost modemu.
Zdravi
D> Toman
Vice wavu najednou + podekovani
[*] Martin Konarik <iss-tr(zv)clnet(tec)cz> - 9.7.1999 19:33:55
Diky vsem za vselijake rady ohledne blikavych obrazku. Doma to vyzkousim.
Jeste jednou se chci tady zeptat, jak to udelat, abych prehraval vice wavu najednou - napr. zvuk motoru letadla, hlaseni vysilacky, zahrmeni, atd. Pres MediaPlayer to pokud vim nejde, i kdyz vytvorim dva MediaPlayery, hazi to otresnou chybu.
Martin Tower Konarik
P.S. To je legrace - vsichni tu resi vazne odborne problemy (databaze, komunikace, ...) a ja se snazim letat po monitoru neblikajicim a pekne vrcicim letadlem ... :-) .... Je tu nekdo, kdo vytvoril v Delphi nejakou solidni hru ci simulator?Zlozena komponenta
[*] DURDINA Michal <durdina(zv)asset.sk> - 9.7.1999 20:35:37
Zdravim,
Robim prave komponentu, ktora je zdedena z TCustomPanel a bude obsahovat
TEdity, ktorych pocet a umiestnenie je zavisle na ini subore. Naviac bude
panel
obsahovat TScrollBar, aby mohli byt skrolovane data v Editoch, tak ako to je
pri
DBContorGrid.
Rozdiel je v tom ze nepouzivam DB ale data mam v TStringList ako normalne
retazce (jeden retazec = jeden DB riadok).
Keby to nemala byt komponenta tak by bolo vsetko OK. Slahol by som na plochu
Panel, na jeho Create by som pridal alokovania Edit[i].Create, na jeho
Destroy
Edit[i].Free. ScrollBar by bol umiestneny na panel.
Ako sa ma ale spravne vytvarat komponenta, ktora toto vsetko zvladne? Zatial
to
mam tak, ze Edity aj ScrollBar vytvaram dynamicky pri TMyPanel.Create a
plnim
ich inicializacnymi hodnotami (aj Name). Lenze to robi veci nevidane (aspon
doteraz). Pri designe sa vsetko pekne vytvori ako ma, ale naviac to prida do
definicie TForm1 okrem MyPanel1: TMyPanel aj ScrollBar:TSrollBar a Edit:
TEdit - ScrollBar a Edit
su mena priradene pri vytvarani do Name.
Pri spusteni takehoto niecoho to ide do gul, lebo jednak Form1 vytvori svoje
svoje komponenty cim vytvori aj objekty ScrollBar a Edit a potom vytvori
MyPanel1,
ktory zase vytvara objekty ScrollBar a Edit.
Urcite existuje ciste riesenie, pretoze iste existuje tisic komponent, ktore
su
skonstruovanie podobne (aspon to tak vyzera). Nechcel by mi niekto ukazat tu
spravnu cestu?
Dakujem.
Miso Durdina
Tabulky
[*] Menfy <menfy(zv)iol(tec)cz> - 9.7.1999 23:16:38
Ahoj, mam ted nejake problemy s konferenci, takze je mozne, ze
tenhle dotaz se uz v konf. objevil, ale ke mne se odpoved nedostala.
Potrebuji oznacene radky z tabulky A (vse *.dbf) zobrazit v tabulce
B a tabulku B pak vytisknout. Pouzivam D4. Dik moc za pomoc
_______
Menfy design
Filip Rejlek
Zbynek Novotny
telefon : 0602 / 816 151
e-mail : menfy_design(zv)telecom(tec)cz
web : http://web.iol(tec)cz/menfy
Delphi a SAP
[*] peperk(zv)atlas(tec)cz - 10.7.1999 08:39:13
Zdravim,
skusal som nieco a podarilo sa mi nacitat dodavatelov a odberatelov zo SAP-u. Napis (na moju adresu, momentalne nebudem prijmat spravy z delphi-l(zv)fwd(tec)cz) co konkretne potrebujes vediet(odpoviem az po 21.7, vtedy sa vratim z dovolenky) alebo skus www.sap.com a prejdi na stranku s BAPI. Tam su nejake subory z helpom. Ak mas instalovany SAP v praci, je tam dokumentacia k nacitavaniu a zapisu udajov zo/do SAP-u v Basic-u, na niektorom z CD.
S pozdravom Rado
peperk(zv)atlas(tec)cz
peperk(zv)hotmail.com
-----Original Message-----
From: "owner-delphi-l(zv)fwd(tec)cz" <owner-delphi-l(zv)fwd(tec)cz> on behalf of "Pavel Malinsk�" <spiderland(zv)seznam(tec)cz>
Sent: Wed, 7 Jul 1999 22:02:56 +0200
To: "DELPHI Distribution List" <delphi-l(zv)fwd(tec)cz>
Subject: Delphi a SAP
Ahoj,
pratele, prosim vas, nemate nekdo zkusenosti
se zobanim dat ze systemu SAP z delphi aplikace.
Pripadne uvitam i odkazy.
S pozdravem a diky vrele
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
WsControl
[*] Santik <santik(zv)pronetix.sk> - 10.7.1999 08:56:49
> Ano - vim to velice presne. Konkretne je to API pro volani
> TdiQueryInformationEx a TdiSetInformationEx do kerneloveho driveru
> (protokoloveho zasobniku).
> Vypada asi takhle:
Dik za help,
len by ma zaujimalo kam chodievas na taketo informacie ? ;-D
Bye
Santik
santik(zv)pronetix.sk
Vice wavu najednou + podekovani
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 10.7.1999 09:02:36
Pouzivej DirectX, treba z http://delphi-jedi.org/jedi/convlib/convlib.html
Tam Ti DirectSound vyresi tvuj problem s prehravanim vice zvuku, navic Ti da prostorovy zvuk.
Ja jsem v tom neco zkousel, ale v Cecku. Stahni si DirectX SDK z Microsoftu, vytiskni dokumentaci,
sezen interface pro Delphi (viz vyse) a muzes zacit...
L.
>Jeste jednou se chci tady zeptat, jak to udelat, abych prehraval vice wavu najednou - napr. zvuk motoru >letadla, hlaseni vysilacky, zahrmeni, atd. Pres MediaPlayer to pokud vim nejde, i kdyz vytvorim dva >MediaPlayery, hazi to otresnou chybu.
WWW stranky s email
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 10.7.1999 09:30:46
J� bych to sp� vid�l na spojen� DHTML s JavaScriptem,
tag <BODY> m� svou 'ud�lost' OnLoad, kter� se d� p�i�adit procedura
definovan� v <SCRIPT> </SCRIPT>
v JavaScriptu to bude akceptovat i Explorer i Netscape , Zat�m co ve
VB Scriptu jen Explorer.
Kv�toslav JANSTA, v�voj HELIOS(r)
LCS International, a.s., Slezsk� 96, Praha 3
Telefon : 02 / 691 13 80, linka 224
E-mail: KJ(zv) lcs(tec)cz
http://www.lcs(tec)cz/
> ----------
> Odes�latel: rjunga(zv)oku-ka(tec)cz[SMTP:rjunga(zv)oku-ka(tec)cz]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 2. �ervence 1999 13:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: WWW stranky s email
>
> Ahoj vsichni,
> vim, ze to tady asi nepatri, ale potreboval bych jednu malickost. Mam www
> stranky a potreboval bych, achy dostal email kdykoli se nekdo na me www
> stranky podiva.
> Dik.
>
> Skupina na novou stranku
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.7.1999 11:51:50
Jaro wrote:
> Jestli si nekdo mysli, ze generator sestav je zlaty dul, tak je
> na velkem omylu. Ja to vidim vice jako sluzbu nasim zakaznikum, ktere
> nechceme sklamat. Pri velikosti naseho trhu a cenach, ktere udrzujeme, to
> je prodelecna zalezitost. Pokud by firma Sinea mela byt zavisla jen na
> prijmech z generatoru sestav, tak uz by davno zkrachovala.
:-) Rad bych zde podotknul, ze s Lokalizatorem je to naprosto
stejne.
> 4 verze je
> proste mnoho, ale zakaznici nas stale prosi a vyvoj pro vsechny verze
> Delphi. Proto udrzujeme i ty verze, ktere jsou zcela free. Snadnym resenim
> by bylo uvolnit vsechny verze generatoru jako free a zbavit se tak
> odpovednosti za vyvoj i za chyby.
Mno, mozne reseni je uvolnit do free (resp. do Delphree) verze pro
starsi Delphi a udrzovat sestavy napriklad pouze pro posledni dve
verze Delphi. Na podzim lze ocekavat (podle stavajiciho trendu)
dalsi verzi Delphi, takze to by jich bylo uz 5. :-)
Chtel bych zde ctene obecenstvo upozornit na drobnou
skutecnost, ze jsem prave uvolnil zdrojaky k Lokalizatoru verze 3.3
(ktery byl free v exaci), takze v blizke dobe je najdete v Delphree.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Skupina na novou stranku
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.7.1999 15:36:04
Mno, mozne reseni je uvolnit do free (resp. do Delphree) verze pro
starsi Delphi a udrzovat sestavy napriklad pouze pro posledni dve
verze Delphi. Na podzim lze ocekavat (podle stavajiciho trendu)
dalsi verzi Delphi, takze to by jich bylo uz 5. :-)
------
Zajiste to tak od verze D5 dopadne, ale zatim stale jeste hodne
zakazniku pracuje i v D1 a oni chteji take nove veci zarazovat.
Jinak verze pro D1 a D2 jsou zcela volne, tudiz i pro zajemce z
Delphree
Uvidime, jak to bude s petkou. Treba uvolnime dalsi verze, ale to bych
predbihal.
Velky problem spociva v tom, ze i po uvolneni nekterych verzi zustava
jejich
dalsi vyvoj stejne na nasich bedrech. Kazdy ma zrejme sve prace dost a
dokud se
o to alespon trochu star�me, tak se do toho nikdo nehrne.
Jaro
Resource editor pro Win32?
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 10.7.1999 16:05:13
Diky za tip, zkusil jsem ho, ale bude tady asi jeste
nejaky jiny problem.
Staci, kdyz do editoru nactu to EXE a okamzite
dam SAVE, a aplikace uz odmita pracovat
(spusti se, pipne a okamzite se ukonci bez zobrazeni
jakekoliv zpravy), prestoze zadne upravy nedelam.
### Jano napsal dne 8 Jul 99, v 13:05 :
Od: "Jano" <jj_delphi(zv)ke.ubp.sk>
> Ahoj,
>
> uz dost davno sa mi podarilo zohnal z I-netu ResourceEditor (16bit,32bit) od Symantecu:
> http://www.fortunecity.com/roswell/leehigh/0/resedit.zip (1,77MB)
> v starych logoch som objavil linku nan a skusil som ju. Na moje prekvapenie, este tam je :-)
> Samozrejme, ze to nie je vsemocne :-(
>
> Jano
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
TRIGGRY A PROMENNE
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.7.1999 20:24:35
Preji vsem pekneho dne,
zacal jsme si trosku hrat s InterBaskou (verze 4.2) a narazil jsem
pri tvorbe triggru s promennou(bez zbytecnosti typu set term):
CREATE TRIGGER T_OSOBA_DEL FOR OSOBA
ACTIVE BEFORE DELETE POSITION 0
DECLARE VARIABLE X INTEGER;
AS BEGIN
SELECT COUNT (O_ID) INTO :X FROM MA_PUJCENE WHERE
O_ID = OLD.O_ID;
IF (X > 0) THEN EXCEPTION OSOBA_DELETE;
END
Kdyz to spustim, zarve to:
Dynamic SQL Error
-SQL error code = -104
-Token unknown - line 3, char -1
-DECLARE
Podivam-li se do manualu, pak tam nevidim zadny rozpor se
syntaxi. V cem by mohl byt problem?
Predem dekuji za pripadne odpovedi
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
TServerSocket
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 10.7.1999 20:27:02
Poradte mi prosim, preco v handleri TServerSocket.OnClientDisconnect()
nesmiem nastavit TServerSocket.Active = false ...? Zakazdym mi to spadne s
chybou 10038, co je podla MSDN pokus o uzatvorenie neexistujuceho socketu.
Avsak socket zostava stale aktivny! Nemate niekto skusenosti, pripadne dobru
radu, kde sa daju zohnat lepsie komponenty?
Dakujem...
Vlado
MessageBox s checkboxem
[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 10.7.1999 20:58:00
Ahoj,
nevite nekdo, zda lze v nejake standardni DLL nalest MessageBox s
checkboxem v levem dolnim rohu dialogu. Nejcasteji se pouziva pro zpavu
s moznosti jeji dalsi zobrazovani zakazat.
Diky
Petr Gadourek
TRIGGRY A PROMENNE
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 10.7.1999 22:00:07
A co takhle ?
CREATE TRIGGER T_OSOBA_DEL FOR OSOBA
ACTIVE BEFORE DELETE POSITION 0
AS
DECLARE VARIABLE X INTEGER;
BEGIN....
pisu to z hlavy, ale myslim, ze AS patri pred DECLARE
Radim
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. �ervence 1999 20:28
P�edm�t: TRIGGRY A PROMENNE
Preji vsem pekneho dne,
zacal jsme si trosku hrat s InterBaskou (verze 4.2) a narazil jsem
pri tvorbe triggru s promennou(bez zbytecnosti typu set term):
CREATE TRIGGER T_OSOBA_DEL FOR OSOBA
ACTIVE BEFORE DELETE POSITION 0
DECLARE VARIABLE X INTEGER;
AS BEGIN
SELECT COUNT (O_ID) INTO :X FROM MA_PUJCENE WHERE
O_ID = OLD.O_ID;
IF (X > 0) THEN EXCEPTION OSOBA_DELETE;
END
Kdyz to spustim, zarve to:
Dynamic SQL Error
-SQL error code = -104
-Token unknown - line 3, char -1
-DECLARE
Podivam-li se do manualu, pak tam nevidim zadny rozpor se
syntaxi. V cem by mohl byt problem?
Predem dekuji za pripadne odpovedi
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
TRIGGRY A PROMENNE
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.7.1999 22:20:46
Ahoj,
pisu to z hlavy, ale myslim, ze AS patri pred DECLARE
****To je presne ono. Hlavne ze dve hodiny mzouram do manualu a
do monitoru. :-(
Akorat se mu ted nelibi radek s tim sql prikazem:
CREATE TRIGGER T_OSOBA_DEL FOR OSOBA
ACTIVE BEFORE DELETE POSITION 0
AS
DECLARE VARIABLE X INTEGER;
BEGIN
SELECT COUNT (O_ID) INTO :X FROM MA_PUJCENE WHERE
O_ID = OLD.O_ID;
IF (X > 0) THEN EXCEPTION OSOBA_DELETE;
END
Dynamic SQL Error
-SQL error code = -104
-Token unknown - line 6, char 18
-INTO
Jaka je prosim proti tomu obrana?
Predem dekuji za odpoved(i)
Slavek
> Radim
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
TRIGGRY A PROMENNE
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 11.7.1999 10:12:08
Mozna takhle
CREATE TRIGGER T_OSOBA_DEL FOR OSOBA
ACTIVE BEFORE DELETE POSITION 0
AS
DECLARE VARIABLE X INTEGER;
BEGIN
SELECT COUNT (O_ID) FROM MA_PUJCENE WHERE
O_ID = OLD.O_ID
INTO :X;
IF (X > 0) THEN EXCEPTION OSOBA_DELETE;
END
INTO patri az za cely SELECT
Radim
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. �ervence 1999 22:24
P�edm�t: Re: TRIGGRY A PROMENNE
Ahoj,
pisu to z hlavy, ale myslim, ze AS patri pred DECLARE
****To je presne ono. Hlavne ze dve hodiny mzouram do manualu a
do monitoru. :-(
Akorat se mu ted nelibi radek s tim sql prikazem:
CREATE TRIGGER T_OSOBA_DEL FOR OSOBA
ACTIVE BEFORE DELETE POSITION 0
AS
DECLARE VARIABLE X INTEGER;
BEGIN
SELECT COUNT (O_ID) INTO :X FROM MA_PUJCENE WHERE
O_ID = OLD.O_ID;
IF (X > 0) THEN EXCEPTION OSOBA_DELETE;
END
Dynamic SQL Error
-SQL error code = -104
-Token unknown - line 6, char 18
-INTO
Jaka je prosim proti tomu obrana?
Predem dekuji za odpoved(i)
Slavek
> Radim
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
TRIGGRY A PROMENNE
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.7.1999 10:41:16
Ahoj,
> INTO patri az za cely SELECT
****Presne tak, zrovna jsem si chtel na to odpovedet. :-) Akorat
si to odporuje s manualem, kde je i uveden priklad:
EXEC SQL
SELECT COUNT (*) INTO :cnt FROM COUNTRY
WHERE POPULATION > 5000000;
Kazdopadne diky za pomoc
Slavek
> Radim
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
PROCEDURE a DOMENY
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.7.1999 11:57:15
Preji vsem pekneho dne,
opet otravuji s InterBaskou.
Mam definovane nasledujici domeny:
CREATE DOMAIN D_OSOBA_JMENO AS VARCHAR (20);
CREATE DOMAIN D_OSOBA_PRIJMENI AS VARCHAR (20) NOT
NULL;
CREATE DOMAIN D_OSOBA_KONTAKT AS VARCHAR (100)
NOT NULL;
A chci vytvorit proceduru pro insert:
CREATE PROCEDURE INSERT_INTO_OSOBA (I_JMENO
D_OSOBA_JMENO,
I_PRIJMENI D_OSOBA_PRIJMENI,
I_KONTAKT D_OSOBA_KONTAKT)
AS
BEGIN
INSERT INTO OSOBA (JMENO, PRIJMENI, KONTAKT)
VALUES (:I_JMENO, :I_PRIJMENI, :I_KONTAKT);
END
Pokud to takto spustim, serve me kvuli typum:
Dynamic SQL Error
-SQL error code = -104
-Token unknown - line 1, char 43
-D_OSOBA_JMENO
Pokud tam dam Varchar (x), je vse v poradku. Jak ho donutim brat
ohled na definovane domeny?
Predem dekuji za odpoved(i).
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
PROCEDURE a DOMENY
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 11.7.1999 12:07:40
Podle manualu muze byt parametrom pro proceduru jen
datovy typ, ne domena.
Radim
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. �ervence 1999 11:57
P�edm�t: PROCEDURE a DOMENY
Preji vsem pekneho dne,
opet otravuji s InterBaskou.
Mam definovane nasledujici domeny:
CREATE DOMAIN D_OSOBA_JMENO AS VARCHAR (20);
CREATE DOMAIN D_OSOBA_PRIJMENI AS VARCHAR (20) NOT
NULL;
CREATE DOMAIN D_OSOBA_KONTAKT AS VARCHAR (100)
NOT NULL;
A chci vytvorit proceduru pro insert:
CREATE PROCEDURE INSERT_INTO_OSOBA (I_JMENO
D_OSOBA_JMENO,
I_PRIJMENI D_OSOBA_PRIJMENI,
I_KONTAKT D_OSOBA_KONTAKT)
AS
BEGIN
INSERT INTO OSOBA (JMENO, PRIJMENI, KONTAKT)
VALUES (:I_JMENO, :I_PRIJMENI, :I_KONTAKT);
END
Pokud to takto spustim, serve me kvuli typum:
Dynamic SQL Error
-SQL error code = -104
-Token unknown - line 1, char 43
-D_OSOBA_JMENO
Pokud tam dam Varchar (x), je vse v poradku. Jak ho donutim brat
ohled na definovane domeny?
Predem dekuji za odpoved(i).
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
String to Pchar
[*] Ivo V�clavek <ivaclavek(zv)iol(tec)cz> - 11.7.1999 14:32:35
Pri pretypovani Stringu na Pchar :
var
l:string;
pl:pchar;
begin
pl:=Pchar(l);
end.
Mi dycky vyleze chyba : Error 61: Invalid Type Cast
Co s tim??? Jak pretypovat String na Pchar??? Dik Pivosz
OLE Automation Server in Word
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 11.7.1999 16:35:48
Zdravim vsechny ucastniky konference.
Vytvorit automation server v Delphi 3 je vcelku jednoduhe.
Jak ale prinutit Word, aby akceptoval muj objekt, ktery si vytvorim, a
vlozil ho do dokumentu.
Jinymi slovy:
Potrebuju udelat neco jako Equation Editor object, nebo v Delphi 3 je
komponenta Chart FX, ktera jde taky
vlozit do Wordu.
Pokud nekdo vite, mohli byste mi poslat nejaky fungujici priklad i se
zrojem.
Dik.
Uvolneni pameti po funkci
[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 11.7.1999 17:42:04
Ahoj,
zajimalo by me, jak system pracuje s pameti. Mam funkci zpracovavajici
textovy retezec, nema zadny vizualni objekt a je ulozena v separatnim
unitu. Tuto funkci volam pouze pri inicializaci programu.
Uvolni se tato funkce nejak z pameti nebo v pameti visi dokud neni
program ukoncen? Pokud visi v pameti, da se nejak zajistit, aby se tato
funkce z pameti uvolnila? V DOSu jsem to resil pres overlay, lze ve
Windows s podobnou logikou pouzit DLL?
Diky
Petr Gadourek
Offtopic - Zavinac
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 11.7.1999 19:47:02
Pokud nekdo touzi shlednout muj stupidni xicht v TV tak si pustte dneska
(nedele v 21:45) CT2 porad Zavinac no a pokud tam uvidite nekoho se
sklenickou vina v ruce hned vedle moderatora Milana Simy tak vezte ze to
je stary znamy Mac ;-). No a pokud tam nebudeme ted tak snad pristi
tyden. No a pokud ani pristi tyden, tak nas pro jistotu vystrihli,
abychom nedelali ostudu ;-)))
Jinak clanecek o nasi TV anabazi je zde:
http://www.skyfly(tec)cz/zajimavo/zavinac.htm
Mac
P.S. Standa tak trosku keca, neverte mu - ve skutecnosti jsem mnohem
horsi ;-)))Pomoc s posilanim paketu
[*] Dan Komosny <q3(zv)atlas(tec)cz> - 11.7.1999 21:20:22
Ahoj lidi
Bylo my zadano reseni projektu posilani dat po siti typu LAN. Jelikozto sem v tomto smeru uplny zacatecnik, chtel bych vas poprosit , jeslti nevite, zda existuji nejake komponenty pro to urcene ( n�co podobneho jako je sada komonent pro seriovou komunikaci ).
Popripade, ze by byl nekdo z vas tak ochotny a poskytl kousek nejakeho programu kde je toto reseno ( prijimani a poslilani paketu na urcitou IP ) abych to nastudoval . Pracuju s D3.
Predem diky DAN
Cestina v e-mailu
[*] Pavel Kohler, EBON s.r.o. <kohlerp(zv)ebon(tec)cz> - 11.7.1999 21:55:30
Dobry den,
potreboval bych poradit, jak rozkodovat cestinu v e-mailu. Zpravy prectu
v bez problemu, ale nejsou cesky.
Diky.
Pavel Kohler
Pomoc s posilanim paketu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:32:48
> Dan Komosny wrote:
>
> Ahoj lidi
>
> Bylo my zadano reseni projektu posilani dat po siti typu LAN. Jelikozto sem v tomto smeru
> uplny zacatecnik, chtel bych vas poprosit , jeslti nevite, zda existuji nejake komponenty
> pro to urcene ( n�co podobneho jako je sada komonent pro seriovou komunikaci ).
>
> Popripade, ze by byl nekdo z vas tak ochotny a poskytl kousek nejakeho programu kde je
> toto reseno ( prijimani a poslilani paketu na urcitou IP ) abych to nastudoval . Pracuju
> s D3.
Ahoj,
V D3 uz mas komponenty TServerSocket a TClientSocket. Podivej se treba do
adresare \Demos\Internet\Chat, tam mas hned jeden priklad.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Dll & =?iso-8859-2?Q?Datab=E1ze?=
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:32:56
petrhalamicek(zv)email(tec)cz wrote:
>
> Zdrav�m v�echny.
>
> Cht�l bych se zeptat, jestli je mo�n� v�bec p�istupovat z knihovny *.dll
> ke komponent� TABLE, kter� je um�st�na na n�jak�m formul��i. V�dycky, kdy�
> se nap�. pokou��m o z�pis,nebo cokoliv jin�ho prov�d�t s TABLE tak mi to
> h�e ERROR. Nem�l by n�kdo n�jak� primitivn� p��klade�ek?
Ahoj,
Priklad najdes tady:
http://www.borland.com/devsupport/delphi/ti_list/TI1339D.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
String to Pchar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:33:06
> Ivo V�clavek wrote:
>
> Pri pretypovani Stringu na Pchar :
> var
> l:string;
> pl:pchar;
>
> begin
>
> pl:=Pchar(l);
>
>
> end.
>
> Mi dycky vyleze chyba : Error 61: Invalid Type Cast
>
> Co s tim??? Jak pretypovat String na Pchar???
Ahoj,
Mas v Project | Options v zalozce Compiler zaskrtle "Huge Strings" ?
Toto je vychozi nastaveni ktere by jsi mel vzdy pouzivat.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
listview
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:33:43
> Dan Komosny wrote:
>
> Ahoj
>
> Mam jeste jeden dotaz . Chci v listview hledat text v jestnoltivych polozkach. Pomoci
> funkce findcaption se mi dari najit vzy caption jednotlivych radku. Ale kdyz chci
> prohledavat i subradky ( subitemy ) tak uz tu vznika problem - nevim jak nato :) ,je zde
Ahoj,
Pak uz budes muset prohledavat TListView.Items sam programove radek po radku.
> nejaka fukce finddata ale s te moc rozumny nejsem. Dale se chci jeste zeptat zda se da v
> listview oznacit i jednotlivy subitem ( treba ze obsahuje hledany text ).
Pokud mas D4, tak muzes pouzit udalost OnCustomDrawItem.
> Popripade jestli to listview neumi , tak jestli exituje neco podobneho ( aby to
> umoznovalo oznaceni subitemu - neco jak je v exelu ) a slo v tom poradne hledat.
Co treba pouzit TStringGrid nebo TDrawGrid.
> Dalsi moznost je ze bych to nejak ulozil do formatu execlu primo z programu. Pak by se to
> dalo prohlizet primo v nem. De to ?
To uz je slozitejsi. Pokud by na tom pocitaci byl nainstalovany Excel, tak by
jsi jej mohl zavolat a ukladat to primo volanim jeho funkci. Jestli ma byt ale
tvoje aplikace nezavisla, tak muzes zkusit pouzit ActiveX komponentu F1Book,
ktera ma ale nektera omezeni, nebo jsem tusim na DSP videl nejakou komponetu
jenz udajne umi vytvaret Excel format.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
GetPrinter
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:33:54
PAC wrote:
>
> Ahoj delphisti,
>
> tak jsem se dnes trapil s funkci GetPrinter a usoudil jsem, ze jsem asi
> peknej tupec, protoze se mi to nepodarilo prokopnout ani po celodennim
> usili.
>
> Potrebuju ziskat informace ze struktury PRINTER_INFO_2.
> At jsem se snazil jak jsem chtel, neustale mi to pada a jedna se s nejvetsi
> pravdepodobnosti o chybu pri alokaci pameti pro tuto strukturu.
Ahoj,
Ziskas je napriklad takhle:
uses
Printers, WinSpool;
procedure TForm1.Button1Click(Sender: TObject);
var
Device: array[0..CCHDEVICENAME] of Char;
Dummy: array[0..MAX_PATH] of Char;
DevMode, PrinterHandle: THandle;
Info: PPrinterInfo2;
BufSize: DWORD;
begin
if PrinterSetupDialog1.Execute then
begin
Printer.GetPrinter(Device, Dummy, Dummy, DevMode);
if OpenPrinter(Device, PrinterHandle, nil) then
begin
BufSize := 4096;
GetMem(Info, BufSize);
try
Win32Check(GetPrinter(PrinterHandle, 2, Info, BufSize, (zv)BufSize));
ShowMessage(Info^.pPrinterName);
finally
FreeMem(Info);
ClosePrinter(PrinterHandle);
end;
end;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
1. snimek v AVI pomoci Mplayer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:34:53
vegainfo(zv)post(tec)cz wrote:
>
>
> Potreboval bych poradit. Animace AVI,
> komponenta TMediaPlayer.
>
> Jako display mam urceny TPanel.
>
> Po otevreni ale se nic nezobrazi. Ja potrebuji mit
> zobrazeny prvni snimek animace. Pokud pouziju
> o jeden krok dale (metoda step), je to videt
> a nastavi se to vzdy az na 2. snimek (pote je
> nutno pouzit jeste back).
> Pokud dam visible na false, a pouziju step, nic to nedela.
>
> A dalsi problem, kdyz uz mam zobrazenou animaci a je
> neaktivni (stoji), libovolne dalsi okno, ktere se pres
> ni zobrazi ji smaze (a uz neobnovi).
Ahoj,
Pokud je to jen trochu mozne, tak pouzij Windows Media Player. Muzes si
jej importovat jako ActiveX komponentu (TActiveMovie). Nevyhodou je, ze
tvoje aplikace je pak zavisla na instalaci toho prehravace.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Zlozena komponenta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:34:00
DURDINA Michal wrote:
>
> Zdravim,
>
> Robim prave komponentu, ktora je zdedena z TCustomPanel a bude obsahovat
> TEdity, ktorych pocet a umiestnenie je zavisle na ini subore. Naviac bude
> panel
> obsahovat TScrollBar, aby mohli byt skrolovane data v Editoch, tak ako to je
> pri
> DBContorGrid.
Ahoj,
Pokud se podivas na zdrojak TDBCtrlGrid tak zjistis, ze to tak uplne jednoduche
neni. Co na to jit ale jinak, pouzij nejaky potomek TDataSetu ktery umi ukladat
data do pameti bez nutnosti pouziti BDE (jeden je napriklad v RxLib, nebo ti
muzu poslat i muj) a potom do neho natahnes data a muzes bez problemu pouzit
jiz existujici datove komponenty. Jina moznost by treba byla komponenta podobna
Object Inspectoru z Delphi, par takovych take existuje.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Detekce modemu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:35:48
Radek Pospisil wrote:
> Jde mi v podstate jen o to, zjistit, ze je nainstalovany modem a ze je
> pripraven k pouziti. Zatim to resim tak, ze na seriove porty poslu prikaz AT
Ahoj,
Muzes to udelat pomoci prochazeni vsech dostupnych TAPI zarizeni (hlavickovy
soubor TAPI.PAS si stahni z Delphi-Jedi):
uses
Tapi;
procedure TempCallback(hDevice, dwMsg, dwCallbackInstance,
dwParam1, dwParam2, dwParam3: LongInt); stdcall;
begin
end;
procedure TapiDevicesList(Items: TStrings);
var
LA: HLineApp;
I, NumDevs, TapiVersion: Integer;
ExtId: TLineExtensionID;
LineDevCaps: LPLineDevCaps;
LineCapsSize: Integer;
Name: String;
begin
LineCapsSize := 16384;
with Items do
begin
BeginUpdate;
try
Clear;
TapiCheck(lineInitialize((zv)LA, HInstance, (zv)TempCallback, nil, (zv)NumDevs));
GetMem(LineDevCaps, LineCapsSize);
try
for I := 0 to NumDevs - 1 do
begin
TapiCheck(lineNegotiateAPIVersion(LA, I, MAKELONG(0, 1), MAKELONG(0, 3),
(zv)TapiVersion, (zv)ExtId));
ZeroMemory(LineDevCaps, LineCapsSize);
LineDevCaps^.dwTotalSize := LineCapsSize;
TapiCheck(lineGetDevCapsA(LA, I, TapiVersion, 0, LineDevCaps));
with LineDevCaps^ do
if dwMediaModes and LINEMEDIAMODE_DATAMODEM <> 0 then
begin
SetString(Name, PChar(LineDevCaps) + dwLineNameOffset, dwLineNameSize);
Add(Name);
end;
end;
finally
lineShutDown(LA);
FreeMem(LineDevCaps);
end;
finally
EndUpdate;
end;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
16-bit dll ve 32-bit aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.7.1999 23:35:04
> Pavel �im��ek wrote:
>
> Ahoj vsem!
> Potreboval bych ve sve 32-bitove aplikaci ktera ma bezet pod WIN98 pouzit funkci z
> 16-bitove dll a nevim jak na to, protoze proste pouziti funkce LoadLibrary v tomto pripade
> selhava. Mohli by jste mne nekdo nakopnout spravnym smerem? Predem dekuji za vsechny rady.
Ahoj,
Ve Win95 (a snad i ve Win98) to muzes resit pomoci thunkingu, blizsi popis najdes zde:
http://www.itecuk.com/delmag/thunk95.htm
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
OLE Automation Server in Word
[*] Menfy <menfy(zv)iol(tec)cz> - 12.7.1999 01:38:17
Hele, ty ses tu taky, mohl bys me autorizovat ? Dik.
_______
Menfy design
Filip Rejlek
Zbynek Novotny
telefon : 0602 / 816 151
e-mail : menfy_design(zv)telecom(tec)cz
web : http://web.iol(tec)cz/menfy
BookMark
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 12.7.1999 07:57:06
Proc nepouzivas ochranu try except - pak tu chybu muzes eliminovat a nebo
jestlize tam uz zaznam neni tak provest nejakou akci. Ten nasledujici zaznam
asi jednoduse nenastavis protoze Bookmark ukazuje na neexistujici pointer -
ale to je jen moje domnenka. Ale podle tveho kodu proc neprehodis bookmark
programove kdyz zrovna budes mazat zaznam na kterem on je?
> -----P�vodn� zpr�va-----
> Od: jdanek(zv)fnbrno(tec)cz [mailto:jdanek(zv)fnbrno(tec)cz]
> Odesl�no: 9. �ervence 1999 14:46
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: BookMark
>
>
>
> Ahojte,
>
> Chci se zeptat, jestli nekdo nezna nejake elegantni
> reseni na problem,
> kdyz oznacim nejaky zaznam BookMarkem a prochazim databazi a
> v ni podle
> nejakeho dotazu rusim zaznamy. Potom se chci vratit na stejny
> zaznam, kde
> jsem
> byl predtim a ktery si pamatuji v Zalozce. Kdyz nebyl tento
> zaznam zrusen,
> je to OK. Bohuzel, kdyz byl tento zaznam zrusen, hlasi program chybu,
> protoze
> puvodni zaznam jiz neni v databazi (viz nasledujici
> procedura). Da se to
> nejak
> elegantne vyresit, pripadne da se nastavit najblizsi
> nasledujici nezruseny
> zaznam k puvodnimu a ted jiz zrusenemu zaznamu? Diky za kazdou radu.
>
> Jozka
> jdanek(zv)fnbrno(tec)cz
>
>
> Procedure Najdi;
> var Zalozka : TBookmark;
> begin
> Zalozka:=Table.GetBookMark;
>
> Table.First;
> While not Table.Eof do
> begin
> if Table.FieldByName('Datum').AsString < '20.5.1999' then
> Table.Delete
> else Table.Next;
> end
>
> Table.GotoBookmark(Zalozka);
> Table.FreeBookmark(Zalozka);
> end;
>
>
> Vice wavu najednou + podekovani
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 12.7.1999 08:16:51
Na Torry's je komponenta na michani vice zvuku TWavMix i se zdrojakem. Ale
jinak pokud jde o programovani her na nejake slusne urovni tak asi jen pres
DirectX.
-----P�vodn� zpr�va-----
Od: Martin Konarik [mailto:iss-tr(zv)clnet(tec)cz]
Odesl�no: 9. �ervence 1999 19:34
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Vice wavu najednou + podekovani
Diky vsem za vselijake rady ohledne blikavych obrazku. Doma to vyzkousim.
Jeste jednou se chci tady zeptat, jak to udelat, abych prehraval vice wavu
najednou - napr. zvuk motoru letadla, hlaseni vysilacky, zahrmeni, atd. Pres
MediaPlayer to pokud vim nejde, i kdyz vytvorim dva MediaPlayery, hazi to
otresnou chybu.
Martin Tower Konarik
P.S. To je legrace - vsichni tu resi vazne odborne problemy (databaze,
komunikace, ...) a ja se snazim letat po monitoru neblikajicim a pekne
vrcicim letadlem ... :-) .... Je tu nekdo, kdo vytvoril v Delphi nejakou
solidni hru ci simulator?Mail & Rezident
[*] tmara(zv)itsys(tec)cz - 12.7.1999 08:41:25
Halloa ALL!
Nevim, zda se neptam na uplny nesmysl, v tom pripade mne omluvte :o)
Da se nejak programove zjistit, ze prisel novy majl, aniz bych mel
spusteneho Outlooka?
Dale jak je mozne udelat rezidentni program (aby zabral minimum systemovych
prostredku), ktery spusti nejaky jiny program treba kazdych 10 minut?
V archivu konve jsem nic podobneho nenasel... :-( ,ale mozna jsem spatne
hledal... :o|
thx
ByE.TTimer?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.7.1999 08:43:16
Ahoj,
mam maly problem s TTimer. Pouzivam nekolik komponentu, ktere ho interne
pouzivaji (pro scrolling, akce na pozadi atp.). Pokud jich ale pouziji
na formulari priliz mnoho, pak dojde pri s pusteni pod Win 3.11 k padu
programu s skaredym GPF a ruznym hlaskam o vycerpani zdroju. Je mozne
nejak sloucit timery na ruznych komponentech (hlavne tech, ktere to maji
interne) a pouzit treba deleni casovych intervalu? Nebo lepe, existuje
na to nejaky komponent?
Dekuji za kazdy namet
Jaro B.
http://www.micrel-dev.com/delphi/TTimer?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.7.1999 08:53:33
Ahoj,
ano, existuje v RxLib je tusim TTimerList
nebo tak nejak se to jmenuje a myslim, ze
to dela presne to, co chces, tedy ze je to
jen jeden timer, ktery deli intervaly.
Dobra.
> ----------
> mam maly problem s TTimer. Pouzivam nekolik komponentu, ktere ho
> interne
> pouzivaji (pro scrolling, akce na pozadi atp.). Pokud jich ale pouziji
> na formulari priliz mnoho, pak dojde pri s pusteni pod Win 3.11 k padu
> programu s skaredym GPF a ruznym hlaskam o vycerpani zdroju. Je mozne
> nejak sloucit timery na ruznych komponentech (hlavne tech, ktere to
> maji
> interne) a pouzit treba deleni casovych intervalu? Nebo lepe, existuje
> na to nejaky komponent?
>
> Vice wavu najednou + podekovani
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 12.7.1999 08:54:53
Ahoj, ja tak trochu delam do her. O co se pokousis ?
> -----P�vodn� zpr�va-----
> Od: Martin Konarik [SMTP:iss-tr(zv)clnet(tec)cz]
> Odesl�no: 9. �ervence 1999 19:34
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Vice wavu najednou + podekovani
>
> �
> Diky vsem za vselijake rady ohledne blikavych obrazku. Doma to
> vyzkousim.
> �
> Jeste jednou se chci tady zeptat, jak to udelat, abych prehraval vice
> wavu najednou - napr. zvuk motoru letadla, hlaseni vysilacky,
> zahrmeni, atd. Pres MediaPlayer to pokud vim nejde, i kdyz vytvorim
> dva MediaPlayery, hazi to otresnou chybu.
> �
> Martin Tower Konarik
> �
> P.S. To je legrace - vsichni tu resi vazne odborne problemy (databaze,
> komunikace, ...) a ja se snazim letat po monitoru neblikajicim a pekne
> vrcicim letadlem ... :-) .... Je tu nekdo, kdo vytvoril v Delphi
> nejakou solidni hru ci simulator?QR: sumar detailu v ReportGroup
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 12.7.1999 09:11:10
Ahoj,
existuje moznost v QR (3) pod GroupFooter vytisknou sumar detailu za celou
skupinu(definovany jako dalsi query)?
Radeji priklad:
MasterQuery:
select kraj, ico, firma from firmy order by kraj,firma
DetailQuery:
select ico, produkt, sum(cena) from RadkyFaktur
where faktury.ico=master.ico
group by ico,produkt
GroupQuery:
select produkt,sum(cena) from RadkuFaktur
where RadkyFaktur.Kraj=master.kraj
group by produkt
Potrebuji v podstate tohle:
Kraj 1 - Stredocesky
firma 1 AITIX
Felicia Combi 1.6 350000,-
Octavia SLX1.6/74 450000,-
firma 2 DelphiList
Felicia Diesel 2.0 351000,-
Octavia SLX1.6/74 450000,-
Konec kraje 1
Felicia Combi 1.6 350000,-
Felicia Diesel 2.0 351000,-
Octavia SLX1.6/74 900000,-
Jeste jinak receno:
Firmy urciteho kraje podle ico
Pro kazdou firmu produkty a celkova cena
EndGroup Kraj
a jako soucasti EndGroup (tj. za Group):
Vypsany produkt a celkova cena ZA KRAJ
Nedari se mi pripojit dalsi Query za EndGroup, i kdyz si myslim,
ze by to melo nejak jit.
P.S. v ReportBuilder Pro to jde pres SubReport umisteny v sekci EndGroup,
ale bych rad zjistil, jestli preci jen neni nejaka cesta
v QR (srovnavam je pred nakupem).
Leos
TTimer?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.7.1999 09:12:57
Ahoj,
kdyz jsem potreboval vyuzit vice timeru, pak jsem pouzil pouze
jeden a nastavoval si Tag.
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
TTimer?
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 12.7.1999 09:13:20
> ano, existuje v RxLib je tusim TTimerList
> nebo tak nejak se to jmenuje a myslim, ze
>
> > mam maly problem s TTimer. Pouzivam nekolik komponentu, ktere ho
> > interne
> > pouzivaji (pro scrolling, akce na pozadi atp.). Pokud jich ale pouziji
> > na formulari priliz mnoho, pak dojde pri s pusteni pod Win 3.11 k padu
> > programu s skaredym GPF a ruznym hlaskam o vycerpani zdroju. Je mozne
> > nejak sloucit timery na ruznych komponentech (hlavne tech, ktere to
> > maji
> > interne) a pouzit treba deleni casovych intervalu? Nebo lepe, existuje
> > na to nejaky komponent?
> >
Q: Anebo jeste lepe, jde to nejak naprogramovat?
A: Ano, kupodivu i to jde...
Jenom namatkou par funkci a promennych ....
var interval_1,interval_2, ...: TTime;
function Now...
no a dale nejake to programovani, ze jo. Chce to drive nez Netscape nebo
Internet Exploreru zapnout hlavu. ;)))
Ja jsem to udelal tak, ze mam jeden timer a ten vyvolavam v nejakem
spolecnem deliteli vsech intervalu. No a pak jenom menim a kontroluju
promenne, do kterych nacitam ruzne intervaly a kdyz jsou 'zrale', tj.
dosahnou casu realizace, tak to udelam a citac vynuluju. Elementary,
dear Watson...
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Vice wavu najednou + podekovani
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 12.7.1999 09:17:00
Na michani vice zvuku se najde asi ledacos, ale asi nejvhodnejsi je pouzit
directx,
protoze to umi pouzit i hw. (treba takova SB Live umi prehravat nekolik wav
kanalu (kazda aplikace muze hrat a neprekazi si vzajemne) a ani to nezdrzuje
:-) [neberte to jako reklamu]
doporucil bych treba http://www.ingjapan.ne.jp/hori/index-e.html
Je tam "delphiX" a i sprikladama (konkretne i na prehr. vice wav, pohy
spriteama po obrazovce, a spousta dalsich veci :-)
dva media playerove Ti chybu hodit musi na vetsine zvukovek, protoze kanal
pro wav umi pouzit jen jeden. Teoreticky by mel hulakat az ten druhy :-) na
nehoz se nedostane handle pro wav ....
(nebo snad hyka jinak?)
no a co se tyce her pod d.phi - mam pocit, ze tu bude strasna spousta cervu
;-))))
Mti.
>Jeste jednou se chci tady zeptat, jak to udelat, abych prehraval vice
wavu
>najednou - napr. zvuk motoru letadla, hlaseni vysilacky, zahrmeni, atd.
Pres
>MediaPlayer to pokud vim nejde, i kdyz vytvorim dva MediaPlayery, hazi
to
>otresnou chybu.
>P.S. To je legrace - vsichni tu resi vazne odborne problemy (databaze,
>komunikace, ...) a ja se snazim letat po monitoru neblikajicim a pekne
vrcicim
>letadlem ... :-) .... Je tu nekdo, kdo vytvoril v Delphi nejakou
solidni hru ci
>simulator?Mail & Rezident
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.7.1999 09:18:26
> Da se nejak programove zjistit, ze prisel novy majl, aniz bych mel
> spusteneho Outlooka?
****V Delphi je komponentna na POP3 protokol a ta umoznuje
zjistit pocet mailu.
Slavek
> thx
>
> ByE.
>
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Problem s Nastaveni.ini
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 12.7.1999 09:42:03
Zdravim Vsechny!
Mam problem, pred casem jsem udelal mensi aplikaci, ktera si ukladana ruzne
nastaveni do souboru
Nastaveni.ini. Tento soubor se uklada do adresare kde je nainstalovana moje
aplikace.
Napr: \Moje aplikace\Nastaveni.ini
Z toho to souboru se samozrejme i to nastaveni moje aplikace nacita.
Problem je v tom, ze pro spousteni aplikace vyuzivam Scheduler na NT-ckach
(WinAT).
Ten nejakym zahadnym zpusobem tu aplikaci vola jako by byla nainstalovana v
WinNT\System32\Nastaveni.ini
Ja ukladam do toho souboru, tak ze si zjistim v jakem adresari je ta
aplikace spoustena a tam vytvorim nebo modifikuji ten soubor Nastaveni.ini
GetDir(0, Adresar)
Nevite nekdo kde je zakopany pes?
Kdyz tu aplikaci spoustim z nabidky START tak je vse OK!, ale kdyz ji teda
spustim pres ten Scheduler tak ten soubor Nastaveni.ini nehleda z toho
adresare kde je ta aplikace nainstalovana, ale tedy v WinNT\System32.
P.S.: Snad jsem popsal muj problem vystizne.
Dekuji Vsem za projeveni zajmu o uj problem.
S pozdraven Novak J.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.65 / Virov� b�ze: 37 - datum vyd�n�: 28.6.1999
Cestina v e-mailu
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 12.7.1999 09:49:21
Postu z e-mailu dej do clibordu a pak to prenes do poznamkoveho bloku (nebo wordu) - zde oznac text a zkus zmenit typ pisma - obcas to jde rozkodovat
Pavel
----------
> Odes�latel: Pavel Kohler, EBON s.r.o. <kohlerp(zv)ebon(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Cestina v e-mailu
> Datum: 11. �ervence 1999 21:55
>
> Dobry den,
>
> potreboval bych poradit, jak rozkodovat cestinu v e-mailu. Zpravy prectu
> v bez problemu, ale nejsou cesky.
>
> Diky.
>
> Pavel Kohler
>
> Resource editor pro Win32?
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 12.7.1999 09:05:09
### Zdenek napsal dne 10. j�l 1999 20:57
>Diky za tip, zkusil jsem ho, ale bude tady asi jeste
>nejaky jiny problem.
>Staci, kdyz do editoru nactu to EXE a okamzite
>dam SAVE, a aplikace uz odmita pracovat
>spusti se, pipne a okamzite se ukonci bez zobrazeni
>akekoliv zpravy), prestoze zadne upravy nedelam.
Ahoj,
tak to mi je luto, uviedol som, ze to nie je vsemocne. Pri vacsine aplikacii funguje spolahlivo (starsieho data), ale stretol som sa okrem toho co sa stalo tebe, ze po prekompilovani sa nezobrazovali korektne nejake image resources. Ak sa mi podari zohnat nieco ine, dam Ti vediet. Mozno by pomohlo iba zohnat najnovsiu verziu, ak existuje, tato je uz dos stareho data... alebo pouzit localizator, ktory uz spomenul Zbysek Hlinka , alebo ked ti ide iba o textove resources pouzi nejaky hexeditor, napr Shareware prg. HexEdit 2.54 firmy BreakPoint SW http://www.bpsoft.com , a priamo v exaci poprepisuj vsetky texty, ktore chces, ale toto mi uz pripada trochu pritiahnute za vlasy...
Jano
jj_delphi(zv)ke.ubp.sk
### Jano napsal dne 8 Jul 99, v 13:05 :
Od: "Jano" <jj_delphi(zv)ke.ubp.sk>
> Ahoj,
>
> uz dost davno sa mi podarilo zohnal z I-netu ResourceEditor (16bit,32bit) od Symantecu:
> http://www.fortunecity.com/roswell/leehigh/0/resedit.zip (1,77MB)
> v starych logoch som objavil linku nan a skusil som ju. Na moje prekvapenie, este tam je :-)
> Samozrejme, ze to nie je vsemocne :-(
>
> Jano
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
kamenovani za virus
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 12.7.1999 10:05:15
----- P�vodn� zpr�va -----
Od: Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 12. �ervence 1999 7:48
P�edm�t: RE: kamenovani za virus
Bylo napsano:
Problem je totiz v tom za jak dlouho dorazi prispevky do konference
..... Na druhe strane ale KDYBY NIKDO NEPOSLAL NIC PROTOZE SI BUDE
MYSLET ZE TO POSLE NEKDO JINY, TAK TU KONFERENCI MUZEME ZABALIT.
Konec citatu
Tak presne to je ! BTW, proc zrovna tato konference chodi tak strasne
pomalu ? Na Pandore (a i jinde) to chodi v realnem case s odezvou max.
desitky sekund ?!
Mira
resource dialog
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 12.7.1999 10:08:52
ahoj
zajima mne v jakych pripadech je vyhodne ulozeni dialogu jako resource
a
jak zpracovat - ziskat hodnoty, ktere uzivatel do takoveho dialogu zada ...
diky
Zdenek Fryz
HTTP proxy - F.Piette
[*] Iko <iko(zv)kamarad(tec)cz> - 12.7.1999 10:13:40
Potrebujem pomoc. Mam spravenu aplikaciu na stahovanie
dokumentov cez HTTP od F.Pietteho. Ale teraz sa pripajam cez
proxy a nejak mi to nechce ist. Do vlastnosti Proxy som dal
10.0.0.1, co je adresa proxy servera a Proxy port som dal 3128, co
je port. Tie hodnoty som okukal z Explorera a ten v pohode ide. Co
robim zle?Problem s Nastaveni.ini
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 12.7.1999 10:14:09
>
> Zdravim Vsechny!
> Mam problem, pred casem jsem udelal mensi aplikaci, ktera si
> ukladana ruzne
> nastaveni do souboru
> Nastaveni.ini. Tento soubor se uklada do adresare kde je
> nainstalovana moje
> aplikace.
> Napr: \Moje aplikace\Nastaveni.ini
> Z toho to souboru se samozrejme i to nastaveni moje aplikace nacita.
> Problem je v tom, ze pro spousteni aplikace vyuzivam
> Scheduler na NT-ckach
> (WinAT).
> Ten nejakym zahadnym zpusobem tu aplikaci vola jako by byla
> nainstalovana v
> WinNT\System32\Nastaveni.ini
> Ja ukladam do toho souboru, tak ze si zjistim v jakem adresari je ta
> aplikace spoustena a tam vytvorim nebo modifikuji ten soubor
> Nastaveni.ini
> GetDir(0, Adresar)
> Nevite nekdo kde je zakopany pes?
Nepotrebujez zjistovat V JAKEM adresari je aplikace spoustena,
ale Z JAKEHO adresare je spoustena. Tedy musis zjistit misto,
kde je ulozen exe (namisto aktualniho adresare).
To muzes zjistit bud pomoci Applicatioon.ExeName nebo funkci
ParamStr(0)
> Kdyz tu aplikaci spoustim z nabidky START tak je vse OK!, ale
> kdyz ji teda
> spustim pres ten Scheduler tak ten soubor Nastaveni.ini nehleda z toho
> adresare kde je ta aplikace nainstalovana, ale tedy v WinNT\System32.
Protoze scheduler ma jiny aktualni adresar, kdezto pri spousteni pomoci RUN
je aplikaci nastaven aktualni adresar toho RUNu, coz je shodou okolnosti
ten adresar, ve kterem jsi nalezl i svoje EXE.
Jura
Rychlost pripojenia a prenesene bajty
[*] Iko <iko(zv)kamarad(tec)cz> - 12.7.1999 10:14:18
Zdravim
ako zistim, akou rychlostou sa modem pripojil a kolko bajtov
preniesol von a dovntra? Diky za odpoved...TTimer?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.7.1999 10:15:08
Skvele, ale jak to udelat u komponentu, kde interne pouzivaji TTimer?
Napr. ma deklarovany FTimer:TTimer a nastavuje se jenom interval. A
kdyz nemam zdrojak co pak?
Diky
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 12. �ervence 1999 8:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TTimer?
>
> Ahoj,
> ano, existuje v RxLib je tusim TTimerList
> nebo tak nejak se to jmenuje a myslim, ze
> to dela presne to, co chces, tedy ze je to
> jen jeden timer, ktery deli intervaly.
>
> Dobra.
>
> > ----------
> > mam maly problem s TTimer. Pouzivam nekolik komponentu, ktere ho
> > interne
> > pouzivaji (pro scrolling, akce na pozadi atp.). Pokud jich ale
> pouziji
> > na formulari priliz mnoho, pak dojde pri s pusteni pod Win 3.11 k
> padu
> > programu s skaredym GPF a ruznym hlaskam o vycerpani zdroju. Je
> mozne
> > nejak sloucit timery na ruznych komponentech (hlavne tech, ktere to
> > maji
> > interne) a pouzit treba deleni casovych intervalu? Nebo lepe,
> existuje
> > na to nejaky komponent?
> >
> > Uvolneni pameti po funkci
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 12.7.1999 10:17:00
Petr Ga�ourek wrote:
>
> zajimalo by me, jak system pracuje s pameti. Mam funkci zpracovavajici
> textovy retezec, nema zadny vizualni objekt a je ulozena v separatnim
> unitu. Tuto funkci volam pouze pri inicializaci programu.
> Uvolni se tato funkce nejak z pameti nebo v pameti visi dokud neni
> program ukoncen? Pokud visi v pameti, da se nejak zajistit, aby se tato
> funkce z pameti uvolnila? V DOSu jsem to resil pres overlay, lze ve
> Windows s podobnou logikou pouzit DLL?
>
Jestli je v separatnim unitu nebo ne je uplne jedno. Pamet se neuvolni,
proc taky, vzdyt je to kod programu.
Pokud chces tu pamet skutecne uvolnit, musis to dat do DLL, tu knihovnu
RUCNE naloadovat (LoadLibrary), pak ziskat adresu funkce
(GetProcAddress), pak ji zavolat a nakonec uvolnit knihovnu
(FreeLibrary).
V pripade knihovny linkovane pri startu toto neplati, tam se knihovna
uvolni az pri ukonceni procesu, ktery ji pouziva. Respektive se snizi
nejaky citac a je-li nulovy, pak se knihovna uvolni (to pokud ji vyuziva
vic procesu).
Ale unika mi smysl... To je ta funkce tak velka?
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Problem s Nastaveni.ini
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.7.1999 10:17:12
Ahoj,
problem asi bude v tom, ze fce GetDir nevrati adresar,
ze ktereho je aplikace spustena, ale vrati tzv. pracovni
adresar.
Reseni je snadne, bud vytvor link na tu svou aplikaci
a vypln u nej pracovni adresar a ze scheduleru nespoustej
aplikaci, ale ten link, nebo programove zjistis ten adresar
takto
PrgPath:=ExtractFilePath(ParamStr(0));
{ a pro jistotu }
if PrgPath[Length(PrgPath)]<>'\' then PrgPath:=PrgPath+'\';
IniFile:=TIniFile.Create(PrgPath+'Nastaveni.ini');
Pozor! Pokud se bude jednat o batch, musis to asi
misto ParamStr(0) zjistovat pres Application.ExeFileName
(nebo tak nejaxe ta vlastnost jmenuje)
Dobra.
PS: na to
> Odchoz� zpr�va neobsahuje viry.
bych nespolehal ;-)> ----------
> Mam problem, pred casem jsem udelal mensi aplikaci, ktera si ukladana
> ruzne
> nastaveni do souboru
> Nastaveni.ini. Tento soubor se uklada do adresare kde je nainstalovana
> moje
> aplikace.
> Napr: \Moje aplikace\Nastaveni.ini
> Z toho to souboru se samozrejme i to nastaveni moje aplikace nacita.
> Problem je v tom, ze pro spousteni aplikace vyuzivam Scheduler na
> NT-ckach
> (WinAT).
> Ten nejakym zahadnym zpusobem tu aplikaci vola jako by byla
> nainstalovana v
> WinNT\System32\Nastaveni.ini
> Ja ukladam do toho souboru, tak ze si zjistim v jakem adresari je ta
> aplikace spoustena a tam vytvorim nebo modifikuji ten soubor
> Nastaveni.ini
> GetDir(0, Adresar)
> Nevite nekdo kde je zakopany pes?
> Kdyz tu aplikaci spoustim z nabidky START tak je vse OK!, ale kdyz ji
> teda
> spustim pres ten Scheduler tak ten soubor Nastaveni.ini nehleda z toho
> adresare kde je ta aplikace nainstalovana, ale tedy v WinNT\System32.
>
> TTimer?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.7.1999 10:28:27
Tak to nevim. Jak rika PV : nepoouzivat komponenty,
ke kterym nemas zdojak. (vim, ze nekdy se neda)
BTW: A jak to vlastne funguje ? Co se teda vykona v
Timer1.OnTimer ?
> ----------
> Skvele, ale jak to udelat u komponentu, kde interne pouzivaji TTimer?
> Napr. ma deklarovany FTimer:TTimer a nastavuje se jenom interval. A
> kdyz nemam zdrojak co pak?
> > ano, existuje v RxLib je tusim TTimerList
> > nebo tak nejak se to jmenuje a myslim, ze
> > to dela presne to, co chces, tedy ze je to
> > jen jeden timer, ktery deli intervaly.
> > > ----------
> > > mam maly problem s TTimer. Pouzivam nekolik komponentu, ktere ho
> > > interne
> > > pouzivaji (pro scrolling, akce na pozadi atp.). Pokud jich ale
> > pouziji
> > > na formulari priliz mnoho, pak dojde pri s pusteni pod Win 3.11 k
> > padu
> > > programu s skaredym GPF a ruznym hlaskam o vycerpani zdroju. Je
> > mozne
> > > nejak sloucit timery na ruznych komponentech (hlavne tech, ktere
> to
> > > maji
> > > interne) a pouzit treba deleni casovych intervalu? Nebo lepe,
> > existuje
> > > na to nejaky komponent?
> HARDLOCKy
[*] Michal �viga <proton(zv)iol(tec)cz> - 12.7.1999 10:41:15
Nevim, jestli dela to co potrebujes, ale firmu Alcor mam va databazi.
Jsou to firmy z oboru elektroniky a elektrotechniky.
ALCOR - Moravsk� p��stroje
Adresa: n�m�st� T.G. Masaryka 2433, 760 52, Zl�n
Tel.: 067/36 306
Fax: 067/36 406
Internet: http://www.mii(tec)cz
E-mail: info(zv)mii(tec)cz
Vse najdes na www.cd-amper(tec)cz
S pozdravem
Michal �viga (Sviga)
PROTON
CD KATALOG AMPER '99
http://www.cd-amper(tec)cz
mailto:proton(zv)iol(tec)cz
tel., fax:02/65 15 052
mobil:0602/ 207 557
-----P�vodn� zpr�va-----
Od: Ales Beran <beran(zv)vishay-pt(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 2. �ervence 1999 16:01
P�edm�t: HARDLOCKy
�au,
nev�te n�hodou n�kdo o n�kom kdo d�l� a prod�v� solidn� hardlocky nebo n�co
podobn�ho. A hlavn� s ovlada�ema do Delphi 1 i 3, kter� fungujou. Nechci
RAINBOW. Sly�el jsem o firm� Alcor, ale n�jak se mi je zat�m nepoda�ilo
sehnat.
D�ky za ka�dou zpr�vu.
Ale�
Mail & Rezident
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 12.7.1999 10:45:03
----- P�vodn� zpr�va -----
Od: <tmara(zv)itsys(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 12. �ervence 1999 8:41
P�edm�t: Mail & Rezident
> Halloa ALL!
> Nevim, zda se neptam na uplny nesmysl, v tom pripade mne omluvte :o)
>
> Da se nejak programove zjistit, ze prisel novy majl, aniz bych mel
> spusteneho Outlooka?
Pokud mas Delphi 4, mas tam v zalozce Internet komponenty TNM...., mimo
jine i TNMPOP3. Na tu se pripojis (po vyplneni potrebnych properties)
napr. v Timeru (kdyz to chces cyklicky) prikazem
POP3.connect;
a kontrolujes udalost OnConnect napr:
procedure TFMain.POP31Connect(Sender: TObject);
begin
POP31.Disconnect;
if POP31.MailCount > 0 then
MessageBox(Handle,PChar('Po�et zpr�v v po�t� Ondrisek:
'+IntToStr(POP31.MailCount)),'POP',mb_Ok or mb_IconInformation or
mb_DefButton1);
end;
No a vis-li, kolik tam bylo mailu pred tim, vis i zda nejaky pribyl.
BTW, nebylo by od veci, kdyby se v prosbach o radu objevovala verze
Delphi, pro kterou se rada vyzaduje. Jinak se stane, ze nektere odpovedi
jsou zbytecne - nemas-li D4, bude Ti muset poradit nekdo jiny.
Mira
TTimer?
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 12.7.1999 10:54:03
Aha... Tak to ovsem uplne meni situaci.
> Tak to nevim. Jak rika PV : nepoouzivat komponenty,
> ke kterym nemas zdojak. (vim, ze nekdy se neda)
>
Bat, bat... (t s hackem) :)
> BTW: A jak to vlastne funguje ? Co se teda vykona v
> Timer1.OnTimer ?
>
Ono by se to prave dalo obejit i tak, ze by se ta akce (pokud to jde,
pokud se tam nevolaji nejake private metody nebo nepouzivaji nejake
privatni data). Tak jsi to myslel, ze jo.
Nebo si udelat naslednika a tam to osetrit.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Problem s Nastaveni.ini
[*] Ing. Jarom�r Sola�������g���-g�3 - 12.7.1999 10:58:04
Zkus pouzit misto GetDir treba:
Adresar := ExtractFilePath(Application.ExeName);
Jarek Solar (jarda(zv)foresta(tec)cz)
-----P�vodn� zpr�va-----
Od: Novak Josef <jnovak(zv)anect(tec)cz>
Komu: 'Delphi konference' <delphi-l(zv)fwd(tec)cz>
Datum: 12. �ervence 1999 10:43
P�edm�t: Problem s Nastaveni.ini
>Zdravim Vsechny!
>Mam problem, pred casem jsem udelal mensi aplikaci, ktera si ukladana ruzne
>nastaveni do souboru
>Nastaveni.ini. Tento soubor se uklada do adresare kde je nainstalovana moje
>aplikace.
>Napr: \Moje aplikace\Nastaveni.ini
>Z toho to souboru se samozrejme i to nastaveni moje aplikace nacita.
>Problem je v tom, ze pro spousteni aplikace vyuzivam Scheduler na NT-ckach
>(WinAT).
>Ten nejakym zahadnym zpusobem tu aplikaci vola jako by byla nainstalovana v
>WinNT\System32\Nastaveni.ini
>Ja ukladam do toho souboru, tak ze si zjistim v jakem adresari je ta
>aplikace spoustena a tam vytvorim nebo modifikuji ten soubor Nastaveni.ini
> GetDir(0, Adresar)
>Nevite nekdo kde je zakopany pes?
>Kdyz tu aplikaci spoustim z nabidky START tak je vse OK!, ale kdyz ji teda
>spustim pres ten Scheduler tak ten soubor Nastaveni.ini nehleda z toho
>adresare kde je ta aplikace nainstalovana, ale tedy v WinNT\System32.
>
>P.S.: Snad jsem popsal muj problem vystizne.
>Dekuji Vsem za projeveni zajmu o uj problem.
>
>S pozdraven Novak J.
>
>---
>Odchoz� zpr�va neobsahuje viry.
>Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>Verze: 6.0.65 / Virov� b�ze: 37 - datum vyd�n�: 28.6.1999
Problem s Nastaveni.ini
[*] daniel.hrna(zv)vm.sme(tec)cz - 12.7.1999 11:00:02
a co takhle volat ten INI soubor pres:
CHdir(Paramstr(0));
a potom obsluhu INI souboru.
Dan
-----P�vodn� zpr�va-----
Od: Novak Josef [mailto:jnovak(zv)anect(tec)cz]
Odesl�no: 12. �ervence 1999 9:42
Komu: 'Delphi konference'
P�edm�t: Problem s Nastaveni.ini
Zdravim Vsechny!
Mam problem, pred casem jsem udelal mensi aplikaci, ktera si ukladana ruzne
nastaveni do souboru
Nastaveni.ini. Tento soubor se uklada do adresare kde je nainstalovana moje
aplikace.
Napr: \Moje aplikace\Nastaveni.ini
Z toho to souboru se samozrejme i to nastaveni moje aplikace nacita.
Problem je v tom, ze pro spousteni aplikace vyuzivam Scheduler na NT-ckach
(WinAT).
Ten nejakym zahadnym zpusobem tu aplikaci vola jako by byla nainstalovana v
WinNT\System32\Nastaveni.ini
Ja ukladam do toho souboru, tak ze si zjistim v jakem adresari je ta
aplikace spoustena a tam vytvorim nebo modifikuji ten soubor Nastaveni.ini
GetDir(0, Adresar)
Nevite nekdo kde je zakopany pes?
Kdyz tu aplikaci spoustim z nabidky START tak je vse OK!, ale kdyz ji teda
spustim pres ten Scheduler tak ten soubor Nastaveni.ini nehleda z toho
adresare kde je ta aplikace nainstalovana, ale tedy v WinNT\System32.
P.S.: Snad jsem popsal muj problem vystizne.
Dekuji Vsem za projeveni zajmu o uj problem.
S pozdraven Novak J.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.65 / Virov� b�ze: 37 - datum vyd�n�: 28.6.1999
Problem s Nastaveni.ini
[*] Virag Ivan <ViragI(zv)radiomobil(tec)cz> - 12.7.1999 11:01:36
Nepou��vej GetDir, proto�e ten Scheduler to p�enastav� d��v ne� spust� tu
tvoj� aplikaci. Na za��tku svoj� aplikace pou�ij tu��m
GetFilePath(ParamStr(0)). ParamStr(0) ozna�uje n�zev souboru tvoj� aplikace.
Ivan Vir�g
Problem s Nastaveni.ini
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 12.7.1999 11:08:52
> Ten nejakym zahadnym zpusobem tu aplikaci vola jako by byla
> nainstalovana v
> WinNT\System32\Nastaveni.ini
> Ja ukladam do toho souboru, tak ze si zjistim v jakem adresari je ta
> aplikace spoustena a tam vytvorim nebo modifikuji ten soubor
> Nastaveni.ini
> GetDir(0, Adresar)
Ja to delam takhle:
IniFile := TIniFile.Create(ExtractFilePath(paramstr(0))+'nastaveni.ini');==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Mail & Rezident
[*] tmara(zv)itsys(tec)cz - 12.7.1999 11:10:02
Bohuzel zatim vlastnim "pouze" D3 C/S
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o.
[mailto:bonnel(zv)telecom(tec)cz]
Odesl�no: 12. �ervence 1999 10:45
Komu: tmara(zv)itsys(tec)cz
P�edm�t: Re: Mail & Rezident
----- P�vodn� zpr�va -----
Od: <tmara(zv)itsys(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 12. �ervence 1999 8:41
P�edm�t: Mail & Rezident
> Halloa ALL!
> Nevim, zda se neptam na uplny nesmysl, v tom pripade mne omluvte :o)
>
> Da se nejak programove zjistit, ze prisel novy majl, aniz bych mel
> spusteneho Outlooka?
Pokud mas Delphi 4, mas tam v zalozce Internet komponenty TNM...., mimo
jine i TNMPOP3. Na tu se pripojis (po vyplneni potrebnych properties)
napr. v Timeru (kdyz to chces cyklicky) prikazem
POP3.connect;
a kontrolujes udalost OnConnect napr:
procedure TFMain.POP31Connect(Sender: TObject);
begin
POP31.Disconnect;
if POP31.MailCount > 0 then
MessageBox(Handle,PChar('Po�et zpr�v v po�t� Ondrisek:
'+IntToStr(POP31.MailCount)),'POP',mb_Ok or mb_IconInformation or
mb_DefButton1);
end;
No a vis-li, kolik tam bylo mailu pred tim, vis i zda nejaky pribyl.
BTW, nebylo by od veci, kdyby se v prosbach o radu objevovala verze
Delphi, pro kterou se rada vyzaduje. Jinak se stane, ze nektere odpovedi
jsou zbytecne - nemas-li D4, bude Ti muset poradit nekdo jiny.
Mira
Cestina v e-mailu
[*] Pavel Kohler, EBON s.r.o. <kohlerp(zv)ebon(tec)cz> - 12.7.1999 11:27:41
To ano, ale potrebuju to osetrit automaticky.
Stahnul jsem RFC popis a rozepsane kody ISO-8859-2, tak leda napsat
rucne prohledavani a konverzi :-(.
Doufal jsem, ze to nekde jiz existuje..
Pavel Kohler
> -----Original Message-----
> From: Pavel ZIDEK [SMTP:kopr(zv)kopr(tec)cz]
> Sent: Monday, July 12, 1999 9:49 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Cestina v e-mailu
>
> Postu z e-mailu dej do clibordu a pak to prenes do poznamkoveho bloku
> (nebo wordu) - zde oznac text a zkus zmenit typ pisma - obcas to jde
> rozkodovat
> Pavel
>
> ----------
> > Odes�latel: Pavel Kohler, EBON s.r.o. <kohlerp(zv)ebon(tec)cz>
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: Cestina v e-mailu
> > Datum: 11. �ervence 1999 21:55
> >
> > Dobry den,
> >
> > potreboval bych poradit, jak rozkodovat cestinu v e-mailu. Zpravy
> prectu
> > v bez problemu, ale nejsou cesky.
> >
> > Diky.
> >
> > Pavel Kohler
> >
> > WsControl
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 12.7.1999 11:37:09
At 08:56 10.7.1999 +0200, you wrote:
>> Ano - vim to velice presne. Konkretne je to API pro volani
>> TdiQueryInformationEx a TdiSetInformationEx do kerneloveho driveru
>> (protokoloveho zasobniku).
>> Vypada asi takhle:
>Dik za help,
>len by ma zaujimalo kam chodievas na taketo informacie ? ;-D
Debugger, zpetny assembler, halda trpelivosti a xx hodin unavujici prace...
S. Kolar (standa(zv)winroute.com)
TTimer?
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.7.1999 11:40:45
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 12. �ervence 1999 10:28
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TTimer?
>
> Tak to nevim. Jak rika PV : nepoouzivat komponenty,
> ke kterym nemas zdojak. (vim, ze nekdy se neda)
>
> BTW: A jak to vlastne funguje ? Co se teda vykona v
> Timer1.OnTimer ?
[Bene� Jaroslav] OnTimer je udalost uvnitr komponentu, neni
verejna a je na ni zrejme povesena procedura, aby komponent ozil. Create
a Destroy je uvnitr a asi podobne udelany jako u komponentu CCUBE (kde
ozivuje krychli tj. nuti ji otacet se - je to na moji strance ke
stazeni). Mozna to jde nejak obejit (attachnout timer?), jinak to asi
lze zaridit tak, ze pouziju TTimerList a budu ozivovat komponent jeji
metodou ve spravnou dobu/interval (ovsem pokud je pri navrhu komponentu
s tim pocitano a takovou metodu komponent ma, ** ale u te moji ji asi
nema). Prave na CCube je to pekne videt, pouzijes dve krychle a mas tam
hned dva timery...
Jaro B.
> ----------
> > Skvele, ale jak to udelat u komponentu, kde interne pouzivaji
> TTimer?
> > Napr. ma deklarovany FTimer:TTimer a nastavuje se jenom interval. A
> > kdyz nemam zdrojak co pak?
> > > ano, existuje v RxLib je tusim TTimerList
> > > nebo tak nejak se to jmenuje a myslim, ze
> > > to dela presne to, co chces, tedy ze je to
> > > jen jeden timer, ktery deli intervaly.
> > > > ----------
> > > > mam maly problem s TTimer. Pouzivam nekolik komponentu, ktere ho
> > > > interne
> > > > pouzivaji (pro scrolling, akce na pozadi atp.). Pokud jich ale
> > > pouziji
> > > > na formulari priliz mnoho, pak dojde pri s pusteni pod Win 3.11
> k
> > > padu
> > > > programu s skaredym GPF a ruznym hlaskam o vycerpani zdroju. Je
> > > mozne
> > > > nejak sloucit timery na ruznych komponentech (hlavne tech, ktere
> > to
> > > > maji
> > > > interne) a pouzit treba deleni casovych intervalu? Nebo lepe,
> > > existuje
> > > > na to nejaky komponent?
> > HARDLOCKy
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 12.7.1999 12:17:28
Tahle firma d�l� n�co jin�ho. Ale ta firma na HARDLOCKY se take jmenuje
Alcor a sidli v Praze. Ovladace pro delphi ma a neni s nimi zadna potiz.
Sam jsem je pouzival. Mam na ni ale jenom telefonni cislo, jinak jsem ji
nasel v tel. seznamu u telecomu. Jestli ti to pomuze, tak : 02/20570308.
> -----P�vodn� zpr�va-----
> Od: Michal �viga [SMTP:proton(zv)iol(tec)cz]
> Odesl�no: 12. �ervence 1999 10:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: HARDLOCKy
>
> Nevim, jestli dela to co potrebujes, ale firmu Alcor mam va databazi.
> Jsou to firmy z oboru elektroniky a elektrotechniky.
>
> ALCOR - Moravsk� p��stroje
> Adresa: n�m�st� T.G. Masaryka 2433, 760 52, Zl�n
> Tel.: 067/36 306
> Fax: 067/36 406
> Internet: http://www.mii(tec)cz
> E-mail: info(zv)mii(tec)cz
>
> Vse najdes na www.cd-amper(tec)cz
>
> S pozdravem
>
> Michal �viga (Sviga)
> PROTON
> CD KATALOG AMPER '99
> http://www.cd-amper(tec)cz
> mailto:proton(zv)iol(tec)cz
> tel., fax:02/65 15 052
> mobil:0602/ 207 557
> -----P�vodn� zpr�va-----
> Od: Ales Beran <beran(zv)vishay-pt(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 2. �ervence 1999 16:01
> P�edm�t: HARDLOCKy
>
>
> �au,
>
> nev�te n�hodou n�kdo o n�kom kdo d�l� a prod�v� solidn� hardlocky nebo
> n�co
> podobn�ho. A hlavn� s ovlada�ema do Delphi 1 i 3, kter� fungujou.
> Nechci
> RAINBOW. Sly�el jsem o firm� Alcor, ale n�jak se mi je zat�m
> nepoda�ilo
> sehnat.
>
> D�ky za ka�dou zpr�vu.
>
> Ale�
>
>
>
> Cestina v e-mailu
[*] Radoslav Jalc <rjalc(zv)ke.telecom.sk> - 12.7.1999 12:49:10
> > potreboval bych poradit, jak rozkodovat cestinu v e-mailu. Zpravy prectu
> > v bez problemu, ale nejsou cesky.
> >
> > Diky.
> >
> > Pavel Kohler
> >
Ahoj,
podrobne info o problematike rozkodovania cestiny najdes na www.cestina(tec)cz
-
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: RJalc(zv)ke.telecom.sk | Mobil: +421-905-489364
Spousteni Delphi z CD
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.7.1999 13:30:07
Ahoj,
pred nedavnem se zde nekdo dotazoval, zda lze spoustet Delphi z CD.
Nasel jsem nejake povidani, je to dost stare (pro Delphi 1), ale jako
inspirace...
Jaro B.//-----------------------------
Source: "The Unofficial Newsletter of Delphi Users - Issue #4 - May
24th, 1995"
Running Delphi From A CD
by Berthold Daum - CIS:100026,3365
With just a few modifications, you can run DELPHI almost entirely from
the CD. This article will show you step-by-step how its done.
The DELPHI CD contains a folder RUNIMAGE which contains all files in
uncompressed format in the same directory structure as it is installed
on the harddisk. As a result, it is simply a matter of finding out
which files are modifiable or performance critical, and which INI-files
must be changed to redirect directories to the CD-drive. This is how it
is done:
First a normal DELPHI installation is performed. This will create a
directory structure and will create the necessary INI-files and modify
some system files. So, you still need that 70MB+ for a full
installation, but it will be possible to reclaim at least 50MB
afterwards.
For the purpose of this example, let us assume that DELPHI was installed
on drive C:\, that you plan to store your applications on drive E:\ in
folder E:\DELPHI, and that the CD is drive G:\.
Changes to the Delphi Development System
The first step is to delete all files and directories within C:\DELPHI
and then recreate the C:\DELPHI\BIN and C:\DELPHI\LIB directories. Next,
copy COMPLIB.DCL from G:\RUNIMAG\DELPHI\BIN to C:\DELPHI\BIN. This is
necessary to avoid trouble when the component library is changed (adding
or removing of components). Also, copy DELPHI.HDX from
G:\RUNIMAG\DELPHI\BIN to E:\DELPHI. This is the keyword file for the
multi-file help system and will be updated when component help files are
merged into the help system.The C:\DELPHI\LIB directory will contain
additional components for global use which were not on the CD (e.g.,
CURREDIT).
Now copy the whole folder G:\RUNIMAG\DELPHI\GALLERY to
C:\DELPHI\GALLERY. The gallery contains the templates for the forms
gallery. To have it on the hard disk allows you to add additional forms
later on. When you copy these files the copies will be set to read-only.
You must remove the read-only attribute from all files in the gallery
and its subfolders. Otherwise DELPHI will not correctly rename a unit
when you create a new form. The Windows FileManager is capable of making
these attribute changes if you select all files in GALLERY and choose
PROPERTIES. Then click the READ ONLY check box until it is clear. Repeat
these steps for the subfolders.
The next step is to massage some INI-files. These are found in the
WINDOWS folder on your system drive (usually drive C:).
For the DELPHI.INI file make the following changes:
1. In the [Library] section:
SearchPath=E:\DELPHI;c:\DELPHI\LIB;G:\RUNIMAGE\DELPHI\LIB
This tells DELPHI to search through your private directory E:\DELPHI\,
the global directory C:\DELPHI\LIB\ and finally the CDROM
G:\RUNIMAGE\DELPHI\LIB\ when adding new components to the component
library.
2. In the [Experts] section:
ExptDemo=G:\RUNIMAGE\DELPHI\BIN\EXPTDEMO.DLL
This tells DELPHI to load the expert module from the CD.
3. In the [PropertyEditors] section:
EditMaskFile=G:\RUNIMAGE\DELPHI\BIN\nn.DEM
with nn = what was there (depending on country )
For the MULTIHLP.INI file make the following changes:
1. From the second entry onwards change the drive letter C: into
G:\RUNIMAGE, like:
[Index Path]
DELPHI.HDX=E:\DELPHI
DELPHI.HLP=G:\RUNIMAGE\DELPHI\BIN
etc...
The same changes apply to the entries in WINHELP.INI . (except that
there is no DELPHI.HDX). Note that DELPHI.HDX must be copied into the
directory where you develop your application (in my case E:\DELPHI).
Otherwise, even if directed by MULTIHLP.INI, DELPHI would not find this
file.
For the WIN.INI file, make the following changes:
1. In the [Extensions] section:
dfm=G:\RUNIMAGE\DELPHI\BIN\delphi.exe ^.dfm
dpr=G:\RUNIMAGE\BIN\delphi.exe ^.dpr
to tell the program manager where to find DELPHI for DFM and DPR files.
Lastly highlight the DELPHI program icon in the program manager, select
PROPERTIES and change the filename in COMMAND LINE to
G:\RUNIMAGE\DELPHI\BIN\DELPHI.EXE.
Note on icons: The program manager stores the application icons in its
own INI file. So the icons will show up even when the CD is not in the
drive. Other desktops, like my beloved DROPPER, retrieve the icons at
startup-time from the application. When the CD is not in the drive, the
icon will be empty and will stay empty during the whole session. The
solution is to assign some other icons located on the hard drive.
Changes to the Local Interbase Server
Local Interbase Server
For the local data base server it is better to keep the core database
where it was installed (iblocal,idapi). You may want to delete the
example databases (C:\IBLOCAL\EXAMPLES). The CD-ROM is just too slow.
However, you can remove all help files *.HLP from C:\IBLOCAL\BIN.
The Database Desktop
If the database desktop is rarely used, you can run it from the CD -
however, it takes a time to start up. Just delete the C:\DBD folder and
reroute it to the G:\RUNIMAGE\DBD directory.
For the DELPHI.INI file, make the following changes:
1. In the [Transfer] section:
Title2=Database Desktop
Path2=G:\RUNIMAGE\DBD\DBD.EXE (change C: to G:\RUNIMAGE)
WorkingDir2=C:\DBD
Params2=
etc...
This is to reroute the Database Desktop in the Tools palette. You can
also achieve this by rerouting in OPTION|TOOLS.
For the WIN.INI file, make the following changes:
1. In the [DDE Servers] section:
DBD=G:RUNIMAGE\DBD\DBD
Highlight the DateBaseDesktop program icon in the program manager,
select PROPERTIES and change the filename in COMMAND LINE to
G:\RUNIMAGE\DBD\DBD.EXE. Highlight the DBDLOCAL program icon in the
program manager, select PROPERTIES and change the filename in COMMAND
LINE to G:\RUNIMAGE\DBD\DBDLOCAL.EXE.
The Interbase Interactive SQL and Communication Diagnostic Tool as well
as ReportSmith can both be run off of the CD, but I will leave that for
some other time.
The Delphi manuals stay on the CD by default for use by Adobe Acrobat.
It makes sense - you have the disk anyway in the CD-drive to run DELPHI,
and ACROBAT lets you quickly browse through the manuals.Uvolneni pameti po funkci
[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 12.7.1999 14:00:15
> Petr Ga�ourek wrote:
> > Uvolni se tato funkce nejak z pameti nebo v pameti visi dokud neni
> > program ukoncen?
Martin Bodlak wrote:
> Jestli je v separatnim unitu nebo ne je uplne jedno. Pamet se neuvolni,proc
> taky, vzdyt je to kod programu...
Diky za vysvetleni.
> Ale unika mi smysl... To je ta funkce tak velka?
Je jasne, ze s jednou funkci se nema smysl zabyvat, ale rekl bych ze kazdy ma
ve svem programu radu funkci, ktere se volaji malokdy (nebo dokonce ne pri
kazdem vyvolani programu) a jejich soucet uz nemusi byt zanedbatelny. Zda se
mi zbytecne, aby byly trvale zavedeny v pameti.
Ale ma zkusenost prameni z programovani v DOSu, kde setreni pameti bylo u
vetsich programu nutnosti vzhledem k omezene velikosti pameti a datov�ch
bloku. Ve Windows bude mozna lepsi (stabilnejsi) mit vse potrebne zavedene v
pameti nez system zatezovat nacitanim funkci z disku a pridelovanim /
uvolnovanim pameti. Co si o tom myslite?
Petr Gadourek
Mail & Rezident
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 12.7.1999 14:17:39
tmara(zv)itsys(tec)cz wrote:> Bohuzel zatim vlastnim "pouze" D3 C/S
Pokud si umis zridit spojeni, tak protokol POP3 je trivialni a muzes si ho
vyzkouset napr. TELNETem:
1. Pripoj se na postovni server na portu 110 napr. mail.telecom(tec)cz, server
se prihlasi hlavickou
2. Prikazem USER <name> zadej jmeno uctu
3. Prikazem PASS <password> zadej heslo
System vypise pocet zprav v mailboxu.
Nyni muzes pouzit prikazy LIST, TOP <MsgNum> <Count> popr. DELE <MsgNum> a
pracovat s obsahem mailboxu.
4. Prikazem QUIT zrusis spojeni.
Tohle je ukazka, jak vypada mozna odezva postovniho serveru na vyse uvedeny
postup:
+OK hermes.iol(tec)cz POP3 server (Post.Office v3.5.3 release 223 with ZPOP
version
1.0 ID# 631-60961U50000L50000S0V35) ready Mon, 12 Jul 1999 14:03:49 +0200
USER fejfar
+OK Password required for fejfar
PASS blablablabla
+OK Maildrop has 0 messages (0 octets)
QUIT
+OK hermes.iol(tec)cz POP3 server closing connection
Takze ti staci vyparsovat pocet zprav z hlaseni po zadani hesla.
bye, pf
Uvolneni pameti po funkci
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 12.7.1999 14:26:02
Haj hou !
From: Petr Ga�ourek <geta(zv)telecom(tec)cz>
>Je jasne, ze s jednou funkci se nema smysl zabyvat, ale rekl bych ze kazdy
ma
>ve svem programu radu funkci, ktere se volaji malokdy (nebo dokonce ne pri
>kazdem vyvolani programu) a jejich soucet uz nemusi byt zanedbatelny. Zda
se
>mi zbytecne, aby byly trvale zavedeny v pameti.
No, co ti potom brani sdruzit takove funkce do DLL ktere se bude
natahovat/uvolnovat dynamicky (viz API funkce LoadLibrary & GetProcAddress)
?
Hodne zdaru
Uvolneni pameti po funkci
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 12.7.1999 14:31:50
Petr Ga�ourek wrote:
>
> Je jasne, ze s jednou funkci se nema smysl zabyvat, ale rekl bych ze kazdy ma
> ve svem programu radu funkci, ktere se volaji malokdy (nebo dokonce ne pri
> kazdem vyvolani programu) a jejich soucet uz nemusi byt zanedbatelny. Zda se
> mi zbytecne, aby byly trvale zavedeny v pameti.
> Ale ma zkusenost prameni z programovani v DOSu, kde setreni pameti bylo u
> vetsich programu nutnosti vzhledem k omezene velikosti pameti a datov�ch
> bloku. Ve Windows bude mozna lepsi (stabilnejsi) mit vse potrebne zavedene v
> pameti nez system zatezovat nacitanim funkci z disku a pridelovanim /
> uvolnovanim pameti. Co si o tom myslite?
>
No v DOSu jo, tam to bylo neco jineho - omezeni na to nejake necele mego
mohlo vadit. Ale ve Windows je nafukovaci swapac a neni prilis duvod
zatezovat system natahovanim knihovny, pokud to neni nutne. Samosebou
netvrdim, ze neni treba optimalizovat - program je treba psat efektivni,
ale ne za kazdou cenu.
Jinak pridelovani/uvolnovani pameti se deje furt (je-li pritomen
swapovaci soubor) a spociva v tom, ze stranky pameti, kde je neco, co je
zrovna potreba a ony zrovna nejsou ve fyzicke pameti RAM (kde jedine
mohou programy bezet a data se menit :) ), tak se natahnou z toho
swapace a tak dale... viz mechanismy strankovani, ale to je na dlouhe
povidani a je lepsi si to precist v nejake moudre knize.
Vysledek je takovy, ze v pameti RAM je furt jen to, co je treba,
nezavisle na tom, co je ve fyzickem EXE souboru. To sice trosku
zjednodusuju a spoustu veci neberu v uvahu, ale v kostce je to tak.
Uf, to je ale dlouhej mejl...
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)HTTP proxy - F.Piette
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 12.7.1999 14:40:14
skus si pozriet log, co ti proxy pise... takto je to nejasne, problemov moze
byt vela, napriklad, ak proxy podporuje len internet browsery a ziadnych
inych klientov...
> -----Original Message-----
> From: Iko [SMTP:iko(zv)kamarad(tec)cz]
> Sent: Monday, July 12, 1999 10:14 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: HTTP proxy - F.Piette
>
> Potrebujem pomoc. Mam spravenu aplikaciu na stahovanie
> dokumentov cez HTTP od F.Pietteho. Ale teraz sa pripajam cez
> proxy a nejak mi to nechce ist. Do vlastnosti Proxy som dal
> 10.0.0.1, co je adresa proxy servera a Proxy port som dal 3128, co
> je port. Tie hodnoty som okukal z Explorera a ten v pohode ide. Co
> robim zle?