Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Neco jako velmi jednoduchy assembler?
[*] Viktor <vik(zv)miesto.sk> - 15.5.2000 21:06:05
Potreboval bych neco jako velmi jednoduchy assembler - takovy nejaky objekt,
abych tomu predal instrukci (treba mov eax, dword ptr es:[edi]) a ono mi to
vratilo bajty, odpovidajici kodu teto instrukce. Nevite nekdo o necem?
Viktor
Bezpecnost InterBase
[*] Viktor <vik(zv)miesto.sk> - 15.5.2000 22:01:05
> Pro zajimavost prikladam proceduru na generovani IB hesla.
> Jestli tomu rozumis tak to prosim zkoukni.
>
To te asi zklamu, jednak je to spise na tydny nez na dny prace, druhak se k
tomu necitim zrovna nejpovolanejsi. Ale stejne si dovolim vyjadrit nazor, ze
mnohem vetsi potiz bude s tim, ze lidi si zvoli obvykle jako heslo nejake
normalni lidske slovo, treba jmeno manzelky. A vyzkouset takovy slovnik,
obsahujici treba 30000 beznych slov, je velice jednoduche. Proto bych jim
natvrdo vnutil, ze v hesle MUSi byt cislo a MUSi tam byt specialni znak.
Viktor
Prepinani procesu
[*] neuman.aritex(zv)email(tec)cz - 15.5.2000 22:12:03
Dobry den,
mam problem spojeny s prepinanim procesu. Potrebuji ze sve aplikace spoustet
procesy a potom se mezi nimi prepinat. Pri spousteni dostanu ID procesu (to
je celkem easy). Nevim ovsem jak se pak mezi temito procesy prepinat, popr.
jak se daji minimalizovat apod. a jak prepnu do materskeho procesu (aplikace).
Za kazdou radu budu velmi vdecny.
S pozdravem,
Premysl Neuman
Kreslen� na plochu
[*] Viktor <vik(zv)miesto.sk> - 15.5.2000 22:13:58
Zkus GetWindowDC(GetDesktopWindow()).
----- Original Message -----
From: <jan.derda(zv)post(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 15, 2000 1:27 PM
Subject: Kreslen� na plochu
> Jak mam vykreslit cokoli na plochu Windows.
> Nefunguje mi SetPixel(GetDesktopWindow,x,y,color)
>
> Jde to elegantne vyresit?
>
> Kde rychle najdu nejblizsi lekarnu?
> *** http://NAJDI.TO
TADOConnection.ConnectionString
[*] Erik Salaj <winsoft(zv)napri.sk> - 15.5.2000 22:27:05
> Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;
> Data Source=C:\Program Files\Common Files\Borland Shared\Data\dbdemos.mdb;
> Mode=Share Deny None;Extended Properties="";Locale Identifier=1033;
> Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database
P
> assword="";
> Jet OLEDB:Engine Type=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global
P
> artial Bulk Ops=2;
> Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";
> Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;
> Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without
Repli
> ca Repair=False;
> Jet OLEDB:SFP=False
Nastav iba potrebne parametre. Minimum je Provider a Data Source.
Erik
Nastavenie znakovej tabulky v IB 6
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 15.5.2000 23:20:52
Zdravim.
Mam problemik s filtrovanim zaznamov napr. cez Select ... where ...
Containing ... lebo
ak zad�m "where mesto containing 'ko�ice'" je to OK lebo ko�ice si preloz�
ako Ko�ice=ko�ice ale keby som zadal KO�ICE tak uz by vysledok nebol
zahrnut� do selectu, lebo �<>� ale vsetky znaky mimo nasich nestastnym
diaktritickych znakov si vie spravne vyhodnotit. Ani UPPER to nerob� spr�vne
napr. Upper(Ko�ice)=KO�ICE alebo
Upper(�esk� Bud�jovice)=�ESK� BUD�JOVICE.
Pritom mam nastavene Win1250 na varchar fieldoch.
Pripada mi to ako by IB 6 nemal rovnostnu tabulku na vyhodnocovanie znakovej
sady Win1250. Proste s ASCII znakmi mimo 65-90 a 97-122 nic nerobi !!!!!!!!!
Co sa da v tomto spravit.
Dakujem.
R.TIBLicensingService v IB6
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 15.5.2000 23:49:28
Zdravim
K comu sluzi v IB6 TIBLicensingService, ked deklaruju ze je OpenSource,
proste zadara.
Dakujem.
Roland.Bezpecnost InterBase
[*] L. ZITA <konference(zv)sales(tec)cz> - 16.5.2000 00:45:36
Behalf Of Viktor
> vyjadrit nazor, ze
> mnohem vetsi potiz bude s tim, ze lidi si zvoli obvykle jako heslo nejake
> normalni lidske slovo, treba jmeno manzelky. A vyzkouset takovy slovnik,
> obsahujici treba 30000 beznych slov, je velice jednoduche. Proto bych jim
> natvrdo vnutil, ze v hesle MUSi byt cislo a MUSi tam byt specialni znak.
>
To ma zase druhy hacek, takove heslo pak vidim casto napsane na dne prvniho
supliku kancelarskeho stolu.
Takze si nevyberes. Ale o to mi nejde, s tim, ze ziskat heslo tech
nejnizsich uzivatelu neni zadny problem
je proste nutno pocitat. Jde mi spise o uzivatele s vyssimi pravy ( kde
pocitam s vyssi odpovednosti prislusnych lidi)
aby tahle hesla nesla rozlousknout za 5 minut nejakym stazenym programkem z
webu.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 2.3.2000
Zistenie pridaneho riadku
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.5.2000 07:00:13
> -----Puvodn� zpr�va-----
> Od: Roland Turcan (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
> Odesl�no: 15. kvitna 2000 20:53
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Re: Zistenie pridaneho riadku
>
>
> Vies ono som definoval v %subj% ale pri reply to niekto
> vymazal, ale ako
Tipl bych si, ze ten nekdo byl nejaky postovni klient.
> vydim ti si daval reply na moju spravu do konf.
>
> R.
> > > Predmet: IB: Zistenie pridaneho riadku
Aha, to IB je asi InterBase.
Tak sorry, toho jsem si nevsiml - dvojpismennym
prefixum s dvojteckou v subj nevenuju pozornost :-(
Vzdycky predpokladam, ze je to RE: nebo FW:
Lepsi by asi bylo takove veci uvadet i do tela zpravy.
InterBase neznam
Jura
Zistenie pridaneho riadku
[*] r.tesar(zv)atlas(tec)cz - 16.5.2000 07:12:21
Dobry den
Potreboval bych poradit jak osetrit hlasku o chybe "Asynchronous socket error 10061". Tuto mi to vyhazuje, kdyz pripojuji ClintSocket k servrove aplikaci a ta neni funkcni. Ale ja to pripojeni potrebuji opakovane zkouset. Pomozte prosim.
Dik Radek Tesar
cestina na mssql7
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.5.2000 07:16:55
On 15 May 2000, at 15:02, Michal Jiskra wrote:
> mam problemy s nastavenim cestiny na mssql7(i msde).
> V enterprise manageru nemuzu psat cesky a i kdyz neco
> cesky ulozim pres isqlw tak to potom stejne neprectu cesky.
Ja zasadne pouzivam pro retezce, kde se i pouhou nahodou muze
vyskytnout nejaky diakriticky znak, unicode typ nvarchar. Zatim
jsem nenarazil na zadne problemy.
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
Panels & Splitters
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.5.2000 07:16:55
On 15 May 2000, at 16:43, Slavek Rydval wrote:
> musis na to trosku slozitejc:
Nemusis. :-)
> create_panel (align = top, parent = form);
> create_bevel (align = top, parent = form);
> pom_panel = create_panel (align = client, parent = form);
>
> na tom panelu client opet:
> create_panel (align = top, parent = pom_panel);
> create_bevel (align = top, parent = pom_panel);
> pom_panel = create_panel (align = client, pom_panel);
>
> a to opakuj, kolikrat potrebujes.
Patrne hlavnim predpokladem je to, ze panel ma Align=alTop.
Pokud pri vytvareni komponenty jeste pred insertem do formu
pridas Panel.Top:=9999 (nebo jine rozumne velke cislo), pak
nemusis vrstvit pyramidu. Obdobne pri vytvareni splitteru.
> > Potreboval bych dynamicky vytvaret panely a
> > splittery na formulari (nebo na jinem panelu).
> > Vytvaret komponenty umim, ale mam tu problem s
> > tim, ze se mi to nejde udelat tak, jak bych rad.
> > Tj. Na hlavnim panelu odvrchu by mely byt tyto
> > komponenty v tomto poradi:
> >
> > Panel
> > Slippter
> > Panel
> > Splitter
> > Panel
> > Splitter
> > Panel
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
Rychle kresleni PCX
[*] Pavel Hampl <phampl(zv)chmi(tec)cz> - 16.5.2000 05:29:55
jestli nemas prilis moc barev, tak to muzes zkusit ulozit jako
osmibitovou bitmapu s paletou, ktera zabere 3xmin mista. Nastavuje se to
tbitmap.pixelformat:=pf8bit; { snad }
a operace s paletou jsou v helpu, kdyz si das vyhledat heslo HPALETTE
(je tam jeden priklad).
Rychlost se tim (aspon zobrazovani) znatelne zvysi diky min pristupum do
pameti. Jak s tiskem, bohuzel nevim.
Ale fungovalo mi to dobre jev v NT, protoze win95/98 maji nejakou divnou
spravu barev, takze druhe prepnuti palety uz se neprovedlo a zustala tam
v poradi druha paleta po celou dobu behu programu. Tam jsem to musel
delat porad ve 24bitove grafice.
Pavel Hampl
delphi(zv)zas-me(tec)cz wrote:
>
> - zda to bude fungovat rozumnou rychlosti
> - zda to bude fungovat i pri tisku (ona cela A2 v 300x300 dpi, to uz je
> nejakych dat, a obavam se, ze s vytvarenim tBitmap takovych rozmeru to asi
> nedopadne dobre); pomohlo by to skladat z malych kousku?
>
> Diky predem za namety,
>
> Karel Rys
> rys(zv)zas-me(tec)cz
--
______________________
Pavel Hampl
dru�icov� odd�len�, �esk� hydrometeorologick� �stav
satellite group, Czech hydrometeorological inst.TADOConnection.ConnectionString
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 16.5.2000 07:52:51
D�ky,
zm�nil jsem Provider a jede to.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
----- P�vodn� zpr�va -----
Od: Erik Salaj <winsoft(zv)napri.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 15. kv�tna 2000 22:27
P�edm�t: Re: TADOConnection.ConnectionString
> > Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;
> > Data Source=C:\Program Files\Common Files\Borland
Shared\Data\dbdemos.mdb;
> > Mode=Share Deny None;Extended Properties="";Locale Identifier=1033;
> > Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet
OLEDB:Database
> P
> > assword="";
> > Jet OLEDB:Engine Type=4;Jet OLEDB:Database Locking Mode=0;Jet
OLEDB:Global
> P
> > artial Bulk Ops=2;
> > Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";
> > Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;
> > Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without
> Repli
> > ca Repair=False;
> > Jet OLEDB:SFP=False
>
> Nastav iba potrebne parametre. Minimum je Provider a Data Source.
>
> Erik
>
>
cestina na mssql7
[*] Lubo Fule <fule(zv)sct.sk> - 16.5.2000 08:08:53
> > mam problemy s nastavenim cestiny na mssql7(i msde).
> > V enterprise manageru nemuzu psat cesky a i kdyz neco
> > cesky ulozim pres isqlw tak to potom stejne neprectu cesky.
>
Problem je asi v zlom nastaveni jazyka SQL servera. Jazyk sa nastavuje pri
instalacii MSSQL, potom sa to uz bohuzial neda tak jednoducho zmenit. Takze,
bud pouzijes unicode (nchar, nvarchar) alebo preinstalujes MSSQL.
L.
Nastavenie znakovej tabulky v IB 6
[*] vyvoj - atlascon <vyvoj(zv)atlascon(tec)cz> - 16.5.2000 08:38:27
Nezkou�eli jsme to,
ale zkus nastavit znakovou sadu DOS 852.
Ivo
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 15, 2000 11:20 PM
Subject: Nastavenie znakovej tabulky v IB 6
> Zdravim.
>
> Mam problemik s filtrovanim zaznamov napr. cez Select ... where ...
> Containing ... lebo
>
> ak zad�m "where mesto containing 'ko�ice'" je to OK lebo ko�ice si preloz�
> ako Ko�ice=ko�ice ale keby som zadal KO�ICE tak uz by vysledok nebol
> zahrnut� do selectu, lebo �<>� ale vsetky znaky mimo nasich nestastnym
> diaktritickych znakov si vie spravne vyhodnotit. Ani UPPER to nerob�
spr�vne
> napr. Upper(Ko�ice)=KO�ICE alebo
> Upper(�esk� Bud�jovice)=�ESK� BUD�JOVICE.
>
> Pritom mam nastavene Win1250 na varchar fieldoch.
>
> Pripada mi to ako by IB 6 nemal rovnostnu tabulku na vyhodnocovanie
znakovej
> sady Win1250. Proste s ASCII znakmi mimo 65-90 a 97-122 nic nerobi
!!!!!!!!!
>
> Co sa da v tomto spravit.
>
> Dakujem.
>
> R.
>
>
>
>
Asynchronous socket error 10061
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 16.5.2000 08:44:09
V obsluze udalosti OnError musis vynulovat promenou ErrorCode, potom se ti
nebude vyvolavat vyjimka.
Progr-Amather -Kchodl-(r) 1989-2000
> Dobry den
> Potreboval bych poradit jak osetrit hlasku o chybe "Asynchronous socket
error 10061". Tuto mi to vyhazuje, kdyz pripojuji ClintSocket k servrove
aplikaci a ta neni funkcni. Ale ja to pripojeni potrebuji opakovane zkouset.
Pomozte prosim.
>
> Dik Radek Tesar
cestina na mssql7
[*] Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz> - 16.5.2000 08:47:02
neni problem jen s nastavenim fontu a locale?
<Masa>Nastavenie znakovej tabulky v IB 6
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 16.5.2000 08:56:38
>
> ak zad�m "where mesto containing 'ko�ice'" je to OK lebo ko�ice si preloz�
> ako Ko�ice=ko�ice ale keby som zadal KO�ICE tak uz by vysledok nebol
> zahrnut� do selectu, lebo �<>� ale vsetky znaky mimo nasich nestastnym
> diaktritickych znakov si vie spravne vyhodnotit. Ani UPPER to nerob�
spr�vne
> napr. Upper(Ko�ice)=KO�ICE alebo
> Upper(�esk� Bud�jovice)=�ESK� BUD�JOVICE.
>
> Pritom mam nastavene Win1250 na varchar fieldoch.
>
> Pripada mi to ako by IB 6 nemal rovnostnu tabulku na vyhodnocovanie
znakovej
> sady Win1250. Proste s ASCII znakmi mimo 65-90 a 97-122 nic nerobi
!!!!!!!!!
>
Zkus nastavit u daneho fieldu (varcharu) jeste COLLATE=PXW_CSY (nebo tak
neco)...
Petr Fischer
E-Mail: fifa(zv)praguesoft(tec)cz, ICQ#: 24154715
ClientSocket
[*] neuman.aritex(zv)email(tec)cz - 16.5.2000 09:14:08
Dobry den,
tato chyba se da osetrit v udalosti ClientSocket onError. Z predavanych
parametru ErrorEvent a ErrorCode poznate o jakou chybu se jedna. Vyvolani
hlasky zrusite tim, ze do tela teto udalosti date prikaz
ErrorCode := 0;
Doufam, ze Vam to pomuze,
S pozdravem
Premysl Neuman, software AriteX
--- puvodni text od delphi-l(zv)fwd(tec)cz:
> Dobry den
> Potreboval bych poradit jak osetrit hlasku o chybe "Asynchronous socket
error 10061". Tuto mi to vyhazuje, kdyz pripojuji ClintSocket k servrove
aplikaci a ta neni funkcni. Ale ja to pripojeni potrebuji opakovane zkouset.
Pomozte prosim.
>
> Dik Radek Tesar
> Nastavenie znakovej tabulky v IB 6
[*] azeleny(zv)csas(tec)cz - 16.5.2000 09:19:43
Poznamka k Upper('TEXT').
V verzich IB pred 6 (s tou zatim nemam zkusnost, zda nasledujici problem
pretrvava) paltilo nalsedujici:
Pokud byla databaze s kodovou strankou WIN1250 a tabulek (resp. domen) nebyl
problem s Upper() v selectech...,
v pripade, ze si v storovane procedure udelate promenno, do ni dosadite text
s diakritikou a pak zavolate Upper(), tak se tato fce NEPROVEDE korekte,
resenim je vlastni UDF.
Doufam, ze to pomuze.
> > Pritom mam nastavene Win1250 na varchar fieldoch.
> >
> > Pripada mi to ako by IB 6 nemal rovnostnu tabulku na vyhodnocovanie
> znakovej
> > sady Win1250. Proste s ASCII znakmi mimo 65-90 a 97-122 nic nerobi
>
> Zkus nastavit u daneho fieldu (varcharu) jeste
> COLLATE=PXW_CSY (nebo tak
> neco)...
COLLATE je nepletu-li se pouze pro razeni vysledku selectu.
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.Bezpecnost InterBase
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 16.5.2000 09:42:22
>
> Jak to myslis pokazde jinak.
> Pomoci utilitky, kterou jsem poslal v jinem prispevku se doberu
> u kazdeho hesla stejneho vysledku jako v original databazi a to na kazdem
> PC.
>
OK, prehled jsem se.>
> > Dale (a to jsou jen moje domenky) IB nezna prava k aplikacim, ale
> > jen k uzivatelum, no
>
> To v konferenci jiz nekdo ztrhal s tim ze prejmenovat exe neni az takovy
> problem.
To je o necem uplne jinem ( Jde o to, ze ISC4.gdb je temer standartni databaze, aby se k ni nedalo pristoupit, tak
by to musela byt specialni DB bez moznosti pristupu ze standartni aplikace, coz by sice nebyl technicky problem,
ale musela by se IB rozsirit o SQL prikazi pro praci s uzivateli, nebo alespon rozsirit API funkce).
> Nehlede k tomu, ze hadam jde spise o problem s aplikacemi bezicimi primo na
> serveru a to se
> da ohlidat i jinak.
>
>
> > a spravu uzivatelu implementovaly jako specialni DB. Mozna by se
> > dalo udelat podobnou
> > DB, kde by misto tabulky uzivatelu bylo jen VIEW a to by vracelo
> > pro vsechny ostatni
> > uzivatele, krome prihlaseneho misto hesla jen hvezdicky, nebo tak nejak.
>
>
> No nevim to by asi byla otazka pro nekoho zkuseneho, zda a jak do toho
> zasahnout.
> Prosty pokus odebrat moznost selectu krachnul (viz muj predchozi mail).
>
Napsat View snad dokaze temer kazdy.
Ja jsem si rozsiril isc4.gdb o prava na zmenu hesla, a podobne, stacilo rozsirit
o jeden sloupec a dopnit par trigru a SP.>
> > Jen na okraj odkazuji se na svuj jiny prispevek k problematice
> > prav na IB :((((.
>
> To je take nemile. Jeste jsem to nezkousel.
> S jakymi pravy jsi se tam bez hesla a uzivatele dostal ?.
> Slo to i sitove, nebo jen na stejnem stroji ?
>
> Ludek
Slo to jen lokalne.
Slavek
Tady je skript na altrovani isc4.gdb
/* User privileges for INTERBASE 4.0, 5.0*/
/* Slavomir Skopalik (c) 1999 */
/* This script alter the security database */
/* 1. Add column Usr_Privileges on table usr
2. Add trigger for sensitivity privileges setup
Usr_Privileges defines access level for maintenance security database.
Restriction:
Nobody cannot change:
User_Name
Self Admin only:
UID
GID
Level:
0 - No access
1 - change self password only
2 - change self data First_name,Middle_name,Last_name,Full_name
3 - as 2 + change First_name,Middle_name,Last_name,Full_name of any user
4 - as 3 + insert,delete any users
5 - Admin
6 - SYSDBA - non delatable user
Cross:
Col Self Other
----------------------------------------------------------------
USER_NAME No No
PASSWD Level 1 Level 5
UID Level 5 Level 4
GID Level 5 Level 4
First_Name Level 2 Level 3
MIDDLE_NAME Level 2 Level 3
LAST_NAME Level 2 Level 3
Usr_Privileges No <= + Grant Option
Grants:
Level Privileges note
--------------------------------------------------------------------------
0 none Grant not supported
1 UPDATE Grant not supported
2 UPDATE Grant not supported
3 UPDATE
3+Grant UPDATE WITH GRANT OPTION
4+Grant UPDATE,INSERT,DELETE WITH GRANT OPTION
5+Grant ALL WITH GRANT OPTION
6+Grant ALL WITH GRANT OPTION
*/
/* Linux IB */
/*
connect "serverkgb:/usr/interbase/isc4.gdb" USER "sysdba" PASSWORD "masterkey";
*/
/* Windows IB */
connect "C:\Program Files\InterBase Corp\InterBase\Isc4.gdb" USER "sysdba" PASSWORD "masterkey";
alter table users ADD Usr_Privileges smallint default 0 Not Null;
UPDATE users set Usr_Privileges=128+6 WHERE USER_NAME='SYSDBA';
Create exception EInsuficiendPrivileges "Insuficient Privilegies for this operation";
Create exception ESelfDelete "Cannot DELETE YourSelf";
set term ^;
CREATE PROCEDURE CHECKIT (s1 VARCHAR(250),s2 VARCHAR(250))AS
BEGIN
IF(s1=s2)THEN exit;
IF(s1 is null and s2 is null)THEN exit;
EXCEPTION EInsuficiendPrivileges;
END^
CREATE TRIGGER UsersUpdate FOR USERS BEFORE UPDATE POSITION 0 AS
DECLARE VARIABLE o smallint; /* Grant Option */
DECLARE VARIABLE p smallint; /* User Privileges */
DECLARE VARIABLE gp smallint; /* Grantor privileges */
BEGIN
EXECUTE PROCEDURE CHECKIT(new.USER_NAME,old.USER_NAME); /* Nobody cannot change User_Name */
SELECT Usr_Privileges FROM users WHERE USER_NAME=USER INTO :gp;
o=0; p=old.Usr_Privileges;
IF (p>128) THEN p=p-128;
IF (gp>128) THEN BEGIN gp=gp-128; o=1;END /*Extract Grant Option*/
IF (new.USER_NAME=USER) THEN BEGIN /*Self modify*/
IF (p<1) THEN EXCEPTION EInsuficiendPrivileges;
EXECUTE PROCEDURE CHECKIT(new.Usr_Privileges,old.Usr_Privileges); /* cannot change self privileges by yourself */
IF (p<2) THEN BEGIN
EXECUTE PROCEDURE CHECKIT(new.First_Name,old.First_Name);
EXECUTE PROCEDURE CHECKIT(new.MIDDLE_NAME,old.MIDDLE_NAME);
EXECUTE PROCEDURE CHECKIT(new.LAST_NAME,old.LAST_NAME);
END
IF (p<5) THEN BEGIN
EXECUTE PROCEDURE CHECKIT(new.UID,old.UID);
EXECUTE PROCEDURE CHECKIT(new.GID,old.GID);
END
END
IF(new.USER_NAME<>USER)THEN BEGIN /* Modify any user */
IF (gp<3)THEN EXCEPTION EInsuficiendPrivileges; /* Low level for modify */
IF (p>gp) THEN EXCEPTION EInsuficiendPrivileges; /*cannot modify user with upper privilege level */
IF (o=0) THEN EXECUTE PROCEDURE CHECKIT(new.Usr_Privileges,old.Usr_Privileges); /*without Grant optins, cannot assign rigts */
IF (gp<new.Usr_Privileges) THEN EXCEPTION EInsuficiendPrivileges;
IF (gp<4)THEN BEGIN
EXECUTE PROCEDURE CHECKIT(new.PASSWD,old.PASSWD);
EXECUTE PROCEDURE CHECKIT(new.UID,old.UID);
EXECUTE PROCEDURE CHECKIT(new.GID,old.GID);
END
END
END ^
CREATE TRIGGER UsersInsert FOR USERS BEFORE INSERT POSITION 0 AS
DECLARE VARIABLE o smallint; /* Grant Option */
DECLARE VARIABLE p smallint; /* User Privileges */
DECLARE VARIABLE gp smallint; /* Grantor privileges */
BEGIN
SELECT Usr_Privileges FROM users WHERE USER_NAME=USER INTO :gp;
o=0; p=new.Usr_Privileges;
IF (p>128) THEN p=p-128;
IF (gp>128) THEN BEGIN gp=gp-128; o=1;END /*Extract Grant Option*/
IF (gp<4 OR o=0)THEN EXCEPTION EInsuficiendPrivileges; /* Lower level for insert new user */
IF (gp<p) THEN EXCEPTION EInsuficiendPrivileges;
IF (p>5) THEN EXCEPTION EInsuficiendPrivileges;
END ^
CREATE TRIGGER UsersDelete FOR USERS BEFORE DELETE POSITION 0 AS
DECLARE VARIABLE p smallint; /* User Privileges */
DECLARE VARIABLE gp smallint; /* Grantor privileges */
BEGIN
IF (old.USER_NAME=USER) THEN EXCEPTION ESelfDelete;
SELECT Usr_Privileges FROM users WHERE USER_NAME=USER INTO :gp;
p=old.Usr_Privileges;
IF (p>128) THEN p=p-128;
IF (gp>128) THEN gp=gp-128; /*Extract Grant Option*/
IF (gp<p) THEN EXCEPTION EInsuficiendPrivileges;
END ^
set term ;^
GRANT EXECUTE ON PROCEDURE CHECKIT TO PUBLIC;
Nastavenie znakovej tabulky v IB 6
[*] MJ soft <mjsoft(zv)rychnov(tec)cz> - 16.5.2000 10:12:38
Ahoj
ja jsem si k tomuto ucelu vyrobil UDF. V ni mam funkci ANSIUPPERCASE. Vse
funguje dobre az na jeden hacek.
Pri pouziti teto funkce, ale i CONTAINING nebo UPPER se nepouziva index, coz
vyrazne zpomaluje dotazy.
S pozdravem
Jindra
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 15, 2000 11:20 PM
Subject: Nastavenie znakovej tabulky v IB 6
> Zdravim.
>
> Mam problemik s filtrovanim zaznamov napr. cez Select ... where ...
> Containing ... lebo
>
> ak zad�m "where mesto containing 'ko�ice'" je to OK lebo ko�ice si preloz�
> ako Ko�ice=ko�ice ale keby som zadal KO�ICE tak uz by vysledok nebol
> zahrnut� do selectu, lebo �<>� ale vsetky znaky mimo nasich nestastnym
> diaktritickych znakov si vie spravne vyhodnotit. Ani UPPER to nerob�
spr�vne
> napr. Upper(Ko�ice)=KO�ICE alebo
> Upper(�esk� Bud�jovice)=�ESK� BUD�JOVICE.
>
> Pritom mam nastavene Win1250 na varchar fieldoch.
>
> Pripada mi to ako by IB 6 nemal rovnostnu tabulku na vyhodnocovanie
znakovej
> sady Win1250. Proste s ASCII znakmi mimo 65-90 a 97-122 nic nerobi
!!!!!!!!!
>
> Co sa da v tomto spravit.
>
> Dakujem.
>
> R.
>
>Jak poznat MDAC?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.5.2000 10:21:19
I mne by to, prosim, zajimalo...
...dekuji.
Dobra.
> ----------
> Od: Erik Salaj[SMTP:winsoft(zv)napri.sk]
>
> > Odkud vezmu unit MDACVer?
>
> Je potrebne importovat typovu kniznicu WINNT\System32\odbcconf.dll,
> t.j. "Microsoft Data Access Components Installed Version". Mozem
> Ti to pripadne poslat.
>
> OT:TEST
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.5.2000 10:40:38
Tento prispevek vubec nepatril do teto
konference a nevim, kde se tu vzal :-(
Toto reseni je nicmene nevyhovujici, protoze
posta se smaze az kdyz prijde, to znamena stahnout
ji (vcetne obrazku), zaplatit telecomu a vymazat...
Dobra.
> ----------
> Od: Dalibor Toman[SMTP:dtoman(zv)fortech(tec)cz]
>
> >BTW: Stejne bych rekl, ze by listserver
> >mel postu posilat vsem ostatnim a jen
> >ne odesilateli, vzdyt preci vim, co jsem
> >psal...
> >
>
> nastav si filtr, ktery bude mazat vsechny zpravy, ktere maji ve from Tvoji
> adresu :-)
>
> Mail
[*] Tibor Galik <tgalik(zv)vsz.sk> - 16.5.2000 10:41:25
Uz sa tu niekolkokrat hovorilo o %subj.
Boli odporucane komponenty od PIETTEHO. Pozrel som si aj unit od Synapse.
Pre SMTP ma byt definovany host (to je jasne).
Ako vsak zistit, aky host je nastaveny na tej ktorej masine, a pouzit ho v horeuvedenych komponentach do property pre host?
dakujem
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
cestina na mssql7
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 16.5.2000 11:06:16
Od autora problemu : cestina na mssql7
zrejme je problem v cele instalaci mssql7,
zkousel jsem prenastavit "unicode locale id" na 1029
nepomohlo to, pak jsem zkusil toto
use mydb
exec sp_configure 'unicode sort id', 84
reconfigure with override
84 je czech dictionary with case-insensitive
POZOR , nedelejte to - jinak prijdete o vsechna data
ja jsem to udelal, a uz jsem nerozjel mssql, musel jsem
pouzit rebulidm.exe coz zrusi vasi master.db, takze vsechna
data jsou v ...
pri pouziti rebuildm jsem nastavil vse na cestinu, kdyz zadam
data v enterprise manageru, tak je vse ok, ale isqlw mi stejne
data vypise zmrvene, font mam nastaven na courier-stredoevropsky
zkusil jsem vypnout v isqlw "perform translation of character data",
ale nepomohlo to, nicmene ted zkousim jak se bude chovat
moje aplikace v delphi, kazdopadne bych chtel varovat pred
vyse uvedenou procedurou
zatim zdar ...
Michal
Socket error
[*] Martin Dietl <dietl(zv)4USE(tec)cz> - 16.5.2000 11:08:07
Ahoj,
ja s necim takovym delam, teda ne moc dlouho, ale pouzivam toto (od
puvodnich autoru):
Na Timer je navesena procedura prubezne testujici spojeni:
procedure TMainFrm.SocketCheckTimer(Sender: TObject);
begin
// Check if Socket is still active; done every 5000 msec }
if ClientSocket.Active = True then exit;
// Restart Socket connection
SocketCheck.Enabled := False;
ConnectionServerOk:= false;
ClientSocket.Free;
ClientSocket := TClientSocket.Create(Self);
ClientSocket.Parent := Self;
ClientSocket.Active := True;
// ... other socket settings
SocketCheck.Enabled := True;
end;
A na OnError socketu :
procedure TMainFrm.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode:
Integer);
begin
if ErrorEvent = eeConnect then begin
ErrorCode := 0; // Place here the onErrorevent logic;
// errorcode=0 prevents error popups from Delphi
end;
end;
Nejak si nejsem jisty, jestli je nutne ten ClientSocket vytvaret vzdy znovu,
ale
toto funguje a je provereno praxi.
Martin D.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
r.tesar(zv)atlas(tec)cz
Sent: Tuesday, May 16, 2000 7:12 AM
To: delphi-l(zv)fwd(tec)cz
Subject:
Dobry den
Potreboval bych poradit jak osetrit hlasku o chybe "Asynchronous socket
error 10061". Tuto mi to vyhazuje, kdyz pripojuji ClintSocket k servrove
aplikaci a ta neni funkcni. Ale ja to pripojeni potrebuji opakovane zkouset.
Pomozte prosim.
Dik Radek Tesar
OT:TEST
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 16.5.2000 11:11:03
Je to reseni, ale musi se to provest jeste na mailserveru.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 16. kv�tna 2000 10:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: OT:TEST
>
> Tento prispevek vubec nepatril do teto
> konference a nevim, kde se tu vzal :-(
>
> Toto reseni je nicmene nevyhovujici, protoze
> posta se smaze az kdyz prijde, to znamena stahnout
> ji (vcetne obrazku), zaplatit telecomu a vymazat...
>
>
> Dobra.
>
> > ----------
> > Od: Dalibor Toman[SMTP:dtoman(zv)fortech(tec)cz]
> >
> > >BTW: Stejne bych rekl, ze by listserver
> > >mel postu posilat vsem ostatnim a jen
> > >ne odesilateli, vzdyt preci vim, co jsem
> > >psal...
> > >
> >
> > nastav si filtr, ktery bude mazat vsechny zpravy, ktere maji ve from Tvoji
> > adresu :-)
> >
> > None
[*] Juraj Skotnicky <juraj.skotnicky(zv)jdsoftware.sk> - 16.5.2000 11:30:47
Ahoj
Jedna z moznosti nastavit vlastnost ClientType na ctBlocking, kedy sa
vlastne jedna o synchronnu komunikaciu, takze pri pokuse o pripojenie
ClientSocketu na nefunkcny server mozes vynimku osetrit v Try - Except
bloku.
Druha moznost je nastavit ClientType na ctNonBlocking (asynchronna
komunikacia) a chybu osetrovat v udalosti OnError.
Juraj
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
r.tesar(zv)atlas(tec)cz
Sent: Tuesday, May 16, 2000 7:12 AM
To: delphi-l(zv)fwd(tec)cz
Subject:
Dobry den
Potreboval bych poradit jak osetrit hlasku o chybe "Asynchronous socket
error 10061". Tuto mi to vyhazuje, kdyz pripojuji ClintSocket k servrove
aplikaci a ta neni funkcni. Ale ja to pripojeni potrebuji opakovane zkouset.
Pomozte prosim.
Dik Radek Tesar
Mail
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.5.2000 11:40:33
> Uz sa tu niekolkokrat hovorilo o %subj.
> Boli odporucane komponenty od PIETTEHO. Pozrel som si aj unit od
> Synapse. Pre SMTP ma byt definovany host (to je jasne). Ako vsak
> zistit, aky host je nastaveny na tej ktorej masine, a pouzit ho v
> horeuvedenych komponentach do property pre host?
Neexistuje neco jako 'nastaveni mailhosta' pro konketni pocitac.
Nic takoveho obecneho neni. To si kazdy postvni program proste
nastavuje nejak sam...
A protoze nikdy nevis, jaky zrovna postovni program na tom
pocitaci je pouzivan, nevis takle KDE tu informaci hledat. Navic i v
jednom postovnim programu muzes pouzivat VIC RUZNYCH
mailhostu.
Krom toho i muzes pouzivat vic ruzne nakonfigurovanych
postovnich progamu.
Z toho vyplyva pro vas asi neradostne zjisteni, ze vas problem je v
obecne rovine principialne NERESITELNY.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
OT:TEST
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 16.5.2000 11:47:08
Rozelani vsem krome odesilajicim je zcela nevyhovujici pro KonfView. Pak
byste totiz nemeli v databazi zadne me prispevky, a to, jak sami uznate, by
byla velka skoda. :-))
Stejne tak je to dobra kontrola toho, ze do do konference prislo. Byl bych
tedy zasadne proti.
Slavek
> Je to reseni, ale musi se to provest jeste na mailserveru.
> ML Software - Martin Lasevi
> > Toto reseni je nicmene nevyhovujici, protoze
> > posta se smaze az kdyz prijde, to znamena stahnout
> > ji (vcetne obrazku), zaplatit telecomu a vymazat...
> >
> >
> > Dobra.
> > > nastav si filtr, ktery bude mazat vsechny zpravy, ktere maji ve from Tvoji
> > > adresu :-)socket error
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.5.2000 11:47:51
Dalsi moznost je pouzivat jine komponenty.. treba Synapsi... ;-)))))
Ty totiz presce zcela schvalne z techto duvodu zadne exceptiony
nepouzivaji a ospesnost ci neuspesnost operace s prekontrolujes v
prislusne stavove property.
> Ahoj
>
> Jedna z moznosti nastavit vlastnost ClientType na ctBlocking, kedy sa
> vlastne jedna o synchronnu komunikaciu, takze pri pokuse o pripojenie
> ClientSocketu na nefunkcny server mozes vynimku osetrit v Try - Except
> bloku. Druha moznost je nastavit ClientType na ctNonBlocking
> (asynchronna komunikacia) a chybu osetrovat v udalosti OnError.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
Mail
[*] Filip Jirs�k <Filip.Jirsak(zv)centrum(tec)cz> - 16.5.2000 11:50:40
Moc mi nen� jasn� ot�zka. Nev�m, co presne znamen� host, ale tipoval bych,
ze bud je to lok�ln� poc�tac (localhost) a nebo vzd�len� server, pres kter�
se posta odes�l�. Tenhle server se muze menit a nen� to souc�st nastaven�
poc�tace ale konkr�tn�ho programu (napr. Ouutlook). A i tech muze b�t v�ce -
pokud uzivatel pouz�v� v�ce schr�nek. tenhle �daj by se mozn� dal vyuz�t a
asi je nekde v registry - ale je to jen vod�tko, jak si neco ulehcit, nelze
na to spol�hat.
Filip Jirs�k
----- Original Message -----
From: "Tibor Galik" <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 16, 2000 10:41 AM
Subject: Mail
> Uz sa tu niekolkokrat hovorilo o %subj.
> Boli odporucane komponenty od PIETTEHO. Pozrel som si aj unit od Synapse.
> Pre SMTP ma byt definovany host (to je jasne).
> Ako vsak zistit, aky host je nastaveny na tej ktorej masine, a pouzit ho v
horeuvedenych komponentach do property pre host?
>
> dakujem
>
> tg
>
>
> S pozdravom / Regards
>
> Tibor Galik
> tgalik(zv)vsz.sk
>
>
>Hookovani
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.5.2000 12:10:23
On 15 May 2000, at 19:24, Jirka Virt wrote:
> je vedro a vubec mi to nemysli.Potreboval bych pro svoji aplikaci
> odchytavat handle oken jinych aplikaci.Predstavoval jsem si to tak, ze
> klepnu mysi na nejake okno a prectu jeho handle.
> Nevim jestli je to spravny smer , ale zkousel jsem to pres
> hookovani.Jenze
A nestacil by v OnMouseDown tento kod?
try
Hndl:=(Sender as TWinControl).Handle;
except
// nema handle
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
OT:TEST
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.5.2000 12:32:13
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 16. kv�tna 2000 10:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: OT:TEST
>
>
> Tento prispevek vubec nepatril do teto
> konference a nevim, kde se tu vzal :-(
>
> Toto reseni je nicmene nevyhovujici, protoze
> posta se smaze az kdyz prijde, to znamena stahnout
> ji (vcetne obrazku), zaplatit telecomu a vymazat...
>
Do konference se obrazky posilat nesmi.
Admine, posli mu pravidla :-))
Jura
OT:TEST
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.5.2000 13:01:35
Znovu opakuji, ze se to netykalo TETO KONFERENCE,
ale jine, kde se obrazky posilat smi.
D.
> ----------
> Od: Polak Jiri[SMTP:Jiri.Polak(zv)tconsult(tec)cz]
>
>
> > -----P> �vodn� zpr�va-----
> > Od: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> >
> > Tento prispevek vubec nepatril do teto
> > konference a nevim, kde se tu vzal :-(
> >
> > Toto reseni je nicmene nevyhovujici, protoze
> > posta se smaze az kdyz prijde, to znamena stahnout
> > ji (vcetne obrazku), zaplatit telecomu a vymazat...
> >
>
> Do konference se obrazky posilat nesmi.
> Admine, posli mu pravidla :-))
> Mail
[*] Tibor Galik <tgalik(zv)vsz.sk> - 16.5.2000 13:43:16
>Moc mi nen� jasn� ot�zka. Nev�m, co presne znamen� host, ale tipoval bych,
>ze bud je to lok�ln� poc�tac (localhost) a nebo vzd�len� server, pres kter�
>se posta odes�l�.
Myslel som na server cez ktory sa odosiela mail
>Tenhle server se muze menit a nen� to souc�st nastaven�
>poc�tace ale konkr�tn�ho programu (napr. Ouutlook). A i tech muze b�t v�ce -
>pokud uzivatel pouz�v� v�ce schr�nek.
To je jasne. Ale aj tak musi existovat (aspon si to myslim) nejaky implicitny pgm na odosielanie. Ked kliknem na nejaku mailovu adresu tak sa mi hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows messaging system (tu mam nastavene ze GroupWise je implicitny)
>tenhle �daj by se mozn� dal vyuz�t a asi je nekde v registry - ale je to jen vod�tko, jak si neco ulehcit, nelze
>na to spol�hat.
Presiel som registre aj ini subory. Nenasiel som nic ohladne mojho mail servera
>Filip Jirs�k
>
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
Mail
[*] Tibor Galik <tgalik(zv)vsz.sk> - 16.5.2000 13:56:05
>
>Neexistuje neco jako 'nastaveni mailhosta' pro konketni pocitac.
>Nic takoveho obecneho neni. To si kazdy postvni program proste
>nastavuje nejak sam...
>
>A protoze nikdy nevis, jaky zrovna postovni program na tom
>pocitaci je pouzivan, nevis takle KDE tu informaci hledat. Navic i v
>jednom postovnim programu muzes pouzivat VIC RUZNYCH
>mailhostu.
>
>Krom toho i muzes pouzivat vic ruzne nakonfigurovanych
>postovnich progamu.
>
>Z toho vyplyva pro vas asi neradostne zjisteni, ze vas problem je v
>obecne rovine principialne NERESITELNY.
Diky. Aj zla sprava je sprava.
Ale nevzdavam sa:
Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na odosielanie pre to ktore PC. Ked kliknem na nejaku mailovu adresu tak sa mi hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows messaging system (tu mam nastavene ze GroupWise je implicitny). Cize nechcem vediet co na PC je ale chcem nieco odoslat z Delphi a mailovy pgm nech prijme celu mailovu hlavicku, text a prilozeny subor a nech to posle prec.
Da sa nieco take ?
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
MDAC 2.5
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 16.5.2000 14:18:21
DDV,
nekdy pred mesicem se tu debatovalo na tema "Chyba v MDAC 2.5"
a to, ze po instalaci se neodstranovala nejakou polozku v regstru
a ta se spoustela stale dokola, vite prosim nekdo jak je na tom
MDAC 2.5 RTM (2.50.4403.12) (a co to to RTM vlastne znamena ?)
D.tmenuitem a onclick
[*] Dachovsky, Jan <Jan.Dachovsky(zv)kpnqwest(tec)com> - 16.5.2000 14:41:33
muze mi prosim nekdo poradit jak zjistit onclick procedurou na
TMenuItem, jenz se dynamicky generuje, caption tohoto itemu ?
diky moc Honza
Kde vzit MSDE?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 16.5.2000 14:42:12
Ahoj,
mam aplikaci, se kterou potrebuji sirit i MSDE. Licencne nemam
problem, ale...
Mam tady nejaky starsi instalacni program na MSDE (MSDEx86)
(tim starsi minim to, ze se mi tu vali uz odlonska). Kdyz ho
spustim, neco se z nej vybali, ale casem vznikne chyba, ze nekde
v TEMP adresari nebyl nalezen soubor setup.iss.
Jedine, co mi nezkolabovalo, byl unattended setup, pri kterem
ale zase neni na obrazovce videt vubec nic. Doufal jsem, ze u MS
uz treba odstranili tu chybu a MSDE uz je instalovatelne i za
asistence uzivatele, ale nedokazu ho z MS webu stahnout. Pote,
co zadam product ID sveho visual studia, vznikne chyba Stranku
nelze zobrazit.
Chci se proto zeptat, jake mate zkusenosti s instalovanim MSDE a
jak ho pripadne ziskat, kdyz u MS se mi nedari. (Verze s Office
2000) vyzaduje Access 9 nebo jeste jakesi cosi, zkratka neni
pouzitelna).
Dik,
David
Mail
[*] Filip Jirs�k <Filip.Jirsak(zv)centrum(tec)cz> - 16.5.2000 14:44:48
To je nastavene v registrech, (ted to nejak nemuzu najit ;-), a ten
konkretni program to ma nekde nastavene. Asi se da tezko spolehat na to, ze
uzivatel ma nejaky konkretni program. Pokud prece jen chces zjistovat, ktery
program to je, tak bych si tipnul, ze to je nejaka ActiveX komponenta, ktera
ma tokove to kresne cislo a na tohle cislo je nekde v registrech odkaz. Zkus
najit jake cislo ma ten GroupWise a nechat si to vyhledat v registrech.
Ale samotne nastaveni SMTP serveru ve Windows urcite neni (to by se na nej
Outlook neptal a rovnou by ho bral odsud.)
Filip Jirs�k
----- Original Message -----
From: "Tibor Galik" <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 16, 2000 1:43 PM
Subject: Re: Mail
> >Moc mi nen� jasn� ot�zka. Nev�m, co presne znamen� host, ale tipoval
bych,
> >ze bud je to lok�ln� poc�tac (localhost) a nebo vzd�len� server, pres
kter�
> >se posta odes�l�.
> Myslel som na server cez ktory sa odosiela mail
>
> >Tenhle server se muze menit a nen� to souc�st nastaven�
> >poc�tace ale konkr�tn�ho programu (napr. Ouutlook). A i tech muze b�t
v�ce -
> >pokud uzivatel pouz�v� v�ce schr�nek.
> To je jasne. Ale aj tak musi existovat (aspon si to myslim) nejaky
implicitny pgm na odosielanie. Ked kliknem na nejaku mailovu adresu tak sa
mi hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows messaging
system (tu mam nastavene ze GroupWise je implicitny)
>
> >tenhle �daj by se mozn� dal vyuz�t a asi je nekde v registry - ale je to
jen vod�tko, jak si neco ulehcit, nelze
> >na to spol�hat.
> Presiel som registre aj ini subory. Nenasiel som nic ohladne mojho mail
servera
>
> >Filip Jirs�k
> >
>
> S pozdravom / Regards
>
> Tibor Galik
> tgalik(zv)vsz.sk
>
>
>Nastavenie velkosti desktopu II
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 16.5.2000 14:58:09
Caute Delfinci!
Takze dalsim badanim som prisiel na to ze by malo stacit
keby som odstranil priznak fsStayOnTop zo zobrazovaneho formularu.
Ked tento priznak nastavim na Task bare tak sa aplikacie tiez posunu o
pozadovanu cast. Teda potreboval by som nastavit formularu cudzej aplikacie
ze nie je "Stay on Top". Cez SetWindowLong to nejde, lebo nemam pravo
menit nastavenie cudzej aplikacie.
V archive som videl ze tento problem riesilo uz viac ludi.
To nikto na nic neprisiel ? Vdaka za kazde nakopnutie.
/LH
Mail
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.5.2000 15:28:02
> Diky. Aj zla sprava je sprava.
> Ale nevzdavam sa:
> Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na
> odosielanie pre to ktore PC.
No to prave nemusi... vyber defaultniho postovniho programu je vec
internet exploreru. treba v netscapu zadny takovy vyber neexistuje,
soupne te to do jejich messangeru. (teda jsou cesty, jak si tam
narvat svuj program, treba PegasusMail).
Tak se vcelku stava, ze ten pocitac ZADNY ostovniprogram ani
nevidi, ba dokonce nemusi mit ani nic, v cem bys mel klikat na
odkaz. :-)))
> Ked kliknem na nejaku mailovu adresu tak
> sa mi hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows
> messaging system (tu mam nastavene ze GroupWis e je implicitny). Cize
> nechcem vediet co na PC je ale chcem nieco odoslat z Delphi a mailovy
> pgm nech prijme celu mailovu hlavicku, text a prilozeny subor a nech
> to posle prec. Da sa nieco take ?
To je uz otazka toho postovniho programu, jestli neco takoveho
umi. Je nekolik cest:
-bud ten nejaky posovni program umi takovy pozadavek prijmout
pomoci parametru z prikazove radky.
-zkusit vyuzit sluzeb MAPI..nezkousel sjem, ale na tohle je to
podle mne delane...
-zkusit OLE ci DDE na ten postovni program...
-napises si to sam pres SMTP a smiris se s tim, ze mu tam proste
soupnes nejake INI s adresou postovniho serveru.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
Zrusit radek v udalosti OnCalcField
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 16.5.2000 15:45:26
Zdravim
Jak lze v metode OnCalcFields udelat to, aby se radek nezobrazil
v gridu ? Zkratka, kdyz je jedna z vypocitavanych polozek = 0 tak
dany radek nechci vubec zobrazit ve vysledku.
Dik
Skoleni
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 16.5.2000 16:27:34
ahoj,
zkus www.haes(tec)cz , 12.6. se tam bude konat
3 denni kurz "Aktivni aplikace pro internet a intranet"
(sam tam jedu)
M.Jirman
From: Honza Fiala <kvasar(zv)kvasar(tec)cz>> nebude se nekdy v dohledne dobe konat skoleni v delphi se zamerenim na
web?
konverze z Paradox7 do Paradox5
[*] Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz> - 16.5.2000 16:35:59
Jak mam docilit %subj%?
Predem dik
Mirek Dolecek
Ulozeni databaze
[*] delp(zv)post(tec)cz - 16.5.2000 17:05:35
Preji hezky den,
resim v jednom programu mensi problem. Potrebuji
nejak udelat, aby se mi databaze (konkretne Paradox)
napevno ulozila, coz se normalne deje jen pri ukonceni
programu. Tzn. aby pri kousnuti pocitace nebo vypadku proudu zustala tato data ulozena.
Pokud mi s timto nekdo pomuze, budu velmi stasten.
S pozdravem
Chcete hledat nebo chcete najit?
*** http://NAJDI.TO
Prohlizeni textoveho souboru
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 16.5.2000 17:52:57
Potrebuji v Delphi prohlizet textovy soubor. Tento textovy soubor je stale
otevren pro zapis - jedna se o log soubor SQL serveru. Soubor sam o sobe ma
dnes cca 23MB a stale roste. Z duvodu specifiky otevreni resim nacitani pres
Stream. Ze souboru se mi vsak nacte "jen" cca 290 000 radku a pak vse skonci
hlaskou "Failed to LoadStream".
Procedura:
----------
var
Stream: TStream;
begin
If OpenDialog.Execute then
begin
Stream := TFileStream.Create(OpenDialog.FileName,fmOpenRead or
fmShareDenyNone);
try
Editor.Lines.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
end;
Editor je typu TRichEdit.
Diky za kazdou podnetnou radu.
Petr Klinger.Mail
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 16.5.2000 18:14:00
Ahoj, pokud to ma bezet na W2000/NT, tak by se snad
dalo pouzit CDONTS, objekt NewMail - viz dokumentace,
napr. u personal web server, nebo IIS.
Tyto objekty jsou pouzitelne i napr. ze skriptu (VBS)
### Gebauer Lukas napsal dne 16 May 00, v 15:28 :
Od: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>
Organizace: Municipal Library of Prague
Komu: delphi-l(zv)fwd(tec)cz
Datum odesl�n�: Tue, 16 May 2000 15:28:02 +0200
V�c: Re: Mail
Po�tovn� prog.: Pegasus Mail for Win32 (v3.12c)
Odpov�� kam: delphi-l(zv)fwd(tec)cz
> > Diky. Aj zla sprava je sprava.
> > Ale nevzdavam sa:
> > Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na
> > odosielanie pre to ktore PC.
>
> No to prave nemusi... vyber defaultniho postovniho programu je vec
> internet exploreru. treba v netscapu zadny takovy vyber neexistuje,
> soupne te to do jejich messangeru. (teda jsou cesty, jak si tam
> narvat svuj program, treba PegasusMail).
>
> Tak se vcelku stava, ze ten pocitac ZADNY ostovniprogram ani
> nevidi, ba dokonce nemusi mit ani nic, v cem bys mel klikat na
> odkaz. :-)))
>
> > Ked kliknem na nejaku mailovu adresu tak
> > sa mi hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows
> > messaging system (tu mam nastavene ze GroupWis e je implicitny). Cize
> > nechcem vediet co na PC je ale chcem nieco odoslat z Delphi a mailovy
> > pgm nech prijme celu mailovu hlavicku, text a prilozeny subor a nech to
> > posle prec. Da sa nieco take ?
>
> To je uz otazka toho postovniho programu, jestli neco takoveho
> umi. Je nekolik cest:
>
> -bud ten nejaky posovni program umi takovy pozadavek prijmout
> pomoci parametru z prikazove radky.
>
> -zkusit vyuzit sluzeb MAPI..nezkousel sjem, ale na tohle je to
> podle mne delane...
>
> -zkusit OLE ci DDE na ten postovni program...
>
> -napises si to sam pres SMTP a smiris se s tim, ze mu tam proste
> soupnes nejake INI s adresou postovniho serveru.
>
> Louci se Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP
> Library
>
-----------------------------------------------
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
cestina na mssql7
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.5.2000 18:28:53
On 16 May 2000, at 11:06, Michal Jiskra wrote:
> zrejme je problem v cele instalaci mssql7,
> zkousel jsem prenastavit "unicode locale id" na 1029
> nepomohlo to, pak jsem zkusil toto
> use mydb
> exec sp_configure 'unicode sort id', 84
> reconfigure with override
>
> 84 je czech dictionary with case-insensitive
>
> POZOR , nedelejte to - jinak prijdete o vsechna data
> ja jsem to udelal, a uz jsem nerozjel mssql, musel jsem
> pouzit rebulidm.exe coz zrusi vasi master.db, takze vsechna
> data jsou v ...
Pred takovymito akcemi je vhodne poslat vsechna data nekam
mimo databazi, a po zmene (nebo reinstalaci) je pak lze opet
natahnout. Je to ovsem trosku pracne. :-)
Ted se mi rozhodne nechce zkoumat, jak problematicke by to bylo
pres BDE, ale ja si na to udelal dve jednoduche procedury, prvni
vycte (podle mnou dodaneho seznamu tabulek) data a posila je
jako text (s vyjimkou binary a blob poli) do nejakeho souboru, k
nim jeste priradim priznak, jakeho jsou data typu. Neukladam
samozrejme readonly sloupce, jako je autoinkrement. Druha
procedura cte data, a posila je pomoci INSERT do databaze.
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
Corel cancels acquisition of Inprise/Borland
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.5.2000 19:26:21
Ahoj,
http://biz.yahoo.com/rf/000516/n16505577.html
http://www.corel.ca/news/2000/may/may_16_2000.htm
Petr Vones, amatersky programator
Kde vzit MSDE?
[*] Surfman <surfman(zv)volny(tec)cz> - 16.5.2000 20:02:49
> Chci se proto zeptat, jake mate zkusenosti s instalovanim MSDE a
> jak ho pripadne ziskat, kdyz u MS se mi nedari. (Verze s Office
> 2000) vyzaduje Access 9 nebo jeste jakesi cosi, zkratka neni
> pouzitelna).
Ahoj,
MSDE je v Officech 2000 spolu s licenci pro sireni pouze ve verzi developer.
Pavel
tmenuitem a onclick
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 16.5.2000 20:20:22
Slo by to zhruba takto:
procedure TMojForm.VytvorPolozku(Text: String);
begin
mi:= TMenuItem.Create(Self);
MojeMenu.Items.Add(mi);
mi.Caption:= Text;
mi.OnClick:= miXXXClick;
end;
procedure TMojForm.pmiXXXClick(Sender: TObject);
begin
if Sender is TMenuItem then
ShowMessage(TMenuItem(Sender).Caption);
end;
> muze mi prosim nekdo poradit jak zjistit onclick procedurou na
> TMenuItem, jenz se dynamicky generuje, caption tohoto itemu ?
>
> diky moc Honza
>
> cestina na mssql7
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 16.5.2000 21:12:39
> Pred takovymito akcemi je vhodne poslat vsechna data nekam
> mimo databazi, a po zmene (nebo reinstalaci) je pak lze opet
> natahnout. Je to ovsem trosku pracne. :-)
>
> Ted se mi rozhodne nechce zkoumat, jak problematicke by to bylo
> pres BDE, ale ja si na to udelal dve jednoduche procedury, prvni
> vycte (podle mnou dodaneho seznamu tabulek) data a posila je
> jako text (s vyjimkou binary a blob poli) do nejakeho souboru, k
> nim jeste priradim priznak, jakeho jsou data typu. Neukladam
> samozrejme readonly sloupce, jako je autoinkrement. Druha
> procedura cte data, a posila je pomoci INSERT do databaze.
Ahoj,
Take jsem si delal kdysi sve utilitky na export a import dat.
Daleko vyhodnejsi je v pripade MS SQL dodavana utilita BCP, ktera mimo jine
exportuje i identity fields.
Pri spravnych parametrech pak pri importu identity fields zachova, coz je
dulezite pokud
se na dana IDcka odkazuji z jinych tabulek.
Toho muzes Zbysku samozrejme dosahnout pomoci set identity_insert on ... set
identity_insert off, ale ocekavam, ze bude jednotlive insertovani v
porovnani s BCP vyrazne pomalejsi.
Utilitu pouzijete pokud potrebujete zmenit character set nebo trideni (=1.
vyexportovat data pres BCP do ASCII files, 2. rebuild master databaze, 3.
import dat opet pres BCP).
Takto lze prevadet i data mezi verzemi MS SQL 6.5 a 7.0/MSDE.
Exportovat/importovat pomoci BCP lze i jednotlive tabulky.
S pozdravem, Lada
Jak poznat MDAC?
[*] Erik Salaj <winsoft(zv)napri.sk> - 16.5.2000 22:14:37
> I mne by to, prosim, zajimalo...
Pripravil som jednoduchy program a dal ho na web (vcitane zdrojakov).
Je to na http://www.cybermagic.co.nz/winsoft
Erik
konverze z Paradox7 do Paradox5
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 16.5.2000 22:42:00
Subject: konverze z Paradox7 do Paradox5
> Jak mam docilit %subj%?
>
Vytvorit novy subor a prekopat do neho udaje.
BTW: Ale preco to potrebujes aku ma vyhodu PDX5 ?
R.tmenuitem a onclick
[*] Dachovsky, Jan <Jan.Dachovsky(zv)kpnqwest(tec)com> - 16.5.2000 22:59:07
diky moc za odpoved presne tohle me pred cca hodkou napadlo
-> -----Original Message-----
-> From: Martin �ajbik (Marcant) [mailto:marcant(zv)sct.sk]
-> Sent: Tuesday, May 16, 2000 8:20 PM
-> To: delphi-l(zv)fwd(tec)cz
-> Subject: Re: tmenuitem a onclick
->
->
-> Slo by to zhruba takto:
->
-> procedure TMojForm.VytvorPolozku(Text: String);
-> begin
-> mi:= TMenuItem.Create(Self);
-> MojeMenu.Items.Add(mi);
-> mi.Caption:= Text;
-> mi.OnClick:= miXXXClick;
-> end;
->
-> procedure TMojForm.pmiXXXClick(Sender: TObject);
-> begin
-> if Sender is TMenuItem then
-> ShowMessage(TMenuItem(Sender).Caption);
-> end;
->
->
->
-> > muze mi prosim nekdo poradit jak zjistit onclick procedurou na
-> > TMenuItem, jenz se dynamicky generuje, caption tohoto itemu ?
-> >
-> > diky moc Honza
-> >
-> >
-> Seznam MDI Child oken
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.5.2000 23:16:40
From: Marek Hradil <marekhr(zv)benefitcz(tec)cz>
> Na kterou udalost se spravne "napichnout"
> abych si mohl udrzovat vlastni seznam MDI Child oken
> tak jak to dela VCL pomoci property formu WindowMenu.
Ahoj,
Seznam ziskas pomoci vlastnosti TCustomForm.MDIChildren a TCustomForm.MDIChildCount
Petr Vones, amatersky programator
Hookovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.5.2000 23:17:08
From: Jirka Virt <virt(zv)volny(tec)cz>
> Ahoj,
> je vedro a vubec mi to nemysli.Potreboval bych pro svoji aplikaci
> odchytavat handle oken jinych aplikaci.Predstavoval jsem si to tak, ze
> klepnu mysi na nejake okno a prectu jeho handle.
> Nevim jestli je to spravny smer , ale zkousel jsem to pres hookovani.Jenze
Ahoj,
Je to spravny smer.
> ani po precteni Win32 nejsem schopen sestavit chodici hook.Vyhledal jsem si
Problem je, ze toto lze relativne uspesne delat az v Delphi 5. Pozadavky na
hook funkce v Delphi jsou relativne caste. Snazim se to udelat jako komponentu
(do JEDI-VCL), ale mejte jeste chvili strpeni :-)
Petr Vones, amatersky programator
konverze z Paradox7 do Paradox5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.5.2000 23:17:57
From: Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz>
> Jak mam docilit %subj%?
Ahoj,
Nejdrive musis mit jistotu, ze v databazi nepouzivas zadne vlastnosti, ktere
si vynucuji format Paradox 7 (blize to bude popsane nekde v helpu). Muzes k
tomu pouzit treba Database Dekstop, vytvoris novou tabulku a do ni pak budes
importovat data z te puvodni a ono se to bude snazit pouzit co nejnizsi verzi
Paradox formatu. Zalezi vsak take na nastaveni BDE - Paradox driver - LEVEL
parametru, ktery urcuje nejnizsi verzi jaka bude pouzita, v praxi je dobre
mit nastaveno 7 (coz pro prevod budes muset asi docasne zmenit).
Lze to udelat i programove, viz priklad (Example 8):
http://www.borland.com/devsupport/bde/bdeapiex/dbidorestructure.html
Petr Vones, amatersky programator
Prohlizeni textoveho souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.5.2000 23:18:09
From: Ing. Petr Klinger <program(zv)sitkhaso(tec)cz>
> Potrebuji v Delphi prohlizet textovy soubor. Tento textovy soubor je stale
> otevren pro zapis - jedna se o log soubor SQL serveru. Soubor sam o sobe ma
> dnes cca 23MB a stale roste. Z duvodu specifiky otevreni resim nacitani pres
> Stream. Ze souboru se mi vsak nacte "jen" cca 290 000 radku a pak vse skonci
> hlaskou "Failed to LoadStream".
Ahoj,
Toto neni dobre reseni pro velke soubory. V tomto pripade je lepsi pouzit
mapovani souboru do pameti. Podivej se na AsyncFree, tam je komponenta
TAfFileViewer ktera umi pracovat i s velkymi soubory, nacitani 30M souboru
trva nekolik vterin (http://delphree.clexpert.com/pages/app_ASYNCFREE.htm).
Petr Vones, amatersky programator
Priklad na TOvcVirtualListbox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.5.2000 23:18:22
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> asi nemohl, protoze to pouzivam kvuli snizenim narokum na pamet a uz mam
Ahoj,
Pokud pouzijes TListView ve virtualim rezimu (OwnerData = True), tak pak jsou
pametove naroky velmi male i treba pri milionu polozkach. Navic je to rychle
pokud potrebujes obsah casto menit (trideni, filtrovani apod.)
Petr Vones, amatersky programator
Zrusit radek v udalosti OnCalcField
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 17.5.2000 00:20:51
Ahoj,
ja pouzivam udalost OnFilteredRecord
procedure TfMarze.qDodavkyFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := qDodavkyVypocitanePole.AsInteger<>0;
end;
Vlada Cadsky
----- Original Message -----
From: Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 16, 2000 3:45 PM
Subject: Zrusit radek v udalosti OnCalcField
> Zdravim
>
> Jak lze v metode OnCalcFields udelat to, aby se radek nezobrazil
> v gridu ? Zkratka, kdyz je jedna z vypocitavanych polozek = 0 tak
> dany radek nechci vubec zobrazit ve vysledku.
>
> Dik
> Font hlavniho menu
[*] mattes(zv)VOLNY.CZ <mattes(zv)volny(tec)cz> - 17.5.2000 01:06:57
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Zdravim vsechny,
vedel byste nekdo jak zmenit za behu programu font hlavniho menu20
Uz sem zoufalej... Dik Zrusit radek v udalosti OnCalcField
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 17.5.2000 01:44:53
Dik moc, to je presne to co jsem potreboval.
----- Original Message -----
> Ahoj,
> ja pouzivam udalost OnFilteredRecord
>
> procedure TfMarze.qDodavkyFilterRecord(DataSet: TDataSet;
> var Accept: Boolean);
> begin
> Accept := qDodavkyVypocitanePole.AsInteger<>0;
> end;
>
> Vlada Cadsky
>
tmenuitem a onclick
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 17.5.2000 06:44:28
Zkus to takto
procedure TForm1.MenuItem1Click( Sender : TObject);
begin
if Sender is TMenuItem then ShowMessage(( Sender as TMenuItem).Caption);
end;
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
muze mi prosim nekdo poradit jak zjistit onclick procedurou na
> TMenuItem, jenz se dynamicky generuje, caption tohoto itemu ?
>
> diky moc Honza
> konverze z Paradox7 do Paradox5
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 17.5.2000 06:47:38
Takthle : DELPHI, pokud vytvari tabulku PARADOX do kratke cesty, tak ji vnuti TABLE LEVEL minimalni moznou. Takze reseni je asi takove:
1) V BDE nastavit TABLE LEVEL na 5
2) Nove tabulky vytvorit do short path a prekonvertit data z tabulek ve verzi 7.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================> Jak mam docilit %subj%?
>
> Predem dik
>
> Mirek Dolecek
Ulozeni databaze
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 17.5.2000 07:28:59
> Preji hezky den,
> resim v jednom programu mensi problem. Potrebuji
> nejak udelat, aby se mi databaze (konkretne Paradox)
> napevno ulozila, coz se normalne deje jen pri ukonceni
> programu. Tzn. aby pri kousnuti pocitace nebo vypadku proudu zustala
> tato data ulozena.
S Paradoxem jiz nejaky patek nedelam, ale pokud si vzpominam,
jsou tyto moznosti:
1) V nastaveni BDE mit local share nastaveno na true.
2) Pokud by to bylo malo, koukni se do helpu na FlushBuffers,
dbiSaveneco (nazvy si presne nepamatuji, hlavne ne ten druhy).
Netvrdim, ze to je ono, jak rikam, s Paradoxem jsem uz skoncil
(uf!), ale treba jo.
David
tmenuitem a onclick
[*] Ren� Otisk - 17.5.2000 07:45:38
hi,
Do OnClick das ShowMessage((Sender as TMenuItem).Caption)
Sroub
> muze mi prosim nekdo poradit jak zjistit onclick procedurou na
> TMenuItem, jenz se dynamicky generuje, caption tohoto itemu ?
>
> diky moc Honza
cestina na mssql7
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 17.5.2000 08:04:06
Jeste je ale nutn� vygenerovat script pro celou datab�zi,
neb po aplikaci "rebuildm" se vse ztrat�. Tedy i triggery atd.
A pak pokud tam m�te v�c nez jednu datab�zi mus�te to udelat
pro vsechny datab�ze co jsou na mssql.
Je ovsem s podivem, ze me nic nevarovalo
pred takovou operac�, kter� je vlastne destruktivn�...
Michal
----- Original Message -----
From: Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 16, 2000 9:12 PM
Subject: Re: cestina na mssql7
> > Pred takovymito akcemi je vhodne poslat vsechna data nekam
> > mimo databazi, a po zmene (nebo reinstalaci) je pak lze opet
> > natahnout. Je to ovsem trosku pracne. :-)
> >
> > Ted se mi rozhodne nechce zkoumat, jak problematicke by to bylo
> > pres BDE, ale ja si na to udelal dve jednoduche procedury, prvni
> > vycte (podle mnou dodaneho seznamu tabulek) data a posila je
> > jako text (s vyjimkou binary a blob poli) do nejakeho souboru, k
> > nim jeste priradim priznak, jakeho jsou data typu. Neukladam
> > samozrejme readonly sloupce, jako je autoinkrement. Druha
> > procedura cte data, a posila je pomoci INSERT do databaze.
>
> Ahoj,
>
> Take jsem si delal kdysi sve utilitky na export a import dat.
> Daleko vyhodnejsi je v pripade MS SQL dodavana utilita BCP, ktera mimo
jine
> exportuje i identity fields.
> Pri spravnych parametrech pak pri importu identity fields zachova, coz je
> dulezite pokud
> se na dana IDcka odkazuji z jinych tabulek.
> Toho muzes Zbysku samozrejme dosahnout pomoci set identity_insert on ...
set
> identity_insert off, ale ocekavam, ze bude jednotlive insertovani v
> porovnani s BCP vyrazne pomalejsi.
> Utilitu pouzijete pokud potrebujete zmenit character set nebo trideni (=1.
> vyexportovat data pres BCP do ASCII files, 2. rebuild master databaze, 3.
> import dat opet pres BCP).
> Takto lze prevadet i data mezi verzemi MS SQL 6.5 a 7.0/MSDE.
> Exportovat/importovat pomoci BCP lze i jednotlive tabulky.
>
> S pozdravem, Lada
>Seznam MDI Child oken
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 17.5.2000 08:41:51
[P��loha v souboru: marekhr.vcf]
Toto je zpr�va z v�ce ��st� ve form�tu MIME.
Fajn tohle vim, ale v kterem okamziku pozna form, ktery ma na sobe menu
zobrazujici seznam CHILD oken, ze ma pridat, ubrat v seznamu.
Petr Vones p�e:
> From: Marek Hradil <marekhr(zv)benefitcz(tec)cz>
> > Na kterou udalost se spravne "napichnout"
> > abych si mohl udrzovat vlastni seznam MDI Child oken
> > tak jak to dela VCL pomoci property formu WindowMenu.
>
> Ahoj,
>
> Seznam ziskas pomoci vlastnosti TCustomForm.MDIChildren a TCustomForm.MDIChildCount
>
> Petr Vones, amatersky programator
StringGrid
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 17.5.2000 09:11:16
Hmm, diky, ale nejak mi to nefacha - tada s tim TDrawGridem. Jestli jsem
to dobre pochopil, tak si musim prepsat OnDrawCell, coz sem udelal asi
takto:
procedure TForm1.DrawGrid1DrawCell();
begin
DrawGrid1.Canvas.TextRect(Rect,0,0,
IntToStr(ARow*DrawGrid1.ColCount+ACol)
);
end;
a at dam DefaultDraw na True nebo na False napise mi to do toho Gridu
jenom 0 v levym hornim policku. Co delam spatne???
Petr Vones wrote:
>
> From: Martin Pesava <jimx(zv)volny(tec)cz>
> > 2) Potreboval bych poradit, jestli se da nejak jednoduse radit StrGrid
> > podle jednotlivych sloupcu, a to i napr. tak, ze kdyz je v prvnim
> > sloupci na nekterych radcich to same, tak se to seradi podle sloupce
> > druheho.
>
> V tehle situaci bych spis pouzil TDrawGrid nebo TListView ve virtualnim
> rezimu a data si ukladal sam do nejakych vhodnych struktur.
>
> Petr Vones, amatersky programator
--
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 |
\--------------------------------------------------------------/
Typ ukonceni Windows
[*] Karel Hudan <KarelH(zv)cashreform(tec)cz> - 17.5.2000 09:31:33
Zdravim.
Potreboval bych zjistit jak uzivatel ukoncuje Windows.
V praxi jde o to, ze mam program, ktery bezi po celou dobu behu Windows.
Pokud nekdo ukoncuje praci s PC, program zachyti zpravu WM_QUERYENDSESSION
a provadi nejake dodatecne akce. To ale muze trvat trochu dele, nez je
zahodno a system potom zacina vyhazovat dialogy, ze program se neukoncuje a
pta se co dal. Takze pri zachyceni vracim False a potom sam shodim system
pomoci ExitWindowsEx.
A ted mi jde o to, jestli lze poznat co vlastne uzivatel chtel: vypnout,
restartovat, odlogovat, MS-DOS, (hibernace)?
Zprava WM_QUERYENDSESSION sice lParam prezentuje jako logoff flag, ktery je
typu Boolean a to je docela malo. A to snad jen na Win9x!
Netusite nekdo co s tim??
1000ere diky.
KarelH
Pocitani stranek na tiskarne
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 17.5.2000 09:36:48
Nevi nekdo, zda jde odchytit pocet vytistenych stranek na tiskarne
a zridit si tak pocitadlo ?
Tiskarna je lokalni, nekdy sdilena pro ostatni.
Diky
S pozdravem Miki
Kde vzit MSDE?
[*] Lubo Fule <fule(zv)sct.sk> - 17.5.2000 09:45:17
Pokial viem, tak MSDE sa zatial neda instalovat za asistencie uzivatela, iba
tak, ze si urobis vlastny program, ktory na zaklade uzivatelskych nastaveni
vygeneruje .ISS subor, s ktorym sa spusti instalacia nasledovnym prikazom:
MSDEx86.exe -s -a -f1 "<path>vygenerovany.iss"
Presny popis struktury suboru .ISS je v dokumentacii k MSSQL:
SQL Server Books Online: "Installing SQL Server" -> "Istalation Option" ->
"Unattended Installation" -> "Creating a Setup Initialization File"
L.
Mail
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 17.5.2000 09:53:17
> Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na
> odosielanie pre to ktore PC. Ked kliknem na nejaku mailovu adresu tak sa
> mi hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows messaging
> system (tu mam nastavene ze GroupWise je implicitny). Cize nechcem vediet
> co na PC je ale chcem nieco odoslat z Delphi a mailovy pgm nech prijme
> celu mailovu hlavicku, text a prilozeny subor a nech to posle prec.
> Da sa nieco take ?
>
Ano, vo win sa nastavuje vybrany mail program ako DEFAULT.
Potom ked kliknes napriklad na nejakej stranke na mailovu adresu,
tak sa to otvori
prave v tomto deafult mailovom programe. Problem ale asi bude v tom,
ze ako default
sa da nastavit uplne lubovolny program, a neverim ze vsetky budu
podporovat ten isty
(ak vobec nejaky) protokol na predavanie parametrov. Podla mna je
najjednoduchsia cesta
napisat si vlastny mail program integrovany do aplikacie, s tym ze
pri prvom spusteni
ho bude treba nastavit. Takto to robia vsetky mailove programy. Este
by sa to dalo urobit,
ze tvoja aplikacia by sa konektla na nejaky vopred urceny server a
tam by si z databazy, ktoru
uz naplnil systemak stiahla nastavenie pre kazdy PC.
/LH
Kde vzit MSDE?
[*] Lubo Fule <fule(zv)sct.sk> - 17.5.2000 10:17:47
> Mam tady nejaky starsi instalacni program na MSDE (MSDEx86)
> (tim starsi minim to, ze se mi tu vali uz odlonska). Kdyz ho
Neviem o tom, ze by existovalo nejake novsie MSDE. My sme asi pred mesiacom
kupovali VC++ 6.0, sucastou ktoreho bolo MSDE z 30.4.1999.
L.
Mail
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 17.5.2000 10:19:45
> > Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na
> > odosielanie pre to ktore PC. Ked kliknem na nejaku mailovu adresu
> > [...]
> Ano, vo win sa nastavuje vybrany mail program ako DEFAULT.
> Potom ked kliknes napriklad na nejakej stranke na mailovu adresu, tak
> sa to otvori prave v tomto deafult mailovom programe. Problem ale asi bude v tom,
To se prave nenastavuje ve Windows, ale v Internet Exploreru!!! To
si nesmite plest, protoze ne ve vsech windows je internmet
explorer a tam kde neni, tohle nastavovani vubec nenajdete...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
Pocitani stranek na tiskarne
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 17.5.2000 10:26:32
> Nevi nekdo, zda jde odchytit pocet vytistenych stranek na tiskarne
> a zridit si tak pocitadlo ?
TPrinter ma property PageNumber a metodu NewPage. Podrobnosti v helpu.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
Pocitani stranek na tiskarne
[*] Mik Radim <mik(zv)oce(tec)cz> - 17.5.2000 11:06:03
Chces pocitat stranky vytistene ze sveho programu, ze sveho PC nebo co
vytiskl na ni kdokoliv?
---------------------------------------
Radim Mik, SyCo DPS
Oc� �esk� republika, spol. s r.o.
Hanusova 18, 140 21 Praha 4
tel.: +420(2)440 103 60
fax: +420(2)440 103 90
e-mail: mik(zv)oce(tec)cz
ICQ: 32730861
---------------------------------------
> -----Original Message-----
> From: Radim Brozek [mailto:radim.brozek(zv)berit(tec)cz]
> Sent: Wednesday, May 17, 2000 9:37 AM
> To: 'Konference Delphi'
> Subject: Pocitani stranek na tiskarne
>
>
> Nevi nekdo, zda jde odchytit pocet vytistenych stranek na tiskarne
> a zridit si tak pocitadlo ?
> Tiskarna je lokalni, nekdy sdilena pro ostatni.
>
> Diky
>
> S pozdravem Miki
>
>
> Jak sirit MSDE 2
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 17.5.2000 11:14:04
Ahoj,
rad bych trochu usmernil svuj predchozi dotaz o MSDE.
Pokud nekdo se svou aplikaci distribuujete MSDE, jak resite to,
aby to bylo uzivatelsky prijemne? Co mi specialne vadi - jediny
mozny zpusob je v unattended modu, kdyz uzivatel nevidi, zda se
neco deje, jestli neni nejaky problem, jestli to vubec bezi... v teto
podobe skoro nemam odvahu to zakaznikovi predlozit. Jake mate
zkusenosti?
David
Pocitani stranek na tiskarne
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 17.5.2000 11:32:16
Prave ze ten horsi pripad, tzn. kdokoliv i z jinych programu.
Miki
>Chces pocitat stranky vytistene ze sveho programu, ze sveho PC nebo co
>vytiskl na ni kdokoliv?
>> Nevi nekdo, zda jde odchytit pocet vytistenych stranek na tiskarne
>> a zridit si tak pocitadlo ?
>> Tiskarna je lokalni, nekdy sdilena pro ostatni.
Pripona & Aplikacia
[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 17.5.2000 11:46:12
Nazdar,
programujem e-mail klienta a potrebujem zobrazit attachmenty vo forme
ako su zobrazene explorerom, tj. ikona prisluchajuca k danemu typu
suboru + nazov. Neviem od coho sa mam odrazit, ani co sa tyka
zobrazenia, ani vycitania prislusnych informacii (ikona, aplikacia s
ktoru je zviazana). Tusim, ze je to ulozene vo Windows Registroch, no
nedari sa mi najst tu spravnu vazbu. Napr. hodci subory "*.jpg" mam
zviazane s PaintShop-om, v Registroch sa stale dopracujem k IExploreru.
Nema s tym niekto skusenosti?
Roman
--
mailto:budinec_roman(zv)ttc-telecom.sk
cestina na mssql7
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.5.2000 12:05:42
On 16 May 2000, at 21:12, Ladislav Nagy wrote:
> > Ted se mi rozhodne nechce zkoumat, jak problematicke by to bylo pres
> > BDE, ale ja si na to udelal dve jednoduche procedury, prvni vycte
> > (podle mnou dodaneho seznamu tabulek) data a posila je jako text (s
> > vyjimkou binary a blob poli) do nejakeho souboru, k nim jeste
> > priradim priznak, jakeho jsou data typu. Neukladam samozrejme
> > readonly sloupce, jako je autoinkrement. Druha procedura cte data, a
> > posila je pomoci INSERT do databaze.
>
> Take jsem si delal kdysi sve utilitky na export a import dat.
> Daleko vyhodnejsi je v pripade MS SQL dodavana utilita BCP, ktera mimo
> jine exportuje i identity fields. Pri spravnych parametrech pak pri
> importu identity fields zachova, coz je dulezite pokud se na dana
> IDcka odkazuji z jinych tabulek. Toho muzes Zbysku samozrejme
> dosahnout pomoci set identity_insert on ... set identity_insert off,
> ale ocekavam, ze bude jednotlive insertovani v porovnani s BCP vyrazne
> pomalejsi. Utilitu pouzijete pokud potrebujete zmenit character set
> nebo trideni (=1. vyexportovat data pres BCP do ASCII files, 2.
> rebuild master databaze, 3. import dat opet pres BCP). Takto lze
> prevadet i data mezi verzemi MS SQL 6.5 a 7.0/MSDE.
> Exportovat/importovat pomoci BCP lze i jednotlive tabulky.
Jo, to je take cesta. Protoze vsak byla rec i o MSDE, a ja nevim,
jestli je ta utilita v MSDE pristupna, a protoze v mem pripade jsem
to potreboval rychle a vedel jsem jak na to a bylo to rychle hotove,
resil jsem to programove.
V takovyhle pripadech obvykle na rychlosti az tak nezalezi, protoze
to byvaji jednorazovky.
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
ODBC ovladac pro MS SQL 7
[*] Ren� Otisk - 17.5.2000 12:13:28
Hi,
Vetsina pocitacu s W95 ma ODBC ovladac jen pro Foxku, Dbase, Excel ale ne pro MS SQL. Jak by se dalo programove doplnit dalsi ovladace (nejen MS SQL7)? Doplnenim knihoven? Nechce se mi ale instalovat cele MSDAC, protoze nekterere masinky by to psychicky neunesly (kapacita HDD i procesor na hrane).
Dekuji
Sroub
Pripona & Aplikacia
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 17.5.2000 12:28:07
Ahoj,
mrkni na funkci ExtractAssociatedIcon
a jednou daaavno, jsem zplodil, ani nevim proc, tuto unit-u,
ale kdyz to ted po sobe ctu, tak ani nevim, co jsem tam
vlastne delal :-))) Snad Ti to pomuze.
Dobra.
unit GetAIcon;
interface
uses
Windows, SysUtils, ShellAPI, Registry, Graphics;
procedure GetAssociatedIcon(wExt : string; var wIcon : hIcon);
implementation
function GetSystemDir: string;
var
Buff: array[0..127] of Char;
begin
SetString(Result, Buff, GetSystemDirectory(Buff, SizeOf(Buff)));
end;
procedure GetAssociatedIcon(wExt : string; var wIcon : hIcon);
var
S : string;
P : byte;
R : TRegistry;
begin
S:=GetsystemDir+'\Shell32.dll,';
if ANSIUpperCase(wExt)='EXE' then
S:=S+'2' { Vysledek potom bude napr C:\WINDOWS\SYSTEM\Shell32.dll,2 }
else
begin
R:=TRegistry.Create;
try
R.RootKey:=HKEY_CLASSES_ROOT;
if R.OpenKey('.'+wExt, false) then
if R.OpenKey('\'+R.ReadString('')+'\DefaultIcon', false) then
S:=R.ReadString('')
else
S:=S+'0' { nepvedlo se otevrit druhy klic }
else
S:=S+'0'; { nepvedlo se otevrit prvni klic (.EXT) }
finally
R.Free;
end;
end;
if S='%1' then
S:=GetsystemDir+'\Shell32.dll,0';
P:=Pos(',', S);
if P=0 then { Muze tam byt treba C:\PROGRAM\Program.ico }
wIcon:=ExtractIcon(
hInstance,
PChar(S), 0)
else
wIcon:=ExtractIcon(
hInstance,
PChar(Copy(S, 1, P-1)), { Tady se oddeli jmeno knihovny }
StrToInt(Copy(S, P+1, Length(S)-P))); { od indexu }
end;
end.
> ----------
> Od: Roman Budinec[SMTP:roman(zv)ttc-telecom.sk]
>
> programujem e-mail klienta a potrebujem zobrazit attachmenty vo forme
> ako su zobrazene explorerom, tj. ikona prisluchajuca k danemu typu
> suboru + nazov. Neviem od coho sa mam odrazit, ani co sa tyka
> zobrazenia, ani vycitania prislusnych informacii (ikona, aplikacia s
> ktoru je zviazana). Tusim, ze je to ulozene vo Windows Registroch, no
> nedari sa mi najst tu spravnu vazbu. Napr. hodci subory "*.jpg" mam
> zviazane s PaintShop-om, v Registroch sa stale dopracujem k IExploreru.
> Font hlavniho menu
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 17.5.2000 12:41:12
from: mattes(zv)VOLNY.CZ
>vedel byste nekdo jak zmenit za behu programu font hlavniho menu?
Ahoj
slo by to resit vlastnim kreslenim polozek menu.
V D3 bych na to pouzil napr. TRxMainMenu z RX Library 2.75
-> nastaveni fontu v udalosti OnGetItemParams hlavniho menu
( viz. priklady dodavane s RX ),
ve vyssich verzich by mel byt OwnerDrawing uz primo ve VCL - TMainMenu.
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
natahovat ruzne formaty do image
[*] Zapl�k���ͪe�?�Y��̿ - 17.5.2000 12:49:19
Drazi pratele.
Mam mozna blbej dotaz ohledne IMAGE. Hledal jsem v archivu, ale nejak se nemuzu dopatrat.
Rad bych za behu programu natahoval do image ruzne formaty, ale zatim se mi dari nacitat jen urcite formaty(BMP, ICO, WMF).
pacham to asi takhle (je tam sice moc IFu , ale tento zpusob jsem si udelal cvicne, vim ze to jde i jinak)
var
p: string;
begin
p:=ExtractFileExt(FileListBox1.FileName);
if p='.bmp' then
Image1.Picture.LoadFromFile(FileListBox1.FileName);
if p='.ico' then
Image1.Picture.Icon.LoadFromFile(FileListBox1.FileName);
if p='.wmf' then
Image1.Picture.Metafile.LoadFromFile(FileListBox1.FileName);
Jak ale nactu *.gif nebo *.jpg??? V helpu jsem na nic nenarazil.
Dik
Zaplik
Zaplik(zv)volny(tec)cz
Pripona & Aplikacia
[*] Ren� Otisk - 17.5.2000 12:53:27
Hi,
V archivu konference je nekde zdrojak, kde ke kazde pripone se vygeneruje
prislusny exac a ikona. Melo by to byt nekdy behem posledniho roku a pul.
Sroub
> Nazdar,
>
> programujem e-mail klienta a potrebujem zobrazit attachmenty vo forme
> ako su zobrazene explorerom, tj. ikona prisluchajuca k danemu typu
> suboru + nazov. Neviem od coho sa mam odrazit, ani co sa tyka
> zobrazenia, ani vycitania prislusnych informacii (ikona, aplikacia s
> ktoru je zviazana). Tusim, ze je to ulozene vo Windows Registroch, no
> nedari sa mi najst tu spravnu vazbu. Napr. hodci subory "*.jpg" mam
> zviazane s PaintShop-om, v Registroch sa stale dopracujem k IExploreru.
> Nema s tym niekto skusenosti?
>
> Roman
> --
> mailto:budinec_roman(zv)ttc-telecom.sk
Pocitani stranek na tiskarne
[*] Mik Radim <mik(zv)oce(tec)cz> - 17.5.2000 13:03:38
Existuji 2 varianty:
Prvni je pomoci 2 tiskaren : Prvni ma nastaveny port na soubor a druha
ukazuje na dane zarizeni ( LPTx:). Nasdilena je prvni tiskarna. Pokud dojde
k tisku, pak je vytvoren soubor na disku ( viz port 1 tiskarny). Tento
soubor je pomoci dodatkoveho software rozindexovan na jmeno uzivatele, jmeno
dokumentu a pocet stran a preposlan na druhou tiskarnu.
Druhy zpusob: Lang monitor - je to knihovna v DLL, ktera se da
zaimplementovat do tiskoveho driveru - na tomto principu pracuji HP laserJet
s hlasenim o svem stavu.
Z toho vyplyva: v bodu 1 vytvorit dodatkovy program, ktery hlida, zda se na
disku vytvari soubor, s naslednzm zpracovanim a preposlanim na druhou
tiskarnu,
nebo vytvorit DLL ( podle MS Win32API a SDK dokumentace). Prvni bod uz jsem
zvladnul, s druhym mam pod Delphi mensi problemy ( mam D3).
---------------------------------------
Radim Mik, SyCo DPS
Oc� �esk� republika, spol. s r.o.
Hanusova 18, 140 21 Praha 4
tel.: +420(2)440 103 60
fax: +420(2)440 103 90
e-mail: mik(zv)oce(tec)cz
ICQ: 32730861
---------------------------------------
> -----Original Message-----
> From: Radim Brozek [mailto:radim.brozek(zv)berit(tec)cz]
> Sent: Wednesday, May 17, 2000 11:32 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Pocitani stranek na tiskarne
>
>
> Prave ze ten horsi pripad, tzn. kdokoliv i z jinych programu.
>
> Miki
>
> >Chces pocitat stranky vytistene ze sveho programu, ze sveho
> PC nebo co
> >vytiskl na ni kdokoliv?
>
> >> Nevi nekdo, zda jde odchytit pocet vytistenych stranek na tiskarne
> >> a zridit si tak pocitadlo ?
> >> Tiskarna je lokalni, nekdy sdilena pro ostatni.
>
>
> Mail
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 17.5.2000 13:17:00
Jo urcite to jde - videl jsem to u jednoho baliku shareware komponent, ale
neumelo to pripojit soubor. Myslim ze se jmenoval Alvas Components. Bohuzel
uz ty komponenty nemam (shareware).
Navic Word to umi taky, takze to jit musi.
Zdravi
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 16, 2000 1:56 PM
Subject: Re: Mail
> >
> >Neexistuje neco jako 'nastaveni mailhosta' pro konketni pocitac.
> >Nic takoveho obecneho neni. To si kazdy postvni program proste
> >nastavuje nejak sam...
> >
> >A protoze nikdy nevis, jaky zrovna postovni program na tom
> >pocitaci je pouzivan, nevis takle KDE tu informaci hledat. Navic i v
> >jednom postovnim programu muzes pouzivat VIC RUZNYCH
> >mailhostu.
> >
> >Krom toho i muzes pouzivat vic ruzne nakonfigurovanych
> >postovnich progamu.
> >
> >Z toho vyplyva pro vas asi neradostne zjisteni, ze vas problem je v
> >obecne rovine principialne NERESITELNY.
> Diky. Aj zla sprava je sprava.
> Ale nevzdavam sa:
> Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na
odosielanie pre to ktore PC. Ked kliknem na nejaku mailovu adresu tak sa mi
hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows messaging
system (tu mam nastavene ze GroupWise je implicitny). Cize nechcem vediet co
na PC je ale chcem nieco odoslat z Delphi a mailovy pgm nech prijme celu
mailovu hlavicku, text a prilozeny subor a nech to posle prec.
> Da sa nieco take ?
>
> S pozdravom / Regards
>
> Tibor Galik
> tgalik(zv)vsz.sk
>
>
>
StringGrid
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 17.5.2000 13:39:19
> DrawGrid1.Canvas.TextRect(Rect,0,0,
x a y ma nulu levem hornim celeho drawgridu,
nikoliv prave vykreslovaneho cellu. Dej tam:
TextRect(Rect,Rect.Left,Rect.Top, ...
Daniel
Kde vzit MSDE?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.5.2000 12:40:31
Puvodni zprava, kterou napsal David Lebeda dne 16 May 00,:
> Jedine, co mi nezkolabovalo, byl unattended setup, pri kterem
> ale zase neni na obrazovce videt vubec nic. Doufal jsem, ze u MS
> uz treba odstranili tu chybu a MSDE uz je instalovatelne i za
> asistence uzivatele, ale nedokazu ho z MS webu stahnout. Pote,
> co zadam product ID sveho visual studia, vznikne chyba Stranku
> nelze zobrazit.
>
> Chci se proto zeptat, jake mate zkusenosti s instalovanim MSDE a
> jak ho pripadne ziskat, kdyz u MS se mi nedari. (Verze s Office
> 2000) vyzaduje Access 9 nebo jeste jakesi cosi, zkratka neni
> pouzitelna).
1. Ta verze MSDE, ktera je na 1. instalacnim CD Office Premium,
neni urcena pro sireni zakaznikum a je to tam vyslovne uvedeno.
Ta je pouze pro majitele Office Premium.
2. Ta verze MSDE, co je na tom patem CD, ktere je k Office
Developer (ted nevim, jak se jmenuje a jsem linej se jit podivat),
je urcena pro sireni zakaznikum. A musi byt spustena spolu
se skriptem, ktery stanovi, jak se ma nastavit. Kdyz se do toho
skriptu podivas, tak zjistis, ze nejake zobrazeni muzes povolit.
Ty si ten skript musis upravit na sve podminky.
3. Jinak nezapomen, ze existuje jeste SP2 pro MSDE, takze jeste
po instalaci MSDE musis spustit tento SP2, ktery je podobny...
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
natahovat ruzne formaty do image
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 17.5.2000 13:50:44
JPG (JPEG) su jednoduche, staci dat do uses JPEG (Tusim, ze to takto funguje od D4) a mas podporu pre citanie JPEG-ov. S GIF je to horsie, ak vsak mas RX library, tak ta ma podporu pre GIF-y. Co sa tyka ostatnych formatov, skus pohladat po internete a nieco urcite najdes.
Drazi pratele.
Mam mozna blbej dotaz ohledne IMAGE. Hledal jsem v archivu, ale nejak se nemuzu dopatrat.
Rad bych za behu programu natahoval do image ruzne formaty, ale zatim se mi dari nacitat jen urcite formaty(BMP, ICO, WMF).Typ kurzoru mysi v inej aplikacii
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 17.5.2000 14:12:26
Da sa nejako zistit aky typ kurzoru je momentalne v inej aktualnej
aplikacii?
crHourGlass
crHandPoint
atd.
olej
E-MAIL WORK: olej(zv)asset.sk
E-MAIL PRIVATE : olej(zv)atlas(tec)cz
Private WEB> http://go.to/aolej
ODBC ovladac pro MS SQL 7
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 17.5.2000 14:18:07
pokud vim tak instalace jak msde tak mssql je konfigurovatelna
takze muzes instalovat pouze odbc ....
Michal
----- Original Message -----
From: Ren� Otisk
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, May 17, 2000 12:13 PM
Subject: ODBC ovladac pro MS SQL 7
Hi,
Vetsina pocitacu s W95 ma ODBC ovladac jen pro Foxku, Dbase, Excel ale ne pro MS SQL. Jak by se dalo programove doplnit dalsi ovladace (nejen MS SQL7)? Doplnenim knihoven? Nechce se mi ale instalovat cele MSDAC, protoze nekterere masinky by to psychicky neunesly (kapacita HDD i procesor na hrane).
Dekuji
Sroub
Mail
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 17.5.2000 14:30:04
> To se prave nenastavuje ve Windows, ale v Internet Exploreru!!! To
> si nesmite plest, protoze ne ve vsech windows je internmet
> explorer a tam kde neni, tohle nastavovani vubec nenajdete...
>
hm, tak to sa mi nezda. Aj ked priznavam, ze win bez exploreru som
este nevidel.
(neratam w3.11)
/LH
Pocitani stranek na tiskarne
[*] delphi(zv)zas-me(tec)cz - 17.5.2000 15:04:38
Psal jsem si na to v Borland Pascalu pro Windows programek. Byl to vlastne
ovladac pro tiskarnu, ktery nahradil puvodni ovladac, tim padem dostaval
vsechny volani z tisknoucich aplikaci. V nem zjistuji pocty stranek. No a na
provedeni tech volani vyuzivam puvodni soubor ovladace.
Vyhody: opravdu to funguje (pro vsechny aplikace tisknouci z Windows),
studentum takto pocitame a uctujeme tisky ve skole, za rok kolem 40 000
stranek, chodi to na siti, podle novellovskeho logu si to overuje, zda se
uloha skutecne vytiskla (neplaticum totiz tisk nepovolime a posila se to do
"mrtve" fronty). Mam k tomu udelane kompletni prostredi, z Novellu si
vytahnu seznam uzivatelu s jejich celymi jmeny a skupinami (trida),
programek to poscita, vytiskne, kolik ma kdo zaplatit, platby tam zapisu...
Nevyhody: tenkrat jsem to psal pro konklretni ovladac HP LaserJet IIIP, HP
LaserJet 5L a Epson Stylus Color. Bohuzel ruzne ovladace zrejme obsahuji
ruzne funkce, ktere jsem tenkrat nedokazal nejak univerzalne vclenit do
sveho ovladace, proto jsem to musel vlastne kompilovat vzdy "na miru".
Karel Rys
rys(zv)zas-me(tec)cz
>Prave ze ten horsi pripad, tzn. kdokoliv i z jinych programu.
>
>Miki
>
>>Chces pocitat stranky vytistene ze sveho programu, ze sveho PC nebo co
>>vytiskl na ni kdokoliv?
>
>>> Nevi nekdo, zda jde odchytit pocet vytistenych stranek na tiskarne
>>> a zridit si tak pocitadlo ?
>>> Tiskarna je lokalni, nekdy sdilena pro ostatni.
>
>konverze z Paradox7 do Paradox5
[*] Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz> - 17.5.2000 15:19:04
Vyhodu zadnou, poste potrebuji data, ktera jsou v PDX7 nekomu predat v
PDX5.
Mirek Dolecek
On Tue, May 16, 2000 at 10:42:00PM +0200, Roland Turcan RoTurSoft" wrote:
> Subject: konverze z Paradox7 do Paradox5
>
>
> > Jak mam docilit %subj%?
> >
> Vytvorit novy subor a prekopat do neho udaje.
>
> BTW: Ale preco to potrebujes aku ma vyhodu PDX5 ?
>
> R.Prevod HTML - Text
[*] Delphi Konfera <delphi(zv)globnet.sk> - 17.5.2000 15:40:27
Ahoj,
Neviem ci existuje nejaka komponenta, ale ved si sprav jednoduchu
komponentu ci ti odfiltruje vsetko co je medzi < > a pripadne ti este prelozi
html entiti na znaky. Ja som tusim nieco take robil.
Kukni sa na www.mnn.sk tusim sa to vola StrConvert.
Martin Milesich
On 15 May 00, at 9:30, Petr Zika wrote:
> Ahoj
>
> neexistuje komponenta, ktera by umela nacist HTML stranku a ulozit ji jako
> prosty text?
>
> Zkousel jsem komponentu HTML ze zalozky Internet nebo naimportovat Explorer
> ale v zadne jsem tuto moznost nenasel.
>
> Petr
BDE err WinNT
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 17.5.2000 15:49:35
Ahoj,
mam aplikaci kter� se pres BDE pripojuje do Interbase5.6. Ve Win95 chodi vse normalne, ale ve WinNT mi aplikace skonci chybou:
BDE err 13059
Server err -902
I/O error for file "/temp/iba00217".Error while trying to write to file.
The device does not recognize the command.
V aplikaci je pro pripojeni pouzita TDatabase a TQuery, pokud nactu mensi mnozstvi dat ve WinNT tak take neni problem ale pokud ma dotaz vratit vice zaznamu, tak aplikace konci vyse uvedenou chybou.
Preden dekuji za vsechny namety.
Martin
ODBC ovladac pro MS SQL 7
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 17.5.2000 15:53:59
> Vetsina pocitacu s W95 ma ODBC ovladac jen pro Foxku, Dbase, Excel ale
> ne pro MS SQL. Jak by se dalo programove doplnit dalsi ovladace (nejen
> MS SQL7)? Doplnenim knihoven? Nechce se mi ale instalovat cele MSDAC,
> protoze nekterere masinky by to psychicky neunesly (kapacita HDD i
> procesor na hrane).
Priklanel bych se spis k tomu MDAC, uz kvuli budoucnosti, ale
mam takovy pocit, ze existuje i instalator pro samotne ODBC.
Nikdy jsem po nem ale nepidil, spis jsem to nekde zahlidl, takze
ani nevim, jestli by v nem bylo to, co hledas. V pripade volneho
casu muzes zkusit www.microsoft(tec)cz, ale treba mne osobne vzdy
trva silene dlouho, nez tam najdu to, co hledam.
David
BDE err WinNT
[*] Libor Junek <libor(zv)thsoft(tec)cz> - 17.5.2000 16:21:19
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Tohle jsme take resily. Bud mate na vasich NT nedostatek mista na systemovem disku
nebo nemate pristup do TEMPu (pokud to bezi pod uctem SYSTEM tak by s tim pristupem
nemely byt problemy). Hlasi to pokud mate velke trideni prez polozku a Interbase si snazi udelat
odkladaci soubor do TEMPu a nelze mu vytvorit.
Libor Junek
Ahoj,
mam aplikaci kter� se pres BDE pripojuje do Interbase5.6. Ve Win95 chodi vse normalne, ale ve WinNT mi aplikace skonci chybou:
BDE err 13059
Server err -902
I/O error for file "/temp/iba00217".Error while trying to write to file.
The device does not recognize the command.
V aplikaci je pro pripojeni pouzita TDatabase a TQuery, pokud nactu mensi mnozstvi dat ve WinNT tak take neni problem ale pokud ma dotaz vratit vice zaznamu, tak aplikace konci vyse uvedenou chybou.
Preden dekuji za vsechny namety. Martin
ZDROJOVY KOD z WebBrowseru
[*] Martin Sekanina <marsek(zv)softcell(tec)cz> - 17.5.2000 16:45:28
>1) Na formulari mam WebBrowser1 a Memo1.
>2) Do Memo1 potrebuji dostat zdrojovy kod prave zobrazene www stranky.
Zdravim,
treba takhle:
var
IpStream: IPersistStreamInit;
AStream: TMemoryStream;
...
if Assigned(WebBrowser1.Document) then
begin
AStream := TMemoryStream.Create;
try
IpStream := Document as IPersistStreamInit;
if not Assigned(IpStream) then Exit;
if Succeeded(IpStream.save(TStreamadapter.Create(AStream), true)) then
begin
AStream.Seek(0, 0);
Memo1.Lines.LoadFromStream(AStream);
end;
except
end;
AStream.Free;
end;
Martin Sekanina
Pripona & Aplikacia
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 17.5.2000 16:47:25
ahoj,
kdyby se ti nepovedla uvedena reseni, muzes pouzit sadu GXexplorer
z http://www.gexperts.com/GXExplorer/ a primo je pouzit (chova se jako
Pruzkumnik)
nebo z jejiho zdrojaku okoukat jak zobrazuje ty ikony.
M.Jirman
From: Roman Budinec <roman(zv)ttc-telecom.sk>> Nazdar,
>
> programujem e-mail klienta a potrebujem zobrazit attachmenty vo forme
> ako su zobrazene explorerom, tj. ikona prisluchajuca k danemu typu
> suboru + nazov. Neviem od coho sa mam odrazit, ani co sa tyka
> zobrazenia, ani vycitania prislusnych informacii (ikona, aplikacia s
> ktoru je zviazana). Tusim, ze je to ulozene vo Windows Registroch, no
> nedari sa mi najst tu spravnu vazbu. Napr. hodci subory "*.jpg" mam
> zviazane s PaintShop-om, v Registroch sa stale dopracujem k IExploreru.
> Nema s tym niekto skusenosti?
>
> Roman
> --
> mailto:budinec_roman(zv)ttc-telecom.sk
>Jak sirit MSDE 2
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.5.2000 17:16:22
On 17 May 2000, at 11:14, David Lebeda wrote:
> rad bych trochu usmernil svuj predchozi dotaz o MSDE.
>
> Pokud nekdo se svou aplikaci distribuujete MSDE, jak resite to,
> aby to bylo uzivatelsky prijemne? Co mi specialne vadi - jediny
> mozny zpusob je v unattended modu, kdyz uzivatel nevidi, zda se
> neco deje, jestli neni nejaky problem, jestli to vubec bezi... v teto
> podobe skoro nemam odvahu to zakaznikovi predlozit. Jake mate
> zkusenosti?
Poustim instalaci jako proces z meho programu a necham behat
nejaky obrazek, dokud se instalace neskonci.
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
Spusteni programu pri odhlaseni uzivatele ze site
[*] delphi(zv)zas-me(tec)cz - 17.5.2000 17:26:52
Rad bych napsal programek, ktery se spusti ve chvili, kde se uzivatel
odhlasi ze site (Novell 5, sitovy klient od Novellu, nikoliv ten
Microsofti). Nemate prosim nekdo radu, jak to zaridit?
Jde mi o to, aby program nebezel, pokud je nekdo prihlasen (zbytecne by
zabiral pamet a zpomaloval chod uz takhle dost slabych pocitacu, co tu ve
skole mame).Clipboard
[*] Daniel Sichta <dano(zv)customweb.sk> - 17.5.2000 17:26:57
D5 E, W98
Ako by sa dal najlepsie vyriesit tento moj problem :
Cez OpenDialog si vyberiem subor (95 % suborov bude Word file) .Potrebujem
obsah tohto suboru ( bez toho aby som ho otvoril alebo spustil Word) nejako
dostat do clipboardu a odtial do tela posty. Priklad potesi !!
Dakujem
Daniel �ichta
CUSTOM.web s.r.o.
Hod�ova 13
01001 �ilina
SLOVAKIA
www.customweb.sk
++421 89 564 3475
stringgrid a tisk
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 17.5.2000 19:35:02
ahoj,
zkus TPrinter
M.Jirman
P.S: Jestli je to moc rychla odpoved tak popisu jak.
----- Original Message -----
From: Jan Bachor
Zdravim
uz to tady sice bylo, ale nikdo neodpovedel
jak muzu vytisknout obsah stringgridu?
nebo jak vytisknout aspon obycejny text, nebo textovy soubor
predem diky za rady
s pozdravem Johnboy
stringgrid a tisk
[*] Jan Bachor <bachor(zv)iol(tec)cz> - 17.5.2000 19:43:42
Zdravim
byl bych ti moc vdecnej kdybys to popsal jak
predem dik
s pozdravem Johnboy
--------------------------------------------------------------
[ http://web.pinknet(tec)cz/~johnb ]=[ john(zv)iol(tec)cz ]
[ mobil: 0604 575 780 ]=[ icq uin: 31198330 ]
--------------------------------------------------------------
----- Original Message -----
From: p. Jirman <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 17, 2000 7:35 PM
Subject: Re: stringgrid a tisk
> ahoj,
>
> zkus TPrinter
>
> M.Jirman
>
> P.S: Jestli je to moc rychla odpoved tak popisu jak.
>
> ----- Original Message -----
> From: Jan Bachor
>
> Zdravim
>
> uz to tady sice bylo, ale nikdo neodpovedel
> jak muzu vytisknout obsah stringgridu?
> nebo jak vytisknout aspon obycejny text, nebo textovy soubor
>
> predem diky za rady
>
>
> s pozdravem Johnboy
>
>
> natahovat ruzne formaty do image
[*] Hurricane <hurricane(zv)email(tec)cz> - 17.5.2000 19:46:21
Zdravim
mrkni se na pjmodos.hyperlink(tec)cz. Petr Jel�nek tam m� DLL pro zobrazov�n�
v�ech mo�nejch i nemo�nejch form�t�. Ale ned�lal sem s tim, vim jenom, �e to
existuje a �e by to m�lo bejt dost dobr�.
Hurricane
----- Original Message -----
From: Zapl�k <zaplik(zv)volny(tec)cz>
To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 17, 2000 12:49 PM
Subject: natahovat ruzne formaty do image
Drazi pratele.
Mam mozna blbej dotaz ohledne IMAGE. Hledal jsem v archivu, ale nejak se
nemuzu dopatrat.
Rad bych za behu programu natahoval do image ruzne formaty, ale zatim se mi
dari nacitat jen urcite formaty(BMP, ICO, WMF).
pacham to asi takhle (je tam sice moc IFu , ale tento zpusob jsem si udelal
cvicne, vim ze to jde i jinak)
var
p: string;
begin
p:=ExtractFileExt(FileListBox1.FileName);
if p='.bmp' then
Image1.Picture.LoadFromFile(FileListBox1.FileName);
if p='.ico' then
Image1.Picture.Icon.LoadFromFile(FileListBox1.FileName);
if p='.wmf' then
Image1.Picture.Metafile.LoadFromFile(FileListBox1.FileName);
Jak ale nactu *.gif nebo *.jpg??? V helpu jsem na nic nenarazil.
Dik
Zaplik
Zaplik(zv)volny(tec)cz
Pripona & Aplikacia
[*] Hurricane <hurricane(zv)email(tec)cz> - 17.5.2000 19:46:18
procedure THurricaneCustomOpenDialog.DoShow;
var
icon:Ticon;
lpicon:word;
begin
with TToolbarButton97.Create(self) do
begin
*****-----****
if fileexists(Registry.ReadString('ikona1')) then
Glyph.LoadFromFile(Registry.ReadString('ikona1')) else
begin
glyph.width := 48;
glyph.height := 48;
icon := ticon.create;
icon.handle := ExtractAssociatedIcon(hinstance,
pchar(Registry.ReadString('cesta1')), lpicon);
if icon.handle <> 0 then glyph.canvas.draw(0, 0, icon);
*****-----****
end;
end;
----- Original Message -----
programujem e-mail klienta a potrebujem zobrazit attachmenty vo forme
> ako su zobrazene explorerom, tj. ikona prisluchajuca k danemu typu
> suboru + nazov. Neviem od coho sa mam odrazit, ani co sa tyka
> zobrazenia, ani vycitania prislusnych informacii (ikona, aplikacia s
> ktoru je zviazana). Tusim, ze je to ulozene vo Windows Registroch, no
> nedari sa mi najst tu spravnu vazbu. Napr. hodci subory "*.jpg" mam
> zviazane s PaintShop-om, v Registroch sa stale dopracujem k IExploreru.
> Nema s tym niekto skusenosti?
except pri neexistujicim souboru
[*] Hurricane <hurricane(zv)email(tec)cz> - 17.5.2000 19:46:25
Zdravim
M�m v programu historii soubor� a potrebuju, aby kdyz uzivatel chce otevrit
neexistujici soubor, tak aby to vyhodilo �eskou hl�ku. �lo by to �e�it tak,
�e hned na za��tku otestuju existenci souboru a podle toho se otev�e nebo se
zobraz� hl�ka. Podle m� je to ale zbyte�n� zdr�uj�c�. Napadlo m� to �e�it
pomoc� try...except. Jen�e takhle jednodu�e mi to vyhod� hl�ku, �e soubor
neexistuje p�i jak�koliv vyj�mce. Proto bych pot�eboval n�vod, jak se ud�l�
try...except jenom pro ur�itej typ vyj�mky (neexistenci souboru).
P�edem d�ky v�em.
Hurricane
hurricane(zv)email(tec)cz
OT: MP3
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 17.5.2000 20:29:09
Ahojky lidicky, sorry, za OTcko, ale uz nevim, kde bych to hledal. Da se
nejak (popripade jak) zjistit delka MP3ky - myslim cas ne velikost.
Pravdepodobne by to slo zjistit tak, ze bych postupne prosel celou MP3ku
nacital jednotlivy bloky a z nich (podle kvality a delky) bych urcil
delku cely MP3ky, prijde mi to, ale dost zdlouhavy - nejde to nejak
jednodusejc.
--
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 |
\--------------------------------------------------------------/
Zrusit radek v udalosti OnCalcField
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 17.5.2000 21:51:08
> ja pouzivam udalost OnFilteredRecord
>
> procedure TfMarze.qDodavkyFilterRecord(DataSet: TDataSet;
> var Accept: Boolean);
> begin
> Accept := qDodavkyVypocitanePole.AsInteger<>0;
> end;
>
> Vlada Cadsky
a kterou verzi Delphi pouzivas
V D5 mi tato konstrukce prestala chodit
S pozdravem Heinisch Jiri
Pruhledna barva
[*] Pavel Kahle <kahle(zv)atlas(tec)cz> - 17.5.2000 21:54:32
Zdravim,
pokousim se vytvorit pruhlednou komponentu, ktera bude vytvaret
pruhledne - barevne osy na gridu, zkusil jsem vytorit rastr pomoci
setpixel, ale je to prilis hrube, lze dosahnout podobneho efektu jako
je treba u ikon 20
Dekuji P.Kahle
Pruhledna barva
[*] Hurricane <hurricane(zv)email(tec)cz> - 17.5.2000 23:38:27
Zkus se pod�vat na tohle:
{*************************************************************}
{ TGlassy component for Delphi 3 and higher }
{ Version: 1.0 }
{ Idea: Anton Grigoriev (grigorievab(zv)mail.ru) }
{ Author: Aleksey Kuznetsov (info(zv)utilmind.com) }
{ Home Page: http://www.utilmind.com }
{ Created: June, 12, 1999 }
{ Modified: June, 12, 1999 }
{*************************************************************}
{ ���������� (��������� TPaintBox) ������������ ���� ��� }
{ ���������� ����� ����� (���������� ��� ��������� ��� ������)}
{ � ������������� ������ '������' � �������� ������������. }
{*************************************************************}
{ This component (inherited from TPaintBox) will draw itself }
{ as transparent part of form (shows what be under form), }
{ with possibility to set 'glass' color and degree of the }
{ transparency. }
{*************************************************************}
{ Additional properties: }
{ TranspColor: TColor - color of 'glass'. }
{ Transparency: 1..100 - degree of transparency. }
{ Moveable: Boolean - if true then form can be moved (dragged)}
{ using the client area of form }
{*************************************************************}
{ Please see demo program for more information. }
{*************************************************************}
{ IMPORTANT NOTE: }
{ This software is provided 'as-is', without any express or }
{ implied warranty. In no event will the author be held }
{ liable for any damages arising from the use of this }
{ software. }
{ Permission is granted to anyone to use this software for }
{ any purpose, including commercial applications, and to }
{ alter it and redistribute it freely, subject to the }
{ following restrictions: }
{ 1. The origin of this software must not be misrepresented, }
{ you must not claim that you wrote the original software. }
{ If you use this software in a product, an acknowledgment }
{ in the product documentation would be appreciated but is }
{ not required. }
{ 2. Altered source versions must be plainly marked as such, }
{ and must not be misrepresented as being the original }
{ software. }
{ 3. This notice may not be removed or altered from any }
{ source distribution. }
{*************************************************************}
----- Original Message -----
pokousim se vytvorit pruhlednou komponentu, ktera bude vytvaret
pruhledne - barevne osy na gridu, zkusil jsem vytorit rastr pomoci
setpixel, ale je to prilis hrube, lze dosahnout podobneho efektu jako
je treba u ikon ?odesilani e-mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.2000 00:17:20
From: Martin Zapletal <zaplik(zv)volny(tec)cz>
> Mam nasledujici kod , kde se pomoci ShellAPI otevre napriklad Outlok Expres a
> vytvori se novy majl .Rad bych ale vedel, jestli se da prikaz jednoduse rozsirit
> o text vlastni zpravy a vlozit do tela zpravy obsah treba pole Memo1.
Ahoj,
Popis najdes tady:
http://msdn.microsoft.com/workshop/networking/predefined/mailto.asp
Petr Vones, amatersky programator
except pri neexistujicim souboru
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.5.2000 01:07:04
Behalf Of Hurricane
> Zdravim
>
> M�m v programu historii soubor� a potrebuju, aby kdyz uzivatel
> chce otevrit
> neexistujici soubor, tak aby to vyhodilo �eskou hl�ku. �lo by to
> �e�it tak,
> �e hned na za��tku otestuju existenci souboru a podle toho se
> otev�e nebo se
> zobraz� hl�ka. Podle m� je to ale zbyte�n� zdr�uj�c�. Napadlo m� to �e�it
> pomoc� try...except. Jen�e takhle jednodu�e mi to vyhod� hl�ku, �e soubor
> neexistuje p�i jak�koliv vyj�mce. Proto bych pot�eboval n�vod,
> jak se ud�l�
> try...except jenom pro ur�itej typ vyj�mky (neexistenci souboru).
Ahoj.
Co treba tohle
try
...
except
on EInOutError do HandleInOutError;
on E....... do Handle.....;
on E....... do Handle.....;
else
HandleAllOthers;
end;
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
natahovat ruzne formaty do image (2)
[*] Zapl�k���ͪe�?�Y��̿ - 18.5.2000 07:26:36
Ale pokud si v Object Inspectoru muzu do image natahnout v dobe navrhu mimo jine i *.jpg, *.jpeg, *.gif, tak by to prece melo jit nejak jednoduse udelat i za behu programu. Treba prez zminovane LoadFromFile bez pouziti neceho jineho. Prece pokud to komponenta uz nejak umi, tak by to melo jit.Nebo ne? Proto by me zajimalo jak.
Zaplik
zaplik(zv)volny(tec)cz
>JPG (JPEG) su jednoduche, staci dat do uses JPEG (Tusim, ze to takto funguje od D4) a mas podporu pre citanie JPEG-ov. S GIF je to horsie, >ak vsak mas RX library, tak ta ma podporu pre GIF-y. Co sa tyka ostatnych formatov, skus pohladat po internete a nieco urcite najdes.
>>Drazi pratele.
>>Mam mozna blbej dotaz ohledne IMAGE. Hledal jsem v archivu, ale nejak se nemuzu dopatrat.
>>Rad bych za behu programu natahoval do image ruzne formaty, ale zatim se mi dari nacitat jen urcite formaty(BMP, ICO, WMF).
odesilani e-mailu
[*] RDocekal(zv)csas(tec)cz - 18.5.2000 08:07:20
> From: Martin Zapletal <zaplik(zv)volny(tec)cz>
> > Mam nasledujici kod , kde se pomoci ShellAPI otevre
> napriklad Outlok Expres a
> > vytvori se novy majl .Rad bych ale vedel, jestli se da
> prikaz jednoduse rozsirit
> > o text vlastni zpravy a vlozit do tela zpravy obsah treba
> pole Memo1.
>
> Ahoj,
>
> Popis najdes tady:
> http://msdn.microsoft.com/workshop/networking/predefined/mailto.asp
>
> Petr Vones, amatersky programator
>
>
Tyhle opicarny vsak neumi kazdej mail klient, napr. pomerne rozsireny
Pegasus Mail se po pouziti mailto:nekdo(zv)nekde.com?subject=Pozdrav ani
nespusti. Pri pouziti jen mailto:nekdo(zv)nekde.com to funguje.
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
Mail
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.5.2000 08:10:42
> > To se prave nenastavuje ve Windows, ale v Internet Exploreru!!! To
> > si nesmite plest, protoze ne ve vsech windows je internmet explorer
> > a tam kde neni, tohle nastavovani vubec nenajdete...
> hm, tak to sa mi nezda. Aj ked priznavam, ze win bez exploreru som
> este nevidel. (neratam w3.11)
Videl jsi malo.. je hromada W95, kde zadny Inernet Explorer
neni... pak jak se zacaly delat W95 OSR2, tak se zacaly dodavat
s IE3. Jenze jakmile prislo IE4, zacaly se W95 OSR2 opet
diostribuovat bez zabudovaneho IE a IE4 byly pribalene ZVLAST na
dalsim CD, tedy nemusel sis ho tam vubec nainstalovat...
Tedy jisty mas IE jen u W98 ci IE3 u WinNT 4.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library
prehravec Wav
[*] Lubos Matejka <lmatejka(zv)satyr1.zcu(tec)cz> - 18.5.2000 07:13:59
Cau lidi!!!
Jsem v delphi uplnej zacatecnik a chtel bych si zkusit udelat prehravac
wavu.
Pry to jde velice snadno ale nevim jak!
Mohl by mi nekdo z vas poslat jednoduchy prehravac wavu?
Jen play, end otevri soubor, ukonci program.
Dal uz bych si stim pohral!
Predem dekuji vsem!!!
Lubos
Jak primo na ADO?
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 18.5.2000 09:23:53
Ahoj
Nevite nekdo, kde bych mohl najit navod, jak procovat s ADO, V D5, bez
pouziti komponet delphi, tj primo s pomoci unity ADOInt. Zasekl jsem se na
tom, jak pristupovat k polozkam Recordsetu a nevim jak dal.
Predem dekuji za rady
Jaromir Cermak
Spusteni aplikace
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 18.5.2000 10:01:46
Ahoj lidi.
Potrebuji spustit svoji aplikaci jeste pred prihlasenim do pocitacove
site (NetWare, Windows).
Kam do registru zapsat jmeno programu nebo jak je mozne toto realizovat.
Dik Jirka
Spusteni aplikace
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.2000 10:09:18
Ahoj,
HKEY_LM\Software\Microsoft\Windows\...
...\CurrentVersion\RunServices
Dobra.
> ----------
> Od: Jiri Novacek[SMTP:JNovacek(zv)spst(tec)cz]
>
> Potrebuji spustit svoji aplikaci jeste pred prihlasenim do pocitacove
> site (NetWare, Windows).
> Kam do registru zapsat jmeno programu nebo jak je mozne toto realizovat.
>
> except pri neexistujicim souboru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.2000 10:15:43
Ahoj,
muzes to rozlisovat podle tridy vyjimky, asi nejak takto:
try
... kod
except
on EInOutError do ...I/O chyba;
od EConvertError do ...chyba pri prevodu
od E... atd.. atd...
end;
D.
> ----------
> Od: Hurricane[SMTP:hurricane(zv)email(tec)cz]
>
> Proto bych pot> �eboval n�vod, jak se ud�l�
> try...except jenom pro ur�itej typ vyj�mky (neexistenci souboru).
> BDE err WinNT
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 18.5.2000 10:19:43
Aplikace bezi pod uctem system, do adresare TEMP je opravneni pro pristup a stejne to ve WinNT nefunguje.
Martin
----- Original Message -----
From: Libor Junek
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, May 17, 2000 4:21 PM
Subject: Re: BDE err WinNT
Tohle jsme take resily. Bud mate na vasich NT nedostatek mista na systemovem disku
nebo nemate pristup do TEMPu (pokud to bezi pod uctem SYSTEM tak by s tim pristupem
nemely byt problemy). Hlasi to pokud mate velke trideni prez polozku a Interbase si snazi udelat
odkladaci soubor do TEMPu a nelze mu vytvorit.
Libor Junek
Ahoj,
mam aplikaci kter� se pres BDE pripojuje do Interbase5.6. Ve Win95 chodi vse normalne, ale ve WinNT mi aplikace skonci chybou:
BDE err 13059
Server err -902
I/O error for file "/temp/iba00217".Error while trying to write to file.
The device does not recognize the command.
V aplikaci je pro pripojeni pouzita TDatabase a TQuery, pokud nactu mensi mnozstvi dat ve WinNT tak take neni problem ale pokud ma dotaz vratit vice zaznamu, tak aplikace konci vyse uvedenou chybou.
Preden dekuji za vsechny namety. Martin
prehravec Wav
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 18.5.2000 10:34:39
V delphi je na to primo komponenta TMediaPlayer. tam jenom nastavis potrebne
veci a muzes prehravat vse co Windows podporuji (nejenom WAVy ale i AVI
video , midi soubory a po upgradu media playeru i MP3). Vse je popsano v
helpu.
Jaromir Cermak
-----Original Message-----
From: Lubos Matejka [mailto:lmatejka(zv)satyr1.zcu(tec)cz]
Sent: Thursday, May 18, 2000 9:14 AM
To: delphi-l(zv)fwd(tec)cz
Subject: prehravec Wav
Cau lidi!!!
Jsem v delphi uplnej zacatecnik a chtel bych si zkusit udelat prehravac
wavu.
Pry to jde velice snadno ale nevim jak!
Mohl by mi nekdo z vas poslat jednoduchy prehravac wavu?
Jen play, end otevri soubor, ukonci program.
Dal uz bych si stim pohral!
Predem dekuji vsem!!!
Lubos
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
TListView
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.5.2000 11:11:12
Mam jeden mensi problem s TListView. Potrebujem implementovat hladanie textu v TListView (ViewStyle = vsReport, 3 stlpce). Samotne hladanie je bez problemov, pre ilustraciu prikladam kod (lsv je TListView a txt je hladany text):
for i:= lsv.Selected.Index+1 to lsv.Items.Count-1 do
if (Pos(txt, lsv.Items[i].Caption) > 0) or (Pos(txt, lsv.Items[i].SubItems[0]) > 0)
or (Pos(txt, lsv.Items[i].SubItems[1]) > 0) then
begin
lsv.Selected:= lsv.Items[i];
Exit;
end;
Application.MessageBox('Hladany text nebol najdeny.', 'Informacia',
MB OK+MB ICONINFORMATION);
Samotny problem je v tom, ze nastavenie lsv.Selected:= ... sice nastavi aktualnu polozku na tu ktoru chcem, ale samotny ListView sa nezaroluje a tym padom uzivatel nemusi uvidiet najdeny riadok. Vsetky ostatne podobne komponenty (TListBox, TCheckListBox, TStringGrid, TTreeView...) sa pritom pri zmene aktualnej polozky automaticky prisposobia tak, aby bola tato polozka viditelna. Je mozne TListView nejako donutit, aby v pripade potreby zaroloval (hoci aj zaslanim nejakej WinAPI spravy) ?
Diky MarCaNT gfx format CIT, znate to nekdo?
[*] petr.palicka(zv)atlas(tec)cz - 18.5.2000 11:20:40
ahoj vsici,
potreboval bych nacitat CIT soubory ve svem pgm. bohuzel, nikde nemohu sehnat popis formatu. mozna by mi stacila i nejaka knihovna nebo activex.
za jakekoli info predem dekuji
peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~prehravec Wav
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 18.5.2000 11:23:01
> Cau lidi!!!
> Jsem v delphi uplnej zacatecnik a chtel bych si zkusit udelat prehravac
> wavu.
> Pry to jde velice snadno ale nevim jak!
> Mohl by mi nekdo z vas poslat jednoduchy prehravac wavu?
> Jen play, end otevri soubor, ukonci program.
> Dal uz bych si stim pohral!
> Predem dekuji vsem!!!
>
Komponenta MediaPlayer
/LH
natahovat ruzne formaty do image (2)
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.5.2000 11:24:33
Bohuzial nie, ale ako som vravel, ak das do uses JPEG tak mozes pouzivat klasicky LoadFromFile aj na JPEG-y, a s GIF-mi cez RX to nebude ovela komplikovanejsie. Ale pokud si v Object Inspectoru muzu do image natahnout v dobe navrhu mimo jine i *.jpg, *.jpeg, *.gif, tak by to prece melo jit nejak jednoduse udelat i za behu programu. Treba prez zminovane LoadFromFile bez pouziti neceho jineho. Prece pokud to komponenta uz nejak umi, tak by to melo jit.Nebo ne? Proto by me zajimalo jak.
Zaplik
zaplik(zv)volny(tec)cz
>JPG (JPEG) su jednoduche, staci dat do uses JPEG (Tusim, ze to takto funguje od D4) a mas podporu pre citanie JPEG-ov. S GIF je to horsie, >ak vsak mas RX library, tak ta ma podporu pre GIF-y. Co sa tyka ostatnych formatov, skus pohladat po internete a nieco urcite najdes. MP3
[*] Vladim�r M�tl - 18.5.2000 11:49:23
jo da se to vypocitat, podle bitrate a dalsich informaci co se daj vycist z
hlavicky
na http://mp3.musichall(tec)cz
je sekce programming, kde je zdrojak prehravace mp3 v delphi, tam se muzes
inspirovat
Vlada
> Ahojky lidicky, sorry, za OTcko, ale uz nevim, kde bych to hledal. Da se
> nejak (popripade jak) zjistit delka MP3ky - myslim cas ne velikost.
> Pravdepodobne by to slo zjistit tak, ze bych postupne prosel celou MP3ku
> nacital jednotlivy bloky a z nich (podle kvality a delky) bych urcil
> delku cely MP3ky, prijde mi to, ale dost zdlouhavy - nejde to nejak
> jednodusejc.
> --
> Martin Pe�ava
TADOTable a TADOQuery v D5
[*] Petr Sadovsk� <petr(zv)slunce(tec)cz> - 18.5.2000 11:49:20
Ahojte,
chtel bych se zeptat, jestli se nekdo z Vas setkal s timto:
1) v nastaveni property ADOTable1.Filter:=Rozloha=promenna nebo
Rozloha<promenna nebo
Rozloha<>promenna
vsechno funguje, jak ma, ale kdyz dam znamenko > a vyraz vypada
takto Rozloha>promenna, tak mi vyhodi EOleException neco jako (ach ta
anglictin) Aplikace pouziva neplatny argument mimo pripustne rozmezi nebo je
v konfliktu s jinym. A ted vubec nechapu o co jde.
((( Connection string Provider=MSDASQL.1;Persist Security
Info=False;Mode=Read;Connect Timeout=15;Extended Properties="DSN=MS Access
97 Database;DBQ=C:\Otis\Data\dbdemos.m
db;DefaultDir=C:\Otis\Data;DriverId=281;FIL=MS Access;FILEDSN=C:\Program
Files\Common Files\ODBC\Data Sources\MS Access 97 Database (not
sharable).dsn;MaxBufferSize=2048;PageTimeout=5;UID=admin;";Locale
Identifier=1029)))
2) TADOQuery mi provede INSERT INTO Table1 (field1,field2)
values(prom1,prom2) , ale INSERT INTO Table1 (field1,field2) select
field3,field4 from table2 mi vyhodi EOleException sysntakticka chyba.
((( v tomto pripade je Connection string takto
Provider=MSDASQL.1;Persist Security Info=False;Mode=Read|Write;Connect
Timeout=30;Extended Properties="Driver={Microsoft Visual FoxPro
Driver};UID=;SourceDB=c:\Bolek;SourceT
ype=DBF;Exclusive=No;BackgroundFetch=Y
es;Collate=Machine;Null=Yes;Deleted=Yes;";Locale Identifier=1029) )))
Petr
P.S. D5 Entr.,W98, posledn� (doufam) MDAC
IIS nebo neco podobneho
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.2000 11:54:55
DDV,
rad bych na svem lokalnim pocitaci otestoval
muj cgi-script ci ISAPI knihovnu, jaky program
bych na to mohl pouzit ?
(jak uz to byva, neco maleho, nejradeji free.)
Dobra.Nahlady suborov Wordu a Excelu
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.5.2000 12:16:41
Vytvaram jeden program na archivaciu roznych dokumentov a chcel by som k jednotlivym archivovanym dokumentom priradzovat aj ich nahlad. Pre obrazky to nie je problem (jednoducho ukladam stretchnutu bitmapu), chcel by som vsak nieco podobne urobit aj pre ine dokumenty (aspon Word a Excel). Je mozne nejako (pomocou OLE?) ziskat nahlad dokumentu (napriklad ten ktory zobrazuje Otvorit dokument Office) vo forme bitmapy?TListView
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 18.5.2000 12:44:49
> Samotny problem je v tom, ze nastavenie lsv.Selected:= ...
> sice nastavi aktualnu polozku na tu ktoru chcem, ale
> samotny ListView sa nezaroluje a tym padom uzivatel
> nemusi uvidiet najdeny riadok.
TListView ma property ItemFocused, zkus ji nastavit
obe (Selected i ItemFocused).
Daniel
WAV Player
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 18.5.2000 12:51:43
Ahoj,
potrebuji dat dohromady prehravac WAVu, ktery by umel krome Play, Pause a
Stop taky posuv zpet a dopredu. Chtel bych pouzit MMSystem (waveOut...).
Nemate nekdo URL na nejake chytrosti o tomhle tematu (D5, W95/NT/2000) ?
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
natahovat ruzne formaty do image (2)
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 18.5.2000 12:51:18
> Ale pokud si v Object Inspectoru muzu do image natahnout
> v dobe navrhu mimo jine i *.jpg, *.jpeg, *.gif, tak by to prece
> melo jit nejak jednoduse udelat i za behu programu.
To zalezi na tom jake formaty mas registrovany. Jukni se
do Helpu a hledej RegisterFileFormat, GraphicFileMask,
GraphicFilter. Myslim ze pak ti uz budu zrejme jak je delany.
Neznam GIF z RX lib, ale JPEG, ktery je soucasti Delphi
(od verze 4 ?) staci dat do uses a on se zaregistruje sam.
Muzes si to zkontrolovat za behu pomoci vyse zminene
funkce GraphicFilter.
Daniel
Error pri Inserte
[*] Miroslav Hro��o�����,�(�j�Z��3 - 18.5.2000 13:19:52
Dobry,
Potreboval by som zistit ako sa da v skripte obist to aby pri inserte do tabulky, kde je uniqe kluc, nespadol a neskocil na koniec.
Pracujem v MSSQL 7.0 a v D5 Profesional.
Priklad :
INSERT INTO {tabulka} {Polia} Values {Hodnoty}
IF (zv)(zv)ERROR<>0
BEGIN
..................
END
Ak vkladam vetu s klucom, ktory sa tam uz nachadza, tak mi to skoci az na koniec skriptu a nevykona sa kod v nasledujucom IF-e.
Da sa tomu nejako zabranit, alebo treba vzdy pred tym kontrolovat ci sa tam uz dany kluc nachadza?TNMFTP & Proxy server
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 18.5.2000 13:21:50
Hi,
Mam problem s komponentou TNMFTP ( Delphi 5.0 + SP )
U zakaznika pracuje jiz dlouho, jen jsem komponentu polozil a
nastavil hosta, jmeno a heslo a uz jsem mohl dat connect, ted ale
problem jiny zakaznik ma proxy ( od 602 ) pridal jsem do nastaveni
FWAuthent... = True;
FWPassword
FWUserID
Proxy = IP Adresa proxy serveru
ProxyPort = 21
a ono to na connect hlasi acces violation read of adress FFFF..FC
pozor na konci skutecne C
Netusite co jeste nastavit ???
Diky predem, zadem uz nebudu smet.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
D4 Std. + Free IB komp.
[*] Milan Zajic <Milan.Zajic(zv)aitix(tec)cz> - 18.5.2000 13:57:35
Ahoj,
potreboval bych poradit - budou mi chodit Free IB komponenty na Delphi 4.0
Standard?
Diky Milan
IIS nebo neco podobneho
[*] Bobek <bobak(zv)minv.sk> - 18.5.2000 13:57:22
personal web server od microsoftu ...... nie je to nic prevratne ale funguje
to , tiez to pouzivam, alebo potom sambar server, na webe existuje miliarda
webserver clientov pre Wir98................
pws je addon na cd s oblokmi,zabera cca 20 Mb
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, May 18, 2000 11:54 AM
Subject: IIS nebo neco podobneho
> DDV,
>
> rad bych na svem lokalnim pocitaci otestoval
> muj cgi-script ci ISAPI knihovnu, jaky program
> bych na to mohl pouzit ?
> (jak uz to byva, neco maleho, nejradeji free.)
>
> Dobra.Pocet kopii
[*] peter(zv)volny(tec)cz - 18.5.2000 14:08:39
> Muze to souviset s tim, jaky je ovladac tiskarny. Jinak doporucuji
> stahnoutsi nejnovejsi verzi Quick reporty ze serveru www.qusoft.no
> <http://www.qusoft.no> . Verze dodavana na CD od Borlandu ma v tomto
> ohleduchyby.
>Jaromir Cermak
S ovladacem to nesouvisi, zkousel jsem to na ruznych pocitacich s ruznymi tiskarnami. Nefunguje mi to ani v D5, ale v D1 jsem to d�lal stejn� a tam to funguje. Potrebuji vzdy vytisknout dve kopie, ale pise to stale 1 v PrintDialogu, p�itom m�m v Coppies zadano, ze se to ma rovnat 2. Prirazuji to i pred volanim fce Execute. Nevite nekdo co s tim? Ted jsem si stahl ten Quick reporty, tak jeste zkusim tohle.
Diky vsem Petr Masek
Seznam bezicich aplikaci
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 18.5.2000 14:10:16
Ahoj,
mam pocit ze to tu uz blylo, ale nenasel jsem to.
Potrebuji udelat program, ktery pobezi v pozadi a nepujde snadno
"odstrelit".
To znamena, ze nebude videt v seznamu bezicich aplikaci po CTRL+ALT+DEL,
nebude mit polozku v "task baru" atd.
Diky
Michal Kus
StringGrid
[*] peter(zv)volny(tec)cz - 18.5.2000 14:30:10
Hi,
mam jeste jeden dotaz, da se nak v StringGridu vomezit pocet znaku v jednom sloupci stejne jako v Editu. Neco jako Edit1.MaxLength := 10; pro jeden sloupec? A nebo jestli se da sehnat naka komponen�ta, ktera to umi.
Diky Petr Masek
Seznam MDI Child oken
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 18.5.2000 14:36:35
Pokud u MainFormu nastavis FormStyle na fsMDIForm, pak si mize uvedene property MDIChildren a MDIChildCount nastavuje
MainForm sam.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================>
> Fajn tohle vim, ale v kterem okamziku pozna form, ktery ma na sobe menu
> zobrazujici seznam CHILD oken, ze ma pridat, ubrat v seznamu.
>
> Ahoj,
> >
> > Seznam ziskas pomoci vlastnosti TCustomForm.MDIChildren a TCustomForm.MDIChildCount
> >
> > Petr Vones, amatersky programator
> <<Soubor: marekhr.vcf>>