Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 29.10.2005 13:45:41
Pres to XML to vypada krasne. Ale rozhodl jsem se jinak. Pouziju DB
MySql a udelam to jen jako off-line. Stejne vetsina ucitelu nema ve
tride pripojeni k siti.
>Pokud od dob Komenskeho stacil write-once-read-many
>notysek s nalinkovanyma kolonkama (zabezpeceny zasunutim do kapsy),
K tomu to asi tolik: Mam uz aplikaci k pouziti na netu, pomoci csv a
ini, a behem mesice mam pres 1000 stazeni a je dost takovych, co si to
pochvaluje.
Petr
Replikace ADO MDB
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 29.10.2005 10:43:03
Zdravim all,
Jdu na zvedy. Nevite nekdo o utilitce-komponente, ktera by provedla import (update) z druhe tabulky (stejne struktury) dle jedinecneho klice, pri schode dle volby aktualizovala zaznam nebo preskakovala, jinak pripojovala?
(MDB - ADO - D7)
Ja jsem se pri vymejsleni procedurky "zasmyckoval".
V prikladech JEDY jsem nasel zajimavy priklad na import i rozdilne struktury, ale pomoci batchmove (BDE) a navic neresici duplicitu klice.
DIK DIK DIK za usetreny cas
Prijemny zbytek dne
Vasek Zaruba
8^)
Zakazanie manipulacie s USES
[*] Roland Turcan <konf(zv)rotursoft.sk> - 29.10.2005 10:36:38
Hello All!
Mam dost zdrojakov ktore maj uses pisane stylom
USES
{$IFDEF WIN32}
Dialogs,
{$ELSE}
QDialogs,
{$ENDIF}
Classes;
Lenze dost casto sa stava, ze sa Kylix alebo Delphi rozhodne tam nieco
pridat, co odhadol, ze tam nie je a aj napriek tomu, ze tam nim
doplnene samozrejme su a nevyse casto to prida do sekcie pre druhy
prekladac. Mate s takymto spravanim nejake skusenosti?
Je mozne tuto vlastnost IDE nejako vypnut?
Dakujem.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Databaze, nebo textovy soubor?
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 29.10.2005 10:04:08
Dalsi krizek po funuse: Pokud od dob Komenskeho stacil write-once-read-many
notysek s nalinkovanyma kolonkama (zabezpeceny zasunutim do kapsy), nevidim
duvod, proc dnes pouzit neco slozitejsiho nez spreadsheet, abych nemusel
rucne pocitat soucty a prumery pro svych sedm tisic zaku (jo ono jich je jen
dvacet?), pokud chci jit s dobou a dokazat, ze s pocitacem to jde taky a
bude to jen o malo pomalejsi nez bez nej.
K danemu ucelu - uspesne napsat stredoskolskou rocnikovou praci - aparat txt
resp ini souboru bohate staci. XML, proc ne. Rozumny kompromis mezi txt a
tezkotonazni databazi, kdyz uz chce nekdo mermomoci programovat. Ale jinak -
kazdy problem se da zeslozitovat ad libitum a michani kafe lzici od bagru je
taky fajn zabava. Jarda.
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
Subject: Re: Databaze, nebo textovy soubor?>> Dekuji za diskusi, myslim, ze v tom mam i docela jasno. Vykaslu se asi
>> na on-line verzi a na lokale spustim nejaky DB server, nebo to necham
>> pomoci csv a kvuli bezpecnosti je budu sifrovat.
>> Nemusi to byt zase tak naslapaene :-)
>
> Ja prichazim do diskuse s krizkem po funuse, protoze jsem drive nemel cas
> se zapojit.
> Tak jenom jedna poznamka:
>
> Pokud by ses rozhodl pro textaky, pak jeste jednou vezmi v uvahu prispevek
> Petra Vonese: TClientDataSet a XML.
Databaze, nebo textovy soubor?
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 29.10.2005 09:59:42
> > jses schopen v nem reprezentovat vazbu master-detail, takze
> > "faktura + jeji radky" budou v jednom souboru lze jit i do
> > vetsi "hloubky" provazani informace
> Tak toto ma konkretne zaujima, malicky prikladik na objasnenie knowhow
> by bodol
Dobra, treba takhle:
a)
Programove (je to tabulka osob, u kazde je seznam deti)
procedure TForm1.Button3Click(Sender: TObject);
var F:TFieldDef;
begin
with ClientDataSet1 do begin
Close;
FieldDefs.Add('ID',ftInteger);
FieldDefs.Add('Jmeno',ftString,20);
FieldDefs.Add('Deti',ftDataSet,20);
F:=FieldDefs[2];
with F.AddChild do begin
Name := 'iid';
DataType := ftInteger;
end;
with F.AddChild do begin
Name := 'Jmeno';
DataType := ftString;
Size:=20;
end;
IndexDefs.Add('','ID',[ixPrimary,ixUnique]);
CreateDataSet;
end;
end;
b)
Z databaze
Na strane "aplikacniho serveru" vytvoris master-detail vazbu.
(nemusi to byt zrovna aplikacni server, mluvim o strukture "pod" TDatasetProvider)
Kazda z technologii (BDE, ADO, IBX, dbExpress) to ma trochu jinak
(MasterSource, MasterFields x DataSource, select where).
(v nasem pripade bychom predpokladali tabulky OSOBA a DETI)
Jamile potom pres TDataSetProvider pripojis TClientDataSet, bude uz automaticky obsahovat TDataSetField "DETI".
Deti se daji rozbalit a editovat primo v gridu pro OSOBA, to je ale prakticky nepoutitelne.
Je treba pridat dalsi TClientDataSet, ktery ovsem uz nepripojujes pres nejaky TDataSetProvider k databazi, jenom ho pripojis pres property DataSetField na master dataset pro osoby.
Zachovej nasemu skolicimu stredisku prizen.
Tohle je jenom vysek, o TClientDataSet (tenky klient) a jeho napojeni na databazi treba pres COM (IAppServer, IProviderSupport) se da vypravet v pohode nekolik dni.
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, 776 347 735, 493 792 569
====================================
Databaze, nebo textovy soubor?
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 29.10.2005 09:41:08
Jan Sebelik wrote:
> Pokud by ses rozhodl pro textaky, pak jeste jednou vezmi v uvahu
> prispevek Petra Vonese: TClientDataSet a XML. Oproti CSV to ma mnoho
> vyhod, napr.
Ja bych pridal jeste jednu vyznamnou vyhodu XML a to jsou moznosti,
ktere nabizi technologie XSLT pro prezentaci obsahu XML souboru.
pf
Programovani pro Windows CE
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 29.10.2005 09:26:35
----- Original Message -----
From: "vlko" <vlko(zv)zilina.net>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 29, 2005 9:20 AM
Subject: Re: Programovani pro Windows CE
> On Tue, 29 Nov 2005 08:42:23 +0100, Karel Rys <delphi(zv)zas-me(tec)cz> wrote:
>
>> Hezke dopoledne,
>>
>> ceka me psani aplikace pro Psion - WorkAbout Pro. Na nem bezi Windows
>> CE, obsahuje .NET. Nekdo z
>> Vas mi minule (spravne) radil, ze pro vyvoj je treba Compact Framework.
>> Opravdu plati, ze zadne
>> Delphi jej nepodporuji? Jake prostredi byste pak doporucili? Aplikace
>> nebude velka, takze nas
>> zajima i cena vyvojoveho prostredi...
>
> pre vyvoj Compact Framework je potrebny min Visual Studio Profesional,
> cenu
> si mozet jednoducho zistit na MS strankach:)
Podle toho:
http://msdn.microsoft(tec)cz/vstudio/2005/productline.asp
staci uz i VS Standard.
Radim
> vlko
>
Programovani pro Windows CE
[*] vlko <vlko(zv)zilina(tec)net> - 29.10.2005 09:20:08
On Tue, 29 Nov 2005 08:42:23 +0100, Karel Rys <delphi(zv)zas-me(tec)cz> wrote:
> Hezke dopoledne,
>
> ceka me psani aplikace pro Psion - WorkAbout Pro. Na nem bezi Windows
> CE, obsahuje .NET. Nekdo z
> Vas mi minule (spravne) radil, ze pro vyvoj je treba Compact Framework.
> Opravdu plati, ze zadne
> Delphi jej nepodporuji? Jake prostredi byste pak doporucili? Aplikace
> nebude velka, takze nas
> zajima i cena vyvojoveho prostredi...
pre vyvoj Compact Framework je potrebny min Visual Studio Profesional, cenu
si mozet jednoducho zistit na MS strankach:)
> Mate pro Windows CE zkusenosti s nejakou databazi? Doufal jsem, ze bude
> i FireBird, ale na
> strankach je jen jakasi Alpha 1.0, pak uz pro Windows CE asi nic
> kompilovano neni... Databaze
> nejlepe Free...
Pre pocket pc je free MS SQL CE verzia je to uplne super databaza, len ma
obmedzenie na jedno pripojenie, tym padom nema transakcie. Jo len taky
odpozorovany detail, ak pouzijete subselect bez where podmienky tato db
padne:)
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Programovani pro Windows CE
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 29.10.2005 09:17:43
> ceka me psani aplikace pro Psion - WorkAbout Pro. Na nem bezi Windows CE,
> obsahuje .NET. Nekdo z
> Vas mi minule (spravne) radil, ze pro vyvoj je treba Compact Framework.
> Opravdu plati, ze zadne
> Delphi jej nepodporuji? Jake prostredi byste pak doporucili? Aplikace
> nebude velka, takze nas
> zajima i cena vyvojoveho prostredi...
V Delphi7 Prof, ktere mame, podpora pro Windows CE neni, na zaklade rad z
konference a dalsich debat jsme se rozhodli pro Visual Studion a C#.
Programovani pro WinCE je v nem podporovano na 100%, vcetne treba emulatoru,
ktery se instaluje zaroven s VS. Prechod z Delphi na C# pomerne snadny,
studium noveho jazyka a zcela noveho prostredi a vyvoj prvni verze aplikace,
ktera obsahuje napr. i komunikaci pres sockety trvalo cca 2-3 mesice pri
soucasne praci i na jinych projektech.
Cena Visual Studia byla cca 18000, jestli se dobre pamatuji, informace
ohledne cen a licenci najdete na www.daquas(tec)cz coz je partner Microsoftu
ohledne msdn, licencovani apod.> Mate pro Windows CE zkusenosti s nejakou databazi? Doufal jsem, ze bude i
> FireBird, ale na
> strankach je jen jakasi Alpha 1.0, pak uz pro Windows CE asi nic
> kompilovano neni... Databaze
> nejlepe Free...
Soucasti instalace VS je samozrejme i samotny CompactFramework a take
database SQL CE, ktera s omezenimi vyplyvajicimi z odlisne platformy je
kompatibilni s "velkym" microsoftim sql serverem. SQL CE je zdarma.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5
Programovani pro Windows CE
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 29.10.2005 09:11:17
Ahoj,
muzes pouzit C# z Delphi 2005, ale vyvoj pod .NET CF je pak hra nervu (nutne
porad opravovat automaticky generovany kod, zadne ladeni), nedoporucuju ani
pro aplikaci typu Hello wold. Pro hodne malou aplikaci muzes pouzit i EVC++
(ke stazeni free u MS, obejdes tak .NET, do budoucna bych do toho nesel),
jinak VS .NET (mozna nekdo poradi jine free prostredi?). V jednoduche
offline aplikaci pro mobilni terminal pouzivam pouze XML, ve kterem mam
nekolik tabulek i s relacemi, prenasim je pak na server pomoci HTTP pro
dalsi zpracovani (nepouzil jsem MSSQL server CE, pze nepouzivame servery od
MS, takze je ani moc neznam). XML mi v tom pripade dostacuje, nicmene je
treba udrzovat rozumny pocet zaznamu v datasetech (selektech) - napr.
nacteni cca 8 tis. polozek zbozi na Intel 400 MHz trva temer 2 min.
Roman
Dne Tuesday, November 29, 2005 8:42 AM [GMT+1=CET],
Karel Rys <delphi(zv)zas-me(tec)cz> napsal(a):
> Hezke dopoledne,
>
> ceka me psani aplikace pro Psion - WorkAbout Pro. Na nem bezi Windows
> CE, obsahuje .NET. Nekdo z Vas mi minule (spravne) radil, ze pro
> vyvoj je treba Compact Framework. Opravdu plati, ze zadne Delphi jej
> nepodporuji? Jake prostredi byste pak doporucili? Aplikace nebude
> velka, takze nas zajima i cena vyvojoveho prostredi...
>
> Mate pro Windows CE zkusenosti s nejakou databazi? Doufal jsem, ze
> bude i FireBird, ale na strankach je jen jakasi Alpha 1.0, pak uz pro
> Windows CE asi nic kompilovano neni... Databaze nejlepe Free...
>
> Diky,
>
> Karel Rys
zaslani emailu pomoci Delphi nebo C++Builderu
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 29.10.2005 09:06:51
> stejna s trochu jinym nazvem ... skoro bych se vsadil ze je to kvuli tomu
> overovani ("Server pozaduje overeni") jak se pred nejakou dobou zavedlo
> ...
> vi nekdo co s tim?
Bude to urcite tim overovanim. V konfiguraci odeslani emailu v nasem
programu mam moznost zaskrtnout zda je pro konkretni smtp server overovani
vyzadovano (vetsinou je) a pokud ano, musi se "connectovanim" zadat, ze se
ma provest autentikace a jmeno a heslo, viz nasledujici kod:
if vyzadovana_autentikace then
begin
idSMTP1.AuthenticationType := atLogin;
idSMTP1.Username := _UserName; // _UserName a _Password
musi nekde uzivatel zadat.
idSMTP1.Password := _Password;
end else
begin
idSMTP1.AuthenticationType := atNone;
idSMTP1.Username := '';
idSMTP1.Password := '';
end;
Programovani pro Windows CE
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 29.10.2005 08:42:23
Hezke dopoledne,
ceka me psani aplikace pro Psion - WorkAbout Pro. Na nem bezi Windows CE, obsahuje .NET. Nekdo z
Vas mi minule (spravne) radil, ze pro vyvoj je treba Compact Framework. Opravdu plati, ze zadne
Delphi jej nepodporuji? Jake prostredi byste pak doporucili? Aplikace nebude velka, takze nas
zajima i cena vyvojoveho prostredi...
Mate pro Windows CE zkusenosti s nejakou databazi? Doufal jsem, ze bude i FireBird, ale na
strankach je jen jakasi Alpha 1.0, pak uz pro Windows CE asi nic kompilovano neni... Databaze
nejlepe Free...
Diky,
Karel Rys
Databaze, nebo textovy soubor?
[*] miroslav.barica(zv)matador.sk - 29.10.2005 08:11:55
Prej brej,
>
> Pokud by ses rozhodl pro textaky, pak jeste jednou vezmi v
> uvahu prispevek Petra Vonese: TClientDataSet a XML.
> Oproti CSV to ma mnoho vyhod, napr.
>
Nenajde niekto odkaz na studijne materialy, priklady, navody o xml a
tclientdataset, najlepsie v cs, alebo sk jazyku? ;-)
> jses schopen v nem reprezentovat vazbu master-detail, takze
> "faktura + jeji radky" budou v jednom souboru lze jit i do
> vetsi "hloubky" provazani informace
Tak toto ma konkretne zaujima, malicky prikladik na objasnenie knowhow
by bodol
Vdaka za pripadne nakopnutie (nebrat doslovne ;-)),
M.
Debug DLL
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 29.10.2005 08:07:30
Vazeni pratele,
dovoluji si preposlat do konference dotaz, se kterym si nevim rady.
<dotaz>
Mel bych dotaz, zda nevite o nejakem run-time trasovaci,
ktery zobrazi misto vzniku chyby (typicky AV) i v pripade,
ze pouzivam klasicke DLL a chyba vznikne prave v DLL.
Klasicke metody (CodeGuard nebo pouziti __ThrowFileName
a __ThrowLineNumber) neukazuji nic, i kdyz mam
zapnute rozsirene moznosti trasovani pri prekladu ve vsech
modulech i klientskem exe. Pokud nepouziju DLL a
nasimuluju AV v klientskem exe, tak se spravne zobrazi kde
chyba vznikla, ale s pouzitim DLL bohuzel ne.
S pozdravem, Petr Jurik.
</dotaz>
Podotykam, ze jde o DLL psane v C++, ale to asi v tomto kontextu neni dulezite.
Vedel by nekdo neco na toto tema.
Diky
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, 776 347 735, 493 792 569
====================================
Databaze, nebo textovy soubor?
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 29.10.2005 07:45:03
> Dekuji za diskusi, myslim, ze v tom mam i docela jasno. Vykaslu se asi
> na on-line verzi a na lokale spustim nejaky DB server, nebo to necham
> pomoci csv a kvuli bezpecnosti je budu sifrovat.
> Nemusi to byt zase tak naslapaene :-)
Ja prichazim do diskuse s krizkem po funuse, protoze jsem drive nemel cas se zapojit.
Tak jenom jedna poznamka:
Pokud by ses rozhodl pro textaky, pak jeste jednou vezmi v uvahu prispevek Petra Vonese: TClientDataSet a XML.
Oproti CSV to ma mnoho vyhod, napr.
-
pracujes s opravdu peknym memory datasetem, ktery umi vsechno, co potrebujes a jeste mnohem vic
-
jses schopen v nem reprezentovat vazbu master-detail, takze "faktura + jeji radky" budou v jednom souboru
lze jit i do vetsi "hloubky" provazani informace
-
je to prehledne a muzes si to prohlizet pres IE
-
v pripade nutnosti to lze textove opravit
(csv taky, ale kdo by se v tech delimiterech a separatorech vyznal)
-
pokud bys to mel nejak rozlozeno mezi databazi a XML, je tam velmi snadny prenos
nacteni a SaveToFile
LoadFromFile + ApplyUpdates
-
Tento mechanismus je "odolny" i vuci sdileni dat
jinymi slovy:
nactu data z databaze, SaveToFile, doma LoadFromFile a oprava dat,
pak zase SaveToFile a v praci LoadFromFile a ApplyUpdates:
pokud doslo ke konfliktu s aktualnimi daty v databazi, je to transparentne ohlidano
-
lze to napojit na libobolnou databazi
-
je to snandard, na ktery v budoucnosti lehce navazes
Honza
(viz nas kurz Vicevrstve aplikace)
====================================
= 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, 776 347 735, 493 792 569
====================================
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 29.10.2005 07:18:36
Dekuji za diskusi, myslim, ze v tom mam i docela jasno. Vykaslu se asi
na on-line verzi a na lokale spustim nejaky DB server, nebo to necham
pomoci csv a kvuli bezpecnosti je budu sifrovat.
Nemusi to byt zase tak naslapaene :-)
Jeste jednou diky,
Petr
Databaze, nebo textovy soubor?
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 28.10.2005 23:09:07
Petr Berek wrote:
> Jde tady jeste o jednu vec. Jde o maturitni praci a nemelo by tam byt
> pouzito jine ucivo, nez stredoskolske. Casova razitka jsme tusim
> nebrali :-)
Proste treba u kazde zmeny poznamenas datum. Pokud je vetsi nez datum
posledni synch. tak to pri synch. musis synch. (sakra to je synch.). Na
tom nejni nic az tak tezkeho (pokud to bude pouzito pro takovyto lehky
pripad).
> Ale jestli to chapu dobre, tak z toho csv pri pripojeni vytahnout jen
> ty data, ktere byli zmeneny a ty updatovat do DB.
Viz. nahore.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Databaze, nebo textovy soubor?
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 28.10.2005 23:11:32
Slavomir Skopalik wrote:
> A proc ne embeded FB ?
> U IBX slo rici (po jejich mirne uprave),
> jakou dll maji nahrat do pameti.
Pac rikal, ze to nechce - aspon tak jsem to pochopil. :)
> Osobne bych se drzel jednoho, nebo druheho,
> na locale je misto csv mnohem vhodnejsi MIDAS,
> jelikoz umi alespon razeni a filtraci (a je to dataset).
> Pokud se rozhodne pro DB, tak to stejne z toho csv nakonec
> predela (podle mne do midasu, nebo plne verze SQL).
Nebo jak navrhoval Petr Vones XML Data Binding. ;)
> Slavek
>
>
>>Cili budes mit nekde globalne SQL s daty (napr. rpo statistiky) a pro
>>off-line budes pouzivat csv soubor a bude to easy.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Bacha na MS SQL Express Edition
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.10.2005 23:08:42
28.11.2005 Jan Novak:
> Zakaznik provozoval jeden projekt s datama v MS Access, ale za ta leta
> se mu .MDB soubor rozrostl na 400M a zacina to mit dost line, tak jsme
> chteli zkusit, jestli se pozna rozdil, kdyz to preklopime na normalni
> SQL server.
> Ale hopla! Po 20 minutach importovani akce skoncila zdanlive ok, ale
> tabulka byla prazdna! Pri zjistovani, co se deje, jsme si vsimli, ze
> velikost databaze je 4199M, t.j. 4.2G Zrejme jsme dosahli limitu 4G,
> protoze kdyz jsme zrusili stara data do r. 2002, tak ten zbytek uz to
> vzalo.
> O odezvach napisu, az se podari vsechny query upravit pro SQL a
> aplikace se rozjede. Zatim jen chci varovat, abyste si pri uvazovani,
> co pouzit, uvedomovali, ze limit 4G pro Express je ve skutecnosti jen
> 400M.
To je nesmysl. Zalezi na strukture tabulky. Velikost dat z Access a
SQL serveru neni urcite 1:10.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Databaze, nebo textovy soubor?
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 28.10.2005 23:06:16
A proc ne embeded FB ?
U IBX slo rici (po jejich mirne uprave),
jakou dll maji nahrat do pameti.
Osobne bych se drzel jednoho, nebo druheho,
na locale je misto csv mnohem vhodnejsi MIDAS,
jelikoz umi alespon razeni a filtraci (a je to dataset).
Pokud se rozhodne pro DB, tak to stejne z toho csv nakonec
predela (podle mne do midasu, nebo plne verze SQL).
Slavek
>
> Cili budes mit nekde globalne SQL s daty (napr. rpo statistiky) a pro
> off-line budes pouzivat csv soubor a bude to easy.
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.10.2005 23:03:51
Abych to rozebral konkretneji, tak do csv souboru se ukladaji pouze
predmety (tabulka se sloupci, radky a znamkami).
Jinak informace o tride program nese pomoci INI souboru, kde jsou
napsany jmena zaku a taky, jake jsou ve tride predmety.
Podobne to je resene i se skolnim rokem. Zase INI soubor a tam je
zapsano, jake tridy jsou v dannem skolnim roce k dispozici :-)
Jde tady jeste o jednu vec. Jde o maturitni praci a nemelo by tam byt
pouzito jine ucivo, nez stredoskolske. Casova razitka jsme tusim
nebrali :-)
Ale jestli to chapu dobre, tak z toho csv pri pripojeni vytahnout jen
ty data, ktere byli zmeneny a ty updatovat do DB.
Petr
28.11.05, Bc. Jiri Cincura <diskuze(zv)cincura.net>:
> Petr Berek wrote:
> > Tak tomuhle prestavam rozumnet. Do DB zase tolik nevidim :-)
> > K bodu 1: Dobre, zase tolik dat zapisovat nebudeme, ale uz tim behem
> > si vezme nejake systemove prostredky. Ale dejme tomu, ze teda sql
> > server nebude pc zatezovat.
> > K bodu 2. Premyslim, jestli synchronizace DB je v mych silach.
> >
> > Reseni pres DB mi prijde slozita. Mam udelanou verzi, ktera je
> > zalozena na textovych souborech (csv) a ty se v pripade padu aplikace
> > daji snadno otevrit v Excelu.
>
> Tak me napada takove pseudo reseni. Kdyz uz mas lokalni app. na csv, tak
> co pri synchronizaci vzdy udelat tento soubor a s tim pracovat. Kdyz se
> ucitel pripoji, tak se data zaktualizuji na SQL (treba casova razitka
> jsou dobra volba).
>
> Cili budes mit nekde globalne SQL s daty (napr. rpo statistiky) a pro
> off-line budes pouzivat csv soubor a bude to easy.
>
> --
> Bc. Jiri Cincura
> http://www.ID3renamer.com/
> http://www.x2develop.com/
> ICQ: 314711544 | Yahoo!: x2develop
> http://photo.cincura.net/
Databaze, nebo textovy soubor?
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 28.10.2005 22:59:26
> tomu, ze teda sql server nebude pc zatezovat. K bodu 2.
> Premyslim, jestli synchronizace DB je v mych silach.
>
> Reseni pres DB mi prijde slozita. Mam udelanou verzi, ktera
> je zalozena na textovych souborech (csv) a ty se v pripade
> padu aplikace daji snadno otevrit v Excelu.
Pokud opravdu DB nedelas a nehodlas, zustan u csv, jelikoz
SQL server (pouzivam FB) je sice velmi mocny, ale vyzaduje
jistou, sice nevelkou, davku znalosti a zkusenosti.
Princip synchronizace bude v obou pripadech stejny,
jelikoz csv je vlastne jedna DB tabulka :)).
Pro synchronizaci ze serverem muzes pouzit zamykani
souboru a cekani na uvolneni zamku (+ kulturne napsanou
aplikaci). Tohle zhruba dela SQL server pro kazdeho klienta,
ale ponekud slozitejsim zpusobem.
Ostatne pokud mas cestu do Zlina, nekdy tak okolo 1.12.2005,
tak se stav na Batove Univerzite, tohle tema tam bude mirne diskutovane.
Slavek
Databaze, nebo textovy soubor?
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 28.10.2005 22:55:00
Petr Berek wrote:
> Tak tomuhle prestavam rozumnet. Do DB zase tolik nevidim :-)
> K bodu 1: Dobre, zase tolik dat zapisovat nebudeme, ale uz tim behem
> si vezme nejake systemove prostredky. Ale dejme tomu, ze teda sql
> server nebude pc zatezovat.
> K bodu 2. Premyslim, jestli synchronizace DB je v mych silach.
>
> Reseni pres DB mi prijde slozita. Mam udelanou verzi, ktera je
> zalozena na textovych souborech (csv) a ty se v pripade padu aplikace
> daji snadno otevrit v Excelu.
Tak me napada takove pseudo reseni. Kdyz uz mas lokalni app. na csv, tak
co pri synchronizaci vzdy udelat tento soubor a s tim pracovat. Kdyz se
ucitel pripoji, tak se data zaktualizuji na SQL (treba casova razitka
jsou dobra volba).
Cili budes mit nekde globalne SQL s daty (napr. rpo statistiky) a pro
off-line budes pouzivat csv soubor a bude to easy.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.10.2005 22:46:35
Tak tomuhle prestavam rozumnet. Do DB zase tolik nevidim :-)
K bodu 1: Dobre, zase tolik dat zapisovat nebudeme, ale uz tim behem
si vezme nejake systemove prostredky. Ale dejme tomu, ze teda sql
server nebude pc zatezovat.
K bodu 2. Premyslim, jestli synchronizace DB je v mych silach.
Reseni pres DB mi prijde slozita. Mam udelanou verzi, ktera je
zalozena na textovych souborech (csv) a ty se v pripade padu aplikace
daji snadno otevrit v Excelu.
Petr
28.11.05, Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz>:
> Ehm, tohle uz chce usmernit:
> 1. Proc by mel SQL server zatezovat (tedy, pokud to neni 386sx)?
> To za hodinu zapise 2G zaznamu ?
>
> 2. Dobre napsana synchronize resi cely problem,
> problem se pak rozpadne na tyto casti:
> - DB
> - aplikace (na notebooku)
> - synhronizacni aplikace (bez uzivatelskeho zasahu)
> - WWW prezentace statistickych vysledku (pokud jsou znamky tajne)
>
> System pak bude obsahovat centralni server, ktery bude
> slouzit k vymene dat mezi uciteli (je to vubec nutne?),
> kazdy ucitel pak bude mit na svem NB/PC kopletni kopii
> (vysledek synchronizace, nikoliv koipirovani souboru) databaze
> (neprepokladam zasadni velikost) a stou bude pracovat.
>
> Celkove si myslim, ze s konflikty by nemely nastat (zadne nevidim).
>
> V kazdem pripade pouzit jen jeden pristup a ten drzet v cele aplikaci.
>
> Slavek
Bacha na MS SQL Express Edition
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 28.10.2005 22:28:08
Zakaznik provozoval jeden projekt s datama v MS Access, ale za ta leta
se mu .MDB soubor rozrostl na 400M a zacina to mit dost line, tak jsme
chteli zkusit, jestli se pozna rozdil, kdyz to preklopime na normalni
SQL server.
Ale hopla! Po 20 minutach importovani akce skoncila zdanlive ok, ale
tabulka byla prazdna! Pri zjistovani, co se deje, jsme si vsimli, ze
velikost databaze je 4199M, t.j. 4.2G Zrejme jsme dosahli limitu 4G,
protoze kdyz jsme zrusili stara data do r. 2002, tak ten zbytek uz to
vzalo.
O odezvach napisu, az se podari vsechny query upravit pro SQL a
aplikace se rozjede. Zatim jen chci varovat, abyste si pri uvazovani,
co pouzit, uvedomovali, ze limit 4G pro Express je ve skutecnosti jen
400M.
Databaze, nebo textovy soubor?
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 28.10.2005 22:13:42
Ehm, tohle uz chce usmernit:
1. Proc by mel SQL server zatezovat (tedy, pokud to neni 386sx)?
To za hodinu zapise 2G zaznamu ?
2. Dobre napsana synchronize resi cely problem,
problem se pak rozpadne na tyto casti:
- DB
- aplikace (na notebooku)
- synhronizacni aplikace (bez uzivatelskeho zasahu)
- WWW prezentace statistickych vysledku (pokud jsou znamky tajne)
System pak bude obsahovat centralni server, ktery bude
slouzit k vymene dat mezi uciteli (je to vubec nutne?),
kazdy ucitel pak bude mit na svem NB/PC kopletni kopii
(vysledek synchronizace, nikoliv koipirovani souboru) databaze
(neprepokladam zasadni velikost) a stou bude pracovat.
Celkove si myslim, ze s konflikty by nemely nastat (zadne nevidim).
V kazdem pripade pouzit jen jeden pristup a ten drzet v cele aplikaci.
Slavek
> Kdyz se nad tim zamyslim poradne, kolik ucitelu ma v hodine k
> dispozici pripojeni. A proc zbytecne zatezovat pc (notebook)
> behem nejakeho sql serveru, kdyz se daji lehce soubory
> zasifrovat. Pokud by se to melo udelat jako on-line, tak
> nastava problem o par radku vyse. Ucitel by si musel vse psat
> na papir a pak to na pocitaci, kde je pristup k sql serveru
> napsat, a v tom pripade je to lepsi psat do denicku. Pokud by
> se to melo udelat jako on-line i off-line, musi tam byt
> nejaka synchronizace. Aby to fungovalo off-line musi si
> program pri prihlaseni ke vzdalenemu sql serveru stahnout DB,
> jenze do DB by zapisovali i jini ucitele a tak po zmenach na
> lokalnim pc a naslednem nahrani DB pri pripojeni ke
> vzdalenemu sql serveru by doslo ke zniceni ostatnich zaznamu.
> Navic kazdy ucitel ma jine hodnoceni pro ruzne cinnosti,
> napr: zkouseni, pisemky, atd..
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.10.2005 21:45:15
Kdyz se nad tim zamyslim poradne, kolik ucitelu ma v hodine k
dispozici pripojeni. A proc zbytecne zatezovat pc (notebook) behem
nejakeho sql serveru, kdyz se daji lehce soubory zasifrovat.
Pokud by se to melo udelat jako on-line, tak nastava problem o par
radku vyse. Ucitel by si musel vse psat na papir a pak to na pocitaci,
kde je pristup k sql serveru napsat, a v tom pripade je to lepsi psat
do denicku.
Pokud by se to melo udelat jako on-line i off-line, musi tam byt
nejaka synchronizace. Aby to fungovalo off-line musi si program pri
prihlaseni ke vzdalenemu sql serveru stahnout DB, jenze do DB by
zapisovali i jini ucitele a tak po zmenach na lokalnim pc a naslednem
nahrani DB pri pripojeni ke vzdalenemu sql serveru by doslo ke zniceni
ostatnich zaznamu.
Navic kazdy ucitel ma jine hodnoceni pro ruzne cinnosti, napr:
zkouseni, pisemky, atd..
28.11.05, Bc. Jiri Cincura <diskuze(zv)cincura.net>:
> Petr Berek wrote:
> > Melo by se to chovat jako ucitelsky zapisnik. Jde o to, ze premyslim
> > nad tim, aby to fungovalo jak off-line, tak i on-line. Pomoci souboru
> > by bylo samozrejme pouze off-line, to jak to je ted.
> > V hodine treba nema ucitel pripojeni k siti, nebo internetu, tak by
> > nemohl zapisovat znamky. Naopak doma treba pristup ma.
> > Premyslim a nevim jak to udelat.
>
> Pokud potrebujes on- i off-line fungovani nezbude ti nic jineho nez
> vymyslet nejakou synchronizaci. Tady je uz jedno jestli to je DB nebo
> soubor.
>
> --
> Bc. Jiri Cincura
> http://www.ID3renamer.com/
> http://www.x2develop.com/
> ICQ: 314711544 | Yahoo!: x2develop
> http://photo.cincura.net/
Databaze, nebo textovy soubor?
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 28.10.2005 21:30:23
Petr Berek wrote:
> Melo by se to chovat jako ucitelsky zapisnik. Jde o to, ze premyslim
> nad tim, aby to fungovalo jak off-line, tak i on-line. Pomoci souboru
> by bylo samozrejme pouze off-line, to jak to je ted.
> V hodine treba nema ucitel pripojeni k siti, nebo internetu, tak by
> nemohl zapisovat znamky. Naopak doma treba pristup ma.
> Premyslim a nevim jak to udelat.
Pokud potrebujes on- i off-line fungovani nezbude ti nic jineho nez
vymyslet nejakou synchronizaci. Tady je uz jedno jestli to je DB nebo
soubor.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Sinea - nechtene prazdne stranky pred tisknutou
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 28.10.2005 21:13:57
> Sablona je v pts definovana rucne (nepouzival jsem vestaveny editor
> sablon),
Pouzivani takovych tiskovych predloh je bez zaruky.
> tak mi napred vyjedou z tiskarny dve prazdne
> stranky a teprve pote potistena,
To dela tehdy, pokud je soucet vysek oddilu na prvni strance sestavy vyssi,
nez je vyska tisknutelne oblasi stranky v tiskarne. Obvykly postup je
takovy, ze se navrhne predloha tiskove sestavy vcetne okraju tak vysoka,
nebo s urcitou rezervou nizsi, nez je vyska papiru v tiskarne. Na tom neni
nic problematickeho.
Vaclav Krmela
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.10.2005 20:01:02
Melo by se to chovat jako ucitelsky zapisnik. Jde o to, ze premyslim
nad tim, aby to fungovalo jak off-line, tak i on-line. Pomoci souboru
by bylo samozrejme pouze off-line, to jak to je ted.
V hodine treba nema ucitel pripojeni k siti, nebo internetu, tak by
nemohl zapisovat znamky. Naopak doma treba pristup ma.
Premyslim a nevim jak to udelat.
Petr
28.11.05, Petr Vones <konference(zv)petrvones.net>:
> From: "Petr Berek" <sojokl(zv)seznam(tec)cz>
> > Chci znat vas nazor, co byste na to pouzili.
>
> Pokud je to neco jednoducheho tak bych pouzil XML. V Delphi Win32 lze s nim
> pak pracovat budto "tabulkove", tedy se bude jednat vlastne o TClientDataSet
> nebo pomoci XML Data Bindingu. Pro beznou GUI aplikaci je asi ten databazovy
> pristup vyhodnejsi.
>
> Petr Vones
Databaze, nebo textovy soubor?
[*] Petr Vones <konference(zv)petrvones(tec)net> - 28.10.2005 17:56:03
From: "Petr Berek" <sojokl(zv)seznam(tec)cz>
> Chci znat vas nazor, co byste na to pouzili.
Pokud je to neco jednoducheho tak bych pouzil XML. V Delphi Win32 lze s nim
pak pracovat budto "tabulkove", tedy se bude jednat vlastne o TClientDataSet
nebo pomoci XML Data Bindingu. Pro beznou GUI aplikaci je asi ten databazovy
pristup vyhodnejsi.
Petr Vones
Mail v HTML formatu - zkomolene znaky
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 28.10.2005 17:51:38
> posilam pres Synapsi pres SendToRaw mail v TXT i HTML podobe.
> U jednoho zakaznika to spatne zobrazuje cestinu v HTML.
>
> Zkusil jsem ruzne SMTP servery a me to prijde vzdycky spravne,
> zakaznikovi spatne.
> Posilam mu to na quick a na seznam a z obou se mu to stahne stejne
> zkomolene.
>
> Pouziva Outlook Express, ja Outlook.
> Evidentne to ukazuje na spatne nastaveni Outlooku, ale tam se toho moc
> nastavit neda a co se da, to mam snad spravne.
Ty dopisy jsou odesilany v UTF-8 kodovani. V pripade spatneho zobrazeni
to prohlizec zjevne jako UTF-8 kod neidentifikuje, coz je zvlastni,
protoze Synapse cpe informaci o kodovani pochopitelne do hlavicek dopisu.
Nektere verze outlooku sice informaci o UTF-8 kodovani v hlavickach
vesele ignoruji a toto kodovani poznavaji jen podle pritomnosti BOM na
zacatku kodovanych dat... ale tu BOM tam Synapse take vklada!
Chtelo by to videt ten zmrseny dopis v RAW formatu, aby byly videt
hlavicky a podle nich zjistit co je spatne. (nejlepe jak ten zmrseny
dopis prijde, ulozit jej jako EML, pak zazipovat a poslat primo me na
soukromy mail...)
> Kdyz si to od nej preposlu, tak uz to vidim stejne spatne jako on.
prirozene.. jestli se nekde neco zmrsilo, tak preposilas uz zmrsenou
variantu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.10.2005 17:47:12
Problem taky je, jak tu DB vymodelovat, protoze kdyz se spatne
postavi, tak je celej program na pytel. Kdezto i u tech textovych
souboru muzu program udelat tak, aby se choval jako DB.
28.11.05, Bc. Jiri Cincura <diskuze(zv)cincura.net>:
> Petr Berek wrote:
> > Chci znat vas nazor, co byste na to pouzili.
>
> Ja bych pouzil DB. Treba Firebird Embedded a je vystarano. Mas k ruce
> cely SQL a hned je vse jednodussi.
>
> --
> Bc. Jiri Cincura
> http://www.ID3renamer.com/
> http://www.x2develop.com/
> ICQ: 314711544 | Yahoo!: x2develop
> http://photo.cincura.net
Databaze, nebo textovy soubor?
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 28.10.2005 17:38:46
Petr Berek wrote:
> Chci znat vas nazor, co byste na to pouzili.
Ja bych pouzil DB. Treba Firebird Embedded a je vystarano. Mas k ruce
cely SQL a hned je vse jednodussi.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Databaze, nebo textovy soubor?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.10.2005 17:32:21
Zdravim,
chtel bych se jen zeptat, cemu byste dali prednost. Delam na
programku, ktery ma nahradit ucitelsky zapisnik. Jiz mam hotovou prvni
ostrou verzi, ktera je prave delana pomoci textovych souboru. Sice
toho moc neumi, ale vypada, ze lidem to staci.
Ted delam na druhe verzi a premyslim nad databazema. Ale moc se mi do
toho nechce, protoze uz mam hotovy to ukladani do textovych souboru.
Jestli se jedna o bezpecnost dat, tak je mozne textove soubory zasifrovat.
Chci znat vas nazor, co byste na to pouzili.
Diky
Petr
Mail v HTML formatu - zkomolene znaky
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 28.10.2005 17:25:55
Napada me jen spatne nastaveni kodovani. Delal jsem neco podobneho,
ale pomoci PHP a tam mi to delalo prave spatne nastaveni kodovaci
stranky.
Petr
28.11.05, David Klodner <delphikonfer(zv)seznam(tec)cz>:
> Zdravim,
>
> posilam pres Synapsi pres SendToRaw mail v TXT i HTML podobe.
> U jednoho zakaznika to spatne zobrazuje cestinu v HTML.
>
> Zkusil jsem ruzne SMTP servery a me to prijde vzdycky spravne,
> zakaznikovi spatne.
> Posilam mu to na quick a na seznam a z obou se mu to stahne stejne
> zkomolene.
>
> Pouziva Outlook Express, ja Outlook.
> Evidentne to ukazuje na spatne nastaveni Outlooku, ale tam se toho moc
> nastavit neda a co se da, to mam snad spravne.
>
> Kdyz si to od nej preposlu, tak uz to vidim stejne spatne jako on.
>
> Nesetkali jste se s tim nekdy? Kde dochazi k tomu zkomoleni znaku?
>
> Ukazka:
> www.ordis(tec)cz/e/mail/spatne.htm
> www.ordis(tec)cz/e/mail/spravne.htm
>
> David Klodner
> D5 prof. FB, Win XP
>
>
>
Mail v HTML formatu - zkomolene znaky
[*] David Klodner <delphikonfer(zv)seznam(tec)cz> - 28.10.2005 16:57:28
Zdravim,
posilam pres Synapsi pres SendToRaw mail v TXT i HTML podobe.
U jednoho zakaznika to spatne zobrazuje cestinu v HTML.
Zkusil jsem ruzne SMTP servery a me to prijde vzdycky spravne,
zakaznikovi spatne.
Posilam mu to na quick a na seznam a z obou se mu to stahne stejne
zkomolene.
Pouziva Outlook Express, ja Outlook.
Evidentne to ukazuje na spatne nastaveni Outlooku, ale tam se toho moc
nastavit neda a co se da, to mam snad spravne.
Kdyz si to od nej preposlu, tak uz to vidim stejne spatne jako on.
Nesetkali jste se s tim nekdy? Kde dochazi k tomu zkomoleni znaku?
Ukazka:
www.ordis(tec)cz/e/mail/spatne.htm
www.ordis(tec)cz/e/mail/spravne.htm
David Klodner
D5 prof. FB, Win XP
Odeslani mailu s prilohou
[*] Ludek <konference(zv)sales(tec)cz> - 28.10.2005 16:14:54
----- Original Message -----
From: "Lauko Stefan" <laukosw(zv)naex.sk>
> Ja by som sa nespolahol na MAPI ani na SMTP.
> Aby to vacsinou fungovalo bez problemu a preslo cez rozne proxi, routre a
> firewal atd. zvol protokol HTTP pomocou synapse.
> Na svoj web (iste ho mas) umiestni PHP skript na spracovanie UploaduSuboru
> ked sa subor uploadne posli ho funkciou mail().
Ahoj,
To je jiste ten nejvyhodnejsi zpusob.
Ludek
Dotykovy display a Delphi5
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 28.10.2005 16:06:29
Velice jednoduse. Dotyk na display vygeneruje na prislusnem miste
kliknuti mysi a tak to obslouzis normalne jako bys mel nedotykovy
display a mys.
----- PUVODNI ZPRAVA -----
> Zdravim,
> jakym zpusobem v Delphi aplikaci komunikovat s
> dotykovym displayem - dotyk
> atd... ?
--
Milos J. Hrach, D6 profi, WinXP Home
Jmeno vystupniho souboru
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 28.10.2005 16:04:03
Nebo si ho prejmenuj rucne :oP
>>... jsem tam takove veci nenasel. Ale co jsem nasel, tak
>> v Delphi 2005 toto lze. ...
> Ja mam D7, takze asi smula. Budu muset asi po kompilaci
> spoustet nejakej
> batak co mi to prejmenuje.
--
Milos J. Hrach, D6 profi, WinXP Home
Odeslani mailu s prilohou
[*] Lauko Stefan <laukosw(zv)naex.sk> - 28.10.2005 15:07:34
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> resim nyni ve svem programu, jak odeslat E-mail s prilohou - vzdy k
> nam - jde o odeslani dat za ucelem diagnostiky problemu. Kdybych
> nepotreboval tu prilohu, vedel bych o nasledujicich postupech:
>
> 1) Pomoci MAPI nebo simple MAPI. Nevyhoda - ne vzdy bez problemu
> funguje. Napr. uzivatele Pegasu apod. by si museli simple MAPI napred
> nainstalovat - a kdovi co je potreba jeste u jinych klientu.
>
> 2) Pomoci ShellExecute - pro me idealni reseni, ale bohuzel takto
> neumim odeslat tu prilohu.
>
> 3) Pomoci Synapse - SMTP. Bylo by to parada, kdyby nebylo potreba
> na zacatku nastavit jmeno SMTP serveru.>
> V konferenci sveho casu padla rada, at se jako SMTP server uvede nas
> SMTP server. Jenze to pry neni mozne, aby nas SMTP server mohl jen
> tak pouzivat nekdo cizi - zneuziti ke spamu apod. Protoze se v teto
> problematice neorientuji, prosim o info, jestli jde vubec o schudnou
> cestu nebo jaky vlastne zvolit postup.
Ahoj,
Ja by som sa nespolahol na MAPI ani na SMTP.
Aby to vacsinou fungovalo bez problemu a preslo cez rozne proxi, routre a
firewal atd. zvol protokol HTTP pomocou synapse.
Na svoj web (iste ho mas) umiestni PHP skript na spracovanie UploaduSuboru
ked sa subor uploadne posli ho funkciou mail().
Lauko.
Odeslani mailu s prilohou
[*] Ludek <konference(zv)sales(tec)cz> - 28.10.2005 14:02:37
----- Original Message -----
From: "Ludek" <konference(zv)sales(tec)cz>
> Zjistit to lze z MX zaznamu v systemu DNY napriklad prikazem nslookup:
Samozrejme ma byt DNS a ne DNY
Ludek
Odeslani mailu s prilohou
[*] Ludek <konference(zv)sales(tec)cz> - 28.10.2005 13:54:11
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> V konferenci sveho casu padla rada, at se jako SMTP server uvede nas
> SMTP server. Jenze to pry neni mozne, aby nas SMTP server mohl jen
> tak pouzivat nekdo cizi - zneuziti ke spamu apod. Protoze se v teto
> problematice neorientuji, prosim o info, jestli jde vubec o schudnou
> cestu nebo jaky vlastne zvolit postup.
Ahoj,
To je prece hloupost. SMTP server je proti spamu zajisten tak, ze nepreposila zpravy dal (relay), ale uz z principu musi zpravy smerujici do vlastni domeny dorucit bez ohledu na odesilatele.
Jedine pokud by to bylo tak, ze vase DNS zaznamy ukazuji na server poskytovatele a vse jde pres jeho SMTP server ktery to preposila na ten Vas interni. Ale i v tomto pripade ten SMTP server u poskytovatele k Vam musi preposlat maily odkudkoliv. Jinak by proste posty nechodila nikde a nikomu. Lze tedy rici, ze v kazdem pripade musi pro kazdou emailovou schranku existovat nejaky SMTP server pres ktery lze do teto schranky dorucit postu odkudkoliv.
Zjistit to lze z MX zaznamu v systemu DNY napriklad prikazem nslookup:
comarr(tec)cz MX preference = 0, mail exchanger = glum.comarr(tec)cz
comarr(tec)cz MX preference = 20, mail exchanger = hu.comarr(tec)cz
comarr(tec)cz MX preference = 30, mail exchanger = smtpb-in-2.tiscali(tec)cz
Ludek
volani funkce DLL - vyreseno !
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 28.10.2005 12:57:42
odpovim si sam. Jako parametr nelze predavat string ale PChar.
> Prosim nemohl byste mi nekdo pomoct s prekladem nasledujiciho kodu myslim
> ze
> z VB do D5? Zda se to byt trivialni ale pokud to prepisu do D5 tak mi
> porad
> vraci prazdny string. Tusim problem s predavanim dlouheho stringu txtkey.
> Autor tvrdi ze mu to funguje (jak taky jinak).
Odeslani mailu s prilohou
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.10.2005 12:51:17
Ahoj,
resim nyni ve svem programu, jak odeslat E-mail s prilohou - vzdy k
nam - jde o odeslani dat za ucelem diagnostiky problemu. Kdybych
nepotreboval tu prilohu, vedel bych o nasledujicich postupech:
1) Pomoci MAPI nebo simple MAPI. Nevyhoda - ne vzdy bez problemu
funguje. Napr. uzivatele Pegasu apod. by si museli simple MAPI napred
nainstalovat - a kdovi co je potreba jeste u jinych klientu.
2) Pomoci ShellExecute - pro me idealni reseni, ale bohuzel takto
neumim odeslat tu prilohu.
3) Pomoci Synapse - SMTP. Bylo by to parada, kdyby nebylo potreba
na zacatku nastavit jmeno SMTP serveru. Tohle je vazny problem -
casto volaji uzivatele, kterym kdyz reknete, at stisknou Escape, tak
odpovedi, ze takovou klavesu tam vubec nemaji.
V konferenci sveho casu padla rada, at se jako SMTP server uvede nas
SMTP server. Jenze to pry neni mozne, aby nas SMTP server mohl jen
tak pouzivat nekdo cizi - zneuziti ke spamu apod. Protoze se v teto
problematice neorientuji, prosim o info, jestli jde vubec o schudnou
cestu nebo jaky vlastne zvolit postup.
Diky
David Lebeda
volani funkce DLL
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 28.10.2005 12:06:48
Prosim nemohl byste mi nekdo pomoct s prekladem nasledujiciho kodu myslim ze
z VB do D5? Zda se to byt trivialni ale pokud to prepisu do D5 tak mi porad
vraci prazdny string. Tusim problem s predavanim dlouheho stringu txtkey.
Autor tvrdi ze mu to funguje (jak taky jinak).
unit Form1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TForm1 = Class(TForm)
txtReturn : TMemo;
txtPhone : TMemo;
txtKey : TMemo;
Test : TButton;
Label2 : TLabel;
Label1 : TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1:TForm1;
implementation
{$R *.dfm}
// left unchanged ==> private declare function wb_getphonestation lib
'connect.dll' (byval skey as string, byval sphone as string) as string;
procedure form_load();
begin
txtkey.text :=
'ee062946985de5dfb333afffc30c4f673732324536463245304135333642453136333635364336463736363132303331333832433230333633313332323033303330323034323732364536463230363936333646323033343336333933393335333333383332304133313245333030413331333632453336324533323330333033353041333333303330333033303330304133313743353734353432343934313743';
end;
procedure testClick(Sender:TObject);
begin
skey : string;
sphone : string;
sreturn : string;
skey := txtkey.text;
sphone := txtphone.text;
sreturn := wb_getphonestation(skey, sphone);
txtreturn.text := sreturn;
end;
end.
Martin
SynEdit - aktivny odkaz
[*] Stanislav ADAMCIK <konferencia(zv)stadas.sk> - 28.10.2005 11:26:20
Ahojte,
pouzivam komponenty TSynEdit a TSynSQLSyn. Neviete ako spravit aktivny
odkaz na niektore zo zvyraznenych slov ? Zvyraznujem mena tabuliek
databazy a po kliknuti na meno tabulky by som chcel vykonat nejaku akciu.
Dakujem
Stano
Vyhledavani - Firebird
[*] Kalhous <kalhous(zv)eu(tec)cz> - 28.10.2005 10:37:52
Jelikoz se seslo dost prispevku na optimalizaci selectu s vyberem podle
obsahu varchar, nedalo mi to a zkusil jsem si nejake testy na tema
SELECT * FROM TAB WHERE C1=.. AND C2=... AND C3=...
Tak pokud to nekoho zajima:
Nechal jsem si vygenerovat dve tabulky s integer PK (sloupec ID) a tremi
datovymi sloupci - v jedne tabulce CHAR(100) a ve druhe VARCHAR(100). Kazda
tabulka 1 000 000 zaznamu, selektivita sloupcu: C1 1%, C2 0.1% a C3 0.01%.
Samozrejme jsem nedelal korektni statisticke vyhodnoceni ale prece jen se mi
nektere vysledky zdaji zajimave.
- Na rychlost nema vliv poradi podminek (selektivita sloupcu), FB si ho
zrejme sam optimalizuje, pri pouziti indexu je ma v PLAN vzdy ve stejnem
poradi.
- Rozdil v rychlosti pro CHAR a VARCHAR je vetsinou zanedbatelny respektive
statisticky neprokazatelny pokud se nepouzivaji indexy.
- Pri pouziti indexu na C1 se samozrejme select zrychli (cca 10x), zrychleni
je vyznamne vetsi pro tabulku se sloupci CHAR
- Po pridani indexu na C3 se ovsem select dale zrychli, tentokrat kupodivu
vyrazneji pro tabulky s VARCHAR sloupci takze pri pouziti obou indexu se
casy pro CHR i VARCHAR zase sblizi.
Co me ovsem dost prekvapilo byly vysledky porovnani SELECT * FROM / SELECT
ID FROM / SELECT Ci FROM jelikoz jsem dosud zil v iluzi, ze SELECT ID musi
byt rychlejsi nez SELECT * . Sice jsem to poustel na lokale (takze se
neprojevila propustnost spojeni a objem prenasenych dat) a tabulky maji jen
ctyri sloupce ale prece jen ... posudte sami:
Bez pouziti indexu je SELECT ID zhruba 40x pomalejsi nez SELECT * , kupodivu
SELECT Ci je pomalejsi "jen" asi 30x, po pridani indexu C1 je to uz
pomalejsi jen asi 2x a az po pridani indexu C3 se rychlosti priblizi k
rychlosti SELECT *.
Z toho plyne pouceni, ze nejaka pravidla sice existuji ale stejne je
nejspolehlivejsi kazdy (zejmena slozitejsi nebo v provozu problemovy) select
ladit a optimalizovat zkusmo a nicemu se nedivit.
Z.Kalhous
ToWare s.r.o.
tel.: 466 614 024
kalhous(zv)eu(tec)cz
ADO a asynchronni dotaz
[*] Petr Langer <langer(zv)xdom(tec)cz> - 28.10.2005 09:57:23
Ahoj,
mate nekdo zkusenosti se %subj% ?
Resim dva zadrhele:
1. ExecuteComplete ma krome hodnoty parametru "adStatus" vsechny ostatni
parametry nastavene na "unknown". To by mi tolik nevadilo, protoze jak
connection tak recordset si drzim v ramci instance dane tridy, ale spise me
zajima duvod, protoze podle MSDN by to nastavene byt melo.
2. Pokud to pouzivam ve vice threadech, tak dostavam adStatus = 2, coz
znamena chybu, pricemz ale u connection zadnou chybu nedostanu, "Get_Errors"
mi vraci prazdnou kolekci. Samozrejme si kazdy thread vytvari vlastni
instanci TConnection nad kterou vykonavam dotaz takto takto:
rs := conn.DefaultInterface.Execute(sql, VarRecsAffected, adCmdText or
adAsyncExecute);
Jinak pro ADO pouzivam naimportovanou deklaraci, protoze standardni ADO unit
se mi nejak nepodarilo asynchronne rozbehnout...
Diky,
Petr Langer
Sinea - nechtene prazdne stranky pred tisknutou
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 28.10.2005 08:58:54
Dobry den,
pri praci se Sinea komponentami jsem narazil na jeden bug, mozna
vlastnost, ale rad bych vedel jestli se nekdo setkal s necim podobnym a
jak to eventualne resil.
Sinea jsou verze: I,1,6,40,20
Sablona je v pts definovana rucne (nepouzival jsem vestaveny editor
sablon), pokud nemam na strance jednu polozku, tiskne se mi vse v
pohode, pokud ji tam pridam (je na strance dole, tiskne se do
pripraveneho formulare a tvurci formu ji dali tak nizko, ze moje domaci
Epson LQ-100 protestuje), tak mi napred vyjedou z tiskarny dve prazdne
stranky a teprve pote potistena, nastesti pozice sedi presne a tiskne se
presne do vymezenych okynek. Obsah sablony mi z rozmeru listu, ani
tiskutelne plochy, nepresahuje
Jestli nekdo znate reseni, nebo potrebujete dalsi udaji, prosim o
pomocnou ruku (ehm, spise pomocny mail).
Dekuji
MO
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Posun tisku ve FastReportu
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 28.10.2005 08:58:29
Ahoj
Potreboval bych nastavovat posunovani tisku primo z aplikace ve Fast
Reportu 3 (tisk do formulare)
Zrejme je potreba pouzit Engine.CurX a Engine.CurY, ale nevim kde a jak
je aplikovat.
Diky jura
kresleni BMP do BMP
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 28.10.2005 08:42:01
Ahoj,
delam tisk map. Vytvorim si TBitmap, do ni si namaluju co potrebuju a
ulozim na disk. Takhle vytvorim potrebny pocet stranek (listu A4) a
potom je tisknu.
Dokud jsem delal jen vektory, bylo vse OK. Ted pod vektory maluju
rastrove podklady. At se jedna o plnobarevne ortofotomapy, nebo
cernobile naskenovane mapy, vzdy se mi promitne jen posledni malovana
mapa. Potreboval bych nejakou radu, nenapada me, co s tim.
Pritom na obrazovku se kresli uplne stejnymi metodami, ale misto do
BMP jenom do TPintBox. To funguje bezvadne.
Dik za kazdou radu, Peca.
********* Mam zhruba nasledujici kod:
lBmp:=TBitmap.Create;
lBmp.Width:=Round(PaperWidth/0.0254*FDPI);
lBmp.Height:=Round(PaperHeight/0.0254*FDPI);
lBmp.PixelFormat:=pf24bit;
for ix:=0 to xdo do
begin
lBmp.Canvas.Brush.Style:=bsSolid;
lBmp.Canvas.Brush.Color:=clWhite;
lBmp.Canvas.Pen.Style:=psSolid;
lBmp.Canvas.Pen.Color:=clBlack;
lBmp.Canvas.Rectangle(Rect(0, 0, lBmp.Width-1, lBmp.Height-1));
FVyrezSJTSK.Canvas:=lBmp.Canvas;
FVyrezSJTSK.SJTSK:=TRectangle(FStranky.Objects[ix]).Rect;
FVyrezSJTSK.Width:=lBmp.Width;
FVyrezSJTSK.Height:=lBmp.Height;
FVyrezSJTSK.SetMapModeSJTSK;
// tady se kresli rastry, videt je vzdy jen ten posledni
FVyrezSJTSK.MalujRastry(True, True);
FVyrezSJTSK.RestoreMapMode;
FVyrezSJTSK.SetMapModeSJTSK;
// nasleduje vykresleni vektoru, ktere funguje dobre
fDataDraw.DataDraw(FVyrezSJTSK);
fDataDraw.JenMnozinaDraw(FVyrezSJTSK);
FVyrezSJTSK.RestoreMapMode;
lBmp.SaveToFile(s);
end;
lBmp.Free;
********* V metode MalujRastry se hleda ktery rastr je videt a potom se
vola jeho vykresleni:
procedure TRaster.DrawViewport(ACanvas: TCanvas; ASJTSK: TRect);
var
MaxHW, cx, cy, x, y: Integer;
R: TRect;
dx, dy: Integer; // kolik je MaxHW po prepoctu
do SJSTK
SW, W, SVW, VW: Integer;
SH, H, SVH, VH: Integer;
kx, ky: Double;
begin
SVW:=ASJTSK.Right-ASJTSK.Left; // sirka pohledu v SJTSK
W:=FBitmap.Width; // sirka mapy v pixelech
SVH:=ASJTSK.Bottom-ASJTSK.Top;
H:=FBitmap.Height;
if (SVW=0)or(SVH=0)or(W=0)or(H=0) then Exit;
begin
R:=ASJTSK;
if R.Left>FSJTSK.Left then R.Left:=FSJTSK.Left;
if R.Right<FSJTSK.Right then R.Right:=FSJTSK.Right;
if R.Top<FSJTSK.Top then R.Top:=FSJTSK.Top;
if R.Bottom>FSJTSK.Bottom then R.Bottom:=FSJTSK.Bottom;
SetMapModeSJTSK;
StretchBlt(
ACanvas.Handle, R.Left, R.Top, R.Right-R.Left, R.Bottom-R.Top,
FBitmap.Canvas.Handle,
R.Left, R.Top, R.Right-R.Left, R.Bottom-R.Top,
SRCCOPY);
RestoreMapMode;
Application.ProcessMessages;
end
end;
zaslani emailu pomoci Delphi nebo C++Builderu
[*] Pavel GRATZER <pavelg(zv)stbk.mcs(tec)cz> - 27.10.2005 21:52:46
Ja Indy (v.9.0010) komponenty pouzivam a funguji zatim bez problemu.
with SMTP do
begin
Host := aSMTPServer;
Connect;
try
Send(Msg);
finally
Disconnect;
end;
end;
V tomto kousku kodu chybi prihlaseni k smtp serveru ( property username a
password).
PG
----- Original Message -----
From: "Vlastimil Burian" <vlastax.b(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 25, 2005 7:02 PM
Subject: zaslani emailu pomoci Delphi nebo C++Builderu
>v konfere jsem s uspechem nalezl toto vyuzivajici Indy ... jenze to
> nefunguje s chybou "Sorry, that domain isn't in my list of allowed
> rcpthosts
> #5.7.1". zkousel sem pouzit i C++Builder a jeho starou komponentu NMSMTP
> ale
> stejna s trochu jinym nazvem ... skoro bych se vsadil ze je to kvuli tomu
> overovani ("Server pozaduje overeni") jak se pred nejakou dobou zavedlo
> ...
> vi nekdo co s tim?
>
>
> procedure SendMail(aSMTPServer: string; aSubject: string; aTo: string;
> aFrom: string; aText: string);
> var
> SMTP: TIdSMTP;
> Msg: TIdMessage;
> begin
> SMTP := TIdSMTP.Create(nil);
> try
> Msg := TIdMessage.Create(SMTP);
> with Msg do
> begin
> //Charset := 'win-1250';
> //ContentType := 'Text/Plain; Charset = "win-1250"';
> //ContentTransferEncoding := '8bit';
> Subject := aSubject;
> Recipients.EMailAddresses := aTo;
> From.Text := aFrom;
> Body.Text := aText;
> Priority := mpNormal;
> end;
> with SMTP do
> begin
> Host := aSMTPServer;
> Connect;
> try
> Send(Msg);
> finally
> Disconnect;
> end;
> end;
> finally
> SMTP.Free;
> end;
> end;
>
>
Prevod formulare na frame
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 26.10.2005 11:48:03
Myslim, ze by to stacit melo...
Pak to pro jistotu otevri jeste jednou v Delphi aby ti to samo zahlasilo,
ktere property tim ztracis (nebo pribydou)... Parkrat jsem to tak taky
delal.
Lepsi nez se ptat na to, co muzes vyzkouset je provest zalohu aktualniho
stavu a zkusit si to... :-)
Zmena formularovej ikonky Maximize/Normal
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 26.10.2005 10:03:29
Milan Dvorak wrote:
> Kdysi jsem to kdesi videl jakesi komponenty. Ale zaboha ti nereknu kde.
>
Mam pocit, ze v JVCL je nejaka komponenta, co umi na ten horni panel
vykreslit tlacitko a podporuje i styly XP. Vypada to, co vim, uplne jako
klasicke tlacitko od Win. Ve zdrojakach by se mozna dalo inspirovat.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Zmena formularovej ikonky Maximize/Normal
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 26.10.2005 08:10:55
Kdysi jsem to kdesi videl jakesi komponenty. Ale zaboha ti nereknu kde.
Milan
>>> mstevlik(zv)gamo.sk 25.11.2005 17:32 >>>
Urobil som si vlastnu maximalizaciu pri MDI oknach, t.j. ked maximalizujem
MDIchild, tak sa roztiahne na ClientRec MDIformu
Viete mi poradit ako mam prekreslit tu stednu ikonku Maximize/Normal na
take tie dva prekryvajuce sa stvorceky, ze teraz som maximalizovany
Rad by som aby to fungovalo i pri windows xp style
Marian Stevlik
IS programmer
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4372098, 4137935, 4372111
gsm: +421 905 462010
icq: 38493645
Firebird a cestina
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 25.10.2005 20:31:16
Josef SIP wrote:
> Toto jsem zkousel a nepomohlo to.
> Pomohlo znovu vytvorit tabulku s parametrem collate
> JMENO VARCHAR(200) CHARACTER SET WIN1250 COLLATE PXW_CSY
> takto to funguje spolehlive
No tak to je extremne zajimave. Proc by definice collate na sloupci mela
ovlivnovat fungovani kodovani?
Jede to i s jinym collate?
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
zaslani emailu pomoci Delphi nebo C++Builderu
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 25.10.2005 19:02:44
v konfere jsem s uspechem nalezl toto vyuzivajici Indy ... jenze to
nefunguje s chybou "Sorry, that domain isn't in my list of allowed rcpthosts
#5.7.1". zkousel sem pouzit i C++Builder a jeho starou komponentu NMSMTP ale
stejna s trochu jinym nazvem ... skoro bych se vsadil ze je to kvuli tomu
overovani ("Server pozaduje overeni") jak se pred nejakou dobou zavedlo ...
vi nekdo co s tim?
procedure SendMail(aSMTPServer: string; aSubject: string; aTo: string;
aFrom: string; aText: string);
var
SMTP: TIdSMTP;
Msg: TIdMessage;
begin
SMTP := TIdSMTP.Create(nil);
try
Msg := TIdMessage.Create(SMTP);
with Msg do
begin
//Charset := 'win-1250';
//ContentType := 'Text/Plain; Charset = "win-1250"';
//ContentTransferEncoding := '8bit';
Subject := aSubject;
Recipients.EMailAddresses := aTo;
From.Text := aFrom;
Body.Text := aText;
Priority := mpNormal;
end;
with SMTP do
begin
Host := aSMTPServer;
Connect;
try
Send(Msg);
finally
Disconnect;
end;
end;
finally
SMTP.Free;
end;
end;
Zmena formularovej ikonky Maximize/Normal
[*] mstevlik(zv)gamo.sk - 25.10.2005 17:32:13
Urobil som si vlastnu maximalizaciu pri MDI oknach, t.j. ked maximalizujem
MDIchild, tak sa roztiahne na ClientRec MDIformu
Viete mi poradit ako mam prekreslit tu stednu ikonku Maximize/Normal na
take tie dva prekryvajuce sa stvorceky, ze teraz som maximalizovany
Rad by som aby to fungovalo i pri windows xp style
Marian Stevlik
IS programmer
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4372098, 4137935, 4372111
gsm: +421 905 462010
icq: 38493645
Jak nasimulovat stisk Alt+0182
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 25.10.2005 17:21:47
> A co poslat jenom #$B6 ?
To jsem samozrejme zkousel jako prvni, ale otevre mi to zahadne "Tento
pocitac".
Delam to takhle:
Key:=$B6;
keybd_event(Key, MapVirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(Key, MapVirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY or
KEYEVENTF_KEYUP, 0);
Firebird a cestina
[*] Josef SIP <conf(zv)sipj(tec)net> - 25.10.2005 17:15:22
Toto jsem zkousel a nepomohlo to.
Pomohlo znovu vytvorit tabulku s parametrem collate
JMENO VARCHAR(200) CHARACTER SET WIN1250 COLLATE PXW_CSY
takto to funguje spolehlive
Dik za pomoc
Josef Sip
|Zkus SELECT * FROM UZIV WHERE JMENO like _WIN1250'%Ales%'
|
|Jinak collate na to nema vliv - to ma vliv na sortovani.
Jak nasimulovat stisk Alt+0182
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 25.10.2005 16:48:54
A co poslat jenom #$B6 ?
Vaclav Sazima
Karel Pecinka wrote:
> jak se da nasimulovat stisk Alt + 0182, resp. vypsat znak oddelovace do
> aktualniho ovladaciho prvku?
Jak nasimulovat stisk Alt+0182
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 25.10.2005 14:36:20
Zdar,
jak se da nasimulovat stisk Alt + 0182, resp. vypsat znak oddelovace do
aktualniho ovladaciho prvku?
Zkousel jsem napr. zmacknout Alt pres keybd_event, pak postupne 0182 a
pak uvolnit Alt, ale nic to nedela. Bez toho altu mi to krasne vypise
0182.
Diky za napady.
Karel
Databaze v Personal
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 25.10.2005 14:25:29
Precti si napr.
http://www.progdigy.com/modules.php?name=Forums&file=viewtopic&t=1347&highlight=personal+edition
Podle toho by ty UIB meli fungovat minimalne pod Delphi 6 PE.
Pomoci googlu se daj take najit napr komponenty KADAO PE, ktere o sobe
take tvrdi ze funguji pod Delphi PE (http://kadao.dir.bg/) takze by
zpusob mel existovat
Pavel Poles
Petr Berek napsal(a):
>Odepisovat uz nemusis. Nasel jsem nejaky DataSet, ale pri jeho pouziti
>mi to napsalo, ze k tomu neni Delphi licencovan, takze to nepujde.
>
>Petr
>
>25.11.05, Pavel Poles <delphi(zv)noni(tec)cz>:
>
>
>>Myslim ze v Delphi Personal neni zasadni komponenta TDataSet.
>>Kazdopadne napriklad na strankach UIB lze najit jakysi
>>alternativni DataSet, tak ten by snad mohl pomoct.
>>
>>Pavel Poles
>>
>>
>
>
>
>
Too Many passwords
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 25.10.2005 14:29:55
Ahoj,
zkusenosti s tim zadne nemam, ale vim ze paradox ma tato omezeni:
Passwords per session : 100
Password length : 15
Passwords per table : 63
> Ahoj, nevite nekdo co znamena hlaska viz %subj%, cislo chyby 9490?
>
> Projevilo se mi to u jedne starsi sitove aplikaci vyuzivajici BDE -
Paradox
Databaze v Personal
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 25.10.2005 13:47:01
Odepisovat uz nemusis. Nasel jsem nejaky DataSet, ale pri jeho pouziti
mi to napsalo, ze k tomu neni Delphi licencovan, takze to nepujde.
Petr
25.11.05, Pavel Poles <delphi(zv)noni(tec)cz>:
> Myslim ze v Delphi Personal neni zasadni komponenta TDataSet.
> Kazdopadne napriklad na strankach UIB lze najit jakysi
> alternativni DataSet, tak ten by snad mohl pomoct.
>
> Pavel Poles
Databaze v Personal
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 25.10.2005 13:44:36
Snad, v personal jsemnikdy nedelal, takze nevim jestli nebude chybet
jeste neco,
ale rekl bych ze by mel stacit ten DataSet a pak nejake komponenty pro
samotny
pristup k te ktere databazy (napr ty UIB pro Interbase/Firebird/Yaffil).
Stranky jsou http://www.progdigy.com/
Pavel Poles
Petr Berek napsal(a):
>Takze jestli tomu spravne rozumim, staci nekde sehnat nejaky DataSet a
>muzu databaze pouzivat.
>Muzes mi prosim napsat nejaky odkaz na stranky UIB?
>Diky
>Petr
>
>25.11.05, Pavel Poles <delphi(zv)noni(tec)cz>:
>
>
>>Myslim ze v Delphi Personal neni zasadni komponenta TDataSet.
>>Kazdopadne napriklad na strankach UIB lze najit jakysi
>>alternativni DataSet, tak ten by snad mohl pomoct.
>>
>>Pavel Poles
>>
>>Petr Berek napsal(a):
>>
>>
>>
>>>Zdravim,
>>>
>>>nevite nekdo, jestli je mozne v Delphi 2005 Personal pouzivat
>>>databaze? Nekde jsem cetl, ze je mozne stahnout komponenty pro mysql a
>>>bezi to i na personal. Muzete mi nekdo prosim poradit?
>>>
>>>Diky,
>>>Petr
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
>
Designtime - Collection editor u kolekce vnorene d
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 25.10.2005 13:26:09
Tak po dvou dnech hledani uz si muzu odpovedet sam:
Problem se vyresi tak, ze TMyPersistent musi predefinovat metodu
GetOwner. To je vse.
Karel Kral napsal(a):
> Ahoj,
> nemuzete mi nekdo poradit s tim, jak zprovoznit Collection editor u
> property typu TCollection vnorene do objektu TPersistent?
>
> Asi to neni moc pochopitelne, proto podrobneji:
> Pokud vytvorim komponentu TMyComponent a nadefinuji ji jednu property
> typu TMyCollection (v priklade se jmenuje Collection), pak se mi v
> designtime normalne otevre pri poklepani na tri tecky u teto property
> standardni collection editor. Ale pokud je tato stejna kolekce vnorena
> jako property objektu TMyPersistent (zde Persistent.Collection),
> collection editor se neotevre.
>
> Nevite, v cem muze byt kouzlo a jak to zprovoznit?
>
>
> Zde je testovaci zdrojak:
>
> unit CollTest;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
> Forms,
> Dialogs;
>
> type
> TMyComponent = class;
>
> TMyCollection = class(TOwnedCollection);
>
> TMyCollectionItem = class(TCollectionItem)
> private
> FStringProp: string;
> published
> property StringProp: string read FStringProp write FStringProp;
> end;
>
> TMyPersistent = class(TPersistent)
> private
> FCollection: TMyCollection;
> procedure SetCollection(const Value: TMyCollection);
> public
> constructor Create(AComponent: TComponent);
> destructor Destroy; override;
> published
> property Collection: TMyCollection read FCollection write
> SetCollection;
> end;
>
> TMyComponent = class(TComponent)
> private
> FCollection: TMyCollection;
> FPersistent: TMyPersistent;
> procedure SetCollection(const Value: TMyCollection);
> procedure SetPersistent(const Value: TMyPersistent);
> public
> constructor Create(AOwner: TComponent); override;
> destructor Destroy; override;
> published
> property Collection: TMyCollection read FCollection write
> SetCollection;
> property Persistent: TMyPersistent read FPersistent write
> SetPersistent;
> end;
>
> procedure Register;
>
> implementation
>
> { TMyPersistent }
>
> constructor TMyPersistent.Create(AComponent: TComponent);
> begin
> inherited Create;
> // ani jedna z variant na chovani nic nemeni
> FCollection := TMyCollection.Create(Self, TMyCollectionItem);
> // FCollection := TMyCollection.Create(AComponent, TMyCollectionItem);
> end;
>
> destructor TMyPersistent.Destroy;
> begin
> FreeAndNil(FCollection);
> inherited;
> end;
>
> procedure TMyPersistent.SetCollection(const Value: TMyCollection);
> begin
> FCollection := Value;
> end;
>
> { TMyComponent }
>
> constructor TMyComponent.Create(AOwner: TComponent);
> begin
> inherited;
> FCollection := TMyCollection.Create(Self, TMyCollectionItem);
> FPersistent := TMyPersistent.Create(Self);
> end;
>
> destructor TMyComponent.Destroy;
> begin
> FreeAndNil(FCollection);
> FreeAndNil(FPersistent);
> inherited;
> end;
>
> procedure TMyComponent.SetCollection(const Value: TMyCollection);
> begin
> FCollection.Assign(Value);
> end;
>
> procedure TMyComponent.SetPersistent(const Value: TMyPersistent);
> begin
> FPersistent.Assign(Value);
> end;
>
> procedure Register;
> begin
> RegisterComponents('Purus', [TMyComponent]);
> end; // proc
>
> end.
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Databaze v Personal
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 25.10.2005 13:23:44
Takze jestli tomu spravne rozumim, staci nekde sehnat nejaky DataSet a
muzu databaze pouzivat.
Muzes mi prosim napsat nejaky odkaz na stranky UIB?
Diky
Petr
25.11.05, Pavel Poles <delphi(zv)noni(tec)cz>:
> Myslim ze v Delphi Personal neni zasadni komponenta TDataSet.
> Kazdopadne napriklad na strankach UIB lze najit jakysi
> alternativni DataSet, tak ten by snad mohl pomoct.
>
> Pavel Poles
>
> Petr Berek napsal(a):
>
> >Zdravim,
> >
> >nevite nekdo, jestli je mozne v Delphi 2005 Personal pouzivat
> >databaze? Nekde jsem cetl, ze je mozne stahnout komponenty pro mysql a
> >bezi to i na personal. Muzete mi nekdo prosim poradit?
> >
> >Diky,
> >Petr
> >
> >
> >
> >
> >
>
>
Too Many passwords
[*] Dalibor <dalibor(zv)torola(tec)cz> - 25.10.2005 13:21:17
Ahoj, nevite nekdo co znamena hlaska viz %subj%, cislo chyby 9490?
Projevilo se mi to u jedne starsi sitove aplikaci vyuzivajici BDE - Paradox
Dekuji
Databaze v Personal
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 25.10.2005 12:12:47
Myslim ze v Delphi Personal neni zasadni komponenta TDataSet.
Kazdopadne napriklad na strankach UIB lze najit jakysi
alternativni DataSet, tak ten by snad mohl pomoct.
Pavel Poles
Petr Berek napsal(a):
>Zdravim,
>
>nevite nekdo, jestli je mozne v Delphi 2005 Personal pouzivat
>databaze? Nekde jsem cetl, ze je mozne stahnout komponenty pro mysql a
>bezi to i na personal. Muzete mi nekdo prosim poradit?
>
>Diky,
>Petr
>
>
>
>
Skryti stranky v TJvgPageControl
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 25.10.2005 12:00:21
Hi,
mozna TabVisible := False
Sroub
>HI,
>Omluvte muj prihlouply dotaz:
>Potrebuji skryvat nektere stranky u pagecotrolu (TJvgPageControl).
>Kupudivu nezafungovalo visible:=false
Skryti stranky v TJvgPageControl
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 25.10.2005 11:55:56
HI,
Omluvte muj prihlouply dotaz:
Potrebuji skryvat nektere stranky u pagecotrolu (TJvgPageControl).
Kupudivu nezafungovalo visible:=false
Hezky vikend a
Prijemny zbytek dne
Vasek Zaruba
8^)
Designtime - Collection editor u kolekce vnorene d
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 25.10.2005 10:41:25
Ahoj,
nemuzete mi nekdo poradit s tim, jak zprovoznit Collection editor u
property typu TCollection vnorene do objektu TPersistent?
Asi to neni moc pochopitelne, proto podrobneji:
Pokud vytvorim komponentu TMyComponent a nadefinuji ji jednu property
typu TMyCollection (v priklade se jmenuje Collection), pak se mi v
designtime normalne otevre pri poklepani na tri tecky u teto property
standardni collection editor. Ale pokud je tato stejna kolekce vnorena
jako property objektu TMyPersistent (zde Persistent.Collection),
collection editor se neotevre.
Nevite, v cem muze byt kouzlo a jak to zprovoznit?
Zde je testovaci zdrojak:
unit CollTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs;
type
TMyComponent = class;
TMyCollection = class(TOwnedCollection);
TMyCollectionItem = class(TCollectionItem)
private
FStringProp: string;
published
property StringProp: string read FStringProp write FStringProp;
end;
TMyPersistent = class(TPersistent)
private
FCollection: TMyCollection;
procedure SetCollection(const Value: TMyCollection);
public
constructor Create(AComponent: TComponent);
destructor Destroy; override;
published
property Collection: TMyCollection read FCollection write
SetCollection;
end;
TMyComponent = class(TComponent)
private
FCollection: TMyCollection;
FPersistent: TMyPersistent;
procedure SetCollection(const Value: TMyCollection);
procedure SetPersistent(const Value: TMyPersistent);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Collection: TMyCollection read FCollection write
SetCollection;
property Persistent: TMyPersistent read FPersistent write
SetPersistent;
end;
procedure Register;
implementation
{ TMyPersistent }
constructor TMyPersistent.Create(AComponent: TComponent);
begin
inherited Create;
// ani jedna z variant na chovani nic nemeni
FCollection := TMyCollection.Create(Self, TMyCollectionItem);
// FCollection := TMyCollection.Create(AComponent, TMyCollectionItem);
end;
destructor TMyPersistent.Destroy;
begin
FreeAndNil(FCollection);
inherited;
end;
procedure TMyPersistent.SetCollection(const Value: TMyCollection);
begin
FCollection := Value;
end;
{ TMyComponent }
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited;
FCollection := TMyCollection.Create(Self, TMyCollectionItem);
FPersistent := TMyPersistent.Create(Self);
end;
destructor TMyComponent.Destroy;
begin
FreeAndNil(FCollection);
FreeAndNil(FPersistent);
inherited;
end;
procedure TMyComponent.SetCollection(const Value: TMyCollection);
begin
FCollection.Assign(Value);
end;
procedure TMyComponent.SetPersistent(const Value: TMyPersistent);
begin
FPersistent.Assign(Value);
end;
procedure Register;
begin
RegisterComponents('Purus', [TMyComponent]);
end; // proc
end.
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Vynucene zobrazeni formulare
[*] Ing. Antonin Spurny <spurny(zv)kavlounky(tec)cz> - 25.10.2005 10:41:00
Ahoj,
Vlastik pise:> Pokud je aplikace v neaktivnim nebo minimalizovanem stavu a uzivatel ji
> spusti znovu, aplikace to zjisti a nespusti se, ale posle zpravu jedouci
> instanci, ktera se po teto zprave prevede do aktivniho stavum tzn. jeji
> formular se umisti do popredi. Tato na prvni pohled trivialni operace mne
> velmi potrapila a ani ted nejsem uplne spokojen s tim, jak to pracuje.
>
hledani prez tridu okna a prez jeho nadpis mi neprijde optimalni, treba
pokud se vyskytne nahodne okno se stejnou tridou a stejnym nadpisem (mas ho
otevrene v Delphi...)
pro obnoveni aplikace pouzivam funkci Application.Restore jako ty a pro
uvedeni do okna do popredi pouzivam funkci SetForegroundWindow. Tenkrat,
kdyz jsem tu funkci vymyslel, jsem mel nejake problemy s uvedenim aplikace
do puvodniho stavu a dost zalezelo na tom jake funkce kdy a jak po sobe je
pouziju.
posilam ti priklad toho co pouzivam, urcite neni dokonaly ale funguje celkem
spolehlive vcetne dostavani aplikace do popredi.
Pro signalizaci existence aplikace pouzivam pametove mapovany soubor, ktery
mi dovoluje prenest i nejaka data....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
// Struktura dat, ktera budou ulozena v pametove mapovanem souboru
(FileMapping)
PFileData=^TFileData;
TFileData=Record
WndHandle: THandle;
Parametry: array[0..4, 0..255] of char; //pole pro predani pripadnych
parametru
end;
const
FileMappingSize= SizeOf(TFileData); // Delka pametove mapovaneho souboru
wm_TestSpusteni= wm_User+1000; // Zprava pro zjisteni spusteni kopie
programu
type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
{Promenne pro test jen jedineho spusteni aplikace}
FileMappingName: string; //Jmeno FileMapping
FileMappingHandle: THandle; //Handle FileMapping
public
{ Public declarations }
procedure WMUser ( var msg: TMessage); message wm_TestSpusteni;
function Existuji: bool;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
function TForm1.Existuji: bool;
var Error: integer;
Data: PFileData;
begin
Result:=False;
//Vytvoreni jmena pro FileMapping
FileMappingName:='mem'+ExtractFileName(Application.ExeName);
//Vytvoreni FileMapping zrcadleneho ve strankovacim souboru,
//ktery bude existovat po celou dobu spusteni prvni aplikace
FileMappingHandle:=CreateFileMappingA( $FFFFFFFF,
Nil,
Page_ReadWrite,
0, FileMappingSize,
PChar(FileMappingName));
Error:=GetLastError;
// Vytvori pohled do FileMapping
Data:=MapViewOfFile( FileMappingHandle,
FILE_MAP_WRITE,
0,0,
FileMappingSize);
// Test Existence pohledu
if Data=nil then exit;
// Test jestli uz FileMapping existuje
if Error=ERROR_ALREADY_EXISTS then
begin
Result:=true;
// Pokud ano pak aktivuj drive spustenou instanci, ktera provede
Application.Restore
SendNotifyMessage( Data^.WndHandle, wm_TestSpusteni, 0, 0);
// Poslu okno drive spustene aplikace do popredi
SetForegroundWindow( Data^.WndHandle);
// Zrus pohled do FileMapping
UnmapViewOfFile(Data);
// Zavru pametove mapovany soubor, jiz nebude potreba protoze tato
aplikace se ukonci...
CloseHandle( FileMappingHandle);
end
else
begin
// Jestli ne pak zapis handle hlavniho okna do FileMapping
Data^.WndHandle:=Handle;
// Zrus pohled do FileMapping
UnmapViewOfFile(Data);
end;
// V Destroy nezapomenout zavrit FileMapping
end;
procedure TForm1.WMUser(var msg: TMessage);
begin
// Odezva okna na prijem zpravy oznamujici pokus o spustene dalsi
instance.
Application.Restore;
// Priklad reakce na dalsi spusteni aplikace
ListBox1.Items.Add('Pokus o dalsi spusteni aplikace.');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// zrusi Pametovy soubor a tim da informaci o zavreni programu
CloseHandle( FileMappingHandle);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// ukonceni programu pokud je jiz jednou spusten
if Existuji then Halt(1);
end;
end.
Gumova cara
[*] Jiri Virt <virt(zv)volny(tec)cz> - 25.10.2005 09:36:27
Ahojda,
tak mam jeste jeden problemek :-x
Jakpak kreslit gumovou caru? pres Tshape?
Jirka Virt
Hlaska pri Apply Updates
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 25.10.2005 08:57:29
> Pri ApplyUpdates na TClientDataSet dostanu nasledujici hlasku:
>
> 'Enable to find record. No key specified'.
Ahoj, musis polim nastavit spravne property providerFlags, alespon u jenoho
pole (nejspise nejaky ID) nastav pfInKey.
HTH,
MB
Hlaska pri Apply Updates
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 25.10.2005 08:47:03
Ahoj,
muzete mi prosim poradit ? Mam D6 Ent., Win XP Prof, DTB stroj Oracle.
Pri ApplyUpdates na TClientDataSet dostanu nasledujici hlasku:
'Enable to find record. No key specified'.
Podotykam, ze v Oracle Monitoru NIC neni a Record Update = 1
Vasek
pomoc s prevode PWideChar
[*] david.kopecek(zv)hacktrack(tec)com - 25.10.2005 08:44:38
Zdravim svou nejoblibejsni a nejlepe fungujici konferenci, ;)
Mam takovy problem
mam DLL na hookovani api funkci ve windows, mam vytvorenou uvnitr
vlastni nahradu dane api CreateProcessW
function myCreateProcessW(lpApplicationName:PWideChar;
lpCommandLine:PWideChar;
lpProcessAttributes:PSecurityAttributes;
lpThreadAttributes:PSecurityAttributes;
bInheritHandles:LongBool;
dwCreationFlags:Cardinal;
lpEnvironment:Pointer;
lpCurrentDirectory:PWideChar;
const lpStartupInfo:_STARTUPINFOA;
var lpProcessInformation:_PROCESS_INFORMATION):dword;stdcall;
a u vnitr teto funkce zavolam originalni CreateProcessW
result:=dword(CreateProcessW(lpApplicationName,lpCommandLine,lpProcessAttributes,lpThreadAttributes,bInheritHandles,dwCreationFlags,lpEnvironment,lpCurrentDirectory,lpStartupInfo,lpProcessInformation));
Jenze kdyz spoustim napriklad cpl (control panel objeck) v
ovladacich panelech tak to spadne s chybou na urcite pozici v pameti.
Prisel jsem na to ze to je nekterym s tech PWideChar parametru.. ze
kdyz se to prevadi tak to pokazi a nebo dkyz ten dany parametr si
nekde ulozim do promene..
Nevite nahodoou nemate nekdo skusenosti cim by to mohlo byt ?
H.
Firebird a cestina
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 24.10.2005 23:11:25
Josef SIP wrote:
> a na dotaz 'SELECT * FROM UZIV WHERE JMENO like '%Ales%' ' tedy pokud je
> tam ceska diaktritika tak to hodi chybu
Zkus SELECT * FROM UZIV WHERE JMENO like _WIN1250'%Ales%'
Jinak collate na to nema vliv - to ma vliv na sortovani.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
FB Granty
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 24.10.2005 23:07:00
Pavel Malinsky wrote:
> Ahoj,
>
> lze nejakym zpusobem nastavit granty
> pro jednu roli, aby mela prava na VSECHNY
> objekty v DB (FB 1.5.2) ?
>
> Prikladem:
>
> Mam roli MOJEROLE a potreboval bych se vyhnout
> nastavovani grantu stylem:
>
> GRANT ALL ON Tabulka1 TO MOJEROLE ;
> GRANT ALL ON Tabulka2 TO MOJEROLE ;
> GRANT EXECUTE ON PROCEDURE Proc1 TO MOJEROLE;
> GRANT EXECUTE ON PROCEDURE Proc2 TO MOJEROLE;
>
> Existuje jednoprikazovy zpusob, jak nagratovat
> vsechny objekty(tabulky, procedury, triggery) v DB
> te roli MOJEROLE ?
>
> Neco jako:
>
> GRANT ALL Vsechny_Objekty_V_DB TO APPROLE; ?
>
Mam pocit, ze tohle nejde. ALL lze pouzit jen jako zastupce pro SELECT,
UPDATE, ... a ani tak to neni vhodne (nelze pak odebrat jednotliva
opravneni).
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
delphi 2006 + firebird
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 24.10.2005 23:04:34
Pavel Cisar wrote:
> Petr Vones wrote:
>
>>From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
>>
>>>Ahojky Petre, mohl by jsi byt specifictejsi ohledne nejvyssi verze a
>>>varianty .NET provideru kterou jsi shledal nepouzitelnou ?
>>
>>
>>Vsechny do verze 1.6.3. Problemy byly stale stejne:
>
>
> Mno, aktualni stable je 1.7 (resp. 1.7.1 RC3), vyvojova je 2.0 alpha 3.
> Podle changelogu by 1.7 mela resit vsechny nebo alespon vetsinu problemu
> co zminujes.
Mohu je slova Pavla potvrdit. Na 1.7 jedu uz dlouho a zadne problemy
(zadne fatalni) nemam, a ony zminovane chyby jsou opravdu opraveny -
viz. prave Carlosuv changelog.
Jinak naopak prave 2.0 A3 je celkem nepouzitelna (hlavne nefunguje
poradne s VS2005 - jen CVS build).
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
delphi 2006 + firebird
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 24.10.2005 23:02:08
Pavel Cisar wrote:
> Haj hou!
>
> Radu uzitecnych informaci ohledne pouziti Firebirdu a .NET najdete na
> http://www.dotnetfirebird.org/
>
> s pozdravem
> Pavel Cisar
> IBPhoenix
>
A taky na http://groups.google.com/group/firebird_cz - skupina pro
Firebird CZ.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Vyhledavani - Firebird
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 24.10.2005 22:59:42
Jakub Dusek wrote:
> BTW, pokud neni Firebird uplne mimo, tak poradi sloupcu v indexu
> nemusi byt stejne jako poradi v selectu. Pouze vetsinou musi byt ve
> where vsechna pole pouzita v indexu, u pokrocilejsich databazi staci
> aby tam byly prvni sloupce indexu, a napriklad Oracle umi i SKIP SCAN,
> tzn. vyuzit index pokud je ve where pouze pole na 2. a dalsich
> mistech.
Firebird umi pouzit index jen pokud kompozitni index je na sloupcich co
jsou ve where. Pokud je komp. index pres jine sloupce, lze pouzit jen
dany prefix
Pr.:
index na sl. a,b,c (dohromady)
... where a=1 AND b=1 [OK]
... where b=1 AND a=1 [OK]
... where a=1 [OK]
... where a=1 AND f=1 [OK]
index na sl. c,b,a (dohromady)
... where a=1 [KO]
Obecne bude lepsi udelat 4 indexy pres dane sloupce.
Ono stejne pres 4 varchar(50) (win1250 (na collate uz nezalezi) na FB
1.5 kompozitni index neudela (8 bajtu bude chybet). Nehlede na to, ze
tento index by se dal pouzit jen na tenhle vyber, kdezto 4 indexy se
hodi i jinde.
Jinak pokud budou mit indexy spatnou selectivitu, doporucuju casto
aktualizovat (a podivat se jestli je optimalizator vubec pouzije, nekdy
je vyhodnejsi pouzit "blbyL natural pruchod), nebot jinak budou na obtiz.
Uf, to jsem nejak mimo misu. :)
Jinak k tematu, pokud se bude casto hledat a treba pouzivat i like, atp.
bude mozna vhodne vybudovat nejaky fulltext index (Lucene, atp.). Jinak
myslim, ze select pres 4 varchary nejni zas tak nejhorsi (cti videl jsem
i horsi).
Firebird(CZ) diskuze: http://groups.google.com/group/firebird_cz
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Databaze v Personal
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 24.10.2005 21:19:11
Zdravim,
nevite nekdo, jestli je mozne v Delphi 2005 Personal pouzivat
databaze? Nekde jsem cetl, ze je mozne stahnout komponenty pro mysql a
bezi to i na personal. Muzete mi nekdo prosim poradit?
Diky,
Petr
Vyhledavani - Firebird
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 24.10.2005 15:30:22
Napsal jsem 'zavani spatnym navrhem' :)
Nepovazuju za standardni tento typ dotazu (where pres ctyri varcharove
sloupce), i kdyz si dokazi predstavit zadani, kde se tomu nevyhnu. Ale u
takovehoto pripadu (uz protoze tak neni LIKE ale hleda se presna podoba)
vidim automaticky dotaz typu WHERE barva = "modra" misto WHERE id_barvy = 1.
Jinak bych si 'inteligenci' Firebirdu nebyl moc jisty, dava ruzne casy
pro vraceni dotazu pri zmene poradi podminek ve where, aspon z moji
zkusenosti s 1.0 a 1.5, tzn. neumi si sam dobre vyhodnotit poradi
pouziti podminek podle 'vyhodnosti' pouzitych indexu. Nevim, jestli jsem
to napsal srozumitelne, proste se me vyplatilo s tim experimentovat,
nekterym dotazum to dost pomohlo.
Rosta
Jakub Dusek wrote:
>Ahoj,
>co je na tom za spatny navrh databaze? :)
>
>Jinak, index pres 4 sloupce musi urcite pomoci (pokud chces vyhledat
>tak jak pises a ne fulltextove pres LIKE), 4 sloupce o velikosti 50
>znaku musi mit brutalni selektivitu (pokud do tech 50 znaku neukladas
>malo ruznych hodnot). Samozrejme prinese trochu navyseni velikosti.
>Pokud vyhledavas vzdy podle tech 4 sloupcu, zamyslel bych se nad tim
>jestli nema dobrou selektivitu uz jeden sloupec z nich. Potom staci
>udelat index jen na ten jeden, tech par radku co to pak vrati je pro
>databazi jednoduche profiltrovat podle dalsich poli.
>
>BTW, pokud neni Firebird uplne mimo, tak poradi sloupcu v indexu
>nemusi byt stejne jako poradi v selectu. Pouze vetsinou musi byt ve
>where vsechna pole pouzita v indexu, u pokrocilejsich databazi staci
>aby tam byly prvni sloupce indexu, a napriklad Oracle umi i SKIP SCAN,
>tzn. vyuzit index pokud je ve where pouze pole na 2. a dalsich
>mistech.
>
>Jakub Dusek
>
>
>
Vyhledavani - Firebird
[*] Jakub Dusek <conference(zv)corexpert(tec)com> - 24.10.2005 14:35:53
Ahoj,
co je na tom za spatny navrh databaze? :)
Jinak, index pres 4 sloupce musi urcite pomoci (pokud chces vyhledat
tak jak pises a ne fulltextove pres LIKE), 4 sloupce o velikosti 50
znaku musi mit brutalni selektivitu (pokud do tech 50 znaku neukladas
malo ruznych hodnot). Samozrejme prinese trochu navyseni velikosti.
Pokud vyhledavas vzdy podle tech 4 sloupcu, zamyslel bych se nad tim
jestli nema dobrou selektivitu uz jeden sloupec z nich. Potom staci
udelat index jen na ten jeden, tech par radku co to pak vrati je pro
databazi jednoduche profiltrovat podle dalsich poli.
BTW, pokud neni Firebird uplne mimo, tak poradi sloupcu v indexu
nemusi byt stejne jako poradi v selectu. Pouze vetsinou musi byt ve
where vsechna pole pouzita v indexu, u pokrocilejsich databazi staci
aby tam byly prvni sloupce indexu, a napriklad Oracle umi i SKIP SCAN,
tzn. vyuzit index pokud je ve where pouze pole na 2. a dalsich
mistech.
Jakub Dusek
----------------------------------------------------------------------
web : http://corexpert.com, mobile : +420 724 505 904, ICQ : 8606 3232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Thursday, November 24, 2005, 1:56:35 PM, you wrote:
RL> Ahoj, zadny lepsi dotaz asi nevymyslis, zavani to spatnym navrhem db ...
RL> co urcite trochu pomuze, je index pres vsechny ctyri sloupce, pokud ho
RL> tam jeste nemas. Rosta
RL> CREATE INDEX i_xx ON xx (sl1,sl2,sl3,sl4), poradi sloupcu musi byt
RL> stejne jako v dotazu
RL> Dalibor wrote:
>>Ahoj, potreboval bych co nejrychleji vyhledavat ve ctyrech varcharovych sloupcich najednou. Neco jako Select * from xx where sl1="xx" and sl2="xx" and ...
>>Kazdy sloupec je definovan jako Varchar(50) Win1250.
>>Muzete mi poradit nejake reseni?
>>
>>D7, Firebird 1.5
>>
>>
>>
>>
>>
>>
>>
>>
>>
Vyhledavani - Firebird
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 24.10.2005 14:31:28
Ahoj,
Rostislav Lekes napsal(a):
> CREATE INDEX i_xx ON xx (sl1,sl2,sl3,sl4), poradi sloupcu musi byt
> stejne jako v dotazu
mozna lepsi udelat 4 samostatne indexy a nechat FB, at se s tim
popere. vysledek by mel byt stejny, akorat pokud zrovna nebudes
potrebovat vyhledavat podle vsech polozek, tak se ti to sikne rozdeleny.
peca
Vyhledavani - Firebird
[*] Kalhous <kalhous(zv)eu(tec)cz> - 24.10.2005 14:19:02
A proc "neco jako"? Kdyz pomineme skutecnost ze asi tabulka se nejmenuje
stejne jako hledany obsah (xx) tak na konstrukci
SELECT * FROM tabulka WHERE SL1='neco1' AND SL2='neco2' AND ...
neni zadny problem. Pokud jde o rychlost tak bych zacal "standardnimi"
pravidly - treba misto * cist jen sloupce ktere opravdu potrebuju (nejlepe
jen PK), poradi dotazu usporadat podle sily restrikce ....
Z.Kalhous
> Ahoj, potreboval bych co nejrychleji vyhledavat ve ctyrech varcharovych
> sloupcich najednou. Neco jako Select * from xx where sl1="xx" and sl2="xx"
> and ...
Vyhledavani - Firebird
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 24.10.2005 13:56:35
Ahoj, zadny lepsi dotaz asi nevymyslis, zavani to spatnym navrhem db ...
co urcite trochu pomuze, je index pres vsechny ctyri sloupce, pokud ho
tam jeste nemas. Rosta
CREATE INDEX i_xx ON xx (sl1,sl2,sl3,sl4), poradi sloupcu musi byt
stejne jako v dotazu
Dalibor wrote:
>Ahoj, potreboval bych co nejrychleji vyhledavat ve ctyrech varcharovych sloupcich najednou. Neco jako Select * from xx where sl1="xx" and sl2="xx" and ...
>Kazdy sloupec je definovan jako Varchar(50) Win1250.
>Muzete mi poradit nejake reseni?
>
>D7, Firebird 1.5
>
>
>
>
>
>
>
delphi 2006 + firebird
[*] Peter Ondras <konfery(zv)pse.sk> - 24.10.2005 13:46:09
>
> - dale nejake problemy s kodovanim cestiny, ale to jsem nakonec
nastesti
> nepotreboval.
Ako ovplyvnuje fb .net data provider kodovanie? Mohol by si to blizsie
vysvetlit? Ja som s tym robil len skusobne vo webmatrixe rok dozadu
(neviem ako verzie fb data providera to bola) a skusal som citat aj z
pola ktore malo slovenske kodovanie a slovenske zoradenie a bolo to bez
problemov. Kodovanie predsa ovplyvnuje databaza. Alebo bol problem pri
zapise?
Vyhledavani - Firebird
[*] Dalibor <dalibor(zv)torola(tec)cz> - 24.10.2005 13:39:43
Ahoj, potreboval bych co nejrychleji vyhledavat ve ctyrech varcharovych sloupcich najednou. Neco jako Select * from xx where sl1="xx" and sl2="xx" and ...
Kazdy sloupec je definovan jako Varchar(50) Win1250.
Muzete mi poradit nejake reseni?
D7, Firebird 1.5
delphi 2006 + firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.10.2005 13:03:15
Haj hou!
Radu uzitecnych informaci ohledne pouziti Firebirdu a .NET najdete na
http://www.dotnetfirebird.org/
s pozdravem
Pavel Cisar
IBPhoenix
delphi 2006 + firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.10.2005 13:00:50
Petr Vones wrote:
> From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
>
>>Ahojky Petre, mohl by jsi byt specifictejsi ohledne nejvyssi verze a
>>varianty .NET provideru kterou jsi shledal nepouzitelnou ?
>
>
> Vsechny do verze 1.6.3. Problemy byly stale stejne:
Mno, aktualni stable je 1.7 (resp. 1.7.1 RC3), vyvojova je 2.0 alpha 3.
Podle changelogu by 1.7 mela resit vsechny nebo alespon vetsinu problemu
co zminujes.
S pozdravem
Pavel Cisar
IBPhoenix
delphi 2006 + firebird
[*] Petr Vones <konference(zv)petrvones(tec)net> - 24.10.2005 12:46:24
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Ahojky Petre, mohl by jsi byt specifictejsi ohledne nejvyssi verze a
> varianty .NET provideru kterou jsi shledal nepouzitelnou ?
Vsechny do verze 1.6.3. Problemy byly stale stejne:
- pri chybe TCP komunikace (vypadek site, restart serveru behem transakce)
nebylo mozne existujici spojeni uzavrit (vyjimka) a znovu otevrit (opet
vyjimka).
- v nekterych operacich (tusim ze parametry SP) to zcela ignorovalo jmena
parametru a posilalo dle poradi vytvareni jednotlivych objektu parametru.
- dale nejake problemy s kodovanim cestiny, ale to jsem nakonec nastesti
nepotreboval.
- po Commit/Rollback transakce obcas (tak 1x z 1000 pripadu) vypadla nejaka
zcela nesmyslna vyjimka ktera se pak tahla vsemi naslednymi operacemi
Jediny zpusob jak to nouzove pouzivat byl mit vsechny objekty pro connection,
transakce, SP a jejich parametry apod v jedne tride (rekneme neco jako
datamodul v Delphi) a pri prvni "podezrele" vyjimce uzavrit spojeni (vsechny
dalsi vyjimky ignorovat), uvolnit (tedy Dispose) vsechny existujici objekty
ktere byly aktivni v nejake cinnosti s databazi (opet ignorovat vsechny
pripadne vyjimky) a pokusit se cely tento "datamodul" vytvorit znovu. Pokud se
toho povedlo byl cca 99% uspech ze slo opet pokracovat. Navic slo pouze o
jedno soucasne spojeni.
Petr Vones
FB Granty
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 24.10.2005 12:41:58
Ahoj,
lze nejakym zpusobem nastavit granty
pro jednu roli, aby mela prava na VSECHNY
objekty v DB (FB 1.5.2) ?
Prikladem:
Mam roli MOJEROLE a potreboval bych se vyhnout
nastavovani grantu stylem:
GRANT ALL ON Tabulka1 TO MOJEROLE ;
GRANT ALL ON Tabulka2 TO MOJEROLE ;
GRANT EXECUTE ON PROCEDURE Proc1 TO MOJEROLE;
GRANT EXECUTE ON PROCEDURE Proc2 TO MOJEROLE;
Existuje jednoprikazovy zpusob, jak nagratovat
vsechny objekty(tabulky, procedury, triggery) v DB
te roli MOJEROLE ?
Neco jako:
GRANT ALL Vsechny_Objekty_V_DB TO APPROLE; ?
Snad je to srozumitelne co myslim.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
delphi 2006 + firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 24.10.2005 12:33:32
Haj hou!
Petr Vones wrote:
>
> Jestli to bude mozne v Delphi 2006 nevim, ale toho se to vlastne vubec netyka.
> Otazka neni prece na Delphi 2006 ale na obecne jakoukoli .NET aplikaci.
> Podstatne je, ze ten .NET provider ma zkratka pomerne dost chyb.
Ahojky Petre, mohl by jsi byt specifictejsi ohledne nejvyssi verze a
varianty .NET provideru kterou jsi shledal nepouzitelnou ?
S pozdravem
Pavel Cisar
IBPhoenix
Vynucene zobrazeni formulare
[*] Vlastik <bartos(zv)spsmvbr(tec)cz> - 24.10.2005 12:19:06
Vazeni kolegove,
vymyslel jsem si zvlastni zpusob, jak spustit pouze jednu instanci aplikace (D6, W2K).
Samotna aplikace ma tri stavy, aktivni, neaktivni a minimalizovany.
Neaktivni stav automaticky po nastavenem case prejde v minimalizovany.
V minimalizovanem stavu aplikace v urcitych intervalech testuje, zda ji administrator nechce ukoncit.
Pokud je aplikace v neaktivnim nebo minimalizovanem stavu a uzivatel ji spusti znovu, aplikace to zjisti a nespusti se, ale posle zpravu jedouci instanci, ktera se po teto zprave prevede do aktivniho stavum tzn. jeji formular se umisti do popredi. Tato na prvni pohled trivialni operace mne velmi potrapila a ani ted nejsem uplne spokojen s tim, jak to pracuje.
Posilam text oklesteneho programu, ktery obsahuje prazdny formular a timer. Mate-li zkusenosti s API funkcemi a aktivaci oken, zkuste mi poradit, jak zaridit, abych neaktivni okno nemusel minimalizovat pred aktivaci. Zatim to totiz jinak nechodi, presneji receno okno se dostava do kurioznich stavu ve stylu napr.: je na popredi, aktivni, ale nejde minimalizovat, jedine pres taskbar.
Diky za trpelivost.
Vlastik
----------------------------------
unit Activmp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
const WM_GETUP = WM_USER+6666;
interval = 20;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
procedure GettingUp(var Msg: TMessage); message WM_GETUP;
public
{ Public declarations }
end;
var
Form1: TForm1;
Activity: (wasActive,wasInactive,wasHidden);
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var h: THandle;
begin
Form1.Caption:='';
h:=FindWindow('TForm1','MyForm');
Form1.Caption:='MyForm';
if h=0 then exit; // 1st instance
// next instance=activate 1st one & halt
SendMessage(h,WM_GETUP,6666,6666);
Halt(66);
end;
procedure TForm1.GettingUp(var Msg: TMessage);
begin
if (Msg.LParam<>6666) or (Msg.WParam<>6666) then exit;
if GetForegroundWindow=Form1.Handle then exit; // never happens ?
if not IsIconic(Application.Handle) then Application.Minimize; // <<<< toto chci upravit
Application.Restore; // works only if the form is minimized
SetWindowPos(Form1.Handle,HWND_TOP,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var x: string;
begin
if GetForegroundWindow=Form1.Handle
then Activity:=wasActive
else if Activity=wasActive
then Activity:=wasInactive;
if IsIconic(Application.Handle)
then Activity:=wasHidden;
case Activity of
wasActive : begin x:='active';
Timer1.Tag:=interval;
end;
wasInactive: begin x:='-inact '+IntToStr(Timer1.Tag);
Timer1.Tag:=Timer1.Tag-1;
end;
wasHidden : begin x:='hidden '+IntToStr(Timer1.Tag);
Timer1.Tag:=Timer1.Tag-1;
end;
end;
Application.Title:=x;
case Activity of
wasActive : exit;
wasInactive: begin if Timer1.Tag>0 then exit;
Timer1.Tag:=interval;
Application.Minimize;
exit;
end;
wasHidden : begin if Timer1.Tag>0 then exit;
Timer1.Tag:=interval;
end;
end;
// here will be admin break test
end;
end.
delphi 2006 + firebird
[*] Petr Vones <konference(zv)petrvones(tec)net> - 24.10.2005 12:06:40
From: "hlas" <hlas(zv)inmail.sk>
> mame napr. dnes vo firme klasicku win32 databazovu aplikaciu napisanu nad fb
> pomocou ibx komponent. cez net ju prevadzkujeme pomocou vzdialenej plochy.
> toto by sme napr. chceli prepisat do podoby ineternetovej aplikacie
> ovladanej cez prehliadac. bude to mozne v delphi 2006?
Jestli to bude mozne v Delphi 2006 nevim, ale toho se to vlastne vubec netyka.
Otazka neni prece na Delphi 2006 ale na obecne jakoukoli .NET aplikaci.
Podstatne je, ze ten .NET provider ma zkratka pomerne dost chyb.
Petr Vones
delphi 2006 + firebird
[*] horky(zv)cominn(tec)cz - 24.10.2005 07:41:52
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaromir Junek
> > Sent: Wednesday, November 23, 2005 1:59 PM
> > >
> > IBX ma s FB1.5 problemy a proto bych se mu vyhnul.
> From: Milan Tomes [mailto:delphi(zv)haida(tec)cz]
> Sent: Wednesday, November 23, 2005 2:07 PM
>
> Jake problemy mas na mysli ???
Pouzivame TIBConfigService pro nastaveni ForceWrite, Sweep a Page buffers. Pokud je Firebird server nekde v siti, tato komponenta zpusobi vyjimky, neco jako Sluzba neni dostupna.
Pokud je Firebird na lokale, nastaveni parametru probehne bez chyb.
Ostatni komponenty pouzivame bez problemu.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
delphi 2006 + firebird
[*] Jaromir Junek <mirek.junek(zv)worldonline(tec)cz> - 23.10.2005 22:54:51
Milan Tomes napsal(a):
>Jake problemy mas na mysli ???
>
>S pozdravem
>
>Milan Tomes
>
>
>
>>[mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaromir Junek
>>Sent: Wednesday, November 23, 2005 1:59 PM
>>
>>
>>IBX ma s FB1.5 problemy a proto bych se mu vyhnul.
>>
>>
>
>
>
>
>
Zkousel jsem asi pred rokem s D5 Pro + IBX 5.04 aplikaci prevest na
FB1.5 a uz si presne nepamatuji, v cem byl problem, ale byl to pomerne
rozsahly projekt a porad mi tam vyskakovaly chybove hlasky a protoze
jsem to zas tak nutne nepotreboval, tak jsem to dal nezkoumal. Je mozne,
ze od te doby je nejaka novejsi verze IBX, ktera si s tim rozumi. Pro
nove aplikace pouzivam FibPlus k plne spokojenosti.
Mirek
Generator SINEA - pocet zaznamu na stranku
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 23.10.2005 22:14:23
> Pouzivam generatotr sestav SINEA verzi 6.40. Potreboval bych, aby pri
> tisku
> sestavy vystoupil na strance presne definovany pocet zaznamu (napr. 30 -
> ne
> vice, nez je nastavena hodnota) a pak doslo k odstrankovani.
Nejjednodussi reseni je navrhnout predlohu tak, aby se na stranku vesel
prave pozadovany pocet zaznamu (kombinace vysky papiru, tela sestavy a vysky
hlavy a paty stranky). Pak neni potreba nic jineho.
Druhou variantou je skupinovani, zavest fiktivni skupinu s odstrankovanim a
do skupinoveho vyrazu dat neco jako INT(#1/30), podminkou je, ze bude
nektera datova polozka (nebo parametr) odpovidat cislu radku. (Bohuzel, v
tomto pripade nelze pouzit promennou cislo radku, protoze ta jeste neni
vyhodnocena)
Pokud pocet, cislo 30 urcuje programator aplikace, pak jsou dalsi moznosti v
soucinnosti s volajici aplikaci, napriklad:
- odstrankovani metodou NewPage uvnitr obsluhy udalosti OnTiskOddilu
- vytvoreni kalkulovane datove polozky, ktera bude urcovat cislo skupiny
- a asi i dalsi, zalezi na konkretni aplikaci
Vaclav Krmela
Generator SINEA - pocet zaznamu na stranku
[*] Pavel Lavicka <konference(zv)zus(tec)cz> - 23.10.2005 21:23:52
Ahoj vsichni!
Pouzivam generatotr sestav SINEA verzi 6.40. Potreboval bych, aby pri tisku
sestavy vystoupil na strance presne definovany pocet zaznamu (napr. 30 - ne
vice, nez je nastavena hodnota) a pak doslo k odstrankovani. Je tento
problem resitelny primo prostredky generatoru SINEA nebo do nej musim
posilat data po jendotlivych strnakch?
Diky za vsechny rady
Pavel
Firebird a cestina
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 23.10.2005 20:43:24
> tabulka vytvorena takto
> CREATE TABLE UZIV (
> ID INTEGER,
> JMENO VARCHAR(200) CHARACTER SET WIN1250,
> HESLO VARCHAR(200) CHARACTER SET WIN1250,
> ZOBRAZ INTEGER);
Ahoj, musis nastavit spravne jeste collate, takto nejak:
JMENO VARCHAR(200) CHARACTER SET WIN1250
COLLATE PXW_CSY
Nicmene bych ti doporucoval nepouzivat varchar apod., ale na vsechny typy si
vytvor domeny - lepe se s tim pak pracuje, a take tusim FB jinak uklada pro
kazde pole zvlast definici typu, tj. zabira to nejake misto v databazi.
MB
Firebird a cestina
[*] Josef SIP <conf(zv)sipj(tec)net> - 23.10.2005 20:32:57
Mam problem pri vyhledavani s FB 1.5.2
databaze vytvorena s default charset WIN1250
tabulka vytvorena takto
CREATE TABLE UZIV (
ID INTEGER,
JMENO VARCHAR(200) CHARACTER SET WIN1250,
HESLO VARCHAR(200) CHARACTER SET WIN1250,
ZOBRAZ INTEGER);
pri pripojeni z D6 mam zvolenu znak stranku
sql_role_name=3
lc_ctype=WIN1250
pripojeni pomoci TIBDatabase a TIBSQL
a na dotaz 'SELECT * FROM UZIV WHERE JMENO like '%Ales%' ' tedy pokud je
tam ceska diaktritika tak to hodi chybu
Cannot transliterate character between character sets.
Uz opavdu nevim co s tim ? Poradite ?
delphi 2006 + firebird
[*] hlas <hlas(zv)inmail.sk> - 23.10.2005 19:50:29
----- Original Message -----
From: "Petr Vones"
> Mam zkusenosti v Firebird .NET Providerem a povazuji to za zcela
> nepouzitelne.
> Nejen ze se v novejsich verzich nektere chyby neopravili, ale dokonce se
> jeste
> nove objevili. Pro GUI aplikaci co se v "nouzi" shodi a spusti znovu to
> mozna
> jeste pouzit jde, ale napriklad pro Windows Service (nebo web aplikaci) co
> ma
> bezet stale je to opravdu nepouzitelne pro svoji nespolehlivost a
> zaludnost
> (zcela nesmyslne vyjimky, ignorace jmen parametru a zavislost na jejich
> poradi
> v nekterych operacich atd). Firebird je mozna dobra databaze, ale k cemu
> to,
> kdyz se na ni nelze normalne pripojit.
>
> Petr Vones
>
Mozes prosim ta este trochu blizsie rozpisat tie problemy s Firebird .NET
providrom.
fakt to nie je pouzitelne?
mame napr. dnes vo firme klasicku win32 databazovu aplikaciu napisanu nad fb
pomocou ibx komponent. cez net ju prevadzkujeme pomocou vzdialenej plochy.
toto by sme napr. chceli prepisat do podoby ineternetovej aplikacie
ovladanej cez prehliadac. bude to mozne v delphi 2006?
delphi 2006 + firebird
[*] hlas <hlas(zv)inmail.sk> - 23.10.2005 19:24:02
----- Original Message -----
> IBX ma s FB1.5 problemy a proto bych se mu vyhnul.
>
Toho IBX sa az tak nebojim snad to nejako chodit bude
mi momentalne snim robime vo verzii D7 a fb 1.5.2
vcelku sa da povedat ze to chodi. i ked.......
skor mi slo o tie internetove aplikacie....
z toho mam strach...
uz som sa raz popalil na dbexpresse od borlandu a nerad by som to opakoval
Dotykovy display a Delphi5
[*] Peter Ondras <konfery(zv)pse.sk> - 23.10.2005 18:27:31
Ovladace dotykoveho displeja by mali simulovat mys. Cize ak je aplikacia
plne ovladatelna mysou tak bude bez akychkolvek uprav ovladatelna aj
dotykovym displejom. Dotyk je kliknutie mysi.
> -----Original Message-----
> jakym zpusobem v Delphi aplikaci komunikovat s dotykovym displayem -
dotyk
Dotykovy display a Delphi5
[*] Radek KALA <kala(zv)betacontrol(tec)cz> - 23.10.2005 17:59:03
Kdyz jsem naposledy delal s dotykovym displayem, tak jsem se o to
nijak nestaral. Ten dotykovy display je pro mne mys. takze musis
udelat tu aplici tak, aby se dala ovlatad jen mysi s jednim tlacitkem,
musis mit dost velky tlacitka a pod. jakoby jsi tu mys drzel v boxerske
rukavici. tot vse.
> Zdravim,
> jakym zpusobem v Delphi aplikaci komunikovat s dotykovym displayem -
> dotyk atd... ? Dekuji Martin Pavera D5prof.
>
>
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Dotykovy display a Delphi5
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.10.2005 17:54:37
Puvodni zprava ze dne 23.11.2005:
> Zdravim, jakym zpusobem v Delphi aplikaci komunikovat s dotykovym
> displayem - dotyk atd... ?
Uplne normalne jako s nedotykovym displejem a mysi.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OT: Dotykovy display a Delphi5
[*] Martin Pavera <martin.pavera(zv)gmail(tec)com> - 23.10.2005 17:50:12
Zdravim,
jakym zpusobem v Delphi aplikaci komunikovat s dotykovym displayem - dotyk
atd... ?
Dekuji
Martin Pavera
D5prof.
Nastaveni kurzoru
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 23.10.2005 15:15:34
Tak tohle jsem zkousel a nefunguje. Jeste jsem zapomnel rict, ze ten
RichEdit mam v Child okne.
2005/11/23, Vlastimil Burian <vlastax.b(zv)seznam(tec)cz>:
>
> procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift:
> TShiftState);
> begin
> if Key = VK_RETURN then RichEdit1.SetFocus;
> end;
>
>
> > Zdravim,
> >
> > mam RichEdit, toolbar a v nem combobox pomoci ktereho menim velikost
> > pisma. Nemuzu prijit na to, aby po stisknuti klavesy Enter skocil
> > kurzor zpet do RichEdit.
> > Nesetkali jste se tady nekdo s podobnym problemem??
> > Diky za radu.
> > Petr
> >
>
>
>
Jmeno vystupniho souboru
[*] Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz> - 23.10.2005 15:13:09
Co ti brani vysledny soubor ktery budes distribuovat (po uplnem odladeni,
takze treba jednou za mesic) prejmenovat klasicky pruzkumnikem.
Honza
> nevi nekdo jak zadat jmeno souboru ktery vypadne po kompilaci.
> Standardne je to jako jmeno projektu,
Jmeno vystupniho souboru
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 23.10.2005 15:06:43
Tak jsem se na to dival podrobneji a ono to vlastne zmenilo i jmeno
projektu, takze je to nevyhovujici.
23.11.05, Bc. Jiri Cincura <diskuze(zv)cincura.net>:
> Petr Berek wrote:
> > Zdravim,
> > dival jsem se nekde do Project-Options, ale nikde jsem tam takove veci nenasel. Ale co jsem nasel, tak v Delphi 2005 toto lze. Staci otevrit Projekt Manager a tam jednoduse vystupni soubor prejmenovat, ale ve starsich verzich toto nefunguje.
>
> Ja mam D7, takze asi smula. Budu muset asi po kompilaci spoustet nejakej
> batak co mi to prejmenuje.
>
> --
> Bc. Jiri Cincura
> http://www.ID3renamer.com/
> http://www.x2develop.com/
> ICQ: 314711544 | Yahoo!: x2develop
> http://photo.cincura.net/
>
>
delphi 2006 + firebird
[*] radek3311(zv)volny(tec)cz - 23.10.2005 14:30:15
pouzivam Delphi2005 prof. IBX 9.09 a FB 1.52 bez problemu
mozna je reseni problemu s IBX zde:
http://firebird.sourceforge.net/index.php?op=faq
Radek
--
!VANOCE! --- SPORTOVNI DARKY PRO VSECHNY --- Udelejte si radost!
Vanoce bez zbytecnych front. http://www.sportobchod(tec)cz/vanoce/
delphi 2006 + firebird
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 23.10.2005 14:15:49
Ahoj,
Jaromir Junek napsal(a):
> IBX ma s FB1.5 problemy a proto bych se mu vyhnul.
dovolim si oponovat. Na zadne problemy D6 profi + IBX + FB 1.5 jsem
nenarazil. Akorat je potreba si komponenty aktualizovat
(codebase.borland.com)
> Mirek
Peca
delphi 2006 + firebird
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 23.10.2005 14:07:23
Jake problemy mas na mysli ???
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaromir Junek
> Sent: Wednesday, November 23, 2005 1:59 PM
> >
> IBX ma s FB1.5 problemy a proto bych se mu vyhnul.
delphi 2006 + firebird
[*] Jonas Marian <jonas(zv)komercpoj(tec)cz> - 23.10.2005 14:04:58
Ahoj mohl bys to nejak rozvest, s cim konkretne jsou problemy.
Marian
> IBX ma s FB1.5 problemy a proto bych se mu vyhnul.
>
> Mirek
delphi 2006 + firebird
[*] Jaromir Junek <mirek.junek(zv)worldonline(tec)cz> - 23.10.2005 13:58:32
hlas napsal(a):
>chceme prejst z D7 enterprise na D2006 professional
>a chceme na tom vyvyjat intenetove databazove aplikacie
>nad firebirdom.
>
>mate niekto skusenosti s delphi 2006 + firebird
>aj pre win32 aj pre dot.net?
>
>je tam stale ibx kompatibilny s fb 1.5 napr.?
>
>
>
IBX ma s FB1.5 problemy a proto bych se mu vyhnul.
Mirek
Prevod formulare na frame
[*] Cizek.Milan <cizek.milan(zv)seznam(tec)cz> - 23.10.2005 13:54:07
> Ahoj,
> jak co nejjednoduseji prevest jiz vytvoreny formular na frame? Staci v .dfm a
> .pas zmenit TForm na TFrame?
Ahoj,
nejjednodussi cesta je podle meho zavrit delphi, otevrit .pas i .dfm treba v notepadu a potrebnou deklaraci upravit. Je to rychle a delam to tak bezne. Pokud tam mas, nejake metody, ktere TFrame nenabizi, tak to doladis nasledne.
Milan
delphi 2006 + firebird
[*] Petr Vones <konference(zv)petrvones(tec)net> - 23.10.2005 13:49:41
From: "hlas" <hlas(zv)inmail.sk>
> mate niekto skusenosti s delphi 2006 + firebird
> aj pre win32 aj pre dot.net?
Mam zkusenosti v Firebird .NET Providerem a povazuji to za zcela nepouzitelne.
Nejen ze se v novejsich verzich nektere chyby neopravili, ale dokonce se jeste
nove objevili. Pro GUI aplikaci co se v "nouzi" shodi a spusti znovu to mozna
jeste pouzit jde, ale napriklad pro Windows Service (nebo web aplikaci) co ma
bezet stale je to opravdu nepouzitelne pro svoji nespolehlivost a zaludnost
(zcela nesmyslne vyjimky, ignorace jmen parametru a zavislost na jejich poradi
v nekterych operacich atd). Firebird je mozna dobra databaze, ale k cemu to,
kdyz se na ni nelze normalne pripojit.
Petr Vones
Pekna stranka o Delphi
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 23.10.2005 12:51:12
http://www.devsuperpage.com/main.asp obsahuje spoustu prikladu, dobre
clenenych do kategorii, indexove vyhledavani, urcite stoji za to navstivit.
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Komunikace s DLL
[*] delphin(zv)post(tec)cz - 23.10.2005 11:50:41
> int T4ReadData(Ubyte BlockAdress, Ubyte BlockCount, UByte *Data)
> Vim, ze *Data je asi pointer
> (Pointrove nejsou moji kamosi a netusim co s nima)
Domnivam se, ze funkce pozaduje od volajiciho buffer, do ktereho vyplni
udaje, takze bych to prepsal nejak takto:
function T4ReadData(BlockAdress:Byte;BlockCount:Byte;Data:PByte):integer;
stdcall; external 'library.dll';
var BlockAddress:byte;
BlockCount:byte;
Data:array of byte;
begin
BlockAddress:=<...>;
BlockCount:=<...>;
SetLength(Data,BlockCount);
T4ReadData(BlockAddress,BlockCount,(zv)Data[0]);
Komunikace s DLL
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 23.10.2005 11:46:15
Nemohlo by fungovat toto:
var
Data: array[0..3] of Byte;
Result := T4ReadData(Addr, DataCount, (zv)Data[0]);
Petr Fiser.
Komunikace s DLL
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 23.10.2005 11:35:49
Pointer urcite ne, protoze ten je 4-bytovy.
Mozna takto:
function T4ReadData(BlockAddress: byte; BlockCount: byte; var Data: byte):
integer;
Cteni tech dat uz neni tak jednoduche - mohlo by to byt nejak takhle:
var
_Data: array[0..0] of byte;
{$IFOPT R+}
{$DEFINE RANGECHECKS_ON}
{$ENDIF}
{$RANGECHECKS OFF}
(zv)_Data[0] := Data;
for i := 0 to BlockCount{??????} do
Data[i].......
{$IFDEF RANGECHECKS_ON}
{$RANGECHECKS ON}
{$UNDEF RANGECHECKS_ON}
{$ENDIF}
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Venca Zaruba
> Sent: Wednesday, November 23, 2005 11:11 AM
>
> Toto je popis fce
> int T4ReadData(Ubyte BlockAdress, Ubyte BlockCount, UByte *Data)
> Vim, ze *Data je
> asi pointer (Pointrove nejsou moji kamosi a netusim co s nima)
>
> Zatim jsem to predkomolil takto:
>
> Type
> TT4ReadData = function
> (BlockAdress:byte;BlockCount:Byte;Data:Pointer):integer; StdCall;
Jmeno vystupniho souboru
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 23.10.2005 10:32:27
Petr Berek wrote:
> Zdravim,
> dival jsem se nekde do Project-Options, ale nikde jsem tam takove veci nenasel. Ale co jsem nasel, tak v Delphi 2005 toto lze. Staci otevrit Projekt Manager a tam jednoduse vystupni soubor prejmenovat, ale ve starsich verzich toto nefunguje.
Ja mam D7, takze asi smula. Budu muset asi po kompilaci spoustet nejakej
batak co mi to prejmenuje.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Komunikace s DLL
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 23.10.2005 11:11:23
Krasny den vsem,
Prosim o startovaci radu. Mam komunikovat s dll (T4W.dll - ctecka karet), ale funkce jsou popsany pro C. Pri jednodusi syntaxi to docela jde, ale nemohl by mi nekdo prosim prepsat toto pripojeni (melo cist blok az 4 bytu od startovaci adresy).
Toto je popis fce
int T4ReadData(Ubyte BlockAdress, Ubyte BlockCount, UByte *Data)
Vim, ze *Data je asi pointer (Pointrove nejsou moji kamosi a netusim co s nima)
Zatim jsem to predkomolil takto:
Type
TT4ReadData = function (BlockAdress:byte;BlockCount:Byte;Data:Pointer):integer; StdCall;
..
T4ReadData : TT4ReadData;
..
var u1,u2:byte;
u3:pointer;
begin
..
try
(zv)T4ReadData := GetProcAddress(LibHandle, 'T4ReadData');
if not ((zv)T4ReadData = nil) then
Chyba.Caption := inttostr(T4ReadData(u1,u2,u3)) //!!!!!!!!!!!!!
else
RaiseLastWin32Error;
finally
..
// jak nacist z u3 pole bytu...........
Vim, ze je to uplne out, ale prosim o radu ci spis o ukazku jak na to.
DIK
Prijemny zbytek dne
Vasek Zaruba
8^)
Jmeno vystupniho souboru
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 23.10.2005 10:42:53
jmeno vystupniho souboru zmenit nelze (pouze pripona) - musi korespondovat s
nazvem projektu
> nevi nekdo jak zadat jmeno souboru ktery vypadne po kompilaci.
> Standardne je to jako jmeno projektu, ale bych toto potreboval zmenit (a
> kvuli odkazum jinde a i lepsiho nazvu pro me jako programatora), avsak
> beze zmeny nazvu projektu.
Prevod formulare na frame
[*] peca.konference(zv)centrum(tec)cz - 23.10.2005 10:32:02
Ahoj,
jak co nejjednoduseji prevest jiz vytvoreny formular na frame? Staci v .dfm a .pas zmenit TForm na TFrame?
Diky
Petr
Jmeno vystupniho souboru
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 23.10.2005 10:15:36
Zdravim,
dival jsem se nekde do Project-Options, ale nikde jsem tam takove veci nenasel. Ale co jsem nasel, tak v Delphi 2005 toto lze. Staci otevrit Projekt Manager a tam jednoduse vystupni soubor prejmenovat, ale ve starsich verzich toto nefunguje.
Petr
< ------------ Puvodni zprava ------------
< Od: Bc. Jiri Cincura <diskuze(zv)cincura.net>
< Predmet: Jmeno vystupniho souboru
< Datum: 23.11.2005 01:44:58
< ----------------------------------------
< Ahoj *,
<
< nevi nekdo jak zadat jmeno souboru ktery vypadne po kompilaci.
< Standardne je to jako jmeno projektu, ale bych toto potreboval zmenit (a
< kvuli odkazum jinde a i lepsiho nazvu pro me jako programatora), avsak
< beze zmeny nazvu projektu.
<
< Diky JC.
<
< --
< Bc. Jiri Cincura
< http://www.ID3renamer.com/
< http://www.x2develop.com/
< ICQ: 314711544 | Yahoo!: x2develop
< http://photo.cincura.net/
<
<
<
<
<
delphi 2006 + firebird
[*] hlas <hlas(zv)inmail.sk> - 23.10.2005 10:09:10
chceme prejst z D7 enterprise na D2006 professional
a chceme na tom vyvyjat intenetove databazove aplikacie
nad firebirdom.
mate niekto skusenosti s delphi 2006 + firebird
aj pre win32 aj pre dot.net?
je tam stale ibx kompatibilny s fb 1.5 napr.?
Jmeno vystupniho souboru
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 23.10.2005 09:46:43
> nevi nekdo jak zadat jmeno souboru ktery vypadne po kompilaci.
> Standardne je to jako jmeno projektu, ale bych toto potreboval zmenit (a
> kvuli odkazum jinde a i lepsiho nazvu pro me jako programatora), avsak
> beze zmeny nazvu projektu.
pripona jde zmenit directivou {$E <sem prijde pripona bez tecky>}, jestli
jde cely nazev to nevim
Hint - programove vyvolani
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 23.10.2005 09:42:17
tak napadlo me nasledujici ale musi se z pro me neznameho duvodu najet
myskou jak ty rikas, no mozna ti to k necemu bude
procedure TForm1.Timer1Timer(Sender: TObject);
var
HintPoint: TPoint;
begin
ActiveControl.ShowHint := True;
ActiveControl.Hint := 'napoveda k aktualnimu controlu';
HintPoint.X := ActiveControl.Left + 5;
HintPoint.Y := ActiveControl.Top + 5;
HintPoint := ClientToScreen(HintPoint);
Application.ActivateHint(HintPoint);
end;
> Ahoj, nevite nekdo jak programove zobrazit hint aktualniho kontrolu bez
> toho, aby se tam najizdelo myskou?
> Myslim zobrazit tu klasickou bublinu ...
>
> Dik za radu
rozmery formulare ve windows XP
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 23.10.2005 09:39:52
Ahoj,
mam trochu problem s velikosti formularu ve win XP. Osobne mam
veskere graficke opicarny XPcek vypnuty. Jenze kdyz nastavim nejak
velikost a rozmisteni tlacitek, tak na XP s vopicarnama to orizne pravy
a dolni okraj. Potiz je v tom, ze mam spoustu starych formularu (v mnoha
starych projektech). Rozhodne se mi nechce vsechny prolejzat a opravovat
rozmery podle rozmaru grafickeho rozhrani.
Chci se tedy zeptat, mate nekdo nejake sikovne univerzalni reseni?
Neajkou tridu / komponentu / kod, ktery staci vlozit do aplikace /
formulare / predka, ktery by to efektivne vyresil?
Dik
Peca
Hint - programove vyvolani
[*] delphak(zv)centrum(tec)cz - 23.10.2005 09:03:24
Ahoj, nevite nekdo jak programove zobrazit hint aktualniho kontrolu bez toho, aby se tam najizdelo myskou?
Myslim zobrazit tu klasickou bublinu ...
Dik za radu
Nastaveni kurzoru
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 23.10.2005 08:48:58
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
if Key = VK_RETURN then RichEdit1.SetFocus;
end;
> Zdravim,
>
> mam RichEdit, toolbar a v nem combobox pomoci ktereho menim velikost
> pisma. Nemuzu prijit na to, aby po stisknuti klavesy Enter skocil
> kurzor zpet do RichEdit.
> Nesetkali jste se tady nekdo s podobnym problemem??
> Diky za radu.
> Petr
>
Jmeno vystupniho souboru
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 23.10.2005 01:44:04
Ahoj *,
nevi nekdo jak zadat jmeno souboru ktery vypadne po kompilaci.
Standardne je to jako jmeno projektu, ale bych toto potreboval zmenit (a
kvuli odkazum jinde a i lepsiho nazvu pro me jako programatora), avsak
beze zmeny nazvu projektu.
Diky JC.
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Nastaveni kurzoru
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 22.10.2005 22:03:24
Zdravim,
mam RichEdit, toolbar a v nem combobox pomoci ktereho menim velikost
pisma. Nemuzu prijit na to, aby po stisknuti klavesy Enter skocil
kurzor zpet do RichEdit.
Nesetkali jste se tady nekdo s podobnym problemem??
Diky za radu.
Petr
OT - Porovnavac zdrojakov
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 22.10.2005 19:54:49
Taky to p[ouzivam k maximalni spokojenosti. Ale to, co chtel puvodni
tazatel to neumi.
Macko Martin napsal(a):
>
>
> Beyond Compare (http://www.scootersoftware.com/) neni free, ale je dost
> dobrej - umi porovnavat i binarni DFM
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Exec a wait
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 22.10.2005 16:25:43
Kalhous napsal(a):
> Lze nejak docilit toho, aby se muj program zastavil dokud neskonci externi program vyvolany treba pres ShellExecute nebo WinExec ?
> Z.Kalhous
>
>
>
>
JclMiscel.pas
function WinExec32AndWait(const Cmd: string; const CmdShow: Integer):
Cardinal;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
Result := Cardinal($FFFFFFFF);
FillChar(StartupInfo, SizeOf(TStartupInfo), #0);
StartupInfo.cb := SizeOf(TStartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := CmdShow;
if CreateProcess(nil, PChar(Cmd), nil, nil, False, NORMAL_PRIORITY_CLASS,
nil, nil, StartupInfo, ProcessInfo) then
begin
WaitForInputIdle(ProcessInfo.hProcess, INFINITE);
if WaitForSingleObject(ProcessInfo.hProcess, INFINITE) =
WAIT_OBJECT_0 then
begin
if not GetExitCodeProcess(ProcessInfo.hProcess, Result) then
Result := Cardinal($FFFFFFFF);
end;
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;
Exec a wait
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 22.10.2005 16:48:11
tohle je myslim nekolika zpusoby hezky ukazano v knize 1001 Tipu a Triku pro
Delphi pokud ji mas, pokud ne tak si ji kup
> Lze nejak docilit toho, aby se muj program zastavil dokud neskonci externi
> program vyvolany treba pres ShellExecute nebo WinExec ?
> Z.Kalhous
Exec a wait
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 22.10.2005 16:25:18
> Lze nejak docilit toho, aby se muj program zastavil dokud
> neskonci externi program vyvolany treba pres ShellExecute nebo WinExec ?
Treba
function ExecProcess (const CmdLine: String; Minimized: Boolean;
Wait: Boolean): DWORD;
var
SI: TStartupInfo;
PI: TProcessInformation;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
SI.dwFlags := STARTF_USESHOWWINDOW;
if Minimized then
SI.wShowWindow := sw_SHOWMINNOACTIVE
else
SI.wShowWindow := sw_SHOWNORMAL;
if not CreateProcess(Nil, PChar(CmdLine), Nil, Nil, False,
NORMAL_PRIORITY_CLASS, Nil, Nil, SI, PI) then
raise Exception.Create(SysErrorMessage(GetLastError));
CloseHandle(PI.hThread);
if Wait then
begin
WaitForSingleObject(PI.hProcess, INFINITE);
GetExitCodeProcess(PI.hProcess, Result);
end
else
begin
Result := 0;
WaitForInputIdle(PI.hProcess, INFINITE);
end;
CloseHandle(PI.hProcess);
end;
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, 776 347 735, 493 792 569
====================================
Exec a wait
[*] Kalhous <kalhous(zv)eu(tec)cz> - 22.10.2005 16:02:52
Lze nejak docilit toho, aby se muj program zastavil dokud neskonci externi program vyvolany treba pres ShellExecute nebo WinExec ?
Z.Kalhous
Tisk diakritiky z TRichView
[*] delphi(zv)mjsoft(tec)cz - 22.10.2005 15:38:25
Myslim, ze v ovladaci tiskarny bude volba tisknout fonty jako grafiku.
Mohlo by to pomoci.
Karel V.
> Neresil jste nekdo problem s tiskem diakritiky z TRichView?
>
> Mam textovy editor vytvoreny v Delphi 7 vyuzivajici prave
> zminenou komponentu, ale na nekterych tiskarnach (napr. Xerox
> DocuPrint P1210, Minolta PagePro 1100) se spatne tiskne
> diakritika (zatimco napr. z Wordu se tiskne v poradku).
> Aktualizace ovladacu nepomaha. V nekterych pripadech se
> problem vyresil zmenou fontu na "ceske" fonty jako Arial CE.
>
> Nevite kde by mohl byt problem, pripadne jak jej odstranit?
>
> Diky
>
> Petr Capek
> email: petr.capek(zv)haida(tec)cz
Tisk diakritiky z TRichView
[*] Petr Capek <delphi(zv)haida(tec)cz> - 22.10.2005 13:27:50
Zdravim!
Neresil jste nekdo problem s tiskem diakritiky z TRichView?
Mam textovy editor vytvoreny v Delphi 7 vyuzivajici prave zminenou
komponentu, ale na nekterych tiskarnach (napr. Xerox DocuPrint P1210,
Minolta PagePro 1100) se spatne tiskne diakritika (zatimco napr. z Wordu se
tiskne v poradku). Aktualizace ovladacu nepomaha. V nekterych pripadech se
problem vyresil zmenou fontu na "ceske" fonty jako Arial CE.
Nevite kde by mohl byt problem, pripadne jak jej odstranit?
Diky
Petr Capek
email: petr.capek(zv)haida(tec)cz
Prepnout na jinou app
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 22.10.2005 12:27:21
example: ShellExecute(Handle, nil, 'C:\run.exe', nil, nil, SW_SHOWNORMAL);
zalezi na zaverecnem flagu - pokud pouzijes tento tak je aplikace
automaticky aktivni, kazdopadne pokud by se tak nestalo nebo z nejakeho
jineho duvodu bys to chtel obslouzit sam tak ShellExecute vraci handle
instance aplikace cili
var
hApp : THandle;
hApp := ShellExecute(.......);
SetWindowPos(hApp, .......);
> Prikazen ShellExecute spustim v pohode druhou app, ale potrebuji ji
> nastavit, aby byla aktivni
> (okamzite se do ni dalo psat)
Prepnout na jinou app
[*] jiri(zv)bartonek(tec)cz - 22.10.2005 12:08:54
Zdravim,
jen tak narychlo mne napada, co tak pouzit SetForeGroundWindow
podle handle okna ji nastavi jako aktivni.
Zkus prohledat konferenci, nekde sem tam videl i priklad.
s pozdravem
Jiri Bartonek
Odp.: Linker optimizer II
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 22.10.2005 10:06:20
Doporucuji vsem co se chteji zbavit zbytecne linkovanych unit v uses at si stahnou delphi experta cnwizard. Byli by jste nekdy opravdu prekvapeni co jeho uses cleaner vycisti. Umi to v unite, projektu ci adresari.
Prepnout na jinou app
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 22.10.2005 09:19:51
Krasny den preji vsem,
Mam asi zacatecnickou otazecku, ale do dnesniho dne jsem to nepotreboval:
Prikazen ShellExecute spustim v pohode druhou app, ale potrebuji ji nastavit, aby byla aktivni
(okamzite se do ni dalo psat)
Prijemny zbytek dne
Vasek Zaruba
8^)
OT - Porovnavac zdrojakov
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 22.10.2005 09:03:24
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Roland Turcan
> Sent: Monday, November 21, 2005 8:31 AM
>
> Nepoznate nejaky tool, ktorym by sa dali porovnavat tie
> zdrojaky, ktore maju v texte urcity text s druhym zdrojakom?
>
Beyond Compare (http://www.scootersoftware.com/) neni free, ale je dost
dobrej - umi porovnavat i binarni DFM
M.M.