Archív konference Delphi

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

Karta Woodoo a poskozen� ikonky Delphi

[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 7.3.2001 07:46:48

[P��loha v souboru: winmail.dat]
Ahoj,
ja mam Voodoo3 2000 16M a Delphi5 a vse je OK.

Jaroslav Sipek
mailto:jaroslav.sipek(zv)idea(tec)cz
http:\\www.idea(tec)cz <http://www.idea(tec)cz/>

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Str�n�k Frantisek
Sent: Tuesday, March 06, 2001 3:47 PM
To: Delphi konference
Subject: Karta Woodoo a poskozen� ikonky Delphi



Pratele,
stary problem - nyni pouze jenom zkusenost. Mate nekdo zkusenost s
grafickou kartou Woodoo a s ikonkama Delphi ?
Poskozuje nebo neposkozuje ?
Diky za odpoved !

Zdravi F.Stranik
FSTRANIK(zv)CPOJ.CZ

---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001


QRPreview

[*] BONNEL TECHNOLOGIE, v�voj <bonnel(zv)telecom(tec)cz> - 7.3.2001 07:57:45

Nevim jak pod D5, ale pod D4 (QR 3.0.5) se to deje tehdy, kdyz preview
pocita sestavu (v levem dolnim rohu je videt jak naskakuji stranky). Kdyz
dopocita, udela je enabled.

Mira


> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Miroslav Evj�k
> Sent: Tuesday, March 06, 2001 9:31 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: QRPreview
>
>
> Ahoj,
>
> nenarazil jste nekdo na nasledujici problem:
>
> Pri behu aplikace pri zobrazeni sestav QReport se obcas (casto = 70%
> pripadu) ve standartnim okne preview zobrazi ikony pro Printer
> Setup a Print
> jako nepristupne.

SetFocus na Frame

[*] Ji�� Kr�l jr. - 7.3.2001 08:01:25

Dobry den,

poradi mi prosim nekdo jak zafocusovat TEdit ktery patri TFrame?
nemuzu furt prijit na to kouzelne sluvko
diky

J.==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)

>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>Petr
>>Sent: Wednesday, March 07, 2001 6:31 AM
>>To: delphi-l(zv)fwd(tec)cz
>>Subject: Re: Funkce
>>
>>
>>A nebylo by lepsi u vsech editu nastavit u udalosti OnExit stejnou
>>proceduru podle formy TNotifyEvent (tj. standard s parametrem Sender :
>>TObject) ?
>>Napr. :
>>Tuto proceduru nastavit u vsech Editu.
>>
>>procedure EditExit(Sender : TObject);
>>begin
>> if Sender(TEdit).Text = '' then
>> begin
>> ShowMessage('M�te pr�zdnou kolonku.');
>> Sender(TEdit).SetFocus;
>> end;
>>end;
>>
>>
>>Petr Jur�k, Spr�vce s�t�, program�tor
>>COMET System s.r.o.
>>1.M�je 1220
>>756 61 Ro�nov pod Radho#t�m
>>tel. 0651/653990
>>fax. 0651/653993
>>www.cometsystem(tec)cz
>>
>>
>>----- Original Message -----
>>From: Hazuka Filip <filip.hazuka(zv)multivac(tec)cz>
>>To: <delphi-l(zv)fwd(tec)cz>
>>Sent: Tuesday, March 06, 2001 9:50 PM
>>Subject: Funkce
>>
>>
>>> Ahoj Delphaci,
>>> potreboval bych poradit, zda mohu napsat takovouto f-ci ?
>>>
>>> function TForm1.Prazdny(Sender: TEdit): TEdit;
>>> begin
>>> if Sender.Text = '' then
>>> begin
>>> ShowMessage('M�te pr�zdnou kolonku.');
>>> Sender.SetFocus;
>>> end;
>>> end;
>>>
>>> Tato funkce nevrac� ��dnou hodnotu. Nevad� to ? Pou��v�m to k osetreni
>>> prazdnych kolonek,
>>> abych to nemusel psat u v#ech.
>>>
>>> Napr: na exitu Edit1 pouziji:
>>>
>>> Prazdny(Edit1);
>>>
>>> Napiste mi, zda je to tak mozne. Nemam s funkcema prilis
>>zkusenosti a tak
>>> potrebuji vedet zda je to dobre. Diky vsem
>>>
>>> Fila
>>>
>>> Filip.Hazuka(zv)uhk(tec)cz
>>>
>>
>>
>>---
>>Odchoz� zpr�va neobsahuje viry.
>>COMET System Network Administrator.
>>Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>>Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 05.03.01
>>
>>

OT- Self-extractor

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2001 08:17:04



> Mozna by stacil i InnoSetup. Je to sice free program na vytvareni
> instalaci, ale to co delas je vlastne instalace.

InnoSetup pouziva ZLib library ke kompresi/dekompresi archivu. Pokud si
chces zaprogramovat pak muzes ZLib pouzit k vytvoreni selfextractoru sam.
ZLib je dilem autoru, kteri se podileli na PkZipu (pokud se nepletu) a maji
na svedomi deflate/inflate metody, ktere jsou i v PkZipu. Stejny soubor
zapakovany ZLib (na nejvyssi pomer) ma zhruba stejnou delku )o chlup mensi)
nez soubor pakovany PkZipem (ale u nej jsem neexperimentoval s nastavenim
kopresniho pomeru).

Ja sam jsem prave prepsal svuj instalak pomoci ZLib a usetril jsem cca 1/4
delky instal. archivu (pred tim jsem pouzival kompresni DLLka LZExpand,
ktere jsou soucasti Windows). Jedina nevyhoda ZLibu (pouzil jsem OBJ soubory
kompilovane Cckem) je pomerne velky overhead - inflate (dekomprese) obnasi
cca 20kB kodu (zvetseni proti LZExpand, ktera jako externi DLL nepridava nic
do kodu selfextractoru)

ZLib je psana v Ccku, ale existuje nekolik portu do Pascalu/Delphi, ci primy
prepis do Delphi.

D. Toman

Prepinani Unit

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2001 08:21:19

> > to jsem nejak nepochopil - netusim jak zminka o threadech souvisi s
> > predchozim textem. Thready maji kazdy svuj stack - cili ctenim stacku
vidi
> > stale jen svoje data. Volaji-li DLLko pak DLLko ma moznost dostat se do
> > stacku daneho threadu...
>
> Thready procesu zdielaju spolocny adresovy priestor procesu, preto
> si vzajomne mozu citat aj prepisovat akekolvek udaje (ci uz na stackoch
> alebo nie).

pominu-li, ze je paranoidni chranit sam sebe pred sebou samym neni mi jasne
jak jeden thread zjisti adresu stacku jineho threadu.

D> Toman

SQL + presunuti zaznamu

