Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Synapse a Connection Timed out
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.12.2004 14:08:04
> Nedokazu si dnes predstavit nejakou vetsi aplikaci ktera nepouziva
> vyjimky. Prinejmensim by tam mohla byt nejaka funkce podobna
> Win32Check ktera by ty vyjimky vytvarela, s rozumnym popisem chyby v
> danem kontextu.
A kdo kdy rikal, ze aplikace nema pouzivat vyjimky? Ja jen tvrdim, ze
pouzivat vyjimky ve winsock kodu neni zrovna idealni, a vysvetlil
jsem i proc.
Nerikam, ze to neni nemozne, a pokud vyjimky chces, muzes je v
Synapsi pouzivat! Staci si zapnout jednu property. Ale jak jsem rekl,
drtiva vetsina uzivatelu Synapse semnou souhlasi, ze pouzivani
vyjimek ve winsock kodu je spise nepraktivcke nez uzitecne, tak je
nepouziva.
A protoze to skoro nikdo nepouziva, snadneji unikne nejaka chyba, coz
byla pricina puvodniho dotazu.
Takze nemusis navrhovat neco, co v Synapsi davno je. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.D2005 a Windows 2003 Server
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.12.2004 13:26:01
Petr Vones wrote:
> From: "Jiri Cincura" <diskuze(zv)cincura.net>
>> No tak po euforie z instalace, prislo velke zklamani.
>
> To je Trial verze ?
>
> Petr Vones
Presne tak, Trial.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
toolbar pro IE
[*] david.kopecek(zv)hacktrack(tec)com - 20.12.2004 13:01:58
Zdravim Konferenci
nevite jak udelat toolbar pro IE. napriklad takovy jaky ma google ?
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
ADMIN: OT: Vypis komponent a vlastnosti z projektu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.12.2004 13:09:59
Puvodni zprava ze dne 20.12.2004:
> Zdravim vsechny,
> Mam takovy dotaz, da se nejak udelat vypis vsech komponent obsazenych v projektu,
> vcetne jejich vlastnosti?
Prosimte, bud tak hodny a prestan pouzivat prefix OT v subjektu u
prispevku, ktere nejsou OT. Neni to poprve. A pokud nevis, co OT
znamena, tak si precti pravidla. Dekuji.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OT: Vypis komponent a vlastnosti z projektu
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 20.12.2004 13:05:59
Zdravim vsechny,
Mam takovy dotaz, da se nejak udelat vypis vsech komponent obsazenych v projektu,
vcetne jejich vlastnosti?
S pozdravem,
Petr Cafourek
petr.cafourek.d7(zv)seznam(tec)cz
D6 Pro, WinXP CZ SP
pomoc s prekladem C++ funkce
[*] david.kopecek(zv)hacktrack(tec)com - 20.12.2004 13:03:58
Zdravim konferu
pomohl by mi nekdo prosim s prekladem tohohle kodu do delphi ?.. Neni
mi jasny hlavne ten WORDS_BIGENDIAN .. zajimalo by me kteroiu variantu
mam pouzit jestli s 1 nebo 0 ?...
static int doubleebx(char *src, int32_t *myebx, int *scur, int ssize)
{
int32_t oldebx = *myebx;
#if WORDS_BIGENDIAN == 1
char *pt;
int32_t shift, i = 0;
#endif
*myebx*=2;
if ( !(oldebx & 0x7fffffff)) {
if (*scur<0 || ssize-*scur<4)
return -1;
#if WORDS_BIGENDIAN == 0
oldebx = *(int*)(src+*scur);
#else
oldebx = 0;
pt = src + *scur;
for(shift = 0; shift < 32; shift += 8) {
oldebx |= (pt[i] & 0xff ) << shift;
i++;
}
#endif
*myebx = oldebx*2+1;
*scur+=4;
}
return (oldebx>>31)&1;
}
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Synapse a Connection Timed out
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.12.2004 13:01:58
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Zatimco kdyz je program od sameho zacatku psany a popstaveny na
> vyjimkach, je prirozene je pouzivat. (A naopak by vzniknul paskvil,
> kdyby ses pokousel vyjimky ignorovat.)
Nedokazu si dnes predstavit nejakou vetsi aplikaci ktera nepouziva vyjimky.
Prinejmensim by tam mohla byt nejaka funkce podobna Win32Check ktera by ty
vyjimky vytvarela, s rozumnym popisem chyby v danem kontextu.
Petr Vones
Sinea check-box
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 20.12.2004 12:50:02
> From: Kalhous
>
> Potreboval bych v sestave Sinea tisknout check-boxy.
Jsou minimalne dve reseni. Obe jsou zalozena na tisku obrazku.
Je potreba si vytvorit obrazek zaskrtnuti, asi ve formatu BMP a ten
umistit do adresare s predlohou tiskove sestavy. Obrazek se umisti v
predloze na pozadovane misto.
1. Pomoci podmineneho tisku
Ve vlastnostech prvku obrazku se zvoli podminka, za ktere se ma obrazek
tisknout, muze to byt funkcni vyraz nebo jenom odkaz na datovou polozku.
Toto reseni je vhodne pro situaci tisknout/netisknout.
2. Pomoci nacitani obrazku
Nazev souboru s obrazkem neni konstanta, ale odkaz na datovou (asi
vypocitavanou) polozku, ktera teprve obsahuje nazev souboru, ktery se
nacte.
Toto reseni je vhodne pro vicestavovou signalizaci, kdy pro nekolik
ruznych stavu existuje nekolik ruznych obrazku.
Samozrejme existuji dalsi komplikovanejsi reseni pomoci udalosti
OnNactiObraz nebo OnPrintElement
Vaclav Krmela
Synapse a Connection Timed out
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.12.2004 12:35:41
> Jestli je nesmyslne bych nechal na tom kdo to pouziva. Problem je v
> tom, ze v Synapsi neni prilis podporovan zpusob jak indikovat chyby
> pomoci vyjimek, to je vse to jsem chtel rict. Jiste ze existuji jine
> knihovny, ale prijde mi skoda ze zrovna tohle Synapse nema.
On tam ten system vyjimek je. Ale protoze to tak skoro nikdo
nepouziva, tak se tam obcas vyskytne chyba, jako napriklad ta, kterou
to vsechno zacalo.
Ono je to trosku o necem jinem. Vem si program, ktery vubec neni
postaveny na vyjimkach. A ted ne najednou rozhodnes, ze jina cast
programu vyjimky pouzivat bude, a ted to zacnes slepovat dohromady. Z
toho vnikne peknej gulas, a spise tam udelas nejakou chybu.
Zatimco kdyz je program od sameho zacatku psany a popstaveny na
vyjimkach, je prirozene je pouzivat. (A naopak by vzniknul paskvil,
kdyby ses pokousel vyjimky ignorovat.)
A jadru podla je v tom, ze Winsock API vubec vyjimky napouziva. tedy,
jakmile se budes snazit nad Winsockem postavit vyjimky, bude z toho
paskvil.
Zatimco kdyz se podivas treba na .NET, tam vidim vcelku logicke a
prirozene ty vyjimky pouzit.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Delphi 2005 vs. Visual Studio .NET
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.12.2004 12:33:40
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> To sis nevsiml spravne... mobilni aplikace Borland stale ignoruje.
Zrovna tady to ma tezke. Za prve potrebuje dalsi debugger a predevsim narozdil
od "normalniho" .NET frameworku kde je design-time kod jeho soucasti a muze to
rovnou pouzit, je toto pro Compact Framework pouze ve Visual Studiu, takze by
to musel cele naprogramovat znovu.
Petr Vones Seriova komunikace s Async Pro
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.12.2004 12:25:39
> Tak znovu. Jisteze ma. Ale funkci, ktera vraci _primo_ pole bajtu,
> nedoporucujes pouzivat.
Ne, to je nedorozumneni... Nedoporucuji primo pouzivat funkci
RecvBuffer, pokud zaroven neproniknes do dalsich potrebnych funkci,
jako je treba CanRead. Jinak proti jejimu pouzivani nemam vubec nic!
> Dalsi funkce, ktera take vraci pole bajtu, a kterou uz doporucujes
> pouzivat, to vnitrne obchazi pres string. A to je to misto, ke kteremu
> mam vyhrady. Dle meho nazoru by daleko cistsi bylo, kdybys vnitrne
> pracoval vsude s polem bajtu nebo pripadne streamem, a ven pak
> vystrkoval az v posledni instanci to, co si programator preje.
Tak bych to jiste mohl delat, jen by to dalo mnohem vice prace. A
delat mnohem vice prace jen proto, ze se nekomu nelibi pouzivani
stringu jako binarniho bufferu (byt tomu technicky fakt nic nebrani),
na to jsem opravdu hodne liny. S tim nic nenadelas.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Seriova komunikace s Async Pro
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 20.12.2004 11:57:37
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lukas Gebauer
> Sent: Monday, December 20, 2004 11:44 AM
>
> Ale tak to presne je... chces cist string, cti si string.
> Chces cist do pametoveho bloku urcenym pointerem a delkou,
> cti si. Chces cist do integeru, cti si. Chces cist do
> streamu, cti si. Na tohle vsechno Synapse sve cteci funkce
> ma. (A posilaci take...)
Tak znovu. Jisteze ma. Ale funkci, ktera vraci _primo_ pole bajtu,
nedoporucujes pouzivat. Dalsi funkce, ktera take vraci pole bajtu, a kterou
uz doporucujes pouzivat, to vnitrne obchazi pres string. A to je to misto,
ke kteremu mam vyhrady. Dle meho nazoru by daleko cistsi bylo, kdybys
vnitrne pracoval vsude s polem bajtu nebo pripadne streamem, a ven pak
vystrkoval az v posledni instanci to, co si programator preje.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Synapse a Connection Timed out
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.12.2004 11:57:37
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> jeste drobna poznamka... jedna se o zapomenute odchyceni a ignorovani
> vyjimky v okamziku, kdy jeji vyvolani je nesmyslne. Toto drobne opomenuti
> nazyvat 'jednim z nejvetsich designovych problemu Synapse', to jsou mi
> nejaka silna slova. ;-)
Jestli je nesmyslne bych nechal na tom kdo to pouziva. Problem je v tom, ze v
Synapsi neni prilis podporovan zpusob jak indikovat chyby pomoci vyjimek, to
je vse to jsem chtel rict. Jiste ze existuji jine knihovny, ale prijde mi
skoda ze zrovna tohle Synapse nema.
Petr Vones Delphi 2005 vs. Visual Studio .NET
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.12.2004 11:37:34
> - Nevsiml jsem si, ze by D2005 podporovalo vyvoj pro mobilni aplikace.
> Pokud pises firemni aplikaci, velmi snadno ziskas podporou mobilu
> konkurencni vyhodu.
To sis nevsiml spravne... mobilni aplikace Borland stale ignoruje.
;-(
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Bytove pole
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.12.2004 11:37:35
JM wrote:
>
> UNION jeste ctenemu spolecenstu Packalistu neco rika ??????
Rika, pokud myslis union jakp typ datove struktury, ale jak to souvisi v tim
array of Byte?
Ale verim, ze nam to prozradis. ;)
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
D2005 a Windows 2003 Server
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.12.2004 12:01:37
From: "Jiri Cincura" <diskuze(zv)cincura.net>
> No tak po euforie z instalace, prislo velke zklamani.
To je Trial verze ?
Petr Vones
Delphi 2005 vs. Visual Studio .NET
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.12.2004 11:47:36
From: "Zbysek Hlinka" <konference(zv)hlinka(tec)cz>
> Napadaji nekoho jeste dalsi body srovnani?
Musim souhlasit ze pro .NET jednoznacne Visual Studio 2003. Dalsi body:
- debugger (tohle uz asi Borland nikdy nedozene)
- stabilita a rychlost IDE
- podpora prace s XML a XSD v IDE
- moznost vyvoje v .NET Compact Framework
- siroka nabidka IDE pluginu (rozhrani pro VS a D2005 nejsou kompatibilni)
- integrace helpu (Dynamic Help)
Petr Vones
Seriova komunikace s Async Pro
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.12.2004 11:43:35
> No, byva dobrym zvykem predavat datovy proud ve streamu a/nebo poli
> bajtu. Jestlize mas prime predani pole bajtu ve funkci, kterou
> nedoporucujes primo pouzivat, a dal uz vse transformujes pres string,
> neni to IMHO nejlepsi cesta. Pokud te bavi se s tim matlat, videl bych
> to tak, ze uvnitr si budes predavat pole bajtu kam az to pujde,
> pripadne to budes predavat ve streamu, a teprve na vystupu v
> pretizenych funkcich predas tu pole bajtu, tu stream, tu string, dle
> libosti. Pokud chces podporovat i D3, tak proste pridas nove jmeno
> funkce.
Ale tak to presne je... chces cist string, cti si string. Chces cist
do pametoveho bloku urcenym pointerem a delkou, cti si. Chces cist do
integeru, cti si. Chces cist do streamu, cti si. Na tohle vsechno
Synapse sve cteci funkce ma. (A posilaci take...)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Sinea check-box
[*] Kalhous <kalhous(zv)eu(tec)cz> - 20.12.2004 11:13:29
Potreboval bych v sestave Sinea tisknout check-boxy. Nevite nekdo jak na to? V podstate se jedna o to, ze existuje nejaky dotaznik kde se zaskrtavaji volby, data se natukaji do databaze a pak je potreba ten dotaznik vytisknout tak jak puvodne vypadal.
Z.Kalhous
ToWare s.r.o.
Seriova komunikace s Async Pro
[*] Winsoft <winsoft(zv)netkosice.sk> - 20.12.2004 11:13:29
> > myslel som exportovat Delphi string z DLL-ka z pouzit povedzme v C-cku
> >
>
> Pokud je to textovy retezec neobsahujici hodnoty #0, tak bez problemu.
Pokud
> je to kontejner na binarni data, musis v C-cku pouzit odpovidajici datovou
> strukturu a konvertovat.
no treba tu riesit minimalne tieto veci:
1. sprava pamete (kto bude alokovat, uvolnovat
stringy, pocitat referencie, vytvarat kopie, atd.)
2. potrebujem vediet dlzku string a velkost znaku
Robit toto manualne v C-cku nie je IMHO o dost
zlozitejsie ako pouzit smernik na binarnu strukturu
plus jej velkost. Asi sa zhodneme, ze je to
komplikovanejsie riesenie. A teraz sa pytam, v com
je konkretne toto riesenie pomocou stringov
bezpecnejsie? Reagujem na tuto kritiku:
>> nebo kombinace parametru pointer na data + delka.
>
>Coz je zase nejlepsi cesta jak dopadnout jako Microsoft a stravit stari
>zaplatovanim chyb v programech, ktere cini cely system krajne
>nebezpecnym.
Erik
Bytove pole
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 20.12.2004 11:29:33
Co takhle :
var
T : TDateTime;
B : array [0..sizeof (TDateTime) - 1] of byte absolute T;
begin
T := now;
...
Vaclav Sazima
Petr Vetesnik wrote:
> Toto ale bohuzel podle meno nazoru nebude moc fungovat.
> Ja to mel na mysli takto: Kazde float cislo ma svoji hexadecimalni
> reprezentaci v pameti napr:
> 159.156E-15 je ve ctyrecb bytech $2A,$33,$31,$98. A to je co bych
> potrebolal. Tedy. Mam libovolnou promenou (integer, TDateTime, real) a
> ja bych potreboval do toho bytoveho pole (array of Byte) napsat obsah
> pameti na adrese, kde lezi ona promenna.
>
> Dekuji
> Petr Vetesnik
pouzitie XML ako zdroj dat v MSSQL
[*] Petr Langer <langer(zv)xdom(tec)cz> - 20.12.2004 11:27:33
Ahoj,
OPENXML primo nepodporuje cteni ze souboru, nejlepe je udelat si SP a do nej
to predavat pres parametr typu text / ntext. Pozor ale, pri deklaraci jako
ntext - v takovem pripade musi obsahovat hlavicka xml encoding="UTF-16", v
opacnem pripade zase naopak nesmi. Taky bych to moc nepouzival na velke XML
dokumenty, takove parsovani muze ve spojeni s vetsim poctem uzivatelu ten
SQL server zabit.
pl
----- Original Message -----
From: "Miso" <delphinpp(zv)atlas(tec)cz>
Subject: pouzitie XML ako zdroj dat v MSSQL
> Zdar,
> v SQL Server Books Online som si nasiel nieco taketo :
>
> *****************************************
> DECLARE (zv)idoc int
> DECLARE (zv)doc varchar(1000)
> SET (zv)doc ='
> <ROOT>
> <Customer CustomerID="VINET" ContactName="Paul Henriot">
> <Order OrderID="10248" CustomerID="VINET" EmployeeID="5"
> OrderDate="1996-07-04T00:00:00">
> <OrderDetail ProductID="11" Quantity="12"/>
> <OrderDetail ProductID="42" Quantity="10"/>
> </Order>
> </Customer>
...
> -- Create an internal representation of the XML document.
> EXEC sp_xml_preparedocument (zv)idoc OUTPUT, (zv)doc
> -- Execute a SELECT statement using OPENXML rowset provider.
> SELECT *
> FROM OPENXML ((zv)idoc, '/ROOT/Customer',1)
> WITH (CustomerID varchar(10),
> ContactName varchar(20))
> EXEC sp_xml_removedocument (zv)idoc
> ************************************************
>
> ..je mozne nejakym sposobom do (zv)doc dostat obsah nejakeho XML suboru alebo
> to musim definovat priamo cez script?
> ..dik,
> Miso
Bytove pole
[*] JM <jan.masek(zv)mcu(tec)cz> - 20.12.2004 11:21:31
>>> Toto ale bohuzel podle meno nazoru nebude moc fungovat.
>>> Ja to mel na mysli takto: Kazde float cislo ma svoji hexadecimalni
>>> reprezentaci v pameti napr: 159.156E-15 je ve ctyrecb bytech
>>> $2A,$33,$31,$98. A to je co bych potrebolal. Tedy. Mam libovolnou
>>> promenou (integer, TDateTime, real) a ja bych potreboval do toho
>>> bytoveho
>>> pole (array of Byte) napsat obsah pameti na adrese, kde lezi ona
>>> promenna.
>
> JC> Tak to si chce udelat nejaky MemoryDump. Ja to nikdy nedelal, ale na
> netu
> JC> najdes urcite plno ukazek (a mam pocit, ze P. Vones neco takoveho dela
> =
> JC> umi), vzdyt i samo Delphi to dela.
UNION jeste ctenemu spolecenstu Packalistu neco rika ??????
J.Masek
pouzitie XML ako zdroj dat v MSSQL
[*] Miso <delphinpp(zv)atlas(tec)cz> - 20.12.2004 11:11:29
Zdar,
v SQL Server Books Online som si nasiel nieco taketo :
*****************************************
DECLARE (zv)idoc int
DECLARE (zv)doc varchar(1000)
SET (zv)doc ='
<ROOT>
<Customer CustomerID="VINET" ContactName="Paul Henriot">
<Order OrderID="10248" CustomerID="VINET" EmployeeID="5"
OrderDate="1996-07-04T00:00:00">
<OrderDetail ProductID="11" Quantity="12"/>
<OrderDetail ProductID="42" Quantity="10"/>
</Order>
</Customer>
<Customer CustomerID="LILAS" ContactName="Carlos Gonzlez">
<Order OrderID="10283" CustomerID="LILAS" EmployeeID="3"
OrderDate="1996-08-16T00:00:00">
<OrderDetail ProductID="72" Quantity="3"/>
</Order>
</Customer>
</ROOT>'
-- Create an internal representation of the XML document.
EXEC sp_xml_preparedocument (zv)idoc OUTPUT, (zv)doc
-- Execute a SELECT statement using OPENXML rowset provider.
SELECT *
FROM OPENXML ((zv)idoc, '/ROOT/Customer',1)
WITH (CustomerID varchar(10),
ContactName varchar(20))
EXEC sp_xml_removedocument (zv)idoc
************************************************
..je mozne nejakym sposobom do (zv)doc dostat obsah nejakeho XML suboru alebo
to musim definovat priamo cez script?
..dik,
Miso
Seriova komunikace s Async Pro
[*] Winsoft <winsoft(zv)netkosice.sk> - 20.12.2004 11:03:28
> > Me jde o princip, typ string je zkratka urcen pro retezec.
>
> Me jde taky o princip. Retezec je proste retezec znaku, a znak #0 je
> preci take znak! Ze jej jednou nekdo pouzil jako ukoncovaci znacku
> preci neznamena, ze budeme navzdy tento znak ignorovat...
lenze postupnost znakov a postupnost nejakych binarnych dat
(napr. postupnost bajtov) nie je to iste
Erik
Bytove pole
[*] Dusan Nagy <dnagy(zv)inomacomp.sk> - 20.12.2004 11:01:28
Dobry den,
20. decembra 2004, 10:51:27, napsal jste:
DN> Dobry den,
DN> 20. decembra 2004, 10:15:24, napsal jste:
JC>> Petr Vetesnik wrote:
>>>> Jako bytove pole myslis array of Byte?
>>>>
>>>> No tak co treba na prvni pozici ulozit desitkovy exponent a zbytek
>>>> cislo jako integer, tj. 1,25 = 1: 100, 2: 125.
>>>>
>>>
>>> Toto ale bohuzel podle meno nazoru nebude moc fungovat.
>>> Ja to mel na mysli takto: Kazde float cislo ma svoji hexadecimalni
>>> reprezentaci v pameti napr: 159.156E-15 je ve ctyrecb bytech
>>> $2A,$33,$31,$98. A to je co bych potrebolal. Tedy. Mam libovolnou
>>> promenou (integer, TDateTime, real) a ja bych potreboval do toho bytoveho
>>> pole (array of Byte) napsat obsah pameti na adrese, kde lezi ona
>>> promenna.
JC>> Tak to si chce udelat nejaky MemoryDump. Ja to nikdy nedelal, ale na netu
JC>> najdes urcite plno ukazek (a mam pocit, ze P. Vones neco takoveho dela =
JC>> umi), vzdyt i samo Delphi to dela.
DN> Ak som pocopil sprave tka chces toto;
DN> procedure TForm1.Button1Click(Sender: TObject);
DN> var
DN> S : word;
DN> X : array[0..1] of byte;
DN> begin
DN> s := $FAFB;
DN> move(s,X[0],sizeOf(word));
DN> caption := format('cislo1 = %s cislo2=%s COLO = %S',[inttohex(X[0],2),inttohex(X[1],2),inttohex(S,4)]);
DN> end;
alebo takto
procedure TForm1.Button1Click(Sender: TObject);
var
S : real;
i : integer;
X : array of byte;
begin
s := $FAFB;
setlength(x,Sizeof(s));
move(s,X[0],sizeOf(s));
for i := 0 to sizeof(S)-1 do
Caption := Caption + Format(' x[%d] = %s ',[i,inttohex(x[i],2)]);
caption := caption + format(' Cislo = %f',[S]);
setlength(x,0);
end;
--
S pozdravom,
Dusan
DNagy(zv)inomacomp.sk
Bytove pole
[*] Dusan Nagy <dnagy(zv)inomacomp.sk> - 20.12.2004 10:51:27
Dobry den,
20. decembra 2004, 10:15:24, napsal jste:
JC> Petr Vetesnik wrote:
>>> Jako bytove pole myslis array of Byte?
>>>
>>> No tak co treba na prvni pozici ulozit desitkovy exponent a zbytek
>>> cislo jako integer, tj. 1,25 = 1: 100, 2: 125.
>>>
>>
>> Toto ale bohuzel podle meno nazoru nebude moc fungovat.
>> Ja to mel na mysli takto: Kazde float cislo ma svoji hexadecimalni
>> reprezentaci v pameti napr: 159.156E-15 je ve ctyrecb bytech
>> $2A,$33,$31,$98. A to je co bych potrebolal. Tedy. Mam libovolnou
>> promenou (integer, TDateTime, real) a ja bych potreboval do toho bytoveho
>> pole (array of Byte) napsat obsah pameti na adrese, kde lezi ona
>> promenna.
JC> Tak to si chce udelat nejaky MemoryDump. Ja to nikdy nedelal, ale na netu
JC> najdes urcite plno ukazek (a mam pocit, ze P. Vones neco takoveho dela =
JC> umi), vzdyt i samo Delphi to dela.
Ak som pocopil sprave tka chces toto;
procedure TForm1.Button1Click(Sender: TObject);
var
S : word;
X : array[0..1] of byte;
begin
s := $FAFB;
move(s,X[0],sizeOf(word));
caption := format('cislo1 = %s cislo2=%s COLO = %S',[inttohex(X[0],2),inttohex(X[1],2),inttohex(S,4)]);
end;
--
S pozdravom,
Dusan
DNagy(zv)inomacomp.sk
Seriova komunikace s Async Pro
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 20.12.2004 10:43:26
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lukas Gebauer
> Sent: Monday, December 20, 2004 9:59 AM
>
> Me jde taky o princip. Retezec je proste retezec znaku, a
> znak #0 je preci take znak! Ze jej jednou nekdo pouzil jako
> ukoncovaci znacku preci neznamena, ze budeme navzdy tento
> znak ignorovat...
No, byva dobrym zvykem predavat datovy proud ve streamu a/nebo poli bajtu.
Jestlize mas prime predani pole bajtu ve funkci, kterou nedoporucujes primo
pouzivat, a dal uz vse transformujes pres string, neni to IMHO nejlepsi
cesta. Pokud te bavi se s tim matlat, videl bych to tak, ze uvnitr si budes
predavat pole bajtu kam az to pujde, pripadne to budes predavat ve streamu,
a teprve na vystupu v pretizenych funkcich predas tu pole bajtu, tu stream,
tu string, dle libosti. Pokud chces podporovat i D3, tak proste pridas nove
jmeno funkce.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Delphi 2005 vs. Visual Studio .NET
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 20.12.2004 10:29:25
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jaromir Cermak
> Sent: Monday, December 20, 2004 9:47 AM
>
> Je nejaky duvod proc ne C# z D2005? Vyuziva taky VCL.NET nebo
> nejake Borlandi nestandardnosti? A co vyvojove prostredi?
Ja jsem D2005 nevidel, takze nemohu porovnavat konkretne. Budu se tedy ridit
D8 a srovnavaci tabulkou D2005.
Pokud nekdo uz D2005 pouziva, samotneho by me zajimalo srovnani z jeho
pohledu.
- Brzy bude .NET 2, prinese radu novych veci. Kdy bude Borland podporovat
tuto verzi?
- Zajimave v Delphi by mohlo byt ECO. Pokud vim, tak MS v novych verzich
chysta neco podobneho.
- Nevsiml jsem si, ze by D2005 podporovalo vyvoj pro mobilni aplikace. Pokud
pises firemni aplikaci, velmi snadno ziskas podporou mobilu konkurencni
vyhodu.
- V D8 je primo katastrofalni podpora prace s db. VS ma wizarda na vytvareni
datasetu, vcetne generovani kodu pro primy pristup k tomuto datasetu. D8 ma
jen nejsyrovejsi podobu ADO.NET trid, ktere jsou ve frameworku, a nema
zadnou podporu pro vyvoj nad nimi. BDP je take docela tragedie. Jak to
vypada v D2005?
- VS ma docela slusnou podporu krokovani aplikace, mohu si prohlizet obsah
pouzitych objektu do libovolne hloubky. Jak to vypada v D2005?
- Cena: za cenu D Architect mam MSDN Universal, vcetne vsech OS, MS SQL,
uplny Office pro bezne pouziti, Visio, pristup k beta verzim a radu dalsich
veci.
Napadaji nekoho jeste dalsi body srovnani?
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Kylix: nefunkcni editor
[*] Petr Hlozek <petr_hl(zv)mrp(tec)cz> - 20.12.2004 10:19:24
Dobry den,
moc se omlouvam. Do skriptu, ktery spusti Kylix, zadejte na prvni radek toto:
export LD_ASSUME_KERNEL=2.2.5
Zapomnel jsem na to export ... .
Spoustite Kylix IDE pro C++ nebo pro Object Pascal?
Petr
Dne so 18. prosince 2004 13:55 Jakub Cermak napsal(a):
> Bohuzel to nefunguje, nema nekdo nejaky jiny napad?
> Jakub Cermak
> ja.cermi(zv)centrum(tec)cz
> ----- Original Message -----
> From: "Petr Hlozek" <petr_hl(zv)mrp(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> > Dobry den,
> >
> > zkousel jste pred spustenim Kylixe zadat neco jako LD_ASSUME_KERNEL=2.2.5
> > ?
> >
> > Vice se doctete na http://unvclx.sourceforge.net v casti Information
> >
> > Petr
> >
> > Dne st 15. prosince 2004 22:19 cermiforum(zv)centrum(tec)cz napsal(a):
> >> Nainstaloval jsem si Kylix 3 Open Edition. Uz od zacatku mi nefunguje
> >> Code
> >> Editor - tam kde by mel byt zdrojak je jen bila plocha a pokud na ni
> >> kliknu
> >> mysi (levy i pravy tlacitko) napise to error Division by zero. Nesetkal
> >> jste se uz nekdy s tim nekdo??
> >>
> >> Mandrake Linux 9.2
> >> kernel 2.4.22-10mdk
> >> KDE 3.1.3
--
web : www.webpark(tec)cz/ok2cqr
mail : ok2cqr at post dot cz; petr_hl at mrp dot cz
ICQ : 165536992
Bytove pole
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.12.2004 10:15:24
Petr Vetesnik wrote:
>> Jako bytove pole myslis array of Byte?
>>
>> No tak co treba na prvni pozici ulozit desitkovy exponent a zbytek
>> cislo jako integer, tj. 1,25 = 1: 100, 2: 125.
>>
>
> Toto ale bohuzel podle meno nazoru nebude moc fungovat.
> Ja to mel na mysli takto: Kazde float cislo ma svoji hexadecimalni
> reprezentaci v pameti napr: 159.156E-15 je ve ctyrecb bytech
> $2A,$33,$31,$98. A to je co bych potrebolal. Tedy. Mam libovolnou
> promenou (integer, TDateTime, real) a ja bych potreboval do toho bytoveho
> pole (array of Byte) napsat obsah pameti na adrese, kde lezi ona
> promenna.
Tak to si chce udelat nejaky MemoryDump. Ja to nikdy nedelal, ale na netu
najdes urcite plno ukazek (a mam pocit, ze P. Vones neco takoveho dela =
umi), vzdyt i samo Delphi to dela.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Quickreport a cerne obdelniky
[*] delphikonf(zv)post(tec)cz - 20.12.2004 10:05:23
Zdravim,
par informaci jsem uz o teto chybe quickreportu nasel,
ale zadne z pripadnych reseni mi nepomohlo.
Kdyz si dam nahled na sestavu (v ktere je logo - bmp)
2x z deseti zobrazeni nahledu je cca 2x cele cerne.
Nevite jak tomuto zabranit?
Dekuji za jakoukoli radu
D3prof; QR3.04
Bytove pole
[*] David Kraina <dkx(zv)seznam(tec)cz> - 20.12.2004 10:01:22
Co takhle pres copy memory :
ByteArray : Array of Byte;
F : Single;
...
CopyMemory((zv)ByteArray[0], (zv)F, 4);
P.S.: Mimo jine take preji vsem prijemne proziti Vanocnich svatku a uspesny
rok 2005 - co nejmene Access Violation :-)> Potreboval bych ale do bytoveho pole zapsat floatovou hodnotu. Seriova komunikace s Async Pro
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.12.2004 09:59:22
> Jsou funkce pro praci s retezci ktere interne PChar pouzivaji, takze
> tohle neni argument. Ono je pekne ze to v 99% pripadu bude fungovat,
> ale hledat pak takovou chybu v aplikaci ktera se projevi jednou za x
> dni je dost narocne.
Dobra, budme konkretni... ktera funkce urcena pro praci s AnsiStringy
a ne pro praci s Pchary interne pouziva nekde PChar? Za ta leta, co
to takhle pouzivam, jsem na zadnou takovou funkci nenarazil.
> Me jde o princip, typ string je zkratka urcen pro retezec.
Me jde taky o princip. Retezec je proste retezec znaku, a znak #0 je
preci take znak! Ze jej jednou nekdo pouzil jako ukoncovaci znacku
preci neznamena, ze budeme navzdy tento znak ignorovat...
> Nemluve o tom, ze pri pripadnem prenosu na jinou platformu nemusi byt
> jeho binarni reprezentace shodna (treba v Delphi.NET je string vlastne
> WideString). Ja to nemyslim spatne ;-)
Na jedne strane od tebe a dalsich porad slysime, ze prevadet programy
na jinou platfoprmu je nesmysl, ze je mnohem lepsi a efektivnejsi je
rovnou prepsat. A ted naznacujes, ze je to prekazka pri prechodu na
jinou platformu... Tak jak to je?
Ja si myslim, ze to prekazka neni, protoze dle tveho vlastniho
davneho doporuceni ta aplikace stejne potrebuje prepsat, ne?
Podle mne je programovani pro .NET natolik jine, ze je lepsi 'Synapsi
pro .NET' zcela od zakladu prepsat tak, aby maximalne vyuzivala
vyhod, ktere .NET prinasi! Aby filozofie pouzivani odpovidala
zvyklostem v .NETu. V tu chvili je nesmysl pouzivat stringy jako
binarni kontejnery, v tu chvili ma velky smysl pouzivat exceptions,
atd.
> Procpak, vzdyt ty data ktere prijimas/odesilas jsou prave stream.
> Dalsi moznosti je typ TByteDynArray (array of Byte), ktery presne
> odpovida charakteru dat a jeho alokace je (podobne jako u stringu) pod
> kontrolou prekladace.
No, dobry napad, skoda jen ze tento typ existuje az od delphi6!
Protoze ne vsichni maji Delphi zadarmo, existuje kuprikladu jeste
stale dost lidi, kteri pouzivaji Delphi3. A takovi lide jsou nesmirne
radi, ze treba Synapse na ne pamatuje. (Zatimco treba Indy na ne
kasle...)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Delphi 2005 vs. Visual Studio .NET
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 20.12.2004 09:47:21
Je nejaky duvod proc ne C# z D2005? Vyuziva taky VCL.NET nebo nejake Borlandi nestandardnosti? A co vyvojove prostredi?
Jaromir Cermak
-----Original Message-----
From: Zbysek Hlinka [mailto:konference(zv)hlinka(tec)cz]
Muj osobni nazor: C# + VS.
Delphi 2005 vs. Visual Studio .NET
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 20.12.2004 09:37:18
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jiri Cincura
> Sent: Monday, December 20, 2004 8:23 AM
>
> Co je podle Vas lepsi pro vyvoj .NET aplikaci: D2005 nebo VS .NET?
Muj osobni nazor: C# + VS.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Bytove pole
[*] Petr Vetesnik <vetesnik(zv)gmail(tec)com> - 20.12.2004 09:33:17
> Jako bytove pole myslis array of Byte?
>
> No tak co treba na prvni pozici ulozit desitkovy exponent a zbytek cislo
> jako integer, tj. 1,25 = 1: 100, 2: 125.
>
Toto ale bohuzel podle meno nazoru nebude moc fungovat.
Ja to mel na mysli takto: Kazde float cislo ma svoji hexadecimalni
reprezentaci v pameti napr:
159.156E-15 je ve ctyrecb bytech $2A,$33,$31,$98. A to je co bych
potrebolal. Tedy. Mam libovolnou promenou (integer, TDateTime, real) a
ja bych potreboval do toho bytoveho pole (array of Byte) napsat obsah
pameti na adrese, kde lezi ona promenna.
Dekuji
Petr Vetesnik
Odesilani emaulu v synapsi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 20.12.2004 09:21:13
> mam dotazek pravdepodobne na pana Gebauera.
> Pres SMTP odesilam maily, kde v TO mam napr. 'Petr Bok, CSc.
> <petr(zv)bok(tec)cz>' a server to rozhodi na 2 maily (pro Petr Bok a CSc) ?
> Predpokladam, ze problem neni v synapsi, ale v MailServeru (Exchange
> 5.5). Lze ho nejak presvedcit, ze se jedna o jednoho adresata ?
Ne, problem je v tom, ze ten popis musi byt v uvozovkach... tedy
spravny format te adresy ma byt:
"Petr Bok, CSc." <petr(zv)bok(tec)cz>
To proto, ze mnoho postovnich klientu (i Synapse!) pouziva carku jako
oddelovac adres.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Odesilani emaulu v synapsi
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.12.2004 08:59:12
Jiri Baudys wrote:
> DD,
> mam dotazek pravdepodobne na pana Gebauera.
> Pres SMTP odesilam maily, kde v TO mam napr. 'Petr Bok, CSc.
> <petr(zv)bok(tec)cz>' a server to rozhodi na 2 maily (pro Petr Bok a CSc) ?
> Predpokladam, ze problem neni v synapsi, ale v MailServeru (Exchange 5.5).
> Lze ho nejak presvedcit, ze se jedna o jednoho adresata ?
>
Zkus to dat do uvozovek.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Odesilani emaulu v synapsi
[*] Jiri Baudys <konference(zv)baudys.name> - 20.12.2004 08:55:11
DD,
mam dotazek pravdepodobne na pana Gebauera.
Pres SMTP odesilam maily, kde v TO mam napr. 'Petr Bok, CSc. <petr(zv)bok(tec)cz>'
a server to rozhodi na 2 maily (pro Petr Bok a CSc) ?
Predpokladam, ze problem neni v synapsi, ale v MailServeru (Exchange 5.5).
Lze ho nejak presvedcit, ze se jedna o jednoho adresata ?
diky
jirka
Bytove pole
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.12.2004 08:49:11
Petr Vetesnik wrote:
> Zdravim vsechny,
> je explicitne neprogramuji v delphi, ale v Buildru a prave ted jsem se
> dostal k nasledujicimu problemu. Potrebuji pouzit urcitou komponentu,
> kterou jsem v BCB bohuzel nerozchovil a proto jsem se rozhodl napsat si
> dll knihovnu v Delphi. Potreboval bych ale do bytoveho pole zapsat
> floatovou hodnotu. Poradite mi nekdo?
>
> Dekuji Petr Vetesnik
>
> PS. Pro letosni rok je toto snad muj posledni prispevek. Proto propojuji
> prani klidnych svatku a dobry vstup do roku 2005.
Jako bytove pole myslis array of Byte?
No tak co treba na prvni pozici ulozit desitkovy exponent a zbytek cislo
jako integer, tj. 1,25 = 1: 100, 2: 125.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Bytove pole
[*] Petr Vetesnik <vetesnik(zv)gmail(tec)com> - 20.12.2004 08:45:10
Zdravim vsechny,
je explicitne neprogramuji v delphi, ale v Buildru a prave ted jsem se
dostal k nasledujicimu problemu. Potrebuji pouzit urcitou komponentu,
kterou jsem v BCB bohuzel nerozchovil a proto jsem se rozhodl napsat si
dll knihovnu v Delphi. Potreboval bych ale do bytoveho pole zapsat
floatovou hodnotu. Poradite mi nekdo?
Dekuji Petr Vetesnik
PS. Pro letosni rok je toto snad muj posledni prispevek. Proto propojuji
prani klidnych svatku a dobry vstup do roku 2005.
Seriova komunikace s Async Pro
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 20.12.2004 08:35:09
> myslel som exportovat Delphi string z DLL-ka z pouzit povedzme v C-cku
>
Pokud je to textovy retezec neobsahujici hodnoty #0, tak bez problemu. Pokud
je to kontejner na binarni data, musis v C-cku pouzit odpovidajici datovou
strukturu a konvertovat.
> > Jinak jsem se chtel zeptat, bude Adonis pro D2005 a pokud
> ano, tak zhruba
> > kdy ?
>
> ano bude, datum este neviem, snad behom mesiaca, dvoch by mohlo byt.
> Uzivatelia Adonis Professional, ktory dodavame so zdrojakmi, mozu
> skusit prekompilovat zdrojove kody aj skor (nemam to vyskusane
> ale spolieham na Delphi kompatibilitu).
>
> Erik
Mam Adonis ver. 4.0 vcetne zdrojaku, koupili jsme to nekdy v r. 2000, od te
doby to uspesne a bez problemu pouzivam v D5. Budu resit upgrade vsech
projektu do D2005, a Adonis se jimi tahne jako znama cervena nit :-)).
Zkusim to nejdriv sam, potreboval bych to uz tak zacatkem ledna, kdyz to
nepujde, pockam.
Diky
Jiri Foldyna
Seriova komunikace s Async Pro
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 20.12.2004 08:25:09
> > pokud exportem myslis zapis do souboru, tak bez problemu
> treba takto:
> >
> > function WriteToStream(Value : string; fs : TFileStream) : boolean;
> > begin
> > Result := WriteToStream(Length(Value), fs);
> > if Result then
> > begin
> > Result := fs.write(Value[1], Length(Value)) = Length(Value);
> > end;
> > end;
>
> Kdyz jsme u toho, tato funkce ma prinejmensim dva drobne problemy:
>
> 1. Pokud je delka stringu 0 tak Value[1] ukazuje na neplatnou
> adresu (ze to
> pri behu vetsinou nezpusobi AV je nepodstatne)
> 2. Parametr Value by se mel predavat jako const, jinak se
> zbytecne kopiruje
> na stack / zvysuje pocet referenci.
>
> Petr Vones
Ad 1
Jo, je pravda, ze pokud by se fs.write pokusil pristoupit k Value[1], tak by
doslo k AV. Jenze pokud je Length(Value) = Count = 0 a to je, tak se z
bufferu nic necte a nic se ani nezapisuje, cili vysledek je stejny jako
kdybych napsal:
function WriteToStream(Value : string; fs : TFileStream) : boolean;
var
Count : integer;
begin
Count := Length(Value);
Result := WriteToStream(Count, fs);
if Result and (Count > 0) then
begin
Result := fs.write(Value[1], Count) = Length(Value);
end;
end;
Ad 2
Tohle jsem z helpu k D5 nikdy nepochopil :-), k cemu jsou constant
parameters vubec dobre. Pisou tam neco o optimalizaci kodu a zabezpeceni
proti nezamyslenemu predavani odkazem, ale jak presne to funguje, to tam
neni. No nic, zase jsem chytrejsi.
Zdravim
Jiri Foldyna
OT: Delphi 2005 vs. Visual Studio .NET
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.12.2004 08:23:08
<no_flame />
Co je podle Vas lepsi pro vyvoj .NET aplikaci: D2005 nebo VS .NET?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
ListView - AddItem
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 20.12.2004 07:21:04
Ahoj,
zkus to prepsat takto:
procedure TForm2.sBitBtn25Click(Sender: TObject);
var
Item: TListItem;
begin
Item:=ListView2.Items.Add;
Item.Caption := sLabel1.Caption;
Item.SubItems.Add(sLabel4.Caption);
Item.SubItems.Add(sEdit3.Text);
end;
a nemusis se starat o ItemIndex ..... Rosta
----- Original Message -----
From: "Petr Cafourek" <petr.cafourek.d7(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 20, 2004 6:59 AM
Subject: ListView - AddItem
> Zdravim vsechny,
> mam tento kod:
>
> procedure TForm2.sBitBtn25Click(Sender: TObject);
> var
> Item: TListItem;
> i: Integer;
> begin
> ListView2.AddItem(sLabel1.Caption, sLabel1);
> Item:=ListView2.Items[0];
> Item.SubItems.Add(sLabel4.Caption);
> Item.SubItems.Add(sEdit3.Text);
> end;
>
> a misto [0] bych potreboval dostat i, tak aby se i rovnalo
> nasledujicimu volnemu radku. Nevite nekdo, jak na to, Zkousel jsem
> nekolik variant, ale nic mi nefungovalo.
>
> mmj. Nevite jak by se dal obsah ListView ulozit do souboru a zase
> nacist? Nikde jsem nic takoveho nenasel.
>
> S pozdravem,
> Petr Cafourek
>
> petr.cafourek.d7(zv)seznam(tec)cz
>
> D6 Pro, WinXP CZ SP
>
>
>
>
>
>
ListView - AddItem
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 20.12.2004 06:59:02
Zdravim vsechny,
mam tento kod:
procedure TForm2.sBitBtn25Click(Sender: TObject);
var
Item: TListItem;
i: Integer;
begin
ListView2.AddItem(sLabel1.Caption, sLabel1);
Item:=ListView2.Items[0];
Item.SubItems.Add(sLabel4.Caption);
Item.SubItems.Add(sEdit3.Text);
end;
a misto [0] bych potreboval dostat i, tak aby se i rovnalo
nasledujicimu volnemu radku. Nevite nekdo, jak na to, Zkousel jsem
nekolik variant, ale nic mi nefungovalo.
mmj. Nevite jak by se dal obsah ListView ulozit do souboru a zase
nacist? Nikde jsem nic takoveho nenasel.
S pozdravem,
Petr Cafourek
petr.cafourek.d7(zv)seznam(tec)cz
D6 Pro, WinXP CZ SP
Seriova komunikace s Async Pro
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.12.2004 00:02:33
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Vsechny funkce pro praci s AnsiStringama s tim nemaji sebemensi problem.
> Pochopitelne nesmim pouzivat funkce pro praci s PCharem, ale k tomu neni
> ani duvod.
Jsou funkce pro praci s retezci ktere interne PChar pouzivaji, takze tohle
neni argument. Ono je pekne ze to v 99% pripadu bude fungovat, ale hledat pak
takovou chybu v aplikaci ktera se projevi jednou za x dni je dost narocne. Me
jde o princip, typ string je zkratka urcen pro retezec. Nemluve o tom, ze pri
pripadnem prenosu na jinou platformu nemusi byt jeho binarni reprezentace
shodna (treba v Delphi.NET je string vlastne WideString). Ja to nemyslim
spatne ;-)
> Coz je v tomto pripade hodne velky kanon na hodne maleho vrabcaka.
Procpak, vzdyt ty data ktere prijimas/odesilas jsou prave stream. Dalsi
moznosti je typ TByteDynArray (array of Byte), ktery presne odpovida
charakteru dat a jeho alokace je (podobne jako u stringu) pod kontrolou
prekladace.
> Ne, opravdu nebudu predelavat neco, co po leta dobre a bez problemu
> funguje, co opravdu mnoha lidem usnadnuje praci a jsou s tim spokojeni,
> jen a jen proto, ze ty bys to delal jinak. ;-)
Od toho jsou prave pretezovane metody, kterymi to lze "napravit" bez ztraty
puvodni funkce.
Petr Vones Seriova komunikace s Async Pro
[*] Winsoft <winsoft(zv)netkosice.sk> - 19.12.2004 23:58:33
> pokud exportem myslis zapis do souboru, tak bez problemu treba takto:
myslel som exportovat Delphi string z DLL-ka z pouzit povedzme v C-cku
> Jinak jsem se chtel zeptat, bude Adonis pro D2005 a pokud ano, tak zhruba
> kdy ?
ano bude, datum este neviem, snad behom mesiaca, dvoch by mohlo byt.
Uzivatelia Adonis Professional, ktory dodavame so zdrojakmi, mozu
skusit prekompilovat zdrojove kody aj skor (nemam to vyskusane
ale spolieham na Delphi kompatibilitu).
Erik
Seriova komunikace s Async Pro
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.12.2004 23:44:32
From: "Jiri Foldyna" <jiri.f(zv)avizo(tec)cz>
> pokud exportem myslis zapis do souboru, tak bez problemu treba takto:
>
> function WriteToStream(Value : string; fs : TFileStream) : boolean;
> begin
> Result := WriteToStream(Length(Value), fs);
> if Result then
> begin
> Result := fs.write(Value[1], Length(Value)) = Length(Value);
> end;
> end;
Kdyz jsme u toho, tato funkce ma prinejmensim dva drobne problemy:
1. Pokud je delka stringu 0 tak Value[1] ukazuje na neplatnou adresu (ze to
pri behu vetsinou nezpusobi AV je nepodstatne)
2. Parametr Value by se mel predavat jako const, jinak se zbytecne kopiruje
na stack / zvysuje pocet referenci.
Petr Vones
D2005 a Windows 2003 Server
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.12.2004 22:56:28
No tak po euforie z instalace, prislo velke zklamani.
---------------------------
bds.exe - Chyba aplikace
---------------------------
Instrukce na adrese 0x77f5d61b odkazovala na adresu pamei 0x00000010. S
pameti nelze provest operaci: written.
Klepnutim na tlacitko OK ukoncete program.
Chcete-li program ladit, klepnete na tlacitko Storno.
---------------------------
Error
---------------------------
Runtime error 216 at 77F5D61B
---------------------------
OK
---------------------------
Saaakris, dneska je spatnej den pro delphi.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Seriova komunikace s Async Pro
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 19.12.2004 22:16:25
> v pripade stringov by sme sa IMHO k otazke bezpecnosti ani
> nedopracovali, bol by zazrak, keby taky system vobec fungoval.
> Skus si len vyexportovat string
>
> Erik
Ahoj,
pokud exportem myslis zapis do souboru, tak bez problemu treba takto:
function WriteToStream(Value : string; fs : TFileStream) : boolean;
begin
Result := WriteToStream(Length(Value), fs);
if Result then
begin
Result := fs.write(Value[1], Length(Value)) = Length(Value);
end;
end;
function WriteToStream(Value : integer; fs : TFileStream) : boolean;
begin
Result := fs.write(Value, SizeOf(Value)) = SizeOf(Value);
end;
Jinak jsem se chtel zeptat, bude Adonis pro D2005 a pokud ano, tak zhruba
kdy ?
Zdravim
Jiri Foldyna
D2005 a Windows 2003 Server
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.12.2004 22:16:25
Jiri Cincura wrote:
> Petr Vones wrote:
>> From: "Jiri Cincura" <diskuze(zv)cincura.net>
>>> Pri instalaci XML Core Services, mi to zahlasi, ze instalator nasel
>>> error a ze to mam zkusit jindy (tot vse).
>>
>> Zkus ten update nejdriv nainstalovat rucne:
>>
>
http://www.microsoft.com/downloads/details.aspx?FamilyID=3144b72b-b4f2-46da-
> b4b6-c5d7485f2b42&DisplayLang=en
>>
>> Neni to nahodou ceska verze Windows ?
>>
>> Petr Vones
>
> Rucne to samozrejme instaluju, nejsem magor. 8-) Jinak to co pod timhle
> linkem, je presne to co je na CD s D2005. :)
>
> Ale pruser je, ze je to cesky Win2003 Server. Co mam ted delat? Jak tam
> to MSXML dostanu? Ja myslel, ze to vezme i to eng.
Tak jsem na to konecne prisel.
Staci ten *.msi balicek dat nekam kde nejsou v ceste mezery. Ja to sice mel
v C:\Data\pre, ale nebyl to systemovy disk.
Dal jsem to na D:\ a vse bylo OK.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
D2005 a Windows 2003 Server
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.12.2004 22:20:26
Jinak Delphi se taky nechtelo. Stacilo to rozbalit do korenoveho adresare a
je to OK.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
GROUP BY dle mesice v datumu - Firebird
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 19.12.2004 20:06:16
Nepredpokladal jsem, ze by nekdo v teto pohnute dobe
pouzival jeste verzi 1.0.x :)))).
Pro vyvoj doporucuji pouzivat 1.5.2 RC5, mel by to byt final.
Slavek
> prvni pokus dle vasi napovedy selhal. Stahl jsem FB 1.5 a uz to
> funguje. U zakaznika uz FB 1.5 je.
> Dekuji
>
> bleak
>
> Slavomir Skopalik napsal(a):
>
> >select extract(month from tDate), count(*) from devices
> >group by 1
> >
> > Slavek
> >
>
> GROUP BY dle mesice v datumu - Firebird
[*] bleak vm <bleak(zv)mvesely(tec)com> - 19.12.2004 19:48:15
prvni pokus dle vasi napovedy selhal. Stahl jsem FB 1.5 a uz to
funguje. U zakaznika uz FB 1.5 je.
Dekuji
bleak
Slavomir Skopalik napsal(a):
>select extract(month from tDate), count(*) from devices
>group by 1
>
> Slavek
>
Seriova komunikace s Async Pro
[*] Winsoft <winsoft(zv)netkosice.sk> - 19.12.2004 18:56:10
> > nebo kombinace parametru pointer na data + delka.
>
> Coz je zase nejlepsi cesta jak dopadnout jako Microsoft a stravit stari
> zaplatovanim chyb v programech, ktere cini cely system krajne
> nebezpecnym.
v pripade stringov by sme sa IMHO k otazke bezpecnosti ani
nedopracovali, bol by zazrak, keby taky system vobec fungoval.
Skus si len vyexportovat string
> Ne, opravdu nebudu predelavat neco, co po leta dobre a bez problemu
> funguje, co opravdu mnoha lidem usnadnuje praci a jsou s tim spokojeni,
> jen a jen proto, ze ty bys to delal jinak. ;-)
Erik
GROUP BY dle mesice v datumu - Firebird
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 19.12.2004 18:52:10
select extract(month from tDate), count(*) from devices
group by 1
Slavek
> zdravim,
> potrebuji SQL dotazem udelat soucet plateb z tabulky na
> jednotlive mesice, kde je v kazdem radku datum.
>
> Pro MySQL funguje toto:
> SELECT SUM(castka) FROM platby
> GROUP BY MONTH(datum)
>
> Firebird toto odmita:
> SELECT SUM(castka) FROM platby
> GROUP BY EXTRACT (MONTH FROM (datum))GROUP BY dle mesice v datumu - Firebird
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 19.12.2004 18:22:02
Zkus to group dat do columns-
SELECT MONTH(datum) FROM platby
tohle ti projde? MONTH je udf-ko?
> zdravim,
> potrebuji SQL dotazem udelat soucet plateb z tabulky na jednotlive
> mesice, kde je v kazdem radku datum.
>
> Pro MySQL funguje toto:
> SELECT SUM(castka) FROM platby
> GROUP BY MONTH(datum)
>
> Firebird toto odmita:
> SELECT SUM(castka) FROM platby
> GROUP BY EXTRACT (MONTH FROM (datum))
>
> Prosim o tipy na reseni tohoto dotazu pro FB
>
> bleak
>
>
>
>
>
>
>
GROUP BY dle mesice v datumu - Firebird
[*] bleak vm <bleak(zv)mvesely(tec)com> - 19.12.2004 18:40:09
neni to UDF, je to EXTRACT (MONTH FROM datum) a nepomuze, ani kdyz to
dam columns
bleak
Jan Rizek napsal(a):
>Zkus to group dat do columns-
>
> SELECT MONTH(datum) FROM platby
>
>tohle ti projde? MONTH je udf-ko?
>
Seriova komunikace s Async Pro
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 19.12.2004 18:22:02
> > Co je na tom podezreleho a riskantniho? Muzu mit ve stringu kolik chco
> > #0, a stejne to funguje dobre. ;-O Jo, leda ze bys mel schvalne
>
> Ze to nahodou funguje (do okamziku nez treba pouzijes nejakou funkci pro praci
> se stringy) nic nemeni na tom, ze je to zcela spatne reseni.
Vsechny funkce pro praci s AnsiStringama s tim nemaji sebemensi problem.
Pochopitelne nesmim pouzivat funkce pro praci s PCharem, ale k tomu neni
ani duvod.
> Pro predavani binarnich dat se hodi nejaky Stream
Coz je v tomto pripade hodne velky kanon na hodne maleho vrabcaka.
> nebo kombinace parametru pointer na data + delka.
Coz je zase nejlepsi cesta jak dopadnout jako Microsoft a stravit stari
zaplatovanim chyb v programech, ktere cini cely system krajne
nebezpecnym.
Ne, opravdu nebudu predelavat neco, co po leta dobre a bez problemu
funguje, co opravdu mnoha lidem usnadnuje praci a jsou s tim spokojeni,
jen a jen proto, ze ty bys to delal jinak. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Pripojeni k Firebird
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 19.12.2004 18:16:02
Zdravim,
narazil jsem na chybu, ktera (aspon se mi zda) se objevila sama od sebe :-)
Pouzivam FireBird a JayBird. Posledni dobou dostavam pri dotazu na databazi chybu
org.firebirdsql.jdbc.FBSQLException: GDS Exception. 335544569. Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, char 13
K teto chybe dochazi pri pouziti lib. verze FB (1.5.0 a vyssi) i lib. verze JayBird (1.5.1 a vyssi). Testovano na java 1.4.2 i 1.5.
Dotaz
"select * from tabulka"
projde, avsak
"select first 1 * from tabulka"
vyhodi uvedenou vyjimku. Chyba se projevuje na 2 test. pocitacich s WinXP SP1 a SP2 tak 9 z 10 pusteni. Nenarazil nekdo na podobny problem? Moc dekuji za pomoc Horyna
Seriova komunikace s Async Pro
[*] skopalik <skopalik(zv)elektlabs(tec)cz> - 19.12.2004 17:47:59
On je hlavni duvod nekde jinde.
Ten je v tom, ze pri praci s dynamic arrays nefunguji
funkce, ktere by fungovat meli.
Napriklad copy, pos, delete, insert, a scitani.
Jak by se mi zilo, kdybych si mohl dovolit tuto kontrukci:
var a:array of double;
d:double;
begin
a:=(2.2,3.4);
d:=5.6;
a:=a+d;
Proto misto array of byte pouzivam string.
Ve srovnani se statickym, nebo rucne alokovanym
buffrem je pouziti stringu mnohem bezpecnejsi a mene nachylne
na chyby v programu.
Automaticka alokace/dealokace, jednoduche prirazovani a udrzovani
skutecne delky (plus insert a delete) s prehledem vyvazi nechtenou
zamenu s fukci
urcenou pro nulou zakoncene stringy.
Slavek
> Ze to nahodou funguje (do okamziku nez treba pouzijes nejakou
> funkci pro praci
> se stringy) nic nemeni na tom, ze je to zcela spatne reseni.
> Pro predavani
> binarnich dat se hodi nejaky Stream nebo kombinace parametru
> pointer na data +
> delka.
>
> Petr Vones
>
>
>
> D2005 a Windows 2003 Server
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.12.2004 17:19:57
Petr Vones wrote:
> From: "Jiri Cincura" <diskuze(zv)cincura.net>
>> Pri instalaci XML Core Services, mi to zahlasi, ze instalator nasel
>> error a ze to mam zkusit jindy (tot vse).
>
> Zkus ten update nejdriv nainstalovat rucne:
>
http://www.microsoft.com/downloads/details.aspx?FamilyID=3144b72b-b4f2-46da-
b4b6-c5d7485f2b42&DisplayLang=en
>
> Neni to nahodou ceska verze Windows ?
>
> Petr Vones
Rucne to samozrejme instaluju, nejsem magor. 8-) Jinak to co pod timhle
linkem, je presne to co je na CD s D2005. :)
Ale pruser je, ze je to cesky Win2003 Server. Co mam ted delat? Jak tam to
MSXML dostanu? Ja myslel, ze to vezme i to eng.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
D2005 a Windows 2003 Server
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.12.2004 15:59:51
From: "Jiri Cincura" <diskuze(zv)cincura.net>
> Pri instalaci XML Core Services, mi to zahlasi, ze instalator nasel error a
> ze to mam zkusit jindy (tot vse).
Zkus ten update nejdriv nainstalovat rucne:
http://www.microsoft.com/downloads/details.aspx?FamilyID=3144b72b-b4f2-46da-b4b6-c5d7485f2b42&DisplayLang=en
Neni to nahodou ceska verze Windows ?
Petr Vones D2005 a Windows 2003 Server
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 19.12.2004 15:49:50
Ahoj,
chtel jsem nainstalovat D2005 na W2003 server a hle, nejde to.
Pri instalaci XML Core Services, mi to zahlasi, ze instalator nasel error a
ze to mam zkusit jindy (tot vse).
Ale bez XML Core Services se mi nenainstaluje D2005. Vitenekdo jak z teto
situace ven?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Seriova komunikace s Async Pro
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 19.12.2004 15:13:47
> > Co je na tom podezreleho a riskantniho? Muzu mit ve stringu
> kolik chco
> > #0, a stejne to funguje dobre. ;-O Jo, leda ze bys mel schvalne
>
> Ze to nahodou funguje (do okamziku nez treba pouzijes nejakou
> funkci pro praci
> se stringy) nic nemeni na tom, ze je to zcela spatne reseni.
> Pro predavani
> binarnich dat se hodi nejaky Stream nebo kombinace parametru
> pointer na data +
> delka.
>
> Petr Vones
Ahoj,
nelze prece predpokladat, ze nekdo, kdo pouziva string jako kontejner na
data, bude az takovy idiot, aby se pokousel o operace, ktere nad jeho daty
postradaji smysl. Stringy v delphi maji velkou vyhodu v tom, ze je lze bez
problemu pouzivat jako pole jednobytovych znaku, pricemz system dodava
funkce pro vkladani, mazani, nahrazovani a vyhledavani polozek. Navic je
alokace a dealokace pameti automaticka, coz rovnez neni na skodu. Pro
predavani binarnich dat je string stejne vhodny jako jakekoli jine pole
bytu.
Zdravim
Jiri Foldyna
OT: GROUP BY dle mesice v datumu - Firebird
[*] bleak vm <bleak(zv)mvesely(tec)com> - 19.12.2004 14:47:45
zdravim,
potrebuji SQL dotazem udelat soucet plateb z tabulky na jednotlive
mesice, kde je v kazdem radku datum.
Pro MySQL funguje toto:
SELECT SUM(castka) FROM platby
GROUP BY MONTH(datum)
Firebird toto odmita:
SELECT SUM(castka) FROM platby
GROUP BY EXTRACT (MONTH FROM (datum))
Prosim o tipy na reseni tohoto dotazu pro FB
bleak
Synapse a Connection Timed out
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 19.12.2004 14:03:42
> > nezapnul exceptions, nemuzes mit sebemensi problem. Kazdopadne,
> > pouzivani exceptions v Synapsi silne nedoporucuji!
> Coz je z pohledu designu prave jeden z nejvetsich problemu Synapse.
jeste drobna poznamka... jedna se o zapomenute odchyceni a ignorovani
vyjimky v okamziku, kdy jeji vyvolani je nesmyslne. Toto drobne opomenuti
nazyvat 'jednim z nejvetsich designovych problemu Synapse', to jsou mi
nejaka silna slova. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Synapse a Connection Timed out
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 19.12.2004 13:57:41
> > nezapnul exceptions, nemuzes mit sebemensi problem. Kazdopadne,
> > pouzivani exceptions v Synapsi silne nedoporucuji!
> Coz je z pohledu designu prave jeden z nejvetsich problemu Synapse.
To je ale tvuj subjektivni nazor. Synapse dokaze vyrobit efektivni a
prehledny komunikacni kod i bez exceptions, ktere jsou v tomto pripade
spise na obtiz, jak dokazuji cetne zkusenosti treba s Indy. To je pro
zmenu muj subjektivni nazor.
Me to takhle vyhovuje, proto Synapsi takto pouzivam. Tobe to nevyhovuje,
budiz, existuje hromada jinych knihoven, ne?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Seriova komunikace s Async Pro
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.12.2004 13:51:41
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Co je na tom podezreleho a riskantniho? Muzu mit ve stringu kolik chco
> #0, a stejne to funguje dobre. ;-O Jo, leda ze bys mel schvalne
Ze to nahodou funguje (do okamziku nez treba pouzijes nejakou funkci pro praci
se stringy) nic nemeni na tom, ze je to zcela spatne reseni. Pro predavani
binarnich dat se hodi nejaky Stream nebo kombinace parametru pointer na data +
delka.
Petr Vones Synapse a Connection Timed out
[*] Petr Vones <konference(zv)petrvones(tec)net> - 19.12.2004 12:31:35
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> nezapnul exceptions, nemuzes mit sebemensi problem. Kazdopadne,
> pouzivani exceptions v Synapsi silne nedoporucuji!
Coz je z pohledu designu prave jeden z nejvetsich problemu Synapse.
Petr Vones
Jak zjist protiomost ActiveX
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 19.12.2004 12:07:33
Ahoj, chtel jsem zpetat, vygeneroval jsem si z ActiveXku prs delphi
komponentu k falsu. Ale muze se preci stat, ze na cizim PC nebude
instalovany. Tento flash. Takze jak prejit nejake chybove hlasce.
Popripadne
Sam registrovat prilozeny soubor "swfflas.ocx" ; Diky Seriova komunikace s Async Pro
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 18.12.2004 18:46:18
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lukas Gebauer
> Sent: Saturday, December 18, 2004 6:30 PM
>
> > Jo, je to tim. :-)
>
> Takze uz to slape?
No, nepredbihejme, jeste to musi projit nejakym zatezovym testem, ktery tu
nemohu nasimulovat. Ale vypada to nadejne. :-)
> Nula ve stringu vubec nicemu nevadi. To je preci string, ne PChar!
Pracuji s polem bajtu v preddefinovanych strukturach, takze nevidim duvod to
prevadet sem a tam. Neni nad to to rovnou nacist kam to patri, zejmena kdyz
to musi odsejpat.
> Pochioopitelne, tato funkce bude cekat dokud nedostane
> vsechna pozadovana data nebo dokud neuplyne timeout.
Coz je mi naprd.
> Pokud
> chces mezitim neco delat, musis sahnout po recvBuffer a
> vsechno si obhospodarit sam.
Takze to tak nakonec delam.
> Ty hodlas nekdy v budoucnu pouziva implicitne shortstring?
> :-O Krom toho, jestli se v budoucnu neco zmeni, tak to zcela
> jiste bude prepsani 'string' v synaseru na 'AnsiString',
> takze se pak nebudes mit ceho bat.
Ja to hodlam predevsim nahradit .NET verzi, takze uz to nebudu rozpatlavat a
pokud to bude sedet, necham to jak to je.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Seriova komunikace s Async Pro
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.12.2004 18:38:17
> To je sice pekne, ale proc TOTO neni napsane v dokumentaci? Nic jine
> tam vlastne ani byt nemusi, seznam properties, metod, parametru atd
> podstrkuje primo Delphi pri psani, to muzes z dokumentace vyhodit, ale
> pak by tam nezustalo vubec nic :-).
Ono to tam neni? Ja to tam vidim! :-O
Krom toho, seznamy properties, metod ci parametru jsou generovany
automaticky ze zdrojaku. Podivas-li se na zdrojak Synaseru, tak temer
cela polovina zdrojaku jsou deklarace vcetne dokumentace. Myslim, ze tam
toho malo neni...
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Seriova komunikace s Async Pro
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.12.2004 18:30:16
> > nizkourovnova funkce, a musis se postarat o hromady veci
> > kolem. treba ze ji volas, jen kdyz je CanRead True (coz ted
> > mozna nedelas...
> Jo, je to tim. :-)
Takze uz to slape?
> Koukal jsem do nekterych vyssich funkci, jenze ty to snad vsude honis pres
> string, coz je pro muj pripad nepouzitelne, protoze mam v bufferu spoustu
> nul, se kterymi musim pocitat. Ja to opravdu potrebuju cist po blocich s
> predem danou delkou. Nebo tam mas nekde funkci, ktera obsluhuje ty veci
> okolo a vraci mi data do bufferu?
Nula ve stringu vubec nicemu nevadi. To je preci string, ne PChar!
Ve tvem pripade bych mozna zkusil RecvBufferEx. To ti ty data dava do
binarnih bufferu, ale stara se o ty veci kolem, jako timeouty, abys
dostal bud vsechna pozadovana data nebo timeout, vyuziva vnitrni buffer
Synaseru, atd. Pochioopitelne, tato funkce bude cekat dokud nedostane
vsechna pozadovana data nebo dokud neuplyne timeout. Pokud chces mezitim
neco delat, musis sahnout po recvBuffer a vsechno si obhospodarit sam.
> > kazdopadne, i kdyz chces cist binarni data, muzes s klidem
> > pouzit RecvString nebo podobne funkce, ktere nacitaji do
> > stringu. AnsiString
> Hehe, jenze ty tam mas $H+. Riskovat, ze to zmenim, a pak si treba nekdy v
> budoucnu stahnu novou verzi a na tuto upravu zapomenu, nehodlam.
Ty hodlas nekdy v budoucnu pouziva implicitne shortstring? :-O Krom toho,
jestli se v budoucnu neco zmeni, tak to zcela jiste bude prepsani
'string' v synaseru na 'AnsiString', takze se pak nebudes mit ceho bat.
;-)
> > - chces precist konkretni pocet bytu dat. pak pouzijes
> > recvBufferEx nebo recvBufferStr.
> To by mohlo byt, jenze mas tam repeat (kdyz neni co cist, potrebuju delat
> neco jineho nez cekat na data), a mas tam podezrelou konstukci, ktera je
> riskantni v pripade #0:
> string s := RecvPacket(Timeout);
> l := System.Length(s);
Co je na tom podezreleho a riskantniho? Muzu mit ve stringu kolik chco
#0, a stejne to funguje dobre. ;-O Jo, leda ze bys mel schvalne
explicitne zapnute shortstringy, ale to bys ani mit nemohl, protoze to by
ti nefungovalo skoro nic, a nejen v Synaseru!
> Jsem potizista, ze? :-))) Aspon mas namet k uvaham o debilnich uzivatelich,
> kteri chteji neco jineho, nez jim nabizis. ;-)
[...]
> Ja mam vsechna data v bufferech, takze mi pripada zbytecne prevadet je na
> string a zpet. ;-) Z casovych duvodu potrebuju co nejkratsi cestu toku dat,
> tedy, vycist pokud tam neco je, bez cekani, nebo co nejrychleji zapsat,
> pokud potrebuji a je volno na lince.
Houbelec potizista! (Takove znam, a jsou mnohem horsi! ;-))) 95%
uzivatelu Synaseru bohate staci ty hotove vysokourovnove funkce. Je
pochopitelne, ze nekdo nekdy chce proste neco trosku jineho. To je preci
v poradku, Synaser ti to dovoluje a poskytuje ti snad vsechny potrebne
funkce. (canread, waitingdata, RecvBuffer, SendBuffer,...)
Je asi jasne, ze kdyz chces od Synaseru neco trosku vic, musis se o nem
nejdriv i neco trosku vic naucit. Nakonec, neni to az tak tezke, ne?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Odchyceni maximalizace - vyreseno
[*] Petr <potuzacek(zv)volny(tec)cz> - 18.12.2004 16:02:06
> Ahoj,
> zkus tohle
>
> procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message
WM_GETMINMAXINFO;
>
> Petr
Ano, toto funguje. Jen je zapotrebi nejakym priznakem (napr. var min :
boolean) osetrit, zda se jedna
o maximalizaci, nebo minimalizaci, aby to reagovalo jen na maximalizaci.
Tento priznak je nutno nastavit jeste pred minimalizaci :
.
.
.
min:=true;
showwindow (application.handle,sw_minimize))
.
.
.
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;
if min then
begin
end;
end;
Navic jsem si poradne precetl WM_Syscommand a tam pisou, ze SC_Maximize,
SC_Minimize a SC_ Restore je formulari zasilana pouze pri obsluze
systemoveho menu aplikace nebo
maximalizacniho a minimalizacniho tlacitka. Protoze ani jedno z toho
nepouzivam ( to jsem zapomel uvest ),
jelikoz mam vlastni graficky design ( minimalizuju pouzitim showwindow
(application.handle,sw_minimize))
a aplikaci maximalizuju klepnutim na hl. panelu, nebo vyberem z menu
taskmanazeru (ALT+TAB),
vim alespon, proc nic z toho, co jsem pouzil, nefunguje.
Moc dekuju, Petr P.
D7 chyby prostredi + debugeru
[*] Anton Kilchevskyy <delphi(zv)haida(tec)cz> - 18.12.2004 14:50:01
Musim se pochlubit skvelym zamrznutim D7 Prof. Ktere mi predvedli prvne pred
chvilickou.
Po kompilaci a spusteni, projektu, mi onen projekt vubec nereagoval. Okno se
tvarilo jako neaktivni, a neslo stisknout zadne tlacitko nebo provest
jakoukoliv akci. I kdyz se to tvarilo opravdu tragicky, program se podarilo
zavrit, vybranim volby z mistni nabidky v pruhu Start. Projekt se sice
zavrel, a po urcite dobe D7 preslo z Debug modu do vyvojoveho, ale vlastni
D7 reagovali naprosto stejne jako zkompilovany projekt:). I tentokrat se mi
je podarilo shodit bez nutnosti pouziti zachranne kombinace klaves. Jenom ze
jak se D7 zavreli tak mi vyskocila okoukana chybova hlaska Access Violation.
Mimochodem jsem vypozoroval, ze pravdepodobnost objeveni teto hlasky pri
ukonceni D7 je u me asi tak 80 procentni. Asi to souvisi, s tim, ze temer
pokazde, se mi podari dostat prostredi do onoho chyboveho stavu, preskakuji
polozky v Code Inside atd..
Tak ze jako vzdy Spravce uloh, ukonceni procesu, a viva, novy start Delphi.
Proc to, ze D7 tolik pada?
Seriova komunikace s Async Pro
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 18.12.2004 14:09:58
Delphi string na rozdil od C/C++ nema problem s nulamy.
Bezne takto resim binarni komunikaci k me naproste spokojenosti.
Slavek
> Koukal jsem do nekterych vyssich funkci, jenze ty to snad
> vsude honis pres string, coz je pro muj pripad nepouzitelne,
> protoze mam v bufferu spoustu nul, se kterymi musim pocitat.
> Ja to opravdu potrebuju cist po blocich s predem danou
> delkou. Nebo tam mas nekde funkci, ktera obsluhuje ty veci
> okolo a vraci mi data do bufferu?Kylix: nefunkcni editor
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 18.12.2004 13:55:57
Bohuzel to nefunguje, nema nekdo nejaky jiny napad?
Jakub Cermak
ja.cermi(zv)centrum(tec)cz
----- Original Message -----
From: "Petr Hlozek" <petr_hl(zv)mrp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, December 16, 2004 11:16 AM
Subject: Re: Kylix: nefunkcni editor
> Dobry den,
>
> zkousel jste pred spustenim Kylixe zadat neco jako LD_ASSUME_KERNEL=2.2.5
> ?
>
> Vice se doctete na http://unvclx.sourceforge.net v casti Information
>
> Petr
>
>
> Dne st 15. prosince 2004 22:19 cermiforum(zv)centrum(tec)cz napsal(a):
>> Nainstaloval jsem si Kylix 3 Open Edition. Uz od zacatku mi nefunguje
>> Code
>> Editor - tam kde by mel byt zdrojak je jen bila plocha a pokud na ni
>> kliknu
>> mysi (levy i pravy tlacitko) napise to error Division by zero. Nesetkal
>> jste se uz nekdy s tim nekdo??
>>
>> Mandrake Linux 9.2
>> kernel 2.4.22-10mdk
>> KDE 3.1.3
>
> --
> web : www.webpark(tec)cz/ok2cqr
> mail : ok2cqr at post dot cz; petr_hl at mrp dot cz
> ICQ : 165536992
>Jedi VCS na MySQL
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 18.12.2004 10:09:41
Ahoj,
podarilo se to nekomu rozjet? Stahl jsem, nainstaloval, ale pres cpl
konfigurator s tim neudelam vubec nic (nainstalovat/nastartovat), neustale
to na me krici nemecke hlasky, ze nemuze nalezt exe te sluzby... Tak jsem ho
nainstaloval rucne, ale pak tomu chybi zase libmysql.dll, po prihrani zacne
v logu vyhazovat ruzne AV a nefunguje. Konfiguraci si to jednou uklada do
win adresare, jindy zase k samotnemu exe, tak nevim. :(( Zkousel jsem i
verzi 1, stejny problem. Diky za kazdy tip.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Seriova komunikace s Async Pro
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 18.12.2004 09:59:40
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lukas Gebauer
> Sent: Friday, December 17, 2004 9:57 PM
>
> nizkourovnova funkce, a musis se postarat o hromady veci
> kolem. treba ze ji volas, jen kdyz je CanRead True (coz ted
> mozna nedelas...
Jo, je to tim. :-)
> Mnohem vyhodnejsi je pouzit nejakou vysokourovnovou cteci
> funkci, ktera pouziva jeste jednu uroven bufferu v synaseru,
> cimz co nejdrive uvolnuje systemove buffery pro prijem
> dalsich dat. Stara se i o timeouty a v neposledni rade
> provadi i zakladni parsing prectenych dat dle libosti.
Koukal jsem do nekterych vyssich funkci, jenze ty to snad vsude honis pres
string, coz je pro muj pripad nepouzitelne, protoze mam v bufferu spoustu
nul, se kterymi musim pocitat. Ja to opravdu potrebuju cist po blocich s
predem danou delkou. Nebo tam mas nekde funkci, ktera obsluhuje ty veci
okolo a vraci mi data do bufferu?
> kazdopadne, i kdyz chces cist binarni data, muzes s klidem
> pouzit RecvString nebo podobne funkce, ktere nacitaji do
> stringu. AnsiString
Hehe, jenze ty tam mas $H+. Riskovat, ze to zmenim, a pak si treba nekdy v
budoucnu stahnu novou verzi a na tuto upravu zapomenu, nehodlam.
> Takze bezne se s tim pracuje tak, ze kdyz:
>
> - chces precist blok dat, ktery je zakonceny nejakym
> konkretnim bytem ci sekvenci bytu, pouzijes RecvTerminated
Neni.
> - chces precist radek textu, coz je vlastne specialni pripade
> predchoziho pripadu s terminatorem CRLF, pouzijes RecvString.
> (muzes vyuzit i moznosti, ze Synaser sam pozna, jestli je
> pouzit jako oddelovac CRLF, CR ci LF).
Nechci.
> - chces precist konkretni pocet bytu dat. pak pouzijes
> recvBufferEx nebo recvBufferStr.
To by mohlo byt, jenze mas tam repeat (kdyz neni co cist, potrebuju delat
neco jineho nez cekat na data), a mas tam podezrelou konstukci, ktera je
riskantni v pripade #0:
string s := RecvPacket(Timeout);
l := System.Length(s);
Jsem potizista, ze? :-))) Aspon mas namet k uvaham o debilnich uzivatelich,
kteri chteji neco jineho, nez jim nabizis. ;-)
> - chces precist vse, co je zrovna k dispozici. Pak pouzijes
> RecvPacket.
Nechci.
> A naopak, metoda Sendstring muze byt pouzita i k odesilani
> libovolnych binarnich dat ulozenych v AnsiStringu. proto tato
> metoda (ac je to dle chovani jejiho bratra recvString
> nelogicke) nepridava na konec odesilanych dat CRLF, v cemz se
> casto chybuje! Data se odesilaji presne takova jaka jsou bez
> zadnych dalsich modifikaci.
Ja mam vsechna data v bufferech, takze mi pripada zbytecne prevadet je na
string a zpet. ;-) Z casovych duvodu potrebuju co nejkratsi cestu toku dat,
tedy, vycist pokud tam neco je, bez cekani, nebo co nejrychleji zapsat,
pokud potrebuji a je volno na lince.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Seriova komunikace s Async Pro
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 18.12.2004 09:15:37
> Takze bezne se s tim pracuje tak, ze kdyz:
>
> - chces precist blok dat, ktery je zakonceny nejakym konkretnim
bytem ci
> sekvenci bytu, pouzijes RecvTerminated
>
> - chces precist radek textu, coz je vlastne specialni pripade
predchoziho
> pripadu s terminatorem CRLF, pouzijes RecvString. (muzes vyuzit i
> moznosti, ze Synaser sam pozna, jestli je pouzit jako oddelovac
CRLF, CR
> ci LF).
>
> - chces precist konkretni pocet bytu dat. pak pouzijes recvBufferEx
nebo
> recvBufferStr.
>
> - chces precist vse, co je zrovna k dispozici. Pak pouzijes
RecvPacket.
>
> To jsou zakladni metody na cteni dat, a z nich jsi schopen poskladat
vse,
> co potrebujes.
To je sice pekne, ale proc TOTO neni napsane v dokumentaci? Nic jine
tam vlastne ani byt nemusi, seznam properties, metod, parametru atd
podstrkuje primo Delphi pri psani, to muzes z dokumentace vyhodit, ale
pak by tam nezustalo vubec nic :-).Seriova komunikace s Async Pro
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.12.2004 21:56:48
> Narazil jsem ale na dalsi problem. Ctu data pres RecvBuffer (nezajimaji me
> stringy, ale binarni data), a jak to tak vypada, cte se porad. To se
> nevyprazdnuje buffer o data, ktera prectu? Vali se to takovou rychlosti,
> ktera je z hlediska snimace nerealna. Jak se to uvnitr chova, a jak muzu
> vyprazdnit data, ktera jsem uz nacetl? Zkusil jsem po cteni volat Purge, ale
> zadny rozdil jsem nezaznamenal.
Valim bulvy, protoze to co prectes z bufferu mizi. Pouzivani primo volane
metody recvBuffer nedoporucuji, je to nizkourovnova funkce, a musis se
postarat o hromady veci kolem. treba ze ji volas, jen kdyz je CanRead
True (coz ted mozna nedelas... a windows ti mozna podstrkuje stale stejna
data ke cteni), musis si davat bacha na spravny buffer, atd.
Mnohem vyhodnejsi je pouzit nejakou vysokourovnovou cteci funkci, ktera
pouziva jeste jednu uroven bufferu v synaseru, cimz co nejdrive uvolnuje
systemove buffery pro prijem dalsich dat. Stara se i o timeouty a v
neposledni rade provadi i zakladni parsing prectenych dat dle libosti.
kazdopadne, i kdyz chces cist binarni data, muzes s klidem pouzit
RecvString nebo podobne funkce, ktere nacitaji do stringu. AnsiString je
schopen pracovat preci s libovolnymi binarnimi daty, vcetne treba znaku
#0! (jen bacha, kdyz takovy string hcces zobrazovat ci zpracovavat
prostredky, ktere pouzivaji null-terminated string ve svych
vnitrnostech.... coz plati treba i pro debuuger v delphi, kde ti casto
neukaze vse co v tom stringu je, i kdyz to tam skutecne je!)
Takze bezne se s tim pracuje tak, ze kdyz:
- chces precist blok dat, ktery je zakonceny nejakym konkretnim bytem ci
sekvenci bytu, pouzijes RecvTerminated
- chces precist radek textu, coz je vlastne specialni pripade predchoziho
pripadu s terminatorem CRLF, pouzijes RecvString. (muzes vyuzit i
moznosti, ze Synaser sam pozna, jestli je pouzit jako oddelovac CRLF, CR
ci LF).
- chces precist konkretni pocet bytu dat. pak pouzijes recvBufferEx nebo
recvBufferStr.
- chces precist vse, co je zrovna k dispozici. Pak pouzijes RecvPacket.
To jsou zakladni metody na cteni dat, a z nich jsi schopen poskladat vse,
co potrebujes. tech ctecich metod existuje vice, ale to jsou uz jen
kombinace vyse uvedenych principu.
Tyto cteci metody jsou nachlup stejne metodam, ktere pouziva i Synapse
pro TCP/IP. ;-)
A naopak, metoda Sendstring muze byt pouzita i k odesilani libovolnych
binarnich dat ulozenych v AnsiStringu. proto tato metoda (ac je to dle
chovani jejiho bratra recvString nelogicke) nepridava na konec
odesilanych dat CRLF, v cemz se casto chybuje! Data se odesilaji presne
takova jaka jsou bez zadnych dalsich modifikaci.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Microsoft Project v Delphi
[*] Dan <xfojtik(zv)centrum(tec)cz> - 17.12.2004 17:52:32
Jde o to, ze bych chtel skloubit schopnosti TOleContaineru (konkretne
moznost mit MS Project v okne) s primou praci s OLE objektem (kdyz s nim
pracuji pomoci CreateOLEObject).
Funguji mi tyto prikazy:
MSPAplikace := CreateOLEObject('MSProject.Project');
MSPAplikace.Application.FileOpen('<MSP2003>\92',False,0,True,'','',False,
'myname','xxx','MSProject.ODBC');
MSPAplikace.Application.Visible := True;
jenz mi nactou pozadovana data z databaze. Ovsem MS Project se mi neotevre v
okne, ale jako samostatna aplikace. Property MSPAplikace.Application.Parent
je ReadOnly, takze takhle MS Project ho do formulare nevlozim.
Proste rad bych otevrel v okne me aplikace Microsoft Project a do nej
nacetl data z databaze...
Dan
>Obecne ano, ale chce to technickou dokumentaci k tomu konkretnimu programu
>cili
>zde k MS Project - tam by melo byt napsano jake "povely" umi. Ale jestli
>bude umet zrovna nacist data z databaze tezko rict, vubec netusim jak
>MSProject funguje a jak data uklada. Kdyz ne tak bych zkusil si ten soubor
z
>databaze nacist vlastnorucne a do Projectu ho vnutit - to je neco jako
>"create OLE from file" - zada se mu soubor a system podle pripony vyvola
>procesor. Jinak treba ve Wordu je mozny ho povelovat ve stylu "nastav
>font... napis pismenka .... zmen font ... nacti obrazek ... vloz data ze
>souboru ...) usw, vicemene jako DDE blahe pameti a pri trose snahy to
vypada
>i dost legracne - uzivatel sedi se zalozenyma rukama a pred jeho ocima Word
>"sam" pracuje, pise, kresli a vubec maka.
Microsoft Project v Delphi
[*] Kalhous <kalhous(zv)eu(tec)cz> - 17.12.2004 17:30:30
Obecne ano, ale chce to technickou dokumentaci k tomu konkretnimu programu
cili
zde k MS Project - tam by melo byt napsano jake "povely" umi. Ale jestli
bude umet zrovna nacist data z databaze tezko rict, vubec netusim jak
MSProject funguje a jak data uklada. Kdyz ne tak bych zkusil si ten soubor z
databaze nacist vlastnorucne a do Projectu ho vnutit - to je neco jako
"create OLE from file" - zada se mu soubor a system podle pripony vyvola
procesor. Jinak treba ve Wordu je mozny ho povelovat ve stylu "nastav
font... napis pismenka .... zmen font ... nacti obrazek ... vloz data ze
souboru ...) usw, vicemene jako DDE blahe pameti a pri trose snahy to vypada
i dost legracne - uzivatel sedi se zalozenyma rukama a pred jeho ocima Word
"sam" pracuje, pise, kresli a vubec maka.
----- Original Message -----
From: "Dan" <xfojtik(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 17, 2004 4:44 PM
Subject: Re: Microsoft Project v Delphi
> Diky za typ, pouzil jsem a pro praci se soubory to funguje vyborne a bez
> problemu. Bohuzel ja potrebuji otevrit data, jenz mam v databazi.
> Potrebuji
> poslat OLE interni prikaz pro nacteni dat z databaze. Konkretne prikaz
> vypadajici asi takto:
> FileOpen Name:="<MSP2003>\92", ReadOnly:=False, UserId:="myname",
> DatabasePassWord:="xxx", FormatID:="MSProject.ODBC"
> Daji se objektu typu TOLEContainer posilat takoveto prikazy?
>
> Dan
>
>
>>Nebylo by nejjednodussi proste to narvat do OLE containeru? Tam se s tim
>>pak daji delat i dost zajimave veci. Je to popsane i s prikladama ve vsech
>>tlustych knihach "Mistrovstvi v Delphi" urcite od 3 vyse.
> Delphi 2005 zabezpeceni - vyreseno
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 17.12.2004 17:06:28
Ahoj,
nevim, jestli se to resilo i tady, ale mozna se to i nakomu z Vas hodi.
Jestli Vam na XP SP2 v D2k5 porad vyskakuje to upozorneni zabezpeceni (at
mate ten Win firewall nebo 3rd party FW), da se to jednoduse odstranit.
Jdede do "Brana firewall systemu Windows" > Karta Vyjimky. Tam pridejte D2k5
jako vyjimku pro 127.0.0.1 (nebo i vse pokud mate obvahu) a hned je po
problemu.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Microsoft Project v Delphi
[*] Dan <xfojtik(zv)centrum(tec)cz> - 17.12.2004 16:44:26
Diky za typ, pouzil jsem a pro praci se soubory to funguje vyborne a bez
problemu. Bohuzel ja potrebuji otevrit data, jenz mam v databazi. Potrebuji
poslat OLE interni prikaz pro nacteni dat z databaze. Konkretne prikaz
vypadajici asi takto:
FileOpen Name:="<MSP2003>\92", ReadOnly:=False, UserId:="myname",
DatabasePassWord:="xxx", FormatID:="MSProject.ODBC"
Daji se objektu typu TOLEContainer posilat takoveto prikazy?
Dan
>Nebylo by nejjednodussi proste to narvat do OLE containeru? Tam se s tim
>pak daji delat i dost zajimave veci. Je to popsane i s prikladama ve vsech
>tlustych knihach "Mistrovstvi v Delphi" urcite od 3 vyse.
Seriova komunikace s Async Pro
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 17.12.2004 15:00:19
Ahoj Lukasi,
tak problem byl zpusoben tim, ze jsem zapomnel v uses odkaz na nejake
knihovny z AsyncPro. Nejak se to spolu pralo. :-)
Narazil jsem ale na dalsi problem. Ctu data pres RecvBuffer (nezajimaji me
stringy, ale binarni data), a jak to tak vypada, cte se porad. To se
nevyprazdnuje buffer o data, ktera prectu? Vali se to takovou rychlosti,
ktera je z hlediska snimace nerealna. Jak se to uvnitr chova, a jak muzu
vyprazdnit data, ktera jsem uz nacetl? Zkusil jsem po cteni volat Purge, ale
zadny rozdil jsem nezaznamenal.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
fb embedded 1.5 backup
[*] dphi_forum(zv)proces.sk - 17.12.2004 14:00:14
Cize FB nemas vobec spusteny? Mas iba embeded verziu a vsetko slape? Ako to
teda spustas?
V D6 v adresari Demos\DB\IBX\Admin je demo na zalohovanie ktore ide aj na
embeded verzii.
Predpokladam, ze BackStore zo stranky www.seko.sk je pisani podla toho
dema.
Stano
To je divny - nam aplikacni backup chodi i na embeded systemech (1.5) -
aspon si zadny zakaznik nestezoval, ze by to neslo.. :-)
JR
Zakazani Entreru v gridu
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 17.12.2004 14:58:18
Vsechny zdravim,
Potreboval bych, kdyz uzivatel stiskne Enter v gridu, aby se mi fokus
nikam nepresunoval. A nevim, jak na to - pri obsluze udalosti on key down/
press jen mohu vratit focus na puvodni misto, ale to vzdy problikne. Chtel
bych tu klavesu (Enter) nekde odchytit a zabit..
Kdyz to odchytim na gridu, tak je jiz pozde - focus se presune. Kdyz to
odchytim na formulari (on key down), tak je uz take pozde - focus je na
dalsim radku (sloupci).
Nemate nejake reseni?
zdravi Jan Rizek OT odinstalace servispacku Windows XP
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.12.2004 14:56:18
> Nevite nekdo jak odstranit 2. servicepack s WinXP. Hada
> se s nim nejaky program. Radeji bych neopouzival bodu
> obnovy, protoze nevim jak byly instalovany ovladace, ale
> budu vdecny za kazdy tip.
>
Ahoj,
mne normalne fungovalo klasicke Ovladaci panely - Pridat/odebrat
software.
Nicmene jsem zjistil, ze nektere programy mohou po instalaci SP2 mit
problemy s ne zcela nejnovejsim novell clientem (pokud ho tedy
pouzivas) - napr. Pegasus Mail. Pro nej je treba mit Novell klienta
4.90SP2. Nemuzes mit problem podobneho druhu?
David Lebeda
OT odinstalace servispacku Windows XP
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 17.12.2004 14:32:16
Ahoj vsichni
Nevite nekdo jak odstranit 2. servicepack s WinXP. Hada se s nim nejaky program. Radeji bych neopouzival bodu obnovy, protoze nevim jak byly instalovany ovladace, ale budu vdecny za kazdy tip.
Jaromir Cermak
fb embedded 1.5 backup
[*] votavaSW <mail(zv)votavasw(tec)com> - 17.12.2004 14:30:16
namisto spusteneho FB serveru mam prave embedded a funguje vse, zatim jsem
zalohovani pomoci gbak vyresil tak, ze nastavim IBDatabase.connected na
false, potom zazalohuji...
muzes mi prosim poslat to demo? Mam pouze D5
soukromy mail: mail(zv)votavasw.com
> Cize FB nemas vobec spusteny? Mas iba embeded verziu a vsetko slape? Ako
to
> teda spustas?
>
> V D6 v adresari Demos\DB\IBX\Admin je demo na zalohovanie ktore ide aj na
> embeded verzii.
> Predpokladam, ze BackStore zo stranky www.seko.sk je pisani podla toho
> dema.
>
> Stano
>
>
> To je divny - nam aplikacni backup chodi i na embeded systemech (1.5) -
> aspon si zadny zakaznik nestezoval, ze by to neslo.. :-)
>
> JR
>
>
>
>fb embedded 1.5 backup
[*] mivedelphi(zv)seznam(tec)cz - 17.12.2004 14:28:16
Nie, nie je pisany podla ziadneho dema. Ani neviem, ze take demo
existuje. BackStore pouziva komponenty TIBBackupService a
TIBRestoreService. Funguju spolahlivo aj na embedded verzii FB.
milos
> V D6 v adresari Demos\DB\IBX\Admin je demo na zalohovanie ktore ide aj na
> embeded verzii.
> Predpokladam, ze BackStore zo stranky www.seko.sk je pisani podla toho
> dema.
primi pristup na PORT
[*] jan_rizek(zv)centrum(tec)cz - 17.12.2004 12:18:07
No mi tam mame win XP - tak treba je zakopany pes v tech XP-ckach..> Na W2K ho pouzivam prakticky denne. Bezne s tim pak funguji i stare DOSove
> aplikace, kteri chodi primo na paralelni port a z Delphi taky bez problemu.
> Vykon dll
[*] Jiri Baudys <konference(zv)baudys.name> - 17.12.2004 09:03:51
DD,
netestoval jste nekdo, jaky ma vliv na vykon aplikace ma migrace jejich
casti do dll knihovny ?
diky
jirka
Zadokovani okna na plose
[*] likeapear <likeapear(zv)centrum(tec)cz> - 17.12.2004 10:45:59
Ahoj,
potreboval bych vedet jak prichytit (zadokovat) okno na plochu Windows k okraji obrazovky tak, aby se okna ostatnich aplikaci maximalizovala na zbyvajici plochu. Zkratka neco jako panely, ktere jdou pridat na plochu z lokalniho menu pruhu uloh. Snad mi rozumite...
Diky
likeapear ^_^
Jak na napovedu
[*] Petr Vetesnik <vetesnik(zv)gmail(tec)com> - 17.12.2004 11:54:05
Ahoj vsem,
mam nasledujici problem.
Mam dva stejne se jmenujici soubory 'napoveda.chm', ktere ale lezi v
jine adresarove strukture. Potrebne tema vyvolam pomoci
HH_KEYWORD_LOOKUP. Az sem je to vse OK. Pokud ale chci stejne klicove
slovo vyvolat z druheho souboru. Zavola se mi odkaz na puvodni tema z
prvne volaneho souboru.
Pri restaru aplikace se sice vyvola tema druheho souboru, ale zase se
nedostanu do prvniho. UF.
Nema nekdo nahodou s timto problemem zkusenosti?
Diky Petr Vetesnik
primi pristup na PORT
[*] delphin(zv)post(tec)cz - 17.12.2004 09:41:54
> Mam dojem, ze se to tu jiz probiralo. Ale jak mohu zapisovat primo na
porty? Jake komponenty (unity) jsou na to nejlepsi?
>
> Zajima me to zvlaste pro Win XP (2000). "Writeln('lpt1' , x)" v techto
systemech nefunguje tak, jak by melo.
Je treba nainstalovat http://www.hw(tec)cz/software/userport/userport.html
primi pristup na PORT
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 17.12.2004 10:39:58
Ano ja vim, mi to delame stejne :-) Zajimal me primy pristup na port.
>> From: Jan Rizek [mailto:jan_rizek(zv)centrum(tec)cz]
>> Sent: Friday, December 17, 2004 8:22 AM
>>
>> Mam dojem, ze se to tu jiz probiralo. Ale jak mohu zapisovat
>> primo na porty? Jake komponenty (unity) jsou na to nejlepsi?
>
> Zkus hledat RAWPrint. Tiskneme tak znakove na W98, W2k, WXP.
> --
> S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
> [mailto:horky(zv)cominn(tec)cz]
>
>
>
primi pristup na PORT
[*] horky(zv)cominn(tec)cz - 17.12.2004 10:13:56
> From: Jan Rizek [mailto:jan_rizek(zv)centrum(tec)cz]
> Sent: Friday, December 17, 2004 8:22 AM
>
> Mam dojem, ze se to tu jiz probiralo. Ale jak mohu zapisovat
> primo na porty? Jake komponenty (unity) jsou na to nejlepsi?
Zkus hledat RAWPrint. Tiskneme tak znakove na W98, W2k, WXP.
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
primi pristup na PORT
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 17.12.2004 10:45:59
Zdravim,
Tak tenhle programek jsme zkouseli a moc jsme neuspeli. Mame najeky starsi
program v pascalu, ktery na ty porty pristupuje primo. Na win 98 fungoval -
no problema, ale na win XP uz to nechodi. Jedna se o paralelni port.
JR
>> Mam dojem, ze se to tu jiz probiralo. Ale jak mohu zapisovat primo na
> porty? Jake komponenty (unity) jsou na to nejlepsi?
>>
>> Zajima me to zvlaste pro Win XP (2000). "Writeln('lpt1' , x)" v techto
> systemech nefunguje tak, jak by melo.
>
> Je treba nainstalovat http://www.hw(tec)cz/software/userport/userport.html
>
>
>
> primi pristup na PORT
[*] delphin(zv)post(tec)cz - 17.12.2004 10:54:00
> Tak tenhle programek jsme zkouseli a moc jsme neuspeli. Mame najeky
starsi
> program v pascalu, ktery na ty porty pristupuje primo. Na win 98
fungoval -
> no problema, ale na win XP uz to nechodi. Jedna se o paralelni port.
Na W2K ho pouzivam prakticky denne. Bezne s tim pak funguji i stare DOSove
aplikace, kteri chodi primo na paralelni port a z Delphi taky bez problemu.
>
> >> Mam dojem, ze se to tu jiz probiralo. Ale jak mohu zapisovat primo na
> > porty? Jake komponenty (unity) jsou na to nejlepsi?
> >>
> >> Zajima me to zvlaste pro Win XP (2000). "Writeln('lpt1' , x)" v techto
> > systemech nefunguje tak, jak by melo.
> >
> > Je treba nainstalovat http://www.hw(tec)cz/software/userport/userport.html
> >
> >
> >
> >
> >
>
>
>Vykon dll
[*] delphin(zv)post(tec)cz - 17.12.2004 09:39:54
> netestoval jste nekdo, jaky ma vliv na vykon aplikace ma migrace jejich
> casti do dll knihovny ?
Na vykon to zadny vliv nema.
fb embedded 1.5 backup
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 17.12.2004 08:33:47
To je divny - nam aplikacni backup chodi i na embeded systemech (1.5) -
aspon si zadny zakaznik nestezoval, ze by to neslo.. :-)
JR
----- Original Message -----
From: "votavaSW" <mail(zv)votavasw.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, December 16, 2004 6:14 PM
Subject: Re: fb embedded 1.5 backup
> potrebuji mit zalohovani ve sve aplikaci, Super server pomoci gbak jde,
> embedded nikoli, myslel jsem, zda neni pro embedd. napr. nejaky zvlastni
> parametr, gbak spustim takto:
> ...
> FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
> with StartupInfo do begin
> cb:=SizeOf (TStartupInfo);
> dwFlags:=STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
> if aHide then wShowWindow:=SW_HIDE
> else wShowWindow:=SW_SHOWNORMAL;
> end;
> Result:=CreateProcess (nil,PChar(aCmdLine), nil, nil, False,
> NORMAL_PRIORITY_CLASS, nil, nil,
> StartupInfo,ProcessInfo);
> .....
>
> > A skusal si program BackStore zo stranky www.seko.sk ?
> > Mne funguje aj na embedded verzii FB.
> >
> > milos
> >
> > > dobry den,
> > > muzete mi prosim poradit, jak zalohovat databazi, na kterou jsem
> pripojen
> > > pomoci serveru emb.
> > > Zkousim to pomoci gbak, ale nejde to.
> > > s pozdravem Votava
> > > w2k D5Pro
> >
> >
> >
> >
> >
>
>
>
>Odchyceni maximalizace
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 17.12.2004 07:35:42
Ahoj,
zkus tohle
procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
Petr
primi pristup na PORT
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 17.12.2004 08:21:45
Vsechny zdravim,
Mam dojem, ze se to tu jiz probiralo. Ale jak mohu zapisovat primo na porty? Jake komponenty (unity) jsou na to nejlepsi?
Zajima me to zvlaste pro Win XP (2000). "Writeln('lpt1' , x)" v techto systemech nefunguje tak, jak by melo.
JR
Odchyceni maximalizace
[*] Petr <potuzacek(zv)volny(tec)cz> - 16.12.2004 22:07:03
Ahoj vsem,
uz to tu bylo asi 1000x, ale zrejme neco delam spatne.
Potrebuju pri obnoveni minimalizovaneho formu aplikace z panelu
reagovat na jeho maximalizaci. Nasledujici mi nefunguje.
Reaguju na spravnou zpravu ? Zkousel
jsem i Wm_Size. Jako reakci jsem na zkousku zvolil
obycejny beep(), pote ukonceni aplikace, ale
bezvysledne.
Uz jsem preindexoval cely svuj slovnik
obhroublych vyrazu a proto dekuju za radu.
Petr. ( D3,
Win32_Win,Win32_NT)
private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand);
message Wm_SysCommand;
.
.
.
procedure TForm1.WMSyscommand(var Msg: TWmSysCommand);
begin
case (msg.CmdType and $FFF0) of
SC_MAXIMIZE : begin
beep();
application.terminate { at je vyslede
dobre videt a slyset :-)) }
end;
SC_RESTORE : begin
beep();
application.terminate;
end;
end;
inherited;
end;
{ nebo }
private
{ Private declarations }
procedure wmSysCommand(var Msg: TMessage); message wm_SYSCOMMAND;
.
.
.
procedure TForm1.wmSysCommand(var Msg: TMessage);
begin
inherited;
if Msg.wparam = sc_maximize then
begin
beep();
application.terminate;
end;
end;
Seriova komunikace s Async Pro
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 16.12.2004 19:04:50
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lukas Gebauer
> Sent: Sunday, December 12, 2004 6:55 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Seriova komunikace s Async Pro
>
> Podivej se do toho obsluzneho threadu... hned jak se pres
> Synchronize vola ta obsluzna funkce v hlavnim threadu,
> nasleduje volani metody SendString Synaseru. Staci to zakomentovat.
Ne, to neni ono. Ja vim, jak mam se snimacem komunikovat, takze jsem si to
upravil a zakomponoval do meho programu.
Az se trochu otrepu ze skoleni, zkusim to jeste jinak, a pak se pripadne
ozvu.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Globalni ukazatel jazyka klavesnice
[*] konference(zv)sales(tec)cz - 16.12.2004 18:48:49
On Behalf Of Petr Vones
> From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> > Ahoj vespolek, nemate nahodou nekdo navod, jak odchytit
> (globalne, pro cely
> > system) momentalne nastaveny jazyk klavesnice? Jde mi o
> totez, co je napsano
> > v "panelu jazyku", pokud je zobrazen. D5 Pro, WinXP Pro.
>
> Pouze tak, ze si vytvoris DLL kde bude implementace
> systemoveho "hooku" na
> zpracovani zprav. Podobne to delal i indikator ve Windows.
>
> Petr Vones
Ahoj,
Nestacilo by tohle?
function LoadKeyb: string;
var
CurLang: array[0..2] of Char;
begin
GetLocaleInfo(LOWORD(GetKeyboardLayout(0)), LOCALE_SENGLANGUAGE,
CurLang, 2);
Result := UpperCase(Trim(CurLang));
end;dos a fuprc DCU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 16.12.2004 18:44:48
Tam byvaji prace se soubory + dos specifik :).
Koukni se do dokumentace k BP7.
Jeste mne napada, ze Free Pascal by mohl byt resenim
(umi preklad do DOS protected modu), takze by tam meli
byt zdrojaky d DOS unit.
Slavek
PS: seznam procedur z DOS unit BP7: DiskFree � Func � Returns the number of free bytes of the specified
� � disk drive.
DiskSize � Func � Returns the total size, in bytes, of specified
disk
� � drive.
DosExitCode � Func � Returns the exit code of a subprocess.
DosVersion � Func � Returns the DOS version number.
EnvCount � Func � Returns the number of strings contained in the
Dos
� � evironment.
EnvStr � Func � Returns a specified environment string.
Exec � Proc � Executes a specified program with a specified
command
� � line.
FExpand � Func � Expands a file name into a fully-qualified file
name.
FindFirst � Proc � Searches the specified directory for the matching
� � file.
FindNext � Proc � Searches for another FindFirst file.
FSearch � Func � Searches for a file.
FSplit � Func � Splits a file name into its three components.
GetCBreak � Proc � Returns the state of Ctrl-Break checking in DOS.
GetDate � Proc � Returns the current date set in the operating
system.
GetEnv � Func � Returns the value of a specified environment
variable.
GetFAttr � Proc � Returns the attributes of a file.
GetFTime � Proc � Returns the date and time a file was last
written.
GetIntVec � Proc � Returns the address stored in a specified
interrupt
� � vector.
GetTime � Proc � Returns the current time set in the operating
system.
GetVerify � Proc � Returns the state of the verify flag in DOS.
Intr � Proc � Executes a specified software interrupt.
Keep � Proc � Keep (or Terminate Stay Resident) terminates the
� � program and makes it stay in memory.
MsDos � Proc � Executes a DOS function call.
PackTime � Proc � Converts a TDateTime record.
SetCBreak � Proc � Sets the state of Ctrl-Break checking in DOS.
SetDate � Proc � Sets the current date in the operating system.
SetFAttr � Proc � Sets the attributes of a file.
SetFTime � Proc � Sets the date and time a file was last written.
SetIntVec � Proc � Sets a specified interrupt vector to a specified
� � address.
SetTime � Proc � Sets the current time in the operating system.
SetVerify � Proc � Sets the state of the verify flag in DOS.
SwapVectors � Proc � Swaps the SaveIntXX pointers in the System unit
with
� � the current vectors.
UnpackTime � Proc � Converts a Longint to a record.
> > A jaky je problem si napsat tuto knihovnu, nebo vytvorit
> jeji emulaci
> > ?
>
> > Slavek
>
>
>
> Protoze nemam naprosto zadne potuchy, co v ni vlastne ma byt.dos a fuprc DCU
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 16.12.2004 18:34:47
Dobry den,
16. prosince 2004, 17:44:44, napsal jste:
>> fuprc.dcu jsem jiz zjistil, ze je v podstate zbytecna,
>> protoze jen zkracuje jednu fci a tu mohu napsat normalne. Ale
>> dos.dcu je hodne dulezita.
> A jaky je problem si napsat tuto knihovnu, nebo vytvorit jeji emulaci ?
> Slavek
Protoze nemam naprosto zadne potuchy, co v ni vlastne ma byt.
--
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
fb embedded 1.5 backup
[*] votavaSW <mail(zv)votavasw(tec)com> - 16.12.2004 18:14:46
potrebuji mit zalohovani ve sve aplikaci, Super server pomoci gbak jde,
embedded nikoli, myslel jsem, zda neni pro embedd. napr. nejaky zvlastni
parametr, gbak spustim takto:
....
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do begin
cb:=SizeOf (TStartupInfo);
dwFlags:=STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
if aHide then wShowWindow:=SW_HIDE
else wShowWindow:=SW_SHOWNORMAL;
end;
Result:=CreateProcess (nil,PChar(aCmdLine), nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil,
StartupInfo,ProcessInfo);
.....
> A skusal si program BackStore zo stranky www.seko.sk ?
> Mne funguje aj na embedded verzii FB.
>
> milos
>
> > dobry den,
> > muzete mi prosim poradit, jak zalohovat databazi, na kterou jsem
pripojen
> > pomoci serveru emb.
> > Zkousim to pomoci gbak, ale nejde to.
> > s pozdravem Votava
> > w2k D5Pro
>
>
>
>dos a fuprc DCU
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 16.12.2004 17:44:44
> fuprc.dcu jsem jiz zjistil, ze je v podstate zbytecna,
> protoze jen zkracuje jednu fci a tu mohu napsat normalne. Ale
> dos.dcu je hodne dulezita.
A jaky je problem si napsat tuto knihovnu, nebo vytvorit jeji emulaci ?
Slavek
Pracovni skupina PC ve W XP
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 16.12.2004 17:42:43
Mozna ze je to tohle, nasel jsem to v MSDN:
The NetGroupSetInfo function sets the parameters of a global group in the
security database, which is the security accounts manager (SAM) database or,
in the case of domain controllers, the Active Directory.
NET_API_STATUS NetGroupSetInfo(
LPCWSTR servername,
LPCWSTR groupname,
DWORD level,
LPBYTE buf,
LPDWORD parm_err
);
Kdyz tak napis na soukromy mail, muzu kus toho helpu poslat. Ale rychle, cca
za 45 minut odchazim a pak budu az v pondeli.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
> Uz jsem se nato kdysi ptal, ale nikdo mi zatim nedokazal poradit. Po mnoha
> nezdarenych pokusech to zkousim znovu.
>
> Potrebuji pomoci sveho programu v D5 zmenit pracovni skupinu (ne domenu)
> pocitace s Windows XP. Netusim vsak pomoci jake funkce se to realizuje.
>
> Na netu jsem nic nenasel. Pritom to musi byt jednoduche. Jen jak se ta fce
> jmenuje.
Pracovni skupina PC ve W XP
[*] delphi(zv)spst(tec)cz - 16.12.2004 16:18:37
Dobry den.
Uz jsem se nato kdysi ptal, ale nikdo mi zatim nedokazal poradit. Po mnoha
nezdarenych pokusech to zkousim znovu.
Potrebuji pomoci sveho programu v D5 zmenit pracovni skupinu (ne domenu)
pocitace s Windows XP. Netusim vsak pomoci jake funkce se to realizuje.
Na netu jsem nic nenasel. Pritom to musi byt jednoduche. Jen jak se ta fce
jmenuje.
Predem moc dekuji
Jirka
dos a fuprc DCU
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 16.12.2004 16:24:38
Dobry den,
16. prosince 2004, 16:16:37, napsal jste:
> Google ?
>> nevite nekdo, kde by se daly najit soubory dos.dcu a fuprc.dcu?
fuprc.dcu jsem jiz zjistil, ze je v podstate zbytecna, protoze jen
zkracuje jednu fci a tu mohu napsat normalne. Ale dos.dcu je hodne
dulezita.
Na googlu jsem to zkousel, ale nasel jsem jen konferencni dotazy zoufalcu
jako ja. Byl tam sice dos.pas ale obsahuje neco jineho. Problem je, ze
APP je puvodne psana v Turbo Pascalu. Obejit to, by znamenalo prapsat
celou APP a to mi prijde jako hloupost.
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
dos a fuprc DCU
[*] David Kraina <dkx(zv)seznam(tec)cz> - 16.12.2004 16:16:37
Google ?
> nevite nekdo, kde by se daly najit soubory dos.dcu a fuprc.dcu?
dos a fuprc DCU
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 16.12.2004 15:22:33
Zdravim vsechny,
nevite nekdo, kde by se daly najit soubory dos.dcu a fuprc.dcu?
Zdedil jsem jednu malou aplikaci, ktera je pouziva a vyzaduje, ale
byla by skoda ji nevyuzit.
S pozdravem,
Petr Cafourek
petr.cafourek.d7(zv)seznam(tec)cz
D6 Pro, WinXP CZ SP
Pomaly Code completion
[*] jsdelphi(zv)creatix(tec)cz - 16.12.2004 13:52:26
To muze byt opravdu tim. Take zalezi na mnozstvi nainstalovanych komponent,
mam s tim spatne zkusenosti.
Jan Skopovy
> Subject: Re: Pomaly Code completion
>
> Ne vsechno mam na lokale. Automatic code compoletion jsem uz
> davno musel vypnout, protoze jinak bych si mohl v afeku
> rozmlatit pocitac...
>
> >Jen me ale napadlo - nemuze byt problem s tim, ze nektere unity se
> >nachazeji na siti, resp. na pomale siti?MasterDetail select
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 16.12.2004 13:06:22
A co treba Virtual TreeView ???
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Vobornik
> Sent: Thursday, December 16, 2004 1:00 PM
>
> > Tohle bych rozhodne neresil na urovni SQL dotazu. Ten vraci
> > presne to co ma a tohle je otazka vizualizace dat. Zkus se
> > radsi poohlednout po poradnych komponentach (napr.
> > www.devexpress.com).
> >
> Znam, ale neni neco free ?
MasterDetail select
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 16.12.2004 13:18:24
Mno, pisu to z hlavy
Select distinct ID,0,'' as nazev from Master --generuji se prazdne radky pro kazdou skupinu
UNION ALL
Select distinct ID,1,Nazev from Master -- generuji se radky s nazvem skupiny
UNION ALL
Select ID,2,Detail from Detail -- generuji se radky s nazvem detailu
> -----Original Message-----
> From: Petr Vobornik [mailto:vobornik(zv)apel(tec)cz]
> Sent: Thursday, December 16, 2004 1:04 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: MasterDetail select
>
>
> > Ja myslim ze to nevadi, v tom pripade bych pouzil trikrat
> > UNION 1.dotaz - cislo_skupiny,0, prazdny_text 2.dotaz -
> > cislo_skupiny,1, hlavicka_skupiny 3.dotaz - cislo_skupiny,2,
> > nazev_detailu
> >
> > Potom bych to setridil podle Cislo_Skupiny,Sloupec_2,Nazev
> >
> > Jirka
>
> Nejsem zadny velky expert na SQL, nebyl by priklad.
>
> Predem moc dekuji.
> Petr
>
>
>
>
>
> MasterDetail select
[*] Petr Vobornik <vobornik(zv)apel(tec)cz> - 16.12.2004 13:04:22
> Ja myslim ze to nevadi, v tom pripade bych pouzil trikrat
> UNION 1.dotaz - cislo_skupiny,0, prazdny_text 2.dotaz -
> cislo_skupiny,1, hlavicka_skupiny 3.dotaz - cislo_skupiny,2,
> nazev_detailu
>
> Potom bych to setridil podle Cislo_Skupiny,Sloupec_2,Nazev
>
> Jirka
Nejsem zadny velky expert na SQL, nebyl by priklad.
Predem moc dekuji.
Petr
MasterDetail select
[*] Petr Vobornik <vobornik(zv)apel(tec)cz> - 16.12.2004 13:00:22
> Tohle bych rozhodne neresil na urovni SQL dotazu. Ten vraci
> presne to co ma a tohle je otazka vizualizace dat. Zkus se
> radsi poohlednout po poradnych komponentach (napr.
> www.devexpress.com).
>
> S pozdravem
>
> Milan Tomes
Znam, ale neni neco free ?
Petr
Pomaly Code completion
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 16.12.2004 12:26:19
Ne vsechno mam na lokale. Automatic code compoletion jsem uz davno musel
vypnout, protoze jinak bych si mohl v afeku rozmlatit pocitac...
>Jen me ale napadlo - nemuze byt problem s tim, ze nektere unity se
>nachazeji na siti, resp. na pomale siti?
>David Lebeda
MasterDetail select
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 16.12.2004 12:26:19
Ja myslim ze to nevadi, v tom pripade bych pouzil trikrat UNION
1.dotaz - cislo_skupiny,0, prazdny_text
2.dotaz - cislo_skupiny,1, hlavicka_skupiny
3.dotaz - cislo_skupiny,2, nazev_detailu
Potom bych to setridil podle Cislo_Skupiny,Sloupec_2,Nazev
Jirka
> -----Original Message-----
> From: Petr Vobornik [mailto:vobornik(zv)apel(tec)cz]
> Sent: Thursday, December 16, 2004 12:18 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: MasterDetail select
>
>
> > Zkusil bych pouzit dva dotazy sloucene pres UNION. V prvnim
> > by byl seznam master zaznamu + nejake id, ktere by
> > identifikovalo, ze se jedna o master a ve druhem dotazu bude
> > seznam Slave zaznamu. To cele setridis podle Master-Detail ID
> > a podle toho ID, ktere je pouze v tom prvnim dotazu (aby byl
> > master zaznam vzdy prvni).
> >
> > Jirka
>
> Ale problem je v tom, ze obe tabulky maji ruzne sloupce a ja
> potrebuji jednotlive vysledky v tabulce mit oddeleny prazdnym radkem.
>
> Ovoce
> Banany Vaha Objednano Dodano ......
> .....
> .....
> <prazdny radek>
> Zelenina
> Okurky Vaha Objednano Dodano .....
> ......
> ......
>
> Petr
>
>
>
>
>
> MasterDetail select
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 16.12.2004 12:22:18
Tohle bych rozhodne neresil na urovni SQL dotazu. Ten vraci presne to co ma
a tohle je otazka vizualizace dat. Zkus se radsi poohlednout po poradnych
komponentach (napr. www.devexpress.com).
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Vobornik
> Sent: Thursday, December 16, 2004 12:18 PM
>
> > Zkusil bych pouzit dva dotazy sloucene pres UNION. V prvnim
> > by byl seznam master zaznamu + nejake id, ktere by
> > identifikovalo, ze se jedna o master a ve druhem dotazu bude
> > seznam Slave zaznamu. To cele setridis podle Master-Detail ID
> > a podle toho ID, ktere je pouze v tom prvnim dotazu (aby byl
> > master zaznam vzdy prvni).
>
> Ale problem je v tom, ze obe tabulky maji ruzne sloupce a ja potrebuji
> jednotlive vysledky v tabulce mit oddeleny prazdnym radkem.
>
> Ovoce
> Banany Vaha Objednano Dodano ......
> .....
> .....
> <prazdny radek>
> Zelenina
> Okurky Vaha Objednano Dodano .....
MasterDetail select
[*] Petr Vobornik <vobornik(zv)apel(tec)cz> - 16.12.2004 12:18:18
> Zkusil bych pouzit dva dotazy sloucene pres UNION. V prvnim
> by byl seznam master zaznamu + nejake id, ktere by
> identifikovalo, ze se jedna o master a ve druhem dotazu bude
> seznam Slave zaznamu. To cele setridis podle Master-Detail ID
> a podle toho ID, ktere je pouze v tom prvnim dotazu (aby byl
> master zaznam vzdy prvni).
>
> Jirka
Ale problem je v tom, ze obe tabulky maji ruzne sloupce a ja potrebuji
jednotlive vysledky v tabulce mit oddeleny prazdnym radkem.
Ovoce
Banany Vaha Objednano Dodano ......
.....
.....
<prazdny radek>
Zelenina
Okurky Vaha Objednano Dodano .....
......
......
Petr
Pomaly Code completion
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 16.12.2004 12:00:16
> Nevite, zda lze nejak uzrychlit Code Completion v IDE? Kombinace Ctrl+Space
> pouzivam prakticky jen kdyz si zrovna nemuzu vzpomenout jak se ktera metoda
> nebo prvek struktury jmenuje. Bohuzel to u me zabere pul minuty
Ahoj,
u sebe pozoruji dlouhou prodlevu jen pri prvnim pouziti Code
Completion, pak uz to jde rychle.
Jen me ale napadlo - nemuze byt problem s tim, ze nektere unity se
nachazeji na siti, resp. na pomale siti?
David Lebeda
fb embedded 1.5 backup
[*] mivedelphi(zv)seznam(tec)cz - 16.12.2004 11:22:14
A skusal si program BackStore zo stranky www.seko.sk ?
Mne funguje aj na embedded verzii FB.
milos
> dobry den,
> muzete mi prosim poradit, jak zalohovat databazi, na kterou jsem pripojen
> pomoci serveru emb.
> Zkousim to pomoci gbak, ale nejde to.
> s pozdravem Votava
> w2k D5Pro
Kylix: nefunkcni editor
[*] Petr Hlozek <petr_hl(zv)mrp(tec)cz> - 16.12.2004 11:16:13
Dobry den,
zkousel jste pred spustenim Kylixe zadat neco jako LD_ASSUME_KERNEL=2.2.5 ?
Vice se doctete na http://unvclx.sourceforge.net v casti Information
Petr
Dne st 15. prosince 2004 22:19 cermiforum(zv)centrum(tec)cz napsal(a):
> Nainstaloval jsem si Kylix 3 Open Edition. Uz od zacatku mi nefunguje Code
> Editor - tam kde by mel byt zdrojak je jen bila plocha a pokud na ni kliknu
> mysi (levy i pravy tlacitko) napise to error Division by zero. Nesetkal
> jste se uz nekdy s tim nekdo??
>
> Mandrake Linux 9.2
> kernel 2.4.22-10mdk
> KDE 3.1.3
--
web : www.webpark(tec)cz/ok2cqr
mail : ok2cqr at post dot cz; petr_hl at mrp dot cz
ICQ : 165536992
Pomaly Code completion
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 16.12.2004 11:06:12
Ahoj *,
Nevite, zda lze nejak uzrychlit Code Completion v IDE? Kombinace Ctrl+Space
pouzivam prakticky jen kdyz si zrovna nemuzu vzpomenout jak se ktera metoda
nebo prvek struktury jmenuje. Bohuzel to u me zabere pul minuty a to uz mam
rychlejsi si projit zdrojaky sam. Nemuzu pochopit proc to tak dlouho trva.
Nemate nekdo tip jak toto zrychlit? Opravdu nepotrebuju aby IDE prochazelo
vsechny zdrojaky VCL, stacilo by mi Code Completion v mem kodu.
BCB6
Dik.
XP a COM
[*] David Hankovec <david.hankovec(zv)centrum(tec)cz> - 16.12.2004 11:00:12
Ano, to jiste ano, pokud Vas netlaci cas a mate moznost si s tim hrat. A pokud se v tom vyznate a znate API. Pokud ale potrebujete jen neco cas od casu, a zabyvate se jinymi vecmi (programovani aplikaci pro jednocipy a podobne) pak rad sahnete po hotove veci. Je to neco podobneho, jako kdyz pro priklad nekdo bude chtit knihovnu pro jednocip, ktera umi psat na dvouradkovy displej. Bud si ji muze stahnout, a nebo pokud mate cas a naladu se s tim ladit, muzete si to napsat, odladit casovaci rutiny a podobne.
A protoze v moji aplikaci potrebuji komunikovat s aplikaci venku pres RS232, a nemam cas ladit komunikaci pod API (a musim se ucit jine veci nez API), musim sahnout po hotove veci.
Ale i pro ostatni, komponenta od p. Vonese je funkcni pod W2K i pod XP. Ted jsem to testoval. Timto mu dekuji za to, ze neco takoveho vytvoril.
David Hankovec
DH servis
http://home.tiscali(tec)cz/dh_servis
______________________________________________________________
> Dobry den.
> Odpovidam ale tosku z "jneho soudku " protoze tento problem - nefunkcnost komponent - lze podle mne resit jednoduse a to nastudovanim api funkci windows pro praci se soubory. Neni to nic sloziteho - pak staci vytvorit jedinou Unit a vse funguje bez ohledu na OS.
> MasterDetail select
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 16.12.2004 10:48:11
Zkusil bych pouzit dva dotazy sloucene pres UNION. V prvnim by byl seznam master zaznamu + nejake id, ktere by identifikovalo, ze se jedna o master a ve druhem dotazu bude seznam Slave zaznamu. To cele setridis podle Master-Detail ID a podle toho ID, ktere je pouze v tom prvnim dotazu (aby byl master zaznam vzdy prvni).
Jirka
> -----Original Message-----
> From: Petr Vobornik [mailto:vobornik(zv)apel(tec)cz]
> Sent: Thursday, December 16, 2004 10:38 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: MasterDetail select
>
>
> Zdravim,
>
> mam master tabulku, v ni napr. polozky "Ovoce,Zelenina,...",
> k tomu detail tabulku a vni "Banan,jablko,mrkev,okurka".
> Umim to do DBGridu setridit:
>
> Banan
> Jablko
> Mrkev
> Okurka
>
> Ja, ale tam potrebuji jeste dostat polozky master:
>
> Ovoce
> Banan
> Jablko
>
> Zelenina
> Mrkev
> Okurka
>
> Umim to udelat v Qreportu pro tisk, ale jak na to v DBGridu.
> Lze to vubec nejak udelat ?
>
> WinXP, Delphi6, ADO
>
> Diky Petr
>
>
>
>
>
> XP a COM
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 16.12.2004 10:36:09
> Dobry den.
> Odpovidam ale tosku z "jneho soudku " protoze tento problem -
> nefunkcnost komponent - lze podle mne resit jednoduse a to
> nastudovanim api funkci windows pro praci se soubory. Neni to nic
> sloziteho - pak staci vytvorit jedinou Unit a vse funguje bez ohledu
> na OS.
Neni lepsi si usetrit tuto praci a pouzit treba Synaser, ktery na XP
funguje? (Synaser je jen pomerne male, ale prijemne zabaleni API
funkci, a navic funguje i pro Linux... nejsou to zadne obludne
komponenty.)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Synapse a Connection Timed out
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 16.12.2004 10:40:10
> Vse by bylo OK az na to, ze TCP.Free hodi chybu 10060 (timed out).
> Kdyz si ji ale chci krokovat, hodi chybu 10054 (peer reset, kterou ale
> ignoruji).
To bude patrne dusledek korektniho uzavirani TCP socketu, a pokud sis
nezapnul exceptions, nemuzes mit sebemensi problem. Kazdopadne,
pouzivani exceptions v Synapsi silne nedoporucuji!
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.MasterDetail select
[*] Petr Vobornik <vobornik(zv)apel(tec)cz> - 16.12.2004 10:38:10
Zdravim,
mam master tabulku, v ni napr. polozky "Ovoce,Zelenina,...", k tomu detail
tabulku a vni "Banan,jablko,mrkev,okurka".
Umim to do DBGridu setridit:
Banan
Jablko
Mrkev
Okurka
Ja, ale tam potrebuji jeste dostat polozky master:
Ovoce
Banan
Jablko
Zelenina
Mrkev
Okurka
Umim to udelat v Qreportu pro tisk, ale jak na to v DBGridu. Lze to vubec
nejak udelat ?
WinXP, Delphi6, ADO
Diky Petr
XP a COMM doplneni
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 16.12.2004 10:34:09
Pouzivam AsyncFree pro komunikaci se zarizenim GPSLogger a to i na XP a
funguje to bez problemu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz>
> otazku asi
> > pro pana Vonese - funguje Vase AsyncFree i pod XP ? Velmi dekuji za
> odpoved.
>
> To bohuzel nevim, protoze jsem s tim uz nekolik let nic nedelal.
>
Synapse a Connection Timed out
[*] little_bobes(zv)centrum(tec)cz - 16.12.2004 08:48:01
Zdravim,
vytvoril jsem si TCP klient\server program, pricemz jsem si prizpusobil
server na zaklade dema httpserv.
Na klientovi si pri potrebe komunikace vytvorim TTCPBlockSocket, zaslu
nejake veci, nejake zase prijmu a zrusim objekt TCP.
Vse by bylo OK az na to, ze TCP.Free hodi chybu 10060 (timed out).
Kdyz si ji ale chci krokovat, hodi chybu 10054 (peer reset, kterou ale
ignoruji).
Vyplyva z toho, ze si musim pred TCP.Free nastavit mensi Sleep?
Kdyz napisu
...
Sleep(100);
TCP.Free;
...
tak to funguje OK.
Predem dekuji
Bob (D4 c/s, FB1.5, Synapse rel.34)
BDE kontra PDA
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 16.12.2004 08:42:01
Tohle by spolu souviset nemelo. Jedine, co mne napada, jestli se pomoci ActiveSync nesychronizuje jeste nejaka jina aplikace
Mame tutez konfiguraci a funguje to bez problemu...
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Vaclav Kucera
> Subject: BDE kontra PDA
>
> Dobry den,
>
> mam nasledujici problem - nainstaloval jsem na pocitac SW pro
> synchronizaci iPAQu s Outlookem a najednou mi prestalo
> fungovat BDE pripojeni na MS SQL server, co na tom pocitaci
> taky bezi. Kdyz se pripojim k Internetu, tak to beha v
> pohode, ale kdyz nejsem pripojen, tak to nejde.
>
> Nevite nekdo, co s tim?
>
> Mam BDE (Admin 5.1), MS SQL 2000 server a ActiveSync 3.7.1.
>
BDE kontra PDA
[*] Vaclav Kucera <frost(zv)centrum(tec)cz> - 16.12.2004 08:28:00
Dobry den,
mam nasledujici problem - nainstaloval jsem na pocitac SW pro synchronizaci
iPAQu s Outlookem a najednou mi prestalo fungovat BDE pripojeni na MS SQL
server, co na tom pocitaci taky bezi. Kdyz se pripojim k Internetu, tak to
beha v pohode, ale kdyz nejsem pripojen, tak to nejde.
Nevite nekdo, co s tim?
Mam BDE (Admin 5.1), MS SQL 2000 server a ActiveSync 3.7.1.
Predem diky, Vasek Kucera
XP a COM
[*] koukal(zv)petrkoukal(tec)cz - 16.12.2004 08:05:56
> Dobry den, potreboval bych radu. Pouzil jsem komponentu pro komunikaci pres COM od VarianSoftware (asi notoricky znama Async32) a zjistil jsem, ze mi pri otevirani portu pod XP stale hazi chyby. Nestalo se Vam nekomu totez ? Asi bych presel na AsyncFree (pan Vones - snad pod XP funguje), bohuzel jsem na ni narazil az dele, a je to vse o prepisovani dosti radek kodu. Ladim to na W98, nyni jsem to vyzkousel na XP a nestacil jsem se divit. Zkousel jsem to zatim na 2 strojich, oba stejne.
>
> Diky za kazdou radu.
>
> David Hankovec
>
>
Dobry den.
Odpovidam ale tosku z "jneho soudku " protoze tento problem - nefunkcnost komponent - lze podle mne resit jednoduse a to nastudovanim api funkci windows pro praci se soubory. Neni to nic sloziteho - pak staci vytvorit jedinou Unit a vse funguje bez ohledu na OS.
Priklad :
Function InitCOm (Acom : Pchar; Var HCom : THandle; Var Comstate : Word) : Boolean;
DCB : TDCB;
Begin
Try
Result ;= False;
{Inicializace}
HCom := CreateFile (Acom, {Acom musi byt ve tvaru COMx }
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
Nil,
OPEN_EXISTING,
FILE_FLAG_NO_BUFFERING,
0);
{Nastaveni portu - DCB cteni }
GetCommState(HCom ,DCB);
{Pokud inicializace selze tak kocim}
If HCom = INVALID_HANDLE_VALUE Then
Begin
Comstate := Getlasterror;
Exit;
Except
Rsult := False;
End;
End;
Function DoneCom (Var HCom : THandle) : Boolean;
Begin {Ukonceni prenosu}
Try
Resut := False ;
{Ukonceni prenosu dat}
EscapeCommFunction (HCom ,CLRDTR);
{Close Handle portu}
CloseHandle (HCom );
Result := True; Except
Result := False;
End;
End; {Priklad nastaveni parametru pro prenos }
With DCB {DATA CONORL BLOCK} do
Begin
BaudRate := 9600;
ByteSize := 8;
Parity := 0;
StopBits := 0;
Flags := 4113;
XonLim := 2048;
XoffLim := 512;
XonChar := #17;
XoffChar := #19;
ErrorChar:= #0;
EofChar := #0;
EvtChar := #0;
End
{Nastaveni lse musi zapsat a to pomoci funkce }
SetCommState(HCom ,DCB);
{Cteni / zapis dat}
Var AnyArray :Array [1..255] of Char;
Size : DWord;
Begin
.....
Size := 255;
If WriteFile (HCom,Anyarray, {zapis Size dat}Size, {Bylo zapsano Size dat} Size, Nil) then
ReadFile (HCom, AnyArray ,255, Size,Nil);
....
End;
Podrobny popis funkci je v Helpu Delphi pro API Windows nebo na www.microsoft.com - MSDN Library - vcetne rady prikladu.
Priklad je pouze ilustrativni .
Petr Koukal
Kylix: nefunkcni editor
[*] cermiforum(zv)centrum(tec)cz - 15.12.2004 22:19:14
Nainstaloval jsem si Kylix 3 Open Edition. Uz od zacatku mi nefunguje Code Editor - tam kde by mel byt zdrojak je jen bila plocha a pokud na ni kliknu mysi (levy i pravy tlacitko) napise to error Division by zero. Nesetkal jste se uz nekdy s tim nekdo??
Mandrake Linux 9.2
kernel 2.4.22-10mdk
KDE 3.1.3
fb embedded 1.5 backup
[*] votavaSW <mail(zv)votavasw(tec)com> - 15.12.2004 22:01:13
dobry den,
muzete mi prosim poradit, jak zalohovat databazi, na kterou jsem pripojen
pomoci serveru emb.
Zkousim to pomoci gbak, ale nejde to.
s pozdravem Votava
w2k D5Pro
Jak vypnout monitor ?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 15.12.2004 21:51:12
Jiri Cincura wrote:
> Pavel ! wrote:
>
Jeste dodam, ze pod Win2000 a spol. nefunguje a nepodarilo semi najit jine
reseni (ne ze bych ho nejak hledal).
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Jak vypnout monitor ?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 15.12.2004 21:47:12
Pavel ! wrote:
> Ahoj, chtel jsem se zeptat, jak monitor uvest do "spankoveho rezimu", jak
> to trba dela sporic obrazovky a jak ho zase obnovit. Diky
> Pavel
procedure Uspi;
begin
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,0);
end;
procedure Probud;
begin
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,-1);
end;
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Jak vypnout monitor ?
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 15.12.2004 20:41:07
Ahoj, chtel jsem se zeptat, jak monitor uvest do "spankoveho rezimu",
jak to trba dela sporic obrazovky a jak ho zase obnovit.
Diky
Pavel
Microsoft Project v Delphi
[*] Kalhous <kalhous(zv)eu(tec)cz> - 15.12.2004 18:28:58
Nebylo by nejjednodussi proste to narvat do OLE containeru? Tam se s tim
pak daji delat i dost zajimave veci. Je to popsane i s prikladama ve vsech
tlustych knihach "Mistrovstvi v Delphi" urcite od 3 vyse. XP a COMM doplneni
[*] Petr Vones <konference(zv)petrvones(tec)net> - 15.12.2004 17:50:49
From: "David Hankovec" <david.hankovec(zv)centrum(tec)cz>
> Omlouvam se, ted pri zpetnem listovani mnozstvim prispevku jsem si vsiml, ze
> se tu neco podobneho jiz resilo nedavno, cili spise bych postavil otazku asi
> pro pana Vonese - funguje Vase AsyncFree i pod XP ? Velmi dekuji za odpoved.
To bohuzel nevim, protoze jsem s tim uz nekolik let nic nedelal.
Petr Vones