Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prace se skupinou Labelu
[*] No Comment Group, s.r.o. / Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 1.3.2000 12:34:11
Suhlasim, ze je jednoduchsie pouzivat Tag. Osobne tiez pouzivam tag, ale v
ramci moznosti je to jedna z moznosti a mam napriklad aj program kde musim
pouzivat obidve moznosti.
Bohdan Pomsahar
----- Original Message -----
From: Karel Klime� <kchodl(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 10:57 AM
Subject: Re: Prace se skupinou Labelu
> > napriklad takto:
> >
> > procedure ....
> > var
> > nazov:string;
> > cislo:integer;
> > begin
> > nazov:=(Sender as TLabel).Name;
> > cislo:=strtoint(copy(nazov,6,length(nazov)-5));
> > if (cislo>1) and (cislo<26) then showmessage ('OK');
> > end;
> >
> > len musis dorzat standartne nazvy Labelov
> >
> a neni lepsi jiz uvedeny Tag?Zruseni ikony z Alt+Tab task menu
[*] Petr Selinger <selinger(zv)pal.skm.vutbr(tec)cz> - 01.3.2000 12:40:09
Zdravim,
behem prace s Delphi jsem narazil na problem, jak dokonale schovat
aplikaci ze vsech Task menu.
Neni problem schovat ikonu z dolni listy, ale nevim jak schovat ikonu
aplikace i z task baru, ktery
se vyvolava pres Alt+Tab (prepinani mezi aplikacemi).
Existuje komponenta TSealth, ovsem ta funguje jen pod Win95/98 a ja
pouzivam Win2000 a chtel bych,
aby ma aplikace fungovala i na NTckach.
Dekuji
s pozdravem, Petr Selinger, selinger(zv)centrum(tec)cz
Prace s objektem TStringGrid
[*] Jan Hlinka <Hlinka(zv)dcomm(tec)cz> - 1.3.2000 13:32:31
Zdravim vas,
mam dva male problemky se StringGridem...
1, nemohu nastavit na zacatku RowsCount =1 a zaroven FixedRows taktez na 1.
Vysledek je takovy, ze pri spusteni prg. mam nadefinovanu hlavicku a jeden
prazdny radek...(RowsCount musi byt 2)... nevi nekdo jak tohle obejit????
2, rad bych si 1 radek StringGridu upravil do vizualne prijatelnejsi formy
(tucne pismo, zarovnavani,...atd.) lec pokud neco nastavim, tak se to tyka
celeho radku (ci sloupce) tzn. ne jen hlavicky :o(((
Predem dekuji za odezvu
Hippy alias Hlinka Jan
Excel a Delphi 5 - jak na to?
[*] No Comment Group, s.r.o. / Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 1.3.2000 13:36:30
najpr musis otvorit spojenie
try
ExcelApplication1.Connect;
except
showmessage (NeniExcel);
Exit;
end;
ExcelApplication1.SheetsInNewWorkbook[0]:=1; --- definuje
kolko bude mat workbook zaloziek (listov)
ExcelApplication1.Workbooks.Add(EmptyParam,0); --- toto prida
dalsi workbook
ExcelApplication1.Cells.Item[1,1]:='daky text'; --- jeden zo
sposobou ako nieco zapisat
a az nakoniec ked mas data naplnene tak dat
ExcelApplication1.Visible[0]:=True;
try
ExcelApplication1.Disconnect; --- v pripade ze uz
nist nebudes robit
except
end;
----- Original Message -----
From: <danikonf(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 12:10 PM
Subject: Excel a Delphi 5 - jak na to?> Zdravim,
>
> zrovna se bavim kopirovanim dat z IB do Excelu, chtel bych to resit pomoci
novych OLE komponent v Delphi 5. Zatim se ucim otevrit Excel, ale nejak se
mi nedari. Toto mi nechodi, ale nevim proc:
>
> ExcelApplication1.Visible := True;
>
> Mate nekdo radu nebo nejaky funkcni priklad? Uvitam cokoliv na toto tema.
Cik.
>
> S pranim hezkeho dne
>
> Daniel Martinec
>
> -----
>
> a tady je to, co jsem zatim vytvoril:
>
> procedure TDataModule3.pupExportDat;
> var
> Template, NewTemplate, ItemIndex : OleVariant;
> begin
> try
> Template := EmptyParam;
> NewTemplate := True;
> ItemIndex := 1;
> try
> ExcelApplication1.Connect;
> except
> MessageDlg('Excel may not be installed', mtError, [mbOk], 0);
> Abort;
> end;
>
> ExcelApplication1.Visible[1]; // := True;
> ExcelApplication1.Caption := 'Delphi automation';
>
> {Create new document}
> Template := EmptyParam;
> NewTemplate := False;
> ExcelApplication1.Workbooks.Add(Template, NewTemplate);
> {Assign ExcelWorkbook1 component}
>
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Item[(ItemIndex)]);
>
> except
> on E: Exception do
> begin
> ShowMessage(E.Message);
> ExcelApplication1.Disconnect;
> end;
> end;
> end;Nekolik dotazu
[*] Juraj Skotnicky <juraj.skotnicky(zv)jdsoftware.sk> - 1.3.2000 13:51:59
Ahoj,
co sa tyka Tvojej druhej otazky su 2 moznosti:
1. existuje objekt TScreen, ktora ma vlastnosti Height a Width.
2. pokial robis v D5, tak objekt TForm ma vlastost Position, kde sa da
nastavit kam ma umiestnit okno. Juraj
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr
Kueera
Sent: Wednesday, March 01, 2000 12:16 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Nekolik dotazu
Dobry den,
mam nekolik dotazu, a to:
1) Kdyz ma soubor nastaven atribut jen ke cteni a oteviram jej pomoci
FileOpen(jmeno, fmOpenRead), tak mi vrati handle -1. Pokud jej vsak
oteviram pomoci AssignFile(p, jmeno) - Reset(p), tak je vse v
poradku. Ja se tedy ptam, jakym zpusobem se da otevrit soubor pomoci
funkce FileOpen, a pritom soubor zustal stale s atributem pro cteni.
2) Jak mohu zjistit rozliseni monitoru v bezici aplikaci. Jde mi o
to, jak hodit do stredu obrazovky program, ktery chci spustit.
Dekuji za jakekoliv konstruktivni odpovedi.
S pozdravem Petr Kucera.Paralelny port
[*] Lubo Fule <fule(zv)sct.sk> - 1.3.2000 13:56:09
Potrebujem cez Win API programovat LPT port po pinoch. V DOS-e to slo cez
outport... Neviete ako by sa to dalo vo Windowse? Skusal som CreateFile a
WriteFile, ale to len standartnym sposobom posiela na port znaky, a ja sa
potrebujem dostat na nizsiu uroven (piny).
Vdaka L.
Multilanguage aplikace
[*] Ale� Va���ek�����"q��y�&���w�3 - 1.3.2000 13:58:56
Zdravim,
potreboval bych poradit nejake reseni jak udelat co nejjednoduseji
vicejazykovou aplikaci a to tak, aby se menily napisy na vsech ovladacich
prvcich (a tim i jejich velikost) po vyberu nejakeho jazyka. Napada me
reseni pomoci nejakeho INI fajlu, kde bych mel jednotlive texty a ty potom
sypal primo v programu do aplikace. Jenze problem je v tom, ze potom bude
aplikace hrozne neprehledna, ve smyslu ze treba misto MessageDlg('Ahoj')
bych tam mel MessageDlg(Vrat_Text(1)). Kdybych tam mel jeste nekdy neco
ladit, tak se v tom nevyznam.
Neexistuje tedy nejaka nadstavba na Delphi, kde si nahradim vsechny texty v
projektu a potom zkompiluju, nebo neco takoveho.
Kazdy napad se hodi.
Dik Ales.Interbase a ziskani mesice a roku
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 1.3.2000 13:01:41 -0000
Tak tohle je presne to co potrebuju, ale nejak to nefunguje. Nelibi se mu
FROM za EXTRACTem ...
Jestli mohu poprosit napis mi prosim jak ma vypada syntaxe EXTRACTu.
Zkousel jsem najit v dokumentaci neco k EXTRACTu ale neuspesne akorat v
seznamu klicovych slov byla zminka :-((
Dik Jirka
----- Original Message -----
From: Tomas Michal�k <michalik(zv)proca(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 8:27 AM
Subject: Re: Interbase a ziskani mesice a roku
>
> Ahoj,
>
> jde to takhle - i bez pouziti UDF
>
> set term ^ ;
> create procedure yearmonth
> returns (result varchar(8))
> as
> begin
> select extract(year from cast ('now' as date))||','||extract(month
> from cast ('now' as date)) from RDB$DATABASE into :result;
> suspend; /* tohle tu samozrejme nemusi byt */
> end ^
> commit ^
> set term ; ^
>
> --
> =================================
>
> Tomas Michalik
> ProCA, s. r. o.
> V Luzich 818, Praha 4
> Czech Republic
>
> e-mail: michalik(zv)proca(tec)cz
> tel: +420 2 67283446
>
>
>
GIS knihovny nebo komponenty
[*] sorbo <sorbo(zv)centrum(tec)cz> - 1.3.2000 14:02:58
> shanim komponenty nebo alespon knihovny GIS
> pro praci s mapami a mapovymi soubory
> pripadne neco na praci s velkymi obrazky (bmp, cit, arcinfo a pod)
neco je tady: http://www.kobira.co.jp/sakura/newfiles.htm
(komponenta spsgis). Ale nezkousel jsem to.
sorbo
Interbase a ziskani mesice a roku
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 01.3.2000 14:32:47
hmm, tak tohle je nove az v IB6
alternativni reseni je na serveru
http://www.interbase.dthomas.co.uk/ibstoredproc.htm
v souboru datetime.txt
Jirka Majvald wrote:
> Tak tohle je presne to co potrebuju, ale nejak to nefunguje. Nelibi se mu
> FROM za EXTRACTem ...
> Jestli mohu poprosit napis mi prosim jak ma vypada syntaxe EXTRACTu.
> Zkousel jsem najit v dokumentaci neco k EXTRACTu ale neuspesne akorat v
> seznamu klicovych slov byla zminka :-((
>
> > set term ^ ;
> > create procedure yearmonth
> > returns (result varchar(8))
> > as
> > begin
> > select extract(year from cast ('now' as date))||','||extract(month
> > from cast ('now' as date)) from RDB$DATABASE into :result;
> > suspend; /* tohle tu samozrejme nemusi byt */
> > end ^
> > commit ^
> > set term ; ^
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Umisteni uvitaci obrazovky s logem
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.3.2000 14:43:51
Ahoj,
me osobne prijde nejjednodussi spachat napriklad toto:
1. vytvorit v IDE Delphi nejaky formular (napr. Splash),
ktery chci zobrazit, vc. napr. labelu, ktery bude postupne
informovat o stadiu natahovani aplikace... (napr. LabelInfo)
2. Vyndat ho ze seznamu formularu, kterese maji vytvaret
automaticky (menu project - options).
3. Pomoci menu View-Project source zobrazit zdrojovy
kod projektu a tam udelat napriklad toto
begin
with TSplash.Create(Application) do
begin
Show; //Nikoli ShowModal !!!
LabelInfo.Caption:='Inicializuji aplikaci...';
Update;
Application.Initialize;
LabelInfo.Caption:='Vatvarim formulare...';
Update;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
LabelInfo.Caption:='Pripojuji databazi...';
Update;
Application.CreateForm(TDataModule1, DataModule);
Relase;
end;
Application.Run;
end.
Psal jsem to z hlavy, takze nerucim za syntax errors ;-)
Dobra.
> ----------
> Od: p. Jirman[SMTP:jim.design(zv)iol(tec)cz]
>
> >From: <petr.palicka(zv)atlas(tec)cz>
>
> > toto vrazis do unity s formularem pro logo
> >begin
> > fLogo:=TfLogo.Create(Application);
> > fLogo.Show;
> > fLogo.Update;
> >end.
>
>
> Kam presne? Kdyz to vrazim do implementation, tak mi vybehne EResNotFound!
>
> Paralelny port
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.3.2000 14:59:22
>Potrebujem cez Win API programovat LPT port po pinoch. V DOS-e to slo cez
>outport... Neviete ako by sa to dalo vo Windowse? Skusal som CreateFile a
>WriteFile, ale to len standartnym sposobom posiela na port znaky, a ja sa
>potrebujem dostat na nizsiu uroven (piny).
>
Ve Win95/98 napr pomoci IN/OUT ASM instrukci. Ve WinNT/Win2000 jedine pomoci
special driveru na LPT (tusim se existuje i nejaky generic driver, ktery by
bylo mozne pouzit)
Zdravi
D. Toman
Transparentni memo
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.3.2000 15:04:44
Ahoj, nejsem si uplne 100%-ne jisty, ale
http://www.animatedmenus.com umi ledacos...
Dobra.
> ----------
> Od: rjunga(zv)oku-ka(tec)cz[SMTP:rjunga(zv)oku-ka(tec)cz]
> potreboval bych memo komponentu, ktera dokaze propustit pozadi.
> Transparent:=True;
> Nevi nekdo o necem?
> Transparentni memo
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.3.2000 15:11:55
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
> Sorry, opet uplne mimo misu...
> memo<>menu :-O
>
> Transparetni memo umi cool-form
> http://www.lawrenz.com/coolform/
>
> Dobra.
>
> ----------
> Od: Mal> � Dobromil
>
> Ahoj, nejsem si uplne 100%-ne jisty, ale
> http://www.animatedmenus.com umi ledacos...
>
> Dobra.
>
> ----------
> Od: rjunga(zv)oku-ka(tec)cz[SMTP:rjunga(zv)oku-ka(tec)cz]
>
> potreboval bych memo komponentu, ktera dokaze propustit pozadi.
> Transparent:=True;
> Nevi nekdo o necem?
>
>
> Paralelny port
[*] Pavel �imek <kejchal(zv)volny(tec)cz> - 1.3.2000 15:31:21
Ja mel podobny problem a vyresil jsem jej posilanim pomoci Asembleru primo
na adresu. Je to par radek asemblu a je to.
Nevim zda to staci....
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Lubo Fule
Sent: Wednesday, March 01, 2000 1:56 PM
To: Delphi
Subject: Paralelny port
Potrebujem cez Win API programovat LPT port po pinoch. V DOS-e to slo cez
outport... Neviete ako by sa to dalo vo Windowse? Skusal som CreateFile a
WriteFile, ale to len standartnym sposobom posiela na port znaky, a ja sa
potrebujem dostat na nizsiu uroven (piny).
Vdaka L.Informace v "hlavicce" souboru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.3.2000 15:46:31
>Zdravim vsechny,
>poradil by mi, prosim, nekdo, jak v D4 se dostanu k informacim v "hlavicce"
>souboru. Jedna se mi o datum a cas vytvoreni digitalni fotky. Kdyz soubor
>JPG otevru pres WordPad vidim datum,cas,typ fotoaparatu atd., ale nevim jak
>se k temto informacim dostat ( a dale zpracovavat ) z Delphi.
>
nacist a rozparsovat :-) format hlavicky urcite bude nekde popsany..
Zdravi
D> Toman
ADONIS a Master-Detail
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 1.3.2000 15:51:47
Halo, damy a panove,
jak se da zaridit pomoci komponent adonisu vztah master-detail mezi nekolika
otevrenymi query ?
Keep mailing :-)
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
Nekolik dotazu Ad. 2
[*] Marian Goryl <goryl(zv)otcina.sk> - 1.3.2000 16:01:02
> 2) Jak mohu zjistit rozliseni monitoru v bezici aplikaci. Jde mi o
> to, jak hodit do stredu obrazovky program, ktery chci spustit.
ak ti ide len o umiestnenie do stredu obrazovky mohol by si pouzit
Vlastnost Formu Position
Form1.Position := poScreenCenter
Prace s objektem TStringGrid
[*] Jan Hlinka <Hlinka(zv)dcomm(tec)cz> - 1.3.2000 16:26:09
Zapomel jsem uvest, ze pracuji s Delphi 4....
Hippy
-----Original Message-----
From: Jan Hlinka [mailto:Hlinka(zv)dcomm(tec)cz]
Sent: Wednesday, March 01, 2000 1:33 PM
To: 'Konference o Delphi'
Subject: Prace s objektem TStringGrid
Zdravim vas,
mam dva male problemky se StringGridem...
1, nemohu nastavit na zacatku RowsCount =1 a zaroven FixedRows taktez na 1.
Vysledek je takovy, ze pri spusteni prg. mam nadefinovanu hlavicku a jeden
prazdny radek...(RowsCount musi byt 2)... nevi nekdo jak tohle obejit????
2, rad bych si 1 radek StringGridu upravil do vizualne prijatelnejsi formy
(tucne pismo, zarovnavani,...atd.) lec pokud neco nastavim, tak se to tyka
celeho radku (ci sloupce) tzn. ne jen hlavicky :o(((
Predem dekuji za odezvu
Hippy alias Hlinka Jan
Multilanguage aplikace
[*] Pavel Cisar \(Inprise CZ\) <pcb(zv)atlas(tec)cz> - 1.3.2000 17:00:38
Haj hou!
Muzes s uspechem pouzit Localizator dostupny na
http://delphree.clexpert.com/pages/projects/nexus/products.htm
je to Open Source.
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
From: "Ales Vas��ek" <vasicek(zv)ecommerce(tec)cz>
> Neexistuje tedy nejaka nadstavba na Delphi, kde si nahradim vsechny texty
v
> projektu a potom zkompiluju, nebo neco takoveho.
> Kazdy napad se hodi.
NT a ADO
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.3.2000 17:37:11
On 1 Mar 00, at 11:39, Tom� Br�dle wrote:
> >pristup pres ADO, ale nevim jestli win NT ve standartn� konfiguraci
> >podporuji tento pristup, nebo jestli se musi doinstalovavat a nemam s
> >tim
>
> podivej se jestli v adresari C:\Program Files\Common Files\SYSTEM\ADO
> je knihovna MSADO15.DLL, a pres zalozku vlastnosti se podivej na
> verzi. Pokud je alespon 2.10 tak je to OK. Je sice uz 2.5, ale ta je
> pro w2000.
Pokud udrzuje na NT 4 aktualni SP, tak to tam ma...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Komponenta jako panel Windows Commanderu
[*] lukas(zv)oknet(tec)cz (Vana Lukas) - 12.1.2005 20:28:21
Ahoj,
hodilo by se mi zobrazit dialogove okno se vzhledem (silne odlehceneho)
Windows Commanderu - tedy dva panely. Uzivatel muze pomoci tohoto nastroje
kopirovat soubory (nikoli mazat a presouvat, taky by mohl jen na vybrane
disky). Jenze se mi nechce programovat se s temi panely (asi by se to muselo
delat pres grid), tridenim apod... Nesetkal se nekdo z Vas nahodou s
komponentou, ktera napodobuje neco jako panel se soubory z napr. Windows
Commandera? Delphi 2, 4, nebo uplne nejlepe jako OCX (ja bych to totiz
nejradeji poustel z dialogoveho okna VBA Excelu, ale v to ani nedoufam...).
Dekuji, Lukas Vana.Kopirovani z CD-ROM
[*] Delphi <delphi(zv)deis(tec)cz> - 2.3.1995 22:08:02
> > pouzivam tuto funkci pro kopirovani (navod od P.V ) vse funkgue OK
> > ale pokud kopiruji z CDcka tak vsechny soubory po zkopirovani jsou
> > Read-Only
> > Jak z toho ven ?
> >
procedure TForm1.BtnCopyClick(Sender: TObject);
var
FileOp: TSHFileOpStruct; begin
Odkud:=LabelOdkud.Caption+'\*.*'#0#0;
Kam:=LabelKam.Caption+#0+#0;
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
wFunc := FO_COPY;
pFrom :=Pchar(Odkud);
pTo :=Pchar(Kam);
fFlags := FOF_ALLOWUNDO;
end;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
ShowMessage('Chyba p�i kop�rov�n�')
else
Application.Terminate
> Nejjednodussi je mozna na zkopirovane soubory pustit radkovy prikaz
attrib.
> Help viz
> attrib /?
>
> Jura
To je prave to cemu jsem se chtel vyhnout (prohledavani podadresaru atd.) a
chtel to nechat
na Windows. Otazka je zda se tedy nevypplati udelat na kopirovani vlastni
funkce.
S pozdravem Heinisch Jiri
Platebni karty
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 2.1.1998 12:58:30
Ahoj,
pokial to chces na registraciu tvojho SW uzivatelmi zo zahranicia, velmi
dobry je www.regsoft.com Mozes sa tam zaregistrovat zdarma, a raz mesacne ti
poslu sek alebo priamo na tvoj ucet ... Tvoji zakaznici mozu platit ako
chcu, kedykolvek, skadekolvek.
Peter.
peter(zv)psoft.sk
----- Original Message -----
From: Kosta <kosta(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, March 11, 2000 11:01 AM
Subject: Platebni karty
> Skromny dotaz, ma tu nekdo realne skusenosti s prijimanim plateb ze
> zahranici pres platebni(kreditni) karty?
>
> Kosta
>
> kosta(zv)iol(tec)cz
> -------------------------------------------
> Kosta
> P.O.Box 38
> Posta 41
> 141 00 Praha 4 - Sporilov
> -------------------------------------------
> 0603 / 33 87 47
> -------------------------------------------
>
>Tajnej String
[*] Lauko �tefan <lauko(zv)salamon.sk> - 24.3.1999 10:19:36
Ahojte,
nic komercne ti nepomoze (ak to chces utajit). Ja by som to vyriesil tak, ze
by som stringi ulozil do zvlastneho suboru ktory by som zasifroval a potom
by som ho "prilepil" na koniec EXE
(copy /b exe + xy ). Po nastartovani programu by sa nacitalo "prilepene" do
TMemoryStreamu, potom desifrovat a nacitat do StringListu... Ak chces poslem
ti jednoduchu sifrovaciu proc.ShowMessage
[*] Ren� Otisk - 31.12.1999 08:51:31
Hi,
Napis si to jako form s komponentou TTimer, TLabel a TButton, das to jen
Show (ne ShowModal) a na OnTimer (nebo tak nejak) povesis Close, nebo na
TButton povesis Close
Sroub
----- Original Message -----
From: Straka Josef <strakaj(zv)hba(tec)czn(tec)cz>
To: Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 16, 2000 2:03 PM
Subject: ShowMessage
Prijemn� den,
D4 standard W95 OSR2
Mam jeste jednu vec. Pokud v programu vyskoci na obrazovku mnou
naprogramovany a chteny ShowMessage('Tohle je informace');, je treba ho
odstranit Entrem. Slo by nejak udelat, abych to nemusel odklepavat, aby napr
po dvou vterinach tato hlaska zmizela sama?
Dekuju predem, protoze zadem se dekovat bez dalsiho prispevku nesmi.
Zacinajici amatersky programator
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
TQuery
[*] Ren� Otisk - 31.12.1999 08:52:39
Hi,
Myslim, ze zalezi, co mas za SQL server a BDE...
Sroub
----- Original Message -----
From: Zdenek Janish <medusa(zv)brajan(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 16, 2000 7:17 PM
Subject: TQuery
> Dobry den,
>
> Tusite nekdo proc mi Query.RecordCount vraci "-1" ikdyz SQL prikaz probehl
v
> poradku (Query.Active = True)...
> Nejvic mne prekvapuje, ze kdyz to vyzkousim v jinem projektu, tak to chodi
> normalne...
>
> Presna sekvence programu jak to probiha:
>
> begin
> Self.tmpSQL.Close; // Nebo: Self.tmpSQL.Active:= False;
> Self.tmpSQL.DatabaseName:= 'JmenoDB'; {Je to jedno, zda to nastavim tady
> nebo v ObjectInspector}
> Self.tmpSQL.SQL.Clear;
> Self.tmpSQL.SQL.Add('SELECT * FROM JmenoTabulky;');
> try
> Self.tmpSQL.Open; // Nebo: Self.tmpSQL.Active:= True;
> if Self.tmpSQL.RecordCount = 1
> {a tady mi to vytrvale tvrdi ze je to "-1", coz je vtakovina,
> protoze je tam 6 zaznamu}
> then {nejake zbesilosti....};
> ....
> end;
>
> Ale co stim???
> Mam D4prof, Patch 3.
>
> Diky za pomoc
> Zdenek
>nefunguje mi MenuItem.Add - proc?
[*] Ren� Otisk - 1.1.2000 14:37:52
Hi,
tusim, neni treba zadat parenta?
NewItem.Parent := ...
Sroub
> Zdravim,
>
> potreboval bych za behu programu vytvaret polozky menu. Ale ono mi to
nejde, pritom snad pouzivam standardni kod (dokonce opsany z helpu):
>
> var
> NewItem: TMenuItem;
> begin
> { first create the separator }
> NewItem := TMenuItem.Create(Self);
> NewItem.Caption := '-';
> { add the new item to the Windows menu }
> pokus1.Add(NewItem);
> end;
>
> "pokus1" je TMenuItem. Kdyz kod vykonam, kde nic tu nic. Nevite cim to
muze byt? Pouzivam D5 C/S a toto je jedina metoda v nove aplikaci.
>
> S pranim hezkeho dne
>
> Daniel Martinec
>
> Btw, takovych problemu mam vic, ze nechodi veci co jsou deklarovane v
helpu, napr. nefunkcnost parametru v udalosti onLogin u TIBDatabase nebo
nefunkcnost locate u TIBQuery.tisk master-detail sinea
[*] Ren� Otisk - 27.1.2000 08:50:32
Hi,
D3, RxLib2.75, Sinea komp pro tisk
Chtel bych poprosit o radu s n�sleduj�c�mi dv�ma probl�my.
1. Pri tisku master-detail se mi pri prechodu na novou stranku dotiskne zbytek zaznamu detailu v pohode od zacatku stranky a pak se udela mezera pres pul stranky a pokracuje dalsi detail. Japato to vyresit?
2. Mam verzi z internetu, takze nemam dema a potrebuji zjistit, co vraci funkce Execute (TPdsResult) komponenty TPrintDialogSinea?
Dekuji predem, neb by se na mne hneval administrator, ze dekuji zadem (...zprava neobsahujici zadne informace...). A navic bych urcite zapomnel odmazat kvotovani...Informace v "hlavicce" souboru
[*] Petr Poto�ek <pp1(zv)volny(tec)cz> - 31.1.2000 09:07:40
----- Original Message -----
From: Dalibor Toman <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 3:46 PM
Subject: Re: Informace v "hlavicce" souboru
> >Zdravim vsechny,
> >poradil by mi, prosim, nekdo, jak v D4 se dostanu k informacim v
"hlavicce"
> >souboru. Jedna se mi o datum a cas vytvoreni digitalni fotky. Kdyz soubor
> >JPG otevru pres WordPad vidim datum,cas,typ fotoaparatu atd., ale nevim
jak
> >se k temto informacim dostat ( a dale zpracovavat ) z Delphi.
> >
>
> nacist a rozparsovat :-) format hlavicky urcite bude nekde popsany..
>
> Zdravi
> D> Toman
>
Bohuzel, jsem v tomto smeru zacatecnik, a nevim jak tento soubor nacist a
pracovat s nim jako s textem. Zkousel jsem to pres TRichEdit, ale nenacetl
se text jako ukaze WordPad, nybrz nesmyslne znaky.
Petr Poto�ek
KonfView
[*] Miky <miky28(zv)atlas(tec)cz> - 20.2.2000 10:15:14
Jiz jsem tady slysel dotaz na to, proc nejde ten programek KonfView.
Sem stah verzi 1.4 a zkolabuje to pri vytvareni databaze. Je nejakej
figl jak to odstranit? Do databaze nevidim a netroufam se v tom
hrabat.
Dikec Miky
MidiChild okna sa maximalizuju
[*] J�n Tungli - 23.2.2000 01:35:49
Ak maximalizujem jedno okno typu MidiChild tak vsetky okna typu MidiChild sa maximalzuju tiez ale to ja nechcem.
Da sa nejako odstarnit tuto vlastnost?
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
jan.tungli(zv)seznam(tec)cz
tel: 07 / 5565096 -8 kl.102
fax: 07 / 55410384
URL: http://free.netlap.hu/4321
Volanie jedneho form z druheho form
[*] J�n Tungli - 23.2.2000 19:21:50
Ja by som zavolal Hide pre form a potom zavolal by som novy form.
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
tel: 07 / 5565096 -8 kl.102, 07/55410372
fax: 07 / 55410384
----- Original Message -----
From: Ad�mi Jaromil <adami(zv)axa.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 03, 2000 1:01 PM
Subject: Volanie jedneho form z druheho form
> Ahojte!
> Chcem vytvorit projekt z viacerych uz existujucich formularov .
> Mam styri formulare a hlavny formular, z ktoreho chcem tie ostatne styri
> volat.
> Nechcem, ale aby sa na obrazovke zobrazovali viacere okna.
> Chcem tam mat vzdy len jedno, prave aktivne okno. Nemozem teda pouzit
> ShowModal.Po uzavreti podriadeneho aktivneho formulara, by sa mal znovu
> zobrazit hlavny formular.Porade mi prosim, ako na to.
> ***************************************************
> Jaromil Adami
> adami(zv)axa.sk
> ***************************************************SQL
[*] J�n Tungli - 24.2.2000 13:29:44
Problem bude asi vtom ze FindKey a Locate a tieto procedury pracuju lokalne u klinta.
To znamena ze postupne prechadzaju kazdy zaznam tak ze tahaju zaznami ku klintovy.
Treba pouzit pre vacsie databazy vyhradne SQL dotazi pre filtraciu.
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
tel: 07 / 5565096 -8 kl.102, 07/55410372
fax: 07 / 55410384
----- Original Message -----
From: FS Software s.r.o.
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, March 03, 2000 5:16 PM
Subject: SQL
D4+SP vse, stanice W98, server NT SP5, MS-SQL 7
Pri prohlizeni libovolne vetsi tabulky z databaze umistene na MS-SQL serveru pomoci DBGRIDu nebo pri hledani pomoci FindKey nebo FindNearest se po chvili objevi nasledujici hlaseni
Aplikace BL zp�sobila neplatnost str�nky
v modulu IDAPI32.DLL na adrese 015f:4be4359d.
(popripade v modulu KERNEL32)
K serveru se pristupuje pomoci BDE a ODBC (v soucasnosti jediny pro nas pripustny zpusob). Stejnou chybu to hlasi take na lokalni verzi SQL serveru ve Windows 98 na vice ruznych pocitacich.
D�k za radu.
J. Falt�nek
fs software(zv)telecom(tec)cz
Trideni v SQL
[*] J�n Tungli - 27.2.2000 20:40:48
order by A>='XX' and B like '%XX%'
J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
tel: 07 / 5565096 -8 kl.102, 07/55410372
fax: 07 / 55410384
----- Original Message -----
From: Ivic Jozef <jozef.ivic(zv)delta.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 10, 2000 10:02 AM
Subject: RE: Trideni v SQL
Ahojte,
neviem sice co chces robit, ale triedit mozes aj pomocou
zmeny indexov v komponente TTable.
Je to celkom rychle.
-----Original Message-----
From: Petr Reichl [mailto:reichl(zv)atlas(tec)cz]
Sent: Friday, March 03, 2000 7:54 PM
To: ListServ - Delphi
Subject: Trideni v SQL
Zdravim vsechny,
potrebuji poradit s nasledujicim problemem tykajici se spise jazyka SQL nez
Delphi. Mam otevrenou tabulku a potrebuji pomoci SQL prikazu v teto otevrene
tabulce tridit podle urcitych kriterii. Muzete mi porait nejaky prikaz?
P�eji p��jemn� den.
Petr Reichl
---
* E-mail: reichl(zv)centrum(tec)cz
* PGP: support
* ICQ: 56430979
---
CRC
[*] Miroslav Vanousek <mvanousek(zv)centrum(tec)cz> - 1.3.2000 17:56:11
Mam takovy hodne ozehavy problem, potrebuji vypocitat 16bit CRC kod.
Tyka se to komunikacniho protokolu TG800 fy Landis & Gyr, telegramu pro povelovani jako
jsou IAC 128, IAC 129 a dalsi.
Nasel jsem odkazy na normu IEC TC57 format FT3, podle ktere jsem to
zkousel take vytvorit, ale nejak jsem nepochodil.
Nachazi se tu nekdo kdo se podobnou tematikou zabyval ci zabyva a je
ochoten se podelit o informace.
Budu vdecny za jakekoliv postrceni vpred.
diky predem
MiVa
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Prace s objektem TStringGrid
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.3.2000 19:14:32
A co to necpat vse do StrigListu, ale nad nej umistit THeader a ten si
upravit jak potrebujes. Pak se nemusis starat o 1. radek ve StringListu.
Pokud bys trval na pouziti StringListu, dalo by se to vyresit pres
OwnerDraw, kde bys testoval prvni radek a nastavil by sis pro nej font jak
potrebujes.
Jan Fiala
----- Original Message -----
From: "Jan Hlinka" <Hlinka(zv)dcomm(tec)cz>
To: "'Konference o Delphi'" <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 1:32 PM
Subject: Prace s objektem TStringGrid
> Zdravim vas,
> mam dva male problemky se StringGridem...
> 1, nemohu nastavit na zacatku RowsCount =1 a zaroven FixedRows taktez na
1.
> Vysledek je takovy, ze pri spusteni prg. mam nadefinovanu hlavicku a jeden
> prazdny radek...(RowsCount musi byt 2)... nevi nekdo jak tohle obejit????
> 2, rad bych si 1 radek StringGridu upravil do vizualne prijatelnejsi formy
> (tucne pismo, zarovnavani,...atd.) lec pokud neco nastavim, tak se to tyka
> celeho radku (ci sloupce) tzn. ne jen hlavicky :o(((
> Predem dekuji za odezvu
>
> Hippy alias Hlinka Jan
>Multilanguage aplikace
[*] Petr Pa��enko <petrpas(zv)volny(tec)cz> - 1.3.2000 19:59:39
----------
> Odes�latel: Ale� Va���ek <vasicek(zv)ecommerce(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Multilanguage aplikace
> Datum: 1. b�ezna 2000 13:58
>
> Zdravim,
>
> potreboval bych poradit nejake reseni jak udelat co nejjednoduseji
> vicejazykovou aplikaci a to tak, aby se menily napisy na vsech ovladacich
> prvcich (a tim i jejich velikost) po vyberu nejakeho jazyka. Napada me
> reseni pomoci nejakeho INI fajlu, kde bych mel jednotlive texty a ty potom
> sypal primo v programu do aplikace. Jenze problem je v tom, ze potom bude
> aplikace hrozne neprehledna, ve smyslu ze treba misto MessageDlg('Ahoj')
> bych tam mel MessageDlg(Vrat_Text(1)). Kdybych tam mel jeste nekdy neco
> ladit, tak se v tom nevyznam.
> Neexistuje tedy nejaka nadstavba na Delphi, kde si nahradim vsechny texty v
> projektu a potom zkompiluju, nebo neco takoveho.
> Kazdy napad se hodi.
>
> Dik Ales.
>
>
Pravdepodobne to pro Vas nebude nic noveho, ale uzil bych textoveho zdroje (*.rc,*.res) o kterem se primo v teto souvislosti zminuje M. Cantu ve svem Mistrovstvi. Obavam se ale, ze by s tim bylo take mnoho prace. Pokud byste si pral detailni informace napiste si o ne: petrpas(zv)volny(tec)cz
Paralelny port
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 1.3.2000 20:25:01
Ahoj,
skus stranku http://www.lvr.com/parport.htm, ktora obsahuje
mnozstvo odkazov na rozne informacie o PP. Najdes tam aj
par komponent na programovanie PP ci uz vo Win16 alebo
vo Win9x ci WinNT.
Tomas
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Lubo Fule
> Sent: Wednesday, March 01, 2000 1:56 PM
> To: Delphi
> Subject: Paralelny port
>
>
> Potrebujem cez Win API programovat LPT port po pinoch. V
> DOS-e to slo cez
> outport... Neviete ako by sa to dalo vo Windowse? Skusal som
> CreateFile a
> WriteFile, ale to len standartnym sposobom posiela na port
> znaky, a ja sa
> potrebujem dostat na nizsiu uroven (piny).
>
> Vdaka L.
>
> spravne trideni jmen v MS SQL7
[*] J.Faltynek <FS_software(zv)telecom(tec)cz> - 1.3.2000 20:34:03
Zdravim vsechny!
D4+SP vse, stanice W98, server NT SP5
Prave prechazime z paradoxu (prilis se nam zacaly nafukovat databaze+bezpecnost dat) na MSSQL7. Zatim s pomoci BDE+ODBC. Databaze jsme prekonvertovali, program chodi celkem dobre. V DBGridu jsou zobrazeny ceske znaky dobre, ale trideni je spatne. Index existuje, trideni je dle "Prijmeni" a "Jmeno". Na zacatku se objevila jmena se "S s hackem", az pak "A" atd. Chyba je nejspise v nastaveni langdriveru. Kdy a kde je treba provest spravne nastaveni20
Dik za postrceni, Jirka
Zruseni ikony z Alt+Tab task menu
[*] L. ZITA <konference(zv)sales(tec)cz> - 1.3.2000 21:06:39
Behalf Of Petr Selinger
> Zdravim,
> behem prace s Delphi jsem narazil na problem, jak dokonale schovat
> aplikaci ze vsech Task menu.
> Neni problem schovat ikonu z dolni listy, ale nevim jak schovat ikonu
> aplikace i z task baru, ktery
> se vyvolava pres Alt+Tab (prepinani mezi aplikacemi).
> Existuje komponenta TSealth, ovsem ta funguje jen pod Win95/98 a ja
> pouzivam Win2000 a chtel bych,
> aby ma aplikace fungovala i na NTckach.
Nemam W2000 ale z obojiho ve W98 to shovam takhle
ShowWindow(Application.Handle,sw_Hide);
Hide;
Pokud chci aby to zmizelo uz pri startu aplikace davam na form Timer v
design modu mu rucne nastavim Timer1.Interval := 1; Timer1.Enabled := TRUE;
a prikazy dam do udalosti OnTimer :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowWindow(Application.Handle,sw_Hide);
Hide;
Timer1.Enabled := False;
end;
A vse funguje OK.
Ludek ZITA
DATA Z KONFERENCE ZA UNOR 2000
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.3.2000 21:30:23
Preji vsem pekneho letniho dne,
data za unor jsou jako obvykle na me strance:
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
A ted POZOR!!
Veskera data z konference, tedy nejen za unor, ale za celou dobu
existence, naleznete nyni jiz na dvou mistech!!!
1) jiz znamy management:
http://www.management(tec)cz/delphi, ktery je umisten na paterni
siti VOL
2) nove na delphi:
http://www.delphi(tec)cz/konfview, ktery je umisten na pateri
CESNETu.
Zvolte si ten, ktery bude pro vas rychlejsi.
Vsechny tri stranky maji stejny vzhled, a je na nich odkaz na
vsechna mista. Je proto naprosto jedno, na kterou pujdete, vzdy
budete mit moznost stahovat jak z managementu, tak z delphi a
unorova data (asi nejrychleji) z me stranky.
Az se mi trochu uvolni cas, rozsekam opet prvni velky archiv na
mensi, aby si prisli na sve i modemisti, ale ted opravdu nestiham,
tak prominte.
Preji prijemne a telekomem nerusene spojeni.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Kopirovani z CD-ROM
[*] Delphi <delphi(zv)deis(tec)cz> - 1.3.2000 21:37:43
Ahoj
pouzivam tuto funkci pro kopirovani (navod od P.V ) vse funkgue OK
ale pokud kopiruji z CDcka tak vsechny soubory po zkopirovani jsou
Read-Only
Jak z toho ven ?
Diky
S pozdravem Heinisch Ji��
�e�en� pro va�i restauraci ��tenky,pokladna, kalkulace, receptury, sklady
http://www.deis(tec)cz/GastroSoft/
Kopirovani z CD-ROM
[*] Delphi <delphi(zv)deis(tec)cz> - 1.3.2000 22:10:26
DOPLNENI
procedure TForm1.BtnCopyClick(Sender: TObject);
var
FileOp: TSHFileOpStruct; begin
Odkud:=LabelOdkud.Caption+'\*.*'#0#0;
Kam:=LabelKam.Caption+#0+#0;
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
wFunc := FO_COPY;
pFrom :=Pchar(Odkud);
pTo :=Pchar(Kam);
fFlags := FOF_ALLOWUNDO;
end;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
ShowMessage('Chyba p�i kop�rov�n�')
else
Application.Terminate;
----- Original Message -----
From: Delphi <delphi(zv)deis(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 9:37 PM
Subject: Kopirovani z CD-ROM
> Ahoj
> pouzivam tuto funkci pro kopirovani (navod od P.V ) vse funkgue OK
> ale pokud kopiruji z CDcka tak vsechny soubory po zkopirovani jsou
> Read-Only
> Jak z toho ven ?
>
> Diky
>
>
> S pozdravem Heinisch Ji��
>
>
> �e�en� pro va�i restauraci ��tenky,pokladna, kalkulace, receptury, sklady
> http://www.deis(tec)cz/GastroSoft/
>
>Delete v SQL
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 1.3.2000 23:14:56
Zdravim,
uzhodnu chvilku sa bavim s jednoduchym problemom. Ako zmazat napr. vsetky
zaznamy z tabulky1, kde sa pole napr. id z tabulky1 rovna polu Id z
tabulky2.
Vypisat tie zaznamy no problem.
Select * FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
usmev2.ico
Ked pouzijem
delete FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
usmev2.ico
tak to nejde.
Mozno treba nejaku SubQuery. Dik za radu. (Sybase SQL Anywhere)
Miso
GIS knihovny nebo komponenty
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 1.3.2000 23:28:47
Ahoj
My pouzivame italske komponenty DbCad.
Vybrali jsme si je pred 1/2 rokem z mnoha existujicich komponent.
Jsme s nimi docela spokojeni.
Podporuji radu formatu (i kdyz JPG treba zrovna chybi).
Data si uklada do DBF, ulozit data na SQL server nepodporuje.
Lze zakoupit vyvojarskou verzi bez prava dale sirit.
Pokud se Ti zalibi, tak lze rozsirit na vyssi verzi (plati se jen rozdil
cen, ale to je u vetsiny
GIS/CAD komponent).
Lze zakoupit bud OCX anebo DLL.
www.dbcad.com
S pozdravem Lada
> ahoj
>
> shanim komponenty nebo alespon knihovny GIS
> pro praci s mapami a mapovymi soubory
> pripadne neco na praci s velkymi obrazky (bmp, cit, arcinfo a pod)
>
> free i komercni (koupime)
>
> plis help
>
> peca
GIF komponenta
[*] Ale� Va���ek�����"q��y�&���w�3 - 1.3.2000 23:43:44
Ahoj,
potreboval bych zjistit, kde stahnu FREE komponentu pro zobrazovani
animovanych GIFu.
Dik Ales
Access violation error.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 1.3.2000 23:46:49
Zdravim tento kod mi robi access violation:
---------------------------------------------
if (aktivneokno('frmCStaty')<>0) and (btnStaty.Visible=True)// ak je
otvoreny ciselnik
then frmMain.mdichildren[aktivneokno('frmCStaty')-1].Close;
Application.createform(TfrmCStaty,frmCStaty);
frmCStaty.ShowModal;
if frmCStaty.OK then
begin
eStat.text:=frmCStaty.qStaty.FieldByName('stat').AsString;
eStat.SetFocus;
end;
frmCStaty.Free; // destroy and remove memory allocation
-------------------------------------------
funkcia aktivne zistuje ci je MDIChild s nazvom frmCStaty aktivny ak ano tak
vrati jeho cislo MDIChildren.
Chyba sa objavi len vtedy ak je frmCStaty zobrazeny ako MDIChild chcem ho
zavriet pomocou tohto kodu.
Best regards. Roland Turcan.
GIF komponenta
[*] Michal Kopacek <m.kopacek(zv)volny(tec)cz> - 2.3.2000 00:48:52
Doporucuji kolekci komponent RXLib( www.rxlib.com ) je tam more super
komponent a po instalaci baliku se ti pridaji tri listy jeden se jmenuje
RXControls a je tam komp. RXGif Animator :)
a tak ti snad dost pomuze :)
PS: doufam ze ted uz bordel nedelam :)
************************************
Michal Kop��ek
http://www.hanatour(tec)cz/mikosoft
m.kopacek(zv)volny(tec)cz
mikosoft(zv)seznam(tec)cz
xkopm13(zv)vse(tec)cz
************************************
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ale� Va���ek
Sent: Wednesday, March 01, 2000 11:44 PM
To: delphi-l(zv)fwd(tec)cz
Subject: GIF komponenta
Ahoj,
potreboval bych zjistit, kde stahnu FREE komponentu pro zobrazovani
animovanych GIFu.
Dik Ales
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.126 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
Access violation error.
[*] Tom� Br�dle������i�^����? - 2.3.2000 00:53:43
Zdravim,
-----P�vodn� zpr�va-----
Od: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>>Zdravim tento kod mi robi access violation:
>
>---------------------------------------------
>if (aktivneokno('frmCStaty')<>0) and (btnStaty.Visible=True)// ak je
>otvoreny ciselnik
> then frmMain.mdichildren[aktivneokno('frmCStaty')-1].Close;
>
> Application.createform(TfrmCStaty,frmCStaty);
> frmCStaty.ShowModal;
>
> if frmCStaty.OK then
> begin
> eStat.text:=frmCStaty.qStaty.FieldByName('stat').AsString;
> eStat.SetFocus;
> end;
> frmCStaty.Free; // destroy and remove memory allocation
>-------------------------------------------
>
>funkcia aktivne zistuje ci je MDIChild s nazvom frmCStaty aktivny ak ano
tak
>vrati jeho cislo MDIChildren.
>
>Chyba sa objavi len vtedy ak je frmCStaty zobrazeny ako MDIChild chcem ho
>zavriet pomocou tohto kodu.
Nenapsal jsi kde presne to vyhazuje exception, ale nak se mi tam nezda
ta kombinace ShowModal a MDIChild.
Tomas
t.bradle(zv)pvtnet(tec)cz
Nekolik dotazu
[*] Marian Winkler <ag.art(zv)iol(tec)cz> - 2.3.2000 02:47:04
----- Original Message -----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 12:16 PM
Subject: Nekolik dotazu
> Dobry den,
>
> mam nekolik dotazu, a to:
>
> 1) Kdyz ma soubor nastaven atribut jen ke cteni a oteviram jej pomoci
> FileOpen(jmeno, fmOpenRead), tak mi vrati handle -1. Pokud jej vsak
> oteviram pomoci AssignFile(p, jmeno) - Reset(p), tak je vse v
> poradku. Ja se tedy ptam, jakym zpusobem se da otevrit soubor pomoci
> funkce FileOpen, a pritom soubor zustal stale s atributem pro cteni.
>
Ahoj,
podivej se do Helpu na FileSetAttr a FileGetAttr
Pred FileOpen otestujes atributy :
Attribute Byte : Bit0 ... Read-only
Bit1 ... Hidden
Bit2 ... System file
Bit3 ... Volume ID
Bit4 ... Directory
Bit5 ... Archive
Bit 6 a 7 nejsou vyuzity.
Pokud je file read-only, zmenis atribut.
Po nacteni a zpracovani ho zase zmenis zpatky.
Marian
Delete v SQL
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 2.3.2000 07:29:33
Tohle by melo fungovat:
DELETE FROM sro00
WHERE EXISTS (SELECT ico FROM usmev2 WHERE usmev2.ico = sro00.ico)
Petr
> -----Original Message-----
> From: Michal Hlavac [mailto:7hlavac(zv)st.fmph.uniba.sk]
> Sent: Wednesday, March 01, 2000 11:15 PM
> To: Delphi F�rum
> Subject: Delete v SQL
>
>
> Zdravim,
>
> uzhodnu chvilku sa bavim s jednoduchym problemom. Ako zmazat
> napr. vsetky
> zaznamy z tabulky1, kde sa pole napr. id z tabulky1 rovna polu Id z
> tabulky2.
>
> Vypisat tie zaznamy no problem.
> Select * FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON
> sro00.ico =
> usmev2.ico
>
> Ked pouzijem
> delete FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
> usmev2.ico
> tak to nejde.
>
> Mozno treba nejaku SubQuery. Dik za radu. (Sybase SQL Anywhere)
>
> Miso
> Prace s objektem TStringGrid
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.2000 07:40:08
On 1 Mar 00, at 16:26, Jan Hlinka wrote:
> Zapomel jsem uvest, ze pracuji s Delphi 4....
Poridit si zaplatu cislo 3, nebo Delphi 5.
>
> Zdravim vas,
> mam dva male problemky se StringGridem...
> 1, nemohu nastavit na zacatku RowsCount =1 a zaroven FixedRows taktez
> na 1. Vysledek je takovy, ze pri spusteni prg. mam nadefinovanu
> hlavicku a jeden prazdny radek...(RowsCount musi byt 2)... nevi nekdo
> jak tohle obejit???? 2, rad bych si 1 radek StringGridu upravil do
> vizualne prijatelnejsi formy (tucne pismo, zarovnavani,...atd.) lec
> pokud neco nastavim, tak se to tyka celeho radku (ci sloupce) tzn. ne
> jen hlavicky :o((( Predem dekuji za odezvu
>
> Hippy alias Hlinka Jan
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Multilanguage aplikace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.2000 07:40:08
<color><param>0100,0100,0100</param>On 1 Mar 00, at 17:00, Pavel Cisar (In=
prise CZ) wrote:<color><param>7F00,0000,0000</param>> Muzes s uspechem pouzit Localizator =
dostupny na
> http://delphree.clexpert.com/pages/projects/nexus/products.htm
>
</color>K tomu vsak prislusi dovetek, ze stejne nelze programovat stylem <=
bigger>
<smaller>MessageDlg('Ahoj'), ale napriklad MessageDlg(SAhoj), kde vlastni
text je deklarovan pod resourcestring. Jinak pozadavky to splnuje.<color><param>7F00,0000,0000</param>> From: "Ales Vas=ED=E8ek" <<vasicek(zv)e=
commerce(tec)cz>
> > Neexistuje tedy nejaka nadstavba na Delphi, kde si nahradim vsechny
> > texty
> v
> > projektu a potom zkompiluju, nebo neco takoveho.
> > Kazdy napad se hodi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Prace se skupinou Labelu
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 2.3.2000 08:13:16
Jeste by slo pole labelu ne ?
MS
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele No
> Comment Group, s.r.o. / Bohdan Pomsahar
> Odesl�no: 1. b�ezna 2000 12:34
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Prace se skupinou Labelu
>
>
> Suhlasim, ze je jednoduchsie pouzivat Tag. Osobne tiez pouzivam tag, ale v
> ramci moznosti je to jedna z moznosti a mam napriklad aj program kde musim
> pouzivat obidve moznosti.
>spravne trideni jmen v MS SQL7
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 2.3.2000 08:37:33
Ahoj,
asi nemas nastaveny sort order pro cestinu. Nejdriv zkus stopnout server a spustit ho pomoci souboru MSSQL7\BIN\sqlservr.exe a az to nabehne, tak na konci je kod sort order. Pokud tam nemas kod 84(Czech dictionary order - incasesensitive, kod casesensitive neznam), tak musis zmenit nastaveni razeni spustenim MSSQL7\BIN\rebuildm (v napovede je heslo rebuildm utility). Bohuzel pri nastaveni prijdes o vsechny data, takze je zazalohuj. Ne BACKUPem, protoze (me se to nepodarilo) nejde udelat RESTORE database s jinym razenim, ale presunout treba do textoveho souboru.
Ales
----- Original Message -----
From: J.Faltynek
To: delphi forum
Sent: Wednesday, March 01, 2000 8:34 PM
Subject: spravne trideni jmen v MS SQL7
Zdravim vsechny!
D4+SP vse, stanice W98, server NT SP5
Prave prechazime z paradoxu (prilis se nam zacaly nafukovat databaze+bezpecnost dat) na MSSQL7. Zatim s pomoci BDE+ODBC. Databaze jsme prekonvertovali, program chodi celkem dobre. V DBGridu jsou zobrazeny ceske znaky dobre, ale trideni je spatne. Index existuje, trideni je dle "Prijmeni" a "Jmeno". Na zacatku se objevila jmena se "S s hackem", az pak "A" atd. Chyba je nejspise v nastaveni langdriveru. Kdy a kde je treba provest spravne nastaveni20
Dik za postrceni, Jirka
Prace se skupinou Labelu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 2.3.2000 08:53:47
> -----P�vodn� zpr�va-----
> Od: =?iso-8859-2?Q?Karel Klime=B9 [mailto:kchodl(zv)email(tec)cz]
> Odesl�no: 1. b�ezna 2000 10:58
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Prace se skupinou Labelu
>
>
> > napriklad takto:
> >
> > procedure ....
> > var
> > nazov:string;
> > cislo:integer;
> > begin
> > nazov:=(Sender as TLabel).Name;
> > cislo:=strtoint(copy(nazov,6,length(nazov)-5));
> > if (cislo>1) and (cislo<26) then showmessage ('OK');
> > end;
> >
> > len musis dorzat standartne nazvy Labelov
> >
> a neni lepsi jiz uvedeny Tag?
Neni, uz se mi vyplatilo rezervovat si tag pro pristi
pouziti. Ze zacatku vyvoje systemu je relativne jednoduche
obejit se bez Tagu, kdyz se ale vyskytne potreba, na niz
by se tag hodil v okamziku, kdy system obsahuje nekolik
stovek oken, je jakekoliv jine reseni leckdy nerealizovatelne.
Proto doporucuji vyhybat se zabrani property Tag,
dokud jine reseni neznamena prilis velke naklady.
Jura
spravne trideni jmen v MS SQL7
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.2000 09:04:00
On 1 Mar 00, at 20:34, J.Faltynek wrote:
> Zdravim vsechny!
> D4+SP vse, stanice W98, server NT SP5
>
> Prave prechazime z paradoxu (prilis se nam zacaly nafukovat
> databaze+bezpecnost dat) na MSSQL7. Zatim s pomoci BDE+ODBC. Databaze
> jsme prekonvertovali, program chodi celkem dobre. V DBGridu jsou
> zobrazeny ceske znaky dobre, ale trideni je spatne. Index existuje,
> trideni je dle "Prijmeni" a "Jmeno". Na zacatku se objevila jmena se
> "S s hackem", az pak "A" atd. Chyba je nejspise v nastaveni
> langdriveru. Kdy a kde je treba provest spravne nastaveni? Dik za
> postrceni, Jirka
Zkus databazi hned po prihlaseni poslat prikaz
set language czech
nebo pouzivej nvarchar. Langdriver v BDE jsem pouzival Pdx ANSI
Czech CH.
Jinak, z pohledu MS SQL 7 je pristup pres DBLib (tedy BDE)
povazovan spise za nahradni, takze to s sebou nese radu
neprijemnych omezeni, a to jak ze strany databaze, tak i na strane
BDE komponent. Doporucuji pristup pres OLE DB nebo ADO, a to
hned od zacatku. Prechod z BDE na ADO neni zcela trivialni
(pokud to ma byt udelane dobre), takze je lepsi hned z kraje zacit
vyvoj na ADO (OLE DB).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delete v SQL
[*] jzeleny(zv)inprise(tec)cz - 2.3.2000 09:29:42
>>uzhodnu chvilku sa bavim s jednoduchym problemom. Ako zmazat napr. vsetky
>>zaznamy z tabulky1, kde sa pole napr. id z tabulky1 rovna polu Id z
>>tabulky2.
Cest praci,
nevim, co umi Sybase, ale obecne lze v SQL napsat nasledujici
delete from t1 where t1.id in (select id from t2)
nebo
delete from t1 where EXISTS (select * from t2 where t1.id=t2.id)
Jindrich Zeleny
ADO a skripty
[*] Matula M <asexrm(zv)telecom(tec)cz> - 2.3.2000 09:51:15
Problem je v tom ze tvuj skript vraci dva vysledky. Prvni je od DELETE a druhy od SELECT. Podivej se v dokumentaci k ADO na heslo NextRecordset.
Mirek
>
>>2. Ako poslat takyto skript s vysledkom? :
>>DECLARE (zv)A CHAR(20)
>>SET (zv)A=1
>>DELETE FROM TAB1
>>select 'VYSLEDOK JE',(zv)A
>>
>>Ten select mi vrati vysledok iba v pripade, ze vyhodim riadok "DELETE FROM
>>TAB1", inak dostanem hlasku: "Commandtext does not return a result set".
>>Skript, aj viacriadkovy prebehne vporiadku, iba nedostanem ten vysledok.
>>Chcem sa preto spytat, ako je mozne zapisat skript tak, aby som po vykonani
>>viacerych prikazov (insert,delete ...) dostal aj nejaky vysledok v podobe
>>select-u!?
>>Rovnaky problem mam aj u vlozenych procedur...
>
>
>TADODataSet - vyzkouseno i na delsi skripty i declare, transakce apod.
>pokud das CommandType:=cmdStoredProc tak to muzes pouzit i na
>ulozenou proceduru
Adonis - nastaveni
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 2.3.2000 10:00:55
> > Jeste vcera jsem si myslel, ze umim nastavit Adonis tak, aby byl
> > rychlejsi nez ODBC. ted jsem zjistil, ze to byl omyl - je-li
> > nastavene asynchronni fetchovani, dostal jsem sice vysledek
> > rychleji, ale rada zaznamu ve vysledku chybela. Vim, ze jsem asi s
> > asynchronnim rezimem nepracoval spravne, ale bez teto volby
> > jsem nedokazal zaridit, aby Adonis byl rychlejsi nez ODBC
> > komponenty od L. Fuleho.
>
> Asynchronne fetchovanie dotahuje zaznamy na pozadi, asi este neboli
> dotiahnute vsetky (je to mozne testovat, pripadne pockat na ukoncenie).
>
To jsem zjistil az po odeslani mailu. Slo o moji chybu, kterou
uznavam.
> > Nemam zatim zadny duvod verit, ze ADO je rychlejsi nez
> > ODBC. Mne se jevi nejen pomalejsi, ale navic rychlost pri stejnem
> > nastaveni zavisi na objemu vysledne mnoziny dat. ODBC
> > komponenty davaji pri nejakem doporucenem nastaveni "vzdy"
> > dobry vysledek. U Adonisu hodne zalezi na tom, v jakem vztahu k
> > sobe je velikost datove cache a pocet zaznamu, ktere jsou vraceny
> > dotazem. Rozhodne nepovazuji za prakticke u kazdeho dotazu
> > zjistovat, kolik asi tak prumerne vraci dat, abych tomu Adonis
> > prizpusobil.
>
> Skontroluj, ci mas nastaveny SQLOLEDB provider a clServer CursorLocation.
SQLOLEDB mam nastavene. Co se tyka CursorLocation, i s tim
jsem si hral, ale lepsich vysledku jsem dosahl s clClient. Uznavam
ale, ze jindy tomu muze byt jinak.
> Dalsie properties, ktore maju vplyv na vykon su CursorType (nastav na
> ctForwardOnly),
Mam.
> LockType (nastav na ltReadOnly), CommandType (nastav na ctTable ak zadavas
> nzaov tabulky,
> alebo ctText, ak zadavas SQL prikaz). Toto je asi najrychlejsie nastavenie
Taky mam.
> (ovsem s obmedzenim
> urcitej funkcionality, co je logicke) a vhodnou volbou tychto nastaveni by
> malo byt mozne najst
> vhodny kompromis vykon/funkcnost.
>
> U klientskeho recordsetu (clClient CursorLocation) znacne spomaluje citanie
> aktualnej
> pozicie zaznamu, preto je mozne toto vypnut pomocou property Options
> (opWithoutAbsolutePosition).
To jsem taky udelal.
Domnivam se, ze jsem vyzkousel vse, co se doporucuje ve FAQ i v
helpu k Adonisu.
Aby to nevypadalo spatne - mne se Adonis libi, je pekne
zpracovany, bohata nabidka komponent, pekny Help...
Co se tyka te rychlosti - me by nevadila nejaka "absolutni"
hodnota rychlosti, spis mi slo o to, ze jsem mel v ruce i neco
rychlejsiho, tak me to zaujalo.
Jedina vec, ktera mi tak nejak opravdu vadi, je to, ze vykon
Adonisu silne zavisi na poctu vracenych radku, takze kdyz v dobe
navrhu Cache size nejak nastavim a v praxi se vyskytne jine
mnozstvi dat, nez jake jsem odhadoval, pujde rychlost rychle dolu.
Nicmene to mi pripada spise jako neodstranitelny problem.
Zdravim a preju hezky den :)
David
Rebuild icon cache
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 2.3.2000 10:16:28
Ahoj
rad bych ze sveho programu provedl refresh
ikon ve Windows, tak jak to napr. dela "Tweak UI"
na zalozce "Repair" - volba "Rebuild Icons".
vi nekdo, jak to provest ?
A vi nekdo, kde najdu v registru prirazeni ikon polozkam
"Start" menu, diskum, tiskarne atd...?
dekuji za kazdou odpoved
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Prace s objektem TStringGrid
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 2.3.2000 10:45:56
> 2, rad bych si 1 radek StringGridu upravil do
> vizualne prijatelnejsi formy (tucne pismo, zarovnavani,...atd.) lec
> pokud neco nastavim, tak se to tyka celeho radku (ci sloupce) tzn. ne
> jen hlavicky :o(((
Ahoj
co treba zkusit TStringAlignGrid
na http://www.hoerstemeier.com/index.htm
melo by to umoznit individualni nastaveni nejen radku,
nebo sloupce, ale i jednotlive bunky - font, barvu, zarovnani, hint atd...
( a je to Public Domain -> vcetne zdroju )
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Adonis - nastaveni
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 2.3.2000 10:52:05
> Rychlost vsak neni vse, protoze OLE DB umoznuje podstatne vice
> nez OLE DB, krome toho je to obecnejsi rozhrani k pristupu k
> datum. ODBC umi jen databaze, OLE DB umi (pres providery)
> jakakoliv data.
Naprosto souhlasim s tim, ze rychlost neni vse. Na druhou stranu
mi pri programovani databazovych aplikaci muze byt ukradene, ze
OLEDB umi i neco jineho, kdyz to v danem pripade nepotrebuji.
> Dalsi vec je vyhled o budoucna - ODBC je odsouzeno k doziti,
> OLE DB lze naopak ocekavat casem i na jinych platformach nez
> MS Windows. Tedy, v ODBC nevidim perspektivu.
To je bohuzel pravda, i kdyz se mi zda, ze se zavrhuje neco, co
neni az tak spatne. Ze slo do haje DbLib, mi prijde v poradku,
protoze tu existovalo rychlejsi ODBC. U ODBC mi to prijde skoro
skoda, ale je to jen muj (pomerne uzkoprsy) nazor.
Ale kdyz uz jsme u toho - znamena to, ze ODBC se treba casem
prestane vyskytovat v MDAC balicich? Myslim si, ze dokud bude
ODBC k dispozici, nebudou aplikace psane s pomoci nej
zavrzenihodne. Pro me jako vyvojare bude zajimave zacit pouzivat
OLEDB k pristupu na MSSQL misto ODBC az teprve tehdy, az to
bude prinaset nejake fakticke vyhody. Pokud u aplikaci
nepredpokladam prenos na jine platformy, praci s jinymi daty nez
MSSQL, nevidim ZADNY duvod, proc zatim nepouzivat ODBC.
Je take jasne, ze OLEDB se bude vyvijet a casem treba
predstihne ODBC i v otazce rychlosti. Ale zaruceno to zatim neni.
Nebo ano? A potvrdil vubec nekdo oficialne, ze vyvoj ODBC je u
konce?
Dekuji za nazory.
Vim, ze je mozna tahle diskuze otravna, ale tajne doufam, ze
pomuze i nekomu jinemu nez jen mne.
David
Stari souboru
[*] Petr Ku�era <kucera(zv)vri(tec)cz> - 2.3.2000 11:01:17
Dobry den,
prosim Vas, mohli byste mi poradit, jak se da zjistit stari
souboru jinak, nez pomoci
Soub:=FileOpen(jmeno, ???);
FileGetDate(Soub);
Jde mi hlavne o to, aby se ten soubor oteviral jinak, nez
FileOpen, protoze mi v urcitych situacich i pres to, ze tento soubor
fyzicky existuje na disku vraci tato funkce hodnotu -1. Atributy
tohoto souboru nejdou zmenit, nebot nemam tato prava (je read-only).
Pomoci
AssignFile(Soub, jmeno);
Reset(Soub);
vsak otevrit jde bez problemu.
Dekuji.
Petr Kucera
Oracle stored prodedures
[*] azeleny(zv)csas(tec)cz - 2.3.2000 11:07:16
DDV,
presel jsem (nikoliv o vlastni vuli) z Interbase na Oracle (7x) a mam
nasledujici dotaz:
V Interbase slo delat select z procedury, a procedura mohla klidne vraci
vice zaznamu...
V Oracle se mi nepodarilo z procedury nikdy dostat vice radek, metoda
TStoredProcedure.Open
vrati chybu, execute se provest muze a pak dostanu v parametrech hodnoty.
Jak spustit storovanou proceduru z worksheetu, nebo lepe z konzoloveho
plus33.exe ?
Umi oracle z procedury vracet vice zaznamu?
priklad testovaci procedury:
CREATE PROCEDURE IVAN.TestIt (
INCHAR IN VARCHAR2,
INNUM OUT NUMBER,
OUTVARCHAR OUT VARCHAR2,
OUTNUM OUT NUMBER
)
AS
BEGIN
OUTVARCHAR:= INCHAR;
OUTNUM:= INNUM;
END;
Slozita ze :-) Nevim proc, ale v Delphi dostanu parametry (teda pouze pres
zavolani ExecProc), ale z oracle worksheetu to neumim spustit, natoz pak z
konzoloveho plus33, to mi hlasi chybu:
SQL> exec testit;
begin testit; end;
*
ERROR at line 1:
ORA-06550: line 1, column 7:
PLS-00201: identifier 'TESTIT' must be declared
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
jeste slozitejsi to bylo, kdyz jsem chtel vracet vice zaznamu, to pak v
parametrech (opet nelo pouzit Open, ale jen ExecProc) byl pouze prvni zaznam
a nevim jak ziskat dalsi.
Procedura byla podobne slozita, byl tam udelan kurzor a loop pres vsechny
zaznamy s zavolanim fetch().
Procedury byly prelozene bez chyby.
Omlouvam se za tento dotaz (asi stupidni), ale pro uzivatele IB je oracle
spanelska ves, jak tak na to koukam...
Jakekoliv rady vitany, manulay jsem se cist snazil a jediny vysledek bylo,
ze jsem vytvoril ty procedury, vcetne pokusneho kurzoru, ale dale jsem toho
uz moc nevyrozumel.
Diky a.Globalny shortcut
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 2.3.2000 11:08:32
Ako sa da zaregistrovat globalny shortcut pre cely windows...
napriklad kombinacia (okno + E) spusta explorer
mam program, ktory si takto zaregistruje shortcut-y
okno + F1, okno + F1 atd a pri stlaceni prislusnych klaves
sa spusti nejaka funkcnost v tomto programe
(tlacitko okno je medzi Ctrl a Alt)
delphi akosi nepodporuju tieto specialne klavesy
olej
Dramaticke snizeni cen MIDASu
[*] Pavel Cisar \(Inprise CZ\) <pcb(zv)atlas(tec)cz> - 2.3.2000 11:30:22
Haj hou!
Mozna nektere z vas potesi, ze ceny za pouziti technologie MIDAS (deployment
license) se dramaticky snizily na cca 13000,-Kc per server (byvalo i nekolik
set tisic per site).
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
Oracle stored prodedures
[*] radomir.chwalek(zv)rtscs(tec)cz - 2.3.2000 12:09:38
Ahoj,
> -----P�vodn� zpr�va-----
> Od: azeleny(zv)csas(tec)cz [mailto:azeleny(zv)csas(tec)cz]
> Odesl�no: 2. b�ezna 2000 11:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Oracle stored prodedures
>
>
> DDV,
> presel jsem (nikoliv o vlastni vuli) z Interbase na Oracle (7x) a mam
> nasledujici dotaz:
>
> V Interbase slo delat select z procedury, a procedura mohla
> klidne vraci
> vice zaznamu...
> V Oracle se mi nepodarilo z procedury nikdy dostat vice radek, metoda
> TStoredProcedure.Open
> vrati chybu, execute se provest muze a pak dostanu v
> parametrech hodnoty.
Ja osobne pouzivam metodu TStoredProcedure.Open pouze tehdy, kdy� m�m jako
n�vratov� parametr cursor, kter� mi potom slou�� pro tisk sestavy.
Jinak u v�ech procedur d�v�m TStoredProcedure.ExecProc.>
> Jak spustit storovanou proceduru z worksheetu, nebo lepe z konzoloveho
> plus33.exe ?
> Umi oracle z procedury vracet vice zaznamu?
>
> priklad testovaci procedury:
> CREATE PROCEDURE IVAN.TestIt (
> INCHAR IN VARCHAR2,
> INNUM OUT NUMBER,
> OUTVARCHAR OUT VARCHAR2,
> OUTNUM OUT NUMBER
> )
> AS
>
> BEGIN
> OUTVARCHAR:= INCHAR;
> OUTNUM:= INNUM;
> END;
>
> Slozita ze :-) Nevim proc, ale v Delphi dostanu parametry
> (teda pouze pres
> zavolani ExecProc), ale z oracle worksheetu to neumim
> spustit, natoz pak z
> konzoloveho plus33, to mi hlasi chybu:
>
> SQL> exec testit;
M�l by jsi spou�t�t testit (parametry in);
> begin testit; end;
>
> *
> ERROR at line 1:
> ORA-06550: line 1, column 7:
> PLS-00201: identifier 'TESTIT' must be declared
> ORA-06550: line 1, column 7:
> PL/SQL: Statement ignored
>
> jeste slozitejsi to bylo, kdyz jsem chtel vracet vice
> zaznamu, to pak v
> parametrech (opet nelo pouzit Open, ale jen ExecProc) byl
> pouze prvni zaznam
> a nevim jak ziskat dalsi.
> Procedura byla podobne slozita, byl tam udelan kurzor a loop
> pres vsechny
> zaznamy s zavolanim fetch().
>
> Procedury byly prelozene bez chyby.
>
> Omlouvam se za tento dotaz (asi stupidni), ale pro uzivatele
> IB je oracle
> spanelska ves, jak tak na to koukam...
> Jakekoliv rady vitany, manulay jsem se cist snazil a jediny
> vysledek bylo,
> ze jsem vytvoril ty procedury, vcetne pokusneho kurzoru, ale
> dale jsem toho
> uz moc nevyrozumel.
>
> Diky a.
>
S pozdravem
Radek
Stari souboru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.3.2000 12:20:06
>Dobry den,
>
> prosim Vas, mohli byste mi poradit, jak se da zjistit stari
>souboru jinak, nez pomoci
>
> Soub:=FileOpen(jmeno, ???);
> FileGetDate(Soub);
bez otevirani lze data zjistit pomoci FindFirst nebo lepe FindFirstFile
Zdravi
D> Toman
Delete v SQL
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 2.3.2000 12:20:27
spravne napsane DELETE ma vypadat takto
delete from t1
from t1,t2
where t1.id=t2.id
uvedene verze
delete from t1 where t1.id in (select id from t2)
nebo
delete from t1 where EXISTS (select * from t2 where t1.id=t2.id)
[takovyhle zapis jsem jeste nevidel, podle mne by asi negfungoval, protoze
uzavorkovana oblast by se mela vykonat jako samostatny prikaz a ten neni
spravny, pokud ale v jinych databazich funguje pak se mu da vytknout ta *
sem staci dat nejakou konstantu treba 1 coz by v pripade, ze tabulky
obsahuji hodne dat, sloupcu nebo mema, melo citelne urychlit]
jsou z hlediska optimalizace rychlosti databaze zcela neprijatelne ( i kdyz
treba funkcni )
Predstavte si ze kazda z tabulek t1 a t1 ma 1000 radku, pak pouziti in v
klauzuli where znamena, ze select v inu se provede prave tolikrat a jeste
pokazde musi prohledat celou t2 zda tam hodnota existuje.
bylo by mozne vymyslet i jine varianty
delete from t1 where t1.id in (select t1.id from t1,t2 where t1.id=t2.id)
(Pozn. vseobecne se bere, ze klauzule in a exist se maji pouzivat co
nejmene )
Ing. Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Michal Hlavac
Odesl�no: 1. b�ezna 2000 23:15
Komu: Delphi F�rum
P�edm�t: Delete v SQL
Zdravim,
uzhodnu chvilku sa bavim s jednoduchym problemom. Ako zmazat napr. vsetky
zaznamy z tabulky1, kde sa pole napr. id z tabulky1 rovna polu Id z
tabulky2.
Vypisat tie zaznamy no problem.
Select * FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
usmev2.ico
Ked pouzijem
delete FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
usmev2.ico
tak to nejde.
Mozno treba nejaku SubQuery. Dik za radu. (Sybase SQL Anywhere)
Miso
Nekolik dotazu
[*] novacek(zv)vanicek(tec)cz - 2.3.2000 11:23:46
Dne 1 Mar 00 v 12:16, napsal Petr Ku�era:
> 1) Kdyz ma soubor nastaven atribut jen ke cteni a oteviram jej pomoci
> FileOpen(jmeno, fmOpenRead), tak mi vrati handle -1. Pokud jej vsak
> oteviram pomoci AssignFile(p, jmeno) - Reset(p), tak je vse v
> poradku. Ja se tedy ptam, jakym zpusobem se da otevrit soubor pomoci
> funkce FileOpen, a pritom soubor zustal stale s atributem pro cteni.
Atributy pro zpusob otvirani souboru obsahuje promenna FileMode. Nastav ji
pred otevrenim souboru. Podrobneji viz. help.
> 2) Jak mohu zjistit rozliseni monitoru v bezici aplikaci. Jde mi o
> to, jak hodit do stredu obrazovky program, ktery chci spustit.
Rozliseni obrazovky mozno zjistit pres Screen.Width, Screen.Height nebo
volanim funkci GetSystemMetrics nebo GetSystemParams (to jmeno nevim
presne).
Umisteni formulare do stredu obrazovky viz. TForm.Position:=poScreenCenter.
Zdar a silu!
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
HLP ci CHM?
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 2.3.2000 12:24:22
Zdravim :)
Skuor filozoficka otazka:
Mam vo vyhlade robit help pre aplikaciu, a teraz stojim pred vyberom:
hlp alebo chm (tot otazka :)))
Co je potrebne na zobrazovanie chm suborov? Internet Explorer 4?
Existuje ekvivalent zo strany Netscape?
Ak je potrebny IE4, je mozne nainstalovat osekanu verziu len pre podporu chm
suborov? Echsistuje :) vuobec nejaky prehliadac chm suborov, ktory
nepotrebuje IE4?
(Co je potreba pre hlp je mi jasne, nezabudol som nan.:)
Nemuozem predsa nutit zakaznika instalovat si IE4 len preto, lebo ja mam
helpy v chm - to radsej zvolim hlp.
Ake mate poznatky a skusenosti?
Vopred dakujem za vsetky zachranne kolesa a vesty :)))
Ondrej
[ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]Prace s objektem TStringGrid
[*] novacek(zv)vanicek(tec)cz - 2.3.2000 11:25:29
Dne 1 Mar 00 v 13:32, napsal Jan Hlinka:
> 1, nemohu nastavit na zacatku RowsCount =1 a zaroven FixedRows taktez na 1.
> Vysledek je takovy, ze pri spusteni prg. mam nadefinovanu hlavicku a jeden
> prazdny radek...(RowsCount musi byt 2)... nevi nekdo jak tohle obejit????
O zadnem zpusobu obejiti nevim. Ono nejde ani nastavit RowCount:=0 kdyz je
prazdna mrizka :-(
Zdar a silu.
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
Multilanguage aplikace
[*] novacek(zv)vanicek(tec)cz - 2.3.2000 11:26:56
Dne 1 Mar 00 v 13:58, napsal Ale Va �eek:
> potreboval bych poradit nejake reseni jak udelat co nejjednoduseji
> vicejazykovou aplikaci a to tak, aby se menily napisy na vsech ovladacich
> prvcich (a tim i jejich velikost) po vyberu nejakeho jazyka. Napada me
Misto INI souboru spis resources.
Nebo lokalizator, jak tady kdosi navrhoval.
Mas-li D5, tak tam je jazykova podpora primo vestavena.
Zdar a silu.
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
Kopirovani z CD-ROM
[*] novacek(zv)vanicek(tec)cz - 2.3.2000 11:30:17
Dne 1 Mar 00 v 22:10, napsal Delphi:
> > pouzivam tuto funkci pro kopirovani (navod od P.V ) vse funkgue OK
> > ale pokud kopiruji z CDcka tak vsechny soubory po zkopirovani jsou
> > Read-Only
Nastaveni atributu souboru viz. procedura FileSetAttr. Pomoci FileGetAttr
zjisti atributy daneho souboru, odmaskuj faReadOnly (... And (Not
faReadOnly)) a upravene atributy nastav souboru pomoci FileSetAttr.
Zdar a silu!
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
Kopirovani z CD-ROM
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 2.3.2000 12:36:18
> -----P�vodn� zpr�va-----
> Od: Delphi [mailto:delphi(zv)deis(tec)cz]
> Odesl�no: 1. b�ezna 2000 21:38
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Kopirovani z CD-ROM
>
>
> Ahoj
> pouzivam tuto funkci pro kopirovani (navod od P.V ) vse funkgue OK
> ale pokud kopiruji z CDcka tak vsechny soubory po zkopirovani jsou
> Read-Only
> Jak z toho ven ?
>
Nejjednodussi je mozna na zkopirovane soubory pustit radkovy prikaz attrib.
Help viz
attrib /?
Jura
CRC
[*] novacek(zv)vanicek(tec)cz - 2.3.2000 11:38:33
Dne 1 Mar 00 v 17:56, napsal Miroslav Vanousek:
> Mam takovy hodne ozehavy problem, potrebuji vypocitat 16bit CRC kod.
> Tyka se to komunikacniho protokolu TG800 fy Landis & Gyr, telegramu pro povelovani jako
> jsou IAC 128, IAC 129 a dalsi.
> Nasel jsem odkazy na normu IEC TC57 format FT3, podle ktere jsem to
> zkousel take vytvorit, ale nejak jsem nepochodil.
Informace a podrobnosti o metodach vypoctu CRCs jsou ve dvou clancich v
casopise Chip c. 8 a 9 rocniku 1993.
Zdar a silu!
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
TToolBar vs. 401comupd (50comupd)
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 2.3.2000 11:56:03 met-1
Ahoj,
v archivu jsem si nasel, co delat, kdyz ikony (ulozene v ImageList) v
ToolBaru nejsou videt. Ze to je zapricinene starou verzi knihovy
COMCTL32.DLL a ze nove verze se nainstaluji pres 50comupd (resp.
nizsi verze pres 401comupd). Tedy provedl jsem, avsak ... ikony jsou
furt neviditelne. U sebe na PC ikony v dobe navrhu projektu i pri jeho
spusteni v pohode vidim, na ostatnich pocitacich pripad od pripadu. A
nepomuze ani zmineny upgrade. Netusite, kde je zakopany pes?
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Access violation error.
[*] Lauko �tefan <lauko(zv)salamon.sk> - 2.3.2000 12:58:42
Ahoj,
ak som dobre pochopil kod tak je tam chyba
then frmMain.mdichildren[aktivneokno('frmCStaty')-1].Close; { skus pouzit
Free}
Application.createform(TfrmCStaty,frmCStaty); {lebo
tu ho znova vytvaras
alebo toto uz nepouzi}
frmCStaty.ShowModal;
----- Original Message -----
From: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 11:46 PM
Subject: Access violation error.> Zdravim tento kod mi robi access violation:
>
> ---------------------------------------------
> if (aktivneokno('frmCStaty')<>0) and (btnStaty.Visible=True)// ak je
> otvoreny ciselnik
> then frmMain.mdichildren[aktivneokno('frmCStaty')-1].Close;
>
> Application.createform(TfrmCStaty,frmCStaty);
> frmCStaty.ShowModal;
>
> if frmCStaty.OK then
> begin
> eStat.text:=frmCStaty.qStaty.FieldByName('stat').AsString;
> eStat.SetFocus;
> end;
> frmCStaty.Free; // destroy and remove memory allocation
> -------------------------------------------
>
> funkcia aktivne zistuje ci je MDIChild s nazvom frmCStaty aktivny ak ano
tak
> vrati jeho cislo MDIChildren.
>
> Chyba sa objavi len vtedy ak je frmCStaty zobrazeny ako MDIChild chcem ho
> zavriet pomocou tohto kodu.
>
> Best regards. Roland Turcan.
>
>Multilanguage aplikace
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 2.3.2000 13:16:10
nadeklarovat si to jako Resource strings a ty potom bezproblemu lokalizovat
viz D5 help
--
Resource strings are stored as resources and linked into the executable or
library so that they can be modified without recompiling the program. For
more information, see Internationalization and localization and the topics
that follow it.
Resource strings are declared like other true constants, except that the
word const is replaced by resourcestring. The expression to the right of the
= symbol must be a constant expression and must return a string value. For
example,
resourcestring
CreateError = 'Cannot create file %s'; { for explanations of
format specifiers, }
OpenError = 'Cannot open file %s'; { see 'Format strings' in
the online Help }
LineTooLong = 'Line too long';
ProductName = 'Borland Delphi\000\000';
SomeResourceString = SomeTrueConstant;
The compiler automatically resolves naming conflicts among resource strings
in different libraries.
M.Jirman
----- Original Message -----
From: Ales Vas��ek <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 01, 2000 1:58 PM
Subject: Multilanguage aplikace
> Zdravim,
>
> potreboval bych poradit nejake reseni jak udelat co nejjednoduseji
> vicejazykovou aplikaci a to tak, aby se menily napisy na vsech ovladacich
> prvcich (a tim i jejich velikost) po vyberu nejakeho jazyka. Napada me
> reseni pomoci nejakeho INI fajlu, kde bych mel jednotlive texty a ty potom
> sypal primo v programu do aplikace. Jenze problem je v tom, ze potom bude
> aplikace hrozne neprehledna, ve smyslu ze treba misto MessageDlg('Ahoj')
> bych tam mel MessageDlg(Vrat_Text(1)). Kdybych tam mel jeste nekdy neco
> ladit, tak se v tom nevyznam.
> Neexistuje tedy nejaka nadstavba na Delphi, kde si nahradim vsechny texty
v
> projektu a potom zkompiluju, nebo neco takoveho.
> Kazdy napad se hodi.
>
> Dik Ales.
>
>ADONIS a Master-Detail
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 2.3.2000 13:22:44
ahoj,
uz to tady jednou resilo v IB, tak ti posilam odpoved Jaro
M.Jirman
---
From: Jaro
Sent: Thursday, February 03, 2000 6:54 PM
Subject: RE: interbase
Ano muze to fungovat obdobne.
Predpokladejme, ze detail obsahuke polozku IDMaster, kde jsou ulozeny
hodnoty
ID z pole master tabulky, ktere se napr. jmenuje ID (ja ho pojmenovam
zpravidla ID+JmenoTabulky nebo jen ID)
Select * from Detail Where IdMaster = :ID
Na DataSet (TQuery) detailu musi byt pripojen datasource od Master tabulky.
Tim se automaticky bude vkladat hodnota do parametru :ID pri kazde
zmene ukazatele na master tabulce a vzdy se dotahnou prislusne
radky do datasetu Detailu.
S timto procesem je nutno pocitat vzdy pri pohybu v master.
Jestlize docasne neni potreba zobrazovat detail, je mozne snadno
proces zrusit nastavenim hodnoty Nill do DataSource a opet obnovit
vracenim hodnoty pripojovaneho Master DataSource.
Toho lze vyuzit napr. v udalostech OnKeyDown a OnKeyyUp.
Tim lze zrychlit listovani v tabulce master tak, aby nedochazelo k
zadrhavani
vlivem neustaleho natahovani detailu.
Jaro
---
>From: Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz>>Halo, damy a panove,
>jak se da zaridit pomoci komponent adonisu vztah master-detail mezi
nekolika
>otevrenymi query ?
> Hynek Svato�
ADONIS a Master-Detail
[*] vladimirp(zv)post(tec)cz - 2.3.2000 13:27:51
Hezky den...
Mam nejake informace v promenne CHAR. Potrebuji je dostat do richedit.
Pokud pouziji toto:
var
c: array[1..100] of char;
s, e: string;
delka_pole, d: integer;
begin
delka_pole := sizeof(c);
s := \'test\';
for d :=1 to delka_pole do
begin
c[d] := s[d];
end;
for d :=1 to delka_pole do
begin
richedit1.text := richedit1.text + c[d];
end;
end;
Vypise se mi tam take hromada ruznych paznaku. Ke vsemu se mi zda, ze je muj source zbytecne slozity.
Mam D3. Diky... VladimirP
Kde najdete PRESNE to, co hledate?
*** http://NAJDI.TO
Delete v SQL
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 2.3.2000 13:32:11
ahoj,
Obecne v SQL by to slo takhle:
DELETE ZAZNAM FROM TABULKA1,TABULKA2 WHERE TABULKA1.ID=TABULKA2.ID
M.Jirman
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>> Zdravim,
>
> uzhodnu chvilku sa bavim s jednoduchym problemom. Ako zmazat napr. vsetky
> zaznamy z tabulky1, kde sa pole napr. id z tabulky1 rovna polu Id z
> tabulky2.
>
> Vypisat tie zaznamy no problem.
> Select * FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
> usmev2.ico
>
> Ked pouzijem
> delete FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
> usmev2.ico
> tak to nejde.
>
> Mozno treba nejaku SubQuery. Dik za radu. (Sybase SQL Anywhere)
>
> Miso
>
>
ADONIS a Master-Detail
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 2.3.2000 14:20:03
No nadhera ! Diky moc.
Keep mailing :-)
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> p. Jirman
> Sent: Thursday, March 02, 2000 1:23 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: ADONIS a Master-Detail
>
>
> ahoj,
> uz to tady jednou resilo v IB, tak ti posilam odpoved Jaro
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
ulozena procedura
[*] Zak Robert <nrsys(zv)psn.sk> - 2.3.2000 14:44:44
Zdravim,
Pouzivam D5, MSSQL7, ADOExpress. Pred casom som sa na to uz pytal,
nedospel som ale k ziadnemu zdarnemu vysledku, tak skusam znova...
Da sa nejak pocas vykonavania dlhotrvajucej ulozenej procedury poslat
smerom na aplikaciu zo servera nejaky event ktory mozem cez ADO prijat -
[najlepsie aj s nejakym parametrom] ? Potreboval by som kreslit ProgressBar,
pokial ta procedura trva napr. minutu ci viac, aby som vedel ze sa nieco
deje a este pocitac nezamrzol. Da sa to vobec nejak vyriesit?
Nasiel som napr. funkciu PRINT, neda sa to dostat na stranu klienta a
precitat cez ADO?
Dakujem za kazdy tip
Robo
None
[*] Lubos Hubka <hubka(zv)trenkwalder.sk> - 02.3.2000 15:30:48
Malo by stacit:
RichEdit1->Text = c;
> var
> c: array[1..100] of char;
> s, e: string;
> delka_pole, d: integer;
> begin
> delka_pole := sizeof(c);
> s := \'test\';
> for d :=1 to delka_pole do
> begin
> c[d] := s[d];
> end;
> for d :=1 to delka_pole do
> begin
> richedit1.text := richedit1.text + c[d];
> end;
> end;
>
> Vypise se mi tam take hromada ruznych paznaku. Ke vsemu se mi zda, ze je muj source zbytecne slozity.
>
> Mam D3. Diky... VladimirP
>
> Kde najdete PRESNE to, co hledate?
> *** http://NAJDI.TO
Delphi acces
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 2.3.2000 15:45:54
Pomoci ulozenych procedur mi to prijde nejjednodussi,
vytvoris si (v Accessu) dotazy INSERT, UPDATE, DELETE...
a z Delphi jim jen predas parametry a spustis je.> ----------
> Od: Martin[SMTP:geoplan(zv)pp.sinet.sk]
>
> nejde mi ani o to cez co to pojde, asi cez dao, ale vseobecne ako vkladat a editovat data.
>
> ----- Original Message -----
> Od: p. Jirman
>
> a pres co na to budes pristupovat?
> Doporucuju pouziti tri TADODataset (co znamenaji ty SQL komponenty?)
>
> From: Martin
>
>
> Mam databazu Acces a v nej tri tabulky.
> 1. tabulka fakt
> 2. tabulka zakazka
> 3. ciselnik, spajajuci fakt a zakazka.
>
> Chcel by som sa opytat aky je podla Vas najvhodnejsi sposob vkladania a editacie zaznamov. Tabulky chcem pripojit pomocou SQL koponent.
> Mam asi taku predstavu.
> Tabulky budu prepojene pomocou sql vyrazov s parametrom ako master detail zakazka na ciselnik a ciselnik na fakt.
> Prv> � formular bude mat komponenty DBEDIT pripojene na fakt. Potom by tam bol aj DBGRID(read only) pripojeny na tabulku zakazky. Na pridavanie a editaciu zakaziek by bol dalsi formular s DBEDIT napojenymi na zakazky.
> Je to dobre riesenie alebo sa to da urobit lepsie ? Niekto tu niekedy pisal ze nie je dobre priamo pracovat s udajmi v databaze. Neviem ci tym myslel komponenty DBEDIT alebo FIELDS.
> Iba skusam urobit nejaku aplikaciu, nie je to nic komercne.
> ADO a skripty
[*] Zak Robert <nrsys(zv)psn.sk> - 2.3.2000 15:54:30
Pozeral som na NextRecordSet, asi ale zo zleho uhla :-). Mal by mi prist teda prvy a druhy vysledok. Ako ho ale donutim aby sa ten vysledok rozdelil do dvoch RecordSet-ov, ked uz pocas Open mi to nahlasi chybu: "CommandText does not return a result set". Pokial nepouzijem open ale ExecSQL a snazim sa ho priradit priamo pomocou ADODataset1.RecordSet := ADOCommand1.Execute, nahlasi mi "Stack OverFlow", takze sa asi pokusam o nejaku blbost ale hlavne si neviem vybrat jednotlivy RecordSet. A pokial pouzijem NextRecordSet, ten potrebuje mat ADOQuery1 otvorenu, a to zase neviem spravit lebo mi to nahlasi chybu ako som uz pisal. Urcite robim nieco zle, ale co?
Problem je v tom ze tvuj skript vraci dva vysledky. Prvni je od DELETE a druhy od SELECT. Podivej se v dokumentaci k ADO na heslo NextRecordset.
Mirek
>
>>2. Ako poslat takyto skript s vysledkom? :
>>DECLARE (zv)A CHAR(20)
>>SET (zv)A=1
>>DELETE FROM TAB1
>>select 'VYSLEDOK JE',(zv)A
>>
>>Ten select mi vrati vysledok iba v pripade, ze vyhodim riadok "DELETE FROM
>>TAB1", inak dostanem hlasku: "Commandtext does not return a result set".
>>Skript, aj viacriadkovy prebehne vporiadku, iba nedostanem ten vysledok.
>>Chcem sa preto spytat, ako je mozne zapisat skript tak, aby som po vykonani
>>viacerych prikazov (insert,delete ...) dostal aj nejaky vysledok v podobe
>>select-u!?
>>Rovnaky problem mam aj u vlozenych procedur...
>
>
>TADODataSet - vyzkouseno i na delsi skripty i declare, transakce apod.
>pokud das CommandType:=cmdStoredProc tak to muzes pouzit i na
>ulozenou proceduru
OT Update
[*] WagnerP(zv)gytool(tec)cz - 2.3.2000 15:57:38
Ahoj,
ja vim ze to sem prilis nepatri, ale nevite nekdo kde by se daly
stahnout updaty pro Delphi 3. Na oficialnich strankach Borlandu uz
podpora pro Delphi 3 neni. Predem dik.
Petr
wagnerp(zv)gytool(tec)cz
Interbase 5.5: Co na server a co na klienta?
[*] Otakar Skoloud <delphi(zv)ssakhk(tec)cz> - 2.3.2000 16:02:49
Ahoj,
A co knihovna gds32.dll ?
O.> mam pocitace propojene nejakou siti, protokol je tcp/ip. Na jednom
> z nich chci mit IB 5.5, na ostatnich program v D5 Enterprise,
> pristup nativne a mam par otazek:
>
> a) Co vse je potreba dat na server? Staci pouze nainstalovat IB?
>
> Na server je potreba nainstalovat InterBase a nekam umistit datovy soubor.
>
> b) Co vse musim mit na klientovi? Musim mit klienta IB? Musim
> mit link? Musi se neco nastavovat krome IP adresy, kdyz chci k
> databazi pristoupit?
>
> Pri nativnim pristupu je potreba IB klient a do ..\WINDOWS\hosts napsat:
>
> jmenoserveru IP adrea
>
> a pak uz se jen pripojit na "jmenoserveru:DISK:\cesta k datum\soubor.gdb".
>
> (jestli jde nejak udelat "IP_adresa:DISK:\cesta k datum\soubor.gdb" nebo
> jeste lepe "IP_adresa:alias" dejte mi prosim vedet)
>
> Honza Seifert
>
>Interbase 5.5: Co na server a co na klienta?
[*] Matin Koller <koller(zv)gema(tec)cz> - 02.3.2000 16:02:39
Ahoj
Pole Char jde bez problemu pretipovat na string;
Var Pole:Array [1..100] Of Char;
Str:String;
Str:=String(Pole);
a to jde uz bez problemu do RichEdit.
Martin
************************************************************
* Martin Kolller Koller(zv)Gema.Cz *
************************************************************RichEdit
[*] DiGi <DiGi(zv)MujMail(tec)cz> - 2.3.2000 16:11:16
Zkus pouzit spis
RichEdit1.Lines.Add (StringRetezec);
(neprovadi to ale RTF konverzi)
DiGi
--- DiGi(zv)MujMail(tec)cz ---------------------------------------------
-------------------------------------------- http://www.qr(tec)cz ---
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
vladimirp(zv)post(tec)cz
Sent: Thursday, March 02, 2000 1:28 PM
To: delphi-l(zv)fwd(tec)cz
Subject:
Hezky den...
Mam nejake informace v promenne CHAR. Potrebuji je dostat do richedit.
Pokud pouziji toto:
var
c: array[1..100] of char;
s, e: string;
delka_pole, d: integer;
begin
delka_pole := sizeof(c);
s := \'test\';
for d :=1 to delka_pole do
begin
c[d] := s[d];
end;
for d :=1 to delka_pole do
begin
richedit1.text := richedit1.text + c[d];
end;
end;
Vypise se mi tam take hromada ruznych paznaku. Ke vsemu se mi zda, ze je muj
source zbytecne slozity.
Mam D3. Diky... VladimirP
Kde najdete PRESNE to, co hledate?
*** http://NAJDI.TO
TDBMemo a Insert
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 2.3.2000 16:12:25
Zdravim,
mam problem s DbMemo pri inserte. Pri vlozeni dat a nasledovnom Post mi
server vrati chybu, ze field popis (text) cannot be NULL. To je v pohode,
pretoze field not Allows Null. Lenze problem je v tom, ze pole je napojene
na DBMemo a v nom je text napisany. Skusal som zapnut podporu Null, a pri
inserte mi nevlozilo nic, ale pri Update mi ten text vlozilo. Nechapem kde
je problem.
D3, W95, Sybase SQL Anywhere 5.5, DBExpress
Dik, Miso
Delete v SQL
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 2.3.2000 16:16:00
Nazdar,
toto by som sa velmi bal pouzit. Podla mna to zmaze zaznamy aj s tabulky2,
co je big pruser.
Miso
-----Original Message-----
>ahoj,
>
>Obecne v SQL by to slo takhle:
>
>DELETE ZAZNAM FROM TABULKA1,TABULKA2 WHERE TABULKA1.ID=TABULKA2.ID
>
>M.Jirman
Delete v SQL
[*] Ale� Kle�ka - 2.3.2000 16:45:46
Co takhle zkusit:
DELETE FROM TABULKA1
WHERE ID IN ( SELECT ID
FROM TABULKA2 ); Alesh
----- Original Message -----
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 02, 2000 4:16 PM
Subject: Re: Delete v SQL
> Nazdar,
>
> toto by som sa velmi bal pouzit. Podla mna to zmaze zaznamy aj s tabulky2,
> co je big pruser.
>
> Miso
>
> -----Original Message-----
>
> >ahoj,
> >
> >Obecne v SQL by to slo takhle:
> >
> >DELETE ZAZNAM FROM TABULKA1,TABULKA2 WHERE TABULKA1.ID=TABULKA2.ID
> >
> >M.Jirman
>Memo a Selection
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 2.3.2000 16:54:49
To si musis zapamatovat na jakou pozici ho vkladas a jakou ma delku kdyz ne
na konec.
M.Jirman
From: Jan Bachor <bachor(zv)iol(tec)cz>
>
> maze to celej posledni radek, ale ja potrebuj smazat jenom posledni
vlozenej
> text
>
RichEdit
[*] vladimirp(zv)post(tec)cz - 2.3.2000 17:00:40
No problem je, ze ja potrebuji do richeditu dat nekolik stringu za sebe, jenze jejich delka musi byt porad stejna i kdyz text v nich treba neni zadny. Potrebuji totiz vytvorit sloupce a to je jedina moznost, ktera me napadla...
Diky...> Zkus pouzit spis
>
> RichEdit1.Lines.Add (StringRetezec);
>
> (neprovadi to ale RTF konverzi)
>
> DiGi
> --- DiGi(zv)MujMail(tec)cz ---------------------------------------------
> -------------------------------------------- http://www.qr(tec)cz ---
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> vladimirp(zv)post(tec)cz
> Sent: Thursday, March 02, 2000 1:28 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject:
>
>
> Hezky den...
>
> Mam nejake informace v promenne CHAR. Potrebuji je dostat do richedit.
> Pokud pouziji toto:
>
> var
> c: array[1..100] of char;
> s, e: string;
> delka_pole, d: integer;
> begin
> delka_pole := sizeof(c);
> s := \\\'test\\\';
> for d :=1 to delka_pole do
> begin
> c[d] := s[d];
> end;
> for d :=1 to delka_pole do
> begin
> richedit1.text := richedit1.text + c[d];
> end;
> end;
>
> Vypise se mi tam take hromada ruznych paznaku. Ke vsemu se mi zda, ze je muj
> source zbytecne slozity.
>
> Mam D3. Diky... VladimirP
>
> Kde najdete PRESNE to, co hledate?
> *** http://NAJDI.TO
>
>
>
Chcete hledat nebo chcete najit?
*** http://NAJDI.TO
Oracle stored prodedures
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.2000 17:18:07
On 2 Mar 00, at 11:07, azeleny(zv)csas(tec)cz wrote:
> V Interbase slo delat select z procedury, a procedura mohla klidne
> vraci vice zaznamu... V Oracle se mi nepodarilo z procedury nikdy
> dostat vice radek, metoda TStoredProcedure.Open vrati chybu, execute
> se provest muze a pak dostanu v parametrech hodnoty.
> [...]
S Oracle zkusenosti nemam, ale zkusil bych totez pustit pres
ADO (netreba mit komponenty, uz i v D4 se lze pripojit primo na
ADO, pokud si exportujes hlavickovy soubor). Treba se to povede...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Stari souboru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.2000 17:18:07
On 2 Mar 00, at 11:01, Petr Ku�era wrote:
> prosim Vas, mohli byste mi poradit, jak se da zjistit stari
> souboru jinak, nez pomoci
>
> Soub:=FileOpen(jmeno, ???);
> FileGetDate(Soub);
function FileAge(const FileName: string): Integer;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OLE DB vs ODBC (was:Re: Adonis - nastaveni)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.2000 17:18:07
On 2 Mar 00, at 10:52, David Lebeda wrote:
> Naprosto souhlasim s tim, ze rychlost neni vse. Na druhou stranu mi
> pri programovani databazovych aplikaci muze byt ukradene, ze OLEDB umi
> i neco jineho, kdyz to v danem pripade nepotrebuji.
Mno, OLE DB je take o tom, ze jednou sadou nastroju se
dostanes nejen k databazim, ale take treba k adresarovym
strukturam, majlum a podobne.
To, ze to nepotrebujes ted, neznamena, ze to nebudes potrebovat
ani za chvilku. :-)
> > Dalsi vec je vyhled o budoucna - ODBC je odsouzeno k doziti,
> > OLE DB lze naopak ocekavat casem i na jinych platformach nez
> > MS Windows. Tedy, v ODBC nevidim perspektivu.
>
> To je bohuzel pravda, i kdyz se mi zda, ze se zavrhuje neco, co
> neni az tak spatne. Ze slo do haje DbLib, mi prijde v poradku,
> protoze tu existovalo rychlejsi ODBC. U ODBC mi to prijde skoro
> skoda, ale je to jen muj (pomerne uzkoprsy) nazor.
S ohledem na vyse uvedene si to nemyslim. Ztrata rychlosti neni
az tak velika, nove schopnosti OLE DB to bohate vynahradi.
> Ale kdyz uz jsme u toho - znamena to, ze ODBC se treba casem
> prestane vyskytovat v MDAC balicich? Myslim si, ze dokud bude
> ODBC k dispozici, nebudou aplikace psane s pomoci nej
> zavrzenihodne. Pro me jako vyvojare bude zajimave zacit pouzivat OLEDB
> k pristupu na MSSQL misto ODBC az teprve tehdy, az to bude prinaset
> nejake fakticke vyhody. Pokud u aplikaci nepredpokladam prenos na jine
> platformy, praci s jinymi daty nez MSSQL, nevidim ZADNY duvod, proc
> zatim nepouzivat ODBC.
:-) Ja ti to nerozmlouvam, jen vyjadruji svuj nazor, co si o tom
myslim. A domnivam se, ze stejne ve Windows konci restartovani
pod DOSem, podobne casem skonci i ODBC. Tedy, fungovat bude
jeste asi dlouho, ale urcite nebude dale vyvijen a nove verze
databazi mu "utecou" a postupne ho prestanou podporovat.
Pokud vsak pracujes s MS SQL, tim spise bych na OLE DB
presel, protoze to rodne sestry jsou. :-)
> Je take jasne, ze OLEDB se bude vyvijet a casem treba
> predstihne ODBC i v otazce rychlosti. Ale zaruceno to zatim neni. Nebo
> ano? A potvrdil vubec nekdo oficialne, ze vyvoj ODBC je u konce?
To nevim.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Oracle stored prodedures
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 2.3.2000 17:25:35
> From: azeleny(zv)csas(tec)cz [SMTP:azeleny(zv)csas(tec)cz]
>
>
> priklad testovaci procedury:
> CREATE PROCEDURE IVAN.TestIt (
> INCHAR IN VARCHAR2,
> INNUM OUT NUMBER,
> OUTVARCHAR OUT VARCHAR2,
> OUTNUM OUT NUMBER
> )
> AS
>
> BEGIN
> OUTVARCHAR:= INCHAR;
> OUTNUM:= INNUM;
> END;
>
> Slozita ze :-) Nevim proc, ale v Delphi dostanu parametry (teda pouze pres
> zavolani ExecProc), ale z oracle worksheetu to neumim spustit, natoz pak z
> konzoloveho plus33, to mi hlasi chybu:
>
> SQL> exec testit;
> begin testit; end;
>
> *
> ERROR at line 1:
> ORA-06550: line 1, column 7:
> PLS-00201: identifier 'TESTIT' must be declared
> ORA-06550: line 1, column 7:
> PL/SQL: Statement ignored
>
> Procedury byly prelozene bez chyby.
>
Mo�no public synonym, alebo grant
JJ
ShellExecute...Minimal ???
[*] Michal Kopacek <m.kopacek(zv)volny(tec)cz> - 2.3.2000 17:55:21
ztim jsem nevzresil problem s minimalizaci,
nenapadlo Vas nekoho reseni?
PROBLEM: Mam program ktery spousti dokument xy.html ulozeny na disku a
potrebuju aby se IE (5.0) otevrel minimalizovany.
prikaz
shellexecute(Application.Handle,'open','xz.html',nil,nil,SW_SHOWMINIMIZED);
mi otevira IE maximal.?
predem dekuji (podekuju kazdemu zvlast na email :)
************************************
Michal Kop��ek
http://www.hanatour(tec)cz/mikosoft
m.kopacek(zv)volny(tec)cz
mikosoft(zv)seznam(tec)cz
xkopm13(zv)vse(tec)cz
************************************
Cestina versus Delphi4
[*] Jan Hlinka <Hlinka(zv)dcomm(tec)cz> - 2.3.2000 18:12:27
Ahoj, moc diky za ten StringGrid :o))))))..
Mam dalsi drobnost - umi D4 standartne prevadet cestinu tzn. z Kameniku ci
Latin2 do 1250 Windows?
Diky za odezvu
Hippy
Hlidac konfigurace
[*] Bohuslav Svancara <softprojekt(zv)iol(tec)cz> - 2.3.2000 18:45:53
Nevite prosim vas o nejakem programu, ktery by hlidal konfiguraci pocitace a
programu?
O co jde: Mam u uzivatele instalovany program pracujici s BDE. Jde o pomerne
velkou sit s mnoha uzivateli. Pracuje se s Paradoxem a Centurou. Ted tam
druha firma instaluje svuj program, pouzivajici BDE a Interbase.
Neustale se jen resi problemy typu: jak je namapovan server, kde je
instalovane BDE, jestli je spravna verze, co je napsane v registrech, jestli
maji programy spravne
nastavene aliasy, jestli jsou spravna hesla, jestli je vubec pruchodna sit
(maji tam prenos pres laserovou linku a obcas nejede), jestli nekdo nesmazal
nejaky soubor atd.
Uz toho mam plny zuby.
Neni neco, kam by se zapsala konfigurace pocitace (vybrane parametry) a
nastaveni nejruznejsich parametru programu a cim by se dalo zkontrolovat,
jestli je vsechno nastavene, jak ma byt?
S pozdravem
Bohuslav Svancara
softprojekt(zv)iol(tec)cz
Delete v SQL
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 2.3.2000 18:59:19
To neni pravda, zkus si to - pust si transakci, pust ten delete a uvidis,
pak transakci vrat zpet.
Doporucuji prostudovat help a vyzkouset si, co tam pisou.
Keep mailing :-)
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Michal Hlavac
> Sent: Thursday, March 02, 2000 4:16 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Delete v SQL
>
>
> Nazdar,
>
> toto by som sa velmi bal pouzit. Podla mna to zmaze zaznamy aj s tabulky2,
> co je big pruser.
>
> Miso
>
> -----Original Message-----
>
> >ahoj,
> >
> >Obecne v SQL by to slo takhle:
> >
> >DELETE ZAZNAM FROM TABULKA1,TABULKA2 WHERE TABULKA1.ID=TABULKA2.ID
> >
> >M.Jirman
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
Delete v SQL
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 2.3.2000 20:33:35
delete from t1
from t2
where t1.id=t2.id
Lada
> spravne napsane DELETE ma vypadat takto
>
> delete from t1
> from t1,t2
> where t1.id=t2.id
>
> uvedene verze
>
> delete from t1 where t1.id in (select id from t2)
>
> nebo
>
> delete from t1 where EXISTS (select * from t2 where t1.id=t2.id)
>
> [takovyhle zapis jsem jeste nevidel, podle mne by asi negfungoval, protoze
> uzavorkovana oblast by se mela vykonat jako samostatny prikaz a ten neni
> spravny, pokud ale v jinych databazich funguje pak se mu da vytknout ta *
> sem staci dat nejakou konstantu treba 1 coz by v pripade, ze tabulky
> obsahuji hodne dat, sloupcu nebo mema, melo citelne urychlit]
>
> jsou z hlediska optimalizace rychlosti databaze zcela neprijatelne ( i
kdyz
> treba funkcni )
>
> Predstavte si ze kazda z tabulek t1 a t1 ma 1000 radku, pak pouziti in v
> klauzuli where znamena, ze select v inu se provede prave tolikrat a jeste
> pokazde musi prohledat celou t2 zda tam hodnota existuje.
>
> bylo by mozne vymyslet i jine varianty
>
> delete from t1 where t1.id in (select t1.id from t1,t2 where t1.id=t2.id)
>
> (Pozn. vseobecne se bere, ze klauzule in a exist se maji pouzivat co
> nejmene )
>
> Ing. Pavel SPEJTEK
> e-mail: bosnis(zv)atlas(tec)cz
> www: http://freeweb.coco(tec)cz/ps/index.html
>
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Michal Hlavac
> Odesl�no: 1. b�ezna 2000 23:15
> Komu: Delphi F�rum
> P�edm�t: Delete v SQL
>
>
> Zdravim,
>
> uzhodnu chvilku sa bavim s jednoduchym problemom. Ako zmazat napr. vsetky
> zaznamy z tabulky1, kde sa pole napr. id z tabulky1 rovna polu Id z
> tabulky2.
>
> Vypisat tie zaznamy no problem.
> Select * FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
> usmev2.ico
>
> Ked pouzijem
> delete FROM "USERS"."sro00" INNER JOIN "users"."usmev2" ON sro00.ico =
> usmev2.ico
> tak to nejde.
>
> Mozno treba nejaku SubQuery. Dik za radu. (Sybase SQL Anywhere)
>
> Miso
>
>Interbase 5.5: Co na server a co na klienta?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.3.2000 20:35:21
Ahoj,
> A co knihovna gds32.dll ?
****Na stranu klienta nebo serveru? Je to v souladu
s licencnimi podminkami?
Slavek
> O.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Oracle stored prodedures
[*] azeleny(zv)csas(tec)cz - 2.3.2000 20:47:29
DIKY vsem, uz se to podarilo vyresit!
> > Jak spustit storovanou proceduru z worksheetu, nebo lepe z
> konzoloveho
> > plus33.exe ?
Jen uvadim co jsem nasel v maualu dneska vecer k tomuto dotazu, snad se to
bude nekomu hodit:
Displaying Output
Currently, PL/SQL does not support I/O. However, the package DBMS_OUTPUT
(supplied with Oracle7) allows you to display output from PL/SQL blocks and
subprograms, which makes it easier to test and debug them. The procedure
put_line lets you output information to a buffer. The SQL*Plus command SET
SERVEROUTPUT ON lets you display the information. For example, suppose you
create the following stored procedure:
CREATE PROCEDURE calc_payroll (payroll IN OUT REAL) AS
CURSOR c1 IS SELECT sal,comm FROM emp;
BEGIN
payroll := 0;
FOR c1rec IN c1 LOOP
c1rec.comm := NVL(c1rec.comm, 0);
payroll := payroll + c1rec.sal + c1rec.comm;
END LOOP;
/* Display debug info. */
dbms_output.put_line('payroll: ' || TO_CHAR(payroll));
END calc_payroll;
When you issue the following commands, SQL*Plus displays the value of
payroll calculated by the procedure:
SQL> SET SERVEROUTPUT ON
SQL> VARIABLE num NUMBER
SQL> EXECUTE calc_payroll(:num)
For more information about package DBMS_OUTPUT, see Oracle7 Server
Application Developer's Guide.
vzato zdokumentace:
file:///C|/ORANT/DOC/DCOMMON/OIN/INDEXJ.HTM
----------------------------------------------------------------------
Ale� Zelen�
�esk� spo�itela a.s
Na Per�t�n� 1
113 98 Praha 1
Email: azeleny(zv)csas(tec)cz
----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.HLP X CHM
[*] Hurricane <hurricane(zv)iol(tec)cz> - 2.3.2000 21:07:20
Zdravim
> Co je potrebne na zobrazovanie chm suborov? Internet Explorer 4?
> Existuje ekvivalent zo strany Netscape?
> Ak je potrebny IE4, je mozne nainstalovat osekanu verziu len pre podporu
chm
> suborov? Echsistuje :) vuobec nejaky prehliadac chm suborov, ktory
> nepotrebuje IE4?
> (Co je potreba pre hlp je mi jasne, nezabudol som nan.:)
>
> Nemuozem predsa nutit zakaznika instalovat si IE4 len preto, lebo ja mam
> helpy v chm - to radsej zvolim hlp.
CHM jdou prohlizet ve Win98, tam je IE implicitne a smazat nejde (nastesti).
Jak je to v NT to nevim, nemel sem s nimi cest, ale myslim si, ze v
novejsich verzich to pude urcite. Ve WIN2K jdou urcite. Ja bych asi zvolil
CHM. A pokud user nema IE, jeho blbost :-). A uz si nekdy zkousel delat HLP
v Help Workshopu (z Delphi)? Ja sem se o to pokousel, ale naprosto bez
uspechu, je to strasnej program. Pro CHM by to melo jit prece psat v HTML
(to neni problem), pak k tomu udelat index, seznam slov a NEKDE to
zkompilovat, ale prave, v cem? Nebo mas neco na to? A co kdybys to udelal
jednoduse cely v HTML, pokud to nebude moc veliky (stovky klicovejch slov),
tak by to bylo taky dobry reseni, nehlede na prakticky neomezene moznosti
formatovani.
Hurricane
ShellExecute...Minimal ???
[*] Hurricane <hurricane(zv)iol(tec)cz> - 2.3.2000 21:35:26
Zdravim
>shellexecute(Application.Handle,'open','xz.html',nil,nil,SW_SHOWMINIMIZED);
To Michal Kopacek: Diiiky ti, jak sem nekolikrat psal do konference, jakl
mam reloadnout soubor v Exploderu, tak se to udela tim parametrem open v
druhym parametru. Ja sem tam mel nil. Este jednou diiky ti moc, uspisil si
vydani Text Editoru. Mozna ti podekuju v readme.
A k tomu tvymu problemu: Ja kdyz pouziju SW_SHOWMINIMIZED, tak se mi otvira
ani minim. ani maxim, proste normalni okno (ted nevim, jak se to rekne). Ja
si myslim, ze se ti to asi nepodari. Kdyz jsem do dialogu Spustit ... (z
nab. Start) napsal cestu k HTML souboru a spustil, otevrel se Exploder.
Minimalizoval sem ho a dal ten samej prikaz spustit este jednou. Exploder se
MAXIMALIZOVAL a nacet tu stranku. Je docela mozny, ze to je nejaka chyba v
API. Mozna pomuze pouzit jinej zpusob spousteni. Napr WinExec. I kdyz me
pred nim Tom Swan v Mistrovstv� D4 asi tisickrat varoval. Ale zkusit to
muzes.
Hurricane
Delete v SQL
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 2.3.2000 21:36:40
Prominte,
prehlid jsem ze se maji mazat zaznamy pouze v tabulce1
M.Jirman
----- Original Message -----
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 02, 2000 4:16 PM
Subject: Re: Delete v SQL
> Nazdar,
>
> toto by som sa velmi bal pouzit. Podla mna to zmaze zaznamy aj s tabulky2,
> co je big pruser.
>
> Miso
>
> -----Original Message-----
>
> >ahoj,
> >
> >Obecne v SQL by to slo takhle:
> >
> >DELETE ZAZNAM FROM TABULKA1,TABULKA2 WHERE TABULKA1.ID=TABULKA2.ID
> >
> >M.Jirman
>
>
>Cestina versus Delphi4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:44:43
From: Jan Hlinka <Hlinka(zv)dcomm(tec)cz>
> Mam dalsi drobnost - umi D4 standartne prevadet cestinu tzn. z Kameniku ci
> Latin2 do 1250 Windows?
Ahoj,
V ceskych Windows lze na konverzi 852 <-> 1250 pouzit API funkce OemToChar
a spol. Dalsi moznost je napsat si vlastni konverzni funkci s prislusnymi
tabulkami. Neco takoveho jsem kdysi delal, je to tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/other/CharSetConv.zip
Petr Vones, amatersky programator
Memo a Selection
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:44:31
From: Jan Bachor <bachor(zv)iol(tec)cz>
> diky moc, to prvni mi funguje ale to druhy ne
> a to prvni je ok, ale jak udelat aby to vlozilo text za kurzor ale treba
> rozdelilo na radky a nepsalo za sebou?
Ahoj,
Pak musis do toho retezce vlozit CRLF, tedy znaky #13#10.
> maze to celej posledni radek, ale ja potrebuj smazat jenom posledni vlozenej
> text
Jedna z moznosti je, ze si zapamatujes jeho pozici a delku a podle toho jej
pak opet vymazes.
Petr Vones, amatersky programator
Prenos Delphi.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:44:21
From: Anton�n Blatn� <tonyk(zv)atlas(tec)cz>
> pro D3Prof: Pouzivam nekolik komponent tretich stran a nekolik vlastnich
> komponent. Z me instalace D3 mi vsechno chodi (projekty jdou prelozit ...).
> Potreboval bych poradit presny a bezpecny zpusob, jak toto sve prostredi
> Delphi prenest na jinou instalaci D3 bez nutnosti instalovat komponentu po
> komponente. Jde mi o to, abych sve projekty mohl rychle prelozit u nekoho
> jineho, kdo ma taky Delphi, ale nema moje komponenty. Navic abych mohl
Ahoj,
Nikdy jsem to nepouzival, ale v D5 (a tusim i D3) mas mezi nastroji (menu
Tools) Package Collection Editor. Mozna ze to by mohlo byt ono.
Petr Vones, amatersky programator
ShellExecute...Minimal ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:44:03
From: Michal Kopacek <m.kopacek(zv)volny(tec)cz>
> PROBLEM: Mam program ktery spousti dokument xy.html ulozeny na disku a
> potrebuju aby se IE (5.0) otevrel minimalizovany.
Ahoj,
Pokud to pouzivas jen na zobrazovani dokumentu, nebylo by lepsi pouzit
HTML Viewer z IE jako ActiveX komponentu ve vlastni aplikaci. Pak mas
nad nim 100%ni kontrolu.
Petr Vones, amatersky programator
TTreeView a Scroll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:46:45
From: David Svoboda <svoboda(zv)mefisto(tec)cz>
> Ve formulari mam treeview s desitkami polozek, takze pri rozbaleni
> nekolika vetvi se vsechny do treeview nevejdou a zobrazi se scrollbar.
> Do tohoto treeview pretahuji Drag&Drop na danou vetev udaje z jinych
> komponent ve formu. Problem ale je, kdyz dana vetev neni zobrazena.
> Chtel jsem posunovat zobrazovany vyrez, pokud uzivatel najede mysi ke
> kraji treeview (kurzor mysi je stale uvnitr treeview). Bohuzel jsem
> zjistil, ze hierarchie treeview je TWinControl -> TCustomTreeView ->
> TTreeView, takze nema property HorzScrollBar, VertScrollBar (coz je u
> TWinScrollControl). Metoda ScrollBy( DeltaX, DeltaY : integer) nevede k
> uspechu, nebo ji spatne pouzivam, resp. nevolam dalsi nutne fce. Prosim
> o napady, jak tento problem vyresit, protoze v archivu konference jsem
> nic nenalezl.
Ahoj,
Priklad najdes tady:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=12456
Petr Vones, amatersky programator
seriovy port
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:47:32
From: David KALLAB <dkallab(zv)scova.vabo(tec)cz>
> Poradte mi pros�m jakym zpusobem je mozne komunikovat pres RS232 s externim
> zarizenim. Existuje nejaka komponenta?
Ahoj,
Napriklad tady:
http://delphree.clexpert.com/pages/projects/asyncfree/default.htm
Petr Vones, amatersky programator
Paralelny port
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:47:26
From: Lubo Fule <fule(zv)sct.sk>
> Potrebujem cez Win API programovat LPT port po pinoch. V DOS-e to slo cez
> outport... Neviete ako by sa to dalo vo Windowse? Skusal som CreateFile a
> WriteFile, ale to len standartnym sposobom posiela na port znaky, a ja sa
> potrebujem dostat na nizsiu uroven (piny).
Ahoj,
Jedine korektni reseni je pomoci vlastniho driveru. Posilani primo na port
pomoci ASM instrukci sice na prvni pohled "funguje", ale je to spise vada
Win9x, nez korektni postup. Navic tyto instrukce nejsou vykonavany primo,
jejich zpracovani je rizeno systemem a prochazeji pomerne komplikovanym
procesem. Neni totiz mozne aby si ve viceulohovem operacnim systemu na
porty posilal kazdy co se mu zachce, to by to padalo jeste vice nez ted :-)
Pro Delphi existuje jednoduchy "univerzalni" VxD driver SMPORT:
ftp://ftp.cdrom.com/pub/delphi_www/ftp/d20free/smport.zip
Petr Vones, amatersky programator
Pocet kopii v QReporte
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:47:37
From: Pavol Stolc <pstolc(zv)sc.sknet.sk>
> chcem vytlacit 2 kopie dokumentu pomocou QReportu, a hoci nastavim
> PrinterSettings.Copies := 2 tlaciaren vytlaci iba jednu stranku. Neviete
> niekto ako to dosiahnut?
Ahoj,
Tisk vice kopii musi podporovat tiskarna, napriklad u pil (jehlickovych tiskaren)
toto vetsinou nefunguje.
Petr Vones, amatersky programator
PChar a Richedit (Was: none)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:48:29
From: <vladimirp(zv)post(tec)cz>
> Mam nejake informace v promenne CHAR. Potrebuji je dostat do richedit.
Ahoj,
Lze to udelat napriklad takhle:
procedure TForm1.Button1Click(Sender: TObject);
var
C: array[0..100] of Char;
begin
C := 'Text';
RichEdit1.Text := C;
end;
Petr Vones, amatersky programator
Kopirovani z CD-ROM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:48:59
From: Delphi <delphi(zv)deis(tec)cz>
> > pouzivam tuto funkci pro kopirovani (navod od P.V ) vse funkgue OK
> > ale pokud kopiruji z CDcka tak vsechny soubory po zkopirovani jsou
> > Read-Only
Ahoj,
Musis to pak upravit pomoci funkce FileSetAttr (SysUtils), dale viz help
Petr Vones, amatersky programator
MidiChild okna sa maximalizuju
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:48:24
From: J�n Tungli <tungli(zv)datapac.sk>
> Ak maximalizujem jedno okno typu MidiChild tak vsetky okna typu MidiChild
> sa maximalzuju tiez ale to ja nechcem.
Ahoj,
Pokud vim tak ne. Toto je zakladni chovani MDI rozhrani jak jej definoval
Microsoft.
Petr Vones, amatersky programator
Stari souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:48:11
From: Petr Ku�era <kucera(zv)vri(tec)cz>
> prosim Vas, mohli byste mi poradit, jak se da zjistit stari
> souboru jinak, nez pomoci
Ahoj,
Pomoci funkce FileAge.
> Jde mi hlavne o to, aby se ten soubor oteviral jinak, nez
> FileOpen, protoze mi v urcitych situacich i pres to, ze tento soubor
> fyzicky existuje na disku vraci tato funkce hodnotu -1. Atributy
> tohoto souboru nejdou zmenit, nebot nemam tato prava (je read-only).
> Pomoci
>
> AssignFile(Soub, jmeno);
> Reset(Soub);
>
> vsak otevrit jde bez problemu.
funkce Reset pouziva jiny rezim otevirani souboru, povoluje sdileni
souboru. Pomoci funkce FileOpen to tedy musis udelat takto:
H := FileOpen('file.txt', fmOpenReadWrite or fmShareDenyNone);
Pouziti funkci FileXXX je ve vetsine pripadu vyhodnejsi nez AssignFile,
Reset apod.
Petr Vones, amatersky programator
TToolBar vs. 401comupd (50comupd)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:48:40
From: Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz>
> v archivu jsem si nasel, co delat, kdyz ikony (ulozene v ImageList) v
> ToolBaru nejsou videt. Ze to je zapricinene starou verzi knihovy
> COMCTL32.DLL a ze nove verze se nainstaluji pres 50comupd (resp.
> nizsi verze pres 401comupd). Tedy provedl jsem, avsak ... ikony jsou
> furt neviditelne. U sebe na PC ikony v dobe navrhu projektu i pri jeho
> spusteni v pohode vidim, na ostatnich pocitacich pripad od pripadu. A
> nepomuze ani zmineny upgrade. Netusite, kde je zakopany pes?
Ahoj,
Jakou mas verzi Delphi ? Tusim ze v nektere verzi VCL byla podobna chyba.
Dale by to mohlo byt i v chybnem driveru videokarty nebo v nastaveni velmi
male barevne hloubky (za rozumnou spodni hranici lze povazovat 16Bit High
Color).
Petr Vones, amatersky programator
D5 ADOExpress patch na UpdPack#1
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:49:02
Ahoj,
Pokud pouzivate ADOExpress v D5, tak tady je dalsi "neformalni" patch od
Borlandu:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=14080
Petr Vones, amatersky programator
HLP ci CHM?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 22:50:13
From: Ondrej Jaura <jaura(zv)datalock.sk>
> Skuor filozoficka otazka:
>
> Mam vo vyhlade robit help pre aplikaciu, a teraz stojim pred vyberom:
> hlp alebo chm (tot otazka :)))
Ahoj,
Do budoucna bych videl jako perspektivni CHM.
> Existuje ekvivalent zo strany Netscape?
Ne, Netscape je samostna aplikace, navic jeho HTML engine je bohuzel velmi
spatny (od verze 4.0 se prakticky nezmenil) a nelze jej pouzivat v jinych
aplikacich.
> Ak je potrebny IE4, je mozne nainstalovat osekanu verziu len pre podporu chm
> suborov? Echsistuje :) vuobec nejaky prehliadac chm suborov, ktory
> nepotrebuje IE4?
> (Co je potreba pre hlp je mi jasne, nezabudol som nan.:)
>
> Nemuozem predsa nutit zakaznika instalovat si IE4 len preto, lebo ja mam
> helpy v chm - to radsej zvolim hlp.
Stejne tak jako jej nemuzes nutit, aby si prece instaloval SPxy na NT :-)
IE neni dalsi aplikace (jako napriklad MS Office), ale aktualizace operacniho
systemu, nutna predevsim u Win95. Proto se take pri instalaci ukazuje jako
"Windows update" a je pak uveden v dialogu "System - vlastnosti" jako verze
operacniho systemu. Nutit jej instalovat IE4 je opravdu nesmysl, kdyz jiz
existuje IE5.
Pro HTML help vsak udajne staci i IE3 (ten je jiz nedilnou soucasti Win95
OSR2) a aktualizace (HHUPD.EXE) vlastniho CHM prohlizece. Tu lze ziskat
tady: http://msdn.microsoft.com/library/tools/htmlhelp/wkshp/download.htm
Tady je pak clanek, ktery je take tak trochu k tematu:
http://homepages.borland.com/ccalvert/Opinion/WordFormats.html
Petr Vones, amatersky programator
TAction a TSpeedButton
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 23:06:55
From: Ing. Piotr Grodzicki <ineq-soft(zv)ova.eridan(tec)cz>
> Mam nadefinovane polozky pro komponentu Taction vcetne Caption.
> Po zarazeni do menu je vse ok. U SpeedButtonu mi to tlaci caption
> i kdyz chci zobrazit jen bitmapu
Ahoj,
Nepouzivej TSpeedButton ale radeji TToolBar. Pokud definujes Caption v
TAction, tak ten je do SpeedButtonu zkratka prenesen pri inicializaci.
SpeedButton totiz nema zadnou vlastnost typu ShowCaptions, takze to u
neho nelze nastavit jinak nez vlastnosti Caption na '' , coz zpusobi
prirazeni hodnoty Caption z prislusne TAction, viz metoda
TControl.ActionChange
Jako nouzove reseni by bylo mozne nastavit u SpeedButtonu Caption na
' ' a upravit hodnotu Spacing.
Petr Vones, amatersky programator
OT Update
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 23:06:46
From: <WagnerP(zv)gytool(tec)cz>
> ja vim ze to sem prilis nepatri, ale nevite nekdo kde by se daly
> stahnout updaty pro Delphi 3. Na oficialnich strankach Borlandu uz
> podpora pro Delphi 3 neni. Predem dik.
Ahoj,
Kdepak, je to tam porad:
http://www.borland.com/devsupport/delphi/downloads/index.html
Petr Vones, amatersky programator
Globalny shortcut
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.3.2000 23:06:52
From: OLEJNIK Andrej <olej(zv)nt2.asset.sk>
> Ako sa da zaregistrovat globalny shortcut pre cely windows...
> napriklad kombinacia (okno + E) spusta explorer
Ahoj,
Pomoci API funkce RegisterHotKey, viz priklad (Ctrl+Shift+P):
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
HotKeyID = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin
Win32Check(RegisterHotKey(Handle, HotKeyID, MOD_SHIFT or MOD_CONTROL, Ord('P')));
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Handle, HotKeyID);
end;
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = HotKeyID then
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
SetForegroundWindow(Application.Handle);
Msg.Result := 0;
end else
inherited;
end;
Petr Vones, amatersky programator
BDE - implicitni konverze
[*] azeleny(zv)csas(tec)cz - 2.3.2000 23:39:11
DDV,
mam nasledujici dotaz, zda nekdo nem,a zkusenost, ci nezna reseni:
v selectu se provadi nejaky vypocet procent typu
select CENA_NOMINAL, CENA_PRODEJ, (CENA_PRODEJ * 100 / CENA_NOMINAL)
PROCENTA from....
No a selectem z worksheetu (oracle) to vraci procenta jak buh minil, obsem
stejny select v string gridu zatvrzele odmita desetinou carku, takze
napriklad z hodnot
CENA_NIMONAL... 10 000 Kc
CENA_PRODEJ... 11 030 Kc
tak selectem z worksheetu dostanu ocekavanych 110,3
kdezto delphi v Gridu (zkousel jsem to i ukladat pres fieldbyname()...)
tvrdi, ze hodnota je
1103 cemuz naprosto nerozumim. Asi je to nejaka tajnost BDE. Budiz receno,
ze jsem zkousel afterOpen() dotycneho query a pak nastavit v FIELDDefs pro
tento dataset typ ftFloat, ale nepochodil jsem, zadna zmena.
Jedine, jak nad tim zvitezim, je pokud v SQL dam typecast na char
TO_CHAR(expr), tak je to OK.
Nevite co stim? Nemuze byt problem v tom, ze hodnoty ze kterych je vysledek
pocitanb se obcas pohybyji v radu miliard? Pak ale nedava smysl proc to
nativni klient SQl serveru zpobrazi dobre (tedy predpokaldam, to server
dobre pocita:-) ) a BDE nikoliv.
Diky za namety.
a.Button a Focus
[*] Straka Josef <strakaj(zv)hba(tec)czn(tec)cz> - 3.3.2000 00:06:04
Prijemn� den,
D4 standard W95 OSR2
mam jeden problem. Udelal jsem pole Buttonu (6 x 7 tlacitek), neco jako
sachovnice. Aktivni je tlacitko napr vlevo nahore (Button1), takze po stisku
Space se stiskne. A ted bych chtel, aby po stisku napr klavesy R se zamereni
presunulo doprava, na druhe tlacitko (Button2) a po dalsim stisku na Button3
atd. Muhu to sice udelat, ze do udalosti klavesy R dam ActiveControl :=
Button2;, ale je to strasne nesikovne. Takhle nez bych rozchodil zminenych
42 Buttonu, bych zestarnul. Nevite nekdo, jak toto presouvani Focusu vyresit
elegantneji?
Dekuju predem, protoze zadem se dekovat bez dalsiho prispevku nesmi.
Zacinajici amatersky programator
Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/
Access violation error.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 3.3.2000 00:15:03
----- Original Message -----
From: Tom� Br�dle <t.bradle(zv)pvtnet(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 02, 2000 12:53 AM
Subject: Re: Access violation error.> Zdravim,
>
> -----P�vodn� zpr�va-----
> Od: Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk>
>
> >Zdravim tento kod mi robi access violation:
> >
> >---------------------------------------------
> >if (aktivneokno('frmCStaty')<>0) and (btnStaty.Visible=True)// ak je
> >otvoreny ciselnik
> > then frmMain.mdichildren[aktivneokno('frmCStaty')-1].Close;
> >
> > Application.createform(TfrmCStaty,frmCStaty);
> > frmCStaty.ShowModal;
> >
> > if frmCStaty.OK then
> > begin
> > eStat.text:=frmCStaty.qStaty.FieldByName('stat').AsString;
> > eStat.SetFocus;
> > end;
> > frmCStaty.Free; // destroy and remove memory allocation
> >-------------------------------------------
> >
> >funkcia aktivne zistuje ci je MDIChild s nazvom frmCStaty aktivny ak ano
> tak
> >vrati jeho cislo MDIChildren.
> >
> >Chyba sa objavi len vtedy ak je frmCStaty zobrazeny ako MDIChild chcem ho
> >zavriet pomocou tohto kodu.
>
>
> Nenapsal jsi kde presne to vyhazuje exception, ale nak se mi tam nezda
> ta kombinace ShowModal a MDIChild.
>
> Tomas
> t.bradle(zv)pvtnet(tec)cz
>
Ahoj Tomas !
Je mi to uz jasne ze som nespomenul ak je spojitost s MDIChild a zobrazenim
ShowModal.
Takze:
Ak je okno frmCStaty volane z menu frmMain tak je volane takto:
----------
if aktivneokno('frmCStaty')=0 then
begin
Application.CreateForm(tfrmCStaty,frmCStaty);
frmCStaty.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
frmCStaty.formstyle:=fsMDIChild;
end
else begin
frmMain.mdichildren[aktivneokno('frmCStaty')-1].show;
frmMain.mdichildren[aktivneokno('frmCStaty')-1].windowstate:=wsNormal;
end;
--------------------
t.j. ze okno je implicitne nastavene ako fsNormal, ale pri volani z menu
nastavujem frmCStaty.formstyle na fsMDIChild.
S pozdravom Roland.>
>MidiChild okna sa maximalizuju
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 3.3.2000 00:19:05
Ak pouzijes toto nemal by si mat problemy:
mdichildren[CisloOknaMDIChild].windowstate:=wsMinimized;
Hi. Roland
----- Original Message -----
From: J�n Tungli
To: delphi conferencia
Sent: Wednesday, February 23, 2000 1:35 AM
Subject: MidiChild okna sa maximalizuju
Ak maximalizujem jedno okno typu MidiChild tak vsetky okna typu MidiChild sa maximalzuju tiez ale to ja nechcem.
Da sa nejako odstarnit tuto vlastnost? J�n TUNGLI , Datapac. s.r.o.
Email: tungli(zv)datapac.sk
jan.tungli(zv)seznam(tec)cz
tel: 07 / 5565096 -8 kl.102
fax: 07 / 55410384
URL: http://free.netlap.hu/4321
Pocet kopii v QReporte
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 3.3.2000 00:50:06
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 02, 2000 10:47 PM
Subject: Re: Pocet kopii v QReporte
> From: Pavol Stolc <pstolc(zv)sc.sknet.sk>
> > chcem vytlacit 2 kopie dokumentu pomocou QReportu, a hoci nastavim
> > PrinterSettings.Copies := 2 tlaciaren vytlaci iba jednu stranku. Neviete
> > niekto ako to dosiahnut?
>
> Ahoj,
>
> Tisk vice kopii musi podporovat tiskarna, napriklad u pil (jehlickovych
tiskaren)
> toto vetsinou nefunguje.
>
> Petr Vones, amatersky programator
>
Aha. A je mozne zistit ci to tlaciaren podporuje predtym nez sa pokusam
pocet kopii nastavit ? Ak nie asi by som potom musel vytlacit stranku 2x za
sebou.
BTW: nefunguje to na HP DeskJet 520.
P.Prace se skupinou Labelu
[*] Lumir Karas <lumir.delphi(zv)post(tec)cz> - 2.3.2000 16:09:01 -0800
Diky za pomoc, s temi Tagy je to pro mou apl. postacujici a mohu s tim delat vice nez jsem si pral.Prehrani Wavka
[*] Lumir Karas <lumir.delphi(zv)post(tec)cz> - 2.3.2000 16:25:46 -0800
Ahoj,
nevite nekdo jestli existuje nejaka procedurka nebo funkce pro prehrani WAV souboru, nebo jestli vzdy musim pouzit celou komponentu MediaPlayer. Hodilo by se mi neco jako Beep nebo MessageBeep();
Predem diky za rady. Lumir.TDBRichEdit and TFont
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 3.3.2000 01:45:20
Ahoj,
neviem si rady s nastavenim fontu pre dbrichedit komponentu.
Hoci nastavim pri vytvarani formularu DefAttributes.Name a .Size na vlastne
hodnoty, vlozene znaky su vzdy zobrazene default fontom formularu. Podla
dokumentacie maju mat novo vlozene znaky atributy podla DefAttributes.
Stretol sa uz niekto s tymto problemom? Vyriesil ho?
Dik za pomoc, Pavol Stolc
pstolc(zv)sc.sknet.sk
CRC
[*] petr.palicka(zv)atlas(tec)cz - 3.3.2000 07:18:42
> Mam takovy hodne ozehavy problem, potrebuji vypocitat 16bit CRC kod.
pokud se nepletu tak
8-bit crc:=neco mod 255
takze (mozna?)
16-bit crc:=neco mod 65535
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~Umisteni uvitaci obrazovky s logem
[*] petr.palicka(zv)atlas(tec)cz - 3.3.2000 07:19:19
> Kam presne? Kdyz to vrazim do implementation, tak mi vybehne
> EResNotFound!
asi takhle:
{begin of unit uLogo}
unit uLogo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, DBCtrls, Buttons;
type
TfLogo = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
fLogo: TfLogo;
implementation
{$R *.DFM}
begin
fLogo:=TfLogo.Create(Application);
fLogo.Show;
fLogo.Update;
end.
{end of unit uLogo}
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~
<petr.palicka(zv)atlas(tec)cz>
nebo <peca(zv)email(tec)cz>
~~~~~~~~~~~~~~~~~~~~~~~Delphi a Lotus Notes
[*] Lu�ek Tenkr�t - 3.3.2000 08:03:37
Zdravim,
nemate nekdo zkusenosti s propojenim Delphi s Lotus Notes? Nejlepsi by byly
nejake nativni komponenty.
Predem dik
Honza Seifert
Interbase 5.5: Co na server a co na klienta?
[*] Lu�ek Tenkr�t - 3.3.2000 08:07:29
>Ahoj,
>A co knihovna gds32.dll ?
Ta je soucasti IB klienta.
Honza Seifert
>> mam pocitace propojene nejakou siti, protokol je tcp/ip. Na jednom
>> z nich chci mit IB 5.5, na ostatnich program v D5 Enterprise,
>> pristup nativne a mam par otazek:
>>
>> a) Co vse je potreba dat na server? Staci pouze nainstalovat IB?
>>
>> Na server je potreba nainstalovat InterBase a nekam umistit datovy
soubor.
>>
>> b) Co vse musim mit na klientovi? Musim mit klienta IB? Musim
>> mit link? Musi se neco nastavovat krome IP adresy, kdyz chci k
>> databazi pristoupit?
>>
>>
>> Pri nativnim pristupu je potreba IB klient a do ..\WINDOWS\hosts napsat:
>>
>> jmenoserveru IP adrea
>>
>> a pak uz se jen pripojit na "jmenoserveru:DISK:\cesta k
datum\soubor.gdb".
>>
>> (jestli jde nejak udelat "IP_adresa:DISK:\cesta k datum\soubor.gdb" nebo
>> jeste lepe "IP_adresa:alias" dejte mi prosim vedet)
Stari souboru
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 3.3.2000 08:20:32
Funkce FindFirst() zjisti o souboru veskere udaje na zaklade atribitu nebo
FileAge() vrati jen datum souboru.
Ales
----- Original Message -----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 02, 2000 11:01 AM
Subject: Stari souboru
> Dobry den,
>
> prosim Vas, mohli byste mi poradit, jak se da zjistit stari
> souboru jinak, nez pomoci
>
> Soub:=FileOpen(jmeno, ???);
> FileGetDate(Soub);
>
> Jde mi hlavne o to, aby se ten soubor oteviral jinak, nez
> FileOpen, protoze mi v urcitych situacich i pres to, ze tento soubor
> fyzicky existuje na disku vraci tato funkce hodnotu -1. Atributy
> tohoto souboru nejdou zmenit, nebot nemam tato prava (je read-only).
> Pomoci
>
> AssignFile(Soub, jmeno);
> Reset(Soub);
>
> vsak otevrit jde bez problemu.
>
> Dekuji.
>
> Petr Kucera
Rebuild icon cache
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 3.3.2000 09:03:30
Z.Fryz wrote:
>rad bych ze sveho programu provedl refresh
>ikon ve Windows, tak jak to napr. dela "Tweak UI"
>na zalozce "Repair" - volba "Rebuild Icons".
>
>vi nekdo, jak to provest ?
>
>A vi nekdo, kde najdu v registru prirazeni ikon polozkam
>"Start" menu, diskum, tiskarne atd...?
Ahoj Zdenku
refresh ikon lze provest napr. takto:
procedure TForm1.FormClick(Sender: TObject);
var
i: integer;
Reg: TRegistry;
s: string;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\desktop\WindowMetrics',true);
ShowMessage(reg.ReadString('Shell Icon Size'));
reg.LazyWrite:=false;
reg.WriteString('Shell Icon Size', '33');
SendMessageTimeout(HWND_BROADCAST,
WM_SETTINGCHANGE,
SPI_SETNONCLIENTMETRICS,
lParam(PChar('WindowMetrics')),
SMTO_NORMAL or SMTO_ABORTIFHUNG,
10000,i);
reg.WriteString('Shell Icon Size', '32');
SendMessageTimeout(HWND_BROADCAST,
WM_SETTINGCHANGE,
SPI_SETNONCLIENTMETRICS,
lParam(PChar('WindowMetrics')),
SMTO_NORMAL or SMTO_ABORTIFHUNG,
10000,i);
reg.CloseKey;
reg.free;
SendMessageTimeout(HWND_BROADCAST,
WM_SETTINGCHANGE,
SPI_SETNONCLIENTMETRICS,
lParam(PChar('WindowMetrics')),
SMTO_NORMAL or SMTO_ABORTIFHUNG,
10000,i);
end;
Ikony polozek "Start" menu, disku a tiskarny najdes v registru pod:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Shell
Icons
vyzkouseno na W95
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
CRC
[*] Petr Kandera <p_kandera(zv)tanger(tec)cz> - 3.3.2000 09:05:43
----- Original Message -----
From: <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, March 03, 2000 7:18 AM
Subject: RE: CRC
> > Mam takovy hodne ozehavy problem, potrebuji vypocitat 16bit CRC kod.
>
> pokud se nepletu tak
> 8-bit crc:=neco mod 255
> takze (mozna?)
> 16-bit crc:=neco mod 65535
>
- toto se pouziva u LRC !
U CRC zalezi na polynomu podle ktereho se CRC pocita, priklad pro polynom
$1021 {0001 0000 0010 0001 = x^16 + x^12 + x^5 + 1}. Ten se pouziva hodne
casto, pak jeste treba $8408 apod.
...
type
pole: array[1..1024] of byte;
...
function CRC(var blok: pole; len: word): word;
const
CRCpolynom = $1021;
var
j:byte;
i,CRC:word;
begin
CRC:=$FFFF;
for i:=1 to len do
begin
CRC:=CRC xor (block[i] shl 8);
for j:=1 to 8 do
if (CRC and $8000)>0 then CRC:=(CRC shl 1) xor CRCPolynom
else CRC:=(CRC shl 1);
end;
Result:=CRC;
end;
S pozdravem
Petr Kandera
<p_kandera(zv)tanger(tec)cz>
Jak vyzobat data? (SQL)
[*] Ren� Otisk - 3.3.2000 09:21:41
Hi,
D3, RxLib2.60, MODBC komponenty, MS SQL 7, Paradox
Padlo tady nekolikrat, ze neni vhodne k zobrazeni dat pouzivat TDBEdity, TDBMema a podobne komponenty.
Chtel bych se zeptat na veci, ktere resim tak, jak vyplyva z nasledujicich bodu, a chtel bych vedet, japato to resi ostatni (samozrejme nejradeji vsichni, nebot bych si prispevky mohl procitat pres vikend, kdy se obycejne vesmirne nudim)
1. Pouzivat TDBEdit, TDBGrid aj. komponenty jen pro zobrazeni a pro navadeni pouzivat dialogove okna s TEdity, TGridy apod?
nebo
2. Po kazde udalosti OnDataChange projit vsechna pole a aktualizovat Edity (Edit1.Text := MQuery1.FieldbyName('Pole').AsString)?
nebo
3. Po kazde udalosti OnAfterScroll projit vsechna pole a aktualizovat Edity (Edit1.Text := MQuery1.FieldbyName('Pole').AsString)?
Pro body 2 a 3 mam nasledujici dotaz, jak se prochazi seznam zobrazeny TDBGridu. Uzivatel zmackne klavesu nebo mysi klikne na Scrollbar a jede to po jednotlivych zaznamech. Lec, nez se to nacte do tech Editu, tak to vice mene (casto vice) zadrhava. Odchytavat udalost onMouseDown a Up a OnKeyDown a Up? Nebo existuji elegantnejsi, jednodussi a prijatelnejsi reseni (klapky na ocich a zlozvyky...)?
A ted se Delfici ukazte...
Predem dekuji za jakekoli smysluplne odpovedi a s pranim hezkeho vikendu se loucim
Sroub
===Odchozi sprava, bi nemela obsahovat gramaticke chibi===TMediaPlayer a odkl�dac� soubor
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 3.3.2000 09:23:01
Cauec fseci,
nahravam-li pres TMediaPlayer dlouh� soubor (WAV), uklada se do pameti nejprve fyzicke a pak do swapu. Ukoncim-li nahravani treba po 5 hodinach a dam ulozit, tak MediaPlayer presype soubor ze swapu do souboru na disk. Jenze to trva dost dlouho a doba ukladani je primo zavisla na HW.
Takze se zajimam o to, zda se da nejak nastavit nazev odkladaneho souboru, aby odkladal primo do daneho souboru na disk a nezdrzoval tak pri ukladani v podstate obycejnym kopirovanim souboru ze swapu do filu.
Za kazdou radu dekuji.
Bye Ludan
Spojeni dvou tabulek z ruznych databazi stejneho S
[*] Ren� Otisk - 3.3.2000 09:30:53
Hi,
D3, RxLib2.6, MS SQL7, Paradox, MODBC
Mam databazi obchodnich pripadu. V ni jsou mimochodem ciselniky firem, kokntaktnich osob, zamestnancu...
A ja bych chtel zalozit novou databazi (nemohu zasahovat do stavajici) a v ni bych chtel krom svych tejblu vyuzivat i ty zpropadene ciselniky. A samozrejme nejlip FOREIGN KEY ... REFERENCES ... ale to neni az tak nutno. Jde to?
A navic by mi bodly samozrejme i VIEW pres ty ciselniky a moje tabulky. Nejak amatersky (promin Petre Vonesi) receno pouzit Uses Database1 Database2.
Dekuji
Sroub
TToolBar vs. 401comupd (50comupd)
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 3.3.2000 08:47:32 met-1
> > v archivu jsem si nasel, co delat, kdyz ikony (ulozene v ImageList) v
> > ToolBaru nejsou videt. Ze to je zapricinene starou verzi knihovy
> > COMCTL32.DLL a ze nove verze se nainstaluji pres 50comupd (resp.
> > nizsi verze pres 401comupd). Tedy provedl jsem, avsak ... ikony jsou
> > furt neviditelne. U sebe na PC ikony v dobe navrhu projektu i pri jeho
> > spusteni v pohode vidim, na ostatnich pocitacich pripad od pripadu. A
> > nepomuze ani zmineny upgrade. Netusite, kde je zakopany pes?
> Jakou mas verzi Delphi ? Tusim ze v nektere verzi VCL byla podobna chyba.
> Dale by to mohlo byt i v chybnem driveru videokarty nebo v nastaveni velmi
> male barevne hloubky (za rozumnou spodni hranici lze povazovat 16Bit High
> Color).
Vcera vecer jsem zjistil, ze problem se - jak to tak vypada - vyresil
"sam od sebe". :-) Puvodni projekt byl zkompilovan pod D3 a u nej se
projevovaly ty chyby s ToolBarem. Prelozil jsem to pod D5 a ikony se
najednou zobrazily. Zatim jsem to ale jeste nezkontroloval uplne na
vsech PC, kde to blbnulo. Ale zatim to vypada tak, ze chyba by mohla
byt opravdu ve VCL u D3.
Jirka.Delete v SQL
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 3.3.2000 10:14:24
2Bosnis:
To vobec nie je pravda.
Pozri si v helpe nieco ako SubQuery. Bez nej by si vela veci nedokazal. A
napr. to exists je condition ktora vracia hlavnej query iba true a false.
Miso
-----Original Message-----
delete from t1 where EXISTS (select * from t2 where t1.id=t2.id)
[takovyhle zapis jsem jeste nevidel, podle mne by asi negfungoval, protoze
uzavorkovana oblast by se mela vykonat jako samostatny prikaz a ten neni
spravny, pokud ale v jinych databazich funguje pak se mu da vytknout ta *
sem staci dat nejakou konstantu treba 1 coz by v pripade, ze tabulky
obsahuji hodne dat, sloupcu nebo mema, melo citelne urychlit]
jsou z hlediska optimalizace rychlosti databaze zcela neprijatelne ( i kdyz
treba funkcni )
Predstavte si ze kazda z tabulek t1 a t1 ma 1000 radku, pak pouziti in v
klauzuli where znamena, ze select v inu se provede prave tolikrat a jeste
pokazde musi prohledat celou t2 zda tam hodnota existuje.
bylo by mozne vymyslet i jine varianty
delete from t1 where t1.id in (select t1.id from t1,t2 where t1.id=t2.id)
(Pozn. vseobecne se bere, ze klauzule in a exist se maji pouzivat co
nejmene )