[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 7.3.2001 08:29:14

Co takhle stored procedura, ktera by delala insert into .... select from a
potom delete ?

Milan Tomes

> Cau,
> existuje nejaky jednoduchy zpusob jak presunout radek z jedny
> tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.
>
> Dik Ladap
>
> Delphi5 Pro, MSSQL7


Funkce

[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 7.3.2001 08:33:49

AHoj, pokud TI nebude vadit, ze Ti tam bude rvat kompolator warningy, tak by
to vadit nemelo.

Ale urcite se stane, ze tu funkci nekde pouzijes, zapomenes, ze Ti vraci v
podstate nahodnou adresu a Access Violation je na svete.

Urcite bych tam dal alespon radek Result := nil;

Ale pokud nepotrebujes navratovou hodnotu, tak to napis takhle :

procedure TForm1.Prazdny(Sender: TEdit);
begin
if Sender.Text = '' then
begin
ShowMessage('M�te pr�zdnou kolonku.');
Sender.SetFocus;
end;
end;==================================
ing. Martin Lasevi�
Software specialist

Office :
ratiopharm CZ, s r. o.
B�lehradsk� 54
120 00 Praha 2

tel.: +420 2 510 21 130
fax.: +420 2 510 21 123
mobil +420 602 298 904

mlasevic(zv)ratiopharm(tec)cz
http://www.ratiopharm(tec)cz
==================================


Ahoj Delphaci,
potreboval bych poradit, zda mohu napsat takovouto f-ci ?

function TForm1.Prazdny(Sender: TEdit): TEdit;
begin
if Sender.Text = '' then
begin
ShowMessage('M�te pr�zdnou kolonku.');
Sender.SetFocus;
end;
end;

Tato funkce nevrac� ��dnou hodnotu. Nevad� to ? Pou��v�m to k osetreni
prazdnych kolonek,
abych to nemusel psat u v#ech.

Napr: na exitu Edit1 pouziji:

Prazdny(Edit1);

Napiste mi, zda je to tak mozne. Nemam s funkcema prilis zkusenosti a tak
potrebuji vedet zda je to dobre. Diky vsem

Fila

Filip.Hazuka(zv)uhk(tec)cz


Kter� okno je star��?

[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 07.3.2001 08:34:31

ahoj,
nevite nekdo, jestli existuje nejaka fce, ktera by vratila, jak dlouho je dane okno otevrene? Jde mi jen oto zjistit, ktere z oken je starsi (dele spusteno)...

neco jako if Okno1:HWND > Okno2:HWND then Okno1 je starsi.

Diky

S pozdravem Milan Cizek, D5 Ent
_____________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz


SetFocus na Frame

[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 7.3.2001 08:56:03

>poradi mi prosim nekdo jak zafocusovat TEdit ktery patri TFrame?
>nemuzu furt prijit na to kouzelne sluvko

A kde je problem???

malo by to ist takto:

if Edit.CanFocus then
Edit.SetFocus;

s tym, ale ze ak je ten frame napriklad na PageControlu tak musi byt
nastavena aktivny TTabSheet ten, na ktoom je ten edit. Inak to nema zmysel.

Pavol Kaka�ka
kasix(zv)atlas(tec)cz

Funkce

[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 7.3.2001 09:00:40

na http://www.lingvista(tec)cz/dsf/0115.html

je uveden kompletni priklad na

"Univerzalni kontrolu dat pri stisknuti tlacitka OK".

Ma tu vyhodu, ze nemusis na kazde tlacitko navesovat stejnou metodu a
presto muzes jednoduse vyloucit pomoci Tag tlacitka ke kontrole.

Petr Svejda
http://www.lingvista(tec)cz/> -----Original Message-----
> potreboval bych poradit, zda mohu napsat takovouto f-ci ?
> function TForm1.Prazdny(Sender: TEdit): TEdit;
> begin
> if Sender.Text = '' then
> begin
> ShowMessage('M�te pr�zdnou kolonku.');
> Sender.SetFocus;
> end;
> end;
>
> Tato funkce nevrac� ��dnou hodnotu. Nevad� to ? Pou��v�m to k osetreni
> prazdnych kolonek, abych to nemusel psat u v#ech.

Update DB z local na server

[*] Tom� Hol� - 7.3.2001 09:03:37

Napred jsem si myslel, ze jsem se unahlil, a ze potrebujete prenest data z
lokalniho MySQL , MySQL na Serveru WWW

ja totiz vzdy posilam data z lokalu, ale z DBF nebo rovnou z Accessu.

Ale pak mi doslo, ze prave diky ODBC je to uplne jedno.

jednoduse receno ODBC vlastne znamena standart mezi DB drivery - tzn, ze
pokud mate program, ktery podporuje ODBC a DB, ke ktere existuje Driver
ODBC - muzete timto porgramem DB cist a ukladat di ni data.
- ASI TO NENI NEJPRESNEJSI, ALE JAKO VYKLAD PROBLEMU BY TO MELO STACIT !!!

a konkretne pro tento pripad bych pouzil myODBC
http://www.mysql(tec)cz/downloads/api-myodbc.html

toto se nainstaluje do Win, nastavi se ODBC spojeni, kde se vyplni IP adresa
strioje, kde je DB jmeno heslo

a pak se daj v Accessu otevrit tyto tabulky - A JE TO

pokud byste chtel posilat data z lkalniho MySQL, pripoji se toto stejne,
akorat IP je 127.0.0.1 loclhost

funguje to statecne, plnim takto vsechny Webove shopy, ktere jsem kdy delal

JE TU jediny hacek :(((

nektere WWW servery nemaji komunikaci pres MyODBC povolenu - chce to proste
zkusit

mnohho zdaru

TH


> Nemohl byste to trochu rozvest? Jake vyhody poskytuje ODBC, je-li vubec na
> severu?
>
> > > Potreboval bych jednu malou DB(MySQL) z lokalu (windows) poslat na
> > > server(unix) pomoci PHP(4).


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

SQL + presunuti zaznamu

[*] Doller.Jozef(zv)zsr.sk - 7.3.2001 09:09:09

select * into nova_tabulka
from tabulka

V Enterprise Manageri mus�te predt�m nastavit vlastnost "select into / bulk
copy"
Zvolte Properties Vasej DB a zalozku options

alebo

sp_dboption select into / bulkcopy - ale toto mi neslo zrejme mam chybnu
syntax
> -----P�vodn� zpr�va-----
> Od: Milan Tomes [SMTP:Milan.Tomes(zv)haida(tec)cz]
> Odesl�no: 7. marec 2001 8:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: SQL + presunuti zaznamu
>
> Co takhle stored procedura, ktera by delala insert into .... select from a
> potom delete ?
>
> Milan Tomes
>
> > Cau,
> > existuje nejaky jednoduchy zpusob jak presunout radek z jedny
> > tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.
> >
> > Dik Ladap
> >
> > Delphi5 Pro, MSSQL7
> __________ Informacia od NOD32 1.66 (20010216) __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.nod32.com
>
>
>

Zadost o spolupraci - nastaveni proxy v MSIE

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.3.2001 09:13:12

Zdravim vsechny,

mohli byste mi prosim pomoct ???

Nasel jsem nejake nesrovnalosti v registru v klici HKCU\SOFTWARE\Microsoft\W
indows\CurrentVersion\Internet Settings polozka ProxyEnable.
Potreboval bych zjistit kdy a jak to tam zapisuje - nekdy je to integer nekd
y binary a na tom mi zhavaruje moje metoda pro zjistovani proxy serveru :(
Mohli by jste mi na mail mailto:Milan.Tomes(zv)haida(tec)cz poslat typ teto polozky
, verzi Win a verzi IE ???

Diky

Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz


OT: uctenkova tiskarna

[*] Ji�� Kr�l jr. - 7.3.2001 09:34:46

Dobry den,

resim tisk uctenek formatu A5 a prosim o doporuceni nejake k tomuto vhodne
tiskarny.

diky


==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)

>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>Dalibor Toman
>>Sent: Wednesday, March 07, 2001 8:17 AM
>>To: delphi-l(zv)fwd(tec)cz
>>Subject: Re: OT- Self-extractor
>>
>>
>>
>>
>>> Mozna by stacil i InnoSetup. Je to sice free program na vytvareni
>>> instalaci, ale to co delas je vlastne instalace.
>>
>>InnoSetup pouziva ZLib library ke kompresi/dekompresi archivu. Pokud si
>>chces zaprogramovat pak muzes ZLib pouzit k vytvoreni selfextractoru sam.
>>ZLib je dilem autoru, kteri se podileli na PkZipu (pokud se
>>nepletu) a maji
>>na svedomi deflate/inflate metody, ktere jsou i v PkZipu. Stejny soubor
>>zapakovany ZLib (na nejvyssi pomer) ma zhruba stejnou delku )o
>>chlup mensi)
>>nez soubor pakovany PkZipem (ale u nej jsem neexperimentoval s nastavenim
>>kopresniho pomeru).
>>
>>Ja sam jsem prave prepsal svuj instalak pomoci ZLib a usetril jsem cca 1/4
>>delky instal. archivu (pred tim jsem pouzival kompresni DLLka LZExpand,
>>ktere jsou soucasti Windows). Jedina nevyhoda ZLibu (pouzil jsem
>>OBJ soubory
>>kompilovane Cckem) je pomerne velky overhead - inflate (dekomprese) obnasi
>>cca 20kB kodu (zvetseni proti LZExpand, ktera jako externi DLL
>>nepridava nic
>>do kodu selfextractoru)
>>
>>ZLib je psana v Ccku, ale existuje nekolik portu do
>>Pascalu/Delphi, ci primy
>>prepis do Delphi.
>>
>>D. Toman
>>
>>

Funkce

[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 7.3.2001 09:41:47

Diky vsem za namety na muj dotaz na funkci. Budu vam verit a dam tam tu
proceduru.

Jenom nerozumim tomu, proc tam nemuze byt ta f-ce. Nekdo mi psal duvod
warningy.

Vysvetlete mi to prosim blize, at jsem taky o neco chytrejsi.

Diky Filip


Ze by chyba v Bitmap.SaveToFile???

[*] �ampulka Ji�� - 7.3.2001 09:45:15

Zkus tohle:

procedure TForm1.Button1Click(Sender: TObject);
var
B: TBitmap;
begin
B:=TBitmap.Create;
B.Width:=Label1.Width;
B.Height:=Label1.Height;
B.Canvas.CopyRect(B.Canvas.ClipRect,Form1.Canvas,Label1.BoundsRect);
if SaveDialog1.Execute then B.SaveToFile(SaveDialog1.FileName);
B.Free;
end;

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Pe#ava
> Sent: Tuesday, March 06, 2001 2:17 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Ze by chyba v Bitmap.SaveToFile???
>
> Ahoj Delphaci, dlouho sem se na nic neptal, tak si to musim zase
> vynahradit. Potrebuju ukladat obsah TLabelu (CANVAS, proste grafickou
> reprezentaci) do *.bmp
> Pouzil jsem nasledujici kod, ale je zde problem.
>
> 1 UpdateLabel(Sender);
> 2 B.Width:=Label1.Width; B.Height:=Label1.Height;
> 3 BitBlt(B.Canvas.Handle,0,0,Label1.Width,Label1.Height,
> 4 Form1.Canvas.Handle,Label1.Left,Label1.Top,SRCCOPY);
> 5 Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
> 6 Image1.Picture.Assign(B);
> 7 UpdateLabel(Sender);
> 8 if SaveDialog1.Execute then
> 9 Image1.Picture.SaveToFile(SaveDialog1.FileName);
>
> na radku 6 se bitmapa s obrazkem LABELu ulozi do Image1, na 7mym radku
> se mimojine prekresli TForm. Ten obrazek je tam naprosto v poradku. Na
> 8mym a 9tym radku by se mela ta bitmapa ulozit. Pokud je
> tento kod volan
> poprve je vse v poradku. Pokud je volan podruhe ulozi se do *.bmp
> nesmysl. Musi se ukoncit program a znovu spustit. Pak to zase funguje
> pro jeden fajl. Jediny, co uz me snad napada, je chyba v
> TBitmap.SaveToFile ... jinak uz fakt nevim.
> Ve zdrojacich VCL se sice pohrabat muzu, ale nejsem zatim tak velkej
> Delphi profik, abych dokazal najit pripadnou chybu natoz ji opravit...
> Jo a abych nezapomel. Delphi 4 Prof, Win98 ... jo a dela to i
> kdyz je to
> spusteny z IDE ... i kdyz mimo ...
> Dik predem za jakoukoliv pomoc.
> --
> Martin Pe#ava
>
> /--------------------------------------------------------------\
> | E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
> | WebMaster of |
> |http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
> \--------------------------------------------------------------/
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001


BlobStream

[*] rado(zv)nnsk.sk - 7.3.2001 09:52:27

Ak Ti to pomoze, tu je kus kodu, ktory funguje
(samozrejme, na mojom stroji :-).

Pouziva IBX komponenty, ale v principe by nemal byt rozdiel.

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TStream;
Img: TJpegImage;
begin
// Load an image from database
Screen.Cursor := crHourGlass;
Data := IBTable1.CreateBlobStream(IBTable1.FieldByName('IMAGE_DATA'),
bmRead);
try
Img := TJpegImage.Create;
try
Img.LoadFromStream(Data);
Image1.Picture.Assign(Img);
finally
Img.Free;
end;
finally
Data.Free;
Screen.Cursor := crDefault;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Insert an image to database
with OpenPictureDialog1 do
begin
if Execute then
begin
IBTable1.Insert;
IBTable1.FieldByName('IMAGE_ID').AsInteger := 30000; // some unique id
TBlobField(IBTable1.FieldByName('IMAGE_DATA')).LoadFromFile(FileName);
IBTable1.FieldByName('USER_MODIFIED').AsString := 'SYSDBA';
IBTable1.FieldByName('LAST_MODIFIED').AsDateTime := Now;
IBTable1.FieldByName('IMAGE_TYPE').AsInteger := 6;
IBTable1.FieldByName('IMAGE_RANKING').AsInteger := 50;
IBTable1.Post;
end;
end;
end;

HTH,

bego


{$DEFINE name}

[*] Jio� Koeara <pazout(zv)sport(tec)cz> - 7.3.2001 10:07:03

Lze nadefinovat symbol 'name'
{$DEFINE name}
aby byl pouzitelny
{$IFDEF name}
ve vsech unitach projektu? Pazout


{$DEFINE name}

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 07.3.2001 10:17:44


Project Options|Directories and Conditionals|Conditional Defines
nebo alternativne vytvorit jeden sdileny soubor,
kde se ten symbol nadefinuje a pak ten soubor
vlozit do vsech unit {$I}. Zalezi na vkusu.

Ondrej Krajicek

Jio� Koeara wrote:
>
> Lze nadefinovat symbol 'name'
> {$DEFINE name}
> aby byl pouzitelny
> {$IFDEF name}
> ve vsech unitach projektu?
>
> Pazout


--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------


Ze by chyba v Bitmap.SaveToFile???

[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 07.3.2001 10:21:21

No dyt tak to delam ... asi sem to jenom blbe napsal ... (Zavirani
mysleno jako Destroy)

Lauko �tefan wrote:
>
> ----- Original Message -----
> Od: Martin Pe#ava <jimx(zv)volny(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odoslan�: 6. marec 2001 19:54
> Predmet: Re: Ze by chyba v Bitmap.SaveToFile???
>
> > Jeste pro upresneni. Objekt B vytvarim pri vytvareni Formu a rusim pri
> > zavirani Formu.
>
> Ahoj,
> to je ale zla konstrukcia, Objekt B vytvor v Form OnCreate a zrus v
> OnDestroy alebo v OnShow a OnClose.
> Lauko.

--
Martin Pe#ava

/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/

OT- Self-extractor

[*] Lauko #tefan <laukosw(zv)naex.sk> - 7.3.2001 10:24:26

Ahoj,
ja mam nieco podobne urobene pomocou componenty ZLIBArchive. Je to obmedzene
len na jednu disketu. Self extractor ma dlzku 104Kb (mozno by to slo este
otesat). Ja som to pouzil ako instalator (este v tom case som nevedel o
InnoSetup).
Potom este bola komponenta TLZHCompressor (niekde na Int.) kde bol kompletny
priklad.
Mozno to este niekde mam.
Lauko.

----- Original Message -----
Od: Zaplik <zaplik(zv)volny(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 7. marec 2001 7:36
Predmet: Re: OT- Self-extractor


> InnoSetup jsem zkousel, celkem by vyhovoval, ale potrebuji se nejak zbavit
> dialogu, jestli chci aplikaci spustit. Na to jsem nejak neprisel.
>
> Zaplik
>
> > Mozna by stacil i InnoSetup. Je to sice free program na vytvareni
> > instalaci, ale to co delas je vlastne instalace.
> >
> > ------
> > ing. Jan Fiala
> > mailto:jan.fiala(zv)iol(tec)cz
> >
> > 06.03.2001 Zaplik:
> > > Prosim Vas, nevite nekdo o free self-extractoru, ktery by:
> > > po jeho spusteni rozbalil obsah archivu a potom spustil aplikaci
> rozbalenou
> > > z archivu. Musi umet zvolit, jestli chci uzivateli dat moznost vyberu
> cesty
> > > pro rozbaleni nebo ne. Dale nechci potvrzovani dialogu typu
> > > provest/neprovest, spustit/nespustit. Plne by mi vyhovoval extractor z
> > > Salamanderu 1.6beta, ale autori chteji cca. 2000,- .Hlavne aby byl bez
> > > reklam!!!!
> > > Dik Zaplik
> >
> >
> > > ---
> > > Odchoz� zpr�va neobsahuje viry.
> > > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > > Verze: 6.0.226 / Virov� b�ze: 108 - datum vyd�n�: 5.1.2001
> >
> >
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.226 / Virov� b�ze: 108 - datum vyd�n�: 5.1.2001
>
>

SQL + presunuti zaznamu

[*] rado(zv)nnsk.sk - 7.3.2001 10:33:34

INSERT INTO TABLE1 (
FIELD1,
FIELD2
/* ... */
)
SELECT
FIELD1,
FIELD2
/* ... */
FROM TABLE2
WHERE BLAH

Toto plati pre IB, malo by byt podobne pre ine SQL
databazy.

HTH,

bego

> existuje nejaky jednoduchy zpusob jak presunout radek z jedny
> tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.
>
> Dik Ladap
>
> Delphi5 Pro, MSSQL7
>

Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 7.3.2001 10:37:33

Ahoj Petre,
kdyz jsem to udelal jak jsi mi radil a to nasledovne, tak mi to nefunguje:

procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
begin
if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu = False) and
(Zrus.Focused = False) then
begin
frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
'Varov�n�',mtWarning,[mbRetry]);
Sender(TDBEdit).SetFocus;
end;
end;

Ja pouzivam TDBEdit, vim v otazce predtim, byl TEdit, ale to na to snad nema
vliv, nebo ano ?
Compilator mi hlasi chybu Missing operator or semicolon a jeste dalsi chyby.
Nevis prosim co s tim.

Diky Filip


KADAO

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.3.2001 10:41:50

Ahoj,

pouzivate, prosim, nekdo KADAO20

Diky

Jaro B.

Pagescroller a Toolbar

[*] Banik Rastislav <banik(zv)svslm.sk> - 07.3.2001 11:00:02

Dobry den.

Mam v aplikacii ControlBar. V nom mam pagescroler a v nom toolbar.
V programe vytvaram postupne buttony. Ak dlzka buttonov presiahne
zobraz. plochu tak by mali naskocit sipky a malo by sa dat butony
rolovat.

Co treba nastavit ?

Diky za kazdu radu. Rasto Banik


uctenkova tiskarna

[*] BONNEL TECHNOLOGIE, v�voj <bonnel(zv)telecom(tec)cz> - 7.3.2001 11:05:04

Kdyz uz jsi to nacal - mne by se hodila tiskarnicka rizena po seriovem
portu, ktera tiskne na nejaky pasek jako maji kalkulacky - cili mala, levna
na koupi i provoz (ne termotisk).
propadne napady na soukr. mail, at tady nerozjizdime OT (staci tento).

Mira
ondrisek(zv)atlas(tec)cz

> -----Original Message-----
> Dobry den,
>
> resim tisk uctenek formatu A5 a prosim o doporuceni nejake k tomuto vhodne
> tiskarny.
>
> diky


Funkce

[*] Reznicek David <reznicek(zv)jakl(tec)cz> - 7.3.2001 11:15:09

Uz to nekdo psal. Jde o to, ze mesic uz nebudes vedet k cemu ta funkce
treba vubec byla a klidne se zeptas na Result a chyba (Acces violation)
je tam jak vysista.

-----Original Message-----
From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Sent: Wednesday, March 07, 2001 9:42 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Funkce


Diky vsem za namety na muj dotaz na funkci. Budu vam verit a dam tam tu
proceduru.

Jenom nerozumim tomu, proc tam nemuze byt ta f-ce. Nekdo mi psal duvod
warningy.

Vysvetlete mi to prosim blize, at jsem taky o neco chytrejsi.

Diky Filip


---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001


{$DEFINE name}

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 7.3.2001 11:20:45

[P��loha v souboru: winmail.dat]
RE: {$DEFINE name}Ahoj,
jak resite to, aby se zmena DEFINE odrazila v kazde unite projektu, kde je
odpovidajici IFDEF? (Tedy samozrejme pri kompilaci, ne pri buildu :-) Jde to
vubec ?

Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele Bene#
Jaroslav
Odesl�no: 7. b�ezna 2001 10:33
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: {$DEFINE name} Ahoj,

ja to delam pres include soubor, ktery pak zahrnu do kazde unity
(napriklad v knihovnach). Ale bylo mi doporuceno, abych pro aplikaci $DEFINE
psal primo do DPR, pry to funguje.

Jaro B.

> -----Original Message-----
> From: Jio� Koeara [mailto:pazout(zv)sport(tec)cz]
> Sent: Wednesday, March 07, 2001 10:07 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: {$DEFINE name}
>
>
> Lze nadefinovat symbol 'name'
> {$DEFINE name}
> aby byl pouzitelny
> {$IFDEF name}
> ve vsech unitach projektu?
>
>
> Pazout
>
>

SQL + presunuti zaznamu

[*] Bardoo <bardon(zv)akord-soft(tec)cz> - 7.3.2001 11:24:11

INSERT INTO TABLE_2
SELECT * FROM TABLE_1
WHERE PRIMARNI_KLIC=1

DELETE FROM TABLE_1
WHERE PRIMARNI_KLIC=1

Ale daleko lepsi by to bylo s vyctem poli.

-----P�vodn� zpr�va-----
Od: Parizsky Ladislav [SMTP:parizsky(zv)access-it(tec)cz]
Odesl�no: 6. b�ezna 2001 16:08
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: SQL + presunuti zaznamu

Cau,
existuje nejaky jednoduchy zpusob jak presunout radek z jedny tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.

Dik Ladap

Delphi5 Pro, MSSQL7

SQL + presunuti zaznamu

[*] Bardoo <bardon(zv)akord-soft(tec)cz> - 7.3.2001 11:27:01

Kdyby slo o presun cele tabulky, mozna by se dalo pouzit i sp_rename

-----P�vodn� zpr�va-----
Od: Doller.Jozef(zv)zsr.sk [SMTP:Doller.Jozef(zv)zsr.sk]
Odesl�no: 7. b�ezna 2001 9:09
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: SQL + presunuti zaznamu

select * into nova_tabulka
from tabulka

V Enterprise Manageri mus�te predt�m nastavit vlastnost "select into / bulk
copy"
Zvolte Properties Vasej DB a zalozku options

alebo

sp_dboption select into / bulkcopy - ale toto mi neslo zrejme mam chybnu
syntax
> -----P�vodn� zpr�va-----
> Od: Milan Tomes [SMTP:Milan.Tomes(zv)haida(tec)cz]
> Odesl�no: 7. marec 2001 8:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: SQL + presunuti zaznamu
>
> Co takhle stored procedura, ktera by delala insert into .... select from a
> potom delete ?
>
> Milan Tomes
>
> > Cau,
> > existuje nejaky jednoduchy zpusob jak presunout radek z jedny
> > tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.
> >
> > Dik Ladap
> >
> > Delphi5 Pro, MSSQL7
> __________ Informacia od NOD32 1.66 (20010216) __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.nod32.com
>
>
>

SQL + presunuti zaznamu

[*] Bardoo <bardon(zv)akord-soft(tec)cz> - 7.3.2001 11:28:57

INSERT INTO TABLE_2
SELECT * FROM TABLE_1
WHERE PRIMARNI_KLIC=1

DELETE FROM TABLE_1
WHERE PRIMARNI_KLIC=1

Ale daleko lepsi by to bylo s vyctem poli.

-----P�vodn� zpr�va-----
Od: Parizsky Ladislav [SMTP:parizsky(zv)access-it(tec)cz]
Odesl�no: 6. b�ezna 2001 16:08
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: SQL + presunuti zaznamu

Cau,
existuje nejaky jednoduchy zpusob jak presunout radek z jedny tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.

Dik Ladap

Delphi5 Pro, MSSQL7

SQL + presunuti zaznamu

[*] Bardoo <bardon(zv)akord-soft(tec)cz> - 7.3.2001 11:29:03

Kdyby slo o presun cele tabulky, mozna by se dalo pouzit i sp_rename

-----P�vodn� zpr�va-----
Od: Doller.Jozef(zv)zsr.sk [SMTP:Doller.Jozef(zv)zsr.sk]
Odesl�no: 7. b�ezna 2001 9:09
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: SQL + presunuti zaznamu

select * into nova_tabulka
from tabulka

V Enterprise Manageri mus�te predt�m nastavit vlastnost "select into / bulk
copy"
Zvolte Properties Vasej DB a zalozku options

alebo

sp_dboption select into / bulkcopy - ale toto mi neslo zrejme mam chybnu
syntax
> -----P�vodn� zpr�va-----
> Od: Milan Tomes [SMTP:Milan.Tomes(zv)haida(tec)cz]
> Odesl�no: 7. marec 2001 8:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: SQL + presunuti zaznamu
>
> Co takhle stored procedura, ktera by delala insert into .... select from a
> potom delete ?
>
> Milan Tomes
>
> > Cau,
> > existuje nejaky jednoduchy zpusob jak presunout radek z jedny
> > tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.
> >
> > Dik Ladap
> >
> > Delphi5 Pro, MSSQL7
> __________ Informacia od NOD32 1.66 (20010216) __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.nod32.com
>
>
>

Funkce

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.3.2001 11:30:19

Funkce se pouziva v pripade, ze potrebujes vracet nejaky vysledek. Tudiz pok
ud bys chtel vratit vysledek jestli se povoleni provedlo tak bys to zapsal j
ako funkci:
function EnableButton(btn : TButton) : boolean;
begin
Result := true;
try
btn.enabled := true;
except
Result := false;
end;
end;

V pripade, ze nechces nic vracet tak pouzij proceduru (i kdyz netvrdim, ze n
elze z procedury vratit hodnotu, ale je to tzv. hodnota predavana odkazem..
.)
procedure EnableButton(btn : TButton);
begin
btn.enabled := true;
end;

Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Hazuka Filip
> Sent: Wednesday, March 07, 2001 9:42 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Funkce
>
>
> Diky vsem za namety na muj dotaz na funkci. Budu vam verit a dam tam tu
> proceduru.
>
> Jenom nerozumim tomu, proc tam nemuze byt ta f-ce. Nekdo mi psal duvod
> warningy.
>
> Vysvetlete mi to prosim blize, at jsem taky o neco chytrejsi.
>
> Diky Filip


Problem s Qick Reportem

[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 7.3.2001 11:31:07

Dobry den
Pouzivam komponentu Delphi QuickReport na tvorbu tiskovych sestav.
Program funguje v poradku pod WiNT4,0 s tiskarnou LaserJet 1100, ale pod
Win95 tvorba sestav nefuguje a pri pokusu o tisk to vyhodi hlasku:
Aplikace xxxx porusila obecnou ochranu v modulu HPPTA.DRV na drese atd.
Mam takove tuseni, ze chyba bude nejspis v ovladaci tiskarny, protoze s
jinymi tiskarnami funguje tisk sestav bez problemu.
Nevite nekdo co s tim .
Nebo nevite nahodou nekdo o volne komponente, pro tvorbu tiskovych sestav.
S pozdravem
Dusan Fojtik


SQL dokumentace

[*] Jakub Pl�ek <kubapl(zv)seznam(tec)cz> - 7.3.2001 11:38:27

Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj,
nem�te n�kdo dokumentaci k SQL, nejl�pe �esky, nebo alespo� odkaz na www str�nku nebo knihu.
V t�to oblasti jsem naprosto dutej tak prosim n�co ne moc PROFI.

D�ky moc

Jakub Pl#ek
mailto:kubapl(zv)seznam(tec)cz
http://www.sweb(tec)cz/kubapl

CIE-LAB do RGB

[*] Ji�� Kr�l jr. - 7.3.2001 11:42:09

nevite nekdo kde se da pocist o algoritmu prepocteni techto barevnych
modelu?

diky

J.==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)

>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>#ampulka Ji��
>>Sent: Wednesday, March 07, 2001 9:45 AM
>>To: delphi-l(zv)fwd(tec)cz
>>Subject: RE: Ze by chyba v Bitmap.SaveToFile???
>>
>>
>>Zkus tohle:
>>
>>procedure TForm1.Button1Click(Sender: TObject);
>>var
>> B: TBitmap;
>>begin
>> B:=TBitmap.Create;
>> B.Width:=Label1.Width;
>> B.Height:=Label1.Height;
>> B.Canvas.CopyRect(B.Canvas.ClipRect,Form1.Canvas,Label1.BoundsRect);
>> if SaveDialog1.Execute then B.SaveToFile(SaveDialog1.FileName);
>> B.Free;
>>end;
>>
>>> -----Original Message-----
>>> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>> Martin Pe#ava
>>> Sent: Tuesday, March 06, 2001 2:17 PM
>>> To: delphi-l(zv)fwd(tec)cz
>>> Subject: Ze by chyba v Bitmap.SaveToFile???
>>>
>>>
>>> Ahoj Delphaci, dlouho sem se na nic neptal, tak si to musim zase
>>> vynahradit. Potrebuju ukladat obsah TLabelu (CANVAS, proste grafickou
>>> reprezentaci) do *.bmp
>>> Pouzil jsem nasledujici kod, ale je zde problem.
>>>
>>> 1 UpdateLabel(Sender);
>>> 2 B.Width:=Label1.Width; B.Height:=Label1.Height;
>>> 3 BitBlt(B.Canvas.Handle,0,0,Label1.Width,Label1.Height,
>>> 4 Form1.Canvas.Handle,Label1.Left,Label1.Top,SRCCOPY);
>>> 5 Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
>>> 6 Image1.Picture.Assign(B);
>>> 7 UpdateLabel(Sender);
>>> 8 if SaveDialog1.Execute then
>>> 9 Image1.Picture.SaveToFile(SaveDialog1.FileName);
>>>
>>> na radku 6 se bitmapa s obrazkem LABELu ulozi do Image1, na 7mym radku
>>> se mimojine prekresli TForm. Ten obrazek je tam naprosto v poradku. Na
>>> 8mym a 9tym radku by se mela ta bitmapa ulozit. Pokud je
>>> tento kod volan
>>> poprve je vse v poradku. Pokud je volan podruhe ulozi se do *.bmp
>>> nesmysl. Musi se ukoncit program a znovu spustit. Pak to zase funguje
>>> pro jeden fajl. Jediny, co uz me snad napada, je chyba v
>>> TBitmap.SaveToFile ... jinak uz fakt nevim.
>>> Ve zdrojacich VCL se sice pohrabat muzu, ale nejsem zatim tak velkej
>>> Delphi profik, abych dokazal najit pripadnou chybu natoz ji opravit...
>>> Jo a abych nezapomel. Delphi 4 Prof, Win98 ... jo a dela to i
>>> kdyz je to
>>> spusteny z IDE ... i kdyz mimo ...
>>> Dik predem za jakoukoliv pomoc.
>>> --
>>> Martin Pe#ava
>>>
>>> /--------------------------------------------------------------\
>>> | E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
>>> | WebMaster of |
>>> |http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
>>> \--------------------------------------------------------------/
>>> ---
>>> P��choz� zpr�va neobsahuje viry.
>>> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>>> Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
>>>
>>---
>>Odchoz� zpr�va neobsahuje viry.
>>Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>>Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
>>

Zadost o spolupraci - nastaveni proxy v MSIE

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2001 12:02:45

> Nasel jsem nejake nesrovnalosti v registru v klici
HKCU\SOFTWARE\Microsoft\W
> indows\CurrentVersion\Internet Settings polozka ProxyEnable.
> Potreboval bych zjistit kdy a jak to tam zapisuje - nekdy je to integer
nekd
> y binary a na tom mi zhavaruje moje metoda pro zjistovani proxy serveru :(
> Mohli by jste mi na mail mailto:Milan.Tomes(zv)haida(tec)cz poslat typ teto
polozky
> , verzi Win a verzi IE ???

mam pocit, ze nastaveni proxy se da vycist nejakou API funkci z DLLka
zavleceneho do windows Explorerem....


D. Toman

OT- Self-extractor

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2001 12:11:06

> Ahoj,
> ja mam nieco podobne urobene pomocou componenty ZLIBArchive. Je to
obmedzene
> len na jednu disketu. Self extractor ma dlzku 104Kb

no muj ma cca 30kB, zobrazuje okno, pouziva ZLib a je cely psan v D5

>(mozno by to slo este
> otesat). Ja som to pouzil ako instalator (este v tom case som nevedel o
> InnoSetup).

InnoSetup je docela dobra a povedena vec, ale neumi nektere dulezite veci
(instalace services,...). Sice jsou k nemu zdrojaky, ale je treba je
kompilovat v D3 (pokud jsem spravne pochopil) aby se docililo mensi delky
kodu (D3 generuji cca o 150 kB kratsi VCL kod)

> Potom este bola komponenta TLZHCompressor (niekde na Int.) kde bol
kompletny
> priklad.

LZH komprese je nic moc. ZLib urcite komprimuje o moc lepe...


D. Toman

Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 7.3.2001 12:17:06

A neni chyba v pretypovani?

Podle my by to spis melo byt

(Sender as TDBedit).Text
nebo
TDBEdit(Sender).Text

Karel

-----P�vodn� zpr�va-----
Od: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Odesl�no: 7. b�ezna 2001 10:38
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Dotaz Funkce > pro Petra, muzou i ostatni :-))))


Ahoj Petre,
kdyz jsem to udelal jak jsi mi radil a to nasledovne, tak mi to nefunguje:

procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
begin
if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu = False) and
(Zrus.Focused = False) then
begin
frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
'Varov�n�',mtWarning,[mbRetry]);
Sender(TDBEdit).SetFocus;
end;
end;

Ja pouzivam TDBEdit, vim v otazce predtim, byl TEdit, ale to na to snad nema
vliv, nebo ano ?
Compilator mi hlasi chybu Missing operator or semicolon a jeste dalsi chyby.
Nevis prosim co s tim.

Diky Filip


Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 7.3.2001 12:25:53

Ahoj,

nemelo by tam nahodou byt:

if (TDBEdit(Sender).Text = '') and (DataModul.ZruseniZaznamu = False)
.....
^^^^^^^^^^^^^^^


Ales

> -----Original Message-----
> From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
>
> procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
> begin
> if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu
> = False) and
> (Zrus.Focused = False) then
> begin
> frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
> 'Varov�n�',mtWarning,[mbRetry]);
> Sender(TDBEdit).SetFocus;
> end;
> end;
>

Funkce

[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 7.3.2001 12:26:30

Myslim, ze by sis mel nekde sehnat nejakou ucebnici zakladu programovani.
Rozdil mezi funkci a procedurou je podle me opravdu zaklad a nedelal bych z
teto konference kurz zakladu �rpgramovani na pokracovani. Michal Tiller

-----Original Message-----
From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Sent: Wednesday, March 07, 2001 9:42 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Funkce


Diky vsem za namety na muj dotaz na funkci. Budu vam verit a dam tam tu
proceduru.

Jenom nerozumim tomu, proc tam nemuze byt ta f-ce. Nekdo mi psal duvod
warningy.

Vysvetlete mi to prosim blize, at jsem taky o neco chytrejsi.

Diky Filip


Zadost o spolupraci - nastaveni proxy v MSIE

[*] brant(zv)dcomm(tec)cz - 7.3.2001 12:27:52

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.

Nevim, jestli se to toho primo tyka, ale treba by ti mohly pomoci tyto
odkazy:

Internet Explorer Control Panel Restrictions (Windows 9x and NT)
The features available within the Internet Explorer control panel
(Tools -> Internet Options) can be individually managed and disabled
using this tweak.
More Info: http://registry.winguides.com/display.php/797/

Changing the Internet Explorer User Agent String (95, 98, ME & NT/2000)
Whenever a web browser is used to connect to a remote web server it
includes a User Agent string that contains details about browser and
operating system. This tweak allows you to add or remove additional
information from this string.
More Info: http://registry.winguides.com/display.php/799/

-----Original Message-----
From: Milan Tome# [mailto:Milan.Tomes(zv)haida(tec)cz]
Sent: Wednesday, March 07, 2001 9:13 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Zadost o spolupraci - nastaveni proxy v MSIE


Zdravim vsechny,

mohli byste mi prosim pomoct ???

Nasel jsem nejake nesrovnalosti v registru v klici HKCU\SOFTWARE\Microsoft\W
indows\CurrentVersion\Internet Settings polozka ProxyEnable.
Potreboval bych zjistit kdy a jak to tam zapisuje - nekdy je to integer nekd
y binary a na tom mi zhavaruje moje metoda pro zjistovani proxy serveru :(
Mohli by jste mi na mail mailto:Milan.Tomes(zv)haida(tec)cz poslat typ teto polozky
, verzi Win a verzi IE ???

Diky

Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.228 / Virov� b�ze: 109 - datum vyd�n�: 17.1.2001

Funkce

[*] brant(zv)dcomm(tec)cz - 7.3.2001 12:34:38

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 to, ze pokud nepredepises navratovou hodnotu, vrati funkce hodnotu
nahodnou. A pokud se jedna o vetsi projekt nebo o projekt, na kterem pracuje
vice lidi, nekdo si toho nevsimne a pouzije tuto nahodnou hodnotu ve sve
casti programu. A tam se to samozrejme sesype. Proto kompilator varuje pred
tim, ze funkce nema predepsanou navratovou hodnotu, aby k podobnym situacim
nedochazelo.

RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380

D&COMM s.r.o
Korunova�n� 6
Praha 7
Diky vsem za namety na muj dotaz na funkci. Budu vam verit a dam tam tu
proceduru.

Jenom nerozumim tomu, proc tam nemuze byt ta f-ce. Nekdo mi psal duvod
warningy.

Vysvetlete mi to prosim blize, at jsem taky o neco chytrejsi.

Diky Filip


Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.3.2001 12:38:43


Mas tam chyby:

procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
begin
if (TDBEdit(Sender).Text = '') and (DataModul.ZruseniZaznamu = False) and
(Zrus.Focused = False) then
begin
frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole +' !',
'Varov�n�',mtWarning,[mbRetry]);
TDBEdit(Sender).SetFocus;
end;
end;

U pretypovavani musis uvest ne Sender(TDBEdit) ale TDBEdit(Sender) a ja bych
spise pouzil Sender as TDBEdit a pak ti taky v tom varovani chybelo jedno +


Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz


> Ahoj Petre,
> kdyz jsem to udelal jak jsi mi radil a to nasledovne, tak mi to nefunguje:
>
> procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
> begin
> if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu = False) and
> (Zrus.Focused = False) then
> begin
> frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
> 'Varov�n�',mtWarning,[mbRetry]);
> Sender(TDBEdit).SetFocus;
> end;
> end;
>
> Ja pouzivam TDBEdit, vim v otazce predtim, byl TEdit, ale to na
> to snad nema
> vliv, nebo ano ?
> Compilator mi hlasi chybu Missing operator or semicolon a jeste
> dalsi chyby.
> Nevis prosim co s tim.
>
> Diky Filip


