Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
GSM aplikacie
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 27.4.2001 13:45:10
No, takze potrebujes komponentu na ovladani seriovych portu.
Nedavno sjem se nastval, a napsal jsem vlastni kniohovnu na ovladani
seriovych portu, ktera vychazi z mych komponent na Winsock
komunikaci. (najdes je na strance synapse.. viz muj podpis.) Jmenuje se
to Synaser (:-))))
Vyhody jsou ty, ze treba se NEJEDNA o KOMPONNTY, ale je to jen
unita s kodem, takze se to velmi snadno pouziva, protoze nemusis vubec
nic instalovat. Staci jen nahrat k tvemu projektu, dat si tu unitu do USES
a jedes. ;-)
Veskere funkce na cteni i zapis dat jsou UPLNE STEJNE jako funkce na
cteni a zapis dat u Synapse.
A na AT prikazy tam mas rovnou podporu. zavolas metodu, ktera
dostane jako parametr AT prikaz a vrati ti to (i nekolikaradkovou) odpoved.
AT prikazy pro GSM mobily existuji popsane na mnoha mistech, zalezi
na tom, o jaky se jedna konkretne telefon, jsou tam jiste specificke
odlisnosti...
Lukas.
> Surne zhanam nejake komponenty na ovladanie GMS telefonu, SMS,AT
> prikazy.... Mate niekto s tym skusenosti?
>
> Dik Lubos
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
OT: PSC a nove kraje CR
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 27.4.2001 13:47:04
Ceska posta dodava prave takove udaje v DBF podobe na
http://www.ceska-posta(tec)cz/SluzbyOnl/Default.htm (Download datovych
souboru)
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
27.04.2001 "R�bert �ak":
> Mam problem: Potrebujem urcit podla PSC kraj do ktoreho obec patri.
> Jedna sa mi o nove uzemne clenenie krajov CR. Nemate niekto tieo data ?
> Res. mam data PSC obci s urcenim okresu. Mozno by stacila tabulka
> Krajov a k nim prisluchajucich okresov.
> Diky za pomoc
> Robert Sak
> Magion spol. s r.o. tel./fax :0657/614 289
> Jiraskova 1284 e-mail: robert.sak(zv)magion(tec)cz
> 755 01 Vsetin www: http://www.magion(tec)cz
OT: FreeWare
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 27.4.2001 13:52:00
Dobry den,
kdyz uz se tu diskutuje o copyrightu, tak bych se chtel take zeptat, zda v
pripade, ze ve svem programu pouziji FreeWare komponentu mohu tento program
dal prodavat, nebo je nutne (slusnost vynechavam) kontaktovat autora a
ziskat jeho souhlas.
Diky
-TMa-
Thread s velmi nizkou prioritou
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 27.4.2001 14:19:04
| priorita threadu nedefinuje zatizeni procesoru, ale prednost
| pri pridelovani
| CPU. Pokud zadna jina uloha nema zajem o CPU, muze thread s nejnizsi
| prioritou klidne schramstnout 100% CPU a nikomu to nevadi. V
| cem je problem?
Problem je (byl) v tom, ze potrebuji, aby ve Windowsech na pozadi bezel
thread s velmi nizkou prioritou a vykonaval porad do kola jednu ulohu.
Nicmene jsem to vyresil pomoci funkce WaitForSingleObject, kde se v
urcitych intervalech vykonava to co potrebuji a nezatezuje to procesor.
S pozdravem,
Petr Reichl
Zavedeni COM objektu do pameti
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 27.4.2001 14:22:49
Zdravim,
u klasicke DLL lze odchytit, kdyz si DLLku atachne nejaky process. Lze toto
udelat i COMu?
U klasicke DLL se dela neco takoveho:
-- [ Code ] --
procedure DLLEntryPoint(dwReason: Dword);
begin
case dwReason of
DLL_PROCESS_ATTACH: ShowMessage('Start');
end;
end;
-- [ Code ] --
... u COMu to ale nefunguje. Muzete mi poradit jak na to?
S pozdravem,
Petr Reichl Inteligentna obsluha OnDataChange
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 27.4.2001 14:33:48
Potrebujem poradit ako najlepsie vyriesit univerzalnu obsluhu udalosti
OnDataChange v DataSource.
DataSource je v DataModule a pripajam sa k nemu z viacerych formularov, na
ktorych mam v ToolBare
buttony Edit, Delete (a ine), ktorym potrebujem nastavit property Enabled
podla aktualneho zaznamu
v DataSete DataSourcu a "kontextu" aplikacie.
Chcel by som teda aplikacii poslat spravu: "Zmenil sa aktualny zaznam a
mnozina povolenych
operacii s nim", updatni ovladacie prvky vo svojich formularoch...
Ako to elegantne riesit ?
S pozdravom
Jaroslav Popluhar
Pridelovani prav pro databazovou aplikaci primo v
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 27.4.2001 15:00:09
On 27 Apr 2001, at 9:28, Hazuka Filip wrote:
> Ja jsem mel spise na mysli vlastni system prava. Vlastni tabulku v
> databazi, kde jsou k uzivatelum, coz je take vlastni tabulka pridelena
> urcita prava. Napriklad pravo k otevreni modulu rezervace, pravo na
> mazani v modulu rezervace atd. Nastavil bych tam k cislu prava
> napriklad 123 (treba pravo mazani) jestli je true nebo false). Me pak
> ale neni jasne, jak bych si to nacetl do nejakeho virtualniho seznamu
> a potom pri otevreni nejakeho modulu, bych si nasel z tohoto seznamu
> cislo na pravo otevreni, nasel si zda je true nebo false a podle toho
> bych nechal uzivateli modul otevrit nebo ne atd. Mel jsem na mysli
> takoveto reseni. Jenom nevim jak by se takovy seznam prohledaval a
> dalsi detaily. Neresil jste to uz nekdo timto zpusobem ? Diky za
> kazdou radu.
Resil. Okna oteviram vyhradne pres akce z TActionList. Kazda
akce ma sve cislo Tag, podle ktereho akci budto povolim, nebo
zakazu, prave podle takoveho seznamu povolenych prav. A abych
mohl prava ukladat v nejake rozumne kratke podobe, resim to pres
bitmask. V databazi mam nekolik malo poli typu integer, v
programu mam pak funkci, ktera podle nastaveneho bitu toho
ktereho pole najde akci s prislusnym Tagem a je-li bit nulovy,
vypne ji.
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
Prevod cisla na slova napr. 1423 = jedentisicstyri
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 27.4.2001 15:01:58
Je to sice napsane v Paradoxu, ale zato je rozsah az do 999 999 999,99 a taky to
umi hezky cesky :)
method Castka_Slovy(Castka Number) string
var
Stovky array [10] string
Desitky array [10] string
Jednotky array [20] string
Castka_Miliony string
Castka_Tisice string
Castka_Jednotky string
Castka_Halere string
Koruny string
Halere string
S string
Ret_Miliony string
Ret_Tisice string
Ret_Jednotky string
endVar
if Castka < 0 then
return "C�stka je men�� ne� 0 !!!"
endIf
Stovky[1] = ""
Stovky[2] = "jednosto"
Stovky[3] = "dvesta"
Stovky[4] = "trista"
Stovky[5] = "ctyrista"
Stovky[6] = "petset"
Stovky[7] = "�estset"
Stovky[8] = "sedmset"
Stovky[9] = "osmset"
Stovky[10] = "devetset"
Desitky[1] = ""
Desitky[2] = "deset"
Desitky[3] = "dvacet"
Desitky[4] = "tricet"
Desitky[5] = "ctyricet"
Desitky[6] = "pades�t"
Desitky[7] = "�edes�t"
Desitky[8] = "sedmdes�t"
Desitky[9] = "osmdes�t"
Desitky[10] = "devades�t"
Jednotky[1] = ""
Jednotky[2] = "jedna"
Jednotky[3] = "dva"
Jednotky[4] = "tri"
Jednotky[5] = "ctyri"
Jednotky[6] = "pet"
Jednotky[7] = "�est"
Jednotky[8] = "sedm"
Jednotky[9] = "osm"
Jednotky[10] = "devet"
Jednotky[11] = "deset"
Jednotky[12] = "jeden�ct"
Jednotky[13] = "dvan�ct"
Jednotky[14] = "trin�ct"
Jednotky[15] = "ctrn�ct"
Jednotky[16] = "patn�ct"
Jednotky[17] = "�estn�ct"
Jednotky[18] = "sedmn�ct"
Jednotky[19] = "osmn�ct"
Jednotky[20] = "devaten�ct"
S = format("W.2,EL1",Castka)
Koruny = S.substr(1, S.size() - 3)
Halere = S.substr(S.size() - 1, 2)
Koruny = Dopln_Nuly_Zleva(9, Koruny)
Castka_Miliony = Koruny.substr(1, 3)
Castka_Tisice = Koruny.substr(4, 3)
Castka_Jednotky = Koruny.substr(7, 3)
Castka_Halere = Halere
Ret_Miliony = Blank()
Ret_Tisice = Blank()
Ret_Jednotky = Blank()
if Castka_Miliony <> "000" then
if Castka_Miliony = "001" then
Ret_Miliony = "jeden"
else
Ret_Miliony = Ret_Miliony +
Stovky[SmallInt(Castka_Miliony.substr(1,1))+1]
if SmallInt(Castka_Miliony.substr(2,1)) = 1 then
Ret_Miliony = Ret_Miliony +
Jednotky[SmallInt(Castka_Miliony.substr(2,2))+1]
else
Ret_Miliony = Ret_Miliony +
Desitky[SmallInt(Castka_Miliony.substr(2,1))+1]
Ret_Miliony = Ret_Miliony +
Jednotky[SmallInt(Castka_Miliony.substr(3,1))+1]
endIf
endIf
switch
case SmallInt(Castka_Miliony) = 1 : Ret_Miliony =
Ret_Miliony + "mili�n"
case (SmallInt(Castka_Miliony) >= 2) and (SmallInt(Castka_Miliony) <= 4)
: Ret_Miliony = Ret_Miliony + "mili�ny"
otherwise : Ret_Miliony = Ret_Miliony + "mili�nu"
endSwitch
endIf
if Castka_Tisice <> "000" then
if Castka_Tisice = "001" then
Ret_Tisice = "jeden"
else
Ret_Tisice = Ret_Tisice + Stovky[SmallInt(Castka_Tisice.substr(1,1))+1]
if SmallInt(Castka_Tisice.substr(2,1)) = 1 then
Ret_Tisice = Ret_Tisice +
Jednotky[SmallInt(Castka_Tisice.substr(2,2))+1]
else
Ret_Tisice = Ret_Tisice + Desitky[SmallInt(Castka_Tisice.substr(2,1))+1]
Ret_Tisice = Ret_Tisice +
Jednotky[SmallInt(Castka_Tisice.substr(3,1))+1]
endIf
endIf
switch
case (SmallInt(Castka_Tisice) >= 2) and (SmallInt(Castka_Tisice) <= 4)
: Ret_Tisice = Ret_Tisice + "tis�ce"
otherwise : Ret_Tisice = Ret_Tisice + "tis�c"
endSwitch
endIf
if Castka_Jednotky <> "000" then
Ret_Jednotky = Ret_Jednotky +
Stovky[SmallInt(Castka_Jednotky.substr(1,1))+1]
if SmallInt(Castka_Jednotky.substr(2,1)) = 1 then
Ret_Jednotky = Ret_Jednotky +
Jednotky[SmallInt(Castka_Jednotky.substr(2,2))+1]
else
Ret_Jednotky = Ret_Jednotky +
Desitky[SmallInt(Castka_Jednotky.substr(2,1))+1]
Ret_Jednotky = Ret_Jednotky +
Jednotky[SmallInt(Castka_Jednotky.substr(3,1))+1]
endIf
endIf
return Ret_Miliony + Ret_Tisice + Ret_Jednotky
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
> Hi all
>
> Potrebujem vypisat slovom sumu do vysky radovo milionov.
> Ak ste uz robili nieco podobne a mozte poslat zdroj alebo odkaz, kde uz
> nieco take
> je budem vdacny ( nemusim vyvmyslat vymyslene). Taktiez vyrabam svoju
> vlastnu
> funkciu, kto by mal zaujem, mozem poslat az bude hotova.
>
> Dann
Dolni index v TLabel
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 27.4.2001 15:10:52
Musis si napsat vlastni komponentu, ktera to dokaze vykreslit. Jestli chces tak
neco takoveho muzu poslat. Potreboval jsem vykreslovat prvni cast textu nahore a
pak uprostred, ale udelal jsem to tak, ze se da zarovnat cokoliv kamkoliv :)
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
> Ahoj,
>
> mam dalsi problemek. Potreboval bych napsat v Labelu dolni index,
> napr. x1 (kde ta jednicka bude dolnim indexem). Nevite jak na to?
>
> Jirka.MS SQL7: Transaction log
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 27.4.2001 16:27:44
Truncate Transaction Logu (i Shrink Database)je mozne snadno automatizovat
viz. planovani jobu na serveru, pouzivame to, funguje to a nastaveni je diky
wizardu velmi jednoduche !
Pavel Lstiburek
-----P�vodn� zpr�va-----
Od: Ji�� Kr�l jr. [mailto:admin(zv)printo(tec)cz]
Odesl�no: 27. dubna 2001 12:26
Komu: delphi-l(zv)clexpert(tec)cz
P�edm�t: RE: MS SQL7: Transaction log
>>Co s tym? Myslite, ze mozem ten .TLD (alebo .TDL?) beztrestne zmazat?
Mozem
>>do programu v Delphi dat nejaky prikaz, aby to nenarastalo? Alebo je to
len
>>problem nastavenia servera?
Spise bych v Enterprise Manageru pouzil u te dB funkci Truncate Trans action
Log, at si to udela samo...
mazani bych radsi odlozil..
JK
OT: FreeWare
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 27.4.2001 17:09:50
On 27 Apr 2001, at 13:52, M�ra Tom�# wrote:
> kdyz uz se tu diskutuje o copyrightu, tak bych se chtel take zeptat,
> zda v pripade, ze ve svem programu pouziji FreeWare komponentu mohu
> tento program dal prodavat, nebo je nutne (slusnost vynechavam)
> kontaktovat autora a ziskat jeho souhlas.
VZDY zalezi na tom, co autor tech komponent dovoli. Precti si
tedy licencni ujednani. Pokud ke komponentam neni, muzes si to
vykladat tak, ze je vubec nesmis pouzit (to podle AZ).
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
Pouze jedna instance aplikace a FindWindow
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 27.4.2001 17:09:50
On 27 Apr 2001, at 8:55, Bene# Jaroslav wrote:
> Pouzivam multinst.pas, kde je vse uz hotove a je to OK. Pouze v Delphi
> 5 je chybka a je potreba upravit windows.pas viz. (jinak to zdechne)
>
> function BroadcastSystemMessageA; external user32 name
> 'BroadcastSystemMessageA';
> function BroadcastSystemMessageW; external user32 name
> 'BroadcastSystemMessageW';
> function BroadcastSystemMessage; external user32 name
> 'BroadcastSystemMessage';
Tak si tyto funkce predeklaruj ve sve unite, abys je nemusel volat z
Windows.pas. Sahat do Windows.pas neni zrovna nejlepsi napad.
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
StringGrid
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 27.4.2001 15:18:56 met-1
Ahoj,
zkousim poprve pracovat se StringGridem a nemuzu prijit na par veci:
1) Jak udelat, aby se mi text napr. v prvnim sloupci zarovnaval
doprava, ve druhem doleva a ve tretim treba na desetinnou carku?
2) Jak se nastavuji vlastnosti fontu pro kazdou bunku extra? Napr.
text v bunce [1,1] aby byl tucne, v bunce [2,2] podtrzene apod.
3) Chtel bych, aby urcite bunky ve StringGridu byly editovatelne a
jine ne, tzn. abych se pomoci mysi a kurzorovych klaves na ty
needitovatelne bunky nedostal. Vlastnost FixedRows ani FixedCols
pouzit nemohu, protoze ty needitovatelne bunky netvori souvislou
oblast v gridu.
Za kazdou dobrou radu budu vdecnej. Jirka.DbiInsertRecord
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 27.4.2001 20:17:54
Ahoj
Nekde mam na to komponentu , uklada a vklada vcetne BLOB
kdyz tak poslu , ozvi se.
Jiri Heinisch
>
> nevite nekdo nahodou, jak co nejjednoduseji pridat
> record do datasetu tak, aby se zkopiroval obsah
> nekterych poli z jineho recordu, na kterem prave stojim?
>
> Zkousel jsem nasledujici kod, ale nadava mi, ze nezna "hDBICur"
> Insert or append a record to a table.
Grafy do D5
[*] Petr Ma��k - 27.4.2001 21:13:25
Zdravim,
Pouzivam take xyGraph z Kestral, je opravdu bezvadny. Bohuzel jsem
v D5 Prof, SP1 musel vyradit navrhare v designtime, protoze po prelozeni a
instalaci(bez chyb) to pri vlozeni komponenty TxyGraph na form ohlasi
Rangecheck error. Tobe to pod D5 funguje ? Jestli ano, jsou potrebne nejake
upravy ?
Me se to komplet rozchodit nepodarilo.
Jeste verze xyGraph:3.2 (beta). Dnes jsem se chtel podivat, jestli neni
novejsi vereze, bohuzel server byl mimo.
Petr Marik
rtepema(zv)mbox.vol(tec)cz
-> xyGraph. Je to free se zdrojakama a pracuje se s tim skvele.
> www.kestral.com.au/devtools/xygraph .
>
> Petr Jur�k, Spr�vce s�t�, program�tor
> COMET System s.r.o.
> 1.M�je 1220
> 756 61 Ro�nov pod Radho#t�m
> tel. 0651/653990
> fax. 0651/653993
> www.cometsystem(tec)cz
>
PubStrGrid.RowCount
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 27.4.2001 21:16:25
Komponenta PubStrGrid mi nerespektuje RowCount, #ipkama se da pohybovat dol�
"do nekone�na" . Je to nejak� chybka v komponent� nebo mam n�co #patn�
nastaven�. ?
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
OLE servers
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 27.4.2001 21:36:36
Hezky den vsem,
mam velice specificky dotaz. Pouzivam OLE servery na propojeni na MS
Office. Potrebuji vedet jak zjistim, ve kterem radku a sloupci se
nachazi zalozka. Samozrejme umim prejit na zalozku, jde zjistit, zda
lezi v tabulce, ci nikoliv, ale na jake pozici??? Je to trochu
specificky dotaz, ale jesti jste s tim nekdo delali, ozvete se mi,
dekuji.
Radim Hampel
OT: sluzba server na NT4 WS
[*] Ji�� Kr�l jr. - 27.4.2001 22:13:23
Zdravim kolezi,
potkala me nekazen na Win NT. Po pridani sitove karty zacaly problemy se
spoustenim sluzby "Server". Ukoncuje se s hlaskou, ze je pro spusteni
nedostatek mista na disku.. pricemz mista je hafo (GB) a i swapak je solidne
velky..
nepomohla ani odinst+reinst cele sitove podpory, ani reinst SP
na te masine je hrozne softu, zatim doufam, ze to nebudu muset
preinstalovavat cele..
nevi nekdo co s tim?
diky
J.Pridelovani prav pro databazovou aplikaci primo v
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 28.4.2001 06:48:03
From: "Petr" <DelphiForum(zv)seznam(tec)cz>
> Takze vse je jiz tady a je naprosto zbytecne
> delat kvuli tomu dalsi tabulku.
No, jenomze ono to prave vubec zbytecne neni - je to naopak dost
nestastne reseni, k cemu ho nabadas, protoze
1. je to zavisle na konkretnim DB stroji (co kdyz zakaznim jiz
ma nejaky slusny DB stroj a o IB nebude chtit ani slyset
- to budes vsechno prepisovat znovu?)
2. Priviliegia jsou definovana na urovni fyzike operace
s DB tabulkou, cimz se resi bezpecnost DB stroje
(proti skodicum, kteri se connectnou na DB mimo aplikaci
napr. nejakym klientem)
3. Aplikace potrebuje privilegia kontrolovat na urovni
logickych operaci
Bye, pf
Tisk gridu
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 28.4.2001 06:57:11
Br� den.
U� sem se jednou ptal ale bez reakce. Pot�ebuji vytisknout Grid v�etn�
m�ݿky.
hr�l jsem si s Qreportem ale m�ݿku jsem tam nedostal, porad� mi n�kdou
event. n�jakou jinou cestu ?
Tisku p�es generov�n� HTML �i Excell. form�tu se chcy vyhnout. dekuji
valik
Jak udelat v memo dalsi radek
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 28.4.2001 06:58:16
Memo1.lines.add('ddddddd'); v3e je v helpu.
>Jakym zpusobem udelam v komponente memo dalsi radek zatim do ni vkladam
text pouze >takto memo.lines.text:='neco';Jak udelat v memo dalsi radek
[*] Roman <roman.ozana(zv)sendme(tec)cz> - 28.4.2001 11:44:58
Jakym zpusobem udelam v komponente memo dalsi radek zatim do ni vkladam text pouze takto memo.lines.text:='neco';Memo jako ve wordu
[*] EFG developer <developer(zv)efg(tec)cz> - 28.4.2001 12:38:34
DDV,
nevite nekdo z vas, jak udelat nad vertikalnim scrollbarem u mema splitter
tak, aby vypadal a choval se tak, jako napr. ve wordu?
(je mi jasne, ze budu muset pouzit 2 mema, ale jak udelat ten splitter)
Dekuji Petr Sikola
dbgrid
[*] celda <jcelikovsky(zv)mbox.dkm(tec)cz> - 28.4.2001 13:57:28
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Umoznuje DBGrid napriklad abecedne serazene zobrazeni polozek(radku)? Jestlize ne, jaka je na to vhodna komponenta (ktera pokud mozno jde provazat s db). Dekuju, Celda.Matematika s wav daty 2
[*] Ji�� B�l�����*������&j)? - 28.4.2001 14:26:50
Pred case se tu resil problem ziskani zvukovych dat z wavu. Me by zajimalo
jak prevest obecne jakykoliv format wavu do formatu PCM, protoze jen s tim
se da nasledne neco provadet.
Jirka
RiechEdit
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 28.4.2001 15:53:00
> Diky za radu. Pokud jsem pochopil metody a vlastnosti
> TRichEdit, tak by
> doporuceni fungovalo pro vybrany text v nektere radce.
> Mozna, ze to je take
> reseni: Vyplnit vlastnost Text neformatovanym textem a
> doporucenym zpusobem
> jej zformatovat. Vyzkousel jsem doporuceni, ktere zaslal Jiri Foldyna
> (dekuji) a to funguje bezproblemove. Kdyz se v debug rezimu podivam na
> vlastnost RichEdit1.Text, tak tam nejsou obsazeny zadne
> formatovaci prikazy.
> Musi byt nekde jinde, vi nekdo kde?
> Ing. Jan Dvorak
Ahoj,
Pro ziskani celeho textu vcetne formatovacich prikazu muzes pouzit ulozeni
obsahu RichEditu do TMemoryStream s parametrem PlainRTF = false. Kdyz se
podivas do zdrojaku VCL, zjistis, ze podpora streamovani je zahrnuta ve
WinAPI a ze interni informace o formatovani jsou primo soucasti okna tridy
richedit - cili nelze se k nim dostat jinak, nez pres volani WinAPI.
Nezkoumal jsem, jestli to lze, stacilo mi pouzit cteni pres stream. Pokud
bys tomu chtel venovat nejaky cas, doporucuji najit si na MSDN informace o
richedit control, je to tam dobre popsane.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Matematika s wav daty 2
[*] Hurricane <hurricane(zv)quick(tec)cz> - 28.4.2001 20:56:45
Zdravim
Co bys chtel prevadet? WAV je prece v PCM kodovani. Pokud chces cista (RAW)
PCM data, tak odsekni prvnich 44 bytu z toho wavu. Potom ale musis mit nekde
zvlast ulozeno, v jakem konkretnim formatu je to ulozeny (44100Hz, 16bit,
stereo, unsigned nebo jina kombinace). Jestli chces jakykoliv WAV prevest na
WAV v urcitem formatu (viz vyse, stale mluvim jen o PCM), tak na to bude asi
nejaka komponenta.
Hurricane
----- Original Message -----
From: "Ji�� B�l�" <jiri.bily(zv)cmail(tec)cz>
To: "Delphi forum" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, April 28, 2001 2:26 PM
Subject: Matematika s wav daty 2
> Pred case se tu resil problem ziskani zvukovych dat z wavu. Me by zajimalo
> jak prevest obecne jakykoliv format wavu do formatu PCM, protoze jen s tim
> se da nasledne neco provadet.
>
> Jirka
>
>DelphiX & Video
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 28.4.2001 21:28:52
Dobry den,
nemate, prosim, nekdo nejaky link ci priklad jak prehravat pomoci DelphiX
(DirectX) video s vyuzitim vsech dostupnych kodeku, ktere jsou instalovany
(abych se snimi nemusel zabyvat).
Dekuji
Zdenek
TString-Grid a checkbox
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 28.4.2001 21:56:36
Ahoj, zdravim vsechny.
Nevite nekdo, jak dostat do TStringGridu checkbox do urciteho sloupce ?
Diky
Filip
StringGrid + checkbox upresneni.
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 28.4.2001 22:31:25
Ahoj, jeste bych chtel upresnit, ze ty checkboxy chci vykreslit do presne
definovanych bunek.
Zaboha nemuzu prijit na to, jak.
Diky
Filip
Seznam objektu na TForm
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 28.4.2001 16:50:04 -0400
Muzu nejak v run-time zjistit, jake vsechny objekty mam na nejake Form? Jestli
ano, mohu s nimi dale pracovat? Treba kdybych potreboval posunout vsechny
objekty o 5 pixlu doleva, mohu nejak zjistit vsechny objekty a postupne je
vsechny posunovat?
Diky za pomoc
Petr Vasicek
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Tisk gridu
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 29.4.2001 11:21:16
Ahoj,
From: "Valenta Patrik" <valentapat(zv)volny(tec)cz>
> U sem se jednou ptal ale bez reakce. Pot ebuji vytisknout Grid v etn
> m � ky.
>
> hr�l jsem si s Qreportem ale m � ku jsem tam nedostal, porad� mi n
> kdou event. n jakou jinou cestu ? Tisku p es generov�n� HTML i
> Excell. form�tu se chcy vyhnout. dekuji valik
zalezi jake mas NAROKY ta ten tisk.
na http://www.gjl-software.co.uk
je komponenta ExDBGrid, ktera to umi.
Ja si 'zbastlil' vlastni generator, ale na to, abych jej vystavil by
potreboval dodelat. Na coz ted bohuzel nemam cas.
Jarek Uher
dbgrid
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 29.4.2001 11:21:16
Ahoj,
From: "celda" <jcelikovsky(zv)mbox.dkm(tec)cz>
> Umoznuje DBGrid napriklad abecedne serazene zobrazeni polozek(radku)?
> Jestlize ne, jaka je na to vhodna komponenta (ktera pokud mozno jde
> provazat s db). Dekuju, Celda.
nejlepe pomoci SQL. Komponenty zalezi na tom, o kterou DB se
jedna.
Jarek Uher
sluzba server na NT4 WS
[*] Miroslav Evj�k <evjak(zv)atlas(tec)cz> - 29.4.2001 12:36:38
Ahoj,
tusim, ze podobny problem resil kolega, pomohla reinstalace Service Packu
(ktera je nutna po kazdem zasahu do instalace Woknows).
Mirecek
mailto:evjak(zv)atlas(tec)cz
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ji�� Kr�l jr.
Sent: Friday, April 27, 2001 10:13 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: sluzba server na NT4 WS
Zdravim kolezi,
potkala me nekazen na Win NT. Po pridani sitove karty zacaly problemy se
spoustenim sluzby "Server". Ukoncuje se s hlaskou, ze je pro spusteni
nedostatek mista na disku.. pricemz mista je hafo (GB) a i swapak je solidne
velky..
nepomohla ani odinst+reinst cele sitove podpory, ani reinst SP
na te masine je hrozne softu, zatim doufam, ze to nebudu muset
preinstalovavat cele..
nevi nekdo co s tim?
diky
J.
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.2001
Matematika s wav daty 2
[*] Ji�� B�l�����*������&j)? - 29.4.2001 14:50:59
A to prave neni pravda. PCM je jen jednim z moznych vnitrnich formatu. K
ulozeni zvukovych dat muze byt pouzit jakykoliv jiny kodek (tak se rika
ovladaci pro kodovani a dekodovani dat). Kdyz se podivas do "ovladacich
panelu", "zvuky a multimedia", tak tam je jednou z polozek "zvukove kodeky".
WAV muze uvnitr klidne ukryvat MP3-kovy data. Kdyz mas prislusny kodek, bude
ho umet prehrat libovolna windowsovska aplikace.
Prevod do PCM formatu musi jit prave pres tyto kodeky, ale to nevim jak.
Jeste k hlavicce wavu. Vubec neni pravda, ze je vzdy dlouha 44 znaku. Je
to sice nejcastejsi, ale muze byt klidne dlouha 1 kB.
Diky za snahu.
Jirka
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, April 28, 2001 8:56 PM
Subject: Re: Matematika s wav daty 2
> Zdravim
>
> Co bys chtel prevadet? WAV je prece v PCM kodovani. Pokud chces cista
(RAW)
> PCM data, tak odsekni prvnich 44 bytu z toho wavu. Potom ale musis mit
nekde
> zvlast ulozeno, v jakem konkretnim formatu je to ulozeny (44100Hz, 16bit,
> stereo, unsigned nebo jina kombinace). Jestli chces jakykoliv WAV prevest
na
> WAV v urcitem formatu (viz vyse, stale mluvim jen o PCM), tak na to bude
asi
> nejaka komponenta.
>
> Hurricane
>
>
> > Pred case se tu resil problem ziskani zvukovych dat z wavu. Me by
zajimalo
> > jak prevest obecne jakykoliv format wavu do formatu PCM, protoze jen s
tim
> > se da nasledne neco provadet.
> >
> > Jirka
> >
> >
>Matematika s wav daty 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.4.2001 16:51:59
From: "Ji�� B�l�" <jiri.bily(zv)cmail(tec)cz>
> Pred case se tu resil problem ziskani zvukovych dat z wavu. Me by zajimalo
> jak prevest obecne jakykoliv format wavu do formatu PCM, protoze jen s tim
> se da nasledne neco provadet.
Ahoj,
ohledne WAV formatu se podivej do Win32API helpu na funkce mmioOpen, mmioClose
a spol. Priklad (prehravani WAVu) s pouzitim techto funkci je tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Api/Example_WavePlay.zip
Petr Vones, amatersky programator
Winsock a thready
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 29.4.2001 16:53:19
Dobry den,
pisu komponentu na stahovani souboru, ktera pouziva standardni funkce
Winsocku. Aby stahovani umoznilo dalsi praci s programem, probiha vse ve
vlastnim threadu. Jeslize vsak thread vytvorim, zobrazi se po volani funkce
gethostbyname vzdy dialogove okno Telefonicke pripojeni i pokud pristupuji
pouze na 'localhost'. Pokud thread vytvorim opetovne, vse funguje spravne.
Jestlize to necham pracovat v primarnim threadu, je vse tez OK. Vse funguje
taktez, jestlize pouziju primo adresu 127.0.0.1 a fci inet_addr. Skutecne
nevim, kde je chyba, a budu tedy vdecny za kazdou radu.
Mike
function getaddr(hostname: pchar): longword;
type tapinaddr = array[0..10] of pinaddr;
papinaddr = ^tapinaddr;
var phe: phostent;
pptr: papinaddr;
begin
result := inet_addr(hostname);
if result = inaddr_none then
begin
phe := gethostbyname(hostname);
if phe <> nil then
begin
pptr := papinaddr(phe^.h_addr_list);
if pptr^[0] <> nil then result := pptr^[0]^.s_addr;
end;
end;Nastaveni v DBGridu Properties-Options-dgEditing
[*] <miragesoft(zv)centrum(tec)cz> - 29.4.2001 17:37:04
Dobry den,
zajimalo by me jakym zpusobem se da v DBGridu za chodu programu prepinat :
Properties - Options - dgEditing z True na False a naopak
Predem dekuji
Castka Miroslav - zacatecnik
Hrajte on-line hry na http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
StringGrid + checkbox upresneni.
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 29.4.2001 19:13:55
Ahoj,
From: Hazuka Filip <filip.hazuka(zv)multivac(tec)cz>
> Ahoj, jeste bych chtel upresnit, ze ty checkboxy chci vykreslit do
> presne definovanych bunek. Zaboha nemuzu prijit na to, jak.
tady mas kousek kodu, ktery to umi. Psal to kolega, ale rikal, ze to
do konference mohu poslat.
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
ComboBox1.Visible:=true;
ComboBox1.Top:=StringGrid1.Top+(ARow-
StringGrid1.TopRow)*(StringGrid1.DefaultRowHeight+StringGrid1.Gri
dLineWidth)+1;
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(StringGrid1.Cells
[ACol,ARow]);
end;
procedure TForm1.StringGrid1TopLeftChanged(Sender: TObject);
var oWholeLastRowVisible: boolean;
iLastBottom: integer;
begin
oWholeLastRowVisible:=true;
iLastBottom:=(succ(StringGrid1.Row)-
StringGrid1.TopRow)*(StringGrid1.DefaultRowHeight+StringGrid1.Gri
dLineWidth);
if iLastBottom>StringGrid1.Height
then oWholeLastRowVisible:=false;
ComboBox1.Visible:=true;
if (StringGrid1.TopRow<=StringGrid1.Row)
and
(StringGrid1.Row<=(StringGrid1.TopRow+StringGrid1.VisibleRowCo
unt))
and (oWholeLastRowVisible=true)
then begin
ComboBox1.Top:=StringGrid1.Top+(StringGrid1.Row-
StringGrid1.TopRow)*(StringGrid1.DefaultRowHeight+StringGrid1.Gri
dLineWidth)+1;
end
else ComboBox1.Visible:=false;
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:=ComboBox1.Ite
ms[ComboBox1.ItemIndex];
end;
Jarek Uher
Nastaveni v DBGridu Properties-Options-dgEditing
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 29.4.2001 21:40:55
> Dobry den,
> zajimalo by me jakym zpusobem se da v DBGridu za chodu programu prepinat :
> Properties - Options - dgEditing z True na False a naopak
Options:=Options+[dgEditing]
Options:=Options-[dgEditing]
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Matematika s wav daty 2
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 29.4.2001 21:48:49
> Pred case se tu resil problem ziskani zvukovych dat z wavu. Me by zajimalo
> jak prevest obecne jakykoliv format wavu do formatu PCM, protoze jen s tim
> se da nasledne neco provadet.
Mno, na to asi budes potrebovat dekompresor ;-)
Pravdopodobne vyuzijes kodeku, tak se mrkni do napovedy MS Multimedia API na
topic Audio Compression Manager -> Converting Data from One Format to Another
Cau
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Matematika s wav daty 2
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.4.2001 22:03:49
Zdravim
> A to prave neni pravda. PCM je jen jednim z moznych vnitrnich formatu. K
> ulozeni zvukovych dat muze byt pouzit jakykoliv jiny kodek (tak se rika
> ovladaci pro kodovani a dekodovani dat). Kdyz se podivas do "ovladacich
***Vim, co jsou kodeky. No, ale myslim, ze se muzes spolehnout na to, ze WAV
bude v PCM kodovani. IMHO je natolik neprvadepodobne, ze by byl v jinem, ze
to ani nemusis programovat.
> Prevod do PCM formatu musi jit prave pres tyto kodeky, ale to nevim
jak.
> Jeste k hlavicce wavu. Vubec neni pravda, ze je vzdy dlouha 44 znaku.
Je
> to sice nejcastejsi, ale muze byt klidne dlouha 1 kB.
***Netvrdim, ze je to pravda, ale nekolikrat jsem slysel, ze to je 44bytu a
nikdy jinak.
Hurricane
Registry-(Vychozi)
[*] MJ <majun(zv)seznam(tec)cz> - 29.4.2001 22:23:59
Zdravim
Chci se zeptat na nasledujici vec:
Lze nejak zjistit VYCHOZI hodnotu KLICE v registru Windows.
Napr.:
spusteni souboru s priponou .HLP
v klic v registru HKEY_CLASSES_ROOT\.hlp - (Vychozi) "hlpfile" - jak
zjistim tuto hodnotu (hlpfile)???
Win98 Delphi 5
Predem diky za radu
Martin
majun(zv)seznam(tec)cz
Registry-(Vychozi)
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.4.2001 23:09:49
Zdravim
V tom samem klici je dalsi klic hlpfile a tam je ulozeno co a jak se
spousti. Je to z toho duvodu, ze mas treba pripony .rar, .r00, .r01,..... a
vse je prirazeno k rarfile.
Hurricane
----- Original Message -----
> Chci se zeptat na nasledujici vec:
> Lze nejak zjistit VYCHOZI hodnotu KLICE v registru Windows.
> Napr.:
> spusteni souboru s priponou .HLP
> v klic v registru HKEY_CLASSES_ROOT\.hlp - (Vychozi) "hlpfile" - jak
> zjistim tuto hodnotu (hlpfile)???Edit
[*] Cafi Atlas <cafi(zv)atlas(tec)cz> - 29.4.2001 23:36:00
Zdravim,
nevite nekdo, jak v editu nastavit, aby slo psat jen neco v urcitem
tvaru a nic vic?
Napr.: ppcpcccppc
p............pismeno
c............cislo
Predem diky moc. ;o)
MS SQL7: Transaction log
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 30.4.2001 00:25:41
Hello Pavel!
> Truncate Transaction Logu (i Shrink Database)je mozne snadno
> automatizovat viz. planovani jobu na serveru, pouzivame to,
> funguje to a nastaveni je diky wizardu velmi jednoduche !
To je sice pekne, ale ked som dal 'truncate transaction log' tak asi po 2
desatinach sekundy vypisal, ze operacia prebehla uspesne a pochopitelne ten
subor stale zabera 1.5 Giga :-(
Bye
V.Mlich http://www.rar(tec)cz
Tisk gridu
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 30.4.2001 00:32:27
Hello Patrik!
> hr�l jsem si s Qreportem ale m�ݿku jsem tam nedostal,
Kazdy TQRBand ma vlastnost Frame, kde si urcis farbu a
hore/dole/vpravo/vlavo mozes enablovat draw.
Bye
V.Mlich http://www.rar(tec)cz
Edit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.4.2001 03:15:42
From: "Cafi Atlas" <cafi(zv)atlas(tec)cz>
> nevite nekdo, jak v editu nastavit, aby slo psat jen neco v urcitem
> tvaru a nic vic?
Ahoj,
podivej se na komponentu TMaskEdit.
Petr Vones, amatersky programator
Pouze jedna instance aplikace a FindWindow
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.4.2001 03:19:51
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Tak si tyto funkce predeklaruj ve sve unite, abys je nemusel volat z
> Windows.pas. Sahat do Windows.pas neni zrovna nejlepsi napad.
Ahoj,
I kdyz asi nejlepsi reseni by bylo opustit naprosto chybny zpusob zajisteni
behu jedne instance s vyuzitim FindWindow. Existuje nekolik jinych (a hlavne
spravnych) zpusobu, nechapu proc se nekdo stale snazi pouzivat prave ten
nejproblematictejsi.
Petr Vones, amatersky programator
Vylucne namapovanie sietoveho prostriedku v ramci
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 30.4.2001 06:40:42
Ahoj,
je mozne v Delphi (WinAPI) pripojit sietovy zdielany
prostriedok (adresar) tak, aby tento nebol "odkryty"
pre ostatne aplikacie?
Pri pouziti WNetAddConnection2 sa totiz spristupni
dotycna zlozka pre cele Windows, comu sa potrebujem
vyhnut. Neviem, ci som sa vyjadril dost zrozumitelne.
Zdielane data potrebujem spracovat len v ramci svojej
aplikacie a uzivatelovi "ukazat" len vymedzeny okruh
informacii.
Za pripadnu pomoc, ci radu vdaka.
Vlkovic
Delphi v p okladech
[*] Josef Madlik <josef.madlik(zv)worldonline(tec)cz> - 30.4.2001 07:14:58
M.Cantu: Mistrovstvi v D2
Mam jednu doma i s CD - nepouzita, nebot mam druhou v praci.
Pokud by o ni mel nekdo zajem, tak napiste na soukromy mail,
sleva 20%.
josef.madlik(zv)worldonline(tec)cz
----- Original Message -----
From: "Jiri Novotny" <NOVOTNY(zv)ftknw.upol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 27, 2001 10:42 AM
Subject: Re: Delphi v p okladech
> > oplati sa mi kupit knihu Mistrovstvi v Delphi 3.0 ?
> > doma mam D 5.0 - E.
> > (ide mi hlavne o to, aby som pochopil filozofiu tvorby aplikacii pod
> > Delphi-ckami)
>
> Pokud jsi UPLNY ZACATECNIK, tak ja bych spis doporucoval knihy od
> Marka Cantu a takove Mistrovstvi v Delphi 2 by uplne stacilo. Druha
> vec ale je, jestli to jeste sezenes. vyslo to v roce 1996 v Computer
> Pressu.
>
> Jirka.
>
Instalace IB 6.01
[*] Libor Thiel <thiel(zv)elapsh(tec)cz> - 30.4.2001 07:29:49
D5 Prof., W2K
Konecne jsem se dostal k tomu, abych si nainstaloval IB 6.01. Puvodne jsem
pouzival v. 5 - soucast Delphi. Ma to ale jeden hacek. Od te doby nemuzu
otevrit jedinou databazi. Vzdy mi to vyhodi hlasku podobnou teto:
"Unsupported on-disk structure for file dtbase.GDB; found 9, support 10"
Chybu dostanu jak z Delphi, tak z napr. z IBConsole.
Setkal jste se s t�m nekdo?
S pozdravem
Libor Thiel
thiel(zv)elapsh(tec)cz
dru�stvo ELAP
Sv�tl� Hora 321, 793 31
tel.: 0646 - 737080
fax: 0646 - 737081
e-mail: elap(zv)elapsh(tec)cz
URL: http://www.elapsh(tec)cz
Zavedeni COM objektu do pameti
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 30.4.2001 07:30:49
Principialne by se to dalo resit v metode _AddRef toho COM objektu. Tam by melo
vzdycky skoncit volani po vytvoreni instance.
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
> Zdravim,
>
> u klasicke DLL lze odchytit, kdyz si DLLku atachne nejaky process. Lze toto
> udelat i COMu?Vytvareni komponenty
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 30.4.2001 07:32:18
Nepsane pravidlo rika, ze interni promenne v objektech maji prefix F. Prejmenuj
tu promennou AlignC v private sekci na FAlignC a vsechny dalsi odkazy na tuhle
promennou a bude to chodit :)
Milan Tomes
P.S.: Zdrojak je jiz upraveny
> Ahoj,
> potreboval bych poradit v cem delam chybu. Pokuosim se
> vytvorit zdedenou komponentu (poprve v zivote). Zde je kus
> zdrojoveho kodu: ...
> type
> TDrawTabGrid = class(TDrawGrid)
> private
> FAlignC : string; // TADY TO
> procedure SetAlignC(var value: string);
> protected
> public
> published
> property AlignC: string read FAlignC write SetAlignC;
> end;
> implementation
> procedure TDrawTabGrid.SetAlignC(var value: string);
> begin
> ShowMessage(value);
> end;Zaslani zpravy s parametrem
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 30.4.2001 07:32:18
Tak si zkus pohrat s callback procedurou. Viz napr timeSetEvent popr.
DDECallback atp...
WinAPI s tim je docela prolezle a myslim, ze by to mohlo splnit tve ocekavani.
Milan Tomes
> Nebo to jde vyresit jeste jinak a zatim jsem na to neprisel a
> nikde se to nedovedel?
>
> Diky
> *****************
> Jarda Jirava
CELY MESIC - od prveho do posledniho
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 30.4.2001 07:34:15
> nevite prosim nekdo, jak jednoduse zjistit datum prvniho a posledniho
> konkretniho mesice, aniz bych musel dekodovat a zase skladat datum?
>
> Jde o to, ze casto delam sestavy od prvniho do posledniho nejakeho
> mesise (nebo od prvniho k dnesku) a Decode a Encode mi pripada dost
> otrocke.
>
Co znamena, ze je to otrocke? Melo by stacit napsat dve
jednoduche funkce (neco jako DejPrvni, DejPosledni) s vhodnymi
parametry a v nich ten jeden par Decode/Encode pouzit. Nebo
jsem to nepochopil spravne?
David Lebeda
Vylucne namapovanie sietoveho prostriedku v ramci
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 30.4.2001 07:35:25
----- Original Message -----
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
> je mozne v Delphi (WinAPI) pripojit sietovy zdielany
> prostriedok (adresar) tak, aby tento nebol "odkryty"
> pre ostatne aplikacie?
>
> Pri pouziti WNetAddConnection2 sa totiz spristupni
> dotycna zlozka pre cele Windows, comu sa potrebujem
> vyhnut. Neviem, ci som sa vyjadril dost zrozumitelne.
> Zdielane data potrebujem spracovat len v ramci svojej
> aplikacie a uzivatelovi "ukazat" len vymedzeny okruh
> informacii.
Ahoj.
Pokud tomu rozumim, tak chces aby uzivatel v pruzkumnikovi slozku nevidel.
POkud pouzijes UNC adresaci tak to jde.
Zabranit zobrazovani se da jednoduse tak, ze jmeno sdilene slozky doplnis
znakem dolaru ($). Napr. slozka C:\Dokumenty\nevidim$ nebude po nasdileni na
ostatnich pocitacich viditelna, i kdyz bude dostupna. Ja to pouzivam k
oddeleni pracovnich adresaru, ktere nepotrebuje uzivatel prochazet
pruzkumnikem od datovych slozek kam uklada soubory. Neni to sice zadne
zabezpeceni, ale v praxi to zjednodusi zivot uzivatelum a snizuje to moznost
nejake chyby.
Ludek
Instalace IB 6.01
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 30.4.2001 07:41:18
----- Original Message -----
From: "Libor Thiel" <thiel(zv)elapsh(tec)cz>
> Konecne jsem se dostal k tomu, abych si nainstaloval IB 6.01. Puvodne jsem
> pouzival v. 5 - soucast Delphi. Ma to ale jeden hacek. Od te doby nemuzu
> otevrit jedinou databazi. Vzdy mi to vyhodi hlasku podobnou teto:
>
> "Unsupported on-disk structure for file dtbase.GDB; found 9, support 10"
>
> Chybu dostanu jak z Delphi, tak z napr. z IBConsole.
Ahoj.
Pred instalaci IB6 jsi mel zazalohovat puvodni databaze s volbou
"Transportable format" a po instalaci IB6 je z teto zalohy obnovit. IB6 ma
totiz jinou strukturu souboru na disku.
Je to ciste teoreticka odpoved, protoze jsem to v praxi neprovadel.
Ludek
Jak udelat v memo dalsi radek
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 30.4.2001 07:42:49
napriklad takto:
memo.lines.text := 'radek1' + #13 + 'radek2';
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
Jakym zpusobem udelam v komponente memo dalsi radek zatim do ni vkladam text
pouze takto memo.lines.text:='neco';Vylucne namapovanie sietoveho prostriedku v ramci
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 30.4.2001 07:53:03
Ahoj,
nesla by pouzit sitova cesta misto jmena disku ? Tedy misto "Q:\MyFolder"
pouzivat "\\ServerName\MyFolder", to adresar nenamapuje, ale da se pouzivat
(samozrejme pokud je sdileny).
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele Peter Vlkovic
> Odesl�no: 30. dubna 2001 06:41
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Vylucne namapovanie sietoveho prostriedku v ramci aplikacie
>
>
> Ahoj,
>
> je mozne v Delphi (WinAPI) pripojit sietovy zdielany
> prostriedok (adresar) tak, aby tento nebol "odkryty"
> pre ostatne aplikacie?
>
> Pri pouziti WNetAddConnection2 sa totiz spristupni
> dotycna zlozka pre cele Windows, comu sa potrebujem
> vyhnut. Neviem, ci som sa vyjadril dost zrozumitelne.
> Zdielane data potrebujem spracovat len v ramci svojej
> aplikacie a uzivatelovi "ukazat" len vymedzeny okruh
> informacii.
>
> Za pripadnu pomoc, ci radu vdaka.
>
> Vlkovic
>
DBNavigator
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 30.4.2001 07:57:19
> > Zdravim,
> > pri pouziti tlcitka "-" na DBNavigatoru se zobrazi hlaseni v
> > anglictine, jestli se ma tento zaznam skutecne smazat. Chci se
> > zeptat jak toto co nejjednoduseji pocestit.
> > Predem diky za jakoukoli radu.
> >
>
> Pokud mas Delphi 5, zkus si prelozit unity consts.pas a dbconsts.pas
> do
> cestiny a potom pridat do projektu a presvedcit projekt, aby si je
> prelozil....
>
A proc nepouzit Zbyskuv localizator? Vzdyt je to daleko lepsi
reseni, pocesti se tim nejen buttonky, ale i hlaseni vyjimek.
Da se stahnout verze 3, ktera je freeware a nemel jsem s ni
zadne problemy ani v programech pod D5. Je pravda, ze v teto free
verzi vznikne soubor s priponou .csy, ktery se musi sirit s aplikaci,
ale to snad neni problem... Novejsi verze lokalizatoru umi pocestit
primo samotne exe.
Prijde mi to jako lepsi a prirozenejsi reseni, nez prekladat unity
z Delphi.
David Lebeda
DBNavigator
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 30.4.2001 08:02:04
> OK,. ja sa o to pokusam tiez.
> Nedari sa mi vsak presvedcit projekt aby si to prelozil...
>
Melo by pomoci tyto unity dat jako prvni v dpr souboru a na disk je
fyzicky umistit do adresare v searchpath (menu Project/Options).
SearchPath musi byt nastaven. Pak project prebuildovat.
Aspon mne to tak fungovalo. Je mozne, ze nektere kroky jsou
nadbytecne.
David Lebeda
> Jaro
>
> ----- Original Message -----
> From: "Tomas Vladik" <tom.vladik(zv)swadvice(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Wednesday, April 25, 2001 11:22 AM
> Subject: RE: DBNavigator
>
>
> > > Zdravim,
> > > pri pouziti tlcitka "-" na DBNavigatoru se zobrazi hlaseni v
> > > anglictine, jestli se ma tento zaznam skutecne smazat. Chci se
> > > zeptat jak toto co nejjednoduseji pocestit. Predem diky za
> > > jakoukoli radu.
> > >
> >
> > Pokud mas Delphi 5, zkus si prelozit unity consts.pas a
> > dbconsts.pas do
> > cestiny a potom pridat do projektu a presvedcit projekt, aby si je
> > prelozil....
> >
> > T.
> >
> >
> >
>
Seznam objektu na TForm
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 30.4.2001 08:03:12
From: Petr Vasicek <pvasicek(zv)operamail.com>
> Muzu nejak v run-time zjistit, jake vsechny objekty mam na nejake Form?
Jestli
> ano, mohu s nimi dale pracovat? Treba kdybych potreboval posunout vsechny
Ahoj,
Nevim, jestli jsem dotaz spravne pochopil, ale jestli Ti jde jen o nejakou
akci nad vsema objektama na Formu, pak TForm ma (jako potomek TWinControl)
properties ControlCount a Controls, takze muzes napsat
for I := 0 to Form.ControlCount - 1 do
NecoDelej (Form.Controls[I]);
Je to i v helpu.
Zdravim
Petr
Edit
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 30.4.2001 08:15:21
Zkus pouzit MaskEdit, nebo Edit si preprogramovat sam. jako napad to neni
spatne, ale chtelo byto dotahnout do konce. napr. jake pismeno - velke nebo
male - dale jestli to musi byt konkterni pismeno nebo nejaka pismena atd.
atd.
Pavel
> Zdravim,
> nevite nekdo, jak v editu nastavit, aby slo psat jen neco v urcitem
> tvaru a nic vic?
> Napr.: ppcpcccppc
>
> p............pismeno
> c............cislo
>
> Predem diky moc. ;o)
>Pouze jedna instance aplikace a FindWindow
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.4.2001 08:18:13
Ahoj,
Asi jsem Ti neporozumel. V D5 je proste chyba deklarace a tak jsem si ji
opravil. Navzdy. A nemusim mit na pameti, ze do kazdeho projektu to
musim napsat znovu.
Jaro B.
> -----Original Message-----
> From: Zbysek Hlinka [mailto:hlinka(zv)hlinka(tec)cz]
> Sent: Friday, April 27, 2001 5:10 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Pouze jedna instance aplikace a FindWindow
>
>
> On 27 Apr 2001, at 8:55, Bene# Jaroslav wrote:
>
> > Pouzivam multinst.pas, kde je vse uz hotove a je to OK.
> Pouze v Delphi
> > 5 je chybka a je potreba upravit windows.pas viz. (jinak to zdechne)
> >
> > function BroadcastSystemMessageA; external user32 name
> > 'BroadcastSystemMessageA';
> > function BroadcastSystemMessageW; external user32 name
> > 'BroadcastSystemMessageW';
> > function BroadcastSystemMessage; external user32 name
> > 'BroadcastSystemMessage';
>
> Tak si tyto funkce predeklaruj ve sve unite, abys je nemusel volat z
> Windows.pas. Sahat do Windows.pas neni zrovna nejlepsi napad.
>
>
> 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
>
> Grafy do D5
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 30.4.2001 08:27:03
>
> > Co pouzivate za grafy v Delphi 5?
> >
> > Zajimaji mne v podstate jen free (nebo za mirny poplatek) a hlavne se
> > zdrojem..
>
> xyGraph. Je to free se zdrojakama a pracuje se s tim skvele.
> www.kestral.com.au/devtools/xygraph .
>
Tahle komponenta je sice dobra, ale me osobne se ji nepodarilo rozumne
rozchodit v Delphi 5 (vyzaduje nastaveni kompilatoru nekompatibilni s jinou
komponentou). Jeji vyvoj ustal nekdy pred tremi lety.
Ota Maly
Pouze jedna instance aplikace a FindWindow
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 30.4.2001 08:30:20
Zdravim,
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 30, 2001 3:19 AM
Subject: Re: Pouze jedna instance aplikace a FindWindow
> Ahoj,
>
> I kdyz asi nejlepsi reseni by bylo opustit naprosto chybny zpusob
zajisteni
> behu jedne instance s vyuzitim FindWindow. Existuje nekolik jinych (a
hlavne
> spravnych) zpusobu, nechapu proc se nekdo stale snazi pouzivat prave ten
> nejproblematictejsi.
>
> Petr Vones, amatersky programator
V cem je tedy nejproblematictejsi ? Napada mne jedine nutnost unikatnosti
tridy hlavniho okna.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
CELY MESIC - od prveho do posledniho
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 30.4.2001 08:32:14
> > nevite prosim nekdo, jak jednoduse zjistit datum prvniho a posledniho
> > konkretniho mesice, aniz bych musel dekodovat a zase skladat datum?
> >
> > Jde o to, ze casto delam sestavy od prvniho do posledniho nejakeho
> > mesise (nebo od prvniho k dnesku) a Decode a Encode mi pripada dost
> > otrocke.
> >
>
> Co znamena, ze je to otrocke? Melo by stacit napsat dve
> jednoduche funkce (neco jako DejPrvni, DejPosledni) s vhodnymi
> parametry a v nich ten jeden par Decode/Encode pouzit. Nebo
> jsem to nepochopil spravne?
>
> David Lebeda
To ja jsem nepochopil vubec. Potrebujes den v tydnu zacatku a konce mesice
nebo potrebujes zjistit, ze mesic zacina vzdy prvniho a konec je 31/30 dni s
vyjimkou unora.
Protoze taky delam s datumy (s daty) napis co potrebujes
Pavel ZIDEK
DelphiX & Video
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 30.4.2001 09:04:51
Ahoj,
podivej se na
http:\\www.delphi-jedi.org-DelphiGraphics-DirectX-Download.htm.
S pozdravem
Jaroslav Sipek
mailto:jaroslav.sipek(zv)idea(tec)cz
http:\\www.idea(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Zdenek Janish
> Sent: Saturday, April 28, 2001 9:29 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: DelphiX & Video
>
>
> Dobry den,
>
> nemate, prosim, nekdo nejaky link ci priklad jak prehravat
> pomoci DelphiX
> (DirectX) video s vyuzitim vsech dostupnych kodeku, ktere
> jsou instalovany
> (abych se snimi nemusel zabyvat).
>
> Dekuji
> Zdenek
>
>
>
dbgrid
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 30.4.2001 10:03:20
Mozes pouzivat moj EDGrid komponentu z baliku komponent Edge.
EDBgrid priam vie pravat s Query - indexovanie a vyhladanie na baze SQL atd.
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: Jaroslav Uher [SMTP:moravia(zv)mbox.vol(tec)cz]
> Odesl�no: 29. apr�l 2001 11:21
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: dbgrid
>
> Ahoj,
>
> From: "celda" <jcelikovsky(zv)mbox.dkm(tec)cz>
>
> > Umoznuje DBGrid napriklad abecedne serazene zobrazeni polozek(radku)?
> > Jestlize ne, jaka je na to vhodna komponenta (ktera pokud mozno jde
> > provazat s db). Dekuju, Celda.
>
> nejlepe pomoci SQL. Komponenty zalezi na tom, o kterou DB se
> jedna.
>
> Jarek Uher
> MS SQL7: Transaction log
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 30.4.2001 10:17:13
BACKUP LOG [Jmeno DB] with TRUNCATE_ONLY
+ nasledny Shrink DB ti na 100% soubor logu smrskne.
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Viliam Mlich
> Sent: Monday, April 30, 2001 12:26 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: MS SQL7: Transaction log
>
>
> Hello Pavel!
>
> > Truncate Transaction Logu (i Shrink Database)je mozne snadno
> > automatizovat viz. planovani jobu na serveru, pouzivame to,
> > funguje to a nastaveni je diky wizardu velmi jednoduche !
>
> To je sice pekne, ale ked som dal 'truncate transaction log' tak asi po 2
> desatinach sekundy vypisal, ze operacia prebehla uspesne a
> pochopitelne ten
> subor stale zabera 1.5 Giga :-(
>
> Bye
> V.Mlich http://www.rar(tec)cz
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.249 / Virov� b�ze: 122 - datum vyd�n�: 13.4.2001
>Existuje typ pole?
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 30.4.2001 10:45:27
Je nejaka funkce v BDE, ktera mi zjisti, zda zadany typ pole, databaze
podporuje?
Rozdily v kompiovanem exe
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 30.4.2001 10:57:42
Ahoj,
muze mi nekdo vysvetlit, proc se lisi vysledny EXE kod, kdyz prelozim STEJNY
zdrojovy kod ?
Martin
Pouze jedna instance aplikace a FindWindow
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 30.4.2001 10:59:05
Jenze to je prave ten problem. Ja mam treba tridu hlavniho okna vzdy Tf_Main. No
a problem je na svete :(((
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> V cem je tedy nejproblematictejsi ? Napada mne jedine nutnost unikatnosti
> tridy hlavniho okna.
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
Multijazycnost
[*] Jirka Skladal <jirka.skladal(zv)seznam(tec)cz> - 30.4.2001 11:15:38
Sorry, ze jsem poprve nezadal predmet.
Ahoj lidi.
Jak resite problem multijazycne aplikace?
Jirka
MS SQL7: Transaction log
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 30.4.2001 11:21:14
Ahoj,
doporucuji pravidelne pouzivat DUMP TRANSACTION, ktery dava v soucinosti se
zalohovani DB moznost restore databaze do urciteho casoveho okamziku. S
kazdym zazalohovanim se Log totiz zaroven vyprazdni.
To ale neresi problem se zmensenim velikosti jiz velkeho Transaction Logu.
To se mi pomoci zadnych prikazu ani Enterprise Manageru nepodarilo. Dokonce
ani zaloha a obnoveni databaze nepomohou (zaloha transakcniho logu si
pamatuje jak ma byt velky).
Jedinou sanci vidim ve vytvoreni nove Db a prevedeni vsech DB objektu pomoci
Data Transformation Services Wizard (= v menu polozka Import and Export
Data) a nebo pres export dat do ASCII, vytvoreni nove DB s DB-objekty a
import dat z ASCII.
S pozdravem, Lada
> Hello Pavel!
>
> > Truncate Transaction Logu (i Shrink Database)je mozne snadno
> > automatizovat viz. planovani jobu na serveru, pouzivame to,
> > funguje to a nastaveni je diky wizardu velmi jednoduche !
>
> To je sice pekne, ale ked som dal 'truncate transaction log' tak asi po 2
> desatinach sekundy vypisal, ze operacia prebehla uspesne a pochopitelne
ten
> subor stale zabera 1.5 Giga :-(
UDP, firewall, proxy
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 30.4.2001 11:27:48
Zdravim,
v aplikaci pouzivam UDPClient a UDPServer z Indy. Obe na portu 8090. Co
mam udelat, aby aplikace fungovala i na intranetu, ktery je chranen
firewallem, proxy a ma povolen pouze port 80? (Myslim tim aby fungovala z
intranetu ven a zpet). Jde to vubec nejak? Hledam kde muzu, ale asi spatne.
Dik.
Michal
JPEG v databazi
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 30.4.2001 12:22:53
DDV,
maly dotaz na praci s JPEG obrazky v databazi (D4 prof, IB6, IBO).
V soucasne dobe ukladam JPEG obrazky tak, ze mam TImage a pomoci
JMegNeeded() neo jak se to prene jmenuje delam v TJPegImage JPG obrazek a
ukladam to pres stream do blobu, ale
1) neni to data-aware (pro prohlizeni), takze musim zakazat prechod na jiny
zaznam v dobe, kdy obrazek natahuji a to nekdy trva dlouho, protoze obrazky
jsou velke (jednotky MB)
2) neumim prerusit nacitani z streamu do image takze to blokuje aplikaci
3) prijde mi to v porovani s pouzitim DBImage desne neobratne ( snad jen, ze
to akceptuje Drag'n'Drop souboru s obrazkem z exploreru je pekne.
Nemate nekdo nejaky lepsi zpusob, jak z souboru (BMP), clipboardu, (pripadne
cteni TIFFu - to vubec nenumim) udelat JPEG a ulozit jej do DB (tady mi to
pouzivani JpegNeeded() a assignovani Piturtes nevadi a ani mne moc presuseni
streamu) ?
Hlavne jak s prohlizenim?
Chtel bych, aby fungoval program tak, ze na formulari bude grid s nejakymi
udaji k tem obrazkum a v prave casti bude obrazek (zobrazuji se JPEGy) a
bude se tvarit jako data-aware - to vse jde - a bude mozne behem zobrazovani
jednoho velkeho obrazku prejit na dalsi zanam (uvidim ze to neni co chci a
jdu dale - necekam na cele dokresleni).
Neumim rozume prerusit nacitani z streamu, abych mohl zacit nacitat dlasi
zaznam a pak to vypada tak, ze se ceka na dokresleni jednoho obrazku a
jakmile to dobehne, tak se zacina s dlasim... nepekne, jak bych takovy
program nechtel pouzivat, tak ze jej nechci ani napsat :-)
Diky za namety a rady!
a.Uzamceni stanice
[*] jemeto <jemeto(zv)volny(tec)cz> - 30.4.2001 12:35:47
D5E, NT
Lze zachytit udalost, kdy uzivatel "uzamkne PC" resp. "odemkne" pomoci
(Ctrl+Alt+Del). Zasila Windows v tomto pripade nejake zpravy.
Diky za pomoc
UDP, firewall, proxy
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 30.4.2001 13:43:46
----- Original Message -----
From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> Zdravim,
> v aplikaci pouzivam UDPClient a UDPServer z Indy. Obe na portu 8090. Co
> mam udelat, aby aplikace fungovala i na intranetu, ktery je chranen
> firewallem, proxy a ma povolen pouze port 80? (Myslim tim aby fungovala z
> intranetu ven a zpet). Jde to vubec nejak? Hledam kde muzu, ale asi
spatne.
Ahoj.
Myslim, ze bez konfigurace proxy se neobejdes.
Ludek
Pridavanie Komponenty za behu programu
[*] Galfy Milan <galfym(zv)yahoo.co.uk> - 30.4.2001 12:51:48
Caute,
mam takyto problem: Pridavam Komponentu - Button za
behu programu na formular a potreboval by som naplnit
nejake Udalosti napr.: OnClick,
OnMouseDown(Up)(Move)....
Mozete mi poradit ako?????
Diki moc....
Milan (Zigi) Galfy
____________________________________________________________
Do You Yahoo!?
Get your free (zv)yahoo.co.uk address at http://mail.yahoo.co.uk
or your free (zv)yahoo.ie address at http://mail.yahoo.ie
Multijazycnost
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 30.4.2001 14:13:52
http://www.localizator.com
aneb tisice dekovnych dopisu ;-)
Mac
----- Original Message -----
From: "Jirka Skladal" <jirka.skladal(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 30, 2001 11:15 AM
Subject: Multijazycnost
> Sorry, ze jsem poprve nezadal predmet.
>
> Ahoj lidi.
>
> Jak resite problem multijazycne aplikace?
>
> Jirka
>
> Vylucne namapovanie sietoveho prostriedku v ramci
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 30.4.2001 14:20:42
> nesla by pouzit sitova cesta misto jmena disku ? Tedy misto "Q:\MyFolder"
> pouzivat "\\ServerName\MyFolder", to adresar nenamapuje, ale da se pouzivat
> (samozrejme pokud je sdileny).
> > Ahoj,
> >
> > je mozne v Delphi (WinAPI) pripojit sietovy zdielany
> > prostriedok (adresar) tak, aby tento nebol "odkryty"
> > pre ostatne aplikacie?
> >
Vdaka za snahu, ale trochu sme sa nerozumeli.
Mam na sieti zdielany adresar, kde su urcite data,
ktore chcem spristupnit len konkretnej aplikacii.
Robim to tak, ze si v ramci aplikacie pripojim
sietovy prostriedok pommocou funkcie WNetAddConnection2,
Ako parameter samozrejme davam UNC cestu
t.j. \\server\folder. Prislusne zdielacie
heslo pripadne meno je vsak pred uzivatelom
skryte ("pozna" ho len aplikacia).
Lenze v okamihu, ked si aplikacia dotycnu
folder takto "otvori", spristupni sa tato
celemu Windows, t.j. uzivatel sa k nej
moze dostat napriklad cez "okolite pocitace"...
A tomuto by som chcel prave zabranit.
Nedalo by sa to urobit napriklad nejakym
"hookom" na sietove funkcie, aby som
takyto "nepovoleny" pristup (t.j. mimo
aplikaciu) zakazal ?
Vlkovic
Vylucne namapovanie sietoveho prostriedku v ramci
[*] Hurricane <hurricane(zv)quick(tec)cz> - 30.4.2001 15:18:13
Zdravim
To asi ne, pokud je adresar sdileny, je videl v okolnich pocitacich. Tazatel
potrebuje, aby jen jeho aplikace mohla pristupovat do adreare na jinem
pocitaci.
Napadlo me, jestli by to neslo resit pres heslo. Ze by si tu slozku udelal
sdilenou pres heslo (cteni i zapis) a to heslo by pak zadavala tvoje
aplikace. Kdyz uzivatel nezna heslo, je mu ikona zamceneho adresare k
nicemu.
Hurricane
----- Original Message -----
> nesla by pouzit sitova cesta misto jmena disku ? Tedy misto "Q:\MyFolder"
> pouzivat "\\ServerName\MyFolder", to adresar nenamapuje, ale da se
pouzivat
> (samozrejme pokud je sdileny).
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
>
> > -----P�vodn� zpr�va-----
> > je mozne v Delphi (WinAPI) pripojit sietovy zdielany
> > prostriedok (adresar) tak, aby tento nebol "odkryty"
> > pre ostatne aplikacie?
> >
> > Pri pouziti WNetAddConnection2 sa totiz spristupni
> > dotycna zlozka pre cele Windows, comu sa potrebujem
> > vyhnut. Neviem, ci som sa vyjadril dost zrozumitelne.
> > Zdielane data potrebujem spracovat len v ramci svojej
> > aplikacie a uzivatelovi "ukazat" len vymedzeny okruh
> > informacii.Vicejazycne aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.4.2001 15:19:10
On 30 Apr 2001, at 11:14, Jirka Skladal wrote:
> Jak resite problem multijazycne aplikace?
Jazykovym Lokalizatorem. Pro kazdy jazyk mam samostatnou
lokalizacni DLL.
Nebo jsi myslel neco jineho?
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
Prirazeni vice promennym najednou
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 30.4.2001 15:25:49
Ahoj, zdravim vsechny.
Nevite nekdo, kdyz mam promenne var treba modul1, modul2, modul3 .. :
String;
Jak mohu udelat co nejlepe prirazeni najednou ?
Myslim treba nejak takto:
for i:= 1 to 3 do
begin
modul + (i):= 'neco';
end;
Tohle nefunguje, ale jde mi o tento princip, jak to udelat najednou ?
Jestli mi rozumite.
Diky moc.
Filip
Pridavanie Komponenty za behu programu
[*] Radim Hampel <hampel(zv)ecommerce(tec)cz> - 30.4.2001 15:40:41
OnClick := MujClick;
:-)
Podivej se na help, treba k TNotifyEvent
-----Original Message-----
From: Galfy Milan [mailto:galfym(zv)yahoo.co.uk]
Sent: Monday, April 30, 2001 1:52 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Pridavanie Komponenty za behu programu
Caute,
mam takyto problem: Pridavam Komponentu - Button za
behu programu na formular a potreboval by som naplnit
nejake Udalosti napr.: OnClick,
OnMouseDown(Up)(Move)....
Mozete mi poradit ako?????
Diki moc....
Milan (Zigi) Galfy
____________________________________________________________
Do You Yahoo!?
Get your free (zv)yahoo.co.uk address at http://mail.yahoo.co.uk
or your free (zv)yahoo.ie address at http://mail.yahoo.ie
Prirazeni vice promennym najednou
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 30.4.2001 16:19:22
Ahoj, jde o to jestli chces mit Vice identickych kopii nebo staci jedna
kopie a nekolik ukazatelu.
Pak by bylo nejjednoduzsi pouzit promenne typu PString.
Martin
> Nevite nekdo, kdyz mam promenne var treba modul1, modul2, modul3 .. :
> String;
> Jak mohu udelat co nejlepe prirazeni najednou ?
> Myslim treba nejak takto:
>
> for i:= 1 to 3 do
> begin
> modul + (i):= 'neco';
> end;
>
> Tohle nefunguje, ale jde mi o tento princip, jak to udelat najednou ?Prirazeni vice promennym najednou - upresneni
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 30.4.2001 16:37:57
Chci do tech promennych ukladat retezce. Do kazde jiny. Jde mi jen o to,
abych nemusel delat:
mod1:= 'aaaa';
mod2:= 'add';
mod3:= 'asa';
Jelikoz maji vsechny stejny nazev az na cislo, chtel bych to cislo suplovat
tim cyklem for i:= 1 to 3 do
Jenom nevim, jak mu rici, ze je to vzdy promenna s cislem tedy mod + i. Jak
to priradit ?
Dik.
Filip
Prirazeni vice promennym najednou - upresneni
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 30.4.2001 16:41:19
Ahoj,
tak proc si neudelas pole stringu?
var Txt : array[1..3] of String;
X : Integer;
begin
for X := 1 to 3
do Txt[X] := 'Ahoj!';
end;
Ales
> -----Original Message-----
> From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
>
> Jenom nevim, jak mu rici, ze je to vzdy promenna s cislem
> tedy mod + i. Jak
> to priradit ?
> Vicejazycne aplikace
[*] Jirka Skladal <jirka.skladal(zv)seznam(tec)cz> - 30.4.2001 17:27:49
No chci za behu prepinat mezi jazyky.
Jazykovym Lokalizatorem. Pro kazdy jazyk mam samostatnou
lokalizacni DLL.
Nebo jsi myslel neco jineho?
Jak resite problem multijazycne aplikace?
Jirka
Orientace v DBGridu
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 30.4.2001 17:33:25
Ahoj kluci, tak se po dlouhe dobe ozyvam, muzete mi nekdo prozradit jak odchytavat polohu klicku mysi v DBGridu? Jde mi o cislo sloupce a radku, take jestli jak se da odchytavat klicknuti na titul, jde mi totiz o vytvoreni neceho jako je trideni podle pole, jako je to napriklad ve zpravach v OE.
Doufam ze jsem to rekl srozumitelne
Aldik, amater vsech amateru...ovsem snazivej...
D 4,5 W98,95
Pouze jedna instance aplikace a FindWindow
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.4.2001 17:41:50
On 30 Apr 2001, at 8:18, Bene# Jaroslav wrote:
> Asi jsem Ti neporozumel. V D5 je proste chyba deklarace a tak jsem si
> ji opravil. Navzdy. A nemusim mit na pameti, ze do kazdeho projektu to
> musim napsat znovu. Jaro B.
Mno, navzdycky - do nove verze Delphi. :-) Pokud chybu neopravi,
musis tam sahnout znovu. Takze se to dela tak, ze si udelas dalsi
unitu, ve ktere uvedes spravne deklarace, a tu pak jen pridas do
uses za deklaraci Windows, a je po starostech - navzdycky.
V podstate nejak takto (ale s opravami):
unit WinOpravy;
interface
{$EXTERNALSYM BroadcastSystemMessageA}
function BroadcastSystemMessageA(Flags: DWORD; Recipients:
PDWORD;
uiMessage: UINT; wParam: WPARAM; lParam: LPARAM):
Longint; stdcall;
{$EXTERNALSYM BroadcastSystemMessageW}
function BroadcastSystemMessageW(Flags: DWORD; Recipients:
PDWORD;
uiMessage: UINT; wParam: WPARAM; lParam: LPARAM):
Longint; stdcall;
{$EXTERNALSYM BroadcastSystemMessage}
function BroadcastSystemMessage(Flags: DWORD; Recipients:
PDWORD;
uiMessage: UINT; wParam: WPARAM; lParam: LPARAM):
Longint; stdcall;
const
user32 = 'user32.dll';
implementation
function BroadcastSystemMessageA; external user32 name
'BroadcastSystemMessageA';
function BroadcastSystemMessageW; external user32 name
'BroadcastSystemMessageA';
function BroadcastSystemMessage; external user32 name
'BroadcastSystemMessageA';
end.
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 DBGrid.OnDrawColumnCell
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 30.4.2001 18:30:54
[P��loha v souboru: Problem2.gif]
Ahoje,
Pozrite si prosim obrazok a skuste poradit co robim zle, resp. kde je
zakopany pes (Bug) ?
Potrebujem opravit kod u seba alebo niekde vo vetve k DBGrid.
Moja obsluha OnDrawColumnCell:
procedure TFrmBrowseAuto.DBPxGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Column.Field.DataSet.FieldByName ('CP').AsInteger = 99
then DBPxGrid1.Color:= $00A0F0F0
else DBPxGrid1.Color:= clWindow;
DBPxGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;
Dakujem, Jaro
P.S. pre Admina:
Sorry za prilohu, snazil som sa ju naozaj zmensit na minimum, ale v tomto
pripade
si myslim, ze 1x vidiet je ovela viac ako 1000 slov.
ClipBoard
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 30.4.2001 18:37:24
zdravim konferenciery.
Co s tim ??? Po provedeni Memo1.CopyToClipBoard; jsou data ve schrance,
ale jen pro mou aplikaci. Treba do worda se to nedostane.
Pokud ale z mema rucne oznacim a kopiruji , tak je vse OK. Poradi mi nekdo v
cem je zakopany pes ? diky valik
Vytvareni komponenty
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 30.4.2001 21:34:28
Zkousel jsi to ? Ja sice ne, ale vsadim se ze to chodit nebude. :))).
To pravidlo je jen nepsane, nema vliv na funcknost.
Problem je v procedure:
procedure SetAlignC(var value: string);
spravne ma byt
procedure SetAlignC(value: string);
V procedure namapovane na property property by nemel byt parametr
predavany odkazem, ale jen hodnotou.
Radim
> Nepsane pravidlo rika, ze interni promenne v objektech maji prefix F.
Prejmenuj
> tu promennou AlignC v private sekci na FAlignC a vsechny dalsi odkazy na
tuhle
> promennou a bude to chodit :)
>
> Milan Tomes
>
> P.S.: Zdrojak je jiz upraveny
>
> > Ahoj,
> > potreboval bych poradit v cem delam chybu. Pokuosim se
> > vytvorit zdedenou komponentu (poprve v zivote). Zde je kus
> > zdrojoveho kodu: ...
> > type
> > TDrawTabGrid = class(TDrawGrid)
> > private
> > FAlignC : string; // TADY TO
> > procedure SetAlignC(var value: string);
> > protected
> > public
> > published
> > property AlignC: string read FAlignC write SetAlignC;
> > end;
> > implementation
> > procedure TDrawTabGrid.SetAlignC(var value: string);
> > begin
> > ShowMessage(value);
> > end;Seznam objektu na TForm
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 30.4.2001 15:41:46 -0400
Cau,
toto presne potrebuju. Zahrnuje to i TImage?
Dik
Petr
>
>Ahoj,
>Nevim, jestli jsem dotaz spravne pochopil, ale jestli Ti jde jen o nejakou
>akci nad vsema objektama na Formu, pak TForm ma (jako potomek TWinControl)
>properties ControlCount a Controls, takze muzes napsat
>
>for I := 0 to Form.ControlCount - 1 do
> NecoDelej (Form.Controls[I]);
>
>Je to i v helpu.
>
> Zdravim
> Petr
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Rozdily v kompiovanem exe
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.4.2001 22:35:10
From: "Martin Dietl" <dietl(zv)4use(tec)cz>
> muze mi nekdo vysvetlit, proc se lisi vysledny EXE kod, kdyz prelozim STEJNY
> zdrojovy kod ?
Ahoj,
cim se lisi, velikosti nebo pouze obsahem pri binarnim porovnani ?
Petr Vones, amatersky programator
MS SQL7: Transaction log
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 30.4.2001 23:11:38
To jsem si kdysi take myslel. Bohuzel tomu tak neni !
(To plati pro MS SQL 7.0 a 6.5. K MS SQL 2000 zatim nemam pristup.)
S pozdravem, Lada
> BACKUP LOG [Jmeno DB] with TRUNCATE_ONLY
> + nasledny Shrink DB ti na 100% soubor logu smrskne.
>
> > > Truncate Transaction Logu (i Shrink Database)je mozne snadno
> > > automatizovat viz. planovani jobu na serveru, pouzivame to,
> > > funguje to a nastaveni je diky wizardu velmi jednoduche !
> >
> > To je sice pekne, ale ked som dal 'truncate transaction log' tak asi po
2
> > desatinach sekundy vypisal, ze operacia prebehla uspesne a
> > pochopitelne ten
> > subor stale zabera 1.5 Giga :-(
Spr�va pameti
[*] pavel(zv)bomex.citynet2000(tec)cz - 30.4.2001 23:20:48
Pomoc� TQuery z�sk�m v�sledek z datab�ze, kter� pak uprav�m a vlo��m ho do TMemo toto se opakuje mockr�t. P�i t�to akci se ov#em postupn� zapl�uje pam�#.
Pora�te mi pros�m n�kdo jak�m zp�sobem ji v�dy po vykonan�m cyklu vypr�zdnit.
P�edem d�ky.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.250 / Virov� b�ze: 123 - datum vyd�n�: 18.4.2001
IB6 a pouzitie indexu pri MAX(abc)
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 30.4.2001 23:22:50
Zdravim.
Preco nepouzije IB6 index pri Select Max(field) from Table ?
Roland.Spr�va pameti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.4.2001 23:43:15
From: <pavel(zv)bomex.citynet2000(tec)cz>
> Pomoc� TQuery z�sk�m v�sledek z datab�ze, kter� pak uprav�m a vlo��m ho do
> TMemo toto se opakuje mockr�t. P�i t�to akci se ov#em postupn� zapl�uje
Ahoj,
nejedna se nahodou o BLOB field a Delphi 4 ?
Petr Vones, amatersky programator
API function failed
[*] Danny <delphiforum(zv)atlas(tec)cz> - 7.3.2001 12:32:54
> No pokud se ti mrsi pisma a rozhranni obecne, tak to muze ukazovat na
> vycerpani GDI prostredku. Zkus si spustit RSRCMTR.EXE a podivat se, jestli
> nekde ve sve aplikaci nenechavas nejake neuvolnene GDI objekty.
Zkusil jsem to a opravdu mi to zahlasilo malo systemovych prostredku. Nejsem
si ale zcela jist, ze vim, co jsou to GDI objekty, takze ani nevim, jestli
je uvolnuju nebo ne.
Nemuze tu spotrebu sys.prostreku mit na svedomi nejaka jina aplikace? Mam
pocit, ze kdyz bezi neustale pouze Delphi, tak se to nestane.> --
> S pozdravem
> Petr E#ner
> petr.esner(zv)atlas(tec)cz
> ICQ# 105826792
>ClipBoard
[*] Hurricane <hurricane(zv)quick(tec)cz> - 1.5.2001 01:00:02
Zdravim
Me to funguje. Mam cudlik a volam mwCustomEdit.CopyToClipBoard. Pro TMemo to
je funguje taky. Pokud se snazis praci se schrankou naveset na klavesove
zkratky (Ctrl-c,...), tak to nedelej, jelikoz je to udelano.
Hurricane
----- Original Message -----
> Co s tim ??? Po provedeni Memo1.CopyToClipBoard; jsou data ve schrance,
> ale jen pro mou aplikaci. Treba do worda se to nedostane.
> Pokud ale z mema rucne oznacim a kopiruji , tak je vse OK. Poradi mi nekdo
v
> cem je zakopany pes ? diky valik
Vylucne namapovanie sietoveho prostriedku v ramci
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 1.5.2001 01:04:32
----- Original Message -----
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
> Vdaka za snahu, ale trochu sme sa nerozumeli.
> Mam na sieti zdielany adresar, kde su urcite data,
> ktore chcem spristupnit len konkretnej aplikacii.
> Robim to tak, ze si v ramci aplikacie pripojim
> sietovy prostriedok pommocou funkcie WNetAddConnection2,
> Ako parameter samozrejme davam UNC cestu
> t.j. \\server\folder. Prislusne zdielacie
> heslo pripadne meno je vsak pred uzivatelom
> skryte ("pozna" ho len aplikacia).
>
> Lenze v okamihu, ked si aplikacia dotycnu
> folder takto "otvori", spristupni sa tato
> celemu Windows, t.j. uzivatel sa k nej
> moze dostat napriklad cez "okolite pocitace"...
> A tomuto by som chcel prave zabranit.
>
Ahoj.
A opravdu potrebujes nasdilet disk ?
Nevystacil bys s UNC volanim souboru ?
Pokud ano napada mne krkolomny zpusob :
Adresar pojmenuj nejak divoce teba \\server\H45JUKL$ s dolarkem na konci.
Tim padem nebude videt v okolnich pocitacich a protoze i adresar bude znat
pouze tvoje aplikace tezko nekdo naslepo zada tento "kod". Neni to v zadnem
pripade zadnej Pentagon, ale prumerne zdatnemu BFU by to mohlo odolat. Navic
to bude az do doby spusteni aplikce i ochraneno heslem.
Ludek
ClipBoard
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 1.5.2001 04:26:16
Napadlo me to hned jak sem vypnul pocitac, chybi tam Memo1.selectAll;
> Me to funguje. .......> Hurricane
> > Co s tim ??? Po provedeni Memo1.CopyToClipBoard; jsou data ve
schrance,
> > ale jen pro mou aplikaci. Treba do worda se to nedostane.
> > Pokud ale z mema rucne oznacim a kopiruji , tak je vse OK. Poradi mi
nekdo
> v
> > cem je zakopany pes ? diky valik
>
>IB6 a pouzitie indexu pri MAX(abc)
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 1.5.2001 08:07:19
Ahoj
> Preco nepouzije IB6 index pri Select Max(field) from Table ?
Pouzije, pokud je definovan jako descending,
>
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
Rozdily v kompiovanem exe
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 1.5.2001 08:07:01
On 30 Apr 2001, at 10:57, Martin Dietl wrote:
> muze mi nekdo vysvetlit, proc se lisi vysledny EXE kod, kdyz prelozim
> STEJNY zdrojovy kod ?
V cem se lisi? Ve velikosti, v binarnim porovnani, ...?
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
Vicejazycne aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 1.5.2001 08:07:01
On 30 Apr 2001, at 17:27, Jirka Skladal wrote:
> No chci za behu prepinat mezi jazyky.
>
> Jazykovym Lokalizatorem. Pro kazdy jazyk mam samostatnou
> lokalizacni DLL.
Pak jsem ti odpovedel spravne. Prepinam mezi temi DLL, funguje
to az od D4 a ma to urcita omezeni, diky chybam ve VCL.
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
Proxy u FTP
[*] Petr Esner <petr.esner(zv)atlas(tec)cz> - 1.5.2001 09:26:21
Cau,
toto je dotaz hlavne na autora Synapse ;-) Snazim se pomoci TTCPBlockSocket
udelat FTP klienta, vsechno uz funguje, jen nevim, jak nastavit proxy server
nebo firewall. U http je to jednoduchy, proste se to da do hlavicky
pozadavku, ale co s ftp, kdyz si se serverem posilam jen kratke textove
zpravicky??
mejte se, Petr
dbComboBox
[*] celda <jcelikovsky(zv)mbox.dkm(tec)cz> - 1.5.2001 10:33:38
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Mam dbComboBox , napojenej na databazi, ale on zobrazi vzdy jen prvni polozku databaze. Potebuji, aby dal na vyber vsechny polozky ve sloupci. Dekuju, Celda.dbComboBox
[*] pavel(zv)bomex.citynet2000(tec)cz - 1.5.2001 10:35:48
Zdravim,
Doporucuji spis komponentu dbLookUpComboBox.
----- Original Message -----
From: celda
To: konference delphi
Sent: Tuesday, May 01, 2001 10:33 AM
Subject: dbComboBox
Mam dbComboBox , napojenej na databazi, ale on zobrazi vzdy jen prvni polozku databaze. Potebuji, aby dal na vyber vsechny polozky ve sloupci. Dekuju, Celda. ---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.250 / Virov� b�ze: 123 - datum vyd�n�: 18.4.2001
Vycitani OLE kontejneru (MS Access)
[*] Honza Spurny <xspurny(zv)informatics.muni(tec)cz> - 01.5.2001 11:15:54
Dobry den,
mam vytvorenou databasi v M$ Access. Jedna jeji tabulka obsahuje pole
typu OLE kontejner. (Je to jediny zpusob, jak v jdou v Accessu ukladat
do tabulky obrazky.). Umim vycist z teto databaze vsecky pole krome toho
obrazku. V Delphi se to "nahlasi" jako BLOB pole, ale kdyz na to navazu
DBImage, tak mi hlasi pri nacitani cybu, ze to pole neobsahuje platny
bitmapovy obrazek ('invalid bitmap format'). Jakym zpusobem by se dalo
ten obrazek vycist z te database...
Prosim, poradte, nebo se z toho zblaznim.
Predem dik
-- Sporak
--------- Created by Honza Spurny ---------
*******************************************
* e-mail: xspurny(zv)fi.muni(tec)cz
* url: http://www.fi.muni(tec)cz/~xspurny/
* ICQ: Sporak - 56828302
*******************************************Registry-(Vychozi)
[*] Delphi <DelphiForum(zv)seznam(tec)cz> - 1.5.2001 12:03:26
Proste tam, kde se pise jmeno te promenne se zada '' (tedy NIC).
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
TGrid Enter vs Tab
[*] Josef Semera <semera(zv)atlas(tec)cz> - 1.5.2001 12:22:02
Diky moc za vsechny rady,
ale nakonec jsem nalezl (v DBGridSinea) namet jak predelat velice kvalitne
Enter na Tab, tzn. ze vsechny mozne udalosti si osetri sam pan Delphi jako
kdybych stisk Tab. Az na to ze Tabem se ted nepresouvam v gridu ale mam to
tak ze s nim vyskakuju na dalsi Control ven z gridu. A navic to mam jako
predka RX ,tak i vsechny jeho vymozenosti.
Takze vsichni co toto resi at si prohlidnou Sineu. Je to mnohem lepsi nez
SelectedIndex+1.
Josef Semera
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Als
> Sent: Wednesday, April 25, 2001 10:36 PM
> To: Josef Semera
> Subject: Re: TGrid Enter vs Tab
>
> Ja to jiz dlouhou dobu delam pres SelectedIndex a funguje to dobre.
> Tady mas priklad :
>
> procedure Tfrm_main.DBGrid1KeyPress(Sender: TObject; var Key: Char);
> begin
> if key=#13 Then
> begin
> DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex+1;
> If DBGrid1.SelectedField.ReadOnly=True then
> DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex+1;
> end;
> end;
>
> navic to jeste kombinuji s tim ze mam promenou ktera oznacuje jestli
> byl do bunky zadan spravny udaj. Jestlize byl spatny pak ho musis
> opravit nebo dat ESC.
>Instalace IB 6.01
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 01.5.2001 12:25:06
Ahoj,
Lud�k ZITA wrote:
>
> Pred instalaci IB6 jsi mel zazalohovat puvodni databaze s volbou
> "Transportable format" a po instalaci IB6 je z teto zalohy obnovit. IB6 ma
> totiz jinou strukturu souboru na disku.
> Je to ciste teoreticka odpoved, protoze jsem to v praxi neprovadel.
To je spravne, ale vyzaduje to opetovnou odinstalaci IB6, reinstalaci
IB5.X a pak jeste jednou naopak. Podle mne lepsim resenim je
nainstalovat si Firebird, ten pracuje i s ODS9 daty. Ke stazeni na
http://firebird.sourceforge.net/
S pozdravem,
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
UDP, firewall, proxy
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 1.5.2001 13:13:41
On Mon, 30 Apr 2001, Lud�k ZITA wrote:
>
> ----- Original Message -----
> From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
>
> > Zdravim,
> > v aplikaci pouzivam UDPClient a UDPServer z Indy. Obe na portu 8090. Co
> > mam udelat, aby aplikace fungovala i na intranetu, ktery je chranen
> > firewallem, proxy a ma povolen pouze port 80? (Myslim tim aby fungovala z
> > intranetu ven a zpet). Jde to vubec nejak? Hledam kde muzu, ale asi
> spatne.
>
> Ahoj.
> Myslim, ze bez konfigurace proxy se neobejdes.
>
> Ludek
>
A kdybych misto UDP pouzil TCP?
M.Kralik
UDP, firewall, proxy
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 1.5.2001 13:32:39
> A kdybych misto UDP pouzil TCP?
> M.Kralik
To nepomuze. Jestli je tam firewall, jsou povolene pouze nektere porty, tzn.
domluvit se se spravcem site, aby povolil in&out tcp/udp komunikaci na danem
portu napr. jen pro nektere hosty nebo site.
Prechod z Paradoxu na IB
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 1.5.2001 13:37:26
Zdar vsem,
mame fungujici aplikaci na Paradoxu pres BDE a predelavame ji na IB (pres
BDE) - cas a zakaznici tlaci.
Narazil jsem na toto: je aktualizacni formular 1:N hlavicka se uklada pres
TTable, detaily pres kesovane TQuery a cele je to v transakci.
Ukladam 1. doklad: TTable.Append trva asi 0.5 sec.
Ukladam 2. doklad: TTable.Append trva asi 11 sec.
a dalsi doklady 11 az 13 sec.
setkal se s tim nekdo ?
da se neco delat ?
za nakopnuti predem dekuji
Zdenda Brejsa prog(zv)hjsoft(tec)cz
Registry-(Vychozi)
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.5.2001 13:47:19
Tim, ze nactes hodnotu s prazdnym jmenem klice.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
29.4.2001 MJ:
> Zdravim
> Chci se zeptat na nasledujici vec:
> Lze nejak zjistit VYCHOZI hodnotu KLICE v registru Windows.
> Napr.:
> spusteni souboru s priponou .HLP
> v klic v registru HKEY_CLASSES_ROOT\.hlp - (Vychozi) "hlpfile" - jak
> zjistim tuto hodnotu (hlpfile)???
StringGrid
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.5.2001 13:57:11
Ad 1, 2) TStringGrid jako takovy neumi zarovnavani. Mas 2 moznosti:
pouzit nejakou hotovou komponentu, ktera to umoznuje, nedavno se v
konferenci objevil http://www.micrel(tec)cz/delphi/ nebo si osetrit
udalost pri vykreslovani OnDrawCell a tam si s tim muzes delat co
chces. Priklad na zarovnani vpravo, 1. sloupec a radek tucne:
procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Value : string;
x : Integer;
begin
{ nadpisy budou tucne }
if (ARow = 0) or (ACol = 0)
then gridCeny.canvas.Font.Style := [fsBold]
else gridCeny.canvas.Font.Style := [];
if (ACol > 1) then begin
Value := gridCeny.Cells[ACol, ARow];
{ smazeme bunku }
gridCeny.Canvas.FillRect(Rect);
{ a vykreslime ceny zarovnane vpravo }
x := gridCeny.Canvas.TextWidth(Value);
gridCeny.Canvas.TextOut(Rect.Right - 4 - x, Rect.Top + 2, Value);
end;
end;
Ad 3) Podivej se na udalost OnSelectCell, vlastnost CanSelect
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
28.4.2001 Jiri Novotny:
> Ahoj,
> zkousim poprve pracovat se StringGridem a nemuzu prijit na par veci:
> 1) Jak udelat, aby se mi text napr. v prvnim sloupci zarovnaval
> doprava, ve druhem doleva a ve tretim treba na desetinnou carku?
> 2) Jak se nastavuji vlastnosti fontu pro kazdou bunku extra? Napr.
> text v bunce [1,1] aby byl tucne, v bunce [2,2] podtrzene apod.
> 3) Chtel bych, aby urcite bunky ve StringGridu byly editovatelne a
> jine ne, tzn. abych se pomoci mysi a kurzorovych klaves na ty
> needitovatelne bunky nedostal. Vlastnost FixedRows ani FixedCols
> pouzit nemohu, protoze ty needitovatelne bunky netvori souvislou
> oblast v gridu.
Ako na Master-DBComboBox a Slave-DBGrid
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 1.5.2001 16:37:09
Potreboval by som poradit najjednoduchsiu cestu na nasledovne:
Mam 1. Query, ktore ma 4 stlpce. Dva potrebujem zobrazit v jednom ComboBoxe
a druhe dva su parametrami do dalsieho Query, ktoreho vysledky zobrazujem v
Gride.
Uz dost dlho sa potim na rozny DBLookupXxxx a nezda sa, ze by to bolo to
prave orechove.
S pozdravom
Jaroslav Popluhar
Prechod z Paradoxu na IB
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 1.5.2001 19:38:14
On 1 May 2001, at 13:37, ZdenXk BrejXa wrote:
> mame fungujici aplikaci na Paradoxu pres BDE a predelavame ji na IB
> (pres BDE) - cas a zakaznici tlaci. Narazil jsem na toto: je
> aktualizacni formular 1:N hlavicka se uklada pres TTable, detaily pres
> kesovane TQuery a cele je to v transakci. Ukladam 1. doklad:
> TTable.Append trva asi 0.5 sec. Ukladam 2. doklad: TTable.Append trva
> asi 11 sec. a dalsi doklady 11 az 13 sec.
>
> da se neco delat ?
Da. Preklapet timto zpusobem program napsany pro souborovou
databazi na SQL databazi je skvely zpusob, jak si privodit i horsi
problemy, nez jen tento. Uz proto, ze IB se chova dost jinak nez
Paradox.
At cas tlaci nebo ne, nakonec to stejne bude nutne prepsat od
zakladu. To znamena, nepouzivat zadne Table komponenty (a
kdyz, tak pouze na mrnave tabulky), pro ukladani dat pouzivat
spise ulozene procedury, ale urcite ne Table komponentu, a pri te
prilezitosti je vhodne pouvazovat i jinem pristupu, nez je BDE. Ma-li
to byt rychlovka, pak se mozna vyplati pockat s razantnejsimi
zmenami na D6. V teto situaci bych mozna zkusil spis ukrok
stranou pri pokusu o ulozeni - namisto, aby to delalo BDE, bych
tam vlozil svuj kod pro ukladani, a pak bych udelal refresh. Ale je to
opicarna, ruku do ohne za to nedam.
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
Winsock a thready
[*] Michal K�rka <kurkami(zv)volny(tec)cz> - 1.5.2001 19:58:29
Nakonec jsem vse vyresil pridanim prikazu gethostbyname('localhost') do
hlavniho threadu. Dale uz vse funguje, jak ma. Stejne by me ale zajimalo,
kde je problem...
Mike
> Dobry den,
> pisu komponentu na stahovani souboru, ktera pouziva standardni funkce
> Winsocku. Aby stahovani umoznilo dalsi praci s programem, probiha vse ve
> vlastnim threadu. Jeslize vsak thread vytvorim, zobrazi se po volani
funkce
> gethostbyname vzdy dialogove okno Telefonicke pripojeni i pokud pristupuji
> pouze na 'localhost'. Pokud thread vytvorim opetovne, vse funguje spravne.
> Jestlize to necham pracovat v primarnim threadu, je vse tez OK. Vse
funguje
> taktez, jestlize pouziju primo adresu 127.0.0.1 a fci inet_addr. Skutecne
> nevim, kde je chyba, a budu tedy vdecny za kazdou radu.ak zapsat vzorec do Excelu ?
[*] Tom� Hol� - 1.5.2001 20:38:44
ahoj,
snazil jsem pouzivat komponentu Excel s palety Servers v D5
celkem se mi to dari, ale neni mi jasne, jak mam vkladat vzorecky
zkousim:
WS.Cells.Item[22, 4].Value := '=SUMA(D1:D21)' ;
WS je TExcelWorksheet;
ale v excelu se mi objevi
#N#ZEV20
kdyz na nej dan F2 a enter, tak je to spravne
muzete mi prosim nekdo poradit ?
existuje nejaky klompletni popis metod pro tyto komponenty,
vsichni mi radi help k excelu, ktery ale pouziva Visual Basic a moudry z toho nejsem
diky TH
DAO ,JET , MDB a licence
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 1.5.2001 22:28:50
Zdravim.
Mam napsat jednoduchouckou aplikaci, ktera by vetsinou mela bezet na W2000,
ale je potreba aby fungovala i pod W98. Napadlo mne pouzit pro data
acessovskou databzi mdb a pro pristup free komponenty KADAO. Celkem to
funguje, umim vytvorit prazdnou databazi, tabulky atd. Jak je to ale s
licenci. Na strankach autora jsem nasel odkaz k M$ na soubor
Jet40Sp3_Comp.exe (verze 4.71.1015.0). Po jeho nainstalovani vse beha i na
win98. Jak je to tedy v tomto pripade s licenci. Mohu takto napsany program
prodat uzivateli s poznamkou, ze ma aplikovat tento patch a bude to na vsech
stranach v poradku ?.
Diky vsem DAO gurum za radu.
Ludek
CELY MESIC - od prveho do posledniho
[*] daniel.hrna(zv)sme(tec)cz - 2.5.2001 05:54:42
Pouzij uses: DateUtil, v nem je vsechno ...
D.
-----Original Message-----
From: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
Sent: Monday, April 30, 2001 7:34 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: CELY MESIC - od prveho do posledniho
> nevite prosim nekdo, jak jednoduse zjistit datum prvniho a posledniho
> konkretniho mesice, aniz bych musel dekodovat a zase skladat datum?
>
> Jde o to, ze casto delam sestavy od prvniho do posledniho nejakeho
> mesise (nebo od prvniho k dnesku) a Decode a Encode mi pripada dost
> otrocke.
>
Co znamena, ze je to otrocke? Melo by stacit napsat dve
jednoduche funkce (neco jako DejPrvni, DejPosledni) s vhodnymi
parametry a v nich ten jeden par Decode/Encode pouzit. Nebo
jsem to nepochopil spravne?
David Lebeda
Vylucne namapovanie sietoveho prostriedku v ramci
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 02.5.2001 06:44:48
Samozrejme, ze to mam "cez heslo". Aplikacia toto heslo
pozna, zdielanu zlozku si "otvori" a po skonceni "zavrie",
lenze pocas behu aplikacie je tato zlozka "otvorena"
pre vsetky procesy, t.j. uzivatel sa tam dostane aj
cez prieskumnika. A tomuto chcem prave zabranit.
Vlkovic
> Zdravim
>
> To asi ne, pokud je adresar sdileny, je videl v okolnich pocitacich. Tazatel
> potrebuje, aby jen jeho aplikace mohla pristupovat do adreare na jinem
> pocitaci.
>
> Napadlo me, jestli by to neslo resit pres heslo. Ze by si tu slozku udelal
> sdilenou pres heslo (cteni i zapis) a to heslo by pak zadavala tvoje
> aplikace. Kdyz uzivatel nezna heslo, je mu ikona zamceneho adresare k
> nicemu.
>
> Hurricane
>
> > > je mozne v Delphi (WinAPI) pripojit sietovy zdielany
> > > prostriedok (adresar) tak, aby tento nebol "odkryty"
> > > pre ostatne aplikacie?Spr�va pameti
[*] pavel(zv)bomex.citynet2000(tec)cz - 2.5.2001 07:35:20
Zdravim,
Jedna se o Deplhi 4. Ve vysledku dotazu se objevi polozky TMemoField tzn.
BlobField. Presto nevim jakym zpusobem pamet uvolnit.
Pavel
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 30, 2001 11:43 PM
Subject: Re: Spr�va pameti
> From: <pavel(zv)bomex.citynet2000(tec)cz>
> > Pomoc� TQuery z�sk�m v�sledek z datab�ze, kter� pak uprav�m a vlo��m ho
do
> > TMemo toto se opakuje mockr�t. P�i t�to akci se ov#em postupn� zapl�uje
>
> Ahoj,
>
> nejedna se nahodou o BLOB field a Delphi 4 ?
>
> Petr Vones, amatersky programator
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.250 / Virov� b�ze: 123 - datum vyd�n�: 18.4.2001
Winsock a thready
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.5.2001 07:43:02
> > vlastnim threadu. Jeslize vsak thread vytvorim, zobrazi se po volani
> funkce
> > gethostbyname vzdy dialogove okno Telefonicke pripojeni i pokud pristupuji
> > pouze na 'localhost'. Pokud thread vytvorim opetovne, vse funguje spravne.
Problem je tusim v DNS. Proste se WinSock chce podivat do DNS na zaznam o
localhost. Ale nevim proc, kdyz ho ma v hosts :(
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
Vytvareni komponenty
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.5.2001 07:52:36
To je pravda - ten var jsem uplne prehledl :(((
Ale ja jsem videl mozne problemy ve stejnem nazvu interni promenne a property.
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> Zkousel jsi to ? Ja sice ne, ale vsadim se ze to chodit nebude. :))).
> To pravidlo je jen nepsane, nema vliv na funcknost.
>
> Problem je v procedure:
>
> procedure SetAlignC(var value: string);
>
> spravne ma byt
>
> procedure SetAlignC(value: string);
>
> V procedure namapovane na property property by nemel byt parametr
> predavany odkazem, ale jen hodnotou.
>
>
> Radim
CELY MESIC - od prveho do posledniho
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 2.5.2001 08:17:15
Zkus tuhle funkci:
Function DaysInMonth (Month, Year : Integer) : Integer;
{-Vraci pocet dni v pozadovanem mesici daneho roku}
Function IsLeapYear (Year : Integer) : Boolean;
{-Vraci za je rok prechodny}
Begin
Result := (Year Mod 4 = 0) And (Year Mod 4000 <> 0) And ( (Year Mod
100 <> 0) Or (Year Mod 400 = 0) );
End;
Begin
Case Month Of
1, 3, 5, 7, 8, 10, 12 : DaysInMonth := 31;
4, 6, 9, 11 : DaysInMonth := 30;
2 : DaysInMonth := 28 + Ord (IsLeapYear (Year)
); //tady je vyjimka
Else
DaysInMonth := 0;
End;
End;
Jaro B.
> -----Original Message-----
> From: daniel.hrna(zv)sme(tec)cz [mailto:daniel.hrna(zv)sme(tec)cz]
> Sent: Wednesday, May 02, 2001 5:55 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: CELY MESIC - od prveho do posledniho
>
>
> Pouzij uses: DateUtil, v nem je vsechno ...
>
> D.
>
>
> -----Original Message-----
> From: David Lebeda [mailto:david.lebeda(zv)comarr(tec)cz]
> Sent: Monday, April 30, 2001 7:34 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CELY MESIC - od prveho do posledniho
>
>
> > nevite prosim nekdo, jak jednoduse zjistit datum prvniho a
> posledniho
> > konkretniho mesice, aniz bych musel dekodovat a zase skladat datum?
> >
> > Jde o to, ze casto delam sestavy od prvniho do posledniho nejakeho
> > mesise (nebo od prvniho k dnesku) a Decode a Encode mi pripada dost
> > otrocke.
> >
>
> Co znamena, ze je to otrocke? Melo by stacit napsat dve
> jednoduche funkce (neco jako DejPrvni, DejPosledni) s vhodnymi
> parametry a v nich ten jeden par Decode/Encode pouzit. Nebo
> jsem to nepochopil spravne?
>
> David Lebeda
>
> kryprovani
[*] EFG developer <developer(zv)efg(tec)cz> - 2.5.2001 08:24:36
DDV,
potrebuji napsat kryprovaci funkci, neco jako crypt v u*ixu, ( function
kryptuj(const t:string):string )
nemate nekdo neco podobneho staci i link.
dekuji vsem Petr Sikola
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.250 / Virov� b�ze: 123 - datum vyd�n�: 18.4.2001
UDP, firewall, proxy
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 2.5.2001 08:43:50
On Tue, 1 May 2001, Milan Schembera wrote:
> To nepomuze. Jestli je tam firewall, jsou povolene pouze nektere porty, tzn.
> domluvit se se spravcem site, aby povolil in&out tcp/udp komunikaci na danem
> portu napr. jen pro nektere hosty nebo site.
Tak ted mi rekl, ze ma v ICQ nastaveno v zalozce Firewall HTTPS (SOCKS
jejich server nepodporuje), u proxy serveru ma port 80, pouziva
authentication a ma zatrhnuty Use proxy to resolve hostnames a ICQ mu
vesele funguje.
Ja to potrebuji udelat tak, aby to taky fungovalo. Napada vas nejake
reseni?
Protoze IP adresu nema (ma pouze IP na lokalnim intranetu), domnivam se,
ze pokud chce takovy pocitac s nekym komunikovat, musi spojeni navazat on.
Jak ale muze komunikovat nekdo zvenku s nim, kdyz se "nema jak pripojit"?
Nebo se snad v necem mylim? Pokud to tak je, jak spolu mohou komunikovat 2
pocitace, ktere jsou na tom stejne (firewall, proxy) a nemaji k dispozici
zadny server venku, na ktery by se mohly pripojit?
Som z toho volaky zmeteny....
M.Kralik
CTRL + R pomoc� PostMessage
[*] Ing. Vladim�r R��i�ka���#��rF#v("#�� - 2.5.2001 08:48:49
Je to velika prekerie, jeste porad jsem na to neprisel, ikdyz uz hledam
skoro mesic (po chvilkach):
Jak poslu na okno cizi aplikace kombinaci klaves CTRL+nejake pismeno ?
pomoci PostMessage nelze poslat wm_keypress, je mozne pouze wm_keydown a
wm_keyup.
poslat keydown CTRL, keydown pismeno, keyup pismeno a keyup CTRL tak�
nefunguje.
potrebuju to do D3, WIN95
Existuje nejaka podobna fce, ktera by to umoznovala ? (nemyslim
SendMessage).
Dik.
Ing. Vladimir Ruzicka
Winsock a thready
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 2.5.2001 08:50:46
> > > gethostbyname vzdy dialogove okno Telefonicke pripojeni i pokud
> > > pristupuji pouze na 'localhost'. Pokud thread vytvorim opetovne,
> > > vse funguje spravne.
>
> Problem je tusim v DNS. Proste se WinSock chce podivat do DNS na
> zaznam o localhost. Ale nevim proc, kdyz ho ma v hosts :(
No, Windows se daji nakonfiguropvat tak, aby uprednostnovaly DNS pred
lokalnim HOSTS souborem. neni to tenhle problem?
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
kryprovani
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 2.5.2001 08:51:31
http://www.volny(tec)cz/pjsoft/crypt.rar
Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
----- Original Message -----
From: EFG developer <developer(zv)efg(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 02, 2001 8:24 AM
Subject: kryprovani
> DDV,
> potrebuji napsat kryprovaci funkci, neco jako crypt v u*ixu, ( function
> kryptuj(const t:string):string )
> nemate nekdo neco podobneho staci i link.
>
> dekuji vsem Petr Sikola
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.250 / Virov� b�ze: 123 - datum vyd�n�: 18.4.2001
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.04.01
Proxy u FTP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 2.5.2001 09:04:03
Zdarec.
TTCPBlockSocket zajisti jen TCP spojeni od tebe nekam. kam to bude
(cilovy server, ci nejaky proxy server), to je jiz zcela na obe, jako
programatorovi. stejne tak je ciste na tobe, co tim TCP spojeni tece.
NIKDY se tam nic samo nevymysli a ani neudela. ;-)
Treba u toho HTTP to neni tak jednoduche, jak si myslis. u HTTP kdyz
chces pouzit proxy, tak ne z das neco do hlavicky, ale musis:
1. misto na cislovy server odeslat pozadavek na proxy server.
2. pripadne pridat hlavicky ohledne autorizace na proxy...
tm chci rict, ze co se tyce komunikace s proxy misto primo s cilovym
serverem, musi se tvuj program chovat trosku jinak, musi se spojit s
proxy serverem a nejakym dohodnutym zpusobem si popovidat s proxy.
Co se tyce proxy na FTP, tak tech zpusobu existuje spousta. zalezi na
tom, jakeho druhu je tvuj proxy/firewall. nelze rict nejaky univerzalni
jednoduchy navod.
proto si musis sehnat patricny popis komunikace s tvym proxy
serverem... a doprogramovat si to podle toho. ;-)
> Cau,
> toto je dotaz hlavne na autora Synapse ;-) Snazim se pomoci
> TTCPBlockSocket udelat FTP klienta, vsechno uz funguje, jen nevim, jak
> nastavit proxy server nebo firewall. U http je to jednoduchy, proste
> se to da do hlavicky pozadavku, ale co s ftp, kdyz si se serverem
> posilam jen kratke textove zpravicky??
>
> mejte se, Petr
>
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
UDP, firewall, proxy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.5.2001 10:21:26
> Tak ted mi rekl, ze ma v ICQ nastaveno v zalozce Firewall HTTPS (SOCKS
> jejich server nepodporuje), u proxy serveru ma port 80, pouziva
> authentication a ma zatrhnuty Use proxy to resolve hostnames a ICQ mu
> vesele funguje.
Tunelovani pomoci HTTPS by melo fungovat, protoze v pripade HTTPS proxy
server pouze detekuje HTTPs pozadavek (CONNECT metoda v prvnim radku
hlavicky od browseru), spoji se s pozadovanym serverem a pak jen prehazuje
data (obema smery) pokud spojeni trva.
Cili pokud ta proxy umi HTTPS muzes svou aplikaci modifikovat takto:
1) pouzit TCP misto UDP
2) pri vytvareni spojeni navazes spojeni s proxy serverem (zadana IP adresa
a port) a posles mu nasledujici radky:
'CONNECT http://servername_nebo_IP:server_port HTTP/1.0'+CRLF+
CRLF+CRLF;
Pokud se vse povede server by mel odpovedet hlavickou, ktera zacina::
'HTTP/1.0 200 Connection established'+CRLF
> Ja to potrebuji udelat tak, aby to taky fungovalo. Napada vas nejake
> reseni?
> Protoze IP adresu nema (ma pouze IP na lokalnim intranetu), domnivam se,
> ze pokud chce takovy pocitac s nekym komunikovat, musi spojeni navazat on.
> Jak ale muze komunikovat nekdo zvenku s nim, kdyz se "nema jak pripojit"?
Jedine tak, ze na proxy se nakonfiguruje mapovany link smerem na ten lokalni
pocitac (nebo pomoci SOCKS)
> Nebo se snad v necem mylim? Pokud to tak je, jak spolu mohou komunikovat 2
> pocitace, ktere jsou na tom stejne (firewall, proxy) a nemaji k dispozici
> zadny server venku, na ktery by se mohly pripojit?
Viz vyse
D> Toman
Delphi v p okladech
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 2.5.2001 10:22:19
Mam Mistrovstvi v Delphi 2 i 3 a muzu rict ze ta 3 je mnohem mnohem lepsi
(taky ji delal kolektiv autoru - kazdy tu oblast kterou umi nejlip).
Informace v ni jsou mnohem obsahlejsi nez v jakekoliv jine knize (snad jeste
ta trojice z puvodne planovane sestice knih od UNISu /Texiera&Pacheco)
Urcite si ji kup
Radek
> oplati sa mi kupit knihu Mistrovstvi v Delphi 3.0 ?
> doma mam D 5.0 - E.
> (ide mi hlavne o to, aby som pochopil filozofiu tvorby aplikacii pod
> Delphi-ckami)
TWebBrowser ... Requerst.Content.Fields...
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 2.5.2001 10:24:29
Zdravim
Mozem v TWebBrowser.Navigate(String) nastavit aj Content.Fields?
Napr. zoberiem stranku vyhladavac Altavista.com a zavolam form action s
vopred vyplnenymi fieldami, ale ich obsah zoberiem zo zadanych stringov aby
som ich nemusel vypisovat do stranky browsera.
S pozdravom
Ing. Jozef Baranec
Normex spol. s r.o.
www.digitaldocuments.org
joba(zv)digitaldocuments.org
Proxy u FTP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.5.2001 10:32:10
> toto je dotaz hlavne na autora Synapse ;-) Snazim se pomoci
TTCPBlockSocket
> udelat FTP klienta, vsechno uz funguje, jen nevim, jak nastavit proxy
server
> nebo firewall. U http je to jednoduchy, proste se to da do hlavicky
> pozadavku, ale co s ftp, kdyz si se serverem posilam jen kratke textove
> zpravicky??
Nejpouzivanejsim typem proxy (gatewaye) pro FTP je user(zv)hostname gateway.
Pracuje takto:
1) klient se pripoji FTP kontrolnim spojenim na FTP gateway
2) FTP klient odesle jmeno uzivatele povelem USER doplnene o jmeno/adresu
ciloveho serveru takto:
USER anonymous(zv)ftp.server.nekde:port
3) FTP gateway se pokusi pripojit na server ftp.server.nekde:port , pokud se
to povede odesle povelem USER na server jmeno 'anonymous'.
4) FTP gateway prehazuje data z jedne strany kontrolniho spojeni na druhou
(vili server dostane to co klient posle a naopak. Proces je transparentni az
na povelyu, ktere ovlivnuji vytvareni datoveho spojeni (PORT, PASV). FTP
gateway musi detekovat pokusy o datove spojeni, vytvorit vlastni socket s
prislusnymi parametry a zmenit hodnoty parametru zminenych povelu tak, aby
vzdy datove spojeni mezi klientem a serverem prochazelo dalsim presmerovanim
na FTP gatewayi. Je to ale zalezitost, ktere se klient nemusi vsimat.
D> Toman
Rozdily v kompiovanem exe
[*] Martin Dietl <dietl(zv)4use(tec)cz> - 2.5.2001 10:35:12
Ahoj,
pouze obsahem na par adresach.
Martin
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Sent: Monday, April 30, 2001 10:35 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Rozdily v kompiovanem exe
From: "Martin Dietl" <dietl(zv)4use(tec)cz>
> muze mi nekdo vysvetlit, proc se lisi vysledny EXE kod, kdyz prelozim
STEJNY
> zdrojovy kod ?
Ahoj,
cim se lisi, velikosti nebo pouze obsahem pri binarnim porovnani ?
Petr Vones, amatersky programator
Linkovani 16-bit OBJ souboru v Delphi 5
[*] igis(zv)post(tec)cz - 2.5.2001 10:35:26
> Hi,
>
> mam soubor SCOMFFPA.OBJ, ktery je napsan s
> nejvetsi pravdepodobnosi v TASM.
> Je tedy 16-tibitovy.
> Potrebuji jej prilinkovat v Delphi 5
> Professional, ale nejak mi to nejde:
>
> {$LINK SCOMFFPA.OBJ}
> function FFPToA(alue: integer):String;
> external;
>
> po kompilaci mi to zahlasi
> 16-Bit segment encountered in object file
> 'C:\...\SCOMFFPA.OBJ'
>
> Lze vubec 16-Bit. OBJ soubor prilinkovat?
>
>
> Predem diky
>
> Jindrich Nikodem
>
>
Sorry ale s tim ti nepomuzu. Zkus se zaptat treba na www.delphi(tec)cz foru
igi
DELPHIX
[*] Zden�k Adler <zdeneka(zv)seznam(tec)cz> - 2.5.2001 12:18:24
Ahojte,
vznesl bych zde takovy zacatecnicky dotaz: v emulatoru osmibitoveho =
mikropocitace MZ-800 pouzivam komponentu DELPHIX pro Fullscreen =
zobrazeni. Vse se chova normalne az do okamziku, kdy se prepnu z okna do =
fullscreenu a zpet - pote se mi hlavni okno nastavi jako "stay on top", =
tudiz nelze prekryt zadnym jinym oknem. Poradi mi nekdo kde je chyba? =
Diky
Zdenek
QReport nebo SINEA?
[*] Zaplik <zaplik(zv)volny(tec)cz> - 2.5.2001 12:26:20
Zdravim
D5/Profi(SP1),W2000
Stojim pred problemem jaky nastroj pouzit pro generovani tiskovych sestav.
Doposud jsem pouzival QReport 3.0 , ale narazil jsem na jeho obrovskou
pomalost. Sineu neznam a tak se ptam. QReport, Sinea nebo uplne neco jineho.
Jedna se o slozitejsi sestavy radove v desetitisicich zaznamu. Take bych
chtel provadet export do txt, rtf, xls, html ... Zatim pracuji s dbf
soubory, ale i prace s nimi je pomala. Co bych mohl pouzit v ramci D5 profi,
abych zase moc neutracel.
p.s. pri tisku na laserovku nebo inkoust je vse OK, ale na traktor se mi
kazda stranka posune cca o 1cm. Co s tim?
Dik vsem.
Martin Zapletal
zaplik(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.242 / Virov� b�ze: 117 - datum vyd�n�: 27.3.2001
Qreport, master-detail
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 2.5.2001 12:30:16
Dobry den,
nevi nekdo jak v qreportu - pouzivam delphi 3 client server - vytisknout
sestave master detail po sekci subdetail s daty z vedlejsi tabulky jeste
nejaka pole z hlavni tabulky.
Priklad:
(1. vyrobek)
Vseobecne udaje vyrobku (hlavni dataset)
rozpiska soucasti (vedlejsi dataset)
souhrnne udaje (opet hlavni dataset).
(dalsi vyrobek)
.
.
Hledal jsem v archivu a nic. Treba je to tak primitivni, ze to nestoji za
zminku.
Diky - Dalik Faltynek, Orgrez, a.s.
dalibor.faltynek(zv)orgrez(tec)cz
kryprovani
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 02.5.2001 12:43:42
Dne 2.�kv�ten�2001, <delphi-l(zv)clexpert(tec)cz> napsal:
> DDV,
> potrebuji napsat kryprovaci funkci, neco jako crypt v u*ixu, ( function
> kryptuj(const t:string):string )
ahoj, ja pouzivam toto, je to tusim z RxLib.
function XorEncode(const Key,Source: string): string;
var TMP_Int: integer; TMP_Byte: byte;
begin
Result:='';
for TMP_Int:=1 to Length(Source) do
begin
if Length(Key)>0 then TMP_Byte:=Byte(Key[1+((TMP_Int-1) mod Length(Key))]) xor Byte(Source[TMP_Int])
else TMP_Byte:=Byte(Source[TMP_Int]);
Result:=Result+AnsiLowerCase(IntToHex(TMP_Byte,2));
end;
end;
function XorDecode(const Key,Source: string): string;
var TMP_Int: integer; TMP_Char: char;
begin
Result:='';
for TMP_Int:=0 to Length(Source) div 2-1 do
begin
TMP_Char:=Chr(StrToIntDef('$'+Copy(Source,(TMP_Int*2)+1,2),Ord(' ')));
if Length(Key)>0 then TMP_Char:=Chr(Byte(Key[1+(TMP_Int mod Length(Key))]) xor Byte(TMP_Char));
Result:=Result+TMP_Char;
end;
end;
S pozdravem Milan Cizek
__________________________________________________________________________
Sout�� o zna�kov� ceny TIC TAC a Ferrari http://rd.seznam(tec)cz/www.tictac(tec)cz
Linkovani 16-bit OBJ souboru v Delphi 5
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 02.5.2001 12:46:55
> > mam soubor SCOMFFPA.OBJ, ktery je napsan s
> > nejvetsi pravdepodobnosi v TASM.
> > Je tedy 16-tibitovy.
> > Potrebuji jej prilinkovat v Delphi 5
> > Professional, ale nejak mi to nejde:
> >
> > {$LINK SCOMFFPA.OBJ}
> > function FFPToA(alue: integer):String;
> > external;
> >
> > po kompilaci mi to zahlasi
> > 16-Bit segment encountered in object file
> > 'C:\...\SCOMFFPA.OBJ'
> >
> > Lze vubec 16-Bit. OBJ soubor prilinkovat?
ahoj, myslim ze se tu presne na to nekdo nedavno ptal. A kdosi odpovidal (tusim PVones), ze to nejde.
S pozdravem MilanC
__________________________________________________________________________
Sout�� o zna�kov� ceny TIC TAC a Ferrari http://rd.seznam(tec)cz/www.tictac(tec)cz
Spr�va pameti
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 2.5.2001 12:48:40
On 2 May 2001, at 7:35, pavel(zv)bomex.citynet2000(tec)cz wrote:
> Jedna se o Deplhi 4. Ve vysledku dotazu se objevi polozky TMemoField
> tzn. BlobField. Presto nevim jakym zpusobem pamet uvolnit.
Nevim, zda toto je v D5 opraveno, ale obecne doporucuji prechod z
D4 vyse, protoze v D4 je prilis mnoho neprijemnych chyb.
Jeste uvidime, jak se bude chovat D6.
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