Archív konference Delphi

Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.

D4-uzivatelske filtrovanie tabulky.

[*] KINEKUS <kinekus(zv)nextra.sk> - 4.8.2000 11:15:46

Dik za spravu, ale to plati pre fitrovanie podla jedneho stlpca tabulky. Ak
treba pouzit viacnasobny filter(moj pripad) SETRANGE mi nepomoze.

> Cau
> Nevim presne jak to jde u D4 a tabulky DBF, ale pod D5 a tabulky DB to jde
tim zpusobem, ze na tabulku si hodis nakej index urcujici na jakem sloupci
bude filter a jednoduse zavolas SETRANGE([hodnota od],[hodnota do]).
> Dalsi mozny zpusob je pouzit Query a SELECT statement.
>
> napr.
>
> With Query1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('SELECT * FROM NazevTabulky)
> SQL.Add('WHERE pole <= hodnotado And pole >= hodnotaod);
> Open;
> end;
>
> Snad ti to k necemu bude
>
> Ladap
>
> >>> kinekus(zv)nextra.sk 3.8.00 8:00 >>>
> Zdravim vsetkych.
>
> Narazil som na problem a v literature som nenasiel uspokojivu odpoved.
>
> Potrebuje uzivatelsky filtrovat DBF tabulku. Nastavilom som si v Table
> Filtered ako TRUE ale neviem, cim mam vyvolat udalost OnFilterRecord.
>
> Situacia :
> Po stlaceni tlacitka potrebujem uzivatelsky filtrovat tabulku, co obsahuje
> zadany retazec.
>
> Prosim poradte.
>
> Milan Fabik
>
>
>

ScriptMaker cesky

[*] Ren� Otisk - 4.8.2000 11:28:59

Vytvari instalacni skripty a ve spojeni s InnoSetupem se mi very libi. Hledej v archivu...

Sroub
----- Original Message -----
From: Hynek Svato�
To: delphi-l(zv)fwd(tec)cz
Sent: Friday, August 04, 2000 10:14 AM
Subject: RE: ScriptMaker cesky


Prosim,
co je ScriptMaker a kde se da sehnat ?

Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Ren� Otisk
Sent: Friday, August 04, 2000 8:05 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: ScriptMaker cesky


ScriptMaker samotny pocestit nejde, pokud nebudes mit zdroje. Jde pocestit instalacni wizard v InnoSetupu (prelozis Default.isl). Mozna jsem se minule nepresne vyjadril, ale ja myslel pocestenou vystupni instalaci, aby uzivatel nemusel zirat pri instalaci na Welcome... a vybirat default directory.

ScriptMaker cesky

[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 4.8.2000 11:41:35

URL je

http://www.tafweb.co.uk/ <http://www.tafweb.co.uk/>

Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz <mailto:jiri.f(zv)avizo(tec)cz>
Vytvari instalacni skripty a ve spojeni s InnoSetupem se mi very libi.
Hledej v archivu...

Sroub


Prosim,
co je ScriptMaker a kde se da sehnat ?

ScriptMaker samotny pocestit nejde, pokud nebudes mit zdroje. Jde pocestit
instalacni wizard v InnoSetupu (prelozis Default.isl). Mozna jsem se minule
nepresne vyjadril, ale ja myslel pocestenou vystupni instalaci, aby uzivatel
nemusel zirat pri instalaci na Welcome... a vybirat default directory.

Delphi Ole

[*] Radek Janu� <janus(zv)foresta(tec)cz> - 4.8.2000 12:24:34

Existuje n�kde na Internetu podrobn� popis jak pracovat s Ole v delphi ?

D�ky radek


OT:Amd Thenderbit 700 MHz

[*] Martin <geoplan(zv)pp.sinet.sk> - 4.8.2000 12:33:46

Sorry za OT.
Mate niekdo fungujucu zostavu s Amd Thenderbit 700 MHz alebo duron pod Windows 2000 ?
Ak ano, mozte mi napisat svoje skusenosti a konfiguraciu ?

ponahla, vdaka


D4-uzivatelske filtrovanie tabulky.

[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 04.8.2000 06:37:02 -0400

Cau
Nevim presne jak to jde u D4 a tabulky DBF, ale pod D5 a tabulky DB to jde tim zpusobem, ze na tabulku si hodis nakej index urcujici na jakem sloupci bude filter a jednoduse zavolas SETRANGE([hodnota od],[hodnota do]).
Dalsi mozny zpusob je pouzit Query a SELECT statement.

napr.

With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM NazevTabulky)
SQL.Add('WHERE pole <= hodnotado And pole >= hodnotaod);
Open;
end;

Snad ti to k necemu bude

Ladap

>>> kinekus(zv)nextra.sk 3.8.00 8:00 >>>
Zdravim vsetkych.

Narazil som na problem a v literature som nenasiel uspokojivu odpoved.

Potrebuje uzivatelsky filtrovat DBF tabulku. Nastavilom som si v Table
Filtered ako TRUE ale neviem, cim mam vyvolat udalost OnFilterRecord.

Situacia :
Po stlaceni tlacitka potrebujem uzivatelsky filtrovat tabulku, co obsahuje
zadany retazec.

Prosim poradte.

Milan Fabik

OT: Abit BE6 II a IOMEGA ZIP

[*] Martin <geoplan(zv)pp.sinet.sk> - 4.8.2000 12:39:17

sorry za OT ale neviem si rady,
MAm zostavu :

dosku abit be6 II , celeron 400, 64 MB SDRAM, WD 8 GB na UDMA 66 a IOMEGU ZIP internu 100 MB.
disk mam rozdeleny na c a d po 4 GB. Na C mam Win 98 SL a na D som chcel dat Windows 2000. Ale po instalacii a vypnuti a odpojeni napajania, to je dolezite lebo doserie sa to vzdy iba ak je odpojene napajanie, pri restarte nie, mi W2000 zamrznu pri spustani systemu, s tym ze su poskodene registre. Co som zatial zistil, je to preto, ze detekuje ZIPku a ko disk a da ju do systemu ako disk D, a W2000 ako E a windowsy potom doseru pri starte register a mozem preinstalovavat. Skusal som rozne nastavenia v biose aj som skusil zipku dat na radic UDMA 66 ale vzdy s rovnakym vysledkom. Neviete mi poradit ?

vdaka za kazdu odpoved

Martin


Precteni obrazovky

[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 4.8.2000 12:46:45

Tohle natahne obrazovku do bitmapy a tam se na
jednotlive pixely uz pohodlne dostanes.
Tomas Bihary

procedure TForm1.Button1Click(Sender: TObject);
var
DesktopDC: THANDLE;
Bitmap: TBitmap;
I: Integer;
begin
DesktopDC := GetDC(0);
Bitmap := TBitmap.Create;
Bitmap.Height := Screen.Height;
Bitmap.Width := Screen.Width;
StretchBlt(Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DesktopDC, 0, 0, Screen.Width, Screen.Height, SRCCOPY);
ReleaseDC(0, DesktopDC);
/// jako dukaz z bitmapy na formular
for I := 10 to 20 do
Bitmap.Canvas.Pixels[I, 20 - I] := clBlack;
StretchBlt(Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, SRCCOPY);
end;


----- Original Message -----
> Snazim se, zatim bez uspechu, precist jednotlive pixely, ktere vidim na
> obrazovce. Tahle cast aplikace by mela delat zhruba to, ze danou cast
> obrazovky nacte do nejakeho pole (Takove mensi HardCopy, ce nebude brat
> celou obrazovku). Dokaze nekdo poradit, jak to udelat, anebo alespon
> jestli na to nekde nejni nejaka komponenta?
>
> Zdenek Sustr
>

ScriptMaker cesky

[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.8.2000 12:49:01

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.

Jde o doplnek k programu Inno setup, ktery je free a se zdroji (i s ceskymi
resources). Ten dokaze na zaklade skriptu stvorit kompletni instalacni
program. No a ten skript, aby se nemusel tvorit uplne rucne, se da udelat
tim ScriptMakerem. Zcela urcite to bude nekde na webu (to bys nerek, co
:-))))

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7

tel. +420-2-3337 3855
+420-2-2431 4538
*************************************

-----Original Message-----
From: Hynek Svato� [mailto:svatos(zv)kam(tec)czu(tec)cz]
Sent: Friday, August 04, 2000 10:14 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: ScriptMaker cesky


Prosim,
co je ScriptMaker a kde se da sehnat ?


Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Ren�
Otisk
Sent: Friday, August 04, 2000 8:05 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: ScriptMaker cesky


ScriptMaker samotny pocestit nejde, pokud nebudes mit zdroje. Jde pocestit
instalacni wizard v InnoSetupu (prelozis Default.isl). Mozna jsem se minule
nepresne vyjadril, ale ja myslel pocestenou vystupni instalaci, aby uzivatel
nemusel zirat pri instalaci na Welcome... a vybirat default directory.

Jmena vsech uzivatelu v siti

[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.8.2000 12:50:32

Ahoj,

nepsal jste nekdo nahodou funkci ci komponentu, ktera zjistuje jmena vsech
uzivatelu pripojenych v siti? Momentalne se s tim morduju, ale jsou s tim
problemy. Diky

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7

tel. +420-2-3337 3855
+420-2-2431 4538
*************************************

Access databaze - pristup

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 4.8.2000 12:55:16

ahoj,

Asi neporadim, ale me pekne na...lo kdyz v Accessu naimportuju tabulku z Exc
elu, ta se tam tvari ok (jen ma jinou ikonku)
a treba pres ADO( jet driver ) tak uz tam zadna takova tabulka neni.

M.Jirman

P.S: Resim to tak, ze z excelu exportuju do textu oddeleny tab, a v Accessu
importuju, to vsak uz PRI PAR datech trva NEPRIMERENE dlouho.

----- Original Message -----
From: <azeleny(zv)csas(tec)cz>> DDV, mam D4 prof a nedari se mi cist data z databaze MS Access.
>
> Pro mdb soubor mam nastaveny v ODBC datasource. V delphi sis jej vyberu ja
ko
> databazi, pripojim se, ale pri pokusu o cteni dat dojde vzdy k chybe "ival
id
> tablename". Pritom v Accessu (97) mohu databazi klidne otevrit a pouzivat
> (coz ovsem neni to co chci...).
>
> Nmel nekdo uz podobny problem? Nevite co s tim?
>

Vlastnosti Hintu

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 4.8.2000 13:01:38

pro D5 jsem se uz jednou ptal a dosla mi supr odpoved (od P.Vonese):

unit HintWindowFixD5;

interface

uses
Windows, Messages, Classes, Forms, Controls;

type
THintWindowFix = class(THintWindow)
private
procedure HintFontChanged(Sender: TObject);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;

implementation

{ THintWindowFix }

constructor THintWindowFix.Create(AOwner: TComponent);
begin
inherited;
Screen.HintFont.OnChange := HintFontChanged;
end;

destructor THintWindowFix.Destroy;
begin
Screen.HintFont.OnChange := nil;
inherited;
end;

procedure THintWindowFix.HintFontChanged(Sender: TObject);
begin
Canvas.Font := Screen.HintFont;
end;

procedure THintWindowFix.Paint;
var
R: TRect;
begin
R := ClientRect;
Inc(R.Left, 2);
Inc(R.Top, 2);
DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_NOPREFIX or
DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly);
end;

initialization
HintWindowClass := THintWindowFix;

end.

----- Original Message -----
From: <jirpun(zv)post(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, August 01, 2000 10:46 AM
Subject: Vlastnosti Hintu


>
> Zdravim vsechny a mam dotaz:
>
> Da se nejak zmenit velikost fontu v Hintu, pripadne dalsi vlastnosti?
>
> JiriP
>
>
>
>
>
>
>
>
>
>
> Chcete hledat nebo chcete najit?
> *** http://NAJDI.TO
>
>

combobox a items

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 4.8.2000 13:21:41

Ahoj,

lze nejak jednoduse zakazat vybrani polozky z items comboboxu tj. aby byla
nevybratelna ale byla v seznamu?

Diky

Jaro B.

Kontextov� menu v TWebBrowser pomoc� IDocHostUIHan

[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 4.8.2000 13:33:09

Zdravim,

uz jsem to nasel. Na http://www.torry.ru/vcl/internet/browsers/embedwb.zip
je komponenta, ktera to resi.

Tomas Bradle


----- Original Message -----
From: Tomas Bradle <t.bradle(zv)pvtnet(tec)cz>
Subject: Kontextov� menu v TWebBrowser pomoc� IDocHostUIHandler


> Zdravim vsechny,
>
> nepracoval jste nekdo nahodou se %subj% ?
>
> V MSDN jsem si nasel, ze se musi implementovat rozhran� IDocHostUIHandler,
> ale v MSHTMHST.IDL jsou naky dalsi odkazy na jine *.IDL, vsechny nemuzu
> najit, a taky mi dela potize ta ceckovska syntaxe...
>
> Chci se proto zeptat jesli to nekdo uz neresil, princip je mijasny, ale ta
> nestastna definice rozhrani IDocHostUIHandler.
>
> Predem diky
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
>
>
>

Instalace D5

[*] Libor Thiel <thiel(zv)elapsh(tec)cz> - 4.8.2000 14:35:43

M�l n�kdo probl�m s instalac� D5 Prof. na Win 2000 Prof. CZ?
V�bec se mi nerozb�hne :(

Libor

Instalace D5

[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.8.2000 15:04:31

Na W2000 jsem problemy nemel, ale typ na problemy s grafickou kartou. Zkus prepnout rozliseni na nejvyssi pocet barev. Jinak pokud mas nastaveno 256 a mene barev, tak mas smulu.

Jan Fiala

----- Original Message -----
From: "Libor Thiel" <thiel(zv)elapsh(tec)cz>


M�l n�kdo probl�m s instalac� D5 Prof. na Win 2000 Prof. CZ?
V�bec se mi nerozb�hne :(

Libor

Stav Antivirove kontroly

[*] Kuzelka Filip <kuzelka(zv)access-it(tec)cz> - 04.8.2000 09:18:07 -0400

Zdravim opet,
nevite nekdo, jakym zpusobem komunikuje Norton Antivirus
s aplikaci, ktera ho spusti pro kontrolu nejakeho souboru ?

Konkretne:

Pokud ze sve aplikace spoustin NAV2k, jak se dozvim, zda nasel
virus, odstranil ho nebo dalsi info ???

dekuji za napady.

Filip Kuzelka

ComponentEditor ??

[*] Jan Najv�rek <najvarek(zv)seznam(tec)cz> - 04.8.2000 16:12:21

Aby se hodnota Property aktualizovala v Object Inspectoru musis zavolat metodu:

<ComponentEditor.>Designer.Modified

> Hodnota v Object inspectoru se v�ak nezm�n� , a� pokud kliknu na
> tuto property tak se "refreshuje"

Jan Najvarek


Cache pri FTP prenose nejde vypnut

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 04.8.2000 17:45:25

Ahoj !

Pri aplikovani FtpGetFile sa mi nedari vypnut Cache.
Ak FTP server zhodi spojenie, funkcia FtpGetFile vrati,
TRUE, t.j. ze subor bol prijaty v poriadku.

Pri opakovanom volani tejto funkcie uz ani neobnovuje
spojenie a torzo suboru taha rovno z cache.

Uz som skusal vsetko mozne, "objasnenie" problemu som
hladal aj na http://msdn.microsoft.com ale bez uspechu.

Nevedel by mi niekto poradit ?

Funkciu FtpGetFile pouzivam nasledovne:

Result := FtpGetFile
(
FFTPHandle,
PChar ( RemoteFile ),
PChar ( LocalFile ),
False,
File_Attribute_Normal,
Ftp_Transfer_Type_Binary,
0
);

Posledny parameter (Flag) som nastavoval na
INTERNET_FLAG_DONT_CACHE, INTERNET_FLAG_RELOAD
a podobne, ale efekt bol vzdy rovnaky.

Za pripadnu pomoc vdaka.


Peter


D4-uzivatelske filtrovanie tabulky.

[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 04.8.2000 17:56:58

Ahoj,
nieco z helpu k Delpham, keyword "Filtered":

"To apply filter conditions specified in the Filter property or the
OnFilterRecord event handler, set Filtered to True."

Pozri aj help k OnFilterRecord.

Zdeno


KINEKUS wrote:

> Zdravim vsetkych.
>
> Narazil som na problem a v literature som nenasiel uspokojivu odpoved.
>
> Potrebuje uzivatelsky filtrovat DBF tabulku. Nastavilom som si v Table
> Filtered ako TRUE ale neviem, cim mam vyvolat udalost OnFilterRecord.
>
> Situacia :
> Po stlaceni tlacitka potrebujem uzivatelsky filtrovat tabulku, co obsahuje
> zadany retazec.
>
> Prosim poradte.
>
> Milan Fabik


ComponentEditor ??

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.8.2000 19:19:46

On 4 Aug 2000, at 7:07, Radek Janu� wrote:

> Na akci dvojklik se spust� formul�� ComponentEditoru
> Application.CreateForm(TFGenerator, FGenerator);
> FGenerator.showmodal;
> //***Po uzav�en� formul��e zap�u string do property Klic***//
> fKey:=FGenerator.Edit1.text;
>
> (Pokud jsem aktu�ln� na jin� property v O.Inspectoru tak z�st�v� ta
> star�).Nev� n�kdo ��m by to mohlo b�t, �e se hodnota aktualizuje a�
> kdy� na ni kliknu ? Vyzkou�el jsem u� snad v�echno.

Zkus v ComponentEditoru po zavolani a ukonceni tveho formulare
zavolat Designer.Modified.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Access databaze - pristup

[*] Erik Salaj <winsoft(zv)napri.sk> - 4.8.2000 21:03:28

> Asi neporadim, ale me pekne na...lo kdyz v Accessu naimportuju tabulku z
Exc
> elu, ta se tam tvari ok (jen ma jinou ikonku)
> a treba pres ADO( jet driver ) tak uz tam zadna takova tabulka neni.

Tak linknute ako aj importovane tabulky chodia v ADO korektne. Akurat
sa nezobrazuju (v Adonise aj ADOExpress-e) nazvy linknutych tabuliek.
V Adonise som to uz opravil, takze v najblizsej verzii to uz bude vsetko
zobrazovat.

Erik Salaj, WINSOFT


OT: soubory s priponou D01

[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.8.2000 21:46:10

Narazil jsem na datove soubory s priponou *.d01 a zrejme indexove
soubory *.x01. Podle prosteho zobrazeni to vypada, ze na zacatku
nejsou informace o strukture. Nevite o tom nekdo neco blizsiho ?

Jan Fiala


Delphi 3.01

[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 4.8.2000 23:09:50

Ahoj,

mame Delphi 3 a pouzivame ju na udrzbu starsich projektov. Nove projekty uz
robime v Delphi 5 (+update). Obcas sa objavia v starsich projektoch
nedostatky, ktore by bolo mozne odstranit pomocou update 3.01 a 3.02, ovsem
update 3.01 uz nie je oficialne (Inprise) dostupny. Existuje neoficialny
sposob ako sa k tomuto update dostat?

Dik, Palo.
pstolc(zv)sc.sknet.sk


Jak ud�lat pr�vodce (wizardy)?

[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 4.8.2000 23:17:03


Ahoj,

Neni co stahovat ->
TPageControl - paleta Win32 nebo
TTabbedNotebook - paleta Win 3.1

S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ond�ej �t�rba
> Sent: Thursday, August 03, 2000 9:26 AM
> To: Delphi konference
> Subject: Re: Jak ud�lat pr�vodce (wizardy)?
>
> >Ja pro takove pripady pouzivam komponentu Notebook.
>
> Rad bych ji vyzkousel, je mozne ji odnekud stahnout?
>
>

Impliticne heslo pre Access 2.0 subory

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 5.8.2000 00:34:55

Zdravim.

Viete mi poradit ohladom %subj.%

Roland.

DBGridSinea (un)select rows, but only visible

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 5.8.2000 00:37:00

Zdravim.

Ako o(d)znacim najjednoduhsie vsetky riadky ktore su viditelne.

Lebo UnCheckAll zrusi oznacenie aj tych ktore nie su zobrazene (vyfiltrovana
tabulka);

Dakujem;

Roland.

cteni Cookies

[*] Milan ��ek - 5.8.2000 12:59:17

> From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> > nevite prosim nekdo (treba fci), jak by se dali precist cookies z
pevneho
> > disku? Struktura cookies souboru je sice pomerne jednoducha, ale ja
treba
>
> Ahoj,
>
> pomoci WinInet funkci FindFirstUrlCacheEntryEx, FindNextUrlCacheEntryEx a
> FindCloseUrlCache.

Nejaky jednoduchy priklad typu: zadam URL a fce vrati jeji Cookies by nekdo
nemel? Nebo alespon nejak tip na nejake info k temto funkcim? Jinak dik.

S pozdravem Milan Cizek, amatersky programator, D4 CS
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ:59826637


IB 5.6 a podivna hlaska

[*] Jaro <jaro(zv)sinea(tec)cz> - 5.8.2000 19:27:29

> Toz, odpovi si sam. :-)
>
> Problem byl v tom, ze bylo napsano SELECT * ... a to IB
> nerozdejcha. Takze select pres x tabulek jde, ale musi byt
> proveden vypis sloupcu.

Hm ... ale je tu jeste jeden problem na ktery muze narazit pozdeji.
Pokud budou nektere tabulky velke, pak se muzes dockat nekonecne
dlouhe odezvy. Se slozenymi prikazy Select pro vice tabulek
IB nepracuje prilis efektivne. Ostatne myslim,
ze to tak funguje u vetsiny serveru (zkousel jsem i ORACLE)
Efektivnejsi by asi bylo pouzit prikaz FOR SELECT

Jaro
-------------------------------------------------------------
Navstivte nas internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC

>
> Slavek
>
> ps.: Zbysku promin za smajliky. ;-P
>
> > Preji vsem pekneho dne,
> >
> > mam velice skromny dotaz, co mi chce IB rict timhle?:
> >
> > invalid request BLR at offset 550
> > Implementation limit exceeded
> > block size exceeds implementation restriction
> >
> > Delam select pres blbych sedm tabulek a misto
> > vysledku dostanu uvedenou hlasku.
> >
> > Jestli to je tim, ze sedm tabulek je pro nej
> > trapne velke cislo, jak to obejdu? (vysledek
> > musi byt ze sedmi tabulek).
> >
> > Diky za pripadne odpovedi.
> >
> > Slavek
> >
> >
> > -------------------------------------------------
> > http://atrey.karlin.mff.cuni(tec)cz/~rk
> > -------------------------------------------------
> > http://www.swnet(tec)cz
> > Magazin informacne vyspelych jedincu
> > -------------------------------------------------
> >
>
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
>

IB 5.6 a podivna hlaska

[*] Tom� Michal�k <michalik(zv)proca(tec)cz> - 05.8.2000 22:04:41

Ahoj,

Jaro wrote:

> > Toz, odpovi si sam. :-)
> >
> > Problem byl v tom, ze bylo napsano SELECT * ... a to IB
> > nerozdejcha. Takze select pres x tabulek jde, ale musi byt
> > proveden vypis sloupcu.
>
> Hm ... ale je tu jeste jeden problem na ktery muze narazit pozdeji.
> Pokud budou nektere tabulky velke, pak se muzes dockat nekonecne
> dlouhe odezvy. Se slozenymi prikazy Select pro vice tabulek
> IB nepracuje prilis efektivne.

Muzes byt konkretnejsi ? Casto lze mnohonasobne select zrychlit rucni
specifikaci planu - IB optimizer totiz v pripade mnohotabulkovych joinu
za urcitych okolnosti nevybere nejvhodnejsi plan.

> Ostatne myslim,
> ze to tak funguje u vetsiny serveru (zkousel jsem i ORACLE)
> Efektivnejsi by asi bylo pouzit prikaz FOR SELECT
>
> Jaro

Tom


Tisk rozdelene bitmapy

[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 5.8.2000 23:30:28

Dobry den,

Muj program vygeneruje za pomoci ruznych prikazu text a obrazky jako jednu
velkou bitmapu. Tuto bitmapu potrebuju vytisknout. Ted ale nastava problem,
protoze ta bitmapa je na vysku hodne velka (je to proste clanek v
el.casopisu), takze potrebuje rozdelit na vice casti a pote je postupne
vytisknout na tiskarne. Na konci kazde stranky by se melo take vytisknout
poradove cislo te stranky.

Rozdelit bitmapu se mi povedlo (CopyRect na jiny Image), ale kdyz jsem
zkousel jednotlive casti vytisknout, papir vzdy tiskarnou jen projel a nic
nevytiskl. Zkousel jsem mnoho veci, ale nic se nepodarilo. Nesetkal se nekdo
z vas s podobnym problemem?? - potreboval bych poradit! S praci s tiskarnou
jsem uplny novacek.

Predem dekuji

Vasek Navrat
programator DiskMagu Engine


IB 5.6 a podivna hlaska

[*] Jaro <jaro(zv)sinea(tec)cz> - 6.8.2000 00:41:34

> > Hm ... ale je tu jeste jeden problem na ktery muze narazit
pozdeji.
> > Pokud budou nektere tabulky velke, pak se muzes dockat nekonecne
> > dlouhe odezvy. Se slozenymi prikazy Select pro vice tabulek
> > IB nepracuje prilis efektivne.
>
> Muzes byt konkretnejsi ? Casto lze mnohonasobne select zrychlit
rucni
> specifikaci planu - IB optimizer totiz v pripade mnohotabulkovych
joinu
> za urcitych okolnosti nevybere nejvhodnejsi plan.
>
Ano - to je pravda, vhodny plan muze hodne zrychlit, take dobre
udelane
vazby tabulek a indexy velmi pomohou.
Presto v rade pripadu byva nejrychlesi FOR SELECT, a to zejmena tehdy,
pokud nektera tabulka je velka a lze ji efektivne segregovat.
Pak se vazby na dalsi tabulky provadeji jiz pro velmi omezenou
mnozinu dat. V ulozne procedure optimalizaaci proste provadis
ty a mas sanci ji provest mnohem efektivneji.
Jaro

----------------------------------------------------------------------
-
Navstivte internetovy technicky casopis www.techbox(tec)cz,
kde zizkate mnoho zajimavych informaci ze sveta PC

soubory s priponou D01

[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 6.8.2000 11:09:43

| Narazil jsem na datove soubory s priponou *.d01 a zrejme indexove
| soubory *.x01. Podle prosteho zobrazeni to vypada, ze na zacatku
| nejsou informace o strukture. Nevite o tom nekdo neco blizsiho ?

Zdravicko,
podle tech pripon by mohlo jit o datove soubory s PC-FANDu a ty skutecne
neobsahuji informaci o strukture dat, ta je ulozena jen v programu v
prislusnych deklaracich

Pavel

Format prenasanym dat zo IB6 servera na klienta

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 6.8.2000 16:31:26

Zdravim.

Je zabezpeceny prenos udajov po sieti kryptovanim, alebo sifrovanim ?
Len sa mi jedna o to ci by sa nedali jednoducho chytat pakety a krasne ich
citat.

Dakujem.

Roland.

OT: Windows ME

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 6.8.2000 17:24:27

Zajimave (z NT konference)

Mac

>Zkusil bych winroute ale to nejde na WinME (blahove jsem si myslel ze ME je
>z5ne kompatibilni s 9x - neni).

Mate pravdu - kernel WinMe je pomerne dost prekopany, doslo k rade zmen v
sitovem subsystemu (vcetne samotneho TCPIP, ktere jiz neni jako VXD, ale je
to 'PE' modul loadovany modulem NTKERN) - proste WinMe jsou takovy zvlastni
hybrid mezi NT a Win9x. Na WinMe budeme moci "portnout" WinRoute az se
Microsoft uraci dodat DDK a dalsi potrebnou dokumentaci...

S. Kolar (standa(zv)winroute.com)

Resourcestring

[*] <x51(zv)centrum(tec)cz> - 06.8.2000 18:29:28

Ahoj,
jsem zacinajici programator v C++ Builderu. Poradi mi nekdo jak
mohu do programu zakomponovat resourcestringy ktere budou
viditelne v transtator toolsu a nasleddne pujdou prelozit do
jinych jazyku. Jedina mne znama moznost lokalizace je vzdycky ve
vsech zdrojacich najit retezce prelozit je a znovu zkompilovat
program.
V Delphi to slo v pohode klicovym slovem resourcestring, ale v
Builderu nevim jak na to.

Dik, Ales


Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz


Jak zalozit login?

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 6.8.2000 19:45:20

----- Original Message -----
From: "David Lebeda" <david.lebeda(zv)comarr(tec)cz>> Jak je to s NT autentikaci, v pripadech, kdyz:
>
> 1) nekteri klienti maji NT a nekteri W9x?

O klienty ani tak nejde, musis mit NT server a na nem domenu.

> 2) sit u zakaznika je primitivni a je slozena vyhradne z W9x?

Tak mas smulu, musis pouzit SQL Server autentifikaci...

Mac


DBGrid a UpdateSQL

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 6.8.2000 19:49:01

Chtelo by to priste uvest typ databaze a co pouzivas na pristup k databazi a jakou verzi Delphi mas. Takhle se fakt blbe radi ;-)

Mac
----- Original Message -----
From: Bednar��k Dalibor

Mam Tabulku, ve ktere je polozka PorCis typu AutoInc....
S tehle tabulky zobrazuju Data pres TQuery.
Pri novem zaznamu se mi ale nejak nechce v DBGridu zobrazit nova hodnota Porcis.
Pouzivam UpdateSQL, protoze v SQL dotazu pouzivam ORDER BY....

SQL - pocet skupin

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 6.8.2000 19:52:50

select idvt, count(idvt) from prmspr group by idvt ???

Resp. chces vedet kolik jich je v kazde skupine nebo ti jde o pocty tech
skupin? Zkus napsat nejake cvicne data at mam predstavu. Taky napis pro
jakou databazi to chces... ;-)

Mac


----- Original Message -----
From: "Mari�n Goryl" <goryl(zv)insdata.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 03, 2000 2:26 PM
Subject: SQL - pocet skupin


> Ako zistit pocet skupin viet ziskanych pomocou nasledovneho selectu
>
> select idvt from prmspr group by idvt
>
> resp. co mam este doplnit do uvedeneho selectu aby mi to vyplulo
pozadovane
> cislo?
>
> Dakujem
>
> Marian
>

IB a dalsi podivna hlaska

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 6.8.2000 22:00:15

Preji vsem pekneho dne,

mam definovana (rekneme slozite) view, ktere jde naprosto v
pohode prelozit, ale kdyz dam select, ziskam tuto hlasku:

internal gds software consistency check (wrong
record length (183))

Co je spatne?

Diky za kazde pripominky.

Slavek


-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------


IB6 server log file

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 7.8.2000 00:37:30

Zdravim.

Co je toto za chybu ?

PC1 (Server) Sat Aug 05 13:15:06 2000
WNET/wnet_error: ReadFile end-of-file errno = 109

Viac krat sa mi to opakuje a nenasiel som nikde vysvetlenie o com je rec.

Kde najdem popis tych ERRNO

Dakujem.

Roland;

DBGrid a UpdateSQL

[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 7.8.2000 06:55:41

Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.


Ahoj, to je pravda, takze uvadim upresnujici info...

Mam Delphi 5 prof, Pristup pres BDE na paradox tabulky..
----- Original Message -----
From: Martin Kubecka
To: delphi-l(zv)fwd(tec)cz
Sent: Sunday, August 06, 2000 7:49 PM
Subject: Re: DBGrid a UpdateSQL


Chtelo by to priste uvest typ databaze a co pouzivas na pristup k databazi a jakou verzi Delphi mas. Takhle se fakt blbe radi ;-)

Mac
----- Original Message -----
From: Bednar��k Dalibor

Mam Tabulku, ve ktere je polozka PorCis typu AutoInc....
S tehle tabulky zobrazuju Data pres TQuery.
Pri novem zaznamu se mi ale nejak nechce v DBGridu zobrazit nova hodnota Porcis.
Pouzivam UpdateSQL, protoze v SQL dotazu pouzivam ORDER BY....

vypnuti windows

[*] sup(zv)svitap(tec)cz - 7.8.2000 7:52:56

>ahoj,
>potreboval bych poradit co je na nasledujicim kousku
>kodu spatne. Umi to vypnout windows (u me NT4 CZ SP6).
>S vypinanim problemy nejsou. Problem nastane az tehdy,
>kdyz takhle vydam povel k vypnuti a nejaka jina aplikace
>ho stornuje. Kdyz potom chci poc vypnout standartne
>(Start\Vypnout) tak mi nabehne sice ta znama sediva obrazovka
>jako pri vypinani, ale k vypnuti (resp. odhlaseni) uz nedojde.
>Ani druhe pouziti stejneho kodu uz vypnuti nevyvola.
>
>jeste jedna vec:
>Pokud volam ExitWindowsEx s paramatrem
>EWX_POWEROFF dojde sice po vypnuti k preruseni napajeni,
>po kterem ovsem poc znovu nastartuje. V masine problem neni,
>protoze w2k ji vypnout (tedy fyzicky - od napajeni) umeji.
>
>Za rady diky
> Tomas Bihary
>
>procedure TForm1.Button4Click(Sender: TObject);
>var
> NewPrivilegies: _TOKEN_PRIVILEGES;
> DUMMY: DWORD;
> ALUID: Int64;
> TokenHandle: THANDLE;
>begin
> Win32Check(LookupPrivilegeValue(nil, PChar('SeShutdownPrivilege'),
>ALUID));
> NewPrivilegies.PrivilegeCount := 1;
> NewPrivilegies.Privileges[0].Luid := ALUID;
> NewPrivilegies.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
> Win32Check(OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES,
>TokenHandle));
> Win32Check(AdjustTokenPrivileges(TokenHandle, False, NewPrivilegies, 0,
>nil, DUMMY));
> Win32Check(CloseHandle(TokenHandle));
> Win32Check(ExitWindowsEx(EWX_SHUTDOWN, 0));

Pouzij:
ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );

Jaroslav Weiss
odd. informatiky

SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02

tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz


Instalace D5

[*] Libor Thiel <thiel(zv)elapsh(tec)cz> - 7.8.2000 08:12:27

D�k, ale nepomohlo. InstallShield Wizard nabiha pouze do 99% a cela
instalace skonci bez jakekoliv hlasky.

Libor Thiel

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jan Fiala
Sent: Friday, August 04, 2000 3:05 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Instalace D5


Na W2000 jsem problemy nemel, ale typ na problemy s grafickou kartou. Zkus
prepnout rozliseni na nejvyssi pocet barev. Jinak pokud mas nastaveno 256 a
mene barev, tak mas smulu.

Jan Fiala

----- Original Message -----
From: "Libor Thiel" <thiel(zv)elapsh(tec)cz>


M�l n�kdo probl�m s instalac� D5 Prof. na Win 2000 Prof. CZ?
V�bec se mi nerozb�hne :(

Libor

instalace s Interbase

[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 7.8.2000 08:30:11

Pokud jde o to u klienta nainstalovat Interbase Server tak hledej v Dokumentaci
k IB - Install API

----- P�vodn� zpr�va -----
> Nevim jestli jsem to dobre napsal ale jde mi o to naistalovat aplikaci na
> cisty Pc
> kam zkopiruji *.EXE svoji databazi *.gdb a mohl jsem program uspesne
> spustit.
>
> Podle mne by se mela instalovat i ISC4.GDB.
>
> Zatim to nemohu vyzkouset a pokud bych aplikaci prevedl z Paradoxu na IB6
> tak bych u zakaznika nerad zmatkoval :-)
>
> Mohu takto samostatne spusteni vyzkouset v IB5?
>
> S pozdravem Heinisch Jiri
>
>
> www.deis(tec)cz
> www.drnholec(tec)cz - brana do celeho sveta :-))
>
>

Jmena vsech uzivatelu v siti

[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 7.8.2000 08:32:15

Ahoj,

nepsal jste nekdo nahodou funkci ci komponentu, ktera zjistuje jmena vsech
uzivatelu pripojenych v siti? Momentalne se s tim morduju, ale jsou s tim
problemy. Diky

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7

tel. +420-2-3337 3855
+420-2-2431 4538
*************************************

IB a dalsi podivna hlaska

[*] Daniel Fojt�k <xfojtik(zv)albert.osu(tec)cz> - 7.8.2000 08:56:18

Ahoj,

tatez hlaska se mi objevuje na databazi jenz jsem prevedl s IB 5.6 na IB
6.0. Nejsem si ale jist ze jde o problem s view, mne se presne stejna hlaska
objevi i pri selectu na tabulku. Timto se pripojuji k dotazu.

Dan

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Slavek Rydval
Sent: Sunday, August 06, 2000 10:00 PM
To: delphi-l(zv)fwd(tec)cz
Subject: IB a dalsi podivna hlaska


Preji vsem pekneho dne,

mam definovana (rekneme slozite) view, ktere jde naprosto v
pohode prelozit, ale kdyz dam select, ziskam tuto hlasku:

internal gds software consistency check (wrong
record length (183))

Co je spatne?

Diky za kazde pripominky.

Slavek


-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000


MSDE - redistribucni balik

[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 7.8.2000 08:57:32

ahojte;

takze, tady je ta slibovana odpoved od M$ ohledne chybejiciho
redistribucniho baliku MSDE v prvnich verzich M$Office 2k Devil ;-)

Czech-Slovak Developer Support <czdevsup(zv)microsoft.com> pise v diskusn�m
prispevku:<dcTRA#69$GA.3512(zv)websrv1.microsoft(tec)cz>...
> Dobry den,
>
> na nasledujici strance http://msdn.microsoft(tec)cz/ode15 bude mozne si
objednat
> jak nove ODE 1.5 tak i chybejici casti stavajiciho ODE.
>
> Jelikoz bude tato stranka uvedena do provozu spolecne s ODE 1.5,
nebude do
> te doby mozne objednat si MSDE, ktere ve starsich ODE chybelo (nekdy
na
> prelomu srpna/zari).
>
> Pokud tedy potrebujete MSDE drive, zaslete na mou adresu vase
registracni
> cislo MS ODE 2000 a my Vam zasleme kopii MSDE.
>
> S pozdravem
>
> Michal Neuwirth
> ==============================
> Czech-Slovak Developer Support
> E-mail: czdevsup(zv)microsoft.com


DBGridSinea (un)select rows, but only visible

[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.8.2000 09:27:56

From: "Roland Tur�an (RoTurSoft)" <rotursoft(zv)nextra.sk>> Ako o(d)znacim najjednoduhsie vsetky riadky ktore su viditelne.
> Lebo UnCheckAll zrusi oznacenie aj tych ktore nie su zobrazene
> (vyfiltrovana tabulka);
>
> Dakujem;
> Roland.

Toto je trochu slozitejsi, protoze filtrovani neni pod kontrolou
komponenty DBGridSinea, ale je rizeno pres udalost OnFilterRecord,
ktera je volana pouze pri prochazeni DataSetem. Pri odeznaceni
viditelnych tedy bude nutne projit cely dataset, napriklad:

Do komponenty DBGridSinea je zavedena nova metoda
UnCheckVisible, jeji implementace bude asi takto:

procedure TDbGridSinea.UnCheckVisible;
var Position: TBookmark;
begin
if FCheckEnabled then
if Assigned(DataSource) then
if Assigned(DataSource.DataSet) then
with Datasource.DataSet do
begin
Position := GetBookmark;
DisableControls;
First;
while not Eof do
begin
if IsChecked(GetKeyData) then
TCheckedList(FCheckedList).SetChecked(GetKeyData, false);
Next;
end;
GotoBookmark(Position);
FreeBookmark(Position);
EnableControls;
Invalidate;
end;
end;

Na strankach www.sinea(tec)cz je ke stazeni nova verze 4.03 balicku komponent
SiVCL4 pro D4 a D5, ktera obsahuje komponentu DBGridSinea
s implementovanou metodou UnCheckVisible.

Vaclav Krmela


IB a dalsi podivna hlaska

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 7.8.2000 09:28:30

Ahoj,

moje domnenka je takova, ze se neco pokazilo v souboru gdb, tedy
v souboru, ve kterem jsou ulozena data (v mem pripade je to
mozne a pokud se Ti nepodaril dobry prechod na vyssi verzi,
teoreticky to je take mozne).

Bohuzel jsem nikde nenasel o teto chybe zminku.

Slavek

> Ahoj,
>
> tatez hlaska se mi objevuje na databazi jenz jsem prevedl s IB 5.6 na IB
> 6.0. Nejsem si ale jist ze jde o problem s view, mne se presne stejna hlaska
> objevi i pri selectu na tabulku. Timto se pripojuji k dotazu.
>
> Dan
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Slavek Rydval
> Sent: Sunday, August 06, 2000 10:00 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: IB a dalsi podivna hlaska
>
>
> Preji vsem pekneho dne,
>
> mam definovana (rekneme slozite) view, ktere jde naprosto v
> pohode prelozit, ale kdyz dam select, ziskam tuto hlasku:
>
> internal gds software consistency check (wrong
> record length (183))
>
> Co je spatne?
>
> Diky za kazde pripominky.
>
> Slavek
>


-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------


SQL - pocet skupin

[*] Mari�n Goryl <goryl(zv)insdata.sk> - 7.8.2000 09:34:57



>select idvt, count(idvt) from prmspr group by idvt ???

toto zisti pocet viet pre jednotlive skupiny nie pocet skupin

IDVT COUNT ( IDVT )
00000000000078041 54
00000000000078576 54
00000000000080854 54
00000000000197960 9
00000000000211438 6
00000000000211525 56
00000000000251056 6
00000000000257143 6


>Resp. chces vedet kolik jich je v kazde skupine nebo ti jde o pocty tech
>skupin?

ano chcem zistit pocty skupin teda by mi malo vyjst 8

>Zkus napsat nejake cvicne data at mam predstavu. Taky napis pro
>jakou databazi to chces... ;-)


DB2

joystick

[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.8.2000 09:35:50

From: "Tomas Bihary" <tomas(zv)wige-mic(tec)cz>> Ve svem programu bych potreboval komunikovat s
> joystickem. V helpu jsem si nasel par api fci (joySetCapture, ...),
> ktere je potreba nadeklarovat pro jejich pouziti v Delphi.
> To se da jeste zvladnout, pak je potreba znat jeste
> hodnoty konstant pro zpravy tykajici se joysticku
> (MM_JOY1MOVE, ...) a par struktur pro nektere
> z tech api. Help se zde odkazuje na hlavickovy soubor
> mmsystem.h
> problem tedy je, kde muzu tenhle soubor ziskat, abych mohl
> dane konstanty a struktury nadeklarovat, protoze jinak se
> asi nehnu z mista.
> Dale bych rad poprosil o zkusenosti s danou problematikou,
> ma-li nekdo nejake
>
> Dekuji Tomas Bihary
>
>

Na strankach www.sinea(tec)cz je ke stazeni nova verze 4.03
balicku komponent SiVCL4 pro D4 a D5, ktera obsahuje
mimo jine i komponentu TJoystickSinea, ktera pouziva
funkce MMSystem. Neni to moc dokumentovane,
ale zdrojovy text je natolik jednocuchy, ze to nebude
problem. V pripade zajmu mohu poslat trivialni
ukazkovy a testovaci program.

Vaclav Krmela


Exkluzivni otevreni tabulky

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.8.2000 09:58:04

Musite mit nastaveny Net DIR na VSECH pocitacich STEJNE !!!

Milan Tomes

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Brant Petr
> Sent: Thursday, August 03, 2000 10:52 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Exkluzivni otevreni tabulky
>
>
> Aha, tak takhle to je. Uz to funguje. Jenom je mi divna jedna
> vec. Mam radu
> tabulek, ktere se pokousim otevrit exkluzivne. A staci, aby jen
> JEDNA z nich
> byla otevrena (treba pomoci Database Desktopu) na jinem pocitaci, a objevi
> se vyjimka u VSECH, ktere se pokousim otevrit exkluzivne. Pise to
> neco jako
> "Directory is controlled by other .NET file..." Myslel jsem, ze se ta
> vyjimka objevi jen u te otevrene. Proc to tak je?
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> program�tor
> **************************************
> D & COMM s.r.o.
> Korunova�n� 3, Praha 7
>
> tel. +420-2-3337 3855
> +420-2-2431 4538
> *************************************
>
> -----Original Message-----
> From: L. ZITA [mailto:konference(zv)sales(tec)cz]
> Sent: Wednesday, August 02, 2000 4:58 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Exkluzivni otevreni tabulky
>
>
> Behalf Of Brant Petr
>
> > Hm, tak to jsem udelal a nic. Vzhledem k tomu, ze jsem databazovy
> > zacatecnik, jsem asi opomenul neco duleziteho. Delam to takhle:
> >
> > Na jednom pocitaci, kde delam ten vyvoj, mam sdileny adresar s uplnym
> > pristupem a v nem jsou data. Zde udelam form, na nem TTable. Do
> > DatabaseName
> > nastavim cestu (c:\public\data), do TableName jmeno tabulky,
> dale nastavim
> > Exclusive:=True a na zaver Active:=true. Vsechno projde. Na
> > druhem pocitaci
> > udelam totez, pouze u DatabaseName nastavim odpovidajici sitovou cestu
> > (\\Brant\public\data), jinak je vsechno stejne. A tabulka se
> > otevre rovnez,
> > nic na me nekrici. Pritom na obou strojich je v BDE Admin nastaveno
> > LocalShare:=true. Neni treba chyba v tom, ze se to nedela pres alias? To
> > jsem zatim nezkousel. A pokud ano - jak se da z aliasu vykousat fyzicka
> > cesta k tem datum?
>
> Jeste musis mit nastaven ve vsech BDE NET DIR aby ukazoval do jednoho
> stejneho fyzickeho adresare.
>
> Ludek
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000


Format prenasanym dat zo IB6 servera na klienta

[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 7.8.2000 10:03:37

Ahoj,

podla toho co viem, tak prenos dat zabezpeceny NIE JE.

Isty "workaround" bol uverejneny v The Delphi Magazine,
Issue 59, kde Jari Jarvinen (mailto:janij(zv)dystopia.fi)
vytvoril program na sifrovanie spojenia medzi klientom
a IBServerom (pre TCP/IP).

Program vytvara akesi "proxy" medzi klientom a serverom.
Na klienstkej strane monitoruje standartny IB port 3050,
server teda musi bezat na inom porte

Program vyuziva TClientSocket a TServerSocket komponenty
na komunikaciu a MS CryptoAPI (sifra RC4) na zabezpecenie
spojenia.

Ked najdem disketu k tomuto clanku mohol by som pripadnym
zaujemcom poslat cely zdrojovy kod (dufam, ze tym
neporusim autorske prava (?) :))),

IMHO: zdrojaky k IB6 su free, urcite sa niekto najde, kto
sifrovanie implementuje ako standartnu sucast IB :)))

Tomas.

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Roland Tur�an (RoTurSoft)
> Sent: Sunday, August 06, 2000 4:31 PM
> To: Delphi CZ konferencia
> Subject: Format prenasanym dat zo IB6 servera na klienta
>
>
> Zdravim.
>
> Je zabezpeceny prenos udajov po sieti kryptovanim, alebo sifrovanim ?
> Len sa mi jedna o to ci by sa nedali jednoducho chytat pakety a krasne ich
> citat.
>
> Dakujem.
>
> Roland.
>

SQL - pocet skupin

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.8.2000 10:04:04

select count(idvt) as idvt from prmspr group by idvt

Zkus to a uvidis co z toho bude

Milan

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Mari�n Goryl
> Sent: Thursday, August 03, 2000 2:26 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: SQL - pocet skupin
>
>
> Ako zistit pocet skupin viet ziskanych pomocou nasledovneho selectu
>
> select idvt from prmspr group by idvt
>
> resp. co mam este doplnit do uvedeneho selectu aby mi to vyplulo
> pozadovane
> cislo?
>
> Dakujem
>
> Marian


OT HLP to CHM

[*] sup(zv)svitap(tec)cz - 7.8.2000 10:13:34

Dobry den, nevite jak co nejjednoduseji predelat help z *.HLP na *.CHM ??

Jaroslav Weiss
odd. informatiky

SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02

tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz


Zjisteni handle

[*] tomsir1.edu(zv)mail.cez(tec)cz - 7.8.2000 09:16:21



Zkus se poprat s tim dole :O)) snad to trochu pomuze, mne chodi "process
manager" na tomhle zalozenej,
pokud budes mit zajem, mrkni se na muj web : http://radegast.continent(tec)cz
nebo ti to poslu mailem.

Zdar Radegast

-----------------------------------------------

unit RunningProcs;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, Forms, ExtCtrls, TLHelp32;

type

TRunningProcs = class(TComponent)
private
FEnabled: boolean;
FCount: integer;
FOnCreatedProcess: TNotifyEvent;
FOnTerminatedProcess: TNotifyEvent;
FTimer: TTimer;
procedure SetEnabled(Value: boolean);
procedure FUpdateProcessList(Sender: TObject);
public
ProcessList: array [1..100] of TProcessEntry32;
constructor Create(AOwner:TComponent); override;
destructor Destroy; override;
function GetProcessDescriptionByID(PID: integer): string;
function GetProcessDescriptionByPos(index: integer): string;
function TerminateProcessByID(PID: integer): boolean;
function TerminateProcessByPos(index: integer): boolean;
function KillProcessByID(PID: integer): boolean;
function KillProcessByPos(index: integer): boolean;
function KillParentByID(PID: integer): boolean;
function KillParentByPos(index: integer): boolean;
property Enabled: boolean read FEnabled write SetEnabled default False;
property Count: integer read FCount;
published
property OnCreatedProcess: TNotifyEvent read FOnCreatedProcess write
FOnCreatedProcess;
property OnTerminatedProcess: TNotifyEvent read FOnTerminatedProcess write
FOnTerminatedProcess;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('System', [TRunningProcs]);
end;

function TerminateAppEnum(Handle: THandle; Lparam: integer): boolean; stdcall;
var
ID: integer;
begin
GetWindowThreadProcessID(Handle,(zv)ID);
if ID = Lparam then
begin
BringWindowToTop(Handle);
PostMessage(Handle,WM_CLOSE,0,0);
end;
Result := True;
end;

constructor TRunningProcs.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCount := 0;
FTimer := TTimer.Create(Self);
FTimer.Enabled := False;
FTimer.Interval := 100;
FTimer.OnTimer := FUpdateProcessList;
end;

destructor TRunningProcs.Destroy;
begin
FTimer.Enabled := False;
FTimer.OnTimer := nil;
FTimer.Free;
inherited Destroy;
end;

procedure TRunningProcs.SetEnabled(Value: boolean);
begin
FEnabled := Value;
FTimer.Enabled := FEnabled;
end;

procedure TRunningProcs.FUpdateProcessList(Sender: TObject);
var
Data: TProcessEntry32;
Handler: THandle;
i, j: integer;

procedure NewEntry;
var
Buf: PProcessEntry32;
begin
New(Buf);
Move(Data, Buf^, SizeOf(Data));
end;

begin
Data.dwSize := SizeOf(Data);
Handler := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
i := 1;
if Process32First(Handler, Data) then
begin
ProcessList[i] := Data;
i := i + 1;
NewEntry;
while ((Process32Next(Handler, Data)) and (i <= 100)) do
begin
ProcessList[i] := Data;
i := i + 1;
NewEntry;
end;
end;
finally
CloseHandle(Handler);
if i < 100 then for j := i to 100 do
begin
ProcessList[j].dwSize := 0;
ProcessList[j].cntUsage := 0;
ProcessList[j].th32ProcessID := 0;
ProcessList[j].th32DefaultHeapID := 0;
ProcessList[j].th32ModuleID := 0;
ProcessList[j].cntThreads := 0;
ProcessList[j].th32ParentProcessID := 0;
ProcessList[j].pcPriClassBase := 0;
ProcessList[j].dwFlags := 0;
ProcessList[j].szExeFile := '';
end;
end;
i := i - 1;
if i > FCount then
begin
FCount := i;
if Assigned(FOnCreatedProcess) then FOnCreatedProcess(Self);
end
else if i < FCount then
begin
FCount := i;
if Assigned(FOnTerminatedProcess) then FOnTerminatedProcess(Self);
end
else FCount := i;
end;

function TRunningProcs.GetProcessDescriptionByID(PID: integer): string;
var
i: integer;
index: integer;
VerSize: integer;
VerBuf: PChar;
VerBufValue: pointer;
{$IFDEF Delphi3Below}
VerHandle: integer;
VerBufLen: integer;
{$ELSE}
VerHandle: cardinal;
VerBufLen: cardinal;
{$ENDIF}
VerKey: string;

function GetInfo(ThisKey: string): string;
begin
Result := '';
VerKey := '\StringFileInfo\' + IntToHex(loword(integer(VerBufValue^)), 4) +
IntToHex(hiword(integer(VerBufValue^)), 4) + '\' + ThisKey;
if VerQueryValue(VerBuf, PChar(VerKey), VerBufValue, DWORD(VerBufLen)) then
Result := StrPas(VerBufValue);
end;

function QueryValue(ThisValue: string): string;
begin
Result := '';
if GetFileVersionInfo(ProcessList[index].szExeFile, VerHandle, VerSize,
VerBuf) and
VerQueryValue(VerBuf, '\VarFileInfo\Translation', VerBufValue,
DWORD(VerBufLen)) then
Result := GetInfo(ThisValue);
end;

begin
index := 0;
for i := 1 to 100 do
if ProcessList[i].th32ProcessID = PID then index := i;
if index = 0 then
begin
Result := '';
Exit;
end;
VerSize := GetFileVersionInfoSize(ProcessList[index].szExeFile,
DWORD(VerHandle));
VerBuf := AllocMem(VerSize);
try
Result := QueryValue('FileDescription');
finally
FreeMem(VerBuf, VerSize);
end;
end;

function TRunningProcs.GetProcessDescriptionByPos(index: integer): string;
var
VerSize: integer;
VerBuf: PChar;
VerBufValue: pointer;
{$IFDEF Delphi3Below}
VerHandle: integer;
VerBufLen: integer;
{$ELSE}
VerHandle: cardinal;
VerBufLen: cardinal;
{$ENDIF}
VerKey: string;

function GetInfo(ThisKey: string): string;
begin
Result := '';
VerKey := '\StringFileInfo\' + IntToHex(loword(integer(VerBufValue^)), 4) +
IntToHex(hiword(integer(VerBufValue^)), 4) + '\' + ThisKey;
if VerQueryValue(VerBuf, PChar(VerKey), VerBufValue, DWORD(VerBufLen)) then
Result := StrPas(VerBufValue);
end;

function QueryValue(ThisValue: string): string;
begin
Result := '';
if GetFileVersionInfo(ProcessList[index].szExeFile, VerHandle, VerSize,
VerBuf) and
VerQueryValue(VerBuf, '\VarFileInfo\Translation', VerBufValue,
DWORD(VerBufLen)) then
Result := GetInfo(ThisValue);
end;

begin
VerSize := GetFileVersionInfoSize(ProcessList[index].szExeFile,
DWORD(VerHandle));
VerBuf := AllocMem(VerSize);
try
Result := QueryValue('FileDescription');
finally
FreeMem(VerBuf, VerSize);
end;
end;

function TRunningProcs.TerminateProcessByID(PID: integer): boolean;
var
hProc: THandle;
begin
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, PID);
if hProc = 0 then
Result := False
else
begin
EnumWindows((zv)TerminateAppEnum, PID);
if WaitForSingleObject(hProc,5000) = WAIT_OBJECT_0 then Result := True
else Result := False;
end;
CloseHandle(hProc);
if Result = True then
begin
FUpdateProcessList(Self);
if Assigned(FOnTerminatedProcess) then FOnTerminatedProcess(Self);
end;
end;

function TRunningProcs.TerminateProcessByPos(index: integer): boolean;
var
hProc: THandle;
begin
if (index < 1) or (index > 100) then
begin
Result := False;
Exit;
end;
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False,
ProcessList[index].th32ProcessID);
if hProc = 0 then
Result := False
else
begin
EnumWindows((zv)TerminateAppEnum, ProcessList[index].th32ProcessID);
if WaitForSingleObject(hProc,5000) = WAIT_OBJECT_0 then Result := True
else Result := False;
end;
CloseHandle(hProc);
if Result = True then
begin
FUpdateProcessList(Self);
if Assigned(FOnTerminatedProcess) then FOnTerminatedProcess(Self);
end;
end;

function TRunningProcs.KillProcessByID(PID: integer): boolean;
var
hProc: THandle;
begin
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, PID);
if hProc = 0 then
Result := False
else
if TerminateProcess(hProc, 0) then Result := True else Result := False;
CloseHandle(hProc);
if Result = True then
begin
FUpdateProcessList(Self);
if Assigned(FOnTerminatedProcess) then FOnTerminatedProcess(Self);
end;
end;

function TRunningProcs.KillProcessByPos(index: integer): boolean;
var
hProc: THandle;
begin
if (index < 1) or (index > 100) then
begin
Result := False;
Exit;
end;
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False,
ProcessList[index].th32ProcessID);
if hProc = 0 then
Result := False
else
if TerminateProcess(hProc, 0) then Result := True else Result := False;
CloseHandle(hProc);
if Result = True then
begin
FUpdateProcessList(Self);
if Assigned(FOnTerminatedProcess) then FOnTerminatedProcess(Self);
end;
end;