Funkce

[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 7.3.2001 12:40:52

Ona i ta funkce tam muze byt, ale musis tam mit nadefinovanou nejakou
navratovou hodnotu - ve Tvem pripade bych volil nil nebo parametr TEdit.

Komplikator totiz nepozna, jestli je funkce volana jako procedura nebo se
jeji hodnota n�kam prirazuje a pak to dela ty warningy.

Martin

-----Original Message-----
From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Sent: Wednesday, March 07, 2001 9:42 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Funkce


Diky vsem za namety na muj dotaz na funkci. Budu vam verit a dam tam tu
proceduru.

Jenom nerozumim tomu, proc tam nemuze byt ta f-ce. Nekdo mi psal duvod
warningy.

Vysvetlete mi to prosim blize, at jsem taky o neco chytrejsi.

Diky Filip


SetFocus na Frame

[*] "Fait Ji��, ml." <fait(zv)jakl(tec)cz> - 7.3.2001 12:40:31

No celkem jiste by tam ale mel byt nazev toho (nebo te) Frame.

Jiri Fait.

-----Original Message-----
From: Pavol Kaka�ka [mailto:paka(zv)aktis(tec)cz]
Sent: Wednesday, March 07, 2001 8:56 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: SetFocus na Frame


>poradi mi prosim nekdo jak zafocusovat TEdit ktery patri TFrame?
>nemuzu furt prijit na to kouzelne sluvko

A kde je problem???

malo by to ist takto:

if Edit.CanFocus then
Edit.SetFocus;

s tym, ale ze ak je ten frame napriklad na PageControlu tak musi byt
nastavena aktivny TTabSheet ten, na ktoom je ten edit. Inak to nema
zmysel.

Pavol Kaka�ka
kasix(zv)atlas(tec)cz

---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001

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


BlobStream

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 07.3.2001 12:42:51

> Jeste me napadlo, co zkusit ukladat jiny BlobType - treba ftGraphic ?
>
> Ing. Jiri Foldyna


Nefunguje :-(> > Ako som uz spominal, najlepsi vysledok je ten,
> > ze ziskam len prve 3 byte hlavicky.
> > Zvysok od prvej nuly v hlavicke
> > BlobStrem (nevedno preco) vrati
> > orezany. Rozmyslam, ze prislusne
> > binarne data budem prevadzat
> > do UUENCODE. Ale bude to
> > trochu pritiahnute za vlasy.
> > Mimochodom velkostou obrazka
> > to nie je - momentalne pcham
> > do databazy cca 200 bytovu
> > bitmapu.
> >
> > Vlkovic
> >
> > > > Ahoj,
> > > > odvcera sa trapim s citanim blobu z databazy.
> > > > D3 -> DBF -> TQuery -> TBlobStream
> > > > (de o BMP obrazok).
> > > > Zapis blobu do databazy je bez problemov,
> > > > (obrazok v prislusnom Memo subore sa nachadza),
> > > > Nemozem ho vsak z databazy nijako vydolovat.
> > > > Uz som skusal vsetko mozne.
> > > > Robim to takto:
> > > >
> > > > Citanie robim takto (jedna z mnohych variant):
> > > > ----------------------------------------------
> > > >
> > > > var
> > > > Buffer: PChar;
> > > > MemSize: Integer;
> > > > MStream: TMemoryStream;
> > > > BStream: TBlobStream;
> > > >
> > > > begin
> > > > Query1.Sql.Clear;
> > > > Query1.Sql.Add('SELECT *');
> > > > Query1.Sql.Add('FROM "' + DBName + '"');
> > > > Query1.Sql.Add('AS ADR');
> > > > Query1.Sql.Add('WHERE ADR.RECNO = :R');
> > > > Query1.Prepare;
> > > > Query1.Params[0].AsString := IntToStr ( ARec );
> > > > Query1.Open;
> > > > Name.Text := Query1.FieldByName('NAME').AsString;
> > > > Phone.Text := Query1.FieldByName('PHONE').AsString;
> > > > Email.Text := Query1.FieldByName('EMAIL').AsString;
> > > > Notes.Text := Query1.FieldByName('NOTES').AsString;
> > > > BStream := TBlobStream.Create(
> > > > TBlobField(query1.FieldByName('FOTO')), bmRead );
> > > > try
> > > > MemSize := BStream.Size;
> > > > if MemSize > 0 then
> > > > begin
> > > > Inc(MemSize); // priestor pre koncovy null terminator ???
> > > > Buffer := AllocMem ( MemSize ); // alokacia pamati
> > > > MStream := TMemoryStream.Create();
> > > > try
> > > > BStream.Position := 0; // pre istotu
> > > > BStream.Read ( Buffer^, MemSize ); // Nacita blob
> > > > BStream.Position := 0;
> > > > Image1.Picture.Bitmap.LoadFromStream ( BStream );
> > > > finally
> > > > FreeMem ( Buffer, MemSize );
> > > > MStream.Free();
> > > > end;
> > > > end;
> > > > finally
> > > > BStream.Free;
> > > > end;

BlobStream

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 07.3.2001 13:00:48

Nefunguje.
V okamihu priradenia polozky (MyImage.DataField := 'Picture')
vznikne chyba Stream read error.

Urobim to nakoniec asi tak, ze obrazok
budem ukladat do databazy ako textove Memo,
hoci si vyziada zbytocne konverzie (napriklad
do Hexa) pri jeho zapise a citani.

Vlkovic


> take se mi to nepodarilo nacist pres Stream a tak jsem to 'obesel'
> takto:
> var
> MyImage : TDBImage;
> begin
> MyImage := TDBImage.Create(Self);
> try
> MyImage.DataField := 'Picture';
> MyImage.DataSource := DataModul.DataSourceKovani;
> MyImage.Visible :=false;
> FormKovaniKarta.Image1.Picture.Assign(MyImage.Picture);
> finally
> MyImage.Free;
> end;
> end;

Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 7.3.2001 13:02:34

Me se tam nelibi to "Sender(TDBEdit)" Jiste by tam melo byt
"TDBEdit(Sender)".
Michal Tiller

-----Original Message-----
From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Sent: Wednesday, March 07, 2001 10:38 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: Dotaz Funkce > pro Petra, muzou i ostatni :-))))


Ahoj Petre,
kdyz jsem to udelal jak jsi mi radil a to nasledovne, tak mi to nefunguje:

procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
begin
if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu = False) and
(Zrus.Focused = False) then
begin
frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
'Varov�n�',mtWarning,[mbRetry]);
Sender(TDBEdit).SetFocus;
end;
end;

Ja pouzivam TDBEdit, vim v otazce predtim, byl TEdit, ale to na to snad nema
vliv, nebo ano ?
Compilator mi hlasi chybu Missing operator or semicolon a jeste dalsi chyby.
Nevis prosim co s tim.

Diky Filip


pristup D5 pres BDE5.01 k Accessu 97

[*] jsramek(zv)kodys(tec)cz - 7.3.2001 13:03:52

Ahoj,
mam aplikaci v D5, ktera pristupuje pres BDE 5.01 k databzi Accessu
97. Kdyz vytvorim instalaci v InstallShiledu vcetne plne instalace
BDE, tak mi to i presto nelze na nekterych PC nainstalovat. Hlasi mi
to chybu Cannot load an IDAPI service library, file IDDA3532.dll.
Dival jsem se do diskuse a zkousel vsechno mozne, ale vysledek byl
ten, ze kdyz jsem tuto chybu potlacil, vyskytla se dalsi. Posledni
chybova hlaska byla : The JET VBA file VBAJET32.dll dailed to
initialize when called.
Netusim proc to nejde... v diskusi nekdo neco naznacoval, ze se musi
zasahnout do registru a zaregistrovat hromadu dalsich knihoven.
Nechapu, proc to ale neudela instalace BDE?

Prosim poradte mi. Uz se tim trapim fakt dlouho...
Dik,

Jakub �r�mek
jsramek(zv)kodys(tec)cz


OT- Self-extractor

[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 7.3.2001 13:06:34


www.powerarchiver.com

A nebo urob si sam v Delphi - HKSetup zkus se po tom nekde podivat, na
uvedene URL uz tusim nic neni:


README.TXT:

HKSetup v1.1 by Harry Kakoulidis 12/1999
kcm(zv)mailbox.gr
http://kakoulidis.homepage.com

This is Freeware. If you find bugs,
have options etc. Please send at my e-mail.

The use of this program is at your own risk.
I do not take any responsibility for any damages.


HKSetup is a template project to create self-extracting zip files. The
program Unzip's the zip with internal routines in the windows temporary
directory, asks for confirmation, and executes (all of these are options) a
exe file. This is perfect for making Install Shield's setups into one
Self-setup Exe file. These routines are NOT encapsulated in a component, nor
is the forms unit loaded, so only 80kb are added to the zip file.


To use follow the steps

1. Make a zip file and copy it into the project directory that you have put
HKSetup.

2. Name it MyZip.zip (this name is not shown or used in the final exe)

3. Execute MyZip.bat. Make sure that borland's BRC32.EXE (found in the /BIN
dir) is in the path, else find it and copy it too in the same dir.
(or better add it the path)

4. Now you should have a file called MyZip.RES. This is the resource
containing the ZIP that will be compiled into the EXE.

5. Go to Delphi, open Setup.dpr (it doesn't have a form) and change the
consts to what you need (there are comments there)

6. Compile! you are ready. Rename Setup.exe to whatever you like.

7. Note: Take notice that some Zip compressing programs do not make it clear
when zipping files that they will add them to an existing zip if you type in
the same name. So it's a good idea to rename MyZip.zip to something else
afterwards, so you wont have this mixup in your next project.

SQL dokumentace

[*] Doller.Jozef(zv)zsr.sk - 7.3.2001 13:07:42

Na http://www.penguin(tec)cz/noviny/?id=chip/index
su k dispozicii clanky z casopisu CHIP (nechcem robit reklamu) o SQL v PDF

asi 9 MB

> -----P�vodn� zpr�va-----
> Od: Jakub Pl#ek [SMTP:kubapl(zv)seznam(tec)cz]
> Odesl�no: 7. marec 2001 11:38
> Komu: Delphi (tec)cz
> P�edm�t: SQL dokumentace
>
> Ahoj,
> nem�te n�kdo dokumentaci k SQL, nejl�pe �esky, nebo alespo� odkaz na www
> str�nku nebo knihu.
> V t�to oblasti jsem naprosto dutej tak prosim n�co ne moc PROFI.
>
> D�ky moc
>
> Jakub Pl#ek
> <mailto:kubapl(zv)seznam(tec)cz>
> <http://www.sweb(tec)cz/kubapl>
>

simulace stisku klavesy II

[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 7.3.2001 13:11:27

> mam spustenou cizi aplikaci (jejiz HANDLE1 znam) a ta
> obsahuje napr. Memo
> (s jinym handle HANDLE2, ktere neznam). Kdyz provedu
> PostMessage(HANDLE1,
> WM_KEYDOWN, ord('A') ,0); nestane se nic. Jestlize si ale
> pomoci WinSight32
> zjistim HANDLE2 a provedu PostMessage(HANDLE2, WM_KEYDOWN,
> ord('A') ,0);
> vse funguje jak ma. Problem je, jak obecne zjistim HANDLE2 -
> tj. jak zjistim
> handle zamereneho prvku formulare?
> Prosim, poradte.
ja som to obisiel tak, ze som si zistil, ktory prvok ma focus vzdy
pri zobrazeni okna.
potom poslem TAB az kym sa nenastavim na mnou pozadovany prvok.
potom zavolam
ghwnd = ::GetFocus();

a potom posielam eventy.
Ale nie je to velmi "ciste" riesenie.
/LH


SQL + presunuti zaznamu -Vyreseno

[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 07.3.2001 13:15:54

Dekuji vsem,
pouzil jsem

INSER INTO () SELECT () FROM WHERE

a pak ten zaznam smazu

dik Ladap

>>> bardon(zv)akord-soft(tec)cz 7.3.01 11:27 >>>
Kdyby slo o presun cele tabulky, mozna by se dalo pouzit i sp_rename

-----Puvodn� zpr�va-----
Od: Doller.Jozef(zv)zsr.sk [SMTP:Doller.Jozef(zv)zsr.sk]
Odesl�no: 7. boezna 2001 9:09
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: SQL + presunuti zaznamu

select * into nova_tabulka
from tabulka

V Enterprise Manageri mus�te predt�m nastavit vlastnost "select into / bulk
copy"
Zvolte Properties Vasej DB a zalozku options

alebo

sp_dboption select into / bulkcopy - ale toto mi neslo zrejme mam chybnu
syntax
> -----Puvodn� zpr�va-----
> Od: Milan Tomes [SMTP:Milan.Tomes(zv)haida(tec)cz]
> Odesl�no: 7. marec 2001 8:29
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: RE: SQL + presunuti zaznamu
>
> Co takhle stored procedura, ktera by delala insert into .... select from a
> potom delete ?
>
> Milan Tomes
>
> > Cau,
> > existuje nejaky jednoduchy zpusob jak presunout radek z jedny
> > tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.
> >
> > Dik Ladap
> >
> > Delphi5 Pro, MSSQL7
> __________ Informacia od NOD32 1.66 (20010216) __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.nod32.com
>
>
>

Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 7.3.2001 13:24:14


V pretypovani to neni.
Hlaska: Missing operator or semicolon znamena ze chyba nejake znamienko
alebo operator ;-) v tomto pripade je z textu patrne ze :

miesto: NazevPole ' !',
ma byt: NazevPole + ' !',

Pavol Kaka�ka
kasix(zv)atlas(tec)cz

----- Original Message -----
From: "CHMEL Karel, Mgr." <kchmel(zv)csob(tec)cz>

A neni chyba v pretypovani?

Podle my by to spis melo byt

(Sender as TDBedit).Text
nebo
TDBEdit(Sender).Text

Karel

-----P�vodn� zpr�va-----
Od: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Odesl�no: 7. b�ezna 2001 10:38
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Dotaz Funkce > pro Petra, muzou i ostatni :-))))


Ahoj Petre,
kdyz jsem to udelal jak jsi mi radil a to nasledovne, tak mi to nefunguje:

procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
begin
if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu = False) and
(Zrus.Focused = False) then
begin
frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
'Varov�n�',mtWarning,[mbRetry]);
Sender(TDBEdit).SetFocus;
end;
end;

Ja pouzivam TDBEdit, vim v otazce predtim, byl TEdit, ale to na to snad nema
vliv, nebo ano ?
Compilator mi hlasi chybu Missing operator or semicolon a jeste dalsi chyby.
Nevis prosim co s tim.

Karta Woodoo a poskozen� ikonky Delphi

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.3.2001 13:28:24

Ahoj,

ja mam taky 3Dfx Woodoo3, on board, 8 MB RAM (internal DAC), bezi to na
Win2000, a mam problemy s ikonami Delphi 5 (ale i v Delphi 3). Pokud
knihovny BPL prebuduju, tak je do OK. Pokud ale ukoncim Delphi, tak po
novem startu jsou bud cerne nebo nejak zmrsene (a jsou tak i na
formularich a v seznamu ikon palety). Preinstaloval jsem posledni verzi
ovladace urceneho pro tuto kartu a Win2000, ale nepomohlo to. Servisni
program k manualnimu nastaveni karty jsem nikde nenasel. Pokud je
potreba jeste nekde neco nastavit, pak nevim kde....

Co mi, prosim, poradite?

Jaro B.

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jaroslav Sipek
Sent: Wednesday, March 07, 2001 7:47 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Karta Woodoo a poskozen� ikonky Delphi


Ahoj,
ja mam Voodoo3 2000 16M a Delphi5 a vse je OK.

Jaroslav Sipek
mailto:jaroslav.sipek(zv)idea(tec)cz
http:\\www.idea(tec)cz <http://www.idea(tec)cz/>

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Str�n�k Franti#ek
Sent: Tuesday, March 06, 2001 3:47 PM
To: Delphi konference
Subject: Karta Woodoo a po#kozen� ikonky Delphi



Pratele,
stary problem - nyni pouze jenom zkusenost. Mate nekdo zkusenost s
grafickou kartou Woodoo a s ikonkama Delphi 20
Poskozuje nebo neposkozuje 20
Diky za odpoved !

Zdravi F.Stranik
FSTRANIK(zv)CPOJ.CZ

---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001

AdvStringGrid

[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 07.3.2001 13:37:39

Zdravim,
pouzivam AdvStringGrid (kvuli ComboBoxum). V jednom sloupci kontroluji duplicitu. Ted ji mam v Event OnCellChanging. Kontrola funguje dobre. Ale pokud najde duplicitu, tak porad nemuzu prijit na to, jak se dostat opet na to spatne pole. Pouzivam Col:=OldCol a Row:=OldRow. Jenomze to nevede ke kyzenemu vysledku. Stejne to skace tam kam to ma namireno a ne mne to moc nehledi. Mam tu kontrolu dat do jineho Event? Poradite nekdo?
S pozdravem Mirek Drejcek.

NSQLRB

[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 7.3.2001 13:38:58

Nova verzia 1.3 generatoru tlacovych zostav NSQLRB je na svete.
Po krvopotnej praci sa mi podarilo vyriesit bugy QuickRep 3.x
Tato verzia by mala byt stabilna - prax ukaze.
Budem rad ak mi napisete pripomienky a mozno dalsie bugy.

Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk

NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )


> -----P�vodn� zpr�va-----
> Od: Hazuka Filip [SMTP:filip.hazuka(zv)multivac(tec)cz]
> Odesl�no: 7. marec 2001 10:38
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Dotaz Funkce > pro Petra, muzou i ostatni :-))))
>
> Ahoj Petre,
> kdyz jsem to udelal jak jsi mi radil a to nasledovne, tak mi to nefunguje:
>
> procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
> begin
> if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu = False) and
> (Zrus.Focused = False) then
> begin
> frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
> 'Varov�n�',mtWarning,[mbRetry]);
> Sender(TDBEdit).SetFocus;
> end;
> end;
>
> Ja pouzivam TDBEdit, vim v otazce predtim, byl TEdit, ale to na to snad
> nema
> vliv, nebo ano ?
> Compilator mi hlasi chybu Missing operator or semicolon a jeste dalsi
> chyby.
> Nevis prosim co s tim.
>
> Diky Filip


Zadost o spolupraci - nastaveni proxy v MSIE

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.3.2001 13:47:31

NEEEEEEEEEEEEEEEEE to nechci :( Ja si to radsi prectu a rozparsuju sam :)

Milan Tomes

P.S.: Ale stejne diky

> mam pocit, ze nastaveni proxy se da vycist nejakou API funkci z DLLka
> zavleceneho do windows Explorerem....
>
>
> D. Toman
>

Karta Woodoo a poskozen� ikonky Delphi

[*] Zika Petr <pzika(zv)ciglersw(tec)cz> - 7.3.2001 13:48:41

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.

Mam STB Velocity (coz by mela byt Voodoo3) a Win2000 a Delphi se chova
podobne. Protoze se me nechtelo hledat a instalovat dalsi ovladace, tak jsem
v nastaveni grafiky snizil hardwarovou akceleraci o jeden dilek a je to OK.

Petr

-----Original Message-----
From: Bene# Jaroslav [mailto:JBenes(zv)cpoj(tec)cz]
Sent: Wednesday, March 07, 2001 1:28 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Karta Woodoo a poskozen� ikonky Delphi
Importance: High


Ahoj,

ja mam taky 3Dfx Woodoo3, on board, 8 MB RAM (internal DAC), bezi to na
Win2000, a mam problemy s ikonami Delphi 5 (ale i v Delphi 3). Pokud
knihovny BPL prebuduju, tak je do OK. Pokud ale ukoncim Delphi, tak po novem
startu jsou bud cerne nebo nejak zmrsene (a jsou tak i na formularich a v
seznamu ikon palety). Preinstaloval jsem posledni verzi ovladace urceneho
pro tuto kartu a Win2000, ale nepomohlo to. Servisni program k manualnimu
nastaveni karty jsem nikde nenasel. Pokud je potreba jeste nekde neco
nastavit, pak nevim kde....

Co mi, prosim, poradite?

Jaro B.

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jaroslav Sipek
Sent: Wednesday, March 07, 2001 7:47 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Karta Woodoo a poskozen� ikonky Delphi


Ahoj,
ja mam Voodoo3 2000 16M a Delphi5 a vse je OK.

Jaroslav Sipek
mailto:jaroslav.sipek(zv)idea(tec)cz
http:\\www.idea(tec)cz <http://www.idea(tec)cz/>

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Str�n�k Franti#ek
Sent: Tuesday, March 06, 2001 3:47 PM
To: Delphi konference
Subject: Karta Woodoo a po#kozen� ikonky Delphi



Pratele,
stary problem - nyni pouze jenom zkusenost. Mate nekdo zkusenost s
grafickou kartou Woodoo a s ikonkama Delphi 20
Poskozuje nebo neposkozuje 20
Diky za odpoved !

Zdravi F.Stranik
FSTRANIK(zv)CPOJ.CZ

---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001


---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2. 2001

Problem BDE-MSSQL65

[*] Petr Fojt�k <fof(zv)foresta(tec)cz> - 7.3.2001 13:53:15

Zdravim vsechny a hned predkladam svuj problem s nalehavou prosbou o radu.
Mam Delphi 4 C/S, BDE 5.01, MS SQL server 6.5
Nechodi mi v programu prikazy, kdy posilam na MSSQL polozky Date nebo
DateTime pomoci Query, napr.
Query1.ParamByName().AsDateTime := StrToDateTime()
Query1.FieldByName().AsDateTime := StrToDateTime()
( to same i kdyz misto DateTime pouziju pouze Date ). Chyba se projevi pri
Open nebo ExecSQL.
Trasovanim na SQL-serveru jsem zjistil, ze server dostava tyto polozky v
tomto tvaru (pro datum 3.5.2001) :
"3 V 2001 0:00:00.000 ", coz se mu pochopitelne nelibi a vede k chybe
"General SQL error. Syntax error converting DATETIME from character string".
Chyba je pouze pri pouziti aliasu pres nativni ovladac (typ MSSQL), alias
pres ODBC
pracuje normalne.
Tato chyba se projevuje nejenom u mne a nejenom proti jednomu SQL serveru,
ale asi mame vsichni stejne instalace.
Ovsem u zakaznika vse chodi v poradku a do databaze se dostane retezec
"May 3 2001 12:00:00.000 AM".
Stahl jsem si od zakaznika soubory BDE i adresar Binn z MS SQL a prepsal u
sebe, nepomohlo to. Stejne tak soubory SQLMSS32.DLL a NTWDBLIB.DLL. Ani
ruzne nastaveni Langdriver u pouziteho aliasu. Taky jsem prestavil Mistni
nastaveni u sveho serveru i klienta podle zakaznika, opet bez vysledku.
Jediny rozdil mezi mnou a zakaznikem je v tom, ze je mam Windows NT 4.0
Workstation CZ (server i klient), kdezto zakaznik ma anglicke NT a server
ma na NT server.
Zhruba pred rokem jsem tento program vyvijel na jinem pocitaci (myslim ze se
stejnou
instalaci D4 a BDE) a proti stejnemu serveru, ktery dnes nechodi.
Samozrejme ze vsechno slo normalne.
Ani presne nevim jestli chybu zpusobuje BDE nebo az MSSQL. Budu vdecny
za kazdou radu nebo aspon nasmerovani.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Petr Fojt�k, Foresta SG fof(zv)foresta(tec)cz 0657 - 687 134

SQL dokumentace

[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 7.3.2001 14:05:20

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.

Doporucuji publikaci "SQL Kompletni kapesni pruvodce" od nakladatelstvi
Grada.
Je to male a prehledne. Stoji to cca 180 Kc.
Michal Tiller


-----Original Message-----
From: Jakub Pl#ek [mailto:kubapl(zv)seznam(tec)cz]
Sent: Wednesday, March 07, 2001 11:38 AM
To: Delphi (tec)cz
Subject: SQL dokumentace


Ahoj,
nem�te n�kdo dokumentaci k SQL, nejl�pe �esky, nebo alespo� odkaz na www
str�nku nebo knihu.
V t�to oblasti jsem naprosto dutej tak prosim n�co ne moc PROFI.

D�ky moc

Jakub Pl#ek
mailto:kubapl(zv)seznam(tec)cz <mailto:kubapl(zv)seznam(tec)cz>
http://www.sweb(tec)cz/kubapl <http://www.sweb(tec)cz/kubapl>

Post a ALT+F4 nebo Krizek

[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 7.3.2001 14:10:24

Ahoj,

nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se provedl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi ...

Diky


Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] Petr <DelphiForum(zv)seznam(tec)cz> - 7.3.2001 14:12:45

Chybove hlaseni "Missing operator or semicolon" pise v pripade ze ti nekde
chybi znak, ktery tam ma byt. Napr.
Edit1.Text := 'ahoj' promenna;
tady chybi + mezi 'ahoj' a promenna.
spravne to ma byt 'ahoj'+promenna;

Stejne jako v tvojem pripade v MsgDlg za NazevPole ti chybi +.

Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz


----- Original Message -----
From: Hazuka Filip <filip.hazuka(zv)multivac(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 07, 2001 10:37 AM
Subject: Dotaz Funkce > pro Petra, muzou i ostatni :-))))> Ahoj Petre,
> kdyz jsem to udelal jak jsi mi radil a to nasledovne, tak mi to nefunguje:
>
> procedure TfrmProstredky.VyskoceniPole(Sender: TObject);
> begin
> if (Sender(TDBEdit).Text = '') and (DataModul.ZruseniZaznamu = False) and
> (Zrus.Focused = False) then
> begin
> frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
> 'Varov�n�',mtWarning,[mbRetry]);
> Sender(TDBEdit).SetFocus;
> end;
> end;
>
> Ja pouzivam TDBEdit, vim v otazce predtim, byl TEdit, ale to na to snad
nema
> vliv, nebo ano ?
> Compilator mi hlasi chybu Missing operator or semicolon a jeste dalsi
chyby.
> Nevis prosim co s tim.
>
> Diky Filip
>


---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 05.03.01


Problem s Qick Reportem

[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 7.3.2001 14:12:01

Skus New SQL Report Builder. http://www.tungli.host.sk
Registracni kod poslem zadarmo - pre CR a SR.

Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk

NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )


> -----P�vodn� zpr�va-----
> Od: Dusan Fojtik [SMTP:fojtikd(zv)aix.upol(tec)cz]
> Odesl�no: 7. marec 2001 11:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Problem s Qick Reportem
>
> Dobry den
> Pouzivam komponentu Delphi QuickReport na tvorbu tiskovych sestav.
> Program funguje v poradku pod WiNT4,0 s tiskarnou LaserJet 1100, ale pod
> Win95 tvorba sestav nefuguje a pri pokusu o tisk to vyhodi hlasku:
> Aplikace xxxx porusila obecnou ochranu v modulu HPPTA.DRV na drese atd.
> Mam takove tuseni, ze chyba bude nejspis v ovladaci tiskarny, protoze s
> jinymi tiskarnami funguje tisk sestav bez problemu.
> Nevite nekdo co s tim .
> Nebo nevite nahodou nekdo o volne komponente, pro tvorbu tiskovych sestav.
> S pozdravem
> Dusan Fojtik


KADAO

[*] Ren� Otisk - 7.3.2001 14:18:56

KADAOcca pred pul rokem jsem s tim koketoval. Co potrebujes vedet?

Sroub


Ahoj,
pouzivate, prosim, nekdo KADAO?
Diky
Jaro B.

SQL dokumentace

[*] Petr <DelphiForum(zv)seznam(tec)cz> - 7.3.2001 14:18:29

Muzu ti doporucit knihu "Mistrovstvi v Transact-SQL" od pana Kena Hendersona. Je to kompletni pruvodce od uplnych zacatku az po ty nejpokrocilejsi funkce. Da se koupit na www.vltava(tec)cz za cca. 500,- Kc.

Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz


----- Original Message -----
From: Jakub Pl#ek
To: Delphi (tec)cz
Sent: Wednesday, March 07, 2001 11:38 AM
Subject: SQL dokumentace


Ahoj,
nem�te n�kdo dokumentaci k SQL, nejl�pe �esky, nebo alespo� odkaz na www str�nku nebo knihu.
V t�to oblasti jsem naprosto dutej tak prosim n�co ne moc PROFI.

D�ky moc

Jakub Pl#ek
mailto:kubapl(zv)seznam(tec)cz
http://www.sweb(tec)cz/kubapl
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 05.03.01


Funkce

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.3.2001 14:23:45

Ale no tak Michale, kazdy jednou zacinal a tohle nevedel.

Milan Tomes

> Myslim, ze by sis mel nekde sehnat nejakou ucebnici zakladu programovani.
> Rozdil mezi funkci a procedurou je podle me opravdu zaklad a
> nedelal bych z
> teto konference kurz zakladu �rpgramovani na pokracovani. Michal Tiller
>
> Diky vsem za namety na muj dotaz na funkci. Budu vam verit a dam tam tu
> proceduru.
>
> Jenom nerozumim tomu, proc tam nemuze byt ta f-ce. Nekdo mi psal duvod
> warningy.
>
> Vysvetlete mi to prosim blize, at jsem taky o neco chytrejsi.
>
> Diky Filip


Spousteni aplikace pridruzene k souboru

