Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Sprevne ulozeni zmen do tabulky
[*] krakora <krakora(zv)prvnielektro(tec)cz> - 18.10.2002 07:19:52
Ahoj lidi
Mam maly problem, pro zkusenejsi jiste banalita. Pomoci komponent Table
a Querry (oboji BDE) ctu z jedne tabulky. Kdyz udelam zmenu v Table, tak
se mi neprojevi v Querry, ani kdyz dam Querry.Refresh.
Co vsechno je potreba udelat aby to chodilo?
Predem diky za vsechny rady.
Sprevne ulozeni zmen do tabulky
[*] Jan Naiser <tua(zv)wo(tec)cz> - 18.10.2002 08:07:55
Ahoj,
musis znovu nacist Query:
Query.Close;
Query.Open;
Honza.
----- Original Message -----
From: "krakora" <krakora(zv)prvnielektro(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 18, 2002 7:19 AM
Subject: Sprevne ulozeni zmen do tabulky
> Ahoj lidi
>
> Mam maly problem, pro zkusenejsi jiste banalita. Pomoci komponent Table
> a Querry (oboji BDE) ctu z jedne tabulky. Kdyz udelam zmenu v Table, tak
> se mi neprojevi v Querry, ani kdyz dam Querry.Refresh.
> Co vsechno je potreba udelat aby to chodilo?
>
> Predem diky za vsechny rady.
>
ODBCe - kde je problem?
[*] Kadan� Miroslav <Miroslav.Kadane(zv)cht-pce(tec)cz> - 18.10.2002 08:16:10
Je tam text, ale nastaveni CursorType=ctDynamic pomohlo
DIK
Mirek
-----Original Message-----
From: Ludek ZITA [mailto:konference(zv)sales(tec)cz]
Sent: Thursday, October 17, 2002 5:19 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ODBCe - kde je problem?
----- Original Message -----
From: "Kadan� Miroslav" <Miroslav.Kadane(zv)cht-pce(tec)cz>
Dobry den,
Narazil jsem na problem s ODBCe.
Mam jednoduchou tabulku na MS SQL 2000 a pristupuju na ni p�es ODBCe.
Pokud je tabulka prazdna tak je vse bez problemu, ale jak do ni zapisu vetu
tak me ODBCQuery pri nastaveni Aktive=True (SQL prikaz je t�eba SELECT *
FROM <tabulka>) zahlasi tuto chybu:
ODBCQuery: ODBC Error:
Native: [0] State: [07009]
[Microsoft][ODBC SQL Server Driver]Invalid Descriptor Index (DLL)
*********************
Ahoj
Zkus ODBCQuery.CursorType:=ctDynamic
Ludek
Kodova stranka
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 18.10.2002 08:17:03
Vsechno spatne ... Text se mi sice zobrazi v 852, ale jenom diky tomu fontu.
Kdyz to odeslu do ciloveho zarizeni (tiskarna EPSON), tak se mi tiskne porad
ANSI - tedy same nesmysly. Potrebuju, aby to slo napsat cesky a pak cely
obsha toho TMema prevest do 852 a pak odeslat ....
Rumcajs 18.10.2002; 8:16
> Ahoj.
>
> with Memo1 do
> begin
> Font.Charset := OEM_CHARSET;
> Font.Color := clWindowText;
> Font.Name := 'Terminal';
> OEMConvert := TRUE;
> end;
>
> Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.401 / Virov� b�ze: 226 - datum vyd�n�: 9.10.2002
dotazy pro systemove programatory.
[*] Petr Va�eka <pvareka(zv)mujmejl(tec)cz> - 18.10.2002 08:48:29
Zdravim obec tech, kteri se pokouseji stavet zamky z bitu a zaroven vznasim
2 otazky:
1) Aplikace v Delphi (ktera prohlizi usek operacni pameti, v nemz je
natazena) konci planovanou vyjimkou na adrese 4AC14C (EAccessViolation). Byl
jsem zvedav na ktere adrese zhavaruje 2. instance teto aplikace.
Ocekaval jsem, ze to bude uplne jinde, ponevadz druha instance se musi
natahnout do jineho adresniho
rozmezi. K memu prekvapeni KONCI NA STEJNE ADRESE 4AC14C a navic je natazena
do stejneho useku
pameti 400000-4CBFFF.
Jak je mozne, ze 2 instance teze aplikace bezi nad tymz usekem pameti ? Bezi
tam skutecne ?
Vysvetli mi to nekdo ?
2) Kdysi jsem programoval v assembleru na IBM360. Prvni byte prelozene
instrukce tam znacil kod operace
(a dal tam byly vselijake atributy, resp. adresy operandu)
Byl jsem zvedav jak vypada situace ted. Spustil jsem tedy v Debbugeru
CPU okno (na vyse uvedene adrese
vyse zminene aplikace) a spatril jsem tam nasl. kod:
4AC147 A1BC0E4B00 mov eax, [U]
4AC14C C6004C mov byte, ptr [eax], $4c //
Zhavarovana instrukce na adrese z bodu 1)
Je videt, ze prelozeny kod u obou instrukci MOV je naprosto rozdilny. Jakou
ma MOV vlastne strukturu ?
Je tam taky nekde kod operace ? Kde ?
S pozdravem Petr Vareka.barevne do Hint
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 18.10.2002 07:50:23
Ahoj,
> bleak(zv)mvesely.com 17.10.02 20:09 >>>
>lze zobrazit text v Hintu nekolika ruznymi barvami?
http://www.windev(tec)cz/clanek.asp?stranka=cb_hints.htm
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
Kodova stranka
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.10.2002 09:07:03
A co to treba proste vzit, prekodovat a pak poslat na tiskarnu?
Funkce na prekodovani stringu mas treba v me Synapsi (unita
SynaChar). Muzes to tim prekodovat do ceho se ti to zlibi, nejen do
CP852, ale trebas i do Kameniku, do ISO-latinu2, do unicodu.. Ba
dokonce budes-li chtit, muzes jednoduse odstranit diakritiku. ;-)
> Vsechno spatne ... Text se mi sice zobrazi v 852, ale jenom diky tomu
> fontu. Kdyz to odeslu do ciloveho zarizeni (tiskarna EPSON), tak se mi
> tiskne porad ANSI - tedy same nesmysly. Potrebuju, aby to slo napsat
> cesky a pak cely obsha toho TMema prevest do 852 a pak odeslat ....
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
davkovy sql dotaz
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 18.10.2002 09:13:41
V baliku komponent RX je TSQLScript - jako oddelovac prikazu je
nastaveno lomitko, ale lze to zmenit.
Provadeni UPDATE v cyklu lze obecne zrychlit provadenim v transakci (coz
ale u vetsiho mnozstvi takovychto UPDATE prepokladam mas), popripade
pred prvnim UPDATE spustit .PREPARE
Navic treba u MSSQL lze pouzit podobny zapis v TQuery jako je dole,
pouze prikazy neoddelovat. Funguje nam takhle treba deklarace parametru,
nastaveni parametru, spusteni ulozene procedury vcetne parametru a
nasledny SELECT z tabulky, kterou naplnila ta ulozena procedura ...
Vsechno bez oddelenych prikazu.
-----Original Message-----
From: MUDr. Patrik VALENTA [mailto:valentapat(zv)volny(tec)cz]
Sent: Thursday, October 17, 2002 9:10 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: davkovy sql dotaz
Otazka: da se nejak poslat vice dotazu najednou ???
priklad
UPDATE table set cena=1 where neco;
UPDATE table set cena=2 where neco;
UPDATE table set cena=3 where neco;
JCL - Dotaz na pouziti ExceptionDialog
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 18.10.2002 09:22:59
On 17 Oct 2002 at 19:49, Petr Vones wrote:
> Pokud se budeme bavit o Delphi, tak prvnim takovym okamzikem byl
> prechod z 16ti bitovych aplikaci na 32 bitove, kde operacni system
> (Win32) mel konecne podobu a vlastnosti skutecneho operacniho systemu.
> Druhou takovou vlnou byl prechod od souborovych databazi k SQL
> serverum, vcetne osvojeni si principu C/S. Dalsim vyraznym posunem ve
> VCL bylo zavedeni konceptu akci, ktere maji pomerne velke moznosti a
> umozni zjednodusit a zprehlednit vyvoj GUI aplikaci.
Nyni to vypada tak, ze dalsim zlomovym okamzikem bude .NET. Pokud
nekomu dozrava aplikace na totalni prepsani, klonil bych se k navrhu
nezacinat si uz nic s COM, ADO, OLE DB a poseckat na .NET, a mezitm
si o tom neco precist.
S pozdravem
Zbysek Hlinka
ODBCe Insert+Refresh
[*] Kadan� Miroslav <Miroslav.Kadane(zv)cht-pce(tec)cz> - 18.10.2002 09:24:21
Ahoj,
Je�t� jeden dotaz ohledne ODBCe,
Mam jedno Query
ODBCQuery1.Insert;
ODBCQuery1Neco.Value := 'neco';
.
.
.
.
ODBCQuery1.Post;
V ODBCQuery1 mam nadefinovany jiny Query ma insert (parametr QueryInsert).
Po POSTu se ale neaktualizuje SELECT (to me je jasny),ale jak mam udelat refresh ODBCQuery aniz bych musel zavrit a otev��t tabulku a ztratit tak pozici kurzoru?
Vysledek zobrazuji v gridu a tam se to zobrazi jenom po zavreni a otevreni ODBCQuery1.
Dik
Mirek
SQL Dotaz
[*] Tom� Fajman��������ڎf����{� - 18.10.2002 09:30:01
Prosim pomozte mi nekdo :O)
Mam dve tabulky TAB1 a TAB2 a v obouch je sloupec PIN a potreboval bych
napsat 'select * from TAB1' ale aby mi vybral jen ty zaznamy v kterych je
PIN ktere neni v TAB2. Predem dikes za radu
OT: Nero Burning Rom
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 18.10.2002 09:48:15
> Metodou pokusu a omylu jsem se dopracoval ke zjisteni, ze tento problem
> zpusobuje utilita InCD. Pokud ji odinstaluji je vse v poradku.
>
> Pokud ma nekdo zkusenosti s timto SW, pripadne kombinaci Nera a directu CD
z
> Creatora budu vdecny za jakoukoliv informaci.
>
Podle mne je InCD obdoba directCD umoznujici zapis na CD z jinych aplikaci
(napr kopirovanim z pruzkumnika,...) a kazdy pouziva trochu jiny zpusob
zapisu.
Spolu to asi nebude fungovat, musis si vybrat jen jeden.
Pavel
SQL Dotaz
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 18.10.2002 09:56:57
Tom� Fajman dne 18 Oct 2002 v 9:30:
> Prosim pomozte mi nekdo :O)
>
> Mam dve tabulky TAB1 a TAB2 a v obouch je sloupec PIN a potreboval
> bych napsat 'select * from TAB1' ale aby mi vybral jen ty zaznamy v
> kterych je PIN ktere neni v TAB2. Predem dikes za radu
Ahoj, snad takhle:
SELECT a.*
FROM Tab1 a
LEFT OUTER JOIN Tab2 b on (b.Pin=a.Pin)
WHERE b.Pin IS NULL
Existuje neco jako WHERE EXISTS..., jenze to myslim byvalo pomalejsi...
Karel Rys
SQL Dotaz
[*] bardon <bardon(zv)akord-soft(tec)cz> - 18.10.2002 10:01:21
Takhle to delam na MSSQL
SELECT TAB1.PIN
FROM TAB1
LEFT OUTER JOIN TAB2 ON TAB1.PIN = TAB2.PIN
WHERE TAB2.PIN IS NULL
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Tomas Fajman
Prosim pomozte mi nekdo :O)
Mam dve tabulky TAB1 a TAB2 a v obouch je sloupec PIN a potreboval bych
napsat 'select * from TAB1' ale aby mi vybral jen ty zaznamy v kterych je
PIN ktere neni v TAB2. Predem dikes za radu
OT: napsani ovladace zarizeni serioveho portu
[*] Tom� Janta��������{����Y��̿ - 18.10.2002 10:08:54
Dobry den,
Vim ze ovladace v Delphi psat nelze. Nase firma by ovsem rada vydala ovladac
pro jeden svuj vyrobek. Proto bych se rad zeptal zda ma nekdo zkusenosti se
psanim ovladacu hardware, konkretne serioveho poru. Jde o simulovani HW
serioveho portu a komunikaci po siti. Prosim poradi nekdo jak na to (kde
zacit), pripadne nabizime moznost spoluprace a vydelku.
Tomas Jantac
PaPouch elektronika
www.papouch.com
Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 18.10.2002 10:09:01
Hi lidi, nevim proc, ale nasledujici kod nevymaze data z databaze. Nevi
nekdo kde delam nejakou chybu?
dik Pavel
procedure TfrmMain.acDeletFromDBExecute(Sender: TObject);
var BS1:TADOBlobStream;
begin
ADOtbl.Edit;
ADOTbl.DisableControls;
BS1:=
TADoBLOBStream.Create(TBlobField(ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.It
emIndex])),bmReadWrite);
try
try
BS1.Clear;
except
on E:Exception do MessageDlg(E.Message,mtError,[mbOK],0);
end;
finally
BS1.Free;
end;
ADOtbl.Post;
ADOtbl.Refresh;
ADOTbl.EnableControls;
end;
This electronic mail transmission contains confidential information intended
only for the person(s) named. Any use, distribution, copying or disclosure
by another person is strictly prohibited.
Tato zpr�va obsahuje d�v�rn� informace, ur�en� v�lu�n� pro uveden�ho
adres�ta. Jak�koliv u�it�, kop�rov�n�, ���en� nebo p�ed�v�n� obsahu zpr�vy
jin�m osob�m a subjekt�m je p��sn� zak�z�no.
SQL Dotaz
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 18.10.2002 10:10:09
SELECT TAB1.* FROM TAB1 LEFT OUTER JOIN TAB2 ON TAB1.PIN = TAB2.PIN
WHERE TAB2.PIN IS NULL
nebo
SELECT * FROM TAB1 WHERE PIN NOT IN ( SELECT PIN FROM TAB2)
Pavel
PS: Prvni verze byva rychlejsi pokud jsou tabulky vetsi, a indexovane dle
PIN
> Od: Tom� Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
> Mam dve tabulky TAB1 a TAB2 a v obouch je sloupec PIN a
> potreboval bych
> napsat 'select * from TAB1' ale aby mi vybral jen ty
> zaznamy v kterych je
> PIN ktere neni v TAB2. Predem dikes za radu
Kodova stranka
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 18.10.2002 10:14:39
Ahoj,
ku konverzii mozes pouzit napriklad aj nizsie
uvedenu jednoucelovu funkciu.
Vlkovic
function cp852to1250 ( S: string ): string;
var
i: integer;
p: integer;
Ch: char;
const
Cp852 =
#$A0#$61#$61#$61#$84#$63#$63#$87#$83#$64#$65#$82#$88#$65#$A1#$69+
#$8D#$8C#$6C#$6E#$A4#$94#$A2#$94#$93#$AA#$A9#$73#$73#$A8#$9F#$74+
#$81#$A3#$96#$81#$98#$7A#$7A#$91#$8F#$41#$41#$41#$8E#$43#$43#$80+
#$85#$44#$45#$90#$89#$45#$8B#$49#$8A#$9C#$4C#$4E#$A5#$99#$95#$99+
#$A7#$AB#$9E#$53#$53#$9B#$86#$54#$9A#$97#$A6#$9A#$9D#$5A#$5A#$92;
Cp1250 =
#$E1#$E2#$E3#$B9#$E4#$E6#$E7#$E8#$EF#$F0#$EB#$E9#$EC#$EA#$ED#$EE+
#$E5#$BE#$B3#$F1#$F2#$F6#$F3#$F5#$F4#$E0#$F8#$9C#$BA#$9A#$9D#$FE+
#$FC#$FA#$F9#$FB#$FD#$BF#$9F#$9E#$C1#$C2#$C3#$A5#$C4#$C6#$C7#$C8+
#$CF#$D0#$CB#$C9#$CC#$CA#$CD#$CE#$C5#$BC#$A3#$D1#$D2#$D6#$D3#$D5+
#$D4#$C0#$D8#$8C#$AA#$8A#$8D#$DE#$DC#$DA#$D9#$DB#$DD#$AF#$8F#$8E;
begin
for i := 1 to Length ( S ) do
begin
Ch := S[i];
if Ch > #127 then
begin
p := PosChar ( Ch, Cp852 );
if p > 0 then
begin
S[i] := Cp1250[p];
end;
end;
end;
Result := S;
end;> Vsechno spatne ... Text se mi sice zobrazi v 852, ale jenom diky tomu fontu.
> Potrebuju ...cely obsah toho TMema prevest do 852 a pak odeslat ....
> Rumcajs
SQL Dotaz
[*] Ing. Pavel �ilinec����)b���zf���3 - 18.10.2002 10:14:02
select *
from Tab1
where not exists(
select top 1 Tab2.PIN
from Tab2
where Tab2.PIN = Tab1.PIN)
nebo
select Tab1.*
from Tab1
left outer join Tab2 on Tab1.PIN = Tab2.PIN
where Tab2.PIN is null
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
TF> Prosim pomozte mi nekdo :O)
TF> Mam dve tabulky TAB1 a TAB2 a v obouch je sloupec PIN a potreboval bych
TF> napsat 'select * from TAB1' ale aby mi vybral jen ty zaznamy v kterych je
TF> PIN ktere neni v TAB2. Predem dikes za radu
Kodova stranka
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.10.2002 10:30:21
A proc, kdyz v systemu existuji primo finkce OemToChar a CharToOem ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.10.2002 Peter Vlkovic:
> ku konverzii mozes pouzit napriklad aj nizsie
> uvedenu jednoucelovu funkciu.> function cp852to1250 ( S: string ): string;
> var
> i: integer;
> p: integer;
> Ch: char;
> const
> Cp852 =
> #$A0#$61#$61#$61#$84#$63#$63#$87#$83#$64#$65#$82#$88#$65#$A1#$69+
> #$8D#$8C#$6C#$6E#$A4#$94#$A2#$94#$93#$AA#$A9#$73#$73#$A8#$9F#$74+
> #$81#$A3#$96#$81#$98#$7A#$7A#$91#$8F#$41#$41#$41#$8E#$43#$43#$80+
> #$85#$44#$45#$90#$89#$45#$8B#$49#$8A#$9C#$4C#$4E#$A5#$99#$95#$99+
> #$A7#$AB#$9E#$53#$53#$9B#$86#$54#$9A#$97#$A6#$9A#$9D#$5A#$5A#$92;
> Cp1250 =
> #$E1#$E2#$E3#$B9#$E4#$E6#$E7#$E8#$EF#$F0#$EB#$E9#$EC#$EA#$ED#$EE+
> #$E5#$BE#$B3#$F1#$F2#$F6#$F3#$F5#$F4#$E0#$F8#$9C#$BA#$9A#$9D#$FE+
> #$FC#$FA#$F9#$FB#$FD#$BF#$9F#$9E#$C1#$C2#$C3#$A5#$C4#$C6#$C7#$C8+
> #$CF#$D0#$CB#$C9#$CC#$CA#$CD#$CE#$C5#$BC#$A3#$D1#$D2#$D6#$D3#$D5+
> #$D4#$C0#$D8#$8C#$AA#$8A#$8D#$DE#$DC#$DA#$D9#$DB#$DD#$AF#$8F#$8E;
> begin
> for i := 1 to Length ( S ) do
> begin
> Ch := S[i];
> if Ch > #127 then
> begin
> p := PosChar ( Ch, Cp852 );
> if p > 0 then
> begin
> S[i] := Cp1250[p];
> end;
> end;
> end;
> Result := S;
> end;
JCLMath
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 18.10.2002 10:31:58
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Vones
>
> From: "Pavel Malinsky" <spiderland(zv)iol(tec)cz>
> > potreboval jsem v projektu zacit pouzivat
> > fce z JCL konkretne z unity JCLMath fce pro
> > praci s floatama. Od te doby co jsem prilinkoval
> > tuto unitu, tak mi v prubehu KAZDEHO buildu vyskoci
> > hlaska "Invalid floating point". Pouzivam fce
> > IsFloatZero() a FloatsIsEqual(). Mam blbe
>
> Toto je zvlastni. Zmizi ta chyba pokud ty dve funkce ve svem kodu
> zakomentujes
Pokud fce zakomentuju, tak se tato chyba objevuje naprosto
nahodne. Zakomentuji-li i unitu JCLMath v uses tak je to uplne OK.
Mam zapnuty Show compiler progress, takze vidim co zrovna
linkuje a chyba se objevi v okamziku, kdy compiler ukazuje,
ze linkuje nekterou z unit na ktere se odkazuje JCLMath
(napr Jcl8087,JclUnitConv). Jsou i pripady, ze se chyba objevi
kdyz compiler ukazuje hlasku Linking...
> ? Pouzivas nejaky IDE expert z JCL ?
Ne, zadny.
>Jake je to vlastne verze ?
verze 1.20 build 754
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 602 652 203
Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.10.2002 10:34:07
>Hi lidi, nevim proc, ale nasledujici kod nevymaze data z databaze. Nevi
>nekdo kde delam nejakou chybu?
No ja teda tyhle ADO komponenty neznam, ale nestacilo by
ADOTable.FieldByName('...').Clear?
Roman
==============================
http://kouzelne.misto(tec)cz
Volanie internet. prehliadaca
[*] Richard Siegl <rsiegl(zv)elas.sk> - 18.10.2002 10:43:38
Daj prec "iexplorer" a spusti iba ten link http://www.xxx.sk (paramater)
.....spusti sa aplikacia ktorou sa ma otvorit "http://"
Rickie
----- Original Message -----
From: "Martin Kasman" <martinkasman(zv)centrum.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 15, 2002 9:12 PM
Subject: Volanie internet. prehliadaca
> V programe v okne O programe mam label z linkou na moju stranku. Po
kliknuti
> nan sa spusti program iexporer s parametrom label1.caption. Na pocitacoch
s
> prehliadacom iexplorer to samozrejme funguje, ale ako na tom, kde je
nejaky
> iny prehliadac? Je to zapisane niekde v registroch alebo sa to da urobit
> nejakym inym univerzalnym sposobom?
>
> Vdaka za kazdu radu.
Sprevne ulozeni zmen do tabulky
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.10.2002 11:12:35
> Odes�latel: krakora <krakora(zv)prvnielektro(tec)cz>
> Mam maly problem, pro zkusenejsi jiste banalita. Pomoci komponent Table
> a Querry (oboji BDE) ctu z jedne tabulky. Kdyz udelam zmenu v Table, tak
> se mi neprojevi v Querry, ani kdyz dam Querry.Refresh.
> Co vsechno je potreba udelat aby to chodilo?
Nejspis
Query.Close; Query.Open; Query.Locate;
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)
=========================================
Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 18.10.2002 11:29:33
A nestaci jenom
ADOtbl.Edit;
ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.ItemIndex]).Clear;
ADOtbl.Post;
?
-----Original Message-----
From: Vagner Pavel [mailto:Vagner(zv)ceps(tec)cz]
Sent: Friday, October 18, 2002 10:09 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
Hi lidi, nevim proc, ale nasledujici kod nevymaze data z databaze. Nevi
nekdo kde delam nejakou chybu?
dik Pavel
Tisk z Delphi
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.10.2002 11:34:45
Potrebuji zjistit DPI tiskarny a mam nasledujici proceduru
printer.BeginDoc;
dpix:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX);
dpiy:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY);
printer.Abort;
kdyz nepouziji begindoc tak mi to hlasi chybu ze printer not printig po volani GetDeviceCaps (asi je handle 0 ???). Ovsek kdyz to mam jak to mam tak mi tiskaran tiskne po Abortu hlasku IllegalStreamHeader. Nevite jak to udelat ?
dekuji
Milos
---
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
Podpora DBF nebo nejake jednoduche databaze pro Tu
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 18.10.2002 11:40:23
Ahoj, nemate nekdo nebo nevite kde je ke stazeni %subj%?
Diky predem za vsechny odpovedi
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Tvorba UDF, Firebird na Linuxu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 18.10.2002 11:40:41
Hi,
mam dotaz ohledne tvorby UDF pro Firebird. V cem je nutne psat UDF pro
Firebird, ktery bezi na Linuxu (Red Hat 8.3)?
Musi to byt Kylix nebo staci v Delphi a pripadne cemu se vyvarovat.
Diky
Michal PEPR Pesek
http://www.peprsoft(tec)cz
Thread pro COM out-process object
[*] Jan K��ek - 18.10.2002 11:46:56
Zdravim
delam program, ktery ma v sobe COM objekt, ktery si jina aplikace muze
vytvorit a pouzit. Jako factory jsem pouzil TComObjectFactory, ktery
vytvarim v initialization unity. Jako threading model jsem pouzil
Apartment a potreboval bych ovlivnit v jakem threadu se mi budou metody
objektu spoustet. Zatim se mi spousti v hlavnim, jenomze ja potrebuji
uvnitr volani pockat na nejakou cinnost uzivatele. Toho jsem dosahl
zatim jen volanim Application.ProcessMessages, ale idealni by bylo mit
druhy thread ve kterem by se mi metody spousteli a s aplikaci by se
synchronizoval pomoci Eventu. Jde to v delphi udelat? Jestli jsem
pochopil spravne, tak by takovy thread musel mit vlastni smycku zprav.
Je to v delphi nejak podporovano?
Dik Honza +
D5Prof.
Tvorba instalace pro MSI
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 18.10.2002 11:56:37
Ahoj,
muzete nekdo doporucit nejaky nastroj na tvorbu instalaci pomoci MSI ?
Idealne free :-)))
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Thread pro COM out-process object
[*] Malecek Ondrej <ondrej.malecek(zv)radom-cz(tec)cz> - 18.10.2002 12:06:56
Primo neni, je potreba mit paralelni thread, ktery splnuje vlastnosti (chova
se jako) COM apartment threadu. Docela hezke povidani na toto tema je na:
http://www.techvanguards.com/com/concepts/multithreading.htm
Dale asi narazis na problem s tim, ze budes potrebovat, aby i vytvateni
instance COM objektu bezelo z tohoto threadu => je treba v apartment threadu
vytvorit i instanci class factory => prestane ti fungovat standardni
registrace COMu pomoci '/regserver'. No a to je myslim vse, doufam, ze jsem
na nejaky "spek" nezapomnel.
O :-))
> -----P�vodn� zpr�va-----
> delam program, ktery ma v sobe COM objekt, ktery si jina aplikace muze
> vytvorit a pouzit. Jako factory jsem pouzil TComObjectFactory, ktery
> vytvarim v initialization unity. Jako threading model jsem pouzil
> Apartment a potreboval bych ovlivnit v jakem threadu se mi budou metody
> objektu spoustet. Zatim se mi spousti v hlavnim, jenomze ja potrebuji
> uvnitr volani pockat na nejakou cinnost uzivatele. Toho jsem dosahl
> zatim jen volanim Application.ProcessMessages, ale idealni by bylo mit
> druhy thread ve kterem by se mi metody spousteli a s aplikaci by se
> synchronizoval pomoci Eventu. Jde to v delphi udelat? Jestli jsem
> pochopil spravne, tak by takovy thread musel mit vlastni smycku zprav.
> Je to v delphi nejak podporovano?
Invalid Pointer Operation p�i zav�r�n� BDE Tab
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 18.10.2002 12:10:00
> > nev�te pro� mi p�i pokusu o zav�en� tabulky TTable.Close nastane
> > vyj�mka Invalid Pointer Operation?
> To ti asi nikdo nerekne. Nicmene si myslim, ze chyba vznika nekde
> uplne jinde a u TTable.Close projevi pouhou shodou okolnosti.
Taky ze jo, ale kutal jsem dlouho a hluboko. :-(
> Hledal bych neinicializovany ukazatel, objekt apod., neco co se
> uvolnilo, ale potom jeste pouzilo... moznosti je hodne.
>
> Tezko nejak radit.
Ja vim.
Mmj. co se tyce neinicializovanych promennych, pokud tomu spr�vn� rozum�m,
v�echny glob�ln� prom�nn� programu jsou automaticky inicializov�ny nil, 0
apod. Stejn� tak v�echny objekty v class po vol�n� Create. Je to tak? A d�
se na to spolehnout?
s pozdravem
Andreas
standardni popup menu na TEdit
[*] eNca <delphi(zv)enca(tec)cz> - 18.10.2002 12:23:37
Vita J. wrote:
>>Mohu nejak vyvolat zminene menu, menit Enabled jednotlivych polozek a
>>priradit jim svoji obsluhu?
>>Pokud ne, tak mohu nekde ziskat texty tech polozek?
>>
>>
>
>a nebude jednodussi si udelat vlastni popup menu a priradit ho?
>
>
Problem je, ze standardni popup menu ma texty polozek podle jazykove
verze windows. Muze se tak lehce stat, ze standardni edit bude vyvolavat
anglicke menu a muj edit ceske menu. Pokud to nepujde jinak, zrejme mi
nic jineho, nez udelat vlastni menu, nezbyde. Ale pokud by byla jina
cesta ...
eNca
davkovy sql dotaz
[*] Valenta P <valentapat(zv)volny(tec)cz> - 18.10.2002 12:26:09
MySQL nema procedury.
valik
< A neslo by to ulozenou procedurou?
< Honza
---
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
Invalid Pointer Operation p�i zav�r�n� BDE Tab le.
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.10.2002 12:36:11
> Mmj. co se tyce neinicializovanych promennych, pokud tomu spr�vn�
> rozum�m, v�echny glob�ln� prom�nn� programu jsou automaticky
> inicializov�ny nil, 0 apod.
V helpu se pise, ze globalni promenne jsou inicializovany na 0. U pointerovych
promennych tomu bude zrejme odpovidat nil. Na to by se myslim melo dat
spolehnout. Globalni promenne (a jenom je) je navic mozne inicializovat soucasne s
jejich deklaraci, napr.
var i: integer = 5;
Stejn� tak v�echny objekty v class po
> vol�n� Create.
Tohle nevim.
Obecne si ale myslim, ze je dobre, uz treba kvuli citelnosti programu jinym
programatorem, promenne vzdy inicializovat.
David Lebeda
Odpocitavani datumu
[*] eNca <delphi(zv)enca(tec)cz> - 18.10.2002 12:37:34
Jan Sebel�k wrote:
>>Odes�latel: David Kraina <DKx(zv)Seznam(tec)cz>
>>Mam dane datum,
>>ktere je starsi, nez datum aktualni a potreboval bych spocitat, kolik do
>>neho zbyva DNI:HODIN:MINUT:SEKUND.
>>
>>
>
>TDateTime lze normalne scitat, odecitat atd.
>TDateTime = Double
>Pred desetinnou teckou je pocet dni od nejakeho data.
>Za desetinnou teckou je cast dne, tedy napr. 12 hod = 0.5.
>Kdyz si k tomu pridas procedury EncodeDate, DecodeDate, pripadne neco vynasobis nebo vydelis 24 nebo 60, jses hotov.
>
Tak jednoduche to asi neni - typicky rozdil mezi 1.1.2004 a 1.1.2005
bude ciselne roven rozdilu mezi 1.1.2005 a 2.1.2006 (kvuli prestupnemu
roku)
ale v prvnim pripade bych ocekaval, ze rozdil bude prezentovan jako 1
rok a 0 dnu a v druhem pripade 1 rok a 1 den.
Analogicky problem bude s delkama mesicu.
eNca
Tvorba UDF, Firebird na Linuxu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 18.10.2002 12:51:27
----- Original Message -----
From: "Pesek Michal" <Michal.Pesek(zv)MNUL.CZ>
> mam dotaz ohledne tvorby UDF pro Firebird. V cem je nutne psat UDF pro
> Firebird, ktery bezi na Linuxu (Red Hat 8.3)?
> Musi to byt Kylix nebo staci v Delphi a pripadne cemu se vyvarovat.
Pokud je to pro FB na Linuxu, musi se to prelozit v kompilatoru pro Linux
a to je napriklad Kylix (ale muze to byt treba gcc pokud mas zdrojaky
v cecku atd). Delphi kompiluje jen do Win32. Na siti lze najit furu UDF
knihoven vcetne zdrojaku v ObjectPascalu.
Martin Schayna
ODBCe Insert+Refresh
[*] Tom� Fajman��������ڎf����{� - 18.10.2002 12:55:05
Bohuzel to jinak nez close a open nejde. Musis si schovat klice vety na
ktery stojis a pak po Openu se Locatem nastvait na tu vetu
Odpocitavani datumu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 18.10.2002 13:27:03
V puvodnim dotazu jsi psal pouze o dnech, hodinach.... o mesicich a rocich
nic nebylo (:-(, musis byt presnejsi.
Pokud to chces takhle tak musis pocitat s kalendarem:
PocetRoku = (12 - Month( DatumOd) + Month( DatumDo) + Year(DatumDo)*12 -
Year(DatumOd)*12 ) div 12
PocetMesicu = (12 - Month( DatumOd) + Month( DatumDo) + Year(DatumDo)*12 -
Year(DatumOd)*12 ) mod 12
-- dni do konce m�s�ce pro pocatecni datum
PocetDni = DayOfMonth(Month( DatumOd)) - DAY( datumOd)
--dni na po��tku m�s�ce pro koncov� datum
PocetDni = PocetDni + Day( DatumDo)
Zohledneni posledniho mesice z poctu dni je sice mozne, ale neni zcela
korektni.
Pavel
> Od: eNca [mailto:delphi(zv)enca(tec)cz]
> >>Odes�latel: David Kraina <DKx(zv)Seznam(tec)cz>
> >>Mam dane datum,
> >>ktere je starsi, nez datum aktualni a potreboval bych
> spocitat, kolik do
> >>neho zbyva DNI:HODIN:MINUT:SEKUND.
> >>
> >>
> >
> >TDateTime lze normalne scitat, odecitat atd.
> >TDateTime = Double
> >Pred desetinnou teckou je pocet dni od nejakeho data.
> >Za desetinnou teckou je cast dne, tedy napr. 12 hod = 0.5.
> >Kdyz si k tomu pridas procedury EncodeDate, DecodeDate,
> pripadne neco vynasobis nebo vydelis 24 nebo 60, jses hotov.
> >
>
> Tak jednoduche to asi neni - typicky rozdil mezi 1.1.2004 a 1.1.2005
> bude ciselne roven rozdilu mezi 1.1.2005 a 2.1.2006 (kvuli
> prestupnemu
> roku)
> ale v prvnim pripade bych ocekaval, ze rozdil bude prezentovan jako 1
> rok a 0 dnu a v druhem pripade 1 rok a 1 den.
>
> Analogicky problem bude s delkama mesicu.
ANN: SynaSer rel.10
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.10.2002 13:45:46
Zdravim.
Byl vypusten Synaser release 10. Novinkami jsou:
- prepracovany kod na podporu poloduplexniho rezimu rizeny signalem
RTS (dobre na komunikaci treba s prevodnikem na RS485). Nyni funguje
na vsech podporovanych platformach, tedy na Linuxu, WinNT a vys, ale
i na Win9x!
- Konecne lze menit parametry seriove komunikace v prubehu
existujiciho pripojeni k portu
- no a zazaplatovanych par chyb a problemku...
To je asi to nejdulezitejsi. Ke stazeni je to na webu Synapse (viz.
podpis)
Dekuji za strpeni.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Tvorba instalace pro MSI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.10.2002 14:10:18
From: "Jiri Foldyna" <jiri.f(zv)avizo(tec)cz>
> muzete nekdo doporucit nejaky nastroj na tvorbu instalaci pomoci MSI ?
> Idealne free :-)))
InstallShield Express - Borland limited edition (od Delphi 6 vyse), mas jej na
instalacnim CD.
Petr Vones
Tvorba instalace pro MSI
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.10.2002 14:10:25
Soucasti Windows je nejaky nastroj (je nekde na CD s instalaci W2k a
predpokladam, ze i WinXP), ktery delal MSI zpusobem rozdilu pred a po
instalaci.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.10.2002 Jiri Foldyna:
> muzete nekdo doporucit nejaky nastroj na tvorbu instalaci pomoci MSI ?
> Idealne free :-)))
Podpora DBF nebo nejake jednoduche databaze pro Tu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.10.2002 14:15:08
VHVzaW0sIHplIHRvIHVtZWxhIG5hZHN0YXZiYSBGaWVuZGx5UGFzY2FsLiBKZXN0bGkgamkgamVz
dGUgbmVrZGUNCnNlemVuZXMsIHRvIG5ldmltLg0KT2RrYXoganNlbSBuYXNlbCBpIG5hIHN0cmFu
a2FjaCBodHRwOi8vd3d3LmhhZXMuY3ovaGFlcy5odG0NClJORHIuIFZsYWRpbe1yIEJvZGXoZWsu
IE1vem5hIHRpIHBvbXV6ZSBIb256YSBTZWJlbGlrDQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1h
aWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjE4LjEwLjIwMDIgUGV0ciBCcmFudDoNCj4gQWhvaiwg
bmVtYXRlIG5la2RvIG5lYm8gbmV2aXRlIGtkZSBqZSBrZSBzdGF6ZW5pICVzdWJqJT8gDQoNCj4g
RGlreSBwcmVkZW0gemEgdnNlY2hueSBvZHBvdmVkaQ==
Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 18.10.2002 14:16:18
nejak nestaci,
afterpost probehne,ale data v DB nejsou. fakt nevim, jinak napojene to mam
takto:
ADOconnection->ADOtable->DataSource(autoEdit:=False)->DBgrid(ReadOnly:=True)
DBgrid je tam ciste na prohlizeni, zmeny se provadej v Table,
pavel
procedure TfrmMain.ADOtblAfterPost(DataSet: TDataSet);
begin
ShowMessage('Ted jsem postnul');
end;
procedure TfrmMain.acDeletFromDBExecute(Sender: TObject);
begin
try
ADOTbl.DisableControls;
ADOtbl.Edit;
TBlobField(ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.ItemIndex])).Clear;
ADOtbl.Post;
ADOTbl.EnableControls;
except
on E:Exception do MessageDlg(E.Message,mtError,[mbOK],0);
end;
end;
>A nestaci jenom
>ADOtbl.Edit;
>ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.ItemIndex]).Clear;
>ADOtbl.Post;
This electronic mail transmission contains confidential information intended
only for the person(s) named. Any use, distribution, copying or disclosure
by another person is strictly prohibited.
Tato zpr�va obsahuje d�v�rn� informace, ur�en� v�lu�n� pro uveden�ho
adres�ta. Jak�koliv u�it�, kop�rov�n�, ���en� nebo p�ed�v�n� obsahu zpr�vy
jin�m osob�m a subjekt�m je p��sn� zak�z�no.
JCL - Dotaz na pouziti ExceptionDialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.10.2002 14:20:08
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Nyni to vypada tak, ze dalsim zlomovym okamzikem bude .NET. Pokud
On uz je, bohuzel Borland ma zatim zda se s .NET verzi svych nastroju vcelku
zpozdeni.
Petr Vones
Tisk z Delphi
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.10.2002 14:24:45
No musim si odpovedet sam :))
dm:PDEVICEMODE;
device,driver,port:array[0..255]of char;
mode:THANDLE;
printer.GetPrinter(device,driver,port,mode);
dm:=globallock(mode);
dpix:=dm.dmYResolution;
dpiy:=dm.dmYResolution;
jenom nevim jak dostat horizontalni DPI dmXResolution tam proste neni ?????
Milos
-----Original Message-----
From: Sula Milos
Sent: Friday, October 18, 2002 11:35 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Tisk z Delphi
Potrebuji zjistit DPI tiskarny a mam nasledujici proceduru
printer.BeginDoc;
dpix:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX);
dpiy:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY);
printer.Abort;
kdyz nepouziji begindoc tak mi to hlasi chybu ze printer not printig po volani GetDeviceCaps (asi je handle 0 ???). Ovsek kdyz to mam jak to mam tak mi tiskaran tiskne po Abortu hlasku IllegalStreamHeader. Nevite jak to udelat ?
dekuji
Milos
---
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
Stisknuti klaves
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 18.10.2002 14:28:48
Ahoj,
mam D6 a prosim o radu.
Stojim napr. na EDITu a ja bych rad, po stisku klaves CTRL+H napsal treba hlasku ShowMessage('...');
Diky
V.
NET (was: JCL - Dotaz na pouziti ExceptionDialog)
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 18.10.2002 14:30:27
On 18 Oct 2002 at 14:20, Petr Vones wrote:
> From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> > Nyni to vypada tak, ze dalsim zlomovym okamzikem bude .NET. Pokud
>
> On uz je, bohuzel Borland ma zatim zda se s .NET verzi svych nastroju
> vcelku zpozdeni.
To vim. Mel jsem na mysli .NET v Delphi, nechtel jsem agitovat pro
zmenu programovaciho jazyka. :-)
Pro informaci vsem, zkousim se tim prokousat pres C#, a ma to docela
zajimave vlastnosti. Urcite to vypada lip a umi vic nez COM. Ja
osobne jsem s COM skoncil, nove projekty uz v tom matlat nebudu,
vlasu uz mam pomalu. :-)
S pozdravem
Zbysek Hlinka
Tisk z Delphi
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.10.2002 14:33:15
dm.dmPrintQuality je to x-ove rozliseni uz jsem na to prisel :))
Milos
-----Original Message-----
From: Sula Milos
Sent: Friday, October 18, 2002 2:25 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Tisk z Delphi
No musim si odpovedet sam :))
dm:PDEVICEMODE;
device,driver,port:array[0..255]of char;
mode:THANDLE;
printer.GetPrinter(device,driver,port,mode);
dm:=globallock(mode);
dpix:=dm.dmYResolution;
dpiy:=dm.dmYResolution;
jenom nevim jak dostat horizontalni DPI dmXResolution tam proste neni ?????
Milos
---
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
Stisknuti klaves
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 18.10.2002 14:36:50
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 18, 2002 2:28 PM
Subject: Stisknuti klaves
>
> Ahoj,
>
> mam D6 a prosim o radu.
> Stojim napr. na EDITu a ja bych rad, po stisku klaves CTRL+H napsal treba
hlasku ShowMessage('...');
Ahoj,
do udalosti OnKeyPress napises toto:
if key=#8 then begin
ShowMessage('zmackle CTRL+H');
key:=#0
end
Stisknuti klaves
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.10.2002 14:43:03
MS4gZG8gQWN0aW9uTGlzdHUgZGF0IGFrY2kgcyBob3Jrb3Uga2xhdmVzb3UgQ3RybCtIIGEgdiBv
biBFeGVjdXRlIGRlbGF0DQpjbyBwb3RyZWJ1amVzLiBCdWRlIHByYWNvdmF0IHYgY2VsZSBhcGxp
a2FjaQ0KDQoyLiBhZCAxKSwgcG91emUgdG8gYnVkZSBwb2xvemthIHYgcG9wdXAgbWVudS4gQnVk
ZSBwcmFjb3ZhdCBuYWQgdGltLA0KY2VobyBzZSBwb3B1cCBtZW51IHR5a2EgKHRyZWJhIGZvcm11
bGFyKQ0KDQozLiB2IE9uS2V5RG93biBwcmlzbHVzbmUga29tcG9uZW50eSAoRWRpdHUpIGEgdG8g
b3NldHJpdCAtIHByYWN1amUNCnBvdXplIHBybyB0ZW4gamVkZW4gZWRpdA0KDQotLSANCmluZy4g
SmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQoxOC4xMC4yMDAyIExVS0VTIFbh
Y2xhdjoNCj4gbWFtIEQ2IGEgcHJvc2ltIG8gcmFkdS4gU3RvamltIG5hcHIuIG5hIEVESVR1IGEg
amEgYnljaCByYWQsIHBvDQo+IHN0aXNrdSBrbGF2ZXMgQ1RSTCtIIG5hcHNhbCB0cmViYSBobGFz
a3UgU2hvd01lc3NhZ2UoJy4uLicpOw==
Tisk z Delphi
[*] Tom� Fajman��������ڎf����{� - 18.10.2002 14:53:51
A co to takhle :O)
printer.BeginDoc;
dpix:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);
dpiy:=GetDeviceCaps(Printer.Handle,LOGPIXELSY);
printer.Abort;
Stisknuti klaves
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 18.10.2002 14:56:16
Parada, diky, funguje to. Jeste malickost, ten znak # mi rika, ze jde o control a ta osmicka mi rika, ze jde o osmi znak v abecede ?
V.
-----Original Message-----
From: Petr Hlo�ek [mailto:petr_h(zv)mrp(tec)cz]
Sent: Friday, October 18, 2002 2:37 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Stisknuti klaves
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 18, 2002 2:28 PM
Subject: Stisknuti klaves
>
> Ahoj,
>
> mam D6 a prosim o radu.
> Stojim napr. na EDITu a ja bych rad, po stisku klaves CTRL+H napsal treba
hlasku ShowMessage('...');
Ahoj,
do udalosti OnKeyPress napises toto:
if key=#8 then begin
ShowMessage('zmackle CTRL+H');
key:=#0
end
Tvorba instalace pro MSI
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 18.10.2002 15:00:38
> > muzete nekdo doporucit nejaky nastroj na tvorbu instalaci
> pomoci MSI ?
> > Idealne free :-)))
>
> InstallShield Express - Borland limited edition (od Delphi 6
> vyse), mas jej na
> instalacnim CD.
Bohuzel, instalacni CD od D6 vyse nevlastnim, neb vlastnim D5Ent :-((.
Nejaky jiny tip ?
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Stisknuti klaves
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 18.10.2002 15:01:05
napises obsluhu udalosti onKeyDown alebo OnKeyUp alebo onKeyPress
napr. takto:
procedure TForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(Key= 72) and (ssCtrl in Shift) then
ShowMessage('message');
end;
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 18, 2002 2:28 PM
Subject: Stisknuti klaves
Ahoj,
mam D6 a prosim o radu.
Stojim napr. na EDITu a ja bych rad, po stisku klaves CTRL+H napsal treba
hlasku ShowMessage('...');
Diky
V.napsani ovladace zarizeni serioveho portu
[*] Jurny <jurny(zv)mrp(tec)cz> - 18.10.2002 15:06:39
>
> Vim ze ovladace v Delphi psat nelze. Nase firma by ovsem rada vydala
ovladac
> pro jeden svuj vyrobek. Proto bych se rad zeptal zda ma nekdo zkusenosti
se
> psanim ovladacu hardware, konkretne serioveho poru. Jde o simulovani HW
> serioveho portu a komunikaci po siti. Prosim poradi nekdo jak na to (kde
> zacit), pripadne nabizime moznost spoluprace a vydelku.
>
Proc nelze psat ovladace v Delphi?
--
STj
Stisknuti klaves
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.10.2002 15:08:48
>Parada, diky, funguje to. Jeste malickost, ten znak # mi rika, ze jde o
control a ta osmicka mi rika, ze jde o >osmi znak v abecede ?
>V.
>
>do udalosti OnKeyPress napises toto:
>
> if key=#8 then begin
> ShowMessage('zmackle CTRL+H');
> key:=#0
> end
:-) Ne, ten # udava sestnactkovou soustavu, ta 8 je ASCII kod, ktery vraci
CTRL+H.
Radeji bych asi pouzil udalost OnKeyDown (popr. OnKeyUp).
Roman
==============================
http://kouzelne.misto(tec)cz
napsani ovladace zarizeni serioveho portu
[*] Peter Surovy <psurovy(zv)uevora.pt> - 18.10.2002 14:13:00
Ahoj
----- Original Message -----
From: "Jurny" <jurny(zv)mrp(tec)cz>
Sent: Friday, October 18, 2002 2:06 PM
> > pro jeden svuj vyrobek. Proto bych se rad zeptal zda ma nekdo zkusenosti
> se
> > psanim ovladacu hardware, konkretne serioveho poru. Jde o simulovani HW
> > serioveho portu a komunikaci po siti. Prosim poradi nekdo jak na to (kde
pozri sem:
http://home.tiscali(tec)cz:8080/cz054672/ovladacportu.html
Peter Surovy
napsani ovladace zarizeni serioveho portu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.10.2002 15:19:07
From: "Jurny" <jurny(zv)mrp(tec)cz>
> Proc nelze psat ovladace v Delphi?
Protoze na nekterych verzich Windows nejsou v PE formatu, bylo by zapotrebi
uplne jinou RTL a take by bylo nutne prepsat do Delphi cele DDK.
Petr Vones
Stisknuti klaves
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 18.10.2002 15:44:30
----- Original Message -----
From: "LUKES V�clav" <lukes(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 18, 2002 2:56 PM
Subject: RE: Stisknuti klaves
> Parada, diky, funguje to. Jeste malickost, ten znak # mi rika, ze jde o
control a ta osmicka mi rika, ze jde o osmi znak v abecede ?
> V.
To #8 je ordinalni hodnota stisknute klavesy. Napsal jsem si na to ve
freepascalu programek. Tady je kod:
uses crt;
var
klav : Char;
begin
ClrScr;
repeat
klav:=ReadKey;
Writeln(ord(klav)); {vrati kod stiskle klavesy}
until klav=#27
end.Invalid Pointer Operation p�i zav�r�n� BDE Tab
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.10.2002 15:55:56
From: "Andreas Bednarek" <bednarek(zv)digitus(tec)cz>
> Mmj. co se tyce neinicializovanych promennych, pokud tomu spr�vn� rozum�m,
> v�echny glob�ln� prom�nn� programu jsou automaticky inicializov�ny nil, 0
> apod. Stejn� tak v�echny objekty v class po vol�n� Create. Je to tak? A d�
> se na to spolehnout?
Ano.
Jinak tu chybu bych spis hledal nekde v BDE nez ve VCL.
Petr Vones
NET (was: JCL - Dotaz na pouziti ExceptionDialog)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.10.2002 17:11:36
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> To vim. Mel jsem na mysli .NET v Delphi, nechtel jsem agitovat pro
> zmenu programovaciho jazyka. :-)
Na zacatek pro prvni priblizeni je vcelku sikovny ten IDE expert do Delphi 7:
Using the Delphi for .NET Preview compiler in the Delphi 7 IDE
http://community.borland.com/article/0,1410,29159,00.html
Bude ale hodne zalezet na tom, za jak dlouho se to z teto faze dostane do
pouzitelne podoby hotoveho vyvojoveho nastroje. Zatim toho asi moc neni:
http://dotnet.borland.com
Pripadny prechod z OP na C# by asi nebyl zase tolik bolestny, protoze urcita
podoba by tam se tam ciste nahodou nasla ;-) Mit zakladni povedomost o C# bude
ale dobre tak jako tak, protoze se prirozene bude opakovat situace s Win32 API
kde veskere priklady a dokumentace budou v jazyku, ktery podporuje Microsoft.
Petr Vones
Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 18.10.2002 17:15:16
>No ja teda tyhle ADO komponenty neznam, ale nestacilo by
>ADOTable.FieldByName('...').Clear?
asi je neco shnileho ve state danskem, me pripada, ze ty data proste nekde
porad vysej a ne ane se jich zbavit. uz s tim dneska nemam silu bojovat, tak
az po vikendu :-))
tohel porad nechodi, nevim proc
ADOtbl.Edit;
ShowMessage(IntToStr(TBlobField(ADOtbl.FieldByName(lbBLOBS.Item[lbBLOBS.Item
Index])).BlobSize) ); // ukaze spravne velikost blobu
TBlobField(ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.ItemIndex])).Clear;
ShowMessage(IntToStr(TBlobField(ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.Ite
mIndex])).BlobSize) ); //no tady porad ukazuje puvodni velikost,
podle me by tady mela bejt nula ne?
ADOtbl.Post; pavel(W2000,D5, delfi amater)
PS: toto mi ale chodi, tak jsem z toho jelen
procedure TfrmMain.acReadFromMemExecute(Sender: TObject);
var s:TMemoryStream;
begin
ADOtbl.Edit;
BS1:= TADoBLOBStream.Create(TBlobField(ADOtbl.FieldByName(lbBLOBS.Items
[lbBLOBS.ItemIndex])),bmWrite);
s:= TMemoryStream.Create;
try
try
S.LoadFromFile(strFileName);
ADOTbl.DisableControls;
BS1.Clear;
BS1.LoadFromStream(s);
except
on E:Exception do MessageDlg(E.Message,mtError,[mbOK],0);
end;
finally
S.Free;
BS1.Free;
end;
ADOtbl.Post;
This electronic mail transmission contains confidential information intended
only for the person(s) named. Any use, distribution, copying or disclosure
by another person is strictly prohibited.
Tato zpr�va obsahuje d�v�rn� informace, ur�en� v�lu�n� pro uveden�ho
adres�ta. Jak�koliv u�it�, kop�rov�n�, ���en� nebo p�ed�v�n� obsahu zpr�vy
jin�m osob�m a subjekt�m je p��sn� zak�z�no.
Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 18.10.2002 17:17:17
To ze data v DB nejsou soudis podle toho co vidis v gridu ?
Zkus pridat jeste ADOtbl.Refresh ...
-----Original Message-----
From: Vagner Pavel [mailto:Vagner(zv)ceps(tec)cz]
Sent: Friday, October 18, 2002 2:16 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
nejak nestaci,
afterpost probehne,ale data v DB nejsou. fakt nevim, jinak napojene to mam
takto:
ADOconnection->ADOtable->DataSource(autoEdit:=False)->DBgrid(ReadOnly:=T
ADOconnection->ADOtable->rue)
DBgrid je tam ciste na prohlizeni, zmeny se provadej v Table,
pavel
procedure TfrmMain.ADOtblAfterPost(DataSet: TDataSet);
begin
ShowMessage('Ted jsem postnul');
end;
procedure TfrmMain.acDeletFromDBExecute(Sender: TObject);
begin
try
ADOTbl.DisableControls;
ADOtbl.Edit;
TBlobField(ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.ItemIndex])).Clear;
ADOtbl.Post;
ADOTbl.EnableControls;
except
on E:Exception do MessageDlg(E.Message,mtError,[mbOK],0);
end;
end;
>A nestaci jenom
>ADOtbl.Edit;
>ADOtbl.FieldByName(lbBLOBS.Items[lbBLOBS.ItemIndex]).Clear;
>ADOtbl.Post;
This electronic mail transmission contains confidential information intended only for the person(s) named. Any use, distribution, copying or disclosure by another person is strictly prohibited.
Tato zpr�va obsahuje d�v�rn� informace, ur�en� v�lu�n� pro uveden�ho adres�ta. Jak�koliv u�it�, kop�rov�n�, ���en� nebo p�ed�v�n� obsahu zpr�vy jin�m osob�m a subjekt�m je p��sn� zak�z�no.
Pole o nezname velikosti
[*] Ale� Kresta <kresta.ales(zv)seznam(tec)cz> - 18.10.2002 17:35:29
Dobry den,
pot�eboval bych vytvo�it pole integru, ale je problem, ze velikost
tohoto pole zjistim az pri behu programu. Da se tedy za b�hu vytvorit pole o
zjistene velikosti???
Predem diky za odpoved
barevne do Hint
[*] bleak <bleak(zv)mvesely(tec)com> - 18.10.2002 18:09:29
ne, potrebuji napr. jeden radek textu v Hintu cervene, druhy modre...
bleak
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
Myslis Application.HintColor?dotazy pro systemove programatory.
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.10.2002 18:34:09
> 1) Aplikace v Delphi (ktera prohlizi usek operacni pameti, v nemz je
> natazena) konci planovanou vyjimkou na adrese 4AC14C
> (EAccessViolation). Byl jsem zvedav na ktere adrese zhavaruje 2.
> instance teto aplikace. Ocekaval jsem, ze to bude uplne jinde,
> ponevadz druha instance se musi natahnout do jineho adresniho rozmezi.
> K memu prekvapeni KONCI NA STEJNE ADRESE 4AC14C a navic je natazena do
> stejneho useku pameti 400000-4CBFFF. Jak je mozne, ze 2 instance teze
> aplikace bezi nad tymz usekem pameti ? Bezi tam skutecne ?
>
> Vysvetli mi to nekdo ?
zjednodusene receno:
Pod Win32 bezi kazda aplikace ve svem vlastnim virtualnim adresovem
prostoru. Tedy system vytvori kazdemu procesu jakoby svou vlastni
pamet o velikosti 4 giga, ve ktere si apliakce zije svym vlastnm
zivotem. (a take se v tom adresovem prostoru objevi vsechny potrebne
sdilene knihovny, takze vse co potrebuje aplikace k zivotu, ma ve
svem virtualnim prostoru k dispozic a npotrebuje tedy nic mimo!)
Diky tomu nemuze aplikace zasahnout do adresoveho prostoru jine
aplikace a nejak ji poskodit.
A tak tedy pustis-li dve stejne apliakce, bezi kazde ve svem vlastnim
adresovem prostoru. Ale protoze jsou ty apliakce stejne a delaji
totez, nejak neni sebemensi duvod k tomu, aby byly v tom vlastnim
virtualnim adresovem prostoru nahrany jinak.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
dotazy pro systemove programatory.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.10.2002 18:45:28
From: "Petr Va�eka" <pvareka(zv)mujmejl(tec)cz>
> Ocekaval jsem, ze to bude uplne jinde, ponevadz druha instance se musi
> natahnout do jineho adresniho
> rozmezi. K memu prekvapeni KONCI NA STEJNE ADRESE 4AC14C a navic je natazena
> do stejneho useku
> pameti 400000-4CBFFF.
> Jak je mozne, ze 2 instance teze aplikace bezi nad tymz usekem pameti ? Bezi
> tam skutecne ?
Kazdy proces ma svuj privatni virtualni adresovy prostor o velikosti 4GB.
Adresy tedy nemaji nic spolecneho s fyzickou RAM. Operacni system rozhoduje
sam o tom, ktere stranky (o velikosti 4k) budou zrovna umisteny v RAM a ktere
na disku (bud jako page file nebo mapped file). Smyslem je, ze jeden proces
nesmi mit moznost jakkoli narusit adresovy prostor ostatnich procesu. Toto je
splneno v implementaci Win32 API na Windows NT (NT4/2000/XP), u 95/98/Me to ma
jiste zjednoduseni a z toho plynouci nestabilitu systemu.
> 2) Kdysi jsem programoval v assembleru na IBM360. Prvni byte prelozene
> instrukce tam znacil kod operace
> Je tam taky nekde kod operace ? Kde ?
http://www.intel.com/design/Pentium4/manuals/
Petr Vones
Stisknuti klaves
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.10.2002 19:15:02
18.10.2002 Roman:
> :-) Ne, ten # udava sestnactkovou soustavu, ta 8 je ASCII kod, ktery vraci
> CTRL+H.
> Radeji bych asi pouzil udalost OnKeyDown (popr. OnKeyUp).
Sestnactkovou asi ne. To by tam musele byt znak $
#8 je znak retezce, napsany pomoci jeho ASCII kodu v desitkove
soustave. Je to jako bys napsal retezec 'A'#72'OJ'
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
davkovy sql dotaz
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 18.10.2002 19:39:28
Jak pracuje ta RXSQLScript ?
Taky to asi bude hazet po jednom dotazu.....
valik
Pole o nezname velikosti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.10.2002 19:49:20
From: "Ale� Kresta" <kresta.ales(zv)seznam(tec)cz>
> pot�eboval bych vytvo�it pole integru, ale je problem, ze velikost
> tohoto pole zjistim az pri behu programu. Da se tedy za b�hu vytvorit pole o
> zjistene velikosti???
Ano, pouzitim dynamickych poli:
var
MyArray: array of Integer;
SetLength(MyArray, 1000);
MyArray[0] := 12345;
...
MyArray[999] := 12345;
Dynamicka pole se indexuji vzdy od nuly, dale viz 'dynamic arrays' v helpu.
Petr Vones
Re[2]: Zmena znaku ve stringu
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 18.10.2002 20:03:52
Ahoj,
co takhle
procedure ReplaceString (var s: string; OldString, NewString: string);
var Temp : string;
i : integer;
begin
i := 1;
Temp := '';
while i <> Length (s) + 1 do
begin
if Copy (s, i, Length (OldString)) = OldString then
begin
Temp := Temp + NewString;
Inc (i, Length (OldString));
end
else
begin
Temp := Temp + s [i];
Inc (i);
end;
end;
s := Temp;
end;
>> Servus ve spolek,
>> je v Delphi nejaka fce pro zmenu jednoho znaku ve stringu? Neco jako
>> ReplaceStr(',', '.', Retezec); Rumcajs
LD> StringReplace, dale viz help.
LD> David Lebeda
--
S pozdravem
Jiri Betunak mailto:kindrik(zv)centrum(tec)cz
zakazanie prekreslovania
[*] Ludo Fulop <kexo(zv)ynet.sk> - 19.10.2002 01:49:05
ako zakazem a potom opatovne povolim prekreslovanie formulara?
chcem zamedzit "preblikavaniu" formulara - po kliknuti na tlacitko sa mi
pomenia nejake komponenty na formualry a chcem aby uzivatel videl len
vysledok a nie aj proces zmeny...
Ludo Fulop
None
[*] Jan �imeck� - 19.10.2002 08:38:13
Dobry den,
vim ze to sem do konference nepatri, ale potreboval bych vedet zakladni
prokazy pro MySQL(Vytvoreni tabulky, pridani radku, nelezeni radku z urcitym
textem, zmeneni radku z urcitim textem).
Jeste jednou se omlovam ze tento e-mail zasilam do teto konference.
Dale bych se ctel zeptat, zda jde na internetu nekde stahnou veze Delphi(Tak
jak se dalo stahnout Delphi 6 Personal).
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.391 / Virov� b�ze: 222 - datum vyd�n�: 19.9.2002
None
[*] Ludo Fulop <kexo(zv)ynet.sk> - 19.10.2002 10:47:26
ahoj,
1/ dokumentaciu k MySQL najdes na
http://www.mysql.com/documentation/index.html
2/ delphi sa uz neda stiahnut, jedine trial verzia na domovskej stranek
Borlandu
Ludo Fulop
----- Original Message -----
From: "Jan �imeck�" <jsimecky(zv)zskuldova(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, October 19, 2002 8:38 AM
>
> Dobry den,
>
> vim ze to sem do konference nepatri, ale potreboval bych vedet zakladni
> prokazy pro MySQL(Vytvoreni tabulky, pridani radku, nelezeni radku z
urcitym
> textem, zmeneni radku z urcitim textem).
>
> Jeste jednou se omlovam ze tento e-mail zasilam do teto konference.
>
> Dale bych se ctel zeptat, zda jde na internetu nekde stahnou veze
Delphi(Tak
> jak se dalo stahnout Delphi 6 Personal).
>
>
>
> 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.391 / Virov� b�ze: 222 - datum vyd�n�: 19.9.2002
None
[*] Valenta P <valentapat(zv)volny(tec)cz> - 19.10.2002 11:02:15
Nainstaluj si nejaky MySQL ADmin - najdes na netu free,
a z nej se hodne naucis ... kdyz udelas DUMP databaze,
tak ti ukaze jak se dela createtable, insert.
A z SQL si tam muzes vyhrat. Ja se tio tak ucil
A samozrejme nejakej manual, nejlepe kniha MySQL za 21 dni
> Dobry den,
>
> vim ze to sem do konference nepatri, ale potreboval bych vedet zakladni
> prokazy pro MySQL(Vytvoreni tabulky, pridani radku, nelezeni radku z
urcitym
---
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
None
[*] Valenta P <valentapat(zv)volny(tec)cz> - 19.10.2002 11:03:23
Vyslo na CD Computeru ... mozna nekde v knihovne ?
> Dale bych se ctel zeptat, zda jde na internetu nekde stahnou veze
Delphi(Tak
> jak se dalo stahnout Delphi 6 Personal).
---
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
zakazanie prekreslovania
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.10.2002 12:55:40
From: "Ludo Fulop" <kexo(zv)ynet.sk>
> ako zakazem a potom opatovne povolim prekreslovanie formulara?
> chcem zamedzit "preblikavaniu" formulara - po kliknuti na tlacitko sa mi
> pomenia nejake komponenty na formualry a chcem aby uzivatel videl len
> vysledok a nie aj proces zmeny...
O jake komponenty se presne jedna ? Spravne by jsi mel volat metody
BeginUpdate/EndUpdate u jednotlivych komponent.
Petr Vones
TaskBar a TMemo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.10.2002 12:57:05
From: "Martin Cajbik" <cajbik(zv)sct.sk>
> 1) komponentu vo forme TaskBar-u z Windows. Moja MDI applikacia ma svoj
Taskbar pouziva TToolBar
> 2) komponentu podobnu TMemo s moznostou farebneho zvyraznovania textu a
http://synedit.sourceforge.net/
Petr Vones
Zmena znaku ve stringu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.10.2002 13:01:09
From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> co takhle
To je znacne neefektivni implementace, zvlaste pokud jde o nahrazeni znaku a
ne retezce (o vice znacich) ve stringu. Podivej se treba na funkci CharReplace
v unitu JclStrings z JCL.
Petr Vones
zakazanie prekreslovania
[*] bleak <bleak(zv)mvesely(tec)com> - 19.10.2002 15:34:04
tohle pouzivam ja:
LockWindowUpdate(Form1.Handle); //z�kaz
...nejake akce
LockWindowUpdate(0); //povolen�
Form.Repaint;
bleak
----- Original Message -----
From: "Ludo Fulop" <kexo(zv)ynet.sk>
To: "Delphi Konfera" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, October 19, 2002 1:49 AM
Subject: zakazanie prekreslovania
> ako zakazem a potom opatovne povolim prekreslovanie formulara?
> chcem zamedzit "preblikavaniu" formulara - po kliknuti na tlacitko sa mi
> pomenia nejake komponenty na formualry a chcem aby uzivatel videl len
> vysledok a nie aj proces zmeny...
> Ludo Fulop
>
>
zakazanie prekreslovania
[*] Ludo Fulop <kexo(zv)ynet.sk> - 19.10.2002 15:46:19
potrebujem to robit nad celym formularom, pripadne len nad pagecontrol.
V pagecontrol totiz taketo nieco: mam 1 stale viditelny tabsheet, a 4
dalsie, z ktorych vzdy zobrazujem len jeden...a prave pri skryti jedneho za
zobrazeni druheho vznika to neprijemne preblikavanie...
Ludo Fulop
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> From: "Ludo Fulop" <kexo(zv)ynet.sk>
> > ako zakazem a potom opatovne povolim prekreslovanie formulara?
> > chcem zamedzit "preblikavaniu" formulara - po kliknuti na tlacitko sa mi
>
> O jake komponenty se presne jedna ? Spravne by jsi mel volat metody
> BeginUpdate/EndUpdate u jednotlivych komponent.
sharovanie adresara
[*] Ludo Fulop <kexo(zv)ynet.sk> - 19.10.2002 18:20:05
ako nastavim aby bol adresar sharovany? (win98, 2000, xp)
Ludo Fulop
D6
Pole o nezname velikosti
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 19.10.2002 19:49:23
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ale� Kresta
> Subject: Pole o nezname velikosti
>
> Dobry den,
Ahoj,
> pot�eboval bych vytvo�it pole integru, ale je problem, ze velikost
> tohoto pole zjistim az pri behu programu. Da se tedy za b�hu
> vytvorit pole o
> zjistene velikosti???
Da. Rika se tomu dynamicke pole.
var
ArrI: array of Integer;
X: Integer;
a az budes znat velikost tak staci SetLenght(ArrI, NejakaVelikost)
a prochazet jej pomoci napr.:
for X:= 0 to High(ArrI) do ArrI[X] atd...
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 602 652 203
Nastaveni datumu
[*] Ale� Kresta <kresta.ales(zv)seznam(tec)cz> - 19.10.2002 19:56:58
Dobry den
da se v delphi nejak nastavit aktualni systemove datum. Zkousel jsem
promennou now, ale te nelze hodnota priradit. Predem diky za odpoved
Nastaveni datumu
[*] Ludo Fulop <kexo(zv)ynet.sk> - 19.10.2002 20:04:02
je na to API funkcia
BOOL SetSystemTime(
CONST SYSTEMTIME *lpSystemTime // address of system time to set
);
typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;
Ludo Fulop
----- Original Message -----
From: "Ale� Kresta" <kresta.ales(zv)seznam(tec)cz>
> Dobry den
> da se v delphi nejak nastavit aktualni systemove datum. Zkousel jsem
> promennou now, ale te nelze hodnota priradit. Predem diky za odpoved
Soucet poli v gridu,bez fieldchange
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 19.10.2002 21:22:39
Ahoj kluci chtel bych pri pohybu v gridu (pri insert,update) vzdy secist
sloupec polii,jenze to asi nepujde pomoci field a prochazet,protoze se mi
budou asi hejbat pole...Muzete mi prosim poradit nejaky figl aby se mi radky
pri scitani nehybali?
Diky moc
a
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/ Hezky den
Soucet poli v gridu,bez fieldchange
[*] Ludo Fulop <kexo(zv)ynet.sk> - 19.10.2002 22:27:15
neviem ci mas na mysli dbgrid, ak ano:
neda sa pouzit vlastnost RecordCount datasetu?
napr. DBGrid1.DataSource.DataSet.RecordCount
Ludo Fulop
----- Original Message -----
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> Ahoj kluci chtel bych pri pohybu v gridu (pri insert,update) vzdy secist
> sloupec polii,jenze to asi nepujde pomoci field a prochazet,protoze se mi
> budou asi hejbat pole...Muzete mi prosim poradit nejaky figl aby se mi
radky
> pri scitani nehybali?
DISTINCT vo viacerych stlpcoch
[*] Ludo Fulop <kexo(zv)ynet.sk> - 20.10.2002 01:28:45
zdravim, ako mozem z databazy vybrat len tie riadky, ktore nemaju zhodnu
kombinaciu hodnot napr. z troch stlpcov?
Ludo Fulop
Zprava z DLL knihovny
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 20.10.2002 02:06:38
Zdravim,
mam vytvorenou DLL knihovnu, z ktere volam funkci na zobrazeni Dialogoveho
Boxu:
procedure ZobrazChybu(index: integer);
begin
MessageDlg('Chyba!',LoadStr(index), mtError, [mbOK],0);
end;
z klientske aplikace po zavolani se vse zobrazi jak ma, ale po vypnuti
hlavniho formulare zustane aplikace
'viset' v pameti... kde je chyba?
A druhy dotaz, takto se mi zobrazi MessageBox, ale neni vuci klientu
modalni, jak to zaridit??
Diky za odpovedi
Pavel Poles
Soucet poli v gridu,bez fieldchange
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 20.10.2002 06:06:24
Jestlize potrebujes projet tabulku - secist apod. - a nechces aby se ti
opticky nepohyboval DBGrid, zaloz si jeste jednu TTable2, ktera se odkazuje
stejne jako ta prvni na danou tabulku a projizdej pro souctu a jine vypocty
tu druho tabulku. Bude to i rychlejsi, protoze nebude dochazet k
vykreslovani na DBGrid.
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> neviem ci mas na mysli dbgrid, ak ano:
> neda sa pouzit vlastnost RecordCount datasetu?
> napr. DBGrid1.DataSource.DataSet.RecordCount
>
> Ludo Fulop
>
> ----- Original Message -----
> From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> > Ahoj kluci chtel bych pri pohybu v gridu (pri insert,update) vzdy secist
> > sloupec polii,jenze to asi nepujde pomoci field a prochazet,protoze se
mi
> > budou asi hejbat pole...Muzete mi prosim poradit nejaky figl aby se mi
> radky
> > pri scitani nehybali?
Komponenty a jejich ikony
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 20.10.2002 06:09:30
Me se to taky stalo na D5Pro, a pomohlo pouze preinstalovani Windows.
Jestlize nemas zdrojaky k tem komponentam, radeji je ani nepouzivej, protoze
je to nejaky balast.
Zkus pouzit Win2000, zde by nemelo dochazet k takovym to destrukcim...
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> peknej den,
> po nainstalovani komponent - a nebyly to RX se mi rozdrbaly nektere ikony
u
> komponent, jsou na pul posunute a zbytek dokreslenej z jinych komponent,
> posledni jsou cerne.
>
> Da se st�m neco udelat.
> Uz sem to 2x reinstaloval, ty komponenty potrebuju,
>
> ---
> 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�: 14.10.1985
Soucet poli v gridu,bez fieldchange
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 20.10.2002 09:18:46
Talpa dekuje a domejsli napad:
------------------------------>
Mno to znamena technicky provazat udalosti post,insert a update ze? Uz
chapu....to by slo dobrej napad ale TABLE nepouziju FUUUJ ma dost omezeny
moznosti pri joinovani...Lepsi udelat jen totozny dataset myslim,ze neco
maji RX komponenty,krknu se.....
Diky za napad...nekdy jsem natvrdlyyy jak polenooo...obzvlast po celonocni
sichte...
Kopr:
-----
>Jestlize potrebujes projet tabulku - secist apod. - a nechces aby se ti
>opticky nepohyboval DBGrid, zaloz si jeste jednu TTable2, ktera se odkazuje
>stejne jako ta prvni na danou tabulku a projizdej pro souctu a jine vypocty
>tu druho tabulku. Bude to i rychlejsi, protoze nebude dochazet k
>vykreslovani na DBGrid.
Soucet poli v gridu,bez fieldchange
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 20.10.2002 09:29:22
Talpa:
------
Dobre mi tak kdyz se neumim vyzvejknout:-)))
Jedna se o DBGrid ale
Nechci COUNT ale SUM...
Ludo Fulop wrote
------------
neviem ci mas na mysli dbgrid, ak ano:
neda sa pouzit vlastnost RecordCount datasetu?
napr. DBGrid1.DataSource.DataSet.RecordCount
Soucet poli v gridu,bez fieldchange
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 20.10.2002 11:56:43
Ahoj,
On 20 Oct 2002 at 9:29, Ales Pavel wrote:
>
> Talpa:
> ------
> Dobre mi tak kdyz se neumim vyzvejknout:-)))
> Jedna se o DBGrid ale
> Nechci COUNT ale SUM...
>
> Ludo Fulop wrote
> ------------
> neviem ci mas na mysli dbgrid, ak ano:
> neda sa pouzit vlastnost RecordCount datasetu?
> napr. DBGrid1.DataSource.DataSet.RecordCount
pokud muzes pouzit SQL tak:
SELECT SUM(POLE) FROM TABULKA
Jarek Uher
Problem s spustenim Exploreru
[*] Petr Varga <djvar(zv)post(tec)cz> - 20.10.2002 14:53:21
Ahoj
Uz jsem se tu jednou ptal jak spustit muj program pred samotnou
listou win. Rada znela : prepsat v system.ini polozku shell na moji
aplikaci. V tom neni problem. Vse funguje. Ale chtel bych z me
aplikace primo spustit klasickou listu win. Jenomze kdyz pouziji
treba winexec(pchar('c:\windows\explorer.exe'),sw_shownormal) nebo
tak nejak tak se mi spusti pruzkumnik. Nevite prosim nekdo jak to
udelat aby se spustila ta lista?
Dekuji predem Varga Petr
V�hodn� n�kupy p�es internet, slevov� akce, zaj�mav� ceny, dod�vka
a� do domu...http://shop.volny(tec)cz
Problem s spustenim Exploreru
[*] Ludo Fulop <kexo(zv)ynet.sk> - 20.10.2002 14:59:16
no neviem, ale lista nie je nahodou c:\widnows\system\systray.exe?
Ludo Fulop
----- Original Message -----
From: "Petr Varga" <djvar(zv)post(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, October 20, 2002 2:53 PM
Subject: Problem s spustenim Exploreru
Ahoj
Uz jsem se tu jednou ptal jak spustit muj program pred samotnou
listou win. Rada znela : prepsat v system.ini polozku shell na moji
aplikaci. V tom neni problem. Vse funguje. Ale chtel bych z me
aplikace primo spustit klasickou listu win. Jenomze kdyz pouziji
treba winexec(pchar('c:\windows\explorer.exe'),sw_shownormal) nebo
tak nejak tak se mi spusti pruzkumnik. Nevite prosim nekdo jak to
udelat aby se spustila ta lista?
Dekuji predem Varga Petr
V�hodn� n�kupy p�es internet, slevov� akce, zaj�mav� ceny, dod�vka
a� do domu...http://shop.volny(tec)cz
barevne do Hint
[*] bleak <bleak(zv)mvesely(tec)com> - 20.10.2002 17:51:15
zeptam se jinak:
jak se dostanu na Canvas Hintu kdyz pouziju toto:
procedure TForm1.DoShowHint(var HintStr: string; var CanShow: Boolean; var
HintInfo: THintInfo);
pak uz si tam napisu co budu chtit - barevne...
bleak
Zjisteni nove verze pres FTP
[*] Jan �imeck� - 20.10.2002 18:21:21
Zdravim vsechny ucastniky konference,
Potreboval bych poradi jak v Delphi 4 profesional(+ jsem si nainstalpoval
BUPack)mam udelat nasledujici:
1. Program se pripoji pres FTP k mym strankam a zde zjisti z textoveho
souboru aktualni verzi
2. V pripade ze bude na serveru novejsi verze, tak se stahne samorozbalovaci
archiv z nouvou verzi.
Dekuji predem za vasi odpoved. 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.391 / Virov� b�ze: 222 - datum vyd�n�: 19.9.2002
Razeni v ListView II
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 20.10.2002 21:05:23
Zdravim
konferenci
pred casem jsem se ptal na razeni cisel v ListView v prvnim columns
(caption). To jsem na radu jednoho ucastnika teto konference (diky)
udelal takto:
function CustomSortProc1(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
var
c1,c2:integer;
begin
try
c1:=StrToInt(Item1.Caption);
c2:=StrToInt(Item2.Caption);
if c1>c2 then result:=1 else
if c1<c2 then result:=-1 else result:=0;
except
Result:=lstrcmp(PChar(TListItem(Item1).Caption),PChar(TListItem(Item2).Caption));
end;
end;
ale potreboval bych udelat i sort druheho sloupecku ktery taky
obsahuje cisla. Skousel jsem to udelat takto ale asi jsem to
nepochopil jako to ma byt.
function CustomSortProc2(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
var
c1,c2:integer;
begin
try
c1:=StrToInt(Item1.Caption);
c2:=StrToInt(Item2.Caption);
if c1>c2 then result:=1 else
if c1<c2 then result:=-1 else result:=0;
except
Result:=lstrcmp(PChar(TListItem(Item1).Subitems[0]),PChar(TListItem(Item2).Subitems[0]));
end;
end;
POradi mi nekdo jak to ma byt. Nebo nejlepe jak to funguje s tim
sortem v listview.
Diky MIlan
barevne do Hint
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 20.10.2002 20:16:49
Ahoj,
> bleak(zv)mvesely.com 20.10.02 16:51 >>>
> jak se dostanu na Canvas Hintu kdyz pouziju toto:
> procedure TForm1.DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
asi tezko....
uz jsem tu posilal url na Hinty....
http://www.windev(tec)cz/clanek.asp?stranka=cb_hints.htm
sice to je pro BCB, ale tady to mas pro D5, pro tvuj pripad
http://sweb(tec)cz/data.product/Delphi/5/Hints/Hints.zip
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
Razeni v ListView II
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2002 22:32:06
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> function CustomSortProc1(Item1, Item2: TListItem; ParamSort: integer):
integer; stdcall;
> var
> c1,c2:integer;
> begin
> try
> c1:=StrToInt(Item1.Caption);
> c2:=StrToInt(Item2.Caption);
> if c1>c2 then result:=1 else
> if c1<c2 then result:=-1 else result:=0;
> except
>
Result:=lstrcmp(PChar(TListItem(Item1).Caption),PChar(TListItem(Item2).Caption
));
> end;
> end;
To je ponekud zbytecne prekombinovane, navic v pripade kde predpokladas vyskyt
dat, ktere nelze prevest na cislo je pouziti vyjimky krajne nevhodne, protoze
jde o ocekavanou situaci. Cele by to slo udelat treba takto:
function CustomSortProc(Item1, Item2: TListItem; ParamSort: Integer): Integer;
stdcall;
var
N1, N2: Integer;
begin
if TryStrToInt(Item1.Caption, N1) and TryStrToInt(Item2.Caption, N2) then
Result := N1 - N2
else
Result := CompareStr(Item1.Caption, Item2.Caption);
end;
> ale potreboval bych udelat i sort druheho sloupecku ktery taky
> obsahuje cisla. Skousel jsem to udelat takto ale asi jsem to
function CustomSortProc(Item1, Item2: TListItem; ParamSort: Integer): Integer;
stdcall;
function ValueCompare(const V1, V2: string): Integer;
var
N1, N2: Integer;
begin
if TryStrToInt(V1, N1) and TryStrToInt(V2, N2) then
Result := N1 - N2
else
Result := CompareStr(V1, V2);
end;
begin
Result := ValueCompare(Item1.Caption, Item2.Caption);
if Result = 0 then
Result := ValueCompare(Item1.SubItems[0], Item2.SubItems[0]);
end;
Petr Vones
OT: Nastaveni MSIE
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 21.10.2002 06:52:43
Vazeni,
potebuji poradit s nastavenim MSIE 6.0, ktery mi casto hlasi:
"Tato stranka poskytuje pripadne nebezpecne informace objektu
ActiveX. Aktualni nasteveni zabezpeceni zakazuji spoustet ovladaci
prvky timto zpusobem. Tato stranka nebude mozna zobrzena
spravne".
Pritom mam v Moznostech Internetu nastavenu na karte
Zabezpeceni pro Internet vlastni uroven zabezpeceni a v ni
"Spoustet ovladaci prvky ActiveX a moduly plug-in" ... Povolit
Dekuji predem za radu
ing. Jan Plisek e-mail: plisek(zv)spse(tec)cz
SPSE a VOS tel. +420 466 614 788
Karla IV. 13 fax. +420 466 614 763
531 69 PARDUBICE http://www.spse(tec)cz
Czech Republic
OT: Program na spravu zdrojakov
[*] Kalus Jozef Ing. <jozef.kalus(zv)spordat.sk> - 21.10.2002 07:12:46
hi,
potreboval by som nejak spravovat zdrojaky s rozumnou moznostou backupovania
(aby sa to z backupu dalo vytiahnut za pomoci standartnych programov) na
sposob MS SourceSafe, ak mate niekto nejake dobre skusenosti s niecim
dobrym, prosim hodte info, moze byt aj nieco platene za rozumnu cenu :o)
dik
joka
------------------------------------------------------------------------
Ing. Jozef Kalus
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
www: http://www.equipment.sk
capture videa v delphi pomoci DSPACK
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 21.10.2002 07:35:22
Mate nekdo zkusenosti s DSPack a ukladani videa z kamery + komprese ?
Nejaky example tam je ale ukladani do avi z kamery + komprese tam neni.
Milos
---
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
Nejde vymazat BLOB z ACCESSu pres TADOBlobStream
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 21.10.2002 07:41:00
>To ze data v DB nejsou soudis podle toho co vidis v gridu ?
>Zkus pridat jeste ADOtbl.Refresh ...
Jednak jsem se dival DBgigu a pak jeste normalne v accessu. i kdyz tam mam
ten refresh, tak to tam proste neni. Me je jasny, ze ta sekvence prikazu
musi preci chodit, tak nevim co jsem s tim provedl ja, ze me to nechodi.
pavel
This electronic mail transmission contains confidential information intended
only for the person(s) named. Any use, distribution, copying or disclosure
by another person is strictly prohibited.
Tato zpr�va obsahuje d�v�rn� informace, ur�en� v�lu�n� pro uveden�ho
adres�ta. Jak�koliv u�it�, kop�rov�n�, ���en� nebo p�ed�v�n� obsahu zpr�vy
jin�m osob�m a subjekt�m je p��sn� zak�z�no.
Zjisteni nove verze pres FTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 21.10.2002 08:07:48
Zkus Synapsi nebo Indy, ne? (z nepochopitelnych duvodu tihnu k tomu
prvnimu. ;-))
> Potreboval bych poradi jak v Delphi 4 profesional(+ jsem si
> nainstalpoval BUPack)mam udelat nasledujici:
>
> 1. Program se pripoji pres FTP k mym strankam a zde zjisti z textoveho
> souboru aktualni verzi 2. V pripade ze bude na serveru novejsi verze,
> tak se stahne samorozbalovaci archiv z nouvou verzi.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Soucet poli v gridu,bez fieldchange
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 21.10.2002 08:11:42
Ked chces zabranit len vizualnemu pohybu selektnuteg polozky v DBGride mozes
to spravit aj takto:
// uzamkne komponenty v ktorych sa zobrazuju data
DataSet.DisableControls();
// zistis si index prave selektnutej polozky
ID:= Dataset.FieldByName('Key_Field').AsInteger;
// nastavis sa na prvu polozku
DataSet.First();
// v cykle prejdes vsetky polozky a poscitujes prislusne hodnoty fieldu
repeat
Sum:= Sum + Dataset.FieldByName('xy').AsInteger;
DataSet.Next();
until (not DataSet.Eof);
// selektnes ten isty rekord ktoryt bol selektnuty pred DataSet.First();
DataSet.Locate('KeyField', ID, []);
// odomknes komponenty ktore zobrazuju data (DBGrid)
DataSet.EnableControls();
----- Original Message -----
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
To: "delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, October 19, 2002 9:22 PM
Subject: FW: Soucet poli v gridu,bez fieldchange
>
> Ahoj kluci chtel bych pri pohybu v gridu (pri insert,update) vzdy secist
> sloupec polii,jenze to asi nepujde pomoci field a prochazet,protoze se mi
> budou asi hejbat pole...Muzete mi prosim poradit nejaky figl aby se mi
radky
> pri scitani nehybali?
>
> Diky moc
> a
>
> Hezky den
>
> Ales Pavel
> D6 Ent WXP
> laik v profesionalnim kolotoci
> http://talpa.chytrak(tec)cz/ Hezky den
>
>
>
Stisknuti klaves
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 21.10.2002 08:12:28
> Parada, diky, funguje to. Jeste malickost, ten znak # mi rika, ze jde
> o control a ta osmicka mi rika, ze jde o osmi znak v abecede ?
Ne. Key je typu char. Hodnotu char muzes identifikovat primo znakem (napr. 'A'
nebo pomoci ordinalni hodnoty. V takovem pripade se pred to cislo pise #. V danem
pripade 'A' a #65 je totez. Blize viz help.
> do udalosti OnKeyPress napises toto:
>
> if key=#8 then begin
> ShowMessage('zmackle CTRL+H');
> key:=#0
> end
Tohle mi nepripada moc citelne. Znak #8 normalne odpovida klavese backspace,
kterou ovsem nelze chytit v OnKeyPress (muselo by se do OnKeyDown). To, ze
dvojice CTRL + H se v OnKeyPress jevi jako #8 mi prijde spis jako vedlejsi efekt a
CTRL+H bych chytal v OnKeyDown doopravdy jako CTRL a H, tj.
if (ssCTRL in Shift) and (Key = ord('H')) then...
psano z hlavy bez Delphi, snad je to dobre.
David Lebeda
DISTINCT vo viacerych stlpcoch
[*] Martin Kozusky <delphi(zv)novalis.dyndns.org> - 21.10.2002 08:34:16
Neni to nejak takto: (nebo podobne :)
SELECT distinct(sl1,sl2,sl3) from tabulka where blabla
Martin
----- Original Message -----
From: "Ludo Fulop" <kexo(zv)ynet.sk>
Newsgroups: cz.muni.redir.delphi
To: "Delphi Konfera" <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, October 20, 2002 1:28 AM
Subject: DISTINCT vo viacerych stlpcoch
> zdravim, ako mozem z databazy vybrat len tie riadky, ktore nemaju zhodnu
> kombinaciu hodnot napr. z troch stlpcov?
> Ludo Fulop
>
Application.MessageBox - texty na tlacitkach
[*] Jozef Baranec <joba(zv)digitaldocuments.org> - 21.10.2002 08:44:29
Pri Application.MessategBox('...','...',MB_YESNO) mi ukaze okno s
tlasitkami "Yes" a "No".
Da sa nejako spravit, aby mi ponukol texty na tlacitkach "Ano" a "Nie"?
jozo
barevne do Hint
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 08:48:11
> zeptam se jinak:
> jak se dostanu na Canvas Hintu kdyz pouziju toto:
>
> procedure TForm1.DoShowHint(var HintStr: string; var CanShow:
> Boolean; var HintInfo: THintInfo);
>
> pak uz si tam napisu co budu chtit - barevne...
Mozes si odvodit vlastnu triedu od THintWindow a predat jej triedu v
parametri HintWindowClass. Application Ti potom v ActivateHint vytvori
instanciu tej triedy.
Vlastne kreslenie si mozes napisat v overridnutej metode Paint, tam mas
pristup ku Canvas.
HTH
TOndrej
DISTINCT vo viacerych stlpcoch
[*] Roland Turcan <rolo(zv)sedas.sk> - 21.10.2002 08:53:26
<<< 21. 10. 2002 8:52 - Ludo Fulop "kexo(zv)ynet.sk" >>>
LF> zdravim, ako mozem z databazy vybrat len tie riadky, ktore nemaju zhodnu
LF> kombinaciu hodnot napr. z troch stlpcov?
LF> Ludo Fulop
select distinct stlpec1,stlpec2,stlpec3 ...
distinct hovori o tom ze riadok musi byt jedinecny
--
Best regards, TRoland
Application.MessageBox - texty na tlacitkach
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 08:59:49
> Pri Application.MessategBox('...','...',MB_YESNO) mi ukaze okno s
> tlasitkami "Yes" a "No".
> Da sa nejako spravit, aby mi ponukol texty na tlacitkach
> "Ano" a "Nie"?
Application.MessageBox vola API MessageBox, ktora zobrazuje texty podla
jazykovej verzie Windows, takze tymto sposobom tazko.
Skus radsej funkciu MessageDlg v unite Dialogs, tam su pouzite
resourcestringy (SMsgDlgYes, SMsgDlgNo, ...), a tie sa daju lokalizovat
standardne ako je to popisane v helpe: pomocou resource DLL.
HTH
TOndrej
Tvorba instalace pro MSI
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 21.10.2002 09:20:45
V D5Ent je taky, pri instalaci se ti nabidne hned v uvodu.
Pavel
> Od: Jiri Foldyna [mailto:jiri.f(zv)avizo(tec)cz]
> > > muzete nekdo doporucit nejaky nastroj na tvorbu instalaci
> > pomoci MSI ?
> > > Idealne free :-)))
> >
> > InstallShield Express - Borland limited edition (od Delphi 6
> > vyse), mas jej na
> > instalacnim CD.
>
> Bohuzel, instalacni CD od D6 vyse nevlastnim, neb vlastnim D5Ent :-((.
> Nejaky jiny tip ?
Soucet poli v gridu,bez fieldchange
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 21.10.2002 09:27:46
> Ahoj kluci chtel bych pri pohybu v gridu (pri insert,update) vzdy secist
> sloupec polii,jenze to asi nepujde pomoci field a prochazet,protoze se mi
> budou asi hejbat pole...Muzete mi prosim poradit nejaky figl aby se mi
radky
> pri scitani nehybali?
Ja bych si udelal Query (se sum(neco)), ktere bych volat po insertu nebo
updatu. Na SQL databazi bych to asi resil ulozenou procedurou, ktera by byla
opet volana po insertu nebo updatu.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
OT:Prepojovani kanalu ISDN
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 21.10.2002 09:30:52
Zdravim.
Poradi mi prosim nekdo jak na Win2000/XP behem pripojeni k podnikove siti
(callback) menit pocet pouzitych kanalu ISDN pripojeni.
Jde mi o to abych se pripojil jen jednim kanalem (64k) a pak behem pripojeni
podle potreby mohl dat povel k pripojeni dalsiho kanalu (128k) a zase prejit
na jeden kanal.
Pripojuji se z klientu Win2000/XP prof na Win2000 server pres "Smerovani a
vzdaleny pristup"
V tomto pripade mi nejde pouze o programove reseni (z Delphi) a pripadne mi
to staci i normalne "uzivatelsky" v systemu protoze ani na to jsem neprisel.
Diky Ludek
OT : ponuka prace
[*] <delphin(zv)centrum.sk> - 21.10.2002 09:33:25
N�pl� pr�ce
Pr�ca na softv�rovom projekte ekonomick�ho syst�mu Money S3
Po�iadavky na zamestnanca
Dobr� znalos� Borland DELPHI podmienkou
Prax na projektoch v DELPHI v�hodou
Pon�kan� plat
15 - 25 tis. Sk
Miesto pr�ce
Bratislava II
Term�n n�stupu
pod�a dohody
Druh pracovn�ho pomeru
hlavn� pracovn� pomer
Poz�cia vhodn� pre absolventa (kandid�ta bez praxe)
�no
In� v�hody
pr�ca v mladom kolekt�ve
pohybliv� pracovn� doba
mo�nos� �a��ieho odborn�ho rastu
Inform�cie pre uch�dza�a
Ponuky prij�mame v�lu�ne elektronickou po�tou.
V ponuke uve�te
stru�n� �ivotopis
dosiahnu� vzdelanie
odborn� prax
preh�ad pr�c a projektov
Stru�n� charakteristika spolo�nosti
V�voj a predaj ekonomick�ch syst�mov Money2000, S3
Adresa
C�GLER SOFTWARE Slovakia, a.s.
Slia�ska 10
831 02 Bratislava
Kontaktn� osoba: Peter Svetl�k
Tel.: 02 / 44 46 27 46
Fax: 02 / 44 46 22 91
E-mail: psvetlik(zv)ciglersw.sk
WWW adresa: http://www.ciglersw.sk
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
OT: Informix
[*] Tom� Fajman��������ڎf����{� - 21.10.2002 09:42:32
Zdravim vsechny, nevite nekdo nahodou jak zmenim format datumu na
Informixu(serveru) nasel jsem si nekde v pricurce ze to zajisti promena
dbdate ale kdyz to nasetuju, tak se vubec nic nezmeni a pokracuje si to dal
v puvodnim formatu. Za pripadny odpovedi predem dikes
Drag and drop kde je chyba
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.10.2002 09:49:38
Zdravim
pomoci teto zapisu do edit6 presunuty soubor na formular.
jenze mi to nejak nefunguje a nevim vubec proc. ve starem programu mi
to fungovalo ale tady ne proc ?
PROCEDURE TAddNewRecord.FileIsDropped ( VAR Msg : TMessage ) ;
var
hDropData: HDROP;
i, iCount, iLength: Integer;
pFile: PChar;
s:string;
begin
with Msg do
begin
if Msg = WM_DROPFILES then
begin
hDropData := THandle(wParam);
iCount := DragQueryFile(hDropData, $FFFFFFFF, nil, 0);
for i := 0 to iCount - 1 do
begin
iLength := DragQueryFile(hDropData, i, nil, 0);
pFile := StrAlloc(iLength + 1);
DragQueryFile(hDropData, i, pFile, iLength + 1);
s:=StrPas(pfile);
edit6.text:=copy(s,14,length(s));
StrDispose(pFile);
end;
DragFinish(hDropData);
Result := 0;
end
end;
END ;
+ tohle
procedure TAddNewRecord.FormCreate(Sender: TObject);
begin
DragAcceptFiles( Handle,True ) ;
end;
end.
OT: firewall & proxy
[*] Kalus Jozef Ing. <jozef.kalus(zv)spordat.sk> - 21.10.2002 09:49:38
zdravim,
sorry za OT ale chcel by som sa spytat ci tu ma niekto skusenosti s
Firewall-mi, mam nasledujucu situaciu:
mikrovlne spojenie->PC(2 siet karty) soft WinRoute os WinMe->lokalna siet
W9x
a niekto sa nam prebil na lokalku a nechava nam odkazy na desktopoch, co je
dost neprijemne. Rozmyslal som nad Tiny Firewall-om ale nemam s nicim takym
skusenosti. Pocul som ze Win2000 BackOffice Server ma nieco take ako
Internet Security... ale tiez som to nevidel, nechcel by som robit nic
zlozite ale aby to bolo riadne ucinne, ide mi len o priepustnost HTTP
pripadne FTP.
dik za kazdu pomoc
info prosim na mailto:jozef.kalus(zv)spordat.sk mimo konferenciu
joka
------------------------------------------------------------------------
Ing. Jozef Kalus
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
www: http://www.equipment.sk
Soucet poli v gridu,bez fieldchange
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 21.10.2002 09:06:03
Pavel ZIDEK, <mailto:delphi(zv)kopr(tec)cz> napsal:
> Jestlize potrebujes projet tabulku - secist apod. - a nechces aby se ti
> opticky nepohyboval DBGrid, zaloz si jeste jednu TTable2, ktera se odkazuje
> stejne jako ta prvni na danou tabulku a projizdej pro souctu a jine vypocty
> tu druho tabulku. Bude to i rychlejsi, protoze nebude dochazet k
> vykreslovani na DBGrid.
Tabulku zobrazenou v DBGridu bez prekreslovani prochazim takto:
with Tabulka do begin
try
DisableControls;
BookMarkTab := GetBookmark;
First;
while not EOF do begin
...
tady jsou soucty atd.
...
Next;
end; //while
finally
GotoBookmark(BookMarkTab);
EnableControls;
end;
end; //with
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Re[2]: DISTINCT vo viacerych stlpcoch
[*] Ing. Pavel �ilinec����)b���zf���3 - 21.10.2002 10:06:08
To ano, ale nejde o kombinace, jak chtel Ludo, tj. aby radky
1, 2, 3
3, 2, 1
2, 1, 3
... daly jen jeden vysledek (napr. 1, 2, 3), coz distinct neudela, pze
pro nej jsou vsechny radky vyhovujici
Ja osobne nevim, jak by to slo rozumne udelat. Resenim, ktere
mne napadlo, by bylo rozsireni struktury o X (bit), ktere by
oznacovalo jeden zaznam v kombinaci pro vyber.
Pak bys ale musel zajistit, ze pri vkladani kombinacnich poli A, B, C
by si vsechny stejne kombinace oznacil na 0 a tuto na 1 (a bude
zajistena jedinecnost).
Delat by to slo i pri vyberu, ale asi by to bylo mnohem slozitejsi a
zrejme i prilis zdlouhave pro vsechny zaznamy.
(oprava na 0)
update T
set B = 0
where (A = (zv)A and B = (zv)B and C = (zv)C) or
(A = (zv)B and B = (zv)C and C = (zv)A) or
... pro vsechny kombinace
Pak by pro vyber stacilo napsat
select *
from T
where B = 1
Pokud ma nekdo jiny napad, vcelku by mne zajimalo, jak to lze jeste
vyresit. Toto mi pripadne moc slozite :)
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
RT> <<< 21. 10. 2002 8:52 - Ludo Fulop "kexo(zv)ynet.sk" >>>
LF>> zdravim, ako mozem z databazy vybrat len tie riadky, ktore nemaju zhodnu
LF>> kombinaciu hodnot napr. z troch stlpcov?
LF>> Ludo Fulop
RT> select distinct stlpec1,stlpec2,stlpec3 ...
RT> distinct hovori o tom ze riadok musi byt jedinecny
Drag and drop kde je chyba
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 10:38:57
Ahoj,
> pomoci teto zapisu do edit6 presunuty soubor na formular.
> jenze mi to nejak nefunguje a nevim vubec proc. ve starem programu mi
> to fungovalo ale tady ne proc ?
>
>
>
> PROCEDURE TAddNewRecord.FileIsDropped ( VAR Msg : TMessage ) ;
> var
> hDropData: HDROP;
> i, iCount, iLength: Integer;
> pFile: PChar;
> s:string;
> begin
> with Msg do
> begin
> if Msg = WM_DROPFILES then
> begin
> hDropData := THandle(wParam);
> iCount := DragQueryFile(hDropData, $FFFFFFFF, nil, 0);
> for i := 0 to iCount - 1 do
> begin
> iLength := DragQueryFile(hDropData, i, nil, 0);
> pFile := StrAlloc(iLength + 1);
> DragQueryFile(hDropData, i, pFile, iLength + 1);
> s:=StrPas(pfile);
> edit6.text:=copy(s,14,length(s));
> StrDispose(pFile);
> end;
> DragFinish(hDropData);
> Result := 0;
> end
> end;
>
> END ;
>
> + tohle
> procedure TAddNewRecord.FormCreate(Sender: TObject);
> begin
> DragAcceptFiles( Handle,True ) ;
>
> end;
>
> end.
Ten kod vyzera byt v poriadku, ale procedura FileIsDropped musi byt
odniekial volana. Mas ju v deklaracii triedy oznacenu direktivou message
WM_DROPFILES?
Okrem toho, ak je tych suborov viac, edit6.text sa prepisuje kazdym z nich a
nakoniec tam zostane meno toho posledneho suboru. Nepises, co konkretne
nefunguje.
Tu je (velmi podobny) kod, ktory pouzivam ja, neprisiel som na ziadne
problemy s nim a obsahuje kompletne vsetko, co potrebujes na spracovanie
WM_DROPFILES:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
end;
implementation
uses
ShellApi;
procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var
FileCount, I: Integer;
FileName: PChar;
FileNameSize: Integer;
begin
try
FileCount := DragQueryFile(Message.Drop, Cardinal(-1), nil, 0);
for I := 0 to FileCount - 1 do
begin
FileNameSize := DragQueryFile(Message.Drop, I, nil, 0);
FileName := AllocMem(FileNameSize + 1);
try
DragQueryFile(Message.Drop, I, FileName, FileNameSize + 1);
OutputDebugString(FileName);
finally
FreeMem(FileName);
end;
end;
finally
DragFinish(Message.Drop);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, True);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;
Okrem toho mam este napisanu jednu starodavnu komponentu TDropFiles, ktora
ma property Control: TWinControl, ktoru registruje pomocou DragAcceptFiles a
za behu subclassne a potom pri WM_DROPFILES spusti OnDropFiles event.
Vyhodou je, ze si takto mozes registrovat lubovolnu TWinControl (TMemo
apod.) na formulari bez toho, aby si pisal novu triedu kvoli spracovaniu tej
spravy. Ak ma niekto zaujem, mozem ten kod oprasit a poslat sem.
HTH
TOndrej
Optimalne indexi pre tabulku
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 21.10.2002 10:48:24
zdravim vsetkych, Nevie mi niekto poslat nejaky link na %subj%
diky Laco
DBGrid v Okne
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 21.10.2002 11:12:30
Ahoj,
prosim o radu. Vytvorim si formular (TForm.Create) a DBGrid (TDBGrid). Fajn, ale chtel bych, aby onen grid se objevil v onom formu...
Diky
V.
odstraneni prehravani defaultniho zvuku Windows pr
[*] Martin Kozusky <delphi(zv)novalis.dyndns.org> - 21.10.2002 11:14:47
Ahoj,
nevite nekdo jak odstranit prehravani defatultniho zvuku windows, kdyz mam v
Editu v udalosti OnKeyDown napsane toto:
---
if key=vk_Return then b_answer.Click;
--
vzdy, kdyz potom v tom editu zmacknu enter, zahraje ten zvuk :( nechci
vypinat zvuky windows, jde to odstranit nejak jinak?
Diky,
Martin
DBGrid v Okne
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.10.2002 11:15:58
Musis u toho DBGridu nastavit nejen Top, Width apod, ale take property
Parent. Pokud to delas v ramci toho formu, pak Parent:= self.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: DBGrid v Okne
Ahoj,
prosim o radu. Vytvorim si formular (TForm.Create) a DBGrid
(TDBGrid). Fajn, ale chtel bych, aby onen grid se objevil v onom formu...
DBGrid v Okne
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 21.10.2002 11:20:58
[P��loha v souboru: winmail.dat]
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
DBGrid.Parent:=Form;
DBGrid.Top ...
Danik
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of LUKES V�clav
Sent: Monday, October 21, 2002 11:13 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: DBGrid v Okne
Ahoj,
prosim o radu. Vytvorim si formular (TForm.Create) a DBGrid (TDBGrid). Fajn,
ale chtel bych, aby onen grid se objevil v onom formu...
Diky
V.
Nero Burning Rom
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 21.10.2002 11:26:09
nekdy dela problemy pokud nechas instalovane InCD a DirectCD najednou, pri
instalaci Nera je hlaska ze pokud pouzivas DirectCD doporucuje se jeho
odinstalace. Mozna ti to pak nekorektne vyhodnocuji drivery na tva zarizeni.
Pavel Mattivi
Dezadata spol. s r.o.
Mostn� 102
757 01, Vala�sk� Mezi����
tel.: 571 618 939, tel./fax: 571 618 933
mobil: 608 743 824
pmattivi(zv)dezadata(tec)cz
> Pokud ma nekdo zkusenosti s timto SW, pripadne kombinaci Nera a directu CD
z
> Creatora budu vdecny za jakoukoliv informaci.
>
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
Komponenty a jejich ikony
[*] Zdenek Stepanek <webmaster(zv)rokaglass(tec)com> - 21.10.2002 11:41:05
Zdravim
I kdyz to problem neresi, tak ty komponenty tam jsou, a pokud si nechas
zobrazit hint, tak uvidis, co to je zac a muzes ji normalne pouzit.
Zdenek
-----Original Message-----
po nainstalovani komponent - a nebyly to RX se mi rozdrbaly nektere
ikony u komponent, jsou na pul posunute a zbytek dokreslenej z jinych
komponent, posledni jsou cerne.
Da se st�m neco udelat.
Uz sem to 2x reinstaloval, ty komponenty potrebuju,
odstraneni prehravani defaultniho zvuku Windows pr
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.10.2002 11:50:30
21.10.2002 Martin Kozusky:
> Ahoj,
> nevite nekdo jak odstranit prehravani defatultniho zvuku windows, kdyz mam v
> Editu v udalosti OnKeyDown napsane toto:
> ---
> if key=vk_Return then b_answer.Click;
> --
if key=vk_Return then
begin
b_answer.Click;
Key := 0;
end;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
capture videa v delphi pomoci DSPACK
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 21.10.2002 11:54:51
> Od: Sula Milos [SMTP:milos.sula(zv)oku-su(tec)cz]
> Mate nekdo zkusenosti s DSPack a ukladani videa z kamery + komprese ?
> Nejaky example tam je ale ukladani do avi z kamery + komprese tam neni.
>
Zkus se probrat priklady jinych autoru na strance DSPacku ("Donations" - http://www.progdigy.com/donation/index.html),
pripadne primo JEDI-DirectX - sekce priklady (http://www.crazyentertainment.net), tam je toho mnohem vic.
Ober
Tvorba instalace pro MSI
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 21.10.2002 11:57:26
> V D5Ent je taky, pri instalaci se ti nabidne hned v uvodu.
> Pavel
>
> > Od: Jiri Foldyna [mailto:jiri.f(zv)avizo(tec)cz]
> > > > muzete nekdo doporucit nejaky nastroj na tvorbu instalaci
> > > pomoci MSI ?
> > > > Idealne free :-)))
> > >
> > > InstallShield Express - Borland limited edition (od Delphi 6
> > > vyse), mas jej na
> > > instalacnim CD.
Ahoj, diky za odpoved, nevsiml jsem si toho, protoze jsem Delphi uz nejakeho
3/4 roku neinstaloval.
Mas s tim IS nejake zkusenosti ? Ja uz nekolik let pouzivam InnoSetup, ale
okolnosti me trochu tlaci k MSI, ktery InnoSetup nepodporuje. V kostce:
potrebuji nekolik variant instalace (klient, server), praci s registry,
fonty, spusteni programu po instalaci a pred odinstalaci, instalace/spusteni
service a zastaveni/odinstalace service, ikony na plochu, shortcut do menu,
ceske texty.
InstallShield SE jsem zkousel snad jen v D3, a tehdy me docela znechutil,
takze jsem dalsi verze z Delphi uz ani nezkousel.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
odstraneni prehravani defaultniho zvuku Windows pr
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 11:59:01
> nevite nekdo jak odstranit prehravani defatultniho zvuku
> windows, kdyz mam v
> Editu v udalosti OnKeyDown napsane toto:
>
> ---
> if key=vk_Return then b_answer.Click;
> --
>
> vzdy, kdyz potom v tom editu zmacknu enter, zahraje ten zvuk
> :( nechci
> vypinat zvuky windows, jde to odstranit nejak jinak?
Ahoj, najjednoduchsie to bude asi takto:
type
TForm1 = class(TForm)
private
procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
end;
implementation
procedure TForm1.CMDialogKey(var Message: TCMDialogKey);
begin
with Message do
if (CharCode = VK_RETURN) and (KeyDataToShiftState(KeyData) = []) and
(ActiveControl = Edit1) then
begin
with TMessage(Message) do
Edit1.Perform(WM_KEYDOWN, WParam, LParam);
Result := 1;
end
else
inherited;
end;
HTH
TOndrej
Re[2]: Drag and drop kde je chyba
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 21.10.2002 12:11:39
Cau
no chybelo mi tam to message WM_DROPFILES;. Nevsiml jsem si toho.
Diky moc
Milan
OK> Ahoj,
>> pomoci teto zapisu do edit6 presunuty soubor na formular.
>> jenze mi to nejak nefunguje a nevim vubec proc. ve starem programu mi
>> to fungovalo ale tady ne proc ?
>>
>>
>>
>> PROCEDURE TAddNewRecord.FileIsDropped ( VAR Msg : TMessage ) ;
>> var
>> hDropData: HDROP;
>> i, iCount, iLength: Integer;
>> pFile: PChar;
>> s:string;
>> begin
>> with Msg do
>> begin
>> if Msg = WM_DROPFILES then
>> begin
>> hDropData := THandle(wParam);
>> iCount := DragQueryFile(hDropData, $FFFFFFFF, nil, 0);
>> for i := 0 to iCount - 1 do
>> begin
>> iLength := DragQueryFile(hDropData, i, nil, 0);
>> pFile := StrAlloc(iLength + 1);
>> DragQueryFile(hDropData, i, pFile, iLength + 1);
>> s:=StrPas(pfile);
>> edit6.text:=copy(s,14,length(s));
>> StrDispose(pFile);
>> end;
>> DragFinish(hDropData);
>> Result := 0;
>> end
>> end;
>>
>> END ;
>>
>> + tohle
>> procedure TAddNewRecord.FormCreate(Sender: TObject);
>> begin
>> DragAcceptFiles( Handle,True ) ;
>>
>> end;
>>
>> end.
OK> Ten kod vyzera byt v poriadku, ale procedura FileIsDropped musi byt
OK> odniekial volana. Mas ju v deklaracii triedy oznacenu direktivou message
OK> WM_DROPFILES?
OK> Okrem toho, ak je tych suborov viac, edit6.text sa prepisuje kazdym z nich a
OK> nakoniec tam zostane meno toho posledneho suboru. Nepises, co konkretne
OK> nefunguje.
OK> Tu je (velmi podobny) kod, ktory pouzivam ja, neprisiel som na ziadne
OK> problemy s nim a obsahuje kompletne vsetko, co potrebujes na spracovanie
OK> WM_DROPFILES:
OK> type
OK> TForm1 = class(TForm)
OK> procedure FormCreate(Sender: TObject);
OK> procedure FormDestroy(Sender: TObject);
OK> private
OK> procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
OK> end;
OK> implementation
OK> uses
OK> ShellApi;
OK> procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
OK> var
OK> FileCount, I: Integer;
OK> FileName: PChar;
OK> FileNameSize: Integer;
OK> begin
OK> try
OK> FileCount := DragQueryFile(Message.Drop, Cardinal(-1), nil, 0);
OK> for I := 0 to FileCount - 1 do
OK> begin
OK> FileNameSize := DragQueryFile(Message.Drop, I, nil, 0);
OK> FileName := AllocMem(FileNameSize + 1);
OK> try
OK> DragQueryFile(Message.Drop, I, FileName, FileNameSize + 1);
OK> OutputDebugString(FileName);
OK> finally
OK> FreeMem(FileName);
OK> end;
OK> end;
OK> finally
OK> DragFinish(Message.Drop);
OK> end;
OK> end;
OK> procedure TForm1.FormCreate(Sender: TObject);
OK> begin
OK> DragAcceptFiles(Handle, True);
OK> end;
OK> procedure TForm1.FormDestroy(Sender: TObject);
OK> begin
OK> DragAcceptFiles(Handle, False);
OK> end;
OK> Okrem toho mam este napisanu jednu starodavnu komponentu TDropFiles, ktora
OK> ma property Control: TWinControl, ktoru registruje pomocou DragAcceptFiles a
OK> za behu subclassne a potom pri WM_DROPFILES spusti OnDropFiles event.
OK> Vyhodou je, ze si takto mozes registrovat lubovolnu TWinControl (TMemo
OK> apod.) na formulari bez toho, aby si pisal novu triedu kvoli spracovaniu tej
OK> spravy. Ak ma niekto zaujem, mozem ten kod oprasit a poslat sem.
OK> HTH
OK> TOndrej
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
odstraneni prehravani defaultniho zvuku Windows pr
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.10.2002 12:11:20
21.10.2002 Ondrej Kelle:
>> nevite nekdo jak odstranit prehravani defatultniho zvuku
>> windows, kdyz mam v
>> Editu v udalosti OnKeyDown napsane toto:
>>
>> vzdy, kdyz potom v tom editu zmacknu enter, zahraje ten zvuk
>> :( nechci
>> vypinat zvuky windows, jde to odstranit nejak jinak?
> Ahoj, najjednoduchsie to bude asi takto:
> type
> TForm1 = class(TForm)
> private
> procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
> end;
> implementation
> procedure TForm1.CMDialogKey(var Message: TCMDialogKey);
> begin
> with Message do
> if (CharCode = VK_RETURN) and (KeyDataToShiftState(KeyData) = []) and
> (ActiveControl = Edit1) then
> begin
> with TMessage(Message) do
> Edit1.Perform(WM_KEYDOWN, WParam, LParam);
> Result := 1;
> end
> else
> inherited;
> end;
To mi pripomina ten povestny clanek o reseni odeslani e-mailu na
od programatora po reditele na Unixu.
Tohle je tak na urovni vedouciho projektu :-)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Re[2]: DISTINCT vo viacerych stlpcoch
[*] Radek KALA <Kala(zv)BetaControl(tec)cz> - 21.10.2002 12:19:08
Napadaji mne dve moznosti.
1. Ulozenou procedurou.
Ulozena procedura ve stylu
For select a,b,c
from table
into a,b,c
do begin
if a > b then begin
pom = b;
b = a;
a = pom;
end
if b > c then begin
pom = c;
c = b;
b = pom;
end
if a > b then begin
pom = b;
b = a;
a = pom;
end
suspend;
end
no a z teto procedury si udelas select
select distinct a,b,c
from procedura
2. To bych jeste musel domyslet, a potrebuji na to znat rozsahy tech
cisel, a zda muze existovat i kombinace 2,2,1 nebo . 2,2,2 a pod.
> To ano, ale nejde o kombinace, jak chtel Ludo, tj. aby radky
> 1, 2, 3
> 3, 2, 1
> 2, 1, 3
> ... daly jen jeden vysledek (napr. 1, 2, 3), coz distinct neudela, pze
> pro nej jsou vsechny radky vyhovujici Ja osobne nevim, jak by to slo
> rozumne udelat. Resenim, ktere mne napadlo, by bylo rozsireni
> struktury o X (bit), ktere by oznacovalo jeden zaznam v kombinaci pro
> vyber. Pak bys ale musel zajistit, ze pri vkladani kombinacnich poli
> A, B, C by si vsechny stejne kombinace oznacil na 0 a tuto na 1 (a
> bude zajistena jedinecnost). Delat by to slo i pri vyberu, ale asi by
> to bylo mnohem slozitejsi a zrejme i prilis zdlouhave pro vsechny
> zaznamy.
>
> (oprava na 0)
> update T
> set B = 0
> where (A = (zv)A and B = (zv)B and C = (zv)C) or
> (A = (zv)B and B = (zv)C and C = (zv)A) or
> ... pro vsechny kombinace
>
> Pak by pro vyber stacilo napsat
> select *
> from T
> where B = 1
>
> Pokud ma nekdo jiny napad, vcelku by mne zajimalo, jak to lze jeste
> vyresit. Toto mi pripadne moc slozite :)
>
> --------
> ing. Pavel Zilinec
> MailTo:zilinec(zv)email(tec)cz
>
> Prog-Soft s.r.o. Plzen
> Informacni system pro vyrobce
> a distributory napoju
>
> RT> <<< 21. 10. 2002 8:52 - Ludo Fulop "kexo(zv)ynet.sk" >>>
> LF>> zdravim, ako mozem z databazy vybrat len tie riadky, ktore nemaju
> zhodnu LF>> kombinaciu hodnot napr. z troch stlpcov? LF>> Ludo Fulop
>
> RT> select distinct stlpec1,stlpec2,stlpec3 ...
>
> RT> distinct hovori o tom ze riadok musi byt jedinecny
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Komponenty a jejich ikony
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 12:54:44
From: "Valenta P" <valentapat(zv)volny(tec)cz>
> po nainstalovani komponent - a nebyly to RX se mi rozdrbaly nektere ikony u
> komponent, jsou na pul posunute a zbytek dokreslenej z jinych komponent,
> posledni jsou cerne.
Tohle vypada na klasickou chybu driveru nekterych levnych videokaret. Jaka je
to presne verze Windows a jaka videokarta ?
Petr Vones
Podpora DBF nebo nejake jednoduche databaze pro Tu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 21.10.2002 12:55:51
> Odes�latel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> Tusim, ze to umela nadstavba FiendlyPascal. Jestli ji jeste nekde
> sezenes, to nevim.
> Odkaz jsem nasel i na strankach http://www.haes(tec)cz/haes.htm
> RNDr. Vladim�r Bode�ek. Mozna ti pomuze Honza Sebelik
Friendly Pascal od V.Bodecka a kolektivu podporu DBF nemel.
Byla tam slusna podpora pro indexsekvencni soubory, chodilo to rychle a spolehlive. Ale zadne DBF.
Z nedatabazovych veci tam byly slusne udelany "okna" pod DOS, menu atd.
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)
=========================================
odstraneni prehravani defaultniho zvuku Windows pr
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 13:07:06
> To mi pripomina ten povestny clanek o reseni odeslani e-mailu na
> od programatora po reditele na Unixu.
> Tohle je tak na urovni vedouciho projektu :-)
Vdaka za uznanie, ale aspon to funguje, na rozdiel od Tvojho kodu ;-)
Da sa to riesit aj inak, ale ako som pisal, tento sposob mi pripada
najjednoduchsi.
HTH
TOndrej
Prepojovani kanalu ISDN
[*] Miroslav Ondrisek <ondrisek(zv)seznam(tec)cz> - 21.10.2002 13:20:24
Presne toto umi software KEN!(proxy/mail server), ktery se dodava spolu s
ISDN aktivnimi kartami B1 firmy AVM. Dokonce si muzes nastavit, pri jakem
procentualnim zatizeni prvniho kanalu se druhy kanal pripoji/odpoji. Takze
jde to urcite. Musi to ale take podporovat provider (ja pouzivam Tiscali).
Mira Ondrisek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ludek ZITA
> Sent: Monday, October 21, 2002 9:31 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT:Prepojovani kanalu ISDN
>
>
> Zdravim.
> Poradi mi prosim nekdo jak na Win2000/XP behem pripojeni k podnikove siti
> (callback) menit pocet pouzitych kanalu ISDN pripojeni.
...
> V tomto pripade mi nejde pouze o programove reseni (z Delphi) a
> pripadne mi > to staci i normalne "uzivatelsky" v systemu protoze ani na
to
> jsem neprisel.
odstraneni prehravani defaultniho zvuku Windows pr
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 21.10.2002 13:22:07
> > Ahoj,
> > nevite nekdo jak odstranit prehravani defatultniho zvuku
> windows, kdyz mam v
> > Editu v udalosti OnKeyDown napsane toto:
>
> > ---
> > if key=vk_Return then b_answer.Click;
> > --
>
> if key=vk_Return then
> begin
> b_answer.Click;
> Key := 0;
> end;
Ahoj,
tohle nestaci, je treba obslouzit podobne jeste OnKeyPress (tusim, ze Key :=
#0).
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Program na spravu zdrojakov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 13:24:27
From: "Kalus Jozef Ing." <jozef.kalus(zv)spordat.sk>
> potreboval by som nejak spravovat zdrojaky s rozumnou moznostou backupovania
> (aby sa to z backupu dalo vytiahnut za pomoci standartnych programov) na
> sposob MS SourceSafe, ak mate niekto nejake dobre skusenosti s niecim
> dobrym, prosim hodte info, moze byt aj nieco platene za rozumnu cenu :o)
http://www.freevcs.de
Petr Vones
OT Nastaveni MSIE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 13:26:08
From: "Plisek Jan Ing." <Plisek(zv)spse(tec)cz>
> Pritom mam v Moznostech Internetu nastavenu na karte
> Zabezpeceni pro Internet vlastni uroven zabezpeceni a v ni
> "Spoustet ovladaci prvky ActiveX a moduly plug-in" ... Povolit
Doporucuju pouzivat v IE bezpecnostni zony, kde si u urcitych adres muzes
nastavit nizsi zabezpeceni a tim i vsechny mozne ActiveXy.
Petr Vones
Zprava z DLL knihovny
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2002 13:30:57
From: "Pavel Poles" <poles(zv)student.fsid.cvut(tec)cz>
> mam vytvorenou DLL knihovnu, z ktere volam funkci na zobrazeni Dialogoveho
> Boxu:
>
> procedure ZobrazChybu(index: integer);
> begin
> MessageDlg('Chyba!',LoadStr(index), mtError, [mbOK],0);
> end;
Patrne je to tim, ze DLL neni prelozena s runtime balicky, takze se v jednom
procesu nachazi dvakrat 'cela VCL', vcetne dvou instanci TApplication. Budto
preloz vsechno s balicky nebo pouzij Windows API funkci MessageBox pro ten
dialog.
> A druhy dotaz, takto se mi zobrazi MessageBox, ale neni vuci klientu
> modalni, jak to zaridit??
Viz predchozni odpoved, pokud to prelozis s balicky bude to fungovat jak ma, v
opacnem pripade musis do te DLL nejak predat Application.Handle z EXE.
Petr Vones
odstraneni prehravani defaultniho zvuku Windows pr
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 21.10.2002 13:31:55
21.10.2002 Ondrej Kelle:
>> To mi pripomina ten povestny clanek o reseni odeslani e-mailu na
>> od programatora po reditele na Unixu.
>> Tohle je tak na urovni vedouciho projektu :-)
> Vdaka za uznanie, ale aspon to funguje, na rozdiel od Tvojho kodu ;-)
Pokud jsem pochopil, jde mu o pipnuti po stisku Enter.
Moje chyba byla, ze jsem prehledl, ze je to v OnKeyDown.
Staci umistit kod do OnKeyPress a uz to fungovat bude.
if Key = Chr(VK_RETURN) then
begin
Button1.Click;
Key := #0;
end;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
odstraneni prehravani defaultniho zvuku Windows pr
[*] David Michal <david.michal(zv)www-bv(tec)com> - 21.10.2002 13:41:02
Zdravim,
Ten jeho kod funguje take. :)
Jen je treba psat key := Char(0); a ne pouze key := 0; :))
Preci jen mi tento radek prijde jednodusi. A pouzivam to take.
David
Vdaka za uznanie, ale aspon to funguje, na rozdiel od Tvojho kodu ;-)
Da sa to riesit aj inak, ale ako som pisal, tento sposob mi pripada
najjednoduchsi.
HTH
TOndrej
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.404 / Virus Database: 228 - Release Date: 15/10/2002
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.404 / Virus Database: 228 - Release Date: 15/10/2002
odstraneni prehravani defaultniho zvuku Windows pr
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 21.10.2002 13:42:29
> Pokud jsem pochopil, jde mu o pipnuti po stisku Enter.
>
> Moje chyba byla, ze jsem prehledl, ze je to v OnKeyDown.
> Staci umistit kod do OnKeyPress a uz to fungovat bude.
>
> if Key = Chr(VK_RETURN) then
> begin
> Button1.Click;
> Key := #0;
> end;
Mas pravdu, tak je to jednoduchsie :-)
Hlboko otraseny davam vypoved a idem hladat nejaku menezersku poziciu. :-P
Ale vazne, bolo to poucne. Diky.
Prajem krasny den s Delphi...
TOndrej
SelectAll v bunce TDBGridu
[*] Jan Naiser <tua(zv)wo(tec)cz> - 21.10.2002 13:45:45
Preji pekny den,
(D6, W2k)
potreboval bych programove v TDBGridu po prejiti do editovaciho rezimu
oznacit vse v bunce - SelectAll. Nejak se mi nedari najit cim.
Dekuji, Honza.