function TRunningProcs.KillParentByID(PID: integer): boolean;
var
hProc: THandle;
i, index: integer;
begin
index := 0;
for i := 1 to 100 do
if ProcessList[i].th32ProcessID = PID then index := i;
if index = 0 then
begin
Result := False;
Exit;
end;
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, index);
if hProc = 0 then
Result := False
else
if TerminateProcess(hProc, 0) then Result := True else Result := False;
CloseHandle(hProc);
if Result = True then
begin
FUpdateProcessList(Self);
if Assigned(FOnTerminatedProcess) then FOnTerminatedProcess(Self);
end;
end;

function TRunningProcs.KillParentByPos(index: integer): boolean;
var
hProc: THandle;
begin
if (index < 1) or (index > 100) then
begin
Result := False;
Exit;
end;
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False,
ProcessList[index].th32ParentProcessID);
if hProc = 0 then
Result := False
else
if TerminateProcess(hProc, 0) then Result := True else Result := False;
CloseHandle(hProc);
if Result = True then
begin
FUpdateProcessList(Self);
if Assigned(FOnTerminatedProcess) then FOnTerminatedProcess(Self);
end;
end;

end.

Interbase komponenty a cache problem

[*] veselyt(zv)atlas(tec)cz - 7.8.2000 10:58:56

Ahoj,

pouzivam IBExpress komponenty a narazil jsem na peknej problem - vypada to jako bug Delphi. Mam IBQuery a UpdateObject, chache je zapnuta na true. DB stroj je IB 6.0. Pokud modifikuji vice nez jednu vetu /v primarnim klici/ tak to hodi update failed. Pokud je edituji jednotlive tak to jde bez problemu. Problem je v CustomIBDataSet, pri ApplyUpdates se nepouziva hodnoty z bufferu ale na TField OldValue, ktere je ale jiz spatne. Presneji prvni zaznam projde ostatni ne. Pokud pouzivam TIBDataSet tak to funguje dobre, ale tam je opacny problem. Kdyz vypnu cache tak to opet nefunguje.

Druha otazka je jestli ma smysl nastavovat ProviderFlag u IB komponent. Mate s tim nekdo nejake zkusenosti?

Diky moc za jakoukoli inspiraci - asi z toho zesilim.

P.S. Neni nekde nejaka statistika jak lidi z konference pristupuji na Interbase???

Cau Tomas


SMTP

[*] raul.endymion(zv)ns1.infima(tec)cz - 7.8.2000 11:07:12

Potreboval bych sehnat komponentu/knihovnu, ktera podporuje synchronni
SMTP. Pisu konzolovou aplikaci(w/o events) a proto bych rad napriklad
neco takovehoto..

begin
SMTP.xxx; {definice vsech moznych parametru}
SMTP.Send;
repeat
until SMTP.status <> 0;
case SMTP.Status of
1 : {Error};
2 : {OK};
end;
end;

Proste neco takovehoto nevite o necem ?

Raul Endymion

SMTP

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 7.8.2000 11:20:37

presne na tohle jsem napsal Synapsi... rekl bych, ze tam je
obsluha jeste jednodusi, nez si sa predstavujes. ;-)

http://www.mlp(tec)cz/space/gebauerl/synapse/

> Potreboval bych sehnat komponentu/knihovnu, ktera podporuje synchronni
> SMTP. Pisu konzolovou aplikaci(w/o events) a proto bych rad napriklad
> neco takovehoto..
>
> begin
> SMTP.xxx; {definice vsech moznych parametru}
> SMTP.Send;
> repeat
> until SMTP.status <> 0;
> case SMTP.Status of
> 1 : {Error};
> 2 : {OK};
> end;
> end;
>
> Proste neco takovehoto nevite o necem ?
>
> Raul Endymion


Louci se Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.mlp(tec)cz/space/gebauerl/synapse - Synapse Delphi TCP/IP Library


Komponenta XML

[*] Str�n�k Franti�ek <FStranik(zv)cpoj(tec)cz> - 7.8.2000 11:27:47

V�en� p��tel� ,
Nev�te n�kdo o voln� komponent� pro pr�ci s XML soubory ?
Za zpr�vu p�edem d�kuji.
F.Str�n�k


Instalator a ASM

[*] Milan ��ek - 7.8.2000 11:36:58

ahoj,
mohl by nekdo doporucit nejakou utilitu (komponenty), pomoci ktere se da
vytvorit instalacni program - jen 1exe, tak abych si mohl pri instalaci
zobrazit treba vlastni Form? Koukal sem na torry, ale vetsina je jen do D3
:-(. Jde mi o verzi do D4 a D5, free nebo shareware.

a pak este jeden - tyka se orientace v asm kodu :-)
mam disasembl. program, velikosti asi 700kB, ve kterem potrebuji najit
urcitou cast kodu, ktera nejakym zpusobem (vzorcem) koduje vystupni data. Na
krokovani to asi neni...
nasel by se nekdo, kdo by pomohl a vysvetlil (radeji pres soukromy mail).
Diky

S pozdravem Milan Cizek, amatersky programator, D4 CS
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637

SQL - Pocty skupin

[*] Holecek Radek<holecekr(zv)upfm(tec)cz> - 7.8.2000 11:49:38


>ano chcem zistit pocty skupin teda by mi malo vyjst 8

Zkus pouzit tento select:
SELECT COUNT(DISTINCT IDVT) FROM PRMSPR

S pozdravem
Radek


TOLEServer

[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 7.8.2000 12:09:51

Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Strilim od boku:
1: Pres Clipboard ?
2: Jestlize myslis pod pojmem exportovat zapsat retezec do bunky, tak se
podivej do helpu k VBA, je tam kompletni popis objektu Excelu,
mel bys pouzit objektu Range a Cells.

Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ivan Kozak
Sent: Monday, August 07, 2000 7:42 PM
To: Delphi
Subject: TOLEServer


Ahojte. Pracoval uz niekto z Vas s komponentami Servers pre spolupracu s
MSWord a MSExcel?
Otazka1 : ako mozem dostat z Wordu PLNY (teda vcitane fontov a ich
velkosti) text do svojho programu (a pripadne ho ulozit do BLOBu?).
Otazka2: Ako mozem exportovat textove retazce do Excelu? Podal navodu v
knihe (Svoboda: Prechazime na Delphi 5 str.147).mi to nefunguje.

Dik za pripadnu odpoved na vykrik do tmy:-)))
Ivan Kozak


Interbase komponenty a cache problem

[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 07.8.2000 12:12:27


veselyt(zv)atlas(tec)cz wrote:
> P.S. Neni nekde nejaka statistika jak lidi z konference pristupuji na Interbase???

pochybuji, ale myslim, ze by byla vhodna - pridejte se

ja pouzivam IBObjects, nic jineho jsem vlastne ani nepouzival

Tom

=================================

Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic

e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446


Komponenta XML

[*] Daniel Km�nek <kminek(zv)mite(tec)cz> - 7.8.2000 12:15:27

Jedna je na


http://www.icom-dv.de/download/uk_download.php3

S pozdravem
Daniel Km�nek

-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] za u�ivatele
Str�n�k Franti�ek
Odesl�no: 7. srpna 2000 11:28
Komu: Delphi
P�edm�t: Komponenta XML

V�en� p��tel� ,
Nev�te n�kdo o voln� komponent� pro pr�ci s XML soubory ?
Za zpr�vu p�edem d�kuji.
F.Str�n�k


Jmena vsech uzivatelu v siti

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.8.2000 12:22:43

> Ahoj,
>
> nepsal jste nekdo nahodou funkci ci komponentu, ktera zjistuje jmena vsech
> uzivatelu pripojenych v siti? Momentalne se s tim morduju, ale jsou s tim
> problemy. Diky

Bohuzel Ti s tim nepomozu ale o podpobnou problematiku se zajimam.
Potreboval bych zjistit jmena useru (! ne hostname !) z IP adresy -
aplikace zapisuje do logfilu akce uzivatelu a hodilo by se k IP adrese
pripisovat i jmeno prihlaseneho uzivatele na zdrojove stanici. Nektere
produkty od MS (MS Proxy) to delaji. Doposud jsem ale nenarazil na zadne
voditko, takze nevim ani kde zacit. Zrejme se musim ptat serveru na jmena,
ale co kdyz na serveru nebezim? Co kdyz zadny server (mysleno WinNT) v siti
neni?

Muzes poslat alespon jmena funkci WinAPI, ktere pouzivas?

Zdravi
Dalibor Toman
dtoman(zv)fortech(tec)cz

Jak programove zavrit MesageBox

[*] Pavel Bare� <bares(zv)atoll(tec)cz> - 7.8.2000 12:45:16

Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj

Poradil by mi nekdo prosim jak programove zavrit MessageBox ?

Jedna se asi o toto:
Mam modal okno a z neho zavolam MessageBox s dotazem na ukonceni (Ano Ne)
Zatim co se uzivatel rozhoduj vyprsi casovy limit a zobrazi se dalsi MessageBox s informaci Vyprsel casovy limit.
Po stisknuti OK potrebuji zavrit okno i s predchozim MessageBoxem, jenze standartne to funguje tak, ze se okno zavre az po odpovedi na prvni MB.

dekuji

Pavel Bares

SQL - pocet skupin

[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 7.8.2000 12:50:14

Zdravim,

ja teda delam pro MS SQL 7, ale tam bych zkusil udelat VIEW z uvedeno
selectu:
CREATE VIEW WrkList
AS
select idvt from prmspr group by idvt

a potom bych dal
select count(idvt) from WrkList

a ten mi vrati pocet skupin

Ten VIEW budes stejne asi potrebovat, protoze reprezentuje aktualni seznam
skupin, takze by vytvoreni VIEW mohla byt spise vyhoda, nez nevyhoda.

Tomas Bradle
t.bradle(zv)pvtnet(tec)cz


----- Original Message -----
From: Mari�n Goryl <goryl(zv)insdata.sk>
Subject: RE: SQL - pocet skupin


>
> >select idvt, count(idvt) from prmspr group by idvt ???
>
> toto zisti pocet viet pre jednotlive skupiny nie pocet skupin
>
> IDVT COUNT ( IDVT )
> 00000000000078041 54
> 00000000000078576 54
> 00000000000080854 54
> 00000000000197960 9
> 00000000000211438 6
> 00000000000211525 56
> 00000000000251056 6
> 00000000000257143 6
>
>
> >Resp. chces vedet kolik jich je v kazde skupine nebo ti jde o pocty tech
> >skupin?
>
> ano chcem zistit pocty skupin teda by mi malo vyjst 8
>
> >Zkus napsat nejake cvicne data at mam predstavu. Taky napis pro
> >jakou databazi to chces... ;-)
>
> DB2
>
>
>

Vyvolani chyby v MS SQL

[*] Ren� Otisk - 7.8.2000 12:55:44

HI,

D3, ODBCe, MS SQL7

Prosim o radu. Nemohu prijit na to, jak v ulozene procedure vyvolat error.
Zkousel jsem print (a zaznam ze sysmenssages), raiserror i (zv)(zv)error ale nic
se mi nezobrazi. V one ulozene procedure mohou nastat ruzne vyjimky
(duplicita unique polozek, key violation, check constr., nebo chybejici
foreign key). A ja bych potreboval po provedeni one procedury zavolat nejake
raiserror s parametrem (zv)(zv)error. Jde to nejak? Pokud prikazy provadim
sekvencne mimo proceduru, tak je to OK, nicmene, ze jo, transakce a vubec...

SMTP

[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 07.8.2000 13:02:49

Neco takoveho by nestacilo?
http://www.interlog.com/~tcharron/blat.html =========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================

>>> raul.endymion(zv)ns1.infima(tec)cz 7.8.2000 11:07:12 >>>
Potreboval bych sehnat komponentu/knihovnu, ktera podporuje synchronni
SMTP. Pisu konzolovou aplikaci(w/o events) a proto bych rad napriklad
neco takovehoto..

begin
SMTP.xxx; {definice vsech moznych parametru}
SMTP.Send;
repeat
until SMTP.status <> 0;
case SMTP.Status of
1 : {Error};
2 : {OK};
end;
end;

Proste neco takovehoto nevite o necem ?

Raul Endymion

Instalator a ASM

[*] Ren� Otisk - 7.8.2000 13:02:11

ad 1

Tohle umi ScriptMaker s InnoSetupem. Pred par dny to tady probehlo...

Sroub
> ahoj,
> mohl by nekdo doporucit nejakou utilitu (komponenty), pomoci ktere se da
> vytvorit instalacni program - jen 1exe, tak abych si mohl pri instalaci
> zobrazit treba vlastni Form? Koukal sem na torry, ale vetsina je jen do D3
> :-(. Jde mi o verzi do D4 a D5, free nebo shareware.
>
> a pak este jeden - tyka se orientace v asm kodu :-)
> mam disasembl. program, velikosti asi 700kB, ve kterem potrebuji najit
> urcitou cast kodu, ktera nejakym zpusobem (vzorcem) koduje vystupni data.
Na
> krokovani to asi neni...
> nasel by se nekdo, kdo by pomohl a vysvetlil (radeji pres soukromy mail).
> Diky
>
> S pozdravem Milan Cizek, amatersky programator, D4 CS
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>

SQL - pocet skupin

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.8.2000 13:05:23

Zkus:
select distinct IDVT from prmspr, bez toho group
presmeruj to do nejake tabulky a potom se zeptej na pocet zaznamu v te tabul
ce

Milan Tomes

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Mari�n Goryl
> Sent: Monday, August 07, 2000 9:35 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: SQL - pocet skupin
>
>
>
> >select idvt, count(idvt) from prmspr group by idvt ???
>
> toto zisti pocet viet pre jednotlive skupiny nie pocet skupin
>
> IDVT COUNT ( IDVT )
> 00000000000078041 54
> 00000000000078576 54
> 00000000000080854 54
> 00000000000197960 9
> 00000000000211438 6
> 00000000000211525 56
> 00000000000251056 6
> 00000000000257143 6
>
>
> >Resp. chces vedet kolik jich je v kazde skupine nebo ti jde o pocty tech
> >skupin?
>
> ano chcem zistit pocty skupin teda by mi malo vyjst 8
>
> >Zkus napsat nejake cvicne data at mam predstavu. Taky napis pro
> >jakou databazi to chces... ;-)
>
> DB2
>

SQL - pocet skupin

[*] Mari�n Goryl <goryl(zv)insdata.sk> - 7.8.2000 13:05:22

>select count(idvt) as idvt from prmspr group by idvt

>Zkus to a uvidis co z toho bude

AS len premenuje stlpec vo vyslednom selecte

IDVT
54
54
54
9
6
56
6
6


pocet skupin je 8

Qreport - titulni strana

[*] Als <Als.FofrsIT(zv)worldonline(tec)cz> - 7.8.2000 13:43:11

Ahoj,

Nepomohl by mi nekdo vyresit problem jak udelat v Qreportu sestavu
ktera ma nejakou pevnou titulni stranu a dalsi strany jako beznou
sestavu tvorenou z dat ? Zatim to resim pomoci komponenty
TQRCompositeReport, ale na nekterych tiskarnach mi to nefunguje. Slo
by to udelat primo v jednom Qreportu ?

--
Za odpoved velice dekuji.

Jiri Kubelka ��� Als.FofrsIT(zv)worldonline(tec)cz ���

Zjisteni handle

[*] Kuzelka Filip <kuzelka(zv)access-it(tec)cz> - 07.8.2000 08:01:00 -0400

Ahoj,
opet jeden dotaz, nevite nekdo, jakym dalsim, nebo spolehlivym
zpusobem zjistit handle na bezici aplikaci (nez je FindWindow) ?
Jedna se o to, ze beznou aplikaci "chytim", ale pokud (alespon
to tak vypada) je spustena nejaka uloha pres runtime, napr.
progress.exe pokus.fp ... tak mi to nemuze FindWindow najit.
Nebo alespon jestli nekdo nevi, jakym zpusobem presne
FindWindow pracuje a co mam presne v tomto propade hledat ?

dekuji,
Filip Kuzelka

Instalator a ASM

[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 7.8.2000 14:08:25

Existuje Inno Setup, je free vcetne zdroju, tak se v tom muzes strachat.

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7

tel. +420-2-3337 3855
+420-2-2431 4538
*************************************


-----Original Message-----
From: Milan ��ek [mailto:cizek.milan(zv)seznam(tec)cz]
Sent: Monday, August 07, 2000 11:37 AM
To: Delphi konference
Subject: Instalator a ASM


ahoj,
mohl by nekdo doporucit nejakou utilitu (komponenty), pomoci ktere se da
vytvorit instalacni program - jen 1exe, tak abych si mohl pri instalaci
zobrazit treba vlastni Form? Koukal sem na torry, ale vetsina je jen do D3
:-(. Jde mi o verzi do D4 a D5, free nebo shareware.

a pak este jeden - tyka se orientace v asm kodu :-)
mam disasembl. program, velikosti asi 700kB, ve kterem potrebuji najit
urcitou cast kodu, ktera nejakym zpusobem (vzorcem) koduje vystupni data. Na
krokovani to asi neni...
nasel by se nekdo, kdo by pomohl a vysvetlil (radeji pres soukromy mail).
Diky

S pozdravem Milan Cizek, amatersky programator, D4 CS
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637


Instalator a ASM

[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.8.2000 14:14:33

From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>> mohl by nekdo doporucit nejakou utilitu (komponenty), pomoci ktere se da
> vytvorit instalacni program - jen 1exe, tak abych si mohl pri instalaci
> zobrazit treba vlastni Form? Koukal sem na torry, ale vetsina je jen do D3
> :-(. Jde mi o verzi do D4 a D5, free nebo shareware.

Jednoduchy, snadno upravitelny instalator je na
http://www.sinea(tec)cz/sinea.asp?src=download
jako install.zip, jinak v archivu budou i jine odkazy.> mam disasembl. program, velikosti asi 700kB, ve kterem potrebuji najit
> urcitou cast kodu, ktera nejakym zpusobem (vzorcem) koduje vystupni data.
Na
> krokovani to asi neni...

700kB je prilis moc.

Vaclav Krmela


Jmena vsech uzivatelu v siti

[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 7.8.2000 14:24:49

Nevim, jestli je to to, co potrebujes (zadna IP adresa tu neni), ale snad to
k necemu bude:

function GetUserName : String;
var len : DWORD;
begin
len := 0;
WNetGetUser (nil, nil, len);
SetLength (Result, len);
if WNetGetUser (nil, PChar (Result), len) = NO_ERROR then
Result := StrPas (PChar (Result))
else
Result := '';
end;

Trochu rozsahlejsi povidani a zdrojaky posilam na soukromy mail.

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7

tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
Sent: Monday, August 07, 2000 12:23 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Jmena vsech uzivatelu v siti


> Ahoj,
>
> nepsal jste nekdo nahodou funkci ci komponentu, ktera zjistuje jmena vsech
> uzivatelu pripojenych v siti? Momentalne se s tim morduju, ale jsou s tim
> problemy. Diky

Bohuzel Ti s tim nepomozu ale o podpobnou problematiku se zajimam.
Potreboval bych zjistit jmena useru (! ne hostname !) z IP adresy -
aplikace zapisuje do logfilu akce uzivatelu a hodilo by se k IP adrese
pripisovat i jmeno prihlaseneho uzivatele na zdrojove stanici. Nektere
produkty od MS (MS Proxy) to delaji. Doposud jsem ale nenarazil na zadne
voditko, takze nevim ani kde zacit. Zrejme se musim ptat serveru na jmena,
ale co kdyz na serveru nebezim? Co kdyz zadny server (mysleno WinNT) v siti
neni?

Muzes poslat alespon jmena funkci WinAPI, ktere pouzivas?

Zdravi
Dalibor Toman
dtoman(zv)fortech(tec)cz


Program " Stay on TOP"

[*] Str�n�k Franti�ek <FStranik(zv)cpoj(tec)cz> - 7.8.2000 14:29:19

Vazeni pratele,

Prosim o radu, jak zajistim (zrejme API funkci), aby muj program-(dialogov�
okno) - byl po spusteni neust�le navrchu jako neaktivni (pripraveno pro
klik) ze v�ech prave bezicich aplikaci.
Priklad : spustim muj program, spustim nejaky avi soubor p�es celou
obrazovku a muj program (okno) se ihned dostane p�ed video ale jako
neaktivni, pouze pripraveno prijmout prikaz, po jeho� vykonani se ihned
automaticky preda rizeni predtim aktivni aplikaci (napr. tomu avi spuboru).

P.S. samozrejme , ze moje okno ma nastavenou vlastnost StayOnTop.

Diky za kazdou radu i namet.


S pozdravem F.Stranik mail: FSTRANIK(zv)CPOJ.CZ


SQL - pocet skupin

[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 7.8.2000 14:30:33

A co takhle SELECT COUNT(DISTINCT IDVT) FROM PRMSPR. Takto se vybere
jedinecny seznam IDVT. Toto by melo byt podle standardniho SQL.

Jirka
----- P�vodn� zpr�va -----
Od: Milan Tome� <Milan.Tomes(zv)haida(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 07 August 2000 13:05
P�edm�t: RE: SQL - pocet skupin


> Zkus:
> select distinct IDVT from prmspr, bez toho group
> presmeruj to do nejake tabulky a potom se zeptej na pocet zaznamu v
te tabul
> ce
>
...
> > >Resp. chces vedet kolik jich je v kazde skupine nebo ti jde o
pocty tech
> > >skupin?
> >
> > ano chcem zistit pocty skupin teda by mi malo vyjst 8
> >

SQL - pocet skupin

[*] Als <Als.FofrsIT(zv)worldonline(tec)cz> - 7.8.2000 14:38:58

Ahoj,

Monday, August 07, 2000, 10:04:04 AM, you wrote:

>>
>> Ako zistit pocet skupin viet ziskanych pomocou nasledovneho selectu
>>
>> select idvt from prmspr group by idvt
>>
>> resp. co mam este doplnit do uvedeneho selectu aby mi to vyplulo
>> pozadovane
>> cislo?
>>


Zkus treba toto : select count(distinct(idvt)) from prmspr


Melo by to vybrat zaznamy s rozdilnou hodnotou idvt a udelat jejich
count. Takze vysledek je jen jedno cislo. Nevim co ale pouzivaz za
SQL server.


--
PS: D5 / Sybase ASA SQL

S pozdravem

Ji�� Kubelka ��� Als.FofrsIT(zv)worldonline(tec)cz ���

Odchyceni klaves komponentou

[*] labsystem(zv)atlas(tec)cz - 7.8.2000 16:11:58

Ahoj,
udelal jsem si potomka TDBGridu, ktery umoznuje inkrementalni prechod po zaznamech, ale mam nasledujici problem. Kdyz komponetu umistim na formular na kterem je tlacitko spustitelne pres klavesu, tak mi sice DBGrid prejde na zaznam zacinajici stisknutym znakem, ale taky se provede akce prirazena tlacitku.
Nevite nekdo prosim, jak se toho zbavit?

Diky

Michal Motalik


TCurrencyEdit and TDateEdit

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 7.8.2000 16:19:07

Zdravim.

Potreboval by som komponenty ktore by sa spravali ako v MS Visual FoxPro pre
cisla z desatinnou castou a datum.
Jedna sa o to aby som komponente urcil ze kolko ma mat celych a kolko
desatinnych miest. Pocas zadavania ak prekrocim pocet celych automaticky mi
prejde do desatinnych.

Za kazdy link alebo info vopred dakujem.


Roland;

SQL - pocet skupin (Zaver)

[*] Mari�n Goryl <goryl(zv)insdata.sk> - 7.8.2000 16:41:29


SELECT COUNT(DISTINCT IDVT) FROM PRMSPR. Autor(Jirka)
- vypise pocet skupin to co som potreboval, Dakujem :-))))

RIESENIA CEZ VIEW alebo PRESMEROVANIE
- tiez su mozne no, je potrebne vytvarat pohlady, presmerovania

SELECT count(idvt) AS idvt from prmspr group by idvt
- AS sluzi na premenovanie stlpca

Vsetkym dakujem za namety


Marian


SQL - pocet skupin

[*] mkotaska(zv)atlas(tec)cz - 7.8.2000 17:03:10

Ahoj,
neni duvod presmerovavat vystup do jine tabulky. Staci pouze napsat prikaz:

SELECT COUNT(DISTINCT idvt) FROM prmspr


Vysledek dotazu je pozadovanych 8.


-----Original Message-----
From: "owner-delphi-l(zv)fwd(tec)cz" <owner-delphi-l(zv)fwd(tec)cz> on behalf of "Milan Tome�" <Milan.Tomes(zv)haida(tec)cz>
Sent: Mon, 7 Aug 2000 13:05:23 +0200
To: "delphi-l(zv)fwd(tec)cz" <delphi-l(zv)fwd(tec)cz>
Subject: RE: SQL - pocet skupin

Zkus:
select distinct IDVT from prmspr, bez toho group
presmeruj to do nejake tabulky a potom se zeptej na pocet zaznamu v te tabul
ce

Milan Tomes

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Mari�n Goryl
> Sent: Monday, August 07, 2000 9:35 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: SQL - pocet skupin
>
>
>
> >select idvt, count(idvt) from prmspr group by idvt ???
>
> toto zisti pocet viet pre jednotlive skupiny nie pocet skupin
>
> IDVT COUNT ( IDVT )
> 00000000000078041 54
> 00000000000078576 54
> 00000000000080854 54
> 00000000000197960 9
> 00000000000211438 6
> 00000000000211525 56
> 00000000000251056 6
> 00000000000257143 6
>
>
> >Resp. chces vedet kolik jich je v kazde skupine nebo ti jde o pocty tech
> >skupin?
>
> ano chcem zistit pocty skupin teda by mi malo vyjst 8
>
> >Zkus napsat nejake cvicne data at mam predstavu. Taky napis pro
> >jakou databazi to chces... ;-)
>
> DB2
>

Vyvolani chyby v MS SQL

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.8.2000 17:17:12

On 7 Aug 2000, at 12:55, Ren� Otisk wrote:

> D3, ODBCe, MS SQL7
>
> Prosim o radu. Nemohu prijit na to, jak v ulozene procedure vyvolat
> error. Zkousel jsem print (a zaznam ze sysmenssages), raiserror i
> (zv)(zv)error ale nic se mi nezobrazi.

Ja davam do ulozene procedury return nn, kde nn je nejake cislo.
To potom vytahnu z navratoveho parametru a podle cisla zobrazim
prislusnou chybu nebo pokracuji dal.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


TDatasetAction

[*] Jan Naiser <tua(zv)wo(tec)cz> - 7.8.2000 19:03:49

Preji pekny den,

(D5)
chtel bych zmenit TDatasetActions tak, aby standartne (pri vlozeni do
ActionListu) zobrazovaly ceske Captions a ceske Hints. Pokud si ale vytvorim
sveho potomka jednotlivych akci (First, Prior, ...), jak tam dostanu ty
ceske texty. Zatim se mi nepodarilo najit, odkud si tyto popisy standartne
bere. Jen na okraj - a odkud si tyto DatasetActions berou Images?

Diky za namet.

Honza.

TOLEServer

[*] Ivan Kozak <kozaki(zv)atlas(tec)cz> - 7.8.2000 10:41:40 -0700

Ahojte. Pracoval uz niekto z Vas s komponentami Servers pre spolupracu s MSWord a MSExcel?
Otazka1 : ako mozem dostat z Wordu PLNY (teda vcitane fontov a ich velkosti) text do svojho programu (a pripadne ho ulozit do BLOBu?).
Otazka2: Ako mozem exportovat textove retazce do Excelu? Podal navodu v knihe (Svoboda: Prechazime na Delphi 5 str.147).mi to nefunguje.

Dik za pripadnu odpoved na vykrik do tmy:-)))
Ivan Kozak

Odchyceni klaves komponentou

[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.8.2000 20:02:50

Musel bys po provedeni prechodu na z�znam priradit do Key hodnotu 0.

Jan Fiala

----- Original Message -----
From: <labsystem(zv)atlas(tec)cz>> Ahoj,
> udelal jsem si potomka TDBGridu, ktery umoznuje inkrementalni
prechod po zaznamech, ale mam nasledujici problem. Kdyz komponetu
umistim na formular na kterem je tlacitko spustitelne pres klavesu,
tak mi sice DBGrid prejde na zaznam zacinajici stisknutym znakem, ale
taky se provede akce prirazena tlacitku.
> Nevite nekdo prosim, jak se toho zbavit?
>
> Diky
>
> Michal Motalik
>

Zpomaleni

[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 7.8.2000 20:41:00

Zdravim!
Mam problem se spomalenim cyklu. V cyklu zvysuji o jednicku komponentu ProgressBar. Na tomto prirazeni to nejspis nejdele stoji, protoze kdyz pustim cykl bez tohoto prirazeni tak 24 009 bajtu velky soubour trva zasifrovat 1.67 sekundy. Pokud tam vsak prirazuji tak to trva 3.61 sekundy. Klidne bych to vynechal, ale kdyz se bude sifrovat 234kB velky soubor tak to uz trva znatelne dlouho a ProgressBar se vyuzije - jenze prodlouzeni je znatelne vetsi. Dalsi problem je v tom, ze kdyz pouziju fci GetFileSize z knihovny FmxUtils (normalni FileSize vraci spatne vysledky a z helpu jsem se dozvedel, ze se nema pouzit na textove soubory) tak se samozrejme spomali cykl - jak uz jsem psal - ale sifrovani skonci driv. Pritom pri desifrovani souboru je soubor stejne veliky jako original (i ten sifrovany soubor je stejne veliky). Ze by tato fce ukazovala spatnou hodnotu? Jak to napravit?

Predem dekuji.

S pozdravem Martin Pesek, amatersky programator.

===============================
[ Martin Pe�ek
[ pesek.martin(zv)mymail(tec)cz
[ http://gm.fbi(tec)cz
[ http://markm.fbi(tec)cz

[ Info
[ Delphi 5 Ent., W98
===============================

IBEvents

[*] L. ZITA <konference(zv)sales(tec)cz> - 7.8.2000 21:35:10

Zdravim vsechny.

Poradte prosim jak pouzivat %SUBJ%.
Vubec se mi to nedari rozchodit.


Predem velky dik
Ludek


---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000


Qreport - titulni strana

[*] p. Jirman <jim.design(zv)iol(tec)cz> - 7.8.2000 22:47:07

Ahoj,

co takhle komponenta TQRBand typu rbTitle

M.Jirman

----- Original Message -----
From: "Als" <Als.FofrsIT(zv)worldonline(tec)cz>


Ahoj,

Nepomohl by mi nekdo vyresit problem jak udelat v Qreportu sestavu
ktera ma nejakou pevnou titulni stranu a dalsi strany jako beznou
sestavu tvorenou z dat ? Zatim to resim pomoci komponenty
TQRCompositeReport, ale na nekterych tiskarnach mi to nefunguje. Slo
by to udelat primo v jednom Qreportu ?

--
Za odpoved velice dekuji.

Jiri Kubelka ��� Als.FofrsIT(zv)worldonline(tec)cz ���

Instalacia IB6 do WinLinuxu2000

[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 8.8.2000 01:07:19

Zdravim.

Rozbalim TAR subor a ked spustim INSTALL tak mi vypise "Could not execute
program"

Preco ?

Roland.

Outlook

[*] Radek Janu� <janus(zv)foresta(tec)cz> - 8.8.2000 07:33:32

Hi pot�eboval bych poradit , cht�l bych si ud�lat vlastn� komponentu
pos�l�n� mailem a to bu� Outlookem nebo Exchangem .
Zkou�el jsem to d�lat p�es OLE (CreateOLEObject('Outlook.Application') atd
...)
ale to mi nefungovalo - jakmile jsem cht�l objekt zalo�it tak to vyhodilo
hl�ku
"Nespr�vn� �et�zec t��dy" . Zkou��m to i p�es API n�co jsem u� ud�lal ale
jak to jde jednodu�e ?

D�k za odpov�� Radek

Interbase komponenty a cache problem

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.8.2000 07:50:31

> > P.S. Neni nekde nejaka statistika jak lidi z konference pristupuji
> > na Interbase???
>
> pochybuji, ale myslim, ze by byla vhodna - pridejte se
>
> ja pouzivam IBObjects, nic jineho jsem vlastne ani nepouzival
>
> Tom

Ja s IB teprve zacinam, ale na zaklade zbezneho pohledu a
laickeho srovnani se mi taky daleko vice libi IBObjects nez
IBExpress.

Mam ale dotazek: v IBObjects jsou v zasade dve sady komponent,
jedna patrne vychazi z TDataset, druha asi ne. Je v nich nejaky
prakticky rozdil? (na rychlost prochazeni datasetem se mi zdaly
byt stejne).

David


Instalacia IB6 do WinLinuxu2000

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.8.2000 07:51:09

Nejsou nastavena spatne prava ? (r-x)
Nebo jeste-neni spatne vlastnik:skupina ?

BTW: Co je to WinLinux ? Je to Linux nebo nejaka
Win aplikace, ktera vypada nebo emuluje Linux ?
D.

> ----------
> From: Roland Tur> �an (RoTurSoft)[SMTP:rotursoft(zv)nextra.sk]
>
> Rozbalim TAR subor a ked spustim INSTALL tak mi vypise "Could not execute
> program"
>
>

Zpomaleni

[*] Jan Cejka <jan.cejka(zv)mensa(tec)cz> - 8.8.2000 07:54:13

A co treba zvysovat po desiti o desitku? To by znamenalo cca 10x mensi
zpomaleni.

--

Monday, August 07, 2000 v 8:41:00 PM, Martin Pe�ek pise:

> V cyklu zvysuji o jednicku komponentu ProgressBar.


--
This is Linux Country. On a quiet night, you can hear Windows reboot!
--
S pozdravem,
Jan Cejka mailto:jan.cejka(zv)mensa(tec)cz

Zpomaleni

[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 8.8.2000 08:00:50

Ahoj,

ad 1.
zkus nenastavovat pozici ProgressBaru v kazdem cyklu - pokud dopredu vis,
kolik cyklu probehne, neni problem dopredu nastavit rozliseni. Ja to
vetsinou delam asi takhle:

MyStep := (ProgressBar. Max - ProgressBar.Min) div 1000; // pujde po
pixelech na vetsine televizi
ProgressBar.Position := Min;

for i := Min to Max do
begin
if (i mod MyStep) = 0 then ProgressBar.Position := i;
// tady udelam, co potrebuji
end;
ProgressBar.Position := Max;

ad 2.
Nevim, jestli jsem to spravne pochopil, ale pokud nemusis soubor otevirat
jako textovy, pouzij file of byte, pak bude FileSize O.K.


P.S. Doufam, ze jsem si nespletl TProgressBar a TGauge :-)))
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz <mailto:jiri.f(zv)avizo(tec)cz>

Zdravim!
Mam problem se spomalenim cyklu. V cyklu zvysuji o jednicku komponentu
ProgressBar. Na tomto prirazeni to nejspis nejdele stoji, protoze kdyz
pustim cykl bez tohoto prirazeni tak 24 009 bajtu velky soubour trva
zasifrovat 1.67 sekundy. Pokud tam vsak prirazuji tak to trva 3.61 sekundy.
Klidne bych to vynechal, ale kdyz se bude sifrovat 234kB velky soubor tak to
uz trva znatelne dlouho a ProgressBar se vyuzije - jenze prodlouzeni je
znatelne vetsi. Dalsi problem je v tom, ze kdyz pouziju fci GetFileSize z
knihovny FmxUtils (normalni FileSize vraci spatne vysledky a z helpu jsem se
dozvedel, ze se nema pouzit na textove soubory) tak se samozrejme spomali
cykl - jak uz jsem psal - ale sifrovani skonci driv. Pritom pri desifrovani
souboru je soubor stejne veliky jako original (i ten sifrovany soubor je
stejne veliky). Ze by tato fce ukazovala spatnou hodnotu? Jak to napravit?

Barvy u TLabel a TDBText

[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 8.8.2000 08:07:45

Ahoj,

narazil jsem na takovyto problem: nedari se mi trvale nastavit barvu
(property Color) u komponent TLabel a TDBText na hodnotu clWindow. V
designeru to samozrejme jde, ale v runtime a po ulozeni se mi barva zmeni na
clBtnFace. Pokud se na form podivam jako na text, polozka pro nastaveni
barvy chybi, pritom ParentColor je false. Nepomuze to tam ani napsat rucne -
po prepnuti do formu a zpet do textu nastaveni barvy chybi. Je to chyba nebo
nejake zasr... standardni chovani ? A nevite nekdo, jak to obejit, abych v
kazdem FormCreate nemusel nastavovat barvu labelu a DBTextu rucne (pak to
samozrejme funguje).

Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

Driver pro fiktivni jednotku

[*] Milan Bursik <delphi(zv)advnet(tec)cz> - 8.8.2000 08:15:48

Zdravim vsechny,

nemate nekdo povedomost, kde se da sehnat nejaka ukazka nebo popis jak
udelat v D5, aby Windows 95/98 popr. NT v pruzkumniku videli napr. jednotku
N:, kterou by obsluhoval muj program? Napr. jednotka N: je namapovana jako
pristup pres ftp na nejaky ftp server.

Dik za kazdou radu

Milan


Vyvolani chyby v MS SQL

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.8.2000 08:19:00

> D3, ODBCe, MS SQL7
>
> Prosim o radu. Nemohu prijit na to, jak v ulozene procedure vyvolat
> error. Zkousel jsem print (a zaznam ze sysmenssages), raiserror i
> (zv)(zv)error ale nic se mi nezobrazi. V one ulozene procedure mohou nastat
> ruzne vyjimky (duplicita unique polozek, key violation, check constr.,
> nebo chybejici foreign key). A ja bych potreboval po provedeni one
> procedury zavolat nejake raiserror s parametrem (zv)(zv)error. Jde to nejak?
> Pokud prikazy provadim sekvencne mimo proceduru, tak je to OK,
> nicmene, ze jo, transakce a vubec...
>
Ja uprimne receno zatim jeste nevim, co si mam o raiserror
myslet. Kdyz jsem ho sveho casu zkousel (v triggeru), tak se
jakoby ignoroval, pokud mu nepredchazel nejaky SQL prikaz. Delal
jsem tedy neco takoveho:

begin tran
insert into ... (nejaky jednoduchy nesmyslny insert)
rollback tran (zruseni vysledku toho insertu)
raiserror(55000, 15, 1)

ta transakce tam je asi zbytecna, pokud insert vklada do nejake
jinak nevyuzivane tabulky.

Tohle fungovalo dobre. Asi po tydnu jsem ale zjistitl, ze nahle uz
funguje i samotny raiserror. Je to pro me zahada, kterou si neumim
vysvetlit.

K tomu posilani erroru z procedury. Prijde na to, jak to chces -
mam pocit, ze bezne chyby sice nastavi (zv)(zv)error, ale provadeni
procedury normalne pokracuje, takze pokud by chyb nastalo vice,
na konci procedury bude (zv)(zv)error odpovidat jen posledni z nich.
Podle Mistrovstvi v MSSQL serveru 6.5 nepomuze ani pouzivani
transakci, protoze nefatalni chyby neukonci transakci (to musi
uzivatel stale koukat na (zv)(zv)error a podle nej eventualne volat
rollback.
Zbyskovo reseni s navratovymi parametry umozni proceduru
vlastne kdykoli prerusit. Povazoval bych je v tuto chvili za
spolehlivejsi nez raiserror, nicmene znamena to po kazdem volani
procedury testovat, zda a jaka chyba nastala.

David


Zpomaleni

[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 8.8.2000 08:33:22

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,
je podivne, ze sifrovani tak maleho souboru trva tak dlouho. Sifroval jsem
bezne soubory s velikosti kolem 0.5 MB a urcite to netrvalo snad ani
sekundu. Bylo to sice v C, ale Delphi zase o tolik pomalejsi nejsou. Asi to
bude neco neefektivniho v tvem algoritmu. Ale s tim ProgressBarem se to da
osidit tak, ze ho nebudes zvetsovat po jedne, ale treba po deseti, ovsem az
po odpovidajicim useku.

Pro ilustraci kousek kodu, kde se hodnota zvetsuje po 5% :

if (m Caption <> nil) and (Total <> 0) then
begin
if round(Actual/Total*100)mod 5 = 0 then
begin
if (m ProgressBar <> nil) then
m ProgressBar.Position := Actual;
m Caption.Caption:=IntToStr(round(Actual/Total*100))+'%';
Application.ProcessMessages;
end;
end;

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 3, Praha 7

tel. +420-2-3337 3855
+420-2-2431 4538
*************************************

-----Original Message-----
From: Martin Pe�ek [mailto:pesek.martin(zv)mymail(tec)cz]
Sent: Monday, August 07, 2000 8:41 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Zpomaleni


Zdravim!
Mam problem se spomalenim cyklu. V cyklu zvysuji o jednicku komponentu
ProgressBar. Na tomto prirazeni to nejspis nejdele stoji, protoze kdyz
pustim cykl bez tohoto prirazeni tak 24 009 bajtu velky soubour trva
zasifrovat 1.67 sekundy. Pokud tam vsak prirazuji tak to trva 3.61 sekundy.
Klidne bych to vynechal, ale kdyz se bude sifrovat 234kB velky soubor tak to
uz trva znatelne dlouho a ProgressBar se vyuzije - jenze prodlouzeni je
znatelne vetsi. Dalsi problem je v tom, ze kdyz pouziju fci GetFileSize z
knihovny FmxUtils (normalni FileSize vraci spatne vysledky a z helpu jsem se
dozvedel, ze se nema pouzit na textove soubory) tak se samozrejme spomali
cykl - jak uz jsem psal - ale sifrovani skonci driv. Pritom pri desifrovani
souboru je soubor stejne veliky jako original (i ten sifrovany soubor je
stejne veliky). Ze by tato fce ukazovala spatnou hodnotu? Jak to napravit?

Predem dekuji.

S pozdravem Martin Pesek, amatersky programator.

===============================
[ Martin Pe�ek
[ pesek.martin(zv)mymail(tec)cz <mailto:pesek.martin(zv)mymail(tec)cz>
[ http://gm.fbi(tec)cz <http://gm.fbi(tec)cz>
[ http://markm.fbi(tec)cz <http://markm.fbi(tec)cz>

[ Info
[ Delphi 5 Ent., W98
===============================

Zpomaleni

[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 8.8.2000 08:44:13

Na prvni cast Ti nedokazu odpovedet, jedine co me napada je, jestli nemenis hodnotu ProgressBaru i tehdy, kdyz se nemusi. Jinak receno, zkus ho zmenit napr. max 100-krat za celou dobu (tj. pri souboru 24000 bajtu pri kazdem 240. bajtu), jinak se vzdy znovu pocita vsechno, co ProgressBar potrebuje na spravne vykresleni.
Na druhou cast: Pokud FileSize pouzivas na zjisteni velikosti puvodniho souboru, tak to udelej pred cyklem a je jedno, kterou funkci pouzijes. Dale tuto hodnotu dej do promenne a tu pouzij. Toto vsak predpokladam, ze tak mas. No a velikost Tebou vytvoreneho souboru snad dokazes spocitat bez toho FileSize, ne? Staci pocitat sifrovane bajty + u textovych souboru za kazdy radek 2 znaky (CR a LF), pokud tam das writeln.
Jinak Filesize muzes pouzit i na textovy soubor, ale zadeklaruj ho napr. jako File of Char do druhe promenne a pres ni muzes zjistovat velikost.

Jirka

----- P�vodn� zpr�va -----
Od: Martin Pe�ek
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 07 August 2000 20:41
P�edm�t: Zpomaleni


Zdravim!
Mam problem se spomalenim cyklu. V cyklu zvysuji o jednicku komponentu ProgressBar. Na tomto prirazeni to nejspis nejdele stoji, protoze kdyz pustim cykl bez tohoto prirazeni tak 24 009 bajtu velky soubour trva zasifrovat 1.67 sekundy. Pokud tam vsak prirazuji tak to trva 3.61 sekundy. Klidne bych to vynechal, ale kdyz se bude sifrovat 234kB velky soubor tak to uz trva znatelne dlouho a ProgressBar se vyuzije - jenze prodlouzeni je znatelne vetsi. Dalsi problem je v tom, ze kdyz pouziju fci GetFileSize z knihovny FmxUtils (normalni FileSize vraci spatne vysledky a z helpu jsem se dozvedel, ze se nema pouzit na textove soubory) tak se samozrejme spomali cykl - jak uz jsem psal - ale sifrovani skonci driv. Pritom pri desifrovani souboru je soubor stejne veliky jako original (i ten sifrovany soubor je stejne veliky). Ze by tato fce ukazovala spatnou hodnotu? Jak to napravit?

Predem dekuji.

S pozdravem Martin Pesek, amatersky programator.

===============================
[ Martin Pe�ek
[ pesek.martin(zv)mymail(tec)cz
[ http://gm.fbi(tec)cz
[ http://markm.fbi(tec)cz

[ Info
[ Delphi 5 Ent., W98
===============================

Animace palety

[*] jirpun(zv)post(tec)cz - 8.8.2000 08:54:08


Zdravim vsechny
a mam problem:

V demostracnim programu v jednoduchem technologickem schematu pouzivam pro animaci pohybu tekouci kapaliny animaci palety. Funguje to OK, ale jenom pri nastavenem rezimu 256 barev, v rezimu 65k nebo 16M barev uz ne.
Pouzivam funkce Win32 API (CreatePalette, AnimatePalette, ...) a podle Petzolda (kniha programov�n� ve Win32 API) to v techto rezimech fungovat ani nema.
Mam tedy dotaz: da se nejak jednoduse udelat animace v rezimu 65k nebo 16M barev ?

Dekuji predem za kazdou radu ci namet.

JiriP

(D3, Win 95/98) Kde rychle najdu nejblizsi lekarnu?
*** http://NAJDI.TO


Rezim hibernate

[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 8.8.2000 08:55:02

Ahoj,

podarilo se mi zprovoznit rezim Hibernate a Standby ve W2k - zaridila to
instalace servispacku 1. Ale proc nesla predtim, nevim...

Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz


> V BIOSu musi byt zapnuto APM (Advanced Power Management). V
> Power Options ve
> W2k musis povolit APM a pote se ti zobrazi Hibernate zalozka.
>
> Jinak kdyz jsem upgradoval z RC2 na final, tak mi Hibernate
> zmizel a objevil
> se mi az po ciste instalaci W2k ;-)
>
> Mac
>
> ----- Original Message -----
> From: "Foldyna Ji��" <jiri.f(zv)avizo(tec)cz>
>
> > omlouvam se za OT, ale potrebuji poradit. Mam MB Intel
> SE440BX-2, PIII-650
> > W2K Prof a potreboval bych zprovoznit rezim hibernate. V
> Power options se
> mi
> > zalozka Hibernate neukaze, at delam, co delam. V BIOSu mam
> zapnuty power
> > management, APMSTAT tvrdi, ze BIOS je ACPI. Nevite nekdo, co s tim,
> propadne
> > bych ocemil i nejaky odkaz (ale Intel a M$ KB uz jsem prosel :-().
>
>

Interbase komponenty a cache problem

[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 08.8.2000 09:11:53

Ahoj,

David Lebeda wrote:
>
> > > P.S. Neni nekde nejaka statistika jak lidi z konference pristupuji
> > > na Interbase???
> >
> > pochybuji, ale myslim, ze by byla vhodna - pridejte se
> >
> > ja pouzivam IBObjects, nic jineho jsem vlastne ani nepouzival
> >
> > Tom
>
> Ja s IB teprve zacinam, ale na zaklade zbezneho pohledu a
> laickeho srovnani se mi taky daleko vice libi IBObjects nez
> IBExpress.
>
> Mam ale dotazek: v IBObjects jsou v zasade dve sady komponent,
> jedna patrne vychazi z TDataset, druha asi ne. Je v nich nejaky
> prakticky rozdil? (na rychlost prochazeni datasetem se mi zdaly
> byt stejne).

Protoze IBO jsou k mani od dob Delphi2 (a i nadale jsou pod nimi
pouzitelne), nemaji puvodni architekturu zalozenu na TDataSet predkovi,
ale na necem proprietarnim. Dnesni TDataSet potomci z rodiny IBO jsou
jen obalem okolo puvodnich IBObjects kvuli propojitelnosti s norm.
data-aware komponentami. Avsak nejen komponenty a-la dataset jsou
soucasti baliku IBObjects. Je tam i mnoho spec. data-aware kontrolek,
ktere pracuji prave s temi specializovanymi datasety a dohromady umi
mnoho peknych veci ...

Tom

P.S. IBX maji svuj vyznam zejmena kvuli implementaci IB services -
backup, restore, instalace atd. Jinak maji mnoho co dohanet.

=================================

Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic

e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446


Vyjimky v Informixu

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 08.8.2000 10:02:47


Dobry den,

mate nekdo nejaky napad jak v Delphi 5 v klientske aplikaci
odchytit vyjimku, kterou vyhodi stored procedure
na serveru Informix (tusim 7).

Procedure je definovana takto:

create procedure odchod(p_cip char(10)) returning integer;
raise exception -746,0,"Chyba definovana programatorem";
return 0;
end procedure

Jinymi slovy, potrebuju nejake z BDE vysrotit
cislo -746 a chybovou hlasku. Pouzivam Delphi 5 Pro,
BDE, ODBC a Informix ODBC Driver 3.31.

TIA,

Ondrej Krajicek

--
----------------------------------------------------------
Ondrej Krajicek
Institute of Computer Science, Masaryk University Brno, CR
mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
----------------------------------------------------------


Zpomaleni

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.8.2000 11:11:35

On 7 Aug 2000, at 20:41, Martin Pe�ek wrote:

> Mam problem se spomalenim cyklu. V cyklu zvysuji o jednicku komponentu
> ProgressBar. Na tomto prirazeni to nejspis nejdele stoji, protoze kdyz
> pustim cykl bez tohoto prirazeni tak 24 009 bajtu velky soubour trva
> zasifrovat 1.67 sekundy. Pokud tam vsak prirazuji tak to trva 3.61
> sekundy. Klidne bych to vynechal, ale kdyz se bude sifrovat 234kB
> velky soubor tak to uz trva znatelne dlouho a ProgressBar se vyuzije -

Kazda zmena hodnoty ProgressBaru vyvola take jeho prekresleni,
coz samozrejme vyzaduje nejakou rezii. Je tedy vyhodnejsi zjistit
na zacatku velikost souboru, vydelit to nejakym rozumnym cislem
(napr. 20) a pri zpracovani pocitat, jak daleko jsem se dostal. A
stav ProgressBaru pak menit az po kazde zpracovane dvacetine.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Track CDaudio

[*] r.tesar(zv)atlas(tec)cz - 8.8.2000 11:36:21

Ahojte Delf�ni

Nev�te n�hodou n�kdo, jak zjist�m aktu�ln� hran� Track CD-audio ???

Dik za vsechny rady
Radek Tesar


Delphi a paralelni port

[*] Hejna Martin, PRAHA <hejnam(zv)praha(tec)comsoft(tec)cz> - 8.8.2000 11:51:59

Ahoj
potreboval bych vedet zda neexistuje nejaka komponenta pro ovladani
paralelniho portu (neco treba jako mscomm32.ocx pro seriak nebo podobne)
zkousel jsem hledan na inetu ale nic jsem nenasel.
Eventuelne jak ho lze ovladat pres API.

S pozdravem Martin Hejna


MS SQL

[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 8.8.2000 12:15:34

Dobry den,

nemohl by mi nekdo poradit jak se vyporadat s tim, ze nchar na MS SQL servru
doplni text mezerama a tim mi potom nefunguje FindFirst v ADO.
predem diky za kazdou radu


Vyjimky v Informixu

[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 8.8.2000 12:23:31

Ja to normalne pouzivam (Informix 5, D4, pristup pres ODBC nebo INFORMIX
Native Driver):

with Query do begin
try
Close;
Sql.Text := 'EXECUTE PROCEDURE Odchod';
ExecSql;
except
on E: Exception do
ShowMessage(E.Message); // a to mi zobrazi presne ten text, ktery je
poslany jako
// treti parametr v raise exception. Pokud jde
o cislo
// chyby (-746) tak to budes muset testovat ne
primo na
// Exception, ale nejakeho potomka (podle
pristupu)
// a v nem to cislo urcite bude
end;
end;

BTW: Jak k to mu Informixu pristupujes.

Petr
-----Original Message-----
From: Ondrej Krajicek [mailto:xkrajic(zv)ics.muni(tec)cz]
Sent: Tuesday, August 08, 2000 10:03 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Vyjimky v Informixu



Dobry den,

mate nekdo nejaky napad jak v Delphi 5 v klientske aplikaci
odchytit vyjimku, kterou vyhodi stored procedure
na serveru Informix (tusim 7).

Procedure je definovana takto:

create procedure odchod(p_cip char(10)) returning integer;
raise exception -746,0,"Chyba definovana programatorem";
return 0;
end procedure

Jinymi slovy, potrebuju nejake z BDE vysrotit
cislo -746 a chybovou hlasku. Pouzivam Delphi 5 Pro,
BDE, ODBC a Informix ODBC Driver 3.31.

TIA,

Ondrej Krajicek

--
----------------------------------------------------------
Ondrej Krajicek
Institute of Computer Science, Masaryk University Brno, CR
mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
----------------------------------------------------------


Rezim hibernate a SP 1, troska OffTopic

[*] Lukas.Gallina(zv)cz.danzas(tec)com - 8.8.2000 12:59:48

Ahoj,
mam ceske W2K, nevite nekdo jak je donutit aby ten SP sezraly? Odmitne se mi
instalovat s tim ze je to pro jiny jazyk...
...cetl jsem nekde ze pry to jde, ale nevim jak :( Nemam cas ani chut s tim
experimentovat :((((

S pozdravem
Lukas Gallina

-----Original Message-----
From: Foldyna Ji�� [mailto:jiri.f(zv)avizo(tec)cz]
Sent: Tuesday, August 08, 2000 8:55 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Rezim hibernate


Ahoj,

podarilo se mi zprovoznit rezim Hibernate a Standby ve W2k - zaridila to
instalace servispacku 1. Ale proc nesla predtim, nevim...

Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz


> V BIOSu musi byt zapnuto APM (Advanced Power Management). V
> Power Options ve
> W2k musis povolit APM a pote se ti zobrazi Hibernate zalozka.
>
> Jinak kdyz jsem upgradoval z RC2 na final, tak mi Hibernate
> zmizel a objevil
> se mi az po ciste instalaci W2k ;-)
>
> Mac
>
> ----- Original Message -----
> From: "Foldyna Ji��" <jiri.f(zv)avizo(tec)cz>
>
> > omlouvam se za OT, ale potrebuji poradit. Mam MB Intel
> SE440BX-2, PIII-650
> > W2K Prof a potreboval bych zprovoznit rezim hibernate. V
> Power options se
> mi
> > zalozka Hibernate neukaze, at delam, co delam. V BIOSu mam
> zapnuty power
> > management, APMSTAT tvrdi, ze BIOS je ACPI. Nevite nekdo, co s tim,
> propadne
> > bych ocemil i nejaky odkaz (ale Intel a M$ KB uz jsem prosel :-().
>
>

Tdbedit

[*] Petr Sladk� <sweet(zv)ksprogram(tec)cz> - 8.8.2000 13:05:55

M�m nasleduj�c� problem.
Mam dva TBEdity.

Vkladam udaje do TBEditu pomoci pastefromclipboard a kdy� prekliknu na jinou polozku
Nebo provedu pastefromclipboard do druheho TDBEditu tak se me udaje v tom prvnim strati.

Jinak kompletne. Mam Mdi aplikaci a z jednoho okna otviram druh�, tam vyberu nejake udaje a ty potrebuju
Dostat do volajiciho okna. Kvuli tomu volam Pastefromclipboard.
Jestli je zna n�kdo nejakou lepsi metodu, rad to je�t� prepisu.
Ja hledal v helpu a moc jsem neuspel.

Dikes
sweet

MS SQL

[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 8.8.2000 13:15:49

Zdravim,

zkus nvarchar. Jakmile tam veni to var, (typy char, nchar) tak se pridavaji
mezery.

Tomas
t.bradle(zv)pvtnet(tec)cz


----- Original Message -----
From: Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz>
Subject: MS SQL


> Dobry den,
>
> nemohl by mi nekdo poradit jak se vyporadat s tim, ze nchar na MS SQL
servru
> doplni text mezerama a tim mi potom nefunguje FindFirst v ADO.
>
>
> predem diky za kazdou radu
>
>

Track CDaudio

[*] Zdenek Sustr <sustr4(zv)civ.zcu(tec)cz> - 8.8.2000 13:38:27

> Ahojte Delf�ni
> Nev�te n�hodou n�kdo, jak zjist�m aktu�ln� hran� Track CD-audio ???
> Radek Tesar

Neni to z moji hlavy, ale mohlo by to byt tady:

http://www.igo.sk/cgi-bin/delphi.cgi?14

Snad to bude OK. Zatim mi odtamtud vsechny navody fungovaly (Jestli
posloucha autor, tak dekuju hlavne jemu ;-)

Zdenek Sustr

MS SQL

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.8.2000 13:40:23

> nemohl by mi nekdo poradit jak se vyporadat s tim, ze nchar na MS SQL
> servru doplni text mezerama a tim mi potom nefunguje FindFirst v ADO.

Zkus pouzit nvarchar, popr. se podivat na funkci rtrim (ted nevim,
zda funguje i u unicode vyrazu)

David


Vyvolani chyby v MS SQL

[*] Ren� Otisk - 8.8.2000 13:41:23

Hi,

Diky. To je presne to, co jsem potreboval. Jeste se chci zeptat na parametry
ve fieldu
description v sysmessages. Ty tam asi nedostanu, ze (ale to uz bych ozelel)?

On 7 Aug 2000, at 12:55, Ren� Otisk wrote:

> D3, ODBCe, MS SQL7
>
> Prosim o radu. Nemohu prijit na to, jak v ulozene procedure vyvolat
> error. Zkousel jsem print (a zaznam ze sysmenssages), raiserror i
> (zv)(zv)error ale nic se mi nezobrazi.

Ja davam do ulozene procedury return nn, kde nn je nejake cislo.
To potom vytahnu z navratoveho parametru a podle cisla zobrazim
prislusnou chybu nebo pokracuji dal.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ

Vyvolani chyby v MS SQL

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.8.2000 14:12:37

On 8 Aug 2000, at 8:19, David Lebeda wrote:

> Zbyskovo reseni s navratovymi parametry umozni proceduru
> vlastne kdykoli prerusit. Povazoval bych je v tuto chvili za
> spolehlivejsi nez raiserror, nicmene znamena to po kazdem volani
> procedury testovat, zda a jaka chyba nastala.

Ale zase se to da dobre lokalizovat, narozdil od textu natvrdo
napsanych v databazi. :-)


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


MS SQL

[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 8.8.2000 14:20:12

Dobry den

Mel sem podobny problem v pripade Locate na TClientDataset. Pomohlo nastavit
volbu loPartialKey. Byl tam ale jeden drobny problem, kdyz sem hledal podle
slozeneho klice, fungovalo to jen na posledni hodnotu v poradi. Ke vsem
ostatnim retezcum jsem musel pridat znak '*'. Po techto cachrech to hledalo
spolehlive.
Zkuste napsat filtr ve tvaru Pol='hod*' a nastavit vlastnost FilterOptions
aby neobsahovala foNoPartialCompare.
Snad vam muj naznak pomuze. Jinak prosim popiste jaky postup pouzivate pro
vyhledavani.

Jaromir Cermak


-----Original Message-----
From: Ladislav Fitz [mailto:ladislav.fitz(zv)kodytek(tec)cz]
Sent: Tuesday, August 08, 2000 12:16 PM
To: delphi-l(zv)fwd(tec)cz
Subject: MS SQL


Dobry den,

nemohl by mi nekdo poradit jak se vyporadat s tim, ze nchar na MS SQL servru
doplni text mezerama a tim mi potom nefunguje FindFirst v ADO.
predem diky za kazdou radu
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.168 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000


Tdbedit

[*] Radek Janu� <janus(zv)foresta(tec)cz> - 8.8.2000 14:31:27

Zkus d�t na tubulku kterou ti zobrazuj� TableNamexxx.post;
A dej to t�eba na na exit toh editu jak z n�j odch�z� metoda
event(onExit).

radek
-----P�vodn� zpr�va-----
Od: Petr Sladk� <sweet(zv)ksprogram(tec)cz>
Komu: Delphi (el. adresa) <delphi-l(zv)fwd(tec)cz>
Datum: 8. srpna 2000 13:48
P�edm�t: Tdbedit


>M�m nasleduj�c� problem.
>Mam dva TBEdity.
>
>Vkladam udaje do TBEditu pomoci pastefromclipboard a kdy� prekliknu na
jinou polozku
>Nebo provedu pastefromclipboard do druheho TDBEditu tak se me udaje v tom
prvnim strati.
>
>Jinak kompletne. Mam Mdi aplikaci a z jednoho okna otviram druh�, tam
vyberu nejake udaje a ty potrebuju
>Dostat do volajiciho okna. Kvuli tomu volam Pastefromclipboard.
>Jestli je zna n�kdo nejakou lepsi metodu, rad to je�t� prepisu.
>Ja hledal v helpu a moc jsem neuspel.
>
>Dikes
>sweet
>
>

Driver pro fiktivni jednotku

[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 08.8.2000 15:41:32

Ahoj,
nestacilo by pouzit stare DOSovske SUBST na premapovanie adresara ako jednotky
a obsluhovat len obsah adresara?
Zdeno

Milan Bursik wrote:

> Zdravim vsechny,
>
> nemate nekdo povedomost, kde se da sehnat nejaka ukazka nebo popis jak
> udelat v D5, aby Windows 95/98 popr. NT v pruzkumniku videli napr. jednotku
> N:, kterou by obsluhoval muj program? Napr. jednotka N: je namapovana jako
> pristup pres ftp na nejaky ftp server.
>
> Dik za kazdou radu
>
> Milan


Vyjimky v Informixu

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 08.8.2000 15:55:55


Diiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiky,

uz se s tim morim pekne dlouho pres TStoredProc, ADO
a ja nevim co jeste, ale ze to jde takhle
jednoduse by me v zivote nenapadlo.

K informixu pristupuju primarne pres BDE/ODBC
(nic lepsiho sem zatim nenasel, ale pohravam si s myslenkou
prelozit hlavickove soubory Informixu).
Pouzivam D5 Pro, ODBC, BDE, Informix ODBC Driver 3.31.

Ondrej Krajicek

"Jezek Petr, Ing." wrote:
>
> Ja to normalne pouzivam (Informix 5, D4, pristup pres ODBC nebo INFORMIX
> Native Driver):
>
> with Query do begin
> try
> Close;
> Sql.Text := 'EXECUTE PROCEDURE Odchod';
> ExecSql;
> except
> on E: Exception do
> ShowMessage(E.Message); // a to mi zobrazi presne ten text, ktery je
> poslany jako
> // treti parametr v raise exception. Pokud jde
> o cislo
> // chyby (-746) tak to budes muset testovat ne
> primo na
> // Exception, ale nejakeho potomka (podle
> pristupu)
> // a v nem to cislo urcite bude
> end;
> end;
>
> BTW: Jak k to mu Informixu pristupujes.
>
> Petr
> -----Original Message-----
> From: Ondrej Krajicek [mailto:xkrajic(zv)ics.muni(tec)cz]
> Sent: Tuesday, August 08, 2000 10:03 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Vyjimky v Informixu
>
> Dobry den,
>
> mate nekdo nejaky napad jak v Delphi 5 v klientske aplikaci
> odchytit vyjimku, kterou vyhodi stored procedure
> na serveru Informix (tusim 7).
>
> Procedure je definovana takto:
>
> create procedure odchod(p_cip char(10)) returning integer;
> raise exception -746,0,"Chyba definovana programatorem";
> return 0;
> end procedure
>
> Jinymi slovy, potrebuju nejake z BDE vysrotit
> cislo -746 a chybovou hlasku. Pouzivam Delphi 5 Pro,
> BDE, ODBC a Informix ODBC Driver 3.31.
>
> TIA,
>
> Ondrej Krajicek
>
> --
> ----------------------------------------------------------
> Ondrej Krajicek
> Institute of Computer Science, Masaryk University Brno, CR
> mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
> ----------------------------------------------------------

--
----------------------------------------------------------
Ondrej Krajicek
Institute of Computer Science, Masaryk University Brno, CR
mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
----------------------------------------------------------


Vyvolani chyby v MS SQL

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.8.2000 15:59:03

> > Zbyskovo reseni s navratovymi parametry umozni proceduru
> > vlastne kdykoli prerusit. Povazoval bych je v tuto chvili za
> > spolehlivejsi nez raiserror, nicmene znamena to po kazdem volani
> > procedury testovat, zda a jaka chyba nastala.
>
> Ale zase se to da dobre lokalizovat, narozdil od textu natvrdo
> napsanych v databazi. :-)

To jo. I kdyz MSSQL7 ma taky nejakou podporu pro vice jazyku a
dokonce je mezi nimi i cestina. Akorat to nejde aplikovat na jiz
vestavene hlasky (coz je ovsem dost podstatna zavada).

David


GetNamedSecurityInfo - otazka konverze API z C do

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 08.8.2000 16:07:40


Ahoj vsichni,

opravte me jestli se pletu, ale mam trochu pochybnosti o korektnosti
nasledujici deklarace v aclapi.pas:

function GetNamedSecurityInfo(pObjectName: PAnsiChar;
ObjectType: SE_OBJECT_TYPE;
SecurityInfo: SECURITY_INFORMATION;
ppsidOwner, ppsidGroup: PPSID;
ppDacl, ppSacl: PACL;
var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD;
stdcall;

Podle PSDK to ma vypadat takhle:

DWORD GetNamedSecurityInfo(
LPTSTR pObjectName, // object name
SE_OBJECT_TYPE ObjectType, // object type
SECURITY_INFORMATION SecurityInfo, // information type
PSID *ppsidOwner, // owner SID
PSID *ppsidGroup, // primary group SID
PACL *ppDacl, // DACL
PACL *ppSacl, // SACL
PSECURITY_DESCRIPTOR *ppSecurityDescriptor // SD
);

Cili, nemely by byt parametry ppDacl a ppSacl v pascalu
deklarovany jako var nebo pointer to pointer ? Takhle
(pointer to ACL, tj. PACL) se mi to nejak nezda.
Parametry ppDacl a ppSacl maji na vystupu
obdrzet ukazatel na ACL ne ACL. Zajimave je,
ze ppsidOwner a ppsidGroup jsou spravne.

Ondrej Krajicek

--
----------------------------------------------------------
Ondrej Krajicek
Institute of Computer Science, Masaryk University Brno, CR
mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
----------------------------------------------------------


GetNamedSecurityInfo - otazka konverze API z C do

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.8.2000 16:54:40


>
> Ahoj vsichni,
>
> opravte me jestli se pletu, ale mam trochu pochybnosti o korektnosti
> nasledujici deklarace v aclapi.pas:
>
> function GetNamedSecurityInfo(pObjectName: PAnsiChar;
> ObjectType: SE_OBJECT_TYPE;
> SecurityInfo: SECURITY_INFORMATION;
> ppsidOwner, ppsidGroup: PPSID;
> ppDacl, ppSacl: PACL;
> var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD;
> stdcall;
>
> Podle PSDK to ma vypadat takhle:
>
> DWORD GetNamedSecurityInfo(
> LPTSTR pObjectName, // object name
> SE_OBJECT_TYPE ObjectType, // object type
> SECURITY_INFORMATION SecurityInfo, // information type
> PSID *ppsidOwner, // owner SID
> PSID *ppsidGroup, // primary group SID
> PACL *ppDacl, // DACL
> PACL *ppSacl, // SACL
> PSECURITY_DESCRIPTOR *ppSecurityDescriptor // SD
> );
>
> Cili, nemely by byt parametry ppDacl a ppSacl v pascalu
> deklarovany jako var nebo pointer to pointer ? Takhle
> (pointer to ACL, tj. PACL) se mi to nejak nezda.

> Parametry ppDacl a ppSacl maji na vystupu
> obdrzet ukazatel na ACL ne ACL.
pokud maji vracet pointer musi byt VAR

> Zajimave je,
> ze ppsidOwner a ppsidGroup jsou spravne.
>
Ani bych nerekl. Chybi tam VAR take

Vsechny parametry pocinaje ppsidOwner jsou MS oznacene jako [out] takze v
pascalu musi byt deklarovany jako VAR (pripadne OUT).

Detail:
http://msdn.microsoft.com/library/psdk/winbase/accctrl_1i0f.htm

Zdravi
Dalibor Toman

Vyjimky v Informixu

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 08.8.2000 16:56:53


Tak prece to neni tak jednoduche. Nejede to. V procedure
se vyjimka prokazatelne vyhazuje, ale me to na
klientovi nevyhodi vubec nic. Mate to odzkousene
pres ODBC ?

Ondrej Krajicek

>
> "Jezek Petr, Ing." wrote:
> >
> > Ja to normalne pouzivam (Informix 5, D4, pristup pres ODBC nebo INFORMIX
> > Native Driver):
> >
> > with Query do begin
> > try
> > Close;
> > Sql.Text := 'EXECUTE PROCEDURE Odchod';
> > ExecSql;
> > except
> > on E: Exception do
> > ShowMessage(E.Message); // a to mi zobrazi presne ten text, ktery je
> > poslany jako
> > // treti parametr v raise exception. Pokud jde
> > o cislo
> > // chyby (-746) tak to budes muset testovat ne
> > primo na
> > // Exception, ale nejakeho potomka (podle
> > pristupu)
> > // a v nem to cislo urcite bude
> > end;
> > end;
> >
> > BTW: Jak k to mu Informixu pristupujes.
> >
> > Petr
> > -----Original Message-----
> > From: Ondrej Krajicek [mailto:xkrajic(zv)ics.muni(tec)cz]
> > Sent: Tuesday, August 08, 2000 10:03 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Vyjimky v Informixu
> >
> > Dobry den,
> >
> > mate nekdo nejaky napad jak v Delphi 5 v klientske aplikaci
> > odchytit vyjimku, kterou vyhodi stored procedure
> > na serveru Informix (tusim 7).
> >
> > Procedure je definovana takto:
> >
> > create procedure odchod(p_cip char(10)) returning integer;
> > raise exception -746,0,"Chyba definovana programatorem";
> > return 0;
> > end procedure
> >
> > Jinymi slovy, potrebuju nejake z BDE vysrotit
> > cislo -746 a chybovou hlasku. Pouzivam Delphi 5 Pro,
> > BDE, ODBC a Informix ODBC Driver 3.31.
> >
> > TIA,
> >
> > Ondrej Krajicek
> >
> > --
> > ----------------------------------------------------------
> > Ondrej Krajicek
> > Institute of Computer Science, Masaryk University Brno, CR
> > mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
> > ----------------------------------------------------------
>
> --
> ----------------------------------------------------------
> Ondrej Krajicek
> Institute of Computer Science, Masaryk University Brno, CR
> mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
> ----------------------------------------------------------

--
----------------------------------------------------------
Ondrej Krajicek
Institute of Computer Science, Masaryk University Brno, CR
mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
----------------------------------------------------------


MS SQL

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.8.2000 17:10:25

On 8 Aug 2000, at 12:15, Ladislav Fitz wrote:

> nemohl by mi nekdo poradit jak se vyporadat s tim, ze nchar na MS SQL
> servru doplni text mezerama a tim mi potom nefunguje FindFirst v ADO.

Zkus nvarchar.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


MS WORD - pridani ovladaciho tlacitka

[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 8.8.2000 17:30:54

Ahoj vsichni,

vzhledem k tomu, ze mi nikdo na muj prvni dotaz neodpovedel pokusim se ho upresnit.

Potrebuji pridat pomoci meho programu (vytv. v D4) tlacitko do nastrojove listy MS Word 97 nebo Excel 97
a pomoci pridaneho tlacitka ve Wordu spoustet muj vlastni program nebo jeho funkce.
Take bych potreboval pridat tlacitko do Wordu z instalacniho programu napr. Inno Setup.

V teto oblasti jsem uplne mimo - asi pomoci OLE ale... . Uvitam kazdy namet.

Predem diky za odpoved.

M.Blazek


instalace s Interbase - ukonceni

[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 8.8.2000 17:31:37

�ampulka Ji�� <campulka(zv)czas(tec)cz>

> Pokud jde o to u klienta nainstalovat Interbase Server tak hledej v
Dokumentaci
> k IB - Install API
>


ahoj

diky za nakopnuti, Sice jsem si prohlizel postup k instalaci severu IB 5.5
ale jak to tak vypada budu se muset rozloucit s myslenkou o bezboleste a
automaticke instalaci aplikace s pouzitim IB6.
Asi se nyni cpu do jineho sveta :-)

S pozdravem Heinisch Jiri


www.deis(tec)cz
www.drnholec(tec)cz - brana do celeho sveta :-))

GetNamedSecurityInfo - otazka konverze API z C do

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 08.8.2000 17:51:12


Nechybi, PPSID je v aclapi.pas deklarovan jako PPSID = ^PSID
(tj. pointer to pointer to SID za predpokladu ze PSID = ^SID),
takze je to spravne, jestli je tam var ppSidOwner : PSID nebo
ppSidOwner: PPSID uz je jedno.

> Ani bych nerekl. Chybi tam VAR take
>
> Vsechny parametry pocinaje ppsidOwner jsou MS oznacene jako [out] takze v
> pascalu musi byt deklarovany jako VAR (pripadne OUT).
>
> Detail:
> http://msdn.microsoft.com/library/psdk/winbase/accctrl_1i0f.htm

--
----------------------------------------------------------
Ondrej Krajicek
Institute of Computer Science, Masaryk University Brno, CR
mailto: xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
----------------------------------------------------------


Re[2]: Driver pro fiktivni jednotku

[*] raul.endymion(zv)ns1.infima(tec)cz - 8.8.2000 18:37:02

No subst ti asi moc nepomuze v pripade treba toho FTP, nebo jineho
zarizeni. Autor zrejme nechtel tohle, nybrz vytvorit driver, ktery je
schopen simulovat jednotku, a na nej si muzes posadit co chces. Treba
magnetak na kterej budes nahravat pres seriak a par el. hejblatek.


Raul

ZJ> Ahoj,
ZJ> nestacilo by pouzit stare DOSovske SUBST na premapovanie adresara ako jednotky
ZJ> a obsluhovat len obsah adresara?
ZJ> Zdeno

ZJ> Milan Bursik wrote:

>> Zdravim vsechny,
>>
>> nemate nekdo povedomost, kde se da sehnat nejaka ukazka nebo popis jak
>> udelat v D5, aby Windows 95/98 popr. NT v pruzkumniku videli napr. jednotku
>> N:, kterou by obsluhoval muj program? Napr. jednotka N: je namapovana jako
>> pristup pres ftp na nejaky ftp server.
>>
>> Dik za kazdou radu
>>
>> Milan

Rezim hibernate

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 8.8.2000 19:17:24

Protoze si tam predtim SP1 nemel ;-)))

Mac

----- Original Message -----
From: "Foldyna Ji��" <jiri.f(zv)avizo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, August 08, 2000 8:55 AM
Subject: RE: Rezim hibernate


Ahoj,

podarilo se mi zprovoznit rezim Hibernate a Standby ve W2k - zaridila to
instalace servispacku 1. Ale proc nesla predtim, nevim...

Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz

SQL - pocet skupin (Zaver)

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 8.8.2000 19:46:59

To view by se dalo taky obejit, pokud by se pouzil vnoreny SELECT ;-) Ale
proc to delat slozite - DISTINCT rulez...

Mac

----- Original Message -----
From: "Mari�n Goryl" <goryl(zv)insdata.sk>

> RIESENIA CEZ VIEW alebo PRESMEROVANIE
> - tiez su mozne no, je potrebne vytvarat pohlady, presmerovania

Komponenta NMMsg

[*] <bejcek(zv)centrum(tec)cz> - 08.8.2000 21:11:30

Ahoj kluci,
zas bych neco potreboval, nemate nekdo zkusenosti s komponentou
NMMsg, ktera pracuje s protokolem TCP/IP. Budu vypadat jako pako,
ale nemam sanci to na lokale otestovat, potreboval bych vedet:
1) jestli do vlastnosti HOST se dava jen IP adresa, nebo to
schrupne i jmeno pocitace...

Jestli ne, tak za 2) jakym postupem zjistim prihlasene pocitace
na siti a za

3) jak zjistim jejich IP adresu,
Doufam ze mi odpustite muj totalni amaterismus...
Ales Pavel - Talpa amater vsech amateru

Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz


Zpomaleni II

[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 8.8.2000 22:36:16

Zdravim!
Dekuji vsem za odpovedi. Mnou udavane hodnoty casu nebyly presne, protoze jsem je normalne stopnul stopkama (vim, ze se to da lehce vyresit par radkami kodu). Ve druhem bode jsem se asi spatne vyjadril takze znovu:
Vim, ze FileSize se muze pouzit jen na File of ... (nebo jenom na File), to jsem z napovedy vycetl. Proto jsem pouzil fci GetFileSize z unity FmxUtils. Ta sice ukaze spravnou velikost souboru, ale cely algoritmus skonci drive - poznam to na komponente TProgressBar, ze jeste "nedosla" do konce. Pritom velikost sifrovaneho/desifrovaneho souboru a originalniho souboru se nelisi - jsou proste totozne. Moje otazka tedy zni. Proc me GetFileSize ukaze sice spravnou hodnotu velikosti souboru, ale nedojede to podle vseho do konce?

Mel bych rovnou dalsi otazku a to OffTopic, kde bych mohl najit algoritmy (mam tim na mysli popis) sifry RSA a jak se generuje jeji klic? Pokud by to bylo mozne tak v cestine/slovenstine.

Predem dekuji.

S pozdravem Martin Pesek, amatersky programator.

===============================
[ Martin Pe�ek
[ pesek.martin(zv)mymail(tec)cz
[ http://gm.fbi(tec)cz
[ http://markm.fbi(tec)cz

[ Info
[ Delphi 5 Ent., W98
===============================

Outlook

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:00:59

From: "Radek Janu�" <janus(zv)foresta(tec)cz>
> Hi pot�eboval bych poradit , cht�l bych si ud�lat vlastn� komponentu
> pos�l�n� mailem a to bu� Outlookem nebo Exchangem .

Ahoj,

pokud ti jde o vytvoreni zpravy a jeji vlozeni do 'Posta k odeslani' (ci
ji odeslat rovnou, dle nastaveni klienta) vychoziho klienta, tak muzes
pouzit Simple MAPI. Mezi pripravenymi komponentami pro JEDI-VCL najdes i
TJvMail, vcetne prikladu.

Ke stazeni jsou tady (ale budes se asi muset u eGroups zaregistrovat):
http://www.egroups.com/files/JEDI-VCL/JediVCLpv.zip
nebo mirror u me:
http://www.volweb(tec)cz/pvones/download/JediVCLpv.zip

Dale budes potrebovat i JCL (http://delphi-jedi.org/Jedi:CODELIBJCL).

Komponenty jsou urceny pro D4 a D5. Nejdrive nainstaluj design balicek
JCL (DJCL50.dpk resp. DJCL40.dpk) a pak komponenty (JediVclPv5.dpk).

Petr Vones, amatersky programator

Barvy u TLabel a TDBText

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:00:21

From: "Foldyna Ji��" <jiri.f(zv)avizo(tec)cz>
> narazil jsem na takovyto problem: nedari se mi trvale nastavit barvu
> (property Color) u komponent TLabel a TDBText na hodnotu clWindow. V
> designeru to samozrejme jde, ale v runtime a po ulozeni se mi barva zmeni na
> clBtnFace. Pokud se na form podivam jako na text, polozka pro nastaveni
> barvy chybi, pritom ParentColor je false. Nepomuze to tam ani napsat rucne -
> po prepnuti do formu a zpet do textu nastaveni barvy chybi. Je to chyba nebo
> nejake zasr... standardni chovani ? A nevite nekdo, jak to obejit, abych v
> kazdem FormCreate nemusel nastavovat barvu labelu a DBTextu rucne (pak to
> samozrejme funguje).

Ahoj,

pekne, vypada to na chybu ve VCL, ve tride TControl.

Petr Vones, amatersky programator

Prenos souboru pomoci TCP/IP

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:01:25

From: "Milan Bursik" <delphi(zv)advnet(tec)cz>
> Nemate nekdo nejaky priklad obousmerneho prenosu dat pres TCP/IP protokol sc
> hema Client / Server neco jako ftp, ale pouze prenos binarnich dat!!!!. Bez
> prihlasovani, bez uzivatelske radky .........

Ahoj,

neco starsiho bylo tady:
http://www.inprise.com/devsupport/delphi/download_files/fileserv.zip

Petr Vones, amatersky programator

Delphi a paralelni port

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:01:57

From: "Hejna Martin, PRAHA" <hejnam(zv)praha.comsoft(tec)cz>
> potreboval bych vedet zda neexistuje nejaka komponenta pro ovladani
> paralelniho portu (neco treba jako mscomm32.ocx pro seriak nebo podobne)
> zkousel jsem hledan na inetu ale nic jsem nenasel.
> Eventuelne jak ho lze ovladat pres API.

Ahoj,

Podpora ze strany API pro toto neni. Musis pouzit specialni driver ktery
ti umozni zapisovat na I/O adresy kde se nachazi dany port. Takovy driver
je navic jeste jiny pro Win9x a NT. Pokud ti to staci jen pro Win9x, tak
tady existuje jednoduchy "univerzalni" VxD driver SMPORT:
ftp://ftp.cdrom.com/pub/delphi_www/ftp/d20free/smport.zip

Petr Vones, amatersky programator

Jmena vsech uzivatelu v siti

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:01:34

From: "Brant Petr" <Brant(zv)dcomm(tec)cz>
> nepsal jste nekdo nahodou funkci ci komponentu, ktera zjistuje jmena vsech
> uzivatelu pripojenych v siti? Momentalne se s tim morduju, ale jsou s tim
> problemy. Diky

Ahoj,

pomoci funkci WNetOpenEnum, WNetEnumResource a spol. Priklad tady bohuzel
zadny nemam, protoze to nemam kde odzkouset. Neco najdes jeste tady:

http://ww6.borland.com/codecentral/ccweb.exe/listing?id=13346

Petr Vones, amatersky programator

Delphi 3.01

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:01:45

From: "Pavol Stolc" <pstolc(zv)sc.sknet.sk>
> mame Delphi 3 a pouzivame ju na udrzbu starsich projektov. Nove projekty uz
> robime v Delphi 5 (+update). Obcas sa objavia v starsich projektoch
> nedostatky, ktore by bolo mozne odstranit pomocou update 3.01 a 3.02, ovsem
> update 3.01 uz nie je oficialne (Inprise) dostupny. Existuje neoficialny

Ahoj,

obrat se na Inprise CZ (http://www.inprise(tec)cz)

Petr Vones, amatersky programator

Animace palety

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:02:31

From: <jirpun(zv)post(tec)cz>
> V demostracnim programu v jednoduchem technologickem schematu pouzivam pro
> animaci pohybu tekouci kapaliny animaci palety. Funguje to OK, ale jenom pri
> nastavenem rezimu 256 barev, v rezimu 65k nebo 16M barev uz ne.

Ahoj,

pro animaci se dobre hodi komponenta TAnimate. Staci mit animaci v AVI
formatu a prilozit ji do aplikace jako resource.

Petr Vones, amatersky programator

Komponenta XML

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:02:02

From: "Str�n�k Franti�ek" <FStranik(zv)cpoj(tec)cz>
> Nev�te n�kdo o voln� komponent� pro pr�ci s XML soubory ?

Ahoj,

neco odkazu na XML:

http://homepages.borland.com/ccalvert/TechPapers/Delphi/XMLBrowse/index.htm
http://delphree.clexpert.com/pages/app_OPENXML.htm
http://www.delphihome.com/xml/
http://www.delphizine.com/features/2000/05/di200005rp_f/di200005rp_f.asp
http://www.delphizine.com/features/2000/03/di200003kw_f/di200003kw_f.asp
http://www.delphizine.com/features/2000/02/di200002kw_f/di200002kw_f.asp

Petr Vones, amatersky programator

Zpomaleni

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:02:45

From: "Martin Pe�ek" <pesek.martin(zv)mymail(tec)cz>
> Mam problem se spomalenim cyklu. V cyklu zvysuji o jednicku komponentu
> ProgressBar.

Ahoj,

podivej se na vlastnost Step a metodu StepIt. Pomoci nich si muzes nastavit
velikost kroku:

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
with ProgressBar1 do
begin
Position := 0;
Step := 10;
Max := 10000;
for I := 1 to 1000 do
StepIt;
end;
end;

Petr Vones, amatersky programator

GetNamedSecurityInfo - otazka konverze API z C do

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:02:27

From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> Vsechny parametry pocinaje ppsidOwner jsou MS oznacene jako [out] takze v
> pascalu musi byt deklarovany jako VAR (pripadne OUT).

Ahoj,

tak jednoduche to zase neni. Pokud provadis prepis headeru z C do OP, tak
ti nestaci jen vlastni definice, ale potrebujes mit i popis dane funkce.
Pravidlo je takove, ze pokud muze mit dany parametr i hodnotu NULL, tak se
deklaruje jako pointer, pokud ne tak jako var.

Petr Vones, amatersky programator


TDatasetAction

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.8.2000 23:03:16

From: "Jan Naiser" <tua(zv)wo(tec)cz>
> chtel bych zmenit TDatasetActions tak, aby standartne (pri vlozeni do
> ActionListu) zobrazovaly ceske Captions a ceske Hints. Pokud si ale vytvorim

Ahoj,

nebylo by rozumejsi pak projekt lokalizovat ?

Petr Vones, amatersky programator

IB 6 - EIBClientError - 'Unsupported feature'

[*] Marek Spisak <spishark(zv)post(tec)cz> - 8.8.2000 23:04:46

Zdravim vsecky a preju prijemny den.

Tento dotaz jsem jiz do konference psal, ale nejak mi zablbnul MailServer a
potom jsem ho tam nevidel, tak ho pisu znova. Pokud prijde 2x, tak se
omlouvam.

Moc bych potreboval poradit s jednou veci. Pouzival jsem InterBase 6 Beta,
vytvoril jsem nejake aplikace v Delphi 5 a C++ Builderu 5 a fungovali mi
bezvadne (IBExpres ver. 4 a pozdeji 41). Po nainstalovani final verze IB 6
a updatu IBExpresu na ver. 42 uz nejsem schopen pridavat ani upravovat
zaznamy. Pri pokusu o pridani zaznamu nebo jejich editaci mi vyskoci hlaska
EIBClientError - 'Unsupported feature'. Nemam tuseni, co delam spatne,
kazdopadne ani z delfinu, ani z cecka nemuzu nic. SQL server, ktery neumi
pridavat a editovat zaznamy je sice hezka vec, ale celkem k nicemu. Uz jsem
z toho zoufaly. Netusite nekdo nahodou, v cem jsem mohl udelat chybu?

Dekuji moc za kazde nakopnuti.

Marek

Vyvolani chyby v MS SQL

[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 8.8.2000 23:38:28

Ahoj

Ja pouzivam raiserror v triggerech i ulozenych procedurach a zadny problem
jsem s tim nemel.
Vysledkem raiserror je, ze mi v Delphi vyskoci Exception, kterou zpracuji a
obvykle zavolam z Delphi Rollback.

Lada



© Netcode.cz, 2008-9. Doporučujeme portál delphi.cz