[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 7.3.2001 14:24:15

Zdar
jak docilim v programu toho, ze spustim aplikaci pridruzenoou k souboru ?
Napr. chci editovat soubor.txt(mel by se spustit notepad) atd.
S pozdravem
Dusan Fojtik


Post a ALT+F4 nebo Krizek

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.3.2001 14:32:44

Dej si ten post do OnCloseQuery formulare

------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

07.03.2001 Milan Ri#i:
> Ahoj,

> nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se provedl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi ...

> Diky

Problem BDE-MSSQL65

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.3.2001 14:34:45

Pokud se chces vyhnout problemum, predavej datum jako strung v
univerzalnim formatu yyyymmdd hh:MM:ss. da se na to pouzit funkce
FormatDateTime a formatovaci retezec je vyse uvedeny.

------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

07.03.2001 Petr Fojt�k:
> Zdravim vsechny a hned predkladam svuj problem s nalehavou prosbou o radu.
> Mam Delphi 4 C/S, BDE 5.01, MS SQL server 6.5
> Nechodi mi v programu prikazy, kdy posilam na MSSQL polozky Date nebo
> DateTime pomoci Query, napr.
> Query1.ParamByName().AsDateTime := StrToDateTime()
> Query1.FieldByName().AsDateTime := StrToDateTime()
> ( to same i kdyz misto DateTime pouziju pouze Date ). Chyba se projevi pri
> Open nebo ExecSQL.
> Trasovanim na SQL-serveru jsem zjistil, ze server dostava tyto polozky v
> tomto tvaru (pro datum 3.5.2001) :
> "3 V 2001 0:00:00.000 ", coz se mu pochopitelne nelibi a vede k chybe
> "General SQL error. Syntax error converting DATETIME from character string".
> Chyba je pouze pri pouziti aliasu pres nativni ovladac (typ MSSQL), alias
> pres ODBC
> pracuje normalne.
> Tato chyba se projevuje nejenom u mne a nejenom proti jednomu SQL serveru,
> ale asi mame vsichni stejne instalace.
> Ovsem u zakaznika vse chodi v poradku a do databaze se dostane retezec
> "May 3 2001 12:00:00.000 AM".
> Stahl jsem si od zakaznika soubory BDE i adresar Binn z MS SQL a prepsal u
> sebe, nepomohlo to. Stejne tak soubory SQLMSS32.DLL a NTWDBLIB.DLL. Ani
> ruzne nastaveni Langdriver u pouziteho aliasu. Taky jsem prestavil Mistni
> nastaveni u sveho serveru i klienta podle zakaznika, opet bez vysledku.
> Jediny rozdil mezi mnou a zakaznikem je v tom, ze je mam Windows NT 4.0
> Workstation CZ (server i klient), kdezto zakaznik ma anglicke NT a server
> ma na NT server.
> Zhruba pred rokem jsem tento program vyvijel na jinem pocitaci (myslim ze se
> stejnou
> instalaci D4 a BDE) a proti stejnemu serveru, ktery dnes nechodi.
> Samozrejme ze vsechno slo normalne.
> Ani presne nevim jestli chybu zpusobuje BDE nebo az MSSQL. Budu vdecny
> za kazdou radu nebo aspon nasmerovani.

> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Petr Fojt�k, Foresta SG fof(zv)foresta(tec)cz 0657 - 687 134

Karta Woodoo a poskozen� ikonky Delphi

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.3.2001 14:45:42

Naprosto skvele, funguje to a opravdu staci pouze jeden dilek. Diky
!!!!!!

Jaro B.

-----Original Message-----
From: Zika Petr [mailto:pzika(zv)ciglersw(tec)cz]
Sent: Wednesday, March 07, 2001 1:49 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Karta Woodoo a poskozen� ikonky Delphi


Mam STB Velocity (coz by mela byt Voodoo3) a Win2000 a Delphi se chova
podobne. Protoze se me nechtelo hledat a instalovat dalsi ovladace, tak
jsem v nastaveni grafiky snizil hardwarovou akceleraci o jeden dilek a
je to OK.

Petr

-----Original Message-----
From: Bene# Jaroslav [mailto:JBenes(zv)cpoj(tec)cz]
Sent: Wednesday, March 07, 2001 1:28 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Karta Woodoo a poskozen� ikonky Delphi
Importance: High


Ahoj,

ja mam taky 3Dfx Woodoo3, on board, 8 MB RAM (internal DAC), bezi to na
Win2000, a mam problemy s ikonami Delphi 5 (ale i v Delphi 3). Pokud
knihovny BPL prebuduju, tak je do OK. Pokud ale ukoncim Delphi, tak po
novem startu jsou bud cerne nebo nejak zmrsene (a jsou tak i na
formularich a v seznamu ikon palety). Preinstaloval jsem posledni verzi
ovladace urceneho pro tuto kartu a Win2000, ale nepomohlo to. Servisni
program k manualnimu nastaveni karty jsem nikde nenasel. Pokud je
potreba jeste nekde neco nastavit, pak nevim kde....

Co mi, prosim, poradite?

Jaro B.

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jaroslav Sipek
Sent: Wednesday, March 07, 2001 7:47 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Karta Woodoo a poskozen� ikonky Delphi


Ahoj,
ja mam Voodoo3 2000 16M a Delphi5 a vse je OK.

Jaroslav Sipek
mailto:jaroslav.sipek(zv)idea(tec)cz
http:\\www.idea(tec)cz <http://www.idea(tec)cz/>

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Str�n�k Franti#ek
Sent: Tuesday, March 06, 2001 3:47 PM
To: Delphi konference
Subject: Karta Woodoo a po#kozen� ikonky Delphi



Pratele,
stary problem - nyni pouze jenom zkusenost. Mate nekdo zkusenost s
grafickou kartou Woodoo a s ikonkama Delphi 20
Poskozuje nebo neposkozuje 20
Diky za odpoved !

Zdravi F.Stranik
FSTRANIK(zv)CPOJ.CZ

---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001


---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2. 2001

Spousteni aplikace pridruzene k souboru

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 07.3.2001 14:52:22

Dusan Fojtik wrote:
>
> Zdar
> jak docilim v programu toho, ze spustim aplikaci pridruzenoou k souboru ?
> Napr. chci editovat soubor.txt(mel by se spustit notepad) atd.
> S pozdravem
> Dusan Fojtik


Nejjednodussi je pouzit ShellExecute nebo ShellExecuteEx,
viz. Win32 API Help.

Ondrej Krajicek

--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------


Karta Woodoo a =?iso-8859-1?Q?poskozen=E9?= ikonky

[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 07.3.2001 14:53:43


Nektere problemy s Delphi pod Windows 2000
se daji taky vyresit nainstalovanim DirectX 8.0.

Ondrej Krajicek

--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------


Kontrola pravopisu

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 7.3.2001 15:06:52

Ahoj,

nemate nekdo tip na cesky spellchecker zabudovatelny do aplikace v D5 ? I za
zlatacky ...

Diky

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

Problem s Qick Reportem

[*] JIM Design <jim.design(zv)iol(tec)cz> - 7.3.2001 15:10:14

Ahoj,

Dalo me to uplne to same, staci si stahnout nejnovejsi ovladace z www.hp.com

M.Jirman

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Dusan
Fojtik
Sent: Wednesday, March 07, 2001 11:31 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Problem s Qick Reportem


Dobry den
Pouzivam komponentu Delphi QuickReport na tvorbu tiskovych sestav.
Program funguje v poradku pod WiNT4,0 s tiskarnou LaserJet 1100, ale pod
Win95 tvorba sestav nefuguje a pri pokusu o tisk to vyhodi hlasku:
Aplikace xxxx porusila obecnou ochranu v modulu HPPTA.DRV na drese atd.
Mam takove tuseni, ze chyba bude nejspis v ovladaci tiskarny, protoze s
jinymi tiskarnami funguje tisk sestav bez problemu.
Nevite nekdo co s tim .
Nebo nevite nahodou nekdo o volne komponente, pro tvorbu tiskovych sestav.
S pozdravem
Dusan Fojtik

Post a ALT+F4 nebo Krizek

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 7.3.2001 15:29:55

Tak si tu akci dej bud do OnClose nebo do OnCloseQuery

Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/33197
email: Milan.Tomes(zv)haida(tec)cz
Ahoj,
nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se prov
edl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi ...

Diky


Zadost o spolupraci - nastaveni proxy v MSIE

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2001 15:30:41



> NEEEEEEEEEEEEEEEEE to nechci :( Ja si to radsi prectu a rozparsuju sam :)
>

co budes delat v pripade, ze nastaveni proxy je detekovane automaticky? To
znamena funkci, ktera vraci adresu proxy (puvodem od NN) nebo dalsimi
metodami (made by M$) ?

D. Toman

Zadost o spolupraci - nastaveni proxy v MSIE

[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 07.3.2001 15:46:20

Ja jsem si na to napsal 2fce:

function HaveIEProxySettings: boolean;
begin
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',false);
if ValueExists('ProxyEnable') and ValueExists('ProxyServer') then Result:=true
else Result:=false;
CloseKey;
finally
Free;
end;
end;

procedure GetIEProxySettings;
var TMP_Promena: string;
begin
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',false) then
with Form1 do
begin
ChB_ProxyEnable.checked:=ReadBool('ProxyEnable');
TMP_Promena:=ReadString('ProxyServer');
E_ProxyServer.text:=Copy(TMP_Promena,1,Pos(':',TMP_Promena)-1);
Delete(TMP_Promena,1,Pos(':',TMP_Promena));
SE_ProxyPort.value:=StrToInt(TMP_Promena);
CloseKey;
end;
finally
Free;
end;
end;

S pozdravem Milan Cizek, D5 Ent

> NEEEEEEEEEEEEEEEEE to nechci :( Ja si to radsi prectu a rozparsuju sam :)
>
> Milan Tomes
>
> P.S.: Ale stejne diky
>
> > mam pocit, ze nastaveni proxy se da vycist nejakou API funkci z DLLka
> > zavleceneho do windows Explorerem....
> >
> >
> > D. Toman
> >
>

_____________________________________________________________________
Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz


Attachmenty z den�ku Outlooku

[*] ZPetruj(zv)qgir(tec)cz - 7.3.2001 15:58:00

Zdravim,
m�m takov� problem: Delam v Delphi konverzi dat z Outlooku do
databaze (do jake neni podstatne). Vsechna pole vcetne attachmentu,
ktere jsou jako prilohy "odkaz na soubor" umim pres TLB Outlooku
nacist, ale nevim jak se mam dostat k obsahu priloh, ktere jsou vlozeny
jako OLE a ne jako odkaz na soubor??? Napriklad vlozeny word dokument
nebo jakykoliv jiny vlozeny OLE dokument. Takovy attachment pres tlb najdu
vim jakeho je typu, ale to je asi tak vsechno - NEVIM JAK K OBSAHU!!
Attachment mam k dispozici jako Item Microsoft Outlook Objectu.

S pozdravem
Zdenek Petruj
--------------------------
adresa: Q.gir s.r.o.
F�gnerova 11
702 00 Ostrava
--------------------------
tel: 069-6134566
fax: 069-6134567
e-mail: zpetruj(zv)qgir(tec)cz

Problem BDE-MSSQL65

[*] Bardoo <bardon(zv)akord-soft(tec)cz> - 7.3.2001 15:58:37

Myslim, ze to bude chtit vypnout v SQL Client Configuration Utility bud
Automatic OEM to ANSI, nebo Use International setings (popripade oboji).

-----P�vodn� zpr�va-----
Od: Petr Fojt�k [SMTP:fof(zv)foresta(tec)cz]
Odesl�no: 7. b�ezna 2001 13:53
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Problem BDE-MSSQL65

Zdravim vsechny a hned predkladam svuj problem s nalehavou prosbou o radu.
Mam Delphi 4 C/S, BDE 5.01, MS SQL server 6.5
Nechodi mi v programu prikazy, kdy posilam na MSSQL polozky Date nebo
DateTime pomoci Query, napr.
Query1.ParamByName().AsDateTime := StrToDateTime()
Query1.FieldByName().AsDateTime := StrToDateTime()
( to same i kdyz misto DateTime pouziju pouze Date ). Chyba se projevi pri
Open nebo ExecSQL.
Trasovanim na SQL-serveru jsem zjistil, ze server dostava tyto polozky v
tomto tvaru (pro datum 3.5.2001) :
"3 V 2001 0:00:00.000 ", coz se mu pochopitelne nelibi a vede k chybe
"General SQL error. Syntax error converting DATETIME from character
string".
Chyba je pouze pri pouziti aliasu pres nativni ovladac (typ MSSQL), alias
pres ODBC
pracuje normalne.
Tato chyba se projevuje nejenom u mne a nejenom proti jednomu SQL serveru,
ale asi mame vsichni stejne instalace.
Ovsem u zakaznika vse chodi v poradku a do databaze se dostane retezec
"May 3 2001 12:00:00.000 AM".
Stahl jsem si od zakaznika soubory BDE i adresar Binn z MS SQL a prepsal u
sebe, nepomohlo to. Stejne tak soubory SQLMSS32.DLL a NTWDBLIB.DLL. Ani
ruzne nastaveni Langdriver u pouziteho aliasu. Taky jsem prestavil Mistni
nastaveni u sveho serveru i klienta podle zakaznika, opet bez vysledku.
Jediny rozdil mezi mnou a zakaznikem je v tom, ze je mam Windows NT 4.0
Workstation CZ (server i klient), kdezto zakaznik ma anglicke NT a server
ma na NT server.
Zhruba pred rokem jsem tento program vyvijel na jinem pocitaci (myslim ze
se
stejnou
instalaci D4 a BDE) a proti stejnemu serveru, ktery dnes nechodi.
Samozrejme ze vsechno slo normalne.
Ani presne nevim jestli chybu zpusobuje BDE nebo az MSSQL. Budu vdecny
za kazdou radu nebo aspon nasmerovani.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Petr Fojt�k, Foresta SG fof(zv)foresta(tec)cz 0657 - 687 134

Problem BDE-MSSQL65

[*] Bardoo <bardon(zv)akord-soft(tec)cz> - 7.3.2001 15:59:18

Myslim, ze to bude chtit vypnout v SQL Client Configuration Utility bud
Automatic OEM to ANSI, nebo Use International setings (popripade oboji).

-----P�vodn� zpr�va-----
Od: Petr Fojt�k [SMTP:fof(zv)foresta(tec)cz]
Odesl�no: 7. b�ezna 2001 13:53
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Problem BDE-MSSQL65

Zdravim vsechny a hned predkladam svuj problem s nalehavou prosbou o radu.
Mam Delphi 4 C/S, BDE 5.01, MS SQL server 6.5
Nechodi mi v programu prikazy, kdy posilam na MSSQL polozky Date nebo
DateTime pomoci Query, napr.
Query1.ParamByName().AsDateTime := StrToDateTime()
Query1.FieldByName().AsDateTime := StrToDateTime()
( to same i kdyz misto DateTime pouziju pouze Date ). Chyba se projevi pri
Open nebo ExecSQL.
Trasovanim na SQL-serveru jsem zjistil, ze server dostava tyto polozky v
tomto tvaru (pro datum 3.5.2001) :
"3 V 2001 0:00:00.000 ", coz se mu pochopitelne nelibi a vede k chybe
"General SQL error. Syntax error converting DATETIME from character
string".
Chyba je pouze pri pouziti aliasu pres nativni ovladac (typ MSSQL), alias
pres ODBC
pracuje normalne.
Tato chyba se projevuje nejenom u mne a nejenom proti jednomu SQL serveru,
ale asi mame vsichni stejne instalace.
Ovsem u zakaznika vse chodi v poradku a do databaze se dostane retezec
"May 3 2001 12:00:00.000 AM".
Stahl jsem si od zakaznika soubory BDE i adresar Binn z MS SQL a prepsal u
sebe, nepomohlo to. Stejne tak soubory SQLMSS32.DLL a NTWDBLIB.DLL. Ani
ruzne nastaveni Langdriver u pouziteho aliasu. Taky jsem prestavil Mistni
nastaveni u sveho serveru i klienta podle zakaznika, opet bez vysledku.
Jediny rozdil mezi mnou a zakaznikem je v tom, ze je mam Windows NT 4.0
Workstation CZ (server i klient), kdezto zakaznik ma anglicke NT a server
ma na NT server.
Zhruba pred rokem jsem tento program vyvijel na jinem pocitaci (myslim ze
se
stejnou
instalaci D4 a BDE) a proti stejnemu serveru, ktery dnes nechodi.
Samozrejme ze vsechno slo normalne.
Ani presne nevim jestli chybu zpusobuje BDE nebo az MSSQL. Budu vdecny
za kazdou radu nebo aspon nasmerovani.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Petr Fojt�k, Foresta SG fof(zv)foresta(tec)cz 0657 - 687 134

Prepinani Unit

[*] Erik Salaj <winsoft(zv)napri.sk> - 7.3.2001 16:18:51

> pominu-li, ze je paranoidni chranit sam sebe pred sebou samym neni mi
jasne

Ani netusis, aky to ma vyznam a ake domyselne metody existuju,
aby program mohol chranit sam seba (vsimni si napr. variant
a invariant casti v Eiffel cykle, pripadne Eiffel assert a debug prikazy).

> jak jeden thread zjisti adresu stacku jineho threadu.

Neviem, co tym presne sledujes, data na stack-och mozno
poskodit aj nahodnym prepisanim pameti. Pridelovanie stack
adries sa vsak urcite riadi urcitym systemom, takze aj to by
sa malo dat zistit.

Erik


SQL + presunuti zaznamu -Vyreseno

[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 7.3.2001 16:27:09

Snad jeste to zapouzdrit do transakce pro pripad nejakych problemku

-----Original Message-----
From: Parizsky Ladislav [mailto:parizsky(zv)access-it(tec)cz]
Sent: Wednesday, March 07, 2001 1:16 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: SQL + presunuti zaznamu -Vyreseno


Dekuji vsem,
pouzil jsem

INSER INTO () SELECT () FROM WHERE

a pak ten zaznam smazu

dik Ladap

>>> bardon(zv)akord-soft(tec)cz 7.3.01 11:27 >>>
Kdyby slo o presun cele tabulky, mozna by se dalo pouzit i sp_rename

-----Puvodn� zpr�va-----
Od: Doller.Jozef(zv)zsr.sk [SMTP:Doller.Jozef(zv)zsr.sk]
Odesl�no: 7. boezna 2001 9:09
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: SQL + presunuti zaznamu

select * into nova_tabulka
from tabulka

V Enterprise Manageri mus�te predt�m nastavit vlastnost "select into / bulk
copy"
Zvolte Properties Vasej DB a zalozku options

alebo

sp_dboption select into / bulkcopy - ale toto mi neslo zrejme mam chybnu
syntax
> -----Puvodn� zpr�va-----
> Od: Milan Tomes [SMTP:Milan.Tomes(zv)haida(tec)cz]
> Odesl�no: 7. marec 2001 8:29
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: RE: SQL + presunuti zaznamu
>
> Co takhle stored procedura, ktera by delala insert into .... select from a
> potom delete ?
>
> Milan Tomes
>
> > Cau,
> > existuje nejaky jednoduchy zpusob jak presunout radek z jedny
> > tabulky do druhy pomoci SQL prikazu ? Tabulky maji stejna pole.
> >
> > Dik Ladap
> >
> > Delphi5 Pro, MSSQL7
> __________ Informacia od NOD32 1.66 (20010216) __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.nod32.com
>
>
>

Zadost o spolupraci - nastaveni proxy v MSIE

[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 7.3.2001 16:54:12

Ahoj,

ale co kdyz mas jine nastaveni pro FTP a pro HTTP? Pak ten klic vypada
jinak a tve reseni nebude fungovat, napr:
ftp=195.168.1.20:21;http=192.168.1.20:3128


Ales


> -----Original Message-----
> From: Milan #ݿek [mailto:Cizek.Milan(zv)seznam(tec)cz]
> Sent: Wednesday, March 07, 2001 3:46 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Zadost o spolupraci - nastaveni proxy v MSIE
>
>
> Ja jsem si na to napsal 2fce:
>
> function HaveIEProxySettings: boolean;
> begin
> with TRegistry.Create do
> try
> RootKey:=HKEY_CURRENT_USER;
>
> OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet
> Settings',false);
> if ValueExists('ProxyEnable') and
> ValueExists('ProxyServer') then Result:=true
> else Result:=false;
> CloseKey;
> finally
> Free;
> end;
> end;
>
> procedure GetIEProxySettings;
> var TMP_Promena: string;
> begin
> with TRegistry.Create do
> try
> RootKey:=HKEY_CURRENT_USER;
> if
> OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet
> Settings',false) then
> with Form1 do
> begin
> ChB_ProxyEnable.checked:=ReadBool('ProxyEnable');
> TMP_Promena:=ReadString('ProxyServer');
>
> E_ProxyServer.text:=Copy(TMP_Promena,1,Pos(':',TMP_Promena)-1);
> Delete(TMP_Promena,1,Pos(':',TMP_Promena));
> SE_ProxyPort.value:=StrToInt(TMP_Promena);
> CloseKey;
> end;
> finally
> Free;
> end;
> end;
>
> S pozdravem Milan Cizek, D5 Ent
>
> > NEEEEEEEEEEEEEEEEE to nechci :( Ja si to radsi prectu a
> rozparsuju sam :)
> >
> > Milan Tomes
> >
> > P.S.: Ale stejne diky
> >
> > > mam pocit, ze nastaveni proxy se da vycist nejakou API
> funkci z DLLka
> > > zavleceneho do windows Explorerem....
> > >
> > >
> > > D. Toman
> > >
> >
>
> _____________________________________________________________________
> Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
>

Problem BDE-MSSQL65

[*] Petr Fojt�k <fof(zv)foresta(tec)cz> - 7.3.2001 16:56:43

Je to opravdu zpusobeno prepinacem "Use International setings". Byl to asi
posledni parametr, ktery sem nezkousel menit. Stalo mna to asi 3 dny prace a
14dni zivota kvuli nervom. Diky moc.
Petr Fojtik

----- Original Message -----
From: Bardoo <bardon(zv)akord-soft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 07, 2001 3:58 PM
Subject: RE: Problem BDE-MSSQL65


> Myslim, ze to bude chtit vypnout v SQL Client Configuration Utility bud
> Automatic OEM to ANSI, nebo Use International setings (popripade oboji).
>
> -----P�vodn� zpr�va-----
> Od: Petr Fojt�k [SMTP:fof(zv)foresta(tec)cz]
> Odesl�no: 7. b�ezna 2001 13:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Problem BDE-MSSQL65
>
> Zdravim vsechny a hned predkladam svuj problem s nalehavou prosbou o radu.
> Mam Delphi 4 C/S, BDE 5.01, MS SQL server 6.5
> Nechodi mi v programu prikazy, kdy posilam na MSSQL polozky Date nebo
> DateTime pomoci Query, napr.
> Query1.ParamByName().AsDateTime := StrToDateTime()
> Query1.FieldByName().AsDateTime := StrToDateTime()
> ( to same i kdyz misto DateTime pouziju pouze Date ). Chyba se projevi pri
> Open nebo ExecSQL.
> Trasovanim na SQL-serveru jsem zjistil, ze server dostava tyto polozky v
> tomto tvaru (pro datum 3.5.2001) :
> "3 V 2001 0:00:00.000 ", coz se mu pochopitelne nelibi a vede k chybe
> "General SQL error. Syntax error converting DATETIME from character
> string".
> Chyba je pouze pri pouziti aliasu pres nativni ovladac (typ MSSQL), alias
> pres ODBC
> pracuje normalne.
> Tato chyba se projevuje nejenom u mne a nejenom proti jednomu SQL serveru,
> ale asi mame vsichni stejne instalace.
> Ovsem u zakaznika vse chodi v poradku a do databaze se dostane retezec
> "May 3 2001 12:00:00.000 AM".
> Stahl jsem si od zakaznika soubory BDE i adresar Binn z MS SQL a prepsal u
> sebe, nepomohlo to. Stejne tak soubory SQLMSS32.DLL a NTWDBLIB.DLL. Ani
> ruzne nastaveni Langdriver u pouziteho aliasu. Taky jsem prestavil Mistni
> nastaveni u sveho serveru i klienta podle zakaznika, opet bez vysledku.
> Jediny rozdil mezi mnou a zakaznikem je v tom, ze je mam Windows NT 4.0
> Workstation CZ (server i klient), kdezto zakaznik ma anglicke NT a server
> ma na NT server.
> Zhruba pred rokem jsem tento program vyvijel na jinem pocitaci (myslim ze
> se
> stejnou
> instalaci D4 a BDE) a proti stejnemu serveru, ktery dnes nechodi.
> Samozrejme ze vsechno slo normalne.
> Ani presne nevim jestli chybu zpusobuje BDE nebo az MSSQL. Budu vdecny
> za kazdou radu nebo aspon nasmerovani.
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Petr Fojt�k, Foresta SG fof(zv)foresta(tec)cz 0657 - 687 134
>
>
>

Post a ALT+F4 nebo Krizek

[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 7.3.2001 17:05:40

Cau,
to jsem si nivne myslel taky. Jenomze ono se to jenom tvari, ze to funguje.
Skus si dat polozku primo z tabulky na form, neco v ni udelej a nez z ni
vyskocis, zrus form. Pres tlacitko, nebo odchod z polozky je to v pohode,
ale prave, ze me obcas nastane tahle situace a jsem v p....
Milan

----- Original Message -----
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 07, 2001 3:29 PM
Subject: RE: Post a ALT+F4 nebo Krizek


> Tak si tu akci dej bud do OnClose nebo do OnCloseQuery
>
> Milan Tome#
> Vedouc� v�vojov�ho t�mu Windows
> Softwarehouse HAiDA s.r.o.
> Nov� Bor
> tel: 0424/722291, 0424/33197
> email: Milan.Tomes(zv)haida(tec)cz
> Ahoj,
>
>
> nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se
prov
> edl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi ...
>
> Diky
>
>

Post a ALT+F4 nebo Krizek

[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 7.3.2001 17:09:36

To jsem si nivne myslel taky. Jenomze ono se to jenom tvari, ze to funguje.
Skus si dat polozku primo z tabulky na form, neco v ni udelej a nez z ni
vyskocis, zrus form. Pres tlacitko, nebo odchod z polozky je to v pohode,
ale prave, ze me obcas nastane tahle situace a jsem v p.... Na form tech
polozek mam 30.
Milan

----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 07, 2001 2:32 PM
Subject: Re: Post a ALT+F4 nebo Krizek


> Dej si ten post do OnCloseQuery formulare
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 07.03.2001 Milan Ri#i:
> > Ahoj,
>
> > nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se
provedl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi ...
>
> > Diky
>
>

Lokalizator - vyzva

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.3.2001 17:34:10

Ahoj all,

hledam partu lidi pro preklad textu do slovniku do cestiny a
dokumentace do anglictiny pro Lokalizator 5. Blize viz
http://www.localizator.com

Odpovedi prosim na soukromy mail.


S pozdravem

Zbysek Hlinka

http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


ICS Piette POP3client

[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 07.3.2001 18:36:42

Ahoj,
mam takovyhle problem. Pisu program, ktery periodicky ztahuje a
zpracovava
postu. Vse funguje OK, dokud neshodim spojeni. pop3client zacne na open
vracet error 500, coz mu budiz prano, ale neprobere se ani po opetovnem
navazani spojeni. Nevite nekdo jak na to?
Dekuji,
Vaclav Sazima


Zadost o spolupraci - nastaveni proxy v MSIE

[*] Milan ��ek - 7.3.2001 20:11:46

To asi ne, ale k vyjimce asi nedojde. Ja to mam udelany pres buton 'p�evzit
nastaveni z IE', a pokud je HaveIEProxySettings=false, pak je tlacitko
disabled...
ale mate pravdu, asi to neni to pravy...

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


----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, March 07, 2001 4:54 PM
Subject: RE: Zadost o spolupraci - nastaveni proxy v MSIE


> Ahoj,
>
> ale co kdyz mas jine nastaveni pro FTP a pro HTTP? Pak ten klic vypada
> jinak a tve reseni nebude fungovat, napr:
> ftp=195.168.1.20:21;http=192.168.1.20:3128
>
>
> Ales
>
>
> > -----Original Message-----
> > From: Milan #ݿek [mailto:Cizek.Milan(zv)seznam(tec)cz]
> > Sent: Wednesday, March 07, 2001 3:46 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Zadost o spolupraci - nastaveni proxy v MSIE
> >
> >
> > Ja jsem si na to napsal 2fce:
> >
> > function HaveIEProxySettings: boolean;
> > begin
> > with TRegistry.Create do
> > try
> > RootKey:=HKEY_CURRENT_USER;
> >
> > OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet
> > Settings',false);
> > if ValueExists('ProxyEnable') and
> > ValueExists('ProxyServer') then Result:=true
> > else Result:=false;
> > CloseKey;
> > finally
> > Free;
> > end;
> > end;
> >
> > procedure GetIEProxySettings;
> > var TMP_Promena: string;
> > begin
> > with TRegistry.Create do
> > try
> > RootKey:=HKEY_CURRENT_USER;
> > if
> > OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet
> > Settings',false) then
> > with Form1 do
> > begin
> > ChB_ProxyEnable.checked:=ReadBool('ProxyEnable');
> > TMP_Promena:=ReadString('ProxyServer');
> >
> > E_ProxyServer.text:=Copy(TMP_Promena,1,Pos(':',TMP_Promena)-1);
> > Delete(TMP_Promena,1,Pos(':',TMP_Promena));
> > SE_ProxyPort.value:=StrToInt(TMP_Promena);
> > CloseKey;
> > end;
> > finally
> > Free;
> > end;
> > end;
> >
> > S pozdravem Milan Cizek, D5 Ent
> >
> > > NEEEEEEEEEEEEEEEEE to nechci :( Ja si to radsi prectu a
> > rozparsuju sam :)
> > >
> > > Milan Tomes
> > >
> > > P.S.: Ale stejne diky
> > >
> > > > mam pocit, ze nastaveni proxy se da vycist nejakou API
> > funkci z DLLka
> > > > zavleceneho do windows Explorerem....
> > > >
> > > >
> > > > D. Toman
> > > >
> > >
> >
> > _____________________________________________________________________
> > Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
> >
>


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


Problem s Qick Reportem

[*] WEB ATLAS - SUKY <suky(zv)atlas(tec)cz> - 7.3.2001 22:28:55

Tohle resi aktualizace QuickReportu.

Michal

----- Puvodn� zpr�va -----
Od: "JIM Design" <jim.design(zv)iol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. brezna 2001 15:10
Predmet: RE: Problem s Qick Reportem


| Ahoj,
|
| Dalo me to uplne to same, staci si stahnout nejnovejsi ovladace z
www.hp.com
|
| M.Jirman
|
| -----Original Message-----
| From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Dusan
| Fojtik
| Sent: Wednesday, March 07, 2001 11:31 AM
| To: delphi-l(zv)fwd(tec)cz
| Subject: Problem s Qick Reportem
|
|
| Dobry den
| Pouzivam komponentu Delphi QuickReport na tvorbu tiskovych sestav.
| Program funguje v poradku pod WiNT4,0 s tiskarnou LaserJet 1100, ale pod
| Win95 tvorba sestav nefuguje a pri pokusu o tisk to vyhodi hlasku:
| Aplikace xxxx porusila obecnou ochranu v modulu HPPTA.DRV na drese atd.
| Mam takove tuseni, ze chyba bude nejspis v ovladaci tiskarny, protoze s
| jinymi tiskarnami funguje tisk sestav bez problemu.
| Nevite nekdo co s tim .
| Nebo nevite nahodou nekdo o volne komponente, pro tvorbu tiskovych sestav.
| S pozdravem
| Dusan Fojtik
|
|

Dotaz Funkce > pro Petra, muzou i ostatni :-))))

[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 07.3.2001 23:00:15

Mozna uz negdo reagoval ... ale chybi ti tam "+":

frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole + ' !','Varov�n�',
mtWarning, [mbRetry]);

> frmHlavni.MsgDlg('Mus� b�t zad�no pole' + NazevPole ' !',
> 'Varov�n�',mtWarning,[mbRetry]);

--
Martin Pe#ava

/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS #R a CyberMiss|
\--------------------------------------------------------------/

BDE

[*] Zden�k #ulc - 8.3.2001 00:32:01

Mam takovy problem.


Mame vlozenou proceduru na MSSQL 6.5

Po spusteni v Paradoxu (tam je alias ODBS) je to O.K.
Po spusteni v Delphi (tam je nativi driver) je to jinde. Ne vsak uplne.
akorat se to lisi o 1 000,-K� na 500 000,-K�.
Kdy� parametry od - do (datum) dame na server je to O.K.


Ma nekdo zkusenosti?


Dik

Eda

DBComboBox

[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 8.3.2001 00:39:16

Ahoj Delphaci,
mam jeste jeden problem.
Do DBEditu prirazuji pres DBComboBox polozky z ciselniku. Stava se mi ale,
ze pri prirazovani se pri kliknuti na nekterou polozku tato polozka
zduplikuje. To znamena, ze je v seznamu dvakrat, napriklad ob dva rakdy a je
oznacena dvakrat. Do Editu se priradi dobre, ale je to nehezky. Pouzivam
databazi z SQL serveru 7.0. Pripojeni pres BDE a ODBC.
Nevite nekdo v cem muze byt problem ? V ciselniku jsou polozky ktere
zacinaji hackem. To ale neni problem, uz jsem to zkousel. Server pouziva
cestinu.

Predem diky za rady.

Filip


NSQLRB - ospravedlnie

[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 8.3.2001 06:21:56


Musim sa ospravedlnit vsetkym, ktory si ztiahli New SQL Report Builder 1.3
verziu , zial bludila sa chybicka. Opravenu verziu uz som umiestnil na
nizsie uvedene stranky.
Tez boli rozsirene reporty - s reportom ktory priamo pise do RTF file a
reportom ciaroveho kodu EAN13. Ak mate problemy s rychlostou webu - tak
opraveny NSQLRB mozem poslat emailom. Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli

NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )


> -----P�vodn� zpr�va-----
> Od: tomsir1.edu(zv)mail.cez(tec)cz [SMTP:tomsir1.edu(zv)mail.cez(tec)cz]
> Odesl�no: 6. marec 2001 0:27
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: simulace stisku klavesy
>
>
> Tak to zkus takhle treba pro pismeno "A" :
>
> PostMessage(Handle,WM_KEYDOWN,VK_A,0).
>
> pokud to projde, muzu ti poslat xls soubor se seznamem vsech virtualnich
> kodu klaves.
>
>
> Radegast
>
>
>
>
>
> <giorgione(zv)email(tec)cz>(zv)fwd(tec)cz on 05.03.2001 23:25:17
>
> Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
>
> Odesl�no k�m: owner-delphi-l(zv)fwd(tec)cz
>
>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Kopie:
> P�edm�t: simulace stisku klavesy
>
>
> Zdravicko!
>
> Mam handle nejakeho okna. Timto zpusobem jsem schopen provest simulaci
> stisku
> klavesy Enter pro toto okno: PostMessage(Handle,WM_KEYDOWN,VK_return,0).
> Podobne napr. pro klavesu ESC:
> PostMessage(Handle,WM_KEYDOWN,VK_cancel,0).
> Jakmile se ale pokusim poslat obycejnou klavesu (napr. A), nic se nestane.
> Tento kod nic viditelneho neprovede: PostMessage(Handle,WM_KEYDOWN,ord
> ('A'),0)
>
> V cem je problem?
> Predem diky za nakopnuti :-)
>
> EMAIL.CZ - Vase posta je vzdy s Vami na
> http://www.email(tec)cz
>
>
>
>

simulace stisku klavesy

[*] Petr <DelphiForum(zv)seznam(tec)cz> - 8.3.2001 06:23:37

Vsechny virtualni kody najdes v souboru Windows.pas v adresari
Source\Rtl\Win tam, kde mas Delphi.

Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz


----- Original Message -----
From: SlavekB <VlcekB(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 06, 2001 7:36 PM
Subject: Re: simulace stisku klavesy


> s tim stiknutim tlacitek jsem mel taky takovej problem., mohl bych se
dostat
> nejak k tem virtualnim kodu klaves please?
> dost by se mi to hodilo
> Slavek
>
>
> ----- Original Message -----
> From: <tomsir1.edu(zv)mail.cez(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, March 06, 2001 12:26 AM
> Subject: Re: simulace stisku klavesy
>
>
> >
> > Tak to zkus takhle treba pro pismeno "A" :
> >
> > PostMessage(Handle,WM_KEYDOWN,VK_A,0).
> >
> > pokud to projde, muzu ti poslat xls soubor se seznamem vsech virtualnich
> > kodu klaves.
> >
> >
> > Radegast
> >
> >
> >
> >
> >
> > <giorgione(zv)email(tec)cz>(zv)fwd(tec)cz on 05.03.2001 23:25:17
> >
> > Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
> >
> > Odesl�no k�m: owner-delphi-l(zv)fwd(tec)cz
> >
> >
> > Komu: <delphi-l(zv)fwd(tec)cz>
> > Kopie:
> > P�edm�t: simulace stisku klavesy
> >
> >
> > Zdravicko!
> >
> > Mam handle nejakeho okna. Timto zpusobem jsem schopen provest simulaci
> > stisku
> > klavesy Enter pro toto okno:
PostMessage(Handle,WM_KEYDOWN,VK_return,0).
> > Podobne napr. pro klavesu ESC:
> PostMessage(Handle,WM_KEYDOWN,VK_cancel,0).
> > Jakmile se ale pokusim poslat obycejnou klavesu (napr. A), nic se
nestane.
> > Tento kod nic viditelneho neprovede: PostMessage(Handle,WM_KEYDOWN,ord
> > ('A'),0)
> >
> > V cem je problem?
> > Predem diky za nakopnuti :-)
> >
> > EMAIL.CZ - Vase posta je vzdy s Vami na
> > http://www.email(tec)cz
> >
> >
> >
> >
> >
>
>


---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01


Post a ALT+F4 nebo Krizek

[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 8.3.2001 08:03:43

Pak bych to resil tak, ze pred uzavrenim (v onCloseQuery) bych preskocil
nekam jinam - bud na presne definovany objekt a nebo napr. o jeden dopredu
ci vzad. Uz se mi tohle taky stalo....

Milan Tomes

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Milan Ri#i
> Sent: Wednesday, March 07, 2001 5:06 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Post a ALT+F4 nebo Krizek
>
>
> Cau,
> to jsem si nivne myslel taky. Jenomze ono se to jenom tvari, ze
> to funguje.
> Skus si dat polozku primo z tabulky na form, neco v ni udelej a nez z ni
> vyskocis, zrus form. Pres tlacitko, nebo odchod z polozky je to v pohode,
> ale prave, ze me obcas nastane tahle situace a jsem v p....
> Milan
>
> ----- Original Message -----
> From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, March 07, 2001 3:29 PM
> Subject: RE: Post a ALT+F4 nebo Krizek
>
>
> > Tak si tu akci dej bud do OnClose nebo do OnCloseQuery
> >
> > Milan Tome#
> > Vedouc� v�vojov�ho t�mu Windows
> > Softwarehouse HAiDA s.r.o.
> > Nov� Bor
> > tel: 0424/722291, 0424/33197
> > email: Milan.Tomes(zv)haida(tec)cz
> > Ahoj,
> >
> >
> >
> > nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se
> prov
> > edl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi ...
> >
> > Diky
> >
> >

Prepinani Unit

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.3.2001 08:06:49



> > pominu-li, ze je paranoidni chranit sam sebe pred sebou samym neni mi
> jasne
>
> Ani netusis, aky to ma vyznam a ake domyselne metody existuju,
> aby program mohol chranit sam seba (vsimni si napr. variant
> a invariant casti v Eiffel cykle, pripadne Eiffel assert a debug prikazy).
>

Nevim nic o Eiffelu cili Tvoje vysvetleni je uplne k nicemu. Co ma spolecne
prepisovani stacku s jeho (jak pises) ochranou pred nezadoucim ctenim??

> > jak jeden thread zjisti adresu stacku jineho threadu.
>
> Neviem, co tym presne sledujes, data na stack-och mozno
> poskodit aj nahodnym prepisanim pameti. Pridelovanie stack
> adries sa vsak urcite riadi urcitym systemom, takze aj to by
> sa malo dat zistit.

uz vidim ten program jak slozite zjistuje adresu stacku dalsich threadu jen
proto aby je mohl nahodne poskodit :-)

D. Toman

Spousteni aplikace pridruzene k souboru

[*] Krska Vit <v_krska(zv)del(tec)cz> - 8.3.2001 09:52:02

takhle to frci, lze tak otevrit i web browsera
ShellExecute(Application.Handle, 'open', StrPCopy(St,'MujFile.txt'), nil,
nil, SW_SHOW);

Ing. Vit Krska
vit.krska(zv)del(tec)cz

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ondrej Krajicek
Sent: Wednesday, March 07, 2001 2:52 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Spousteni aplikace pridruzene k souboru


Dusan Fojtik wrote:
>
> Zdar
> jak docilim v programu toho, ze spustim aplikaci pridruzenoou k souboru ?
> Napr. chci editovat soubor.txt(mel by se spustit notepad) atd.
> S pozdravem
> Dusan Fojtik


Nejjednodussi je pouzit ShellExecute nebo ShellExecuteEx,
viz. Win32 API Help.

Ondrej Krajicek

--
---------------------------------------------------------------------
Ondrej Krajicek OK-)
email: xkrajic at {fi,ics}.muni(tec)cz
>>> This e-mail is under construction. Best viewed in absolute
darkness. Optimized for unbelievable resolution, two colors:
black and white.
---------------------------------------------------------------------


Problem s Qick Reportem

[*] Krska Vit <v_krska(zv)del(tec)cz> - 8.3.2001 09:56:11

neco mozna ta aktualizace resi. ja mam verzi 3.0.7 a v pri tisku composite
reportu mi to vyhodi Acces violation. to verze 3.0.5 nedela.

Ing. V�t Kr#ka
vit.krska(zv)del(tec)cz

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
WEB ATLAS - SUKY
Sent: Wednesday, March 07, 2001 10:29 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Problem s Qick Reportem


Tohle resi aktualizace QuickReportu.

Michal

----- Puvodn� zpr�va -----
Od: "JIM Design" <jim.design(zv)iol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 7. brezna 2001 15:10
Predmet: RE: Problem s Qick Reportem


| Ahoj,
|
| Dalo me to uplne to same, staci si stahnout nejnovejsi ovladace z
www.hp.com
|
| M.Jirman
|
| -----Original Message-----
| From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Dusan
| Fojtik
| Sent: Wednesday, March 07, 2001 11:31 AM
| To: delphi-l(zv)fwd(tec)cz
| Subject: Problem s Qick Reportem
|
|
| Dobry den
| Pouzivam komponentu Delphi QuickReport na tvorbu tiskovych sestav.
| Program funguje v poradku pod WiNT4,0 s tiskarnou LaserJet 1100, ale pod
| Win95 tvorba sestav nefuguje a pri pokusu o tisk to vyhodi hlasku:
| Aplikace xxxx porusila obecnou ochranu v modulu HPPTA.DRV na drese atd.
| Mam takove tuseni, ze chyba bude nejspis v ovladaci tiskarny, protoze s
| jinymi tiskarnami funguje tisk sestav bez problemu.
| Nevite nekdo co s tim .
| Nebo nevite nahodou nekdo o volne komponente, pro tvorbu tiskovych sestav.
| S pozdravem
| Dusan Fojtik
|
|

spec. spusteni DOS-ulohy

[*] Mosny Miroslav <miro(zv)smp(tec)cz> - 8.3.2001 09:03:07 met

Zdar,

Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
skonci ten DOS-prg ?

Diky, Miro


BlobStream - riesenie

[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 08.3.2001 10:12:36

Odpoviem si nakoniec sam.

Pri zurivom ladeni, sa mi podarilo prist na niektore poznatky,
ktre by mohli zaujimat aj dalsich programatorov, ktori uvazuju
nad ukladamim obrazkov do DBase prostrednictvom BDE.

Prvym problem - orezavanie vrateneho blobu po prvu binarnu nulu
je sposobeny funkciou NativeToAnsiBuf, ktoru interne vola metoda
TBlobStream.Read (prevod znakovej sady z ASCII do prislusnej
lokalnej stranky). Riesenie je jednoduche, pred citanim blobu
treba nastavit property Transliterate na False (pri vytvoreni
TBlobFieldu implicitne nastavene na True). Zvlastne, ze pri
ukladani Blobu cez LoadFromStream sa Transliterate neuplatnuje,
takze do databazy boli tieto ulozene cele.

Nakoniec sa ale ukazalo, ze ukladanie binarnych blobov do
databazy DBase ma ovela fatalnejsi problem, ktory priamy
sposob ukladania takychto blobov prakticky vylucuje.
Bloby sa totiz u DBAse suboroch ukladaju do samostatneho
Memo suboru (pripona DBT), spouzitim jednoducheho
strankovania na 512 byte-ove bloky.

Neprijemnou vlastnostou uvedenych Memo suborov je, ze pri
kazdom novom ulozeni Memo fieldu, sa tento zapise na koniec
Memo suboru, pricom povodne data sa neprepisuju. Tym postupne
dochadza k neziaducemu a zbytocnemu narastaniu Memo suboru.

Fatalnym problemom pre pouzitie binarnuch blobov je vsak
pouzivanie specialneho znaku $1A, ktory oznacuje koniec
blobu (spravnejsie dvojica tychto znakov). Pri binarnych
datach sa vsak tento kod moze vyskytovat aj uprostred blobu.
Kedze funkcia DbiGetBlobSize ktorou BDE interne zistuje
velkost blobu vyhladava prave uvedeny identifikator,
dochadza k jeho citaniu znovu k orezaniu - tentoraz po
prvy vyskyt kodu $1A.

Inymi slovami - pri ukladani akylkovek binarnych dat
do Memo fieldu v DBase treba tieto najskor skonvertovat
tak, aby sa v texte uvedeny kod vyskytoval - najlepsie
do nejakeho 7 bitoveho kodovanie napr. UUEncode, Base64,
alebo Mime. Ja som narychlo avsak uspesne implementoval
prevad do jednoducheho hexa retazca, co vsak velkost blobu
zdvojnasobuje.

Vlkovic

> Nefunguje.
> V okamihu priradenia polozky (MyImage.DataField := 'Picture')
> vznikne chyba Stream read error.
>
> Urobim to nakoniec asi tak, ze obrazok
> budem ukladat do databazy ako textove Memo,
> hoci si vyziada zbytocne konverzie (napriklad
> do Hexa) pri jeho zapise a citani.
>
> Vlkovic
>
> > take se mi to nepodarilo nacist pres Stream a tak jsem to 'obesel'
> > takto:
> > var
> > MyImage : TDBImage;
> > begin
> > MyImage := TDBImage.Create(Self);
> > try
> > MyImage.DataField := 'Picture';
> > MyImage.DataSource := DataModul.DataSourceKovani;
> > MyImage.Visible :=false;
> > FormKovaniKarta.Image1.Picture.Assign(MyImage.Picture);
> > finally
> > MyImage.Free;
> > end;
> > end;

Setrideni polozek v CheckListBox

[*] Petr Kucera <kucera(zv)vri(tec)cz> - 8.3.2001 10:16:33

Dobry den,

prosim Vas, jak by se daly setridit polozky v CheckListBox tak,
aby byly serazeny od nejvyssi po nejnizsi, nikoliv od nejnizsi po
nejvyssi, coz je tak, jak to dela standartne.

Dekuji.

Petr Kucera


spec. spusteni DOS-ulohy

[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 8.3.2001 10:30:10

Podivej se do Jcl - JclMiscel funkce WinExec32AndWait.

Knihovnu Jcl stahnes na www.delphi-jedi.org

Milan Tomes

> Zdar,
>
> Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
> DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
> skonci ten DOS-prg ?
>
> Diky, Miro


Problemy pri ruznych verzich BDE?

[*] brant(zv)dcomm(tec)cz - 8.3.2001 10:32:18

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 vespolek,
nevite nekdo, jestli ruzne verze BDE (z Delphi 4 Pro a Delphi5 Pro) nemohou
zpusobovat problemy pri soucasnem provozu v jedne siti? U jednoho zakaznika
jsou totiz vsude verze z D4, pouze na jednom pocitaci je verze z D5 a prave
tento pocitac vykazuje velmi podivne chovani (pro zajimavost par chybovych
hlaseni, ktera mi chodi mailem):

#as: 2.3.2001 8:14:30, Text: "Name not unique in this context.", adresa
$0047F69A (Modul "DBTables", procedura "DbiError", unit "", ��dek 0)

#as: 2.3.2001 14:12:25, Text: "Record/Key deleted.", adresa $0047F69A (Modul
"DBTables", procedura "DbiError", unit "", ��dek 0)

#as: 2.3.2001 15:03:56, Text: "Invalid argument to date encode", adresa
$00409B3A (Modul "SysUtils", procedura "ConvertError", unit "", ��dek 0)

#as: 6.3.2001 10:41:31, Text: "Access violation at address 4BE385FB in
module 'IDAPI32.DLL'. Read of address FFFF0000", adresa $4BE385FB (Modul "",
procedura "DbiRenameTable", unit "", ��dek 0)

RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380

D&COMM s.r.o
Korunova�n� 6
Praha 7

spec. spusteni DOS-ulohy

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.3.2001 11:08:37

>
> Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
> DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
> skonci ten DOS-prg ?
>

spustit a cekat ve smycce na ukonceni...

cili takhle nejak: FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
StartupInfo.cb := SizeOf(TStartupInfo);

if CreateProcess(NIL,PChar(P),NIL,NIL,False,
NORMAL_PRIORITY_CLASS,
NIL,
NIL,
StartupInfo,ProcessInfo) then
begin
While WaitForSingleObject(ProcessInfo.hProcess,100) = WAIT_TIMEOUT do
begin
// tohle ale asi budes chtit vyhodit (pak aplikace nebude odpovidat na
zpravy)
// lepsi by bylo nahodit nejaky flag a obyc zpravy (paint a spol) obslouzit)
ProcessMessages;
end;
Repeat
if NOT GetExitCodeProcess(ProcessInfo.hProcess,RetCode) then
begin
Break;
end;
// viz predesla poznamka
ProcessMessages;
Sleep(100);
Until RetCode <> STILL_ACTIVE;

CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;

spec. spusteni DOS-ulohy

[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 8.3.2001 11:11:37

> Zdar,
>
> Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
> DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
> skonci ten DOS-prg ?
>
> Diky, Miro
>

vyzkousej napr fci z knihovny JEDI codel library v unitu JclShell
ShellExecAndWait
ShellExexAndWait is a wrapper for the Win32 API function ShellExecuteEx
which alleviates some of the complexities of this function by providing
defaults for some of its lesser used parameters. This function performs an
action specified on a file which can be anything from executing the file to
opening it using the associated editor. This routine is identical to
ShellExec except that this function waits for the action to be completed.
For example, when using this file to open a HTML document, the function will
launch the default webbrowser and then wait until the browser terminates,
only then will this function call return to its caller.

spec. spusteni DOS-ulohy

[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 8.3.2001 11:16:26


Ahoj,
zkus tohle

function Spust(Prikaz: string): integer;
var P: PChar;
X: THandle;
SUI: TStartUpInfo;
PI: TProcessInformation;
B: Boolean;
begin
P := PChar( Prikaz );
GetStartUpInfo(SUI); //abych nemusel vytvaret strukturu sam
with SUI do begin // a upravim ji dle potreby
lpReserved:=nil;
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=SW_SHOWMINNOACTIVE;
end;
B:=CreateProcess(nil,P,nil,nil,False,0,nil,nil,SUI,PI);
WaitForInputIdle( GetCurrentProcess, INFINITE ); //vyprazdni frontu
if B then begin // tady to ceka, nez se uloha ukonci
repeat
WaitForSingleObject( PI.hProcess, 2000 );
GetExitCodeProcess(PI.hProcess,X);
until (X<>STILL_ACTIVE);
Result := X;
end
else begin
ShowMessage( 'Aplikace nespustena' );
Result := -1;
end;
end;
> Zdar,
>
> Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
> DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
> skonci ten DOS-prg ?
>
> Diky, Miro
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001


ICS Piette POP3client

[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 08.3.2001 11:20:55

Uz to mam, po chybe je treba zavolat Abort, ten zvola winsock abort

Vaclav Sazima wrote:
>
> Ahoj,
> mam takovyhle problem. Pisu program, ktery periodicky ztahuje a
> zpracovava
> postu. Vse funguje OK, dokud neshodim spojeni. pop3client zacne na open
> vracet error 500, coz mu budiz prano, ale neprobere se ani po opetovnem
> navazani spojeni. Nevite nekdo jak na to?
> Dekuji,
> Vaclav Sazima


spec. spusteni DOS-ulohy

[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 8.3.2001 11:35:02

Tento problem jsem jiz nekde stahnul z netu a umistil u sebe.

Koukni tam

www.peprsoft(tec)cz/default.asp?id=delphi/Tipy.asp?Id=15


S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz

-----Original Message-----
From: Mosny Miroslav [mailto:miro(zv)smp(tec)cz]
Sent: Thursday, March 08, 2001 10:03 AM
To: delphi-l(zv)fwd(tec)cz
Subject: spec. spusteni DOS-ulohy


Zdar,

Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
skonci ten DOS-prg ?

Diky, Miro


ovladani hlasitosti

[*] JIM Design <jim.design(zv)iol(tec)cz> - 8.3.2001 12:23:11

ahoj,

potreboval bych nejakym zpusobem (komponenta, API fce) ovladat hlasitost
nejak podobne jako je ten reprak v trayi, poradite nekdo?

Predem diky

M.Jirman


Prepinani Unit

[*] Erik Salaj <winsoft(zv)napri.sk> - 8.3.2001 12:31:05

> > Ani netusis, aky to ma vyznam a ake domyselne metody existuju,
> > aby program mohol chranit sam seba (vsimni si napr. variant
> > a invariant casti v Eiffel cykle, pripadne Eiffel assert a debug
prikazy).
> >
>
> Nevim nic o Eiffelu cili Tvoje vysvetleni je uplne k nicemu. Co ma
spolecne

Tak si precitaj, na http://www.cybermagic.co.nz/winsoft/links.htm najdes
odkazy na Eiffel stranky.

> prepisovani stacku s jeho (jak pises) ochranou pred nezadoucim ctenim??

Ja uz tiez neviem ako si to vsetko zmixoval a dal do suvislosti. Pokial
si dobre spominam, tak som pisal o tom, ze inicializacia pameti moze
suvisiet s bezpecnostou. Zase predpokladam, ze o bezpecnosti toho
vela nevies, takze podla CIA modelu je tvorena troma zlozkami:
dovernost integrita a dostupnost. Tu su priklady ako inicializacia
udajov podporuje

1. dovernost:

Rreferencia na objekt by mohla nahodne ukazovat niekde do pameti,
kde mozu byt udaje ineho programu (DLL-ko, OS, atd.) a ma moznost
precitat ich. Sikovny programator by mohol zavolat podprogram,
kde by mal lokalnu ciselnu premennu (na stacku) do nej si nastavi
lubovolne cislo (adresu pameti). Po ukonceni tohto podprogramu
zavola iny podprogram, kde ma na stacku na tom istom mieste
referenciu. Jej hodnota by nebola inicializovana, ale ostala by tam
hodnota z ciselnej premennej na stacku, ktoru nastavil
v predchadzajucom podprograme. Prostrednictvom tejto
referencie (mohla by to byt napr. referencia na string), by teraz mohol
citat udaje z adresy pameti, ktoru si nastavil. Takto moze precitat moze
precitat kompletny adresny priestor procesu, v ktorom bezi. Uzivatel
ma teda moznost dostat sa k udajom, ku ktorym by sa dostat nemal.
V klasickych programoch to aj tak je, preto je nevyhnutne (aj ked
hlavne z dovodu stability) aby programy bezali v oddelenych adresovych
priestorov, co ale napriek HW podpore zo strany procesorov dost
vyznamne znizuje vykonnost pocitaca, vznikaju problemy s komunikaciu
medzi procesmi (ktora je tiez pomala) a pod. Kedze je viac nez iste,
ze mi opet budes oponovat, tak uz preventivne uvadzam tuto otazku:
ak by procesy boli efektivne, preco by implementovali do OS
thready?

2. integrita

Neinicializovana referencia prepise pamet, v dosledku coho
uzivatel dostane nespravne udaje.

3. dostupnost

Neinicializovana referencia prepise pamet, co sposobi nefunkcnost
softwaru (program spadne alebo sa zacykli). Uzivatel sa preto
nedostane k potrebnym udajom.

> > > jak jeden thread zjisti adresu stacku jineho threadu.
> >
> > Neviem, co tym presne sledujes, data na stack-och mozno
> > poskodit aj nahodnym prepisanim pameti. Pridelovanie stack
> > adries sa vsak urcite riadi urcitym systemom, takze aj to by
> > sa malo dat zistit.
>
> uz vidim ten program jak slozite zjistuje adresu stacku dalsich threadu
jen
> proto aby je mohl nahodne poskodit :-)

Nerozumiem akym sposobom si dospel k tomuto zaveru, pretoze z mojich
informacii to urcite nevyplyva. Mam iba ten pocit, ze cokolvek napisem,
tak Ty to jednoducho nemozes akceptovat. Ak je to tak, tak to rovno
napis, mne usetris spustu casu a hlavne nebudeme zbytocne otravovat
ostatnych ucastnikov tejto konferencie. V pripade, ze sa mylim a Tvojim
cielom je naozaj zaujem o danu problematiku, tak sorry, a (kym nas niekto
v Delphi konferencii nezastavi ;-) ) mozme diskutovat dalej.

Erik


Problem s Qick Reportem

[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 8.3.2001 12:37:36

Ano 3.07 QR hlasi acces violation - ale ak kompilujes do exe - tak uz nie ,
je to try exception osetrenie chyby. Mne sa to podarilo odstranit - ale
teraz uz nepametam ako.
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli

NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )


> -----P�vodn� zpr�va-----
> Od: Krska Vit [SMTP:v_krska(zv)del(tec)cz]
> Odesl�no: 8. marec 2001 9:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Problem s Qick Reportem
>
> neco mozna ta aktualizace resi. ja mam verzi 3.0.7 a v pri tisku composite
> reportu mi to vyhodi Acces violation. to verze 3.0.5 nedela.
>
> Ing. V�t Kr#ka
> vit.krska(zv)del(tec)cz
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> WEB ATLAS - SUKY
> Sent: Wednesday, March 07, 2001 10:29 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Problem s Qick Reportem
>
>
> Tohle resi aktualizace QuickReportu.
>
> Michal
>
> ----- Puvodn� zpr�va -----
> Od: "JIM Design" <jim.design(zv)iol(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 7. brezna 2001 15:10
> Predmet: RE: Problem s Qick Reportem
>
>
> | Ahoj,
> |
> | Dalo me to uplne to same, staci si stahnout nejnovejsi ovladace z
> www.hp.com
> |
> | M.Jirman
> |
> | -----Original Message-----
> | From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Dusan
> | Fojtik
> | Sent: Wednesday, March 07, 2001 11:31 AM
> | To: delphi-l(zv)fwd(tec)cz
> | Subject: Problem s Qick Reportem
> |
> |
> | Dobry den
> | Pouzivam komponentu Delphi QuickReport na tvorbu tiskovych sestav.
> | Program funguje v poradku pod WiNT4,0 s tiskarnou LaserJet 1100, ale pod
> | Win95 tvorba sestav nefuguje a pri pokusu o tisk to vyhodi hlasku:
> | Aplikace xxxx porusila obecnou ochranu v modulu HPPTA.DRV na drese atd.
> | Mam takove tuseni, ze chyba bude nejspis v ovladaci tiskarny, protoze s
> | jinymi tiskarnami funguje tisk sestav bez problemu.
> | Nevite nekdo co s tim .
> | Nebo nevite nahodou nekdo o volne komponente, pro tvorbu tiskovych
> sestav.
> | S pozdravem
> | Dusan Fojtik
> |
> |
>

ovladani hlasitosti

[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 08.3.2001 12:42:27

Ahoj,
jednoducha reseni se mi neosvedcila, spokojen jsem s timto (autor
P.Vones):

type
TMIXERCONTROLDETAILS_UNSIGNED = record
dwValue : dword;
end;
procedure CheckMMResult(Value: MMRESULT);
begin
if Value <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('Mixer Error %d', [Value]);
end;

procedure SetMixerInputVolume(InputName : string; Volume: DWORD);
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I, Inputs: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
VolumeCD: TMIXERCONTROLDETAILS_UNSIGNED;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps,
Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
Inputs := 0;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType =
MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
Inputs := MixerLine.cConnections;
Break;
end;
end;

MixerControls.cControls := 0;
for I := 0 to Inputs - 1 do
begin
MixerLine.dwSource := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
MIXER_GETLINEINFOF_SOURCE));
if Pos(InputName, MixerLine.szShortName) = 1 then
begin
MixerControls.cControls := MixerLine.cControls;
Break;
end;
end;

MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls,
MIXER_GETLINECONTROLSF_ONEBYTYPE));

MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems :=
MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(VolumeCD);
MixerControlDetails.paDetails := (zv)VolumeCD;

VolumeCD.dwValue := Volume;
CheckMMResult(mixerSetControlDetails(Mixer,
(zv)MixerControlDetails,
MIXER_SETCONTROLDETAILSF_VALUE));
finally
mixerClose(Mixer);
end;
end;

procedure OutputVolume (Volume : integer);
type
MIXERCONTROLDETAILS_BOOLEAN = record
fValue : longint;
end;
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
MuteCD: MIXERCONTROLDETAILS_BOOLEAN;
OutputFound: Boolean;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
OutputFound := False;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType =
MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
OutputFound := True;
Break;
end;
end;

if not OutputFound then raise Exception.Create('Nenalezen vystup');
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_volume;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls,
MIXER_GETLINECONTROLSF_ONEBYTYPE));

MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems :=
MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(MuteCD);
MixerControlDetails.paDetails := (zv)MuteCD;

MuteCD.fValue := Volume;
CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails,
MIXER_GETCONTROLDETAILSF_VALUE));
finally
mixerClose(Mixer);
end;
end;
JIM Design wrote:
>
> ahoj,
>
> potreboval bych nejakym zpusobem (komponenta, API fce) ovladat hlasitost
> nejak podobne jako je ten reprak v trayi, poradite nekdo?
>
> Predem diky
>
> M.Jirman
Vaclav Sazima


