Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Objekty
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.9.2002 08:16:39
On 3 Sep 2002 at 18:41, Petr Vones wrote:
> From: "Lauko Stefan" <laukosw(zv)naex.sk>
> > Procedure SetCaption(O:TObject; S:String);
> > begin
> > try
> > SetStrProp(O, 'Caption',S);
> > Except
> > end;
> > end;
>
> Toto je ukazkovy priklad zcela nevhodneho pouziti vyjimek.
Ba prave naopak, toto pouziti je naprosto na miste. Trida totiz muze
obsahovat napriklad validaci vlastnosti, ktera probehne spravne kdyz
napises
Objekt.Caption := 'blabla';
ale skonci chybou, kdyz to naplnis pres SetXxxProp. Na tento problem
jsem narazil pri psani Lokalizatoru, konkretne u tridy
TMaskEdit.Text, kde SetStrProp skonci chybou, pokud se plni jindy nez
pri csLoading, protoze se spusti validace. Plnil jsem tam hodnotu,
ktera prisla z navrhu formulare. Pokud nemas jistotu, jake objekty se
ti tam nahrnou, je pouziti try except nezbytne.
S pozdravem
Zbysek Hlinka
dbExpress, BDE, databazy
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 04.9.2002 08:16:32
Ahoj,
dbExpress: zbytecnost. Je to tu jen proto, aby Borland neco mel.
Paradox: zapomen na nej.
BDE: zapomen na to.
Pristup k databazim:
* Oracle: slusne komponenty se zdroji jsou napr. tu http://www.da-
soft.com
* IB/Firebird: IBExpress, IBObjects
* MySQL - na tuhle hracku take nejake nativni komopennty jsou
Slavek
On 3 Sep 2002 at 21:26, Hlas wrote:
> Aky mate nazor na dbExpress?
> Mam databazovu aplikaciu napisanuv Delphi5 nad paradoxom cez BDE.
> Chcem to prerobit na client/server v Delphi7 pomocou dbExpressu a
> spolupracovat s roznymi databazami - hlavne Oracle, IB/Firebird,
> MySql. Je DBExpress vhodne riesenie? Ma vyznam dnes este nieco robit
> cez BDE SQL Links?
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
dbExpress + MSSQL
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.9.2002 08:24:53
4.9.2002 Slavek Rydval:
>> > *****Naprosto zbytecna dalsi vrstva mezi aplikaci a databazi.
>> dbExpress se snazi nahradit to co drive delalo BDE + SQL Linky. Jenze
>> doba je uz asi jinde takze nakonec vzdycky zvitezi konkretni reseni
>> pro dany server.
> *****Naprosty souhlas.
A ADO neni zrovna takova vrstva mezi databazi a aplikaci ?
dbExpress by mel byt pripojen primo na API daneho serveru (aspon podle
tvrzeni Borlandu)
Jako idea to neni spatne, jde o to, zda to bude pouzitelne
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Cislo volajiciho
[*] Peter Jurco <peter.jurco(zv)alcatel.sk> - 4.9.2002 08:25:28
Zdravim
Cislo volajuceho sa da aj zistit z analogovej linky, ale to by musel
podporovat operator.
(a to asi nie, lebo by prisiel o "tromf" pre bezneho uzivatela, ktory chce
CLIP - a ten si objedna ISDN).
Forma prenosu cisla je podobna prenosoveho protokolu z beznych analogovych
modemov (momentalne neviem typ),
kde pri pociatocnom vyzvanani sa prenesie datovy paket s cislom (pravdaze to
musi podorovat analog. telefon, su aj pripravky
ktore sa pripajaju medzi tel a linku).
Peto.
----- Original Message -----
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: 4. september 2002 7:39
Subject: Re: Cislo volajiciho
> Ahoj,
>
> podle nekterych nezarucenych informaci to ma byt i na bezne lince po
> precislovani.
> Prodavaji na to telefony.
>
> Pavel
>
>
> > Pokud se nepletu tak to lze jedine u ISDN pres CAPI.
> >
>
>
Dbgrid-jiny text nez hodnota v db
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 4.9.2002 08:30:55
> maly dotaz- je nekde nejaky maly priklad, jak psat neco jineho do
> dbgridu nez je v db? Napriklad takova logicka hodnota - neni moc hezke
> psat "false".Asi nejjednodussi bude pro mne asi udelat calculated
> polozku (textovou), kterou proste nadefinuji dle hodnoty , ze ?
Ahoj,
zrovna u Boolean fieldu existuje property DisplayValues, ktera obsahuje strednikem
oddelene texty vypisovane misto True a False (nevim, v jakem poradi).
Obecne reseni i pro jine fieldy spociva v obsluze udalosti OnGetText a OnSetText,
viz help.
David Lebeda
permutace
[*] Roman Toda <toda(zv)digitaldocuments.org> - 4.9.2002 08:46:34
Vidim ze ti nikto neodpoveda, tak skusim z hlavy ja. Permutacie generuj v
poli rekurzivne vymenami prvkov. Urcite si to budes vediet upravit a
vyskusat
var
a:array[1..MAX_PERM] of integer;
procedure perm(i:integer);
var j,k:integer;
begin
if i=n then begin
// pole je hotove
SpracujPermutaciu;
end else
for j:=i to n do begin
vymen (i,j);
perm(i+1);
vymen(i,j);
end;
end
begin
for i:=1 to PermutacieCoho do a[i]:=i;
perm(1);
end;
Roman
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of pavel.sl(zv)centrum(tec)cz
> Sent: Tuesday, September 03, 2002 8:38 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: permutace
>
>
> Zdravim,
> nevite nekdo, jak by se delal program na vypsani vsech permutaci
> x cisel
> (jedna se mi o 9 cisel, takze bych delal nerad 9 vnorenych for
> cyklu)
>
> Diky za jakoukoliv radu
> Pavel
>
> --------------------
> Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...
>
>
>
>
permutace
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 4.9.2002 08:46:04
snad obecne napsanou rekurzivni funkci ?
Pavel Mattivi
Dezadata spol. s r.o.
Mostn� 102
757 01, Vala�sk� Mezi����
tel.: 0651/618 939, tel./fax: 0651/618 933
mobil: 0608 743 824
pmattivi(zv)dezadata(tec)cz
----- Original Message -----
From: <pavel.sl(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, September 03, 2002 8:37 PM
Subject: permutace
> Zdravim,
> nevite nekdo, jak by se delal program na vypsani vsech permutaci
> x cisel
> (jedna se mi o 9 cisel, takze bych delal nerad 9 vnorenych for
> cyklu)
>
> Diky za jakoukoliv radu
> Pavel
>
> --------------------
> Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...
>
>
Cislo volajiciho
[*] Miroslav Ondrisek <ondrisek(zv)seznam(tec)cz> - 4.9.2002 09:23:52
Presne tak. Deutsche Telecom treba umi cislo volajiciho i na analog linkach,
stejne jako umi vetsina ISDN ustreden poslat cislo volajiciho na sve
analogove porty...
Mira Ondrisek
BONNEL TECHNOLOGIE
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Vones
> Sent: Tuesday, September 03, 2002 4:07 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Cislo volajiciho
>
>
> From: "Pavel" <pavel.skulil(zv)jerid(tec)cz>
> > Podporuj�, ale jen u ISDN,
>
> To je neco jineho, tam to totiz dost dobre ani nepodporovat nejde
> ;-) Jenze
> cena za ISDN je vzhledem k jeho celkove zastaralosti zcela neadekvatni.
>
> Petr.
>
>
Jak upravit DBGrid aby obsahoval event OnCellRight
[*] David Michal <david.michal(zv)www-bv(tec)com> - 4.9.2002 09:33:41
Zdravim,
Poradite prosim nekdo se %subj. ?
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002
Nalezeni souboru
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 4.9.2002 09:38:03
> > Diky za nakopnuti ale chova se to dost podivne. Jednou to prohrabe disk
a
> > najde, podruhe prohrabe disk a nenajde a potreti bez hrabnuti na disk
hned
> > katogoricky tvrdi, ze soubor na disku neni.
>
> A jakou to vraci chybu (GetLastError, RaiseLastWin32Error) ?
GetLastError vraci "3"
RaiseLastWin32Error vraci "Win32 Error, Code 1447, okno nema posuvniky"
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Jak upravit DBGrid aby obsahoval event OnCellRight
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 4.9.2002 09:48:41
pouzil bych udalost
procedure TMain.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
s podminkou Button=mbRight, ale to zalezi na konkretnim pouziti..
Pavel Mattivi
Dezadata spol. s r.o.
Mostn� 102
757 01, Valassk� Mezir�c�
tel.: 0651/618 939, tel./fax: 0651/618 933
mobil: 0608 743 824
pmattivi(zv)dezadata(tec)cz
> Zdravim,
> Poradite prosim nekdo se %subj. ?
> Diky,
> David
Sinea 2002
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 4.9.2002 10:12:56
> Konkretne spodni okraj paragrafu, jejhoz vyska je mensi jak 20,
> Word nezobrazi, prestoze v exportovanem souboru je spodni
> okraj uveden: \brdrb\brdrs\brdrw20
> Zda se mi, ze je to spise problem Wordu, nez Siney.
Vec jsme vyjasnili mimo konferenci, ale info pro ostatni: opravdu jde
o problem Wordu. Prvku "usecka" v Sinee je v pripade pozadavku
na zobrazeni exportovaneho rtf souboru ve Wordu bud ponechat
vysku 20 pixelu (vyzkouseno) nebo kreslit caru na horni okraj
(nezkouseno).
A jeste jedno info: sestavy, ktere jsem zkousel, vypadaly na papire i
v rtf souboru zcela identicky, takze chvalim - dobra prace!!
David Lebeda
permutace
[*] "K�ss, Pavel" <Pavel.Kaess(zv)trimondo(tec)com> - 4.9.2002 10:22:34
http://www.cut-the-knot.com/do_you_know/AllPerm.shtml
> -----Original Message-----
> nevite nekdo, jak by se delal program na vypsani vsech permutaci
> x cisel
> (jedna se mi o 9 cisel, takze bych delal nerad 9 vnorenych for
> cyklu)
>
dbExpress + MSSQL
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 4.9.2002 10:25:26
> > Nevidim dovod preco na MS SQL nepouzivat dbExpress.
> *****Naprosto zbytecna dalsi vrstva mezi aplikaci a databazi.
Ak mozem pristupovat na rozne DB platformy jednotnou sadou komponentov - tak
zbytocna nie je.
> > Hlavne ak clovek chce robit aplikaciu pre viac platforiem.
> *****To jako databazovych platforem? To nehrozi - kazdy SQL server ma
> vlastni (a jiny) SQL dialekt, platformova nezavislost nehrozi.
Syntax jazyka sa naozaj mierne odlisuje - to je ale najmensi problem.
Ak mam jednotne prostredie komponentov a prvkov pre pristup - vkladat do nic
roznu syntax SQL dotazov je hracka (bud direktivami, alebo podmienkami -
podla toho ci chcem viac priamo pre dany SERVER portovanych verzii systemu
alebo jeden RUNTIME prepinany system).
Ak by som pri takomto systeme pouzival na kazdu platformu vzdy nativne
prostredie - udrzatelnost kodu je daleko komplikovanejsia - pretoze v tom
pripade mam nielen roznu syntax SQL ale niekedy aj 2 rozne sady komponentov
(povedzme by som pouzil na MS SQL ADO a na INTERBASE objekty IB*).
Takze pri dodrzani istych pravidiel sa nezavislost na platforme dosiahnut
bez problemov da. Osobnu skusenost mam s kombinaciou MS SQL a ORACLE
(konkretne tato kombinacia by sa dala riesit aj cez ADO - ovsem ADO na LINUX
nedostanem - aspon o tom neviem !)
Pekny den
jg
Nova verzia ODBCe
[*] Lubomir Fule <fule(zv)humansoft.sk> - 4.9.2002 10:29:30
Mozete si stiahnut novu verziu ODBCe. Okrem ineho uz plne podporuje
prepojenie s DatasetProvider-om a za urcitych predpokladov funguje aj
property RecNo (viac v Popis.txt). Adresa na stiahnutie je
ftp://ftp.humansoft.sk/Public/ODBCe/ODBCe.zip. Tiez si mozete stiahnut ISQL
pouzivajuci ODBCe ftp://ftp.humansoft.sk/Public/ODBCe/ISQL.zip.
L.
permutace
[*] Erik Salaj <winsoft(zv)stonline.sk> - 4.9.2002 10:32:38
> http://www.cut-the-knot.com/do_you_know/AllPerm.shtml
znacne neprehladny algoritmus a k tomu este zhruba 4-krat
pomalsi ako ten klasicky jednoduchy rekurzivny algoritmus
Erik
Objekty
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 4.9.2002 10:36:31
> Toto je ukazkovy priklad zcela nevhodneho pouziti vyjimek.
> Vyjimka je neco
> vyjimecneho, co by nemelo za beznych podminek vzniknout. V
> tomto pripade je
> vsak pouzita jako nedilna soucast logiky te procedury.
krajne nevhodne reseni.
>
> Petr Vones
>
No jo, jenze to je dnes modni a dokonce to ma svuj terminus technicus -
ofenzivni programovaci styl :-))))). Nediv se, je to pohodlnejsi, mene
narocne na hlavu a zejmena to zapada do komercniho modelu prodeje SW. Proc
ztracet cas dukladnou analyzou a optimalizaci reseni, kdyz staci koupit
vykonnejsi pocitac, ze...
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Nalezeni souboru
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 4.9.2002 10:42:22
Subject: Re: Nalezeni souboru
> > Diky za nakopnuti ale chova se to dost podivne. Jednou to prohrabe disk
a
> > najde, podruhe prohrabe disk a nenajde a potreti bez hrabnuti na disk
hned
> > katogoricky tvrdi, ze soubor na disku neni.
>
> A jakou to vraci chybu (GetLastError, RaiseLastWin32Error) ?
Jeste jsem prisel na jednu "zahadu". Nize uvedeny programek take prestal
fungovat na mem PC WIN200 (log soubor se vytvori, ale je prazdny) a na jinem
PC beha bez problemu (WIN98) - ze by
nakopnuta Windows?
Viktor Marek
viktor(zv)mbox.vol(tec)cz
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var f: TextFile;
procedure OpenLog;
begin
AssignFile(f, 'files.log');
Rewrite(f);
end;
procedure CloseLog;
begin
CloseFile(f);
end;
procedure AddLog(S: string);
begin
Write(f, S + #13#10);
end;
procedure ProcessDir(Path: string);
var SearchRec: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
if SearchRec.Attr in [16..31] then // pokud je adresar, tak
pokracujem
ProcessDir(Path + SearchRec.Name + '\')
else // jinak ulozime jmeno souboru do logu.
AddLog(Path + SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenLog;
ProcessDir('C:\2\'); // kde zacit.
CloseLog;
end;
end.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Nalezeni souboru
[*] Jiri Lev <levj(zv)jhv(tec)cz> - 4.9.2002 10:49:24
Jenom takovy postreh, SearchRec.Attr vraci (W2k, NTFS zkomprimovanej
disk) k standartnim atributum jeste neco navic...
Ja to resil takto
attr := IntToHex(Rec.Attr,4);
Delete(attr,1,2);
A potom to vracelo docela obstojne ;-)
J
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Viktor Marek
Sent: Wednesday, September 04, 2002 10:42 AM
To: Konference Delphi 2000
Subject: Re: Nalezeni souboru
Subject: Re: Nalezeni souboru
> > Diky za nakopnuti ale chova se to dost podivne. Jednou to prohrabe
> > disk
a
> > najde, podruhe prohrabe disk a nenajde a potreti bez hrabnuti na
> > disk
hned
> > katogoricky tvrdi, ze soubor na disku neni.
>
> A jakou to vraci chybu (GetLastError, RaiseLastWin32Error) ?
Jeste jsem prisel na jednu "zahadu". Nize uvedeny programek take prestal
fungovat na mem PC WIN200 (log soubor se vytvori, ale je prazdny) a na
jinem PC beha bez problemu (WIN98) - ze by nakopnuta Windows?
Viktor Marek
viktor(zv)mbox.vol(tec)cz
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var f: TextFile;
procedure OpenLog;
begin
AssignFile(f, 'files.log');
Rewrite(f);
end;
procedure CloseLog;
begin
CloseFile(f);
end;
procedure AddLog(S: string);
begin
Write(f, S + #13#10);
end;
procedure ProcessDir(Path: string);
var SearchRec: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
if SearchRec.Attr in [16..31] then // pokud je adresar, tak
pokracujem
ProcessDir(Path + SearchRec.Name + '\')
else // jinak ulozime jmeno souboru do logu.
AddLog(Path + SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenLog;
ProcessDir('C:\2\'); // kde zacit.
CloseLog;
end;
end.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
dbExpress + MSSQL
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 4.9.2002 10:55:02
Chcel by som reagovat pani...
v zasade s Vami suhlasim i ked ...
> > dbExpress se snazi nahradit to co drive delalo BDE + SQL Linky. Jenze
> > doba je uz asi jinde takze nakonec vzdycky zvitezi konkretni reseni
> > pro dany server.
> *****Naprosty souhlas.
Pojem "konkretne riesenie" - co to je ?
Ak robim klasicku databazu a chcem aby si klient moho vybrat napr. medzi MS
SQL a ORACLE v com je rozdiel ? Syntax jazyka SQL - smiesny problem. Drobne
odchylky v typoch - riesitelne...
Ze jeden "engine" nieco vie a druhy nie - nestalo sa mi ze by sa to nedalo
obist.
To co som napisal su ale problemy ktore este stale nesuvisia s vyberom
sposobu ako sa dostanem na tie data z DELPHI. Tie si musim ujasnit este
skor.
No a potom sa rozhodujem - priklad - robim C\S aplikaciu portovanu pre MS
SQL, Oracle s vyhladom na Informix, aplikacny SERVER bude vo Windows s
vyhladom pre Linux, klientske aplikacie budu vylucne vo Windows
moznosti:
a) kazdy typ potu robit samostane komponentami ktore su pre dany typ
najlepsie
b) pouzit jednotnu VRSTVU komponentov na pristup k datam
Ked si clovek zvazi ZA a PROTI - rozhodne sa.
Ak sa rozhodne pre b) - vidim riesenie v ADO alebo dbExpress...
Ak zoberie do uvahy prechod na LINUX - ADO vypadava.
Ak zoberie do uvahy ze aplikacny server NEMA uzivatelsky inteface - tak
odpada jeden z vaznych problemov. A konstatovanie ze "Multiplatformni
nezavislost je stejne realna jako teply snih." je sice sugestivne, ale nie
celkom fair. Serverovu cast JE mozne programovat tak aby vyroba verzii pre
konkretny OS a konkretny typ DB engne - bola postavena z 90% na spolocnom
kode - co je pre rychlost a udrzatelnost vyvoja podstatne... alebo nie ?
Je to samozrejme len moj nazor podporeny skusenostou.
jg
Dbgrid-jiny text nez hodnota v db
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 4.9.2002 11:01:14
----- Original Message -----
From: "Ludek Paral" <ludek.paral(zv)quick(tec)cz>
Ahoj,
maly dotaz- je nekde nejaky maly priklad, jak psat neco jineho do dbgridu
nez je v db? Napriklad takova logicka hodnota - neni moc hezke psat
"false".Asi nejjednodussi bude pro mne asi udelat calculated polozku
(textovou), kterou proste nadefinuji dle hodnoty , ze ?
Ahoj
V obsluze OnGetText a OnSetText na fieldu v datasetu.
Mam tak delane 'preklady' napriklad z vyctovych hodnot usporne ukladanych v
DB do 'lidske reci'.
Ludek
problem s cestinou a obrazky v InstallShield Expre
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 04.9.2002 11:20:32
Ahoj,
pri vytvareni setup mam viz %subject.
Ze neleze dialogy nahradit ceskymi - chapu. Co nechapu, proc nemuzu mit cesky ikony, v
Start/Programy/nazev programu a dalsi.
Usoudil jsem, ze je problem s rezem pisma. Sel jsem do "General setup information" tam je font,
zmenil jsem ho na jakykoliv, nastavil jsem mu rez pisma na CentralEuropean a potvrdil OK k ulozeni.
Problem je, ze InstallShieldExpress6 si pamatuje veskere nastaveni, ale ignoruje prave ten rez
pisma a tudiz nemam sanci s cestinou.
Co s tim?
Dalsi problem je s velikosti obrazku instalatoru. Ke kazdemu dialogu si muzu dodat vlastni bitmapy.
(jsou celkem 3 rozmery - splash, welcome, progress). Vlastnosti tohohle installshieldu je
automaticke proporcionalni zvetseni, zmenseni vzhledem k rozliseni obrazovky.
Muj dotaz zni:
- lze nejak zablokovat toto proporcionalni zvetsovani, zmensovani?
- mate nekdo nejaky system na obrazky, aby vypadaly dobre i pri tom proporcionalnim zvestseni,
zmenseni?
Diky za rady. Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
Triurovnova archytektura
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 4.9.2002 11:24:48
Muzete mi prosim nekdo osvetlit blize triurovnovou archytekturu ve vztahu k Delphi ?
Idealni by byl nejaky priklad.
Dekuji moc.
V.
Nalezeni souboru
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 4.9.2002 11:25:31
----- Original Message -----
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> if SearchRec.Attr in [16..31] then // pokud je adresar, tak pokracujem
Staci nahodit attribut Archivace a prestane to fungovat ...
if (SearchRec.Attr and faDirectory)<>0 then
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Poslani emailu - JclMAPI (JEDI Project) - jak na "
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 04.9.2002 11:30:17
Ahoj,
pouzivam komponentu P. Vonese (z Jedi Project) k odesilani mailu. Problem mam s body. Nejsem
schopen zmenit nastaveni zda ma byt text zpravy (body) bud prosty text nebo format HTML.
Jde mi o to, ze chci z programu udelat navrh textu (body) a tak obcas potrebuju zalomit radek,
popr. dat novy odstavec.
Nejde ani #13, ani <br>. Zkousel jsem nastavit vlastnost toho mailu "HtmlBody:=true", ale to ma za
nasledek, ze misto zobrazeni textu (body) se text ulozi k mailu jako priloha (coz nechci, protoze
uzivatel by mel text jeste editovat).
Mate s tim nekdo nejake zkusenosti?
Diky Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
Spojte se s budoucnost�. http://ad2.seznam(tec)cz/redir.cgi?instance=32201%26url=http://www.nokia(tec)cz
DECIMAL(9,3) zobrazuje jako INTEGER !!!
[*] <little_bobes(zv)centrum(tec)cz> - 4.9.2002 11:41:00
Zdarvim,
vazne uz jsem z toho na mrtvici a nevim si s tim rady.
Mam v IB6 sloupec DECIMAL(9,3), ve kterem mam realna cisla a ktere potrebuji
zobrazit v D4 c/s (TDBGrid, TQuery) pomoci INTRBASE driveru (BDE 5.11).
Vysledkem jsou ale stale cisla bez desetinnych mist!
Proc?
Je to tim, ze BDE umi pouze dialekt 1?
Ale DECIMAL(9,3) je s dialektem 1 kompatibilni.
Chapu, ze uz vetsina pracuje s D5 nebo 6 a IBX komponentami, ale mohl by mi
nekdo poradit?
Zasekl jsem se na tom a nevim, jak dal.
Diky Bob
OT: Ponuka prace
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 4.9.2002 11:48:01
Ponuka prace: programator DELPHI / Kylix.
Miesto: Bratislava, budova FEI STU
Ocakavame:
- VELMI dobru znalost DELPHI a programovania pre Windows
- znalost databaz MSSQL a ORACLE vyhodou
- vodicsky preukaz typu "B"
- kreativny a zodpovedny pristup
- ochotu ucit sa nove veci
Typ prac:
- C/S aplikacie, Web aplikacie
- databazy MS SQL a ORACLE
- prostredie Windows - vyhladovo Linux (Kylix)
Ponukame:
- pracu na zaujimavom projekte
- nove technologie
- zodpovedajuce ohodnotenie
Aby som nerobil reklamu firme, zaujemcom zaslem dalsie podrobnosti na
vyziadanie.
Prosim serioznych zaujemcov o odpoveve VYHRADNE na moj sukromny email:
J.Grman(zv)kmer.elf.stuba.sk
Pekny den
jg
DECIMAL(9,3) zobrazuje jako INTEGER !!!
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.9.2002 12:00:39
> vazne uz jsem z toho na mrtvici a nevim si s tim rady.
> Mam v IB6 sloupec DECIMAL(9,3), ve kterem mam realna cisla a ktere
potrebuji
> zobrazit v D4 c/s (TDBGrid, TQuery) pomoci INTRBASE driveru (BDE 5.11).
> Vysledkem jsou ale stale cisla bez desetinnych mist!
> Proc?
> Je to tim, ze BDE umi pouze dialekt 1?
> Ale DECIMAL(9,3) je s dialektem 1 kompatibilni.
Zkus v te Query pretypovat sloupec cast(sloupec as float). A pak zahod BDE
;-))
Roman
==============================
http://kouzelne.misto(tec)cz
Sinea 2002
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 4.9.2002 12:03:43
> From: Lebeda David
>
>
> Prvku "usecka" v Sinee je v pripade pozadavku
> na zobrazeni exportovaneho rtf souboru ve Wordu bud ponechat
> vysku 20 pixelu (vyzkouseno) nebo kreslit caru na horni okraj
> (nezkouseno).
Horni a levy okraj je v poradku vzdy.
Na dolni okraj ma vliv vyska.
Na pravy okraj maji vliv nektere kombinace vysky a sirky,
Nejakou zakonitost se mi vysledovat nepodarilo.
Vaclav Krmela
Zobrazen� HTML kodu v komponente MEMO1
[*] Tom� �ejka - 4.9.2002 12:15:57
Podobny problem jsem uz v konferenci nasel, ale jeho reseni mi
nefungovalo.
Mam Delphi 6.
Na formulari mam komponenty Webbrowser a Memo. Chtel bych zobrazit HTML
kod jakekoli stranky, zobrazene ve Webbrowseru, ale nemohu na to prijit.
Proto vas velice prosim o pomoc.
Za jakoukoli radu predem velmi dekuji. Odpovedi mi prosim posilejte na
muj e-mail <mailto:tom.cejka(zv)kassoft(tec)cz> tom.cejka(zv)kassoft(tec)cz
Diky Tomas
DECIMAL(9,3) zobrazuje jako INTEGER !!!
[*] <little_bobes(zv)centrum(tec)cz> - 4.9.2002 12:28:28
Ufffff, uz jsem to konecne nasel. Huraaa.
Problem byl v tom, ze nebyl v BDE Administratorovi nastaven Enable BCD =
True.
Bob
> Mam v IB6 sloupec DECIMAL(9,3), ve kterem mam realna cisla a ktere
potrebuji
> zobrazit v D4 c/s (TDBGrid, TQuery) pomoci INTRBASE driveru (BDE 5.11).
> Vysledkem jsou ale stale cisla bez desetinnych mist!
Poslani emailu - JclMAPI (JEDI Project) - jak na "
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.9.2002 12:31:02
Body by melo byt typu TStrings, takze by melo jit pouzit
Body.Strings.Add('Prvni radek');
Body.Strings.Add('Druhy radek');
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.9.2002 Ing. Jiri SOKOL:
> Ahoj,
> pouzivam komponentu P. Vonese (z Jedi Project) k odesilani mailu. Problem mam s body. Nejsem
> schopen zmenit nastaveni zda ma byt text zpravy (body) bud prosty text nebo format HTML.
> Jde mi o to, ze chci z programu udelat navrh textu (body) a tak obcas potrebuju zalomit radek,
> popr. dat novy odstavec.
> Nejde ani #13, ani <br>. Zkousel jsem nastavit vlastnost toho mailu "HtmlBody:=true", ale to ma za
> nasledek, ze misto zobrazeni textu (body) se text ulozi k mailu jako priloha (coz nechci, protoze
> uzivatel by mel text jeste editovat).
Objekty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.9.2002 12:48:59
From: "Jiri Foldyna" <jiri.f(zv)avizo(tec)cz>
> No jo, jenze to je dnes modni a dokonce to ma svuj terminus technicus -
> ofenzivni programovaci styl :-))))). Nediv se, je to pohodlnejsi, mene
> narocne na hlavu a zejmena to zapada do komercniho modelu prodeje SW. Proc
Mozna, ale pouzivat misto jedne konstrukce if ... then try..raise..except neni
prilis pohodlne a navic v tom puvodnim prikladu to melo jeste dalsi chybu a
to, ze se takto 'neosetrovala' pouze predpokladana vyjimka, ale vsechny dalsi
ktere mohly indikovat jinou dalsi (tentokrate skutecne nepredpokladanou)
chybu.
Timto 'modernim' stylem by jsme se vlastne mohli dostat i ke konstrukcim jako
(pripad kdy instance objektu nemusi existovat):
var
O: TSomeObject;
try
O.SomeMethod; // Access Violation pokud O = nil ...
except
end;
Misto:
var
O: TSomeObject;
if Assigned(O) then
O.SomeMethod;
Je to stale spravne reseni ?
Jinak receno, pouziva-li se nekde konstrukce try..except je nutne dobre zvazit
jeji oduvodnenost a mozne dusledky.
Petr Vones
Nativne komponenty
[*] Robert TOTH <toth(zv)lc.vszp.sk> - 4.9.2002 12:52:05
V com je primarny vyznam a vyhoda nativnych komponentov ? s pozdravom
Ing. Robert TOTH
Lucenec
toth(zv)lc.vszp.sk
Qreport vs Rave Reports
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 4.9.2002 12:57:08
Mam dotaz. V D7 je teraz Rave Reports. Ako dostanem zostavy s Qreport do
Rave?
Diky
Qreport vs Rave Reports
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 4.9.2002 12:58:54
To mysl� Borland vazne, ze ke kazde x-te verzi zmeni generator tiskovych
sestav (ReportSmith, QReport....)
Sroub
> Mam dotaz. V D7 je teraz Rave Reports. Ako dostanem zostavy s Qreport do
> Rave?
> Diky
Nativne komponenty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.9.2002 12:58:46
V tom, ze se stanou soucasti EXE, program nepotrebuje ke svemu behu
houfy DLL a ActiveX knihoven (ktere je vetsinou treba registrovat).
proste vezmes EXE a bezi bez instalace (s vyjimkou BDE apod.)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.9.2002 Robert TOTH:
> V com je primarny vyznam a vyhoda nativnych komponentov ?
Nativne komponenty
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.9.2002 12:59:55
> V com je primarny vyznam a vyhoda nativnych komponentov ?
Ze ve vetsine pripadu jdou primo na vec :-) A jinak asi rychlost.
Roman
==============================
http://kouzelne.misto(tec)cz
Objekty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.9.2002 13:00:39
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Ba prave naopak, toto pouziti je naprosto na miste. Trida totiz muze
> obsahovat napriklad validaci vlastnosti, ktera probehne spravne kdyz
> napises
>
> Objekt.Caption := 'blabla';
>
> ale skonci chybou, kdyz to naplnis pres SetXxxProp. Na tento problem
Jaky je prosimte mezi tim rozdil, oba pripady totiz skonci volanim
TControl.SetText.
> jsem narazil pri psani Lokalizatoru, konkretne u tridy
> TMaskEdit.Text, kde SetStrProp skonci chybou, pokud se plni jindy nez
> pri csLoading, protoze se spusti validace. Plnil jsem tam hodnotu,
Stejne by to bylo i pri primem volani Caption := '...'.
> ktera prisla z navrhu formulare. Pokud nemas jistotu, jake objekty se
> ti tam nahrnou, je pouziti try except nezbytne.
Pokud vznikne vyjimka (tedy situace neocekavana, chybna, branici pokracovat v
danem kodu) tak to neznamena ze to jen tak zahodis a delas, ze se nic nedeje.
V pripade TMaskEdit je to napriklad to, ze po validaci neodpovidala hodnota
zadane masce. To ale stale neni duvod pouzivat konstrukci try..except jako
if..then v situacich, kdy primo predpokladas (je soucasti logiky te funkce) ze
vzikne vyjimka a podle toho rozhodujes o vysledku funkce. Tak to prave bylo v
tom puvodnim prikladu.
Je to podobne jinemu typicky spatnemu prikladu na zjisteni zdali lze retezec
prevest na cislo:
try
I := StrToInt(S);
except
I := 0;
end;
Petr Vones
dbExpress + MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 04.9.2002 13:06:42
> > > Nevidim dovod preco na MS SQL nepouzivat dbExpress.
> > *****Naprosto zbytecna dalsi vrstva mezi aplikaci a databazi.
> Ak mozem pristupovat na rozne DB platformy jednotnou sadou komponentov
> - tak zbytocna nie je.
*****To bohuzel nemuzes. Predstav si trivialni SQL prikaz:
SELECT * FROM table1 T1 JOIN table2 T2 ON T1.ID = T2.ID
Clovek, znaly SQL standardu, zajasa, tak pekny select, ten preci musi
chodit na kazdem SQL stroji, ktery tvrdi, ze zvlada onen standard.
Jenze ouha - na Oracle krute narazis. Stejne budes muset prepisovat
selecty, parametry procedur (napr. MSSQL zacinaj s (zv)) apod. To je
rozdil v syntaxi. A ted DB platformy. Ano, dbExpress je mozna dobry
na projekty o trech radcich, ale pro slusnou aplikaci bych to
nepouzil ani za tri licence Delphi zdarma. Kazdy SQL stroj ma jinak
se chovajici transakce, posilani zprav aplikaci, OLAP a dalsi. To
pomoci dbExpressu neudelas. Kdyz se programuje SQL aplikace, je
potreba vytezit maximalni vykon a ne to, ze treba nekdy v bodoucnu
bude mozna apliace chodit nad MS SQL i nad - prominte mi to slovo -
Paradoxem. Tohle je akademicke tema na konference typu Datacon, ale
ne tema do praxe - bez ohledu na to, ze se s kazdym nativnim
pristupem pracuje trochu jinak.
> Syntax jazyka sa naozaj mierne odlisuje - to je ale najmensi problem.
*****Kez by byl. Prepisovat megabajty zdrojovych kodu ulozenych
procedur je fakt extremni vlna rozkose, kterou bych nerad
podstupoval...
> tom pripade mam nielen roznu syntax SQL ale niekedy aj 2 rozne sady
> komponentov
*****...ktere by mely co nejlepe vyuzivat konkretni vlastnosti
databazoveho stroje.
> Takze pri dodrzani istych pravidiel sa nezavislost na
> platforme dosiahnut bez problemov da.
*****Myslim, ze az budes delat velky projekt, pochopis, ze neda.
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Nativne komponenty
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 04.9.2002 13:08:23
Ze by meli maximalne vyuzivat konkretni specificke vlastnosti dane
platformy.
Slavek
> V com je primarny vyznam a vyhoda nativnych komponentov ?
> Ing. Robert TOTH
> toth(zv)lc.vszp.sk
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Pocitani vytistenych stranek ve Win 2000
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.9.2002 13:49:21
Dobry den,
potreboval bych sledovat, ktery uzivatel vytisknul kolik stranek na ktere tiskarne ve Windows
2000. Pod Win95 jsem to resil tim, ze jsem si napsal vlastni .DRV soubor, ale ve Win2000 bude,
predpokladam, nejake elegantnejsi reseni, univerzalni pro vsechny tiskarny. Nakopnete me prosim
nekdo spravnym smerem?
Diky,
Karel Rys
Objekty
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.9.2002 13:57:59
On 4 Sep 2002 at 13:00, Petr Vones wrote:
> > jsem narazil pri psani Lokalizatoru, konkretne u tridy
> > TMaskEdit.Text, kde SetStrProp skonci chybou, pokud se plni jindy
> > nez pri csLoading, protoze se spusti validace. Plnil jsem tam
> > hodnotu,
>
> Stejne by to bylo i pri primem volani Caption := '...'.
Pokud ovsem pred tim nezavolas SetDesigning(true), nebo neco jineho,
co se nelibi validacni funkci.
> > ktera prisla z navrhu formulare. Pokud nemas jistotu, jake objekty
> > se ti tam nahrnou, je pouziti try except nezbytne.
>
> Pokud vznikne vyjimka (tedy situace neocekavana, chybna, branici
> pokracovat v danem kodu) tak to neznamena ze to jen tak zahodis a
> delas, ze se nic nedeje. V pripade TMaskEdit je to napriklad to, ze po
> validaci neodpovidala hodnota zadane masce. To ale stale neni duvod
> pouzivat konstrukci try..except jako if..then v situacich, kdy primo
> predpokladas (je soucasti logiky te funkce) ze vzikne vyjimka a podle
> toho rozhodujes o vysledku funkce. Tak to prave bylo v tom puvodnim
> prikladu.
U SetXxxProp to prave neovlivnis, protoze jednak nemusis vedet, co a
kam cpes (samozrejme, ze zalezi na typu ulohy, u Lokalizatoru to
nevim), jednak prave zde nelze testovat pres if, pokud neznas mnozinu
cilovych objektu, jednak kdyz ti to nekde rachne, je nutne problem
osetrit a pokracovat dal pro dalsi objekty a vlastnosti. Toto je
prave pripad, kdy muze dojit k neocekavane chybe, a casto neni jina
moznost, jak ji osetrit.
S pozdravem
Zbysek Hlinka
Jak upravit DBGrid aby obsahoval event OnCellRight
[*] David Michal <david.michal(zv)www-bv(tec)com> - 4.9.2002 14:04:24
Zdravim,
Toto sice funguje, jenze tento event se vyvola az po zobrazeni PopupMenu. S
DBGridem mam jeste jiny problem, pokud kliknu pravym tlacitkem na nejaky
zaznam, neni tento zaznam selected ackoliv se tak tvari (je na nem kurzor).
Nejlepe je to poznat pokud si zapnu moznost Multiselect. A dale samozrejme
neoznacuje zaznamy na ktere najedu pomoci MouseWheel.
Jak k sakru donutit tuto komponentu aby se prave tlacitko chovalo alespon
stejne jako leve.
Diky,
David
pouzil bych udalost
procedure TMain.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
s podminkou Button=mbRight, ale to zalezi na konkretnim pouziti..
Pavel Mattivi
Dezadata spol. s r.o.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002
BDE, dbExpress, ADO a ostatni
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 4.9.2002 14:07:19
Ahoj,
divam se na debatu ohledne pouzivani BDE, dbExpress a pod. Zajimaly by me Vase nazory k tomuto tematu.
Predstavte si, ze mate rozsahlou databazi v Oracle nebo Informixu. je lepsi dvou nebo viceurovnova architektura ??? Je vhodnejsi pouzit dbExpress nebo ADO ???
V.
DECIMAL(9,3) zobrazuje jako INTEGER !!!
[*] <little_bobes(zv)centrum(tec)cz> - 4.9.2002 14:17:09
Nastesti uz jsem to vyresil (zmena hodnoty v Enabled BCD), ale to
pretypovani jsem rovnez zkousel (jak jinak, nez bezvysledne).
A BDE bych vazne strasne, ale strasne rad vyhodil a pouzil IBX, ale bohuzel
to na Delphi 4 neni mozne :-((
Bob
> Zkus v te Query pretypovat sloupec cast(sloupec as float). A pak zahod BDE
> ;-))
tabulatory v MEMU
[*] Tom� B�rta <tomik b(zv)seznam(tec)cz> - 04.9.2002 14:44:54
Ahoj,
potrebuji dostat do MEMA jakousi tabulku, ktera je slozena z hodnot
dodavanych z promennych. Je to tabulka se ctyrmi sloupecky kde v
prvnim jsou stringove hodnoty popisujici radky a v tech dalsich
cislice k nim nalezici.
Nevim jak efektivne zadat do MEMA tabulatory, abych tyto sloupecky
oddelil.
Nekde jsem nasel tenhle zpusob:
Tabs: Array [0..2] of integer;
Tabs[0]:= 12*4 ;
Tabs[1] := 24*4;
Tabs[2] := 44*4;
Memo1.Perform(EM_SETTABSTOPS, 3, LongInt((zv)Tabs));
Memo1.Lines[6]:=''+(strign-variable)+''#9#9#9#9''+
inttostr(variable)+''#9' '+ inttostr(variable)+''#9#9' '+
inttostr(variable);
...ale ten se mi zda dost krkolomny a navic nevim jaky jiny CONTROL
STRING misto #9 bych tam mohl zadat.
Poradte prosim nekdo jak tohle upravit, nebo nejaky uplne jiny
zpusob.
Dik!
Tomas Barta
______________________________________________________________________
Reklama:
Kam do kina ci divadla? http://kultura.seznam(tec)cz
MyBase v Delphi
[*] Martin Valach <vachix(zv)centrum.sk> - 4.9.2002 14:48:15
Ahojte,
chcem Vas poprosit o skusenosti s MyBase.
S popisu od Borlandu si neviem spravit predstavu co to zhruba
zvladne a hlavne ma zaraza veta :
Zpracov�n� tabulek v pameti - MyBase zcela bez� v pameti s c�lem dos�hnout
co nejvets�ho v�konu pri behu.
Neviem, ci si to spravne vysvetlujem, akoze si to celu tabulku vzdy nahra do
pamati a potom pracuje s udajmi ?
Dakujem
Martin
Dbgrid-jiny text nez hodnota v db
[*] Robert TOTH <toth(zv)lc.vszp.sk> - 4.9.2002 15:14:36
priklad:
..
table1.open;
tbooleanfield(table1.fieldbyname('blablabla')).displayvalues:='Povolene;Zaka
zane';
.. s pozdravom
Ing. Robert TOTH
Lucenec
----- Original Message -----
From: "Ludek ZITA" <konference(zv)sales(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 04, 2002 11:01 AM
Subject: Re: Dbgrid-jiny text nez hodnota v db
>
> ----- Original Message -----
> From: "Ludek Paral" <ludek.paral(zv)quick(tec)cz>
>
> Ahoj,
>
> maly dotaz- je nekde nejaky maly priklad, jak psat neco jineho do dbgridu
> nez je v db? Napriklad takova logicka hodnota - neni moc hezke psat
> "false".Asi nejjednodussi bude pro mne asi udelat calculated polozku
> (textovou), kterou proste nadefinuji dle hodnoty , ze ?
>
> Ahoj
>
> V obsluze OnGetText a OnSetText na fieldu v datasetu.
> Mam tak delane 'preklady' napriklad z vyctovych hodnot usporne ukladanych
v
> DB do 'lidske reci'.
>
> Ludek
>
>
>DECIMAL(9,3) zobrazuje jako INTEGER !!!
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.9.2002 15:19:05
> Nastesti uz jsem to vyresil (zmena hodnoty v Enabled BCD), ale to
> pretypovani jsem rovnez zkousel (jak jinak, nez bezvysledne).
> A BDE bych vazne strasne, ale strasne rad vyhodil a pouzil IBX, ale
bohuzel
> to na Delphi 4 neni mozne :-((
A proc tak prahnes zrovna po IBX? Na D4 jsem zkousel IBO, Zeos, FIB+ a to
posledne jmenovane uz cca rok pouzivam, predtim s IB6, nyni s FB1.
Roman
==============================
http://kouzelne.misto(tec)cz
tabulatory v MEMU
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.9.2002 15:23:48
From: "Tom� B�rta" <tomik_b(zv)seznam(tec)cz>
> potrebuji dostat do MEMA jakousi tabulku, ktera je slozena z hodnot
> dodavanych z promennych. Je to tabulka se ctyrmi sloupecky kde v
A musi to byt zrovna TMemo ? Co treba pouzit TListView.
Petr Vones
Try..except
[*] Kr�l Jirka <admin(zv)printo(tec)cz> - 4.9.2002 15:23:19
>>Je to podobne jinemu typicky spatnemu prikladu na zjisteni zdali lze retezec prevest >>na cislo:
>>
>>try
>> I := StrToInt(S);
>>except
>> I := 0;
>>end;
>>Petr Vones
A nasel by se na tohle i typicky spravny postup?
J.K.
Poslani emailu - JclMAPI (JEDI Project) - jak na "
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.9.2002 15:35:17
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
> pouzivam komponentu P. Vonese (z Jedi Project) k odesilani mailu. Problem
Ted je v tom trochu zmatek, v Jedi VCL je sice takova komponenta, ale dle
subjektu se jedna o JclMapi, kde zadne komponenty nejsou.
Vytvareni HTML zprav pomoci Simple MAPI je tak jako tak nedokumetovana (a dle
teto specifikace tudiz i nepodporovana) funkce. Nicmeme jsou aplikace, ktere
toto umi (alespon s Outlook Expressem), takze to v nekterych pripadech muze
fungovat. K tomu ucelu slouzi prave property HtmlBody, pouziti je zrejme z
prikladu (overeno s JCL 1.21 na OE 5.5 SP2):
uses
JclMapi;
procedure TForm1.Button1Click(Sender: TObject);
var
Mail: TJclEmail;
begin
Mail := TJclEmail.Create;
try
Mail.Recipients.Add('abc(zv)abc.xyz');
Mail.Subject := 'Subject';
Mail.HtmlBody := True;
Mail.Body := '<HTML><BODY><H3>Text1</H3><H5>Text2</H5></BODY></HTML>';
Mail.Send;
finally
Mail.Free;
end;
end;
Petr Vones
BDE, dbExpress, ADO a ostatni
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 4.9.2002 15:37:05
Myslim si, ze tri a vice urovnova architektura je obecne vhodnejsi. Pokud se
nejedna o trivialni ulohy je vyhodne oddelit minimalne uzivatelsky
interface, obchodni logiku a praci s daty (manipulace a "uskladneni").
Paradoxne se aplikace vetsinou vyrazne zjednodusi, zprehledni a mnohem lepe
udrzuje. Problemem je, ze se musi provest analyza, coz zdrzuje a ze aplikace
vznika zdanlive velmi pomalu a potom, najednou, zacne (nebo taky ne) vsechno
(nebo aspon skoro vsechno) pracovat.
Strasne zavisi na kvalite zadani, ktere je mozno z uzivatelu vyrazit(a
analyzy, ale tu muzete vetsinou zblnout sami). Pokud se vse dodela a
pripominky jsou typu "my jsme mysleli, ze to zkusime a pak uvidime ..."
vedou casto k rozsahlym upravam a ono nic stale nepracuje (nebo skoro nic) a
.... . Proto jen malo sefu slysi na tuto architekturu (uz jste ve treti
ctvrtine projektu a furt se nic netestuje ... ?). Nebo si viceurovnovou
architekturu vysvetluji jako "tenkeho klienta", ale ten se da napsat (a
casto i je) pouze jako dvouurovnovy (prohlizec je tam sice 3. vrstvou, ale
na te se nic nedeje !), pripominajici terminal-server architekturu 70 let.
Pavel
-----P�vodn� zpr�va-----
Od: LUKES V�clav [mailto:lukes(zv)ans(tec)cz]
Odesl�no: 4. z��� 2002 14:07
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: BDE, dbExpress, ADO a ostatni
Ahoj,
divam se na debatu ohledne pouzivani BDE, dbExpress a pod. Zajimaly by me
Vase nazory k tomuto tematu.
Predstavte si, ze mate rozsahlou databazi v Oracle nebo Informixu. je lepsi
dvou nebo viceurovnova architektura ??? Je vhodnejsi pouzit dbExpress nebo
ADO ???
V.
kontrola behu service
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 4.9.2002 15:45:10
zdravim vospolok,
urcite tu taka tema uz bola na pretras, hladam v archive, nenachadzam,
tapem, neviem ;). potrebujem otestovat stav service, ci bezi, stoji,
lezi... ;o). existuje nejaky sposob na zistenie jej stavu? na serveri
nam bezi nechutna aplikacia a potrebujem vysledovat kolkokrat padla ;).
vdaka za nakopnutie...
M.
BDE, dbExpress, ADO a ostatni
[*] David Janko <djanko(zv)infoware(tec)cz> - 4.9.2002 15:58:02
Zdravim,
nevim jak nad jinymi SQL servery, ale nad mysql je dbExpress pro me
nepouzitelnej - a to to nejsou aplikace nejak moc narocne na transakce,
hlidani ref. integrity atd. - uplne mi stacili elementarni problemy s
autoincrementy, typy poli a apod.. Nekde v archivu je muj mail kde sem
problemy na ktere jsem tehdy narazil vypsal podrobne jestli mate zajem
(tusim konec minuleho roku).
Nyni pouzivam ZEOS komponenty pro mysql - i k nim mam par vyhrad, ale je to
pouzitelne.
BDE je mrtve a pouzil bych ho tak max. na malou jednoucelovou utilitu, ktera
se nema dal rozvijet (napr. export dat ze stareho dbf based systemu do
noveho).
ADO tedka zkousim nad MDB a zatim jedinny problem na ktery sem narazil je
nefunkci sort/filtr nad lookup poli - ale je to lokalni file based DB a ne
"normalni" sitove reseni nad SQL serverem.
toliko ma zkusenost ...
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 04, 2002 2:07 PM
Subject: BDE, dbExpress, ADO a ostatni
Ahoj,
divam se na debatu ohledne pouzivani BDE, dbExpress a pod. Zajimaly by me
Vase nazory k tomuto tematu.
Predstavte si, ze mate rozsahlou databazi v Oracle nebo Informixu. je lepsi
dvou nebo viceurovnova architektura ??? Je vhodnejsi pouzit dbExpress nebo
ADO ???
V.
kontrola behu service
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 4.9.2002 16:16:21
> From: "Barica Miroslav" <miroslav.barica(zv)matador.sk>
> urcite tu taka tema uz bola na pretras, hladam v archive, nenachadzam,
> tapem, neviem ;). potrebujem otestovat stav service, ci bezi, stoji,
> lezi... ;o). existuje nejaky sposob na zistenie jej stavu? na serveri
> nam bezi nechutna aplikacia a potrebujem vysledovat kolkokrat padla ;).
Pomoci funkce QueryServiceStatus z advapi32.dll (viz. PSDK).
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
DECIMAL(9,3) zobrazuje jako INTEGER !!!
[*] <little_bobes(zv)centrum(tec)cz> - 4.9.2002 16:22:42
Hmm, to presne nevim. Asi proto, ze tu vsichni o tom basni :-)
Chtel bych neco free, protoze sef nehodla neco platit (udajne by chtel
koupit D6, ale to je z financniho hlediska v nedohlednu :-(
Bob
> A proc tak prahnes zrovna po IBX? Na D4 jsem zkousel IBO, Zeos, FIB+ a to
> posledne jmenovane uz cca rok pouzivam, predtim s IB6, nyni s FB1.
>
DECIMAL(9,3) zobrazuje jako INTEGER !!!
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 4.9.2002 16:23:24
Pro D4 existuji FreeInterbase komponenty.
Slavek
> A BDE bych vazne strasne, ale strasne rad vyhodil a pouzil IBX, ale bohuzel
> to na Delphi 4 neni mozne :-((
>
> Bob
Try..except
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.9.2002 16:28:27
From: "Kr�l Jirka" <admin(zv)printo(tec)cz>
> A nasel by se na tohle i typicky spravny postup?
Jiste, napriklad funkce StrToIntDef. Podivej se jak je implementovana a bude
to z toho myslim jasne.
Petr Vones
dbExpress + MSSQL
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.9.2002 16:40:24
On 4 Sep 2002 at 13:06, Slavek Rydval wrote:
> > Takze pri dodrzani istych pravidiel sa nezavislost na
> > platforme dosiahnut bez problemov da.
> *****Myslim, ze az budes delat velky projekt, pochopis, ze neda.
Pokud nekdo nutne potrebuje poskakovat po vice databazich, pak vidim
jako schudne reseni toto:
Pro aplikaci navrhnout takove rozhrani, ktere je poplatne aplikaci.
Toto rozhrani posatvit napriklad jako COM, a teprve uvnitr by byla
resena veskera prace s databazi, pro kazdou databazi samostatny COM.
Program by se vzdy jen zeptal com.ChciDataTohotoNazvu(nazev) a objekt
by vratil nejaky stream s daty, v predem definovane strukture.
Program by pak data rozebral a poslal patricnym komponentam. A
obracene, program by predal objektu deinovany stream s urcenim, co se
s nim ma delat, a objekt by pak poslal data databazi. Snad jedine
takto lze napsat multidbplatformni aplikaci, nikoliv pres komponenty
v programu. Uz jen v typech poli mohou byt mezi databazemi tak
razantni rozdily, ze to bez konverzi nelze obslouzit.
S pozdravem
Zbysek Hlinka
OT: Sql command pro vyber pomoci AND.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 4.9.2002 16:40:44
Zdravim,
Potreboval bych asi takovyto SQL select:
Select * From Table1 Where (Cena = 100) and (Cena = 200)
Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak definovat
podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva zaznamy jeden by
mel cena=100 a druhy cena=200 vratil by mi select oba dva. Pokud vsak
napriklad druhy zaznam bude mit cena=300, pak mi select nevrati ani jeden
zaznam. Ale jak to zapsat?
Urcite jste jiz nekdo neco podobneho resil, poradite prosim?
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002
dbExpress + MSSQL
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 4.9.2002 16:41:55
> *****To bohuzel nemuzes. Predstav si trivialni SQL prikaz:
>
> SELECT * FROM table1 T1 JOIN table2 T2 ON T1.ID = T2.ID
>
> Clovek, znaly SQL standardu, zajasa, tak pekny select, ten preci musi
> chodit na kazdem SQL stroji, ktery tvrdi, ze zvlada onen standard.
> Jenze ouha - na Oracle krute narazis.
Sorry, ale ja nepotrebujem aby a ORACLE tento select fungoval.
Ja potrebujem aby fungoval iny select ktory da rovnaky vysledok.
> > Syntax jazyka sa naozaj mierne odlisuje - to je ale najmensi problem.
> *****Kez by byl. Prepisovat megabajty zdrojovych kodu ulozenych
> procedur je fakt extremni vlna rozkose, kterou bych nerad
> podstupoval...
Sorry, ale co toto vsetko ma s dbExpress. Stored procedury si musis napisat
pre kazdu platformu samostatne nech uz pouzijes cokolvek.
> > tom pripade mam nielen roznu syntax SQL ale niekedy aj 2 rozne sady
> > komponentov
> *****...ktere by mely co nejlepe vyuzivat konkretni vlastnosti
> databazoveho stroje.
dbExpress driver ktory pouzivam pre MS SQL pouziva pramo sqloledb.DLL od
Microsoftu
a dbExpress driver pre ORACLE pouziva priamo jeho dllko OCI.DLL !
Dokonca vie komunikovat priamo s ORACLE jadrom cez TCP/IP NET*> > Takze pri dodrzani istych pravidiel sa nezavislost na
> > platforme dosiahnut bez problemov da.
> *****Myslim, ze az budes delat velky projekt, pochopis, ze neda.
Myslim ze mam projekt ktory bezi nad MSSQL aj ORACLE. Ma cca 0.5mil riadkov.
Ma cca 20 tabuliek, 200 stored procedur, znacne mnozstvo relacnych
zavislosti.
Nemusim nic pochopis - denne s tym pracujem.
Staci mat urobenu v aplikaciu sadu funkcii ktore robia urcitu abstrakciu a
vysledkom je kod ktory je na 90% spolocny. No a upravy takehoto systemu su
neporovnatelne rychlejsie
A len pre poriadok:
CEZ DBExpress nie je mozne spristupnit PARADOX !!! Aspon nie priamo.
Mozno jedine sposobom DBExpress driver pre ODBC viazany na ODBC driver pre
Paradox. To ale bude mat znacne limity (pretoze DBExpress vyzaduje
dotazovaci jazyk) -takze to nie je pouzitelne....
Skus si precitat nieco o DBExpress. Je to uplne ina technologia ako BDE !!!
jg
dbExpress + MSSQL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 4.9.2002 16:51:36
> Od: Jan Grman [mailto:J.Grman(zv)kmer.elf.stuba.sk]
> Chcel by som reagovat pani...
> v zasade s Vami suhlasim i ked ...
>
> > > dbExpress se snazi nahradit to co drive delalo BDE + SQL
> Linky. Jenze
> > > doba je uz asi jinde takze nakonec vzdycky zvitezi
> konkretni reseni
> > > pro dany server.
> > *****Naprosty souhlas.
>
> Pojem "konkretne riesenie" - co to je ?
> Ak robim klasicku databazu a chcem aby si klient moho vybrat
> napr. medzi MS
> SQL a ORACLE v com je rozdiel ? Syntax jazyka SQL - smiesny
> problem. Drobne
> odchylky v typoch - riesitelne...
> Ze jeden "engine" nieco vie a druhy nie - nestalo sa mi ze by
> sa to nedalo
> obist.
>
> To co som napisal su ale problemy ktore este stale nesuvisia s vyberom
> sposobu ako sa dostanem na tie data z DELPHI. Tie si musim
> ujasnit este
> skor.
> No a potom sa rozhodujem - priklad - robim C\S aplikaciu
> portovanu pre MS
> SQL, Oracle s vyhladom na Informix, aplikacny SERVER bude vo Windows s
> vyhladom pre Linux, klientske aplikacie budu vylucne vo Windows
> moznosti:
> a) kazdy typ potu robit samostane komponentami ktore su pre dany typ
> najlepsie
> b) pouzit jednotnu VRSTVU komponentov na pristup k datam
>
> Ked si clovek zvazi ZA a PROTI - rozhodne sa.
> Ak sa rozhodne pre b) - vidim riesenie v ADO alebo dbExpress...
> Ak zoberie do uvahy prechod na LINUX - ADO vypadava.
>
> Ak zoberie do uvahy ze aplikacny server NEMA uzivatelsky
> inteface - tak
> odpada jeden z vaznych problemov. A konstatovanie ze "Multiplatformni
> nezavislost je stejne realna jako teply snih." je sice
> sugestivne, ale nie
> celkom fair. Serverovu cast JE mozne programovat tak aby
> vyroba verzii pre
> konkretny OS a konkretny typ DB engne - bola postavena z 90%
> na spolocnom
> kode - co je pre rychlost a udrzatelnost vyvoja podstatne...
> alebo nie ?
>
> Je to samozrejme len moj nazor podporeny skusenostou.
>
> jg
>
Domnivam se, ze abstraktni vrstva pristupu k datum, kterou vytvari dbExpress
je skutecne dnes jiz prekonana. Sjednoceni na zaklade nejmensiho spolecneho
jmenovatele neni idealni. Pokud chci aplikaci pripravit k portaci na vice
ruznych DB, mela by byt abstrakni vrstva posazena vyse tj. az na uroven
sluzeb poskytovanych DB aplikaci, tj. ukladani konkretnich objektu a praci s
nimi. Takto vznikla vrstva (nebo vrstvy !) bude (budou) poskytovat sluzby,
ktere jsou aplikaci pozadovany pro aplikaci nezavisle na DB a to takovym
zpusobem, ktery nejlepe odpovida moznostem a schopnostem dane DB. Vrstva se
bude muset pri portaci vice ci mene prepsat, ale to je totez jako vyrabet
podminene kompilovany kod a upravovat syntaxi SQL prikazu a procedur.
Na urovni aplikace nema cenu uvazovat v pojmech jako je ADO, OLE DB, .... bez
ohledu na OS.
Podobny stav by mel byt dodrzovan i co se tyka interface. Portace
univerzalnich knihoven grafick�ho rozhrani pro ruzne OS (nekdy staci i ruzne
WINDOWS) maji velke problemy "vypadat stejne". Proto jednoduchy interface s
minimem fci, ktery lze pri portaci snadno prepsat se mi jevi opet jako
nejelegantnejsi reseni.
Pavel
Sql command pro vyber pomoci AND.
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 4.9.2002 16:56:43
Co to zkusit takto:
Select * From Table1 Where (Cena = 100) OR (Cena = 200)
Martin Ben
> -----Original Message-----
> From: David Michal [mailto:david.michal(zv)www-bv.com]
>
> Select * From Table1 Where (Cena = 100) and (Cena = 200)
>
> Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak definovat
> podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva
> zaznamy jeden by
> mel cena=100 a druhy cena=200 vratil by mi select oba dva. Pokud vsak
> napriklad druhy zaznam bude mit cena=300, pak mi select
> nevrati ani jeden
> zaznam. Ale jak to zapsat?
Nalezeni souboru
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 4.9.2002 17:09:03
> A jakou to vraci chybu (GetLastError, RaiseLastWin32Error) ?
Takze jsem opet o kousek postoupil, ale chytrej z toho nejsem
Nize uvedeny kod spolehlive najde cokoliv v hlavnim adresari c:\Winnt
(vcetne vnorenych adresaru)
GetLastError = 18
RaiseLastWin32Error = 18
Je-li vsak soubor mimo adresar Winnt kdekoliv na disku pak
GetLastError = 3
RaiseLastWin32Error = 3 "system nemuze najit uvedenou cestu"
Viktor Marek
viktor(zv)mbox.vol(tec)cz
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Imagehlp;
.
.
procedure TForm1.Button2Click(Sender: TObject);
var
FoundPath: array[0..MAX_PATH] of Char;
begin
if SearchTreeForFile('C:\', 'win.ini', FoundPath) then
begin
Label1.caption:=FoundPath;
Label2.caption:='GetLastError=' + IntToStr(GetLastError);
RaiseLastWin32Error;
end
else
begin
Label1.caption:='Soubor nenalezen';
Label2.caption:='GetLastError=' + IntToStr(GetLastError);
RaiseLastWin32Error;
end;
end;
end.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
TCPIP komunikace s TApdWinSockPort
[*] likeapear <likeapear(zv)centrum(tec)cz> - 4.9.2002 17:31:51
ahoj mam takovy neobvykly problem:
delame na TCPIP komunikaci mezi java aplikaci (appletem) a win32 aplikaci
napsanou v delphi. vse fungovalo do te doby, nez jsme na strane win32
aplikace nahradili TServerSocket za TApdWinSockport od TurboPower. ten se
zdal byt spolehlivejsi az na to, ze pokud z appletu odejte packet
obsahujici byty o hodnote 255, tak je TApdWinSockPort proste neprijme.
pritom:
- pokud to prijima TServerSocket (standardne dodavany s Delphi), tak to
funguje ale jinak tu komponentu nemam rad
- pokud jsem zkusil na obou stranach ApdWinSockPort funguje to taky
koukame na to jako blazni a nevime si rady. nenarazil jste nekdo na neco
podobneho? vim ze je to celkem okrajova zalezitost, ale budu vdecny za
jakykoliv tip.
likeapear
Sql command pro vyber pomoci AND.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 4.9.2002 18:04:41
Pomoci tohoto selectu dostanu vysledek 1 radku i v pripade ze napr. nenajde
zadny row s cena=200. Ale ja potrebuji aby mi vratil vysledek pouze v
pripade, za najde rows jak s cena=100 tak s cena=200.
David
Co to zkusit takto:
Select * From Table1 Where (Cena = 100) OR (Cena = 200)
Martin Ben
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002
Jak upravit DBGrid aby obsahoval event OnCellRight
[*] David Michal <david.michal(zv)www-bv(tec)com> - 4.9.2002 18:38:52
Tak si sam odpovim. :)
Pokud by nekomu z vas vadilo hloupe chovani praveho tlacitka mysi na
DBGridu, kde je zapnuty multiselect pak staci do udalosti OnDrawColumnCell
dopsat:
if gdFocused in State Then
if not DBGRid1.SelectedRows.CurrentRowSelected Then
begin
DBGrid1.SelectedRows.Clear;
DBGGrid1.SelectedRows.CurrentRowSelected := True;
end;
David
Zdravim,
Toto sice funguje, jenze tento event se vyvola az po zobrazeni PopupMenu. S
DBGridem mam jeste jiny problem, pokud kliknu pravym tlacitkem na nejaky
zaznam, neni tento zaznam selected ackoliv se tak tvari (je na nem kurzor).
Nejlepe je to poznat pokud si zapnu moznost Multiselect. A dale samozrejme
neoznacuje zaznamy na ktere najedu pomoci MouseWheel.
Jak k sakru donutit tuto komponentu aby se prave tlacitko chovalo alespon
stejne jako leve.
Diky,
David
pouzil bych udalost
procedure TMain.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
s podminkou Button=mbRight, ale to zalezi na konkretnim pouziti..
Pavel Mattivi
Dezadata spol. s r.o.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002
Try..except
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.9.2002 19:14:20
NC45LjIwMDIgS3LhbCBKaXJrYToNCj4+PkplIHRvIHBvZG9ibmUgamluZW11IHR5cGlja3kgc3Bh
dG5lbXUgcHJpa2xhZHUgbmEgemppc3RlbmkgemRhbGkgbHplIHJldGV6ZWMgcHJldmVzdCA+Pm5h
IGNpc2xvOg0KPj4+DQo+Pj50cnkNCj4+PiAgSSA6PSBTdHJUb0ludChTKTsNCj4+PmV4Y2VwdA0K
Pj4+ICBJIDo9IDA7DQo+Pj5lbmQ7DQo+Pj5QZXRyIFZvbmVzDQoNCj4gQSBuYXNlbCBieSBzZSBu
YSB0b2hsZSBpIHR5cGlja3kgc3ByYXZueSBwb3N0dXA/DQoNClRvaGxlIGplIHZuaXRyZWsgZnVu
a2NlIFN0clRvSW50LiBNeXNsaW0sIHplIHBybyBuYXpvcm5vc3QsIGphayB0bw0KdWRlbGF0IGpp
bmFrIHRpIHRvIHBvc3RhY2kuDQoNCmZ1bmN0aW9uIFN0clRvSW50KGNvbnN0IFM6IHN0cmluZyk6
IEludGVnZXI7DQp2YXINCiAgRTogSW50ZWdlcjsNCmJlZ2luDQogIFZhbChTLCBSZXN1bHQsIEUp
Ow0KICBpZiBFIDw+IDAgdGhlbiBDb252ZXJ0RXJyb3JGbXQoQFNJbnZhbGlkSW50ZWdlciwgW1Nd
KTsNCmVuZDsNCg0KDQotLSANCmluZy4gSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5j
eg==
tabulatory v MEMU
[*] Tom� B�rta - 4.9.2002 19:19:08
Muze to byt cokoliv, akorat s mymi zacatecnickymi znalostmi o TListView
nevim vubec nic.
Pokud neni slozite to vysvetlit - budu Vam vdecny kdyz to zkusite.
Tomas Barta
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 04, 2002 3:23 PM
Subject: Re: tabulatory v MEMU
> From: "Tom� B�rta" <tomik_b(zv)seznam(tec)cz>
> > potrebuji dostat do MEMA jakousi tabulku, ktera je slozena z hodnot
> > dodavanych z promennych. Je to tabulka se ctyrmi sloupecky kde v
>
> A musi to byt zrovna TMemo ? Co treba pouzit TListView.
>
> Petr Vones
>
>
Nalezeni souboru
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 4.9.2002 20:08:24
> > A jakou to vraci chybu (GetLastError, RaiseLastWin32Error) ?
>
> Takze jsem opet o kousek postoupil, ale chytrej z toho nejsem
>
> Nize uvedeny kod spolehlive najde cokoliv v hlavnim adresari c:\Winnt
> (vcetne vnorenych adresaru)
> GetLastError = 18
> RaiseLastWin32Error = 18
>
> Je-li vsak soubor mimo adresar Winnt kdekoliv na disku pak
> GetLastError = 3
> RaiseLastWin32Error = 3 "system nemuze najit uvedenou cestu"
Dalsim spekem je skutecnost, ze programek spolehlive chodi pod WIN95, 98
Proboha vysvetlete mi to nekdo!!!!!!!!!
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Jsou komponenty pro ADO dostupne ve verzi D6 Profe
[*] Josef Obdr��lek <it-boss2(zv)seznam(tec)cz> - 4.9.2002 20:09:22
Diky.
Pepa
Objekty
[*] Lauko Stefan <laukosw(zv)naex.sk> - 4.9.2002 20:12:31
> From: "Lauko Stefan" <laukosw(zv)naex.sk>
> > Procedure SetCaption(O:TObject; S:String);
> > begin
> > try
> > SetStrProp(O, 'Caption',S);
> > Except
> > end;
> > end;
>
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Toto je ukazkovy priklad zcela nevhodneho pouziti vyjimek. Vyjimka je neco
> vyjimecneho, co by nemelo za beznych podminek vzniknout. V tomto pripade
je
> vsak pouzita jako nedilna soucast logiky te procedury. (nemluve o
predavani
> promenne typu string ktera by mela byt const S: string)
Jasne ze to je nekorektne ale tymto som chcel ukazat moznost pouzit unit
TypInfo. Ked by sa tazatel pozrel na funkcie tak tam je mozne taketo nieco
vyriesit uplne bez problemu a korektne.
Ty si to napisal presne :
PropInfo := GetPropInfo(Control, 'Caption', [tkLString]);
Result := PropInfo <> nil;
if Result then
SetStrProp(Control, PropInfo, Caption);
Ja som ale chcel aby tazatel trochu studoval...:-). Chcel som ho len
"nakopnut".
Lauko.
Zdroje dat pro Ttable
[*] Ale� Kresta <kresta.ales(zv)seznam(tec)cz> - 4.9.2002 20:18:32
Dobry den,
da se nejak nastavit komponente TTable ciste tabulka, aniz bych musel
tvorit alias... A da se vubec nejak vytvorit alias na pocitaci kde je
nainstalovan ciste jenom operacni system(konkretne Win98SE)??? Popripade da
se vytvorit v delphi program ktery by to dokazal??? Jak???
Predem diky za odpoved
Nativne komponenty
[*] Josef Obdrz�lek <it-boss2(zv)seznam(tec)cz> - 4.9.2002 20:53:28
Vyhoda spociva take v tom, ze jsou dostupne primo v IDE bez nutnosti
doinstalovavani ruznych komponent.
Pepa
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 04, 2002 1:08 PM
Subject: Re: Nativne komponenty
>
> Ze by meli maximalne vyuzivat konkretni specificke vlastnosti dane
> platformy.
>
> Slavek
>
> > V com je primarny vyznam a vyhoda nativnych komponentov ?
> > Ing. Robert TOTH
> > toth(zv)lc.vszp.sk
> --------------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
> --------------------------------------------------------
> Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
>
>
Sql command pro vyber pomoci AND.
[*] Martin Cajbik <cajbik(zv)sct.sk> - 4.9.2002 21:14:25
Sice nechapem naco by to mohlo sluzit ale dalo by sa to napisat takto
Select * From Table1 Where ((Cena = 100) OR (Cena = 200))
AND EXISTS(SELECT * FROM Table1 Where Cena = 100)
AND EXISTS(SELECT * FROM Table1 Where Cena = 200)
MarCaNT (marcant(zv)sct.sk)> Pomoci tohoto selectu dostanu vysledek 1 radku i v pripade ze napr.
nenajde
> zadny row s cena=200. Ale ja potrebuji aby mi vratil vysledek pouze v
> pripade, za najde rows jak s cena=100 tak s cena=200.
> David
>
>
> Co to zkusit takto:
>
> Select * From Table1 Where (Cena = 100) OR (Cena = 200)
>
> Martin Ben
>
Blokovani TCP/IP spojeni
[*] Martin Da��lek <darilek(zv)atlas(tec)cz> - 4.9.2002 21:23:30
Dobry den,
prosim vas o pomoc pri reseni nasledujiciho problemu:
pro potreby skoly vyvijim programek (platforma Win95) pro monitoring
internetoveho pripojeni. Monitoruje se doba po kterou uzivatel aktivne
vyuziva spojeni. Nicmene potrebuji nejak vyresit problem s blokovanim
spojeni u neautorizovanych uzivatelu - defacto firewall.
V soucasne dobe pouzivam knihovny projektu WinPCap
(http://winpcap.polito.it), lze tak ale pouze monitorovat nejake nejakou
aktivitu, s packety nelze nic delat jen je mozne je analyzovat.
Zatim to resim tak, ze pokud uzivateli neni povolen pristup na internet, pri
detekci jakehokoliv TCP, UDP packetu se umele vyvola ukonceni windows. Ale
neni to ono ...
Napadly me tri metody reseni, ale prave nevim do jake miry jsou resitelne:
1. Nejakym zpusobem dynamicky "vypnout" TCP/IP vrstvu ze seznamu sitovych
protokolu instalovanych na pocitaci.
2. V rozumnem casovem intervalu zjistovat otevrene porty a aplikace ktere je
vyuzivaji a ty "odstrelit"
3. menit cilovou IP adresu packetu na nejakou neexistujici, ci jen v lokalni
siti ...
MaD
Problem s osetrenim chyby pri tisku v Sinea 2000
[*] Pawell None <pawell.none(zv)atlas(tec)cz> - 4.9.2002 21:36:02
Zdravim,
mam problem s osetrenim chyby pri tisku
//vytvorim si sestavu...
Sestava := TSestava.Create(nil);
//nastavim si vse potrebne a vyberu tiskarnu ...
Printer.PrinterIndex := cmbTiskarna.ItemIndex;
//a nakonec tisknu
Print;
Vsechno funguje do okamziku, nez se pokusim tisknout na neplatnou tiskarnu
(napr. tisk na sitovou tiskarnu, kdyz jsem odpojen od site). To dojde k
vyjimce "Print selected is not valid".
Tak jsem udelal malou upravu:
try
Print;
except
//rekni to uzivateli
end;
//pokud se nepodaril tisk, uzivatel to muze zkustit znovu
Tim se mi podari odchytit vyjimku, ale zustane mi viset dialog s textem
"Odesilam data do stiskarny" dokud nezavru form, ze ktereho jsem volal
Print.
Poradite, prosim, jak korektne osetrovat chyby pri tisku, resp. jak se
zbavit toho dialogu?
Zkousel jsem take pouzit "OnError", ale do toho se mi to nikdo nedostalo.
Kdyz to sam� udel�m pro preview, tak se mi nepodar� zachytit ani tu vyj�mku.
diky moc predem za kazdy podnet
preji hezky den
Pavel Blahovec
Sql command pro vyber pomoci AND.
[*] L�tal Integrodat <letal(zv)integrodat(tec)cz> - 4.9.2002 21:52:14
Nevim, zda to lze vyresit SQL selectem,
ale urcite musis zaridit, aby se v pripade
NOT (Cena in [100,200])
vynuloval pripadny vysledek selectu.
mil
----- Original Message -----
From: "David Michal" <david.michal(zv)www-bv.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 04, 2002 4:40 PM
Subject: OT: Sql command pro vyber pomoci AND.> Zdravim,
> Potreboval bych asi takovyto SQL select:
>
> Select * From Table1 Where (Cena = 100) and (Cena = 200)
>
> Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak definovat
> podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva zaznamy jeden by
> mel cena=100 a druhy cena=200 vratil by mi select oba dva. Pokud vsak
> napriklad druhy zaznam bude mit cena=300, pak mi select nevrati ani jeden
> zaznam. Ale jak to zapsat?
>
> Urcite jste jiz nekdo neco podobneho resil, poradite prosim?
> Diky,
> David
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.384 / Virus Database: 216 - Release Date: 21/08/2002
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Try..except
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 4.9.2002 22:01:18
Ahoj,
zkus proceduru VAL
Pavel
>>Je to podobne jinemu typicky spatnemu prikladu na zjisteni zdali lze
retezec prevest >>na cislo:
>>
>>try
>> I := StrToInt(S);
>>except
>> I := 0;
>>end;
>>Petr Vones
A nasel by se na tohle i typicky spravny postup?
J.K.Zdroje dat pro Ttable
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.9.2002 22:22:19
UHJpZGFzIGppIHByaW1vIHMgY2Vzb3UgZG8gVGFibGVOYW1lIGEgbmFzdGF2aXMgc2kgVGFibGVU
eXBlDQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjQu
OS4yMDAyIEFsZbkgS3Jlc3RhOg0KPiBEb2JyeSBkZW4sDQo+ICAgIGRhIHNlIG5lamFrIG5hc3Rh
dml0IGtvbXBvbmVudGUgVFRhYmxlIGNpc3RlIHRhYnVsa2EsIGFuaXogYnljaCBtdXNlbA0KPiB0
dm9yaXQgYWxpYXMuLi4gQSBkYSBzZSB2dWJlYyBuZWphayB2eXR2b3JpdCBhbGlhcyBuYSBwb2Np
dGFjaSBrZGUgamUNCj4gbmFpbnN0YWxvdmFuIGNpc3RlIGplbm9tIG9wZXJhY25pIHN5c3RlbShr
b25rcmV0bmUgV2luOThTRSk/Pz8gUG9wcmlwYWRlIGRhDQo+IHNlIHZ5dHZvcml0IHYgZGVscGhp
IHByb2dyYW0ga3RlcnkgYnkgdG8gZG9rYXphbD8/PyBKYWs/Pz8NCj4gICAgUHJlZGVtIGRpa3kg
emEgb2Rwb3ZlZA0KIA==
Nativne komponenty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 00:38:36
From: "Josef Obdrz�lek" <it-boss2(zv)seznam(tec)cz>
> Vyhoda spociva take v tom, ze jsou dostupne primo v IDE bez nutnosti
> doinstalovavani ruznych komponent.
To asi nebude presne ta spravna definice.
Petr Vones
Nalezeni souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 01:31:11
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Dalsim spekem je skutecnost, ze programek spolehlive chodi pod WIN95, 98
A kde nechodi a jaka je na tom systemu verze imagehlp.dll ? Z vyse uvedeneho
vypada, ze asi bude lepsi si to napsat primo pomoci FindFirst/Next (coz ta
funkce stejne tak dela), kde si budes moci pridat i dalsi veci dle potreby.
Petr Vones
TCPIP komunikace s TApdWinSockPort
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 01:33:40
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> ahoj mam takovy neobvykly problem:
> delame na TCPIP komunikaci mezi java aplikaci (appletem) a win32 aplikaci
> napsanou v delphi. vse fungovalo do te doby, nez jsme na strane win32
> aplikace nahradili TServerSocket za TApdWinSockport od TurboPower. ten se
TServerSocket by v principu mel fungovat. Jinak pouzij Indy nebo Synapsi.
Petr Vones
OT: Sql command pro vyber pomoci AND.
[*] Ing. Pavel �ilinec����)b���zf���3 - 5.9.2002 05:58:46
A co treba dotaz predtim?
Select (zv)Pocet = count(*) From Table1 Where (Cena = 100) and (Cena = 200)
if (zv)Pocet = 2
Select * From Table1 Where (Cena = 100) and (Cena = 200)
Nebo to dat do pomocne tabulky a pak to otestovat (aby se nemusel
provadet vyber nad pripadne velkou tabulkou dvakrat)
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
DM> Potreboval bych asi takovyto SQL select:
DM> Select * From Table1 Where (Cena = 100) and (Cena = 200)
DM> Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak definovat
DM> podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva zaznamy jeden by
DM> mel cena=100 a druhy cena=200 vratil by mi select oba dva. Pokud vsak
DM> napriklad druhy zaznam bude mit cena=300, pak mi select nevrati ani jeden
DM> zaznam. Ale jak to zapsat?
Re[2]: tabulatory v MEMU
[*] Ing. Pavel �ilinec����)b���zf���3 - 5.9.2002 06:02:28
Dej si TListView na form, ViewStyle si nastav na vsReport, pres
prave tlacitko si pridej treba tri sloupce a pak si pres prave tlacitko
nadefinuj nejake radky a priklad je na svete.
Trocha snahy by neuskodilo :(
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
TB> Muze to byt cokoliv, akorat s mymi zacatecnickymi znalostmi o TListView
TB> nevim vubec nic.
TB> Pokud neni slozite to vysvetlit - budu Vam vdecny kdyz to zkusite.
TB> Tomas Barta
Aplikace v D5 & COM port
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 5.9.2002 07:36:26
Existuje komponenta ComPort pro pr�ci se seriovymi porty. Najdes ji i na
http://sodev.webzdarma(tec)cz/
Rumcajs
> Ahoj, potreboval bych poradit s COM portem. Chtel bych pomoci COM portu a
> aplikace v D5 provadet zvolene funkce, ale vubec netusim jak nato. Hlavne
co
> a jak "poustet" do COMu. Poradite?
> predem diky Mirek
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Problem s osetrenim chyby pri tisku v Sinea 2000
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 5.9.2002 08:18:39
> From: Pawell None
>
> mam problem s osetrenim chyby pri tisku
>
> Vsechno funguje do okamziku, nez se pokusim tisknout na
> neplatnou tiskarnu
> (napr. tisk na sitovou tiskarnu, kdyz jsem odpojen od site).
> To dojde k vyjimce "Print selected is not valid".
>
> try
> Print;
> except
> //rekni to uzivateli
> end;
> //pokud se nepodaril tisk, uzivatel to muze zkustit znovu
>
> Tim se mi podari odchytit vyjimku, ale zustane mi viset
> dialog s textem
> "Odesilam data do stiskarny" dokud nezavru form,
> ze ktereho jsem volal Print.
To, ze zustane viset okno je problem Siney.
V pristim update jiz snad bude odstranen.
Jinak to lze prozatim osetrit takto:
try
if Printer.Handle <> 0 then
Sestava.Print;
except
//rekni to uzivateli
end;
>
> Kdyz to sam� udel�m pro preview, tak se mi
> nepodar� zachytit ani tu vyj�mku.
Preview nema s tiskarnou nic spolecneho.
Preview zobrazi sestavu na monitoru
a je mu uplne jedno, kolik, jakych a zda vubec
jsou v systemu nejake tiskarny.
Tady neni zadny duvod, aby k nejake vyjimce
s neplatnou tiskarnou vubec doslo.
Vaclav Krmela
Try..except - nov� dotaz
[*] bardon <bardon(zv)akord-soft(tec)cz> - 5.9.2002 08:27:13
Existuje neco podobneho pro datum, datumcas, float... ? Hledal jsem v helpu
a nenasel jsem ani konvezi, ktera by neprodukovala exception (jsou tam jen
StrToDate, StrToDateTime, StrToFloat ... a ty vsechny produkuji exception,
kdyz nedostanou validni string. A nenasel jsem ani nic jako IsValidDate,
IsValidDateTime, IsValidFloat. Mozna se to jmenuje jinak, nez jak hledam,
ale jestli to tam opravdu neni, tak by me zajimalo proc to tam neni.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
From: "Kr�l Jirka" <admin(zv)printo(tec)cz>
> A nasel by se na tohle i typicky spravny postup?
Jiste, napriklad funkce StrToIntDef. Podivej se jak je implementovana a bude
to z toho myslim jasne.
Petr Vones
Naplneni TWebBrowser jinym ContentType nez text/ht
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 5.9.2002 08:30:19
Nekolikrat tady probehl zpusob jak naplnit TWebBrowser
vlastnim dokumentem (bez ulozeni do souboru). To funguje
s HTML dokumenty, ale napriklad XML dokument se
zobrazi nespravne. Lze nejak nastavit typ dokumentu,
popr. jak predat kompletni hlavicku, kterou by normalne
TWebBrowser obdrzel od WWW serveru ?
Diky
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Ovlivneni caption child okna v MDI aplikaci pri ma
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 5.9.2002 08:33:18
Ahoj vespolek!
Mam MDI aplikaci. Standartne pri maximalizaci child okna se obsah caption
child okna prida ke caption hlavniho okna a titulkovy pruh child okna zmizi.
Lze nejak jednoduse udelat, aby pri maximalizaci child okna se okno roztahlo
do maximalne mozne velikosti a soucasne zustal viditelny pruh zahlavi okna s
caption?
Predem diky.
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 069 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Sql command pro vyber pomoci AND.
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 5.9.2002 08:34:56
Select * From Table1 Where (Cena = 100) OR (Cena = 200)
^^
A.
> -----Original Message-----
> From: David Michal [mailto:david.michal(zv)www-bv.com]
>
> Select * From Table1 Where (Cena = 100) and (Cena = 200)
>
> Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak definovat
> podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva
> zaznamy jeden by
> mel cena=100 a druhy cena=200 vratil by mi select oba dva. Pokud vsak
> napriklad druhy zaznam bude mit cena=300, pak mi select
> nevrati ani jeden
Je program spusteny?
[*] Martin =?ISO-8859-2?Q?Nov=E1k ?= <mnk(zv)centrum(tec)cz> - 05.9.2002 08:48:47
Zdravim,
jak zjistim v Delphi 5 (WIN98SE) zda je program spusteny. Neznam
nazev okna, ale nazev exe souboru. A jak zjistim jake vsechny
programy jsou spusteny. Jako pri Alt+Ctrl+Del?
Dekuji. S pozdravem Martin.
--------------------
ZDARMA a RYCHL� zas�l�n� SMS z www.posliSMS(tec)cz
Objekty
[*] Erik Salaj <winsoft(zv)stonline.sk> - 5.9.2002 08:55:30
> Mozna, ale pouzivat misto jedne konstrukce if ... then try..raise..except
neni
> prilis pohodlne a navic v tom puvodnim prikladu to melo jeste dalsi chybu
a
> to, ze se takto 'neosetrovala' pouze predpokladana vyjimka, ale vsechny
dalsi
> ktere mohly indikovat jinou dalsi (tentokrate skutecne nepredpokladanou)
> chybu.
>
> Timto 'modernim' stylem by jsme se vlastne mohli dostat i ke konstrukcim
jako
> (pripad kdy instance objektu nemusi existovat):
Try/finally/except nie je vlastne nic ine, len vylepsene "goto". Ma svoje
opodstatnenie ak nie je nic lepsie k dispozicii, ale netreba to prehanat.
Rozhodne if prikaz je "normalnejsi" na riadenie programu ako
generovanie a odchytavanie vynimiek.
Erik
Objekty
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 5.9.2002 09:23:29
> > No jo, jenze to je dnes modni a dokonce to ma svuj terminus
> technicus -
> > ofenzivni programovaci styl :-))))). Nediv se, je to
> pohodlnejsi, mene
> > narocne na hlavu a zejmena to zapada do komercniho modelu
> prodeje SW. Proc
>
> Mozna, ale pouzivat misto jedne konstrukce if ... then
> try..raise..except neni
> prilis pohodlne a navic v tom puvodnim prikladu to melo jeste
> dalsi chybu a
> to, ze se takto 'neosetrovala' pouze predpokladana vyjimka,
> ale vsechny dalsi
> ktere mohly indikovat jinou dalsi (tentokrate skutecne
> nepredpokladanou)
> chybu.
Ahoj,
minil jsem to spis jako pokus o trpky zert. Muj nazor na vec se shoduje s
Tvym, tj. pouziti exception by se nemelo systematicky pouzivat jako
zkratkove osetreni vsech chyb (tedy i chyb v analyze :-)). Za prve je to
nejspis neefektivni, za druhe to muze zakryvat chyby v algoritmech, za
jejichz odhalovani se pak krvave plati (mysleno pouze zcasti obrazne :-)) v
rutinnim nasazeni.
> Jinak receno, pouziva-li se nekde konstrukce try..except je
> nutne dobre zvazit
> jeji oduvodnenost a mozne dusledky.
Naprosty souhlas.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
>
> Petr Vones
dbExpress + MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 09:31:32
On 4 Sep 2002 at 2:29, Erik Salaj wrote:
> zaujimavym krokom ma byt dalsia verzia MS SQL servera (tzv. Yukon). Ma
> umoznit programovanie storovanych procedur v .NET jazykoch a bude to
> integrovane s Visual Studiom.
****Ono to bude trosicku jinak. To, co jde ted napsat v T-SQL, pujde
napsat i v libovolnem dalsim .NET jazyku. Pro Yukona (final version
by mela byt v 2004, prvni beta pulka pristiho roku, viz
http://swnet(tec)cz/index.php?ID=18393) ma byt specialni edice VS.NET.
Jsem zvedav na rychlost, ale kdyz Oracle brzdi svoji databazi Javou,
proc by MS nemohl rychlejsim .NETem. ;-)
Slavek
> Erik
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
dbExpress + MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 09:34:29
On 4 Sep 2002 at 6:53, Erik Salaj wrote:
> > *****Multiplatformni nezavislost je stejne realna jako teply snih.
> > .NET je mnohem dal, nez cely slavny Borland s dbExpressem, ale i tam
> > jsou problemy (jak pravni, tak technicke).
> ake konkretne problemy myslis?
*****Napr. portaci na jiny OS nez Windows. Existuje sice referencni
port, ale v praxi by slo hlavne o Linux. Tam existuji jakesi Open
Source pokusy, ale cele to brzdi tusim ze dva patenty MS, ktere
nechteji autori onoho Open Source projektu koupit (udajne nemaji
penize).
Slavek
> Erik
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
BDE, dbExpress, ADO a ostatni
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 09:39:57
Ahoj,
> Problemem je, ze se musi provest
> analyza, coz zdrzuje a ze aplikace vznika zdanlive velmi pomalu a
> potom, najednou, zacne (nebo taky ne) vsechno (nebo aspon skoro
> vsechno) pracovat.
*****Opravdovy problem je, kdyz analyza u strednich a velkych
projektu chybi. Jinak aplikace zacne fungovat cela najedou jen v
pripadech nektereho modelu vyvoje software (napr. tzv. vodopad).
Ovsem v pripade iteracniho vyvoje dostavas neustale (napr. jednou
tydne) dalsi a dalsi fukcnost, coz ma dalsi efekty jako napr. ze
muzes zacit skolit drive, nez prijde ostra verze apod.
Slavek
> Pavel
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
dbExpress + MSSQL
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 09:44:12
On 4 Sep 2002 at 16:40, Zbysek Hlinka wrote:
> On 4 Sep 2002 at 13:06, Slavek Rydval wrote:
> > > Takze pri dodrzani istych pravidiel sa nezavislost na
> > > platforme dosiahnut bez problemov da.
> > *****Myslim, ze az budes delat velky projekt, pochopis, ze neda.
> Pokud nekdo nutne potrebuje poskakovat po vice databazich, pak vidim
> jako schudne reseni toto: Pro aplikaci navrhnout takove rozhrani,
> ktere je poplatne aplikaci. Toto rozhrani posatvit napriklad jako COM,
*****To je pravda, ale i tak budes muset konkretni pripad pristupu
resit v jednotlivych COMech. Problematiku jsi pouze odsunul do jine
vrstvy. ;-)
Slavek
> Zbysek Hlinka
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Sql command pro vyber pomoci AND.
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 09:47:14
Mno, jestli jsem to pochopil dobre, tak by slo neco takovehoto:
select distinct *
from table1
where exists (select * from table1 where cena = 100)
and exists (select * from table1 where cena = 200)
and not exists (select *
from table1
where cena <> 100
and cena <> 200)
Ovsem index nad sloupcem cena velmi doporuceny.
Slavek
> Co to zkusit takto:
>
> Select * From Table1 Where (Cena = 100) OR (Cena = 200)
>
>
> Martin Ben
>
> > -----Original Message-----
> > From: David Michal [mailto:david.michal(zv)www-bv.com]
> >
> > Select * From Table1 Where (Cena = 100) and (Cena = 200)
> >
> > Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak
> > definovat podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva
> > zaznamy jeden by mel cena=100 a druhy cena=200 vratil by mi select
> > oba dva. Pokud vsak napriklad druhy zaznam bude mit cena=300, pak mi
> > select nevrati ani jeden zaznam. Ale jak to zapsat?
>
>
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Sql command pro vyber pomoci AND.
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 09:49:59
Ahoj,
to pak dostanes jednak vzhledem k existum jsou zbytecne podminky
(Cena = 100) OR (Cena = 200) a take dostanes vysledek i v pripade, ze
je v tabuli napr:
100
100
200
300
coz autor nechce. Pokud chapu puvodni pozadavek, tak chce vysledek
pouze v pripade, ze v tabuli jsou pouze hodnoty 100 A 200. (spravny
select viz jiny mail).
Slavek
On 4 Sep 2002 at 21:14, Martin Cajbik wrote:
> Sice nechapem naco by to mohlo sluzit ale dalo by sa to napisat takto
>
> Select * From Table1 Where ((Cena = 100) OR (Cena = 200))
> AND EXISTS(SELECT * FROM Table1 Where Cena = 100)
> AND EXISTS(SELECT * FROM Table1 Where Cena = 200)
>
> MarCaNT (marcant(zv)sct.sk)
>
>
> > Pomoci tohoto selectu dostanu vysledek 1 radku i v pripade ze napr.
> nenajde
> > zadny row s cena=200. Ale ja potrebuji aby mi vratil vysledek pouze
> > v pripade, za najde rows jak s cena=100 tak s cena=200. David
> >
> >
> > Co to zkusit takto:
> >
> > Select * From Table1 Where (Cena = 100) OR (Cena = 200)
> >
> >
> > Martin Ben
> >
>
>
>
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Blokovani TCP/IP spojeni
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.9.2002 09:49:01
> 3. menit cilovou IP adresu packetu na nejakou neexistujici, ci jen v
lokalni
> siti ...
bez driveru, ktery bude sedet v TCP vrstve tohle nepujde. Ale muzes
odstrelovat zakazana TCP spojeni tak, ze je WinPCapem detekujes a pak
posles falesny TCP packet s RST flagem na vzdalenou stanici (pokud
bude packet obsahovat spravna sekvencni cisla zmates vzdaleny stroj a
ten si bude myslet, ze spojeni je zruseno)
Pro uplnou kontrolu nad TCP/IP komunikaci bys musel bud napsat driver
nebo obalit WinSock DLLko svym (a odriznout tak aplikace od komunikace
s originalnim WinSockem)
D. Toman
OT: Sql command pro vyber pomoci AND.
[*] Tom Beran <assas(zv)bonbon(tec)net> - 5.9.2002 08:50:46
>DM> Select * From Table1 Where (Cena = 100) and (Cena = 200)
>
>DM> Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak definovat
>DM> podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva zaznamy jeden by
>DM> mel cena=100 a druhy cena=200 vratil by mi select oba dva. Pokud vsak
>DM> napriklad druhy zaznam bude mit cena=300, pak mi select nevrati ani jeden
Select * From Table1
WHERE ((Cena = 100) AND EXISTS (SELECT * FROM Table1 WHERE Cena = 200))
OR ((Cena = 200) AND EXISTS (SELECT * FROM Table1 WHERE Cena = 100))
T.
BDE, dbExpress, ADO a ostatni
[*] Marek Eichler <marek.eichler(zv)seznam(tec)cz> - 5.9.2002 09:51:20
Zdravim,
> *****Opravdovy problem je, kdyz analyza u strednich a velkych
> projektu chybi. Jinak aplikace zacne fungovat cela najedou jen v
> pripadech nektereho modelu vyvoje software (napr. tzv. vodopad).
> Ovsem v pripade iteracniho vyvoje dostavas neustale (napr. jednou
> tydne) dalsi a dalsi fukcnost, coz ma dalsi efekty jako napr. ze
> muzes zacit skolit drive, nez prijde ostra verze apod.
**** Uz jsem to videl nekolikrat, takze se chci zeptat. Jake jsou typy
vyvoje SW a kde o tom mohu ziskat informace?
> Slavek
S pozdravem Marek Eichler
Triurovnova archytektura
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.9.2002 10:01:09
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> Muzete mi prosim nekdo osvetlit blize triurovnovou archytekturu ve vztahu k Delphi ?
> Idealni by byl nejaky priklad.
To je siroke tema, pokusim se velmi strucne:
Databazovy server -> Aplikacni server -> Klient
Pripojeni na data zprostredkovava aplikacni server (zpravidla nejaky DCOM server).
Klient neni pripojen na databazi, nemusi tedy pouzit zadnou z technologii pro pripojenina data: BDE, ADO, dbExpress, IBX, ... (tzv. "tenky" klient).
Klient si vymenuje data s aplikacnim serverem pomoci konstukce
(Klient) TClientDataSet <----> TDataSetProvider, nejaky TDataSet (Server)
anebo pripadne pomoci nejakeho vlastniho reseni (DCOM metody).
Dulezite je rozdeleni aplikacni logiky mezi klienta a aplikacni server.
Pri programovani klienta se staram jenom o vizualni prezentaci dat uzivateli a o uzivatelsky komfort (TClientDataSet).
O datovou logiku se stara aplikacni server (TDataSet), pripadne databazovy server (triggery a pod.).
Pri zmene datove logiky, pripadne pri zmene technologie pripojeni na data, pripadne pri zmene databaze se o tom Klient vubec nemusi dozvedet - pracuje pouze s TClientDataSet. Znamena to, ze i pri tak zasadnich zmenach v logice aplikace nemusim do Klienta principialne vubec sahat
Vicevrstva architektura je v Delphi podporovana ve verzi Enterprise (do verze 5).
Od verze 6 je TClientDataSet a TDataSetProvider uz ve verzi Professional. V teto verzi ale chybi tzv. DataSnap, tedy technologie DCOM prenosu dat mezi TClientDataSet a TDataSetProvider. Jenze to jsem si snadno vyresil vlastnimi silami.
Kurz "Vicevrstve aplikace" tak bez jedineho problemu skolime na verzi Delphi 6 Professional.
Jan Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Nativne komponenty
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.9.2002 10:15:41
> Odes�latel: Robert TOTH <toth(zv)lc.vszp.sk>
> V com je primarny vyznam a vyhoda nativnych komponentov ?
Pokud mas na mysli nativni databazove komponenty (IBX, komponenty ORACLE apod.) pak bych v jejich pouziti videl asi nasledujici vyhody:
1.
Nativni komponenty si lepe "tykaji" s databazi.
Postradaji balast (overhead) komponent, ktere se snazi byt "obecnejsi" (BDE a pod.)
Jsou casto viditelne rychlejsi.
Pokud dojde k nejakemu problemu (chybe) snaze se hleda, protoze tam neni ta dalsi vrstva "obecnosti".
2.
"Obecnejsi" komponenty (BDE a pod.) casto nepodporuji funkce, ktere jsou specificke pro danou databazi (napr. Two-Phase-Commit pro InterBase/FireBird), zatimco nativni komponenty tyto funkce zpravidla podporuji.
Nevyhodou nativnich komponent je prave to, ze funguji nad jedinou databazi. Jenze vetsina z nas se shodne na tom, ze kazda databaze je stejne natolik specificka, ze ani pouziti "obecnych" komponent pro prechod od jedne databaze k jine stejne bez dalsich uprav v programu nestaci.
Mozny kompromis: vicevrstva architektura - viz moje dnesni odpoved na jinou zpravu.
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Try..except
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 5.9.2002 09:19:10
Tohle je jasne.
Ale existuje nejaky ekvivalent pro Float, Date, Time, DateTime?
Dival jsem se jak je implementovano StrToDateTime a tam je to celkem
slozitejsi :-)
Vyresil uz to nekdo jinak nez pres formalni kontrolu a pak try ... except
...end?
Danik
-----Original Message-----
> A nasel by se na tohle i typicky spravny postup?
Jiste, napriklad funkce StrToIntDef. Podivej se jak je implementovana a bude
to z toho myslim jasne.
Petr Vones
BDE, dbExpress, ADO a ostatni
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.9.2002 10:20:24
> Komu: delphi-l(zv)clexpert(tec)cz
> divam se na debatu ohledne pouzivani BDE, dbExpress a pod. Zajimaly by me Vase nazory k tomuto tematu.
> Predstavte si, ze mate rozsahlou databazi v Oracle nebo Informixu. je lepsi dvou nebo viceurovnova architektura ??? Je vhodnejsi pouzit dbExpress nebo ADO ???
Moznych reseni je cela rada.
Kdyz se tady ale mluvilo o nativnich komponentach, tak proc ne vicevrstva architektura a na aplikacnim serveru TORADataSet.
Vyzkouseno, funguje jako z praku.
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
OLE Excel a formatovani
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 5.9.2002 10:39:45
Zdravim,
mam jeden mensi problem s kterym bych potreboval pomoc.
Potrebuji v Delphi 4 pomoci OLE objektu excelu naformatovat sloupec, vyber ci jen jedno pole na ciselny format 0.00
Mam napriklad:
var MyExcel,WS:OleVariant;
...
...
MyExcel:=CreateOleObject('Excel.Application');
MyExcel.Workbooks.Add();
WS:=MyExcel.Activesheet;
...
...
Formatovat jsem se pokousel takto:
1)
WS.Range[A1,A5].NumberFormat:='0.00';
nebo
WS.Cells.Item[1,1].NumberFormat:='0.00';
Pri tomto pokusu dostanu ale tuto chybu:
Neni mozne nastavit vlastnost NumberFormat tridy Range.
2)
WS.Selection.NumberFormat:='0.00';
A po tomto pokusu dostanu tuto hlasku:
Method 'Selection' not supported by automation object.
Proto se vas ptam, zda jste nekdo neco podobneho neresil a kdyz ano, tak jak.
Dekuji.
S pozdravem Pavel Koukal.
Delphi 4, upd. 2, Windows 2000, Office 2000
OLE Excel a formatovani
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 5.9.2002 10:41:41
A nechce to vzhledem k narodnimu nastaveni misto tecky carku? Pouzivam napr.
NewWorkSheet.Columns[FC + 3].NumberFormat:= '# ##0,00';
a funguje to bez problemu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunovacni 6
170 00 Praha 7
> Subject: OLE Excel a formatovani
>
>
> Potrebuji v Delphi 4 pomoci OLE objektu excelu naformatovat sloupec, vyber
ci jen jedno pole na ciselny format 0.00
>
> Mam napriklad:
>
> var MyExcel,WS:OleVariant;
> ...
> ...
> MyExcel:=CreateOleObject('Excel.Application');
> MyExcel.Workbooks.Add();
> WS:=MyExcel.Activesheet;
> ...
> ...
>
> Formatovat jsem se pokousel takto:
> 1)
> WS.Range[A1,A5].NumberFormat:='0.00';
> nebo
> WS.Cells.Item[1,1].NumberFormat:='0.00';
>
> Pri tomto pokusu dostanu ale tuto chybu:
> Neni mozne nastavit vlastnost NumberFormat tridy Range.
>
>
> 2)
> WS.Selection.NumberFormat:='0.00';
>
> A po tomto pokusu dostanu tuto hlasku:
> Method 'Selection' not supported by automation object.
>
Zdroje dat pro Ttable
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 5.9.2002 10:42:48
> 4.9.2002 Ale� Kresta:
> > da se nejak nastavit komponente TTable ciste tabulka, aniz bych musel
> > tvorit alias...
> Odes�latel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> Pridas ji primo s cesou do TableName a nastavis si TableType
Podle meho soudu je lepe v kazdem pripade pouzit komponentu TDatabase a TTable na ni privazat.
Pak se u TDatabase nastavi DriverName a Params, napr.
DriverName:='STANDARD';
Params.Values['PATH']:='d:\data\ucto';
nebo
DriveName:='INTRBASE';
Params.Values['SERVER NAME']:='win2000srv:g:\data\ucto.gdb';
> 4.9.2002 Ale� Kresta:
> > A da se vubec nejak vytvorit alias na pocitaci kde je
> > nainstalovan ciste jenom operacni system(konkretne Win98SE)??? Popripade da
> > se vytvorit v delphi program ktery by to dokazal??? Jak???
Musi byt nainstalovano BDE.
Pak lze vytvaret aliasy pomoci Session.AddAlias, Session.SaveConfigFile (nebo tak nejak).
Jenze podle me je lepsi zpusob s TDatabase.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
OLE Excel a formatovani
[*] Hole�ek Jan <Jan.Holecek(zv)autocont(tec)cz> - 5.9.2002 10:46:07
Form�tuji takto a funguje to:
FWorkSheet.Range['C'+IntToStr(RowBegin),'C'+IntToStr(Row)].NumberFormat := '0';
FWorkSheet.Range['J'+IntToStr(RowBegin),'L'+IntToStr(Row)].NumberFormat := '0,00%';
FWorkSheet.Range['M'+IntToStr(RowBegin),'P'+IntToStr(Row)].NumberFormat := '# ##0,00';
Honza
OLE Excel a formatovani
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 5.9.2002 10:57:28
Moc dekuji - problem vyresen. Staci zamenit tecku za carku a uz neni problem. Tedy misto '0.00' zadat '0,00' a je po problemu.
Asi by to chtelo dovolenou.
S pozdravem Pavel Koukal.
> Formatuji takto a funguje to:
>
> FWorkSheet.Range['J'+IntToStr(RowBegin),'L'+IntToStr(Row)].Num
> berFormat := '0,00%';
>
> Honza
>
Nativne komponenty
[*] bardon <bardon(zv)akord-soft(tec)cz> - 5.9.2002 11:03:09
Taky jsem si kdysi myslel, ze je to vyhoda. Nejak jsem zmenil nazor a dnes
si myslim, ze je vyhoda pouzivat houfy DLL, ActiveX ... :-)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of ing. Jan Fiala
V tom, ze se stanou soucasti EXE, program nepotrebuje ke svemu behu
houfy DLL a ActiveX knihoven (ktere je vetsinou treba registrovat).
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] martin.falta(zv)obi.de - 5.9.2002 11:27:34
This is a multi-part message in MIME format.
ano, jsou
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] Josef Obdr��lek <it-boss2(zv)seznam(tec)cz> - 05.9.2002 11:29:36
Diky, Pepa
(Budu se ptat tak dlouho, dokud mi nekdo neodpovi :-)))))
______________________________________________________________________
Reklama:
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 11:40:48
Ne.
Kdybys prohledal archiv, tak to i najdes. ;-)
Slavek
On 5 Sep 2002 at 11:29, Josef Obdr �lek wrote:
> Diky, Pepa
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
OT: Sql command pro vyber pomoci AND.
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 5.9.2002 11:42:51
Teorie logiky mi nejak vtirave stale naznacuje ze tyt SQL dotazy VZDY
nevrati NIC.
V jednom okamziku byva ve sloupci pouze jedna hodnota !
Neni mi jasne co to ma byt vysledkem ?
Pokud vsechny zaznamy kde Cena = 100 nebo Cena = 200
----------------------------------------------------------------------------
----------
Select * From Table1 Where (Cena = 100) OR (Cena = 200)
Pokud to ma vratit bud DVA nebo NIC tak
---------------------------------------------------------
Select (zv)Pocet = count(*) From Table1 Where (Cena = 100) OR (Cena = 200)
if (zv)Pocet = 2
Select * From Table1 Where (Cena = 100) OR (Cena = 200)
else
SELECT * From Table1 Where PK = NULL
Pavel
> Od: zilinec(zv)email(tec)cz [mailto:zilinec(zv)email(tec)cz]
>
> A co treba dotaz predtim?
>
> Select (zv)Pocet = count(*) From Table1 Where (Cena = 100) and
> (Cena = 200)
> if (zv)Pocet = 2
> Select * From Table1 Where (Cena = 100) and (Cena = 200)
> Nebo to dat do pomocne tabulky a pak to otestovat (aby se nemusel
> provadet vyber nad pripadne velkou tabulkou dvakrat)
> --------
> ing. Pavel Zilinec
> MailTo:zilinec(zv)email(tec)cz
>
> Prog-Soft s.r.o. Plzen
> Informacni system pro vyrobce
> a distributory napoju
>
> DM> Potreboval bych asi takovyto SQL select:
>
> DM> Select * From Table1 Where (Cena = 100) and (Cena = 200)
>
> DM> Takto to samozrejme nevrati nic. Ale nemohu prijit na to
> jak definovat
> DM> podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva
> zaznamy jeden by
> DM> mel cena=100 a druhy cena=200 vratil by mi select oba
> dva. Pokud vsak
> DM> napriklad druhy zaznam bude mit cena=300, pak mi select
> nevrati ani jeden
> DM> zaznam. Ale jak to zapsat?
>
Nativni pristup k FoxPro 2.5
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 5.9.2002 12:11:49
Ahoj,
delam program, ktery ma transformovat data z FoxPro 2.5 do IB, a chtel bych
se vyhnout BDE. Vite nekdo o komponente pro pristup k temto tabulkam? Nebo
je najake jine reseni ?
Prosim zachrante mne :-)
Predem dekuji
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lan�kroun
Tel: 511096, 522889, 524795
Mob: 0602592948, 0603833124
ICQ: 47636291
Nativni pristup k FoxPro 2.5
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 5.9.2002 12:24:12
Pouzit ADO.
Dan
----- Original Message -----
From: "Zdenek Brejsa" <prog(zv)hjsoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 05, 2002 12:11 PM
Subject: Nativni pristup k FoxPro 2.5
> Ahoj,
> delam program, ktery ma transformovat data z FoxPro 2.5 do IB, a chtel
bych
> se vyhnout BDE. Vite nekdo o komponente pro pristup k temto tabulkam? Nebo
> je najake jine reseni ?
>
> Prosim zachrante mne :-)
>
> Predem dekuji
>
> Zdenek Brejsa - programator HJ-SOFT s.r.o.
> Hradebni 3
> 56301 Lan�kroun
> Tel: 511096, 522889, 524795
> Mob: 0602592948, 0603833124
> ICQ: 47636291
>
>
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 5.9.2002 12:25:46
ANO jsou, nevim jestli vsechny, to at napise nekdo kdo to zna presne..
ciao
----- Original Message -----
From: "Josef Obdr��lek" <it-boss2(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 05, 2002 11:29 AM
Subject: Jsou komponenty pro ADO dostupne i ve verzi D6 Professional?> Diky, Pepa
>
>
> (Budu se ptat tak dlouho, dokud mi nekdo neodpovi :-)))))
>
> ______________________________________________________________________
> Reklama:
> Seznam Prace - Hledate praci nebo menite zamestnani?
http://prace.seznam(tec)cz
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] martin.falta(zv)obi.de - 5.9.2002 12:45:54
This is a multi-part message in MIME format.
Musim te opravit. V D6Pro komponenty pro ADO jsou. Nejsou v D5Pro, ale lze
je dokoupit.
Martin Falta
OBI IT
tel.: +420 2 96576 156
GSM: +420 603 151147
rk(zv)atrey.karlin.m
ff.cuni(tec)cz To: delphi-l(zv)clexpert(tec)cz
Sent by: cc:
delphi-l-owner(zv)cl Subject: Re: Jsou komponenty pro ADO dostupne i ve verzi D6
expert(tec)cz Professional?
05.09.2002 11:40
Please respond to
delphi-l
Ne.
Kdybys prohledal archiv, tak to i najdes. ;-)
Slavek
On 5 Sep 2002 at 11:29, Josef Obdr �lek wrote:
> Diky, Pepa
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.
Hint u DBGridu, u OnTittle
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 5.9.2002 13:03:33
Ahoj,
rad bych Vas poprosil o radu. Mam D5 a Win 2000.
Chtel bych vypsat bejaky Hint (konkretne nazev sloupce), kdyz se uzivatel postavi mysi na nazev sloupce v DBGridu.
Diky
V.
Nativne komponenty
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.9.2002 13:15:18
SmRlIG8gdG8sIGNvIGplIHRvIHphIHByb2dyYW0uIE5hdGl2bu0ga29tcG9uZW50eSBqc291IHZl
IHZldHNpbmUNCnByaXBhZHUgcnljaGxlanNpLiBWZXRzaW5vdSBtYXMgayBkaXNwb3ppY2kgemRy
b2plLCB0YWt6ZSBuZWRvc3RhbmVzDQpuZWpha291IGNlcm5vdSBza3Jpbmt1IG8ga3RlcmUgc2kg
amVuIGRvbXlzbGlzLCBjbyB2ZSBza3V0ZWNub3N0aQ0KZGVsYS4NClBva3VkIGplIHRvIHJvenNh
aGxlanNpIHByb2dyYW0sIHphc2UgdGkgdnlqZGUgbGlwIHVkZWxhdCBqZWogcw0KcG91eml0aW0g
YmFsaWNrdSAoYSBvcGV0IG5lcG90cmVidWppIEFjdGl2ZVgpDQoNCk5ldHZyZGltLCB6ZSBuZWV4
aXN0dWppIHByaXBhZHksIGtkeSBqc291IGV4dGVybmkga25paG92bnkgdnlob2RuZWpzaS4NCg0K
LS0gDQppbmcuIEphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3oNCg0KNS45LjIwMDIg
YmFyZG9uOg0KPiBUYWt5IGpzZW0gc2kga2R5c2kgbXlzbGVsLCB6ZSBqZSB0byB2eWhvZGEuIE5l
amFrIGpzZW0gem1lbmlsIG5hem9yIGEgZG5lcw0KPiBzaSBteXNsaW0sIHplIGplIHZ5aG9kYSBw
b3V6aXZhdCBob3VmeSBETEwsIEFjdGl2ZVggLi4uIDotKQ0KDQo+IFYgdG9tLCB6ZSBzZSBzdGFu
b3Ugc291Y2FzdGkgRVhFLCBwcm9ncmFtIG5lcG90cmVidWplIGtlIHN2ZW11IGJlaHUNCj4gaG91
ZnkgRExMIGEgQWN0aXZlWCBrbmlob3ZlbiAoa3RlcmUgamUgdmV0c2lub3UgdHJlYmEgcmVnaXN0
cm92YXQpLg0KDQog
Nativni pristup k FoxPro 2.5
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.9.2002 13:16:09
ODBCe, popr. pokud nepotrebujes indexy a nejsou to moc rozsahla data,
tak TDbf komponenta.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
5.9.2002 Zdenek Brejsa:
> Ahoj,
> delam program, ktery ma transformovat data z FoxPro 2.5 do IB, a chtel bych
> se vyhnout BDE. Vite nekdo o komponente pro pristup k temto tabulkam? Nebo
> je najake jine reseni ?
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 5.9.2002 13:20:46
Dovolil bych si nesouhlasit, v D6 professional jsou.
Pavel
> Od: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
>
> Ne.
>
> Kdybys prohledal archiv, tak to i najdes. ;-)
>
> Slavek
>
> On 5 Sep 2002 at 11:29, Josef Obdr �lek wrote:
>
> > Diky, Pepa
>
Nativni pristup k FoxPro 2.5
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 5.9.2002 13:23:41
Nejjednodusi je ODBC driver pro Visual FoxPro.
> -----P�vodn� zpr�va-----
> Od: Zdenek Brejsa [mailto:prog(zv)hjsoft(tec)cz]
> Odesl�no: 5. z��� 2002 12:12
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Nativni pristup k FoxPro 2.5
>
>
> Ahoj,
> delam program, ktery ma transformovat data z FoxPro 2.5 do
> IB, a chtel bych
> se vyhnout BDE. Vite nekdo o komponente pro pristup k temto
> tabulkam? Nebo
> je najake jine reseni ?
>
> Prosim zachrante mne :-)
>
> Predem dekuji
>
> Zdenek Brejsa - programator HJ-SOFT s.r.o.
> Hradebni 3
> 56301 Lan�kroun
> Tel: 511096, 522889, 524795
> Mob: 0602592948, 0603833124
> ICQ: 47636291
>
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 5.9.2002 13:28:03
ehm, nevim zda si rozumime ale v D6 Professional je v palete po instalaci 7
ADO komponent...
P.
----- Original Message -----
Subject: Re: Jsou komponenty pro ADO dostupne i ve verzi D6 Professional?
> Ne.
>
> Kdybys prohledal archiv, tak to i najdes. ;-)
>
> Slavek
>
dbExpress + MSSQL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 13:35:18
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> *****Napr. portaci na jiny OS nez Windows. Existuje sice referencni
Zajimavy bude Compact Framework na ty ruzne pidipocitace.
> port, ale v praxi by slo hlavne o Linux. Tam existuji jakesi Open
> Source pokusy, ale cele to brzdi tusim ze dva patenty MS, ktere
> nechteji autori onoho Open Source projektu koupit (udajne nemaji
> penize).
Rekl bych ze to 'nechteji' bude silnejsi nez ze 'udajne nemaji penize'.
Koneckoncu je to predevsim jejich problem. Dalsim zajimavym cilem by mohl byt
MacOS.
Petr Vones
dbf
[*] Hlas <hlas(zv)inmail.sk> - 5.9.2002 13:41:38
potrebujem vyvorit dbf tabulku z kodu s polom
N 12.2
a
N 10
string a datum mi ide neviem parametre pre numeric.
Viete poradit?
to je ok:
with TblDBF.FieldDefs.AddFieldDef do
begin
Name:='MENA';
DataType:=ftString;
Size:=3;
Required:=False;
end;
toto nefunguje:
with TblDBF.FieldDefs.AddFieldDef do
begin
Name:='CIASTKA';
DataType:=ftFloat;
//Size:=2;
//Precision:=2;
Required:=False;
end;
OLE Excel a formatovani
[*] Hlas <hlas(zv)inmail.sk> - 5.9.2002 13:45:49
skus '0.00' nahradit '0,00'
----- Original Message -----
From: "Koukal Pavel" <Pavel.Koukal(zv)pvt(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 05, 2002 10:39 AM
Subject: OLE Excel a formatovani
Zdravim,
mam jeden mensi problem s kterym bych potreboval pomoc.
Potrebuji v Delphi 4 pomoci OLE objektu excelu naformatovat sloupec, vyber
ci jen jedno pole na ciselny format 0.00
Mam napriklad:
var MyExcel,WS:OleVariant;
...
...
MyExcel:=CreateOleObject('Excel.Application');
MyExcel.Workbooks.Add();
WS:=MyExcel.Activesheet;
...
...
Formatovat jsem se pokousel takto:
1)
WS.Range[A1,A5].NumberFormat:='0.00';
nebo
WS.Cells.Item[1,1].NumberFormat:='0.00';
Pri tomto pokusu dostanu ale tuto chybu:
Neni mozne nastavit vlastnost NumberFormat tridy Range.
2)
WS.Selection.NumberFormat:='0.00';
A po tomto pokusu dostanu tuto hlasku:
Method 'Selection' not supported by automation object.
Proto se vas ptam, zda jste nekdo neco podobneho neresil a kdyz ano, tak
jak.
Dekuji.
S pozdravem Pavel Koukal.
Delphi 4, upd. 2, Windows 2000, Office 2000
Sql command pro vyber pomoci AND.
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 5.9.2002 13:54:11
Premyslel jsem o tom taky, ale nechapu k cemu to muze byt dobre
Martin Ben
> -----Original Message-----
> From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
>
> Mno, jestli jsem to pochopil dobre, tak by slo neco takovehoto:
>
> select distinct *
> from table1
> where exists (select * from table1 where cena = 100)
> and exists (select * from table1 where cena = 200)
> and not exists (select *
> from table1
> where cena <> 100
> and cena <> 200)
>
> Ovsem index nad sloupcem cena velmi doporuceny.
Nalezeni souboru
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 5.9.2002 13:57:06
> > Dalsim spekem je skutecnost, ze programek spolehlive chodi pod WIN95, 98
>
> A kde nechodi a jaka je na tom systemu verze imagehlp.dll ? Z vyse
uvedeneho
> vypada, ze asi bude lepsi si to napsat primo pomoci FindFirst/Next (coz ta
> funkce stejne tak dela), kde si budes moci pridat i dalsi veci dle
potreby.
Jak jsem psal tak na WIN95,98 programek bez problemu beha, na mojem PC s
WIN2000 a vsemy opravnymi zaplatami najde soubor pouze v adresari Winnt a
vsech jeho podadresarich. Pokud je ale hledany soubor kdekoliv jinde vcetne
rootu
program si ani ne�krtne. Na WIN XP jsem nemel moznost chovani programu
vyzkouset.
Verze Imagehlp.dll v adresari c:\Winnt\system32\ je "5.00.2195.2778"
Pokud nekdo ma hotovy zdrojak na vyhledavani souboru "FindFirst/Next " a byl
by ochoten jej zaslat budu vdecny.
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.385 / Virov� b�ze: 217 - datum vyd�n�: 4.9.2002
Jsou komponenty pro ADO dostupne i ve verzi D6 Pro
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 14:00:19
Aha, vychazel jsem z toho, co mam napsano na krabici. V tom pripade
se omlouvam za mystifikaci.
Slavek
> Musim te opravit. V D6Pro komponenty pro ADO jsou. Nejsou v D5Pro, ale
> lze je dokoupit.
>
> Martin Falta
> OBI IT
> tel.: +420 2 96576 156
> GSM: +420 603 151147
>
>
>
> rk(zv)atrey.karlin.m
> ff.cuni(tec)cz To:
> delphi-l(zv)clexpert(tec)cz
> Sent by: cc:
> delphi-l-owner(zv)cl Subject:
> Re: Jsou komponenty pro ADO dostupne i ve verzi
> D6 expert(tec)cz
> Professional?
>
>
> 05.09.2002 11:40
> Please respond to
> delphi-l
>
>
>
>
>
>
>
> Ne.
>
> Kdybys prohledal archiv, tak to i najdes. ;-)
>
> Slavek
>
> On 5 Sep 2002 at 11:29, Josef Obdr �lek wrote:
>
> > Diky, Pepa
>
> --------------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
> --------------------------------------------------------
> Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
>
>
>
>
>
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
Nativne komponenty
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 05.9.2002 14:03:57
Ahoj,
to neni zase tak uplne pravda - ikdyz maz nativni komponenty,
potrebujes databazoveho klienta (napr. na oracle, interbasi, ...). S
dbExpresem (krome pridani dalsi zbytecne vrstvy) musis pribalit dalsi
knihovnu, ale ty zakladni zustavaji. Vypada to napr. takto:
IBExpres ---> gds32.dll --> interbase
dbExpres --> dbExpress pro IB --> gds32.dll --> interbase
Slavek
> V tom, ze se stanou soucasti EXE, program nepotrebuje ke svemu behu
> houfy DLL a ActiveX knihoven (ktere je vetsinou treba registrovat).
> proste vezmes EXE a bezi bez instalace (s vyjimkou BDE apod.)
> ing. Jan Fiala
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
TCPIP komunikace s TApdWinSockPort
[*] likeapear <likeapear(zv)centrum(tec)cz> - 5.9.2002 14:07:49
no, zda se, ze chyba je u TurboPower tzn. v TApdWinSockPort. Totiz pokud je
TApdWinSockPort server (WsType=wsServer) a jako klient je TClientSocket,
problem nastava take. Zkusim jim tam napsat a uvidime co z nich vypadne...
likeapear
----- Original Message -----
From: "likeapear" <likeapear(zv)centrum(tec)cz>
To: "konference_delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 04, 2002 5:31 PM
Subject: TCPIP komunikace s TApdWinSockPort
> ahoj mam takovy neobvykly problem:
> delame na TCPIP komunikaci mezi java aplikaci (appletem) a win32 aplikaci
> napsanou v delphi. vse fungovalo do te doby, nez jsme na strane win32
> aplikace nahradili TServerSocket za TApdWinSockport od TurboPower. ten se
> zdal byt spolehlivejsi az na to, ze pokud z appletu odejte packet
> obsahujici byty o hodnote 255, tak je TApdWinSockPort proste neprijme.
>
> pritom:
> - pokud to prijima TServerSocket (standardne dodavany s Delphi), tak to
> funguje ale jinak tu komponentu nemam rad
> - pokud jsem zkusil na obou stranach ApdWinSockPort funguje to taky
>
> koukame na to jako blazni a nevime si rady. nenarazil jste nekdo na neco
> podobneho? vim ze je to celkem okrajova zalezitost, ale budu vdecny za
> jakykoliv tip.
>
> likeapear
>
>
>Nativni pristup k FoxPro 2.5
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.9.2002 14:13:10
5.9.2002 Lstiburek Pavel:
> Nejjednodusi je ODBC driver pro Visual FoxPro.
Tazatel to chtel bez BDE.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Try..except
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 14:19:08
From: "Daniel Frantik" <frantik(zv)telpro(tec)cz>
> Ale existuje nejaky ekvivalent pro Float, Date, Time, DateTime?
StrToFloatDef
StrToDateDef
StrToDateTimeDef
StrToTimeDef
Petr Vones
Sql command pro vyber pomoci AND.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 5.9.2002 14:21:00
No k necemu dobre to je. :)
Zde jsem napsal priklad s cenou jelikoz mi to prislo jednodusi nezli
popisovat skutecnou situaci kterou jsem resil. Ve skutecnosti chci takto
porovnavat datumy. A to u tabulky kde je hodne dulezite zda pokud je vyplnen
napriklad zaznam datum1 = 1.9.2002, tak musi byt v jinem row vyplnen zaznam
datum2 = 1.10.2002. Takze proto jsem resil jak vyresit operator and mezi
rows a nemohl jsem pouzit operator or.
Diky,
David
Premyslel jsem o tom taky, ale nechapu k cemu to muze byt dobre
Martin Ben
> -----Original Message-----
> From: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
>
> Mno, jestli jsem to pochopil dobre, tak by slo neco takovehoto:
>
> select distinct *
> from table1
> where exists (select * from table1 where cena = 100)
> and exists (select * from table1 where cena = 200)
> and not exists (select *
> from table1
> where cena <> 100
> and cena <> 200)
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.385 / Virus Database: 217 - Release Date: 04/09/2002
Sql command pro vyber pomoci AND.
[*] "K�ss, Pavel" <Pavel.Kaess(zv)trimondo(tec)com> - 5.9.2002 15:13:29
ty prvni dva selecty jsou zbytecny: staci
select * from table1
where ((cena = 100) or (cena = 200))
and not exists (select * from table1 where cena <> 100 and cena <> 200);
> -----Original Message-----
> select distinct *
> from table1
> where exists (select * from table1 where cena = 100)
> and exists (select * from table1 where cena = 200)
> and not exists (select *
> from table1
> where cena <> 100
> and cena <> 200)
>
> Ovsem index nad sloupcem cena velmi doporuceny.
> > > Select * From Table1 Where (Cena = 100) and (Cena = 200)
> > >
> > > Takto to samozrejme nevrati nic. Ale nemohu prijit na to jak
> > > definovat podobne dotazy. Tzn. v tomto pripade by v Table1 byly dva
> > > zaznamy jeden by mel cena=100 a druhy cena=200 vratil by mi select
> > > oba dva. Pokud vsak napriklad druhy zaznam bude mit cena=300, pak mi
> > > select nevrati ani jeden zaznam. Ale jak to zapsat?
>
Nativni pristup k FoxPro 2.5
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 5.9.2002 15:29:34
> ODBCe,
HMM to asi ne, nemuzu uzivatele nutit, aby se kvuli jednorazove akci ucil
konfigurovat ODBC a ja taky neminim kvuli tomu jezdit po stovkach zakazniku
popr. pokud nepotrebujes indexy a nejsou to moc rozsahla data,
> tak TDbf komponenta.
mam pocit ze nepodporuje MEMO (cili *.ftp) - nelze pouzit
nenajde se neco jineho
> > Ahoj,
> > delam program, ktery ma transformovat data z FoxPro 2.5 do IB, a chtel
bych
> > se vyhnout BDE. Vite nekdo o komponente pro pristup k temto tabulkam?
Nebo
> > je najake jine reseni ?
>
Nativni pristup k FoxPro 2.5
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 5.9.2002 16:19:07
> ODBCe, popr. pokud nepotrebujes indexy a nejsou to moc rozsahla data,
> tak TDbf komponenta.
TDbf jsem pouzil s velkym uspechem, memo umi bez problemu,
rychlost i pri desitkach tisic zaznamu na vstupu zcela vyhovujici. Jen
kdyz je na te tabulce povesen CDX index ve kterem je nejaka
foxkova funkce tak je potreba ten CDX (pro vstup do delfi cili
samozrejme na kopii vstupniho souboru!) ustrihnout vymazanim
ctvrteho bytu od konce hlavicky DBF.
Prevod komponent do D7
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 5.9.2002 17:14:47
Ahoj vsichni,
Pokousim se komponenty co jsem mel v D6 Pro nainstalovat do D7 Pro a
narazil jsem na banalni problem.
Cele adresare s komponentami a jejich zdroji jsem si zkopiroval do
jineho umisteni pustil jsem compilaci, ktera probehla v poradku, ale
kdyz dam instalovat komponentu tak se objevi hlaseni
Nemuzu nahrat balicek RTL60 protoze obsahuje unitu system, ktery je
take obsazen v balicku RTL70.
Prohledl jsem snad vsechy soubory a nemohu tuto vec najit. Kompiluji
to pod D7 je pravda, ze mam nainstalovany take D5 a D6, ale jak mam
tomu rici, aby to zadny RTL60 nepouzivalo.
Diky za vsechy napady.
Zajimave je, ze FastReport mam zkompilovay stejny zpusobem bez
problemu a ted tam potrebuji dostat jeste Pragnan exporty a nic.
FlashFiller je taky bez vetsich problemu preveden.
--
S pozdravem,
Martin Radvansky
Pocitani vytistenych stranek ve Win 2000
[*] Ludek Finstrle <xfinstrl(zv)informatics.muni(tec)cz> - 5.9.2002 17:20:33
> potreboval bych sledovat, ktery uzivatel vytisknul kolik stranek na
> ktere tiskarne ve Windows 2000. Pod Win95 jsem to resil tim, ze jsem
> si napsal vlastni .DRV soubor, ale ve Win2000 bude, predpokladam,
> nejake elegantnejsi reseni, univerzalni pro vsechny tiskarny.
> Nakopnete me prosim nekdo spravnym smerem?
W2k presne neznam, ale ve WinNT se kazdej tisk (tusim i s poctem stran)
zapisuje nekam, odkud si to lze prohlednout EventViewerem.
Takze se kdyztak zkuste kouknout timto smerem
Luf
dbExpress + MSSQL
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 5.9.2002 17:24:01
On 5 Sep 2002 at 9:44, Slavek Rydval wrote:
> > > *****Myslim, ze az budes delat velky projekt, pochopis, ze neda.
> > Pokud nekdo nutne potrebuje poskakovat po vice databazich, pak vidim
> > jako schudne reseni toto: Pro aplikaci navrhnout takove rozhrani,
> > ktere je poplatne aplikaci. Toto rozhrani posatvit napriklad jako
> > COM,
> *****To je pravda, ale i tak budes muset konkretni pripad pristupu
> resit v jednotlivych COMech. Problematiku jsi pouze odsunul do jine
> vrstvy. ;-)
Ano, tak jsem to mel take na mysli. Jde o to, ze v te vrstve resim
jen databazi a nic jineho, a v ramci celeho reseni mi pak staci
prohodit pouze jeden objekt, aniz bych musel zasahovat do dalsich
casti aplikace.
Takto mam resenou architekturu Lokalizatoru, a treba v pripade
slovniku je mi srdecne jedno, zda uzivatel bude pouzivat mou
strukturu slovniku, nebo si udela modul nad nejakou databazi nebo XML
nebo zda pouzije slovnik z Delphi ITM. A osvedcilo se mi to.
S pozdravem
Zbysek Hlinka
Prevod komponent do D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.9.2002 17:29:54
From: "Martin Radvansky" <delphicz(zv)stereo(tec)cz>
> Nemuzu nahrat balicek RTL60 protoze obsahuje unitu system, ktery je
> take obsazen v balicku RTL70.
Patrne je tam nejaky zmatek v cestach.
Petr Vones
Try..except
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 5.9.2002 17:38:34
Kde jsou? Nejak je nemuzu najit :-(
Samozejme jsem je hledal, ale nenasel.
Diky,
Danik
PS: zapomel jsem D5,IB,Oracle WinNT
> Ale existuje nejaky ekvivalent pro Float, Date, Time, DateTime?
StrToFloatDef
StrToDateDef
StrToDateTimeDef
StrToTimeDef
Petr Vones
Nativni pristup k FoxPro 2.5
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.9.2002 20:33:37
5.9.2002 Zdenek Brejsa:
>> ODBCe,
> HMM to asi ne, nemuzu uzivatele nutit, aby se kvuli jednorazove akci ucil
> konfigurovat ODBC a ja taky neminim kvuli tomu jezdit po stovkach zakazniku
A jaky je problem nakonfigurovat ODBC programove ?
Je to jen zapis v registrech.
ODBCe jsou nativni komponenty pro praci s ODBC
> popr. pokud nepotrebujes indexy a nejsou to moc rozsahla data,
>> tak TDbf komponenta.
> mam pocit ze nepodporuje MEMO (cili *.ftp) - nelze pouzit
TDBF podporuje memo u dBase4 formatu (cili DBT). Ja ji mam upravenou i
pro memo z FoxPro (viz http://pspad.zde(tec)cz utilitka PSDbfview)
> nenajde se neco jineho
A co tedy vlastne chces ? Aby to nebylo BDE, nemuselo se to
konfigurovat...
Pak jsou samozrejme placene komponenty. Ale to urcite taky nechces, co ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Try..except
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 5.9.2002 20:45:17
> > Ale existuje nejaky ekvivalent pro Float, Date, Time, DateTime?
> StrToFloatDef
> StrToDateDef
> StrToDateTimeDef
> StrToTimeDef
V SysUtils take existuji uzitecne funkce
function TryStrToInt(const S: string; out Value: Integer): Boolean;
function TryStrToFloat(const S: string; out Value: Extended): Boolean;
... a dalsi
kupodivu vsak o nich nejsou zmineny v helpu
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.