Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Existuje nejaky zapis v DB
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 17.9.2002 05:57:39
Zadravim,
potrebuji zjistit, zda existuje aspon nejaky zapis v DB tabulce.
Problem je taky ten, ze test musi akceptovat filtr, tzn, jestlize po
nastaveni filtru se jevi tabulka prazdna,
tak bych mel videt, ze tabulka se jevi jako prazdna.
Nevim kde v konferenci hledat tento test - proste jsem to nenasel.
Diky za pomoc, urcite tento problem jiz nekdo resil.
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Program vykonal neplatnou operaci - v cyklu
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 17.9.2002 06:16:51
Dela to na vsech strojich - zkousel jsem WinMee, Win 98. Aplikace je napsana
v D6 Prof. Prave ze jedine co je v te aplikaci v behu (myslim, co jsem
napsal), tak je komunikace pres RS232, ale dela to i kdyz ten port zavru -
tedy jsou neaktivni vsechny procedury s nim spojenene ...
Rumcajs
> Cokoli. Bud je nekde chyba primo v te aplikaci (zapisuje na adresu kam
nema)
> nebo je u toho uzivatele do procesu natazen nejaky driver tiskarny, mysi
apod
> ktery je chybny. Pokud se to projevuje vsude (hlavne i na NT) tak je chyba
v
> te aplikaci. Neni to nejaka starsi verze Delphi ? O jaky OS jde ?
>
> Petr Vones
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Existuje nejaky zapis v DB
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 17.9.2002 06:18:14
Pocet := Table1.RecordCount;
Rumcajs
> Zadravim,
> potrebuji zjistit, zda existuje aspon nejaky zapis v DB tabulce.
> Problem je taky ten, ze test musi akceptovat filtr, tzn, jestlize po
> nastaveni filtru se jevi tabulka prazdna,
> tak bych mel videt, ze tabulka se jevi jako prazdna.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.384 / Virov� b�ze: 216 - datum vyd�n�: 21.8.2002
Existuje nejaky zapis v DB
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 17.9.2002 07:16:23
> Zadravim,
> potrebuji zjistit, zda existuje aspon nejaky zapis v DB tabulce.
> Problem je taky ten, ze test musi akceptovat filtr, tzn, jestlize po
> nastaveni filtru se jevi tabulka prazdna,
> tak bych mel videt, ze tabulka se jevi jako prazdna.
>
> Nevim kde v konferenci hledat tento test - proste jsem to nenasel.
> Diky za pomoc, urcite tento problem jiz nekdo resil.
Zapis ve smyslu "zaznam"? Co treba SELECT Count(*) nebo SELECT klic...
Roman
==============================
http://kouzelne.misto(tec)cz
Re[2]: Tabulka MSAccess
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 17.9.2002 07:21:43
To bohuzel nezabralo, ale nevim, jestli chybu nedelam ja sam - nic takoveho
jsem nedelal, a tak jen zkousim...
>Prakticke zkusenosti s Accessem nemam.
>Kdyz ale na kurzech probirame ruzne technologie >pripojeni (BDE, ADO+ODBC,
ADO+Jet), vzdycky mi >stacilo nastavit LoginPrompt na false.
>> mam Paradox tabulku v BDE a potreboval bych do ni importovat data ze
>> souboru MSAccess. Zkousel jsem neco s komponentou TDatabase, ale
>> veskere pokusy skoncili u login a password, coz jsem neznal.
Osetreni behu Interbase
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 17.9.2002 07:25:12
Nenapsal jsi jaka IB, jake Delphi, jake komponenty, tak tady mas aspon
priklad k zamysleni:
http://www.devrace.com/files/example_connectionlost.zip
Roman
==============================
http://kouzelne.misto(tec)cz
> Zdravim a mam takovy obecny dotaz:
> Jak resite hlidani pripojeni klienta k IB serveru?
> Po zkouseni s udalostmi OnDisconnect a OnIdle jsem nakonec vse
> resil tak, ze v DataModulu mi bezi Timer, ktery v intervalu zkousi
> Database.TestConnected. Kdyz zjisti, ze DB je odpojena, zkousi ji
> opet pripojit. Vse funguje, jenom se mi tento zpusob moc nezda,
> neni to moc vidlacke? Nepodporuje IB primo nejake rutiny na
> opakovane spojeni s DB Serverem?
QReport 3.5 D6 - jak udelat grouping?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 17.9.2002 07:31:16
> Zdravim,
> Snazil jsem se vykoukat z dema jak funguje Grouping na QReportu. Princip
> tedy celkem chapu, ale narazil jsem na pro mne prozatim neresitelny
orisek.
> Oni v demu pouzivaji master/detail tabulky. Jenze to ja pri pouzivani ADO
> component nemohu. Prosim nemate nekdo zkusenosti jak udelat Grouping na
> QReportu pokud jako zdroj dat je pouzit SQL server a pro pipojeni k datum
> pak ADO componenty?
> Diky,
Tak to by slo nejspis pomoci OnNeedData s tim, ze ten detail dataset si
budes nastavovat sam (SELECT... nebo filtr nebo co ja vim).
Anebo bys to mohl dat vsechno do jednoho dotazu (select ... from master
inner join detail ... ) a jednotlive skupiny oddelit pomoci expression.
Roman
==============================
http://kouzelne.misto(tec)cz
Jak zjistit nazev domeny?
[*] pilifs <pilifs(zv)seznam(tec)cz> - 17.9.2002 07:43:46
Hello Delphi,
potreboval bych zjistit jmeno domeny ve ktere se nachazim. Muzete
nekdo poradit?
Diky.
D5 Ent, W2000, MSSQL2000
--
Best regards,
pilifs mailto:pilifs(zv)seznam(tec)cz
rychlost - pomalost DBExpressu
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 17.9.2002 07:53:46
Pred rokem jsem DBExpress zkousel proti IB. Otevreni tabulek (vysledny seznam v radu desitek zaznamu) bylo celkem v poradku (presne si to nepamatuji, ale cas byl v desetinach sekundy, nicmene to pochopitelne trvalo dele nez u IBExpressu). Bohuzel jsem ale narazil na problem pri otevreni tabulky bez zaznamu, kdy otevreni opravdu trvalo radove vteriny. Tenkrate mi posilal komentar Pavel Cisar, ktery rikal, ze v DBExpressu byla nejaka chyba a ze ji snad Borland odstranil.
Protoze se mi problem projevoval dale a v podstate nebyla zaruka, ze se stav nebude zhorsovat ci se problemy neprojevi nekde jinde, tak jsem DBExpress opustil.
Asi predevcirem tu sel mail (myslim od P.Vonese), v nemz autor tvrdil, ze v D7 je DBExpress v lepsim stavu. Pokud by jsi to zkoumal, napis do konference vysledek.
Zdar tvemu dilu
Dan
----- Original Message -----
From: Hlas
To: delphi-l(zv)clexpert(tec)cz
Sent: Monday, September 16, 2002 9:18 PM
Subject: rychlost - pomalost DBExpressu
vytvoril som si skusobnu aplikaciu v dbexpresse. v databaze pouzivam 3 tabulky.
po testoch som bol zhrozeny casmi, ktore som nameral.
otvaranie tychto 3 tabuliek cca 5 sek - tabulky su skoro prazdne.
20 zapisov do 1 tabulky v cykle cca 35 sek.
mozem robit niekde chybu alebo je to take pomale?
Pouzivam: W2k, PIII 1GHz, D6Enterprise, IB6, komponenty SQLConnection, SQLClientDataSet.
Rovnako je to pomale na sieti, aj na jednom pocitaci. Zda sa, ze pomalost sposobuje componenta
SQLClientDataset, pretoze ten cas je strasne dlhy este pred applyupdates a commitupdates, takze vlastne
IB este ani nie je v hre, vsetko sa odohrava v pamati.
Netusite niekto, ci je to normalne. Odhadujem, ze pri takychto rychlostiach mi zapis do 5-10 tabuliek
cca 50 zaznamov moze trvat aj minutu...??? ved to je nepouzitelne...
Btrieve
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 17.9.2002 08:53:08
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
Potreboval bych zkonvertit data z btrieve db do jakehokoliv souboru.
Nevite o free btrv serveru?
W2k,D5P SP1
Martin
Jak ziskat seznam existujicich aliasu
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 17.9.2002 08:53:45
Ahoj,
potreboval bych pri startu aplikace dat uzivateli navyber z existujicich aliasu, na ktery se pripoji.
Nedelali jste to nahodou ?
Diky Tymi
Osetreni behu Interbase
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 17.9.2002 08:58:46
Haj hou!
On 16 Sep 2002 at 16:30, Petr Selinger wrote:
> Jak resite hlidani pripojeni klienta k IB serveru?
Proc to vubec hlidat ? Z aplikace je vcelku zbytecne se odpojovat od
serveru, i kdyz neni nic na praci. Server se sam od sebe take neodpoji,
pokud nahodou nespadne (nemelo by se stat), a pak by o tom mel nekdo
vedet, ne to mlcky prejit a vtichosti se znovu pripojit.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
FB a bitmapy
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 17.9.2002 08:58:47
Haj hou!
On 16 Sep 2002 at 16:55, XOR wrote:
> zacinam s Firebirdem a zatim nemam dokumentaci.
> Potreboval jen bych vedet jak nadefinovat takove
> BLOB pole, ktere by umoznovalo vlozeni bitmapoveho obrazku,
Blob jako blob :) V tomto pripade subtype 0 (subtype 1 je pro text).
Subtype 0 je obecny binary blob, kam se da nacpat treba i ten bitmapovy
obrazek.
> a zda do tabulky lze vkladat bitmapovy obrazek pomoci IB_SQL.
Co je IB_SQL ? IBO_SQL konzole nebo IBSQL komponent z IBX ? Z konzole
(jakekoliv) se bloby vkladaji dost blbe, pokud to dana konzole vubec
umoznuje. IBSQL koponent na to ma metody LoadFromFile/Stream
SaveToFile/Stream na (TIBXSQLVAR strukture) property Fields, podobne jako
bezny dataset na TField objektu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Vyhledavani v listview ? JAK ?
[*] Ing. Pavel �ilinec����)b���zf���3 - 17.9.2002 09:10:20
Asi si to budes muset projit ruzne.
Z hlavy napr.:
function NajdiRadek(ASloupec : integer; AText : string) : integer;
var
i : integer;
MyText : string;
begin
Result := -1;
for i := 0 to ListView.Items.Count - 1 do
begin
if ASloupec = 0 then MyText := ListView.Items[i].Caption
else MyText := ListView.Items[i].SubItems[ASloupec - 1];
if MyText <> AText then continue; {To porovnani samozrejme muze byt libovolne}
Result := i;
exit;
end;
end;
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
JB> Zdravim
JB> Potrebuji vyhledavat zaznam v Listviw - u
JB> asi takto mam napr. 5 sloupcu a potrebuji hledat jen v jednom
JB> podle toho ktery si zvoli uzivatel NEVI prosim nekdo jak na to?
JB> Predem diky za jakou koliv radu
JB> Jiri Betunak
JB> Kindrik(zv)centrum(tec)cz
JB> Viruslog(zv)volny(tec)cz
ADO a timeout
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 17.9.2002 09:15:02
> Byl za mnou keloga, ze kdyz nastavi na ADONISU timeout, tak mu to nezabere
> pro EecSQL. Timeout se realne nezmeni, po uplynuti doby puvodniho
timeoutu,
> pokud do te doby prikaz neskonci, nahlasi mu to Access Violation.
Nesetkali
> jste se prosim nekdo s takovym problemem?
myslim ze je to stejne jako na jine DB => musi nastavit timeout, pro
ADOConnection vlastnost ConnectionTimeout a pro ADODataset vlastnost
CommandTime, jinak se vzdy pouziji defaultni hodnoty (30s?)
Pavel
XP Theme a vlastni komponenta
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 17.9.2002 09:16:56
Zdravim vsechny,
mam takovy "drobny" problem: Udelal jsem si svoji vlastni komponentu, ktera
je potomkem TCustomEdit (TTypeEdit). Tento ma dalsiho potomka
(TButtonTypeEdit), ktery do editacniho okenka umistuje TBitBtn. V D6 (resp.
bez podpory XP themes) to vse funguje, ovsem pokud pouziji XP themes, tak se
mi tento button nevykresli. EditRect nastavuji pred EM_GETRECT a
EM_SETRECT(NP) a v tom bude mozna nekde ten problem - pokud button umistim
do prostoru pro editaci, tak se vykresli.
Zkousel jsem se inspirovat u SpinEditu (jako jsem to udelal pri vytvareni
tohoto editu), ale na nic jsem neprisel. Jediny poznatek mam akorat takovy,
ze v unite Themes je i pro Spin udelana nejaka vyjimka (nestudoval jsem to
podrobne, nebot na to neni dostatek casu).
Zkuste mi prosim poradit, docela to specha (znate to - nas zakaznik, nas
pan...)
Diky
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Re[4]: DelphiX
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 17.9.2002 09:32:36
To nebyl muj clanek. :-) Bohuzel ho nemohu ani najit, takze vam asi
neporadim.
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> jo cetl jsem tenkrat vas clanek na www.builder(tec)cz ohledne
> isometrickeho systemu. jak lze do toho zakomponovat objekty a jejich
> pohyb.
>
> Milan
DBGrid - List out of index
[*] ViragI(zv)logica(tec)com - 17.9.2002 09:33:28
Mam 2.0 beta. To je myslim posledni, kde uz je zacleneno mnoho komponent z
RxLib. Ale DBGrid nebo JvDBGrid jsem tam nenasel. Projedu to jeste jednou a
kdyztak to zanesu do newsu. Dekuji.
Ivan Virag
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Monday, September 16, 2002 5:26 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: DBGrid - List out of index
From: <ViragI(zv)logica.com>
> jsem tedy DBGrid RxDBGridem k plne spokojenosti. Jenze potom nemuzu pouzit
> JVCL komponenty, protoze to nejde spolu prelozit. JVCL zase nema svuj
DBGrid
Zkusil jsi posledni verzi JVCL ? Pripadne problemy napis do prislusnych
newsu:
news://forums.talkto.net/jedi.vcl
Petr Vones
This e-mail and any attachment is for authorised use by the intended recipient(s) only. It may contain proprietary material, confidential information and/or be subject to legal privilege. It should not be copied, disclosed to, retained or used by, any other party. If you are not an intended recipient then please promptly delete this e-mail and any attachment and all copies and inform the sender. Thank you.
Delpi 6 prof a win XP
[*] Slavomir Cekel <cekel(zv)noves.sk> - 17.9.2002 09:44:01
Prosim vas o pomoc ...
planujeme kupit do firmy WinXP (pravdepodobne na vsetky PC) a zaujima
ma, ci su nejake problemy s D6 ... teraz programujem na w2k a problem
nemam ....
dakujem za kazdy nazor
Slavo
Jak pouzit obdobu Delphi funkce INT v selectu.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 17.9.2002 09:48:55
Zdravim,
Prosim nevite nekdo jak na MSSQL napsat funkci se stejnym chovanim jako INT
v Delphi.
ROUND, FLOOR ani CEILING nevyhovuji.
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.389 / Virus Database: 220 - Release Date: 16/09/2002
Jak zjistit nazev domeny?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.9.2002 09:56:59
> potreboval bych zjistit jmeno domeny ve ktere se nachazim. Muzete
> nekdo poradit?
const
netapi32 = 'netapi32.dll';
type
PWkstaUserInfo1 = ^TWkstaUserInfo1;
TWkstaUserInfo1 = packed record
wkui1_username: PWideChar;
wkui1_logon_domain: PWideChar;
wkui1_oth_domains: PWideChar;
wkui1_logon_server: PWideChar;
end;
PWkstaInfo = ^TWkstaInfo;
TWkstaInfo = packed record
wki100_platform_id: DWORD;
wki100_computername: PWideChar;
wki100_langroup: PWideChar;
wki100_ver_major: DWORD;
wki100_ver_minor: DWORD;
end;
function NetWkstaUserGetInfo(reserved: PWideChar; level: DWORD; var bufptr:
Pointer): Integer; stdcall;
external netapi32 name 'NetWkstaUserGetInfo';
function NetWkstaGetInfo(servername: PWideChar; level: DWord; var bufprt:
Pointer): integer; stdcall;
external 'netapi32.dll' name 'NetWkstaGetInfo';
function NetApiBufferFree(Buffer : Pointer) : Integer; stdcall;
external netapi32 name 'NetApiBufferFree';
procedure TForm1.Button1Click(Sender: TObject);
var
P: Pointer;
begin
NetWkstaUserGetInfo(nil, 1, P);
try
with PWkstaUserInfo1(P)^ do
ShowMessage(Format('username: %s'#13'logon_domain: %s'#13'oth_domains:
%s'#13'logon_server: %s',
[wkui1_username, wkui1_logon_domain, wkui1_oth_domains,
wkui1_logon_server]));
finally
NetApiBufferFree(P);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
P: Pointer;
begin
NetWkstaGetInfo(nil, 100, P);
try
with PWkstaInfo(P)^ do
ShowMessage(Format('platform_id: %d'#13'computername: %s'#13'langroup:
%s'#13'ver: %d.%d',
[wki100_platform_id, wki100_computername, wki100_langroup,
wki100_ver_major, wki100_ver_minor]));
finally
NetApiBufferFree(P);
end;
end;
HTH
TOndrej
DPR soubor was: Resource a obrazek
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.9.2002 10:05:05
> Nikdy nic neupravuj ve vygenerovanem .dpr souboru.
IMHO to nekdy jinak nejde, i kdyz v danem pripade zkusim
navrhovana reseni. Ale jak resit treba hlidani jedne instance,
rekneme pomoci FindWindow nebo mutexu, to uz je celkem jedno,
kdy chceme, aby vytvareni hlavniho formu se delo az teprve tehdy,
kdyz uz se vi, ze aplikace neni spustena jako dalsi instance?
Veskere Application.CreateForm je pak treba strcit do nejakeho ifu.
David Lebeda
Jak pouzit obdobu Delphi funkce INT v selectu.
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.9.2002 10:06:38
Muzes vyzkouset Floor(Cislo + 0.499)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
17.9.2002 David Michal:
> Zdravim,
> Prosim nevite nekdo jak na MSSQL napsat funkci se stejnym chovanim jako INT
> v Delphi.
> ROUND, FLOOR ani CEILING nevyhovuji.
Jak pouzit obdobu Delphi funkce INT v selectu.
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 17.9.2002 10:14:08
Ahoj,
> david.michal(zv)www-bv.com 17.9.02 9:48 >>>
>Prosim nevite nekdo jak na MSSQL napsat funkci se stejnym chovanim jako INT v Delphi.
>ROUND, FLOOR ani CEILING nevyhovuji.
SELECT CONVERT(INT,10.56)
SELECT CAST(10.56 AS INT)
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
DPR soubor was: Resource a obrazek
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.9.2002 10:25:27
>> Nikdy nic neupravuj ve vygenerovanem .dpr souboru.
>
> IMHO to nekdy jinak nejde, i kdyz v danem pripade zkusim
> navrhovana reseni. Ale jak resit treba hlidani jedne instance,
> rekneme pomoci FindWindow nebo mutexu, to uz je celkem jedno,
> kdy chceme, aby vytvareni hlavniho formu se delo az teprve tehdy,
> kdyz uz se vi, ze aplikace neni spustena jako dalsi instance?
> Veskere Application.CreateForm je pak treba strcit do nejakeho ifu.
a nie je s tym ziadny problem:
program adbd;
uses
Forms,
JclAppInst,
MainForm in 'MainForm.pas' {FormMain},
AboutForm in 'AboutForm.pas' {FormAbout},
ChildForm in 'ChildForm.pas' {FormChild},
ADBData in 'ADBData.pas',
OptionsForm in 'OptionsForm.pas' {FormOptions},
ADBDConst in 'ADBDConst.pas',
SQLForm in 'SQLForm.pas' {FormSQL};
{$R *.res}
begin
with JclAppInstances('{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}') do // tam
mam nejaky GUID
if CheckInstance(1) then
begin
Application.Initialize;
Application.Title := 'ADB Desktop';
Application.CreateForm(TFormMain, FormMain);
Application.Run;
end
else
begin
SwitchTo(0);
SendCmdLineParams('TFormMain', 0);
end;
end.
Pravdupovediac, editovanie .dpr suborov je vo firme, kde robim, vcelku bezna
vec. <g>
HTH
TOndrej
BTrieve
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 17.9.2002 10:29:45
Ahoj, potrebuji prevest data z BTrieve tabulky do rozumneho formatu. Nevite
o free variante BTrieve serveru pro W2k?
Martin
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
Delpi 6 prof a win XP
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 17.9.2002 10:33:53
Problemy s D6 a WinXP nemam, spise mame problemy
se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
Uvazuji ze si na sve OEM verze XP dokoupim za rezijni
cenu W2K, coz uz lze. W2K nam zatim ani jednou nespadly.
Radim
----- Original Message -----
From: "Slavomir Cekel" <cekel(zv)noves.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, September 17, 2002 9:44 AM
Subject: Delpi 6 prof a win XP
Prosim vas o pomoc ...
planujeme kupit do firmy WinXP (pravdepodobne na vsetky PC) a zaujima
ma, ci su nejake problemy s D6 ... teraz programujem na w2k a problem
nemam ....
dakujem za kazdy nazor
Slavo
rychlost - pomalost DBExpressu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.9.2002 10:39:11
Odes�latel: Hlas <hlas(zv)inmail.sk>
Pouzivam: W2k, PIII 1GHz, D6Enterprise, IB6, komponenty SQLConnection, SQLClientDataSet.
Rovnako je to pomale na sieti, aj na jednom pocitaci. Zda sa, ze pomalost sposobuje componenta
SQLClientDataset, pretoze ten cas je strasne dlhy este pred applyupdates a commitupdates, takze vlastne
IB este ani nie je v hre, vsetko sa odohrava v pamati.
Neodpovim primo, protoze dbExpress (v praxi) nepouzivam, pokusim se jenom o tip:
Predevsim bych se pokusil odmonitorovat casy nejak "oddelene":
otevreni databaze (connect)
otevreni tabulky (tabulek)
nacitani dat
insert (update) v datasetu
applyupdates
commit
Pak se mi zuzi prostor pro hledani problemu.
Misto SQLClientDataSet bych pouzil SQLDataSet + DataSetProvider + ClientDataSet.
Bude se mi to lepe monitorovat (odchytavani udalosti na TDataSetProvider resp. TClientDataSet).
To tim spis, ze problemy vidis uz pred ApplyUpdates!
TClientDataSet se mi (v jinem kontextu) choval velmi rozumne.
A predevsim: pokud se dbExpress ukaze jako spatne pouzitelny, snadno vymenim SQLDataSet za IBDataSet.
SQLClientDataSet (stejne jako BDEClientDataSet a IBClientDataSet) je podivny hybrid.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Jak ziskat seznam existujicich aliasu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.9.2002 10:48:53
Odes�latel: Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz>
potreboval bych pri startu aplikace dat uzivateli navyber z existujicich aliasu, na ktery se pripoji.
Session.GetAliasNames
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Jak ziskat seznam existujicich aliasu
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 17.9.2002 11:03:02
[P��loha v souboru: winmail.dat]
Ahoj,
pouzil jsem tohle:
procedure GetAliasList(const Items : TStrings);
var
s : string;
begin
Items.Clear;
with TBDEItems.Create(Application) do
try
ItemType := bdDatabases;
Open;
while not EOF do
begin
Items.Add(FieldByName('NAME').AsString);
Next;
end;
finally
Free;
end;
end;
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
QReport 3.5 D6 - jak udelat grouping?
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 17.9.2002 11:13:20
Ahoj je to naprosto jednoduche, udele si form s dopln nejakym DataSetem
(a otevri ho !) a komponentou TQuickRep, nadefinuj si
na ni zakladni bandy jake chces, minimalne vsak Detail (property Bands), pak
:
1. na TQuickRep si poloz komponentu TQRgroup (asi se postavi jako posledni
band, je to jedno)
2 na TQuickRep si poloz komponetu TQRBand (asi se postavi na konec, je to
jedno)
3. property Master QRgroup1 nastav na QuickRep1 (cely report) - vznikne
Group header
4. property Expresion QRgroup1 nastav pomoci teditoru na nazev pole, dle
ktereho chces grupovat
5. property FooterBand QRgroup1 nastav QRBand1
Bandy by nyni mely byt serazeny a pomoci preview to muzes vyzkouset
Pavel
> Od: Roman [mailto:sw.maurice(zv)seznam(tec)cz]
>
>
> > Zdravim,
> > Snazil jsem se vykoukat z dema jak funguje Grouping na
> QReportu. Princip
> > tedy celkem chapu, ale narazil jsem na pro mne prozatim neresitelny
> orisek.
> > Oni v demu pouzivaji master/detail tabulky. Jenze to ja pri
> pouzivani ADO
> > component nemohu. Prosim nemate nekdo zkusenosti jak udelat
> Grouping na
> > QReportu pokud jako zdroj dat je pouzit SQL server a pro
> pipojeni k datum
> > pak ADO componenty?
> > Diky,
Existuje nejaky zapis v DB
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 17.9.2002 11:19:29
Pokud jde o filtr na strane SQL
tak "SELECT COUNT(*) FROM tabulka WHERE filter".
Pokud o filtr na strane klienta (v DataSetu) tak FindFirst():
Description
This function returns False, indicating that the cursor was not successfully
repositioned. Descendant classes override FindFirst to position the cursor
on the first record of the dataset, honoring any filters that are in effect.
FindFirst should return True if the cursor is successfully repositioned.
Pavel
> Od: Pavel ZIDEK [mailto:delphi(zv)kopr(tec)cz]
> Zadravim,
> potrebuji zjistit, zda existuje aspon nejaky zapis v DB tabulce.
> Problem je taky ten, ze test musi akceptovat filtr, tzn, jestlize po
> nastaveni filtru se jevi tabulka prazdna,
> tak bych mel videt, ze tabulka se jevi jako prazdna.
>
> Nevim kde v konferenci hledat tento test - proste jsem to nenasel.
> Diky za pomoc, urcite tento problem jiz nekdo resil.
>
> ----- KOPR software -----
> Pavel ZIDEK
> http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
>
Table -> Query pri Insert/Append "table is read on
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 17.9.2002 11:24:28
Ahoj,
vim, ze si nabehnu, ale mam problem, ktery jste mi uz jednou pomohli vyresit,
ale ja jsem odpoved stratil (nevylucuju, ze se mi nekdo ozval mimo konferenci,
protoze si ji vedu celou a odpoved jsem nenasel)
O co mi jde:
Mam x tabulek, propojenych mezi sebou pomoci ID.
Kdyz otevru "hlavni" tabulku pomoci komponenty Table, pomoci SQL paramtru v
dalsich komponentach Query se mi maji otevrit odpovidajici tabulky a z nich
se maji zobrazit data v zavislosti na "hlavni" tabulce.
Problem mam, kdyz chci vytvorit novy zaznam v tech Query a to at jiz pri Append
nebo Insert.
Vzdy mi to vyhodi hlasku "table is read only". Uz mi jednou nekdo poradil. Jde
o nastaveni toho Query. Zkousel jsem to stylem pokus-omyl, ale nechodi mi to.
Poradite?
Diky Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
WWW stranky zdarma na http://www.sweb(tec)cz
FB a bitmapy
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 17.9.2002 11:30:58
Ahoj,
On 16 Sep 2002 at 16:55, XOR wrote:
> zacinam s Firebirdem a zatim nemam dokumentaci.
> Potreboval jen bych vedet jak nadefinovat takove
> BLOB pole, ktere by umoznovalo vlozeni bitmapoveho obrazku,
> a zda do tabulky lze vkladat bitmapovy obrazek pomoci IB_SQL.
>
> Diky.
>
> Xaver Orgovan
v tabulce je :
OBR BLOB,
a na klientovi:
IBQueryTmp.SQL.Add('UPDATE POOBR');
IBQueryTmp.SQL.Add('SET OBR = :OBR');
IBQueryTmp.SQL.Add('WHERE ID = '+IntToStr(_ID));
IBQueryTmp.Params[0].DataType := ftBLOB;
IBQueryTmp.Params[0].Value := Null;
IBQueryTmp.Params[0].LoadFromFile(sPathToPicture,ftBlob);
pomoci SP se nam nepodarilo vyrestit.
Jarek Uher
Jak ziskat seznam existujicich aliasu
[*] Roman Konecnz <rkonecny(zv)datis(tec)cz> - 17.9.2002 12:02:24
Nejdrive musis mit v Uses unitu DB;
Pak staci
Session.GetAliasNames(ListBox1.Items); //nebo jina komponenta, jejiz items je TStrings
Roman
From: Jaroslav Koh�k
To: Delphi f�rum (el. adresa)
Sent: Tuesday, September 17, 2002 8:53 AM
Subject: Jak ziskat seznam existujicich aliasu
Ahoj,
potreboval bych pri startu aplikace dat uzivateli navyber z existujicich aliasu, na ktery se pripoji.
Nedelali jste to nahodou ?
Diky Tymi
Dotaz na hodnotu generaotru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 17.9.2002 12:17:06
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> select gen_id(mygenerator, 1) from rdb$database
Hi,
nejak nemuzu rozchodit uvedeny select z D6prof proti IB6.01 pripojene pres
TIB componenty.
Kdyz ho zadam rucne v IB Consoli nebo v DB Exploreru, tak mi vrati spravnou
hodnotu, ale jakmile ten samy text prikazu spustim v TIBQuery.ExecSQL, tak
dostanu chybu:
Invalid request BLR at offset 75,
generator XXXXXXX is not defined.
Muze mi pls nekdo poradit, co s tim mam udelat,
aby to fungovalo popr. jiny zpusob,
jak dostat hodnotu primarniho klice generovaneho
napr. generatorem+triggerem do klientske aplikace
- neco jako LastInsertRowID?
Thx, pf
Table -> Query pri Insert/Append "table is read on
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 17.9.2002 12:22:20
Toto se mi deje vetsinou v pripade, ze nemam nastaveno RequestLive na
TRUE. Pokud nejde nastavit vetsinou je problem v selectu - nejaka
klauzule ORDER BY nebo podminka, ktera svazuje vic tabulek a toto query
neni editovatelne ...
-----Original Message-----
From: Ing. Jiri SOKOL [mailto:JS-delphi(zv)seznam(tec)cz]
Problem mam, kdyz chci vytvorit novy zaznam v tech Query a to at jiz pri
Append nebo Insert. Vzdy mi to vyhodi hlasku "table is read only". Uz mi
jednou nekdo poradil. Jde o nastaveni toho Query. Zkousel jsem to stylem
pokus-omyl, ale nechodi mi to. Poradite?
Diky Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187 D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
WWW stranky zdarma na http://www.sweb(tec)cz
Re[2]: Tabulka MSAccess
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 17.9.2002 12:28:15
To se mi stavalo take, i kdyz na jine databazi.
Problem byl v tom, ze jsem alias udelal v DatabaseExploreru.
Kdyz jsem ho zalozil v ovaldacich panelech v ODBC tak to slapalo OK!
Cus Tymi
-----Original Message-----
From: David Kraina [mailto:DKx(zv)Seznam(tec)cz]
Sent: Tuesday, September 17, 2002 7:22 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re[2]: Tabulka MSAccess
To bohuzel nezabralo, ale nevim, jestli chybu nedelam ja sam - nic takoveho
jsem nedelal, a tak jen zkousim...
>Prakticke zkusenosti s Accessem nemam.
>Kdyz ale na kurzech probirame ruzne technologie >pripojeni (BDE, ADO+ODBC,
ADO+Jet), vzdycky mi >stacilo nastavit LoginPrompt na false.
>> mam Paradox tabulku v BDE a potreboval bych do ni importovat data ze
>> souboru MSAccess. Zkousel jsem neco s komponentou TDatabase, ale
>> veskere pokusy skoncili u login a password, coz jsem neznal.
Pristup k MS SQL serveru od klienta
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 17.9.2002 12:31:47
Ahoj lidi,
mam nasledujici problem: V siti mi bezi MSSQL serv na SmallBusinessServeru a ja se na nej v pohode dostanu.
Jenze ja jsem DomainAdmin.
Kdyz chci udelat pristup pro nejakeho DomainUsera tak me to tam nepusti.
Na MSSQL servru mam samozrejme nastaveno overovat uzivatele podle windows.
Nevite co s tim?
Diky Tymi
Smazani souboru do kose
[*] Martin =?ISO-8859-2?Q?Nov=E1k ?= <mnk(zv)centrum(tec)cz> - 17.9.2002 12:58:21
Zdravim,
chtel bych vedet, jak�m zpusobem smazu soubor, aby se mi ocitl v
kosi. Dekuji.
S pozdravem Martin Novak.
--------------------
Centrum pro milovn�ky pen�z http://finance.centrum(tec)cz
Pristup k MS SQL serveru od klienta
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 17.9.2002 12:59:21
> mam nasledujici problem: V siti mi bezi MSSQL serv na SmallBusinessServeru
a ja se na nej v pohode dostanu.
> Jenze ja jsem DomainAdmin.
> Kdyz chci udelat pristup pro nejakeho DomainUsera tak me to tam nepusti.
> Na MSSQL servru mam samozrejme nastaveno overovat uzivatele podle windows.
> Nevite co s tim?
myslim ze mas 2 moznosti:
a) nastavit overovani bez NT autentifikace a nastavit si prava/moznosti
uzivatele sam, nebo
b) nastavit na serveru NT autentifikaci a nastavit server tak, aby meli
uzivatele pristup k DB, viz. konfigurace MS SQL Serveru
Pavel Mattivi
Dezadata spol. s r.o.
Mostn� 102
757 01, Vala�sk� Mezi����
tel.: 0651/618 939, tel./fax: 0651/618 933
mobil: 0608 743 824
pmattivi(zv)dezadata(tec)cz
Re[2]: Delpi 6 prof a win XP
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.9.2002 13:06:35
<<< 17. 9. 2002 13:01 - Radim Kunz "privat(zv)casestudio.com" >>>
RK> Problemy s D6 a WinXP nemam, spise mame problemy
RK> se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
RK> Uvazuji ze si na sve OEM verze XP dokoupim za rezijni
RK> cenu W2K, coz uz lze. W2K nam zatim ani jednou nespadly.
Radim, myslim ze u teba bude chyba v PC, alebo v ovladacoch, lebo ak
je vsetko OK tak to ide ako hodiny. Jedine co som spozoroval, ze obcas
ked vypinam PC tak zmizne vsetko z obrazovky a ostane cisty desktop a
po case vypise ze Explorer.exe neodpoveda a bude ukonceny.
Mal som pripad, kde Cigler SW SK tvrdil, ze chyba softu je preto lebo
je tam Windows XP a aby sme tam dali Win2k, tak som volal do MS a tam
mi povedali, ze prvy krat v existencii MS povolili, prechod z XP na
nizsiu verziu OS bez ohlasenia a nasledneho povolenia MS. Spravili to
pre to, lebo ze XP vydali velmi rychlo a nestihli vsetci vyrobcovia
softu driverov zosuladit vsetky nalezitosti.
--
Best regards, TRoland
TQRExpr v QReport v 3.5
[*] David Michal <david.michal(zv)www-bv(tec)com> - 17.9.2002 13:15:54
Zdravim,
Do Expression pisi SUM(DM.Q_Temp1.Price). Ale bohuzel se mi tam pokazde
zobrazi nula. Spravnosti naplneni datasetu Q_Temp1 jsem jist. Nevite nekdo
co delam spatne, ze mi tento Expression nefunguje?
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.389 / Virus Database: 220 - Release Date: 16/09/2002
TJCLCounter - VYSOKA nepresnost hodnot
[*] Karel Kimes <kkonf(zv)email(tec)cz> - 17.9.2002 13:26:30
ahoj,
mam problem s presnosti TJCLCounter. Dival sem se, ze tento objekt vyuziva
QueryPerformanceFrequency a QueryPerformanceCounter.
QueryPerformanceFrequency mne vraci frekvenci 3579454 (Hz), ALE!!!
procedure TForm1.Btn_MeasureClick(Sender: TObject);
begin
FCounter.Start;
Sleep(5000); // 5s
ShowMessage(FloatToStr(FCounter.Stop)); // ******* ---> zobrazi hodnotu
od 0,882... do 0,889...
end;
nebo
procedure TForm1.Btn_MeasureClick(Sender: TObject);
begin
FCounter.Start;
Sleep(60000); // 60s
ShowMessage(FloatToStr(FCounter.Stop)); // ******* ---> zobrazi
hodnotu 10,336...
end;
Zajimave je, ze "rozdilovy pomer" :) (ufff, co sem to vyplodil, doufam, ze
fsichni pochopite, co tim myslim), tedy KONSTANTA = HODNOTA_SLEEP /
NAMERENA_HODNOTA, se jevi jako konstantni. Konstantu sem spocetl zhruba na
cca 5,805.
Proc mne to nevraci uplynuly cas v [s]? Proc musim vysledek nasobit touto
konstantou, ktera (NENI ODZKOUSENO), se muze na ruznych PC lisit?
Mj. zkousel sem to napsat i takhle a vysledek byl stejnej.
procedure TForm1.Btn_MeasureClick(Sender: TObject);
var
freq, start_time, end_time : Int64;
begin
if not QueryPerformanceFrequency(freq) then
RaiseLastOSError;
if not QueryPerformanceCounter(start_time) then
RaiseLastOSError;
Sleep(5000);
if not QueryPerformanceCounter(end_time) then
RaiseLastOSError;
ShowMessage(FloatToStr((end_time - start_time) / freq));
end;
WinXP, D6PRO UPDATE 02
kchodl
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
TMemo - �konkretni radek
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 17.9.2002 13:38:54
E-mailServus ve spolek,
Da se nejak zjistit u TMemo, na kterem radku se nachazi kurzor (nemam na
mysli mys)?
RumcajsServus ve spolek,
Da se nejak zjistit u TMemo, na kterem radku se nachazi kurzor (nemam na
mysli mys)?
Rumcajs
Delpi 6 prof a win XP
[*] Karel Kimes <kkonf(zv)email(tec)cz> - 17.9.2002 13:43:10
>Problemy s D6 a WinXP nemam, spise mame problemy
>se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
**** Spis bych to videl na nejaky "neposlusny" ovladace, protoze mam WinXP
a D6PRO UPD2 a valim, jiz nekolik mesicu bez jedinyho vytuhnuti. Sem, tam
neco vytuhne, ale vzdycky se mne to povedlo bezproblemu odstrelit Spravcem
uloh.
ALE!!! DOMA, tam mam taky WinXP a D6PRO UPD2 a nainstaloval sem si
Daemon-Tools (virtualni CD, ktere ma byt "kompatibilni" i s XP). Potom sem
jednou vecer skoncil s praci a pocitac sem uvedl do modu "hibernate",
proste sem ho uspal. Druhej den sen se nestacil divit. Musel sem
reinstalovat CELY XP! Z toho vseho vypliva, ze to padani, na ktery si moc,
moc, moc lidi stezuje, muze byt zpusobeno take NEKOMPATIBILNIMI ovladaci,
coz si, myslim, spousta lidi neuvedomuje (PLS: no flamewar!!!)
kchodl
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
TMemo - �konkretni radek
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.9.2002 14:13:09
TWVtby5DYXJldFBvczogVFBvaW50Ow0KDQpVZGF2YSB0aSBwb3ppY2kga3Vyem9ydQ0KDQotLSAN
CmluZy4gSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQoxNy45LjIwMDIgUnVt
Y2FqcyAtIGtvbmZlcmVuY2U6DQo+IEUtbWFpbFNlcnZ1cyB2ZSBzcG9sZWssDQo+IERhIHNlIG5l
amFrIHpqaXN0aXQgdSBUTWVtbywgbmEga3RlcmVtIHJhZGt1IHNlIG5hY2hhemkga3Vyem9yIChu
ZW1hbSBuYQ0KPiBteXNsaSBteXMpPw==
DPR soubor was: Resource a obrazek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 14:19:04
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> Pravdupovediac, editovanie .dpr suborov je vo firme, kde robim, vcelku bezna
> vec. <g>
Jasne, pokud presne vis co delas a jsi schopen odhadnout / resit dusledky.
Bohuzel to obcas dopada tak, ze se pak nekdo divi 'Proc mi to nefunguje !?'.
Takze zasada je nic neupravovat a pokud uz ano, tak pouze na vlastni riziko a
s tim ze to muze mit nepredvidatelne vedlejsi efekty.
Petr Vones
rychlost - pomalost DBExpressu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 14:21:47
From: "Redlich Software" <RedlichDaniel(zv)seznam(tec)cz>
> Asi predevcirem tu sel mail (myslim od P.Vonese), v nemz autor tvrdil, ze v
> D7 je DBExpress v lepsim stavu. Pokud by jsi to zkoumal, napis do konference
Pochybuji ze bych psal neco konkretniho o pouzivani dbExpressu <g> Pokud vim,
tak i pro D6 byly snad ke stazeni nejake opravene drivery pro dbExpress,
podrobnosti nevim je treba se podivat na http://community.borland.com
Petr Vones
Btrieve
[*] Marek Dost�l <marek.dostal(zv)mujweb(tec)cz> - 17.9.2002 14:21:08
pou�ij utilitku btrievu BUTIL.EXE, kter� data ulo�� do textov�ho souboru:
BUTIL -save soubor.btr soubor .txt
Marek Dost�l
----- Original Message -----
From: "Lasevic, Martin" <MLasevic(zv)ratiopharm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, September 17, 2002 8:53 AM
Subject: Btrieve
> Ahoj,
> Potreboval bych zkonvertit data z btrieve db do jakehokoliv souboru.
>
> Nevite o free btrv serveru?
>
> W2k,D5P SP1
>
> Martin
>
Rychlost ODBC pristupu do DB Progress
[*] Franti�ek Ml�och <frantisek.mlcoch(zv)vsb(tec)cz> - 17.9.2002 14:21:28
Pracuji s DB Progress a provadim nad ni SQL dotazy z Delphi 6. Velmi me
zklamala rychlost odezvy. Pri testovani jsem na DB posilal opakovane (20
krat) dotaz (Select * FROM table WHERE ...) s promennym vyhledvacim
kriteriem, abych zabranil vyuzivani cache. Zkousel jsem pouzit jak ADO, tak
BDE. Pokud jsem v BDE pouzil permanentni spojeni bylo BDE o 30% rychlejsi
nez ADO se stejnym nastavenim. Ale i tak provedeni 20 dotazu trvalo 20 - 24
sek u ADO a 13 - 21 sek u BDE, coz je dost pomale.
Abych mel moznost srovnani provedl jsem stejny test i vuci DB MySQL 4.1 se
stejnymi daty, za pouziti ODBC pristupu (MySQL bezel na jinem stroji) a
rozdil byl sokujici. Uvedenych 20 dotazu se provedlo za 0.8 - 1.5 sek.
Ten samy pristup pres ODBC pouzivam u WWW serveru, kde z PHP generuji nejake
stranky a tam je odezva podstatne lepsi. Cas na jeden dotaz se pohybuje
kolem 0.1 sek.
Nevite cim to muze byt? Mate nekdo zkusenosti s DB Progress?
Franta.
Btrieve
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 17.9.2002 14:22:34
Nazdar,
> Potreboval bych zkonvertit data z btrieve db do jakehokoliv souboru.
> Nevite o free btrv serveru?
> W2k,D5P SP1
>
> Martin
O zadnem free serveru nevim. Nicmene jestli jde jen o to, prevest data nejakeho
zakaznika z jineho PRG do tveho, tak by mohly fungovat dva postupy:
1. Soucasti kazdeho Btrievu (ktery ten zakaznik musi mit) je utilita butil (at uz jako .exe
soubor nebo .nlm modul pro Novell) kterou se da kazdy btrievovy datovy soubor prevest
do textoveho souboru. Pak musis samozrejme znat strukturu dat (ta se myslim neda z
btrievu vycist, proste musis vedet, co tam je) a data podle struktury naimportovat z toho
txt souboru.
2. existuji knihovny pro pristup k btrievu z win programu. Je to nejake .dll a k tomu
odpovidajici hlavicky pro delphi (a samozrejme i pro C). Mam pocit, ze byly free, ale kde
by se daly splasit nevim. Nicmene i pri pouzti teto knihovn musis znat strukturu dat
btrievovskeho souboru, jinak z nej dostanes nesmysly.
Mozna je i jine reseni, ale vzhledem k tomu, ze uz se o btrieve delsi dobu nemusim
starat, tak nevim :)))) Ja to vzdycky resil pres ten butil a .txt soubor :)))
S pozdravem
Pavel �ichovsk� (zichovsky(zv)trul(tec)cz)
Delpi 6 prof a win XP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 14:24:10
From: "Radim Kunz" <privat(zv)casestudio.com>
> Problemy s D6 a WinXP nemam, spise mame problemy
> se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
Patrne problem s hardware nebo chybnymi drivery. Take uz je SP1.
Petr Vones
Smazani souboru do kose
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 14:27:32
From: "Martin Nov�k" <mnk(zv)centrum(tec)cz>
> chtel bych vedet, jak�m zpusobem smazu soubor, aby se mi ocitl v
> kosi. Dekuji.
Napriklad funkci Win32DeleteFile v unitu JclFileUtils v JCL:
http://delphi-jedi.org/CODELIBJCL
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=100652
Petr Vones
x: Jak zjistit nazev domeny?
[*] EFG developer <developer(zv)efg(tec)cz> - 17.9.2002 14:30:24
a nevite nekdo jak tohle zjistit u w9x ?
Petr Sikola
> const
> netapi32 = 'netapi32.dll';
>
desatinna cast v adodatasete
[*] Michal <lauko(zv)nrsys.sk> - 17.9.2002 14:33:09
ahoj
nevie niekto ako dosiahnut aby v adodatasete boli hodnoty numerickeho
datoveho typu vzdy pevne na dve dsatinne casti
v command texte je pritom zakomponovany tento sql prikaz
select cast(pole as decimal(19,2))
from tabulka
a adodataset to ignoruje
Dotaz na hodnotu generaotru
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.9.2002 14:35:43
>> select gen_id(mygenerator, 1) from rdb$database
>>
> nejak nemuzu rozchodit uvedeny select z D6prof proti IB6.01
> pripojene pres TIB componenty.
>
> Kdyz ho zadam rucne v IB Consoli nebo v DB Exploreru, tak mi
> vrati spravnou hodnotu, ale jakmile ten samy text prikazu
> spustim v TIBQuery.ExecSQL, tak dostanu chybu:
>
> Invalid request BLR at offset 75,
> generator XXXXXXX is not defined.
Myslim, ze namiesto ExecSQL potrebujes zavolat Open, pretoze SELECT ...
statement vracia result set (v tomto pripade len jeden riadok).
S IBX som to neskusal, pouzivam IBObjects (TIB_Cursor) a tam to funguje:
function GetNextGenID(IB_Connection: TIB_Connection; const Generator:
string): Integer;
var
IB_Cursor: TIB_Cursor;
begin
Result := -1;
IB_Cursor := TIB_Cursor.Create(nil);
try
IB_Cursor.IB_Connection := IB_Connection;
IB_Cursor.IB_Transaction := IB_Connection.DefaultTransaction;
IB_Cursor.SQL.Text := Format('SELECT GEN_ID(%s, 1) FROM RDB$DATABASE',
[Generator]);
IB_Cursor.Open;
if not IB_Cursor.EOF then
Result := IB_Cursor.Fields[0].AsInteger;
finally
IB_Cursor.Free;
end;
end;
HTH
TOndrej
Dotaz na hodnotu generaotru
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)GECAPITAL(tec)com> - 17.9.2002 14:51:59
A co misto TIBQuery.ExecSQL zkusit TIBQuery.Open
Martin Ben
> -----Original Message-----
> From: Petr Fejfar [mailto:development(zv)callnet(tec)cz]
>
> From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
>
> > select gen_id(mygenerator, 1) from rdb$database
>
>
> Hi,
>
> nejak nemuzu rozchodit uvedeny select z D6prof proti IB6.01
> pripojene pres
> TIB componenty.
>
> Kdyz ho zadam rucne v IB Consoli nebo v DB Exploreru, tak mi
> vrati spravnou
> hodnotu, ale jakmile ten samy text prikazu spustim v
> TIBQuery.ExecSQL, tak
> dostanu chybu:
>
> Invalid request BLR at offset 75,
> generator XXXXXXX is not defined.
>
Listview - Kde ta chyba JE ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 17.9.2002 14:54:50
Zdravim Konference
v listwiev - u pouzivam tento kod pro centrovani "sloupcu"
procedure TForm1.ListView1Resize ( Sender: TObject ) ;
var
delka, pocet, i: integer;
begin
pocet := ListView1.Columns.Count - 1;
delka := ( round ( ( ListView1.Width - 6 ) / pocet ) ) ;
for i := 0 to pocet do
begin
ListView1.Columns[ i ] .width := delka;
end;
end;
ale pri roztahovani formu (listwiev mam nastaveny na align = alclient)
mi Win ME hodi "modrou smrt" nevite kde mam chybu predem dik
J.Betunak
Kindrik(zv)centrum(tec)cz
Viruslog(zv)volny(tec)cz
Dotaz na hodnotu generaotru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 17.9.2002 15:04:19
<Martin.Ben(zv)GECAPITAL.com>
> A co misto TIBQuery.ExecSQL zkusit TIBQuery.Open
Sorry, jen jsem se do mailu upsal
- samozrejme ze volam Open().
Bye, pf
FB 1.0 Backup a restore
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 17.9.2002 15:18:36
Zdravim vsechny (a v tuto chvili nejvice P. Cisare :),
mam problem s FB pri backupu a naslednem restore.
U klienta mi provedli backup databaze a ja jsem si ji obnovil, ale tvrde
jsem narazil u jednoho view. Pri selectu mi zacal hlasit nesmyslnou hlasku
Arithmetic exception, string truncation..... Delal jsem vse mozne, ale
jedine co pomohlo byl drop a create tohoto view. Pritom jsem ho vytvoril s
naprosto stejnou strukturou s jakou vytvoren byl. Mohl by mi nekdo rici proc
to tak je ???
Diky
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Jak ziskat seznam existujicich aliasu
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 17.9.2002 15:46:34
Tak uz jsem to zjistil.
Vsem d�ky za snahu a jestli se to nekomu hod� tak takhle date treba do FormCreate a v CB si pak muzete vybirat alias:
Session->GetAliasNames(nejakyComboBox->Items);
-----Original Message-----
From: Jaroslav Koh�k
Sent: Tuesday, September 17, 2002 8:54 AM
To: Delphi f�rum (el. adresa)
Subject: Jak ziskat seznam existujicich aliasu
Ahoj,
potreboval bych pri startu aplikace dat uzivateli navyber z existujicich aliasu, na ktery se pripoji.
Nedelali jste to nahodou ?
Diky Tymi
TQRExpr v QReport v 3.5
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 17.9.2002 15:47:14
Zkus jenom SUM(Price) pokud mas nastaveny DM.Q_Temp1 v .DataSet
-----Original Message-----
From: David Michal [mailto:david.michal(zv)www-bv.com]
Sent: Tuesday, September 17, 2002 1:16 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: TQRExpr v QReport v 3.5
Zdravim,
Do Expression pisi SUM(DM.Q_Temp1.Price). Ale bohuzel se mi tam pokazde
zobrazi nula. Spravnosti naplneni datasetu Q_Temp1 jsem jist. Nevite
nekdo co delam spatne, ze mi tento Expression nefunguje? Diky, David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.389 / Virus Database: 220 - Release Date: 16/09/2002
OT: Re: Re[2]: Delpi 6 prof a win XP
[*] Robert Suska <delphi(zv)korak.sk> - 17.9.2002 16:14:15
Ahoj!
Nemas nahodou boot disk na RAIDe HTP37x ? Ak ano skus si stiahnut ovladace s
www.highpoint-tech.com ja som mal tiez takyto problem a novy ovladac mi ten
problem vyriesil.
Ak to nie je ono tak sorry.
S pozdravom,************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************> <<< 17. 9. 2002 13:01 - Radim Kunz "privat(zv)casestudio.com" >>>
> RK> Problemy s D6 a WinXP nemam, spise mame problemy
> RK> se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
> RK> Uvazuji ze si na sve OEM verze XP dokoupim za rezijni
> RK> cenu W2K, coz uz lze. W2K nam zatim ani jednou nespadly.
>
> Radim, myslim ze u teba bude chyba v PC, alebo v ovladacoch, lebo ak
> je vsetko OK tak to ide ako hodiny. Jedine co som spozoroval, ze obcas
> ked vypinam PC tak zmizne vsetko z obrazovky a ostane cisty desktop a
> po case vypise ze Explorer.exe neodpoveda a bude ukonceny.
>
> Mal som pripad, kde Cigler SW SK tvrdil, ze chyba softu je preto lebo
> je tam Windows XP a aby sme tam dali Win2k, tak som volal do MS a tam
> mi povedali, ze prvy krat v existencii MS povolili, prechod z XP na
> nizsiu verziu OS bez ohlasenia a nasledneho povolenia MS. Spravili to
> pre to, lebo ze XP vydali velmi rychlo a nestihli vsetci vyrobcovia
> softu driverov zosuladit vsetky nalezitosti.
> --
> Best regards, TRoland
>
BTrieve
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 17.9.2002 16:43:41
On 17 Sep 2002 at 10:29, Lasevic, Martin wrote:
> Ahoj, potrebuji prevest data z BTrieve tabulky do rozumneho formatu.
> Nevite o free variante BTrieve serveru pro W2k?
>
Pervasive SQL2000 server. Pouzivam, funguje.
BTrieve
[*] bardon <bardon(zv)akord-soft(tec)cz> - 17.9.2002 16:53:55
O tom, ze by byl BTrieve pro NT free jsem neslysel. Ale kdyz jsem potreboval
jednorazove prevadet data a znal jsem jejich strukturu, slo to i pres
dosovskeho BTrieve a BUTIL. A jestli si spravne vzpominam, delal jsem to i
na W2k.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lasevic, Martin
Ahoj, potrebuji prevest data z BTrieve tabulky do rozumneho formatu. Nevite
o free variante BTrieve serveru pro W2k?D5 Pro: chyba TabSheet.OnShow
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 17.9.2002 17:05:53
- polozte si do Form1 PageControl (Win32)
- do neho pridajte 2 TabSheety (pomocou NewPage z menu na prave tlacitko)
- na ten druhy polozte CombBox (Standard)
- do eventu OnShow pre TabSheet2 dajte:
ComboBox1.Visible := false;
Pri spusteni by teda kombo malo byt schovane. Ale neni! A pritom to OnShow
sa zavola.
Staci sa na chvilu prepnut na TabSheet1 a nazad a uz to funguje. Len pri
prvom starte sa po OnShow zavola este nieco, co vrati stav z design time. Co
s tym? Potrebujem, aby uz pri prvom spusteni boli vidiet len prvky, ktore
podla situacie v case startu maju byt viditelne. OnMouseMove? Ale co, ked
nema mys?
Vravite Timer? Tudle! Ked to kombo necham kazdu sekundu zhasinat, tak na mna
kasle a svieti! Poslucha jedine, ked to v OnShow zakomentujem. To same
Repaint. To same Invalidate. Idem si hodit maslu. AKO TU SVINU ZHASNEM? Ked
ju zhasnem v design-time, tak ju zase neviem rozsvietit, ak by to nahodou
pri starte bolo potrebne.
BTW minule som tu popisoval chybu, ked sa nezavola ComboBox.OnChange.
Takisto som ju vyvolal izolovane, ale bohuzial som ten pokus hned zmazal.
Takze ked jeden clovek napisal, ze jemu to funguje, chcel som mu poslat
nefungujucu vzorku, ale uz to zacalo fungovat aj u mna. :-O Vysiel som za
idiota, ale v aplikacii sa mi to sprava ako popisujem. Nemam cas to
izolovat, obisiel som to.
Tentokrat nechavam ukazku v archive.
bye
vmlich http://www.rar(tec)cz
desatinna cast v adodatasete
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 17.9.2002 17:08:26
Ahoj,
> lauko(zv)nrsys.sk 17.9.02 14:33 >>>
>datoveho typu vzdy pevne na dve dsatinne casti
>select cast(pole as decimal(19,2)) from tabulka
SELECT CONVERT(VARCHAR(20),CONVERT(DECIMAL(19,2),20.2012345))
SELECT CAST(CAST(20.2012345 AS DECIMAL(19,2)) AS VARCHAR(20))
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Jak skryt spustenie aplikacie
[*] Milos Veselovsky <milos(zv)seko.sk> - 17.9.2002 17:11:22
Zdravim,
potrebujem aby aplikacia, ktora je spustana pri starte Win98
nebola viditelna pri stlaceni Ctrl+Alt+Del v zozname procesov.
Aplikacia sa spusta z registrov. A prave pri spustani okien
a stlaceni tejto kombinacie klaves je tam tato aplikacia na
chvilu viditelna. Po nabehnuti systemu uz tam nie je
/schovavam ju pomocou RegisterServiceProcess - rada c. 125 z 1001 TaT/.
Vie mi niekto poradit jak ju schovat, aby nebola viditelna
pri spustani systemu ?
Dik za kazdu radu.
Milos Veselovsky
Jak skryt spustenie aplikacie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 17:17:54
From: "Milos Veselovsky" <milos(zv)seko.sk>
> potrebujem aby aplikacia, ktora je spustana pri starte Win98
> nebola viditelna pri stlaceni Ctrl+Alt+Del v zozname procesov.
> Aplikacia sa spusta z registrov. A prave pri spustani okien
> a stlaceni tejto kombinacie klaves je tam tato aplikacia na
> chvilu viditelna. Po nabehnuti systemu uz tam nie je
Vzdycky je mi zahadou co je na takovych aplikacich tak supertajneho, ze nemaji
byt videt.
Petr Vones
Vyhledavani v listview ? JAK ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 17:29:41
From: "Ing. Pavel �ilinec" <zilinec(zv)email(tec)cz>
> function NajdiRadek(ASloupec : integer; AText : string) : integer;
function NajdiRadek(ASloupec : integer; const AText : string) : integer;
Petr Vones
Delpi 6 prof a win XP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 17:38:48
From: "Slavomir Cekel" <cekel(zv)noves.sk>
> planujeme kupit do firmy WinXP (pravdepodobne na vsetky PC) a zaujima
> ma, ci su nejake problemy s D6 ... teraz programujem na w2k a problem
Pokud vim, tak je tam nejaky problem s ladenim DLL. Take je dobre upozornit ze
VCL v D6 nepodporuje XP themes, to az v D7. Snad krom testovani aplikaci zatim
nevidim prilis moc duvodu proc prechazet na Windows XP. Nehlede k tomu, ze ty
vychozi vizualni styly 'spotrebovavaji' pomerne dost mista na obrazovce, takze
je nutne mit o rad vyssi rozliseni (alespon 1600x1200) aby to bylo pouzitelne.
Petr Vones
pointer ako parameter v procedure
[*] Peter Surovy <psurovy(zv)uevora.pt> - 17.9.2002 17:12:09
Ahoj
chcel by som mat proceduru
ktora niekolko parametrov bude mat
typu pointer. Ale jaksi mi to kompilator nechce
dovolit.
procedure(Handle:THandle; meno1, meno2 : ^ longint);
V com je problem?
Dik
Peter
pointer ako parameter v procedure
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 17.9.2002 18:13:52
procedure(Handle:THandle; meno1, meno2 : Pointer);
A.
> -----Original Message-----
> From: Peter Surovy [mailto:psurovy(zv)uevora.pt]
>
> procedure(Handle:THandle; meno1, meno2 : ^ longint);
pointer ako parameter v procedure
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 18:15:41
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> procedure(Handle:THandle; meno1, meno2 : ^ longint);
Pouzij typ PLongint
Petr Vones
Osetreni behu Interbase
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 18:17:54
From: "Pavel Cisar" <pcisar(zv)users.sourceforge.net>
> Proc to vubec hlidat ? Z aplikace je vcelku zbytecne se odpojovat od
> serveru, i kdyz neni nic na praci. Server se sam od sebe take neodpoji,
> pokud nahodou nespadne (nemelo by se stat), a pak by o tom mel nekdo
Pokud je v ceste firewall tak muze konfigurovan tak, ze pri delsi necinnosti
spojeni shodi.
Petr Vones
SQL dotaz bez SUBSELECT
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 17.9.2002 19:14:57
Ahoj,
mam tabulku SKOLENI (id, nazev), LIDI (id, jmeno, prijmeni) a
REGISTRACE(skoleni_id, lidi_id).
a) Potrebuju vypsat seznam skoleni, na kterych je dany clovek
zaregistrovany - to neni problem:
<SQL>
SELECT id, nazev, lidi_id
FROM skoleni, registrace
WHERE skoleni.id=registrace.skoleni_id
AND registrace.lidi_id='JaPe'
</SQL>
b) Potrebuju vypsat seznam skoleni, na kterych NENI dany clovek
zaregistrovany:
<SQL>
SELECT * FROM skoleni
WHERE skoleni.id NOT IN
(SELECT skoleni_id FROM registrace WHERE registrace.lidi_id='JaPe')
</SQL>
Problem je, ze nemohu pouzit SUBSELECT (NOT IN, EXIST), protoze MySQL to
neumi.
Da se to nejak obejit ? Dik za radu.
Mirecek
+420 (607) 875748
mailto:miroslav.evjak(zv)seznam(tec)cz
http://www.sweb(tec)cz/miroslav.evjak/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.385 / Virov� b�ze: 217 - datum vyd�n�: 04.09.2002
D5 Pro: chyba TabSheet.OnShow
[*] David Michal <david.michal(zv)www-bv(tec)com> - 17.9.2002 19:19:25
Zdravim,
Reseni neprinasim, ale chybu mohu potvrdit. Ja se pro zmenu snazim
zviditelnit panel pri OnShow jednoho z tabu.
Pokud vsak aplikace nastartuje s PageControl1.ActivePage = "ten muj
tabsheet", tak mi panel zustane schovany. Pokud aplikace nastartuje s jinym
aktivnim TebSheet pak vse funguje jak ma.
Vyresil jsem to pridanim
If ControlPage1.ActivePage = "ten muj tabsheet" Then Panel1.Visible := True;
do Eventu OnCreate na hlavnim formulari.
David
- polozte si do Form1 PageControl (Win32)
- do neho pridajte 2 TabSheety (pomocou NewPage z menu na prave tlacitko)
- na ten druhy polozte CombBox (Standard)
- do eventu OnShow pre TabSheet2 dajte:
ComboBox1.Visible := false;
Pri spusteni by teda kombo malo byt schovane. Ale neni! A pritom to OnShow
sa zavola.
Staci sa na chvilu prepnut na TabSheet1 a nazad a uz to funguje. Len pri
prvom starte sa po OnShow zavola este nieco, co vrati stav z design time. Co
s tym?
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.389 / Virus Database: 220 - Release Date: 16/09/2002
Lze do Repository vlozit i obycejnou Unitu? D6
[*] CRISP Software <crisp(zv)rbv(tec)cz> - 17.9.2002 20:03:55
Ahoj,
mam unitu plnou vlastnich funkci a tu bych rad pouzil ve vice
projektech. Napadlo mne
pridat unitu do repository a v projektech z ni odvodit dedice. Tim bych
mel jistotu, ze
kdyz do te vychozi unity pridam nejakou dalsi funkci, budu ji moct
pouzit ve vsech
projektech, aniz bych musel fyzicky tu unitu kopirovat (nemluve o tom,
ze si tam sem
tam v tech projektech pridam neco specifickeho pro kazdy projekt
zvlast).
Ale do repository lze vlozit tusim jen form nebo data modul, ale ne
unit, nebo se mylim?
Nebo mate nekdo jiny napad jak "sdilet" univerzalni kod?
(Napadlo mne jeste umistit jej do datamodulu, ale nevim, jestli to je to
prave).
Diky predem za napady a doporuceni.
Karel
Crisp(zv)rbv(tec)cz
Lze do Repository vlozit i obycejnou Unitu? D6
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.9.2002 20:16:40
A co ti brani, aby sis ji dal do nejakeho adresare, kde budes mit
spolecne veci, v cestach prostredi si k ni nastavis cestu a v programu
provedes pouze Uses. Tak budes mit uplne stejnou jistotu, ze kdyz ji
zmenis, zmeni se ti ve vsech.
Jinak k tvemu puvodnimu dotazu, do repozitory ji nedas. Dedicnost je
vysadou objektu, ne procedur a funkci.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
17.9.2002 CRISP Software:
> Ahoj,
> mam unitu plnou vlastnich funkci a tu bych rad pouzil ve vice
> projektech. Napadlo mne
> pridat unitu do repository a v projektech z ni odvodit dedice. Tim bych
> mel jistotu, ze
> kdyz do te vychozi unity pridam nejakou dalsi funkci, budu ji moct
> pouzit ve vsech
> projektech, aniz bych musel fyzicky tu unitu kopirovat (nemluve o tom,
> ze si tam sem
> tam v tech projektech pridam neco specifickeho pro kazdy projekt
> zvlast).
> Ale do repository lze vlozit tusim jen form nebo data modul, ale ne
> unit, nebo se mylim?
> Nebo mate nekdo jiny napad jak "sdilet" univerzalni kod?
> (Napadlo mne jeste umistit jej do datamodulu, ale nevim, jestli to je to
> prave).
> Diky predem za napady a doporuceni.
> Karel
> Crisp(zv)rbv(tec)cz
Zobrazovani avi animaci
[*] Jan �imeck� - 17.9.2002 20:17:44
Zdravem vsechny programatory,
potreboval bych poradit, jak mam zobrazit avi animace, ktere jsem si
vytvoril. Jiz jsem si importoval komponetu od WindowsMediaPlayer, jenze
nevim jak to bude kompatibylni.
Poradte mi prosim ten nejjednodusi spusob.
S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan �imeck�
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.380 / Virov� b�ze: 213 - datum vyd�n�: 24.7.2002
Ulozeni MailMessage do souboru
[*] max_konference(zv)post(tec)cz - 17.9.2002 20:34:15
Potrebuju co nejjednoduseji ulozit v B5 celej MailMessage do
souboru, ale nejak se mi to nedari. Jde to jedine, kdyz to rozdelim
na body->Text, .... delam to:
FileCreate(IntToStr(jmeno)+".md~");
handle = FileOpen(IntToStr(jmeno)+".md~",fmOpenReadWrite);
int velikost =sizeof(NMPOP31->MailMessage);
FileWrite(handle, NMPOP31->MailMessage, velikost);
FileClose(handle);
ale takhle jednoduse to nejde. Nejsem si jistej, ale v D to nejspis
slo. Dik
Zobrazovani avi animaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 20:36:04
From: "Jan �imeck�" <jsimecky(zv)zskuldova(tec)cz>
> potreboval bych poradit, jak mam zobrazit avi animace, ktere jsem si
> vytvoril.
Pokud jde o jednoduche animace bez zvuku, tak pouzij komponentu TAnimate.
Petr Vones
DataSet open versus activate
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 17.9.2002 20:51:45
Vysvetlite mi prosim rozdil mezi DataSet.Open a DataSet.Activate := True ...
Stalo se mi ze na anglickych Windows 2000 server mi Activate hazi chybu...
Jiri
Odchyceni zmeny State u TDBLookupComboBox
[*] Jan Naiser <tua(zv)wo(tec)cz> - 17.9.2002 21:31:51
Preji pekny den,
W2k, D6
potrebuji u potomka komponenty TDBLookupComboBox odchytit zmenu State jeho
Datasetu. Napr. u potomka TDBEdit jsem to udelal prepsanim
DataLink.OnEditingChange, ktera se pri zmene State aktivuje. Ale tady jsem
nejak v koncich. :-)
Diky, Honza.
D5 Pro: chyba TabSheet.OnShow
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.2002 21:51:44
From: "Viliam Mlich" <vmlich(zv)mbox.vol(tec)cz>
> Pri spusteni by teda kombo malo byt schovane. Ale neni! A pritom to OnShow
> sa zavola.
Chyba ve VCL. Timhle by to melo jit opravit, ale je otazka jak se to bude
chovat pri slozitejsich konstrukcich:
procedure FixTabSheetShow(Sender: TObject);
begin
with (Sender as TTabSheet) do
if PageControl.Visible and not PageControl.Showing then
ValidParentForm(PageControl).Perform(CM_VISIBLECHANGED, 0, 0);
end;
procedure TForm1.TabSheet2Show(Sender: TObject);
begin
ComboBox1.Visible := True;
FixTabSheetShow(Sender);
end;
Petr Vones
Ulozeni MailMessage do souboru
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 17.9.2002 22:04:45
Ahoj,
> max_konference(zv)post(tec)cz 17.9.02 20:34 >>>
>Potrebuju co nejjednoduseji ulozit v B5 celej MailMessage do
>na body->Text, .... delam to:
>int velikost =sizeof(NMPOP31->MailMessage);
tady ziskas jen velikost ukazatele
object do souboru neulozis...
nejjednodussi je si udelat nejakou svoji fci
void __fastcall SaveMailMessage(const AnsiString AFile, TMailMessage *AMsg)
{
TStringList *SList = new TStringList();
try
{
SList->Add("[Subject]");
SList->Add(AMsg->Subject);
SList->Add("[Body]");
SList->AddStrings(AMsg->Body);
SList->SaveToFile(AFile);
// ...
}
__finally
{
delete SList;
}
}
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Kniha
[*] <prichy(zv)volny(tec)cz> - 17.9.2002 22:27:44
Ted nevim jesli kazdy nemyslite jinou knihu.
Jedna je od Computer Press (1 dil) a druha tusim od Grady (2 dily)
Mam tu prvni - jsem zacatecnik - musim rict, ze spoustu veci mi jeste nic
nerika. Na druhou stranu autori vi o cem pisou( Steve Teixeir, Xavier
Pacheco z borland team - tusim :) ).
Cili pro pokrocileho dobra, pro me skoda, ze jsem nesehnal petku, ctyrku,
trojku.. :)
Prichy (D6, W98SE) amater...
----- Original Message -----
From: Ales Kerner <kerner(zv)metalcom(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 16, 2002 6:59 AM
Subject: Re: Kniha
> Klidne bych ji koupil, ale pokud delate v Delphi dele, radeji bych koupil
> rovnou druhy dil.
>
> Ales
> ----- Original Message -----
> From: "Jiri Lev" <levj(zv)jhv(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, September 13, 2002 2:34 PM
> Subject: Kniha
>
>
> > Muzete mi nekdo rict zda-li kupovat knihu "Mistrovstvi v Delphi 6" nebo
> > doporucit neco jineho ?
> >
> > Predem diky J.
> >
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.386 / Virov� b�ze: 218 - datum vyd�n�: 9.9.2002
>
>
Delpi 6 prof a win XP
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 17.9.2002 22:35:34
----- Original Message -----
From: "Radim Kunz" <privat(zv)casestudio.com>
> Problemy s D6 a WinXP nemam, spise mame problemy
> se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
> Uvazuji ze si na sve OEM verze XP dokoupim za rezijni
> cenu W2K, coz uz lze. W2K nam zatim ani jednou nespadly.
>
> Radim
>
Ahoj.
Potvrzuji. WinXP (bohuzel i prof) jsou oproti W2kProf padavy a nestabilni
sunt.
Podotykam ze W2K jsem jel na "nekompatibilnim" HW (NB Acer 202 puvodne
dodavany s Win ME ke kteremu jsem si tenkrat W2k dokoupil)
a nepamatuji si ze bych kdy vubec musel NB vypinat vypinacem. Prezilo to i
ty nejhorsi prasarny co jsem tomu provedl.
Nyni novy dvakrat rychlejsi Acer 220 s origos XP profi chcipne kazdou
chvili. Nepatrne pomohlo rozireni RAM na 380MB, takze ted uz to neni 1 za
dva dny ale jednou za tyden:) Takze pri nejblizsi prilezitosti pujdou XP do
kopru a dam si tam 2Wk a s licenci si teda vubec nebudu delat problemy.
Ludek.
P.S.
Jenom na okraj. Pokud dodrzite "predepsany" postup instalace u
predinstalovaneho XP Prof. Obdrzite system bez jakehokoliv zabezpeceni
adresaru. Vsude je full pristup pro everyone !!!!!!!!
V Aceru ani u MS mi to nedokazali nijak vysvetlit ani poradit.
Jedine reseni bylo vzit normalni OEM CD koupene pro nekoho jineho a
nainastalit to s puvodnim serial numem notebooku a dohrat drivery z recovery
CD.
FB 1.0 Backup a restore
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 17.9.2002 22:38:23
----- Original Message -----
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>> Zdravim vsechny (a v tuto chvili nejvice P. Cisare :),
>
> mam problem s FB pri backupu a naslednem restore.
> U klienta mi provedli backup databaze a ja jsem si ji obnovil, ale tvrde
> jsem narazil u jednoho view. Pri selectu mi zacal hlasit nesmyslnou hlasku
> Arithmetic exception, string truncation..... Delal jsem vse mozne, ale
> jedine co pomohlo byl drop a create tohoto view. Pritom jsem ho vytvoril s
> naprosto stejnou strukturou s jakou vytvoren byl. Mohl by mi nekdo rici
proc
> to tak je ???
Ahoj.
IMHO se jedna o chybu pri pouziti default hodnoty pro field s jinym colation
nez ASCII.
Najdes to v archivu konference a zolbi to prave pri obnove ze zalohy.
Ludek
D5 Pro: chyba TabSheet.OnShow
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 17.9.2002 23:52:36
> Pri spusteni by teda kombo malo byt schovane. Ale neni! A pritom to
OnShow
> sa zavola.
> Reseni neprinasim, ale chybu mohu potvrdit.
Ale prinasas:
> Vyresil jsem to pridanim
> If ControlPage1.ActivePage = "ten muj tabsheet" Then Panel1.Visible :=
True;
> do Eventu OnCreate na hlavnim formulari.
Ja som do Form1.OnCreate dal rovno 'TabSheet2Show(self);' a som happy.
Akurat kdesi vnutri hloda moja podlomena dovera, uz neverim ani tomu, co do
ust nesiem.
Zaujimave, ze najprv sa to vola z Form1Create a to zafunguje a potom sa to
este raz zavola pri skutocnom OnShow, ale to uz je jalove :-) Keby niekto po
mne chcel, aby som urobil program s podobnym spravanim, asi by som sa
poriadne zapotil...
bye
vmlich
D5 Pro: chyba TabSheet.OnShow
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 18.9.2002 00:30:49
> if PageControl.Visible and not PageControl.Showing then
toto ale opravuje len 'Visible := true' ale keby som nahodou v design-time
mal visible=false a v OnShow ho chcel dat na true, tak to zase nepojde.
Riesenie zda sa je natvrdo mu posielat spravu, ze sa Visible fakt zmenilo:
ComboBox1.Visible := True;
ValidParentForm(TabSheet2.PageControl).Perform(CM_VISIBLECHANGED, 0, 0);
bye
vmlich
D5 Pro: chyba TabSheet.OnShow
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.9.2002 00:40:37
From: "Viliam Mlich" <vmlich(zv)mbox.vol(tec)cz>
> toto ale opravuje len 'Visible := true' ale keby som nahodou v design-time
> mal visible=false a v OnShow ho chcel dat na true, tak to zase nepojde.
Visible ceho ? To jen kontroluje, jestli je treba tu chybu vubec opravovat.
Petr Vones
Program vykonal neplatnou operaci - v cyklu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.9.2002 01:19:02
From: "Rumcajs - konference" <konrum(zv)seznam(tec)cz>
> Dela to na vsech strojich - zkousel jsem WinMee, Win 98. Aplikace je napsana
> v D6 Prof. Prave ze jedine co je v te aplikaci v behu (myslim, co jsem
> napsal), tak je komunikace pres RS232, ale dela to i kdyz ten port zavru -
> tedy jsou neaktivni vsechny procedury s nim spojenene ...
Pokud se to projevuje i v debuggeru tak se to da prece najit.
Petr Vones
Existuje nejaky zapis v DB
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 18.9.2002 05:20:27
Zadravim,
potrebuji zjistit, zda existuje aspon nejaky zapis v DB tabulce.
Problem je taky ten, ze test musi akceptovat filtr, tzn, jestlize po
nastaveni filtru se jevi tabulka prazdna,
tak bych mel videt, ze tabulka se jevi jako prazdna.
Nevim kde v konferenci hledat tento test - proste jsem to nenasel.
Diky za pomoc, urcite tento problem jiz nekdo resil.
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
BTrieve
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 18.9.2002 07:18:36
> On 17 Sep 2002 at 10:29, Lasevic, Martin wrote:
>
> > Ahoj, potrebuji prevest data z BTrieve tabulky do rozumneho formatu.
> > Nevite o free variante BTrieve serveru pro W2k?
> > > Pervasive SQL2000 server. Pouzivam, funguje.
>
Ten je free ?
Jak ziskat seznam existujicich aliasu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.9.2002 08:16:41
Odes�latel: Roman Konecnz <rkonecny(zv)datis(tec)cz>
Nejdrive musis mit v Uses unitu DB;
Unitu DBTables - tam je BDE, obecna unita DB je pod vsemi typy databazovych pripojeni a BDE tedy nezna.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Re[2]: Osetreni behu Interbase
[*] Petr Selinger <delphiforum(zv)centrum(tec)cz> - 18.9.2002 08:17:43
Potrebuju by pripojeny z toho duvodu, ze pouzivam Eventy, ktere
generuje Trigger v DB a ten nedorazi, pokud mam spojeni shozene.
Jak jsem uz psal, zkousim se pripojovat v intervalu timeru, tady
jsem narazil na problem, ze pokud napr. natvrdo odpoji DB server
od site (napr. mi nekdo vykopne kabel :) ), trva vzdy strasne
dlouho (cca 10s), nez se zjisti, ze Server neni dosazitelny a k
DB se nelze pripojit. Program je pak docela zamrzly a nestiha
delat nic jineho.
Vyresil jsem to pouzitim pingu na Server, pokud zacne odpovidat,
zkousim se pripojit k DB. Vse funguje dobre, zatim zadny problem.
Petr
Verze: D5 UP2, IB 6.01, IBXtras.> Proc to vubec hlidat ? Z aplikace je vcelku zbytecne se
odpojovat od
> serveru, i kdyz neni nic na praci. Server se sam od sebe take
neodpoji,
> pokud nahodou nespadne (nemelo by se stat), a pak by o tom mel
nekdo
> vedet, ne to mlcky prejit a vtichosti se znovu pripojit.
> S pozdravem
> Pavel Cisar
> Mobil: 0724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
--------------------
Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...
Dotaz na hodnotu generaotru
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.9.2002 08:32:07
> Odes�latel: Petr Fejfar <development(zv)callnet(tec)cz>
> > select gen_id(mygenerator, 1) from rdb$database
Ja bych z Delphi spise zavolal ulozenou proceduru, ktera mi hodnotu generatoru vrati.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================DataSet open versus activate
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.9.2002 08:37:24
> Odes�latel: Jiri Sedivec <jsedivec(zv)mail(tec)cz>
> Vysvetlite mi prosim rozdil mezi DataSet.Open a DataSet.Active := True ...
Tam rozdil neni.
Staci se podivat do zdrojaku na TDataSet.Open
Pouze se zavola Active:=true.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
DPR soubor was: Resource a obrazek
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.9.2002 08:45:03
> From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> > Pravdupovediac, editovanie .dpr suborov je vo firme, kde robim, vcelku bezna
> > vec. <g>
> Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Jasne, pokud presne vis co delas a jsi schopen odhadnout / resit dusledky.
> Bohuzel to obcas dopada tak, ze se pak nekdo divi 'Proc mi to nefunguje !?'.
> Takze zasada je nic neupravovat a pokud uz ano, tak pouze na vlastni riziko a
> s tim ze to muze mit nepredvidatelne vedlejsi efekty.
Jasne Petre, v zasade s tebou souhlasim, ale striktni "nic neupravovat" asi nelze.
Alespon zakladni strukture generovaneho dpr by mel kazdy rozumet a vedet, co si muze dovolit.
Napr. vyhodit radek Application.CreateForm...
misto toho, abych lezl do Project/Options a v nejakem dialogu prehazoval formulare.
Anebo ukoncit program, pokud se mi po "AutoCreate" nepripoji datovy modul k databazi.
Anebo zobrazit Login formular pred vytvorenim hlavniho formulare.
atd.
Pravda ovsem je, ze jsem taky videl .dpr, ktery mel asi 2000 radku "normalniho" kodu.
To bylo sileny se tim probrat... :-)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
pointer ako parameter v procedure
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 18.9.2002 08:48:27
Parametr musi byt typ nikoliv deklarace typu (az na vyjimky).
Pavel
> -----P�vodn� zpr�va-----
> Od: Peter Surovy [mailto:psurovy(zv)uevora.pt]
> Odesl�no: 17. z��� 2002 18:12
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: pointer ako parameter v procedure
>
>
> Ahoj
> chcel by som mat proceduru
> ktora niekolko parametrov bude mat
> typu pointer. Ale jaksi mi to kompilator nechce
> dovolit.
> procedure(Handle:THandle; meno1, meno2 : ^ longint);
>
> V com je problem?
> Dik
> Peter
>
BTrieve
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 18.9.2002 08:59:59
> > On 17 Sep 2002 at 10:29, Lasevic, Martin wrote:
> > > Ahoj, potrebuji prevest data z BTrieve tabulky do rozumneho
> > > formatu. Nevite o free variante BTrieve serveru pro W2k?
> > Pervasive SQL2000 server. Pouzivam, funguje.
> Ten je free ?
Existuje cosi cemu rikaji "Promotional Copy", to jde bez licence
nainstalovat jako jeden klient v siti. Cili nefunguje to jako opravdovy
server, ani to nejde nainstalovat jako lokalni server ale pristup k
btrieve souborum to pres BDE/ODBC umozni. Takze pro
jednorazove prevody to funguje.
Pribeh SQL prikazu (ProgressBar)
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 18.9.2002 09:00:42
Zavisi to na pouzite databazi.
Napriklad na ORACLE to zjistit lze pomoci selectu na V_$SESSION_LONGOPS.
Druha vec je ovsem problem se spustenim vice paralelnich SQL dotazu (v
threadech), pokud pristupujes k databazi pres BDE.
Martin Kleiner
> ----- Original Message -----
> From: "Robert Poncak" <delphi(zv)zvlauto.sk>
> Mam dotaz, nepozna niekto nejaku komponentu, alebo nejaky sposob, akym dat
> uzivatelovi aplikacie informaciu o priebehu SQL prikazu v podobe
> ProgressBaru?
> Napr. Dam select ktory prebieha 10 min, a aby bol uzivatel informovany
kolko
> uz prebehlo..
Existuje nejaky zapis v DB
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 18.9.2002 09:05:23
if Table1.Eof and Table1.Bof then
ShowMessage('Je prazdna');
Petr
> Zadravim,
> potrebuji zjistit, zda existuje aspon nejaky zapis v DB tabulce.
> Problem je taky ten, ze test musi akceptovat filtr, tzn, jestlize po
> nastaveni filtru se jevi tabulka prazdna,
> tak bych mel videt, ze tabulka se jevi jako prazdna.
>
> Nevim kde v konferenci hledat tento test - proste jsem to nenasel.
> Diky za pomoc, urcite tento problem jiz nekdo resil.
>
>
Existuje nejaky zapis v DB
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 18.9.2002 09:24:13
Nebo:
if Table1.IsEmpty then
ShowMessage('Je prazdna');
----- Original Message -----
From: "Petr Kejval" <petr.kejval(zv)worldonline(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 18, 2002 9:05 AM
Subject: Re: Existuje nejaky zapis v DB
> if Table1.Eof and Table1.Bof then
> ShowMessage('Je prazdna');
>
> Petr
>
> > Zadravim,
> > potrebuji zjistit, zda existuje aspon nejaky zapis v DB tabulce.
> > Problem je taky ten, ze test musi akceptovat filtr, tzn, jestlize po
> > nastaveni filtru se jevi tabulka prazdna,
> > tak bych mel videt, ze tabulka se jevi jako prazdna.
> >
> > Nevim kde v konferenci hledat tento test - proste jsem to nenasel.
> > Diky za pomoc, urcite tento problem jiz nekdo resil.
> >
> >
>
>
>
Message window v IDE
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 18.9.2002 09:44:20
Zdravim ucastniky konference.
Po reinstalaci cel�ho po��ta�e v d�sledku po��zen� nov�ho
disku se mi pod W98SE v D6P p�estalo zobrazovat okno zprav v
dolni casti pracovni plochy. Obsahuje popis a lokalizaci
chyb pri prekladu nebo vysledky hledani v souborech.
Zobrazuje se mi ve zvlastnim okne 'Messages', ktere je vsak
schovane pod oknem editoru. Nepomaha ani tomuto oknu
nastavit vlastnost Dockable.
Poradi mi nekdo, co je treba kde nastavit abych se vratil k
beznemu chovani okna zprav? Za kazdou radu predem dekuji.
Ing. Jan Dvorak
Message window v IDE
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 18.9.2002 09:50:11
Dobry den,
zkuste to okno pretahnout do dolni casti okna editoru, aby se opravdu zadokovalo. "Dockable" musi
byt k tomuto ucelu zapnuto.
Karel Rys
Ing. Jan Dvorak dne 18 Sep 2002 v 9:44:
> Zdravim ucastniky konference.
> Po reinstalaci cel�ho po��ta�e v d�sledku po��zen� nov�ho
> disku se mi pod W98SE v D6P p�estalo zobrazovat okno zprav v
> dolni casti pracovni plochy. Obsahuje popis a lokalizaci
> chyb pri prekladu nebo vysledky hledani v souborech.
> Zobrazuje se mi ve zvlastnim okne 'Messages', ktere je vsak
> schovane pod oknem editoru. Nepomaha ani tomuto oknu
> nastavit vlastnost Dockable.
> Poradi mi nekdo, co je treba kde nastavit abych se vratil k
> beznemu chovani okna zprav? Za kazdou radu predem dekuji.
> Ing. Jan Dvorak
Message window v IDE
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.9.2002 10:01:04
> Zdravim ucastniky konference.
> Po reinstalaci cel�ho po��ta�e v d�sledku po��zen� nov�ho
> disku se mi pod W98SE v D6P p�estalo zobrazovat okno zprav v
> dolni casti pracovni plochy. Obsahuje popis a lokalizaci
> chyb pri prekladu nebo vysledky hledani v souborech.
> Zobrazuje se mi ve zvlastnim okne 'Messages', ktere je vsak
> schovane pod oknem editoru. Nepomaha ani tomuto oknu
> nastavit vlastnost Dockable.
> Poradi mi nekdo, co je treba kde nastavit abych se vratil k
> beznemu chovani okna zprav? Za kazdou radu predem dekuji.
> Ing. Jan Dvorak
Ono to okno nejde "chytnout" a "zadokovat" kam chces?
Roman
==============================
http://kouzelne.misto(tec)cz
Delpi 6 prof a win XP
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 18.9.2002 11:02:29
XP maji moznost jakehokoli downgradu na zakoupene licence, tzn. ze pokud
nemas ty W2K v OEM verzi tak, si je tam muzes dat oficialne
Sroub
> ----- Original Message -----
> From: "Radim Kunz" <privat(zv)casestudio.com>
> > Problemy s D6 a WinXP nemam, spise mame problemy
> > se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
> > Uvazuji ze si na sve OEM verze XP dokoupim za rezijni
> > cenu W2K, coz uz lze. W2K nam zatim ani jednou nespadly.
> >
> > Radim
> >
>
> Ahoj.
> Potvrzuji. WinXP (bohuzel i prof) jsou oproti W2kProf padavy a nestabilni
> sunt.
> Podotykam ze W2K jsem jel na "nekompatibilnim" HW (NB Acer 202 puvodne
> dodavany s Win ME ke kteremu jsem si tenkrat W2k dokoupil)
> a nepamatuji si ze bych kdy vubec musel NB vypinat vypinacem. Prezilo to i
> ty nejhorsi prasarny co jsem tomu provedl.
> Nyni novy dvakrat rychlejsi Acer 220 s origos XP profi chcipne kazdou
> chvili. Nepatrne pomohlo rozireni RAM na 380MB, takze ted uz to neni 1 za
> dva dny ale jednou za tyden:) Takze pri nejblizsi prilezitosti pujdou XP
do
> kopru a dam si tam 2Wk a s licenci si teda vubec nebudu delat problemy.
>
> Ludek.
>
> P.S.
> Jenom na okraj. Pokud dodrzite "predepsany" postup instalace u
> predinstalovaneho XP Prof. Obdrzite system bez jakehokoliv zabezpeceni
> adresaru. Vsude je full pristup pro everyone !!!!!!!!
> V Aceru ani u MS mi to nedokazali nijak vysvetlit ani poradit.
> Jedine reseni bylo vzit normalni OEM CD koupene pro nekoho jineho a
> nainastalit to s puvodnim serial numem notebooku a dohrat drivery z
recovery
> CD.
>
>
>
FB 1.0 Backup a restore
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 18.9.2002 11:05:19
Haj hou!
On 17 Sep 2002 at 15:18, Milan Tome� wrote:
> mam problem s FB pri backupu a naslednem restore.
> U klienta mi provedli backup databaze a ja jsem si ji obnovil, ale tvrde
> jsem narazil u jednoho view. Pri selectu mi zacal hlasit nesmyslnou hlasku
> Arithmetic exception, string truncation..... Delal jsem vse mozne, ale
> jedine co pomohlo byl drop a create tohoto view. Pritom jsem ho vytvoril s
> naprosto stejnou strukturou s jakou vytvoren byl.
> Mohl by mi nekdo rici proc to tak je ???
Magie. :-) Dit se to nema, a pokud se to deje, je neco shnileho ve state
Danskem. Pokud se to da reprodukovat, tzn. udelat novy backup/restore a
chyba se opet projevi - pak by bylo vhodne nahlasit chybu. K odstraneni,
nebo vubec nalezeni ovsem bude treba i zmineny backup soubor, protoze je
to ocividne zavisle na fazi mesice a postaveni venuse k saturnu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
CustomDocumentProperties
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 18.9.2002 11:52:47
Dobry den,
rad bych pozadal o radu.
Nevim, jak ve wordovskem dokumentu ovladanem pres TWordDocument z Delphi 5 nastavovat vlastnosti dokumentu, jako nazev,
autor, spolecnost....
TWordDocument obsahuje "CustomDocumentProperties" a "BuiltInDocumentProperties", to bude asi ono, ale vubec nevim, jak k
nim pristupovat. Jsou typu IDispatch a ja bohuzel nevim, co to je.
Dekuji za kazdou radu
Tomas
Message window v IDE
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 18.9.2002 12:32:11
Zkousel jsem to mnohokrat, neslo to. Pred chvili jsem to
zkusil opet a povedlo se. Asi si musi clovek napred nekde
postezovat ...
Dekuji za rady. Ing. Jan Dvorak
> Dobry den,
>
> zkuste to okno pretahnout do dolni casti okna editoru, aby
se
> opravdu zadokovalo. "Dockable" musi
> byt k tomuto ucelu zapnuto.
>
> Karel Rys
>
asynchroni volani udalosti z COM objektu (Automati
[*] Karel Kimes <kkonf(zv)email(tec)cz> - 18.9.2002 13:07:49
ahoj,
- mam vytvoreny COM objekt (Automation objekt) TTest s podporou pro volani
udalosti
- objekt ma metodu Go
- tato metoda VYTVORI novou instanci vlakna (potomek TThread) a teto
instanci je v v jehoz metode execute se, z duvodu testu, ceka 5s a potom
se vyvola udalost OnEvent
ALE ono to NEFUNGUJE! Je to proto, ze tu udalost volam z jinyho vlakna? Jde
tady o chybu, z duvodu, ze udalost volam z jinyho apartmentu?
Jde mne o toto: zavolat metodu COM objektu, ktera v COM objektu spusti
nejaky asynchroni algoritmus a IHNED se vrati. Jakmile asynchroni alg.
napr. vypocita vysledek, chcu se o tom dozvedet, tzn. vyvolat udalost pro
klienta. Tak jak to delam ted to nefunguje.
castecna implementace kodu, avsak pro nastineni situace dostacujici: TTestThread = class(TThread) // **** moje testovaci vlakno
private
FEvents : ITestEvents;
protected
procedure Execute; override;
public
constructor Create(Events : ITestEvents);
end;
TTest = class(TAutoObject, IConnectionPointContainer, ITest)
private
{ Private declarations }
FConnectionPoints: TConnectionPoints;
FConnectionPoint: TConnectionPoint;
FEvents: ITestEvents;
{ note: FEvents maintains a *single* event sink. For access to more
than one event sink, use FConnectionPoint.SinkList, and iterate
through the list of sinks. }
public
procedure Initialize; override;
protected
{ Protected declarations }
property ConnectionPoints: TConnectionPoints read FConnectionPoints
implements IConnectionPointContainer;
procedure EventSinkChanged(const EventSink: IUnknown); override;
procedure Go; safecall; // **** TOTO je moje metoda - osatatni casti
tohotobjektu vytvoril Wizard (DAX)
end;
implementation
constructor TTestThread.Create(Events : ITestEvents);
begin
inherited Create(true);
FreeOnTerminate := true;
FEvents := Events;
Resume;
end;
procedure TTestThread.Execute;
begin
Sleep(5000); // vlakno ceka 5s
FEvents.OnEvent; // a potom vola udalost OnEvent (ktera je
implementovana v klintovi) - ALE ONO TO NEJEDE :(((
end;
procedure TTest.Go;
begin
TTestThread.Create(FEvents); // spustim vlakno a IHNED se vratim
end;
kchodl
WinXP, D6PRO UPDATE PACK 2
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
Message window v IDE
[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 18.9.2002 13:28:01
> Zkousel jsem to mnohokrat, neslo to. Pred chvili jsem to
> zkusil opet a povedlo se. Asi si musi clovek napred nekde
> postezovat ...
> Dekuji za rady. Ing. Jan Dvorak
ahoj,
ja si myslim, ze to ma co do cineni s momentalnim nastavenim profilu
desktopu IDE. Co treba Save debug desktop...?
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Reklama:
WWW stranky zdarma na http://www.sweb(tec)cz
asynchroni volani udalosti z COM objektu (Automati
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 18.9.2002 13:36:50
Ahoj,
krome predavani instanci COM objektu mezi procesy se mezi thready musi vzdy
marshalovat. K plne spokojenosti pouzivam helpery:
CoMarshalInterThreadInterfaceInStream
a
CoGetInterfaceAndReleaseStream
O :-))
> -----P�vodn� zpr�va-----
> ahoj,
> - mam vytvoreny COM objekt (Automation objekt) TTest s podporou
> pro volani
> udalosti
> - objekt ma metodu Go
> - tato metoda VYTVORI novou instanci vlakna (potomek TThread) a teto
> instanci je v v jehoz metode execute se, z duvodu testu, ceka 5s a potom
> se vyvola udalost OnEvent
>
> ALE ono to NEFUNGUJE! Je to proto, ze tu udalost volam z jinyho
> vlakna? Jde
> tady o chybu, z duvodu, ze udalost volam z jinyho apartmentu?
>
> Jde mne o toto: zavolat metodu COM objektu, ktera v COM objektu spusti
> nejaky asynchroni algoritmus a IHNED se vrati. Jakmile asynchroni alg.
> napr. vypocita vysledek, chcu se o tom dozvedet, tzn. vyvolat udalost pro
> klienta. Tak jak to delam ted to nefunguje.Jak zjistit nazev domeny?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 18.9.2002 13:42:02
> a nevite nekdo jak tohle zjistit u w9x ?
NetWkstaGetInfo:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q155698&
netapi.dll je 16-bitova, takze pri volani z 32-bitoveho kodu musis pouzit
thunking:
http://www.thedelphimagazine.com/samples/thunk/thunk95.htm
HTH
TOndrej
BDE - vytvoreni aliasu
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 18.9.2002 14:25:57
Mne to porad nefunguje.
TDatabase mam tyto parametry
SERVER NAME=e:\gdbs\mojeGDB.gdb
USER NAME=SYSDBA
PASSWORD=masterkey
LANGDRIVER=Paradox Czech 852
a hlasi mi to chybu, kvuli problemum s cestinou.
Libor
Database.Params.Values['LANGRIVER']:='Pdox ANSI Czech';
Honza
Re[2]: BDE - vytvoreni aliasu
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 18.9.2002 14:26:40
LANGDRIVER=Pdox Ansi Czech
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Wednesday, September 18, 2002, 2:25:57 PM, you wrote:
LF> Mne to porad nefunguje.
LF> TDatabase mam tyto parametry
LF> SERVER NAME=e:\gdbs\mojeGDB.gdb
LF> USER NAME=SYSDBA
LF> PASSWORD=masterkey
LF> LANGDRIVER=Paradox Czech 852
LF> a hlasi mi to chybu, kvuli problemum s cestinou.
LF> Libor
LF> Database.Params.Values['LANGRIVER']:='Pdox ANSI Czech';
LF> Honza
MS XML 4.0
[*] Zika Petr <pzika(zv)ciglersw(tec)cz> - 18.9.2002 14:35:30
Ahoj
Nepouzivate nekdo MS XML Parser 4? Mam s nim nekolik problemu na WinXP a
D5 :
- pokud ho naistaluju do WinXP pres oficialni MS instalak, tak se
nenaistaluje do
Windows\System32
ale do
Windows\WinSxS\.x86_Microsoft.MSXML2_6bd6b9abf345378f_4.0.0.0_x-ww_6f2d7
9d9
predpokladam ze to je kvuli moznym ruznym verzim knihoven
- Tady je prvni problem - knihovna neni videt v seznamu, pokud chci
pouzit "Import Type Library"
- Pokud si podle navodu v MSDN (MS XML 4.0 and Windows XP)
vytvorim "Project.exe.manifest", kde zadam dependency na tuto knihovnu a
v programu zavolam
Test := CoDOMDocument40.Create;
tak to vyhodi chybu
"Proces inicializace dynamicky pripojovane knihovny (DLL) se
nezdaril."
Pozn.
- Pokud tam ten *.manifest vubec neudelam, vyhodi to chybu "Trida neni
zaregistrovana"
- Ve Win2k se nainstaluje normalne do Windows\System32 a funguje "Import
Type Library" i spusteni
- Kdyz nepouziju MS instalak, ale udelam "regsvr32 msxml4.dll", tak
vsechno funguje i na WinXP
Nevite nekdo jak ten parser na WinXP korektne rozchodit? Rucni
registraci bych videl az jako krajni moznost...
Petr
BDE - vytvoreni aliasu
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 18.9.2002 14:42:26
To bohuzel nepomaha. Vysledek je stale stejny.
Libor
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jakub Dusek
Sent: Wednesday, September 18, 2002 2:27 PM
To: Libor Filip
Subject: Re[2]: BDE - vytvoreni aliasu
LANGDRIVER=Pdox Ansi Czech
Jakub Dusek
MS XML 4.0 a 3.0
[*] Zika Petr <pzika(zv)ciglersw(tec)cz> - 18.9.2002 14:47:13
Ahoj
Jeste jeden dotaz:
Nevite jestli jde v MS XML 3.0 udelat validace XML dokumentu podle XSD
sablony?
Pokud to jde, nemusel bych pouzivat MS XML 4.
Petr
TClientDataset misto BDE
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 18.9.2002 15:03:35
Dobry den,
pred nekolika dny tady probehla diskuze co pouzit misto BDE na lokalni
databaze. Poucil jsem se a zacal zkoumat TClientDataset.
Mam tri otazky:
1) Exustuje nejaky nastroj na vytvareni CDS souboru? Neco jako byl Databaze
desktop na DBF.
2) Pokud mam databazi, kde bude asi 100 000 zaznamu bude refresh po ulozeni
noveho zaznamu trvat stejne dlouho jako kdyz dam Active:=True?
3) Kolik zaznamu se takto vejde do pameti? Predpokladam ze databaze bude mit
max. 300 000 zaznamu.Lze na toto jeste TClinetDataset pouzit?
Dekuji
Petr
Kniha
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.9.2002 15:11:27
Ahoj,
On 17 Sep 2002 at 22:27, prichy(zv)volny(tec)cz wrote:
> Ted nevim jesli kazdy nemyslite jinou knihu.
> Jedna je od Computer Press (1 dil) a druha tusim od Grady (2 dily)
*****Je to uplne jinak. Grada vydala knihu Mastering in Delphi od
Macra Cantu, v cestine Myslime v jazyku Delphi, dil prvni a dil
druhy. CPress vydal Mistrovstvi v Delphi 6, anglicky tusim ze Delphi
6 Developers Guide od panu Steve Teixeira a Xavier Pacheca. V knize
od Marca Cantua se dozvis o databazich vyrazne vice nez v knize od te
z CPressu. Obe knihy nejsou pro zacatecniky a rychlokvasky, ale pro
pokrocile uzivatele. Obe placaji nejake veci i o BDE. Obe mi
pripadnou velmi spatne.
Slavek
--------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
--------------------------------------------------------
Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
TClientDataset misto BDE
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.9.2002 15:11:40
UHJpIHRha292ZW0gb2JqZW11IGRhdCB6YXBvbWVuIG5hIG1lbW9yeSB0YWJ1bGt5IChpIENsaWVu
dERhdGFzZXQpDQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6
DQoNCjE4LjkuMjAwMiBQZXRyIEhsb75lazoNCj4gRG9icnkgZGVuLA0KPiBwcmVkIG5la29saWth
IGRueSB0YWR5IHByb2JlaGxhIGRpc2t1emUgY28gcG91eml0IG1pc3RvIEJERSBuYSBsb2thbG5p
DQo+IGRhdGFiYXplLiBQb3VjaWwganNlbSBzZSBhIHphY2FsIHprb3VtYXQgVENsaWVudERhdGFz
ZXQuDQo+IE1hbSB0cmkgb3Rhemt5Og0KDQo+IDEpIEV4dXN0dWplIG5lamFreSBuYXN0cm9qIG5h
IHZ5dHZhcmVuaSBDRFMgc291Ym9ydT8gTmVjbyBqYWtvIGJ5bCBEYXRhYmF6ZQ0KPiBkZXNrdG9w
IG5hIERCRi4NCg0KPiAyKSBQb2t1ZCBtYW0gZGF0YWJhemksIGtkZSBidWRlIGFzaSAxMDAgMDAw
IHphem5hbXUgYnVkZSByZWZyZXNoIHBvIHVsb3plbmkNCj4gbm92ZWhvIHphem5hbXUgdHJ2YXQg
c3Rlam5lIGRsb3VobyBqYWtvIGtkeXogZGFtIEFjdGl2ZTo9VHJ1ZT8NCg0KPiAzKSBLb2xpayB6
YXpuYW11IHNlIHRha3RvIHZlamRlIGRvIHBhbWV0aT8gUHJlZHBva2xhZGFtIHplIGRhdGFiYXpl
IGJ1ZGUgbWl0DQo+IG1heC4gMzAwIDAwMCB6YXpuYW11Lkx6ZSBuYSB0b3RvIGplc3RlIFRDbGlu
ZXREYXRhc2V0IHBvdXppdD8=
Scrollovani v Listboxech
[*] Tomis <tomis(zv)mail(tec)cz> - 18.9.2002 15:45:39
Zdravim,
na formulari mam 4 listboxy. Naplnim je daty tak aby se u kazdeho obevila
scrollovaci tlacitka. A tedka potrebuju dosahnout toho, aby se po kliknuti
na sipku pro skrolovani dolu u jednoho z listbox� , posunuly vsechny
listboxy o stejny pocet
zaznamu smerem dolu. Doufam ze me nekdo pochopil, a ze mi pomuze Diky
BDE - vytvoreni aliasu
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 18.9.2002 15:47:36
Nevim, nevim, zkus se kouknout do registru, jakou zkratkou je prezentovana
ta cestina a zadej tu zkratku.
Martin
-----Original Message-----
From: Libor Filip [mailto:filip(zv)agrokonzulta(tec)cz]
Sent: Wednesday, September 18, 2002 2:26 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: BDE - vytvoreni aliasu
Mne to porad nefunguje.
TDatabase mam tyto parametry
SERVER NAME=e:\gdbs\mojeGDB.gdb
USER NAME=SYSDBA
PASSWORD=masterkey
LANGDRIVER=Paradox Czech 852
a hlasi mi to chybu, kvuli problemum s cestinou.
Libor
Database.Params.Values['LANGRIVER']:='Pdox ANSI Czech';
Honza
Vyber SQL Serveru
[*] Jindrich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 18.9.2002 15:49:34
Hi,
pro jednoho z�kaznika mam vytvorit databazovou aplikaci.
Rozhoduji se pouzit nejaky SQL Server, protoze do budoucna se uvazuje o architekture Client/Server.
Chci tedy pozadat o zkusenosti s nejakymi SQL servery.
Zatim se rozhoduji mezi Interbase a WinBase602.
Ale neznam zpusob licencovani a ani nemam zkusennosti se servery.
Od serveru chci nasledujici:
- prijatelna cena (nejlepe zdarna, ale to prehanim)
- slusna podpora konekce (Pouzivam Delphi 5 Prof.)
- stabilita
Nemate nekdo zkusennosti s Interbase a Winbase602 pro srovnani, nebo s jinymi SQL Servery ? Predem diky
Jindrich Nikodem
Ach ten lidsky pojem casu, aneb jak scitat hodiny?
[*] David Michal <david.michal(zv)www-bv(tec)com> - 18.9.2002 16:00:31
Zdravim,
V databazi (MSSQL) mam v tabulce field Hours(datetime). V tomto fieldu
ukladam pocet hodin a minut. Nyni bych potreboval udelat SUM(hours) do
reportu. Jenomze SUM na datetime udelat nemuzu, a pokud to prekonvertuji do
real, pak pri SUM dostanu nesmysl. Resil jste jiz nekdy nekdo neco
podobneho? Jak dostanu soucet casu do lidskeho formatu napr. 182:30 (182h
30min).
Diky,
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.389 / Virus Database: 220 - Release Date: 16/09/2002
Interbse 6.02
[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 18.9.2002 16:02:45
Ahoj vsichni
Nemate nekdo Interbase 6.02 nebo odkaz kde se da stahnout.
Pokud ovsem byla zdarma ?
dekuji
Pavel Bares
Kniha
[*] Jiri Lev <levj(zv)jhv(tec)cz> - 18.9.2002 16:11:35
Ahoj, a tvuj navrh ?
Jirka
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Slavek Rydval
> Sent: Wednesday, September 18, 2002 3:11 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Kniha
>
>
>
> Ahoj,
>
> On 17 Sep 2002 at 22:27, prichy(zv)volny(tec)cz wrote:
> > Ted nevim jesli kazdy nemyslite jinou knihu.
> > Jedna je od Computer Press (1 dil) a druha tusim od Grady (2 dily)
> *****Je to uplne jinak. Grada vydala knihu Mastering in Delphi od
> Macra Cantu, v cestine Myslime v jazyku Delphi, dil prvni a dil
> druhy. CPress vydal Mistrovstvi v Delphi 6, anglicky tusim ze Delphi
> 6 Developers Guide od panu Steve Teixeira a Xavier Pacheca. V knize
> od Marca Cantua se dozvis o databazich vyrazne vice nez v knize od te
> z CPressu. Obe knihy nejsou pro zacatecniky a rychlokvasky, ale pro
> pokrocile uzivatele. Obe placaji nejake veci i o BDE. Obe mi
> pripadnou velmi spatne.
>
> Slavek
>
> --------------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> Pozor, nyni pouze http://195.113.18.111/~rk/index.shtml
> --------------------------------------------------------
> Udelejte to blbuvzdorne a zitra nekdo vymysli jeste vetsiho blba.
>
Delpi 6 prof a win XP
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 18.9.2002 16:17:46
----- Original Message -----
From: "Karel Kimes" <kkonf(zv)email(tec)cz>
> >Problemy s D6 a WinXP nemam, spise mame problemy
> >se samotnymi XP. Obcas zresetuji pocitac, expolrer se zasekava.
>
> ALE!!! DOMA, tam mam taky WinXP a D6PRO UPD2 a nainstaloval sem si
> Daemon-Tools (virtualni CD, ktere ma byt "kompatibilni" i s XP). Potom sem
> jednou vecer skoncil s praci a pocitac sem uvedl do modu "hibernate",
> proste sem ho uspal. Druhej den sen se nestacil divit. Musel sem
> reinstalovat CELY XP! Z toho vseho vypliva, ze to padani, na ktery si moc,
> moc, moc lidi stezuje, muze byt zpusobeno take NEKOMPATIBILNIMI ovladaci,
> coz si, myslim, spousta lidi neuvedomuje (PLS: no flamewar!!!)
Ahoj.
No ja mam vse co se tyka HW original (OEM dodavka Win XP prof k NB) a NIc
nez Delphi prakticky nemam nainstalovane (no nejake FTP, ImageExplorer ale
nic co by mohlo delat problemy, protoze to nebezi).
Ludek
Services a DCOM
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 18.9.2002 16:27:56
Ahoj,
mate nekdo zkusenost s provozovanim DCOM a services?
Jaky je stav: exac, ktery ma COM interface a bezi na jednom pocitaci.
Dalsi program na jinem pocitaci se k tomuto programu pripojuje a
komunikuje s mim pres interface. Pokud je prvni program spusten
normalne, vse beha OK. Nedari ze vsak pripojeni, pokud je prvni
program spusten jako service, druhy program ho neumi najit. Nevi
nekdo, kde by mohl byt problem?
S pozdravem
Zbysek Hlinka
Ach ten lidsky pojem casu, aneb jak scitat hodiny?
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 18.9.2002 16:31:59
On 18 Sep 2002 at 16:00, David Michal wrote:
> Zdravim,
> V databazi (MSSQL) mam v tabulce field Hours(datetime). V tomto fieldu
> ukladam pocet hodin a minut. Nyni bych potreboval udelat SUM(hours) do
> reportu. Jenomze SUM na datetime udelat nemuzu, a pokud to
> prekonvertuji do real, pak pri SUM dostanu nesmysl. Resil jste jiz
> nekdy nekdo neco podobneho? Jak dostanu soucet casu do lidskeho
> formatu napr. 182:30 (182h 30min).
Resil. Prevedl jsem si cas do int, a pracuji s nim. Scitam si ve svem
programu. Pokud se spokojis jen s minutami, pak muzes scitat i v
databazi. Pokud budes chtit i vteriny, budes muset pracovat s float,
ale ve vlastnim formatu, ne TDateTime.
S pozdravem
Zbysek Hlinka
Ach ten lidsky pojem casu, aneb jak scitat hodiny?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 18.9.2002 16:42:29
Ahoj,
zkus neco takoveho:
select sum
(cast(extract (hour from odeslano) as float)+
cast(extract (minute from odeslano) as float)/60) as Pokus
from imptisk
Vrati to pocet hodin, minuty jako desetinnou cast.
Karel Rys
David Michal dne 18 Sep 2002 v 16:00:
> Zdravim,
> V databazi (MSSQL) mam v tabulce field Hours(datetime). V tomto fieldu
> ukladam pocet hodin a minut. Nyni bych potreboval udelat SUM(hours) do
> reportu. Jenomze SUM na datetime udelat nemuzu, a pokud to
> prekonvertuji do real, pak pri SUM dostanu nesmysl. Resil jste jiz
> nekdy nekdo neco podobneho? Jak dostanu soucet casu do lidskeho
> formatu napr. 182:30 (182h 30min). Diky, David --- Outgoing mail is
> certified Virus Free. Checked by AVG anti-virus system
> (http://www.grisoft.com). Version: 6.0.389 / Virus Database: 220 -
> Release Date: 16/09/2002
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
Ach ten lidsky pojem casu, aneb jak scitat hodiny?
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 18.9.2002 17:06:41
> Jak dostanu soucet casu do lidskeho formatu
> napr. 182:30 (182h 30min).
ja pouzivam toto:
function HourToStr(Doba:TDateTime):string;
begin
Result := IntToStr(Trunc(Doba*24))+FormatDateTime(':nn',Doba)
end;
Spravy ComboBoxu
[*] Robert Suska <delphi(zv)korak.sk> - 18.9.2002 17:07:42
Ahojte!
Chcel by som Vas poprosit o jednu radu tyka sa komponenty TComboBox
potrebujem urobit taku vec ze ked sa vyroluje ComboBox list pre vyber jednej
hodnoty tak potrebujem sa zavesit na spravu ktora by mi predala informaciu o
texte ktory sa nachadza priamo pod kurzorom mysi a ten text potrebujem
vlozit do Hint. Jedna sa mi o to ze mam viac komponent ComboBox na jednom
forme a su dost kratke a text co je v nich tak ho nieje vidiet cely a preto
ten text chcem strcit do toho Hintu aby sa dal cely pekne citat.
Dakujem za nakopnutie
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
Ach ten lidsky pojem casu, aneb jak scitat hodiny?
[*] Martin Cajbik <cajbik(zv)sct.sk> - 18.9.2002 17:31:06
Zdravim,
pokial ti nevadi, ze to nie je cez jeden select tak napriklad takto:
DECLARE (zv)minuty int, (zv)hodiny int
SELECT (zv)minuty = SUM(DATEPART([hour], hours) * 60 + DATEPART([minute],
hours))
FROM tabulka
SELECT (zv)hodiny = (zv)minuty / 60
SELECT (zv)minuty = (zv)minuty % 60
SELECT CAST((zv)hodiny AS varchar) + ':' + CAST((zv)minuty AS varchar)
tento system bude vyhovat, pokial ziaden zo zadanych casov nie je vacsi
alebo rovny 24 hodin a zadane casy mozu mat aj rozny datum.
pokial ma byt vysledok opat datetime a zadane casy nemaju k sebe ziaden
datum (lepsie povedane maju datum 1.1.1900) mozes rovno napisat
SELECT CAST(SUM(CAST(hours AS float)) AS datetime)
FROM tabulka
Toto bude vyhovovat aj ked prekrocis 24 hodin (v niektorom zadanom case).
Pripadne si nieco nakombinuj podla vlastnych potrieb.
Datum je v MSSQL (podobne ako v Delphi) v podstate float, ktory urcuje pocet
dni od pociatocneho (v tomto pripade 1.1.1900) datumu a hodiny, minuty... su
zapisane ako pomerna cast dna za desatinnou ciarkou.
> Zdravim,
> V databazi (MSSQL) mam v tabulce field Hours(datetime). V tomto fieldu
> ukladam pocet hodin a minut. Nyni bych potreboval udelat SUM(hours) do
> reportu. Jenomze SUM na datetime udelat nemuzu, a pokud to prekonvertuji
do
> real, pak pri SUM dostanu nesmysl. Resil jste jiz nekdy nekdo neco
> podobneho? Jak dostanu soucet casu do lidskeho formatu napr. 182:30 (182h
> 30min).
> Diky,
> David
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.389 / Virus Database: 220 - Release Date: 16/09/2002
>
>
Ach ten lidsky pojem casu, aneb jak scitat hodiny?
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 18.9.2002 18:01:41
Ahoj,
> david.michal(zv)www-bv.com 18.9.02 16:00 >>>
>V databazi (MSSQL) mam v tabulce field Hours(datetime). V tomto fieldu
>ukladam pocet hodin a minut. Nyni bych potreboval udelat SUM(hours) do
>reportu. Jenomze SUM na datetime udelat nemuzu, a pokud to prekonvertuji do
>real, pak pri SUM dostanu nesmysl. Resil jste jiz nekdy nekdo neco
>podobneho? Jak dostanu soucet casu do lidskeho formatu napr. 182:30 (182h
>30min).
bud jednim dotazem nebo pomoci poddotazu
1.
SELECT CONVERT(VARCHAR(10),CONVERT(INT,
SUM(CONVERT(FLOAT,DATEPART(hh,Datum))+
CONVERT(FLOAT,DATEPART(mi,Datum)/60.0))))+
':'+
CONVERT(VARCHAR(10),
ROUND((SUM(CONVERT(FLOAT,DATEPART(mi,Datum))/60.0)-
CONVERT(INT,SUM(CONVERT(FLOAT,DATEPART(mi,Datum))/60.0)))*60.0,0)),
FROM Tabulka
2.
SELECT CONVERT(VARCHAR(10),CONVERT(INT,Hodiny+Minuty)) +
':' +
CONVERT(VARCHAR(10),CONVERT(INT,ROUND((Minuty - CONVERT(INT,Minuty))*60.0,0)))
FROM
(SELECT SUM(CONVERT(FLOAT,DATEPART(hh,Datum))) AS Hodiny,
SUM(CONVERT(FLOAT,DATEPART(mi,Datum))/60.0) AS Minuty
FROM Tabulka) t
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
OnMouseDown pre ComboBox
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 18.9.2002 18:23:57
Hallo,
Chcel by som pre comboBox funktionalitu
popisovanu v http://www.zive(tec)cz/H/Developerdaily/Ar.asp?ARI=107570&CAI=2091
ale na to je nutne mat funkcne
OnMouseDown, OnMouseUp a OnMouseMove.
Nevie mi niekto poradit ako na to.
Vopred vdaka
Laco
DataSnap & Midas
[*] Jirka Virt <virt(zv)volny(tec)cz> - 18.9.2002 19:07:48
Ahoj,
nevite nekdo, zda pouziti DataSnap snizije trafic po siti?
tzn: pokud v podnikove siti budu pristupovat pres DataSnap(Midas)
snizim pocet prenesenych bytu?? Nebo je to ekvivalenti s klasickym napojenim na DB??
Diky
Jirka Virt
email: virt(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.386 / Virov� b�ze: 218 - datum vyd�n�: 9.9.2002
Ach ten lidsky pojem casu, aneb jak scitat hodiny?
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 18.9.2002 19:33:25
Ahoj,
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
>>> delphi(zv)zas-me(tec)cz 18.9.02 16:42 >>>
>select sum
> (cast(extract (hour from odeslano) as float)+
> cast(extract (minute from odeslano) as float)/60) as Pokus
>from imptisk
nechapu jak ti tohle muze chodit....
Dotaz na hodnotu generaotru - vyreseno
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.9.2002 20:09:55
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
> S IBX som to neskusal, pouzivam IBObjects
S IBX to funguje samozrejme taky.
Pricinou mych potizi je starecka demence,
protoze mi trvalo 4 hodiny, nez jsem si vsiml,
ze v podminenem prekladu oteviram jinou databazi,
kde ten generator skutecne neni, zatimco temi
consolemi jsme oteviral tu spravnou :-)
Thx, pf
Dotaz na hodnotu generaotru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.9.2002 20:12:25
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Ja bych z Delphi spise zavolal ulozenou proceduru,
> ktera mi hodnotu generatoru vrati.
Jaky v tom spatrujes prinos?
Me napada jen urcita nezavislost Delphi kodu
na DB stroji, ale tak je specialne u SQL serveru problematicka...
Bye, pf
Interbse 6.02
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 18.9.2002 21:37:07
Haj hou!
On 18 Sep 2002 at 16:02, Pavel Bare� wrote:
> Nemate nekdo Interbase 6.02 nebo odkaz kde se da stahnout.
http://mers.com
> Pokud ovsem byla zdarma ?
Ano, je zdarma.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Richedit do databze
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 18.9.2002 22:09:17
Zdravim a mam otazecku ...
Jak ulozim richedit do BLOB fildu v databazi - konkretne FireBird ?
Jde mi o zachovani formatovani, kdyz pouziju text=' richedit1.text' tak
stratim formatovani.
valik
ICQ 54152896
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.345 / Virov� b�ze: 193 - datum vyd�n�: 9.4.2002
Tlac textu z RichEditu
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 18.9.2002 22:09:39
D6, WinXP
Mam v RichEdit nastaveny font Courier a tak sa mi aj zobrazi. Pri tlaci sa
vsak vytlaci text s nejakym inym fontom. Co s tym?
Vdaka za kazdu radu.
Listview - Kde ta chyba JE ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.9.2002 00:24:03
From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> ale pri roztahovani formu (listwiev mam nastaveny na align = alclient)
> mi Win ME hodi "modrou smrt" nevite kde mam chybu predem dik
Zajimave, v jake (presne) verzi Delphi ?
Petr Vones
x: Jak zjistit nazev domeny?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 19.9.2002 00:42:48
> a nevite nekdo jak tohle zjistit u w9x ?
Tu je maly priklad, otestovany len velmi zbezne, ale zda sa, ze funguje...
{$WARN SYMBOL_PLATFORM OFF}
const
netapi = 'netapi.dll';
netapi32 = 'netapi32.dll';
NERR_SUCCESS = 0;
type
THandle16 = Word;
type
PWkstaInfo10 = ^TWkstaInfo10;
TWkstaInfo10 = packed record
wki10_computername: PChar;
wki10_username: PChar;
wki10_langroup: PChar;
wki10_ver_major: Byte;
wki10_ver_minor: Byte;
wki10_logon_domain: PChar;
wki10_oth_domains: PChar;
end;
PWkstaInfo100 = ^TWkstaInfo100;
TWkstaInfo100 = packed record
wki100_platform_id: DWORD;
wki100_computername: PWideChar;
wki100_langroup: PWideChar;
wki100_ver_major: DWORD;
wki100_ver_minor: DWORD;
end;
// kernel functions used for thunking
function LoadLibrary16(FileName: PChar): THandle; stdcall;
external 'kernel32.dll' index 35;
procedure FreeLibrary16(LibModule: THandle); stdcall;
external 'kernel32.dll' index 36;
function GetProcAddress16(Module: HModule; ProcName: PChar): TFarProc;
stdcall;
external 'kernel32.dll' index 37;
function GlobalAlloc16(Flags: Integer; Bytes: Longint): THandle16;
stdcall;
external 'kernel32.dll' index 24;
function GlobalFree16(Mem: THandle16): THandle16; stdcall;
external 'kernel32.dll' index 31;
function GlobalLock16(Mem: THandle16): Pointer; stdcall;
external 'kernel32.dll' index 25;
function GlobalUnLock16(Mem: THandle16): WordBool; stdcall;
external 'kernel32.dll' index 26;
function WOWGetVDMPointer(vp, dwBytes: DWORD; fProtectedMode: BOOL):
Pointer; stdcall;
external 'wow32.dll' name 'WOWGetVDMPointer';
function WOWGetVDMPointerFix(vp, dwBytes: DWORD; fProtectedMode: BOOL):
Pointer; stdcall;
external 'wow32.dll' name 'WOWGetVDMPointerFix';
procedure WOWGetVDMPointerUnfix(vp: DwORD); stdcall;
external 'wow32.dll' name 'WOWGetVDMPointerUnfix';
function GlobalAllocPtr16(Flags: Word; Bytes: Longint): Pointer;
begin
Result := nil;
// Ensure memory is fixed, meaning there is no need to lock it
Flags := Flags or GMEM_FIXED;
LongRec(Result).Hi := GlobalAlloc16(Flags, Bytes);
end;
function GlobalFreePtr16(P: Pointer): THandle16;
begin
Result := GlobalFree16(LongRec(P).Hi);
end;
function Ptr16To32(P: Pointer): Pointer;
begin
Result := WOWGetVDMPointer(DWord(P), 0, True);
end;
function Ptr16To32Fix(P: Pointer): Pointer;
begin
Result := WOWGetVDMPointerFix(DWord(P), 0, True);
end;
procedure Ptr16To32Unfix(P: Pointer);
begin
WOWGetVDMPointerUnfix(DWord(P));
end;
// function NetWkstaGetInfo(pszServer: PChar; sLevel: Integer; pbBuffer:
Pointer; cbBuffer: Word;
// var pcbTotalAvail: Word): Integer; stdcall; external netapi;
var
Kernel32: HMODULE;
QTThunk: procedure;
NetAPI16: HMODULE;
ProcEntry: Pointer;
ServerName16, ServerName32: PChar;
Level16: Word; // 16-bit integer
NetWkstaInfo16, NetWkstaInfo32: Pointer;
BufferLen16: Word; // 16-bit word
TotalLen16, TotalLen32: Pointer;
NetResult16: Word; // 16-bit integer
DomainName32: PChar;
{$W+}
procedure GetDomainName16(const ServerName: string);
var
EatStackSpace: string[$3C];
begin
EatStackSpace := ''; // avoid optimizer
Kernel32 := GetModuleHandle('kernel32.dll');
if Kernel32 <> 0 then
begin
QTThunk := GetProcAddress(Kernel32, 'QT_Thunk');
if (zv)QTThunk <> nil then
begin
NetAPI16 := LoadLibrary16('netapi.dll');
if NetAPI16 <> 0 then
begin
ProcEntry := GetProcAddress16(NetAPI16, 'NetWkstaGetInfo');
if (zv)ProcEntry <> nil then
begin
ServerName16 := GlobalAllocPtr16(GPTR, Length(ServerName) + 1);
ServerName32 := Ptr16To32(ServerName16);
StrPLCopy(ServerName32, ServerName, Length(ServerName));
Level16 := 10;
NetWkstaInfo16 := GlobalAllocPtr16(GPTR, 1024);
BufferLen16 := 1024;
TotalLen16 := GlobalAllocPtr16(GPTR, SizeOf(Word));
TotalLen32 := Ptr16To32(TotalLen16);
PWord(TotalLen32)^ := 0;
asm
PUSH ServerName16
PUSH Level16
PUSH NetWkstaInfo16
PUSH BufferLen16
PUSH TotalLen16
MOV EDX, ProcEntry
CALL QTThunk
MOV NetResult16, AX
end;
NetWkstaInfo32 := Ptr16To32Fix(NetWkstaInfo16);
if NetResult16 = NERR_SUCCESS then
begin
DomainName32 :=
Ptr16To32Fix(PWkstaInfo10(NetWkstaInfo32)^.wki10_langroup);
Ptr16To32Unfix(PWkstaInfo10(NetWkstaInfo32)^.wki10_langroup);
end
else
DomainName32 := nil;
Ptr16To32Unfix(NetWkstaInfo16);
GlobalFreePtr16(ServerName16);
GlobalFreePtr16(NetWkstaInfo16);
GlobalFreePtr16(TotalLen16);
end;
FreeLibrary16(NetAPI16);
end;
end;
end;
end;
{$W-}
function GetDomainName32(const ServerName: string): string;
var
ServerNameW: WideString;
NetLib: HMODULE;
NetWkstaGetInfo: function(servername: PWideChar; level: DWORD; var bufptr:
Pointer): integer; stdcall;
NetApiBufferFree: function(Buffer : Pointer) : Integer; stdcall;
P: Pointer;
NetResult: Integer;
begin
Result := '';
NetLib := LoadLibrary(netapi32);
if NetLib = 0 then
Exit;
try
(zv)NetWkstaGetInfo := GetProcAddress(NetLib, 'NetWkstaGetInfo');
if (zv)NetWkstaGetInfo = nil then
Exit;
(zv)NetApiBufferFree := GetProcAddress(NetLib, 'NetApiBufferFree');
if (zv)NetApiBufferFree = nil then
Exit;
ServerNameW := ServerName;
NetResult := NetWkstaGetInfo(PWideChar(ServerNameW), 100, P);
try
if NetResult = NERR_SUCCESS then
Result := PWkstaInfo100(P)^.wki100_langroup
else
raise Exception.CreateFmt('NetWkstaGetInfo: Error %d', [NetResult]);
finally
NetApiBufferFree(P);
end;
finally
FreeLibrary(NetLib);
end;
end;
function GetDomainName(const ServerName: string = ''): string;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
Result := GetDomainName32(ServerName)
else
begin
GetDomainName16(ServerName);
if (NetResult16 = NERR_SUCCESS) and (DomainName32 <> nil) then
SetString(Result, DomainName32, StrLen(DomainName32))
else
raise Exception.CreateFmt('NetWkstaGetInfo: Error %d', [NetResult16]);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Format('Domain name: ''%s''', [GetDomainName]));
end;
HTH
TOndrej
Kniha
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.9.2002 01:38:10
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> z CPressu. Obe knihy nejsou pro zacatecniky a rychlokvasky, ale pro
> pokrocile uzivatele. Obe placaji nejake veci i o BDE. Obe mi pripadnou
> velmi spatne.
Uvedene knihy jsem nevidel, ale na druhou stranu ty jsi videl nejake dobre
nebo snad velmi dobre knihy o Delphi ? Mozna Delphi Component Design, ale ta
uz je opravdu hodne stara a pochazi primo 'od zdroje'.
Petr Vones