Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Tape backup API a Delphi
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 22.5.2001 09:01:51
Abys nerekl, ze na Tebe taky vsichni kaslou, jako na me ;-)))
TAPE_GET_MEDIA_PARAMETERS
The TAPE_GET_MEDIA_PARAMETERS structure describes the tape in the tape
drive.
typedef struct _TAPE_GET_MEDIA_PARAMETERS {
LARGE_INTEGER Capacity;
LARGE_INTEGER Remaining;
DWORD BlockSize;
DWORD PartitionCount;
BOOLEAN WriteProtected;
} TAPE_GET_MEDIA_PARAMETERS, *PTAPE_GET_MEDIA_PARAMETERS;
Members
Capacity
Specifies the total number of bytes on the current tape partition.
Remaining
Specifies the number of bytes between the current position and the end of
the current tape partition.
BlockSize
Specifies the number of bytes per block.
PartitionCount
Specifies the number of partitions on the tape.
WriteProtected
Specifies whether the tape is write-protected. If this member is TRUE, the
tape is write-protected.
Remarks
The GetTapeParameters function fills the Remaining and Capacity members with
estimates of the tape remaining in the current tape partition and the total
capacity of the current tape partition.
Requirements
Windows NT/2000: Requires Windows NT 3.1 or later.
Header: Declared in Winnt.h; include Windows.h.
viz link
http://msdn.microsoft.com/library/psdk/winbase/tapeback_31pu.htm
Cau
Mira Ondrisek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of voltrr1.epr(zv)mail.cez(tec)cz
> Sent: Monday, May 21, 2001 4:07 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Tape backup API a Delphi
>
>
> Zdravim,
>
> nemate nekdo definici struktury TAPE_GET_MEDIA_PARAMETERS a tech zbylejch
> pro tape api do Delphi 5 ??
>
> Dikec
> Radek
>
>
>Zmena IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.5.2001 09:02:26
> IMHO to neni mozne. IP adresa neni nejak promenna, kterou si muzes menit
jak
> chces. Ta se ti prideli pri pripojeni do netu. At uz po modemu nebo
bezdratu
> nebo jakkoliv jinak. Privideri nabizeji bud dynamicky pridelovanou IP
adresu
> (valna vetsina dialupu (u volnyho si muzes zaplatit pevnou)). U vyssich
> druhu pripojeni to zavisi na podminkach konkretni smlouvy. Jina moznost
je,
> ze mas pevnou IP adresuz. Pak se ti po pripojeni prideli vzdy stejna. Ale
ze
> by sis ji mohl kdykoliv zmenit podle me nejde.
>
no, rucne si v pocitaci muzes nastavit kolik IPcek chces (mas-li vhodny
operacni system - cili ne WIn9X). Ale protoze k tobe nebudou routovany
nemuzes je pouzit pri komunikaci s nekym v Internetu. Ovsem muzes falesne
IPcko pouzit napriklad pri odesilani nejakych poskozenych paketu za ucelem
schozeni ciloveho PC (Tear drop DoS,...) nebo zahlceni nejake sluzby (ping
DoS)
D. Toman
Kopirovani adresare vcetne podadresaru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.5.2001 09:13:26
K tomu slouzi rekurzivni volani fukce.
Udelas si funkci, ktera bude kopirovat jednotlive soubory v adresari,
ktery ji p�edas jako parametr (napr. proch�zen� pomoc� FindFirst ...).
Projizdis soubory a pokud narazis na podadresar, zavolas tu samou funkci,
ktere predas cestu vcetne podadresare.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.5.2001 "FAIT Ji��, ml.":
> Potreboval bych nakopnout jak v aplikaci zkopirovat adresar vcetne
> podadresaru nekam jinam.
> V prubehu kopirovani bych chtel jednotlive kopirovane soubory mit pod
> kontrolou, tzn. napriklad kontrolovat atribut faReadOnly a podle toho se
> zaridit.> Jiri Fait
> Informacni systemy
> ICQ: 113357332
> Email: fait(zv)jakl(tec)cz , ftsoft(zv)iol(tec)cz
Datum v DBGridu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 22.5.2001 09:27:42
Udelej to jako calculated field a v pripade, ze bude datum prazdny tak udelej
fieldByName(Nazev_Vypocitaneho_Fieldu).asString := '';
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> hello, muj problem je, jak donutit DBGrid aby u prazdn�ch (nevyplnenych)
> datumu vypsal prazdnou bunku namisto 31.12.1899.Pripojeny uzivetelia v Novell
[*] <martin.duffek(zv)sk.pwcglobal(tec)com> - 22.5.2001 09:46:42
Caute vsetci,
Neviete mi, prosim, niekto poradit ako zistim uzivatelov pripojenych v
Novell 4.x ? Pripadne ci je nejaky uzivatel pripojeny ?
Diky moc,
Duff
----------------------------------------------------------------
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of, or
taking of any action in reliance upon, this information by persons or
entities other than the intended recipient is prohibited. If you received
this in error, please contact the sender and delete the material from any
computer.SQL
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.5.2001 10:15:23
On 16 May 2001, at 22:46, Jaroslav Bayer wrote:
> Dekuji za radu, ale nevim, jak ji odstranit, protoze jsem jiz drive
> zkousel query vypnout, zobrazit jinou tabulku a podobne veci - jednou
> otevrena tabulka je nevymazatelna do restartu programu - i v pripade,
> ze se jiz zobrazuje jina tabulka.
To zalezi na tom, jak a co v programu delas. Jestli mas po
programu rozesety query komponenty, nejake master-detail
vztahy, dotazy pres vice tabulek, pak se muze stat, ze nekde
zustane viset otevreny kursor na tabulku. Takze zodpovidas za to,
aby pred pokusem vymazat tabulku byly vsechny odkazy radne
uzavrene (Query.Close). Mozna, ze mas trvale otevrene datasety.
Tohle se neresi zobrazenim jine tabulky, ale duslednym a rizenym
oteviranim datasetu az v okamziku, kdy jsou zapotrebi, a jejich
uzaviranim ihned jakmile jich neni zapotrebi.
Ovsem muze jeste zalezet na databazi a prostredku, kterym k ni
pristupujes. To jsi nezminil.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Komunikacia
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 22.5.2001 10:23:17
Ahojte.
Kto by mi vedel poradit, kde na internete by som si mohol precitat clanky,
ako v delphi pouzivat :
rury, semafory, share memory, spravy.
Chcel by som sa naucit programovat komunikaciu medzi procesmi ....
Za kazdu radu vopred dakujem
jozo
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.Tape backup API a Delphi
[*] voltrr1.epr(zv)mail.cez(tec)cz - 22.5.2001 09:24:19
Dekuji vsem za snahu ,ale kdyz napisu prepis do Delphi tak jsem predpokladal
prepis do object pascalu.
Do helpu a msdn jsem se koukal, ale byl jsem linej to prepisovat.
Koukam ze me asi nic jineho nezbude - este ze toho neni aspon tolik
Radek
> typedef struct _TAPE_GET_MEDIA_PARAMETERS {
> LARGE_INTEGER Capacity;
> LARGE_INTEGER Remaining;
> DWORD BlockSize;
> DWORD PartitionCount;
> BOOLEAN WriteProtected;
> } TAPE_GET_MEDIA_PARAMETERS, *PTAPE_GET_MEDIA_PARAMETERS;
Je nebo neni IB6 free : bylo IB6.0.1.6: Backup/Res
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 22.5.2001 10:43:50
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
>
> Prijde na to :) Jako zamestnanec Borlandu MUSIM rict ze
> InterBase. Osobne ale IB nepouzivam, uz jenom pro to, ze nemam
> na licence :)
>
Ahoj.
Teda s tou licenci jsi mne dostal, ziju v domeni, ze IB je free.
Kouknul jsem se tedy k Borlandum a nestacil jsem zirat :
[SQL]: InterBase 6.0 for Windows 2000/NT
INT1360WWFL00S INTERBASE 6.0 for Windows 2000/NT Server License -- 9140
IBC1360WWFL000 INTERBASE 6.0 for Windows 2000/NT Simultaneous user (1) --
6840
IBC1360WWFL00E INTERBASE 6.0 for Windows 2000/NT Simultaneous user (10) --
54100
IBC1360WWFL00F INTERBASE 6.0 for Windows 2000/NT Simultaneous user (20) --
94670
IWL1360WWFL00Q INTERBASE 6.0 for Windows 2000/NT Internet Access License --
112540
IPC1360WWFL000 INTERBASE 6.0 for Windows 2000/NT C & C++ Pre Compiler --
22630
[SQL]: InterBase 6.0 for Linux
INT7060WWFL00S INTERBASE 6.0 for Linux Server License -- 9140
IBC7060WWFL000 INTERBASE 6.0 for Linux Simultaneous user (1) -- 6840
IBC7060WWFL00E INTERBASE 6.0 for Linux Simultaneous user (10) -- 54100
IBC7060WWFL00F INTERBASE 6.0 for Linux Simultaneous user (20) -- 94670
IWL7060WWFL00Q INTERBASE 6.0 for Linux Internet Access License -- 112540
IPC7060WWFL000 INTERBASE 6.0 for Linux C & C++ Pre Compiler -- 22630
[SQL]: InterBase 6.0 for Sun Solaris
INT6160WWFL00S INTERBASE 6.0 for Sun Solaris Server License -- 9140
IBC6160WWFL000 INTERBASE 6.0 for Sun Solaris Simultaneous user (1) -- 6840
IBC6160WWFL00E INTERBASE 6.0 for Sun Solaris Simultaneous user (10) -- 54100
IBC6160WWFL00F INTERBASE 6.0 for Sun Solaris Simultaneous user (20) -- 94670
IWL6160WWFL00Q INTERBASE 6.0 for Sun Solaris Internet Access License --
112540
IPC6160WWFL000 INTERBASE 6.0 for Sun Solaris C & C++ Pre Compiler -- 22630
Pritom zde je IMHO napsano ze je free :
http://www.borland.com/devsupport/interbase/opensource/IPL.html
Jak to tedy vlastne je ?
Predem dik
Ludek
Cached-updates
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 22.5.2001 10:43:33
Ahoj vsem.
Mam takovy problem. Peru se ted s Cache-updaty a potreboval bych, zda nema
nekdo unitu, kde by bylo dobre videt, jak s tim zachazet. Princip mi je
jasny. Nejsou mi vsak jasne detaily jako je:
Pracuji proti SQL Server 7.0 a mam pole identity. Kdyz vlozim novy zaznam,
server mi vygeneruje cislo pole. To je v pohode. Jsem schopen ho dostat v
transakci selectem (zv)(zv)identity. Jenomze na tuto tabulku jsou navazane dalsi
tabulku prave pres toto cislovane pole. Ted muzou nastat dve moznosti. Nekdo
vlozi zaznam do master tabulky ale v poli cislo neni jeste zadne cislo. Ted
se rozhodne, ze vlozi detail zaznam a tak mu musim pomoci selectu dat cislo,
ktery se tam vlozi. No jo, co kdyz se ale rozhodne, ze po vlozeni master
zaznamu se jeste nekam podiva a potom si znovu najde tento zaznam. Pak uz
tam cislo ma a ja mu ho nemuzu strkat. Resil jste nekdo toto ? Jeste dalsi
detaily mi nejsou jasne. Jestli mate nekdo unitu, tak mi prosim pomozte.
Diky moc.
Filip
Thread.create a ihned .free?
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 22.5.2001 11:00:26
ahoj,
muzete mi prosim nekdo objasnit jednu vec? V prikladech k mistrovstvi vD - Thready je priklad, kde se spousti dany thread:
Mocnina:=TMocThread.Create(false); //spust� se vl�kno na v�po�et mocniny
mocnina.Free; //uvoln� se vl�kno na v�po�et mocniny
(v execute se zapise vysledek do glob.promene)
ihned za ��dkou create je free. Podle me pokud mam, nejaky narocnejsi thread, ktery by se nestihl vykonat, tak mi ho to odstreli???
Doufam ze se mylim :)
Diky za objasneni zahady.
S pozdravem Milan Cizek, D5 Ent
_________________________________________________________________________________
Mezinarodni hudebni festival Prazske jaro http://www.festival(tec)cz
Vstupenky: Hellichova 18, Praha 1, tel.: 5731 0414, sit Ticketpro, EchoLine 14051
Cached-updates
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 22.5.2001 11:04:25
Se sloupci "Identity" je vice problemu, nez vyhod. Pozor, pokud pouzivate
triger a v nem vlozite radek do nejake tabulky, ktera obsahuje take sloupec
s vlastnosti indentity, tak navratova hodnota (zv)(zv)identity obsahuje hodnotu z
posledniho vlozeneho sloupce ! a predchozi hodnota je ztracena !
Vlastnost identity je vyhodna pro jednoduche tabulky (napr. ciselniky) u
komplikovanejsich struktur jsou asi vyhodnejsi generatory unikatnich cisel
(u MS SQL se musi naprogramovat).
Jinak tvuj problem je jednodusi (ne rychlejsi) resit pomoci docasnych
tabulek a jejich nasledneho spojeni s trvalou tabulkou pomoci jednoduche
procedury na strane serveru.
Pavel
-----P�vodn� zpr�va-----
Od: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Odesl�no: 22. kv�tna 2001 10:44
Komu: 'delphi-l(zv)clexpert(tec)cz'
P�edm�t: Cached-updates
Ahoj vsem.
Mam takovy problem. Peru se ted s Cache-updaty a potreboval bych, zda nema
nekdo unitu, kde by bylo dobre videt, jak s tim zachazet. Princip mi je
jasny. Nejsou mi vsak jasne detaily jako je:
Pracuji proti SQL Server 7.0 a mam pole identity. Kdyz vlozim novy zaznam,
server mi vygeneruje cislo pole. To je v pohode. Jsem schopen ho dostat v
transakci selectem (zv)(zv)identity. Jenomze na tuto tabulku jsou navazane dalsi
tabulku prave pres toto cislovane pole. Ted muzou nastat dve moznosti. Nekdo
vlozi zaznam do master tabulky ale v poli cislo neni jeste zadne cislo. Ted
se rozhodne, ze vlozi detail zaznam a tak mu musim pomoci selectu dat cislo,
ktery se tam vlozi. No jo, co kdyz se ale rozhodne, ze po vlozeni master
zaznamu se jeste nekam podiva a potom si znovu najde tento zaznam. Pak uz
tam cislo ma a ja mu ho nemuzu strkat. Resil jste nekdo toto ? Jeste dalsi
detaily mi nejsou jasne. Jestli mate nekdo unitu, tak mi prosim pomozte.
Diky moc.
Filip
Kopirovani adresare vcetne podadresaru
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 22.5.2001 11:06:58
Nedavno jsem to delal.
Jedno z moznych reseni:
procedure kopiruj(o,k: String);
var
S : TSearchRec;
Nasel: Integer;
Cil,
Cesta : String;
Attr : Integer;
FromF,
ToF : File;
NumRead,
NumWritten : Integer;
Buf : Array[1..2048] of byte;
begin
Cesta := O;
Cesta := Cesta + '\';
Cil := K;
Cil := Cil + '\';
Attr := $3F;
Nasel := FindFirst(Cesta + '*.*', Attr, S);
while Nasel = 0 do
begin
if (S.Name <> '.') and (S.Name <> '..') then
if ((S.Attr and faDirectory) = faDirectory) then
begin
Kopiruj(Cesta+S.Name,Cil+S.Name);
end
else
begin
AssignFile(FromF, Cesta+S.Name);
Reset(FromF, 1);
AssignFile(ToF, Cil+S.Name);
Rewrite(ToF, 1);
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
Nasel := FindNext(S);
end;
FindClose(S);
end;
Procedure KopirujAdresar(O,K : String);
begin
Kopiruj(O,K);
end;
Datum v DBGridu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 22.5.2001 11:19:49
Ahoj,
problem souvisi zrejme s DBF (asi FOXPRO) toto datum je null hodnota (jedina
kterou system zna a jedina kterou ODBC driver neni schopen resit).
Pavel
-----P�vodn� zpr�va-----
Od: Valenta Patrik [mailto:valentapat(zv)volny(tec)cz]
Odesl�no: 22. kv�tna 2001 6:55
Komu: Delphi konference
P�edm�t: Datum v DBGridu
hello, muj problem je, jak donutit DBGrid aby u prazdn�ch (nevyplnenych)
datumu vypsal prazdnou bunku namisto 31.12.1899.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
SQL: Ulozene procedury
[*] Ing. J�n Kuch�r <kuchar(zv)unicodesys(tec)cz> - 22.5.2001 11:24:06
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj
v SQL jsem spise zacatecnik, proto se na Vas obracim s timto problemem, mejme nejakou tabulku v
databazi ktera se svoji velikosti pohybuje radove v gigabajtech, pomoci D5 a pomoci ulozene procedury na SQL serveru dochazi jednou za cas k presunu vsech zaznamu z teto tabulky do jine
tabulky, vse je v poradku, ale pocas tohoto presunu delphi aplikace nereaguje na zadne dalsi podnety, musim vzdy pockat az se procedura ukonci. Otazka zni nevite nekdo nahodou jakym zpusobem zabranit zatuhnuti delphi ?
-------------------------------------------------------------------------
Ing. J�n Kuch�r
uniCODE SYSTEMS s.r.o.
Rusk� 14, T�eb�� 674 01
mobil : 0605 580525
e-mail : kuchar(zv)unicodesys(tec)cz
Datum v DBGridu
[*] Juraj Skotnick����u�i# �v� #�w�$ - 22.5.2001 11:30:28
Ahojte,
> hello, muj problem je, jak donutit DBGrid aby u prazdn�ch (nevyplnenych)
> datumu vypsal prazdnou bunku namisto 31.12.1899.
mal by si prepisat udalost OnDrawColumnCell objektu TDBGrid:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if(Sender is TDBGrid) then
with TDBGrid(Sender) do
if((Column.Field.FullName = '<<nazov fieldu s datumom>>') and (Column.Field.AsDateTime = 0)) then
Canvas.FillRect(Rect)
else
DefaultDrawDataCell(Rect, Column.Field, State);
end;
Vela stastia, Juraj
BDE - full dbase expressions not suported.
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 22.5.2001 11:36:39
Ne pouze upozornuje, ze index neni jednotlivy sloupec, ale nejaky vyraz v
jazyce Foxpro a BDE neni schopno tento index ani udrzovat ani pouzivat. Aby
bylo mozno tabulku pouzit staci index vymazat.
Pavel
-----P�vodn� zpr�va-----
Od: kinekus [mailto:kinekus(zv)nextra.sk]
Odesl�no: 21. kv�tna 2001 7:45
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: BDE - full dbase expressions not suported.
Zdravim vsetkych v konfe,
prosim o radu. Chcel som napojit komponentu TABLE na databazu s indexom CDX.
BDE vypisuje tuto informaciu:
Full dBase expressions not suported. Znamena to, ze potrebujem este nieco
doinstalovat k BDE ? A kde to zozeniem alebo kupim ?
Dakujem za akukolvek informaciu.
Milan F�bik
Pripojeny uzivetelia v Novell
[*] Ivan <tsx(zv)kgb(tec)cz> - 22.5.2001 11:46:16
Ahoj,
Mam unit NOVELL.PAS, ktery je sice pro dosovsky TurboPascal, ale
po uprave by sel prevest i na Delphi. Taky muze poslouzit i jako jakysi
navod.
Pokud chces, poslu ho na tvuj e-mail.
Ivan
----- Original Message -----
From: <martin.duffek(zv)sk.pwcglobal.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 22, 2001 9:46 AM
Subject: Pripojeny uzivetelia v Novell
> Caute vsetci,
>
> Neviete mi, prosim, niekto poradit ako zistim uzivatelov pripojenych v
> Novell 4.x ? Pripadne ci je nejaky uzivatel pripojeny ?
>
> Diky moc,
>
> Duff
> ----------------------------------------------------------------
> The information transmitted is intended only for the person or entity to
> which it is addressed and may contain confidential and/or privileged
> material. Any review, retransmission, dissemination or other use of, or
> taking of any action in reliance upon, this information by persons or
> entities other than the intended recipient is prohibited. If you
received
> this in error, please contact the sender and delete the material from any
> computer.
>Method pointers
[*] Pavel K�ehula <pavel.krehula(zv)nlm(tec)cz> - 22.5.2001 11:52:19
Dik, svata pravda, chyba byla jako obvykle nekde jinde
Pavel
| Ukazatel na metodu objektu (procedure(...) of object) jsou ve skutecnosti dva ukazatele - prvni ukazuje na objekt, druhy na metodu
| (viz Help Procedural types: Overview). Hodnota .Proc zobrazuje prave ukazatel na objekt, muzes si to zkontrolovat ve Watch Listu
| (zobrazit hodnotu Form1 jako pointer). Volani procedur funguje spravne.
|
| Marek Muller
|
|
| -----Original Message-----
|
| po vykonani toho konstruktoru je v obou prvcich pole .proc stejna hodnota, tudis oba ukazuji na stejnou metodu!
| Nevite nekdo, kde je chyba?
|
| Diky.
|
| --
| S pozdravem
| Pavel Krehula
|
| Ulozene procedury
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 22.5.2001 12:08:32
Lze to resit tim, ze spustite SQL na presun v separatnim threadu.
viz priklady v Delphi
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Otazka zni nevite nekdo nahodou jakym zpusobem zabranit zatuhnuti delphi ?
-------------------------------------------------------------------------
Ing. J�n Kuch�r
Datum v DBGridu
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 22.5.2001 12:16:30
Nemam ani Foxku, Ani ODBC, Data mam ulo�ene v MySQL. To ze to je Null vim
ale neda se to nejak pres nejake eventy Tdatabase pri nacitani nebo nejaka
extra default hodnota v Mysql ?
problem souvisi zrejme s DBF (asi FOXPRO) toto datum je null hodnota (jedina
kterou system zna a jedina kterou ODBC driver neni schopen resit).
Pavel
-----P�vodn� zpr�va-----
hello, muj problem je, jak donutit DBGrid aby u prazdn�ch (nevyplnenych)
datumu vypsal prazdnou bunku namisto 31.12.1899.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
Method pointers
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 22.5.2001 12:20:15
Ukazatel na metodu objektu (procedure(...) of object) jsou ve skutecnosti dva ukazatele - prvni ukazuje na objekt, druhy na metodu
(viz Help Procedural types: Overview). Hodnota .Proc zobrazuje prave ukazatel na objekt, muzes si to zkontrolovat ve Watch Listu
(zobrazit hodnotu Form1 jako pointer). Volani procedur funguje spravne.
Marek Muller
-----Original Message-----
po vykonani toho konstruktoru je v obou prvcich pole .proc stejna hodnota, tudis oba ukazuji na stejnou metodu!
Nevite nekdo, kde je chyba?
Diky.
--
S pozdravem
Pavel Krehula
Kopirovani adresare vcetne podadresaru
[*] Richard Kejval <kejval.delphi(zv)atlas(tec)cz> - 22.5.2001 12:29:54
Ja to delam takhle:
{Kopiruje adresar a vse co je v nem}
Function CopyNoEmptyDir(DirZdr,DirCil:string):integer;
var Rec:TSearchRec;
begin
try
try
Result:=0;
if not DirectoryExists(DirCil) then
MkDir(DirCil);
FindFirst(Concat(DirZdr,'\*.*'),faAnyFile,Rec);
while FindNext(Rec)=0 do begin
if Rec.Attr=faDirectory then begin
if not((Rec.Name='.') or (Rec.Name='..')) then begin
CopyNoEmptyDir(Concat(DirZdr,'\',Rec.Name),Concat(DirCil,'\',Rec.Name));
end;
end else
CopyFileStr(Concat(DirZdr,'\',Rec.Name),Concat(DirCil,'\',Rec.Name));
end;
finally
FindClose(Rec);
end;
except
on E:EInOutError do begin
ShowMessage('Chyba, nemohu zkop�rovat adresar!');
Result:=E.ErrorCode;
end;
end;
end;
----- Original Message -----
From: "FAIT Ji��, ml." <fait(zv)jakl(tec)cz>
To: "Delphi Konference (el. adresa)" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 22, 2001 7:23 AM
Subject: Kopirovani adresare vcetne podadresaru
Potreboval bych nakopnout jak v aplikaci zkopirovat adresar vcetne
podadresaru nekam jinam.
V prubehu kopirovani bych chtel jednotlive kopirovane soubory mit pod
kontrolou, tzn. napriklad kontrolovat atribut faReadOnly a podle toho se
zaridit.
Jiri Fait
Informacni systemy
ICQ: 113357332
Email: fait(zv)jakl(tec)cz , ftsoft(zv)iol(tec)cz
PopupMenu je stale videt
[*] Vit Krska����+?#�$g�^#�3 - 22.5.2001 12:41:09
ahoj,
mam aplikaci, ktera se schovava do tray a kdyz na ikonu v traji kliknu
pravym tlacitkem, tak zobrazim popup menu. to je normalni, ale kdyz si z
menu nic neviberu a kliknu na plochu windows tak se popup menu neschova, ale
zustane tam vyset a ja nevim jak se ho zbavit. nevite naho dou nekdo co s
tim?
diky vitek
Ulozene procedury
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 22.5.2001 12:48:26
Bud muzes spustit SQL v jinem threadu, nebo pokud si na to netroufas,
tak si napsat malou aplikaci, ktera provede prave tento SQL dotaz.
Nejlepsi je consolova aplikace, tam nevadi, ze se neprekresluje.
Slavek
PS: Vypni si html prilohy !!!> Ahoj
> v SQL jsem spise zacatecnik, proto se na Vas obracim s timto problemem,
mejme nejakou tabulku v
> databazi ktera se svoji velikosti pohybuje radove v gigabajtech, pomoci
D5 a pomoci ulozene procedury na SQL serveru dochazi jednou za cas k
presunu vsech zaznamu z teto tabulky do jine
> tabulky, vse je v poradku, ale pocas tohoto presunu delphi aplikace
nereaguje na zadne dalsi podnety, musim vzdy pockat az se procedura ukonci.
Otazka zni nevite nekdo nahodou jakym zpusobem zabranit zatuhnuti delphi ?Komunikacia
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 22.5.2001 13:07:26
Ahoj
Neco by melo byt na strankach microsoftu v on-line dokumentaci k Win API. Je
to ale desne neprehledne. Priklady jsou sice prevazne v C ale daji se pri
trose znalosti prepsat do Delphi.
Jaromir Cermak
-----Original Message-----
From: Jozef Cervenansky [mailto:dodosoft(zv)hotmail.com]
Subject: Komunikacia
Ahojte.
Kto by mi vedel poradit, kde na internete by som si mohol precitat clanky,
ako v delphi pouzivat :
rury, semafory, share memory, spravy.
Chcel by som sa naucit programovat komunikaciu medzi procesmi ....
Za kazdu radu vopred dakujem
MSSQL - problem s komunikaci
[*] Radek Ku�era <raku(zv)foresta(tec)cz> - 22.5.2001 13:11:15
Dobry den,
tvorime aplikace na WINNT 4.0 WorkStation proti MSSQL 6.5. Asi 4 mesice jsme
s SQL serverem instalovanym take na NT4.0 WorkStation bez problemu
komunikovali. Pak se kolegovi take na NT4.0 objevila chybova zprava:
"[DBNETLIB][ConnectionOpen(Connect()).]SQL Server does not exist or access
denied." Na jine dva SQL servery se dostal. Ten den jsem komunikoval jeste v
pohode, ale druhy den se na mych NT4.0 objevila stejna chybova zprava. Ta se
objevi, at spustim svou aplikaci, nebo DBExplorer nebo ISQL_w ci SQL
Enterprise Manager.
Proti zbylym SQL serverum normalne jedu. Jakoby bylo neco omezeno licencne
na pocet dni. Ovsem dalsi dva kolegove s Win98 proti zminovanemu
problemovemu SQL serveru jedou v pohode. Zkusil jsem znovu sjet SP6, ale bez
uspechu.
Predem dekuji za rady
Radek Kucera
Foresta SG, a.s.
tel: 0657 687 147
mobil: 0603 417 628
e-mail: raku(zv)foresta(tec)cz
mierka pri prehravani videa
[*] JIM Design <jim.design(zv)iol(tec)cz> - 22.5.2001 13:13:30
ahoj,
ad 2:
procedure TForm1.Button1Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
Open;
DisplayRect := Display.ClientRect;
Play;
end;
end;
M.Jirman
-----Original Message-----
Behalf Of Ing. Stefunko Julius
V D3 prehravam video pomocou MediaPlayer a zobrazujem do panelu
(myslim ze nie je podstatne).
Ako mozem zistit skutocny rozmer videa?
A ako ho donutit, aby prehraval v mierke (napr. polovicny rozmer)?
Stromova struktura disku
[*] JIM Design <jim.design(zv)iol(tec)cz> - 22.5.2001 13:13:33
ahoj,
muzes se povrtat ve zdrojacich http://www.gexperts.com/GXExplorer/
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Mephisto
Hi,
neznate nekdo komponentu ktera udela scan disku a ulozi stromovou strukturu
disku do databaze ?Pripojeni k internetu
[*] JIM Design <jim.design(zv)iol(tec)cz> - 22.5.2001 13:13:32
ahoj,
http://delphi-jedi.org/Jedi:APILIBRARY
(RAS.ZIP)
M.Jirman
-----Original Message-----
Behalf Of Fink Alois
Potrebuji nekolikrat denne aplikaci pripojit k internetu pomoci vytacene
linky. Jsou nejake komponenty , nebo rada jak na to ?
Diky Fink.
RXMemoryData
[*] David Blahut \(el. adresa 3\) <dave.fm(zv)atlas(tec)cz> - 22.5.2001 13:35:58
Ahoj Delphici,
Mate nekdo nejaky priklad pouziti RX MemoryData. Zajimalo kde se to da
pouzit, proc by se to mohlo pouzit.
Diky David
sinea report
[*] Daniel Fojt�k <xfojtik(zv)centrum(tec)cz> - 22.5.2001 13:54:55
Ahoj, neresili jste uz nekdo nasledujici problem?
mas SQL dotaz typu:
select a, b, c from x
union
select a, b, c from y
Na vysledek nejde pouzit order by. No a kdyz nad daty z takoveho dotazu chci
v Sinee udelat sestavu jez by data seskupila podle a, tak vyspupni sestava
vypada takhle:
skupina: a1
.......
skupina: a2
.......
skupina: a3
.......
skupina: a1
.......
skupina: a2
.......
skupina: a3
.......
Proste se mi to neseskupi protoze to neni sgrupovane v datech. Delam neco
spatne? Jak by jste to resili?
Predem diky za odpoved
Dan
SQL: Ulozene procedury
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 22.5.2001 14:03:26
Ahoj,
ja bych zkusil udelat Thread.
Mirek Drejcek.
*********** REPLY SEPARATOR ***********
On 22.5.2001 at 11:24 Ing. J�n Kuch�r wrote:
Ahoj
v SQL jsem spise zacatecnik, proto se na Vas obracim s timto problemem, mejme nejakou tabulku v
databazi ktera se svoji velikosti pohybuje radove v gigabajtech, pomoci D5 a pomoci ulozene procedury na SQL serveru dochazi jednou za cas k presunu vsech zaznamu z teto tabulky do jine
tabulky, vse je v poradku, ale pocas tohoto presunu delphi aplikace nereaguje na zadne dalsi podnety, musim vzdy pockat az se procedura ukonci. Otazka zni nevite nekdo nahodou jakym zpusobem zabranit zatuhnuti delphi ?
-------------------------------------------------------------------------
Ing. J�n Kuch�r
uniCODE SYSTEMS s.r.o.
Rusk� 14, T�eb�� 674 01
mobil : 0605 580525
e-mail : kuchar(zv)unicodesys(tec)cz
Zmena IP
[*] tomsir1.edu(zv)mail.cez(tec)cz - 22.5.2001 14:14:03
slo by to .. ovsem musel bys menit paket ne na urovni TCP/IP ale az na
urovni ethernetovskeho ramce, pomoci tzv. packet driveru .. kdesi se mi tu
vali zdrojaky packet snifferu + packet senderu .. tzn. musel bys prislusny
paket chytit, upravit a poslat dal ... respektive odesilat pakety na
neexistujici adresu, upravit odesilatele na nekoho jineho a prijemce tam
kam to chces poslat ... takova mikro-proxy ... doufam ze sem to moc
nezamotal ...estli chces taxe ozvi
/jinak na linuxu se jedna o tzv. raw-packet .. tam s tim problem neni/
Radegast
"Hurricane" <hurricane(zv)quick(tec)cz>(zv)clexpert(tec)cz on 21.05.2001 21:51:47
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Re: Zmena IP
Zdravim
IMHO to neni mozne. IP adresa neni nejak promenna, kterou si muzes menit
jak
chces. Ta se ti prideli pri pripojeni do netu. At uz po modemu nebo
bezdratu
nebo jakkoliv jinak. Privideri nabizeji bud dynamicky pridelovanou IP
adresu
(valna vetsina dialupu (u volnyho si muzes zaplatit pevnou)). U vyssich
druhu pripojeni to zavisi na podminkach konkretni smlouvy. Jina moznost je,
ze mas pevnou IP adresuz. Pak se ti po pripojeni prideli vzdy stejna. Ale
ze
by sis ji mohl kdykoliv zmenit podle me nejde.
Hurricane
----- Original Message -----
> nevite nekdo, jak bych mohl zmenit IP adresu
> odesilatele (tj. moji adresu) u protokolu HTTP.
> IP adresa prijemce by byla porad stejna, pouze aby to chodilo od
> nekoho jineho.Net Send
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 22.5.2001 14:24:39
Ahojte,
pracujem na programe, ktory ma podobnu funkciu ako prikaz
NET SEND stanica NAPISANA_SPRAVA,
(verzia s GUI)
ale mam takyto problem:
sprava sa zobrazi len na NT staniciach, pouzivam funkciu
function NetMessageBufferSend; external 'netapi32.dll' name
'NetMessageBufferSend';
pricom mozem stanicu zadavat ako jej computer_name alebo IP adresu
Tak sa mi zda, ze to funguje asi len pod NT, ale ja by som potreboval, aby
sa ta sprava zobrazovala aj na Win9X.
Mame nainstalovane protokoly NetBEUI a TCP/IP.
Nezaoberal sa niekto z vas takymto problemom?
Mozete mi poradit, ako by som to mohol vyriesit, alebo kde by som si mohol
precitat nejake informacie?
Diky moc.
Jozo
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.Prevod funkce do asm
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 22.5.2001 14:42:24
ahoj,
na svem Proxy merim prutok dat ve threadu. Vsechna prenasena data pricitam do 2 promenych (data dovnitr/ven). Chci se zeptat, okolik by se zrichlila cinnost (tento thread je volany treba i 30x/s), kdybych nahradil:
Inc(RxDataSize,Length(ThreadData.Data));
nejakou funkci napsanou v asm. Promena RxDataSize: Int64; ThreadData.Data: string - obsahuje prenasena data. Mohl byste nekdo prepis fce do asm naznacit? (jelikoz je tam Int64, nevim vubec, jak to pracuje).
S pozdravem Milan Cizek, D5End
_________________________________________________________________________________
Chorvatsko, �ecko, It�lie a cel� sv�t - rezervujte si http://na.dovolenou(tec)cz/leto
Thread.create a ihned .free?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2001 14:43:49
From: "Milan #ݿek" <Cizek.Milan(zv)seznam(tec)cz>
> ihned za ��dkou create je free. Podle me pokud mam, nejaky narocnejsi
> thread, ktery by se nestihl vykonat, tak mi ho to odstreli???
Ahoj,
nejlepe se podivat do zdrojaku VCL. V metode TThread.Destroy se ceka na
dokonceni behu threadu.
Petr Vones, amatersky programator
Komunikacia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2001 14:44:47
From: "Jozef Cervenansky" <dodosoft(zv)hotmail.com>
> Kto by mi vedel poradit, kde na internete by som si mohol precitat clanky,
> ako v delphi pouzivat :
>
> rury, semafory, share memory, spravy.
Ahoj,
asi nejlepsi kniha na toto tema je Jeffrey Richter: "Advanced Windows". Ted uz
vyslo ctvrte vydani (pozor finta, kniha se uz jmenuje jinak). Kdysi tu vysel
preklad starsiho vydani pod nazvem "Windows pro pokrocile a experty", obcas
jej lze jeste najit v knihkupectvich.
Petr Vones, amatersky programator
Pripojeny uzivetelia v Novell
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 22.5.2001 14:45:22
Neviete mi, prosim, niekto poradit ako zistim uzivatelov pripojenych v
> > Novell 4.x ? Pripadne ci je nejaky uzivatel pripojeny ?
ahoj,
pokud netrvas na tom, ze to musi byt z tveho programu v Delphi, tak novel ma monitor (na serveru vyvolas: load monitor). Ze stanice pak pres remote console.
S pozdravem Milan Cizek, D5 Ent
_________________________________________________________________________________
Mezinarodni hudebni festival Prazske jaro http://www.festival(tec)cz
Vstupenky: Hellichova 18, Praha 1, tel.: 5731 0414, sit Ticketpro, EchoLine 14051
Tape backup API a Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2001 14:48:39
From: <voltrr1.epr(zv)mail.cez(tec)cz>
> Dekuji vsem za snahu ,ale kdyz napisu prepis do Delphi tak jsem
> predpokladal prepis do object pascalu.
Ahoj,
Win32 API headery najdes treba tady:
http://delphi-jedi.org/Jedi:APITESTFILES
Petr Vones, amatersky programator
inline
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2001 14:51:32
From: "Bejvlov� Martina" <M.Bejvlova(zv)cra(tec)cz>
> M�m takov� probl�m. Nev�te n�kdo, jestli je n�jak� mo�nost p�epsat do D.
> tuto ��st progr�mku ze sta�i�k�ho TP55?
Ahoj,
prepisovat to nema smysl, protoze se patrne jedna o nejake volani jakesi
DOSove sluzby ci driveru. Ve Win32 nic takoveho nastesti neni, kazdy proces ma
svuj samostatny adresovy prostor. Spise napis co to delalo, treba by to slo
udelat nejak jinak.
Petr Vones, amatersky programator
Licence na Interbase a Firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.5.2001 14:51:45
Haj hou!
On 22 May 2001,, Dusan Fojtik wrote:
> Jak je to vlastne s licencemi na pouzivani Interbase a Firebird serveru ?
InterBase je ve dvou zakladnich variantach:
1) Open Edition ktera je volne dostupna jen ve zdrojove forme na
http://sourceforge.net/projects/interbase a to navic jeste v CVS. Na
http://mers.com jsou k mani buildy pro Windows a Linux.
Neobsahuje zadne licencovani a sireni a pouziti je volne (na vlastni
riziko).
2) Certifikovana verze se prodava stejne jako starsi verze IB, tedy
Media Kit s CD a dokumentaci (vsechny platformy najednou). Z
tohoto CD muzete instalovat kam chcete a kolikrat chcete, ale je
treba zakoupit licence pro uzivatele, vzdaleny pristup k serveru atd.
Ceny jsou na webu (napr. http://shop.borland(tec)cz). Media Kit
obsahuje i ODBC (EasySoft), JDBC (InterClient) a IBReplicator,
ktery se ovsem licencuje vzlast.
Dostupne jsou verze pro Win32, Linux a Solaris.
Firebird je zatim jen v jedne variante, ale bude ve dvou podobne (ale
ne zcela totozne) jako IB:
1) Volne dostupne zdroje i binarky pro Linux, Win32, Solaris (x86 i
Sparc), FreeBSD a MacOS X (nekde by se mel valet i AIX a v praci
je HP-UX). Zadne licence, zadna omezeni. Ostatni doplnky jako
ODBC apod. je nutno opatrit vzlast (moznosti je hodne).
2) Az bude FB 1.0 tak bude i distribuce od IBPhoenixu. Bude to
CD s dalsim softem, vcetne softu z dilny IBP. Nevim jak to bude s
tistenou dokumentaci, ale alespon elektronicka by tam byt mela.
Rovnez nebude vyzadovat licence. Cena zatim neni znama, ale
mela by byt "rozumna", a navic cast zisku jde rovnou zpet do
vyvoje a dalsiho rozvoje projektu Firebird. Toto CD by melo byt
dostupne i v Ceske Republice a za koruny (vcetne tech. podpory).
To je tak v kostce asi vse.
Hodne zdaru
Pavel Cisar
Firebird - The most addictive database
http://firebird.sourceforge.net
Defaultni hodnoty v komponente
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2001 14:54:56
From: <brant(zv)dcomm(tec)cz>
> Napriklad takto to vypada v kodu komponenty:
> property FrameGap: byte read FFrameGap write SetFrameGap default 3;
>
> Jenze pri spusteni testovaciho programu je ta property v designtime rovna
> 0.
Ahoj,
to je zcela spravne. Klicove slovo default u published property totiz slouzi
jen k tomu, aby se do DFM neukladali zbytecne vychozi hodnoty nastavene v
konstruktoru dane komponenty. Pri ukladani se porovna hodnota vlastnosti s
hodnotou uvedenou v default a rozhodne se zdali je treba hodnotu ulozit nebo
ne.
Petr Vones, amatersky programator
"Zatuhnuti" CTRL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2001 14:55:38
From: "Zden�k Brej#a" <prog(zv)hjsoft(tec)cz>
> deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
> (nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
> (pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
> uvolni !?
Ahoj,
patrne chybny BIOS.
Petr Vones, amatersky programator
Firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.5.2001 14:57:54
Haj hou!
On 21 May 2001,, Ota Maly wrote:
> tusite nekdo, alespon odhadem, jak je to s nejakym releasem Firebirdu pro
> Windows? Zahledl jsem posledni production verzi tusim 29.12., ale vubec
> nevim, jak moc pouzitelna verze to je.
Pokud ma nekdo zajem "zit na hrane", tak pred nedavnem byla
uvolnena verze FB 0.9.5 pro Win32 a Linux, viz.
http://firebird.sourceforge.net/article.php?sid=15&mode=nested&ord
er=0&thold=-1
Jinak spousta lidi pouziva verzi 0.9.4 v ostrem provozu (je stejne
dobra jako IB 6.0.1).
> Jak je to vlastne s celym projektem?
Verze 1.0 je ve skluzu, ale pracovni tempo je nevidane (kdo je
prihlasen ve firebird-devel nebo ho sleduje na news.atkin.com muze
potvrdit). Verze FB 1.0 bude definitivne do konce leta (je to
predevsim otazka testovani), prvni "betaverze" by mela byt co
nevidet. Zaroven uz nejaky cas probihaji paralelni prace na FB 2.0
(v prvni rade preklopeni z C do C++, coz je zakladni predpoklad pro
uspesny dalsi rozvoj a brana k vyreseni problemu se SMP).
Hodne zdaru
Pavel Cisar
Firebird - The most addictive database
http://firebird.sourceforge.net
EXCEL->MSSQL
[*] JIM Design <jim.design(zv)iol(tec)cz> - 22.5.2001 15:06:22
ahoj,
rad bych vyrobil aplikaci ktera automaticky soupne data z *.XLS(samozrejme
se strikne definovanymi sloupci podle datove struktury) pres inet na mssql7
principem podobnym jako M$DTS Wizard v SQL konzoli, tj. pouze zmenene
hodnoty a prirustky.
Vedel by nekdo o nejakych komponentach, kusech kodu, infotipech, a taky ceho
se vyvarovat?
(Abych nevynalezal vynalezene)
Diky za vsechny odpovedi
M.Jirman
Komponenty na carovy kod
[*] Ivan Virag <ivirag(zv)hopi(tec)cz> - 22.5.2001 15:13:59
Dobry den.
Nevite nekdo o dobre komponente pro praci s carovymi kody (generovani,
tisk)? Hledal jsem v konferenci, ale nic zasadniho jsem nenasel. Dekuji.
Ivan Virag
Komponenty na carovy kod
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 22.5.2001 15:29:17
Na co komponenty? Existuji TTF fonty, kterymi si vygenerujes jaky
chces carovy kod. A jestlize umis zobrazit libovolne TTF pismo a take jej
vytisknoutm, tak pak hrave zvladnes i carove kody. ;-)
> Dobry den.
>
> Nevite nekdo o dobre komponente pro praci s carovymi kody (generovani,
> tisk)? Hledal jsem v konferenci, ale nic zasadniho jsem nenasel.
> Dekuji.
>
> Ivan Virag
>
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Prevod funkce do asm
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2001 15:47:20
From: "Milan #ݿek" <Cizek.Milan(zv)seznam(tec)cz>
> Inc(RxDataSize,Length(ThreadData.Data));
> nejakou funkci napsanou v asm. Promena RxDataSize: Int64; ThreadData.Data:
Ahoj,
podivej se nejdrive na prelozeny kod, mam dojem ze lepe to asi napsat nejde.
Petr Vones, amatersky programator
Komponenty na carovy kod
[*] campulka <campulka(zv)czas(tec)cz> - 22.5.2001 15:53:25
Pokud chces tisknout carove kody v Quick Reportu tak jsou nake komponenty
primo na strankach QuSoftu www.qusoft.com
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>
> Nevite nekdo o dobre komponente pro praci s carovymi kody (generovani,
> tisk)? Hledal jsem v konferenci, ale nic zasadniho jsem
> nenasel. Dekuji.
>
> Ivan Virag
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.255 / Virov� b�ze: 128 - datum vyd�n�: 17.5.2001
RXMemoryData
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 22.5.2001 14:40:29 met-1
> Mate nekdo nejaky priklad pouziti RX MemoryData. Zajimalo kde se to da
> pouzit, proc by se to mohlo pouzit.
Ahoj!
Na takto polozenou otazku neni zrovna jednoduche odpovedet. :-)
Pouziti teto komponenty souvisi s tim, k cemu je program urcen, jak
pracuje atd. Ja ji pouzivam k naproste spokojenosti napr. kdyz chci
si udelat "vlastni databazi" nejakych obecnych dat. Mas-li zajem,
ozvi se mi na muj privatni mail a poslu ti nejake zdrojaky toho, co s
tim delam.
Jirka.Prevod funkce do asm
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.5.2001 16:41:43
>ahoj,
>na svem Proxy merim prutok dat ve threadu.
>Vsechna prenasena data pricitam do 2 promenych (data dovnitr/ven).
>Chci se zeptat, okolik by se zrichlila cinnost (tento thread je volany
treba i 30x/s), kdybych nahradil:
>
>Inc(RxDataSize,Length(ThreadData.Data));
>
>nejakou funkci napsanou v asm.
>Promena RxDataSize: Int64; ThreadData.Data: string - obsahuje
>prenasena data. Mohl byste nekdo prepis fce do asm naznacit? (jelikoz je
tam Int64, nevim vubec, jak to pracuje).
tyhle veci kompilator vetsinou zvlada dobre i kdyz jsem videl nejake
srovnani operaci s Int64 v Delphi provadenych nejprve nativne a pak
prevedenim (resp. pretypovanim) Int64 na Comp. Comp je ulozen v RAM stejne
jako Int64, ale operace s nim vykonava FPU. Nasobeni a deleni bylo s Comp
mnohem rychlejsi (pokud se nepletu)
PS daleko nejuzsim hrdlem budou uplne jine veci. Napriklad samotne
threadovani je pomerne narocne na CPU cykly (prepinani threadu neco stoji).
Aplikace, ktere slouzi jako sitove servery se nemaji psat jako threadovane
(pokud se budou realizovat desitky spojeni najednou) ale maji byt psany v
pouze jednom pracovnim threadu (jeden per procesor), ktery vyrizuje vsechny
klienty (pouziva se asynchronni prace se sockety - nonblocking sockets a
udalosti)
D> Toman
sinea report
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 22.5.2001 16:48:02
From: "Daniel Fojt�k" <xfojtik(zv)centrum(tec)cz>> mas SQL dotaz typu:
> select a, b, c from x
> union
> select a, b, c from y
>
> Na vysledek nejde pouzit order by. No a kdyz nad daty z takoveho dotazu
chci
> v Sinee udelat sestavu jez by data seskupila podle a,
> .......
> Proste se mi to neseskupi protoze to neni sgrupovane v datech. Delam neco
> spatne? Jak by jste to resili?
Generator sestav Sinea neprovadi zadne manipulace s daty.
Pokud je pozadavek vytvaret skupiny podle nejake
skupinove polozky, musi aplikace zajistit, aby data
do generatoru sestav prichazela jiz serazena tak,
aby zaznamy jedne skupiny prichazely po sobe,
nikoliv napreskacku.
Proc nelze pouzit ORDER BY ?
Vaclav Krmela
Ulozene procedury
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 22.5.2001 17:02:30
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Doporucuji si na to bud udelat jeden Thread
a nebo nepresouvat vsechny zaznamy najednou,
ale presouvat je po napr. 10.000 zaznamech (pomoci parametru predavat meze pro IDcka) a volat ProcessMessages.
(Druhy zpusob nekdy znamena kupodivu obrovske zrychleni - z mych zkusenosti MS SQL 7.0 nekdy nezvlada presun 500.000 radku najednou ani zdanlive tak rychle jako 50 presunu po 10.000 zaznamu.)
S pozdravem, Lada
v SQL jsem spise zacatecnik, proto se na Vas obracim s timto problemem, mejme nejakou tabulku v
databazi ktera se svoji velikosti pohybuje radove v gigabajtech, pomoci D5 a pomoci ulozene procedury na SQL serveru dochazi jednou za cas k presunu vsech zaznamu z teto tabulky do jine
tabulky, vse je v poradku, ale pocas tohoto presunu delphi aplikace nereaguje na zadne dalsi podnety, musim vzdy pockat az se procedura ukonci. Otazka zni nevite nekdo nahodou jakym zpusobem zabranit zatuhnuti delphi ?
Ing. J�n Kuch�r
Cached-updates
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.5.2001 17:22:54
On 22 May 2001, at 10:43, Hazuka Filip wrote:
> Mam takovy problem. Peru se ted s Cache-updaty a potreboval bych, zda
> nema nekdo unitu, kde by bylo dobre videt, jak s tim zachazet. Princip
> mi je jasny. Nejsou mi vsak jasne detaily jako je: Pracuji proti SQL
> Server 7.0 a mam pole identity. Kdyz vlozim novy zaznam, server mi
> vygeneruje cislo pole. To je v pohode. Jsem schopen ho dostat v
> transakci selectem (zv)(zv)identity. Jenomze na tuto tabulku jsou navazane
> dalsi tabulku prave pres toto cislovane pole. Ted muzou nastat dve
> moznosti. Nekdo vlozi zaznam do master tabulky ale v poli cislo neni
> jeste zadne cislo. Ted se rozhodne, ze vlozi detail zaznam a tak mu
> musim pomoci selectu dat cislo, ktery se tam vlozi. No jo, co kdyz se
> ale rozhodne, ze po vlozeni master zaznamu se jeste nekam podiva a
> potom si znovu najde tento zaznam. Pak uz tam cislo ma a ja mu ho
> nemuzu strkat. Resil jste nekdo toto ? Jeste dalsi detaily mi nejsou
> jasne. Jestli mate nekdo unitu, tak mi prosim pomozte.
Zkus zahodit autoinkrement a pouzij uniqueidentifier. Ja ho
pouzivam, a nemam zadne problemy. Muzes ho generovat jak
serverem, tak si ho muzes vytvorit i sam.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Komponenty na carovy kod
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 22.5.2001 17:35:22
najdes ji na http://www.peprsoft(tec)cz/default.asp?stpm=delphi/source.htm
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz >> Nevite nekdo o dobre komponente pro praci s carovymi kody Datum v DBGridu
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 22.5.2001 18:07:05
Podivej se na property OnGetText a OnSetText u fieldu,
tam si muzes delat se zobrazenim co chces,
treba si zobrazovat v jinek kalendari.:))) Slavek
> hello, muj problem je, jak donutit DBGrid aby u prazdnych (nevyplnenych)
> datumu vypsal prazdnou bunku namisto 31.12.1899.
> e-mail : valentapat(zv)volny(tec)cz
> ICQ: 54152896
>
> WM_KEYDOWN + parametry
[*] tomsir1.edu(zv)mail.cez(tec)cz - 22.5.2001 18:29:37
ahoj .. kousek helpu :
LRESULT CALLBACK KeyboardProc(
int code, // hook code
WPARAM wParam, // virtual-key code
LPARAM lParam // keystroke-message information
);
kde lParam
Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag. This parameter can be a
combination of the following values:
Value Description
0-15 Specifies the repeat count. The value is the number of times the keystroke is repeated as a result of the user's holding down the key.
16-23 Specifies the scan code. The value depends on the original equipment manufacturer (OEM).
24 Specifies whether the key is an extended key, such as a function key or a key on the numeric keypad. The value is 1 if the key is an extended
key; otherwise, it is 0.
25-28 Reserved.
29 Specifies the context code. The value is 1 if the ALT key is down; otherwise, it is 0.
30 Specifies the previous key state. The value is 1 if the key is down before the message is sent; it is 0 if the key is up.
31 Specifies the transition state. The value is 0 if the key is being pressed and 1 if it is being released.
kde hodnoty 0 - 31 je zrejme poradi bitu slova lParam ... a ted otazka :
jak otestuju hodnoty jednotlivych bitu ?? Vim ze to je asi trivialni, ale
mam asi dneska utlum :O( , dik za nakopnuti ...
Radegast
WM_KEYDOWN + parametry
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 22.5.2001 19:06:38
> Value Description
> 0-15 Specifies the repeat count. The value is the number of
> times the keystroke is repeated as a result of the user's
> holding down the key.
> 16-23 Specifies the scan code. The value depends on the
> original equipment manufacturer (OEM).
> 24 Specifies whether the key is an extended key, such as a
> function key or a key on the numeric keypad. The value is 1
> if the key is an extended
> key; otherwise, it is 0.
> 25-28 Reserved.
> 29 Specifies the context code. The value is 1 if the ALT
> key is down; otherwise, it is 0.
> 30 Specifies the previous key state. The value is 1 if the
> key is down before the message is sent; it is 0 if the key is up.
> 31 Specifies the transition state. The value is 0 if the
> key is being pressed and 1 if it is being released.
>
> kde hodnoty 0 - 31 je zrejme poradi bitu slova lParam ... a
> ted otazka :
> jak otestuju hodnoty jednotlivych bitu ?? Vim ze to je asi
> trivialni, ale
> mam asi dneska utlum :O( , dik za nakopnuti ...
Ahoj,
nejsem si jisty, jestli jsem Te spravne pochopil, ale pro jistotu:
RepeatCount := lParam and $FFFF;
ScanCode := (lParam shr 16) and $FF;
Extended := (lParam shr 24) and $1;
atd.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz Net Send
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 22.5.2001 19:39:35
Rekl bych, ze vtip je v tom, ze na W9x musi byt
spusteny WinPopup.exe.
Ondrej Krajicek
Jozef Cervenansky wrote:
>
> Ahojte,
>
> pracujem na programe, ktory ma podobnu funkciu ako prikaz
>
> NET SEND stanica NAPISANA_SPRAVA,
> (verzia s GUI)
>
> ale mam takyto problem:
> sprava sa zobrazi len na NT staniciach, pouzivam funkciu
>
> function NetMessageBufferSend; external 'netapi32.dll' name
> 'NetMessageBufferSend';
>
> pricom mozem stanicu zadavat ako jej computer_name alebo IP adresu
>
> Tak sa mi zda, ze to funguje asi len pod NT, ale ja by som potreboval, aby
> sa ta sprava zobrazovala aj na Win9X.
> Mame nainstalovane protokoly NetBEUI a TCP/IP.
> Nezaoberal sa niekto z vas takymto problemom?
> Mozete mi poradit, ako by som to mohol vyriesit, alebo kde by som si mohol
> precitat nejake informacie?
>
> Diky moc.
> Jozo
>
> _________________________________________________________________________
> Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
--
---------------------------------------------------------------------
Ondrej Krajicek OK-) xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
Omnia ad maiorem Informaticae gloriam
---------------------------------------------------------------------
Bitmap
[*] Zden�k Sv�en - 22.5.2001 19:48:25
Ahoj vsichni,
chtel jsem si trochu pohrat s grafikou, ale ...
Mam dve komp. Image. Za behu si potrebuju vytvorit bitmapu, do te zakreslit
obraz z Image1 a nasledovne vykreslit bitmapu do Image2.
Nejak mi to nechce fungovat, i kdyz je to nejspis uplne trivialni, ne?
Diky za radu.
Zdenek
Obnoven� prvk�
[*] Martin Kr� <MKrc(zv)seznam(tec)cz> - 22.5.2001 20:00:03
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Muzu nejak obnovit vlastnosti vsech prvku podle toho, jak byly nastavene
pri vyvoji na formu? Dekuji
Martin Krc
Net Send
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 22.5.2001 20:18:37
imho je to tim, ze win9x prikaz net send vubec nemaji, tak asi nemaji
ani prostredky na jeho prijem... (aspon ja kdyz dam spustit NET SEND IP
xxx, tak mi to napise, ze prikaz SEND neni podporovany - Win98)
Jozef Cervenansky wrote:
>
> Ahojte,
>
> pracujem na programe, ktory ma podobnu funkciu ako prikaz
>
> NET SEND stanica NAPISANA_SPRAVA,
> (verzia s GUI)
>
> pricom mozem stanicu zadavat ako jej computer_name alebo IP adresu
>
> Tak sa mi zda, ze to funguje asi len pod NT, ale ja by som potreboval, aby
> sa ta sprava zobrazovala aj na Win9X.
> Mame nainstalovane protokoly NetBEUI a TCP/IP.
> Nezaoberal sa niekto z vas takymto problemom?
> Mozete mi poradit, ako by som to mohol vyriesit, alebo kde by som si mohol
> precitat nejake informacie?
--
Martin Pe#ava
+--------------------------------------------------------------+
| E-Mail: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
| ! ! Hleda se nekdo, kdo by se ujal http://miss.jimx.net/ ! ! |
+--------------------------------------------------------------+Je nebo neni IB6 free
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 22.5.2001 20:27:10
>
> Teda s tou licenci jsi mne dostal, ziju v domeni, ze IB je free.
>
> Jak to tedy vlastne je ?
>
Ahoj,
free je Interbase 6 Open Edition, na ktere je minimalni nebo zadny vyvoj,
zadna technicka podpora atd. Borlandi IB6 Certified je placena stejne (nebo
podobne) jako predchozi verze a JE k tomu technicka podpora od Borlandu.
V zasade ti nic nebrani pouzivat Open Edition, ale musis se smirit se
spoustou problemu (spatna dokumentaci, skoro zadny vyvoj..). Certifikovana
verze IB6 by mela mit podporu a vyvoj od Borlandu, takze by se mohla opet
postavit na nohy.
(Na vysvetleni duvodu tohoto stepeni si netroufam, sam to chapu jen velmi
mlhave)
Do hry tez vstupuje Firebird (nastupce IB6 Open Edition), coz je IMHO velmi
nadejny projekt, bohuzel jeste nema ostry release, coz me osobne brani
komercnimu nasazeni.
Lepe a presneji se k tomu vsak asi vyjadri Pavel Cisar, alespon doufam :-)
Ota Maly
P.S.: Takto to vidim ja, to jeste neznamena, ze to tak skutecne je..:-)
"Zatuhnuti" CTRL
[*] Luk� Lou�ansk����#��#�o��#�� - 22.5.2001 21:02:32
Nazdar,
no tak ten BIOS bych vubec netypoval. Spis jde o zatuhnuti driveru
klavesnice. Taky se mi to parkratstalo a to v kombinaci Win98 a V86
aplikace. Stacilo parkrat provest reset klavesnice...
Cau Lukas L.
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 22, 2001 2:55 PM
Subject: Re: "Zatuhnuti" CTRL
> From: "Zden�k Brej#a" <prog(zv)hjsoft(tec)cz>
> > deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
> > (nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
> > (pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
> > uvolni !?
>
> Ahoj,
>
> patrne chybny BIOS.
>
> Petr Vones, amatersky programator
>
>Je to korektni dedicnost a pretypovani ?
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 22.5.2001 21:27:52
Ahoj
Mam promennou typu TControl. V tehle promenne
je samozrejme nejaky potomek tridy TControl, ale
pokazde jiny, a ja nevim ktery. Potrebuji v teto
promenne nastavit property DragCursor, ale ta
je protected, a ja se k ni zvnejsku nedostanu.
Nekde jsem videl takovy postup:
TMyControl = class(TControl)
public
property DragCursor;
end;
...
var x:TMyControl
begin
x := TMyControl(MyObj)
x.DragCursor := cDrag;
end;
v MyObj je treba TPanel.
Je to korektni ? Me to funguje, ale nespadne
to treba po nekolika hodinach fungovani ?
Radim
TMainMenu
[*] Tomas Bozik <tomas_bozik(zv)pobox.sk> - 22.5.2001 22:12:05
skusal si poslat message WM_LBUTTONDOWN alebo WM_RBUTTONDOWN handle
subnemu, ktore chces aby sa ti otvorilo???
s pozdravom
tomas bozik
> Zdravim,
>
> Mel bych dve otazky k Tmainmenu:
>
> 1) Jak docilim flat stylu u vyskakujicich menu? Tohle by me zajimalo i
> pro popup menu. Napsal jsem si totiz vlastni vykreslovani a ten 3d
> border tam docela rusi - vypada to divne.
> 2) Jak programove otevru polozku z menu, tak, jako kdyby na ni kliknul
> uzivatel (tj. Rozbaleni polozky.)
>
>
> Diky, Ales
>
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Licence na Interbase a Firebird
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 22.5.2001 22:29:05
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
......
......
> Firebird je zatim jen v jedne variante, ale bude ve dvou podobne (ale
> ne zcela totozne) jako IB:
>
> 1) Volne dostupne zdroje i binarky pro Linux, Win32, Solaris (x86 i
> Sparc), FreeBSD a MacOS X (nekde by se mel valet i AIX a v praci
> je HP-UX). Zadne licence, zadna omezeni. Ostatni doplnky jako
> ODBC apod. je nutno opatrit vzlast (moznosti je hodne).
>
> 2) Az bude FB 1.0 tak bude i distribuce od IBPhoenixu. Bude to
> CD s dalsim softem, vcetne softu z dilny IBP. Nevim jak to bude s
> tistenou dokumentaci, ale alespon elektronicka by tam byt mela.
> Rovnez nebude vyzadovat licence. Cena zatim neni znama, ale
> mela by byt "rozumna", a navic cast zisku jde rovnou zpet do
> vyvoje a dalsiho rozvoje projektu Firebird. Toto CD by melo byt
> dostupne i v Ceske Republice a za koruny (vcetne tech. podpory).
>
Ahoj.
Diky za osvetleni problemu. Jeste se zeptam, jak je to se vztahem komponenty
IBX versus Firebird.
Jinymi slovy, na zaklade zde vedene debaty se chystam na prechod z IB na
Firebird a rad bych vedel, zda je tedy vhodne zustavat u IBX komponent.
Diky
Ludek
Je to korektni dedicnost a pretypovani ?
[*] Roman Kunovsk� <delphi-konference(zv)bcpraha(tec)com> - 22.5.2001 22:50:42
Korektni ti mozna je. Ale mozna je lepsi vyuzit RTTI:
tento kod je pro D5 s ukazkou jak treba nastavit treba barvu (pouzil jsem
vlastni kus kodu).
var
Component: TComponent;
...
PropInfo := GetPropInfo(Component, 'Color');
if Assigned(PropInfo) then begin
SetOrdProp(Component, 'Color', Color);
end;
... analogicky to pouzijes pro DragCursor
Roman
> Ahoj
>
> Mam promennou typu TControl. V tehle promenne
> je samozrejme nejaky potomek tridy TControl, ale
> pokazde jiny, a ja nevim ktery. Potrebuji v teto
> promenne nastavit property DragCursor, ale ta
> je protected, a ja se k ni zvnejsku nedostanu.
>
SQL
[*] Jaroslav Bayer <jaroslav.bayer(zv)quick(tec)cz> - 22.5.2001 23:20:32
Nazdar.
Je jasne, ze jste programove na vyssi urovni nez ja, a proto je velice
pravdepodobne, ze odpoved neznam - a take neznam, ale myslim si, ze jste
mozna dosahl vrcholu rychlosti behu programu. Vytvoril jsem jednoduchou
databazovou aplikaci s pouzitim SQL jazyka a MASTER-DETAIL propojeni o
velikosti nekolika MB, obycejne nacteni databaze na DURONU 700 MHz trva 2
sekundy!!!!!
Aplikace vytvorene v Delphi nedosahuji nejvyssich moznych rychlosti - pokud
jste na programove na vysi, muzete si aplikaci disassemblerovat a zbytecny
kod odmazat - pripadne predelat - rozhodne to aplikaci urychli.
Bohuzel, asi jsem Vam nerekl nic noveho.
Jaroslav Bayer
----- Original Message -----
From: Petr <DelphiForum(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 22, 2001 6:47 AM
Subject: Re: SQL
> Hi lidi,
> chtel bych se s vama poradit. Pouzivam Interbase 6.01 a potreboval bych
> drobnost. Delam program pro dokumentaci a potrebuju zrychlit (jestli to
> vubec jde) nacitani z DataSetu.
> V SelectSQL davam treba
> select * from ZastresDoc("COM", "21.5.2001")
>
> kde ZastresDoc je ulozena selectova procedura. OK procedura projede v
> pohode, ALE pro vytahnuti vsech zaznamu, at delam co delam, trva asi 4
> vteriny, nez se "prepne" do sekvencniho stavu (vzdy kdyz dojdu na konec
> datasetu, nebo kdyz mu dam rovnou nacist vse pomoci FetchAll). Vemte si ze
> musim cekat 4 vteriny na to nez se "vzpamatuje" a potom nejakou tu
vterinu,
> nez vsechno naskladam do stromove struktury (cca 1-2 vteriny).
>
> Nevite nekdo jak odstranit ty 4 vteriny ?
>
> Podminky :
> - Potrebuju DataSet, protoze musim prechazet zaznamy nekolikrat a na
> preskacku (coz mi Query neumozni).
> - Musim znat pocet zaznamu.
>
> Petr Jurik, Spravce site, programator
> COMET System s.r.o.
> 1.Maje 1220
> 756 61 Roznov pod Radhostem
> tel. 0651/653990
> fax. 0651/653993
> www.cometsystem(tec)cz
>
>
> ----- P�vodn� zpr�va -----
> Od: Jaroslav Bayer <jaroslav.bayer(zv)quick(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> Odesl�no: st�eda, 16. kv�tna 2001 22:46
> P�edm�t: Re: SQL
>
>
> > Dekuji za radu, ale nevim, jak ji odstranit, protoze jsem jiz drive
> zkousel
> > query vypnout, zobrazit jinou tabulku a podobne veci - jednou otevrena
> > tabulka je nevymazatelna do restartu programu - i v pripade, ze se jiz
> > zobrazuje jina tabulka.
> > ----- Original Message -----
> > From: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> > To: <delphi-l(zv)clexpert(tec)cz>
> > Sent: Tuesday, May 15, 2001 10:30 AM
> > Subject: Re: SQL
> >
> >
> > > On 14 May 2001, at 23:36, Jaroslav Bayer wrote:
> > >
> > > > Muj problem spociva v tom, ze po nacteni
> > > > tabulky napr. do DBGrid pomoci prikazu "SELECT * FROM nazev tabulky"
> > > > nejsem schopen tuto tabulku odstranit prikazem "DROP TABLE nazev
> > > > tabulky". Chyba neni v napojeni QUERY nebo jinych komponent - ani v
> > > > readonly tabulce.
> > >
> > > Tvoje chyba je v tom, ze pri DROP nesmi byt tabulka otevrena.
> > > Standardni komponenty maji tu nestastnou vlastnost, ze behem
> > > zobrazovani udrzuji permanentne otevreny dataset i v databazi, coz
> > > brani smazani tabulky.
> > >
> > >
> > > S pozdravem
> > >
> > > Zbysek Hlinka
> > >
> > > http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> > > Phones: 02/795 29 56; GSM: 0603 551 282
> > > Krystofova 1016, 149 00 Praha 4
> > > CZ
> > >
> >
> >
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> COMET System Network Administrator.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.255 / Virov� b�ze: 128 - datum vyd�n�: 17.05.01
>
>Bitmap
[*] Jaroslav Bayer <jaroslav.bayer(zv)quick(tec)cz> - 22.5.2001 23:23:16
Melo by to fungovat pomoci CREATE u promene pozadovaneho typu - vlastne
noveho objektu.
Pokud znate objektove programovani, nemel by to byt problem.
----- Original Message -----
From: Zden�k Sv��en <delphiforum(zv)atlas(tec)cz>
To: Delphi konference <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 22, 2001 7:48 PM
Subject: Bitmap
> Ahoj vsichni,
> chtel jsem si trochu pohrat s grafikou, ale ...
> Mam dve komp. Image. Za behu si potrebuju vytvorit bitmapu, do te
zakreslit
> obraz z Image1 a nasledovne vykreslit bitmapu do Image2.
> Nejak mi to nechce fungovat, i kdyz je to nejspis uplne trivialni, ne?
> Diky za radu.
> Zdenek
>
>Je nebo neni IB6 free
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 22.5.2001 23:42:47
> > Teda s tou licenci jsi mne dostal, ziju v domeni, ze IB je free.
> free je Interbase 6 Open Edition, na ktere je minimalni nebo zadny vyvoj,
> zadna technicka podpora atd. Borlandi IB6 Certified je placena stejne
(nebo
Ja to z hlediska obchodniho (naseho) chapu tak, ze muzes zakaznikovi nechat
vybrat:
Chcete IB OpenEdition? Dobry, stabilni server, ktery je zadarmo, ale nic Vam
negarantuje.
Nebo si muzete koupit certifikovanou verzi, ktera stoji $X a je k ni plna
technicka podpora
(ceskeho?) Borlandu. Nase aplikace Vam bude pracovat s obema verzema, zalezi
na Vas.
No a zakaznik si podle svych moznosti, schopnosti a zkusenosti vybere -
levnou nebo garantovanou.
Samozrejme jde, aby zdejsi dodavatel garantoval funcnost te OpenEdition,
ma-li na to knowhow (nebo je odvazny).
Kazdopadne Borland oslovi obe skupiny zakazniku - a pokud jsem dobre
pochopil Pavla C., udela totez i IBPhoenix u verze 1.0.
To je podobne jako se znackovymi servery - kdyz lehne znackovy server
(Garantovana IB), vsichni si rikaji, jaka je to smula. Kdyz lehne Noname
server (OpenEdition), vyhodi Te - zpusobil jsi firme skodu setrenim na
spatnem miste. Pricemz bych rekl, ze pravdepodobnost lehnuti pri vhodnem
poskladani je zcela stejna.
Leos
A jak uz kolega pred-pisatel uvedl - jedna se o muj osobni nazor.Interbase - Referential constraints
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 23.5.2001 02:22:35
Nevite nahodou, k cemu jsou v intrabazi u tabulek dobre "Referential
constraints"? V dokumentaci jsem o tom nic podstatneho nenasel, jenom, ze to
omezuje funkce tabulky. To jsem ale vedel, protoze mam databazi, ktera ma
spoustu takovychto provazanych omezeni a ja v ni kuli tomu nemuzu pouzivat
update ani delete, protoze to nadava na provazanost s temito Referential
constraints. Nevite jak se toho zbait, nebo co nastavit, abych mohl s
databazi trochu pracovat? Update rule ani delete rule mi nejde zmenit, stale
je tam "restrict".
Petr Voborn�k
vobornik(zv)ssakhk(tec)cz
ICQ: #23132120
www.ssakhk(tec)cz/home/vobornik/MSSQL - problem s komunikaci
[*] V�t Kr�ka����+?#�$g�^#�3 - 23.5.2001 07:01:46
komunikovali. Pak se kolegovi take na NT4.0 objevila chybova zprava:
"[DBNETLIB][ConnectionOpen(Connect()).]SQL Server does not exist or access
denied." Na jine dva SQL servery se dostal. Ten den jsem komunikoval jeste v
pohode, ale druhy den se na mych NT4.0 objevila stejna chybova zprava. Ta se
objevi, at spustim svou aplikaci, nebo DBExplorer nebo ISQL_w ci SQL
Enterprise Manager.
toto se mi deje, kdyz nejsem na serveru prihlasen. to znamena, ze tam nemas
ucet, nebo tam mas jiny heslo.sinea report
[*] V�t Kr�ka����+?#�$g�^#�3 - 23.5.2001 07:06:47
Ahoj, neresili jste uz nekdo nasledujici problem?
mas SQL dotaz typu:
select a, b, c from x
union
select a, b, c from y
Na vysledek nejde pouzit order by. No a kdyz nad daty z takoveho dotazu chci
jestli pouzivas nejaky SQL server, tak z toho dotazu udelej view a to pak
zavolej s tim order by. tento problem jsem resil na MSSQL 7.0
Cisla dokladu
[*] David Blahut \(el. adresa 3\) <dave.fm(zv)atlas(tec)cz> - 23.5.2001 07:28:55
Ahoj Delphici,
potreboval bych ulozit cisla dokladu tvorene zhruba "XX000000", v programu
dale udelat moznost zvolit nasledujici, nebo prvni cislo dokladu, a dale
moznost automatickeho nulovani pri prechodu noveho roku. Nevim jak tyto veci
zajistit. Navic Interbase databazove tabulky sdili 2PC (zatim je to jen
sdileni - to nechci ted resit) takze to nemuze byt v registrech.
Mate nekdo nejaky napad ?
Diky David
Bitmap
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.5.2001 07:43:19
Jestli to skutecne potrebujes pres pomocnou promennou typu TBitmap:
var
BMP : TBitmap;
begin
BMP := TBitmap.Create();
try
BMP := Image1.Picture.Bitmap;
Image2.Picture.Bitmap := BMP;
finally
BMP.free;
end;
end;
pokud ti staci proste "prekopirovani" bitmapy z jednoho image do druheho tak to
udelej takto:
Image2.Picture.Bitmap := Image1.Picture.Bitmap;
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Mam dve komp. Image. Za behu si potrebuju vytvorit bitmapu, do te zakreslit
> obraz z Image1 a nasledovne vykreslit bitmapu do Image2.
> Nejak mi to nechce fungovat, i kdyz je to nejspis uplne trivialni, ne?
> Diky za radu.
> Zdenek
Menu
[*] vlado <vlado.p(zv)pobox.sk> - 23.5.2001 08:08:57
Nazdar vsetci,
potreboval by som zistit pri nabehu mysou na MainMenu, aky je aktivny
nazov alebo index, este pred tym ako nan kliknem. Po kliknuti lavim
tlacitkom na menu to uz nieje problem. Skusal som pouzit funkciu
MenuItemFromPoint, ale bezuspesne.
Dik za radu.
Vlado
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Je nebo neni IB6 free
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 23.5.2001 08:08:22
>
> Ja to z hlediska obchodniho (naseho) chapu tak, ze muzes
> zakaznikovi nechat
> vybrat:
>
>
Ja osobne vidim rozdil spise behem vyvoje, zakaznikovi (alespon nasemu :-)
je uplne jedno na cem to bezi, hlavne ze to funguje.
Dale je tu take otazka dalsiho vyvoje InterBase, ja osobne se domnivam, ze
Borland se toho hodla ujmout jako predchozich verzi IB a treba i dale
vyvijet (pouze domnenky).
IB6 Open edition casem asi umre a misto ni prijde Firebird, ja osobne v to
aspon doufam..
Ota Maly
sinea report
[*] Daniel Fojt�k <xfojtik(zv)centrum(tec)cz> - 23.5.2001 08:14:44
Z me zkusenosti (pouzivam INTERBASE 6.01) v okamziku kdy SQL dotaz obsahuje
UNION pak pouziti ORDER BY mi vypise vyjimku "Invalid ORDER BY clause". Mate
nekdo jinou zkusenost? Lze v INTERBASE pouzit v dotazu zaroven UNION a ORDER
BY?
Dan
>Generator sestav Sinea neprovadi zadne manipulace s daty.
>Pokud je pozadavek vytvaret skupiny podle nejake
>skupinove polozky, musi aplikace zajistit, aby data
>do generatoru sestav prichazela jiz serazena tak,
>aby zaznamy jedne skupiny prichazely po sobe,
>nikoliv napreskacku.
>
>Proc nelze pouzit ORDER BY ?
>
>Vaclav Krmela
sinea report
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 23.5.2001 08:21:44
Jo, pravdepodobne tam cpes nazvy sloupcu, a pokud je tam nejaky konflikt tak
interbejska rve. Dej tam misto toho poradove cislo sloupce
Neco jako
SELECT a, b, c from x
UNION
SELECT d, e, f from x
ORDER BY 1
Sroub
> Z me zkusenosti (pouzivam INTERBASE 6.01) v okamziku kdy SQL dotaz
obsahuje
> UNION pak pouziti ORDER BY mi vypise vyjimku "Invalid ORDER BY clause".
Mate
> nekdo jinou zkusenost? Lze v INTERBASE pouzit v dotazu zaroven UNION a
ORDER
> BY?
>
> Dan
>
> >Generator sestav Sinea neprovadi zadne manipulace s daty.
> >Pokud je pozadavek vytvaret skupiny podle nejake
> >skupinove polozky, musi aplikace zajistit, aby data
> >do generatoru sestav prichazela jiz serazena tak,
> >aby zaznamy jedne skupiny prichazely po sobe,
> >nikoliv napreskacku.
> >
> >Proc nelze pouzit ORDER BY ?
> >
> >Vaclav Krmela
sinea report
[*] Martin Ocenas <matko(zv)proces.sk> - 23.5.2001 08:22:57
> From: Daniel Fojtik [mailto:xfojtik(zv)centrum(tec)cz]
>
> Z me zkusenosti (pouzivam INTERBASE 6.01) v okamziku kdy SQL
> dotaz obsahuje
> UNION pak pouziti ORDER BY mi vypise vyjimku "Invalid ORDER BY clause".
> Mate
> nekdo jinou zkusenost? Lze v INTERBASE pouzit v dotazu zaroven UNION a
> ORDER
> BY?
>
> Dan
ORDER BY je mozne pouzit, ale treba polia nazyvat ich poradovymi cislami a
nie aliasmi
Example: ORDER BY 2, 4, 3 (ORDER BY P.ID, P.SUMA -> toto nepojde)RXMemoryData
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.5.2001 08:30:38
> Mate nekdo nejaky priklad pouziti RX MemoryData. Zajimalo kde se to da
> pouzit, proc by se to mohlo pouzit.
RxMemoryData je neco jako TTable, ale data nejsou na disku v
souboru, nybrz v pameti. Muzes do ni data normalne vkladat
(metody insert, append, edit, delete apod.) jako u TTable, s daty se
pracuje rovnez stejne (napr. FieldByName apod.).
Jedina jina vec je, jak data do tabulky dostat. Krome vyse
uvedenych "rucnich" postupu existuje metoda LoadFromDataset,
ktera RxMemoryData naplni daty z jine Table nebo Query.
Moznosti vyuziti jsou ruzne. Napr. otevrit nejakou normalni
Query, jeji data presypat (LoadFromDataset) do RxMemoryData,
puvodni Query zavrit a dale jiz pracovat s RxMemoryData. Neni tak
potreba (zbytecne) udrzovat spojeni s IB, mit otevrene kurzory,
transakce apod. S RxMemoryData lze pouzivat normalne i db-
aware komponenty (pokud to ma smysl).
David
Komponenty na carovy kod
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 23.5.2001 08:49:59
Zkus nekde hledat BARCODE komponenty, jde s nimi pracovat, mam
zkusenost.
Radim
> Nevite nekdo o dobre komponente pro praci s carovymi kody (generovani,
> tisk)? Hledal jsem v konferenci, ale nic zasadniho jsem
> nenasel. Dekuji.OpenDialog
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 23.5.2001 09:07:12
Pro zadani jmena souboru (vcetne cesty) jsem pouzil OpenDialog.
Je to pro mne dostacujici.
Nyni chci mit moznost zadat (vyhledat) i jmeno adresare.
OpenDialog ani SaveDialog mi toto neumoznuji. Je nejaka moznost,
jak zadat nazev adresare nebo souboru jednim dialogem,
nebo si mam vytvorit vlastni dialog s
FileListBox,DirectoryListBox,DriveComboBox
z palety
Win 3.1
Diky za kazdou radu. Pavel
( D5,SP1,W98 )
Cisla dokladu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.5.2001 09:18:49
Vytvor si v databazi tabulku napr. CisRady a do te nadefinuj tyto parametry. Pak
uz neni problem generovat ciselnou radu v siti.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> potreboval bych ulozit cisla dokladu tvorene zhruba "XX000000", v programu
> dale udelat moznost zvolit nasledujici, nebo prvni cislo dokladu, a dale
> moznost automatickeho nulovani pri prechodu noveho roku. Nevim jak tyto veci
> zajistit. Navic Interbase databazove tabulky sdili 2PC (zatim je to jen
> Diky David
Interbase - Referential constraints
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 23.5.2001 09:19:38
Haj hou!
On 23 May 2001,, Petr Voborn�k wrote:
> Nevite nahodou, k cemu jsou v intrabazi u tabulek dobre
> "Referential constraints"? V dokumentaci jsem o tom nic podstatneho
> nenasel, jenom, ze to omezuje funkce tabulky. To jsem ale vedel,
> protoze mam databazi, ktera ma spoustu takovychto provazanych
> omezeni a ja v ni kuli tomu nemuzu pouzivat update ani delete,
> protoze to nadava na provazanost s temito Referential constraints.
Ucelem integritnich omezeni vcetne referencnich integritnich
omezeni je udrzet data konzistentni. Pokud kvuli nim nemuzete
provest nejaky UPDATE nebo DELETE, tak pouze proto, ze dana
operace (s danymi parametry) by vedla k nekonzistentnim udajum
(napr. odkaz na polozku v ciselniku, ktera uz v tabulce ciselniku
neni). Tato omezeni jsou dana datovym modelem dane databaze.
Pokud se vam nezmenil datovy model a omezeni vyhovuji tomuto
modelu, tak si neni na co stezovat, protoze UCEL omezeni je, aby
omezovala uzivatele v provadeni chybnych operaci :-)
> Nevite jak se toho zbait, nebo co nastavit, abych mohl s databazi
> trochu pracovat? Update rule ani delete rule mi nejde zmenit, stale
> je tam "restrict".
Pokud ovsem potrebujete prizpusobit databazi novemu datovemu
modelu, lze to pres ALTER TABLE DROP CONSTRAINT <jmeno
omezeni> a pak pripadne vytvorit nove omezeni (rovnez ALTER
TABLE). Jmeno omezeni lze vycist z tabulek RDB$RELATIONS a
RDB$RELATION_CONSTRAINTS. Pri slozitejsich vazbach
pravidel, je obcas vhodnejsi vytvorit novou databazi s novou
strukturou a data presypat.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Net Send
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 23.5.2001 09:37:36
Ahoj,
pro prijem na W9x musi byt spusteny (!) program
WINPOPUP.EXE, aby certik vyskocil z krabicky :-)
### Jozef Cervenansky napsal dne 22 May 01, v 14:24 :
Od: "Jozef Cervenansky" <dodosoft(zv)hotmail.com>
Komu: delphi-l(zv)clexpert(tec)cz
V�c: Net Send
Datum odesl�n�: Tue, 22 May 2001 14:24:39 +0200
Odpov�� kam: delphi-l(zv)clexpert(tec)cz
> Ahojte,
>
> pracujem na programe, ktory ma podobnu funkciu ako prikaz
>
> NET SEND stanica NAPISANA_SPRAVA,
> (verzia s GUI)
>
> ale mam takyto problem:
> sprava sa zobrazi len na NT staniciach, pouzivam funkciu
>
> function NetMessageBufferSend; external 'netapi32.dll' name
> 'NetMessageBufferSend';
>
> pricom mozem stanicu zadavat ako jej computer_name alebo IP adresu
>
> Tak sa mi zda, ze to funguje asi len pod NT, ale ja by som potreboval, aby
> sa ta sprava zobrazovala aj na Win9X. Mame nainstalovane protokoly NetBEUI
> a TCP/IP. Nezaoberal sa niekto z vas takymto problemom? Mozete mi poradit,
> ako by som to mohol vyriesit, alebo kde by som si mohol precitat nejake
> informacie?
>
> Diky moc.
> Jozo
>
> _________________________________________________________________________
> Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
>
>
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Interbase -tabulka uzivatelskych uctu
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 23.5.2001 09:45:10
Bohuzel tuto komponentu nemam. Kde se da sebrat?
(Mam D5Prof + IB6)
>>> konference(zv)sales(tec)cz 19.5.2001 1:56:05 >>>
>docela by se mi hodilo pridavat uzivatele primo do Interbase 6.0 z
programu.
Ahoj.
TIBSecurityService na zalozce Interbase Admin (IB6, IBX, D5prof).
Ludek
Univerzalni heslo pro Paradox
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 23.5.2001 08:53:23
Existuje k Paradoxu nejake univerzalni heslo ? Neco jako bylo politically
correct v IB.
Marian Jonas
Je to korektni dedicnost a pretypovani ?
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 23.5.2001 09:54:48
Ano, korektne to je uplne; a nepadne to ani po rokoch :)
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
> Mam promennou typu TControl. V tehle promenne
> je samozrejme nejaky potomek tridy TControl, ale
> pokazde jiny, a ja nevim ktery. Potrebuji v teto
> promenne nastavit property DragCursor, ale ta
> je protected, a ja se k ni zvnejsku nedostanu.
>
> Nekde jsem videl takovy postup:
>
> TMyControl = class(TControl)
> public
> property DragCursor;
> end;
> ...
> var x:TMyControl
> begin
> x := TMyControl(MyObj)
> x.DragCursor := cDrag;
> end;
>
> v MyObj je treba TPanel.
>
> Je to korektni ? Me to funguje, ale nespadne
> to treba po nekolika hodinach fungovani ?
>Je to korektni dedicnost a pretypovani ?
[*] Miloslav Sk�cel <delphicz(zv)stereo(tec)cz> - 23.5.2001 10:04:32
> TMyControl = class(TControl)
> > public
> > property DragCursor;
> > end;
> > ...
> > var x:TMyControl
> > begin
> > x := TMyControl(MyObj)
> > x.DragCursor := cDrag;
> > end;
> >
> > v MyObj je treba TPanel.
> >
> > Je to korektni ? Me to funguje, ale nespadne
> > to treba po nekolika hodinach fungovani ?
Podle vyjadreni vedouciho vyvoje Delphi v casopisu Delphi Informant
je to bezny postup pouzivany ve VCL. Nemely by hrozit ani problemy
s novymi verzemi Delphi.
S pozdravem
Miloslav Sk�cel
skacel(zv)stereo(tec)cz
TMainMenu
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 23.5.2001 10:15:26
Ahoj,
to jsem samozrejme zkousel, bohuzel to nefunguje. Musi na to byt najaka
jina zprava :(
Ales
-----Original Message-----
From: Tomas Bozik [mailto:tomas_bozik(zv)pobox.sk]
skusal si poslat message WM_LBUTTONDOWN alebo WM_RBUTTONDOWN handle
subnemu, ktore chces aby sa ti otvorilo???
>
> 2) Jak programove otevru polozku z menu, tak, jako kdyby na ni kliknul
> uzivatel (tj. Rozbaleni polozky.)Cisla dokladu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2001 10:18:47
Udelej si tabulku, ve ktere budes mit sloupce rok a posledni cislo
dokladu.
Cislo prideluj az v okamziku zapisu dokladu (optimalne ulozenou
procedurou, ktera ti v ramci transakce posune cislo a vrati ti jej).
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.5.2001 David Blahut (el. adresa 3):
> potreboval bych ulozit cisla dokladu tvorene zhruba "XX000000", v programu
> dale udelat moznost zvolit nasledujici, nebo prvni cislo dokladu, a dale
> moznost automatickeho nulovani pri prechodu noveho roku. Nevim jak tyto veci
> zajistit. Navic Interbase databazove tabulky sdili 2PC (zatim je to jen
> sdileni - to nechci ted resit) takze to nemuze byt v registrech.
> Mate nekdo nejaky napad ?
OpenDialog
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2001 10:22:45
Pokud vim, tak OpenDialog i saveDialog jsou standardni windows
dialogy, kde si muzu bez problemu zadat cestu.
Zkus se podivat v objekt inspektoru do Option dialogu, jestli jsi tam
neco nezakazal.
Pokud ti jde o zadani vychoziho adresare, slouzi k tomu
OpenDialog.InitialDir
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.5.2001 Pavel Gazda:
> Pro zadani jmena souboru (vcetne cesty) jsem pouzil OpenDialog.
> Je to pro mne dostacujici.
> Nyni chci mit moznost zadat (vyhledat) i jmeno adresare.
> OpenDialog ani SaveDialog mi toto neumoznuji. Je nejaka moznost,
> jak zadat nazev adresare nebo souboru jednim dialogem,
> nebo si mam vytvorit vlastni dialog s
Prosba zaciatocnika
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 23.5.2001 10:36:00
Ahojte,
pomaly vnikam do kuzla delphi,no niektore veci su mi este nejasne a preto by
som vas chcel poprosit o vysvetlenie :
1. ako ziskam pointer na staticke (dynamicke) pole?
potom by som chcel pristupovat k tomuto polu cez tento pointer.
2. Co znamena takyto zapis :
type
TProc = procedure (a : pointer) of object;
A na co sa to pouziva?
Dakujem za kazdu odpoved.
S pozdravom ostava
jozo
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.DB<--->XLS
[*] <bejcek(zv)centrum(tec)cz> - 23.5.2001 10:44:16
Ahoj kluci potreboval bych prevadet klasickou databazi do XLS a
zpet, ma to ale hacek jde mi o to aby si uzivatel mohl sam vybrat
tabulku i sloupce ktere chce prevest,neresil jste nekdo neco
podobneho, at se stim nemusim delat,asi bych to nakonec
vytvoril,ale pres samou praci na to nemam moc casu, neni tu
nejaky dobrak ktery by mi poskytl zdrojaky?Chci to totiz
integrovat do sveho projektu,dekuji predem za kazdou ukazku.
Take bych potreboval poradit jak udelat abych mohl toto
mam string a chci ho interpretovat jako komponentu, tj. nazorne
'MujString'.Enabled:=true;
Jak to resite?
Aldik Pavel
amater D5Ent(ovsem snazivej);
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Problem s rusenim controlu
[*] brant(zv)dcomm(tec)cz - 23.5.2001 11:31:18
Ahoj, mam tento problem: Generuji dynamicky TPanel a v nem nekolik
ovladacich prvku, napriklad
constructor TEnhPanel.Create(AOwner: TComponent);
begin
inherited;
Top:=5; ...
...
RemoveBtn:=TButton.Create(self);
with RemoveBtn do
begin
Parent:=self;
....
Caption:='Odstranit';
OnClick:= RemoveBtnClick;
end;
... atd.
Tlacitko RemoveBtn ma slouzit k tomu, aby se pripadny omylem vygenerovany
panel odstranil. Na RemoveBtnClick tedy volam metodu Free, jenze tim se
zrusi i toto tlacitko, vznikne (nejspis) bordel na zasobniku a hodi to
vyjimku bud Abstract Error nebo podle nalady Acces Violation. Nevite nekdo,
co s tim?
Diky predem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Interbase II
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 23.5.2001 11:33:26
Ahoj
tak jsem presel nedavno z IB 6.0 na IB 6.01 (Linux - SuperServer) ale
vsechny operace se tak cca 5x zpomalily. Zkousel jsem Backup/Restore ale
nepomohlo to >:( Nevite nekdo cim se to da spravit ? Je firebird lepsi ?
dik
Milos Sula
TMainMenu
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 23.5.2001 11:38:20
Ahoj,
> to jsem samozrejme zkousel, bohuzel to nefunguje. Musi na to byt najaka
> jina zprava :(
obavam se, za na to zadna zprava ani neni... kdyz se podivas na programy,
ktere podobnym zpusobem meni chovani menu (treba Word), nebo i komponenty
pro dosazeni podobneho vysledku v Delphi (viz. treba AnimatedMenus.com),
vsichni to resi nasledovne:
-zadne Windosovske menu
-vlastni menu, vytvorene jako popup + stayOnTop + noBorder dialog
-zobrazeni toho tveho menu pres ShowWindow s parametrem SW_NOACTIVATE
-vykresleni vsech controlu na menu vlastnimi silami
Jinak to asi nepujde :-(
Kdysi jsem delal podobne harakiri s nabidkami Windows, slo o to, aby se
misto separatoru zobrazovala takova sipecka a kdyz nad ni uzivatel podrzi
kurzor vterinu, ukryji se vsechny prikazy v menu pod tou sipeckou az k
dalsimu separatoru (sipecce). Vsude se to chovalo jinak, na W95 to blikalo,
na W98/W98SE bez problemu, na WinME take ok, na NT4.0 ani tuk, na NT5.0 se
zasekla aplikace :-( opravdu nedoporucuji hrabat se woknum v logice menu..
S pozdravem
Petr E#ner
petr.esner(zv)atlas(tec)cz
ICQ# 105826792
DB<--->XLS
[*] Zden�k Sv�en - 23.5.2001 11:46:29
> Take bych potreboval poradit jak udelat abych mohl toto
> mam string a chci ho interpretovat jako komponentu, tj. nazorne
> 'MujString'.Enabled:=true;
> Jak to resite?
Pouzij funkci FindComponent,
pokud napriklad chces enablovat Edit1, tak to udelas nasledovne:
Var NazevKomponenty:String;
begin
NazevKomponenty:='Edit1';
TEdit(FindComponent(NazevKomponenty)).Enabled:=True;
end;
Mimochodem nevite nekdo, jak analogicky timto zpusobem pristupovat k
promennym, tedy napr. mam:
Var Pocet:Integer;
Prom:String;
begin
Prom:='Pocet';
a co dal ?
Potrebuju ziskat hodnotu promene Pocet, jejiz jmeno mam ulozeno jako string
v promene Prom.
Diky
Zdenek
Bitmap
[*] Zden�k Sv�en - 23.5.2001 11:55:19
Zkusim to upresnit:
Var
BitMap : TBitMap;
begin
BitMap := TBitMap.create;
BitMap.PixelFormat:=pf24bit;
try
BitMap.Canvas.Draw(0,0,Image1.Picture.Graphic);
Image2.Picture.Graphic.Assign(BitMap);
Image2.Canvas.Refresh;
end;
Cilem tedy je. Prenest obrazek z Image1 (umisteno na Formu) do vytvorene
bitmapy a z ni do Image2 (taky na formu).
Fakt mi to nejak nejde. Dokonce mi nekdy i obraz z Image1 zmizi. Jednoduse
se topim v tech ASSIGNnech (a poradne netusim co delaj).
Omlouvam se, jestli vas jednoduchost tohoto "problemu" urazi, ale ne pokazde
se zadari (a nekomu se treba nezadari nikdy, ze :-)> Melo by to fungovat pomoci CREATE u promene pozadovaneho typu - vlastne
> noveho objektu.
> Pokud znate objektove programovani, nemel by to byt problem.
> > Ahoj vsichni,
> > chtel jsem si trochu pohrat s grafikou, ale ...
> > Mam dve komp. Image. Za behu si potrebuju vytvorit bitmapu, do te
> zakreslit
> > obraz z Image1 a nasledovne vykreslit bitmapu do Image2.
> > Nejak mi to nechce fungovat, i kdyz je to nejspis uplne trivialni, ne?
> > Diky za radu.
> > Zdenek
> >
> >
>Farebn� ozna�enie riadku v TRichEdit.
[*] UHL�K M�rio <uhlik(zv)asset.sk> - 23.5.2001 12:06:35
Nevie mi niekto z v�s poradi#, ako je mo�n� v TRitchEdit farebne rozl�#i#
riadok?
Nemysl�m t�m ozna�enie textu pomocou SelStart a SelLength.
Jednoducho, ako v editore na niektor�ch riadkoch zmeni# background.
D�k
RXMemoryData - Query
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 23.5.2001 12:10:45
Hi
Ako je to s porovnanim rychlosti s pracou s Query a RxMemoryTable? Oplati sa
mi niceco prerabat z Q. na RXMT?
jozo
UpperCase
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 23.5.2001 12:14:21
Ahoj,
UpperCase mi zkonvertuje pouce nektere ceske znaky a nektere ne. Nesetkal se
s tim nekdo. Co s tim.
Diky za kazdou radu
R
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.255 / Virova baze: 128 - datum vydani: 17.05.2001
MSSQL2000 a Collation
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 23.5.2001 12:16:39
Zdravim,
chtel jsem se zeptat zda-li lze zemenit Collation pro databazi v SQL2000.
Mam SQL_General1 a potrebuji to zmenit v ramci cele DB na Czech s
prislusnymi CI AS atd ....
Dik
Michal Jiskra
MSSQL2000 a Collation
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 23.5.2001 12:17:52
U MS SQL 7 to jde jen pri instalaci
Sroub
> Zdravim,
> chtel jsem se zeptat zda-li lze zemenit Collation pro databazi v SQL2000.
> Mam SQL_General1 a potrebuji to zmenit v ramci cele DB na Czech s
> prislusnymi CI AS atd ....
>
> Dik
>
> Michal Jiskra
Zapis z Threadu do RichEdit
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 23.5.2001 12:32:04
ahoj,
mam PageControl, asi na 5te zalozce mam RichEdit. Na prvni zalozce mam tlacitko, ktere mimo jine pusti i thread. Z metody Synchronize volam proceduru z jednotky MainLog, ktera zapisuje predavane parametry primo do RichEditu.
Pokud po startu spustim tlacitkem, a pak prepnu na RichEdit (5.zalozka) - neni tam videt, Po zavreni programu to hodi chybu Win32:neplatn� popisova� okna.
Pokud ale hned po startu kliknu na 5.zalozku, vratim se hned na prvni-spustim, tak to funguje az do konce. Uz me skoro nic nenapada :(
Diky Milan Cizek, D5Ent
procedure TMujThread.Execute;
begin
EnterCriticalSection(MySection);
if ThreadData.Header='From Local' then Inc(RxDataSize,Length(ThreadData.Data));
if ThreadData.Header='From Remote' then Inc(TxDataSize,Length(ThreadData.Data));
Synchronize;
LeaveCriticalSection(MySection);
end;
procedure TMujThread.Synchronize;
begin
if ThreadData.Header='From Local' then MainLog.Add(ThreadData.Data,clLime);
if ThreadData.Header='From Remote' then /MainLog.Add(ThreadData.Data,clLime);
if (ThreadData.Header='Connection Closed') or
(ThreadData.Header='Connection Opened') then MainLog.Add('',clWhite);
MainForm.L_RxDataSize.Caption:=SizeToString(RxDataSize);
MainForm.L_TxDataSize.Caption:=SizeToString(TxDataSize);
end;
procedure Add(const ToLog: string; TextColor: TColor);
var OrgPos: integer;
begin
with MainForm.RE_LogWindow do
begin
OrgPos:=SelStart;
Lines.BeginUpdate;
try
SelStart:=GetTextLen;
SelAttributes.Color:=TextColor;
if (Lines.Count>0) and (Lines[Lines.Count-1]<>'') then Lines.Add('');
Lines.Add(DateTimeToStr(Now)+ ' '+Header);
if not MainForm.DebugString1.Checked then Lines.Add(RemoveLowChar(ToLog))
else Lines.Add(DebugStr((zv)ToLog[1],length(ToLog)));
SelStart:=OrgPos;
Perform(EM_SCROLLCARET,0,0); // I think this is not needed in Delphi 5
finally
Lines.EndUpdate;
end;
if MainForm.Refresh1.Checked then
begin
SelStart:=GetTextLen;
Perform(EM_SCROLLCARET,0,0); // I think this is not needed in Delphi 5
end;
end;
end;
S pozdravem Milan Cizek, D5Ent
_________________________________________________________________________________
Mezinarodni hudebni festival Prazske jaro http://www.festival(tec)cz
Vstupenky: Hellichova 18, Praha 1, tel.: 5731 0414, sit Ticketpro, EchoLine 14051
sinea report
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 23.5.2001 12:40:33
ano, mam jine zkusenosti, prave ted zkousim toto:
select
RC, PR
from
osoby
union all
select
RC, PR
from
osoby
order by
2
a krasne to setridi podle prijmeni,
mam ta kazdyho cloveka 2x
bez trideni jsou obe tabulky za sebou,
s tridenim jsou za sebou stejna prijmeni.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/> Z me zkusenosti (pouzivam INTERBASE 6.01) v okamziku kdy SQL
> dotaz obsahuje UNION pak pouziti ORDER BY mi vypise vyjimku
> "Invalid ORDER BY clause". Mate nekdo jinou zkusenost?
> Lze v INTERBASE pouzit v dotazu zaroven UNION a ORDER
> BY?Tisk v Quickreportu
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 23.5.2001 12:56:04
Ahoj,
nevi prosim Vas nekdo jak v qreportu - pouzivam delphi 3 client server -
vytisknout v sestave master detail po sekci subdetail s daty z vedlejsi
tabulky jeste nejaka pole z toho sameho rekordu hlavni tabulky???
Priklad:
(1. vyrobek)
Vseobecne udaje vyrobku (hlavni dataset - v casti detail reportu)
rozpiska soucasti (vedlejsi dataset - v casti subdetail)
souhrnne udaje daneho vyrobku (opet hlavni dataset - v jake casti?).
(dalsi vyrobek)
.
.
Hledal jsem v archivu a nic. Treba je to tak primitivni, ze to nestoji za
zminku, ale stejne se nekdo zminte.
Diky - Dalik Faltynek, Orgrez, a.s.
dalibor.faltynek(zv)orgrez(tec)cz
problemy s tiskem
[*] odehnk1.edu(zv)mail.cez(tec)cz - 23.5.2001 13:07:26
Ahoj,
nema nekdo zkusenosti s tiskem z Delphi 5 aplikaci pod WIN2000.
Respektive, aplikace kterou jsme napsali pod W95 funguje a tiskne dobre,
vcetne preview.
Pokud ji spustime pod W2000 prewiev nefuguje korektne, spatne se zobrazuje
cestina,
vystup z tiskarny je totalne zmrseny.
Podotykam, ze muze byt problem i s tiskarnou (pod W95 pouzivam HP DJ950)
pod W2K pak Lexmark 2381.
Podotykam, ze nevim kde hledat problem ve W2K nebo v ovladaci ??
Mate nejake zkusenosti?
Diky za kazdou pomoc a radu Karel Odehnal
UpperCase
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.2001 13:10:11
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> UpperCase mi zkonvertuje pouce nektere ceske znaky a nektere ne. Nesetkal
Ahoj,
pouzij AnsiUpperCase.
Petr Vones, amatersky programator
OpenDialog
[*] Lauko #tefan <laukosw(zv)naex.sk> - 23.5.2001 13:14:26
From: Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz>
> OpenDialog ani SaveDialog mi toto neumoznuji. Je nejaka moznost,
> jak zadat nazev adresare nebo souboru jednim dialogem,
Ahoj,
prikladik z helpu "SelectDirectory" bohozial je anglicky...
uses FileCtrl;
const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate,
sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;
Lauko.Interbase -tabulka uzivatelskych uctu
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 23.5.2001 13:17:03
----- Original Message -----
From: "Richard Valny" <Richard.Valny(zv)oku-st(tec)cz>> Bohuzel tuto komponentu nemam. Kde se da
> sebrat?
> (Mam D5Prof + IB6)
Ahoj.
TIBSecurityService je na zalozce "Interbase Admin" t.j. trochu vice vpravo
od zalozky "Interbase" :)
Ovsem az od nejake vyssi verze komponent IBX (zakladni je soucasti D5prof).
Takze upgraduj IBX a zalozka se ti tam objevi.
Ludek
DB<--->XLS
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.5.2001 13:27:57
for i:=0 to ControlCount -1 do
if Controls[i] is TClassKomponenty And
TClassCmponenty(Controls[i]).Name = 'MujString'
then TClassComponenty(Controls[i]).Enabled := True;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.5.2001 bejcek(zv)centrum(tec)cz:
> Take bych potreboval poradit jak udelat abych mohl toto
> mam string a chci ho interpretovat jako komponentu, tj. nazorne
> 'MujString'.Enabled:=true;Datum v DBGridu
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 23.5.2001 13:53:16
> Podivej se na property OnGetText a OnSetText u fieldu,
> tam si muzes delat se zobrazenim co chces,
> treba si zobrazovat v jinek kalendari.:)))
> Slavek
diky to si budu pamatovat. Ale ted se mi to asi nebude hodit, protoze fieldy
nepouzivam, vyuzivam totiz dokola jedem query na vice databazi a tabulek. A
menit to dynamicky mi pripada zatezujici a zdlouhave. Jestli ne tak me
oprav.
Vyborne bylo reseni pres drawcell
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
Zobrazeni Unicode znaku
[*] Filip Sixta <fsixta(zv)cbox(tec)cz> - 23.5.2001 14:07:42
Zdravim,
rad bych se zeptal, jak zpusobem lze na Canvas dostat Unicode retezce, popr.
jak se vubec daji zobrazit znaky Unicode.
Predem dekuji.
SQL
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 23.5.2001 14:10:15
2 sekundy ? To je mozne, pokud je to jednoduchy select. Ten muj (v te
procedure) vypada takhle :
for select u.ID_DOK, v.TYP, v.RADA, v.PODSESTAVA,
u.NADR_PODSEST, v.ID_VER, v.VERZE,
v.SOUBOR, v.SOUBOR_POPIS, v.AUTOR,
v.DATUM_VYTVORENI, v.DATUM_SCHVALENI,
v.DATUM_ZARAZENI, v.DATUM_VYRAZENI,
v.DUVOD_ZMENY, v.POPIS_ZMENY,
v.AUTOR_ZMENY, v.DATUM_ZMENY,
v.AKCE_ZMENY
from DOKUMENTY u left join VERZE v
on (u.ID_DOK = v.ID_DOK and
u.TYP = v.TYP and
u.RADA = :rada1 and
v.RADA = :rada1 and
STAV > 2)
where
v.DATUM_ZARAZENI <=
(
select max(v1.DATUM_ZARAZENI)
from VERZE v1 join DOKUMENTY u1
on (u1.ID_DOK = v1.ID_DOK and
u1.RADA = :rada1 and
v1.RADA = :rada1 and
u1.TYP = v1.TYP and
cast(v1.DATUM_ZARAZENI as date) <= :DT and
(v1.DATUM_VYRAZENI is NULL or
cast(v1.DATUM_VYRAZENI as date) > :DT)
)
)
into :id_dok, :typ, :rada, :podsestava, :nadr_podsest, :id_ver, :verze,
:soubor, :popis,
:autor, :datum_vytvoreni, :datum_schvaleni, :datum_zarazeni,
:datum_vyrazeni,
:duvod_zmeny, :popis_zmeny, :autor_zmeny, :datum_zmeny, :akce_zmeny
do begin
SUSPEND;
end
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
> Nazdar.
> Je jasne, ze jste programove na vyssi urovni nez ja, a proto je velice
> pravdepodobne, ze odpoved neznam - a take neznam, ale myslim si, ze jste
> mozna dosahl vrcholu rychlosti behu programu. Vytvoril jsem jednoduchou
> databazovou aplikaci s pouzitim SQL jazyka a MASTER-DETAIL propojeni o
> velikosti nekolika MB, obycejne nacteni databaze na DURONU 700 MHz trva 2
> sekundy!!!!!
> Aplikace vytvorene v Delphi nedosahuji nejvyssich moznych rychlosti -
pokud
> jste na programove na vysi, muzete si aplikaci disassemblerovat a zbytecny
> kod odmazat - pripadne predelat - rozhodne to aplikaci urychli.
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.255 / Virov� b�ze: 128 - datum vyd�n�: 17.05.01
Informace z lParam
[*] Jan Novak <megamax(zv)seznam(tec)cz> - 23.5.2001 14:21:41
Ahoj,
mam jednoduchy dotaz:
Jak dostat informaci z parametru LParam ve zprave, kdyz vim, ze mnou
pozadovana informace je treba na 30. bitu?
diky
Jan Novak, megamax(zv)seznam(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.4.2001
Interbase -tabulka uzivatelskych uctu
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 23.5.2001 14:22:16
Ahoj,
nainstaluj si novejsi Interbase Express (aktualni je tusim 4.52), urcite ho
pujde najit pres www.ibphoenix.com.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Richard Valny
> Sent: Wednesday, May 23, 2001 9:45 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Interbase -tabulka uzivatelskych uctu
>
>
> Bohuzel tuto komponentu nemam. Kde se da sebrat?
> (Mam D5Prof + IB6)
>
> >>> konference(zv)sales(tec)cz 19.5.2001 1:56:05 >>>
> >docela by se mi hodilo pridavat uzivatele primo do Interbase 6.0 z
> programu.
>
> Ahoj.
>
> TIBSecurityService na zalozce Interbase Admin (IB6, IBX, D5prof).
>
> Ludek
>
>
>
Informace z lParam
[*] tomsir1.edu(zv)mail.cez(tec)cz - 23.5.2001 14:38:21
ptal jsem se na neco podobneho, konkretne na vyhodnoceni lparam pri
WM_KEYDOWN a odpoved byla tato :
Ahoj,
nejsem si jisty, jestli jsem Te spravne pochopil, ale pro jistotu:
RepeatCount := lParam and $FFFF;
ScanCode := (lParam shr 16) and $FF;
Extended := (lParam shr 24) and $1;
atd.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
"Jan Novak" <megamax(zv)seznam(tec)cz>(zv)fwd(tec)cz on 23.05.2001 14:21:41
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: owner-delphi-l(zv)fwd(tec)cz
Komu: "DELPHI CLUB" <delphi-l(zv)fwd(tec)cz>
Kopie:
P�edm�t: Informace z lParam
Ahoj,
mam jednoduchy dotaz:
Jak dostat informaci z parametru LParam ve zprave, kdyz vim, ze mnou
pozadovana informace je treba na 30. bitu?
CVS ???
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 23.5.2001 14:53:12
Poznate niekdo nejaky CVS kde je Server i Klient pod Windows? a Free?
Pavol Kakacka
kasix(zv)atlas(tec)cz
MS Otlook kalendar
[*] Barnab�s Nagy <bnagy(zv)ciglersw.sk> - 23.5.2001 15:23:13
Nazdar Delphisti.
Potreboval by som z aplik�cie D5 prida# polo�ku do kalend�ra MS-Outlooku.
Chcel by som vyu�i# komponenty v z�lo�ke Servers. Vie mi v tom niekto
pom�ct, Uv�tal by som pr�klady v zdrojovom k�de.
�akujem
Barny
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.252 / V�rusov� datab�za: 125 - d�tum vydania: 9. 5. 2001
ToolBar a MainMenu
[*] Zden�k Sv�en - 23.5.2001 15:24:55
Ahoj,
stava se mi, ze kdyz mam na formulari MainMenu i ToolBar, tak stisk F10 vede
k predani focusu na ToolBar a nikoliv MainMenu. Nektere formulare mi to
delaji a jine ne. Zatim jsem nedokazal vypozorovat pricinu.
Nesetkal jste se s tim nekdo?
Nebo neexistuje zpusob, jak rucne aktivovat po stisku F10 MainMenu?
Pouzivam D4, W98.
Dik.
Zdenek
CVS ???
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.5.2001 15:27:21
> Poznate niekdo nejaky CVS kde je Server i Klient pod Windows? a Free?
>
pokud to nemusi byt okmpatibilni s CVS pak zkus FreeVCS (www.freevcs.de)
D. Toman
Problem s rusenim controlu
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.5.2001 15:30:45
> Tlacitko RemoveBtn ma slouzit k tomu, aby se pripadny omylem
> vygenerovany panel odstranil. Na RemoveBtnClick tedy volam metodu
> Free, jenze tim se zrusi i toto tlacitko, vznikne (nejspis) bordel na
> zasobniku a hodi to vyjimku bud Abstract Error nebo podle nalady Acces
> Violation. Nevite nekdo, co s tim?
>
Ahoj,
nejprve bych zkusil misto Free volat Release, ale nevim, jestli to
pomuze. Jina cesta je, z buttonku poslat nejaky vlastni message
do okna s tim panelem a to okno by na onu zpravu reagovalo tim,
ze by smazalo ten panel.
David Lebeda
problemy s tiskem
[*] Pavel Krehula <pavel.krehula(zv)nlm(tec)cz> - 23.5.2001 15:34:24
Zdar,| nema nekdo zkusenosti s tiskem z Delphi 5 aplikaci pod WIN2000.
| Respektive, aplikace kterou jsme napsali pod W95 funguje a tiskne dobre,
| vcetne preview.
| Pokud ji spustime pod W2000 prewiev nefuguje korektne, spatne se zobrazuje
| cestina,
| vystup z tiskarny je totalne zmrseny.
na problemy s cestinou sem taky narazil, pomohlo nastavit explicitne v sestave font charset na EASTEUROPE a ne DEFAULT;
totalne zmrseny je co?
Pavel
Interbase II
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 23.5.2001 15:38:11
Haj hou!
On 23 May 2001,, Sula Milos wrote:
> tak jsem presel nedavno z IB 6.0 na IB 6.01 (Linux - SuperServer) ale
> vsechny operace se tak cca 5x zpomalily. Zkousel jsem Backup/Restore ale
> nepomohlo to >:( Nevite nekdo cim se to da spravit ? Je firebird lepsi ?
Jaka IB 6.01 ? Komercni, Open Edition (mers.com build) nebo ta
co se da volne stahnout z borland.com a je z ledna ? Rozhodne
petinasobne zpomaleni je divne. Je to stejne pomale pri lokalnim i
vzdalenem pristupu ?
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.QuickReport - dataset
[*] Str�n�k Franti�ek - 23.5.2001 15:53:36
Pratele,
k cemu je vlastnost QuickReport1.dataset ?
U "db" polozek na formulari nastavuji dbText.datase a dbText.datafield a
tam to chodi bez problemu.
Mohu u vsech "db" polozek na formulari nastavit globalne dataset pomoci
QuickReport.dataset ?
Omlouvam se , ze jsem to nepochopil a dik za radu !!
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
Datum v DBGridu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 23.5.2001 16:31:27
Sorry,
podle zkusenosti, ktere mam, tuto chybu nejcasteji zpusobuje import dat z
DBF. Kdy driver vraci hodnotu 0.0 namisto spravne NULL. Pokud toto je
vlastnost i driveru MySQL, potom je jedina moznost vytvorit vypocitavane
pole z prislusneto sloupce a dopsat si v pripade hodnoty 0.0 prevod na
string sam.
Pavel
PS: Jaky pristup k MySQL pouzivas, ja jsem cca pred rokem nasel pouze ODBC
ovladac.
-----P�vodn� zpr�va-----
Od: Valenta Patrik [mailto:valentapat(zv)volny(tec)cz]
Odesl�no: 22. kv�tna 2001 12:17
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: Re: Datum v DBGridu
Nemam ani Foxku, Ani ODBC, Data mam ulo�ene v MySQL. To ze to je Null vim
ale neda se to nejak pres nejake eventy Tdatabase pri nacitani nebo nejaka
extra default hodnota v Mysql ?
problem souvisi zrejme s DBF (asi FOXPRO) toto datum je null hodnota (jedina
kterou system zna a jedina kterou ODBC driver neni schopen resit).
Pavel
-----P�vodn� zpr�va-----
hello, muj problem je, jak donutit DBGrid aby u prazdn�ch (nevyplnenych)
datumu vypsal prazdnou bunku namisto 31.12.1899.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
Interbase II
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 23.5.2001 16:44:35
uz jsem to vyresil, nainstaloval jsme misto superserveru classic a je to OK.
Problem byl v tom ze ta novejsi verze od borlandu 6.01 proste vice padala
nez ta predesla a shazovalo to samozrejme i ostatni klienty kteri se pak
recconectovali takze nez se provedla nejaka operace tak to bylo napr. az na
5 reconnect, takze se to jevilo pomalejsi. S classic ted neni zatim ani
jeden problem. Vubec ten Superserver mi pripada dost nepouzitelny tam kde je
hodne klientu.
-----Original Message-----
From: Pavel Cisar [mailto:pcb(zv)atlas(tec)cz]
Sent: Wednesday, May 23, 2001 3:38 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Interbase II
Haj hou!
On 23 May 2001,, Sula Milos wrote:
> tak jsem presel nedavno z IB 6.0 na IB 6.01 (Linux - SuperServer) ale
> vsechny operace se tak cca 5x zpomalily. Zkousel jsem Backup/Restore ale
> nepomohlo to >:( Nevite nekdo cim se to da spravit ? Je firebird lepsi ?
Jaka IB 6.01 ? Komercni, Open Edition (mers.com build) nebo ta
co se da volne stahnout z borland.com a je z ledna ? Rozhodne
petinasobne zpomaleni je divne. Je to stejne pomale pri lokalnim i
vzdalenem pristupu ?
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Problem s rusenim controlu
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 23.5.2001 16:49:47
Podobny problem se tu resil v subjektu Kill DLL. K zruseni panelu (tedy i tlacitka) musi dojit az po uplnem zpracovani stisku
tlacitka, tedy se mu posle zprava:
...
const
WM_FreeTEnhPanel = WM_User + 200;
...
type
TEnhPanel = class(TPanel)
...
procedure FreeMsg(var Message: TWMChar); message WM_FreeTEnhPanel;
...
end;
...
implementation
procedure TEnhPanel.FreeMsg(var Message: TWMChar);
begin
Free;
end;
procedure TEnhPanel.RemoveBtnClick(Sender: TObject);
begin
PostMessage(Handle, WM_FreeTEnhPanel, 0, 0);
end;
...
Marek Muller
-----Original Message-----
Na RemoveBtnClick tedy volam metodu Free, jenze tim se zrusi i toto tlacitko, vznikne (nejspis) bordel na zasobniku a hodi to
vyjimku bud Abstract Error nebo podle nalady Acces Violation.Komponenty na carovy kod
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 23.5.2001 17:09:52
U mna naides QRBarcode so zdrojakom.
takmer 20 typov. Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli
> -----P�vodn� zpr�va-----
> Od: Radim Hampel [SMTP:hampel(zv)ecommerce(tec)cz]
> Odesl�no: 23. m�j 2001 8:50
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: RE: Komponenty na carovy kod
>
> Zkus nekde hledat BARCODE komponenty, jde s nimi pracovat, mam
> zkusenost.
>
> Radim
>
> > Nevite nekdo o dobre komponente pro praci s carovymi kody (generovani,
> > tisk)? Hledal jsem v konferenci, ale nic zasadniho jsem
> > nenasel. Dekuji.Univerzalni heslo pro Paradox
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 23.5.2001 17:15:53
zkus: jIGGAe
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Email a priloha
[*] Jan Dubsk� <hdplot(zv)seznam(tec)cz> - 23.5.2001 17:36:16
Ahoj vsichni
Na disku mam vytvoreny soubor (neco.txt) a potrebuji ho odeslat pomoci
postovniho klienta na predem urcenou adresu. Jak docilit toho, aby po akci
(stisk tlacitka) se otevrel postovni klient tak, aby uz mel nastavenou
kolonku "komu", "Predmet" pripadne obsah (telo) zpravy a sousasne uz mel
soubor "neco.txt" jako prilohu, tak, aby uzivatel mohl pouze doplnit nebo
upravit preddefinovany text zpravy a pokud nic doplnovat nechce, tak jenom
stiskl tlacitko odeslat.
Je to nejak lehce resitelne standardnimi prostredky Delphi 3.0 nebo existuje
nejaka vhodna komponenta?
Poradte prosim
Reseni soustavy rovnic
[*] Jan Dubsk� <hdplot(zv)seznam(tec)cz> - 23.5.2001 17:41:49
Ahoj vsichni
Mam soustavu X (max. to bude asi 20) rovnic o X neznamych. Matematicky se
toto resi upravou determinantu. Nevite nekdo o nejake komponente, ktera by
umela resit soustavy rovnic. Nebo zkuste aspon poradit nejakou adresu, kde
se matematicke komponenty daji najit.
Dik za radu
Informace z lParam
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 23.5.2001 17:46:56
On 23 May 2001, at 14:21, Jan Novak wrote:
> Jak dostat informaci z parametru LParam ve zprave, kdyz vim, ze mnou
> pozadovana informace je treba na 30. bitu?
Pocitano od nulteho bitu, je to (x shr 30) and 1. Pokud pocitas od
prvniho bitu, je to shr 29.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Problem s rusenim controlu - vyreseno
[*] brant(zv)dcomm(tec)cz - 23.5.2001 18:01:53
Diky vsem, stacilo zmenit parenta toho tlacitka a uz to funguje.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
mys
[*] Peter Surovy <surovy(zv)home.sk> - 23.5.2001 17:40:34
Chcel by som sa spytat takuto vec:
Ked spustim program tak na mieste kde je mys mi na formulari zostane
nevykresleny obdlznik Je to chyba pocitaca alebo programu a ako by sa to
dalo odstranit?Jak nastavovat cas a datum v NT
[*] Vobornik Petr <vobornik(zv)apel(tec)cz> - 23.5.2001 16:59:13 -0000
Dobry den,
prosim jak nastavit cas a datum ve WinNT. Ve Win95 pouzivam SetSystemTime,
ale v NT nefunguje.
Diky Petr
CVS ???
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 23.5.2001 19:52:56
http://www.cvsnt.org
---------------------------------------------------------------------
Ondrej Krajicek OK-) xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
Omnia ad maiorem Informaticae gloriam
---------------------------------------------------------------------
Jakae ma kdo zkusenosti s RAS?
[*] Jan Novak <megamax(zv)seznam(tec)cz> - 23.5.2001 21:30:51
Ahoj,
Chtel bych se zeptat, jake mate kdo zkusenosti s detekci internetu pomoci
RAS. Byly nejake problemy pri detekovani pripojeni pres proxy nebo LAN? Je
tato metoda obecne spolehliva? (jde mi o to zjistit pocet aktivnich spojeni
a pak jejich status).
dik
Jan Novak, Megamax(zv)seznam(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.4.2001
Cas v DBEditu (podruhe) ...
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 23.5.2001 21:54:49
Zdravim,
hledal jsem i v archivu, ale bezuspesne - stale stejne navody, ktere ale
nefunguji.
Delphi 6, databaze Access 97, DAO komponenty od Erika Salaje
V databazi mam v jedne tabulce sloupec, ktery je typu kratky cas (tj. napr.
15:20)
V TDAOQuery dostanu tuto polozku az do TDBEditu a tam se zobrazi jako datum
a cas (je take typu TDateTime). Ale ja potrebuji jen ten cas.
Pokud nastavim u teto polozky DisplayFormat na t - zobrazuje se to spravne.
Ale jen do momentu, kdy tento DBEdit dostane focus - pak se opet zobrazi
datum + cas
(tj. 31.12.1899 15:20).
Dale jsem nastavil i EditMask na preddefinovanou hodnotu kratkeho casu
(!90:00;1;_).
Tek uz mi tam zustane jen cas, ale zase mi to pri focusu nastavi minuty na
00 (15:00).
Nevite nekdo co s tim ? Uz jsem vyzkousel snad vsechny kombinace Formatu
a MaskEditu :((
Diky predem za radu
Pavel Skalicky
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
"Zatuhnuti" CTRL
[*] Hurricane <hurricane(zv)quick(tec)cz> - 23.5.2001 23:43:36
Zdravim
Mozna to bude znit divne, ale ja bych to nechal plavat. Rozhodne to neni
problem toho jednoho uzivatele. Dela to velka spousta kompu (muj taky).
Problem je kdesi v klavesnicovym driveru ve Win9x.
----- Original Message -----
> no tak ten BIOS bych vubec netypoval. Spis jde o zatuhnuti driveru
> klavesnice. Taky se mi to parkratstalo a to v kombinaci Win98 a V86
> aplikace. Stacilo parkrat provest reset klavesnice...
> ----- Original Message -----
> deje se mi zvlastni vec: uzivatel normalne dela, v nejakou chvili
> (nevysledoval jsem kdy) blikne NumLock a jakoby zustane stisknuty CTRL
> (pridava se ke kazdemu stisku) a jakmile ho stiskne (CTRL), tak se zase
> uvolni !?OpenDialog
[*] Hurricane <hurricane(zv)quick(tec)cz> - 23.5.2001 23:54:09
Zdravim
Spolecny dialog pro oboje neznam. Existuje komponenta (nazev nevim, muzu
poslat), ktera vola API dialog pro vyber adresare. API lze volat i primo,
neni to slozite. Zkus si ale stahnout GXExplorer
http://www.gxexplorer.org.uk, jsou k tomu spousty mooc peknych dialogu pro
praci se soubory, urcite tam najdes co hledas, nebo te to aspon nakopne
spravnym smerem.
Palete Win 3.1 se zdaleka vyhni.
Hurricane
----- Original Message -----
> Pro zadani jmena souboru (vcetne cesty) jsem pouzil OpenDialog.
> Je to pro mne dostacujici.
>
> Nyni chci mit moznost zadat (vyhledat) i jmeno adresare.
>
> OpenDialog ani SaveDialog mi toto neumoznuji. Je nejaka moznost,
> jak zadat nazev adresare nebo souboru jednim dialogem,
> nebo si mam vytvorit vlastni dialog s
>
> FileListBox,DirectoryListBox,DriveComboBox
>
> z palety
>
> Win 3.1
Menu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 23.5.2001 23:56:33
Zdravim
Zkus si zjistit, jak to dela Hint. Mozna by to slo na ten Hint primo
navazat.
Hurricane
----- Original Message -----
potreboval by som zistit pri nabehu mysou na MainMenu, aky je aktivny
nazov alebo index, este pred tym ako nan kliknem. Po kliknuti lavim
tlacitkom na menu to uz nieje problem. Skusal som pouzit funkciu
MenuItemFromPoint, ale bezuspesne.IB instalovanie
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 23.5.2001 23:59:49
Zdravim.
Mate niekto popis instalacie IB6 pomocou Innosetup ?
Roland.
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.255 / V�rusov� datab�za: 128 - d�tum vydania: 17. 5. 2001
mys
[*] Hurricane <hurricane(zv)quick(tec)cz> - 23.5.2001 23:59:38
Zdravim
Tipoval bych ta na grafickou kartu. Nemas nahodou starsi S3? Nebo si
ukontroluj pameti. Na jedne 486ce s pokazenym pametmi mi to skoro vubec
nechtelo vykreslovat kurzor, jen tam byl cerny obdelnik.
Hurricane
----- Original Message -----
> Chcel by som sa spytat takuto vec:
> Ked spustim program tak na mieste kde je mys mi na formulari zostane
> nevykresleny obdlznik Je to chyba pocitaca alebo programu a ako by sa to
> dalo odstranit?Cas v DBEditu (podruhe) ...
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 24.5.2001 00:48:35
From: "Pavel Skalicky" <P.Skalicky(zv)sh.cvut(tec)cz>
> Dale jsem nastavil i EditMask na preddefinovanou hodnotu kratkeho casu
> (!90:00;1;_).
> Tek uz mi tam zustane jen cas, ale zase mi to pri focusu nastavi minuty na
> 00 (15:00).
Pokud jde o spravne zobrazovani casu v dobe focusu, tak tuto chybu, ktera se tahne uz od
D1, pomuze odstranit napriklad predefinovani udalosti OnGetText pro kazdy TTimeField
(TDateTimeField):
procedure TForm1.TableXCasGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
Text := FormatDateTime('hh:nn', Sender.AsDateTime);
end;
Tomas
Email a priloha
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.5.2001 06:13:30
uses
SysUtils,
MAPI,
Registry,
Windows;
function Majluj(const Adresa, Predmet, Priloha, Text: string): Boolean;
const
MaxPriloh = 15;
var
Zprava : TMapiMessage;
Prijemce : array of TMapiRecipDesc;
Soubory : array of TMapiFileDesc;
Vysledek : Cardinal;
Reg : TRegistry;
sr : TSearchRec;
FCount : Integer;
Adr : string;
FileList : array [0..20] of string;
i : Integer;
begin
{ nastavime simple MAPI }
Reg := TRegistry.Create;
try
with Reg do begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows Messaging Subsystem', False)
then WriteString('MAPI', '1');
end;
finally
Reg.CloseKey;
Reg.Free;
end;
{ struktura prijemce }
SetLength(Prijemce, 1);
FillChar(Prijemce[0], SizeOf(TMapiRecipDesc), #0);
with Prijemce[0] Do Begin
ulReserved := 0;
ulRecipClass := Mapi_To;
lpszName := PChar(Adresa);
lpszAddress := nil;
ulEIDSize := 0;
lpEntryID := nil;
end;
{ nacteme prilohy }
FCount := 0;
if Priloha <> '' then begin
Adr := ExtractFilePath(Priloha);
if FindFirst(Priloha, faAnyFile - faDirectory - faVolumeID, sr) = 0 then begin
FileList[FCount] := Adr + sr.Name;
Inc(FCount);
while (FindNext(sr) = 0) and (FCount < 19) do begin
FileList[FCount] := Adr + sr.Name;
Inc(FCount);
end;
end;
{ vytvorime strukturu priloh pro mail }
if FCount > 0 then begin
SetLength(Soubory, FCount);
for I := 0 to FCount - 1 do
begin
FillChar(Soubory[I], SizeOf(TMapiFileDesc), #0);
Soubory[I].nPosition := DWORD(-1);
Soubory[I].lpszFileName := nil;
Soubory[I].lpszPathName := PChar(FileList[I]);
end;
end
else Soubory := nil;
end;
{ struktura vlastni zpravy }
FillChar(Zprava, SizeOf(Zprava), #0);
with Zprava do begin
ulReserved := 0;
lpszSubject := PChar(Predmet);
lpszNoteText := PChar(Text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 1;
lpRecips := PMapiRecipDesc(Prijemce);
lpFiles := PMapiFileDesc(Soubory);
nFileCount := Length(Soubory);
end;
{ pokusime se to odeslat }
Result := False;
Vysledek := MapiSendMail(0, Application.Handle, Zprava, MAPI_DIALOG or MAPI_LOGON_UI, 0);
case Vysledek of
Success_Success : Result := True;
Mapi_E_User_Abort : Result := False;
end;
end;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.5.2001 Jan Dubsk�:
> Na disku mam vytvoreny soubor (neco.txt) a potrebuji ho odeslat pomoci
> postovniho klienta na predem urcenou adresu. Jak docilit toho, aby po akci
> (stisk tlacitka) se otevrel postovni klient tak, aby uz mel nastavenou
> kolonku "komu", "Predmet" pripadne obsah (telo) zpravy a sousasne uz mel
> soubor "neco.txt" jako prilohu, tak, aby uzivatel mohl pouze doplnit nebo
> upravit preddefinovany text zpravy a pokud nic doplnovat nechce, tak jenom
> stiskl tlacitko odeslat.
> Je to nejak lehce resitelne standardnimi prostredky Delphi 3.0 nebo existuje
> nejaka vhodna komponenta?