Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Setrideni Project manageru podle abecedy
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 11.8.2003 14:28:47
Ahoj,
mam mozna stupidni dotaz, jak udrzovat unity
v Project manageru setrizene podle abecedy?
Ted to mam chronologicky a je to neprehledne.
Nikde, ani v Environment Options nemuzu nic najit.
Radim
Vyska radku v ListView
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 11.8.2003 14:32:49
Zdravim
> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
>> jo ja vim ze virtual tree je nejlepsi reseni ale potrebuji ty problemy
>> s listview vyresit do komerencniho projektu.. takze pouziti neceho
>> free asi neni moc v poradku
> Proc by nebylo. VirtualTreeView je pod MPL licenci takze jej muzes pouzivat.
> Jinak by asi ani nemelo smysl aby jej autor daval k volnemu pouziti. Ne kazdy
> nici vysledky sve prace necim takovym jako je vyhradni licencovani pod GPL.
asi ano, pouziju vitrualtreeview a uz nebudu otravovat
> Kdyz se podivas na galerii tak tam uvidis pouziti i v komercnich produktech:
> http://www.delphi-gems.com/VirtualTreeview/VTGallery.php
> Petr Vones
S pozdravem
Milan Vymazal
program neodpovida
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 14:10:36
From: "Martin Bursa" <martin.bursa(zv)ikos(tec)cz>
> nevite jak zamezit v XP tomu, aby se behem zpracovani casove narocne akce
> po nekolika sekundach v titulku hlavniho okna objevilo "XXX (neodpovida)" ?
Pouzivas funkci MessageDlg ?
Petr Vones
Sluzba, registry, prihlaseny uzivatel - jak to dat
[*] little_bobes(zv)centrum(tec)cz - 11.8.2003 13:46:24
Zdravim,
vytvoril jsem si na serveru ovladaci programek, kterym do registru zapisu
nejake informace.
Tyto informace se zapisi do HKEY_CURRENT_USER.
Nyni mi na serveru bezi sluzba, ktera mimo jine cte tyto informace z
registru.
Lepe receno by cist mela. Problem je ale v tom, ze sluzba neni vazana na
prihlaseneho uzivatele, proto mi necte informace z HKEY_CURRENT_USER, ale z
HKEY_USERS\.DEFAULT.
Udelal jsem pri vytvareni sluzby nekde chybu, nebo je chyba v tom, ze ten
ovladaci programek nezapisuje do HKEY_USERS\.DEFAULT?
A nebo je ten pes zakopany uplne nekde jinde?
Diky Bob
(D4 c/s, Win2000)dll a win98
[*] hlavki(zv)medium13 <hlavki(zv)medium13.sk> - 11.8.2003 14:00:30
>>If Modules[idx].Handle <> 0 then
PV> Kde se najednou vzalo Modules[idx] ?
No yo,
to je OK, to som prepisoval v maile, aby to bolo zrozumitelnejsie...
samozrejme v tomto problem nie je a malo by to byt:
If MyHandle <> 0 then bla bla
hlavki
Vyska radku v ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 13:38:19
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> jo ja vim ze virtual tree je nejlepsi reseni ale potrebuji ty problemy
> s listview vyresit do komerencniho projektu.. takze pouziti neceho
> free asi neni moc v poradku
Proc by nebylo. VirtualTreeView je pod MPL licenci takze jej muzes pouzivat.
Jinak by asi ani nemelo smysl aby jej autor daval k volnemu pouziti. Ne kazdy
nici vysledky sve prace necim takovym jako je vyhradni licencovani pod GPL.
Kdyz se podivas na galerii tak tam uvidis pouziti i v komercnich produktech:
http://www.delphi-gems.com/VirtualTreeview/VTGallery.php
Petr Vones
program neodpovida
[*] Martin Bursa <martin.bursa(zv)ikos(tec)cz> - 11.8.2003 13:02:11
Ahoj,
nevite jak zamezit v XP tomu, aby se behem zpracovani casove narocne akce
po nekolika sekundach v titulku hlavniho okna objevilo "XXX (neodpovida)" ?
Nemohu tento problem resit volanim zpracovani zprav a take jej
nechci resit nastavovanim kompatibility se starsimi Windows. Urcite existuje
i dalsi reseni, protoze pokud aplikaci spustim z IDE Delphi, nikdy se
tento problem nevyskytne ! D5 prof, XP
Maca
DBExpress a editovanie zaznamov v DB
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 13:28:13
11.8.2003 p.sestak(zv)corag.sk:
> Zdravim,
> Potrebujem sa na DB pripojit pomocou komponent DBExpress.
> Neviem vsak, ake komponenty mam vlastne na Form polozit a ako ich
> poprepajat tak, aby som zaznamy mohol v DBGride aj menit.
> Skusal som to urobit, no uz v design time mi to hadzalo chybu
> "Operation not allowed on a unidirectional dataset".
> Ked som pouzil SQLClientDataSet, DBNavigator mal tlacitko Post zasedene.
> Privital by som, ked by mi mohol niekto poslat chodivy priklad na sukromnu
dbExpress jsou urceny pro praci s SQL servery a motat do toho editaci
v GRIDU...
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Vyska radku v ListView
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 11.8.2003 13:28:13
Zdravim
> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
>> takze multiline u listview jsem zavrhl. Ale potreboval bych zmenit
>> velikost radku u komponenty ListView, to uz snad mozne je...
> Je zajimave, ze je nekdo ochoten stravit hodiny vymyslenim uz vymysleneho :-)
> Vysku zmenis budto fontem nebo vyskou prirazenych ikon z imagelistu.
jo ja vim ze virtual tree je nejlepsi reseni ale potrebuji ty problemy
s listview vyresit do komerencniho projektu.. takze pouziti neceho
free asi neni moc v poradku
> Petr Vones
S pozdravem
Milan Vymazal
Vyska radku v ListView
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 11.8.2003 13:04:11
Zdravim
takze multiline u listview jsem zavrhl. Ale potreboval bych zmenit
velikost radku u komponenty ListView, to uz snad mozne je...
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
DBExpress a editovanie zaznamov v DB
[*] p.sestak(zv)corag.sk - 11.8.2003 12:58:10
Zdravim,
Potrebujem sa na DB pripojit pomocou komponent DBExpress.
Neviem vsak, ake komponenty mam vlastne na Form polozit a ako ich
poprepajat tak, aby som zaznamy mohol v DBGride aj menit.
Skusal som to urobit, no uz v design time mi to hadzalo chybu
"Operation not allowed on a unidirectional dataset".
Ked som pouzil SQLClientDataSet, DBNavigator mal tlacitko Post zasedene.
Privital by som, ked by mi mohol niekto poslat chodivy priklad na sukromnu
adresu: p.sestak(zv)corag.sk
alebo nejaky hint, ako to urobit pomocou DBExpressu.
P.Sestak
chyby VS .NET a C# ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 12:08:05
From: "Lubos Urban" <lubos.urban(zv)visicom.sk>
> .NET Framework 1.0 verzia 1.0.3705
To uz je stara verze, plno chyb je opraveno v 1.1
Petr Vones
Jednoznacny identifikator (autoincrement?) - teore
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 11.8.2003 12:18:06
> No a este taku podotazocku, kde by som nasiel na nete nieco o
> generovani toho guid, pretoze
> ako pisete predpokladam, ze ma dlzku 128 bitov, co by v podstate
> nebolo nad db az tak vela, pretoze
> sucastne pouzivam 64 bitovi identifikator (autoincrement), ale
> predpokladam, ze pouzivanie GUID by kadeco zjednodusilo.
Ahoj,
na netu jsem to nehledal. Zkusil bych google.
Tohle je definice GUIDu z MS SDK:
*********************************************************************
GUID
GUIDs identify objects such as interfaces, manager entry-point vectors
(EPVs), and class objects. A GUID is a 128-bit value consisting of one group
of 8 hexadecimal digits, followed by three groups of 4 hexadecimal digits
each, followed by one group of 12 hexadecimal digits. The following example
shows the groupings of hexadecimal digits in a GUID.
6B29FC40-CA47-1067-B31D-00DD010662DA
The GUID structure stores a GUID.
typedef struct _GUID
{
DWORD Data1;
WORD Data2;
WORD Data3;
BYTE Data4[8];
} GUID;
Members
Data1
Specifies the first 8 hexadecimal digits of the GUID.
Data2
Specifies the first group of 4 hexadecimal digits.
Data3
Specifies the second group of 4 hexadecimal digits.
Data4
Specifies an array of 8 bytes. The first 2 bytes contain the third group of
4 hexadecimal digits. The remaining 6 bytes contain the final 12 hexadecimal
digits.
************************************************
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Vyska radku v ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 13:08:11
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> takze multiline u listview jsem zavrhl. Ale potreboval bych zmenit
> velikost radku u komponenty ListView, to uz snad mozne je...
Je zajimave, ze je nekdo ochoten stravit hodiny vymyslenim uz vymysleneho :-)
Vysku zmenis budto fontem nebo vyskou prirazenych ikon z imagelistu.
Petr Vones
dll a win98
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 12:20:07
From: "hlavki(zv)medium13" <hlavki(zv)medium13.sk>
> MyHandle := LoadLibrary(PCHar(filename));
V MyHandle mame tedy HMODULE
> If Modules[idx].Handle <> 0 then
Kde se najednou vzalo Modules[idx] ?
> begin
> (zv)proc := GetProcAddress(MyHandle, 'RunModul');
Chybi kontrola zdali (zv)proc neni nil
Petr Vones
ListView a multiline
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 12:08:05
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> je mozne nastavit u komponenty Listview ktera je v report modu vlastnost
> MULTILINE pro radek ?
Ne. TListView bude mit vzdy jen jeden radek. Pokud by jsi totiz pouzil
VirtualTreeview nebo TDrawGrid tak uz to mas davno vyresene.
Petr Vones
SetCursor v threadu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 12:22:07
From: "Pavel Gazda" <pavel_gazda(zv)datasw(tec)cz>
> Predpokladal jsem Timer v samostatnem threadu,
Pouzit komponentu TTimer v threadu je nesmysl, to je daleko snazsi cekat v
nejake WaitXXX funkci.
Petr Vones
ListView a multiline
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 11.8.2003 12:34:08
Zdravim
>> je mozne nastavit u komponenty Listview ktera je v report modu vlastnost
>> MULTILINE pro radek ?
>Ne. TListView bude mit vzdy jen jeden radek. Pokud by jsi totiz pouzil
>VirtualTreeview nebo TDrawGrid tak uz to mas davno vyresene.
No ale advlistview to mam a funguje mu to skvele. uz jsem prisel na to jak udelat v header aby to bylo
multi line a v tom radku to musi ji ttaky.
Milan
Aktualizace EXE programu
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 11.8.2003 11:34:02
> Spustit jiny program a ukoncit puvodni.
> Novy program stahne aktualizaci a zaktualizuje
> puvodni program a znovu jej spusti.
Pred spustenim aktualizacneho programu treba ten exe skopirovat z
nejakej matrice a spustit az tu kopiu. Aby sa eventuelne dal
aktualizovat aj sam aktualizacny program.
bye
vmlich
Sinea vs primy tisk
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 11.8.2003 11:34:02
Zdravim,
Ma nekdo zkusenost s rychlosti a 'pohodlnosti' prace se Sineou pro znakovy
tisk (znakovy rastr se jmenuje ta volba v Sinei)?
Predevsim otazka rychlosti je dulezita ..., tou pohodlnosti myslim spis
jestli to ma nejaka omezeni.
Diky Rosta , W2K, D6
dll a win98
[*] hlavki(zv)medium13 <hlavki(zv)medium13.sk> - 11.8.2003 12:36:09
k> Dobry den
k> Pada to i po prekladu aplikace na W98? - zde je jina sprava pameti nez
k> ve win Xp - programy prelozene na W200/XP na W98 nefunguji korektne.
Ano, pada to aj po kompilacii na win98. Rovnako sa sprava kompilat z
XP aj z win98SE.
k> Database: TASADatabase (komponenty na pripojenie na Sybase ASA SQL)
k> Toto je ukaztel na komponentu?
k> Pokud ano pak tento zpusob neni prilis vhodny a muze to byt zdroj problemu.
k> Nekde to funguje jinde ne...
k> Petr Koukal.
Ano, je to ukazovatel. V Dll to vyzera takto.
var Database: TASADatabase;
RunModul(AHandle: THandle; ADatabase: Pointer; APerms: TPermissionType)
begin
// bla bla
Database := ADatabase;
// bla bla
end;
dik, hlavki
Jednoznacny identifikator (autoincrement?) - teore
[*] Vlko II. <vlko(zv)zilina(tec)net> - 11.8.2003 11:34:01
On Mon, 11 Aug 2003 10:53:58 +0200, Jiri Foldyna <jiri.f(zv)avizo(tec)cz> wrote:
> Hlavne
> pro databazove BFU (jako jsem ja) je GUID pozehnani - muzu jej generovat
> na
> klientovi i na serveru, nepotrebuju k tomu zadne ulozene procedury atd.
> Jedine, co mne trosku nekde vzadu lechta, je myslenka "co kdyz GUID neni
> tak
> uplne GUID..." (lety praxe jsem se stal mirne paranoidnim - asi nemoc z
> povolani :-))
>
> Zdravim
>
> Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
No a este taku podotazocku, kde by som nasiel na nete nieco o generovani
toho guid, pretoze
ako pisete predpokladam, ze ma dlzku 128 bitov, co by v podstate nebolo nad
db az tak vela, pretoze
sucastne pouzivam 64 bitovi identifikator (autoincrement), ale
predpokladam, ze pouzivanie GUID by kadeco zjednodusilo.
BTW: vlastimil barton pisal:
Autorincrement (u MS SQL se jmenuje identity) - vyhodou je, ze si ho
prideluje server, nevyhodou je, ze o nem aplikace nevi. Mohu si sice
zjistit, co server pridelil, ale pokud to chci doplnit do datasetu, tak si
dataset mylne mysli, ze jsem zmenil data. Nakonec jsem si toto reseni
neoblibil a pouzivam je jen vyjimecne.
On si to mysli preto, ze je tak nastavena dana field, ale staci zmena s
fkData na inu hodnotu, neviem uz presne ci fkInternalGenerated a uz si to
nemysli:)
--
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
Jednoznacny identifikator (autoincrement?) - teore
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 11.8.2003 11:46:03
Ano, da se s tim kouzlit, zkousel jsem to ale vzdy se nakonec naslo neco, co mi nevyhovovalo.
-----Original Message-----
From: Vlko II. [mailto:vlko(zv)zilina.net]
Sent: Monday, August 11, 2003 11:34 AM
On si to mysli preto, ze je tak nastavena dana field, ale staci zmena s
fkData na inu hodnotu, neviem uz presne ci fkInternalGenerated a uz si to
nemysli:)
--
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
Problem s FlashFiler podruhe
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 11:46:03
11.8.2003 Petr Zahradnik:
> Puvodni zprava ze dne 11.8.2003:
>> Proc zrovna ShortString ???
> No je tam ShortString, AnsiShortString, NullString, AnsiNullString a
> WideString. Tak co bys dal ty na normalni retezec, kde nejsou ceske
> znaky?
A co treba obycejny String ?
ShortString je pouze na kompatibilitu se starymi stringy (255 znaku)
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
prevod casu
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 11.8.2003 12:30:08
Min=0
Max=Round((cas2-cas1)*secPerDay).
Predpokladam cas1,cas2 v TDateTime a dale ze cas2>cas1.
Jinak jsi nestanovil presnost, takze predpokladam sekundy.
Slavek
> Zdravim vsechny,
>
> potrebuji pro PROGRESSBAR prevest cas1 a cas2 na integer, aby bylo mozno
> zadat do komponenty progressbar.
> Nevim jak na to... poradite???
>
> Kejchal
>
>
>
SetCursor v threadu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 11.8.2003 12:24:07
Nebo existuje jeste jina moznost - podivej se na API funkce timeSetEvent a
timeKillEvent. Volaji primo callback proceduru.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Pavel Gazda
>
> > Timer pouze vlozi zpravu WM_TIMER do fronty (nejdrive) v dany cas. Ta se
> > obslouzi az po provedeni te dlouhe akce v danem threadu. Takze to nic
> neresi.
> >
>
> kudy bych se to snazil resit ja (tj. pres Timer), i kdyz se priklanim k
> nazoru P. Vonese,
> ze bych to pro pouhe nastaveni kurzoru vubec neresil.
>
> Pavel
>
>
>Zavreni modalniho okna z Form.Activate
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 11:48:03
11.8.2003 Bohac Frantisek:
> Dobry den,
> z Form1 volam modalni okno frmNacti.ShowModal. Zde mam:
> procedure TfrmNacti.FormActivate(Sender: TObject);
> begin
> if bezi then Exit;
> bezi := true;
> // vlastni beh programu
> ...
> // vlastni beh programu - konec
> bezi := false;
> // a tady bych potreboval skoncit - nefunguje!!!
> ModalResult := mrOK;
> Close;
> end;
> ale frmNacti zustava porad zobrazene a nejde ukoncit. Muzete me prosim nekdo
> nakopnout? Slo by to udelat i normalnim Show, ale to by se uzivatel mohl
> dostat na main form a to se mi pri nacitani nehodi.
> Predem dekuji za radu a doufam, ze jsem to spravne formuloval.
Ve FormActivate jej nemuzes zavirat
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
dll a win98
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 11.8.2003 12:14:06
> zdravim,
>
> mam jeden celkom zaujimavy problem, ktory samozrejme neviem vyriesil.
>
> ukazka:
>
> var LibHandle, MyHandle: THandle;
>
> procedure RunMd(idx : integer);
> const Proc: function(AppHandle:Thandle;AData:Pointer;APerm:TPermissionType) : THandle = nil;
>
> begin
> MyHandle := LoadLibrary(PCHar(filename));
> If Modules[idx].Handle <> 0 then
> begin
> (zv)proc := GetProcAddress(MyHandle, 'RunModul');
> LibHandle := proc(Handle, Database, pmWrite);
> MOduleIsOpen := true;
> end;
> end;
>
> No jednoducha vec. Volam metodu kniznice dll "RunModul" s parametrami:
> 1: Handle na form, ktory ju vola
> 2: Database: TASADatabase (komponenty na pripojenie na Sybase ASA SQL
> server)
> 3: Prava na modul (vymenovany typ TPermissionType)
>
> FreeLibrary sa deje ked postne dll message aplikacii, ktora ju
> otvorila (1. parameter RunModul).
>
> V tej dll sa nachadza vlastne kompletna aplikacia, teda formulare,
> kopa komponentov. V hlavnom formulari dll sa na event OnDestroy posle
> sprava aplikacii, ktora ju zavolala, ze "SOM ZNICENY, MOZES
> FREELIBRARY"...
>
> Na windows XP bezi vsetko bez nejakych problemov. Na windows 98 to
> pada ako hrusky zo stromu. Som dost z toho na nervy. Same exceptions v
> rtl60.bpl a podobne. Mozno je to tym, ze si posielam tie objekty z
> aplikacie do dll. Nemate s tymito vecami prosim niekto skusenosti co a
> jako???
>
> ak by bolo treba viac info, tak dodam...
>
> dik, hlavki
>
>
Dobry den
Pada to i po prekladu aplikace na W98? - zde je jina sprava pameti nez
ve win Xp - programy prelozene na W200/XP na W98 nefunguji korektne.
Database: TASADatabase (komponenty na pripojenie na Sybase ASA SQL)
Toto je ukaztel na komponentu?
Pokud ano pak tento zpusob neni prilis vhodny a muze to byt zdroj problemu.
Nekde to funguje jinde ne...
Petr Koukal.
Jednoznacny identifikator (autoincrement?) - teore
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.8.2003 11:50:04
Puvodni zprava ze dne 11.8.2003:
> toho guid, pretoze
> ako pisete predpokladam, ze ma dlzku 128 bitov, co by v podstate nebolo nad
> db az tak vela, pretoze
GUID je 32 bajtu = 256 bitu to je hoodne velike cislo, jestli dobre
pocitam, tak od oka asi 116 bilionu.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================Jak zjistit stav po SQL prikazu.
[*] Schwarz Ivan Ing. <schwarz(zv)tiba(tec)cz> - 11.8.2003 11:44:03
Pri pouziti TIBQuery nebo TIBDataset treba provedu insert.
Jak zjistim stav provedeni prikazu.(napr. duplicita .....)
V informixu je SQLCA record, ze ktereho jde stav po provedeni SQL prikazu vycist.
IB/FB neco takoveho taky ma, ale nevim jak na to. A kde se daji najit navratove kody.
Diky Ivan
UnLoad balicku
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 11.8.2003 08:51:47
Napadlo me to resit pomoci zprav (zatim nic jineho). Proste mi form z
balicku posle zpravu, ze konci (WM_USER+x) a je balicek unloadnu. Ale
pripada mi to dost kostrbate. Co vy na to?
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
Problem s FlashFiler podruhe
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.8.2003 11:52:04
Puvodni zprava ze dne 11.8.2003:
> A co treba obycejny String ?
> ShortString je pouze na kompatibilitu se starymi stringy (255 znaku)
No tak pouzij klidne String, jestli ho najdes mezi datovymi typy
FlashFiler. Bavime se o subjektu, takze o datovych typech databaze, to
je uplne neco jineho nez to, co si myslis.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================Jednoznacny identifikator (autoincrement?) - teore
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 11.8.2003 10:53:58
> Zkousel jsem s primarnimi klici leccos (na MS SQL) ale zatim jsem s
> zadnym resenim nebyl uplne spokojen. Kazde reseni melo sve vyhody a
> nevyhody.
> Do budoucna proto uvazujeme, ze skusime prejit prinejmensim u
> nekterych tabulek na GUID. Vyhodou GUID je, ze ho muze podle potreby
> pridelovat databaze i aplikace (to ovsem plati pro identity taky)
> aniz by se aplikace musela pri pridelovani ptat databaze (a to uz
> bezny autoincrement - identity - typu integer nezvlada). Nevyhodou je
> vetsi objem dat, ale pri dnesnich cenach za diskovou pamet... Dalsi
> vyhodou je otevreni cesty k replikacim. A asi nejdulezitejsi je -
> kolega zkoumal ADO.NET - a prohlasil, ze budeme-li chtit v budoucnu
> prejit na .NET (a to chceme), tak to pry jinak nez pres GUID rozumne
> nepujde (nerozumne jde pochopitelne vsechno).
Ahoj,
vzhledem k tomu, ze prakticky vse, co s databazemi (MS SQL) delam, musi byt
replikovatelne (mame distribuovany vyrobni system), tak uz nekolik let
pouzivam jako primarni klic vyhradne GUID. Pokud jej databaze podporuje,
neni podle mne duvod pouzivat cokoli jineho (pokud se bavime vyhradne o
funkci jako unikatni ID). Jestli ma primarni klic 4 nebo 16 byte je podle
mne na serverech celkem irelevantni. Jedina komplikace pro mne je to, ze
Delphi 5 nepodporuje 128-bitovy integer, takze na klientovi (mimo datasety)
musim s GUID pracovat jako se stringem. Zadne jine nevyhody neznam. Hlavne
pro databazove BFU (jako jsem ja) je GUID pozehnani - muzu jej generovat na
klientovi i na serveru, nepotrebuju k tomu zadne ulozene procedury atd.
Jedine, co mne trosku nekde vzadu lechta, je myslenka "co kdyz GUID neni tak
uplne GUID..." (lety praxe jsem se stal mirne paranoidnim - asi nemoc z
povolani :-))
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Zavreni modalniho okna z Form.Activate
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 11.8.2003 11:30:01
Ahoj,
pro zavreni formu pouzij PostMessage(Handle, WM_CLOSE, 0, 0);
Ales
> -----Original Message-----
> From: Bohac Frantisek [mailto:bohacf(zv)vnol(tec)cz]
>
> ale frmNacti zustava porad zobrazene a nejde ukoncit. Muzete
> me prosim nekdo
> nakopnout? Slo by to udelat i normalnim Show, ale to by se
> uzivatel mohl
> dostat na main form a to se mi pri nacitani nehodi.literatura o aplikacich typu klient/server
[*] Borkovec Software Info <info(zv)borkovec(tec)com> - 11.8.2003 11:44:02
Urcite Rebecca Riordan - priblizny nazev Vytvarime databazove aplikace
a castecne Henderson Mistrovstvi v T_SQL
RB
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lenka Donatova
Sent: Monday, August 11, 2003 9:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: literatura o aplikacich typu klient/server
Mohl by mi nekdo doporucit nejakou literaturu o programovani databazovych
aplikaci klient/server v delphi ? Muze byt i v anglictine.
Pripadne odkaz na internetove stranky kde by se daly o teto problematice
nalezt jakekoli informace.
predem dekuji za odpoved
Lenka Donatova
Jednoznacny identifikator (autoincrement?) - teore
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.8.2003 11:24:00
On 11 Aug 2003 at 10:53, Jiri Foldyna wrote:
> Jedine, co
> mne trosku nekde vzadu lechta, je myslenka "co kdyz GUID neni tak
> uplne GUID..." (lety praxe jsem se stal mirne paranoidnim - asi nemoc
> z povolani :-))
Tak dej jako podminku sitovou kartu, a budes moct celkem klidne spat.
S pozdravem
Zbysek Hlinka
Import dat do tabulky v FB
[*] Schwarz Ivan Ing. <schwarz(zv)tiba(tec)cz> - 11.8.2003 11:30:01
Diky !!!
Import dat pres TIBQuery je radove ryclejsi nez pres TIBDataset
Ivan
----- Original Message -----
From: "Radek KALA" <kala(zv)betacontrol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, August 07, 2003 10:04 AM
Subject: Re: Import dat do tabulky v FB
> Dej si tam komponentu TIBQuery, nebo TIBSQL co mas radeji.
> Ja pouzivam radej TIBQuery
> do SQL si dej
> insert into tabulka
> (...) VALUES (...)
> stejne jako mas v insertSQL toho datasetu
> pak udelej
> IBQuery.Prepare;
> napln vzdy parametry a
> IBQuery.ExecSQL;
> nakonec
> IBQuery.UnPrepare;
>
> samozrejme to comitovani podavkach tam nech.
>
>
> > Importuji da tabulky ve FB na Linuxu data. Pokud je tabulka prazdna
> > pak to docela jde. Ale kdyz je naimportovano 120 000 vet tak uz trva
> > vstup 100 vet cca 80 sec. radek ma cca 150 Bytu ( 23 datovych sloupcu)
> > Delam to pres komponentu TIBDataset. Ctu textovy soubor, provedu
> > konverzi a zapisu. Vstupni textovy soubor ma cca 42 MByte
> >
> > while not Eof(F) do
> > begin
> > Readln(F, S);
> > MyDataset.Insert;
> >
> > .... Konverze z textoveho souboru
> > MyDataset.FieldByName(MyDataset.Fields[Fi].FieldName).AsStri
> > ng:=S0; MyDataset.Post;
> >
> > ..... Po 100 vetach commit
> > DataModule1.Transakce.Commit;
> > end;
> > end;
> >
> > Nevite nekdo lepsi zpusob ? Nebo to delam blbe?
> > Diky
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Cerneho 58/60, 635 00
> tlf. : + 420 5 4622 3491
> fax : + 420 5 4622 3470
> GSM : + 420 603 85 75 15
>
ListView a multiline
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 11.8.2003 11:24:00
Zdravim
je mozne nastavit u komponenty Listview ktera je v report modu vlastnost MULTILINE pro radek ?
skousel jsem tohle ale nejede
style := GetWindowLong(elistview1.Handle, GWL_STYLE);
SetWindowLong(elistview1.Handle, GWL_STYLE, Style or ES_MULTILINE);
Nevite jak na to.. ?
MIlan
dll a win98
[*] hlavki(zv)medium13 <hlavki(zv)medium13.sk> - 11.8.2003 09:41:51
zdravim,
mam jeden celkom zaujimavy problem, ktory samozrejme neviem vyriesil.
ukazka:
var LibHandle, MyHandle: THandle;
procedure RunMd(idx : integer);
const Proc: function(AppHandle:Thandle;AData:Pointer;APerm:TPermissionType) : THandle = nil;
begin
MyHandle := LoadLibrary(PCHar(filename));
If Modules[idx].Handle <> 0 then
begin
(zv)proc := GetProcAddress(MyHandle, 'RunModul');
LibHandle := proc(Handle, Database, pmWrite);
MOduleIsOpen := true;
end;
end;
No jednoducha vec. Volam metodu kniznice dll "RunModul" s parametrami:
1: Handle na form, ktory ju vola
2: Database: TASADatabase (komponenty na pripojenie na Sybase ASA SQL
server)
3: Prava na modul (vymenovany typ TPermissionType)
FreeLibrary sa deje ked postne dll message aplikacii, ktora ju
otvorila (1. parameter RunModul).
V tej dll sa nachadza vlastne kompletna aplikacia, teda formulare,
kopa komponentov. V hlavnom formulari dll sa na event OnDestroy posle
sprava aplikacii, ktora ju zavolala, ze "SOM ZNICENY, MOZES
FREELIBRARY"...
Na windows XP bezi vsetko bez nejakych problemov. Na windows 98 to
pada ako hrusky zo stromu. Som dost z toho na nervy. Same exceptions v
rtl60.bpl a podobne. Mozno je to tym, ze si posielam tie objekty z
aplikacie do dll. Nemate s tymito vecami prosim niekto skusenosti co a
jako???
ak by bolo treba viac info, tak dodam...
dik, hlavki
Clipboard - pridani neceho
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 11.8.2003 10:31:55
Vlastimil Bardon wrote:
> Zdravim. Kolega me poprosil abych se poptal na konferenci na tento
> problem:
>
> Nevite nekdo, jak do clipboardu dostat jeste nejaka data uz k tem,
> ktera tam
> jsou?
>
> Konkretne se mi jedna o text, poslany z richeditu - tam se vola
> massege WM_COPY
> a do clipboardu se mi nasazi 11 ruznych formatu, ale ja bych ze sve
> aplikace potreboval
> pridat jeste jeden format s nejakymi doplnkovymi daty - kazdy muj
> pokus skoncil vymazanim puvodniho obsahu clipboardu a zustal mi jen
> ten novy muj format.
Skus TBinClipboard:
http://homepages.borland.com/torry/vcl/system/other/binclip.zip
Zavreni modalniho okna z Form.Activate
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 11.8.2003 11:07:59
Dobry den,
z Form1 volam modalni okno frmNacti.ShowModal. Zde mam:
procedure TfrmNacti.FormActivate(Sender: TObject);
begin
if bezi then Exit;
bezi := true;
// vlastni beh programu
...
// vlastni beh programu - konec
bezi := false;
// a tady bych potreboval skoncit - nefunguje!!!
ModalResult := mrOK;
Close;
end;
ale frmNacti zustava porad zobrazene a nejde ukoncit. Muzete me prosim nekdo
nakopnout? Slo by to udelat i normalnim Show, ale to by se uzivatel mohl
dostat na main form a to se mi pri nacitani nehodi.
Predem dekuji za radu a doufam, ze jsem to spravne formuloval.
S pozdravem
Frantisek Bohac
Problem s FlashFiler podruhe
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.8.2003 10:31:55
Puvodni zprava ze dne 11.8.2003:
> Proc zrovna ShortString ???
No je tam ShortString, AnsiShortString, NullString, AnsiNullString a
WideString. Tak co bys dal ty na normalni retezec, kde nejsou ceske
znaky?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================Delphi 5, MyProgram.exe.Manifest a ListView
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 11.8.2003 09:55:52
> mam dotaz je mozne zprovoznit nejakym zpusobem ListView v
> programu kdy k nemu prilinkuju tzv. Manifest ?
http://www.nsonic.de/Delphi/txt_WIS00573.htm
http://www.codenet.ru/progr/delphi/stat/dxp.php
http://www.delphikingdom.com/asp/articles_forum.asp?ArticleID=692
Tomas Zalesak
literatura o aplikacich typu klient/server
[*] Lenka Donatova <lenkad(zv)nemocnice-vs(tec)cz> - 11.8.2003 09:25:50
Mohl by mi nekdo doporucit nejakou literaturu o programovani databazovych
aplikaci klient/server v delphi ? Muze byt i v anglictine.
Pripadne odkaz na internetove stranky kde by se daly o teto problematice
nalezt jakekoli informace.
predem dekuji za odpoved
Lenka Donatova
Jednoznacny identifikator (autoincrement?) - teore
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 10:33:56
11.8.2003 Vlastimil Bardon:
> Jasne, ja to vzdy ziskavam pres ulozenou proceduru, ale pres jednu
> stejnou proceduru pro ruzne tabulky (nechce se mi psat novou
> proceduru pro kazdou tabulku tak predavam jmeno tabulky a jmeno
> sloupce jako parametry). Ale na MS SQL to nemuzu pouzit jako
> plnohodnotnou nahradu za identity. Priklad: Mam tabulku A a chci z
> ni vsechna data nasypat do tabulky B. Pokud by byl primarni klic
> identity, pak muzu klidne pouzit princip INSERT INTO B (... ) SELECT
> ... FROM A.
> Ale nebude-li to identity, pak mi zadna procedura nepomuze -
> uvedenou konstrukci pouzit nepujde. Mozna by dokazala pomoct funkce,
> ale nejsem si uplne jisty (nezkousel jsem to).
A proc bys nemohl ? Pokud bude udaj jedinecny...
Taky pouzivame jen jednu ulozenou proceduru jako generator, ale ten
nevklada nic do tabulek, pouze vraci jedinecny identifikator.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
prevod casu
[*] Simek Pavel - KVS <p.simek(zv)icsvscr(tec)cz> - 11.8.2003 11:09:59
Zdravim vsechny,
potrebuji pro PROGRESSBAR prevest cas1 a cas2 na integer, aby bylo mozno
zadat do komponenty progressbar.
Nevim jak na to... poradite???
Kejchal
SetCursor v threadu
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 11.8.2003 08:07:44
> > Pro timer si nastavis pozadovany cas.
> > Pokud ti procedura probehne rychle, timer se vypne a nic se nedeje,
> > pokud je cas dlouhy, vyvola se procedura timer, zde nastavis kurzor a
timer
>
> Timer pouze vlozi zpravu WM_TIMER do fronty (nejdrive) v dany cas. Ta se
> obslouzi az po provedeni te dlouhe akce v danem threadu. Takze to nic
neresi.
>
Predpokladal jsem Timer v samostatnem threadu,
no teda spis timer je spojen s formem, ktery se ma aktualizovat a odkud je
volana procedura,
a ta je ve vlastnim threadu.
takze by to vypadalo asi takto:
zapni timer
vytvor,volej thread s procedurou
vypni timer
vypni kurzor
Ani toto nemusi byt nejlepsi, ci vubec spravne reseni, byl to jen napad,
kudy bych se to snazil resit ja (tj. pres Timer), i kdyz se priklanim k
nazoru P. Vonese,
ze bych to pro pouhe nastaveni kurzoru vubec neresil.
Pavel
Licence pro volne sireni
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 11.8.2003 06:35:38
On Thu, 27 Mar 2003, Jiri Pagac wrote:
> GNU/GPL licence, musi byt v anglictine, aby platila:
>
> http://www.gnu.org/
>
> Jiri Pagac
Ale pro ceske uzivatele je dobre pripojit cesky preklad
z http://www.gnu(tec)cz
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
> Behalf Of Vita J.
> Sent: Thursday, March 27, 2003 6:28 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Licence pro volne sireni
>
>
> Zdravim konferenci.
> Mohl by mi prosim nekdo poradit nejaky vzor licencni smlouvy v cestine,
> kterou bych mohl pridavat k programu sirenemu bezplatne (neco jako
> freeware) a ve ktere by byly zachyceny takove ty zakladni prava a
> povinnosti me i lidi (jako ze nesmi sirit program ve zmenenem stavu,
> nesmi ho dekompilovat, ze nenesu odpovednost za skody v programu, ze
> nesmi pouzivat jeho casti pro svoji potrebu apod.)? Vim ze existuji i
> nejake standarty licenci (pojmy tusim typu GNU apod), ale mam v tom
> strasny chaos a nevyznam se v tom, proto prosim o pomoc zkusenejsi
> kolegy.
>
> Poradi prosim nekdo?
> Odpovedi prosim (pokud nebudou mit informacni hodnotu pro vsechny) na
> svuj soukromy mail viju(zv)vegateam(tec)cz)
>
> Predem moc diky za pomoc...
> Vita J.
>
>
>
>
---------------------------------------------------------------------------
Vladimir Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s., Strojirenska 38, Zdar nad Sazavou
http://hlubocky.del(tec)cz
zapis do souboru a kodovani cestiny
[*] Tomas Cejka <tom.cejka(zv)kassoft(tec)cz> - 11.8.2003 10:35:56
Uz to mam. Na tom Synapse jsou k tomu zdrojaky. Dekuju
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of ing. Jan Fiala
Sent: Thursday, August 07, 2003 2:01 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: zapis do souboru a kodovani cestiny
7.8.2003 Tomas Cejka:
> A jak ten string prevedu?
Napises si svoji funkci na prevod, popr. pouzijes nejakou hotovou.
Prevody pres ISO nejsou soucasti Windows. Neco najdes v knihovne Synapse
(www.ararat(tec)cz/synapse), unita SynaChar, popr. na www.cestina(tec)cz jsou
prevodove tabulky
> 7.8.2003 Tomas Cejka:
>> Potreboval bych vedet jak to udelat, abych mohl v programu
>> zapisovat
>> pomoci Writeln do textoveho souboru rovnou v kodovani ISO-8859-2 a
>> nemusel to potom nejak prevadet (jestli to jde).
> Mam string.
> Prevedu jej do ISO-8859-2
> Zapisu pomoci Writeln
> Jinak to asi nevymyslis
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Delphi 5, MyProgram.exe.Manifest a ListView
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 06:13:31
10.8.2003 Pavel Polak:
> Zdravim,
> mam dotaz je mozne zprovoznit nejakym zpusobem ListView v programu kdy k
> nemu prilinkuju tzv. Manifest?
Bug s ListView byl opraven az v D7
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Problem s FlashFiler podruhe
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 06:13:31
10.8.2003 Petr Zahradnik:
> Ja nevim, jestli to funguje me, jsem linej to zkusit :-) Ale kdyz
> chces nekam davat cestinu, delej to na AnsiString, protoze pro ten se
> pri trideni pouzivaji funkce operacniho systemu, takze jedine
> AnsiString je triden spravne cesky na ceskem operacnim systemu. To
> jsou tak dve podminky spravneho ceskeho trideni - pouzity AnsiString a
> cesky operacni system. A tam, kde zadna cestina neni, dej klidne
> ShortString.
Proc zrovna ShortString ???
--
ing. Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Jednoznacny identifikator (autoincrement?) - teore
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 11.8.2003 10:25:55
Jasne, ja to vzdy ziskavam pres ulozenou proceduru, ale pres jednu stejnou proceduru pro ruzne tabulky (nechce se mi psat novou proceduru pro kazdou tabulku tak predavam jmeno tabulky a jmeno sloupce jako parametry). Ale na MS SQL to nemuzu pouzit jako plnohodnotnou nahradu za identity. Priklad: Mam tabulku A a chci z ni vsechna data nasypat do tabulky B. Pokud by byl primarni klic identity, pak muzu klidne pouzit princip INSERT INTO B (... ) SELECT ... FROM A.
Ale nebude-li to identity, pak mi zadna procedura nepomuze - uvedenou konstrukci pouzit nepujde. Mozna by dokazala pomoct funkce, ale nejsem si uplne jisty (nezkousel jsem to).
-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)wo(tec)cz]
Sent: Monday, August 11, 2003 10:14 AM
Muzes mit identifikator pridelovany aplikaci, ale ktery se ziska treba
pomoci ulozene provedury ze serveru. Pak jsi schopny jej pridelovat
jak z aplikace tak i ze serveru
chyby VS .NET a C# ???
[*] Lubos Urban <lubos.urban(zv)visicom.sk> - 11.8.2003 09:19:49
.NET Framework 1.0 verzia 1.0.3705
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> V jake verzi .NET Frameworku ?
>
> Petr Vones
>
Aktualizace EXE programu
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 10:15:54
11.8.2003 Milan Bartonek:
> ve spustene aplikaci na tlacitko potrebuji provest jeji aktualizaci pres
> sit.
> Jak ale prepsat spusteny EXE program (pro vsechny Win) ?
Spustit jiny program a ukoncit puvodni.
Novy program stahne aktualizaci a zaktualizuje puvodni program a znovu
jej spusti.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Aktualizace EXE programu
[*] Milan Bartonek <mbartonek(zv)synthesia(tec)cz> - 11.8.2003 09:45:51
Ahoj,
ve spustene aplikaci na tlacitko potrebuji provest jeji aktualizaci pres
sit.
Jak ale prepsat spusteny EXE program (pro vsechny Win) ?
D6 Prof.
Dekuji
Bartonek Milan
Clipboard - pridani neceho
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 11.8.2003 08:13:44
Zdravim. Kolega me poprosil abych se poptal na konferenci na tento problem:
Nevite nekdo, jak do clipboardu dostat jeste nejaka data uz k tem, ktera tam
jsou?
Konkretne se mi jedna o text, poslany z richeditu - tam se vola massege WM_COPY
a do clipboardu se mi nasazi 11 ruznych formatu, ale ja bych ze sve aplikace potreboval
pridat jeste jeden format s nejakymi doplnkovymi daty - kazdy muj pokus skoncil vymazanim puvodniho obsahu clipboardu a zustal mi jen ten novy muj format.
Diky.
(Je to v D5)
Jednoznacny identifikator (autoincrement?) - teore
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 11.8.2003 10:13:54
11.8.2003 Vlastimil Bardon:
> Zkousel jsem s primarnimi klici leccos (na MS SQL) ale zatim jsem s zadnym resenim nebyl uplne spokojen. Kazde reseni melo sve vyhody a nevyhody.
> 1) Autorincrement (u MS SQL se jmenuje identity) - vyhodou je, ze si ho prideluje server, nevyhodou je, ze o nem aplikace nevi. Mohu si sice zjistit, co server pridelil, ale pokud to chci doplnit
> do datasetu, tak si dataset mylne mysli, ze jsem zmenil data. Nakonec jsem si toto reseni neoblibil a pouzivam je jen vyjimecne.
> 2) Ciselny identifikator pridelovany aplikaci. Vyhodou je, ze od sameho zacatku aplikace zna primarni klic a muze se podle toho zaridit. Nevyhodou je, ze neni snadne zajistit unikatnost. Nakonec to
> dopadlo tak, ze mam tabulku, do ktere si zapisuju ke kazde tabulce posledni prideleny primarni klic. Kdyz chci zalozit novy zaznam, nejdrive updatuju tuto tabulku a to tak, ze ji pri update zamykam
> - tim minimalizuju nebezpeci, ze by dva uzivatele dostali prideleny stejny primarni klic.
> Spolecnou nevyhodou obou reseni - platnou pokud je primarnim klicem obycejny integer - je, ze se to neda rozumne pouzit pri nejake spolupraci nekolika databazi (pri castecne nebo uplne replikaci).
> Do budoucna proto uvazujeme, ze skusime prejit prinejmensim u nekterych tabulek na GUID. Vyhodou GUID je, ze ho muze podle potreby pridelovat databaze i aplikace (to ovsem plati pro identity taky)
> aniz by se aplikace musela pri pridelovani ptat databaze (a to uz bezny autoincrement - identity - typu integer nezvlada). Nevyhodou je vetsi objem dat, ale pri dnesnich cenach za diskovou pamet...
> Dalsi vyhodou je otevreni cesty k replikacim. A asi nejdulezitejsi je - kolega zkoumal ADO.NET - a prohlasil, ze budeme-li chtit v budoucnu prejit na .NET (a to chceme), tak to pry jinak nez pres
> GUID rozumne nepujde (nerozumne jde pochopitelne vsechno).
Muzes mit identifikator pridelovany aplikaci, ale ktery se ziska treba
pomoci ulozene provedury ze serveru. Pak jsi schopny jej pridelovat
jak z aplikace tak i ze serveru
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Jednoznacny identifikator (autoincrement?) - teore
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 11.8.2003 08:37:46
Zkousel jsem s primarnimi klici leccos (na MS SQL) ale zatim jsem s zadnym resenim nebyl uplne spokojen. Kazde reseni melo sve vyhody a nevyhody.
1) Autorincrement (u MS SQL se jmenuje identity) - vyhodou je, ze si ho prideluje server, nevyhodou je, ze o nem aplikace nevi. Mohu si sice zjistit, co server pridelil, ale pokud to chci doplnit do datasetu, tak si dataset mylne mysli, ze jsem zmenil data. Nakonec jsem si toto reseni neoblibil a pouzivam je jen vyjimecne.
2) Ciselny identifikator pridelovany aplikaci. Vyhodou je, ze od sameho zacatku aplikace zna primarni klic a muze se podle toho zaridit. Nevyhodou je, ze neni snadne zajistit unikatnost. Nakonec to dopadlo tak, ze mam tabulku, do ktere si zapisuju ke kazde tabulce posledni prideleny primarni klic. Kdyz chci zalozit novy zaznam, nejdrive updatuju tuto tabulku a to tak, ze ji pri update zamykam - tim minimalizuju nebezpeci, ze by dva uzivatele dostali prideleny stejny primarni klic.
Spolecnou nevyhodou obou reseni - platnou pokud je primarnim klicem obycejny integer - je, ze se to neda rozumne pouzit pri nejake spolupraci nekolika databazi (pri castecne nebo uplne replikaci).
Do budoucna proto uvazujeme, ze skusime prejit prinejmensim u nekterych tabulek na GUID. Vyhodou GUID je, ze ho muze podle potreby pridelovat databaze i aplikace (to ovsem plati pro identity taky) aniz by se aplikace musela pri pridelovani ptat databaze (a to uz bezny autoincrement - identity - typu integer nezvlada). Nevyhodou je vetsi objem dat, ale pri dnesnich cenach za diskovou pamet... Dalsi vyhodou je otevreni cesty k replikacim. A asi nejdulezitejsi je - kolega zkoumal ADO.NET - a prohlasil, ze budeme-li chtit v budoucnu prejit na .NET (a to chceme), tak to pry jinak nez pres GUID rozumne nepujde (nerozumne jde pochopitelne vsechno).
-----Original Message-----
From: Vlko II. [mailto:vlko(zv)zilina.net]
Sent: Friday, August 08, 2003 6:36 PM
Chcel by som nastolit otazku cisto teoretickeho razu, co pouzivat ako
jednoznacny identifikator
Delphi 5, MyProgram.exe.Manifest a ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.2003 01:39:12
From: "Pavel Polak" <admin(zv)golden-html.com>
> mam dotaz je mozne zprovoznit nejakym zpusobem ListView v programu kdy k
> nemu prilinkuju tzv. Manifest?
Zkus http://www.delphi-gems.com/ThemeManager.php ale VCL podporuje XP temata
az v Delphi 7.
Petr Vones
Delphi 5, MyProgram.exe.Manifest a ListView
[*] Pavel Polak <admin(zv)golden-html(tec)com> - 10.8.2003 22:13:00
Zdravim,
mam dotaz je mozne zprovoznit nejakym zpusobem ListView v programu kdy k
nemu prilinkuju tzv. Manifest?
Diky Pavel Polak
Problem s FlashFiler podruhe
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.8.2003 21:48:58
Puvodni zprava ze dne 10.8.2003:
> Kdyz zmenim typ na ANSI NullString vse funguje jak ma!
> Diky moc za pomoc, ale stejne by me zajimalo proc WideString nefungoval. To
> uz je jedno.
Ja nevim, jestli to funguje me, jsem linej to zkusit :-) Ale kdyz
chces nekam davat cestinu, delej to na AnsiString, protoze pro ten se
pri trideni pouzivaji funkce operacniho systemu, takze jedine
AnsiString je triden spravne cesky na ceskem operacnim systemu. To
jsou tak dve podminky spravneho ceskeho trideni - pouzity AnsiString a
cesky operacni system. A tam, kde zadna cestina neni, dej klidne
ShortString.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================Problem s FlashFiler podruhe
[*] petr.spurny <peta.spurny(zv)tiscali(tec)cz> - 10.8.2003 21:30:56
Kdyz zmenim typ na ANSI NullString vse funguje jak ma!
Diky moc za pomoc, ale stejne by me zajimalo proc WideString nefungoval. To
uz je jedno.
Jeste jednou diky moc.
:: petr.spurny ::
:: peta.spurny(zv)tiscali(tec)cz ::
Posli mi zdrojak od toho okna.
[*] Roland Turcan <rolo(zv)sedas.sk> - 10.8.2003 18:22:45
Hello delphi-l(zv)clexpert(tec)cz!
Nazabudni, please..
--
Best regards, TRoland
jak zjistit obsah Editu v jinem okne?
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 10.8.2003 17:22:41
8.8.2003 dphi_forum(zv)proces.sk:
Omlouvam se, nakonec se to asi bude muset skutecne resit pres zpravy.
Mohlo by to jit pomoci:
var
hnd: HWND;
len:integer;
s:string;
begin
getcursorpos(p);
hnd:=windowfrompoint(p);
len:=sendmessage(hnd, wm_gettextlength, 0, 0)+1;
setlength(s, len);
sendmessage(hnd, wm_gettext, len,LongInt((zv)s[1]));
ShowMessage(s);
end;
Pokud se z toho udela treba MouseClick, mohlo by to nacist text editu
z jakehokoliv okna pod kurzorem
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Default jmeno komponenty
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 10.8.2003 16:54:39
Ahoj,
da se nejak zmenit default jmeno komponenty (napr. Label -> lbl_) ?
Samozrejme nemyslim rucne v Objekt inspektoru, ale aby se pri polozeni na
form vygenerovalo uz s jinym default nazvem (napr. kdyz polozim prvni
TLabel, bude se jmenovat misto Label1 lbl_1 atd.).
D5 Ent.
Diky
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Problem s FlashFiler podruhe
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.8.2003 16:24:37
Puvodni zprava ze dne 10.8.2003:
> 4) Vytvorim tabulku jmena (jmeno WideString(50), prijmeni WideString(50)) ->
> OK
Co kdyz tam das AnsiString misto WideString?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================Problem s FlashFiler podruhe
[*] petr.spurny <peta.spurny(zv)tiscali(tec)cz> - 10.8.2003 16:02:35
Zdravim,
omlouvam se za dalsi dotaz ohledne FlashFileru, ale jsem v Delphi spise
trosku pokrocilejsi zacatecnik :-)
Nedavno jsem zde zadal o radu s FlashFiler. Bohuzel jsem zatim moc
nepokrocil, ale zjistil, ze tato chyba se vyskytuje i bez pouziti v Delphi
(viz dale).
Takze:
1) Zapnu FlashFiler Server -> OK
2) Zapnu FlashFiler Explorer -> OK
3) Vytvorim novou databazi (alias pokus) -> OK
4) Vytvorim tabulku jmena (jmeno WideString(50), prijmeni WideString(50)) ->
OK
5) Naplnim pokusnymi daty -> OK
6) Spustim SQL "SELECT * FROM jmena" -> OK
7) Spustim SQL "SELECT * FROM jmena ORDER BY prijmeni" ->>
FlashFiler: Query1846778: Query execution failed:
Access violation at address 0045C520 in module 'FFSERVER.EXE'. Read of
address 01C98039 [$D538/54584]
Jedna se o FlashFiler verzi 2.13 (tusim ze nejnovejsi), exe soubory jsou
stahnute primo z netu, ne kompilovane v Delphi.
Ladenim jsem zjistil ze vsechno pada na radce 4105 v souboru ffIIbase.pas:
4096: function FFIsBitSet(BitSet : PffByteArray; Bit : integer) :
boolean;
4097: var
4098: BS : PAnsiChar absolute BitSet;
4099: P : PAnsiChar;
4100: M : byte;
4102: begin
4103: P := BS + (Bit shr 3);
4104: M := 1 shl (byte(Bit) and 7);
4105: Result := (byte(P^) and M) <> 0; // CHYBA!!!!
4106: end;
Mohl by jste prosim tohle vyzkouset a potvrdit ze vam to funguje? Uz opravdu
nevim co delam spatne. Nebo snad FF neumi radit? Tomu se mi nechce verit.
Predem diky za jakoukoliv radu
Petr Spurny
[D6 Ent, Win98SE]
:: petr.spurny ::
:: peta.spurny(zv)tiscali(tec)cz ::FlashFiler 1 a 2
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.8.2003 11:30:18
Puvodni zprava ze dne 10.8.2003:
> Potreboval bych na jednom pocitaci mit naistalovane D3 a FF1 a FF2.
> Jde to?, Nebudou si navzajem vadit??
Nemuzou byt na palete spolu, je treba je prepinat.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================Jak zobrazit mail (v .Body je multipart) (OT)
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 10.8.2003 05:53:55
Presne tohle znam, ale pouze ze sve mnohalete praxe v terenu. Je to jeden z
mala duvodu, proc jsem externi zpravcovstvi nepustil k vode, ale nechal
jsem si par dobrych zakazniku. (Druhy duvod je HW, jeho problemy,
kompatibilita a novinky). Sterilni programator o tom vubec nema paru.
Pritom staci jeden program, ktery je pro firmu dulezity, ktery vyzaduje
zvyseni prav, a je po zabezpeceni. Priklady: Run-time Crystal reportu=Power
User, ovladace pro Minoltu MC2200=PowerUser. Kde ale sehnat seznam
zakladnich pravidel (jako napr. viz nize, staci pro 99% programu, aby se
chovali korektne). Dalsi bordel je v adresarich (slozkach). Teprve az v WXP
se zda struktura adresaru temer dotazena. Co je to platny, kdyz programator
vyviji program na W98 a o teto strukture nema paru, a nebo nezna presny
vyznam jednostlivych adresaru (proc jsou nektere adresare dva krat??? :-))
). Pak se stane, ze i nektere verze MS Outlook Expres uklada sve soubory do
LocalSettings, ktery se nereplikuje v cestovnim profilu=ani nezalohuje!!!
Jake rozcarovani po havarii disku.
Registry jsou celkem jasny, ale co rozpoutat malou diskuzi o adresarich
(slozkach), na ruznych systemech, vyhody-nevyhody, globalni zalohovani,
lokalni zalohovani? Existuje jednuduchy a pritom univerzalni navod na
pouziti slozek?
S pozdravem Vaclav Riha
>Nejcastejsi chyby ktere vidam :
>Zapis do HKLM (krom instalace)
>Spatne otevirany chraneny klic (sice jen ctu, ale oteviram ho pro zapis)
>Zapisy do WINNT/temp
I>NI faily v WINNT
>Program si zapisuje do sveho adresare v Program Files
>Zapisy do HKCU pri instalaci (program pak nema potrebne udaje pro beh pod
>jinym nez admin uctem)
>atd.
>Ludek
Edit & Format
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 10.8.2003 05:53:55
Me se osvedcilo pouzivat bezny TEdit nebo TEditSinea v modu String.
Promenou ktera se edituje udrzuji v objektu v nativnim stavu (Currency,
Integer, Single, TDAteTime a podobne). V tom samem objektu mam property
AsString[AValueName: String]: String read FGetAsString write FSetAsString
stored False; To je brana, ze/do ktere si dialog bere obsahy editacnich
radku (bere v OnShow a pri zmene konkretni promene a vraci nejcasteji pri
OnExit editacniho radku).
S pozdravem Vaclav Riha
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of LUKES Vaclav
>
> Spatne jsem se vyjadril. Cely problem je nasledujici.
> Mam Edit a do nej potrebuji vkladat POUZE numericke hodnoty
> (prvni prioad) a numericke hodnoty spolu s * a ? (druhy pripad.
> A aby to nebylo malo, potrebuju, aby ten text mel nasledujici
> tvar: '999 999 999' (tedy 3 znaky mezera 3 znaky mezera atd.).FlashFiler 1 a 2
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 10.8.2003 05:53:55
Potreboval bych na jednom pocitaci mit naistalovane D3 a FF1 a FF2. Jde to?, Nebudou si navzajem vadit??
S pozdravem Vaclav Riha
Circle Reference of Components
[*] Lumir Karas <lumirkaras(zv)seznam(tec)cz> - 8.8.2003 22:41:59
TOndreji,
Diky moc za radu, pomohla :o)
Lumir.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of tondrej(zv)t-online.de
Sent: Friday, August 08, 2003 1:50 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Circle Reference of Components
> v jednom unitu mam nekolik komponent a potrebuji aby prvni komponenta
> (ktera je deklarovana pred druhou) dokazala pouzit druhou komponentu
> (ktera je deklarovana za ni) a naopak. Nemuzu to zaboha vyresit :o(.
> Muze mi prosim nekdo poradit nejlepe s ukazkou kodu jak
> to nadeklarovat a nasledne pouzit?
Musis pouzit forward declaration:
type
TObject2 = class; // forward class declaration
TObject1 = class
private
FObject2: TObject2;
end;
TObject2 = class
private
FObject1: TObject1;
end;
HTH
TOndrej
____________________________________________________________
Novinka to sice neni, ale ta cena! Nokia 3410 jiz od 977 Kc. http://www.oskarmobil(tec)cz/handsets/hs_view1.php3?nob=1?=cz&hs_id=46&ii=1
UnLoad balicku
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 8.8.2003 22:35:59
To to fakt nikdo jeste neresil neo nevi jak na to? Nebo je to ta chybka
ve filtru?
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
Circle Reference of Components
[*] tondrej(zv)t-online.de - 8.8.2003 19:49:48
> v jednom unitu mam nekolik komponent a potrebuji aby prvni
> komponenta (ktera je deklarovana pred druhou) dokazala pouzit druhou
> komponentu (ktera je deklarovana za ni) a naopak. Nemuzu to zaboha
> vyresit :o(. Muze mi prosim nekdo poradit nejlepe s ukazkou kodu jak
> to nadeklarovat a nasledne pouzit?
Musis pouzit forward declaration:
type
TObject2 = class; // forward class declaration
TObject1 = class
private
FObject2: TObject2;
end;
TObject2 = class
private
FObject1: TObject1;
end;
HTH
TOndrej
Circle Reference of Components
[*] Lumir Karas <lumirkaras(zv)seznam(tec)cz> - 8.8.2003 19:31:47
Ahoj,
v jednom unitu mam nekolik komponent a potrebuji aby prvni komponenta (ktera je deklarovana pred druhou) dokazala pouzit druhou komponentu (ktera je deklarovana za ni) a naopak. Nemuzu to zaboha vyresit :o(. Muze mi prosim nekdo poradit nejlepe s ukazkou kodu jak to nadeklarovat a nasledne pouzit?
Predem moc dekuji.
Lumir.
____________________________________________________________
Sexy leto naplno! Jednodenni kontaktni cocky Focus Dailies. Akcni nabidka! http://ad2.seznam(tec)cz/redir.cgi?instance=57292%26url=http://www(tec)cz.cibavision.com/
Jednoznacny identifikator (autoincrement?) - teore
[*] Vlko II. <vlko(zv)zilina(tec)net> - 8.8.2003 18:35:43
Chcel by som nastolit otazku cisto teoretickeho razu, co pouzivat ako
jednoznacny identifikator
v previazanych tabulkach. Doteraz som bol v presvedceni, ze sa na to hodi
autoincrementovaci typ.
V predchadzajucej historii konferencie vidim, ze to ale nie je navhodnejsia
volba? Co teda odporucate?
Ja to mam v sucastnosti vyriesene tak (maly objem pridavanych udajov,
radovo 1,2 do minuty, trosku
zlozitejsi db system firmy u viacerych uzivatelov), ze zistim iba selectom
(onAfterInsert), z tanej tabulky max(id)...
Pripadne sa to da zistit nejakym inym volanim, ktorym zistim hodnotu
generatora.
V pripade, ze by bola poziadavka ohromneho poctu zadavanych udajov, by som
pouzil Stored Proceduru a v
nej by som zistil po inserte aj dany id a vratil ho ako hodnotu stored
procedury. Myslim, ze by sa medzi to v ramci paralelizmu db nastroja,
transakcii a pod nijaky insert nevosiel. A tu mam otazku, je to skutocne
spravne riesenie, alebo sa moze stat, ze pocas vykonavania stored procedury
sa moze vykonat na danej tabulke dalsi insert? Staci mi len db servery
MySQL, PostgreSQL, Interbase(Firebird).
Diky sa kazdu radu, ktora ma dovedie blizsie k idealu dobreho
programatora:)
Vlko
--
--------------
mail: vlko_(zv)pobox.sk web: http://vlko.zilina.net
IB/FB Nepotrebne systemove domeny
[*] Roland Turcan <rolo(zv)sedas.sk> - 8.8.2003 16:13:34
<<< 8. 8. 2003 16:07 - Jaroslav Vorlicek "vorlicek(zv)ders(tec)cz" >>>
JV> Ja mam podezdreni na nekolik systemovych objektu, ze se nepouzivaji.
JV> Jak se jich mam zbavit? Jak mam zjistit, ze nejsou pouzity ?
-------------------------------------------
My answer:
----------
Pokial vznikli ako druhotna vec DDL prikazov, tak to radsej nemasiruj.
Kasli na to tie domeny, nepytaju jest a urcite tam nie su pre paradu.
--
Best regards, TRoland
vlastni Active X
[*] jsramek(zv)kodys(tec)cz - 8.8.2003 15:49:33
Ahoj,
v D5 jsem si udelal komponentu (z TComponent), ktera prenasi data pres
seriovy port do mobilniho terminalu. Ma par vlastnosti ohledne nastaveni
portu a vlastnosti specifikujici prenaseny soubor. V metode SendFile teto
komponenty nejdrive dynamicky vytvorim formular, na kterem uzivatele
informuji o stavu prenosu a potom spoustim vlastni prenos. Komponenta
funguje OK. Vzhledem k tomu, ze bych ji chtel pouzit jeste ve Visual Basicu,
tak bych si z ni chtel udelat Active X. V tvorbe komponent jsem zacatecnik a
v tvorbe Active X zdaleka ani tim zacatecnikem. Jestli jsem to spravne z
helpu pochopil, tak z potomka tridy TComponent nelze vytvorit Active X.
Mam dotazy :
- jako vychozi tridu jsem pouzil TComponent; je to spravny pocit
nebo jsem mel vychazet z jine tridy ?
- lze vytvorit z te me dosavadni komponenty Activ X prvek nebo
nejaky AciveForm s touto komponentou ?
Diky za rady,
J.ADMIN: PROBLEM S PRAZDNYMI PRISPEVKY
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.8.2003 15:45:36
Ahoj,
dnes nastal problem s prazdnymi prispevky - nekolik lidi mi to hlasilo
a jak koukam do logu, mnohem vic mailu bylo odmitnuto, nekdo to ani
nehlasi.
Doslo k problemu ve filtru a to tak, ze jsem vcera resil jeden problem
s dekodovanim mailu a prisel jsem na to, ze v Indy (tuto knihovnu
pouziva muj filtr) je chyba. Opravil jsem si ji a problem jsem
vyresil. Pak jsem si vsiml, ze nepouzivam uplne nejnovejsi verzi Indy
a tak jsem tam dal tu nejnovejsi 9.0.14 nebo jake to ma cislo. Dokonce
tam ten problem byl vyresen. No a dnes jsem zjistil, ze sice tento
problem opravili, ale delalo to nejake ucho, ktere udelalo stejnou
upravu na vice mistech, kde to nema co delat. Vysledek byl, ze nektere
zpravy to dnes vracelo, protoze Indy ignorovala obsah a filtru dodala
prazdny mail, ktery jej vratil odesilateli.
Chyby v Indy jsem nasel a snad opravil, provedl jsem par testu a melo
by to chodit. Za chvili prekompiluji filtrovaci service a dam ho na
server. Vsichni, kterym se maily vratili, je pak poslete znovu a mely
by projit - tak za 10 minut urcite uz to bude...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================jak zjistit obsah Editu v jinem okne?
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 8.8.2003 15:21:32
8.8.2003 dphi_forum(zv)proces.sk:
> WM_GETTEXT
> An application sends a WM_GETTEXT message to copy the text that corresponds
> to a window into a buffer provided by the caller.
> In a rich edit control, if the text to be copied exceeds 64K, use either
> the message EM_STREAMOUT or EM_GETSELTEXT.
A nebo primo API funkce GetWindowText()
Mozna to bude jednodussi nez prace se zpravami...
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Rustina a DBGrid a DBF
[*] delphikonf(zv)proxima-soft.sk - 8.8.2003 15:25:32
Skus cez BDEADMIN cez native driver nastavit konkretny
rusky driver pre dBase driver. Alebo pri vytvarany
dBase tabulky cez Database Desktop nastav cez Modify
language konkretny jazykovy driver.
> D6 PROF, W98
>
> Zdravim,
> mam problemik.
>
> Mam jednoduchu databazu (nie mojou vinou BDF). Je to v podstate cennik.
> Potrebujeme ho dostat do rustiny. A to je problem.
> Namiesto rustiny tam mam "haky-baky". Neviem, ak to zmenit, aby mi to
> zobrazovalo azbuku. Ak niekto pozna riesenie, prosim o odpoved.
>
> Dakujem Fabik
>
>
>
>
>jak zjistit obsah Editu v jinem okne?
[*] dphi_forum(zv)proces.sk - 8.8.2003 15:13:31
WM_GETTEXT
An application sends a WM_GETTEXT message to copy the text that corresponds
to a window into a buffer provided by the caller.
In a rich edit control, if the text to be copied exceeds 64K, use either
the message EM_STREAMOUT or EM_GETSELTEXT.>>Jak muzu pomoci Delphi 7 Enterprice zjistit obsah treba Editu v JINEM
okne? napr.:
>>mam prg. jmenem Ahoj a na nem je treba ten Edit nejaky to Memo a treba
tlacitko.
>>a mam prg. co programuju a chci zjistit co je v prg. Ahoj napsanyho v
Editu a dostat to do myho prg. neb ozjistit co je v Memu a dostat to do
meho prg.
>>Doufam ze jste me pochopili :-))
>>dik moc Petr.
jak zjistit obsah Editu v jinem okne?
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 8.8.2003 14:19:27
Ve Windows je API funkce na poslani vlastni zpravy s obsahem vlastnich
dat wm_CopyData a prijmout data muzete pomoci funkce wm_user. Podivejte
se do Win32 API Help, tam to urcite bude. Pokud si nebudete vedet rady,
tak se ozvete a neco s tim vyvedem.
S pozdravem
Zdenek Telicka
Petr Kracik wrote:
>pomuze mi nekdo??
>pls.
>
>
>
>>Jak muzu pomoci Delphi 7 Enterprice zjistit obsah treba Editu v JINEM okne? napr.:
>>mam prg. jmenem Ahoj a na nem je treba ten Edit nejaky to Memo a treba tlacitko.
>>a mam prg. co programuju a chci zjistit co je v prg. Ahoj napsanyho v Editu a dostat to do myho prg. neb ozjistit co je v Memu a dostat to do meho prg.
>>Doufam ze jste me pochopili :-))
>>dik moc Petr.
>>
>>
>
>
>
>>petr.kracik(zv)atlas(tec)cz
>>
>>
>
>
>
>
tisk v D3
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 8.8.2003 14:19:27
Zdravim take,
V Delphi je nejaka promenna PrintFile (nejak takhle se jmenuje), se
kterou se pracuje uplne stejne jako s textovym souborem pres TextFile;
Zapisujete radky textu a pri CloseFile se to pak vytiskne.
S pozdravem
Zdenek Telicka
Simek Pavel - KVS wrote:
>Zdravim vsechny,
>
>potrebuji v prg vytisknout soubor xxx.txt na default tiskarne. Poradite???
>
>Kejchal
>
>
>
>
tisk v D3
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 8.8.2003 13:47:25
8.8.2003 Simek Pavel - KVS:
> Zdravim vsechny,
> potrebuji v prg vytisknout soubor xxx.txt na default tiskarne. Poradite???
Bacti si to do TRichEdit. Ten ma metodu Print.
Jinak to muzes tisknout do tiskarny vykreslovanim na Printer.Canvas
nebo pouzitim Tiskarny jako souboru (AssignPrn, Rewrite, ....) a
vypsat pomoci Writeln()
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Zmena struktury DBF nebo Paradoxu
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 8.8.2003 13:45:24
8.8.2003 Martin Pavera:
> Zdravim,
> neumim zmenit typ nebo rozmer pole
> pomoci komponenty TTable u tabulky DBF nebo Paradox.
> Nebo jinak...
> Diky
Zkus se podivat na API funkci BDE dbiDoRestructure. Popis je v helpu,
ktery je v adresari s BDE
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Jak poslat event
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 8.8.2003 13:35:23
> > From: "Petr Jansky" <delphi(zv)amzdy(tec)cz>
> Mam Form1, ktery je obsahuje Frame1 a Frame2 a
> Form2, ktery je obsahuje Frame1 a Frame3
>
> a Frame1 mj. obsahuje button, po jehoz stlaceni potrebuju
> nastavit focus na
> Frame2 resp. Frame3
>
> tak jsem myslel, ze by se mu dala podsunout nejaka udalost, ze ma opustit
> Frame1
>
co takhle Frame1.SetFocus()??? To nejde??
S pozdravem
Bronislav Klucka
----------------------------=[ pro2-soft.com ]=----------------------------
Bronislav Klucka Pro2-Soft
+420 605 582 922 Bronislav.Klucka(zv)pro2-soft.com
* Windows & Web applications, Computer training http://pro2-soft.com
---------------------------------------------------------------------------
Jak poslat event
[*] Petr Jansky <delphi(zv)amzdy(tec)cz> - 8.8.2003 13:05:21
> From: "Petr Jansky" <delphi(zv)amzdy(tec)cz>
> > Mam frame a potreboval bych mu poslat event konkretne exit
>
> Co je to "event exit" u frame ?
Asi jsem se vyjadril blbe, tak jinak:
Mam Form1, ktery je obsahuje Frame1 a Frame2 a
Form2, ktery je obsahuje Frame1 a Frame3
a Frame1 mj. obsahuje button, po jehoz stlaceni potrebuju nastavit focus na
Frame2 resp. Frame3
tak jsem myslel, ze by se mu dala podsunout nejaka udalost, ze ma opustit
Frame1
SetCursor v threadu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2003 11:49:15
From: "Martin Bursa" <martin.bursa(zv)ikos(tec)cz>
> Ja ale potrebuji neco jineho. Potrebuji zmenit kurzor pouze tehdy, pokud
> vykonani urcite casti procedury (kde se nikde nevola zpracovani zprav)
> prekroci
> dany casovy limit. Delka zpracovani toho kodu se muze na ruznych pocitacich
> znacne lisit a ja v pripade, ze provedeni je "bleskove", nechci aby kurzor
> "problikl". Pokud je ale zpracovani delsi, je zmena zadouci ...
V tomhle pripade bych to stejne resil tak, ze se kurzor nastavi vzdy. To
probliknuti je imho stale lepsi, nez pocit ze se po spusteni dane akce chvili
"nic nedeje". Jinak receno, to zpozdeni mi prijde spise matouci a neprijemne.
Petr Vones
tisk v D3
[*] Simek Pavel - KVS <p.simek(zv)icsvscr(tec)cz> - 8.8.2003 12:07:17
Zdravim vsechny,
potrebuji v prg vytisknout soubor xxx.txt na default tiskarne. Poradite???
Kejchal
Jak poslat event
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2003 11:49:16
From: "Petr Jansky" <delphi(zv)amzdy(tec)cz>
> Mam frame a potreboval bych mu poslat event konkretne exit
Co je to "event exit" u frame ?
Petr Vones
Kapacita ??
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2003 11:49:15
From: "KinDRik" <kindrik(zv)centrum(tec)cz>
> nevite nekdo pls o nejake komponente podobne Memu s tim rozdilem aby
> to bylo schopne nacitat asi tak 5Mb textove soubory ?
TRichEdit
Petr Vones
SetCursor v threadu
[*] Martin Bursa <martin.bursa(zv)ikos(tec)cz> - 8.8.2003 12:11:17
Tak se mi to snad povedlo vyresit. Pokud se SetCursor pouzije v
separatnim threadu, je treba nejprve volat AttachThreadInput.
AttachThreadInput( GetCurrentThreadId, GetWindowThreadProcessId(
Application.Handle, nil), TRUE);
SetCursor( Screen.Cursors[ crHourGlass ] );
AttachThreadInput( GetCurrentThreadId, GetWindowThreadProcessId(
Application.Handle, nil), FALSE);
Maca
Kapacita ??
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 8.8.2003 11:41:14
Zdaravim Konference,
nevite nekdo pls o nejake komponente podobne Memu s tim rozdilem aby
to bylo schopne nacitat asi tak 5Mb textove soubory ?
Predem diky
Jiri Betunak
DElphi5,WinXP SpAll
IB/FB Nepotrebne systemove domeny
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.8.2003 11:23:13
Jaroslav Vorlicek dne 8 Aug 2003 v 11:01:
> Ja mam podezdreni na nekolik systemovych objektu, ze se nepouzivaji.
> Jak se jich mam zbavit? Jak mam zjistit, ze nejsou pouzity ?
Nevim, ale protoze nemam rad zbytecne problemy, asi bych ty systemove objekty neprovokoval :-)
Karel Rys
SetCursor v threadu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.8.2003 11:21:13
Martin Bursa dne 8 Aug 2003 v 11:13:
> TTimer pouzit nemohu, protoze v tomto pripade se udalost OnTimer
> nevykona !
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> GTC: DWORD;
>
> begin
> Timer1.Interval := 200;
> Timer1.Enabled := TRUE;
>
> GTC := GetTickCount;
> while GetTickCount - GTC < 10000 do ;
>
> Timer1.Enabled := FALSE;
> end;
Kdybys v tom cyklu obcas volal Application.ProcessMessages, udalosti by se zpracovaly. Prinese to
ale zase jine problemy (uzivatel klikajici kdovikde apod.).
Karel Rys
SetCursor v threadu
[*] Martin Bursa <martin.bursa(zv)ikos(tec)cz> - 8.8.2003 11:13:12
From: "Pavel Gazda" <pavel_gazda(zv)datasw(tec)cz>
> Ale vzdyt tak jsem to myslel:
> Pro timer si nastavis pozadovany cas.
> Pokud ti procedura probehne rychle, timer se vypne a nic se nedeje,
> pokud je cas dlouhy, vyvola se procedura timer, zde nastavis kurzor a
timer
> vypnes,
> po skonceni procedury nastavis zpet kurzor.
TTimer pouzit nemohu, protoze v tomto pripade se udalost OnTimer nevykona !
procedure TForm1.Button1Click(Sender: TObject);
var
GTC: DWORD;
begin
Timer1.Interval := 200;
Timer1.Enabled := TRUE;
GTC := GetTickCount;
while GetTickCount - GTC < 10000 do ;
Timer1.Enabled := FALSE;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
end;
Jak poslat event
[*] Petr Jansky <delphi(zv)amzdy(tec)cz> - 8.8.2003 11:11:12
Ahoj!
Mam frame a potreboval bych mu poslat event konkretne exit
S pozdravem
Ing. Petr Jansky
IB/FB Nepotrebne systemove domeny
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 8.8.2003 11:01:11
Zdravim vespolek.
delphi-l-owner(zv)clexpert(tec)cz wrote:
> Haj hou!
>
> ??? systemove objekty s nazvem RDB$... jsou vytvarene systemem, a
> ruseny kdyz nejsou potreba (systemove domeny vznikaji jako popis
> sloupcu tabulek, jsou zruseny pri zruseni tabulky). Neco jako
> nepouzivany systemovy objekt by tedy vubec nemelo existovat.
>
Ja mam podezdreni na nekolik systemovych objektu, ze se nepouzivaji.
Jak se jich mam zbavit? Jak mam zjistit, ze nejsou pouzity ?
Diky
Jaroslav Vorlicek
SetCursor v threadu
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 8.8.2003 10:43:10
> > begin
> > timer.enabled := true;
> > ...
> > timer.enabled:= false;
> > end;
>
> Potrebuji, aby zmena probehla asynchronne ...
>
Ale vzdyt tak jsem to myslel:
Pro timer si nastavis pozadovany cas.
Pokud ti procedura probehne rychle, timer se vypne a nic se nedeje,
pokud je cas dlouhy, vyvola se procedura timer, zde nastavis kurzor a timer
vypnes,
po skonceni procedury nastavis zpet kurzor.
Pavel
Zmena struktury DBF nebo Paradoxu
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 8.8.2003 10:05:07
Zdravim,
neumim zmenit typ nebo rozmer pole
pomoci komponenty TTable u tabulky DBF nebo Paradox.
Nebo jinak...
Diky
Martin Pavera
SetCursor v threadu
[*] Martin Bursa <martin.bursa(zv)ikos(tec)cz> - 8.8.2003 09:47:06
From: "Pavel Gazda" <pavel_gazda(zv)datasw(tec)cz>
> co to udelat nejak takto:
>
> begin
> timer.enabled := true;
> ...
> timer.enabled:= false;
> end;
Potrebuji, aby zmena probehla asynchronne ...SetCursor v threadu
[*] Martin Bursa <martin.bursa(zv)ikos(tec)cz> - 8.8.2003 09:45:06
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Sleep(2000);
> Screen.Cursor := crHourGlass;
> Sleep(3000);
> Screen.Cursor := crDefault;
> end;
>
> Tohle funguje presne jak ma.
Ja ale potrebuji neco jineho. Potrebuji zmenit kurzor pouze tehdy, pokud
vykonani urcite casti procedury (kde se nikde nevola zpracovani zprav)
prekroci
dany casovy limit. Delka zpracovani toho kodu se muze na ruznych pocitacich
znacne lisit a ja v pripade, ze provedeni je "bleskove", nechci aby kurzor
"problikl". Pokud je ale zpracovani delsi, je zmena zadouci ...
Toto mam v celku vyresene, ale mam problem s nastavenim tvaru kurzoru
v jinem threadu. Pokud v nem pouziji SetCursor( Screen.Cursors[
crHourglass ] ),
tak se kurzor nezmeni, ale SetCursorPos( X, Y ) pracuje spravne ? Nevite co
s tim ?
OT: Jak zobrazit mail (v .Body je multipart) (OT)
[*] Ing. Miroslav Ondrisek <ondrisek(zv)seznam(tec)cz> - 8.8.2003 08:31:01
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ludek ZITA
> Naprosty souhlas. Ja zase apleluji na to, aby se kazdy
> zamyslel, jak bude
> jeho SW fungovat pod omezenym uzivatelskym uctem .
> (zapisy do registru, adresaru, instalace, atd.)
> To ze se vetsina z nas hlasi do systemu jako admini
> neznamena, ze pro beh SW je to take nutne..
> Nejcastejsi chyby ktere vidam :
> Zapis do HKLM (krom instalace)
....
etc.
Tak to jsi si Ludku vylil srdicko i za me... Ja bych to nekdy
pozabijel, kdyz musim userum nastavovat extra prava do HKLM vetvi a do
WINNT a Program files a podobne jen proto, aby nejaky soft fungoval...
A ze je to mnohdy soft od VELMI renomovanych firem.... Ach jo:-((
Jeste maji vyvojare z dob W95 a nezaznamenali existenci NT systemu....
Tak a ted jsem si vylil srdicko i ja :-)
Mira
Synapse a FTP na Linuxu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.8.2003 08:23:00
> MandrakeLinux 9.1 - server ProFtpD 1.2.7-1
> Zkousel jsem komunikovat klienty FtpCommander, TotalCommander a priklad z Indy a vse funguje.
Mate nekdo tenhle FTP server verejne pristupny z internetu? Dost by
mi to pomohlo v hledani problemu... ;-( Diky.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.
DoubleBuffering pod CLX
[*] Petr Janousek <petr.janousek(zv)definity(tec)cz> - 8.8.2003 08:16:59
Nevite nekdo, proc neni pod CLX moznost nastavit u Formu
TForm.Doublebuffered ? Jak jinak se da pod CLX pri vykreslovani na Form
zamezit blikani : Mate s tim nekdo nejaky zkusenosti ?
Petr Janousek
--
Petr Janousek
DEFINITY Systems, s.r.o.
Krizikova 2158
25601 Benesov u Prahy
Czech Republic
Tel: +420 317 726022
Fax: +420 317 724456
Petr.Janousek(zv)Definity(tec)cz
http://www.definity(tec)cz
-------------------------
Private:
Luis99(zv)seznam(tec)cz
http://www.sweb(tec)cz/Luis99
Edit & Format
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.8.2003 07:38:57
Pokud potrebujes zadavat cislo, tak ja jsem to resil tak, ze zadam cislo bez
mezer a po opusteni editu to cislo preformatuju podle masky. Pochopitelne
pri vstupu zase formatovani odeberu. Je to pro lepsi uzivatelsky komfort pri
zadavani a pri cteni. Mam to napsane jako potomka TEditu a umi to vsechny
datove typy IB s nekterymi vylepsenimi... :))) Bohuzel to ale poslat nemohu,
protoze to bez kompletniho frameworku, na kterem vyvijime neni mozne
pouzit... Mohu pouze poslat kousek kodu, pokud by byl zajem...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of LUKES Vaclav
>
> Spatne jsem se vyjadril. Cely problem je nasledujici.
> Mam Edit a do nej potrebuji vkladat POUZE numericke hodnoty
> (prvni prioad) a numericke hodnoty spolu s * a ? (druhy pripad.
> A aby to nebylo malo, potrebuju, aby ten text mel nasledujici
> tvar: '999 999 999' (tedy 3 znaky mezera 3 znaky mezera atd.).SetCursor v threadu
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 8.8.2003 07:26:56
> begin
> SetThreadCursor( crHourglass, 200 ); // za 200 ms zmen tvar kurzoru
> ...
> SetThreadCursor( crDefault ); // zrus pozadavek na zmenu
> end;
co to udelat nejak takto:
begin
timer.enabled := true;
...
timer.enabled:= false;
end;
Pavel
Jak zobrazit mail (v .Body je multipart) (OT)
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 8.8.2003 00:58:32
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
>
> Verejny apel: Prosim vsechny, nez si vubec zacnete hrat s
Ahoj.
Naprosty souhlas. Ja zase apleluji na to, aby se kazdy zamyslel, jak bude
jeho SW fungovat pod omezenym uzivatelskym uctem .
(zapisy do registru, adresaru, instalace, atd.)
To ze se vetsina z nas hlasi do systemu jako admini neznamena, ze pro beh SW
je to take nutne..
Casto se rika, ze unix je odolnejsi proti virovym utokum, ale je to IMHO i
zasluhou toho, ze tam nikoho nenapadne, aby jeho SW fungoval pouze s pravy
roota.
Casto si pak autor ani neuvedomi, kolik bezesnych noci pripravi spravcum
vetsich siti, kde je nanejvyse vhodne nechat uzivatele pracovat s
minimalnimi opravnenimi.
Kdyz totiz vir spusteny uzivatelem nezapise do HKLM vetve registu, nedokaze
modifikovat ani zapsat do WINNT, Program Files atd., pak ma jiz mnohem mene
sanci system napadnout.
Nejcastejsi chyby ktere vidam :
Zapis do HKLM (krom instalace)
Spatne otevirany chraneny klic (sice jen ctu, ale oteviram ho pro zapis)
Zapisy do WINNT/temp
INI faily v WINNT
Program si zapisuje do sveho adresare v Program Files
Zapisy do HKCU pri instalaci (program pak nema potrebne udaje pro beh pod
jinym nez admin uctem)
atd.
No tak jsem si vylil srdicko, tak sorry...
Ludek
jak zjistit obsah Editu v jinem okne?
[*] Petr Kracik <petr.kracik(zv)atlas(tec)cz> - 7.8.2003 23:10:25
pomuze mi nekdo??
pls.
> Jak muzu pomoci Delphi 7 Enterprice zjistit obsah treba Editu v JINEM okne? napr.:
> mam prg. jmenem Ahoj a na nem je treba ten Edit nejaky to Memo a treba tlacitko.
> a mam prg. co programuju a chci zjistit co je v prg. Ahoj napsanyho v Editu a dostat to do myho prg. neb ozjistit co je v Memu a dostat to do meho prg.
> Doufam ze jste me pochopili :-))
> dik moc Petr.
> petr.kracik(zv)atlas(tec)cz
Jak zobrazit mail (v .Body je multipart)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.8.2003 23:00:19
Puvodni zprava ze dne 7.8.2003:
> jak dostat pryc zahlavi (myslis to Return-Path:, X-Mailer:,
> Message-id:, atp.?), me ted momentalne nenapada (ale mozna napadne :-)),
> ale pokud tam mas tagy html, tak kdyz najdes < tak < a vse az k > (vc)
> vyhodis. Dostanes tim plain text.
Hm. Co to je za ptakovinu? Kazdy normalni mail klient, kdyz odesila
HTML mail, pouzije i plain text alternativu, tedy je tam ten obsah
dvakrat. Staci si vzit tu MIME cast text/plain.
Jinak zahlavi je neco uplne jineho a nekde jinde a jasne oddelene.
Verejny apel: Prosim vsechny, nez si vubec zacnete hrat s
elektronickou postou, nebo radeji jeste nez vubec o tom zacnete
premyslet, nastudujte si prislusna RFC. Jinak to dopada tak, ze
vznikaji ruzne paskvily, z kterych lusit maily je vazne super
zalezitost. Kdyz jsem delal filtr teto konference, tak jsem na nekolik
takovych narazil a to je zradlo se v tom pak vyznat, kdyz to dela
vselijak jinak, jen ne podle RFC.
Jako mimochodem, nemyslete si, ze Microsoft dela maily podle RFC. S
tim jsem si zase pekne vyhral, kdyz jsem onehda ladil svou knihovnu
pro S/MIME digitalni podpisy a sifrovani. Nejen ze se nechovaji podle
RFC (zvlaste Outlook z Office), dokonce mnohdy ani poradne
nekomunikuji mezi sebou. A to je pak parada, kdyz sestavim mail podle
RFC, jeden ho precte, druhy ne, tak se hleda, co ten druhy asi tak
chce, no a pak to zase prestane cist ten prvni :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================UnLoad balicku
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 7.8.2003 22:23:51
Ahoj,
nemuze me nekdo kopnout, jak mam UnLoadnout balicek, kdyz uzivatel
form zavre. Mam v balicku proc. Init, ktera vytvori form a nakonec
zavola Form1.Show. Kdyby to bylo ShowModal, tak je to dobry, ale jak s
"normalnim Show"?
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
Jak zobrazit mail (v .Body je multipart)
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 7.8.2003 22:46:06
Ahoj,
jak dostat pryc zahlavi (myslis to Return-Path:, X-Mailer:,
Message-id:, atp.?), me ted momentalne nenapada (ale mozna napadne :-)),
ale pokud tam mas tagy html, tak kdyz najdes < tak < a vse az k > (vc)
vyhodis. Dostanes tim plain text.
> potrebuji co nejjednoduseji zobrazit obsah mailu (plaint
> text/html); mail mam nacteny do TIdMessage a v Body je cely
> mail (i s HTML a zahlavimi ) a ja bych potreboval to zobrazit
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
==
Mate svuj web? A co treba nabidnout zasilani novinek (newsletter)? Nebo
potrebujete rozeslat vice mailu: a hromadny neni ono; vse rucne neni ono
- skocte na www.cincura.net a zkuste "Mailer".Rustina a DBGrid a DBF
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 7.8.2003 22:54:14
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> > Mam jednoduchu databazu (nie mojou vinou BDF). Je to v podstate
> > cennik. Potrebujeme ho dostat do rustiny. A to je problem. Namiesto
> > rustiny tam mam "haky-baky".
>
> Ahoj,
>
> 1) Mas spravne nastaveny langdriver v BDE ci kde se to nastavuje? V tomto
se
> neorientuji a nemumim poradit.
>
> 2) Mas ve vlastnostech Fontu DBGridu nastaveny charset RUSSIAN_CHARSET?
>
Ahoj.
Vyse uvedene je OK ale jeste pozor na spravny font (aby mel rez Cyrilici).
Vyhovuje napr. Arial.
Ludek
Vodorovny posuvnik
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 7.8.2003 22:52:08
Ted sedim u WinXP HE.
>
> A verze Windows ? Na Windows 2000 to funguje jak ma.
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
Vodorovny posuvnik
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 7.8.2003 22:23:46
Pouzivam. Ale uz i takhle je to dobry. :)
> From: "Jiri Cincura" <jiri(zv)cincura.net>
> > Je tam sice carka vedle CheckBoxu navic, takze ma jako
> stin, ale je to
>
> To je zvlastni, pouzivas Flat = True ?
>
> Petr Vones
Vodorovny posuvnik
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 22:33:57
From: "Jiri Cincura" <jiri(zv)cincura.net>
> Pouzivam. Ale uz i takhle je to dobry. :)
A verze Windows ? Na Windows 2000 to funguje jak ma.
Petr Vones
Vodorovny posuvnik
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 21:39:33
From: "Jiri Cincura" <jiri(zv)cincura.net>
> Je tam sice carka vedle CheckBoxu navic, takze ma jako stin, ale je to
To je zvlastni, pouzivas Flat = True ?
Petr Vones
Hacking ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 21:35:28
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> mno ja vim ale ja bych jenom potreboval udelat to abych nemohl u nekterych
Jenze to "jenom" je vic nez si myslis ;-) Zkratka pouzij VirtualTreeView a mas
to rychleji.
Petr Vones
SetCursor v threadu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 18:15:03
From: "Martin Bursa" <martin.bursa(zv)ikos(tec)cz>
> Zmena se mi projevi az ve chvili, kdy se aplikace dostane
> ke zpracovani zprav. Potrebuji dosahnout tohoto:
procedure TForm1.Button1Click(Sender: TObject);
begin
Sleep(2000);
Screen.Cursor := crHourGlass;
Sleep(3000);
Screen.Cursor := crDefault;
end;
Tohle funguje presne jak ma.
Petr Vones
chyby VS .NET a C# ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 18:01:02
From: "Lubos Urban" <lubos.urban(zv)visicom.sk>
> vzhladom na to, ze som sa tu docital mnoho pozitivnych reakcii na VS.NET a
> C# som sa vcera rozhodol ze si v nom skusim spravit nejaku mensiu Windows
> aplikaciu. Narazil som vsak na zopar problemov ktore ma naozaj nepotesili,
V jake verzi .NET Frameworku ?
Petr Vones
Edit & Format
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 7.8.2003 17:14:59
Co takhle
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := 12345678;
Label1.Caption:=FormatFloat('#,', i);
end;
chyby VS .NET a C# ???
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.8.2003 16:25:01
On 7 Aug 2003 at 16:13, Lubos Urban wrote:
> docknuty dolava, ToolBar docknuty hore a tu zacali moje problemi: 1)
> ToolBar sa mi nedockol hore po celej dlzke formy ale az odtial kde
> koncil treeView docknuty dolava. Postup riesenia TreeView docking
> None ToolBar sa dokol spravne, TreeView docking Left ale zase to
> skoncilo tak ako v predch. pripade. Po dlhsom badani som objavil dve
> riesenia: ukladat komponenty na plochu v spravnom poradi tz. najprv
> toolbar a potom TreeView alebo pouzit panel.
Ano, takto je to spravne. Co ja jsem se v Delphi jenom natrapil tim,
ze se komponenty dockovaly jak ony chteli, a ne jak ja - az jsem
rezignoval. Dockovani v C# mi tedy plne vyhovuje, poradi si uz
ohlidam snadno.
> 2) Pre tlacitla toolbaru
> som do ImageListu dal Bitmapy (rozmer 16x16, farebna hlbka 24Bit farba
> pozadia biela) za ten svet som ich nevedel donutit aby mali na
> tlacitkach v ToolBare translaparentne pozadie (pricom transparent
> color som skusal nastavit aj transparent aj white). Po pol hodine
> sachovania som zistil ze ak sa nejako pomeni trasparent color a color
> depth tak za urcitych okolnosti dosiahnem transparentne pozadie.
> Bohuzial som jednoznacny sposob ako to dosiahnut nenasiel lebo ten
> isty sposob po sebe viac krat nezabral.
Jo, tam je jeste drobna bota. Je treba postylovat parametry v
ImageListu, ktere se tykaji barvy a pripadne barevne hloubky. Mne to
pak zabere pokazde.
> 3) dalsie problemi boli
> spojene s prostredim VS.NET. Po tom co som zmazal ImageList naviazany
> na ToolBar sa mi navrh formulara nerefreshol, stale zobrazoval ikony
> so zmazaneho ImageListu. K refresu doslo az po kliknuti na navrh
> formularu. Odhliadnuc od toho ze property ToolBaru image list sa
> nenastavila na hodnotu none ale tam nebolo nic napisane a kludne som
> mohol pridavat bitmapy aj upravoval vlastnosti neexistujuceho
> ImageListu.
Asi jsi to nemel ulozene, takze ve zdrojaku to stale bylo.
> 4) Ked som zmeni property ToolBaru Autosize na false a
> nastavil vlastnu vysku, potom som vratil autosize na true Tool bar sa
> vratil na povodnu velkost avsak property height bola nastavena na tu
> hodnotu ktoru som zadal ja (pri autosize false) . K refresu doslo tiez
> az po tuknuty na tuto property.
Imho tam maji jeste dost chyb, ja narazil i na problemy se spravnym
zobrazovanim tlacitek s textem a obrazkem.
S pozdravem
Zbysek Hlinka
Edit & Format
[*] VotavaSW <votavasw(zv)seznam(tec)cz> - 7.8.2003 16:25:01
TMaskEdit.EditMask
s pozdravem Votava
> Spatne jsem se vyjadril. Cely problem je nasledujici.
> Mam Edit a do nej potrebuji vkladat POUZE numericke hodnoty (prvni prioad)
a numericke hodnoty spolu s * a ? (druhy pripad.
> A aby to nebylo malo, potrebuju, aby ten text mel nasledujici tvar: '999
999 999' (tedy 3 znaky mezera 3 znaky mezera atd.).Re2x: IB/FB - jak hledat retezec ve vice sloupcich
[*] js-delphi(zv)quick(tec)cz - 7.8.2003 16:39:02
> 1) Mas ParamCheck nebo jak se to jmenuje na
> datasetu = True?
Nevim, musim se podivat. Mam default hodnotu -
predpokladam, ze true.
> 2) Neni problem treba ve velikosti pismen v
> hledanem textu?
Ne. V tom problem nebude. Neuvedl jsem priklad
spravne. Pouzivam v SQL: where (UPPER (combinace
sloupcu) like : par1)
> 3) Nemas v hledanem textu diakritiku?
Zatim ne, ale musim s tim pocitat. Byl by to
nejaky problem? Pri vyhledavani v jednom sloupci
to hleda i s diakritikou.
> 4) Nezapominas ten parametr v kodu obalit
> znakem procent (abys neposilal jen AA
> misto %AA%.
Tak tohle byl problem, protoze jsem po hodinach
testovani zjistil, ze pokud chci, aby mi server
vyhledal retezec pomoci "like" musel jsem
predavat holy parametr bez "%"
Kdyz jsem udelal where UPPER(sloupec) like :par1
a pak jsem predaval parametr:
1) IBQuery.ParamByName
('par1').AsString:='''%'+AnsiUPPERCase(Hodnota)
+'%''';
nevyhledalo to nic
2) IBQuery.ParamByName
('par1').AsString:=AnsiUPPERCase(Hodnota);
pracuje to spravne jako like - vyhledava i
podretezce.
Cili nevim jak dal.
> David Lebeda
Diky za jakekoliv dalsi napady.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; FB 1.0.2; WinXPProf+SP1
programator amater
OT: chyby VS .NET a C# ???
[*] Lubos Urban <lubos.urban(zv)visicom.sk> - 7.8.2003 16:13:00
No tak to skusim este raz s tym mailom, hadam sa to uz neposaha :)
Ahojte konfera,
vzhladom na to, ze som sa tu docital mnoho pozitivnych reakcii na VS.NET a
C# som sa vcera rozhodol ze si v nom skusim spravit nejaku mensiu Windows
aplikaciu. Narazil som vsak na zopar problemov ktore ma naozaj nepotesili,
ale mozno mi s nimi niekto pomoze.
Rozhodol som sa ze zacnem standardnou aplikaciou nejake menu, statusbar,
listView docknuty dolava, ToolBar docknuty hore a tu zacali moje problemi:
1) ToolBar sa mi nedockol hore po celej dlzke formy ale az odtial kde
koncil treeView docknuty dolava. Postup riesenia TreeView docking None
ToolBar sa dokol spravne, TreeView docking Left ale zase to skoncilo tak ako
v predch. pripade. Po dlhsom badani som objavil dve riesenia: ukladat
komponenty na plochu v spravnom poradi tz. najprv toolbar a potom TreeView
alebo pouzit panel.
2) Pre tlacitla toolbaru som do ImageListu dal Bitmapy (rozmer 16x16,
farebna hlbka 24Bit farba pozadia biela) za ten svet som ich nevedel donutit
aby mali na tlacitkach v ToolBare translaparentne pozadie (pricom
transparent color som skusal nastavit aj transparent aj white). Po pol
hodine sachovania som zistil ze ak sa nejako pomeni trasparent color a color
depth tak za urcitych okolnosti dosiahnem transparentne pozadie. Bohuzial
som jednoznacny sposob ako to dosiahnut nenasiel lebo ten isty sposob po
sebe viac krat nezabral.
3) dalsie problemi boli spojene s prostredim VS.NET. Po tom co som zmazal
ImageList naviazany na ToolBar sa mi navrh formulara nerefreshol, stale
zobrazoval ikony so zmazaneho ImageListu. K refresu doslo az po kliknuti na
navrh formularu. Odhliadnuc od toho ze property ToolBaru image list sa
nenastavila na hodnotu none ale tam nebolo nic napisane a kludne som mohol
pridavat bitmapy aj upravoval vlastnosti neexistujuceho ImageListu.
4) Ked som zmeni property ToolBaru Autosize na false a nastavil vlastnu
vysku, potom som vratil autosize na true Tool bar sa vratil na povodnu
velkost avsak property height bola nastavena na tu hodnotu ktoru som zadal
ja (pri autosize false) . K refresu doslo tiez az po tuknuty na tuto
property.
5) Skusal som tu istu verziu VS.NET aj pod W2k ale tu boli este vacsie
problemi, napr. dal som na formu SpinEdit spustil aplikaciu ale tie sipky co
mali byt zobrazene v pravej casti spin editu tam neboli ale ked som nad ne
prisiel mysou a tukol tak sa zjavili. Po strate fokusu zase zmizli. Po
dalsej kompilacii sa to spravalo odlisne ale tiez nie korektne.
Chcel by som sa teda spytat ci existuje nejake riesenie (najma na ten
property refresh, lebo niekedy to ide tak akov Delphi inokedy treba pre
refresh kliknut na propery mysou) na horeuvedene problemi (resp. co som
spravil zle) alebo ci sa jedna o nejake chyby vo VS.NET
Lubos Urban
Lubos.Urban(zv)visicom.sk
Edit & Format
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 7.8.2003 16:02:59
Spatne jsem se vyjadril. Cely problem je nasledujici.
Mam Edit a do nej potrebuji vkladat POUZE numericke hodnoty (prvni prioad) a numericke hodnoty spolu s * a ? (druhy pripad.
A aby to nebylo malo, potrebuju, aby ten text mel nasledujici tvar: '999 999 999' (tedy 3 znaky mezera 3 znaky mezera atd.).
-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)wo(tec)cz]
Sent: Thursday, August 07, 2003 3:29 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Edit & Format
7.8.2003 LUKES Vaclav:
> Ahoj,
> poradte mi prosim, jak zformatovat text v Editu.
Co znamena "zformatovat" ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
OT: chyby VS .NET a C# ???
[*] Lubos Urban <lubos.urban(zv)visicom.sk> - 7.8.2003 15:56:58
This is a MIME-formatted message. If you see this text it means that your
E-mail software does not support MIME-formatted messages.Hacking ListView
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 7.8.2003 15:28:56
Zdravim,
>> virtualtrees od www.lischke-online.de ale ovladani zpusob prace je dosti
>> slozity.
>
>Ovsem je to daleko jednodusi cesta nez se snazit upravit takto TListView.
>
mno ja vim ale ja bych jenom potreboval udelat to abych nemohl u nekterych columns menit velikost
kdyz je jejich velikost nastavena na 0.
pridat objekt do pod items... neco jako u treeview...
pri kliknuti na radek a prebarveni items na modro potrebuji kompletne zobrazit obrazek pouzity pro dany column.
s tim si nevim rady....
>Petr Vones
Edit & Format
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 7.8.2003 15:28:57
7.8.2003 LUKES Vaclav:
> Ahoj,
> poradte mi prosim, jak zformatovat text v Editu.
Co znamena "zformatovat" ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Edit & Format
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 7.8.2003 15:22:56
Ahoj,
poradte mi prosim, jak zformatovat text v Editu.
Dekuju
V.
DoubleBuffering pod CLX
[*] Petr Janousek <petr.janousek(zv)definity(tec)cz> - 7.8.2003 14:48:53
Nevite nekdo, proc neni pod CLX property TForm.Doublebuffered ? Jak
jinak se da pod CLX pri vykreslovani na Form zamezit blikani : Mate s
tim nekdo nejaky zkusenosti ?
Petr Janousek
Firebird, TIBStoredProc, cestina
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 7.8.2003 14:00:50
Haj hou!
On 7 Aug 2003 at 13:14, Petr Jarkovsky wrote:
> U parametru procedury mi znakova sada definovat nejde. Pri kompilaci se definice
> orizne.
> Priklad:
>
> CREATE PROCEDURE SAVERIGHTITEM (
> ANAZEV VARCHAR(50) CHARACTER SET WIN1250,
> AHODNOTA INTEGER)
> ....
> po skompilovani a naslednem zobrazeni obsahu procedury je toto:
>
> CREATE PROCEDURE SAVERIGHTITEM (
> ANAZEV VARCHAR(50),
> AHODNOTA INTEGER)
> ....
>
> Zkousel jsem to v EMS QuickDesk i v IBAccess, oba se chovaji stejne.
Mno, ono se stejne chova i ISQL, ale to neznamena, ze je to vporadku nebo ze
znakova sada je u parametru ignorovana ci zmizi :-) Tyhle nastroje proste jen
nevedi jak na to :-))) V tabulce RDB$PROCEDURE_PARAMETERS je treba
dohledat jmeno domeny (RDB$FIELD_SOURCE) definice parametru. Pak v
tabulce RDB$FIELDS vyhledat prislusny zaznam (RDB$FIELD_NAME) a
podivat se na hodnotu RDB$CHARACTER_SET_ID (pro WIN1250 je to 51,
mozno overit v tabulce RDB$CHARACTER_SETS).
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
SetCursor v threadu
[*] Martin Bursa <martin.bursa(zv)ikos(tec)cz> - 7.8.2003 14:36:52
Zmena se mi projevi az ve chvili, kdy se aplikace dostane
ke zpracovani zprav. Potrebuji dosahnout tohoto:
begin
SetThreadCursor( crHourglass, 200 ); // za 200 ms zmen tvar kurzoru
...
nejaky kod // pokud bude provadeni trvat delete nez 200 ms
// pak se zmeni tvar kurzoru, v opacnem pripade
// kurzor "neproblikne"
...
SetThreadCursor( crDefault ); // zrus pozadavek na zmenu
kurzoru
end;
> > nevite nekdo, jakym zpusobem lze zmenit tvar kurzoru mysi
> > mimo hlavni thread aplikace tak, aby se tato zmena projevila
> > okamzite ?
>
> A kdy se tato zmena neprojevi okamzite ?
>
Kompozitni komponenty
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 7.8.2003 14:18:51
Jakub Dusek wrote:
> Zdravim,
> nemate nekdo priklad jak delat kompozitni komponenty? Nekde jsem to
> videl na nejakem seminari o Delphi 6, ale do ted jsem to nepouzil, ted
> se mi to nedari nikde najit... Doufam, ze aspon ten vyraz jsem si
> zapamatoval spravne, jde mi o komponentu, ktera obsahuje jinou
> komponentu a potrebuju to nastavit tak, abych k jejim vlastnostem mohl
> pristupovat v Object Inspectoru.
>
Komponent ktory chces tzv. "vlozit" do inej komponenty tak pouzit
toto(dolezite je najma SetSubComponent):
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Name := 'SubMyComponent';
SetSubComponent(True);
if Assigned(AOwner) then
Caption := AOwner.Name;
end;zapis do souboru a kodovani cestiny
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 7.8.2003 14:00:50
7.8.2003 Tomas Cejka:
> A jak ten string prevedu?
Napises si svoji funkci na prevod, popr. pouzijes nejakou hotovou.
Prevody pres ISO nejsou soucasti Windows.
Neco najdes v knihovne Synapse (www.ararat(tec)cz/synapse), unita
SynaChar, popr. na www.cestina(tec)cz jsou prevodove tabulky
> 7.8.2003 Tomas Cejka:
>> Potreboval bych vedet jak to udelat, abych mohl v programu zapisovat
>> pomoci Writeln do textoveho souboru rovnou v kodovani ISO-8859-2 a
>> nemusel to potom nejak prevadet (jestli to jde).
> Mam string.
> Prevedu jej do ISO-8859-2
> Zapisu pomoci Writeln
> Jinak to asi nevymyslis
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Hacking ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 13:54:49
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> virtualtrees od www.lischke-online.de ale ovladani zpusob prace je dosti
> slozity.
Ovsem je to daleko jednodusi cesta nez se snazit upravit takto TListView.
Petr Vones
Kompozitni komponenty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 13:54:49
From: "Jakub Dusek" <delphi(zv)corexpert.com>
> zapamatoval spravne, jde mi o komponentu, ktera obsahuje jinou
> komponentu a potrebuju to nastavit tak, abych k jejim vlastnostem mohl
> pristupovat v Object Inspectoru.
Viz TComponent.SetSubComponent, priklady pouziti najdes ve zdrojacich VCL.
Petr Vones
Kompozitni komponenty
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 7.8.2003 14:02:50
Haj hou!
On 7 Aug 2003 at 13:48, Jakub Dusek wrote:
> Zdravim,
> nemate nekdo priklad jak delat kompozitni komponenty? Nekde jsem to
> videl na nejakem seminari o Delphi 6, ale do ted jsem to nepouzil, ted
> se mi to nedari nikde najit... Doufam, ze aspon ten vyraz jsem si
> zapamatoval spravne, jde mi o komponentu, ktera obsahuje jinou
> komponentu a potrebuju to nastavit tak, abych k jejim vlastnostem mohl
> pristupovat v Object Inspectoru.
Stahni a nainstaluj CCPack Sergeje Orlica, viz
http://www.geocities.com/SiliconValley/Way/9006/
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Jak ukoncit Thread pred FreeLibrary ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 13:54:49
From: "Daniel Rott" <roxton(zv)seznam(tec)cz>
> Nezbyva tedy doufat, ze se vsechny aplikace
> pouzivajici DLL budou chovat korektne a pred
> jejim odehrani zavolaji prislusne funkce DLL
> na ukonceni vsech threadu, mam pravdu ?
Presne tak.
Petr Vones
SetCursor v threadu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.8.2003 13:56:49
From: "Martin Bursa" <martin.bursa(zv)ikos(tec)cz>
> nevite nekdo, jakym zpusobem lze zmenit tvar kurzoru mysi
> mimo hlavni thread aplikace tak, aby se tato zmena projevila
> okamzite ?
A kdy se tato zmena neprojevi okamzite ?
Petr Vones
MaskEdit
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 7.8.2003 13:34:47
Ahoj,
muzete mi prosim nekdo poradit s MaskEditem ?
Na formu mam komponentu POKUS (typ TMaskEdit) a ja bych chtel tyhle dve veci:
1) v jednom pripade do POKUS vkladat pouze numericke hodnoty
2) do POKUS vkladat numericke hodnoty a zastupne znaky - * a ?
V prvnim priade mam asi tohle:
POKUS.EditMask := '000\ 000\ 000;0; '; // to je v poradku
ale nevim, co s tim druhym.
Dekuju
V.
vytvoreni souboru *mdb
[*] Petr Langer <langer(zv)xdom(tec)cz> - 7.8.2003 13:26:46
Naimportuj si Microsofti COM rozhrani ADOX (ADO eXtension).
Pod AdoX.Catalog je metoda Create(...)
Hledej v MSDN pod ADOX, jsou tam priklady ve VB a C++, ale je snadne jim
porozumet.
HTH,
Petr Langer
----- Original Message -----
From: "Lenka Donatova" <lenkad(zv)nemocnice-vs(tec)cz>
Subject: vytvoreni souboru *mdb
> Zdravim vsechny ucastmiky konference
> Chtela bych vznest nasledujici dotaz.
> Jak je mozne programove vytvorit *.mdb soubor?
> Pro pristup k databazim pouzivam ADO komponenty ktere jsou standartni
> soucasti Delphi 6.
>
> Diky za odpovedi
>
> Lenka Donatova
Kompozitni komponenty
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 7.8.2003 13:48:48
Zdravim,
nemate nekdo priklad jak delat kompozitni komponenty? Nekde jsem to
videl na nejakem seminari o Delphi 6, ale do ted jsem to nepouzil, ted
se mi to nedari nikde najit... Doufam, ze aspon ten vyraz jsem si
zapamatoval spravne, jde mi o komponentu, ktera obsahuje jinou
komponentu a potrebuju to nastavit tak, abych k jejim vlastnostem mohl
pristupovat v Object Inspectoru.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
aplikace pro komfortni odesilani sms zprav, vizitek, log a melodii
=> Sms GateKeeper 2.1
Jak zobrazit mail (v .Body je multipart)
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 7.8.2003 13:28:47
Dobry den,
potrebuji co nejjednoduseji zobrazit obsah mailu (plaint text/html); mail
mam nacteny do TIdMessage a v Body je cely mail (i s HTML a zahlavimi ) a ja
bych potreboval to zobrazit normalne. Povite mi prosim nekdo jak na to?
Predem dekuji :-)
S pozdravem
Frantisek Bohac
zapis do souboru a kodovani cestiny
[*] Tomas Cejka <tom.cejka(zv)kassoft(tec)cz> - 7.8.2003 13:20:46
A jak ten string prevedu?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of ing. Jan Fiala
Sent: Thursday, August 07, 2003 12:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: zapis do souboru a kodovani cestiny
7.8.2003 Tomas Cejka:
> Potreboval bych vedet jak to udelat, abych mohl v programu zapisovat
> pomoci Writeln do textoveho souboru rovnou v kodovani ISO-8859-2 a
> nemusel to potom nejak prevadet (jestli to jde).
Mam string.
Prevedu jej do ISO-8859-2
Zapisu pomoci Writeln
Jinak to asi nevymyslis
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
IB/FB Nepotrebne systemove domeny
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 7.8.2003 13:00:44
Ahoj,
poradim ti spise obecne, ale predpokladam, ze pokud je ta domena
vyuzita,
bude to u prislusneho sloupce zapsane.takze bych se podival ktery
sloupec
v relations nebo relationfields odkazuje na domeny a hledal domeny,
ktere
zde nejsou. a na zaver, nikomu never a vzdycky zalohuj :o)
peca
Firebird, TIBStoredProc, cestina
[*] Petr Jarkovsky <pejasoft(zv)volny(tec)cz> - 7.8.2003 13:14:45
U parametru procedury mi znakova sada definovat nejde. Pri kompilaci se definice
orizne.
Priklad:
CREATE PROCEDURE SAVERIGHTITEM (
ANAZEV VARCHAR(50) CHARACTER SET WIN1250,
AHODNOTA INTEGER)
....
po skompilovani a naslednem zobrazeni obsahu procedury je toto:
CREATE PROCEDURE SAVERIGHTITEM (
ANAZEV VARCHAR(50),
AHODNOTA INTEGER)
....
Zkousel jsem to v EMS QuickDesk i v IBAccess, oba se chovaji stejne.
S pozdravem
Petr Jarkovsky
pejasoft(zv)volny(tec)cz
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>> On 7 Aug 2003 at 11:48, Petr Jarkovsky wrote:
>
> > Diky za radu. Zkusil jsem a selhalo. ISQL vyhodilo tu samou hlasku.
> > Co s tim? Nevim vubec kde hledat co jeste skontrolovat.
>
> Hmm, jsou parametry procedury a pripadne lokalni promenne definovany rovnez
> s prislusnou znakovou sadou ? Rekl bych, ze ne.zapis do souboru a kodovani cestiny
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 7.8.2003 12:42:43
7.8.2003 Tomas Cejka:
> Potreboval bych vedet jak to udelat, abych mohl v programu zapisovat
> pomoci Writeln do textoveho souboru rovnou v kodovani ISO-8859-2 a
> nemusel to potom nejak prevadet (jestli to jde).
Mam string.
Prevedu jej do ISO-8859-2
Zapisu pomoci Writeln
Jinak to asi nevymyslis
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
options explicit
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 7.8.2003 12:44:43
7.8.2003 Vymazal Milan:
> Zdravim
> mam takovy hloupy Off topic dotaz
> ve Visual Basic existuje Moznost options explicit jaky je jeho ekvivalent ve C# a Delphi ?
V Delphi zadna. Tato volba je pevne nastavena :-)
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz