Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Pouziti cizi DLL v D5 a D2007
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 15.10.2008 20:18:01
Zdravim,
Mam aplikaci v D5, ktera pouziva 3rd party DLL (C++), funguje OK. Aplikaci
zkompiluji pod D2007 a prvni volani funkce z teto DLL konci
(nedokumentovanou) chybou, ktera se v pripade D5 nikdy neobjevila.
Win XP SP 2
Absolutne netusim, po cem jit. Mate nekdo nejaky tip?
Dekuju predem.
Martin
Firebird, jak udelat FormatFloat?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.10.2008 14:11:32
> Poradi nekdo?
Nepises jaka verze FB, tak budu predpokladat posledni stable.
select lpad('2008', 4, '0') || '/' || lpad('03', 2, '0') || '/' ||
lpad(1, 4, '0') from rdb$database
Prvni dva lpad zrovna v tomto pripade nejsou treba, ale kdo vi ...
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Firebird, jak udelat FormatFloat?
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 19.10.2008 13:29:29
Asi by to slo vymyslet pomoci UDF funkci z knihovny rFunc (pokud neznas, tak je to napr. na http://rfunc.sourceforge.net/). Jsou tam mimo jine retezcove fce StrLen a StrRepeat, ze kterych by to slo asi zkombinovat. Ta knihovna je frii pro Linux i Win.
M. Dvorak
>>> sladek(zv)czhops(tec)cz 19.10.2008 13:11 >>>
Potrebuju v SQL prikazu vyrobit cislo dokladu, ktere je slozene (pocitane) z nekolika ulozenych udaju a vypada napriklad takto: 2008/03/0001
V databazi mam ulozene samostatne udaje
Rok 2008 (je to smallint)
Vydavajici sklad 03 (je to varchar(2))
Cislo vydejky 1 (je to integer)
Nevim, jak to cislo vydejky 1 prevest na retezec 0001.
Potrebuju to udelat v SQL prikazu SELECT, ne v kodu Delphi.
Poradi nekdo?
Diky. Jiri Sladek
Firebird, jak udelat FormatFloat?
[*] Jiri Sladek <sladek(zv)czhops(tec)cz> - 19.10.2008 13:11:28
Potrebuju v SQL prikazu vyrobit cislo dokladu, ktere je slozene (pocitane) z nekolika ulozenych udaju a vypada napriklad takto: 2008/03/0001
V databazi mam ulozene samostatne udaje
Rok 2008 (je to smallint)
Vydavajici sklad 03 (je to varchar(2))
Cislo vydejky 1 (je to integer)
Nevim, jak to cislo vydejky 1 prevest na retezec 0001.
Potrebuju to udelat v SQL prikazu SELECT, ne v kodu Delphi.
Poradi nekdo?
Diky. Jiri Sladek
SQL dotaz na pocty zaznamu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 18.10.2008 13:13:58
2008/10/18 <delphi(zv)elra(tec)cz>:
> Pokud ale vsichni lide maji vyplnen kod pojistovny, dostanu jen seznam pojistoven, ktere maji alespon 1 pojistence. Ja vsak chci seznam vsech pojistoven s poctem pojistencu, tedy i s 0.
Pravdepodobne pouzivas inner join, potrebujes ale outer join.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
SQL dotaz na pocty zaznamu
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 18.10.2008 12:41:56
ano, vim, dej sem ten dfotaz, takto je to dost tezky. napada mne to, ze
count nebere null hodnoty, ale to by zase bylo v rozporu stvoji prvni casti,
ze tam ti to funguje. hod sem ten dotaz. KER
http://www.dbsvet(tec)cz - urcete viteze produktu roku 2008
SQL dotaz na pocty zaznamu
[*] delphi(zv)elra(tec)cz - 18.10.2008 12:39:56
Se omlouvam, v prubehu psani jsem to omylem odeslal a nedopsal.
select ifnull(count(cleni.zdrpoj_kod),0) As pocet,
zdravpoj.KOD, zdravpoj.ZKRATKA, zdravpoj.NAZEV
from cleni, zdravpoj
where cleni.ZDRPOJ_KOD = zdravpoj.KOD or cleni.ZDRPOJ_KOD is null
group by kod
Predem dik
Petr
> Dobry den,
> nevite nekdo kde delam chybu?
>
> Mam SQL dotaz na pocet pojistencu pres 2 tabulky, seznam lidi a pojistoven.
> Pokud je alespon 1 hodnota kodu pojistovny u seznamu lidi NULL, tak je to
> OK.
> Pokud ale vsichni lide maji vyplnen kod pojistovny, dostanu jen seznam
> pojistoven, ktere maji alespon 1 pojistence. Ja vsak chci seznam vsech
> pojistoven s poctem pojistencu, tedy i s 0.
>
>
>
SQL dotaz na pocty zaznamu
[*] delphi(zv)elra(tec)cz - 18.10.2008 12:35:56
Dobry den,
nevite nekdo kde delam chybu?
Mam SQL dotaz na pocet pojistencu pres 2 tabulky, seznam lidi a pojistoven.
Pokud je alespon 1 hodnota kodu pojistovny u seznamu lidi NULL, tak je to OK.
Pokud ale vsichni lide maji vyplnen kod pojistovny, dostanu jen seznam pojistoven, ktere maji alespon 1 pojistence. Ja vsak chci seznam vsech pojistoven s poctem pojistencu, tedy i s 0.
Pouziti cizi DLL v D5 a D2007 - VYRESENO
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 17.10.2008 10:00:16
Takze opet chyba mezi zidli a klavesnici.
Jednak to volani nebylo prvni, ale druhe. Nejdrive se volala funkce typu:
TDllOpen = function(var hOpen: TDAHandle; Flags: PLongWord; Callback: pointer;
UserData: pointer): integer; stdcall;
a tady byl problem v tom, ze jako parametr Flags se predaval pointer
na WORD (hodnota 1), nikoli LongWord.
V D5 to proslo, v D2007 nikolivek.
Dalibore, dekuju moc za podporu.
DevExpress Grid - pohyb po radcich
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 20.10.2008 07:48:38
Ahoj
Nemohu prijit jak nastavit dbgrid od DevExpress tak aby se pomoci
kolecka na mysi pohyboval po jednotlivych radcich
Diky moc Jura
DevExpress Grid - pohyb po radcich
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 20.10.2008 08:00:39
Ahoj
Ve Windows, ovladaci panely, mys, vlastnosti, kolecko
Pavel
Heinisch Jiri napsal(a):
> Ahoj
>
> Nemohu prijit jak nastavit dbgrid od DevExpress tak aby se pomoci
> kolecka na mysi pohyboval po jednotlivych radcich
>
> Diky moc Jura
>
>
>
DevExpress Grid - pohyb po radcich
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 20.10.2008 09:02:43
No nevim jak to myslis, me kolecko funguje ve vsech programech, ve vsech
gridech (v Delphi "tovarni" grid i od JVCL) mimo prave zminovaneho
DevExpress gridu.
A i kdyz si stahnu jejich demoverze tak mi to tam taky nikde nejde ! :-(
Pavel Gazda napsal(a):
> Ahoj
>
> Ve Windows, ovladaci panely, mys, vlastnosti, kolecko
>
> Pavel
>
>
> Heinisch Jiri napsal(a):
>> Ahoj
>>
>> Nemohu prijit jak nastavit dbgrid od DevExpress tak aby se pomoci
>> kolecka na mysi pohyboval po jednotlivych radcich
>>
>> Diky moc Jura
>>
>>
>>
>>
>
>
>
>
DevExpress Grid - pohyb po radcich
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 20.10.2008 11:56:55
Tak po vsem moznem vyhledavani jsem nasel :
procedure <Form>.<Grid1View>MouseWheel(
Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint; var Handled: Boolean);
begin
with <Grid2>.ActiveView.Site do
if WheelDelta > 0 then
ScrollContent(dirUp)
else
ScrollContent(dirDown);
end;
Resi se tam sice neco jineho ale ani po uprave to stejne nefunguje
Proste se nemohu dopracovat k tomu aby mi po otocenim koleckem preskocil
"Selected row" na dalsi radek v gridu.
Jedine co mi to udela (kdyz se vsechny radky nevejdou na obrazovku) tak
to odroluje ale i s tim vybranym radkem mimo obrazovku,
Budu velmi vdecny za zaslani demo prikladu na info(zv)drnholec(tec)cz kde to v
gridu funguje tak jak to potrebuji.
J.
procedure <Form>.<Grid1View>MouseWheel(
Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint; var Handled: Boolean);
begin
with <Grid2>.ActiveView.Site do
if WheelDelta > 0 then
ScrollContent(dirUp)
else
ScrollContent(dirDown);
Heinisch Jiri napsal(a):
> No nevim jak to myslis, me kolecko funguje ve vsech programech, ve vsech
> gridech (v Delphi "tovarni" grid i od JVCL) mimo prave zminovaneho
> DevExpress gridu.
>
> A i kdyz si stahnu jejich demoverze tak mi to tam taky nikde nejde ! :-(
>
>
> Pavel Gazda napsal(a):
>> Ahoj
>>
>> Ve Windows, ovladaci panely, mys, vlastnosti, kolecko
>>
>> Pavel
>>
>>
>> Heinisch Jiri napsal(a):
>>> Ahoj
>>>
>>> Nemohu prijit jak nastavit dbgrid od DevExpress tak aby se pomoci
>>> kolecka na mysi pohyboval po jednotlivych radcich
>>>
>>> Diky moc Jura
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
DevExpress Grid - pohyb po radcich
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 20.10.2008 11:52:54
Spatne jsem te pochopil. Myslel jsem, ze ti jde o pocet radku,
ne ze to nefunguje vubec.
Pavel
Heinisch Jiri napsal(a):
> No nevim jak to myslis, me kolecko funguje ve vsech programech, ve vsech
> gridech (v Delphi "tovarni" grid i od JVCL) mimo prave zminovaneho
> DevExpress gridu.
>
> A i kdyz si stahnu jejich demoverze tak mi to tam taky nikde nejde ! :-(
>
> Pavel Gazda napsal(a):
>
>> Ahoj
>>
>> Ve Windows, ovladaci panely, mys, vlastnosti, kolecko
>>
>> Pavel
>>
>>
>> Heinisch Jiri napsal(a):
>>
>>> Ahoj
>>>
>>> Nemohu prijit jak nastavit dbgrid od DevExpress tak aby se pomoci
>>> kolecka na mysi pohyboval po jednotlivych radcich
>>>
>>> Diky moc Jura
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
DevExpress Grid - pohyb po radcich
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.10.2008 12:20:56
> procedure <Form>.<Grid1View>MouseWheel(
> Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
> MousePos: TPoint; var Handled: Boolean);
> begin
> with <Grid2>.ActiveView.Site do
> if WheelDelta > 0 then
> ScrollContent(dirUp)
> else
> ScrollContent(dirDown);
> end;
>
> Resi se tam sice neco jineho ale ani po uprave to stejne nefunguje
>
Ahoj,
neznam ten konkretni grid, ale mohlo v reakci na kolecko pomoci volat
dataset.Next, resp. dataset.Prior, samozrejme se zohlednenim BOF a EOF.
Nebo to nejde?
David Lebeda
ADMIN: DevExpress Grid - pohyb po radcich
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.10.2008 12:08:56
Co to je tu dneska za cunarny? Co takhle zacit poradne quotovat (jeden
jak druhej)?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
DevExpress Grid - pohyb po radcich
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 20.10.2008 14:27:05
Toto jsem si mi nekde kdysi stahnul. Autor je Karel Rys. Snad ti to pomuze.
unit WheelFix;
(*
K projektu staci pridat tuto unitu a dat ji do uses v .dpr.
Neni treba nic menit v jednotlivych formularich.
Karel Rys <delphi(zv)zas-me(tec)cz>
*)
interface
implementation
uses Windows, Classes, SysUtils, Forms, AppEvnts, Messages,
DBGrids,DBCGrids, DB;
type TFixApplicationEvents = class(TCustomApplicationEvents)
protected
procedure ApplicationEventsMessage(var Msg: TMsg; var Handled: Boolean);
public
constructor Create(AOwner: TComponent); override;
end;
var FixApplicationEvents: TFixApplicationEvents;
type tMyAppl=class(tApplication)
end;
{ TFixApplicationEvents }
procedure TFixApplicationEvents.ApplicationEventsMessage(var Msg: TMsg; var
Handled: Boolean);
var
a:wParam;
i:integer;
Posun:smallint;
DataSet:tDataSet;
begin
if Assigned(Application) then
with tMyAppl(Application) do
begin
if Msg.message=WM_MouseWheel then
begin
if (Screen.ActiveControl is tDBGrid) then
begin
if Assigned(tDBGrid(Screen.ActiveControl).DataSource) then
DataSet:=tDBGrid(Screen.ActiveControl).DataSource.DataSet;
if Assigned(DataSet) then
begin
(* puv asembler
a:=Msg.wParam;
asm
mov eax,A
shr eax,16
mov POSUN,ax
*)
POSUN := Msg.wParam shr 16;
end;
Posun:=Posun div 120; // jeden krok=120; koleckem od sebe=kladna
cisla
if Posun>0 then
begin
for i:=1 to Posun do DataSet.Prior;
end
else if Posun<0 then
begin
for i:=Posun to -1 do DataSet.Next;
end;
Handled:=true;
end else if (Screen.ActiveControl is TDBCtrlGrid) then
begin
if Assigned(TDBCtrlGrid(Screen.ActiveControl).DataSource) then
DataSet:=TDBCtrlGrid(Screen.ActiveControl).DataSource.DataSet;
if Assigned(DataSet) then
begin
(* puv asembler
a:=Msg.wParam;
asm
mov eax,A
shr eax,16
mov POSUN,ax
*)
POSUN := Msg.wParam shr 16;
end;
Posun:=Posun div 120; // jeden krok=120; koleckem od sebe=kladna
cisla
if Posun>0 then
begin
for i:=1 to Posun do DataSet.Prior;
end
else if Posun<0 then
begin
for i:=Posun to -1 do DataSet.Next;
end;
Handled:=true;
end;//if Screen
end;//if Msg
end;//with
end;
constructor TFixApplicationEvents.Create(AOwner: TComponent);
begin
inherited;
OnMessage:=ApplicationEventsMessage;
(*
> kdyz v Delphi 4 prof neni AppEvents??
Pomoci Application.OnMessage, je to vlastne stejne.
*)
end;
initialization
FixApplicationEvents:=TFixApplicationEvents.Create(nil);
finalization
FreeAndNil(FixApplicationEvents);
end.
Ja smen obdobnym zpusobem delal scroll mysi v TTabSheet.
procedure TFSmenSml.JvAppEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var Posun:Smallint; i:integer; ScrollBox : TScrollBox;
begin
inherited;
if Msg.message=WM_MouseWheel then
begin
if (pcSmlouva.ActivePage = TabKryciList) or (pcSmlouva.ActivePage =
TabPredbezneProjednani) then
begin
if (pcSmlouva.ActivePage = TabKryciList) then
ScrollBox:=ScrollBoxKryciList
else
ScrollBox:=ScrollBoxProjednani;
POSUN := Msg.wParam shr 16;
Posun:=Posun div 120;
if Posun>0 then
begin
for i:=1 to Posun do
begin
ScrollBox.VertScrollBar.Position:=ScrollBox.VertScrollBar.Position-40;
ScrollBox.Refresh;
end;
end
else if Posun<0 then
begin
for i:=Posun to -1 do
begin
ScrollBox.VertScrollBar.Position:=ScrollBox.VertScrollBar.Position+40;
ScrollBox.Refresh;
end;
end;
Handled:=true;
end;
end;
end;
Petr Kejval
DevExpress Grid - pohyb po radcich - RESENI
[*] Heinisch Jiri <info(zv)drnholec(tec)cz> - 21.10.2008 07:54:11
Ahoj
Tak uz jsem nasel reseni ....
http://www.devexpress.com/Support/Center/p/DQ35773.aspx?searchtext=Onmousewheel&tid=dee0f498-9b49-42c9-bee9-5530e0ea67f6&pid=763242d1-7120-4037-9b89-a96d16d00bef
P.S.
Dekuji vsem kteri se mi snazili pomoci
Pouziti cizi DLL v D5 a D2007 - VYRESENO
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.10.2008 15:43:10
On Friday, October 17, 2008 10:00 AM ,
Martin Dietl <dietl(zv)4use(tec)cz> wrote:
> Takze opet chyba mezi zidli a klavesnici.
>
> Jednak to volani nebylo prvni, ale druhe. Nejdrive se volala funkce
> typu:
>
> TDllOpen = function(var hOpen: TDAHandle; Flags: PLongWord;
> Callback: pointer; UserData: pointer): integer; stdcall;
>
> a tady byl problem v tom, ze jako parametr Flags se predaval pointer
> na WORD (hodnota 1), nikoli LongWord.
> V D5 to proslo, v D2007 nikolivek.
zrejme nahodou v pameti byly "nad" tim WORDem po prekladu D5 nuly.
D2007 tam generuje neco jineho a tak ty flagy vypadaly jinak
D. Toman
Spustena sluzba
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 22.10.2008 08:45:45
Pekny den vsem,
potreboval bych z bezici aplikace zjistit stav nejake konkretni sluzby.
Je-li spustena, ma - li se spoustet automaticky nebo rucne a tak...
Pripadne neco zmenit.
Nevite nekdo, jak na to?
Diky Honza
Spustena sluzba
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 22.10.2008 10:05:50
2008/10/22 Jan Stefec <stefec(zv)algo-hk(tec)cz>:
> Nevite nekdo, jak na to?
WMI, konkretne Win32_Service
[http://msdn.microsoft.com/en-us/library/aa394418(VS.85).aspx].
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
MSSQL before insert
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 22.10.2008 16:54:16
Firebird leta pouzivam v plne jeho sile pokud jde o implementaci aplikacni logiky pomoci triggeru a ulozenych procedur.
V MSSQL jsem sice uz neco napsal, ale az na nejakou tu trivialni proceduru jsem ho pouzival spise jako uloziste dat. Nyni ale potrebuju dostat pomerne komplikovanou aplikacni logiku i do MSSQL. Musim se pritom koncepcne vyporadat s neexistenci "before" triggeru.
Poradi nekdo, jak na to snadno a pekne?
Takova jednoducha uloha...
Jediny prikaz v before insert ...
Existuje nejaka jina cesta pro MSSQL, nez v "after" triggeru delat "update cena ..." ?
Nehlede na to, ze v "after update" se by se pak znova vyvolal "update", tedy znova tentyz trigger.
Podle me je to divny ... :-(
FB:
create table cenik(
id_vyrobek integer not null,
cena decimal(10,2),
primary key (id_vyrobek)
);
create table polozka(
id_polozka integer not null,
id_vyrobek integer,
pocet integer,
cena decimal(10,2),
primary key (id_polozka)
);
create trigger polozka_bi for polozka
before insert
as
begin
select cena*new.pocet from vyrobek
where id_vyrobek=new.id_vyrobek
into new.cena;
end
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
MSSQL before insert
[*] Jiri Straka <straka(zv)trivas(tec)cz> - 22.10.2008 17:02:16
CREATE TRIGGER [dbo].[IOFI_001]
ON [dbo].[VS017]
INSTEAD OF INSERT (UPDATE, DELETE)
AS
BEGIN
......
END
Pro MS SQL 2005
JS.
-------Original Message-------
From: Jan Sebelik
Date: 22.10.2008 16:54:28
To: delphi-l(zv)clexpert(tec)cz
Subject: MSSQL before insert
Firebird leta pouzivam v plne jeho sile pokud jde o implementaci aplikacni
logiky pomoci triggeru a ulozenych procedur.
V MSSQL jsem sice uz neco napsal, ale az na nejakou tu trivialni proceduru
jsem ho pouzival spise jako uloziste dat. Nyni ale potrebuju dostat pomerne
komplikovanou aplikacni logiku i do MSSQL. Musim se pritom koncepcne
vyporadat s neexistenci "before" triggeru.
Poradi nekdo, jak na to snadno a pekne?
Takova jednoducha uloha...
Jediny prikaz v before insert ...
Existuje nejaka jina cesta pro MSSQL, nez v "after" triggeru delat "update
cena ..." ?
Nehlede na to, ze v "after update" se by se pak znova vyvolal "update", tedy
znova tentyz trigger.
Podle me je to divny ... :-(
FB:
create table cenik(
id_vyrobek integer not null,
cena decimal(10,2),
primary key (id_vyrobek)
);
create table polozka(
id_polozka integer not null,
id_vyrobek integer,
pocet integer,
cena decimal(10,2),
primary key (id_polozka)
);
create trigger polozka_bi for polozka
before insert
as
begin
select cena*new.pocet from vyrobek
where id_vyrobek=new.id_vyrobek
into new.cena;
end
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
Firebird, jak udelat FormatFloat?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 23.10.2008 19:27:57
On Thu, Oct 23, 2008 at 2:53 PM, Petr Svejda <petr(zv)svejda(tec)cz> wrote:
> "Function unknown LPAD". FB mam verzi 2.0. Kde by mohla byt zavada?
Ze ta fce ve FB2.0 neni. Je tam od 2.1.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
MSSQL before insert
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 23.10.2008 17:17:49
> Jiri Straka
> CREATE TRIGGER [dbo].[IOFI_001]
> ON [dbo].[VS017]
> INSTEAD OF INSERT (UPDATE, DELETE)
> AS
> BEGIN
> ......
> END
Problem je, ze v "....." musim napsat cely "update" pro vsechny polozky tabulky a kdyz nejakou polozku pridam, nesmim na tom v tom "update" zapomenout.
A kdyz jsou v tabulce desitky polozek? A kdyz jsou tabulek stovky? A kdyz to musi byt zvlast na INSERT, zvlast na UPDATE?
No nic, asi se s tim neda nic delat.
Vypada to, ze preci jenom budu "after update" delat neco takoveho jako
FOR INSERT, UPDATE
AS
IF UPDATE(cosi) BEGIN
...
update ... set cosi=x where ...
END
Diky
Honza
Vytvoreni predka formulare
[*] Rudolf Krizek <krizek(zv)trifid-sw(tec)cz> - 23.10.2008 15:59:44
Zdravim!
Umim v prostredi Delphi vytvorit potomka formulare (File, New, Other ....,
Inheritable Items ...).
Ale meumim to udelat naopak - vytvorit predka jiz existujiciho formulare.
Jak na to, aby vse pak fungovalo O.K.?
S pozdravem
Rudolf Krizek
TRIFID Software
WinXP Home SP2, RAD Studio 2007 December 2007 Update
Firebird, jak udelat FormatFloat?
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 23.10.2008 14:53:40
take se mi tato funkce hodi, ale kdyz to zkousim, tam mi to hodi hlasku
"Function unknown LPAD". FB mam verzi 2.0. Kde by mohla byt zavada?
Petr Svejda
Jiri Cincura napsal(a):
> Nepises jaka verze FB, tak budu predpokladat posledni stable.
>
> select lpad('2008', 4, '0') || '/' || lpad('03', 2, '0') || '/' ||
> lpad(1, 4, '0') from rdb$database
>
MSSQL before insert
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 23.10.2008 07:39:12
Ahoj,
podle mne pri implicitnim nastaveni serveru se after trigger znovu nevyvola.
Tedy pokud v after update triggeru provedu update do te same tabulky, tak se
tento trigger pro tento update nevyvola.
Pokud pouziji trigger instead of update. Musim si do tohoto triggeru update
prikaz napsat sam. Tedy pokud v budoucnu pridam do tabulky pole, nesmim
zapomenout toto pole pridat do update prikazu v tomto triggeru.
Petr Kejval
Dne 22. rijen 2008 16:54 Jan Sebelik <honza(zv)haes(tec)cz> napsal(a):
> Firebird leta pouzivam v plne jeho sile pokud jde o implementaci aplikacni
> logiky pomoci triggeru a ulozenych procedur.
>
> V MSSQL jsem sice uz neco napsal, ale az na nejakou tu trivialni proceduru
> jsem ho pouzival spise jako uloziste dat. Nyni ale potrebuju dostat pomerne
> komplikovanou aplikacni logiku i do MSSQL. Musim se pritom koncepcne
> vyporadat s neexistenci "before" triggeru.
>
> Poradi nekdo, jak na to snadno a pekne?
> Takova jednoducha uloha...
> Jediny prikaz v before insert ...
> Existuje nejaka jina cesta pro MSSQL, nez v "after" triggeru delat "update
> cena ..." ?
> Nehlede na to, ze v "after update" se by se pak znova vyvolal "update",
> tedy znova tentyz trigger.
> Podle me je to divny ... :-(
>
>Inno Setup: Potlaceni wizard page
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 23.10.2008 07:53:13
Ahoj!
Potreboval bych v instalacnim skriptu potlacit zobrzeni uvodni uvitaci
stranky (wpWelcome) a hned spustit instalaci. Vsechny ostatni stranky
potlacit umim jen wpWelcome se mi porad ukazuje. Nenasel jsem zadny
prepinac, kterym se to nastavuje. Jde to vubec?
Poradte prosim. Diky
Igor Vodicka
Vytvoreni predka formulare
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 24.10.2008 07:03:27
Ahoj,
Rudolf Krizek napsal(a):
> Ale meumim to udelat naopak - vytvorit predka jiz existujiciho formulare.
> Jak na to, aby vse pak fungovalo O.K.?
tezko :-) Predek, jak nazev napovida, predchazi potomka.
Nicmene, da se to udelat. Vytvor si toho predka jako normalni novy
formular s textovym DFM, udelej si jeho potomka. Podivej se, jak je ten
potomek vyrobeny, tedy jak se lisi od normalniho neoddedeneho formulare
v PAS i DFM a tyto zmeny rucne zanes do formulare, ktery ma byt potomkem
tohoto predka. Pozor na duplicitni vytvareni komponent, ktere chces
prenest z potomka do predka.
> Rudolf Krizek
Peca aka Petr Palicka
> WinXP Home SP2, RAD Studio 2007 December 2007 Update
WinXP Pro SP3, Delphi 7 pro
Vytvoreni predka formulare
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 24.10.2008 10:57:42
> Umim v prostredi Delphi vytvorit potomka formulare (File,
> New, Other ...., Inheritable Items ...).
> Ale meumim to udelat naopak - vytvorit predka jiz
> existujiciho formulare. Jak na to, aby vse pak fungovalo
> O.K.?
Staci prepisat deklaraciu v unite potomka a v .dfm uviest "inherited".
Priklad, novy projekt s dvoma formularmi bez dedicnosti (obidva su beznymi potomkami TForm):
Unit1.pas:
type
TForm1 = class(TForm)
Unit1.dfm:
object Form1: TForm1
Unit2.pas:
type
TForm2 = class(TForm)
Unit2.dfm:
object Form2: TForm2
Chcem dosiahnut, aby TForm2 bol potomkom TForm1.
Unit2.pas:
type
TForm2 = class(TForm1)
Unit2.dfm:
inherited Form2: TForm2
Obidva formulare by mali byt priamo sucastou projektu (uvedene v .dpr).
uses
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
HTH
TOndrej
Spousteni asociovanych souboru
[*] Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> - 27.10.2008 08:28:07
Zdravim vsechny,
mam takovy maly problem s Win Vista (home premium). Program, ktery bezproblemove funguje na WinXP (mimo jine spousti asociovane soubory pomoci API fce ShellExecute, mi pod Vistama zlobi. Kdyz spustim soubor *.IFO (DVD prehravac AVSDVDPlayer), tak se prehravac sice spusti, ale vyhodi to chybu, ze soubor je poruseny a film se nespusti. Kdyz tentyz soubor spoustim pres Total Commander, tak film bez problemu nabehne.
Nevite nekdo, jestli uz treba od WinXP existuje pro spousteni asoc. soubory jina funkce nez ShellExecute? Dival jsem se na MSDN, nasel jsem funkci SignalFileOpen, ale tato neni v jednotkach Windows, ShellAPI k dispozici (Delphi6).
Diky za podnety, zdravi
Mgr. Miloslav Pojsl
AN:Databazovy svet 2008
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 27.10.2008 12:38:23
Ahoj *,
zverejnili jsme program 6. rocniku konference Databazovy svet
(http://www.dbsvet(tec)cz/view.php?cisloclanku=2008101701), jste vsichni srdecne
zvani. Konference se kona 13. listopadu a vstup je opet zcela zdarma.
Hezky den, KER
FB: select sum() z tabulky a z procedury
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 28.10.2008 15:16:05
FB 1.5
Mam nejake dodaci listy a nejake normy.
Mam proceduru NORMA, ktera zbozi na dodacich listech za nejake obdobi roznormuje na suroviny.
Ja nerozumim tomu, kde se bere obrovsky rozdil mezi rychlosti "select sum() ... group by ..."
z ulozene procedury (21000 zaznamu, 40s) a
z tabulek (360000 zaznamu, 4s).
select * from norma('5.5.2008')
execution time 3s
To je dobry. Sama procedura je napsana dobre.
select count(*) from norma('5.5.2008')
execution time 40s
21000 zaznamu
select id_vyrobek, sum(mnoz) from norma('5.5.2008')
group by id_vyrobek
execution time 40s
To uz dobry neni.
Pritom pocet radku na dodacich listech za kveten je 360000
select count(*) from dlist d
join dlistb b on d.id_dlist=b.id_dlist
where d.obdobi=200805
execution time 13s
a soucty vyrobku to na tomto poctu 360000 zaznamu spocita za 4s.
select id_vyrobek,sum(mnobj) from dlist d
join dlistb b on d.id_dlist=b.id_dlist
where d.obdobi=200805
group by id_vyrobek
execution time 4s
Jenom jeste podotknu, ze selekt z DLISTB stejne nepouzije index pro cizi klic FK_DLISTB_VYROBEK, ale klic pro vazbu na dodaci list: FK_DLISTB_DLIST.
Honza
Delphi Prism, novy vyvojovy nastroj pro .NET 3.5
[*] rkubat(zv)email(tec)cz - 28.10.2008 20:16:24
Vsem, ktere by to mohlo pripadne zajimat:
Embarcadero odhaluje nastroj Delphi Prism, vyvojovy system pro .NET na platformach Windows, Mac OS X a Linux.
Novy nastroj pro .NET umozni vyvojarum rychle vytvaret aplikace pro Web, bohate internetove aplikace a aplikace pro stolni pocitace na platformach .NET a Mono.
Praha, 28.10.2008 - Spolecnost Embarcadero Technologies poprve predstavila produkt Delphi Prism behem konference profesionalnich vyvojaru poradane spolecnosti Microsoft. Reseni nove generace pro platformu .NET, tedy integrovany databazovy stroj pro rizeny kod obsazeny v Delphi Prism, se zameruje na platformy Windows, Mac OS X a Linux. Nastroj Delphi Prism dovoli vyvojarum pouzit programovaci jazyk Delphi Prism pro tvorbu aplikaci pro Windows .NET posledni technologicke normy 3.5, jakymi jsou napriklad WinForms, WPF, Silverlight, ASP.NET a LINQ. Delphi Prism tez umozni tvorbu aplikaci pro Mac OS X a Linux s technologiemi CLR typu open source, jakymi jsou Mono a Cocoa#.
Cely text tiskove zpravy v cestine najdou zajemci na adrese: http://www.embt(tec)cz/cs/tiskove-zpravy/8-delphi-prism.html
Predbezny popis produktu je (zatim jen anglicky) zde: http://www.codegear.com/products/delphi/prism
Vsechny vyvojare zdravi, -- Richard Kubat, Borland s.r.o., zastoupeni Embarcadero Technologies pro CR a SR
Delphi Prism, novy vyvojovy nastroj pro .NET 3.5
[*] rkubat(zv)email(tec)cz - 28.10.2008 22:08:31
> ------------ Puvodni zprava ------------
> Od: <rkubat(zv)email(tec)cz>
> Predmet: Delphi Prism, novy vyvojovy nastroj pro .NET 3.5
> Datum: 28.10.2008 20:42:00
> ----------------------------------------
Tak uz jsem stihnul informace o Delphi Prism prelozit do cestiny, tedy alespon vetsinu zatim dostupnych a zverejnenych informaci; mate-li zajem, najdete je na adrese http://www.embt(tec)cz/cs/produkty/90-delphi-prism-obecny-popis-.html
Doufam, ze muj preklad nema mnoho technickych chyb ci spatne terminologie; pokud se domnivate, ze ano, prosim napiste mi na "rkubat(zv)borland(tec)cz" a ja sve chyby obratem napravim; moc jisty si v terminologii .NET tedy nejsem, to uprimne priznavam :-)
Vsechny vyvojare zdravi, -- Richard Kubat
FB: select sum() z tabulky a z procedury
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 28.10.2008 22:14:32
2008/10/28 Jan Sebelik <honza(zv)haes(tec)cz>:
> select * from norma('5.5.2008')
> execution time 3s
Fetchujes zde vsechny zaznamy? Nebo meris jen vraceni prvniho? ...
> To je dobry. Sama procedura je napsana dobre.
>
> select count(*) from norma('5.5.2008')
> execution time 40s
> 21000 zaznamu
... Zde se ti totiz musi nacist vse. A to muze byt docela rozdil.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Zmizeni programu behem cinnosti
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.10.2008 10:54:04
Ahoj,
rad bych se zeptal na zkusenosti s podivnym jevem. Mam aplikaci a nekdy,
jednou za nekolik dnu ci tydnu se stava, ze aplikace zrejme spadne na
hubu, ale uplne bez hlesu. Proste obsluha prijde k pocitaci, ten
normalne bezi, ale aplikace spustena neni. Proste sleti, ale nevznikne
zadna vyjimka, vse se loguje, v logu nic neni.
Cim by aplikace zpusobit svuj tak tvrdy pad? Deje se tak pri nacitani
dat z SQL serveru (FB) do kbmMemTable, al ejen jednou za uhersky rok.
Aplikace bezi nepretrzite, zminene nacitani se deje kazdych nekolik
minut. Nejde o restart pocitace - to bybylo zaznamenano v event logu a
navic by se po restartu aplikace sama spustila. Proste to nechapu -
spadne uprostred prace, nepropadne do zadneho finally ani except
bloku... Pamet pocitace byla jiz menena i kontrolovana, zda se OK.
Nejaky napad?
Aplikace v D5E, Win XP
Diky
David Lebeda
FB: select sum() z tabulky a z procedury
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 29.10.2008 12:00:08
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jiri Cincura
> > select * from norma('5.5.2008')
> > execution time 3s
> Fetchujes zde vsechny zaznamy? Nebo meris jen vraceni prvniho? ...
Jo, jo, uz jsem na to taky prisel, to je vono (mohlo me to napadnout driv).
Stacil Ctrl+End na zobrazenych datech a zase jsem byl na tech 40s.
> > select count(*) from norma('5.5.2008')
> > execution time 40s
> > 21000 zaznamu
Ono to vlastne asi lip nepujde:
500 zaznamu/sekundu, kdyz uprostred vypoctu jednoho zaznamu je nekolik dalsich selektu (platnost normy dle data), rekurzivni volani (normovani polotovaru), tak vlastne asi neni na co nadavat.
Honza
Inno Setup: Potlaceni wizard page
[*] Ondrej Sintaj <ieee(zv)ynet.sk> - 29.10.2008 15:12:20
Myslim si, ze existuje nejaky silent mod, v ktorom sa da spustit instalator.
Ondrej
----- Original Message -----
From: "Ing. Igor Vodicka" <vodicka(zv)sagit(tec)cz>
To: delphi-l(zv)clexpert(tec)cz
Sent: Thursday, October 23, 2008 7:53:13 AM GMT +-01:00 Amsterdam / Berlin / Bern / Rome / Stockholm / Vienna
Subject: Inno Setup: Potlaceni wizard page
Ahoj!
Potreboval bych v instalacnim skriptu potlacit zobrzeni uvodni uvitaci
stranky (wpWelcome) a hned spustit instalaci. Vsechny ostatni stranky
potlacit umim jen wpWelcome se mi porad ukazuje. Nenasel jsem zadny
prepinac, kterym se to nastavuje. Jde to vubec?
Poradte prosim. Diky
Igor Vodicka
Inno Setup: Potlaceni wizard page
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 29.10.2008 17:08:28
Ahoj
>Potreboval bych v instalacnim skriptu potlacit zobrzeni uvodni uvitaci
>stranky (wpWelcome) a hned spustit instalaci. Vsechny ostatni stranky
Nejde to, musel jsem upravovat zdrojaky Inna aby toto slo udelat.
Cau
Radek
Inno Setup: Potlaceni wizard page
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 30.10.2008 07:23:22
Ahoj,
pred nekolika dny jsem na to uz prisel. Staci pouzit pri spusteni prepinac
/SILENT zobrazi se je progras okno instalatoru (pokud jsou vsechna okna
vypnuta) nebo /VERYSILENT nezobrazi se nic. Pro moji potrebu je to
vyhovujici spoustim instalator primo ze sveho programu.
Diky Igor
>
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Radek Voltr
>
> >Potreboval bych v instalacnim skriptu potlacit zobrzeni uvodni uvitaci
> >stranky (wpWelcome) a hned spustit instalaci. Vsechny ostatni stranky
>
> Nejde to, musel jsem upravovat zdrojaky Inna aby toto slo udelat.
>
> Cau
> Radek
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ondrej Sintaj
>
> Myslim si, ze existuje nejaky silent mod, v ktorom sa da spustit
> instalator.
>
> Ondrej
FB: select sum() z tabulky a z procedury
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 29.10.2008 21:16:44
2008/10/29 Jan Sebelik <honza(zv)haes(tec)cz>:
> Ono to vlastne asi lip nepujde:
> 500 zaznamu/sekundu, kdyz uprostred vypoctu jednoho zaznamu je nekolik dalsich selektu (platnost normy dle data), rekurzivni volani (normovani polotovaru), tak vlastne asi neni na co nadavat.
No krome beznych optimalizaci, asi taky zalezi na HW. Nicmene ten asi
jen tak pro srandu menit nebudes.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
pouziti komponenty mxPluginLoader od MAX
[*] Stanislav Cerny <s.cerny(zv)volny(tec)cz> - 30.10.2008 20:32:12
Ahoj,
pouzivate nekdo tuto komponentu na tvorbu DLL pluginu? Jestlize ano, jakou
mate zkusenost s predavanim objektu pomoci SendAdvancedMessage. Tato
procedura ma tri parametry (string,int,object), "string" i "int" jsou v
pohode, ale nevim jako pracovat s objektem. Patrne to ma byt pointer na ten
objekt v aplikaci, ktera vola tu dll. Napriklad ClassName si prectu v
pohode, ale pri pokusu o prirazeni nastane chyba "Invalid class typecast".
procedure TmxPlugin1.mxPluginAdvancedMessage(Sender: TObject;
Message: String; Param: Integer; AObject: TObject; var Handled: Boolean);
var scExcelExport1: TscExcelExport;
Begin
scExcelExport1.Dataset:= (AObject as TTable);
end;
Pouzivam spravce pameti FastShareMem nebo ShareMem.
Diky.
Standa Cerny
Delphi 2006 - Method not found v .Net projekte
[*] Peter Ondras <konfery(zv)pse.sk> - 30.10.2008 20:52:13
Jasne, nie som si isty, ze za to moze Delphi. Ale oproti VS to kazdu chvilu
hlasi chybu nejakych bpl a treba Delphi cele restartovat. Je mozne, ze
problem je aj v .NET 1.1. V kazdom pripade som sa pred chvilou rozhodol
opustit aj Delphi aj .NET 1.1 a prepisat aj tento posledny kusok do C# pre
.NET 2.
Dakujem za tipy na problemy s .NET 1.1.
-----Original Message-----
A ze si jsi tak jisty, ze za to muze prave Delphi a ne framework...
Ja mam Visual Studio take, kazdou verzi, a konkretne s .NET Framework
1.1 jsem si leccos uzil. Treba ze prave z niceho nic najednou prestala
chodit tu nejaka aplikace, tu zase jina aplikace.
A nebo kdyz se pustil instalacni program jednoho programu, usoudil, ze
framework 1.1 neni instalovan, ackoliv byl, tak spustil balicek s
frameworkem primo od Microsoftu, ten po spusteni vsechny soubory frameworku
1.1 smazal a ukazal hlaseni, ze framework uz na pocitaci je, a bylo po
frameworku.
Petr Zahradnik, pocitacovy expert
Delphi 2006 - Method not found v .Net projekte
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 30.10.2008 17:07:59
>> P.S.: Ospravedlnujem sa zato, ze som, aj v tejto konferencii, v
>> minulosti uvital Delphi 2006, nakoniec som presiel na MS VS a C#,
>> kde ziadne podobne problemy nemusim riesit.
>>
>
> A ze si jsi tak jisty, ze za to muze prave Delphi a ne framework...
>
>
Presne, dnes konkretne jsme resili problem s programem prelozenym VS
2005, kdy na polovine pocitacu se program chova
nejak a na druhe presne uplne jinak (jednalo se o mazani v DataRowView).
A na internetu se ta nalezena chyba oznacuje za vlastnost.
> Ja mam Visual Studio take, kazdou verzi, a konkretne s .NET Framework
> 1.1 jsem si leccos uzil. Treba ze prave z niceho nic najednou prestala
> chodit tu nejaka aplikace, tu zase jina aplikace.
>
>
Co ja si uzil s Dotnet 1.1 a VS 2003 to je na roman.
R.
Delphi 2006 - Method not found v .Net projekte
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.10.2008 16:53:58
Puvodni zprava ze dne 30.10.2008 od Peter Ondras:
> P.S.: Ospravedlnujem sa zato, ze som, aj v tejto konferencii, v
> minulosti uvital Delphi 2006, nakoniec som presiel na MS VS a C#,
> kde ziadne podobne problemy nemusim riesit.
A ze si jsi tak jisty, ze za to muze prave Delphi a ne framework...
Ja mam Visual Studio take, kazdou verzi, a konkretne s .NET Framework
1.1 jsem si leccos uzil. Treba ze prave z niceho nic najednou prestala
chodit tu nejaka aplikace, tu zase jina aplikace.
A nebo kdyz se pustil instalacni program jednoho programu, usoudil, ze
framework 1.1 neni instalovan, ackoliv byl, tak spustil balicek s
frameworkem primo od Microsoftu, ten po spusteni vsechny soubory
frameworku 1.1 smazal a ukazal hlaseni, ze framework uz na pocitaci
je, a bylo po frameworku.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Delphi 2006 - Method not found v .Net projekte
[*] Peter Ondras <konfery(zv)pse.sk> - 30.10.2008 16:41:57
Zdravim,
z historickych dovodov mam jeden .Net projekt v Delphi 2006 (jazyk Object
Pascal, .Net 1.1). Projektova skupina sa sklada z dvoch casti - common.dll a
webapp.dll. Naposledy bol projekt upravovany 17.9.2008 - vsetko ok. Dnes sa
snazim urobit nejake drobne zmeny, ale stale dostavam pri spusteni chybovu
stranku Method not found - pri volani z modulu webapp.dll jednej metody z
common.dll. Je to metoda nazvana GetWebLabel(string) [moja metoda, ktora
pouzije FindControl a pretypuje na System.Web.UI.WebControls.Label. Ano
hladana control je skutocne label v tom chyba nie je], ktora vrati v metode
InternalInitializeComponents [moja virtualna metoda v zakladnej stranke
spustana v OnInit]. Metoda GetWebLabel tam samozrejme je, inak by nepresiel
ani build all projects. Obe dll su v bin adresari vyslednej webovej
aplikacie. Ceresnickou na torte je aj to, ze ak si dam znovu urobit build na
poslednej funkcnej verzii zo 17.9.2008, tak nefunguje uz ani tato verzia :-(
a to bez toho, aby som v nej cokolvek zmenil.
Zaslo to az tak daleko, ze som preinstaloval windows aj delphi, skusal som
aj ine pc, ale nic nepomaha. Som uz celkom zufaly...
P.S.: Ospravedlnujem sa zato, ze som, aj v tejto konferencii, v minulosti
uvital Delphi 2006, nakoniec som presiel na MS VS a C#, kde ziadne podobne
problemy nemusim riesit.
Peter Ondras - www.ondras.sk
+421 904 421 925
Komponenta na zobrazenie casovej osi
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 31.10.2008 19:03:29
Zdravim.
Potrebujem nieco na zobrazenie casovych udajov pre Delphi 2007.
Jedna sa o jednoduchu vec.
Malo by to dokazat zobrazit cca 10 -15 casovych udajov za jeden rok.
Kazdy casovy zaznam ma charakter textovej poznamky cca 60 - 80 znakov.
Nepotrebujem zobrazovat ziadne ikony alebo okrazky.
Ak by to dokazalo natahat udaje s databazy, bolo by to fajn, ale
nie je to nutne (tych par zaznamov naplnim aj manualne :-))
Skusal som casovu os z Jedi VCL, ale nedokazem do nej nasackovat
viacriadkovy text :-(
A najdolezitejsia podmienka ..... malo by to byt free :-)
Nemate niekto nejaky dobry typ ? ....
S pozdravom
Ivan Dulgerov
Delphi 2007, Delphi5 Prof+ SP1, VS 2008, Win XP Porf.
mail : idulgerov(zv)stonline.sk
Komponenta na zobrazenie casovej osi
[*] Vasek Zaruba <vasek.zaruba(zv)sielaff(tec)cz> - 01.10.2008 22:59:08
Neni to free, ale je to dokonaly: TMS Planner
(http://www.tmssoftware.com/site/planner.asp)
Potrebujem nieco na zobrazenie casovych udajov pre Delphi 2007.
Jedna sa o jednoduchu vec.
Malo by to dokazat zobrazit cca 10 -15 casovych udajov za jeden rok.
Kazdy casovy zaznam ma charakter textovej poznamky cca 60 - 80 znakov.
Nepotrebujem zobrazovat ziadne ikony alebo okrazky.
Ak by to dokazalo natahat udaje s databazy, bolo by to fajn, ale
nie je to nutne (tych par zaznamov naplnim aj manualne :-))
Skusal som casovu os z Jedi VCL, ale nedokazem do nej nasackovat
viacriadkovy text :-(
A najdolezitejsia podmienka ..... malo by to byt free :-)
Nemate niekto nejaky dobry typ ? ....Resource compiler
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 03.10.2008 10:01:17
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
> x.rc nedokazu prelozit.
zkus brcc32.exe, tedy Borland Resource Compiler
Daniel
Resource compiler
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 03.10.2008 09:53:16
Zdedil jsem program v Delphi.
Presneji receno, ten program byl puvodne napsan v C++, pozdeji do Delphi nejak preklopen.
Jeden z formularu (pro nastaveni tiskarny) neni "klasicky" Delphi formular (pas+dfm), ale je postaven nad x.rc, ktery je treba
- prelozit do xx1.res (proc xx1, ne x?)
- prilinkovat {$R xx1.res }
a po laborovani s typem TPrintDlg, PDevMode (hDevMode, hWndOwner, Flags, hInstance, lpPrintTemplateName, lCustData, lpPrintHook atd)
- zobrazit pomoci API funkce PrintDlg(di: TPrintDlg)
Vse v API unitach CommDlg, Windows.
Chtel jsem to predelat jako "normalni" Delphi formular, ale po 10 min. jsem to vzdal, protoze funkcnost API funkce PrintDlg toho zrejme resi vic, nez by se mi chtelo v Delphi programovat. Vicemene to presto funguje, protoze xx1.res jsem zdedil taky. Jenze se mi zda, ze jsou tam nejake nesrovnalosti (neco z x.rc se na formulari nezobrazi, xx1.res je starsi, nez zdrojak x.rc).
x.rc nedokazu prelozit.
Vygooglil jsem sice nejakej rc.exe
Microsoft (R) Windows (R) Resource Compiler Version 5.2.3668.0
ale pri pokusu o preklad mi to hlasi
x.rc(3) : error RC2104 : undefined keyword or key name: DS_3DLOOK
Uvodni radky x.rc viz nize
1100 DIALOGEX 32, 32, 288, 222, 0
EXSTYLE 0
STYLE DS_3DLOOK |DS_SETFONT |DS_MODALFRAME |DS_CONTEXTHELP |WS_POPUP |WS_VISIBLE |WS_SYSMENU |WS_CAPTION
CAPTION "Tisk"
FONT 8, "MS Sans Serif", 0, 0, 0
BEGIN
CONTROL "Tiskarna",1075,"BUTTON",BS_GROUPBOX |WS_CHILD |WS_GROUP |WS_VISIBLE ,8,4,272,79,0x0,0
CONTROL "&nazev:",1093,"STATIC",SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,16,20,36,8,0x0,0
CONTROL "",1139,"COMBOBOX",CBS_DROPDOWNLIST |CBS_SORT |WS_CHILD |WS_VSCROLL |WS_GROUP |WS_TABSTOP |WS_VISIBLE ,52,18,152,152,0x0,0
atd.
Predpokladam, ze mam budto blbou verzi rc.exe nebo delam nejakou trivialni chybu, kdyz jsem s resource compilerem nikdy nepracoval.
Nejakej tip?
Diky
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
Resource compiler
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 03.10.2008 10:23:19
> zkus brcc32.exe, tedy Borland Resource Compiler
> Daniel
Diky.
Musel jsem vyhodit radek 5 (FONT ...). Kricelo to na tomto radku "Expecting BEGIN".
Pak kompilace prosla.
Ale pri PringDlg(di): "An error occured during this operation".
Honza
Firebird - jak zamknout zaznam
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 04.10.2008 12:30:55
Dobry den,
dosud jsme to nikde nepotrebovali, ale ted bohuzel podle prani zakaznika ano: mam zajistit, aby kdyz nekdo otevre doklad pro
upravy, nemohl tentyz doklad pro upravy jiz otevrit nikdo dalsi, dokud prvni uzivatel doklad neuzavre. Poradil byste prosim
nekdo zpusob, jak to elegantne udelat? Nevim predevsim, jak se vyporadat se situaci, kdy zaznam nekdo zamkne a nasledne jeho
pocitac "umre"; Firebird neni ve shazovani mrtvych spojeni zrovna nejrychlejsi... Diky za namety,
Karel Rys
Firebird - jak zamknout zaznam
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 04.10.2008 12:42:56
cau, select .... for update. KER
Firebird - jak zamknout zaznam
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 04.10.2008 13:00:57
2008/11/4 Marek Kocan <konf(zv)akerra(tec)cz>:
> cau, select .... for update. KER
Coz ti vubec nepomuze. To zablokuje dalsi updaty, ale ne selecty.
Jedina sance, je dat si tam nejaky sloupec s casem a kdyz nekdo doklad
otevre, zapise se tam cas, po uzavreni smaze. Pokud ten cas bude
dlouhy, muzes predpokladat, je klient umrel a dovolit otevreni a
prepsat cas.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Firebird - jak zamknout zaznam
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 04.10.2008 12:58:57
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Karel Rys
> dosud jsme to nikde nepotrebovali, ale ted bohuzel podle
> prani zakaznika ano: mam zajistit, aby kdyz nekdo otevre doklad pro
> upravy, nemohl tentyz doklad pro upravy jiz otevrit nikdo
> dalsi, dokud prvni uzivatel doklad neuzavre. Poradil byste prosim
Ahoj,
spooousta kolegu zde ti za tento zpusob prace vynada, ale ja to taky
tak musim delat :) tady mas vykus z moji upravene query:
type
TLockResult =
(lrCannotLock,lrLocked,lrNotLockedIsDeleted,lrNotLockedIsUsed);
function TMcIBOQuery.LockRecord(curTempLock: TIB_Cursor; const cTableName:
String; const cShowErrMsg: Boolean = True;
const cUniqLockedField: String = 'UID'; const cIfFalseThenRollBack:
Boolean = True;
const cRefreshBeforeLock: Boolean = False): TLockResult; //pokusi se
zamknout zaznam a vraci zda se to povedlo ci ne
begin
Result:= lrCannotLock;
if IsEmpty or not Assigned(FindField(cUniqLockedField)) or not
Assigned(curTempLock) then
Exit;
try
if cRefreshBeforeLock then
RefreshActualRow;
if not curTempLock.IB_Transaction.InTransaction then
curTempLock.IB_Transaction.StartTransaction;
curTempLock.SQL.Text:= Format('UPDATE %0:s SET %1:s=%1:s WHERE
%1:s=''%2:s''',[cTableName,cUniqLockedField,Self.FieldByName(cUniqLockedFiel
d).AsString]);
curTempLock.ExecSQL;
if curTempLock.RowsAffected > 0 then
Result:= lrLocked
else
begin
Result:= lrNotLockedIsDeleted;
if cShowErrMsg then
McMessageDlg(rsZaznamPraveSmazan, mtError, [mbOK],0,0);
end;
except
Result:= lrNotLockedIsUsed;
if cShowErrMsg then
McMessageDlg(rsZaznamPouzivan, mtError, [mbOK],0,0);
end;
curTempLock.Close;
if (Result <> lrLocked) and cIfFalseThenRollBack then
curTempLock.IB_Transaction.RollbackRetaining;
end;
no a pak kdyz nekdo chce editovat tak napr:
if qFADoklady.LockRecord(AWFMainDM.curTempLockRec,'FA_DOKLADY') = lrLocked
then
try
..edit...
CommitRetaining;
except
RollbackRetaining;
end; Firebird - jak zamknout zaznam
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 04.10.2008 13:08:58
> 2008/11/4 Marek Kocan <konf(zv)akerra(tec)cz>:
>> cau, select .... for update. KER
>
> Coz ti vubec nepomuze. To zablokuje dalsi updaty, ale ne selecty.
ale jestli jsem dobre cetl, tak zase pro upravy, cili druhy uz nemuze do
potvrzeni udelat for update... (bez cekani ci vypadeni). KER
Firebird - jak zamknout zaznam
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 04.10.2008 13:14:59
Ahoj,
jedna moznost je pouzit explicitni zamykani - viz Release Notes FB
1.5 "Explicit locking". Druha, je, pokud si dobre pamatuji, provest v
ramci transakce udate te jedne konkretni vety a tim si ji jakoby
zamknout. Ale ta druha moznost se mi moz nezda.
Nemam odzkouseno ani jedno.
Peca
Firebird - jak zamknout zaznam
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 04.10.2008 13:33:00
> ramci transakce udate te jedne konkretni vety a tim si ji jakoby
> zamknout. Ale ta druha moznost se mi moz nezda.
ta druha moznost je naprosto bezne pouzitelna, prvni taky. ale asi je to na
kazdem. KER
Firebird - jak zamknout zaznam
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 04.10.2008 13:31:00
2008/11/4 Marek Kocan <konf(zv)akerra(tec)cz>:
> ale jestli jsem dobre cetl, tak zase pro upravy, cili druhy uz nemuze do
> potvrzeni udelat for update... (bez cekani ci vypadeni). KER
Jenze tazatel resi otevreni pro upravy. Tohle zjistis az pri ukladani.
> ne, jedina rozumna sance je prejit na nejakour ozumnou strategii, toto je
> take nespolehlive. idealni je RRW, ktera kombinuje pesim a optim pristup.
> KER
Zalezi jak casto klienti padaji a jak dlouho se povoli zaznam editovat
(i kdyz to poresis pres eventy treba).
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Firebird - jak zamknout zaznam
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 04.10.2008 13:37:00
>> ale jestli jsem dobre cetl, tak zase pro upravy, cili druhy uz nemuze do
>> potvrzeni udelat for update... (bez cekani ci vypadeni). KER
>
> Jenze tazatel resi otevreni pro upravy. Tohle zjistis az pri ukladani.
proc, udelas si test pri tom otevirani a mas to... select for update nemusi
byt jen pro upravy, vlastne kdyz to tak vezmu, tak vlastne neni jen pro
upravy.> ne, jedina rozumna sance je prejit na nejakour ozumnou strategii, toto je
>> take nespolehlive. idealni je RRW, ktera kombinuje pesim a optim pristup.
>
> Zalezi jak casto klienti padaji a jak dlouho se povoli zaznam editovat
> (i kdyz to poresis pres eventy treba).
jasne, vzdy je to kompromis neco za neco, ale pokud to chces mit robustni a
nedohnat uzivatele k silenstvi, tak RRW je takrka ideal. Al euznavam, ze je
to o neco slozitejsi. KER
Firebird - jak zamknout zaznam
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 04.10.2008 13:51:02
>
> Musel bys delat select for update *with lock*. A pak pripadne drzet tu
> transakci celou dobu otevrenou (po celou dobu editace).
ano, rpoto rikam, ze to neni idealni -> nejaka kombinace pesim a optim je v
praxi vice mene nutnosti. KER
Firebird - jak zamknout zaznam
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 04.10.2008 13:47:01
2008/11/4 Marek Kocan <konf(zv)akerra(tec)cz>:
> proc, udelas si test pri tom otevirani a mas to... select for update nemusi
> byt jen pro upravy, vlastne kdyz to tak vezmu, tak vlastne neni jen pro
> upravy.
Musel bys delat select for update *with lock*. A pak pripadne drzet tu
transakci celou dobu otevrenou (po celou dobu editace).
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Firebird - jak zamknout zaznam
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 04.10.2008 15:13:07
Diky vsem za namety, mam co zkouset. Mohu jeste poprosit o vysvetleni, co je zkratka RRW? Marne hledam...
Transakci mame otevrenou po celou dobu editace dokladu (po kazde zmene radku dokladu se hned dela zapis do db a
commitretaining), takze by nejspis slo udelat i ten "jinak zbytecny, zamykaci update" - zkusim. Klienti neumiraji moc casto,
ale dovedu si predstavit, ze dvouvterinovy vypadek proudu (mala vesnice - stava se...) odrovna stanice bez UPS a vsechny tou
dobou zamcene zaznamy na serveru budou zamcene - jak dlouho budou jeste zamcene?
KR
OT: SSH v C#
[*] Dalibor <dalibor(zv)torola(tec)cz> - 04.10.2008 14:55:06
Ahoj, potrebuji se pripojit k server pres SSH z C#. Muzete me nejak
nasmerovat?
Potreboval bych nejaky exampl klient, server.
Samozrejme googluju, jenom bych potreboval tip na nejake spolehlive
reseni,knihovny, atd.
Bohuzel na to nemam moc casu a je to pro me pole neorane.
Dekuji
D.
Firebird - jak zamknout zaznam
[*] Marek Kocan <konf(zv)akerra(tec)cz> - 04.10.2008 15:39:09
rrw je read read write. zjednodusene receno, nactes k sobe kopii, uchovas si
puvodni hodnoty. editujes kopii, pri druhem cteni na chvili zamknes,
porovnas hodnoty puvodni a aktualni, jsou-li stejne, muzes zapisovat (az na
vyjimky pri sledovani historie, muzes se dostat na stejne hodnoty i po
upravach, pak se to resi treba cislem verze), kdyz se lidi, musis se
rozhodnout (mohou se lisit treba v jinem atributu, nez potrebujes menit.
Variant je hodne. jde o to, ze je to optimisticky pristup, nic neni zamceno
(az u druheho r a w) a neni to nachylne na typicke chyby uzivatelu.
Pesimisticke je to jen u druheho r a w. Asi takto. KER
Firebird - jak zamknout zaznam
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 04.10.2008 19:23:22
2008/11/4 Karel Rys <delphi(zv)zas-me(tec)cz>:
> dobou zamcene zaznamy na serveru budou zamcene - jak dlouho budou jeste zamcene?
Dokud server nezjisti, ze klient neodpovida. Je na to ve firebird.conf parametr.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Firebird - jak zamknout zaznam
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 04.10.2008 19:21:22
2008/11/4 Karel Rys <delphi(zv)zas-me(tec)cz>:
> dobou zamcene zaznamy na serveru budou zamcene - jak dlouho budou jeste zamcene?
Dokud server nezjisti, ze klient neodpovida. Je na to ve firebird.conf parametr.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
SSH v C#
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 04.10.2008 19:11:21
Mrkni na komponenty Rebexu <http://www.rebex.net/ssh-shell.net/>.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Singleton
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 07.10.2008 22:58:22
treba takhle
unit UMujSingleton;
interface
type
TMujSingleton = class
private
constructor Create;
public
class function Instance : TMujSingleton;
end;
implementation
var
FMujSingleton : TMujSingleton = nil;
constructor TMujSingleton.Create;
begin
// nejake nastaveni objektu singletonu
end;
class function TMujSingleton.Instance : TMujSingleton;
begin
if FMujSingleton = nil
then FMujSingleton := TMujSingleton.Create;
Result := FMujSingleton;
end;
end.
talpa(zv)suchdol.net napsal(a):
> Ahoj, nemate nekdo ukazku jak se definuje v delphi singleton? Nejak se
> mi to vykourilo z palice:)
>
>
> Diky
>
> Ales
Singleton
[*] talpa(zv)suchdol(tec)net <aldik(zv)quick(tec)cz> - 07.10.2008 22:28:20
Ahoj, nemate nekdo ukazku jak se definuje v delphi singleton? Nejak se
mi to vykourilo z palice:)
Diky
Ales
OT: SSH v C# pomoci SharpSSH
[*] Dalibor <dalibor(zv)torola(tec)cz> - 07.10.2008 12:33:44
Ahoj, ze sve aplikace se potrebuji prihlasit k serveru pomoci SSH.
Nasel jsem komponenty SharpSSH, kterymi jsem schopen se prihlasit.
Obecne se lze prihlasit pres ssh -p 22 -l johndoe -i rsa_id 192.168.7.1 -s
DAL
(johndoe - prihlasovaci jmeno, rsa_id - soubor s privatnim klicem)
Problem je ten, ze nevim jak v techto komponentach zadat, aplikovat parametr
"-s DAL"
Nemate nekdo s nima zkusenosti, nevite jak na to?
Nebo neznate nejake jine komponenty, kterymi by to slo.
Hodne by mi to pomohlo.
Dekuji
D
Explicitni transakce v DBExpress + MSSQL
[*] Pavel Fiser <fiserpavel(zv)gmail(tec)com> - 07.10.2008 11:45:41
Ve smycce volam neco jako
SQLDataSet1.CommandText := format(
'execute sp_BALANCES_Add'+CRLF+
' (zv)irid = %d,'+CRLF+
' (zv)ibid = %d,'+CRLF+
...
rowsAff := SQLDataSet1.ExecSQL( true);
Vsechno funguje, pokud necham praci s transakcemi na nem.
Kdyz ale pred smycku dam
td.TransactionID := 1;
SQLConn.StartTransaction( td);
(a jeste jeden delete, ktery projde),
tak mi to pri prvnim volani te SP zarve:
'SQL Server Error:
Nelze vytvo'
To je vse, ta hlaska je takto oriznuta a ja nevim co mu nejde.
Pokud ten samy sled prikazu pustim v jedne transakci z MSSQL management
studia, tak to bez problemu jde.
Stejny postup s transakcemi s FB misto s MSSQL pouzivam bezne bez problemu.
Nevite, co by mohlo byt spatne, co jinak nastavit u te transakce ci
SQLConnection?
Diky moc, PF.
(D7E, DBExpress)Singleton
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 09.10.2008 10:32:40
google: http://dn.codegear.com/article/22576
>>> aldik(zv)quick(tec)cz 9.11.2008 10:22 >>>
Ahoj nemel by jste nekdo ukazku jak na Singleton v delphi?
kdysi davno jsme ho potreboval a nikde ted nemuzu najit jak singleton
vytvorit..
Diky
Ales
Singleton
[*] talpa(zv)suchdol(tec)net <aldik(zv)quick(tec)cz> - 09.10.2008 10:22:39
Ahoj nemel by jste nekdo ukazku jak na Singleton v delphi?
kdysi davno jsme ho potreboval a nikde ted nemuzu najit jak singleton
vytvorit..
Diky
Ales
spravce pameti "FastShareMem" nebo "ShareMem"
[*] Stanislav Cerny <s.cerny(zv)volny(tec)cz> - 09.10.2008 00:38:04
Ahojte,
nemate nekdo zkusenost s pouzivani spravce pameti "FastShareMem" nebo
"ShareMem". co je potreba udelat aby bylo mozne pouzit nejaky objekt v DLL,
ktery je uz v pameti vytvoren hlavnim programem? Nejak se mi to nedari.
Diky.
Standa
-vrstva aplikace Delphi
[*] Jirka Hajsl <jhajsl(zv)centrum(tec)cz> - 09.10.2008 18:25:09
Zdravim, predem se omlouvam za mozna stupidni dotazy ...
chtel bych svoji dosavadni aplikaci prepsat na 3-vrstvou "moderni"
architekturu, tedy prezentacni vrstvu (formy), business logiku, a
databazovou vrstvu a netusim jak na to, chci vyuzivat moznosti DBGridu,
DataSet, DataSource, ale netusim jake kompomenty pouzit (nemusi byt free).
Jedna se mi napriklad o to, aby z 1. vrstvy (form) jsem se zeptal na
seznam zakazniku, odpovi 2. vrstva, ktera data ziska z 3. db vrstvy ...
nyni to taham primo z DBgridu pres zname komponenty, kde na konci je
dotaz ... moje predstava je
v 1. vrstve se form zeptat neco v tomto smyslu
zak := Tzakaznici.Create;
zdroj := zak.GetSeznamZakazniku;
a ze promenne zdroj naplnim tabulku DBGridView
v 2. vrstve by bylo
type Tzakaznici = class
function GetSeznamZakazniku : TDataSource;
end;
function Tzakaznici.GetSeznamZakazniku : TDataSource;
begin
// spojeni s 3. vrstavou
connect := dbconn.Create;
result := connect.GetTable(zakaznici);
end;
a 3. vrstva by byla
...
function firebirdClass.GetTable(table : String) : TDataSet;
begin
sql = 'SELECT * FROM '+table;
result := .... vysledek dotazu;
end;
tak abych pri zmene databaze menil jen 3.vrstvu a v kodu nemusel na 1. a
2. vrstvu sahat
uprimne nevim, jeslti je tahle predstava spravna nebo je to uplne mimo,
prosim o pripadne nasmerovani na nejakou literaturu, google (nic jsem
nenasel), programovanim DB v Delphi zacinam, ale chtel bych to od
zacatku delat sprave a poradne
vim priblizne jak ma 3-vrstva architektura fungovat, ale neumim si
predstavit jeji pouziti v Delphi.
--
JH
-vrstva aplikace Delphi
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 09.10.2008 18:45:10
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jirka Hajsl
Ahoj,
no, sice to neni o 3v architekture, ale co se tyce zmen DB
stroje bez zasahu do apl, tak v ramci moznosti,
pri dodrzeni "univerzalnich" sql a db standardu tak lze pouzit
(podle me na dost dobre urovni vcetne supportu) komponenty
UniDAC (www.devart.com) = MSSQL+Oracle+Firebird+MySQL.
Komponenty jsou zalozeny na spolecnych prvcich jednotlivych
db stroju, takze menis pouze, jednoduse receno, pres jake
interface se ma db pripojit. Pokud bys pozadoval nejake specialitky
pro ten ci onen DB stroj tak pak dodavaji cilene balicky komponent
jako napr. ODAC (Oracle), SDAC(MSSQL)..., kterezto obsahuji
individualni specifika daneho prostredi. vice viz jejich web. Pouzivam
pro FB, Oracle a MSSQL, spokojen pro sve potreby. Vsechno nativni
bez potreb externich dll, ci ovladacu, ktere by bylo nutno dodavat se svou
apl.
PMal
> tak abych pri zmene databaze menil jen 3.vrstvu a v kodu
> nemusel na 1. a
> 2. vrstvu sahat
> uprimne nevim, jeslti je tahle predstava spravna nebo je to
> uplne mimo,
> prosim o pripadne nasmerovani na nejakou literaturu, google (nic jsem
> nenasel), programovanim DB v Delphi zacinam, ale chtel bych to od
> zacatku delat sprave a poradne
>
> vim priblizne jak ma 3-vrstva architektura fungovat, ale neumim si
> predstavit jeji pouziti v Delphi.
>
> --
>
> JH
>
>
>
> BDEadmin a vista
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 10.10.2008 07:43:58
Dobry den spolecnosti,
nesetkali jste se nekdo s vytuhnutim BDEadminu pri jeho ukonceni? Totez se deje pri ulozeni nastaveni tlacitkem apply. Pouzivam D5 Ent a Windows Vista Bussines, nebo jak se to pise spravne. Vim ze visty uz bde nepodporuji, ale prece jenom nejaka zpetna kompatibilita programu by se dala predpokladat. Zajimave je, ze zmeny v konfiguraci pritom jsou ulozeny, i kdyz admina musim shodit pres spravce uloh.
Dalibor.
Havaria programu pri otvarani databazy.
[*] vyvoj(zv)tsw.sk - 10.10.2008 03:53:44
Dobry den,
nevie mi niekto poradit, ako je mozne, ze mi program havaruje pro otvarani databaz (t.j. volani Open na komponente TIBDatabase)?
Ale nie v ladiacom mode, ani v mojom prostredi (v oboch to funguje v pohode) ale len ked skusam spustit exac v cudzom prostredi, t.j. tam, kde bude realne fungovat. Databaza je v poriadku, neposkodena, to som overoval.
Pracujem s Delphi 2006+- IB komponenty, Interbase 7.1, Windows XP
Dakujem za kazdu radu.
S pozdravom IVan Kozak
P.S. Ak to dojde dvakrat, ospravedlnujem sa, nie som si isty, na aku adresu to mam posiat.
BDEadmin a vista
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 10.10.2008 08:20:01
Je potreba ho spoustet jako spravce (alespon na Home Premium to pomuze).
BDEadmin a vista
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 10.10.2008 08:46:02
Jsem spravce.
> Je potreba ho spoustet jako spravce (alespon na Home Premium to pomuze).
-vrstva aplikace Delphi
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 10.10.2008 09:26:05
> chtel bych svoji dosavadni aplikaci prepsat na 3-vrstvou "moderni"
> architekturu, tedy prezentacni vrstvu (formy), business logiku, a
> databazovou vrstvu a netusim jak na to, chci vyuzivat moznosti DBGridu,
> DataSet, DataSource, ale netusim jake kompomenty pouzit (nemusi
> byt free).
Klient - TClientDataSet
Nad tim se postavi cele uzivatelske rozhrani vcetne gridu, DBEditu atd.
Je to rychle (memory table) a na databazi zcela nezavisle.
AppServer - TDataSetProvider + jakykoli TxxxDataSet
+ jemu odpovidajici TxxxConnection, TxxxDatabase
Je o tom hodne co vypravet ...
"Odpojena" prace s daty (Delta, ApplyUpdates), vnorene datasety, klonovane datasety, aggregates, ...
AppServer krome datove komunikace bude asi plnit dalsi funkce (nejaky inteface).
Tedy asi COM/DCOM (nebo neco jineho?).
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
BDEadmin a vista
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 10.10.2008 08:50:03
To nevadi. Klikni prvou mysi a zvol spustit jako spravce (prestoze jsi spravce).
>>> dalibor.faltynek(zv)orgrez(tec)cz 10.11.2008 8:46 >>>
Jsem spravce.
> Je potreba ho spoustet jako spravce (alespon na Home Premium to pomuze).Havaria programu pri otvarani databazy.
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 10.10.2008 10:12:08
A jak vypada chybova hlaska???
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Havaria programu pri otvarani databazy.
[*] horky(zv)cominn(tec)cz - 10.10.2008 10:40:10
> From: vyvoj(zv)tsw.sk [mailto:vyvoj(zv)tsw.sk]
> Subject: Havaria programu pri otvarani databazy.
> nevie mi niekto poradit, ako je mozne, ze mi program havaruje
> pro otvarani databaz (t.j. volani Open na komponente TIBDatabase)?
> Ale nie v ladiacom mode, ani v mojom prostredi (v oboch to
> funguje v pohode) ale len ked skusam spustit exac v cudzom
> prostredi, t.j. tam, kde bude realne fungovat. Databaza je v
> poriadku, neposkodena, to som overoval.
Podivej se, jestli nejsou rozdilne nastavene formaty datumu/casu v Ovladacich panelech - Regional settings.
Pokud mas doma ceske/slovenske Windows a v cizim prostredi napr. anglicke, jsou jine formaty datumu.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Havaria programu pri otvarani databazy.
[*] Pavel Fiser <fiserpavel(zv)gmail(tec)com> - 10.10.2008 10:18:09
Nevim jak u IB komponent, ale u DBExpress se mi to takhle chovalo, kdyz jsem
mel v designtimu omylem ulozen datamodul se zapomenutym SQLConnection s
connected=true a pri spusteni nebyla DB pristupna.Protoze pri load formularu
z resources jeste nefunguje application.OnException, tak to ani nejde
klasicky odchytit :-(.
Vyresil jsem to predelanim datamodulu z TDataModule na TForm, kde funguje
(myslim) OnLoaded, a tam jsem pouzil
TMySQLConnection = class( TSQLConnection)
public
property StreamedConnected; //zverejneni metody predka TCustomConnection
end;
procedure TDMApoMain.FormLoaded(Sender: TObject);
begin
//pokud byl SQLConnMain ulozen s Connected=true, u klienta to padalo do
DrWatsona,
//protoze se nezadarilo pripojit a pri natahovani formulare z resourcu
//jeste nefunguje Application.OnException
TMySQLConnection(SQLConnMain).StreamedConnected := false;
end;
Snad to pomuze. PF.
2008/11/10 <vyvoj(zv)tsw.sk>
> Dobry den,
>
> nevie mi niekto poradit, ako je mozne, ze mi program havaruje pro otvarani
> databaz (t.j. volani Open na komponente TIBDatabase)?
>
> Ale nie v ladiacom mode, ani v mojom prostredi (v oboch to funguje v
> pohode) ale len ked skusam spustit exac v cudzom prostredi, t.j. tam, kde
> bude realne fungovat. Databaza je v poriadku, neposkodena, to som overoval.
>
> Pracujem s Delphi 2006+- IB komponenty, Interbase 7.1, Windows XP
>
> Dakujem za kazdu radu.
>
> S pozdravom IVan Kozak
>
> P.S. Ak to dojde dvakrat, ospravedlnujem sa, nie som si isty, na aku adresu
> to mam posiat.
>
>
>
>Havaria programu pri otvarani databazy.
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 10.10.2008 12:10:16
> nevie mi niekto poradit, ako je mozne, ze mi program havaruje pro
> otvarani databaz (t.j. volani Open na komponente TIBDatabase)?
>
> Ale nie v ladiacom mode, ani v mojom prostredi (v oboch to
> funguje v pohode) ale len ked skusam spustit exac v cudzom
> prostredi, t.j. tam, kde bude realne fungovat.
Tip, mozna mylny:
-
V design time mas nastaveno IBDatabase.Connected=true
-
Poradi udalosti na TDataModule (i jinde) je
a) vytvorit komponenty definovane v dfm
b) nastavit jejich vlastnosti
c) OnCreate
-
Pokud mas v dfm IBDatabase.Connected=true, pripojujes se na DatabaseName nastavene v design time.
To je ale u uzivatele dozajista spatne, ma ji umistenou jinde.
-
OnCreate muzes do DatabaseName cpat cokoli, to uz je ale pozde.
Spravne DatabaseName (platne u uzivatele - nejake INI) bys mel nastavovat napr. BeforeOpen.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
Boolean v BDGridu
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 10.10.2008 12:06:16
Pekny den preju vsem,
potrebuji v DBGridu, ktery je soucasti Delphi, vytvorit u boolean udaje
ctverecek s "fajfkou". Zakaznikovi vadi "true nebo false". A nemuzu
pouzit komponentu treti strany.
Nevite nekdo, jak na to? A jde to vubec?
Diky za jakoukoliv pomoc, nebo tip.
Honza
Boolean v BDGridu
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 10.10.2008 12:20:17
> Jan Stefec
> potrebuji v DBGridu, ktery je soucasti Delphi, vytvorit u boolean udaje
> ctverecek s "fajfkou". Zakaznikovi vadi "true nebo false". A nemuzu
> pouzit komponentu treti strany.
Ahoj Honzo
-
v gridu zobraz A/N nebo 1/0 (Field.OnGetText, Field.OnSetText)
-
Uzivateli seber mys a ukecej ho, at pise A/N nebo 1/0.
:-)
To funguje, mam to overene.
:-)
-
Borland.TDBGrid je sice hruza, ale jine komponenty taky nepouzivam.
Dalsi reseni je TDBGrid.OnDrawColumnCell a DefaultDrawing.
To bych ale radsi venoval vetsi usili na premlouvani uzivatele, nez abych se do toho vrtal.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
BDEadmin a vista
[*] Ales Kysela <ales.kysela(zv)publicis(tec)cz> - 10.10.2008 13:30:21
Dobry den, mne pomohlo spoustet v modu XP compatible.
>To nevadi. Klikni prvou mysi a zvol spustit jako spravce (prestoze jsi spravce).
>>>> dalibor.faltynek(zv)orgrez(tec)cz 10.11.2008 8:46 >>>
>Jsem spravce.
>> Je potreba ho spoustet jako spravce (alespon na Home Premium to pomuze).
Chyba pri IBQuery.Open
[*] JiL?A? HajL?l <jhajsl(zv)centrum(tec)cz> - 10.10.2008 12:48:18
v Delphi 2007 jsem mel nasledujici prikladovy kod, v Delphi 2009 mi ale nefunguje, viz dale
procedure TForm.Button1OnClick(Sender)
var text : String;
begin
IBDatabase.Connected := true;
IBQuery.SQL.Clear;
IBQuery.SQL.Add('SELECT count(*) AS pocet FROM new_table1');
IBQuery.Open;
Button1.Caption := IBQuery1.FieldByName('pocet').AsString;
// tento kod mi vrati spravne cislo 2, ale nasedujici kod vyvola chybu Division By Zero
IBQuery.SQL.Clear;
IBQuery.SQL.Add('SELECT * FROM new_table1');
IBQuery.Open; // p+AVk-i krokovani kodu mi to zde vyvola DIVISION BY ZERO, resp. kdyz to preskakuje k tomu while
while IBQuery.eof do
begin
......
end;
end;
zminenou chybu to vyvola u vsech dotazu typu , objevilo se mi to vsech projektu, ruzne databaze (vsechny Firebird)
dodatek: omlouvam se za kod, pisu to hlavy, tak+AX4-e tam mohou byt nepresnosti, skutecny kod se normalne prelozi a fungoval
Jirka
BDEadmin a vista
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 10.10.2008 14:40:26
Jejky, a jak se dosahuje tohoto modu?
Diky - Dalibor.
> Dobry den, mne pomohlo spoustet v modu XP compatible.
Boolean v BDGridu
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 10.10.2008 14:40:25
Jan Sebelik napsal(a):
> Dalsi reseni je TDBGrid.OnDrawColumnCell a DefaultDrawing.
> To bych ale radsi venoval vetsi usili na premlouvani uzivatele, nez abych se do toho vrtal.
>
Uzivatel na tom trva.... Ale nebylo to zas tak tezky:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
DrawState: Integer;
DrawRect: TRect;
begin
if (Column.Field.FieldName = 'BLN_VE_STAVU') then begin
DrawRect:=Rect;
InflateRect(DrawRect,-1,-1);
if Column.Field.Value = 1 then begin
DrawState := DFCS_CHECKED;
end else begin
DrawState := DFCS_BUTTONCHECK;
end;
DBGrid1.Canvas.FillRect(Rect);
DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect, DFC_BUTTON,
DrawState);
end;
end;
A kdyz si z DBGridu odvodim vlastni komponentu, tak mam v celem projektu
vystarano.
Diky vsem za nasmerovani.
Honza
chyba v IBQuery.Open 2
[*] Lauko Stefan, Insypo <lauko(zv)insypo.sk> - 10.10.2008 22:22:55
Skusam D2009, Firebird 2.1 (TIBDataset aj TIBTable) a mam ten isty problem.
Lauko
----- Original Message -----
From: "Jirka Hajsl" <jhajsl(zv)centrum(tec)cz>
> - Button1Click funguje jak ma (DBExpress), zjistit pocet zaznamu a
> vypise je do memo1, bohuzel Button2Click to neumi, problem je asi tedy v
> nastaveni IBDatabase nebo IBQuery, oproti Delphi 2007 jsem nic nemenil,
> zadne nastaveni, nema nekdo podobny problem pri prechodu z D2007 na D2009.
>
> Jeste pripomenu ze vyjimka, ktera vyskoci, je DIVISION BY ZERO a vyskoci
> ihned v procedure IBQuery1.Open
>
chyba v IBQuery.Open 2
[*] Jirka Hajsl <jhajsl(zv)centrum(tec)cz> - 10.10.2008 20:14:46
Omlouvam se za cestinu, zkusim to jeste jednou a se skutecnym kodem
- Button1Click funguje jak ma (DBExpress), zjistit pocet zaznamu a
vypise je do memo1, bohuzel Button2Click to neumi, problem je asi tedy v
nastaveni IBDatabase nebo IBQuery, oproti Delphi 2007 jsem nic nemenil,
zadne nastaveni, nema nekdo podobny problem pri prechodu z D2007 na D2009.
Jeste pripomenu ze vyjimka, ktera vyskoci, je DIVISION BY ZERO a vyskoci
ihned v procedure IBQuery1.Open
procedure TForm1.Button1Click(Sender: TObject);
var str : String;
begin
SQLConnection1.Connected := true;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('select count(*) AS pocet from new_table1');
SQLQuery1.Open; // funguje
Label1.Caption := SQLQuery1.FieldByName('pocet').AsString;
Memo1.Lines.Clear;
with SQLQuery1 do
begin
SQL.Clear;
SQL.Add('SELECT id,name,pomoc FROM new_table1');
Open; // funguje
end;
while not SQLQuery1.Eof do
begin // funguje
str := SQLQuery1.FieldByName('id').AsString;
str := str + SQLQuery1.FieldByName('name').AsString;
str := str + SQLQuery1.FieldByName('pomoc').AsString;
Memo1.Lines.Add(str);
SQLQuery1.Next;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var str : String;
begin
IBDatabase1.Connected := true;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select count(*) AS pocet from new_table1');
IBQuery1.Open; // funguje
Label2.Caption := IBQuery1.FieldByName('pocet').AsString;
Memo1.Lines.Clear;
with IBQuery1 do
begin
SQL.Clear;
SQL.Add('SELECT id,name,pomoc FROM new_table1');
Open; // zde to hazi vyjimku Division by zero!!!
end;
while not IBQuery1.Eof do
begin
str := IBQuery1.FieldByName('id').AsString;
str := str + IBQuery1.FieldByName('name').AsString;
str := str + IBQuery1.FieldByName('pomoc').AsString;
Memo1.Lines.Add(str);
IBQuery1.Next;
end;
end;
--
S pozdravem
Jiri Hajsl
web: www.hajsl(tec)cz
tel: 732 490 034
ICQ: 159 844 819
DBA pripona databazy.
[*] Roland Turcan <konf(zv)rotursoft.sk> - 10.10.2008 18:58:42
Hello All!
Dostal som za ulohu preklopit data z nejakej databazy, ale este som sa
s nou v zivote nestretol. Jedna sa o suborovu databazu, ktora ma
subory s priponou *.DBA a su tam aj nejake subory s priponou *.PRE.
Nasiel som na nete, ze by to mohlo byt z Turbo Prolog Easedata
Database, ale nie som si isty.
Poznate to? Cim sa to da otvorit a vyexportovat?
Dakujem.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
BDEadmin a vista
[*] Ales Kysela <ales.kysela(zv)publicis(tec)cz> - 10.10.2008 16:30:33
Options , compatibility
Vista BU SP1
A.K.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Faltynek
Sent: Monday, November 10, 2008 2:40 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: BDEadmin a vista
>Jejky, a jak se dosahuje tohoto modu?
>Diky - Dalibor.
>> Dobry den, mne pomohlo spoustet v modu XP compatible.
chyba v IBQuery.Open 2
[*] Jirka Hajsl <jhajsl(zv)centrum(tec)cz> - 11.10.2008 12:05:46
Ahoj,
problem dle meho neni rozhodne v FB, ale v tech komponentach protoze uplne stejny postup pres DBExpress fungoval, na stejnem souboru GDB (zdroj je v puvodni zprave)
Jirka
------------ P+AW8-vodn+AO0- zpr+AOE-va ------------
Od: Jan Stefec <stefec(zv)algo-hk(tec)cz>
P+AVk-edm+ARs-t: Re: chyba v IBQuery.Open 2
Datum: 11.11.2008 09:00:20
>Ahoj,
>neni to pod FB 2.1?
>Mel jsem podobny problem. Pod FB 2.0 databaze zila bez problemu, ale pod
>FB 2.1 v ni strasilo. Nepomohlo ani udelat pod 2.0 backup a pod 2.1
>restore. Az kdyz jsem pod 2.1 vytvoril novou prazdnou databazi a pomoci
>metadat v ni zalozil vsechny objekty, zacalo se vse chovat normalne.
>Zkus ten select provest v IBExpertu a uvidis, jestli je problem v Query
>nebo v FB..
>DBA pripona databazy.
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 11.10.2008 11:57:46
>> pro Pervasive (BTrieve ) je v souborech *.pre popsana struktura souboru.
>
> Ja myslim, ze ne. Pokud se jedna o Btrieve, pak v *.pre souborech neni
> popis
Soubor pro BTrieve je binarni soubor, ktery nenese informaci o strukture
tabulky. Do nej se zapisuje zpravidla struktura record a zase se zpet nacita
do te same promenne v programu. Takze ze samotneho datoveho souboru se neda
uz nic vysosat, je nutne puvodni aplikaci (ktera jedina zna strukturu
zaznamu) to exportovat do neceho normalniho (DBF) a pak si s tim hrat.
Jaroslav Nadhera
CSH spol. s r.o.
Wuchterlova 5, 160 00 Praha 6
tel.: 226 218 084
e-mail: nadhera(zv)csh(tec)cz , WWW: http://www.csh(tec)cz
pobocka Ostrava: Nedbalova 14, 701 00 Ostrava
tel.: 597 578 698
DBA pripona databazy.
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 11.10.2008 11:25:43
----- Original Message -----
From: "Pavel Gazda" <pavel_gazda(zv)datasw(tec)cz>
> pro Pervasive (BTrieve ) je v souborech *.pre popsana struktura souboru.
Ja myslim, ze ne. Pokud se jedna o Btrieve, pak v *.pre souborech neni popis
struktury souboru, ale informace o neukoncenych transakcich, jak psal Marek
Dostal. Je dulezite soubory *.pre (pokud nemaji nulovou delku) udrzovat ve
dvojici se stejnojmennym datovym souborem. Pokud by se otviral datovy soubor
s nedokoncenou transakci a chybel by mu *.pre soubor, pak by se datovy
soubor tvaril jako poskozeny a mohl by byt problem se ctenim dat.
Nejlepsi by bylo otevrit datove soubory v puvodni aplikaci a radne dokoncit
transakce, aby *.pre soubory zmizely. Teprve pak otvirat datove soubory pro
export dat.
Vaclav Krmela
DBA pripona databazy.
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 11.10.2008 10:41:40
Ahoj
pro Pervasive (BTrieve ) je v souborech *.pre popsana struktura souboru.
Pripona datoveho souboru muze byt libovolna.
Pokud se jedna o Pervasive, napis na muj mail, muzu ti pomoct.
nebo
nainstaluj Pervasive a vyexportuj data do textoveho souboru.
Pavel
Marek Dostal napsal(a):
> Kdysi jsme delali se souborovou databazi BTrieve, soubory s daty bylo mozno
> pojmenovat libovolne, vcetne pripony, takze podle te se to nepozna, ale
> btrieve vytvarel behem sve prace soubory *.pre. Uz si to presne nepamatuji,
> ale tusim ze kdyz byla nejaka aktivni transakce, tak se vytvoril soubor
> *.pre a po ukonceni zase zmizel.
>
>
chyba v IBQuery.Open 2
[*] Jan Stefec <stefec(zv)algo-hk(tec)cz> - 11.10.2008 08:57:34
Jirka Hajsl napsal(a):
> Memo1.Lines.Clear;
> with IBQuery1 do
> begin
> SQL.Clear;
> SQL.Add('SELECT id,name,pomoc FROM new_table1');
> Open; // zde to hazi vyjimku Division by zero!!!
> end;
>
>
Ahoj,
neni to pod FB 2.1?
Mel jsem podobny problem. Pod FB 2.0 databaze zila bez problemu, ale pod
FB 2.1 v ni strasilo. Nepomohlo ani udelat pod 2.0 backup a pod 2.1
restore. Az kdyz jsem pod 2.1 vytvoril novou prazdnou databazi a pomoci
metadat v ni zalozil vsechny objekty, zacalo se vse chovat normalne.
Zkus ten select provest v IBExpertu a uvidis, jestli je problem v Query
nebo v FB...
Honza
DBA pripona databazy.
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 11.10.2008 08:45:33
Kdysi jsme delali se souborovou databazi BTrieve, soubory s daty bylo mozno
pojmenovat libovolne, vcetne pripony, takze podle te se to nepozna, ale
btrieve vytvarel behem sve prace soubory *.pre. Uz si to presne nepamatuji,
ale tusim ze kdyz byla nejaka aktivni transakce, tak se vytvoril soubor
*.pre a po ukonceni zase zmizel.
Marek Dostal
D7Prof, WinXP, FireBird
----- Original Message -----
From: "Roland Turcan" <konf(zv)rotursoft.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 10, 2008 6:58 PM
Subject: DBA pripona databazy.> Hello All!
>
> Dostal som za ulohu preklopit data z nejakej databazy, ale este som sa
> s nou v zivote nestretol. Jedna sa o suborovu databazu, ktora ma
> subory s priponou *.DBA a su tam aj nejake subory s priponou *.PRE.
> Nasiel som na nete, ze by to mohlo byt z Turbo Prolog Easedata
> Database, ale nie som si isty.
>
> Poznate to? Cim sa to da otvorit a vyexportovat?
>
> Dakujem.
>
> --
> Best regards, TRoland
>
> http://exekutor.rotursoft.sk
>
>
>
DBA pripona databazy.
[*] Pavel Gazda <pavel gazda(zv)datasw(tec)cz> - 11.10.2008 12:17:47
Ja myslim, ze ne. Pokud se jedna o Btrieve, pak v *.pre souborech neni popis
>
> Soubor pro BTrieve je binarni soubor, ktery nenese informaci o strukture
> tabulky. Do nej se zapisuje zpravidla struktura record a zase se zpet nacita
> do te same promenne v programu. Takze ze samotneho datoveho souboru se neda
> uz nic vysosat, je nutne puvodni aplikaci (ktera jedina zna strukturu
> zaznamu) to exportovat do neceho normalniho (DBF) a pak si s tim hrat
Jo, omlouvam se, ukvapil jsem se. Pripona *.pre neni pro popis struktury.
Vychazel jsem z toho, ze vlastni soubor informaci o strukture neobsahuje
a z mylne uvahy, ze je pripojen soubor se strukturou.
Samozrejme, ze nejlepsi je exportovat data ze systemu, ktery je zna,
ale pri trose snahy se daji vetsinou data vytahnout i z nezname struktury.
Pavel
prenos dat do TdxMemData
[*] dan <xfojtik(zv)centrum(tec)cz> - 11.10.2008 14:51:57
Ahoj
Mam zajimavy problem. Pouzivam pametovy dataset TdxMemData od Developer
Express. Narazil jsem na velkou casovou narocnost pri nacitani dat do tohoto
datasetu. Konkretne serie prikazu:
Var FDataset: TDataSet;
FMemo: TDXMemData;
Begin
FDataset := TDataSet.Create(Self);
FMemo := TDXMemData.Create(Self);
Try
FDataSet.Databasename := ...
FDataSet.SQL.Text := ...
... {zde se nadefinuji fieldy vcetne 6 lookupovych poli}
FDataSet.Open;
FMemo.LoadFromDataset(FDataSet);
Finally
FreeAndNil(FDataset);
FreeAndNil(FMemo);
End;
End;
Mi pri krokovani trva -
FDataSet.Open - 10 sekund
FMemo.LoadFromDataset(FDataSet) - 50 sekund
Kde je problem - v tom ze FDataSet ma Lookupova pole. Bohuzel tato pole jsou
dulezita. Pokud datasetu FDataSet (ktery ma cca 100 sloupcu a 5000 zaznamu)
pridam 5 lookupovych poli, trva LoadFromDataset 50 sekund. Pokud tam ty pole
nepridam, trva LoadFromDataset jen 10 sekund. Jde o dost vyrazne zrychleni.
Nemate napad jak upravit LoadFromDataset aby prenesl i lookupova pole ale
aby se to provedlo rychle?
Dan
prenos dat do TdxMemData
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 11.10.2008 16:36:03
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of dan
Ahoj,
Jak svizne ti zafunguje FDataset.Open, ale pri FEETCH ALL ?!
Vlastni mdX.LoadFromDataset mozna nebude tim kritickym mistem...
PMal
> Nemate napad jak upravit LoadFromDataset aby prenesl i
> lookupova pole ale
> aby se to provedlo rychle?
>
> Dan
>
>
>
> Funce v C++
[*] lelicek(zv)volny(tec)cz - 12.10.2008 20:37:44
Ahoj,
musim pripravit komunikaci se zarizenim ke kteremu jsme dostali DLL knihovnu
vytvorenou v C++, v popisu jsou fce jako:
HANDLE _APICALL HMOpenDevice( LPCTSTR sPort, DWORD dwBaudRate, HANDLE
hEvent, BOOL bUseExtProt );
int _APICALL HMSendSelect( HANDLE hDevice, const unsigned __int64* u64CrdSRN
);
int _APICALL HMResultGetSNR( HANDLE hDevice, BYTE* bCrdTyp, unsigned
__int64* u64CrdSRN, DWORD dwTimeout );
Muzete mi poradit jak to prepsat do Delphi, nejak se v tom topim.
Predem diky Pavel
chyba v IBQuery.Open 2
[*] Jirka Hajsl <jhajsl(zv)centrum(tec)cz> - 12.10.2008 20:21:43
Ahoj,
tak problem je v kodovani, jedine kodovani, ktere Delphi 2009 pro
Firebird je UNICODE_FSS, dam-li jakekoli jine, zahlasi to pri pokusu
vypsat sloupce v jinem nez v tomto kodovani Division by zero, bohuzel
pokud toto kodovani pouziji, tak razeni dle cestiny je K.O. ... nejdrive
vsechna mala ASCII, velka ASCII pismena, mala pismena s hacky, velka
pisemna s hacky .... chyba se projevuje jak s FB 2.0.4, tak FB 2.1.1 ...
netusi nekdo co s tim ... :-(
Jirka
Jan Stefec napsal(a):
> Ahoj,
> neni to pod FB 2.1?
> Mel jsem podobny problem. Pod FB 2.0 databaze zila bez problemu, ale pod
> FB 2.1 v ni strasilo. Nepomohlo ani udelat pod 2.0 backup a pod 2.1
> restore. Az kdyz jsem pod 2.1 vytvoril novou prazdnou databazi a pomoci
> metadat v ni zalozil vsechny objekty, zacalo se vse chovat normalne.
> Zkus ten select provest v IBExpertu a uvidis, jestli je problem v Query
> nebo v FB...
>
> Honza
>
>
>
FB segment size
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 13.10.2008 06:46:27
FB 1.5
Nejaky tip, jak nastavit segment size pro binarni bloby?
Jde o zazipovane texty.
Diky
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
prenos dat do TdxMemData
[*] dan <xfojtik(zv)centrum(tec)cz> - 13.10.2008 11:26:45
Ahoj,
Omlouvam se za dlouhou dobu reakce, nemel jsem chvili cas se k tomuto
problemu vratit.
Bohuzel tato teorie se mi nepotvrdila. Prikaz FDataset.FetchAll se provedl
temer ihned. Stejne jako:
DataSet.First;
while not DataSet.Eof do begin
DataSet.Next;
end;
Dokonce kdyz jsem v puvodnim datasetu nechal lookupova pole a operaci
FMemo.LoadFromDataset vevnitr upravil, aby se lookupova pole neprenasely,
pak se LoadFromDataset zkratil na 10 sekund. Problem je tedy opravdu v tom,
ze FMemo obsahuje lookupova pole a vkladaji se prikazem append do nej
vsechny zaznamy z FDataSet. Hodilo by se treba dodatecne vytvoreni
lookupovych poli u FMemo az pote, co jsou do nej prenesene klasicke data.
Takova moznost ale neexistuje - pole jdou pridavat jen pred nactenim dat
(prevedenim FMemo do stavu aktive=true)
Dan
-----Original Message-----
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of dan
Ahoj,
Jak svizne ti zafunguje FDataset.Open, ale pri FEETCH ALL ?!
Vlastni mdX.LoadFromDataset mozna nebude tim kritickym mistem...
PMal
> Nemate napad jak upravit LoadFromDataset aby prenesl i
> lookupova pole ale
> aby se to provedlo rychle?
>
> Dan
Var FDataset: TDataSet;
FMemo: TDXMemData;
Begin
FDataset := TDataSet.Create(Self);
FMemo := TDXMemData.Create(Self);
Try
FDataSet.Databasename := ...
FDataSet.SQL.Text := ...
... {zde se nadefinuji fieldy vcetne 6 lookupovych poli}
FDataSet.Open;
FMemo.LoadFromDataset(FDataSet);
Finally
FreeAndNil(FDataset);
FreeAndNil(FMemo);
End;
End;
FB segment size
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 13.10.2008 15:21:00
On Thu, Nov 13, 2008 at 06:46, Jan Sebelik <honza(zv)haes(tec)cz> wrote:
> FB 1.5
> Nejaky tip, jak nastavit segment size pro binarni bloby?
> Jde o zazipovane texty.
80 ;)
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
-vrstva aplikace Delphi
[*] Jirka Hajsl <jhajsl(zv)centrum(tec)cz> - 13.10.2008 19:35:16
Nejaka vhodna literatura?? Vse co nabizeji na netu jsou veci pro
zacatecniky, vim kdybych si dal praci, asi bych neco nasel, ale jestli
byste nekdo vedeli o necem pokud mozno v cestine (ne nutne), byl bych
vdecny.
Jan Sebelik napsal(a):
> Klient - TClientDataSet
> Nad tim se postavi cele uzivatelske rozhrani vcetne gridu, DBEditu atd.
> Je to rychle (memory table) a na databazi zcela nezavisle.
>
> AppServer - TDataSetProvider + jakykoli TxxxDataSet
> + jemu odpovidajici TxxxConnection, TxxxDatabase
>
> Je o tom hodne co vypravet ...
> "Odpojena" prace s daty (Delta, ApplyUpdates), vnorene datasety, klonovane datasety, aggregates, ...
> AppServer krome datove komunikace bude asi plnit dalsi funkce (nejaky inteface).
> Tedy asi COM/DCOM (nebo neco jineho?).
>
> Honza
> ====================================
> = RNDr. Jan Sebelik - HAES
> = Skolici a konzultacni stredisko pro vyvoj SW
> = www.haes(tec)cz
> = Vojtiskova 321
> = 507 81 Lazne Belohrad
> ====================================
>
>
>
>
Jak zjistit zda radek v TClientDataSet byl zmenen?
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 14.10.2008 13:02:19
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of delphak(zv)centrum(tec)cz
>
> Jak lze zjistit zda radek v TClientDataSet byl zmenen? Property
> ChangeCount vrati pocet zmenenych zaznamu. Property Modified
> vraci informaci, zda byl aktivni radek modifikovan, ale pouze do
> zavolani Post. Stejne tak nelze pouzit porovnani Field.Value a
> Field.OldValue, protoze pri POST se OldValue nastavi na Value.
> Je tedy nejaky zpusob jak zjisti, zda-byl radek modifikovan a
> bude zapisovan do DB?
Osobne me prekvaluje, ze by to neslo zjistit pres OldValue / NewValue.
Ale nebudu s tim ted laborovat.
A co kdyby ses zkusil podivat do Delta:
cdsDelta.Data := cdsData.Delta;
V cdsDelta najdes vsechny modifikovane zaznamy:
cdsDelta.UpdateStatus = usUnModified, usModified, usDeleted, usInserted
Modifikovane zaznamy jdou vzdycky v poradi usUnModified (puvodni hodnoty), usModified (nove hodnoty).
Jeste jeden tip:
Mel jsem problemy v usModified zaznamu zjistit, zda byla polozka modifikovana na null anebo modifikovana nebyla.
Ted jsem si povsiml, ze rozdil je v tom, ze NewValue= null / unassigned.
Jeste to nemam uplne prozkoumany.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================EDI, EDIFACT, jclEDI
[*] delphi(zv)dsoft(tec)cz - 14.10.2008 12:10:16
Ahoj, vytvoril jsem nekdo komunikaci v EDI s knihovnou jcl resp. jclEDI ?
Za kazdou odpoved - zkusenost s formatem EDI budu vdecny
Vlada
Jak zjistit zda radek v TClientDataSet byl zmenen?
[*] delphak(zv)centrum(tec)cz - 14.10.2008 10:58:12
Jak lze zjistit zda radek v TClientDataSet byl zmenen? Property ChangeCount vrati pocet zmenenych zaznamu. Property Modified vraci informaci, zda byl aktivni radek modifikovan, ale pouze do zavolani Post. Stejne tak nelze pouzit porovnani Field.Value a Field.OldValue, protoze pri POST se OldValue nastavi na Value.
Je tedy nejaky zpusob jak zjisti, zda-byl radek modifikovan a bude zapisovan do DB?
Dik V.
-vrstva aplikace Delphi
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 14.10.2008 10:40:11
> Nejaka vhodna literatura?? Vse co nabizeji na netu jsou veci pro
> zacatecniky, vim kdybych si dal praci, asi bych neco nasel, ale jestli
> byste nekdo vedeli o necem pokud mozno v cestine (ne nutne), byl bych
> vdecny.
Kontaktuj me klidne mimo konferenci.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
====================================
automaticke prochazeni formulari v alpikaci (asi R
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2008 08:03:27
Ahoj,
potrebuju projit vsemi formulari v aplikaci a pokud je konkretni
formular daneho typu, overit nastaveni vlastnosti jedne jeho komponenty.
Konkretne mame nejake oddedene formulare s TIBDataSet a v DesignTime
se obcas ztrati nastaveni vlastnosti Database (problem v IDE). Resime to
nastavenim v udalosti OnCreate formulare, ale zjistili jsme, ze kolegove
to v jedne rozsahle aplikaci nedelali prohledavani kodu a testovani by
zabralo hodne casu. Formulare navic mohou obsahovat vlozene TFrame se
stejnym problemem.
Stacilo by mi, kdy slo projit veskere objekty v projektu, nebo
alespon ty oddedene od TForm, pak uz vim jak dal. Potreboval bych bud
malinky prikladek, nebo alespon poradit kterou funkci si mam nastudovat.
Me se nedari nic vygooglovat ani najit v helpu, zvlaste, kdyz netusim,
co vlastne hledam.
Dekuji
Peca aka Petr Palicka
automaticke prochazeni formulari v alpikaci (asi R
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 15.10.2008 14:34:25
> Konkretne mame nejake oddedene formulare s TIBDataSet a v DesignTime
Nejednodnodussi bude tedy kontrolu provadet v Create spolecneho predka.
CheckDB(self);
> Stacilo by mi, kdy slo projit veskere objekty v projektu, nebo
> alespon ty oddedene od TForm, pak uz vim jak dal. Potreboval bych bud
> malinky prikladek, nebo alespon poradit kterou funkci si mam
Pokud neni jeden spolecny predek, a formulare uz jdou vytvoreny (application
je jejich vlastnik),
pak muzes volat CheckDB(application);
zhruba takto:
procedure CheckDB(AParent: TComponent);
var
i: integer;
DS: TIBDataset;
begin
with AParent do begin
for i:= 0 to ComponentCount-1 do begin
//rekurze
if Components[i].ComponentCount>0 then begin
CheckDB(Components[i]);
end;
if Components[i] is TIBDataSet then begin
DS:= TIBDtaSet(Components[i]);
If not Assigned(DS.Database) then begin
DS.Database := mojeDB;
DS.Transaction := mojeTR;
end;
end;
end;
end;
end;
Martin
automaticke prochazeni formulari v alpikaci (asi R
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2008 15:14:27
> Nejednodnodussi bude tedy kontrolu provadet v Create spolecneho predka.
To ale predpoklada vytvoreni tech formularu, navic nektere nejsou
oddedene.
>> Stacilo by mi, kdy slo projit veskere objekty v projektu, nebo
>> alespon ty oddedene od TForm, pak uz vim jak dal. Potreboval bych bud
>> malinky prikladek, nebo alespon poradit kterou funkci si mam
Tohle jsem napsal asi nesrozumitelne - myslel deklarace objektu,
tridy. Doufal jsem, ze to najdu nekde v RTTI, ale nikdy jsem s RTTI
nepracoval a v helpu ani googlu nemuzu najit, jestli konkretne toto lze
a jak. :-(
Pokud nekdo vi, urcite uvitam radu timto smerem.
> Pokud neni jeden spolecny predek, a formulare uz jdou vytvoreny (application
> je jejich vlastnik), pak muzes volat CheckDB(application);
Bohuzel nejsou. Pokud nenajdu jine reseni, muzu jednorazove nechat
vytvorit vsechny formulare pri startu aplikace. Obavam se ale, ze diky
provazanosti nekterych formularu a jejich zavislosti na nastaveni
nekterych globalnich promennych to bude padat.
> zhruba takto:
> procedure CheckDB(AParent: TComponent);
Jasne, tomu rozumim, jen jsem si neuvedomil, ze Application je owner
vsech formularu. Ve skutecnosti potrebuju vedet jmeno formulare
(zretezim nazvy pri prochazeni komponent), kde to je blbe, protoze
databazi muze byt vic ruznych.
Necham si tohle reseni v zaloze.
> Martin
Peca
automaticke prochazeni formulari v alpikaci (asi R
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 15.10.2008 15:50:30
> Tohle jsem napsal asi nesrozumitelne - myslel deklarace objektu,
> tridy. Doufal jsem, ze to najdu nekde v RTTI, ale nikdy jsem s RTTI
> nepracoval a v helpu ani googlu nemuzu najit, jestli konkretne toto
> lze
> a jak. :-(
> Pokud nekdo vi, urcite uvitam radu timto smerem.
Chces to zjistovat v designtime, nebo runtime? To mi z toho co pises neni
jasne.
a) designtime - myslim, ze je mozne napsat si do IDE experta, ktery projde
projekt a zkontroluje, udela co potrebujes.
Nemam s tim ale zkusenosti.
b) runtime
>> Pokud neni jeden spolecny predek, a formulare uz jdou vytvoreny
>> (application
>> je jejich vlastnik), pak muzes volat CheckDB(application);
> Bohuzel nejsou. Pokud nenajdu jine reseni, muzu jednorazove nechat
Nevim, zda se ti do toho bude chtit, ale mohl bys si poupravit VCL,
zasahnout do Create od TForm nebo TCustomForm.
Pro tvuj ucel mi to sice pripada jako ponekud neciste, ale rychle reseni,
zejmena pokud jde o velke mnozstvi formularu,
ktere nechces/nemac cas jednotlive prochazet. Spravnejsi by ale spis bylo
dodatecne napsat predka, a ve vsech formularich jim nahradit TForm. To by se
jiste dalo udelat hromadne.
Martin
automaticke prochazeni formulari v alpikaci (asi R
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2008 16:18:32
> Chces to zjistovat v designtime, nebo runtime? To mi z toho co pises neni
> jasne.
Runtime.
> a) designtime - myslim, ze je mozne napsat si do IDE experta,...
To me nenapadlo, ale take by to mozna byla cesta.
> b) runtime
> Nevim, zda se ti do toho bude chtit, ale mohl bys si poupravit VCL,
> zasahnout do Create od TForm nebo TCustomForm.
> Pro tvuj ucel mi to sice pripada jako ponekud neciste, ale rychle reseni,
> zejmena pokud jde o velke mnozstvi formularu,
To me taky. Navic jak pisu, databaze muze byt ruzna. Predek v tomto
pripade nic neresi. Ve skutecnosti vznika problem tam, kde nejaky predek
je, at uz formular nebo frame, ale protoze v predkach neni databaze
nastavena (nemuze byt), IDE ji pri otevreni formulare potomka vymaze.
Tedy pote, co to nekdo drive nastavil a ulozil. Stane se tak ve chvili,
kdy predek neni otevreny v okamziku otevirani potomka. To je evidentni
bota v IDE Delphi, nevim od ktere verze, ale D6 i D7 urcite.
Resime to tak, ze v OnCreate se pozadovane vlastnosti nastavuji
programove. Jenze nekdo to kdysi neudelal a ted staci otevrit formular,
zkompilovat a prestoze se nic neopravi a vse je readonly (checkout z
CVS), tak se to zkompiluje s vymazanou vlastnosti :-(
Ted jsem zkusil nechat hromadne vytvorit vsechny fomulare a ono to
rovnou pada tam, kde to neni nastaveny, takze taky zpusob.
Porad ale doufam, ze by slo po spusteni projektu, ktery si vytvori
jen hlavni formular, prolezt deklaraci formularu, aniz by se vytvareli a
otestovat nastaveni vlastnosti. U tech opstizenych to vypsat do logu a
pozdeji provest kontrolu proti kodu. Respektive by se prohledani
zdrojaku dalo udelat rovnou.
> Martin
Peca
automaticke prochazeni formulari v alpikaci (asi R
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 15.10.2008 18:10:39
>> b) runtime
>> Nevim, zda se ti do toho bude chtit, ale mohl bys si poupravit VCL,
>> zasahnout do Create od TForm nebo TCustomForm.
>> Pro tvuj ucel mi to sice pripada jako ponekud neciste, ale rychle
>> reseni, zejmena pokud jde o velke mnozstvi formularu,
>
> To me taky. Navic jak pisu, databaze muze byt ruzna. Predek v tomto
> pripade nic neresi. Ve skutecnosti vznika problem tam, kde nejaky
> predek je, at uz formular nebo frame, ale protoze v predkach neni
> databaze nastavena (nemuze byt), IDE ji pri otevreni formulare
> potomka vymaze. Tedy pote, co to nekdo drive nastavil a ulozil. Stane
> se tak ve chvili, kdy predek neni otevreny v okamziku otevirani
> potomka. To je evidentni bota v IDE Delphi, nevim od ktere verze, ale
> D6 i D7 urcite. Resime to tak, ze v OnCreate se pozadovane
Ano, to se nam v D6 delo hlavne v dobe, kdy jsme pouzivali frames. S frames
melo IDE velke potize, takze jsme s nimi az na vyjimky skoncovali, a mam
dojem, ze se mi databaze z datasetu neztratila uz hodne dlouho. Podobne
osetreni ale mame zachovano na urovni prvniho predka vsech formularu a je
klid.
Osobne bych do hierarchie vradil predka, ktery bude prirazovat databazi/e
jednotlivym datasetum podle parametru (property/ies), ktere nastavis pri
vytvorenii aplikacniho formulare. Bude to trochu pracne, ale muzes predka
pak vyuzit i pro jine spolecne veci.
> Porad ale doufam, ze by slo po spusteni projektu, ktery si vytvori
> jen hlavni formular, prolezt deklaraci formularu, aniz by se
> vytvareli a otestovat nastaveni vlastnosti.
Obavam se, ze toto nebude tak jednoduche. Napada me:
a)formulare registruji svoji tridu - pak by zrejme slo registrovane tridy
projit
b)v pomocne jednotce mit v uses vsechny tridy formularu natvrdo vypsany a
pak opet vzdy vytvorit, otestovat, uvolnit.
Oboji mi ve srovnani s vyuzitim dedicnosti (viz vyse) pripada dosti
nesikovne.
Mozna nekoho napadne neco lepsiho, jsem sam zvedav.
> vypsat do logu a pozdeji provest kontrolu proti kodu. Respektive by
> se prohledani
> zdrojaku dalo udelat rovnou.
Mozna bude nejjednodussi napsat si jednoduchou ulitilku ktera zkontroluje
vsechny .dfm v celem projektu a je to.
Nespis pak ale zapomenout ji poustet :)
Martin
Chyba pri IBQuery.Open
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 15.10.2008 20:42:49
> IBQuery.Open;
> Button1.Caption := IBQuery1.FieldByName('pocet').AsString;
>
> // tento kod mi vrati spravne cislo 2, ale nasedujici kod vyvola chybu
> Division By Zero
>
> IBQuery.SQL.Clear;
> IBQuery.SQL.Add('SELECT * FROM new_table1');
kdysi jsem narazil na komponenty, ktere pri zmene SQL nedelaly Close a od te
doby na to nespoleham - kdyz pouzivam stejnou query na vice dotazu, pred
kazdym ji poctive rucne zaviram.
automaticke prochazeni formulari v alpikaci (asi R
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2008 20:06:46
Martin Burle napsal(a):
> Ano, to se nam v D6 delo hlavne v dobe, kdy jsme pouzivali frames. S frames
> melo IDE velke potize, takze jsme s nimi az na vyjimky skoncovali, a mam
> dojem, ze se mi databaze z datasetu neztratila uz hodne dlouho. Podobne
> osetreni ale mame zachovano na urovni prvniho predka vsech formularu a je
> klid.
Jj, framy. Kazdopadne se to deje i v normalnich, oddedenych formularich.
> Osobne bych do hierarchie vradil predka, ktery bude prirazovat databazi/e
> jednotlivym datasetum podle parametru (property/ies), ktere nastavis pri
> vytvorenii aplikacniho formulare. Bude to trochu pracne, ale muzes predka
> pak vyuzit i pro jine spolecne veci.
Jenze ja mam v jednom projektu vice databazi a v kazdem formulari se
natavuje zvlast, ktera k tomu datasetu patri. A to dokonce i ruzne
databaze v jednom formulari.
Prirazeni databaze v oncreate formu je zodpovednost programatora. Ve
skutecnosti je to vlastne prehlednejsi, nez naklikani v property editoru.
> Mozna bude nejjednodussi napsat si jednoduchou ulitilku ktera zkontroluje
> vsechny .dfm v celem projektu a je to. Nespis pak ale zapomenout ji poustet :)
No, to je napad! Dik, tohle bude asi nejspolehlivejsi a nejjednodussi.
> Martin
Peca
automaticke prochazeni formulari v alpikaci (asi R
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 15.10.2008 20:38:48
>> Osobne bych do hierarchie vradil predka, ktery bude prirazovat
>> databazi/e jednotlivym datasetum podle parametru (property/ies),
>> ktere nastavis pri vytvorenii aplikacniho formulare. Bude to trochu
>> pracne, ale muzes predka
>> pak vyuzit i pro jine spolecne veci.
>
> Jenze ja mam v jednom projektu vice databazi a v kazdem formulari se
> natavuje zvlast, ktera k tomu datasetu patri. A to dokonce i ruzne
> databaze v jednom formulari.
> Prirazeni databaze v oncreate formu je zodpovednost programatora. Ve
> skutecnosti je to vlastne prehlednejsi, nez naklikani v property
> editoru.
Souhlas. Mel jsem na mysli properties, ktere se nastavuji rucne, v kodu. Ono
jde sice zaridit, aby property formularu byly dostupne k naklikani v OI, ale
opet - meli jsme pak potize s IDE... Proc properties? Kvuli get a set
metodam...
>> Mozna bude nejjednodussi napsat si jednoduchou ulitilku ktera
>> zkontroluje vsechny .dfm v celem projektu a je to. Nespis pak ale
>> zapomenout ji poustet :)
>
> No, to je napad! Dik, tohle bude asi nejspolehlivejsi a
> nejjednodussi.
Prima!
Martin
Presentacni aplikace
[*] Vasek Zaruba <vasek.zaruba(zv)sielaff(tec)cz> - 16.10.2008 08:45:34
Ahoj,
Potrebuji rychle vytvorit presentacni soft, aby prehraval multimedia,
dokumenty, website. Pustil jsem se s chuti do toho, ale nevim jak to
stihnu.
Nevite nekdo o nejake aplikaci se sourcem pro inspiraci?
Diky Vasek 8^)
automaticke prochazeni formulari v alpikaci (asi R
[*] Petr Fejfar <petr.fejfar(zv)seznam(tec)cz> - 16.10.2008 09:53:38
Dne Sat, 15 Nov 2008 20:06:46 +0100 petr palicka <palicka.petr(zv)seznam(tec)cz>
napsal/-a:
>> Mozna bude nejjednodussi napsat si jednoduchou ulitilku ktera
>> zkontroluje vsechny .dfm v celem projektu a je to.Nespis pak ale
>> zapomenout ji poustet :)
>
> No, to je napad! Dik, tohle bude asi nejspolehlivejsi a nejjednodussi.
Na podobne ulohy vetsinou staci textovy editor se slusnou
podporou regexu pres vice radku.
pf
IBX problem access vijebacion
[*] talpa(zv)suchdol(tec)net <aldik(zv)quick(tec)cz> - 17.10.2008 22:39:50
ahoj kluci,
mam problem s ibx v bds2007, pokud objekt query ic ibsql vytvorim a
pridam k tomu transakci tak pri dalsim dotazu tehoz sameho se stejnou
transakci mi transakce padne na access violation a vzdy je na konci 34,
zkousel jsem uz cokoliv...proste je tam nejaka zahadav transakcich...
nesetkal jste se s tim nekdo? mam firebird.2.1.1
diky
Ales
RAD Studio 2009
[*] rkubat(zv)email(tec)cz - 19.10.2008 16:12:17
Dobry den vsem uzivatelum Delphi.
Prave byly zverejneny ceny a popisy noveho RAD Studia 2009: http://www.embt(tec)cz/cs/produkty/16-rad-studio
RAD Studio 2009 obsahuje nastroje Delphi 2009, C++Builder 20090 a Delphi Prism.
Vsechny zdravi, -- Richard Kubat
Nahled obrazku s rolovanim
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 21.10.2008 11:58:56
V JVCl komponentach (pokud je mas) je na zalozce Jv Scrollers komponenta
JvScrollBar. Mozna ti to k necemu bude?
>>> vodicka(zv)sagit(tec)cz 21.11.2008 10:52 >>>
Ahoj!
Potreboval bych zobrazit obrazek s moznosti rolovani vodorovne a
svisle.
Muzete me nekam nasmerovat? Diky
Igor
Nahled obrazku s rolovanim
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 21.10.2008 10:52:52
Ahoj!
Potreboval bych zobrazit obrazek s moznosti rolovani vodorovne a svisle.
Muzete me nekam nasmerovat? Diky
Igor
OT: Generovani RSA klice pod win
[*] Dalibor <dalibor(zv)torola(tec)cz> - 21.10.2008 08:10:42
Ahoj,
potrebuji generovat RSA (privatni/verejny) klic pro OpenSSH.
Da se to nejak generovat treba z C# nebo pomoci nejake jednoduche utilitky pod win?
Diky
D.
debugger fault notification ve Vistach a Delphi 7
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 24.10.2008 11:15:46
Zdravim...
Mam problem s tim, ze kdyz mam v Delphi 7 udelanou knihovnu a testovaci
program k ni, kde je linkovana staticky nebo dynamicky tak pri kazdem pokusu
o spusteni toho testu mi okamzite spadne aplikace s hlaskou "debugger fault
notification" + nejake ty kecy o access violation na nejake adrese.
Prakticky se to ani nikdy nedostane do kodu napsaneho v Delphi. Chyby
vyhazuje ale podle vseho hlavne SysUtils pri praci s retezci a prevody do
arrays. Takze jsem podezrival borland memory manager a nahradil jsem ho
FastMM4 - bohuzelo to nepomohlo. V konferencich jsem cetl o stejne chybe u
vyssich verzi Delphi (2007) ze se to tam nejak resilo a chci se zeptat
jestli nekdo z vas narazil na stejny problem a podarilo se mu ho odstranit?
Toto se deje jen na Vistach a nikde jinde...
Diky za jakoukoliv radu.... rady typu - vyhod Visty - neprijmu... :)
Milan
debugger fault notification ve Vistach a Delphi 7
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 27.10.2008 11:24:04
>vyssich verzi Delphi (2007) ze se to tam nejak resilo a chci se zeptat
Mas zaple nebo vyple UAC ?
Radek
Delphi 2009 a UNICODE - prakticke zkusenosti?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 26.10.2008 10:22:34
2008/11/26 <delphak(zv)centrum(tec)cz>:
> Mel bych zacit vyvijet aplikaci, ktera krome anglictiny bude podporovat jste nekolik jazyku (rustina, arabstina ...). Data bude brat z Oracle, kde by podpora unicode nemela byt problemem. Tak si rikam ze s podporou unicode bych si usetril spoustu prace a problemu, ale neni dostatek casu na dukladne zkouseni teto verze delphi. Proto bych rad vedel, jake nazory a poznatky a hlavne prakticke zkusenosti v souvislosti s touto verzi mate.
Pokud je ta aplikace nova, nevidim problem se do toho nepustit.
Nemusis se bat, ze si nekde neco zapomnel atp.
--
Jiri {x2} Cincura (CTO x2develop.com)
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Delphi 2009 a UNICODE - prakticke zkusenosti?
[*] delphak(zv)centrum(tec)cz - 26.10.2008 09:06:30
Ahoj, mate nekdo prakticke zkusenosti s Delphi 2009 a Unicode? Precetl jsem si ze tato verze by jiz mela mit kompletni podporu Unicode i ve vizualnich komponentach VCL - pouzili jste to jiz nekdo?
Mel bych zacit vyvijet aplikaci, ktera krome anglictiny bude podporovat jste nekolik jazyku (rustina, arabstina ...). Data bude brat z Oracle, kde by podpora unicode nemela byt problemem. Tak si rikam ze s podporou unicode bych si usetril spoustu prace a problemu, ale neni dostatek casu na dukladne zkouseni teto verze delphi. Proto bych rad vedel, jake nazory a poznatky a hlavne prakticke zkusenosti v souvislosti s touto verzi mate.
Dik za info
Vlada
debugger fault notification ve Vistach a Delphi 7
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 27.10.2008 20:44:37
> Mas zaple nebo vyple UAC ?
Samozrejme zapnute - melo by to chodit vzdy. Delphi 7 spoustim jako admin a
pod XP SP2.
U knihovny vytvorene v Delphi 7 pod Vistama krome teto hlasky vlastne
nefunguje nic i mimo Debugger.
Na doporuceni Richarda Kubata z Borlandu jsem udelal ciste exe bez debug
informaci a pustil ho - nasledoval
opet okamzity pad. Pak jsem opet zapnul Debug a prisel na to, ze kdyz
pouziju na knihovnu kompilovanou
taktez v Delphi 7 tak pak na ni nejde pouzit ani LoadLibrary (okamzity pad a
odchod do vecnych lovist vcetne Debuggeru)
a co vice, nefunguje ani staticky import jeji funkce.
Exe se sice zkompiluje, ale pokazde ihned spadne po spusteni.
Bonbonek: stahnul jsem si Delphi 2009 trial, ty same zdroje jsem v nem jen
prelozil a vse
chodi jak ma. Nehlede na UAC. Dokonce vysledne exe a dll prekopirovane do
starsich OS (Xp, W2K)
tam pak take bez problemu chodi.
Pri jednom z mnoha padu jsem si u Delphi 7 vsimnul, ze to prohlasilo chybu v
memory manageru (detekovano pomoci EurekaLogu).
A tam bych videl kamen urazu. Podle me toto je v novejsich verzich vychytane
a Delphi 7 si s Vistami opravdu rozumi pramalo.
Pritom mam ale i jine projekty kompilovane v Delphi 7 pod XP a na Vistach mi
jedou.
Toto je ale prvni knihovna - v jejiz funkci se predava ukazatel na
alokovanou pametovou strukturu.
Ta sama knihovna v Delphi 7 a XP chodi vsude i s timto predanym ukazatelem
jen ne na Vistach.
Ta sama knihovna v Delphi 2009 a Vistach chodi vsude i na Vistach.
Coz znovu potvrzuje mou domenku, ze Delphi 7 maji prasacky memory manager
nebo jsem prase ja... Uz nevim... Chro... :)
Po pokusu nahradit ho pomoci FastMM4 jsem ale take neuspel.
debugger fault notification ve Vistach a Delphi 7
[*] Radek Voltr <voltr(zv)eleasoftware(tec)com> - 28.10.2008 10:05:25
>ta sama knihovna v Delphi 7 a XP chodi vsude i s timto predanym ukazatelem
>jen ne na Vistach.
>Ta sama knihovna v Delphi 2009 a Vistach chodi vsude i na Vistach.
>Coz znovu potvrzuje mou domenku, ze Delphi 7 maji prasacky memory manager
>nebo jsem prase ja... Uz nevim... Chro... :)
>Po pokusu nahradit ho pomoci FastMM4 jsem ale take neuspel.
My pouzivali D7 binarky na Vistach v pohode vcetne DLL knihoven ale je
pravda ze pro komunikaci pouzivam bud COM nebo pipes a mezi exacem a dll
predavame maximalne tak pchary kde se alokuje na strane exe a v dll se to
pouze pouziva. Slape to i na vistach a s Delphi memory managerem. Takze bych
to fakt videl spis na problem v konkretni implementaci a naslednem pouziti.
Zkus zkompilovat na 2009 jen Dll zda bude chodit s exacem z D7. Kdyz ti to
spadne na LoadLibrary - dostane se to aspon do initialization casti tveho
kodu ?
Pokud nejde staticky ani dynamicky import tak je podle mne v dll neco co ji
schodi na drzku. Protoze pri inicializaci nepredpokladam nejake predavani
alokaci tak si nemyslim ze to je tim ze to dela ta funkce ale spis bych to
tipoval na neosetrenou vyjimku nekde v initialization ktera nasledne
probubla a schodi vsechno na drzku. Pokud se nepletu tak kod rtl z Delphi
ktera vola inicializaci unit neni zabalen do try..except a jakakoliv vyjimka
ma za nasledek nemoznost loadu dll
Ja bych udelal :
- dll do Delphi se simple exe jako host procesem (jen LoadLibrary - pokud
opravdu LoadLibrary staci na to aby to padlo)
- build s debug dcu's
- F7 coz provede load dll a da te to na prvni entry ve zdrojaku co Delphi
najdou
- a valis
Ja napr. kdysi dost resil to ze kdyz pouzijes Graphics v inproc comu tak
dost casto prave v ramci initialization ta unita padne na tlamu. Coz je dost
neprijemne vzhledem k tomu ze D7+ tam tlaci tu graphics i kdyz ji
nepotrebujes.Musime ted pouzivat kopie _TLB.pas kde je vyhazen humus kolem
VCL ale diky jmenu to IDE nepozna a nedoplnuje. No a jeste vyhazovaci exe co
v make davce vyhodi vsechy doplnene _TLB.pas z dpr.
Cau
Radek
Drazba RAD Studio 2007 Professional R2
[*] rkubat(zv)email(tec)cz - 28.10.2008 11:09:29
Vazeni uzivatele Delphi,
dovoluji si vas upozornit, ze na http://embt(tec)cz se drazi produkt RAD Studio 2007 Professional R2 za vyvolavaci cenu 9900,- Kc bez DPH, cili mene nez 40% soucasne ceny produktu. Jde o doprodej skladu v souvislosti s uvedenim verze 2009 na trh v CR a SR. Mimimalni prihoz je 100,- Kc. Produkt je na sklade.
Mate-li zajem, zkuste sve stesti v aukci - takhle levne produkt tezko dostanete kdekoli jinde.
Vsechny zdravi, -- Richard Kubat
Delphi 2009 a UNICODE - prakticke zkusenosti?
[*] Ludan <konference(zv)sales(tec)cz> - 29.10.2008 12:19:04
----- Original Message -----
From: "Jiri Cincura" <diskuze(zv)cincura.net>
> 2008/11/26 <delphak(zv)centrum(tec)cz>:
>> Mel bych zacit vyvijet aplikaci, ktera krome anglictiny bude podporovat
>> jste nekolik jazyku (rustina, arabstina ...). Data bude brat z Oracle,
>> kde by podpora unicode nemela byt problemem. Tak si rikam ze s podporou
>> unicode bych si usetril spoustu prace a problemu, ale neni dostatek casu
>> na dukladne zkouseni teto verze delphi. Proto bych rad vedel, jake nazory
>> a poznatky a hlavne prakticke zkusenosti v souvislosti s touto verzi
>> mate.
>
> Pokud je ta aplikace nova, nevidim problem se do toho nepustit.
> Nemusis se bat, ze si nekde neco zapomnel atp.
Ahoj,
No mozna bych se trochu obaval toho, ze mozna nebude mozne vyuzit nektere
komponenty 3.stran. (JCL,JVCL.....a pod). To ale samo o sobe muze byt mensi
problem nez dosavadni "nepodpora" unicode. Je asi ale nutne to vzit v uvahu.Hladame spolupracovnika
[*] note <note(zv)admis.sk> - 29.10.2008 12:07:03
Hladame kolegu s pokrocilymi znalostami programovania v Delphi a SQL zatial
na vypomoc pri upravach rozsiahlej aplikacie na spravu dokumentov, neskor s
perspektivou trvaleho zamestnania. Miesto prace Bratislava, alebo Trencin.
Znalosti C#, VB.NEt vitane. Nastup mozny okamzite.
Pripadne odpovede prosim na sukrromny mail.
Miroslav Mrazik
note(zv)admis.sk
Delphi 2009 a UNICODE - prakticke zkusenosti?
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 29.10.2008 17:39:27
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ludan
Ahoj,
> No mozna bych se trochu obaval toho, ze mozna nebude mozne
> vyuzit nektere
> komponenty 3.stran. (JCL,JVCL.....a pod). To ale samo o sobe
> muze byt mensi
> problem nez dosavadni "nepodpora" unicode. Je asi ale nutne
> to vzit v uvahu.
JVCL nepouzivam od D7, ale JCL uz v nejakem preview pro D2009
je
http://sourceforge.net/project/showfiles.php?group_id=47514&package_id=41677
&release_id=625159 .
K praktickemu testovani D2009 sem se jeste nedostal,
desi me pouhych 14 dni trial verze. (nemuzu tomu venovat naplno
onech 14dni).
PMal
komponenta casovac
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 01.12.2008 08:07:45
Dobry den,
po uvaze jsem se rozhodl predelat merici program pro sber a vyhodnoceni dat z Visual Basicu do MS Excelu. Excelovsky VBA je skoro stejny jako Visual Basic, mam tam jeden problem: Ve VBA jsem nenasel moznost casovani s intervalem mensim nez 1 sekunda. Tak se ptam, jestli lze napsat odpovidajici casovac v Delphi jako komponentu, kterou bych mohl treba ve forme doplnku prihrat do Excelu a odchytavat udalost OnTimer ve VBA a spoustet na ni odecty. Nikdy jsem neprogramoval nic v C a notace API fci je pro me dost nestravitelna. Vim ze existuje nejaky KillTimer a spol, ale stejne to neumim napsat a hlavne jak udalost pak v jinem programu odchytit. Proto bych asi radeji komponentu, ktera by to resila. Potreboval bych casovani 100 ms. Snad bychom komponentu mohli i koupit, ale nic jsem na webu nenasel.
Poradite nekdo, jak se s tim popasovat? Nebo nabidnete hotovou vec? Piste treba na soukromy mail dalibor.faltynek(zv)orgrez(tec)cz , pokud seznate, ze to do konference neni tema.
Diky - Dalibor.
Tisk souboru z delphi aplikace
[*] Jaroslav Rubes <jrubes(zv)epass(tec)cz> - 01.12.2008 11:27:58
Dobry den,
resim problem jak vytisknout libovolny soubor (DOC, PDF, HTML) z Delphi
aplikace.
Zkousel jsem nejake funkce API Windows.
Pro moji potrebu by mi asi nejvic vyhovovala funkce AbbJob + ScheduleJob,
ale na MSDN jsem se docetl ze AddJob fuguje pouze na lokalni tiskarne :-(
Dale jsem zkousel funkce StartDoc a StartDocPrinter - s podobnym vysledkem:
funguje pouze s lokalni tiskarnou a ne se sitovou (o tom jsem na MSDN nic
nenasel).
Diky za jakykoliv tip nebo radu.
Jaroslav Rubes
Delphi 7 + Win XP SP3
Tisk souboru z delphi aplikace
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 01.12.2008 15:44:13
Zdravim,
nevim jak vytisknout libovolny soubor, ale na tisk PDF je dobry pdfcreator.
Je to jako COM komponenta.
Petr
resim problem jak vytisknout libovolny soubor (DOC, PDF, HTML) z Delphi
aplikace.
Problem s tiskem QuickReport v5 Pro v D2007
[*] Mgr. Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 01.12.2008 20:26:32
Dobry den,
No uzivatele tvrdi, ze to dela pouze nase aplikace :(
MJ> Dela to pouze u QuickReportu ? Potkal jsem se s pripadem, ze u HP1320n
MJ> se nainstaloval ovladac a tiskarna v pohode tiskla. Pak se nainstalovaly
MJ> aktualizace z Windows Update a pred kazdym tiskem se muselo zmackout
MJ> tlacitko na tiskarne. Kdyz se ovladac odinstaloval a nainstaloval znovu,
MJ> zaclo to fungovat. Tiskarna byla sdilena pres Ethernet a stejny problem
MJ> se vyskytl u asi 20 pocitacu. Tisklo se z ruznych programu Adobe Reader,
MJ> MS Word, aplikace napsane v Delphi 2007 a tisk pres FastReport.>> posledni dobou se nam mnozi pripady, kdy pri pouziti QuickReportu
>> 5.02 Pro pri tisku na tiskarnu se tisk neprovede dokud se na
>> tiskarne nestiskne ovladaci prvek. Nepotkal jste se nekdo s
>> timto problemem?
>>
>> Rada zmente QR za neco pouzitelneho neni momentalne mozna.
>>
>> Vetsina tech tiskaren kde to zlobi jsou HP.
>>
>> Diky za pripadne namety.
>>
S pozdravem,
Mgr. Martin Radvansky
Problem s tiskem QuickReport v5 Pro v D2007
[*] Marian Jonas <delphikonf(zv)mjonas(tec)cz> - 01.12.2008 18:10:23
Dela to pouze u QuickReportu ? Potkal jsem se s pripadem, ze u HP1320n
se nainstaloval ovladac a tiskarna v pohode tiskla. Pak se nainstalovaly
aktualizace z Windows Update a pred kazdym tiskem se muselo zmackout
tlacitko na tiskarne. Kdyz se ovladac odinstaloval a nainstaloval znovu,
zaclo to fungovat. Tiskarna byla sdilena pres Ethernet a stejny problem
se vyskytl u asi 20 pocitacu. Tisklo se z ruznych programu Adobe Reader,
MS Word, aplikace napsane v Delphi 2007 a tisk pres FastReport.
Marian
Mgr. Martin Radvansky napsal(a):
> Dobry den,
>
> posledni dobou se nam mnozi pripady, kdy pri pouziti QuickReportu
> 5.02 Pro pri tisku na tiskarnu se tisk neprovede dokud se na
> tiskarne nestiskne ovladaci prvek. Nepotkal jste se nekdo s
> timto problemem?
>
> Rada zmente QR za neco pouzitelneho neni momentalne mozna.
>
> Vetsina tech tiskaren kde to zlobi jsou HP.
>
> Diky za pripadne namety.
>
Problem s tiskem QuickReport v5 Pro v D2007
[*] Mgr. Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 01.12.2008 17:32:20
Dobry den,
posledni dobou se nam mnozi pripady, kdy pri pouziti QuickReportu
5.02 Pro pri tisku na tiskarnu se tisk neprovede dokud se na
tiskarne nestiskne ovladaci prvek. Nepotkal jste se nekdo s
timto problemem?
Rada zmente QR za neco pouzitelneho neni momentalne mozna.
Vetsina tech tiskaren kde to zlobi jsou HP.
Diky za pripadne namety.
--
S pozdravem,
. Martin Radvansky