Archív konference Delphi

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

uzivatelia edituju rovnaky zaznam v IB

[*] hlas <hlas(zv)inmail.sk> - 28.10.2002 08:39:35

Neviem, ci tomu nespravne rozumiem alebo to nefunguje...

Robim aplikaciu v D7 cez DBExpress komponentu TSimpleDataSet.
nad Firebirdom. Kod udalosti afterpost je jednoduchy:

if not DM.SQLCon.InTransaction then
begin
TD.TransactionID:=1;
TD.IsolationLevel:=xilREADCOMMITTED;
DM.SQLCon.StartTransaction(TD);
try
DM.SDSAdr.ApplyUpdates(-1);
DM.SDSAdrPol.ApplyUpdates(-1);
DM.SQLCon.Commit(TD);
except
DM.SQLCon.Rollback(TD);
end;
end;

V pripade, ze prvy uzivatel ulozi svoju zmenu skor, zmena sa zapise
do databazy. Druhy uzivatel pri pokuse o ulozenie toho isteho zaznamu
je upozorneny, ze pocas editacie boli zmenene niektore polia.
Zobrazi sa reconcile dialog na zaklade udalosti
OnReconcile Error, ktora je tiez jednoducha:

Action := HandleReconcileError(DataSet, UpdateKind, E);

Ocakaval som, ze uzivatel si v tomto dialogu moze vybrat, ci tie svoje
zmeny chce aj tak ulozit, alebo nie. Ocakaval som, ze ak vyberie
action:=raCorrect
zmeny druheho sa ulozia do databazy a vpodstate tak druhy uzivatel prepise
prveho, ale nic. Robim niekde chybu? Jednoducho nedokazem, aby druhy
prepisal prveho, ak chce.

uzivatelia edituju rovnaky zaznam v IB

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 28.10.2002 09:18:54

On 28 Oct 2002 at 8:39, hlas wrote:

> Neviem, ci tomu nespravne rozumiem alebo to nefunguje...
>
> if not DM.SQLCon.InTransaction then
> begin
> TD.TransactionID:=1;
> TD.IsolationLevel:=xilREADCOMMITTED;
> DM.SQLCon.StartTransaction(TD);
> try
> DM.SDSAdr.ApplyUpdates(-1);
> DM.SDSAdrPol.ApplyUpdates(-1);
> DM.SQLCon.Commit(TD);
> except
> DM.SQLCon.Rollback(TD);
> end;
> end;
>
> V pripade, ze prvy uzivatel ulozi svoju zmenu skor, zmena sa zapise do
> databazy. Druhy uzivatel pri pokuse o ulozenie toho isteho zaznamu je
> upozorneny, ...
> Robim niekde chybu?

Jo. Kdyz mas aktivni kursor na data, nemuzes je menit. Musis posila
SLQ prikaz Update. Budto si to predelej tak, aby sis jen stahnul data
a pak se od DB odpojil, nebo posli prikaz jinou komponentou a pak
udelej refresh.

S pozdravem

Zbysek Hlinka


Jak ziskat ico ?

[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 28.10.2002 10:44:41

Ahoj Konference
potreboval bych ziskavat ikonu zastupce.
{napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
na iconu v netscp.exe }

Nevi nekdo jak na to ?


Jiri Betunak
kindrik(zv)centrum(tec)cz
Delphi5 pro ;Windows ME 4 90

DBGrid a zadavani dat

[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 28.10.2002 10:58:23

Zdravim

Mam DBGrid a v nem slouce A,B,C. Jestlize chci editovat jen sloupec C
nastavim sloupec A,B ReadOnly na True.
Nastavim kursor na prvni zaznam sloupce C a po editaci klavesou TAB ci Enter
kursor skoci na nasledujici zaznam sloupce C. To je OK.
Jak ale osetrit stav kdy uzivatel oznaci udaj ve sloupci A mysi nebo
klavesou TAB tak aby kursor skocil ihned na udaj ve sloupci C a p�i najeti
prg se kurzor nastavil na prvni zaznam sloupce C

Diky za radu

Viktor Marek
viktor(zv)mbox.vol(tec)cz



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

uzivatelia edituju rovnaky zaznam v IB

[*] hlas <hlas(zv)inmail.sk> - 28.10.2002 11:40:09


----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>

> Jo. Kdyz mas aktivni kursor na data, nemuzes je menit. Musis posila
> SLQ prikaz Update. Budto si to predelej tak, aby sis jen stahnul data
> a pak se od DB odpojil, nebo posli prikaz jinou komponentou a pak
> udelej refresh.
>
> Zbysek Hlinka


Nemozes to popisat prosim ta lepsie? Ked robim s komponentou
TSimpleDataSet, tak neposielam sql prikaz update,
to riesi sama komponenta, takze neviem ako
by som cez TSimpleDataSet poslal Update.
Viem si to predstavit napr. cez IBX komponenty
IB Query a IBUpdateSql.

Neviem tiez ako sa odpijit od DB.
Akonahle dam Tsimpledataset.active:=false,
tak koncim...

Aku inu komponentu mam dat do hry?

Hlas

Ulozeni tabulky table.db

[*] Peter SKODA <peter(zv)korak.sk> - 28.10.2002 12:46:56

do eventu OnAfterPost a OnAfterDelete treba vlozit
dbiSaveChanges(Dataset.Handle);
a do uses BDE

----- Original Message -----
From: "Str�n�k Franti�ek Ing." <FStranik(zv)cpoj(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 11:15 AM
Subject: Ulozeni tabulky table.db


Dotaz bohuzel jeste ke klasickemu BDE.

Uzivatel ma jeste (bohuzel) starsi aplikaci BDE s tabulkama typu
"tabulka.db".
Uzivatel edituje inforamce v tabulkach a prubezne dela "Save" (table.post)
na tyto tabulky v domeni, ze se tyto informace prubezne ukladaji fyzicky do
tabulek na disk.

Nekdy se mu ovsem stane, ze se vypne proud a vsechny predchozi informace,
ktere byly takto prubezne "Ukladany" - (table.post) se ztratily. Ulozi se
data pri table.post fyzicky na disk ? (jak to zaridit ?)

zdrav�
Franti�ek STR�N�K

uzivatelia edituju rovnaky zaznam v IB

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 28.10.2002 13:06:53

On 28 Oct 2002 at 11:40, hlas wrote:

> Nemozes to popisat prosim ta lepsie? Ked robim s komponentou
> TSimpleDataSet, tak neposielam sql prikaz update,
> to riesi sama komponenta, takze neviem ako
> by som cez TSimpleDataSet poslal Update.
> Viem si to predstavit napr. cez IBX komponenty
> IB Query a IBUpdateSql.

Nesmis to nechat na komponente, kterou ctes data, zejmena kdyz tato
komponenta udrzuje zive spojeni na kursor s daty. Veskere inserty,
updaty a delety je stejne nejbezpecnejsi delat pomoci ulozenych
procedur.

S pozdravem

Zbysek Hlinka


Jak ziskat ico ?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.10.2002 14:24:08

From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> potreboval bych ziskavat ikonu zastupce.
> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
> na iconu v netscp.exe }

Napriklad pomoci funkce ShellLinkGetIcon v unitu JclShell v JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
http://delphi-jedi.org/CODELIBJCL

Petr Vones

Vytvoreni formulare a OnKeyPress

[*] Peter SKODA <peter(zv)korak.sk> - 28.10.2002 15:18:35

Musis pripojit metodu Frm.OnKeyPress:= na nejaku proceduru ktora ma rovnake
parametre ako OnKeyPress.Ta procedura by mala byt v unite kde sa vytvara ten
form.

----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 2:58 PM
Subject: Vytvoreni formulare a OnKeyPress



Ahoj,

prosim o radu. Vytvorim si formular (Frm := TForm.Create(Self)) a chtel bych
u nej testovat OnKeyPress.
Jak to prosim udelam ?

Diky

V.

DBGrid a zadavani dat

[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 28.10.2002 20:45:05

Zdravim

Po delsi dobe jsem prisel na toto

procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.SelectedIndex := 2;
DBGrid1.setfocus;
end;

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
DBGrid1.SelectedIndex := 2;
end;

Jak ale zamezit stavu, kdy mam napr. v DBGridu 3 zaznamy a po editaci 3
zaznamu dojde vlastne ke vkladani (Insertu) dalsiho zaznamu ve sloupci -
presneji receno chci pouze editovat existujici zaznamy.

Diky za odpoved

Viktor Marek
viktor(zv)mbox.vol(tec)cz

> Mam DBGrid a v nem slouce A,B,C. Jestlize chci editovat jen sloupec C
> nastavim sloupec A,B ReadOnly na True.
> Nastavim kursor na prvni zaznam sloupce C a po editaci klavesou TAB ci
Enter
> kursor skoci na nasledujici zaznam sloupce C. To je OK.
> Jak ale osetrit stav kdy uzivatel oznaci udaj ve sloupci A mysi nebo
> klavesou TAB tak aby kursor skocil ihned na udaj ve sloupci C a p�i najeti
> prg se kurzor nastavil na prvni zaznam sloupce C



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

Jak kontrolovat stanice ve vlaknu

[*] Petr Varga <djvar(zv)post(tec)cz> - 29.10.2002 00:15:35

Ahoj,
mam takovy zvlastni problem.
Mam serverovou aplikaci a spousty klientu (tedy 22). No klienti se
jednou za minutu pripojuji na server a predaji mu zpravu o stavu.
Ale zaroven chci zavest zpetnou kontrolu klientu. Tak jsem na
kazdeho klienta umistil jeste komponentu IDTCPserver a aktivoval
jsem ji. S tim, ze se na ne bude server pokouset pripojovat. Ale
protoze chci aby tato kontrola klientu nejak nezdrzovala server
(resp aby se na nem mohlo v klidu psat a delat jine veci) tak jsem
tuto kontrolu umistil do vlakna. Jenomze s idtcpclient (na serveru)
mohu zachazet jen prez synchonize coz mi zase zdrzuje server. Takze
bych potreboval vedet jak to udelat aby to vlastne bezelo v
samostatnem vlaknu, ale zaroven do hlavniho formulare zapisoval,
zda-li je klient stale v provozu.

A jeste jednu radu bych potreboval. V databazi mam par polozek ktere
jsou boolean. No a je nevhodne kdyz se zobrazuji v dbgridu jako
True/false takze jak to mohu treba predelat na Ano/ne ? Dekuji
predem Petr

---
Str�nky o automobilech, novinky, autobazary, nov� auta,
p��slu�enstv�, poji�t�n� aut... http://automoto.volny(tec)cz

Nahodne padani aplikace

[*] Kenny <kenny(zv)razdva(tec)cz> - 29.10.2002 00:47:16

Zdravim vsechny v konferenci,

nemate nekdo zkusenost s %subj%, aplikace nahodne zmizi, jakoby se korektne
vypla, ale bez ohlaseni vyjimky. Problem je, ze mizi zcela nahodile, nekdy
za cely den nespadne, nekdy i nekolikrat do hodiny. A to vse se zacalo
objevovat samo bez zasahu do zdrojaku, jen mi vymenili sitovy server (ze by
to bylo ono?).

Aplikace bezi na WinNT SP6 a Win2000, D5 a BDE 5.01.

Potrebuji poradit, jak zjistit o jakou chybu jde, nebo jestli nekdo neznate
nejaky konflikty v softwaru napr. BDE a SP6,...

Dik za kazdou radu

Filip Rozsival

Jak kontrolovat stanice ve vlaknu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 00:52:20

From: "Petr Varga" <djvar(zv)post(tec)cz>
> Mam serverovou aplikaci a spousty klientu (tedy 22). No klienti se jednou za
> minutu pripojuji na server a predaji mu zpravu o stavu. Ale zaroven chci
> zavest zpetnou kontrolu klientu. Tak jsem na kazdeho klienta umistil jeste
> komponentu IDTCPserver a aktivoval jsem ji. S tim, ze se na ne bude server
> pokouset pripojovat. Ale protoze chci aby tato kontrola klientu nejak
> nezdrzovala server (resp aby se na nem mohlo v klidu psat a delat jine veci)
> tak jsem tuto kontrolu umistil do vlakna. Jenomze s idtcpclient (na serveru)
> mohu zachazet jen prez synchonize coz mi zase zdrzuje server. Takze bych
> potreboval vedet jak to udelat aby to vlastne bezelo v samostatnem vlaknu,
> ale zaroven do hlavniho formulare zapisoval, zda-li je klient stale v
> provozu.

Toto je dobry priklad toho kde zacina omezeni vetsiny komponent. Priznam se ze
neznam tak dobre Indy a mam mlhavy pocit, ze to tam snad nejak resit jde, ale
sam jsem do toho nepronikl. Pred casem jsem pro nekoho psal nejake komunikacni
komponenty a nejdrive jsem chtel pouzit Indy. Prave z tohoto duvodu jsem ale
od toho upustil a nakonec pouzil s uspechem Synapsi v threadu (skoda jen ze
neumi pouzivat system eventy), cela vec se tim totiz znacne zjednodusila.
Ohledne indikace vysledku na formulari je to uz horsi, protoze tam se clovek
bez synchronizace neobjde. Zalezi take na mnozstvi tech pozadavku apod. Asi
nejlepsi moznost je asynchronni zpracovani, kde se vysledky ukladaji z threadu
do fronty a ve vhodnem okamziku pak ctou z hlavniho threadu GUI aplikace ve
vetsich davkach a prekresluji dane komponenty.

> A jeste jednu radu bych potreboval. V databazi mam par polozek ktere jsou
> boolean. No a je nevhodne kdyz se zobrazuji v dbgridu jako True/false takze
> jak to mohu treba predelat na Ano/ne ?

viz TBooleanField.DisplayValues property v helpu

Petr Vones

Re[2]: �ek�n� programu na skon�en� S

[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 29.10.2002 07:18:30

> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vymazal Milan
>
> Ja pouzivam tohle
>
> function WinExecAndWait32(FileName:String; Visibility : integer):integer;
> 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, { pointer to command line string }
> nil, { pointer to process security
> attributes }
> nil, { pointer to thread security
> attributes }
> false, { handle inheritance flag }
> CREATE_NEW_CONSOLE or { creation flags }
> NORMAL_PRIORITY_CLASS,
> nil, { pointer to new environment block }
> nil, { pointer to current directory name }
> StartupInfo, { pointer to STARTUPINFO }
> ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
>
> else begin
> WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
> GetExitCodeProcess(ProcessInfo.hProcess,Result);
> end;
> end;
>

Pouzivam to same a zda se mi, ze 100% nefunguje na WIN XP. Pokud touto
funkci spustim externi program, ktery ma svoje vlastni formy, tak po jeho
skonceni se mi znovu neobjevi formular programu, ze ktereho byl volan, i
kdyz jeste pouziji BringToFront; a Show; po ukonceni funkce
WinExecAndWait32. Na ostatnich OS Windows je bezi OK.

Jeste jeden dotaz; k cemu se da pouzit vracena hodnota integer funkce
WinExecAndWait32?

Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.404 / Virov� b�ze: 228 - datum vyd�n�: 15.10.2002

Delphi 7 personal

[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 29.10.2002 08:31:44

Dobry den,

v Computeru tedka vyslo CD kde je pry plna verze Delphi 7 Personal - freeware. Bohuzel to chce registracni cislo, nikde s emi vsak nepodarilo toto cislo sehnat ci zaregistrovat pres web jak to pisou na tom CD. Muzete mi nekdo poradit ? Nikde jsem ani nenasel ze by personal byl freeware vsude je jen ke stahnuti trial verze nebo tlacitko buy ???

S pozdravem
M.Sula

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

listview

[*] Ivan �imko <ivan.simko(zv)pozfond.sk> - 29.10.2002 08:40:26

Zdravim.
Chcel by som poprosit o radu ako sa dopracovat k polozkam listview. Obsahuje
itemy aj subitemy. Nejaky syntax na nacitanie by mi velmi pomohol.
Dik

Zaheslovana Paradox tabulka

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.10.2002 08:46:31

> 1) Vim, ze se v Database Desktop da nastavit heslo pro pristup do
> Paradox tabulky. Tu oteviram v BDE a potreboval bych kod, jak to heslo
> vlozit pri otevirani, aby nevyskocil ten nizkointeligentni dialog
> zadej heslo.

Mam pocit, ze TSession.AddPassword, ale pisu to z hlavy, tak
uvidis.

Vis, ze existuje univerzalni heslo? Da se najit v archivu.> 2) Je moznost nekde na netu zjistit, jake soubory BDE pouziva a jake
> udaje v registrech - potrebuji do instalatoru implementovat BDE
>

Mam pocit, ze instalace BDE takovym zpusobem je nelegalni.
Nekde v licenci se pise, ze BDE je treba instalovat certifikovanym
instalatorem, napr. InstallShield, tedy pokud se neco nezmenilo.

Jinak ale je pravda, ze se daji vytipovat potrebne soubory, obvykle
jde o jednociferny pocet, ktere bys potreboval. Zalezi ovsem i na
tom, co v aplikaci delas, protoze kazdy dodany soubor je k necemu
a tak nejde univerzalne rict, co muzes smazat a co ne. V registru
pak hledej klic Borland.

Vic bohuzel nevim, BDE uz jsem nepouzil ani nepamatuju, sorry.

David Lebeda

listview

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2002 08:49:30

QSBuZXN0YWNpIHRpIHR5IDIgcHJpa2xhZHksIGt0ZXJlIGpzb3UgdiBoZWxwdSB1IFRMaXN0Vmll
dy5JdGVtcyA/DQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6
DQoNCjI5LjEwLjIwMDIgSXZhbiC5aW1rbzoNCj4gWmRyYXZpbS4NCj4gQ2hjZWwgYnkgc29tIHBv
cHJvc2l0IG8gcmFkdSBha28gc2EgZG9wcmFjb3ZhdCBrIHBvbG96a2FtIGxpc3R2aWV3LiBPYnNh
aHVqZQ0KPiBpdGVteSBhaiBzdWJpdGVteS4gTmVqYWt5IHN5bnRheCBuYSBuYWNpdGFuaWUgYnkg
bWkgdmVsbWkgcG9tb2hvbC4NCj4gRGlrDQog

Delphi 7 personal

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2002 08:53:50

A volba v menu start/Borland Delphi 7/register now nefunguje ?
Spousti se tim program .\Delphi7\bin\D7Reg.exe

Jinak i verze Delphi6 personal byla zdarma. verze personal je urcena
pro studijni ucely a vyuku. Obsahuje dost omezeni (mena TDataset apod.)

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

29.10.2002 Sula Milos:
> v Computeru tedka vyslo CD kde je pry plna verze Delphi 7 Personal -
> freeware. Bohuzel to chce registracni cislo, nikde s emi vsak
> nepodarilo toto cislo sehnat ci zaregistrovat pres web jak to pisou
> na tom CD. Muzete mi nekdo poradit ? Nikde jsem ani nenasel ze by
> personal byl freeware vsude je jen ke stahnuti trial verze nebo
> tlacitko buy ???

Nahodne padani aplikace

[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 29.10.2002 09:06:33

Ak sa dobre pamatam tak je problem (aplikacia sa bez nejakej error hlasky
ukoncila resp. nepodarilo sa jej ani spustiti) v BDE ktore sa nejak shitne a
po urcitej dobe behu BDE uz nieje mozne spustit ziadnu aplikaciu pozivajucu
BDE.
My sme to riesili tak ze sme sa vykaslali na BDE a kupili komponenty ktore
sa priamo pripajaju na databazu bez nutnosti pouzitia BDE.

----- Original Message -----
From: "Kenny" <kenny(zv)razdva(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 12:47 AM
Subject: Nahodne padani aplikace


> Zdravim vsechny v konferenci,
>
> nemate nekdo zkusenost s %subj%, aplikace nahodne zmizi, jakoby se
korektne
> vypla, ale bez ohlaseni vyjimky. Problem je, ze mizi zcela nahodile, nekdy
> za cely den nespadne, nekdy i nekolikrat do hodiny. A to vse se zacalo
> objevovat samo bez zasahu do zdrojaku, jen mi vymenili sitovy server (ze
by
> to bylo ono?).
>
> Aplikace bezi na WinNT SP6 a Win2000, D5 a BDE 5.01.
>
> Potrebuji poradit, jak zjistit o jakou chybu jde, nebo jestli nekdo
neznate
> nejaky konflikty v softwaru napr. BDE a SP6,...
>
> Dik za kazdou radu
>
> Filip Rozsival
>
>
>

Delphi 7 personal

[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 29.10.2002 09:37:50

No ono to chce cislo uz pred instalaci :((

Milos

-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
Sent: Tuesday, October 29, 2002 8:54 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Delphi 7 personal


A volba v menu start/Borland Delphi 7/register now nefunguje ? Spousti se tim program .\Delphi7\bin\D7Reg.exe

Jinak i verze Delphi6 personal byla zdarma. verze personal je urcena pro studijni ucely a vyuku. Obsahuje dost omezeni (mena TDataset apod.)

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


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

Objekt viditelny v cele aplikaci

[*] Ales Kerner <kerner(zv)metalcom(tec)cz> - 29.10.2002 09:42:01

Zdravim,

mam nasledujici problem, mam vytvoreny objekt TGlobal, odvozeny od TObject,
potrebuji aby byl videt v cele aplikaci a nebyl navazan na zadny formular,
jedine k cemu jsem dospel
je dopsat do DPR toto

Application.CreateForm(TGlobal, Global);

Ale nezda se mi to CreateForm, kdyz to form neni.

Dik za radu

Ales



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

Objekt viditelny v cele aplikaci

[*] =?utf-8?Q?Ond=C5=99ej_Kal=C3=A1b?= <ondrej.kalab(zv)webhouse(tec)cz> - 29.10.2002 09:47:04

Staci si tenot objekt dat do unity hlavniho formulare, na kterou si potom date odkazy z kazde další unit.
Napr. Hlavni form je Form1, hlavni unit Unit1, zam si objekt vytvorite a pak si v kazde další date uses unit1. No a je to...

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ales Kerner
Sent: Tuesday, October 29, 2002 9:42 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Objekt viditelny v cele aplikaci


Zdravim,

mam nasledujici problem, mam vytvoreny objekt TGlobal, odvozeny od TObject, potrebuji aby byl videt v cele aplikaci a nebyl navazan na zadny formular, jedine k cemu jsem dospel je dopsat do DPR toto

Application.CreateForm(TGlobal, Global);

Ale nezda se mi to CreateForm, kdyz to form neni.

Dik za radu

Ales



---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.406 / Virová báze: 229 - datum vydání: 21.10.2002

---
Pøíchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virová báze: 230 - datum vydání: 24.10.2002


---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virová báze: 230 - datum vydání: 24.10.2002

Delphi 7 personal

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 29.10.2002 09:47:32

Zkus na www.borland(tec)cz je tam odkaz na http://bdn.borland.com/cgi-bin/surveys/web_download_survey.cgi?sid=208

Jaro B.

-----Original Message-----
From: Sula Milos [mailto:milos.sula(zv)oku-su(tec)cz]
Sent: Tuesday, October 29, 2002 8:32 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Delphi 7 personal
v Computeru tedka vyslo CD kde je pry plna verze Delphi 7 Personal - freeware. Bohuzel to chce registracni cislo, nikde s emi vsak nepodarilo toto cislo sehnat ci zaregistrovat pres web jak to pisou na tom CD. Muzete mi nekdo poradit ? Nikde jsem ani nenasel ze by personal byl freeware vsude je jen ke stahnuti trial verze nebo tlacitko buy ???

OnReconcileError - divne chovani

[*] <little_bobes(zv)centrum(tec)cz> - 29.10.2002 09:55:21

Zdravim,

ve sve c/s (TRemoteDataModule) aplikaci pouzivam na TClientDataSet, k jehoz
udalosti OnReconcileError jsem napojil formular ReconcileErrorForm prevzaty
ze sablon.

Na mem pocitaci, kde program delam, funguje vse OK. Napr. nastane pri
editaci "key violation", otevre se formular, zvolim Cancel, formular se
zavre a vkladany zaznam se zrusi.
Nyni ten samy program dam na jiny pocitac. Pri editaci nastane ta sama chyba
a spusti se formular. Zvolim Cancel, formular se zavre, ale okamzite se zase
otevre s tou samou hlaskou. A to se neustale opakuje (uz se toho formulare
nezbavim) a pomuze pouze nasilne ukonceni aplikace.

Deje se to na vsech jinych pocitacich, jen ne na mem. Kolega to neustale
svadi na to, ze ja tu mam Delphi, tak mi to funguje, kdezto on je tam nema,
tak mu to nejde.

Mate nekdo podobne zkusenosti?

Diky Bob

D4 c/s, IB6

Objekt viditelny v cele aplikaci

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 29.10.2002 09:58:58

Pokud je odvozen od TObject, tak staci zavolat zdedeny konstruktor resp.
napsat vlastni a v jeho ramci zavolat ten zdedeny, napriklad

constructor TGlobal.Create;
begin
inherited;
...(ostatni kod)

end;

takze se nemusi pouzivat CreateForm (a kompilator to zbastil?). Chces-li mit
ten objekt globalni, dej ho do unitu treba GlobalUnit a tento nazev pak
uvedes v seznamu USES v kazdem unitu, odkud to ma byt videt. Jo a v tom
GlobalUnit musis mit deklarovanou i naplnenou promennou, ve ktere je ta
instance.

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234

Subject: Objekt viditelny v cele aplikaci


mam vytvoreny objekt TGlobal, odvozeny od TObject,
potrebuji aby byl videt v cele aplikaci a nebyl navazan na zadny
formular,
jedine k cemu jsem dospel
je dopsat do DPR toto

Application.CreateForm(TGlobal, Global);

Ale nezda se mi to CreateForm, kdyz to form neni.

listview

[*] Ivan �imko <ivan.simko(zv)pozfond.sk> - 29.10.2002 10:07:04

Nakolko nemam help tak by som poprosil o nejaky ten riadok syntaxu.
Dakujem

Objekt viditelny v cele aplikaci

[*] Richard Siegl <rsiegl(zv)elas.sk> - 29.10.2002 10:13:49

A este nezabudnut ak vznikne ciklicky odkaz uses Unit1
presunut referenciu uses Unit1 do casti Implementation.

Rickie

----- Original Message -----
From: "Ondřej Kaláb" <ondrej.kalab(zv)webhouse(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 9:47 AM
Subject: RE: Objekt viditelny v cele aplikaci


Staci si tenot objekt dat do unity hlavniho formulare, na kterou si potom
date odkazy z kazde další unit.
Napr. Hlavni form je Form1, hlavni unit Unit1, zam si objekt vytvorite a pak
si v kazde další date uses unit1. No a je to...

Objekt viditelny v cele aplikaci

[*] Radim Kunz <privat(zv)casestudio(tec)com> - 29.10.2002 10:29:55


----- Original Message -----
From: "Ales Kerner" <kerner(zv)metalcom(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 9:42 AM
Subject: Objekt viditelny v cele aplikaci


> Zdravim,
>
> mam nasledujici problem, mam vytvoreny objekt TGlobal, odvozeny od
TObject,
> potrebuji aby byl videt v cele aplikaci a nebyl navazan na zadny formular,
> jedine k cemu jsem dospel
> je dopsat do DPR toto
>
> Application.CreateForm(TGlobal, Global);
>
> Ale nezda se mi to CreateForm, kdyz to form neni.
>
> Dik za radu
>
> Ales
>

Nemusis to davat do DPR, staci do unity, kde mas ten TGlobal, napsat

initialization

Global := TGlobal.Create

finalization
Global.Free;

Dll a string

[*] EFG developer <developer(zv)efg(tec)cz> - 29.10.2002 10:29:43

Zdravim,
vim, ze se to tu jiz nekolikrat probiralo ale presto:
jak udelat, aby mi funkce v Dll vratila string.

prosim o ukazku kodu v dll i ukazku kodu v aplikaci.

Dekuji Petr Sikola


Licencni ujednani

[*] Martin Kozusky <delphi(zv)novalis.dyndns.org> - 29.10.2002 10:44:03

Ahoj,
da se nekde najit nejake pouzitelne licencni ujednani ke komercnimu
programu, abych ho nemusel vymyslet?

Aby tam bylo, ze se to nemuze kopirovat a ze za nic nejsu zodpovedny apod :)


Diky,
Martin

Stazeni souboru s progessbarem

[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.10.2002 10:48:53

> > Da se to resit treba pres Synapsi... je tam primo
> > objekt na HTTP protokol. Kdyz si povesis svoji
> > proceduru na Thttpsend.sock.onstatus
> > event, tak si muzes kreslit progressbary doaleluja. ;-)
>
> A jak zjistim, kolik toho budu stahovat, abych mohl vubec z neceho pri
> progress baru vychazet?

Jak jsem uz psal, ne vzdy ms vubec u HTTP protokolu tyto informace k
dispozici.

Nicmene kdyz si z Webu Synapse stahnes dnesni SynaSnap, tak jsem tam
udelal novou verzi THTTPSend, ktra ma property DownloadSize a
UploadSize. kdyz se povesis na ten OnStatus event, a dostanes 'read'
event, taks e podivas do DownloadSize property. a jestlize neni 0,
muzes kreslit progressbar.

Obdobne kdyz dostanes 'write' event a UploadSize neni 0, muzes
kreslit progressbar pro posilani dat.

> Mam to ve vlakne a chci dat uzivateli moznost prerusit stahovani, jak
> to udelat?

Staci z libovolneho OnStatus event zavolat metodu Abort... ;-)
-- Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.

Jak ziskat ico ?

[*] Lenka Don�tov� - 29.10.2002 11:01:23

�xistuj� programy kter� um� z exe souboru vyextrahovat soubor ico. Zkus to
na www.download.com
v sekci Home & Desktop/IconTools

----- Original Message -----
From: Jiri Betunak <kindrik(zv)centrum(tec)cz>
To: Delphi konference <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 28, 2002 10:44 AM
Subject: Jak ziskat ico ?> Ahoj Konference
> potreboval bych ziskavat ikonu zastupce.
> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
> na iconu v netscp.exe }
>
> Nevi nekdo jak na to ?
>
>
>
> Jiri Betunak
> kindrik(zv)centrum(tec)cz
> Delphi5 pro ;Windows ME 4 90

Jak ziskat ico ?

[*] Lenka Don�tov� - 29.10.2002 11:04:47

Existuji programy ktere umi z exe souboru vyextrahovat soubor ico. Zkus to
na www.download.com
v sekci Home & Desktop/IconTools


----- Original Message -----
From: Jiri Betunak <kindrik(zv)centrum(tec)cz>
To: Delphi konference <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, October 28, 2002 10:44 AM
Subject: Jak ziskat ico ?> Ahoj Konference
> potreboval bych ziskavat ikonu zastupce.
> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
> na iconu v netscp.exe }
>
> Nevi nekdo jak na to ?
>
>
>
>
>
> Jiri Betunak
> kindrik(zv)centrum(tec)cz
> Delphi5 pro ;Windows ME 4 90

OnReconcileError - divne chovani

[*] hlas <hlas(zv)inmail.sk> - 29.10.2002 11:10:22

a funguje ti onreconcile error aj ked 2 uzivatelia zapisuju do
toho isteho zaznamu? dokaze druhy prepisat prveho?


----- Original Message -----
From: <little_bobes(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 9:55 AM
Subject: OnReconcileError - divne chovani


> Zdravim,
>
> ve sve c/s (TRemoteDataModule) aplikaci pouzivam na TClientDataSet, k
jehoz
> udalosti OnReconcileError jsem napojil formular ReconcileErrorForm
prevzaty
> ze sablon.
>
> Na mem pocitaci, kde program delam, funguje vse OK. Napr. nastane pri
> editaci "key violation", otevre se formular, zvolim Cancel, formular se
> zavre a vkladany zaznam se zrusi.
> Nyni ten samy program dam na jiny pocitac. Pri editaci nastane ta sama
chyba
> a spusti se formular. Zvolim Cancel, formular se zavre, ale okamzite se
zase
> otevre s tou samou hlaskou. A to se neustale opakuje (uz se toho formulare
> nezbavim) a pomuze pouze nasilne ukonceni aplikace.
>
> Deje se to na vsech jinych pocitacich, jen ne na mem. Kolega to neustale
> svadi na to, ze ja tu mam Delphi, tak mi to funguje, kdezto on je tam
nema,
> tak mu to nejde.
>
> Mate nekdo podobne zkusenosti?
>
> Diky Bob
>
> D4 c/s, IB6
>
>
>
>

Objekt viditelny v cele aplikaci

[*] Ond�ej Kal�b <ondrej.kalab(zv)webhouse(tec)cz> - 29.10.2002 11:16:54

Jo, jasne, ale to je standardne probirana v�c v kazde prorucce Delphi
pro zacatecniky.... Myslim.

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Richard Siegl
Sent: Tuesday, October 29, 2002 10:14 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Objekt viditelny v cele aplikaci


A este nezabudnut ak vznikne ciklicky odkaz uses Unit1
presunut referenciu uses Unit1 do casti Implementation.

Rickie

----- Original Message -----
From: "Ond�ej Kal�b" <ondrej.kalab(zv)webhouse(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 9:47 AM
Subject: RE: Objekt viditelny v cele aplikaci


Staci si tenot objekt dat do unity hlavniho formulare, na kterou si
potom date odkazy z kazde dal�� unit. Napr. Hlavni form je Form1, hlavni
unit Unit1, zam si objekt vytvorite a pak si v kazde dal�� date uses
unit1. No a je to...
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virov� b�ze: 230 - datum vyd�n�: 24.10.2002


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

OT: Legalni delphi a ostatni software

[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 29.10.2002 11:28:00

Zdravim

konferenci a omlouvam se za off topic. Mam takovou otazku:

Na rozkaz vedeni se u nas ve spolecnosti provadi priprava na BSA. Tzn.
dokupovani licenci k tomu co licence nema atd. V soucasne dobe mame
vsechny OS legalni, doufam ze i vsechny licence Delphi mame ok.

Pouzil jsem k overeni legalnosti produktu software z INVEXU a ten mi
furt hlasi ze mam Delphi nelegalne. Nevite cim to muze byt nebo jak to
nejlepe overit.


a jeste jeden dotaz. Zazil nekdo uz nastevu softwerove policie ?.
Nevite co presne kontroluji a co delaji. Protoze na nekterych
pocitacich se mi asi vsechno podchytit nepodari.

Diky MIlan

Implementace funkce Random?

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 29.10.2002 11:28:29

Ahoj, nevite nekdo, jak je implementovana funkce Random? Potrebuji generovat
reprodukovatelnou radu pseudonahodnych cisel a v helpu je "Because the
implementation of the Random function may change between compiler versions,
we do not recommend using Random for encryption or other purposes that
require reproducible sequences of pseudo-random numbers". Tak abych se
vyhnul pripadnym problemum.

Zdravim

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234

OnReconcileError - divne chovani

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2002 11:41:02

> ve sve c/s (TRemoteDataModule) aplikaci pouzivam na TClientDataSet, k jehoz
> udalosti OnReconcileError jsem napojil formular ReconcileErrorForm prevzaty
> ze sablon.
>
> Na mem pocitaci, kde program delam, funguje vse OK. Napr. nastane pri
> editaci "key violation", otevre se formular, zvolim Cancel, formular se
> zavre a vkladany zaznam se zrusi.

To je nejaky divny.
OnReconcileError se vola az pri ApplyUpdates.
Pri proste editaci se nevyvola, "key violation" hlasi primo ClientDataSet.
OnReconcileError nastane pri ApplyUpdates na kazdem chybnem zaznamu.

> Nyni ten samy program dam na jiny pocitac. Pri editaci nastane ta sama chyba
> a spusti se formular. Zvolim Cancel, formular se zavre, ale okamzite se zase
> otevre s tou samou hlaskou. A to se neustale opakuje (uz se toho formulare
> nezbavim) a pomuze pouze nasilne ukonceni aplikace.

To vypada tak, ze ApplyUpdates se vola nejak "automaticky", ci dokonce "rekurzivne"?

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

Objekt viditelny v cele aplikaci

[*] =?Default?Q?Jan_Sebel=EDk?= <honza(zv)haes(tec)cz> - 29.10.2002 11:53:10

> Odes�latel: Ondřej Kaláb <ondrej.kalab(zv)webhouse(tec)cz>
> Staci si tenot objekt dat do unity hlavniho formulare, na kterou si potom date odkazy z kazde další unit.
> Napr. Hlavni form je Form1, hlavni unit Unit1, zam si objekt vytvorite a pak si v kazde další date uses unit1. No a je to...

No, nevim, ale prave toto je podle me spatne.
Daleko lepsi je umisteni v GlobalUnit, ktere navrhuje treba Petr Brant.

Ja to chapu takto:
jeslize je v UnitX uses UnitY, znamena to, ze UnitY "slouzi, je sluhou" pro UnitX.

Navrhovane reseni tvrdi, ze unit hlavniho formulare (Unit1) "slouzi, je sluhou" pro vsechny ostatni unity.
Nesmysl.
Krizove reference v unitach mohou vest k peknemu zmatku, je treba je (pokud vubec) delat velmi opatrne.

Predstavte si toto:

Project1 uses UnitMain1, ...
UnitMain1 uses Unit12, Unit13, ..., UnitX

UnitX uses UnitMain1;

Project2 uses UnitMain2, ...
UnitMain2 uses Unit22, Unit23, ..., UnitX

No a v Projektu 2 mam prikompilovan cely Projekt 1.

Pokud si myslite, ze to je "umela" konstukce, nemyslete si to.
Uz jsem to opravdu videl.

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

listview

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2002 11:53:17

WiBqYWtlaG8gZHV2b2R1IG5lbWFzIGhlbHAgPw0KSGVscHkganNvdSBrZSBzdGF6ZW5pIG5hIHN0
cmFua2FjaCBCb3JsYW5kdS4gQmUgaGVscHUgdG8gbXVzaSBieXQNCmRvY2VsYSBrcnVzbnkgeml2
b3QgIDotKQ0KDQp0YWR5IGplIHByaWtsYWQgeiBoZWxwdToNCnByb2NlZHVyZSBURm9ybTEuRm9y
bUNyZWF0ZShTZW5kZXI6IFRPYmplY3QpOw0KDQpjb25zdA0KICBOYW1lczogYXJyYXlbMC4uNSwg
MC4uMV0gb2Ygc3RyaW5nID0gKA0KICAgICgnUnViYmxlJywgJ0Jhcm5leScpLA0KICAgICgnTWlj
aGFlbCcsICdKb2huc29uJyksDQogICAgKCdCdW5ueScsICdCdWdzJyksDQogICAgKCdTaWx2ZXIn
LCAnSGlIbycpLA0KICAgICgnU2ltcHNvbicsICdCYXJ0JyksDQogICAgKCdTcXVpcnJlbCcsICdS
b2NrZXknKQ0KICAgICk7DQoNCnZhcg0KICBJOiBJbnRlZ2VyOw0KICBOZXdDb2x1bW46IFRMaXN0
Q29sdW1uOw0KICBMaXN0SXRlbTogVExpc3RJdGVtOw0KICBMaXN0VmlldzogVExpc3RWaWV3Ow0K
YmVnaW4NCiAgTGlzdFZpZXcgOj0gVExpc3RWaWV3LkNyZWF0ZShTZWxmKTsNCiAgd2l0aCBMaXN0
VmlldyBkbw0KICBiZWdpbg0KICAgIFBhcmVudCA6PSBTZWxmOw0KDQogICAgQWxpZ24gOj0gYWxD
bGllbnQ7DQogICAgVmlld1N0eWxlIDo9IHZzUmVwb3J0Ow0KDQogICAgTmV3Q29sdW1uIDo9IENv
bHVtbnMuQWRkOw0KICAgIE5ld0NvbHVtbi5DYXB0aW9uIDo9ICdMYXN0JzsNCiAgICBOZXdDb2x1
bW4gOj0gQ29sdW1ucy5BZGQ7DQogICAgTmV3Q29sdW1uLkNhcHRpb24gOj0gJ0ZpcnN0JzsNCg0K
ICAgIGZvciBJIDo9IExvdyhOYW1lcykgdG8gSGlnaChOYW1lcykgZG8NCiAgICBiZWdpbg0KICAg
ICAgTGlzdEl0ZW0gOj0gSXRlbXMuQWRkOw0KICAgICAgTGlzdEl0ZW0uQ2FwdGlvbiA6PSBOYW1l
c1tJXVswXTsNCiAgICAgIExpc3RJdGVtLlN1Ykl0ZW1zLkFkZChOYW1lc1tJXVsxXSk7DQogICAg
ZW5kOw0KICBlbmQ7DQplbmQ7DQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlh
bGFAaW9sLmN6DQoNCjI5LjEwLjIwMDIgSXZhbiC5aW1rbzoNCj4gTmFrb2xrbyBuZW1hbSBoZWxw
IHRhayBieSBzb20gcG9wcm9zaWwgbyBuZWpha3kgdGVuIHJpYWRvayBzeW50YXh1Lg0KPiBEYWt1
amVtDQog

Lokalizace IB a FB

[*] Ale� Kerner <kerner(zv)metalcom(tec)cz> - 29.10.2002 11:59:13

Prosim Vas nevite nekdo, kde se daji sehnat lokalizovane hlaseni pro
InterBase a FireBird, myslim, ze je to soubor interbase.msg

Dik Ales


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

Dll a string

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2002 12:00:16

> Odes�latel: EFG developer <developer(zv)efg(tec)cz>
> vim, ze se to tu jiz nekolikrat probiralo ale presto:
> jak udelat, aby mi funkce v Dll vratila string.

Promin, ale taky tady mnohokrat bylo, ze parametry a Result funkci v DLL je lepsi psat jako PChar.
Uz kvuli tomu, ze jednim z ucelu DLL je jejich nezavislost na vyvojove platforme. Pascalovsky String z/do C ani z/do jineho prostredi stejne nedostanes.

Jinak, abych preci jenom odpovedel:
z DLL je to stejne, jako, kdyz ji volas z unit.
Jenom musis napsat nejake to uses ShareMem (nebo co, presne nevim) - viz popis pri File / New / DLL

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

Dll a string

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2002 12:08:00

> Odes�latel: EFG developer <developer(zv)efg(tec)cz>
> vim, ze se to tu jiz nekolikrat probiralo ale presto:
> jak udelat, aby mi funkce v Dll vratila string.

Promin, ale taky tady mnohokrat bylo, ze parametry a Result funkci v DLL je lepsi psat jako PChar.
Uz kvuli tomu, ze jednim z ucelu DLL je jejich nezavislost na vyvojove platforme. Pascalovsky String z/do C ani z/do jineho prostredi stejne (jen tak lehce) nedostanes.

Jinak, abych preci jenom odpovedel:
z DLL je to stejne, jako, kdyz ji volas z unit.
Jenom musis napsat nejake to uses ShareMem (nebo co, presne nevim) - viz popis pri File / New / DLL

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

Dll a string

[*] EFG developer <developer(zv)efg(tec)cz> - 29.10.2002 12:13:31

OK, je mi to jasne :))
tedy: potrebuju vracet string, ale staci mi to pres PChar - a k tomu
bych potreboval ten kousek kodu, protoze nevim jak to udelat.

Petr

> Promin, ale taky tady mnohokrat bylo, ze parametry a Result
> funkci v DLL je lepsi psat jako PChar.
> Uz kvuli tomu, ze jednim z ucelu DLL je jejich nezavislost na
> vyvojove platforme. Pascalovsky String z/do C ani z/do jineho
> prostredi stejne (jen tak lehce) nedostanes.
>
> Jinak, abych preci jenom odpovedel:
> z DLL je to stejne, jako, kdyz ji volas z unit.
> Jenom musis napsat nejake to uses ShareMem (nebo co, presne
> nevim) - viz popis pri File / New / DLL
>
> Honza

Implementace funkce Random?

[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 29.10.2002 12:37:12

No ten help nelze :) Opravdu se to mezi verzemi (tusim 3 a 4) zmenilo
a nikdo nezarucuje ze se to nestane znovu. Na pseudonahodna cisla je
tedy zrejme potreba pouzit vlastni rutinu, jinak se to pri upgradu,
teoreticky i pri instalaci update packu, a rekompilaci rozhodi...

Jakub Dusek

-------------------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------

Tuesday, October 29, 2002, 11:28:29 AM, you wrote:

PB> Ahoj, nevite nekdo, jak je implementovana funkce Random? Potrebuji generovat
PB> reprodukovatelnou radu pseudonahodnych cisel a v helpu je "Because the
PB> implementation of the Random function may change between compiler versions,
PB> we do not recommend using Random for encryption or other purposes that
PB> require reproducible sequences of pseudo-random numbers". Tak abych se
PB> vyhnul pripadnym problemum.

PB> Zdravim

PB> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
PB> D&COMM s.r.o.
PB> Korunova�n� 6
PB> Praha 7
PB> tel. +420724007234

Dll a string

[*] Petr Fejfar <development(zv)callnet(tec)cz> - 29.10.2002 12:38:40

From: "EFG developer" <developer(zv)efg(tec)cz>

> OK, je mi to jasne :))
> tedy: potrebuju vracet string, ale staci mi to pres
> PChar - a k tomu bych potreboval ten kousek kodu,
> protoze nevim jak to udelat.

Typicky se to dela takto:


function XYZ(ABuf:pChar; AMaxLen:integer): integer;
var
S: ANSIString;
begin
S := 'Tohle je text, ktery chci vratit';
strLCopy(ABuf,pChar(S),AMaxLen-1);
Result := strlen(ABuf);
end;

...

var
S: ANSIString;
MaxLen: integer;
ActLen: integer;
begin
...
MaxLen := 64;
SetLength(S,MaxLen);
ActLen := XYZ(pChar(S),MaxLen);
SetLength(S,ActLen);
...
end;

HTH, pf

Implementace funkce Random?

[*] Petr Fejfar <development(zv)callnet(tec)cz> - 29.10.2002 12:55:02

From: "Petr Brant" <brant(zv)dcomm(tec)cz>

> Ahoj, nevite nekdo, jak je implementovana funkce
> Random?

Podivej se do Source\Rtl\Sys\system.pas na funkci
_RandInt


HTH, pf

Znova WinXp vs MP3

[*] Martin Kozusky <delphi(zv)novalis.dyndns.org> - 29.10.2002 13:01:31

[P��loha v souboru: play.pas]
Ahoj,
porad sem nedosel, proc mi nejde prehravat MP3 pomoci DirectX ve WinXP (ve
Win98 to funguje).

tak vam posilam zdrojak, ktery sem vyrobil podle DirectX SDK, vporadku
funguje ve Win98, ve WinXP to vzdy spadne u funkce
pGraph.RenderFile(fname,nil);

skusil sem si dat akce logovat do souboru a vypada to,
ze to vzdy spadne kdyz to vybira spravny filter - spadne to u " InterVideo
Audio Decoder."

Winamp mi ve WinXP normalne pomoci DirectX hraje ...

nemuze to byt tim, ze mam nejake stare DirectX unity? kde se daji najit
nejnovejsi (na verzi 8.1)?

Diky,
Martin

Dll a string

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 13:03:39

From: "EFG developer" <developer(zv)efg(tec)cz>
> vim, ze se to tu jiz nekolikrat probiralo ale presto:
> jak udelat, aby mi funkce v Dll vratila string.
>
> prosim o ukazku kodu v dll i ukazku kodu v aplikaci.

http://delphi(tec)cz/soubor.asp?rok=2002&mesic=jan&den=04&soubor=dlfaaabx.htm

Petr Vones

OnReconcileError - divne chovani

[*] <little_bobes(zv)centrum(tec)cz> - 29.10.2002 13:09:45

> To je nejaky divny.
> OnReconcileError se vola az pri ApplyUpdates.
> Pri proste editaci se nevyvola, "key violation" hlasi primo ClientDataSet.
> OnReconcileError nastane pri ApplyUpdates na kazdem chybnem zaznamu.

Ano, mas pravdu. Samozrejme to nastane az pri ApplyUpdates (pri zapisu na
server).
V udalosti AfterPost mam volani:
If CDS.ApplyUpdates(0) = 0 Then CDS.Refresh;

>
> To vypada tak, ze ApplyUpdates se vola nejak "automaticky", ci dokonce
"rekurzivne"?
>

To me taky napadlo, ale nedokazu zjistit proc, protoze ona obsluha udalosti
vypada nasledovne:

procedure TForm.CDSReconcileError(
DataSet: TClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction);
begin
Action := HandleReconcileError(DataSet, UpdateKind, E);
end;


Bob

Zaheslovana Paradox tabulka

[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 29.10.2002 13:09:37


Dotaz: Co je to univerzalni heslo a v jakem archivu se da najit?

Jinak jo, je to
Session.AddPassword(pwd:string);

Session je promenna tridy TSession automaticky zavadena Delphi, (pokud nemas
vlastni TSession). Pri otevirani zaheslovane paradox tabulky se hledaji
vsechna hesla v prislusne session a kdyz tam heslo neni vyvola se udalost
TSession.OnPassword, kdyz udalost neni definovana, pak se teprv objevi to
standartn� okno na heslo.

definovana hesla v Session se zrusi metodou

Session.RemoveAllPasswords;

A.

----- Original Message -----
From: Lebeda David <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 8:46 AM
Subject: Re: Zaheslovana Paradox tabulka


> > 1) Vim, ze se v Database Desktop da nastavit heslo pro pristup do
> > Paradox tabulky. Tu oteviram v BDE a potreboval bych kod, jak to heslo
> > vlozit pri otevirani, aby nevyskocil ten nizkointeligentni dialog
> > zadej heslo.
>
> Mam pocit, ze TSession.AddPassword, ale pisu to z hlavy, tak
> uvidis.
>
> Vis, ze existuje univerzalni heslo? Da se najit v archivu.
>
> > 2) Je moznost nekde na netu zjistit, jake soubory BDE pouziva a jake
> > udaje v registrech - potrebuji do instalatoru implementovat BDE
> >
>
> Mam pocit, ze instalace BDE takovym zpusobem je nelegalni.
> Nekde v licenci se pise, ze BDE je treba instalovat certifikovanym
> instalatorem, napr. InstallShield, tedy pokud se neco nezmenilo.
>
> Jinak ale je pravda, ze se daji vytipovat potrebne soubory, obvykle
> jde o jednociferny pocet, ktere bys potreboval. Zalezi ovsem i na
> tom, co v aplikaci delas, protoze kazdy dodany soubor je k necemu
> a tak nejde univerzalne rict, co muzes smazat a co ne. V registru
> pak hledej klic Borland.
>
> Vic bohuzel nevim, BDE uz jsem nepouzil ani nepamatuju, sorry.
>
> David Lebeda

Zm�na hesla paradox tabulky

[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 29.10.2002 13:12:18

Ahoj,

daji se nejak definovat/menit/mazat hesla paradoxove (paradox 7) tabulky za
behu aplikace? (cili ne jen rucne pomoci DatabaseDesktop)

Andreas (D4)

TMetaFile a tlac

[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 29.10.2002 13:17:06

zdravim vospolok,
prosim vas o navedenie na riesenie mojho problemu. programovo vytvorim
tmetafile, na jeho canvas vypisujem texty cez textout a potrebujem ho
vytlacit na tlaciaren. samozrejme mi ho vytlaci zmenseny, preto som
pouzil stretchdraw. a tu je kamen mojho urazu, zistil som, ze ho
nedokazem vytlacit v mierke 1:1. a tak vlastne otazka znie: ako vytlacim
vytvoreny metafile na tlaciaren v mierke 1:1? priznam sa ze uz neviem
kudykam. najde sa ochotna dusa ktora bude ochotna mi pomoct tento
problem vyriesit, nasmerovat ma?

dakujem a ostavam s pozdravom cest praci ;)

Znova WinXp vs MP3

[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 29.10.2002 13:25:57

http://www.delphi-jedi.org/DelphiGraphics/oldindex.htm
tady stahnes novejsi directX hlavicky.

Milos

-----Original Message-----
From: Martin Kozusky [mailto:delphi(zv)novalis.dyndns.org]
Sent: Tuesday, October 29, 2002 1:02 PM
To: Delphi
Subject: Znova WinXp vs MP3


Ahoj,
porad sem nedosel, proc mi nejde prehravat MP3 pomoci DirectX ve WinXP (ve Win98 to funguje).

tak vam posilam zdrojak, ktery sem vyrobil podle DirectX SDK, vporadku funguje ve Win98, ve WinXP to vzdy spadne u funkce pGraph.RenderFile(fname,nil);

skusil sem si dat akce logovat do souboru a vypada to,
ze to vzdy spadne kdyz to vybira spravny filter - spadne to u " InterVideo Audio Decoder."

Winamp mi ve WinXP normalne pomoci DirectX hraje ...

nemuze to byt tim, ze mam nejake stare DirectX unity? kde se daji najit nejnovejsi (na verzi 8.1)?

Diky,
Martin

Zaheslovana Paradox tabulka

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.10.2002 14:03:43

> Dotaz: Co je to univerzalni heslo a v jakem archivu se da najit?

Najit se da v archivu teto konference na www.delphi(tec)cz. Je to heslo,
ktere muzes pouzit na libovolnou zaheslovanou paradoxovou
tabulku. Neco jako univerzalni klic v hotelech :)


Tak jsem ho nasel:
jIGGAe

David Lebeda

IB / FB

[*] <volcik(zv)email(tec)cz> - 29.10.2002 14:14:03

Zdravim vsecky.
Hodne se se tu hovorilo o IB as FB. Chci zacit pouzivat jeden nebo druhy, ale nevim se rozhodnout ktery. Muzete nekdo poradit ci porovnat IB / FB - vcem se lisi, vyhody, nevyhody atd.?
Diky, D.V.

______________________________________________________________________________
Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
http://www.Email(tec)cz <------------Po�ta zdarma!

IB / FB

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.10.2002 14:20:06

Zatim jsou docela kompatibilni.
Rozdily ?
FB je opensource a tedy freeware
IB je opet placeny pod kridly Borlandu

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

29.10.2002 volcik(zv)email(tec)cz:
> Zdravim vsecky.
> Hodne se se tu hovorilo o IB as FB. Chci zacit pouzivat jeden nebo druhy, ale nevim se rozhodnout ktery. Muzete nekdo poradit ci porovnat IB / FB - vcem se lisi, vyhody, nevyhody atd.?

Implementace funkce Random?

[*] Petr Brant <brant(zv)dcomm(tec)cz> - 29.10.2002 14:22:06

Diky, podival jsem se, ale je to procedura, ktera nic nevraci. Krome toho je
to v assembleru, takze netusim, co to vlastne dela, abych si to prepsal.

Zdravim

RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234

Subject: Re: Implementace funkce Random?

> Ahoj, nevite nekdo, jak je implementovana funkce
> Random?

Podivej se do Source\Rtl\Sys\system.pas na funkci
_RandInt

IB / FB

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.10.2002 14:26:14

> Odes�latel: volcik(zv)email(tec)cz
> Hodne se se tu hovorilo o IB as FB. Chci zacit pouzivat jeden nebo druhy, ale nevim se rozhodnout ktery. Muzete nekdo poradit ci porovnat IB / FB - vcem se lisi, vyhody, nevyhody atd.?

FireBird.
Podrobnosti jiste ochotne sdeli Pavel Cisar.
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

Parametr s "

[*] EFG developer <developer(zv)efg(tec)cz> - 29.10.2002 14:56:40

Zdravim,
dnes bych mel jeste jeden dotaz:
jak predat v paramstr znak " ??

Dik
Petr

Implementace funkce Random?

[*] David Janko <djanko(zv)wizards(tec)cz> - 29.10.2002 15:10:38

Ahoj,
v "davnych" dobach kdyz jsem jeste venoval cryptografii sem vytvarel
generatory pseudonahodnych cisel, ty zakladni funkce nejsou slozite - mohli
by vam pomoci.
Nize je kod testujici myslim algoritmus X^2 mod N (gcc linux, ale myslim ze
to prelozite vsude).
At se dari ;-)

---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999

/* test vyrovnanosti hodnot pseudo-random generatoru */

#include <stdio.h>
#include <math.h>
#include <time.h>

#define ANO 1
#define NE 0

void main(void) {
long int x, cykly, i, y, N;
int tisk;
double faktor, soucet=0;
time_t start, end;

printf("init:");
scanf("%d", &x);
printf("pocet cyklu:");
scanf("%d", &cykly);
printf("N:");
scanf("%d", &N);
printf("\nmezivypis ? (0||1):");
scanf("%d", &tisk);

start = clock();
for(i=0; i< cykly; i++) {
y=(long int) fmod((fmod((double) x, (double)N) * fmod((double) x,
(double) N)), (double) N);
x=y;
soucet+=y;
if (tisk == ANO) printf("\n%d", y);
}
end = clock();
faktor = ( soucet / (double) cykly) - (((double)N - 1) / 2);
//printf("soucet:%lf\n", soucet);
//printf("cykly:%d\n", cykly);

printf("\n\nPrumerovy faktor:\t%lf\n", faktor);
printf("\nCas vypoctu %d hodnot:\t%f [s]\n", cykly, (end-start) / (double)
CLOCKS_PER_SEC);
}

Ahoj, nevite nekdo, jak je implementovana funkce Random? Potrebuji generovat
reprodukovatelnou radu pseudonahodnych cisel a v helpu je "Because the
implementation of the Random function may change between compiler versions,
we do not recommend using Random for encryption or other purposes that
require reproducible sequences of pseudo-random numbers". Tak abych se
vyhnul pripadnym problemum.

Parametr s "

[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 29.10.2002 15:23:00

SOUBOR.EXE "tohle je text ""s uvozovkou""... "

A.

> -----Original Message-----
> From: EFG developer [mailto:developer(zv)efg(tec)cz]
>
> jak predat v paramstr znak " ??

Out parameter funkce

[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 29.10.2002 15:43:03

Zdravim,

mam maly problem :-)... Mam aplikacni server, ke kteremu pristupuji pomoci
DCOM.
Tento server ma nejakou funkci, ktera ma navratovou hodnotu, a ma 3
parametry, 2 in a 1 out.
V ramci App Serveru tuto hodnotu menim a pracuji s ni, to vse funguje, ale
jakmile ji chci ziskat
v ramci klienta tak se nic nedeje. Proste Apliakcni server vubec nic
neposle...

Viz kod:
Aplikacni server:

function TSrvADO.Login(const Pass, LoginName: WideString;
out UserID: Word): Word;
begin
...
UserID:=666;
...
end;

Klient:
var
j: word;
...
j:=5;
DCOMConnection.AppServer.Login('neco','neco', j);
Edit1.Text:=IntToStr(j); // j by melo byt 666, ale je stale 5
...


Predem dekuji za rady....

Pavel Poles

Multijazycnost na MSSQL2000

[*] Leopold Grepl <grepl(zv)melzer(tec)cz> - 29.10.2002 17:29:30

Dobry den,

potreboval bych na MSSQL2000 ukladat do SCP ruske,ceske, anglicke a nemecke
texty. Pro kazdy jazyk jeden column. Do nich z Delphi ukladat a zase zpet
cist. Jde mi to pouze pres ADO, coz je problem na Unixu a navic implementace
v Delphi je nepomerne pomalejsi nez BDE ci DBExpress. V DBExpressu se mi
nepodarilo ani ulozit ani precist. Po ceste dela konverze bud do CP Windows
nebo CP databaze. Zkousel jsem pres parametry, prosty text i Unicode
stejne ho prevede na text ). Take jsem zkousel snad vsechny prepinace v
SQLConnectu. Bohuzel nemam zdrojaky ( trial verze Delphi 7 ). Ziskal jsem
dojem ze je to pomoci pripojeni Borlandu neresitelny problem. Je to tak ?
Umi vubec DBExpress kdyz je tak novy Unicode. ( psalo mi to ze ftWideString
je unsupported type )

Diky za jakoukoli radu

Leopold Grepl

FireBird - Operating system directive CreateFile f

[*] bleak <bleak(zv)mvesely(tec)com> - 29.10.2002 18:52:11

zdravim,
na jednom PC se mi najednou objevuje pri pokusu o pripojeni k databazi (z
aplikace i z IBConsole) hlaska:

Operating system directive CreateFile failed
system nemohl nalezt uvedenou cestu

pred casem to tam chodilo, nekdo asi cistil registry. V cem muze byt
problem?

bleak


Delphi 7 personal

[*] Jan �imeck� - 29.10.2002 20:08:57



Zdravim vsechny ucastniky konference. Koupil jsem si casopis computer a tam
bylo zdarma priloze delphi 7 personal. Me se stale je ovsem nedari
zaregistrovat. Poradte prosim!!!

S pozdravem

(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------

Jan �imeck�
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk

ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)


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

Delphi 7 personal

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 20:14:45

From: "Jan �imeck�" <jsimecky(zv)zskuldova(tec)cz>
> Zdravim vsechny ucastniky konference. Koupil jsem si casopis computer a tam
> bylo zdarma priloze delphi 7 personal. Me se stale je ovsem nedari
> zaregistrovat. Poradte prosim!!!

http://www.borland(tec)cz/podpora_faq.html

Petr Vones

Re[2]: Jak ziskat ico ?

[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 29.10.2002 21:44:01

Ahoj, Lenka,

Tuesday, October 29, 2002, 11:01:23 AM, you wrote:

LD> �xistuj� programy kter� um� z exe souboru vyextrahovat soubor ico. Zkus to
LD> na www.download.com
LD> v sekci Home & Desktop/IconTools

LD> ----- Original Message -----
LD> From: Jiri Betunak <kindrik(zv)centrum(tec)cz>
LD> To: Delphi konference <delphi-l(zv)clexpert(tec)cz>
LD> Sent: Monday, October 28, 2002 10:44 AM
LD> Subject: Jak ziskat ico ?>> Ahoj Konference
>> potreboval bych ziskavat ikonu zastupce.
>> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
>> na iconu v netscp.exe }
>>
>> Nevi nekdo jak na to ?
>>
>>
>>
>>
>>
>> Jiri Betunak
>> kindrik(zv)centrum(tec)cz
>> Delphi5 pro ;Windows ME 4 90


To je sice pekne ale jak to mam pouzit v delphi a jeste ktomu v mem
programu ? Potrebuji nacitat relativni odkazy ja totiz vubec nevim co
tam bude za zastupce
(*.lnk) :(

--
S pozdravem
Jiri mailto:kindrik(zv)centrum(tec)cz

Chybne zobrazeni Formu na Win XP

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 21:49:06

From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
> mam aplikaci, ktera na Win XP ma uvodni Form zobrazen tak, jak to bylo ve
> Win 95.... - tzn. horni Title nema kulate rohy ani neni tak vysoky. Ostatni
> Formy v teto aplikaci uz vypadaji tak, jak maji. Pouze ten uvodni je
> zdeformovany.

Pouzivas nejake dalsi komponenty nez jen ty co jsou v Delphi ?

Petr Vones

ANN Jedi Code Library 1.22

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 21:55:35

Ahoj,

Nova verze Jedi Code Library 1.22:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195

Petr Vones

Re[2]: Jak ziskat ico ?

[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 29.10.2002 22:16:58

Je to velice pekne ale bohuzel jsem nepochopil jak s tim pracovat byla
by mozna mala ukazecka ?
Predem dik
Jiri Betunak
Delphi 5 ,WinME;WinXP

Monday, October 28, 2002, 2:24:08 PM, you wrote:

PV> From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
>> potreboval bych ziskavat ikonu zastupce.
>> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
>> na iconu v netscp.exe }

PV> Napriklad pomoci funkce ShellLinkGetIcon v unitu JclShell v JCL:
PV> http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
PV> http://delphi-jedi.org/CODELIBJCL

PV> Petr Vones

--
S pozdravem
Jiri mailto:kindrik(zv)centrum(tec)cz

IB / FB

[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 29.10.2002 22:45:11

Zalezi na tom, co konkretne by te zajimalo? Technologicke veci? Licencni?
Vykonove? KER
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 2:26 PM
Subject: Re: IB / FB


> > Odes�latel: volcik(zv)email(tec)cz
> > Hodne se se tu hovorilo o IB as FB. Chci zacit pouzivat jeden nebo
druhy, ale nevim se rozhodnout ktery. Muzete nekdo poradit ci porovnat IB /
FB - vcem se lisi, vyhody, nevyhody atd.?
>

Jak ziskat ico ?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.10.2002 22:50:27

From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> Je to velice pekne ale bohuzel jsem nepochopil jak s tim pracovat byla
> by mozna mala ukazecka ?

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses
ComObj, JclFileUtils, JclShell, JclSysInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
Link: TShellLink;
begin
if Succeeded(ShellLinkResolve(PathAddSeparator(GetDesktopFolder) +
'Explorer.lnk', Link)) and
ShellLinkGetIcon(Link, Image1.Picture.Icon) then
ShowMessage('OK')
else
ShowMessage('Error');
end;

Petr Vones

Implementace funkce Random?

[*] Petr Fejfar <development(zv)callnet(tec)cz> - 29.10.2002 23:22:41

From: "Petr Brant" <brant(zv)dcomm(tec)cz>

> Diky, podival jsem se, ale je to procedura,
> ktera nic nevraci.

:-O A co myslis, ze znamena komentar v zahlavi

<- EAX Result

Na osvetleni bych doporucoval precist si kapitolu Program Control v Object
Pascal Language Guide
popr. si najit v helpu topic
Program Control | Function Results.

***

> Krome toho je to v assembleru, takze netusim,
> co to vlastne dela, abych si to prepsal.

V podstate toto (necht Seed je staticka promenna
typu integer, inicializovana na nejakou pocatecni
hodnotu, standardne 0, Randomize do ni strci
v podstate cas):

Seed := Seed*$08088405+1;
Result := int64(aRange)*int64(Seed) div $100000000;

Takova transcripce ale fungovat nebude, protoze shitoidni prascal neumi
unsigned 64 bitove operace.

Takze nejjednodussi to bude vzit, jak to je:


function RandomInteger(aRange:integer): integer;
asm
IMUL EDX,[Seed],08088405H
INC EDX
MOV [Seed],EDX
MUL EAX,EDX
MOV EAX,EDX
end;


HTH, pf

Chybne zobrazeni Formu na Win XP

[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 30.10.2002 05:08:26

Jo pouzivam,
problem je, ze vse fungovalo do urcite doby normalne a pak se to nejak
zvrtlo.
Neda se napr. z DPR nebo DFM zjistit, kde je chyba ?

Zde je ukazka DPR:

program ABC;

uses
Forms,
JclAppInst,
hlavni in 'hlavni.pas' {FormJukWin},
Frame_PD in 'Frame_PD.pas' {FramePD: TFrame},
Frame_PZ in 'Frame_PZ.pas' {FramePZ: TFrame},
dm_FF in 'dm_FF.pas' {dmFF: TDataModule},
dm_AB in 'dm_AB.pas' {dmAB: TDataModule},
FReadData in 'C:\Dc6\unit\Source\FReadData.pas' {FormReadData},

Pavel ZIDEK

> > mam aplikaci, ktera na Win XP ma uvodni Form zobrazen tak, jak to bylo
ve
> > Win 95.... - tzn. horni Title nema kulate rohy ani neni tak vysoky.
Ostatni
> > Formy v teto aplikaci uz vypadaji tak, jak maji. Pouze ten uvodni je
> > zdeformovany.
>
> Pouzivas nejake dalsi komponenty nez jen ty co jsou v Delphi ?
>
> Petr Vones

ANN Jedi Code Library 1.22

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.10.2002 06:25:06

Tak nejak jsem predpokladal, ze v nove verzi se bude uz pocitat s D7,
ale podle Jedi.INC to vypada, ze asi ne :-(

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

29.10.2002 Petr Vones:
> Nova verze Jedi Code Library 1.22:
> http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] Ond�ej Kal�b <ondrej.kalab(zv)webhouse(tec)cz> - 30.10.2002 07:29:14

Zdravim v�echny,

Zadam nekoho povolaneho, kdo ma zkusenosti s uvedenou (CLIENTDATASET +
ADOQuery + MS SQL server.... + Delphi6) ci podobnou konfiguraci.

Mam takovy problem. Mam aplikaci pro editovani dat v databazi. Cele to
funguje tak, ze klient pracuje s daty v ClientDatasetech (je jich vic -
v Master-Detail vztaz�ch - takto tam jsou 3). Tyto ClientDatasety
ziskavaji sva data z ADOQuery - ka�d� ze sve pomoci DataSetProvider.


Vsechno se mo nacte, data v datasetech si upravuju v pohode. Potiz
prijde pro ClientDataSet.ApplyUpdates, kdy mi to nahlasi chybu bud
"record not found or changed by another user" nebo "no key
specified"... Tyto chyby nastanou pouze kdy� byl zaznam smazan nebo
upraven. Pokud byl pridan novy zaznam, vse provehne OK.


Dluzno dodat, ze pokud mnepouzivam clientDatasety a data vkladam primo
do ADOQuery pomoci data-aware prvku, vsechno je OK. (dokonce funguje i
vkladani obrazku).

V helpu jsem si nasel, ze se da v DatasetProvide.BeforeUpdateData
definovat explicitne, kter� pole budou urcovat specificky zaznam a kter�
budou updatovatelna. Ale netusim jak to udelat. Jinak je moznost v
DatasetProvider.UpdateMode taktez specifikovat urcujici pole.

Zajimalo by me, jestli nen� t�eba v datasetech nejak definovat index,
kter� je prim. Klicem v ADO tabulce, ze kter� dotaz bere data tak, aby
slo podle nej zaznam spokehlive urcit, ale zase kdy� mam ty
clientDatasety v Master-Detail vztahu, jsou tam uz nadefinovany indexy
pro propojovane sloupce a ne pro primarni indexy tabulek.


Diky kazdemu za ka�d� napad,

Ond�ej Kal�b, DiS, Jihlava.


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

Context menu

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.10.2002 07:56:27

Ahoj

potrebuji upravit starsi aplikaci, ktera pouzivala u potomka TCustomMemo pro vyvolani kontextoveho menu (popup) zpravu WM_RBUTTONUP. Po prekladu v Delphi 5 se popup uz nezorazi. V helpu je popsano ze se od Delphi 5 pouziva WM_CONTEXTMENU ale priklad jak to pouzit tam primo neni (v Demos take ne). Nenasel jsem ani nejaky event jako OnContextPopup...

Pokusil jsem se to udelat obdobne jako je to v RxRichEdit.pas viz.
deklarace:
procedure WMRButtonUp(var Message: TMessage); message WM_RBUTTONUP;
kod:
procedure TRxCustomRichEdit.WMRButtonUp(var Message: TMessage);
begin
{ RichEd20 does not pass the WM_RBUTTONUP message to defwndproc, }
{ so we get no WM_CONTEXTMENU message. Simulate message here. }
if Win32MajorVersion < 5 then
Perform(WM_CONTEXTMENU, Handle, LParam(PointToSmallPoint(
ClientToScreen(SmallPointToPoint(TWMMouse(Message).Pos)))));
inherited;
end;

ale to mi take nefunguje.
Kdyz jsem to vyzkousel na Windows2000, abych si overil funkcnost na RxRichEdit, tak jsem zjistil ze to nefunguje ani tady :-(

Jak se tedy ma spravne osetrit WM_CONTEXTMENU v Delphi 5 a vyssi ????

Diky za kazdou radu


Jaro B.

ANN Jedi Code Library 1.22

[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 30.10.2002 08:03:49


Podle nejakeho popisu na www se s tim snad pocita.
Pavel

> Tak nejak jsem predpokladal, ze v nove verzi se bude uz pocitat s D7,
> ale podle Jedi.INC to vypada, ze asi ne :-(
>

ANN Jedi Code Library 1.22

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.10.2002 08:10:12


Nevim, jak s tim chces pocitat, kdyz se ti v Jedi.INC nenastavi spravna
verze Delphi (v tomto pripade se nenastavi nic, protoze se s D7
nepocita).
Neni problem to tam dopsat, ale...

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

30.10.2002 Pavel Gazda:

> Podle nejakeho popisu na www se s tim snad pocita.
> Pavel

>> Tak nejak jsem predpokladal, ze v nove verzi se bude uz pocitat s D7,
>> ale podle Jedi.INC to vypada, ze asi ne :-(
>>

Indikace kontextoveho menu

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.10.2002 08:20:23

Ahoj
potreboval bych poradit.
Je to mozna hloupost ale delam indikaci kontextoveho menu (zatim na listboxech) aby uzivatel vedel ze tam vubec nejake menu je a mohl ho vyvolat. Delam to tak, ze zmenim kurzor nad listboxem, toto funguje. Potiz ale je, ze skoro kazdy uzivatel pouziva nejake jine sipky a pokud mu tam flaknu svuj, tak to pusobi dost rusive, nehlede na to, ze jsou urcite objekty, kde je porad systemovy kurzor at se deje co se deje (napriklad kolem rantlu listboxu). Potreboval by tedy zkopirovat jeho sipku kurzoru a vlozit do ni malicky obrazek menu a udelat z toho jiny kurzor, ktery bych mu ukazal a ktery by tak nerusil. Nevite prosim nekdo, jak to udelat? Nebo nejaky tip? Delam to v Delphi 5.

Diky

Jaro B.

ANN Jedi Code Library 1.22

[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 30.10.2002 08:22:01

Osobni zkusenosti nemam, ale je to psano zde:

http://sourceforge.net/project/shownotes.php?release_id=118195

Pavel
>
> Nevim, jak s tim chces pocitat, kdyz se ti v Jedi.INC nenastavi spravna
> verze Delphi (v tomto pripade se nenastavi nic, protoze se s D7
> nepocita).
> Neni problem to tam dopsat, ale...
>

ANN Jedi Code Library 1.22

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.10.2002 08:38:00

Pokud myslis, to ReadMe, ktere je z 19.4.2002 (jine tam neni), tak tam
neni o D7 ani slovo :-(

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

30.10.2002 Pavel Gazda:
> Osobni zkusenosti nemam, ale je to psano zde:
> http://sourceforge.net/project/shownotes.php?release_id=118195

>> Nevim, jak s tim chces pocitat, kdyz se ti v Jedi.INC nenastavi spravna
>> verze Delphi (v tomto pripade se nenastavi nic, protoze se s D7
>> nepocita).
>> Neni problem to tam dopsat, ale...

ANN Jedi Code Library 1.22

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.10.2002 08:49:49

Omlouvam se. Mel jsem stazeny nejaky divny balik (z cesnetu). Po
stazeni ze serveru Telia je to vcetne D7

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

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] delfi <delfi(zv)pocitac(tec)net> - 30.10.2002 08:58:07

HI,
pouzivam to takto a bez problemu:

procedure TmzdyServer00.dsp_PracovnikBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind;
var Applied: Boolean);
begin
with DM do
begin
// qPrac
// naplneni id_CPrac, pri nove vete
if (UpdateKind=ukInsert) and (SourceDS=qPrac) and
(deltaDS.FieldByName('id_CPrac').NewValue < 0) then
begin
spPracnew.execProc;
id_CPrac:=spPracnew.ParamByName('NextID').AsInteger;
deltaDS.FieldByName('id_CPrac').NewValue := id_CPrac;
end;

// zapis vety
if (SourceDS=qPrac) then
begin
SetUSQLParams(UpdSQLPrac.Query[Updatekind], DeltaDS);
UpdSQLPrac.ExecSQL(UpdateKind);
Applied:=true;
end;

// qPracDeti
// naplneni id_CPrac, pri nove vete
if (UpdateKind=ukInsert) and (SourceDS=qPracDeti) and
(deltaDS.FieldByName('id_CPrac').NewValue < 0) then
begin
deltaDS.FieldByName('id_CPrac').NewValue := id_CPrac;
end;
atd

procedure TmzdyServer00.SetUSQLParams(AQuery: TQuery;
ACDS: TClientDataset);
var
i: integer;
Old: Boolean;
Param: TParam;
PName: string;
Field: TField;
Value: Variant;
begin
with AQuery do
begin
for I := 0 to Params.Count - 1 do
begin
Param := Params[I];
PName := Param.Name;
Old := CompareText(Copy(PName, 1, 4), 'OLD_') = 0;
if Old then System.Delete(PName, 1, 4);
Field := ACDS.FindField(PName);
if not Assigned(Field) then Continue;
if Old then Param.AssignFieldValue(Field, Field.OldValue) else
begin
Value := Field.NewValue;
if VarIsEmpty(Value) then Value := Field.OldValue;
Param.AssignFieldValue(Field, Value);
end;
end;
end;
end;

Je to pro BDE, ale upravit pro ADobude malickost
ales


----- Original Message -----
From: "Ond�ej Kal�b" <ondrej.kalab(zv)webhouse(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 7:29 AM
Subject: CLIENTDATASET + ADOQuery + MS SQL server.... + Delphi6 - pot� s
ApplyUpdates !!!!!


Zdravim v�echny,

Zadam nekoho povolaneho, kdo ma zkusenosti s uvedenou (CLIENTDATASET +
ADOQuery + MS SQL server.... + Delphi6) ci podobnou konfiguraci.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.406 / Virov� b�ze: 229 - datum vyd�n�: 21.10.2002

Out parameter funkce

[*] delfi <delfi(zv)pocitac(tec)net> - 30.10.2002 09:04:49

HI,

pokud predavam data z apl. serveru tak to pouzivam takto a v pohode:

procedure LoadINI(aId: Integer; const aName: WideString; var aIniForm,
aIniGrid, aIniMenu, aIniLayout, aIniPrint: WideString); safecall;

Ales

----- Original Message -----
From: "Pavel Poles" <poles(zv)student.fsid.cvut(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 29, 2002 3:43 PM
Subject: Out parameter funkce


> Zdravim,
>
> mam maly problem :-)... Mam aplikacni server, ke kteremu pristupuji pomoci
> DCOM.


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

OT: Konference na NNTP.

[*] Bohdan Dudla <bdudla(zv)pikeelectronic(tec)com> - 30.10.2002 09:16:23

Ahoj.
Obracim se na administratory konference s otazkou a navrhem.
Jestli by neslo prevest konferenci na NNTP protokol?
Podle me NNTP tomu vic vyhovuje.
Jako navrh bych nabidnul NNTP server na bazi Interbase SQL Serveru.
Je maly (46 K) a snadno konfigurovatelny, muze se v nem nadeklarovat
jakekoliv mnozstvi diskuznich skupin.
V pripade zajmu kontaktovat mailem.

With best regards,
Bohdan Dudla

Pike Electronic spol. s r.o.
Modrinova 2
300 00 Plzen
Czech Republic

tel: +420 19 72 40 738
fax: +420 19 74 31 738
gsm: +420 732 441 716
e-mail: bdudla(zv)pikeelectronic.com

ANN Jedi Code Library 1.22

[*] delfi <delfi(zv)pocitac(tec)net> - 30.10.2002 09:20:17

HI,
vzdyt tam podpora D7 je, ted jsem to stahnul....
ales

----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 8:38 AM
Subject: Re: ANN Jedi Code Library 1.22


> Pokud myslis, to ReadMe, ktere je z 19.4.2002 (jine tam neni), tak tam


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

ISAPI a XP

[*] Jan Fiala [work] <delphi(zv)kvasar(tec)cz> - 30.10.2002 09:27:10

Ahojte,
jsem uplne zoufaly s nastavenim WinXP Prof. Potreboval bych ladit ISAPI
knihovnu a nemuzu to nastavit. V napovede delphi je nastaveni a IIS4 nebo
vyssi pro NT. Udelal jsem vse dle napovedy s tim rozdilem, ze cestak
inetinfo.exe neni winnt ale windows. Opravil jsem vsechny ty registry a iis
prestal fungovat uplne. Donkonce jsem si stahl nekde z internetu registry,
ktere to nastavi automaticky a vysledek je stale stejny. Jediny problem,
ktery me napada je, ze do windows se hlasim jako uzivatel domeny. taky
docela dobre nerozumim, kde a co mam nastavit v nize uvedenem bode 2?

Dik za kadou radu, uz se tim zabyvam 3 dny :(

prikladam navod, dle ktereho jsem se snazil nastavit IIS

How to debug an ISAPI DLL with Delphi under NT 4.0 with IIS version 4

1. Make sure that the user name you use to do all your developing with for
WinNT, has Administrator rights. You need to add some settings to the user,
and in order to do so the user must have Administrator rights.


2. Run the User manager for the user that is going to do the debugging.
Start | Programs | Administrative Tools (Common) | User Manager. On the Menu
bar select Policies | User Rights. Make sure the Show Advanced User Rights
box is checked. Hit the down arrow and scroll through the listing of the
different Rights, you should see what you need to add.

Give this user the following permissions:

Log on as a Service ???????
Act as part of the operating system ???????
Generate security audits ???????


3. You will need IIS to run as a process instead of a service. To do this
run the registry file labeled: Regproc.reg. This file will make the
necessary changes to you registry that makes IIS run as a process. The other
registry file: Regserv.reg, will undo the changes made by the previous
registry file.

Run as a Process: Regproc.reg (to be able to debug run this one)
Run as a Service: Regserv.reg (this will undo the previous reg setting)


4. Now stop these services and set them to manual: WWW publishing service,
FTP Service and IIS Admin.


5. Restart your computer.


6. Open Delphi and from the menu bar, select Project | Options -> Linker and
select Use Include remote debugger symbols option.


7. Now in Delphi, open the DLL project and use the following parameters:


Run: C:\Winnt\system32\inetsrv\inetinfo.exe
Parameters: -e w3svc

Zm�na hesla tabulky

[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 30.10.2002 09:51:54

Ahoj v�em, pro jistotu pos�l�m dotaz znovu, kdyby se ztratil v podobn�m
p�edchoz�m t�matu (no mo�n� to nikdo nev�...)

Daji se nejak definovat/menit/mazat hesla paradoxove (paradox 7) tabulky za
behu aplikace? (cili ne jen rucne pomoci DatabaseDesktop)

d�ky
Andreas (D4)

Zmena hesla tabulky

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2002 09:55:27

> Daji se nejak definovat/menit/mazat hesla paradoxove (paradox
> 7) tabulky za behu aplikace? (cili ne jen rucne pomoci
> DatabaseDesktop)

http://info.borland.com/devsupport/bde/delphifiles.html

HTH
TOndrej

Zm�na hesla tabulky

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.10.2002 09:57:05

> Daji se nejak definovat/menit/mazat hesla paradoxove (paradox 7)
> tabulky za behu aplikace? (cili ne jen rucne pomoci DatabaseDesktop)

Daji. Ukazku urcite najdes v archivu a mam pocit, ze priklad na to je
i v helpu BDE32.HLP.

David Lebeda

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] Ond�ej Kal�b <ondrej.kalab(zv)webhouse(tec)cz> - 30.10.2002 10:09:29

No, me ale pridavani zaznamu nejak zda se funguje. Co mi nefunguje je
mazani a modifikace. Pak to hlasi record not found... . A nav�c u te
Query nepouzivam zadne parametry. Je to jen cisty dotaz do jedne tabulky
s definovanou podminkou. O te udalosti BeforeUpdataRecord jem uz taky
cetl. Tam bych nejka asi musel najit ten zaznam, kter� nemuze sam
ClientDataset najit podle id, ale nevim jak toho docilit....

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of delfi
Sent: Wednesday, October 30, 2002 8:58 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: CLIENTDATASET + ADOQuery + MS SQL server.... + Delphi6 -
pot� s ApplyUpdates !!!!!


HI,
pouzivam to takto a bez problemu:

procedure TmzdyServer00.dsp_PracovnikBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind;
var Applied: Boolean);
begin
with DM do
begin
// qPrac
// naplneni id_CPrac, pri nove vete
if (UpdateKind=ukInsert) and (SourceDS=qPrac) and
(deltaDS.FieldByName('id_CPrac').NewValue < 0) then
begin
spPracnew.execProc;
id_CPrac:=spPracnew.ParamByName('NextID').AsInteger;
deltaDS.FieldByName('id_CPrac').NewValue := id_CPrac;
end;

// zapis vety
if (SourceDS=qPrac) then
begin
SetUSQLParams(UpdSQLPrac.Query[Updatekind], DeltaDS);
UpdSQLPrac.ExecSQL(UpdateKind);
Applied:=true;
end;

// qPracDeti
// naplneni id_CPrac, pri nove vete
if (UpdateKind=ukInsert) and (SourceDS=qPracDeti) and
(deltaDS.FieldByName('id_CPrac').NewValue < 0) then
begin
deltaDS.FieldByName('id_CPrac').NewValue := id_CPrac;
end;
atd

procedure TmzdyServer00.SetUSQLParams(AQuery: TQuery;
ACDS: TClientDataset);
var
i: integer;
Old: Boolean;
Param: TParam;
PName: string;
Field: TField;
Value: Variant;
begin
with AQuery do
begin
for I := 0 to Params.Count - 1 do
begin
Param := Params[I];
PName := Param.Name;
Old := CompareText(Copy(PName, 1, 4), 'OLD_') = 0;
if Old then System.Delete(PName, 1, 4);
Field := ACDS.FindField(PName);
if not Assigned(Field) then Continue;
if Old then Param.AssignFieldValue(Field, Field.OldValue) else
begin
Value := Field.NewValue;
if VarIsEmpty(Value) then Value := Field.OldValue;
Param.AssignFieldValue(Field, Value);
end;
end;
end;
end;

Je to pro BDE, ale upravit pro ADobude malickost
ales


----- Original Message -----
From: "Ond�ej Kal�b" <ondrej.kalab(zv)webhouse(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 7:29 AM
Subject: CLIENTDATASET + ADOQuery + MS SQL server.... + Delphi6 - pot�
s ApplyUpdates !!!!!


Zdravim v�echny,

Zadam nekoho povolaneho, kdo ma zkusenosti s uvedenou (CLIENTDATASET +
ADOQuery + MS SQL server.... + Delphi6) ci podobnou konfiguraci.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.406 / Virov� b�ze: 229 - datum vyd�n�: 21.10.2002

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


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

ISAPI a XP

[*] Jan Fiala [work] <delphi(zv)kvasar(tec)cz> - 30.10.2002 10:26:32

Problem zrejme bude v tom, ze kdyz zmenim v servicech ucet pro prohlaseni ze
systemoveho na sebe, tak prestane IIS fungovat(jeste jsem vubec nenastavoval
registry). Menim to u sluzeb Publikovani na webu a Sprava sluzby IIS. Po
restartovani IIS prestane chodit lokalni web :( ikdyz konzole IIS hlasi, ze
bezi.
Nemate s timhle nekdo zkusenost? co delam spatne?

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Fiala [work]
Sent: Wednesday, October 30, 2002 9:27 AM
To: Delphi-L
Subject: ISAPI a XP


Ahojte,
jsem uplne zoufaly s nastavenim WinXP Prof. Potreboval bych ladit ISAPI
knihovnu a nemuzu to nastavit. V napovede delphi je nastaveni a IIS4 nebo
vyssi pro NT. Udelal jsem vse dle napovedy s tim rozdilem, ze cestak
inetinfo.exe neni winnt ale windows. Opravil jsem vsechny ty registry a iis
prestal fungovat uplne. Donkonce jsem si stahl nekde z internetu registry,
ktere to nastavi automaticky a vysledek je stale stejny. Jediny problem,
ktery me napada je, ze do windows se hlasim jako uzivatel domeny. taky
docela dobre nerozumim, kde a co mam nastavit v nize uvedenem bode 2?

Dik za kadou radu, uz se tim zabyvam 3 dny :(

prikladam navod, dle ktereho jsem se snazil nastavit IIS

How to debug an ISAPI DLL with Delphi under NT 4.0 with IIS version 4

1. Make sure that the user name you use to do all your developing with for
WinNT, has Administrator rights. You need to add some settings to the user,
and in order to do so the user must have Administrator rights.


2. Run the User manager for the user that is going to do the debugging.
Start | Programs | Administrative Tools (Common) | User Manager. On the Menu
bar select Policies | User Rights. Make sure the Show Advanced User Rights
box is checked. Hit the down arrow and scroll through the listing of the
different Rights, you should see what you need to add.

Give this user the following permissions:

Log on as a Service ???????
Act as part of the operating system ???????
Generate security audits ???????


3. You will need IIS to run as a process instead of a service. To do this
run the registry file labeled: Regproc.reg. This file will make the
necessary changes to you registry that makes IIS run as a process. The other
registry file: Regserv.reg, will undo the changes made by the previous
registry file.

Run as a Process: Regproc.reg (to be able to debug run this one)
Run as a Service: Regserv.reg (this will undo the previous reg setting)


4. Now stop these services and set them to manual: WWW publishing service,
FTP Service and IIS Admin.


5. Restart your computer.


6. Open Delphi and from the menu bar, select Project | Options -> Linker and
select Use Include remote debugger symbols option.


7. Now in Delphi, open the DLL project and use the following parameters:


Run: C:\Winnt\system32\inetsrv\inetinfo.exe
Parameters: -e w3svc

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] hlas <hlas(zv)inmail.sk> - 30.10.2002 10:30:28

mam uplne ten isty problem s TSimpleDataSet a DBX.
tiez nie som schopny ulozit zaznam do databazy metodou
applyupdates, ak iny uzivatel medzitym, tento zaznam upravil.
----- Original Message -----
From: "Ond�ej Kal�b" <ondrej.kalab(zv)webhouse(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 7:29 AM
Subject: CLIENTDATASET + ADOQuery + MS SQL server.... + Delphi6 - pot� s
ApplyUpdates !!!!!


Zdravim v�echny,

Zadam nekoho povolaneho, kdo ma zkusenosti s uvedenou (CLIENTDATASET +
ADOQuery + MS SQL server.... + Delphi6) ci podobnou konfiguraci.

Mam takovy problem. Mam aplikaci pro editovani dat v databazi. Cele to
funguje tak, ze klient pracuje s daty v ClientDatasetech (je jich vic -
v Master-Detail vztaz�ch - takto tam jsou 3). Tyto ClientDatasety
ziskavaji sva data z ADOQuery - ka�d� ze sve pomoci DataSetProvider.


Vsechno se mo nacte, data v datasetech si upravuju v pohode. Potiz
prijde pro ClientDataSet.ApplyUpdates, kdy mi to nahlasi chybu bud
"record not found or changed by another user" nebo "no key
specified"... Tyto chyby nastanou pouze kdy� byl zaznam smazan nebo
upraven. Pokud byl pridan novy zaznam, vse provehne OK.


Dluzno dodat, ze pokud mnepouzivam clientDatasety a data vkladam primo
do ADOQuery pomoci data-aware prvku, vsechno je OK. (dokonce funguje i
vkladani obrazku).

V helpu jsem si nasel, ze se da v DatasetProvide.BeforeUpdateData
definovat explicitne, kter� pole budou urcovat specificky zaznam a kter�
budou updatovatelna. Ale netusim jak to udelat. Jinak je moznost v
DatasetProvider.UpdateMode taktez specifikovat urcujici pole.

Zajimalo by me, jestli nen� t�eba v datasetech nejak definovat index,
kter� je prim. Klicem v ADO tabulce, ze kter� dotaz bere data tak, aby
slo podle nej zaznam spokehlive urcit, ale zase kdy� mam ty
clientDatasety v Master-Detail vztahu, jsou tam uz nadefinovany indexy
pro propojovane sloupce a ne pro primarni indexy tabulek.


Diky kazdemu za ka�d� napad,

Ond�ej Kal�b, DiS, Jihlava.


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

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.10.2002 10:46:09

On 30 Oct 2002 at 10:30, hlas wrote:

> mam uplne ten isty problem s TSimpleDataSet a DBX.
> tiez nie som schopny ulozit zaznam do databazy metodou
> applyupdates, ak iny uzivatel medzitym, tento zaznam upravil.

Archiv teto konference je toho plny, ale znovu zopakuji. Pri praci se
SQL databazi v sitovem provozu je vice nez vhodne dodrzovat
nasledujici pravidla:

1. NIKDY nepouzivat k ukladani dat dbAware komponenty.

2. Muze-li odjit k nejakemu konfliktu mezi vice uzivateli, VZDY
posilat zmeny do databaze pres ulozenou proceduru, ve ktere bude
osetreno hlidani zmen jinym uzivatelem (napriklad pomoci timestampu),
a procedura vrati pripadnou chybu. Programatorovi i uzivateli to pak
da moznost reagovat, aniz by dochazelo ke ztrate nadatlovanych dat.

S pozdravem

Zbysek Hlinka


Vytvo�en� u�ivatele v IB

[*] Ale� Kerner <kerner(zv)metalcom(tec)cz> - 30.10.2002 10:59:49

Zdravim

Nevite nekdo, jak mam pomoci SQL Otestovat uzivatele v IB, vytvorit
uzivatele v IB, pridelit mu prava na nejakou databazi a smazat uzivatele
sysdba?

Dik

Ales Kerner


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

Ulozeni tabulky table.db

[*] Str�n�k Franti�ek Ing. <FStranik(zv)cpoj(tec)cz> - 30.10.2002 11:15:43

Dotaz bohuzel jeste ke klasickemu BDE.

Uzivatel ma jeste (bohuzel) starsi aplikaci BDE s tabulkama typu "tabulka.db".
Uzivatel edituje inforamce v tabulkach a prubezne dela "Save" (table.post) na tyto tabulky v domeni, ze se tyto informace prubezne ukladaji fyzicky do tabulek na disk.

Nekdy se mu ovsem stane, ze se vypne proud a vsechny predchozi informace, ktere byly takto prubezne "Ukladany" - (table.post) se ztratily. Ulozi se data pri table.post fyzicky na disk ? (jak to zaridit ?)

zdrav�
Franti�ek STR�N�K

=?utf-8?Q?RE:_CLIENTDATASET__+_ADOQuery_+_MS_SQL_s

[*] =?utf-8?Q?Ond=C5=99ej_Kal=C3=A1b?= <ondrej.kalab(zv)webhouse(tec)cz> - 30.10.2002 11:22:51

Jenomze mne nejde o zmeny jinyma uzivatelama. To se me netyka. Mne to hazi chybu o když tam zadne zmeny nebyly mezi tim provedeny. Proste mi nefunguje spoluprace ADOQuery a ClientDataSet (z nejakeho - mne neznameho - duvodu)....

-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Zbysek Hlinka
Sent: Wednesday, October 30, 2002 10:46 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: CLIENTDATASET + ADOQuery + MS SQL server.... + Delphi 6 - potíž s ApplyUpdates !!!!!


On 30 Oct 2002 at 10:30, hlas wrote:

> mam uplne ten isty problem s TSimpleDataSet a DBX.
> tiez nie som schopny ulozit zaznam do databazy metodou applyupdates,
> ak iny uzivatel medzitym, tento zaznam upravil.

Archiv teto konference je toho plny, ale znovu zopakuji. Pri praci se
SQL databazi v sitovem provozu je vice nez vhodne dodrzovat
nasledujici pravidla:

1. NIKDY nepouzivat k ukladani dat dbAware komponenty.

2. Muze-li odjit k nejakemu konfliktu mezi vice uzivateli, VZDY
posilat zmeny do databaze pres ulozenou proceduru, ve ktere bude
osetreno hlidani zmen jinym uzivatelem (napriklad pomoci timestampu),
a procedura vrati pripadnou chybu. Programatorovi i uzivateli to pak
da moznost reagovat, aniz by dochazelo ke ztrate nadatlovanych dat.

S pozdravem

Zbysek Hlinka



---
Pøíchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virová báze: 230 - datum vydání: 24.10.2002


---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virová báze: 230 - datum vydání: 24.10.2002

Vytvo�en� u�ivatele v IB

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.10.2002 11:26:07

> Odes�latel: Ale� Kerner <kerner(zv)metalcom(tec)cz>
> Nevite nekdo, jak mam pomoci SQL Otestovat uzivatele v IB, vytvorit
> uzivatele v IB, pridelit mu prava na nejakou databazi a smazat uzivatele
> sysdba?
A nestacilo by to pomoci komponenty TIBSecurityService?
SYSDBA ale smazes asi tezko.

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

Ulozeni tabulky table.db

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.10.2002 11:31:35

> Odes�latel: Str�n�k Franti�ek Ing. <FStranik(zv)cpoj(tec)cz>
> Ulozi se data pri table.post fyzicky na disk ? (jak to zaridit ?)

Podle me by se ulozit mely, ale znas to ...
Je tam ale Table.FlushBuffers nebo primo API dbiSaveChanges.

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

Konference na NNTP.

[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 30.10.2002 11:38:47

> Jestli by neslo prevest konferenci na NNTP protokol?

NEEEEeeee :o)

proste mi to v praci nefunguje tak jak by melo.
email je mnohem funkcnejsi. historii resi konf view.

dekuji

peca

CLIENTDATASET + ADOQuery + MS SQL server....

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.10.2002 11:47:53

On 30 Oct 2002 at 11:22, Ondřej Kal÷b wrote:

> Jenomze mne nejde o zmeny jinyma uzivatelama. To se me netyka. Mne to
> hazi chybu o kdyŵ tam zadne zmeny nebyly mezi tim provedeny. Proste
> mi nefunguje spoluprace ADOQuery a ClientDataSet (z nejakeho - mne
> neznameho - duvodu)....

Tak dodrzuj uvedena pravidla VZDY, a nebudes mit takove problemy. :-)

> -----Original Message-----
> 1. NIKDY nepouzivat k ukladani dat dbAware komponenty.
>
> 2. Muze-li odjit k nejakemu konfliktu mezi vice uzivateli, VZDY
> posilat zmeny do databaze pres ulozenou proceduru, ve ktere bude
> osetreno hlidani zmen jinym uzivatelem (napriklad pomoci timestampu),
> a procedura vrati pripadnou chybu. Programatorovi i uzivateli to pak
> da moznost reagovat, aniz by dochazelo ke ztrate nadatlovanych dat.

S pozdravem

Zbysek Hlinka


potis s EXE

[*] cz574068(zv)tiscali(tec)cz - 30.10.2002 11:55:13

Dobry den..

mam potiz a tak se zkusim zeptat zda jiz nema nekdo s necim takovym zkusenost.
Programuji aplikaci (Delphi 6 prof. (pod CLX), FireBird, Win 2000) ktera
se chova 'podivne'.Vim o 5 pocitacich na kterem bezi OK..Jenze vim take
o jednom na kterem to opravdu osklive zbuchne. (Duron 600, obyc. sestava
s WIN 2000) Nejcasteji Acess violation, pamet neni read atd.. Po deseti
varovnych dialozich to kompletne vytuhne a je to v..
Zajimava vec, kdyz to zkompiluji na tom spatnem pocitaci, tak to vesele
bezi, ale zase na tech ostatnich to pada!?!?! A to uplne stejne jako predtim,ale
obracene. Vsiml jsem si,ze kompilace programu (stejneho kodu) se na techto
pocitacich lisi. Sice jen o par BYTE, ale asi to staci..

Bohuzel z chybovych hlaseni se neda od niceho odpichnout. Take ladit to
nejde, protoze v Delphi (v IDE) si to vesele bezi a na vsech sestavach se
to pospousti. Jen zustane ten vysse popsany problem. Zkusil jsem zapnout,
aby se mi v ide vyvolala kazda vyjimka, vyhazel vsechny TRY EXCEPT ale..
Ale je to na..

Nevite nekdo oc by mohlo jit ? Beru kazdy tip, protoze ja uz vazne nevim..

Dekuji, dekuji.. Martin



___________________________________________________________
http://sms.tiscali(tec)cz ...LOGA a MELODIE na mobil!
Nyn� NOV� i pro mobiln� telefony SIEMENS!

Assignfile

[*] Peter Surovy <psurovy(zv)uevora.pt> - 30.10.2002 11:08:15 -0000

Ahoj
mam program, ktory pocas runtime
vytvara subor s nejakym menom a relativnou cestou:

assignfile(subor,'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');

tento program je nainstalovany v Program Files/Mojprogram
ked ho spustim s tejto lokality vsetko bezi OK
ale ked ho spustim cez Shortcut z ponuky Start - programy - Moj Program

na assignfile to padne s hlaskou Invalid File Name.
ako keby ten shortcut spustil ten program niekde inde
a nie v ProgramFiles/MojProgram
a tym padom nenajde tu podvetvu
neviete co by mohlo byt zle?

Peter Surovy

Assignfile

[*] Robert Suska <delphi(zv)korak.sk> - 30.10.2002 12:10:37

Ahoj!

skus dat tu cestu do " "

> assignfile(subor,'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');

cize potom

run('"' + 'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff' + '"')

run - to je nieco vymyslene...

S pozdravom,

************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************> Ahoj
> mam program, ktory pocas runtime
> vytvara subor s nejakym menom a relativnou cestou:
>
> assignfile(subor,'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');
>
> tento program je nainstalovany v Program Files/Mojprogram
> ked ho spustim s tejto lokality vsetko bezi OK
> ale ked ho spustim cez Shortcut z ponuky Start - programy - Moj Program
>
> na assignfile to padne s hlaskou Invalid File Name.
> ako keby ten shortcut spustil ten program niekde inde
> a nie v ProgramFiles/MojProgram
> a tym padom nenajde tu podvetvu
> neviete co by mohlo byt zle?
>
> Peter Surovy
>

Assignfile

[*] Otisk Rene <otisk(zv)misel(tec)cz> - 30.10.2002 12:20:35

Tady si to totiz bere cestu z toho Shortcutu to znamena cesta Plochy
(C:\Windows\Profiles\User\Plocha). Cestu spustene aplikace si zjisti pres
Aplication.ExeName nebo pres prvni parametr spousteneho souboru

Sroub
> Ahoj
> mam program, ktory pocas runtime
> vytvara subor s nejakym menom a relativnou cestou:
>
> assignfile(subor,'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');
>
> tento program je nainstalovany v Program Files/Mojprogram
> ked ho spustim s tejto lokality vsetko bezi OK
> ale ked ho spustim cez Shortcut z ponuky Start - programy - Moj Program
>
> na assignfile to padne s hlaskou Invalid File Name.
> ako keby ten shortcut spustil ten program niekde inde
> a nie v ProgramFiles/MojProgram
> a tym padom nenajde tu podvetvu
> neviete co by mohlo byt zle?

Assignfile

[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 30.10.2002 12:23:31

> mam program, ktory pocas runtime vytvara subor s
> nejakym menom a relativnou cestou:
>
> assignfile(subor,'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');
>
> tento program je nainstalovany v Program Files/Mojprogram
> ked ho spustim s tejto lokality vsetko bezi OK ale ked ho
> spustim cez Shortcut z ponuky Start - programy -
> Moj Program na assignfile to padne s hlaskou Invalid File
> Name.
> ako keby ten shortcut spustil ten program niekde inde
> a nie v ProgramFiles/MojProgram a tym padom nenajde
> tu podvetvu neviete co by mohlo byt zle?

Presne tak. Windows nastavuje ine current directory pre proces pri spustani
zo shell linkov.
Jednoducho to mozes vyriesit tym, ze si za behu ako prve zavolas
SeCurrentDir(ExtractFilePath(ParamStr(0))) a potom (ak to uspesne prebehne)
by mali relativne cesty fungovat vzhladom k adresaru, kde sa nachadza Tvoj
program.

HTH
TOndrej

Ulozeni tabulky table.db

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.10.2002 12:24:06

VWxvemkgc2UgdiBwcmlwYWRlLCB6ZSBqZSBuYXN0YXZlbm8gdiBCREUgTG9jYWxTaGFyZSBuYSBG
YWxzZS4NClBvcHIuIGplIHRyZWJhIHZvbGF0IHBvIFRhYmxlLlBvc3QgamVzdGUgZGJpU2F2ZUNo
YW5nZXMNCg0KLS0gDQppbmcuIEphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3oNCg0K
MzAuMTAuMjAwMiBTdHLhbu1rIEZyYW50abllayBJbmcuOg0KPiBEb3RheiBib2h1emVsIGplc3Rl
IGtlIGtsYXNpY2tlbXUgQkRFLg0KDQo+IFV6aXZhdGVsIG1hIGplc3RlIChib2h1emVsKSBzdGFy
c2kgYXBsaWthY2kgQkRFIHMgdGFidWxrYW1hIHR5cHUgInRhYnVsa2EuZGIiLg0KPiBVeml2YXRl
bCBlZGl0dWplIGluZm9yYW1jZSB2IHRhYnVsa2FjaCBhIHBydWJlem5lIGRlbGEgIlNhdmUiICh0
YWJsZS5wb3N0KSBuYSB0eXRvIHRhYnVsa3kgdiBkb21lbmksIHplIHNlIHR5dG8gaW5mb3JtYWNl
IHBydWJlem5lIHVrbGFkYWppIGZ5emlja3kgZG8gdGFidWxlayBuYSBkaXNrLiANCg0KPiBOZWtk
eSBzZSBtdSBvdnNlbSBzdGFuZSwgemUgc2UgdnlwbmUgcHJvdWQgYSB2c2VjaG55IHByZWRjaG96
aSBpbmZvcm1hY2UsIGt0ZXJlIGJ5bHkgdGFrdG8gcHJ1YmV6bmUgIlVrbGFkYW55IiAtICh0YWJs
ZS5wb3N0KSBzZSB6dHJhdGlseS4gVWxvemkgc2UgZGF0YSBwcmkgdGFibGUucG9zdCBmeXppY2t5
IG5hIGRpc2sgPyAoamFrIHRvDQo+IHphcmlkaXQgPykNCg0KPiB6ZHJhdu0NCj4gRnJhbnRpuWVr
IFNUUsFOzUsNCg0KIA==

Assignfile

[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.10.2002 12:28:42

Pokud to upravis na:

Datapath := ExtractFilePath(Application.ExeName)+ 'podvetva/';
assignfile(subor, DataPath + Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');

Tak ti nebude vadit, at jej spustis odkudkoliv.
Pocitat s tim, ze bude program spusteny v nejakem konkretnim adresari
neni nejstastnejsi reseni :-(

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

30.10.2002 Peter Surovy:
> Ahoj
> mam program, ktory pocas runtime
> vytvara subor s nejakym menom a relativnou cestou:

> assignfile(subor,'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');

> tento program je nainstalovany v Program Files/Mojprogram
> ked ho spustim s tejto lokality vsetko bezi OK
> ale ked ho spustim cez Shortcut z ponuky Start - programy - Moj Program

> na assignfile to padne s hlaskou Invalid File Name.
> ako keby ten shortcut spustil ten program niekde inde
> a nie v ProgramFiles/MojProgram
> a tym padom nenajde tu podvetvu
> neviete co by mohlo byt zle?

> Peter Surovy

Assignfile

[*] Peter Surovy <psurovy(zv)uevora.pt> - 30.10.2002 11:29:30 -0000

Aha
asi som to nepresne vysvetlil:

----- Original Message -----
From: "Robert Suska" <delphi(zv)korak.sk>
Sent: Wednesday, October 30, 2002 11:10 AM


> skus dat tu cestu do " "
>
> > assignfile(subor,'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff');
---subor to je len meno textaku
var subor:Textfile

> cize potom
> run('"' + 'podvetva/'+Copy(popis,1,3)+Copy(popis2,1,6)+'.fff' + '"')
> run - to je nieco vymyslene...
---tu cestu prave neviem to je podla toho kam si
to uzivatel nainstaloval iste ale je ze to cele musi byt zastresene
jednym adresarom a v tom uz som doma problem je len s tym ShortCut


--- program je program.exe a vytvara subor do ktoreho si
zapisuje data: subor.fff; tento subor sa vytvara v podadresari
/podadresar a ten je v tom istom adresari ako program.exe

Ked spustim program.exe priamo z jeho lokality vsetko bezi OK
lebo asi zrejme najde ten podadresar
ale ked ten isty program spustim cez ShortCut
pri vytvarani suboru.fff to padne s Invalid File Name
ako keby nemohol najst ten podadresar alebo co.

>
> ************************************
> Robert Suska
> KORAK SLOVAKIA s.r.o.
> Horna 52
> 974 01 Banska Bystrica
> www.korak.sk robert(zv)korak.sk
> Network administrator, Delphi programmer
> ************************************

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] hlas <hlas(zv)inmail.sk> - 30.10.2002 12:36:19


Lenze ak to fakt je tak ako pises, to znamena, ze sa to neda riesit
nejako jednoduchsie, tak potom sa z delphi stava nie RAD nastroj
ale nieco ine napr. SAD - SlowAplDevelopment......

Toto co popisujes mi navysi robotu tak o 30-50% mozno aj viac.
Naco je tam potom komponenta TSimpleDataSet, ktoru v D7 doporucuju
na tvorbu (nie viacvrstvovych )klientserver aplikacii???
To sa ocakava, ze v C/S aplikacii
nebude dochadzat k sietovym stretom viacerych uzivatelov????
No to hadam nie....

Hlas

----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>> 1. NIKDY nepouzivat k ukladani dat dbAware komponenty.
>
> 2. Muze-li odjit k nejakemu konfliktu mezi vice uzivateli, VZDY
> posilat zmeny do databaze pres ulozenou proceduru, ve ktere bude
> osetreno hlidani zmen jinym uzivatelem (napriklad pomoci timestampu),
> a procedura vrati pripadnou chybu. Programatorovi i uzivateli to pak
> da moznost reagovat, aniz by dochazelo ke ztrate nadatlovanych dat.
>
> S pozdravem
>
> Zbysek Hlinka
>
>
>
>

Konference na NNTP.

[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 30.10.2002 12:43:08

> Obracim se na administratory konference s otazkou a navrhem.
> Jestli by neslo prevest konferenci na NNTP protokol?
> Podle me NNTP tomu vic vyhovuje.

Pro sve potreby jsem zprovoznil news server na adrese
news://news.hermess(tec)cz - skupina free.delphi , takze pokud mate
zajem ...

S pozdravem
Jiri Kratochvil

CLIENTDATASET + ADOQuery + MS SQL server....

[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 30.10.2002 12:53:37

On 30 Oct 2002 at 12:36, hlas wrote:

> Lenze ak to fakt je tak ako pises, to znamena, ze sa to neda riesit
> nejako jednoduchsie, tak potom sa z delphi stava nie RAD nastroj ale
> nieco ine napr. SAD - SlowAplDevelopment......

No jo, tak uz to chodi. Bud chces psat jednoduche demoverze, nebo
spolehlive aplikace. Vyber si. :-) Na ten samy problem narazis v
jakemkoliv jazyce. Delphi je dobre v tom, ze ti umoznuje to udelat i
jinak - jinymi slovy poradne a spolehlive.

> Toto co popisujes mi navysi robotu tak o 30-50% mozno aj viac.

Ano, to souhlasi. Ale usetri ti to zase spoustu prace s osetrovanim
ruznych neprijemnych situaci a stavu, ktere vznikaji pri pouzivani
dbAware komponent pro ukladani dat.

> Naco je tam potom komponenta TSimpleDataSet, ktoru v D7 doporucuju na
> tvorbu (nie viacvrstvovych )klientserver aplikacii???

Nevim, ja ji nepouzivam. :-)

> To sa ocakava,
> ze v C/S aplikacii nebude dochadzat k sietovym stretom viacerych
> uzivatelov???? No to hadam nie....

Jak jsem psal, na ukladani dat jsou urceny ulozene procedury v
databazi. Jakekoliv programove konstrukce snazici se osetrit
konflikty pri sitove praci jsou tak leda na dve veci.

Ale zato s temi komponentami naklikas velmi rychle zdanlive fungujici
program pri predvadecce. A to se take pocita pri lakani zakazniku,
ne? :-)

S pozdravem

Zbysek Hlinka


ANN Jedi Code Library 1.22

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2002 13:01:17

From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Pokud myslis, to ReadMe, ktere je z 19.4.2002 (jine tam neni), tak tam
> neni o D7 ani slovo :-(

Pak si asi stahl neco jineho. Vsechny soubory v release verzi maji v datumu
vzdy verzi.

Jinak prvni verze pro Delphi 7 byla jiz davno na Companion CD.

Petr Vones

Assignfile

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.10.2002 13:07:01

> Odes�latel: Peter Surovy <psurovy(zv)uevora.pt>
> vytvara subor s nejakym menom a relativnou cestou:

"Aktivni" adresar jde nejka natavit, mysli SysUtils.SerCurrentDir.

Ale pokud mohu doporucit, radsi na nejake relativni cesty zapomen.
(to nahore je preklep, "R" je hned vedle "T", ale ja ho tam teda necham :-)

Radsi pouzij
ExeDir:=ExtractFilePath(ParamStr(0))
a pak se na vsechno odkazuj pres tuto promennou.
Mas absolutni cestu a tim klid.

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

Initialize the Borland Databaze Engine

[*] Str�n�k Franti�ek Ing. <FStranik(zv)cpoj(tec)cz> - 30.10.2002 13:08:20

Z 1001 tipu a triku pro Delphi chci napr. pouzit 495 zjisteni formatu data v BDE (bohuzel jeste).

procedure GetDate;
var MyDateFormat:FMTDate;
begin
Check(dbiGetDateFormat(MyDateFormat));
ShowMessage('oddelovac '+MyDateFormat.szDateSeparator);
end;

Po spusteni mi to hlasi chybu:
An error occurced while attempting to initialize the Borland databaze Engine (error $2A06).

Ostatni prikazy s "BDE" bez problemu.
Tato chyba se hlasi vzdy, kdyz je prikaz Check(dbi ....)

BDE samozrejme opustim, ale nyni toto musim vyresit.

Kde je chyba ?.

zdrav�
Franti�ek STR�N�K

OT Konference na NNTP.

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2002 13:11:21

From: "Bohdan Dudla" <bdudla(zv)pikeelectronic.com>
> Obracim se na administratory konference s otazkou a navrhem.
> Jestli by neslo prevest konferenci na NNTP protokol?
> Podle me NNTP tomu vic vyhovuje.

Rekl bych, vyhovoval by, kdyby:

- v tomto state meli lide moznost mit normalni pristup k Internetu na urovni
roku 2002, tedy flat-rate
- ve firmach, (polostatnich) podnicich atd by byl nekdo ochoten pochopit, ze
takova konference muze byt prinosem a povolil by ji na firewallu v pripade
NNTP
- byl nekdo kdo by provozoval spolehlivy newsserver a udrzoval archiv zprav
- konference mela nekolika nasobne vetsi pocet zprav za den nez ma ted

Muj nazor je, ze v nasich podminkach neni NNTP moc vyhrou a na tech par zprav
denne mailova konference naprosto staci.

Petr Vones

Ulozeni tabulky table.db

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.10.2002 13:11:05

> Nekdy se mu ovsem stane, ze se vypne proud a vsechny predchozi
> informace, ktere byly takto prubezne "Ukladany" - (table.post) se
> ztratily. Ulozi se data pri table.post fyzicky na disk ? (jak to
> zaridit ?)

Ahoj,

podivej se do helpu pripadne do archivu na FlushBuffers nebo
dbiSaveChanges. Pisu z hlavy, ale snad si to pamatuji spravne.
Mohlo by to byt ono. Post skutecne sam o sobe neznamena zapis na
disk.

David Lebeda

Initialize the Borland Databaze Engine

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.10.2002 13:13:45

> Po spusteni mi to hlasi chybu:
> An error occurced while attempting to initialize the Borland databaze
> Engine (error $2A06).

Ja jsem se s touhle chybou setkaval obvykle pote, co nekdo zkusil
provest upgrade BDE na vyssi verzi. Obvykle se neco nepovedlo a
zustala cast stareho a cast noveho.

Nevim, jestli to muze byt Tvuj pripad, ale jestli mas moznost zkusit
to i na jinych strojich...

David Lebeda

potis s EXE

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2002 13:36:17

From: <cz574068(zv)tiscali(tec)cz>
> Programuji aplikaci (Delphi 6 prof. (pod CLX), FireBird, Win 2000) ktera
>
> Zajimava vec, kdyz to zkompiluji na tom spatnem pocitaci, tak to vesele
> bezi, ale zase na tech ostatnich to pada!?!?! A to uplne stejne jako
> predtim,aleobracene.

Patrne mas na kazdem pocitaci jinou verzi Delphi, komponent nebo te Qt hruzy
pro CLX (4 megova DLL).

> Vsiml jsem si,ze kompilace programu (stejneho kodu) se na techto pocitacich
> lisi. Sice jen o par BYTE, ale asi to staci..

Ta se bude lisit i na tom samem pocitaci, protoze linker obcas prehodi poradi
umistovani kodu jednotlivych unitu v EXE souboru, coz samozrejme nicemu nevadi
akorat nelze pouzit primitivni binarni srovnavani dvou souboru.

> Nevite nekdo oc by mohlo jit ? Beru kazdy tip, protoze ja uz vazne nevim

- Zkontroluj jestli mas vsude Update Pack #2 pro Delphi 6, RTL update a update
na varianty:
http://www.borland.com/products/downloads/download_delphi.html
http://community.borland.com/article/0,1410,28513,00.html
- Zkontroluj verze te qtintf.dll knihovny
- Nepouzivej CLX na Windows! Nejsou to pak windows aplikace a nebudou tak ani
poradne fungovat (viz treba podpora XP themes, vice monitoru a dalsi veci).
Na Windows maji byt Windows aplikace, tedy VCL. Jina moznost neni, pokud to
nema byt naprosty paskvil.

Petr Vone

OT Konference na NNTP.

[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 30.10.2002 13:51:57

> From: "Bohdan Dudla" <bdudla(zv)pikeelectronic.com>
> > Obracim se na administratory konference s otazkou a navrhem.
> > Jestli by neslo prevest konferenci na NNTP protokol?
> > Podle me NNTP tomu vic vyhovuje.
>
> Petr Vones: Rekl bych, vyhovoval by, kdyby...

Ahoj,
a nebylo by mozne zrealizovat nejake "kompromisni" reseni, myslim tim
NNTP server, do ktereho by se automaticky replikovali i prispevky z
mail konference a naopak? Kazdy by si pak jen vybral to, co mu vice
vyhovuje.

Osobne vidim nejvetsi informacni hodnotu v rozsahlem archivu, na
ktery mi konfview prozatim vzdy stacil.

S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637

______________________________________________________________________
Reklama:
Obchodn� d�m(tec)cz - �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=59

CLIENTDATASET + ADOQuery + MS SQL serve

[*] Kr�l Jirka <admin(zv)printo(tec)cz> - 30.10.2002 13:59:19

>>Lenze ak to fakt je tak ako pises, to znamena, ze sa to neda riesit nejako jednoduchsie,
>>tak potom sa z delphi stava nie RAD nastroj ale nieco ine napr. SAD - SlowAplDevelopment......
>>Toto co popisujes mi navysi robotu tak o 30-50% mozno aj viac.

Je to bohuzel pravda, u sitovych apps je RAD pristup cesta do pekla. Akceptovat to co ti RADi ;-) Zbysek je tezka volba, ale jedina spravna. db-aware komponenty jsou pro vetsi sitove SQL apps nepouzitelne. Vyplati se napsat si vlastni objekty pro osetreni komunikace s db. Pokud budes psat vice aplikaci usetris si hafo casu a starosti.

J.

Indikace kontextoveho menu

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2002 14:11:55

From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
> Je to mozna hloupost ale delam indikaci kontextoveho menu (zatim na
> listboxech) aby uzivatel vedel ze tam vubec nejake menu je a mohl ho
> vyvolat.

Podle mne je to naprosty nesmysl, ktery bude spise matouci. Pokud ma v dane
situaci kontextove menu smysl at tam proste je, uzivatel zkusi kliknout v tom
miste a uvidi. Popripade to muzes nekam napsat (ano, nikdo necte help) nebo
pri prvnim vyvolani kontextoveho menu na formulari zobrazit dialog s popisem,
ze listboxy maji svoje menu a nabidnout '[ ] Priste jiz zpravu nezobrazovat'.

Petr Vones

Konference na NNTP.

[*] p.sestak(zv)corag.sk - 30.10.2002 14:12:40

ja by som sa dostal do konferencie len cez archiv, a to by bolo asi dost
neaktualne.
NNTP mi jednoducho cez nas FW neprejde a nemam pravomoci to zmenit :-((
Palo.

Konference na NNTP.

[*] Petr Langer <langer(zv)xdom(tec)cz> - 30.10.2002 14:24:24

Ja bych byl pro, ale zrejme to nevyhovuje vice lidem.
Je ten NNTP server tvoje dilo, tj. je nejaka moznost to rozsirit o :
- webove rozhrani
- moznost automatickeho posilani novych zprav formou mailu na dane adresy
(vlozene pres webove rozhrani)
- eventualne dalsi fce...

Zrejme to by byla jedina alternativa.
Myslim, ze by to nebylo moc prace, pripadne bych se hlasil jako dobrovolnik.

Petr Langer

----- Original Message -----
From: "Bohdan Dudla" <bdudla(zv)pikeelectronic.com>
To: "Delphi Forum" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 9:16 AM
Subject: OT: Konference na NNTP.> Ahoj.
> Obracim se na administratory konference s otazkou a navrhem.
> Jestli by neslo prevest konferenci na NNTP protokol?
> Podle me NNTP tomu vic vyhovuje.
> Jako navrh bych nabidnul NNTP server na bazi Interbase SQL Serveru.
> Je maly (46 K) a snadno konfigurovatelny, muze se v nem nadeklarovat
> jakekoliv mnozstvi diskuznich skupin.
> V pripade zajmu kontaktovat mailem.
>
> With best regards,
> Bohdan Dudla
>
> Pike Electronic spol. s r.o.
> Modrinova 2
> 300 00 Plzen
> Czech Republic
>
> tel: +420 19 72 40 738
> fax: +420 19 74 31 738
> gsm: +420 732 441 716
> e-mail: bdudla(zv)pikeelectronic.com
>
>
>

Initialize the Borland Databaze Engine

[*] Tom� Kon�al����J'��?q��� - 30.10.2002 14:30:50

Zkus tam dat
Check(dbiInit(nil));
var MyDateFormat:FMTDate;
begin
Check(dbiInit(nil));
Check(dbiGetDateFormat(MyDateFormat));
ShowMessage('oddelovac '+MyDateFormat.szDateSeparator);
end; TK



----- Original Message -----
From: "Str�n�k Franti�ek Ing." <FStranik(zv)cpoj(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 1:08 PM
Subject: Initialize the Borland Databaze Engine


> Z 1001 tipu a triku pro Delphi chci napr. pouzit 495 zjisteni formatu data
v BDE (bohuzel jeste).
>
> procedure GetDate;
> var MyDateFormat:FMTDate;
> begin
> Check(dbiGetDateFormat(MyDateFormat));
> ShowMessage('oddelovac '+MyDateFormat.szDateSeparator);
> end;
>
> Po spusteni mi to hlasi chybu:
> An error occurced while attempting to initialize the Borland databaze
Engine (error $2A06).
>
> Ostatni prikazy s "BDE" bez problemu.
> Tato chyba se hlasi vzdy, kdyz je prikaz Check(dbi ....)
>
> BDE samozrejme opustim, ale nyni toto musim vyresit.
>
> Kde je chyba ?.
>
> zdrav�
> Franti�ek STR�N�K
>
>

Ulozeni tabulky table.db

[*] <tuffi(zv)email(tec)cz> - 30.10.2002 14:32:20


--- P�vodn� zpr�va ---
Od: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
Datum: 30.10.2002 14:26:24

> Nekdy se mu ovsem stane, ze se vypne proud a vsechny predchozi
> informace, ktere byly takto prubezne "Ukladany" - (table.post) se
> ztratily. Ulozi se data pri table.post fyzicky na disk ? (jak to
> zaridit ?)

Pokud mas CachedUpdates = True (u query), tak bys mel davat este Apply a Commit Updates

______________________________________________________________________________
SB KOMPLET� Informa�n� ekonomick� syst�m http://www.sb-komplet(tec)cz
�um�me svoji pr�ci!

Komponenta pro zjisteni konfigurace PC

[*] Riedel Petr <Petr.Riedel(zv)Pilsner-Urquell(tec)cz> - 30.10.2002 14:48:14

Dobry den,
potreboval bych nejakou komponentu, ktera by umela zjistit z pocitace co
nejvic informaci o nem (procesor, RAM, disky, verzi OS, sitove nastaveni,
nainstalovany SW, atp.). Nevite nekdo o nejake, nejlepe free? Predem diky.
PR!

Vytvoreni formulare a OnKeyPress

[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 30.10.2002 14:58:15


Ahoj,

prosim o radu. Vytvorim si formular (Frm := TForm.Create(Self)) a chtel bych u nej testovat OnKeyPress.
Jak to prosim udelam ?

Diky

V.

Komponenta pro zjisteni konfigurace PC

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2002 15:09:40

From: "Riedel Petr" <Petr.Riedel(zv)Pilsner-Urquell(tec)cz>
> potreboval bych nejakou komponentu, ktera by umela zjistit z pocitace co

Co kdyby to nebyla komponenta ale treba jen 'obycejny' kod, i ten stale
existuje ;-)

> nejvic informaci o nem (procesor, RAM, disky, verzi OS

viz unit JclSysInfo v JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
http://delphi-jedi.org/CODELIBJCL

Petr Vones

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.10.2002 15:12:49

> Lenze ak to fakt je tak ako pises, to znamena, ze sa to neda riesit
> nejako jednoduchsie, tak potom sa z delphi stava nie RAD nastroj ale
> nieco ine napr. SAD - SlowAplDevelopment......

Ano, je pravda, ze u databazi se ti vyplati spoustu veci resit sam a ze to je citelne
pracnejsi. Presto nektere komponenty jiste pouzivat budes. Stale to je o mnoho
mene pracne, nez psat vse pouze z ruky pomoci API apod., bez komponent a
vizualni tvorby vzhledu. Takze nejake zrychleni tam prece jen bude, i kdyz vyrazne
mensi, nez by clovek na prvni pohled po nejake predvadecce cekal.

Tak to holt je a nezbyva, nez to respektovat.

David Lebeda

prehrani zvuku - stream

[*] Vaclav Klofera <Ventik(zv)seznam(tec)cz> - 30.10.2002 15:18:22

Dobry den.
Chtel bych prehravat zvukovy soubor tak, ze budu postupne posilat
zvukova data. Jde o to, abych nemusel mit pred zacatkem prehravani
kompletni soubor, ale abych ho skladal behem prehravani. Chci
prehravat komprimovany zvukovy soubor, aniz bych ho nejdriv
dekomprimoval a ukladal na disk ci do
pameti.

______________________________________________________________________
Reklama:
Kliknete, hlasujte a vyhrajte v ankete Nejoblibenej�i automobil roku 2003 v Ceske republice ceny za milion!! http://www.autoroku(tec)cz

OT Konference na NNTP.

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2002 15:18:13

From: "Petr Langer" <langer(zv)xdom(tec)cz>
> Ja bych byl pro, ale zrejme to nevyhovuje vice lidem.

Pred casem se tohle resilo v JEDI-VCL listu, zdali mailova konference nebo
newsy. Kdosi naprogramoval jakysi bridge, ktery posilal zpravy z konference do
newsu a nove zpravy z newsu do konference. Uzasna vec, akorat se to zanedlouho
muselo zrusit, protoze takovy zmatek clovek jen tak nevidel :-) Nevim jestli
ma pro tech par zprav cele tohle smysl.

Petr Vones

Vytvoreni formulare a OnKeyPress

[*] Ing. Pavel �ilinec����)b���zf���3 - 30.10.2002 15:21:43

Udelas si proceduru
procedure MyOnKeyPress(Sender: TObject; var Key: Char);
a po vytvoreni formu napises
Frm.OnKeyPress := MyOnKeyPress

--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz

Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju


LV> Ahoj,

LV> prosim o radu. Vytvorim si formular (Frm := TForm.Create(Self)) a chtel bych u nej testovat OnKeyPress.
LV> Jak to prosim udelam ?

LV> Diky

LV> V.

spr�va za��zen�

[*] Gabaj Jozef <Gabaj(zv)leciva(tec)cz> - 30.10.2002 16:39:09

Dobry den,

je mozne naprogramovat povoleni, nebo zakazani zarizeni HDD ?

potrebuji zakazovat disk v bezicim systemu win2000
funguje a jde to mysi ve spravci zarizeni vabrat prislusny disk ve
vlastnostech
povolit nebo zakazat

jak to ale udelat bez pomoci mysi ?
je to nejaka sluzba ?

d�ky
Gabaj Jozef

image width

[*] Peter Surovy <psurovy(zv)uevora.pt> - 30.10.2002 15:51:31 -0000

Ahoj

chcem zmenit velkost komponenty
Image pocas runtime ale jaksi to nefunguje:

Image1.Width:=(Image1.Width)*2;
Image1.Height:=(Image1.Height)*2;
Label1.caption:=IntToStr(Image1.Width)+' , '+IntToStr(Image1.Height);

vypise zvacsene hodnoty ale plocha na ktoru sa kresli
zostane nezmenena... akoby Canvas zostal rovnako
velky :-( treba ho nejako nanovo nainicializovat?

PS

Vytvoreni formulare a OnKeyPress

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2002 17:02:53

From: "Ing. Pavel �ilinec" <zilinec(zv)email(tec)cz>
> Udelas si proceduru
> procedure MyOnKeyPress(Sender: TObject; var Key: Char);

Metodu TMyForm.MyOnKeyPress

Petr Vones

Vytvoreni formulare a OnKeyPress

[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 30.10.2002 17:42:06

Ahoj,

> zilinec(zv)email(tec)cz 30.10.02 15:21 >>>
>Udelas si proceduru
> procedure MyOnKeyPress(Sender: TObject; var Key: Char);
>a po vytvoreni formu napises
> Frm.OnKeyPress := MyOnKeyPress

no spis by to mela byt metoda toho objektu, kde ten form vytvaris....

a pokud na tom novem formu bude vytvaret nejake dalsi Controly, tak by se melo jeste nastavit

Frm.KeyPreview := true;

S pozdravem

Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644

CLIENTDATASET + ADOQuery + MS SQL server.... + De

[*] delfi <delfi(zv)pocitac(tec)net> - 30.10.2002 17:46:05

Hi,
na zacatku jsem mel klasickou variantu, server TQuery, TProvider a klienta,
ktery mel TClientDataSet svazany s TProviderem na serveru. Potom jsem to
predelal, tak ze jsem zachoval jen jeden smer, cteni dat a vsechny operace
nad daty, prevedu na SQL a predavam pres volanou proceduru na serveru, ktera
to uklada.

ales

----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 30, 2002 3:12 PM
Subject: Re: CLIENTDATASET + ADOQuery + MS SQL server.... + Delphi 6 - pot�
s ApplyUpdates !!!!!> > Lenze ak to fakt je tak ako pises, to znamena, ze sa to neda riesit
> > nejako jednoduchsie, tak potom sa z delphi stava nie RAD nastroj ale
> > nieco ine napr. SAD - SlowAplDevelopment......
>
> Ano, je pravda, ze u databazi se ti vyplati spoustu veci resit sam a ze to
je citelne



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

Jak USPAT disk

[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 30.10.2002 18:38:18

Zdravim

Potreboval bych ve win ME a XP uspavat disky
nevi nekdo prosim jak to vyresit ?
Jiri Betunak
kindrik(zv)centrum(tec)cz
Delphi5 pro ;Windows ME 4 90

Re[2]: Initialize the Borland Databaze Engine

[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 30.10.2002 18:41:50

Ahoj, Lebeda,

Wednesday, October 30, 2002, 1:13:45 PM, you wrote:

>> Po spusteni mi to hlasi chybu:
>> An error occurced while attempting to initialize the Borland databaze
>> Engine (error $2A06).

LD> Ja jsem se s touhle chybou setkaval obvykle pote, co nekdo zkusil
LD> provest upgrade BDE na vyssi verzi. Obvykle se neco nepovedlo a
LD> zustala cast stareho a cast noveho.

LD> Nevim, jestli to muze byt Tvuj pripad, ale jestli mas moznost zkusit
LD> to i na jinych strojich...

LD> David Lebeda


podle dokumentace je to chyba
!$2A06 (10758) = Engine not initialized.!

--
S pozdravem
Jiri mailto:kindrik(zv)centrum(tec)cz

OT: FTP skrz HTTP

[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 30.10.2002 20:06:00

Ahoj,
nev�te o n�jak�m programu, kter� um� "propas�rovat" FTP po�adavek
p�es proxy, kter� podporuje jenom protokol HTTP?

Frankie

______________________________________________________________________
Reklama:
DUMPINGOV� CENY ve v�ech obchodech Internet Mall!
http://www.mall(tec)cz - ov��te si to!

OT: FTP skrz HTTP

[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 30.10.2002 20:09:38

Hello Frankie,

Wednesday, October 30, 2002, 8:06:00 PM, you wrote:

FY> Ahoj,
FY> nev�te o n�jak�m programu, kter� um� "propas�rovat" FTP po�adavek
FY> p�es proxy, kter� podporuje jenom protokol HTTP?

FY> Frankie

FY> ______________________________________________________________________
FY> Reklama:
FY> DUMPINGOV� CENY ve v�ech obchodech Internet Mall!
FY> http://www.mall(tec)cz - ov��te si to!

Prej to umi Windows Commander....

--
Best regards,
Pavel mailto:kubal.p(zv)seznam(tec)cz

Re[2]: OT: FTP skrz HTTP

[*] Dusan Nagy <Nagy(zv)inomacomp.sk> - 30.10.2002 20:29:24

Dobr� den,
30. okt�bra 2002, 20:09:38, napsal jste:

PK> Hello Frankie,

PK> Wednesday, October 30, 2002, 8:06:00 PM, you wrote:

FY>> Ahoj,
FY>> nev�te o n�jak�m programu, kter� um� "propas�rovat" FTP po�adavek
FY>> p�es proxy, kter� podporuje jenom protokol HTTP?

FY>> Frankie

FY>> ______________________________________________________________________
FY>> Reklama:
FY>> DUMPINGOV� CENY ve v�ech obchodech Internet Mall!
FY>> http://www.mall(tec)cz - ov��te si to!

PK> Prej to umi Windows Commander....


Staci v nom zaskrtnut polozku
Use passive mode for transfers (like awww browser)
pri definovani ftp odkazu

--
S pozdravem,
Dusan
Nagy(zv)inomacomp.sk

Pomoc s synapsi

[*] Petr Varga <djvar(zv)post(tec)cz> - 30.10.2002 21:20:08

Potreboval bych poradit jak se zachazi s synapsi.
Jak vytvorit jednoduchy server a jak vytvorit jednoduchy klient.
Staci aby klient se pripojil na server a odeslal kradky string a
server mu ho vrati. Dival jsem se do prikladu pro synapse echo
server, ale nejak jsem to z toho nepochopil.. Staci jen kdyby mi
nekdo napsal nejaky kratoucky priklad..
Jak aktivovat server. Nastavit port a nastavit naslouchani.
A u klienta staci jen jak nastavit cilovou IP a port a pripojit
odeslat a zase prijmout..

Dekuji za odpovedi Petr

---
Str�nky o automobilech, novinky, autobazary, nov� auta,
p��slu�enstv�, poji�t�n� aut... http://automoto.volny(tec)cz

Re[3]: OT: FTP skrz HTTP

[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 30.10.2002 21:21:52

Hello Dusan,

Wednesday, October 30, 2002, 8:29:24 PM, you wrote:

DN> Dobr� den,
DN> 30. okt�bra 2002, 20:09:38, napsal jste:

PK>> Hello Frankie,

PK>> Wednesday, October 30, 2002, 8:06:00 PM, you wrote:

FY>>> Ahoj,
FY>>> nev�te o n�jak�m programu, kter� um� "propas�rovat" FTP po�adavek
FY>>> p�es proxy, kter� podporuje jenom protokol HTTP?

FY>>> Frankie

FY>>> ______________________________________________________________________
FY>>> Reklama:
FY>>> DUMPINGOV� CENY ve v�ech obchodech Internet Mall!
FY>>> http://www.mall(tec)cz - ov��te si to!

PK>> Prej to umi Windows Commander....


DN> Staci v nom zaskrtnut polozku
DN> Use passive mode for transfers (like awww browser)
DN> pri definovani ftp odkazu

No vlastne ta vec spociva v tom ze klient posle serveru parametr PASV
a ten nepouziva tak velkej rozsah portu.


--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz

Jak USPAT disk

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.10.2002 01:00:20

From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> Potreboval bych ve win ME a XP uspavat disky nevi nekdo prosim jak to
> vyresit ?

Nejlepe nejakou ukolebavkou :-)

V nastaveni Power managmentu mas vetsinou moznost: Turn off hardisks after xy
minutes. Tuto moznost bych vsak krome notebooku nedoporucoval pouzivat protoze
disky to nemaji moc radi a snizuje se tim zivotnost uz tak dost spotrebnich
IDE disku.

Petr Vones

potis s EXE

[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 31.10.2002 06:16:53

> Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Na Windows maji byt Windows aplikace, tedy VCL. Jina moznost neni, pokud to
> nema byt naprosty paskvil.
To je receno velmi jasne, strucne a jednoznacne.
Ja bych k tomu jeste dodal:
Je to odpoved nejen na problem s CLX, ale i na vsechny dalsi dotazy, ktere lze shrnout pod nazev "jak obejijt standardni chovani Windows".

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================

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