Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Objects v TStringList
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.1.2002 14:47:14
Ahoj,
chci si potvrdit nasledujici:
Mam TStringList s prirazenymi Objects. Pokud na ten stringList
zavolam Free, uvolni se radne i vsechny Objects, nebo je musim
predem zrusit sam?
A dal: objekty, o kterych mluvim, planuji jako jednoduche
recordy. Muzou to byt obycejne recordy nebo musi jit o potomky
TObject?
Diky
David Lebeda
Objects v TStringList
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.1.2002 14:53:36
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> Mam TStringList s prirazenymi Objects. Pokud na ten stringList
> zavolam Free, uvolni se radne i vsechny Objects, nebo je musim
> predem zrusit sam?
Ahoj,
neuvolni, musis je zrusit sam. K tomu si muzes napsat treba tridu
TStringObjectList
> A dal: objekty, o kterych mluvim, planuji jako jednoduche
> recordy. Muzou to byt obycejne recordy nebo musi jit o potomky
> TObject?
Objekt neni record.
Petr Vones
Prevod diakritiky
[*] Ivan Z <izernovac(zv)zoznam.sk> - 14.1.2002 14:22:28 ut
Mam text s diakritikou a potrebujem ho previest na text bez diakritiky.
Nechcem to robit rucne, ako to uz niekto urobil.
-I
Okna na paneli uloh
[*] Pavol Vakonic <vakonic(zv)tyory.sk> - 14.1.2002 15:36:02
Ahoj,
funkciou
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);
nastavim aby sa okna aplikacie ukazovali na paneli uloh.
Ako to mam ale vratit naspat do "standardneho modu" ?
Skusal som navratovu hodnotu, ktoru vracia tato funkcia, ale nepomohlo to.
Palo
SYNAPSE a chyba 10054-Connection reset by peer
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 14.1.2002 15:46:24
> pouzivam TTCPBlockSocket pro komunikaci se serverem, navazu pres
> Connect spojeni a posilam data pres RecvString/SendString, to je
> v pohode. Server ma ale tu vlastnost, ze klienty kteri jsou delsi
> dobu nez 5 minut v necinosti, odstreli. Takze na klientovi mi pri
> dalsim SendString vyskoci chyba 10054. Proto se ptam, lze nejak
> PRED odeslanim SendString zkontrolovat jestli je soket pripojeny ?
Jestli spojeni zije ci nezije lze zjistit jen tim, ze se pokusis
komunkovat. respektive pripadny test by to nemohl zjistit jinak...
lze sice zistovat, jestli spojeni bylo ukonceno korektne (canread
signalizuje true a zaroven Waitingdata = 0), nicmene pro spojeni,
ktere nebylo ukonceno korektne ti to stejne nepomuze. proto jako
univeralni a trotlzichr detekci ziveho spojeni slouzi pouze a jedine
kontrolovani LastError po send ci recv operaci.
> Samozrejme muzu testovat LastError = ... a pak davat znovu Connect
> a SendString, ale to se mi moc nelibi.
No, a jak by se ti to libilo? Pokud tvoje libustka bude
realizovatelna, tak to mozna tak udelam. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Objects v TStringList
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 14.1.2002 16:07:34
> A dal: objekty, o kterych mluvim, planuji jako jednoduche
> recordy. Muzou to byt obycejne recordy nebo musi jit o potomky
> TObject?
Mozu to byt aj recordy, a do property Objects mozes ukladat smerniky na ne,
s tym, ze potrebujes pouzit vhodny typecast, aby to kompilator stravil,
napr. takto nejako:
type
PMyData = ^TMyData;
TMyData = record
SomeData: Integer;
SomeData2: Integer;
...
end;
// ukladanie do stringlistu (alokuje pamet)
function AddStringWithMyData(Strings: TStrings; const S: string; SomeData,
SomeData2: Integer; ...): Integer;
var
P: PMyData;
begin
P := AllocMem(SizeOf(TMyData));
try
P^.SomeData := SomeData;
P^.SomeData2 := SomeData2;
...
Result := Strings.AddObject(S, TObject(P));
except
FreeMem(P);
raise;
end;
end;
// citanie zo stringlistu
function GetMyData(Strings: TStrings; Index: Integer): TMyData;
begin
Result := PMyData(Strings.Objects[Index])^;
end;
// uvolnenie pameti
procedure ClearMyData(Strings: TStrings);
var
I: Integer;
P: PMyData;
begin
for I := 0 to Strings.Count - 1 do
begin
P := PMyData(Strings.Objects[I]);
FreeMem(P);
end;
Strings.Clear;
end;
// pripadne ak potrebujes uvolnovat tie data po jednom...
procedure DeleteMyData(Strings: TStrings; Index: Integer);
var
P: PMyData;
begin
P := PMyData(Strings.Objects[Index]);
FreeMem(P);
Strings.Delete(Index);
end;
HTH
TOndrej
FB SP dostatky premennych ?
[*] Roland Turcan <rolo(zv)sedas.sk> - 14.1.2002 16:17:22
V ulozenej procedure mam pre istotu toto:
if (PRVY IS NULL) then PRVY=0;
if (DRUHY IS NULL) then DRUHY=0;
if (TRETI IS NULL) then TRETI=0;
if (STVRTY IS NULL) then STVRTY=0;
ide mi o to aby nevracal v ciselnych stlpcoch NULL ale peknu 0;
v scripte pokracujem takto:
IF ((PRVY=0) or (DRUHY=0) or (TRETI=0) or (STVRTY=0)) THEN
BEGIN
DELETE FROM TABULKA WHERE ID=:ZAZNAM;
EXIT;
END
UPDATE TABULKA SET PRVY=:PRVY, DRUHY=:DRUHY, TRETI=:TRETI, STVRTY=:STVRTY
WHERE ID=:ZAZNAM;
a zaujimave je ze do zaznamu tabulky ktory sa opravoval za zapisali nuly
alebo zaznam nebol preruseny a ukoncena procedura. Co vy na to ?
Dakujem
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0RC2, IBX4.62, Win2000Pro/CZ, Win98CZSE
Prevod diakritiky
[*] Roland Turcan <rolo(zv)sedas.sk> - 14.1.2002 16:19:30
----- Original Message -----
From: "Ivan Z" <izernovac(zv)zoznam.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, January 14, 2002 3:22 PM
Subject: Prevod diakritiky
> Mam text s diakritikou a potrebujem ho previest na text bez diakritiky.
> Nechcem to robit rucne, ako to uz niekto urobil.
>
> -I
Mozno sa ti to bude hodit takto, mozno si to upravis lebo to vracia UPPERed
string zbaveny diakritiky
function UpperCSY(StringToUpper:String):string;
var XPocet:integer;
begin
result:=StringToUpper;
for Xpocet:=1 to Length(StringToUpper) do
begin
case ord(result[XPocet]) of
138,154,140,156: result[XPocet]:=Chr(83); // S
141,157: result[XPocet]:=Chr(84); // T
142,158,143,159: result[XPocet]:=Chr(90); // Z
163,179,197,229,188,190: result[XPocet]:=Chr(76); // L
192,224,216,248: result[XPocet]:=Chr(82); // R
193,225,196,228: result[XPocet]:=Chr(65); // A
200,232: result[XPocet]:=Chr(67); // C
201,233,204,236: result[XPocet]:=Chr(69); // E
205,237: result[XPocet]:=Chr(73); // I
207,239: result[XPocet]:=Chr(68); // D
210,242: result[XPocet]:=Chr(78); // N
211,243,212,244,213,245,214,246: result[XPocet]:=Chr(79); // O
217,249,218,250,219,251,220,252: result[XPocet]:=Chr(85); // U
221,253: result[XPocet]:=Chr(89); // Y
end;
end;
result:=UpperCase(result);
end;
////////////////////////////////////////////////////////////////////////////
////
=?utf-8?B?UkU6IFByZXZvZCBkaWFrcml0aWt5?=
[*] brant(zv)dcomm(tec)cz - 14.1.2002 16:19:41
Pouzivam tohle a funguje to (ted by me docela zajimalo, jestli dostanu od
admina vynadano za prispevek s diakritikou :-)))))
procedure NoAccents(var s:string); //likviduje diakritiku v textu
function ConvertAccentChar(ch: char):char;
begin
case ch of
'Ř': ch:='R';
'ř': ch:='r';
'Í': ch:='I';
'í': ch:='i';
'š': ch:='s';
'Š': ch:='S';
'ž': ch:='z';
'Ž': ch:='Z';
'ť': ch:='t';
'Ť': ch:='T';
'č': ch:='c';
'Č': ch:='C';
'ý': ch:='y';
'Ý': ch:='Y';
'ů': ch:='u';
'Ů': ch:='U';
'ň': ch:='n';
'Ň': ch:='N';
'ú': ch:='u';
'Ú': ch:='U';
'ě': ch:='e';
'Ě': ch:='E';
'Ď': ch:='D';
'ď': ch:='d';
'á': ch:='a';
'Á': ch:='A';
'é': ch:='e';
'É': ch:='E';
'ó': ch:='o';
'Ó': ch:='O';
else ;
end;
Result:=ch;
end;
var i:integer;
begin
for i:=1 to Length(s) do s[i]:= ConvertAccentChar(s[i]);
end;
Mam text s diakritikou a potrebujem ho previest na text bez diakritiky.
Nechcem to robit rucne, ako to uz niekto urobil.IB/FB table properities
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.1.2002 16:26:22
> a k IBConsole jsou zdrojaky ?
jsou nekde na
http://codecentral.borland.com
jenze si nemuzu vzpomenout kde :(
mam tu nejakou starsi verzi a v ni si
podobne veci vzdycky prohlizim.
dekuji PeC(zv)IB/FB table properities
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 14.1.2002 17:07:56
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> > a k IBConsole jsou zdrojaky ?
Co si ja pamatam tak su stare (neaktualizovane) a nezkompilovatelne.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
FB SP dostatky premennych ?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 14.1.2002 17:11:20
Neni lepsie to riesit v BeforeUpdate trigru?
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: "Roland Turcan" <rolo(zv)sedas.sk>
> ide mi o to aby nevracal v ciselnych stlpcoch NULL ale peknu 0;
> v scripte pokracujem takto:
>
> IF ((PRVY=0) or (DRUHY=0) or (TRETI=0) or (STVRTY=0)) THEN
> BEGIN
> DELETE FROM TABULKA WHERE ID=:ZAZNAM;
> EXIT;
> END
>
> UPDATE TABULKA SET PRVY=:PRVY, DRUHY=:DRUHY, TRETI=:TRETI, STVRTY=:STVRTY
> WHERE ID=:ZAZNAM;
>
> a zaujimave je ze do zaznamu tabulky ktory sa opravoval za zapisali nuly
> alebo zaznam nebol preruseny a ukoncena procedura. Co vy na to ?
"Client", SQLtabulka, D5(D6) a DBE(??) ???
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.1.2002 17:14:27
Zdravim panove,
mam dotaz. Nastinim problem. Chci vytvorit jednoduchou aplikaci,
ktera bude umistena na CD. Mela by vykonavat jistou f-ci prochazeni,
zobrazeni, vyberu obsahu SQLtabulky (typ tabulky nejspis PARADOX).
(Proc SQLtabulka? Protoze dotazy SQL jsou jednoduche a prace s obyc.
tabulkou chce primarni indexy, sekundarni .... a spoustu dalsich a vse
to jsem schopen nahradit sql prikazy - jsem proste pohodlny)
Takze s tou aplikaci bych mel zvladnout toto:
Prijit k libovolnemu pocitaci
(predpoklad - platforma Windows),
spustit aplikaci, aplikace vykona co ma a skonci. NECHCI !! aby za
mnou cokoli zustavalo !!!
Problem je totiz v praci s tabulkou - BDE engine a jeho instalace. Vim,
ze se to da zvladnout pomoci installshieldu, ale to je spousta
instalovani na tak kratkou dobu, kterou program ma bezet.
Zkratka, potreboval bych vedet, jestli jde kopirovat treba nejake knihovny
(a kam) a treba jaky je potreba zapis do registru atd., aby mohl program
bezet a pritom "netravovat" se zbytecnou instalaci.
Jde to vubec?? Chci data z ty tabulky akorat serazovat, zobrazovat,
filtrovat a vyhledavat.
Diky za rady, snad nekdo pochopi na co se ptam, ja uz sam pomalu nechapu :o))
Jirka Sokol
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
"Client", SQLtabulka, D5(D6) a DBE(??) ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.1.2002 17:33:01
From: "Ing. Ji�� SOKOL" <JS-delphi(zv)seznam(tec)cz>
> Problem je totiz v praci s tabulkou - BDE engine a jeho instalace. Vim,
> ze se to da zvladnout pomoci installshieldu, ale to je spousta
> instalovani na tak kratkou dobu, kterou program ma bezet.
> Zkratka, potreboval bych vedet, jestli jde kopirovat treba nejake knihovny
> (a kam) a treba jaky je potreba zapis do registru atd., aby mohl program
Ahoj,
tohle je s BDE neresitelne. Budto pouzij nejaky vlastni format dat nebo neco
jineho. Z CD umi bezet tusim FlashFiler.
Petr Vones
"Client", SQLtabulka, D5(D6) a DBE(??) ???
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 14.1.2002 17:37:55
On 14 Jan 2002 at 17:33, Petr Vones wrote:
> From: "Ing. Ji�� SOKOL" <JS-delphi(zv)seznam(tec)cz>
> > Problem je totiz v praci s tabulkou - BDE engine a jeho instalace.
> > Vim, ze se to da zvladnout pomoci installshieldu, ale to je spousta
> > instalovani na tak kratkou dobu, kterou program ma bezet. Zkratka,
> > potreboval bych vedet, jestli jde kopirovat treba nejake knihovny (a
> > kam) a treba jaky je potreba zapis do registru atd., aby mohl
> > program
>
> Ahoj,
>
> tohle je s BDE neresitelne. Budto pouzij nejaky vlastni format dat
> nebo neco jineho. Z CD umi bezet tusim FlashFiler.
Ja bych dokonce pred BDE pro takovyto pripad DURAZNE varoval, protoze
timto zpusobem lze uspesne naborit drive nainstalovane BDE.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
"Client", SQLtabulka, D5(D6) a DBE(??) ???
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.1.2002 18:06:55
Zdravim panove,
mam dotaz. Chtel ve svem projektu pouzit SQLtabulku(lokalni) nejspis typu PARADOX
a chtel bych tento projekt umistit na CD. Dale bych chtel, aby kam prijdu
se tento projekt rozjel a hlavne,
aby mel pristup do ty tabulky.
Vim, ze existuje DBE engine a ze pomoci installshieldu by to slo vyresit,
ale je to moc instalovani na typ projektu, ktery potrebuju vytvorit.
Ma to byt aplikace, ze prijdu, spustim, odejdu a nic za mnou nezustane.
{predpoklad je platforma Windows}
Nevite nekdo, jake jsou potrebne knihovny, kam je umistit a treba jaka
je potreba uprava registru na to, abych mohl zobrazit tabulku a
pochopitelne i s ni nejak pracovat??
Tu SQLTabulku chci pouzivat proto,ze prace s daty pomoci SQL prikazu je
fakt pohodlna - vyhledavani, filtrace, serazeni atd.
Diky za vase navrhy.
Jiri SOKOL
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
IB/FB table properities
[*] Lauko Stefan <laukosw(zv)naex.sk> - 14.1.2002 18:10:04
Ahoj,
pozri si zdrojak TIBExtract. Ja som sa tam dost naucil. Neviem ci to vyriesi
aj tvoj problem.
Lauko.
----- Original Message -----
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>
> prosim o radu jak ziskat %subj%, tak jak se zobrazi v IBConsole v
> Properities for: MOJE_TABULKA
> na zalozce Properities
> (Name, Type, Character Set, Collation, Default Value, Allow Nulls)
>
> Nemohu to v system. tabulkach najit.
> Nazvy vsech tabulek databaze vybrat umim.
>
> Dekuji za vasi pomoc,
>
> preji hezky den,
> Jarek Uher
>"Client", SQLtabulka, D5(D6) a DBE(??) ???
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.1.2002 18:31:23
FlashFiler?
neznam, muze mi ho nekdo priblizit, prosim. O co jde, co umi, jak
jde ziskat, jake jsou licencni podminky, dokaze nahradit BDE, atd.
Diky.
Jiri
Sokol
______________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
FB SP dostatky premennych ?
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 14.1.2002 18:38:04
Hello, Roland!
You wrote :
[Skipped]
RT> IF ((PRVY=0) or (DRUHY=0) or (TRETI=0) or (STVRTY=0)) THEN
RT> BEGIN
RT> DELETE FROM TABULKA WHERE ID=:ZAZNAM;
RT> EXIT;
RT> END
Precti manual ohledne EXIT.
Ten je zbytecny !
With best regards, Alex Cherednichenko.SystemProbe
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 14.1.2002 21:16:31
Nevite nekdo o uprage komponenty SystemProbe pro D6 a WinXP ? Potrebuji
zjistit zatizenost CPU, pamet a stav baterie. Dik za kazdou radu.
*********************************************************
David Kraina, DKx
-----------------------------
vedouc� nez�visl�ho v�vojov�ho t�mu MX-3
*********************************************************
Vysunuti CD
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 14.1.2002 21:20:34
Znam nekolik zpusobu jak vysunout CD, ale pri vice mechanikach vysouva pouze
CD s nizsim pismenem. Nevite nekdo nahodou jak vysunout CD dle pismene
mechaniky (mam kombinaci DVD-ROM (F) + CD-RW (E) ) ? Predem diky.
*********************************************************
David Kraina, DKx
-----------------------------
vedouc� nez�visl�ho v�vojov�ho t�mu MX-3
*********************************************************Problem s TForm.OnKeyPress
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 14.1.2002 21:22:44
Mam Form, na ktorom je PageControl, ktory ma 3 TabSheets,
na 1 z TabSheetov mam len TImage, TPanel a TLabel.
Este nedavno mi fungovala obsluha TForm.OnKeyPress,
teraz vsak takato udalost nikdy do TForm nedoruci.
Vedel by mi niekto poradit ako zistit, ktory prvok
ju dostava? Ved ani jeden z 3 uvedenych nema property
OnKeyPress, tak uz neviem...
Najlepsie na tom je, ze vcera to este chodlilo, s niecim som pohol
(neviem s cim a chodivu zlohu nemam :-() a finito.
Jaro
Vypnut� PC pod NT
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 14.1.2002 21:22:28
Jak se povoli pod Win NT (XP) vypnuti PC, reset, spanek a hibernace ? Pri
pouziti WindowsEx se vzdy odhlasi... Dik.
*********************************************************
David Kraina, DKx
-----------------------------
vedouc� nez�visl�ho v�vojov�ho t�mu MX-3
*********************************************************
Propojeni PC + notebook paralelnim kabelem
[*] Zden�k �t�p�nek�����^��ޏ����� - 14.1.2002 21:49:04
Zdravim
Je sice lepsi pouzivat ECP port (je to o neco malo rychlejsi), ale NENI to
nutne. 386ka zadny ECP nema a taky to slo. Vetsinou musis mit nainstalovany
IPX/SPX protokoly zaroven s TCP/IP. Nekdo tvrdi, ze mu to slo bez nej, me (a
nejen me) to slo pouze s nim. Sdileni souboru (jestli ho pouzivas) tam nech
jen pro TCP/IP. Potom to bude chodit.
Zdenek
----- Original Message -----
From: "Frankie Y" <frankie.y(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, January 14, 2002 12:13 PM
Subject: OT: Propojeni PC + notebook paralelnim kabelem
> Ahoj,
> chci pripojit dva pocitace tak, aby mohli sdilet jedno pripojeni k
> Internetu. V domneni, ze je to snadna vec, jsem zakoupil paralelni kabel,
> nainstaloval Prime propojeni kabelem, spojil pocitace, nastavil jeden jako
> host, druhy jako hostitel. Avsak spojeni mezi pocitaci se nezdarilo. Po
> hledani na Internetu jsem narazil na jedinou stranku, ktera by mohla
> vysvetlit muj problem (ostatni poskytovali pouze velice povrchni navod ve
> smyslu vyse uvedeneho textu). Pro zdarne propojeni je totiz zrejme
potreba,
> aby v obou pocitacich byl v BIOSu nastaven paralelni port jako EPP nebo
ECP.
> Na desktopu to nastavit mohu avsak nedari se mi dostat se do BIOSu
> notebooku. Proto bych potreboval zjistit jinou cestou presne nastaveni
> notebooku a dle nej upravit konfiguraci PC. Nevite nekdo jak na to nebo by
> pricina nezdaru mohla byt jeste jinde?
>
> Frankie
>jak na navratovou hodnotu
[*] Erik Salaj <winsoft(zv)stonline.sk> - 14.1.2002 22:10:51
> > a s Delphi a komponentami umoznuje RAD beznych aplikacii,
> > ale vdaka svojim vlastnostiam a obmedzeniam nie je vhodny
> > na serioznejsie OOP programovanie.
>
> Hmm, toto je blbost.
> V Eifelu som nevidel doteraz ziadnu napisanu aplikaciu. Tym netvrdim ze
> neexistuje, len ze som ziadnu nevidel, ak mas nejaky odkaz na nieco budem
> rad ked posles (Referencie na domovskych strankach som nenasiel).
pozri www.eiffel.com
> Naproti tomu v Delphi som uz videl hodne aplikacii objektovych i
> neobjektovych. A dokonca velmi serioznych. Nebudem zbytocne menovat ale
> videl som aplikacie typu C/S, muli-tier, utils, tools, ... Niektore az tak
> objektove ze su zrovnatelne s produktom Navision alebo systemom Open
> interface. Na niektorych som sam spolupracoval.
tiez nebudem zbytocne menovat, uz len z toho dovodu, ze by som
ani nemal co ;-)
Erik
ShortCut na BAT
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 14.1.2002 22:23:40
Umim udelat ShortCut na windows aplikaci. Potrebuji ale udelat zastupce na
povelovy soubor a nastavit nejake parametry specificke pro tento typ
aplikace (napriklad "pri ukoncen� uzavrit", "otevrit na celou obrazovku",
aj.).
Lze to a pokud ano tak jak?
Diky
Dan
OT: Komercni software a Open Source - drive Varian
[*] Erik Salaj <winsoft(zv)stonline.sk> - 14.1.2002 22:54:11
> > U komerneho software mam jasny mechanimus (netvrdim, ze idealny)
> > v ktorom ekonomicke zaujmy a konkurencny tlak nahanaju k produkcii
> > kvalitneho software. U Open Source tento zakladny mechanizmus
> > nevidim.
>
> Ahoj.
> To ze ty ho nevidis, neznamena, ze neexistuje.
a vidi ho niekto?
> Dokonce by se dal najit trochu podobny priklad i v distribuci "hmotneho"
> zbozi, napr. mobilnich telefonu. Tam take lze ziskat pristroj za cenu IMHO
> nizsi nez vyrobni (1 kc) diky tomu faktu, ze operator nasledne vydela
mnohem
> vice na provozu tohoto telefonu ve sve siti a tezko nekdo bude tvrdit, ze
> operatori mobilnich telefonu jsou komunisti.
tak mi posli ten mobil za 1kc
> OpenSource/FreeWare podobnym zpusobem nejprve "investuje do uzivatele" tim
,
> ze si nenecha zaplatit za vyvoj, a "prodava" tak produkt "pod cenou" ale
> vytvari si tak predpoklad zisku z "provozu" SW predevsim diky svemu
know-how
> (placena podpora, tistene manualy, distribuce na CD, reseni na miru a
pod.)
> a v pripade OpenSource zaroven jeste muze velmi "levne" ziskavat sirokou a
> kvalitni vyvojovou zakladnu a velmi zajimave konkurencni prostredi (napr.
> ruzne distribuce Linuxu).
to "velmi levne" v pripade Linux-u znamena mnohomiliardove $ investicie
firiem
ako IBM a dalsich do tejto platformy.
> Oba modely (komercni i OpenSource/FreeWare) v soucasne dobe existuji a
nekdy
> se i prolinaji. A v obou systemech najdes uspesne i neuspesne firmy,
> jednotlivce, projekty.
ano
Erik
GC, Delphi, OOP
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.1.2002 22:57:46
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> pointery pracuji uvnitr nej. V zadnem pripade ale nepovazuji za
> schudne neco takoveho resit pres dynamicke pole bajtu (jak navrhoval
> Erik), a pohybovat se v nem pomoci indexu. Tohle zkomplikuje praci s
> PChar retezci natolik, ze nema vubec smysl se s tim babrat, pokud
pro
> to neni opravdu zavazny duvod.
Pokud programator bude pouzivat pointery stylem
while P^<>... do
inc(P);
a nalezene hodnoty si bude kopirovat do promennych, tak to nebude s
tim dynamickym polem a indexem vubec spatne, protoze konstrukce
while A[i]<>... do
inc(i);
se prelozi skoro 'nachlup' stejne jako ta s pointery (dereference bude
vypadat nejak jako: mov dl,[esi+eax])
Pokud by se to ovsem psalo jako v Cecku pomoci funkci strscan(),
strcomp() aj. tedy operacemi primo nad blokem referovane pameti, ktere
jsou implementovane s podporou specializovanych strojovych instrukci
SCAS, CMPS apod., tak to je jine: tady by ztrata vykonu byla velka.> prodelal. Ale pri tom me nenapada, jak by to ovlivnilo treba
> rozebirani konkretniho C dialogu, ktery protece internetem cely jako
> nejaky blok, a rozebira si ho az modul, kteremu ten dialog patri.
Jo, ale nejdriv musis ten dialog v tom PE formatu najit a prece to
nepotahnes cele na server (pro dany priklad predpokladam, ze upravy se
budou delat na strane serveru).
Bye, pf
GC, Delphi, OOP Was: jak na navratovou hodnotu
[*] Erik Salaj <winsoft(zv)stonline.sk> - 14.1.2002 23:07:50
> > Delphi podla mna nie je urcene ani vyhodne pre nizkourovnove zalezitosti
> > ale typickou oblastou jeho pouzitia su databazove aplikacie. Tam
>
> Tohle je myslim prave ten zakladni omyl. Delphi neni dalsi PowerBuilder
nebo
> Access (s lepsim jazykem). To ze Borland propaguje Delphi hlavne na
databaze
> je prave jedna z nejvetsich chyb kterou dela, protoze to je (byl by *)
dobry
> nastroj pro Windows desktop aplikace obecne.
hovoril som o nizkourovnovych aplikaciach. Napr. C-cko sa zvykne
pouzivat ako urcita nahrada assemblera, povedzme existuju kompilatory,
ktore prekladaju do C-cka a pod. Delphi na nizkourovnove aplikacie,
kde sa obvykle pozaduje tesna vezba so systemom (napr. specialny
startovaci kod aplikacie, moznost pouzivat specialne segmenty v PE
subore, ci specialny run-time kod) vhodne nie je, taketo moznosti
tam jednoducho chybaju.
Erik
jak na navratovou hodnotu
[*] Erik Salaj <winsoft(zv)stonline.sk> - 14.1.2002 23:56:51
> > mozem sa pohybovat po subore pomocou Seek funkcie a citat
> > zo suboru, co potrebujem, alebo mozem nacitat subor do pola
> > (bajtov) a na "navigaciu" pouzit index pola. Takto precitam
> > EXE plus vytvorim objekty, do ktorych ulozim jednotlive casti.
> > Objekty mi potom poskytuju pohodlny sposob na ziskanie akejkolvek
> > informacie a aj moznost dalsieho spracovania (napr. vlozenie dalsej
> > sekcie alebo zmazania sekcie).
>
> :-)) To je opravdu efektivni metoda. Uz jsi neco takoveho zkousel nad
> vetsimi objemy dat, ktera nejsou pravidelna a obsahuji PChary? Vsadim
> se, ze nejen ze takovyhle kod bude neuveritelne pomaly, ale take tam
> nasekas vic chyb a budes ho dele ladit. Klidne se muzeme pokusit o
> zcela konkretni ukazku.
je to dostatocne efektivna metoda. Pokial akurat nepotrebujes
precitat jeden PChar, ale s udajmi aj pracovat (ako som uz
viackrat pisal: objekty su vyhodne najme v "dynamickych"
programoch) tak objektovy pristup je daleko vyhodnejsi.
Erik
Ukoncovani aplikace
[*] MaJunD <majund(zv)atlas(tec)cz> - 14.1.2002 23:58:54
> Mel bych dotaz ke korektnosti ukoncovan aplikace.
> Kteremu zpusobu dat prednost
>
> - Form1.close;
Provede proceduru pred ukonceni aplikace s moznosti neukonceni aplikace
(OnCloseQuery) - jako "ALT+F4"
napr.: Chces ulozit rozepsany dokument? atd...
> - Application.Terminate;
Ukonci aplikaci okamzite v tomto miste - jako "halt"
/---------------------
| Martin
| http://prog.zde(tec)cz
\---------------------
OT: Komercni software a Open Source - drive Varian
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.1.2002 00:37:16
Puvodni zprava, kterou napsal Pavel Cisar dne 14 Jan 2002:
> 1) Spektrum (typu) SW je velmi siroke, a stejne tak i zpusoby jak
> je vytvaren a udrzovan. Vedle velkych producentu sw (Borland, MS,
> SW602, Aktis) existuji i mali "zivnostnicci" (Petr Zahradnik), a
> spousta sw se vytvari i ve velkych firmach primarne pro jejich
> vlastni potrebu (banky, CEZ, Skodovka). Existuje sw "v krabicich"
> (Delphi, Abra), sw ktery je "polokrabicovy" a vzdy se mirne upravuje na
> miru konkretnimu zakaznikovi (SAP) a sw na zakazku. Kazdy typ firmy
> (vyvoje) i sw ma sva specifika a zajete stereotypy, ktera se _nedaji_ v
> plne mire aplikovat na ostatni druhy. Co je dobre pro jednoho, muze byt
> pohroma pro druheho. Nasemi milemu Adminovi vyhovuji (kvalitni) komercni
> komponenty, protoze mu umoznuji _rychle_ vytvaret ruzne druhy malych
> aplikaci, coz je presne to, cim se zivi. Kdyby podobnym zpusobem delal
> napr. Aktis svoji Abru, neobstal by v konkurenci. Stejne tak se nevyplati
> napr. Skodovce kupovat 100+1 komercni knihovnu pro interni vyvoj, protoze
> by to bylo celkove moc drahe atd. Takze pokud zrovna vy nespatrujete v
> pouzivani Open Source pro _sebe_ zadne vyhodny, jeste to neznamena, ze pro
> ostatni to neni "nejlepsi vec pod sluncem hned po predkrajenem chlebu".
Pavle, kdyz jsem si precetl tento odstavec, tak jsem dospel k nazoru, ze
mnohem vice nez o seriozni diskusi Ti jde o osobni napadani. Toho se
nehodlam dale ucastnit a vyuzivam sveho prava na toto tema dale
nereagovat... Ze nebudu reagovat vsak neznamena, ze s Tebou souhlasim.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Prevod Null na 0 z Accessu
[*] <patrisfw(zv)centrum(tec)cz> - 15.1.2002 06:42:02
Potrebuji poradit, jak mam pomoci SQL zajistit, ze jako vysledek dotazu u polozek, ktere jsou NULL bude cislo 0?
V Accessu je funkce NZ(), ktera umi presne to, co chci. Napriklad:
SELECT ... NZ(hodnota,0)
Kdyz tuto funkci pouziji primo v Accessu, tak to funguje. Takto napsany dotaz mi nelze spustit z Delphi. Zkousel jsem i nahradit NZ() za ISNULL(), ale nic. Jakym zpusobem to jde udelat?
Potrebuji totiz vypocitat:
pocty vyrobku na sklade=pocet prijatych vyrobku-pocet vydanych vyrobku.
Problem nastane, jestlize neni zadny zaznam o vydeji, tzn. Vydej=Null. V tomto pripade je i vysledek Null.
Patrik Caslavsky, ICQ: 20711487
-----
Centrum pro milovn�ky pen�z
http://finance.centrum(tec)cz
Prevod Null na 0 z Accessu
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 15.1.2002 07:45:37
No a co si udelat v Accessu Query a na tu se pak z Delphi divat ?
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
hot-line 0 776 677 776
tel. 0467/521555, 520141
http://www.missoftware(tec)cz
mailto:info(zv)missoftware(tec)cz
> -----P�vodn� zpr�va-----
> Od: patrisfw(zv)centrum(tec)cz
>
> Potrebuji poradit, jak mam pomoci SQL zajistit, ze jako
> vysledek dotazu u polozek, ktere jsou NULL bude cislo 0?
> V Accessu je funkce NZ(), ktera umi presne to, co chci. Napriklad:
> SELECT ... NZ(hodnota,0)
> Kdyz tuto funkci pouziji primo v Accessu, tak to funguje.
> Takto napsany dotaz mi nelze spustit z Delphi. Zkousel jsem i
> nahradit NZ() za ISNULL(), ale nic. Jakym zpusobem to jde udelat?
jak na navratovou hodnotu
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 15.1.2002 07:45:07
From: "Erik Salaj" <winsoft(zv)stonline.sk>
> > Hmm, toto je blbost.
> > V Eifelu som nevidel doteraz ziadnu napisanu aplikaciu. Tym netvrdim ze
> > neexistuje, len ze som ziadnu nevidel, ak mas nejaky odkaz na nieco
budem
> > rad ked posles (Referencie na domovskych strankach som nenasiel).
>
> pozri www.eiffel.com
To som pozrel, ale ako som pisal referencie som tam nenasiel %-)
> > Naproti tomu v Delphi som uz videl hodne aplikacii objektovych i
> > neobjektovych. A dokonca velmi serioznych. Nebudem zbytocne menovat ale
> > videl som aplikacie typu C/S, muli-tier, utils, tools, ... Niektore az
tak
> > objektove ze su zrovnatelne s produktom Navision alebo systemom Open
> > interface. Na niektorych som sam spolupracoval.
>
> tiez nebudem zbytocne menovat, uz len z toho dovodu, ze by som
> ani nemal co ;-)
>
> Erik
??? :-o
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Problem s TForm.OnKeyPress
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 15.1.2002 07:57:55
From: "Jaroslav Popluhar" <delphi1(zv)acc.sk>
> Mam Form, na ktorom je PageControl, ktory ma 3 TabSheets,
> na 1 z TabSheetov mam len TImage, TPanel a TLabel.
> Este nedavno mi fungovala obsluha TForm.OnKeyPress,
> teraz vsak takato udalost nikdy do TForm nedoruci.
Mas na formu nastavenu property KeyPreview na True?
V ObjInspectoru sa pozri ci mas ten event priradeny (assignovany).
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Prevod Null na 0 z Accessu
[*] mstevlik(zv)gamo.sk - 15.1.2002 08:12:23
Select TvojeFieldy, iif(IsNull(TvojField),0,TvojField) From TvojaTab
Stevlik Marian
ISYS programator
GAMO a.s., Banska Bystrica
+421 48 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
MDIForm v DLL
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 15.1.2002 08:18:25
Chci se zeptat, eli je mozne ve formu, ktery je v knihovne, nastavit moznost
MDIForm, pokud ano, tak proc mi to pri vytvareni MDIChildu hlasi "No MDIForm
active"?
Servus Rumcajs
Info na pracovnej ploche
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 15.1.2002 08:28:09
Zdravim,
potreboval by som zobrazit informacie na plochu (desktop), konkretne IP
adresu, nazov pocitaca, prihlaseny uzivatel. je to pre uzivatelov pre
platformy W9x, NT4, W2000. akurat len neviem akym smerom sa uberat, ako
vlastne napisat text na pracovnu plochu windowsov. mohol by ma niekto
nasmerovat know how?Prevod Null na 0 z Accessu
[*] Patrik Caslavsky <patrisfw(zv)centrum(tec)cz> - 15.1.2002 08:39:18
To jsem taky zkousel, ale neslo to. Jak to narazilo na tu funkci, tak to hodilo chybu. Zkusim jeste pouzit radu na pouziti Select TvojeFieldy, iif(IsNull(TvojField),0,TvojField) From TvojaTab.
Ale jak by slo volat Query v Accessu, ktere ma nejaky parametr? Napriklad potrebuji spustit dotaz pro urcity den. Delam to proto v Delphi, kde cely dotaz sestavim a pak spustim. Jak lze poslat parametr pri spousteni dotazu z Delphi do Accessu?
>No a co si udelat v Accessu Query a na tu se pak z Delphi divat ?
>> -----P�vodn� zpr�va-----
>> Od: patrisfw(zv)centrum(tec)cz
>>
>> Potrebuji poradit, jak mam pomoci SQL zajistit, ze jako
>> vysledek dotazu u polozek, ktere jsou NULL bude cislo 0?
>> V Accessu je funkce NZ(), ktera umi presne to, co chci. Napriklad:
>> SELECT ... NZ(hodnota,0)
>> Kdyz tuto funkci pouziji primo v Accessu, tak to funguje.
>> Takto napsany dotaz mi nelze spustit z Delphi. Zkousel jsem i
>> nahradit NZ() za ISNULL(), ale nic. Jakym zpusobem to jde udelat?
-----
Nov� vyhled�va� pro �esk� internet www.webfast(tec)cz - prost� najde ...Info na pracovnej ploche
[*] Ji�� Kratochv�l����*��Jڶ�!�)?���o� - 15.1.2002 08:51:03
>potreboval by som zobrazit informacie na plochu (desktop), konkretne IP
>adresu, nazov pocitaca, prihlaseny uzivatel. je to pre uzivatelov pre
>platformy W9x, NT4, W2000. akurat len neviem akym smerom sa uberat, ako
>vlastne napisat text na pracovnu plochu windowsov. mohol by ma niekto
>nasmerovat know how?
Co treba Active Desktop ???
Jirka K.
Info na pracovnej ploche
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 15.1.2002 08:59:13
>>potreboval by som zobrazit informacie na plochu (desktop), konkretne
IP
>>adresu, nazov pocitaca, prihlaseny uzivatel. je to pre uzivatelov pre
>>platformy W9x, NT4, W2000. akurat len neviem akym smerom sa uberat,
ako
>>vlastne napisat text na pracovnu plochu windowsov. mohol by ma niekto
>>nasmerovat know how?
>Co treba Active Desktop ???
nie kazdy ho ma povoleny a mam dojem ze W95 nepodporuje AD?Prevod Null na 0 z Accessu
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 15.1.2002 09:16:03
> Ale jak by slo volat Query v Accessu, ktere ma nejaky
> parametr? Napriklad potrebuji spustit dotaz pro urcity den.
> Delam to proto v Delphi, kde cely dotaz sestavim a pak
> spustim. Jak lze poslat parametr pri spousteni dotazu z
> Delphi do Accessu?
Jednoduse si v Accessu udelam query na vsechny dny, a pak si v Delphi vyberu
SELECT * FROM ACCESS_QUERY WHERE DEN='1.1.2002'
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
hot-line 0 776 677 776
tel. 0467/521555, 520141
http://www.missoftware(tec)cz
mailto:info(zv)missoftware(tec)cz
Info na pracovnej ploche
[*] brant(zv)dcomm(tec)cz - 15.1.2002 09:21:38
Je mozne ziskat handle device contextu funkci GetDC(nil) nebo GetDC(0), ted
nevim, ktera syntaxe je spravna. Pak se da pomoci funkci API na plochu
kreslit. Syntaxe je velmi podobna jako u TCanvasu. Ale nevim, jak zajistit,
aby tam ta kresba zustala i po prekryti jinym oknem. Mozna by bylo
schudnejsi udelat okno, se kterym by se nedalo hybat, odpadnou starostio s
prekreslovanim.
RNDr. Petr Brant
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
********************************************
potreboval by som zobrazit informacie na plochu (desktop), konkretne IP
adresu, nazov pocitaca, prihlaseny uzivatel. je to pre uzivatelov pre
platformy W9x, NT4, W2000. akurat len neviem akym smerom sa uberat, ako
vlastne napisat text na pracovnu plochu windowsov. Sinea - tisk zaznamu do sloupcu
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 15.1.2002 09:24:32
Ahoj,
mam tel. seznam, ktery bych chtel dostat na papir do trech slupcu.
To jsem zatim zvladl, ale problem je v tom, ze se jednotlive zaznamy
postupne tisknout do sloupcu,
ale ja bych chtel aby se tiskly do jednoho sloupce a potom do tech dalsich.
Diky moc.
Priklad.
Ted se tiskne
--------------
Alan Alena Alik
Beda Boda Buda
Ale ja bych chtel
-----------------
Alan Beda .atd
Alena Boda
Alik Buda
Delphi 5
Sinea - tisk zaznamu do sloupcu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.1.2002 09:35:36
Naplnit si to do vlastni tabulky do 3 sloupcu a z ni tisknout. Jiny
zpusob me nenapada
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
15.1.2002 Bednar��k Dalibor:
> Ahoj,
> mam tel. seznam, ktery bych chtel dostat na papir do trech slupcu.
> To jsem zatim zvladl, ale problem je v tom, ze se jednotlive zaznamy
> postupne tisknout do sloupcu,
> ale ja bych chtel aby se tiskly do jednoho sloupce a potom do tech dalsich.
> Diky moc.
> Priklad.
> Ted se tiskne
> --------------
> Alan Alena Alik
> Beda Boda Buda
> Ale ja bych chtel
> -----------------
> Alan Beda .atd
> Alena Boda
> Alik Buda
GC, Delphi, OOP
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 15.1.2002 09:41:22
On 14 Jan 2002 at 22:57, Petr Fejfar wrote:
> > prodelal. Ale pri tom me nenapada, jak by to ovlivnilo treba
> > rozebirani konkretniho C dialogu, ktery protece internetem cely jako
> > nejaky blok, a rozebira si ho az modul, kteremu ten dialog patri.
>
> Jo, ale nejdriv musis ten dialog v tom PE formatu najit a prece to
> nepotahnes cele na server (pro dany priklad predpokladam, ze upravy se
> budou delat na strane serveru).
Tohle klidne zajisti modul, ktery se pretahne ke klientovi, rozebere
exac a posle na server bloky dat v nejakem streamu, nebo OleVariantu.
Kdyz dorazi napriklad zminovany C dialog, chnapne si po nem modul,
ktery s nim umi pracovat, a rozebere si ho na soucastky. Dialog ma
hlavicku, a pak cyklicky se opakujici data. Pricemz existuji dve
verze dialogu, ktere je treba odlisit, protoze maji rozdilne
usporadanou hlavicku. Dale tam existuji nejednoznacnosti, protoze
treba typ prvku muze byt reprezentovan budto cislem, nebo jmenem.
Tazke zcela konkretni C dialog ctu priblizne takto (vyhazim a
zjednodusim nektere kroky, abych vyseparoval cisty kod bez starosti s
ukladanim do dalsich struktur, ve skutecnosti nektere vlastnosti ctu
v objektech, ktere je primo potrebuji). Pokud se domnivas, ze by to
slo resit lepe pomoci objektu nebo streamu s priblizne stejnym
vykonem, bez pouziti pointeru, zkus neco navrhnout. Ale pozor, nekde
je nutne udelat posun hned po cteni, nekde je treba zjistit hodnotu,
a pak cist neco jineho (rozdil ve verzich, a tri moznosti ve jmenu
prvku nebo jeho typu).
Ptr mi puvodne ukazuje na zacatek pamtoveho bloku.
// hlavicka
Style := PDWORD(Ptr)^;
ExtDlg := Style = $FFFF0001;
if ExtDlg then // tady je rozdil ve verzich dialogu
begin // nova verze
DlgVer := PWord(Ptr)^;
Inc(PWord(Ptr));
Signature := PWord(Ptr)^;
Inc(PWord(Ptr));
HelpID := PDWord(Ptr)^;
Inc(PDWord(Ptr));
exStyle := PDWord(Ptr)^;
Inc(PDWord(Ptr));
Style := PDWord(Ptr)^;
Inc(PDWord(Ptr));
end else
begin // stara verze
Inc(PDWORD(Ptr));
exStyle := PDWORD(Ptr)^;
Inc(PDWORD(Ptr));
end;
cDlgItems := PWord(Ptr)^;
Inc(PWord(Ptr));
x := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
y := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
cx := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
cy := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
LoadOrdName(Ptr, wMenuName, sMenuName); // cislo nebo retezec
LoadOrdName(Ptr, wClassName, dfoClass);
LoadOrdName(Ptr, wTitleName, tempStr);
if (Style and $40) <> 0 then
begin
if ExtDlg then
begin
Weight := PWord(Ptr)^;
Inc(PWord(Ptr));
Italic := PWord(Ptr)^;
Inc(PWord(Ptr));
end;
end;
// cteni jednotlivych prvku dialogu
for i := 1 to cDlgItems do
begin
if ExtDlg then
begin
HelpID := PDWord(Ptr)^;
Inc(PDWord(Ptr));
exStyle := PDWord(Ptr)^;
Inc(PDWord(Ptr));
Style := PDWord(Ptr)^;
Inc(PDWord(Ptr));
end else
begin
Style := PDWORD(Ptr)^;
Inc(PDWORD(Ptr));
ExStyle := PDWORD(Ptr)^;
Inc(PDWORD(Ptr));
end;
Left := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
Top := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
Width := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
Height := PSmallInt(Ptr)^;
Inc(PSmallint(Ptr));
if ExtDlg then
begin
Id := PDWord(Ptr)^;
Inc(PDWord(Ptr));
end else
begin
Id := PWord(Ptr)^;
Inc(PWord(Ptr));
end;
LoadOrdName(Ptr, wClassName, dfoClass);
LoadOrdName(Ptr, wTitleName, tempStr);
ExtraCount := PWord(Ptr)^;
if ExtraCount > 0 then
{... cteni bloku nejakych dat o delce ExtraCount a posun ...}
else
Inc(PWord(Ptr));
end;
procedure LoadOrdName(var P: pointer; var WordName: DWord; var Name:
WideString);
var
SLen: integer;
begin
WordName := 0;
Name := '';
if PWord(P)^ = $0000 then Inc(PWord(P)) else
if PWord(P)^ = $FFFF then
begin
WordName := PDWord(P)^;
Inc(PDWord(P));
end else
begin
SLen := StrLenW(PWChar(P));
SetLength(Name, SLen);
Move(P^, PWChar(Name)^, SLen * 2);
Inc(PWChar(P), SLen + 1);
end;
end;
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Vypnut� PC pod NT
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 15.1.2002 09:41:34
Ahoj,
SetSystemPowerState
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: Vypnut� PC pod NT
> Jak se povoli pod Win NT (XP) vypnuti PC, reset, spanek a
> hibernace ? Pri
> pouziti WindowsEx se vzdy odhlasi... Dik.
Info na pracovnej ploche
[*] Ji�� Kratochv�l����*��Jڶ�!�)?���o� - 15.1.2002 09:44:49
> nie kazdy ho ma povoleny a mam dojem ze W95 nepodporuje AD?
Mam za to, ze jej lze doinstalovat s nejakym MSIE (tusim, ze to bylo od
verze IE 4.0)
JK
Info na pracovnej ploche
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 15.1.2002 09:47:08
ale predsalen, radsej by som sa tomuto rieseniu vyhol, pri 600
pracovnych staniciach sa mi nechce obehavat pocitace ;). mal som
predstavu asi taku, ze v pracom dolnom rohu plochy by bolo to info.
> nie kazdy ho ma povoleny a mam dojem ze W95 nepodporuje AD?
Mam za to, ze jej lze doinstalovat s nejakym MSIE (tusim, ze to bylo od
verze IE 4.0)
JK
OT: Komercni software a Open Source
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 15.1.2002 09:51:31
On 14 Jan 2002 at 22:54, Erik Salaj wrote:
> > > U komerneho software mam jasny mechanimus (netvrdim, ze idealny) v
> > > ktorom ekonomicke zaujmy a konkurencny tlak nahanaju k produkcii
> > > kvalitneho software. U Open Source tento zakladny mechanizmus
> > > nevidim.
> >
> > Ahoj.
> > To ze ty ho nevidis, neznamena, ze neexistuje.
>
> a vidi ho niekto?
Treba ja. Kvalita byva srovnatelna (pokud vim, kam sahnout), OS
reseni je obvykle primocarejsi, protoze nemusi resit vsechny mozne i
nemozne alternativy, aby reseni uspokojilo co nejvice zakazniku.
Pokud potrebuji predat otevreny kod (nejen dalsi OS, ale treba
zakazkovy program) jsou drahe komponenty handicapem, protoze zvysuji
cenu.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
OT: Karta s porty LPT a COM
[*] Hol�k Martin <martin.holik(zv)vytahy(tec)com> - 15.1.2002 09:52:28
Omlouv�m se za ot ale:
Pot�ebuji pomoct. Koupil jsem si kartu, kter� obsahuje porty pro roz���en� 1x LPT a 2x COM. Tuto kartu se mi st�le ned�� nainstalovat do WIndows 98. Pot�ebuji co nejd��ve poradit. V�robcem karty je podle krabice firma BUTTERFLY. Pot�eboval bych bud nejake ovladace, nebo radu jak tuto kartu nainstalovat. Windows tuto kartu nadetekuji a hl�s� ji jako PCI COMUNICATION DEVICE co� bych bral jako spr�vn�, ale u� ji pot� nenaleznou ovlada�e.
Martin Hol�k
martin.holik(zv)vytahy.com
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.313 / Virov� b�ze: 174 - datum vyd�n�: 2.1.2002
Vysunuti CD
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 15.1.2002 09:59:10
Cauec,
uz jsem to kdysi posilal, tak znovu...
// *************** OpenCD *************************
//
// Otev�e dv��ka CD mechaniky
//
// Vstupn� hodnoty: Drive - p�smeno jednotky CD mechaniky
//
// V�stupn� hodnota: TRUE p�i �sp�n�m vysunut� CD mechaniky
//
function OpenCD(Drive: char): boolean;
var Res: MCIError;
OpenParm: TMCI Open Parms;
Flags: DWORD;
S: string;
DeviceID: word;
begin
Result := False;
S := Drive + ':';
Flags := mci Open Type or mci Open Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci Open, Flags, Longint((zv)OpenParm));
if Res <> 0 then
Exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI SET, MCI SET DOOR OPEN, 0);
if Res = 0 then
Exit;
Result := True;
finally
mciSendCommand(DeviceID, mci Close, Flags, Longint((zv)OpenParm));
end;
end;
// ******************* CloseCD *************************
//
// Zav�e dv��ka CD mechaniky
//
// Vstupn� hodnoty: Drive - p�smeno jednotky CD mechaniky
//
// V�stupn� hodnota: TRUE p�i �sp�n�m zasunut� CD mechaniky
//
function CloseCD(Drive: char): boolean;
var Res: MCIError;
OpenParm: TMCI Open Parms;
Flags: DWORD;
S: string;
DeviceID: word;
begin
Result := False;
S := Drive + ':';
Flags := mci Open Type or mci Open Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci Open, Flags, Longint((zv)OpenParm));
if Res <> 0 then
Exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI SET, MCI SET DOOR CLOSED, 0);
if Res = 0 then
Exit;
Result := True;
finally
mciSendCommand(DeviceID, mci Close, Flags, Longint((zv)OpenParm));
end;
end;
Bye Ludan
----- Original Message -----
From: David Kraina <DKx(zv)Seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, January 14, 2002 9:20 PM
Subject: Vysunuti CD
> Znam nekolik zpusobu jak vysunout CD, ale pri vice mechanikach vysouva pouze
> CD s nizsim pismenem. Nevite nekdo nahodou jak vysunout CD dle pismene
> mechaniky (mam kombinaci DVD-ROM (F) + CD-RW (E) ) ? Predem diky.
>
> *********************************************************
> David Kraina, DKx
> -----------------------------
> vedouc� nez�visl�ho v�vojov�ho t�mu MX-3
> ********************************************************* Karta s porty LPT a COM
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 15.1.2002 10:25:31
>Omlouv�m se za ot ale:
>Pot�ebuji pomoct. Koupil jsem si kartu, kter� obsahuje porty pro roz���en�
1x LPT a 2x COM. Tuto kartu se mi st�le ned�� >nainstalovat do WIndows 98.
Pot�ebuji co nejd��ve poradit. V�robcem karty je podle krabice firma
BUTTERFLY. Pot�eboval >bych bud nejake ovladace, nebo radu jak tuto kartu
nainstalovat. Windows tuto kartu nadetekuji a hl�s� ji jako PCI
>COMUNICATION DEVICE co� bych bral jako spr�vn�, ale u� ji pot� nenaleznou
ovlada�e.
Pokud neni ve spravci zarizeni, tak proste v ovladacich panelech pridat novy
HW, pokud to nevezme
pluj&klej, tak zkusit autodekci,
jinak az do HW neni v seznamu, vybrat , Porty COM a LPT a tam nastavit
spravne IRQ, a adresu
Mimochodem co rika BIOS pri bootu (kolik nasel COM a LPT)? Da se ta karta
switchovat? A vubec...
Radek
Karta s porty LPT a COM
[*] Hol�k Martin <martin.holik(zv)vytahy(tec)com> - 15.1.2002 10:31:27
----- Original Message -----
From: Radek Cervinka <radek.cervinka(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, January 15, 2002 10:25 AM
Subject: Re: Karta s porty LPT a COM
> >Omlouv�m se za ot ale:
> >Pot�ebuji pomoct. Koupil jsem si kartu, kter� obsahuje porty pro
roz���en�
> 1x LPT a 2x COM. Tuto kartu se mi st�le ned�� >nainstalovat do WIndows 98.
> Pot�ebuji co nejd��ve poradit. V�robcem karty je podle krabice firma
> BUTTERFLY. Pot�eboval >bych bud nejake ovladace, nebo radu jak tuto kartu
> nainstalovat. Windows tuto kartu nadetekuji a hl�s� ji jako PCI
> >COMUNICATION DEVICE co� bych bral jako spr�vn�, ale u� ji pot� nenaleznou
> ovlada�e.
>
> Pokud neni ve spravci zarizeni, tak proste v ovladacich panelech pridat
novy
> HW, pokud to nevezme
> pluj&klej, tak zkusit autodekci,
> jinak az do HW neni v seznamu, vybrat , Porty COM a LPT a tam nastavit
> spravne IRQ, a adresu
> Mimochodem co rika BIOS pri bootu (kolik nasel COM a LPT)? Da se ta karta
> switchovat? A vubec...
>
> Radek
D�kuji za radu n�co z toho uz jsem zkusil zbytek ihned odzkou��m. BIOS p�i
bootu neukazuje,m ze by nalezl dalsi porty COM a LPT. Karta se switchovat
ned�. Je typu PCI. Vybr�n� port� LPT a COM ru�n� pova�uji sice za dobr�
n�pad, ale nev�m zaprv� jak� spr�vn� IRQ p�i�adit a zadruh� se p�i detekci
objev� pouze jedno nza��zen� a ne t�i.
Martin Hol�k
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.313 / Virov� b�ze: 174 - datum vyd�n�: 2.1.2002
Minimalizovana aplikace
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 15.1.2002 10:33:45
V pripade ze spustim aplikaci a v "procedure TForm1.FormShow(Sender:
TObject)" se odkazuji na
"BitBtn3Click(nil)" pod kterym mam
ZipMaster1.FSpecArgs.Clear;
.
.
ZipMaster1.UnLoad_Zip_Dll;
Application.Terminate;
najede aplikace v minimalizovan� podob�.
Poradi nekdo jak donutit aplikaci aby nabehla v normalnim okne?
Diky za rady
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Komunikace pres TCP/IP
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 15.1.2002 10:37:39
On Thu, 10 Jan 2002, Jaroslav ��pek wrote:
> Spis by me zajimalo, jak se programuje C/S aplikace,
> ktera komunikuje pomoci "socketu".
> Dival jsem se na demo program v D5 "Chat",
> ktery pouziva komponenty TClientSocket a TServerSocket,
> ale nejsem z toho dvakrat moudrej.
Pomoci tohoto ti vznikne propojeni, ktere se chova jakou roura, tj. co na
jedne strane zapises, na druhe strane dostanes a v tom poradi jak jsi
zapsal. Samozrejme pokud se spojeni rozpadne je ti oznamena chyba.
Pravdepodobnost vzniku chyby je podstatne vysi nez u zapisovani do
souboru.
> Priblizne tusim, jak to asi funguje,
> ale uvital bych, kdyby nekde na Internetu bylo
> nejake pojednani jak na takoveto aplikace,
> popr. pokud treba existuje nejaka kniha, ktera
> se timto zabyva. Jde mi o to, jestli existuji nejaka
> pravidla, jak se napr. navrhuje vlastni komunikacni
> protokol, jak se resi problemy se synchonizaci apod.
Nevim co myslim problem synchronizace, ale pokud jde o navrh protokolu
jsem nejlepe pro textovy format (nejlepe je hledat inspiraci v RFC (treba
SMTP, nebo HTTP)). Ma to tu vyhodu, ze pak lze misto klienta na
testovani pouzit telnet.
S pozdravem
Vladimir Michl
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� �dol�
tel: 068/5353548
GC, Delphi, OOP
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.1.2002 10:46:43
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Ptr mi puvodne ukazuje na zacatek pamtoveho bloku.
>
> // hlavicka
> Style := PDWORD(Ptr)^;
> ExtDlg := Style = $FFFF0001;
> if ExtDlg then // tady je rozdil ve verzich dialogu
> begin // nova verze
> DlgVer := PWord(Ptr)^;
> Inc(PWord(Ptr));
> Signature := PWord(Ptr)^;
> Inc(PWord(Ptr));
> HelpID := PDWord(Ptr)^;
> Inc(PDWord(Ptr));
> exStyle := PDWord(Ptr)^;
> Inc(PDWord(Ptr));
> Style := PDWord(Ptr)^;
> Inc(PDWord(Ptr));
> end else
> begin // stara verze
> Inc(PDWORD(Ptr));
> exStyle := PDWORD(Ptr)^;
> Inc(PDWORD(Ptr));
> end;
Sorry, nemam cas se tim do hloubky zabyvat, ale ja bych to psal (i v
Delphi !!) urcite pomoci streamu (az na tu konstantu v kodu - fuuuuj),
protoze ztrata vykonu by byla vzhledem k povaze aplikace minimalni
(kolik dialogu ctes z prumerne aplikace a kolik bys na tom ztratis
strojovych taktu? V podstate jen overhead s volanim metod):
with PEStream do
begin
Seek(...);
Style := ReadDWord;
ExtDlg := Style = $FFFF0001;
if ExtDlg then
begin
DlgVer := ReadWord;
Signature := ReadWord;
HelpID := ReadDWord;
exStyle := ReadDWord;
Style := ReadDWord;
end
else
begin
ReadDWord;
exStyle := ReadDword;
end;
***
Tim, ze se stringy neoperujes primo v bloku pameti napr. pomoci API
funkci lstrlen(), lstrcmp() atd., jak by se to psalo nejspis v C, ale
kopirujes si je do promenne typu WideString (prestoze pri tom
kopirovani nektere ty API funkce stejne pouzivas), se pripravujes o
podstatnou (jedinou) vyhodu low level
operaci s daty. Pak uz nasleduji jen nevyhody.
Napr. operace
sMenuName := PEStream.ReadWideString;
pak bude v podstate srovnatelne rychla s Tvym kodem
> SLen := StrLenW(PWChar(P));
> SetLength(Name, SLen);
> Move(P^, PWChar(Name)^, SLen * 2);
> Inc(PWChar(P), SLen + 1);***
Takze ja z Tve ukazky kodu mam dojem, ze pises low level zpusobem high
level operace. Kdybys na to pouzil vhodnou logickou abstrakci, na
vykonu bys ztratil minimum, ale z pohledu SW inzenyrstvi bys jenom
ziskal na srozumitelnosti, modifikovatelnosti, prenositelnosti atd.
***
Jinak jsem vazne docela busy, takze bych navrhoval tuto diskusi
ukoncit, protoze myslim, ze vse podstatne bylo receno a diskuse by
nutne musela mirit do
a) SW inzenyrstvi a kvantifikovat udrzovatelnost kodu (SW fyzika)
b) implementacnich detailu na urovni strojoveho kodu a srovnavat.
Diskuse a) by byla velmi zajimava, protoze se bezne bagatelizuje
(kdo nam bude co vykladat, jak se ma premyslet a jak se ma co
psat...),
diskuze b) by byla nejspis marenim casu, protoze podle mne kriteria
a) vyrazne prevysuji svoji hodnotou problematiku v bode b).
Na diskuzi a), prestoze mne mimoradne zajima a venuji se ji radu let,
bohuzel nemam dost casu.
Bye, pf
OT: Komercni software a Open Source - drive Varian
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.1.2002 10:47:45
Haj hou!
On 15 Jan 2002, at 0:37, Petr Zahradnik wrote:
> Puvodni zprava, kterou napsal Pavel Cisar dne 14 Jan 2002:
>
> > 1) Spektrum (typu) SW je velmi siroke, a stejne tak i zpusoby jak
> > je vytvaren a udrzovan. Vedle velkych producentu sw (Borland, MS,
> > SW602, Aktis) existuji i mali "zivnostnicci" (Petr Zahradnik), a
> > spousta sw se vytvari i ve velkych firmach primarne pro jejich
> > vlastni potrebu (banky, CEZ, Skodovka). Existuje sw "v krabicich"
> > (Delphi, Abra), sw ktery je "polokrabicovy" a vzdy se mirne upravuje na
> > miru konkretnimu zakaznikovi (SAP) a sw na zakazku. Kazdy typ firmy
> > (vyvoje) i sw ma sva specifika a zajete stereotypy, ktera se _nedaji_ v
> > plne mire aplikovat na ostatni druhy. Co je dobre pro jednoho, muze byt
> > pohroma pro druheho. Nasemi milemu Adminovi vyhovuji (kvalitni) komercni
> > komponenty, protoze mu umoznuji _rychle_ vytvaret ruzne druhy malych
> > aplikaci, coz je presne to, cim se zivi. Kdyby podobnym zpusobem delal
> > napr. Aktis svoji Abru, neobstal by v konkurenci. Stejne tak se nevyplati
> > napr. Skodovce kupovat 100+1 komercni knihovnu pro interni vyvoj, protoze
> > by to bylo celkove moc drahe atd. Takze pokud zrovna vy nespatrujete v
> > pouzivani Open Source pro _sebe_ zadne vyhodny, jeste to neznamena, ze pro
> > ostatni to neni "nejlepsi vec pod sluncem hned po predkrajenem chlebu".
>
> Pavle, kdyz jsem si precetl tento odstavec, tak jsem dospel k nazoru, ze
> mnohem vice nez o seriozni diskusi Ti jde o osobni napadani. Toho se
> nehodlam dale ucastnit a vyuzivam sveho prava na toto tema dale
> nereagovat... Ze nebudu reagovat vsak neznamena, ze s Tebou souhlasim.
I kdyz jsem se snazil najit cokoliv i "mezi radky" co by mohlo
pusobit jako osobni utok, nic jsem nenasel. To samozrejme
neznamena, ze tam nic takoveho nikdo nemuze najit. Kazdopadne
jsem svuj prispevek nepsal s umyslem (ani skrytym) nekoho
napadat nebo se nekoho dotknout. Pokud se tak stalo, tak se
hluboce omlouvam.
Petre, jedine o co mi v tomto odstavci slo, bylo ilustrovat typy
vyvoje / potreb vyvojaru zpusobem blizkym a srozumitelnym
ucastnikum teto konference. Co naplat, ty jsi "nejviditelnejsi a
nejznamejsi" zastupce kategorie vyvojaru, kteri potrebuji _rychle_ a
s _minimalnim usilim_ vytvaret a udrzovat spoustu _malych_
aplikaci (tim myslim radove v desitkach tisich radku, nikoliv v
milionech nebo desitkach milionu radku). Tato kategorie je
charakteristicka omezenymi zdroji (pokud vim, tak vsechno pises
sam) a vetsim poctem _ruznych_ nebo _modifikovanych_ aplikaci.
V teto kategorii ani _nelze_ postupovat jinak nez RAD technikami,
protoze by to clovek drive ci pozdeji proste neustihal, o nejakem
zapojeni se nebo i pouhem sledovani vyvoje pouzitych knihoven ani
nemluve.
Na druhou stranu firma s tymem vyvojaru a vyvojem jednoho
produktu rozplanovanym na nekolik let je v uplne jine pozici. Pokud
by napr. pouzili INDY jako _kritickou_ soucast produktu, bylo by
pro ne vyhodne vyclenit jednoho cloveka z tymu, aby se podilel na
vyvoji nebo ho treba jen i podrobne a z blizka sledoval (investice
casu). Tak by ziskali nejen experta na INDY (k nezaplaceni), ale i
vliv na dalsi vyvoj INDY knihovny, o rychlejsim opravovani chyb a
problemu ktere naleznou nemluve. Tohle napr. treba udelala
Nevrona s INDY, jenze ti rovnou "koupili" hlavniho vyvojare :-).
Naklady minimalni, zisk vyznamny. Takove firmy maji navic i
kapacity na vlastni vyvoj, proto casto upravuji (treba i zakoupene)
komponenty nebo vytvareji nove. Potrebuji totiz vytvorit produkt
nejen rychle (tady ovsem v horizontu cloveko let, nikoliv mesicu
nebo tydnu), ale predevsim kvalitne a _odlisne_ od pripadne
konkurence. Takove firmy navic casto vytvareji sw ktery se da
tezko zaskatulkovat (a tudiz na nej _nejsou_ vhodne komponenty,
nebo je nutne je alespon upravit). To same se da rici i o _internim_
vyvoji v podnicich a institucich. Cas _neni_ az tak rozhodujici,
dulezita je funkcnost (casto velmi specificka) a udrzovatelnost
casto _velmi_ komplexniho sw po _velmi_ dlouhou dobu. Naroky
na kvalitu a udrzovatelnost sw jsou take jine u sw ktery je urcen
pro jednotlive zakazniky, pro desitky zakazniku a pro tisice nebo
desitky tisic zakazniku (je to funkce komplexnosti a poctu instalaci
:-)
Suma sumarum, kazda kategorie vyvoje ma jine _moznosti_ a
zdroje, a jine _pozadavky_, resp. kriteria vhodnosti a nevhodnosti.
To co je nevyhodne treba pro tebe nebo pro me, _muze_ byt pro
jineho velmi vyhodne a naopak.
Reagovat samozrejme nemusis. Ja nemam nejmensi potrebu
zmenit tebe nebo zpusob tve prace (co bych z toho mel ?), jen se
snazim poukazat na skutecnost, ze tvuj pohled na vec neni jediny
spravny, resp. co je rozhodujici kriterium pro tebe, nemusi byt
rozhodujici pro jine a obracene.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
OT: Karta s porty LPT a COM
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.1.2002 10:55:47
Na karte urcite najdes FCC:ID, podle ktereho se da najit skutecny
vyrobce (pokud to neni ceska firma)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
15.1.2002 Hol�k Martin:
> Omlouv�m se za ot ale:
> Pot�ebuji pomoct. Koupil jsem si kartu, kter� obsahuje porty pro
> roz���en� 1x LPT a 2x COM. Tuto kartu se mi st�le ned�� nainstalovat
> do WIndows 98. Pot�ebuji co nejd��ve poradit. V�robcem karty je
> podle krabice firma BUTTERFLY. Pot�eboval bych bud nejake ovladace,
> nebo radu jak tuto kartu nainstalovat. Windows tuto kartu nadetekuji
> a hl�s� ji jako PCI COMUNICATION DEVICE co� bych bral jako spr�vn�,
> ale u� ji pot� nenaleznou ovlada�e.
OT: Komercni software a Open Source - drive Varian
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 15.1.2002 10:57:41
> Pavle, kdyz jsem si precetl tento odstavec, tak jsem dospel k nazoru, ze
> mnohem vice nez o seriozni diskusi Ti jde o osobni napadani. Toho se
> nehodlam dale ucastnit a vyuzivam sveho prava na toto tema dale
> nereagovat... Ze nebudu reagovat vsak neznamena, ze s Tebou souhlasim.
precetl jsem ten Pavluv cely dopis pomalu i pozpatku a rozhodne jsem
tam nenasel nic co by vypadalo jako osobni napadani, ba naopak to
povazuji za velmi kvalitni a objektivni pojednani o OpenSourcu. To,
ze Petr eni zrovna zurivym zastancem OS neznamena, ze jakekoliv
podnani o OS je utokem na Petra... ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.OT: Komercni software a Open Source - drive Varian
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.1.2002 11:07:29
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Suma sumarum, kazda kategorie vyvoje ma jine _moznosti_ a
> zdroje, a jine _pozadavky_, resp. kriteria vhodnosti a nevhodnosti.
> To co je nevyhodne treba pro tebe nebo pro me, _muze_ byt pro
> jineho velmi vyhodne a naopak.
Malou poznamku: tato cela problematika se v oblasti SW inzenyrstvi
vetsinou oznacuje jako"klicove rozhodnuti - prevzit nebo vyvijet".
Z tohoto pohledu je Open Source jen jeden z moznych kandidatu na
prevzeti existujiciho reseni, ktery ma urcite vlastnosti a je na
rozhodnuti managementu konkretniho projektu, jestli se jim tam hodi
nebo ne a jsou ochotni za nej nest zodpovednost.
Bye, pf
PPChangePasword
[*] �imek Ji�� <Jiri.Simek(zv)czech-tv(tec)cz> - 15.1.2002 11:18:52
DD,
nejak me hapruje volani fce PPChangePassword z knihovny NWNP32.dll - zmena
hesla na Novellu.
Vraci me to chybu $4B8 - Doslo k rozsirene chybe. Co to je "rozsirena chyba"
?
Pritom volani PPChangePassword z MSNP32.dll funguje dobre (zmena hesla v
siti MS).
Delphi6, Win98SE, sit MS + Novell.
Nezkouseli ste to nekdo? Vite jak na to?
Diky, JirkaS
OT: Komercni software a Open Source - drive Varian
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 15.1.2002 12:24:56
-----Original Message-----
precetl jsem ten Pavluv cely dopis pomalu i pozpatku a rozhodne jsem
tam nenasel nic co by vypadalo jako osobni napadani, ba naopak to ...
-- Lukas Gebauer.
> > je vytvaren a udrzovan. Vedle velkych producentu sw (Borland, MS,
> > SW602, Aktis) existuji i mali "zivnostnicci" (Petr Zahradnik), a
Asi jsi cetl spatne. Pokud nekdo napise "zivnostnici", tak je to v poradku.
Pokud nekdo napise "zivnostnicci" (Petr Zahradnik), tak to zavani
pejorativnim vyznamem a asi ani Tobe by se to nelibilo.
Pokud leta budujes firmu - byt jenom "One-Man" a ziskal jsi jmeno a pozici,
tak pojmenovani "zivnostnicek" nezni ferove. Bez ohledu na to, jak to Pavel
myslel, tak to napsal spatne. IHMO.
Dalsi veci je obsahova napln.
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Karta s porty LPT a COM
[*] Chytil <chytil4(zv)kn.vutbr(tec)cz> - 15.1.2002 12:35:59
Pokud je ta karta Plug&Play,
mela by se v Biosu detekovat. Pokud nic nepomuze, zkuste v biosu najit P&P
setup a v nem polozku "reset PNP data" ... nebo nejak tak (zalezi na biosu).
To biosu reknete, ze se ma pokusit znovu nadetekovat vsechny karty a znovu
jim priradit IRQcka...
Pak by se po restartu mel karta objevit ve vypisu karet...
A jeste jedna vec znama u woken... Pokud to bude zlobit, muzete kartu v tom
spravci souboru odebrat. Ale POZOR, potom je vhodne restartovat do NOUZOVEHO
REZIMU (F5 pri startu) a tam tu kartu odebtrat take ... Jinak se ji nemusi
povest spravne nadetekovat... Tohle vetsinou zabere, i kdyz hlavne u
zvukovek... ale kdo vi... :)
A jeste jedna vec... u nekterych desek zalezi, ve kterem slotu je karta
zasunuta.Podle toho se ji pak priradi IRQ ...
S pozdravem a nervum zdar ... Tonda.
----- Original Message -----
From: "Hol�k Martin" <martin.holik(zv)vytahy.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, January 15, 2002 10:31 AM
Subject: Re: Karta s porty LPT a COM
>
> ----- Original Message -----
> From: Radek Cervinka <radek.cervinka(zv)centrum(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Tuesday, January 15, 2002 10:25 AM
> Subject: Re: Karta s porty LPT a COM
>
>
> > >Omlouv�m se za ot ale:
> > >Pot�ebuji pomoct. Koupil jsem si kartu, kter� obsahuje porty pro
> roz���en�
> > 1x LPT a 2x COM. Tuto kartu se mi st�le ned�� >nainstalovat do WIndows
98.
> > Pot�ebuji co nejd��ve poradit. V�robcem karty je podle krabice firma
> > BUTTERFLY. Pot�eboval >bych bud nejake ovladace, nebo radu jak tuto
kartu
> > nainstalovat. Windows tuto kartu nadetekuji a hl�s� ji jako PCI
> > >COMUNICATION DEVICE co� bych bral jako spr�vn�, ale u� ji pot�
nenaleznou
> > ovlada�e.
> >
> > Pokud neni ve spravci zarizeni, tak proste v ovladacich panelech pridat
> novy
> > HW, pokud to nevezme
> > pluj&klej, tak zkusit autodekci,
> > jinak az do HW neni v seznamu, vybrat , Porty COM a LPT a tam nastavit
> > spravne IRQ, a adresu
> > Mimochodem co rika BIOS pri bootu (kolik nasel COM a LPT)? Da se ta
karta
> > switchovat? A vubec...
> >
> > Radek
>
> D�kuji za radu n�co z toho uz jsem zkusil zbytek ihned odzkou��m. BIOS p�i
> bootu neukazuje,m ze by nalezl dalsi porty COM a LPT. Karta se switchovat
> ned�. Je typu PCI. Vybr�n� port� LPT a COM ru�n� pova�uji sice za dobr�
> n�pad, ale nev�m zaprv� jak� spr�vn� IRQ p�i�adit a zadruh� se p�i detekci
> objev� pouze jedno nza��zen� a ne t�i.
> Martin Hol�k
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.313 / Virov� b�ze: 174 - datum vyd�n�: 2.1.2002
SYNAPSE a chyba 10054-Connection reset by peer
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 15.1.2002 12:38:42
> > Jonas Marian napsal
> >
> > pouzivam TTCPBlockSocket pro komunikaci se serverem, navazu pres
> > Connect spojeni a posilam data pres RecvString/SendString, to je
> > v pohode. Server ma ale tu vlastnost, ze klienty kteri jsou delsi
> > dobu nez 5 minut v necinosti, odstreli. Takze na klientovi mi pri
> > dalsim SendString vyskoci chyba 10054. Proto se ptam, lze nejak
> > PRED odeslanim SendString zkontrolovat jestli je soket pripojeny ?
>
> Gebauer Lukas napsal
>
> Jestli spojeni zije ci nezije lze zjistit jen tim, ze se pokusis
> komunkovat. respektive pripadny test by to nemohl zjistit jinak...
>
> lze sice zistovat, jestli spojeni bylo ukonceno korektne (canread
> signalizuje true a zaroven Waitingdata = 0), nicmene pro spojeni,
> ktere nebylo ukonceno korektne ti to stejne nepomuze. proto jako
> univeralni a trotlzichr detekci ziveho spojeni slouzi pouze a jedine
> kontrolovani LastError po send ci recv operaci.
>
> > Samozrejme muzu testovat LastError = ... a pak davat znovu Connect
> > a SendString, ale to se mi moc nelibi.
>
>
> No, a jak by se ti to libilo? Pokud tvoje libustka bude
> realizovatelna, tak to mozna tak udelam. ;-)
>
Dobre udelam to pres to LastError, ale mam dotaz. Pokud budu chtit
odeslat 10kB dat a vrati mi to LastError=10054, co se stalo s temi
10kB ? Zustaly na stanici, ktera se snazila je odeslat, nebo se
protlacily pres sit na stanici prijemce, nebo zustaly nekde v siti ?
Ptam se proto, ze ty data se posilaji nejen pres LAN/MAN ale i pres
LAN site a dokonce i pres RAS spojeni. Takze bych byl docela nerad,
kdyby se ty data poslaly pres sit, pak by to vyhodilo 10054 a posilalo
se to cele znova.
Marian Jonas
SYNAPSE a chyba 10054-Connection reset by peer
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 15.1.2002 12:46:24
> Dobre udelam to pres to LastError, ale mam dotaz. Pokud budu chtit
> odeslat 10kB dat a vrati mi to LastError=10054, co se stalo s temi
> 10kB ? Zustaly na stanici, ktera se snazila je odeslat, nebo se
> protlacily pres sit na stanici prijemce, nebo zustaly nekde v siti ?
>
> Ptam se proto, ze ty data se posilaji nejen pres LAN/MAN ale i pres
> LAN site a dokonce i pres RAS spojeni. Takze bych byl docela nerad,
> kdyby se ty data poslaly pres sit, pak by to vyhodilo 10054 a posilalo
> se to cele znova.
Tak to zjistit neumim, protoze to hodne zavisi na tom, jak
systemodesilane data rzdrobil do packetu (mnou nijak neovlivnitelne),
a stejne tak nezjistit, na ktery konkretni packet se to zazlobilo...
Tedy neumim nijak zjistit kolik dat se skutecne odeslalo nez nastala
chyba. leda ze bys to odesilal byte po bytu, coz by bylo ale mnohem
omalejsi, nez kdyz odesles tech deset kilo znovu.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.GC, Delphi, OOP
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 15.1.2002 12:50:05
On 15 Jan 2002 at 10:46, Petr Fejfar wrote:
> > Ptr mi puvodne ukazuje na zacatek pamtoveho bloku.
> >
> > // hlavicka
> > Style := PDWORD(Ptr)^;
> > ExtDlg := Style = $FFFF0001;
> > if ExtDlg then // tady je rozdil ve verzich dialogu
> > begin // nova verze
> > DlgVer := PWord(Ptr)^;
> > Inc(PWord(Ptr));
> > Signature := PWord(Ptr)^;
> > Inc(PWord(Ptr));
> > HelpID := PDWord(Ptr)^;
> > Inc(PDWord(Ptr));
> > exStyle := PDWord(Ptr)^;
> > Inc(PDWord(Ptr));
> > Style := PDWord(Ptr)^;
> > Inc(PDWord(Ptr));
> > end else
> > begin // stara verze
> > Inc(PDWORD(Ptr));
> > exStyle := PDWORD(Ptr)^;
> > Inc(PDWORD(Ptr));
> > end;
>
> Sorry, nemam cas se tim do hloubky zabyvat, ale ja bych to psal (i v
> Delphi !!) urcite pomoci streamu (az na tu konstantu v kodu - fuuuuj),
> protoze ztrata vykonu by byla vzhledem k povaze aplikace minimalni
> (kolik dialogu ctes z prumerne aplikace a kolik bys na tom ztratis
> strojovych taktu? V podstate jen overhead s volanim metod):
V C aplikaci takovych dialogu byvaji desitky. Kdyz si k tomu prictu
jeste to, ze musim vsechny texty porovnat se slovnikem, tak dohromady
pri neefektivnim programovani jak cteni dialogu, tak i prace se
slovnikem by casovy rozdil byl dost viditelny.
> with PEStream do
> begin
> Seek(...);
> Style := ReadDWord;
> ExtDlg := Style = $FFFF0001;
> if ExtDlg then
> begin
Tady by ses musel nejdriv vratit o 4 zpet. Kazdopadne bys musel
uvnitr streamu stejne pracovat s pointerem, pokud by to melo byt
aspon trochu efektivni.
> DlgVer := ReadWord;
> Signature := ReadWord;
> HelpID := ReadDWord;
> exStyle := ReadDWord;
> Style := ReadDWord;
> end
> else
> begin
> ReadDWord;
> exStyle := ReadDword;
> end;
>
> ***
>
> Tim, ze se stringy neoperujes primo v bloku pameti napr. pomoci API
> funkci lstrlen(), lstrcmp() atd., jak by se to psalo nejspis v C, ale
> kopirujes si je do promenne typu WideString (prestoze pri tom
> kopirovani nektere ty API funkce stejne pouzivas), se pripravujes o
> podstatnou (jedinou) vyhodu low level operaci s daty. Pak uz nasleduji
> jen nevyhody.
>
> Napr. operace
>
> sMenuName := PEStream.ReadWideString;
>
> pak bude v podstate srovnatelne rychla s Tvym kodem
Jenze takhle to nejde, protoze tam mohou nastat 3 stavy. Bud tam neni
nic (2 bajty), nebo je tam cislo (4 bajty), nebo je tam text (delka
textu + 1 [ukoncovaci nula] * 2 [unicode]). Takze bych se stejne
nevyhnul testu, zda mam naplnit retezec nebo cislo. Uz takhle je to
krkolomne, v streamu by to bylo jeste horsi.
> > SLen := StrLenW(PWChar(P));
> > SetLength(Name, SLen);
> > Move(P^, PWChar(Name)^, SLen * 2);
> > Inc(PWChar(P), SLen + 1);
>
>
> ***
>
> Takze ja z Tve ukazky kodu mam dojem, ze pises low level zpusobem high
> level operace. Kdybys na to pouzil vhodnou logickou abstrakci, na
> vykonu bys ztratil minimum, ale z pohledu SW inzenyrstvi bys jenom
> ziskal na srozumitelnosti, modifikovatelnosti, prenositelnosti atd.
Jo, kdybych si pro temer kazdy resource napsal specialni stream,
ktery by vychytal ruzne odchylky (take zarovnani bloku atp.), a ktery
by uvnitr pracoval uplne stejne, jako to mam ted. :-)
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Komunikace pres TCP/IP
[*] Jaroslav ��pek <jaroslav.sipek(zv)idea(tec)cz> - 15.1.2002 13:02:32
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vladimir Michl
>
> Nevim co myslim problem synchronizace, ale pokud jde o navrh protokolu
> jsem nejlepe pro textovy format (nejlepe je hledat inspiraci
> v RFC (treba
> SMTP, nebo HTTP)). Ma to tu vyhodu, ze pak lze misto klienta na
> testovani pouzit telnet.
Tim jsem myslel napr. vlastnost ClientType = (ctBlocking, ctNonBlocking).
Kdy je vhodne pouzit napr. ctBlocking. V tech par malo prikladech co jsem
nasel bylo vzdy pouzito ctNonBlocking.
S pozdravem
Jaroslav Sipek
GC, Delphi, OOP
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.1.2002 13:34:34
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Tady by ses musel nejdriv vratit o 4 zpet. Kazdopadne bys musel
> uvnitr streamu stejne pracovat s pointerem, pokud by to melo byt
> aspon trochu efektivni.
Proc? Tak bych misto ReadDword pouzil PeekDWord, to neni prece nic
neobvykleho.
Ano, v Delphi nic jineho nezbyva, ale ty pointerove operace by byly
soustredeny na jedinem miste a ne ze jich bude plna aplikace, takze
kdybys nedej boze musel napr. delat to co my, tj. prevracet endian,
tak by ses dost zapotil.> Jenze takhle to nejde, protoze tam mohou nastat 3 stavy. Bud tam
neni
To taky nebyl prepis Tve funkce LoadOrdName(), pouze poukazani na to,
ze nejdrazsi operace v Tvem kodu je srovnatelna i s objektovym
pristupem, protoze ztracis vyhodu low level pristupu jalovym
(=nefunkcnim) presunem WideStringu z pameti do promenne, misto abys
zustal na low level urovni a operoval dal jen s pointerem, jako se to
dela v Cecku. Ta rozhodovaci logika okolo uz to nijak vyznamne
neovlivni resp, jeji cena se a) srovnatelna b) pripadna odchylka je
zanedbatelna vuci celkove cene operace.> Jo, kdybych si pro temer kazdy resource napsal specialni stream,
Existuje prece dedicnost, takze tech specializaci by zase nebyla tak
mnoho -ostatne s kolika datovymi typy potrebujes operovat? Tech je jen
par.
Uznavam, ze v Delphi by to byla zpocatku prace navic, ale do budoucna
by semnohokrat vratila.> ktery by vychytal ruzne odchylky (take zarovnani bloku atp.), a
ktery
> by uvnitr pracoval uplne stejne, jako to mam ted. :-)
Tak by to byl slusne napsany, srozumitelny a snadno udrzovatelny
program a IMHO nic nestalo v ceste ho taky tak napsat i v Delphi ;-).
A nejspis by zabralo i mene casu ho napsat, protoze bys logiku
odstinil od konretni reprezentace dat.
Bye, pf
Prevody grafickych formatu
[*] <aldik(zv)quick(tec)cz> - 15.1.2002 13:37:54
Ahoj kluci nemeli by jste nejake informace o grafickych formatech,pripadne
nejakou knihovnu ktera by podporovala prevody mezi formaty gif,tiff,pcx atd.
Chtel bych si vytvorit vlastni komponenty pro prevody grafiky,neporadil by jste
mi nekdo alespon link,nebo i prakticke informace:-))
Dekuji
Ales Pavel
W2000 D5 Ent
Prevod Null na 0 z Accessu
[*] mstevlik(zv)gamo.sk - 15.1.2002 13:44:02
Pises ze si vytvoris Query v Delphi, a to si do toho Selectu nevies dopisat
podmienku Where (Datum=nejaky_datum)?
Odporucil by som ti pozriet ako Access zapise do Query datum, je to cez #
Stevlik Marian
ISYS programator
GAMO a.s., Banska Bystrica
+421 48 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
"Patrik
Caslavsky" To: <delphi-l(zv)clexpert(tec)cz>
<patrisfw(zv)centru cc:
m(tec)cz> Subject: Re: Prevod Null na 0 z Accessu
Sent by:
delphi-l-owner(zv)c
lexpert(tec)cz
15.01.2002 08:39
Please respond
to delphi-l
To jsem taky zkousel, ale neslo to. Jak to narazilo na tu funkci, tak to
hodilo chybu. Zkusim jeste pouzit radu na pouziti Select TvojeFieldy,
iif(IsNull(TvojField),0,TvojField) From TvojaTab.
Ale jak by slo volat Query v Accessu, ktere ma nejaky parametr? Napriklad
potrebuji spustit dotaz pro urcity den. Delam to proto v Delphi, kde cely
dotaz sestavim a pak spustim. Jak lze poslat parametr pri spousteni dotazu
z Delphi do Accessu?
>No a co si udelat v Accessu Query a na tu se pak z Delphi divat ?
>> -----P�vodn� zpr�va-----
>> Od: patrisfw(zv)centrum(tec)cz
>>
>> Potrebuji poradit, jak mam pomoci SQL zajistit, ze jako
>> vysledek dotazu u polozek, ktere jsou NULL bude cislo 0?
>> V Accessu je funkce NZ(), ktera umi presne to, co chci. Napriklad:
>> SELECT ... NZ(hodnota,0)
>> Kdyz tuto funkci pouziji primo v Accessu, tak to funguje.
>> Takto napsany dotaz mi nelze spustit z Delphi. Zkousel jsem i
>> nahradit NZ() za ISNULL(), ale nic. Jakym zpusobem to jde udelat?
-----
Nov� vyhled�va� pro �esk� internet www.webfast(tec)cz - prost� najde ...Licence Borland
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 15.1.2002 13:44:14
Zajimave cteni...
http://freshmeat.net/articles/view/369/
Jeste ze mame "stare" D4 ;-)
Mira
Ukonceni aplikace
[*] <aldik(zv)quick(tec)cz> - 15.1.2002 13:55:13
Ja vim ze se to tu furt probira,ale nemohu to nejak najit.
Jak zjistim jestli uz bezi instance me aplikace a ukoncim ji a nakonec zavre i
sama sebe?(No ten konec bych umel:-))
Ales Pavel
W2000 D5 Ent
Karta s porty LPT a COM
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 15.1.2002 14:05:50
----- Original Message -----
From: "Hol�k Martin" <martin.holik(zv)vytahy.com>
> PCI COMUNICATION DEVICE co� bych bral jako spr�vn�, ale u� ji pot�
nenaleznou ovlada�e.
Ahoj.
To to k tomu neprodali CD s ovladacema ?.
IMHO to bez spec. ovladacu to chodit nebude a nepomuzou Ti zadan kouzla s
IRQ PnP a pod.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
OT: Komercni software a Open Source - drive Varian
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 15.1.2002 14:12:22
----- Original Message -----
From: "Erik Salaj" <winsoft(zv)stonline.sk>
>
> tak mi posli ten mobil za 1kc
>
http://www.eurotel(tec)cz/eurotel/Site/telefony/phone.html?ID=135
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
FB SP dostatky premennych ?
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.1.2002 14:17:53
Je to stored procedure ktora sa spusta v triggru AFTER Insert, Update,
Delete.
R.
----- Original Message -----
From: "Kaka�ka Pavol" <kakacka(zv)proca(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, January 14, 2002 5:11 PM
Subject: Re: FB SP dostatky premennych ?> Neni lepsie to riesit v BeforeUpdate trigru?
>
> Kaka�ka Pavol
> KasiX(zv)atlas(tec)cz
>
> From: "Roland Turcan" <rolo(zv)sedas.sk>
> > ide mi o to aby nevracal v ciselnych stlpcoch NULL ale peknu 0;
> > v scripte pokracujem takto:
> >
> > IF ((PRVY=0) or (DRUHY=0) or (TRETI=0) or (STVRTY=0)) THEN
> > BEGIN
> > DELETE FROM TABULKA WHERE ID=:ZAZNAM;
> > EXIT;
> > END
> >
> > UPDATE TABULKA SET PRVY=:PRVY, DRUHY=:DRUHY, TRETI=:TRETI,
STVRTY=:STVRTY
> > WHERE ID=:ZAZNAM;
> >
> > a zaujimave je ze do zaznamu tabulky ktory sa opravoval za zapisali nuly
> > alebo zaznam nebol preruseny a ukoncena procedura. Co vy na to ?
>
>Timer
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 15.1.2002 14:19:11
Poradi nekdo jakym zpusobem zjistim jake hodnoty Timer dosahl od spusteni?
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
FB SP dostatky premennych ?
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.1.2002 14:19:42
From: "Alex Cherednichenko" <cherednichenko(zv)wo(tec)cz>
Sent: Monday, January 14, 2002 6:38 PM
> Hello, Roland!
> You wrote :
>
> [Skipped]
> RT> IF ((PRVY=0) or (DRUHY=0) or (TRETI=0) or (STVRTY=0)) THEN
> RT> BEGIN
> RT> DELETE FROM TABULKA WHERE ID=:ZAZNAM;
> RT> EXIT;
> RT> END
>
> Precti manual ohledne EXIT.
> Ten je zbytecny !
>
>
> With best regards, Alex Cherednichenko.
>
Nie je mi jasne co mas s EXITom ten je nepodstatny. :-)
Roland.
SYNAPSE a chyba 10054-Connection reset by peer
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 15.1.2002 14:21:57
----- Original Message -----
From: "Jon� Mari�n" <Jonas(zv)komercpoj(tec)cz>
>
> Dobre udelam to pres to LastError, ale mam dotaz. Pokud budu chtit
> odeslat 10kB dat a vrati mi to LastError=10054, co se stalo s temi
> 10kB ? Zustaly na stanici, ktera se snazila je odeslat, nebo se
> protlacily pres sit na stanici prijemce, nebo zustaly nekde v siti ?
>
> Ptam se proto, ze ty data se posilaji nejen pres LAN/MAN ale i pres
> LAN site a dokonce i pres RAS spojeni. Takze bych byl docela nerad,
> kdyby se ty data poslaly pres sit, pak by to vyhodilo 10054 a posilalo
> se to cele znova.
Ahoj.
IMHO tohle neni veci TCP/IP, tohle je potreba osetrit u prijemce a posilat
si requesty o prubehu resp spravnosti prijmu dat.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
Karta s porty LPT a COM
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.1.2002 14:24:03
> D�kuji za radu n�co z toho uz jsem zkusil zbytek ihned odzkou��m.
BIOS p�i
> bootu neukazuje,m ze by nalezl dalsi porty COM a LPT.
to muze znamenat, ze karta nema vlasti BIOS nebo doslo ke kolizi
nastaveni (u PCI karty
bych ale cekal spis tu prvni variantu)
>Karta se switchovat
> ned�. Je typu PCI. Vybr�n� port� LPT a COM ru�n� pova�uji sice za
dobr�
> n�pad, ale nev�m zaprv� jak� spr�vn� IRQ p�i�adit a zadruh� se p�i
detekci
> objev� pouze jedno nza��zen� a ne t�i.
zkusil bych cvicne vypnout LPT a COM co jsou standardne v tom PC
(zrejme
na boardu - cili vypnout v setupu). Pokud se pak ve Windows karta
rozebehne
budes aspon vedet ze je funkcni...
D. Toman
SYNAPSE a chyba 10054-Connection reset by peer
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.1.2002 14:31:44
> Dobre udelam to pres to LastError, ale mam dotaz. Pokud budu chtit
> odeslat 10kB dat a vrati mi to LastError=10054, co se stalo s temi
> 10kB ? Zustaly na stanici, ktera se snazila je odeslat, nebo se
> protlacily pres sit na stanici prijemce, nebo zustaly nekde v siti ?
pokud send() selze pak zadny byte dat, ktery byl touto funkci
predavan k odeslani neprosel na druhou stranu. Send() pouze kopiruje
data
do bufferu, ktery ma system vyclenen pro obsluhu socketu. Pokud neni v
systemovem bufferu misto send() bude cekat dokud se neuvolni nebo
nedojde k
chybe (non-blocking mode socket vyvola "chybu" WSAEWOULBLOCK hned).
Pokud je socket ve stavu kdy doslo k nejake chybe (spojeni zruseno)
send() ihned
nahlasi prislusnou chybu
Data, ktera uz byla TCP/IP stacku predana k odeslani drive (drive
volanym send())
mohla ale take nemusela byt vsechna odeslana.
Vyse uvedene plati za beznych okolnosti (pokud nekdo nastavi socket
tak, aby
odesilal data pouze s user bufferu (cili nepouzival dalsi systemovy
buffer) pak se to
bude chovat jinak.
D. Toman
Karta s porty LPT a COM
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 15.1.2002 14:40:00
>Ahoj.
>To to k tomu neprodali CD s ovladacema ?.
>IMHO to bez spec. ovladacu to chodit nebude a nepomuzou Ti zadan kouzla s
>IRQ PnP a pod.
>
Pokud jsou to standardni porty (jako ze asi jo) tak jsou ovladace v oknech.
Proste se prodavaji rozsirujici karty pro ty co chteji mit vic jak 2 ser.
nebo
1 par port. Na to nepotrebujes ovladace. Nekolikrat jsem to potrreboval
a bylo to OK. Jen v NT se musi upravit v registru hodnota povolujici sdileni
IRQ.
Ja jsem tak mel v pocitaci 6 Comu.
Howgh.
Radek
GC, Delphi, OOP Was: jak na navratovou hodnotu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 14:42:05
From: "Erik Salaj" <winsoft(zv)stonline.sk>
> hovoril som o nizkourovnovych aplikaciach. Napr. C-cko sa zvykne
> pouzivat ako urcita nahrada assemblera, povedzme existuju kompilatory,
> ktore prekladaju do C-cka a pod. Delphi na nizkourovnove aplikacie,
> kde sa obvykle pozaduje tesna vezba so systemom (napr. specialny
> startovaci kod aplikacie, moznost pouzivat specialne segmenty v PE
> subore, ci specialny run-time kod) vhodne nie je, taketo moznosti
> tam jednoducho chybaju.
Jenze tohle si trochu protireci. Pojem aplikace muzeme ve Win32 chapat jako to
co se spousti pomoci CreateProcess, bezi v dolni polovine adresoveho prostoru
procesu (s prioritou Ring3). Cokoli jineho co vyzaduje specialni RTL kod nebo
jine informace v PE souboru nez plati pro aplikaci uz neni aplikace ale driver
kde jsou samozrejme uplne jine pozadavky na vyvojovy nastroj.
Petr Vones
"Client", SQLtabulka, D5(D6) a DBE(??) ???
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 15.1.2002 14:44:46
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ing. Ji�� SOKOL
> Sent: Monday, January 14, 2002 6:31 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE:"Client", SQLtabulka, D5(D6) a DBE(??) ???
>
> FlashFiler?
>
> neznam, muze mi ho nekdo priblizit, prosim. O co jde, co umi, jak
> jde ziskat, jake jsou licencni podminky, dokaze nahradit BDE, atd.
>
Napr. tady http://www.clexpert(tec)cz/software/turbopower/flashfiler.asp
nebo hlavne na http://www.turbopower.com/
Ing. Igor Vodicka
informacni systemy
Nakladatelstv� Sagit, Horni 1, 700 30 Ostrava-Hrabuvka
Tel.: 069 67 85 999 , Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.313 / Virov� b�ze: 174 - datum vyd�n�: 2.1.2002
OT Karta s porty LPT a COM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 14:45:44
From: "Hol�k Martin" <martin.holik(zv)vytahy.com>
> Pot�ebuji pomoct. Koupil jsem si kartu, kter� obsahuje porty pro roz���en�
> 1x LPT a 2x COM. Tuto kartu se mi st�le ned�� nainstalovat do WIndows 98.
Ahoj,
pokud se nejedna o kartu se standardnim UART tak k tomu potrebujes specialni
driver od vyrobce. V pripade karty s beznymi porty se podivej jestli jsou tam
nejake jumpery a s pouzitim dokumentace to nastav. Zadne dalsi veci s BIOSem a
IRQ nejsou treba.
Petr Vones
Soubor delphi32.dmt
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 15.1.2002 14:47:49
D5. WNT4 SP6
Pri otvirani Delhpinu mu nejde otevrit %subj%? Zacalo to pote, co jsem si
nainstaloval SiSoft Sandru z Chipu. Po odinstalaci Sandry problem zustal. Co
s tim mam udelat (krom preinstalace Delph a WNT, cob by nebylo vubec
ftipne)?
Sroub
Prevody grafickych formatu
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 15.1.2002 14:47:47
http://www.torry.net/graphicspacks.htm
http://www.torry.net/otherformats.htm
a vubec se porozhlidni na torry.net
>Ahoj kluci nemeli by jste nejake informace o grafickych formatech,pripadne
>nejakou knihovnu ktera by podporovala prevody mezi formaty gif,tiff,pcx
atd.
>Chtel bych si vytvorit vlastni komponenty pro prevody grafiky,neporadil by
jste
>mi nekdo alespon link,nebo i prakticke informace:-))
Timer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 14:49:23
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Poradi nekdo jakym zpusobem zjistim jake hodnoty Timer dosahl od spusteni?
Ahoj,
nijak, timer pouze vlozi do fronty zpravu WM_TIMER v dobe na kterou byl
nastaven, to je vse.
Petr Vones
Karta s porty LPT a COM
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 15.1.2002 14:57:49
----- Original Message -----
From: "Radek Cervinka" <radek.cervinka(zv)centrum(tec)cz>
> Pokud jsou to standardni porty (jako ze asi jo)
Vzhledem k tomu co pise autor :
> Windows tuto kartu nadetekuji a hl�s� ji jako PCI COMUNICATION DEVICE
tak jako ze asi ze NE :)
Takze jak jsem psal. Sehnat si ovladace.
Ja mam napriklad dva COMy navic a sedi v :
Multifunk�n� adapt�ry -> PCI 4036A Multi- I/O Adapter
Porty (COM a LPT) -> PCI serial port (COM3)
Porty (COM a LPT) -> PCI serial port (COM4)
Pak mam podobny LPT port navic a ten sedi v :
Multifunk�n� adapt�ry -> PCI 4008A Multi- I/O Adapter
Porty (COM a LPT) -> PCI Paralel Port (LPT2)
Howg.Howg.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
BDE - KeyViolation
[*] Str�n�k Franti�ek - 15.1.2002 15:10:54
Da se to udelat vice zpusoby , ale jak nejlepe (nejefektivneji) napsat (bohuzel stale jeste v tomto pripade pro BDE) odchytinuti duplicitu ukladaneho udaje ?
(vyjimka KeyViolation)
diky
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
OT: Routovany NetBEUI na Win95
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.1.2002 15:11:56
Ahoj,
prepacte za OT, ale neviem rozlomit jeden problem s protokolom
NetBEUI, ktory nam od istej doby prestal na korektne fungovat.
Pocitace, ktore su v inom segmente siete (t.j. za routrom)
totiz nevieme z W95 ani z Win NT 4.0 primapovat.
Na staniciach z W98 vsak NetBEUI funguje normalne.
Skusali sme to z roznych segmentov a problem sa tyka
vylucne len uvedenych OS.
Kuriozne vsak je, ze pred nejakym casom to fungovalo.
Moze v dosledku nejakych zmien (napr. nastaveni routra)
tato sluzba vypadnut, tak ze pre niektore OS prestane fungovat?
Inak jedine zmeny, ktore sme (ale len v nasom segmente siete)
robili bolo aktivovanie sluzby WINS (problem vsak zostal
aj po obnoveni predosleho stavu).
Vdaka za vase pripadne rady, ci skusenosti.
A este raz - sorry za off topic.
Vlkovic
GC, Delphi, OOP
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 15.1.2002 15:28:37
On 15 Jan 2002 at 13:34, Petr Fejfar wrote:
> Ano, v Delphi nic jineho nezbyva, ale ty pointerove operace by byly
> soustredeny na jedinem miste a ne ze jich bude plna aplikace, takze
> kdybys nedej boze musel napr. delat to co my, tj. prevracet endian,
> tak by ses dost zapotil.
:-) Pro jistotu jeste zopakuji: zalezi na uloze, co je pro dany
pripad vhodnejsi. Pro pripad, ktery jsem uvedl, mi vyslo vhodnejsi
napsat to primo pres pointery, nez psat pro kazdy resource extra
stream. Navic tim neni zaflakana cela aplikace, ale v podstate pouze
ten kus, ktery jsem uvedl.
> > Jenze takhle to nejde, protoze tam mohou nastat 3 stavy. Bud tam
> neni
>
> To taky nebyl prepis Tve funkce LoadOrdName(), pouze poukazani na to,
> ze nejdrazsi operace v Tvem kodu je srovnatelna i s objektovym
> pristupem, protoze ztracis vyhodu low level pristupu jalovym
> (=nefunkcnim) presunem WideStringu z pameti do promenne, misto abys
> zustal na low level urovni a operoval dal jen s pointerem, jako se to
Zde jsem to musel kopirovat, protoze pametovy blok pak zahazuji (a
nechtel jsem to upravovat do cistsi podoby). To je ale fuk, protoze
tam kde to mozne je, samozrejme takove osklive kopirovani nedelam.
:-) Ten priklad slouzil v podstate jako konkretni ukazka
_specialniho_ pripadu, ktery se jinde neopakuje, a pro ktery se
nemusi vyplatit psat samostatne objekty.
> dela v Cecku. Ta rozhodovaci logika okolo uz to nijak vyznamne
> neovlivni resp, jeji cena se a) srovnatelna b) pripadna odchylka je
> zanedbatelna vuci celkove cene operace.
... nebo vuci cene programovani. :-)
> > Jo, kdybych si pro temer kazdy resource napsal specialni stream,
>
> Existuje prece dedicnost, takze tech specializaci by zase nebyla tak
> mnoho -ostatne s kolika datovymi typy potrebujes operovat? Tech je jen
> par.
Zde nejde ani tak o typy jako takove, jako o osetreni vicestavove
pozice, ruznych zarovnani atp.
> Uznavam, ze v Delphi by to byla zpocatku prace navic, ale do budoucna
> by semnohokrat vratila.
Nekdy ano, nekdy ne. Zalezi na typu ulohy.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
OT: Komercni software a Open Source - drive Varian
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.1.2002 15:48:28
Haj hou!
On 15 Jan 2002, at 12:24, Ing. Petr �vejda wrote:
> > > je vytvaren a udrzovan. Vedle velkych producentu sw (Borland, MS,
> > > SW602, Aktis) existuji i mali "zivnostnicci" (Petr Zahradnik), a
>
> Asi jsi cetl spatne. Pokud nekdo napise "zivnostnici", tak je to v poradku.
> Pokud nekdo napise "zivnostnicci" (Petr Zahradnik), tak to zavani
> pejorativnim vyznamem a asi ani Tobe by se to nelibilo.
Ahhh! Ted uz to vidim taky ! Tak to se strasne omlouvam, ale to je
preklep :-)) Konec koncu ne jediny, jak jsem to pak po sobe cetl
(fuj, stydim se, ale kdyz ja mam zapnuty jen anglicky autocorrect
:). Tam melo byt jen jedno "c", tedy mali "zivnostnici". Coz je
patrne i z predchazejiciho slova "mali", neb kdyby to bili "zivnostnic-
ci", pak uz by bylo zbytecne dodavat ze "mali" :) Fakt sorry. Nijak
jsem nechtel naznacovat ze Petr Zahradnik je zudlal, obvzlaste
kdyz vim ze _neni_ (a navic zdarma poskytuje hosting pro
Delphree :-). Jeste jednou se omlouvam, priste si radsi vsechno
prectu dvakrat nez to odeslu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Nacitanie bitmapy z RTF suboru
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.1.2002 15:49:52
Ahoj,
vie niekto ako nacitat obrazok zo suboru v RTF formate?
Robim RTF parser a nacitavanie grafickych objektov sa
mi nepodarilo zvladnut. Na internete som ani po upornom
hladani nic zmysluplneho nenasiel.
Vlkovic
Obsah k 1001 T&T
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 16:14:26
From: "Jaroslav Popluhar" <delphi1(zv)acc.sk>
> Chcel by som sa spytat (pripadne poprosit) Petra Vonese,
> ci je mozne zverejnit obsah k %subj% v elektronickej forme.
Obsah (ne vsak cela kniha ;-) je ke stazeni v PDF formatu tady:
http://delphi(tec)cz/1001.asp
Petr Vones
Routovany NetBEUI na Win95
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.1.2002 16:48:58
> prepacte za OT, ale neviem rozlomit jeden problem s protokolom
> NetBEUI, ktory nam od istej doby prestal na korektne fungovat.
> Pocitace, ktore su v inom segmente siete (t.j. za routrom)
> totiz nevieme z W95 ani z Win NT 4.0 primapovat.
> Na staniciach z W98 vsak NetBEUI funguje normalne.
> Skusali sme to z roznych segmentov a problem sa tyka
> vylucne len uvedenych OS.
> Kuriozne vsak je, ze pred nejakym casom to fungovalo.
> Moze v dosledku nejakych zmien (napr. nastaveni routra)
> tato sluzba vypadnut, tak ze pre niektore OS prestane fungovat?
pokud vim NetBEUI je neoutovatelny protokol. Ten router jej tusim
musi probridgeovat. Cili musi mit specialni podporu pro NetBEUI.
Spust si nejaky odchytavac paketu - tak zjistis, zda vubec to NetBEUI
prosakuje
za router/bridge
D. Toman
Routovany NetBEUI na Win95
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.1.2002 17:00:48
> > prepacte za OT, ale neviem rozlomit jeden problem s protokolom
> > NetBEUI, ktory nam od istej doby prestal na korektne fungovat.
> > Pocitace, ktore su v inom segmente siete (t.j. za routrom)
> > totiz nevieme z W95 ani z Win NT 4.0 primapovat.
> > Na staniciach z W98 vsak NetBEUI funguje normalne.
>
> pokud vim NetBEUI je neroutovatelny protokol. Ten router jej tusim
> musi probridgeovat. Cili musi mit specialni podporu pro NetBEUI.
>
> D. Toman
Specialna podpora je podla vsetkeho aktivovana,
pretoze zdielanie sietovych zdrojov za routrom
funguje z Win98 bez problemov.
Chyba je kuriozna v tom, ze pred casom to
bezalo aj z Win95 a nevieme prist na to,
kde je chyba.> Spust si nejaky odchytavac paketu - tak zjistis, zda vubec to NetBEUI
> prosakuje
> za router/bridge
Tomuto popravde povedane prilis nerozumiem.
Ako to dokazem sledovanim paketov zistit?
Pakety sledovat viem, ale neviem kde hladat
informaciu o tom, ze dotycny paket prejde
(presiel) cez router, resp. ci dany paket
suvisi z NetBEUI protokolom.
Vlkovic
OT: Re: Obsah k 1001 T&T
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.1.2002 17:01:44
Puvodni zprava, kterou napsal Petr Vones dne 15 Jan 2002:
> Obsah (ne vsak cela kniha ;-) je ke stazeni v PDF formatu tady:
>
> http://delphi(tec)cz/1001.asp
Nebude k dispozici cela kniha ve formatu PDF jako Open Source? :-)
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Routovany NetBEUI na Win95
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 15.1.2002 17:03:42
Ja tedy nevim, ale co si pamatuju, tak NetBEUI routovatelny neni, takze
jestli tam mate HW router a ten je spravne nastaveny, tak by na sebe
jednotlive segmenty site (predpokladam HW segmenty) nemely videt....
BTW: Proc NetBEUI ? To je protokol spis tak peer-to-peer a ne na rozsahlejsi
site. Navic se rozpleskne po siti a protoze nema prime adresovani, tak
zbytecne zvysuje rezii vsech karet ...
Jestli se pletu, tak me nekdo opravte. Budliky budliky.
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
hot-line 0 776 677 776
tel. 0467/521555, 520141
http://www.missoftware(tec)cz
mailto:info(zv)missoftware(tec)cz
> -----Puvodni zprava-----
> Od: Peter Vlkovic
> NetBEUI, ktory nam od istej doby prestal na korektne fungovat.
> Pocitace, ktore su v inom segmente siete (t.j. za routrom)
> totiz nevieme z W95 ani z Win NT 4.0 primapovat.
> Na staniciach z W98 vsak NetBEUI funguje normalne.
> Skusali sme to z roznych segmentov a problem sa tyka
> vylucne len uvedenych OS.
> Kuriozne vsak je, ze pred nejakym casom to fungovalo.
> Moze v dosledku nejakych zmien (napr. nastaveni routra)
> tato sluzba vypadnut, tak ze pre niektore OS prestane fungovat?
> Inak jedine zmeny, ktore sme (ale len v nasom segmente siete)
> robili bolo aktivovanie sluzby WINS (problem vsak zostal
> aj po obnoveni predosleho stavu).
Routovany NetBEUI na Win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 17:19:49
From: "Milan Schembera" <milan(zv)missoftware(tec)cz>
> BTW: Proc NetBEUI ? To je protokol spis tak peer-to-peer a ne na rozsahlejsi
> site. Navic se rozpleskne po siti a protoze nema prime adresovani, tak
> zbytecne zvysuje rezii vsech karet ...
Presne tak, NetBEUI je dobry tak mozna na propojeni tri pocitacu ale ne pro
vetsi site. Idealni je mit pouze TCP/IP.
Petr Vones
Visiaci "conect" na sietove prostriedky
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.1.2002 17:21:20
Ahoj,
v programe pouzivam funkciu WNetAddConnection2 na zdielanie
sietovych zdrojov, ktore po skonceni programu uvolnujem
WNetCancelConnection2. U Windows 9x to funguje bez problemov,
ak program bezi na Windows NT 4.0, tak po jeho skonceni
ako keby ostal namapovany zdroj neuvolneny, takze pri
opatovnom spusteni programu WNetAddConnection2 stale
vracia chybu, az kym na zdielanej stanici manualne
(cez NetMonitor) nezhodim tento "visiaci" conect.
Nevie niekto, co s tym?
Vlkovic
Routovany NetBEUI na Win95
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.1.2002 17:21:45
> Tomuto popravde povedane prilis nerozumiem.
> Ako to dokazem sledovanim paketov zistit?
> Pakety sledovat viem, ale neviem kde hladat
> informaciu o tom, ze dotycny paket prejde
> (presiel) cez router, resp. ci dany paket
> suvisi z NetBEUI protokolom.
>
objevi-li se mi na segmentu, ktery posloucham NetBEUI packet,
pochazejici
z masiny az za routerem/bridgem pak vim, ze NetBEUI prochazi (alespon
jednim
smerem). Cili porovnavat musis MAC adresy packetu (MAC odesilatele).
Pokud je to opravdu
bridgeovany. Jestli ta NetBEUI podpora pracuje jinak nez na bazi
bridge pak
pravdepodobne bude MAC odesilatel naopak nastavena na MAC adresu
routeru.
D. Toman
Routovany NetBEUI na Win95
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.1.2002 17:23:43
> BTW: Proc NetBEUI ?
napriklad prave proto, ze neni routovatelny - cili nebezpeci prusaku
do Internetu/ven z firmy (jeli trvale pripojen) nulove (temer)...
>To je protokol spis tak peer-to-peer a ne na rozsahlejsi
> site. Navic se rozpleskne po siti a protoze nema prime adresovani,
tak
> zbytecne zvysuje rezii vsech karet ...
pokud neni kazdy paket posilany jako broadcast/multicast pak to
nezucastnene
karty nezatezuje vic nez libovlny jiny protokol
D. Toman
Routovany NetBEUI na Win95
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.1.2002 17:31:46
> Ja tedy nevim, ale co si pamatuju, tak NetBEUI routovatelny neni,
> takze jestli tam mate HW router a ten je spravne nastaveny,
> tak by na sebe jednotlive segmenty site (predpokladam
> HW segmenty) nemely videt....
Pocitace za routrom vidiet samozrejme nie su (teda ak pouzijeme
browsovanie cez "okolni pocitace"). Cez funkciu "hledat pocitac"
(po zadani jeho IP) ho Windows dokazu bezpecne lokalizovat.
Alebo ak pripojim sietovu jednotku s uvedenym UNC cesty
k pocitacu (s pouzitim IP adresy).
Vyraz NetBEUI mozno nie je celkom vystizny (sorry).> BTW: Proc NetBEUI ? To je protokol spis tak peer-to-peer a ne
> na rozsahlejsi site. Navic se rozpleskne po siti a protoze nema
> prime adresovani, tak zbytecne zvysuje rezii vsech karet ...
>
> Milan Schembera
S tym plne suhlasim. My toto mapovanie pouzivame ako urcite
nudzove riesenie, pretoze jedno nase pracovisko sa rozdelilo
do dvoch casti budovy a ich "pracovna skupina" lokalnej siete
je teraz predelena routrom.
Vlkovic
> > NetBEUI, ktory nam od istej doby prestal na korektne fungovat.
> > Pocitace, ktore su v inom segmente siete (t.j. za routrom)
> > totiz nevieme z W95 ani z Win NT 4.0 primapovat.
> > Na staniciach z W98 vsak NetBEUI funguje normalne....
>
> Vlkovic
Checklistbox
[*] Tomis <Tomis(zv)mail(tec)cz> - 15.1.2002 17:58:22
Zdravim vsechny v konferenci,
chtel bych se zeptat, jestli jde nejak po stisku tlacitka, preskrtnout(zmenit font na fsstrikeout) zaskrtnute polozky v checklistboxu? Vedel bych jak je preskrtnout vsechny automaticky , ale nevim jak preskrtnout jenom ty zaskrtnute a to jeste jenom po stisku nejakeho tlacitka.
Diky za kazdou radu Tomas Sladek
------------------------------
Http://Sweb(tec)cz/tomovyprogramy - M� vlastn� tvorba
FB SP dostatky premennych ?
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 15.1.2002 18:12:10
Hi, Roland !
you wrote:
[Skipped]
RT>>> IF ((PRVY=0) or (DRUHY=0) or (TRETI=0) or (STVRTY=0)) THEN
RT>>> BEGIN
RT>>> DELETE FROM TABULKA WHERE ID=:ZAZNAM;
RT>>> EXIT;
RT>>> END
>>
>> Precti manual ohledne EXIT.
>> Ten je zbytecny !
RT> Nie je mi jasne co mas s EXITom ten je nepodstatny. :-)
RTFM !
=========Beginning of the citation==============
"EXIT" - Jumps to the final END statement in the procedure!
=========The end of the citation================
Best regards, Alex Cherednichenko.Obsah k 1001 T&T
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 15.1.2002 18:23:00
koukam Petre, ze te ten OpenSource pekne namichl. ;-)))))))
Petr
-----Original Message-----
Nebude k dispozici cela kniha ve formatu PDF jako Open Source? :-)
Petr Zahradnik, pocitacovy expert
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Komunikace pres TCP/IP
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 15.1.2002 18:24:33
On Tue, 15 Jan 2002, Jaroslav ��pek wrote:
> > From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> > Behalf Of Vladimir Michl
> >
> > Nevim co myslim problem synchronizace, ale pokud jde o navrh protokolu
> > jsem nejlepe pro textovy format (nejlepe je hledat inspiraci
> > v RFC (treba
> > SMTP, nebo HTTP)). Ma to tu vyhodu, ze pak lze misto klienta na
> > testovani pouzit telnet.
>
> Tim jsem myslel napr. vlastnost ClientType = (ctBlocking, ctNonBlocking).
> Kdy je vhodne pouzit napr. ctBlocking. V tech par malo prikladech co jsem
> nasel bylo vzdy pouzito ctNonBlocking.
Toto znamena, jak se chovaji volani cteni a zapisu ze socketu.
Pokud je Blocking, pak se volani zapisu dat ukonci az tehdy, pokud jsou
vsechna data zapsana a pokud zavolate cteni, program pokracuje az jsou k
dispozici nejaka data (nebo uzavreno spojeni).
Pokud jsou ale operace NonBlocking, pak volani zapisu konci v podstate
ihned, s tim, ze rekne kolik dat zapsal, pripadne ze nezapsal zadna. Cteni
se chova tak, ze pokud nejsou data, volani se vrati s chybou ze nejsou
data.
Takze kdyz to shrnu, blokujici volani se ukoncuji, az pokud splni cely
ukol (tj. pokud mate treba pomale spojeni a chcete poslat mnoho dat muze
trvat i minuty) a neblokujici volani se ukonciji temer okamzite, pricemz
lze zjistit kolik prace provedli.
Napsat aplikaci s blokujicim volanim byva jednodussi na napsani veci kolem
socketu, ale behem cekani napriklad na connect od klienta nemuzete nic
delat a nebo musi byt aplikace vicevlaknova, coz znamena pouziti
synchronizacnich objectu (kritickych sekci, semaforu).
S neblokujicimi volanimi lze mnoho veci udelat i v jednom vlakne.
S pozdravem
Vladimir Michl
-----------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s.
Stroj�rensk� 38
���r nad S�zavou
pobo�ka Olomouck� 355
Hlubo�ky-Mari�nsk� �dol�
tel: 068/5353548
IB/FB table properities
[*] Rado Benc <bego(zv)pobox.sk> - 15.1.2002 18:34:33
Nazdar,
> prosim o radu jak ziskat %subj%, tak jak se zobrazi v IBConsole v
> Properities for: MOJE_TABULKA na zalozce Properities
> (Name, Type, Character Set, Collation, Default Value, Allow Nulls)
> Nemohu to v system. tabulkach najit.
> Nazvy vsech tabulek databaze vybrat umim.
Nie je to uplne vsetko, ale pre inspiraciu:
CREATE PROCEDURE "LIST_RELATIONS"
RETURNS
(
"RELATION_NAME" VARCHAR(32) CHARACTER SET UNICODE_FSS,
"FIELD_NAME" VARCHAR(32) CHARACTER SET UNICODE_FSS,
"FIELD_TYPE" VARCHAR(32) CHARACTER SET UNICODE_FSS,
"FIELD_DEFAULT" BLOB SUB_TYPE 0 SEGMENT SIZE 80
)
AS
/**
* Returns formated list of relations and their fields.
*/
DECLARE VARIABLE FLD_LENGTH NUMERIC(9, 0);
DECLARE VARIABLE FLD_SCALE NUMERIC(9, 0);
DECLARE VARIABLE FLD_NULL NUMERIC(9, 0);
BEGIN
FOR SELECT
R.RDB$RELATION_NAME,
R.RDB$FIELD_NAME,
F.RDB$FIELD_LENGTH,
- F.RDB$FIELD_SCALE,
F.RDB$NULL_FLAG,
F.RDB$DEFAULT_SOURCE,
T.RDB$TYPE_NAME
FROM
RDB$RELATION_FIELDS R
LEFT OUTER JOIN RDB$FIELDS F
ON (R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME)
LEFT OUTER JOIN RDB$TYPES T
ON (F.RDB$FIELD_TYPE = T.RDB$TYPE)
WHERE (T.RDB$FIELD_NAME = 'RDB$FIELD_TYPE')
ORDER BY R.RDB$RELATION_NAME,
R.RDB$FIELD_POSITION
INTO
:RELATION_NAME,
:FIELD_NAME,
:FLD_LENGTH,
:FLD_SCALE,
:FLD_NULL,
:FIELD_DEFAULT,
:FIELD_TYPE
DO
BEGIN
IF (:FIELD_TYPE = 'VARYING') THEN
FIELD_TYPE =
'VARCHAR(' ||
CAST(:FLD_LENGTH AS VARCHAR(3)) ||
')';
IF (:FIELD_TYPE = 'LONG') THEN
FIELD_TYPE = 'NUMERIC(9, 0)';
IF (:FIELD_TYPE = 'DOUBLE') THEN
FIELD_TYPE =
'NUMERIC(15, ' ||
CAST(:FLD_SCALE AS VARCHAR(2)) ||
')';
IF (:FLD_NULL = 1) THEN
FIELD_TYPE =
:FIELD_TYPE || ' NOT NULL';
SUSPEND;
END
EXIT;
END
Potom:
SELECT * FROM LIST_RELATIONS;
HTH,
Rado
____________________________________
http://www.antikvariatshop.sk Virtualny antikvariat - proza, poezia,
historia, umenie, psychologia, naucna a odborna literatura, skripta ...
Vybrane knihy ZLAVA AZ 80 % !!!Titulok okna
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 15.1.2002 18:53:05
Chcem zadefinovat pevnu velkost okna. Tak si vlozim do formu vsetky objekty
a jeho velkost urcim tak, aby bolo na vsetky objekty vidiet. Ale zrada: ked
si program spusti uzivatel na Windowse XP, tak tu su titulky okna o cosi
vacsie a to zabera teda viac z okna a to znamena, ze objekty, ktore boli
tesne na spodku okna su uz mimo okna. Tak ako mam zistit velkost tohoto
titulku?
Vdaka za kazdu radu.Timer
[*] Martin �d�rsk� <zdary(zv)seznam(tec)cz> - 15.1.2002 19:16:28
Dne 15.�leden�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
> Poradi nekdo jakym zpusobem zjistim jake hodnoty Timer dosahl od spusteni?
>
> Diky za radu
>
Tak to asi nezjistis... Musis si pri vyvolani timer1.ontimer ulozit
systemovy cas do globalni promene a kdyz budes zjistovat kolik
ubehlo, uloz ho znovu jinam a obe hodnoty odecti.
Martin
Zdarsky
______________________________________________________________________
Jake bude pocasi? http://pocasi.seznam(tec)cz
Clipboard > AnsiString a zpet
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 15.1.2002 19:51:51
Nazdar lidi,
sorry, ze vas zase otravuji, ale postupne si prorazim cestu z Pascalu do
taju Delphi.
Potreboval bych zjistit, jak dostat textovy obsah schranky do AnsiString
(dlouhy string) a zase ze string do schranky. Diky.
*********************************************************
David Kraina, DKx
-----------------------------
vedouc� nez�visl�ho v�vojov�ho t�mu MX-3
*********************************************************
Info na pracovnej ploche
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 15.1.2002 20:01:18
nekde na sysinternals byl programek, kterej to resil tak, ze to vykreslil do
bmp a tu potom nastavil jako pozadi - treba pro inspiraci ...
---
Avast: Odchoz� zpr�va vyhodnocena jako �ist�
Datum a �as testov�n�: 15.1.2002 20:01:17
Datum virov� datab�ze (VPS): 2.1.2002
Avast! antivirus od Alwil Software
Avast32 (VPS 2.1.2002): zprava neobsahuje virus
udalosti WaitForSingleObject
[*] Milan ��ek - 15.1.2002 20:04:26
Ahoj,
muzete mi prosim nekdo ve strucnosti vysvetlit, kdy (za jakych
okolnosti) nastavaji jednotliva "volani"? V MSDN je to sice popsane, ale
chapu to jen castecne. Pokud nastavim event pomoci SetEvent, pak se
provadi WAIT_OBJECT_0? Vrele diky za objasneni.
procedure TMouseThread.Execute;
begin
repeat
case WaitForSingleObject(EventTerminated,10) of
WAIT_TIMEOUT: // predpokladam, ze se zavola kazdych x ms, v
tomto pripade 10
WAIT_OBJECT_0: // ??
WAIT_ABANDONED: // ??
WAIT_FAILED: // asi pri selhani, ale ceho konkretne?
end;
until Terminated;
end;
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
UROVEN OPRAVNENI
[*] Ji�� Rame� - 15.1.2002 20:25:04
Nemohu si pomoct, ale jeste jednou k tomuto problemu. Je jasne, ze pokud se
jedna o porty COM, tak je to pohoda i novyxh XP. Ale co treba
jine periferie (radio karty aj.). Tady asi pomuze jen napsani nejakeho
maleho driveru, treba v assembleru. Potrebuje nejakej malej priklad, jak na
to, protoze to nevim. Je nekde neco konkretniho k precteni?
Dik JirkaR
udalosti WaitForSingleObject
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 20:31:03
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> muzete mi prosim nekdo ve strucnosti vysvetlit, kdy (za jakych
> okolnosti) nastavaji jednotliva "volani"? V MSDN je to sice popsane, ale
> chapu to jen castecne. Pokud nastavim event pomoci SetEvent, pak se
> provadi WAIT_OBJECT_0? Vrele diky za objasneni.
>
> procedure TMouseThread.Execute;
> begin
> repeat
> case WaitForSingleObject(EventTerminated,10) of
> WAIT_TIMEOUT: // predpokladam, ze se zavola kazdych x ms, v
> tomto pripade 10
Presne tak
> WAIT_OBJECT_0: // ??
V pripade ze je dany event na ktery cekas nastaven pomoci SetEvent
> WAIT_ABANDONED: // ??
Toto se muze vyskytnout pouze u mutexu
> WAIT_FAILED: // asi pri selhani, ale ceho konkretne?
Pri selhani te funkce, napriklad predanim neplatneho handle apod.
Petr Vones
UROVEN OPRAVNENI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 20:32:50
From: "Ji�� Rame�" <eesa.ram(zv)telecom(tec)cz>
> jine periferie (radio karty aj.). Tady asi pomuze jen napsani nejakeho
> maleho driveru, treba v assembleru. Potrebuje nejakej malej priklad, jak na
> to, protoze to nevim. Je nekde neco konkretniho k precteni?
Ahoj,
vzdycky je treba napsat driver pokud pristupujes k nejakemu HW. Pro dalsi
informace se podivej na DDK v MSDN (http://msdn.microsoft.com)
Petr Vones
Clipboard > AnsiString a zpet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 20:45:57
From: "David Kraina" <DKx(zv)Seznam(tec)cz>
> Potreboval bych zjistit, jak dostat textovy obsah schranky do AnsiString
> (dlouhy string) a zase ze string do schranky. Diky.
Ahoj,
var
S: string;
uses
ClipBrd;
Clipboard.AsText := S;
S := Clipboard.AsText;
Petr Vones
Titulok okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.1.2002 20:48:10
From: "Martin Kasman" <martinkasman(zv)pobox.sk>
> Chcem zadefinovat pevnu velkost okna. Tak si vlozim do formu vsetky objekty
> a jeho velkost urcim tak, aby bolo na vsetky objekty vidiet. Ale zrada: ked
> si program spusti uzivatel na Windowse XP, tak tu su titulky okna o cosi
> vacsie a to zabera teda viac z okna a to znamena, ze objekty, ktore boli
> tesne na spodku okna su uz mimo okna. Tak ako mam zistit velkost tohoto
> titulku?
Ahoj,
veskere tyto informace by jsi mel zjistovat pres funkci GetSystemMetrics, dale
v helpu (viz SM_CYCAPTION atd.)
Petr Vones
OT:Programove zabezpeceni IE
[*] <korin.delphi(zv)centrum(tec)cz> - 15.1.2002 20:57:34
Dobry den,
potrebuji programove nastavit polozku v Internet Exploreru.
Najdete ji tu : nastroje/moznosti site
internet/zabezpeceni/vlastni uroven/spousteni souboru a programu
v sekci IEFrame. Nevite kde se v registrech, popripade s
systemovych souborech naleza? dekuji za pomoc,
Ivan Novotny
-----
Nov� vyhled�va� pro �esk� internet www.webfast(tec)cz - prost� najde ...Probl�m s Checklistboxem
[*] Tomis <Tomis(zv)mail(tec)cz> - 15.1.2002 21:16:23
Zdravim vsechny v konferenci,
chtel bych se zeptat, jestli jde nejak po stisku tlacitka, preskrtnout(zmenit font na fsstrikeout) zaskrtnute polozky v checklistboxu? Vedel bych jak je preskrtnout vsechny automaticky , ale nevim jak preskrtnout jenom ty zaskrtnute a to jeste jenom po stisku nejakeho tlacitka.
Diky za kazdou radu Tomas Sladek
------------------------------
Http://Sweb(tec)cz/tomovyprogramy - M� vlastn� tvorba
Pascal vs. C(++)
[*] <korin.delphi(zv)centrum(tec)cz> - 15.1.2002 21:24:34
Nevim, ale Cecko se mi nelibi uz od doby co jsem zjistil, ze se v
nem misto . pise sipecka ->, zda se mi to divne.. :-)
ps: problematika pascal vs C(++) je na samostatnou konferenci,
tak to sem uz nepiste, zdar
Ivan
-----
Nov� vyhled�va� pro �esk� internet www.webfast(tec)cz - prost� najde ...udalosti WaitForSingleObject
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.1.2002 21:44:44
> muzete mi prosim nekdo ve strucnosti vysvetlit, kdy (za jakych
> okolnosti) nastavaji jednotliva "volani"? V MSDN je to sice popsane, ale
> chapu to jen castecne. Pokud nastavim event pomoci SetEvent, pak se
> provadi WAIT_OBJECT_0? Vrele diky za objasneni.
>
> procedure TMouseThread.Execute;
> begin
> repeat
> case WaitForSingleObject(EventTerminated,10) of
> WAIT_TIMEOUT: // predpokladam, ze se zavola kazdych x ms, v
> tomto pripade 10
funkci volas s nastavenym timeoutem na 10 ms. Cili pokud do teto doby nebude
EventTerminated
v signalizovanem stavu bude vracen WAIT_TIMEOUT
> WAIT_OBJECT_0: // ??
je-li objekt v signalizovanem stavu
Pozn: funkce WaitForMultipleObjetcs() vraci WAIT_OBJECT_0 pro prvni objekt,
a hodnoty vzdy
o 1 vyssi pro kazdy nasledujici objekt (byl-li signalizovan jiny objekt nez
prvni)
> WAIT_ABANDONED: // ??
muze nastat jen u mutexu, pokud byl mutex vlastnen threadem , ktery byl
ukoncen (tj ten thread jej neuvolnil pred ukoncenim)
> WAIT_FAILED: // asi pri selhani, ale ceho konkretne?
WaitXXX funkci muzes volat i tak, ze ji predas jako objekt handle na proces
(pak cekas na jeho ukonceni, atd). POkud predany handle neni platny WaitXXX
skonci s WAIT_FAILED
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcemain4/ht
m/cerefWaitForSingleObject.asp
> end;
> until Terminated;
> end;
Zdravi
D. Toman
Checklistbox
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.1.2002 06:21:00
Pouzij vlastni vykreslovani (OwnerDraw)
V zavislosti na checked nastavuj Canvas.Font.Style
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
15.1.2002 Tomis:
> Zdravim vsechny v konferenci,
> chtel bych se zeptat, jestli jde nejak po stisku tlacitka, preskrtnout(zmenit font na fsstrikeout) zaskrtnute polozky v checklistboxu? Vedel bych jak je preskrtnout vsechny automaticky , ale nevim
> jak preskrtnout jenom ty zaskrtnute a to jeste jenom po stisku nejakeho tlacitka.
> Diky za kazdou radu Tomas Sladek
> ------------------------------
> Http://Sweb(tec)cz/tomovyprogramy - M� vlastn� tvorba
IB/FB table properities
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 16.1.2002 06:55:14
> jsou nekde na...
kecam, na borlandu jsou opravdu stary
ale na
http://sourceforge.net/projects/ibconsole/
je v CVS verze 337
ja teda CVS nemam a neumim s tim.
kdyby mi nekdo poradil, kde a co si mam
stahnout a nainstalovat, byl bych rad.
dekuji PeC(zv)Titulok okna
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 16.1.2002 07:27:12
> From: Of Martin Kasman
>
> Chcem zadefinovat pevnu velkost okna. Tak si vlozim do formu
> vsetky objekty
> a jeho velkost urcim tak, aby bolo na vsetky objekty vidiet. Ale
> zrada: ked
> si program spusti uzivatel na Windowse XP, tak tu su titulky okna o cosi
> vacsie a to zabera teda viac z okna a to znamena, ze objekty, ktore boli
> tesne na spodku okna su uz mimo okna. Tak ako mam zistit velkost tohoto
> titulku?
A nestacilo by na formu nastavovat
ClientWidth a ClientHeight?
Potom rozmery titulku nepotrebujes.
Vaclav Krmela
OT: Routovany NetBEUI na Win95
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 16.1.2002 07:29:53
> NetBEUI, ktory nam od istej doby prestal na korektne fungovat.
> Pocitace, ktore su v inom segmente siete (t.j. za routrom)
> totiz nevieme z W95 ani z Win NT 4.0 primapovat.
Velmi strucne, neni cas. V dobe kdy jsem delal sitare, narazeli
jsme na problemy s NetBEUI kazdou chvili. A nemuselo se jednat
ani o routovani ba dokonce ani o segmentovani site. Nakonec se
na vsechny problemy naslo univerzalni reseni - tuhle podivnou
vymyslenost nepouzivat a celou sit stavet na IP protokolu. Zrovna
nedavno se zacala tak jak popisujete chovat pidisitka se ctyrmi
pocitaci na jednom koax segmentu. A opet pomohlo vylikvidovani
NetBEUI.
Z.Kalhous
Komunikace pres TCP/IP
[*] Jaroslav ��pek <jaroslav.sipek(zv)idea(tec)cz> - 16.1.2002 08:05:24
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vladimir Michl
>
> Takze kdyz to shrnu, blokujici volani se ukoncuji, az pokud splni cely
> ukol (tj. pokud mate treba pomale spojeni a chcete poslat
> mnoho dat muze
> trvat i minuty) a neblokujici volani se ukonciji temer
> okamzite, pricemz
> lze zjistit kolik prace provedli.
>
> Napsat aplikaci s blokujicim volanim byva jednodussi na
> napsani veci kolem
> socketu, ale behem cekani napriklad na connect od klienta nemuzete nic
> delat a nebo musi byt aplikace vicevlaknova, coz znamena pouziti
> synchronizacnich objectu (kritickych sekci, semaforu).
>
Je mozne z vyse uvedeneho vyvodit, jake volani pouzit pro klienta,
ktery komunikuje s databazi, uklada do ni data zadana od uzivatele,
zobrazuje vysledky pozadovanych akci, apod? Je jasne, ze pri pouziti
blokujiciho volani by musel klient pouzivat vlakna. Pak se nabizi otazka,
co je vyhodnejsi. Zda oprogramovavat neblokujici volani ci synchronizaci
mezi vlakny. Ma na rozhodovani o tom, jakou pouzit komunikaci (blokove
volani
ci neblokove), vliv i navrh komunikacniho protokolu, nebo ten s tim vubec
nesouvisi?
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz
Komunikace pres TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.1.2002 08:30:47
> Je mozne z vyse uvedeneho vyvodit, jake volani pouzit pro klienta,
> ktery komunikuje s databazi, uklada do ni data zadana od uzivatele,
> zobrazuje vysledky pozadovanych akci, apod? Je jasne, ze pri pouziti
> blokujiciho volani by musel klient pouzivat vlakna. Pak se nabizi otazka,
> co je vyhodnejsi. Zda oprogramovavat neblokujici volani ci synchronizaci
> mezi vlakny. Ma na rozhodovani o tom, jakou pouzit komunikaci (blokove
> volani
> ci neblokove), vliv i navrh komunikacniho protokolu, nebo ten s tim vubec
> nesouvisi?
nezapomen take na to, ze blokujici a neblokujici sockety se rozdlne
chovaji z pohledu programatora... programovani s blokujicimi sockety
je hodne primocare, protoze presne vis kdy se ktera operace deje. Das
prijmout data a vis, ze nasledujici radek v pogramu uz ma prijmuta
data. Oproti non-block mode programovani je stylem: "zadavam hromady
pozadavku na operace, ale musim si posleze hlidat dokonceni techto
operaci".
Vysledkem toho je, ze:
blocking mode - programovy kod je primocary, ale v nekterych
pripadech je nutne vicethreadove zpracovani. Pripadna synchronizace
se ale deje na urovni sychronizace algoritmu, tedy synchronizujes
trebas zacatek ci konec odeslani e-mailu, nikoliv vsak jednotlive
kroky, ktere k tomu vedou.
non-blocking mode - neni nutny pomocny thread, nicmene kod ztraci
svou primocarost, protoze jen zadavas pozadavky na operace a pak si
musis hlidat provedeni tech operaci. Tedy synchronizaci musis
provadet na urovni jednotlivych socketovych operaci (byt v ramci
jednoho threadu), ale zase nemusis provadet synchronizaci na urovni
algoritmu.
Tedy jesti se u blokujiciho modu bojis synchronizaci, tak se toho
neboj, protoze u non-blocking modu se synchronizacemi budes muset
zabyvat mnohem vic. ;-)
U blocking modu potrebujes pomocny thread jen tehdy, pozadujes-li
zaroven se socketovymi operacemi
nejakou jinou cinnost programu. V pripade tve databazove operace:
Uzivatel trebas zada nejaka data, a tukne, ze je chce poslat na
server. Program zacne odesilat data, behem male chvilicky je odesle a
zobrazi nejaky vysledek. Potrebujes, aby v prubehu odesilani dat
uzivatel mohl ovladat aplikaci??? Jestli ne, nepotrebujes pomocny
thread. Jestli ano, pak jej potrebujes.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.OT: Routovany NetBEUI na Win95
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 16.1.2002 08:34:11
> > Vlkovic:
> > NetBEUI, ktory nam od istej doby prestal na korektne fungovat.
> > Pocitace, ktore su v inom segmente siete (t.j. za routrom)
> > totiz nevieme z W95 ani z Win NT 4.0 primapovat.
Na doplnenie, neviem, ci to suvisi s diskutovanym problemom,
ale momentalne mame problem aj na lokalnej sieti tykajuci
sa taktiez len stanic s Win95 resp. Win NT4.
Ak dame vyhladat pocitac (cez menu start) podla jeho IP,
system ho nenajde. Hladanie podla mena pocitaca funguje.
Na pocitacoch, kde je instalovany OS Win98 funguje hladanie
aj podla mena, aj podla IP.> Zdenek Kalhous:
> ...narazeli jsme na problemy s NetBEUI kazdou chvili.
> A nemuselo se jednat ani o routovani ba dokonce ani
> o segmentovani site. Nakonec se na vsechny problemy naslo
> univerzalni reseni - tuhle podivnou vymyslenost nepouzivat
> a celou sit stavet na IP protokolu.
> Zrovna nedavno se zacala tak jak popisujete chovat pidisitka
> se ctyrmi pocitaci na jednom koax segmentu. A opet pomohlo
> vylikvidovani NetBEUI.
Zhodou okolnosti ide o dost velky segment siete (dve poschodia)
spojeny koaxialom. Pri vypnuti NetBEUI nam obcas vypadavaju
okolite pocitace (system ich "nevidi"). Tento problem
sme skusali vyriesit cez WINS, ale ani tak to nefunguje
celkom spolahlivo.
Vlkovic
Soubor delphi32.dmt
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 16.1.2002 08:37:39
Pokud se dobre pamatuji, tak kolegovi pomohlo tento soubor smazat (napred si
z jine instalace nosil jiny). Delphi si ho znovu vytvorily.
Protoze si nejsem na 100% jist, ze to byl tento soubor, tak radeji presun
nez smaz, vratit ho muzes vzdy ;-)
Mira Ondrisek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ren� Otisk
> Sent: Tuesday, January 15, 2002 2:48 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Soubor delphi32.dmt
>
>
> D5. WNT4 SP6
> Pri otvirani Delhpinu mu nejde otevrit %subj%? Zacalo to pote, co jsem si
> nainstaloval SiSoft Sandru z Chipu. Po odinstalaci Sandry problem
> zustal. Co
> s tim mam udelat (krom preinstalace Delph a WNT, cob by nebylo vubec
> ftipne)?
>
> Sroub
>
>ShutDown WinNT - W2k - WinXP
[*] Robert Suska <robert(zv)korak.sk> - 16.1.2002 08:49:37
Zdravi konferenciu a vsetkych co su v nej!
Potreboval by som kod ktorym dam pokyn pc-cku aby mi shutdownlo masinku ked
napr. macknem buttonik.
Pod Win9x je to jednoduche ExitWindowsEx(EWX_SHUTDOWN or EWX?POWEROFF, 0);
ci ako to je... ale pod W2k treba ziskat nejake prava ci co a potrebujem
vediet ako to obsluzim kodom.
Dakujem
S pozdravom Robo
Re[2]: Vypnut� PC pod NT
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 16.1.2002 09:07:47
> P�edm�t: Re[2]: Vypnut� PC pod NT
> Diky, ale to ovsem neresi problem. Pro vypnuti PC pod NT (XP)
> musim mit
> specialni
> opravneni. A ja nevim jake. Vypnout/Reset/Odhl�sit je bez
> pr�vn�n� odhl�sit,
> Hibernace/Sp�nek nereaguje.
>
> > SetSystemPowerState
>
> > > Jak se povoli pod Win NT (XP) vypnuti PC, reset, spanek a
> > > hibernace ? Pri pouziti WindowsEx se vzdy odhlasi...
Ahoj,
user, pod kterym program spoustis, musi mit pravo vypnout pocitac.
Cele je to takto:
********************************************************
program ShutDown;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // na tohle Borland pozapomnel
var
hToken : THandle;
tkp : TTokenPrivileges;
tkpo : TTokenPrivileges;
zero : DWORD;
zpoz : integer;
i : integer;
{ $DEFINE REBOOT}
begin
try
zpoz := StrToInt(ParamStr(1));
except
zpoz := 0;
end;
zero := 0;
if not OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
Exit;
end;
if not LookupPrivilegeValue(nil, 'SeShutdownPrivilege',
tkp.Privileges[0].Luid) then
begin
Exit;
end;
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, false, tkp, SizeOf(TTokenPrivileges),
tkpo, zero);
if boolean(GetLastError()) then
begin
Exit;
end
else
begin
if zpoz > 30 then
begin
zpoz := 30;
end;
for i := zpoz downto 1 do
begin
write(Format('Shutdown in %2.2d second...', [i]) + #$0D);
sleep(1000);
end;
{$IFDEF REBOOT}
ExitWindowsEx(EWX_FORCE or EWX_REBOOT, 0); // reboot
{$ELSE}
SetSystemPowerState(false, true); // hibernace
{$ENDIF}
end;
halt(0);
end.
********************************************************
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Problem s WM_COPYDATA
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 16.1.2002 09:19:55
Ahoj,
potrebuju kopirovat data mezi aplikacemi. V archivu konference jsem
nasel neco takoveho (s mensimi upravami):
..
{ Private declarations }
procedure Send(Hwnd: THandle; Data: string);
public
{ Public declarations }
end;
....
type cdstype = record
dwData, cbData : Longint;
lpData : Pointer;
end;
implementation
{$R *.DFM}
procedure TFORM1.Send(Hwnd: THandle; Data:string);
var
mhnd:Thandle;
cdsr:cdstype;
begin
cdsr.dwData:=0; {Tady lze dat cokoliv}
cdsr.cbData:=length(Data);
mhnd:=GlobalAlloc(GPTR,cdsr.cbData);
cdsr.lpData:=GlobalLock(mhnd);
Move(Data,cdsr.lpData^,cdsr.cbData);
SendMessage(Hwnd,WM_COPYDATA,0,longint((zv)cdsr));
GlobalUnLock(mhnd);
GlobalFree(mhnd);
end;
procedure TForm1.Button1Click(Sender: TObject);
var S : String;
HWND : THandle;
begin
S := 'nejaky text';
HWND := FindWindow(PChar('TForm1'), PChar('Form2'));
Send(HWND, S); // tady to poslu do jine aplikace
end;
V druhe aplikaci to odchytavam pomoci:
public
procedure WMCOPY_DATA(var Message: TMessage); message WM_COPYDATA;
{ Public declarations }
end;
implementation
procedure TFORM1.WMCOPY_DATA(var Message: TMessage);
var
cdsrp:^cdstype;
Data: string;
begin
cdsrp:=pointer(Message.lParam);
Move(cdsrp^.lpData^,Data,cdsrp^.cbData);
Label1.Caption:=Data;
inherited;
end;
No a ted problem: pokud si zpravu poslu do aplikace, ktera ji posila
(cili sam sobe), potom se string spravne zkopiruje a obsahuje spravna
data. Pokud ale message odchytim v druhe aplikaci, tak mi prijde nejaky
balast. Nevite v cem by mohl byt problem? Popr. bych uvital nejaky odkaz
na funkcni priklad v delphi.
Diky Ales Distribuce aplikace s InterBase licencni podminky
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 16.1.2002 09:26:21
Dobr� den,
r�d bych se dozv�d�l n�jak� info o licen�n�ch podm�nk�ch t�kaj�c�ch se InterBase - jeho distribuce s aplikac�.
D�ky.Komunikace pres TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.1.2002 09:29:01
> Je mozne z vyse uvedeneho vyvodit, jake volani pouzit pro klienta,
> ktery komunikuje s databazi, uklada do ni data zadana od uzivatele,
> zobrazuje vysledky pozadovanych akci, apod? Je jasne, ze pri pouziti
> blokujiciho volani by musel klient pouzivat vlakna. Pak se nabizi
otazka,
> co je vyhodnejsi.
Rozhodujici je podle me toto:
- pocet obsluhovanych simultannich spojeni
bude-li pocet soubeznych spojeni nizky (rekneme male desitky), je
mozne pouzit
blocking a thready. Pri vetsim poctu threadu dochazi k tomu, ze jen
vlastni prepinani
mezi thready zabere vyznamnou cast strojoveho casu -> threadovani se
stava
nefektivni.
- zkusenosti programatora s non-blocking
pokud vim, ktera bije, muzu pouzit a priohnout nejaky jiz hotovy
kod, pripadne mam
dost casu si s tim vyhrat pak samozrejme je mozne jit do
non-blocking i tam, kde to podstata
aplikace nevyzaduje. Je to ale vzdy podstatne slozitejsi metoda.
> Zda oprogramovavat neblokujici volani ci synchronizaci
> mezi vlakny. Ma na rozhodovani o tom, jakou pouzit komunikaci
(blokove
> volani
> ci neblokove), vliv i navrh komunikacniho protokolu, nebo ten s tim
vubec
> nesouvisi?
Povaha vlastni komunikace nema vetsinou primy vliv na to jaky rezim
socketu je vhodnejsi.
Thread & blocking mode je velice jednoduche a ve vetsine pripadu
efektivni a postacujici reseni...
Pozn: nejvykonnejsi servery nepouzivaji thread & blocking mode ani
non-blocking & WSAAsynsSelect ale pouzivaji
funkce podporujici completion routines (WSASend a spol).
Zdravi
D. Toman
distribucni a licencni podminky aplikace s InterBa
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 16.1.2002 09:33:44
Dobry den,
prosil bych, kdo mi muze dat info, jake jsou licencni podminky s InterBase
Server...
diky za odpoved...Komunikace pres TCP/IP
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 16.1.2002 09:34:31
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Gebauer Lukas
>
> nezapomen take na to, ze blokujici a neblokujici sockety se rozdlne
> chovaji z pohledu programatora... programovani s blokujicimi sockety
> je hodne primocare, protoze presne vis kdy se ktera operace deje. Das
> prijmout data a vis, ze nasledujici radek v pogramu uz ma prijmuta
> data. Oproti non-block mode programovani je stylem: "zadavam hromady
> pozadavku na operace, ale musim si posleze hlidat dokonceni techto
> operaci".
>
V dokumentaci jsem se docetl, ze pokud se pouziva blokove spojeni,
mely by se data cist a posilat prostrednictvim TWinSocketStream.
Bohuzel jsem nikde nenasel priklad, jak to pouzit v pripade, ze nechci
pracovat s vlakny. Dala by se na tento zpusob komunikace pouzit
Synapse? Bylo by to jednodussi nez pouzivat TClientSocket?
Je k Synapsi nejake demo na blokove spojeni?
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz Komunikace pres TCP/IP
[*] cis <cis(zv)atlas(tec)cz> - 16.1.2002 09:37:05
HI,
zrovna pacham system s non-blocking modem, ktery vypada asi nasledovne: 1.
db server, 2. serverTCP a 3. klienti. Klienti komunikuji pres serverTCP s
databazi, ktera je na 1. Komunikace probiha tak, ze se zasilaji prikazy
(INIT, DATA....) a komunikuji pres SendText.
Mohl by jsi mi poradit ceho se vyvarovat a jak implementovat synchronizaci
(pokud pujdou ze stejne IP adresy).
Diky
ales dana
----- Original Message -----
From: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 16, 2002 8:30 AM
Subject: RE: Komunikace pres TCP/IP
> > Je mozne z vyse uvedeneho vyvodit, jake volani pouzit pro klienta,
> > ktery komunikuje s databazi, uklada do ni data zadana od uzivatele,
> > zobrazuje vysledky pozadovanych akci, apod? Je jasne, ze pri pouziti
> > blokujiciho volani by musel klient pouzivat vlakna. Pak se nabizi
otazka,
> > co je vyhodnejsi. Zda oprogramovavat neblokujici volani ci synchronizaci
> > mezi vlakny. Ma na rozhodovani o tom, jakou pouzit komunikaci (blokove
> > volani
> > ci neblokove), vliv i navrh komunikacniho protokolu, nebo ten s tim
vubec
> > nesouvisi?
>
> nezapomen take na to, ze blokujici a neblokujici sockety se rozdlne
> chovaji z pohledu programatora... programovani s blokujicimi sockety
> je hodne primocare, protoze presne vis kdy se ktera operace deje. Das
> prijmout data a vis, ze nasledujici radek v pogramu uz ma prijmuta
IB/FB table properities
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 16.1.2002 09:45:58
Haj hou!
On 16 Jan 2002, at 6:55, Petr Palicka wrote:
> ja teda CVS nemam a neumim s tim.
> kdyby mi nekdo poradil, kde a co si mam
> stahnout a nainstalovat, byl bych rad.
Na http://sourceforge.net/projects/cvsgui
nebo http://www.wincvs.org
je WinCVS, dle meho nejlepsi CVS frontend pro Windows
(pouzivam uz par let). Pokud si k tomu stahnes i TCL (de do
Googlu hledat +TCL +windows +download) coz je take Open
Source, tak ti budou fungovat i makra a skriptiky (treba generovani
ChangeLogu :-) SSH nepotrebujes, protoze ti stejne jde jen o
anonymni pristup. Navod na anonymni pripojeni k CVS je
SourceForge u kazdeho projektu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Progres meter
[*] Du�an Andr����s��v��� ��w� - 16.1.2002 10:02:54
Zdravim
Mam D5.
Pomoci ADO (provider OLE DB) volam stored proceduru v MS SQL.
Potrebuji z ni ziskat nejen recordset ale i info hlasky ktere vypisuje.
(Kdyz mam v QA results in Grid, je to obsah okna message.)
Nevite nekdo jak na to?
(Chci totiz pri restore DB v applikaci vyrobit progers meter)
Dusan Andras
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1. 2002
Sinea - tisk zaznamu do sloupcu
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 16.1.2002 10:02:31
> Ahoj,
> mam tel. seznam, ktery bych chtel dostat na papir do trech slupcu.
> To jsem zatim zvladl, ale problem je v tom, ze se jednotlive zaznamy
> postupne tisknout do sloupcu,
> ale ja bych chtel aby se tiskly do jednoho sloupce a potom do tech
dalsich.
> Diky moc.
>
> Priklad.
> Ted se tiskne
> --------------
> Alan Alena Alik
> Beda Boda Buda
>
> Ale ja bych chtel
> -----------------
> Alan Beda .atd
> Alena Boda
> Alik Buda
>
>
> Delphi 5
>
>
>CVS (pro stazeni ibconsole)
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 16.1.2002 10:03:11
> Haj hou!
> Na http://sourceforge.net/projects/cvsgui
> nebo http://www.wincvs.org
jo, tak uz jsem to taky nasel (cvs i wincvs).
mam to nainstalovany, ale asi jsem looser :)
proste nevim, jak ho prinutit aby mi stahnul to co chci.
na sf je nejaky takovyto retezec:
cvs
-d:pserver:anonymous(zv)cvs.IBConsole.sourceforge.net:/cvsroot/ibconsole
login
zkousel jsem to i v holem cvs
(to je super vec, zadna instalace, jenom jedno exe ;)
ale vyhodi mi to:
cvs login: failed to open P:\/.cvspass for reading: No such file or
directory
cvs [login aborted]: fatal error: exiting
muze to byt tim, ze jsem za M$Proxy s NTLM autorizaci?
dekuji PeC(zv)PickList v DBGridu
[*] Eva Risicov� <eva(zv)foresta(tec)cz> - 16.1.2002 10:04:50
Ahoj
potrebovala bych na stisk nejake klavesy na bunce v komponente DBGrid
rozbalit obsah PickListu (vlastne ten comboBox, ktery se tam vytvori).
Netusite nekdo jak na to?
Diky Eva
Karta s porty LPT a COM
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 16.1.2002 10:15:28
Mel jsem k dispozici 4 portovou kartu Moxa a Windows si s autodekci
neskrtly.
Kdyz jsem tam pridal ty porty manualne tak to fungovalo spravne.
No ale to je jedno. Mozna ze mas pravdu ty a ovladace budou treba.
Jen se s tim jeste nesetkal.
Radek
>> Pokud jsou to standardni porty (jako ze asi jo)
>
>Vzhledem k tomu co pise autor :
> > Windows tuto kartu nadetekuji a hl�s� ji jako PCI COMUNICATION DEVICE
>tak jako ze asi ze NE :)
>
>Takze jak jsem psal. Sehnat si ovladace.
>
>Ja mam napriklad dva COMy navic a sedi v :
>
>Multifunk�n� adapt�ry -> PCI 4036A Multi- I/O Adapter
>Porty (COM a LPT) -> PCI serial port (COM3)
>Porty (COM a LPT) -> PCI serial port (COM4)
>
>Pak mam podobny LPT port navic a ten sedi v :
>Multifunk�n� adapt�ry -> PCI 4008A Multi- I/O Adapter
>Porty (COM a LPT) -> PCI Paralel Port (LPT2)
Komunikace pres TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.1.2002 10:31:51
> V dokumentaci jsem se docetl, ze pokud se pouziva blokove spojeni,
> mely by se data cist a posilat prostrednictvim TWinSocketStream.
> Bohuzel jsem nikde nenasel priklad, jak to pouzit v pripade, ze nechci
> pracovat s vlakny. Dala by se na tento zpusob komunikace pouzit
> Synapse? Bylo by to jednodussi nez pouzivat TClientSocket?
> Je k Synapsi nejake demo na blokove spojeni?
Cela Synapse je postavena na blocking rezimu, nicmene pokud chces,
tak Synapse podporuje i non-blocking rezim. U synapse nepouzivas
zadny stream, proste kdyz chces precit co zapsat data, zavolas
patricou metodu.
Pokud tvuj komunikacni protokol pracuje na principu jednotlivych
radku (jak to dela vetsina internetovych protokolu), tak s uspechem
muzes pouzit velmi jednoduche metody: RecvString a SendString.
Co si predstavujes pod tim demem? V synapsi najdes demo na TCP
server, demo na TCP klient je Synapse sama o sobe (respektive staci
se podivat na implementaci libovolneho TCP internetoveho protokolu,
trebas smtpsend.pas, pop3send.pas, imapsend.pas,...)
Pokud chces UDP, tak priklad UDP serveru je tak malicky, ze je ve
FAQ, a priklald UDP klienta je zase nejaka moje impleentace..
(napriklad dnssend.pas, sntpsend.pas, snmpsend.pas,...)
Vse vyse zminene najdes v distribucnim balicku Synapse.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Komunikace pres TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 16.1.2002 10:39:49
> zrovna pacham system s non-blocking modem, ktery vypada asi nasledovne: 1.
> db server, 2. serverTCP a 3. klienti. Klienti komunikuji pres serverTCP s
> databazi, ktera je na 1. Komunikace probiha tak, ze se zasilaji prikazy
> (INIT, DATA....) a komunikuji pres SendText.
> Mohl by jsi mi poradit ceho se vyvarovat a jak implementovat synchronizaci
> (pokud pujdou ze stejne IP adresy).
Asi jsi mne neprilis pochopil... zkusm to znovu a lepe. ;-)
pokud pouzijes TCP sojeni, tak se pri kazdem spojeni vtvori irtualni
okruh, tedy neco, o se cova jako samostatny obousmrny drat od serveru
ke kleintovi. A kazdy takovyto drat ma jak na strane serveru, tak i
na strane klienta vzdycky nejaky svuj socket handle, na ktery se ty
jako programator odolavas. Diky tomu se data navzajem nepomichaji, i
kdyz jsou trebas vsechny tri sobezna spojeni ze stejne stnice na
stejny server. Chova se to skutecne jako tri samstatna spojeni , na
kazde strane mas tri ruzne handly.
kdyz jsem mluvil o synchronizaci, tak jsem mel na mysli pise toto:
blokujici rezim:
-chci primout data
-poslu prikaz na prijem dat
... tady se beh threadu zastavi a eka na data
-data prijmuta a musim je zpracovat.
non-bocking rezim:
-chci prijmout data
-poslu prikaz na prijem dat
-muzu si delat co chci
-uz prisly data?
-delam si co chci
-uz prisly data?
-delam si co chci
-hele, data jsou tady, tak si je vyzvednu
-zpracuji data
tedy v prvnim pipade se o synchronizaci apliakcni logiky s komunikaci
nemusis start, dela ji za tebe system. zatimco v druhem pripade musis
aplikacni logiku uzpusobit tomuz, e data ti prichazeji v jinem
okamziku, a ten okamzik predemneznas. musis tedy nejakym zpusobem
synchronizovat beh tveho allgoritmu s behem dat. na druhou stranu v
okamziku kdy ceks na data nejsi zastaven a tak muzes v tu chvili
obsluhovat trebas hromady dalsich spojeni...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Distribuce aplikace s InterBase licencni podminky
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 16.1.2002 11:18:57
Haj hou!
On 16 Jan 2002, at 9:26, jtomecek wrote:
> r�d bych se dozv�d�l n�jak� info o licen�n�ch podm�nk�ch
> t�kaj�c�ch se InterBase - jeho distribuce s aplikac�.
Prijde na to, jakou InterBase.
Verze < 6.0 je pouze komercni, az na 4.0 pro Linux a 4.0 pro 16-bit
Windows (pokud mas jeste Delphi 1 :-).
Verze >= 6.0 je take komercni, ale existuje i tzv. Open Edition
ktera je free -> Open Source (sirena pod variantou Mozilla Public
Licence), a ktera je k dispozici POUZE v podobe zdrojovych textu
na SourceForge. K dispozici u Borlandu by mely byt jeste volne
siritelne binarky BETA verze 6.0 (neky ze zacatku lonskeho roku).
A pak je tu Firebird, ktery lze take volne sirit a jsou k dispozici i
binarky pro ruzne platformy.
Komercni verze se distribuuje tak, ze si u Borlandu koupis tzv.
Media Kit za cca $50, kde je IB pro vsechny (tri) Borlandem
podporovane platformy, ale bez aktivacnich klicu (klic EVAL
funguje jako 5-user demo na 60 dni). Z media kitu pak muzes
instalovat zakaznikum (i sobe), a k tomu si dokupujes papirky s
aktivacnimi kody (cenik na http://shop.borland(tec)cz).
Firebird a IB Open Edition je Open Source, a tedy muzes sirit
zdarma a bez omezeni (musis pouze zverejnit zdrojove kody zmen,
ktere do enginu udelas, pokud je tedy udelas :-)
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
DB na IB/FB a MS SQL - obecna metoda na provedeni
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 16.1.2002 11:21:02
Zdravim,
mam takovy problem (dneska mi to asi moc nezapaluje).
Delam zakladni objekty pro nas IS a vzhledem k tomu, ze tento system pobezi
na MS SQL a IB je nutne vyresit na urovni tohoto objektu nejakou obecnou
metodu, ktera dokaze provest zadany SQL dotaz s tim, ze si ona sama interne
rozlisi na jakem stroji bezi zrovna pripojena DB. Pro pripojeni na IB budeme
vyuzivat IB Objects a pro MS SQL ADO
Napadlo me toto:
function TGor3WinApplication.GetSQLQueryObject: TDataset;
begin
Result := nil;
case FDBEngine of
dbe_IB_6 : begin
Result := TIBOQuery.Create(nil);
with Result as TIBOQuery do
begin
IB_Connection := FIBConnection;
IB_Transaction := FIBTransaction;
end;
end;
// dbe_MSSQL_2000 : Result := TQuery.Create(Self);
end;
end;
function TGor3WinApplication.executeSQL(ASQLObj : TDataset; AParams:
TSQLParamsSet): boolean;
begin
Result := false;
Assert(Assigned(ASQLObj), 'Je nutno poedat ASQLObj !!!');
Assert(not ((sqlpOpen in AParams) and (sqlpExecute in AParams)), 'Nelze
poedat soueasni parametry sqlpOpen a sqlpExecute !!!');
case FDBEngine of
dbe_IB_6: begin
Assert(ASQLObj is TIBOQuery, 'ASQLObj mus� b�t typu TIBOQuery !!!');
if (sqlpOpenTransaction in AParams) and
FIBTransaction.TransactionIsActive then
raise EG3Error.Create('Transakce je ji� otevoena !!!');
if sqlpOpenTransaction in AParams then
FIBTransaction.StartTransaction;
with ASQLObj as TIBOQuery do begin
IB_Connection := FIBConnection;
IB_Transaction := FIBTransaction;
if sqlpPrepare in AParams then
Prepare;
// if sqlpOpen in AParams then
Open;
if sqlpExecute in AParams then
Close;
end;
if sqlpCloseTransaction in AParams then
FIBTransaction.Commit;
Result := true;
end;
// dbe_MSSQL_2000: Assert(ASQLObj is TQuery, 'ASQLObj mus� b�t typu
TQuery !!!');
end;
end;
Ale vidim v tom nekolik zadrhelu:
1. Nelibi se mi vytvareni objektu v runtime resp. nechce se mi behem runtimu
nastavovat veskere property tech objektu (je jich prilis mnoho)
2. S tim take souvisi ruseni techto objektu, ktere musi zajistit programator
(owner = nil)
3. Pokud budu predavat pouze zneni dotazu, tak prichazim o Params (ale to by
se dalo zajistit treba nejakym eventem nebo callbackem)
4. A pak jde tedy o predani parametru pro ty objekty. Napada me vyuziti
RTTI, ale nevim jestli to bude to prave orechove...
Zkuste mi poradit, jak byste to resili vy
Diky
S pozdravem
Milan Tome� [mailto:milan.tomes(zv)haida(tec)cz]