Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Data z konference - server ftp
[*] Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz> - 8.2.2005 15:36:29
Pouzivam FTP Port Client a asi to bude tim.
Nevadi prevedu to na samorozbalovaci rar a hodim to tam zitra
Honza
--------------------------------------
Zkusil jsem do D5/Other dat soubor pokus.zip (jeste tam je, muze se smazat)
a proslo to v pohode. Jestli neni problem u tebe (firewall?). Jaky pouzivas
FTP klient? Hlasi to nejakou chybu? Ja jsem to zkousel s Total Commanderem a
bez problemu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
Doplnil jsem tam zpet adresare D3, D4 a D5 a nejake podadresare (to co jsem
si kdysi stahnul pro studijni ucely). Mohl bych to tam vratit, ale
uploadnout mi jde pouze *.exe, *.txt a *.pas, Nejde tam nahrat *.zip, ale
vetsina souboru je takovato. Co s tim, mam to prevest na samorozbalovaci zip
= exe, nebo poradite neco jineho
Apliace s Plug-Iny
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 8.2.2005 15:16:27
> Pokud ovsem v implementaci pouzijes VCL tak si opet tam kde si byl.
Nechapu co
> lidem vadi na pouziti balicku, je to primo reseni na urovni prekladace.
Ahoj, me vadi snad jedine problemy s debugovanim do nitra VCL, to se mi
nejak nedari. Nastesti jsem to vyresil tak, ze aplikaci muzi buildnout bud
jako plugin-based (par statickych balicku+dynamicke moduly), nebo jako
single-exe, kdy se vybrane moduly vlozi navtrdo a prepinam si to podle
potreby. Jinak se aplikace s balicky ladi mozna lepe, protoze nekompilujes
vse, ale jenom upravovany modul, takze je to o dost rychlejsi.
Ale kdyz uz se to tady probira, potreboval bych poradit nejaky sikovny
nastroj na analyzovani zavislosti unit a balicku. Na projektu jsme drive
delali dva, a je v tom trochu neporadek, takze dnes aplikace podle mne
zbytecne vyzaduje spostu pro ni nepotrebnych cizich balicku (v uses je
spousta zbytecnosti, ktere potrebuji vyhazet). Muze nekdo neco sikovneho
doporucit? Diky,
MB
Apliace s Plug-Iny
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 8.2.2005 15:14:27
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Radek Cervinka
> Sent: Tuesday, February 08, 2005 2:50 PM
>
> > Pokud mas jeste sanci se rozhodnout, pak v tomto pripade
> vrele doporucuju
> > .NET (a Delphi zahodit), v tom se tento druh aplikaci dela
> vyrazne lepe.
>
> Ty si fakt posedlej - jenom ziram
Uz sis to aspon zkousel? Ja jen, jestli vubec vis, o cem je rec...
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
INSERT bitmapy do Oracle 8i
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 8.2.2005 15:02:26
Potrebuji insertnout bitmapu do ORACLE databaze.
Pouzivam D6 a TADOQuery pro insert a update dat.
Mam tabulku AAA se sloupci (ID NUMBER(10,0) ,
Bitmapa LONG RAW )
INSERTUJI do ni takto :
bmpPodpRazitko: TBitmap;
SQLStr := ' INSERT INTO AAA ( ID, Bitmapa) VALUES ( 1, :p_Bitmapa) '
qryExec.Active := false;
qryExec.SQL.Clear;
qryExec.SQL.Add(SQLStr);
qryExec.Prepared := TRUE;
qryExec.Parameters.ParamByName('p_PodpRazitko').DataType := ftBlob;
qryExec.Parameters.ParamByName('p_PodpRazitko').Assign(bmpPodpRazitko);
qryExec.ExecSQL;
Dostanu hlasku: Objekt parametr je nespravne definovan. Byly poskytnuty
nekonzistentni nebo neuplne informace.
Diky za pomoc
Data z konference - server ftp
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 8.2.2005 15:00:26
Zkusil jsem do D5/Other dat soubor pokus.zip (jeste tam je, muze se smazat)
a proslo to v pohode. Jestli neni problem u tebe (firewall?). Jaky pouzivas
FTP klient? Hlasi to nejakou chybu? Ja jsem to zkousel s Total Commanderem a
bez problemu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
Doplnil jsem tam zpet adresare D3, D4 a D5 a nejake podadresare (to co jsem
si kdysi stahnul pro studijni ucely). Mohl bych to tam vratit, ale
uploadnout mi jde pouze *.exe, *.txt a *.pas, Nejde tam nahrat *.zip, ale
vetsina souboru je takovato. Co s tim, mam to prevest na samorozbalovaci zip
= exe, nebo poradite neco jineho
Tak jsem tam nakopiroval ta data co tam byla, doufam, ze to nejakej jouda
zase nezlikviduje. Jsou tam roky 2000 - 2003 a rok 2004 az do prosince.
dosud jsem uspesne stahoval aktualizace databaze prispevku z konference
pomoci adresy
ftp://delphi:archivar(zv)ftp.delphi(tec)cz/Other/KonfViewData/
Nyni mi to hlasi, ze Windows nemohou ziskat pristup k teto slozce. Rad
bych vedel, v cem je problem.Apliace s Plug-Iny
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.2.2005 14:52:25
From: "Zbysek Hlinka" <konference(zv)hlinka(tec)cz>
> Pak prichazi v uvahu asi jen COM. Muzes si predavat prakticky co chces,
> musis si ale navrhnout vhodny interface.
Pokud ovsem v implementaci pouzijes VCL tak si opet tam kde si byl. Nechapu co
lidem vadi na pouziti balicku, je to primo reseni na urovni prekladace.
Petr Vones
Apliace s Plug-Iny
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 8.2.2005 14:50:25
Zbysek Hlinka wrote:>>Potreboval bych do aplikace doplnovat a odebirat moduly.
>>Nechci vytvaret balicky a nevim jak to poradne udelat pomoci
>>dll. Potrebuji, aby moduly mohly pracovat s promennymi
>>aplikace (mj. i canvasem).
-jvcl\source\JvPlugin.pas a spol (s tim jsem nedelal a ani moc
nezkoumal, zatim jen za pomoci:)
-nebo pomoci Dll+dynamicky zavadeni (pekny multiplatformni loader je na
delphi-jedi), navrhnes si rozhrani a vsechny tvoje vysledne DLL
+ hlavni aplikace musi pouzivat FastShareMem nebo ShareMem (lepsi je
prvni), neni to uplne idealni, duplikuje se kod v souborech
-komponenty 3rd stran, treba http://www.dragonsoftru.com/prod_dsps.php
-balicky (asi nejlepsi)
-com (dle mne cesta do pekel, ale ja jsem asi divnej)
> Pokud mas jeste sanci se rozhodnout, pak v tomto pripade vrele doporucuju
> .NET (a Delphi zahodit), v tom se tento druh aplikaci dela vyrazne lepe.
Ty si fakt posedlej - jenom ziram
Radek
Data z konference - server ftp
[*] Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz> - 8.2.2005 14:18:22
Doplnil jsem tam zpet adresare D3, D4 a D5 a nejake podadresare (to co jsem
si kdysi stahnul pro studijni ucely). Mohl bych to tam vratit, ale
uploadnout mi jde pouze *.exe, *.txt a *.pas, Nejde tam nahrat *.zip, ale
vetsina souboru je takovato. Co s tim, mam to prevest na samorozbalovaci zip
= exe, nebo poradite neco jineho
Honza
-----------------------------------------------------
Tak jsem tam nakopiroval ta data co tam byla, doufam, ze to nejakej jouda
zase nezlikviduje. Jsou tam roky 2000 - 2003 a rok 2004 az do prosince.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
D&COMM s.r.o.
Korunovacni 6
Praha 7
dosud jsem uspesne stahoval aktualizace databaze prispevku z konference
pomoci adresy
ftp://delphi:archivar(zv)ftp.delphi(tec)cz/Other/KonfViewData/
Nyni mi to hlasi, ze Windows nemohou ziskat pristup k teto slozce. Rad
bych vedel, v cem je problem.Apliace s Plug-Iny
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 8.2.2005 14:10:21
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of David Kolarczyk
> Sent: Tuesday, February 08, 2005 2:00 PM
>
> Potreboval bych do aplikace doplnovat a odebirat moduly.
> Nechci vytvaret balicky a nevim jak to poradne udelat pomoci
> dll. Potrebuji, aby moduly mohly pracovat s promennymi
> aplikace (mj. i canvasem).
Pak prichazi v uvahu asi jen COM. Muzes si predavat prakticky co chces,
musis si ale navrhnout vhodny interface.
Pokud mas jeste sanci se rozhodnout, pak v tomto pripade vrele doporucuju
.NET (a Delphi zahodit), v tom se tento druh aplikaci dela vyrazne lepe.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Apliace s Plug-Iny
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.2.2005 14:08:21
From: "David Kolarczyk" <vyvoj(zv)sis-spektrum(tec)cz>
> Potreboval bych do aplikace doplnovat a odebirat moduly. Nechci
> vytvaret balicky a nevim jak to poradne udelat pomoci dll. Potrebuji,
> aby moduly mohly pracovat s promennymi aplikace (mj. i canvasem).
Pokud chces predavat Delphi objekty tak musis pouzit balicky.
Petr Vones
Apliace s Plug-Iny
[*] David Kolarczyk <vyvoj(zv)sis-spektrum(tec)cz> - 8.2.2005 14:00:20
Zdravim
Potreboval bych do aplikace doplnovat a odebirat moduly. Nechci
vytvaret balicky a nevim jak to poradne udelat pomoci dll. Potrebuji,
aby moduly mohly pracovat s promennymi aplikace (mj. i canvasem).
diky david
Automaticky backup DB na SQL Serveru
[*] lelicek(zv)volny(tec)cz - 8.2.2005 12:40:14
Pokud mas EA, tak si muzes "naklikat" backup vcetne planu a
nechat si jej vyskriptovat primo EA do file a ten si pak treba
i trochu upravit.
Pavel
Od: "Pavel Zichovsky" <zichovsky(zv)trul(tec)cz>
> > Od: delphi-l-owner(zv)clexpert(tec)cz
> > mam nasledujici problem: potrebuju vytvorit program (nebo
> > skript), ktery se mi zazalohuje DB (MS SQL Server) na
> > serveru, zkopiruje na local a tam ji restoruje pod stejnym
> > aliasem. Nevim jestli se da komunikovat s SQL Serverem pomoci
> >
> > nejakych COM objektu nebo jestli to jde nejak naskriptovat.
> >
> Taky jsem toto nedavno resil, a DTS jsem nakonec opustil,
> protoze mi to
> pripadalo strasne pomaly pri prenosu dat.
> Mam davku, ktera pouziva osql (soucast kazde instalace SQL
> serveru, vcetne
> MSDE) a dva sql skripty (jeden pro backup, druhy pro restore),
> pripadne
> jeste treti pro nastaveni jmena/hesla/prav lokalniho usera.
> A pokud pristoupis na to, ze sluzba SQL serveru na lokalnim
> pocitaci pojede
> pod uzivatelskym jmenem/heslem (ne pod "localsystem"), ktere ma
> pristup na
> sit, muzes se vyhnout kroku kopirovani .bak souboru na lokal, a
> restorovat
> primo ze site (tak to delam ja).
> Funguje to bez problemu, rychle a spolehlive.
--
Akcni unorova nabidka "3 za cenu 1"! Ziskejte
VOLNY ADSL 512/128 3GB za cenu 1GB!
http://adsl.volny(tec)cz
Jak exportovat data z DBGrid do Excelu
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 8.2.2005 12:22:13
Napis si smycku pro pruchod datasetem gridu a pro viditelne sloupce si
hodnoty ukladej treba do CSV.
To zda je sloupec viditelny si zjisti z jejich kolekce a pak si naberes jen
hodnoty dle takto ziskanych fieldnames...
----- Original Message -----
From: "Petr Cafourek" <petr.cafourek.d7(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, February 08, 2005 10:30 AM
Subject: Jak exportovat data z DBGrid do Excelu
> Zdravim vsechny,
> je mozne exportovat data do excelu i z DBGridu? Zkousel jsem hledat
> na internetu, ale nasel jsem jen priklady pro StringGrid. :(
>
> Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
>
>
> Uprava zdrojaku
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 8.2.2005 12:18:12
Ahoj...
http://www.dow.wau.nl/aew/DelForExp.html
Uz to tu nekdo psal a taky jsem si na nej tak zvykl, ze pokud bych ho nemel,
budu jak bezruky...
Zradou pouzivani techto nastroju v tom, ze kdyz pak vlezes treba do MS VS
2005, tak se stane
pri psani kodu, ze pouzijes rychly hmat z Delphi a nestesti je na svete.
Takze si vyber takovy hotkey
pro formatovani kodu, ktery treba v jinem vyvojovem nastroji nezpusobi napr.
smazani bloku.
(mivam otevreny oba nastroje naraz a casto prechazim)
Pokud delas jen v Delphi, kasli na to... Ale ruce (a jejich navykla makra)
jsou nekdy rychlejsi
nez-li hlava... :)
DelForExp vrele doporucuji...
Milan Uprava zdrojaku
[*] Pavel Tresnak <delphi(zv)haida(tec)cz> - 8.2.2005 11:06:07
Ahoj,
my pouzivame DelForExp (http://www.dow.wau.nl/aew/delforexp.html).
Pavel Tresnak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jiri Cincura
Sent: Tuesday, February 08, 2005 11:02 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Uprava zdrojaku
Krysl, Tomas wrote:
> Ahoj,
> existuje nejaky nastroj ci IDE expert pro upravu zdrojaku *.pas - napr.
> pro razeni metod a promennych dle abecedy, "uhlazeni" kodu - korekce
> odsazeni, kontrolu/opravy nazvu identifikatoru dle deklarace a vubec
> upravy zdrojaku dle 'te spravne stabni kultury' (ve smysluplnych
> dimenzich)? Je-li jich vice, se kterym mate nejlepsi zkusenosti?
Znam jen jeden. Jedi Code Formater. Celkem se mi osvedcil, kdyz jsem neco
prebral a potreboval jsem to "ucesat". Ma plno nastaveni.
Zkusenosti mam dobre, mohu doporucit.
Uprava zdrojaku
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 8.2.2005 11:02:07
Krysl, Tomas wrote:
> Ahoj,
> existuje nejaky nastroj ci IDE expert pro upravu zdrojaku *.pas - napr.
> pro razeni metod a promennych dle abecedy, "uhlazeni" kodu - korekce
> odsazeni, kontrolu/opravy nazvu identifikatoru dle deklarace a vubec
> upravy zdrojaku dle 'te spravne stabni kultury' (ve smysluplnych
> dimenzich)? Je-li jich vice, se kterym mate nejlepsi zkusenosti?
Znam jen jeden. Jedi Code Formater. Celkem se mi osvedcil, kdyz jsem neco prebral a potreboval jsem to "ucesat". Ma plno nastaveni.
Zkusenosti mam dobre, mohu doporucit.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Uprava zdrojaku
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 8.2.2005 10:54:06
Ahoj,
existuje nejaky nastroj ci IDE expert pro upravu zdrojaku *.pas - napr. pro
razeni metod a promennych dle abecedy, "uhlazeni" kodu - korekce odsazeni,
kontrolu/opravy nazvu identifikatoru dle deklarace a vubec upravy zdrojaku
dle 'te spravne stabni kultury' (ve smysluplnych dimenzich)? Je-li jich
vice, se kterym mate nejlepsi zkusenosti?
Diky
Tk.
Jak exportovat data z DBGrid do Excelu
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 8.2.2005 10:44:06
Tusim ze MAX komponenty dokazi exportovat jak databaze tak i gridy do temer
cehokoliv
http://www.maxcomponents.net
Matrin
> je mozne exportovat data do excelu i z DBGridu? Zkousel jsem hledat
> na internetu, ale nasel jsem jen priklady pro StringGrid. :(Jak exportovat data z DBGrid do Excelu
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 8.2.2005 10:30:04
Zdravim vsechny,
je mozne exportovat data do excelu i z DBGridu? Zkousel jsem hledat
na internetu, ale nasel jsem jen priklady pro StringGrid. :(
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
Automaticky backup DB na SQL Serveru
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 8.2.2005 09:34:00
Zdravim,
> -----Puvodni zprava-----
> Od: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] za uzivatele Vaclav Sykora
> mam nasledujici problem: potrebuju vytvorit program (nebo
> skript), ktery se mi zazalohuje DB (MS SQL Server) na
> serveru, zkopiruje na local a tam ji restoruje pod stejnym
> aliasem. Nevim jestli se da komunikovat s SQL Serverem pomoci
> nejakych COM objektu nebo jestli to jde nejak naskriptovat.
>
Taky jsem toto nedavno resil, a DTS jsem nakonec opustil, protoze mi to
pripadalo strasne pomaly pri prenosu dat.
Mam davku, ktera pouziva osql (soucast kazde instalace SQL serveru, vcetne
MSDE) a dva sql skripty (jeden pro backup, druhy pro restore), pripadne
jeste treti pro nastaveni jmena/hesla/prav lokalniho usera.
A pokud pristoupis na to, ze sluzba SQL serveru na lokalnim pocitaci pojede
pod uzivatelskym jmenem/heslem (ne pod "localsystem"), ktere ma pristup na
sit, muzes se vyhnout kroku kopirovani .bak souboru na lokal, a restorovat
primo ze site (tak to delam ja).
Funguje to bez problemu, rychle a spolehlive.
Pokud mas zajem, muzu tu davku/skripty "anonymizovat" a poslat.
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)FB - WHERE LIKE / UNION
[*] lelicek(zv)volny(tec)cz - 8.2.2005 08:37:56
No ja bych se na setrideni od DB moc nespolehal, ale
nejjednodusi a bez procedury:
select 1 AS x, ... where jmeno like 'NNN%'
union all
select 2 AS x, ... where jmeno like '%NNN%'
ORDER BY 1
To order by je mozno pouzit pouze u prvniho nebo ruheho selectu,
zalezi na DB, chce to zkusit.
Pavel
> Jiri Cincura wrote:
> > select ... where jmeno like 'NNN%'
> > union all
> > select ... where jmeno like '%NNN%'
>
> Ne union all, ale jen union. To jsem nejak presadil. Ale tak to
> porad funguje.
--
Akcni unorova nabidka "3 za cenu 1"! Ziskejte
VOLNY ADSL 512/128 3GB za cenu 1GB!
http://adsl.volny(tec)cz
Eventy v OLE
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.2.2005 08:25:54
Jen pozor na udalosti, ktere maji vracet nejakou hodnotu - tam Delphi
implementace event sink pokulhava a je lepsi se podivat po necem jinem -
napr. www.techvanguards.com - EventSinkImp
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel Gazda
> Sent: Tuesday, February 08, 2005 8:12 AM
> To: delphi-l(zv)clexpert(tec)cz
>
> nevim, jestli je to nejlepsi, ale funguje
>
> > Chtel jsem poprosit, nemate nekdo ukazkovy priklad na praci
> s eventy u
> > OLE?
>
> TMujWord = class(TObject)
> procedure WordDocClose(Sender: TObject);
> procedure WordAppQuit(Sender: TObject); ..
> Application : TWordApplication;
> ..
> end;
<snipped>
Eventy v OLE
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 8.2.2005 08:11:51
Ahoj
nevim, jestli je to nejlepsi, ale funguje
> Chtel jsem poprosit, nemate nekdo ukazkovy priklad na praci s eventy u
> OLE?// definuji vlastni objekt
TMujWord = class(TObject)
procedure WordDocClose(Sender: TObject);
procedure WordAppQuit(Sender: TObject);
..
Application : TWordApplication;
..
end;(* definice cinnosti pri udalosti *)
procedure TMujWord.WordDocClose(Sender: TObject);
begin
// nejaka cinnost
end;
procedure TMujWord.WordAppQuit(Sender: TObject);
begin
// ukonceni nebo odpojeni aplikace od Wordu
end;(* v programu *)
// pro aplikaci
MujWord.Application := TWordApplication.Create(nil);
with MujWord.Application do
begin
...
OnQuit := MujWord.WordAppQuit;
...
...
// pro dokument
MujWord.Dokumenty[Idx] := TWordDocument.Create(nil);
MujWord.Dokumenty[idx].OnClose := MujWord.WordDocClose;
Pavel
placeny amater
FB - WHERE LIKE / UNION
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 8.2.2005 07:39:47
> nejsem si jist, zda se da spolehat na razeni, neni-li pouzito order by.
> Proto bych osobne sahl po jednoduche ulozene procedure,
Ja bych se taky asi priklonil k ulozene procedure.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================FB - WHERE LIKE / UNION
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.2.2005 07:27:46
Lebeda David dne 8 Feb 2005 v 6:25:
> > Mam ve FB tabulku TABLE, Fields treba JMENO,PRIJMENI
> >
> > pozadavek je vyhledat vse co obsahuje podretezec NNN jak na zacatku
> > tak i na jine pozici. Delam to pomoci (JMENO LIKE 'NNN%') OR (JMENO
> > LIKE '%NNN%')
> >
> > problem je vtom, ze vysledek bych chtel setridit takto: nejprve ty
> > zaznamy ktere nasel na zacatku retezce, a pak ty ostatni. UNION i
> > LIKE to dela ale prsne naopak.
Neco na zpusob
SELECT
0,
a.Jmeno
FROM .... a
UNION
SELECT
1,
b.Jmeno
FROM ... b
ORDER BY 1, 2
Nevim, zda projde spravne jen SELECT 0, nebo psat radeji "SELECT cast (0 as smallint) as Poradi,"
Karel Rys
FB - WHERE LIKE / UNION
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 8.2.2005 06:25:42
> Mam ve FB tabulku TABLE, Fields treba JMENO,PRIJMENI
>
> pozadavek je vyhledat vse co obsahuje podretezec NNN jak na zacatku tak i na
> jine pozici.
> Delam to pomoci (JMENO LIKE 'NNN%') OR (JMENO LIKE '%NNN%')
>
> problem je vtom, ze vysledek bych chtel setridit takto: nejprve ty zaznamy
> ktere nasel na zacatku retezce, a pak ty ostatni. UNION i LIKE to dela ale
> prsne naopak.
>
> poradi nekdo jak s tim nalozit, popripade jine reseni ?
>
Ahoj,
nejsem si jist, zda se da spolehat na razeni, neni-li pouzito order by.
Proto bych osobne sahl po jednoduche ulozene procedure, ve ktere
budou za sebou dva FOR cykly pro selekty vzdy s jednou z uvedenych
podminek, pritom kazdy z tech selektu muze mit (je-li pozadovano)
order by. Takze i zaznamy uvnitr obou skupin lze treba abecedne radit.
Cimz netvrdim, ze pouzitim unionu nelze dosahnou tehoz, nemam s tim
ale moc zkusenosti.
David Lebeda
FB - WHERE LIKE / UNION
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 7.2.2005 22:33:10
Jiri Cincura wrote:
> select ... where jmeno like 'NNN%'
> union all
> select ... where jmeno like '%NNN%'
Ne union all, ale jen union. To jsem nejak presadil. Ale tak to porad funguje.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/FB - WHERE LIKE / UNION
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 7.2.2005 22:19:09
MUDr.Patrik Valenta wrote:
> totez jsem zkousel pomoci dvou selectu (JMENO LIKE 'NNN%') (JMENO LIKE
> '%NNN%') spojene pomoci UNION
select ... where jmeno like 'NNN%'
union all
select ... where jmeno like '%NNN%'
tohle mi to naprosto v pohode udela a dostanu
NNN
aaNNN
bbNNN
a v DB mam
aaNNN
NNN
bbNNN
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/FB - WHERE LIKE / UNION
[*] MUDr.Patrik Valenta <valentapat(zv)volny(tec)cz> - 7.2.2005 22:09:08
Zdravim konferenci.
Mam ve FB tabulku TABLE, Fields treba JMENO,PRIJMENI
pozadavek je vyhledat vse co obsahuje podretezec NNN jak na zacatku tak i na
jine pozici.
Delam to pomoci (JMENO LIKE 'NNN%') OR (JMENO LIKE '%NNN%')
totez jsem zkousel pomoci dvou selectu (JMENO LIKE 'NNN%')
(JMENO LIKE '%NNN%') spojene pomoci UNION
problem je vtom, ze vysledek bych chtel setridit takto: nejprve ty zaznamy
ktere nasel na zacatku retezce, a pak ty ostatni. UNION i LIKE to dela ale
prsne naopak.
poradi nekdo jak s tim nalozit, popripade jine reseni ?
s pozdravem valik
Visual SourceSafe a Delphi IDE
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 7.2.2005 20:37:01
http://www.epocalipse.com/
Pozivam a jsem spokojen. Bohuzel neni free. :-(
Zvo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Libor Valka
Sent: Monday, February 07, 2005 5:29 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Visual SourceSafe a Delphi IDE
Dobry podvecer,
hledam zpusob integrace MS Visual SourceSafe do Delphi 6 IDE.
Nevite, prosim, nekdo o necem? Nejlepe free :-)
Diky, Libor.
Firebird a ODBC string pro ASP
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 7.2.2005 18:38:53
Zdravim vsechny,
pokousim se otevrit ASP connection na ODBC zdroj - Firebird databazi. V
delphi mi ten connection string chodi, ale v ASP mi to pise: unavailable
database
Nevi nekdo, v cem by mohl byt zakopany pes ?
connection string:
Provider=MSDASQL.1;Password=masterkey;Persist Security Info=True;User
ID=SYSDBA;Data Source=FBird;Mode=Read
samozrejme v datasource FBird je cesta k databazi atd.
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
t.bradle(zv)worldonline(tec)cz
Visual SourceSafe a Delphi IDE
[*] Libor Valka <konference(zv)livasys(tec)com> - 7.2.2005 17:28:48
Dobry podvecer,
hledam zpusob integrace MS Visual SourceSafe do Delphi 6 IDE.
Nevite, prosim, nekdo o necem? Nejlepe free :-)
Diky, Libor.
Jak ulozit a nacist WORD dokument soubor do FB
[*] Jiri Virt <virt(zv)volny(tec)cz> - 7.2.2005 17:02:46
Ahoj,
jak provest viz subject?
nacteni bych jeste pochopil .. vytahnout si binarni data do souboru a
otevrit ve wordu ... ale jak s ulozenim?
Urcite jste toto nekdo uz tropil.Poradte mi.
Diky
Jirka Virt
Eventy v OLE
[*] Dan <xfojtik(zv)centrum(tec)cz> - 7.2.2005 16:32:44
Chtel jsem poprosit, nemate nekdo ukazkovy priklad na praci s eventy u OLE?
Nejlepe na prikladu prace s Excelem nebo Wordem.
Potrebuji reagovat na udalosti typu BeforeSave, BeforeClose, apod...
Dan
Vkladani objektu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 7.2.2005 15:26:34
Pekne odpoledne,
potreboval bych do dokumentu me aplikace ulozit objekt - nejcasteji napr. tabulku vytvorenou v
Excelu. Nemate prosim nekdo nejakou jednoduchou ukazku? V tehle oblasti nejak tapu, netusim, jak
zacit, takze ani na netu nevim, co vlastne hledat.
Diky, Karel Rys
Automaticky backup DB na SQL Serveru
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 7.2.2005 14:16:30
DTS je soucasti SQL serveru. Priklady jsou uvedeny primo v helpu k MS SQL.
V zasade jde o to ze si udelas klasicky SQL script pro zalohu, ktery si nejdrive otestuj napr. v Query analyzeru
1.
Neco jako "BACKUP DATABASE MojeDB TO BackupDevice nebo cesta... Viz. help"
2.
Druhy script bude ActiveX, ten si otestuj nekde mimo napr.
Function Main()
Const Odkud_Nahrat = "\\serverZdroj\mojezaloha.bak"
Const Kam_Ulozit = "\\serverCil\mojezaloha.bak"
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile Odkud_Nahrat, Kam_Ulozit
Main = DTSTaskExecResult_Success
End Function
3.
Pro obnovu pouzij opet sql script:
RESTORE DATABASE... Viz. help
Zde ale pozor, protoze v databasi nesmi nikdo pracovat (jinek nelze provest restore), lze ovsem nastavit ve scriptu, aby se nejprve prepnula do vyhradniho modu a teprve potom provest restore. Jako vzdy je reseni cela rada
4. Tyto scripty si zkopirujes do DTS, propojis a je to hotovo. Navis si muzes pridat zasilani mailu o provedeni scriptu popripade o vyskytu chyby...
Jirka
> Nemel bys nejaky priklad? S DTS jsem jeste nepracoval. (staci
> odkaz na nejaky stranky)
>
> Diky
>
> > Zkus pouzit DTS, myslim, ze by to nemusel byt problem.
> >
> > V tom DTS bych vytvoril sql script pro Backup, ActiveX script
> > pro kopirovani a sql script pro restore.
>
>
>
>
>
> Komponenta pro strom slozek
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 7.2.2005 12:52:24
Ahoj,
nema nekdo nejaky tip na komponentu podobnou ShellTreeView? TShellTreeView ma plno chyb a uz se s tim neda dal zit. :( Osobni
zkusenosti vitany.
Nejlepe, aby sama spravne detekovala treba zmenu v obsahu atp.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/
Automaticky backup DB na SQL Serveru
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 7.2.2005 12:20:21
Nemel bys nejaky priklad? S DTS jsem jeste nepracoval. (staci odkaz na
nejaky stranky)
Diky
> Zkus pouzit DTS, myslim, ze by to nemusel byt problem.
>
> V tom DTS bych vytvoril sql script pro Backup, ActiveX script
> pro kopirovani a sql script pro restore.
Chyba pri volani GetDC(0)
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 7.2.2005 12:20:21
> To je divne protoze tam neni duvod aby prekladac vubec generoval kod pro
> kontrolu rozsahu. Neni to spis o radek dal, jak vypada prelozeny kod ?
No nakonec po mnoha pokusech jsem to zjistovani barevne hloubky
proste vyhodil, koneckkoncu to neni zas az tak podstatna informace
pro kancelarskou aplikaci :-) Ted uz se zda ze to funguje v poradku...
Pavel Poles
databaze - BDE
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 7.2.2005 12:16:21
> Pouzivam Paradox take na siti a podobne veci mi funguji. Mas v INIT
> nastaveno LOCAL SHARE na TRUE? Sice si nemyslim, ze by to mohla byt
> pricina,
> ale cert tomu ver.
Ja bych to videl na 99.99% jako pricinu.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5, fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz , WWW: http://www.csh(tec)cz
pobocka Ostrava: Nedbalova 14, 701 00 Ostrava
tel.: 596 635 687
Dotaz k SIMPLE MAPI a MAPI
[*] Petr Vones <konference(zv)petrvones(tec)net> - 7.2.2005 11:58:20
From: "Milan Kajnar" <mkajnar(zv)mikesoft(tec)cz>
> Potreboval bych poradit jak zacit s MAPI ci Single MAPI v tomto smyslu:
>
> Chci napsat aplikaci ci DLL (a registrovat ji v systemu), ktera bude
> zachytavat pozadavky na odesilani mailu v prostredi windows
Simple MAPI je vlastne DLL ktera exportuje cca 12 jednoduchych funkci. Vice
najdes v MSDN.
Petr Vones databaze - BDE
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 7.2.2005 11:48:19
> Diky vsem bylo to tim INIT
Jsem rad, ze to byl ten LOCAL SHARE.
V Delphi + .db beha dneska jeste pomerne dost aplikaci.
Vim o tom z nasich kurzu, ze seminaru.
Je to nejspis tim, ze neni dostatek casu a energie stare aplikace predelat do neceho jineho.
Pokud ale s aplikaci zacinas, jeste to zkus zvazit.
Jsou jina a lepsi reseni.
Honza
P.S.
Na seminar "Belohrad 2005", 23.-24.2. je jeste par mist volnych.
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Dotaz k SIMPLE MAPI a MAPI
[*] Michel Rabadi <michel(zv)asex(tec)cz> - 7.2.2005 11:22:16
> -----Original Message-----
> From: Milan Kajnar
>
> Muzete mi prosim nekdo poradit, cim zacit? Neznam nyni ani
> radne terminologii - jeste jsem nemel tu cest se tim zabyvat.
MAPI neni zrovna trivialni, takze bych doporucil napr. knihu "Inside MAPI"
(priklady v C) a samozrejme prislusne kapitoly v MSDN. Prijemne pocteni ;-)
Michel
Automaticky backup DB na SQL Serveru
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 7.2.2005 11:22:16
Zkus pouzit DTS, myslim, ze by to nemusel byt problem.
V tom DTS bych vytvoril sql script pro Backup, ActiveX script pro kopirovani a sql script pro restore.
Jirka
> Zdravim,
>
> mam nasledujici problem: potrebuju vytvorit program (nebo
> skript), ktery se mi zazalohuje DB (MS SQL Server) na
> serveru, zkopiruje na local a tam ji restoruje pod stejnym
> aliasem. Nevim jestli se da komunikovat s SQL Serverem pomoci
> nejakych COM objektu nebo jestli to jde nejak naskriptovat.
>
> Diky za kazdou radu,
>
> Vaclav Sykora
>
>
>
>
> FB - JOIN v update (WAS: FB - Pomoc pri syntaxi SQ
[*] Kalhous <kalhous(zv)eu(tec)cz> - 7.2.2005 11:18:15
Myslim za takto skutecne ne. Ale mohlo by jit neco jineho (nezkousel jsem) -
v prikazu UPDATE lze (alepon podle syntaxe) uvest tabulku nebo view. Takze
ty joiny dat do updatovaneho view.
> Diky, to bude asi ono.
> Znamena to teda, ze "join-y" nejdou v update pouzit?? Mam na mysli jako
> napr. ve zminenem MS SQL?
> Jirka
databaze - BDE
[*] Roman Lostak - IRL software <info(zv)irl(tec)cz> - 7.2.2005 11:12:15
Diky vsem bylo to tim INIT
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Sebelik
Sent: Monday, February 07, 2005 9:28 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: databaze - BDE
> mam aplikaci pouzivajici BDE a pracujici v siti. Pokud
Predpokladam Paradox (.db)
> na jednom PC databazi zmenim (pridam zaznam) tak na druhem PC se toto
> neprojevi. Pritom v BDE administratoru mam nastaveny spravne sdileny
> adresar a nazev databaze. Prikaz table1.refresh mi funguje je kdyz
> aplikace bezi na stejnem PC.
No, uplne jasne mi to neni, jak to provozujes, ale zkus LOCAL SHARE =
true.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Automaticky backup DB na SQL Serveru
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 7.2.2005 10:52:13
Zdravim,
mam nasledujici problem: potrebuju vytvorit program (nebo skript), ktery
se mi zazalohuje DB (MS SQL Server) na serveru, zkopiruje na local a tam
ji restoruje pod stejnym aliasem. Nevim jestli se da komunikovat s SQL
Serverem pomoci nejakych COM objektu nebo jestli to jde nejak
naskriptovat.
Diky za kazdou radu,
Vaclav Sykora
FB - JOIN v update (WAS: FB - Pomoc pri syntaxi SQ
[*] Jiri Sokol <js-delphi(zv)hotmail(tec)com> - 7.2.2005 10:44:13
>Od: Kalhous <kalhous(zv)eu(tec)cz>
>Datum: 04.02.2005 17:40:36
>
>Asi by bylo dobre vedet co ma ten prikaz udelat. Pokud ma zmenit hodnotu ve
>sloupci "sloupec" tabulky "tabulka" na 3 vsude kde je splnena ta podminka
>tak treba zkusit neco jako
>UPDATE TABULKA SET SLOUPEC=3
>WHERE SLOUPEC1=2 AND (SELECT PODMINKA FROM CISELNIK C WHERE C.ID=ID)=0
Diky, to bude asi ono.
Znamena to teda, ze "join-y" nejdou v update pouzit?? Mam na mysli jako
napr. ve zminenem MS SQL?
Jirka
-----------------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6ProfSP3; WinXPSP2; FB 1.5.2
programator amater
_________________________________________________________________
Najdete si svou lasku a nove pratele na Match.com. http://www.msn(tec)cz/databaze - BDE
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 7.2.2005 09:28:07
> mam aplikaci pouzivajici BDE a pracujici v siti. Pokud
Predpokladam Paradox (.db)
> na jednom PC databazi zmenim (pridam zaznam) tak na druhem PC se toto
> neprojevi. Pritom v BDE administratoru mam nastaveny spravne sdileny
> adresar a nazev databaze. Prikaz table1.refresh mi funguje je kdyz
> aplikace bezi na stejnem PC.
No, uplne jasne mi to neni, jak to provozujes, ale zkus LOCAL SHARE = true.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================databaze - BDE
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 7.2.2005 09:36:08
Pouzivam Paradox take na siti a podobne veci mi funguji. Mas v INIT
nastaveno LOCAL SHARE na TRUE? Sice si nemyslim, ze by to mohla byt pricina,
ale cert tomu ver.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
prosim o pomoc, mam aplikaci pouzivajici BDE a pracujici v siti. Pokud
na jednom PC databazi zmenim (pridam zaznam) tak na druhem PC se toto
neprojevi. Pritom v BDE administratoru mam nastaveny spravne sdileny
adresar a nazev databaze. Prikaz table1.refresh mi funguje je kdyz
aplikace bezi na stejnem PC.
FB1.5 embedded + UDF + Win95
[*] delphi(zv)mjsoft(tec)cz - 6.2.2005 20:45:10
Zdravim,
nakonec jsem prisel na to, ze kdyz k exe souboru (nebo do
Win/System32)
nakopiruju GDS32.dll, tak to funguje. Proto me to fungovalo tam, kde byl
nainstalovan Firebird.Bez GDS32.dll se do databaze dostanu, ale pri
pouzite
UDF to hlasi tu chybu. Dal uz jsem s tim, z nedostatku casu,
nelaboroval.
Karel V.
> Ahoj Karle V. :-)
>
> A mas tu dll knu\ihovnu faktis nakopirovanou do adresare UDF?
> A mas je
> definovane v DB? - tohle je divny..
>
> delphi(zv)mjsoft(tec)cz wrote:
> > Zdravim,
> >
> > zkousim embedded server Firebird1.5. Pouzivam vlastni UDF
> knihovnu.
> > Ve WinXP je vse v pohode. Ted jsem to ale zkousel na Win95.
> Program se
> > tam rozbehne, data vidim, ale pri pozadavku na tu UDF to zahlasi
> > "function XXX is not defined. modul name or entrypoint could not be
> > found". Knihovnu mam v podslozce UDF u firebirdu. Nevite v cem je
> > zrada?
> >
> >
> > Diky predem Karel V.datumove funkce pro MSSQL
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 7.2.2005 09:32:07
> nevite nekdo, jak co nejjednoduseji zkonvertovat hodnotu datetime na
> date (bez casu, resp. s casem 0:00:00) ?
>
> MSSQL 2000
CONVERT(DATETIME,CONVERT(INT,CONVERT(FLOAT, <DATETIME>)))
Tomas Zalesak
OT: datumove funkce pro MSSQL
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 7.2.2005 09:28:07
Zdravim,
nevite nekdo, jak co nejjednoduseji zkonvertovat hodnotu datetime na
date (bez casu, resp. s casem 0:00:00) ?
MSSQL 2000
Diky za nasmerovani
Petr Sikola
databaze - BDE
[*] Roman Lostak - IRL software <info(zv)irl(tec)cz> - 7.2.2005 08:50:04
Dobry den,
prosim o pomoc, mam aplikaci pouzivajici BDE a pracujici v siti. Pokud
na jednom PC databazi zmenim (pridam zaznam) tak na druhem PC se toto
neprojevi. Pritom v BDE administratoru mam nastaveny spravne sdileny
adresar a nazev databaze. Prikaz table1.refresh mi funguje je kdyz
aplikace bezi na stejnem PC.
PORADTE PROSIM
Diky
Roman Lostak
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 7.2.2005 08:42:03
> Ahoj.
> 1) nevim co znamenaji - ja to nepouzivam a v pohode existuju -
> '+ozn+', '+zav+', '+pred+', '+jak+' -> ten radek uplne vyhod
> 2) pred tim, nez do Query pridas SQL dotaz - tak si smaz vsechny predchozi!!!
> 3) osetri si praci s transakcema - parametry se daji plnit az kdyz je transakce nastartovana
> 4) parametry se plni az po prikazu - vzdyt v Tvem prikladu nemuze
> DB engine jeste tusit co a proc mu predavas nejake parametry...
> Ci-li... ja to delam takhle:
> Q3.close;
> if Q3.Transaction.Active then
> Q3.Transaction.Commit;
> Q3.SQL.Clear;
> Q3.SQL.Text:='INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna,
> Oznamovatel, Zavada, Predano, Jak) VALUES(:dat, :tim, :ardo, :sn,
> :her, :ozn, :zav, :pred, :jak)';
> if not Q3.Transaction.Active then
> Q3.TRansaction.StartTransaction;
> ...
> Q3.ParamByName('ozn').AsString := ozn;
> Q3.ParamByName('pred').AsString := pred;
> Q3.ParamByName('jak').AsString := jak;
> try
> Q3.ExecuteQuery;
> Q3.Transaction.Commit;
> finally
> Q3.Close;
> Q3.SQL.Clear;
> end;
> Ahoj
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
> programator amater
Tak tohle jsem zkusil a mam maly dotaz. U Transaction a ExecuteQuery
mi Delphi zahlasi: Undeclared identifier.
Mam to nekde pred tim jeste deklarovat, nebo mam spatnou Query?
Pro pripojeni k SQL pouzivam ADO, ale ADOQuery mi k tomu, co jste tu
psali naprosto nepasuje.
Jinak, s tou raketovou zakladnou, nejsi daleko od pravdy ;-D
Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
D6 Ent, WinXP, SP2
MS SQL 2K, Win2003 Srv
Vice retezcova hodnota
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 7.2.2005 08:28:02
Diky, mas pravdu. Na pc se systemem Win2000 to neslo. Ted premyslim, kam to zapsat. Jedna se jen o textovy soubor, kde jsou ulozeny cesty uzivatelu, kteri spustili program. Kdesi tady bylo, ze pri odinstalaci bych mel projit vsechny uzivatelske slozky. To by se i dalo, ale jak zjistit vsechny uzivatelske slozky?
Zdanlive neresitelny problem :-)================= Puvodni zprava =================
Od (From): konference(zv)sales(tec)cz
Komu (To): delphi-l(zv)clexpert(tec)cz
Kopie (Cc):
Predmet (Subject): Re: Vice retezcova hodnota
Datum (Date): 3. 2. 2005 11:03
==================================================
< On Behalf Of Petr Berek
< >
< ....
< > Kdy~ jsem zkouael zapsat do souboru All User\Application
< > Data\ tak jsem
< > tam mohl zapsta i jako Ghost. Tak prosim o radu, co s tim, diky
<
< Ahoj.
< Nenech se mylit, ...\All User\Application Data\ ma standardne uzivatel s
< pravy USER POUZE pro cteni.
< U Tebe to pravdepodobne jde proto ze
< a) system jede na FAT a ne na NTFS
< b) system sice jede na NTFS, ale system byl predinstalovan
< (notebooky,znackove PC) tim zpusobem, ze nejprve po volbe jazyka byl
< instalovan na FAT a po te automaticky preveden na NTFS. Tam proste prava
< nastavena nejsou -o(: (plati urcite pro W2000 u XP nevim, ale od te doby vse
< instaluji z klasicky s CD a na priblblou predinstalaci kaslu)
<
< Ludek
<
<
<
Problemy s Win2003 serverem
[*] Jiri Baudys <konference(zv)baudys.name> - 7.2.2005 00:15:24
Pro doplneni:
Skutecne byl problem v JCL ... resp. v jeji verzi s 2 proc. resp.
hyperthearding masinou.
Jinak vsem kdo pouzivate JCL vrele doporucuji si vyzkouset jejich verzi 3,
je to sice rc, ale zadny problem jsem tam nenasel a oproti verzi, kterou
jsem pouzival (2.1) je znacne posilena o spoustu novinek.
jirKa
-----Original Message-----
From: Behalf Of Liska David
Sent: Friday, January 28, 2005 12:51 PM
Subject: Re: Problemy s Win2003 serverem
V JCL je chybka v unite "JclSysInfo", fce "GetCPUSpeed", vola se pri
inicializaci unity. Ta me hodne potrapila, nez jsem na to prisel :-) Chovalo
se to tak, ze program nesel spustit na masine, kde byl Hyperthreading.
Maximalne v rezimu kompatibility s W98. Myslim, ze nova verze JCL uz to
resi... Zkus mrknout, jestli to neni ono.
David
> DD,
> mam dotazek, jestli jste nekdo neresil problemy s windows
> 2003 serverem. Mam aplikaci, ktea je jednoduchoucka a pouziva:
> JCL - MemTable
> ADO
> Free report
> Synapsi
>
> Vsude mi to fungovalo bez problemu, ale na w2003 to ani nenabehne.
>
> Kdyz jsem zkousel JCL Debuger, tak chyby ukazuji na temer vsechny
> knihovny :-(Delphi a MySQL
[*] Jiri Baudys <konference(zv)baudys.name> - 6.2.2005 19:55:00
Nejlepsi zkusenosti mam s http://www.zeoslib.net/
jirKa
-----Original Message-----
From: Robert Fujak
Subject: Delphi a MySQL
Zdravim.
Ako sa napojim z Delphi na MySQL na nete, aby som mohol
pristupovat/upravovat data? Aky ovladac mam pouzit?
Dakujem Robo.
Delphi a MySQL
[*] Robert Fujak <robof(zv)inmail.sk> - 5.2.2005 22:40:56
Zdravim.
Ako sa napojim z Delphi na MySQL na nete, aby som mohol
pristupovat/upravovat data? Aky ovladac mam pouzit?
Dakujem Robo.
Chyba pri volani GetDC(0)
[*] David Kraina <dkx(zv)seznam(tec)cz> - 5.2.2005 19:00:34
Pokud tech GetDC delas vice - uvolnujes pomoci ReleaseDC ?!?
Dotaz k SIMPLE MAPI a MAPI
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 5.2.2005 15:58:21
Dobry den...
Potreboval bych poradit jak zacit s MAPI ci Single MAPI v tomto smyslu:
Chci napsat aplikaci ci DLL (a registrovat ji v systemu), ktera bude zachytavat pozadavky na
odesilani mailu v prostredi windows
a presmerovavat je je napriklad do jineho programu. Tento program by tedy mel byt nejspise
Simple MAPI enabled a to kam nakonec pozadavek posle dale v nem ma byt volitelne (muze
a nemusi upravit zpravu pred dalsi distribuci)...
Muzete mi prosim nekdo poradit, cim zacit? Neznam nyni ani radne terminologii - jeste jsem
nemel tu cest se tim zabyvat.
Diky...
Milan Kajnar
DSPack, DirectShow Filtr a zkusenosti
[*] Pavel P <pavel(zv)tvsp(tec)net> - 5.2.2005 15:48:20
Zdravim Vas vsechny,
mate nekdo nejake zkusenosti s komponentama DSPack nebo primo s DirectShow filtrama pro video? Potreboval bych trochu nakopnout spravnym smerem, uz se s tim nejakou dobu trapim a opravdu si nevim rady. Mam jakysi zdroj videa rekneme AVI soubor ktery mi po delsim snazeni hraje pres soustavu DirectShow filtru na vystup jak obraz tak zvuk. Ted prichazi problem, potreboval bych do obrazoveho streamu vkladat grafiku. Asi mi nezbyva nez pouzit dalsi directshow filtr, jenze jaky, jak ho plnit grafickymi daty, popripade jak ho napsat na to jsem neprisel. Tak jestli je tu nekdo kdo by pomohl byl bych nesmirne zauzlovan. Zdravi Pavel P.FB1.5 embedded + UDF + Win95
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 5.2.2005 14:48:16
Ahoj Karle V. :-)
A mas tu dll knu\ihovnu faktis nakopirovanou do adresare UDF? A mas je
definovane v DB? - tohle je divny..
delphi(zv)mjsoft(tec)cz wrote:
> Zdravim,
>
> zkousim embedded server Firebird1.5. Pouzivam vlastni UDF knihovnu.
> Ve WinXP je vse v pohode. Ted jsem to ale zkousel na Win95. Program
> se tam rozbehne, data vidim, ale pri pozadavku na tu UDF to zahlasi
> "function XXX is not defined. modul name or entrypoint could not be
> found". Knihovnu mam v podslozce UDF u firebirdu. Nevite v cem je
> zrada?
>
> Diky predem Karel V. Chyba pri volani GetDC(0)
[*] Petr Vones <konference(zv)petrvones(tec)net> - 5.2.2005 14:32:15
From: "Pavel Poles" <delphi(zv)noni(tec)cz>
> ze pri jeho vyvolani nastane chyba ERangeError na radku
> DC:=GetDC(0);
> v procedure, kde se zjistuje barevna hloubka obrazovky,
> a cela aplikace pak spadne...
To je divne protoze tam neni duvod aby prekladac vubec generoval kod pro
kontrolu rozsahu. Neni to spis o radek dal, jak vypada prelozeny kod ?
Petr Vones Trochu OT dotaz do DB
[*] ivan <hraskoi(zv)stonline.sk> - 4.2.2005 19:54:49
Subject: Re: Trochu OT dotaz do DB
Zdravim
OK odskusal som to, je to OK a vyriesilo aj pripadnu moju dalsiu otazku
ohladne vypisu zaznamov splnajucich danu podmienku.
Este raz Dik Ivan
> Zdravim
>
> Dik za radu, tusim je to having, nie heaving, ale to nie je dolezite, pri
> najblizsej prilezitosti vyskusam, co bude zajtra.
>> Podivej se na prikaz select, agregacni funkce, group by a heaving.
>> SELECT COUNT(*), honota FROM tt
>> GROUP BY hodnota
>> HEAVING COUNT(*)=pocet
>>> Je mozne urobit dotaz do DB Access, ktory by mi vratil len
>>> zaznamy kde pocet rovankych hodnot v stlpci je rovny urcitemu
>>> cislu SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 4.2.2005 17:46:38
> pak cely SQL dotaz bude vypadat takto:
> INSERT INTO Tabulka(''); DROP TABLE Tabulka;--')
>
> Do DB se ulozi prazdny zaznam a nasledne se cela tabulka smaze. Dve
minuska
> znamenaji poznamku, takze zbytek se ignoruje.
Tohle je ale v pripade, ze jsou vyjmenovana pole, do kterych se vkladaji
hodnoty, dost obtizne, pokud neznas presne tu konkretni sql konstrukci. A
kdyz ji znas, tak si myslim ze system slozis i jinak :). Kazdopadne, jestli
Petr pise informacni system pro raketovou zakladnu, ma o cem premyslet :).
Mozna si vytvori nejake role, ktere mu toto nepovoli...
MB
FB - Pomoc pri syntaxi SQL dotazu...
[*] Kalhous <kalhous(zv)eu(tec)cz> - 4.2.2005 17:38:37
Asi by bylo dobre vedet co ma ten prikaz udelat. Pokud ma zmenit hodnotu ve
sloupci "sloupec" tabulky "tabulka" na 3 vsude kde je splnena ta podminka
tak treba zkusit neco jako
UPDATE TABULKA SET SLOUPEC=3
WHERE SLOUPEC1=2 AND (SELECT PODMINKA FROM CISELNIK C WHERE C.ID=ID)=0
> Potrebuju udelat jeden update a nejsem schopen dopatrat se spravne syntaxe
> u FB. U MS SQL by to melo byt nejak takto:
> update tabulka
> set sloupec = 3
> from tabulka t
> left join ciselnik c on c.id=t.id
> where (t.sloupec1=2)and(c.podminka=0)
>
> Jak to mam napsat pro FB?
> Diky moc vsem...
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
> programator amater
>
>
> SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Petr Langer <langer(zv)xdom(tec)cz> - 4.2.2005 17:10:33
Ahoj,
----- Original Message -----
From: "Martin Burle" <mburle2(zv)volny(tec)cz>
Subject: Re: SQL - novy zaznam do tabulky - zacatecnicky dotaz
>> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna,
> Oznamovatel, Zavada, Predano, Jak) VALUES('+dat+', '+tim+', '+ardo+',
> '+sn+', '+her+', '+ozn+', '+zav+', '+pred+', '+jak+')');
>> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna,
> Oznamovatel, Zavada, Predano, Jak) VALUES(:dat, :tim, :ardo, :sn, :her,
> :ozn, :zav, :pred, :jak)');
>
> Vypada to, ze jsi pouzil obe reseni dohromady - vyber si jen jedno, bud to
> seskladej rucne, nebo napln parametry. Jednodusi je myslim seskladat celu
> insert rucne - ale pozor, napr. numericke hodnoty musis mit ve spravnem
> formatu (des. tecka), a nektere typy je potreba dat jeste do uvozovek.
> Parametry tohle udelaji za tebe. Jak uz tu nekdo psal, musis zahajit
> transakci, a vyprazdnit SQL (pokud to neni cerstve vytvoreny objekt).
>
> MB
Kdyz Petr pise, ze je zacatecnik a vsichni mu radi seskladani SQL "rucne",
je podle meho dobre upozornit na nebezpeci SQL injection. Pokud nekdo nevi o
cem to je, tak vezmemez takovyto vyraz:
SQL := 'INSERT INTO Tabulka(''' + dat + ''')';
a tedka si predstavte, ze "dat" je z policka formulare a nekdo tam napise:
'); DROP TABLE Tabulka;--
pak cely SQL dotaz bude vypadat takto:
INSERT INTO Tabulka(''); DROP TABLE Tabulka;--')
Do DB se ulozi prazdny zaznam a nasledne se cela tabulka smaze. Dve minuska
znamenaji poznamku, takze zbytek se ignoruje.
Toto nebezpeci jednou z velkych slabin skladanych SQL dotazu a musi se na
urovni kodu dost osetrovat. Treba to nemusi byt jeho pripad, ale je
minimalne dobre o tom vedet...
HTH,
Petr Langer
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 4.2.2005 17:00:33
> Ted uz to vypada lepe, ale porad to po mne chce prihlaseni uzivatele a
> kdyz zadam jmeno a heslo, tak mi to zahlasi General SQL Error a
> spadne.
> Neda se nejak to prihlasovani obejit? Nechci a ani nemohu uzivatelum
> davat pristupova hesla k SQL.
Nejak mi uniklo, o jakou DB jde? Pokud o IB/FB, pak muzes v nastaveni IBDB
(dvojklik) zadat prihlasovaci udaje a zakazat login prompt. Pri startu
aplikace by jsi jako prvni asi mel navazat spojeni s DB (active IBDB).
MB
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 4.2.2005 16:44:30
Hello Martin,
Friday, February 4, 2005, 4:38:29 PM, you wrote:
>> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna,
> Oznamovatel, Zavada, Predano, Jak) VALUES('+dat+', '+tim+', '+ardo+',
> '+sn+', '+her+', '+ozn+', '+zav+', '+pred+', '+jak+')');
>> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna,
> Oznamovatel, Zavada, Predano, Jak) VALUES(:dat, :tim, :ardo, :sn, :her,
> :ozn, :zav, :pred, :jak)');
> Vypada to, ze jsi pouzil obe reseni dohromady - vyber si jen jedno, bud to
> seskladej rucne, nebo napln parametry. Jednodusi je myslim seskladat celu
> insert rucne - ale pozor, napr. numericke hodnoty musis mit ve spravnem
> formatu (des. tecka), a nektere typy je potreba dat jeste do uvozovek.
> Parametry tohle udelaji za tebe. Jak uz tu nekdo psal, musis zahajit
> transakci, a vyprazdnit SQL (pokud to neni cerstve vytvoreny objekt).
> MB
Ted uz to vypada lepe, ale porad to po mne chce prihlaseni uzivatele a
kdyz zadam jmeno a heslo, tak mi to zahlasi General SQL Error a
spadne.
Neda se nejak to prihlasovani obejit? Nechci a ani nemohu uzivatelum
davat pristupova hesla k SQL. Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 4.2.2005 16:38:29
> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna,
Oznamovatel, Zavada, Predano, Jak) VALUES('+dat+', '+tim+', '+ardo+',
'+sn+', '+her+', '+ozn+', '+zav+', '+pred+', '+jak+')');
> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna,
Oznamovatel, Zavada, Predano, Jak) VALUES(:dat, :tim, :ardo, :sn, :her,
:ozn, :zav, :pred, :jak)');
Vypada to, ze jsi pouzil obe reseni dohromady - vyber si jen jedno, bud to
seskladej rucne, nebo napln parametry. Jednodusi je myslim seskladat celu
insert rucne - ale pozor, napr. numericke hodnoty musis mit ve spravnem
formatu (des. tecka), a nektere typy je potreba dat jeste do uvozovek.
Parametry tohle udelaji za tebe. Jak uz tu nekdo psal, musis zahajit
transakci, a vyprazdnit SQL (pokud to neni cerstve vytvoreny objekt).
MB
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 4.2.2005 16:04:27
> Od: Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz>
> Datum: 04.02.2005 15:40:27
>
>
> Mam to napsane takto:
>
> ozn := sEdit4.Text;
> pred := sEdit5.Text;
> jak := ComboBox2.Text;
>
> Q3.ParamByName('ozn').AsString := ozn;
> Q3.ParamByName('pred').AsString := pred;
> Q3.ParamByName('jak').AsString := jak;
>
> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna, Oznamovatel, Zavada, Predano, Jak) VALUES('+dat+', '+tim+', '+ardo+', '+sn+', '+her+', '+ozn+', '+zav+', '+pred+', '+jak+')');
> Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna, Oznamovatel, Zavada, Predano, Jak) VALUES(:dat, :tim, :ardo, :sn, :her, :ozn, :zav, :pred, :jak)');
>
> Q3.Active := True;
> end;
Ahoj.
1) nevim co znamenaji - ja to nepouzivam a v pohode existuju - '+ozn+', '+zav+', '+pred+', '+jak+' -> ten radek uplne vyhod
2) pred tim, nez do Query pridas SQL dotaz - tak si smaz vsechny predchozi!!!
3) osetri si praci s transakcema - parametry se daji plnit az kdyz je transakce nastartovana
4) parametry se plni az po prikazu - vzdyt v Tvem prikladu nemuze DB engine jeste tusit co a proc mu predavas nejake parametry...
Ci-li... ja to delam takhle:
Q3.close;
if Q3.Transaction.Active then
Q3.Transaction.Commit;
Q3.SQL.Clear;
Q3.SQL.Text:='INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna, Oznamovatel, Zavada, Predano, Jak) VALUES(:dat, :tim, :ardo, :sn, :her, :ozn, :zav, :pred, :jak)';
if not Q3.Transaction.Active then
Q3.TRansaction.StartTransaction;
...
Q3.ParamByName('ozn').AsString := ozn;
Q3.ParamByName('pred').AsString := pred;
Q3.ParamByName('jak').AsString := jak;
try
Q3.ExecuteQuery;
Q3.Transaction.Commit;
finally
Q3.Close;
Q3.SQL.Clear;
end;
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 4.2.2005 15:38:24
>> Q.parambyname('V1').AsString:='hodnota'; //u TQuery musis mit paramcheck na
>> true
>> Takto nejak ;-)
>> HTH,
>> MB
> Vypada to dobre, jen mi to pri pokusu o aktivaci SQLQuery zahlasi toto:
> Missing query, table name or procedure name
> Bihuzel, aplikaci, ktera pouziva SQL, potazmo databaze obecne, pisu
> poprve a moc se v tom neorientuju.
> Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
Mam to napsane takto:
procedure TForm2.sBitBtn36Click(Sender: TObject);
var
dat, tim, stat, ardo, sn, her, zav, ozn, pred, jak: String;
begin
dat := SB1.Panels[1].Text;
tim := SB1.Panels[3].Text;
stat := 'nova';
ardo := ComboBox1.Text;
sn := sEdit1.Text;
her := sEdit2.Text;
zav := sEdit3.Text;
ozn := sEdit4.Text;
pred := sEdit5.Text;
jak := ComboBox2.Text;
Q3.ParamByName('dat').AsString := dat;
Q3.ParamByName('tim').AsString := tim;
Q3.ParamByName('stat').AsString := stat;
Q3.ParamByName('ardo').AsString := ardo;
Q3.ParamByName('sn').AsString := sn;
Q3.ParamByName('her').AsString := her;
Q3.ParamByName('zav').AsString := zav;
Q3.ParamByName('ozn').AsString := ozn;
Q3.ParamByName('pred').AsString := pred;
Q3.ParamByName('jak').AsString := jak;
Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna, Oznamovatel, Zavada, Predano, Jak) VALUES('+dat+', '+tim+', '+ardo+', '+sn+', '+her+', '+ozn+', '+zav+', '+pred+', '+jak+')');
Q3.SQL.Add('INSERT INTO Zavady (Datum, Cas, R_A_D, SN, Herna, Oznamovatel, Zavada, Predano, Jak) VALUES(:dat, :tim, :ardo, :sn, :her, :ozn, :zav, :pred, :jak)');
Q3.Active := True;
end;
Co je spatne??? :?( Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
FB - Pomoc pri syntaxi SQL dotazu...
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 4.2.2005 15:34:24
Ahoj.
Potrebuju udelat jeden update a nejsem schopen dopatrat se spravne syntaxe u FB. U MS SQL by to melo byt nejak takto:
update tabulka
set sloupec = 3
from tabulka t
left join ciselnik c on c.id=t.id
where (t.sloupec1=2)and(c.podminka=0)
Jak to mam napsat pro FB?
Diky moc vsem...
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 4.2.2005 14:52:20
Friday, February 4, 2005, 12:32:04 PM, you wrote:
>> tabulce, kdyz chci vkladat do jednotlivych sloupcu data z
>> promennych(string)?
> a) sestav si insert rucne
> Q.sql.Add('insert into table (pole1, pole2) values ('+val1+', '+val2+')';
> b)pouzij prametry
> Q.sql.Add('insert into table (pole1, pole2) values (:V1, :V2)');
> kde parametry naplnis jeste pred provedenim insertu pomoci:
> Q.parambyname('V1').AsString:='hodnota'; //u TQuery musis mit paramcheck na
> true
> Takto nejak ;-)
> HTH,
> MB
Vypada to dobre, jen mi to pri pokusu o aktivaci SQLQuery zahlasi toto:
Missing query, table name or procedure name
Bihuzel, aplikaci, ktera pouziva SQL, potazmo databaze obecne, pisu
poprve a moc se v tom neorientuju.
Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
Chyba pri volani GetDC(0)
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 4.2.2005 14:36:18
Ahoj,
spravnejsi je mozna
DC := GetWindowDC(GetDesktopWindow)
nebo snad
DC := GetDC(GetDesktopWindow)
R.
Pavel Poles wrote:
> Zdravim konferenci.
>
> Pozivam ve sve aplikaci ClxExceptDlg z JCL a obcas se stane
> ze pri jeho vyvolani nastane chyba ERangeError na radku
> DC:=GetDC(0);
> v procedure, kde se zjistuje barevna hloubka obrazovky,
> a cela aplikace pak spadne...
>
> Cela procedura vypada takto:
>
> function GetBPP: Integer;
> var
> DC: HDC;
> begin
> DC := GetDC(0);
> Result := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES);
> ReleaseDC(0, DC);
> end;
> Manipulace se Start menu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 4.2.2005 13:38:12
Ahoj,
uz jsem nasel celkem 3 zcela odlisne zpusoby, jak pridat zastupce do
Start menu Windows.
1) Zastupce zapsat do "vhodneho" adresare na disku (s vyuzitim API
funkce pro zjisteni, ktery adresar to je).
2) Pouzit IShellLink
3) Pomoci DDE
Ktery z techto zpusobu je rekneme nejcistsi? A jak spravne odstranit
celou skupinu ze Start menu?
Diky
David Lebeda
Chyba pri volani GetDC(0)
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 4.2.2005 13:36:12
AHoj,
1. Ciste by to melo byt (tady sice vyjimka mezi alokaci a uvolnenim asi
nehrozi, ale clovek nikdy nevi...)
> function GetBPP: Integer;
> var
> DC: HDC;
> begin
> DC := GetDC(0);
try
> Result := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES);
finally
> ReleaseDC(0, DC);
end;
> end;
>
> Kde by mohl byt problem?
Urcite jinde v aplikaci. Viz MSDN. Tam jsou popsana urcita omezeni.
> Pripadne lze tuto informaci ziskat i
> jinym zpusobem?
Tohle je podle me jediny (dokumentovany) zpusob ve Win32 API. V DirectX jsem
to tusim delal jinak.
Tk.
Thread a vytizeni CPU
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 4.2.2005 13:26:09
> Pokud thread spustim se Sleep(0) v metode Execute, indikuje
> vytizeni CPU na 100% (zeleny graf) a mnozstvi prostredku CPU
> pouzitych operacemi jadra 50% (cerveny graf).
Nula ma specialni vyznam, tak asi proto. Viz MSDN, Sleep:
A value of zero causes the thread to relinquish the remainder of its time
slice to any other thread of equal priority that is ready to run. If there
are no other threads of equal priority ready to run, the function returns
immediately, and the thread continues execution.
Tj. CPU bezi furt a odhaduji ze kernel mode bezi tak napul s Tvym threadem
(Sleep hned neskoci do kernel modu).
> Pokud thread spustim se Sleep(1), indikuje vytizeni CPU na 0%
> a mnozstvi prostredku CPU pouzitych operacemi jadra 0%.
Kernel mode + Tvuj thread (+ ostatni thready) spotrebuji zanedbatelne
casu...
> Pokud thread spustim bez Sleep, indikuje vytizeni CPU na 100%
> a mnozstvi prostredku CPU pouzitych operacemi jadra 0%.
Kernel mode spotrebuje zanedbatelne casu oproti Tvemu threadu.
>
> Muzete mi poradit jak obecne minimalizovat zatizeni systemu
> vlivem behu threadu?
Sleep je zakladni zpusob, dale ruzne WaitFor... funkce.
Tk.
Chyba pri volani GetDC(0)
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 4.2.2005 12:54:06
Zdravim konferenci.
Pozivam ve sve aplikaci ClxExceptDlg z JCL a obcas se stane
ze pri jeho vyvolani nastane chyba ERangeError na radku
DC:=GetDC(0);
v procedure, kde se zjistuje barevna hloubka obrazovky,
a cela aplikace pak spadne...
Cela procedura vypada takto:
function GetBPP: Integer;
var
DC: HDC;
begin
DC := GetDC(0);
Result := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES);
ReleaseDC(0, DC);
end;
Kde by mohl byt problem? Pripadne lze tuto informaci ziskat i jinym zpusobem?
Dekuji za rady a podnety
Pavel Poles
Thread a vytizeni CPU
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 4.2.2005 12:46:06
Ahoj,
muze mi nekdo vysvetlit vztah mezi vlivem nize uvedeneho threadu na zatizeni systemu a indikaci vyuziti CPU ve spravci uloh (W2000)?.
Pokud thread spustim se Sleep(0) v metode Execute, indikuje vytizeni CPU na 100% (zeleny graf) a mnozstvi prostredku CPU pouzitych operacemi jadra 50% (cerveny graf).
Pokud thread spustim se Sleep(1), indikuje vytizeni CPU na 0% a mnozstvi prostredku CPU pouzitych operacemi jadra 0%.
Pokud thread spustim bez Sleep, indikuje vytizeni CPU na 100% a mnozstvi prostredku CPU pouzitych operacemi jadra 0%.
Muzete mi poradit jak obecne minimalizovat zatizeni systemu vlivem behu threadu?
Jara
....
procedure TForm1.Button1Click(Sender: TObject);
begin
TestThread:= TTest.Create(true);
TestThread.FreeOnTerminate:= false;
TestThread.Priority:= tpNormal;
TestThread.Resume;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TestThread.Terminate;
TestThread.WaitFor;
TestThread.Free;
end;
....
unit Test;
interface
uses
Classes;
type
TTest = class(TThread)
protected
procedure Execute; override;
end;
implementation
uses SysUtils;
procedure TTest.Execute;
begin
while not Terminated do
begin
...
Sleep(x);
end;
end;
end.
SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 4.2.2005 12:32:04
> tabulce, kdyz chci vkladat do jednotlivych sloupcu data z
> promennych(string)?
a) sestav si insert rucne
Q.sql.Add('insert into table (pole1, pole2) values ('+val1+', '+val2+')';
b)pouzij prametry
Q.sql.Add('insert into table (pole1, pole2) values (:V1, :V2)');
kde parametry naplnis jeste pred provedenim insertu pomoci:
Q.parambyname('V1').AsString:='hodnota'; //u TQuery musis mit paramcheck na
true
Takto nejak ;-)
HTH,
MB
ulozeni obrazovky do JPG
[*] Kratochvil <kratochvil(zv)3a(tec)cz> - 4.2.2005 12:30:04
Zdravim vsechny.
Potreboval bych poradit jak pri vzniknute chybe ulozit obrazovku do JPG.
Dekuji
Jiri Kratochvil
GSM +420 605 210211
E-mail: kratochvil(zv)exetools(tec)cz
Jmeno pocitace v Synapsi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 4.2.2005 11:42:00
> pouzivame ke komunikaci pres TCP Synapsi. Mam IP adresu a chci ji
> prevest na nazev pocitace, pouzivam k tomu
> TTCPBlockSocket.ResolveIPToName. Na nekterych pocitacich to
> opravdu vraci nazev, na jinych to ponecha IP adresu. Rad bych zjistil,
> co je na tech pocitacich, kde se zjistit jmeno nedari, chybne nastaveno.
> Kam si ta funkce pro jmeno saha?
DNS, v nekterych situacich si to muze sahnout i na NetBios.
Pokud to vrati jako vysledek puvodni IP adresu, pak se nepodarilo
zjistit jmeno z IP adresy. Tomuze mit tyto priciny:
- na pocitaci, kde to poustis, neni spravne nastavene DNS.
- na pocitaci, kde to poustis, sice je spravne DNS, to ale nejakou
chybou neumi ziskat patricny reverzni DNS zaznam. (treba ten DNS
server nema konektivitu do internetu, atd.)
- pozadovana IP adresa jednoduse zadny reverzni zaznam v DNS nema.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.SQL - novy zaznam do tabulky - zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 4.2.2005 11:40:00
Zdravim vsechny,
mam takovy velice zacatecnicky dotaz. Jak vytvorim novy zaznam v
tabulce, kdyz chci vkladat do jednotlivych sloupcu data z
promennych(string)?
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
Nastaveni textovych DFM?
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 4.2.2005 11:25:59
> Ahoj vespolek, da se prosim nekde globalne nastavit, aby
> Delphi ukladaly DFM vzdy v textove podobe?
V Environment Options\Designer je volba "New forms as text".
Ak si to zapnes, nove .dfm resourcy (formularov, data modulov, atd.) budu
vytvarane v textovej forme.
Na konverziu existujucich .dfm suborov mozes pouzit nastroj convert.exe v
adresari $(DELPHI)\Bin.
HTH
TOndrej
Maximalni pocet znaku na radek v TMemo.
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 4.2.2005 11:19:58
Ahoj,
> Ja vim ze je to tak trochu debilni ale, problem je v tom, ze
> pristupuji na
> data jak z terminalu tak i z WIN a je potreba aby text
> naformatovany ve WIN
> byl stejne naformatovany i pro dos coz je trochu
> schizofrenni.
Tak to zas uplne debilni ani schizofrenni neni:-) Reseni s TMemo: Pouzij
nejaky fixedwidth font (treba Courier) pro to TMemo. Zapomen na to
EM_SETRECT co jsem radil, nechodi to dobre. Jestli nepotrebujes menit sirku
TMemo za behu aplikace (formstyle = bsDialog), staci z nasledujiciho pouzit
jenom ten kod ve FormCreate, nebo pouzij cely kod - memo s vypnutymi
scrollbary, bez alignu, top=left=0, vypnuty border, schovano ve scrollboxu
(neni to uplne ucesany):
var
TM: TTextMetric;
PrevHPos: Integer;
PrevVPos: Integer;
procedure TPokusForm.FormCreate(Sender: TObject);
var
DC: HDC;
begin
DC := CreateCompatibleDC(0);
try
SelectObject(DC, Memo1.Font.Handle);
GetTextMetrics(DC, TM);
PrevHPos := Memo1.CaretPos.X;
PrevVPos := Memo1.CaretPos.Y;
Memo1.ClientWidth := TM.tmMaxCharWidth * (81); // 80 znaku sirka
Memo1Change(Memo1);
finally
DeleteDC(DC);
end;
end;
procedure TPokusForm.Memo1Change(Sender: TObject);
begin
Memo1.ClientHeight := Max(TM.tmHeight * (Memo1.Lines.Count + 1),
ScrollBox1.ClientHeight);
end;
procedure TPokusForm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean); // tohle je tak trochu prasarna, treba v
Memo1.WindowProc by to bylo lepsi...
var
CP: TPoint;
begin
if (Msg.hwnd = Memo1.Handle) then
begin
CP := Memo1.CaretPos;
if PrevVPos <> CP.Y then
begin
PrevVPos := CP.Y;
CP.Y := TM.tmHeight * CP.Y;
if (CP.Y < ScrollBox1.VertScrollBar.Position) then
ScrollBox1.VertScrollBar.Position := Cp.Y
else if (CP.Y - ScrollBox1.VertScrollBar.Position >=
ScrollBox1.Clientheight) then
ScrollBox1.VertScrollBar.Position := Cp.Y - ScrollBox1.ClientHeight
+ TM.tmHeight;
end;
if PrevHPos <> CP.X then
begin
PrevHPos := CP.X;
CP.X := TM.tmMaxCharWidth * CP.X;
if (CP.X < ScrollBox1.HorzScrollBar.Position) then
ScrollBox1.HorzScrollBar.Position := Cp.X
else if (CP.X - ScrollBox1.HorzScrollBar.Position >=
ScrollBox1.ClientWidth) then
ScrollBox1.HorzScrollBar.Position := Cp.X - ScrollBox1.ClientWidth +
TM.tmMaxCharWidth;
end;
end;
end;
Tk.
Nastaveni textovych DFM?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 4.2.2005 11:17:58
Ahoj vespolek, da se prosim nekde globalne nastavit, aby Delphi ukladaly DFM
vzdy v textove podobe? Povedlo se mi totiz binarni DFM ulozit na SourceSafe,
ale ten pak udelal z bytu 0A dva byty 0D 0A. Kdovi, proc je tak aktivni...
Nebo je VSS nejak blbe nastaveny?
D5Pro, WinXP Pro
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
Jmeno pocitace v Synapsi
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 4.2.2005 11:07:57
Lebeda David wrote:
> nekterych pocitacich to opravdu vraci nazev, na jinych to ponecha IP
> adresu. Rad bych zjistil, co je na tech pocitacich, kde se zjistit jmeno
> nedari, chybne nastaveno. Kam si ta funkce pro jmeno saha?
Rekl bych ze DNS.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Jmeno pocitace v Synapsi
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 4.2.2005 10:59:56
Ahoj,
pouzivame ke komunikaci pres TCP Synapsi. Mam IP adresu a chci ji
prevest na nazev pocitace, pouzivam k tomu
TTCPBlockSocket.ResolveIPToName. Na nekterych pocitacich to
opravdu vraci nazev, na jinych to ponecha IP adresu. Rad bych zjistil,
co je na tech pocitacich, kde se zjistit jmeno nedari, chybne nastaveno.
Kam si ta funkce pro jmeno saha?
Diky
David Lebeda
Otevreni souboru - jakmile jej mysi aktivuji
[*] delphi(zv)kopr(tec)cz - 4.2.2005 09:49:50
Zdravim v konferenci,
nevim presne jak dotaz formulovat, abych nasel odpoved a archivu konference.
jakmile poklepu na nejaky datovy soubor, potrebuji aktivovat nas program
(PROHLIZEC) ktery umi dany soubor precist - coz asi nebude problem.
Problem je, jak tento soubor otevrit v programu PROHLIZEC.
Dale nevim, jak dany datovy soubor otevrit, jakmile jej pretahnu mysi do
programu PROHLIZEC.
Diky za radu
Pavel ZIDEK Maximalni pocet znaku na radek v TMemo.
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 4.2.2005 09:43:50
nevim nejak se mi to nezda, co kdyz nekdo neco vlozi ze schranky
(netestoval jsem), nevim jen mne to napadlo
> Jde to elegantne pouzitim fce CaretPos v OnKeyPress - dava aktualni pozici kurzoru.
>
> procedure TForm1.MemoKeyPress(Sender: TObject; var Key: Char);
> begin
> if (Key >= #32) then
> if Length(Memo.Lines.Strings[Memo.CaretPos.y]) >= 20 then key:= #0; // max. delka 20 znaku
> end;
> Maximalni pocet znaku na radek v TMemo.
[*] PC servis Skloform a.s. <pcservis(zv)skloform(tec)cz> - 4.2.2005 09:19:48
Zdravim.
Jde to elegantne pouzitim fce CaretPos v OnKeyPress - dava aktualni pozici kurzoru.
procedure TForm1.MemoKeyPress(Sender: TObject; var Key: Char);
begin
if (Key >= #32) then
if Length(Memo.Lines.Strings[Memo.CaretPos.y]) >= 20 then key:= #0; // max. delka 20 znaku
end;
Jirka
----- Original Message -----
From: "Josef Zvonicek" <prosoft(zv)prosoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 03, 2005 3:30 PM
Subject: Maximalni pocet znaku na radek v TMemo.> Mam docela hloupou otazku, jestli se da nejak pevne stanovit pocet znaku na
> radek, ktere napise uzivatel v Tmemo.
> Hledal jsem v konferenci, googloval a nic jsem nenasel.
>
> Diky. Zvo.
>
>
>
MS Access
[*] Martin Cajbik <cajbik(zv)sct.sk> - 4.2.2005 09:07:46
Zdravim,
dostal som za ulohu vyrobit zjednodusenu verziu uz existujucej klient -
server aplikacie v Delphi schopnu bezat oproti MS SQL aj MS Access.
Napriek minimalnym skusenostiam s MS Access som v doterajsom priebehu
vyvoja na ziaden vacsi problem nenarazil (SQL jazyk je pri zachovani
urcitych podmienok v podstate kompaktibilny a Access ma svojim vykonom
aj stabilitou pozitivne prekvapil).
Chcel by som sa ale spytat:
- ma niekto skusenosti s dlhodobejsim pouzivanim Access databazy a aka
udrzba je v tomto pripade nutna
- ake je spravanie pri vacsom objeme dat (struktura databazy je pomerne
jednoducha ale mnozstvo dat moze byt dost velke - radovo 100 - 1000
zaznamov denne).
- ako je to s konkurencnym pristupom k databaze a zamykanim (klientska
aplikacia bude urcena na citanie dat a pripadny zapis konfiguracnych
nastaveni, samostatna sluzba bude zabezpecovat zapis dat, citanie aj
zapis su v oboch pripadoch vykonavane vyhradne pomocou SQL jazyka)
- ake su podmienky pre nasadenie databazy MS Access u zakaznika (verzia
operacneho systemu, ostatne podmienky)
Pokial sa uz niekto niecomu podobnemu venoval, velmi by som ocenil
pripadne informacie, namety a pripadne problemy, ktore je potrebne
vyriesit. Za odpoved vopred dakujem.
--
Martin Cajbik
SCT s.r.o. Kosice
Ikony ve 32bit z DLL
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 4.2.2005 08:51:43
Ahoj,
zajimave. Spatne zda se nic nedelas. Ten clen "PIIR.Entries[I].nr" by mel
urcovat index podobrazku v sekci ICONENTRY resourcu te DLL. Testoval jsem to
na nekolika exacich a zatim jsem s tim nemel problem. Resil bych to asi
takto: Pomoci nejakeho prohlizece resourcu (ja pouzivam PEViewer z JCL od
Petra Vonese) bych napred zjistil, zdali v sekci ICONENTRY existuje obrazek
s indexem shodnym jako clen PIIR.Entries[I].nr. Neni-li tomu tak, pak mozna
ciselne indexy nejsou jedinym zpusobem jak lze ty podobrazky ikon v
resourcich identifikovat (napadaji me jmenne reference, hodne bych se ale
divil). V kazdem pripade bych tu funkci krokoval a podle obsahu tech
PIIR.Entries bych se nejak snazil prijit na chybu.
Nemas-li cas nebo nechces-li se s tim zabyvat a neni-li ta dll nejak tajna,
mozna by pomohlo kdybys mi ji poslal - nebudu ji nijak vy(zne)uzivat. Staci
mi pouze prelozeny PE soubor (*.dll) - jen kvuli tem resourcum.
Tk.> nastane chyba "Invalid Icon resource." v LoadFromResource na kodu:
> ...
> hIcon := FindResource(HInstance,
> PAnsiChar(Chr(PIIR.Entries[I].nr)),
> RT_ICON);
> if hIcon = 0 then Error(SIconResourceError);
>
> ...
>
> informacne ta ikona "I302" v te DLL je a nacist "jinym"
> zpusobem jde ...
>
>
>
Maximalni pocet znaku na radek v TMemo.
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 4.2.2005 08:45:40
Josef Zvonicek wrote:
> Ja vim ze je to tak trochu debilni ale, problem je v tom, ze pristupuji na
> data jak z terminalu tak i z WIN a je potreba aby text naformatovany ve WIN
> byl stejne naformatovany i pro dos coz je trochu schizofrenni. Ale i tak
> diky za radu.
nevim mozna bych zkusil spise SynEdit, neco mi rika ze to umi (ale jisty
si nejsem),
kazdopadne toho umi vic nez memo
Radek
Trochu OT dotaz do DB
[*] ivan <hraskoi(zv)stonline.sk> - 3.2.2005 22:54:55
Zdravim
Dik za radu, tusim je to having, nie heaving, ale to nie je dolezite, pri
najblizsej prilezitosti vyskusam, co bude zajtra.
Ivan
> Podivej se na prikaz select, agregacni funkce, group by a heaving.
> Melo by to byt nejak takto:
> SELECT COUNT(*), honota FROM tt
> GROUP BY hodnota
> HEAVING COUNT(*)=pocet
>> Je mozne urobit dotaz do DB Access, ktory by mi vratil len
>> zaznamy kde pocet rovankych hodnot v stlpci je rovny urcitemu
>> cislu, ktore zadam. Maximalni pocet znaku na radek v TMemo.
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 3.2.2005 20:34:45
Ja vim ze je to tak trochu debilni ale, problem je v tom, ze pristupuji na
data jak z terminalu tak i z WIN a je potreba aby text naformatovany ve WIN
byl stejne naformatovany i pro dos coz je trochu schizofrenni. Ale i tak
diky za radu.
Zvo.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Krysl, Tomas
Sent: Thursday, February 03, 2005 4:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Maximalni pocet znaku na radek v TMemo.
Nelze a ani logicky to vzhledem liti textu (alespon me) nedava smysl.
Jakousi alternativu nabizi zprava EM_SETRECT, kterou se nastavi formatovaci
obdelnik, do ktereho se leje text.
Tk.
> Mam docela hloupou otazku, jestli se da nejak pevne stanovit pocet
> znaku na radek, ktere napise uzivatel v Tmemo.
> Hledal jsem v konferenci, googloval a nic jsem nenasel.
>
> Diky. Zvo.
>
>
> Maximalni pocet znaku na radek v TMemo.
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 3.2.2005 20:30:44
Pokud se nepletu tak MaxLength je maximalni delka celeho textu, ale ja
potrebuji omezit pocet znaku na radek. Mohl bych to omezit velikosti okna
pri dane velikosti proporcionalniho fontu, ale chtel bych to udelat nejak
jinak.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of OndraG
Sent: Thursday, February 03, 2005 3:46 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Maximalni pocet znaku na radek v TMemo.
MaxLength
OndraG
> Mam docela hloupou otazku, jestli se da nejak pevne stanovit pocet
> znaku
na
> radek, ktere napise uzivatel v Tmemo.
> Hledal jsem v konferenci, googloval a nic jsem nenasel.
>
> Diky. Zvo.
>
Win2000 a ASP.NET
[*] Peter Ondras <konfery(zv)pse.sk> - 3.2.2005 18:28:33
Win2000 Server EN a Visual Studio .NET 2003 (.NET Frameword 1.1 +
zaplaty) bez akychkolvek problemov. Pouzivam ho bez MSDN. MSDN pouzivam
online na internete.
> -----Original Message-----
>
> Ahoj, provozujete nekdo APS NET (Visual Studio Net 2003) na Win2000?
Jde
> to?
> Ja to zkousim, ale moc dobre mi to nefunguje, po nekolikatem spusteni
> projektu v prohlizeci, mi PC totalne zatuhne (i mys) a musim udelat
tvrdy
> restart.
> Tak nejak jsem to zkousel preinstalovat, ale nepomaha to.
>
> Diky za jakykoliv tip.OT: Win2000 a ASP.NET
[*] Dalibor <dalibor(zv)torola(tec)cz> - 3.2.2005 17:44:30
Ahoj, provozujete nekdo APS NET (Visual Studio Net 2003) na Win2000? Jde
to?
Ja to zkousim, ale moc dobre mi to nefunguje, po nekolikatem spusteni
projektu v prohlizeci, mi PC totalne zatuhne (i mys) a musim udelat tvrdy
restart.
Tak nejak jsem to zkousel preinstalovat, ale nepomaha to.
Diky za jakykoliv tip.Viac ludi na jednom projekte
[*] rkubat(zv)email(tec)cz - 3.2.2005 17:32:29
Borland ma tez nastroj pro verzovani, tymovou praci, offshore vyvoj, atd.:
http://www.borland.com/starteam/
-- RK
> --- Puvodni zprava ---
> Od: Fabik Milan <fabik(zv)kinekus.sk>
> Datum: 01.02.2005 15:33:42
>
> Dobry den,
>
> rad by som sa poucil ako riesite, ak na jednom projekte robi viac ludi na
> viac miestach ?
>
> Ako to davate dokopy ?
>
> Dik
> MF Ikony ve 32bit z DLL
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 3.2.2005 16:50:24
for Tomas Krysl: nemohu zprovoznit KIcon.pas ... resp. jaxi nefunguje to
nacitani z dll (mozna delam neco spatne(?) ):
procedure TFormHlavni.Button2Click(Sender: TObject);
var
MyIcon : TKIcon;
H_DLL : THandle;
begin
MyIcon := TKIcon.Create;
try
H_DLL := LoadLibrary(PAnsiChar('Icon packs\' + IconPack));
if H_DLL <> 0 then MyIcon.LoadFromResource(H_DLL, 'I302');
// MyIcon.SaveToFile('blabla.ico');
finally
MyIcon.Free;
FreeLibrary(H_DLL);
end;
end;
nastane chyba "Invalid Icon resource." v LoadFromResource na kodu:
...
hIcon := FindResource(HInstance, PAnsiChar(Chr(PIIR.Entries[I].nr)),
RT_ICON);
if hIcon = 0 then Error(SIconResourceError);
...
informacne ta ikona "I302" v te DLL je a nacist "jinym" zpusobem jde ... Vytvoreni SP IB z programu
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 3.2.2005 16:46:24
Ahoj,
nevim jak u IB, ale u MSSQL pouzivam z Delphi komponentu TADOQuery, a
funguje to jako vino. Akorat to neumi SQL, ktere obsahuje vice kroku
(tedy "oddelovac" GO). Tak ten SQL rozdelim na vice casti a poustim to
tam po kouskach:
-- 1. krok --
if exists (select 1 from sysobjects where name = 'AATest' and type = 'P')
drop procedure AATest
go -- tento radek smazu a spustim predchazejici radky
-- 2. krok --
CREATE PROCEDURE AATest
(zv)p_Name CHAR(30),
(zv)p_Result CHAR(30) OUTPUT
AS
BEGIN
IF (zv)p_Name = ''
SELECT (zv)p_Name = 'Ahoj !'
SELECT (zv)p_Result = (zv)p_Name
END
GO -- tento radek smazu a spustim predchazejici radky
-- 3. krok --
GRANT EXECUTE ON AATest TO is_test1, is_test2
go -- tento radek smazu a spustim predchazejici radky
Stepan o:) -=* Kalhous <delphi-l(zv)clexpert(tec)cz>, 3.2.2005 14:34 wrote *=-
K> Al jak?
K> IBSQL1.SQL.Add('create procedure pom');
K> IBSQL1.SQL.Add('as');
K> IBSQL1.SQL.Add('begin');
K> IBSQL1.SQL.Add('exit');
K> IBSQL1.SQL.Add('end');
K> IBSQL1.ExecQuery;
K> neprojde (vadi mu radek end), dostat tam napriklad "set term" je take
K> nepruchodne.
>> pouzij nejlepe TIBSQL (z IBExpress), nebo jinou podobnou z tebou
>> pouzivaneho balicku komponent.
Kdo blokuje COM port?
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 3.2.2005 16:10:20
http://www.sysinternals.com/
Slavek
>
> Ahoj, mam programek, ktery vyuziva komunikaci pres COM port,
> nekdy se mi stava, ze u zakazniku je COM port blokovan jinym
> programem a ja bych potreboval zjisti kterym. Existuje nejaka
> utilitka, nebo nejaky zpusob jak to zjistit?
>
>
> Maximalni pocet znaku na radek v TMemo.
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 3.2.2005 16:08:20
Nelze a ani logicky to vzhledem liti textu (alespon me) nedava smysl.
Jakousi alternativu nabizi zprava EM_SETRECT, kterou se nastavi formatovaci
obdelnik, do ktereho se leje text.
Tk.
> Mam docela hloupou otazku, jestli se da nejak pevne stanovit
> pocet znaku na
> radek, ktere napise uzivatel v Tmemo.
> Hledal jsem v konferenci, googloval a nic jsem nenasel.
>
> Diky. Zvo.
>
>
>
Vytvoreni SP IB z programu
[*] Liska David <david.liska(zv)aac-czech(tec)cz> - 3.2.2005 15:54:19
TIBSQL:
1) Pro skripty musis mit nastaveno ParamCheck=False
2) Lze vykonat jen jeden prikaz najednou, takze "set term" nema smysl.
David
>
> Al jak?
> IBSQL1.SQL.Add('create procedure pom');
> IBSQL1.SQL.Add('as');
> IBSQL1.SQL.Add('begin');
> IBSQL1.SQL.Add('exit');
> IBSQL1.SQL.Add('end');
> IBSQL1.ExecQuery;
> neprojde (vadi mu radek end), dostat tam napriklad "set term"
> je take nepruchodne.
> > pouzij nejlepe TIBSQL (z IBExpress), nebo jinou podobnou z tebou
> > pouzivaneho balicku komponent.
Kdo blokuje COM port?
[*] Dalibor <dalibor(zv)torola(tec)cz> - 3.2.2005 15:52:18
Ahoj, mam programek, ktery vyuziva komunikaci pres COM port, nekdy se mi
stava, ze u zakazniku je COM port blokovan jinym programem a ja bych
potreboval zjisti kterym.
Existuje nejaka utilitka, nebo nejaky zpusob jak to zjistit?Maximalni pocet znaku na radek v TMemo.
[*] OndraG <gebakonf(zv)centrum(tec)cz> - 3.2.2005 15:46:18
MaxLength
OndraG
> Mam docela hloupou otazku, jestli se da nejak pevne stanovit pocet znaku
na
> radek, ktere napise uzivatel v Tmemo.
> Hledal jsem v konferenci, googloval a nic jsem nenasel.
>
> Diky. Zvo.
>Maximalni pocet znaku na radek v TMemo.
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 3.2.2005 15:30:16
Mam docela hloupou otazku, jestli se da nejak pevne stanovit pocet znaku na
radek, ktere napise uzivatel v Tmemo.
Hledal jsem v konferenci, googloval a nic jsem nenasel.
Diky. Zvo.UDP - jak zjistit volny port
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 3.2.2005 15:28:16
> Tak uz jsem to rozlouskl.
> Synapse to pri prijmu uklada do "FRemoteSin", kam se taky posila.
> Tj. musi se pred kazdym poslanim nastavit FRemoteSin, aby byla jistota kam
> to odeslu.
> Po prijmu, pokud tuto info potrebuju, precist.
Pokud prijmes data, tak pouzij metody GetRemoteSinIP a
GetRemoteSinPort pro zjisteni, odkud prisel.
Jinak pokud v synapsi prectes UDP packet, tak pokud vzapeti na stejne
socketu poslel nejaka data, budou automaticky poslany jako odpoved na
prichozi packet.
Pokud chces poslat UDP na jinou adresu nez z jake prisel posledni
precteny packet, pak pouzij metodu Connect pro nastaveni jine cilove
adresy.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Viac ludi na jednom projekte
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 3.2.2005 15:22:15
neco podobneho lze ziskat zminovanym postupem pouzitim skriptu ANT (WANT), konkretne tagu (tag <CvsTagDiff> - http://ant.apache.org/manual/tasksoverview.html) ... vice viz. muj minuly prispevek ...
vystupem je seznam zmenenych souboru za poslednich X dni pripadne zmenenych souboru mezi dvema definovatelnymi tagy (labely). (samozrejme s datumem a casem zmen, jmenem uzivatele atp.)
Milan
D7 Ent., WinXP Prof. SP2
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Cajbik
Subor Datum Verzia Autor Komentar
================================================
Subor1 1.1.2004 06:00 1.1 XXX ...
Subor2 1.2.2004 09:00 1.1 ABC ...
Subor1 2.2.2004 13:00 1.2 YYY ...
to znamena to iste, co je vystupom funkcie History, ale s moznostou
pouzit ju sucasne na viacero suborov (alebo cely adresar) a pripadne
urcit rozsah obdobia. Tym by som ziskal naraz zoznam vsetkych zmien
projektu alebo jeho casti.
UDP - jak zjistit volny port
[*] Petr Smolik <psmolik(zv)fides(tec)cz> - 3.2.2005 15:18:15
> pokud se stale jedna o UDP - Win API pro to ma funkci RecvFrom(),
Tak uz jsem to rozlouskl.
Synapse to pri prijmu uklada do "FRemoteSin", kam se taky posila.
Tj. musi se pred kazdym poslanim nastavit FRemoteSin, aby byla jistota kam
to odeslu.
Po prijmu, pokud tuto info potrebuju, precist.
Dik moc. Dost mi to pomohlo, v sitich se moc nevyznam a kvuli jednoduche
komunikaci by bylo zbytecne to dlouze studovat.
Jeste jednou dik.
Petr
UDP - jak zjistit volny port
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 3.2.2005 14:40:11
Petr Smolik <psmolik(zv)fides(tec)cz> wrote:
>> je-li uz dany port obsazeny, pak funkce WinAPI bind() selze
>> (chybovy
>> kod 10048). Jak se to projevi v tom TNMUDP ovsem netusim (pokud
>> nijak
>> tak bych ty komponenty rovnou poslal nekam)
>
> Tak v TNMUDP se to neprojevi.
>
> Podle rady jsem to zahodil :-)
> a pouzil Synapse.
>
> Vse je OK, mam jen jede dotaz.
> Jak se zjisti odkud (z jake IP a portu) jsou prichozi data?
> Nemohu to nikde najit :-(. Na prijem jsem pouzil "RecvPacket".
>
pokud se stale jedna o UDP - Win API pro to ma funkci RecvFrom(),
ktera vrati i informace o odesilateli packetu. Synapse urcite bude
umoznovat nejak tuto adresu zpristupnit (podival bych se do zdrojaku)
Zdravi
Dalibor Toman
PCFand, sklad
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 3.2.2005 14:38:11
Zdravim
Neni to "ciste" ale da se pouzit Refand, ktery otevre i zaheslovany nebo
uzavreny projekt.
Viktor Marek
viktor(zv)vol(tec)cz
> Mymu tchanovi ve firme umrel o vanocich externi spravce, ktery jim napsal
> (upravil nejakou komercni) aplikaci na sklady. Je to v PC FANDU. Bohuzel
> to
> napsal prasacky a nektere odkazy na soubory a adresare napsal primo do
> programu a nektere vypocitaval z roku. Takze v programu jsou nektere cesty
> *04 a nektere jiz *05. Potreboval bych to alespon rucne opravit (tak jak
> jim to asi kazdy rok opravoval). Nasel jsem soubor sklad.ttt, ve kterym je
> textovy obsah, kde by to slo krasne zmenit, ale ten soubor ma hlavicku s
> CRC a zmenu nejde jednoduse pouzit. Je nejaky editor, ktery vysledek ulozi
> se spravnou hlavickou? Dekuji za odpoved a omlouvam se za OT, ale situace
> je vazna. S pozdravem Vaclav Riha
Viac ludi na jednom projekte
[*] Martin Cajbik <cajbik(zv)sct.sk> - 3.2.2005 14:36:11
Nie je to zle, ale myslel som skor nieco taketo:
Subor Datum Verzia Autor Komentar
================================================
Subor1 1.1.2004 06:00 1.1 XXX ...
Subor2 1.2.2004 09:00 1.1 ABC ...
Subor1 2.2.2004 13:00 1.2 YYY ...
Subor3 1.3.2004 08:00 1.1 XXX ...
Subor1 2.3.2004 11:00 1.3 ABC ...
...
to znamena to iste, co je vystupom funkcie History, ale s moznostou
pouzit ju sucasne na viacero suborov (alebo cely adresar) a pripadne
urcit rozsah obdobia. Tym by som ziskal naraz zoznam vsetkych zmien
projektu alebo jeho casti.
--
Martin Cajbik
SCT s.r.o. Kosice
Radek Cervinka wrote:
> Martin Cajbik wrote:
>
>>Zdravim,
>>uz dlhsi cas pouzivame taktiez CVS (cez TortoiseCVS klienta) a v
>>podstate jedina vec, ktora mi tam chyba je moznost zobrazenia historie
>>viacerych suborov alebo celeho adresara naraz. Ak by niekto o nejakej
>>moznosti vedel (pripadne aj pomocou ineho klienta), bol by som velmi
>>vdacny.
>>
> myslis neco jako viewcvs?
>
> k prohlednuti online treba zde
>
> http://www.freepascal.org/cgi-bin/viewcvs.cgi/fpc/fcl/unix/
>
>
> Radek
Vytvoreni SP IB z programu
[*] Kalhous <kalhous(zv)eu(tec)cz> - 3.2.2005 14:34:10
Al jak?
IBSQL1.SQL.Add('create procedure pom');
IBSQL1.SQL.Add('as');
IBSQL1.SQL.Add('begin');
IBSQL1.SQL.Add('exit');
IBSQL1.SQL.Add('end');
IBSQL1.ExecQuery;
neprojde (vadi mu radek end), dostat tam napriklad "set term" je take
nepruchodne.
> pouzij nejlepe TIBSQL (z IBExpress), nebo jinou podobnou z tebou
> pouzivaneho balicku komponent.UDP - jak zjistit volny port
[*] Petr Smolik <psmolik(zv)fides(tec)cz> - 3.2.2005 14:16:09
> je-li uz dany port obsazeny, pak funkce WinAPI bind() selze (chybovy
> kod 10048). Jak se to projevi v tom TNMUDP ovsem netusim (pokud nijak
> tak bych ty komponenty rovnou poslal nekam)
Tak v TNMUDP se to neprojevi.
Podle rady jsem to zahodil :-)
a pouzil Synapse.
Vse je OK, mam jen jede dotaz.
Jak se zjisti odkud (z jake IP a portu) jsou prichozi data?
Nemohu to nikde najit :-(. Na prijem jsem pouzil "RecvPacket".
Dik
Petr
OT: aplikacne nastavit home url.
[*] p.sestak(zv)corag.sk - 3.2.2005 12:44:02
Zdravim,
zaujimalo by ma ako sa da vo windows programatorsky nastavit domovska url
pre IE.
Len zapisom do registry alebo je na to nejaka API funkcia?
Pavol Sestak
ICQ: 20989081
rychlost sql dotazu, strategie
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 3.2.2005 12:09:55
Ahoj,
1.Neznam SAP, ale standardne by mel
count(*) spocitat vsechny zaznamy v tabulce,
pokud je provedeno count(id) pak pouze pro ID <> NULL.
Pokud je id PK pak, ale serveru staci podivat se na klic, coz byva mnohem rychlejci.
Domnivam se, ze nakladovy stroj si dotaz takto upravil na zaklade podminky id > 0 (splni pouze id <> NULL).
2. Ano SQL to umi staci v QA Query ->Show Executive Plan
Pavel
> From: tomas krecek [mailto:tomaskrecek(zv)seznam(tec)cz]
> rad bych se zeptal na par veci s DB. pouzivam momentalne
> SAP(MAX DB). Rad bych se zeptal jak nejrychleji zjistit pocet
> zaznamu v tabulce. jde mi o to ze na sapu existuje prikaz
> EXPLAIN (vypisuje strategie provadeni dotazu). zkousel jsem
> nasledujici dotazy :
>
> explain select count(*) from tabulka - v tomto pripade
> provadi databaze table scan
> explain select count(*) from tabulka where id >0 - v tomto
> pripade se table scan neprovadi.
>
> pripada mi teda ze druhy prikaz je rychlejsi protoze se
> uplatni range condition for key column. (id je klicovy sloupec).
>
> je ma domenka o rychlosti spravna? nebo muzu jeste nejakym
> rychlejsim zpusobem zjistit pocet zaznamu?
>
> druhy muj dotaz je jestli i na MS SQL 2000 existuje neco jako explain.
>
------------------------------------------------------------------------------
INFORMACE PRO PRIJEMCE:
Ceska exportni banka, a.s. jako odesilatel e-mailove zpravy Vas upozornuje na
skutecnost, ze tato e-mailova zprava a jakekoli soubory k ni pripojene mohou
obsahovat interni informace Ceske exportni banky, a.s., pripadne informace
chranene v souladu s prislusnymi pravnimi predpisy.
Pokud nejste osobou, ktere je tato e-mailova zprava urcena, tj. adresatem,
pripadne osobou poverenou k jejimu doruceni adresatovi, informujeme Vas timto,
ze jeji dalsi sireni jakoukoli formou nebo jeji zverejneni je prisne zakazano.
Pokud jste tuto e-mailovou zpravu obdrzel/a nedopatrenim, prosime oznamte tuto
skutecnost neprodlene odesilateli, tj. Ceske exportni bance, a.s. a pote ji
vymazte z Vaseho systemu.
Ceska exportni banka, a.s. Vas dale upozornuje, ze pri prenosu e-mailovych
zprav muze dojit k zasahu neopravnene osoby. E-mailove zpravy mohou byt
neopravnenou osobou zejmena precteny, zadrzeny, pozmeneny, ztraceny, zniceny
ci mohou obsahovat viry.
DISCLAIMER
Czech Export Bank, a.s. as a sender of this e-mail message draws your
attention to the fact that this message, including any attachments can contain
confidential internal information, protected in accordance with relevant
legislation.
If you are neither the intended recipient of this message nor a person
authorized to deliver it to the recipient, please be herewith informed that
any further dissemination or making it public is strictly prohibited.
If you have received this e-mail message by error, please notify the sender
with no delay and then delete the message from your system.
Czech Export Bank, a.s. is further warning you that during the transmission,
e-mail messages can become subject to interference by unauthorized persons.
By an unauthorized person, e-mail messages can be especially read, withheld,
modified, lost, destroyed or can contain viruses.
OT: PCFand, sklad
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 3.2.2005 11:53:53
Mymu tchanovi ve firme umrel o vanocich externi spravce, ktery jim napsal
(upravil nejakou komercni) aplikaci na sklady. Je to v PC FANDU. Bohuzel to
napsal prasacky a nektere odkazy na soubory a adresare napsal primo do
programu a nektere vypocitaval z roku. Takze v programu jsou nektere cesty
*04 a nektere jiz *05. Potreboval bych to alespon rucne opravit (tak jak
jim to asi kazdy rok opravoval). Nasel jsem soubor sklad.ttt, ve kterym je
textovy obsah, kde by to slo krasne zmenit, ale ten soubor ma hlavicku s
CRC a zmenu nejde jednoduse pouzit. Je nejaky editor, ktery vysledek ulozi
se spravnou hlavickou? Dekuji za odpoved a omlouvam se za OT, ale situace
je vazna. S pozdravem Vaclav Riha
Vice retezcova hodnota
[*] konference(zv)sales(tec)cz - 3.2.2005 11:03:50
On Behalf Of Petr Berek
>
....
> Kdy~ jsem zkouael zapsat do souboru All User\Application
> Data\ tak jsem
> tam mohl zapsta i jako Ghost. Tak prosim o radu, co s tim, diky
Ahoj.
Nenech se mylit, ...\All User\Application Data\ ma standardne uzivatel s
pravy USER POUZE pro cteni.
U Tebe to pravdepodobne jde proto ze
a) system jede na FAT a ne na NTFS
b) system sice jede na NTFS, ale system byl predinstalovan
(notebooky,znackove PC) tim zpusobem, ze nejprve po volbe jazyka byl
instalovan na FAT a po te automaticky preveden na NTFS. Tam proste prava
nastavena nejsou -o(: (plati urcite pro W2000 u XP nevim, ale od te doby vse
instaluji z klasicky s CD a na priblblou predinstalaci kaslu)
Ludek Vypusteni do win. stisk klavesy
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 3.2.2005 11:01:50
Frantisek Mlcoch wrote:
> Jak ma program do windows vypustit (emulovat) informaci o stisku klavesy
> (klaves) jako kdyby prisli z klavesnice.
> Uvital bych kratky prikladek.
Takovy keyb_event bude asi to co hledas.
Priklad je v helpu (snad).
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Vypusteni do win. stisk klavesy
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 3.2.2005 10:57:49
Jak ma program do windows vypustit (emulovat) informaci o stisku klavesy
(klaves) jako kdyby prisli z klavesnice.
Uvital bych kratky prikladek.
Diky, F.
Viac ludi na jednom projekte
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 3.2.2005 10:53:49
> Jozko vytvori z projektru 1 cast, ktora sa sklada z niekolkych formov +
> nejake datove moduly + komponenty
> , na to naviaze zdroje + funkcie a procedury.
> Janko dorobi druhu cast, ktora sa sklada tiez z niekolkych formov + nejake
> datove moduly + komponenty + funkcie a procedury.
> Stretnu sa a teraz to chcu z toho urobit jednu apl.. Prezenu to cez nejaky
> soft, ktory to da dokopy. - ak to tak ide.
> Teda vysledok by mal byt dajme tomu MDI aplikacia s jednym main formom atd.
> Alebo ist cestou:
> Vyrobim uzivatelske prostredie, vratane komponent, vsetkych formov a az
> potom sa delime o pracu ?
> To by mozno tiez malo svoju logiku.
No ja jelikoz pouzivam FreeVCS tak to automaticky zamyka soubory a
zaroven je oznaci jako readonly, takze kdyz zjistim ze je nejaky soubor
RO (a to zjistim rychle) tak se ho pokusim vytahnout z archivu (FreeVCS
ma exporte pro Delphi, take proste jen v menu Delphi pribude dalsi
polozka a dam chcekout), pokud ma soubor nekdo vytahnuty = pracuje na
nem (coz uvidim) , tak se s nim domluvim.
Zaroven s vytahnutim FreeVCS soubor z aktualizuje na disku a v IDE takze
vzdy pracuji nad aktualni verzi.
Naprosto mi to tak vyhovuju a pozuivam to i kdyz pracuji sam (muzu se
vracet, delat porovnani verzi atd.).
Jinak se mi vsechny okna dedi takze pak kazdy pracuje na svem okne,
takze v pohode.
Problem je u nejakych unitu ktere jsou casto vyuzivany (jako napr.
hlavni formular nebo unit se skladem SQL dotazu), kde zalezi pak na
discipline, tj. udelam zmenu a vratim soubor do archivu - odemknu ho
a tim samozrejme distribuuji zmeny ostatnim a nedrzim si soubor zamknuty
vecne.
any Q?
Radek
rychlost sql dotazu, strategie
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 3.2.2005 10:41:48
Neznam SAPDB, ale pokud se neuplatni range (tj. pokud budes pocitat
vsechny zaznamy), tak situaci pouze zhorsis, jelikoz jeste navic
musis prochazet index.
Udelej si vykonostni testy.
Slavek
> explain select count(*) from tabulka - v tomto pripade
> provadi databaze table scan explain select count(*) from
> tabulka where id >0 - v tomto pripade se table scan neprovadi.
> rychlost sql dotazu, strategie
[*] tomas krecek <tomaskrecek(zv)seznam(tec)cz> - 3.2.2005 10:31:47
Zdravim,
rad bych se zeptal na par veci s DB. pouzivam momentalne SAP(MAX DB). Rad bych se zeptal jak nejrychleji zjistit pocet zaznamu v tabulce. jde mi o to ze na sapu existuje prikaz EXPLAIN (vypisuje strategie provadeni dotazu). zkousel jsem nasledujici dotazy :
explain select count(*) from tabulka - v tomto pripade provadi databaze table scan
explain select count(*) from tabulka where id >0 - v tomto pripade se table scan neprovadi.
pripada mi teda ze druhy prikaz je rychlejsi protoze se uplatni range condition for key column. (id je klicovy sloupec).
je ma domenka o rychlosti spravna? nebo muzu jeste nejakym rychlejsim zpusobem zjistit pocet zaznamu?
druhy muj dotaz je jestli i na MS SQL 2000 existuje neco jako explain.
dekuji
Viac ludi na jednom projekte
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 3.2.2005 10:17:45
Doporucuji to zkusit v praxi, ono neexistuje nejake vseobecne
reseni, vzdy zalezi na projektu a na lidech, podle toho
se pak voli jak se bude projekt ridit.
Zrovna tvoje uvedene prikladu jsou prakticky bezkolizni, tj.
zadna skutecna kolize nevznikne, prace se synchronizaci
je v tomto pripade minimalni.
Takze si vem treba CVS (pouzivam) a zkus to.
Slavek
> Jozko vytvori z projektru 1 cast, ktora sa sklada z
> niekolkych formov +
> nejake datove moduly + komponenty
> , na to naviaze zdroje + funkcie a procedury.
> Janko dorobi druhu cast, ktora sa sklada tiez z niekolkych
> formov + nejake
> datove moduly + komponenty + funkcie a procedury.
> Stretnu sa a teraz to chcu z toho urobit jednu apl.. Prezenu
> to cez nejaky
> soft, ktory to da dokopy. - ak to tak ide.
> Teda vysledok by mal byt dajme tomu MDI aplikacia s jednym
> main formom atd. Alebo ist cestou: Vyrobim uzivatelske
> prostredie, vratane komponent, vsetkych formov a az
> potom sa delime o pracu ?Viac ludi na jednom projekte
[*] Fabik Milan <fabik(zv)kinekus.sk> - 3.2.2005 10:07:44
Ono v prvom rade je dolezity system prace, ktory nepoznam.
Z toho co tu prislo mi vychadza, ze ak chcem obist dll, tak riesenim je
"doupravovavat" (strasne slovo) neustale projekt zmenami. To este chapem.
Ale realny priklad:
Jozko vytvori z projektru 1 cast, ktora sa sklada z niekolkych formov +
nejake datove moduly + komponenty
, na to naviaze zdroje + funkcie a procedury.
Janko dorobi druhu cast, ktora sa sklada tiez z niekolkych formov + nejake
datove moduly + komponenty + funkcie a procedury.
Stretnu sa a teraz to chcu z toho urobit jednu apl.. Prezenu to cez nejaky
soft, ktory to da dokopy. - ak to tak ide.
Teda vysledok by mal byt dajme tomu MDI aplikacia s jednym main formom atd.
Alebo ist cestou:
Vyrobim uzivatelske prostredie, vratane komponent, vsetkych formov a az
potom sa delime o pracu ?
To by mozno tiez malo svoju logiku.
A toto neviem ako riesite.
Dik.
MF
> nevim, do jake miry by ti to pomohlo, ale ANT (resp. WANT) skripty
> obsahuji nastroj (tag <CvsTagDiff> -
> http://ant.apache.org/manual/tasksoverview.html) pro zobrazovani rozdilu v
> nebinarnich souborech za poslednich X dni, kde X je parametrizovatelne,
> pripadne jako rozdil mezi dvema labely (tagy) - ma to zpravidla XML
> formatovany vystup.
>
> Pro Delphi muzes pouzit taky WANT (http://sourceforge.net/projects/want/)
>Viac ludi na jednom projekte
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 3.2.2005 09:39:42
Martin Cajbik wrote:
> Zdravim,
> uz dlhsi cas pouzivame taktiez CVS (cez TortoiseCVS klienta) a v
> podstate jedina vec, ktora mi tam chyba je moznost zobrazenia historie
> viacerych suborov alebo celeho adresara naraz. Ak by niekto o nejakej
> moznosti vedel (pripadne aj pomocou ineho klienta), bol by som velmi
> vdacny.
>
myslis neco jako viewcvs?
k prohlednuti online treba zde
http://www.freepascal.org/cgi-bin/viewcvs.cgi/fpc/fcl/unix/
Radek
Viac ludi na jednom projekte
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 3.2.2005 09:23:41
nevim, do jake miry by ti to pomohlo, ale ANT (resp. WANT) skripty obsahuji nastroj (tag <CvsTagDiff> - http://ant.apache.org/manual/tasksoverview.html) pro zobrazovani rozdilu v nebinarnich souborech za poslednich X dni, kde X je parametrizovatelne, pripadne jako rozdil mezi dvema labely (tagy) - ma to zpravidla XML formatovany vystup.
Pro Delphi muzes pouzit taky WANT (http://sourceforge.net/projects/want/)
Milan
D7 Ent., WinXP Prof. SP2
-----Original Message-----
uz dlhsi cas pouzivame taktiez CVS (cez TortoiseCVS klienta) a v podstate jedina vec, ktora mi tam chyba je moznost zobrazenia historie
viacerych suborov alebo celeho adresara naraz. Ak by niekto o nejakej moznosti vedel (pripadne aj pomocou ineho klienta), bol by som velmi
vdacny.
Martin Cajbik
Ulozeni upravenych dat v DB Mas/Det
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 3.2.2005 09:13:40
Dobry den.
Jak spravne obslouzit situaci, kdy pri vytvoreni formulare vytvorim TMP tabulku do ktere nakopiruji polozky z tabulky DETAIL.
Po uprave techto polozek je potrebuji ulozit a nahradit tak stavajici polozky.
Zatim to delam takto viz. prilozeny kod, ale je to bezpecne nebo to mam delat jinak?
DB FlashFiler.
Dik.
Petr Fiser.
procedure TOrderForm.SaveBtnClick(Sender: TObject);
var
I: Integer;
begin
//... uloz vsechny polozky zakazky
DataMod.ItemsTable.Open;
if DataMod.ItemsTable.Database.TryStartTransaction then begin
try
//... oprav cislovani polozek
Button3.Enabled := FALSE;
DataMod.ItemsTmpTable.DisableControls;
try
DataMod.ItemsTmpTable.First;
I := 1;
while not DataMod.ItemsTmpTable.EOF do begin
if DataMod.ItemsTmpTableId.Value <> I then begin
DataMod.ItemsTmpTable.Edit;
DataMod.ItemsTmpTableId.Value := I;
DataMod.ItemsTmpTable.Post;
end;
DataMod.ItemsTmpTable.Next;
Inc(I);
end;
finally
DataMod.ItemsTmpTable.EnableControls;
Button3.Enabled := TRUE;
end;
DataMod.ItemsTmpTable.CheckBrowseMode;
DataMod.ItemsTable.DeleteRecords;
DataMod.ItemsTable.CopyRecords(DataMod.ItemsTmpTable, FALSE);
DataMod.ItemsTable.Database.Commit;
//... uloz zmeny v zakazce
DataMod.OrdersTable.CheckBrowseMode;
FUpdate := FALSE;
except
DataMod.ItemsTable.Database.Rollback;
raise;
end;
end;
ModalResult := mrOk;
end;
Vytvoreni SP IB z programu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 3.2.2005 08:55:38
Ahoj,
pouzij nejlepe TIBSQL (z IBExpress), nebo jinou podobnou z tebou
pouzivaneho balicku komponent.
Peca
Trochu OT dotaz do DB
[*] Zdenek Hanus <hanus(zv)icsoftware(tec)cz> - 3.2.2005 08:37:34
Nahrad HEAVING => HAVING
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Subject: Re: Trochu OT dotaz do DB
> Podivej se na prikaz select, agregacni funkce, group by a heaving.
> Melo by to byt nejak takto:
> SELECT COUNT(*), honota FROM tt
> GROUP BY hodnota
> HEAVING COUNT(*)=pocet
>
> Ale muzou tam byt chyby, heaving jsem hodne dlouho nepouzil.
>
> Slavek
>
> > Zdravim
Viac ludi na jednom projekte
[*] Martin Cajbik <cajbik(zv)sct.sk> - 3.2.2005 08:35:34
Zdravim,
uz dlhsi cas pouzivame taktiez CVS (cez TortoiseCVS klienta) a v
podstate jedina vec, ktora mi tam chyba je moznost zobrazenia historie
viacerych suborov alebo celeho adresara naraz. Ak by niekto o nejakej
moznosti vedel (pripadne aj pomocou ineho klienta), bol by som velmi
vdacny.
--
Martin Cajbik
SCT s.r.o. Kosice
Skalsky Milan wrote:
> az najdes dokonaly program, dej vedet ... :) ... navic ty mouchy bych docela rad znal ... nevim o zadne, ktera by se projevovala pri korektnim pristupu ze strany uzivatele.
> V kazdem pripade pokud se s CVS zachazi rozume, dodrzuji se vsechna pravidla a spravne se resi konflikty, pak v tom nevidim sebemensi problem. Delalo nas na stejnych zdrojacich (cca 6500 trid a unit) cca 40 vyvojaru v ruznych tymech ... a nebyl sebemensi problem.
> Je dobre si poradne rozmyslet system Labelu, branches atp. a radne vsechny uzivatele poucit o spravnem pouzivani - pak neni duvod se obavat nejakeho neduhu. ... ale to je jako s jakymkoli jinym SW.
>
> jsou to jen me osobni zkusenosti, mozna ma nekdo jine a horsi (nebo lepsi) ... v kazdem pripade z free SW se mi tento zda jako jeden z nejlepe vyhovujicich ...
> ... navic s nim umi spolupracovat skripty z ANT (pro Javu) pripadne WANT (pro Delphi), tudiz se z toho stava naprosto automaticky nastroj pro buildovani a testovani aplikaci ... coz je dalsi velike + ... .
>
> Milan
>
> D7 Ent., WinXP SP2
>
Vytvoreni SP IB z programu
[*] Kalhous <kalhous(zv)eu(tec)cz> - 3.2.2005 08:07:30
Potreboval bych z programu (D7) zapsat na sql server IB (respektive FB) ulozenou proceduru, pouzit ji a zase smazat. Jakou z mnoha komponent IB na to pouzit a jak? Dik.
Z.Kalhous
ToWare s.r.o.
Trochu OT dotaz do DB
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 2.2.2005 23:12:54
Podivej se na prikaz select, agregacni funkce, group by a heaving.
Melo by to byt nejak takto:
SELECT COUNT(*), honota FROM tt
GROUP BY hodnota
HEAVING COUNT(*)=pocet
Ale muzou tam byt chyby, heaving jsem hodne dlouho nepouzil.
Slavek
> Zdravim
>
> Je mozne urobit dotaz do DB Access, ktory by mi vratil len
> zaznamy kde pocet rovankych hodnot v stlpci je rovny urcitemu
> cislu, ktore zadam. Ak ano, tak ako ?
>
>
>
> Dik Ivan
>
>
> Trochu OT dotaz do DB
[*] ivan <hraskoi(zv)stonline.sk> - 2.2.2005 22:32:51
Zdravim
Je mozne urobit dotaz do DB Access, ktory by mi vratil len zaznamy kde pocet
rovankych hodnot v stlpci je rovny urcitemu cislu, ktore zadam. Ak ano, tak
ako ?
Dik Ivan
Vice retezcova hodnota
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 2.2.2005 21:54:48
> Vracim se jeate( k tomuto tematu, proto~e jsem tuto
> problematiku zac(al
> zpracovavat a~ nyni.
> Nastal problem s tim, ~e toto: CSIDL_COMMON_APPDATA mi delphi
> nebere. Kdy~ jsem zkouael zapsat do souboru All
> User\Application Data\ tak jsem
> tam mohl zapsta i jako Ghost. Tak prosim o radu, co s tim, diky
Nevim presne na co se ptas. Chybi-li ti konstanta, pak:
const CSIDL_COMMON_APPDATA = $0023;
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Vice retezcova hodnota
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 2.2.2005 21:46:43
Vracim se jeate( k tomuto tematu, proto~e jsem tuto problematiku zac(al
zpracovavat a~ nyni.
Nastal problem s tim, ~e toto: CSIDL_COMMON_APPDATA mi delphi nebere.
Kdy~ jsem zkouael zapsat do souboru All User\Application Data\ tak jsem
tam mohl zapsta i jako Ghost. Tak prosim o radu, co s tim, diky
UDP - jak zjistit volny port
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.2.2005 17:26:24
Petr Smolik <psmolik(zv)fides(tec)cz> wrote:
> Zdravim,
> na UDP komunikaci jsem pouzil TNMUDP. Vse funguje (odeslu i prijmu
> data).
>
> Jen mi neni jasne jak zjistit, ze na danem UDP portu uz nekdo
> nevisi?
>
> Pokud uz port pouziva ("nasloucha") jiny program, nedojdou mi zadna
> data, ale ani nikde zadna chyba nebo detekce.
>
> Muze mi nekdo v kratkosti napsat jak to zjistit?
je-li uz dany port obsazeny, pak funkce WinAPI bind() selze (chybovy
kod 10048). Jak se to projevi v tom TNMUDP ovsem netusim (pokud nijak
tak bych ty komponenty rovnou poslal nekam)
Zdravi
Dalibor Toman
UTF-8 a XML
[*] Petr Vones <konference(zv)petrvones(tec)net> - 2.2.2005 17:16:22
From: "Pavel P" <pavel(zv)tvsp.net>
> Mate nekdo typ na komponentu ktera by umela generovat XML soubor s UTF-8
> kodovanim znaku? Dekuju Pavel P.
IXMLDocument primo v Delphi nebo pro Delphi < 6 si naimportovat MSXML parser.
Petr Vones
UTF-8 a XML
[*] Pavel P <pavel(zv)tvsp(tec)net> - 2.2.2005 17:04:20
Mate nekdo typ na komponentu ktera by umela generovat XML soubor s UTF-8 kodovanim znaku? Dekuju Pavel P.UDP - jak zjistit volny port
[*] Petr Smolik <psmolik(zv)fides(tec)cz> - 2.2.2005 16:22:16
Zdravim,
na UDP komunikaci jsem pouzil TNMUDP. Vse funguje (odeslu i prijmu data).
Jen mi neni jasne jak zjistit, ze na danem UDP portu uz nekdo nevisi?
Pokud uz port pouziva ("nasloucha") jiny program, nedojdou mi zadna data,
ale ani nikde zadna chyba nebo detekce.
Muze mi nekdo v kratkosti napsat jak to zjistit?
Diiik
Petr
Pomaly Append/Post v ADO
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 2.2.2005 13:50:03
Zdravim,
pred TADOConnection a TADOTable pristupuji k datum z MS Access databaze.
Mam jednu master tabulku a k ni detail tabulku (tato obsahuje nekolik
lookup poli z jine tabulky, kde jsou nektera zase look up).
Vlozeni (samotne volani metody append bez eventu) trva neco pres
sekundu, podobne dlouho trva i post.
Nevite, co by mohlo zpusobovat tuto pomalost?
Diky za rady,
Lukas
KeyPress - daji se preddefinovat urcite klavesy pr
[*] Petr Vones <konference(zv)petrvones(tec)net> - 2.2.2005 13:42:02
From: "Ing. Jiri Sokol" <js-delphi(zv)email(tec)cz>
> No a tohle musim psat na vsech obsluhach, u vsech formu, frameu atd. kde
Nemusis. Staci to v aplikaci globalne realizovat pres filtrovani zprav.
Petr Vones
KeyPress - daji se preddefinovat urcite klavesy pr
[*] Peter Ondras <konfery(zv)pse.sk> - 2.2.2005 13:34:01
Nemusel by to opravovat na 100 miestach ak by to mal napr. ako funkciu v
jednom unite. V pripade chyby staci opravit len 1x tu funkciu. Po
preinstalovani Delphi nemusim instalovat tonu dalsich komponent pre
taketo banalitky. Tak to pouzivam ja na datumove a casove polia v TEdit
(pred spustenim zostav).
> -----Original Message-----
> Predstav
> si, ze udelas nejakou chybu v tom tvem reseni na formulari, a pak to
budes
> opravovat na 100 mistech, brr. Je to soucasti ucelenejsiho
(nedodelaneho)KeyPress - daji se preddefinovat urcite klavesy pr
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 2.2.2005 12:53:59
> Na zacatku
> dotazu jsem rekl, ze bych rad mel neco univerzalniho, co bych
> mohl pouzit na vsechny komponenty, do kterych bude uzivatel
> neco vepisovat a abych mohl omezit uzivatelem vkladane znaky.
> Asi se dohodneme, ze Edit neni jediny prvek pro vlozeni
> nejakeho znaku z klavesnice, ze...
> Potom delat vsechny komponenty znova... override metody
> keypress... no nezda se mi to...
Ano to je pravda. Trebaze mam hotovy ten TNumberEdit, v nejake aplikaci jsem
stejne chovani potreboval v comboboxu. Otazka: Mam si napsat i ten
TNumberComboBox nebo mi postaci jen obsluhy udalosti? Je vzdy treba
rozmyslet, kolik jakych controlu vyuziji v kolika aplikacich. Ten
TNumberEdit pouzivam vsude kde to jde, kdezto puvodni TCombobox s obsluhama
udalosti jsem zatim pouzil v 1 aplikaci dvakrat. Kdyz ho budu chtit jeste
nekdy pouzit a treba vicekrat, asi si ten TNumberCombobox napisu. Pak budu
mit ovsem 2*stejny (nebo hodne podobny) kod v 1 aplikaci, to uz se ale
dostavame k jednomu z nedostatku OOP...
Tk.
OT: Nabidka kratkodobe prace
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 2.2.2005 12:27:56
Ahoj,
potreboval bych programatora na subdodavku v rozsahu asi 20 hodin se
znalost FB1.5. Platba pausalne ihned po dokonceni projektu. Zivnostensky
list vyhodou.
Sve nabidky prosim posilejte na soukromy email k.pecinka(zv)ordis(tec)cz.
Diky za vase nabidky.
S pozdravem
Karel Pecinka KeyPress - daji se preddefinovat urcite klavesy pr
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 2.2.2005 12:27:56
> Sice asi narazim, ale dovolim si nesouhlasit. Na zacatku dotazu jsem
> rekl, ze bych rad mel neco univerzalniho, co bych mohl pouzit na
Hmm, to tedy narazis :)). Ja napr. pouzivam potomka TlabeledEdit, ktery ma
navic vlastnost DataType: TFieldType, kde mam osetreny zatim typ ftInteger,
ftdate a par dalsich, prepsane metody KeyDown a KeyPress, kde resim v
zavislosti na typu dat vsechny mozne klavesy. A protoze to chci nekdy pouzit
treba i u Potomka TDBEdit, tak mam nejakou spolecnou unitu CtrlUtils, kde
si resim spolecne veci pro ruzne komponenty. Napr zjednodusene zadavani
datumu (+10 Enter=dnes+10dni apod.) . Napises to jednou a je to. Predstav
si, ze udelas nejakou chybu v tom tvem reseni na formulari, a pak to budes
opravovat na 100 mistech, brr. Je to soucasti ucelenejsiho (nedodelaneho)
frameworku, samostatne by ti to nechodilo, takze jen nejaky fragment:
Takto nejak:
case FDataType of
ftSmallint,
ftInteger : begin // celociselny typ
FDecPoint:=false;
NumericKeyDown(Key); //tohle muze byt nekde ve
spolecne unite
end;
ftCurrency,
ftFloat : begin // mozno zadavat des. tecku
FDecPoint:=true;
NumericKeyDown(Key);
end;
ftDate: DateKeyDown(Key);
ftDateTime: DateTimeKeyDown(Key);
ftTime: TimeKeyDown(Key, False);
fttimestamp: TimeKeyDown(Key, True);
end;
---------------------------------
HTH, MB