Funkce + este nieco!

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 8.3.2001 12:47:05

OT: Funkce + este nieco!Ahoj,

ja mam Outlooku nastaveno v "Nastroje->Moznosti->Format posty->Format
zpravy->Odeslat v tomto" nastaveno Prosty text, ale je to Outlook 98, takze
nevim, jestli to jde i v Outlook 2000. Ale rekl bych, ze taky zalezi na tom,
jak je zprava vytvorena, pokud Ti prijde jako HTML, tak ti odpoved asi sama
od sebe odejde jako HTML. Ale zas tak moc me to netrapi, abych dlouze badal
nad tim, jak to PanBuh (eh, chtel jsem napsal Billy G.) myslel :-))

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

-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
brant(zv)dcomm(tec)cz
Odesl�no: 8. b�ezna 2001 12:23
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: OT: Funkce + este nieco! No vidis a zrovna tady jsem se dvakrat presvedcoval, jestli to odesilam
jako plain text. Radil mi kolega Kral, abych si v kontaktech Outlooku2K
nastavil v checkboxu u mailove adresy "Odesilat jako prosty text" a ja tam
ten checkbox nemam!!! Dokonce jsme si vymenili screenshoty, abychom videli,
ze oba mluvime o tomtez. A to mame stejnou konfiguraci!!! Takze jsme tam,
kde jsme byli.

