Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Vicejazycna aplikace
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 31.10.2002 13:37:58
V tomto pripade jde o jednoduchou GUI aplikaci - zavadeni a
zpracov�ni zdravotnickych dotazniku s vystupem pro
respondenta v jeho materskem jazyce. Obsahuje mnoho ruznych
formularu s mnoha popisy pro prepis dat (zatim manualni).
Texty by bylo mozne prevest do resourcestring. Je mozne v
realnem case, tj. pri behu programu tyto retezce zamenit,
pripadne jak?
Jan Dvorak
>
> Take zalezi na tom o jakou jde aplikaci, pokud je to
nejaky
> server ktery ma
> poskytovat pouze nejake hlaseni v ruznych jazycich (pak se
> asi nehodi vyse
> popsane reseni) tak je to neco uplne jineho nez typicka
GUI
> aplikace ktera se
> preklada cela.
>
> Petr Vones
>
Prenositelnost z Kylixu do Delphi
[*] Roman Newman <r.newman(zv)zmail.sk> - 31.10.2002 13:40:03
>V D6 a vyssim by mela jit aplikace pod Kylixem, az na nejaka systemova
>volani bez problemu prelozit.
To nieje celkom pravda, je potrebne pisat unit s obydvoma druhmi unitov:
{$IFNDEF LINUX}
uses
Forms, SysUtils, ExtCtrls, StdCtrls, Spin, Controls, Menus;
{$ELSE}
uses
QForms, QTypes, QExtCtrls, QComCtrls, QStdCtrls, QControls, Classes,
SysUtils;
{$ENDIF}
Toto je zaciatok kodu z mojho programu kompilovaneho aj pod D5 aj pod
Kylix-om.
Taktiez je treba osetrit aby funkcie a procedury ktore nie ju v jednom z
kompilatorov
boli volene lek pri kompilovani z toho ktoreho kompilatoru.
Roman Newman
OT: RE: Jak USPAT disk
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 31.10.2002 13:43:45
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> V nastaveni Power managmentu mas vetsinou moznost: Turn off hardisks after xy
> minutes. Tuto moznost bych vsak krome notebooku nedoporucoval pouzivat protoze
> disky to nemaji moc radi a snizuje se tim zivotnost uz tak dost spotrebnich
> IDE disku.
>
>
Kde mohu najit nejake (ne)oficialni vyjadreni, ze vypinanim HDD snizuji jeho zivotnost?
Dekuji
Ober
Registry
[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 31.10.2002 13:43:01
> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> > Diky moc. je to i se zdrojakam , ale v cecku a nevic to vyuziva nejaky
> > .vxd k tomu zdrojaky nejsou. tak se zase asi nedovim jak to udelat v
> > delphi.
>
> Petr Vones: V Delphi neco takoveho zkratka neudelas.
Ahoj,
co treba pouzit RegNotifyChangeKeyValue?
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Reklama:
Obchodn� d�m(tec)cz - �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=59
Vicejazycna aplikace
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 31.10.2002 13:44:27
Prave tohle ti pridava praci a nuti te delat veci, ktere by vubec autor
programu delat nemusel a hlavne NEMEL.
Pokud udrzujes jednu aplikaci tak to zvladnes, ale pokud mas aplikaci vic,
tak za chvili nebudes delat nic jineho nez lokalizovat.
Co se tyka te zaruky odborneho prekladu, tak si myslim, ze je naopak vyhodou
pro uzivatele, kdyz si muze vybrat ten lokalizacni soubor, ktery mu vyhovuje
(napriklad od osvedceneho autora prekladu) a nemusi si nechat od tebe vnutit
pouze Tebou posvecene preklady.
Pouziji analogii na operacni system:
Pokud potrebuji napriklad znenit startovaci logo Windows, tak by se mi vubec
nelibilo,
pokud bych musel poslat bitmapu do firmy Microsoft a oni by mi poslali novou
verzi Windows se zapracovanou bitmapou.
Martin Kleiner
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Licenci vlastnis ty, a nechas si to prelozit nekym, kdo ti poskutne
> urcitou zaruku, ze to nezmrsi. Pak distribuujes svuj program se vsemi
> lokalizacemi. Prekladatel ti samozrejme posle slovnik a nastaveni,
> takze dalsi lokalizace si delas ty sam treba nejakym batchem.
Vicejazycna aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.10.2002 13:55:03
On 31 Oct 2002 at 13:35, Petr Fejfar wrote:
> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
>
> > problem jak rozume lokalizovat DFM aby to nebyla
>
> Zakladni kostru jsem delaval pomoci dobreho editoru
> a reg. expr. nad vsemi .DFM soubory v textovem tvaru.
> Pripadne zmeny rucnim pridanim odpovidajiciho radku.
No, to je prave ta hruza, ktera uspesne brani rozumne udrzbe. Jakmile
budes chtit zmenit usporadani okna a pripadne pridat nejake nove
prvky, je to v haji...
S pozdravem
Zbysek Hlinka
Re[2]: Registry
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 31.10.2002 13:56:48
Hello Petr,
Thursday, October 31, 2002, 12:28:54 PM, you wrote:
PV> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
>> Diky moc. je to i se zdrojakam , ale v cecku a nevic to vyuziva nejaky
>> .vxd k tomu zdrojaky nejsou. tak se zase asi nedovim jak to udelat v
>> delphi.
PV> V Delphi neco takoveho zkratka neudelas.
jsem toho nazoru ze vsechno jde.
PV> Petr Vones
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Zaslani WM_KEYDOWN
[*] Petr Kuklik <Petr.Kuklik(zv)seznam(tec)cz> - 31.10.2002 14:08:38
Dobry den,
jak mam poslat komponente zpravu WM_KEYDOWN s predem definovanymi
hodnotami CharCode a KeyData?
Priklad: Mam TEdit a TDBGrid, TEdit ma focus a pokud v TEdit
stisknu VK_UP, VK_DOWN chci, aby na to reagoval TDBGrid.
Diky Petr
Kuklik
______________________________________________________________________
Reklama:
Zapoj svoji osobnost. http://ad2.seznam(tec)cz/redir.cgi?instance=36150%26url=http://www.nokiagame(tec)cz
SQL s klauzulou MAX
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 31.10.2002 14:08:35
Ahoj,
riesim problem selectu s klauzulou MAX.
Mam dve tabulky. Tabulku osoba a archiv.
Tabulka archiv obsahuje k jednej osobe
spravidla viacero zaznamov, mna vsak
zaujima zaznam s poslednym datumom.
Nasledovny select funguje spravne:
select
osoba.MENO,
osoba.PRIEZ,
( select max(DATUM) from archiv where ID=osoba.ID )
...
Z tabulky archiv vsak potrebujem okrem hodnoty
DATUM aj inu polozku (napr. OPERATOR), co sa mi
vsak nedari, hoci som uz skusal vsetko mozne,
co ma napadlo (napr. rozne konstrukcie LEFT JOIN-u).
Nevedel by mi niekto pomoct? Ide o databazu INFORMIX.
Vlkovic
THREAD, NMHTTP
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 31.10.2002 14:12:00
bmV0TWFzdGVyIGtvbXBvbmVudGFtIGJ5Y2ggc2UgdnlobnVsLiBWIG5vdmVqc2ljaCB2ZXJ6aWNo
IGpzb3UNCm5haHJhemVueSBrb21wb25lbnRhbWkgSU5EWSAoanNvdSBmcmVlIGtlIHN0YXplbmkp
LiBOYXbtYyBJTkRZIGpzb3Ugc2UNCnpkcm9qaS4gVGFremUgcG9rdWQgdHJ2YXMgbmEga29tcG9u
ZW50YWNoLCB0YWsgc3BpcyBJTkRZLg0KT3NvYm5lIGJ5Y2ggYWxlIHJhZHNpIHNhaG51bCBwbyBr
bmlob3ZuZSBTWU5BUFNFICh0YWt5IGZyZWUpLg0KU3RhemVuaSBzb3Vib3J1IHByZXMgSFRUUCBj
aG9kaSBkb2JyZSBhIGplIHRvIHZlbG1pIGplZG5vZHVjaGUgKHZpeg0KcHJpa2xhZCB2IHVuaXRl
IEhUVFBTZW5kKQ0KDQotLSANCmluZy4gSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5j
eg0KDQozMS4xMC4yMDAyIERhbGlib3I6DQo+IEFob2osDQo+IHBvdHJlYnVqaSBwb21jaSBIVFRQ
IGRvdGF6dSBuYWNpc3QgbmVqYWthIGRhdGEgemUgc2VydmVydS4gRGF0YSAgDQo+IChiaW5hcm5p
KSAgc2VydmVyIG5lbXVzaSBwb3NsYXQgaG5lZCwgYWxlIGF6IHBvIG5lamFrZSBkb2JlLiBQcm90
byANCj4gYnljaCB0byBwb3RyZWJvdmFsIHZ5dHZvcml0IHBvbW9jaSB0aHJlYWR1IHRhaywgYWJ5
IHNlIGRhbGUgbW9obG8gdiANCj4gcHJvZ3JhbXUgcHJhY292YXQsIG5leiBzZSB0eXRvIGRhdGEg
a29tcGxldG5lIG5hY3RvdS4NCj4gQSBqZXN0ZSBqZWRuYSB2ZWMsIGphayBieSBzZSB0byBkYWxv
IG5hcHJvZ3JhbW92YXQgdGFrLCBhYnljaCB0byANCj4gbmVtZWwgb21lemVubyBwb3V6ZSBuYSBq
ZWRlbiBIVFRQIGthbmFsLCBhbGUgbmEgdmljZS4NCj4gVG96biwgemUgYnljaCBuYWplZG5vdSBt
b2hsIHBvc2xhdCB0cmViYSBheiA0IHBvemFkYXZreS4NCg0KPiBVdmF6dWppIG8ga29tcG9uZW50
ZSBOTUhUVFAuSmFrZSBtYXRlIHMgbmkgemt1c2Vub3N0aT8NCj4gTmVibyBuYSB0byBwb3V6aXQg
amluZSByZXNlbmk/IFByZXMgbmVqYWtlIHNvY2tldHksIGFwb2Q/DQo+IFMgVGhyZWFkeSBqc2Vt
IHphdGltIG5lZGVsYWwuLi4NCg0KPiBEZWt1amkNCiA=
Tlacitko & Form
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 31.10.2002 14:16:05
Diky za radu,
jak to ale udelat, kdyz to chci zkombinovat ss stiskem klavesy ?
V.
-----Original Message-----
From: Ing. Pavel �ilinec [mailto:zilinec(zv)email(tec)cz]
Sent: Thursday, October 31, 2002 1:20 PM
To: LUKES V�clav
Subject: Re: Tlacitko & Form
U OK si dej ModalResult na mrOK a u Storno na mrCancel a pak ne�
ve FORM1 uvoln� FORM2, tak se pod�vej na FORM2.ModalResult a hned
uvidi�, kter� tla��tko ho zav�elo.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
LV> Ahoj,
LV> prosim o radu. Mam nasledujici vec.
LV> Mam FORM1 a z neho volam FORM2 na kterem jsou dve tlacitka (Buttony) - OK a CANCEL. No a ja bych potreboval po stisknuti nektereho z nich ve FORMu1 zjistit, jake tlacitko ve FORM2 jsem stisknul.
LV> Diky
LV> V.
SQL s klauzulou MAX
[*] tomsir1.edu(zv)mail.cez(tec)cz - 31.10.2002 14:36:03
... a co pouzit SELECT max(DATUM) as max_datum, OPERATOR FROM archiv
WHERE ....
Radek
Peter Vlkovic <vlkovic(zv)minv.sk>(zv)clexpert(tec)cz on 31.10.2002 14:08:35
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
P�edm�t: SQL s klauzulou MAX
Ahoj,
riesim problem selectu s klauzulou MAX.
Mam dve tabulky. Tabulku osoba a archiv.
Tabulka archiv obsahuje k jednej osobe
spravidla viacero zaznamov, mna vsak
zaujima zaznam s poslednym datumom.
Nasledovny select funguje spravne:
select
osoba.MENO,
osoba.PRIEZ,
( select max(DATUM) from archiv where ID=osoba.ID )
...
Z tabulky archiv vsak potrebujem okrem hodnoty
DATUM aj inu polozku (napr. OPERATOR), co sa mi
vsak nedari, hoci som uz skusal vsetko mozne,
co ma napadlo (napr. rozne konstrukcie LEFT JOIN-u).
Nevedel by mi niekto pomoct? Ide o databazu INFORMIX.
Vlkovic
THREAD, NMHTTP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 31.10.2002 14:45:07
A co treba Synapse? Pokud se spokojis s jednoduchym stahovanim
souboru, muzes pouzit i predpripravenou funkci, jinak ale staci
pouzit tridu THTTPSend. Oboje neni sebemensi problem pustit v
samostatnem threadu a kolikrat chces...
> potrebuji pomci HTTP dotazu nacist nejaka data ze serveru. Data
> (binarni) server nemusi poslat hned, ale az po nejake dobe. Proto
> bych to potreboval vytvorit pomoci threadu tak, aby se dale mohlo v
> programu pracovat, nez se tyto data kompletne nactou. A jeste jedna
> vec, jak by se to dalo naprogramovat tak, abych to nemel omezeno pouze
> na jeden HTTP kanal, ale na vice. Tozn, ze bych najednou mohl poslat
> treba az 4 pozadavky.
>
> Uvazuji o komponente NMHTTP.Jake mate s ni zkusenosti?
> Nebo na to pouzit jine reseni? Pres nejake sockety, apod?
> S Thready jsem zatim nedelal...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Re[2]: Registry
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 31.10.2002 14:49:05
Hello Milan,
Thursday, October 31, 2002, 1:43:01 PM, you wrote:
>> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
>> > Diky moc. je to i se zdrojakam , ale v cecku a nevic to vyuziva nejaky
>> > .vxd k tomu zdrojaky nejsou. tak se zase asi nedovim jak to udelat v
>> > delphi.
>>
>> Petr Vones: V Delphi neco takoveho zkratka neudelas.
MC> Ahoj,
MC> co treba pouzit RegNotifyChangeKeyValue?
Je ja idiot zapomel ze mam MSDN. To bude asi tim ze se dlouho spousti
ja na nej uplne zapomenu ;)
The RegNotifyChangeKeyValue function notifies the caller about
changes to the attributes or contents of a specified registry key.
Note that the function does not notify the caller if the specified
key is deleted.
No to je super. takze jestli jsem to spravne pochopil tak tohle
sleduje urcitej HKEY_xxx ? ze jo ? ale pri to nepozna smazani
tak to je spatny tohle bych zrovna potreboval
MC> S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
MC> Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
MC> 59826637
MC> ______________________________________________________________________
MC> Reklama:
MC> Obchodn� d�m(tec)cz - �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=59
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Vicejazycna aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.10.2002 15:05:35
On 31 Oct 2002 at 13:44, Martin Kleiner wrote:
> Prave tohle ti pridava praci a nuti te delat veci, ktere by vubec
> autor programu delat nemusel a hlavne NEMEL. Pokud udrzujes jednu
> aplikaci tak to zvladnes, ale pokud mas aplikaci vic, tak za chvili
> nebudes delat nic jineho nez lokalizovat.
Pokud se nemeni texty, pak staci spustit jeden batak, a je
zlokalizovano.
> Co se tyka te zaruky odborneho prekladu, tak si myslim, ze je naopak
> vyhodou pro uzivatele, kdyz si muze vybrat ten lokalizacni soubor,
> ktery mu vyhovuje (napriklad od osvedceneho autora prekladu) a nemusi
> si nechat od tebe vnutit pouze Tebou posvecene preklady.
Pokud prodavas soft, na ktery poskytujes i zaruky, pak bych ti
doporucoval vyhybat se obloukem neproverenym prekladum. Pokud je
preklad pouze nejakou pridanou hodnotou, od ktere davas ruce pryc,
pak ano.
S pozdravem
Zbysek Hlinka
Vicejazycna aplikace
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 31.10.2002 15:35:41
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Pokud se nemeni texty, pak staci spustit jeden batak, a je zlokalizovano.
Tady jde ale prave o to, ze ten batak musis spustit ty.
A pokud svuj program prestanes podporovat a nekdo potrebuje udelat preklad
treba do madarstiny, tak je v koncich.
Musi spolehat na tebe jestli se uracis prelozit DLL.
> Pokud prodavas soft, na ktery poskytujes i zaruky, pak bych ti
> doporucoval vyhybat se obloukem neproverenym prekladum. Pokud je
> preklad pouze nejakou pridanou hodnotou, od ktere davas ruce pryc, pak
ano.
Myslim, ze to vubec nesouvisi s tim jesli je software freeware nebo za
penize.
Navic preklad neni "pridana hodnota" ale konfigurace.
Kdyby takhle postupovali vsichni programatori, tak by nikdy nevzniknul
software, ktery prezije sveho autora :-)
Mozna by ani nevznikly zadne distribuce Linuxu, protoze by je musel vsechny
sestavovat Torvalds.
SQL s klauzulou MAX
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 31.10.2002 15:46:30
napr. takto:
SELECT Osoba.*, xArchiv.*
FROM Osoba LEFT OUTER JOIN (
SELECT ID, Datum, OPERATOR, ...
FROM archiv
WHERE Datum = (SELECT Max( Datum)
FROM Archiv arch
WHERE arch.ID = archiv.Id)
) xArchiv ON Osoba.ID = xArchiv.ID
Podminkou je, ze datum v tabulce archiv je pro osobu jejinecne !
Pavel
> Od: Peter Vlkovic [mailto:vlkovic(zv)minv.sk]
> riesim problem selectu s klauzulou MAX.
> Mam dve tabulky. Tabulku osoba a archiv.
> Tabulka archiv obsahuje k jednej osobe
> spravidla viacero zaznamov, mna vsak
> zaujima zaznam s poslednym datumom.
> Nasledovny select funguje spravne:
>
> select
> osoba.MENO,
> osoba.PRIEZ,
> ( select max(DATUM) from archiv where ID=osoba.ID )
> ...
>
> Z tabulky archiv vsak potrebujem okrem hodnoty
> DATUM aj inu polozku (napr. OPERATOR), co sa mi
> vsak nedari, hoci som uz skusal vsetko mozne,
> co ma napadlo (napr. rozne konstrukcie LEFT JOIN-u).
>
> Nevedel by mi niekto pomoct? Ide o databazu INFORMIX.
Registry
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.10.2002 15:50:30
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> jsem toho nazoru ze vsechno jde.
Jiste, v Rusku take v budovatelskem obdobi otaceli smer toku rek ;-)
Pokud by jsi chtel napsat VxD v Delphi tak musis:
- prepsat celou RTL a tim i kompilator, ktery je s ni castecne svazan
- prepsat linker aby generoval soubory v LE formatu
- prevest DDK headery do Object Pascalu
Petr Vones
Vicejazycna aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 15:50:07
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> No, to je prave ta hruza, ktera uspesne brani rozumne udrzbe. Jakmile
> budes chtit zmenit usporadani okna a pripadne pridat nejake nove
> prvky, je to v haji...
V haji ne - kdyz tech zmen bude vic, tak holt pro ten form smazu texty
a pomoci reg. expr. je z .DFM souboru vytvorim znovu. Pokud si to pamatuju,
tak jsou to zhruba 2 prikazy na kazdy typ textu u kazdeho typu komponenty,
napr. TLabel.Hint a TLabel.Caption + par prikazu pro zakladni naformatovani
.DFM
Tim mi vznikne soubor textu. Z toho pak jednim prikazem udelam tu sekci
Label1.Caption := LoadText(....); kterou vlozim do tela metody Localize u
formu
a je to (pokud to neni automatizovane pres RTTI, pak tento krok odpada)
Podotykam, ze pracuji s ME, ktery umi replace pres vice souboru najednou,
takze neni problem jednim prikazem vlozit napr. novy text do vsech
jazykovych verzi apod.
***
Uznavam, ze je to trochu nepohodlne, ale zase ne natolik, abych vymenil
spickovy editor za tool, na kterem pak budu zavisly.
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Vss z Deplhi IDE
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 31.10.2002 15:55:23
Nepoznate nahodou nejaky free nastroj na prepojenie Delphi a Visual
SourceSafe priamo z Delphi (konkretne Delphi 5) IDE ???
Vicejazycna aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 15:58:29
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Pokud prodavas soft, na ktery poskytujes i zaruky, pak bych ti
> doporucoval vyhybat se obloukem neproverenym prekladum.
Meli jsme zakaznika, ktery pozadoval moznost menit texty
bez kompilace prave proto, aby mohl na zaklade odezvy svych zakazniku
tj. end useru texty zpresnovat:
a) obsluhou v real time - ty byly v DB a menili se z aplikace
b) administratorem - ty byly jako texty (a ze jich bylo - jen chybovych
hlaseni
z bankovniho systemu bylo pres 16 tisic)
> Pokud je preklad pouze nejakou pridanou hodnotou, od ktere davas ruce
pryc,
Obecne, kazdy preklad bude vyzadovat urcity stupen autorizace, je ale
otazka,
jestli zejmena u masove SW neni lepsi, at si to kutilove daji sami
dohromady.
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
SQL s klauzulou MAX
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 31.10.2002 16:02:38
> ... a co pouzit SELECT max(DATUM) as max_datum, OPERATOR FROM archiv
> WHERE ....
> Radek
Vysledok vnoreneho selectu nemoze byt viac nez jeden stlpec.
Takze i nadalej ostavam v koncoch.
Vlkovic
> Mam dve tabulky. Tabulku osoba a archiv.
> Tabulka archiv obsahuje k jednej osobe
> spravidla viacero zaznamov, mna vsak
> zaujima zaznam s poslednym datumom.
> Nasledovny select funguje spravne:
>
> select
> osoba.MENO,
> osoba.PRIEZ,
> ( select max(DATUM) from archiv where archiv.ID=osoba.ID )
> ...
>
> Z tabulky archiv vsak potrebujem okrem hodnoty
> DATUM aj inu polozku (napr. OPERATOR)...
Vicejazycna aplikace
[*] bardon <bardon(zv)akord-soft(tec)cz> - 31.10.2002 16:20:06
Byla to dosti zajimava diskuse ale zda se mi, ze uz speje k zaveru. Ja jsem
si z toho udelal pro sebe tento zaver:
Nejvetsi vyhodou lokalizace v DLL je fakt, ze do ni nemuze jen tak nekdo
zasahovat.
Nejvetsi vyhodou lokalizace v textovem souboru je fakt, ze do ni muze
zasahovat kdokoli a jakkoli.
Zda se mi, ze opravdu zalezi pro koho ten program delam. Pro nejaky freeware
bych volil textove soubory, pro seriozni komercni aplikaci, za kterou chci
penize bych asi volil DLL (textovy soubor jen v pripade, ze je to aplikace
pro kutily, kteri si radi vsechno meni k obrazu svemu).
Z hlediska programovani je standardni mechanizmus Delphi a potazmo Windows
jednodussi. Takze textovy soubor bych asi pouzil jen kdybych k tomu mel
dobry duvod.
Myslim, ze jednoznacny zaver ze je vzdy lepsi to, nebo ono neni potrebny.
Necht si kazdy vybere podle svych predstav.
SQL s klauzulou MAX
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 31.10.2002 16:26:04
> napr. takto:
>
> SELECT Osoba.*, xArchiv.*
> FROM Osoba LEFT OUTER JOIN (
> SELECT ID, Datum, OPERATOR, ...
> FROM archiv
> WHERE Datum = (SELECT Max( Datum)
> FROM Archiv arch
> WHERE arch.ID = archiv.Id)
> ) xArchiv ON Osoba.ID = xArchiv.ID
>
> Podminkou je, ze datum v tabulce archiv je pro osobu jejinecne !
>
> Pavel
Tvoj select je naozaj prespekulovany. Lenze Informix mi
takyto zapis nechce zozrat. Vyhadzuje syntakticku chybu
v druhom selecte (vo fraze join).
[Nehovoriac o tom, ze v ramci tabulky archiv moze rovnakych
datumov existovat viacero].
Ale aj tak - vdaka za snahu.
Vlkovic
> > Mam dve tabulky. Tabulku osoba a archiv.
> > Tabulka archiv obsahuje k jednej osobe
> > spravidla viacero zaznamov, mna vsak
> > zaujima zaznam s poslednym datumom.
> > Nasledovny select funguje spravne:
> >
> > select
> > osoba.MENO,
> > osoba.PRIEZ,
> > ( select max(DATUM) from archiv where ID=osoba.ID )
> > ...
> >
> > Z tabulky archiv vsak potrebujem okrem hodnoty
> > DATUM aj inu polozku (napr. OPERATOR)...
Vicejazycna aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.10.2002 16:29:12
On 31 Oct 2002 at 15:35, Martin Kleiner wrote:
> > Pokud se nemeni texty, pak staci spustit jeden batak, a je
> > zlokalizovano.
>
> Tady jde ale prave o to, ze ten batak musis spustit ty.
> A pokud svuj program prestanes podporovat a nekdo potrebuje udelat
> preklad treba do madarstiny, tak je v koncich. Musi spolehat na tebe
> jestli se uracis prelozit DLL.
Piseme oba o komercnich aplikacich, nebo mas na mysli neco jineho?
> Myslim, ze to vubec nesouvisi s tim jesli je software freeware nebo za
> penize. Navic preklad neni "pridana hodnota" ale konfigurace. Kdyby
> takhle postupovali vsichni programatori, tak by nikdy nevzniknul
> software, ktery prezije sveho autora :-) Mozna by ani nevznikly zadne
> distribuce Linuxu, protoze by je musel vsechny sestavovat Torvalds.
Ne, ne. Lokalizace neni vazana pouze na konkretni lokalizacni tool.
Uzivatel si muze udelat svou lokalizaci jakymkoliv nastrojem, ktery
mu to umozni. Lokalizacni DLL je obycejna DLL, ktera obsahuje
zlokalizovane resourcy. Pokud tohle uzivatel rozpozna (a neni to nic
tezkeho), muze si to nakonec zlokalizovat treba v nejakem resource
editoru.
S pozdravem
Zbysek Hlinka
Vicejazycna aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.10.2002 16:33:14
On 31 Oct 2002 at 15:58, Petr Fejfar wrote:
> Obecne, kazdy preklad bude vyzadovat urcity stupen autorizace, je ale
> otazka, jestli zejmena u masove SW neni lepsi, at si to kutilove daji
> sami dohromady.
:-) Zalezi na aplikaci a cilove skupine zakazniku. Napriklad
ucetnictvi nelze s touto filosofii prodavat. Pokud ti pak bude volat
uzivatel na hot-line, ze mu program vyplivnul takovou a makovou
chybovou hlasku, jak ji najdes, kdyz lokalizace nepujde aspon kolem
tebe?
S pozdravem
Zbysek Hlinka
Zaslani WM_KEYDOWN
[*] Ing. Pavel �ilinec����)b���zf���3 - 31.10.2002 16:34:30
Ja to kdysi udelal takto:
{ Posunu ho dolu }
SendMessage(TenMujGrid.Handle, WM_KEYDOWN, VK_TAB, 0);
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
PK> Dobry den,
PK> jak mam poslat komponente zpravu WM_KEYDOWN s predem definovanymi
PK> hodnotami CharCode a KeyData?
PK> Priklad: Mam TEdit a TDBGrid, TEdit ma focus a pokud v TEdit
PK> stisknu VK_UP, VK_DOWN chci, aby na to reagoval TDBGrid.
PK> Diky Petr
PK> Kuklik
Vicejazycna aplikace
[*] bardon <bardon(zv)akord-soft(tec)cz> - 31.10.2002 16:49:33
Mam dotaz. Kdyz si to ten jeden zakaznik sam upresnil, ostatnim zakaznikum
jste to nedavali? Tem ostatnim stacily ty puvodni, nebo si to musel upresnit
kazdy sam a kazdy jinak?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Fejfar
Sent: Thursday, October 31, 2002 3:58 PM
Meli jsme zakaznika, ktery pozadoval moznost menit texty
bez kompilace prave proto, aby mohl na zaklade odezvy svych zakazniku
tj. end useru texty zpresnovat:
a) obsluhou v real time - ty byly v DB a menili se z aplikace
b) administratorem - ty byly jako texty (a ze jich bylo - jen chybovych
hlaseni
z bankovniho systemu bylo pres 16 tisic)Vicejazycna aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 16:57:20
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> chybovou hlasku, jak ji najdes, kdyz lokalizace nepujde aspon kolem
> tebe?
Jak jsem psal v jinem threadu (Lokalizace IB a FB): spravne je oddelit
lokalizovana uzivatelska hlaseni od nelokalizovanych systemovych,
ktere jdou jen do logu, ze ktereho je navic videt kontext, ve kterem se
chyba
vyskytla.
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Vicejazycna aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.10.2002 17:01:49
On 31 Oct 2002 at 15:50, Petr Fejfar wrote:
> Podotykam, ze pracuji s ME, ktery umi replace pres vice souboru
> najednou, takze neni problem jednim prikazem vlozit napr. novy text do
> vsech jazykovych verzi apod.
>
> ***
>
> Uznavam, ze je to trochu nepohodlne, ale zase ne natolik, abych
> vymenil spickovy editor za tool, na kterem pak budu zavisly.
Jasne. Uplne staci zavislost na ME a Delphi, ze? :-)
S pozdravem
Zbysek Hlinka
Vicejazycna aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 17:08:36
From: "bardon" <bardon(zv)akord-soft(tec)cz>
> Mam dotaz. Kdyz si to ten jeden zakaznik sam upresnil, ostatnim zakaznikum
> jste to nedavali? Tem ostatnim stacily ty puvodni, nebo si to musel
upresnit
> kazdy sam a kazdy jinak?
Ne nedavali. Jednim zakaznikem byla napr. instituce s pobockami po celem
svete a oni jaku soucast instalacky dostali nejaky nami dodany tvar a pak si
to nezavisle v jednotlivych narodnich pobockach menili podle vlastniho
uvazeni.
Kdyz jsme dodali tentyz system jinemu zakaznikovi, mel uplne jine hlaseni,
jina menu apod - zkratka byl pro nej customizovan - pro zajimavost v
run-time,
ne pomoci podminenho prekladu.
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Registry
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 17:16:00
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Pokud by jsi chtel napsat VxD v Delphi tak musis:
> - prepsat celou RTL a tim i kompilator, ktery je s ni castecne svazan
> - prepsat linker aby generoval soubory v LE formatu
> - prevest DDK headery do Object Pascalu
Nedalo by se to nejak obejit tim, ze by Delphi produkoval .OBJ a ty se
slinkovaly (treba i nejakym linkerem od ASM nebo C)?
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Vss z Deplhi IDE
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 31.10.2002 17:41:51
----- Original Message -----
From: "Lubos Urban" <Lubos.Urban(zv)visicom.sk>> Nepoznate nahodou nejaky free nastroj na prepojenie Delphi a Visual
> SourceSafe priamo z Delphi (konkretne Delphi 5) IDE ???
Pouzivame experta pro scripting v D5 http://www.run-time-systems.com/,
do ktereho mame napsane skripty ve VBScriptu pro praci s aktualne otevrenym
souborem pres OLEAutomation rozhrani VSS (je to par radek).
Vzniklo to kdysi z nouze ale kupodivu nam to funguje k plne spokojenosti.
Muzu poslat ty skripty.
Martin Schayna
Vicejazycna aplikace
[*] Zdenek Stepanek <webmaster(zv)rokaglass(tec)com> - 31.10.2002 17:45:18
> Myslim, ze to vubec nesouvisi s tim jesli je software freeware nebo za
> penize. Navic preklad neni "pridana hodnota" ale konfigurace. Kdyby
> takhle postupovali vsichni programatori, tak by nikdy nevzniknul
> software, ktery prezije sveho autora :-) Mozna by ani nevznikly zadne
> distribuce Linuxu, protoze by je musel vsechny sestavovat Torvalds.
Ne, ne. Lokalizace neni vazana pouze na konkretni lokalizacni tool.
Uzivatel si muze udelat svou lokalizaci jakymkoliv nastrojem, ktery
mu to umozni. Lokalizacni DLL je obycejna DLL, ktera obsahuje
zlokalizovane resourcy. Pokud tohle uzivatel rozpozna (a neni to nic
tezkeho), muze si to nakonec zlokalizovat treba v nejakem resource
editoru.
***Tohle znam dobre, taky jsem takhle konfigurioval/prekladal programy.
Pokud se napise nejaky tool, ktery z DLL vytaha texty, uzivatel je
prepise na pozadovany jazyk a chytry tool to zase nacpe do te puvodni
DLL, tak jaky je pak rozdil v textovem konfiguracnim/lokalizacnim
souboru a DLL. Ja bych se spis zabyval otazkou rychlosti. Viz duvod
preferovani registru pred INI souborem.
Zdenek
Urceni ciLocale stringu pro Locale identifier
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 17:59:30
Hi all,
nevi nekdo, jak prevest language ID na text, tedy jak zkonvertovat
napr. LANG_CZECH (0x05) na 'CS' resp. na 'Czech'?
Prolezal jsem SDK a na nic jsem neprisel.
Thx, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Vicejazycna aplikace
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 31.10.2002 18:09:51
V zadnem pripade jsem samozrejme nemluvil o praci s INI filem.
Ten je neskutecne pomaly a navic se chova odlisne na Win9x a WinNT.
Martin Kleiner
----- Original Message -----
From: "Zdenek Stepanek" <webmaster(zv)rokaglass.com>
> ***Tohle znam dobre, taky jsem takhle konfigurioval/prekladal programy.
> Pokud se napise nejaky tool, ktery z DLL vytaha texty, uzivatel je
> prepise na pozadovany jazyk a chytry tool to zase nacpe do te puvodni
> DLL, tak jaky je pak rozdil v textovem konfiguracnim/lokalizacnim
> souboru a DLL. Ja bych se spis zabyval otazkou rychlosti. Viz duvod
> preferovani registru pred INI souborem.
>
> Zdenek
Vicejazycna aplikace
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 31.10.2002 18:12:26
Samozrejme ze mluvim i o komercnich aplikacich.
Pokud je aplikace za penize tak to prece neznamena ze je uzivatelsky
nekonfigurovatelna.
Martin Kleiner
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Piseme oba o komercnich aplikacich, nebo mas na mysli neco jineho?Vicejazycna aplikace
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 31.10.2002 18:16:49
Nevim nevim jestli bezny uzivatel bude pracovat s resouce editorem.
Navic je tu samozrejme otazka behu na ruznych operacnich systemech.
V tom pripade je cela lokalizacni DLL uplne na nic.
Martin Kleiner
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Ne, ne. Lokalizace neni vazana pouze na konkretni lokalizacni tool.
> Uzivatel si muze udelat svou lokalizaci jakymkoliv nastrojem, ktery
> mu to umozni. Lokalizacni DLL je obycejna DLL, ktera obsahuje
> zlokalizovane resourcy. Pokud tohle uzivatel rozpozna (a neni to nic
> tezkeho), muze si to nakonec zlokalizovat treba v nejakem resource
> editoru.Re[2]: Jak USPAT disk
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 31.10.2002 18:23:35
Ahoj,
Jak tu ukolebavku teda mam zaspivat ?
Thursday, October 31, 2002, 1:00:20 AM, you wrote:
PV> From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
>> Potreboval bych ve win ME a XP uspavat disky nevi nekdo prosim jak to
>> vyresit ?
PV> Nejlepe nejakou ukolebavkou :-)
PV> V nastaveni Power managmentu mas vetsinou moznost: Turn off hardisks after xy
PV> minutes. Tuto moznost bych vsak krome notebooku nedoporucoval pouzivat protoze
PV> disky to nemaji moc radi a snizuje se tim zivotnost uz tak dost spotrebnich
PV> IDE disku.
PV> Petr Vones
--
S pozdravem
Jiri mailto:kindrik(zv)centrum(tec)cz
Viewbar - jak na to
[*] Jan �imeck� - 31.10.2002 18:41:03
Dobry den,
potreboval bych vytvorit program, ktery po spusteni bude zabirat asi 70
pixelu od vrchu obrazovky a bude stale videt => obrazovka bude o techto 70
pixelu mensi. Dal bych chtel vedet, jak mam udelat, aby tento program vedel,
zda zrovna uzivatel s PC pracuje nebo ne (Kontroluje pohyb mysi, ci mackani
klaves na klavesnici).
V pripade ze mi doporucite nejake komponenty, tak prosim uvedte adresu, kde
je najdu.
Mam doma tyto verze Delphi: 4 profesional, 6 personal, 7 personal.
S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan �imeck�
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.394 / Virov� b�ze: 224 - datum vyd�n�: 3.10.2002
Drag and drop
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 31.10.2002 18:54:34
D6, WinXP
Potrebujem v programe spravit drag and drop s labelom: teda, aby sa dalo
kliknut na label, potiahnut a pustit. Label ostane na svojom novom mieste.
Cez zabudovane funkcie DragMode to vobec neviem urobit, a ak to robim cez
onMouseMove, tak ziskavam z premennej X a Y zvlastne hodnoty, ktore sa stale
menia aj ked s mysou nepohybujem.
Vdaka za kazdu radu.
--------------------
tisicky obrazkov na tlacitka a ikonky - www.martinkasman.host.sk
Unistall
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 31.10.2002 18:54:04
Uzivatel si nainstaluje program cez Setup vytvoreny v Install shield-e. Ako
sa da program odinstalovat z programu vytvoreneho v Delphi?
Vdaka za kazdu radu.
--------------------
vlajky vsetkych statov - www.martinkasman.host.sk
Urceni ciLocale stringu pro Locale identifier
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.10.2002 19:01:43
On 31 Oct 2002 at 17:59, Petr Fejfar wrote:
> nevi nekdo, jak prevest language ID na text, tedy jak zkonvertovat
> napr. LANG_CZECH (0x05) na 'CS' resp. na 'Czech'?
Pohraj si s GetLocaleInfo.
S pozdravem
Zbysek Hlinka
Urceni ciLocale stringu pro Locale identifier
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 20:27:14
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Pohraj si s GetLocaleInfo.
Diky, to je ono. Pokud to zajima jeste nekoho, tak takhle se to da na
Gatesovi
loudit:
function GetPieceOfLocaleInfo(aLCID,aLCType:integer): ANSIString;
var
Lng: integer;
begin
Result := sz;
try
Lng := GetLocaleInfo(aLCID,aLCType,nil,0);
Win32Check(GetLastError=0);
if Lng>1 then
begin
SetLength(Result,Lng-1);
GetLocaleInfo(aLCID,aLCType,pChar(Result),Lng);
Win32Check(GetLastError=0);
end;
except
PxLOG.JCLCatch(PXLC_ERR);
Result := sz;
end;
end;
a priklad, jak se to vola
var
LanguageAbbr: ANSIString;
CountryAbbr: ANSIString;
CountryName: ANSIString;
CountryNative: ANSIString;
begin
CountryAbbr := GetPieceOfLocaleInfo
(LOCALE_SYSTEM_DEFAULT,LOCALE_SABBREVCTRYNAME);
LanguageAbbr := GetPieceOfLocaleInfo
(LOCALE_SYSTEM_DEFAULT,LOCALE_SABBREVLANGNAME);
CountryName := GetPieceOfLocaleInfo
(LOCALE_SYSTEM_DEFAULT,LOCALE_SCOUNTRY);
CountryNative := GetPieceOfLocaleInfo
(LOCALE_SYSTEM_DEFAULT,LOCALE_SNATIVECTRYNAME);
Thx, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Jak zjistit prubeh instalace MSDE
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 20:30:22
Hi all,
chtel bych spoustet tichou instalaci MSDE tj. s parametrem /qn.
Ale protoze to trva skoro 3 minuty, tak bych potreboval v aplikaci,
ktera tu instalaci spustila, nejak ukazovat prubeh.
Nema nekdo nejaky napad, jak by se to dalo udelat jinak nez
nejakym zmerenim vykonu stroje a odhadem?
Thx, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Urceni ciLocale stringu pro Locale identifier
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 31.10.2002 21:11:08
On 31 Oct 2002 at 20:27, Petr Fejfar wrote:
> > Pohraj si s GetLocaleInfo.
>
> Diky, to je ono. Pokud to zajima jeste nekoho, tak takhle se to da na
> Gatesovi loudit:
No, to vis. Az nekdy budes psat lokalizacni tool, bude se ti to
hodit. :-)
S pozdravem
Zbysek Hlinka
Re[2]: Registry
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 31.10.2002 21:55:39
Hello Petr,
Thursday, October 31, 2002, 3:50:30 PM, you wrote:
PV> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
>> jsem toho nazoru ze vsechno jde.
PV> Jiste, v Rusku take v budovatelskem obdobi otaceli smer toku rek ;-)
no to si budu muset zehnat nejakeho ruskeho delphi udernika :)
PV> Pokud by jsi chtel napsat VxD v Delphi tak musis:
PV> - prepsat celou RTL a tim i kompilator, ktery je s ni castecne svazan
PV> - prepsat linker aby generoval soubory v LE formatu
PV> - prevest DDK headery do Object Pascalu
PV> Petr Vones
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Transcripce wn95scm.h do Delphi (SCM pro MS SQL)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 31.10.2002 23:10:28
Hi All,
nenasel by se nekdo, kdo prepsal headery pro w95scm.dll k MS SQL a
byl by je ochoten poskytnout?
Thx, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 25.10.2002
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 11:58:45
> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
> dedi ruzne vlastnosti. V pripade, ze na predka umistim
> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
> takovyto program v dobre vire, ze je vse v poradku spustim,
> tak nemam v menu nebo toolbarech, ktere byly nadefinovany na
> predkovi zadne objekty.
>
Zkus v design-time na potomkovi vsechny podedene prvky z toolbaru vyhazet a pak je tam znovu nastrkat (kdyz tak mrkni, jak se to lisi v textove podobe DFM souboru a na ostatnich formech to edituj textove).
Je to blbe a nepohodlne, prochazet takto vsechny podedene formy, ma nekdo lepsi reseni?
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 13:12:05
>> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
>> dedi ruzne vlastnosti. V pripade, ze na predka umistim
>> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
>> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
Sorry,
ale minule jsem to napsal ponekud blbe. Na predcich prvky na toolbar neumistuj, muzou byt definovany v BarManageru, ale nesmi byt na toolbaru. Na toolbar se umisti az na potomkovi, ktery se skutecne pouziva. Pak to jakz takz funguje. Ale jinac dxBary a dedeni - hruza. (pokud mas form, ktery se uz primo pouziva a je zaroven predkem, tak to mas celkem blby).
T.
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 17:08:39
> Obecne jsem toho nazoru, ze pokud vznika nutnost vytvaret
> pomocne tabulky, signalizuje to, ze databaze je spatne
> navrzena. V dobre navrzene databazi vystaci (nekdy slozity) select.
>
> I pri spatne navrzene databazi ale stale ale existuje lepsi
> cesta, nez pomocne tabulky. Pouzij ulozenou proceduru, ktera
Da se nejak, dle vaseho nazoru, rozumne resit bez pomocnych tabulek (at uz v databazi ci v pameti) situace, kdyz mam objektove zalozenou, v UML modelovanou, aplikaci. Objekty jsou dvou zakladnich druhu - reprezentuji bud jeden record nebo recordset (zjednodusene receno, ten recordset je, de facto, lajdacka realizace kolekce objektu), podle toho, jaky druh vazby je treba modelovat (1:1, 1:N, M:N-no, to uz je ovsem asociativni trida). Objekty mohou agregovat hafo dalsich objektu (obou dvou typu). Pokud se edituje nejaky komplikovany objekt, ktery agreguje hromadu dalsich, chce se, aby se zmeny cele slozite struktury promitly v databazi az v okamziku, kdy zavolam Save na hlavnim objektu.
Tohle snad ani bez pomocnych tabulek resit nelze?
Tom
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 2.10.2002 14:34:38
>A jak se tedy resi napr. obycejny browser na webu,
>kdy pomoci selectu vyberes mnozinu zaznamu usporadanou podle nejaky kriterii
>a chces ji zobrazovat po strankach vpred/vzad.
>
>Tam Ti asi nezbyde nez priradit kazdemu zaznamu
>poradove cislo, abys mohl pri dalsim requestu
>navazat na predchozi stranku
>
No, mam pocit, ze kdyz jsem cosi programoval v PHP nad MySQL, tak tam se dalo primo v SELECTu rict, ze chcu zaznamy M az N a nic vic se neresilo ... takze to zalezi na DBSM ... pokud to potrebuji pro DBSM (treba MSSQL, ktery umi jen TOP N), ktery to neumi, musim si ocislovat zaznamy a SELECTovat podle cislovani (hmm, a ze bychom byli opet u neprerusene ciselne rady ;o)
T.
KonfView
[*] xXx <assas(zv)bonbon(tec)net> - 22.10.2002 13:51:12
>
> Chtel bych se zeptat tech, kteri pouzivaji KonfView zda jim pri prochazeni prispevku
> vybiha hlaska "RichEdit line insertion error" Zkousel jsem prg. preinstalovat
> a znovu do nej natahnou prispevky, ale bez uspechu.
>
Jo stava se to.
Takova rychla, ne moc oku lahodna uprava je nasledujisi:
v Main.pas (ze dne 26.1.2000 20:02)
# radek 1629
for i := 0 to slSyntax.Count-1 do begin
# ZMENIT NA:
for i := 0 to slSyntax.Count-1 do
try //!! tom 2002-10-07 odrbavka nezname chyby
# A pak kolem radku 1672
end;
end;
reMain.SelStart := 0;
# ZMENIT NA:
end;
except //!! tom 2002-10-07 odrbavka nezname chyby
end;
reMain.SelStart := 0;
A kdyz uz se budes hrabat ve zdrojacich, tak doporucuji takovou drobnou v AddFile.pas
Pridat za radek 320
DatabaseName := fMain.DatabaseName;
Tom
Algoritmus na prevod ceskeho jmena a pri jmeni do
[*] Tom Beran <assas(zv)bonbon(tec)net> - 24.10.2002 09:12:42
> Vsechny holky osetri zmena posledniho pimene A na O. U
> muzskejch je to jen o neco slozitejsi. A na O (Jara -> Jaro),
No vsechny holky asi ne. Jsou take jmena nesklonna, napr.: Noemi, Ingrid, Miriam. Jsou jsmena cizacka, ktera nekonci na a, napr.: Xenie, Anastazie, Lydie ...
A jsou jmena atypicka, napriklad jedna pani se jmenuje Nadeje (nekecam, zkuste si najit v Google "Nadeje Mandysova").
Takze s tim zjednodusovanim, prrrr.
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 11:58:45
> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
> dedi ruzne vlastnosti. V pripade, ze na predka umistim
> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
> takovyto program v dobre vire, ze je vse v poradku spustim,
> tak nemam v menu nebo toolbarech, ktere byly nadefinovany na
> predkovi zadne objekty.
>
Zkus v design-time na potomkovi vsechny podedene prvky z toolbaru vyhazet a pak je tam znovu nastrkat (kdyz tak mrkni, jak se to lisi v textove podobe DFM souboru a na ostatnich formech to edituj textove).
Je to blbe a nepohodlne, prochazet takto vsechny podedene formy, ma nekdo lepsi reseni?
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 13:12:05
>> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
>> dedi ruzne vlastnosti. V pripade, ze na predka umistim
>> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
>> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
Sorry,
ale minule jsem to napsal ponekud blbe. Na predcich prvky na toolbar neumistuj, muzou byt definovany v BarManageru, ale nesmi byt na toolbaru. Na toolbar se umisti az na potomkovi, ktery se skutecne pouziva. Pak to jakz takz funguje. Ale jinac dxBary a dedeni - hruza. (pokud mas form, ktery se uz primo pouziva a je zaroven predkem, tak to mas celkem blby).
T.
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 17:08:39
> Obecne jsem toho nazoru, ze pokud vznika nutnost vytvaret
> pomocne tabulky, signalizuje to, ze databaze je spatne
> navrzena. V dobre navrzene databazi vystaci (nekdy slozity) select.
>
> I pri spatne navrzene databazi ale stale ale existuje lepsi
> cesta, nez pomocne tabulky. Pouzij ulozenou proceduru, ktera
Da se nejak, dle vaseho nazoru, rozumne resit bez pomocnych tabulek (at uz v databazi ci v pameti) situace, kdyz mam objektove zalozenou, v UML modelovanou, aplikaci. Objekty jsou dvou zakladnich druhu - reprezentuji bud jeden record nebo recordset (zjednodusene receno, ten recordset je, de facto, lajdacka realizace kolekce objektu), podle toho, jaky druh vazby je treba modelovat (1:1, 1:N, M:N-no, to uz je ovsem asociativni trida). Objekty mohou agregovat hafo dalsich objektu (obou dvou typu). Pokud se edituje nejaky komplikovany objekt, ktery agreguje hromadu dalsich, chce se, aby se zmeny cele slozite struktury promitly v databazi az v okamziku, kdy zavolam Save na hlavnim objektu.
Tohle snad ani bez pomocnych tabulek resit nelze?
Tom
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 2.10.2002 14:34:38
>A jak se tedy resi napr. obycejny browser na webu,
>kdy pomoci selectu vyberes mnozinu zaznamu usporadanou podle nejaky kriterii
>a chces ji zobrazovat po strankach vpred/vzad.
>
>Tam Ti asi nezbyde nez priradit kazdemu zaznamu
>poradove cislo, abys mohl pri dalsim requestu
>navazat na predchozi stranku
>
No, mam pocit, ze kdyz jsem cosi programoval v PHP nad MySQL, tak tam se dalo primo v SELECTu rict, ze chcu zaznamy M az N a nic vic se neresilo ... takze to zalezi na DBSM ... pokud to potrebuji pro DBSM (treba MSSQL, ktery umi jen TOP N), ktery to neumi, musim si ocislovat zaznamy a SELECTovat podle cislovani (hmm, a ze bychom byli opet u neprerusene ciselne rady ;o)
T.
KonfView
[*] xXx <assas(zv)bonbon(tec)net> - 22.10.2002 13:51:12
>
> Chtel bych se zeptat tech, kteri pouzivaji KonfView zda jim pri prochazeni prispevku
> vybiha hlaska "RichEdit line insertion error" Zkousel jsem prg. preinstalovat
> a znovu do nej natahnou prispevky, ale bez uspechu.
>
Jo stava se to.
Takova rychla, ne moc oku lahodna uprava je nasledujisi:
v Main.pas (ze dne 26.1.2000 20:02)
# radek 1629
for i := 0 to slSyntax.Count-1 do begin
# ZMENIT NA:
for i := 0 to slSyntax.Count-1 do
try //!! tom 2002-10-07 odrbavka nezname chyby
# A pak kolem radku 1672
end;
end;
reMain.SelStart := 0;
# ZMENIT NA:
end;
except //!! tom 2002-10-07 odrbavka nezname chyby
end;
reMain.SelStart := 0;
A kdyz uz se budes hrabat ve zdrojacich, tak doporucuji takovou drobnou v AddFile.pas
Pridat za radek 320
DatabaseName := fMain.DatabaseName;
Tom
Algoritmus na prevod ceskeho jmena a pri jmeni do
[*] Tom Beran <assas(zv)bonbon(tec)net> - 24.10.2002 09:12:42
> Vsechny holky osetri zmena posledniho pimene A na O. U
> muzskejch je to jen o neco slozitejsi. A na O (Jara -> Jaro),
No vsechny holky asi ne. Jsou take jmena nesklonna, napr.: Noemi, Ingrid, Miriam. Jsou jsmena cizacka, ktera nekonci na a, napr.: Xenie, Anastazie, Lydie ...
A jsou jmena atypicka, napriklad jedna pani se jmenuje Nadeje (nekecam, zkuste si najit v Google "Nadeje Mandysova").
Takze s tim zjednodusovanim, prrrr.
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 11:58:45
> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
> dedi ruzne vlastnosti. V pripade, ze na predka umistim
> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
> takovyto program v dobre vire, ze je vse v poradku spustim,
> tak nemam v menu nebo toolbarech, ktere byly nadefinovany na
> predkovi zadne objekty.
>
Zkus v design-time na potomkovi vsechny podedene prvky z toolbaru vyhazet a pak je tam znovu nastrkat (kdyz tak mrkni, jak se to lisi v textove podobe DFM souboru a na ostatnich formech to edituj textove).
Je to blbe a nepohodlne, prochazet takto vsechny podedene formy, ma nekdo lepsi reseni?
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 13:12:05
>> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
>> dedi ruzne vlastnosti. V pripade, ze na predka umistim
>> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
>> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
Sorry,
ale minule jsem to napsal ponekud blbe. Na predcich prvky na toolbar neumistuj, muzou byt definovany v BarManageru, ale nesmi byt na toolbaru. Na toolbar se umisti az na potomkovi, ktery se skutecne pouziva. Pak to jakz takz funguje. Ale jinac dxBary a dedeni - hruza. (pokud mas form, ktery se uz primo pouziva a je zaroven predkem, tak to mas celkem blby).
T.
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 17:08:39
> Obecne jsem toho nazoru, ze pokud vznika nutnost vytvaret
> pomocne tabulky, signalizuje to, ze databaze je spatne
> navrzena. V dobre navrzene databazi vystaci (nekdy slozity) select.
>
> I pri spatne navrzene databazi ale stale ale existuje lepsi
> cesta, nez pomocne tabulky. Pouzij ulozenou proceduru, ktera
Da se nejak, dle vaseho nazoru, rozumne resit bez pomocnych tabulek (at uz v databazi ci v pameti) situace, kdyz mam objektove zalozenou, v UML modelovanou, aplikaci. Objekty jsou dvou zakladnich druhu - reprezentuji bud jeden record nebo recordset (zjednodusene receno, ten recordset je, de facto, lajdacka realizace kolekce objektu), podle toho, jaky druh vazby je treba modelovat (1:1, 1:N, M:N-no, to uz je ovsem asociativni trida). Objekty mohou agregovat hafo dalsich objektu (obou dvou typu). Pokud se edituje nejaky komplikovany objekt, ktery agreguje hromadu dalsich, chce se, aby se zmeny cele slozite struktury promitly v databazi az v okamziku, kdy zavolam Save na hlavnim objektu.
Tohle snad ani bez pomocnych tabulek resit nelze?
Tom
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 2.10.2002 14:34:38
>A jak se tedy resi napr. obycejny browser na webu,
>kdy pomoci selectu vyberes mnozinu zaznamu usporadanou podle nejaky kriterii
>a chces ji zobrazovat po strankach vpred/vzad.
>
>Tam Ti asi nezbyde nez priradit kazdemu zaznamu
>poradove cislo, abys mohl pri dalsim requestu
>navazat na predchozi stranku
>
No, mam pocit, ze kdyz jsem cosi programoval v PHP nad MySQL, tak tam se dalo primo v SELECTu rict, ze chcu zaznamy M az N a nic vic se neresilo ... takze to zalezi na DBSM ... pokud to potrebuji pro DBSM (treba MSSQL, ktery umi jen TOP N), ktery to neumi, musim si ocislovat zaznamy a SELECTovat podle cislovani (hmm, a ze bychom byli opet u neprerusene ciselne rady ;o)
T.
KonfView
[*] xXx <assas(zv)bonbon(tec)net> - 22.10.2002 13:51:12
>
> Chtel bych se zeptat tech, kteri pouzivaji KonfView zda jim pri prochazeni prispevku
> vybiha hlaska "RichEdit line insertion error" Zkousel jsem prg. preinstalovat
> a znovu do nej natahnou prispevky, ale bez uspechu.
>
Jo stava se to.
Takova rychla, ne moc oku lahodna uprava je nasledujisi:
v Main.pas (ze dne 26.1.2000 20:02)
# radek 1629
for i := 0 to slSyntax.Count-1 do begin
# ZMENIT NA:
for i := 0 to slSyntax.Count-1 do
try //!! tom 2002-10-07 odrbavka nezname chyby
# A pak kolem radku 1672
end;
end;
reMain.SelStart := 0;
# ZMENIT NA:
end;
except //!! tom 2002-10-07 odrbavka nezname chyby
end;
reMain.SelStart := 0;
A kdyz uz se budes hrabat ve zdrojacich, tak doporucuji takovou drobnou v AddFile.pas
Pridat za radek 320
DatabaseName := fMain.DatabaseName;
Tom
Algoritmus na prevod ceskeho jmena a pri jmeni do
[*] Tom Beran <assas(zv)bonbon(tec)net> - 24.10.2002 09:12:42
> Vsechny holky osetri zmena posledniho pimene A na O. U
> muzskejch je to jen o neco slozitejsi. A na O (Jara -> Jaro),
No vsechny holky asi ne. Jsou take jmena nesklonna, napr.: Noemi, Ingrid, Miriam. Jsou jsmena cizacka, ktera nekonci na a, napr.: Xenie, Anastazie, Lydie ...
A jsou jmena atypicka, napriklad jedna pani se jmenuje Nadeje (nekecam, zkuste si najit v Google "Nadeje Mandysova").
Takze s tim zjednodusovanim, prrrr.
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 11:58:45
> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
> dedi ruzne vlastnosti. V pripade, ze na predka umistim
> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
> takovyto program v dobre vire, ze je vse v poradku spustim,
> tak nemam v menu nebo toolbarech, ktere byly nadefinovany na
> predkovi zadne objekty.
>
Zkus v design-time na potomkovi vsechny podedene prvky z toolbaru vyhazet a pak je tam znovu nastrkat (kdyz tak mrkni, jak se to lisi v textove podobe DFM souboru a na ostatnich formech to edituj textove).
Je to blbe a nepohodlne, prochazet takto vsechny podedene formy, ma nekdo lepsi reseni?
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 13:12:05
>> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
>> dedi ruzne vlastnosti. V pripade, ze na predka umistim
>> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
>> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
Sorry,
ale minule jsem to napsal ponekud blbe. Na predcich prvky na toolbar neumistuj, muzou byt definovany v BarManageru, ale nesmi byt na toolbaru. Na toolbar se umisti az na potomkovi, ktery se skutecne pouziva. Pak to jakz takz funguje. Ale jinac dxBary a dedeni - hruza. (pokud mas form, ktery se uz primo pouziva a je zaroven predkem, tak to mas celkem blby).
T.
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 17:08:39
> Obecne jsem toho nazoru, ze pokud vznika nutnost vytvaret
> pomocne tabulky, signalizuje to, ze databaze je spatne
> navrzena. V dobre navrzene databazi vystaci (nekdy slozity) select.
>
> I pri spatne navrzene databazi ale stale ale existuje lepsi
> cesta, nez pomocne tabulky. Pouzij ulozenou proceduru, ktera
Da se nejak, dle vaseho nazoru, rozumne resit bez pomocnych tabulek (at uz v databazi ci v pameti) situace, kdyz mam objektove zalozenou, v UML modelovanou, aplikaci. Objekty jsou dvou zakladnich druhu - reprezentuji bud jeden record nebo recordset (zjednodusene receno, ten recordset je, de facto, lajdacka realizace kolekce objektu), podle toho, jaky druh vazby je treba modelovat (1:1, 1:N, M:N-no, to uz je ovsem asociativni trida). Objekty mohou agregovat hafo dalsich objektu (obou dvou typu). Pokud se edituje nejaky komplikovany objekt, ktery agreguje hromadu dalsich, chce se, aby se zmeny cele slozite struktury promitly v databazi az v okamziku, kdy zavolam Save na hlavnim objektu.
Tohle snad ani bez pomocnych tabulek resit nelze?
Tom
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 2.10.2002 14:34:38
>A jak se tedy resi napr. obycejny browser na webu,
>kdy pomoci selectu vyberes mnozinu zaznamu usporadanou podle nejaky kriterii
>a chces ji zobrazovat po strankach vpred/vzad.
>
>Tam Ti asi nezbyde nez priradit kazdemu zaznamu
>poradove cislo, abys mohl pri dalsim requestu
>navazat na predchozi stranku
>
No, mam pocit, ze kdyz jsem cosi programoval v PHP nad MySQL, tak tam se dalo primo v SELECTu rict, ze chcu zaznamy M az N a nic vic se neresilo ... takze to zalezi na DBSM ... pokud to potrebuji pro DBSM (treba MSSQL, ktery umi jen TOP N), ktery to neumi, musim si ocislovat zaznamy a SELECTovat podle cislovani (hmm, a ze bychom byli opet u neprerusene ciselne rady ;o)
T.
KonfView
[*] xXx <assas(zv)bonbon(tec)net> - 22.10.2002 13:51:12
>
> Chtel bych se zeptat tech, kteri pouzivaji KonfView zda jim pri prochazeni prispevku
> vybiha hlaska "RichEdit line insertion error" Zkousel jsem prg. preinstalovat
> a znovu do nej natahnou prispevky, ale bez uspechu.
>
Jo stava se to.
Takova rychla, ne moc oku lahodna uprava je nasledujisi:
v Main.pas (ze dne 26.1.2000 20:02)
# radek 1629
for i := 0 to slSyntax.Count-1 do begin
# ZMENIT NA:
for i := 0 to slSyntax.Count-1 do
try //!! tom 2002-10-07 odrbavka nezname chyby
# A pak kolem radku 1672
end;
end;
reMain.SelStart := 0;
# ZMENIT NA:
end;
except //!! tom 2002-10-07 odrbavka nezname chyby
end;
reMain.SelStart := 0;
A kdyz uz se budes hrabat ve zdrojacich, tak doporucuji takovou drobnou v AddFile.pas
Pridat za radek 320
DatabaseName := fMain.DatabaseName;
Tom
Algoritmus na prevod ceskeho jmena a pri jmeni do
[*] Tom Beran <assas(zv)bonbon(tec)net> - 24.10.2002 09:12:42
> Vsechny holky osetri zmena posledniho pimene A na O. U
> muzskejch je to jen o neco slozitejsi. A na O (Jara -> Jaro),
No vsechny holky asi ne. Jsou take jmena nesklonna, napr.: Noemi, Ingrid, Miriam. Jsou jsmena cizacka, ktera nekonci na a, napr.: Xenie, Anastazie, Lydie ...
A jsou jmena atypicka, napriklad jedna pani se jmenuje Nadeje (nekecam, zkuste si najit v Google "Nadeje Mandysova").
Takze s tim zjednodusovanim, prrrr.
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 11:58:45
> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
> dedi ruzne vlastnosti. V pripade, ze na predka umistim
> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
> takovyto program v dobre vire, ze je vse v poradku spustim,
> tak nemam v menu nebo toolbarech, ktere byly nadefinovany na
> predkovi zadne objekty.
>
Zkus v design-time na potomkovi vsechny podedene prvky z toolbaru vyhazet a pak je tam znovu nastrkat (kdyz tak mrkni, jak se to lisi v textove podobe DFM souboru a na ostatnich formech to edituj textove).
Je to blbe a nepohodlne, prochazet takto vsechny podedene formy, ma nekdo lepsi reseni?
T.
Komponenty DevExpress (dxBar) - problemy
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 13:12:05
>> (konkretne dxBar): 1. Mam strukturu formularu, ktere od sebe
>> dedi ruzne vlastnosti. V pripade, ze na predka umistim
>> BarManager, vytvorim nejake menu nebo jiny toolbar, tak na
>> potomkovi toto sice je, ale bohuzel jen v design-time. Pokud
Sorry,
ale minule jsem to napsal ponekud blbe. Na predcich prvky na toolbar neumistuj, muzou byt definovany v BarManageru, ale nesmi byt na toolbaru. Na toolbar se umisti az na potomkovi, ktery se skutecne pouziva. Pak to jakz takz funguje. Ale jinac dxBary a dedeni - hruza. (pokud mas form, ktery se uz primo pouziva a je zaroven predkem, tak to mas celkem blby).
T.
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 1.10.2002 17:08:39
> Obecne jsem toho nazoru, ze pokud vznika nutnost vytvaret
> pomocne tabulky, signalizuje to, ze databaze je spatne
> navrzena. V dobre navrzene databazi vystaci (nekdy slozity) select.
>
> I pri spatne navrzene databazi ale stale ale existuje lepsi
> cesta, nez pomocne tabulky. Pouzij ulozenou proceduru, ktera
Da se nejak, dle vaseho nazoru, rozumne resit bez pomocnych tabulek (at uz v databazi ci v pameti) situace, kdyz mam objektove zalozenou, v UML modelovanou, aplikaci. Objekty jsou dvou zakladnich druhu - reprezentuji bud jeden record nebo recordset (zjednodusene receno, ten recordset je, de facto, lajdacka realizace kolekce objektu), podle toho, jaky druh vazby je treba modelovat (1:1, 1:N, M:N-no, to uz je ovsem asociativni trida). Objekty mohou agregovat hafo dalsich objektu (obou dvou typu). Pokud se edituje nejaky komplikovany objekt, ktery agreguje hromadu dalsich, chce se, aby se zmeny cele slozite struktury promitly v databazi az v okamziku, kdy zavolam Save na hlavnim objektu.
Tohle snad ani bez pomocnych tabulek resit nelze?
Tom
temp. tabulka
[*] Tom Beran <assas(zv)bonbon(tec)net> - 2.10.2002 14:34:38
>A jak se tedy resi napr. obycejny browser na webu,
>kdy pomoci selectu vyberes mnozinu zaznamu usporadanou podle nejaky kriterii
>a chces ji zobrazovat po strankach vpred/vzad.
>
>Tam Ti asi nezbyde nez priradit kazdemu zaznamu
>poradove cislo, abys mohl pri dalsim requestu
>navazat na predchozi stranku
>
No, mam pocit, ze kdyz jsem cosi programoval v PHP nad MySQL, tak tam se dalo primo v SELECTu rict, ze chcu zaznamy M az N a nic vic se neresilo ... takze to zalezi na DBSM ... pokud to potrebuji pro DBSM (treba MSSQL, ktery umi jen TOP N), ktery to neumi, musim si ocislovat zaznamy a SELECTovat podle cislovani (hmm, a ze bychom byli opet u neprerusene ciselne rady ;o)
T.
KonfView
[*] xXx <assas(zv)bonbon(tec)net> - 22.10.2002 13:51:12
>
> Chtel bych se zeptat tech, kteri pouzivaji KonfView zda jim pri prochazeni prispevku
> vybiha hlaska "RichEdit line insertion error" Zkousel jsem prg. preinstalovat
> a znovu do nej natahnou prispevky, ale bez uspechu.
>
Jo stava se to.
Takova rychla, ne moc oku lahodna uprava je nasledujisi:
v Main.pas (ze dne 26.1.2000 20:02)
# radek 1629
for i := 0 to slSyntax.Count-1 do begin
# ZMENIT NA:
for i := 0 to slSyntax.Count-1 do
try //!! tom 2002-10-07 odrbavka nezname chyby
# A pak kolem radku 1672
end;
end;
reMain.SelStart := 0;
# ZMENIT NA:
end;
except //!! tom 2002-10-07 odrbavka nezname chyby
end;
reMain.SelStart := 0;
A kdyz uz se budes hrabat ve zdrojacich, tak doporucuji takovou drobnou v AddFile.pas
Pridat za radek 320
DatabaseName := fMain.DatabaseName;
Tom
Algoritmus na prevod ceskeho jmena a pri jmeni do
[*] Tom Beran <assas(zv)bonbon(tec)net> - 24.10.2002 09:12:42
> Vsechny holky osetri zmena posledniho pimene A na O. U
> muzskejch je to jen o neco slozitejsi. A na O (Jara -> Jaro),
No vsechny holky asi ne. Jsou take jmena nesklonna, napr.: Noemi, Ingrid, Miriam. Jsou jsmena cizacka, ktera nekonci na a, napr.: Xenie, Anastazie, Lydie ...
A jsou jmena atypicka, napriklad jedna pani se jmenuje Nadeje (nekecam, zkuste si najit v Google "Nadeje Mandysova").
Takze s tim zjednodusovanim, prrrr.
T.
pomaly SELECT na FB
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 17.2.2002 21:19:03
Taky hodne pomuze, kdyz misto select * vypises konkretni polozky .. urcite
je nepotrebujes vsechny pro vypis
valik
----- Original Message -----
> Zakaznik ale pozaduje moznost hledani podle vsech poli v tabulce. Tabulka
ma
> cca 500000 zaznamu a nez se provede napr. SELECT * FROM t1 WHERE text LIKE
> '%11/2002%' trva to asi tak 2-3 minuty.
> Lze tohle hledani nejak optimalizovat - zrychlit? Vytvaret podle potreby
> vhodny index se mi nezda vhodne...
ActiveForm a pohyb kurzoru
[*] jan.slama(zv)t-email(tec)cz - 1.10.2002 02:42:34
Zdravim vas,
Vytvarim modularni aplikaci, kazdy modul je jedno OCX s ActiveForm. Tyto ActiveFormy pak vkladam dynamicky do zalozek na formulari.
Vse funguje dobre az na "maly" detail. Uvnitr ActivFormu nefunguji v editacnich polich SIPKY DOLEVA A DOPRAVA!!!, klavesa TAB a posun koleckem mysi u scrollbaru.
Bohuzel tuto vlastnost jsem zjistil az uz jsem mel vse navrzeno jako COM a ActiveX. Tato zdanliva malickost bude pro uzivatele naprosto zasadni a urcite me "s aplikaci, kde nefunguje ani pohyb kurzoru" posle do haje (a nebude ho zajimat, ze je to koncepcne navrzene pomoci technologie COM)
Muzete mi nejak poradit, setkali jste se s tim? V archivu konference jsem nasel nejake zminky o podobnem problemu (Petr Vones), ale myslim, ze se to tenkrat nejak uspokojive nevyresilo. Neprisli jste od te doby na neco?
Diky za vase napady, Honza Slama
TZip a prace s heslovanim
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 1.10.2002 07:45:25
Zdravim vsechny,
a hlavne ty, kteri pracuji nebo pracovali s pakovaci komponentou TZip od
Anguse Johnsona. Tato komponenta umi pracovat se ZIP-archivy a podporuje i
heslovani. Je postavena na Zipdll.dll a Unzdll.dll od Erica Englera.
Potreboval bych vedet, pripadne jestli je to vubec mozne, jak pri
rozpakovani zaheslovaneho archivu predat heslo jako parametr (heslo znam).
Potreboval bych se vyhnout zobrazeni dotazovaciho okna na zadani hesla pro
rozbaleni souboru z archivu.
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virov� b�ze: 230 - datum vyd�n�: 24.10.2002
ActiveForm a pohyb kurzoru
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 01.10.2002 07:49:57
On 1 Nov 2002 at 2:42, jan.slama(zv)t-email(tec)cz wrote:
> Vytvarim modularni aplikaci, kazdy modul je jedno OCX s ActiveForm.
> Tyto ActiveFormy pak vkladam dynamicky do zalozek na formulari.
Myslim, ze by bylo lepsi, kdyby si COM otevrel sve vlastni okno,
misto vkladani do okna ciziho.
S pozdravem
Zbysek Hlinka
SQL s klauzulou MAX
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 1.10.2002 08:34:45
Abych jen tak nepovidal, zde je priklad:
----------------------------------------
select
osoba.*,
( select max(DATUM) from archiv where ID=osoba.ID ) Datum,
( select TOP 1 Operator FROM archiv
where ID = osoba.Id
order by Datum desc) Operator
FROM OSOBA
Upozornuji pouze, ze pokud datum neni v tabulce archiv pro ID jedinecne, tak
to co ziskas je neco podobneho spatnemu generatoru nahodnych cisel. V SQL
serverech neplati, ze pri trideni zaznamu se jako pomocny klic pouziva jeste
poradi zaznamu v tabulce (jako ve flat databazich napr. DBASE, Paradox,
...)!
Aplikaci by asi prospelo trochu analyzy, nejjednodusi by bylo (i kdyz ne moc
analyticke), doplnit do tabulky dalsi sloupec typu IDENTITY a ten pouzit
jako druhy klic pro trideni : " order by datum, PORADIVZNIKU "
>
> [Nehovoriac o tom, ze v ramci tabulky archiv moze rovnakych
> datumov existovat viacero].
>
Tlacitko & Form
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 1.10.2002 08:39:02
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> jak to ale udelat, kdyz to chci zkombinovat ss stiskem klavesy ?
Nastav u knofliku
property Default=true (pak knoflik reaguje na Enter)
property Cancel=true (pak knoflik reaguje ne Esc)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Form s parametrem
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 1.10.2002 08:53:31
> Odes�latel: LUKES V�clav <lukes(zv)ans(tec)cz>
> muzete me nekdo poradit ? Rad bych volal nejaky Form s parametry a dostal od nej vysledek.
Na formulari deklaruj public polozky p1, p2, ...
pak (v principu)
F:=TMyForm.Create(self);
F.p1:=...
F.p2:=...
F.Show;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Nova release Synapse
[*] Petr Lupinek <plupinek(zv)synthesia(tec)cz> - 1.10.2002 09:00:05
Preju hezky den,
zjistil jsem jiste rozdily ve verzich Synapse, konkretne v pojmenovani
Properties u TFTPSend. Je spravna moje uvaha, ze je treba prepsat v mem
zdrojaku FTP.Host na FTP.TargetHost a FTP.Port na FTP.TargetPort?
Diky za odpoved.
S pozdravem
Ing. Petr Lup�nek
datov� komunikacn� syst�my
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel.: 466825535
mob.: +420 602 406235
Nova release Synapse
[*] Petr Lupinek <plupinek(zv)synthesia(tec)cz> - 1.10.2002 09:03:33
Jeste jednou a lepe - predchozi zprava ma vypadat takto :
Preju hezky den,
zjistil jsem jiste rozdily ve verzich Synapse, konkretne v pojmenovani
Properties u TFTPSend. Je spravna moje uvaha, ze je treba prepsat v mem
zdrojaku FTP.FTPHost na FTP.TargetHost a FTP.FTPPort na FTP.TargetPort?
Diky za odpoved.
S pozdravem
Ing. Petr Lup�nek
datov� komunikacn� syst�my
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel.: 466825535
mob.: +420 602 406235
IB/FB Ukonceni dotazu
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 1.10.2002 09:31:38
Haj hou!
On 31 Oct 2002 at 9:32, Radek KALA wrote:
> Mam velkou databazi pomici TIBQuery pustim dotaz a po nejake
> dobe mne to prestane bavit ( cekat na nej ) mam nejakou moznost
> jak ho zrusit. Myslim, ze by uzivatel stiskl Cancel a ono to zkoncilo v
> aplikaci a take na serveru ?
Tohle umi az IB 6.5 od Borlandu.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Zaslani WM_KEYDOWN
[*] Petr Kuklik <Petr.Kuklik(zv)seznam(tec)cz> - 01.10.2002 10:05:54
Ja to momentalne resim tak, ze na OnKeyDown TEditu volam
TDBGrid.Dispatch(Message). Tu Message naplnim az na KeyData. Tahle
property nese informace o stisknutych Shift, Ctrl apod. Problem je,
ze funkce KeyDataToTShiftState existuje, ale ne opacna, takze nevim
jak plnit KeyData. jedine co me napada, je upravit komponentu, ale to
se mi kvuli jednomu mistu v cele aplikaci nechce.
Petr Kuklik
> Ja to kdysi udelal takto:
> { Posunu ho dolu }
> SendMessage(TenMujGrid.Handle, WM_KEYDOWN, VK_TAB, 0);
>
>
> --------
> ing. Pavel Zilinec
> MailTo:zilinec(zv)email(tec)cz
>
> Prog-Soft s.r.o. Plzen
> Informacni system pro vyrobce
> a distributory napoju
>
> PK> Dobry den,
> PK> jak mam poslat komponente zpravu WM_KEYDOWN s predem definovanymi
> PK> hodnotami CharCode a KeyData?
> PK> Priklad: Mam TEdit a TDBGrid, TEdit ma focus a pokud v TEdit
> PK> stisknu VK_UP, VK_DOWN chci, aby na to reagoval TDBGrid.
>
> PK> Diky Petr
> PK> Kuklik
>
>
______________________________________________________________________
Reklama:
Zapoj se do Nokia Game. http://ad2.seznam(tec)cz/redir.cgi?instance=36151%26url=http://www.nokiagame(tec)cz
ActiveForm a pohyb kurzoru
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 1.10.2002 10:33:46
>
> Vse funguje dobre az na "maly" detail. Uvnitr ActivFormu nefunguji v
editacnich polich SIPKY DOLEVA A DOPRAVA!!!, klavesa TAB a posun koleckem
mysi u scrollbaru.
>
Nejdrive vytvoreni AcX za behu pod FActiveFormX: TActiveFormX;
procedure TForm1.FormCreate(Sender: TObject);
begin
FActiveFormX := TActiveFormX.Create(Self);
FActiveFormX.Parent := Self;
FActiveFormX.Left := 10;
FActiveFormX.Align := alClient;
FActiveFormX.TabStop := True;
end;
a nyni specialni zpracovani zprav zavesene na TApplicationEvents:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
OleInPlaceActiveObject: IOleInPlaceActiveObject;
begin
if Msg.message = WM_KEYDOWN then begin
if Msg.wParam in [9, 37..40] then begin
OleInPlaceActiveObject := FActiveFormX.DefaultInterface as
IOleInPlaceActiveObject;
OleInPlaceActiveObject.TranslateAccelerator(Msg);
end;
if Screen.ActiveControl = FActiveFormX then
Handled := Msg.wParam in [9, 37..40]
else
Handled := Msg.wParam in [37..40];
end;
end;
Ale je to takove moc rychle, urcite to pujde udelat lepe, nicmene je to
celkem
rychle reseni nouzove situace.
Alexandr STEFEK
DLL & cislo verze
[*] <M.Babik(zv)mus(tec)cz> - 01.10.2002 10:53:00
Zdravim,
stale se mi nedari v projektu pridat k DLL, vytvorene v Delphi, cislo jeji verze. V zalozce projektu je u option pridani verzovani zakazano. Delphi V/W2000. Diky
M&B
Jak odchytit okenni proceduru?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 1.10.2002 11:05:42
Ahoj vespolek, zacal jsem pracovat s MS MapPointem (mapove podklady, velmi
podrobne) a potrebuji do te mapy kreslit. To neni problem, mapu mam vsazenou
do TOLEContaineru, mam handle toho okna a jde to. ALE: kdyz se mapa
prekresli, muj obrazek samozrejme vezme za sve. Proto potrebuji odchytit
okenni proceduru toho okna, jenze funkce GetWindowLong s parametrem
GWL_WNDPROC vraci vzdy nulu a GetLastError vraci hodnotu 5, coz je
ERROR_ACCESS_DENIED. Handle toho okna je urcite spravny, protoze ho pouzivam
pro kresleni a to funguje dobre. Pouzil jsem zcela totozny kod jako v jedne
komponente, kde odchytavam okenni proceduru EditBoxu a tam to funguje bez
problemu. Netusite, co by mohlo byt spatne nebo jak jinak odchytit
prekreslovani toho okna? Delphi 5 Pro, Win XP. Diky predem za vsechny
odpovedi.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Aplikace pouze jednou po spusteni WIN
[*] Ing. Vladim�r Ruzicka <ruzicka(zv)digitus(tec)cz> - 1.10.2002 11:37:00
Zdarec asi tak pred max. mesicem probehl konferenci prispevek viz. %subj.
ktery jsem odzkousel a fungoval tak, ze aplikace jednou spustena uz nesla
spustit znovu ikdyz byla prvni instance vypnuta. Jelo to super, ale nekde
jsem to propil a nemuzu to najit v historii konference. Muze mi to nekdo
poslat, prosim ?
Predem dik.
Vladimir, W98
Jak zjistit prubeh instalace MSDE
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 1.10.2002 12:19:59
zdravim,
prubeh jsem nemonitoroval ale mam s MSDE jiste zkusenosti. Muzes si napr.
zjistit ktere soubory vznikaji v urcite casti instalace MSDE a podle toho
udelat progress.
Pavel
----- Original Message -----
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, October 31, 2002 8:30 PM
Subject: Jak zjistit prubeh instalace MSDE
> chtel bych spoustet tichou instalaci MSDE tj. s parametrem /qn.
> Ale protoze to trva skoro 3 minuty, tak bych potreboval v aplikaci,
> ktera tu instalaci spustila, nejak ukazovat prubeh.
>
> Nema nekdo nejaky napad, jak by se to dalo udelat jinak nez
> nejakym zmerenim vykonu stroje a odhadem?
DLL & cislo verze
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 1.10.2002 12:22:35
Pridej do dll {$R *.res}.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Friday, November 1, 2002, 10:53:00 AM, you wrote:
MBmc> Zdravim,
MBmc> stale se mi nedari v projektu pridat k DLL, vytvorene v Delphi, cislo jeji verze. V zalozce projektu je u option pridani verzovani zakazano. Delphi V/W2000. Diky
MBmc> M&B
TZip a prace s heslovanim
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 01.10.2002 12:41:58
ahoj,
zkousel jsi proste nastavit vlastnost Password na
pozadovane heslo? to by snad mohlo fungovat.
peca
______________________________________________________________________
Reklama:
Obchodn� d�m(tec)cz - �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=59
Vicejazycna aplikace
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 1.10.2002 12:43:04
Dekuji vsem za namety.
Diskuze zabredla do hlubsich uvah nez jsem ocekaval pri
formulaci puvodniho dotazu. Dovolim si vratit se zpet na zem
a reagovat na nektere namety.
Zbysek Hlinka napsal:
> Efektivnejsi je napsat cely program v jednom jazyce, a pak
pridavat
> jen lokalizovane (dll) soubory. Ukazku najdes v
Demos\RichEdit.
> Delphi si umi natahnout tu spravnou lokalizaci, a pak ji
pouzivat. Je
> vsak treba davat pozor na urcity druh komponent, VCL
nezvlada jejich
> reload za behu programu. Pokud pouzijes vhodny lokalizacni
nastroj,
> pak prekladas jen napoprve, dalsi lokalizace vkladaji
preklady na
> spravne misto automaticky, muzes si nastavit i sirku
komponent pro
> ruzne dlouhe preklady a podobne. Kompilovat knihovnu
prekladu je
> nutne po kazde kompilaci programu, ale to je vetsinou
automaticka
> rutina.
Prosel jsem si odkazovany priklad a zpusob s dll se mi pro
danou aplikaci nezamlouva. Asi bych jej i tezko realizoval
nemaje potrebne nastroje (elm60.exe) dostupne pouze ve verzi
Enterprice (mam D6Prof). Pouziti lokalizacniho nastroje je
prijatelnejsi alternativa, avsak pracnost pro programatora
se presouva z design time na pozdejsi dobu a nasobi se
poctem lokalizaci. Nedovedu si predstavit, jak bych vyskolil
prekladatele v jine zemi z anglictiny do jineho evropskeho
jazyka na pouziti lokalizatoru. Asi bych mu musel predlozit
texty a on by je prelozil, ja bych je pak musel vlozit do
lokalizatoru. Jenomze to uz je ten krok pro mne navic. Proto
jsem se priklanel k pouziti textoveho souboru. S autentizaci
prekladu si starosti nedelam, ani bych ji ve vetsine pripadu
nemohl provest.
Petr Fejfar napsal:
> V run-time musis pri konstrukci formulare zajistit
> nastaveni odpovidajicich property. To muzes
> udelat bud rucne napr.
>
> Label1.Caption := LoadText('lab1capt');
> Label1.Hint := LoadText('lab1hint');
>
> a nebo to muzes nejak zautomatizovat napr.
> vhodnym pojmenovanim textu napr.
>
> <JmenoFormu>.<JmenoPrvku>.<TypTextu>
>
> napr.
>
> 'Form1.Label1.Caption'
>
> a pak projit vsechna controls na formu
> a nacist pro ne vsechny odpovidajici texty.
Snad by k tomuto ucelu slo pouzit vlastnosti Tag. Dale
napsal:
>
> U ostatnich textu jako chybova hlaseni, dotazy aj.
> primo zavolas LoadText(xxxx).
>
> Zbyva otazka, jak efektivne implementovat ten message pool
a metodu
> LoadText(xxxx). Ale to zalezi
> na poctu textu popr. dalsich na pozadavcich.
V teto souvislosti se chci dotazat, zda existuje vhodnejsi
zpusob nez je TIniFile resp. TMemIniFile?
Neni nejaky vhodny nastroj na lokalizaci v Jvcl?
Dekuji predem za odpovedi.
Ing. Jan Dvorak
Logovani provedenych SQL + BDE
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 1.10.2002 12:52:59
Dobry den,
potreboval bych nejak odchytavat provedene SQL prikazy
(Insert/Update/Delete/(Select)). Obdobne jako to dela SqlMonitor, ale klidne
pomoci kodu v aplikaci.
Napadlo me toto:
Udelat potomka TQuery a na nem prepsat metodu Open/ExecSql a volat nejakou
eventu.
Problemy:
1) Na jake metody se navesit? (Prepsat staticke metody je ponekud osklive
:-). Slo by se navesit na TDataset.SetActive, ale to zase neresi problem
ExecSql, ze?
2) Jak ziskat SQL vcetne parametru (rad bych, aby se vysledny string dal
rovnou spustit jako SQL v nejake SQL consoli)
3) V hotove aplikaci bude trochu problem odchytit tyto zmeny u VSECH
Query - napr. u dynamicky vytvarenych ... (potomka TMyQuery uz samozrejme
pouzivame) - dalo by se navesit neco na TDatabase (popr. dodela nejakou
komunikaci TMyQuery->TMyDatabase->OnDoSqlEvent)
Nebo je nejake jednodussi reseni?
Cele to jede pres Midas, BDE je jen na aplikacnim sereru. (I to je celkem
dost :-), ale ja to nezmenim ...
Diky,
Danik
D5Ent,Oracle8, BDE :-(, W2000
FB - Substring
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 1.10.2002 12:54:38
Ahoj,
potreboval bych v selectu (FB) pouzit funkci SUBSTRING a v
dokumentaci (alespon tu, kterou mam) o SUBSTRING neni
zminka.
V archivu jsem nase jen:
On 23 Sep 2002 at 11:04, Skopalik Slavomir wrote:
> Pokud muzes prejdi na FB, ten je stabilnejsi nez IB6.01
> a ma i funkci substring.
>
> Slavek
Muze mi prosim, nekdo prozradit syntaxi.
SELECT POLE FROM TABULKA WHERE
SUBSTRING(POLE,1,2) = 'XY'
mi vyhazuje chybovou hlasku.
Dekuji a preji hezky den,
Jarek Uher
Vicejazycna aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 01.10.2002 13:04:52
On 1 Nov 2002 at 12:43, Ing. Jan Dvorak wrote:
> Prosel jsem si odkazovany priklad a zpusob s dll se mi pro
> danou aplikaci nezamlouva. Asi bych jej i tezko realizoval
> nemaje potrebne nastroje (elm60.exe) dostupne pouze ve verzi
> Enterprice (mam D6Prof). Pouziti lokalizacniho nastroje je
> prijatelnejsi alternativa, avsak pracnost pro programatora
> se presouva z design time na pozdejsi dobu a nasobi se
> poctem lokalizaci. Nedovedu si predstavit, jak bych vyskolil
> prekladatele v jine zemi z anglictiny do jineho evropskeho
> jazyka na pouziti lokalizatoru. Asi bych mu musel predlozit
> texty a on by je prelozil, ja bych je pak musel vlozit do
> lokalizatoru. Jenomze to uz je ten krok pro mne navic. Proto
> jsem se priklanel k pouziti textoveho souboru. S autentizaci
> prekladu si starosti nedelam, ani bych ji ve vetsine pripadu
> nemohl provest.
Lokalizacni tool v D6 E je na dve veci, protoze neresi problemy, o
kterych napisu za chvilku. Stejne problemy neresi ani externi textovy
soubor.
1. VCL pouziva mnozinu textu, ktere se objevuji pri nekterych
chybach. Klasicky napriklad deleni nulou. Pokud bys chtel pokryt
vsechny tyto pripady, musel bys v programu odchytavat vsechny tyto
hlasky a prekryt je vlastnimi.
2. Nektere knihovny obsahuji vlastni formulare (napriklad
QuickReport). Pokud takovy formular zavolas, mas s lokalizaci v
externim souboru smulu. K nekterym takovym formularum nemusi byt
dostupny zdrojak, abys to mohl prepsat.
3. Nemuzes pouzivat standardni balicky, tam s tim nehnes.
Jazykovy Lokalizator vsechny tyto problemy resi, protoze taha
resourcy primo z binaru, takze mu nic z predesleho nemuze utect. Ty
sam si musis rozvazit, zda tvoje aplikace na uvedene problemy narazi
nebo ne, a jak je budes resit.
S pozdravem
Zbysek Hlinka
Declarace vs Definice metody v Delphi
[*] Michal <delphi-konference(zv)bcpraha(tec)com> - 1.10.2002 13:27:21
Ahojte,
D3 Enterprise
Chtel bych se zeptat, jestli byste mi mohl nekdo vysvetlit proc je
nasledujici priklad spravne (teda podle prekladace D3). Jedine vysvetleni by
bylo, ze v definici jiz nemusim psat parametry pokud nechci. Jak se ale bude
chovat program kdyz ho zkusim prelozit v D5, kde je umozneno pretezovani?
//-----------------
interface
TMyClass = class
public
procedure MyMethod(Dataset: TDataset);
end;
implementation
procedure TMyClass.MyMethod;
begin
...
if Dataset.State = dsEdit then
Beep();
...
end;
...
MyMethod(nil);
...
//-----------------
Michal
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virov� b�ze: 230 - datum vyd�n�: 24.10.2002
TZip a prace s heslovanim
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 1.10.2002 13:51:13
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of petr palicka
> zkousel jsi proste nastavit vlastnost Password na
> pozadovane heslo? to by snad mohlo fungovat.
>
> peca
>
No jasne, ze to funguje. Jak jsem zkoumal zdrojaky komponenty, tak jsem si
toho nevsiml. Kdyz je v Password nic ('') a ZIParchiv je zaheslovany, tak se
vyhazuje dotaz na heslo. Pokud je Password vyplnen, tak rozbaleni jede bez
dotazu, pokud je spravne heslo.
Diky
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.408 / Virov� b�ze: 230 - datum vyd�n�: 24.10.2002
Nova release Synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 01.10.2002 14:47:15
> zjistil jsem jiste rozdily ve verzich Synapse, konkretne v pojmenovani
> Properties u TFTPSend. Je spravna moje uvaha, ze je treba prepsat v
> mem zdrojaku FTP.FTPHost na FTP.TargetHost a FTP.FTPPort na
> FTP.TargetPort?
Uvaha je spravna. V poslednim releasu doslo ke sjednoceni nazvu
nekterych properties ta, aby byly stejne ve vsech protokolovych
implementaci.
Tedy nyni se cilovy server udava pres property TargetHost jak u FTP,
tak i treba u SMTP, IMAP, SNMP,...
kazdopadne doporucuji se podivat take na posledni vyvojovou verzi
Synapse 'SynaSnap', je to uz o dost dal nez psoledni release,a
specielne u FTP protokolu je tam opravena jedna chybicka v dekodovani
vypisu adresare s dlouhymi jmeny souboru. (ostane na webu je i
buglist s chybami, ktere jsou v SynaSnapu opraveny...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Vicejazycna aplikace
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 1.10.2002 15:12:43
Ja pouzivam sortovany TStringList a hodnoty hledam metodou Find.
V Items mam ulozene indexy textu(popripade nejaky jiny identifikacni
retezec) a vlastni text nam ulozen pomoci property Objects.
Pro snazsi praci mam udelaneho potomka TStringListu s public metodami pro
zapis a cteni podle hodnoty nebo indexu.
Pristup je velice rychly. (Oproti TIniFilu nebo TStringListu, kde se
dohledava hodnota pomoci Values['']).
Mas-li zajem muzu poslat.
Martin Kleiner
----- Original Message -----
From: "Ing. Jan Dvorak" <dvorak(zv)szu(tec)cz>
> V teto souvislosti se chci dotazat, zda existuje vhodnejsi
> zpusob nez je TIniFile resp. TMemIniFile?
Kolik dni ma zadany mesic
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 1.10.2002 16:27:27
Budte pozdraveni vsichni v konferenci
Jsem opet zde a opet ze stupidni otazkou
EXISTUJE nejaka funkce ktera mi navrati> kolik dni ma
napr. Mesic leden v roce 2003
Za jakoukoliv radu predem dekuji
Jiri Betunak
kindrik(zv)centrum(tec)cz
Delphi5 pro ;Windows ME 4 90
Vicejazycna aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 1.10.2002 16:49:12
From: "Ing. Jan Dvorak" <dvorak(zv)szu(tec)cz>
> Snad by k tomuto ucelu slo pouzit vlastnosti Tag.
Sure, mohl bys zpravy ocislovat a pak nastavit Tag na toto cislo. Ale to je
pracnejsi, protoze ty budes muset nastrkat do vsech controls *spravna* cisla
a jeste
k cislum sepsat texty. Navic se zbavis moznosti pouzit Tag napr. pro Help
Context resp. k jinym ucelum.
***
Kdyz Message ID odvodis od jmena formu/componenty/property, tak dostanes
jmeno, ktere je v projektu unikatni. Seznam jmen na formu muzes pripravit
napr. pomoci reg. expr. z textove podoby
.DFM souboru vcetne textu, ktere jsi nastrkal do controls v IDE. Cele se to
bude jednodusseji udrzovat.
> V teto souvislosti se chci dotazat,
> zda existuje vhodnejsizpusob nez
> je TIniFile resp. TMemIniFile?
My na to mame vlastni DLL, ktera se pri startu aplikace porozhledne po disku
a vybere soubory s priponami, odpovidajicimi ISO kodu zemi, napr. CZ,DE,SK
etc....
Zpravidla kazdy takovy soubor obsahuje direktivy
include se soubory, odpovidajicimi jednotlivym
modulum apod. a komentar, napr.
;
; version 3.00.003 released 25.10.2001 16:12 by pf
;
#include EMBMTE.EN
#include EMBCHI.EN
#include EMBCHS.EN
#include EMBCHU.EN
#include EMBWKS.EN
Ostatni soubory jsou obycejne textove soubory ve formatu <JmenoTextu>=<Text>
popr. komentar, napr.
U_CHICOM0001=There seems to be a problem. Please ..
ES0700=Unknown error during transaction ...
EU0700=(zv)(U_CHICOM0001)
ES0701=Unable to pick-up a text message from ...
EU0701=(zv)(U_CHICOM0001)
ES0702=There is no response from the host [%s/%s]
ES0706=Unable to pick-up a LIF message from ...
EU0706=Sorry, currently there is no info about ...
Pozn.
V jinem threadu jsem se zminoval o oddeleni zprav pro
uzivatele a administratora, coz je zde videt - systemove zpravy ESxxxx vyse
jsou namapovany prostrednictvim zprav s prefixem EUxxxx na spolecne hlaseni
U_CHICOM00001
***
DLL si nacte vsechny texty ve vsech jazycich a vytvori si k nim index,
vyresi crossreference mezi jazyky, vypise do logu warnings, ktera hlaseni v
jakych jazycich chybi a vsechny texty si ulozi to pracovniho souboru -
message pool.
Pri dalsim startu aplikace zkontroluje casy vsech souboru a jestlize se
lisi, tak automaticky rebuildne
soubor s message pool.
***
Aplikace s tim pak pracuje pomoci nekolika funkci, napr.
function GetTextByName
(const aLanguage,aTxtName:ShortString): AnsiString;
function GetTextByCode
(const aLanguage,aPrefix:ShortString; aCode:integer)
:AnsiString;
function GetUsrErrByCode
(const aLanguage:ShortString; aCode:integer)
: AnsiString;
function GetSysErrByCode
(const aLanguage:ShortString; aCode:integer)
: AnsiString;
etc...
HTH, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Kolik dni ma zadany mesic
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.10.2002 19:45:31
From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> EXISTUJE nejaka funkce ktera mi navrati> kolik dni ma
> napr. Mesic leden v roce 2003
Delphi: DaysInAMonth v unitu DateUtils
JCL: DaysInMonth v unitu JclDateTime
Petr Vones
Uvozovky v FB
[*] J�n Harman <harman(zv)atlas(tec)cz> - 1.10.2002 21:11:19
Ahoj stala se mi zajimava vec. Mam databazi FB a v ni tabulky Firmy, Kraje,
Druzstva...
Zajimave je ze tabulku Druzstva MUSIM VSUDE v dotazech, insertech atd uvadet
v uvozovkach "Druzstva" a ostatni tabulky zase v uvozovkach uvest NESMIM.
Pokud to nedodrzim, vypise v jednom pripade:
Dynamic SQL Error
SQL error code = -204
Table unknown
Firmy
At line 1, column 232
Statement: select * from "Firmy"
a zase v druhem pripade:
Dynamic SQL Error
SQL error code = -204
Table unknown
DRUZSTVA
At line 1, column 15
Statement: select * from Druzstva
Pokud zadam Firmy (bez uvozovek) a "Druzstva" (s uvozovkami), tak vse
funguje spravne.
Setkali jste se s necim takovym prosim? Nepomuze ani zavreni a otevreni db,
smazani a znovu vytvoreni tabulky.
Dik Honza.
Uvozovky v FB
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 1.10.2002 21:19:51
je to tim, ze uvozovky byly pouzity pri vytvoreni tabulky/pohledu.... KER
----- Original Message -----
From: "J�n Harman" <harman(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 01, 2002 9:11 PM
Subject: Uvozovky v FB
> Ahoj stala se mi zajimava vec. Mam databazi FB a v ni tabulky Firmy,
Kraje,
> Druzstva...
> Zajimave je ze tabulku Druzstva MUSIM VSUDE v dotazech, insertech atd
uvadet
> v uvozovkach "Druzstva" a ostatni tabulky zase v uvozovkach uvest NESMIM.
> Pokud to nedodrzim, vypise v jednom pripade:
>
> Dynamic SQL Error
> SQL error code = -204
> Table unknown
> Firmy
> At line 1, column 232
> Statement: select * from "Firmy"
>
> a zase v druhem pripade:
>
> Dynamic SQL Error
> SQL error code = -204
> Table unknown
> DRUZSTVA
> At line 1, column 15
> Statement: select * from Druzstva
>
> Pokud zadam Firmy (bez uvozovek) a "Druzstva" (s uvozovkami), tak vse
> funguje spravne.
> Setkali jste se s necim takovym prosim? Nepomuze ani zavreni a otevreni
db,
> smazani a znovu vytvoreni tabulky.
> Dik Honza.
Vss z Deplhi IDE
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 1.10.2002 21:29:38
Martin Schayna wrote:
> Pouzivame experta pro scripting v D5 http://www.run-time-systems.com/,
> Muzu poslat ty skripty.
To by mozno zaujimalo viacerych, napis o tom podrobnejsie.
bye
vmlich
Drag and drop
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 2.10.2002 11:22:31
(*
Vytvor novu aplikaciu, daj na formular jeden (pre tento priklad Button, ale prakticky mozes pouzit ktorukolvek vizualnu komponentu Delphi, ale potom nezabudni patricne prerobit kod tohto programu. Cize nezabudni prepisat TButton na napr. TEdit pre Edit atd.). Po pridani Buttonu na form nastav jeho OnMouseDown na ButtonMouseDown, OnMouseMove na ButtonMouseMove a OnMouseUp na ButtonMouseUp. Udalost form OnShow nastav na FormShow. Nova poloha Buttonu sa ulozi a pri novom nacitani programu sa premiestni na svoje nove miesto. V pripade problemov alebo dalsich poziadaviek (univerzalny save a load na vsetky komponenty a pod. ma kontaktuj priamo na moj mail peter.ondras(zv)pse.sk.
Nezabudni, ze komponenta sa da presuvat len v ramci svojej Parent komponenty. Cize ak je priamo na formulari tak ju mozes presuvat po celom formulari. Ak je napr. na oblasti panelu, tak ju nepohnes inde ako na oblasti, ktora patri panelu. Resp. pohnes ju do minusovych alebo prilis plusovych hodnot. Napr. na -500 pre vlatnost TOP, co logicky znemena, ze komponenta nebude viditelna (viditelna oblast sa zacina nulou pre TOP aj LEFT).
*)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
Dragging: Boolean;
XOffSet, YOffSet: Integer;
FocusRect: TRect;
MyButton: TButton;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButtonMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Dragging:=True;
XOffSet:=X; YOffSet:=Y;
MyButton:=Sender as TButton;
with MyButton do begin
FocusRect:=Rect(Left,Top,Left+Width,Top+Height);
Canvas.DrawFocusRect(FocusRect);
end;
end;
procedure TForm1.ButtonMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if Dragging then
begin
Canvas.DrawFocusRect(FocusRect);
with FocusRect do begin
Left:=(MyButton.Left+X)-XOffSet;
Top:=(MyButton.Top+Y)-YOffSet;
Right:=MyButton.Width+Left;
Bottom:=MyButton.Height+Top;
end;
Canvas.DrawFocusRect(FocusRect);
end;
end;
procedure TForm1.ButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var Stream: TFileStream;
begin
if Dragging then
begin
Canvas.DrawFocusRect(FocusRect);
Dragging:=False;
with Sender as TButton do begin
Left:=(Left+X)-XOffSet;
Top:=(Top+Y)-YOffSet;
Stream:=TFileStream.Create('components.dat', fmCreate);
try
Stream.WriteComponent(Button1);
finally
Stream.Free;
end;
end;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
var Stream: TFileStream;
begin
if FileExists('components.dat') then
begin
Stream:=TFileStream.Create('components.dat', fmOpenRead);
try
Stream.ReadComponent(Button1);
finally
Stream.Free;
end;
end;
end;
end.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
>: Behalf Of Martin Kasman
>: Sent: Thursday, October 31, 2002 6:55 PM
>: To: Delphi
>: Subject: Drag and drop
>:
>: D6, WinXP
>:
>: Potrebujem v programe spravit drag and drop s labelom: teda, aby sa dalo
>: kliknut na label, potiahnut a pustit. Label ostane na svojom novom
>: mieste.
>:
>: Cez zabudovane funkcie DragMode to vobec neviem urobit, a ak to robim cez
>: onMouseMove, tak ziskavam z premennej X a Y zvlastne hodnoty, ktore sa
>: stale
>: menia aj ked s mysou nepohybujem.
>:
>: Vdaka za kazdu radu.
>:
>:
>: --------------------
>: tisicky obrazkov na tlacitka a ikonky - www.martinkasman.host.sk
Uvozovky v FB
[*] Josef Semera <semera(zv)fofrs(tec)cz> - 2.10.2002 12:51:22
Pokud vytvoris tabulku DRUZSTVA - muzes ji psas s i bez uvozovek.
Pokud vytvoris tabulku Druzstva - MUSIS psat "".
Proto ja radeji pisu vsechny nazvy tabulek a poli VELKYMA.
Semera
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of J�n Harman
Sent: Friday, November 01, 2002 9:11 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Uvozovky v FB
Ahoj stala se mi zajimava vec. Mam databazi FB a v ni tabulky Firmy,
Kraje,
Druzstva...
Zajimave je ze tabulku Druzstva MUSIM VSUDE v dotazech, insertech atd
uvadet
v uvozovkach "Druzstva" a ostatni tabulky zase v uvozovkach uvest
NESMIM.
Pokud to nedodrzim, vypise v jednom pripade:
Dynamic SQL Error
SQL error code = -204
Table unknown
Firmy
At line 1, column 232
Statement: select * from "Firmy"
a zase v druhem pripade:
Dynamic SQL Error
SQL error code = -204
Table unknown
DRUZSTVA
At line 1, column 15
Statement: select * from Druzstva
Pokud zadam Firmy (bez uvozovek) a "Druzstva" (s uvozovkami), tak vse
funguje spravne.
Setkali jste se s necim takovym prosim? Nepomuze ani zavreni a otevreni
db,
smazani a znovu vytvoreni tabulky.
Dik Honza.
Kolik dni ma zadany mesic
[*] bleak <bleak(zv)mvesely(tec)com> - 2.10.2002 12:59:40
tohle vrati posledni den v mesici, na konci je v d1
plom:=EncodeDate(rok,mesic,1);
LDM:= plom-1+32;
decodedate(ldm,r1,m1,d1);
LDM:= LDM - d1;
decodedate(ldm,r1,m1,d1);
plom:=EncodeDate(rok,mesic,d1);
----- Original Message -----
From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> EXISTUJE nejaka funkce ktera mi navrati> kolik dni ma
> napr. Mesic leden v roce 2003
Declarace vs Definice metody v Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.10.2002 14:41:29
From: "Michal" <delphi-konference(zv)bcpraha.com>
> Chtel bych se zeptat, jestli byste mi mohl nekdo vysvetlit proc je
> nasledujici priklad spravne (teda podle prekladace D3). Jedine vysvetleni by
> bylo, ze v definici jiz nemusim psat parametry pokud nechci. Jak se ale bude
Ano, ale neni dobre to pouzivat, prave uz jen z duvodu ktery si zminil dale.
> chovat program kdyz ho zkusim prelozit v D5, kde je umozneno pretezovani?
Nepujde prelozit a dostanes chybove hlaseni:
[Error] Declaration of 'XY' differs from previous declaration
Petr Vones
kodovani
[*] J�n Harman <harman(zv)atlas(tec)cz> - 2.10.2002 19:46:40
Ahoj, prosim Vas, potreboval bych prevest tabulku .dbf do .gdb. Ono to neni
zadny problem, ale
ona ta dbf je v nejakem silenem kodovani a nezobrazuje se mi spravne ani
kdyz ji otevru normalne jako dbf. Nektere znaky jsou proste uplne nesmysly.
Existuje neco na prevedeni do te "spravne" znakove sady prosim?
Diky.
Honza.
kodovani
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 2.10.2002 20:09:58
Ahoj,
On 2 Nov 2002 at 19:46, J�n Harman wrote:
> Ahoj, prosim Vas, potreboval bych prevest tabulku .dbf do .gdb. Ono to
> neni zadny problem, ale ona ta dbf je v nejakem silenem kodovani a
> nezobrazuje se mi spravne ani kdyz ji otevru normalne jako dbf.
> Nektere znaky jsou proste uplne nesmysly. Existuje neco na prevedeni
> do te "spravne" znakove sady prosim? Diky. Honza.
tady mas strukturu hlavicky DBF souboru:
To: webmaster(zv)wotsit.demon.co.uk
From: Peter Mikalajunas
Corrected by P.Oliver 26/5/98
Your DBF description is iffy to say the least. I am
enclosing
a more accurate file layout. Note it include dBaseIII+,
dBaseIV,
FoxBase, FoxPro upto and including 2.6.
DBF FILE STRUCTURE
~~~~~~~~~~~~~~~~~~
BYTES DESCRIPTION
00 FoxBase+, FoxPro, dBaseIII+, dBaseIV, no
memo - 0x03
FoxBase+, dBaseIII+ with memo - 0x83
FoxPro with memo - 0xF5
dBaseIV with memo - 0x8B
dBaseIV with SQL Table - 0x8E
01-03 Last update, format YYYYMMDD **correction:
it is YYMMDD**
04-07 Number of records in file (32-bit number)
08-09 Number of bytes in header (16-bit number)
10-11 Number of bytes in record (16-bit number)
12-13 Reserved, fill with 0x00
14 dBaseIV flag, incomplete transaction
Begin Transaction sets it to 0x01
End Transaction or RollBack reset it to 0x00
15 Encryption flag, encrypted 0x01 else 0x00
Changing the flag does not encrypt or decrypt the
records
16-27 dBaseIV multi-user environment use
28 Production index exists - 0x01 else 0x00
29 dBaseIV language driver ID
30-31 Reserved fill with 0x00
32-n Field Descriptor array
n+1 Header Record Terminator - 0x0D
na 29 byte je kodova stranka, treba to podle toho
poznas.
Jarek Uher
Uvozovky v FB
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 2.10.2002 21:53:08
Ale to je nesmysl... Pokud jsou pouzity pri vytvoreni objektu u nazvu
uvozovky, musi se k tomuto objektu pristupovat pomoci uvozovek.... Nema na
to vliv mala ci velka pismena, ale prave to, jak je objekt zalozen (mozna i
nekdy upraven, to ted z hlavy nejsem schopen rict).
Uvozovky maji vyhodu v situaci, kdy musime (i kdyz je to lehce
zpochybnitelne) pouzit napriklad mezeru, diakretiku apod. V nazvech.
KER
----- Original Message -----
From: "Josef Semera" <semera(zv)fofrs(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, November 02, 2002 12:51 PM
Subject: RE: Uvozovky v FB
> Pokud vytvoris tabulku DRUZSTVA - muzes ji psas s i bez uvozovek.
> Pokud vytvoris tabulku Druzstva - MUSIS psat "".
>
Drag and drop
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 02.10.2002 23:26:25
Funguje to skvele, no pokial je komponenta na inej komponente (napr. Button
na Panely), tak pri vykreslovani FocusRect ho nie je vidno, pretoze je
vykreslovany na form pod tu kompronentu (napr. pod Panelom). Co s tym?
A ozaj preco sa na zaciatku musi vytvorit ten Stream, ked sa vzapeti na to
maze?
----- Original Message -----
From: "Peter Ondras" <peter.ondras(zv)pse.sk>> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
> Dialogs, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> procedure FormShow(Sender: TObject);
> procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> private
> Dragging: Boolean;
> XOffSet, YOffSet: Integer;
> FocusRect: TRect;
> MyButton: TButton;
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.ButtonMouseDown(Sender: TObject;
> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> begin
> Dragging:=True;
> XOffSet:=X; YOffSet:=Y;
> MyButton:=Sender as TButton;
> with MyButton do begin
> FocusRect:=Rect(Left,Top,Left+Width,Top+Height);
> Canvas.DrawFocusRect(FocusRect);
> end;
> end;
>
> procedure TForm1.ButtonMouseMove(Sender: TObject; Shift: TShiftState;
> X, Y: Integer);
> begin
> if Dragging then
> begin
> Canvas.DrawFocusRect(FocusRect);
> with FocusRect do begin
> Left:=(MyButton.Left+X)-XOffSet;
> Top:=(MyButton.Top+Y)-YOffSet;
> Right:=MyButton.Width+Left;
> Bottom:=MyButton.Height+Top;
> end;
> Canvas.DrawFocusRect(FocusRect);
> end;
> end;
>
> procedure TForm1.ButtonMouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> Var Stream: TFileStream;
> begin
> if Dragging then
> begin
> Canvas.DrawFocusRect(FocusRect);
> Dragging:=False;
> with Sender as TButton do begin
> Left:=(Left+X)-XOffSet;
> Top:=(Top+Y)-YOffSet;
> Stream:=TFileStream.Create('components.dat', fmCreate);
> try
> Stream.WriteComponent(Button1);
> finally
> Stream.Free;
> end;
> end;
> end;
> end;
>
> procedure TForm1.FormShow(Sender: TObject);
> var Stream: TFileStream;
> begin
> if FileExists('components.dat') then
> begin
> Stream:=TFileStream.Create('components.dat', fmOpenRead);
> try
> Stream.ReadComponent(Button1);
> finally
> Stream.Free;
> end;
> end;
> end;
>
> end.
>
> Peter Ondras
ActionBands updates pro Delphi 6.02 a 7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.10.2002 00:33:57
Delphi 6.02 ActionBands Update:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17801
Delphi 7.0 ActionBands Patch:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=19151
Petr Vones
udefined symbol: initPAnsiStrings - Kylix
[*] Robert Suska <delphi(zv)korak.sk> - 3.10.2002 11:36:09
Ahojte!
Mam nasledovny problem. Zacal som pracovat v Kylixe pod Linux Mandrake 9.0
mam najnovsie updaty na Linux a proste je riadne vymakany :) a mam pod nim
Kylix 3 skusam robit jednoduchu aplikaciu a nejako mi ta aplikacia nechce
behat mimo prostredia Kylixu. V Kylixe to beha krasne ale ked to chcem
spustit cez terminal okno ./Project1 tak mi to hodi toto:
./Project1: relocation error: ./Project1: undefined symbol: initPAnsiStrings
???? neviete niekto co s tym ?
Dakujem
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
FB - Substring
[*] Petr Palicka aka PeC(zv) <palicka.petr(zv)seznam(tec)cz> - 3.10.2002 15:41:39
> potreboval bych v selectu (FB) pouzit funkci SUBSTRING a v
> dokumentaci (alespon tu, kterou mam) o SUBSTRING neni
> zminka.
ale v nejakem release notes to snad je, cetl jsem to nekde:
SUBSTRING (polozka FROM znak_od FOR kolik_znaku)
nebo podobne, ted z hlavy presne nevim, mozna bez zavorek :-/
peca
Prevod Double do Integer
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 3.10.2002 17:07:32
Potrebuju trochu helpnout.
potrebuju prevest obsah hodnoty typu Double na Integer
Help me
Diky Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.410 / Virov� b�ze: 231 - datum vyd�n�: 31.10.2002
Prevod Double do Integer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.10.2002 17:16:27
From: "Petr K." <xdelphi(zv)seznam(tec)cz>
> potrebuju prevest obsah hodnoty typu Double na Integer
viz funkce Round a Trunc.
Petr Vones
FB - Substring
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 3.10.2002 18:03:04
Ahoj,
On 3 Nov 2002 at 15:41, Petr Palicka aka PeC(zv) wrote:
> > potreboval bych v selectu (FB) pouzit funkci SUBSTRING a v
> > dokumentaci (alespon tu, kterou mam) o SUBSTRING neni
> > zminka.
>
> ale v nejakem release notes to snad je, cetl jsem to nekde:
>
> SUBSTRING (polozka FROM znak_od FOR kolik_znaku)
>
> nebo podobne, ted z hlavy presne nevim, mozna bez zavorek :-/
diky, je to spravne, uz jsem nasel i ten file
(Firebird_v1_ReleaseNotes.pdf z 10.3.2002, na strane 10)
Jarek U.
Synapse a Cookies
[*] Martin Falta <martin(zv)aprog(tec)cz> - 3.10.2002 21:19:20
Ahoj,
potreboval bych poradit, jak na cookies ze Synapse. Co presne
potrebuju? Server mi vrati v hlavicce nejake cookies. A ty musim
serveru pri dalsim pozadavku predat. Zkusil jsem je predat pomoci
HTTPSend.Headers, ale to mi jaksi neproslo. Poradte, jak je predat
serveru. Predem diky.
--
Best regards,
Martin mailto:martin(zv)aprog(tec)cz
Firebird a cestina
[*] Petr K. <xdelphi(zv)seznam(tec)cz> - 3.10.2002 21:42:45
Zdravim uz se tu strilim do hlavy
mam nainstalovanej firebird udelam databazi a v ni tabulku a at zkousim
nastavit cokoliv v charset Win1250 nebo nic nebo ascii tak mi tam bud nejde
vlozit retezec s CZ znaky nebo pokud jde tak mi nejde nastavit trideni - uz
nevim jak dal.
Co s tim ?
DikY
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.410 / Virov� b�ze: 231 - datum vyd�n�: 31.10.2002
Microsoft Outlook
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 3.10.2002 22:28:08
Neznate nekdo free - komponentu typu Microsoft Outlook - ten bar co je na
leve strane. Na torry.net jsou vsechny jen shareware.
Jiri
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.410 / Virov� b�ze: 231 - datum vyd�n�: 31.10.2002
Jak zjistit prubeh instalace MSDE
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.10.2002 22:55:46
From: "Pavel Mattivi" <pmattivi(zv)dezadata(tec)cz>
> prubeh jsem nemonitoroval ale mam s MSDE jiste zkusenosti. Muzes si napr.
> zjistit ktere soubory vznikaji v urcite casti instalace MSDE a podle toho
> udelat progress.
Uz jsem prisel celkem na dobry zpusob, jak to udelat: spustit setup.exe s
parametrem /l, aby vytvarel log. Pak existuji dve moznosti:
a) zjednodusena, kdy si zmerim referencni velikost logu a tu pouziju
jako 100 %
b) Budu parsovat obsah logu a orientovat se podle akci (je to v podstate
presnejsi podoba toho, co navrhujes - ma tu vyhodu, ze tak lze
presne zkontrolovat, jak ta instalace vlastne dopadla, ale zase
je to docela humus, protoze ten log je cely ve wide stringach :-(
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Vicejazycna aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.10.2002 22:56:28
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Lokalizacni tool v D6 E je na dve veci, protoze neresi problemy, o
> kterych napisu za chvilku. Stejne problemy neresi ani externi textovy
> soubor.
>
> 1. VCL pouziva mnozinu textu, ktere se objevuji pri nekterych
> chybach. Klasicky napriklad deleni nulou. Pokud bys chtel pokryt
> vsechny tyto pripady, musel bys v programu odchytavat vsechny tyto
> hlasky a prekryt je vlastnimi.
> 2. Nektere knihovny obsahuji vlastni formulare .... [snip]
> 3. Nemuzes pouzivat standardni balicky .... [snip]
To nejsou problemy, to je stale jen jeden problem: chybny error recovery
subsystem v aplikaci resp. aplikacnim frame worku. Spravne je
kazdou vyjimku osetrit na odpovidajici urovni abstrakce:
a) Tvuj kod musi rozhodovat o tom, jak zavazna chyba v danem kontextu
je,
jak ji zotavit, jak ji presentovat popr. logovat ci archivovat
b) kdyz Tvuj kod rozhodne, ze je nutne chybu presentovat uzivateli,
tak ji bude presentovat pomoci presentacni vrstvy v Tvoji aplikaci,
ktera ma pod kontrolou i volbu jazyka
Takze pokud mas napsanou aplikaci "ciste", muze Ti byt ukradene, v jakem
jazyce jsou texty u exception generovanych vrstvami/objekty 3rd part
provenience.
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 24.10.2002
Firebird a cestina
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 4.10.2002 04:48:58
> Odes�latel: Petr K. <xdelphi(zv)seznam(tec)cz>
> mam nainstalovanej firebird udelam databazi a v ni tabulku a at zkousim
> nastavit cokoliv v charset Win1250 nebo nic nebo ascii tak mi tam bud nejde
> vlozit retezec s CZ znaky nebo pokud jde tak mi nejde nastavit trideni - uz
Jeste COLLATE.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
FB - Substring
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 04.10.2002 06:49:26
> potreboval bych v selectu (FB) pouzit funkci SUBSTRING a v
> dokumentaci (alespon tu, kterou mam) o SUBSTRING neni
> zminka.
> Jarek Uher
Kdyz zaregistrujete UDF funkce dodavane s IB tak je to funkce
SUBSTR.
Microsoft Outlook
[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 04.10.2002 06:50:26
> Neznate nekdo free - komponentu typu Microsoft Outlook - ten bar co je na
> leve strane. Na torry.net jsou vsechny jen shareware.
> Jiri
Ahoj,
JVCL:
http://sourceforge.net/project/showfiles.php?group_id=45786&release_id=107740
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Reklama:
Obchodn� d�m(tec)cz - �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=59
Firebird a cestina
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 04.10.2002 06:51:50
> mam nainstalovanej firebird udelam databazi a v ni tabulku a at
> zkousim nastavit cokoliv v charset Win1250 nebo nic nebo ascii tak mi
> tam bud nejde vlozit retezec s CZ znaky nebo pokud jde tak mi nejde
> nastavit trideni - uz nevim jak dal. Co s tim ?
Pro spravne trideni jeste COLLATE v definici sloupcu a aby to
fungovalo, musi byt nejen db zalozena s charset ale take klient
pripojeny s odpovidajicim charset.
kodovani
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 04.10.2002 06:59:32
> > Ahoj, prosim Vas, potreboval bych prevest tabulku .dbf do .gdb. Ono
> > to neni zadny problem, ale ona ta dbf je v nejakem silenem kodovani
> > a nezobrazuje se mi spravne ani kdyz ji otevru normalne jako dbf.
> > Nektere znaky jsou proste uplne nesmysly.
> tady mas strukturu hlavicky DBF souboru:
> na 29 byte je kodova stranka, treba to podle toho poznas.
Myslim, ze ta kodova stranka tam je az od nejake verze, tipnul bych
2.5 ale pokud to neni dbf z Ruska nebo Koreje tak staci zkusit tri
moznosti - Kamenickych, Latin2 a Win1250. Na 99.99% to jeden z
nich bude. A pak uz proste jen prekodovani.
inet online
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 4.10.2002 08:13:38
nazdar,
nevie mi niekto poradit ako z delphi zistit ci je pocitac pripojeny k
internetu (modemove pripojenie) ?
viem to urobit zavolanim externeho pingu na ale to velmi elegantne nie
je...
dik za kazde info
joka
Vicejazycna aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 04.10.2002 08:14:11
On 3 Nov 2002 at 22:56, Petr Fejfar wrote:
> > Lokalizacni tool v D6 E je na dve veci, protoze neresi problemy, o
> > kterych napisu za chvilku. Stejne problemy neresi ani externi
> > textovy soubor.
> >
> > 1. VCL pouziva mnozinu textu, ktere se objevuji pri nekterych
> > chybach. Klasicky napriklad deleni nulou. Pokud bys chtel pokryt
> > vsechny tyto pripady, musel bys v programu odchytavat vsechny tyto
> > hlasky a prekryt je vlastnimi. 2. Nektere knihovny obsahuji vlastni
> > formulare .... [snip] 3. Nemuzes pouzivat standardni balicky ....
> > [snip]
>
> To nejsou problemy, to je stale jen jeden problem: chybny error
> recovery subsystem v aplikaci resp. aplikacnim frame worku. Spravne je
> kazdou vyjimku osetrit na odpovidajici urovni abstrakce:
Ne, to neni jeden problem, ale nejmene problemy dva. Formular neni
chybova hlaska, a prave s cizimi formulari jsou nejvetsi problemy pri
lokalizaci pres soubor, ale take v ITE.
S pozdravem
Zbysek Hlinka
Synapse a Cookies
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 04.10.2002 08:29:56
Posledni vyvojovy SynSnap ma v sobe podporu Cookies uz zabudovanou.
;-)
Pak tedy staci kdyz lezes na ten jeden server z jedne instance
THTTPSend, a ono ti to tam bude samo automaticky posilat obdzene
Cookies. Ty Cookies jsou tobe prezentovanmy jako TStringList property
'cookies', takze neni poblem si je uschovat a pak obnovit po dalsi
pouziti, pokud potrebujes ten objekt zlikvidovat.
Tedy po HTTP dotazu si muzes z teto property precist poslane Cookies,
a naopak pred pouzitim THTTPSend mjuzes do teto property nasypat
tebou pozadovane Cookies. Poklud pouzijes stejnou instanci a zavolas
v ni serii HTTP dotazu, tak se budouty Cookies predavat bez
jakehokoliv tveho zasahu.
> potreboval bych poradit, jak na cookies ze Synapse. Co presne
> potrebuju? Server mi vrati v hlavicce nejake cookies. A ty musim
> serveru pri dalsim pozadavku predat. Zkusil jsem je predat pomoci
> HTTPSend.Headers, ale to mi jaksi neproslo. Poradte, jak je predat
> serveru. Predem diky.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
TZip a prace s heslovanim
[*] Peter Sulek <psulek(zv)centrum.sk> - 4.10.2002 09:14:58
>>No jasne, ze to funguje. Jak jsem zkoumal zdrojaky komponenty, tak jsem si
>>toho nevsiml. Kdyz je v Password nic ('') a ZIParchiv je zaheslovany, tak
se
>>vyhazuje dotaz na heslo. Pokud je Password vyplnen, tak rozbaleni jede bez
>>dotazu, pokud je spravne heslo.
Mohli by ste mi dat neaky link kde by som nasiel komponentu TZip o ktorej
tu teraz pisete ?
Dakujem
Peter Sulek
psulek(zv)centrum.sk
inet online
[*] Milan Cizek <Cizek.Milan(zv)seznam(tec)cz> - 04.10.2002 09:14:55
> nevie mi niekto poradit ako z delphi zistit ci je pocitac pripojeny k
> internetu (modemove pripojenie) ?
Ahoj,
uses ...WinInet;
function DynaLink_InternetGetConnectedState(lpdwFlags: LPDWORD;
dwReserved: DWORD): BOOL;
var WininetDLL: THandle;
Wininet_InternetGetConnectedState: function(lpdwFlags: LPDWORD;
dwReserved: DWORD): BOOL; stdcall;
begin
Result:=True;
WininetDLL:=LoadLibrary('wininet.dll');
if (WininetDLL>0) then
begin
(zv)Wininet_InternetGetConnectedState:=GetProcAddress(WininetDLL,'InternetGetConnectedState');
if Assigned(Wininet_InternetGetConnectedState) then
Result:=Wininet_InternetGetConnectedState(lpdwFlags,dwReserved);
FreeLibrary(WininetDLL);
end;
end;
function Connected: boolean;
var dwFlags: DWORD; dwReserved: cardinal;
begin
dwReserved:=0;
Result:=DynaLink_InternetGetConnectedState((zv)dwFlags,dwReserved);
end;
function GetConnectTimeout(const hSession: HInternet): DWORD;
var lpDWORD,lpdwLen: DWORD;
begin
InternetQueryOption(hSession,INTERNET_OPTION_CONNECT_TIMEOUT,(zv)lpDWORD,lpdwLen);
Result:=lpDWORD;
end;
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
Reklama:
Obchodn� d�m(tec)cz - �irok� sortiment dom�c�ch spot�ebi�� a elektroniky, v�razn� slevy. Nav�tivte http://www.obchodni-dum(tec)cz/index.phtml?prov=59
Pozor na Profibanku
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 4.10.2002 09:42:42
KB nyni siri svuj bankovni program Profibanka, ktery bezi na SQL serveru
(MSDE). Pokud se nainstaluje, nastavi si nejake svoje tajne heslo
systemoveho administratora. Pokud tedy na tomto pocitaci provozujete nejaky
dalsi program, pouzivajici SQL server, neni sance, jak se tam pripojit! KB
heslo nesdeli, protoze nechce, aby mel jiny program moznost dostat se do
bankovnich dat na pocitaci. Rovnez s tim nic delat nebudou. Jak se vsak
branit takovym agresivnim instalacim?
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
Viewbar - jak na to
[*] Zdenek Stepanek <webmaster(zv)rokaglass(tec)com> - 4.10.2002 10:00:02
Zdravim
Mozna to je zdlouhava cesta, ale v LiteStepu existuje modul jDesk.dll a
ten dela prave to oriznuti obrazovky. Zkus si nakontaktovat autora a
pozadat ho o zdrojaky. Treba bys mohl vyuzit primo i tuhle knihovnu.
Interface neni tajny. Netusim ale, zda je to v Delphi nebo v C++.
Hledej na http://www.shellfront.org/modules-list.php.
Zdenek
-----Original Message-----
potreboval bych vytvorit program, ktery po spusteni bude zabirat asi 70
pixelu od vrchu obrazovky a bude stale videt => obrazovka bude o techto
70 pixelu mensi. Dal bych chtel vedet, jak mam udelat, aby tento program
vedel, zda zrovna uzivatel s PC pracuje nebo ne (Kontroluje pohyb mysi,
ci mackani klaves na klavesnici).
Vicejazycna aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 4.10.2002 10:05:56
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Ne, to neni jeden problem, ale nejmene problemy dva. Formular neni
> chybova hlaska, a prave s cizimi formulari jsou nejvetsi problemy pri
> lokalizaci pres soubor, ale take v ITE.
Mas pravdu, prehledl jsem ty formulare, nejspis proto, ze osobne
by me nikdy nenapadlo pouzit 3rd party formular ve vlastni aplikaci.
Bye, pf
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.408 / Virus Database: 230 - Release Date: 25.10.2002
Pozor na Profibanku
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 04.10.2002 10:25:00
Puvodni zprava, kterou napsal Jaroslav Nadhera dne 4 Nov 2002:
> KB nyni siri svuj bankovni program Profibanka, ktery bezi na SQL serveru
> (MSDE). Pokud se nainstaluje, nastavi si nejake svoje tajne heslo
> systemoveho administratora. Pokud tedy na tomto pocitaci provozujete
> nejaky dalsi program, pouzivajici SQL server, neni sance, jak se tam
> pripojit! KB heslo nesdeli, protoze nechce, aby mel jiny program moznost
> dostat se do bankovnich dat na pocitaci. Rovnez s tim nic delat nebudou.
> Jak se vsak branit takovym agresivnim instalacim?
To jsou teda drsnaci, to je sila... Tak pak bud se toho zbavit nebo
odposlechnout to heslo, kdyz se bude logovat, jestli se bude logovat,
bude-li to po siti...
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================Pozor na Profibanku
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 4.10.2002 10:49:33
Pomerne jednoduse.
-----------------------------
Pod WNT a dale
------------------------
v stavajim SQL serveru (MSDE) pouzit autentizaci WINDOWS.
Neinstalovat pod uctem administrator (ani poweruser), ale nejakym beznym
uzivatelskym uctem.
Potom nema instalacni program dostatecna prava neco menit a muze zmenit
pouze heslo uzivatele sa. Nebo si zalozit dalsi server.
Pod W98 a ME
----------------------
Zastavit SQL server zkopirovat databazove soubory.
Odinstalovat SQL server (MSDE).
Nainstalovat ho znovu (MSDE)
Vytvorit databazi.
Pripojit soubory.
Nyni jsi dbo ty a muzes si s daty delat co chces.
Doplnit uzivatele pokud je potreba.
Jinak to neni prilis korektni zpusob prace s uzivatelskou stanici.
> Od: Jaroslav Nadhera [mailto:nadhera(zv)csh(tec)cz]
>
> KB nyni siri svuj bankovni program Profibanka, ktery bezi na
> SQL serveru
> (MSDE). Pokud se nainstaluje, nastavi si nejake svoje tajne heslo
> systemoveho administratora. Pokud tedy na tomto pocitaci
> provozujete nejaky
> dalsi program, pouzivajici SQL server, neni sance, jak se tam
> pripojit! KB
> heslo nesdeli, protoze nechce, aby mel jiny program moznost
> dostat se do
> bankovnich dat na pocitaci. Rovnez s tim nic delat nebudou.
> Jak se vsak
> branit takovym agresivnim instalacim?
>
> Jaroslav Nadhera
>
Vss z Deplhi IDE
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.10.2002 11:09:24
----- Original Message -----
From: "Viliam Mlich" <mlich1(zv)volny(tec)cz>
> Martin Schayna wrote:
>
> > Pouzivame experta pro scripting v D5 http://www.run-time-systems.com/,
> > Muzu poslat ty skripty.
>
> To by mozno zaujimalo viacerych, napis o tom podrobnejsie.
Dobra, ten expert docela vyrazne rozsiruje IDE Delphi 5 o moznost napsat
si pomoci VBScriptu vlastni funkce dostupne z menu IDE nebo na horkou
klavesu (nebo vyvolavane pri nejakem eventu, napr. otevreni projektu --
nezkousel jsem). Z tech skriptu se dostanete na objektove rozhrani IDE
ktere je velice podobne OpenTools API, a samozrejme pres OLEAutomation
na vsechno mimo IDE, napr. na Visual SourceSafe. Dale je tam k dispozici
objektove rozhrani na parser ObjectPascalu (znamy mwSimplePasPar) takze
by se daly delat v IDE kouzelne veci ala CodeRush.
Ja jsem si napsal skritpt pro funkce Get, CheckOut, CheckIn atd. ktery si pri
spusteni Delphi slizne nastaveni lokalnich cest k projektum ve Visual SourceSafu
a pak pokud mate otevren v editoru IDE soubor a zvolite nejakou z techto funkci,
zjisti si ke kteremu projektu v SourceSafu patri a operaci pres OLEAutomation
provede. Bohuzel metoda Get ma rozhrani nevhodne pro VBScript a tak jsem
kolem ni musel udelat obalku pomoci OLEAutomation serveru napsaneho v D5.
To je vse.
Bohuzel se scripting expert vubec nevyviji, coz je skoda.
Martin Schayna
synapse - TCP Echo Server - obojsmerne vlakno
[*] <delphin(zv)centrum.sk> - 04.10.2002 11:32:41
Zdravim !
Potreboval som si vytvorit komunikaciu medzi serverom a viacerymi
vzdialenymi klientmi terminalovym spojenim, pouzil som na to
Synapse. Hodil sa mi na to priklad z dema TCPEchoServer. Vsetko
to pekne funguje iba ak nie su v tejto komunikacii nejake
obmedzenia (neviem presne ake, tusim nejaky IP filtering alebo
firewall). Ide o to, ze server moze v pohode prijmat spravy, ale
odoslat uz z neho nemozem nic, chcel by som (neviem ako na to a
neviem, ci to Synapse umoznuje), ze ak sa na server z klienta
nieco posle, aby sa tym istym connect vlaknom dala poslat sprava
zo server na klienta o uspesnom prijati..Cital som niekde, ze je
mozne pouzivat taketo obojsmerne vlakna, neviem vsak ako s tym
pohnut v tejto suvislosti..
Prosim o nejake nakopnutie..
Vdaka
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
synapse - TCP Echo Server - obojsmerne vlakno
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 04.10.2002 12:15:24
nerozumim tvemu problemu. ;-/
TCPEcho demo pouziva TCP spojeni, coz je 'virtualni obousmerny drat',
skrzeva ktery muzes posilat data obema smery jak chces.
Pokud se ti vubec podarinavazat spojeni a poslat nejaka data, pa
zcela urcite jdou ty data poslat i zpatky. Kdyby to neslo, nepovedlo
by se ti vubec pripojit!
Vzdyt uz i samotne Echo demo pouziva preci obousmerny datovy prenos..
co mu posles, tak to ti posle nazpatek.
> Potreboval som si vytvorit komunikaciu medzi serverom a viacerymi
> vzdialenymi klientmi terminalovym spojenim, pouzil som na to Synapse.
> Hodil sa mi na to priklad z dema TCPEchoServer. Vsetko to pekne
> funguje iba ak nie su v tejto komunikacii nejake obmedzenia (neviem
> presne ake, tusim nejaky IP filtering alebo firewall). Ide o to, ze
> server moze v pohode prijmat spravy, ale odoslat uz z neho nemozem
> nic, chcel by som (neviem ako na to a neviem, ci to Synapse umoznuje),
> ze ak sa na server z klienta nieco posle, aby sa tym istym connect
> vlaknom dala poslat sprava zo server na klienta o uspesnom
> prijati..Cital som niekde, ze je mozne pouzivat taketo obojsmerne
> vlakna, neviem vsak ako s tym pohnut v tejto suvislosti.. Prosim o
> nejake nakopnutie.. Vdaka
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
THREAD, NMHTTP
[*] Peter SKODA <peter(zv)korak.sk> - 4.10.2002 12:23:00
Pozri si program WebFind v Demos adresary.
----- Original Message -----
From: "Dalibor" <dalibor(zv)torola(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, October 31, 2002 12:18 PM
Subject: THREAD, NMHTTP
> Ahoj,
> potrebuji pomci HTTP dotazu nacist nejaka data ze serveru. Data
> (binarni) server nemusi poslat hned, ale az po nejake dobe. Proto
> bych to potreboval vytvorit pomoci threadu tak, aby se dale mohlo v
> programu pracovat, nez se tyto data kompletne nactou.
> A jeste jedna vec, jak by se to dalo naprogramovat tak, abych to
> nemel omezeno pouze na jeden HTTP kanal, ale na vice.
> Tozn, ze bych najednou mohl poslat treba az 4 pozadavky.
>
> Uvazuji o komponente NMHTTP.Jake mate s ni zkusenosti?
> Nebo na to pouzit jine reseni? Pres nejake sockety, apod?
> S Thready jsem zatim nedelal...
>
> Dekuji
Pozor na Profibanku
[*] Matavovsky Peter <matavovsky(zv)vse.sk> - 4.10.2002 11:31:59 -0000
>KB nyni siri svuj bankovni program Profibanka, ktery bezi na SQL serveru
>(MSDE). Pokud se nainstaluje, nastavi si nejake svoje tajne heslo
>systemoveho administratora. Pokud tedy na tomto pocitaci provozujete nejaky
>dalsi program, pouzivajici SQL server, neni sance, jak se tam pripojit! KB
>heslo nesdeli, protoze nechce, aby mel jiny program moznost dostat se do
>bankovnich dat na pocitaci. Rovnez s tim nic delat nebudou. Jak se vsak
>branit takovym agresivnim instalacim?
Nie je to vobec nijaky problem,
staci nainstalovat dalsiu instanciu MSDE (umoznuje prevadzkovat az 16
instancii na jednom PC)
a vsetko bude fungovat.
Presny popis ako to urobit je v developer edition MSSQL2000.
Peter M.
synapse - TCP Echo Server - obojsmerne vlakno
[*] <delphin(zv)centrum.sk> - 04.10.2002 13:25:21
..mozno som sa zle vyjadril..skusim teda este raz..
Prave na skusanie takejto odozvy som si upravil EchoSrv, v
TTCPEchoDaemon.Execute som si pri sock.bind dal ip svojho PC a
port 9191.V TTCPEchoThrd.Execute mam :
..
repeat
if terminated then break;
ShowMessage(recvPacket(60000));
if lastError<>0 then break;
sendstring('odozva');
if lastError<>0 then break;
until false;
..
Potom som si spustil EchoSrv 2 krat, bind je na tu istu adresu a
port, z EchoSrv2 davam SendString, napr. aaa, EchoSrv1 mi spravne
vypise aaa. Ocakavam potom, ze by mi mal EchoSrv2 vypisat odozva,
ale nie, EchoSrv1 mi znova zobrazi message, tentokrat s prazdnym
stringom. Potom sa uz nic nedeje... neviem, kde robim chybu alebo
som to zle pochopil ??.. chcel by som dospiet k stavu, ked by mi
spominane upravy robili EchoSrv2 posle aaa, EchoSrv1 zobrazi aaa
a hned posle odozva, EchoSrv2 zobrazi odozva a hned posle
odozva.. a tak dookola..
..opisany stav je skusanie toho co si mi napisal v zmysle
obojsmerneho prenosu dat.. to, co som popisoval predtym sa mi
stava mozno mojimi nespravnymi nastaveniami..teraz ma vsak
zaujima aspon vyriesenie hore opisaneho problemu.. Je mozne to
takto pouzit??
Dik
Lukas pisal:
nerozumim tvemu problemu. ;-/
TCPEcho demo pouziva TCP spojeni, coz je 'virtualni obousmerny
drat',
skrzeva ktery muzes posilat data obema smery jak chces.
Pokud se ti vubec podarinavazat spojeni a poslat nejaka data, pa
zcela urcite jdou ty data poslat i zpatky. Kdyby to neslo,
nepovedlo
by se ti vubec pripojit!
Vzdyt uz i samotne Echo demo pouziva preci obousmerny datovy
prenos..
co mu posles, tak to ti posle nazpatek.
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting