Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
prevod textu s diaktritikov na text bez
[*] mato <mato.tino(zv)inmail.sk> - 6.5.2004 17:37:11
a kde najdem v helpi k tomu help ? Neviem ten help v D7 popisuje funkcie
zakladu ale nie dalsich unit. Ako sa k tomu dostanem ?
----- Original Message -----
From: "Bohac Frantisek" <bohacf(zv)vnol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 06, 2004 3:41 PM
Subject: Re: prevod textu s diaktritikov na text bez
> s pomoci Synapse by to mohlo jit (unita SynaChar)
>
> S pozdravem
>
> Frantisek Bohac
>
> ----- Original Message -----
> > viete niekto nejaky postup ako previest text aj s diaktritikou na text
bez
> > diaktritiky ?
>
>
>
> ----------
> * www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
> * www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
> * Zoner Media Explorer 6 - stiahnite si pomocnika pre digitalnu fotografiu
(http://www.zoner.sk/zme6)
>
>
>
> __________ Informacia od NOD32 1.751 (20040505) __________
>
> Tato sprava bola preverena antivirusovym systemom NOD32.
> http://www.eset.sk
>
>
Synapse a vytvorenie mailu s prilohami
[*] mstevlik(zv)gamo.sk - 6.5.2004 15:53:04
Hi all,
Poprosim priaznivcov Synapse od L.G. ci by mi vedeli pomoct ako vytvorit
mail a poslat mail cez SMTP protokol, kt. by obsahoval v tele cisty text s
diakritikou (slovencina) a nejake jpg subory ako prilohy
Snazil som sa pouzit komponentu TNMSMTP s kt. mi to u zakaznika zblbne,
adresatovi pride zmrseny mail, takze by som to rad vyriesil cez Synapse
Dakujem za odpovede
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
prevod textu s diaktritikov na text bez
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 6.5.2004 15:41:02
s pomoci Synapse by to mohlo jit (unita SynaChar)
S pozdravem
Frantisek Bohac
----- Original Message -----
> viete niekto nejaky postup ako previest text aj s diaktritikou na text bez
> diaktritiky ?jak omezit pocet radku v selectu v FB
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 6.5.2004 12:48:49
Aha, trapas. FB moc neznam. Ale tohle sem povazoval za standartni
pro vetsinu SQL serveru. No zase sem o krapet chytrejsi. Dik.
Vaclav
> IB/FB LIMIT nepozna, vid. http://ib.freeservers.com/#LIMIT. Pouziva sa
FIRST x
> SKIP y.zjisteni vychoziho tel spojeni
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 6.5.2004 12:34:47
zdravim
nevite nekdo jak eventuelne zda jde zjistit ktere telefonicke pripojeni je
nastavene jako vychozi (umim zjistit jejich seznam a nejake informace o
nich, ale toto ne)
diky predem
jak omezit pocet radku v selectu v FB
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 6.5.2004 11:58:44
: Copak LIMIT by ti nestacil ?
:
: Priklad: SELECT * FROM tabulka WHERE skupina=1 LIMIT 5,10
:
: LIMIT n,r
: n - je kolik radku
: r - je kde zacne
IB/FB LIMIT nepozna, vid. http://ib.freeservers.com/#LIMIT. Pouziva sa FIRST x
SKIP y.
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
jak omezit pocet radku v selectu v FB
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 6.5.2004 11:20:41
Copak LIMIT by ti nestacil ?
Priklad: SELECT * FROM tabulka WHERE skupina=1 LIMIT 5,10
LIMIT n,r
n - je kolik radku
r - je kde zacne
S pozdravem Vaclav Halik
> Potreboval bych, aby mi select vratil jen napriklad 3 radky. Existuje
nejake klicove slovo?
>
> V Oracle se pouziva RowCount nebo RowNumber, tak neco uz si to presne
nepamatuju. Ale pro FB jsem zatim nic podobneho nenasel. Existuje neco
takoveho?
>
> pr.: select * from table where RowNumber<5
jak omezit pocet radku v selectu v FB
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 6.5.2004 10:56:38
select first 3
*
from
tabulka
peca
jak omezit pocet radku v selectu v FB
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 6.5.2004 10:54:37
SELECT FIRST 3 * FROM ............
Libor
----- Original Message -----
From: "Jan Rizek" <jan_rizek(zv)centrum(tec)cz>> Potreboval bych, aby mi select vratil jen napriklad 3 radky. Existuje
nejake klicove slovo?jak omezit pocet radku v selectu v FB
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 6.5.2004 10:46:35
Potreboval bych, aby mi select vratil jen napriklad 3 radky. Existuje nejake klicove slovo?
V Oracle se pouziva RowCount nebo RowNumber, tak neco uz si to presne nepamatuju. Ale pro FB jsem zatim nic podobneho nenasel. Existuje neco takoveho?
pr.: select * from table where RowNumber<5
JR
jak prepsat typovy soubor do C
[*] Blazek Jaroslav <jaroslav.blazek(zv)access-it(tec)cz> - 6.5.2004 09:56:32
Ahoj,
> virt(zv)volny(tec)cz 6.5.2004 8:54:24 >>>
>nejak jsem mimo
>jak mam prepsat do C toto?
>type
> struktura = record
> X, Y: Single;
> end;
>
>Fr: file of struktura;
typovy soubor tak jak je v Delphi v Ccku neni
pouzijes normalne FILE *file a fce fopen(), fclose(), fread(),
fwrite(), fseek()
na tuto strukturu jeste s pouzitim operatoru sizeof()
typedef struct
{
float x, y;
} STRUKTURA;
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Firebird - posahana databaza koli charset
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.5.2004 09:54:31
Haj hou!
On 6 May 2004 at 8:58, Martin Matous wrote:
> Neviem ako mam opravit ten zaznam, neviem sa na neho dostat, stale
> dostanem chybu. Skusal som meni charset na strane klienta, nepomaha.
> Ani neviem ako to vzniklo, len predpokladam, ze niekto zapisal do
> VARCHAR nejaku hodnotu ktora je mimo CHARSET.
Pokud nevis v jakem kodovani je hodnota v danem zaznamu, tak to
opravis jen pres UPDATE nebo DELETE. Zkus nejprve UPDATE a placni tam
prazdny retezec, a pak tam dej spravny ve spravnem kodovani.
> Moze to vzniknut aj tym, ze nie kazde pole typu VARCHAR ma nastaveny
> CHARSET ???
Pokud mas definovany charset na urovni cele databaze, tak ne. Pokud
nemas, pak jsou zrejme nektere polozky v charsetu NONE. Over si to.
> Prosim pomozte. Nechcem vsat ten zaznam mazat cez DELETE a potom
> znovu vytvorit. To som skusil, tak to zbehne.
> Ale chcem predist tomu do buducna !
Pokud by byla polozka v charsetu NONE, a ty vis ze data jsou v
charsetu WIN1250, melo by to jit opravit pres ulozenou proceduru s
konverzi pres charset OCTETS.
CREATE PROCEDURE FIXME
AS
DECLARE VARIABLE SN VARCHAR(<delka_polozky>) CHARACTER SET NONE;
DECLARE VARIABLE SW VARCHAR(<delka_polozky>) CHARACTER SET WIN1250;
begin
SELECT <spatny_sloupec> FROM TABULKA WHERE ID_TABULKA=1522 into :SN;
SW = CAST(SN AS CHAR(<delka_polozky>) CHARACTER SET OCTETS);
UPDATE TABULKA SET <spatny_sloupec> = :SW WHERE ID_TABULKA=1522;
end
Tohle pisu z hlavy, takze si to pripadne uprav. Za nic nerucim, a
experimenty provadej na kopii databaze.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Synapse-preposlani prichozi posty-JESTE JEDNOU
[*] petajs(zv)centrum(tec)cz - 6.5.2004 09:36:29
Vazne, prosim jeste jednou Lukase G.,
nebo nekoho jineho kdo s tim ma zkusenost.
Jak si poslal novou mimemess.pas tak ta funkce tam
skutecne je, ale nedari se me stale ten mail preposlat.
Lepe receno mail preposlu, je videt ze mail prijde (je odeme)
je s mojim vskazem, a ma prilohu message.
Ovsem tato message je prazdna.
Kontroluji si zda tam posilam tu puvodni nedekodovanou zpravu
ktera prisla z pop3 - a posilam ji tam.
Uz nevim kde mam chybku.
Neni potreba krom nove mimemess.pas jeste nejaky novy pas?
mimepart a pod ?
Zatim diky Petr Simunek (Petajs)Firebird - posahana databaza koli charset
[*] Martin Matous <matrix(zv)inmail(tec)cz> - 6.5.2004 08:58:26
Dobry den,
na linuxe je FB1.5 s charset WIN1250
klient sa pripaja tiez cez charset WIN1250
vsetko bolo ok, az teraz pri
SELECT * FROM TABULKA
vrati mi chybu:
"Arithmetic overflow or division by zero has occurred.arithmetic exception, numeric overflow, or string truncation.
Cannot transliterate character between character sets."
Nasiel som ten zaznam v ktorom je chyba, je to ID_TABULKA=1522
Takze ak zavolam
SELECT * FROM TABULKA WHERE ID_TABULKA<>1522
uz sa chyba neobjavi, ale samozrejme bez zaznamu 1522
Neviem ako mam opravit ten zaznam, neviem sa na neho dostat, stale
dostanem chybu. Skusal som meni charset na strane klienta, nepomaha.
Ani neviem ako to vzniklo, len predpokladam, ze niekto zapisal do
VARCHAR nejaku hodnotu ktora je mimo CHARSET.
Moze to vzniknut aj tym, ze nie kazde pole typu VARCHAR ma nastaveny
CHARSET ???
Prosim pomozte. Nechcem vsat ten zaznam mazat cez DELETE a potom
znovu vytvorit. To som skusil, tak to zbehne.
Ale chcem predist tomu do buducna !
Dakujem vopred za pomoc.
MartinM.
----------
* www.inMail(tec)cz - Vase emailova adresa na cely zivot ZDARMA
* www(tec)czechia.com - profesionalni webhosting a registrace domen za vyhodne ceny
* Zoner Media Explorer 6 - Poznejte kouzlo digitalni fotografie! (http://www.zoner(tec)cz/zme6)SSL a certifikaty
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 6.5.2004 08:58:25
Ahoj,
nevite nahodou nekdo o nejakych komponentach SSL, ktere zvladaji pouzivani certifikatu ze std. uloziste windows? Indy potrebuji mit privatni klic v souboru, coz je u cipovych karet nemozne. Potrebuji komunikovat se serverem pomoci sveho privatniho klice, ktery je ale na cipove karte. Musim teda pouzivat std. uloziste windows. Idealni by bylo, kdyz by se pouze predal te komponente pCertContext. Kdyz se nic nenajde tak to budu muset asi udelat pres WinInet a to je dost prace. Veskere operace s certifikatem uz mam hotove jen potrebuju to SSL.
Dik
Libor
jak prepsat typovy soubor do C
[*] Jiri Virt <virt(zv)volny(tec)cz> - 6.5.2004 08:54:24
nejak jsem mimo
jak mam prepsat do C toto?
type
struktura = record
X, Y: Single;
end;
Fr: file of struktura;
diky moc
Jirka Virt
Printscreen na TPanel ve formu
[*] vponecha(zv)volny(tec)cz - 6.5.2004 00:31:50
Ahoj vsichni,
Potrebuji udelat neco jako PrintScreen na object TPanel, ktery je
parentem pro jine objekty. Udelal jsem to pres BitBlt. TPanel
(parenta) jsem si nasel pres HANDLE. Ma to jeden hacek. Tento
PrintScreen se udela pouze na viditelne casti.
Co potrebuji:
- presny otisk pouze TPanel(parenta) na formu s vnorenymi objekty
i v pripade, ze TPanel neni 'viditelny' - ve formatu Bitmap
Poradte,
diky
Vl.
--
Vyuzijte specialni nabidky VOLNY ADSL na zkousku. Za mesicni
pausal a vratnou zalohu mate 30 dni moznost otestovat pripojeni k
internetu rychlosti 512/128 kbit/s. Vice na
http://sluzby.volny(tec)cz/product/adsl/adsl_trial/OT: Prispevky z konferencie v kategoriach
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 5.5.2004 22:53:15
Ak potrebujete najst v archive Delphi nejaky prispevok a nedari sa Vam, tak
mozete pouzit novo vytvorenu stranku.
Na adrese www.martinkasman.sk v sekcii Delphi, podsekcii Konferencia najdete
poslednych 1832 prispevkov zoradenych do kategorii. K jednotlivym otazkam su
priradene odpovede. Tato stranka bude pravidelne obnovovana novymi
prispevkami.
S pozdravom Martin Kasman
ORACLE and ODBCRdb
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 5.5.2004 19:55:46
http://www.connectionstrings.com
New version:
"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"
Old version:
"Driver={Microsoft ODBC Driver for Oracle};ConnectString=OracleServer.world;Uid=myUsername;Pwd=myPassword;"
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Wednesday, May 5, 2004, 4:08:10 PM, you wrote:
TJ> Dobry den,
TJ> chtel jsem se s Delphi pripojit na Oracle pres ODBC. Stahnul
TJ> jsem si ODBC for Rdb, ale vubec se mi nedari najit spravny
TJ> connection string nebo dle helpu lepe ATTACH. Existuje nekde
TJ> nejaky help nebo postup jak se pripojit k ORACLE v. 8.1.6.? 3
TJ> hodinky jsem stravil hledanim na netu, ale asi neumim hledat.
TJ> Zkratka vubec nevim kudy do toho.
TJ> muzete me prosim nekdo nakopnout?
TJ> Diky Jirka
ORACLE and ODBCRdb
[*] Lubomir Fule <fule(zv)humansoft.sk> - 5.5.2004 16:12:10
Ak pouzivas ODBCe, tak tam sa da connection string vygenerovat v design
time dvojklikom na TODBCDatabase
L.
> chtel jsem se s Delphi pripojit na Oracle pres ODBC. Stahnul
> jsem si ODBC for Rdb, ale vubec se mi nedari najit spravny
> connection string nebo dle helpu lepe ATTACH. Existuje nekde
> nejaky help nebo postup jak se pripojit k ORACLE v. 8.1.6.? 3
> hodinky jsem stravil hledanim na netu, ale asi neumim hledat.
> Zkratka vubec nevim kudy do toho.
ORACLE and ODBCRdb
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 5.5.2004 16:08:10
Dobry den,
chtel jsem se s Delphi pripojit na Oracle pres ODBC. Stahnul jsem si ODBC for Rdb, ale vubec se mi nedari najit spravny connection string nebo dle helpu lepe ATTACH. Existuje nekde nejaky help nebo postup jak se pripojit k ORACLE v. 8.1.6.? 3 hodinky jsem stravil hledanim na netu, ale asi neumim hledat. Zkratka vubec nevim kudy do toho.
muzete me prosim nekdo nakopnout?
Diky Jirka
Problem s RxClock
[*] Dalibor <dalibor(zv)torola(tec)cz> - 5.5.2004 15:38:06
Ahoj, pouzivate nekdo komponentu RxClock ?
V aplikaci se mi stava, ze se obcas zastavi a nepokracuje.
Kdyz aplikaci zminimalizuju a zmaximalizuju, tak se cas aktuzalizuje podle systemu, ale nepokracuje dale.
Musim aplikaci vypnout a spustit, pak to zase nejakou dobu bezi OK.
Netusite nekdo, kde by mohla byt zrada?
rozdil mezi Mutexy a semaphory
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 5.5.2004 13:57:56
----- Original Message -----
From: <david.kopecek(zv)hacktrack.com>
> v souvislosti s predchozi debatou ohledne zapisu do souboru jsem zacal
> tedy vyuzivat mutexy a semaphory ale jakej je mezi nima rozdil co se
>snima muze a nemuze.
V PSDK je to velmi dobre vysvetleno, hledej synchronization objects.
Mutex
Can be owned by only one thread at a time, enabling threads to coordinate
mutually exclusive access to a shared resource.
Semaphore
Maintains a count between zero and some maximum value, limiting the number
of threads that are simultaneously accessing a shared resource.
Daniel
rozdil mezi Mutexy a semaphory
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.5.2004 13:57:57
david.kopecek(zv)hacktrack.com wrote:
> tedy vyuzivat mutexy a semaphory ale jakej je mezi nima rozdil co se
> snima muze a nemuze.
Asi bys mel zacit v tady:
http://msdn.microsoft.com/library/default.asp?url=/library/en-s/dllproc/base
/synchronization_objects.asp
HTH, pf
zapis do souboru z vice aplikaci ve stejnou dobu
[*] Tomas Emresz <tomas(zv)emresz(tec)com> - 5.5.2004 14:14:00
TE>> A co Mutexy ? Ty snad jsou v ramci serveru, ne v ramci aplikace.
TE>> S uspechem je pouzivam na txt logy webovskejch CGI aplikaci..
TE>> Koukni na fce :
TE>> CreateMutex
TE>> WaitForSingleObject
dkhc> Mutexy ja to potrebuji prave v ramci ruznych aplikaci na jednom stroji
Vzdyt jo createmutexu predas jmeno mutexu a ten je definovan v ramci
celeho stroje, tzn ruzny app nevadi, pokud obe maj stejny jmeno
mutexu, nebude to kolidovat...
--
S pozdravem,
Tomas Emresz
mailto:tomas(zv)emresz.com
rozdil mezi Mutexy a semaphory
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 5.5.2004 14:03:58
Precti si
http://www.eternal(tec)cz/article.php?nID=147
http://www.eternal(tec)cz/article.php?nID=138
Semafor pusti do kriticke sekce vice procesu, dle nastaveni.
Petr Daricek
zapis do souboru z vice aplikaci ve stejnou dobu
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 13:07:50
Dobry den,
Wednesday, May 05, 2004, 12:19:42 PM, napsal jste:
dkhc>> aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
TE> A co Mutexy ? Ty snad jsou v ramci serveru, ne v ramci aplikace.
TE> S uspechem je pouzivam na txt logy webovskejch CGI aplikaci..
TE> Koukni na fce :
TE> CreateMutex
TE> WaitForSingleObject
Mutexy ja to potrebuji prave v ramci ruznych aplikaci na jednom stroji
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
zapis do souboru z vice aplikaci ve stejnou dobu
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 13:07:49
Dobry den,
Wednesday, May 05, 2004, 11:43:38 AM, napsal jste:
KR> david.kopecek(zv)hacktrack.com dne 5 May 2004 v 11:41:
>> Zdravim konferenci
>>
>> pred casem jsem tu resil zapis do souboru v jedne multithreadove
>> aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
>> podobny problem kdyz potrebuji aby se souborem pracovalo vice
>> aplikaci.
KR> Ahoj,
KR> nestacilo by proste, aby kdyz aplikace zapisuje, zkusila
KR> soubor otevrit exkluzivne, a pokud se
KR> nepodari, zkusila to jeste parkrat s nejakym casovym
KR> odstupem? Pokud je zapis kratky a rychly...
No tak to mam tedka reseno.
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
rozdil mezi Mutexy a semaphory
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 13:31:54
Zdravim
v souvislosti s predchozi debatou ohledne zapisu do souboru jsem zacal
tedy vyuzivat mutexy a semaphory ale jakej je mezi nima rozdil co se
snima muze a nemuze.
D.
zapis do souboru z vice aplikaci ve stejnou dobu
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 13:25:53
zDRAVIM
mbgc> Misto kriticke sekce by jsi mohl pouzit mutexy nebo semafory
uz jsem to nasel a uz to i chapu
MutexHandle := CreateMutex(nil, TRUE, 'MysampleAppMutex');
if MutexHandle <> 0 then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
// -== set hPrevInst property and close the mutex handle ==-
begin
MessageBox(0, 'Instance of this application is already running.',
'Application already running', mb_IconHand);
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
zapis do souboru z vice aplikaci ve stejnou dobu
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 13:21:52
Cau
LB> Zkus pouzit pojmenovane mutexy. Funguji napric operacnim systemem.
ano tenhle vyraz jsem tu slysel mockrat ale nikdo mi noskytl zadnej
example. zatim hledam v helpu
>> Zdravim konferenci
>>
>> pred casem jsem tu resil zapis do souboru v jedne multithreadove
>> aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
>> podobny problem kdyz potrebuji aby se souborem pracovalo vice
>> aplikaci.
>>
>> Cely projekt obsahuje nekolik souboru a muze se skratka stat ze ve
>> stejnou dobu pristoupi dve aplikace a padne to s errorem.
>>
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
zapis do souboru z vice aplikaci ve stejnou dobu
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 13:11:51
Zdravim
mbgc> Misto kriticke sekce by jsi mohl pouzit mutexy nebo semafory
hmmm nemas nejakej odkaz na kus kodu a nebo prakticke pouziti
David
zapis do souboru z vice aplikaci ve stejnou dobu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.5.2004 13:05:48
Lukas Barton dne 5 May 2004 v 12:29:
> Zkus pouzit pojmenovane mutexy. Funguji napric operacnim systemem.
Ale bude problem, jakmile do toho souboru budou zapisovat z ruznych stanic, ne? I kdyz to puvodni
tazatel myslim nezminoval.
Karel Rys
ORACLE a ODBC
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 5.5.2004 12:45:46
Tak uz to mam,
z download stranky ORACLE, je potreba stahnout ODBC driver for Rdb
> -----Original Message-----
> From: Tyslic Jiri
> Sent: Wednesday, May 05, 2004 11:42 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: ORACLE a ODBC
>
>
> Dobry den,
> chtel jsem se pripojit na ORACLE server 8.1.6 a blahove jsem
> si myslel, ze staci stahnout ODBC ovladace a hotovo.
> Ovladace jsem si stahnul (format jar), pote jsem se docetl,
> ze musim mit specialni ORACLE instalator (60MB), stahnul jsem
> ho, ale je bohuzel take ve formatu jar a nejak s tim nemohu
> hnout. Zkusil jsem tedy nainstalovat klientske utility
> Oracle, ale opet nic - spustim setup.exe, 1 minutu sviti disk
> a to je konec predstaveni... Neporadite nekdo?
>
> Diky moc
>
> Jirka
>
>
>
>
> ListView - limit radku
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 5.5.2004 12:21:42
zdravim
pokud pouziji ListView jako report s ownerdata jsem nejak limitovan poctem
radku (neco jako je ve Win98 u tStrings limit 16384 (nebo kolik to je))zapis do souboru z vice aplikaci ve stejnou dobu
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 5.5.2004 12:29:44
Zkus pouzit pojmenovane mutexy. Funguji napric operacnim systemem.> Zdravim konferenci
>
> pred casem jsem tu resil zapis do souboru v jedne multithreadove
> aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
> podobny problem kdyz potrebuji aby se souborem pracovalo vice
> aplikaci.
>
> Cely projekt obsahuje nekolik souboru a muze se skratka stat ze ve
> stejnou dobu pristoupi dve aplikace a padne to s errorem.
>
> premyslel jsem nad nejakym zamkem nad souborem ale napadlo me jedine
> si data nacist do TStringLIst a pak soubor zamknout
>
> pres filestream
> ff:=TFileStream.Create('d:\temp\test.txt',fmOpenWrite or
fmShareExclusive);
>
> pote az bude komplet ho odemknout a ihned ulozit.. jenze zda se mi to
> trapne a je tu dvojnasobna alokace pameti
>
> --
> S pozdravem a diky
> David
zapis do souboru z vice aplikaci ve stejnou dobu
[*] martin.ben(zv)ge(tec)com - 5.5.2004 12:25:43
Misto kriticke sekce by jsi mohl pouzit mutexy nebo semafory
Martin Ben
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of david.kopecek(zv)hacktrack.com
pred casem jsem tu resil zapis do souboru v jedne multithreadove
aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
podobny problem kdyz potrebuji aby se souborem pracovalo vice
aplikaci.
Cely projekt obsahuje nekolik souboru a muze se skratka stat ze ve
stejnou dobu pristoupi dve aplikace a padne to s errorem.
premyslel jsem nad nejakym zamkem nad souborem ale napadlo me jedine
si data nacist do TStringLIst a pak soubor zamknout
pres filestream
ff:=TFileStream.Create('d:\temp\test.txt',fmOpenWrite or fmShareExclusive);
pote az bude komplet ho odemknout a ihned ulozit.. jenze zda se mi to
trapne a je tu dvojnasobna alokace pameti
zapis do souboru z vice aplikaci ve stejnou dobu
[*] Tomas Emresz <tomas(zv)emresz(tec)com> - 5.5.2004 12:19:42
dkhc> aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
A co Mutexy ? Ty snad jsou v ramci serveru, ne v ramci aplikace.
S uspechem je pouzivam na txt logy webovskejch CGI aplikaci..
Koukni na fce :
CreateMutex
WaitForSingleObject
--
S pozdravem,
Tomas Emresz
mailto:tomas(zv)emresz.com
ORACLE a ODBC
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 5.5.2004 11:41:37
Dobry den,
chtel jsem se pripojit na ORACLE server 8.1.6 a blahove jsem si myslel, ze staci stahnout ODBC ovladace a hotovo.
Ovladace jsem si stahnul (format jar), pote jsem se docetl, ze musim mit specialni ORACLE instalator (60MB), stahnul jsem ho, ale je bohuzel take ve formatu jar a nejak s tim nemohu hnout. Zkusil jsem tedy nainstalovat klientske utility Oracle, ale opet nic - spustim setup.exe, 1 minutu sviti disk a to je konec predstaveni...
Neporadite nekdo?
Diky moc
Jirka
zapis do souboru z vice aplikaci ve stejnou dobu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.5.2004 11:43:38
david.kopecek(zv)hacktrack.com dne 5 May 2004 v 11:41:
> Zdravim konferenci
>
> pred casem jsem tu resil zapis do souboru v jedne multithreadove
> aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
> podobny problem kdyz potrebuji aby se souborem pracovalo vice
> aplikaci.
Ahoj,
nestacilo by proste, aby kdyz aplikace zapisuje, zkusila soubor otevrit exkluzivne, a pokud se
nepodari, zkusila to jeste parkrat s nejakym casovym odstupem? Pokud je zapis kratky a rychly...
Karel Rys
zapis do souboru z vice aplikaci ve stejnou dobu
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 11:41:37
Zdravim konferenci
pred casem jsem tu resil zapis do souboru v jedne multithreadove
aplikaci vyresil jsem to pres tridu TCriticalSection jenze jak vyresit
podobny problem kdyz potrebuji aby se souborem pracovalo vice
aplikaci.
Cely projekt obsahuje nekolik souboru a muze se skratka stat ze ve
stejnou dobu pristoupi dve aplikace a padne to s errorem.
premyslel jsem nad nejakym zamkem nad souborem ale napadlo me jedine
si data nacist do TStringLIst a pak soubor zamknout
pres filestream
ff:=TFileStream.Create('d:\temp\test.txt',fmOpenWrite or fmShareExclusive);
pote az bude komplet ho odemknout a ihned ulozit.. jenze zda se mi to
trapne a je tu dvojnasobna alokace pameti
--
S pozdravem a diky
David
JOIN na MSSQL
[*] Svoboda Jiri <jsvoboda(zv)lekis(tec)cz> - 5.5.2004 11:29:35
Pokud to je MSSQL,tak nejjednoduzsi je tu prvni cast udelat jako vnoreny
select.
Asi tak nejak:
Select a.*,
spojenie =
case
when t.newfld is null then 'nenasiel'
else t.newfld
end
from
( select a.fld, Patindex('%/%',a.fld) as index_sep,
uprav =
case
when Patindex('%/%',a.fld) = 0 then a.fld
when Patindex('%/%',a.fld) > 0 then
substring (a.fld, 1, Patindex('%/%',a.fld) -1 )
end
from Table_XXX) as a
left join temp_val t
on a.uprav = t.oldfld
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Miso
Sent: Wednesday, May 05, 2004 10:50 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: JOIN na MSSQL
Zdar,
..potrebujem join na vytvoreny stlpec, je to mozne ?
..nieco ako :
--------------------------
select a.fld, Patindex('%/%',a.fld) as index_sep,
uprav =
case
when Patindex('%/%',a.fld) = 0 then a.fld
when Patindex('%/%',a.fld) > 0 then
substring (a.fld, 1, Patindex('%/%',a.fld) -1 )
end
,
spojenie =
case
when t.newfld is null then 'nenasiel'
else t.newfld
end
from Table_XXX a
left join temp_val t
on uprav = t.oldfld
--------------------------
..hadze mi to vsak, ze : Invalid column name 'uprav'.
Dik, Miso
MSSQL 2000
Max. delka klice v Interbase 7.1
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 5.5.2004 11:17:34
: Nevite nahodou nekdo, jaka je povolena m a x imalni sirka znakoveho pole na
: kterem chci v Interbase 7.1 definovat index?
: T.j. mam pole definovane jako varchar a nevim, kolik muzu dat maximum z
: tohoto hlediska
Pekne popisane a vysvetlene je to na:
http://www.mers.com/IBINDEXLENGHT.HTML
Neviem, ci sa od doby publikovania nieco vyrazne zmenilo (nemalo by sa), ked-tak
sa skus spytat v skupine borland.public.interbase, niekto z teamu B Ti urcite
rad poradi.
S pozdracom
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
JOIN na MSSQL
[*] Miso <delphinpp(zv)atlas(tec)cz> - 5.5.2004 10:49:30
Zdar,
..potrebujem join na vytvoreny stlpec, je to mozne ?
..nieco ako :
--------------------------
select a.fld, Patindex('%/%',a.fld) as index_sep,
uprav =
case
when Patindex('%/%',a.fld) = 0 then a.fld
when Patindex('%/%',a.fld) > 0 then
substring (a.fld, 1, Patindex('%/%',a.fld) -1 )
end
,
spojenie =
case
when t.newfld is null then 'nenasiel'
else t.newfld
end
from Table_XXX a
left join temp_val t
on uprav = t.oldfld
--------------------------
..hadze mi to vsak, ze : Invalid column name 'uprav'.
Dik, Miso
MSSQL 2000
automaticka synchronizace FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.5.2004 10:05:21
> LG> Neni lepsi pouzit Synapsi nebo Indy?
>
> no skusim tu Synapsi nebo jak se to jmenuje :)
>
> Potrebuji totiz napsat FTP synchronizator na stahovani update z mcafee
> serveru.
Neni lepsi pouzit program AutoupdateArchitect, ktery tohle dela a je
primo od McAfee? ;-) Treba ti to usetri hromadu programovani.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Vertikalni text
[*] StuPe <stupe(zv)list.jinde(tec)cz> - 5.5.2004 11:01:32
Tu mas priklad, ktery mi jede (at zije PohledVen Ekspress, co to zprznil):
function drawCopy(img: TImage): boolean;
var
hFnt: HFONT;
h, w: integer;
const
Tx = 'Zkopiruj informace do schranky';
begin // nakreslit svisly text CopyImage a CopyPanel
With img.Canvas do begin
h:= -MulDiv(10, GetDeviceCaps(Handle, LOGPIXELSY), 72);
file://w:= MulDiv(TImage(Sender).Height div length(Tx), GetDeviceCaps(Handle, LOGPIXELSY), 72);
w:= img.Height div length(Tx+' ');
hFnt:= CreateFont(
h, w,
90*10, 0, // uhel, orientace
0,1,0,0, file://bold, fdwItalic, fdwUnderline, fdwStrikeOut
EASTEUROPE_CHARSET, // znakova sada
0, 0, 0, file://fdwOutputPrecision, fdwClipPrecision
0,//PROOF_QUALITY, file://fdwQuality
PChar('Arial') file://fdwPitchAndFamily
);
SetTextAlign(Handle, TA_CENTER);
Font.Handle:= hFnt;
Brush.color:= clBtnFace;
FillRect(img.canvas.ClipRect);
Brush.Style:= bsClear;
Font.Color:= clWindowText;
ExtTextOut(Handle, 2, Img.Height div 2, 0, nil,
PChar(Tx), length(Tx), nil);
TWinControl(img.Parent).Width:= 2 + TextHeight(Tx) + 2;
end;
DeleteObject(hFnt);
Result:= True;
end;
stupe
----- Puvodni zprava -----
Od: "Radek Szurman" <surad(zv)digijoe.com>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odeslano: 3. kvetna 2004 17:21
Predmet: Re: Vertikalni text
> Videl bych to asi tak ze bys pouzil image a na jeho canvas lze psat v
> jakemkoli uhlu.
> na Google urcite najdes spoustu prikladu.
>
> Radek Szurman
>
>
> > Potreboval bych psat v aplikaci vertikalne. Hledam neco jako
> VerticalLabel.
> >
> > Nevite nekdo o necem, co bych na to mohl pouzit?
> >
> > JR
> >
> >
> >
> >
>
>
>
>
> FloatToStr
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 5.5.2004 10:45:29
Matejcek Petr napsal(a):
>DD,
>
> potrebuji prevest na retezec realne cislo a vypsat ho na 6
>desetinnych mist jenze pri pouziti
>
> retezec = floattostr(cislo ) mi to vrati treba ratezec =
>'-4,567E-05' aale ja bych potreboval '-0,00004567'
>
>prosim pokud vite poradte
>
>diky PM
>
>
>
funkce floattostrf
Radim
FloatToStr
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 5.5.2004 10:21:24
retezec:= format('%.8f',[cislo]);
moznosti formatovani je mnohem vice, viz napoveda k format.
Md
> DD,
> potrebuji prevest na retezec realne cislo a vypsat ho na 6
> desetinnych mist jenze pri pouziti
>
> retezec = floattostr(cislo ) mi to vrati treba ratezec =
> '-4,567E-05' aale ja bych potreboval '-0,00004567'FloatToStr
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 5.5.2004 10:43:28
A co treba tohle?
function FormatFloat(const Format: string; Value: Extended): string;
Jirka
Matejcek Petr wrote:
> potrebuji prevest na retezec realne cislo a vypsat ho na 6
> desetinnych mist jenze pri pouziti
>
> retezec = floattostr(cislo ) mi to vrati treba ratezec =
> '-4,567E-05' aale ja bych potreboval '-0,00004567'WinPCap a Delphi
[*] Martin Nedopil <delphi(zv)hon(tec)cz> - 5.5.2004 10:29:27
Ahoj vsichni,
nemate nekdo nejakou komponentku + ukazku pouziti na %subj% ?
Dik
Martin
OT : Licencia na tvorbu/spravu software
[*] Milan Fabik <fabik(zv)kinekus.sk> - 5.5.2004 10:23:25
Zdravim,
dnes sa mi dostalo do usi, ze v ramci zjednocovania zakonovv s EU bude v pravdepodobne potrebne v buducnosti vlastnit licenciu na
%subject%. (Tym nemyslim licenciu na napr. DELPHI. To je samozrejmost stale). Vraj to ma znamenat nielen zaplatit cca 30.000.- (statu) ale aj zucastnit sa nejakeho povinneho rocneho kurzu na neviem co.
Nechcem tvorit hoax, iba ma zaujima co o tom niekto nieco vie alebo je to volovina.
Dik Fabik
FloatToStr
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 5.5.2004 10:19:24
Na to je vhodna funkce FloatToStrF.
Jirka Matejka
----- Original Message -----
From: "Matejcek Petr" <konference(zv)crhov.komfi(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 05, 2004 10:13 AM
Subject: FloatToStr
> DD,
>
> potrebuji prevest na retezec realne cislo a vypsat ho na 6
> desetinnych mist jenze pri pouziti
>
> retezec = floattostr(cislo ) mi to vrati treba ratezec =
> '-4,567E-05' aale ja bych potreboval '-0,00004567'
>
> prosim pokud vite poradte
>
> diky PM
>
>
> FloatToStr
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 5.5.2004 10:13:22
DD,
potrebuji prevest na retezec realne cislo a vypsat ho na 6
desetinnych mist jenze pri pouziti
retezec = floattostr(cislo ) mi to vrati treba ratezec =
'-4,567E-05' aale ja bych potreboval '-0,00004567'
prosim pokud vite poradte
diky PM
Scroollovani TScrollBox
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 5.5.2004 09:39:16
Ahoj,
mam program ve kterem programove menim pozici ScrollBaru. To mi ale automaticky posunuje Panel ktery mam v danem scroolBoxu spolu s grafikou ktera je na nem nakreslena. Spatne je ze tato grafika se vykresli na novou pozici aniz by byla volana funkce paint. Ja vzapeti prekresluji grafiku na jine misto nez je to posunute. Vznikne mi tam ale tim padem probliknuti.
Potreboval bych nejak zamezit tomu prvnimu vykresleni, ktere zpusobi scrolovani.
Za jakekoli napady diky Petr Daricek
automaticka synchronizace FTP
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 10:01:20
Dobry den,
Wednesday, May 05, 2004, 9:17:14 AM, napsal jste:
>> hmm to je super reseni ale na delphi 7 TNMFTP neni..
LG> A zaplat panbuh za to! ;-)
LG> Neni lepsi pouzit Synapsi nebo Indy?
no skusim tu Synapsi nebo jak se to jmenuje :)
Potrebuji totiz napsat FTP synchronizator na stahovani update z mcafee
serveru.
David
Zjisteni datumu aplikace
[*] tondrej(zv)t-online.de - 5.5.2004 09:39:17
> nainstalovane v IDE to mam, ale ptal jsem se, jakou metodou to pak
> precist v programu [v about], rikals LinkerTimeStamp, tak jsem ji
> ykousel volat, ale program ji neynal, no a po pridani pas do projektu
> yas neynal to api, tak jsem to y toho pas vzmayal, trochu upravil a
> kupodivu to funguje
Da sa to spravit aj tak, ale nebolo by jednoduchsie si tu funkciu skopirovat
niekam do svojej unity?
Obavam sa, ze tie upravy, ktore si urobil, aby si mohol skompilovat ten
zdrojak v svojom projekte, sposobia, ze sa Ti nabuduce nepodari prekompilovat
tu design package.
HTH
TOndrej
prevod textu s diaktritikov na text bez
[*] Karel PeATinka <k.pecinka(zv)seznam(tec)cz> - 5.5.2004 09:01:10
Mozna existuje jina moznost ale ja pouzivam svoji velmi jednoduchou funkci. Muzes si jenom pripsat slovensky znaky a mas to.
function OdstranDiakritiku(s: String): String;
const Diak = ('+AOEA6QDsAO0A8wD6APkA/QDoAO8A+AFhAJ0A8gF+AMEAyQDMAM0A0wDaANkA3QDIAM8A2AFgAI0A0gF9-');
Bez = ('aeeiouuycdrstnzAEEIOUUYCDRSTNZ');
var i, j: Integer;
begin
for i:=1 to length(s) do
for j:=1 to length(Diak) do
if s[i]=Diak[j] then s[i]:=Bez[j];
Result:=s;
end;
Karel
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of mato
Sent: Wednesday, May 05, 2004 8:21 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: prevod textu s diaktritikov na text bez
hi,
viete niekto nejaky postup ako previest text aj s diaktritikou na text bez diaktritiky ? D7
Max. delka klice v Interbase 7.1
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 5.5.2004 09:39:18
Nevite nahodou nekdo, jaka je povolena m a x imalni sirka znakoveho pole na
kterem chci v Interbase 7.1 definovat index?
T.j. mam pole definovane jako varchar a nevim, kolik muzu dat maximum z
tohoto hlediska
Dik. Ivan Kozak
automaticka synchronizace FTP
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.5.2004 09:17:14
david.kopecek(zv)hacktrack.com wrote:
> hmm to je super reseni ale na delphi 7 TNMFTP neni..
Tak pouzij FtpGetFile ze Synapse a pokud ti nebude primo vyhovovat, tak se
podivej,
jak zachazi s tridou TFTPSend a napis si co potrebujes.
HTH, pf
automaticka synchronizace FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.5.2004 09:17:14
> hmm to je super reseni ale na delphi 7 TNMFTP neni..
A zaplat panbuh za to! ;-)
Neni lepsi pouzit Synapsi nebo Indy?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Debugovani COM knihovny ...
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 5.5.2004 09:13:13
> Mam mensi problem s debugovanim COM knihovny. Vytvoril jsem
> si pro ucely debugovani dalsi program, ktery importuje Type Library
> dane knihovny a vola urcitou metodu ...
>
> V projektu COM knihovny mam v Run\Parameters nastavenou cestu binarce
> toho demo projektu. Pokud spustit COM, nabehne demo projekt,
> ale Delphi mi neumozni debugovat. Proste se to na brakepointu nezastavi ...
tady je problem celkem slusne popsany + jsou tam 4 mozna reseni:
http://www.nsonic.de/Delphi/txt_WIS00637.htm
Tomas Zalesak
Vytvoreni SQL dotazu pro soucet hodnot
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 5.5.2004 09:07:11
Dobry den,
potreboval bych poradit s vytvorenim SQL dorazu v IB6.5. Mam jednu tabulku
MER_DATA, kde jsou tyto sloupce
ID_MER, TIME_STAMP a HODNOTA. Do teto tabulky se ukladaji zaznamenane
hodnoty mereni (co vzorek to novy zaznam), kde kazde mereni je
identifikovane cislem v ID_MER a pak se ke kazdemu vzorku vlozi cas ulozeni
do tabulky a hodnota. Ja bych potreboval dostat z tabulky soucet hodnot dvou
mereni, ale aby se vzdy secetly pouze hodnoty vzorku ktere maji stejnou cas
znacku nebo aspon jejich rozdil neni vetsi nez nejaka dana hodnota napr. 5
vterin. Jenze se muze stat, ze treba u jednoho mereni budou vzorky v urcitem
case chybet. Uz me i napadlo,ze to nepujde v jedne tabulce a budu muset pro
kazde mereni udelat tabulku a pak to resit spojenim konkretnich tabulek.
Doufam, ze jsem to srozumitelne popsal. Predem dekuji za kazdou radu nebo
navrh reseni problemu,moje zacatecnicke znalosti na to proste nestaci.
S pozdravem Krakora Martin , WXP D7Ent IB6.5
OT: WinCVS
[*] dphi_forum(zv)proces.sk - 5.5.2004 08:45:06
Nazdarek,
neviete niekto ako by som mohol pomocou WinCVS stiahnut
http://cvs.sourceforge.net/viewcvs.py/firebird/firebird2/ ?
Nainstaloval som si WinCVS 1.3 a Python 2.3.3
Stano
WinCVS
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 5.5.2004 09:05:11
viz http://sf.net
je to tam celkem dobre popsany.
myslim, ze si musis najet primo
k projektu. nicmene pro ucel ziskani
zdrojaku mi prijde jednodussi stahnou
primo ty zdrojaky v sekci download.
Peca
gifimage.pas
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 08:59:09
Zdravim
nejak se nemuzu dohledat gifimage.pas unity v Delphi 7.. nemohl by
jste mi to nekdo please poslat ...
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
automaticka synchronizace FTP
[*] david.kopecek(zv)hacktrack(tec)com - 5.5.2004 08:57:08
Zdravim
MP> FTP access realizuju jednoduse pomoci TNMFTP a v udalosti onPacketRecvd
MP> vykresluju progressbar. Funguje to dobre.
FTP->>Download(RemoteFileName,LocalFileName);
hmm to je super reseni ale na delphi 7 TNMFTP neni..
MP>> Ja to resim takto:
MP>> 1. Stahnu zip z ftp serveru
MP>> 2. rozbalim ho do tempu
MP>> 3. Ukoncim aplikaci, ktera se bude updatovat (pokud bych treba
MP> prepisoval
MP>> bezici exe, tak by to nebylo dobry...)
MP>> 4. spustim davku, kterou ten zip vzdy obsahuje a ta davka se postara o
MP>> vsechno ostatni (kopirovani souboru, tam kam patri)
MP>> Takze aktualizator je velice jednoduchy a univerzalni a vsechna logika
MP>> aktualizace jako je prepisovani souboru, prejmenovani, mazani, spousteni
MP>> ruznych utilit atd je realizovana tou davkou.
MP> a jake komponenty pouzivas pro ftp access.
--
S pozdravem,
David
OT: WinCVS
[*] dphi_forum(zv)proces.sk - 5.5.2004 08:47:07
problem je v nakonfigurovani Admin --> Preferences...
Stano
Zjisteni datumu aplikace
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 5.5.2004 08:43:05
nainstalovane v IDE to mam, ale ptal jsem se, jakou metodou to pak precist v
programu [v about], rikals LinkerTimeStamp, tak jsem ji ykousel volat, ale
program ji neynal, no a po pridani pas do projektu yas neynal to api, tak
jsem to y toho pas vzmayal, trochu upravil a kupodivu to funguje
----- Puvodni zprava -----
Od: <tondrej(zv)t-online.de>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odeslano: 4. kvetna 2004 15:43
Predmet: Re: Zjisteni datumu aplikace
> > diky, zkousel jsem tedy ten pas pridat do projektu, ale nezna unitu
> > ToolsApi ..
>
> To nemas pridat do projektu, ale nainstalovat do IDE v ramci design
package.
> V tom prispevku na CodeCentral je to myslim popisane.
>
> HTH
> TOndrej
>
>
>prevod textu s diaktritikov na text bez
[*] mato <mato.tino(zv)inmail.sk> - 5.5.2004 08:21:03
hi,
viete niekto nejaky postup ako previest text aj s diaktritikou na text bez
diaktritiky ?
D7
Prechod z IB6.0 na FB1.5
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.5.2004 08:09:01
David Klodner dne 5 May 2004 v 0:52:
> 1. muzu pouzit stavajici *.gdb soubor nebo musim DB vytvorit znovu v
> nejakem FB administratoru?
Backup/Restore. Cvicne jsem to na 2 PC zkusil bez obnovy ze zalohy: na jednom vse OK, na druhem
nejake rozhozene indexy (pri selectu, ktery vyuzival index, se zobrazilo asi 10 polozek z 22.000;
po backup/restore vse bez problemu).
> 2. ze starsich prispevku jsem vycetl, ze z komponent, ktere jsou
> zdarma vyuziva vetsina lidi IBX, ja pouzivam D5 prof. Muzu sem nejak
> IBX komponenty dostat? Nebo funguji az od D6?
Funguji i v D5.
Karel Rys
IIS + Delphi
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 5.5.2004 07:57:00
Ahoj,
posilam kus kodu pro vytvoreni virtualniho web serveru, ktery jsem kdysi pouzil v instalatoru aplikace. Fungovalo to dobre (W2K, IIS 5.0):(je nutne naimportovat knihovnu activeds.dll!)
//////////////////////
uses activeds_tlb;
.....
.....
function CreateVirtualWebServer : Boolean;
var
I: IADsContainer;
ADs: IADs;
WebSite, webroot, WebServer : Variant;
AccessFlgs : Integer;
GlobHandle : THandle;
begin
Result := True;
GlobHandle := LoadLibrary('activeds.dll');
try
if (GlobHandle <> 0)
then begin
(zv)AdsGetObject := GetProcAddress(GlobHandle, 'ADsGetObject');
try
if ADsGetObject('IIS://localhost/w3svc', IID_IADsContainer, IUnknown(I)) = S_Ok
then begin
ADs := IADs (I.GetObject ('IIsWebServer', IntToStr(FVirtualWeb.ParentServerID)));
If ADs.QueryInterface (IID_IADsContainer, I) = S_OK
then begin
ADs := IADs (I.GetObject ('IIsWebVirtualDir', 'Root'));
If ADs.QueryInterface (IID_IADsContainer, I) = S_OK
then begin
aDs := IADs (I.Create ('IIsWebVirtualDir', FVirtualWeb.ServerName));
ADs.Put('Path', GetPath(FVirtualWeb.RootPath));
ADs.SetInfo;
end;
//////////////////////////////////////////
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root\' + FVirtualWeb.ServerName);
webroot.AppCreate(True);
case FVirtualWeb.IsolatedLevel
of 0 : WebRoot.AppIsolated := 0;
1 : WebRoot.AppIsolated := 2;
2 : WebRoot.AppIsolated := 1;
end;
/// 0 - LOW (IIS process)
/// 2 - MEDIUM (Pooled)
/// 1 - HIGH (Isolated)
WebRoot.AppFriendlyName := FVirtualWeb.AppFriendlyName;
AccessFlgs := 0;
if FVirtualWeb.AccessRead
then AccessFlgs := AccessFlgs or $1;
if FVirtualWeb.AccessWrite
then AccessFlgs := AccessFlgs or $2;
if FVirtualWeb.AccessSource
then AccessFlgs := AccessFlgs or $10;
case FVirtualWeb.ExecutePermissions
of 1 : AccessFlgs := AccessFlgs or $200; // <-- SCRIPTS ONLY
2 : AccessFlgs := AccessFlgs or $4; // <-- SCRIPTS AND EXECUTABLES
end;
WebRoot.AccessFlags := AccessFlgs;
WebRoot.EnableDirBrowsing := FVirtualWeb.DirectoryBrowsing;
Webroot.SetInfo;
I := nil;
Ads := nil;
end;
end;
except
on E : Exception
do begin
if MessageDlg(Format(GetStr('main_create_virt_server_err'), [E.Message]), mtError, [mbYes, mbNo], 0) = mrNo
then Result := False;
end;
end;
end
else begin
MessageDlg(GetStr('main_loading_activeds_dll_err'), mtError, [mbOK], 0);
end;
finally
FreeLibrary(GlobHandle);
end;
end;
Ales
> -----Original Message-----
> From: Jan Netrval [mailto:jnetrval(zv)pilscom(tec)cz]
>
> Jeste bych upresnil, ze se jedna o IIS 5.0. Opravdu nevim co s tim.
>
> Ing. Jan Netrval
FTP pres SSL
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 4.5.2004 12:59:18
Zdravim,
potreboval bych stahovat soubory z FTP nejak zabezpecene, nejlepe pres
SSL. Poradi mi prosim nekdo, jake komponenty pro to pouzit? A taky jakej
FTP server podporujici SSL je dobrej?
Diky.
Karel, D5, WinXP
IIS + Delphi
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 4.5.2004 12:53:17
Mam takovy problemek. Nezkousel jste nekdo z Delphi vytvaret a editovat objekty v IIS (napr. VirtualDirectory).
Pouzivam neco takoveho:
obj := ADsHlp.GetObject('IIS://localhost/w3svc/1/root/xxx);
A po provedeni tohoto radku at udelam co udelam, tak program spadne.
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
DBEdit a Post
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 4.5.2004 12:45:15
Ahoj,
mel jsem podobny problem a musel jsem jej resit tak, ze jsem nepracoval s
datasetem (ten obdrzi info o nove hodnote pozdeji az po validaci), ale primo
s hodnotou ulozenou v edit boxu. Jinak doporuceni zde na konferenci je :
nepouzivat editacni boxy napojene na dataset, ale to je na dyl.
Ludek
Mirne OT - pripojeni pokladniho displeje pres seri
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 4.5.2004 12:41:14
v aplikaci posilame vystup na pokladni displej; komunikace po seriove lince,
momentalne u zakaznika nastaveno tusim 19200 baud.
- ja jsem programoval pomerne kvalitni ctecku od Symbolu, ta mela jednak
korekcni nastaveni, a pak jsem snizil rychlost na minimum (tusim ze to byly
stovky baud). Kazdopadne ctecka mela vlastni napajeni a zakaznik laboroval s
nekolika typy car.kodu.19200 baud je pro tuto vzdalenost myslim nepouzitelne
a pri mnozstvi dat muze byt ta rychlost opravdu snizena na minimum.
Ludek
Mirne OT - pripojeni pokladniho displeje pres seri
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 4.5.2004 12:27:12
Zdravim,
problem bych videl spis v provedeni toho jak rikas
"podomacky" udelaneho kabelu.
Mam na jednom PC pripojen svetelny panel cca 15 m linkou.
Klasika RS232 a funguje to naprosto bez problemu.
A to nam to dodali s ohlodanym konektorem a cca 4 metry
mam pod stolem smotane do klubka. Takze prasarna nejvetsi.
Ale zase je to tazeno dost dobrym tusim dvakrat stinenim kabelem.
Ono mam prakticky vyzkouseno ze limit je nekde po 90 metrech
pri 19200. Ale jen pokud mas opravdu kvalitni kabel a je to v budove.
S pozdravem Vaclav Halik
Jediny program ve windows
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 4.5.2004 12:19:11
On Behalf Of Matejcek Petr
> pls nevi nekdo jak udelat, aby po prihlaseni do windows
> se spustil
> muj program v delphi jako jedina mozna aplikace tj obsluha
> mena sanci
> prepnout se nekam jinam, spoustet nic jineho dokonce se ani nezobrazi
> nabidka start ani hlavni panel ?
> a take jak to vratit zpet ?
Ahoj.
WIN9x :
V system ini zmenit shell=explorer.exe na shell=muj.exe
U W2K nemam prakticke zkusenosti, ale tady mas help k List-Stepu :
win2k,xp
Configuring Windows NT for LiteStep
The most common problem that happens during a LiteStep install on a
Windows
NT machine is that most of the time users don't have administrative
privileges on their machine and can't use a shell swapper. There is,
however, a way to get around this.
You will need to modify a few registry entries, don't be afraid, so fire
up
regedit and lets get started.
HKey_Local_Machine\Software\Windows
NT\CurrentVersion\IniFileMapping\system.ini\boot>SYS:Software\Microsoft\
Windows
NT\CurrentVersion\Winlogon
change this to USR:Software\Microsoft\Windows NT\CurrentVersion\Winlogon
HKey_Current_User\Software\Microsoft\Windows
NT\CurrentVersion\Winlogon>Shell
change the value of Shell to c:\litestep\litestep.exe to add LiteStep.
HKey_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\Adv
anced>SeperateProcess
- if this DWORD is set to "1" explorer won't load as the shell when
triggered inside another shell, if this key is set to "0" it will. This
key
effects LiteStep if you are using Internet Explorer 4 and up, if you
have
an earlier version of Internet Explorer, use a STRING named
DesktopProcess,
with a value of "1" instead of the DWORD. Basically you need this set to
yes if you don't want to have explorer setting itself as shell everytime
you access it.
Note: You can make LiteStep restart automatically after a crash in
Window
NT. This was taken from the LiteStep b24 Manual written by TheMAN."The command SetAsShell makes LiteStep behave as the Official shell and
it
notifies Windows of this fact. This does seem to create some problems
with
Windows at times (especially with IE and quite often when running NT)
and
it has been found that if you do use StepAsShell in your Step.Rc,you
might
have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
key's value in your registry to 1 to get IE (and Windows) to work
properly.
The only advantage to using SetAsShell is that LiteStep is automatically
started when it crashes, like Explorer normally does. As setting
LiteStep
as the shell seems to create strange problems on different machines, it
is
suggested that you don't set this value in your Step.Rc. If you do use
SetAsShell and decide to take it out after a while, remember that you
will
have to reboot (not Recycle as is the normal case with a Step.Rc change)
and that you may have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
registry value back to 0 to get everything working properly."
So basically, if you want to try this - take a risk, worst thing that
can
happen is that you will have problems with explorer until you change the
key back.
Configuring Windows 2K for LiteStep
The most common problem that happens during a LiteStep install on a
Windows
NT machine is that most of the time users don't have administrative
privileges on their machine and can't use a shell swapper. There is,
however, a way to get around this.
You will need to modify a few registry entries, don't be afraid, so fire
up
regedit and lets get started.
HKey_Local_Machine\Software\Microsoft\Windows
NT\CurrentVersion\IniFileMapping\system.ini\boot > Shell
change this to USR:Software\Microsoft\Windows NT\CurrentVersion\Winlogon
HKey_Current_User\Software\Microsoft\Windows
NT\CurrentVersion\Winlogon>Shell
change the value of Shell to c:\litestep\litestep.exe to add LiteStep.
HKey_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer -
Create a New vallue called DesktopProcess and set the Data Field to 1.
HKey_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\Bro
wseNewProcess
> - Change this value to "yes", it seems to correct a few problems with
explorer spawning itself as the shell.
Note: You can make LiteStep restart automatically after a crash in
Window
NT. This was taken from the LiteStep b24 Manual written by TheMAN."The command SetAsShell makes LiteStep behave as the Official shell and
it
notifies Windows of this fact. This does seem to create some problems
with
Windows at times (especially with IE and quite often when running NT)
and
it has been found that if you do use StepAsShell in your Step.Rc,you
might
have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
key's value in your registry to 1 to get IE (and Windows) to work
properly.
The only advantage to using SetAsShell is that LiteStep is automatically
started when it crashes, like Explorer normally does. As setting
LiteStep
as the shell seems to create strange problems on different machines, it
is
suggested that you don't set this value in your Step.Rc. If you do use
SetAsShell and decide to take it out after a while, remember that you
will
have to reboot (not Recycle as is the normal case with a Step.Rc change)
and that you may have to set the
HKEY_LOCAL_USER\Software\Microsoft\Windows\Current
Version\Explorer\DesktopProcess
registry value back to 0 to get everything working properly."
So basically, if you want to try this - take a risk, worst thing that
can
happen is that you will have problems with explorer until you change the
key back.
Ludek
Synapse-preposlani prichozi posty
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 4.5.2004 11:43:08
> Zdravim vsechny borce v Delphi.
> Potrebuji (mam Delphi7) prichozi zpravu,
> kterou jsem pres Synapse "pop3send.pas"
> stahl do TMimeMess, preposlat jako
> message "prilohu" na jinou emailovou
> adresu s mojim pruvodnim komentarem.
> Je mi jasne v celku jak postu odeslat,
> ale nedokazu se "chytit" jak provest
> usporadani noveho mailu, to znamena
> jak puvodni zpravu TMimeMess zapouzdrit
> jako "message/rfc822" do nove zpravy,
> kterou si patricne okomentuji a poslu na novou
> prislusnou adresu kterou potrebuji.
> Konkretni priklad ci presnejsi rada by byla
> super.
Na soukromy mail ti poslu novou verzi Mimemess.pas. (vyjde hnedka v
dalsim syansnapu) S jeho pomoci to je hracka... ;-)
Vytvor si novy TMimemess objekt, a pak postupuj nejak takto (psano z
hlavy, nevylucji preklepy...):
Var
Mime: Tmimemess;
part: Tmimepart;
begin
mess:=tmimemess.create;
try
part:= mess.addpartmutipart('mixed', nil);
mess.addparttext(stringlist_s_tvym_doprovodnym_textem, part);
mess.addpartmess(stringlist_s_puvodni_nedekodovanou_email_zpravou,
part);
//myslen trebas stringlist s textem zpravy, ktery ziskas primo z
pop3send, atd.
//napln si mess.header...
mess.encodemessage;
//v mess.lines mas vysledny mail...
//proved co potrebujes...
finally
mess.free;
end;
end;
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.prikaz v promene
[*] Kratochvil Radomir <radomir.kratochvil(zv)mora(tec)cz> - 4.5.2004 10:47:00
Tady je reseni:
TADOSQL(FindComponent('mojeSQL'+IntToStr(a))).Active := True;
Radek Kratochvil
-----Original Message-----
From: roman bradac [mailto:roman.bradac(zv)fotoinfo(tec)cz]
Sent: Tuesday, May 04, 2004 9:27 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: prikaz v promene
Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
A ja potrebuji se na ne dynamicky odkazovat
Prikl:
a: integer;
prikaz: string;
a:=1;
begin;
while a > 10 do
begin
prikaz:='adosql'+str(a)+'.active=true;'
....
/* tady neco, nevim co aby se to provedlo
....
a:=a+1;
end;
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of mstevlik(zv)gamo.sk
Sent: Monday, May 03, 2004 2:53 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: prikaz v promene
Napis si proceduru alebo funkciu kt. spravi to co potrebujes a potom ju
volaj kolko krat chces ;)
A bo si naprogramuj vlastny jazyk (skriptovaci) napr
procedure Run(iaCommand: array of string);
begin
if (AnsiUperCase(iaCommand[0]) = 'ZOBRAZ') then
ShowMessage(iaCommand[1])
else
...
end;
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
delphi-l-owner(zv)clexpert(tec)cz wrote on 03.05.2004 14:45:01:
> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
> posleze ho provest, neco jako:
>
> ....
> Var Prikaz: string
> begin
> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>
> prikaz;
> ....
>
> lze to nejak provest nebo obejit?
>
>
>
>
IBDataSet a naroky na pamet
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.5.2004 11:31:07
petr palicka dne 4 May 2004 v 11:01:
> Ahoj,
>
> pokud potrebujes prochazet data ze serveru
> pouze jednosmerne, typicky nejaky while not eof
> na selectem, tak pouzij TIBSQL.
> Server totiz neumi vratit jiz jednou poslana
> data, musel bys spustit dotaz znovu. Prave proto
> si to ten DataSet uklada do pameti.
Hm, na to pouzivam tIbQuery - to si ale nejspis taky dela cache, ze? U toho tIbDataSetu se mi
hodilo, ze mohu zaznamy prochazet a obcas nejaky upravit. Vetsinou bych klidne ozelel, ze se
nemohu vratit zpet k jiz "proslemu" zaznamu, ale potrebuju mit moznost ho v pripade potreby
upravit (rekneme jen 1 % zaznamu, ktere splnuji nejakou podminku, kterou v SQL proste neosetrim),
a to, zda se mi, s jednou komponentou nepujde.
Karel Rys
IBDataSet a naroky na pamet
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 4.5.2004 11:01:03
Ahoj,
pokud potrebujes prochazet data ze serveru
pouze jednosmerne, typicky nejaky while not eof
na selectem, tak pouzij TIBSQL.
Server totiz neumi vratit jiz jednou poslana
data, musel bys spustit dotaz znovu. Prave proto
si to ten DataSet uklada do pameti.
Peca
Karel Rys wrote:
> Dobry den,
>
> nedavno tu nekdo uvadel jako nevyhodou u tIbDataSet, ze udrzuje velky buffer
> zaznamu, takze na dostatecne velkem mnozstvi dat bude mit problemy. To jsem
> jeste doufal, ze se s tim v praxi nesetkam :-)
>
> Nevite nekdo, zda se da velikost tohoto bufferu nejak omezit, popr. i
> programove uz do bufferu stazene zaznamy "zahodit" (aby si je pripadne
> priste ze serveru znovu vyzadal)?
>
> Diky,
>
> Karel Rys
>
>
>
>
>
Synapse-preposlani prichozi posty
[*] petajs(zv)centrum(tec)cz - 4.5.2004 11:09:04
Zdravim vsechny borce v Delphi.
Potrebuji (mam Delphi7) prichozi zpravu,
kterou jsem pres Synapse "pop3send.pas"
stahl do TMimeMess, preposlat jako
message "prilohu" na jinou emailovou
adresu s mojim pruvodnim komentarem.
Je mi jasne v celku jak postu odeslat,
ale nedokazu se "chytit" jak provest
usporadani noveho mailu, to znamena
jak puvodni zpravu TMimeMess zapouzdrit
jako "message/rfc822" do nove zpravy,
kterou si patricne okomentuji a poslu na novou
prislusnou adresu kterou potrebuji.
Konkretni priklad ci presnejsi rada by byla
super.
Tak zatim diky Petr Simunek (petajs(zv)centrum(tec)cz)prikaz v promene
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 4.5.2004 10:59:02
Ahoj,
zkus se podivat na navrhove vzory - zajimat by te mel navrhovy vzor
Command, ktery by ti mohl kod zprehlednit.
Lukas
> Uloz si jednotlive reference do nejake dynamicke kolekce (TList ?) a pres
> index se pak na ne odvolavej.
>
> HTH,
> Petr Langer
>
> ----- Original Message -----
> From: "roman bradac" <roman.bradac(zv)fotoinfo(tec)cz>
> Subject: Re: prikaz v promene
>
>Mirne OT - pripojeni pokladniho displeje pres seri
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 4.5.2004 10:53:01
> v aplikaci posilame vystup na pokladni displej; komunikace po seriove
lince,
> momentalne u zakaznika nastaveno tusim 19200 baud.
>
> Pomerne casto aplikace hlasi chybu pri komunikaci; na stanici maji Windows
> 98 a seriovy kabel je asi 9 m dlouhy ("podomacku" vyrobeny firmou, co jim
> dodala displeje). Mate prosim nekdo zkusenosti s pripojenim serioveho
> zarizeni touto rychlosti na takovou vzdalenost? Muze to fungovat
spolehlive,
> nebo pri tehle delce kabelu to bude rusene?
videl som registracne pokladne pripojene na vecsiu vzdialenost a fungovali,
cize prakticky to urcite moze fungovat (hoci neviem, ci to je dobre pouzite,
ci nie su prekrocene povolene parametre, pozri napr.
http://www.camiresearch.com/Data_Com_Basics/RS232_standard.html,
tam sa spomina nejakych 25 feet, to by malo byt asi 7.5 metra).
Skus pripojit displej kratsim kabelom a skontroluj, ci sa potom chodi dobre.
Erik
Mirne OT - pripojeni pokladniho displeje pres seri
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 4.5.2004 10:46:59
Pri teto rychlosti neni problem 12 m (overeno v praxi v prumyslu), ale
to se jedna
pouze o utlum, delka kabelu NEMA s rusinim mnoho spolecneho.
Doporuciji zkontrolovat kvalitu signalu osciloskopem. Problemem
take mohou byt nekvalitni vystupy a spatne zakonceni linky.
Klasicky je vsak treba pocitat u seriove linky s vypadky byte,
1% chybnych paketu je celkem normalni (10m RS485 v prumyslu).
Reseni:
1. Pouzit protokol/postup odolny proti chybam
2. Pouzit linku typu RS422/RS485 meji vetsi odolnost proti ruseni
3. Pouzit Ethernet a konvertor na RSxxx az u zarizeni (napriklad MOXA).
Slavek
> Dobry den,
>
> v aplikaci posilame vystup na pokladni displej; komunikace po
> seriove lince,
> momentalne u zakaznika nastaveno tusim 19200 baud.
>
> Pomerne casto aplikace hlasi chybu pri komunikaci; na stanici
> maji Windows
> 98 a seriovy kabel je asi 9 m dlouhy ("podomacku" vyrobeny
> firmou, co jim
> dodala displeje). Mate prosim nekdo zkusenosti s pripojenim serioveho
> zarizeni touto rychlosti na takovou vzdalenost? Muze to
> fungovat spolehlive,
> nebo pri tehle delce kabelu to bude rusene?prikaz v promene
[*] Petr Langer <langer(zv)xdom(tec)cz> - 4.5.2004 09:40:38
Uloz si jednotlive reference do nejake dynamicke kolekce (TList ?) a pres
index se pak na ne odvolavej.
HTH,
Petr Langer
----- Original Message -----
From: "roman bradac" <roman.bradac(zv)fotoinfo(tec)cz>
Subject: Re: prikaz v promene
> Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> A ja potrebuji se na ne dynamicky odkazovat
>
> Prikl:
> a: integer;
> prikaz: string;
> a:=1;
> begin;
> while a > 10 do
> begin
> prikaz:='adosql'+str(a)+'.active=true;'
>
> ....
> /* tady neco, nevim co aby se to provedlo
>
> ....
> a:=a+1;
> end;
> end;
Mirne OT - pripojeni pokladniho displeje pres seri
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 4.5.2004 10:36:58
> devet metru na seriovej kabel je dost ... psal jsem nekolik programu na
Pripojujeme pres seriovy kabel pokladni tiskarny do vzdalenosti 30m a funguji bez problemu. Ale muze byt nekde po trase kudy vede kabel nejaky lokalni zdroj ruseni, potom i na kratsi vzdalenost mohou by problemy. Marek Dostal
D7Prof, WinXP Home, FireBird 1.0.2
Mirne OT - pripojeni pokladniho displeje pres seri
[*] tomsir1.edu(zv)mail.cez(tec)cz - 4.5.2004 09:28:32
devet metru na seriovej kabel je dost ... psal jsem nekolik programu na
komunikaci PC <-> mobil , pripadne PC <-> jednocip ... nikdy zadny problem,
pravda je ovsem to, ze jsem vzdy pouzil kabel nekolikanasobne kratsi,
tusim, ze nejdelsi mel cca 2 metry ...
Zkuste, pokud muzete, pouzit na nejake otestovani klasicky seriovy kabel,
ktery se jeste da koupit a pokud hlasky budou pokracovat, tak bych proveril
stavajici kabel,muze byt prelomeny drat, studenak v konektoru apod +
pripadne ho zbastlil sam v potrebne delce ... dalsim resenim /podstatne
drazsim/ by bylo pouzit treba dva prevodniky rs232 <-> ethernet, tim by se
vzdalenost prodlouzila na 100 metru :o)
Radek
"Karel Rys" <delphi(zv)zas-me(tec)cz>(zv)clexpert(tec)cz on 04.05.2004 09:06:27
Odpovezte prosim - delphi-l(zv)clexpert(tec)cz
Odeslano kym: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
Predmet: Mirne OT - pripojeni pokladniho displeje pres seriovy port
Dobry den,
v aplikaci posilame vystup na pokladni displej; komunikace po seriove
lince,
momentalne u zakaznika nastaveno tusim 19200 baud.
Pomerne casto aplikace hlasi chybu pri komunikaci; na stanici maji Windows
98 a seriovy kabel je asi 9 m dlouhy ("podomacku" vyrobeny firmou, co jim
dodala displeje). Mate prosim nekdo zkusenosti s pripojenim serioveho
zarizeni touto rychlosti na takovou vzdalenost? Muze to fungovat
spolehlive,
nebo pri tehle delce kabelu to bude rusene?
Diky,
Karel Rys
Jediny program ve windows
[*] Jiri Virt <virt(zv)volny(tec)cz> - 4.5.2004 09:28:32
tusim ze se napsal ten exac do win.ini ..
explore=muj.exe
Jirka Virt
Jediny program ve windows
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 4.5.2004 09:26:30
DD,
pls nevi nekdo jak udelat, aby po prihlaseni do windows se spustil
muj program v delphi jako jedina mozna aplikace tj obsluha mena sanci
prepnout se nekam jinam, spoustet nic jineho dokonce se ani nezobrazi
nabidka start ani hlavni panel ?
a take jak to vratit zpet ?
PC bude vyuzivano pro jednoucelove rizeni
diky PM
prikaz v promene
[*] roman bradac <roman.bradac(zv)fotoinfo(tec)cz> - 4.5.2004 09:26:31
Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
A ja potrebuji se na ne dynamicky odkazovat
Prikl:
a: integer;
prikaz: string;
a:=1;
begin;
while a > 10 do
begin
prikaz:='adosql'+str(a)+'.active=true;'
....
/* tady neco, nevim co aby se to provedlo
....
a:=a+1;
end;
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of mstevlik(zv)gamo.sk
Sent: Monday, May 03, 2004 2:53 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: prikaz v promene
Napis si proceduru alebo funkciu kt. spravi to co potrebujes a potom ju
volaj kolko krat chces ;)
A bo si naprogramuj vlastny jazyk (skriptovaci) napr
procedure Run(iaCommand: array of string);
begin
if (AnsiUperCase(iaCommand[0]) = 'ZOBRAZ') then
ShowMessage(iaCommand[1])
else
...
end;
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
delphi-l-owner(zv)clexpert(tec)cz wrote on 03.05.2004 14:45:01:
> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
> posleze ho provest, neco jako:
>
> ....
> Var Prikaz: string
> begin
> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>
> prikaz;
> ....
>
> lze to nejak provest nebo obejit?
>
>
>
> Mirne OT - pripojeni pokladniho displeje pres seri
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 4.5.2004 09:30:34
Karel Rys wrote:
>
> Pomerne casto aplikace hlasi chybu pri komunikaci; na stanici maji
Jeste me tad napadlo. Muzes zkusit (pokud uz to tak nejni) dat jak PC tak
pokladni displej na jednu "zem". Aby byla signalova zem pro oba komunikujici
stejna. To by take mohl byt problem. Jinak signalova zem na kabelu je spicka
c. 7.Mirne OT - pripojeni pokladniho displeje pres seri
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 4.5.2004 09:30:33
Karel Rys wrote:
> Pomerne casto aplikace hlasi chybu pri komunikaci; na stanici maji
> Windows 98 a seriovy kabel je asi 9 m dlouhy ("podomacku" vyrobeny
> firmou, co jim dodala displeje). Mate prosim nekdo zkusenosti s
> pripojenim serioveho zarizeni touto rychlosti na takovou vzdalenost?
> Muze to fungovat spolehlive, nebo pri tehle delce kabelu to bude
> rusene?
No tech 9 metru se zda jako dost dlouha vec. Ja mel kdysi kabel asi 4 metry
a fungoval dobre (na spojeni 2 PC, tenkrat, a jeste Centronics :)), ale 9
metru je dost dlouha, tam uz ten signal asi nebude tak "peknej" a proto to
asi hlasi tu chybu.
Maximalni delka seriaku je 25 metru, ale cert vi, jak je tento po domacku
vyrobenej dobrej.
Jedine bych zkusil pouzit jinej.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
prikaz v promene
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.5.2004 10:04:50
No, ja bych rekl, ze se zneprehledni spis tehdy, kdyz se vlastne predem
nikdy nevi, co se s cim provede :-)
Zkus tedy to hledani komponent podle jmena - nesedim u Delphi, ale nejspis
formular bude mit motodu nazvanou neco jako "FindComponentByName" - te
predas to jmeno poskladane podle tvych potreb.
Karel Rys
roman bradac dne 4 May 2004 v 9:56:
> Presne tomuto se chci vyhnout, musim zadavat k tomu pomerne dosti
> slozite podminky kdy a za jakych okolnosti se provede to ci ono a tim
> se zdrojovy kod znacne zneprehledni.
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
> On Behalf Of Karel Rys Sent: Tuesday, May 04, 2004 9:39 AM To:
> delphi-l(zv)clexpert(tec)cz Subject: Re: prikaz v promene
>
> roman bradac dne 4 May 2004 v 9:26:
>
> > Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> > Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> > A ja potrebuji se na ne dynamicky odkazovat
>
> zkusil bych
> var Pom:tAdoSQL; // nebo co...
>
> case a of
> 1:Pom:=AdoSql1;
> 2:Pom:=AdoSql2;
> end;
prikaz v promene
[*] roman bradac <roman.bradac(zv)fotoinfo(tec)cz> - 4.5.2004 09:56:47
Presne tomuto se chci vyhnout, musim zadavat k tomu pomerne dosti
slozite podminky kdy a za jakych okolnosti se provede to ci ono a tim se
zdrojovy
kod znacne zneprehledni.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Karel Rys
Sent: Tuesday, May 04, 2004 9:39 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: prikaz v promene
roman bradac dne 4 May 2004 v 9:26:
> Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> A ja potrebuji se na ne dynamicky odkazovat
zkusil bych
var Pom:tAdoSQL; // nebo co...
case a of
1:Pom:=AdoSql1;
2:Pom:=AdoSql2;
end;
if Pom<>nil then Pom. ....
Komponenta se da najit i podle jmena, ale to nevim z hlavy.
Karel Rys
Mirne OT - pripojeni pokladniho displeje pres seri
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 4.5.2004 09:44:41
mam ve firme telefonni ustrednu pripojenou pres seriak asi na vzdalenost 50m
vedeme to normalne datovou sitovou snurou, mozna to odstranuje pripadne
ruseni
prikaz v promene
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.5.2004 09:38:35
roman bradac dne 4 May 2004 v 9:26:
> Dik za typ, ale pokusim se presneji vyjadrit co potrebuji:
> Mam nekolik komponent se jmenem adosql1, adosql2, adosql3 ...
> A ja potrebuji se na ne dynamicky odkazovat
zkusil bych
var Pom:tAdoSQL; // nebo co...
case a of
1:Pom:=AdoSql1;
2:Pom:=AdoSql2;
end;
if Pom<>nil then Pom. ....
Komponenta se da najit i podle jmena, ale to nevim z hlavy.
Karel Rys
IBDataSet a naroky na pamet
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.5.2004 09:20:29
Dobry den,
nedavno tu nekdo uvadel jako nevyhodou u tIbDataSet, ze udrzuje velky buffer
zaznamu, takze na dostatecne velkem mnozstvi dat bude mit problemy. To jsem
jeste doufal, ze se s tim v praxi nesetkam :-)
Nevite nekdo, zda se da velikost tohoto bufferu nejak omezit, popr. i
programove uz do bufferu stazene zaznamy "zahodit" (aby si je pripadne
priste ze serveru znovu vyzadal)?
Diky,
Karel Rys
vyuziti info z UPS a Delphi
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 4.5.2004 08:50:24
> nevi nekdo, jestli (pripadne jak) se da nejak z programu v Delphi
> vyuzit info o stavu UPS - % nabiti baterie, zda je napajeni na
> baterii nebo na el. sit apod.
na UPS nevim ale ja pouzivam na notebooku na stav baterie
GetSystemPowerStatus vyuziti najdes v JCL myslim ze to bude fungovat i na
UPC
Transparentnost u glyph
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 4.5.2004 09:12:28
> > zobrazi transparentne. OK. Ted se snazim neco podobneho
>
> Ahoj,
>
> a neni potreba nastavit Transparent(transparent mod)
> u ty bitmapy? (viz priklad v Helpu:
>
Ahoj,
ten priklad jsem samozrejme videl, ale nastaveni transparent
nezabralo. Budu jeste experimentovat... Na druhou stranu - TImage
ten obrazek zobrazi spravne, tj. transparentne, zatim jsem ale
nevykoukal, jak to dela.
David Lebeda
vyuziti info z UPS a Delphi
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 4.5.2004 08:54:25
jeste doplnim ze je tu celkem uzitecna message WM_POWERBROADCAST ktera je
vyvolana pri kazde zmene s baterii zmena procenta, vyjmuti baterie,
pripojeni el. site
Mirne OT - pripojeni pokladniho displeje pres seri
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.5.2004 09:06:27
Dobry den,
v aplikaci posilame vystup na pokladni displej; komunikace po seriove lince,
momentalne u zakaznika nastaveno tusim 19200 baud.
Pomerne casto aplikace hlasi chybu pri komunikaci; na stanici maji Windows
98 a seriovy kabel je asi 9 m dlouhy ("podomacku" vyrobeny firmou, co jim
dodala displeje). Mate prosim nekdo zkusenosti s pripojenim serioveho
zarizeni touto rychlosti na takovou vzdalenost? Muze to fungovat spolehlive,
nebo pri tehle delce kabelu to bude rusene?
Diky,
Karel Rys
DBEdit a Post
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 4.5.2004 08:48:23
Neni to dialogove okno, mam to na MainFormu. Problem je, ze i kdyz se z tech
editboxu premistim, treba mysi nebo tabulatorem, onExit se zavola, ale do DB
tabulky to nic nepropise! Musim v onExit udelat Tabulka->Post() a pak je to
dobry. Mam na formu spoustu dbeditu a vsechno funguje dobre krome tech dvou,
ktere pracuji s jednou tabuklou. Napada me, ze mozna vadi, ze ta tabulka ma
jediny zaznam. Ty edity zobrazuji data koreknte, jen je nemeni. Tabulka i
edity jsou stejne nastavene jako ostatni tabulky a edity u kterych to
funguje, tak nevim...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Karel Rys
Sent: Tuesday, May 04, 2004 7:32 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: DBEdit a Post
Cim uzivatel ukoncuje to dialogove okno? Kdyz jsem treba v udalosti OnClick
tlacitka OK chtel
testovat hodnoty poli, stavalo se mi (D5), ze jsem nejprve rucne musel dat
OK.SetFocus a teprve
pote testy provest. V D5 (a mozna i dalsich) je podle me chyba, ze kdyz
uzivatel na OK "klikne"
stiskem Alt+O, policko, ve kterem byl predtim Focus, nedostane udalost
OnExit...
Karel Rys
Martin Pisarik dne 3 May 2004 v 17:59:
> Ne prave ze do nich zapisuje uzivatel, ale z nejakeho zahadneho duvodu
> to nepropisuje do databaze. Musim to programove postnout v onExit
> eventu a to je divny. Ostatni DBEdity mi funguji dobre, jen tyhle dva
> ne. Je tam urcite nejaka blba chyba, jen ji nemuzu najit...
automaticka synchronizace FTP
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 4.5.2004 08:42:22
FTP access realizuju jednoduse pomoci TNMFTP a v udalosti onPacketRecvd
vykresluju progressbar. Funguje to dobre.
FTP->Download(RemoteFileName,LocalFileName);
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of david.kopecek(zv)hacktrack.com
Sent: Monday, May 03, 2004 8:40 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: automaticka synchronizace FTP
Dobry den,
Monday, May 03, 2004, 2:26:59 PM, napsal jste:
MP> Ja to resim takto:
MP> 1. Stahnu zip z ftp serveru
MP> 2. rozbalim ho do tempu
MP> 3. Ukoncim aplikaci, ktera se bude updatovat (pokud bych treba
prepisoval
MP> bezici exe, tak by to nebylo dobry...)
MP> 4. spustim davku, kterou ten zip vzdy obsahuje a ta davka se postara o
MP> vsechno ostatni (kopirovani souboru, tam kam patri)
MP> Takze aktualizator je velice jednoduchy a univerzalni a vsechna logika
MP> aktualizace jako je prepisovani souboru, prejmenovani, mazani, spousteni
MP> ruznych utilit atd je realizovana tou davkou.
a jake komponenty pouzivas pro ftp access.
D.
MP> -----Original Message-----
MP> From: delphi-l-owner(zv)clexpert(tec)cz
MP> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
MP> Behalf Of david.kopecek(zv)hacktrack.com
MP> Sent: Monday, May 03, 2004 1:47 PM
MP> To: delphi-l(zv)clexpert(tec)cz
MP> Subject: OT: automaticka synchronizace FTP
MP> ZDravim
MP> nemate nekdo vyresenou automatickou aktualizaci aplikace z ftp ?
MP> potreboval bych v pravidelnych intervalech stahnout obsah adresare a
MP> v pripade ze jsou nove soubory tak je nahrat na uricte misto
MP> --
MP> S pozdravem,
MP> David
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Transparentnost u glyph
[*] martin kolos <xkoky(zv)atlas(tec)cz> - 4.5.2004 07:42:18
>Veskere me laborovani zatim nikam nevedlo. Nevite nekdo, jak obrazek z TPicture
>prevest na TBitmap se zachovanim pruhlednosti?
>
ahojte
nejsem si jisty, ale mam za to, ze bmp nepodporuje transparentnost
martin kolos
DBEdit a Post
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.5.2004 07:32:17
Cim uzivatel ukoncuje to dialogove okno? Kdyz jsem treba v udalosti OnClick tlacitka OK chtel
testovat hodnoty poli, stavalo se mi (D5), ze jsem nejprve rucne musel dat OK.SetFocus a teprve
pote testy provest. V D5 (a mozna i dalsich) je podle me chyba, ze kdyz uzivatel na OK "klikne"
stiskem Alt+O, policko, ve kterem byl predtim Focus, nedostane udalost OnExit...
Karel Rys
Martin Pisarik dne 3 May 2004 v 17:59:
> Ne prave ze do nich zapisuje uzivatel, ale z nejakeho zahadneho duvodu
> to nepropisuje do databaze. Musim to programove postnout v onExit
> eventu a to je divny. Ostatni DBEdity mi funguji dobre, jen tyhle dva
> ne. Je tam urcite nejaka blba chyba, jen ji nemuzu najit...zaktivneni aplikace
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 3.5.2004 23:49:47
Fitz Ladislav wrote:
> dobry den
>
> nevite nekdo jak rict aplikaci umistene v TrayIcon ktera se schova ve
> WinXP jako neaktivni ze je stale aktivni?
No, neznam systemove reseni, ale jedine co me napada, je obcas tu ikonu
nejak zmenit, nebo s ni neco udelat. Treba Avast!4 se porad meni a taky
nezmizi.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
automaticka synchronizace FTP
[*] david.kopecek(zv)hacktrack(tec)com - 3.5.2004 20:39:34
Dobry den,
Monday, May 03, 2004, 2:26:59 PM, napsal jste:
MP> Ja to resim takto:
MP> 1. Stahnu zip z ftp serveru
MP> 2. rozbalim ho do tempu
MP> 3. Ukoncim aplikaci, ktera se bude updatovat (pokud bych treba prepisoval
MP> bezici exe, tak by to nebylo dobry...)
MP> 4. spustim davku, kterou ten zip vzdy obsahuje a ta davka se postara o
MP> vsechno ostatni (kopirovani souboru, tam kam patri)
MP> Takze aktualizator je velice jednoduchy a univerzalni a vsechna logika
MP> aktualizace jako je prepisovani souboru, prejmenovani, mazani, spousteni
MP> ruznych utilit atd je realizovana tou davkou.
a jake komponenty pouzivas pro ftp access.
D.
MP> -----Original Message-----
MP> From: delphi-l-owner(zv)clexpert(tec)cz
MP> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
MP> Behalf Of david.kopecek(zv)hacktrack.com
MP> Sent: Monday, May 03, 2004 1:47 PM
MP> To: delphi-l(zv)clexpert(tec)cz
MP> Subject: OT: automaticka synchronizace FTP
MP> ZDravim
MP> nemate nekdo vyresenou automatickou aktualizaci aplikace z ftp ?
MP> potreboval bych v pravidelnych intervalech stahnout obsah adresare a
MP> v pripade ze jsou nove soubory tak je nahrat na uricte misto
MP> --
MP> S pozdravem,
MP> David
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Vertikalni text
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 3.5.2004 18:33:25
TImage bych na to neplytval :) Canvas ma uz TGraphicControl, takze je
lepsi si udelat potomka z nej.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, May 3, 2004, 5:21:15 PM, you wrote:
RS> Videl bych to asi tak ze bys pouzil image a na jeho canvas lze psat v
RS> jakemkoli uhlu.
RS> na Google urcite najdes spoustu prikladu.
RS> Radek Szurman
FB1.5 InnoSetup skript (Was: Interbase/Firebird in
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 3.5.2004 18:31:24
On 3 May 2004 at 14:02, Martin Schayna wrote:
> Pavel Cisar <pcb(zv)atlas(tec)cz> wrote:
> > On 3 May 2004 at 11:19, Martin Schayna wrote:
> >> BTW, nemohu nikde najit InnoSetup skript pro instalaci FB1.5.
> >> Stahnul jsem si posledni stav z cvs.firebird.sourceforge.net a
> >> tam je jen skript pro FB 1.0
> >
> > mel by byt nekde u zdorjaku fb 1.5 (modul firebird2)
>
> Diky, myslel jsem ze modul firebird2 bude urciti nejaka pristi verze
> FB. Kdyby nekdo potreboval tak je to v ceste (celkem logicky)
> firebird2\builds\install\arch-specific\win32
>
> Musim udelat ceskou instalacku pro "normalni lidi" :-) ...
a potom to, prosim opet 'poves' na vas web, abychom ty instalacky
nemuseli tvorit vsichni. Diky.
Jinak (abych take trochu prispel "do mlyna") na FB 1.5 jsme prevedli
dva projekty, od zacatku brezna 'jedou' bez sebemensich problemu.
Jarek Uher
Transparentnost u glyph
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 3.5.2004 18:23:22
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lebeda David
>
> Ahoj,
>
> zobrazi transparentne. OK. Ted se snazim neco podobneho
Ahoj,
a neni potreba nastavit Transparent(transparent mod)
u ty bitmapy? (viz priklad v Helpu:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
LoadFromFile('c:\Program Files\Common Files\Borland
Shared\Images\Splash\256color\factory.bmp');
Transparent := True;
TransParentColor := BitMap.canvas.pixels[50,50];
Form1.Canvas.Draw(0,0,BitMap);
TransparentMode := tmAuto;
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free;
end;
end;
)
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
prikaz v promene
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.5.2004 18:17:21
Tomas Emresz <tomas(zv)emresz.com> wrote:
>
> Nebo pouzij nektery ze skriptovacich engine. Nemusis si psat vlastni,
> me se osvedcil innerfuse pascal skript, nyni jiz remote objects pascal
> skript. (www.google.com innerfuse pascal skript), neni k tomu size moc
> dokumentace, ale da se to pekne rozbehat. Kdyby neco, muzes se ptat na
> mym soukr meilu..
Ted uz spis hledej "remobjects pascal script", Innerfuse uz neexistuje viz.:
http://www.carlo-kok.com/
http://www.remobjects.com/?ps
Martin Schayna
DBEdit a Post
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 3.5.2004 17:59:19
Ne prave ze do nich zapisuje uzivatel, ale z nejakeho zahadneho duvodu to
nepropisuje do databaze. Musim to programove postnout v onExit eventu a to
je divny. Ostatni DBEdity mi funguji dobre, jen tyhle dva ne. Je tam urcite
nejaka blba chyba, jen ji nemuzu najit...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Rizek
Sent: Monday, May 03, 2004 4:51 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: DBEdit a Post
a zapisuje se do nich pouze uzivatel nebo je plnite programove ?
pokud je plnite programove musite to delat takto:
with DBEdit1.DataSource.DataSet do
if not (State in [dsEdit, dsInsert]) then Edit;
FieldByName('VASE_POLICKO').AsInteger:= 15;
{popripade}
Post; {Apply} {Commit}
end;
----
pokud zapisujete do DBEdt1.text je to spatne..
----- Original Message -----
From: "Martin Pisarik" <martin.pisarik(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 03, 2004 1:24 PM
Subject: DBEdit a Post
> Ahoj *,
>
> mam zajimavy problem. V aplikaci mam spoustu DBEditu a vsechny funguji tak
> jak maji, krome dvou. Ty dva edity nepropisuji hodnoty do databaze,
> zobrazuji je spravne, ale nepropisuji. Oba pracuji s tabulkou, ktera ma
jen
> jeden zaznam.
> Problem jsem vyresil tak, ze v OnExit tech zminenych editu zavolam toto:
> if (D->Tbl->State==dsEdit) {
> D->Tbl->Post();
> }
> Funguje to, ale mam z toho divny pocit, uz proto, ze TEdit vyuzivam hodne
a
> ted mam strach, ze to treba nebude stoprocentne fungovat. Nevite nekdo cim
> by to mohlo byt? Dataset a Edity mam nastaveny stejne jako ty ostatni co
> funguji, Tabulka se taky jevi OK.
>
> ADO, MySQL, BCB6
>
> Dik za rady.
>
>
>
>
>
>
vyuziti info z UPS a Delphi
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 3.5.2004 17:45:18
Zdravim vsechny,
nevi nekdo, jestli (pripadne jak) se da nejak z programu v Delphi vyuzit
info o stavu UPS - % nabiti baterie, zda je napajeni na baterii nebo na el.
sit apod.
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Vertikalni text
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 3.5.2004 17:21:15
Videl bych to asi tak ze bys pouzil image a na jeho canvas lze psat v
jakemkoli uhlu.
na Google urcite najdes spoustu prikladu.
Radek Szurman
> Potreboval bych psat v aplikaci vertikalne. Hledam neco jako
VerticalLabel.
>
> Nevite nekdo o necem, co bych na to mohl pouzit?
>
> JR
>
>
>Vertikalni text
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 3.5.2004 16:51:12
Potreboval bych psat v aplikaci vertikalne. Hledam neco jako VerticalLabel.
Nevite nekdo o necem, co bych na to mohl pouzit?
JR
DBEdit a Post
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 3.5.2004 16:51:13
a zapisuje se do nich pouze uzivatel nebo je plnite programove ?
pokud je plnite programove musite to delat takto:
with DBEdit1.DataSource.DataSet do
if not (State in [dsEdit, dsInsert]) then Edit;
FieldByName('VASE_POLICKO').AsInteger:= 15;
{popripade}
Post; {Apply} {Commit}
end;
----
pokud zapisujete do DBEdt1.text je to spatne..
----- Original Message -----
From: "Martin Pisarik" <martin.pisarik(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, May 03, 2004 1:24 PM
Subject: DBEdit a Post
> Ahoj *,
>
> mam zajimavy problem. V aplikaci mam spoustu DBEditu a vsechny funguji tak
> jak maji, krome dvou. Ty dva edity nepropisuji hodnoty do databaze,
> zobrazuji je spravne, ale nepropisuji. Oba pracuji s tabulkou, ktera ma
jen
> jeden zaznam.
> Problem jsem vyresil tak, ze v OnExit tech zminenych editu zavolam toto:
> if (D->Tbl->State==dsEdit) {
> D->Tbl->Post();
> }
> Funguje to, ale mam z toho divny pocit, uz proto, ze TEdit vyuzivam hodne
a
> ted mam strach, ze to treba nebude stoprocentne fungovat. Nevite nekdo cim
> by to mohlo byt? Dataset a Edity mam nastaveny stejne jako ty ostatni co
> funguji, Tabulka se taky jevi OK.
>
> ADO, MySQL, BCB6
>
> Dik za rady.
>
>
>
>
>
>prikaz v promene
[*] Tomas Emresz <tomas(zv)emresz(tec)com> - 3.5.2004 16:05:08
mgs> A bo si naprogramuj vlastny jazyk (skriptovaci) napr
>> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
>> posleze ho provest, neco jako:
>> ....
>> Var Prikaz: string
>> begin
>> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>>
>> prikaz;
>> ....
Nebo pouzij nektery ze skriptovacich engine. Nemusis si psat vlastni,
me se osvedcil innerfuse pascal skript, nyni jiz remote objects pascal
skript. (www.google.com innerfuse pascal skript), neni k tomu size moc
dokumentace, ale da se to pekne rozbehat. Kdyby neco, muzes se ptat na
mym soukr meilu..
--
S pozdravem,
Tomas Emresz
mailto:tomas(zv)emresz.com
zaktivneni aplikace
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 3.5.2004 15:35:06
dobry den
nevite nekdo jak rict aplikaci umistene v TrayIcon ktera se schova ve WinXP
jako neaktivni ze je stale aktivni?prikaz v promene
[*] mstevlik(zv)gamo.sk - 3.5.2004 14:53:02
Napis si proceduru alebo funkciu kt. spravi to co potrebujes a potom ju
volaj kolko krat chces ;)
A bo si naprogramuj vlastny jazyk (skriptovaci) napr
procedure Run(iaCommand: array of string);
begin
if (AnsiUperCase(iaCommand[0]) = 'ZOBRAZ') then
ShowMessage(iaCommand[1])
else
...
end;
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
delphi-l-owner(zv)clexpert(tec)cz wrote on 03.05.2004 14:45:01:
> Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
> posleze ho provest, neco jako:
>
> ....
> Var Prikaz: string
> begin
> prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
>
> prikaz;
> ....
>
> lze to nejak provest nebo obejit?
>
>
>
>
prikaz v promene
[*] roman bradac <roman.bradac(zv)fotoinfo(tec)cz> - 3.5.2004 14:45:01
Zdravim vsechny, potreboval bych priradit do promene nejaky prikaz a
posleze ho provest, neco jako:
....
Var Prikaz: string
begin
prikaz:= 'ShowMessage(''to to je dulezita zprava'');'
prikaz;
....
lze to nejak provest nebo obejit?
Transparentnost u glyph
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.5.2004 14:39:00
Ahoj,
mam obrazek GIF, ktery kdyz necham zobrazit pomoci TImage komponenty, tak se
zobrazi transparentne. OK. Ted se snazim neco podobneho naucit svou komponentu,
ktera by mela byt neco jako TBitBtn doplneny o property Color (+ dalsi vlastnosti jako
treba zalamovani textu).
Pouzivam stejny postup, jakym je realizovan TBitBtn, navic jsem pridal property Picture
typu TPicture, do ktere jsem schopen nacist GIF obrazek. Ten GIF obrazek potrebuji
prenest do Glyph property. K tomu pouzivam tento postup:
procedure TMyButton.PictureChanged(Sender: TObject);
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := FPicture.Graphic.Width;
bmp.Height := FPicture.Graphic.Height;
bmp.Canvas.Draw(0, 0, FPicture.Graphic);
Glyph := bmp;
finally
bmp.Free;
end;
end;
Postup funguje, button dostane spravny glyph, ale ten glyph neni transparentni.
Veskere me laborovani zatim nikam nevedlo. Nevite nekdo, jak obrazek z TPicture
prevest na TBitmap se zachovanim pruhlednosti?
Diky
David Lebeda
************************************************************
David Lebeda, programator
ComArr s. r. o.
Tolarova 291, 533 51 Pardubice
Telefon: 466 889 111 (ustredna), 466 889 225 (prima linka)
Fax: 466 415 481
E-mail: lebeda(zv)comarr(tec)cz
http://www.comarr(tec)cz
************************************************************automaticka synchronizace FTP
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 3.5.2004 14:26:59
Ja to resim takto:
1. Stahnu zip z ftp serveru
2. rozbalim ho do tempu
3. Ukoncim aplikaci, ktera se bude updatovat (pokud bych treba prepisoval
bezici exe, tak by to nebylo dobry...)
4. spustim davku, kterou ten zip vzdy obsahuje a ta davka se postara o
vsechno ostatni (kopirovani souboru, tam kam patri)
Takze aktualizator je velice jednoduchy a univerzalni a vsechna logika
aktualizace jako je prepisovani souboru, prejmenovani, mazani, spousteni
ruznych utilit atd je realizovana tou davkou.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of david.kopecek(zv)hacktrack.com
Sent: Monday, May 03, 2004 1:47 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: automaticka synchronizace FTP
ZDravim
nemate nekdo vyresenou automatickou aktualizaci aplikace z ftp ?
potreboval bych v pravidelnych intervalech stahnout obsah adresare a
v pripade ze jsou nove soubory tak je nahrat na uricte misto
--
S pozdravem,
David
FB1.5 InnoSetup skript (Was: Interbase/Firebird in
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.5.2004 14:02:56
Pavel Cisar <pcb(zv)atlas(tec)cz> wrote:
> On 3 May 2004 at 11:19, Martin Schayna wrote:
>> BTW, nemohu nikde najit InnoSetup skript pro instalaci FB1.5.
>> Stahnul jsem si posledni stav z cvs.firebird.sourceforge.net
>> a tam je jen skript pro FB 1.0
>
> mel by byt nekde u zdorjaku fb 1.5 (modul firebird2)
Diky, myslel jsem ze modul firebird2 bude urciti nejaka pristi
verze FB. Kdyby nekdo potreboval tak je to v ceste (celkem
logicky) firebird2\builds\install\arch-specific\win32
Musim udelat ceskou instalacku pro "normalni lidi" :-) ...
Martin Schayna
OT: automaticka synchronizace FTP
[*] david.kopecek(zv)hacktrack(tec)com - 3.5.2004 13:46:52
ZDravim
nemate nekdo vyresenou automatickou aktualizaci aplikace z ftp ?
potreboval bych v pravidelnych intervalech stahnout obsah adresare a
v pripade ze jsou nove soubory tak je nahrat na uricte misto
--
S pozdravem,
David
DBEdit a Post
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 3.5.2004 13:24:50
Ahoj *,
mam zajimavy problem. V aplikaci mam spoustu DBEditu a vsechny funguji tak
jak maji, krome dvou. Ty dva edity nepropisuji hodnoty do databaze,
zobrazuji je spravne, ale nepropisuji. Oba pracuji s tabulkou, ktera ma jen
jeden zaznam.
Problem jsem vyresil tak, ze v OnExit tech zminenych editu zavolam toto:
if (D->Tbl->State==dsEdit) {
D->Tbl->Post();
}
Funguje to, ale mam z toho divny pocit, uz proto, ze TEdit vyuzivam hodne a
ted mam strach, ze to treba nebude stoprocentne fungovat. Nevite nekdo cim
by to mohlo byt? Dataset a Edity mam nastaveny stejne jako ty ostatni co
funguji, Tabulka se taky jevi OK.
ADO, MySQL, BCB6
Dik za rady.
FB1.5 InnoSetup skript (Was: Interbase/Firebird in
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.5.2004 12:11:54
Haj hou!
On 3 May 2004 at 11:19, Martin Schayna wrote:
> BTW, nemohu nikde najit InnoSetup skript pro instalaci FB1.5.
> Stahnul jsem si posledni stav z cvs.firebird.sourceforge.net
> a tam je jen skript pro FB 1.0
>
> Pro FB1.5 je jiny CVS?
mel by byt nekde u zdorjaku fb 1.5 (modul firebird2)
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Data do KonfView 2004-04
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 3.5.2004 12:01:53
Jen jeste doplnim - je to v adresari Other\KonfViewData. Tamtez jsem ted
umistil data za prvni ctvrtleti 2004 (2004_1q.zip), za nekolik minut to tam
bude uploadnute.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant> > na ftp://delphi(tec)cz <ftp://delphi(tec)cz> (username DELPHI, heslo ARCHIVAR)
> jsou k dispozici data
> pro KonfView.
>
> J.Hasek
>
Data do KonfView 2004-04
[*] J.Hasek <cz602778(zv)tiscali(tec)cz> - 3.5.2004 11:23:49
Zdravim,
na ftp://delphi(tec)cz (username DELPHI, heslo ARCHIVAR) jsou k dispozici data
pro KonfView.
J.Hasek
FB1.5 InnoSetup skript (Was: Interbase/Firebird in
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.5.2004 11:19:48
Pavel Cisar <pcb(zv)atlas(tec)cz> wrote:
>> Pokud nelze komponenty pouzit na Firebird existuje neco pro
>> Firebird ? Rad bych instalaci pro zakaznika zjednodusil
>> a trochu pocestil.
>
> Lze pouzit InnoSetup (free). Soucasti zdrojaku Firebirdu je i zdrojak
> instalacniho skriptu.
BTW, nemohu nikde najit InnoSetup skript pro instalaci FB1.5.
Stahnul jsem si posledni stav z cvs.firebird.sourceforge.net
a tam je jen skript pro FB 1.0
Pro FB1.5 je jiny CVS?
Martin Schayna
Zapis na COM port
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 3.5.2004 11:15:47
> Chci pouzit unitu SynaSer
> A nasleduje problem
>
> OutPort(BasePort + 3, $40);
> Delayms(20); //pockej 20 ms
> OutPort(BasePort + 3,0);
>
> Jde to nejak provest pomoci SynaSer? Nebo jakkoliv, aby to slo
> korektne po XP.
ser.setbreak(20);
;-) (ta hodnota 20 je tech tvych 20ms.)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.KOLECKO na mysi
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 3.5.2004 10:59:45
Zdravim,
nevim jestli sem to pochopil presne, pisu to decela v presu,
ale skus nepouzivat TDBGrid.
Ja pouzivam TRxDBGrid nebo TVolgaDBGrid a funguje mi to
neprosto solehlive. Roluju koleckem a prerolovava se mi cely
Grid. Tedy funguje to jak ma.
S pozdravem Vaclav Halik
Zapis na COM port
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 3.5.2004 10:57:45
> A nasleduje problem
>
> OutPort(BasePort + 3, $40);
> Delayms(20); //pockej 20 ms
> OutPort(BasePort + 3,0);
>
> Podle dokumentace je tento bit -> 0 = turn break off, 1 = force spacing
> break state
>
> vyrobi to (podle osciloskopu) 20ms impuls na TX.
Windows API pre seriovu komunikaciu priamo podporuje
break a nas ComPort komponent obsahuje k tomu metody
ClearBreak a SetBreak. Podobne to moze byt v SynaSer.
Problemom vo Windowse je dosiahnut presnu dlzku impulzu,
ale pokial tych 20ms je len minimalna hodnota a moze byt
aj vecsia tak staci pouzit Sleep.
Erik
kvalita komponent Apollo (DBF Bez BDE)
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 3.5.2004 10:53:44
Zajimalo by mne, jestli nekdo mate prakticke zkusenosti s nahradou Apollo za
BDE. Stahnul jsem si Trial a zda se, ze to chodi celkem slusne ale praxe
muze byt jina. Tak bych rad vedel nez to koupime jak to chodi Vam. Tabulky
jsou cca 100 000 zaznamu. Drbal jsem se i s TDBF, ale tady stale narazim na
stabilitu. Apollo se jevi nesrovnatelne stabilnejsi.
dik
Zapletal Martin
Vyvoj SW, Technik
________________________________
VSE O TELEFONNICH HOVORECH
INOMA - Brno, s.r.o.
Skacelova 18, 61200, Brno
Telefon : 541 211 337
Fax : 541 240 721
Mobil : 605 246 750
e-mail : zapletal(zv)inoma(tec)cz
http : www.inoma(tec)cz
Zapis na COM port
[*] Petr Lupinek <plupinek(zv)synthesia(tec)cz> - 3.5.2004 10:41:42
Zdravim,
prepisuji komunikacni rutinu z programu, ktery ovladal zarizeni pres COM
port. Byl napsany pro W98 a primo pristupoval k UARTu (8250), pro XP to
samozrejme nechodi.
Chci pouzit unitu SynaSer
v deklaraci je externi dll
function Inport(PortNum:word):word; stdcall; external 'ntport.dll';
procedure Outport(PortNum:word; Data:word); stdcall; external 'ntport.dll';
OutPort(BasePort + 4, 3) - nahradim ser.DTR a ser.RTS
Result:=(InPort(BasePort+6) and $10 ) - cteni CTS = ser.CTS
A nasleduje problem
OutPort(BasePort + 3, $40);
Delayms(20); //pockej 20 ms
OutPort(BasePort + 3,0);
Podle dokumentace je tento bit -> 0 = turn break off, 1 = force spacing
break state
vyrobi to (podle osciloskopu) 20ms impuls na TX.
Jde to nejak provest pomoci SynaSer? Nebo jakkoliv, aby to slo korektne po
XP.
Diky.
WinXP Prof SP1, D4 C/S Upd. #3,
S pozdravem
Ing. Petr Lupinek
datove komunikacni systemy
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel.: 466825535
mob.: +420 736 505 512
KOLECKO na mysi
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 3.5.2004 09:41:38
> Mam nasledovny problem: TDBGrid mi priamo nereaguje na kolecko mysi.
> Niekde som nasiel riesenie, spocivajuce v odchytavani
> udalosti a priamom
> posuvani kurzoru na TDBGride.
>
> if (Msg.message = WM_MOUSEWHEEL) then
> begin
> if Msg.wParam < 0 then ibSuciastka.DataSource.DataSet.Next
> else ibSuciastka.DataSource.DataSet.Prior ;
> end;
>
>
> Opton ROWSELECT musim mat nastaveny na false (ostatne nema to
> na vec vplyv).
>
> Fungovat to funguje, len to nie je celkom v zhode s realitou: je to V
> SKUTOCNOSTI (t.j. oproti tomu, co vidim) o jednu vetu vpred alebo vzad
> (podla toho, ktorym smerom pohybujem kolieskom).
>
> Neviete mi poradit niekto, co robim zle, pripadne, ako opravit tento
> neprijemny problem?
Myslim, ze tohto problemu sa tyka report #1752 v Quality Central:
http://qc.borland.com/wc/wc.exe/details?ReportID=1752
Skus pouzit ten workaround, co je tam uvedeny.
HTH
TOndrej
KOLECKO na mysi
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 3.5.2004 09:37:28
A kde odchytavas ten message? Napr. pri praci s klavesnicou alebo pri
klikani mysou to treba davat do OnKeyUp alebo OnMouseUp. Aj ty to
koliecko davaj do presne opacnej udalosti v akej ju mas teraz.> -----Original Message-----
> Ivan Kozak
>
> Fungovat to funguje, len to nie je celkom v zhode s realitou: je to V
> SKUTOCNOSTI (t.j. oproti tomu, co vidim) o jednu vetu vpred alebo vzad
> (podla toho, ktorym smerom pohybujem kolieskom).KOLECKO na mysi
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 3.5.2004 09:29:26
Jedna z moznosti je pouzit JEDI.
V.
-----Original Message-----
From: Ivan Kozak [mailto:ivan(zv)boucek(tec)cz]
Sent: Monday, May 03, 2004 9:21 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: KOLECKO na mysi
Ospravedlnujem sa, ze to opakujem, ale pred chvilou som nechal nespravny
predmet...
----------------------------------------------
Mam nasledovny problem: TDBGrid mi priamo nereaguje na kolecko mysi.
Niekde som nasiel riesenie, spocivajuce v odchytavani udalosti a priamom
posuvani kurzoru na TDBGride.
if (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam < 0 then ibSuciastka.DataSource.DataSet.Next
else ibSuciastka.DataSource.DataSet.Prior ;
end;
Opton ROWSELECT musim mat nastaveny na false (ostatne nema to na vec vplyv).
Fungovat to funguje, len to nie je celkom v zhode s realitou: je to V
SKUTOCNOSTI (t.j. oproti tomu, co vidim) o jednu vetu vpred alebo vzad
(podla toho, ktorym smerom pohybujem kolieskom).
Neviete mi poradit niekto, co robim zle, pripadne, ako opravit tento
neprijemny problem?
Dakujem. Ivan Kozak
KOLECKO na mysi
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 3.5.2004 09:21:25
Ospravedlnujem sa, ze to opakujem, ale pred chvilou som nechal nespravny
predmet...
----------------------------------------------
Mam nasledovny problem: TDBGrid mi priamo nereaguje na kolecko mysi.
Niekde som nasiel riesenie, spocivajuce v odchytavani udalosti a priamom
posuvani kurzoru na TDBGride.
if (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam < 0 then ibSuciastka.DataSource.DataSet.Next
else ibSuciastka.DataSource.DataSet.Prior ;
end;
Opton ROWSELECT musim mat nastaveny na false (ostatne nema to na vec vplyv).
Fungovat to funguje, len to nie je celkom v zhode s realitou: je to V
SKUTOCNOSTI (t.j. oproti tomu, co vidim) o jednu vetu vpred alebo vzad
(podla toho, ktorym smerom pohybujem kolieskom).
Neviete mi poradit niekto, co robim zle, pripadne, ako opravit tento
neprijemny problem?
Dakujem. Ivan Kozak
Downgrade z Win2003 Svr OEM na Win2000SvrOEM
[*] Jakub Martinek <listbox(zv)vakmb(tec)cz> - 3.5.2004 09:05:24
Mam obavu, ze u OEM nelze. U plne verze nam takto bezi dva W2000srv.
Spise nez na MS je potreba se obratit na dodavatele, solidni to vyresi k
vasis pokojenosti, a hlavne pred nakupem nepouzivat logiku :-) ale spise se
ptat.
Jakub Martinek
jmartinek(zv)vakmb(tec)cz
> Subject: OT: Downgrade z Win2003 Svr OEM na Win2000SvrOEM
>
> Omluva za OT, ale zajima mne, je tu nekdo, kdo zkousel
> vyresit s firmou Microsoft %subj% a uspel? Ja se vcera
> vytocil jak sroubek.
> Martin
PC, 1 modem
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 3.5.2004 08:47:22
Mam nasledovny problem: TDBGrid mi priamo nereaguje na kolecko mysi.
Niekde som nasiel riesenie, spocivajuce v odchytavani udalosti a priamom
posuvani kurzoru na TDBGride.
if (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam < 0 then ibSuciastka.DataSource.DataSet.Next
else ibSuciastka.DataSource.DataSet.Prior ;
end;
Opton ROWSELECT musim mat nastaveny na false.
Fungovat to funguje, len to nie je celkom v zhode s realitou: je to V
SKUTOCNOSTI (t.j. oproti tomu, co vidim) o jednu vetu vpred alebo vzad
(podla toho, ktorym smerom pohybujem kolieskom).
Neviete mi poradit niekto, co robim zle, pripadne, ako opravit tento
neprijemny problem?
Dakujem. Ivan Kozak
SQL a promenna_zacatecnik
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 3.5.2004 06:23:12
> DB je Firebird 1.5 a v IBExpert jsem si nastavil Charset win1250..
> Bohuzel uz nevim, kde jinde kodovani nastavit.. Je potreba nastavit
> nekde nejakou vlastnost komponenty Delphi...?
>
> Chybova hlaska je 'arithmetic exception, numeric overflow, or string
> truncation Cannot transliterate character between character sets'
>
Ahoj,
kdyz dvojkliknes na komponentu TIBDatabase, mas tam tez navoleny
nejaky charset? Charset se nastavuje jednak pro databazi, druhak i
pro pripojeni.
David Lebeda
IB6 - zatuhnuti pri uzavreni DB
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 3.5.2004 01:26:51
Podle vseho garbage colector. Resenim je prejit na FB1.5 a pak terve
neco resit.
IB6 (predpokladam OE) je plna chyb.
Slavek
> mel jsem fungujici aplikaci pracujici s IB6. Asi pred mesicem
> se mi objevil problem, ktereho se nemuzu zbavit. Kdyz provedu
> nejake operace na databazi (dva, tri selecty, update apod.) a
> ukoncim aplikaci, tak IB zatuhne a trva nekolik minut nez se probere.
> Zkousel jsem pred ukoncenim spustit sql "commit work",
> potom DataTransaction.CommitRetaining, atd., ale nic
> nepomaha. Jakmile zavolam IBDatabase.Close, tak se to sekne.
> Aplikaci musim sestrelit a k DB se neda prihlasit ani pres IB
> console. Kdyz vypnu IB server, tak se nic nestane, az za
> nekolik minut, az se DB probere.IB6 - zatuhnuti pri uzavreni DB
[*] David Klodner <d.klodner(zv)sofico(tec)cz> - 3.5.2004 01:02:49
Zdravim konferenci,
mel jsem fungujici aplikaci pracujici s IB6. Asi pred mesicem se mi
objevil problem, ktereho se nemuzu zbavit.
Kdyz provedu nejake operace na databazi (dva, tri selecty, update apod.)
a ukoncim aplikaci, tak IB zatuhne
a trva nekolik minut nez se probere.
Zkousel jsem pred ukoncenim spustit sql "commit work",
potom DataTransaction.CommitRetaining, atd., ale nic nepomaha.
Jakmile zavolam IBDatabase.Close, tak se to sekne.
Aplikaci musim sestrelit a k DB se neda prihlasit ani pres IB console.
Kdyz vypnu IB server, tak se nic nestane, az za nekolik minut, az se DB
probere.
Nevite nekdo cim to muze byt? Na tomto programu pracuju vic nez rok a
nikdy jsem se s timto problemem nesetkal az ted.
S pozdravem
David Klodner
D5 Prof, IB6, WinXP
SQL a promenna_zacatecnik
[*] Jiri Semler <jsemler(zv)stbk.mcs(tec)cz> - 2.5.2004 19:24:28
>Chybova hlaska je 'arithmetic exception, numeric overflow, or string
>truncation
>Cannot transliterate character between character sets'
>
>
>
Tato hlaska se mi zobrazuje, kdyz se snazim ulozit string delsi nez je
pole v tabulce.
Jiri Semler
SQL a promenna_zacatecnik
[*] Ladislav Novak <lada.xt(zv)volny(tec)cz> - 2.5.2004 17:14:17
Jaroslav Uher napsal(a):
>On 2 May 2004 at 13:53, Ladislav Novak wrote:
>
>
>
>>DB je Firebird 1.5 a v IBExpert jsem si nastavil Charset win1250..
>>
>>
>
>charset si musis nastavit jiz pri generovani databaze
>napr.
>
>SET SQL DIALECT 3;
>CREATE DATABASE 'C:\SKLDATA.FDB' PAGE_SIZE 4096
>USER 'sysdba' PASSWORD 'masterkey'
>DEFAULT CHARACTER SET WIN1250;
>
>
>
>a potom v kazdem poli tabulky, kde chces vladat ceske znaky
>napr.
>PRIJMENI VARCHAR(25) CHARACTER SET WIN1250,
>JMENO VARCHAR(25) CHARACTER SET WIN1250,
>
>a to same u Store Procerures, pokud je pouzivas
>
>V Delphi potom u kazdeho editu (kde vkladas string) by sis mel
>nastavit MaxLength na delku pole tabulky
>
>
>
>>Chybova hlaska je 'arithmetic exception, numeric overflow, or string
>>truncation Cannot transliterate character between character sets'
>>
>>
>
>zkus to opravit a hlaska by mela zmizet.
>
>Jarek Uher
>
>
Ahoj,
dik, ale tohle vsechno mam myslim nastaveno spravne..
kdyz se podivam v IBExpert do Database Registration info, mam v Database
Properties Charset Win1250,
SQL Dialect 3, jenom je tam jeste Font Characters Set nastaveny na
ANSI_CHARSET. (ale s tim jsem taky zkousel hybat a nema to na muj
problem asi vliv)
Pro kazde pole VARCHAR v tabulce mam taky nastaveny Charset Win1250... a
delka retezce v tom editu nehraje snad roli, protoze to nelze uz pri
prvnim znaku s diakritikou.
takze mne zatim docela dochazi fantazie... :-)
Diky,
Lada
SQL a promenna_zacatecnik
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 2.5.2004 14:36:01
On 2 May 2004 at 13:53, Ladislav Novak wrote:
> DB je Firebird 1.5 a v IBExpert jsem si nastavil Charset win1250..
charset si musis nastavit jiz pri generovani databaze
napr.
SET SQL DIALECT 3;
CREATE DATABASE 'C:\SKLDATA.FDB' PAGE_SIZE 4096
USER 'sysdba' PASSWORD 'masterkey'
DEFAULT CHARACTER SET WIN1250;
> Bohuzel uz nevim, kde jinde kodovani nastavit.. Je potreba nastavit
> nekde nejakou vlastnost komponenty Delphi...?
a potom v kazdem poli tabulky, kde chces vladat ceske znaky
napr.
PRIJMENI VARCHAR(25) CHARACTER SET WIN1250,
JMENO VARCHAR(25) CHARACTER SET WIN1250,
a to same u Store Procerures, pokud je pouzivas
V Delphi potom u kazdeho editu (kde vkladas string) by sis mel
nastavit MaxLength na delku pole tabulky
> Chybova hlaska je 'arithmetic exception, numeric overflow, or string
> truncation Cannot transliterate character between character sets'
zkus to opravit a hlaska by mela zmizet.
Jarek Uher
SQL a promenna_zacatecnik
[*] Ladislav Novak <lada.xt(zv)volny(tec)cz> - 2.5.2004 13:53:57
>zdrojak je v poriadku, najskor bude chyba na strane DB servera (interbase ci
>firebird?) -- skontrolujte si ci sa k DB pripajate s kodovanim, ktore podporuje
>cestinu (napr. win1250), taktiez ci mate nastavene kodovanie tabulky podporujuce
>cestinu, pripadne ci mate spravny CHARACTER SET v definciach stlpcov tabulky, do
>ktorej sa snazite vkladat diakritiku.
>
>ps: btw. presne znenie vratenej chybovej hlasky by vcelku pomohlo ;)
>
>S pozdravom...
>--
>Fedor 'fi0dor' Tirsel
>www.fi0dor.info
>
>
Diky,
DB je Firebird 1.5 a v IBExpert jsem si nastavil Charset win1250..
Bohuzel uz nevim, kde jinde kodovani nastavit..
Je potreba nastavit nekde nejakou vlastnost komponenty Delphi...?
Chybova hlaska je 'arithmetic exception, numeric overflow, or string
truncation
Cannot transliterate character between character sets'
Dik moc,
Lada.Sinea
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 2.5.2004 10:12:41
> From: Dalibor
>
>
> 1. Oskenoval jsem si formular v A4(400DPI) a chci ho pouzit
> jako podklad v sestave Sinea a polozky tohoto formulare
> doplnovat z programu.
> V navrhove rezimu se zda ze je vse ok, ale kdyz dam
> prohlizeni a nebo tisk, polozky formulare, jsou posunute.
Tisk je provaden vcetne pozadi formulare na ciste listy,
nebo se tiskne bez pozadi na jiz predtistene formulare?
Editace, nahled a pripadny tisk vcetne pozadi musi byt shodne.
Problemy mohou nastat pouze v pripade, pokud je provaden
tisk do predtistenych formularu. Mohou byt zpusobeny:
- formular neni naskenovany cely vcetne okraju
- je spatne nastavena v predloze velikost a umisteni pozadi
- konkretni formular je posunuty oprovi tomu, ktery slouzil
jako predloha pro scan pozadi
Reseni:
- naskenovat formular vcetne okraju, obrazek pozadi musi
pokryvat cely list papiru, v predloze se necha zaskrtnuto
ve vlastnostech pozadi Cely papir
- pokud scan pozadi nepokryva cely list papiru, musi se
ve vlastnostech pozadi zrusit zaskrtnuti Cely list
a poloha a velikost obrazku pozadi se musi nastavit
rucne podle velikosti skutecne naskenovaneho obrazku.
- pokud jse o eliminaci drobnych odchylek v ruznych seriich
predtistenych formularu, provadi se to pomoci promennych
SestOfsetX a SestOfsetY, vychozi hodnota je 0, jednotkou
posunu je 1/100 palce, pripustne jsou jak kladne
tak zaporne hodnoty.> 2. Muzu nejak do casti sestavy vytisknou text
> z RichEdit komponenty?
Pokud to je datova polozka, staci v jejich vlastnostech
zaskrtnout Viceradkovy text a RTF format.
Vaclav Krmela
Sinea
[*] Dalibor <dalibor(zv)torola(tec)cz> - 2.5.2004 09:06:36
Ahoj, mel bych par dotazu ohledne sinei.
1. Oskenoval jsem si formular v A4(400DPI) a chci ho pouzit jako podklad v sestave Sinea a polozky tohoto formulare doplnovat z programu.
V navrhove rezimu se zda ze je vse ok, ale kdyz dam prohlizeni a nebo tisk, polozky formulare, jsou posunute.
Nevite kde delam chybu, potreboval bych to vyresit
2. Muzu nejak do casti sestavy vytisknou text z RichEdit komponenty?
Dekuji