Zdravim a vitam jakekoli rady (krome rad typu "zahod Outlook a dej si tam
neco jineho" - mam to vazane jeste na jine veci).

RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380

D&COMM s.r.o
Korunova�n� 6
Praha 7

-----Original Message-----
From: Ji�� Foldyna [mailto:jiri.f(zv)avizo(tec)cz]
Sent: Thursday, March 08, 2001 9:41 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Funkce + este nieco!
No tak tohle zrovna bylo HTML :-))))))

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

BTW, nastavuji to POKAZDE a presto to do konference NEKDY dojde v HTML.
Naprosto netusim, cim to je a byl bych vdecny, kdyby mi nekdo poradil. W98,
Outlook2000, server W2000, MS Exchange Server 2000 (patrne).

RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380
D&COMM s.r.o
Korunova�n� 6
Praha 7
btw: radsej by si mohli ludkovia, ktory posielaju emaily v HTML formate
nastavit PLAIN TEXT!!! Mam pocit ze par krat to tu prebehlo uz aj v
pravidlach a stale nic.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz

LCK soubory

[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 8.3.2001 12:57:20

> Ahoj,
> chtel jsem se zeptat proc se tvori lck soubory, kdyz se pripojuji
> k databazi

Jelikoz a protoze CachedUpdates pouzivaji docasne paradoxi sobory, at to
bezi nad jskou chces databazi ...

T.

_______________________________
Tom�# Vlad�k
vladik(zv)swadvice(tec)cz
ICQ# 101763081

DBF Memo

[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 8.3.2001 13:03:23

Mam nasledujuci problem.
Tabulka DBF pouziva MEMO polozku. Obcas sa stava sa ze ak zapisem nieco do
MEMO tak sa to objavi u ineho zaznamu - vcom moze byt problem - ako je to
mozne odstanit? Mam nejako porusenu tabulku ? Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk
http://www.nexus.hu/tungli

NEW SQL REPORT BUILDER - end user designer , similar report programing
EDGE components for D5 free with source code (parse SQL query to part:
select.from,where,order... )


> -----P�vodn� zpr�va-----
> Od: Michal Jiskra [SMTP:jiskra(zv)eskon(tec)cz]
> Odesl�no: 8. marec 2000 10:48
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: LCK soubory
>
> Ahoj,
> chtel jsem se zeptat proc se tvori lck soubory, kdyz se pripojuji k
> databazi
> SQL pres BDE a ODBC. Mylsel jsem si, ze se tyto soubory tvori pouze pro
> paradoxovske databaze/tabulky. Mam problem s hlasenim "LockFile has grown
> too large" coz znamena, ze lck soubor je prilis veliky. Aplikace je
> aplikacnim serverem, ktery bezi neustale a po nejake dobe se objevi toto
> hlaseni. Kdy dochazi k umazavani zaznamu z lck souboru nebo jak
> zabezpecit
> aby se ten soubor nezvetsoval ? Aplikacni server vyrizuje pozadavky
> klientu
> a pro nektere pozadavky spousti vlakna ve kterych se vytvareji nove
> spojeni
> na databazi. Pokud se dejme tomu po vykonane praci datamodul(spojeni na
> SQL)
> nezrusi, pak se asi nezmensi ani lck soubor, ze ? Coz by mohlo byt
> pricinou
> problemu. Jinak BDE si asi praci s lck ridi samo, ale pokud by nekdo vedel
> jak to ovlivnit ...
>
> Diky za pomoc.
>
> S pozdravem
> Michal Jiskra


USB

[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 8.3.2001 13:10:47

Ahoj.

Nemate nekdo nejake priklady pro Delphi na USB.
Pripadne nejake odkazy kde bych se o tom dozvedel vice?

Diky
Dalibor


LCK soubory

[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.3.2001 13:29:32

> chtel jsem se zeptat proc se tvori lck soubory, kdyz se pripojuji k
> databazi SQL pres BDE a ODBC.

Ahoj,

nevim, zda to je ono, ale treba... Kdysi jsem mela taky aplikaci
BDE + ODBC jedouci proti MSSQL7 a ta taky z me neznamych
duvodu vytvarela pomocne paradoxi tabulky. Pak se zjistilo, ze tyto
pomocne tabulky si vytvari BDE, pokud potrebuje neco odlozit.
Typickym prikladem, kdy vznikaly, bylo tusim cached updates. Mylsel jsem si, ze se tyto soubory tvori
> pouze pro paradoxovske databaze/tabulky. Mam problem s hlasenim
> "LockFile has grown too large" coz znamena, ze lck soubor je prilis
> veliky. Aplikace je aplikacnim serverem, ktery bezi neustale a po
> nejake dobe se objevi toto hlaseni. Kdy dochazi k umazavani zaznamu z
> lck souboru nebo jak zabezpecit aby se ten soubor nezvetsoval ?

Jak plyne z uvedeneho, bylo by potreba zjistit, co konkretne
zpusobuje potrebu BDE vest pomocnou tabulku. Pokud to bude
nejaka query, mozna by stacilo ji cas od casu zavrit, nebo lepe -
preprogramovat to tak, aby pomocna tabulka nebyla potreba
(pokud to jde).

David Lebeda


SpellChecker

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 8.3.2001 13:30:51

Ahoj,

nevim, jestli to zapadlo nebo fakt nikdo nic nevi, ale potreboval bych do
aplikace integrovat spellchecker pro cestinu. Nevi nekdo o necem (pro D5,
W95/98/ME/NT/2000, za penize).

Diky

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

Problemy pri ruznych verzich BDE?

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 8.3.2001 13:38:56

On 8 Mar 2001, at 10:32, brant(zv)dcomm(tec)cz wrote:

> nevite nekdo, jestli ruzne verze BDE (z Delphi 4 Pro a Delphi5 Pro)
> nemohou zpusobovat problemy pri soucasnem provozu v jedne siti? U
> jednoho zakaznika jsou totiz vsude verze z D4, pouze na jednom
> pocitaci je verze z D5 a prave tento pocitac vykazuje velmi podivne
> chovani (pro zajimavost par chybovych hlaseni, ktera mi chodi mailem):

Muze, zaslane vypisy jsou toho dokladem. Takze budto aktualizuj
BDE na vsech zucastnenych pocitacich, a/nebo se zbav BDE
uplne prechodem na jinou technologii.


S pozdravem

Zbysek Hlinka

http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


spec. spusteni DOS-ulohy

[*] Petr <DelphiForum(zv)seznam(tec)cz> - 8.3.2001 13:56:46

function WinExecAndWait32(FileName:String; Visibility : integer):boolean;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName,
nil,
nil,
false,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo) then Result := false

else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
Result:=true;
end;
end;

Petr Jur�k, Spr�vce s�t�, program�tor
COMET System s.r.o.
1.M�je 1220
756 61 Ro�nov pod Radho#t�m
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz


----- Original Message -----
From: Pesek Michal <Michal.Pesek(zv)mnul(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, March 08, 2001 11:35 AM
Subject: RE: spec. spusteni DOS-ulohy


> Tento problem jsem jiz nekde stahnul z netu a umistil u sebe.
>
> Koukni tam
>
> www.peprsoft(tec)cz/default.asp?id=delphi/Tipy.asp?Id=15
>
>
> S pozdravem
> Michal PEPR Pesek
> http://www.peprsoft(tec)cz
>
>
>
> -----Original Message-----
> From: Mosny Miroslav [mailto:miro(zv)smp(tec)cz]
> Sent: Thursday, March 08, 2001 10:03 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: spec. spusteni DOS-ulohy
>
>
> Zdar,
>
> Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
> DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
> skonci ten DOS-prg ?
>
> Diky, Miro
>


---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.237 / Virov� b�ze: 115 - datum vyd�n�: 07.03.01


spec. spusteni DOS-ulohy

[*] Pesek Michal <Michal.Pesek(zv)mnul(tec)cz> - 8.3.2001 13:56:26

Omlouv�m se, ale ten odkaz m� vypadat takto:

www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=15


>Tento problem jsem jiz nekde stahnul z netu a umistil u sebe.

>Koukni tam

>www.peprsoft(tec)cz/default.asp?id=delphi/Tipy.asp?Id=15


S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz

-----Original Message-----
From: Mosny Miroslav [mailto:miro(zv)smp(tec)cz]
Sent: Thursday, March 08, 2001 10:03 AM
To: delphi-l(zv)fwd(tec)cz
Subject: spec. spusteni DOS-ulohy


Zdar,

Nevite nekdo, jakym zpusobem zaridim, abych mohl z D5 zpustit nejaky
DOS-prg /W9x/ tak, aby aplikace Delphi "zamrzla" po dobu, nez
skonci ten DOS-prg ?

Diky, Miro


Bad driver ??

[*] Flon <flon(zv)pobox.sk> - 8.3.2001 13:56:04


Zdravim !

Mam takyto problem.. nas zakaznik pouziva MS SQL Server verziu tusim 4.nieco, pracuje sa tam v aplikaciach robenych v CAVO a Delphi (3,4). Vsetko tam bezalo OK, len teraz bola potreba upravit nejake veci v Delphi aplikacii.. dopracoval som to, prekompiloval, spustil EXE a po prihlaseni mi vypisuje : "YOUR APPLICATION IS NOT ENABLED FOR USE WITH THIS DRIVER"
Ked som chcel pristupit k tabulkam cez DBExplorer, v pohode, spustil som stare, neupravovane EXE - tiez v pohode, len po tych upravach mi to stale vypisuje tu hlasku.. a taktiez, ked som v design-time a chcem otvorit nejaku tabulku, tak po prihlaseni znova ta ista chyba..

Cim to moze byt a ako to odstranit, poradi niekto ??

Dik kazdemu napadu...


____________________________________
P. S. V. P. U.
http://www.pobox.sk/

DBComboBox

[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 8.3.2001 14:00:46

Ahoj Delphaci,
mam nasledujici problem:

Do DBEditu prirazuji pres DBComboBox polozky z ciselniku. Stava se mi ale,
ze pri prirazovani se pri kliknuti na nekterou polozku v DBComboBoxu tato
polozka zduplikuje. To znamena, ze je v seznamu dvakrat, napriklad ob dva
radky a je oznacena dvakrat. Do Editu se priradi dobre, ale je to nehezky.

* Pouzita databaze SQL Serveru 7.0.
* Pripojeni pres BDE a ODBC.
* Server pouziva kodovani CP 1250 (Ceske).
* Default language je Anglictina.

Nevite nekdo v cem muze byt problem ? V ciselniku jsou polozky ktere
zacinaji hackem. To ale neni problem, uz jsem to zkousel.

Predem diky za rady.

Filip


Bad driver ??

[*] Milink Otakar <otam(zv)tdat(tec)cz> - 8.3.2001 14:46:12

Podle mne byla puvodni aplikace kompilovana ve verzi
Client-Server nebo Enterprise a nyni se pokusite ji
kompilovat ve verzi Delphi Proffesional. Ovladac pro
MS-SQL server v BDE asi zbyl od puvodni aplikace, ale
ta nova ho nemuze pouzit. (Je to logicka obrana Borlandu,
protoze jinak by stacilo mit proffesional verzi Delphi,
stahnout si aktualizaci BDE vcetne SQL Links a vytvaret
aplikace jako v D C-S nebo Ent.)

s pozdravem Otakar Milink

P.S. MS SQL Server verze 4.nieco opravdu existuje?

>
> Zdravim !
>
> Mam takyto problem.. nas zakaznik pouziva MS SQL Server
> verziu tusim 4.nieco, pracuje sa tam v aplikaciach robenych v
> CAVO a Delphi (3,4). Vsetko tam bezalo OK, len teraz bola
> potreba upravit nejake veci v Delphi aplikacii.. dopracoval
> som to, prekompiloval, spustil EXE a po prihlaseni mi
> vypisuje : "YOUR APPLICATION IS NOT ENABLED FOR USE WITH THIS DRIVER"
> Ked som chcel pristupit k tabulkam cez DBExplorer, v pohode,
> spustil som stare, neupravovane EXE - tiez v pohode, len po
> tych upravach mi to stale vypisuje tu hlasku.. a taktiez, ked
> som v design-time a chcem otvorit nejaku tabulku, tak po
> prihlaseni znova ta ista chyba..
>

Bad driver ??

[*] �ampulka Ji�� - 8.3.2001 14:50:21

Pravdepodobne si to zkompiloval v Delphi Standard.

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Flon
> Sent: Thursday, March 08, 2001 1:56 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Bad driver ??
> Importance: High
>
>
> Zdravim !
>
> Mam takyto problem.. nas zakaznik pouziva MS SQL Server
> verziu tusim 4.nieco, pracuje sa tam v aplikaciach robenych v
> CAVO a Delphi (3,4). Vsetko tam bezalo OK, len teraz bola
> potreba upravit nejake veci v Delphi aplikacii.. dopracoval
> som to, prekompiloval, spustil EXE a po prihlaseni mi
> vypisuje : "YOUR APPLICATION IS NOT ENABLED FOR USE WITH THIS DRIVER"
> Ked som chcel pristupit k tabulkam cez DBExplorer, v pohode,
> spustil som stare, neupravovane EXE - tiez v pohode, len po
> tych upravach mi to stale vypisuje tu hlasku.. a taktiez, ked
> som v design-time a chcem otvorit nejaku tabulku, tak po
> prihlaseni znova ta ista chyba..
>
> Cim to moze byt a ako to odstranit, poradi niekto ??
>
> Dik kazdemu napadu...
>
> ____________________________________
> P. S. V. P. U.
> http://www.pobox.sk/
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.231 / Virov� b�ze: 112 - datum vyd�n�: 12.2.2001


Setrideni polozek v CheckListBox

[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 8.3.2001 14:50:56

Ahoj, neslo by to naplnit tak, ze si vytvoris stringlist trideny podle Tvych
pozadavku a pak hodnoty presoupat do property items
u checklistboxu?

Je to cucane z hlavy, ted delfiny nemam nainstalovane, takze si nemuzu
overit toto tvrzeni. Ale snad by to melo jit.

Martin

-----Original Message-----
From: Petr Kucera [mailto:kucera(zv)vri(tec)cz]
Sent: Thursday, March 08, 2001 10:17 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Setrideni polozek v CheckListBox


Dobry den,

prosim Vas, jak by se daly setridit polozky v CheckListBox tak,
aby byly serazeny od nejvyssi po nejnizsi, nikoliv od nejnizsi po
nejvyssi, coz je tak, jak to dela standartne.

Dekuji.

Petr Kucera


SpellChecker

[*] Ji�� Kr�l jr. - 8.3.2001 14:50:08

zkus kontaktovat Software602, jestli jsou ochotni licencovat jejich engine

==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)click(tec)cz
ICQ# 15303940
PGP ID: 62B8BA3C (najdete na www.pgp(tec)cz)

>>-----Original Message-----
>>From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
>>Ji�� Foldyna
>>Sent: Thursday, March 08, 2001 1:31 PM
>>To: 'Delphi konference'
>>Subject: SpellChecker
>>
>>
>>Ahoj,
>>
>>nevim, jestli to zapadlo nebo fakt nikdo nic nevi, ale potreboval bych do
>>aplikace integrovat spellchecker pro cestinu. Nevi nekdo o necem (pro D5,
>>W95/98/ME/NT/2000, za penize).
>>
>>Diky
>>
>>Ing. Jiri Foldyna
>>mailto:jiri.f(zv)avizo(tec)cz
>>
>>
>>

FileList

[*] honza.dforum <honza.dforum(zv)atlas(tec)cz> - 8.3.2001 15:33:09

Na tohle ja pouzivam komponentu LsFileExplorer25.
Honza

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
KadaneM(zv)sdc.pce.cdrail(tec)cz
Sent: Monday, March 05, 2001 12:30 PM
To: delphi-l(zv)fwd(tec)cz
Subject: FileList


Nemate nekdo komponentu ktera by ukazovala adresare, soubory a hlavne ".."
nahore???
Dik Mirek


Problemy pri ruznych verzich BDE?

[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 8.3.2001 16:11:26


Ahoj,

jak se muzu vyhnou pouzivani BDE pro mou databazovou aplikaci v
Deplhi, resp. na jakou jinou technologii lze prejit?

dan


> Muze, zaslane vypisy jsou toho dokladem. Takze budto aktualizuj
> BDE na vsech zucastnenych pocitacich, a/nebo se zbav BDE
> uplne prechodem na jinou technologii.
>
>
> S pozdravem
>
> Zbysek Hlinka
>
> http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ

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


zmena TV obrazu

[*] Ji�� PLETICHA <jiri.pleticha(zv)centrum(tec)cz> - 08.3.2001 17:12:32

Zdravim,

nejlepsi by bylo prevadet obraz do urcite skaly sede barvy a
pro snizeni narocnosti ho presamplovat do mensiho rozliseni.
Vznikne tim sice "nekoukatelny" obraz, ale pokud je to jen na
zjistovani pohybu, tak je to asi jedina schudna cesta bez
sloziteho HW.

Jirka


______________________________________________________________
> Od: "Hurricane" <hurricane(zv)quick(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Tue, 6 Mar 2001 22:38:28 +0100
> P�edm�t: zmena TV obrazu
>
> Zdravim
>
> Zakaznik potrebuje z obrazu TV zjistovat, jestli se scena
zmenila nebo ne.
> Kamera bude stale sledovat nejspis nejake pohyblive zarizeni a
ja potrebuju
> zjistovat, jestli se to hejbe nebo ne. Vim ale, ze nelze
dosahnout
> statickeho obrazu, jelikoz se ty pixely porad lehce meni.
>
> Nevite nekdo jak na to?
>
> Dik
> Hurricane
>


K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz


ukladani vice veci do jednoho souboru

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 8.3.2001 17:13:22

Ahoj,

BlockRead a BlockWrite duverne zname vsichni, co jsme s Borlandem od
zacatku. Funkce ctou/zapisuji do souboru (otevrit pres AssignFile,
Reset(file, delka bloku) nebo Rewrite(file, delka bloku). Pokud neuvedes
delku bloku, pouzije se implicitne 128 byte (to je pozustatek z dob, kdy
delka sektoru na diskete byla 128 byte).
Pro praci s binarnimi soubory v Delphi je podstatne vyhodnejsi pouzivat
streamy, protoze jsou daleko pruznejsi. Podivej se do helpu nebo do manualu.

Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Vaclav Krejci
> Odesl�no: 8. b�ezna 1999 16:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: ukladani vice veci do jednoho souboru
>
>
> Zdravim,
>
> mam takovy mensi problem, potreboval bych
> ulozit do jednoho souboru vice veci (par
> integeru, stringu a hlavne array, pokud by to
> bylo mozne tak i bitmapu...). Nevite nekdo, jak
> to udelat ? Nekde jsem videl neco pouzivajici
> fce BlockRead a BlockWrite, nemohl by me
> nekdo strucne vysvetlit jejich vyznam ? dik
> za vsechny reakce....
>
>

BlobStream

[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 8.3.2001 17:39:17

Ahoj,

From: Peter Vlkovic <vlkovic(zv)minv.sk>

> Nefunguje.
> V okamihu priradenia polozky (MyImage.DataField := 'Picture')
> vznikne chyba Stream read error.

'Picture' je nazev_pole typu Blob (0,5) a Pdx tabulka,
pripousitim, ze je to TROCHU zavadejici

Jarek Uher

>
> Urobim to nakoniec asi tak, ze obrazok
> budem ukladat do databazy ako textove Memo,
> hoci si vyziada zbytocne konverzie (napriklad
> do Hexa) pri jeho zapise a citani.
>
> Vlkovic
>
>
> > take se mi to nepodarilo nacist pres Stream a tak jsem to 'obesel'
> > takto: var
> > MyImage : TDBImage;
> > begin
> > MyImage := TDBImage.Create(Self);
> > try
> > MyImage.DataField := 'Picture';
> > MyImage.DataSource := DataModul.DataSourceKovani;
> > MyImage.Visible :=false;
> > FormKovaniKarta.Image1.Picture.Assign(MyImage.Picture);
> > finally
> > MyImage.Free;
> > end;
> > end;
>

Setrideni polozek v CheckListBox

[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 8.3.2001 17:56:18

Trochu krkolomne by to slo pomoci TStringList:

procedure SortCheckListBox(var CB:TCheckListBox;Ascending:Boolean);
Var pomSL:TStringList;
pomI:Integer;
begin
If not CB.Sorted then
CB.Sorted:=True;
If not Ascending then
begin
CB.Sorted:=False;
pomSL:=TStringList.Create;
try
For pomI:=CB.Items.Count-1 downto 0 do
pomSL.Append(CB.Items.Strings[PomI]);
CB.Items.Assign(pomSL);
finally
pomSL.Free;
end;
end;
end;

Sestrideni vzestupne (standartni):
SortCheckListBox(CheckListBox1,True);

Sestrideni sestupne:
SortCheckListBox(CheckListBox1,False);

S pozdravem Pavel Koukal.

> From: Petr Kucera [mailto:kucera(zv)vri(tec)cz]
>
>
> Dobry den,
>
> prosim Vas, jak by se daly setridit polozky v CheckListBox tak,
> aby byly serazeny od nejvyssi po nejnizsi, nikoliv od nejnizsi po
> nejvyssi, coz je tak, jak to dela standartne.
>
> Dekuji.
>
> Petr Kucera
>

Probl�m s Rx tray ikonou

[*] Milan ��ek - 8.3.2001 18:05:11

ahoj,
objevil jsem zajimavy nedostatek: ve sve aplikaci pouzivam TrayIkonu z
komponent RxLib. Pokud rozbalim popup menu na ikone, a pak kliknu levim na
tu ikonu - nasledne po kombinaci ALT+F4 mi program nadale bezi, ale
TrayIkona se uzavre...

Nevite prosim nekdo, co stim? :_-(

Diky predem.

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


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


Zipmaster + hidden files

[*] Maly(zv)pds.pce.cdrail(tec)cz - 8.3.2001 18:53:41

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
komponenta Zipmaster mi nekomprimuje hidden soubory i kdyz mam nastaveno v
AddOptoins AddHiddenFiles na true. Je to normalni ?

Lada Maly


ukladani vice veci do jednoho souboru

[*] brant(zv)dcomm(tec)cz - 8.3.2001 18:56:05

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,
misto dlouheho povidani prikladam jeste o neco delsi kus kodu, ze ktereho to
snad bude zrejme (ale s tou bitmapou nevim):

try
AssignFile(f, fname);
Rewrite(f, 1);<------- ta jednicka je VELMI dulezita !!!!!
except
Application.MessageBox('Do souboru nelze zapisovat. P�esv�d�te se, �e nen�
chr�n�n proti z�pisu nebo ulo�en na m�diu, kam nelze
zapisovat.','Upozorn�n�',MB ICONSTOP);
Result:=false;
exit;
end;
if not prezent then s:='Dynamic geometry 3.0 construction file'
else s:= 'Dynamic geometry 3.0 presentation';
i:=length(s) + 1;
blockwrite(f, i, sizeof(integer));
blockwrite(f, s, Length(s) + 1,amt);
//ulo�en� barev...
blockwrite(f, OknoMoznosti.clb bod rucne, sizeof(TColor));
blockwrite(f, OknoMoznosti.clb stred us, sizeof(TColor));
....
//styly �ar...
blockwrite(f, OknoMoznosti.lsb bod rucne, sizeof(TPenStyle));
blockwrite(f, OknoMoznosti.lsb stred us, sizeof(TPenStyle));
....
//tlou##ky �ar
blockwrite(f, OknoMoznosti.lwb bod rucne, sizeof(integer));
blockwrite(f, OknoMoznosti.lwb stred us, sizeof(integer));
....
blockwrite(f, OknoMoznosti.des mist, sizeof(integer));
blockwrite(f, OknoMoznosti.oba uhly, sizeof(boolean));
blockwrite(f, OknoMoznosti.ozn primek, sizeof(boolean));
blockwrite(f, OknoMoznosti.ozn bodu, sizeof(boolean));
blockwrite(f, OknoMoznosti.ozn kruznic, sizeof(boolean));
amt := DynGeom.Objekty.Count ;
blockwrite(f, amt, sizeof(integer));
for i:=0 to DynGeom.Objekty.Count - 1 do
begin
blockwrite(f, TGrafObjekt(DynGeom.objekty.Items[i]).oznacen,
sizeof(boolean));
blockwrite(f, TGrafObjekt(DynGeom.objekty.Items[i]).lze hybat,
sizeof(boolean));
amt :=
DynGeom.index objektu(TGrafObjekt(DynGeom.objekty.Items[i]).lezi na);
blockwrite(f, amt, sizeof(integer));
e := TGrafObjekt(DynGeom.objekty.Items[i]).kde lezi;
blockwrite(f, e, sizeof(Extended));
blockwrite(f, TGrafObjekt(DynGeom.objekty.Items[i]).stopa,
sizeof(boolean));
blockwrite(f, TGrafObjekt(DynGeom.objekty.Items[i]).barva,
sizeof(TColor));

atd. atd.

Cili blockwrite(f, objekt daneho typu, sizeof(objekt daneho typu)), pole
bych ukladal pomoci cyklu s tim, ze nejdrive se ulozi pocet, pak to ostatni
a cist se to musi samozrejme v tomtez poradi. Kdyz tak napis na soukromy
mail, rad poradim.

Preji mnoho uspechu

RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380

D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: Vaclav Krejci [mailto:krejciv(zv)ssakhk(tec)cz]
Sent: Monday, March 08, 1999 4:59 PM
To: delphi-l(zv)fwd(tec)cz
Subject: ukladani vice veci do jednoho souboru


Zdravim,

mam takovy mensi problem, potreboval bych
ulozit do jednoho souboru vice veci (par
integeru, stringu a hlavne array, pokud by to
bylo mozne tak i bitmapu...). Nevite nekdo, jak
to udelat ? Nekde jsem videl neco pouzivajici
fce BlockRead a BlockWrite, nemohl by me
nekdo strucne vysvetlit jejich vyznam ? dik
za vsechny reakce....

serazeni hodnot v stringgrid

[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 8.3.2001 19:47:42

Ahoj,
pri pokusu o zapis na p[i + 1] v pripade, ze i = 9 dojde k Access
Violation - snazis se zapisovat na adresu p[10], pole je deklarovano s
indexem [0..9].
radek >> p[i+1]:=j;

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


D5 mi vyhazuje chybu pri setrizeni hodnot ve stringgridu od nejvetsi po
nejmensi
tahle procedura funguje bez problemu


procedure TForm1.Button1Click(Sender: TObject);
var p:array[0..9] of integer;
i,j:integer;
zam:boolean;
begin
for i:=0 to 9 do
p[i]:=strtoint(stringgrid1.cells[i,0]);

i:=0;
repeat
zam:=false;
for i:=0 to 9 do
begin
if p[i]>p[i+1] then {tzv. bublinkove trideni -setrizeni hodnot od
nejmensi po nejvetsi}
begin
j:=p[i];
p[i]:=p[i+1];
p[i+1]:=j;
zam:=true;
end
end;
until zam=false;
for i:=0 to 9 do
stringgrid1.cells[i,0]:=inttostr(p[i]);
end;

ale kdyz se tam > prehodi na < (aby se hodnoty setridily od nejvetsiho po
nejmensi) tak to nefunguje (zkompiluje se, ale program spadne)
vcelku by me zajimalo proc, jestli se ma predelat jeste neco jinyho, nebo je
tam chyba v necem jinym?


Predem dekuji za odpoved

Jarek, zacatecnik

Problemy pri ruznych verzich BDE?

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 8.3.2001 20:53:36

On 8 Mar 2001, at 16:11, Daniel Dedek wrote:

> jak se muzu vyhnou pouzivani BDE pro mou databazovou aplikaci v
> Deplhi, resp. na jakou jinou technologii lze prejit?

Jestli mas D5, tak je zde na vyber cela skala ruznych technologii.
Pak hodne zalezi na databazi, se kterou se chces bavit. Pro
paradox je lepsi zustat u BDE, ale paradox je lepsi vubec
nepouzivat, zejmena ne na siti. Pro IB je primo v Delphi sada
komponent, ale ve svete jich je cela rada. Pro MS SQL je nejlepsi
ADO nebo OLE DB. Pak jeste existuje rada primych pristupu nebo
pres ODBC pro ruzne jine databaze. Pokud si nic nevyberes, mas
vzdy moznost si napsat nejaky pristup sam. :-)

>
> > Muze, zaslane vypisy jsou toho dokladem. Takze budto aktualizuj BDE
> > na vsech zucastnenych pocitacich, a/nebo se zbav BDE uplne prechodem
> > na jinou technologii.
> >
> >
> > S pozdravem
> >
> > Zbysek Hlinka
> >
> > http://www.hlinka(tec)cz http://www.slhaters(tec)cz
> > Phones: 02/795 29 56; GSM: 0603 551 282
> > Krystofova 1016, 149 00 Praha 4
> > CZ
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.230 / Virov� b�ze: 111 - datum vyd�n�: 25.1.2001
>
S pozdravem

Zbysek Hlinka

http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Distribuce programu

[*] David FM <dave.fm(zv)atlas(tec)cz> - 8.3.2001 21:00:41

Ahoj Delphici,

co pouzit za program pro vytvoreni instalace, co vsechno udelat proto abych
kdyz jinde na PC nainstaluji (distribuji) svuj program aby bezel.
Jedna se mi vlastne databasovy program:
pouzivam BDE, database je Interbase 6 (zatim jen lokalni).

Diky moc za jakekoliv nakopnuti

David


serazeni hodnot v stringgrid

[*] brant(zv)dcomm(tec)cz - 8.3.2001 21:14:56

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.

Rekl bych, ze ten cyklus by nemel byt do 9, ale jen do 8, protoze v pripade
i=9 se p[i+1] odkazuje na polozku s indexem 10, ktera uz neexistuje.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
ICQ # 68652380

D&COMM s.r.o
Korunova�n� 6
Praha 7

-----Original Message-----
From: Jarek Kr�ek [mailto:coniek(zv)centrum(tec)cz]
Sent: Tuesday, March 06, 2001 11:48 PM
To: delphi-l(zv)fwd(tec)cz
Subject: serazeni hodnot v stringgrid


D5 mi vyhazuje chybu pri setrizeni hodnot ve stringgridu od nejvetsi po
nejmensi
tahle procedura funguje bez problemu


procedure TForm1.Button1Click(Sender: TObject);
var p:array[0..9] of integer;
i,j:integer;
zam:boolean;
begin
for i:=0 to 9 do
p[i]:=strtoint(stringgrid1.cells[i,0]);

i:=0;
repeat
zam:=false;
for i:=0 to 9 do
begin
if p[i]>p[i+1] then {tzv. bublinkove trideni -setrizeni hodnot od
nejmensi po nejvetsi}
begin
j:=p[i];
p[i]:=p[i+1];
p[i+1]:=j;
zam:=true;
end
end;
until zam=false;
for i:=0 to 9 do
stringgrid1.cells[i,0]:=inttostr(p[i]);
end;

ale kdyz se tam > prehodi na < (aby se hodnoty setridily od nejvetsiho po
nejmensi) tak to nefunguje (zkompiluje se, ale program spadne)
vcelku by me zajimalo proc, jestli se ma predelat jeste neco jinyho, nebo je
tam chyba v necem jinym?


Predem dekuji za odpoved

Jarek, zacatecnik
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.228 / Virov� b�ze: 109 - datum vyd�n�: 17.1.2001


Nacteni numericke hodnoty z Oraclu do Deplhi

[*] Petr Skrivanek <skrivanek(zv)kn.vutbr(tec)cz> - 8.3.2001 22:19:42

Tak uz jsem na to prisel,
staci zmenit datovy typ z Numeric na Number (nebo Real nebo Float) a uz to p
racuje v poradku. Datove typy jako Decimal, Integer vykazuji stejny problem
jako datovy typ Numeric.
Petr Skrivanek

----- Original Message -----
From: Petr Skrivanek <skrivanek(zv)kn.vutbr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, March 06, 2001 12:35 PM
Subject: Nacteni numericke hodnoty z Oraclu do Deplhi


> Mam problem a nevim si s tim rady. Mam naistalovaneho clienta k vzdalenem
u
> serveru Oracle8i. Pro pristup z Deplhi5 pouzivam Oracle ODBC driver v 8.01
> Problem je ted takovy, ze kdyz udelam nejaky dotaz pomoci ADOQuery na
> libovolnou polozku v tabulce, ktera je pod ORACLEM vytvorena jako typ
> Numeric, vrati mi vzdy nulove hodnoty. Pritom kdyz to same provedu v SQL
> Exploreru, tak mi to vrati v poradku. Pri dotazu pres ADOQuery na polozky
> typu VarChar2 je retezova hodnota vracena v poradku.
> Kde prosim Vas delam chybu ??? Poradte prosim jak to vyresit.
> Dekuji za odpoved
>
>

Post a ALT+F4 nebo Krizek

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 8.3.2001 22:41:45

Tak potom muzes zkusit tohle. Jakmile zacnes editovat v jakemkoliv
editu, nastav si priznak (nejakou logickou promennou). Nulovat ji
budes pri stisku tlacitka pro ulozeni. Pokud bude nastavena, v
OnCloseQuery nastavis CanClose := False, to uzivateli nedovoli uzavrit
formular, a jeste mu muzes vynadat, ze to neulozil :-)

------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz

07.03.2001 Milan Ri#i:
> To jsem si nivne myslel taky. Jenomze ono se to jenom tvari, ze to funguje.
> Skus si dat polozku primo z tabulky na form, neco v ni udelej a nez z ni
> vyskocis, zrus form. Pres tlacitko, nebo odchod z polozky je to v pohode,
> ale prave, ze me obcas nastane tahle situace a jsem v p.... Na form tech
> polozek mam 30.
> Milan

>>
>> 07.03.2001 Milan Ri#i:
>> > Ahoj,
>>
>> > nevite nekdo, jak donutit Delphi, aby po stlaceni krizku nebo alt+f4 se
> provedl Post ? Close, CloseQuerry, Table, DataSource se mnou nekamaradi ...
>>
>> > Diky
>>
>>

Jak sortovat data v gridu?

[*] Josef L���a�����#{�s#ƫ��ej�� - 8.3.2001 22:43:41

Nevim, jak sortovat data napr. v gridu. Udelam dotaz (query) a pak potrebuji
tu vyslednou sadu seradit (v gridu napr. uzivatel chce tridit podle
sloupcu). Jak na to?

Karta Woodoo a poskozen� ikonky Delphi

[*] Jan Skopov� <jsdelphi(zv)atlas(tec)cz> - 9.3.2001 01:41:56

Karta Woodoo a po#kozen� ikonky DelphiMam tu smutnou zkusenost ze nakonec pomuze snizeni graficke akcelerace na minimum. (Nastaveni obrazovky - upresnit - vykon). Je to ale potom smutna prace.

Jan Skopovy
----- Original Message -----
From: Bene# Jaroslav
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, March 07, 2001 1:28 PM
Subject: RE: Karta Woodoo a poskozen� ikonky Delphi


Ahoj,

ja mam taky 3Dfx Woodoo3, on board, 8 MB RAM (internal DAC), bezi to na Win2000, a mam problemy s ikonami Delphi 5 (ale i v Delphi 3). Pokud knihovny BPL prebuduju, tak je do OK. Pokud ale ukoncim Delphi, tak po novem startu jsou bud cerne nebo nejak zmrsene (a jsou tak i na formularich a v seznamu ikon palety). Preinstaloval jsem posledni verzi ovladace urceneho pro tuto kartu a Win2000, ale nepomohlo to. Servisni program k manualnimu nastaveni karty jsem nikde nenasel. Pokud je potreba jeste nekde neco nastavit, pak nevim kde....

Co mi, prosim, poradite?

Jaro B.

JESTE JEDNOU POST a ALT+F4

[*] Milan Ri�i <milanrisi(zv)volny(tec)cz> - 9.3.2001 05:58:02

Diky za rady. Ja to taky obchazim, jak se da. To s tim nastavenim promenne a potvrzeni na editovaci rezim je uz docela systemove a snad i obecne reseni. Ale napada me dalsich minimalne 9 akci a nejen s Post a nejen v editovacim rezimu, kdy je treba osetrovat zruseni formulare mimo tlacitko ULOZIT a KONEC (tam je to v pohode). Takze se ptam trochu jinak - nemate nekdo napad, jak OBECNE "placnout uzivatele po ruce", kdyz chce odejit z formulare tim, ze ho zrusi namisto toho, aby pouzil tlacitko, kterym se ma z formulare odejit ? Samozrejme krome toho, ze vyhodim krizek z formulare ... Aby to nebylo tak jednoduche, pokud tam nic nedela, nebo se jen diva, a i v jinych pripadech, je vse v poradku. Mozna je to pro nekoho prkotina, ale ti co delaji programy pro nekoho a nejen pro sebe urcite vi, co uzivatel dokaze ...

Diky, Milan


Preskakovanie medzi textovym polom komponenty Edit

[*] kinekus <kinekus(zv)nextra.sk> - 9.3.2001 06:58:47

Ahojte, ked sa tu tolko preberala separacia zaciatocnikov a profikov, prosim
(ako zaciatocnik) radu (od profesionalov).

Pri vyplnani bezneho formularu, ktory obsahuje polia komponenty Edit,
potrebujem, aby po vyplneni (napr. Edit1) a stlaceni Enter sa aktivovalo na
pisanie dalsie pole Edit (napr Edit2) bez nutnosti prechadzat tam mysou
alebo stlacat tabulator. Ako to mam urobit ? Urcite mi pomozete.

Dakuejm

Milan F�bik

Quickreport ??

[*] Tibor G. #tromajer <tibors(zv)datex.sk> - 9.3.2001 07:33:46

Ahojte

Chcem sa opytat mozno banalnu vec, ale neviem na to prist.

Tlacove vystupy z mojej aplikacie robim cez Quickreport. V pagefooteri kazdej stany mam cislo strany.
Ja by smo to chcel spravit tak za by tam bol aj pocet stran a zapis bz vyzeral: "Str. c. xx z yy"
Nijako sa mi nedari zistit pocet stran (jedine vizualne v dolnom lavom rohu previewu)

A este jedna otazka

Niekedy potrebujem zlucit viac reportov a tlacit ich ako jeden. Na toto zrejme sluzi qrcompositereport.
Problem je taky, ze neviem dosiahnut aby kazdy report vlozeny do qrcompositereport
zacinal na novej strane. Inak to funguje OK.


Vedel by mi niekto poradit ?

Tibor G. Stromajer

© Delphi.cz, program netcode.cz, 2008-9.