Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
IB6 - CHAR
[*] Jan Naiser <tua(zv)wo(tec)cz> - 8.8.2000 23:45:20
Preji pekny den,
mam-li v IB6 definovany field jako CHAR, napr. CHAR(20), doplnuji se mi
zprava mezery do max. poctu znaku. To je normalni nebo mam nekde chybu v
definici sloupce. Da se to nejak odstranit, abych tam mel jenom to, co
zadam?
Diky, Honza.
IB6 - CHAR
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 9.8.2000 00:47:01
Zdravim,
asi nectes tuhle konferenci jinak bys nasel odpoved. Viz. subj. MS SQL dne
8.8.
Tomas
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: Jan Naiser <tua(zv)wo(tec)cz>
Subject: IB6 - CHAR
> Preji pekny den,
>
> mam-li v IB6 definovany field jako CHAR, napr. CHAR(20), doplnuji se mi
> zprava mezery do max. poctu znaku. To je normalni nebo mam nekde chybu v
> definici sloupce. Da se to nejak odstranit, abych tam mel jenom to, co
> zadam?
>
> Diky, Honza.
>
>IB6 - CHAR
[*] L. ZITA <konference(zv)sales(tec)cz> - 9.8.2000 01:08:30
Behalf Of Jan Naiser
> mam-li v IB6 definovany field jako CHAR, napr. CHAR(20), doplnuji se mi
> zprava mezery do max. poctu znaku. To je normalni nebo mam nekde chybu v
> definici sloupce. Da se to nejak odstranit, abych tam mel jenom to, co
> zadam?
Pouzij typ VARCHAR, napr. VARCHAR(20).
Ludek
---
Odchoz� 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
TMonthCalendar.OnChange ?
[*] L. ZITA <konference(zv)sales(tec)cz> - 9.8.2000 03:14:30
Ahoj.
Mam problem s tim jak zachytit, ze uzivatel zmenil datum standardni
komponenty MonthCalendar.
Udalost OnChange tam proste chybi. Jak tedy na to mam jit ?.
Predem diky
Ludek
---
Odchoz� 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
Vyvolani chyby v MS SQL
[*] Ren� Otisk - 9.8.2000 07:20:36
Pres co k tomu pristupujes?
Sroub
> Ahoj
>
> Ja pouzivam raiserror v triggerech i ulozenych procedurach a zadny problem
> jsem s tim nemel.
> Vysledkem raiserror je, ze mi v Delphi vyskoci Exception, kterou zpracuji
a
> obvykle zavolam z Delphi Rollback.
>
> Lada
Driver pro fiktivni jednotku
[*] Milan Bursik <delphi(zv)advnet(tec)cz> - 9.8.2000 07:27:55
Bohuzel nestacilo, nebot potrebuji data tlacit s vlastniho File serveru -
vlastni protokol - vyssi bezpecnost a lepsi organizace prace se soubory.
Milan Bursik
----- Original Message -----
From: Zdeno Jasek <zdeno.jasek(zv)corinex.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, August 08, 2000 3:41 PM
Subject: Re: Driver pro fiktivni jednotku
> Ahoj,
> nestacilo by pouzit stare DOSovske SUBST na premapovanie adresara ako
jednotky
> a obsluhovat len obsah adresara?
> Zdeno
>
> Milan Bursik wrote:
>
> > Zdravim vsechny,
> >
> > nemate nekdo povedomost, kde se da sehnat nejaka ukazka nebo popis jak
> > udelat v D5, aby Windows 95/98 popr. NT v pruzkumniku videli napr.
jednotku
> > N:, kterou by obsluhoval muj program? Napr. jednotka N: je namapovana
jako
> > pristup pres ftp na nejaky ftp server.
> >
> > Dik za kazdou radu
> >
> > Milan
>Dockovani
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.8.2000 07:33:55
Ahojte,
mam maly problemek. Mam komponentu TFrame, ktera je zadokovana a samozrejme, ze ji lze i oddokovat. Problem je v tom,
jak zabranit aby v zadokovanem stavu nesla shodit na krizek.
Nevite nekdo jak to provest? Mam D5 Ent.
Diky
Martin
Vyvolani chyby v MS SQL
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.8.2000 07:43:12
> Ja pouzivam raiserror v triggerech i ulozenych procedurach a zadny
> problem jsem s tim nemel. Vysledkem raiserror je, ze mi v Delphi
> vyskoci Exception, kterou zpracuji a obvykle zavolam z Delphi
> Rollback.
Ja to taky tak (zatim chvili) delam, az na to, ze rollback volam jiz v
triggeru hned po raiserror. Ale jak rikam - zpocatku to nejak
nefungovalo a zacalo to samo od sebe az casem. Rad bych situaci
jeste proveril nekde na nejakem jinem MSSQL serveru, ze je
opravdu vse chodive.
David
Tisk obrazku
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.8.2000 07:59:48
D5
Potrebuji vytisknout 4 obrazky formatu 9x13cm na jednu stranku. Jedna se o JPG format. Uplne by mi stacila metoda formulare Print (ktera umi tisknout v dobre kvalite), pokud by ovsem formular sel natahnout na pozadovanou velikost. Pri tisku pres canvas tiskarny (pres StretchDraw) to sice jde, ale kvalita obrazku nic moc, o QuickReportu ani nemluvim.
Budu vdecny za kazde nakopnuti. Kdyz to umi Form, proc by to nemelo jit.
Jan Fiala
Vyvolani chyby v MS SQL
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.8.2000 08:03:12
On 8 Aug 2000, at 13:41, Ren� Otisk wrote:
> Diky. To je presne to, co jsem potreboval. Jeste se chci zeptat na
> parametry ve fieldu description v sysmessages. Ty tam asi nedostanu,
> ze (ale to uz bych ozelel)?
Dej si do procedury nejaky output parametr a nacpi to do nej - tedy
jestli jsem to spravne pochopil.
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
string property editor
[*] Radek Janu� <janus(zv)foresta(tec)cz> - 9.8.2000 08:20:32
Ahoj , potreboval bych poradit s jednou vec� :
M�m vlastn� datab�zovou komponentu , kter� m� property s n�zvem
DATASOURCE:TDATASOURCE
Tato komponenta m� property TableFields , kter� m� svuj String property
editor .
Tento editor spust� formul�rek do kter�ho by se mely naplnit n�zvy pol�
tabulky ,
kter� je pripojena na DATASOURCE .
Potreboval bych vedet jak se mu�u odk�zat z tr�dy StringPropertyEditoru
na property DATASOURCE , kterou m� tr�da t� datab�zov� komponenty.
Teda spustit z procedury EDIT (property editoru) neco jako
NazevKomp.Datasource.dataset.GetFieldNames(Nejaky TStringList)
D�ky moc za odpoved Radek
TDatasetAction
[*] Jan Naiser <tua(zv)wo(tec)cz> - 9.8.2000 08:25:28
O tom take uvazuju. Jenomze kdyz uz jsem na to narazil, zajima me to vlastne
uz jenom z principu. Nemam ted ale cas se tim moc zabyvat. :-)
Honza.
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, August 08, 2000 11:03 PM
Subject: Re: TDatasetAction
> From: "Jan Naiser" <tua(zv)wo(tec)cz>
> > chtel bych zmenit TDatasetActions tak, aby standartne (pri vlozeni do
> > ActionListu) zobrazovaly ceske Captions a ceske Hints. Pokud si ale
vytvorim
>
> Ahoj,
>
> nebylo by rozumejsi pak projekt lokalizovat ?
>
> Petr Vones, amatersky programator
>GetNamedSecurityInfo - otazka konverze API z C do
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 09.8.2000 08:29:42
> Vsechny parametry pocinaje ppsidOwner jsou MS oznacene jako [out] takze v
> pascalu musi byt deklarovany jako VAR (pripadne OUT).
... pripadne pointer, jak uz psal Petr Vones. Ale ony nejsou,
jenom me zajimalo, jestli to ma nejaky skryty smysl
nebo jeslti se prekladatel jenom upsal.
Ondrej Krajicek
Nahrada TTable pomoci TQuery
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.8.2000 08:35:23
Ahoj,
pokousim se o upravy starsi aplikace, psane v BDE proti MSSQL7
(BDE + ODBC). V aplikaci jsou pouzivany TQuery i TTable a je tam
hodne vazeb master - detail delanych pres BDE (jednak u TTable
pomoci MasterSource, to je v pohode, ale i u fieldu pomoci
properties LookupDataset a spol.).
Vynechme ted uvahy o vhodnosti pouzite metody - z ruznych
duvodu neni mozne aplikaci nejak casove rozsahle upravovat. Chtel
bych aspon nektere TTable nahradit TQuery. Vytvorim tedy TQuery
a nastavim vse vcetne fieldu tak, aby to odpovidalo puvodni TTable.
A ted prichazi problem: kdyz smazu komponentu TTable,
vyprazdni se i odpovidajici property u vsech komponent, ktere na
TTable odkazovaly, tedy zminene TField.LookupDataset a mozna i
dalsi.
Da se nejak zjistit, kde vsude se na zminenou komponentu
nekdo odkazuje?
Dik moc predem.
David
Blikani pri prekreslovani komponent
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 9.8.2000 08:36:15
Zdravim vsechny
Mam problem s jednou vlastni komponentou (tedy vlastne dvema). Jedna se o
komponentu TScrollingText, ktera posouva jine objekty zleva doprava v
zadanem casovem intervalu. Problem je takovy, ze
1. Omezeni je tak na 90 posouvanych objektu
2. Pri prekreslovani to straslive moc blika
Nevite prosim nekdo co s tim ??? Dost to specha, protoze to je hlavni
komponenta aplikace, kterou mam mit do 18.8 hotovou.
Diky
Milan Tomes
P.S.: Pripadne dalsi dotazy smerujte na mailto:Milan.Tomes(zv)haida(tec)cz
Tdbedit
[*] Petr Sladk� <sweet(zv)ksprogram(tec)cz> - 9.8.2000 08:40:38
Nefakcenko :((
A je�t� potreba ulozit zmeny az po zadani v�ech v�ci.
-----P�vodn� zpr�va-----
Od: Radek Janu� [SMTP:janus(zv)foresta(tec)cz]
Odesl�no: 8. srpna 2000 14:31
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Tdbedit
Zkus d�t na tubulku kterou ti zobrazuj� TableNamexxx.post;
A dej to t�eba na na exit toh editu jak z n�j odch�z� metoda
event(onExit).
radek
-----P�vodn� zpr�va-----
Od: Petr Sladk� <sweet(zv)ksprogram(tec)cz>
Komu: Delphi (el. adresa) <delphi-l(zv)fwd(tec)cz>
Datum: 8. srpna 2000 13:48
P�edm�t: Tdbedit
>M�m nasleduj�c� problem.
>Mam dva TBEdity.
>
>Vkladam udaje do TBEditu pomoci pastefromclipboard a kdy� prekliknu na
jinou polozku
>Nebo provedu pastefromclipboard do druheho TDBEditu tak se me udaje v tom
prvnim strati.
>
>Jinak kompletne. Mam Mdi aplikaci a z jednoho okna otviram druh�, tam
vyberu nejake udaje a ty potrebuju
>Dostat do volajiciho okna. Kvuli tomu volam Pastefromclipboard.
>Jestli je zna n�kdo nejakou lepsi metodu, rad to je�t� prepisu.
>Ja hledal v helpu a moc jsem neuspel.
>
>Dikes
>sweet
>
>
Velkost volneho miesta na diskoch > 2GB + delphi3
[*] MODROVSK� Daniel <modrovsky(zv)asset.sk> - 9.8.2000 08:52:57
Ahoj.
Mam Delphi3 C/S a potreboval by som vediet ako zistit velkost volneho
miesta na diskoch vacsich ako 2GB.
Problem je hlavne v tom ze funkcia :
function GetDiskFreeSpaceEx(lpDirectoryName: PChar; var
lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: Integer;
lpTotalNumberOfFreeBytes: PInteger): BOOL; stdcall;
vracia pocet volnych byteov ako Pinteger.Co je problem lebo vo win32api je
popis funkcie :
BOOL GetDiskFreeSpaceEx(
LPCTSTR lpDirectoryName, // pointer to directory name on disk of
interest
PULARGE_INTEGER lpFreeBytesAvailableToCaller, // pointer to
variable to receive free bytes on disk available to the caller
PULARGE_INTEGER lpTotalNumberOfBytes, // pointer to variable to
receive number of bytes on disk
PULARGE_INTEGER lpTotalNumberOfFreeBytes // pointer to variable to
receive free bytes on disk
);
Co vyzera tak ze to ma vracat velkost asi ako 64 bitovy integer.Da sa s
tym nieco robit ?
Dopredu dakujem.
Dano.Vyvolani chyby v MS SQL
[*] Ren� Otisk - 9.8.2000 09:56:22
Hi,
Zakerna otazka: neupgradoval jsi ODBCe (ja jeste pouzivam starej) a pak to
zacalo fungovat?
Sroub
> > Ja pouzivam raiserror v triggerech i ulozenych procedurach a zadny
> > problem jsem s tim nemel. Vysledkem raiserror je, ze mi v Delphi
> > vyskoci Exception, kterou zpracuji a obvykle zavolam z Delphi
> > Rollback.
>
> Ja to taky tak (zatim chvili) delam, az na to, ze rollback volam jiz v
> triggeru hned po raiserror. Ale jak rikam - zpocatku to nejak
> nefungovalo a zacalo to samo od sebe az casem. Rad bych situaci
> jeste proveril nekde na nejakem jinem MSSQL serveru, ze je
> opravdu vse chodive.
> David
Vyvolani chyby v MS SQL
[*] Ren� Otisk - 9.8.2000 10:00:37
Hi,
Pridat output parametry s nazvem tabulky a nazvem a vlastnikem database? Jo
to jsem uvazoval, ale MS SQL si tam dosazuje ty svoje parametry a me
zajimalo, jestli nestaci nekde nejak vygenerovat ty prislusne parametry,
nebo to musim rucne, ale tohle az tak neboli...
Sroub
On 8 Aug 2000, at 13:41, Ren� Otisk wrote:
> Diky. To je presne to, co jsem potreboval. Jeste se chci zeptat na
> parametry ve fieldu description v sysmessages. Ty tam asi nedostanu,
> ze (ale to uz bych ozelel)?
Dej si do procedury nejaky output parametr a nacpi to do nej - tedy
jestli jsem to spravne pochopil.
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
Nahrada TTable pomoci TQuery
[*] Ren� Otisk - 9.8.2000 10:04:51
Hi,
Mozna je to jen hloupy napad, ale co tak zkusit view as a text na formu a
tridu ttable nahradit tridou tquery? Pripadne mrknout na rozdily v mezi
rozdily v tech tridach a upravit to rucne...
Sroub
----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 09, 2000 8:35 AM
Subject: Nahrada TTable pomoci TQuery
> Ahoj,
>
> pokousim se o upravy starsi aplikace, psane v BDE proti MSSQL7
> (BDE + ODBC). V aplikaci jsou pouzivany TQuery i TTable a je tam
> hodne vazeb master - detail delanych pres BDE (jednak u TTable
> pomoci MasterSource, to je v pohode, ale i u fieldu pomoci
> properties LookupDataset a spol.).
> Vynechme ted uvahy o vhodnosti pouzite metody - z ruznych
> duvodu neni mozne aplikaci nejak casove rozsahle upravovat. Chtel
> bych aspon nektere TTable nahradit TQuery. Vytvorim tedy TQuery
> a nastavim vse vcetne fieldu tak, aby to odpovidalo puvodni TTable.
> A ted prichazi problem: kdyz smazu komponentu TTable,
> vyprazdni se i odpovidajici property u vsech komponent, ktere na
> TTable odkazovaly, tedy zminene TField.LookupDataset a mozna i
> dalsi.
> Da se nejak zjistit, kde vsude se na zminenou komponentu
> nekdo odkazuje?
>
> Dik moc predem.
>
> David
Tdbedit
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 9.8.2000 10:24:11
Ono je potreba pracovat primo s hodnotou fieldu,
na ktery je ten DBEdit navazan. Asi by stacilo
pristupovat k nemu pres metodu .AsString.
Text ze schranky by asi bylo potrebne brat pres
objekt Clipboard.
s pozdravem Otakar Milink
> -----P�vodn� zpr�va-----
>
>
> >M�m nasleduj�c� problem.
> >Mam dva TBEdity.
> >
> >Vkladam udaje do TBEditu pomoci pastefromclipboard a kdy�
> prekliknu na
> jinou polozku
> >Nebo provedu pastefromclipboard do druheho TDBEditu tak se
> me udaje v tom
> prvnim strati.
> >Nahrada TTable pomoci TQuery
[*] L. ZITA <konference(zv)sales(tec)cz> - 9.8.2000 10:32:29
Behalf Of David Lebeda
> Vynechme ted uvahy o vhodnosti pouzite metody - z ruznych
> duvodu neni mozne aplikaci nejak casove rozsahle upravovat. Chtel
> bych aspon nektere TTable nahradit TQuery. Vytvorim tedy TQuery
> a nastavim vse vcetne fieldu tak, aby to odpovidalo puvodni TTable.
> A ted prichazi problem: kdyz smazu komponentu TTable,
> vyprazdni se i odpovidajici property u vsech komponent, ktere na
> TTable odkazovaly, tedy zminene TField.LookupDataset a mozna i
> dalsi.
> Da se nejak zjistit, kde vsude se na zminenou komponentu
> nekdo odkazuje?
>
Ahoj.
Mozna je to hloupost a ve Tvem pripade to nepujde.
Ja jsem jednou predelaval hodne slozity formular
kde byla spousta TDBEdit na normalni TEdit. POstupoval jsem takhle :
1) V pas souboru zmenit deklarace (TDBEdit na DBEdit)
2) bez ukladani zacit editovat DFM soubor (prave tlacitko na formulari v
design modu -> view as text)
3) Zase zmenit deklarace , odstranit prebytecne property a dopsat chybejici
Nemel jsem zadny problem. Pochopitelne jsem to nezkousel s TTable a TQuery
tam to bude slozitejsi ale v zasade by to jit mohlo.
Ludek
---
Odchoz� 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
IB6.0 & autoincrement
[*] mkotaska(zv)atlas(tec)cz - 9.8.2000 10:54:28
Ahoj vsichni.
Prevadim svoji aplikaci z tabulek Paradoxu na IB6.0. Komponentou TIBOTable (IBObjects) vkladam zaznam do tabulky, ktera ma sloupecek ID, jehoz hodnota je vytvarena v triggeru generatorem. Potrebuji tesne po vlozeni zaznamu zjistit tuto hodnotu. Jde to udelat jinak, nez napriklad zavolat ulozenou proceduru, ktera vrati hodnotu generatoru? Nechtel bych po vlozeni zaznamu opet "sahat" do DB.
Dekuji za kazdy namet.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
Vyvolani chyby v MS SQL
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.8.2000 11:00:41
> Zakerna otazka: neupgradoval jsi ODBCe (ja jeste pouzivam starej) a
> pak to zacalo fungovat?
Otazka je opravdu zakerna, protoze to nevim. :) Ja cas od casu
ODBCe skutecne stahuju a delam upgrade, ale presny cas nevim.
Nicmene pokud si pamatuji, chybu, kterou poslal raiserror,
nezachytil ani Enterprise manager, zatimco ted ji zachyti. Ziskal
jsem proto tenkrat dojem, ze to s ODBCe nesouvisi.
David
Blikani pri prekreslovani komponent
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 9.8.2000 11:47:11
S tim prvnim ti neporadim, ale u toho druheho se da to blikani obejit tim,
ze nebudes kreslit primo na Canvas te komponenty, ale do pameti a pak se to
prenese pomoci BitBlt na Canvas te komponenty. BitBlt by se melo provadet
pri zatemnovacim impulsu a tim padem to neni videt. Jo a nezapomen zakazat
nejake defaultni mazani Canvasu, pokud tam nejake je (asi jako WM_ERASEBKGND
u formu), jinak to bude blikat i tak.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Milan Tomes [mailto:Milan.Tomes(zv)haida(tec)cz]
Sent: Wednesday, August 09, 2000 8:36 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Blikani pri prekreslovani komponent
Zdravim vsechny
Mam problem s jednou vlastni komponentou (tedy vlastne dvema). Jedna se o
komponentu TScrollingText, ktera posouva jine objekty zleva doprava v
zadanem casovem intervalu. Problem je takovy, ze
1. Omezeni je tak na 90 posouvanych objektu
2. Pri prekreslovani to straslive moc blika
Nevite prosim nekdo co s tim ??? Dost to specha, protoze to je hlavni
komponenta aplikace, kterou mam mit do 18.8 hotovou.
Diky
Milan Tomes
P.S.: Pripadne dalsi dotazy smerujte na mailto:Milan.Tomes(zv)haida(tec)cz
Dynamicke vytvaranie pola typu fkCalculated
[*] Flon <flon(zv)pobox.sk> - 9.8.2000 12:01:36
Zdravim !
Mam tabulku, ktora ma niekolko String poli v znakovej sade, ktoru mi zle zobrazuje. Vytvoril som nove polia typu fkCalculated (napr. xxx) a potom do eventu OnCalcFields Table1 som dal Table1xxx.Value:=Zmena(Table1.FieldByName('Text').AsString), pricom funkcia Zmena mi prekonvertuje zle citatelny text na dobry. Pridavanie novych poli nie je pre mna problem v design-time, neviem ich vsak vytvorit v run-time tak, ze ak tabulka ma nejake String polia, aby som tieto polia zneviditelnil a zaroven vytvoril rovnaky pocet fkCalculated poli, kde bude obsah tychto String poli prekonvertovany...
Skusal som taketo nieco:
with TStringField.Create(Table1) do begin
FieldName := 'xxx';
FieldKind:= fkCalculated;
DataSet := Table1;
Name := table1.Name + FieldName;
table1.FieldDefs.Add(Name, ftString, 30, false);
end;
vytvori mi to nove pole xxx, ale potom v DBGride mi zobrazi len pole xxx, pricom ja by som chcel aj vsetky ostatne (napr. Integer, Date...).
Neviete niekto poradit ako na to, pripadne iny postup riesenia...?
Za kazdu pomoc vdaka... Flon...IB 6 - EIBClientError - 'Unsupported feature'
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.8.2000 12:04:25
On 8 Aug 2000, at 23:04, Marek Spisak wrote:
> Moc bych potreboval poradit s jednou veci. Pouzival jsem InterBase 6
> Beta, vytvoril jsem nejake aplikace v Delphi 5 a C++ Builderu 5 a
> fungovali mi bezvadne (IBExpres ver. 4 a pozdeji 41). Po nainstalovani
> final verze IB 6 a updatu IBExpresu na ver. 42 uz nejsem schopen
> pridavat ani upravovat zaznamy. Pri pokusu o pridani zaznamu nebo
> jejich editaci mi vyskoci hlaska EIBClientError - 'Unsupported
> feature'. Nemam tuseni, co delam spatne, kazdopadne ani z delfinu, ani
> z cecka nemuzu nic. SQL server, ktery neumi pridavat a editovat
> zaznamy je sice hezka vec, ale celkem k nicemu. Uz jsem z toho
> zoufaly. Netusite nekdo nahodou, v cem jsem mohl udelat chybu?
Predpokladam (z dotazu to neni zrejme), ze programujes stylem,
ze pridavas a editujes zaznamy pres dbGrid nebo dbEdity. Pokud
ano, pak chyba neni v databazi, ale spise v komponentach.
Nejproblematicteji vidim ale zpusob pristupu k databazi.
Pokud pridavam ci edituji nejaka data v SQL databazi, pak tak
cinim vyhradne pres SQL prikazy. Data si edituji non-db
komponentach, a databazi posilam jen INSERT INTO
<tablename>... a UPDATE <tablename>... prikazy, nebo volam
ulozene procedury, ktere toto zajisti. Prime editace v db-aware
komponentach jsem ke sve velike spokojenosti zrusil. Musim sice
trosku vic programovat, ale zase ziskavam hromadu casu jinde,
kdyz nemusim resit problemy tveho razeni.
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
Select z Accessovskych tabuliek
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 9.8.2000 12:10:46
Ahoj !
Pristupujem z Deplhi k Accesovskej databaze pomocou nativneho driveru BDE.
Ak urobim SELECT z akejkolvek tabulky pomocou TQuery, tak mi tabulky, z
ktorych som robil vyber ostavaju otvorene (zistil som to tak, ze ich nemozem
preindexovat), pritom v TQuery nie je nastaveny RequestLive ani nic podobne.
Ak to napr. robim z paradoxovskymi tabulkami, nic take sa nestane. Ako mam
TQuery odpojit od dat, ale aby mi obsah vyberu zostal zachovany ?
Blikani pri prekreslovani komponent
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.8.2000 12:26:09
1. vytvor si bitmapu, ktera bude velikostne stejna s plochou na kterou chces
kreslit
takto:
Bmp:=TBitmap.Create;
with Bmp do begin
Width:=Mainform.width;
Height:=MainForm.Height;
2. kresli si do ni co chces
takto:
Canvas.FillRect(....);
3. az to budes mit, celou ji presun na formular
takto:
MainForm.Canvas.Draw(0,0,Bmp);
4. nezapomen ji na konci uvolnit
takto:
finally
Bmp.Free;
end;
5. pokud kreslis prilis casto, zkus si bitmapu vytvorit uz na zacatku a
usetris trosku casu s opetovnym vytvarenim.
Martin
kuchyn(zv)delphi(tec)cz
http://kuchyn.delphi(tec)cz
----- Original Message -----
2. Pri prekreslovani to straslive moc blika
string property editor
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 9.8.2000 13:02:21
From: "Radek Janus" <janus(zv)foresta(tec)cz>> M�m vlastn� datab�zovou komponentu , kter� m� property s n�zvem
> DATASOURCE:TDATASOURCE
> Tato komponenta m� property TableFields , kter� m� svuj String property
> editor .
> Tento editor spust� formul�rek do kter�ho by se mely naplnit n�zvy pol�
> tabulky ,
> kter� je pripojena na DATASOURCE .
> Potreboval bych vedet jak se muzu odk�zat z tr�dy StringPropertyEditoru
> na property DATASOURCE , kterou m� tr�da t� datab�zov� komponenty.
> Teda spustit z procedury EDIT (property editoru) neco jako
> NazevKomp.Datasource.dataset.GetFieldNames(Nejaky TStringList)
>
> D�ky moc za odpoved Radek
>
Lze to pres GetComponent(0), asi takto:
procedure TTableFields.Edit;
var I: Integer;
begin
with GetComponent(0) as TNazevKomp do
if Assigned(DataSource) then
if Assigned(DataSource.DataSet) then
for I := 0 to DataSource.DataSet.FieldCount - 1 do
NejakyTStringList.Add(DataSource.DataSet.Fields[i].FieldName);
end;
Vaclav Krmela
Dynamicke vytvaranie pola typu fkCalculated
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.8.2000 13:04:46
> Mam tabulku, ktora ma niekolko String poli v znakovej sade, ktoru mi
> zle zobrazuje. Vytvoril som nove polia typu fkCalculated (napr. xxx) a
> potom do eventu OnCalcFields Table1 som dal
> Table1xxx.Value:=Zmena(Table1.FieldByName('Text').AsString), pricom
> funkcia Zmena mi prekonvertuje zle citatelny text na dobry. Pridavanie
> novych poli nie je pre mna problem v design-time, neviem ich vsak
> vytvorit v run-time tak, ze ak tabulka ma nejake String polia, aby som
> tieto polia zneviditelnil a zaroven vytvoril rovnaky pocet
> fkCalculated poli, kde bude obsah tychto String poli
> prekonvertovany...
>
> Skusal som taketo nieco:
>
> with TStringField.Create(Table1) do begin
> FieldName := 'xxx';
> FieldKind:= fkCalculated;
> DataSet := Table1;
> Name := table1.Name + FieldName;
> table1.FieldDefs.Add(Name, ftString, 30, false);
> end;
>
> vytvori mi to nove pole xxx, ale potom v DBGride mi zobrazi len pole
> xxx, pricom ja by som chcel aj vsetky ostatne (napr. Integer,
> Date...). Neviete niekto poradit ako na to, pripadne iny postup
> riesenia...?
Ted strelim od boku, ale nemelo by se to delat misto pres
FieldDefs pres Fields? Navic me zaujal help k Fields.Add.
Pokud to je mimo, tak sorry.
David
OT: Chlazeni pocitace, jak jste asi jeste nevideli
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.8.2000 13:41:33
Moc se omlouvam za OT, ale mam takovou radost z toho, co se mi
povedlo, ze mi to neda, abych se nepochlubil.
Kdo chce videt pocitac na "zelvi" pohon, juknete sem:
http://www.techbox(tec)cz/clanek.asp?id=2182
:) Jaro
---------------------------------------------------------
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC
pro Simonu
[*] zbyna <sobanz(zv)seznam(tec)cz> - 09.8.2000 13:50:30
Dobry den,
ve svem programu, potrebuji za behu vytvaret komponenty, obecne standardni ovladaci prvky
pouzival jsem odkaz na tridu, jednotlive odkazy jsem si ulozil do souboru a nasledne nacital, tohle funguje jenom obsas, nedky nacetl odkaz na tridu spravne a nekdy ve tvaru My_Ref($41D800), pokud jsem pridal do sekce uses unity jednotlivych kontrolu vysledek je stejny nasledne potrebuju z odkazu vytvorit dany ovladaci prvek, a to pokud je to ve tvaru My_Ref($41D800) nejde
tady je kousek kodu kde jsem pouzival odkaz na tridu
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
My_Ref = class of TControl;
PoleKomp = array of My_Ref;
TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
ClassRef: TControlClass;
pk1: PoleKomp;
PoleNactenychKomp: PoleKomp;
procedure SaveToFile(FileName:string);
procedure LoadFromFile(FileName:string);
procedure Vytvor_tlac;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.SaveToFile(FileName:string);
var
cesta:string;
ft: file of My_ref;
i: integer;
begin
cesta:=ExtractFilePath(Application.ExeName);
AssignFile(ft,Cesta+FileName);
rewrite(ft);
for i:=0 to High(Form1.pk1) do
write(ft,Form1.pk1[i]);
closeFile(ft);
end;
procedure TForm1.LoadFromFile(FileName:string);
var
cesta:string;
ft: file of My_ref;
count: integer;
begin
cesta:=ExtractFilePath(Application.ExeName);
AssignFile(ft,Cesta+FileName);
reset(ft);
count:=1;
setlength(PoleNactenychKomp ,count);
repeat
setlength(PoleNactenychKomp ,count);
read(ft,PoleNactenychKomp[count-1]);
inc(count);
until eof(ft);
closeFile(ft);
end;
procedure TForm1.Vytvor_tlac;
var
ClassRef1: TControlClass;
MyName,
MyCap:string;
b: integer;
But: TButton;
begin
for b:=0 to High(PoleNactenychKomp) do
begin
But:=TButton.Create(self);
with But do
begin
ClassRef1:=poleNactenychKomp[b];
MyName:=ClassRef1.ClassName;
MyCap:=MyName;
delete(myCap,1,1);
Visible:=False;
parent:=self;
name:='Button_'+IntToStr(b);
Caption:=MyCap;
left:=150;
top:=(20+(b+1)*25 );
Visible:=True;
end;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
LoadFromFile('new.clr');
Vytvor_tlac;
end;
end.
--------------------
snad by to slo kdybych ukladal celou tridu daneho prvku, ale nevim jak na to
diky za kazdou radu
Instalace IB 6 pomoci IBInstall
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 9.8.2000 13:54:36
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
dobry den
Neresil jste nekdo prosim instalaci IB 6 pomoci komponenty IBInstall pripadne jinak ?
Mne se to pomoci IBInstall stale nedari nejak rozumne udelat. Bud jsem nepochopil princip, nebo je to totalne blbe naprogramovane.
Potrebuji jen nejak rozumne nainstalovat IB 6, ktery budu distribuovat spolu s aplikaci.
moc dekuji za kazdy napad
Pavel Bare�
Atoll s.r.o.
K Vi��ovce 1560
530 02 Pardubice
tel. 040 6310510
Blikani pri prekreslovani komponent
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 9.8.2000 15:05:20
Ja nemuzu takto nemuzu kreslit cely formular, ale pouze jednu komponentu,
ktera je posouvana. Zkusim co to udela, ale zajimalo by me co mam dat do
obsluhy te udalosti na mazani Canvasu, coz je rada, kterou mi doporucil p.
Brant
Diky
Milan Tomes
> 1. vytvor si bitmapu, ktera bude velikostne stejna s plochou na
> kterou chces
> kreslit
> takto:
> Bmp:=TBitmap.Create;
> with Bmp do begin
> Width:=Mainform.width;
> Height:=MainForm.Height;
>
> 2. kresli si do ni co chces
> takto:
> Canvas.FillRect(....);
>
> 3. az to budes mit, celou ji presun na formular
> takto:
> MainForm.Canvas.Draw(0,0,Bmp);
>
> 4. nezapomen ji na konci uvolnit
> takto:
> finally
> Bmp.Free;
> end;
>
> 5. pokud kreslis prilis casto, zkus si bitmapu vytvorit uz na zacatku a
> usetris trosku casu s opetovnym vytvarenim.
>
> 2. Pri prekreslovani to straslive moc blika
>Dynamicke vytvaranie pola typu fkCalculated
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 9.8.2000 15:06:24
Pokud chces jen zmenit text na jiny, mozna by bylo lepsi nadefinovat
vlastni proceduru a tu pak priradit pro potrebne fieldy do OnGetText.
Ja to tak pouzivam pro preklad zobrazenych dat.
Petr
-----Original Message-----
From: Flon [mailto:flon(zv)pobox.sk]
Sent: Wednesday, August 09, 2000 12:02 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Dynamicke vytvaranie pola typu fkCalculated
Importance: High
Zdravim !
Mam tabulku, ktora ma niekolko String poli v znakovej sade, ktoru mi zle
zobrazuje. Vytvoril som nove polia typu fkCalculated (napr. xxx) a potom do
eventu OnCalcFields Table1 som dal
Table1xxx.Value:=Zmena(Table1.FieldByName('Text').AsString), pricom funkcia
Zmena mi prekonvertuje zle citatelny text na dobry. Pridavanie novych poli
nie je pre mna problem v design-time, neviem ich vsak vytvorit v run-time
tak, ze ak tabulka ma nejake String polia, aby som tieto polia zneviditelnil
a zaroven vytvoril rovnaky pocet fkCalculated poli, kde bude obsah tychto
String poli prekonvertovany...
Skusal som taketo nieco:
with TStringField.Create(Table1) do begin
FieldName := 'xxx';
FieldKind:= fkCalculated;
DataSet := Table1;
Name := table1.Name + FieldName;
table1.FieldDefs.Add(Name, ftString, 30, false);
end;
vytvori mi to nove pole xxx, ale potom v DBGride mi zobrazi len pole xxx,
pricom ja by som chcel aj vsetky ostatne (napr. Integer, Date...).
Neviete niekto poradit ako na to, pripadne iny postup riesenia...?
Za kazdu pomoc vdaka... Flon...Preskok na definici/deklaraci v IDE Delphi
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 9.8.2000 15:19:12
Ahoj,
Delphi ve verzi 5 zavedli prima vec, kdyz v IDE stisknu Ctrl a kliknu na
identifikator tak me to prenese na definici pripadne deklaraci tohoto
identifikatoru. Ale zatim jsem nevypozoroval kdy me to hodi na definici a
kdy deklaraci, prijde mi to naprosto nahodne. Nevypozoroval nekdo z vas,
podle ceho se urci kam skok bude provedem.
Honza +
Select z Accessovskych tabuliek
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 9.8.2000 15:24:53
> Pristupujem z Deplhi k Accesovskej databaze pomocou nativneho driveru
> BDE. Ak urobim SELECT z akejkolvek tabulky pomocou TQuery, tak mi
> tabulky, z ktorych som robil vyber ostavaju otvorene (zistil som to
> tak, ze ich nemozem preindexovat), pritom v TQuery nie je nastaveny
> RequestLive ani nic podobne. Ak to napr. robim z paradoxovskymi
> tabulkami, nic take sa nestane. Ako mam TQuery odpojit od dat, ale aby
> mi obsah vyberu zostal zachovany ?
No ja nevim, ale rekl bych, ze pri pouziti BDE je tabulka otevrena
po celou dobu, kdy je active = true. A to i v Paradoxu. Proc myslis
ze ne?
Zrusit to spojeni v BDE asi nepujde. Dalo by se to obejit treba
pomoci memory table, tj. otevrit TQuery, vysledek presypat do
memory table, TQuery zavrit.
David
Blikani pri prekreslovani komponent
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.8.2000 15:33:13
> ktera je posouvana. Zkusim co to udela, ale zajimalo by me co mam dat do
> obsluhy te udalosti na mazani Canvasu, coz je rada, kterou mi doporucil p.
> Brant
Na mazani canvasu muzes zapomenout, neni nutne. Na zacatku si tedy vytvor
bitmapu
a do ni vloz bitmapu, ktera predstavuje formular pred zacatkem kresleni
Martin
Parametr v selectu v TQuery
[*] Petr Navr�til <DelphiForum(zv)Dssoft(tec)cz> - 9.8.2000 15:43:05
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
m�m takov� men�� probl�m, pot�eboval bych spustit n�co takov�ho p�es Query.ExecSQL :
(D5, Interbase)" insert into TAB1 select A, :Parametr1 from TAB2 where A = :Parametr2 "
kdy� napln�m oba parametry hodnotami a pak si je nech�m vypsat, vrat� spr�vnou hodnotu,
ale po proveden� p��kazu je TAB1 pr�zdn�, p�itom kdy� d�m m�sto Parametr1 natvrdo hodnotu nap�. 1,
tak se TAB1 napln� -->> tak�e to nen� omezuj�c� podm�nkou u where.
D�ky za ka�dou radu.
Petr Navr�til
OT: CGI-skripty na MS PWS
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 09.8.2000 16:50:45
Ahoj,
potrebujem na MS Personal Web Serveri spustat
CGI-skript (program napisany v Delphi), ale
nejak sa mi nedari.
Miesto spustenia skriptu ponukne dotycny
subor na downloadnutie.
Adresar s dotycnym skriptom, mam nastaveny
na zdielanie a aj v nastaveni prislusnej
Web Directory mam povoleny executing,
ale aj tak server nic nespusta.
Neporadi mi niekto co musim nastavit,
aby mi spustanie CGI-skriptov fungovalo ?
Peter
TOLEContainer - dotaz
[*] Jan Votroubek <jvotroubek(zv)NOTIA.CZ> - 9.8.2000 17:00:38
Mel bych dotaz -
Mam TOLEContainer, do kteryho jsem nacetl pomoci CreateObjectFromFile soubor
z wordu a pak pomoci SaveToStream ulozil do DB. To funguje dobre, natahnu z
DB pomoci LoadFromStream, spustim si word, udelam upravy, ulozim, OK.
Problem nastane v okamziku, kdy chci znovu vygenerovat ten word soubor.
SaveToFile i SaveAsDocument mi ulozi primo ten OLE objekt - proste hromadu
nepouzitelnejch zkomprimovanejch dat. Co s tim? Ja ten soubor potrebuju
poslat jako prilohu mailem pres MAPI... Mam D5 Prof.
Diky
JohnyQ Preskok na definici/deklaraci v IDE Delphi
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 9.8.2000 17:06:21
> Ahoj,
> Delphi ve verzi 5 zavedli prima vec, kdyz v IDE stisknu Ctrl a
kliknu na
> identifikator tak me to prenese na definici pripadne deklaraci
tohoto
> identifikatoru. Ale zatim jsem nevypozoroval kdy me to hodi na
definici a
> kdy deklaraci, prijde mi to naprosto nahodne. Nevypozoroval
nekdo z vas,
> podle ceho se urci kam skok bude provedem.
> Honza +
*** No me by spise zajimalo, jestli se ta sama akce da provest
pouze pomoci klavesnice, to jest bez mysi (ono to prehmataani
prece jen zdrzuje).
Petr
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]Program " Stay on TOP"
[*] Ond�ej Kolenat� <kolenaty(zv)supreme(tec)cz> - 9.8.2000 18:06:44
Vim ze to neni zrovna nejdrive ale narazil jsem na neco co by to mohlo
resit.
Staci dat FormStyle na fsStayOnTop a DefaultMonitor na dmPrimary. Alespon v
D4
Ondrej Kolenaty.
----- Original Message -----
From: "Str�n�k Franti�ek" <FStranik(zv)cpoj(tec)cz>
To: "DelphiKonference" <delphi-l(zv)fwd(tec)cz>
Sent: Monday, August 07, 2000 2:29 PM
Subject: Program " Stay on TOP"> Vazeni pratele,
>
> Prosim o radu, jak zajistim (zrejme API funkci), aby muj
program-(dialogov�
> okno) - byl po spusteni neust�le navrchu jako neaktivni (pripraveno pro
> klik) ze v�ech prave bezicich aplikaci.
> Priklad : spustim muj program, spustim nejaky avi soubor p�es celou
> obrazovku a muj program (okno) se ihned dostane p�ed video ale jako
> neaktivni, pouze pripraveno prijmout prikaz, po jeho� vykonani se ihned
> automaticky preda rizeni predtim aktivni aplikaci (napr. tomu avi
spuboru).
>
> P.S. samozrejme , ze moje okno ma nastavenou vlastnost StayOnTop.
>
> Diky za kazdou radu i namet.
>
> S pozdravem F.Stranik mail: FSTRANIK(zv)CPOJ.CZ
>Preskok na definici/deklaraci v IDE Delphi
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 09.8.2000 18:09:32
Ahoj,
Petr Vaclavek wrote:
>
> > Ahoj,
> > Delphi ve verzi 5 zavedli prima vec, kdyz v IDE stisknu Ctrl a
> kliknu na
> > identifikator tak me to prenese na definici pripadne deklaraci
> tohoto
> > identifikatoru. Ale zatim jsem nevypozoroval kdy me to hodi na
> definici a
> > kdy deklaraci, prijde mi to naprosto nahodne. Nevypozoroval
> nekdo z vas,
> > podle ceho se urci kam skok bude provedem.
> > Honza +
> *** No me by spise zajimalo, jestli se ta sama akce da provest
> pouze pomoci klavesnice, to jest bez mysi (ono to prehmataani
> prece jen zdrzuje).
Musel bys si to naprogramovat pomoci Open Tools API, nebo si koupit
CodeRush :-)
Tom
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
CGI-skripty na MS PWS
[*] Ing. Milan V�voda <milan.vyvoda(zv)kodytek(tec)cz> - 9.8.2000 18:27:19
Skripty mus� b�t um�st�ny v adres��i MS Personal Web Serveru. Personal Web
Server - vlastnosti - Administration - WWW administration - Directories a
pomoc� Edit nastavit vlastnost Access - Read i Execute.
----- Original Message -----
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 09, 2000 4:50 PM
Subject: OT: CGI-skripty na MS PWS
> Ahoj,
>
> potrebujem na MS Personal Web Serveri spustat
> CGI-skript (program napisany v Delphi), ale
> nejak sa mi nedari.
>
> Miesto spustenia skriptu ponukne dotycny
> subor na downloadnutie.
>
> Adresar s dotycnym skriptom, mam nastaveny
> na zdielanie a aj v nastaveni prislusnej
> Web Directory mam povoleny executing,
> ale aj tak server nic nespusta.
>
> Neporadi mi niekto co musim nastavit,
> aby mi spustanie CGI-skriptov fungovalo ?
>
> Peter
Blikani pri prekreslovani komponent
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 9.8.2000 18:40:48
> Ja nemuzu takto nemuzu kreslit cely formular, ale pouze jednu
> komponentu, ktera je posouvana. Zkusim co to udela, ale
> zajimalo by me co mam dat do obsluhy te udalosti na mazani
> Canvasu, coz je rada, kterou mi doporucil p. Brant
Mne se osvedcilo toto:
procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1.ControlStyle:=PaintBox1.ControlStyle+[csOpaque];
end;
Daniel
Preskok na definici/deklaraci v IDE Delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.8.2000 20:42:48
On 9 Aug 2000, at 15:19, Jan Krizek wrote:
> Delphi ve verzi 5 zavedli prima vec, kdyz v IDE stisknu Ctrl a kliknu
> na identifikator tak me to prenese na definici pripadne deklaraci
> tohoto identifikatoru. Ale zatim jsem nevypozoroval kdy me to hodi na
> definici a kdy deklaraci, prijde mi to naprosto nahodne. Nevypozoroval
> nekdo z vas, podle ceho se urci kam skok bude provedem.
IMHO - pokud je to v ramci jednoho zdrojaku, pak hleda smerem
nahoru. Jestlize narazi na definici, skoci na ni, jinak hleda
deklaraci. To je muj dojem.
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
Parametr v selectu v TQuery
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.8.2000 21:00:54
Jedinou cestu vidim vygenerovat prikaz do stringu a ten pak priradit
do Query.SQL.ADD(String)
Jan Fiala
----- Original Message -----
From: "Petr Navr�til" <DelphiForum(zv)Dssoft(tec)cz>
Ahoj,
m�m takov� men�� probl�m, pot�eboval bych spustit n�co takov�ho p�es
Query.ExecSQL :
(D5, Interbase)" insert into TAB1 select A, :Parametr1 from TAB2 where A = :Parametr2
"
kdy� napln�m oba parametry hodnotami a pak si je nech�m vypsat, vrat�
spr�vnou hodnotu,
ale po proveden� p��kazu je TAB1 pr�zdn�, p�itom kdy� d�m m�sto
Parametr1 natvrdo hodnotu nap�. 1,
tak se TAB1 napln� -->> tak�e to nen� omezuj�c� podm�nkou u where.
D�ky za ka�dou radu.
Petr Navr�til
Tisk obrazku na tiskarnu v slusne kvalite - reseni
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.8.2000 21:29:17
Nasledujici procedura vytiskne na tiskarnu obsah TImage ve stejne
velikosti jako je na formulari a ve slusne kvalite. Pouzity kod
pochazi castecne z TCustomForm.Print a castecne od P.Vonese z archivu
konference. Je treba dat si pozor na vycerpani systemovych prostredku
na W9x pri tisku velkych obrazku (napr. 1100 * 700 bodu). Pak se bez
jakychkoliv hlasek proste nic nevytiskne. Resenim je pak "rozrezat"
obrazek a na Printer.Canvas nakreslit postupne.
Jan Fiala
procedure TForm1.MyPrint;
var
Info: PBitmapInfo;
InfoSize: DWORD;
Image: Pointer;
ImageSize: DWORD;
Bits: HBITMAP;
DIBWidth, DIBHeight: Longint;
PrintWidth, PrintHeight: Longint;
FormImage : TBitmap;
DC: HDC;
Space : Integer;
begin
Printer.Title := 'Tisk obr�zku';
Printer.BeginDoc;
try
{ zmena toho co je v Image na Bitmapu, ktera je nutna pro zmenu na
DIB }
Screen.Cursor := crHourGlass;
FormImage := TBitmap.Create;
FormImage.Height := Image1.Height;
FormImage.Width := Image1.Width;
DC := FormImage.Canvas.Handle;
Image1.Perform(WM_ERASEBKGND, DC, 0);
Image1.Perform(WM_PAINT, DC, 0);
FormImage.Canvas.Lock;
try
{ Vykresleni Bitmapy na tiskarnu }
Bits := FormImage.Handle;
GetDIBSizes(Bits, InfoSize, ImageSize);
Info := AllocMem(InfoSize);
try
Image := AllocMem(ImageSize);
try
GetDIB(Bits, 0, Info^, Image^);
with Info^.bmiHeader do
begin
DIBWidth := biWidth;
DIBHeight := biHeight;
end;
PrintWidth := MulDiv(DIBWidth,
GetDeviceCaps(Printer.Handle,
LOGPIXELSX), PixelsPerInch);
PrintHeight := MulDiv(DIBHeight,
GetDeviceCaps(Printer.Handle,
LOGPIXELSY), PixelsPerInch);
{ zde dochazi k problemu vycerpani systemovych zdroju }
StretchDIBits(Printer.Canvas.Handle, 0, 0, PrintWidth,
PrintHeight, 0, 0,
DIBWidth, DIBHeight, Image, Info^, DIB_RGB_COLORS,
SRCCOPY);
finally
FreeMem(Image, ImageSize);
end;
finally
FreeMem(Info, InfoSize);
end;
finally
FormImage.Canvas.Unlock;
FormImage.Free;
end;
finally
Printer.EndDoc;
Screen.Cursor := crDefault;
end;
end;
Jan Fiala
ADONIS, ADODataSet, RecordSet - Jak zavrit a uvoln
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 9.8.2000 23:06:39
Zdravim Vas,
nevedel byste nekdo (Eriku), zda a jak lze zavrit a uvolnit otevreny
ADODataSet, aby pri tom zustal otevreny RecordSet, ktery je pod nim?
Duvod: Adonisy jsou pohodlnejsi pro Dotazy a Ulozene procedury (hlavne
parametry) nez ADO objekty (viz.problemy popsane v mem nasledujicim mailu).
Naproti tomu pri vicevrstve aplikaci, kdy Middle vrstva dava klientske
vrstve RecordSet, tak pokud pouziji v Middle vrstve Adonisovskou komponentu
pro praci s ulozenou procedurou, otevru RecordSet. Tak chci tu Adonisovskou
komponentu zavrit ale pritom ten RecordSet predat Client-vrstve.
(Pohodlnost predavani ADO RecordSetu mezi COMy byl jeden z hlavnich
argumentu diskuse ADO x OleDB.)
Dekuji za rady, Lada
ADO, Command, Ulozene Procedury, Refresh Parametru
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 9.8.2000 23:06:53
Ahoj,
nevim si rady s tim, jak nacist Parametry ulozene procedury do ADO objektu
Command aniz bych musel vsechny parametry rucne Creatovat.
Jako server pouzivam MS SQL 7.0 SP1.
Z internetovych stranek (mimochodem skvely odkaz je http://www.aspfree.com)
jsem vyrozumel, ze je to brnkacka a staci zavolat Command.Refresh.
Jenze to nefuguje.
Zde se jiz dokumentace lisi, nekde pisi, ze pokud to provider nepodporuje,
tak je vyvolana exception, jinde pisi, ze zustane Collection Parameters
prazdna. U mne nastava ten druhy pripad.
Myslel jsem, ze z Adonisu odkoukam, jak to tam Erik zvladl. Jenze pokud
pustim prikaz ADOStoredProc1.RetrieveParams; najednou (F8), tak se mi
parametry nactou spravne. Pokud jej cely odkrokuji pomoci F7, tak se take
zadne parametry nenactou !?? Divne.
Mozna delam nejakou pitomost. Diky za nakopnuti spravnym smerem.
V uvedenem kodu je na zacatku zakomentovany funkcni ekvivalent pomoci
Adonisovske komponenty.
Pote je muj nefunkcni pokus pres Command objekt.
Diky za rady, Lada
procedure TForm1.Button1Click(Sender: TObject);
var Co : ADO.Command;
RS : ADO.RecordSet;
lRecordsAffected : longint;
begin
{ ADOStoredProc1.RetrieveParams;
ShowMessage(IntToStr(ADOStoredProc1.Params.Count));
ADOStoredProc1.ParamByName('(zv)PROWCOUNT').AsInteger := 20;
ADOStoredProc1.Open;
ShowMessage(IntToStr(ADOStoredProc1.RecordCount));
ADOStoredProc1.Close;
}
Co := CoCommand.Create;
with Co do
begin
CommandType := adCmdStoredProc;
CommandText := 'spSMAZTest';
Set_ActiveConnection (ADODatabase1.ADOConnection); // DB je jiz davno
otevrena
Refresh;
ShowMessage('Params: '+IntToStr(Co.Parameters.Count)); // vypise vzdy:
0
Parameters.Get_Item(1).Value := 20; { ->exception, zkousel jsem to i
pres jmeno parametru, nepomohlo}
RS := Execute(EmptyParam, EmptyParam, adAsyncExecute or
adExecuteNoRecords);
ShowMessage(IntToStr(RS.RecordCount));
end;
end;
OT : CGI-skripty na MS PWS
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.8.2000 06:18:24
Dotaz. A mas nastavena na PWS prava na Execute na adresari, kde mas ten CGI script?
Pekny den a pilotum stastne pristani ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
ICQ:33630882
OK2 CLM
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: Peter Vlkovic [SMTP:vlkovic(zv)minv.sk]
> Odesl�no: 9. srpna 2000 16:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OT: CGI-skripty na MS PWS
>
> Ahoj,
>
> potrebujem na MS Personal Web Serveri spustat
> CGI-skript (program napisany v Delphi), ale
> nejak sa mi nedari.
>
> Miesto spustenia skriptu ponukne dotycny
> subor na downloadnutie.
>
> Adresar s dotycnym skriptom, mam nastaveny
> na zdielanie a aj v nastaveni prislusnej
> Web Directory mam povoleny executing,
> ale aj tak server nic nespusta.
>
> Neporadi mi niekto co musim nastavit,
> aby mi spustanie CGI-skriptov fungovalo ?
>
> Peter
>
CGI-skripty na MS PWS
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 10.8.2000 08:34:04
> potrebujem na MS Personal Web Serveri spustat
> CGI-skript (program napisany v Delphi), ale
> nejak sa mi nedari.
>
> Miesto spustenia skriptu ponukne dotycny
> subor na downloadnutie.
>
> Adresar s dotycnym skriptom, mam nastaveny
> na zdielanie a aj v nastaveni prislusnej
> Web Directory mam povoleny executing,
> ale aj tak server nic nespusta.
>
Ahoj.
Presne tento isty problem som mal aj ja.
Vyriesil som to prechodom na iny www server.
Apache je free a je neporovnatelne lepsi ako M$ Personal Web server.
/LH
Novy Delphi server
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 10.8.2000 08:43:27
Hello All!
http://ds.alt.ru
Zatial vo vystavbe, ale zda sa, ze autora to bavi a tak za rok moze byt
uzitocne mat ho v bookmarkoch.
Bye
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
M$ Word a tisk pomoci OLE
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.8.2000 09:20:28
Ahoj,
Tisku dokumenty pomoci OLE CreateOleObject('Word.Application') M$ Wordu.
Potreboval bych ale zpetnou informaci o tom, ze dokument je jiz vytisten.
Lze to nejak ziskat pomoci Variant promenne OLE objektu?
Diky za kazdou radu
Jaro B.OT: Net Meeting
[*] Peter Luk�cs <batex(zv)astrafren(tec)cz> - 10.8.2000 09:50:43
Zdravicko, omlouvam se za OT,ale nevite nekdo, jak zprovoznit MSNetMeeting?
Pri volani pocitace na lok. siti (volam ho emailem) se napise, ze pocitac
neni v siti nebo nema spusteny NM. Ten ale samosebou bezi. Nevite co s tim?
Dik.
Peta
Plug-in do Outlooku
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 10.8.2000 10:52:23
Hello,
nedelal jste nekdo nekdy plug-in do M$ Outlooku (97, 2000) ? Vim, ze to
jde, ale nenasel jsem k tomu nikde zadnou dokumentaci a chtel bych to
zkusit. Pokud mate nekdo treba odkaz nebo kus zdrojaku, byl bych moc
vdecny.... Pouzivam D5Ent, ale OLE komponenty, co tam jsou, mi na to
nestaci....
Diky moc.
S pozdravem a pranim hezkeho dne
Milan Schembera
Spravce IT
SPEKTRUM CZ a.s.
tel. +420-608-944444
http://www.spektrum(tec)cz
Problemy IB6
[*] R�bert Fujak <robof(zv)inmail.sk> - 10.8.2000 10:58:32
Zdravim Vas,
vysvetlite mi prosim co robim zle. Stiahol som si IB6 (subor: "InterBase WI-V6.0-server.ZIP"), nainstaloval, ale ako mam vytvorit databazu, popripade v com, ked v IBConsole to vyhadzuje: "DPB Constant (0) is unknown". ???
Dakujem.
S pozdravom Fujak, Robert
mailto:robof(zv)inmail.sk
ADO, Command, Ulozene Procedury, Refresh Parametru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.8.2000 11:02:27
On 9 Aug 2000, at 23:06, Ladislav Nagy wrote:
> procedure TForm1.Button1Click(Sender: TObject);
> var Co : ADO.Command;
> RS : ADO.RecordSet;
> lRecordsAffected : longint;
> begin
> Co := CoCommand.Create;
> with Co do
> begin
> CommandType := adCmdStoredProc;
> CommandText := 'spSMAZTest';
> Set_ActiveConnection (ADODatabase1.ADOConnection); // DB je jiz
> davno
> otevrena
//> Refresh;
Zde zkus Parameters.Refresh.
> ShowMessage('Params: '+IntToStr(Co.Parameters.Count)); // vypise
> vzdy:
> 0
> Parameters.Get_Item(1).Value := 20; { ->exception, zkousel jsem
> to i
> pres jmeno parametru, nepomohlo}
> RS := Execute(EmptyParam, EmptyParam, adAsyncExecute or
> adExecuteNoRecords);
> ShowMessage(IntToStr(RS.RecordCount));
> end;
> end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
InstalSheeld
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.8.2000 11:02:37
Jak (jakou syntaxi) se da IS vnutit cesta do instalacniho adresare ze
souboru SETUP.IIS?Grafika: vyplnovani texturou v perspektive
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 10.8.2000 11:15:23
Dobry den,
stahnul jsem si ze stranek Intelu knihovnu na zpracovani obrazku.
Krome jineho umi transformace potrebne pro zobrazeni textury v
perspektive. Nemohu vsak prijit na to, zda se da nejak snadno vyuzit
k vyplnovani texturou pro libovolne polygony.
Nemate s touto problematikou nekdo zkusenost? (Dobrou zkusenost?)
Potreboval bych dosti rychly algoritmus, ktery dokaze zadany polygon
vyplnit texturou tak, aby vysledek odpovidal tomu, co clovek normalne
v perspektive vidi (klasicke "dlazdice ubihajici a zmensujici se
smerem dozadu").
Diky,
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
ADONIS, ADODataSet, RecordSet - Jak zavrit a uvoln
[*] Erik Salaj <winsoft(zv)napri.sk> - 10.8.2000 11:16:07
> nevedel byste nekdo (Eriku), zda a jak lze zavrit a uvolnit otevreny
> ADODataSet, aby pri tom zustal otevreny RecordSet, ktery je pod nim?
Momentalne jedina moznost je pouzit ADORecordset property, tam
je mozne priradit externy recordset, resp. priradit nil a tym zabezpecit,
ze recordset nebude komponentom zatvoreny. Dalsia moznost je uprava
zdrojaka (napr. doplnit property, na zaklade ktorej potom recordset
zatvarat alebo nezatvarat). Dalsia moznost je pouzit v middle vrstve
ADO komponenty (su sucastou Adonisu), co je vlastne iba zapuzdrenie
ADO objektov do Delphi komponentov.
Erik Salaj, WINSOFT
HTMLeditor
[*] iturcan(zv)gamo.sk - 10.8.2000 11:24:41
Hi lidi,
nepozna niekdo ciste nahodou nejaku komponenticku ktora by dokazala WYSIWYG
editovanie HTML ?
tx
i.t.Problemy IB6
[*] azeleny(zv)csas(tec)cz - 10.8.2000 11:25:40
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
DDV
Sathnete si IB Console build 308.
http://www.interbase.com <http://www.interbase.com>
Tan najdete v FAQ KnownBugs a odkaz na soubor ke stazeni.
Holt je to Open projekt, tak ma sve mouchy:-)
Ales Zeleny
vysvetlite mi prosim co robim zle. Stiahol som si IB6 (subor:
"InterBase_WI-V6.0-server.ZIP"), nainstaloval, ale ako mam vytvorit
databazu, popripade v com, ked v IBConsole to vyhadzuje: "DPB Constant (0)
is unknown". ???
Dakujem.
S pozdravom Fujak, Robert
mailto:robof(zv)inmail.sk <mailto:robof(zv)inmail.sk>
Komponenta pro ACL
[*] Jan Krizek <krizek(zv)krizkules(tec)cz> - 10.8.2000 11:30:25
Ahoj,
nevite nekdo o komponente (spis asi celem baliku), ktera by podporovala
praci s Access Control Listy (ACL) po WinNT. Konkretne bych to ted
potreboval pro praci s Registrama, ale casem i pro soubory apod.
A ted jeste obecne, nezda se vam komponenty VCL dost odflaknute - oproti
tomu co umeji vlastni ovladaci prvky Windows. Nevite nekdo o takovem
rozrisereni komponent, ktere by plne vyuzivalo moznosti Win API. Mne
pripadne, ze je plno novych komponent, ktere se snazi byt "hezke", ale
funkcnosti hodne zaostavaji za Windows.
Pro ukazku napr. TListBox nema udalost na zmenu polozky, zmenit vybrane
polozky pri zapnutem MultiSelectu taky poradne nejde, protoze jediny pristup
je pres property Selected[] a to je udesne pomale. Dale properta Hint je
jenom polozka, ale pritom by se casto hodilo mit moznost ji podstrcit
programove atd... Hlavne ze Inprise chce pusobnost VCL rozsirit na unix,
kdyby radeji dotahli VCL pro Windows, nebo alespon povolili jeji
prekompilaci.
Honza +
IB6.0 & autoincrement
[*] azeleny(zv)csas(tec)cz - 10.8.2000 11:31:24
IB data access komonenty (IB Objects) (IBO_QUERY...) maji property
GeneratorLinks -- to je to co hledas.
Ovsem nelze pouzivat IBO -- tedy nelze pouzivat stavajici DB control-y, musi
se pouzit ty z IBObjects.
Ales Zeleny
> Ahoj vsichni.
> Prevadim svoji aplikaci z tabulek Paradoxu na IB6.0.
> Komponentou TIBOTable (IBObjects) vkladam zaznam do tabulky,
> ktera ma sloupecek ID, jehoz hodnota je vytvarena v triggeru
> generatorem. Potrebuji tesne po vlozeni zaznamu zjistit tuto
> hodnotu. Jde to udelat jinak, nez napriklad zavolat ulozenou
> proceduru, ktera vrati hodnotu generatoru? Nechtel bych po
> vlozeni zaznamu opet "sahat" do DB.ADOPlus,Problem s parametry
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 10.8.2000 11:55:54
Ahojte
Prosim o pomoc.
Mam nasledujici problem s komponentami ADOPlus (nadstavba ADOOexpres, ktera
obsahuje TADOPlusUpdateSQL):
Mam komponentu TADOPlusDataSet (potomek TADODataSetu) a k ni pripojenou
komponentu TADOPlusUpdateSQL. Pri zapisu vse funguj tak, ze se vytvori
TADOCommand, naplni se jeho CommandText, podle prislusneho prikazu v update
komponente a nyni zjistuji parametry. Viz kod:
Cmd := TADOCommand.Create(Self);
try
Cmd.CommandObject._Set_ActiveConnection(Command.CommandObject.Get_ActiveConn
ection);
Cmd.ParamCheck := False;
Cmd.CommandText := ASQL;
Cmd.CommandTimeout:=CommandTimeout;
{ Initialize parameter settings from the server if possible }
try
if Cmd.Parameters.Refresh and (Cmd.Parameters.Count = AParams.Count)
then
for I := 0 to AParams.Count - 1 do
begin
if Cmd.Parameters[I].DataType <> AParams[I].DataType then
Cmd.Parameters[I].DataType := AParams[I].DataType;
Cmd.Parameters[I].Value := AParams[I].Value;
end
else
Cmd.Parameters.Assign(AParams);
except
Cmd.Parameters.Assign(AParams);
end;
if Assigned(ResultSet) then
begin
RS := Cmd.Execute;
TDataSet(ResultSet^) := TADODataSet.Create(nil);
TADODataSet(ResultSet^).RecordSet := RS;
end else
begin
Cmd.ExecuteOptions := [eoExecuteNoRecords];
Cmd.Execute(Result, EmptyParam);
end
finally
Cmd.Free;
end;
Prikaz Refresh nenacte zadne parametry a program se je pokousi naplnit
prikazem Assign. Ten vsak skonci s chybou: The application has improperly
defined a Parameter object. Nevite, proc k teto chybe dochazi? Kdyz dam
stejny prikaz do ADOCommandu v navrhu, mam nastavenou connection, parametry
se korektne nactou. Nevite jak to ti borlandi delaji?
Predem dekuji za jakoukoliv radu.
Jaromir Cermak
Net Meeting
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 10.8.2000 12:32:38
ahoj,
problemy sem mel na rozdilnych verzich Netmeetingu, pro dobrou komunikaci
museji byt stejne verze. Mel bys mit spravne rozchozen TCP/IP protokol a
nastaven ho jako vychozi, v Netmeetingu nastavenou pouze mistni sit a pak
zavolat jmeno compu.
Z nevysvetlitelnych duvodu me vsak na jednom compu nefungovala jedna slozka
komunikace (nesly odesilat UDP pakety jednim programem) -> pomohlo but
prendat sitovku do jineho slotu nebo preinstalovat OS win98SE (uz nevim co z
toho)
M.Jirman
----- Original Message -----
From: "Peter Luk�cs" <batex(zv)astrafren(tec)cz>
To: "Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 10, 2000 9:50 AM
Subject: OT: Net Meeting
> Zdravicko, omlouvam se za OT,ale nevite nekdo, jak zprovoznit
MSNetMeeting?
> Pri volani pocitace na lok. siti (volam ho emailem) se napise, ze pocitac
> neni v siti nebo nema spusteny NM. Ten ale samosebou bezi. Nevite co s
tim?
> Dik.
> Peta
>
>Komponenta pro ACL
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 10.8.2000 12:46:41
Jan Krizek wrote:
>
> Ahoj,
>
> nevite nekdo o komponente (spis asi celem baliku), ktera by podporovala
> praci s Access Control Listy (ACL) po WinNT. Konkretne bych to ted
> potreboval pro praci s Registrama, ale casem i pro soubory apod.
Na tohle asi nebudou komponenty to prave orechove (zbytecny overhead).
Daleko lepsi budou zrejme "ciste" objekty. Nekde sem neco takoveho
videl ale ted si nevzpomenu, zkus Torry's.
Uz sem si vzpomnel :)): http://www.jgsoftware.com/nt.htm,
nevim jestli je to presne to co hledas, ale doufam
ze to pomuze alespon do zacatku.
> A ted jeste obecne, nezda se vam komponenty VCL dost odflaknute - oproti
> tomu co umeji vlastni ovladaci prvky Windows. Nevite nekdo o takovem
> rozrisereni komponent, ktere by plne vyuzivalo moznosti Win API. Mne
> pripadne, ze je plno novych komponent, ktere se snazi byt "hezke", ale
> funkcnosti hodne zaostavaji za Windows.
Taky bych rekl. Predme me irituje ten pristup narvat vsechno
do komponent a do objektu. Nerikam, v pripade uzivatelskeho rozhrani
a databazi maji komponenty jiste svuj smysl, stejne tak jako
proudove a kontejnerove tridy jsou peknym prikladem vyuziti
objektu, ale zapouzdrovat kritickou sekci nebo event do objektu
a jeste takovym zpusobem jak to dela VCL, to uz je na povazenou :).
s pozdravem,
Ondrej Krajicek
Problemy IB6
[*] �ampulka Ji�� - 10.8.2000 12:54:27
St�hni si IBConsole build 308...
----- P�vodn� zpr�va -----
Od: R�bert Fujak
Komu: Delphi-L(zv)Fwd.Cz
Odesl�no: 10. srpna 2000 10:58
P�edm�t: Problemy IB6
Zdravim Vas,
vysvetlite mi prosim co robim zle. Stiahol som si IB6 (subor: "InterBase WI-V6.0-server.ZIP"), nainstaloval, ale ako mam vytvorit databazu, popripade v com, ked v IBConsole to vyhadzuje: "DPB Constant (0) is unknown". ???
Dakujem.
S pozdravom Fujak, Robert
mailto:robof(zv)inmail.sk
Predavani mezi okny
[*] Petr Sladk� <sweet(zv)ksprogram(tec)cz> - 10.8.2000 13:07:33
Je okno, z toho se vytvori druhe okno, pri kliku na tlacitko v druhem okne(stayontop)
Obsah editu dostat do editu v prvnim okne a zavrit.
Prozatim to resim pomoci klipboardu, ale nen� jeste nejaka lepsi metoda.
Uvitam kazde navrhy.
vytvareni komponent za behu
[*] zbyna <sobanz(zv)seznam(tec)cz> - 10.8.2000 13:18:20
Dobry den,
ve svem programu, potrebuji za behu vytvaret komponenty, obecne standardni ovladaci prvky
pouzival jsem odkaz na tridu, jednotlive odkazy jsem si ulozil do souboru a nasledne nacital, tohle funguje jenom obsas, nedky nacetl odkaz na tridu spravne a nekdy ve tvaru My_Ref($41D800), pokud jsem pridal do sekce uses unity jednotlivych kontrolu vysledek je stejny nasledne potrebuju z odkazu vytvorit dany ovladaci prvek, a to pokud je to ve tvaru My_Ref($41D800) nejde
tady je kousek kodu kde jsem pouzival odkaz na tridu
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
My_Ref = class of TControl;
PoleKomp = array of My_Ref;
TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
ClassRef: TControlClass;
pk1: PoleKomp;
PoleNactenychKomp: PoleKomp;
procedure SaveToFile(FileName:string);
procedure LoadFromFile(FileName:string);
procedure Vytvor_tlac;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.SaveToFile(FileName:string);
var
cesta:string;
ft: file of My_ref;
i: integer;
begin
cesta:=ExtractFilePath(Application.ExeName);
AssignFile(ft,Cesta+FileName);
rewrite(ft);
for i:=0 to High(Form1.pk1) do
write(ft,Form1.pk1[i]);
closeFile(ft);
end;
procedure TForm1.LoadFromFile(FileName:string);
var
cesta:string;
ft: file of My_ref;
count: integer;
begin
cesta:=ExtractFilePath(Application.ExeName);
AssignFile(ft,Cesta+FileName);
reset(ft);
count:=1;
setlength(PoleNactenychKomp ,count);
repeat
setlength(PoleNactenychKomp ,count);
read(ft,PoleNactenychKomp[count-1]);
inc(count);
until eof(ft);
closeFile(ft);
end;
procedure TForm1.Vytvor_tlac;
var
ClassRef1: TControlClass;
MyName,
MyCap:string;
b: integer;
But: TButton;
begin
for b:=0 to High(PoleNactenychKomp) do
begin
But:=TButton.Create(self);
with But do
begin
ClassRef1:=poleNactenychKomp[b];
MyName:=ClassRef1.ClassName;
MyCap:=MyName;
delete(myCap,1,1);
Visible:=False;
parent:=self;
name:='Button_'+IntToStr(b);
Caption:=MyCap;
left:=150;
top:=(20+(b+1)*25 );
Visible:=True;
end;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
LoadFromFile('new.clr');
Dobry den,
ve svem programu, potrebuji za behu vytvaret komponenty, obecne standardni ovladaci prvky
pouzival jsem odkaz na tridu, jednotlive odkazy jsem si ulozil do souboru a nasledne nacital, tohle funguje jenom obsas, nedky nacetl odkaz na tridu spravne a nekdy ve tvaru My_Ref($41D800), pokud jsem pridal do sekce uses unity jednotlivych kontrolu vysledek je stejny nasledne potrebuju z odkazu vytvorit dany ovladaci prvek, a to pokud je to ve tvaru My_Ref($41D800) nejde
tady je kousek kodu kde jsem pouzival odkaz na tridu
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
My_Ref = class of TControl;
PoleKomp = array of My_Ref;
TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
ClassRef: TControlClass;
pk1: PoleKomp;
PoleNactenychKomp: PoleKomp;
procedure SaveToFile(FileName:string);
procedure LoadFromFile(FileName:string);
procedure Vytvor_tlac;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.SaveToFile(FileName:string);
var
cesta:string;
ft: file of My_ref;
i: integer;
begin
cesta:=ExtractFilePath(Application.ExeName);
AssignFile(ft,Cesta+FileName);
rewrite(ft);
for i:=0 to High(Form1.pk1) do
write(ft,Form1.pk1[i]);
closeFile(ft);
end;
procedure TForm1.LoadFromFile(FileName:string);
var
cesta:string;
ft: file of My_ref;
count: integer;
begin
cesta:=ExtractFilePath(Application.ExeName);
AssignFile(ft,Cesta+FileName);
reset(ft);
count:=1;
setlength(PoleNactenychKomp ,count);
repeat
setlength(PoleNactenychKomp ,count);
read(ft,PoleNactenychKomp[count-1]);
inc(count);
until eof(ft);
closeFile(ft);
end;
procedure TForm1.Vytvor_tlac;
var
ClassRef1: TControlClass;
MyName,
MyCap:string;
b: integer;
But: TButton;
begin
for b:=0 to High(PoleNactenychKomp) do
begin
But:=TButton.Create(self);
with But do
begin
ClassRef1:=poleNactenychKomp[b];
MyName:=ClassRef1.ClassName;
MyCap:=MyName;
delete(myCap,1,1);
Visible:=False;
parent:=self;
name:='Button_'+IntToStr(b);
Caption:=MyCap;
left:=150;
top:=(20+(b+1)*25 );
Visible:=True;
end;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
LoadFromFile('new.clr');
Vytvor_tlac;
end;
end.
--------------------
snad by to slo kdybych ukladal celou tridu daneho prvku, ale nevim jak na to
diky za kazdou radu
end;
end.
--------------------
snad by to slo kdybych ukladal celou tridu daneho prvku, ale nevim jak na to
diky za kazdou radu OT Konverze *.HLP do *.CHM
[*] sup(zv)svitap(tec)cz - 10.8.2000 13:39:32
Dobry den, jak nejjednoduseji provest %subj% ??
Dekuji predem za namety
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
OT Konverze *.HLP do *.CHM
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 10.8.2000 13:44:26
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
zdravim vespolek.
zaujimalo by ma ako mozem vyvolat spojenie modemu s provajderom. ide o soft
na posielanie davok udajov pomocou e-mailu, po pevnej linke to beha ale
obavam sa ze pri spojeni modemom treba este nieco viac doprogramovat ;o).
dik
WM_COPYDATA
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.8.2000 13:54:35
Ahoj,
nevite, prosim, kde najdu nejaky funkcni priklad na WM_COPYDATA (pro dve
aplikace v Delphi), nejlepe pro D3
Diky
Jaro B.WM_COPYDATA
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.8.2000 14:10:24
Ahoj,
v knize MS v Delphi 3 nebo Ti muzu poslat unitku, ktera to umi (v podstate
jsem ji opsal z uvedene knihy).
Slavek
> Ahoj,
> nevite, prosim, kde najdu nejaky funkcni priklad na WM_COPYDATA (pro dve
> aplikace v Delphi), nejlepe pro D3
> Diky
> Jaro B.
>
>
TApplicationEvents a WM_SYSCOMMAND
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 10.8.2000 14:23:02
Zdravim vsechny,
Mel jsem v aplikaci obsluhu WM_SYSCOMMAND vsech formu udelanou pres
TApplicationEvents.OnMessage. Ted jsem pridal pomoci Application.CreateForm
novy formular fsStayOnTop s TWebBrowser komponentou a
TApplicationEvents.OnMessage udalost se vubec nezaktivuje. Udalost
TApplicationEvents.OnHint vsak slape vesele dal. Chyba (nebo tkzv.
specifikum ?) tedy musi byt nekde ve zpracovani zprav.
Nevi nekdo cim, by to mohlo byt, nebo alespon jak na to prijit?
diky predem
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
OT Konverze *.HLP do *.CHM
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.8.2000 14:43:03
1. pokud mas zdrojovy text (RTF + seznam temat), pouzij HTMLWorkShop od MS (zdarma na jejich WEBu)
2.pokud mas pouze HLP a CNT soubory, pouzij dekompilator helpu a bod 1.
Jan Fiala
----- Original Message -----
From: <sup(zv)svitap(tec)cz>> Dobry den, jak nejjednoduseji provest %subj% ??
>
> Dekuji predem za namety
>
> Jaroslav Weiss
> odd. informatiky
>
> SVITAP J.H.J. s.r.o.
> Kijevska 6-8
> SVITAVY
> 568 02
>
> tel: ++420-461-568 202
> fax: ++420-461-568 300
> E-mail: sup(zv)svitap(tec)cz
> URL: www.svitap(tec)cz
> FTP: ftp.svitap(tec)cz
> Predavani mezi okny
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 10.8.2000 14:57:38
> Je okno, z toho se vytvori druhe okno, pri kliku na tlacitko v druhem
> okne(stayontop)
> Obsah editu dostat do editu v prvnim okne a zavrit.
>
> Prozatim to resim pomoci klipboardu, ale nen� jeste nejaka lepsi metoda.
>
vo form2 treba natiahnut hlavickovy subor formu1
Form2->OnClose()
{
Form1->Edit1->Text = Form2->Edit1->Text;
}
pisem to z hlavy, takze mozno je tam niekde chybicka.
/LH
Predavani mezi okny
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 10.8.2000 15:07:19
Neni problem, my byvali Ceckari jsme si toho uzili...
V okne TOkno1 mas asi uses Okno2, takze ve tride TOkno1 mas k dispozici
promennou Okno2 a zrejme nekde pises Okno2.ShowModal nebo jen Show. Staci v
te tride TOkno2 napsat uses Okno1 (ale az ZA implementation), tim padem mas
k dispozici instanci tridy TOkno1 a staci pak napsat na kliku toho tlacitka
Okno1.Edit1.Text:=Edit1.Text, pak Close a hotovo.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Petr Sladk� [mailto:sweet(zv)ksprogram(tec)cz]
Sent: Thursday, August 10, 2000 1:08 PM
To: Delphi (el. adresa)
Subject: Predavani mezi okny
Je okno, z toho se vytvori druhe okno, pri kliku na tlacitko v druhem
okne(stayontop)
Obsah editu dostat do editu v prvnim okne a zavrit.
Prozatim to resim pomoci klipboardu, ale nen� jeste nejaka lepsi metoda.
Uvitam kazde navrhy.Tipy do Delphi - namitka
[*] Daniel Krej�� - 10.8.2000 15:42:31
Toto je specialne pro Petra V�clavka - autora programu Tips & Tricks
Mel bych malou namitku, neni fatalni, ale kritika musi byt. Nevim jestli to
ostanim take dela, ale me docela vadi, ze pri prepinani pres Alt+Tab a
normalne pres titulek se to nechce prepnout. Sice se program deaktivuje a
aktivuje ten druhy, ale zustane navrchu. Ale pokud prepinam pres hlavni
panel, tak je vsechno v pohode. Mohl bys to zkusit omrknout a kdyztak dat do
poradku. Nevim jestli to muze byt W98, at se ostatni take vyjadri.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Fredy Crueger (alias Daniel Krej�i)
www: fredy.kgb(tec)cz
e-mail: fredycrueger(zv)volny(tec)cz
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
WM_COPYDATA
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.8.2000 15:53:11
Muzu ti poslat utilitku, ktera obstarava tuhle message vcetne ladicich informaci, tj. muzes si zapnout, ze chces,
aby Ti prijemce nebo odesilatel zobrazil, co prijal, nebo prip. odeslal.
Pekny den a pilotum stastne pristani ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
ICQ:33630882
OK2 CLM
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: Slavek Rydval [SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 10. srpna 2000 14:10
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: WM_COPYDATA
>
> Ahoj,
>
> v knize MS v Delphi 3 nebo Ti muzu poslat unitku, ktera to umi (v podstate
> jsem ji opsal z uvedene knihy).
>
> Slavek
>
> > Ahoj,
> > nevite, prosim, kde najdu nejaky funkcni priklad na WM_COPYDATA (pro dve
> > aplikace v Delphi), nejlepe pro D3
> > Diky
> > Jaro B.
> >
> >
>
>
>
IB a INSERT
[*] R�bert Fujak <robof(zv)inmail.sk> - 10.8.2000 16:45:00
Zdravim,
prosim Vas ako je to s INSERT/UPDATE v Delphi.
Tabulka: CREATE TABLE SKUSKA(ID INTEGER NOT NULL, POPIS VARCHAR(20), PRIMARY KEY (ID))
ID je generovane pomocou "Trigger".
Mam jednoduchy formular:
IBDatabase, IBQuery, IBUpdateSQL, IBTransaction.
IBQuery: SELECT ID, POPIS FROM SKUSKA
IBUpdateSQL->Insert: INSERT INTO SKUSKA (ID, POPIS) VALUES (:ID, :POPIS);
mozete mi prosim niekto napisat(poslat na sukromny mail) kusok kodu ako pridavat zaznamy do tabulky cez komponentu TEdit a TDBEdit, ked ta hodnota ID je generovana priamo v databaze a mne vypisuje aby som ju v IBQuery zadaval.
Pouzivam:
ibquery1.Append;
ibquery1.FieldByName('POPIS').AsString := Edit1.Text;
ibquery1.Post;
ibquery1.applyUpdates;
, co je asi blbost.
Pozn. nemam skusenosti s IB a C/S.
Dakujem.
S pozdravom Fujak, Robert
mailto:robof(zv)inmail.sk
Popis .ICO a .CUR
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.8.2000 17:08:21
Ahoj all,
mate nekdo (nebo vite, kde se to schovava) popis souboru .ICO a
.CUR?
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
Problem s focusom v RXLib komponentach
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 10.8.2000 17:12:12
Prajem prijemny podvecer :) Mam ZAVAZNY problem s RXLib komponentami:
Potrebujem kontrolovat obsah a uzivatela pustit dalej, len ked je udaj
spravny.
(Napr. (a vid dole) nepustim uzivatela na CE2, pokial nezadal kladne
cislo v CE1.)
Majme dve komponenty napr. TCurrencyEdit - CE1 a CE2
a nasledovny kod:
proc CE1OnExit(...);
if CE1.Value < 0 then CE1.SetFocus;
end;
FUNGUJE korektne
ALE (a teraz to pride:)
proc CE1OnExit(...);
if CE1.Value < 0 then
begin
ShowMessage('zaporna hodnota');
CE1.SetFocus;
end;
end;
Funguje: LEN ak prenesiem focus pomocou klavesnice
(napr. v CE1OnKeyPress: if Key=#13 then CE2.SetFocus).
NEFUNGUJE, ak zmenim focus myskou :(
Celkovy stav je taky, akoby si CE2 myslelo, ze len co sa v ramci plochy
formulara (a to dokonca v ramci celej MDI aplikacie, uff) klikne lavym
tlacitko mysi, je to focus na neho - co samozrejme ma za nasledok opatovnu
kontrolu toho, ci CE1.Value < 0, pretoze ActiveControl formulara je (!!!)
CE1 a CE1 reaguje a prijima vstup z klavesnice (!!!).
(Ma RXLib nejake vnutorne struktury, kde si nieco uchovava ohladom
focusu?)
A nakoniec: ked pouzivam TEdit, je to VZDY funkcne.
D5 Prof, NT 4, RX 2.75
Za zachranne kolesa vopred dakujem
Ondrej
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]instalace s Interbase - ukonceni
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 10.8.2000 17:15:22
Heinisch Jiri wrote:
> �ampulka Ji�� <campulka(zv)czas(tec)cz>
>
> > Pokud jde o to u klienta nainstalovat Interbase Server tak hledej v
> Dokumentaci
> > k IB - Install API
> >
>
> ahoj
>
> diky za nakopnuti, Sice jsem si prohlizel postup k instalaci severu IB 5.5
> ale jak to tak vypada budu se muset rozloucit s myslenkou o bezboleste a
> automaticke instalaci aplikace s pouzitim IB6.
> Asi se nyni cpu do jineho sveta :-)
Ahoj,
nevzdavaj to. Ja som urobil instalaciu v InstallShielde pre IB5.5 a bolo to
bez problemov. Pozri si install.log (alebo nieco take) v adresari, kde sa ti
nainstalovala Interbase a podla toho zistis, co vsetko k instalacii potrebujes
(vratane uprav registra). Niektore subory - ako napr. dokumentaciu - mozes
vynechat, ale pripravit instalaciu aplikacie s Interbase nie je vobec ziadny
problem.
Zdeno
Instalacia IB6 do WinLinuxu2000
[*] V�clav Hal�k������?�O� - 10.8.2000 19:33:55
Cau,
mas nastavene spatne pristupova prava k souboru nebo skupinu. Zmen si to z
prikazoveho radku prikazem tusim "chmod 755 soubor" nebo pokud neznas
parametry tak treba v KDE nejaky grafickym udelatkem nebo v kfm na ten
soubor pravim tlacitkem a pak vlastnosti.
Mimochodem WinLinux jsem testoval a moje doporuceni je NEBRAT. Jednak nejede
cestina - fonty i klavesnice, coz se da pomerne komplikovane vyresit ale ma
to jinou adresarovou strukturu. Takze nektere veci nenainstalujes bez uprav
souboru pro MAKE. Baliky delaj taky problemy. Dela to neskutecne problemy s
diskem atd. Je to spis na hrani pro babicku nez seriozni Linux.
Skus radeji jinej Linux. RedHat 6.2 se da instalovat i na FAT. A pokud ti
mohu doporucit stahni si to radsi v RPM balicku nainstalujes to i v tom
WinLinuxu.
V�clav Hal�k - Amat�rsk� program�tor
vhalik(zv)iol(tec)cz, vhalik(zv)centrum(tec)cz
-----P�vodn� zpr�va-----
Od: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
Komu: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Datum: 8. srpna 2000 1:13
P�edm�t: Instalacia IB6 do WinLinuxu2000
>Zdravim.
>
>Rozbalim TAR subor a ked spustim INSTALL tak mi vypise "Could not execute
>program"
>
>Preco ?
>
>Roland.
>Tvorba komponent za behu (viz %sub% pro Simonu)
[*] V�clav Hal�k������?�O� - 10.8.2000 20:37:29
Cau Zbynulo,
jen malou pripominku, kdyz uz potis takovy pracny mail tak se prosinte
podivej na predmet zpravy, jinak ti moc lidi se subjektem cos tam mnel
nepomuze.
PS: Posli mi na muj mail ten tvuj seznam a Email na Lukina. Cau.
V�clav Hal�k - Amat�rsk� program�tor
vhalik(zv)iol(tec)cz, vhalik(zv)centrum(tec)cz
-----P�vodn� zpr�va-----
Od: zbyna <sobanz(zv)seznam(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. srpna 2000 13:53
P�edm�t: pro Simonu
>Dobry den,
>ve svem programu, potrebuji za behu vytvaret komponenty, obecne standardni
ovladaci prvky
>
>pouzival jsem odkaz na tridu, jednotlive odkazy jsem si ulozil do souboru a
nasledne nacital, tohle funguje jenom obsas, nedky nacetl odkaz na tridu
spravne a nekdy ve tvaru My_Ref($41D800), pokud jsem pridal do sekce uses
unity jednotlivych kontrolu vysledek je stejny nasledne potrebuju z odkazu
vytvorit dany ovladaci prvek, a to pokud je to ve tvaru My_Ref($41D800)
nejde
>
>tady je kousek kodu kde jsem pouzival odkaz na tridu
>
>unit Unit1;
>
>interface
>
>uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
>type
> My_Ref = class of TControl;
> PoleKomp = array of My_Ref;
>
> TForm1 = class(TForm)
> Button1: TButton;
> procedure FormShow(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> ClassRef: TControlClass;
> pk1: PoleKomp;
> PoleNactenychKomp: PoleKomp;
> procedure SaveToFile(FileName:string);
> procedure LoadFromFile(FileName:string);
> procedure Vytvor_tlac;
> end;
>
>var
> Form1: TForm1;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.SaveToFile(FileName:string);
>var
> cesta:string;
> ft: file of My_ref;
> i: integer;
>begin
> cesta:=ExtractFilePath(Application.ExeName);
> AssignFile(ft,Cesta+FileName);
> rewrite(ft);
> for i:=0 to High(Form1.pk1) do
> write(ft,Form1.pk1[i]);
> closeFile(ft);
>end;
>
>procedure TForm1.LoadFromFile(FileName:string);
>var
> cesta:string;
> ft: file of My_ref;
> count: integer;
>begin
> cesta:=ExtractFilePath(Application.ExeName);
>
> AssignFile(ft,Cesta+FileName);
> reset(ft);
> count:=1;
> setlength(PoleNactenychKomp ,count);
> repeat
> setlength(PoleNactenychKomp ,count);
> read(ft,PoleNactenychKomp[count-1]);
> inc(count);
> until eof(ft);
> closeFile(ft);
>end;
>
>procedure TForm1.Vytvor_tlac;
>var
> ClassRef1: TControlClass;
> MyName,
> MyCap:string;
> b: integer;
> But: TButton;
>begin
>
> for b:=0 to High(PoleNactenychKomp) do
> begin
> But:=TButton.Create(self);
> with But do
> begin
>
> ClassRef1:=poleNactenychKomp[b];
> MyName:=ClassRef1.ClassName;
> MyCap:=MyName;
> delete(myCap,1,1);
>
> Visible:=False;
> parent:=self;
> name:='Button_'+IntToStr(b);
> Caption:=MyCap;
> left:=150;
> top:=(20+(b+1)*25 );
> Visible:=True;
> end;
> end;
>
>end;
>
>procedure TForm1.FormShow(Sender: TObject);
>begin
> LoadFromFile('new.clr');
> Vytvor_tlac;
>end;
>
>end.
>--------------------
>snad by to slo kdybych ukladal celou tridu daneho prvku, ale nevim jak na
to
>diky za kazdou radu
>Problemy IB6 - pokazena verzia IBConsole 1.0.0.3
[*] Marek Spisak <spishark(zv)post(tec)cz> - 10.8.2000 22:17:50
vysvetlite mi prosim co robim zle. Stiahol som si IB6 (subor:
"InterBase_WI-V6.0-server.ZIP"), nainstaloval, ale ako mam vytvorit
databazu, popripade v com, ked v IBConsole to vyhadzuje: "DPB Constant (0)
is unknown". ???
--------
Mas nainstalovanu pokazenu verziu IBConsole (verzia 1.0.0.309). Uz sa tu o
tom rozpravalo. Ak chces pouzit IBConsole, nahraj si tu z Betaverzie (verzia
1.0.0.308). Existuje aj vela lepsich nastrojov pre pracu s InterBasou. Mozes
sa kuknut tu http://www.interbase.com/open/research/ibconsole_issues.html Na
konci popisu Tvojej chyby je zoznam alternativnych nastrojov. Niektore su
ozaj dobre, ale aj drahe (betaverzie su zadarmo, ale finaly sa pohybuju od
$150 - $500). Celkom som si zvykol na IB_WISQL - je zadaramo a je celkom
sikovna.
Marek
IB a INSERT
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 10.8.2000 22:22:04
ty si to mylis s TTable !!!
Ja to robim takto:
ZahajTransakciu(ib1.Transaction);
try
if Tag=1 then
ib1.SQL.Text:='Insert into mesta(mesto,psc,uto,stat,Mestox) Values (:mesto,:psc,:uto,:stat,:MestoX)';
if Tag=2 then
ib1.SQL.Text:='Update mesta set mesto=:mesto,psc=:psc,uto=:uto,stat=:stat,mestox=:MestoX where Jedin='+IntToStr(e1.UniqueColumnValue);
ib1.ParamByName('mesto').AsString:=e1.Text;
ib1.ParamByName('MestoX').AsString:=upperCSY(e1.Text);
ib1.ParamByName('psc').AsString:=e2.Text;
ib1.ParamByName('uto').AsString:=e3.Text;
ib1.ParamByName('stat').AsString:=e4.Text;
ib1.ExecSQL;
ib1.transaction.Commit;
except begin ib1.Transaction.Rollback; raise; end; end; ----- Original Message -----
From: R�bert Fujak
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, August 10, 2000 4:45 PM
Subject: IB a INSERT
Zdravim,
prosim Vas ako je to s INSERT/UPDATE v Delphi.
Tabulka: CREATE TABLE SKUSKA(ID INTEGER NOT NULL, POPIS VARCHAR(20), PRIMARY KEY (ID))
ID je generovane pomocou "Trigger".
Mam jednoduchy formular:
IBDatabase, IBQuery, IBUpdateSQL, IBTransaction.
IBQuery: SELECT ID, POPIS FROM SKUSKA
IBUpdateSQL->Insert: INSERT INTO SKUSKA (ID, POPIS) VALUES (:ID, :POPIS);
mozete mi prosim niekto napisat(poslat na sukromny mail) kusok kodu ako pridavat zaznamy do tabulky cez komponentu TEdit a TDBEdit, ked ta hodnota ID je generovana priamo v databaze a mne vypisuje aby som ju v IBQuery zadaval.
Pouzivam:
ibquery1.Append;
ibquery1.FieldByName('POPIS').AsString := Edit1.Text;
ibquery1.Post;
ibquery1.applyUpdates;
, co je asi blbost.
Pozn. nemam skusenosti s IB a C/S.
Dakujem.
S pozdravom Fujak, Robert
mailto:robof(zv)inmail.sk
HTMLeditor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.2000 22:51:14
From: <iturcan(zv)gamo.sk>
> nepozna niekdo ciste nahodou nejaku komponenticku ktora by dokazala WYSIWYG
> editovanie HTML ?
Ahoj,
naprikad naimportovat FrontPage jako ActiveX, ale to ti asi moc nepomuze.
Petr Vones, amatersky programator
Komponenta pro ACL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.2000 22:57:07
From: "Jan Krizek" <krizek(zv)krizkules(tec)cz>
> A ted jeste obecne, nezda se vam komponenty VCL dost odflaknute - oproti
> tomu co umeji vlastni ovladaci prvky Windows. Nevite nekdo o takovem
> rozrisereni komponent, ktere by plne vyuzivalo moznosti Win API. Mne
> pripadne, ze je plno novych komponent, ktere se snazi byt "hezke", ale
> funkcnosti hodne zaostavaji za Windows.
Ahoj,
To je tezky, je pravda ze nektere ovl.prvky z COMCTL32 nejsou implementovany
plne ve VCL, jako napriklad ComboBoxEx32. Nic ti ale nebrari si je dopsat :-)
> Pro ukazku napr. TListBox nema udalost na zmenu polozky, zmenit vybrane
> polozky pri zapnutem MultiSelectu taky poradne nejde, protoze jediny pristup
> je pres property Selected[] a to je udesne pomale. Dale properta Hint je
Pokud se podivas na implementaci tak vidis ze Selected zasila primo zpravy
do listboxu, takze pomalost je tentokrat spise problemem Windows. Podobne
pomale je to i v pripade ListView. V nekterych pripadech se VCL snazi i o
zlepseni vykonnosti, viz TNodeCache v TreeView.
> programove atd... Hlavne ze Inprise chce pusobnost VCL rozsirit na unix,
Nechce. VCL bude dale jen pro Windows. Pro Linux a Windows bude nova knihovna
CLX zalozena na Qt.
> kdyby radeji dotahli VCL pro Windows, nebo alespon povolili jeji
> prekompilaci.
To neni z principu mozne. VCL nelze modifikovat protoze neni mozne mit 20
verzi balicku, na kterych navic stoji IDE. Spise by meli udelat nektere tridy
vice otevrene.
Petr Vones, amatersky programator
Komponenta pro ACL
[*] Erik Salaj <winsoft(zv)napri.sk> - 10.8.2000 23:10:54
> > A ted jeste obecne, nezda se vam komponenty VCL dost odflaknute - oproti
> > tomu co umeji vlastni ovladaci prvky Windows. Nevite nekdo o takovem
> > rozrisereni komponent, ktere by plne vyuzivalo moznosti Win API. Mne
> > pripadne, ze je plno novych komponent, ktere se snazi byt "hezke", ale
> > funkcnosti hodne zaostavaji za Windows.
>
> Taky bych rekl. Predme me irituje ten pristup narvat vsechno
> do komponent a do objektu. Nerikam, v pripade uzivatelskeho rozhrani
> a databazi maji komponenty jiste svuj smysl, stejne tak jako
> proudove a kontejnerove tridy jsou peknym prikladem vyuziti
> objektu, ale zapouzdrovat kritickou sekci nebo event do objektu
> a jeste takovym zpusobem jak to dela VCL, to uz je na povazenou :).
Moja najvecsia vyhrada voci VCL je, ze to vlastne nie je komponentova
technologia, pretoze nie je mozne napr. komponentu "vybrat a nahradit
ju inou". V podstate je mozne len doplnat VCL kniznicu aj to tam, kde
sa na to vopred myslelo (a su k dispozicii Custom triedy). Dalej VCL
je proprietarna vec nekompatibilna s nicim (dokonca ani s inou verziou
VCL). Podla mojho nazoru Borland sa mohol zamerat prave na tieto
problemy a namiesto obrovskej VCL kniznice urobit povedzme hoci
aj len jednoduche komponenty ale na naozaj kvalitnej komponentovej
technologii (povedzme COM). Tym by zaroven podporil trh s komponentami
(priestor pre third-party firmy, shareware, freeware programatorov).
Teda sa mohol sustredit na problemy, ktore third-party vyvojarke
firmy vyriesit nemozu a zaroven prenechat priestor tymto firmam
v oblasti, kde posobit mozu. Bolo by to obojstranne prospesne,
a je skoda, ze tomu tak nie je.
Erik Salaj, WINSOFT
Popis .ICO a .CUR
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.2000 23:14:32
From: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
> mate nekdo (nebo vite, kde se to schovava) popis souboru .ICO a
> .CUR?
Ahoj,
http://msdn.microsoft.com/library/techart/msdn_icons.htm
http://www.wotsit.org/download.asp?f=bmp
Petr Vones, amatersky programator
Velkost volneho miesta na diskoch > 2GB + delphi3
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2000 00:44:54
From: "MODROVSK� Daniel" <modrovsky(zv)asset.sk>
> Mam Delphi3 C/S a potreboval by som vediet ako zistit velkost volneho
> miesta na diskoch vacsich ako 2GB.
> Problem je hlavne v tom ze funkcia :
> Co vyzera tak ze to ma vracat velkost asi ako 64 bitovy integer.Da sa s
> tym nieco robit ?
Ahoj,
V JCL (http://delphi-jedi.org/Jedi:CODELIBJCL) najdes v unitu JclBase deklaraci
Int64 pro D3 vcetne funkci:
procedure I64Assign(var I: Int64; const Low, High: Longint);
procedure I64Copy(var Dest: Int64; const Source: Int64);
function I64Compare(const I1, I2: Int64): Integer;
Petr Vones, amatersky programator
Predavani mezi okny
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2000 00:47:48
From: "Petr Sladk�" <sweet(zv)ksprogram(tec)cz>
> Je okno, z toho se vytvori druhe okno, pri kliku na tlacitko v druhem okne(stayontop)
> Obsah editu dostat do editu v prvnim okne a zavrit.
Ahoj,
Pokud jsem to dobre pochopil tak treba:
Form1.Edit1.Text := Form2.Edit1.Text;
Form2.Close;
Petr Vones, amatersky programator
TMonthCalendar.OnChange ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2000 00:48:39
From: "L. ZITA" <konference(zv)sales(tec)cz>
> Mam problem s tim jak zachytit, ze uzivatel zmenil datum standardni
> komponenty MonthCalendar.
> Udalost OnChange tam proste chybi. Jak tedy na to mam jit ?.
Ahoj,
pomoci udalosti OnClick.
Petr Vones, amatersky programator
Dial-up pripojeni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2000 00:54:02
From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
> zaujimalo by ma ako mozem vyvolat spojenie modemu s provajderom. ide o soft
> na posielanie davok udajov pomocou e-mailu, po pevnej linke to beha ale
> obavam sa ze pri spojeni modemom treba este nieco viac doprogramovat ;o).
Ahoj,
Obecne se "Telefonicke pripojeni site" vytvari pomoci RAS funkci. Prelozene
hlavicky s demo aplikaci lze stahnout tady (RAS.ZIP):
http://delphi-jedi.org/Jedi:APILIBRARY
K vyvolani dialogu pro pripojeni k Internetu, jak jej zname z IE, slouzi
funkce InternetAutoDial (vychozi pripojeni):
uses
WinInet, RasError, RasUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
LastError: DWORD;
begin
if InternetAutoDial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) then
LastError := 0
else
LastError := GetLastError;
if LastError <> ERROR_USER_DISCONNECTION then RasCheck(LastError);
end;
Ukoncit pripojeni lze pak pomoci funkce InternetAutodialHangup:
procedure TForm1.Button2Click(Sender: TObject);
begin
Win32Check(InternetAutodialHangup(0));
end;
Vyvolat jine nez vychozi pripojeni lze takhle:
procedure TForm1.Button3Click(Sender: TObject);
var
Res: DWORD;
ConnId: DWORD;
begin
Res := InternetDial(0, 'Moje pripojeni', INTERNET_AUTODIAL_FORCE_ONLINE,
(zv)ConnId, 0);
if Res <> ERROR_USER_DISCONNECTION then
begin
RasCheck(Res);
ShowMessage('Po stisku OK bude pripojeni ukonceno');
RasCheck(InternetHangUp(ConnId, 0));
end;
end;
Dalsi informace, viz MSDN:
http://msdn.microsoft.com/workshop/networking/wininet/overview/establish.asp
Petr Vones, amatersky programator
ADO, Command, Ulozene Procedury, Refresh Parametru
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 11.8.2000 01:11:48
>> nevim si rady s tim, jak nacist Parametry ulozene procedury do ADO
objektu
>> Command aniz bych musel vsechny parametry rucne Creatovat.
>> Jako server pouzivam MS SQL 7.0 SP1.
> Zbysek wrote:
> Zde zkus Parameters.Refresh.
Bohuzel to nepomohl. Parametry se mi zadne nenacitaji. Jako kdyby to
nepodporoval provider. Mam ale vybrano SQL Ole DB providera ...
Pouzivate to nekdo? Funguje Vam to?
Diky za rady, Lada
IB a INSERT
[*] �ampulka Ji�� - 11.8.2000 07:17:50
Zmen ten insert: INSERT INTO SKUSKA (POPIS) VALUES (:POPIS);
protoze ID ti generuje trigger...
----- P�vodn� zpr�va -----
Od: R�bert Fujak
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 10. srpna 2000 16:45
P�edm�t: IB a INSERT
Zdravim,
prosim Vas ako je to s INSERT/UPDATE v Delphi.
Tabulka: CREATE TABLE SKUSKA(ID INTEGER NOT NULL, POPIS VARCHAR(20), PRIMARY KEY (ID))
ID je generovane pomocou "Trigger".
Mam jednoduchy formular:
IBDatabase, IBQuery, IBUpdateSQL, IBTransaction.
IBQuery: SELECT ID, POPIS FROM SKUSKA
IBUpdateSQL->Insert: INSERT INTO SKUSKA (ID, POPIS) VALUES (:ID, :POPIS);
mozete mi prosim niekto napisat(poslat na sukromny mail) kusok kodu ako pridavat zaznamy do tabulky cez komponentu TEdit a TDBEdit, ked ta hodnota ID je generovana priamo v databaze a mne vypisuje aby som ju v IBQuery zadaval.
Pouzivam:
ibquery1.Append;
ibquery1.FieldByName('POPIS').AsString := Edit1.Text;
ibquery1.Post;
ibquery1.applyUpdates;
, co je asi blbost.
Pozn. nemam skusenosti s IB a C/S.
Dakujem.
S pozdravom Fujak, Robert
mailto:robof(zv)inmail.sk
Select z Accessovskych tabuliek
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 11.8.2000 08:02:51
Ahoj !
Nemas pravdu, ze pri vybere z paradoxovskych zostavaju tabulky, z ktorych si
vyberal otvorene. Staci si nastavit queryx.active=True a potom otvorit
tabulku exkluzivne, Tablex.exclusive:=True, Tablex.open a ono to funguje v
pohode, zatialco v Accesse to nejde. Ja si Query predstavujem tak, ze sa
vytvori nejaka docasna tabulka a do nej sa ulozi vysledok vyberu, niet teda
dovod na to, aby povodna musela byt otvorena. Ten napad z memorytable si
vyskusam.
----- Original Message -----
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 09, 2000 3:24 PM
Subject: Re: Select z Accessovskych tabuliek
> > Pristupujem z Deplhi k Accesovskej databaze pomocou nativneho driveru
> > BDE. Ak urobim SELECT z akejkolvek tabulky pomocou TQuery, tak mi
> > tabulky, z ktorych som robil vyber ostavaju otvorene (zistil som to
> > tak, ze ich nemozem preindexovat), pritom v TQuery nie je nastaveny
> > RequestLive ani nic podobne. Ak to napr. robim z paradoxovskymi
> > tabulkami, nic take sa nestane. Ako mam TQuery odpojit od dat, ale aby
> > mi obsah vyberu zostal zachovany ?
>
> No ja nevim, ale rekl bych, ze pri pouziti BDE je tabulka otevrena
> po celou dobu, kdy je active = true. A to i v Paradoxu. Proc myslis
> ze ne?
>
> Zrusit to spojeni v BDE asi nepujde. Dalo by se to obejit treba
> pomoci memory table, tj. otevrit TQuery, vysledek presypat do
> memory table, TQuery zavrit.
>
> David
>
Ole konteiner II
[*] Tibor Galik <tgalik(zv)vsz.sk> - 11.8.2000 08:35:39
Ahoj,
Na prvy mail nikto nereagoval, tak to skusam znova. Kto ma nejake skusenosti s OLE Container ?
Viete mi niekto poradit (W95, D4).
Na forme mam OleContainer, typ objektu je excelacky file. SizeMode mam smAutoSize.
Problem spociva v tom, ze mi nechce zobrazit celu excelacku tabulku. Zobrazi ju iba po 68. riadok. Ja by som vsak potreboval 290 riadkov. Su v OleContainer-y nejake obmedzenia (pri citani helpu som na nic nenarazil) ? Da sa do OleContainer vopchat va(e)csia tabulka ?
diky
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
Velkost volneho miesta na diskoch > 2GB + delphi3
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 11.8.2000 08:42:09
A jake mas Windowsy.
Win95 neumi nacist vetsi disk jako 2G a vetsi disky vraci jako 2G.
Pavel
----- Original Message -----
From: MODROVSK� Daniel <modrovsky(zv)asset.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 09, 2000 8:52 AM
Subject: Velkost volneho miesta na diskoch > 2GB + delphi3
> Ahoj.
>
> Mam Delphi3 C/S a potreboval by som vediet ako zistit velkost volneho
> miesta na diskoch vacsich ako 2GB.
> Problem je hlavne v tom ze funkcia :
>
> function GetDiskFreeSpaceEx(lpDirectoryName: PChar; var
> lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: Integer;
> lpTotalNumberOfFreeBytes: PInteger): BOOL; stdcall;
>
> vracia pocet volnych byteov ako Pinteger.Co je problem lebo vo win32api
je
> popis funkcie :
>
> BOOL GetDiskFreeSpaceEx(
>
> LPCTSTR lpDirectoryName, // pointer to directory name on disk of
> interest
> PULARGE_INTEGER lpFreeBytesAvailableToCaller, // pointer to
> variable to receive free bytes on disk available to the caller
> PULARGE_INTEGER lpTotalNumberOfBytes, // pointer to variable to
> receive number of bytes on disk
> PULARGE_INTEGER lpTotalNumberOfFreeBytes // pointer to variable to
> receive free bytes on disk
> );
>
> Co vyzera tak ze to ma vracat velkost asi ako 64 bitovy integer.Da sa s
> tym nieco robit ?
>
> Dopredu dakujem.
>
> Dano.
>Jeste jednou Instalace IB 6 pomoci IBInstall
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 11.8.2000 09:06:32
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
dobry den
Na muj predchozi dotaz mi nikdo neodpovedel a ja to potrebuji nejak vyresit, proto to zkousim jeste jednou.
Opravdu jste jeste nikdo neresil instalaci IB 6 pomoci komponenty IBInstall pripadne jinak ?
Mne se to pomoci IBInstall stale nedari nejak rozumne udelat.
Bud jsem nepochopil princip, nebo je to totalne blbe naprogramovane.
Potrebuji jen nejak rozumne nainstalovat IB 6, ktery budu distribuovat spolu s aplikaci.
moc dekuji za kazdy napad
Pavel Bare�
Atoll s.r.o.
K Vi��ovce 1560
530 02 Pardubice
tel. 040 6310510
console
[*] Ctirad Tihelka <TihelkaC(zv)seznam(tec)cz> - 11.8.2000 09:21:31
lze pouzit TTimer v konzolove aplikaci ?? Jak
diky Ctirad
HTMLeditor
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 11.8.2000 09:36:05
Zdravim,
neporadim primo komponentu, ale TWebBrowser a IE5 to umi, ale musi se mu
trochu pomoct. Tady mas zdroje dalsich informaci.
obecne informace k rozhrami WebBrowseru - editovani:
http://msdn.microsoft.com/workshop/browser/overview/editing.asp
obecne jak se da s WebBrowserem manipulovat
http://msdn.microsoft.com/workshop/browser/default.asp
upravena komponenta TWebBrowser
http://www.euromind.com/iedelphi/embeddedwb.htm
a tady je pro ukazku HTML pro editaci HTML (IFRAME)
(je taky nekde z msdn.microfoft.com)
<html>
<head>
<style> .userData {behavior:url(#default#userdata);} </style>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
<link rel="stylesheet" type="text/css" href="styles.css">
</head>
<SCRIPT LANGUAGE=JavaScript>
<!--
-->
</SCRIPT>
<body bgcolor="#CCCCCC">
<script for="btnDesign" event="onclick">
targetDoc = document.frames(0).document;
if (targetDoc.designMode == "On")
targetDoc.designMode = "Off";
else
targetDoc.designMode = "On";
</script>
<button id=btnDesign>DesignMode</button>
<iframe id="idEditor" src="blank.htm" style="border: black thin; width:100%;
height:200px"></iframe>
</body>
</html>
muses jeste vytvorit samozrejme tu Blank.htm, aby Ti to chodilo.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: <iturcan(zv)gamo.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 10, 2000 11:24 AM
Subject: HTMLeditor
> Hi lidi,
>
> nepozna niekdo ciste nahodou nejaku komponenticku ktora by dokazala
WYSIWYG
> editovanie HTML ?
>
> tx
>
> i.t.
>
>TDBComboBox
[*] olej.jozef(zv)slsp.sk - 11.8.2000 09:36:12
Ahoj,
Namate niekto skusenosti ci v TDBComboBoxe sa okrem hodnoty co sa vklada do
prislusnej polozky vety databazy moze zobrazovat aj nejaky vysvetlujuci
text.
idealne by bolo keby sa v Items Comboboxu dalo zadat
1,prva hodnota
2,druha hodnota
...
pricom po vybere by sa vlozila len hodnota 1,2...
Neprisiel som sa na ci sa to da spravit cez TDBComboBox alebo treba na to
nejaku inu komponentu?
Dakujem
Jozo
Funkcnost Isapi DLL
[*] Josef Slan� <slany(zv)hasici.znojmo(tec)cz> - 11.8.2000 09:43:21
D5 prof., W2k prof., IIS 5
Dobry den preji,
dnes jsem zkusil poprve ISAPI DLL z D5, na problem jsem vsak narazil
velmi zahy.
Konkretne jsem prelozil priklad v \demos\webserv.
Vyslednou dll jsem nakopiroval do inetpub\scripts.
Po spusteni z IE se mi zobrazi prvni stranka generovana timto
dll, ale odkazy jiz nefunguji. Server vraci hlasku 403.2:
403.2 Forbidden: Read Access Forbidden
This error can be caused if there is no default page available and directory
browsing has not been enabled for the directory, or if you are trying to
display an HTML page that resides in a directory marked for Execute or
Script permissions only.
Please contact the Web server's administrator if the problem persists.
Nevite prosim nekdo, kde delam chybu?
Josef Slan�
mailto:slany(zv)hasici.znojmo(tec)cz
Tel:0624-200740
GSM:0603-844999
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7. 2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7. 2000
Select z Accessovskych tabuliek
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 11.8.2000 10:09:25
> Ahoj !
>
> Nemas pravdu, ze pri vybere z paradoxovskych zostavaju tabulky, z
> ktorych si vyberal otvorene. Staci si nastavit queryx.active=True a
> potom otvorit tabulku exkluzivne, Tablex.exclusive:=True, Tablex.open
> a ono to funguje v pohode, zatialco v Accesse to nejde. Ja si Query
> predstavujem tak, ze sa vytvori nejaka docasna tabulka a do nej sa
> ulozi vysledok vyberu, niet teda dovod na to, aby povodna musela byt
> otvorena. Ten napad z memorytable si vyskusam.
Hm, asi to zalezi na databazi. Na MSSQL7 musi byt napr.
udrzovane spojeni se serverem po celou dobu active = true. Je
mozne, ze to treba souvisi s kurzory na strane serveru apod., to
nevim, ale fakt je, ze to nejde jen prostredky BDE obejit.
Jestli to na paradoxu je jinak, tak se omlouvam za mystifikaci.
David
>
>
> ----- Original Message -----
> From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, August 09, 2000 3:24 PM
> Subject: Re: Select z Accessovskych tabuliek
>
>
> > > Pristupujem z Deplhi k Accesovskej databaze pomocou nativneho
> > > driveru BDE. Ak urobim SELECT z akejkolvek tabulky pomocou TQuery,
> > > tak mi tabulky, z ktorych som robil vyber ostavaju otvorene
> > > (zistil som to tak, ze ich nemozem preindexovat), pritom v TQuery
> > > nie je nastaveny RequestLive ani nic podobne. Ak to napr. robim z
> > > paradoxovskymi tabulkami, nic take sa nestane. Ako mam TQuery
> > > odpojit od dat, ale aby mi obsah vyberu zostal zachovany ?
> >
> > No ja nevim, ale rekl bych, ze pri pouziti BDE je tabulka otevrena
> > po celou dobu, kdy je active = true. A to i v Paradoxu. Proc myslis
> > ze ne?
> >
> > Zrusit to spojeni v BDE asi nepujde. Dalo by se to obejit treba
> > pomoci memory table, tj. otevrit TQuery, vysledek presypat do memory
> > table, TQuery zavrit.
> >
> > David
> >
>
>
UpdateSQL
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 11.8.2000 10:19:08
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj
Muzete mi pomoct
Mam TQuery, na nej je napojen UpdateSQL a DBGrid
V TQuery je SQL ktery vybira ze dvou tabulek Zamestnanci a strediska..
Pak mam editacni formular, kterym menim udaje zamestnance..vyvolava se Doubleclickem na DBGridu
Jak mam udelat aby pri zmene strediska u zamestnance v editacnim formulari se zmenilo i jmeno strediska
(ktere je z druhe tabulky) v DBGRIDU...
A pripadne pokud jde o novej zaznam zamestannce, aby se mi i zobrazilo i nove ID zamestnance ktere je typu AutoInc.
Vsechno je realozovano na PARADOX tabulkach
D5Prof, bde 5
Predem diky
Tipy do Delphi - namitka
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.8.2000 10:28:18
> Toto je specialne pro Petra V�clavka - autora programu Tips &
Tricks
*** No jo, ale ja s tim programem nemam nic spolecneho :-))
Ja jsem tak maximalne autorem programu Poznamky
(http://atrey.karlin.mff.cuni(tec)cz/~bla/poznamky.shtml), ktery se muz
nacne podoba, ale je urcen pro pohodlnou zpravu poznamek vseho
druhu.
Takze ted nevim, jestli jsi se spletl ve jmene autora nebo v nazvu
programu.
Jinak jsem poradne nepochopil co s tim mas za problem.
Pripomina mi to jeden, ktery mam a neumim jej vyresit, mozna ze
je to to same: Mam hlavni okno aplikace, z nej pomoci ShowModal
vyvolam jiny formular (treba nastaveni). Pokud se prepnu do jine
aplikace a pak zpet, tak vidim jen hlavni okno, okno nastaveni je
schovano za nim a zobrazi se az po kliknuti na hlavni okno.
Vubec nechapu proc!!!! We Windows 95 to tusim bylo OK, problem
to je minimalne na WinNT4.
Petr
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]TMonthCalendar.OnChange ?
[*] L. ZITA <konference(zv)sales(tec)cz> - 11.8.2000 10:32:12
From: "L. ZITA" <konference(zv)sales(tec)cz>
> > Mam problem s tim jak zachytit, ze uzivatel zmenil datum standardni
> > komponenty MonthCalendar.
> > Udalost OnChange tam proste chybi. Jak tedy na to mam jit ?.
>
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Ahoj,
>
> pomoci udalosti OnClick.
>
> Petr Vones, amatersky programator
>
Ahoj
To mne samozrejme napadlo take, ale nefuguje to pokud datum zmenis pomoci
popup menu (prejit na dnesek) nebo
pomoci kliknuti na nazev mesice nebo roku.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.168 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
console
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.8.2000 10:47:02
MyTimer := TTimer.Create...
MyTimer.Interval := 2000;
MyTimer.OnTimer := MyOnTimer;
MyTimer.Enabled := True;
:
MyTimer.Free;
Jan Fiala
----- Original Message -----
From: "Ctirad Tihelka" <TihelkaC(zv)seznam(tec)cz>
To: <Delphi-l(zv)fwd(tec)cz>
Sent: Friday, August 11, 2000 9:21 AM
Subject: console
> lze pouzit TTimer v konzolove aplikaci ?? Jak
> diky Ctirad
> Komponenta pro ACL
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 11.8.2000 10:58:57
Ad VCL: rekl bych ze muzeme byt celkem radi, ze Borland vymyslel
VCL tak jak ji vymyslel a nenaklonoval MFC, to bysme
si teprv dali :)
--
----------------------------------------------------------
Ondrej Krajicek
Institute of Computer Science, Masaryk University Brno, CR
mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
----------------------------------------------------------
HTMLeditor
[*] iturcan(zv)gamo.sk - 11.8.2000 11:21:03
Vdaka, ale ja potrebujem komponentu ktoru budem moct pouzit aj na stroji
bez IE , Netscape,... tzn. potrebujem komponentu pracujucu nezavisle od
kadejakych web browseroch.
i.t.
"Tomas
Bradle" To: <delphi-l(zv)fwd(tec)cz>
<t.bradle(zv)pvt cc:
net(tec)cz> Subject: Re: HTMLeditor
Sent by:
owner-delphi-
l(zv)fwd(tec)cz
11.08.2000
09:36
Please
respond to
delphi-l
Zdravim,
neporadim primo komponentu, ale TWebBrowser a IE5 to umi, ale musi se mu
trochu pomoct. Tady mas zdroje dalsich informaci.
obecne informace k rozhrami WebBrowseru - editovani:
http://msdn.microsoft.com/workshop/browser/overview/editing.asp
obecne jak se da s WebBrowserem manipulovat
http://msdn.microsoft.com/workshop/browser/default.asp
upravena komponenta TWebBrowser
http://www.euromind.com/iedelphi/embeddedwb.htm
a tady je pro ukazku HTML pro editaci HTML (IFRAME)
(je taky nekde z msdn.microfoft.com)
<html>
<head>
<style> .userData {behavior:url(#default#userdata);} </style>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
<link rel="stylesheet" type="text/css" href="styles.css">
</head>
<SCRIPT LANGUAGE=JavaScript>
<!--
-->
</SCRIPT>
<body bgcolor="#CCCCCC">
<script for="btnDesign" event="onclick">
targetDoc = document.frames(0).document;
if (targetDoc.designMode == "On")
targetDoc.designMode = "Off";
else
targetDoc.designMode = "On";
</script>
<button id=btnDesign>DesignMode</button>
<iframe id="idEditor" src="blank.htm" style="border: black thin;
width:100%;
height:200px"></iframe>
</body>
</html>
muses jeste vytvorit samozrejme tu Blank.htm, aby Ti to chodilo.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: <iturcan(zv)gamo.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 10, 2000 11:24 AM
Subject: HTMLeditor
> Hi lidi,
>
> nepozna niekdo ciste nahodou nejaku komponenticku ktora by dokazala
WYSIWYG
> editovanie HTML ?
>
> tx
>
> i.t.
>
>Ole konteiner II
[*] Ren� Otisk - 11.8.2000 11:25:07
Pri svych pokusech skamaradit se s TOLEContainerem jsem kdysi ziskal dojem,
ze obsahuje vzdy pouze prvni tisknutelnou stranku dokumentu...
Sroub
> Ahoj,
>
> Na prvy mail nikto nereagoval, tak to skusam znova. Kto ma nejake
skusenosti s OLE Container ?
>
> Viete mi niekto poradit (W95, D4).
> Na forme mam OleContainer, typ objektu je excelacky file. SizeMode mam
smAutoSize.
>
> Problem spociva v tom, ze mi nechce zobrazit celu excelacku tabulku.
Zobrazi ju iba po 68. riadok. Ja by som vsak potreboval 290 riadkov. Su v
OleContainer-y nejake obmedzenia (pri citani helpu som na nic nenarazil) ?
Da sa do OleContainer vopchat va(e)csia tabulka ?
>
> diky
>
> tg
>
>
> S pozdravom / Regards
>
> Tibor Galik
> tgalik(zv)vsz.sk
>console
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 11.8.2000 11:26:15
> lze pouzit TTimer v konzolove aplikaci ?? Jak
Coz takhle nepouzit TTimer, ale WinAPI ?
var Timer:UINT; // timer ID
procedure TimerCallBac(h:HWND; uMsg:UINT;
idEvent:UINT; dwTime:DWORD); stdcall;
begin
// opakovana cinnost
end;
procedure TimerStart;
begin
if Timer=0 then begin
Timer:=SetTimer(0,0,100,(zv)TimerCallBack);
if Timer=0 then RaiseLastWin32Error;
end;
end;
procedure TimerStop;
begin
if Timer<>0 then begin
if not(KillTimer(0,Timer)) then RaiseLastWin32Error;
Timer:=0;
end;
end;
Podrobnost viz Win32 SDK.
Daniel
------------------------------------------------------
Daniel Rott - roxton(zv)volny(tec)cz
http://www.volny(tec)cz/roxton
Some minor bugs/features fixed/added
ADO, Command, Ulozene Procedury, Refresh Parametru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.8.2000 11:36:10
On 11 Aug 2000, at 1:11, Ladislav Nagy wrote:
> >> nevim si rady s tim, jak nacist Parametry ulozene procedury do ADO
> objektu
> >> Command aniz bych musel vsechny parametry rucne Creatovat.
> >> Jako server pouzivam MS SQL 7.0 SP1.
>
> > Zbysek wrote:
> > Zde zkus Parameters.Refresh.
>
> Bohuzel to nepomohl. Parametry se mi zadne nenacitaji. Jako kdyby to
> nepodporoval provider. Mam ale vybrano SQL Ole DB providera ...
>
> Pouzivate to nekdo? Funguje Vam to?
Prave delam na jednom projektiku, ve kterem pristupuji k databazi
primo pres ADO, a pouzivam tuto funkci:
function ExecCommand(Command: OleVariant; Options: Integer;
Params: OleVariant): OleVariant;
// posle nejaky prikaz databazi
var
RecordsAffected: OleVariant;
FCommand: _Command;
// i: integer;
RetVal: boolean;
begin
Result := null;
FCommand := CreateADOObject(CLASS_Command) as
_Command;
FCommand.Set_ActiveConnection(FConnection);
FCommand.Set_CommandType(Options);
FCommand.Set_CommandText(Command);
RetVal := false;
with FCommand.Parameters do
begin
Refresh;
if (Count > 0) and (Item[0].Direction = adParamReturnValue)
then RetVal := true;
end;
FCommand.Execute(RecordsAffected, Params, Options);
if RetVal then
Result := FCommand.Parameters[0].Value;
FCommand := nil;
end;
kde Command muze byt napr. jmeno ulozene procedury, Options
je pro takovyto pripad adCmdStoredProc a Params jsou parametry
(VarArrayOf([...])). FConnection je globalni ukazatel na
_Connection. CreateADOObject je externi funkce, ktera se stara o
radne zalozeni objektu (v podstate osetrena CoCreateInstance).
Result mi pak vraci navratovou hodnotu ulozene procedury, pokud
ta nejakou hodnotu vraci. Zatim jsem nenarazil na 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
Komponenta pro ACL
[*] Erik Salaj <winsoft(zv)napri.sk> - 11.8.2000 11:45:54
> > kdyby radeji dotahli VCL pro Windows, nebo alespon povolili jeji
> > prekompilaci.
>
> To neni z principu mozne. VCL nelze modifikovat protoze neni mozne mit 20
> verzi balicku, na kterych navic stoji IDE. Spise by meli udelat nektere
tridy
> vice otevrene.
Ale ano, z principu je to mozne, dokonca by to tak malo byt. Je bezne, ze
na pocitaci je nainstalovanych viac verzii napr. ADO objektov (u mna su to 3
verzie) a aplikacie s nimi funguju. A je mozne z principu si urobit aj
vlastne ADO objekty a nahradit existujuce a pokial sa to urobi korektne,
tak aj aplikacie maju fungovat dalej (druha vec je, ze sa to nerobi, pretoze
na to nie je v tomto pripade dovod, ale z principu to mozne je).
Ked porovnam napr. moznost robit komponenty pre .NET (alebo
COM) v roznych jazykoch vzajomne binarne kompatibilne (v .NET
ta kompatibilita ma byt este aj na implementacnej urovni)
s nekompatibilitou VCL komponentov (a ak takto nekompatibilne
bude aj nove CLX, tak sa tym toto este viac skomplikuje), je to
podla mna znacny rozdiel. Aby to nedopadlo potom tak, ze vyvojari
budu robit .NET komponenty (pretoze robit 10 verzii komponentov
pre D1-D6 a C1-C5 a CLX a Kylix a rozne update packy atd. asi
pre nich velmi vyhodne nie je) a Delphi sa bude musiet prisposobit
tomuto trendu. Dalej pokial by Delphi preslo na .NET technologiu
tak VCL (aspon teda v takej monolitickej podobe v akej
momentalne je) straca akykolvek vyznam (ak ho uz vlastne nestratilo
v suvislosti s CLX). Podobny priklad mozno uviest v suvislosti
s C++ Builderom, ked komponenty sa nepisu v C++ Builderi,
pretoze v takom pripade nie su spetne kompatibilne s Delphi
a tak vlastne samotny C++ Builder straca vyznam.
Erik Salaj, WINSOFT
console
[*] voltrr1.epr(zv)mail.cez(tec)cz - 11.8.2000 10:51:37
> lze pouzit TTimer v konzolove aplikaci ?? Jak
Blbe :-))
Vzhledem k tomu ze timer je vlastne zapouzdreni wm_time jedna se o casovani
rizene zpravama windows.
Ale vzhledem k tomu ze konzolove aplikace vetsinou nemaj okno a tudiz frontu
zprav mas nekolik moznosti :
1. Udelat to spravne a pouzit funkce Win32API jako je napr. WaitForSingleObject
- ta ti zastavi program na urcitej cas
a cekani lze prerusovat ruznejma udalostnma. Vysledek bude super ale asi se
neobejdes bez thradu, eventu a
dalsich veci ktere maj do component daleko.
2. Udelat to spatne ale jednoduse a to tak ze si zaskrtnes ze chces aby to byla
Console Application.
Delphi ti pak daj k disposici objekt Application (mozna budes muse usesnout
Forms) a po kazde kdyz
provedes Application.ProcessMessages tak se ti provedou udalosti - a tudiz asi i
timer - todle jsem zkousel
kdysi s TCP/IP komponentou ale mozna to bude chodit i s tim timerem.
Osobne bych pouzit ad1. - nevidim totiz duvod k vytvareni consolove aplikace
kdyz tam stejne budes pouzivat veci
jako Timer
Radek
Podminecne ukonceni prekladu programu
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 11.8.2000 11:58:47
Nevite jak zaridit, aby preklad programu skoncil chybou, pokud je urcita
property ve formulari nastavena na nejakou konkretni (a obecne
pripustnou) hodnotu?
Jde mi o to, ze obcas v datamodulu otevru databazi a nedopatrenim ji
necham otevrenou i behem prekladu. Coz z mnoha duvodu neni zadouci....
resim to testovanim za behu programu a vyhozenim nejakeho dialogu, ale
to neni uplne elegantni reseni. Uvital bych neajkou direktivu prekladace
"if neco = neco potom prerusit preklad s hlaskou ...". Nevite jak na to?
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
TDBComboBox
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 11.8.2000 12:08:21
> Namate niekto skusenosti ci v TDBComboBoxe sa okrem hodnoty co sa
> vklada do
>
> prislusnej polozky vety databazy moze zobrazovat aj nejaky
> vysvetlujuci text. idealne by bolo keby sa v Items Comboboxu dalo
> zadat 1,prva hodnota 2,druha hodnota ... pricom po vybere by sa
> vlozila len hodnota 1,2... Neprisiel som sa na ci sa to da spravit
> cez TDBComboBox alebo treba na to nejaku inu komponentu?
V DBLookupComboboxu to jde celkem dobre. Na podrobnosti si
ted nevzpominam, uz je to dele, ale tusim, ze jak se nastavuje pole
z ListSource v tom lookupcombu, tak muze byt vice poli
oddelenych strednikem.
V pripade TDBComboboxu nevim, ale jestli je Items typu
TStrings, tak bych byl spise skepticky.
David
Tipy do Delphi - namitka
[*] Hurricane <hurricane(zv)email(tec)cz> - 11.8.2000 12:18:54
Me to taky dela.
Hurricane
----- Original Message -----
ostanim take dela, ale me docela vadi, ze pri prepinani pres Alt+Tab a
normalne pres titulek se to nechce prepnout.
console
[*] Hurricane <hurricane(zv)email(tec)cz> - 11.8.2000 12:23:13
Zdravim
Pro konzolove aplikace a aplikace bez Formu se vyplati udelat si takovy
jakysi okno pro nevizualni komponenty (Data Modue). Do toho komponenty
nahazej a pak by je podle me melo jit pouzit.
Hurricane
----- Original Message -----
> lze pouzit TTimer v konzolove aplikaci ?? Jak
TImagelist a TImage
[*] Petr Falt�nek <petr.faltynek(zv)spidla(tec)cz> - 11.8.2000 12:53:53
Ahoj lidi,
mam desnej problem: Na formulari mam komponenty TImagelist(obsahuje asi 6
obrazku) a TImage a potreboval bych nektery z tech obrazku z TImagelist
zobrazit v TImage. Uz se s tim chvili trapim a vysledek zadnej.
Prosim o pomoc!
Dik, Falta
Predavani mezi okny
[*] Petr Sladk� <sweet(zv)ksprogram(tec)cz> - 11.8.2000 13:04:23
Resil jsem to , ptotoze je to mdi aplikace, pomoci cteate(aplication)
Ale co je horsi ze mne to ted rve access violation.
Zdroj z ktereho to volam.
------------------------------------------------------
unit unit_evid_vstup_osob;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
CHILDWIN, StdCtrls, Mask, DBCtrls, Db, DBTables, ExtCtrls,
unit_evid_osob, unit_evid_zamestnanci;
private
{ Private declarations }
public
pi_priznak : integer;
pb_edit : boolean;
{ Public declarations }
end;
var
form_evid_vstup_osob: Tform_evid_vstup_osob;
child_evid_osob : Tform_evid_osob;
child_evid_zamestnanci : Tform_evid_zamestnanci;
implementation
{$R *.DFM}
procedure Tform_evid_vstup_osob.Button1Click(Sender: TObject);
begin
inherited;
{ create a new MDI child window }
Child_evid_osob := TForm_evid_osob.Create(Application);
child_evid_osob.FormStyle := fsStayOnTop;
pi_priznak := 1;
end;
procedure Tform_evid_vstup_osob.FormActivate(Sender: TObject);
var
ls_filter : string;
begin
RadioButton1Click(sender);
inherited;
if (pi_priznak = 1) and (child_evid_osob.visible = false) then
begin
query1.edit;
EditOSOBA_CISLO.Clear;
EditOSOBA_CISLO.PasteFromClipboard;
EditOSOBA_CISLO.Modified:= true;
pi_priznak := 0;
ls_filter := 'OSOBA_CISLO = ' + String(EditOSOBA_CISLO.text);
query2.active := false;
query2.filter := ls_filter;
query2.filtered := true;
query2.active := true;
end;
if (pi_priznak = 2) and (child_evid_zamestnanci.visible = false) then
begin
// query1.edit;
// EditZAM_CISLO.clear;
// EditZAM_CISLO.PasteFromClipboard;
pi_priznak := 0;
ls_filter := 'ZAM_CISLO = ' + string(EditZAM_CISLO.text);
query3.active := false;
query3.filter := ls_filter;
query3.filtered := true;
query3.active := true;
end;
end;
procedure Tform_evid_vstup_osob.Button2Click(Sender: TObject);
begin
inherited;
Child_evid_zamestnanci := TForm_evid_zamestnanci.Create(Application);
child_evid_zamestnanci.FormStyle := fsStayOnTop;
pi_priznak := 2;
end;
procedure Tform_evid_vstup_osob.DBNavigator1Click(Sender: TObject;
Button: TNavigateBtn);
var
ls_filter : string;
begin
if (button = nbInsert) then
begin
query2.active := false;
query3.active := false;
end;
if ( (button = nbnext) or (button = nbprior) or (button = nbfirst) or (button = nblast)) then
begin
query2.active := false;
query3.active := false;
if (pb_edit = true )then
begin
query1.post;
end;
if EditOSOBA_CISLO.text <> '' then
begin
// query2.active := false;
ls_filter := 'OSOBA_CISLO = '+ EditOSOBA_CISLO.text;
query2.filter := ls_filter;
query2.filtered := true;
query2.active := true;
end;
if editZAM_CISLO.text <> '' then
begin
// query3.active := false;
ls_filter := 'ZAM_CISLO =' + EditZAM_CISLO.text;
query3.filter := ls_filter;
query3.filtered := true;
query3.active := true;
end;
end;
end;
procedure Tform_evid_vstup_osob.FormCreate(Sender: TObject);
var
ls_filter : string;
begin
inherited;
if EditOSOBA_CISLO.text <> '' then
begin
query2.active := false;
ls_filter := 'OSOBA_CISLO = ' + string(EditOSOBA_CISLO.text);
query2.filter := ls_filter;
query2.filtered := true;
query2.active := true;
end;
if EditZAM_CISLO.text <> '' then
begin
query3.active := false;
ls_filter := 'ZAM_CISLO = ' + string(EditZAM_CISLO.text);
query3.filter := ls_filter;
query3.filtered := true;
query3.active := true;
end;
end;
procedure Tform_evid_vstup_osob.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
inherited;
if (Button = nbpost) then
query1.edit;
begin
if EditCAS_PRICHODU.text = '' then
begin
EditCAS_PRICHODU.text := timetostr(time);
EditDATUM_PRICHODU.text := datetostr(date);
end;
EditCAS_ZMENY.text := timetostr(time);
EditDATUM_ZMENY.text := datetostr(date);
end;
end;
procedure Tform_evid_vstup_osob.Query1BeforeEdit(DataSet: TDataSet);
begin
inherited;
pb_edit := true;
end;
procedure Tform_evid_vstup_osob.Query1BeforePost(DataSet: TDataSet);
begin
inherited;
pb_edit := false;
end;
procedure Tform_evid_vstup_osob.Query1BeforeCancel(DataSet: TDataSet);
begin
inherited;
pb_edit := false;
end;
procedure Tform_evid_vstup_osob.Button3Click(Sender: TObject);
begin
inherited;
query1.edit;
EditDATUM_ODCHODU.text := DateToStr(DATE);
EditCAS_ODCHODU.text := TimeToStr(TIME);
query1.post;
end;
procedure Tform_evid_vstup_osob.RadioButton5Click(Sender: TObject);
var
ls_filter : string;
begin
inherited;
ls_filter := '';
query1.active := false;
query1.filtered := false;
if (radiobutton2.checked) then
begin
if (maskedit1.text <> ' . . ' ) then
begin
ls_filter := 'DATUM_PRICHODU >= ' + char(39) + (maskedit1.text) + char(39);
if (maskedit2.text <> ' . . ') then ls_filter := ls_filter + ' AND ';
end;
if (maskedit2.text <> ' . . ') then
begin
ls_filter := ls_filter + 'DATUM_PRICHODU <= ' + char(39) + maskedit2.text + char(39)
end;
end
else
begin
ls_filter := ' DATUM_PRICHODU = ' + char(39) + datetostr(date) + char(39);
end;
if radiobutton4.checked then
begin
ls_filter := ls_filter + ' AND DATUM_ODCHODU IS NULL '
end;
if radiobutton3.checked then
begin
ls_filter := ls_filter + ' AND DATUM_ODCHODU IS NOT NULL '
end;
query1.filter := ls_filter;
query1.filtered := true;
query1.active := true;
end;
procedure Tform_evid_vstup_osob.RadioButton1Click(Sender: TObject);
var
ls_filter : string;
begin
inherited;
if (radiobutton1.checked) then
begin
ls_filter := '';
query1.active := false;
query1.filtered := false;
ls_filter := ' DATUM_PRICHODU = ' + char(39) + datetostr(date) + char(39);
if radiobutton4.checked then
begin
ls_filter := ls_filter + ' AND DATUM_ODCHODU IS NULL '
end;
if radiobutton3.checked then
begin
ls_filter := ls_filter + ' AND DATUM_ODCHODU IS NOT NULL '
end;
query1.filter:= ls_filter;
query1.filtered := true;
query1.active := true;
maskedit1.visible := false;
maskedit2.visible := false;
label1.visible := false;
label2.visible := false;
end;
end;
procedure Tform_evid_vstup_osob.RadioButton2Click(Sender: TObject);
begin
inherited;
maskedit1.visible := true;
maskedit1.setfocus();
maskedit2.visible := true;
label1.visible := true;
label2.visible := true;
end;
procedure Tform_evid_vstup_osob.MaskEdit1KeyPress(Sender: TObject;
var Key: Char);
var
ls_filter : string;
begin
inherited;
if key = #13 then
begin
if (radiobutton2.checked) then
begin
ls_filter := '';
query1.active := false;
query1.filtered := false;
if (maskedit1.text <> ' . . ' ) then
begin
ls_filter := 'DATUM_PRICHODU >= ' + char(39) + (maskedit1.text) + char(39);
if (maskedit2.text <> ' . . ') then ls_filter := ls_filter + ' AND ';
end;
if (maskedit2.text <> ' . . ') then
begin
ls_filter := ls_filter + 'DATUM_PRICHODU <= ' + char(39) + maskedit2.text + char(39)
end;
if radiobutton4.checked then
begin
ls_filter := ls_filter + ' AND DATUM_ODCHODU IS NULL '
end;
if radiobutton3.checked then
begin
ls_filter := ls_filter + ' AND DATUM_ODCHODU IS NOT NULL '
end;
query1.filter := ls_filter;
query1.filtered := true;
query1.active := true;
end;
end;
end;
procedure Tform_evid_vstup_osob.Query1AfterInsert(DataSet: TDataSet);
begin
inherited;
query4.active := false;
query4.active := true;
EditNAVSTEVA_OSOBA_CISLO.text := inttostr( (strtoint(DBEdit7.Text))+1);
end;
end.
------------------------------
A tady je volane okno
-------------------------------
unit unit_evid_zamestnanci;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
CHILDWIN, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask, Menus,
ComCtrls;
private
{ Private declarations }
public
ps_filter : string;
{ Public declarations }
end;
var
form_evid_zamestnanci: Tform_evid_zamestnanci;
implementation
uses unit_evid_vstup_osob;
{$R *.DFM}
procedure Tform_evid_zamestnanci.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
if FormStyle = fsStayOnTop then
begin
form_Evid_vstup_osob.EditZAM_CISLO.text := form_evid_zamestnanci.EditZAM_CISLO.text;//puvodne jsem to resil pomoci clipboardu
// EditZAM_CISLO.SelectAll;
// EditZAM_CISLO.CopyToClipboard;
end;
end;
procedure Tform_evid_zamestnanci.Edit1KeyPress(Sender: TObject;//konec skriptu
procedure Tform_evid_zamestnanci.Edit1KeyUp(Sender: TObject; var Key:
Prozatim to resim pomoci klipboardu, ale nen� jeste nejaka lepsi metoda.
Uvitam kazde navrhy.
UpdateSQL
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 11.8.2000 13:07:14
> Mam TQuery, na nej je napojen UpdateSQL a DBGrid
> V TQuery je SQL ktery vybira ze dvou tabulek Zamestnanci a strediska..
> Pak mam editacni formular, kterym menim udaje zamestnance..vyvolava se
> Doubleclickem na DBGridu Jak mam udelat aby pri zmene strediska u
> zamestnance v editacnim formulari se zmenilo i jmeno strediska (ktere
> je z druhe tabulky) v DBGRIDU... A pripadne pokud jde o novej zaznam
> zamestannce, aby se mi i zobrazilo i nove ID zamestnance ktere je typu
> AutoInc.
Ahoj,
asi bude potreba po skonceni editace (nepises, jak ji delas)
refreshovat Query, ktera tvori dataset DBGridu. Protoze metoda
Refresh u TQuery zlobi, doporucuje se Close a Open, v pripade
potreby nasledovane pokusem najit puvodni zaznam (Locate).
David
Carovy kod
[*] Ren� Otisk - 11.8.2000 14:27:57
HI,
D3
Nevite kde bych o %subj% v souvislosti s Delphinkem (komponenty, tipy,
triky, dokumentace, pravidla...). Torry a DSP jsem probrouzdam pres vikend,
takze spis neco dalsiho.
Dekuji
Sroub
TImagelist a TImage
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 11.8.2000 15:06:09
Treba takhle:
ImageList.GetBitmap(0,Image.Picture.Bitmap);
----- P�vodn� zpr�va -----
> Ahoj lidi,
> mam desnej problem: Na formulari mam komponenty TImagelist(obsahuje asi 6
> obrazku) a TImage a potreboval bych nektery z tech obrazku z TImagelist
> zobrazit v TImage. Uz se s tim chvili trapim a vysledek zadnej.
> Prosim o pomoc!
OT: ER diagramy, teorie tvorby databazi a programu
[*] Ota Mal� - 11.8.2000 14:32:33
Ahoj,
shanim nejaky material ohledne navrhu databaze, jako ER diagramy atd. Jedna
se mi hlavne o teorii navrhu, co (ne)delat, totez vlastne pri navrhu vetsich
programu, pokud o necem vite, ozvete se..
nejaky dokument, odkaz atp.
Diky
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
Znovu Stay On Top
[*] Str�n�k Franti�ek <FStranik(zv)cpoj(tec)cz> - 11.8.2000 16:23:20
Diky Ti za radu "Stay on Top" - perfektne to funguje, ale ma to jeden hacek
....
Tvoje bezvadna rada perfektne funguje (formStyle=fsStayOnTop a
defaultMonitor=dmPrimary) pouze v pripade tveho nastaveni pro 1 formular -
tady hlavni. V tom pripade skutecne kdyz spustim Word - moje aplikace
(hlavni formular] je skutecne vzdy a porad navrchu.
Velice Ti Diky za radu.
Ja ovsem potrebuji tuto variantu.
Z hlavniho formulare, ktery je "normalne" nastaven vyvolavam tuto listu
"Stay On Top", pro kterou nastavim tvoje parametry formStyle=fsStayOnTop a
defaultMonitor=dmPrimary a tam uz to nefunguje. V tomto pripade Stay on Top
funguje pouze mezi hlavnim formularem a listou stay on top - tedy pouze ve
formularich v aplikaci. Kdyz spustim napr. Word, tak se word dostane znovu
pred listu "Stay on Top"
Jestli mate jeste nekdo nejakou dalsi dobrou radu na tento problem diky
predem.
----------------------------------------------------------------------------
------------------------------------
S pozdravem F. Stranik
mail: FStranik(zv)CPOJ.CZ
Priklad na Isapi DLL
[*] Josef Slan� <slany(zv)hasici.znojmo(tec)cz> - 12.8.2000 04:44:35
Nevite prosim nekdo, kde by se daly najit priklady na
nejake ISAPI aplikace napsane v Delphi 5?
Pripadne odkaz na nejake informacni zdroje k tomuto tematu?
dekuji,
Josef Slan�
mailto:slany(zv)hasici.znojmo(tec)cz
Tel:0624-200740
GSM:0603-844999
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7. 2000
ADO, Command, Ulozene Procedury, Refresh Parametru
[*] Erik Salaj <winsoft(zv)napri.sk> - 12.8.2000 11:20:29
> nevim si rady s tim, jak nacist Parametry ulozene procedury do ADO objektu
> Command aniz bych musel vsechny parametry rucne Creatovat.
> Jako server pouzivam MS SQL 7.0 SP1.
Tu je priklad s pouzitim ADOCS komponentov:
procedure TADODemo.Button1Click(Sender: TObject);
var i: Integer;
begin
with ADOCommand1 do
begin
// namiesto priradovacich prikazov je mozne tieto hodnoty zadat do
properties komponentu
ActiveConnection := 'Provider=SQLOLEDB;User ID=sa;Initial Catalog=pubs';
CommandType := adCmdStoredProc;
CommandText := 'byroyalty;1';
Open;
// zobrazi pocet a nazvy parametrov storovanej procedury
ShowMessage(IntToStr(ADOCommand.Parameters.Count));
for i := 0 to ADOCommand.Parameters.Count - 1 do
ShowMessage(ADOCommand.Parameters[i].Name);
end;
end;
Erik Salaj, WINSOFT
AVICap.DLL or Grabovani Videa
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 12.8.2000 14:33:11
Dobry den,
Netusite kde sehnat podporu (TPU) do Delphi 5 knihovny AVICap.DLL ???
A nebo nejaky priklad grabovani videa?? (Nastaveni kodeku a pod....)
Diky
Zdenek
OT: Kontrola e-mailu
[*] Daniel Krej�� - 12.8.2000 15:38:05
Omlouvam se za OT, ale uz me tak trochu stve MS Outlook Express. Nemam
zrovna nejrychlejsi masinu a tak bych se chtel zeptat jestli nekdo z vas
nevi o nejakem freeware na prubeznou kontolu posty a nepotrebuje tolik
pameti. Jednu jiz mam, ale ta zobrazuje pouze pocet novych zprav. Na rychle
zjisteni prichozi posty je dobra, ale rad bych neco co zobrazuje treba i
odesilatele posty. Tak jestli mi muzete neco doporucit, budu velice rad.
Diky.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
www: http://fredy.kgb(tec)cz
e-mail: fredycrueger(zv)volny(tec)cz
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
AVICap.DLL or Grabovani Videa
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 12.8.2000 16:16:45
From: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
> Netusite kde sehnat podporu (TPU) do Delphi 5 knihovny AVICap.DLL ???
> A nebo nejaky priklad grabovani videa?? (Nastaveni kodeku a pod....)
>
> Diky
> Zdenek
>
Na strankach www.sinea(tec)cz je ke stazeni balicek komponent
SiVCL4 pro Delphi5, ktery obsahuje komponentu
TAviCapSinea. Neni dotazena do finalni podoby, zatim umi
grabovat pouze staticke snimky, ale jako zacatek by se to
dalo pouzit.
Je u toho take soubor AviCapH.PAS, od Borlandu
provedeny preklad puvodniho AviCap.H interface
na knihovnu AviCap32.DLL.
Vaclav Krmela
Kontrola e-mailu
[*] L.Svoboda <svoboda(zv)fdsystem(tec)cz> - 12.8.2000 16:54:14
Zdravim
Zkuste KDP (Kontrola Dosle Posty).
Je to volne ke stazeni na www.fdsystem(tec)cz
(primo http://www.fdsystem(tec)cz/inet/kdp.htm).
Doufam, ze to neni nedovolena reklama (v teto konferenci),
kdyz je to zdarma - a navic napsane v Delphi :-)
Preji hezky den
Ing. Ludek Svoboda
svoboda(zv)fdsystem(tec)cz
> Omlouvam se za OT, ale uz me tak trochu stve MS Outlook Express. Nemam
> zrovna nejrychlejsi masinu a tak bych se chtel zeptat jestli nekdo z vas
> nevi o nejakem freeware na prubeznou kontolu posty a nepotrebuje tolik
> pameti. Jednu jiz mam, ale ta zobrazuje pouze pocet novych zprav. Na
rychle
> zjisteni prichozi posty je dobra, ale rad bych neco co zobrazuje treba i
> odesilatele posty. Tak jestli mi muzete neco doporucit, budu velice rad.
> Diky.
Qreport - titulni strana
[*] Als <Als.FofrsIT(zv)worldonline(tec)cz> - 12.8.2000 19:12:14
Ahoj,
Omlouvam se, spatne jsem se vyjadril. Jde spise o to jak udelat bez
komponenty QRCompositeReport sestavu ktera se sklada za dvou
rozdilnych sestav. Napr.: Prvni dve strany sestavy maji nejaky
format o ctyrech sloupcich z datasetu1 a dalsi dve strany maji uplne
jiny vzhled a pouzivaji data z datasetu2. Vysledek pro uzivatele ma
ale byt jedna sestava o ctyrech stranach. QRComposite.. mi to
vyresil mam s nim vsak problemy na nekterych tiskarnach.
--
Za odpoved diky.
Jiri Kubelka ��� Als.FofrsIT(zv)worldonline(tec)cz ���
OT: Kontrola e-mailu
[*] Daniel Krej�� - 12.8.2000 21:20:22
> Zdravim
>
> Zkuste KDP (Kontrola Dosle Posty).
> Je to volne ke stazeni na www.fdsystem(tec)cz
> (primo http://www.fdsystem(tec)cz/inet/kdp.htm).
> Doufam, ze to neni nedovolena reklama (v teto konferenci),
> kdyz je to zdarma - a navic napsane v Delphi :-)
>
> Preji hezky den
> Ing. Ludek Svoboda
> svoboda(zv)fdsystem(tec)cz
Dekuji za tip, ale bohuzel k nicemu. Z uvedene adresy jsem si stahnul
program, ale pri jeho spusteni mi to napsalo, ze je poskozeny a mam si
obstarat novejsi verzi. Takze pokud vite nekdo o necem jinem, tak se prosim
ozvete.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
pop-up menu ve windows
[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 12.8.2000 21:58:23
Zdravim!
Prejdu hned k veci. Kdyz kliknete prav. tl. ve windows na soubor tak se zobrazi pop-up menu. No a do tohohle menu bych si potreboval priradit svoji polozku tak, aby se nasledne spustil muj program s parametrem toho souboru a jak tento parametr spracovat v mem programu (pomoci ParamStr(1)?). A tez by me zajimalo jak tu polozku odstranit.
Predem dekuji.
S pozdravem Martin Pesek, amatersky programator.
===============================
[ Martin Pe�ek
[ pesek.martin(zv)mymail(tec)cz
[ http://gm.fbi(tec)cz
[ http://markm.fbi(tec)cz
[ Info
[ Delphi 5 Ent., W98
===============================
OT: Kontrola e-mailu
[*] L.Svoboda <svoboda(zv)fdsystem(tec)cz> - 12.8.2000 23:38:02
Zkusil jsem a vazne je tam (s KDP) problem.
Ale nemel by byt, to me vazne mrzi.
Posilm upozorneni autorovi.
Dame to do poradku, jeste vydrzte,
nerad bych byl, aby ten tip byl k nicemu :-)
L.S.
> Dekuji za tip, ale bohuzel k nicemu. Z uvedene adresy jsem si stahnul
> program, ale pri jeho spusteni mi to napsalo, ze je poskozeny a mam si
> obstarat novejsi verzi. Takze pokud vite nekdo o necem jinem, tak se
prosim
> ozvete.
Jak zjistim uroven signalu na vystupu?
[*] Ale� Va���ek�����"q��y�&���w�3 - 13.8.2000 00:25:47
Zdravim,
potreboval bych vedet, jakym zpusobem zjistim uroven signalu na vystupu
zvukove karty. Potreboval bych to pro takovy maly VUMeter. Stahnul jsem si
na to komponentu, ale nejak mi to nechodi pod WinNT.
Ales
Modal Window, Tipy do Delphi - namitka
[*] Marek Spisak <spishark(zv)post(tec)cz> - 13.8.2000 09:06:35
> Jinak jsem poradne nepochopil co s tim mas za problem.
> Pripomina mi to jeden, ktery mam a neumim jej vyresit, mozna ze
> je to to same: Mam hlavni okno aplikace, z nej pomoci ShowModal
> vyvolam jiny formular (treba nastaveni). Pokud se prepnu do jine
> aplikace a pak zpet, tak vidim jen hlavni okno, okno nastaveni je
> schovano za nim a zobrazi se az po kliknuti na hlavni okno.
> Vubec nechapu proc!!!! We Windows 95 to tusim bylo OK, problem
> to je minimalne na WinNT4.
>
> Petr
Taky jsem se nad tim pozastavoval, protoze programuji ve Delphi 5 Pro,
zkousel jsem ruzne systemy, az jsem nakonec zkoncil u Win2000 Pro - IMHO
nejlepsi pro takovou praci, ale to zalezi na preferencich kazdeho. Pokud
jsem vytvoril modalni okno, tak se to ve Win95 (tusim ze i ve Win98) a
Win2000 chovalo normalne (takze to nebude NT platformou jako takovou, ale
spise nejakym bugem ve WinNT4 - verzi 3 neznam). Pokud si to myslim zpravne,
tak to nebude tak jednoduche osetrit. Jesli jste to uz nekdo vyresil, dejte
prosim vedet.
Marek.
IB
[*] Svab <tarakan(zv)volny(tec)cz> - 13.8.2000 10:14:08
Zdravim vsechny,
Jsem v IB zacatecnik, a tak jsem hledal nejaky ucebni material o programovani v IB, lec neuspel jsem. Pokud znate nejaky link s temito materialy (nejde mi o referencni prirucku) dejte mi prosim vedet.
Diky Ondra.OT: Kontrola e-mailu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.8.2000 12:40:09
Ahoj,
pouzivej Pegasus Mail (http://www.fee.vutbr(tec)cz/~kuchta/pmail/) -
jednoduchy, privetivy a dela to, co potrebujes.
Slavek
> Omlouvam se za OT, ale uz me tak trochu stve MS Outlook Express.
> e-mail: fredycrueger(zv)volny(tec)cz
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Vytvoreni StoredProc na MSSQL pres ADO(NIS)
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 13.8.2000 13:18:24
Nevite nekdo, jak co mozna nejjednodusseji, nejelegantneji
a nejspolehliveji (to toho chci nejak moc najednou :-O)
vytvorit z delphi-programu lozenou proceduru na MSSQL ?
Kdysi jsem si s tim hral a nemel jsem dobre zkusenosti, ty lozene procedury
jsem vytvarel tim, ze jsem si sestavil T-SQL skript, ktery jsem potom pustil
v TADOQuery,
nicmene chovalo se to dosti nepredvidatelne, nekdy to probehlo OK, jindy to
na me vyplivlo chybu.
Neexistuje nejaka jina cesta ?
Abych nezapomel:
D5 Pro, MSSQL 2000, ADONIS 4.0
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================VirtualView
[*] Stepan Dobias <stepan.dobias(zv)del(tec)cz> - 13.8.2000 13:46:17
Ahoj,
potreboval bych vysvetlit jak funguje priklad VirtualView z Delphi 5. Koukal jsem se do toho prikaldu a neni mi uplne jane kde bere seznam disku v PC, jejich ikony, jakym zpusobem vubec najde seznam souboru. Proc se tam objevuji i naplanovane ulohy, ale uz se tam neobjevi polozka okolni pocitace?
S pozdravem
Stepan
Ikonu disku
[*] Stepan Dobias <stepan.dobias(zv)del(tec)cz> - 13.8.2000 13:51:24
Ahoj,
chci si vytvorit takovou malou utilitu a potrebuji u ni jednoduchym zpusobem pracovat se soubory na discich nebo i na siti. Zatim jsem postupoval tak, ze jsem si fci GetLogicalDrive, nasel seznam disku v pocitaci, ale uz nevim jakym zpusobem k nim najit ikony, ktere se zobrazuji napr. v pruzkumnikovi a oznacuji jestli jde o disketu, HDD, CD-ROM.... Taky mi neni jasne jak mam zjistit je-li PC pripojene k siti a jak se v ni pohybovat.
Stepan
Priklad na Isapi DLL
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 13.8.2000 15:10:12
Ahoj,
Posilam ti 2 priklady vypisu z databaze pomoci ISAPI primo do browseru,
kdyby mel nekdo taky zajem at se ozve.
M.Jirman
>----- Original Message -----
>From: Josef Slan� <slany(zv)hasici.znojmo(tec)cz>
>
>
>Nevite prosim nekdo, kde by se daly najit priklady na
>nejake ISAPI aplikace napsane v Delphi 5?
>
>Pripadne odkaz na nejake informacni zdroje k tomuto tematu?
>
>dekuji,
>