Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TPicture a LoadFromStream
[*] mydelphi(zv)seznam(tec)cz - 15.3.2005 07:02:50
Uz mohu i toho 1.4ty. Jen teda potrebuju vedet kdy to pak bude, abych
tu Ostravu mohl eventuelne prodlouzit, zkratit, nebo posunout o den
dopredu.
Karel
Dobry den,
15. brezna 2005, 2:38:31, napsal jste:
KP> Zdravim,
KP> pouzivam v aplikaci tridu TPicture a rozsirenou knihovnu GraphicEx pro
KP> nacitani dalsich formatu. Vse fungovalo jak ma, ale prisel novy
KP> pozadavek zasifrovat obrazky. Na to potrebuju pracovat se streamy -
KP> jenze trida TPicture nema LoadFromStream. Nevim jak dal - potrebuju si
KP> nejdriv nacist obrazek do streamu, v nem ho upravit podle sveho, a pak
KP> pouzit Picture.LoadFromStream. Kdyz pouziju TJPEGImage, tak mi postup
KP> krasne funguje, ale ja potrebuju obecny TPicture, aby mi to nacetlo
KP> libovolny format.
KP> Jak dostanu LoadFromStream do TPicture, pokud to tedy jde? Nebo existuje
KP> nejaky postup s vyuzitim pretypovani? V techto tridach se moc
KP> neorientuju, vim napr., ze TGraphic ma LoadFromStream, ale je to
KP> abstraktni trida. Diky za kazdou radu.
KP> Karel
--
S pozdravem,
MyDelphi
mailto:mydelphi(zv)seznam(tec)cz
dbGrid a export dat do Excelu
[*] Lada <lada.xt(zv)volny(tec)cz> - 15.3.2005 03:52:36
Zdravim vsechny,
nejak se nemuzu pohnout z mista a tak prosim nekoho, kdo ma zkusenosti s
komponentou MxdbgridExport od MaxComponents o kousek kodu, ktery by me
nasmeroval pri exportu dat z dbGridu do tabulky xls.
Jsem zacatecnik a pomuze mi nejvic prakticky priklad...
Moc dekuju,
Lada
Kodovani DBF
[*] David Klodner <delphikonfer(zv)seznam(tec)cz> - 15.3.2005 02:58:32
Tvuj program jsem si stahnul a zjistil, ze muj soubor je v OEM_Charset a
koleguv soubor je v ANSI_Charset.
To same ukazoval i Total Commander - muj soubor ASCII (znak. sada DOS) a
jeho souboru ANSI (znak Windows).
GetCurCP mi hlasi, ze mam v systemu nastavenou znak. sadu Windows 1250.
Zkousim vsemozne kombinace prekodovani meho souboru tak, abych z nej
vytvoril soubor citelny pro znak. sadu ANSI Windows,
ale nic nezabira.
Nevite nekdo?
David Klodner
> Nazdar,
>
> ak chces, tak si mozes z mojej stranky stiahnut
> program DBFview. Ten ma funkciu prekodovania DBF
> medzi strankami Kamenicky, Latin2, Win1250,
> ISO 8859-2, KOI 8 CS.
>
> Link: http://www.fornex.sk/software/dbfview131.exe
>
> mildy
TPicture a LoadFromStream
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 15.3.2005 02:38:31
Zdravim,
pouzivam v aplikaci tridu TPicture a rozsirenou knihovnu GraphicEx pro
nacitani dalsich formatu. Vse fungovalo jak ma, ale prisel novy
pozadavek zasifrovat obrazky. Na to potrebuju pracovat se streamy -
jenze trida TPicture nema LoadFromStream. Nevim jak dal - potrebuju si
nejdriv nacist obrazek do streamu, v nem ho upravit podle sveho, a pak
pouzit Picture.LoadFromStream. Kdyz pouziju TJPEGImage, tak mi postup
krasne funguje, ale ja potrebuju obecny TPicture, aby mi to nacetlo
libovolny format.
Jak dostanu LoadFromStream do TPicture, pokud to tedy jde? Nebo existuje
nejaky postup s vyuzitim pretypovani? V techto tridach se moc
neorientuju, vim napr., ze TGraphic ma LoadFromStream, ale je to
abstraktni trida. Diky za kazdou radu.
Karel
dokumntacia k ms-xml v delphi
[*] Brano <odber(zv)centrum.sk> - 14.3.2005 22:38:13
dobry den,
v delphi7pe som naimportoval ms-xml4.0 do palety komponentov cez
Project-import type library.
Potreboval by som nejaku dokumentaciu k pouzitiu Ms-xml v delphi, najlepsie
aj s prikladmi, proste cokolvek pouzitelne (okrem Microsoft XML 4.0 Parser
SDK Help) Vdaka za vsetky tipy.Aktivni zdroj dat-TDataSource
[*] Fait <develop(zv)lmss(tec)cz> - 14.3.2005 22:02:10
Ahoj
nemate nahodou nekdo po ruce rutinu, ktera zjisti kteremu TDataSource patri
editacni komponenta na ktere je focus?
Nejak to asi jde, protoze TDataSetActions takhle reaguji........
Jirka
ODBCe - pripojeni s username a password
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 14.3.2005 17:31:51
Ahoj,
ja se pripojuji na MSSQL prez ADO. To je myslim neco jako ODBC ...
Mam komponentu TADOConnection, u ktere pouzivam property
ConnectionString a metodu Open. (taky ma property LoginPromt [True/False] )
Je k tomu i nejaky builder toho ConnectionStringu. Vypada to zhruba takto:
DefConnectString = 'Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=%s;' +
'Data Source=%s;Use Procedure for Prepare=1;Auto Translate=True;' +
'Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False'; with MainConnection do begin
ConnectionString := '';
LoginPrompt := False;
ConnectionString := Format(DefConnectString, ["JmenoDatabaze", "JmenoServeru"]);
Open("Uzivatel", "Heslo"); // TADY O TO TI ASI JDE :-)
GetDefaultDatabase;
DefaultDatabase := AppInfo.DatabaseName;
end;
Stepan o:) -=* zmo <delphi-l(zv)clexpert(tec)cz>, 14.3.2005 16:45 wrote *=-
z> Zdravim,
z> zatim jsem se vzdy pripojoval pomoci ODBCe na MSSQL databazi bez username a
z> hesla (Windows authentication) takto:
z> db := TODBCDatabase.Create (..);
z> with db do
z> begin
z> dsn := ...
z> name := 'Test';
z> end;
z> Ted potrebuji ovsem tomuto pripojeni zadat username a heslo.
v cem programovat PDA s Windows CE 4.2 .Net
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.3.2005 17:21:49
Puvodni zprava ze dne 14.3.2005:
> Pokud si nainstaluju Visual Studio .Net 2003 Enterprise Developer
> (2xCD) tak by to melo byt vse co potrebuji pro aplikaci do WinCE?
Jo.
> A mam tu taky 3xCD MSDN Library for Visual Studio .Net 2003 . Na
> tech je v kostce co?
No na tom jsou informace, ty musis nastudovat.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
v cem programovat PDA s Windows CE 4.2 .Net
[*] konference(zv)sales(tec)cz - 14.3.2005 17:09:48
Behalf Of Jaroslav Kohak
> Takze jeste jednou, aby si byl jjisty kudy se vydat:
> Pokud si nainstaluju Visual Studio .Net 2003 Enterprise
> Developer (2xCD) tak by to melo byt vse co potrebuji pro
> aplikaci do WinCE?
ANO
Ludek
ODBCe - pripojeni s username a password
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 14.3.2005 17:09:48
> zatim jsem se vzdy pripojoval pomoci ODBCe na MSSQL databazi bez
> username a hesla
> db := TODBCDatabase.Create (..);
>
> with db do
> begin
> user := ..
> password := ...
> end;
> ale bohuzel nefunguje. Ma nekdo nejaky napad ?
Ja tedy neznam TODBCDatabase, ale obvykle se to zadava do Params (TDatabase, TIBDatabase, ..., u TADODatabase primo do ConnectionString).
Takze
Database.Params.Values['USER NAME'] := 'franta'
Database.Params.Values['PASSWORD'] := 'xxxx'
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================
ODBCe - pripojeni s username a password
[*] zmo <zmo(zv)volny(tec)cz> - 14.3.2005 16:45:42
Zdravim,
zatim jsem se vzdy pripojoval pomoci ODBCe na MSSQL databazi bez username a
hesla (Windows authentication) takto:
db := TODBCDatabase.Create (..);
with db do
begin
dsn := ...
name := 'Test';
end;
a dale napr.
pomQuery.Database := db;
pomQuery.SQL.Text := ...
pomQuery.Open;
Ted potrebuji ovsem tomuto pripojeni zadat username a heslo. Zkousel jsem
takto
db := TODBCDatabase.Create (..);
with db do
begin
dsn := ...
user := ..
password := ...
name := 'Test';
end;
ale bohuzel nefunguje. Ma nekdo nejaky napad ?
Predem dekuji.
S pozdravem (Regards)
Zdenek Moravec moravec(zv)digitech(tec)cz
TQREXPR a COUNT
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 14.3.2005 16:29:40
Zapletal Martin wrote:
> Mozna se ptam trosicku natvrdle, ale jakym jazykem vubec QRexpr mluvi? Je to
> sql nebo co? Nikdy jsem se tim nezabyval a tak bych rad vedel kde mam cerpat
> informace. Trosku jsem googloval ale nic moc. A pokud pole je float a
> hodnota udava informaci o trvani nejakeho ukolu jak potom vypada zapis?
> '00:00:20' nebo '0.00023148148148'?
> Dik moc
QR pouziva interni evaluator vyrazu, jedna se o relativne jednoduchy
"jazyk" kde se daji pouzivat konstanty, fieldy, operatory a funkce.
Funkce lze libovolne pridavat, mame jich radove desitky vlastnich.
Datove typy jsou pouze ctyri: integer, float, string, boolean. Mame
koupene zdrojaky QR, takze konkretni moznosti evaluatoru je mozne
zjistit z kodu a tudiz jsme nikdy nepotrebovali dokumentaci, bohuzel.
Martin Schayna
TQREXPR a COUNT
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 14.3.2005 15:53:35
Mozna se ptam trosicku natvrdle, ale jakym jazykem vubec QRexpr mluvi? Je to
sql nebo co? Nikdy jsem se tim nezabyval a tak bych rad vedel kde mam cerpat
informace. Trosku jsem googloval ale nic moc. A pokud pole je float a
hodnota udava informaci o trvani nejakeho ukolu jak potom vypada zapis?
'00:00:20' nebo '0.00023148148148'?
Dik moc
>> A jak prosim udelat totez, pokud se pole1='AAA' a pole2='bbb' ?
>
> SUM(IF((pole1='AAA') or (pole2='bbb'),1,0))
>
> Martin Schayna
v cem programovat PDA s Windows CE 4.2 .Net
[*] Jaroslav Kohak <jaroslav.kohak(zv)dites(tec)cz> - 14.3.2005 16:13:39
Takze jeste jednou, aby si byl jjisty kudy se vydat:
Pokud si nainstaluju Visual Studio .Net 2003 Enterprise Developer (2xCD) tak by to melo byt vse co potrebuji pro aplikaci do WinCE?
A mam tu taky 3xCD MSDN Library for Visual Studio .Net 2003 . Na tech je v kostce co?
Dik.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Zahradnik
Sent: Monday, March 14, 2005 4:04 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: v cem programovat PDA s Windows CE 4.2 .Net
Puvodni zprava ze dne 14.3.2005:
> MS vyvojova prostredi moc neznam, takze se budu ptat jako zacatecnik.
> Mame ve firme MSDN. Kdyz vezmu VsualStudio a nainstaluju si
> nejaky to cecko, tak to umi delat i preklad pro win CE, nebo musim
> sehnat specialni verzi vyvojovyho prostredi pro Win CE?
Pokud myslis vyvoj pro Windows Mobile, tak nejlepsi to mas Visual
Studio .NET Professional a delat pod Compact .NET Framework.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
TQREXPR a COUNT
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 14.3.2005 15:35:33
Zapletal Martin wrote:
>>SUM(IF(POLE='AAA',1,0))
>>
> A jak prosim udelat totez, pokud se pole1='AAA' a pole2='bbb' ?
SUM(IF((pole1='AAA') or (pole2='bbb'),1,0))
Martin Schayna
OT: v cem programovat PDA s Windows CE 4.2 .Net
[*] Jaroslav Kohak <jaroslav.kohak(zv)dites(tec)cz> - 14.3.2005 15:49:35
Ahoj,
MS vyvojova prostredi moc neznam, takze se budu ptat jako zacatecnik.
Mame ve firme MSDN. Kdyz vezmu VsualStudio a nainstaluju si nejaky to cecko, tak to umi delat i preklad pro win CE, nebo musim sehnat specialni verzi vyvojovyho prostredi pro Win CE?
Dik za radu Tymi
Naplneni DBComboBoxu - Zacatecnicky dotaz
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.3.2005 15:41:34
> > vybranou hodnotu do databaze, podobne jako DBEdit. Jestli chces mit i
> > roletku oprenou o databazi, pouzij DBLookupComboBox.
>
> A tu bych mel prosim nastavit jak? Zkousel jsem to ruzne, ale bez
> valnych uspechu. :-(
Ahoj,
pisu jen z hlavy, ale lookupcombo uz jsem dlouho nepouzival, tak
uvidime.
DataSource a DataField udavaji, kam se zapisuje kod hodnoty vybrane
polozky. Tj. to same, co bys mel v DBEditu, kdybys ten udaj chtel
zadavat rucne (obvykle nejake ID v master tabulce). Pokud nepouzivas
dbedity a jde ti jen o to, ziskat funkcnost normalniho comboboxu,
majiciho roletku oprenou o ciselnik, tato pole se nechavaji nevyplnena.
DBLookupcombo ma tri property -KeyField, ListField, ListSource.
ListSource obsahuje Datasource k tabulce, ktera ma byt videt v roletce,
KeyField jeji primarni klic, tj. obvykle nejake ID zaznamu, ktere se ma
prenest do pole v DataField. ListField udava nazev pole, ktere ma byt
videt v roletce, obvykle nejaky textovy nazev. V ListField lze uvest i vice
sloupcu (vsechny jsou videt pri rozbaleni roletky), v takovem pripade se
da pomoci ListFieldIndex rict, ktery z tech sloupcu ma byt videt v
combu, kdyz je sbalene. Blize viz help. Snad jsem to moc nepopletl.
David Lebeda
v cem programovat PDA s Windows CE 4.2 .Net
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.3.2005 16:03:38
Puvodni zprava ze dne 14.3.2005:
> MS vyvojova prostredi moc neznam, takze se budu ptat jako zacatecnik.
> Mame ve firme MSDN. Kdyz vezmu VsualStudio a nainstaluju si
> nejaky to cecko, tak to umi delat i preklad pro win CE, nebo musim
> sehnat specialni verzi vyvojovyho prostredi pro Win CE?
Pokud myslis vyvoj pro Windows Mobile, tak nejlepsi to mas Visual
Studio .NET Professional a delat pod Compact .NET Framework.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
v cem programovat PDA s Windows CE 4.2 .Net
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 14.3.2005 16:01:38
Ahoj,
existuje extra edice nejakyho (mozna visual) C (++). Lze ji sosnout
zdarma a ma to cca 200MB. vim ze to existuje, ale vzivote jsem to envidel.
Kazdopadne by bylo imho lepsi jit rovnou do dotNET
(CompactFramework), coz ti umozni vyvoj a odladeni na klasickym PeCe a
pak to jenom soupnes (prelozis) do kapesni varianty. Tohle bude asi taky
k nalezeni a prostudovani u Microsoftu.
Peca
v cem programovat PDA s Windows CE 4.2 .Net
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 14.3.2005 15:59:38
Ahoj, staci Ti Visual Studio a SDK pro konkretni typ OS. SDK jsou
vetsinou volne ke stazeni a urcite budou soucasti MSDN.
Martin
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaroslav Kohak
> Sent: Monday, March 14, 2005 3:50 PM
> Ahoj,
> MS vyvojova prostredi moc neznam, takze se budu ptat jako zacatecnik.
> Mame ve firme MSDN. Kdyz vezmu VsualStudio a nainstaluju si
> nejaky to cecko, tak to umi delat i preklad pro win CE, nebo
> musim sehnat specialni verzi vyvojovyho prostredi pro Win CE?
>
> Dik za radu Tymi
Temp tabulka v FB 1.5
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 14.3.2005 14:27:27
> No, presne tak, TClientDataSet. Uz ho studuju v napovede. Nevi
> jak se stim
> dela. Jeste jsem to nepouzival.
Chova se to velmi podobne jako TTable (a jeji "sestrenice").
Tedy je pouzitelne vsechno jako FindKey, SetRange, IndexFieldNames, Locate, Filter, ....
Navic je to vsechno naramne rychly - je to memory table.
Navic to umi AggregateFields (treba soucet pres radky faktury).
Navic to umi DataSetField - vnorene pole, takze treba radky faktury jsou soucasti jednoho datasetu "faktura".
A pak uz zminene SaveToFile, LoadFromFile.
Jenom si budes asi muset vytvorit v runtime strukturu datasetu - ale na to prijdes. Pokud ne, nekde to vyhrabu.
Ja mam TClientDataSet rad :-)
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================
Temp tabulka v FB 1.5
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 14.3.2005 14:05:25
No, presne tak, TClientDataSet. Uz ho studuju v napovede. Nevi jak se stim
dela. Jeste jsem to nepouzival.
Petr
> Co mas na mysli pod pojmem temp tabulka ?
> V delphi k tomuto slouzi TClientDataSet (ak memory table).
>
> Slavek
>
>> Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik
>> (desitek) polozek, a ja potrebuji vsechny tyto zaznamy do
>> nejake temp tabulky, abych nad temito daty mohl provadet
>> nejake operace? Prochazeni vsech Bookmark znacek a nasledne
>> kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
>>
>
> Temp tabulka v FB 1.5
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 14.3.2005 13:53:24
> Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik
> (desitek) polozek, a ja potrebuji vsechny tyto zaznamy do
> nejake temp tabulky, abych nad temito daty mohl provadet
> nejake operace? Prochazeni vsech Bookmark znacek a nasledne
> kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
Ja bych se vytvareni "temp" tabulek vyhybal.
Osobne jsem toho nazoru, ze pravo na vytvareni tabulek (a vubec jakekoli sahani na metadata) by mel mit jenom OWNER databaze.
Kdyz uz jsou zaznamy na klientovi (oznacene v gridu), tak si je muzes soupnout treba do TClientDataSet a tam si s nimi pak delat, co chces (eventualne vcetne "SaveToFile").
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================
zalohovani MSSQL, pipes
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 14.3.2005 13:51:19
zdravim
delam zalohovani sql serveru od microsoftu a narazil jsem
pokud zalohuji server z pocitace kde je nainstalovan muzu mu predat primo
soubor kam to chci zazalohovat,
pokud to delam pres sit tak to tak nejde - pujde to asi pres pipe, ale to
zas nevim jak a nemuzu na to prijit postrcite me nekdo?
Temp tabulka v FB 1.5
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 14.3.2005 13:45:18
To me taky napadlo, ale nevim jestli je to standardni reseni, tak se ptam
jak to delaji jini.
Ta konstrukce toho prikazu pri nekolika desitkach polozek je docela desiva,
ale jestli se to takhle standardne dela, tak do toho jdu taky.
Petr Fiser
>> Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik
>> (desitek) polozek, a ja potrebuji vsechny tyto zaznamy do
>> nejake temp tabulky, abych nad temito daty mohl provadet
>> nejake operace? Prochazeni vsech Bookmark znacek a nasledne
>> kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
>
> Co treba vybrat oznacene radky pomoci selectu, kde v IN pouzijes seznam
> oznacenych zaznamu:
> SELECT * FROM TABULKA WHERE ID IN(1,10,99,....)
>
> MB
>
>
> Temp tabulka v FB 1.5
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 14.3.2005 13:37:17
Co mas na mysli pod pojmem temp tabulka ?
V delphi k tomuto slouzi TClientDataSet (ak memory table).
Slavek
> Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik
> (desitek) polozek, a ja potrebuji vsechny tyto zaznamy do
> nejake temp tabulky, abych nad temito daty mohl provadet
> nejake operace? Prochazeni vsech Bookmark znacek a nasledne
> kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
> Temp tabulka v FB 1.5
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 14.3.2005 12:37:12
A jeste nejake reseni na muj druhy dotaz by nebylo?
Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik
(desitek) polozek, a ja potrebuji vsechny tyto zaznamy do
nejake temp tabulky, abych nad temito daty mohl provadet
nejake operace? Prochazeni vsech Bookmark znacek a nasledne
kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
Dekuji
Petr Fiser
Konfigurace BDE
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 14.3.2005 13:09:15
> ktere soubory uschovat, kdyz preinstalovavam BDE, abych se mohl jejich
> nakopirovanim po instalaci BDE dostat k puvodni konfiguraci?
> Staci IDAPI.CNF
Zrejme myslis soubor IDAPI.CFG, to by melo stacit (tedy pokud nova verze nepouzije nejaky jiny format, snad ne).
Predevsim ale chci rici, ze je "sebevrazedne" spolehat se na globalni konfiguraci BDE. Obecne vzato ti muze u uzivatele preinstalovat BDE kterykoli autor programu, ktery pro tveho uzivatele taky pise pod BDE. S tim pak nic nenadelas.
Cokoli je v konfiguraci BDE, lze zadat primo do TDatabase (DRIVERNAME, PARAMS) resp. TSession.
Muzes si tak udrzovat svoji konfiguraci treba v ini a do techto komponent to pri startu programu nacpat.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================
Temp tabulka v FB 1.5
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 14.3.2005 13:03:14
> Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik
> (desitek) polozek, a ja potrebuji vsechny tyto zaznamy do
> nejake temp tabulky, abych nad temito daty mohl provadet
> nejake operace? Prochazeni vsech Bookmark znacek a nasledne
> kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
Co treba vybrat oznacene radky pomoci selectu, kde v IN pouzijes seznam
oznacenych zaznamu:
SELECT * FROM TABULKA WHERE ID IN(1,10,99,....)
MB Zarovnani textu do prava v komponente edit
[*] Martin Holik <martin.holik(zv)pchelp(tec)cz> - 14.3.2005 12:57:14
Potrebuji v komponente edit zarovnant text na pravou stranu. Porad se mi
nedari najit cim to udelat.
Da se to nekde nastavit, nebo se musi jit jinudy?
Dekuji
Martin Holik
Konfigurace BDE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 14.3.2005 12:37:12
Nekdy jsou zavisle na verzi BDE, nebo uplnosti instalace BDE...teda myslim
aspon.
Diky - Dalibor.
>
> Radeji si vyexportuj registry...
> Aplikace maji byt napsane tak, aby nebyly zavisle na zadnych aliasech
> definovanych primo v BDE
Naplneni DBComboBoxu - Zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 14.3.2005 12:33:12
> Ahoj,
> pokud si spravne pamatuje, DBComboBox nema na databazi
> napojenou tu rozbalovaci roletku, tu si plnis rucne sam. Jen ti zapise
> vybranou hodnotu do databaze, podobne jako DBEdit. Jestli chces mit i
> roletku oprenou o databazi, pouzij DBLookupComboBox.
> David Lebeda
A tu bych mel prosim nastavit jak? Zkousel jsem to ruzne, ale bez
valnych uspechu. :-(
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
Konfigurace BDE
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 14.3.2005 12:17:10
Ahoj,
> ktere soubory uschovat, kdyz preinstalovavam BDE, abych se mohl jejich
> nakopirovanim po instalaci BDE dostat k puvodni konfiguraci? Staci IDAPI.CNF
> nebo jsem uplne vedle?
Myslis IDAPI.CFG ?
Ano v podstate to stci. Ale pozor ! BDE muze pouzivat jiny
soubor s konfiguraci. Aktualne pouzivany soubor zjistis, asi
nejjednoduseji pomoci BDE Administratoru, kde v titulku okna
mas celou cestu a nazev prave pouzivaneho souboru.
Vaclav Halik
Konfigurace BDE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 14.3.2005 12:23:11
Ano Idapi.cfg.
Diky Dalibor.
> Myslis IDAPI.CFG ?
>
> Ano v podstate to stci. Ale pozor ! BDE muze pouzivat jiny
> soubor s konfiguraci. Aktualne pouzivany soubor zjistis, asi
> nejjednoduseji pomoci BDE Administratoru, kde v titulku okna
> mas celou cestu a nazev prave pouzivaneho souboru.
>
> Vaclav Halik
>
>
>
>
Konfigurace BDE
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 14.3.2005 12:17:10
14.3.2005 Dalibor Faltynek:
> Ahoj,
> ktere soubory uschovat, kdyz preinstalovavam BDE, abych se mohl jejich
> nakopirovanim po instalaci BDE dostat k puvodni konfiguraci? Staci IDAPI.CNF
> nebo jsem uplne vedle?
> Diky Dalibor.
Radeji si vyexportuj registry...
Aplikace maji byt napsane tak, aby nebyly zavisle na zadnych aliasech
definovanych primo v BDE
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Konfigurace BDE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 14.3.2005 12:01:09
Ahoj,
ktere soubory uschovat, kdyz preinstalovavam BDE, abych se mohl jejich
nakopirovanim po instalaci BDE dostat k puvodni konfiguraci? Staci IDAPI.CNF
nebo jsem uplne vedle?
Diky Dalibor.Cestina ve Freereportu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.3.2005 11:45:05
Puvodni zprava ze dne 14.3.2005:
> Dovolil bych si trochu oponovat - mam zkusenosti jak se Sineou tak i
> s FastReportem a Sinea tento souboj naprosto jednoznacne prohrava.
Nasleduje muj osobni nazor - muze se nekomu nelibit, rozhodne tim
nechci nikomu ublizit, je to proste muj nazor a zkusenosti:
Ja jsem Sineu mel (vlastne mam) koupenou, stejne jako jsem mel
QuickReport Professional a ruzne nadstavby typu THSD apod. Vsechno to
stalo za prd a akorat to pro me byly vyhozene penize. Pri vsi ucte k
autorovi generatoru Sinea, ted uz jsem ho sto let nepouzil, ale kdysi
jsem si s nim uzil sve. Pote, co absolutne nefungoval support (slysel
jsem, ze po letech se zlepsil, abych nebyl nespravedlivy), dokupoval
jsem si zdrojove kody proto, abych si mohl opravit trivialni chyby,
aby to vubec na nekterych tiskarnach tisklo. Pozdeji jsem stejne mel
zase jine problemy, ze to na nekterych tiskarnach tisklo dobre, na
nekterych spatne nebo vubec (nektere prvky). Jinak s tim mel problem i
QuickReport, ze si treba cary tiskl jak chtel bez ohledu na rozliseni
tiskarny. Dale, co se tyka vizualniho navrhare sestav, tak se to take
neda srovnavat...
Opravdu jsem si tenkrat uzil s generatorem Sinea u jednoho zakaznika,
ktery mel malou sit asi s 5 pocitaci a 4 tiskarnami. To stelovani
sestav bych nikomu nepral, protoze na kazde z tech tiskaren to tisklo
uplne jinak. A to nebyly vubec slozite sestavy. Ale behal jsem tam
jako kaspar a pro kazdy pocitac jsem musel sestavu jinak upravovat.
Jenze nejvetsi pruser byl, ze zakaznik chtel take tisknout z jednoho
pocitace na vice tiskaren, takze jsem pak musel predelat program a
udelat, aby to jeste nacitalo ruzne sestavy pro ruzne tiskarny,
protoze to proste sladit neslo a neslo. To byl horor, tam jsem stravil
tolik hodin, ze jsem na tom projektu pekne prodelal. A stejne to
nefungovalo uplne ke spokojenosti, vzdycky se tam neco vyskytlo. Pak
mi zakaznik zavolal a hlasil: "Pane Zahradnik, mate tady jeste maly
restik..." a ja myslel, ze me klepne...
Pak jsem si chtel konecne koupit nejaky poradny generator sestav a po
tech zkusenostech a vyhozenych penezich jsem uvazoval o tom nejlepsim
a nejdrazsim, tedy o ReportBuilder od Digital Metaphors. Jenze jsem se
porad nejak nemohl rozhodnout, cena nebyla zrovna mala. A pak jsem
objevil FastReport. Zpocatku jsem mel docela zabrany, protoze Rusko
nemam moc v lasce. Potom jsem ale musel uznat, ze to je neuveritelne
vynikajici software plne srovnatelny s ReportBuilderem v te nejvetsi
edici, ale navic za smesnou cenu.
Ted ve verzi 3 autor zase udelal mnoho zajimaveho, kompletne to
prekopal, implementoval dovnitr primo svou knihovnu skriptingu. Drive
tam take bylo skriptovani, ale ted je to jeste vic pruzne a provazane,
volat lze z kodu Delphi skript v sestave a take naopak ze skriptu kod
Delphi. Ja treba mam radost hlavne ze zoomovani pri navrhu. Kdyz
clovek dela titerne presne sestavy, tak to oceni. A super je take
inplace editing nebo plynule otaceni textu... Ale i spousta jinych
dost dobrych veci pribyla. V podstate ve FastReportu lze udelat
jakoukoliv sestavu zcela bez podpory v kodu, to se rozhodne neda rict
o jinych generatorech snad mimo toho ReportBuilderu, tam by to take
mohlo jit.
Ve FastReportu lze diky skriptovani delat i velmi slozitou sestavu,
ktera se meni za chodu. Jednoduse proto, ze sestava se da ovladat
pomoci skriptu ulozeneho uvnitr sestavy a to uplne stejne jako v
Delphi, tj. je tam pristup ke vsem vlastnostem jednotlivych casti a
prvku. Vyhoda je zrejma, udrzuji jednu jedinou sestavu spolecnou pro
vice podobnych pouziti, a kdyz neco zmenim, menim to pak jen na jednom
miste, cimz usetrim spousty casu.
Priklad 1 - mam takovou sestavu typu faktura. Je to jedna tiskova
sestava a chova se tak, ze vypada ruzne podle obsahu dat. Muze to byt
bud danovy doklad nebo zalohova faktura - meni se nadpis, zobrazuje se
nebo skryva tabulka DPH. Muze byt vystavena k nejake zalohove fakture,
pak se ukazuje ke ktere. Muze byt placena prevodem nebo platebni
kartou, muze byt jiz zaplacena predem. Pak se tam ruzne objevuje text,
ze je jiz zaplaceno pod nejakym variabilnim symbolem nebo platebni
kartou, pripadne se zobrazuje text jako sumarizace: zaplatte tolik a
tolik na tento ucet s temito symboly... A je tam jeste rada dalsich
specifik. Tedy ruzne se meni a mizi texty, barvy, pripadne i cele
child bandy... No a take se me za urcitych okolnosti ta sestava sama
zepta svym vlastnim formularovym okenkem (bez podpory v kodu), zda si
preji nebo nepreji vytisknout nahore hlavicku, protoze vetsinou tisknu
na hlavickovy papir, ale napriklad kdyz se to faxuje nebo prevadi do
PDF, dava to samozrejme samo hlavicku. Kdyz to ridim kodem, tak se to
nepta, kdyz ale chci vytisknout kusovku, pak volim, jestli tisknu na
hlavickovy nebo na normalni papir apod.
Priklad 2 - mam sestavu typu samolepa na zasilku. Slouzi pro normalni
vetsi dopis, doporuceny dopis, doporuceny balik, zasilku EMS apod.
Podle typu zasilky se v leve casti meni informace, zda je to na
dobirku, ukazuje se oranzovy trojuhelnicek a dobirkova castka nebo ne,
a ukazuji se tam "nalepky" doporuceneho dopisu vcetne te nalepky s
podacim cislem.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Cestina ve Freereportu
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 14.3.2005 11:37:05
Zdravim,
nechtel sem vyvolat nejaky flame. Tak trochu sem to tusil, ze to skonci
trochu jako flame. Priste se pokusim vyvarovat podobnych formulaci.
Jinak FastReport jsem nezkousel, ale soude podle ohlasu tady ho urcite
vyzkousim. Ja jsem srovnal Sineu s FreeReportem, coz asi nebylo uplne
ferove.
Take se rozhoduji do ceho jit a na cem stavet projekty. QReport je
nejlepsi cesta do pekel. Takze mne tema docela dost zajima.
Ad Sinea. Ono jde spise o jinou vec. Setkal jsem se s tim, ze velke
mnozstvi potencionalnich zakazniku ma nejaky software, ktery Sineu
pouziva a nejsou ochotni se ucit neco noveho "kdyz oni prej maj tu
Sineu a v ty to prej umnej". FastReport asi casem bude castejsi,
ale ted se mi proste zda ze jej jeste dost lidi nepouziva.
Dalsi otazka je co bude s vyvojem FastReportu. Nepredpokladam
totiz, ze by se na vyvoj produktu Sinea Vaclav Krmela a kolegove
ze dne na den vykaslali a sli prodavat rohliky. Je otazka jestli toto
mohu predpokladat i u FastReportu.
Docela bych uvital vase nazory. Hlavne proto, ze zatim nevim do ceho jit.
Vaclav Halik
> Dovolil bych si trochu oponovat - mam zkusenosti jak se Sineou tak i s
> FastReportem a Sinea tento souboj naprosto jednoznacne prohrava.
> > FastReport jsem nezkousel, ale soude podle FreeReportu je to
> > takove nejake nemastne neslane.
Temp tabulka v FB 1.5
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 14.3.2005 11:29:03
Tohle resime nasledovne:
1. Data detailu natahneme do nejakeho memory datasetu
2. Zobrazime a uzivatel edituje
3. Zahajime transakci
4. Ulozime zmeny master zaznamu
5. Smazeme vsechny detail zaznamy
6. Vlozime vsechny detail zaznamy
7. Pokud se neco nepovede tak rollback jinak commit
Pokud z nejakeho duvodu nemuzes smazat detailove zaznamy, tak to potom
delame takto:
1. Nacteme vsechny detail zaznamy do memory datasetu a zkopirujeme je jeste
do jineho memory datasetu.
2. Jeden z memory datasetu pouzijeme jako podkladovy pro editaci v gridu
3. Pred ukladanim porovname pripadne zmeny nebo to muzes udelat odchycenim
nejake udalosti toho datasetu / gridu a v datasetu si nastavovat priznak -
jen pozor na hierarchii priznaku (napr. pokud jsi zaznam poridil a nasledne
opravil, tak priznak u zaznamu musi zustat tak aby oznacoval NOVY zaznam
apod...)
4. Ulozime vsechny zmeny dle vysledku porovnani nebo dle priznaku s pouzitim
prislusnych prikazu (Insert, Update nebo Delete).
Druhy popisovany zpusob je slozitejsi, ale lze ho celkem jednoduse
zapouzdrit do nekolika malo metod a nabizi celkem bezpecne a spolehlive
reseni vsech pripadu.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Petr Fiser
> Sent: Monday, March 14, 2005 11:17 AM
>
> Jak spravne editovat data v tabulce?
>
> 1. Tabulky jsou propojeny master-detail. Pokud oznacim nejaky
> zaznam v master, jak nacist do nejake temp tabulky data z detailu.
> Jakym zpusobem potom prepsat puvodni data pokud obsluha data ulozi?
>
> 2. Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik
> (desitek) polozek, a ja potrebuji vsechny tyto zaznamy do
> nejake temp tabulky, abych nad temito daty mohl provadet
> nejake operace? Prochazeni vsech Bookmark znacek a nasledne
> kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
Temp tabulka v FB 1.5
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 14.3.2005 11:17:02
Dobry den
Jak spravne editovat data v tabulce?
1. Tabulky jsou propojeny master-detail. Pokud oznacim nejaky zaznam v master, jak nacist do nejake temp tabulky data z detailu.
Jakym zpusobem potom prepsat puvodni data pokud obsluha data ulozi?
2. Jak vyresit situaci, kdy uzivatel oznaci v DBgridu nekolik (desitek) polozek, a ja potrebuji vsechny tyto zaznamy do nejake temp tabulky, abych nad temito daty mohl provadet nejake operace? Prochazeni vsech Bookmark znacek a nasledne kopirovani do temp tabulky je dost pomale. Existuje jine reseni?
Dekuji
Petr Fiser
Naplneni DBComboBoxu - Zacatecnicky dotaz
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.3.2005 11:03:01
> poradit, jak z databaze v MS SQL2000 naplnit DBComboBox daty? Zkousel
> jsem, co me napadlo, ale bez uspechu. Mam urcitou tabulku, napr.:
> Tabulka1, v niz jsou sloupce: Sloupec1 a Sloupec2. A ja potrebuji d
> DBComboBoxu dostat data ze Sloupce2.
Ahoj,
pokud si spravne pamatuje, DBComboBox nema na databazi
napojenou tu rozbalovaci roletku, tu si plnis rucne sam. Jen ti zapise
vybranou hodnotu do databaze, podobne jako DBEdit. Jestli chces mit i
roletku oprenou o databazi, pouzij DBLookupComboBox.
David Lebeda
Cestina ve Freereportu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 14.3.2005 11:01:01
> From: Milan Tomes
>
> V posledni verzi Siney byl dodelan podmineny tisk fontu, ale opet
> nebyl dotazen do konce - podminku je nutno resit zachycenim udalosti
> v projektu :(((
K Sinee lze mit radu vyhrad, ale zrovna toto pravda neni.
Vaclav Krmela
TQREXPR a COUNT
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 14.3.2005 10:53:00
A jak prosim udelat totez, pokud se pole1='AAA' a pole2='bbb' ?
Martin
>
> SUM(IF(POLE='AAA',1,0))
>
> Martin Schayna
>
>
>
> Obsah teto zasilky byl zkontrolovan na pritomnost viru technologii
> BitDefender
>
Cestina ve Freereportu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 14.3.2005 10:44:59
Dovolil bych si trochu oponovat - mam zkusenosti jak se Sineou tak i s
FastReportem a Sinea tento souboj naprosto jednoznacne prohrava. Jedna se
napr. o skriptovani (obrovska zbran), dale take FR umi vytvorit soubor
sestavy, ktery je naprosto samostatny - tj. ma v sobe ulozeny i vsechny
vyberove dotazy a tedy neni nutne zavisly na projektu a v neposledni rade je
prostredi editoru alespon na urovni (Sinea je bohuzel v tomto smeru naprosto
tristni). V posledni verzi Siney byl dodelan podmineny tisk fontu, ale opet
nebyl dotazen do konce - podminku je nutno resit zachycenim udalosti v
projektu :((( Napr. podmineny tisk bandu a programove umistovani bandu na
stranku je v Sinee nemozne...
Ted to vypada, jako bych na Sineu rikal jen spatne, ale neni to tak - u
starsich projektu zatim Sineu pouzivame, ale postupne tyto sestavy
nahrazujeme FastReportem, protoze je proste pro nase potreby mnohem lepsi a
nemusime se v techto potrebach uskromnovat... :)
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Vaclav Halik
> Sent: Saturday, March 12, 2005 4:58 PM
>
> > mate nekdo cestinu ve Freereportu? Vypada to, ze by se to dalo
> > prelozit, ale jestli uz jste to nekdo delal, tak by to byla
> zbytecna prace.
>
> Take by se mne to hodilo. Zacal jsem to prekladat, ale nemohl
> jsem najit vsechny mista, kde sou texty. Je ale fakt, ze sem
> na to nemnel moc casu.
> Hned na zacatku sem se zasek na nejake blbosti. Ted uz nevim.
> Jak sem ale prochazel ty zdrojace je to prace tak na vikend a
> ten tomu nechci venovat.
>
> > Stoji za to koupit si Fastreport? Nebo je jeste neco lepsiho pro
> > tvorbu tiskovych sestav?
>
> FastReport jsem nezkousel, ale soude podle FreeReportu je to
> takove nejake nemastne neslane. Osobne se mi zde lepe
> vyresena Sinea. Mas k tomu slusne demicka. Take to neni nic
> sloziteho. Navic podle reakci autoru (i tady v konfere),
> poprora je bezproblemova.
>
> Vaclav Halik
>
>
>
>
Cestina ve Freereportu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.3.2005 10:34:51
Puvodni zprava ze dne 14.3.2005:
> FR3 ma rezim "dot matrix" prostrednictvim jakehosi exportu. Zatim
> jsem nemel cas poradne vyzkouset. Navrhar se ale nelisi, neni
> "znakove orientovany", tj. je otazka, jak export do znaku dopadne,
> jak si poradi s ruznymi carami, velikostmi fontu apod, posuny po
> bodech apod. Osobne tyto sestavy radeji vytvarim rucne v kodu, kde
> mam plnou kontrolu nad vysledkem.
No v kodu to muzes delat bez ohledu na generator. Ale preci jen v tom
generatoru se to edituje lepe. Kdyz se divam do FastReportu, jak
takova sestava pro znakovy tisk vypada, nevidim v tom nejmensi problem
a edituje se myslim velmi dobre. A snad ocekavam, ze kdyz chces mit
znakovy tisk, nebudes tam zamerne cpat veci, ktere to treba nevytiskne
dobre nebo nejdou tiskout znakove...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Ulozeni e-mailovych zprav do souboru
[*] Ales Orsag <orsag(zv)sps-bruntal(tec)cz> - 14.3.2005 10:34:51
Dobry den,
snazim se vitvorit jednoducheho e-mailoveho klienta pro prijem a odesilani mailu. Potreboval bych nakopnout, jak nejjednodussim zpusobem ulozit stazene zpravy do souboru a pracovat s nimi pak off-line.
D3&synapse, w2k
OT: je nekde k mani archiv konference Delphi pro KonfView
dekuji a preju pekny den
Prubezna aktualizace serveru i klienta
[*] konference(zv)sales(tec)cz - 14.3.2005 10:40:53
On Behalf Of
> Aktualizovat se bude prubezne jak serverova tak i klientska
> cast, ktere
> budou obe vytvorene v Delphi s vyuzitim Synapse.
> Aktualizaci serveru chci resit pomocnou sluzbou, ktera bude na pozadi
> zjistovat pripadne mozne aktualizace.
> Aktualizaci klientske casti chci resit pri jejim spusteni,
> kdy zjisti mozne
> aktualizace, aktualizuje se a az pote se pripoji k serveru.
>
> Nyni mi ale jeste neni zcela jasne, jak zjistovat, zda se
> klient muze k
> serveru pripojit, nebot tento server nemusi byt jeste
> aktualizovany, tzn.
> nebude jeste podporovat ty funkce, ktere jiz aktualizovany klient bude
> vyzadovat.
Ahoj,
Podobnou vec jsem resil tak, ze na zacatku spojeni si server a klient
vymenili svoje verze a oba se zachovali podle potreby.
Myslim, ze spravnejsi postup by byl ten, ze klient se bude upgradovat az ve
chvili, kdy mu k tomu da pokyn server na zaklade zjisteni verze klienta.
Je tam smozrejme moznost spusty situaci v zavislosti na tom jake problemy by
prinasela spoluprace ruznych verzi mezi sebou.
Ludek
Cestina ve Freereportu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.3.2005 10:26:50
Puvodni zprava ze dne 14.3.2005:
> stojim take pred rozhodnutim, jaky generator sestav pouzit v
> aplikaci; pomerne casto budeme pouzivat tisk ve znakovem rezimu (s
> nutnosti vlozit ridici kody pro tiskarnu) a bylo by velmi uzitecne,
> kdyby soucasti generatoru byla i moznost pro uzivatele menit si
> vzhled sestav. Zvladaji tyto veci Sinea nebo FastReport dobre? Popr.
> na jake uskali jste u ceho narazili?
Stahni si tohle demo:
http://www.fastreport.ru/pbc_download/files/fr3demo.exe
To je zkompilovane dem FastReport 3. Tam je halda sestav a prikladu.
Je tam priklad i na znakovy tisk, tak si ho odzkousej.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Prubezna aktualizace serveru i klienta
[*] little_bobes(zv)centrum(tec)cz - 14.3.2005 10:18:50
Zdravim,
dostal jsem za ukol vytvorit urcitou klient/server aplikaci s tim, ze se ma
nejaka nejzakladnejsi verze co nejdrive nainstalovat u zakaznika (na vice
pracovnich stanic) a ktera se bude prubezne aktualizovat podle novych funkci
apod.
Aktualizovat se bude prubezne jak serverova tak i klientska cast, ktere
budou obe vytvorene v Delphi s vyuzitim Synapse.
Aktualizaci serveru chci resit pomocnou sluzbou, ktera bude na pozadi
zjistovat pripadne mozne aktualizace.
Aktualizaci klientske casti chci resit pri jejim spusteni, kdy zjisti mozne
aktualizace, aktualizuje se a az pote se pripoji k serveru.
Nyni mi ale jeste neni zcela jasne, jak zjistovat, zda se klient muze k
serveru pripojit, nebot tento server nemusi byt jeste aktualizovany, tzn.
nebude jeste podporovat ty funkce, ktere jiz aktualizovany klient bude
vyzadovat.
Chtel bych se zeptat, zda jste nekdo neco podobneho resil a jak, pripadne
zda je toto vubec spravna cesta.
Predem dekuji
S pozdravem
Bob (D4 c/s, FB1.5, Synapse)
Cestina ve Freereportu
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 14.3.2005 09:34:46
Cas me tlacil, a tak jsem se rozhodl rychle zakoupit FastReport, a
nelituju. Koupil jsem u P. Zahradnika v nedeli rano a v nedeli odpoledne
jsem mel prvni sestavy. Je to fakt pecka, doporucuju. Bohuzel FreeReport
zapusobi na cloveka trochu negativne, ale tohle je fakt o necem jinem.
Nejvic se mi libi navrhar sestav a tisk carovych kodu. Vse je v cestine
a je tam i moznost prepinat jazyky v programu, coz jsem zatim nezkousel.
Karel
> > stojim take pred rozhodnutim, jaky generator sestav pouzit
> v aplikaci;
> pomerne casto budeme
> > pouzivat tisk ve znakovem rezimu (s nutnosti vlozit ridici kody pro
> tiskarnu) a bylo by
>
>
> FR3 ma rezim "dot matrix" prostrednictvim jakehosi exportu.
> Zatim jsem nemel cas poradne vyzkouset. Navrhar se ale
> nelisi, neni "znakove orientovany", tj. je otazka, jak export
> do znaku dopadne, jak si poradi s ruznymi carami, velikostmi
> fontu apod, posuny po bodech apod. Osobne tyto sestavy
> radeji vytvarim rucne v kodu, kde mam plnou kontrolu nad vysledkem.
>
> > uzitecne, kdyby soucasti generatoru byla i moznost pro
> uzivatele menit
> > si
> vzhled sestav. Zvladaji
> > tyto veci Sinea nebo FastReport dobre? Popr. na jake uskali jste u
> > ceho
> narazili?
>
> Uzivatelsky navrhar ve FR3 je.Naplneni DBComboBoxu - Zacatecnicky dotaz
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 14.3.2005 09:30:40
DD vsem,
omlouvam se za tak zacatecnicky dotaz, ale mohl by mi prosim nekdo
poradit, jak z databaze v MS SQL2000 naplnit DBComboBox daty? Zkousel
jsem, co me napadlo, ale bez uspechu. Mam urcitou tabulku, napr.:
Tabulka1, v niz jsou sloupce: Sloupec1 a Sloupec2. A ja potrebuji d
DBComboBoxu dostat data ze Sloupce2.
K DB se pripojuji pomoci ADO.
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
D6 Ent., Win XP Pro, SP2
Format ABO
[*] Marian Muller <muller(zv)hselectronic.sk> - 14.3.2005 09:28:40
Je to sice popis nejakeho programu, ale na konci je celkom dobre popisany
Format ABO. Mne to stacilo a fungovalo to.
http://www.kalkul(tec)cz/Navody/KALKUL/prikuhra.htm
> nevite nekdo kde najdu info o formatu ABO. Jedna se o format
> pro komunikaci
> s bankou, elektronicke odesilani a prijimani prikazu a vypisu
Format ABO
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 14.3.2005 09:22:39
14.3.2005 Fait:
> Ahoj,
> nevite nekdo kde najdu info o formatu ABO. Jedna se o format pro komunikaci
> s bankou, elektronicke odesilani a prijimani prikazu a vypisu
Kazda banka ma jiny format a krome toho se lisi i formaty jednotlivych
programu, ktere banky postupne pouzivaji.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Format ABO
[*] delphi(zv)kopr(tec)cz - 14.3.2005 09:18:39
Zdravim,
na format ABO je urcity standard, ale kazda banka si dela obcas urcite
zmeny - a nikomu to nerekne. Dale jsou drobne rozdily napr. pro "Moje banka"
a "Profi banka" atd... - nazvy sluzeb u bank se jmenuji ruzne. Doporucuji
rucne zajit do konkretni banky a vyzadat si konkretni materialy. Hlavne se
podivej na datum, zda dane materialy jsou jeste v platnosti.
Az budes programovat tento format, urcute se poohlidni i na format CFD - coz
je format zahranicnich bank.
Pavel ZIDEK
>
> nevite nekdo kde najdu info o formatu ABO. Jedna se o format pro
> komunikaci
> s bankou, elektronicke odesilani a prijimani prikazu a vypisu
Format ABO
[*] iscepko(zv)qgir(tec)cz - 14.3.2005 08:58:37
ABO je sice pojem, ale stejne to ma kazda banka trosicku jinak.
Nejlepe se spojit s konkretni bankou a vyzadat si strukturu.
Kdysi to bylo na netu, ale ted jsem to napriklad u KB nenasel.
Tusim sporitelna, KB a ponekud pozmenene E-banka vyuziva "ABO" format.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Fait
Sent: Monday, March 14, 2005 8:30 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Format ABO
Ahoj,
nevite nekdo kde najdu info o formatu ABO. Jedna se o format pro komunikaci s bankou, elektronicke odesilani a prijimani prikazu a vypisu
Dik Jirka.Cestina ve Freereportu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 14.3.2005 08:32:27
> stojim take pred rozhodnutim, jaky generator sestav pouzit v aplikaci;
pomerne casto budeme
> pouzivat tisk ve znakovem rezimu (s nutnosti vlozit ridici kody pro
tiskarnu) a bylo by
FR3 ma rezim "dot matrix" prostrednictvim jakehosi exportu. Zatim jsem
nemel cas poradne vyzkouset. Navrhar se ale nelisi, neni "znakove
orientovany", tj. je otazka, jak export do znaku dopadne, jak si poradi s
ruznymi carami, velikostmi fontu apod, posuny po bodech apod. Osobne tyto
sestavy radeji vytvarim rucne v kodu, kde mam plnou kontrolu nad vysledkem.
> uzitecne, kdyby soucasti generatoru byla i moznost pro uzivatele menit si
vzhled sestav. Zvladaji
> tyto veci Sinea nebo FastReport dobre? Popr. na jake uskali jste u ceho
narazili?
Uzivatelsky navrhar ve FR3 je.
MB
Format ABO
[*] Fait <develop(zv)lmss(tec)cz> - 14.3.2005 08:30:26
Ahoj,
nevite nekdo kde najdu info o formatu ABO. Jedna se o format pro komunikaci
s bankou, elektronicke odesilani a prijimani prikazu a vypisu
Dik Jirka.
Cestina ve Freereportu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 14.3.2005 08:28:24
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
Ahoj,
> stojim take pred rozhodnutim, jaky generator sestav pouzit v
> aplikaci; pomerne casto budeme
> pouzivat tisk ve znakovem rezimu (s nutnosti vlozit ridici
> kody pro tiskarnu) a bylo by velmi
Na to nedokazu odpovedet, ale to ti rekne urcite nekdo jiny,
predpokladam, ze to maji vyresene.
> uzitecne, kdyby soucasti generatoru byla i moznost pro
> uzivatele menit si vzhled sestav. Zvladaji
Neni problem, soucasti je designer a tam necht si uzivatel
zmeni co libo.
> tyto veci Sinea nebo FastReport dobre? Popr. na jake uskali
Doporucuji FastReport, mel sem moznost pracovat s obojim :\
Jinak neni problem si stahnout demo, kteremu chybi pochopitelne
pouze zdrojaky a nejake omezeni asi na max. pet stranek.
http://www.fast-report.com/en/download/download.php?BID=16
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Cestina ve Freereportu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.3.2005 08:12:20
Fait dne 14 Mar 2005 v 2:09:
> Pred rokem jsme si koupili FastReport........
> Po probdenych nocich nad sestavami v QuickReportu.....jsme se
> nestacili divit, jak dobre lze generator sestav udelat.
>
> Za velmi rozumny peniz je to skutecne velmi kvalitni nastroj...... V
> soucasne dobe ma primo v sobe exporty do PDF, Word, Excel......a ty
> dokonce nemrsi cestinu.....takze usetris za dalsi komponenty pro
> exporty. (plati to pro FastReport 3 profesional.....)
Dobry den,
stojim take pred rozhodnutim, jaky generator sestav pouzit v aplikaci; pomerne casto budeme
pouzivat tisk ve znakovem rezimu (s nutnosti vlozit ridici kody pro tiskarnu) a bylo by velmi
uzitecne, kdyby soucasti generatoru byla i moznost pro uzivatele menit si vzhled sestav. Zvladaji
tyto veci Sinea nebo FastReport dobre? Popr. na jake uskali jste u ceho narazili?
Uz jsem se jednou podobne ptal, mam ale pocit, ze FastReport tenkrat mel dost problemu s cestinou,
a tak jsem ho pro tu chvili v duchu vyradil. QuickReport uz opravdu ne-e :-)
Diky,
Karel Rys
Cestina ve Freereportu
[*] Fait <develop(zv)lmss(tec)cz> - 14.3.2005 02:09:55
> > FastReport jsem nezkousel, ale soude podle FreeReportu je to takove
> > nejake nemastne neslane.
Pred rokem jsme si koupili FastReport........
Po probdenych nocich nad sestavami v QuickReportu.....jsme se nestacili
divit, jak dobre lze generator sestav udelat.
Za velmi rozumny peniz je to skutecne velmi kvalitni nastroj......
V soucasne dobe ma primo v sobe exporty do PDF, Word, Excel......a ty
dokonce nemrsi cestinu.....takze usetris za dalsi komponenty pro exporty.
(plati to pro FastReport 3 profesional.....)
Vrele doporucuji.......a nejlepe koupit u P.Zahradnika......:)
Jirka
FB, predikat IN v ulozene procedure
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 14.3.2005 00:11:46
Slavomir Skopalik wrote:
> Mohlo by ti pomoci EXECUTE STATAMENT:
Diky, to bude ono. EXECUTE me napadlo take, jenom mi nedoslo, ze si vlastne
muzu pridat primo v procedure jenom tu podminku IN, nechtel posilat z
klienta cely pomerne slozity select.
MB
FB, predikat IN v ulozene procedure
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.3.2005 23:35:43
Mohlo by ti pomoci EXECUTE STATAMENT:
CREATE PROCEDURE DynamicSampleThree (
TextField VARCHAR(100),
TableName VARCHAR(100))
RETURNS (Line VARCHAR(32000))
AS
DECLARE VARIABLE OneLine VARCHAR(100);
BEGIN
Line = '';
FOR EXECUTE STATEMENT
'SELECT ' || TextField || ' FROM ' || TableName INTO :OneLine
DO
IF (OneLine IS NOT NULL) THEN
Line = Line || OneLine || ' ';
SUSPEND;
END
Slavek
> nejak se mi nedari spravne predat FB ulozene procedure seznam
> hodnot, pro ktere se ma cosi provest. Potreboval bych pouzit neco jako
>
> FOR SELECT ..... WHERE NEAJKE_POLE IN(:Vstupni_parametr)
>
> abych mohl SP zavolat SELECT * FROM PROCEDURA('7,14');
> FB, predikat IN v ulozene procedure
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 13.3.2005 22:15:37
Ahoj,
nejak se mi nedari spravne predat FB ulozene procedure seznam hodnot, pro
ktere se ma cosi provest. Potreboval bych pouzit neco jako
FOR SELECT ..... WHERE NEAJKE_POLE IN(:Vstupni_parametr)
abych mohl SP zavolat SELECT * FROM PROCEDURA('7,14');
Diky za kazdou radu,
MB
presun node v treeView
[*] Ivan Dulgerov <idulgerov(zv)stonline.sk> - 13.3.2005 18:57:21
Zdravim
> jak presunout (zmenit poradi) node v treeView i s pripadnymi childNodes?
*Priklad najdes v knihe 1001 tipov a trikov pre Delphi (tip 981 - myslim
:-))
*Pripadne sa ozvi mozem poslat.
S pozdravom
Ivan Dulgerov
Delphi5 Prof+ SP1, Delphi 4 St, Win XP Porf. + SP1, Win98 SE
mail : idulgerov(zv)stonline.sk
presun node v treeView - hotovo
[*] votavaSW <mail(zv)votavasw(tec)com> - 13.3.2005 18:41:20
unahleny dotaz,metoda moveTo,
Votava
> dobry den,
> jak presunout (zmenit poradi) node v treeView i s pripadnymi childNodes?
>
> s pozdravem Votava
>
>
>
presun node v treeView
[*] votavaSW <mail(zv)votavasw(tec)com> - 13.3.2005 18:33:19
dobry den,
jak presunout (zmenit poradi) node v treeView i s pripadnymi childNodes?
s pozdravem Votava
Firebird - vice databazi v aplikaci
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 13.3.2005 08:02:37
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
Ahoj,
> Jde o to, ze nekter moduly maji uz jasne definovanou datovous
> strukturu a
> nove vynikajici nebo se vyvyjejici moduly maji strukturu dost
> "pohyblivou"
> No a prave pro ne se musi neustale delat aktualizace DB i
> kdyz treba klient
> ten modul vubec nepouziva.
Necht se nepouzivaji. Co se tyce aktualizace struktury DB
neni problem pouzit napriklad VCL DB Comparer. Mam
jednoducho utilitu, kde klient dostane DB (uplne prazdnou)
ktera ma aktualni strukturu a rekne todle je referencni DB
todle je moje DB a podle ref. DB mu to na jedno tlacitko
upravi strukturu dle referencni.
> Ale asi take nakonec zustaneme u jedine DB......
Tim si rozhodne neublizite, spise naopak.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Nastaveni Delphi
[*] In g. Zdenek Reznicek <reznicek(zv)pce(tec)cz> - 13.3.2005 00:24:03
Zdravim,
omylem jsem si nekde v D6 nastavil, aby se mi pri vytvireni nove aplikace
automaticky spustil QuickReportWizard.
To samozrejne nechci. Nevite nekdo, kde se to odstrani ?
Dik
Zdenek pocet skrytych kopii v Outlooku
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 12.3.2005 23:42:00
Ahoj, taky jsem na to nedavno narazil, primo v poli "Prijemce".
Hranice je nekde kousek nad 2.000 znaky, pri vetsim poctu znaku to
proste nefunguje.
Vyresil jsem to tak, ze proste vygeneruju vice mailu a kazdy mail ma
max. 2.000 znaku v poli Prijemce/Kopie/Skryta kopie.
Stepan o:) -=* delphi(zv)kopr(tec)cz <delphi-l(zv)clexpert(tec)cz>, 12.3.2005 10:00 wrote *=-
dkc> Zdravim,
dkc> napsal jsem program, ktery hromadne odesle zpravu do Outlooku (Express i
dkc> neExpress) a do zpravy se zapise do zkryte kopie X adres. Bohuzel neni nikde
dkc> zapsano, kolik takovych adres do zkryte kopie mohu poslat. Jakmile je tam
dkc> poslano asi 50 adres, tak se Outlook ani neotevre.
dkc> Nevi nekdo, kolik a nebo jak zaslat do Outlooku moc hodne adresa
dkc> Diky
dkc> Pavel ZIDEK
Firebird - vice databazi v aplikaci
[*] Fait <develop(zv)lmss(tec)cz> - 12.3.2005 20:13:46
> Taky jsme kdysi, kdyz jsme s SQL databazemi zacinali (1994?),
> premysleli o modularizaci do vce databazi. (tenkrat jsem
> delal pro firmu ASEI - desitky modulu kolem lidskych zdroju).
> Nastesti jsme se uz tehdy rozhodli spravne - vyslo z toho
> nejakych 800 tabulek - zadny problem.
>
Soucasny navrh je take v jedine databazi, ale narazime na problem vyvoje
jednotlivych modulu.
Jde o to, ze nekter moduly maji uz jasne definovanou datovous strukturu a
nove vynikajici nebo se vyvyjejici moduly maji strukturu dost "pohyblivou"
No a prave pro ne se musi neustale delat aktualizace DB i kdyz treba klient
ten modul vubec nepouziva.
Ale asi take nakonec zustaneme u jedine DB......
Dik za nazory..
Jirka
kontrola kreditnej karty
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 12.3.2005 18:41:40
12.3.2005 Ivan Turcan:
> caves,
> nemate niekdo skusenosti z kontrolovanim kreditnej karty vramci aplikacie ?
> potrebujem do programu doplnit nejake funkcnosti a jedna z nich je
> registracia kreditnej karty uzivatela. Nuz ale ako overit ci to co zada je
> platne a spravne ?
Tohle by ti mohlo pomoct:
unit cardtest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
BTN_Card: TButton;
Label1: TLabel;
INL_Card: TEdit;
procedure BTN_CardClick(Sender: TObject);
private
functiontype VALIDCCARD(A:STRING):BOOLEAN;
function NUMBERS(C:STRING):STRING;
function VALOF(CONST A:STRING):LONGINT;
function CCARDTYPE(A:STRING):BYTE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BTN_CardClick(Sender: TObject);
var S: string;
begin
S := INL_Card.Text;
if S = '' then
Application.MessageBox('Mus? zadat ?lo karty', 'Credit Card Test', MB_ICONSTOP)
else
begin
case CCARDTYPE(INL_Card.Text) of
0: S := 'Invalid credit card type';
1: S := 'VISA';
2: S := 'MC';
3: S := 'American Express';
4: S := 'Discover';
5: S := 'Unknown type';
end;
ShowMessage(S);
end;
end;
FUNCTION TForm1.VALIDCCARD(A:STRING):BOOLEAN;
VAR C:CHAR;
T:WORD;
X,M,N:BYTE;
BEGIN
VALIDCCARD:=FALSE;
A:=NUMBERS(A);
IF Length(A)<4 THEN EXIT;
C:=A[LENGTH(A)];
SetLength(A,Length(A)-1);
M:=2;
T:=0;
FOR X:=LENGTH(A) DOWNTO 1 DO
BEGIN
N:=(BYTE(A[X])-48);
N:=N*M;
IF N>9
THEN BEGIN
N:=N-10;
INC(T);
END;
T:=T+N;
M:=3-M;
END;
T:=(TRUNC((T+9)/10)*10)-T;
IF T=(BYTE(C)-48) THEN VALIDCCARD:=TRUE;
END;
FUNCTION TForm1.NUMBERS(C:STRING):STRING;
VAR A:STRING;
X:INTEGER;
BEGIN {strips out all non-numeric digits from a string}
A:='';
IF LENGTH(C)>0 THEN FOR X:=1 TO LENGTH(C) DO
IF C[X] IN ['0'..'9'] THEN A:=A+C[X];
NUMBERS:=A;
END;
FUNCTION TForm1.VALOF(CONST A:STRING):LONGINT;
VAR I:INTEGER;
L:COMP;
BEGIN {guarantee no crash VAL function}
VAL(A,L,I);
IF I<>0 THEN L:=0;
IF L>HIGH(LONGINT) THEN L:=HIGH(LONGINT);
IF L<LOW(LONGINT) THEN L:=LOW(LONGINT);
VALOF:=TRUNC(L);
END;
FUNCTION TForm1.CCARDTYPE(A:STRING):BYTE;
{returns
0:invalid credit card type
1:VISA
2:MC
3:American Express
4:Discover
5:Unknown type}
VAR W:LONGINT;
BEGIN
A:=NUMBERS(A);
IF VALIDCCARD(A)
THEN BEGIN
W:=VALOF(COPY(A,1,6));
IF (W>=510000) AND (W<=559999) AND (Length(A)=16)
THEN CCARDTYPE:=2 {Mastercard}
ELSE
IF (W>=400000) AND (W<=499999) AND (Length(A)=13)
THEN CCARDTYPE:=1 {VISA}
ELSE
IF (W>=400000) AND (W<=499999) AND (Length(A)=16)
THEN CCARDTYPE:=1 {VISA}
ELSE
IF (W>=340000) AND (W<=349999) AND (Length(A)=15)
THEN CCARDTYPE:=3 {American Express}
ELSE
IF (W>=370000) AND (W<=379999) AND (Length(A)=15)
THEN CCARDTYPE:=3 {American Express}
ELSE
IF (W>=601100) AND (W<=601199) AND (Length(A)=16)
THEN CCARDTYPE:=4 {Discover}
ELSE CCARDTYPE:=5;{Unknown type}
END
ELSE CCARDTYPE:=0;
END;
end.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Firebird - vice databazi v aplikaci
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 12.3.2005 18:31:39
> > je nejaky zasadni problem v tom, aby aplikace pristupovala k nekolika
> > databazim?
Klientska aplikace - proc ne.
Jak ale zajistit datovou aplikacni logiku - referencni integrita, triggery, ulozene procedury.
Ale i zakladni prikazy "select", "insert", "update", "delete" mohou byt pres vice tabulek, nikoli pres vice databazi.
> > nejakym datovym centrem (adresar, zakladni ciselniky, atp) a
> > pak databaze pro ostatni moduly..
Prave - jak se odkazat do ciselniku pres FOREIGN KEY do jine databaze, jak bych si z "select" sahnul do ciselniku pro nazev polozky.
> > Pavel Malinsky; malinsky(zv)pmcom(tec)cz
> proc hlidat
> struktury vice DB, kdyz to muzu mit na jednom miste. A to ze tam
> budou prazdne, nepouzivane tabulky?...cert to vem
Uplny souhlas.
Taky jsme kdysi, kdyz jsme s SQL databazemi zacinali (1994?), premysleli o modularizaci do vce databazi.
(tenkrat jsem delal pro firmu ASEI - desitky modulu kolem lidskych zdroju).
Nastesti jsme se uz tehdy rozhodli spravne - vyslo z toho nejakych 800 tabulek - zadny problem.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Cestina ve Freereportu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.3.2005 17:49:36
Puvodni zprava ze dne 12.3.2005:
>> bude nejlepsi kontaktovat P.Zahradnika, mozna ze to zvladne i o
>> vikendu.
> Kup online kartou a stahni :)
Uz si te znamenam, ze mi kazis ksefty :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Cestina ve Freereportu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 12.3.2005 17:45:35
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Burle
Ahoj,
> > FastReport jsem nezkousel, ale soude podle FreeReportu je to takove
> > nejake nemastne neslane.
Seredne se pletes(promin).
> bude nejlepsi kontaktovat P.Zahradnika, mozna ze to zvladne
> i o vikendu.
Kup online kartou a stahni :)
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Firebird - vice databazi v aplikaci
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 12.3.2005 17:37:35
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Fait
Ahoj,
> je nejaky zasadni problem v tom, aby aplikace pristupovala k nekolika
> databazim?
[...]
> nejakym datovym centrem (adresar, zakladni ciselniky, atp) a
> pak databaze
> pro ostatni moduly..
Zasadni asi nee, ale uvedena logika bude dost narocna na spravu.
Pro cbudes neustale premyslet o tom co ma v ktere byt. Mam aplikace
tak ze, i kdyz je "modularni" tak maji vzdy jednu DB (1 aplikace= 1 DB)
a obsahuje komplet celou strukturu, i kdyz nebude v dane instalaci
modul pouzivany. Zakaznik si vzpomene chci i nektery z dalsich
modulu a nemam problem. Totez upgrade struktury DB, proc hlidat
struktury vice DB, kdyz to muzu mit na jednom miste. A to ze tam
budou prazdne, nepouzivane tabulky?...cert to vem
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Cestina ve Freereportu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 12.3.2005 17:13:33
> Jak sem ale prochazel ty zdrojace je to prace tak na vikend a ten
> tomu nechci venovat.
Soucasti FR3 jsou i resource do x jazyku vcetne cestiny, vcetne designeru.
> FastReport jsem nezkousel, ale soude podle FreeReportu je to takove
> nejake nemastne neslane.
To mozna proto, ze freereport je oklestena stara verze 2, me pripada 3
omastena i osolena dost solidne ;) Podpora, konference, zdroje, dokumentace,
prubezne updaty, rozumna cena. Hadam, ze pokud to potrebujes koupit rychle,
bude nejlepsi kontaktovat P.Zahradnika, mozna ze to zvladne i o vikendu.
MB
delphi 2005 update 2
[*] j.binder(zv)albacon(tec)cz - 12.3.2005 17:09:32
> hmm, prave jsem objevil ze 3/9/2005 se objevil novy update.
Ovsem zda se, ze budeme muset pockat na update updatu, protoze nelze nainstalovat s hlaskou,
ze updatovany produkt neni nainstalovan. Pravdepodobne nerozezna nekterou z verzi updatu1.
Jiri Binder
ALBACON
Chlumova 6,
130 00 Praha 3
Tel.: 224 502 417
Firebird - vice databazi v aplikaci
[*] Fait <develop(zv)lmss(tec)cz> - 12.3.2005 17:05:31
Ahoj
je nejaky zasadni problem v tom, aby aplikace pristupovala k nekolika
databazim?
Resim problem aplikace s ruynou konfiguraci modulu a nevim jestli mit pro
aplikaci jednu centralni databazi nebo podle prislusnych modulu mit model s
nejakym datovym centrem (adresar, zakladni ciselniky, atp) a pak databaze
pro ostatni moduly..
Mate nekdo s timto zkusenosti?
kontrola kreditnej karty
[*] Ivan Turcan <iturcan(zv)drake.sk> - 12.3.2005 17:01:30
caves,
nemate niekdo skusenosti z kontrolovanim kreditnej karty vramci aplikacie ?
potrebujem do programu doplnit nejake funkcnosti a jedna z nich je
registracia kreditnej karty uzivatela. Nuz ale ako overit ci to co zada je
platne a spravne ?
vdaka vsetkym za napady :)
Ivan
Cestina ve Freereportu
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 12.3.2005 16:57:30
Zdravim,
> mate nekdo cestinu ve Freereportu? Vypada to, ze by se to dalo prelozit,
> ale jestli uz jste to nekdo delal, tak by to byla zbytecna prace.
Take by se mne to hodilo. Zacal jsem to prekladat, ale nemohl jsem najit
vsechny mista, kde sou texty. Je ale fakt, ze sem na to nemnel moc casu.
Hned na zacatku sem se zasek na nejake blbosti. Ted uz nevim.
Jak sem ale prochazel ty zdrojace je to prace tak na vikend a ten tomu nechci
venovat.
> Stoji za to koupit si Fastreport? Nebo je jeste neco lepsiho pro tvorbu
> tiskovych sestav?
FastReport jsem nezkousel, ale soude podle FreeReportu je to takove nejake
nemastne neslane. Osobne se mi zde lepe vyresena Sinea. Mas k tomu slusne
demicka. Take to neni nic sloziteho. Navic podle reakci autoru
(i tady v konfere), poprora je bezproblemova.
Vaclav Halik
Cestina ve Freereportu
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 12.3.2005 16:55:30
> > mate nekdo cestinu ve Freereportu? Vypada to, ze by se to dalo
> > prelozit, ale jestli uz jste to nekdo delal, tak by to byla
> zbytecna
> > prace.
>
> myslis lokalizaci Editoru sestav ap. nebo jen tisk ceskych znaku ?
>
Myslim lokalizaci Editoru sestav, ceske znaky to tiskne bez problemu.Cestina ve Freereportu
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 12.3.2005 16:47:29
On 12 Mar 2005 at 16:31, Karel Pecinka wrote:
> mate nekdo cestinu ve Freereportu? Vypada to, ze by se to dalo
> prelozit, ale jestli uz jste to nekdo delal, tak by to byla zbytecna
> prace.
myslis lokalizaci Editoru sestav ap. nebo jen tisk ceskych znaku ?
> Stoji za to koupit si Fastreport? Nebo je jeste neco lepsiho pro
> tvorbu tiskovych sestav?
urcite, ale uz FR3 Profi, je to se zdroji, umi generovat sestavy bez
problemu do PDF (cesky)
> Pokud bych se rozhodl pro Fastreport, da se nekde hned stahnout a
> zacit realne pouzivat a licenci dokoupit dodatecne? Potreboval bych to
> docela rychle (tak dneska), zakaznik ceka :).
koukni na
http://www.fast-report.com/en/
je tam trial. Full verzi koupis za Kc, viz Dealers.txt
Jarek
Cestina ve Freereportu
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 12.3.2005 16:31:28
Ahoj,
mate nekdo cestinu ve Freereportu? Vypada to, ze by se to dalo prelozit,
ale jestli uz jste to nekdo delal, tak by to byla zbytecna prace.
Stoji za to koupit si Fastreport? Nebo je jeste neco lepsiho pro tvorbu
tiskovych sestav?
Pokud bych se rozhodl pro Fastreport, da se nekde hned stahnout a zacit
realne pouzivat a licenci dokoupit dodatecne? Potreboval bych to docela
rychle (tak dneska), zakaznik ceka :).
Karel
Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Petr Vones <konference(zv)petrvones(tec)net> - 12.3.2005 13:03:13
From: "Zdenek Sedlak" <konf(zv)seus(tec)cz>
> mrzi, ze tahle feature v C# nejde, ale ma jine vlastnosti. Treba do toho
> nejspis pouziju take Interface, to se mi zase na C# velmi libi ;-)
Interface ma i Delphi Win32.
Petr Vones
ADO&MSSQL: Casovy limit vyprsel
[*] lelicek(zv)volny(tec)cz - 12.3.2005 12:53:12
Ahoj,
na serverech musis pracovat trochu jinak.
Neni mozne zahajit transakci a potom nechat uzivatele
neco editovat. Transakce musi byt co nejkratsi.
Tedy nasat si data na klienta nechat uzivatele at si lokale dela co
chce a potom je v tranakci ulozit na server. Zamky pracuji jinak pri
editaci a jinak pri insertu.
Pri insertu je uzancen index a cela tabulka umre.
Pavel
> > Jo jo jo, to znam s tim si tu hraju dnes a denne.
> > MS SQL zamyka na nejnizsi urovni na urovni klice.
> > Pokud tedy tabulka nema klic, zamyka po strance
> > no a tak to jedna transakce zamkne a dokud neskonci
> > tak ty druhe cekaji a cekaji. Uz jsem to tu do
> > archivu konference kdysi psal.
> > Samozrejme muzes zkouset uzivatelovu trpelivost
> > pomoci ADOConnection.ConnectionTimeout (tak nejak
> > se ta property jmenuje).
>
> Vsechny tabulky primarni klice maji, ale i presto se mi zakne
> cela
> tabulka. Podario se ti to nejak rozumne vyresit?
> ADOConnection.ConnectionTimeout neni moc vhodny.Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 12.3.2005 12:49:12
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Zdenek Sedlak
> Sent: Saturday, March 12, 2005 11:43 AM
>
> mimochodem, na strance http://www.aisto.com/roeder/dotnet/ je
> ke stazeni .NET reflector (free)
Znam, pouzivam, a vrele dopurucuji vsem, kteri chteji programovat v .NET.
S pozdravem
Zbysek Hlinka
Krystofova 1016/15
149 00 Praha 4
E-mail: hlinka zavin. hlinka(tec)cz
Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Zdenek Sedlak <konf(zv)seus(tec)cz> - 12.3.2005 11:43:07
Petr Vones napsal(a):
>>Ale ve skutecnosti to mam tak, ze mam predka StdSelectForm, ktery ma
>>prave atribut (promenou) EditForm typu CStdEditForm, coz je
>>"type CStdEditForm = class of TStdEditForm;"
>
>
> C# (potazmo CLR) nezna metatridy, virtualni konstruktory a virtualni staticke
> metody. Z toho asi vychazi tvuj problem. Misto statickych metod muzes vytvorit
> instanci daneho objektu a volat jeho virtualni metody nebo pomoci reflexe
> volat prislusnou statickou metodu, popripade pouzit atributy pro urceni
> dalsich vlastnosti atd.
>
> Petr Vones
Ano, mas pravdu. Kdyz jsem se koukal na pomoci reflectoru
(http://www.aisto.com/roeder/dotnet/) tak jsem tedy koukal, co tam
compiler Delphi 2005 (trial) udelal. Tvori tam MetaTridu.
Dale jsem na jednom ruskem webu (diskusi) nasel take neco o tom:
http://forum.vingrad.ru/index.php?showtopic=16677&st=30
konkretne:
"TClass = class of TObject
For each class type (TMyClass) declared in Delphi source code, the
compiler will create a corresponding metaclass ((zv)MetaTMyClass) inherited
from TClass to implement Delphi "class of object" behaviors, such as
virtual constructors and virtual class methods. All Delphi metaclasses
inherit from TClass. Delphi metaclasses are not CLS compliant and not
intended for use by other languages."
Takze pro me potreby pravdepodobne obejdu tuto zalezitost tim, ze u
potomku vytvorim instanci potrebne tridy a predek pak zavola jeji
virtualni metodu. Jevi, se mi to jako nejschudnejsi reseni. Trochu me
mrzi, ze tahle feature v C# nejde, ale ma jine vlastnosti. Treba do toho
nejspis pouziju take Interface, to se mi zase na C# velmi libi ;-)
Diky Petre a Zbysku, za rady.
Zdenda
mimochodem, na strance http://www.aisto.com/roeder/dotnet/ je ke stazeni
.NET reflector (free), ma i spoustu pluginu a doporucuji vsem, co delaji
s .NET, aby se na tento program podivali. Umi nejen disassemblovat do
ruznych jazyku (C#, chrome, delphi, C++, VB.NET...) ale kresli i
diagramy volani, zavislosti, trid atd.Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 12.3.2005 11:35:06
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Zdenek Sedlak
> Sent: Saturday, March 12, 2005 10:51 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Jak na typy (tridy) "Class Of ..." v .NET a C#
>
> Diky, s tim souhlasim. Ale mam obavu, ze to neresi muj
> problem. V tomto pripade ja nevim jakeho typu to X bude.
> Protoze ho nastavuju uplne jinde v programu. V te ukazce jsem
> to napsal vsechno najednou, aby to bylo zrejme.
> Ale ve skutecnosti to mam tak, ze mam predka StdSelectForm,
> ktery ma prave atribut (promenou) EditForm typu CStdEditForm,
> coz je "type CStdEditForm = class of TStdEditForm;"
using System;
using System.Reflection;
namespace ConsoleApp
{
public class Object1
{
public virtual void WriteName()
{
Console.WriteLine("Class - Object1");
}
}
public class Object2: Object1
{
public override void WriteName()
{
Console.WriteLine("Class - Object2");
}
}
class Class1
{
[STAThread]
static void Main(string[] args)
{
Object1 x;
x =
(Object1)Assembly.GetExecutingAssembly().CreateInstance("ConsoleApp.Object1"
);
x.WriteName();
x =
(Object1)Assembly.GetExecutingAssembly().CreateInstance("ConsoleApp.Object2"
);
x.WriteName();
Console.ReadLine();
}
}
}
S pozdravem
Zbysek Hlinka
Krystofova 1016/15
149 00 Praha 4
E-mail: hlinka zavin. hlinka(tec)cz
Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Petr Vones <konference(zv)petrvones(tec)net> - 12.3.2005 11:01:03
From: "Zdenek Sedlak" <konf(zv)seus(tec)cz>
> Diky, s tim souhlasim. Ale mam obavu, ze to neresi muj problem. V tomto
> pripade ja nevim jakeho typu to X bude. Protoze ho nastavuju uplne jinde
> v programu. V te ukazce jsem to napsal vsechno najednou, aby to bylo
> zrejme.
> Ale ve skutecnosti to mam tak, ze mam predka StdSelectForm, ktery ma
> prave atribut (promenou) EditForm typu CStdEditForm, coz je
> "type CStdEditForm = class of TStdEditForm;"
C# (potazmo CLR) nezna metatridy, virtualni konstruktory a virtualni staticke
metody. Z toho asi vychazi tvuj problem. Misto statickych metod muzes vytvorit
instanci daneho objektu a volat jeho virtualni metody nebo pomoci reflexe
volat prislusnou statickou metodu, popripade pouzit atributy pro urceni
dalsich vlastnosti atd.
Petr Vones Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Zdenek Sedlak <konf(zv)seus(tec)cz> - 12.3.2005 10:51:02
>>begin
>> X := TObject1;
>> X.WriteName;
>>
>> X := TObject2;
>> X.WriteName;
>>
>> Console.WriteLine('Konec...');
>> Console.ReadLine;
>>end.
>
>
> Tento pripad bych asi nahradil statickou metodou.
>
> public static void WriteName() {...}
>
> S pozdravem
>
> Zbysek Hlinka
Diky, s tim souhlasim. Ale mam obavu, ze to neresi muj problem. V tomto
pripade ja nevim jakeho typu to X bude. Protoze ho nastavuju uplne jinde
v programu. V te ukazce jsem to napsal vsechno najednou, aby to bylo
zrejme.
Ale ve skutecnosti to mam tak, ze mam predka StdSelectForm, ktery ma
prave atribut (promenou) EditForm typu CStdEditForm, coz je
"type CStdEditForm = class of TStdEditForm;"
Tak potom ten standardni select form ma na sobe grid se zaznamy, metodu
pro jeho naplneni, pak ma tlacitka Ok, Storno, Novy zaznam, a metody pro
jejich osetreni. To vsechno dela uz ten predek, tedy StdSelectForm.
Konkretni potomci, napr. StateSelectForm jen naplni promenou SQLSelect
kde bude dotaz, kterym se naplni grid, a dale nastavi prave EditForm na
Tridu StateEditForm.
Edit form ma svou metodu (funkci)
"class function ShowEdit(aID: TID): TResult;"
Ktera otevre editacni formular a podle aID nastavi hodnoty bud
existujiciho zaznamu nebo prazdne a samozrejme je pripadne updatuje v db
nebo vytvori ten novy zaznam.
Kdyz se vratim k tomu select formu, tak uz predek tedy ten StdSelectForm
ma naprogramovanou reakci na tlacitko novy zaznam, a tedy udela
EditForm.ShowEdit(cNewRecord);
Proto u konkretnich select formularu (zminovany StateSelectForm) atd.
opravdu nic nemusim delat, jen v konstruktoru vlastne nastavim ten dotaz
SQLSelect, a EditForm.
Takze v te zjednodusene ukazce jsem pouzil X typu CObject1;
coz je "CObject = class of TObject1;"
Pak chci jen zavolat metodu WriteName() na tom X, ale nevim, na jakou
tridu mi to X bude ukazovat, protoze to nastavuju uplne jinde.
Rozumis mi? Ja proste vyuzivam dedicnosti tak daleko, ze opravdu tu
praci nechavam predkovi (StdSelectForm) a potomek jen nastavi, jaky
Editacni formular on potrebuje (v pripade StateSelectForm nastavi
EditForm na StateEditForm) a uz predek StdSelectForm pri volani Novy
zaznam provede EditForm.ShowEdit a tim se vlastne zavola spravna metoda
spravne tridy, protoze ji ten potomek nastavi. Mam tam tech formularu
mraky a tahle schopnost Delphi se mi hodne libi, a nechtel bych o to
prijit :-)
Vim, ze to muzu udelat tak ze bych kazdemu potomkovi tedy
StateSelectForm atd. napsal jeho metodu pro obsluhu tlacitka Novy
zaznam, ale jak rikam, nechce se mi to delat takhle, protoze to je
zbytecne moc prace nebo moc kodu navic.
Dekuji, ze se mojim problemkem zabyvate.
Zdenda
OT: pocet skrytych kopii v Outlooku
[*] delphi(zv)kopr(tec)cz - 12.3.2005 10:00:58
Zdravim,
napsal jsem program, ktery hromadne odesle zpravu do Outlooku (Express i
neExpress) a do zpravy se zapise do zkryte kopie X adres. Bohuzel neni nikde
zapsano, kolik takovych adres do zkryte kopie mohu poslat. Jakmile je tam
poslano asi 50 adres, tak se Outlook ani neotevre.
Nevi nekdo, kolik a nebo jak zaslat do Outlooku moc hodne adresa
Diky
Pavel ZIDEK Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 12.3.2005 09:28:51
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Zdenek Sedlak
> Sent: Saturday, March 12, 2005 1:16 AM
>
> begin
> X := TObject1;
> X.WriteName;
>
> X := TObject2;
> X.WriteName;
>
> Console.WriteLine('Konec...');
> Console.ReadLine;
> end.
Tento pripad bych asi nahradil statickou metodou.
public static void WriteName() {...}
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
synapse a NTLM autentifikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.3.2005 08:44:48
> > Pokud ne vi nekdo jak ji doprogramovat? Predpokladam, ze bude nutno vyuzit
> > sluzeb OS, vi nekdo jak? A jak postupovat pokud bych ji chtel pouzit v
> > nejakem svem programu na overeni uzivatele.
>
> NTLM sam o sobe je dost velky humus... nicmene se muzes podivat treba
> na Indy, tam nejaky NTLM kod maji.
>
Ja osobne vim o dvou cestach (Indy neznam). Tou prvni je pouziti
WinInet. WinInet sam od sebe podporuje pomerne siroke spektrum
autorizaci a v MSDN jsou i konkretni priklady, jak na to.
Druha cesta, o ktere vim, je balik ICS od F.Pietteho. Odkaz jiste najdes
na internetu, ja ho ted po ruce nemam. Ten ted v poslednich verzich
rovnez nove podporuje i NTLM.
David Lebeda
OT: Jak na typy (tridy) "Class Of ..." v .NET a C#
[*] Zdenek Sedlak <konf(zv)seus(tec)cz> - 12.3.2005 01:16:18
Ahoj,
zacinam si pracovat s .NET a C# a chystam se prepsat si nejake sve tridy
s mym aplikacnim frameworkem do C#... samozrejme nekolik veci nebo
principu jsem upravil :-) Ovsem jeden typ konstrukce si jeste nejsem
jist jak nahradit.
V Delphi pouzivam dedicnost u formularu. Mam napriklad predka standardni
formular pro vyber zaznamu (treba z ciselniku apod. rikejme mu
StdSelectForm) v nem mam i tlacitko pro porizeni noveho zaznamu. U
potomku napr. StateSelectForm nastavuju jen "dotaz" pro naplneni gridu z
databaze a veskera prace je u toho predka. Pokud v pozadovane tabulce
(napr. seznam statu) neni potrebny zaznam tak rovnou z tohoto formulare
dovolim zavolat Editacni formular kde poridim novy zaznam.
Rekneme ze mam StdEditForm a take
type CStdEditForm = class of TStdEditForm;
v TStdSelectForm mam protected atribut EditForm : CStdEditForm;
v konstruktoru kazdeho konkretniho select formulare (napr.
StateSelectForm) nastavuju EditForm na tridu prislusneho formulare, tedy
napr. EditForm := TStateEditForm;
TStateEditForm je samozrejme potomkem TStdEditForm;
Vsechny EditForm maji class function ShowEdit; kterou volam pro editaci
zaznamu nebo porizeni noveho zaznamu, takze v tomto pripade mam jen u
StdSelectForm volani EditForm.ShowEdit;
Protoze ShowEdit; je class function, tak nemusim vytvaret instanci
prislusne tridy a na ni volat metody... tato metoda si tu instanci
vytvori sama ( with Create(Appliaction) do .... atd).
No a protoze EditForm u StdSelectForm je typu CStdEditForm tak mu muzu
priradit jakehokoli potomka po TStdEditForm.
Snad jsem to popsal "rozumne" :-)
Proste si setrim praci, predek tedy StdSelectForm sam umi reagovat na na
stisk tlacitka pro novy zaznam a zavola EditForm.ShowEdit; Protoze kazdy
potomek SelectFormu priradi do EditForm prislusny typ potomka.
No a jak neco takoveho udelam v C#?
Myslel jsem, ze to zkusim pres Interface, ale u tech nemuzu pouzit
staticke metody, ze?
Nebo me prosim nasmerujte tim spravnym smerem, jak takovou vec resit v
C#. Diky.
Zdenda
Prikladam jednoduchy priklad kodu, ktery je zapsan v Delphi 2005 pro
.NET, je v tom videt
1. jak pouzivam Class of XXX
2. jak pouzivam Class procedure zzz;
---
unit OTest;
interface
type
TObject1 = class
public
class procedure WriteName; virtual;
end;
CObject1 = class of TObject1;
TObject2 = class (TObject1)
class procedure WriteName; override;
end;
CObject2 = class of TObject2;
implementation
{ TObject1 }
class procedure TObject1.WriteName;
begin
Console.WriteLine('Class - TObject1');
end;
{ TObject2 }
class procedure TObject2.WriteName;
begin
Console.WriteLine('Class - TObject2');
end;
end.
---
potom v hlavnim programku muzu volat:
---
var
X : CObject1;
begin
X := TObject1;
X.WriteName;
X := TObject2;
X.WriteName;
Console.WriteLine('Konec...');
Console.ReadLine;
end.
---
Vystupem je samozrejme:
---
Class - TObject1
Class - TObject2
Konec...
---
ADO&MSSQL: Casovy limit vyprsel
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 11.3.2005 16:37:42
> Jo jo jo, to znam s tim si tu hraju dnes a denne.
> MS SQL zamyka na nejnizsi urovni na urovni klice.
> Pokud tedy tabulka nema klic, zamyka po strance
> no a tak to jedna transakce zamkne a dokud neskonci
> tak ty druhe cekaji a cekaji. Uz jsem to tu do
> archivu konference kdysi psal.
> Samozrejme muzes zkouset uzivatelovu trpelivost
> pomoci ADOConnection.ConnectionTimeout (tak nejak
> se ta property jmenuje).
Vsechny tabulky primarni klice maji, ale i presto se mi zakne cela
tabulka. Podario se ti to nejak rozumne vyresit?
ADOConnection.ConnectionTimeout neni moc vhodny.
Dik, Vas
delphi 2005 update 2
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 11.3.2005 15:57:40
hmm, prave jsem objevil ze 3/9/2005 se objevil novy
update.
http://www.borland.com/products/downloads/registered/download_delphi.html#
a tam kliknete na update1, a zobrazi se vam stranka s obouma updatama.
To je sranda :)
http://info.borland.com/04/delphi2005/readme_upd2.html
Radek
TQREXPR a COUNT
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 11.3.2005 15:39:38
Zapletal Martin wrote:
> Nevite nekdo prosim jak pomoci TQREXPR zjistit pocet radku kde se pole X
> rovnaji treba 'AAA'. Neco jako QRExpr1.Expression:=COUNT(POLE='AAA'). Pokud
> je sestava detailni tak to delam tak ze si pri Tisku QRDBTex INCnu promennou
> a tu pak pouze zobrazim. Ale v sumari ten detailni QRDBText neni.
SUM(IF(POLE='AAA',1,0))
Martin Schayna
Odeslani emailu pres MAPI
[*] Martin Fisar <martin_fisar(zv)gordic(tec)cz> - 11.3.2005 15:09:35
Mam pocit, ze stacilo do mailove adresy predradit SMTP:
Napr. "SMTP:josef.novak(zv)seznam(tec)cz"
Ale uz jsem to dlouho nepouzival, tak si nejsem jistej.
Martin
>----- Original Message -----
>From: delphi(zv)mjsoft(tec)cz
>To: delphi-l(zv)clexpert(tec)cz
>Sent: Friday, March 11, 2005 2:47 PM
>Subject: Odeslani emailu pres MAPI
>
>
>Zdravim,
>
> na netu jsem nasel priklad, viz. dole, jak z Delphi posilat email s
>prilohou. Na Outlook Express to funguje, ale na Outlooku velkem to
>nechce odesilat. Email se vytvori, je v nem adresa prijemce, predmet,
>priloha, ale po odeslani se vrati chyba "K odeslani tomuto adresatovi
>nelze pouzit zadny ucet elektronicke posty, ktery mate k dispozici.".
>Prisel jsem na to, ze kdyz potukam v outlooku na vytvorenou zpravu na
>prijemce, tak tam ma v typu elektronicke adresy misto SMTP primo
>emailovou adresu, kdyz to zmenim na SMTP, tak se to odesle. Nevite
>jestli to lze z Delphi nastavit, ja jsem nic takoveho nenasel. Nebo
>jestli lze posilani emailem vyresit jinak.
>
>
>Diky predem
>
> Karel V.Prevod kodu volani DLL v C++ do Delphi
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 11.3.2005 14:37:30
nevim jiste ale asi takhle (pisu to z hlavy)
var
Soubor, Key : String;
{$R *.dfm}
function _get_coded_database_size(Soubor : Pchar): integer; stdcall;
external 'decodedb.dll';
procedure _coded_coded_database(Soubor, Key, Data : PChar); stdcall;
external 'decodedb.dll';
procedure TForm1.Button1Click(Sender: TObject);
var DecData : integer;
Decoded : pointer;
begin
Soubor := 'testdb.dat';
Key := 'abcdefgh';
DecData := _get_coded_database_size(PChar(Soubor));
MemoDecode.Lines.Add(inttostr(DecData));
getmem (decoded,decdata);
_decode_coded_database(PChar(Soubor), PChar(Key), pchar(Decoded));
MemoDecode.Lines.Add(pchar(Decoded));
freemem (decoded);
end;
Prevod kodu volani DLL v C++ do Delphi
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.3.2005 14:53:31
Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> wrote:
> Zdravim,
> mam nasleduji problem a nevim jak s nim hnou kupredu.
> Potreboval bych hodne silne nakopnuti.
>
> Takze, dostal jsem od jineho autora .DLL.
> Vim o ni ze je napsana v C++ Builderu a vim co by mnela vracet.
> Problem je ze nejsem schopen nic z ni dostat. Autor mi
> poslal i ukazkovy kod jak tuto DLL vola on v C++. Viz:
>
> ----------------------------------------------------------
> // Nacteni knihovny pres Win32 API
> HINSTANCE hDll = LoadLibrary( "decodedb.dll" );
>
> // Vytvoreni ukazatele na funkci v knihovne, Win32 API
> unsigned int ( *get_coded_database_size )( char* ) = ( unsigned int
> (
> * )( char* ) ) GetProcAddress( hDll, "_get_coded_database_size" );
> if ( get_coded_database_size == NULL ) return;
> unsigned int ( *decode_coded_database )( char*, char*, void* ) = (
> unsigned int ( * )( char*, char*, void* ) ) GetProcAddress( hDll,
> "_decode_coded_database" );
> if ( decode_coded_database == NULL ) return;
>
> // Pouziti knihovnich funkci
> unsigned int length = get_coded_database_size( "testdb.dat" );
> char *data = new char[ length ];
> decode_coded_database( "testdb.dat", "abcdefgh", data );
> ...
> delete[] data;
tak to je pekna cunarna - proc to delat nazorne a jednoduse, kdyz to
jde slozite a neprehledne. Brr.
deklarace funkci v Pascalu by mohla byt:
function get_coded_database_size(Soubor : PChar) : Cardinal; cdecl;
function decode_coded_database(Soubor : PChar, Neco: PChar, Neco2 :
Pointer): Cardinal;cdecl;
prepis do typu nutnych pro deklarace pointeru na funkci:
Tget_coded_database_size = function(Soubor : PChar) : Cardinal;
cdecl;
...
zda je nutne cdecl ci stdcall zavisi na tom jak to v tom Ccku
deklaroval (ale asi pouzil defaultni volaci konvenci - pokud
nepredpokladal pouziti i z jinych aplikaci/jazyku).
D. Toman
Odeslani emailu pres MAPI
[*] delphi(zv)mjsoft(tec)cz - 11.3.2005 14:47:31
Zdravim,
na netu jsem nasel priklad, viz. dole, jak z Delphi posilat email s
prilohou. Na Outlook Express to funguje, ale na Outlooku velkem to
nechce odesilat. Email se vytvori, je v nem adresa prijemce, predmet,
priloha, ale po odeslani se vrati chyba "K odeslani tomuto adresatovi
nelze pouzit zadny ucet elektronicke posty, ktery mate k dispozici.".
Prisel jsem na to, ze kdyz potukam v outlooku na vytvorenou zpravu na
prijemce, tak tam ma v typu elektronicke adresy misto SMTP primo
emailovou adresu, kdyz to zmenim na SMTP, tak se to odesle. Nevite
jestli to lze z Delphi nastavit, ja jsem nic takoveho nenasel. Nebo
jestli lze posilani emailem vyresit jinak.
Diky predem
Karel V.
//funkce na posilani emailu
function SendMail(const Subject, Body, FileName, SenderName,
SenderEMail, RecipientName, RecipientEMail: string): Integer;
var Message: TMapiMessage;
lpSender, lpRecipient: TMapiRecipDesc;
FileAttach: TMapiFileDesc;
SM: TFNMapiSendMail;
MAPIModule: HModule;
begin
FillChar(Message, SizeOf(Message), 0);
with Message do
begin
if (Subject <> '') then
lpszSubject := PChar(Subject);
if (Body <> '') then
lpszNoteText := PChar(Body);
if (SenderEmail <> '') then
begin
lpSender.ulRecipClass := MAPI_ORIG;
if (SenderName = '') then
lpSender.lpszName := PChar(SenderEMail)
else
lpSender.lpszName := PChar(SenderName);
lpSender.lpszAddress := PChar(SenderEmail);
lpSender.ulReserved := 0;
lpSender.ulEIDSize := 0;
lpSender.lpEntryID := nil;
lpOriginator := (zv)lpSender;
end;
if (RecipientEmail <> '') then
begin
lpRecipient.ulRecipClass := MAPI_TO;
if (RecipientName = '') then
lpRecipient.lpszName := PChar(RecipientEMail)
else
lpRecipient.lpszName := PChar(RecipientName);
lpRecipient.lpszAddress := PChar(RecipientEmail);
lpRecipient.ulReserved := 0;
lpRecipient.ulEIDSize := 0;
lpRecipient.lpEntryID := nil;
nRecipCount := 1;
lpRecips := (zv)lpRecipient;
end
else
lpRecips := nil;
if (FileName = '') then
begin
nFileCount := 0;
lpFiles := nil;
end
else
begin
FillChar(FileAttach, SizeOf(FileAttach), 0);
FileAttach.nPosition := Cardinal($FFFFFFFF);
FileAttach.lpszPathName := PChar(FileName);
nFileCount := 1;
lpFiles := (zv)FileAttach;
end;
end;
MAPIModule := LoadLibrary(PChar(MAPIDLL));
if MAPIModule = 0 then
Result := -1
else
try
(zv)SM := GetProcAddress(MAPIModule, 'MAPISendMail');
if (zv)SM <> nil then
begin
Result := SM(0, Application.Handle, Message, MAPI_DIALOG or
MAPI_LOGON_UI, 0);
end
else
Result := 1;
finally
FreeLibrary(MAPIModule);
end;
end;synapse a NTLM autentifikace
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 11.3.2005 14:35:30
> Podporuje Synapse NTLM autentifikaci?
Neumi. (zatim.. je v planech)
> Pokud ne vi nekdo jak ji doprogramovat? Predpokladam, ze bude nutno vyuzit
> sluzeb OS, vi nekdo jak? A jak postupovat pokud bych ji chtel pouzit v
> nejakem svem programu na overeni uzivatele.
NTLM sam o sobe je dost velky humus... nicmene se muzes podivat treba
na Indy, tam nejaky NTLM kod maji.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Prevod kodu volani DLL v C++ do Delphi
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 11.3.2005 14:19:28
Zdravim,
mam nasleduji problem a nevim jak s nim hnou kupredu.
Potreboval bych hodne silne nakopnuti.
Takze, dostal jsem od jineho autora .DLL.
Vim o ni ze je napsana v C++ Builderu a vim co by mnela vracet.
Problem je ze nejsem schopen nic z ni dostat. Autor mi
poslal i ukazkovy kod jak tuto DLL vola on v C++. Viz:
----------------------------------------------------------
// Nacteni knihovny pres Win32 API
HINSTANCE hDll = LoadLibrary( "decodedb.dll" );
// Vytvoreni ukazatele na funkci v knihovne, Win32 API
unsigned int ( *get_coded_database_size )( char* ) = ( unsigned int ( * )( char* ) )
GetProcAddress( hDll, "_get_coded_database_size" );
if ( get_coded_database_size == NULL ) return;
unsigned int ( *decode_coded_database )( char*, char*, void* ) = ( unsigned int ( * )(
char*, char*, void* ) ) GetProcAddress( hDll, "_decode_coded_database" );
if ( decode_coded_database == NULL ) return;
// Pouziti knihovnich funkci
unsigned int length = get_coded_database_size( "testdb.dat" );
char *data = new char[ length ];
decode_coded_database( "testdb.dat", "abcdefgh", data );
...
delete[] data;
// Uvolneni knihovny (lze udelat ihned po nacteni dat)
FreeLibrary( hDll );
----------------------------------------------------------
Ja jsem se bez jakekoliv znalosti C++ pokusil kod prepsat takto:
Problem je ze mi to apsolutne nic nevraci, ani jedna funkce.
A ja uz nevim kde delam chybu.
var
Soubor, Key : String;
{$R *.dfm}
function _get_coded_database_size(Soubor : Pchar): PChar; external 'decodedb.dll';
procedure _coded_coded_database(Soubor, Key, Data : PChar); external 'decodedb.dll';
procedure TForm1.Button1Click(Sender: TObject);
var DecData : String;
Decoded : PChar;
begin
Soubor := 'testdb.dat';
Key := 'abcdefgh';
DecData := StrPas(_get_coded_database_size(PChar(Soubor)));
MemoDecode.Lines.Add(DecData);
_decode_coded_database(PChar(Soubor), PChar(Key), Decoded);
MemoDecode.Lines.Add(Decoded);
end;
Nevite nekdo kde delam chybu ?
Vaclav Halik
Kylix a Com port
[*] p.sestak(zv)corag.sk - 11.3.2005 13:45:25
Free Kylix by sa dal mozno stiahnut z Borlandu,
komponenty na seriovu komunikaciu som pre Kylix este nevidel, ale na
torry.com by sa mozno nieco naslo.
Ak by si nenasiel ziadnu komponentu s com portom sa da v linuxe pracovat
ako so suborom, pozri man pre open, close, read, write, a ioctl.
P.
delphi-l-owner(zv)clexpert(tec)cz wrote on 11.03.2005 13:27:24:
> Zdravim s prosikem:
>
> nikdy sem nedelal s linuxem a kylixem.
> Budu tvorit jdenoduchou aplikaci pro linux obsluhujici COM nebo USB
port,
> data se budou ukladat do MySQL. Webovy pristup uz budu resit pomoci PHP.
> Tot vse. Zadne graficke rozhrani.
>
> Tazi se, co k tomu potrebuju, kde najdu kylix total free, jake
komponenty
> pro ovladani COMu, jake me cekaji uskali pri provopokusech.
>
> diky za kazde potesujici prospevky.
>
> valik
>
>
>
Kylix a Com port
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 11.3.2005 13:45:25
Neni nahodou AsyncPro od TurboPower i pro Kylix?
Martin
> nikdy sem nedelal s linuxem a kylixem.
> Budu tvorit jdenoduchou aplikaci pro linux obsluhujici COM nebo USB port,
> data se budou ukladat do MySQL. Webovy pristup uz budu resit pomoci PHP.
> Tot vse. Zadne graficke rozhrani.
>
> Tazi se, co k tomu potrebuju, kde najdu kylix total free, jake komponenty
> pro ovladani COMu, jake me cekaji uskali pri provopokusech.
>
> diky za kazde potesujici prospevky.
>
Kylix a Com port
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 11.3.2005 13:53:26
> Tazi se, co k tomu potrebuju, kde najdu kylix total free, jake komponenty
> pro ovladani COMu, jake me cekaji uskali pri provopokusech.
Existuje jen Kylix Open Edition, ktery ovsem muzes pouzit jen kdyz
vysledek bude opet free (pokud si dobre pamatuji, tak navic i pod GPL
licenci!).
Na serivou komunikaci lze pouzit muj SynaSer, ktery funguje i v
Kylixu.
Synaser funguje i ve FreePascalu, coz by mohle byt pro tebe ta
spravna free alternativa. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Kylix a Com port
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.3.2005 13:51:26
Puvodni zprava ze dne 11.3.2005:
> Neni nahodou AsyncPro od TurboPower i pro Kylix?
Jo, nahodou je:
http://sourceforge.net/projects/tpaproclx/
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Kylix a Com port
[*] Jiri Virt <virt(zv)volny(tec)cz> - 11.3.2005 13:33:24
delal jsem komunikaci v Kylixu 2 pres COM port .. ale zdroje mam doma ...
Jirka Virt
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of MUDr. Patrik Valenta
Sent: Friday, March 11, 2005 1:27 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Kylix a Com port
Zdravim s prosikem:
nikdy sem nedelal s linuxem a kylixem.
Budu tvorit jdenoduchou aplikaci pro linux obsluhujici COM nebo USB port,
data se budou ukladat do MySQL. Webovy pristup uz budu resit pomoci PHP.
Tot vse. Zadne graficke rozhrani.
Tazi se, co k tomu potrebuju, kde najdu kylix total free, jake komponenty
pro ovladani COMu, jake me cekaji uskali pri provopokusech.
diky za kazde potesujici prospevky.
valik
Kylix a Com port
[*] MUDr. Patrik Valenta <valentapat(zv)volny(tec)cz> - 11.3.2005 13:27:24
Zdravim s prosikem:
nikdy sem nedelal s linuxem a kylixem.
Budu tvorit jdenoduchou aplikaci pro linux obsluhujici COM nebo USB port,
data se budou ukladat do MySQL. Webovy pristup uz budu resit pomoci PHP.
Tot vse. Zadne graficke rozhrani.
Tazi se, co k tomu potrebuju, kde najdu kylix total free, jake komponenty
pro ovladani COMu, jake me cekaji uskali pri provopokusech.
diky za kazde potesujici prospevky.
valik
Synapse
[*] zmo <zmo(zv)volny(tec)cz> - 11.3.2005 13:09:22
Zdravim,
pouzivam Synapsi pro jednoduche odesilani mailu funkci SendTo. Mam ale dva
problemy, se kterymi si nevim rady
1. jak prilozit soubor (textovy) jako prilohu
2. v pripade neuspesneho odeslani vraci funkce SendTo pouze hodnotu false.
Jakym zpusobem je mozne zjistit duvod neuspesneho odeslani ?
Predem dekuji za pomoc resp. odkaz nekam, kde je jiz vyreseno.
S pozdravem
Zdenek Moravec zmo(zv)volny(tec)cz
Modifiace zastupce pri instalaci
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 11.3.2005 13:05:22
Vyrizeno k dennimu poradku.
1. Umisteni a nazev programu se napise do Run Command v okne Specify Folders
and Icons.
2. Parametry do Run Command Parametrs v okne Specify Folders and Icons.
3. Spustit v se napise do Advanced zalozky v temze okne do pole Start in.
Akorat potreboval jsem ,aby parametr byl ukoncen backslashem, ale to mi vzdy
instalace urizla.
Dalibor.
> mam takovou vec: Potrebuji udelat v Instashieldu instalak, ktery nastavi
> zastupce ve start menu specificky na urcitou lokaci na siti. Vypada to
tak,
> ze vlestni exe a data jsou na servru na nejake url a na stanici chci
> nainstalovat jen lokalni soubor ini a zastupce, co bude mit ve
vlastnostech
> v polozce Cil \\xxx.xxx.xx.xx\sdilenyadresar\program.exe
> \\xxx.xxx.xx.xx\sdilenyadresar\ a ve Spusti v:
> cestanamistniadresaraplikace napriklad d:\slozkaprogramu.
>synapse a NTLM autentifikace
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 11.3.2005 12:25:19
Podporuje Synapse NTLM autentifikaci?
Pokud ne vi nekdo jak ji doprogramovat? Predpokladam, ze bude nutno vyuzit
sluzeb OS, vi nekdo jak? A jak postupovat pokud bych ji chtel pouzit v
nejakem svem programu na overeni uzivatele.
F.
Sinea+HP LaserJet 1320 PCL 6 ->volba zasobniku
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 11.3.2005 12:05:17
> From: Antonin
>
> Nas zakaznik si poridil tiskarnu HP LaserJet 1320 PCL 6 se dvema
zasobniky
> papiru (A5 a A4) zapojenou jako sitovou. Zatimco napr. z wordu
tiskarna
> respektuje nastaveny format papiru a podle toho automaticky voli tisk
na
> A4 nebo A5, neco podobneho se nedari pri tisku ze Sinea.
S timto typem tiskarny nenam zadne zkusenosti, takze pouze obecne.
Sinea je naprosto nezavisla na tom, kam se tiskne. Sinea si zadnym
zpusobem neoveruje moznosti tiskarny a ani zadnym zpusobem zpetne
neovlivnuje nastaveni tiskarny. Pouze vykresli tiskovy vystup na
libovolny Canvas.
Vse tedy zavisi pouze na vychozim nastaveni tiskarny.
Doporucuji nakonfigurovat dve tiskarny, pro kazdy zasobnik jednu a
zpusob tisku ovlivnovat vyberem tiskarny, na kterou se ma tisknout.
Druhou moznosti je tisk z Preview, kde je mozne dodatecne zmenit
nastaveni tiskarny. Tato moznost v nekterych verzich Siney nepracovala
spravne, ale v posledni aktualni verzi funguje.
Nejake automaticke reseni na urovni generatoru sestav na soucasne verzi
asi neni mozne.
Vaclav Krmela
TQREXPR a COUNT
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 11.3.2005 11:53:16
Myslim ale ze ze COUNT neumi parametr SUM ano. COUNT proste secte pocet
zaznamu a hotovo. Proto se take ptam. Alespon se mi nepodarilo jej k tomu
prinutit. Nebo se pletu? Nejsou nekde priklady pro spravny zapis Expression?
Help totalne zklamal.
Martin
> pouzivam sice sumaci, ale treba je to stejne
> QRExpr1.Expression:=SUM(DataSource1.Hmotnost), takze analogie by mohla byt
> QRExpr1.Expression:=COUNT(DataSource1.Hmotnost). Je to uz davno, ale dobre
> si vzpominam, ze s tim byly strasny problemy, nez se mi to podarilo
> nastavit. Rozhodne pri pouziti QRExpresion v QR musis pouzit build pred
> compile a mam takovej pocit, ze jednou to potrebovalo i primo pomazat DCU,
> aby se to promitlo do projektu spravne.
> Ty expresion se jim nejak nepovedly.
>
> Stepan
ADO&MSSQL: Casovy limit vyprsel
[*] delphi(zv)hon(tec)cz - 11.3.2005 11:37:15
Jo jo jo, to znam s tim si tu hraju dnes a denne.
MS SQL zamyka na nejnizsi urovni na urovni klice.
Pokud tedy tabulka nema klic, zamyka po strance
no a tak to jedna transakce zamkne a dokud neskonci
tak ty druhe cekaji a cekaji. Uz jsem to tu do
archivu konference kdysi psal.
Samozrejme muzes zkouset uzivatelovu trpelivost
pomoci ADOConnection.ConnectionTimeout (tak nejak
se ta property jmenuje).
Martin
> v aplikaci spustim transakci nad nejakou tabulkou a v tu chvili jiny
> klient jakoby vytuhne a po nejake dobe u nej vyskoci chyba "Casovy limit
> vyprsel". Vypada to jako by mi ta transakce zamkla celou tabulku a nikdo
> jiny se v ty dobe k tabulce nedostane. Nevite nekdo co s tim? Zkousel
> jsem to resit nastavenim property ADOConnection.IsolationLevel na
> ilReadCommitted, ale to nepomohlo.TQREXPR a COUNT
[*] Stepan Dobias <stepan.dobias(zv)del(tec)cz> - 11.3.2005 11:35:15
Ahoj,
pouzivam sice sumaci, ale treba je to stejne
QRExpr1.Expression:=SUM(DataSource1.Hmotnost), takze analogie by mohla byt
QRExpr1.Expression:=COUNT(DataSource1.Hmotnost). Je to uz davno, ale dobre
si vzpominam, ze s tim byly strasny problemy, nez se mi to podarilo
nastavit. Rozhodne pri pouziti QRExpresion v QR musis pouzit build pred
compile a mam takovej pocit, ze jednou to potrebovalo i primo pomazat DCU,
aby se to promitlo do projektu spravne.
Ty expresion se jim nejak nepovedly.
Stepan
----- Original Message -----
From: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 11, 2005 10:29 AM
Subject: TQREXPR a COUNT
> Nevite nekdo prosim jak pomoci TQREXPR zjistit pocet radku kde se pole X
> rovnaji treba 'AAA'. Neco jako QRExpr1.Expression:=COUNT(POLE='AAA').
Pokud
> je sestava detailni tak to delam tak ze si pri Tisku QRDBTex INCnu
promennou
> a tu pak pouze zobrazim. Ale v sumari ten detailni QRDBText neni.
>
> Zapletal Martin
>
>
>Sinea+HP LaserJet 1320 PCL 6 ->volba zasobniku
[*] Antonin <tantonin(zv)cbox(tec)cz> - 11.3.2005 11:21:14
Dobry den,
Nas zakaznik si poridil tiskarnu HP LaserJet 1320 PCL 6 se dvema zasobniky
papiru (A5 a A4) zapojenou jako sitovou. Zatimco napr. z wordu tiskarna
respektuje nastaveny format papiru a podle toho automaticky voli tisk na A4
nebo A5, neco podobneho se nedari pri tisku ze Sinea.
Nevite nekdo zdali a jak lze v Sinea podobneho efektu dosahnout. Pripadne
nema nekdo zkusenost s danym typem tiskarny a programovym zpusobem prepinani
pouziteho zasobniku, v manualu jsem nic nenasel.
Dekuji za pomoc.
Antonin Turecek
programator
Win XP SP2, D7 prof.
Modifiace zastupce pri instalaci
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 11.3.2005 10:41:11
Ahoj,
mam takovou vec: Potrebuji udelat v Instashieldu instalak, ktery nastavi
zastupce ve start menu specificky na urcitou lokaci na siti. Vypada to tak,
ze vlestni exe a data jsou na servru na nejake url a na stanici chci
nainstalovat jen lokalni soubor ini a zastupce, co bude mit ve vlastnostech
v polozce Cil \\xxx.xxx.xx.xx\sdilenyadresar\program.exe
\\xxx.xxx.xx.xx\sdilenyadresar\ a ve Spusti v:
cestanamistniadresaraplikace napriklad d:\slozkaprogramu.
Podle prvniho parametru mi program vytvori pripojeni na data na servru,
druhy rika, kde hledat ruzne potrebne lokalni soubory.
Potiz je v tom, ze nevim jak tyto parametry vnutit pri instalaci zastupci ve
startmenu.
Dekuji za pomoc
Dalibor.Demo pro FB
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 11.3.2005 10:31:10
> Kde najdu demo k FB1.5 a D5.
> Potrebuji jen nejake minimalisticke abych zjistil jak se s FB
> vlastne spojit a komunikovat.
FB 1.5 stahnout z www.ibphoenix(tec)cz
Pak by snad melo fungovat
c:\Program Files\Borland\Delphi5\Demos\Db\IbMastApp\mastapp.dpr
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================TQREXPR a COUNT
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 11.3.2005 10:29:10
Nevite nekdo prosim jak pomoci TQREXPR zjistit pocet radku kde se pole X
rovnaji treba 'AAA'. Neco jako QRExpr1.Expression:=COUNT(POLE='AAA'). Pokud
je sestava detailni tak to delam tak ze si pri Tisku QRDBTex INCnu promennou
a tu pak pouze zobrazim. Ale v sumari ten detailni QRDBText neni.
Zapletal Martin
ADO&MSSQL: Casovy limit vyprsel
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 11.3.2005 10:21:09
Dobry den,
v aplikaci spustim transakci nad nejakou tabulkou a v tu chvili jiny
klient jakoby vytuhne a po nejake dobe u nej vyskoci chyba "Casovy limit
vyprsel". Vypada to jako by mi ta transakce zamkla celou tabulku a nikdo
jiny se v ty dobe k tabulce nedostane. Nevite nekdo co s tim? Zkousel
jsem to resit nastavenim property ADOConnection.IsolationLevel na
ilReadCommitted, ale to nepomohlo.
Dekuju za kazdou radu,
Vas, D7 Proff, MS SQL2000
jak z DELPHI na DNS
[*] david.kopecek(zv)hacktrack(tec)com - 11.3.2005 09:23:01
Cau
>> neresil nekdo v Delphi jak komunikvat s MS DNS serverem ?. TJ
>> vylistovat domeny a jejich parametry a popripade je upravovat ?
LG> Pokud jde jen o cteni dat, pak lze vyuzit dnssend ze synapse, ktere umi
LG> precist cokoliv, vcetne transferu cele domeny. Otazku zapisu dat jsem ale
LG> u MS DNS serveru opravdu nikdy neresil.
Jo vim synapse ja DNS super, jenze tohle mi to nevyresit bohuzel
potrebuji primo pracovat s MS DNS..
diky David
Demo pro FB
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 11.3.2005 09:35:04
FB je opensource ;-)
http://firebird.sourceforge.net/
http://www.ibphoenix.com/
V D5 je mozno se pripojovat pomoci standardnich IBX component
Libor
----- Original Message -----
From: "Petr Fiser" <petr.fiser(zv)3jservis(tec)cz>
Sent: Friday, March 11, 2005 9:25 AM
> Kde najdu demo k FB1.5 a D5.
> Potrebuji jen nejake minimalisticke abych zjistil jak se s FB vlastne
> spojit a komunikovat.synapse
[*] Lauko Stefan <laukosw(zv)naex.sk> - 11.3.2005 09:29:02
Ahoj,
ten PHP script na prve videnie sa mi nezda. Funguje to tak, ze pri UpLoade
suboru PHP ulozi subor do tempu a odtial ho treba kopirovat, tak asi
(Copy($_FILES['soub']['tmp_name'], '../_pics/'.$_FILES['soub']['name']))
aj velkost suborov je niekedy obmedzena na 1MB.
Lauko.
----- Original Message -----
From: "Pavel Volak" <volakp(zv)chello(tec)cz>
Sent: Friday, March 11, 2005 8:04 AM
Chci upload souboru na net. Mam proceduru - synapse. Na netu
> PHP. Porad s mi nevede ten soubor presunout.
> st:= TFileStream.Create(jmeno, fmOpenRead or fmShareDenyWrite);
> try
> is_ok:= HTTPPostFile(www+'copy.php', 'soub',
> ExtractFilename(jmeno),
> st, TStringList(m_Obraz.Lines));
> st.Seek(0,soFromBeginning);
> m_Obraz.Lines.LoadFromStream(st);
> finally
> st.Free;
> end;
>
> v copy.php mam toto:
>
> <?PHP
> while (list ($key, $val) = each ($HTTP_GET_VARS)){
> if ($key== "soub") $soub= $val;
> }
> if (Copy($soub, '../_pics/'.$_FILES['soub']['name']))
> $soub:= 'ok';
> else
> $soub:= 'chyba';
> echo $soub;
> ?>Demo pro FB
[*] Petr Fiser <petr.fiser(zv)3jservis(tec)cz> - 11.3.2005 09:25:01
Dobry den.
Kde najdu demo k FB1.5 a D5.
Potrebuji jen nejake minimalisticke abych zjistil jak se s FB vlastne spojit a komunikovat.
Dekuji, Petr
kontrolni funkce
[*] david.kopecek(zv)hacktrack(tec)com - 11.3.2005 09:23:01
Zdravim konferenci
nemate nekdo prosim po ruce uplne jednoduchou funkci na kontrolu
obsahu stringu vuci poli s povolenyma znakama ?
nejak mi to nejde odladit
thx
D.synapse
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 11.3.2005 08:54:56
Tva informace "Porad s mi nevede ten soubor presunout" je tedy dost
chaba. Pokud chces radu, napis presne, co se nevede.
Proc delas tohle pretypovani? To je podezrele.
> TStringList(m_Obraz.Lines));
Pavel Volak napsal(a):
> Dobry den,
>
> prosim o pomoc. Chci upload souboru na net. Mam proceduru - synapse. Na netu
> PHP. Porad s mi nevede ten soubor presunout.
>
> Dik Pavel V
>
>
> st:= TFileStream.Create(jmeno, fmOpenRead or fmShareDenyWrite);
> try
> is_ok:= HTTPPostFile(www+'copy.php', 'soub', ExtractFilename(jmeno),
> st, TStringList(m_Obraz.Lines));
> st.Seek(0,soFromBeginning);
> m_Obraz.Lines.LoadFromStream(st);
> finally
> st.Free;
> end;
>
>
> v copy.php mam toto:
>
> <?PHP
> while (list ($key, $val) = each ($HTTP_GET_VARS)){
> if ($key== "soub") $soub= $val;
> }
> if (Copy($soub, '../_pics/'.$_FILES['soub']['name']))
> $soub:= 'ok';
> else
> $soub:= 'chyba';
> echo $soub;
> ?>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 11.3.2005 08:42:55
> prosim o pomoc. Chci upload souboru na net. Mam proceduru - synapse. Na netu
> PHP. Porad s mi nevede ten soubor presunout.
To neni vubec problem synapse, ale toho tveho PHP skriptu na serveru.
Soubor je totiz na serveru ulozen ne pod originlnim nazvem, ale pod
docasnym nazvem! Prostuduj si k tomu dokumentaci, zacni na:
http://cz2.php.net/manual/en/features.file-upload.php
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.synapse
[*] Pavel Volak <volakp(zv)chello(tec)cz> - 11.3.2005 08:04:53
Dobry den,
prosim o pomoc. Chci upload souboru na net. Mam proceduru - synapse. Na netu
PHP. Porad s mi nevede ten soubor presunout.
Dik Pavel V
st:= TFileStream.Create(jmeno, fmOpenRead or fmShareDenyWrite);
try
is_ok:= HTTPPostFile(www+'copy.php', 'soub', ExtractFilename(jmeno),
st, TStringList(m_Obraz.Lines));
st.Seek(0,soFromBeginning);
m_Obraz.Lines.LoadFromStream(st);
finally
st.Free;
end;
v copy.php mam toto:
<?PHP
while (list ($key, $val) = each ($HTTP_GET_VARS)){
if ($key== "soub") $soub= $val;
}
if (Copy($soub, '../_pics/'.$_FILES['soub']['name']))
$soub:= 'ok';
else
$soub:= 'chyba';
echo $soub;
?>
Jak nacist data z html serveru kdyz vystupem neni
[*] Pavel Volak <volakp(zv)chello(tec)cz> - 10.3.2005 22:20:13
Tato fc plni TMemo z TWebBrowseru
function TForm1.GetHTMLCode(WB: TWebbrowser; ACode: TStrings): Boolean;
var ps: IPersistStreamInit;
s: string;
ss: TStringStream;
sa: IStream;
begin
ps:= WB.document as IPersistStreamInit;
s:= '';
ss:= TStringStream.Create(s);
try
sa:= TStreamAdapter.Create(ss, soReference) as IStream;
Result:= Succeeded(ps.Save(sa, Bool(True)));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
----- Original Message -----
From: "Pavel P" <pavel(zv)tvsp.net>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 10, 2005 1:39 PM
Subject: Jak nacist data z html serveru kdyz vystupem neni HTML ale pouze
prosty text?> Dobry den vsem,
> mate nekdo nejakou radu jak nacist vystup nejakeho php skriptu, v pripade
ze je to pouze prosty text a ne html kod? Zkousel jsem to v synapse, to se
nejak nezadarilo, ale myslim ze by to mohlo jit i v TWebBrowser, ale tam se
mi misto textu zobrazi pouhe nic. Diky za rady. Pavel P.
>
>
>jak z DELPHI na DNS
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.3.2005 21:10:08
> neresil nekdo v Delphi jak komunikvat s MS DNS serverem ?. TJ
> vylistovat domeny a jejich parametry a popripade je upravovat ?
Pokud jde jen o cteni dat, pak lze vyuzit dnssend ze synapse, ktere umi
precist cokoliv, vcetne transferu cele domeny. Otazku zapisu dat jsem ale
u MS DNS serveru opravdu nikdy neresil.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Text na Canvasu do obdelniku
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 10.3.2005 19:48:02
Tusim ze unita Windows. Pouziva se cca DrawText(Canvas.Handle,...) viz
napoveda v Delphi, ci MSDN
>Kde najdu tento DrawText a jak ho pouzit? Potrebuju kreslit na Canvas.
>
> >
> > DrawText
> >
> > http://msdn.microsoft.com/library/default.asp?url=/library/en-
> > us/gdi/fontext_0odw.asp
> >
> > pokud pouzijes parametr DT_WORDBREAK a DT_CALCRECT tak to
> > zalomi text a
> > vrati to vysku obdelniku. Diky tomu pak muzes menit velikost
> > fontu dle potreby. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
jak z DELPHI na DNS
[*] david.kopecek(zv)hacktrack(tec)com - 10.3.2005 18:09:55
Zdravim konfereenci
neresil nekdo v Delphi jak komunikvat s MS DNS serverem ?. TJ
vylistovat domeny a jejich parametry a popripade je upravovat ?
David
Sluzba a net use
[*] konference(zv)sales(tec)cz - 10.3.2005 17:19:51
On Behalf Of Sula Milos
> Dekuju,
> 1) Poustim ji ted pod uctem Administrator
Predpokladam ze admin ma do prislusneho adresare pravo zapisovat i pravo
sdileni.
> 2) jelikoz nefunguje budu ji muset nastavit tak jak rikate,
> ale nechapu
> jak se to nastavuje. Me tam ty zavislosti ve sluzbach primo
> menit nejdou
V Delphi v Object Inspektoru TService - > Property Dependencies
(TDependencies)
Ludek
Text na Canvasu do obdelniku
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 10.3.2005 16:59:49
Kde najdu tento DrawText a jak ho pouzit? Potrebuju kreslit na Canvas.
Karel
>
> DrawText
>
> http://msdn.microsoft.com/library/default.asp?url=/library/en-
> us/gdi/fontext_0odw.asp
>
> pokud pouzijes parametr DT_WORDBREAK a DT_CALCRECT tak to
> zalomi text a
> vrati to vysku obdelniku. Diky tomu pak muzes menit velikost
> fontu dle potreby.Cestina v nazvech souboru ve FindFirst / FindNext
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 10.3.2005 16:55:49
Zdravim,
mam problem s pouzitim funkce FindFirst / FindNext a to v situaci, kdy
nazev souboru obsahuje nektere znaky ceske abecedy (napr. c, s, z, r s
hackem). Pokud program poustim na W2000 s defaultni znakovou sadou W1250,
pak to funguje bez problemu, pokud na WNT s W1252 pak FindFirst soubor
najde, ale vrati "upraveny" nazev, ktery misto vyse zminovanych problemovych
znaku vraci znaky bez diakrtiky. Nektere jine ceske znaky (napr. a, y s
carkou) ponecha stejne.
Problem je v tom, ze kdyz chci pote se nazvem souboru pracovat, konrketne
jej prejmenovat, tak pri pouziti nazvu, ktery vratila fce FindFirst mi to
selze - soubor neexistuje, coz je vicemene pravda, nebo existuje ale s jinym
nazvem.
Pokousel sem se pouzit funkci WideFindFirst ze sady komponent TntUnicode
(http://www.tntware.com/delphicontrols/unicode/), ale bohuzel se stejnym
vysledkem. Pritom spravny nazev soubor podle me musi byt mozne zjistit,
protoze napr. TotalCommander nebo Pruzkumnik zobrazuji nazvy spravne i s
cestinou.
Diky za kazdy tip.
Jirka Matejka
D6Prof
Proxy Authentication
[*] Suky <suky(zv)atlas(tec)cz> - 10.3.2005 15:51:44
puvodni zprava:
DT> Suky <suky(zv)atlas(tec)cz> wrote:
>>> Kod 500 signalizuje nejakou interni chybu ci chybu pri komunikaci
>>> se
>>> vzdalenym serverem. podrobnosti by se mely objevit v ErrorLog.txt
>>
>> Tak jsem si to znovu nainstaloval a koukam ted do logu a vidim tuto
>> hlasku z
>> ktere nejsem vubec moudrej:>> Insecure Interfaces (Autodetected). ERROR! No interface connected to
>> the Internet was found!
DT> to je hlaska, ktera jen upozornuje na to, ze automaticka detekce
DT> rozhrani pripojeneho k Internetu (tedy automaticke nastaveni security)
DT> nenaslo zadne potencialne nebezpecne rozhrani (default gateway). To je
DT> nejspis zpusobeno "genialnim" myslenkovym pochodem vyvojare u MS,
DT> ktery se rozhodl, ze Eth rozhrani, ktere nema pripojeny kabel (nebo je
DT> broadband router na druhe strane vypnuty), zmizi beze stopy z prehledu
DT> rozhrani (a z routovani). Novejsi verze P+
DT> (ftp.proxyplus.net/testversion) tuhle automatickou kontrolu
DT> nepouzivaji
DT> Zapni si v P+ v Log Files/ProxyLog events podrobne informace z HTTP
DT> proxy sluzby - budou se logovat hlavicky vsech HTTP zadosti - tam
DT> uvidis jaky kod Ti Proxy+ vraci (nebo si chytni packety nejakym
DT> snifferem - viz Ethereal).
DT> Aby P+ vyzadovala heslo (tedy vubec nekdy poslal odpoved 407), musi
byt nastaveno Proxy settings/Proxies/HTTP Proxy ->> HTTP Proxy
DT> authentication na neco jineho nez 'None'
DT> Zdravi
DT> Dalibor Toman Logovani mi pomohlo najit pricinu. Ja totiz overoval kod 407 pri odesilani
souboru, ale ten se posila po castech no a driv nez jsem tedy mohl ocekavat
407, doslo k chybe:
Unexpected data from client: 8193 bytes of data removed before socket closed.
Takze jsem si dodelal napred test spojeni na GET nejake stranky a to dostanu
hned kod 407.
Dekuji moc za pomoc.
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)Proxy Authentication
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.3.2005 15:17:42
Suky <suky(zv)atlas(tec)cz> wrote:
>> Kod 500 signalizuje nejakou interni chybu ci chybu pri komunikaci
>> se
>> vzdalenym serverem. podrobnosti by se mely objevit v ErrorLog.txt
>
> Tak jsem si to znovu nainstaloval a koukam ted do logu a vidim tuto
> hlasku z
> ktere nejsem vubec moudrej:> Insecure Interfaces (Autodetected). ERROR! No interface connected to
> the Internet was found!
to je hlaska, ktera jen upozornuje na to, ze automaticka detekce
rozhrani pripojeneho k Internetu (tedy automaticke nastaveni security)
nenaslo zadne potencialne nebezpecne rozhrani (default gateway). To je
nejspis zpusobeno "genialnim" myslenkovym pochodem vyvojare u MS,
ktery se rozhodl, ze Eth rozhrani, ktere nema pripojeny kabel (nebo je
broadband router na druhe strane vypnuty), zmizi beze stopy z prehledu
rozhrani (a z routovani). Novejsi verze P+
(ftp.proxyplus.net/testversion) tuhle automatickou kontrolu
nepouzivaji
Zapni si v P+ v Log Files/ProxyLog events podrobne informace z HTTP
proxy sluzby - budou se logovat hlavicky vsech HTTP zadosti - tam
uvidis jaky kod Ti Proxy+ vraci (nebo si chytni packety nejakym
snifferem - viz Ethereal).
Aby P+ vyzadovala heslo (tedy vubec nekdy poslal odpoved 407), musi
byt nastaveno Proxy settings/Proxies/HTTP Proxy -> HTTP Proxy
authentication na neco jineho nez 'None'
Zdravi
Dalibor Toman
Sluzba a net use
[*] Sula Milos <milos.sula(zv)musumperk(tec)cz> - 10.3.2005 14:51:40
Dekuju,
1) Poustim ji ted pod uctem Administrator
2) jelikoz nefunguje budu ji muset nastavit tak jak rikate, ale nechapu
jak se to nastavuje. Me tam ty zavislosti ve sluzbach primo menit nejdou
.... ???
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of konference(zv)sales(tec)cz
Sent: Thursday, March 10, 2005 2:44 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Sluzba a net use
On Behalf Of Sula Milos
> Ahoj,
> mam napsanou sluzbu v niz pod systemovym uctem mapuju lpt1 na USB
> tiskarnu pomoci sdileni. Bohuzel kdyz se servisni aplikace spusti sama
> (po spusteni pc) , je mapovani neuspesne. Kdyz ji pak restartuju rucne
> vse je to ok:
>
> procedure TService1.ServiceStart(Sender: TService; var Started:
> Boolean); var a,l:integer;
> str:string;
> begin
> a:=ShellExecute(0, 'open', 'net', ' use lpt1 \\localhost\hp', nil,
> SW_HIDE);
> end;
>
Ahoj.
Mozne priciny :
1) Sluzba NESMI bezet pod uctem "LocalSystem" protoze ten nema moznost
videt
UNC cesty (\\neco\nekde), mel bys ji pustit pod nejakym jinym uctem.
2) Je nutne v dependencies nastavit startovani sluzby pozdeji nez sluzba
"Computer Browser"
Ludek
Proxy Authentication
[*] Suky <suky(zv)atlas(tec)cz> - 10.3.2005 14:49:40
DT> Kod 500 signalizuje nejakou interni chybu ci chybu pri komunikaci se
DT> vzdalenym serverem. podrobnosti by se mely objevit v ErrorLog.txt
Tak jsem si to znovu nainstaloval a koukam ted do logu a vidim tuto hlasku z
ktere nejsem vubec moudrej:
Insecure Interfaces (Autodetected). ERROR! No interface connected to the Internet was found!
Sluzba a net use
[*] konference(zv)sales(tec)cz - 10.3.2005 14:43:39
On Behalf Of Sula Milos
> Ahoj,
> mam napsanou sluzbu v niz pod systemovym uctem mapuju lpt1 na USB
> tiskarnu pomoci sdileni. Bohuzel kdyz se servisni aplikace spusti sama
> (po spusteni pc) , je mapovani neuspesne. Kdyz ji pak restartuju rucne
> vse je to ok:
>
> procedure TService1.ServiceStart(Sender: TService; var Started:
> Boolean);
> var a,l:integer;
> str:string;
> begin
> a:=ShellExecute(0, 'open', 'net', ' use lpt1 \\localhost\hp', nil,
> SW_HIDE);
> end;
>
Ahoj.
Mozne priciny :
1) Sluzba NESMI bezet pod uctem "LocalSystem" protoze ten nema moznost videt
UNC cesty (\\neco\nekde), mel bys ji pustit pod nejakym jinym uctem.
2) Je nutne v dependencies nastavit startovani sluzby pozdeji nez sluzba
"Computer Browser"
Ludek
BDE-NETfile location programove
[*] vsai2 <vsai2(zv)c-term.sk> - 10.3.2005 14:31:38
vsai2 wrote:
>
> ------------------------------------------------------------------------
>
> Subject:
> Re: BDE-NETfile location programove
> From:
> Miso Noge <noge.michal(zv)c-term.sk>
> Date:
> Thu, 10 Mar 2005 14:22:57 +0100
> To:
> delphi-l(zv)clexpert(tec)cz
>
> To:
> delphi-l(zv)clexpert(tec)cz
>
>
> session.netfiledir
> Session maintains database components used by an application.
>
> Unit
>
> DBTables
>
> var Session: TSession;
>
> Description
>
> Session is responsible for maintaining all of the database components
> used by an application. It is created automatically as part of an
> application's initialization and destroyed as part of the
> application's termination. The Session variable must remain active at
> all times; it can not be destroyed and recreated.
> Dalibor Faltynek wrote:
>
>> Ahoj,
>> prosim mozna se ptam blbe, ale jeste pouzivame paradox tabulky a BDE
>> a potreboval bych zjistit, jak programove nastavit cestu na NET file
>> pro paradox z programu pri startu? (D5Enterprise a BDE).
>> Diky - Dalibor.
>>
>>
>>
>>
>
>Proxy Authentication
[*] Suky <suky(zv)atlas(tec)cz> - 10.3.2005 14:13:36
puvodni zprava:
DT> DD,
DT> Suky <suky(zv)atlas(tec)cz> wrote:
>> Ahoj,
>>
>> prave jsem zjistil, ze ne kazda proxyna vraci kod 407 jako Proxy
>> Athentication Requested. Napriklad Proxy+ vraci kod 500.
>> Existuje i jina metoda jak zjistit, ze proxy server vyzaduje
>> autentizaci?
DT> na to musim reagovat: Proxy+ urcite pri pouziti chranene HTTP proxy
DT> sluzby vraci '407 Proxy Authentication required' pokud klient
DT> neposlal spravne jmeno/heslo.
No ja to ted testoval. Stahnul jsem si dnes Proxy+, nainstaloval a nastavil
authentizaci. Vracelo to kod 500, jakmile jsem zadal username a password,
proslo to.
DT> Kod 500 signalizuje nejakou interni chybu ci chybu pri komunikaci se
DT> vzdalenym serverem. podrobnosti by se mely objevit v ErrorLog.txt
Bohuzel jsem uz Proxy+ smazal, takze ErrorLog.txt tu ted nemam a nemohu se
do neho podivat.
DT> Jiny zpusob nez vraceni 407 k informovani klienta, ze musi poslat na
DT> proxy jmeno a heslo neexistuje...
Ignoroval jsem kod 500 co mi vracela Proxy+ a uz jsem to nastavil na kod
407.
DT> Zdravi
DT> Dalibor Toman
Proxy Authentication
[*] Suky <suky(zv)atlas(tec)cz> - 10.3.2005 14:11:35
puvodni zprava:
>> prave jsem zjistil, ze ne kazda proxyna vraci kod 407 jako Proxy Athentication
>> Requested. Napriklad Proxy+ vraci kod 500.
>> Existuje i jina metoda jak zjistit, ze proxy server vyzaduje autentizaci?
LG> No k tomu slouzi prave ten kod 407. Pokud nejaka proxy dava najevo
LG> potrebu autorizace kodem 500, pak bude chyba v te proxy, ne?
LG> Mimochodem, autorizacni udaje muzes zkusit poslat i kdyz si o ne
LG> proxy nerekla. Bud je zbasti, nebo ti rekne ze jsou spatne.
Nechci se dotazovat uzivatele na username a heslo aniz je to treba.
Frekvence procesoru
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 10.3.2005 14:05:35
No ty utilitky nevyzaduji admin prava? Me se teda bez nich nespusti ...
A pokud maji studenti admin prava tak je asi chyba nekde jinde.
Ad jumper) Nevim jak jinde, ale u nas na skole se ve vypocetce porad
pohybuje nekdo z ucitelu, pochybuju ze by proslo kdybych tam rozdelaval
comp. To bych musel byt celkem rychly.
Radek Cervinka napsal(a):
> Jakub Cermak wrote:
>
>
>>Nechapu. Tak tam nastav nejaky tezky heslo typu .DomACi_Zvire781
>>To ti tezko nekdo rozlouskne
>
>
> To nemyslis vazne ze?
>
> http://www.google.com/search?hl=en&q=clear+bios+password+software&btnG=Google+Search
>
> treba
> http://www.utilitygeek.com/details.php?fileid=82
>
> Radek
S pozdravem
Jakub Cermak
ICQ 159971304
http://cermi.wz(tec)cz
Jak nacist data z html serveru kdyz vystupem neni
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 10.3.2005 13:45:28
Ja osobne nechapu proc to se synapsi neproslo, kdyz vim zcela jiste, ze to
funguje. Podivej se na unitu HTTPSend a funkci HTTPGetText popr. Na
THTTPSend.HTTPMethod. Jiz jsem to nekolikrat naprosto bez problemu pouzil.
S pozdravem
Milan Tomes
P.S.: nejdrive si treba v IE odzkousej, jestli ten server vubec neco
vraci...
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel P
> Sent: Thursday, March 10, 2005 1:39 PM
>
> mate nekdo nejakou radu jak nacist vystup nejakeho php
> skriptu, v pripade ze je to pouze prosty text a ne html kod?
Ukazatel na konstruktor
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 10.3.2005 13:35:27
Ahoj,
znamenalo by to neco jako:
type
TConstructor = constructor(A: Integer);
PConstructor = ^TConstructor;
coz nejde (D7)... ani pro destruktor.
Tk.
> Me jde jen o to jestli to jde nebo ne.
Jak nacist data z html serveru kdyz vystupem neni
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.3.2005 13:45:28
> mate nekdo nejakou radu jak nacist vystup nejakeho php skriptu, v
> pripade ze je to pouze prosty text a ne html kod? Zkousel jsem to v
> synapse, to se nejak nezadarilo, ale myslim ze by to mohlo jit i v
> TWebBrowser, ale tam se mi misto textu zobrazi pouhe nic.
Synapse stahne vracena data a je ji uplne jedno o co se jedna.
Jestlize PHP skript vrati prosty text, Synapse ti vrati prosty text.
Jestlize ti PHP skript vrati obrazek, Synapse ti vrati data tvorici
ten obrazek. Tady neni zadny zadrhel!
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.BDE-NETfile location programove
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 10.3.2005 13:55:29
Ahoj,
prosim mozna se ptam blbe, ale jeste pouzivame paradox tabulky a BDE a potreboval bych zjistit, jak programove nastavit cestu na NET file pro paradox z programu pri startu? (D5Enterprise a BDE).
Diky - Dalibor.
Jak nacist data z html serveru kdyz vystupem neni
[*] Pavel P <pavel(zv)tvsp(tec)net> - 10.3.2005 13:39:27
Dobry den vsem,
mate nekdo nejakou radu jak nacist vystup nejakeho php skriptu, v pripade ze je to pouze prosty text a ne html kod? Zkousel jsem to v synapse, to se nejak nezadarilo, ale myslim ze by to mohlo jit i v TWebBrowser, ale tam se mi misto textu zobrazi pouhe nic. Diky za rady. Pavel P.