Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Access databaze
[*] azeleny(zv)csas(tec)cz - 9.6.2000 11:30:22
DDV,
nevite nekdo prosim proc nejsem schopen se pripojit do databaze MS Accessu
2000 (CZ) - Kdyz chci pouzit nativni driver BDE (5.1.0.4) - vrati to pri
popkusu o pripojeni (z BDE adminu) chybu:
BDE Error: 13059 [$33] [$ 3]
Server Error:
Popis: General SQL error.
BDE Error: 13059 [$33] [$ 3]
Server Error: -2147221164
Popis: -2147221164
BDE Error: 13059 [$33] [$ 3]
Server Error:
Popis: Table
BDE Error: 13059 [$33] [$ 3]
Server Error:
Popis: Alias: test
Kdyz pouziji ODBC, tak se pripojim, ale zase to mrsi diakritiku, tak nevim.
To ODBC by mi stacilo, jenom, kdyby ta dakritika chodila dobre.
Diky za zkusenosti, napady, odkazy...
a.
-----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela a.s.
Na Per�t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
-----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely. Divne chovani ADO - uz sedivim
[*] Ren� Otisk - 9.6.2000 11:40:24
Hi,
Ne, primarni klic je Primary Key. Vytvoreni nove tabulky s primarnim klicem:
CREATE TABLE NEW_TABLE_WITH_PK
(
PK INT IDENTITY(1,1) NOT NULL PRIMARY KEY
JDAA ...datatype...
...
)
...nebo si das na stavajici tabulku
ALTER TABLE TEN_TVUJ_TEJBL
ADD PK INT IDENTITY(1,1) CONSTRAINT PK_pk PRIMARY KEY
To je priklad pro MS SQL. Na jake DB pracujes? A zkus poslat ten kousek kodu
s tim concatem...
Sroub
> > PK je Primarni Klic
> > tzn. sloupec jenz neobsahuje ani 2 stejne hodnoty. Cili podle nej se
daji
> > rozlisovat radky
>
> Takze mam unikatni pouze sluceni fieldu JDAA a JD5, tak
> dam "select JDAA,JD5,PRACOVISTE,JDAA + JD5 as PK from stat0211 order by
> PK" a melo by to projet?
>
> Zkusim to, ale poradte mi prosim, jak se dela v ODBC SQL concat. S + to
> nebere a || taky ne .
>
> Petr Sadovsky
>Editor ciselniku
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.6.2000 12:30:36
Ahoj,
ve sve aplikaci, ktera obsahuje i nekolik ciselniku (MSSQL 7), bych
rad vytvoril modul na udrzbu techto ciselniku. Konkretne mi jde
napr. o vlozeni zaznamu ci editaci zaznamu. Problem je, ze v
ruznych ciselnicich je ruzny pocet poli, i kdyz nektera jsou povinna
v kazdem ciselniku.
Klasicka cesta, kdy se vytvori zadavaci formular, do nej se
umisti par editu apod., tady prave kvuli obecnosti nejde. Napadlo
me pouzit jakysi editor jednoho celeho zaznamu, tj. neco ve stylu
jednoradkoveho DBGridu, ale mozna mate nekdo lepsi napad? :)
Dik za jakekoli podnety.
David
Konzolova aplikace s cestinou
[*] RDocekal(zv)csas(tec)cz - 9.6.2000 12:44:14
Musis tam psat cestinu v kodovani Latin2 (CP852) a ne Win1250.
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
> From: Marek Eichler [mailto:marek.eichler(zv)atlas(tec)cz]
> Sent: Friday, June 09, 2000 11:06 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Konzolova aplikace s cestinou
>
> Potreboval bych poradit jak pri pouziti WriteLn('Dobr� den');
> v konzolove
> aplikaci dosahnout toho, aby se mi zobrazovala cestina.
> Pokud totiz tento program spustim v MS-DOS konzoli, tak mi to
> misto cestiny
> haze paznaky.StillOnTop
[*] Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz> - 9.6.2000 12:57:09
Jednou jsem to taky potreboval ale nenapadlo mne nic jineho, nez
tady toto:
with form1 do
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,
SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
hodit do OnTimer,
Samozrejme by bylo lepsi volat to pri nejake udalosti. Takove, ktera se vola
pri presunovani jinych oken nebo neco podobneho.
Snad pomuze jeste nekdo dalsi.
Marify
xskriva1(zv)fi.muni(tec)cz
http://www.fi.muni(tec)cz/~xskriva1
Konzolova aplikace s cestinou
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 9.6.2000 13:03:16
> -----P�vodn� zpr�va-----
> Od: Marek Eichler [mailto:marek.eichler(zv)atlas(tec)cz]
> Odesl�no: 9. �ervna 2000 11:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Konzolova aplikace s cestinou
>
>
> Ahoj vsichni,
> pokud je tam tato zprava podruhe, tak se omlouvam, ale ja ji
> porad nevidim.
>
> Potreboval bych poradit jak pri pouziti WriteLn('Dobr� den');
> v konzolove
> aplikaci dosahnout toho, aby se mi zobrazovala cestina.
> Pokud totiz tento program spustim v MS-DOS konzoli, tak mi to
> misto cestiny
> haze paznaky.
> Pouzivam Delphi 4 (Update Pack 3), Windows NT 4.0 SP6.
> Diky za kazdou radu
Kdyz jsem mel tento problem se svymi ale i cizimi konzolovymi aplikacemi,
mel jsem jenom nastaveny spatny font v konzole. Myslim, ze na strane
programu se s tim nemusi delat nic, jenom je potreba nastavit vhodny
font v konzole
Jura
Konzolova aplikace s cestinou
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.6.2000 13:10:21
Musis retezce prekodovat na Latin2, alei potom ti cestina pobezi pouze na ceskych Windows. Na Anglickych tam budou opet paznaky
Jan Fiala
----- Original Message -----
From: "Marek Eichler" <marek.eichler(zv)atlas(tec)cz>>Ahoj vsichni,
>pokud je tam tato zprava podruhe, tak se omlouvam, ale ja ji porad nevidim.
>Potreboval bych poradit jak pri pouziti WriteLn('Dobr� den'); v konzolove
>aplikaci dosahnout toho, aby se mi zobrazovala cestina.
>Pokud totiz tento program spustim v MS-DOS konzoli, tak mi to misto cestiny
>haze paznaky.
>Pouzivam Delphi 4 (Update Pack 3), Windows NT 4.0 SP6.
>Diky za kazdou radu
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Marek Eichler
e-mail: marek.eichler(zv)atlas(tec)cz
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Access databaze
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 9.6.2000 13:11:02
Zkus ruzne Language drivery. Mne se osvecil PDox ANSI czech. Dale je treba
podivat se na nastaveni ODBC. Tam se daji taky nastavit konverze znaku. Je
treba vyzkouset ruzne kombinace. Jaromir Cermak
-----Original Message-----
From: azeleny(zv)csas(tec)cz [mailto:azeleny(zv)csas(tec)cz]
Sent: Friday, June 09, 2000 11:30 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Access databaze
DDV,
nevite nekdo prosim proc nejsem schopen se pripojit do databaze MS Accessu
2000 (CZ) - Kdyz chci pouzit nativni driver BDE (5.1.0.4) - vrati to pri
popkusu o pripojeni (z BDE adminu) chybu:
BDE Error: 13059 [$33] [$ 3]
Server Error:
Popis: General SQL error.
BDE Error: 13059 [$33] [$ 3]
Server Error: -2147221164
Popis: -2147221164
BDE Error: 13059 [$33] [$ 3]
Server Error:
Popis: Table
BDE Error: 13059 [$33] [$ 3]
Server Error:
Popis: Alias: test
Kdyz pouziji ODBC, tak se pripojim, ale zase to mrsi diakritiku, tak nevim.
To ODBC by mi stacilo, jenom, kdyby ta dakritika chodila dobre.Divne chovani ADO - uz sedivim
[*] Petr Sadovsk� <petr(zv)slunce(tec)cz> - 9.6.2000 13:13:43
> Ne, primarni klic je Primary Key. Vytvoreni nove tabulky s primarnim
klicem:
> CREATE TABLE NEW_TABLE_WITH_PK
> (
> PK INT IDENTITY(1,1) NOT NULL PRIMARY KEY
> JDAA ...datatype...
Ahoj,
delam to na DBase .
Jestli tomu rozumim, tak PK je autoincrement? =>
=> Nasel jsem v helpu ze datovemu typu autoincrement odpovida COUNTER a
vytvoril jsem tabulku takto:
create table mytable(field1 string(10),field2 string(6), pk counter) a
furt stejne a jeste k tomu bych cekal, ze autoincrement se bude plnit sam,
ale cely sloupec PK zustal prazdny :-((.
Taky jsem zkousel :
create table mytable(field1 string(10),field2 string(6)), constraint field3
primary key(field1) a toto vyhodilo syntatickou chybu pri create.
Petr
Pocet zaznamu v tabulce FlashFiler
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 9.6.2000 13:14:46
Cauec,
nevite, jak jednoduse a hlavne rychle spocitat pocet zaznamu v tabulce ?
Zatim pouzivam klasiku - while not table.eof do .... table.next;
Jenze na 30000 zaznamech uz muzu jit na pivo. SQL u FF neni.
Ma nekdo figl, jak to zrychlit ?
Dik
Bye Ludan
insert a too many open tables
[*] Marek Prochazka <prochazka(zv)jumbo.ped.muni(tec)cz> - 9.6.2000 11:26:33 met
pouzivam Paradox 7
Marek
Ulo�en� dat z OLE do datab�ze.
[*] Ing. Radim Bro�ek <radim.brozek(zv)berit(tec)cz> - 9.6.2000 13:33:51
M�m aplikaci, kter� nastartuje Word pomoc� OLE komponenty.
Klienti po�aduj�, aby se vytvo�en� a ulo�en� objekt ulo�il p��mo do datab�ze
(Oracle).
Dnes se to �e�� tak, �e klient mus� ulo�it data na disk do n�j�ho souboru a
pak v aplikaci mus� zvolit
funkci Na��st soubor do DB.
Porad� mi n�kdo, jak tohle ud�lat automaticky. Nev�m toti�, jak nav�zat
zp�tnou komunikaci Word - OLE
D�ky.
Miki
Jak odchytit stisk ENTER nebo TAB v editu pomoci A
[*] Maly(zv)pds.pce.cdrail(tec)cz - 9.6.2000 13:50:51
Ahoj,
Zacinam s API protoze potrebuji vyhotovit mini aplikaci a potrebuji odchytit
v editu stisk klavesy ENTER nebo TAB pro posun na dalsi prvek a nevim jak na
to.
{ Custom WindowProc function }
function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
{ Checks for messages }
if (lParam = Edit1) and (uMsg = ????) and (wParam= ????) then
//pri uMsg=WM_COMMAND to nereaguje na RETURN ani na TAB
SendMessage(Edit2, WM_SETFOCUS, 0, 0);
if (lParam = Button2) and (uMsg = WM_COMMAND) then
Halt;
if uMsg = WM_DESTROY then
Halt;
end;
Diky za pomoc
Lada Maly
maly(zv)pds.pce.cdrail(tec)cz
Skrytie property v potomkovi
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 9.6.2000 13:55:57
Ahojte sa :)
U potomka potrebujem skryt property - ako na to?
Za zachranne koleso dakujem
Ondrej
[ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
Spu�t�n� *.hlp z kodu
[*] Petr Pa��enko <petrpas(zv)volny(tec)cz> - 9.6.2000 15:17:16
Zdravim,
nevite nekdo, jak spustit soubor napovedy, *.hlp, z kodu programu. Umim spustit jednotliva temata metodou application.jumpto, ale neumim spustit okno s tematy.
Petr Pa��enko
StillOnTop
[*] Kuzelka Filip <kuzelka(zv)access-it(tec)cz> - 09.6.2000 09:39:07 -0400
no jo, to sice funguje p�kn�, ale kdy� se pust� jin� aplikace,
kter� m� taky sv�j formul�� StayOnTop, tak bude naho�e ona !
jde mi pr�v� o to, aby ani takov�hle aplikace nep�ekryly tu moj�.
-fk
>>> jim.design(zv)iol(tec)cz 8.6.2000 11:43:45 >>>
ahoj,
nevim co si o tom mam myslet, ale jestli to delas
v delphi tak je to TForm.FormStyle:=wsStayOnTop
M.Jirman
----- Original Message -----
From: Kuzelka Filip <kuzelka(zv)access-it(tec)cz>
Zdrav�m v�echny,
m�m op�t jeden dotaz:
je mo�n� p�inutit aplikaci, aby byla po��d "naho�e" ?
Mysl�m t�m, �e se spust�, bude furt vid�t (ne aktivn�) a i kdy� se pust�
jin� app., kter� se bude sna�it b�t on top, to moje okno nep�ekryje ?
d�kuji za n�pady ...
-fk
Problem s OLE DB komponentami
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.6.2000 17:30:51
On 9 Jun 2000, at 8:28, martin.falta(zv)atlas(tec)cz wrote:
> mam mensi problem se Zbyskovymi OLE DB komponentami. Jde o tohle: Kdyz
> u komponenty TDFOdbRecord nastavim vlastnost OpenOption na
> ooTableName, tak vsechno funguje, ale nastavim-li tuto vlastnost na
> ooSQL, uz se mi nepodari tabulku otevrit a dostanu tuhle hlasku:
> Unspecified error: IUnknown(ARowset).
K jake pristupujes databazi, jakeho pouzivas providera?
Predpokladam, ze mas posledni verzi.
Co komponenta dela: pokud nastavis ooTableName, pak je nutne
zadat i TableName. Pokud nastavis ooSQL, pak budto musis zadat
(spravne) SQL dotaz v SQL property, nebo (pokud je prazdny)
jmeno tabulky (pak se vytvori SELECT * FROM <TableName>). Je
ale mozne, ze ve verzi, ktera je na webu, je chybka. Pokud ano, je
treba vyplnit SQL. Postup je odzkouseny nad MS SQL, za chovani
nad jinymi databazemi nerucim.
Mezitim jsem udelal radu oprav, takze nekdy pres vikend asi poslu
aktualni verzi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Kylix
[*] Parizsky Ladislav <Parizsky(zv)access-it(tec)cz> - 09.6.2000 12:33:45 -0400
Cau nevite nekdo zda bude aplikace napsana v kylixu funkcni i pod Win ?
Ladap
Hladanie v datab�ze
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 9.6.2000 18:36:46
Zdravim,
podobny dotaz som sice uz pisal, ale nevyjadril som sa k odpovediam. Ja by
som potreboval urobit v databaze vyhladavanie. Ak vyhladavam v jednom poli
tak mi staci locate, ale ak chcem vyhladavat v celej databaze uz mi nestaci.
Da sa tu pouzit select? ak ano, ako?. V qery by sa select moc menit nemal,
tak ako najdem zaznam a presuniem sa na neho?
Dik moc, Miso
Master/Detail
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 9.6.2000 18:38:16
Zdravim,
pouzivam komponenty SQLDirect. Tieto komponenty vsak neobsahuju komponentu
TTable -> neda sa pouzit master detail. Ako by som si ho mohol urobit
povedzme sam? Da sa to pomocou dvoch query a Selectov?
Dik, Miso
opet mwCustomEdit-BookMarks
[*] Hurricane <hurricane(zv)email(tec)cz> - 9.6.2000 20:23:24
Zdravim
Opet mam dalsi problem, potrebuji zjistovat existenci bookmarku.
(Ctrl-Shift-0...9) Neco jako mwcustomEdit1.BookMarkExists, kter� mi vrac�
true nebo false. Mohl bych s klidem pouzit boolean promennou, ktera se mi
pri prvnim vlozeni bookmarku nastavi na true, ale ani to muj problem uplne
neresi. Kromtoho mi pripada zbytecny pouzivat kvuli tomu promennou. Nevite
nekdo jak na to?
Dekuji za kazde nakopnuti (pouze spravnym smerem) nebo radu
Hurricane
Prehravac akci
[*] Anton�n Blatn� - 9.6.2000 22:02:09
----- Original Message -----
From: Marek Soukup <marek(zv)comberg(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, June 07, 2000 1:32 PM
Subject: RE: Prehravac akci
> Neni to moc programatorske reseni, ale nestacilo by proste udelat nejake
> video, kde by bylo videt jak se to dela ?
>
Pouzivame takoveto reseni uz nekolik let a musim rict, ze jsou uzivatele
velice spokojeni. Video lze snadno nahrat (soft ale neco stoji) i se zvukem
a pak uz je to opravdu kvalitni ucebnice, kdyz uzivatel krome toho, ze vidi
pohybujici se mys a otvirajici se okna, tak i slysi autora programu, proc a
jak se to a to dela a jak to delat efektivne apod.
Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz
stav modemu
[*] nnfapso(zv)kios.sk - 9.6.2000 21:16:57
Ahoj,
No najjednoduchsie to pojde asi tak, ze si stiahnes nieco z www.torry.ru
P.S.: Pripadne ti mozem poslat moje komponenty
Miso nnfapso(zv)kios.sk
----- Original Message -----
Od: delfinojd <delfinojd(zv)atlas(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 8. j�n 2000 13:20
Predmet: stav modemu
> Ahoj,
> nevite prosim nekdo, kterak monitorovat stav modemu "pripojen",
> "nepripoje", pripadne dalsi moznosti.
> Za kazdou radu dekuji.
> Karel.
>Sledovani souboru
[*] nnfapso(zv)kios.sk - 9.6.2000 21:19:23
Ahoj,
Ak chces vediet aj nazov suboru, ktory sa zmenil, najlahsie to ide pod
NTckami. Maju na to nejake API.
----- Original Message -----
Od: <jof(zv)email(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 8. j�n 2000 11:46
Predmet: Sledovani souboru
> Ahoj,
> potreboval bych, aby aplikace dokazala sledovat
> kazdy zapis na disk, resp. hlavne smazani lib.
> souboru z disku. Je to vubec na aplikacni urovni
> mozne? Za odpoved dekuji.
> -jof-
>OPENGL v DELPHI
[*] nnfapso(zv)kios.sk - 9.6.2000 21:28:49
A co tak skusit nakreslit si taky vyrezany valec v 3D Studiu (pripadne v niecom jednoduchsom)? Pravdepodobne pouzivas komponenty GLScene. V krajnom propade si pozri ten obrovsky zdrojak a skus v nom najst proceduru na vykreslenie valca a sprav si podla nej vlastnu, ale taku aku potrebujes.
Miso nnfapso(zv)kios.sk
Konzolova aplikace s cestinou
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 09.6.2000 21:52:26
Ahojky, m�m pocit, �e konzolov� aplikace jede v takov� �e�tin� jakou m�
nainstalovanou pod DOSem, tak�e pokud nem� pod DOSem �e�tinu, tak ti to
nepojede... Druh� mo�nost je ta, �e tam je Latin 2 a kdy� p�e�
aplikaci, tak j� p�e� v Delphi IDE, kde je WIN �e�tina...
Nevim, to jist�, ale n�co z toho by to mohlo b�t...
Marek Eichler wrote:
>
> Ahoj vsichni,
> pokud je tam tato zprava podruhe, tak se omlouvam, ale ja ji porad nevidim.
>
> Potreboval bych poradit jak pri pouziti WriteLn('Dobr� den'); v konzolove
> aplikaci dosahnout toho, aby se mi zobrazovala cestina.
> Pokud totiz tento program spustim v MS-DOS konzoli, tak mi to misto cestiny
> haze paznaky.
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Pluginy za pomoc� dll knihoven
[*] Milan ��ek - 9.6.2000 22:06:47
Cht�l bych vytvo�it n�sleduj�c� projekt: Forma, obsahujici PageControl. Nyn�
bych potreboval prenest z dll knihovny TabSheet1 a pridat ho do hlavni formy
na PageControl (se v�emi umistenymi prvky) tak, aby se v�echny obsluhy
udalosti, atd... zpracovavali rovnez z dll knihovny.
Chtel bych tento postup pouzit pro nacitani plugin modulu. Co modul, to
jedna TabSheet.
Pokud vas napada nejaky lepsi napad pro pluginy, prosim podelte se.
P.S. V Delphi programuji pomerne kratce, pokud je tento pozadavek
nerealizovatelny, berte prosim ohled na to, ze jsem zacatecnik :-)
milanc
Problem s OLE DB komponentami
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 9.6.2000 22:08:47
Pouzivam Access 2000, provider je Microsoft.Jet.OLEDB.4.0.
Pokud nastavim ooTableName, zadam TableName, tak je vse v poradku,
ovsem nastavim-li ooSQL, zadam SELECT * FROM tabulka, tak dostanu
tu nechutnou chybu.
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 2000 18:49
P�edm�t: Re: Problem s OLE DB komponentami
On 9 Jun 2000, at 8:28, martin.falta(zv)atlas(tec)cz wrote:
> mam mensi problem se Zbyskovymi OLE DB komponentami. Jde o tohle: Kdyz
> u komponenty TDFOdbRecord nastavim vlastnost OpenOption na
> ooTableName, tak vsechno funguje, ale nastavim-li tuto vlastnost na
> ooSQL, uz se mi nepodari tabulku otevrit a dostanu tuhle hlasku:
> Unspecified error: IUnknown(ARowset).
K jake pristupujes databazi, jakeho pouzivas providera?
Predpokladam, ze mas posledni verzi.
Co komponenta dela: pokud nastavis ooTableName, pak je nutne
zadat i TableName. Pokud nastavis ooSQL, pak budto musis zadat
(spravne) SQL dotaz v SQL property, nebo (pokud je prazdny)
jmeno tabulky (pak se vytvori SELECT * FROM <TableName>). Je
ale mozne, ze ve verzi, ktera je na webu, je chybka. Pokud ano, je
treba vyplnit SQL. Postup je odzkouseny nad MS SQL, za chovani
nad jinymi databazemi nerucim.
Mezitim jsem udelal radu oprav, takze nekdy pres vikend asi poslu
aktualni verzi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Konzolova aplikace s cestinou
[*] Hurricane <hurricane(zv)email(tec)cz> - 10.6.2000 00:43:01
Napis si ceske znaky v cistem DOSu, uloz do soubory a ve Win tam budes mit
zase jine paznaky, kdyz ale tydle paznaky pouzijes do dosu, tak se to napise
cesky.
----- Original Message -----
Ahoj vsichni,
pokud je tam tato zprava podruhe, tak se omlouvam, ale ja ji porad nevidim.
Potreboval bych poradit jak pri pouziti WriteLn('Dobr� den'); v konzolove
aplikaci dosahnout toho, aby se mi zobrazovala cestina.
Pokud totiz tento program spustim v MS-DOS konzoli, tak mi to misto cestiny
haze paznaky.
Pouzivam Delphi 4 (Update Pack 3), Windows NT 4.0 SP6.
ADO
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 10.6.2000 10:22:45
Zdravim,
zkus prozkoumat zdrojaky k ADOExpress, tam maji ty eventy premapovany
na klasicky udalostni metody Delphi.
Tomas
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz>> nevytenekdo jak se pracuje s eventama primo pomoci ADO komponent, melo by
to
> byt neco s objektem ConnectionEvents v unite ADODB_TLB.
>
Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.6.2000 19:38:02
Ahoj all,
Upravil jsem instalaci programu ze subj., vyresil jsem i problem
instalace na NoWell siti. Zde je komplet zdrojak, lze pouzit temer
tak jak je. Doufam, ze neni treba vysvetlovat smysl setup.ini.
Pokud nekdo prijde, jak zjistit predem jaka verze MSIE a MDAC je
nainstalovana, sem s tim.
Setup.dpr
program Setup;
uses
Forms,
SetupMain in 'SetupMain.pas' {SetupFrm},
SetMSDE in 'SetMSDE.pas' {MsdeFrm};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TSetupFrm, SetupFrm);
Application.CreateForm(TMsdeFrm, MsdeFrm);
Application.Run;
end.
---------------------------------------------------------------
SetupMain.pas
unit SetupMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls, ExtCtrls, FileCtrl, IniFiles, ComCtrls, Registry;
type
TSetupFrm = class(TForm)
MSIELabel: TLabel;
MDACLabel: TLabel;
MSDELabel: TLabel;
CardLabel: TLabel;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Animate: TAnimate;
procedure FormActivate(Sender: TObject);
procedure MSIELabelClick(Sender: TObject);
procedure MDACLabelClick(Sender: TObject);
procedure MSDELabelClick(Sender: TObject);
procedure CardLabelClick(Sender: TObject);
private
Ini:TIniFile;
MSIE:boolean;
MDAC:boolean;
MSDE:boolean;
Card:boolean;
MSIEPath:string;
MDACPath:string;
MSDEPath:string;
MSDEiss:string;
CardPath:string;
// Hnd:THandle;
TempDir:string;
Tempiss:string;
procedure CMMouseEnter(var Message: TMessage); message
CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message
CM_MOUSELEAVE;
public
end;
var
SetupFrm: TSetupFrm;
implementation
uses
SetMSDE;
{$R *.DFM}
resourcestring
SCanNotCreate='Cannot create %s';
SIsSQL='This machine contains build %s of Microsoft SQL Server
or SQL Server compatible technology (MSDE).';
SNoResponse='There is no response from the command line
statement. Process Terminated';
SErr0='Success';
SErr1='General error';
SErr2='Invalid mode';
SErr3='Required data not found in the %s file';
SErr4='Not enough memory available';
SErr5='File does not exist';
SErr6='Cannot write to the response file';
SErr7='Unable to write to the log file';
SErr8='Invalid path to the InstallShield Silent response file';
SErr9='Not a valid list type (string or number)';
SErr10='Data type is invalid';
SErr11='Unknown error occurred during setup';
SErr12='Dialog boxes are out of order';
SErr51='Cannot create the specified folder';
SErr52='Cannot access the specified file or folder';
SErr53='Invalid option selected';
SErrUnkn='Unknown error';
procedure Shell(ACommand:PChar; const ShowError:boolean =
true);
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
ret:DWORD;
begin
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do
begin
cb := SizeOf(TStartupInfo);
end;
if CreateProcess(nil, ACommand, nil, nil, true,
NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo)
then
repeat
ret:=WaitForSingleObject(ProcessInfo.hProcess, 0);
Application.ProcessMessages;
until ret<>WAIT_TIMEOUT;
CloseHandle(ProcessInfo.hProcess);
end;
procedure TSetupFrm.CMMouseEnter(var Message: TMessage);
begin
inherited;
with Message do
if lParam<>0 then
if TObject(lParam) is TLabel then
with TLabel(lParam) do
if Enabled then Font.Color:=clFuchsia;
end;
procedure TSetupFrm.CMMouseLeave(var Message: TMessage);
begin
inherited;
with Message do
if lParam<>0 then
if TObject(lParam) is TLabel then
with TLabel(lParam) do
if Enabled then Font.Color:=clWindowText;
end;
procedure TSetupFrm.FormActivate(Sender: TObject);
begin
Ini:=TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
MSIE:=Ini.ReadBool('SetupMain', 'MSIE', false);
MDAC:=Ini.ReadBool('SetupMain', 'MDAC', false);
MSDE:=Ini.ReadBool('SetupMain', 'MSDE', false);
Card:=Ini.ReadBool('SetupMain', 'Card', false);
MSIELabel.Caption:=Ini.ReadString('Caption', 'MSIE',
MSIELabel.Caption);
MDACLabel.Caption:=Ini.ReadString('Caption', 'MDAC',
MDACLabel.Caption);
MSDELabel.Caption:=Ini.ReadString('Caption', 'MSDE',
MSDELabel.Caption);
CardLabel.Caption:=Ini.ReadString('Caption', 'Card',
CardLabel.Caption);
if MSIE then MSIEPath:=Ini.ReadString('Path', 'MSIE', '');
if MSIEPath='' then MSIE:=false;
if MDAC then MDACPath:=Ini.ReadString('Path', 'MDAC', '');
if MDACPath='' then MDAC:=false;
if MSDE then
begin
MSDEPath:=Ini.ReadString('Path', 'MSDE', '');
MSDEiss:=Ini.ReadString('Path', 'MSDE_iss', '');
end;
if (MSDEPath='') or (MSDEiss='') then MSDE:=false;
if Card then CardPath:=Ini.ReadString('Path', 'Card', '');
if CardPath='' then Card:=false;
Ini.Free;
MSIELabel.Enabled:=MSIE;
MDACLabel.Enabled:=MDAC;
MSDELabel.Enabled:=MSDE;
CardLabel.Enabled:=Card;
end;
procedure TSetupFrm.MSIELabelClick(Sender: TObject);
begin
Shell(PChar(MSIEPath), false);
end;
procedure TSetupFrm.MDACLabelClick(Sender: TObject);
begin
Shell(PChar(MDACPath), false);
end;
procedure TSetupFrm.MSDELabelClick(Sender: TObject);
var
Reg:TRegIniFile;
DBVersion, CSDVersion:string;
RunMSDE:string;
Res:integer;
Msg:string;
begin
Reg:=TRegIniFile.Create('');
Reg.RootKey:=HKEY_LOCAL_MACHINE;
DBVersion:=Reg.ReadString('SOFTWARE\Microsoft\MSSQLServer\
MSSQLServer\CurrentVersion',
'CurrentVersion', '');
if DBVersion<>'' then
begin
CSDVersion:=Reg.ReadString('SOFTWARE\Microsoft\MSSQLServ
er\MSSQLServer\CurrentVersion',
'CSDVersion', '');
if CSDVersion<>'' then DBVersion:=CSDVersion;
end;
Reg.Free;
if DBVersion<>'' then MessageDlg(Format(SIsSQL, [DBVersion]),
mtInformation, [mbOk], 0) else
with MsdeFrm do
if ShowModal=mrOk then
try
Animate.Active:=true;
Animate.Visible:=true;
Application.ProcessMessages;
Screen.Cursor:=crHourGlass;
TempDir:='C:\CardTemp';
if not DirectoryExists(TempDir) then
if not CreateDir(TempDir) then
raise Exception.Create(Format(SCanNotCreate, [TempDir]));
Tempiss:=TempDir+'\'+ExtractFileName(MSDEiss);
CopyFile(PChar(MSDEiss), PChar(Tempiss), false);
SetFileAttributes(PChar(Tempiss),
FILE_ATTRIBUTE_ARCHIVE);
Ini:=TIniFile.Create(Tempiss);
Ini.WriteString('SetupTypeSQL-0', 'szDir', ProgramDir.Text);
Ini.WriteString('SetupTypeSQL-0', 'szDataDir', DataDir.Text);
Ini.WriteInteger('DlgCpSortUnicode-0', 'SortId', GetSortID);
Ini.WriteInteger('DlgServerNetwork-0', 'NetworkLibs', GetNetLib);
with PipesEdit do if Enabled then
Ini.WriteString('DlgServerNetwork-0', 'NMPPipeName', Text);
with PortEdit do if Enabled then
Ini.WriteString('DlgServerNetwork-0', 'TCPPort', Text);
with ProxyEdit do if Enabled and (Text>'') then
Ini.WriteString('DlgServerNetwork-0', 'TCPPrxy', Text);
with NWLinkEdit do if Enabled then
Ini.WriteString('DlgServerNetwork-0', 'NWLinkObj', Text);
// Ini.WriteInteger('DlgServices-0', 'Autostart', 255);
Ini.Free;
Ini:=TIniFile.Create('setup.log');
if Ini.ValueExists('ResponseResult', 'ResultCode') then
Ini.DeleteKey('ResponseResult', 'ResultCode');
Ini.Free;
RunMSDE:=Format('%s -a -f1 "%s"', [MSDEPath, Tempiss]);
Shell(PChar(RunMSDE), false);
Ini:=TIniFile.Create('setup.log');
Res:=Ini.ReadInteger('ResponseResult', 'ResultCode', -1);
Ini.Free;
DeleteFile(Tempiss);
RemoveDir(TempDir);
Animate.Active:=false;
Animate.Visible:=false;
Screen.Cursor:=crDefault;
case Res of
0: Msg:=SErr0;
-1: Msg:=SErr1;
-2: Msg:=SErr2;
-3: Msg:=Format(SErr3, [ExtractFileName(MSDEiss)]);
-4: Msg:=SErr4;
-5: Msg:=SErr5;
-6: Msg:=SErr6;
-7: Msg:=SErr7;
-8: Msg:=SErr8;
-9: Msg:=SErr9;
-10: Msg:=SErr10;
-11: Msg:=SErr11;
-12: Msg:=SErr12;
-51: Msg:=SErr51;
-52: Msg:=SErr52;
-53: Msg:=SErr53;
else Msg:=SErrUnkn;
end;
ShowMessage(Msg);
except
Animate.Active:=false;
Animate.Visible:=false;
Screen.Cursor:=crDefault;
end;
end;
procedure TSetupFrm.CardLabelClick(Sender: TObject);
begin
Shell(PChar(CardPath), false);
end;
end.
-----------------------------------------------
SetupMain.dfm
object SetupFrm: TSetupFrm
Left = 325
Top = 331
BorderStyle = bsDialog
Caption = 'Attendance - Setup'
ClientHeight = 230
ClientWidth = 505
Color = clWindow
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object MSIELabel: TLabel
Left = 64
Top = 24
Width = 114
Height = 16
Alignment = taCenter
Caption = 'Internet Explorer'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = MSIELabelClick
end
object MDACLabel: TLabel
Left = 64
Top = 64
Width = 44
Height = 16
Caption = 'MDAC'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = MDACLabelClick
end
object MSDELabel: TLabel
Left = 64
Top = 104
Width = 44
Height = 16
Caption = 'MSDE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = MSDELabelClick
end
object CardLabel: TLabel
Left = 64
Top = 144
Width = 70
Height = 16
Caption = 'Doch�zka'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = CardLabelClick
end
object Image1: TImage
Left = 16
Top = 16
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020040000000000E80200001600000
028000000
20000000400000000100040000000000000200000000000000000000
00000000
00000000000000000000800000800000008080008000000080008000
80800000
80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00F
F00FFFF0000
FFFFFF00000000000000000000000000000000000044CCCCCC440
00000000000
0000000003CC400000CC0000000000000000000003C40000000044
4444C44440
0000000003C400000004444C4C4CCCC44000000033C4000004444
C4CCCCCCCCC
C440000033CC4004444C4CCCCCCCCCCCCCC4000033CC404444
C4CCCCCCCCCCCC
CCCC400033CCC4444C4CCCC44444CCCCCCCCC400383CC4444
CCCCC40000004CC
CCCCC400333CCC44C4CCC40000000044CCCCCC40383CCC44C
CCC400000000004
444444403383CCC44CCC400000000000000000000383CCC4CCCC
000000000000
0000000003883CCC4CCCCCCCCCCCCCCCCCCCCC400033BCCC
CCCCCCCCCCCCCCCC
CCCCCC40003B38CCCCCCCCCCCCCCCCCCCCCCCC400043BF
7CCCCC44444444444C
CCCCCC4000443BBCCCCC40000000004CCCCCCC40000443FBC
CCC40000000004C
CCCCC4000004443BBCCCC4000000044CCCCCC400000044C3FB
CCCC40000044CC
CCCCC400000044CC3BBCCCC400044CCCCCCCC4000000044CC
38BCCCCCCCCCCCC
CCCC40000000004CCCC3BCCCCCCCCCCCCCCC400000000004
CCCCCB3CCCCCCCCC
CCC4000C00000000CCCCCCCCCCCCCCCCC440000C000000000
0CCCCCCCCCCCCC4
4000000C0000000000000CCCCCCCCC400000000C000000000000
0000000CCCC0
000000CC0000000000000000000000CCC0000CC000000000000000
0000000000
CCCCCC00F03FFFFFC00FFFFF87C00FFF8FE001FF8F80007F0E
00001F0400000F
00000007000000030001F0030003F8010007FC010007FFFF800000
0180000001
C0000001C0000001C0000001C007F801E007F803E003F003F001E
003F0000003
F8000007FC000007FE00000EFF00001EFFC0007EFFF801FEFFF
FE1FCFFFFFC79
FFFFFF03}
end
object Image2: TImage
Left = 16
Top = 96
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020040000000000E80200001600000
028000000
20000000400000000100040000000000000200000000000000000000
00000000
00000000000000000000800000800000008080008000000080008000
80800000
80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00F
F00FFFF0000
FFFFFF0000000000000000000000000000000000000000000000000
000000000
00000000000000000000000000000000000000000000111770000000
00000000
00000000007117111170000000000000000000000071700000117000
00000000
00000000007100000000110000000000000000000001000000000010
00000000
00000000000100000000000100000000000000000001700000000000
10000000
0000000000071000000000111F11000000000000000010000000111
11F111100
0000000000000200001111111F11111100000000000022220011111
11F111111
0000000000002A22001111111F1111110000000000002AA22011111
11F111111
0000000000000222001111111F11111100000000000000000011111
1FF111111
0000000000000000001111FF1FFF111110000000000000000011FF1
11FFFFF11
010000000000000001FF11111FFF11FF10100000000000011111FF
111F11FF11
1111000000000000111111FF11FF111111077000000000000011111
100111111
00001000000000000000110000001100000007000000000000000000
00000000
00000100000000000000000000000001700001000000000000000000
00000000
11111100000000000000000000000000071117000000000000000000
00000000
00000000000000000000000000000000000000000000000000000000
00000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFF07FFFFFC01FFFFFC7
C7FFFFCFF3FFFF
EFFDFFFFEFFEFFFFE7FF7FFFE7FC0FFFF7F003FFF8C000FFF
04000FFF04000FF
F04000FFF8C000FFFFC000FFFFC0007FFFC000BFFF80005FFE0
0000FFF000027
FFC0C0F7FFF3F3FBFFFFFFFBFFFFFE7BFFFFFF03FFFFFF83F
FFFFFFFFFFFFFFF
FFFFFFFF}
end
object Image3: TImage
Left = 16
Top = 136
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020100000000000E80200001600000
028000000
20000000400000000100040000000000800200000000000000000000
00000000
00000000000000000000800000800000008080008000000080008000
80800000
80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00F
F00FFFF0000
FFFFFF0022222222222222222222222222222222222222222222222
222222222
222222222222222222266788FF87222222222222222222222222222
2268FF722
22222222222222222222222222228FF622222222222222222222222
2222227FF
6222222222222222222222222222226FF7222222222222222222222
222222228
FF2222222222222222222222222222228FF22222222222222222222
222222222
2FF7222222222222222222222222222227FF2222222222222222222
222222222
22FF7222222222222222222222222222228F8222222222222222222
222222222
227FF222222222222222222222222222222FF622222222222222F82
222222222
222FF622222222222222FF2222222222222FF222222222222222FF
7222222222
222FF622222222222222FF8222222222222FF222222222222222F8
F622222222
227FF222222222222222F7F722222222228F8222222222222222F78
F22222222
22FF2222222222222222F77F2222222227F82222222222222222F76
F22222222
28F62222222222222222F722222222227F722222222222222222F74
222222226
F8222222222222222222F8222222222F82222222222222222222F72
2222226F8
22222222222222222222762222268F6222222222222222222222222
222776222
22222222222222222222222222222222222222222222222222222222
22222222
22222222000000000000000000000000000000000000000000000000
00000000
00000000000000000000000000000000000000000000000000000000
00000000
00000000000000000000000000000000000000000000000000000000
00000000
00000000000000000000000000000000000000000000000000000000
00000000
00000000}
end
object Image4: TImage
Left = 16
Top = 56
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020040000000000E80200001600000
028000000
20000000400000000100040000000000000200000000000000000000
00000000
00000000000000000000800000800000008080008000000080008000
80800000
80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00F
F00FFFF0000
FFFFFF0000000000000000000000000000000000000073333333333
333333000
0000000000007F8B8B8B8B8B8B8B33000000000000007FB8B8B8
B8B8B8B83330
0000000000007F8B8B8B8B8B8B8B33330000000000007FB8B8B8
B8B8B8B83333
3000000000007F8B8B8B8B8B8B8B33333000000000007FB8B8B8
B8B8B8B83333
3000000000007F8B8B8B8B8B8B8B33333000000000007FB8B8B8
B8B8B8B83333
3000000000007F8B8B8B8B8B8B8B3333307777700000733333333
33333330333
30888870000733333FFFFFFFFFFF303330FFF87000738F333FFFF
FFFFFFFF303
30FFF8700738F8F33FFFFFFFFFFFF33030FFF870738F8F8F3333
333333333333
00FFF87003F8F8F37FFFFFFFFFFFFFF330FFF870003F8F387F77
77FFF7777FFF
3307F8700003F3787FFFFFFFFFFFFFFFF30FF870000030787FF0
00FFFF444FFF
F030F870000000787F1111FFF6664FFF4444F870000000787FF9B1
FFFF6E6FFF
FCE4F870000000787FF991FFFF666FFFFCC4F870000000787FFF
FFFFFFFFFFFF
FFFFF87000000078777777777777777777777870000000788888888
888888888
88888870000000784444444444444000000000700000007844444444
44444880
88088070000000784444444444444880880880700000007844444444
44444444
44444470000000788888888888888888888888700000007777777777
77777777
77777770F00007FFF00003FFF00001FFF00000FFF000007FF000003FF000003F
F000003FF000003FF0000000F0000000F0000000E0000000C000000080000000
0000000080000000C0000000E0000000F4000000FC000000FC000000FC000000
FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000
FC000000}
end
object Animate: TAnimate
Left = 64
Top = 168
Width = 272
Height = 60
Active = False
CommonAVI = aviCopyFile
StopFrame = 26
Visible = False
end
end
------------------------------------------
setup.ini
[SetupMain]
MSIE=0
MDAC=1
MSDE=1
Card=1
[Caption]
MSIE=MS Internet Explorer 5 CZ
MDAC=MS Data Access 2.5 pro Windows 95, 98 a NT 4
MSDE=MS Data Engine 1.0 (MSDE - SQL Server 7 kompatibiln�)
Card=Doch�zkov� a zabezpe�ovac� syst�m
[Path]
MDAC=\MDAC\mdac_typ.exe
MSDE=f:\MSDE\msdex86.exe
MSDE_iss=f:\MSDE\unattend.iss
Card=\Card\Setup.exe
------------------------------------------------------
SetMSDE.pas
unit SetMSDE;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls, ExtCtrls, Groups, Buttons, ToolEdit, FileCtrl, Mask;
type
TMsdeFrm = class(TForm)
Label1: TLabel;
Label2: TLabel;
SortID: TRadioGroup;
OkBtn: TBitBtn;
CancelBtn: TBitBtn;
ProgramDir: TComboEdit;
DataDir: TComboEdit;
PipesCheck: TCheckBox;
TCPCheck: TCheckBox;
MultiprotocolCheck: TCheckBox;
NWLinkCheck: TCheckBox;
PipesEdit: TEdit;
Label3: TLabel;
Label4: TLabel;
PortEdit: TEdit;
ProxyEdit: TEdit;
Label5: TLabel;
Label6: TLabel;
NWLinkEdit: TEdit;
procedure ProgramDirButtonClick(Sender: TObject);
procedure DataDirButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PipesCheckClick(Sender: TObject);
procedure TCPCheckClick(Sender: TObject);
procedure NWLinkCheckClick(Sender: TObject);
private
public
function GetNetLib:integer;
function GetSortID:integer;
end;
var
MsdeFrm: TMsdeFrm;
implementation
{$R *.DFM}
const
Colors:array[boolean] of TColor=(clBtnFace, clWindow);
{ TMsdeFrm }
function TMsdeFrm.GetNetLib: integer;
begin
Result:=0;
if PipesCheck.Checked then Result:=Result or $F;
if TCPCheck.Checked then Result:=Result or $F0;
if MultiprotocolCheck.Checked then Result:=Result or $F00;
if NWLinkCheck.Checked then Result:=Result or $F000;
end;
function TMsdeFrm.GetSortID: integer;
begin
with SortID do
case ItemIndex of
0: Result:=52;
1: Result:=84;
2: Result:=94;
else Result:=0;
end;
end;
procedure TMsdeFrm.ProgramDirButtonClick(Sender: TObject);
var
RootDir:WideString;
OutDir:string;
begin
RootDir:='';
if SelectDirectory(Label1.Caption, RootDir, OutDir) then
ProgramDir.Text:=OutDir;
end;
procedure TMsdeFrm.DataDirButtonClick(Sender: TObject);
var
RootDir:WideString;
OutDir:string;
begin
RootDir:='';
if SelectDirectory(Label2.Caption, RootDir, OutDir) then
DataDir.Text:=OutDir;
end;
procedure TMsdeFrm.FormCreate(Sender: TObject);
begin
if Win32Platform<>VER_PLATFORM_WIN32_NT then
begin
PipesCheck.Checked:=false;
PipesCheck.Enabled:=false;
PipesCheckClick(nil);
end;
NWLinkCheckClick(nil);
end;
procedure TMsdeFrm.PipesCheckClick(Sender: TObject);
var
Check:boolean;
begin
Check:=PipesCheck.Checked;
PipesEdit.Enabled:=PipesCheck.Checked;
PipesEdit.Color:=Colors[Check];
end;
procedure TMsdeFrm.TCPCheckClick(Sender: TObject);
var
Check:boolean;
begin
Check:=TCPCheck.Checked;
PortEdit.Enabled:=Check;
PortEdit.Color:=Colors[Check];
ProxyEdit.Enabled:=Check;
ProxyEdit.Color:=Colors[Check];
end;
procedure TMsdeFrm.NWLinkCheckClick(Sender: TObject);
var
Check:boolean;
CompName:array[0.. MAX_COMPUTERNAME_LENGTH] of char;
nSize:DWord;
begin
Check:=NWLinkCheck.Checked;
NWLinkEdit.Enabled:=Check;
NWLinkEdit.Color:=Colors[Check];
if Check and (NWLinkEdit.Text='') then
begin
nSize:=SizeOf(CompName);
if GetComputerName(CompName, nSize) then
NWLinkEdit.Text:=CompName;
end;
end;
end.
-------------------------------------
SetMSDE.dfm
object MsdeFrm: TMsdeFrm
Left = 436
Top = 250
BorderStyle = bsDialog
Caption = 'MSDE options'
ClientHeight = 315
ClientWidth = 602
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 8
Width = 115
Height = 13
Caption = 'MSDE program directory'
FocusControl = ProgramDir
end
object Label2: TLabel
Left = 16
Top = 56
Width = 98
Height = 13
Caption = 'MSDE data directory'
FocusControl = DataDir
end
object Label3: TLabel
Left = 208
Top = 104
Width = 87
Height = 13
Caption = 'Named Pipe name'
end
object Label4: TLabel
Left = 208
Top = 152
Width = 57
Height = 13
Caption = 'Port number'
end
object Label5: TLabel
Left = 408
Top = 152
Width = 150
Height = 13
Caption = 'Remote Winsock proxy address'
end
object Label6: TLabel
Left = 208
Top = 232
Width = 134
Height = 13
Caption = 'Novell Bindery service name'
end
object SortID: TRadioGroup
Left = 296
Top = 16
Width = 289
Height = 73
Caption = 'Sort Order IDs'
ItemIndex = 1
Items.Strings = (
'ISO 1252 dictionary order, case-insensitive'
'Czech dictionary order, case-insensitive'
'Slovak dictionary order, case-insensitive')
TabOrder = 2
end
object OkBtn: TBitBtn
Left = 16
Top = 280
Width = 99
Height = 25
TabOrder = 11
Kind = bkOK
Margin = 2
Spacing = -1
end
object CancelBtn: TBitBtn
Left = 128
Top = 280
Width = 99
Height = 25
TabOrder = 12
Kind = bkCancel
Margin = 2
Spacing = -1
end
object ProgramDir: TComboEdit
Left = 16
Top = 24
Width = 257
Height = 21
GlyphKind = gkEllipsis
ButtonWidth = 16
NumGlyphs = 1
TabOrder = 0
Text = 'C:\MSSQL7'
OnButtonClick = ProgramDirButtonClick
end
object DataDir: TComboEdit
Left = 16
Top = 72
Width = 257
Height = 21
GlyphKind = gkEllipsis
ButtonWidth = 16
NumGlyphs = 1
TabOrder = 1
Text = 'C:\MSSQL7'
OnButtonClick = DataDirButtonClick
end
object PipesCheck: TCheckBox
Left = 16
Top = 112
Width = 161
Height = 17
Caption = 'Named Pipes'
Checked = True
State = cbChecked
TabOrder = 3
OnClick = PipesCheckClick
end
object TCPCheck: TCheckBox
Left = 16
Top = 160
Width = 161
Height = 17
Caption = 'TCP/IP Sockets'
Checked = True
State = cbChecked
TabOrder = 5
OnClick = TCPCheckClick
end
object MultiprotocolCheck: TCheckBox
Left = 16
Top = 200
Width = 161
Height = 17
Caption = 'Multiprotocol'
Checked = True
State = cbChecked
TabOrder = 8
end
object NWLinkCheck: TCheckBox
Left = 16
Top = 240
Width = 161
Height = 17
Caption = 'NWLink IPX/SPX'
TabOrder = 9
OnClick = NWLinkCheckClick
end
object PipesEdit: TEdit
Left = 208
Top = 120
Width = 169
Height = 21
TabOrder = 4
Text = '\\.\pipe\sql\query'
end
object PortEdit: TEdit
Left = 208
Top = 168
Width = 169
Height = 21
TabOrder = 6
Text = '1433'
end
object ProxyEdit: TEdit
Left = 408
Top = 168
Width = 169
Height = 21
TabOrder = 7
end
object NWLinkEdit: TEdit
Left = 208
Top = 248
Width = 169
Height = 21
TabOrder = 10
end
end
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
RichEdit
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 10.6.2000 20:10:25
Ahoj,
Mam nasledujici problem. Potrebuju, abych mel radky v RichEditu delsi nez je
sirka toho RichEditu, ale zaroven potrebuju, aby mi lamal radky. Takze
nastavim range scrollbaru pomoci SetScrollInfo, ale problem je v tom, ze
sice scrollbar je tak dlouhy jak ma, ale RichEdit mi lame radky stejne jako
kdybych ten scrollbar nemenil.
Takze nevite nekdo jak to udelat aby mi to ty radky zalamovalo tam kde ja
potrebuju - nekdy je to jeste pred okrajem RichEditu a nekdy je to az za
okrajem RichEditu.
Zdravi
Petr Jelinek - amatersky programator
http://pjmodos.hyperlink(tec)cz
StillOnTop
[*] Kuzelka Filip <kuzelka(zv)access-it(tec)cz> - 10.6.2000 14:50:05 -0400
d�ky Marify, nen� to sice uplne nej ..., ale fungovat by to mohlo.
-fk
>>> marify(zv)atlas(tec)cz 9.6.2000 6:57:09 >>>
Jednou jsem to taky potreboval ale nenapadlo mne nic jineho, nez
tady toto:
with form1 do
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,
SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
hodit do OnTimer,
Samozrejme by bylo lepsi volat to pri nejake udalosti. Takove, ktera se vola
pri presunovani jinych oken nebo neco podobneho.
Snad pomuze jeste nekdo dalsi.
Marify
xskriva1(zv)fi.muni(tec)cz
http://www.fi.muni(tec)cz/~xskriva1
PopUpKiler
[*] Milan ��ek - 10.6.2000 21:16:19
Potrebuju nejakym zpusobem zjistit parametry okna jin� aplikace (napr. sirku
a vysku formy)...
abych ho mohl pot� napr. zavrit pomoc�:
PostMessage(FindWindow(Nil,'Caption okna'){Zjist� Handle dan�ho
okna},WM_QUIT,0,0);
nebo t�eba tak:
{
To programmatically close another application,
send to the application a WM_QUIT message.
"Window caption" is the caption of the
window that you are sending the message to.
}
function KillApp(const sCapt: PChar) : boolean;
var AppHandle:THandle;
begin
AppHandle:=FindWindow(Nil, sCapt);
Result:=PostMessage(AppHandle, WM_QUIT, 0, 0);
end;
{Usage:}
if not KillApp('Window caption') then
ShowMessage('App not closed');
Poradte mi prosim nekdo, ktera z techto dvou variant je vyhodnejsi.
diky milanc
zmena velkosti suboru
[*] nnfapso(zv)kios.sk - 10.6.2000 21:28:51
Ahojte,
Ked som do exe suboru (32-bitoveho) vlozil v Hexa editore nejaky kod, ktory nic nerobil (pre zaciatok staci) a spustil som ten exe subor, tak mi spadol. Nevie niekto, kde, co a ako treba prepisat v exe subore, aby sa mu zmenila velkost (a isiel spustit aj po vlozeni nejakeho kodu)?
Prosim, pomozte mi.
Dakujem
Miso nnfapso(zv)kios.sk
Pocet zaznamu v tabulce FlashFiler
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.6.2000 22:24:52
Puvodni zprava, kterou napsal Ing. Lud�k Florian dne 9 Jun 00,:
> nevite, jak jednoduse a hlavne rychle spocitat pocet zaznamu v tabulce ?
> Zatim pouzivam klasiku - while not table.eof do .... table.next;
> Jenze na 30000 zaznamech uz muzu jit na pivo. SQL u FF neni.=20
> Ma nekdo figl, jak to zrychlit ?
FlashFiler, ktery pouzivas, podporuje funkci RecordCount,
takze FFTable.RecordCount. Pozor, pokud mas nasazen filtr
na teto tabulce, tak ten na to nema vliv a funkce vraci
pocet zaznamu v cele tabulce.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
zmena velkosti suboru
[*] Josef Zlomek <josef.zlomek(zv)email(tec)cz> - 11.6.2000 05:34:35
Obavam se, ze to (jednoduse) nepujde. Kdyz vlozis do kodu programu nejake
bajty, posunes tim ostatni a tim padem budou instrukce na jinych adresach.
A nektere adresove reference jsou absolutni => budou ukazovat jinam.
Pokud bys chtel jen PREPSAT nejake bajty jinymi, tak by to slo, tak jax rikal.
Jedina moznost pro vlozeni kodu by byla program disassemblovat (prevest do
zdrojaku v assembleru), pripsat tam neco v assembleru a zase assemblerem
zkompilovat. Neznam ale zadny disassembler pro windoze.
Josef Zlomek
josef.zlomek(zv)email(tec)cz
> Ked som do exe suboru (32-bitoveho) vlozil v Hexa editore nejaky kod,
ktory nic nerobil (pre zaciatok staci) a spustil som ten exe subor, tak mi
spadol. Nevie niekto, kde, co a ako treba prepisat v exe subore, aby sa mu
zmenila velkost (a isiel spustit aj po vlozeni nejakeho kodu)?
>
> Miso nnfapso(zv)kios.sk
> Pocet zaznamu v tabulce FlashFiler
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 11.6.2000 07:29:18
Cauec,
> > nevite, jak jednoduse a hlavne rychle spocitat pocet zaznamu v tabulce ?
>
> FlashFiler, ktery pouzivas, podporuje funkci RecordCount,
> takze FFTable.RecordCount. Pozor, pokud mas nasazen filtr
Je zajimave, ze se o tom nepise v manualu. Viz strana 98 manualu k FF. Ani
dale, ani v rejstriku o tom neni ani slovo.
Dekuji za radu.
Bye Ludan
Problem s OLE DB komponentami
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.6.2000 07:48:04
On 9 Jun 2000, at 22:08, Martin Falta wrote:
> Pouzivam Access 2000, provider je Microsoft.Jet.OLEDB.4.0.
> Pokud nastavim ooTableName, zadam TableName, tak je vse v poradku,
> ovsem nastavim-li ooSQL, zadam SELECT * FROM tabulka, tak dostanu tu
> nechutnou chybu.
Na Accessu jsem to netestoval. Zkus to tedy odkrokovat, kde
presne to vraci chybu.
Udelal jsem si pouze letmy test na jedne tabulce, a bez problemu
(ovsem na verzi, kterou jsem vcera vystavil). Stahni si novou verzi,
a vyzkousej to.
Pripadne v OdbRecord otevri RowsetProp a nastav
CursorType=Static a LockType=ReadOnly.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
jak za behu programu vytvorim novou komponentu
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 11.6.2000 09:48:13
Ahoj,
napriklad takhle
procedure TForm1.Button1Click(Sender: TObject);
var
LLabel: TLabel;
begin
LLabel := TLabel.Create(self);
with LLabel do
begin
Left := 50;
Top := 50;
Parent := self;
Caption := 'New Label';
Visible := True;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Marek Eichler
e-mail: marek.eichler(zv)atlas(tec)cz
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
----- Original Message -----
From: Jan Bachor
To: delphi-l(zv)fwd(tec)cz
Sent: Sunday, June 11, 2000 10:18 AM
Subject: jak za behu programu vytvorim novou komponentu
Zdravim
mam, dotaz, jak za behu programu vytvorim novou komponentu,
jedna se mi presne o tohle
po spusteny mam na formu jenom jeden label, a pak bych chtel treba po stiknu
tlacitka
tam mit dalsi label
jak na to?
predem diky
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
Hladanie v datab�ze
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 11.6.2000 09:55:26
ahoj,
selectem se hodi vybirat rovnou nekolik zaznamu treba se stejnym korenem
slova, protoze je to vzdy urcity nahled, ktery ti zobrazi pouze nalezene
polozky.
Priklad: vyhledat vsechna jmena s korenem "PET"
SELECT FROM TVOJE_TABLE WHERE JMENO LIKE %PET%
- ten koren das jako parametr a uz muzes vyhledavat.
M.Jirman
----- Original Message -----
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>> Zdravim,
>
> podobny dotaz som sice uz pisal, ale nevyjadril som sa k odpovediam. Ja by
> som potreboval urobit v databaze vyhladavanie. Ak vyhladavam v jednom poli
> tak mi staci locate, ale ak chcem vyhladavat v celej databaze uz mi
nestaci.
>
> Da sa tu pouzit select? ak ano, ako?. V qery by sa select moc menit nemal,
> tak ako najdem zaznam a presuniem sa na neho?
>
> Dik moc, Miso
>Hry v Delphi
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 11.6.2000 09:58:47
ahoj,
neslo by treba pouzivat najakou externi dos aplikaci, ktere zadas jako
parametr jmeno souboru.
M.Jirman
From: nnfapso(zv)kios.sk
Ahojte,
Rad by som zacal programovat nejake 3D hry v Delphi. Animacie vo formate
3DS si spravim, ale neviem, ako ich dostat do programu.
Prosim pomozte mi
S pozdravom Miso nnfapso(zv)kios.sk
jak za behu programu vytvorim novou komponentu
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 11.6.2000 10:18:06
Zdravim
mam, dotaz, jak za behu programu vytvorim novou komponentu,
jedna se mi presne o tohle
po spusteny mam na formu jenom jeden label, a pak bych chtel treba po stiknu tlacitka
tam mit dalsi label
jak na to?
predem diky
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
Next Char Selected
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 11.6.2000 11:00:56
ahoj,
A co takhle dat do udalosti OnKeyPress nebo OnKeyDown
Memo(nebocotoje).SelLength:=1;
M.Jirman
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>> Zdravim.
>
> Ako by som zabezpecil aby bol nasledujuci znak za kurzorom selectnuty a
aby
> sa nemohlo stat, ze by klavesou sipka stratil selected zase nasledujuci
> znak.
>
> Dakujem
>
> Roland.
>
>Posta - mozne reseni ?
[*] Jaro <jaro(zv)sinea(tec)cz> - 11.6.2000 11:05:36
Ja bych potrebooval neco jednoducheho.
Staci mi to pro Outlook Expres.
Potrebuji z databaze adres vzit sezman e-mailu, dat je do "skryta",
Nadepsat predmet a z nejakeho text souboru vlozit obsah.
Zpravu otevrit nebo ulozit do koncepty. Odesilani muze byt rucni,
protoze tam zpravidla stejne neco dopisuji.
Nemel by nekdo nejakou jednoduchou komponentu nebo funkci?
S ShellExecute se mi nedari .... (:
Jaro
> From: "Slaby Petr (Pilsen)" <slaby(zv)kadel(tec)cz>
> > Ahoj,
> > da se to obejit tim, ze nepouzijes ShellExecute, ale sam si
prectes registry a udelas to same
> co ShellExecute pomoci CreateProcess. Je ale treba pocitat s
postranimy efekty, nektery klient
> napriklad muze pro ShellExecute pouzivat DDE. Skoda, ze Windows
nejsou Open Source, dalo by se
> ukrast (ADMIN promine, to bylo nevhodne slovo) ^H^H^H^H vypujcit si
ShellExecute a jenom ho
> upravit aby fungovalo i s nazvy souboru delsimi nez 256 znaku.
> >
> > I kdyz ale tohle vsechno uspokojive vyresis, je tu jeste problem s
tim, ze ne vsichni klienti
> chapou rozsirenou notaci v mailto. Kuprikladu Outlook nainstalovany
s Office 97 (aspon myslim,
> ze to byl on) nacpal pri testech vsechny parametry do adresy
prijemce.
>
> Ahoj,
>
> a co pouzit MAPISendMail ? Vim ze je treba mit instalovane alespon
Simple MAPI.
> Ale, v registru jsou mailery pod
HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail ,
> vetsina (krome Outlooku ktery sebou snad vzdy instlauje MAPI?) tam
ma i polozku
> DLLPath, ktera ukazuje na nejakou knihovnu. Tato knihovna pak
exportuje krom
> jinych i funkci MAPISendMail. Pokud tuto funkci pouziju primo
stejnym zpusobem
> jako volani MAPI tak to funguje. Zkousel jsem to metodou pokus-omyl,
zatim to
> mam overene u Outlook Express 5 a Netscape 4.7. Nemam vsak cistou
instalaci jen
> s IE (ci NC) bez instalovaneho MAPI, takze by tuto teorii bylo dobre
odzkouset.
> Pak by nebyl problem napsat funkci, ktera by se nejdrive snazila
pouzit MAPI a
> pokud by nebylo instalovano tak prosla registr, vybrala mailer,
zkontrolovala
> pritomnost dane DLL, exportovane funkce a tu zavolala. Je nekdo
ochoten toto
> odzkouset na instalaci bez MAPI ?
>
> Petr Vones, amatersky programator
>Paradox a sit
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 11.6.2000 10:13:46
> Ahoj,
>
> nevite nekdo jak uchodit aplikace pouzivajici BDE a PARADOX tabulky na
> siti? Kdyz spustim jednu aplikaci, druha hlasi, ze jsou tabulky jiz
> zamcene. Jsou otevreny pro cteni i zapis. A zustanou pak i spravne indexy?
>
> Predem dekuji za odpoved...
>
>
V BDE Admin musis nastavit na zalozce configuration pro paradox
spolecny NET DIR!
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Kl�vesnice - nastaven�
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 11.6.2000 11:23:24
Zdravicko, nevite nekdo, jak se da nastavit rychlost opakovani stisku
klavesy ? Nastaveni-Klavesnice-Rychlost opakovani. Potrebuji to nastavit z
delhi 3 ve win9x.
Za rady a namety predem dekuji.
Batex
Instalace MSDE a take (was: Spusteni DCOM a MDAC)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 11.6.2000 13:46:41
Verzi ADO lze kontrolovat takto:
Connection := CreateOleObject('ADODB.Connection');
Result := Connection.Version;
cim je v podstate IMHO urcena verze MDACu.
Mac
P.S. Zbysku, nebylo by jednodussi poslat ty tvoje zdrojaky na FTP ? ;-)
----- Original Message -----
From: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, June 10, 2000 7:38 PM
Subject: RE: Instalace MSDE a take (was: Spusteni DCOM a MDAC)
Ahoj all,
Upravil jsem instalaci programu ze subj., vyresil jsem i problem
instalace na NoWell siti. Zde je komplet zdrojak, lze pouzit temer
tak jak je. Doufam, ze neni treba vysvetlovat smysl setup.ini.
Pokud nekdo prijde, jak zjistit predem jaka verze MSIE a MDAC je
nainstalovana, sem s tim.
Posta - mozne reseni - PROSIM ODZKOUSEJTE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 15:16:56
From: "Jaro" <jaro(zv)sinea(tec)cz>
> Nadepsat predmet a z nejakeho text souboru vlozit obsah.
> Zpravu otevrit nebo ulozit do koncepty. Odesilani muze byt rucni,
> protoze tam zpravidla stejne neco dopisuji.
> Nemel by nekdo nejakou jednoduchou komponentu nebo funkci?
Ahoj,
Tady je jednoduche demo dle teorie kterou jsem tu popsal pred par dny:
http://www.volweb(tec)cz/pvones/download/SendMailDemo.zip
nebo i jako EXE (196k):
http://www.volweb(tec)cz/pvones/download/SendMailDemoBin.zip
Je mozne pouzit bud MAPI (pokud je instalovano) nebo volat DLL klienta
primo. V tomto pripade by patrne nemuselo byt MAPI vubec instalovano,
ale toto bych prave potreboval odzkouset. Takze pokud zde nekdo mate
instalaci Windows s OE, NC nebo jinymi klienty, ale bez instalovaneho
MAPI, tak to prosim zkuste. Vychazim z toho, ze pri pouziti toho druheho
zpusobu neni knihovna MAPI vubec zavedena do procesu, ale to neznamena,
ze to bude opravdu fungovat ;-) Diky.
Petr Vones, amatersky programator
Parametry programu v BCB
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.6.2000 17:09:41
Ahoj
Jak se dostanu k parametrum programu v BCB?
Neco jak je v Delphi ParamStr, ParamCount...
Potrbuji v hlavnim formulari v udalosti OnCreate zjistit s jakymi
paramtery byl program spusten.
Je mi jasne ze je to minimalne v projektu -funkce WinMain 3.
parametr. Zajimalo by me, jak se k nemu dostanu v tom hlavnim
formulari a zda jde k tomu pristupovat nejak hezky pres nejake pole.
Diky
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Parametry programu v BCB
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 11.6.2000 18:35:28
> Jak se dostanu k parametrum programu v BCB?
> Neco jak je v Delphi ParamStr, ParamCount...
Az je to k nevire tak delphi sou Packal, takze uplne stejne :))
McLEI
Parametry programu v BCB
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.6.2000 18:51:39
> > Jak se dostanu k parametrum programu v BCB?
> > Neco jak je v Delphi ParamStr, ParamCount...
> Az je to k nevire tak delphi sou Packal, takze uplne stejne :))
*** No ja mluvil o BCB tedy Borland C++ Builder a ne Delphi!
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Parametry programu v BCB
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.6.2000 18:55:19
> > Jak se dostanu k parametrum programu v BCB?
> > Neco jak je v Delphi ParamStr, ParamCount...
> Az je to k nevire tak delphi sou Packal, takze uplne stejne :))
*** no pochopil jsem to tak, ze mluvis o Delphi a ne o Builderu, ale
schvalne jsem to zkusil a ejhle ono to tam taky funguje! (Ten
ParamStr a Count) Takze diky!
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Parametry programu v BCB
[*] Erik Salaj <winsoft(zv)napri.sk> - 11.6.2000 18:57:05
> Jak se dostanu k parametrum programu v BCB?
> Neco jak je v Delphi ParamStr, ParamCount...
Rovnako ako v Delphi:
ShowMessage("Pocet parametrov: " + IntToStr(ParamCount()));
for (int i = 1; i <= ParamCount(); ++i)
ShowMessage("Parameter[" + IntToStr(i) + "]: " + ParamStr(i));
Erik Salaj, WINSOFT
Access databaze
[*] Tomas Vesely <veselyt(zv)atlas(tec)cz> - 11.6.2000 20:05:45
Pres nativni ovladac Accessu se tam nemuzes dostat, protoze neni napsan pro
Access2000.
Vesna
-----P�vodn� zpr�va-----
Od: azeleny(zv)csas(tec)cz <azeleny(zv)csas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 2000 12:44
P�edm�t: Access databaze
>DDV,
>nevite nekdo prosim proc nejsem schopen se pripojit do databaze MS Accessu
>2000 (CZ) - Kdyz chci pouzit nativni driver BDE (5.1.0.4) - vrati to pri
>popkusu o pripojeni (z BDE adminu) chybu:
>
>BDE Error: 13059 [$33] [$ 3]
>Server Error:
>Popis: General SQL error.
>
>BDE Error: 13059 [$33] [$ 3]
>Server Error: -2147221164
>Popis: -2147221164
>
>BDE Error: 13059 [$33] [$ 3]
>Server Error:
>Popis: Table
>
>BDE Error: 13059 [$33] [$ 3]
>Server Error:
>Popis: Alias: test
>
>Kdyz pouziji ODBC, tak se pripojim, ale zase to mrsi diakritiku, tak nevim.
>To ODBC by mi stacilo, jenom, kdyby ta dakritika chodila dobre.
>
>Diky za zkusenosti, napady, odkazy...
>a.
>
>-----------------------------------------------------------------------
>Ale� Zelen�
>�esk� spo�itela a.s.
>Na Per�t�n� 1
>113 98 Praha 1
>Email: azeleny(zv)csas(tec)cz
>tel: +420 2 24995 236
>-----------------------------------------------------------------------
>Due to technical difficulties tomorrow has been postponed indefinitely.
>Editor ciselniku
[*] Tomas Vesely <veselyt(zv)atlas(tec)cz> - 11.6.2000 20:07:32
A proc si ho nevygenerujes v run-timu podle toho jake tam jsou fieldy? Je
pravda, ze graficka stranka je trochu horsi, ale neco za neco.
Vesna
-----P�vodn� zpr�va-----
Od: David Lebeda <david.lebeda(zv)comarr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 2000 17:02
P�edm�t: Editor ciselniku
Ahoj,
ve sve aplikaci, ktera obsahuje i nekolik ciselniku (MSSQL 7), bych
rad vytvoril modul na udrzbu techto ciselniku. Konkretne mi jde
napr. o vlozeni zaznamu ci editaci zaznamu. Problem je, ze v
ruznych ciselnicich je ruzny pocet poli, i kdyz nektera jsou povinna
v kazdem ciselniku.
Klasicka cesta, kdy se vytvori zadavaci formular, do nej se
umisti par editu apod., tady prave kvuli obecnosti nejde. Napadlo
me pouzit jakysi editor jednoho celeho zaznamu, tj. neco ve stylu
jednoradkoveho DBGridu, ale mozna mate nekdo lepsi napad? :)
Dik za jakekoli podnety.
David
Pocet zaznamu v tabulce FlashFiler
[*] Tomas Vesely <veselyt(zv)atlas(tec)cz> - 11.6.2000 20:10:57
No na 30 000 zaznamech by to melo jit velmi rychle, dle me. Dal bych prednost countu v SQL dotazu, protoze to cele jede na serveru, ale stejne na velke db se proste countu musi vyhybat, jak cert krizi, protoze opravdu m
musi jet zaznam po zaznamu.
Vesna
-----P�vodn� zpr�va-----
Od: Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 2000 15:05
P�edm�t: Pocet zaznamu v tabulce FlashFiler
Cauec,
nevite, jak jednoduse a hlavne rychle spocitat pocet zaznamu v tabulce ?
Zatim pouzivam klasiku - while not table.eof do .... table.next;
Jenze na 30000 zaznamech uz muzu jit na pivo. SQL u FF neni.
Ma nekdo figl, jak to zrychlit ?
Dik
Bye Ludan
jak za behu programu vytvorim novou komponentu
[*] Tomas Vesely <veselyt(zv)atlas(tec)cz> - 11.6.2000 20:13:11
Jednoduse, proste si ho vycreatujes v runtimu pres TLabel.Create(.) a pak priradis parenta.
Vesna
-----P�vodn� zpr�va-----
Od: Jan Bachor <bachor(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. �ervna 2000 11:45
P�edm�t: jak za behu programu vytvorim novou komponentu
Zdravim
mam, dotaz, jak za behu programu vytvorim novou komponentu,
jedna se mi presne o tohle
po spusteny mam na formu jenom jeden label, a pak bych chtel treba po stiknu tlacitka
tam mit dalsi label
jak na to?
predem diky
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
Bezpecnost programov
[*] nnfapso(zv)kios.sk - 11.6.2000 21:58:25
Ahojte,
Nevie niekto, ako by sa dala spravit spolahliva trial verzia nejakeho mojho programu, ale nie tak, ze ked sa prestavi vo window$och cas, tak bude funkcna naveky...
Dakujem
Miso nnfapso(zv)kios.sk
zmena velkosti suboru
[*] nnfapso(zv)kios.sk - 11.6.2000 22:03:47
Disassembler pro windoze mam, ale nikde som nenasiel asembler pre windoze
----- Original Message -----
Od: Josef Zlomek <josef.zlomek(zv)email(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 11. j�n 2000 5:34
Predmet: Re: zmena velkosti suboru
> Obavam se, ze to (jednoduse) nepujde. Kdyz vlozis do kodu programu nejake
> bajty, posunes tim ostatni a tim padem budou instrukce na jinych
adresach.
> A nektere adresove reference jsou absolutni => budou ukazovat jinam.
> Pokud bys chtel jen PREPSAT nejake bajty jinymi, tak by to slo, tak jax
rikal.
>
> Jedina moznost pro vlozeni kodu by byla program disassemblovat (prevest do
> zdrojaku v assembleru), pripsat tam neco v assembleru a zase assemblerem
> zkompilovat. Neznam ale zadny disassembler pro windoze.
>
> Josef Zlomek
> josef.zlomek(zv)email(tec)cz
>
> > Ked som do exe suboru (32-bitoveho) vlozil v Hexa editore nejaky
kod,
> ktory nic nerobil (pre zaciatok staci) a spustil som ten exe subor, tak
mi
> spadol. Nevie niekto, kde, co a ako treba prepisat v exe subore, aby sa
mu
> zmenila velkost (a isiel spustit aj po vlozeni nejakeho kodu)?
> >
> > Miso nnfapso(zv)kios.sk
> >
>zmena velkosti suboru
[*] Lauko �tefan <lauko(zv)salamon.sk> - 11.6.2000 22:11:16
Ahoj,
napriklad takto:
Copy /b xxxx.exe nieco.bin.
Pridane bajty su ignorovane. Tak pracuju self-extractory. Potom priamo z exe
mozem otvorit subor (sam seba) a ziskat prilozene bajty. V samotnom
exe-subore je nebezpecne nieco prepisovat...
Lauko.
----- Original Message -----
From: nnfapso(zv)kios.sk
To: delphi konferencia
Sent: Saturday, June 10, 2000 9:28 PM
Subject: zmena velkosti suboru
Ahojte,
Ked som do exe suboru (32-bitoveho) vlozil v Hexa editore nejaky kod,
ktory nic nerobil (pre zaciatok staci) a spustil som ten exe subor, tak mi
spadol. Nevie niekto, kde, co a ako treba prepisat v exe subore, aby sa mu
zmenila velkost (a isiel spustit aj po vlozeni nejakeho kodu)?
Prosim, pomozte mi.
Dakujem
Miso nnfapso(zv)kios.sk
zmena velkosti suboru
[*] nnfapso(zv)kios.sk - 11.6.2000 22:16:12
A co keby som dal ten moj kod nakoniec suboru (nic by sa neposunulo) a tam, kde som ho chcel povodne vlozit, nanho iba odkazem. Ale aj v tomto pripade potrebujem vediet, ako zmenit tu velkost suboru
Kylix
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:55
From: "Parizsky Ladislav" <Parizsky(zv)access-it(tec)cz>
> Cau nevite nekdo zda bude aplikace napsana v kylixu funkcni i pod Win ?
Ahoj,
Vedle dosavadni VCL (ktera bude nadale jen pro Windows) by mela existovat
dalsi alternativni knihovna CLX, ktera bude jak pro Linux tak i pro Windows.
Vice se doctes tady (http://delphi-jedi.org/Jedi:VOYJEDIX)
Petr Vones, amatersky programator
Pluginy za pomoc� dll knihoven
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:49
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> Cht�l bych vytvo�it n�sleduj�c� projekt: Forma, obsahujici PageControl. Nyn�
> bych potreboval prenest z dll knihovny TabSheet1 a pridat ho do hlavni formy
> na PageControl (se v�emi umistenymi prvky) tak, aby se v�echny obsluhy
> udalosti, atd... zpracovavali rovnez z dll knihovny.
>
> Chtel bych tento postup pouzit pro nacitani plugin modulu. Co modul, to
Ahoj,
Asi nejlepsi zpusob je pouzit dynamicky zavadene balicky. Tim totiz snadno
dosahnes moznosti predavat objekty mezi aplikaci a balickem. Priklady jsou
tady:
http://www.obsof.com/delphi_tips/DL613.html
http://www.borland.com/devsupport/delphi/downloads/index.html
Petr Vones, amatersky programator
Mod�ln� okno aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:58
From: "Libor Junek" <libor(zv)thsoft(tec)cz>
> Nevite nekdo jak zjistit jake okno aplikace je modalni?
Ahoj,
Pokud to chces ve vlastni aplikaci, tak podle vlastnosti TCustomForm.FormState
Petr Vones, amatersky programator
Multiselect na TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:13
From: "Pavel �ern�" <cerny(zv)cerny-ps(tec)cz>
> Potreboval bych umoznit uzivatele vyselektovat
> najednou nekolik uzlu v TreeView. Da se to provest
> se standardni komponentou TreeView ??
Ahoj,
Pokud pouzijes udalost OnCustomDrawItem, tak si muzes vykreslovat oznacene
jakekoli polozky. Ve spojeni s obsluhou udalosti mysi a klavesnice si pak
muzes doprogramovat oznacovani polozek.
Petr Vones, amatersky programator
RichEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:39
From: "Petr Jel�nek Konf" <pjmodos(zv)seznam(tec)cz>
> Mam nasledujici problem. Potrebuju, abych mel radky v RichEditu delsi nez je
> sirka toho RichEditu, ale zaroven potrebuju, aby mi lamal radky. Takze
Ahoj,
pro nastaveni velikosti plochy pouzij zpravu EM_SETRECT. Priklad najdes v
Demos\Richedit
Petr Vones, amatersky programator
opet mwCustomEdit-BookMarks
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:52
From: "Hurricane" <hurricane(zv)email(tec)cz>
> Opet mam dalsi problem, potrebuji zjistovat existenci bookmarku.
Ahoj,
Pokud jsem to dobre pochopil, tak mwEdit presel v SynEdit, odkaz najdes tady
(http://delphree.clexpert.com/pages/app_SYNEDIT.htm)
Petr Vones, amatersky programator
Skrytie property v potomkovi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:24
From: "Ondrej Jaura" <jaura(zv)datalock.sk>
> U potomka potrebujem skryt property - ako na to?
Ahoj,
Teoreticky to je mozne nadefinovanim vlastnosti se stejnym jmenem, ale
jen jako read-only. Muze to mit ale dalsi vedlejsi problemy.
Petr Vones, amatersky programator
stav modemu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:16
From: "delfinojd" <delfinojd(zv)atlas(tec)cz>
> nevite prosim nekdo, kterak monitorovat stav modemu "pripojen",
> "nepripoje", pripadne dalsi moznosti.
Ahoj,
zalezi na tom, co povazujes za "pripojen". Muze to byt volani TAPI nebo
pripojeni pres RAS a podobne. Napriklad u RAS lze periodicky volat API
funkci RasEnumConnections.
Petr Vones, amatersky programator
Zmazanie image
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:44
From: "Delphy confera na MV SR" <delphi(zv)minv.sk>
> Vie si niketo spomenut na zmazanie image??
Ahoj,
napriklad:
Image1.Picture := nil;
Petr Vones, amatersky programator
zmena velkosti suboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:00:35
From: <nnfapso(zv)kios.sk>
> Ked som do exe suboru (32-bitoveho) vlozil v Hexa editore nejaky kod,
> ktory nic nerobil (pre zaciatok staci) a spustil som ten exe subor, tak
> mi spadol. Nevie niekto, kde, co a ako treba prepisat v exe subore, aby
> sa mu zmenila velkost (a isiel spustit aj po vlozeni nejakeho kodu)?
Ahoj,
pokud ti jde o prepsani existujiciho kodu v PE souboru, tak to je trochu
slozitejsi. Pro zacatek bych doporucoval si neco precit o PE formatu, na
MSDN (http://search.microsoft.com/us/dev/default.asp) si vyhledej clanek
"Peering Inside the PE: A Tour of the Win32 Portable Executable File Format".
Petr Vones, amatersky programator
Konzolova aplikace s cestinou
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.6.2000 23:01:04
From: "Marek Eichler" <marek.eichler(zv)atlas(tec)cz>
> Potreboval bych poradit jak pri pouziti WriteLn('Dobr� den'); v konzolove
> aplikaci dosahnout toho, aby se mi zobrazovala cestina.
Ahoj,
slo by to udelat treba takhle. Jinak na NT (ne na Win9x !) muzes misto toho
pouzit funkci SetConsoleOutputCP.
program Project1;
{$APPTYPE CONSOLE}
uses
Windows;
procedure WriteLnAnsi(const S: string);
var
OemStr: string;
begin
SetLength(OemStr, Length(S));
CharToOemBuff(PChar(S), PChar(OemStr), Length(S));
Writeln(OemStr);
end;
begin
WriteLnAnsi('Dobr� den');
Readln;
end.
Petr Vones, amatersky programator
Pocet zaznamu v tabulce FlashFiler
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.6.2000 23:16:20
Puvodni zprava, kterou napsal Tomas Vesely dne 11 Jun 00,:
> No na 30 000 zaznamech by to melo jit velmi rychle, dle me. Dal bych =
> prednost countu v SQL dotazu, protoze to cele jede na serveru, ale =
Kdyz nekde neni podpora SQL, tak tam jaksi Count v SQL dotazu
nelze pouzit...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
RichEdit
[*] Hurricane <hurricane(zv)email(tec)cz> - 12.6.2000 00:22:48
Zdravim
No a tim editorem z RA Libu to nejde? Kdyz uz sem zacal o Editorech, nevite
nekdo, kde se da stahnout nejnovejsi verze (min 0.9) mwCustomEditu? Jeji
spoluautor Primoz Gabrijelcic rikal, ze uz to skoncilo a ze je to zruseny.
Na netu sem nasel jenom strasne zastaralou verzi 0.5 a proto schanim
kompletni ZIPak nejaky novejsi. Nevite o tom nekdo?
Hurricane
----- Original Message -----
> Mam nasledujici problem. Potrebuju, abych mel radky v RichEditu delsi nez
je
> sirka toho RichEditu, ale zaroven potrebuju, aby mi lamal radky. Takze
> nastavim range scrollbaru pomoci SetScrollInfo, ale problem je v tom, ze
> sice scrollbar je tak dlouhy jak ma, ale RichEdit mi lame radky stejne
jako
> kdybych ten scrollbar nemenil.
> Takze nevite nekdo jak to udelat aby mi to ty radky zalamovalo tam kde ja
> potrebuju - nekdy je to jeste pred okrajem RichEditu a nekdy je to az za
> okrajem RichEditu.dbgrid a barevne radky a sloupce
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 12.6.2000 00:42:49
Zdravim,
mam D5Prof a W98. Jakym zpusobem lze vykreslit odlisne barevne radky v DBGRID podle obsahu recordu ? A Jakym zpusobem lze jeste vykreslit odlisne barevne i sloupce ? Take potrebuji, aby se odlisne barevne vykresloval aktualni radek v dbgrid ? Dekuji za pomoc.
Daniel Resler
Posta - mozne reseni - PROSIM ODZKOUSEJTE
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.6.2000 03:01:08
Priklad funguje pri pouziti Send using &MAPI
V pripade Send using selected client below &directly
funguje pouze vyber Microsoft Outlook
Otllook Expres (prestoze jej mam nainstalovan - Windows 2000 CZ)
hlasi chybu "uvedeny objekt nebyl nalezen" na radku
(zv)MapiSendMailFunc := GetProcAddress(LibHandle, 'MAPISendMail');
Me osobne staci jedna funkcni metoda, napr. to MAPI.
V prikladu mi vsak chybi vlozeni e-mail adres
a MapiMessage jsem k tomu nenasel vhodn� parametr.
Ja bych adresy potreboval volitelne posilat jako "skryta" polozka,
protoze by pro ctenare asi nebylo prijemne,
aby jejich e-maily byly vsude viditelne.
Jaro.> From: "Jaro" <jaro(zv)sinea(tec)cz>
> > Nadepsat predmet a z nejakeho text souboru vlozit obsah.
> > Zpravu otevrit nebo ulozit do koncepty. Odesilani muze byt rucni,
> > protoze tam zpravidla stejne neco dopisuji.
> > Nemel by nekdo nejakou jednoduchou komponentu nebo funkci?
>
> Ahoj,
>
> Tady je jednoduche demo dle teorie kterou jsem tu popsal pred par
dny:
> http://www.volweb(tec)cz/pvones/download/SendMailDemo.zip
>
> nebo i jako EXE (196k):
> http://www.volweb(tec)cz/pvones/download/SendMailDemoBin.zip
>
> Je mozne pouzit bud MAPI (pokud je instalovano) nebo volat DLL
klienta
> primo. V tomto pripade by patrne nemuselo byt MAPI vubec
instalovano,
> ale toto bych prave potreboval odzkouset. Takze pokud zde nekdo mate
> instalaci Windows s OE, NC nebo jinymi klienty, ale bez
instalovaneho
> MAPI, tak to prosim zkuste. Vychazim z toho, ze pri pouziti toho
druheho
> zpusobu neni knihovna MAPI vubec zavedena do procesu, ale to
neznamena,
> ze to bude opravdu fungovat ;-) Diky.
>
> Petr Vones, amatersky programator
>
>
>
>Mod�ln� okno aplikace
[*] Libor Junek <libor(zv)thsoft(tec)cz> - 12.6.2000 07:26:03
> From: "Libor Junek" <libor(zv)thsoft(tec)cz>
> > Nevite nekdo jak zjistit jake okno aplikace je modalni?
>
> Ahoj,
>
> Pokud to chces ve vlastni aplikaci, tak podle vlastnosti
TCustomForm.FormState
>
To by sice slo ale neumim si predstavit podminku kdyz aplikace ma napriklad
100 formularu.
Potrebuji aby to bylo alespon trochu univerzalni a nemusel upravovat
podminku vzdy kdyz vytvorim novy Form. Potrebuji nejakou fci ktera mi vrati
HWND nebo primo modalni formular.
Jedine by se to dalo udelat kdyby slo najit formular (Objekt) podle jmena
(to nevim jestli jde) u komponent formulare se pouziva FindComponent nebo
neco podobneho.
Libor Junek
Canvas.
[*] Delphi confera na MV SR <delphi(zv)minv.sk> - 12.6.2000 07:42:24
> Nevite jak smazat Canvas ? Pokud na nejj neco nakreslim a chci to potom
> smazat, jak na to ? + jak docilit toho ze pokud nastavim
> hodnotu pixelu na cavasu aby tam ta barva tam skutecne zustala. Ja sem
> posunul okno mimo obrazovku a po navratu (refresh po jinem okne) se to
> nastavilo na puvodni hodnotu pozadi a ne na nastavenou barvu.
>
>
> J.
>
picture:=NIL;
Werki
(Mr`s Vones`s suggestion. Da sa to aj inak, ale toto faxci tiez)Ulo�en� dat z OLE do datab�ze.
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.6.2000 07:54:28
Toto se da vcelku jednoduse osetrit pomoci COM objektu. Pokud se (v pripade,
ze pouzivate D5) podivate na zalozku Servers, tak je tam objekt zvany
WordApplication. Ten ma udalost onQuit, adale je zde objekt WordDocument,
ktery ma udalost onClose. V obsluze techto udalosti muzete provest ulozeni
dokumentu do databaze.
Milan Tomes
> M�m aplikaci, kter� nastartuje Word pomoc� OLE komponenty.
> Klienti po�aduj�, aby se vytvo�en� a ulo�en� objekt ulo�il p��mo
> do datab�ze
> (Oracle).
> Dnes se to �e�� tak, �e klient mus� ulo�it data na disk do n�j�ho
> souboru a
> pak v aplikaci mus� zvolit
> funkci Na��st soubor do DB.
>
> Porad� mi n�kdo, jak tohle ud�lat automaticky. Nev�m toti�, jak nav�zat
> zp�tnou komunikaci Word - OLE
>
> D�ky.
>
> Miki
Konzolova aplikace s cestinou
[*] azeleny(zv)csas(tec)cz - 12.6.2000 08:16:23
Co takhle zkusit pouzit fci CharToOEM() pro vypis?
Predstavuji si neco jako
procedure WriteMessage(const Msg:String)
begin
CharToOEM(PChar(Msg), PChar(Msg));
Writeln(Msg);
end;
Nepomohlo by to?
Psat do zdrojaku v CP852 mi prijde nepekne...
a.
> Napis si ceske znaky v cistem DOSu, uloz do soubory a ve Win
> tam budes mit
> zase jine paznaky, kdyz ale tydle paznaky pouzijes do dosu,
> tak se to napise
> cesky.Kylix
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 12.6.2000 08:17:53
Ahoj
tak tohle jsem si precet:
BDE and Data Access
Borland has also stated that the BDE would not be ported to Linux initially.
According to Michael, "Perhaps in the future, but at this time there are no
plans." Borland is developing a new cross- platform data access solution
instead.
nevite co se mysli tim "new cross- platform data access solution" ?�
M.
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, June 11, 2000 11:00 PM
Subject: Re: Kylix
> From: "Parizsky Ladislav" <Parizsky(zv)access-it(tec)cz>
> > Cau nevite nekdo zda bude aplikace napsana v kylixu funkcni i pod Win ?
>
> Ahoj,
>
> Vedle dosavadni VCL (ktera bude nadale jen pro Windows) by mela existovat
> dalsi alternativni knihovna CLX, ktera bude jak pro Linux tak i pro
Windows.
> Vice se doctes tady (http://delphi-jedi.org/Jedi:VOYJEDIX)
>
> Petr Vones, amatersky programator
>
>
>
Pristup k adresari Outlook Expressu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.6.2000 08:49:37
Koukal jsem se do typove knihovny (soubor msoe.dll) a je tam pouze
MessageList jako CoClass...
V registru jsem sice objekt OutlookExpress.AddressBook nalezl, ale v te
typove knihovne o nem neni ani zminka. Pritom je tam uveden jako server
vnitrniho procesu a Dll knihovna se jmenuje msoe.dll... Zkus se podivat do
MSDN jestli tam neco nenajdes...
Milan Tomes
P.S.: Pokud nic nenajdes tak se na to muzu doma jeste podivat...
> Ja tam zadnou deklaraci nemam.
> Ale ten kod vypada zhuba takto:
>
> var A, B : OleVariant;
> begin
> A := CreateOleObject ('OutlookExpress.MessageList'); { - tohle vytvorit
> musim jnak to hlasi chybu v MSOE.DLL (cteni z FFFF) }
> B := CreateOleObject('OutlookExpress.AddressBook');
> B.{a tady cokoli treba uplnou pakovinu} { - a tady to hlasi tu chybu}
>
> Ondrej Kolenaty.
>
> > Zkus mi poslat kousek zdrojaky - hlavne tu deklaraci tridy atd...
> >
> > Milan Tomes
> > >
> > > Dobry den preji,
> > >
> > > Nejprve zacnu s tim ze se velice kratce predstavim. Jmenuji se Ondrej
> > > Kolenaty a studuji prvn�m rokem MFF UK.
> > >
> > > A ted k problemu.
> > >
> > > Potrebuji vytahnout data z adresare Outlooku. Za tim ucelem si
> > > vytvorim Ole
> > > obekt OutlookExpress.AddressBook. Ale pri pokusu zavolet
> > > jakoukoli metodu mi
> > > to hlasi chymu ze knihovna neni zaregistrovana neni zaregistrovana.
> > >
> > > Nevedel by nekdo co s tim.
> > >
> > > Dekuji Ondrej Kolenaty.
> >Interbase + ceske trideni
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 12.6.2000 09:02:51
Cau vsichni,
Pokousel sem se v IB6 nastavit ceske trideni nastavenim character setu na
win1250 a collate pxw_csy.
Vse se tridi dobre krome toho ze "ch" se nezaradi spravne za "h" ale radi se
jako "c".
Muzete nekdo poradit?
Dik Jirka.
Chyba na NT
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.6.2000 09:10:14
Ahoj,
mam program prelozeny pod D3 a hlasi mi chybu "VSTUPNI BOD PROCEDURY
REGISTER SERVICE PROCESS NEBYLO MOZNE V KNIHOVNE DLL KERNEL32.DLL NAJIT".
Tuto chybu mi to hlasilo, i kdyz jsem program prelozil pod D2. Kde bych,
prosim, mohl heldat chybu
Diky
Jaro B.Nezdrave SpeedButtons?
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 12.6.2000 09:37:50
Jaky mas procesor, jestli mas CELERON, tak se nedivim.
Jinak problem je v samotnych oknech (tzn. ve Windowsech).
Pavel ZIDEK
----- Original Message -----
From: Ondrej Jaura <jaura(zv)datalock.sk>
To: Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, June 08, 2000 1:56 PM
Subject: Nezdrave SpeedButtons?> Ahojte sa :)
>
>
> Mam zopar TSpeedButton-ov na ploche. Nastavim im spolocne GroupIndex,
> AllowAllUp je false a Flat je true.
>
> A kdeze problem?
>
> Ide skuor o graficky vzhlad TSpeedButton-ov, kedy pri rychlom behani
> myskou (cca 0.5 rychlosti svetla:))) zostava jeden s okrajmi, akoby nemal
> zapnutu vlastnost Flat = true, ale co vsak ma (!!!).
> Po opatovnom prejdeni myskou (tu uz je rychlost cca 0.49 rychlosti
> svetla:))) sa vsetko napravi.
> Kliknutie, ci len prejdenie, nad ostatnymi tlacitkami je neucinne.
>
> Co s tym?
>
> Za zachranne kolesa vopred dakujem :)
>
> Ondrej
>
> [ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
>
> Spousteni exace z prohlizece
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 12.6.2000 09:39:35
Ahojky.
Nemate nekdo jednoduchy zpusob, jak spoustet z Internet Exploreru i
Netscapu exe soubor? Potrebuji, aby se (asi misto linku) otevrel muj
program a predaly nejake parametry.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
Chyba na NT
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 12.6.2000 10:12:49
Zrejme knihovna KERNEL32.DLL v NT nepodoporuje funkci, kterou
potrebujes, proste tam fce tam neni. Nektery fce co jsou k
sipozici pro W95/98 nejsou v NT... (a naopak)
Dodo
______________________________________________________________
> Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> CC:
> Datum: Mon, 12 Jun 2000 09:10:14 +0200
> P�edm�t: Chyba na NT
>
> Ahoj,
>
> mam program prelozeny pod D3 a hlasi mi chybu "VSTUPNI BOD
PROCEDURY
> REGISTER SERVICE PROCESS NEBYLO MOZNE V KNIHOVNE DLL
KERNEL32.DLL NAJIT".
> Tuto chybu mi to hlasilo, i kdyz jsem program prelozil pod D2.
Kde bych,
> prosim, mohl heldat chybu
>
> Diky
>
> Jaro B.
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Globalny pohyb mysou
[*] Robert Zak <nrsys(zv)psn.sk> - 12.6.2000 10:27:21
Ako sa da z delphi5 hybat mysou a zistovat jej absolutna pozicia na
obrazovke?
Potrebujem napisat program ktory si bude pamatat pohyb mysou a potom ho
zopakuje.
Dakujem
Robo
Access databaze
[*] Jan Diblik <jan.diblik(zv)lfmotol.cuni(tec)cz> - 12.6.2000 10:31:23
Ahoj,
me pristup na databazi v Access 2000 pres ODBC funguje.
Problemy s diakritikou jsem mel taky, ale staci nastavit
LANGDRIVER na Access General.
Honza
> DDV,
> nevite nekdo prosim proc nejsem schopen se pripojit do databaze MS Accessu
> 2000 (CZ) - Kdyz chci pouzit nativni driver BDE (5.1.0.4) - vrati to pri
> popkusu o pripojeni (z BDE adminu) chybu:
>
> BDE Error: 13059 [$33] [$ 3]
> Server Error:
> Popis: General SQL error.
>
> BDE Error: 13059 [$33] [$ 3]
> Server Error: -2147221164
> Popis: -2147221164
>
> BDE Error: 13059 [$33] [$ 3]
> Server Error:
> Popis: Table
>
> BDE Error: 13059 [$33] [$ 3]
> Server Error:
> Popis: Alias: test
>
> Kdyz pouziji ODBC, tak se pripojim, ale zase to mrsi diakritiku, tak nevim.
> To ODBC by mi stacilo, jenom, kdyby ta dakritika chodila dobre.
>
> Diky za zkusenosti, napady, odkazy...
> a.
>
> -----------------------------------------------------------------------
> Ale Zelen
> esk� spo itela a.s.
> Na Per t n 1
> 113 98 Praha 1
> Email: azeleny(zv)csas(tec)cz
> tel: +420 2 24995 236
> -----------------------------------------------------------------------
> Due to technical difficulties tomorrow has been postponed indefinitely.
Posta - mozne reseni ?
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 12.6.2000 10:33:02
...nema to byt neco jako ILOVEYOU ? :-)
Co se do nej podivat, jak to ma udelane?
### Jaro napsal dne 11 Jun 00, v 11:05 :
> Ja bych potrebooval neco jednoducheho.
> Staci mi to pro Outlook Expres.
> Potrebuji z databaze adres vzit sezman e-mailu, dat je do "skryta",
> Nadepsat predmet a z nejakeho text souboru vlozit obsah.
> Zpravu otevrit nebo ulozit do koncepty. Odesilani muze byt rucni,
> protoze tam zpravidla stejne neco dopisuji.
> Nemel by nekdo nejakou jednoduchou komponentu nebo funkci?
> S ShellExecute se mi nedari .... (:
> Jaro
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
Hladanie v =?iso-8859-1?Q?datab=E1ze?=
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 12.6.2000 10:54:02
Ahoj,
> Ja by som potreboval urobit v databaze vyhladavanie. Ak vyhladavam v jednom
> poli
> tak mi staci locate, ale ak chcem vyhladavat v celej databaze uz mi nestaci.
Locate( 'PrvePole;DruhePole', VarArrayOf( [ 'Hodnota1','Hodnota2'] ), [] )
vyhlada zaznam, kde
PrvePole ma hodnotu Hodnota1 a
DruhePole na hodnotu Hodnota2.
> Da sa tu pouzit select? ak ano, ako?. V qery by sa select moc menit nemal,
> tak ako najdem zaznam a presuniem sa na neho?
Selectom sa da iba FILTROVAT, nie vyhladavat:
Select * from tabulka where PrvePole='Hodnota1' and DruhePole = 'Hodnota2'
Toto ti ukaze len take zaznamy, ktore splnaju podmienku WHERE, ale ziadne ine...QuickReport
[*] Delphi <delphi(zv)kjm(tec)cz> - 12.6.2000 11:39:23
Ahoj,
chtel bych se zeptat, jak donutit TQRBand nastaveny BandType na rbDetail,
kdyz se posledni nevejde cely na stranku aby se presunul na novou.
Mam na nem pat TQRDBTextu, a plnim je:
'zaznam:'+#13+
'zaznam1:'+#13+
'zaznam2:'+#13 ...
.. oba maji nastaven TQRDBText.Top na stejne cislo ... ale prvni TQRDBText
vypise na konec stranky treba 2 radky, ale druhy mi ty 2 radky zacne
tisknout az na nove strance ...
... nevite jak by to slo napravit ..
Diky za odpoved
Petr
P.S.: D5 Prof, Win 98, Paradox 7
Kylix
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.6.2000 11:40:18
To znamena, ze to pobezi na vice platformach (Linux, Unix, mozna i Win
atd....)
Milan Tomes
> Ahoj
>
> tak tohle jsem si precet:
>
> BDE and Data Access
> Borland has also stated that the BDE would not be ported to Linux
> initially.
> According to Michael, "Perhaps in the future, but at this time
> there are no
> plans." Borland is developing a new cross- platform data access solution
> instead.
>
> nevite co se mysli tim "new cross- platform data access solution" ?�
>
> M.
Procedure s a bez parametru
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 12.6.2000 11:50:35
Ahoj lidi.
Je mozne napsat proceduru, ktera jednou pri zavolani bude mit parametry
a podrehe ne?
Neco jako Readln a Readln(xy).
Delphi 5 P.
Predem dekuji Jirka
telnet server
[*] Krmela Tom� <Krmela(zv)olc.pvt(tec)cz> - 12.6.2000 11:59:21
Dobr� den,
pot�eboval bych poradit s nasleduj�c�m : pot�ebuji si naprogramovat
telnetovy server , na internetu jsem nasel winshoes a tam je komponenta T
winshoes telnet listener potrebuji v�det jak tuto komponentu ovladat.
pravdepodobne je neco v kofu a kdy� je ted nejak chyba v vyhledavani
archivu .dekuji predem
p.s. kvuli tomuto asi trivialnimu dotazu odpovedi piste na muj email
Dekuji
Tom� Krmela
PVT, a.s.
Langrova 7
787 01 �umperk
*+420 604 183526
*+420 649 393339
tomas.krmela(zv)pvt(tec)cz
jak za behu programu vytvorim novou komponentu
[*] Jan Cejka <jan.cejka(zv)mensa(tec)cz> - 12.6.2000 12:06:14
--=======B8D7081=======
Content-Type: text/plain; charset=us-ascii; format=flowed; x-avg-checked=avg-ok-46B32E55
A nestacilo by mit tam ten druhy label neviditelny a potom ho zviditelnit?
bye Honza
At 10:18 11.6.2000 +0200, you wrote:
>Zdravim
>
>mam, dotaz, jak za behu programu vytvorim novou komponentu,
>jedna se mi presne o tohle
>po spusteny mam na formu jenom jeden label, a pak bych chtel treba po
>stiknu tlacitka
>tam mit dalsi label
>
>jak na to?
>predem diky
>
>
> s pozdravem Johnboy
--=======B8D7081=======--
Procedure s a bez parametru
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 12.6.2000 12:49:55
Jde:
procedure Test(const S: String); overload;
procedure Test; overload;
Petr
-----Original Message-----
From: Jiri Novacek [mailto:JNovacek(zv)spst(tec)cz]
Sent: Monday, June 12, 2000 11:51 AM
To: Delphi
Subject: Procedure s a bez parametru
Ahoj lidi.
Je mozne napsat proceduru, ktera jednou pri zavolani bude mit parametry
a podrehe ne?
Neco jako Readln a Readln(xy).
Delphi 5 P.
Predem dekuji Jirka
ADO+Copy structure
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.6.2000 12:59:09
> Nevite nekdo jak vyresit nasledujici problem? Mam tabulku v .dbf
> souboru a chci ji prekopirovat pomoci ADOExpres na MS SQL 7.0. Pro
> pristup nechci pouzit BDE. Jak to mam udelat, chci-li vytvorit na SQL
> tabulku s odpovidajici strukturou, jako ma DBF soubor a prenest do ni
> data z DBF?
Nezkousel jsem to, ale melo by to jit pres Import/Export dat,
pouzitelny jednak z Enterprise manageru, jednak tusim i primo
prostrednictvim nabidky Start.
David
ADO+Copy structure
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.6.2000 13:01:28
> > Nevite nekdo jak vyresit nasledujici problem? Mam tabulku v .dbf
> > souboru a chci ji prekopirovat pomoci ADOExpres na MS SQL 7.0. Pro
> > pristup nechci pouzit BDE. Jak to mam udelat, chci-li vytvorit na
> > SQL tabulku s odpovidajici strukturou, jako ma DBF soubor a
> > prenest do ni data z DBF?
>
> Nezkousel jsem to, ale melo by to jit pres Import/Export dat,
> pouzitelny jednak z Enterprise manageru, jednak tusim i primo
> prostrednictvim nabidky Start.
>
> David
Sorry, prehledl jsem pozadavek na ADO Express :(((
David
Objekt Printer a cestina na NT
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.6.2000 13:14:00
Ahoj,
mam problemy s tiskem cestiny pod NT na nekterych pocitacich (i kdyz mam
vsude nastaveno EASTEUROPE_CHARSET) pri primem tisku pres objekt printer. Co
je, prosim, jeste potreba nastavit (treba ve VCL)?
prelozeno na D3.02 (pri prekladu pod D2 problemy nebyly, resp. byla upravena
VCL)
Diky
Jaro B.Nezdrave SpeedButtons?
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 12.6.2000 13:22:21
A co zkusit pouzit komponentu TToolBar
Dodo
______________________________________________________________
> Od: "Pavel ZIDEK" <kopr(zv)kopr(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Mon, 12 Jun 2000 09:37:50 +0200
> P�edm�t: Re: Nezdrave SpeedButtons?
>
> Jaky mas procesor, jestli mas CELERON, tak se nedivim.
> Jinak problem je v samotnych oknech (tzn. ve Windowsech).
> Pavel ZIDEK
>
> ----- Original Message -----
> From: Ondrej Jaura <jaura(zv)datalock.sk>
> To: Delphi <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, June 08, 2000 1:56 PM
> Subject: Nezdrave SpeedButtons?
>
>
> > Ahojte sa :)
> >
> >
> > Mam zopar TSpeedButton-ov na ploche. Nastavim im spolocne
GroupIndex,
> > AllowAllUp je false a Flat je true.
> >
> > A kdeze problem?
> >
> > Ide skuor o graficky vzhlad TSpeedButton-ov, kedy pri
rychlom behani
> > myskou (cca 0.5 rychlosti svetla:))) zostava jeden s okrajmi,
akoby nemal
> > zapnutu vlastnost Flat = true, ale co vsak ma (!!!).
> > Po opatovnom prejdeni myskou (tu uz je rychlost cca 0.49
rychlosti
> > svetla:))) sa vsetko napravi.
> > Kliknutie, ci len prejdenie, nad ostatnymi tlacitkami je
neucinne.
> >
> > Co s tym?
> >
> > Za zachranne kolesa vopred dakujem :)
> >
> > Ondrej
> >
> > [ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ]
[ :) ]
> >
> >
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Procedure s a bez parametru
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 12.6.2000 13:29:06
Jasne, jedna se o zakladni vlastnost OOP, tzv. p�et�ov�n� funkc�.
�ili nadefinuje� V OBJEKTU (treba hlavniho formulare) fce a d�
za n� overload. Pak si pro kazdou vytvoris obsluzny kod, pricemz
z jedne muzes volat klidne druhou - proste fce maji sice stejny
nazev, ale v tomto pripade se s nimi pracuje, jako kdyby mely
nazvy odlisne.
p�iklad:
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Procedure DelejNeco;overload;
Procedure DelejNeco (x:Integer);overload;
Procedure DelejNeco (str:String, x:Integer);overload;
end;** DODO **
______________________________________________________________
> Od: Jiri Novacek <JNovacek(zv)spst(tec)cz>
> Komu: Delphi <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Mon, 12 Jun 2000 11:50:35 +0200
> P�edm�t: Procedure s a bez parametru
>
> Ahoj lidi.
>
> Je mozne napsat proceduru, ktera jednou pri zavolani bude mit
parametry
> a podrehe ne?
> Neco jako Readln a Readln(xy).
>
> Delphi 5 P.
>
> Predem dekuji Jirka
>
>
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Globalny pohyb mysou
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 12.6.2000 13:32:24
Mrkni na globalni objekt Mouse
nastaveni treba mysi na X a Y napr.
Mouse.CursorPos.x = 5;
Mouse.CursorPos.y = 60;
Samozrejme souradnice jdou i cist.
**Dodo**
______________________________________________________________
> Od: "Robert Zak" <nrsys(zv)psn.sk>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Mon, 12 Jun 2000 10:27:21 +0200
> P�edm�t: Globalny pohyb mysou
>
> Ako sa da z delphi5 hybat mysou a zistovat jej absolutna
pozicia na
> obrazovke?
> Potrebujem napisat program ktory si bude pamatat pohyb mysou a
potom ho
> zopakuje.
>
>
> Dakujem
>
> Robo
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
ActiveX prvek
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 12.6.2000 13:33:01
Ahoj,
prosim o informaci, zda mohu (a jak) vytvorit v Delphi komponentu,
- jedna se o ActiveX prvek - kde zdroj je cely napsany v C++
(Visual Basic).
Potrebuji vytvorit balicek a vlozit jej na listu.
Z Pascalem to umim, ale jak na C++.
Dekuji za kazdy napad,
s pozdravem
Jarek Uher
Spousteni exace z prohlizece
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 12.6.2000 13:35:31
Tak to rozhodne primo bez souhlasu uzivatele pustit nepujde, to
by byla DOOST velka bezpecnostni dira, zvlaste vhodna pro viry.
A jeste predavat parametry ? Nevim o nicem takovem.
**Dodo**
______________________________________________________________
> Od: Ales Radikovsky <radik(zv)volny(tec)cz>
> Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Mon, 12 Jun 2000 09:39:35 +0200
> P�edm�t: Spousteni exace z prohlizece
>
> Ahojky.
>
> Nemate nekdo jednoduchy zpusob, jak spoustet z Internet
Exploreru i
> Netscapu exe soubor? Potrebuji, aby se (asi misto linku)
otevrel muj
> program a predaly nejake parametry.
>
> Ales
>
> --
>
> Ale� Radikovsk�
> mail: radik(zv)seznam(tec)cz
> tel: +420 603 300093
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Proxy
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.6.2000 13:40:08
ahoj,
pripojuji se k prosbe, mozna by to zajimalo i ostatni.
muj konkretni pozadavek je odchytavat http requesty a odpovedi kvuli
protokolovani...
tedy: dotaz ktery jede ven a odpoved co se vraci + nejakou statistiku,
ale to uz si dodelam (objemy dat, casove prodlevy apod).
> -----Original Message-----
> From: nnfapso(zv)kios.sk [mailto:nnfapso(zv)kios.sk]
> Sent: Tuesday, June 06, 2000 12:14 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Proxy
>
> Ahoj,
>
> Mohol by si mi prosim ta poslat zdrojak? alebo aspon
> nejake zakladne
> info o programovani proxacov?
>
> Diky moc
>
> S pozdravom Miso nnfapso(zv)kios.sk
>
> ----- Original Message -----
> Od: Lubos Dusanic <lubos(zv)iname.com>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odoslan�: 2. j�n 2000 14:48
> Predmet: RE: Proxy
>
> > caves,
> >
> > mozno by bolo zaujimave, keby si povedal, co vsetko by to
> malo robit. ja
> som
> > teraz dokoncil program, ktory by ti mozno pomohol - bezi
> ako service na
> > windows nt a umoznuje pripojenie viacerych uzivatelov do
> i-net(u) cez
> jeden
> > pc (+logovanie, +autentifikacia uzivatelov a adries). ak by
> ti to stacilo
> > ...
> >
> > lubos
> > > Ahoj
> > > > >muze nekdo poradit, jakym zpusobem udelat jednoduchy proxy
> > > server. Jeden
> > > PC
> > > > pripojen do internetu a za nim nekolik PC. Zajima me, Slovy jako na slozenkach - reseni
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 12.6.2000 13:42:59
Prijemny den,
D4 Standard, W95 OSR2.
Nedavno jsem se rekreacne zabyval prevodem cisel od 1 do 99 999 na slovni
vyjadreni (jako na slozenkach). Prikladam vysledek sve prace, treba to
nekoho bude zajimat. Jsou to dv� funkce. V zaveru je i volani teto funkce,
kde Edit1 je cislo a Label1 je vysledek. Osetreni rozsahu a pripadne vyjimky
pri prevodu String na Integer prenecham na Vas, zbytecne by to komplikovalo
priklad.
Hotovy programek je mozno najit na mych strankach
http://mujweb(tec)cz/www/strakaj/index.htm
-------------------------------------------------------------------------
function Prevod(Rad,Hodnota:Integer):String;
const
Jednotky : Array[5..19] of String =
('p�t','�est','sedm','osm','dev�t',
'deset','jeden�ct','dvan�ct','t�in�ct','�trn�ct',
'patn�ct','�estn�ct','sedmn�ct','osmn�ct','devaten�ct');
begin
if (Hodnota > 4) and (Hodnota < 20) then
Result := Jednotky[hodnota];
if Rad = 1000 then
begin
Result := Result + 'tis�c';
if Hodnota = 1 then Result := 'jedentis�c';
if Hodnota = 2 then Result := 'dvatis�ce';
if Hodnota = 3 then Result := 't�itis�ce';
if Hodnota = 4 then Result := '�ty�itis�ce';
end;
if Rad = 100 then
begin
Result := Result + 'set';
if Hodnota = 1 then Result := 'jednosto';
if Hodnota = 2 then Result := 'dv�st�';
if Hodnota = 3 then Result := 't�ista';
if Hodnota = 4 then Result := '�ty�ista';
end;
if Rad = 1 then
begin
if Hodnota = 1 then Result := 'jedna';
if Hodnota = 2 then Result := 'dv�';
if Hodnota = 3 then Result := 't�i';
if Hodnota = 4 then Result := '�ty�i';
end;
end;
function PrevodNaSlovy(Cislo:Integer):String;
var DesetiTisice,Tisice,Stovky,Desitky,Zbytek: Integer;
Const
PrevodDesitky : Array[2..9] of String =
('dvacet','t�icet','�ty�icet','pades�t','�edes�t',
'sedmdes�t','osmdes�t','devades�t');
begin
Result := '';
if Cislo > 99999 then
begin
ShowMessage('P�evod ��sla na "slovy" je mo�n� pouze do 99 999!');
Exit;
end;
DesetiTisice := Cislo div 10000; {Desetitisice od 20}
if DesetiTisice > 1 then
begin
Zbytek := Cislo mod 10000;
Result := Result + PrevodDesitky[DesetiTisice];
end else Zbytek := Cislo;
Tisice := Zbytek div 1000; {Tisice do 19}
if Tisice > 0 then
begin
Zbytek := Zbytek mod 1000;
Result := Result + (Prevod(1000,Tisice));
end else if Desetitisice > 0 then
Result := Result + 'tisic';
Stovky := Zbytek div 100; {Stovky}
if Stovky > 0 then
begin
Zbytek := Zbytek mod 100;
Result := Result + (Prevod(100,Stovky));
end;
Desitky := Zbytek div 10; {Desitky od 20}
if Desitky > 1 then
begin
Zbytek := Zbytek mod 10;
Result := Result + PrevodDesitky[Desitky];
end;
if Zbytek > 0 then {jednotky do 19}
Result := Result + (Prevod(1,Zbytek));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := PrevodNaSlovy(StrToInt(Edit1.Text));
end;
----------------------------------------------------------------------------
-
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
Proxy
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 12.6.2000 13:48:41
navod je velmi jednoduchy:
1, z tejto (http://sme.belgium.eu.net/~vip107/ics.zip) linky si stiahni
ics - ak to nemas a nainstaluj
2, z tej istej stranky si stiahni komponentu
http://users.swing.be/francois.piette/arch/gphttpproxy.zip
3, dosad do nexthopproxy property adresu tvojho proxy servera:port a hotovo
...
lubos dusanic
ahoj,
pripojuji se k prosbe, mozna by to zajimalo i ostatni.
muj konkretni pozadavek je odchytavat http requesty a odpovedi kvuli
protokolovani...
tedy: dotaz ktery jede ven a odpoved co se vraci + nejakou statistiku,
ale to uz si dodelam (objemy dat, casove prodlevy apod).
> -----Original Message-----
> From: nnfapso(zv)kios.sk [mailto:nnfapso(zv)kios.sk]
> Sent: Tuesday, June 06, 2000 12:14 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Proxy
>
> Ahoj,
>
> Mohol by si mi prosim ta poslat zdrojak? alebo aspon
> nejake zakladne
> info o programovani proxacov?
>
> Diky moc
>
> S pozdravom Miso nnfapso(zv)kios.sk
>
> ----- Original Message -----
> Od: Lubos Dusanic <lubos(zv)iname.com>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odoslan�: 2. j�n 2000 14:48
> Predmet: RE: Proxy
>
> > caves,
> >
> > mozno by bolo zaujimave, keby si povedal, co vsetko by to
> malo robit. ja
> som
> > teraz dokoncil program, ktory by ti mozno pomohol - bezi
> ako service na
> > windows nt a umoznuje pripojenie viacerych uzivatelov do
> i-net(u) cez
> jeden
> > pc (+logovanie, +autentifikacia uzivatelov a adries). ak by
> ti to stacilo
> > ...
> >
> > lubos
> > > Ahoj
> > > > >muze nekdo poradit, jakym zpusobem udelat jednoduchy proxy
> > > server. Jeden
> > > PC
> > > > pripojen do internetu a za nim nekolik PC. Zajima me,Rimska cisla - reseni
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 12.6.2000 13:50:27
Prijemny den,
D4 Standard, W95 OSR2.
Pred nedavnem se v konferenci probiral prevod na Rimska cisla a zpet.
Zabyval jsem se tim a doplnil jsem prevod z rimskych cisel na arabska tak,
aby neslo zadat tvar napr. MIM nebo CCCC, coz je nepripustna syntaxe.
Vysledkem je nize uvedena funkce i jejim volanim, kde Label1 je vysledek a
Edit1 je rimske cislo (nutno zadat velka pismena).
Hotovy programek mozno nalezt na mych strankach:
http://mujweb(tec)cz/www/strakaj/index.htm
----------------------------------------------------------------------------
--
function RomanToNum (const S: String): longint;
const SymbolStr = 'MDCLXVI';
NeplatneTvary : Array[1..21] of String =
('IL','IC','ID','IM','VL','VC','VD','VM','XD','XM',
'LC','LD','LM','DM', 'IIII', 'VV', 'XXXX', 'LL',
'CCCC','DD', 'MMMM');
var Loop, A: integer;
ThisVal, LastVal, Chyba: LongInt;
Lookup : array [0..7] of LongInt;
begin
Lookup[0] := 0;
Lookup[1] := 1000;
Lookup[2] := 500;
Lookup[3] := 100;
Lookup[4] := 50;
Lookup[5] := 10;
Lookup[6] := 5;
Lookup[7] := 1;
LastVal := 0;
Result := 0;
Chyba := 0;
{Kontrola neplatn�ch dvojic}
for A := 1 to 21 do
begin
Chyba := Chyba + Pos(NeplatneTvary[A], S);
end;
if Chyba > 0 then
begin
ShowMessage ('Zad�n neplatn� tvar ��msk�ho ��sla.');
Exit;
end;
for Loop := 1 to length (S) do
begin
ThisVal := Lookup[Pos (S[Loop], SymbolStr)];
{Kontrola �patn�ho znaku}
If ThisVal = 0 then
begin
ShowMessage ('Zad�no neplatn� ��msk� ��slo: ' + S[Loop]);
Exit;
end;
if ThisVal > LastVal then
LastVal := ThisVal - LastVal
else
begin
Result := Result + LastVal;
LastVal := ThisVal;
end;
end;
Result := Result + LastVal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(RomanToNum(Edit1.Text));
end;
----------------------------------------------------------------------
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
Chyba na NT
[*] Jan Cejka <jan.cejka(zv)mensa(tec)cz> - 12.6.2000 14:10:48
--=======4BD35BF2=======
Content-Type: text/plain; charset=iso-8859-1; format=flowed; x-avg-checked=avg-ok-CA3142A
Content-Transfer-Encoding: quoted-printable
Anebo...
K necemu takovymu dojde, pokud si nainstalujes Service Pack, potom=20
priinstalujes neco, co prepise puvodni knihovnu a nedas si znovu Service=
Pack.
bye Honza
At 10:12 12.6.2000 +0200, you wrote:
>Zrejme knihovna KERNEL32.DLL v NT nepodoporuje funkci, kterou
>potrebujes, proste tam fce tam neni. Nektery fce co jsou k
>sipozici pro W95/98 nejsou v NT... (a naopak)
>Dodo
>
>
>______________________________________________________________
> > Od: Bene=B9 Jaroslav <JBenes(zv)cpoj(tec)cz>
> > Komu: delphi-l(zv)fwd(tec)cz
> > CC:
> > Datum: Mon, 12 Jun 2000 09:10:14 +0200
> > P=F8edm=ECt: Chyba na NT
> >
> > Ahoj,
> >
> > mam program prelozeny pod D3 a hlasi mi chybu "VSTUPNI BOD
>PROCEDURY
> > REGISTER SERVICE PROCESS NEBYLO MOZNE V KNIHOVNE DLL
>KERNEL32.DLL NAJIT".
> > Tuto chybu mi to hlasilo, i kdyz jsem program prelozil pod D2.
>Kde bych,
> > prosim, mohl heldat chybu
> >
> > Diky
> >
> > Jaro B.
> >
>
>
>Objevujte Internet s http://www.centrum(tec)cz
>Zalo=BEte si svuj mail na http://mail.centrum(tec)cz
>
>
>
>---
>P=F8=EDchoz=ED zpr=E1va neobsahuje viry.
>Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
>Verze: 6.0.157 / Virov=E1 b=E1ze: 73 - datum vyd=E1n=ED: 31.5.2000
--=======4BD35BF2=======--
Globalny pohyb mysou
[*] Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz> - 12.6.2000 14:11:06
Podivej se na asynchronni funkce : (win32.hlp)
GetCursorPos(...)
SetCursorPos(...)
Marify
xskriva1(zv)fi.muni(tec)cz
http://www.fi.muni(tec)cz/~xskriva1
----- Original Message -----
From: Robert Zak <nrsys(zv)psn.sk>
Newsgroups: cz.muni.redir.delphi
Sent: Monday, June 12, 2000 10:27 AM
Subject: Globalny pohyb mysou
> Ako sa da z delphi5 hybat mysou a zistovat jej absolutna pozicia na
> obrazovke?
> Potrebujem napisat program ktory si bude pamatat pohyb mysou a potom ho
> zopakuje.Tlaciarne HP
[*] Anton�n Blatn� - 12.6.2000 15:19:33
Tak zhruba kazdy dvacaty nas uzivatel s HP ma podobny problem, ktery z
nejakych pricin a podezrelych figlu Microsoft vyresi a vytiskne. Opravdu jde
takrka vzdy o nesnasenlivost mezi programem a driverem. Stahovani novych
verzi je ale u zakazniku obcas problem (napr. nemaji Internet). Skoro vzdy
pomohlo ale nahradit stavajici driver nejakym starsim (napr misto 5L pouzit
4L apod.) To vetsinou staci priinstalovat novou tiskarnu primo z instalacek
windows. ALE: vsechny mne zname pripady byly s HP LaserJet. U DeskJet to
vsem chodilo O.K.
Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz
----- Original Message -----
From: p. Jirman <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 29, 2000 7:12 PM
Subject: Re: Tlaciarne HP
> ahoj,
>
> me zase padal QuickRep i Sinea kdyz jsem chtel tisknout na NOVE HP LJ1100
> a pomohlo stahnout z webu nove ovladace. Z toho poruseni DRV myslim ze jde
> o podobny problem.
>
> M. Jirman
>
> ----- Original Message -----
> From: J�n Grman <janog(zv)pluto.elf.stuba.sk>
>
> > Ahojte.
> > U zakaznika sa mi objavil nasledujuci problem:
> > Nas program netlaci na tlaciarnach HP DeskJet 930c a HP DeskJet 670, ale
> len
> > zo systemu W95 (s NTckom to funguje).
> > Sprava sa to takto:
> > HP DeskJet 930c
> > - tlac pripadne nahlad v programe prejde v pohode
> > - zobrazi sa tlacova uloha (ikona v tray) a potom to spadne na
Obecnom
> > poruseni ochrany v subore DRV
> > - podotykam ze z WORDU to vraj tlaci v pohode
> >
> > HP DeskJet 670
> > - tlac pripadne nahlad v programe prejde v pohode
> > - zobrazi sa tlacova uloha (ikona v tray) a potom sa strati a nic sa
> > nevytlaci
> > - podotykam znova ze z WORDU to vraj tlaci v pohode
> >
> > Na inych (zvacsa ihlickovych a starsich) tlaciarnach vsetko funguje bez
> > ohladu na OS. Tieto tlaciarne su uplne nove, kupili ich prave pre
> pouzivanie
> > s nasim programom.
> > Na tlac pouzivame vlastne tlacove komponenty. Vsetko je to napisane
cisto
> s
> > pouzitim API funkcii (LineTo(DC, ...), TextOut(DC, ...), a podobne).
> >
> > Ak ste sa niekto s podobnou "zahadou" stretli, prosim napiste mi v com
bol
> > problem a ako ste ho vyriesili / nevyriesili.
> >
> > Za vsetky odpovede vdaka.
> >
> > Mgr. Jan Grman
> > janog(zv)pluto.elf.stuba.sk
> >
> >
>dbgrid a barevne radky a sloupce
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 12.6.2000 13:49:23
> Zdravim,
>
> mam D5Prof a W98. Jakym zpusobem lze vykreslit odlisne barevne radky v DBGRID podle obsahu recordu ? A Jakym zpusobem lze jeste vykreslit odlisne barevne i sloupce ? Take potrebuji, aby se odlisne ba>
> Daniel Resler
>
>
To umi DBGrid v RX komponentach.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Chyba na NT
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.6.2000 14:49:28
A jak poznam co se priinstalovalo? Podle spravce by mely byt instalovany
vsechny service packy ale jestli je delaji poctive po vsech updatech
programu, ktere ovlivnuji system to asi nevi.
Dik
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Jan Cejka [SMTP:jan.cejka(zv)mensa(tec)cz]
> Odesl�no: 12. VI 2000 14:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: re: Chyba na NT
>
> Anebo...
> K necemu takovymu dojde, pokud si nainstalujes Service Pack, potom
> priinstalujes neco, co prepise puvodni knihovnu a nedas si znovu Service
> Pack.
> bye Honza
>
> At 10:12 12.6.2000 +0200, you wrote:
>
> >Zrejme knihovna KERNEL32.DLL v NT nepodoporuje funkci, kterou
> >potrebujes, proste tam fce tam neni. Nektery fce co jsou k
> >sipozici pro W95/98 nejsou v NT... (a naopak)
> >Dodo
> >
> >
> >______________________________________________________________
> > > Od: Bene1 Jaroslav <JBenes(zv)cpoj(tec)cz>
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > CC:
> > > Datum: Mon, 12 Jun 2000 09:10:14 +0200
> > > Poedmit: Chyba na NT
> > >
> > > Ahoj,
> > >
> > > mam program prelozeny pod D3 a hlasi mi chybu "VSTUPNI BOD
> >PROCEDURY
> > > REGISTER SERVICE PROCESS NEBYLO MOZNE V KNIHOVNE DLL
> >KERNEL32.DLL NAJIT".
> > > Tuto chybu mi to hlasilo, i kdyz jsem program prelozil pod D2.
> >Kde bych,
> > > prosim, mohl heldat chybu
> > >
> > > Diky
> > >
> > > Jaro B.
> > >
> >
> >
> >Objevujte Internet s http://www.centrum(tec)cz
> >Zalo3/4te si svuj mail na http://mail.centrum(tec)cz
> >
> >
> >
> >
> >---
> >Po�choz� zpr�va neobsahuje viry.
> >Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> >Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
spusteni druhe aplikace
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 12.6.2000 13:57:44
Zdravim,
a dovoluji si polozit ozazku:
Jak zajistit, aby napr. pres ShellExecute se napr. pri spousteni
Wordu tento znovu neotviral, pokud je jiz spusten, ale pouze se
otevrelo v nem nove okno s prislusnym dokumentem. Jde o to, ze to v
me aplikaci nemusi byt pouze Word, ale libovolny editor (takze by asi
nepomohlo ? pouziti nejakeho makra)? Pochopitelne si necham poradit i
v pripade, ze nepujde o uziti ShellExecute, ale i neceho jineho, co
to vyresi (pak ale pro jistotu prosim o vetsi nakopnuti).
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Posta - mozne reseni ?
[*] Tibor Galik <tgalik(zv)vsz.sk> - 12.6.2000 15:04:52
>Ja bych potrebooval neco jednoducheho.
>Staci mi to pro Outlook Expres.
>Potrebuji z databaze adres vzit sezman e-mailu, dat je do "skryta",
>Nadepsat predmet a z nejakeho text souboru vlozit obsah.
>Zpravu otevrit nebo ulozit do koncepty. Odesilani muze byt rucni,
>protoze tam zpravidla stejne neco dopisuji.
>Nemel by nekdo nejakou jednoduchou komponentu nebo funkci?
>S ShellExecute se mi nedari .... (:
>Jaro
>
Ahoj,
minuli mesiac som riesil podobny problem. Chcel som nieco nezavisle lebo nevies aky mailovy sw bude na tej ktorej masine,
Urobil som si mali pgm, na ktorom som si odskusal niekolko typov mailovych komponent alebo sposobov.
Okrem komponent spominanych v konferencii som si nasiel aj dalsie na inete.
Zo skusania mi vyslo:
vsetky komponenty, ktore pouzivali api f-ciu Mapisendmail tak mi to blblo( pridavalo mi to vo Wondows messaging systeme a v GroupWise-och prazdne foldre)
Najlepsie mi fungovali unita od synapse
http://www.mlp(tec)cz/space/gebauerl/synapse/
a komponenta
http://sak.org.ar
Je to free
skus to
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
Spousteni exace z prohlizece
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 12.6.2000 15:14:11
> Tak to rozhodne primo bez souhlasu uzivatele pustit nepujde, to
> by byla DOOST velka bezpecnostni dira, zvlaste vhodna pro viry.
> A jeste predavat parametry ? Nevim o nicem takovem.
Rozhodne to jde, me to staci se souhlasem.... Ne snad ze bych mohl mit
misto linku uvedenou cestu k libovolnemu programu, ale nejak "oklikou to
jde". Proste mam program, ktery se nejakym instalcnim programem
nainstaluje (takze muzu zmenit kdeco v registrech) a potrebuju ho
spustit ko klinknuti na "neco" ve strance. Urcite neco podobneho dela
Acrobat Reader, Webshot, Zone.com, prehravace ruznych videoformatu....
Asi je mozne to udelat tak, ze si z internwetu stahnu soubor nejakeho
typu (v nem budou ty parametry :-) a k nemu si pusti Explorer nejaky
externi prohlizec (to by byl ten muj program). Akorat se mi nechce
experimentovat a uvital bych nejake rady do zivota.... kde co
registrovat atd...
Ales
Spusteni hlp z kodu
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 12.6.2000 14:15:38
> Zdravim,
> nevite nekdo, jak spustit soubor napovedy, *.hlp, z kodu programu. Umim spustit jednotliva temata metodou application.jumpto, ale neumim spustit okno s tematy.
>
> Petr Pa��enko
Application.HelpCommand(Help_Finder, 0);
Milan Dvo��k
dvorak(zv)gymzn(tec)cz
jak za behu programu vytvorim novou komponentu
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 12.6.2000 15:46:16
Nevim, jestli tady uz nepadl nejaky postup, ale
takhle to jde:
var neco:TLabel;
begin
neco:=TLabel.Create (Form1);
neco.Caption:='Toto je runtime label';
neco.Left:= 152;
neco.Top := 88;
neco.parent:=Form1;
neco.
**Dodo**
______________________________________________________________
> Od: Jan Cejka <jan.cejka(zv)mensa(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> CC:
> Datum: Mon, 12 Jun 2000 12:06:14 +0200
> P�edm�t: Re: jak za behu programu vytvorim novou komponentu
>
> A nestacilo by mit tam ten druhy label neviditelny a potom ho
zviditelnit?
> bye Honza
>
> At 10:18 11.6.2000 +0200, you wrote:
> >Zdravim
> >
> >mam, dotaz, jak za behu programu vytvorim novou komponentu,
> >jedna se mi presne o tohle
> >po spusteny mam na formu jenom jeden label, a pak bych chtel
treba po
> >stiknu tlacitka
> >tam mit dalsi label
> >
> >jak na to?
> >predem diky
> >
> >
> > s pozdravem Johnboy
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
spusteni druhe aplikace
[*] Ladislav =?ISO-8859-1?Q?Dole=BEel?= <dodo(zv)centrum(tec)cz> - 12.6.2000 15:49:43
Obavam se, ze univeralni postup neexistuje. Zalezi na dane
aplikaci, jak se zachova, kdyz se pusti jeji kopie.
Mozna by slo zjistit Handle aplikace a pomoci zprav ji poslat
(nasimulovat) klavesy pro otevreni noveho dokumentu (jestli ovsem
aplikace ma zkracovaci klavesu na novy dokument)
**Dodo**
______________________________________________________________
> Od: Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> CC:
> Datum: Mon, 12 Jun 2000 13:57:44 +0100
> P�edm�t: spusteni druhe aplikace
>
> Zdravim,
>
> a dovoluji si polozit ozazku:
> Jak zajistit, aby napr. pres ShellExecute se napr. pri
spousteni
> Wordu tento znovu neotviral, pokud je jiz spusten, ale pouze se
> otevrelo v nem nove okno s prislusnym dokumentem. Jde o to, ze
to v
> me aplikaci nemusi byt pouze Word, ale libovolny editor (takze
by asi
> nepomohlo ? pouziti nejakeho makra)? Pochopitelne si necham
poradit i
> v pripade, ze nepujde o uziti ShellExecute, ale i neceho
jineho, co
> to vyresi (pak ale pro jistotu prosim o vetsi nakopnuti).
> Milan Dvorak
> dvorak(zv)gymzn(tec)cz
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Designer.CreateComponent
[*] Honza <delphi(zv)mis-net(tec)cz> - 12.6.2000 15:52:15
Ahoj,
marne se snazim prijit na to, jak k PopupMenu v navrhu pridat "Item" tak,
aby se objevil i v deklaraci formulare v unite.
MenuCompEditor.ExecuteVerb(Index: Integer);
....
Item := TMenuItem(Designer.CreateComponent(TMenuItem, nil, 0, 0, 0, 0));
(Component as TMenu).Items.Add(Item); ------- tady dojde k chybe FFFF
Takto se do kodu unity prida i deklarace teto nove vytvorene komponenty, ale
pri pridani do Menu to zahlasi vyjimku a tim to hasne.
PROC???
Prosim o help,
co se kde deje spatne,
jestli nahodou nejaka dobra duse nevi ....
Predem diky
..........Honza
Telnet server
[*] Krmela Tom� <Krmela(zv)olc.pvt(tec)cz> - 12.6.2000 15:58:02
Dobry den,
omlouvam se za diakritiku
potreboval bych poradit s nasleduj�c�m : potrebuji si naprogramovat
telnetovy server , na internetu jsem nasel winshoes a tam je komponenta T
winshoes telnet listener potrebuji vedet jak tuto komponentu ovladat.
.dekuji predem
p.s. kvuli tomuto asi trivialnimu dotazu odpovedi piste na muj email
Dekuji
Tomas Krmela
*+420 604 183526
*+420 649 393339
tomas.krmela(zv)pvt(tec)cz
Globalny pohyb mysou
[*] Robert Zak <nrsys(zv)psn.sk> - 12.6.2000 16:11:08
Citat to sice ide, zapisovat ale nie...
Aj tak to ale bola dobra rada, nasiel som aspon mouse_event, pri ktorom je
napisane:
- pokial zadam absolutny parameter, ma to nastavit absolutnu poziciu mysi...
ale to nefunguje, nic sa nestane ...
- pokial zadam relativny posun mysi, zadam o kolko ma kurzor posunut... aj
to teda posunie, ale y-ovu suradnicu, pokial zadam ciso vacsie ako 2 posunie
o 2x tolko bodov ako potrebujem.
skusal som to takto...
mouse_event(MOUSEEVENTF_MOVE,10,3,0,GetMessageExtraInfo);
toto posunie v x-ovej o 1- a y-ovej 6 bodov!!
Mozete mi poradit co s tym?
Dakujem
Robo
Od: Ladislav Dole�el <dodo(zv)centrum(tec)cz>
>Mrkni na globalni objekt Mouse
>
>nastaveni treba mysi na X a Y napr.
>Mouse.CursorPos.x = 5;
>Mouse.CursorPos.y = 60;
>Samozrejme souradnice jdou i cist.
>
>**Dodo**
Konzolova aplikace s cestinou
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 12.6.2000 16:45:18
> "Marek Eichler" napsal:
> Potreboval bych poradit jak pri pouziti WriteLn('Dobr� den');
> v konzolove aplikaci dosahnout toho, aby se mi zobrazovala
> cestina.
Mam ten dojem ze konzole pouziva OEM codepage, kdezto
okna ANSI. Prislusne codepage zjistis pomoci funkci
GetACP a GetOEMCP, vice informaci o CP funkce GetCPInfo.
Pro konverzi mezi ANSI a OEM muzes pouzit funkce
CharToOem a OemToChar popr. CharToOemBuff a
OemToCharBuff. Dalsi informace najdes u zminenych
funkci v WinAPI.
Daniel
Globalny pohyb mysou
[*] Ale� Va���ek�����"q��y�&���w�3 - 12.6.2000 16:49:39
Jak ti uz tady Martin Skrivanek radil, koukni se na GetCursorPos a
SetCursorPos.
Pro nastaveni kurzoru mysi na pozici 100x100 to udelas takhle:
SetCursorPos(100, 100);
a pokud budes chtit vedet kde se prave kurzor nachazi, tak to udelas takhle:
var P : TPoint;
begin
GetCursorPos(P);
ShowMessage('X: ' + IntToStr(P.X) + ', Y:' + IntToStr(P.Y));
end;
vse jsou absolutni souradnice!
Ales
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Robert Zak
Sent: Monday, June 12, 2000 4:11 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Globalny pohyb mysou
Citat to sice ide, zapisovat ale nie...
Aj tak to ale bola dobra rada, nasiel som aspon mouse_event, pri ktorom je
napisane:
- pokial zadam absolutny parameter, ma to nastavit absolutnu poziciu mysi...
ale to nefunguje, nic sa nestane ...
- pokial zadam relativny posun mysi, zadam o kolko ma kurzor posunut... aj
to teda posunie, ale y-ovu suradnicu, pokial zadam ciso vacsie ako 2 posunie
o 2x tolko bodov ako potrebujem.
skusal som to takto...
mouse_event(MOUSEEVENTF_MOVE,10,3,0,GetMessageExtraInfo);
toto posunie v x-ovej o 1- a y-ovej 6 bodov!!
Mozete mi poradit co s tym?
Dakujem
Robo
Od: Ladislav Dole�el <dodo(zv)centrum(tec)cz>
>Mrkni na globalni objekt Mouse
>
>nastaveni treba mysi na X a Y napr.
>Mouse.CursorPos.x = 5;
>Mouse.CursorPos.y = 60;
>Samozrejme souradnice jdou i cist.
>
>**Dodo**
Prehravac akci 2
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 12.6.2000 16:59:52
> Existuje nekde nazorny priklad prace s handle a hook? Ma anglictina neni
> nic moc (spise to nic) a napoveda je tim padem dost nesrozumitelna. Jak
> zjistim, ze nejake okno je vytvorene. Jak zjistim handle tohoto okna,
> ktere potrebuji ovladat. Jak tomuto oknu poslu treba text do editacniho
> okna a zmacknu tlacitko OK.
>
Cau!
Napisem ti priklad a ten ti mozno pomoze.
Popis: Mas okno, ktore ma nazov: "Skus ma editovat".
V nom je button, Edit pole a Memo pole.
Poradie pri stlacani TAB:
Button 1
Edit 2
Memo 3
Uloha: Do Edit pola napisat: "ahoj" a do mema napisat : "editujem".
potom stlacit button.
Riesenie:
//urobim si premennu
HWND ghwnd, oldhwnd;
//funkcia na vratenie HANDLE hladaneho okna
//--------------------------------------------------------------------------
-
BOOL CALLBACK EnumNajdi(HWND hwnd, LPARAM lParam)
{
static CHAR szClassName[64];
bool bnasiel=TRUE;
GetWindowText(hwnd, szClassName, sizeof(szClassName));
//Sem do uvodzoviek napis NAZOV okna a namiesto 16 daj velkost
toho nazvu vcitane medzier
if (memcmp (szClassName, "Skus ma editovat", 16) == 0)
{
ghwnd = hwnd;
bnasiel=FALSE;
}
return (bnasiel);
}
//tato funkcia urobi pozadovane cinnosti
//--------------------------------------------------------------------------
-
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int ret=0;
unsigned long tr1, tr2;
if(EnumWindows(EnumNajdi,0) == FALSE)
{
/***************************************************************************
*
*ak som nasiel hladane okno idem mu poslat pozadovane udaje.
*
*Niektore udalosti staci poslat priamo formularu (napr.
stlacenie *
*klavesy TAB, cim sa posunie focus na dalsi prvok formulara.
*
*Text pre edit a memo sa vsak musi poslat priamo danemu
prvku.*
****************************************************************************
*/
// predpokladam ze focus je na buttone, presuniem ho na edit
poslanim udalosti "stlacenie klavesy TAB = 0x09"
PostMessage(ghwnd,WM_KEYDOWN ,0x09 ,0);
PostMessage(ghwnd,WM_KEYUP ,0x09 ,0);
/***************************************************************************
******************************
*teraz je focus na edite a ja potrebujem ziskat jeho handle,
aby som mu mohol poslat text.*
*Aby som vedel zistit handle komponenty, ktora ma focus musim
pripojit jej vstup k mojej *
*aplikacii.
****************************************************************************
******************************/
// pripojim vstup danej aplikacie k mojej
tr1 = GetWindowThreadProcessId(ghwnd,NULL); //ziskal som ID
threadu danej aplikacie
tr2 = GetWindowThreadProcessId(Application->Handle,NULL);
//ziskal som ID threadu mojej aplikacie
AttachThreadInput(tr1, tr2, true); //zmergujem vstup
//zalohujem handle okna
oldhwnd = ghwnd;
//ziskam handle editu
ghwnd = GetFocus();
//posielam pozadovany text
PostMessage(ghwnd,WM_KEYDOWN ,'A' ,0);
PostMessage(ghwnd,WM_KEYUP ,'A' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'h' ,0);
PostMessage(ghwnd,WM_KEYUP ,'h' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'o' ,0);
PostMessage(ghwnd,WM_KEYUP ,'o' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'j' ,0);
PostMessage(ghwnd,WM_KEYUP ,'j' ,0);
//posuvam focus na memo
PostMessage(oldhwnd,WM_KEYDOWN ,0x09 ,0);
PostMessage(oldhwnd,WM_KEYUP ,0x09 ,0);
//posielam pozadovany text
PostMessage(ghwnd,WM_KEYDOWN ,'E' ,0);
PostMessage(ghwnd,WM_KEYUP ,'E' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'d' ,0);
PostMessage(ghwnd,WM_KEYUP ,'d' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'i' ,0);
PostMessage(ghwnd,WM_KEYUP ,'i' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'t' ,0);
PostMessage(ghwnd,WM_KEYUP ,'t' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'u' ,0);
PostMessage(ghwnd,WM_KEYUP ,'u' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'j' ,0);
PostMessage(ghwnd,WM_KEYUP ,'j' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'e' ,0);
PostMessage(ghwnd,WM_KEYUP ,'e' ,0);
PostMessage(ghwnd,WM_KEYDOWN ,'m' ,0);
PostMessage(ghwnd,WM_KEYUP ,'m' ,0);
//zrusim spojenie vstupu
AttachThreadInput(tr1, tr2, false);
}
}
/LH
Globalny pohyb mysou
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 12.6.2000 17:04:45
Ahoj
pro absolutni nastaveni pozice mysi pouzivam tohle:
procedure XYMove(x, y : integer);
var
dwFlags, dwData, dwExtraInfo : integer;
begin
dwFlags := MOUSEEVENTF_MOVE or MOUSEEVENTF_ABSOLUTE;
dwData := 0;
dwEtraInfo := 0;
mouse_event(dwFlags, x, y, dwData, dwExtraInfo);
end;
POZOR !
x a y jsou normalizovane absolutni souradnice (0,0) = horni levy roh
televize,
(65535,65535)= dolni pravy roh televize.
Relativni posunovani kurzoru neni uplne trivialni, viz help k mouse_event,
cast REMARK
----------------------------------------------------------------------------
------------------
If the MOUSEEVENTF_ABSOLUTE value is not specified, dx and dy specify
relative motions from when the last mouse event was generated (the last
reported position). Positive values mean the mouse moved right (or down);
negative values mean the mouse moved left (or up).
Relative mouse motion is subject to the effects of the mouse speed and the
two mouse threshold values. In Windows NT, an end user sets these three
values with the Mouse Tracking Speed slider of Control Panel's Mouse option;
in Windows 95, an end user sets them with the Pointer Speed slider of the
Control Panel's Mouse property sheet. An application obtains and sets these
values with the SystemParametersInfo function.
The operating system applies two tests to the specified relative mouse
motion. If the specified distance along either the x or y axis is greater
than the first mouse threshold value, and the mouse speed is not zero, the
operating system doubles the distance. If the specified distance along
either the x or y axis is greater than the second mouse threshold value, and
the mouse speed is equal to two, the operating system doubles the distance
that resulted from applying the first threshold test. It is thus possible
for the operating system to multiply relatively-specified mouse motion along
the x or y axis by up to four times.
----------------------------------------------------------------------------
------------------
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: Robert Zak [mailto:nrsys(zv)psn.sk]
> Odesl�no: 12. �ervna 2000 16:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Globalny pohyb mysou
>
>
> Citat to sice ide, zapisovat ale nie...
> Aj tak to ale bola dobra rada, nasiel som aspon mouse_event,
> pri ktorom je
> napisane:
> - pokial zadam absolutny parameter, ma to nastavit absolutnu
> poziciu mysi...
> ale to nefunguje, nic sa nestane ...
> - pokial zadam relativny posun mysi, zadam o kolko ma kurzor
> posunut... aj
> to teda posunie, ale y-ovu suradnicu, pokial zadam ciso
> vacsie ako 2 posunie
> o 2x tolko bodov ako potrebujem.
> skusal som to takto...
>
> mouse_event(MOUSEEVENTF_MOVE,10,3,0,GetMessageExtraInfo);
> toto posunie v x-ovej o 1- a y-ovej 6 bodov!!
>
> Mozete mi poradit co s tym?
>
> Dakujem
>
> Robo
> RichEdit
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 12.6.2000 17:06:45
Ahoj,
From: "Hurricane" <hurricane(zv)email(tec)cz>
> No a tim editorem z RA Libu to nejde? Kdyz uz sem zacal o Editorech,
> nevite nekdo, kde se da stahnout nejnovejsi verze (min 0.9)
> mwCustomEditu? Jeji spoluautor Primoz Gabrijelcic rikal, ze uz to
> skoncilo a ze je to zruseny. Na netu sem nasel jenom strasne
> zastaralou verzi 0.5 a proto schanim kompletni ZIPak nejaky novejsi.
> Nevite o tom nekdo?
>
> Hurricane
Mam verzi 0.9, muzu poslat, i s Helpem to bude tak 1 MB
Jarek Uher
ActiveX prvek
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 12.6.2000 17:17:06
> Ahoj,
>
> prosim o informaci, zda mohu (a jak) vytvorit v Delphi komponentu, -
> jedna se o ActiveX prvek - kde zdroj je cely napsany v C++ (Visual
> Basic). Potrebuji vytvorit balicek a vlozit jej na listu. Z Pascalem
pardon chybicka se vloudila - C++ z Visual Studia - samozrejme
> to umim, ale jak na C++.
>
> Dekuji za kazdy napad,
>
> s pozdravem
>
> Jarek Uher
>
>
>
Hladanie v datab�ze
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.6.2000 18:39:49
Zajiste se da hledat pomoci SELECT
SELECT id FROM Tabulka WHERE Podminka
Locate('id', .... )
Protoze zpravidla takovy select vrati vice zaznamu,
je vhodne jeho vyssledek pripojit na dalsi Query a
na nej pak pripojit navigator pro hledani dalsiho vyskytu.
Pak uz staci osetrit udalost pro zmenu zaznamu a dohledat
odpovidajici id v prvni tabulce treba pomoci Locate
nebo Findkey. Vyhodou je, ze SELECT ma daleko lepsi
moznosti zadani podminky pro vyber (hledani) nez Locate.
Ostatne co jineho je vyber informaci nez hledani.
Provazanost nalezenych zaznamu (id) s jinou tabulkou
o vetsim rozsahu dat, tak aby vznikl pocit "hledani "
ve smyslu v jak�m byl polozendotaz, je uz jen detail.
Jaro
----------------------------------------------------------------------
------------------
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC
> Ahoj,
>
> > Ja by som potreboval urobit v databaze vyhladavanie. Ak vyhladavam
v jednom
> > poli
> > tak mi staci locate, ale ak chcem vyhladavat v celej databaze uz
mi nestaci.
>
> Locate( 'PrvePole;DruhePole',
VarArrayOf( [ 'Hodnota1','Hodnota2'] ), [] )
> vyhlada zaznam, kde
> PrvePole ma hodnotu Hodnota1 a
> DruhePole na hodnotu Hodnota2.
>
> > Da sa tu pouzit select? ak ano, ako?. V qery by sa select moc
menit nemal,
> > tak ako najdem zaznam a presuniem sa na neho?
>
> Selectom sa da iba FILTROVAT, nie vyhladavat:
> Select * from tabulka where PrvePole='Hodnota1' and DruhePole =
'Hodnota2'
> Toto ti ukaze len take zaznamy, ktore splnaju podmienku WHERE, ale
ziadne ine...
>dbgrid a barevne radky a sloupce
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.6.2000 19:38:35
Ahoj,
podivej se sem:
http://www.swnet(tec)cz/article.php?id=3937
Slavek
> Jakym zpusobem lze vykreslit odlisne barevne radky v
> DBGRID podle obsahu recordu ? A Jakym zpusobem lze jeste vykreslit odlisne
> barevne i sloupce ? Take potrebuji, aby se odlisne barevne vykresloval
> aktualni radek v dbgrid ? Dekuji za pomoc.
>
> Daniel Resler
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Picture Open Dialog
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 12.6.2000 19:52:28
Zdravim,
Neviete niekto o komponente like TPictureOpenDialog ale aby vedela preview
JPG a GIF.
Vdaka za pomoc
RichEdit
[*] Surfman <surfman(zv)volny(tec)cz> - 12.6.2000 20:24:24
> nekdo, kde se da stahnout nejnovejsi verze (min 0.9) mwCustomEditu? Jeji
Ahoj,
Podivej se na http://jediedit.heha.net/en/archive.htm
Je tam k dispozici verze 0.92a
Pavel
Spousteni exace z prohlizece
[*] Hurricane <hurricane(zv)email(tec)cz> - 12.6.2000 21:19:59
Zdravim
Urcite by to slo pomoci A tagu, asi takhle: <a href="prog.exe
param1">spust</a>. Na vzyvu pro ulozeni nebo spusteni das spusteni a melz bz
to jit. Nejsem si jistej, jestli to pude i s tim parametrem, aby to nebralo
jako nazev. To by se mozna dalo resit pomoci DDE zprav prislusny aplikaci,
ale nevim,jestli to jde. Taky me napadlo, ze by to cely, i s parametrem melo
jit pres vyssi www jazik, napr pomoci javovyho apletu.
Huricane
----- Original Message -----
From: Ladislav Dole�el <dodo(zv)centrum(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 12, 2000 1:35 PM
Subject: re: Spousteni exace z prohlizece
Tak to rozhodne primo bez souhlasu uzivatele pustit nepujde, to
by byla DOOST velka bezpecnostni dira, zvlaste vhodna pro viry.
A jeste predavat parametry ? Nevim o nicem takovem.
**Dodo**
______________________________________________________________
> Od: Ales Radikovsky <radik(zv)volny(tec)cz>
> Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Mon, 12 Jun 2000 09:39:35 +0200
> P�edm�t: Spousteni exace z prohlizece
>
> Ahojky.
>
> Nemate nekdo jednoduchy zpusob, jak spoustet z Internet
Exploreru i
> Netscapu exe soubor? Potrebuji, aby se (asi misto linku)
otevrel muj
> program a predaly nejake parametry.
>
> Ales
>
> --
>
> Ale� Radikovsk�
> mail: radik(zv)seznam(tec)cz
> tel: +420 603 300093
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
spusteni druhe aplikace
[*] Hurricane <hurricane(zv)email(tec)cz> - 12.6.2000 21:25:26
Takhle to funguje s Explorerem:
ShellExecute(Application.Handle, 'open', PCHar(FilNam),'', '',
sw_showMaximized);
Jde o ten parametr open, kdyz sem tam mel nil, tak mi to pokazdy oteviralo
novy okno. Podle me to s Wordem bude stejny.
Hurricane
----- Original Message -----
> a dovoluji si polozit ozazku:
> Jak zajistit, aby napr. pres ShellExecute se napr. pri spousteni
> Wordu tento znovu neotviral, pokud je jiz spusten, ale pouze se
> otevrelo v nem nove okno s prislusnym dokumentem. Jde o to, ze to v
> me aplikaci nemusi byt pouze Word, ale libovolny editor (takze by asi
> nepomohlo ? pouziti nejakeho makra)? Pochopitelne si necham poradit i
> v pripade, ze nepujde o uziti ShellExecute, ale i neceho jineho, co
> to vyresi (pak ale pro jistotu prosim o vetsi nakopnuti).Picture Open Dialog
[*] Hurricane <hurricane(zv)email(tec)cz> - 12.6.2000 21:37:08
Do uses napis jpeg a mas hotovo. Podle toho si jeste udelej definici
vstupnich filtru v dialogu. Bylo to tezky, vid. Co se tyce gifu, doporucuju
nainstalovat RXLib www.rxlib.com. Tam je komponenta pro gify, po jejim
nainstalovani se automaticky objevi filtr v pict dialogu a jde otevrit
normalnim TImage.
Hurricane
----- Original Message -----
From: Peter Laurinc <Peter.Laurinc(zv)ibaware.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, June 12, 2000 7:52 PM
Subject: Picture Open Dialog
> Zdravim,
>
> Neviete niekto o komponente like TPictureOpenDialog ale aby vedela preview
> JPG a GIF.
>
> Vdaka za pomoc
>TCPIP zprava
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 12.6.2000 21:53:06
Ahojky lidicky, potreboval bych zase pomoci. Potrebuju z D4Prof poslat
na nejakou IP adresu pres nejaky PORT nejaky text. Predstavoval bych si
nejakou proceduru:
procedure SendText(IP:String; PORT:Integer; TXT:String);
Muzete mi pls poradit s vnitrkem takoveto procedury... Predem vsem dik.
--
Martin Pesava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/spusteni druhe aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.6.2000 22:42:56
From: "Milan Dvo��k" <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz>
> Jak zajistit, aby napr. pres ShellExecute se napr. pri spousteni
> Wordu tento znovu neotviral, pokud je jiz spusten, ale pouze se
> otevrelo v nem nove okno s prislusnym dokumentem. Jde o to, ze to v
Ahoj,
v tomto pripade musis pouzit bud OLE Automation nebo poslat prikaz pro
otevreni pomoci DDE. Parametry zjistis v asociaci pripony dokumentu,
napriklad IE5 (Pruzkumnik -> Zobrazit - Moznosti -> zalozka Typy souboru
-> "Microsoft HTML document 5.0" -> Upravit -> Akce: Open -> Upravit a
tam pak v ramecku "Pouzivat DDE" uvidis vsechny potrebne parametry.
Pro dalsi aplikace to bude podobne, pokud ovsem umi DDE vyuzit. Pokud
vsak muzes, tak dej vzdy prednost OLE Automation pred DDE, protoze DDE
je pomerne priserna technologie. Pokud mas D5, tak se podivej do palety
komponent Servers, kde je uz 'predimportovany' cely MS Office.
Priklad s DDE pro IE5:
procedure TForm1.Button1Click(Sender: TObject);
var
Cmd: string;
begin
OpenDialog1.FileName := '';
if OpenDialog1.Execute then
with DdeClientConv1 do
begin
ServiceApplication := '"C:\PROGRA~1\INTERN~1\iexplore.exe" -nohome';
if SetLink('IExplore', 'WWW_OpenURL') then
begin
Cmd := '"file://%1",,-1,,,,,';
Cmd := StringReplace(Cmd, '%1', '%s', []);
Cmd := Format(Cmd, [OpenDialog1.FileName]);
ExecuteMacro(PChar(Cmd), False) ;
CloseLink;
end else ShowMessage('Error');
end;
end;
Petr Vones, amatersky programator
TImage
[*] Surfman <surfman(zv)volny(tec)cz> - 12.6.2000 23:53:02
Ahoj,
potreboval bych poradit, kde delam chybu.
Za behu vytvorim komponentu TImage a naplnim ji vlastnost Graphic obrazkem.
Potom ji z formu zrusim. Pokud to opakuji, dojde k hlaseni AbstractError
Morim se s tim a morim a asi uz prehlizim nejakou trivialitu.
Tady je zjednoduseny kod v D5.
POMOOOOOOOOOOOOOOC
Pavel
procedure vytvorit(Node: TTreeNode);
var
TypeOfImage: integer;
MStream: TMemoryStream;
begin
if TItemObject(Node.Data).MainObject.Caption <> '' then
with TOLabel.Create(Self) do
begin
.....
end;
if TItemObject(Node.Data).Image.Picture.Graphic <> nil then
with TImage.Create(Self) do
begin
.....
Picture.Graphic := TItemObject(Node.Data).Image.Picture.Graphic;
end;
end;
procedure smazat;
begin
for i := ComponentCount - 1 downto 0 do
begin
if (Components[i].Name <> 'Image') and (Components[i].Name <>
'ImPodklad') and
(Components[i].Name <> 'TvObsah') and (Components[i].Name <>
'Button1') then
begin
if Components[i] is TOLabel then
with TOLabel(Components[i]) do
begin
OnClick := nil;
OnMouseMove := nil;
end;
if Components[i] is TImage then
with TImage(Components[i]) do
begin
OnClick := nil;
OnMouseMove := nil;
end;
Components[i].Free;
end;
end;
ShowData;
end;
Probl�my s nativn�m p��stupem k MS-SQL
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 13.6.2000 01:01:05
Mam nasledujici problem:
Pokud v definici tabulky MS-SQL pouziji typ bit (neco jako Boolean), pak
Delphi (ale take Database Desktop) pri editaci zaznamu hlasi Couldn't
perform the edit because another user changed record. Tabulka samozrejme je
otevrena pouze jednou aplikaci pouze v jednom okne (nezavisi ani na tom, zda
je otevrena exkluzivne). Pokud pristupuji pres ODBC ovladac, vse funguje,
ale aplikace je pak znacne nestabilni (Neplatne stranky v modulu Kernel32 -
obzvlaste u starsich verzi Delphi).
Taky mam problem s typem Money. Hodnoty mohu zadat pouze jedenkrat. Kdyz
zkousim hodnotu zmenit, pak Delphi (i DBD) hlasi Cannot convert a char value
to money. The char value has a incorect syntax. Takovyto radek tabulky nelze
ani smazat. Asi to bude problem oddelovacu tisicu (protoze hodnoty do 1000
funguji), ale zatim nevim, kde mam co nastavit, aby to jelo.
Diky za pomoc
Tomas
MS-SQL7 (+SP2), D3 - D5 Ent., BDE 5.1.1
RichEdit
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 13.6.2000 01:02:49
To jsem zkousel, ale neslo mi to zvetsit vice nez je velikost toho
RichEditu.
Zdravi
Petr Jelinek - amatersky programator
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, June 11, 2000 11:00 PM
Subject: Re: RichEdit
> From: "Petr Jel�nek Konf" <pjmodos(zv)seznam(tec)cz>
> > Mam nasledujici problem. Potrebuju, abych mel radky v RichEditu delsi
nez je
> > sirka toho RichEditu, ale zaroven potrebuju, aby mi lamal radky. Takze
>
> Ahoj,
>
> pro nastaveni velikosti plochy pouzij zpravu EM_SETRECT. Priklad najdes v
> Demos\Richedit
>
> Petr Vones, amatersky programator
>
>
>Chyba na NT
[*] Jan Cejka <jan.cejka(zv)mensa(tec)cz> - 13.6.2000 07:16:29
--=======2EB84AF=======
Content-Type: text/plain; charset=iso-8859-1; format=flowed; x-avg-checked=avg-ok-7202309
Content-Transfer-Encoding: quoted-printable
Souhlas, ale neni na skodu na zkousku preinstalovat posledni SP.
Honza.
At 23:13 12.6.2000 +0200, you wrote:
>To nepoznas.....:-)
>
>
>______________________________________________________________
> > Od: Bene=B9 Jaroslav <JBenes(zv)cpoj(tec)cz>
> > Komu: delphi-l(zv)fwd(tec)cz
> > CC:
> > Datum: Mon, 12 Jun 2000 14:49:28 +0200
> > P=F8edm=ECt: RE: Chyba na NT
> >
> > A jak poznam co se priinstalovalo? Podle spravce by mely byt
>instalovany
> > vsechny service packy ale jestli je delaji poctive po vsech
>updatech
> > programu, ktere ovlivnuji system to asi nevi.
> > Dik
> > Jaro B.
> >
> > > -----P=F9vodn=ED zpr=E1va-----
> > > Od: Jan Cejka [SMTP:jan.cejka(zv)mensa(tec)cz]
> > > Odesl=E1no: 12. VI 2000 14:11
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P=F8edm=ECt: re: Chyba na NT
> > >
> > > Anebo...
> > > K necemu takovymu dojde, pokud si nainstalujes Service Pack,
>potom
> > > priinstalujes neco, co prepise puvodni knihovnu a nedas si
>znovu Service
> > > Pack.
> > > bye Honza
> > >
> > > At 10:12 12.6.2000 +0200, you wrote:
> > >
> > > >Zrejme knihovna KERNEL32.DLL v NT nepodoporuje funkci, kterou
> > > >potrebujes, proste tam fce tam neni. Nektery fce co jsou k
> > > >sipozici pro W95/98 nejsou v NT... (a naopak)
> > > >Dodo
> > > >
> > > >
> > >
> >______________________________________________________________
> > > > > Od: Bene1 Jaroslav <JBenes(zv)cpoj(tec)cz>
> > > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > > CC:
> > > > > Datum: Mon, 12 Jun 2000 09:10:14 +0200
> > > > > Poedmit: Chyba na NT
> > > > >
> > > > > Ahoj,
> > > > >
> > > > > mam program prelozeny pod D3 a hlasi mi chybu "VSTUPNI BOD
> > > >PROCEDURY
> > > > > REGISTER SERVICE PROCESS NEBYLO MOZNE V KNIHOVNE DLL
> > > >KERNEL32.DLL NAJIT".
> > > > > Tuto chybu mi to hlasilo, i kdyz jsem program prelozil
>pod D2.
> > > >Kde bych,
> > > > > prosim, mohl heldat chybu
> > > > >
> > > > > Diky
> > > > >
> > > > > Jaro B.
> > > > >
> > > >
> > > >
> > > >Objevujte Internet s http://www.centrum(tec)cz
> > > >Zalo3/4te si svuj mail na http://mail.centrum(tec)cz
> > > >
> > > >
> > > >
> > > >
> > > >---
> > > >Po=EDchoz=ED zpr=E1va neobsahuje viry.
> > > >Zkontrolov=E1no antivirov=FDm syst=E9mem AVG
>(http://www.grisoft(tec)cz).
> > > >Verze: 6.0.157 / Virov=E1 b=E1ze: 73 - datum vyd=E1n=ED: 31.5.2000
> >
>
>
>Objevujte Internet s http://www.centrum(tec)cz
>Zalo=BEte si svuj mail na http://mail.centrum(tec)cz
>
>
>
>---
>P=F8=EDchoz=ED zpr=E1va neobsahuje viry.
>Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
>Verze: 6.0.157 / Virov=E1 b=E1ze: 73 - datum vyd=E1n=ED: 31.5.2000
--=======2EB84AF=======--
Chyba na NT
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 13.6.2000 07:35:40
Tak jsem mu poradil, at si nainstaluje konkurencni program, ktery pry nic
nehlasi...
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Ladislav Dole3el" [SMTP:dodo(zv)centrum(tec)cz]
> Odesl�no: 12. VI 2000 23:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Chyba na NT
>
> To nepoznas.....:-)
>
>
> ______________________________________________________________
> > Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> > Komu: delphi-l(zv)fwd(tec)cz
> > CC:
> > Datum: Mon, 12 Jun 2000 14:49:28 +0200
> > P�edm�t: RE: Chyba na NT
> >
> > A jak poznam co se priinstalovalo? Podle spravce by mely byt
> instalovany
> > vsechny service packy ale jestli je delaji poctive po vsech
> updatech
> > programu, ktere ovlivnuji system to asi nevi.
> > Dik
> > Jaro B.
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Jan Cejka [SMTP:jan.cejka(zv)mensa(tec)cz]
> > > Odesl�no: 12. VI 2000 14:11
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: re: Chyba na NT
> > >
> > > Anebo...
> > > K necemu takovymu dojde, pokud si nainstalujes Service Pack,
> potom
> > > priinstalujes neco, co prepise puvodni knihovnu a nedas si
> znovu Service
> > > Pack.
> > > bye Honza
> > >
> > > At 10:12 12.6.2000 +0200, you wrote:
> > >
> > > >Zrejme knihovna KERNEL32.DLL v NT nepodoporuje funkci, kterou
> > > >potrebujes, proste tam fce tam neni. Nektery fce co jsou k
> > > >sipozici pro W95/98 nejsou v NT... (a naopak)
> > > >Dodo
> > > >
> > > >
> > >
> >______________________________________________________________
> > > > > Od: Bene1 Jaroslav <JBenes(zv)cpoj(tec)cz>
> > > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > > CC:
> > > > > Datum: Mon, 12 Jun 2000 09:10:14 +0200
> > > > > Poedmit: Chyba na NT
> > > > >
> > > > > Ahoj,
> > > > >
> > > > > mam program prelozeny pod D3 a hlasi mi chybu "VSTUPNI BOD
> > > >PROCEDURY
> > > > > REGISTER SERVICE PROCESS NEBYLO MOZNE V KNIHOVNE DLL
> > > >KERNEL32.DLL NAJIT".
> > > > > Tuto chybu mi to hlasilo, i kdyz jsem program prelozil
> pod D2.
> > > >Kde bych,
> > > > > prosim, mohl heldat chybu
> > > > >
> > > > > Diky
> > > > >
> > > > > Jaro B.
> > > > >
> > > >
> > > >
> > > >Objevujte Internet s http://www.centrum(tec)cz
> > > >Zalo3/4te si svuj mail na http://mail.centrum(tec)cz
> > > >
> > > >
> > > >
> > > >
> > > >---
> > > >Po�choz� zpr�va neobsahuje viry.
> > > >Zkontrolov�no antivirov�m syst�mem AVG
> (http://www.grisoft(tec)cz).
> > > >Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
> >
>
>
> Objevujte Internet s http://www.centrum(tec)cz
> Zalo�te si svuj mail na http://mail.centrum(tec)cz
> Chyba na NT
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.6.2000 08:17:15
> -----P�vodn� zpr�va-----
> Od: Jan Cejka [mailto:jan.cejka(zv)mensa(tec)cz]
> Odesl�no: 13. �ervna 2000 7:16
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Chyba na NT
>
>
> Souhlas, ale neni na skodu na zkousku preinstalovat posledni SP.
> Honza.
SP by se mel nainstalovat po kazde instalaci (jakehokoliv programu).
Tady ta situace mohla nastat nechtenou modifikaci dll (nejakym freewarem)
anebo ten program napsany v Delphi 3 pocita se starsi verzi
kernell32.dll. Mohl bys, jestli nepomuze nejnovejsi
SP, zkusit pouzit nejaky starsi, ktery vznikl pred distribuci Delphi5
(nemel by se ale asi instalovat pres novejsi, protoze o nem nic nevi
a system by se uz nemusel rozchodit).
Anebo to neni problem Delphi vs. Kernell.dll ale problem programu,
ktery se snazi pouzit zastaralou API funkci.
Jura
TCPIP zprava
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 13.6.2000 08:34:49
Zkus NMUDP komponetu, v helpu je i demo.
Cim to chces chytat ?
Slavek
PS: NMUDP ma problemy z ukoncovanim windows, pokud ti bezi program, tak to zastavi ukoncovaci sekvenci.
> Ahojky lidicky, potreboval bych zase pomoci. Potrebuju z D4Prof poslat
> na nejakou IP adresu pres nejaky PORT nejaky text. Predstavoval bych si
> nejakou proceduru:
> procedure SendText(IP:String; PORT:Integer; TXT:String);
> Muzete mi pls poradit s vnitrkem takoveto procedury... Predem vsem dik.
> --
> Martin Pesava
SQL a indexy (ADO v D5)
[*] Petr Sadovsk� <petr(zv)slunce(tec)cz> - 13.6.2000 09:18:51
Ahojte,
zase nekde delam chybicku.Mam jednu ADOQuery1,
na ktere spustim vytvoreni indexu:
ADOQuery1.SQL.ADD('alter table stat0211 add constraint stat0211 unique
(JDAA)');
ADOQuery1.ExecSQL;
pak provedu
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD(' select * from stat0211');
Open;
A ted nevim, jestli si select automaticky otevre ten indexovy soubor, nebo
jestli se musi jeste nejak selectu "rict", aby index otevrel, protoze toto
nefunguje, nebo nefunguje fraze unique, protoze se zobrazi vsechny vety.
Diky za jakekoli nakopnuti.
Petr
TCPIP zprava
[*] psojka(zv)els.ln.skoda(tec)cz - 13.6.2000 08:19:33
Zdravim.
> Ahojky lidicky, potreboval bych zase pomoci. Potrebuju z D4Prof poslat
> na nejakou IP adresu pres nejaky PORT nejaky text. Predstavoval bych si
> nejakou proceduru:
> procedure SendText(IP:String; PORT:Integer; TXT:String);
> Muzete mi pls poradit s vnitrkem takoveto procedury... Predem vsem dik.
> --
> Martin Pesava
Na jednom konci potebujes ClientSocket a na druhem ClientServer.
Oba musi byt nastaveny na stejny port. Server musi mit
Active = True. Na Clientovi nastavis IP Serveru a rovnez ho zactivujes.
Client v idealnim pripade navaze se Serverem spojeni no a pak
se pomoci ClientSocket.socket.SendText(s : String) muze odeslat
zprava, kterou pak na servere prictes v udalosti
OnClientRead(Sender: TObject; Socket: TCustomWinSocket)
metodou Socket.RecieveText:String;
hnd
Peter Sojka
Rimska cisla - reseni
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 13.6.2000 09:23:03
Prijemny den,
D4 Standard, W95 OSR2.
Jeste jsem doplnil kontrolu pri zadani neplatnych syntaxi a hlaseni, ktera
ze to syntaxe byla porusena.
Za nepripustne znaky povazuji vice jak tri stejne za sebou, pokud to nejsou
L
nebo D, tam nemohou byt za sebou ani dve. A pak nelze predradit pred vyssi
hodnotu nizsi, pokud neni nizsi pouze o jeden rad (petky se nepocitaji).
Stejne tak lze predradit pouze jednu nizsi hodnotu, ne v�ce.
Budu rad, pokud se na to nekdo podivate. Treba to ma jeste nejakou chybu, o
ktere nevim. Dekuji.
---------------------------------------------------------
function RomanToNum (const S: String): longint;
const SymbolStr = 'MDCLXVI';
NeplatneTvary : Array[1..35] of String =
('IIV', 'IIX', 'IL','IC','ID','IM', 'IIII',
'VV', 'VX', 'VL','VC','VD','VM','VIV', 'IVI',
'XXL', 'XXC','XD','XM', 'XXXX', 'XLX', 'XCX',
'LC','LD','LM', 'LL', 'LXL',
'CCD', 'CCM', 'CCCC', 'CDC', 'CMC',
'DM','DD', 'MMMM');
var Loop, A: integer;
ThisVal, LastVal, Chyba: LongInt;
Lookup : array [0..7] of LongInt;
begin
Lookup[0] := 0;
Lookup[1] := 1000;
Lookup[2] := 500;
Lookup[3] := 100;
Lookup[4] := 50;
Lookup[5] := 10;
Lookup[6] := 5;
Lookup[7] := 1;
LastVal := 0;
Result := 0;
Chyba := 0;
{Kontrola neplatn�ch dvojic}
for A := 1 to 35 do
begin
Chyba := Chyba + Pos(NeplatneTvary[A], S);
if Chyba > 0 then
begin
ShowMessage ('Zad�n neplatn� tvar ��msk�ho ��sla: '+
NeplatneTvary[A]);
Exit;
end;
end;
for Loop := 1 to length (S) do
begin
ThisVal := Lookup[Pos (S[Loop], SymbolStr)];
{Kontrola �patn�ho znaku}
If ThisVal = 0 then
begin
ShowMessage ('Zad�no neplatn� ��msk� ��slo: ' + S[Loop]);
Exit;
end;
if ThisVal > LastVal then
LastVal := ThisVal - LastVal
else
begin
Result := Result + LastVal;
LastVal := ThisVal;
end;
end;
Result := Result + LastVal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(RomanToNum(Edit1.Text));
end;
------------------------------------------------------------------------
Pred nedavnem se v konferenci probiral prevod na Rimska cisla a zpet.
Zabyval jsem se tim a doplnil jsem prevod z rimskych cisel na arabska tak,
aby neslo zadat tvar napr. MIM nebo CCCC, coz je nepripustna syntaxe.
Vysledkem je nize uvedena funkce i jejim volanim, kde Label1 je vysledek a
Edit1 je rimske cislo (nutno zadat velka pismena).
Hotovy programek mozno nalezt na mych strankach:
http://mujweb(tec)cz/www/strakaj/index.htm
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
Chyba na NT
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 13.6.2000 09:44:25
Nemam vliv na spravce, ale muj program je free - zrejme maji pocit ze kdyz
si nezaplati, tak to neni ono. A je to lepsi nez si nechat porad nadavat a
vyhrozovat.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Jan Cejka [SMTP:jan.cejka(zv)mensa(tec)cz]
> Odesl�no: 13. VI 2000 7:16
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Chyba na NT
>
> Souhlas, ale neni na skodu na zkousku preinstalovat posledni SP.
> Honza.
>
> At 23:13 12.6.2000 +0200, you wrote:
>
> >To nepoznas.....:-)
> >
> >
> >______________________________________________________________
> > > Od: Bene1 Jaroslav <JBenes(zv)cpoj(tec)cz>
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > CC:
> > > Datum: Mon, 12 Jun 2000 14:49:28 +0200
> > > Poedmit: RE: Chyba na NT
> > >
> > > A jak poznam co se priinstalovalo? Podle spravce by mely byt
> >instalovany
> > > vsechny service packy ale jestli je delaji poctive po vsech
> >updatech
> > > programu, ktere ovlivnuji system to asi nevi.
> > > Dik
> > > Jaro B.
> > >
> > > > -----Puvodn� zpr�va-----
> > > > Od: Jan Cejka [SMTP:jan.cejka(zv)mensa(tec)cz]
> > > > Odesl�no: 12. VI 2000 14:11
> > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > Poedmit: re: Chyba na NT
> > > >
> > > > Anebo...
> > > > K necemu takovymu dojde, pokud si nainstalujes Service Pack,
> >potom
> > > > priinstalujes neco, co prepise puvodni knihovnu a nedas si
> >znovu Service
> > > > Pack.
> > > > bye Honza
> > > >
> > > > At 10:12 12.6.2000 +0200, you wrote:
> > > >
> > > > >Zrejme knihovna KERNEL32.DLL v NT nepodoporuje funkci, kterou
> > > > >potrebujes, proste tam fce tam neni. Nektery fce co jsou k
> > > > >sipozici pro W95/98 nejsou v NT... (a naopak)
> > > > >Dodo
> > > > >
> > > > >
> > > >
> > >______________________________________________________________
> > > > > > Od: Bene1 Jaroslav <JBenes(zv)cpoj(tec)cz>
> > > > > > Komu: delphi-l(zv)fwd(tec)cz
> > > > > > CC:
> > > > > > Datum: Mon, 12 Jun 2000 09:10:14 +0200
> > > > > > Poedmit: Chyba na NT
> > > > > >
> > > > > > Ahoj,
> > > > > >
> > > > > > mam program prelozeny pod D3 a hlasi mi chybu "VSTUPNI BOD
> > > > >PROCEDURY
> > > > > > REGISTER SERVICE PROCESS NEBYLO MOZNE V KNIHOVNE DLL
> > > > >KERNEL32.DLL NAJIT".
> > > > > > Tuto chybu mi to hlasilo, i kdyz jsem program prelozil
> >pod D2.
> > > > >Kde bych,
> > > > > > prosim, mohl heldat chybu
> > > > > >
> > > > > > Diky
> > > > > >
> > > > > > Jaro B.
> > > > > >
> > > > >
> > > > >
> > > > >Objevujte Internet s http://www.centrum(tec)cz
> > > > >Zalo3/4te si svuj mail na http://mail.centrum(tec)cz
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >---
> > > > >Po�choz� zpr�va neobsahuje viry.
> > > > >Zkontrolov�no antivirov�m syst�mem AVG
> >(http://www.grisoft(tec)cz).
> > > > >Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
> > >
> >
> >
> >Objevujte Internet s http://www.centrum(tec)cz
> >Zalo3/4te si svuj mail na http://mail.centrum(tec)cz
> >
> >
> >
> >
> >---
> >Po�choz� zpr�va neobsahuje viry.
> >Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> >Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000