Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
FileNameEdit v OpenDialogu jeste jednou
[*] Hurricane <hurricane(zv)quick(tec)cz> - 15.10.2001 22:56:30
Zdravim
By bylo lepsi, aby se pripona menila on-line pri zmene typu souboru z
comboboxu. Jinak samozrejme lze FileNAme po uzavreni dialogu nacist do
stringu (to uz v programu mam) a po te na nej aplikovat procedury na
doplneni pripony. To se provede, kdyz uzivatel nezvoli nic z comboboxu a
nenapis epriponu.
Pokud se problem nepodari vyresit, tak to tak udelam.
Hurricane
----- Original Message -----
> > Chci, aby dialog sam od sebe doplnoval priponu podle prave zvoleneho
typu
> > souboru. Pri udalosti OnTypeChange se zjisti, jestli uz ma soubor
(pomoci
> a neni lepsi ji doplnit az po zavreni dialogu ?Ako vola� GetCommState v Delphi 5.0
[*] Ing. Peter Matu�evsk� <pmatusevsky(zv)stonline.sk> - 15.10.2001 23:56:55
Potrebujem nastavi# parametre COM portu pomocou GetCommState
Pri deklaracii premennej
Var pom1 : DCB;
mi preklada� zahl�si chybov� hl�#ku:
[Error] Prenos.pas(24): Constant or type identifier expected
Ako v#ak deklarujem
Var pom : PDCB;
pri volan�
fSuccess := GetCommState(hcom, pom);
je chybov� hl�#ka
[Error] Prenos.pas(54): Types of actual and formal var parameters must be identical
Neviem si rady, ako to vyrie#i#
Matu#evsk�
pmatusevsky(zv)stonline.sk
Ako vola� GetCommState v Delphi 5.0
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.10.2001 00:23:48
From: "Ing. Peter Matu#evsk�" <pmatusevsky(zv)stonline.sk>
> Pri deklaracii premennej
> Var pom1 : DCB;
> mi preklada� zahl�si chybov� hl�#ku:
> [Error] Prenos.pas(24): Constant or type identifier expected
Ahoj,
procedure TForm1.Button1Click(Sender: TObject);
var
H: THandle;
DCB: TDCB;
B: Boolean;
begin
B := GetCommState(H, DCB);
end;
Petr Vones
Acc. viol. msado15.dll (MDAC 2.6 SP1)
[*] Dalibor Straka <straka(zv)bo-net(tec)cz> - 16.10.2001 00:44:39
Tohle jsem prave stahoval :( Priznaky viz puvodni mail.
Borek
>
> Ahoj,
>
> musis stahnout jeste druhy servis pack na ADOExpress:
> http://www.borland.com/devsupport/delphi/mdac26.html
>
> Petr Vones
>
Dalibor Straka
straka(zv)bo-net(tec)cz
ICQ: 8454840
Mount a UnMout PGP disku s delphi ?
[*] Tom� Hol� - 16.10.2001 00:53:49
Ahoj zkouseli jste nekdo z kodu delphi pripojit a odpojit PGP disk
heslo staci, kdyz zada uzivatel
diky TH
Jak na outer join?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 16.10.2001 07:03:12
ahoj,
asi jsem nepochopil co presne chces, z prikladu toho vypisu mi to neni
jasne, ale to muze byt tim, ze je rano ;). zkus misto sdffds pouzit
nejake smysluplne napisky a lepsi tabulku (staci tesne vedle sebe, ale
oddelit tereba strednikem.
> je mozne vytvorit jednim dotazem nasledujici vypis (IB6, dial.3) ?
> Datum | Popis1 | Tabulka1 | Tabulka2 | Popis2
> ------------------------------------------------
> 1.10. sdfsdf ajlsdjkfj jsdkflsjd jfskdfj
> 1.10. sdfsdf fsdfsf
> ...............................
>
> Toto vytvorim pomoci OUTER JOIN obou tabulek. Navic
> potrebuji, ..................
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Jak na outer join?
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.10.2001 07:31:52
> Datum | Popis1 | Tabulka1 | Tabulka2 | Popis2
> ------------------------------------------------
> 1.10. sdfsdf ajlsdjkfj jsdkflsjd jfskdfj
> 1.10. sdfsdf fsdfsf
> 2.10. dsfdff fsdfsdfff
> 5.10. fsdfsd fsdfsdfd fdsfdfdf fsdfsdf
> atd...
>
> Tabulka1(klic,datum,popis1);
> Tabulka2(klic,datum,popis2);
>
> Toto vytvorim pomoci OUTER JOIN obou tabulek. Navic potrebuji, aby
> hodnoty z obou tabulek splnovaly nejake pravidlo (tabulka1.klic=1,
> tabulka2.klic=1), ale jedine spravne reseni jsem zatim dostal uzitim
> GROUP BY... HAVING...
No, nepises, na jakem serveru, ale ulohu trochu komplikuje fakt, ze
datum je v obou tabulkach, po outer joinu mas ve vysledku oba
datumy a nekdy bude jeden z nich null, takze pokud SQL server
neumi neco jako nullif (nebo jak se to jmenuje, mam prave okno)
nebo case, asi nezbyde nez sahnout po ulozene procedure, abys
dokazal zobrazit to spravne datum. Brani neco pouziti ulozene
procedury?
David Lebeda
Kopia okna
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 16.10.2001 07:48:40
> ako spravit
> kopiu. Ide mi o to aby som nemusel dva krat programovat, a nasledne
> upgradovat okna, aj napriek tomu ze medzi nimi je rozdiel akurat 5 riadkov
Ahoj
Zkus si vytvorit Frame a ten pak umisti na dve ruzna okna tak jak potrebujes.
Preji hodne zdaru
Jirka
Plochy vzhlad komponentov
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 16.10.2001 07:51:32
dobre ranko vsetkym,
mam taky "zaciatocnicky(?)" dotaz. nie zivotne dolezity, ale pre mna
zaujimavy. a sice, rad by som dal niektorym komponentam plochy vzhlad.
nejde mi o hotove komponenty, i ked ani tie nie su na zahodenie, zo
zdrojakov sa da vela naucit ;o). ide mi skor o princip vykreslovania,
ake metody volat, funkcie pouzit a podobne. jedna sa mi najma o DBGrid,
ktoreho hlavicky stlpcov ma "desia" ;o)).
vdaka vam, za vsetko co je vo mne dobre ;o)Re[2]: Stisk <CTRL>+<ALT>+<Q>
[*] David Kraina <DKx(zv)seznam(tec)cz> - 16.10.2001 07:51:23
>> Pokud uvnitr, staci zavolat primo proceduru, ktera se ma vykonat,
>> popr. pokud to mas primo treba v Edit.OnKeyDown, tak:
>> var
>> ch: char;
>> begin
>> ch := 'Q';
>> EditKeyDown(nil, ch, [ssCtrl, ssAlt]);
Bohuzel, potrebuji, aby muj program byl rezidentni a <CTRL>+<ALT>+<Q>
stiskl jinemu programu - cili venku
______________________________________________________________________
Objevte oranzovy svet financi a vyhrajte v soutezi s ING!
http://soutez.ing(tec)cz
OT: mailov� zpravy
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 16.10.2001 08:07:44
Zdravim
Nektere maily z konference si davam do adresare konference. Poradi nekdo jak
prenest, exportovat vice zprav najednou nekam jinam. Pouzivam Outlook
Expres. Zkousel jsem Konfviev, ale nejak se mi nedarilo.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Distribuce MySQL
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 16.10.2001 08:08:28
No jak jsem si cetl licenci k mysql, tak ono to pod windows neni uplne free
(pod not MS OS je to jinak :). Presny informace najdes v dokumentaci v
kapitole:
(http://www.mysql.com/documentation/mysql/bychapter/manual_Introduction.html
#Licensing_and_Support)
1.3 MySQL Support and Licensing
....
A license is required if:
....
>>>You have a commercial application that ONLY works with MySQL and ships
the application with the MySQL server. This is >>>because we view this as
linking even if it is done over the network.
a taky v
1.3.4.1 Selling Products that use MySQL
a taky http://www.mysql.com/support/arrangements/mypl.html kde je MySQL FREE
PUBLIC LICENSE
ktera ovsem neplati
This License does not apply when running "MySQL" on any Microsoft operating
system. Microsoft operating systems include all versions of Microsoft
Windows NT and Microsoft Windows.
Ono se to malo totiz vi ...
Radek
>Jak je to prosim vas s distribuci MySQL ? Jde mi o autorska prava.
>Kdyz vytvorim projekt pod Windows pracujici na MySQL, muzu normalne jenom
>pridat instalacku MySQL ?
>Nebo staci do istalacky dat odkaz na www, kde je ke stazeni ?
>e-mail : valentapat(zv)volny(tec)cz
>ICQ: 54152896
Insert s parametrom v stored proc.
[*] J�n Drot�r - 16.10.2001 09:48:13
Mam takyto problem
potrebujem spustit v stored procedure toto:
{
CREATE PROCEDURE Import
(zv)data char(16) ,
as
EXEC('insert into cdr (data) values ((zv)data)')
}
ale Delphi zahlasi chybu " EOleException with message 'Must declare the
variable '(zv)data'
pouzivam TADOStoredProc
SQL je Microsoft SQL 7
co mam zle?
Dik
Insert s parametrom v stored proc.
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 16.10.2001 10:17:46
Neni v te komponente TADOStoredProc neco jako "Parameters" nebo "Params" ?
Tam musis zadefinovat to data a hodit tam vstupni hodnotu.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Mam takyto problem
> potrebujem spustit v stored procedure toto:
>
> {
> CREATE PROCEDURE Import
> (zv)data char(16) ,
> as
> EXEC('insert into cdr (data) values ((zv)data)')
> }
>
> ale Delphi zahlasi chybu " EOleException with message 'Must declare the
> variable '(zv)data'
>
> pouzivam TADOStoredProc
> SQL je Microsoft SQL 7
>
> co mam zle?
porovnani Interbase a MS SQL 7+
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 16.10.2001 10:20:55
> Zdar vespolek, nemate nekdo link na nejake srovna serveru v subj. ?
> Zajimalo by me, cim se lisi..
Je tu jeden starsi, ale stale zaujimavy whitepaper:
http://www.borland.com/interbase/papers/sybasewp/
Perlickou je tam vysvetlenie, preco US Army pouzila Interbase do svojich
tankov :-)
HTH
TOndrej
OT : MSSQL
[*] Martin Bob�k <bobek(zv)bobek.sk> - 16.10.2001 10:30:28
Dobry den,
MSSQL 7 :
Toto je znacny offtopic, potrebujem vsak pomoct a nakopnut. Potrebujem
script ktory v databaze zmeni objectownera na nejakeho ineho ktoreho
zadam. Ako na to odkial brat zoznam objektov etc ... ?
Vopred diki,
Bobek
Insert s parametrom v stored proc.
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 16.10.2001 10:33:39
Pri exec se vytvari nove spojeni, ve kterem zacina z ciste vody a tak
nezna zadne (zv)char.
Musis napsat
EXEC('insert into cdr (data) values ''' + (zv)data + '''')
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
16.10.2001 "J�n Drot�r":
> Mam takyto problem
> potrebujem spustit v stored procedure toto:
> {
> CREATE PROCEDURE Import
> (zv)data char(16) ,
> as
> EXEC('insert into cdr (data) values ((zv)data)')
> }> ale Delphi zahlasi chybu " EOleException with message 'Must declare the
> variable '(zv)data'
> pouzivam TADOStoredProc
> SQL je Microsoft SQL 7
> co mam zle?
> Dik
OT : MSSQL
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 16.10.2001 10:36:06
sp_changeobjectowner [ (zv)objname = ] 'object' , [ (zv)newowner = ] 'owner'
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
16.10.2001 Martin Bob�k:
> Dobry den,
> MSSQL 7 :
> Toto je znacny offtopic, potrebujem vsak pomoct a nakopnut. Potrebujem
> script ktory v databaze zmeni objectownera na nejakeho ineho ktoreho
> zadam. Ako na to odkial brat zoznam objektov etc ... ?
> Vopred diki,
> Bobek
MSSQL
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 16.10.2001 10:39:46
----- Original Message -----
From: "Martin Bob�k" <bobek(zv)bobek.sk>
> MSSQL 7 :
> Toto je znacny offtopic, potrebujem vsak pomoct a nakopnut. Potrebujem
> script ktory v databaze zmeni objectownera na nejakeho ineho ktoreho
> zadam. Ako na to odkial brat zoznam objektov etc ... ?
Skus si upravit na svoj obraz TOTO.
Pekny den.
JaNo
janog(zv)pluto.elf.stuba.sk
-------------------------------------------------------------------
DECLARE (zv)newowner char(50)
select (zv)newowner = 'dbo'
DECLARE (zv)tablename varchar(30)
DECLARE (zv)tablename_header varchar(75)
DECLARE tnames_cursor CURSOR FOR SELECT name FROM sysobjects
where sysstat & 0xf >= 2 and sysstat & 0xf <= 4
OPEN tnames_cursor
FETCH NEXT FROM tnames_cursor INTO (zv)tablename
WHILE ((zv)(zv)fetch_status <> -1)
BEGIN
IF ((zv)(zv)fetch_status <> -2)
BEGIN
SELECT (zv)tablename_header = "Updating " +
RTRIM(UPPER((zv)tablename))
PRINT (zv)tablename_header
EXEC ("sp_changeobjectowner " + (zv)tablename + "," + (zv)newowner)
END
FETCH NEXT FROM tnames_cursor INTO (zv)tablename
END
PRINT " "
PRINT " "
SELECT (zv)tablename_header = "************* NO MORE TABLES *************"
PRINT (zv)tablename_header
PRINT " "
PRINT "Owner have been updated for all tables."
DEALLOCATE tnames_cursor
-------------------------------------------------------------------
OT : MSSQL
[*] Liboz Zapletal <zapletal.libor(zv)c-box(tec)cz> - 16.10.2001 11:16:41
Tohle by mohlo pomoci
V podstate to vygeneruje skript, ktery nasledne spustite
Pokud bude problem s " zmenit na ' - to zalezi na nastaveni serveru
Skript je pro MS SQL.
-- Zmena vlastnictvi objektu vlastnika 'moje' na 'dbo'
select "sp_changeobjectowner "+
char(39)+"moje."+name+char(39)+ ", dbo"+
char(13)+char(10)+"GO"+char(13)+char(10)
from sysobjects
where OBJECTPROPERTY(id, N'OwnerId') = USER_ID('moje')
order by type, name
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Martin Bob�k
Sent: Tuesday, October 16, 2001 9:30 AM
To: DELPHI
Subject: OT : MSSQL
Dobry den,
MSSQL 7 :
Toto je znacny offtopic, potrebujem vsak pomoct a nakopnut. Potrebujem
script ktory v databaze zmeni objectownera na nejakeho ineho ktoreho
zadam. Ako na to odkial brat zoznam objektov etc ... ?
Vopred diki,
Bobek
Kopia okna
[*] VALIK <valentapat(zv)volny(tec)cz> - 16.10.2001 11:28:00
zkopiru si jen obsah souboru *.DFM
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
----- Original Message -----
From: Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 16, 2001 7:48 AM
Subject: Re: Kopia okna
> > ako spravit
> > kopiu. Ide mi o to aby som nemusel dva krat programovat, a nasledne
> > upgradovat okna, aj napriek tomu ze medzi nimi je rozdiel akurat 5
riadkov
OLE Server
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 16.10.2001 11:34:40
Ahoj,
v Delphi 5 je priklad na OLEServer MEMOEDIT.
Vsechno funguje, ale potreboval bych vedet jak ho spustit treba z Visula
Basicu
tento kod funguje pro WORD
Sub Test()
Set oTest = CreateObject("word.basic")
End Sub
Dik
Distribuce MySQL
[*] VALIK <valentapat(zv)volny(tec)cz> - 16.10.2001 11:38:17
No priklad.
Mala firma chce soft pod MySQL. Ja dodam soft. a oni si stahnou sami MySQL
to neni dostate�na klicka pro me ? Je to jen pro jeji potrebu nikde dal se
to sirit nebude.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
----- Original Message -----
From: Radek Cervinka <radek.cervinka(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 16, 2001 8:08 AM
Subject: Re: Distribuce MySQL
>
> No jak jsem si cetl licenci k mysql, tak ono to pod windows neni uplne
free
> (pod not MS OS je to jinak :). Presny informace najdes v dokumentaci v
> kapitole:
> (http://www.mysql.com/documentation/
mysql/bychapter/manual_Introduction.html
> #Licensing_and_Support)
> 1.3 MySQL Support and Licensing
> ....
> A license is required if:
> ....
> >>>You have a commercial application that ONLY works with MySQL and ships
> the application with the MySQL server. This is >>>because we view this as
> linking even if it is done over the network.
> a taky v
> 1.3.4.1 Selling Products that use MySQL
> a taky http://www.mysql.com/support/arrangements/mypl.html kde je MySQL
FREE
> PUBLIC LICENSE
> ktera ovsem neplati
> This License does not apply when running "MySQL" on any Microsoft
operating
> system. Microsoft operating systems include all versions of Microsoft
> Windows NT and Microsoft Windows.
> Ono se to malo totiz vi ...
> Radek
>
>
> >Jak je to prosim vas s distribuci MySQL ? Jde mi o autorska prava.
> >Kdyz vytvorim projekt pod Windows pracujici na MySQL, muzu normalne jenom
> >pridat instalacku MySQL ?
> >Nebo staci do istalacky dat odkaz na www, kde je ke stazeni ?
> >e-mail : valentapat(zv)volny(tec)cz
> >ICQ: 54152896
>
>
>
Jak na outer join?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 16.10.2001 12:25:37
Ahoj,
s neproporcionalnim pismem je to OK :-)
tak jinak:
Datum ; Popis1 ; Tabulka1 ; Tabulka2 ; Popis2
----------------------------------------------------
1.10. ; Chleba ; 20ks
1.10. ; Rohliky ; 10ks ; OMW ; 2000kc
2.10. ; ; ; Benzina ; 1500Kc
Potrebuju udelat takovy seznam veci, ktere dane vozidlo za nejake
obdobi prepravovalo (Tabulka1) a ktomu pridat zaznamy o cerpani PH
(Tabulka2). Nektery den se jenom vozi, jiny zase muze jenom nacerpat,
a nic nevest... myslim, ze ktomu by mohl slouzit OUTER JOIN, muzu
pouzit SP, jenom sem to chtel provest bez update databaze (jde jen o
sestavu).
Dik za zajem :-)
Roman
w95>,D4,IB6 (dial.3)
> ahoj,
>
> asi jsem nepochopil co presne chces, z prikladu toho vypisu mi to neni
> jasne, ale to muze byt tim, ze je rano ;). zkus misto sdffds pouzit
> nejake smysluplne napisky a lepsi tabulku (staci tesne vedle sebe, ale
> oddelit tereba strednikem.
>
> > je mozne vytvorit jednim dotazem nasledujici vypis (IB6, dial.3) ?
> > Datum | Popis1 | Tabulka1 | Tabulka2 | Popis2
> > ------------------------------------------------
> > 1.10. sdfsdf ajlsdjkfj jsdkflsjd jfskdfj
> > 1.10. sdfsdf fsdfsf
> > ...............................
> >
> > Toto vytvorim pomoci OUTER JOIN obou tabulek. Navic
> > potrebuji, ..................
______________________________________________________________________
Objevte oranzovy svet financi a vyhrajte v soutezi s ING!
http://soutez.ing(tec)cz
Insert s parametrom v stored proc.
[*] J�n Drot�r - 16.10.2001 12:51:30
Dik, pomohlo to !!
----- Original Message -----
From: "ing. Pavel Zilinec" <zilinec(zv)email(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 16, 2001 10:33 AM
Subject: Re: Insert s parametrom v stored proc.> Pri exec se vytvari nove spojeni, ve kterem zacina z ciste vody a tak
> nezna zadne (zv)char.
> Musis napsat
> EXEC('insert into cdr (data) values ''' + (zv)data + '''')
>
> ------
> ing. Pavel Zilinec
> mailto:zilinec(zv)email(tec)cz
>
> 16.10.2001 "J�n Drot�r":
> > Mam takyto problem
> > potrebujem spustit v stored procedure toto:
>
> > {
> > CREATE PROCEDURE Import
> > (zv)data char(16) ,
> > as
> > EXEC('insert into cdr (data) values ((zv)data)')
> > }
>
> > ale Delphi zahlasi chybu " EOleException with message 'Must declare the
> > variable '(zv)data'
>
> > pouzivam TADOStoredProc
> > SQL je Microsoft SQL 7
>
> > co mam zle?
> > Dik
>
>
>TFrame v runtime
[*] bardon <bardon(zv)akord-soft(tec)cz> - 16.10.2001 13:01:30
Nevite prosim nekdo, jestli se d� TFrame vytvorit a zobrazit v Runtime?
Kolega s tim nejak bojuje a nedari se mu to. Pokud si jej vytvori v design
time tak je to OK.
OLE Server - Vyreseno
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 16.10.2001 13:35:36
Tak uz jsem na to prisel.
Sub Test()
Set oTest = CreateObject("memo.memoapp")
End Sub
----- Original Message -----
From: "Bednar��k Dalibor" <dalibor(zv)torola(tec)cz>
To: "forum" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 16, 2001 11:34 AM
Subject: OLE Server
> Ahoj,
> v Delphi 5 je priklad na OLEServer MEMOEDIT.
> Vsechno funguje, ale potreboval bych vedet jak ho spustit treba z Visula
> Basicu
>
> tento kod funguje pro WORD
>
> Sub Test()
> Set oTest = CreateObject("word.basic")
> End Sub
>
> Dik
>
>TFrame v runtime
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 16.10.2001 13:49:58
> From: bardon
>
> Nevite prosim nekdo, jestli se d� TFrame vytvorit a zobrazit v Runtime?
> Kolega s tim nejak bojuje a nedari se mu to. Pokud si jej vytvori v design
> time tak je to OK.
Frame v Runtime bezne vytvarim i rusim.
Je potreba nastavit Parent podle toho kam ho chci umistit.
U vice Frame stejneho typu je nutne mit jedinecne jmeno.
Delam to tak, ze hned po vytvoreni mu zmenim jmeno
pridanim poradoveho cisla:
MyFrame := TMyFrame0.Create(Self);
MyFrame.Name := MyFrame.Name+IntToStr(FCounter);
MyFrame.Parent := Neco;
Inc(FCounter);
Vaclav Krmela
Jak na outer join?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 16.10.2001 14:10:21
>no, ja mam neproporcionalni font, ale stejne to nesedi ;)
dobre, tak s proporcionalnim ;-))
>tedy:
tabulka1
datum, popis, ks, vozidlo
1.10, chleba, 20, 1
1.10, rohliky, 10, 1
tabulka2
datum, popis, cena, vozidlo
1.10, omw, 2000, 1
2.10, benzina, 1500, 1
>chapu to dobre? jestli ne, tak me oprav, jinak potvrd, jestli me neco
Jo jo, takhle to vypada (+sloupecek Vozidlo)... jak uz jsem psal, OUTER JOINem
bez omezeni ziskam
spravny vypis.
Jenze to potrebuju omezit jen na jedno vozidlo a pripadne na nejaky casovy usek
Zkousel jsem laborovat s WHERE i s OUTER JOIN, ale pokazde z toho vylezlo neco
pripominajici spis LEFT JOIN :-(
Zatim dik,
Roman
Distribuce MySQL
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 16.10.2001 14:31:35
Divej ja nejsem pravnik,
ale dostanes za tu aplikaci zaplaceno - dostanes, takze je to komercni
zavisi to ciste na mysql, zavisi
==>
You have a commercial application that ONLY works with MySQL
a tim padem viz drive
nadruhou stranu dalsi pozadavek asi splnen neni
and ships the application with the MySQL server.
(nebo proste dej mysql na linuxovej server a pak je tam myslim licence jina)
Dobre si procti licenci u svoji verze mysql (rozdil mezi klient a serverem)
http://www.mysql.com/documentation/
Radek
>No priklad.
>Mala firma chce soft pod MySQL. Ja dodam soft. a oni si stahnou sami
MySQL
>to neni dostate�na klicka pro me ? Je to jen pro jeji potrebu nikde dal se
>to sirit nebude.Distribuce MySQL
[*] David Janko <djanko(zv)infoware(tec)cz> - 16.10.2001 14:48:34
Dne �t 16. ��jen 2001 11:38 jste napsal(a):
> No priklad.
> Mala firma chce soft pod MySQL. Ja dodam soft. a oni si stahnou sami
> MySQL to neni dostate�na klicka pro me ? Je to jen pro jeji potrebu nikde
> dal se to sirit nebude.
Pokud to mysql pobezi na linux serveru, tak je to urcite legalni, jak je to s
win, to nevim, viz license
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Jak na outer join?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 16.10.2001 14:53:55
> >chapu to dobre? jestli ne, tak me oprav, jinak potvrd, jestli me neco
>
> Jo jo, takhle to vypada (+sloupecek Vozidlo)... jak uz jsem psal, OUTER JOINem
> bez omezeni ziskam
> spravny vypis.
Opravuju: neziskam :-)))
Vypada to, ze jedine reseni je 2 x SELECT v SP nebo v primo v aplikaci.
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
OT mailov� zpravy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.10.2001 16:22:04
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Nektere maily z konference si davam do adresare konference. Poradi nekdo jak
> prenest, exportovat vice zprav najednou nekam jinam. Pouzivam Outlook
> Expres. Zkousel jsem Konfviev, ale nejak se mi nedarilo.
Ahoj,
Z Outlook Expressu muzes cist zpravy pres Simple MAPI, ovsem jen z root Inbox
adresare. Dale muzes zpravy pretahnout mysi do nejakeho adresare, kde se ti z
nich vytvori .eml soubory. Take lze na Internetu najit popis formatu DBX
souboru: http://www.djpate.freeserve.co.uk/AutoOE.htm
Petr Vones
HTMLHelp a access violation pri unload
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 16.10.2001 16:40:59
Ahoj,
pouzivam HTML Help API z Jedi. Pokud si
nastavim dynamicke zavadeni knihoven,
to je direktiva HTMLHELP_DYNAMIC_LINK,
pak mi to asi pri tretim ukonceni programu vyhodi
access violation. Na vine je procedura UnLoadHtmlHelp,
ktera se vola ve finalization v HtmlHelp.pas. Pokud tuhle
proceduru odstranim, funguje to bezchybne. Navic se
z event logu dovidam, ze se hhctlr.ocx uvolni z pameti stejne,
at uz UnLoadHtmlHelp volam nebo ne. V cem je chyba ?
A jeste neco, existuji nejake verze Windows, ve kterych
neni nainstalovany HTML Help ? Pokud ano (asi w95),
co staci doinstalovat ? IE4 ?
Radim
Opet Delphi 6 Update
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 16.10.2001 17:24:26
Na strance:
http://community.borland.com/article/0,1410,27800,00.html
je link na Delphi 6 update, snad to je tentokrat opravdu
definitivni.
Radim
Default SMTP server
[*] Ji�� Havelka����*���zY�W�#�� - 16.10.2001 18:00:16
> Ako zistim defaultny smtp server ked niektory zakaznici pouzivaju Outlook
> Express, ini Outlook aleba Exchange alebo vobec nepouzivaju MS ale
> napriklad Netscape.
>
> Ja potrebujem pomocou ICS alebo Synapse posielat maily ale nechcen
> otravovat uzivatela aby zadal SMTP server. Viete mi poradit ako na to ?
Tak to posli primo na konecny smtp server. Podle emailu (casti za (zv)) si v
DNS
nasjdi prislusny MX zaznam(y).
Problem bych videl v prostredich, kde nema prislusny pocitac pristup primo
do
internetu (ale napr pouze na MS Exchange server), ale to je jine zadani
ulohy.
S pozdravem Jiri Havelka
problem s databazou access 2000
[*] Tumaj <tumaj(zv)pobox.sk> - 16.10.2001 19:28:01
Zdravim vsetkych,
mam problem s databazou ACCESS pouzivam BDE vo WIN 95, WIN98, WIN NT, WIN
2000 na pristup na databazu ACCESS 97 doteraz bolo vsetko OK. Prvy
problem je Access 2000 DBE nepodporuje ACCESS 2000. Da sa to nejako
vyriesit ? Dalsi problem sa vyskytol ak nebol na pocitaci naistalovani
ACCESS ? Ako je to so sirenim DAO a jeho verziami ( 3.5 Access 97 a 3.6
Acces 2000 ). Nebolo by kvoli univerzalnosti lepsie pouzit ODBC na
ACCESS ? Uz hladam dost dlho nejaku ucelenu odpoved v konferencii, toto
volim ako poslednu moznost.
prijemny den vsetkym praje miro
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
prehrani zvuku WAV
[*] ing. V�t Jur�sek - 16.10.2001 19:36:59
[P��loha v souboru: V�t Jur�sek.vcf]
jak co nejlepe (nejspolehliveji) prehrat zvuk WAV a pritom mit moznost
kontrolovat, zda uz prehravani daneho zvuku skoncilo a pripadne v jake jeho
casti prehravani je.
nechtel bych pouzivat media player.
diky
VJ
D4standart
OT: 1000 T&T
[*] ing. V�t Jur�sek - 16.10.2001 19:39:07
[P��loha v souboru: V�t Jur�sek.vcf]
Dnes jsem si koupil knihu 1001 T&T, zhruba jsem si ji probehnul a muzu pet
pouze chvalu - vypada to velmi dobre.
Minimalne trosku odlehci konferenci spoustou opakujicich se beznych dotazu.
VJ
problem s databazou access 2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.10.2001 20:42:34
From: "Tumaj" <tumaj(zv)pobox.sk>
> Prvy problem je Access 2000 DBE nepodporuje ACCESS 2000. Da sa to nejako
> vyriesit ?
Ahoj,
Da, pouzivat veci k tomu ucelu k jakemu byly vytvoreny. To znamena (jednou pro
vzdy) zapomenout na BDE a v pripade Accessu pouzit ADO.
Petr Vones
Ako vola� GetCommState v Delphi 5.0
[*] Ing. Peter Matu�evsk� <pmatusevsky(zv)stonline.sk> - 16.10.2001 23:17:05
�akujem ve�mi pekne, ide to bez chyb.
Matu#evsk�
-----P�vodn� spr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Pre: delphi-l(zv)clexpert(tec)cz <delphi-l(zv)clexpert(tec)cz>
D�tum: 16. okt�ber 2001 0:32
Predmet: Re: Ako vola# GetCommState v Delphi 5.0
>From: "Ing. Peter Matu#evsk�" <pmatusevsky(zv)stonline.sk>
>> Pri deklaracii premennej
>> Var pom1 : DCB;
>> mi preklada� zahl�si chybov� hl�#ku:
>> [Error] Prenos.pas(24): Constant or type identifier expected
>
>Ahoj,
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
> H: THandle;
> DCB: TDCB;
> B: Boolean;
>begin
> B := GetCommState(H, DCB);
>end;
>
>Petr Vones
>TFrame v runtime
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 17.10.2001 05:08:39
> >
> > Nevite prosim nekdo, jestli se d� TFrame vytvorit a zobrazit v Runtime?
> > Kolega s tim nejak bojuje a nedari se mu to. Pokud si jej vytvori v
design
> > time tak je to OK.
>
> Frame v Runtime bezne vytvarim i rusim.
> Je potreba nastavit Parent podle toho kam ho chci umistit.
> U vice Frame stejneho typu je nutne mit jedinecne jmeno.
> Delam to tak, ze hned po vytvoreni mu zmenim jmeno
> pridanim poradoveho cisla:
>
> MyFrame := TMyFrame0.Create(Self);
> MyFrame.Name := MyFrame.Name+IntToStr(FCounter);
> MyFrame.Parent := Neco;
> Inc(FCounter);
>
> Vaclav Krmela
nebo si ten Frame priradis na jiny objekt - Self nahradis jinym umistenim -
napr.:
MyFrame := TMyFrame0.Create(ScrollBox1);
samozrejme v Destroy nezapomen
MyFrame := nil;
a jestlize v tom Frame mas nejake dynamicky vyrobene objekty - napr.: Edit,
tak
v Destroy nezapomen
with MyFrame do
for i := 0 to high(Edit) do Edit[i].Free;
MyFrame := nil;
Pavel ZIDEK
Jak dostat formatovany text to RichEditu (v dobe n
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.10.2001 07:10:00
> > nejde protoze property editor je pouze pro TStrings jako plain text.
> Musel by
> > si napsat novy editor specialne urceny pro TRichEdit
> >
> No, svym zpusobem jsi me uklidnil:-)
> Ale co treba jina komponenta? Nemas tip? Chci zobrazit nejake
> (formatovane) povidani a formatovat to progamove v onCreate mi prijde
> takove "nejake divne"
A neslo by to povidani napsat v necem externim, treba ve Wordu,
ulozit do rtf souboru a ten pak v richeditu zobrazovat? Jiste by se
nasla i cesta, jak to povidani jiz v rtf mit treba i v resource, ale o
tom nic nevim.
David Lebeda
Jak na outer join?
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 17.10.2001 08:04:42
Ahoj,
jakto, ze dva radky maji stejne datum? Podle ceho jsou spojeny? Tezko se
da pomoci, kdyz nejsou znamy kriteria...
> Ahoj,
> je mozne vytvorit jednim dotazem nasledujici vypis (IB6, dial.3) ?
>
> Datum | Popis1 | Tabulka1 | Tabulka2 | Popis2
> ------------------------------------------------
> 1.10. sdfsdf ajlsdjkfj jsdkflsjd jfskdfj
> 1.10. sdfsdf fsdfsf
> 2.10. dsfdff fsdfsdfff
> 5.10. fsdfsd fsdfsdfd fdsfdfdf fsdfsdf
> atd...
>
> Tabulka1(klic,datum,popis1);
> Tabulka2(klic,datum,popis2);opakovane (vnorene) spustanie funkcie z udalosti
[*] iko <iko(zv)kamarad(tec)cz> - 17.10.2001 08:04:23
dobre ranko
da sa nejak zabranit tomu, aby ked mi nejaka funkcia napojena na udalost
(ktora moze nastat hocikedy a to aj velmi rychlo za sebou) spustala inu
funkciu viac krat "naraz"? robi mi to tu problemy ze sa zacne vykonavat kod
nejakef funkcie ked sa este nedokoncil ten isty kod pred chvilkou.
musim si to asi nejak lockovat, ze?
opakovane (vnorene) spustanie funkcie z udalosti
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.10.2001 08:08:52
> da sa nejak zabranit tomu, aby ked mi nejaka funkcia napojena na
> udalost (ktora moze nastat hocikedy a to aj velmi rychlo za sebou)
> spustala inu funkciu viac krat "naraz"? robi mi to tu problemy ze sa
> zacne vykonavat kod nejakef funkcie ked sa este nedokoncil ten isty
> kod pred chvilkou.
Nestacila by globalni boolean promenna, kterou by prislusna
funkce na zacatku otestovala, pokud by byla true, tak exit, jinak
nahodit a na konci funkce zase shodit?
David Lebeda
Jak dostat formatovany text to RichEditu (v dobe n
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 17.10.2001 08:21:18
To muzes.
Napis si to v tom samem RTF editoru, dej SaveAs...
Tam se Ti vygeneruje text vcetne formatovani, staci to prenest do
zdrojaku a dostat do znovu v runtime do editoru.
Pro zapis do RTF mam nasledujici proceduru (ARTFText je prave vcetne
toho formatovani)
procedure TPSRichEdit.SetRTFText(ARTFText: string);
var
AMyStream : TMemoryStream;
ABuf : PChar;
begin
AMyStream := TMemoryStream.Create;
try
GetMem(ABuf, Length(ARTFText) + 1);
StrPcopy(ABuf, ARTFText);
AMyStream.write(ABuf^, Length(ARTFText));
FreeMem(ABuf);
AMyStream.Position := 0;
Self.Lines.LoadFromStream(AMyStream);
Self.Modified := False;
Self.ClearUndo;
finally
AMyStream.Free;
end;
end;
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
17.10.2001 Lebeda David:
>> > nejde protoze property editor je pouze pro TStrings jako plain text.
>> Musel by
>> > si napsat novy editor specialne urceny pro TRichEdit
>> >
>> No, svym zpusobem jsi me uklidnil:-)
>> Ale co treba jina komponenta? Nemas tip? Chci zobrazit nejake
>> (formatovane) povidani a formatovat to progamove v onCreate mi prijde
>> takove "nejake divne"
> A neslo by to povidani napsat v necem externim, treba ve Wordu,
> ulozit do rtf souboru a ten pak v richeditu zobrazovat? Jiste by se
> nasla i cesta, jak to povidani jiz v rtf mit treba i v resource, ale o
> tom nic nevim.
> David Lebeda
opakovane (vnorene) spustanie funkcie z udalosti
[*] Lubo Fule <fule(zv)ekosoft.sk> - 17.10.2001 09:18:41
Ja to riesim jednoduchym semaforom:
var semafor: boolean = false;
function blabla...
begin
if semafor then exit;
semafor := true;
try
...
... //ak sa tu nejakym sposobom zavola znovu tato funkcia, tak kedze je
semafor = true, hned na zaciatku sa ukonci
...
finally
semafor := false;
end;
end;
> da sa nejak zabranit tomu, aby ked mi nejaka funkcia napojena na udalost
> (ktora moze nastat hocikedy a to aj velmi rychlo za sebou) spustala inu
> funkciu viac krat "naraz"? robi mi to tu problemy ze sa zacne
> vykonavat kod
> nejakef funkcie ked sa este nedokoncil ten isty kod pred chvilkou.
opakovane (vnorene) spustanie funkcie z udalosti
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 17.10.2001 09:37:20
Ja to resim nasledovne :
udalost treba pro seriovy port OnData (prijem dat) :
procedure ComData;
begin
Com.OnData := nil; // zadna procedura, pokud prijdou data ... uschovaji
se v bufferu
...
...
// nejake ulohy
...
...
Com.OnData := ComData; // Znovu nastavim, proceduru, pro odchyt dat
end;
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> dobre ranko
>
> da sa nejak zabranit tomu, aby ked mi nejaka funkcia napojena na udalost
> (ktora moze nastat hocikedy a to aj velmi rychlo za sebou) spustala inu
> funkciu viac krat "naraz"? robi mi to tu problemy ze sa zacne vykonavat
kod
> nejakef funkcie ked sa este nedokoncil ten isty kod pred chvilkou.
>
> musim si to asi nejak lockovat, ze?
Interbase na win SMB serveru
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 17.10.2001 10:02:50
Zdravim vsechny
Nema nekdo z vas zkusenosti s instalaci a provozem IB6 na terminalovem
serveru bezicim na Win SMBserver.
Zajima me predevsim jak to nainstalovat, aby se to spustilo pouze jednou a
vsechny terminaly se k nemu konektovali.
diky
Pavel Bares
Kolecko mysi
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.10.2001 10:07:05
Pro zobrazeni dat nepouzivam grid, ale form na kterem mam DBEdity navazane
na DataField databaze.Posun po jednotlivych zaznamem klavesami PageUp,
PageDown neni problem osetrit. Jak ale osetrit kolecko mysi abych dosahl
stejneho vysledku?
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
1000 T&T
[*] VASEK STEPAN <vaseks(zv)stp(tec)cz> - 17.10.2001 10:11:26
Ahoj,
muzu se zepata na autora, nebo vydavatele
Diky
Stepan Vasek
-----Original Message-----
From: ing. V�t Jur�sek [mailto:delphi(zv)obecpohori(tec)cz]
Sent: Tuesday, October 16, 2001 7:39 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: 1000 T&T
Dnes jsem si koupil knihu 1001 T&T, zhruba jsem si ji probehnul a muzu pet
pouze chvalu - vypada to velmi dobre.
Minimalne trosku odlehci konferenci spoustou opakujicich se beznych dotazu.
VJ
opakovane (vnorene) spustanie funkcie z udalosti
[*] iko <iko(zv)kamarad(tec)cz> - 17.10.2001 10:21:35
to by slo, ale ja MUSIM tu spravu spracovat, pretoze sa ked vyskocim tak
stratim udaje. napadla ma takato moznost:
function blabla..
begin
while semafor do sleep(100);
{ alebo
while semafor do Application.ProcessMessages;
}
semafor:=true;
...
...
semafor:=false;
end;
----- Original Message -----
From: "Lubo Fule" <fule(zv)ekosoft.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 17, 2001 9:18 AM
Subject: RE: opakovane (vnorene) spustanie funkcie z udalosti
> Ja to riesim jednoduchym semaforom:
>
> var semafor: boolean = false;
>
> function blabla...
> begin
> if semafor then exit;
> semafor := true;
> try
> ...
> ... file://ak sa tu nejakym sposobom zavola znovu tato funkcia, tak
kedze je
> semafor = true, hned na zaciatku sa ukonci
> ...
> finally
> semafor := false;
> end;
> end;
>
> > da sa nejak zabranit tomu, aby ked mi nejaka funkcia napojena na udalost
> > (ktora moze nastat hocikedy a to aj velmi rychlo za sebou) spustala inu
> > funkciu viac krat "naraz"? robi mi to tu problemy ze sa zacne
> > vykonavat kod
> > nejakef funkcie ked sa este nedokoncil ten isty kod pred chvilkou.
>
>Nekompatibilita D6->D5 v DFM - cestina
[*] Ale� - 17.10.2001 10:28:39
Ahoj
Pri psani programu pod Delphi6 lze zdrojaky sdilet snadno s Delphi5,
pripadne pomuze
{$IFDEF VER140}.
Horsi je to ale s DFM, i kdyz jsou v textovem tvaru. D6 pridava do DFM
informaci DesignSize,
ktera se vlastne na nic nepouziva a D5 ji nezna - musi se odstranit pomoci
Ignore pri otevirani
formulare v D5.
Horsi je situace s cestinou v DFM - D6 ji koduji jinak, pravdepodobne UTF-8,
takze
misto textu 'zamyslena akce' (dlouhe y a s s hackem) se do dfm zapise
'zam'#253#353'lena akce'
a s tim si D5 opravdu neporadi.
Nevite, kde se to da zmenit/vypnout/odstanit ?
(dela to u Win98CZ i W2KCZ)
Diky za pomoc
Ales Martinik
DCOM a rusenie padlej konekcie
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 17.10.2001 10:48:47
Ahoj. D5
Mam klient/server aplikaciu postavenu na MIDAS komponentoch.
Teda na strane serveru ide o TRemoteDataModule s komponentami TQuery a
podobne...
Na strane klienta sa pouziva TDCOMConnection a TClientDataSet...
Server pouziva nastavenia (ciMultiInstance, tmFree) - teda kazdy klient
ziska COM objekt v samostatnom vlakne.
Zdielane casti su osetrene kritickymi sekciami !
Problem:
- v lokalnej sieti je klient napojeny na server
- klient vypne prud (stava sa)
- na strane servera zostane konekcia
- potrebujem ju cisto odstrelit prec
Aktualny stav:
- klient sa pravidelne hlasi
- ak sa klient neohlasi - server sa pokusi odstranit to odvisnute spojenie
- robim to ze kazdy vytvoreny objekt typu TRemoteDataModule sa pri
vytvoreni registruje - takze ho najdem a uvolnim pomocou Free
- tvari sa to korektne az na toto:
- po zatvoreni posledneho klienta sa server neukonci (v normalnom
pripade ANO)
- pri pokuse zatvorit server ten pise ze su aktivne konekcie - ked
dam napriek tomu zatvorit - hodi 2-3 vynimky a skonci !
Takze tam nieco zostava nezrusene co to blokuje !
Dost ma to hneva !
Musi predsa existovat normalne riesenie !
Robite niekto taketo aplikacie a viete tento problem riesit ?
Poradite ?
Pekny den.
Mgr. Jan Grman
janog(zv)pluto.elf.stuba.sk
Nekompatibilita D6->D5 v DFM - cestina
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.10.2001 10:49:58
17.10.2001 "Ale�":
> Ahoj
> Pri psani programu pod Delphi6 lze zdrojaky sdilet snadno s Delphi5,
> pripadne pomuze
> {$IFDEF VER140}.
> Horsi je to ale s DFM, i kdyz jsou v textovem tvaru. D6 pridava do DFM
> informaci DesignSize,
> ktera se vlastne na nic nepouziva a D5 ji nezna - musi se odstranit pomoci
> Ignore pri otevirani
> formulare v D5.
> Horsi je situace s cestinou v DFM - D6 ji koduji jinak, pravdepodobne UTF-8,
> takze
> misto textu 'zamyslena akce' (dlouhe y a s s hackem) se do dfm zapise
> 'zam'#253#353'lena akce'
> a s tim si D5 opravdu neporadi.
> Nevite, kde se to da zmenit/vypnout/odstanit ?
Neda
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
ButtonStyle u DBGridu
[*] Zden�k Sv�en - 17.10.2001 10:52:53
Ahoj,
Editor vlastnosti Columns komponenty TDBGrid nabizi asi zajimavou vlastnost.
ButtonStyle u jednotlivych sloupcu.
Z helpu jsem si precet, ze pro hodnotu cbsAuto plati:
cbsAuto - If the column is associated with a lookup field or has a value
assigned to its PickList property, the grid displays a combo box in the
column. The user can choose a value from the drop-down list.
Chapu to tak, ze pro naplneni hodnoty ve sloupci se pouzije v Gridu
rozbalovaci seznam, jehoz nabizene hodnoty mohu cerpat z jine tabulky. Asi
to tak je, ze?
Problem je, ze nevim jak to udelat.
Napr. vyplnuju tabulku "Lidi", kde je pole ID, Prijmeni a Mesto.
Pak mam tabulku "Mesta", kde je pole "Nazev mesta".
Ted bych chtel, aby se pri editaci tabulky "Lidi" v DBGridu nabizela v combo
boxu mesta z tabulky "Mesta".
Urcite nekdo vite, jak na to.
Diky
Z.S.Kolecko mysi
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 17.10.2001 10:55:14
Zaznamech nebo polech zaznamu?
V Delphi 5: Kazdopadne u Tform jsou udalosti onMouseWheel* a prvni pripad je
jednoduchy (query.Next atd),
u druheho bych vyuzil TabOrder a FindNextControl (apod).
Radek
>Pro zobrazeni dat nepouzivam grid, ale form na kterem mam DBEdity navazane
>na DataField databaze.Posun po jednotlivych zaznamem klavesami PageUp,
>PageDown neni problem osetrit. Jak ale osetrit kolecko mysi abych dosahl
>stejneho vysledku?
>
>Diky za radu
>
1000 T&T
[*] VASEK STEPAN <vaseks(zv)stp(tec)cz> - 17.10.2001 11:09:47
Predpokladam , ze jde o knihu vydavatelstv� Computer Press; autori Ludek
Svoboda ...
Stepan Vasek
-----Original Message-----
From: ing. V�t Jur�sek [mailto:delphi(zv)obecpohori(tec)cz]
Sent: Tuesday, October 16, 2001 7:39 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: 1000 T&T
Dnes jsem si koupil knihu 1001 T&T, zhruba jsem si ji probehnul a muzu pet
pouze chvalu - vypada to velmi dobre.
Minimalne trosku odlehci konferenci spoustou opakujicich se beznych dotazu.
VJ
prehrani zvuku WAV
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.10.2001 11:24:50
> jak co nejlepe (nejspolehliveji) prehrat zvuk WAV a pritom mit moznost
> kontrolovat, zda uz prehravani daneho zvuku skoncilo a
> pripadne v jake jeho
> casti prehravani je.
> nechtel bych pouzivat media player.
Cau,
su na to Windows Multimedia API funkcie waveOutOpen, waveOutPrepareHeader,
waveOutWrite, waveOutClose. Pri waveOutOpen si mozes zadat svoju callback
proceduru, handle okna, alebo ID threadu, ktory ma dostat spravu vzdy, ked
buffer dohra. (tych bufferov mozes mat viac). Na zistenie pozicie mozes
pouzit waveOutGetPosition.
Na Internete najdes kopu prikladov aj pre Delphi, skusil som narychlo
Google:
http://homepages.borland.com/efg2lab/Library/UseNet/2000/0607a.txt
http://www.undu.com/DN970901/00000038.htm
a kopec inych odkazov.
HTH
TOndrej
Mouse Microsoft InteliPoint Optical
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.10.2001 11:27:11
> From: Viktor Marek
>
> Nesetkal se n�kdo s touto situac� ?
>
> OS - MS Windows 2000 Profesional
> My# - MS InteliPoint optical USB
> Delphi5
>
> Pokud nepou�iji na rolov�n� p�edtisku (n�hledu) rolovac� kole�ko my#i jde
> listovat mezi jednotliv�mi str�nkami kl�vesami PageUp PageDown a v r�mci
> jedn� str�nky kurzorov�mi #ipkami. Jakmile ale #�hnu na kole�ko "sestava
> sebou cukne" a nepatrn� se posune jako bych #uknul na spodn� posuvnou
> li#tu. Od tohoto okam�iku jsou kl�vesy PageUp, PageDown a kurzorov� #ipky
> "mrtv�"
>
> Zkou#el jsem nainstalovat r�zn� ovlada�e my#i ba i ovlada�e grafick� karty
> (jen pro jistotu) ale v�sledek se rovnal nule
>
> Stejn� probl�m se objevil na PC s WIN 98 a my#� Genius Netscrol
> optical PS2
Jeste par upresnujicich informaci
Hardware: > From: Viktor Marek
>
> Nesetkal se n�kdo s touto situac� ?
>
> OS - MS Windows 2000 Profesional
> My# - MS InteliPoint optical USB
> Delphi5
>
> Pokud nepou�iji na rolov�n� p�edtisku (n�hledu) rolovac� kole�ko my#i jde
> listovat mezi jednotliv�mi str�nkami kl�vesami PageUp PageDown a v r�mci
> jedn� str�nky kurzorov�mi #ipkami. Jakmile ale #�hnu na kole�ko "sestava
> sebou cukne" a nepatrn� se posune jako bych #uknul na spodn� posuvnou
> li#tu. Od tohoto okam�iku jsou kl�vesy PageUp, PageDown a kurzorov� #ipky
> "mrtv�"
>
> Zkou#el jsem nainstalovat r�zn� ovlada�e my#i ba i ovlada�e grafick� karty
> (jen pro jistotu) ale v�sledek se rovnal nule
>
> Stejn� probl�m se objevil na PC s WIN 98 a my#� Genius Netscrol
> optical PS2
Jeste par upresnujicich informaci
Hardware: Microsoft PS/2 port Mouse(InteliPoint) [Omlouv�m se za chybne
uvedeny port USB]
Ovladac: Microsoft PS/2 port Mouse(InteliPoint)
Datum ovladace 1.1.2000
Verze ovladace 3.10.0.393
Digitalne podepsan: Microsoft WHQL OEM Publisher
Zkousel jsem laborovat s ruznymi nastavenimi teto mysi - baz uspechu
Testoval jsem svoji mys i s ovladacem na jinem PC s Delphi 5 a generatorem
Sinea - problem byl naprosto stejny.
Dale jsem zkousel tuto konfiguraci ve FoxPro sestavach a sestavach
QuickReport - problem se neobjevil.
Co se tyka funkce mysi s koleckem v generatoru sestav Sinea, myslim ze by
bylo vhodne implementovat posuv v ramci strany
a kdyby se podarilo dosahnout toho, ze po dosazeni konce stranky by doslo
plynule k najeti dalsi stranky jako v MS Wordu
nebylo by co resit
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
opakovane (vnorene) spustanie funkcie z udalosti
[*] Lubo Fule <fule(zv)ekosoft.sk> - 17.10.2001 11:34:59
To by tiez asi slo, ale do toho cyklu by som dal sleep(0)
> to by slo, ale ja MUSIM tu spravu spracovat, pretoze sa ked vyskocim tak
> stratim udaje. napadla ma takato moznost:
>
> function blabla..
> begin
> while semafor do sleep(100);
> { alebo
> while semafor do Application.ProcessMessages;
> }
> semafor:=true;
> ...
> ...
> semafor:=false;
> end;
>
ButtonStyle u DBGridu
[*] <delphi(zv)zvlauto.sk> - 17.10.2001 11:38:18
Ano umoznuje to.
Funguje to takto:
Ked si na DBGrid kliknes pravym tlacidlom mas zoznam, tam si popridavas
fieldy ktore chces mat v dbgride. V tom z nazvom mesto(vlaste vsade to je)
je PickList. Bud ho vyplnis rucne alebo pred otvorenim(?) tabulky ho naplnis
z inej tabulky.
tot vsjo
Robo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zden�k Sv��en
Sent: Wednesday, October 17, 2001 10:53 AM
To: Delphi konference
Subject: ButtonStyle u DBGridu
Ahoj,
Editor vlastnosti Columns komponenty TDBGrid nabizi asi zajimavou vlastnost.
ButtonStyle u jednotlivych sloupcu.
Z helpu jsem si precet, ze pro hodnotu cbsAuto plati:
cbsAuto - If the column is associated with a lookup field or has a value
assigned to its PickList property, the grid displays a combo box in the
column. The user can choose a value from the drop-down list.
Chapu to tak, ze pro naplneni hodnoty ve sloupci se pouzije v Gridu
rozbalovaci seznam, jehoz nabizene hodnoty mohu cerpat z jine tabulky. Asi
to tak je, ze?
Problem je, ze nevim jak to udelat.
Napr. vyplnuju tabulku "Lidi", kde je pole ID, Prijmeni a Mesto.
Pak mam tabulku "Mesta", kde je pole "Nazev mesta".
Ted bych chtel, aby se pri editaci tabulky "Lidi" v DBGridu nabizela v combo
boxu mesta z tabulky "Mesta".
Urcite nekdo vite, jak na to.
Diky
Z.S.
OT: help cesky
[*] Marek Soukup <code(zv)btt(tec)cz> - 17.10.2001 11:42:40
Delam help k aplikaci pomoci MS Word97 a HelpWorkshop4.03 (jedinej, kterej
jsem nasel na strankach MS). Vysledny help mrsi ceske znaky. Zkousel jsem
nasatavovat character set v HelpWorkshopu v options na zalozce font na
nejruznejsi hodnoty, ale nemelo to zadny vliv. Musim pridat neco do toho RTF
? Nebo je to pouzitym fontem (Tahoma) ?
S pozdravem
Marek Soukup
ButtonStyle u DBGridu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.10.2001 11:49:23
> Napr. vyplnuju tabulku "Lidi", kde je pole ID, Prijmeni a Mesto.
> Pak mam tabulku "Mesta", kde je pole "Nazev mesta".
> Ted bych chtel, aby se pri editaci tabulky "Lidi" v DBGridu
> nabizela v combo
> boxu mesta z tabulky "Mesta".
Cau, v tabulke 'Lidi' si nadefinuj lookup field, je to popisane v helpe pod
'Defining a lookup list column'.
HTH
TOndrej
ButtonStyle u DBGridu
[*] Zden�k Sv�en - 17.10.2001 11:58:40
Ale v helpu se pise:
If the column is associated with a lookup field OR has a value
assigned to its PickList property
To "OR" tam znamena, ze je jeste jina moznost, nez to cpat do PickListu, ne?
Z.S.
>
> Ano umoznuje to.
> Funguje to takto:
> Ked si na DBGrid kliknes pravym tlacidlom mas zoznam, tam si popridavas
> fieldy ktore chces mat v dbgride. V tom z nazvom mesto(vlaste vsade to je)
> je PickList. Bud ho vyplnis rucne alebo pred otvorenim(?) tabulky
> ho naplnis
> z inej tabulky.
> tot vsjo
>
> Robo.
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Zden�k Sv��en
> Sent: Wednesday, October 17, 2001 10:53 AM
> To: Delphi konference
> Subject: ButtonStyle u DBGridu
>
>
> Ahoj,
>
> Editor vlastnosti Columns komponenty TDBGrid nabizi asi zajimavou
> vlastnost.
> ButtonStyle u jednotlivych sloupcu.
>
> Z helpu jsem si precet, ze pro hodnotu cbsAuto plati:
> cbsAuto - If the column is associated with a lookup field or has a value
> assigned to its PickList property, the grid displays a combo box in the
> column. The user can choose a value from the drop-down list.
>
> Chapu to tak, ze pro naplneni hodnoty ve sloupci se pouzije v Gridu
> rozbalovaci seznam, jehoz nabizene hodnoty mohu cerpat z jine tabulky. Asi
> to tak je, ze?
> Problem je, ze nevim jak to udelat.
>
> Napr. vyplnuju tabulku "Lidi", kde je pole ID, Prijmeni a Mesto.
> Pak mam tabulku "Mesta", kde je pole "Nazev mesta".
> Ted bych chtel, aby se pri editaci tabulky "Lidi" v DBGridu
> nabizela v combo
> boxu mesta z tabulky "Mesta".
>
> Urcite nekdo vite, jak na to.
>
> Diky
>
> Z.S.
>
>Spakovanie suborov do jedneho exe
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 17.10.2001 12:47:45
Nevie niekto o komponentach na spakovanie suborov, s tym, ze to vytvori samorozbalobaci exe?Upper a parametr
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.10.2001 12:54:32
Ahoj,
narazil jsem na nesympaticky problem s IB6, nesetkal jste se s
tim uz nekdo?
Mam IBX4.52 a chci udelat select, ktery bude mit ve where neco
jako
where upper(nazev) starting with upper(:parametr collate
PXW_CSY)
Noa v teto podobe to nesezere - nezna slovo collate. Pokud collate
vynecham a parametr obsahuje znaky s diakritikou, upper je
neprevede na velka pismena). Pokud nepouziji parametr a do SQL
prikazu napisu text natvrdo, tj.
where upper(nazev) starting with upper('tu�' collate PXW_CSY)
funguje to spravne. Jen ten parametr a collate nejde dohromady. Je
to bug, nebo se s tim musim smirit?
Dik.
David Lebeda
Kody klaves
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.10.2001 13:14:59
Kdo mne popostrci
Proc mi kompilator nechce vzit
"If key=VK_PageDown then.." pripadne "If key=VK_PageUp.."
kdyz beze vseho vezme "If key=VK_Delete"
a jak zapsat kombinaci Ctrl+Home pripadne Ctrl+End
Vim, ze se se to da resit i "if key=33 then.." ale ....
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Kody klaves
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 17.10.2001 13:22:04
> Proc mi kompilator nechce vzit
> "If key=VK_PageDown then.." pripadne "If key=VK_PageUp.."
> kdyz beze vseho vezme "If key=VK_Delete"
> a jak zapsat kombinaci Ctrl+Home pripadne Ctrl+End
>
> Vim, ze se se to da resit i "if key=33 then.." ale ....
>
> Diky za radu
>
Tady mas virtual key table
VK_LBUTTON 01 Left mouse button
VK_RBUTTON 02 Right mouse button
VK_CANCEL 03 Used for control-break processing
VK_MBUTTON 04 Middle mouse button (three-button mouse)
-- 05-07 Undefined
VK_BACK 08 BACKSPACE key
VK_TAB 09 TAB key
-- 0A0B Undefined
VK_CLEAR 0C CLEAR key
VK_RETURN 0D ENTER key
-- 0E0F Undefined
VK_SHIFT 10 SHIFT key
VK_CONTROL 11 CTRL key
VK_MENU 12 ALT key
VK_PAUSE 13 PAUSE key
VK_CAPITAL 14 CAPS LOCK key
-- 15-19 Reserved for Kanji systems
-- 1A Undefined
VK_ESCAPE 1B ESC key
-- 1C1F Reserved for Kanji systems
VK_SPACE 20 SPACEBAR
VK_PRIOR 21 PAGE UP key
VK_NEXT 22 PAGE DOWN key
VK_END 23 END key
VK_HOME 24 HOME key
VK_LEFT 25 LEFT ARROW key
VK_UP 26 UP ARROW key
VK_RIGHT 27 RIGHT ARROW key
VK_DOWN 28 DOWN ARROW key
VK_SELECT 29 SELECT key
-- 2A OEM specific
VK_EXECUTE 2B EXECUTE key
VK_SNAPSHOT 2C PRINT SCREEN key for Windows 3.0 and later
VK_INSERT 2D INS key
VK_DELETE 2E DEL key
VK_HELP 2F HELP key
VK_0 30 0 key
VK_1 31 1 key
VK_2 32 2 key
VK_3 33 3 key
VK_4 34 4 key
VK_5 35 5 key
VK_6 36 6 key
VK_7 37 7 key
VK_8 38 8 key
VK_9 39 9 key
-- 3A40 Undefined
VK_A 41 A key
VK_B 42 B key
VK_C 43 C key
VK_D 44 D key
VK_E 45 E key
VK_F 46 F key
VK_G 47 G key
VK_H 48 H key
VK_I 49 I key
VK_J 4A J key
VK_K 4B K key
VK_L 4C L key
VK_M 4D M key
VK_N 4E N key
VK_O 4F O key
VK_P 50 P key
VK_Q 51 Q key
VK_R 52 R key
VK_S 53 S key
VK_T 54 T key
VK_U 55 U key
VK_V 56 V key
VK_W 57 W key
VK_X 58 X key
VK_Y 59 Y key
VK_Z 5A Z key
-- 5B5F Undefined
VK_NUMPAD0 60 Numeric keypad 0 key
VK_NUMPAD1 61 Numeric keypad 1 key
VK_NUMPAD2 62 Numeric keypad 2 key
VK_NUMPAD3 63 Numeric keypad 3 key
VK_NUMPAD4 64 Numeric keypad 4 key
VK_NUMPAD5 65 Numeric keypad 5 key
VK_NUMPAD6 66 Numeric keypad 6 key
VK_NUMPAD7 67 Numeric keypad 7 key
VK_NUMPAD8 68 Numeric keypad 8 key
VK_NUMPAD9 69 Numeric keypad 9 key
VK_MULTIPLY 6A Multiply key
VK_ADD 6B Add key
VK_SEPARATOR 6C Separator key
VK_SUBTRACT 6D Subtract key
VK_DECIMAL 6E Decimal key
VK_DIVIDE 6F Divide key
VK_F1 70 F1 key
VK_F2 71 F2 key
VK_F3 72 F3 key
VK_F4 73 F4 key
VK_F5 74 F5 key
VK_F6 75 F6 key
VK_F7 76 F7 key
VK_F8 77 F8 key
VK_F9 78 F9 key
VK_F10 79 F10 key
VK_F11 7A F11 key
VK_F12 7B F12 key
VK_F13 7C F13 key
VK_F14 7D F14 key
VK_F15 7E F15 key
VK_F16 7F F16 key
VK_F17 80H F17 key
VK_F18 81H F18 key
VK_F19 82H F19 key
VK_F20 83H F20 key
VK_F21 84H F21 key
VK_F22 85H F22 key
VK_F23 86H F23 key
VK_F24 87H F24 key
-- 88-8F Unassigned
VK_NUMLOCK 90 NUM LOCK key
VK_SCROLL 91 SCROLL LOCK key
-- 92B9 Unassigned
-- BAC0 OEM specific
-- C1DA Unassigned
-- DBE4 OEM specific
-- E5 Unassigned
-- E6 OEM specific
-- E7E8 Unassigned
-- E9F5 OEM specific
-- F6FE Unassigned
Sroub
ButtonStyle u DBGridu
[*] <delphi(zv)zvlauto.sk> - 17.10.2001 13:26:49
druhy sposob:
Ked kliknes na Table pravym tlacitkom tak tam mas Fields Editor nadefinuj si
fieldy ktore tam chces mat(najlepsie vsetky) a potom k prislusnemu nastav
lookupset lookupdata atd.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zden�k Sv��en
Sent: Wednesday, October 17, 2001 11:59 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: ButtonStyle u DBGridu
Ale v helpu se pise:
If the column is associated with a lookup field OR has a value
assigned to its PickList property
To "OR" tam znamena, ze je jeste jina moznost, nez to cpat do PickListu, ne?
Z.S.
>
> Ano umoznuje to.
> Funguje to takto:
> Ked si na DBGrid kliknes pravym tlacidlom mas zoznam, tam si popridavas
> fieldy ktore chces mat v dbgride. V tom z nazvom mesto(vlaste vsade to je)
> je PickList. Bud ho vyplnis rucne alebo pred otvorenim(?) tabulky
> ho naplnis
> z inej tabulky.
> tot vsjo
>
> Robo.
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Zden�k Sv��en
> Sent: Wednesday, October 17, 2001 10:53 AM
> To: Delphi konference
> Subject: ButtonStyle u DBGridu
>
>
> Ahoj,
>
> Editor vlastnosti Columns komponenty TDBGrid nabizi asi zajimavou
> vlastnost.
> ButtonStyle u jednotlivych sloupcu.
>
> Z helpu jsem si precet, ze pro hodnotu cbsAuto plati:
> cbsAuto - If the column is associated with a lookup field or has a value
> assigned to its PickList property, the grid displays a combo box in the
> column. The user can choose a value from the drop-down list.
>
> Chapu to tak, ze pro naplneni hodnoty ve sloupci se pouzije v Gridu
> rozbalovaci seznam, jehoz nabizene hodnoty mohu cerpat z jine tabulky. Asi
> to tak je, ze?
> Problem je, ze nevim jak to udelat.
>
> Napr. vyplnuju tabulku "Lidi", kde je pole ID, Prijmeni a Mesto.
> Pak mam tabulku "Mesta", kde je pole "Nazev mesta".
> Ted bych chtel, aby se pri editaci tabulky "Lidi" v DBGridu
> nabizela v combo
> boxu mesta z tabulky "Mesta".
>
> Urcite nekdo vite, jak na to.
>
> Diky
>
> Z.S.
>
>
help cesky
[*] Marek Soukup <code(zv)btt(tec)cz> - 17.10.2001 13:41:47
Zjistil jsem, ze na to mam vliv komprese. V HelpWorkshopu se necha v options
na zalozce compression nastavit typ komprese a Hall a Phrase komprese resi
muj problem s ceskymi znaky. Bohuzel zase znici odrazky pouzite v RTF
souboru. Vite nekdo jak to spolu souvisi ?
S pozdravem
Marek Soukup
Jak nahradit hodiny v tray
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 17.10.2001 13:49:15
Zdravim,
nevite nekdo jak nahradit hodiny v trayi svym vlastnim programem?
Tak jako to dela program TClock.
R. Plzak
ICQ: 71733706
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.285 / Virov� b�ze: 151 - datum vyd�n�: 5.10.2001
Kam lze ulozit cgi scripty?
[*] Petr M. Vanecek <pvanecek(zv)oagkaplice(tec)cz> - 17.10.2001 13:54:23
Pisu program, ktery ma plnit fci cgi scriptu na nejakem serveru, jenze jsem
nenasel zadny webhosting server, ktery by podporoval Delphacke standalone cgi
scripty (*.dll, nebo *.exe). Existuje vybec nejaky free webhosting server,
ktery by mi umoznil fungovani? Merlin
Spakovanie suborov do jedneho exe
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 17.10.2001 14:06:04
Treba Freeware Delphi Zip v1.6 package.
podle readme zde:
http://www.geocities.com/SiliconValley/Orchard/8607/
http://members.tripod.lycos.nl/Vleghert/
or
http://www.geocities.com/SiliconValley/Network/2114/
http://members.tripod.com/englere/
Radek
Nevie niekto o komponentach na spakovanie suborov, s tym, ze to vytvori
samorozbalobaci exe?
Kalkulacka
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 17.10.2001 14:10:50
Ahoj,
nemate nekdo ukazku kalkulacky, ktera umi rozlisovat prioritu nasobeni pred
scitanim atd. Taky bych potreboval zadavat desetinnou carku.
Diky vsem za pomoc.
Zdravi
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================DCOM a rusenie padlej konekcie
[*] cis <cis(zv)atlas(tec)cz> - 17.10.2001 14:20:40
Hi,
pouzivam taky TComponentFactory.Create(ComServer, TTreasureServer,
Class_TreasureServer, ciMultiInstance, tmFree);
a pokud shodim klienta natvrdo tak se mi server automaticky zavre.
Kdyz je
akivni dalsi klient a ukoncim jeho cinnost, server se bez problemu
zavre.
Potreboval bych poradit jak cist v threadu z clienta nejakou funkci.
To se
mi vubec nedari. Zkousel jsem ruzne varianty a vzdy to nahlasi ze
neni
podporovan variant. Priklad execute:
procedure TThreadRefresh.Execute;
begin
CoInitialize(nil);
while (not Terminated) and (fTConnectionBroker.Connected) do
begin
// fTConnectionBroker.appserver.GetAlert;
frefresh:= true;
end; // while
CoUninitialize;
end;
Nevis jak na to?
alda
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Grman
Sent: Wednesday, October 17, 2001 10:49 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: DCOM a rusenie padlej konekcie
Ahoj. D5
Mam klient/server aplikaciu postavenu na MIDAS komponentoch.
Teda na strane serveru ide o TRemoteDataModule s komponentami TQuery a
podobne...
Na strane klienta sa pouziva TDCOMConnection a TClientDataSet...
Server pouziva nastavenia (ciMultiInstance, tmFree) - teda kazdy klient
ziska COM objekt v samostatnom vlakne.
Zdielane casti su osetrene kritickymi sekciami !
traktorovy papir
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 17.10.2001 15:05:51
Tak jsem nakonec nasel - Vaclavska pasaz ~ 1000Kc...
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
Sent: Sunday, October 14, 2001 10:48 PM
> Prosim, nevite nekdo, kde v Praze sehnat %subj% A4 (pripadne cenu)?Kody klaves
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 17.10.2001 15:13:16
Jenom, doplnim, ze tu tabulku mas v helpu - rejstrik > OnKeyDown/Up...
----- Original Message -----
From: "Ren� Otisk" <otisk(zv)MISEL(tec)cz>
Sent: Wednesday, October 17, 2001 1:22 PM
>
> > Proc mi kompilator nechce vzit
> > "If key=VK_PageDown then.." pripadne "If key=VK_PageUp.."
> > kdyz beze vseho vezme "If key=VK_Delete"
> > a jak zapsat kombinaci Ctrl+Home pripadne Ctrl+End
> >
> > Vim, ze se se to da resit i "if key=33 then.." ale ....
> >
> > Diky za radu
> >
>
> Tady mas virtual key table
>
> VK_LBUTTON 01 Left mouse button
> VK_RBUTTON 02 Right mouse button
> VK_CANCEL 03 Used for control-break processing
> VK_MBUTTON 04 Middle mouse button (three-button mouse)
> -- 05-07 Undefined
> VK_BACK 08 BACKSPACE key
> VK_TAB 09 TAB key
> -- 0A0B Undefined
> VK_CLEAR 0C CLEAR key
> VK_RETURN 0D ENTER key
> -- 0E0F Undefined
> VK_SHIFT 10 SHIFT key
> VK_CONTROL 11 CTRL key
> VK_MENU 12 ALT key
> VK_PAUSE 13 PAUSE key
> VK_CAPITAL 14 CAPS LOCK key
>
> -- 15-19 Reserved for Kanji systems
> -- 1A Undefined
> VK_ESCAPE 1B ESC key
> -- 1C1F Reserved for Kanji systems
> VK_SPACE 20 SPACEBAR
> VK_PRIOR 21 PAGE UP key
> VK_NEXT 22 PAGE DOWN key
> VK_END 23 END key
> VK_HOME 24 HOME key
> VK_LEFT 25 LEFT ARROW key
> VK_UP 26 UP ARROW key
> VK_RIGHT 27 RIGHT ARROW key
> VK_DOWN 28 DOWN ARROW key
> VK_SELECT 29 SELECT key
> -- 2A OEM specific
>
> VK_EXECUTE 2B EXECUTE key
> VK_SNAPSHOT 2C PRINT SCREEN key for Windows 3.0 and later
> VK_INSERT 2D INS key
> VK_DELETE 2E DEL key
> VK_HELP 2F HELP key
> VK_0 30 0 key
> VK_1 31 1 key
> VK_2 32 2 key
> VK_3 33 3 key
> VK_4 34 4 key
> VK_5 35 5 key
> VK_6 36 6 key
> VK_7 37 7 key
> VK_8 38 8 key
> VK_9 39 9 key
> -- 3A40 Undefined
> VK_A 41 A key
> VK_B 42 B key
>
> VK_C 43 C key
> VK_D 44 D key
> VK_E 45 E key
> VK_F 46 F key
> VK_G 47 G key
> VK_H 48 H key
> VK_I 49 I key
> VK_J 4A J key
> VK_K 4B K key
> VK_L 4C L key
> VK_M 4D M key
> VK_N 4E N key
> VK_O 4F O key
> VK_P 50 P key
> VK_Q 51 Q key
> VK_R 52 R key
> VK_S 53 S key
> VK_T 54 T key
> VK_U 55 U key
> VK_V 56 V key
>
> VK_W 57 W key
> VK_X 58 X key
> VK_Y 59 Y key
> VK_Z 5A Z key
> -- 5B5F Undefined
> VK_NUMPAD0 60 Numeric keypad 0 key
> VK_NUMPAD1 61 Numeric keypad 1 key
> VK_NUMPAD2 62 Numeric keypad 2 key
> VK_NUMPAD3 63 Numeric keypad 3 key
> VK_NUMPAD4 64 Numeric keypad 4 key
> VK_NUMPAD5 65 Numeric keypad 5 key
> VK_NUMPAD6 66 Numeric keypad 6 key
> VK_NUMPAD7 67 Numeric keypad 7 key
>
> VK_NUMPAD8 68 Numeric keypad 8 key
> VK_NUMPAD9 69 Numeric keypad 9 key
> VK_MULTIPLY 6A Multiply key
> VK_ADD 6B Add key
> VK_SEPARATOR 6C Separator key
> VK_SUBTRACT 6D Subtract key
> VK_DECIMAL 6E Decimal key
> VK_DIVIDE 6F Divide key
> VK_F1 70 F1 key
> VK_F2 71 F2 key
> VK_F3 72 F3 key
> VK_F4 73 F4 key
> VK_F5 74 F5 key
> VK_F6 75 F6 key
> VK_F7 76 F7 key
> VK_F8 77 F8 key
> VK_F9 78 F9 key
>
> VK_F10 79 F10 key
> VK_F11 7A F11 key
> VK_F12 7B F12 key
> VK_F13 7C F13 key
> VK_F14 7D F14 key
> VK_F15 7E F15 key
> VK_F16 7F F16 key
> VK_F17 80H F17 key
> VK_F18 81H F18 key
> VK_F19 82H F19 key
> VK_F20 83H F20 key
> VK_F21 84H F21 key
> VK_F22 85H F22 key
> VK_F23 86H F23 key
> VK_F24 87H F24 key
> -- 88-8F Unassigned
> VK_NUMLOCK 90 NUM LOCK key
>
> VK_SCROLL 91 SCROLL LOCK key
> -- 92B9 Unassigned
> -- BAC0 OEM specific
> -- C1DA Unassigned
> -- DBE4 OEM specific
> -- E5 Unassigned
> -- E6 OEM specific
> -- E7E8 Unassigned
> -- E9F5 OEM specific
> -- F6FE Unassigned
>
> Sroub
>
>osetreni chyb
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 17.10.2001 15:16:59
zdravim,
chtel bych udelat nejaky soubor, ktery by obsahoval chybova hlaseni programu. Neco jako chyba �.1 Neni zadan autor...
Jak se neco takoveho dela? Pomoci DBF, textoveho, nebo datoveho souboru? A dela se takova vec timto zpusobem?
Predem diky za jakekoliv nakopnuti
S pozdravem
Mirek Drejcek
OT: 1000 T&T
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 17.10.2001 15:18:18
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of ing. V�t Jur�sek
Ahoj,
> Dnes jsem si koupil knihu 1001 T&T, zhruba jsem si ji probehnul a muzu pet
> pouze chvalu - vypada to velmi dobre.
> Minimalne trosku odlehci konferenci spoustou opakujicich se
> beznych dotazu.
Ono by odlehcilo i to, kdyby se kazdy nez poda dotaz
podival do archivu konference jestli uz to nebylo reseno,
at uz do sveho archivu mailu nebo na www.delphi(tec)cz :)).
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Kam lze ulozit cgi scripty?
[*] Radek.Holecek(zv)up.mpsv(tec)cz - 17.10.2001 15:26:27
Zdravim,
ja si myslim, ze asi nic takoveho nenajdes. Je to asi predevsim z hlediska
bezpecnosti, nebot do exe souboru nevidis (co vsechno dokaze). A asi zadny
admin si nedovoli spustit na svem serveru neco, o cem nema paru.
Kdysi jsem takovy server hledal taky, ale nebyl jsem uspesny.
Jestli ale neco najdes, dej mi, prosim, vedet.
Radek Holecek
>Od: Petr M. Vanecek [mailto:pvanecek(zv)oagkaplice(tec)cz]
>P�edm�t: Kam lze ulozit cgi scripty?
>
>Pisu program, ktery ma plnit fci cgi scriptu na nejakem serveru, jenze jsem
>nenasel zadny webhosting server, ktery by podporoval Delphacke standalone
cgi
>scripty (*.dll, nebo *.exe). Existuje vybec nejaky free webhosting server,
>ktery by mi umoznil fungovani? Merlin
Kam lze ulozit cgi scripty?
[*] Marek Agh <magh(zv)mail.risoul(tec)com.mx> - 17.10.2001 08:40:09 -0500
Zdravim,
tiez sa pripajam k zoznamu tych, co hladali takyto free hosting server a
nenasli ho. Na MS Personal Web Serveri som ladil, ale vonku som nenasiel
ziadne miesto, kde by sa to dalo zverejnit.
Ak niekto nejaky server najde, nech mi, prosim, tiez da vediet.
Marek Agh
> Zdravim,
>
> ja si myslim, ze asi nic takoveho nenajdes. Je to asi predevsim z hlediska
> bezpecnosti, nebot do exe souboru nevidis (co vsechno dokaze). A asi zadny
> admin si nedovoli spustit na svem serveru neco, o cem nema paru.
> Kdysi jsem takovy server hledal taky, ale nebyl jsem uspesny.
> Jestli ale neco najdes, dej mi, prosim, vedet.
>
> Radek Holecek
>
> >Od: Petr M. Vanecek [mailto:pvanecek(zv)oagkaplice(tec)cz]
> >P�edm�t: Kam lze ulozit cgi scripty?
> >
> >Pisu program, ktery ma plnit fci cgi scriptu na nejakem serveru, jenze
jsem
>
> >nenasel zadny webhosting server, ktery by podporoval Delphacke standalone
> cgi
> >scripty (*.dll, nebo *.exe). Existuje vybec nejaky free webhosting
server,
> >ktery by mi umoznil fungovani? Merlin
DCOM a rusenie padlej konekcie
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 17.10.2001 15:57:12
> a pokud shodim klienta natvrdo tak se mi server automaticky zavre.
> Kdyz je
> akivni dalsi klient a ukoncim jeho cinnost, server se bez problemu
> zavre.
To sa mi nechce verit. Ja som to nech robim co robim nikdy nedosiahol.
V com by mohol byt problem ? Napada Ta nieco ?
> Potreboval bych poradit jak cist v threadu z clienta nejakou funkci.
> To se
> mi vubec nedari. Zkousel jsem ruzne varianty a vzdy to nahlasi ze
> neni
> podporovan variant.
Pre zmenu zase s tymto nemam problem ja.
Ja vytvaram v Threade kopiu TDCOMConnection - mne sa ho zdielat nepodarilo
(mozno sa to neda).
Kazdy Thread mi potom vyvori na serveri nove spojenie (tiez v samostatnom
threade), ale to mi nevadi - dokonca v mojom pripade to bol aj ciel. To ze
volas CoInitialize a CoUninitialize je spravne.
-----------------------------
Jan Grman
janog(zv)pluto.elf.stuba.sk
DCOM a rusenie padlej konekcie
[*] cis <cis(zv)atlas(tec)cz> - 17.10.2001 16:14:47
Hi,
jeste nez jsem odpovidal tak jsem to testoval. I kdyz mam na serveru
spusteny delphi pro trasovani serveru, tak po nasilnem ukonceni clienta
normalne zavru server bez jakehokoliv dotazu.
Pouzivam D6. pro spojeni TConnectionBroker, kde si volim mezi
TSocketConnection a TDCOMconnection. At pouziji libovolny tak se to chova
stejne dobre....
Na serveru jsou NT4, SP5. A pak mozna v nastaveni parametru dcomcnfg
alda
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jan Grman
> Sent: Wednesday, October 17, 2001 3:57 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: DCOM a rusenie padlej konekcie
>
>
> > a pokud shodim klienta natvrdo tak se mi server automaticky zavre.
> > Kdyz je
> > akivni dalsi klient a ukoncim jeho cinnost, server se bez problemu
> > zavre.
> To sa mi nechce verit. Ja som to nech robim co robim nikdy nedosiahol.
> V com by mohol byt problem ? Napada Ta nieco ?
>
> > Potreboval bych poradit jak cist v threadu z clienta nejakou funkci.
> > To se
> > mi vubec nedari. Zkousel jsem ruzne varianty a vzdy to nahlasi ze
> > neni
> > podporovan variant.
>
> Pre zmenu zase s tymto nemam problem ja.
> Ja vytvaram v Threade kopiu TDCOMConnection - mne sa ho zdielat nepodarilo
> (mozno sa to neda).
> Kazdy Thread mi potom vyvori na serveri nove spojenie (tiez v samostatnom
> threade), ale to mi nevadi - dokonca v mojom pripade to bol aj ciel. To ze
> volas CoInitialize a CoUninitialize je spravne.
> -----------------------------
> Jan Grman
> janog(zv)pluto.elf.stuba.sk
>
>
>
Kam lze ulozit cgi scripty?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.10.2001 16:28:53
> Pisu program, ktery ma plnit fci cgi scriptu na nejakem
> serveru, jenze jsem
> nenasel zadny webhosting server, ktery by podporoval
> Delphacke standalone cgi
> scripty (*.dll, nebo *.exe). Existuje vybec nejaky free
> webhosting server,
> ktery by mi umoznil fungovani? Merlin
Skus Google:
http://www.google.com/search?hl=en&q=%22free+web+hosting%22+and+CGI
mne to dalo vyse dvadsattisic odkazov... ;-) skusil som iba prvych par, mal
som pocit, ze to sedelo - mali tam hosting s podporou CGI, vsetko zadarmo.
HTH
TOndrej
Kam lze ulozit cgi scripty?
[*] Marek Agh <magh(zv)mail.risoul(tec)com.mx> - 17.10.2001 09:28:03 -0500
> Skus Google:
> http://www.google.com/search?hl=en&q=%22free+web+hosting%22+and+CGI
> mne to dalo vyse dvadsattisic odkazov... ;-) skusil som iba prvych par,
mal
> som pocit, ze to sedelo - mali tam hosting s podporou CGI, vsetko
zadarmo.
Tade som isiel aj ja, ale to nezerie CGI exace.
Marek Agh
CGI a POST
[*] Marek Agh <magh(zv)mail.risoul(tec)com.mx> - 17.10.2001 09:39:12 -0500
> Zdravim vsechny,
> rad bych zjistil, jak programove precist hodnoty poli z html formulare
> odeslaneho metodou POST na CGI aplikaci napsanou v D5.
> Kdyz pouziju metodu GET, tak to zjistim pres QUERY_STRING, ale pri POSTu
je
> tato promena prazdna.
Ja idem cez
WebRequest.ContentFields.Values['MyFormInput'] na hodnoty formularov
WebRequest.CookieFields.Values['MyCookie'] na hodnoty cookies
WebRequest.QueryFields.Values['MyURLParam'] na hodnoty parametrov v url
Dufam, ze to je to co chces (ale D4).
Marek Agh
DCOM a rusenie padlej konekcie
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 17.10.2001 16:40:09
> Pouzivam D6. pro spojeni TConnectionBroker, kde si volim mezi
> TSocketConnection a TDCOMconnection. At pouziji libovolny tak se to chova
> stejne dobre....
Pouzivam zatial D5. Nieco ako TConnectionBroker by som potreboval (ale v D5
to asi neexistuje kedze to nemozem najst).
Ja pouzivam TSocketConnection a TDCOMconnection komponenty medzi ktorymi na
zaklade parametrov programu prepinam.
Predpokladam ze len v tom ze nepouzivam TConnectionBroker to nebude (lebo on
asi pouziva na pozadi tie dva komponenty ci ich casti)...
Ako nastavujes vlastnosti COM objektu v DCOMCNFG - vzdy ma to zaujimalo ale
nic som o tom nikde poriadne nenasiel.
Vdaka.
-----------------------------
Jan Grman
janog(zv)pluto.elf.stuba.sk
CGI a POST
[*] Jakub Verner <verner(zv)cenop(tec)cz> - 17.10.2001 17:03:49
Zdravim vsechny,
rad bych zjistil, jak programove precist hodnoty poli z html formulare
odeslaneho metodou POST na CGI aplikaci napsanou v D5.
Kdyz pouziju metodu GET, tak to zjistim pres QUERY_STRING, ale pri POSTu je
tato promena prazdna.
Diky
Jakub Verner
Kody klaves 2
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.10.2001 17:21:50
Asi nekde neco voru
Poradte nekdo kde je bota. Komilator hlasi incompatible types.
Form2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (key=VK_End) and (Shift=ssCtrl) then ShowMessage('Byla stisknuta
kl�vesa Ctrl+End');
end;
Diky
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Kody klaves 2
[*] Jirka Kr�l jr. <admin(zv)printo(tec)cz> - 17.10.2001 17:27:47
>>Poradte nekdo kde je bota. Komilator hlasi incompatible types.
>>
>>Form2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
>>begin
>> if (key=VK_End) and (Shift=ssCtrl) then ShowMessage('Byla stisknuta
>>kl�vesa Ctrl+End');
>>end;
zkus toto:
if (key=VK_End) and (Shift=[ssCtrl]) then ShowMessage('Byla stisknuta
kl�vesa Ctrl+End');==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)mujoskar(tec)cz
ICQ# 15303940
Kody klaves 2
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 17.10.2001 17:45:33
Jestli by nemelo byt misto (Shift=ssCtrl) --> (Shift in [ssCtrl])
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
17.10.2001 Viktor Marek:
> Asi nekde neco voru
> Poradte nekdo kde je bota. Komilator hlasi incompatible types.
> Form2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
> begin
> if (key=VK_End) and (Shift=ssCtrl) then ShowMessage('Byla stisknuta
> kl�vesa Ctrl+End');
> end;
> Diky
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
CGI a POST
[*] David Janko <djanko(zv)infoware(tec)cz> - 17.10.2001 17:47:34
Dne st 17. ��jen 2001 17:03 jste napsal(a):
> Zdravim vsechny,
> rad bych zjistil, jak programove precist hodnoty poli z html formulare
> odeslaneho metodou POST na CGI aplikaci napsanou v D5.
> Kdyz pouziju metodu GET, tak to zjistim pres QUERY_STRING, ale pri POSTu je
> tato promena prazdna.
>
> Diky
> Jakub Verner
Standard rika, ze pri metode POST dostane program vstupni data na svuj
standardni vstup (stdin). Tam je muzete vycist. Mam i svoji platformove
nezavislou knihovnicku, ale je v C.
Jestli pro to maji podporu primo D, to nevim. Jinak, pokud proto neni nejaky
zvlastni duvod, tak doporucuji misto CGI pouzit PHP.
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
Zachyceni SQLCODE
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 17.10.2001 18:06:36
> SQLCODE lze zachytit vzdy, tedy nejen v pripade chyby (alespon
> pokud jde o API, u jazyka ul. proceduru to nema jaksi vyznam :-)
>
> Jde o navratovou hodnotu a zachytit ji lze pri volani API funkci
> IB/FB (DSQL) nebo v ulozenych procedurach/triggerech (prikaz
> WHEN..DO).
>
1.Nedari mi zachytit a priradit do navratove promenne ":CODE" hodnotu SQL
v ulozene procedure.
2. hlaseni EXCEPTIONS definovane v primo v databazi se mi v DELPHI spusti
pouze pokud
mam zatrhnute "Stop on Delphi Exceptions" jinak mi to projde bez
trestu.
jde mi o to aby mi vyskocila hlaska o neexistenci recordu a v Delphi jsem si
mohl SQLCODE
nekam priradit.
STORED PROCEDURE .....
BEGIN
BEGIN
SELECT DRUH_JIDLO,CISLO_JIDLO,TEXT_POLOZKA,CENA_JIDLO,MJ_JIDLO,
GRAMAZ_JIDLO,TEXT_POLOZKAD,VNITROCENA_JIDLO,
CISLO_RECEPT,CAROVY_KOD,IDENTIFIKACE
FROM C_JIDLA
WHERE CISLO_JIDLO = :IDENT_CISLOJIDLO
INTO :DRUHJIDLO, CISLOJIDLO,:NAZEVJIDLO, :CENAJIDLO, :MJJIDLO ,:GRAMAZJIDLO,
:TEXTPOLOZKAD,:VNITROCENAJIDLO,
:CISLORECEPT,:CAROVYKOD,:IDENTIFIKACE;
IF (:CISLOJIDLO IS NULL ) THEN
BEGIN
EXCEPTION RecordNotFound;
SUSPEND;
END
WHEN ANY DO
EXCEPTION OtherMessage ;
END
Snad by mi pomohl maly priklad.
diky
Jiri Heinisch
Zacatek skupiny v Sinea
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 17.10.2001 19:08:30
Ahoj,
mam v Sinea sestave vytvorenou skupinu v jejimz zahlavi se zobrazuje polozka z
Datasetu. V detailu se pak stejna polozka tiskne znovu, coz je nezadouci. Jak
zajistim, aby se po
vytisknuti zahlavi skupiny preslo na dalsi zaznam nebo aby se netisknul detail?
Tj. zdrojova tabulka obsahuje radky:
Tady je zahlavi skupiny
Radek 1
Radek 2
Pokud vytvorim sestavu, ziskam takovyto vypis:
Tady je zahlavi skupiny
------------------------
Tady je zahlavi skupiny <-- toto tady nechcu
Radek 1
Radek 2
-----------------------
Dik,
Roman
OOOOOOOOOOOOOOOO
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Jak na outer join?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 17.10.2001 19:21:02
Ahoj,
dva radky maji stejne datum, protoze:
Tabulka1(klic,vozidlo,datum,popis1);
Tabulka2(klic,vozidlo,datum,popis2);
Jak uz jsem psal, v jeden den muze vozidlo nekolikrat vyjet (Tabulka1) a
nekolikrat cerpat (Tabulka2), anebo take nemusi...
Kriteria jsou: omezeni pro jedno vozidlo (napr. vozidlo=1) a omezeni na casove
obdobi (napr. datum>='1.1.2001' and datum<='31.12.2001').
Jestli muzu poprosit, zajimalo by me reseni, jak to vyresit jedinym dotazem (tj.
2x left join, je-li to mozne)?
Dik,
Roman
>Ahoj,
>
>jakto, ze dva radky maji stejne datum? Podle ceho jsou spojeny? Tezko se
>da pomoci, kdyz nejsou znamy kriteria...
> Ahoj,
> je mozne vytvorit jednim dotazem nasledujici vypis (IB6, dial.3) ?
>
> Datum | Popis1 | Tabulka1 | Tabulka2 | Popis2
> ------------------------------------------------
> 1.10. sdfsdf ajlsdjkfj jsdkflsjd jfskdfj
> 1.10. sdfsdf fsdfsf
> 2.10. dsfdff fsdfsdfff
> 5.10. fsdfsd fsdfsdfd fdsfdfdf fsdfsdf
> atd...Distribuce MySQL
[*] Ales Kysela <sup(zv)publicis(tec)cz> - 17.10.2001 19:45:46
No na 99 procent to plati i pro linux version. Jen jsou jine podminky
registrace.
Pokud vim, tak jedinej uplne free sql server je POSTGRES SQL.
podpora je podobna jako pro mysql. Existujou nativni i odbc ovladace.
POKUD SE MYSQL POUZIVA PRO KOMERCNI UCELY MEL BY SE PLATIT. Provideri to
casto obchazeji s tim,
ze jejich instalace na free homech, jsou funkcne omezeny, a jsou k disp.
zdarma a tedy slouzi
spise pro vyuku uzivatelu, tedy non commercial vyuziti.> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of David Janko
> Sent: Tuesday, October 16, 2001 2:49 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Distribuce MySQL
>
>
> Dne �t 16. ��jen 2001 11:38 jste napsal(a):
> > No priklad.
> > Mala firma chce soft pod MySQL. Ja dodam soft. a oni si
> stahnou sami
> > MySQL to neni dostate�na klicka pro me ? Je to jen pro
> jeji potrebu nikde
> > dal se to sirit nebude.
>
> Pokud to mysql pobezi na linux serveru, tak je to urcite
> legalni, jak je to s
> win, to nevim, viz license
>
> --
> Best Regards,
>
> David Janko
> programmer & Linux system administrator
> djanko(zv)infoware(tec)cz
> Czech Republic / Central Europe
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
Zacatek skupiny v Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 17.10.2001 21:12:27
> From: Roman
>
> mam v Sinea sestave vytvorenou skupinu v jejimz zahlavi se
> zobrazuje polozka z
> Datasetu. V detailu se pak stejna polozka tiskne znovu, coz je
> nezadouci. Jak
> zajistim, aby se po
> vytisknuti zahlavi skupiny preslo na dalsi zaznam nebo aby se
> netisknul detail?
>
> Tj. zdrojova tabulka obsahuje radky:
> Tady je zahlavi skupiny
> Radek 1
> Radek 2
>
> Pokud vytvorim sestavu, ziskam takovyto vypis:
>
> Tady je zahlavi skupiny
> ------------------------
> Tady je zahlavi skupiny <-- toto tady nechcu
> Radek 1
> Radek 2
> -----------------------
Zadny problem. Staci cefinovat obsluhu udalosti
OnTiskOddilu treba takto:
procedure TForm1.Sestava1TiskOddilu(Sender: TSestava; Index: Integer;
var Tisknout: Boolean);
begin
case Index of
odSkupiny: FPrvniTeloSkupiny := true;
odTela: if FPrvniTeloSkupiny then
begin
Tisknout := false;
FPrvniTeloSkupiny := false;
end;
end;
end;
kde FPrvniTeloSkupiny je nejaka "globalni"
boolean promenna. Pri tisku oddilu zacatku
skupiny se nahodi na true a pri prvnim tele
sestavy zablokuje jeho tisk.
Vaclav Krmela
Multiple UNIQUE
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 17.10.2001 21:22:55
Dobry den,
pouzivam IB6 a potreboval bych vytvorit neco jako multiple UNIQUE omezeni: tj.
aby slo do daneho sloupce vlozit nejvyse (napr.) 3 stejne hodnoty.
Zkousel jsem pouzit
CHECK( 3 > (SELECT count(*) FROM Tab WHERE Tab.TenSloupec = TenSloupec) ),
take podobny trigger, ale problem je v tom, ze pokud provadim soubezne 2
transakce, tak v prvni nevidim hodnoty, ktere jiz vlozila druha transakce a
klidne se mi podari do tabulky vlozit vice stejnych hodnot, nez jsem chtel
dovolit. Vim, ze resenim by asi bylo pouzivat transakci s PROTECTED WRITE, ale
to se mi nelibi, protoze pak toto integritni omezeni vlastne spravuje client -
pokud nespusti spravne transakci, je integrita v cudu.
Musi to jit prece vyresit, vzdyt UNIQUE omezeni krasne funguje - proste bud tu
druhou transakci pozdrzi, nebo primo zahlasi chybu. Ale nevim
jak. Poradite mi nekdo?
Mirek
Kody klaves 2
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 17.10.2001 22:14:14
----- Original Message -----
From: "ing. Pavel Zilinec" <zilinec(zv)email(tec)cz>
Sent: Wednesday, October 17, 2001 5:45 PM
> Jestli by nemelo byt misto (Shift=ssCtrl) --> (Shift in [ssCtrl])
^^^^^^^^^^^
Spatne - Shift je mnozina (set) a ssCtrl jeji mozny prvek...
Spravne:
a) If (Key=VK_end) and (ssCtrl in Shift) then
- pokud stisknes End a cokoliv v komnbinaci s Ctrl
b) If (Key=VK_end) and (Shift=[ssCtrl]) then
- pokud stisknes pouze a jenom End a Ctrl (jak psal Jirka Kral)
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
Prepinani mezi kodem a programem pri ladeni
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 17.10.2001 23:14:24
Ahoj,
trochu mi zacina vadit, ze pri krokovani se mi automaticky neprepne okno
se zdrojakem na program, kdyz se chce nejaky vstup od uzivatele. Neda se
to nekde nastavit?
Miroslav Novosad
mirnov(zv)atlas(tec)cz
(Win2k SP1, D5Std SP1)Prepinani mezi kodem a programem pri ladeni
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 18.10.2001 04:45:51
Zdravim,
mi to taky vadi, proto si porizuji druhy monitor na jednom PC.
Pavel ZIDEK
> trochu mi zacina vadit, ze pri krokovani se mi automaticky neprepne okno
> se zdrojakem na program, kdyz se chce nejaky vstup od uzivatele. Neda se
> to nekde nastavit?
>
> Miroslav Novosad
> mirnov(zv)atlas(tec)cz
Prepinani mezi kodem a programem pri ladeni
[*] Martin Kr�kora <krakora(zv)prvnielektro(tec)cz> - 18.10.2001 05:54:55
Ahoj
mam pocit, ze dva monitory problem nevyresi. Stejne si budes muset
prepinat mezi okny. Pravda je, ze se ti nebudou prekrejvat a nebudes je
muset nikde hledat.
----- P�vodn� zpr�va -----
Od: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 18. ��jna 2001 4:45
P�edm�t: Re: Prepinani mezi kodem a programem pri ladeni
> Zdravim,
> mi to taky vadi, proto si porizuji druhy monitor na jednom PC.
> Pavel ZIDEK
>
> > trochu mi zacina vadit, ze pri krokovani se mi automaticky neprepne okno
> > se zdrojakem na program, kdyz se chce nejaky vstup od uzivatele. Neda se
> > to nekde nastavit?
> >
> > Miroslav Novosad
> > mirnov(zv)atlas(tec)cz
>Jak na outer join?
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.10.2001 07:12:05
> dva radky maji stejne datum, protoze:
> Tabulka1(klic,vozidlo,datum,popis1);
> Tabulka2(klic,vozidlo,datum,popis2);
> Jak uz jsem psal, v jeden den muze vozidlo nekolikrat vyjet (Tabulka1)
> a nekolikrat cerpat (Tabulka2), anebo take nemusi... Kriteria jsou:
> omezeni pro jedno vozidlo (napr. vozidlo=1) a omezeni na casove obdobi
> (napr. datum>='1.1.2001' and datum<='31.12.2001').
>
> Jestli muzu poprosit, zajimalo by me reseni, jak to vyresit jedinym
> dotazem (tj. 2x left join, je-li to mozne)?
>
IMHO to v jednom dotazu nelze realizovat. Jednak kvuli datu, jak
uz jsem psal drive a pak take kvuli tomu, ze pozadovana operace
neni join.
Protoze vsechny hodnoty "klice vysledku", tj. vozidlo a datum,
nejsou obsazeny v jedne tabulce, nelze pouzit left join, ale muselo
by jit o full join. Jak vypadal Tvuj stavajici pokus? Z ktere tabulky
chces do selectu dat datum? Nekdy to bude z prvni, nekdy z
druhe, podle toho, kde je nenulove. A dal. Bude-li obsah tabulek
pro jedno vozidlo takovyto:
Tabulka1
Datum Popis
1.10. aaa
1.10. bbb
Tabulka2
Datum Popis
1.10. ccc
1.10. ddd
Tak jakymkoli joinem podle data vzniknou 4 zaznamy a to neni to,
co potrebujes.
David Lebeda
> > je mozne vytvorit jednim dotazem nasledujici vypis (IB6, dial.3) ?
> >
> > Datum | Popis1 | Tabulka1 | Tabulka2 | Popis2
> > ------------------------------------------------
> > 1.10. sdfsdf ajlsdjkfj jsdkflsjd jfskdfj
> > 1.10. sdfsdf fsdfsf
> > 2.10. dsfdff fsdfsdfff
> > 5.10. fsdfsd fsdfsdfd fdsfdfdf fsdfsdf
> > atd...
>
Multiple UNIQUE
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 18.10.2001 08:47:07
> Zkousel jsem pouzit
> CHECK( 3 > (SELECT count(*) FROM Tab WHERE Tab.TenSloupec =
> TenSloupec) ),
> take podobny trigger, ale problem je v tom, ze pokud provadim
> soubezne 2 transakce...........
neslo by to v triggeru after insert?
dekuji Petr Palicka aka PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS
Zjisteni zda existuje alias pro databazi
[*] Martin Kr�kora <krakora(zv)prvnielektro(tec)cz> - 18.10.2001 10:11:33
Zdravim
potreboval bych poradit, jak zjistit v programu zda uz existuje alias
databaze. Potrebuju to pro program, kde chci alias vytvorti pokud jeste
neexistuje.
Predem diky za kazdou radu.
Delphi5 a dalkove ovladani
[*] Mirek <DMiroslav(zv)seznam(tec)cz> - 18.10.2001 10:14:11
ahoj,
mam takovy dotaz. Vlastnim TV kartu AverMedia TV Capture98 z dalkovym
ovladanim. Toto ovladani umi fungovat (pri vypnutem TV) jako mys.
Chtel bych se zeptat jestli - a jak - by slo v delphi5 vyuzivat toto
dalkove ovladani pro obsluhu nejake aplikace.
predem diky za kazdy namet.
Mirek
Drancak
______________________________________________________________________
Kam do kina ci divadla? http://kultura.seznam(tec)cz
DCOM a rusenie padlej konekcie
[*] cis <cis(zv)atlas(tec)cz> - 18.10.2001 12:11:52
Hi,
uz si to presne nepamatuju, ale tak se mi zda, ze server z D5 nesel
preklopit do D6. Musel jsem ho udelat znovu. Mozna je cela vnitrni struktura
predelana.
K nastaveni dcomcnfg, moc detailne to zatim neznam. Mam to ted nastavene
takto, s jinymi hodnotami to nechtelo jet:
Vzchozi uroven overeni: neni
vychozi uroven zosobneni: zosobnit
umisteni: na tomto pc a nazev
identita: interaktivni uzivatel
udelal jsem skupinu a tu priradil do pristupovych prav, spousteci skupina a
konfiguracni prava.
Jeste se vratim k tomu threadu, pokud ho spustim v create, probehne ok ale v
execute vzhodi hlasku: Variant is not a an array. Ani na serveru se
nevytvori novy remotedatamodul. Mohl bych poprosit o maly prikladek tohoto
threadu?> -----Original Message-----
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: DCOM a rusenie padlej konekcie
>
> > Pouzivam D6. pro spojeni TConnectionBroker, kde si volim mezi
> Pouzivam zatial D5. Nieco ako TConnectionBroker by som potreboval
> (ale v D5
Volanie WIN32 API z Delphi
[*] J�n Drot�r - 18.10.2001 12:55:15
Potrebbujem sledovat zmeny v adresari.
WIN32 na to ma volanie FindFirstChangeNotification alebo nieco take
Ako sa to pouziva Z Delphi?
Dik
DCOM a rusenie padlej konekcie
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 18.10.2001 13:10:31
> Jeste se vratim k tomu threadu, pokud ho spustim v create, probehne ok ale
v
> execute vzhodi hlasku: Variant is not a an array. Ani na serveru se
> nevytvori novy remotedatamodul. Mohl bych poprosit o maly prikladek tohoto
> threadu?
Napriklad TAKTO:
TClientThread = class(TThread)
private
// nejake vlastne struktury
FConnectionAttr: TConnectionAttribs;
FOpened: boolean;
protected
FLastError: string;
FThreadClientDM: TClientDM;
public
constructor Create(CreateSuspended, FreeOnDestroy: boolean;
ConnectionAttr: TConnectionAttribs);
destructor Destroy; override;
// vlastne funkcie na ovladanie konekcie
function OpenThreadConnection: boolean;
procedure CloseThreadConnection;
end;
(***************************************************************************
***)
constructor TClientThread.Create(CreateSuspended, FreeOnDestroy: boolean;
ConnectionAttr: TConnectionAttribs);
begin
inherited Create(CreateSuspended);
// toto je dolezite
FreeOnTerminate := FreeOnDestroy;
// ostatne su vlastne struktury
FLastError := ''; FOpened := False;
FConnectionAttr := TConnectionAttribs.Create;
FConnectionAttr.Assign(ConnectionAttr);
end;
destructor TClientThread.Destroy;
begin
// taka kontrola - co ked zabudnem volat CloseThreadConnection
if FOpened then CloseThreadConnection;
FConnectionAttr.Free;
inherited Destroy;
end;
function TClientThread.OpenThreadConnection: boolean;
begin
// pri TCP/IP konekcii nie je treba inicializovat
{$ifndef SOCKETSERVER}
CoInitialize(nil);
{$endif}
// toto je TDataModule na ktorom je polozeny TDCOMConnection
FThreadClientDM := TClientDM.Create(nil);
// nejake nastavenia ktore pre tento priklad nie su podstatne
AssignClientDM(FThreadClientDM);
FOpened := True;
FThreadClientDM.ConnectionAttr._ThreadConnection := True;
// no a v tejto funkcii sa vola TDCOMConnection.Connected := True
// este predtym sa vyplni MENO POCITACA kde je SERVER zo nejakych struktur
...
FThreadClientDM.OpenConnectionToServer;
// tu sa testuje a potom sa otvara DB a robi LOGIN - ale to je uz
nepodstatne
Result := FThreadClientDM.Connected;
Result := Result and
FThreadClientDM.OpenDatabaseConnection(FConnectionAttr._ClientAlias,
FConnectionAttr._ClientLogName, FConnectionAttr._ClientDBName);
Result := Result and
(FThreadClientDM.LoginToDB(FConnectionAttr._ClientRec._UserName,
FConnectionAttr._ClientRec._PassWord) = Err_NoError);
end;
procedure TClientThread.CloseThreadConnection;
begin
try
FThreadClientDM.LogOutFromDB;
FThreadClientDM.CloseDatabaseConnection;
// tu sa vola TDCOMConnection.Connected := False
FThreadClientDM.CloseConnectionFromServer;
finally
// cely TDatamodule a s nim TDCOMConnection sa zrusi
FThreadClientDM.Free;
AssignClientDM(nil);
FOpened := False;
{$ifndef SOCKETSERVER}
CoUninitialize;
{$endif}
end;
end;
-----------------------------
Jan Grman
janog(zv)pluto.elf.stuba.sk
Volanie WIN32 API z Delphi
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 18.10.2001 13:27:44
funkce a procedury WinAPI se volaji primo
Martin Ben
-----P�vodn� zpr�va-----
Od: J�n Drot�r [mailto:jan_drotar(zv)mbc.sk]
Odesl�no: 18.10.2001 12:55
Komu: delphi
P�edm�t: Volanie WIN32 API z Delphi
Potrebbujem sledovat zmeny v adresari.
WIN32 na to ma volanie FindFirstChangeNotification alebo nieco take
Ako sa to pouziva Z Delphi?
Dik
Distribuce MySQL
[*] David Janko <djanko(zv)infoware(tec)cz> - 18.10.2001 13:48:47
Dne st 17. ��jen 2001 19:45 jste napsal(a):
> No na 99 procent to plati i pro linux version. Jen jsou jine podminky
> registrace.
> Pokud vim, tak jedinej uplne free sql server je POSTGRES SQL.
> podpora je podobna jako pro mysql. Existujou nativni i odbc ovladace.
> POKUD SE MYSQL POUZIVA PRO KOMERCNI UCELY MEL BY SE PLATIT. Provideri to
> casto obchazeji s tim,
> ze jejich instalace na free homech, jsou funkcne omezeny, a jsou k disp.
> zdarma a tedy slouzi
> spise pro vyuku uzivatelu, tedy non commercial vyuziti.
>
Prave sem si (jen zbezne) prosel licenci (jestli nahodou neuzivam mysql
nelegalne) a dle meho prekladu te casti ktere asi mas na mysli:
If you use MySQL in a commercial context such that you profit by its use, we
ask that you further the development of
MySQL by purchasing some level of support. We feel that if
MySQL helps your business, it is reasonable to ask that you
help MySQL. (Otherwise, if you ask us support questions,
you are not only using for free something into which we've put a
lot a work, you're asking us to provide free support,
too.)
BYS MEL NEJAK PRISPET/ZAPLATIT pokud na ni profitujes, ale dle licence
NEMUSIS. Platit se musi pripadech ze ji distribujes se svym ne free programem
a pod..
S cimz mi nezbyva nez souhlasit - je to fakt dobrej SQL server a za celkem
prijatelne penize ... i kdyz par veci by se mohlo dodelat ;-).
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
SQL a INSERT INTO
[*] <kuchar(zv)unicodesys(tec)cz> - 18.10.2001 13:49:37
caute,
mam prikaz pro sql v nasledujici podobe :
----------------------------------------------------------------------------
---------------------
insert into tab1new (ean,suma_mnoz,suma_nc) select * from tab2 where
[ean]<>''
----------------------------------------------------------------------------
---------------------
ktery mi prevede vsechny zaznami vyhovujici podmince where z tab2 do
tab1new, preoblem je
ale vtom ze tech tabulek je radove stovky a pokazde maji jine nazvy sloupcu,
otazka zni
nasledovne, je mozne tento insert nejak zevseobecnit, tak abych nemusel
porad do zavorky
vyjmenovavat vsechny nazvy sloupcu ?
poznamka na zaver pocet sloupcu tab1new je vzdy vetsi nez u tab2, vsechny
sloupce ktere jsou v tab2 jsou i v tab1new
DIK
scrollbar
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 18.10.2001 14:03:10
Dobry den,
nevite nekdo jak kreslit scrollbary (napr. v MemoBox, TreeView, atd) ve
vlastni rezii.Distribuce MySQL
[*] VALIK <valentapat(zv)volny(tec)cz> - 18.10.2001 14:26:17
At se divam jak se divam - PostgreeSql jsem nasel pouze pro Linux
a jeste k puvodnimu...
selskym rozumem, pokud dodam moji aplikaci stavici na MySQL s dodatkem, ze
pracuje s SQL serverem na Linuxovske stanici, tak je to OK.
Instalacku (linuxovou) dodam a nebo ne.
A pro win muzu dodat ze si ji uzivatel musi za poplatek event. poridit sam.
(plis link kde ji sezene)
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
----- Original Message -----
> > Pokud vim, tak jedinej uplne free sql server je POSTGRES SQL.
konverze graf. formatu
[*] Jirka Kr�l jr. <admin(zv)printo(tec)cz> - 18.10.2001 14:30:11
Nevite nahodou nekdo o nejake (free) knihovne(DLL), ktera by umela prevadet
graficke formaty, konkretne potrebuji z WMF(EMF) do BMP, dik
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)mujoskar(tec)cz
ICQ# 15303940
Volanie WIN32 API z Delphi
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 18.10.2001 14:44:59
> Potrebbujem sledovat zmeny v adresari.
> WIN32 na to ma volanie FindFirstChangeNotification alebo nieco take
> Ako sa to pouziva Z Delphi?
Podivej se napr. tady:
http://groups.google.com/groups?selm=6a2rg2%24j2u9%40forums.borland.com
T.DCOM a rusenie padlej konekcie
[*] cis <cis(zv)atlas(tec)cz> - 18.10.2001 14:45:22
jeste jedna mala poznamka, kdyz spustim tvuj program z D6 tak hned na
zacatku spadne.
ntdll.dbgBreakPoint
77FA018C CC int3
77FA018D C3 ret
application.Run
0046CC58 A1E4E14600 mov eax,[$0046e1e4]
a pak jede dal
alda
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jan Grman
> Sent: Thursday, October 18, 2001 1:11 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: DCOM a rusenie padlej konekcie
>
>
> > Jeste se vratim k tomu threadu, pokud ho spustim v create,
> probehne ok ale
> v
>
help cesky
[*] Marek Soukup <code(zv)btt(tec)cz> - 18.10.2001 14:54:06
Sakra, netusil jsem, ze tvorba helpu je takova ducharina. Ted se mi objevilo
u nekterych odstavcu jakesi poradove cislo odstavce. Vubec nevim proc. Kdyz
si hraju se stylem odstavce tak se to meni, ale odstranit se mi to
nepodarilo.
Nesetkal jste se s tim nekdo ? Ja vim, ze to s Delphi primo nesouvisi, ale
jiste jste nekdo nejaky help museli napsat.
S pozdravem
Marek Soukup
help cesky
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 18.10.2001 15:04:16
Marek Soukup dne 18 Oct 2001 v 14:54:
> Sakra, netusil jsem, ze tvorba helpu je takova ducharina. Ted se mi
> objevilo u nekterych odstavcu jakesi poradove cislo odstavce. Vubec
> nevim proc. Kdyz si hraju se stylem odstavce tak se to meni, ale
> odstranit se mi to nepodarilo. Nesetkal jste se s tim nekdo ? Ja vim,
> ze to s Delphi primo nesouvisi, ale jiste jste nekdo nejaky help
> museli napsat.
Setkal, delalo mi to, kdyz jsem mel RTF vytvorene ve Wordu 97. Nejakym
zahadnym zpusobem se tam vnutilo cislovani, myslim, ze bylo nadefinovane
u nejakeho stylu (coz vzniklo jaksi samo). Po prechodu do Wordu 6 se
darilo mnohem lepe.
Karel Rys
MIDAS a DCOM
[*] Ing. Jarom�r Sola� <solar(zv)magion(tec)cz> - 18.10.2001 15:09:34
Ahojte,
zkousim jednoduchou MIDAS DCOM aplikaci. Kdyz umistim servrovou aplikaci na
jiny cisty pocitac, tak se z klienta nemuzu na nej dostat. Hlasi to "Access
is denied". Zkusel jsem vsemozne nastavovat ten server pomoci dcomcnfg dle
rad v historii konference, ale nic nepomohlo. Pokud pouziji
SocketConnection, tak to pracuje. Neporadil by mi nekdo?
Client: NT4 SP5, D5Ent + SP2
Server: NT 4 SP5 ("Default Authentication Level" na "none", "Default
Impersonation Level" na "Impersonate")
Jaromir Solar
Ruzne fonty v listboxu; telefonovani; stay on top
[*] Mazi <mazi(zv)all4u(tec)cz> - 18.10.2001 15:11:17
Ahojte,
moc vas prosim o radu s nasledujicim problemem:
nefunguje mi parametr Stay on Top... Okno se sice zobrazuje nad vsemi
ostatnimi okny, ale pouze vramci programu - nezobrazuje se pres okna
ostatnich programu. Pouzivam Delphi 4, okno, ktere ma nastaveno formstyle :=
fsStayOnTop, zobrazuji primo z "main formu" pres form.showmodal. Nevite, v
cem by mohl byt problem?
Predem diky za radu.
Petr - mazi(zv)all4u(tec)cz
TStringStream.Seek
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 18.10.2001 15:11:34
var a : Integer;
Stream : TStringStream;
begin
Stream.Position := 0;
a := Stream.Seek(123123123,soFromBeginning);
end;
Snazim sa najst moje "magic number" v Stream-e, ale vzdy mi vrati hodnotu Stream.Size
Ked si dam Stream zobrazit napr do Mema, tak tam to cislo je.
V com robim chybu?
jozo
SQL a INSERT INTO
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.10.2001 15:15:31
> mam prikaz pro sql v nasledujici podobe :
insert into tab1new
> (ean,suma_mnoz,suma_nc) select * from tab2 where [ean]<>''
> vyhovujici podmince where z tab2 do tab1new, preoblem je ale vtom ze
> tech tabulek je radove stovky a pokazde maji jine nazvy sloupcu,
> otazka zni nasledovne, je mozne tento insert nejak zevseobecnit, tak
> abych nemusel porad do zavorky vyjmenovavat vsechny nazvy sloupcu ?
> poznamka na zaver pocet sloupcu tab1new je vzdy vetsi nez u tab2,
> vsechny sloupce ktere jsou v tab2 jsou i v tab1new
>
Rekl bych, ze na urovni SQL moc neuspejes, ale v kodu v Delphi
by se jiste dal napsat obecny sestavovac takoveho dotazu - treba s
pouzitim vlastnosti Fields zjistit sloupce z Tab2 a vyjmenovat je do
insert prikazu.
Nevim, jestli to je to, co chces slyset.
David Lebeda
MIDAS a DCOM
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 18.10.2001 15:32:37
DCOM pouziva viac prava systemu.
- povol ucet GUEST !! - to zvycajne chyba
- v DCOMCNFG pre dany COM objekt nastav na zaciatok vsetky "permisions" na
"custom" a pre "everyone"
- identitu uzivatela COM objektu nastav na Interactive User
Ak som na nic nezabudol - to stacilo.
JaNo.
-----------------------------
Jan Grman
janog(zv)pluto.elf.stuba.sk
----- Original Message -----
From: "Ing. Jarom�r Sola�" <solar(zv)magion(tec)cz>> Ahojte,
> zkousim jednoduchou MIDAS DCOM aplikaci. Kdyz umistim servrovou aplikaci
na
> jiny cisty pocitac, tak se z klienta nemuzu na nej dostat. Hlasi to
"Access
> is denied". Zkusel jsem vsemozne nastavovat ten server pomoci dcomcnfg dle
> rad v historii konference, ale nic nepomohlo. Pokud pouziji
> SocketConnection, tak to pracuje. Neporadil by mi nekdo?
konverze graf. formatu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 18.10.2001 15:46:30
> From: Jirka Kr�l jr.
>
> Nevite nahodou nekdo o nejake (free) knihovne(DLL), ktera by
> umela prevadet
> graficke formaty, konkretne potrebuji z WMF(EMF) do BMP, dik
Na to nepotrebujes zadnou knihovnu,
staci jednoducha procedurka:
var Bmp: TBitmap;
Picture: TPicture;
begin
Picture := TPicture.Create;
Picture.Metafile.LoadFromFile('...');
Bmp := TBitmap.Create;
Bmp.Width := Picture.Width;
Bmp.Height := Picture.Height;
Bmp.Canvas.Draw(0, 0, Picture.Metafile);
Bmp.SaveToFile('...');
Picture.Free;
Bmp.Free;
end;
Vaclav Krmela
TStringStream.Seek
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 18.10.2001 16:00:29
>Snazim sa najst moje "magic number" v Stream-e, ale vzdy mi vrati hodnotu
Stream.Size
Pises "snazim sa najst..." neviem ci ta presne chapem, ale Seek() nerobi
"vyhladanie", ale zmeni aktualnu poziciu na zadanu poziciu?!
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
----- Original Message -----
From: "Ing. Jozef Baranec" <joba(zv)digitaldocuments.org>
var a : Integer;
Stream : TStringStream;
begin
Stream.Position := 0;
a := Stream.Seek(123123123,soFromBeginning);
end;
Snazim sa najst moje "magic number" v Stream-e, ale vzdy mi vrati hodnotu
Stream.Size
Ked si dam Stream zobrazit napr do Mema, tak tam to cislo je.
V com robim chybu?
INSERT objektu do databaze
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 18.10.2001 16:03:37
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
> Potreboval bych ulozit cely objekt ulozit do databaze, ale nevim jak.
> Jde vlastne o binarni data. Muj objekt je docela, rozsahly a jeho data
jsou tvorena dynamicky, takze se mi to nechce kouskovat na jednotlive
string,integer atd.
V pripade ze v ulozenych datach nepotrebujes vyhladavat tak je to jednoduche
a mozes ho ulozit do Blobu, ak sa vie zapisat do streamu. Ak nie budes
musiet napisat metody LoadFromStream a SaveToStream na objekte.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
TStringStream.Seek
[*] Lubo Fule <fule(zv)ekosoft.sk> - 18.10.2001 16:04:24
Chybu robis priam zasadnu. Snazis sa pouzit funkciu Seek na to na co vobec
nie je urcena. Lepsie si precitaj help. Funkcia Seek sluzi na nastavenie
pozicie akehosi imaginarneho kurzora v stream-e, nie na vyhladavanie. To co
si napisal urobi presne to iste ako keby si napisal
Stream.Position := 123123123;
Dokonca, ked pozries do zdrojakov, tak property Position vyuziva prave
funkciu Seek.
To co chces je vlasne vyhladanie konkretneho retazca v stream-e. Urobit sa
to da napr. takto:
var a : Integer;
Stream : TStringStream;
begin
a := pos('123123123', Stream.DataString);
if a>0 then
Stream.Position := a-1
else
ShowMessage('nenasiel som...');
end;> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ing. Jozef Baranec
> Sent: Thursday, October 18, 2001 3:12 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: TStringStream.Seek
>
>
> var a : Integer;
> Stream : TStringStream;
> begin
> Stream.Position := 0;
> a := Stream.Seek(123123123,soFromBeginning);
> end;
>
> Snazim sa najst moje "magic number" v Stream-e, ale vzdy mi vrati
> hodnotu Stream.Size
>
> Ked si dam Stream zobrazit napr do Mema, tak tam to cislo je.
>
> V com robim chybu?
>
> jozo
TStringStream.Seek
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.10.2001 16:16:13
> var a : Integer;
> Stream : TStringStream;
> begin
> Stream.Position := 0;
> a := Stream.Seek(123123123,soFromBeginning);
> end;
>
> Snazim sa najst moje "magic number" v Stream-e, ale vzdy mi vrati hodnotu
Stream.Size
>
> Ked si dam Stream zobrazit napr do Mema, tak tam to cislo je.
Cau,
Seek nema za ulohu hladanie hodnot v streame, je to metoda, ktora sposobi
posun pozicie (Position). Konkretne Ty si ho poziadal, aby sa presunul na
poziciu 123123123 od zaciatku. Predpokladam, ze Tvoj string nie je taky
velky, takze sa presunul iba na koniec. Implementacia TStringStream.Seek
vyzera takto:
function TStringStream.Seek(Offset: Longint; Origin: Word): Longint;
begin
case Origin of
soFromBeginning: FPosition := Offset;
soFromCurrent: FPosition := FPosition + Offset;
soFromEnd: FPosition := Length(FDataString) - Offset;
end;
if FPosition > Length(FDataString) then
FPosition := Length(FDataString)
else if FPosition < 0 then FPosition := 0;
Result := FPosition;
end;
Hladanie hodnoty v streame nie je 'dodane', musis si to napisat sam. Ale v
Tvojom pripade mam pocit, ze vobec nepotrebujes stream.
> Ked si dam Stream zobrazit napr do Mema, tak tam to cislo je.
Z tohto mam podozrenie, ze hladas poziciu substringu '123123123' a nie
hodnoty 123123123, je to tak? V tom pripade Ti staci pouzit funkciu Pos:
var
I: Integer; S: string;
I := Pos('123123123', S);
Mozno by som vedel poradit viac, keby si prezradil, o co sa snazis.
HTH
TOndrej
INSERT objektu do databaze
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 18.10.2001 15:48:24
Potreboval bych ulozit cely objekt ulozit do databaze, ale nevim jak.
Jde vlastne o binarni data. Muj objekt je docela, rozsahly a jeho data jsou tvorena dynamicky, takze se mi to nechce kouskovat na jednotlive string,integer atd.
Jaroslav Blazek
Access-IT Ceska Lipa
+420605/813644
SQL a INSERT INTO
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 18.10.2001 17:04:36
On 18 Oct 2001, at 13:49, kuchar(zv)unicodesys(tec)cz wrote:
> mam prikaz pro sql v nasledujici podobe :
> insert into tab1new (ean,suma_mnoz,suma_nc) select * from tab2 where [ean]<>''
> otazka zni nasledovne, je mozne tento insert nejak zevseobecnit, tak
> abych nemusel porad do zavorky vyjmenovavat vsechny nazvy sloupcu ?
> poznamka na zaver pocet sloupcu tab1new je vzdy vetsi nez u tab2,
> vsechny sloupce ktere jsou v tab2 jsou i v tab1new
Kdyby se to dalo nejak obejit aby byl stejny pocet sloupcu tak
mozna ano. Nezkousel jsem to ale samotny
INSERT INTO tabulka VALUES (...)
cili bez seznamu sloupcu je v poradku. Ale prave jen kdyz v
seznamu hodnot jich je prave tolik jako sloupcu v tabulce a v
odpovidajicim poradi. Takze zkusit
INSERT INTO tabulka SELECT * ...
kdyz * bude reprezentovat presne pocet sloupcu v tabulce
"tabulka".
Z.Kalhous
Zachyceni SQLCODE - doplneni
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 18.10.2001 17:15:35
> > SQLCODE lze zachytit vzdy, tedy nejen v pripade chyby (alespon
> > pokud jde o API, u jazyka ul. proceduru to nema jaksi vyznam :-)
> >
> > Jde o navratovou hodnotu a zachytit ji lze pri volani API funkci
> > IB/FB (DSQL) nebo v ulozenych procedurach/triggerech (prikaz
> > WHEN..DO).
> >
Jeste doplnuji konfiuraci
D5 Prof , SP1 . IBX463 , FB 1.0.0.338 beta 2 , WIN 2000
1.Nedari mi zachytit a priradit do navratove promenne ":CODE" hodnotu
SQL
v ulozene procedure.
2. hlaseni EXCEPTIONS definovane v primo v databazi se mi v DELPHI spusti
pouze pokud
mam zatrhnute "Stop on Delphi Exceptions" jinak mi to projde bez
jakehokoliv hlaseni
jde mi o to aby mi vyskocila hlaska o neexistenci recordu a v Delphi jsem
si mohl SQLCODE
nekam priradit.
> STORED PROCEDURE .....
>
BEGIN
BEGIN
SELECT DRUH_JIDLO,CISLO_JIDLO,TEXT_POLOZKA,CENA_JIDLO,MJ_JIDLO,
GRAMAZ_JIDLO,TEXT_POLOZKAD,VNITROCENA_JIDLO,
CISLO_RECEPT,CAROVY_KOD,IDENTIFIKACE
FROM C_JIDLA
WHERE CISLO_JIDLO = :IDENT_CISLOJIDLO
INTO :DRUHJIDLO, CISLOJIDLO,:NAZEVJIDLO, :CENAJIDLO, :MJJIDLO
,:GRAMAZJIDLO,
:TEXTPOLOZKAD,:VNITROCENAJIDLO,
:CISLORECEPT,:CAROVYKOD,:IDENTIFIKACE;
IF (:CISLOJIDLO IS NULL ) THEN
BEGIN
EXCEPTION RecordNotFound;
SUSPEND;
END
WHEN ANY DO
EXCEPTION OtherMessage ;
END
Snad by mi pomohl maly priklad.
diky Jiri Heinisch
>Multiple UNIQUE
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 18.10.2001 20:21:37
> > Zkousel jsem pouzit
> > CHECK( 3 > (SELECT count(*) FROM Tab WHERE Tab.TenSloupec =
> > TenSloupec) ),
> > take podobny trigger, ale problem je v tom, ze pokud provadim
> > soubezne 2 transakce...........
>
> neslo by to v triggeru after insert?
Bohuzel, ten select vzdy vidi jen data, ktera byla v tabulce pred zacatkem
transakce, prip. vlozena behem ni. Data, ktera byla vlozena v jine
transakci (ktera zacala po zacatku aktualni transkace) nevidi. Proto mi
dovoli vlozit do databaze vice zaznamu nez pozaduji a po commit obou
transakci jsem neprijemne prekvapen - limit duplicitnich zaznamu je
prekrocen. Problem je tedy stale otevreny...
--MM
Distribuce MySQL
[*] Erik Salaj <winsoft(zv)stonline.sk> - 18.10.2001 23:12:34
> Prave sem si (jen zbezne) prosel licenci (jestli nahodou neuzivam mysql
> nelegalne) a dle meho prekladu te casti ktere asi mas na mysli:
>
> If you use MySQL in a commercial context such that you profit by its use,
we
> ask that you further the development of
> MySQL by purchasing some level of support. We feel that
if
> MySQL helps your business, it is reasonable to ask that you
> help MySQL. (Otherwise, if you ask us support
questions,
> you are not only using for free something into which we've put a
> lot a work, you're asking us to provide free support,
> too.)
>
> BYS MEL NEJAK PRISPET/ZAPLATIT pokud na ni profitujes, ale dle licence
> NEMUSIS. Platit se musi pripadech ze ji distribujes se svym ne free
programem
> a pod..
"ask" sa podla slovnika, co mam preklada ako 1. pytat sa na, 2. ziadat,
pozadovat o co, 3. pozvat. Teda mne to vychadza tak, ze na komercne
pouzitie sa POZADUJE zakupenie ...
Erik
Validace jmen pri ukladani souboru na sdileny disk
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 19.10.2001 00:10:46
Zdravim.
Trapi mne jeden problem (mozna je neresitelny).
Napsal jsem sluzbu, ktera v pravidelnych intervalech zkontroluje obsah
adresare na lokalnim serveru s obsahem na vzdalenem serveru u providera a
pokud najde nejake rozdily provede synchronizaci obou adresaru. Vse funguje.
Trapi mne ale to , ze uzivatele obcas pouziji pro nazev souboru nektere
znaky (diakritika a pomlcka), ktere z duvodu urciteho omezeni na strane
vzdaleneho serveru (linux) a mechanismu odesilani souboru nejdou odeslat.
Resim to tedy tak, ze soubor prejmenuji a teprve po te odeslu. To ovsem do
jinak hezkeho systemu vnasi samozrejme problemy, protoze uzivatel ulozi
spatne pojmenovany soubor a ten je treba za hodinu zmenen a uzivatel o tom
nevi.
Idealni by samozrejme bylo dat vedet jiz operacnimu systemu, ze ma spatne
pojmenovane soubory odmitnout.
Jde to nejak ?.
Uvitam i jine napady jak to vyresit.
Prostredi : Na Windows 2000 SERVER (ActiveDirectory) je sdileny adresar
na ktery pristupuji uzivatele ze stanic s OS W2000 Prof.
Predem dik
Ludek
Distribuce MySQL
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 19.10.2001 07:45:34
Ja tomu textu rozumim takto:
Pokud komercne pouzivate MySQL a vydelavate na jeho pouzivani, mohli by jste
podporit dalsi vyvoj zakoupenim nejakeho stupne podpory....
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> > If you use MySQL in a commercial context such that you profit by its use,
> we
> > ask that you further the development of
> > MySQL by purchasing some level of support. We feel that
> if
> > MySQL helps your business, it is reasonable to ask that you
> > help MySQL. (Otherwise, if you ask us support
> questions,
> > you are not only using for free something into which we've put a
> > lot a work, you're asking us to provide free support,
> > too.)
> >
> > BYS MEL NEJAK PRISPET/ZAPLATIT pokud na ni profitujes, ale dle licence
> > NEMUSIS. Platit se musi pripadech ze ji distribujes se svym ne free
> programem
> > a pod..
>
> "ask" sa podla slovnika, co mam preklada ako 1. pytat sa na, 2. ziadat,
> pozadovat o co, 3. pozvat. Teda mne to vychadza tak, ze na komercne
> pouzitie sa POZADUJE zakupenie ...
>
> Erik
Multiple UNIQUE
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.10.2001 07:53:21
> Bohuzel, ten select vzdy vidi jen data, ktera byla v tabulce pred
> zacatkem transakce, prip. vlozena behem ni. Data, ktera byla vlozena v
> jine transakci (ktera zacala po zacatku aktualni transkace) nevidi.
> Proto mi dovoli vlozit do databaze vice zaznamu nez pozaduji a po
> commit obou transakci jsem neprijemne prekvapen - limit duplicitnich
> zaznamu je prekrocen. Problem je tedy stale otevreny...
>
Nesleduji tuto diskusi od zacatku, takze nevim, v cem presne je
problem, ale predpokladam, ze transakce maji nastaveno Read
commited (po dvojkliku na transakci). To ale skutecne neresi
situaci, kdy jsou soucasne otevrene necommitovane dve takove
transakce. Tam by asi bylo potreba sahnout po vyssi urovni izolace
nez read commited (nevim ted, jak se to jmenuje, snad Table
Stability) - samozrejme jen pro transakce, v nichz bezi takoveto
haklive zalezitosti, takze ostatni prace probihaji v transakci s
beznou urovni izolace.
Pokud jsem mimo, tak sorry.
David Lebeda
Chyba v GDI32.dll
[*] <delphi(zv)zvlauto.sk> - 19.10.2001 08:09:17
Zdravim,
Moj problem spociva v tom, ze aplikacia mi fungovala vporiadku, ale dnes sa
jej nechce z neznamej priciny spusit. V Delphi prejde kompilacia vporiadku
ale pri spusteni vypise toto:
Project ZberUdajov.exe raised exception class EAccessViolation with message
'Access violation at adress 77F576D4 in module GDI32.DLL' Read of adress....
Co s tym?Chyba v GDI32.dll
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.10.2001 08:15:59
> Moj problem spociva v tom, ze aplikacia mi fungovala vporiadku, ale
> dnes sa jej nechce z neznamej priciny spusit. V Delphi prejde
> kompilacia vporiadku ale pri spusteni vypise toto: Project
> ZberUdajov.exe raised exception class EAccessViolation with message
> 'Access violation at adress 77F576D4 in module GDI32.DLL' Read of
> adress.... Co s tym?
>
Podle meho nazoru to muze mit dve priciny.
1) Chyba je v aplikaci - pouziti postupu, ktery treba za urcitych
podminek funguje spravne a najednou ty podminky neplati. Musel
bys trasovanim zjistit, kde je problem.
2) To jsem nedavno primo videl na sve aplikaci - opravdu nejak
zvlastne naborene Windows. V mem pripade vsechny aplikace
fungovaly dobre, jen ta moje okamzite po OnCreate volala
OnActivate, aniz k tomu byl sebemensi duvod - a to vyvolalo
samozrejme access violation. Pocitac byl puvodne napaden virem
a po odvirovani se delo toto. Po reinstalaci Windows bylo vse v
poradku.
David Lebeda
Mouse Microsoft InteliPoint optical
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 19.10.2001 09:44:34
Zdrav�m a m�m dal#� poznatek chov�n� genere�toru Sinea versus mouse s
kole�kem.
Na notebboku Assus PIII 800MHz s mouse Microsoft PS/2 s koleckem a klasickou
kulickou + Windows 98 chod� posun po strance pomoci kolecka bez problemu a
nedochazi ani k "odstaveni" klaves PageDown, PageUp a kurzorovych sipek.
Jinak se priklanim k nazoru pana Zity. Tento zpusob posunu stranky po
obrazovce a odrolovani na dalsi stranku je prirozeny a vetsina uzivatelu ho
nevedomky pouziva v aplikaci Office.
S pozdravem
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.286 / Virov� b�ze: 152 - datum vyd�n�: 9.10.2001
seznam vsech formu
[*] cis <cis(zv)atlas(tec)cz> - 19.10.2001 10:04:39
Hi,
nevite jak najit form v aplikaci a vytvorit ho? Jde o ty formy ktere nejsou
automaticky vytvorene.
alda
problem s TIBEvents
[*] <vaclav.sykora(zv)accidis(tec)cz> - 19.10.2001 10:52:19
dobry den,
mam cyklus ve kterem pridavam zaznamy do DB. pokud jich pridam napr. 5 (za
kazdym z nich provedu commit), IB mi posle event o pridani zaznamu jen 2x.
ja vsak potrebuji, abych dostal event pri kazde zmene. pripada mi, ze to je
nejake omezeni IB serveru. lze to omezeni nejak odstranit? existuje jine
reseni jak, ziskat prehled o VSECH provadenych zmenach v DB?
s pozdravem, v. sykora
problem s TIBEvents
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.10.2001 10:55:02
> mam cyklus ve kterem pridavam zaznamy do DB. pokud jich pridam napr. 5
> (za kazdym z nich provedu commit), IB mi posle event o pridani zaznamu
> jen 2x. ja vsak potrebuji, abych dostal event pri kazde zmene. pripada
> mi, ze to je nejake omezeni IB serveru.
S eventy jsme nemeli nikdy tyto problemy, takze si myslim, ze
problem na serveru nebude. Musis ale napsat vic podrobnosti,
napr. jak a odkud eventy posilas a pak neco o tom, co s nima dals
ve sve aplikaci. Nemuze byt treba problem v tom, ze driv nez
skonci obsluha jednoho eventu uz prijde dalsi?
David Lebeda
Ukladani Blobu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 19.10.2001 10:55:15
> Odes�latel: EFG developer <developer(zv)efg(tec)cz>
> D5, BDE, MSSQL, potrebuju ukladat velka data do databaze, V tabulce mam
> sloupec typu image, field je typu Blob.
Asi nejlepe pres TMemoryStream.
TBlobField (pisu to z hlavy) ma metodu LoadFromStream, SaveToStream.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================seznam vsech formu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.10.2001 10:57:30
> nevite jak najit form v aplikaci a vytvorit ho? Jde o ty formy ktere
> nejsou automaticky vytvorene.
Co znamena najit Form?
Vytvoreni je jednoduche
var
p: TMyForm;
p := TMyForm.Create(Self);
try
...pouziti formu, napr.
p.ShowModal;
finally
p.Free;
end;problem s TIBEvents
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 19.10.2001 11:04:00
From: <vaclav.sykora(zv)accidis(tec)cz>
> mam cyklus ve kterem pridavam zaznamy do DB. pokud jich pridam napr. 5 (za
> kazdym z nich provedu commit), IB mi posle event o pridani zaznamu jen 2x.
> ja vsak potrebuji, abych dostal event pri kazde zmene. pripada mi, ze to
je
> nejake omezeni IB serveru. lze to omezeni nejak odstranit? existuje jine
> reseni jak, ziskat prehled o VSECH provadenych zmenach v DB?
Nejde o obmedzenie IB Servru. Vec sa ma tak ze eventy sa poslu aplikacii po
commite trasakcie. Ked event zavolas 5 krat tak sa "zapamatuje" ze event sa
volal 5 krat a pri commite sa posle aplikacii nazov eventu a pocet volani,
cize sa to dozvies. Ak by si ale chcel dostavat eventy vzdy prave pri
prevedeni akcie (zrovna pri update alebo insertech bez potvrdeia trnsakcie
sa mi to zda byt zbytocne) tak by si to musel riesit napriklad pomocou SP +
UDF.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
seznam vsech formu
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 19.10.2001 11:08:32
From: "cis" <cis(zv)atlas(tec)cz>
> nevite jak najit form v aplikaci a vytvorit ho? Jde o ty formy ktere
nejsou
> automaticky vytvorene.
Myslis tym najst form (resp. jeho classu) a vytvorit instanciu objektu
(formu) z roznych unit? Takto to riesit sa mi zda byt zbytocne zlozite, skus
napisat k comu to konkterne potrebujes.
btw: Riesenim by bolo:
1. Pouzit metodu RegisterClass() + FindClass() + ApplicationCreateForm
2. Urobit z Formov COM objekty
3. ...
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Problem so shutdownom
[*] MODROVSK� Daniel <modrovsky(zv)asset.sk> - 19.10.2001 11:11:21
> Dobry den,
>
> mam aplikaciu, ktora sa pri beznom vypnuti chova korektne
> ale ked sa system shutndownuje, vyhodi exception a shutdownovanie sa
> zastavi
>
> neviete ako by som mohol zistit miesto, kde sa to stane
> alebo ako nasimulovat shutdown?
>
> dakujem
>
> andrej
>
>