Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OT: Dva monitory
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 27.9.2001 10:53:20
Ahoj,
rychle se schyluje k tomu, ze budu mit na stole 2 monitory (19" a 17") spolu
s kartou Matrox G450 DualHead. Pouzivate nekdo dvoumonitorovou konfiguraci
pri praci s Delphi a jak ?
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
MS SQL,ADONIS - vyvolani SQL prikazu ulozenem v te
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 27.9.2001 09:59:09
Ahoj,
priklad priamo z BOL ako to je mozne urobit (samozrejme po upravach):
DECLARE tables_cursor CURSOR
FOR
SELECT name FROM sysobjects WHERE type = 'U'
OPEN tables_cursor
DECLARE (zv)tablename sysname
FETCH NEXT FROM tables_cursor INTO (zv)tablename
WHILE ((zv)(zv)FETCH_STATUS <> -1)
BEGIN
/* A (zv)(zv)FETCH_STATUS of -2 means that the row has been deleted.
There is no need to test for this because this loop drops all
user-defined tables. */.
EXEC ('DROP TABLE ' + (zv)tablename)
FETCH NEXT FROM tables_cursor INTO (zv)tablename
END
PRINT 'All user-defined tables have been dropped from the database.'
DEALLOCATE tables_cursor
automaticky login do Novell ve Win2k
[*] Rastislav Lazan <lazan(zv)nr.dflex.sk> - 27.9.2001 11:01:07
V ovladacich paneloch - Siet - Primarne prihlasenie do siete si nastav
Novell NetWare Client...
R. Lazan
Lazan(zv)nr.dflex.sk
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Milan #ݿek
Sent: Thursday, September 27, 2001 10:50 AM
To: Konference Delphi
Subject: OT: automaticky login do Novell ve Win2k
ahoj,
vite nekdo, jak donutit Win2k, aby se napr. po restartu samy
prihlasili do site Novell? Na NT je to v pohode, ale na Win2k se mi
to nemuze povest. Vsiml jsem si, ze vzdy po prehlaseni se vyprazdni
hodnoty v registru u NW (server,tree...), a proto se to asi nedari.
jak na to? Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/PowerPDF, D5 Profi
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 27.9.2001 11:01:12
najdes ji na www.torry.ru
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
-----Original Message-----
From: Petr Palicka [mailto:petr.palicka(zv)atlas(tec)cz]
Sent: Thursday, September 27, 2001 9:44 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: PowerPDF, D5 Profi
a kdepak ta komponenta roste, pekne prosim?Volba
[*] <reportcz(zv)centrum(tec)cz> - 27.9.2001 11:11:48
Dobry den,
rad bych si od Vas nechal poradit. Jsem zacinajic� programator,
mam nejake zkusenosti s progamovanim v Pascalu a C. Nyni jsem se
rozhodl spolupracovat na jednom projektu, jeho� hlavni casti je
prevod databazovych aplikaci, vytvorenych ve FoxPro, na nejakou
novejsi platformu.
Uvazuji v zasade o techto moznostech: Borland Delphi, Visual
Basic, nebo Visual C++/Builder C++.
Zajimalo by me, ktery z techto jazyku je nejvhodnejsi, ma
nejlepsi nastroje pro praci s databazemi, pripadne ktery z nich
ma "svetlou" budoucnost a vyplati se mi, zabyvat se jim
podrobneji.
Diky za odpoved
Vojta Krmicek
-----
SMS na mobily v#ech t�� oper�tor� - www.posliSMS(tec)cz
Result ze stored procedury
[*] Petr Fojt�k <fof(zv)foresta(tec)cz> - 27.9.2001 11:14:03
Mam Delphi4 + ADONIS, MS SQL Server 2000 a 6.5 (nektere veci jeste musim
delat proti 6.5). Potreboval bych nejak spoutet v ruznych mistech programu
ruzne ulozene procedury a ziskavat jejich result. Nechce se mi to delat pres
ADOStoredProc, protoze nechci pokazde specifikovat seznam a typ parametru.
Jde mi zde o jednoduche stored procedury, ktere krome resultu nic nevraceji.
Zatim to delam pomoci takoveto funkce :
......
// "TextSP" je vstupni parametr, napr. 'sp_addlogin (zv)loginame=''karel'',
(zv)passwd=''heslo'''
// vytvoreni pomocne tabulky, provedeni stored procedure a zapis resultu do
pomocne tabulky
prikaz := 'IF EXISTS (SELECT 1 FROM tempdb..sysobjects WHERE
id=object_id(''tempdb..#resultSP''))'
+#13 +' DELETE FROM #resultSP ELSE CREATE TABLE #resultSP (result int
NOT NULL default -9)'
+#13 +'DECLARE (zv)resSP int'
+#13 +'exec (zv)resSP='+TextSP
+#13 +'INSERT INTO #resultSP SELECT (zv)resSP';
ADODataSet.SQL.Text := prikaz;
ADODataSet.ExecSQL;
ADODataSet.Active := False;
// a ted musime ziskat vysledek SP z pomocne tabulky
prikaz := 'select * from #resultSP';
ADODataSet.SQL.Text := prikaz;
ADODataSet.Open;
ADODataSet.First;
Result := ADODataSet.Fields[0].AsInteger;
........
Neznate nekdo elegantnejsi zpusob, napr. abych nemusel komunikovat s
databazi 2x ? Pripadne i jiny princip neni problem SP jakkoli spustit, ale s
resultem jsem si nijak lip poradit neumel.
A jeste jeden bych mel jeden dotaz, a sice jak spravne spoustet v programu
strored proceduru jejimz vysledkem je dataset, samozrejme abych mel tendo
dataset pristupny.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Petr Fojt�k, Foresta SG fof(zv)foresta(tec)cz
OT: IB Triggery nebo ForeignKey
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 27.9.2001 11:16:38
Ahoj vsem
Mohli by jste mi poradit jaky zpusob hlidani vazeb mezi tabulkami
je nejvhodnejsi (Triggery, ForeignKey)? Pripadne nastinit vyhody a nevyhody ruznych zpusobu?
Predem diky
Jirka
OT: automaticky login do Novell ve Win2k
[*] mstevlik(zv)gamo.sk - 27.9.2001 11:18:01
Pouzil som tuto zalezitost a bezi mi to:
..\ nahrad cestou k suboru
Do startupu:
..\loginw32.exe username /pwd=password /cont
V registroch:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon\GinaDLL=..\msgina.dll
Stevlik Marian
ISYS programator
GAMO a.s., Banska Bystrica
+421 48 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
OT: Dva monitory
[*] dphi_forum(zv)proces.sk - 27.9.2001 11:27:15
>Ahoj,
>
>rychle se schyluje k tomu, ze budu mit na stole 2 monitory (19" a 17")
spolu
>s kartou Matrox G450 DualHead. Pouzivate nekdo dvoumonitorovou konfiguraci
>pri praci s Delphi a jak ?
>
>Diky
>
>Ing. Jiri Foldyna
>mailto:jiri.f(zv)avizo(tec)cz
Ano a ide to v pohode, ale uz sa o tom tu hodne hovorilo (pisalo).Dva monitory
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.9.2001 11:29:14
vlevo DB model (sekundarni monitor)
pred sebou delphi (primarni ;)
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS OT: Dva monitory
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 27.9.2001 11:42:10
Ahoj,
omlouvam se za spatne polozeny dotaz. Ze to funguje a jak to zaridit, to
vim, vcera jsem to testoval. Spis mi jde o tipy, jak efektivne vyuzit pri
praci s Delphi fakt, ze mam dva monitory. Nejde o to, jak to zprovoznit, ale
spis o nejake vychytavky - co kam dat apod.
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> >Ahoj,
> >
> >rychle se schyluje k tomu, ze budu mit na stole 2 monitory
> (19" a 17")
> spolu
> >s kartou Matrox G450 DualHead. Pouzivate nekdo
> dvoumonitorovou konfiguraci
> >pri praci s Delphi a jak ?
> >
> >Diky
> >
> >Ing. Jiri Foldyna
> >mailto:jiri.f(zv)avizo(tec)cz
>
> Ano a ide to v pohode, ale uz sa o tom tu hodne hovorilo (pisalo).
Pouziti komponenty TDBF
[*] Michal Janu <janu(zv)stemmark(tec)cz> - 27.9.2001 11:53:05
Nazdarek borci v Delphi,
Pouzivam komponentu TDBF, ale mam problem, ze vyexportuji
data do DBF, ale mam problem.
1. v DBF nen� zapsan 29 Byte pro pouzite kodovani,
pak spatne prevadi kodovou stranku.
2. Komponenta zapise na disk pouze hlavicku DBF souboru,
a file zustava Access Denied dokud neskoncim
Application. Ja si chtel kodovani zapsat sam, ale
bohuzel je drzen.
Mate nekdo s touto komponentou zkusenosti?
Michal
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
automaticky login do Novell ve Win2k
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 27.9.2001 12:05:25
> V ovladacich paneloch - Siet - Primarne prihlasenie do siete si nastav
> Novell NetWare Client...
ahoj,
nic takoveho tam nenachazim - mam Win2k Prof, Novell Client for
Windows NT/2000 Release Notes 7/31/00.
Diky
> -----Original Message-----
> vite nekdo, jak donutit Win2k, aby se napr. po restartu samy
> prihlasili do site Novell? Na NT je to v pohode, ale na Win2k se mi
> to nemuze povest. Vsiml jsem si, ze vzdy po prehlaseni se vyprazdni
> hodnoty v registru u NW (server,tree...), a proto se to asi nedari.
>
> jak na to? Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/OT: IB Triggery nebo ForeignKey
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.9.2001 12:05:23
> Mohli by jste mi poradit jaky zpusob hlidani vazeb mezi tabulkami je
> nejvhodnejsi (Triggery, ForeignKey)? Pripadne nastinit vyhody a
> nevyhody ruznych zpusobu?
>
No, neco by se naslo v archivu, ale jinak si myslim, ze z hlediska
vykonu nebude mezi foreign key a triggerem zasadni rozdil.
Foreign key mi prijde rozumne pouzivat, pokud to jde, zejmena v
pripade kaskadoveho update pod., trigger ma ma zase jine
moznosti - treba poslat na klienta exception s rozumnym textem
apod., nicmene ten trigger nebo lepe receno ty triggery musi nekdo
napsat, udrzovat a eventualne vest dokumentaci... takze zalezi na
konkretnim pripade.
David Lebeda
Pouziti komponenty TDBF
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.9.2001 12:08:12
ja je pouzivam pouze pro import dat z dosu.
> 1. v DBF nen� zapsan 29 Byte pro pouzite kodovani,
> pak spatne prevadi kodovou stranku.
polozky sjou OK, problem delalo memo,
to delam rucne fci OemToChar asi takto:
s:=TCSmlTextH.AsString+#0;
OemToChar((zv)s[1], (zv)s[1]);
q.Params[2].AsString:=Copy(s, 1, Length(s)-1);
> 2. Komponenta zapise na disk pouze hlavicku DBF souboru,
> a file zustava Access Denied dokud neskoncim
> Application. Ja si chtel kodovani zapsat sam, ale
> bohuzel je drzen.
a zaviras ji?
TDBFtable1.Close;
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Sinea a Excel
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.9.2001 12:18:18
ja bych to resil tak, ze uzivatel uzavre preview a nejakym jinym
buttonkem spusti export. ten si budes muset udelat necim extra, mam
pocit ze nekdo povidal, ze pouziva csv nebo tsv (carkou nebo tabulatorem
oddelene hodnoty). excel to prej sezere (s priponou xls). nezaruceno.
pokud je uzivatel rozumny, mel by pochopit, ze ono preview je nahled
pred tiskem a nelze znej export spustit, nebot si vybral funkci pro
tisk.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS OT: Dva monitory
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 27.9.2001 12:26:18
> Spis mi jde o tipy, jak efektivne vyuzit pri
> praci s Delphi fakt, ze mam dva monitory. Nejde o to, jak to
> zprovoznit, ale
> spis o nejake vychytavky - co kam dat apod.
Velmi uzitocne to moze byt pri ladeni v paint procedurach... Delphi bezi na
monitore 1 a debugovana aplikacia na monitore 2, takze prepnutie do Delphi
nesposobi prekrytie okien Tvojej aplikacie a nasledne Invalidate.
Mozes krokovat kod a zaroven sledovat jeho priebeh v aplikacii. V podstate
ide o to, ze mas viac miesta a pohodlnejsiu pracu :-)
TOndrej
automaticky login do Novell ve Win2k
[*] Rastislav Lazan <lazan(zv)nr.dflex.sk> - 27.9.2001 12:29:20
Oprava:
V ovladacich paneloch - Sietove a telefonicke pripojenia - Pripojenie k
miestnej sieti - Vlastnosti - nastav check Novell Client for Win2000...
R. Lazan
Lazan(zv)nr.dflex.sk
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Milan #ݿek
Sent: Thursday, September 27, 2001 12:05 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: automaticky login do Novell ve Win2k
> V ovladacich paneloch - Siet - Primarne prihlasenie do siete si nastav
> Novell NetWare Client...
ahoj,
nic takoveho tam nenachazim - mam Win2k Prof, Novell Client for
Windows NT/2000 Release Notes 7/31/00.
Diky
> -----Original Message-----
> vite nekdo, jak donutit Win2k, aby se napr. po restartu samy
> prihlasili do site Novell? Na NT je to v pohode, ale na Win2k se mi
> to nemuze povest. Vsiml jsem si, ze vzdy po prehlaseni se vyprazdni
> hodnoty v registru u NW (server,tree...), a proto se to asi nedari.
>
> jak na to? Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/Sinea a Excel
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.9.2001 12:30:35
> Behalf Of Lebeda David
>
> nemate nekdo zkusenosti s resenim nasledujiciho?
>
> Aplikace pomoci Sinei tiskne pomerne jednoduchou sestavu -
> tabulka a nad ni nejake povidani. Zakaznik nyni chce volbu - bud
> tisk na tiskarnu nebo export do Excelu - s pokud mozno podobnou
> vizazi vysledku. Kudy se do toho pustit? Na cilovem pocitaci neni
> nainstalovan Excel.
>
> 1) Neumi novejsi verze Sinei export do nejakeho formatu,
> co Excel umi nacist?
Ne neumi, a pravd�podobn� nikdy um�t nebude.
Neni k tomu zadny duvod. Sinea je generator
tiskovych sestav, tedy z dat vytvari jejich grafickou
reprezentaci. Proc vyslednou grafickou reprezentaci
znovu transformovat zpet do datove podoby?
Nebylo by jednodussi sypat data do excelu primo
z jejich puvodni datove podoby a nezatahovat
do toho Sineu?
Vaclav Krmela
OT: Dva monitory
[*] voltrr1.epr(zv)mail.cez(tec)cz - 27.9.2001 12:32:49
> spis o nejake vychytavky - co kam dat apod.
Zdar,
na primarnim Delphi a na sekundarnim zbytek - DB Explorer, Help, Browser s
informacema z Google Groups a samozrejme posta s konferenci :-)
Radek
PowerPDF, D5 Profi
[*] skalsky(zv)oksystem(tec)cz - 27.9.2001 12:34:38
Na to, abych neco doporucoval,nejsem ten spravnej expert. Navic jsem je
zatim nevyzkousel. Libi se mi tam jedna sada - balik WPDF (bohuzel for $189
:(( - to asi nebude ta spravna cesta pro amatera :(). Myslim, ze bude
nejlepsi vyzkouset a paxe uvidi (budu rad za jakekoli info ohledne chovani
danych komponent)
... moyna na jinech stzrankach delphi bude i nejakej jinej vyber ... .
[pracuju v praci na Jave, Oracle, SQL ... takze Delphi jen jako amater =>
malo casu na Delphi)]
Milan S.
Mailto:Skalsky(zv)oksystem(tec)cz
----2nd mail---
A ktere bys doporucil. Mi se zatim asi nejvice libily Power PDF. POtreboval
bych n�co free.
Libi se mi na ni, �e je podobna QuickReportu s visualnim navrhem.
======================================
ing. Martin Lasevic
mailto:mlasevic(zv)ratiopharm(tec)cz
--- 1st mail ---
ty komponenty vyrostly u Takeshi Kanno asi nekde v Sikmooku (Japonsko), ale
jinak ji najdes na torry.ru
[ http://www.torry.net/unitsconversion.htm ] Components/tools/conversion
... btw: jsou tam i jine podobne komponenty pro prevod PDF.
Milan SKalsky
Mailto:Skalsky(zv)oksystem(tec)cz
Sinea a Excel
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.9.2001 12:36:03
> ja bych to resil tak, ze uzivatel uzavre preview a nejakym jinym
> buttonkem spusti export. ten si budes muset udelat necim extra, mam
> pocit ze nekdo povidal, ze pouziva csv nebo tsv (carkou nebo
> tabulatorem oddelene hodnoty). excel to prej sezere (s priponou xls).
> nezaruceno. pokud je uzivatel rozumny, mel by pochopit, ze ono preview
> je nahled pred tiskem a nelze znej export spustit, nebot si vybral
> funkci pro tisk.
O tohle nejde, na tisk a na export jsou ruzne buttony, neni treba to
mit svazane. Jde mi ciste o ten export. To s csv jsem psal zrejme
ja nebo to tak apon pouzivame - akorat misto csv - slk. Zkousim
zjistit, zda nekdo nevi neco lepsiho. Kdyz ne, zustanu u slk.
Ale dik za odpoved :)
David Lebeda
Pouziti komponenty TDBF
[*] Michal Janu <janu(zv)stemmark(tec)cz> - 27.9.2001 12:37:20
[P��loha v souboru: winmail.dat]
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Jo, dokonce ji vytvarim dynamicky, protoze
jsem si myslel, ze v Destroy komponente se
to zapise vse. Ale bohuzel.
Delam to pouze jako export.
Asi takto:
if dlgExport.FilterIndex = 6 then begin // DBF soubor
dtDbfFile := TDbf.Create(nil);
try
dtDbfFile.FilePath := ExtractFilePath(mFileName);
dtDbfFile.TableName := ExtractFileName(mFileName);
dtDbfFile.FieldDefs.Clear;
for i := 0 to mDataSet.FieldCount - 1 do
dtDbfFile.FieldDefs.Add(
mDataSet.FieldDefs.DataSet.Fields[i].FieldName,
mDataSet.FieldDefs.DataSet.Fields[i].DataType,
mDataSet.FieldDefs.DataSet.Fields[i].Size,
False);
dtDbfFile.CreateTable;
mDataSet.First;
dtDbfFile.Open;
while not mDataSet.Eof do begin
dtDbfFile.Append;
for i := 0 to mDataSet.FieldCount - 1 do
dtDbfFile.FieldDefs.DataSet.Fields[i].Value :=
mDataSet.FieldDefs.DataSet.Fields[i].Value;
dtDbfFile.Post;
mDataSet.Next;
end;
dtDbfFile.Close;
finally
dtDbfFile.Free;
dtDbfFile := nil;
end;
Michal
ja je pouzivam pouze pro import dat z dosu.
> 1. v DBF nen� zapsan 29 Byte pro pouzite kodovani,
> pak spatne prevadi kodovou stranku.
polozky sjou OK, problem delalo memo,
to delam rucne fci OemToChar asi takto:
s:=TCSmlTextH.AsString+#0;
OemToChar((zv)s[1], (zv)s[1]);
q.Params[2].AsString:=Copy(s, 1, Length(s)-1);
> 2. Komponenta zapise na disk pouze hlavicku DBF souboru,
> a file zustava Access Denied dokud neskoncim
> Application. Ja si chtel kodovani zapsat sam, ale
> bohuzel je drzen.
a zaviras ji?
TDBFtable1.Close;
dekuji PeC(zv)
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
Thread - Query
[*] J. Hasek <jiri.has(zv)worldonline(tec)cz> - 27.9.2001 12:43:54
Zdravim vsechny pritomne,
prosim nejakeho zkuseneho delphistu, jestli by v nasl. kodu neodhalil
nejakou chybu (asi co se tyce uvolnovani pameti po ukonceni threadu?). V
programu kod volam casto :
TQueryThread.Create(envEder,dbEder,QueryOpen)
pouze menim parametry query a vse funguje spravne. Az do urcite chvile, kdy
program zahlasi chybu List Index Out Of Bounds. Hledam uz dva dny a
bezvysledne.
Za jakoukoli radu predem diky
TQueryThread = class(TThread)
private
FEnvironment: TODBCEnvironment;
FDatabase: TODBCDatabase;
FQuery: TODBCQuery;
FQueryException: Exception;
procedure ShowQryError;
protected
procedure Execute; override;
public
constructor Create(Env: TODBCEnvironment; Db: TODBCDatabase; Qr:
TODBCQuery); virtual;
end;
const
Multithread: boolean = true;
var
Data: TData;
implementation
{$R *.DFM}
constructor TQueryThread.Create(Env: TODBCEnvironment; Db: TODBCDatabase;
Qr: TODBCQuery);
begin
inherited Create(True);
FEnvironment := Env;
FDatabase := Db;
FQuery := Qr;
FreeOnTerminate := True;
Resume;
end;
procedure TQueryThread.Execute;
begin
try
FQuery.Open;
except
FQueryException := ExceptObject as Exception;
Synchronize(ShowQryError);
end;
end;
procedure TQueryThread.ShowQryError;
begin
Application.ShowException(FQueryException);
end;
Pouziti komponenty TDBF
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.9.2001 12:45:24
potom nevim, jedine se podivat, zda neni novejsi verze, zda to nini
hlaseno jako bug a pokud ne, tak nahlasit.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS Volba
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 27.9.2001 12:45:35
Ahoj,
ja myslim, ze kdyz se ptas lidi v delphi konferenci, tak ti nemuzou
doporucit jiny nastroj nez prave Delphi. Domnivam se, ze kdybychom delphi
povazovali za nastroj ktery nema budoucnost, pak bychom se jim take
nezabyvali.
Dle meho nazoru je podpora databazovych aplikaci jeden z piliru delphi.
Ja jsem to mozna malicko zlehcil, ale asi na tom neco bude !?
Zdravim
====================================
Filip Hazuka
��pkova 363
L�zn� Bohdane�, 533 41
Tel: 0602/411 828, E-mail: Filip.Hazuka(zv)uhk(tec)cz
====================================
-----Original Message-----
From: reportcz(zv)centrum(tec)cz [mailto:reportcz(zv)centrum(tec)cz]
Sent: Thursday, September 27, 2001 11:12 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Volba
Uvazuji v zasade o techto moznostech: Borland Delphi, Visual
Basic, nebo Visual C++/Builder C++.
Zajimalo by me, ktery z techto jazyku je nejvhodnejsi, ma
nejlepsi nastroje pro praci s databazemi, pripadne ktery z nich
ma "svetlou" budoucnost a vyplati se mi, zabyvat se jim
podrobneji.
Diky za odpoved
Vojta Krmicek
Sinea a Excel
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 27.9.2001 12:54:14
Hi,
Ja jsem sveho casu premyslel, jestli bych nevyuzil k vytvoreni sestavy krome
primo full Excelu (tam kde neni nainstalovany) ExcelViewer a pak hura pres
OLE. Ale byl to jen chvilkovy napad a zatim jsem se k nemu nedostal a asi
jen tak brzo nedostanu.
Je otazka jak je ten Viewer funkcni, co se tyce pridavani worksheetu apod,
jestli jenom nema zakazane menu a pres OLE by to slo, nicmene mi OLE zatim
fungovalo na masince bez full Excelu (a Wordu) k zobrazeni a tisku dokumentu
ulozenych v DB... Jeste je tady otazka licencniho ujednani, tam by taky mohl
byt nejaky ten problem.
P.S. Mozna blabolim z hladu, kdyz tak se omlouvam
Sroub
>>David wrote:
nemate nekdo zkusenosti s resenim nasledujiciho?
Aplikace pomoci Sinei tiskne pomerne jednoduchou sestavu -
tabulka a nad ni nejake povidani. Zakaznik nyni chce volbu - bud
tisk na tiskarnu nebo export do Excelu - s pokud mozno podobnou
vizazi vysledku. Kudy se do toho pustit? Na cilovem pocitaci neni
nainstalovan Excel.
1) Neumi novejsi verze Sinei export do nejakeho formatu, co Excel
umi nacist?
2) Pokud ne, kudy se do toho pustit? Zatim uvazuji o .slk formatu,
nebo# ten umi i vzorce a snad i formatovani. Mate s tim nekdo
zkusenosti - a nebo lepsi napad?
FireBird 1.0 a domena v ulozene procedure
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 27.9.2001 13:01:18
> > Nemam jeste stazeny FB a tak bych potreboval vedet zda Firebird
> > umoznuje pouzivat domenu jako promenou v ulozene procedure.
Bylo by to pekne, ale nejde to a asi to ani jit nemuze.
Domena je totiz neco vic nez jenom definice typu.
Lze na ni navazat default, check (treba z vnorenym selectem ...), not null.
Pokud by se chteli autori FB/IB pokusit to nejak resit, asi by museli zavest novy pojem, rekneme "typedef", kde by se dal nejak definovat datovy typ, ale bez dalsich moznosti, ktere samotna domena nabizi.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Prehravac zaznamov
[*] <ludan(zv)inmail.sk> - 27.9.2001 13:07:35
Ahoj.
Neviete niekto, ako sa da vyvolat taky prehravac (pre AVI,mpeg atd) ako ma Windows Commander? (co ma bud v listeri, alebo cez ctrl+Q)
Viem, ze to bude najaka systemova funkcia.
Dik
Lubos
Volba
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 27.9.2001 13:10:28
Ja bych se urcite vyhnul Visual Basicu, mam mozna subjektivni pocit (ze bych
byl Delphionalista?), ale s Delphi se jak vysledek tak samotna prace neda
srovnat. Delphi mi pripadaji mnohem intuitivnejsi a yntelygentnejsi...
Sroub
>>Vojta Krmicek wrote:
Uvazuji v zasade o techto moznostech: Borland Delphi, Visual
Basic, nebo Visual C++/Builder C++.
Zajimalo by me, ktery z techto jazyku je nejvhodnejsi, ma
nejlepsi nastroje pro praci s databazemi, pripadne ktery z nich
ma "svetlou" budoucnost a vyplati se mi, zabyvat se jim
podrobneji.
Dva monitory
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 27.9.2001 12:10:17
From: Ji�� Foldyna <jiri.f(zv)avizo(tec)cz>
> rychle se schyluje k tomu, ze budu mit na stole 2 monitory (19" a 17")
spolu
> s kartou Matrox G450 DualHead. Pouzivate nekdo dvoumonitorovou konfiguraci
> pri praci s Delphi a jak ?
>
Ano. Funguje pekne. Pouze pozor na generovani formularu v prelozene
aplikaci. U jednoho projektu jsem nemel ohlidano kde se formular ocitne
...... zakaznik mel pouze jeden monitor a dialogove okno nevidel
Ahoj Frantisek Sevcik
sevcik(zv)anexis(tec)cz
Pouziti komponenty TDBF
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.9.2001 13:13:30
Puvodni zprava, kterou napsal Michal Janu dne 27 Sep 2001,:
> 2. Komponenta zapise na disk pouze hlavicku DBF souboru,
> a file zustava Access Denied dokud neskoncim
> Application. Ja si chtel kodovani zapsat sam, ale
> bohuzel je drzen.
V te komponente je chyba, ze neni uvolnen handle souboru
pri Close. Otevri si soubor DBF.PAS a najdi tuto metodu:
procedure TDbf.InternalClose; {override virtual abstract from TDataset}
A tam misto tohohle:
_DbfFile:=nil;
Napis tohle:
DbfDefaultDatabase.CloseDbf(_DbfFile);
A zadne to spravne uvolnovat handle.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Aktualizace hlavicek faktur v IB6 nebo FB 1.0
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 27.9.2001 13:13:44
> Odes�latel: Heinisch Jiri <deis(zv)deis(tec)cz>
> trigrum bych se osobne radeji vyhnul, zvlast pokud manipuluji s jinou
> tabulkou.
To je slovo do pranice ...
Ja jsem si vzdycky myslel, ze triggery jsou tam prave proto ...
Vzdyt je to nadhera, kdyz se jedina udalost (treba jeden update) siri databazi, vyvolava dalsi akce, dalsi triggery, navic pod transakcni kontrolou ...
Podle meho soudu je to s ohledem na prenos aplikacni logiky na server to vubec nejkrasnejsi, co nam SQL databaze prinaseji ...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================TDBGrid a zobrazenie dat s diakritikou
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 27.9.2001 13:15:25
> Odes�latel: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> Jeste
> jednou a po kdovi kolikate zopakuji: BDE se zasadne _NEHODI_ k
> praci s MS SQL, podobnych chyb je tam vic a jejich obchazeni a
> osetreni stoji prilis mnoho prace. BDE neni dobre ani pro jine SQL
> databaze, BDE je nejvhodnejsi leda pro Paradox.
Zbysku, nesmirne si vazim tvych zkusenosti pri praci s SQL databazemi, zejmena MS SQL.
Presto si myslim, ze trochu prehanis... :-)
Jsem presvedcen, ze dnes je stale jeste vetsina funkcnich Klient/Server aplikaci napsana pres BDE.
MS SQL nevyjimaje.
(viz tez Seminar Delphi 2001 v Laznich Belohrade)
Ostatne, dostal jsem nejake testy na rychlost prave proti MS SQL:
1. BDE - native link
2. BDE - ODBC
3. ADO
(Bohuzel neznam, jak se to presne testovalo, takze vysledek je diskutabilni.)
Ja bych to formuloval asi takto:
Pouzijeme-li proti SQL databazi BDE, musime si davat velky pozor
na pouzivane komponenty (TTable x TQuery),
na styl prace s temito komponentami a
vubec na celkove pojeti aplikace s ohledem na styl praci s daty.
(viz kurz "Delphi: Pokrocile techniky, databazovy Klient").
Sam bych dnes samozrejme zvolil uz neco jineho nez BDE.
To ale neznamena, ze pres BDE to nejde a ze vsechny aplikace napsane pres BDE jsou spatne.
Pokud jde o samotny dotaz:
A je tam vubec PRIMARY KEY?
Pokud nahodou ne, tak je to jasny.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Rozdielnost v interpretacii datumu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 27.9.2001 13:16:36
> Odes�latel: kinekus-nextra <kinekus(zv)nextra.sk>
> Filtrujem databazu na urcity datum, ktora musi byt zhodna s datum urcenym v
> komponente DateTimePicker.
DateTimePicker.Date je typu TDate = TDateTime;
DateTimePicker.Time je typu TDateTime
DateTimePicker.DateTime je typu TDateTime
TDateTime = Double;
Takze o format dat tu nejde.
> [databaza][datum].value=DateTimerPicker.date a pritom konkretne sa vykovana
> prikaz
Podminka by mela (pokud tomu rozumim) vypadat asi takto
if DataSet.FieldByName('Datum').asDateTime = trunc(DateTimePicker.Date);
> if 1.9.01=1.9.2001 tak mi tato podmienka vzdy bude FALSE.
if StrToDate('1.9.01') = StrToDate('1.9.2001') je vzdycky TRUE.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Volba
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 27.9.2001 13:35:29
> Odes�latel: reportcz(zv)centrum(tec)cz
> rad bych si od Vas nechal poradit. Jsem zacinajic� programator,
> mam nejake zkusenosti s progamovanim v Pascalu a C. Nyni jsem se
> rozhodl spolupracovat na jednom projektu, jeho� hlavni casti je
> prevod databazovych aplikaci, vytvorenych ve FoxPro, na nejakou
> novejsi platformu.
> Uvazuji v zasade o techto moznostech: Borland Delphi, Visual
> Basic, nebo Visual C++/Builder C++.
Nejsem "agentem" Borlandu.
Presto se domn�vam, ze Delphi je asi nejvhodnejsi.
-
Basic (ostatni prominou) nepovazuji za programovaci jazyk.
-
Samotne C/C++ je prima, ale bezna databazova aplikace s uzivatelskym rozhranim bude asi o dost pracnejsi nez v Delphi.
-
Borland C++Builder taky pripada dobre v uvahu, ale "opravdovi ceckari" ho podle mych informaci nemaji moc radi, protoze je to tak nejak "uplacane z Delphi".
Jeste si ale taky musis vybrat databazi...
Preji stastnou volbu
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Zahadny DELETE v FB1.0
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 27.9.2001 13:41:14
Ahoj.
Podla mna prikaz ktory uvadzam by mal vymazat mnozinu zaznamov ktoru vracia
Select, t.j. prvych desat zaznamov z vysledku.
-----------------------------
delete from skuska where jedin in (select first 10 jedin from skuska);
-----------------------------
a prikaz by odpali vsetky zaznamy. :((( preco ???
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
IB Triggery nebo ForeignKey
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 27.9.2001 13:43:19
> Odes�latel: Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz>
> Mohli by jste mi poradit jaky zpusob hlidani vazeb mezi tabulkami
> je nejvhodnejsi (Triggery, ForeignKey)? Pripadne nastinit vyhody a nevyhody ruznych zpusobu?
Pokud nejsou nejake dalsi pozadavky na integritu databaze ("business rules"), preferoval bych Foreign Key.
Vyhody:
-
Je to deklarativni zapis, nemusi se to programovat.
-
Zpravidla mi je uz vygeneruje pouzity Case nastroj.
(Case Studio, ale i vsechny dalsi ...)
-
Urcite to bude i rychlejsi.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
Volba
[*] Josef A. Cerny <delphi(zv)atlascon(tec)cz> - 27.9.2001 13:47:10
> Uvazuji v zasade o techto moznostech: Borland Delphi, Visual
> Basic, nebo Visual C++/Builder C++.
Kolik jazyku znas tolikrat jsi programator. :-)
Kazdy je na neco lepsi a na neco horsi.
Doporucuji vsechny. K tomu par dalsich - Java, PHP, ASP, VBS.
Sam to vsechno neumim, ale chtel bych.
Josef Cerny
Podmieneny select
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 27.9.2001 13:55:19
Problemem muze byt NULL hodnota ve sloupci Ulice (pokud to databaze
umoznuje).
NULL se neda porovnat operatorem =, ale musi tam byt IS NULL !
SELECT
O.text, U.text, A.c_domu
FROM
adresa A, obec O, ulica U
WHERE
A.id = nnn and
( U.kod = A.kod_ul OR A.Kod IS NULL ) and
O.kod = A.kod_ob
Ahoj Pavel
> mam select, kde vyberam adresu osoby (obec, ulica, cislo):
> SELECT
> O.text, U.text, A.c_domu
> FROM
> adresa A, obec O, ulica U
> WHERE
> A.id = nnn and
> U.kod = A.kod_ul and
> O.kod = A.kod_ob
>
> Ak ide o malu obec, kde nie su ulice, ale len
> cisla domov, vrati mi to vsade prazdne
> hodnoty.
>
> Neporadil by mi niekto, ako zabezpecit, aby pri
> null hodnote v kode ulice vratil len
> obec a cislo domu?Unknown database na W95
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 27.9.2001 14:01:55
Ahoj!
mam takovyhle problem:
pristupuji pres BDE k InterBase6 serveru (OS Windows NT/2000) protokol:
TCP/IP
OS Stanice Win 98 - funguje to OK
OS Stanice Win 95 (nezavisle, zda Administrator, ci jiny Uzivatel) -
Vrcholovy modul se spust� OK a havaruje to az pri volani modulu: Unknown
database. Unable to complete network request to host "SERVER01". Failed to
locate host machine. The specified name was not found in the hosts file or
Domain Name Services. Alias: dbName.
Prost�ednictv�m IB-Console se na databaze v pohode dostanu.
Pri pouziti protokolu NETBEUI to funguje v pohode - ale radeji bych pouzival
TCP/IP
za kazde nakopnuti predem dekuji
S uctou Brejsa Zdenek - Programator
HJ-SOFT s.r.o., Hradebni 3, 56301 Lanskroun
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.277 / Virov� b�ze: 146 - datum vyd�n�: 5.9.2001
Volba
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.9.2001 14:05:04
27.9.2001 Ren� Otisk:
> Ja bych se urcite vyhnul Visual Basicu, mam mozna subjektivni pocit (ze bych
> byl Delphionalista?), ale s Delphi se jak vysledek tak samotna prace neda
> srovnat. Delphi mi pripadaji mnohem intuitivnejsi a yntelygentnejsi...
Nova M$ platforma .NET ma urcite neco do sebe. Ale je to novinka,
ktera se bude jeste nejaky ten rok odladovat (pokud ovsem u M$
nenajdou zase neco dalsiho a nepusti to k vode, jako spoustu dalsich
veci). Visual Basic NET jsem jeste nemel moznost vyzkouset, ale pokud
se nic prevratneho nezmenilo, bylo a zustava Delphi jazyk o jednu
generaci vyssi (skutecne dvojcestny nastroj)
>>>Vojta Krmicek wrote:
> Uvazuji v zasade o techto moznostech: Borland Delphi, Visual
> Basic, nebo Visual C++/Builder C++.
> Zajimalo by me, ktery z techto jazyku je nejvhodnejsi, ma
> nejlepsi nastroje pro praci s databazemi, pripadne ktery z nich
> ma "svetlou" budoucnost a vyplati se mi, zabyvat se jim
> podrobneji.
Pokud s programovanim zacinas, nehrnul bych se do C++ a do Builderu
urcite ne.
Visual Basic se da docela snadno naucit, ale bojujes s nim mnohem vice
nez s Delphi. Myslim tim programovani skutecne vetsi aplikace (ne
nejakou malou utilitku).
Vyhodou Delphi jsou zdrojove kody k VCL. Jednak je to velmi dobry
studijni material, da se z toho vykopirovat spousta veci a pokud se
neco nechova podle tvych predstav, muzes se podivat jak je to delane.
O tom se ti u VB muze jen zdat.
Dalsi vec. VB nema reportovaci nastroj (pardon, ma, ale to neni na
skutecnou praci. Mel treba problemy s tiskem stitku).
Ale abych jen nepomlouval VB, v Delphi jsou problemy u vetsich
projektu taky. Ale jak uz jsem psal, da se to diky existenci zdrojaku
VCL zvladnout.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
DLL funkce do MapViewOfFile
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 27.9.2001 14:19:12
> (pokud je duvodem ukryti pouzivani te puvodni DLL - pametove
> duvody jsou nesmyslne)
>
Duvodem neni ukryti, ale to, ze zadnou DLL knihovnu nelze uvolnit
(FreeLibrary) z jine DLL ve funkci DLLMain na parametr dll_process_detach
(viz. microsoft.com). Proto premyslim, jak zaridit, aby slo pouzivat funkce
z DLL knihovny aniz by tato knihovna musela byt nalinkovana. Jak jsem uz
psal, tak asi je to blbost a udelat to takhle nepujde :(, ale treba by nekdo
mel nejaky jiny navrh... Dulezite na tom je, ze potrebuji, aby ta MojeDLL
uvolnila CiziDLL v zavislosti na tom, kdy chce NejakaAPP uvolnit MojiDLL.
Pozn.: Bohuzel neni mozne pouzit nejakou exportovanou funkci, kterou by pak
NejakaAPP zavolala, protoze ta NejakaAPP je explorer.exe a fa. microsoft asi
kvuli me zadne volani nejake funkce Finalize do exploreru pridavat nebude :(
Diky predem za jakoukoliv informaci
Jarda
Synaser
[*] Zden�k Sv�en - 27.9.2001 14:29:19
Ahoj lidi,
posilani na ser. port a cteni z nej nepatri k mym silnym strankam. Pokousim
se ted delat experimenty s unitou Synaser, ale nejspis na to jdu uplne
spatne.
Do COM1 jsem pichnul loopback a jedine co chci, je poslat string a ten samy
string z COMu obdrzet. Asi to je dost trivialni, ale nejak mi to nejde.
Bude nekdo tak neuveritelne ochotny, ze posle ukazku kodu, jak string vyslat
a precist?
Diky.
Z.S.OT: RE: Dva monitory
[*] <vaclav.sykora(zv)accidis(tec)cz> - 27.9.2001 14:33:31
take pouzivam dva monitory na karte G450, ale ta bohuzel neumi spravne
zobrazit plochu ve win2000 (plochu nerozdeli, ale roztahne). karta G550
tento problem resi, takze doporucuji vymenit G450 za G550 (sam uz cekam na
upgrade, ale zatim jsem prechodne nucen pouzivat win/me.)
s pozdravem, v. sykora
budu mit na stole 2 monitory (19" a 17") spolu
s kartou Matrox G450 DualHead. Pouzivate nekdo dvoumonitorovou konfiguraci
pri praci s Delphi a jak ?Unknown database na W95
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 27.9.2001 14:35:26
Jine programy s TCP protokolem na te stanici funguji?
Napr. ping <adresa>?
----- Original Message -----
From: "Zden�k Brej#a" <prog(zv)hjsoft(tec)cz>> pristupuji pres BDE k InterBase6 serveru (OS Windows NT/2000) protokol:
> TCP/IP
> OS Stanice Win 98 - funguje to OK
> OS Stanice Win 95 (nezavisle, zda Administrator, ci jiny Uzivatel) -
> Vrcholovy modul se spust� OK a havaruje to az pri volani modulu: Unknown
> database. Unable to complete network request to host "SERVER01". Failed to
> locate host machine. The specified name was not found in the hosts file or
> Domain Name Services. Alias: dbName.
> Prost�ednictv�m IB-Console se na databaze v pohode dostanu.
>
> Pri pouziti protokolu NETBEUI to funguje v pohode - ale radeji bych
pouzival
> TCP/IP
Spatne fonty v RichEditu
[*] <vaclav.sykora(zv)accidis(tec)cz> - 27.9.2001 14:47:27
mel jsem podobny problem. nacital jsem text ze souboru do pole blob v DB.
pomoci komponenty DBRichEdit jsem se pak smazil text zobrazit, ale nektere
znaky se mi automaticky prevedly do fontu SimSun a mensi velikosti.
problem jsem vyresil (obesel) tak, ze jsem text ze souboru rucne prevedl do
formatu RichEditu a pak jej teprve vlozil do pole. prevod se provadi, tak ze
na zacatek textu pridas znaky hlavicky formatu richtext viz. nize a na konec
pridas znak slozena zavorka - "}"
-----------------------
FText:= '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset238{\*\fname
Arial;}Arial CE;}}' + #13#10 +
'{\colortbl ;\red0\green0\blue0;}' + #13#10 +
'\viewkind4\uc1\pard\cf1\lang1029\f0\fs20' + #13#10;
FText:= FText + 'textova data...';
FText:= FText + #13#10 + '}';
-----------------------
s pozdravem, v. sykora
ahoj,
mam na formulari RE, do ktereho nacitam ze souboru string. Ten obsahuje
polozky oddelene strednikem. Chci, aby stredniky byli tucne a cervene nez
ostatni udaje (clWindowText,[]), a pochopitelne, aby byli stredniky rovnou
zbarvene i pri psani a editaci textu. Vyresil sem to takto:
// nactu data do RichEditu - napr. 'polozka1;polozka2;polozka3...'
// zvyrazneni stredniku v RichEditu
for RE_Counter:=0 to Length(RE_Except.Text) do
if RE_Except.Text[RE_Counter]=';' then
with RE_Except do
begin
SelStart:=RE_Counter-1;
SelLength:=1;
SelAttributes.Style:=SelAttributes.Style+[fsBold];
SelAttributes.Color:=clRed;
end;
RE_Except.SelStart:=0;
RE_Except.SelLength:=0;
procedure TInstallForm.RE_ExceptKeyPress(Sender: TObject; var Key: Char);
begin
if Key=';' then
with RE_Except do begin
SelAttributes.Style:=SelAttributes.Style+[fsBold];
SelAttributes.Color:=clRed;
end else
with RE_Except do begin
SelAttributes.Style:=SelAttributes.Style-[fsBold];
SelAttributes.Color:=clWindowText;
end;
end;
problem je ale vtom, ze pokud edituju text, pise se mi o neco mensim fontem
(i kdyz ho nikde nenastavuju). Dokonce i naformatovane stredniky hned
ponacteni jsou odlisne (mozna font nebo fsBold) od tech, co treba pripisu.
Muzete mi nekdo naznacit, kde je chyba? Pripadne jestli se to da obejit.
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
umi TIBEvents vratit ID zaznamu?
[*] <vaclav.sykora(zv)accidis(tec)cz> - 27.9.2001 14:53:35
mam problem: TIBEvents mi posle info kdyz byl zaznam v tabulce zmenen,
pridat nebo smazan. to je ok, ale muzu take nejak zjistit, ktery zaznam to
byl?
s pozdravem, v. sykora
Unknown database na W95
[*] Zden�k Brej�a <prog(zv)hjsoft(tec)cz> - 27.9.2001 15:02:27
> Jine programy s TCP protokolem na te stanici funguji?
> Napr. ping <adresa>?
ano to taky funguje
dodatek:
vrchol vola modul (EXE) pres CreateProcess a predava mu jako parametr jmeno
souboru se spoustecimi parametry.
pokud se to vola takto - zgebne to
pokud ale otevru modul samostatne a predam mu stejny soubor - tak to funguje
(i pokud je soucasne vrchol spusten)
> > pristupuji pres BDE k InterBase6 serveru (OS Windows NT/2000) protokol:
> > TCP/IP
> > OS Stanice Win 98 - funguje to OK
> > OS Stanice Win 95 (nezavisle, zda Administrator, ci jiny Uzivatel) -
> > Vrcholovy modul se spust� OK a havaruje to az pri volani modulu: Unknown
> > database. Unable to complete network request to host "SERVER01". Failed
to
> > locate host machine. The specified name was not found in the hosts file
or
> > Domain Name Services. Alias: dbName.
> > Prost�ednictv�m IB-Console se na databaze v pohode dostanu.
> >
> > Pri pouziti protokolu NETBEUI to funguje v pohode - ale radeji bych
> pouzival
> > TCP/IP
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.277 / Virov� b�ze: 146 - datum vyd�n�: 5.9.2001
Pouziti komponenty TDBF
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 27.9.2001 15:03:55
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
> Puvodni zprava, kterou napsal Michal Janu dne 27 Sep 2001,:
>
> > 2. Komponenta zapise na disk pouze hlavicku DBF souboru,
> > a file zustava Access Denied dokud neskoncim
> > Application. Ja si chtel kodovani zapsat sam, ale
> > bohuzel je drzen.
>
> V te komponente je chyba, ze neni uvolnen handle souboru
> pri Close. Otevri si soubor DBF.PAS a najdi tuto metodu:
Mno tych TDBF komponent je trochu viac (od roznych autorov) a mam pocit ze
tu sa hovori o komponente od "Horacio Jamilis" Ak ide o tuto komonentu tak
si staci z webu stiahnut najnovsiu verziu kde je to opravene.
Pavol Kakacka
KasiX(zv)atlas(tec)cz
OT: Dva monitory
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.9.2001 15:04:16
> take pouzivam dva monitory na karte G450, ale ta bohuzel neumi spravne
> zobrazit plochu ve win2000 (plochu nerozdeli, ale roztahne).
mam pocit, ze to resi nove ovladace. tedle problem se snazil vyresit
jeden chlapicek u nas. nakonec to vzdal a ja se potom pri konzultaci s
nekym jinym po netu dozvedel, ze ty ovladace se daji stahnout od vyrobce
po bezplatne registraci.
nevim presne, jedna-li se 100% o tentyz typ (kdyz to neslo, taxme to
nekoupili ;), ale myslim si ze jo.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS seriovy port - nastaveni Flow control
[*] Marian Winkler <m.winkler(zv)seznam(tec)cz> - 27.9.2001 15:10:20
Ahoj,
muzete mi poradit nejaky link, kde najdu informace o detailnim nastavovani
Flow control parametru (a nejen), vcetne prikladu pro Delphi, popripade jak
se pracuje s DCB (BuildCommDCB,Set & GetCommState, ...)?
Dost se v tom placam.
Dik za Vas cas.
S pozdravem
M. Winkler
umi TIBEvents vratit ID zaznamu?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.9.2001 15:14:51
bohuzel, IBEvents v soucasne verzi (IB6 AFAIK ani FB1) neumi predat
parametr. jedine si to muzes pred odpalenim eventu vlozit nekam do
pracovni tabulky a po zpracovani to zni odstranit.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
wwW.nYx.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
----------------------------------------
Zprava neobsahuje viry, kontrolu provedl
mocny antivirovy nastroj FDISK + MKFS umi TIBEvents vratit ID zaznamu?
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 27.9.2001 15:26:57
From: <vaclav.sykora(zv)accidis(tec)cz>
> mam problem: TIBEvents mi posle info kdyz byl zaznam v tabulce zmenen,
> pridat nebo smazan. to je ok, ale muzu take nejak zjistit, ktery zaznam to
> byl?
To bohuzial nejde, ale mam spravy (Pavel Cisar mozno vyvrati/potvrdi) ze sa
u Firebirdu uvazuje o rozsireni funkcionality IBEvent v buducich verziach
FB. Je ale mozne (do urcitej miery) riesit management sprav pomocou
ulozenych procedur alebo udf, kde v podstate predas cokolvek.
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
AVG a procesy ve Win2k
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 27.9.2001 16:22:15
Zdravim!
Stojim pred problemem.Delam zabezpecovaci software a zakaznik si mimo jine
preje, aby se overovalo, zda je spusten AVG a popripade nejake dalsi
programy. Ve Win2k je AVG zarazeno mezi procesy a ja bych potreboval vedet,
jak si overim, ze to AVG je opravdu mezi temi procesy. Mohl by mi nekdo
poradit, jak na tento zajimavy problem vyzrat?
S pozdravem
Vasek Navrat
Sinea a Excel
[*] Pavol Kaka�ka <kakacka(zv)proca(tec)cz> - 27.9.2001 16:40:09
From: "Ren� Otisk" <otisk(zv)MISEL(tec)cz>
> Ja jsem sveho casu premyslel, jestli bych nevyuzil k vytvoreni sestavy
krome
> primo full Excelu (tam kde neni nainstalovany) ExcelViewer a pak hura pres
> OLE. Ale byl to jen chvilkovy napad a zatim jsem se k nemu nedostal a asi
> jen tak brzo nedostanu.
> Je otazka jak je ten Viewer funkcni, co se tyce pridavani worksheetu apod,
> jestli jenom nema zakazane menu a pres OLE by to slo, nicmene mi OLE zatim
> fungovalo na masince bez full Excelu (a Wordu) k zobrazeni a tisku
dokumentu
> ulozenych v DB... Jeste je tady otazka licencniho ujednani, tam by taky
mohl
> byt nejaky ten problem.
>
> P.S. Mozna blabolim z hladu, kdyz tak se omlouvam
Cau Rene si hladny :))). Licencne ujednanie (ak ja nie som hladny :) ) o
tomto bohuvdaka nepojednava. Ako programator mozes vyuzivat OLE (k tomu je)
a neni v silach pana programatora zistit ci je to z full verzie, free verzie
alebo ci si uzivatel nestiahol a nezaregistroval iba potrebne dll-ka, ak sa
na danom PC k OLE objektu dostanes.
btw: Mna by viacej zaujimalo preco zakaznik chce export do Excelu ked ako
autor prispevku uvadza "Na cilovem pocitaci neni nainstalovan Excel"?
Pavol Kaka�ka
KasiX(zv)atlas(tec)cz
Pouziti komponenty TDBF
[*] Michal Janu <janu(zv)stemmark(tec)cz> - 27.9.2001 16:50:22
[P��loha v souboru: winmail.dat]
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Vyreseno. Opravdu tam byla chyba s uvolnovanim.
Diky Petrovi Zahradnikovi
Michal >potom nevim, jedine se podivat, zda neni novejsi verze, zda >to nini
hlaseno jako bug a pokud ne, tak nahlasit.
>dekuji PeC(zv)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
TDBGrid a zobrazenie dat s diakritikou
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 27.9.2001 17:16:31
On 27 Sep 2001, at 13:15, Jan Sebel�k wrote:
> > Odes�latel: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> > Jeste
> > jednou a po kdovi kolikate zopakuji: BDE se zasadne _NEHODI_ k praci
> > s MS SQL, podobnych chyb je tam vic a jejich obchazeni a osetreni
> > stoji prilis mnoho prace. BDE neni dobre ani pro jine SQL databaze,
> > BDE je nejvhodnejsi leda pro Paradox.
> Zbysku, nesmirne si vazim tvych zkusenosti pri praci s SQL databazemi,
> zejmena MS SQL. Presto si myslim, ze trochu prehanis... :-)
Jsem rad, ze si toho vazis, vsak me to take stalo hromadu casu,
usili a vlasu. :-)))
> Jsem presvedcen, ze dnes je stale jeste vetsina funkcnich
> Klient/Server aplikaci napsana pres BDE. MS SQL nevyjimaje. (viz tez
> Seminar Delphi 2001 v Laznich Belohrade)
>
> Ostatne, dostal jsem nejake testy na rychlost prave proti MS SQL:
> 1. BDE - native link 2. BDE - ODBC 3. ADO (Bohuzel neznam, jak se to
> presne testovalo, takze vysledek je diskutabilni.)
Aha. To, ze je hodne aplikaci psanych nad BDE + MS SQL, vubec
nic o kvalite BDE nevypovida. To muze byt dano historickymi
duvody, setrvacnosti atp. ze starsich verzi, kde nic jineho nez BDE
prakticky nebylo. Tenhle argument je podobny, jako bys prohlasil,
ze komunisticka ideologie stoji za uvahu, kdyz se k ni hlasi 11%
volicu. :-((( Ostatne problematicnost BDE ve vztahu k SQL
databazim potvrdil i Borland tim, ze zacal standardne pridavat do
Delphi ADOExpress a dbExpress.
> Ja bych to formuloval asi takto:
> Pouzijeme-li proti SQL databazi BDE, musime si davat velky pozor na
> pouzivane komponenty (TTable x TQuery), na styl prace s temito
> komponentami a vubec na celkove pojeti aplikace s ohledem na styl
> praci s daty. (viz kurz "Delphi: Pokrocile techniky, databazovy
> Klient").
Ano, takto jsem to take psal, a zaver je takovy, ze se kvuli tomu
BDE _NEHODI_ k praci s MS SQL.
> Sam bych dnes samozrejme zvolil uz neco jineho nez BDE.
> To ale neznamena, ze pres BDE to nejde a ze vsechny aplikace napsane
> pres BDE jsou spatne.
Netvrdim, ze aplikace psane nad BDE + MS SQL jsou spatne. Ale
tvrdim, ze kdyz clovek migruje na jine rozhrani, usetri si radu zcela
zbytecnych problemu, prace a vlasu. :-)
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
Problem s ADO
[*] Ondrej Krsko <krsko(zv)gjh.sk> - 27.9.2001 17:18:07
Dobry den,
V com moze byt problem ???
Mam spraveny jednoduchy program v Delphi, na prezeranie, pridavanie a editovanie zaznamov.
Ked vytvorim novy zaznam, a potom sa ho vratim editovat, program ohlasi chybu:
The specified row could not be located for updating: Some values may have been changed since it was last read.
Ako db pouzivam Access, v problemovej tabulke mam primarny kluc "id" definovany ako automaticke cislo a dalsie textove a ciselne polia.
V com moze byt problem ???
S pozdravom
Ondrej Krsko
Delphi 6 update 1
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 27.9.2001 17:19:35
Dneska vysel update na Delphi 6.
http://www.borland.com/delphi/webreg/registeredusers.html
Radim
Problem s ADO
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 27.9.2001 17:23:47
Osobne neznam Access tak hluboko, takze nevim, zda jiz zvlada triggery, ale
presne tentyz problem jsem mel na MS SQL, kde byl spatne napsan trigger -
sahal po update do jine tabulky a shodou okolnosti menil primarni klic.
Nicmene moznost je i takova, ze zaznam zmenila mezitim druha osoba ...
end ohekzeh minarp a mevardzop S
arebmehcS naliM .rDCP
ERAWTFOSSIM
444449/8060 .let
zc.erawtfossim.www\\:ptth
-----Original Message-----
From: Ondrej Krsko
Mam spraveny jednoduchy program v Delphi, na prezeranie, pridavanie a
editovanie zaznamov.
Ked vytvorim novy zaznam, a potom sa ho vratim editovat, program ohlasi
chybu:
The specified row could not be located for updating: Some values may have
been changed since it was last read.
Ako db pouzivam Access, v problemovej tabulke mam primarny kluc "id"
definovany ako automaticke cislo a dalsie textove a ciselne polia.
Preco nastavuje FEGXOutlookbar action.Enabled na F
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 27.9.2001 17:31:00
Zdravim.
Vie mi niekto vysvetlit %subj%. Pritom a vlastnostou Enabled sa vobec
nehram.
S pozdravom
Roland Turcan
Synaser
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 27.9.2001 17:48:00
> posilani na ser. port a cteni z nej nepatri k mym silnym strankam.
> Pokousim se ted delat experimenty s unitou Synaser, ale nejspis na to
> jdu uplne spatne. Do COM1 jsem pichnul loopback a jedine co chci, je
> poslat string a ten samy string z COMu obdrzet. Asi to je dost
> trivialni, ale nejak mi to nejde. Bude nekdo tak neuveritelne ochotny,
> ze posle ukazku kodu, jak string vyslat a precist? Diky.
Prikladem toho jest samotna knihovna Synaser. Podivej se jak je
udelana metoda ATCommand. Tato metoda implementuje odeslani
AT prikazu modemu a vraci odpoved modemu. Jako ukazka prace
idealni.
Pochopitelne, nez se pustis do vysilani a prijimani dat, musis
zavolat metodu Connect se spravnymi parametry dle
pozadovaneho druhu komunikace.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Zjisteni typu udalosti v runtime
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 27.9.2001 18:58:34
Zdravim,
na formulari provadim nasledujici kod
PropInfo := GetPropInfo(Components[i], 'OnChange');
if assigned(PropInfo) then
begin
SetMethodProp(Components[i], PropInfo, method_OnChange);
end;
ale narazil jsem, ze OnChange muze mit i jine parametry nez jen Sender
(napr. TMenu ma vic), potreboval bych to nejak otestovat nez provedu
prirazeni vlastni metody. Jde to nekde zjistit?
Diky Honza +
D5Prof
Tisk stringu
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 27.9.2001 19:03:43
Hi,
tady je prikladek
http://www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=48
Ten prikladek, ale kresli na Image1.Canvas.
Jakmile to nahradim Printer.Canvas tak se text neotaci.
Nevite nekdo co s tim?Dva monitory
[*] Hurricane <hurricane(zv)quick(tec)cz> - 27.9.2001 20:16:27
Zdravim
Funguje to vyborne. Na pravem mam IDE, Form a ObjectInspector, na levem
zdrojak.
Hurricane
----- Original Message -----
> rychle se schyluje k tomu, ze budu mit na stole 2 monitory (19" a 17")
spolu
> s kartou Matrox G450 DualHead. Pouzivate nekdo dvoumonitorovou konfiguraci
> pri praci s Delphi a jak ?Volba
[*] Erik Salaj <winsoft(zv)stonline.sk> - 27.9.2001 20:49:02
> mam nejake zkusenosti s progamovanim v Pascalu a C. Nyni jsem se
> rozhodl spolupracovat na jednom projektu, jeho� hlavni casti je
> prevod databazovych aplikaci, vytvorenych ve FoxPro, na nejakou
> novejsi platformu.
> Uvazuji v zasade o techto moznostech: Borland Delphi, Visual
> Basic, nebo Visual C++/Builder C++.
> Zajimalo by me, ktery z techto jazyku je nejvhodnejsi, ma
> nejlepsi nastroje pro praci s databazemi, pripadne ktery z nich
> ma "svetlou" budoucnost a vyplati se mi, zabyvat se jim
> podrobneji.
Pozri si C# a Visual Studio.Net.
Beta 2 verziu (DVD alebo CD-cka) zasielal
Microsoft programatorom zdarma. Hotove
to ma byt koncom roka.
Erik
Tisk stringu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.9.2001 22:32:24
> Behalf Of 3D-imenision
>
> tady je prikladek
>
> http://www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=48
>
>
>
> Ten prikladek, ale kresli na Image1.Canvas.
> Jakmile to nahradim Printer.Canvas tak se text neotaci.
> Nevite nekdo co s tim?
>
Ten prikladek bych trochu upravil:
procedure TForm1.RotateText(Platno : TCanvas; Uhel : Integer; Txt: String);
var
lf : TLogFont;
begin
with Platno do begin
Font.Name := 'Arial';
Font.Size := 24;
Brush.Style := bsClear;
GetObject(Platno.Font.Handle, SizeOf(lf), Addr(lf));
lf.lfEscapement := Uhel * 10;
lf.lfOutPrecision := OUT_TT_ONLY_PRECIS;
Platno.Font.Handle := CreateFontIndirect(lf);
TextOut(500, 500, txt);
end;
end;
S pozdravem
Vaclav Krmela
Trunc kontra Int Was: Re: Rozdielnost v interpreta
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.9.2001 06:46:34
> if DataSet.FieldByName('Datum').asDateTime =
> trunc(DateTimePicker.Date);
>
Ahoj,
jen takovy dotaz, ktery by me zajimal. Pro uriznuti desetinne casti
cisla podobnym zpusobem (tj. vylucuji round), mame dve funkce -
trunc a int. Prvni vraci celociselny typ, druha realne cislo s
vynulovanou desetinnou casti. A ten dotaz: nebylo by vyhodnejsi
pouzit misto trunc int v pripadech, kdy se vysledek stejne musi
konvertovat do realneho cisla? Ze by to Delpham usetrilo
automatickou konverzi. Nebo jsou tam jine problemy, ktere me
nenapadly? Je to prkotina, nejedna se o narazku na predchozi
prispevek od Honzy, povazuji to za nezavisle tema.
David Lebeda
Sinea a Excel
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.9.2001 06:58:27
> > 1) Neumi novejsi verze Sinei export do nejakeho formatu,
> > co Excel umi nacist?
>
> Ne neumi, a pravd�podobn� nikdy um�t nebude.
> Proc vyslednou grafickou reprezentaci
> znovu transformovat zpet do datove podoby?
> Nebylo by jednodussi sypat data do excelu primo
> z jejich puvodni datove podoby a nezatahovat
> do toho Sineu?
>
Jen jsem se ptal :) - tak nejak to opravdu je, jenze s Excelem se
bez Excelu celkem obtizne pracuje a ja si chtel jen usnadnit zivot
s grafickou podobou vysledku, ktera jiz v Sinee existuje, kdezto v
Excelu ji budu muset odprogramovat z ruky a moc se mi do toho
nechce.
Pro Pavla K.: aplikace je cenik na CD, ktery lze rozdavat dealerum
a zakaznikum. Muze byt pozadavek, vygenerovat nabidku do xls
souboru a poslat mailem nekomu dalsimu - u toho, kdo nabidku
generuje nemusi byt Excel nainstalovan.
David Lebeda
Thread - Query
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.9.2001 07:10:22
> prosim nejakeho zkuseneho delphistu, jestli by v nasl. kodu neodhalil
> nejakou chybu (asi co se tyce uvolnovani pameti po ukonceni threadu?).
> V programu kod volam casto :
> TQueryThread.Create(envEder,dbEder,QueryOpen) pouze menim parametry
> query a vse funguje spravne. Az do urcite chvile, kdy program zahlasi
> chybu List Index Out Of Bounds.
Ahoj,
ja teda nemam s pouzivanim db komponent ve vlaknech
vlastni zkusenosti, ale nekde jsem snad cetl, ze pokud vlakno
pouziva query, musi mit i vlastni Session - v tomto pripade pujde
zrejme o environment.
Nejsem si jist, zda pro pouzivani query a database z hlavniho
formu neni nutno pouzivat Synchronize. Nektere BDE komponenty
jsou snad thread-safe, ale jak ODBCe, to nevim.
David Lebeda
Zahadny DELETE v FB1.0
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.9.2001 07:18:57
> Podla mna prikaz ktory uvadzam by mal vymazat mnozinu zaznamov ktoru
> vracia Select, t.j. prvych desat zaznamov z vysledku.
> delete from skuska where jedin in (select first 10 jedin from skuska);
a
> prikaz by odpali vsetky zaznamy. :((( preco ???
>
Jen napad - nemuze to byt tim, ze delete vezme prvni jedin, podiva
se, zda je v prvnich deseti, pokud ano, smaze ho. Pro dalsi jedin
totez - ale protoze prvni uz byl smazan, uvazuje prvnich 10 po teto
uprave, tj. od druheho do jedenacteho a tak to pokracuje, zkratka
select se vyhodnocuje pro kazdy radek.
Je to jen napad, pokud to je volovina, tak sorry.
David Lebeda
Delphi 6 update 1
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 28.9.2001 07:23:44
Mne ta zprava taky prisla, ale u Borlandu jsem se dozvedel, ze tento path by
l stazen, asi tam byla chyba.
Pavel
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> Dneska vysel update na Delphi 6.
>
> http://www.borland.com/delphi/webreg/registeredusers.html
>
> Radim
>Co stoji dot NET (Was: Volba)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 28.9.2001 09:17:48
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>>
> Nova M$ platforma .NET ma urcite neco do sebe. Ale je to novinka,
> ktera se bude jeste nejaky ten rok odladovat (pokud ovsem u M$
> nenajdou zase neco dalsiho a nepusti to k vode, jako spoustu dalsich
> veci). Visual Basic NET jsem jeste nemel moznost vyzkouset, ale pokud
> se nic prevratneho nezmenilo, bylo a zustava Delphi jazyk o jednu
> generaci vyssi (skutecne dvojcestny nastroj)
>
> ing. Jan Fiala
Vi se uz neco konkretnejsiho o cenove politice M$ platformy .NET?
Myslim tim kolik penez to bude stat vyvojare a kolik uzivatele?
To je podle me zasadni otazka pri rozhodovani (samozrejme pokud
neni vas zakaznik Ceska sporitelna :-)
Martin Schayna
Zahadny DELETE v FB1.0
[*] Roland Turcan <rotursoft(zv)kiwwi.sk> - 28.9.2001 09:56:04
Jedin je primary key, t.j. je 100% jedinecny. Ak pouzijes
delete from skuska where jedin in (select jedin from skuska where jedin
between 1 and 10);
tak vsetko funguje ako ma. Moj osobny nazor je ze je chyba v implementacii
First. Ale o tomto by nam asi vedel najviac napisat Pavel Cisar.
Roland.
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
Sent: Friday, September 28, 2001 7:18 AM
> > Podla mna prikaz ktory uvadzam by mal vymazat mnozinu zaznamov ktoru
> > vracia Select, t.j. prvych desat zaznamov z vysledku.
> > delete from skuska where jedin in (select first 10 jedin from skuska);
> a
> > prikaz by odpali vsetky zaznamy. :((( preco ???
> >
>
> Jen napad - nemuze to byt tim, ze delete vezme prvni jedin, podiva
> se, zda je v prvnich deseti, pokud ano, smaze ho. Pro dalsi jedin
> totez - ale protoze prvni uz byl smazan, uvazuje prvnich 10 po teto
> uprave, tj. od druheho do jedenacteho a tak to pokracuje, zkratka
> select se vyhodnocuje pro kazdy radek.
>
> Je to jen napad, pokud to je volovina, tak sorry.
>
> David Lebeda
Zahadny DELETE v FB1.0
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.9.2001 10:10:34
> Jedin je primary key, t.j. je 100% jedinecny. Ak pouzijes
> delete from skuska where jedin in (select jedin from skuska where
> jedin between 1 and 10); tak vsetko funguje ako ma. Moj osobny nazor
Ale to nijak neodporuje tomu, co jsem napsal. Pote, co delete pri
svem provadeni smaze napr. 3 prvni radky, uz te nezajima first 10,
ale first 7. Podle meho se ten select vyhodnocuje pro kazdy
mazany radek zvlast, protoze jde o select do tabulky, ze ktere mu
soucasne mazes. Between funguje samozrejme spravne - vybira
radky podle primarniho klice s pevnym intervalem, kdezto first 10 s
kazdym smazanym radkem meni hranici. Select s between
obsahuje pri prvnim vyhodnoceni 10 radku, pri druhem 9... select s
first vzdy prvnich 10 radku z tech ktere tam zbyly.
David Lebeda
>
> > > Podla mna prikaz ktory uvadzam by mal vymazat mnozinu zaznamov
> > > ktoru vracia Select, t.j. prvych desat zaznamov z vysledku.
> > > delete from skuska where jedin in (select first 10 jedin from
> > > skuska);
> > a
> > > prikaz by odpali vsetky zaznamy. :((( preco ???
> > >
> >
> > Jen napad - nemuze to byt tim, ze delete vezme prvni jedin, podiva
> > se, zda je v prvnich deseti, pokud ano, smaze ho. Pro dalsi jedin
> > totez - ale protoze prvni uz byl smazan, uvazuje prvnich 10 po teto
> > uprave, tj. od druheho do jedenacteho a tak to pokracuje, zkratka
> > select se vyhodnocuje pro kazdy radek.
> >
> > Je to jen napad, pokud to je volovina, tak sorry.
> >
> > David Lebeda
>
Zjisteni typu udalosti v runtime
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.9.2001 10:17:48
> PropInfo := GetPropInfo(Components[i], 'OnChange');
> if assigned(PropInfo) then
> begin
> SetMethodProp(Components[i], PropInfo, method_OnChange);
> end;
Mozes tam pridat dalsiu podmienku napr.
if Assigned(PropInfo) then
begin
if (PropInfo^.PropType^.Name = 'TNotifyEvent') then
// ...
else if (PropInfo^.PropType^.Name = 'TMenuChangeEvent') then
// ...
end;
HTH
TOndrej
Volba
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.9.2001 10:18:33
Ahoj,
podle jistych informaci od MS budou soucasni uzvatele nad novou
verzi brecet, protoze se vyrazne zmenila prace. Pokud si to dobre
pamatuji jako ze asi ne (informaci jsem dostal letos v lednu), pak
napriklad objekty budou opravdovymi objekty, budou se muset
uvolnovat a dalsi. Bohudik Basic nepouzivam, tak - bohuzel -
nemohu rict presne informace. Rozhodne se ale muzeme zeptat na
Invexu.
Slavek
> veci). Visual Basic NET jsem jeste nemel moznost vyzkouset, ale pokud
> se nic prevratneho nezmenilo, bylo a zustava Delphi jazyk o jednu
> generaci vyssi (skutecne dvojcestny nastroj)
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Zahadny DELETE v FB1.0
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.9.2001 10:18:33
Ahoj,
pokud to tak opravdu je, tak je to pekna zvracenost. SQL pracuje
nad mnozinami, takze by se mela udelat mnozina "select
first 10 jedin from skuska" a pak teprve delat porovnani.
Kdyz si predstavim, ze v tabulce je tisice zaznamu a funguje Tebou
uvedeny algoritmus, pak potes rychlost.
Nemaje po ruce FB, zkusil jsem to na MS SQL 2k a tam funguje to
tak, jak ma (coz je ovsem puvodnimu dotazovali k nicemu).
Slavek
> Jen napad - nemuze to byt tim, ze delete vezme prvni jedin, podiva se,
> zda je v prvnich deseti, pokud ano, smaze ho. Pro dalsi jedin totez -
> ale protoze prvni uz byl smazan, uvazuje prvnich 10 po teto uprave,
> tj. od druheho do jedenacteho a tak to pokracuje, zkratka select se
> vyhodnocuje pro kazdy radek.
> David Lebeda
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
OT: IB Triggery nebo ForeignKey
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.9.2001 10:18:33
Ahoj,
vse, co jde, nacpi do omezeni, tj. primarni klice, cizi klice, checky
apod. Je to rychlejsi nez triggery (ne o moc, ale v pripade, ze
potrebujes velky vykon, je kazda vterinka draha). Triggery pouzivej
az tehdy, pokud nelze vyuzit uvedene omezeni.
Slavek
> Mohli by jste mi poradit jaky zpusob hlidani vazeb mezi tabulkami je
> nejvhodnejsi (Triggery, ForeignKey)? Pripadne nastinit vyhody a
> nevyhody ruznych zpusobu?
> Jirka
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
SendMessage
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 28.9.2001 10:25:37
Proc nefunguje funkce
SendMessage(GetForegroundWindow,WM_KEYDOWN,VK_RETURN,0) ?Co stoji dot NET (Was: Volba)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 28.9.2001 10:29:07
Ahoj,
a co to je .NET? ;-) .NET jsou WindowXP, .NET je i treba SQL
Server 2000, .NET je i Visual Studio .NET, .NET je i BizTalk Server
atd atd. Dulezite je, co z toho chces pouzivat. A dulezite je, ze MS
jde ted z cenama pekne nahoru. :-(
Slavek
> Vi se uz neco konkretnejsiho o cenove politice M$ platformy .NET?
> Martin Schayna
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
TDBGrid a zobrazenie dat s diakritikou
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 28.9.2001 10:37:01
> Odes�latel: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> Netvrdim, ze aplikace psane nad BDE + MS SQL jsou spatne. Ale
> tvrdim, ze kdyz clovek migruje na jine rozhrani, usetri si radu zcela
> zbytecnych problemu, prace a vlasu. :-)
Ja myslim, ze si uplne rozumime.
Presto je dobre, kdyz se to obsas rozdiskutuje.
Mam totiz zkusenosti z kurzu (i tech pokrocilych!), ze mnoho lidi nema vubec poneti o tom, co prace s daty (zejmena SQL) obnasi.
Tady v konferenci je to taky dost casto videt.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Zjisteni typu udalosti v runtime
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.9.2001 10:44:53
> PropInfo := GetPropInfo(Components[i], 'OnChange');
> if assigned(PropInfo) then
> begin
> SetMethodProp(Components[i], PropInfo, method_OnChange);
> end;
pripadne rychlejsie (bez porovnavania stringov) asi bude:
if Assigned(PropInfo) then
begin
if PropInfo^.PropType^ = TypeInfo(TNotifyEvent) then
// ...
else if PropInfo^.PropType^ = TypeInfo(TMenuChangeEvent) then
// ...
end;
HTH
TOndrej
Sinea a Excel
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 28.9.2001 10:46:30
> > 1) Neumi novejsi verze Sinei export do nejakeho formatu,
> > co Excel umi nacist?
> Odes�latel: Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz>
> Ne neumi, a pravd�podobn� nikdy um�t nebude.
> Neni k tomu zadny duvod. Sinea je generator
> tiskovych sestav, tedy z dat vytvari jejich grafickou
> reprezentaci.
Uplny souhlas s Vaskem.
Sinea je bezvadny generator sestav. Vychazi ale pochopitelne z "relacniho" pohledu na svet, stejne jako jine generatory, stavene nad relacnimi databazemi.
Relacni pohled na svet v podstate rika: "veskere potrebne informace dostanu pres select ...". Tedy za predpokladu, ze mam spravne datovy model aplikace - ER Diagram.
Sinea to pak rozumne zobrazi.
Pokud chceme vic, pouzijme napr. Excel. Staci do nej "napumpovat" data a pak si s nimi muzeme delat, co chceme. To uz je ale jina, "nerelacni", kapitola.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Problem s ADO
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 28.9.2001 10:51:45
Odes�latel: Ondrej Krsko <krsko(zv)gjh.sk>
> Ked vytvorim novy zaznam, a potom sa ho vratim editovat, program ohlasi chybu:
> The specified row could not be located for updating:
> Some values may have been changed since it was last read.
> Ako db pouzivam Access, v problemovej tabulke mam primarny kluc "id" definovany ako automaticke cislo a dalsie textove a ciselne polia.
> V com moze byt problem ???
Problem muze (ale nemusi) byt v tom, ze Delphi ulozi do databaze zaznam bez vyplneneho "id". Pri pokusu o update pak zavola neco jako
"update tabulka set .... where id is null and ...
Access pak rekne, ze zadny takovy zaznam nenasel: pochopitelne, do "id" mezitim vrazil "automaticke cislo".
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Ikony ve Windows 95
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 28.9.2001 10:56:44
Zdravim,
delam nejaky projekt, kde je i ToolBar s ikonkami - pres ImageList.
Bohuzel ve Windows 95 nejdou videt ikonky (klasicke typu bmp).
Proc tomu tak je.
Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
SendMessage
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 28.9.2001 11:05:41
> SendMessage(GetForegroundWindow,WM_KEYDOWN,VK_RETURN,0) ?
Mam takovy pocit, ze posledni parametr je pocet opakovani
klavesy, mela by tam byt 1.
David Lebeda
OpenDialog
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 28.9.2001 11:06:24
Poradi nekdo
Po vyvolani OpenDialogu je pri stisknuti klavesy Delete nabidnuta moznost
presunu oznaceneho adresare, souboru do kose.
Lze nejakym zpusobem eliminovat stisknuti klavesy Delete (neco na zpusob if
Key=vk_Delete then....)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.282 / Virov� b�ze: 150 - datum vyd�n�: 25.9.2001
Trunc kontra Int Was: Re: Rozdielnost v interpreta
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 28.9.2001 11:28:35
> Odes�latel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> jen takovy dotaz, ktery by me zajimal. Pro uriznuti desetinne casti
> cisla podobnym zpusobem (tj. vylucuji round), mame dve funkce -
> trunc a int. Prvni vraci celociselny typ, druha realne cislo s
> vynulovanou desetinnou casti. A ten dotaz: nebylo by vyhodnejsi
> pouzit misto trunc int v pripadech, kdy se vysledek stejne musi
> konvertovat do realneho cisla?
Asi mas pravdu.
Pokud budu Trunc(x) porovnavat s real-type hodnotou, pak by bylo asi lepsi pouzit Int(x).
Muj navrh tedy nebyl uplne nejlepsi:
if DataSet.FieldByName('Datum').asDateTime = trunc(DateTimePicker.Date);
Ono vubec porovnavat real-type hodnoty je problematicke, protoze tam (skoro) vzdycky dochazi k alespon minimalni ztrate presnosti. Proto by se melo radeji pouzit
if Abs(x-y)<epsilon ...
A pro nas priklad na porovnani datumu?
(spravne cesky ... "na porovnani data", ale to je pro nas, kteri s "daty" pracuji, zavadejici ...)
var D1, D2 : TDateTime;
if trunc(D1)=trunc(D2) ...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================
TDBGrid a zobrazenie dat s diakritikou
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 28.9.2001 11:47:47
On 28 Sep 2001, at 10:37, Jan Sebel�k wrote:
> > Odes�latel: Zbysek Hlinka <hlinka(zv)hlinka(tec)cz>
> > Netvrdim, ze aplikace psane nad BDE + MS SQL jsou spatne. Ale
> > tvrdim, ze kdyz clovek migruje na jine rozhrani, usetri si radu
> > zcela zbytecnych problemu, prace a vlasu. :-)
> Ja myslim, ze si uplne rozumime.
> Presto je dobre, kdyz se to obsas rozdiskutuje.
> Mam totiz zkusenosti z kurzu (i tech pokrocilych!), ze mnoho lidi nema
> vubec poneti o tom, co prace s daty (zejmena SQL) obnasi. Tady v
> konferenci je to taky dost casto videt.
Prestoze se zde toto tema periodicky opakuje, stejne periodicky
se zde opakuji zcela chybne, nebo nevhodne pristupy k databazim.
Nevim, zda se jedna o nove prihlasene, nebo dotycni predchozi
diskuse necetli? Podle zdejsich prispevku bys mel mit na kursech
navaly. :-)
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
TDBGrid a zobrazenie dat s diakritikou
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 28.9.2001 12:02:57
On 28 Sep 2001, at 11:55, Juraj Tomasov wrote:
> dobry den majster sveta!
>
> jednalo sa mi o upravu stareho projektu. nemusite sa hrat na
> vseveducich...
> do <>...
Nemusis to brat hned osobne. Podle prispevku je to daleko sirsi
problem, nez jen tveho konkretniho pripadu.
Samozrejme zalezi na konkretni situaci, ale nekdy byva lepsi
predelat cele databazove rozhrani, nez stale pracne udrzovat stary
program.
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
umi TIBEvents vratit ID zaznamu?
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 28.9.2001 12:36:11
Haj hou!
On 27 Sep 2001, at 15:26, Pavol Kaka ka wrote:
> From: <vaclav.sykora(zv)accidis(tec)cz>
> > mam problem: TIBEvents mi posle info kdyz byl zaznam v tabulce zmenen,
> > pridat nebo smazan. to je ok, ale muzu take nejak zjistit, ktery zaznam to
> > byl?
>
> To bohuzial nejde, ale mam spravy (Pavel Cisar mozno vyvrati/potvrdi) ze sa
> u Firebirdu uvazuje o rozsireni funkcionality IBEvent v buducich verziach
> FB. Je ale mozne (do urcitej miery) riesit management sprav pomocou
> ulozenych procedur alebo udf, kde v podstate predas cokolvek.
Zatim to vskutku nejde, ale pracuje se na reseni pro dalsi verze FB.
Jde primarne o dve zlepseni:
a) "Zoliky" pri zachycovani eventu na klientovi. Zatim musit pri
registraci klienta eventu presne specifikovat jmeno eventu. V
budoucny by tedy melo byt mozne v teto specifikaci pouzit "zoliky"
a registrovat tak klienta pro vice eventu najednou.
b) Doplneni moznosti formatovani nazvu eventu dle parametru
(podobny mechanizmus jako u printf v C). V kombinaci s vyse
uvedenym by to umoznilo predavat jednoducha retezcova data
klientum.
Samozrejme, ze mozna jsou i jina reseni. Uvidime co se nakonec
ve FB2 objevi.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Zahadny DELETE v FB1.0
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 28.9.2001 12:36:11
Haj hou!
On 28 Sep 2001, at 9:56, Roland Turcan wrote:
> Jedin je primary key, t.j. je 100% jedinecny. Ak pouzijes
> delete from skuska where jedin in (select jedin from skuska where jedin
> between 1 and 10);
> tak vsetko funguje ako ma. Moj osobny nazor je ze je chyba v implementacii
> First. Ale o tomto by nam asi vedel najviac napisat Pavel Cisar.
Don't panic! Problem uz se resi, a dam vam vedet hned jak se
dovim neco noveho/zajimaveho. No reknete, neni open source
uzasny ? :-)))
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Ikony ve Windows 95
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.9.2001 13:23:45
> delam nejaky projekt, kde je i ToolBar s ikonkami - pres ImageList.
> Bohuzel ve Windows 95 nejdou videt ikonky (klasicke typu bmp).
Mozno sa jedna o starsiu verziu comctl32.dll. Na Delphi CD by si mal najst
update. Nepises, ktoru verziu Delphi pouzivas, tu je uryvok z readme pre
Delphi 6:
The common controls updater can be run directly from your CD at:
\info\extras\comctl\50comupd.exe
HTH
TOndrej
Problem s ADO
[*] Ondrej Krsko <krsko(zv)gjh.sk> - 28.9.2001 13:41:00
no, skusal som aj zmenit id z automatickeho cisla na normalne cislo a stale
robi to iste.
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> > Ked vytvorim novy zaznam, a potom sa ho vratim editovat, program ohlasi
chybu:
> > The specified row could not be located for updating:
> > Some values may have been changed since it was last read.
> > Ako db pouzivam Access, v problemovej tabulke mam primarny kluc "id"
definovany ako automaticke cislo a dalsie textove a ciselne polia.
> > V com moze byt problem ???
>
> Problem muze (ale nemusi) byt v tom, ze Delphi ulozi do databaze zaznam
bez vyplneneho "id". Pri pokusu o update pak zavola neco jako
> "update tabulka set .... where id is null and ...
>
> Access pak rekne, ze zadny takovy zaznam nenasel: pochopitelne, do "id"
mezitim vrazil "automaticke cislo".
Ikony ve Windows 95
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 28.9.2001 14:20:56
Jo to jsem zapomel, jde o D6pro,
a ten 50comupd.exe mam spusti v tech Win95 nebo co amm s tim delat.
Diky za radu.
P.S. jestli mam spravovat ty Windowsy, to by bylo blbe, protoze u zakazniku
nic nespravim - jsou daleko.
Pavel
> > delam nejaky projekt, kde je i ToolBar s ikonkami - pres ImageList.
> > Bohuzel ve Windows 95 nejdou videt ikonky (klasicke typu bmp).
>
> Mozno sa jedna o starsiu verziu comctl32.dll. Na Delphi CD by si mal najst
> update. Nepises, ktoru verziu Delphi pouzivas, tu je uryvok z readme pre
> Delphi 6:
>
> The common controls updater can be run directly from your CD at:
> \info\extras\comctl\50comupd.exe
>
> HTH
> TOndrej
OpenDialog
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.9.2001 14:21:36
> Po vyvolani OpenDialogu je pri stisknuti klavesy Delete
> nabidnuta moznost
> presunu oznaceneho adresare, souboru do kose.
> Lze nejakym zpusobem eliminovat stisknuti klavesy Delete
> (neco na zpusob if Key=vk_Delete then....)
Malo by to chodit, v OnShow by si uz mal mat platnu Parent.Handle, takze
1. pomocou EnumChildWindows mozes najst ten listview
2. subclassnut ho pomocou SetWindowLong(... GWL_WNDPROC)
3. vo svojej window procedure osetrit (potlacit) VK_DELETE
ale ako zakazat drag&drop do Recycle Binu, to Ti z hlavy neporadim, asi cez
osetrenie mouse messages.
HTH
TOndrej
Tisk stringu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 28.9.2001 14:26:55
Hi,
priklad z funcniho projektu
procedure TFMenuPrinter.FontRotate(Rotate:Byte);
var
LogFont: TLogFont;
begin
with Printer.Canvas do
begin
with LogFont do
begin
lfHeight := Font.Height; // Nastav Printer.Canvas.font.height
lfWidth := 0; // nech Windows at si zvoli sirku fontu
lfEscapement := Rotate*10; // desetiny stupne, cili 900 = 90
stupnu
lfOrientation := lfEscapement; // vzdy nastaveno na hodnotu
lfEscapement
lfWeight := FW_NORMAL; // implicitni
lfItalic := 0; // bez kurzivy
lfUnderline := 0; // bez podrhavani
lfStrikeOut := 0; // bez presktrnuti
lfCharSet := ANSI_CHARSET; // implicitni
StrPCopy(lfFaceName, Font.Name); // Printer.Canvas's font's name
lfQuality := PROOF_QUALITY;
lfOutPrecision := OUT_TT_ONLY_PRECIS; // chtej TrueType fonty
lfClipPrecision := CLIP_DEFAULT_PRECIS; // implicitni
lfPitchAndFamily := Variable_Pitch; // implicitni
end;
end;
Printer.Canvas.Font.Handle := CreateFontIndirect(LogFont);
end;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> -----Original Message-----
> Subject: Re: Tisk stringu
> Ten prikladek, ale kresli na Image1.Canvas.
> Jakmile to nahradim Printer.Canvas tak se text neotaci.
> Nevite nekdo co s tim?
> Ikony ve Windows 95
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.9.2001 15:10:24
> Jo to jsem zapomel, jde o D6pro,
> a ten 50comupd.exe mam spusti v tech Win95 nebo co amm s tim delat.
> Diky za radu.
Ano, ak je to skutocne problem so starou verziou comctl32.dll, potom si
zakaznici musia spravit update, alebo sa zmierit s buttonmi bez obrazkov ;-)
> P.S. jestli mam spravovat ty Windowsy, to by bylo blbe,
> protoze u zakazniku nic nespravim - jsou daleko.
Instalacia je jednoducha, staci to na cielovom stroji u zakaznika spustit,
ak im ten update nevies poslat, mozu si ho stiahnut sami od microsoftu:
http://support.microsoft.com/support/kb/articles/q186/1/76.asp
Dufam, ze ten link je spravny (posledny update), neskusal som to.
Pripadne si mozu nainstalovat/upgradnut Internet Explorer, ta DLL je
pribalena k tomu, pisu to aj v tom spominanom Delphi readme.
HTH
TOndrej
Ikony ve Windows 95
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.9.2001 15:16:20
A este som narazil na jednu zaujimavu perlicku:
"Microsoft does not allow the separate redistribution of COMCTL32.DLL at
this time, and you will NOT be provided with written permission. However,
the following alternatives are available to you and we hope at least one of
them will meet your business needs: "
http://www.microsoft.com/permission/copyrgt/cop-soft.htm
Priznam sa, nerozumiem tomu. Ale mam dojem, ze v kazdom pripade je legalne
poslat zakaznikovi odkaz na tu download stranku a povedat mu nech si to
stiahne a nainstaluje sam.
TOndrej
Ikony ve Windows 95
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 28.9.2001 15:23:14
Jo diky, na CD jsem to nasel a budu ho tedy rozesilat na DC s programem.
Diky za pomoc Pavel
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> > Jo to jsem zapomel, jde o D6pro,
> > a ten 50comupd.exe mam spusti v tech Win95 nebo co amm s tim delat.
> > Diky za radu.
>
> Ano, ak je to skutocne problem so starou verziou comctl32.dll, potom si
> zakaznici musia spravit update, alebo sa zmierit s buttonmi bez obrazkov
;-)
>
> > P.S. jestli mam spravovat ty Windowsy, to by bylo blbe,
> > protoze u zakazniku nic nespravim - jsou daleko.
>
> Instalacia je jednoducha, staci to na cielovom stroji u zakaznika spustit,
> ak im ten update nevies poslat, mozu si ho stiahnut sami od microsoftu:
> http://support.microsoft.com/support/kb/articles/q186/1/76.asp
> Dufam, ze ten link je spravny (posledny update), neskusal som to.
> Pripadne si mozu nainstalovat/upgradnut Internet Explorer, ta DLL je
> pribalena k tomu, pisu to aj v tom spominanom Delphi readme.
>
> HTH
> TOndrej
Ikony ve Windows 95
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 28.9.2001 15:37:54
> "Microsoft does not allow the separate redistribution of
> COMCTL32.DLL at this time [snip]
> http://www.microsoft.com/permission/copyrgt/cop-soft.htm
Po dokladnejsom precitani mam pocit, ze nesmies distribuovat comctl32.dll
samotnu, ale distribuovat self-extracting 50comupd.exe by malo byt v pohode.
HTH + howgh :-)
TOndrej
Ikony ve Windows 95
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.9.2001 16:35:37
Puvodni zprava, kterou napsal Ondrej Kelle dne 28 Sep 2001:
> A este som narazil na jednu zaujimavu perlicku:
>
> "Microsoft does not allow the separate redistribution of COMCTL32.DLL
at
> this time, and you will NOT be provided with written permission.
However,
No to znamena, ze se nesmi distribuovat samotka COMCTL32.DLL,
ale pouze ten jejich EXE, ktery ji sam vybali, porovna
a pripadne nainstaluje... Takze zadny velky problem...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Volba
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 28.9.2001 19:49:01
28.9.2001 Slavek Rydval:
> podle jistych informaci od MS budou soucasni uzvatele nad novou
> verzi brecet, protoze se vyrazne zmenila prace. Pokud si to dobre
> pamatuji jako ze asi ne (informaci jsem dostal letos v lednu), pak
> napriklad objekty budou opravdovymi objekty, budou se muset
> uvolnovat a dalsi. Bohudik Basic nepouzivam, tak - bohuzel -
> nemohu rict presne informace. Rozhodne se ale muzeme zeptat na
> Invexu.
Snazim se deni okolo .NET sledovat. Prechod z normalniho VB na VB.NET
znamena skoro cely projekt prepsat nebo aspon spoustu rucni prace.
Skutecne by to melo byt "objektovejsi", cili zadne deklarace typu Dim
promenna as NEW apod. To mimochodem znamena prepsat vsechny deklarace,
vytvareni a uvolnovani objektu a pokud slo o vetsi projekt...
V mem puvodnim dotazu mi slo treba jestli se neco zmenilo v praci s
halvnim menu apod. Tam to ve VB moc privetive nebylo :-(
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
cist stream jako string
[*] Milan ��ek - 28.9.2001 19:59:05
ahoj,
mam vytvoren TMemoryStrem a potrebuji spocitat jeho CRC32 - data v nem bych
rad jako string. String(MyStream.Memory) my vyhazuje chybu, stejne jako
String(MyStream.Memory^).
Diky za radu
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
cist stream jako string
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.9.2001 20:20:30
Puvodni zprava, kterou napsal Milan #ݿek dne 28 Sep 2001:
> mam vytvoren TMemoryStrem a potrebuji spocitat jeho CRC32 - data v nem
bych
> rad jako string. String(MyStream.Memory) my vyhazuje chybu, stejne jako
> String(MyStream.Memory^).
Nevim, jestli je to nejidealnejsi reseni, ale ja bych to udelal
takhle:
var
S: String;
...
begin
...
SetLength(S, MyStream.Size);
MyStream.Read(S[1], MyStream.Size);
...
end;
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Ktery zpusob alokace matice na heapu je lepsi?
[*] Franti�ek Posp�il���~�,#+"#�##�� - 28.9.2001 20:56:25
> > Zajimal by me vas nazor na to, ktery ze 2 zpusobu alokace velmi velkych
> > matic na heapu je vyhodnejsi:
>
> vsiml jsem si, ze primo pises, ze chces alokokovat heap, ale pres to,
nebylo
> by pro uvazovany objem dat vhodnejsi implementovat "maticove" chovani nad
> jednou ci nekolika tabulkami a data nechat zpravovat nejakym databazovym
> strojem?
>
Mozna, ale chci matice pouzit pro vypocet konstrukci v metode konecnych
prvku. V takovem pripade jde o jednorazovy vypocet a nema asi smysl kvuli
tomu instalovat databazovy stroj.
Franta
cist stream jako string
[*] Milan ��ek - 28.9.2001 22:36:01
Puvodni zprava, kterou napsal Milan #ݿek dne 28 Sep 2001:
> mam vytvoren TMemoryStrem a potrebuji spocitat jeho CRC32 - data v nem
bych
> rad jako string. String(MyStream.Memory) my vyhazuje chybu, stejne jako
> String(MyStream.Memory^).
var
S: String;
...
begin
...
SetLength(S, MyStream.Size);
MyStream.Read(S[1], MyStream.Size);
...
end;
ahoj,
toto reseni se mi moc nelibi, ten stream je pomerne dlouhy - treba i 1MB
(nacteny soubor), pride mi dost zbytecne alokovat takovy retezec, kdyz uz ho
mam v pameti. Problem ale bude asi nekde jinde. Pokud pouziju
String(MyFile.Memory), tak se mi skutecne retezec preda do funkce pro
vypocet CRC32 (tento soubor ma zatim asi 3kB), bohuzel nevim, jestli je tam
ten retezec cely (nevim jak to overit), ale zacina spravne. Pri krokovani to
ta CRC32 funkce (ze Synapse) chrousta asi 10sekund a pak to vyhodi Access
Violation :( Mam jeste jeden projekt, ktery je postaven podobne a tam mi to
funguje (soubor asi 600kB). Je mozne, ze si treba CRC32 neporadi s nejakymi
znaky??? Opravdu nevim, kde hledat chybu :(
const
CRC32Tab: array[0..255] of Integer = (
Integer($00000000),Integer($77073096),Integer($EE0E612C),Integer($990951BA),
Integer($076DC419),Integer($706AF48F),Integer($E963A535),Integer($9E6495A3),
...
function UpdateCRC32(Value: byte; CRC32: integer): integer;
begin
Result:=((CRC32 shr 8) and Integer($00FFFFFF)) xor
CRC32tab[Byte(CRC32 xor Integer(Value)) and Integer($000000FF)];
end;
function GetCRC32(const Value: string): integer;
var Pos: integer;
begin
Result:=Integer($FFFFFFFF);
for Pos:=1 to Length(Value) do
Result:=UpdateCrc32(Ord(Value[Pos]),Result);
end;
var
FileID: string[4];
FileVer: string[4];
CUR_Total: word;
str_Cursor: array of record
CUR_Type: string[16];
CUR_Size: Int64;
Data: TMemoryStream;
end;
FileCRC32: integer;
implementation
{$R *.DFM}
procedure TForm1.SaveButtonClick(Sender: TObject);
var CUR_Counter: integer; MyFile: TMemoryStream; S: string;
begin
//---> nastavi a vytvori MemoryStream pro .Data
FileID:='CURs'; FileVer:='1.01'; CUR_Total:=4;
SetLength(str_Cursor,CUR_Total);
for CUR_Counter:=Low(str_Cursor) to High(str_Cursor) do
str_Cursor[CUR_Counter].Data:=TMemoryStream.Create;
//-----------------------------------------------
str_Cursor[0].CUR_Type:='main';
str_Cursor[0].Data.LoadFromFile('main.cur');
str_Cursor[1].CUR_Type:='dragform';
str_Cursor[1].Data.LoadFromFile('dragform.cur');
str_Cursor[2].CUR_Type:='hslider';
str_Cursor[2].Data.LoadFromFile('hslider.cur');
str_Cursor[3].CUR_Type:='vslider';
str_Cursor[3].Data.LoadFromFile('vslider.cur');
for CUR_Counter:=Low(str_Cursor) to High(str_Cursor) do
with str_Cursor[CUR_Counter] do CUR_Size:=Data.Size; // doplni
velikosti bitmap
MyFile:=TMemoryStream.Create;
with MyFile do
try
WriteBuffer(FileID,SizeOf(FileID));
WriteBuffer(FileVer,SizeOf(FileVer));
WriteBuffer(CUR_Total,SizeOf(CUR_Total));
for CUR_Counter:=Low(str_Cursor) to High(str_Cursor) do
with str_Cursor[CUR_Counter] do
begin
WriteBuffer(CUR_Type,SizeOf(CUR_Type));
WriteBuffer(CUR_Size,SizeOf(CUR_Size));
str_Cursor[CUR_Counter].Data.SaveToStream(MyFile);
end;
FileCRC32:=GetCRC32(String(MyFile.Memory)); //---> pokud nekrokuju i
funkce, tak tady spadne
WriteBuffer(FileCRC32,SizeOf(FileCRC32));
SaveToFile('test.cur');
finally
Free;
end;
//---> uvolni MemoryStream pro .Data a pole
for CUR_Counter:=Low(str_Cursor) to High(str_Cursor) do
str_Cursor[CUR_Counter].Data.Free;
SetLength(str_Cursor,0);
end;
Diky za pomoc
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
AVG a procesy ve Win2k
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 28.9.2001 23:10:08
----- Original Message -----
From: "Vasek Navrat" <engine(zv)ropacek(tec)cz>
> programy. Ve Win2k je AVG zarazeno mezi procesy a ja bych potreboval
vedet,
> jak si overim, ze to AVG je opravdu mezi temi procesy. Mohl by mi nekdo
> poradit, jak na tento zajimavy problem vyzrat?
Ahoj.
Je to trochu vykuchany, ale puvodne mi to prislo z konference, tak to urcite
pujde najit.
Ludek
const
SERVICE_MY_ACCESS = ( SERVICE_QUERY_STATUS or
SERVICE_START or
SERVICE_STOP or
SERVICE_PAUSE_CONTINUE );
MY_ERROR = $00000000;
resourcestring
rsErrorCantLoadServiceManager = 'Nelze spustit service manager.';
rsErrorCantFindService = 'Slu�ba %s nenalezena.';
rsInformationServiceAlreadyRunning = 'Slu�ba %s je ji� pu#t�na';
rsInformationServiceStarted = 'Slu�ba %s byla spu#t�na';
rsInformationServiceAlreadyStopped = 'Slu�ba %s je ji� zastavena ?';
rsInformationServiceStopped = 'Slu�ba %s byla zastavena';
implementation
{$R *.DFM}
function StartStopService(const ServiceName: String; const Start: Boolean):
Boolean;
var
Mgr: THandle;
P: PChar;
Svc: THandle;
Status: TServiceStatus;
begin
Result := FALSE;
Mgr := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
if Mgr = 0 then
raise Exception.Create(rsErrorCantLoadServiceManager);
Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_MY_ACCESS);
if Svc = 0 then
raise Exception.CreateFmt(rsErrorCantFindService, [ServiceName]);
QueryServiceStatus(Svc, Status);
if Start then
begin
if Status.dwCurrentState <> SERVICE_RUNNING then
begin
P := nil;
StartService(Svc, 0, P);
Result := TRUE;
end;
end else
begin
if Status.dwCurrentState <> SERVICE_STOPPED then
begin
ControlService(Svc, SERVICE_CONTROL_STOP, Status);
Result := TRUE;
end;
end;
CloseServiceHandle(Svc);
CloseServiceHandle(Mgr);
end;
function StatusService(const ServiceName: String) : word;
var
Mgr: THandle;
P: PChar;
Svc: THandle;
Status: TServiceStatus;
begin
Result := MY_ERROR;
Mgr := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
if Mgr = 0 then
raise Exception.Create(rsErrorCantLoadServiceManager);
Svc := OpenService(Mgr, PChar(ServiceName), SERVICE_MY_ACCESS);
if Svc = 0 then
raise Exception.CreateFmt(rsErrorCantFindService, [ServiceName]);
QueryServiceStatus(Svc, Status);
Result := Status.dwCurrentState;
CloseServiceHandle(Svc);
CloseServiceHandle(Mgr);
end;cist stream jako string
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.9.2001 23:18:56
Puvodni zprava, kterou napsal Milan #ݿek dne 28 Sep 2001:
> SetLength(S, MyStream.Size);
> MyStream.Read(S[1], MyStream.Size);
>
>
> ahoj,
> toto reseni se mi moc nelibi, ten stream je pomerne dlouhy - treba i
1MB
1 MB nic neni.
> (nacteny soubor), pride mi dost zbytecne alokovat takovy retezec, kdyz
uz ho
> mam v pameti. Problem ale bude asi nekde jinde. Pokud pouziju
> String(MyFile.Memory), tak se mi skutecne retezec preda do funkce pro
> vypocet CRC32 (tento soubor ma zatim asi 3kB), bohuzel nevim, jestli je
tam
> ten retezec cely (nevim jak to overit), ale zacina spravne. Pri
krokovani to
> ta CRC32 funkce (ze Synapse) chrousta asi 10sekund a pak to vyhodi
Access
10 sekund? To neni moc rychle. Tak pouzij bud nejakou jinou CRC32
metodu, ktera je uz napsana na stream, pripadne si ji uprav,
nebude to slozite... Ja pouzivam komercni knihovny, kde jsou CRC32
haldy, ale to bohuzel publikovat nemohu. Podivej se nekde na
Torry, vsak neco najdes, no a treba i v JCL neco bude...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
Co stoji dot NET (Was: Volba)
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.9.2001 00:22:29
> a co to je .NET? ;-) .NET jsou WindowXP, .NET je i treba SQL
> Server 2000, .NET je i Visual Studio .NET, .NET je i BizTalk Server
> atd atd. Dulezite je, co z toho chces pouzivat. A dulezite je, ze MS
> jde ted z cenama pekne nahoru. :-(
WindowsXP nie su .NET rovnako ani SQL Server 2000.
Erik
OpenDialog 2
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 29.9.2001 00:35:32
Poradi nekdo
Co napsat v Propertis do InitialDir, aby se v okne "Oblast hledani" nastavil
Tento pocitac.
(bez problemu funguje InitialDir c:\ c:\nekam)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.282 / Virov� b�ze: 150 - datum vyd�n�: 25.9.2001
Volba
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.9.2001 00:35:37
> podle jistych informaci od MS budou soucasni uzvatele nad novou
> verzi brecet, protoze se vyrazne zmenila prace. Pokud si to dobre
mozno od radosti, ak sa praca zmeni k lepsiemu ;-)
> pamatuji jako ze asi ne (informaci jsem dostal letos v lednu), pak
> napriklad objekty budou opravdovymi objekty, budou se muset
> uvolnovat a dalsi. Bohudik Basic nepouzivam, tak - bohuzel -
objekty uvolnuje automaticky garbage collector
> nemohu rict presne informace. Rozhodne se ale muzeme zeptat na
> Invexu.
stiahni si Beta 2 SDK a vyskusaj. Pripadne sa zaregistruj u MS
a poslu Ti aj Visual Studio.Net.
Erik
zdvojovani (Re: TDBGrid ...)
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 29.9.2001 05:34:04
Mam obdobny problem. Ke zdvojovani mi ale dochazi pokazde, kdyz pocet radku
prevysi pocet zobrazitelnych radku v DBGridu (obcas k tomu dochazi i jindy).
Pouzivam Access (Deersoft ADO) a D5Ent.
Refresh sem zkousel dat snad vsude a nic. Stale to tam je dvakrat (nekdy i
vickrat). Taky mi prislo zvlastni, ze problem zmizi po spusteni tridici
funkce uzivatelem (po klepnuti na tlacitko); pokud ale tu samou funkci
zavolam ja, tak se nic nestane (at ji volam pri form create nebo form show).
Take jsem zkousel komponentu DBAdvStringGrid od TMS, ktera tento problem
nema (dokonce ma i spravne scrollbary). Bohuzel ji ale nemuzu pouzit,
protoze mi hlasi nejakou chybu zalozky...
Nevite co s tim? Nepomohl by treba ServicePack? S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Juraj Tomasov" <tomasovj(zv)minv.sk>
Sent: Wednesday, September 26, 2001 5:38 PM
Subject: TDBGrid a zobrazenie dat s diakritikou
Narazil som na problem s DBGrid, ked zobrazuje data z DataSet a v niektorom
stlpci
je v prvom riadku text zacinajuci pismenom s diakritikou, potom DBGrid
duplikuje zobrazovane riadky DataSetu. Vie niekto preco? Testoval som to s
Delphi6 a C++Builder5 a databaza je Informix, MS Access,... Zobrazovanie dat
pomocou EditBox a DBNavigator ide OK.
cist stream jako string
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.9.2001 08:47:16
> Puvodni zprava, kterou napsal Milan #ݿek dne 28 Sep 2001:
> ...
> toto reseni se mi moc nelibi, ten stream je pomerne dlouhy - treba i 1MB
> (nacteny soubor), pride mi dost zbytecne alokovat takovy retezec,
> kdyz uz ho mam v pameti.
Nelibi se ti zdvojeni dat v pameti.
Ale ty sam uz mas ta data v pameti zdvojena.
Jednou to mas nacteno v str_Cursor[i].Data
a potom to jeste jednou kopirujes do MyFile.
Pokud ti opravdu jde o pamet, tak to nacitej
jenom jednou, rovnou do MyFile.
> String(MyFile.Memory), tak se mi skutecne retezec
> preda do funkce pro vypocet CRC32 (tento soubor
> ma zatim asi 3kB), bohuzel nevim, jestli je tam
> ten retezec cely (nevim jak to overit), ale zacina spravne.
Muzes si byt zcela jisty, ze tam cely nebude.
Pokud do toho ukladas Cursory, zcela urcite se tam
budou vyskytovat znaky binarni nuly, a prvni takovy
znak ti retezec ukonci.
Vubec ale nevidim duvod, proc se snazis k tomu pristupovat
jako ke stringu. Pro vypocet CRC pouzivas funkci:
> function GetCRC32(const Value: string): integer;
> var Pos: integer;
> begin
> Result:=Integer($FFFFFFFF);
> for Pos:=1 to Length(Value) do
> Result:=UpdateCrc32(Ord(Value[Pos]),Result);
> end;
kde jednotlive znaky stejne prevadis na Byte funkci Ord.
Proc k tomu nepristupujes rovnou jako k poli ByteArray?
Napriklad takto:
function GetCRC32(Buf: PByteArray; Len: integer): integer;
var Pos: integer;
begin
Result := Integer($FFFFFFFF);
for Pos := 0 to Len-1 do
Result := UpdateCrc32(Buf^[Pos], Result);
end;
...
FileCRC32:=GetCRC32(PByteArray(MyFile.Memory), MyFile.Size);
S pozdravem
Vaclav Krmela
cist stream jako string
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.9.2001 12:48:22
> Muzes si byt zcela jisty, ze tam cely nebude.
> Pokud do toho ukladas Cursory, zcela urcite se tam
> budou vyskytovat znaky binarni nuly, a prvni takovy
> znak ti retezec ukonci.
To se pletes. V pripade dlouheo stringu z Delphi neni konec definovan nulovym
znakem! Delka retezce je explicitne jinde ulozena a tak tento typ muze
obsahovat libovolna binarni data! Ovsem si musis dat pozor, aby ses jej
nepokousel zpracovat funkcemi, ktere jsou delany na Pchar, tedy pokus o
zobrazeni takoveho retezce opravdu skonci na prvnim nulovem znaku. Ale to je
problem jen toho zobrazeni... nikoliv dat!!!
> Vubec ale nevidim duvod, proc se snazis k tomu pristupovat
> jako ke stringu. Pro vypocet CRC pouzivas funkci:
Protoze je to obslehnute ze Synapse, kde tuto funkci pouzivam k vypoctu
CRC32 kodu z dynamickeho binarniho bufferu, ktery mam implementovan
prave jako string. Proto tam pochopitelne pracuju se stringem, protoze nic
jineho nepotrebuji.
A pokud tu nekdo rikal neco opomalosti (10 sekund...) a naslednem access
violation.. tak je to znamka toho, ze vypocet nebezel nad Stringem, ale nad
nejakou jinou casti pameti.. tedy ze pocital nesmysly patrne ve vetsine
pametoveho prostoru, az dosel na oblast pameti, kde nemel pravo cist...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Volba
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.9.2001 14:30:35
> V mem puvodnim dotazu mi slo treba jestli se neco zmenilo v praci s
> halvnim menu apod. Tam to ve VB moc privetive nebylo :-(
Vytvorenie menu je podobne ako v Delphi, na formular das MainMenu
komponent a priamo na tom formulari aj definujes polozky menu (teda
je to este jednoduchsie ako v Delphi, kde musis spustit zvlastny menu
designer). Kliknutim na polozku sa presne ako v Delphi vygeneruje event,
do ktoreho dopises kod.
Erik
Spatne fonty v RichEditu
[*] Milan ��ek - 29.9.2001 15:14:45
ahoj,
vybral jsem font Verdana a zda se, ze to funguje tak, jak ma. Snad to bude
OK.
Objevil se ale dalsi problem: pokud selektuju misi a dam copy, tak se mi
text
odbarvi a preformatuje do plain text :(
Da se stim neco delat? Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
> mel jsem podobny problem. nacital jsem text ze souboru do pole blob v DB.
> pomoci komponenty DBRichEdit jsem se pak smazil text zobrazit, ale nektere
> znaky se mi automaticky prevedly do fontu SimSun a mensi velikosti.
>
> problem jsem vyresil (obesel) tak, ze jsem text ze souboru rucne
> prevedl do
> formatu RichEditu a pak jej teprve vlozil do pole. prevod se
> provadi, tak ze
> na zacatek textu pridas znaky hlavicky formatu richtext viz. nize
> a na konec
> pridas znak slozena zavorka - "}"
>
> -----------------------
> FText:= '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset238{\*\fname
> Arial;}Arial CE;}}' + #13#10 +
> '{\colortbl ;\red0\green0\blue0;}' + #13#10 +
> '\viewkind4\uc1\pard\cf1\lang1029\f0\fs20' + #13#10;
>
> FText:= FText + 'textova data...';
> FText:= FText + #13#10 + '}';
> -----------------------
> ahoj,
> mam na formulari RE, do ktereho nacitam ze souboru string. Ten obsahuje
> polozky oddelene strednikem. Chci, aby stredniky byli tucne a cervene nez
> ostatni udaje (clWindowText,[]), a pochopitelne, aby byli stredniky rovnou
> zbarvene i pri psani a editaci textu. Vyresil sem to takto:
>
> problem je ale vtom, ze pokud edituju text, pise se mi o neco
> mensim fontem
> (i kdyz ho nikde nenastavuju). Dokonce i naformatovane stredniky hned
> ponacteni jsou odlisne (mozna font nebo fsBold) od tech, co treba pripisu.
>
> Muzete mi nekdo naznacit, kde je chyba? Pripadne jestli se to da obejit.cist stream jako string
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.9.2001 15:41:20
From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
> toto reseni se mi moc nelibi, ten stream je pomerne dlouhy - treba i 1MB
> (nacteny soubor), pride mi dost zbytecne alokovat takovy retezec, kdyz uz ho
> mam v pameti. Problem ale bude asi nekde jinde. Pokud pouziju
Ahoj,
spravne, daleko vyhodnejsi je soubor namapovat do pameti nez jej (v nejhorsim
pripade) kopirovat do swapfilu. Pro mapovani muzes pouzit napriklad tridu
TJclFileMappingStream coz je potomek TCustomMemoryStream z JCL.
Petr Vones
Sdileni komponent: DLL a aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.9.2001 15:43:46
From: "Petr Selinger" <selinger(zv)keldo.net>
> resim problem se sdilenim komponent pres DLL.
> Hlavni aplikace pouziva komponentu (ApdComPort od AsyncPro) a v DLL
> je nutno tuto komponentu pouzit rovnez.
Ahoj,
pak musis jak aplikaci tak DLL prelozit s runtime balicky, vcetne toho kde je
komponenta ApdComPort.
Petr Vones
MAPI example
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.9.2001 15:47:48
From: "FAIT Ji��, ml." <fait(zv)jakl(tec)cz>
> Outlook Expres 5.5 a a jak poznam verzi JEDI kdyz uz mam jenom unity?
>V zahlavi je 1.0.
Ahoj,
v unitu JclBase je konstanta JclVersionBuild, posledni verze by mela mit 464.
Petr Vones
Sesypani souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.9.2001 15:50:28
From: "EFG developer" <developer(zv)efg(tec)cz>
> Jelikoz zpracovani dat po jejich precteni je narocnejsi, musi se data
> nejprve zpracovat a potom odmazat -> toto nelze provest v "jedne" kriticke
> sekci, proto chci pouzit odmazavani od zacatku souboru v druhe sekci
> nasledovne:
>
> vstup do sekce
> precteni N zaznamu
> vystup ze sekce
> zpracovani, (tady muzou dalsi thready zapisovat do souboru)
> vstup do sekce
> odmazani N zaznamu * <- jak to co nejlepe provest ?
Ahoj,
co to udelat napriklad tak, ze zaznamy oznacis nejakym flagem jako smazane a
teprve po case je fyzicky odmazes (obdoba pakovani souborovych databazi).
Nejrychleji to pujde asi namapovanim soboru do pameti.
Petr Vones
IB6 automaticka zaloha
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 29.9.2001 16:03:01
Zdravim.
Poradte jak na serveru zalohovat data IB6.
Naplanuji provadeni ulohy. Prikazovy radek:
"GBAK databaze.gdb zaloha.gbk -B -USER SYSDBA -PAS heslo"
Pokud jsem k PC prihlasen uloha probehne v poradku.
Pokud je uzivatel odhlasen, uloha skonci s chybou a zaloha se neprovede.
IB6, Windows 2000 Prof. i Server
Predem diky za napady.
Ludek
IB6 automaticka zaloha
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 29.9.2001 17:06:30
>Poradte jak na serveru zalohovat data IB6.
>Naplanuji provadeni ulohy. Prikazovy radek:
>"GBAK databaze.gdb zaloha.gbk -B -USER SYSDBA -PAS heslo"
>Pokud jsem k PC prihlasen uloha probehne v poradku.
>Pokud je uzivatel odhlasen, uloha skonci s chybou a zaloha se neprovede.
Nevim jak Win2000.
U NT by tusim mel byt nastaven u AT prikazu prepinac /INTERACTIVE.
Zkus to.
Leos
Petr Vones spisovatelem :-)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.9.2001 17:52:28
Ahoj lidickove,
studujic web Vlatavy, zjistuji, ze v CPressu vychazi kniha 1001 tipu
a triku pro Delphi.
Kdo znate Petra Vonese, tak Vas jiste zarazi fakt, ze jsem na
knihu narazil, kdyz jsem zadal hledat slovo SQL. ;-)
No nic. Konec reklamy. :-) Into tu:
http://www.vltava(tec)cz/Store/GoodsDetail.asp?sCGoodsID=SE000819
27&nDepartmentID=605&nLanguageID=169&sCurrencyAbbreviation
=CZK&nShopID=1
Slavek
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
typ cursoru?
[*] Milan ��ek - 29.9.2001 20:51:32
ahoj,
nemuzu prijit na to, jaky typ mam pouzit pro nacteni kurzoru (.cur). Pokud
pouziju TIcon, tak mi to napise chybu: Icon image is not valid.
Test:=TIcon.Create;
Test.LoadFromFile('main.cur');
//Test.LoadFromStream(str_Cursor[0].Data);
Screen.Cursors[CUR_MAIN]:=Test.Handle;
PS: da se nejakym zpusobem priradit kurzor aplikaci napr. ze streamu, abych
ho musel nejdrive nacitat do %subj%?
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Nahrada FastNetu
[*] Tom� Hula - 29.9.2001 21:20:23
Zdravim,
zajimalo by me, jestli krome Indy existuje nejaka kolekce komponent nahrazujici komponenty
FastNet. S obema uvedenyma mam urcite problemy ... Stacila by i samostatna HTTP
komponenta.
Predem diky,
Tom�# Hula
email: tomas.hula(zv)seznam(tec)cz
homepage: http://e-technics.zde(tec)cz
Opalovane spusteni aplikace
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 29.9.2001 21:30:17
Zdravim
V archivu konference jsem nasel toto reseni, a pouzivam jej
uses
Forms,Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
hMutex: HWND;
begin
hMutex:= CreateMutex(nil, false, 'Test jednoho spu#t�n�');
if GetLastError = ERROR_ALREADY_EXISTS then begin
MessageBox(0, 'jsem dalsi instance', 'chyba', MB_OK or MB_ICONERROR);
Exit;
end;
MessageBox(0, 'jsem prvni instance', 'info', MB_OK or MB_ICONINFORMATION);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.282 / Virov� b�ze: 150 - datum vyd�n�: 25.9.2001
TBitmap v Threadu (synchronize)
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 29.9.2001 22:01:19
Zdravim,
pri kresleni bitmapy ztracim obcas jeji handle, nevite nekdo proc?
Situace je nasledujici:
MyThread(potomek TThread) ma datovou polozku FBitmap:TBitmap.
MyThread.Execute
begin
...vytvoreni bitmapy, nastaveni Width, Height, PixelFormat....
while not Terminated do
... nakresli neco do bitmapy pomoci TBitmap.Canvas.Draw;
Synchronize(Draw);
end;
...dealokace bitmapy...
end;
MyThread.Draw;
var ARect : TRect;
begin
ARect := Rect(0,0,FBitmap.Width-1,FBitmap.Height-1);
Form1.PaintBox.Canvas.CopyRect(ARect, FBitmap.Canvas, ARect);
{zkousel jsem i toto, ale neni v tom rozdil:
Form1.PaintBox.Canvas.Draw(0,0,FBitmap);}
end;
Kdyz se to spusti, tak to dlouho je zcela OK, ale pak to znicehonic prestane tu
bitmapu vykreslovat (ale thread bezi, Draw se vola).
Je temer jiste, ze to bude souviset s nerentrantnosti VCL, ale neni mi jasne, co
delam spatne - tohle by prece mel byt korektni zpusob
(metody TBitmap vola vzdy jen jeden thread).
Poradite mi nekdo? Pouzivam: D5 Enterprise, Win98.
--MM
Co stoji dot NET (Was: Volba)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.9.2001 08:55:06
Ahoj,
Jsou a nejsou. .NET je technologie, uvedene produkty tuto
technologii podporuji a vyuzivaji.
Blizsi informace tu: http://www.microsoft.com/cze/net/
nebo tu: http://www.microsoft.com/cze/net/qa.asp
Slavek
> > a co to je .NET? ;-) .NET jsou WindowXP, .NET je i treba SQL
> > Server 2000, .NET je i Visual Studio .NET, .NET je i BizTalk Server
> > atd atd. Dulezite je, co z toho chces pouzivat. A dulezite je, ze MS
> > jde ted z cenama pekne nahoru. :-(
> WindowsXP nie su .NET rovnako ani SQL Server 2000.
> Erik
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Restructure paradox tabulky
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 30.9.2001 10:28:49
Ahoj,
muze mi moc prosim nekdo napsat funkni priklad zmeny pole autoincrement
na pole typu I v Paradox tabulce pomoci API ? Uz to lamu nekolik dni a ne a
ne
na to prijit. Nepomohly ani priklady ze stranek Inprise k BDE.
Dik moc, zacatecnik Lada, D3
Nahrada FastNetu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.9.2001 12:20:34
From: "Tom�# Hula" <tomas.hula.knf(zv)seznam(tec)cz>
> zajimalo by me, jestli krome Indy existuje nejaka kolekce komponent
> nahrazujici komponenty FastNet. S obema uvedenyma mam urcite problemy ...
> Stacila by i samostatna HTTP komponenta.
Ahoj,
WinInet: http://msdn.microsoft.com/workshop/networking/wininet/wininet.asp
Synapse: http://www.ararat(tec)cz/synapse/
Petr Vones
Delphi5 <-> Delphi6: jak je to s komponentama?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.9.2001 12:24:35
From: "Petr Selinger" <selinger(zv)keldo.net>
> narazil jsem na zajimavy problem. V me aplikaci se pri startu
> zobrazuje tzv SplashScreen, kde vypisuju prubeh vytvareni formularu.
> Pozadi je JPEG obrazek tridy TImage a na ni je transparentni Label.
> V Delphi5 vse bezelo krasne, ovsem po prelozeni stejneho kodu
> v Delphi6 se objevi neprijemne blikani pri zmene textu v Labelu.
> Myslite, ze doslo k nejakym zmenam v zakladnich komponentech jako
> je TImage?
Ahoj,
ano doslo. Jak mas nastavene vlastnosti Stretch, Align a Proportional ?
Petr Vones
Kompilace VCL?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.9.2001 12:26:16
From: <brant(zv)dcomm(tec)cz>
> Ahoj, nasel jsem chybu v DBGridu (pro pripadne zajemce je blizsi popis na
> http://buglist.jrsoftware.org/generated/entry0631.htm), podle tamtez
> uvedeneho navodu jsem ji opravil, zkompiloval DBGrids.pas a nakopiroval jsem
> DBGrids.DCU vsude tam, kde to bylo puvodne. Otazka zni, jestli je to takto
> provedene ciste nebo zda se musi udelat jeste neco jineho. Diky
Ahoj,
Idealni je takto upraveny zdrojak umistit do adresare projektu (kde je dana
uprava potrebna) a neprepisovat puvodni pas/dcu.
Petr Vones
Prepinani klavesnic
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.9.2001 12:43:06
From: "Jaskin" <jaskin(zv)seznam(tec)cz>
> Delam aplikaci ktera obsahuje TRichEdit, po jejim spusteni se mi prepina
> anglicka klavesnice do ceske...
Ahoj,
RichEdit prepina klavesnici podle toho jak byla nastavena v danem bloku textu.
Memo byt to jit odstanit takto, ale nelze zarucit ze to bude fungovat se vsemi
verzemi RichEditu, uz je jich tusim celkem 5, VCL podporuje pouze 1.0 :-(
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/API/Example_RicheditAutolayoutD
isable.zip
> Pokud to nelze tak jak prepinat mezi klavesnicemi ve Windows (programove..
Podivej se na unit JclLocales a priklad LocalesExample.dpr z JCL. Tam najdes
jak prepinani tak i zobrazovani, nahravani dalsich klavesnic apod.
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
MAC adresa sitovky
[*] Daniel Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 30.9.2001 14:17:38
Zdravim,
potreboval bych zjistit MAC adresu sitoveho adapteru. Dokazu si ji zjistit pres winipcfg nebo pres nbtstat , ale neexistuje na to primo nejaka funkce v Dephi ? Pomohlo by mi to.
Diky, Balda
ocisteni cesty od balastu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 30.9.2001 16:38:33
Zdravim
Mam string ve tvaru "C:\Office\Office\WINWORD.EXE /n" (bez uvozovek) a
potrebuju z nej odstranit vse, co je za .exe, tedy
"C:\Office\Office\WINWORD.EXE". Snazim se laborovat s timto:
var
ExtPath: String;
ResExtPath: PChar;
strlcopy(
ResExtPath,
Pchar(ExtPath),
strlen(Pchar(ExtPath))-(strlen(strpos(Pchar(ExtPath),'.exe'))-4)
);
Podle me je problem v tretim radku. Ten vlastne ma vypocitat delku PCharu az
po prvni vyskyt ".exe" a pricist 4, aby to bylo i s tou priponou. Nicmene to
nefunguje. Skonci to na Acces violation ... Snad se najde nekdo, kdo poradi,
uz se s tim trapim mooc dlouho.
Diky
Hurricane
ocisteni cesty od balastu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.9.2001 16:52:53
Puvodni zprava, kterou napsal Hurricane dne 30 Sep 2001:
> Mam string ve tvaru "C:\Office\Office\WINWORD.EXE /n" (bez uvozovek) a
> potrebuju z nej odstranit vse, co je za .exe, tedy
> "C:\Office\Office\WINWORD.EXE". Snazim se laborovat s timto:
I := Pos('.EXE', UpperCase(Vstup));
if I > 0 then
Vysledek := Copy(Vstup, 1, I + 3)
else
Vysledek := 'prdlajs';
Ale nepocita to s tim, ze vstup bude treba:
c:\programy.exe\Office\winword.exe...
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================
ocisteni cesty od balastu
[*] brant(zv)dcomm(tec)cz - 30.9.2001 16:53:37
Pokud tva deklarace vypada tak, jak je tu napsana, tak neni divu. Pokud se
napise jen ResExtPath: PChar, znamena to, ze mas promennou typu PCHar, tedy
jen pointer, ktery ovsem ukazuje nekam nahodne do pameti. Musis zde myslet
na to, abys mel pro takovou promennou take vyhrazenou pamet. To se provede
deklaraci
ResExtPath: array[0..255 {pripadne vice ci mene}] of char. Promenna
ResExtPath pak znamena totez co predtim, tedy ukazatel nekam do pameti, ale
tentokrat uz ukazuje na pamet, ktera je volne k pouziti. Podobne napr. TList
je jen pointer a je treba provadet alokaci resp. dealokaci "rucne".
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Mam string ve tvaru "C:\Office\Office\WINWORD.EXE /n" (bez uvozovek) a
potrebuju z nej odstranit vse, co je za .exe, tedy
"C:\Office\Office\WINWORD.EXE". Snazim se laborovat s timto:
var
ExtPath: String;
ResExtPath: PChar;
strlcopy(
ResExtPath,
Pchar(ExtPath),
strlen(Pchar(ExtPath))-(strlen(strpos(Pchar(ExtPath),'.exe'))-4)
);
Podle me je problem v tretim radku. Ten vlastne ma vypocitat delku PCharu az
po prvni vyskyt ".exe" a pricist 4, aby to bylo i s tou priponou. Nicmene to
nefunguje. Skonci to na Acces violation ... Snad se najde nekdo, kdo poradi,
uz se s tim trapim mooc dlouho.
Diky
Hurricane
None
[*] Mirek Melichar <mirek(zv)psi(tec)cz> - 30.9.2001 16:55:33
Zdravim,
pri kresleni bitmapy ztracim obcas jeji handle, nevite nekdo proc?
Situace je nasledujici:
MyThread(potomek TThread) ma datovou polozku FBitmap:TBitmap.
MyThread.Execute
begin
...vytvoreni bitmapy, nastaveni Width, Height, PixelFormat....
while not Terminated do
... nakresli neco do bitmapy pomoci TBitmap.Canvas.Draw;
Synchronize(Draw);
end;
...dealokace bitmapy...
end;
MyThread.Draw;
var ARect : TRect;
begin
ARect := Rect(0,0,FBitmap.Width-1,FBitmap.Height-1);
Form1.PaintBox.Canvas.CopyRect(ARect, FBitmap.Canvas, ARect);
{zkousel jsem i toto, ale neni v tom rozdil:
Form1.PaintBox.Canvas.Draw(0,0,FBitmap);}
end;
Kdyz se to spusti, tak to dlouho je zcela OK, ale pak to znicehonic prestane tu
bitmapu vykreslovat (ale thread bezi, Draw se vola).
Je temer jiste, ze to bude souviset s nerentrantnosti VCL, ale neni mi jasne, co
delam spatne - tohle by prece mel byt korektni zpusob
(metody TBitmap vola vzdy jen jeden thread).
Poradite mi nekdo? Pouzivam: D5 Enterprise, Win98.
--MM
CodeRush 5
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 30.9.2001 17:21:05
Ja se s timhle trapim v Delphi5/Win95. Pokud pouzijes File/Close All
pred ukoncenim Delphi, je to lepsi. Ovsem podle toho, co jsem se docetl
v konferenci CodeRush, jsem mel zato, ze je toto pouze problem WinXX,
nikoliv NT a Win2000.
Ji�� Foldyna wrote:
>
> Ahoj,
>
> nainstaloval jsem si CodeRush 5 (podle doporuceni z konference). Vypada
> skutecne velmi dobre, jedine, co mi skutecne vadi, je serie Access violation
> a Invalid operation pri ukonceni Delphi. Nic se sice nepokazi, ale zavirat
> nekdy i 50 oken s chybovym hlasenim otravuje. Ve FAQ u Eagle-SW jsem sice
> nasel radu (zablokovat Tip of Day a Clipboard Viewer), ale nepomaha to. Mate
> s tim nekdo nejakou zkusenost, pripadne reseni ?
> Mimochodem, problem s vyhledavanim tlf cisel jsem jiz vyresil a dekuji timto
> vsem za podnety.
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
ocisteni cesty od balastu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.9.2001 17:22:49
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Mam string ve tvaru "C:\Office\Office\WINWORD.EXE /n" (bez uvozovek) a
> potrebuju z nej odstranit vse, co je za .exe, tedy
> "C:\Office\Office\WINWORD.EXE". Snazim se laborovat s timto:
Ahoj,
muzes pouzit PathRemoveArgs z SHLWAPI (IE4 a novejsi), konverzi najdes na
Jedi (http://delphi-jedi.org/Jedi:APILIBRARY) a popis funkce v MSDN:
uses
Shlwapi;
procedure TForm1.Button1Click(Sender: TObject);
var
Path: array[0..MAX_PATH] of Char;
begin
Path := 'C:\Office\Office\WINWORD.EXE /n';
PathRemoveArgs(Path);
ShowMessage(Path);
end;
Petr Vones
ocisteni cesty od balastu
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 30.9.2001 17:50:13
Buh (a archiv konference) je mi svedkem, ze uz jsem ti 2x (slovy DVAKRAT)
posilal funkci, ktera umela to co potrebujes!!!
Nicmene, chces-li to resit pres hledani '.exe', tak pouzij:
x := pos('.exe', lowercase(extpath));
if x > 0 then setlength(extpath, x + 3);
Uvedom si ale, ze ten retezec muze vypadat tez "c:\neco.exe\program.exe".
Potom ti to fungovat nebude. Radim ti tedy pouzit to, co jsem ti jiz
posilal.
Frankie Y
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, September 30, 2001 4:38 PM
Subject: ocisteni cesty od balastu
> Zdravim
>
> Mam string ve tvaru "C:\Office\Office\WINWORD.EXE /n" (bez uvozovek) a
> potrebuju z nej odstranit vse, co je za .exe, tedy
> "C:\Office\Office\WINWORD.EXE". Snazim se laborovat s timto:
>
> var
> ExtPath: String;
> ResExtPath: PChar;
>
> strlcopy(
> ResExtPath,
> Pchar(ExtPath),
> strlen(Pchar(ExtPath))-(strlen(strpos(Pchar(ExtPath),'.exe'))-4)
> );
>
> Podle me je problem v tretim radku. Ten vlastne ma vypocitat delku PCharu
az
> po prvni vyskyt ".exe" a pricist 4, aby to bylo i s tou priponou. Nicmene
to
> nefunguje. Skonci to na Acces violation ... Snad se najde nekdo, kdo
poradi,
> uz se s tim trapim mooc dlouho.
>
> Diky
> Hurricane
>
>
>TO ROMAN] : Mixer poste
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 30.9.2001 19:18:17
Nazdar,
potreboval bych, jak automaticky zjistit co je master aux atd., a mute jako
radiobutton jako ve sndvol.exe, a ne jak to bylo. Delam totiz vetsi projekt,
kde potrebuju ovladat pevne master a volitelne ostatni. Uz jsem myslel, ze
master je vzdy 0-0-0, a ztlumit je vzdy mute, ale omyl. Mam novou zvukovku a
tam kde byl master je 3D enable, misto mute SPDIF Out Enable, p�ibyly n�j�k�
I^2S a misto anglictiny jako volume je hlasitost. Nebylo by na skodu ovladat
take balance - potrebuji udelat neco jako ovladani hlasitosti ve win. Moc
dik... ...DKx...RE[2]: SendMessage
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 30.9.2001 19:18:21
>> SendMessage(GetForegroundWindow,WM_KEYDOWN,VK_RETURN,0) ?
>Mam takovy pocit, ze posledni parametr je pocet opakovani
>klavesy, mela by tam byt 1.
Bohuzel, to jsem zkousel uz davno - jde mi o stisk dvou klaves (pr.
ALT+X)...sms na EUROTEL SK
[*] SlavekB <VlcekB(zv)atlas(tec)cz> - 30.9.2001 19:24:12
dobry den
mam mensi problem, chci posilat sms zpravy pomocni smtp protokolu ale nevim
na jakou adresu bych to mel posilat v ramci SR, kdyz posilam v CR treba na
EUROTEL tak adresu skladam -
'+42'+predvolba+cislo+'(zv)sms.eurotel(tec)cz'
nevite nekdo jak ji slozit na EUROTEL SK?
s pozdravem SlavekB
Load/Save z/do souboru z/do BLOB pole SQLClientDat
[*] David Janko <djanko_delphi-konf(zv)infoware(tec)cz> - 30.9.2001 19:41:02
Zdravim vsechny,
pustil jsem se to programovani v CLX/Kylixu a zaboha nemuzu prijit na to, jak
dostat data ze souboru do BLOB pole datasetu (a pripadne na opak).
appl: SQLConnection->SQLCLientDataset->DataSource->DBGrid;
DB: mysql, testovaci tabulka ma prmarni klic a pole typu BLOB;
Zkousel jsem to (pote, co me zklamalo ze to pole nepodporuje primo
LoadFromFile a prostudovani docs) pomoci konstrukci uvednych na konci a
jejich variant.
Nevi pls nekdo jak na to ?
Predem moc dekuji ...
=== pres zapis do streamu:
fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
SQLClientDataSet1.Edit;
DStream:=SQLClientDataSet1.CreateBlobStream(SQLClientDataSet1.FieldByName('Im
age'), bmReadWrite);
repeat
i := fs.Read(buff, 255);
DStream.Write(buff, i);
until i <> 255;
SQLClientDataSet1.Post;
DStream.Free;
=== pres SetData:
tmp := 'vosel';
p := AllocMem(Length(tmp)+1);
StrCopy(p, PChar(tmp));
SQLClientDataSet1.Edit;
SQLClientDataSet1.FieldByName('Image').SetData(p);
SQLClientDataSet1.Post;
=== pres napojeni na DBMemo:
var buff : WideString;
fs: TFileStream;
i : Integer;
begin
if OpenDialog1.Execute then
begin
{ --- zkouska:
// OK - Tohle chodi (debug ukazuje hodnotu):
buff := 'text';
DBMemo1.Text := buff;
}
fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
///SQLClientDataSet1.Edit;
repeat
i := fs.Read(buff, 255);
// DBMemo1.Append(buff); // - hazi SIGSEGV
// DBMemo1.Text := buff; // taky hazi SIGSEGV ?!?! (debug rika
Innacxcesible Value ?!?!?)
until i <> 255;
fs.Free;
end;
end;
---
--
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
Czech Republic / Central Europe
sms na EUROTEL SK
[*] Vachi <x5delphi(zv)yahoo(tec)com> - 30.9.2001 20:11:09
bohuzial to ma Eurotel SK nefunkcne :-(
vachi
_________________________________________________________
Do You Yahoo!?
Get your free (zv)yahoo.com address at http://mail.yahoo.com
Dva objektove problemy
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 30.9.2001 21:19:19
a) TSablona = class
data2: integer;
end;
TSklad = class
data: array of TSablona;
end;
procedure Test;
...
Sklad.Create;
...
***
S: TSablona;
Sklad: TSklad;
***
^ kdyz toto bude v tele procedury, je vse OK, pokud to ale bude mimo
proceduru, na Sklad.Create to hlasi AccessViolation...
kdyz to bude v tele procedury a navic do ni pridam i S.Create, opet
to padne na Sklad.Create.
Tusi nekdo, co delam spatne???
b) TSablona = class
...
Constructor Create;
Destruktor Destroy;
...
Constructor TSablona.Create;
begin
data:=nil;
inherited create;
end;
Destructor TSablona.Destroy;
begin
//(vlastni rusici kod)
inherited destroy;
end;
Ted otazka: proc me Delphiny varuji, ze metoda Destroy "hides method of
base TObject" ?? Vzdyt tam mam inherited... A navic, proc to same nepise o
Create?
-------------------------------------------------------------
Dik za rady,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm