Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Vkladani nove vety s jedinecnym ID
[*] David Mach <scvk(zv)clnet(tec)cz> - 4.8.1998 13:14:36
Mam tabulku, ve ktere kazdou vetu identifikuji jedinecnou hodnotou v
polozce KLIENT_ID, ktera je povinna. Vytvoril jsem si generator pro tuto
polozku a triger BEFORE INSERT nad danou tabulkou, ktery doplnuje do
polozky NEW.KLIENT_ID nove cislo z generatoru. Pokud vkladam vetu pomoci
SQL prikazu INSERT INTO, tak je vse OK. Jakmile chci vkladat data rucne (v
programu v Delphi nebo v Database Exploreru), tak pri POSTu zaznamu mi to
zakrici, ze polozka KLIENT_ID musi mit nejakou hodnotu. V pripade, ze tam
doplnim napr. cislo 0, tak to zase krici "Record/Key Deleted", ale po
refresi se veta v tabulce objevi se spravnym ID . Jakym zpusobem se da toto
v Delphi osetrit, popr. nedelam neco spatne?
Diky vsem.
David
USB
[*] Tom� Hopl��ek <tomas.hoplicek(zv)risc.upol(tec)cz> - 4.8.1998 13:21:55
Muj dotaz je prosty,
jak funguje a jak se pracuje s USB.
Dekuji
Tomas Hoplicek
Voskovcova 6, Olomouc 779 00
068 5432599 / 0603 271 678
SN modemu
[*] Ing.Ludek Florian <ludan(zv)bluerose(tec)cz> - 4.8.1998 13:29:56
>:-) najjednoduchsie tak, ze sa pozries na ten stitok :-)
>
Sorry, ale to mi ho... pomuze. Jde o to, ze jednomu z mych zakazniku jejich
"takyudrzbar" vymenil modem a jediny co zakaznik ma, je cislo na dodacim
liste. Stitek je strzeny. Maji k tomu original CD, na kterem jsou nektere
utility a ty chodi pouze na tom original modemu. I kdyz bude modem se
stejnym chipem, stejne ty utility nefunguji. Proto se na to ptam. Jeste mi
zbyva napsat vyrobci, jestli s tim nepichne, ale jinak nevim, jak toho
bastarda donutit, aby ten modem vratil.
Bye Ludan
ludan(zv)bluerose(tec)cz
Deklarace extern�ch funkc�
[*] Pavel Sommer <majesty(zv)softhome(tec)net> - 4.8.1998 13:49:30
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj...
Pot�eboval bych poradit, jak prov�st deklaraci v Delphi 3 n�jak� funkce z ur�it� DLL knihovny.
V�m jak volat funkce a procedury z knihoven, kter� si s�m vytvo��m, ale jak to prov�st u funkce, u kter� nezn�m parametry a ani typ hodnoty, kterou vrac�.
V sou�asn� chv�li se mi jedn� o funkci NDDEShareAdd z knihovny NDDEApi.dll, kter� je um�st�n� v adres��i Windows 95.
Je mo�nost sehnat n�kde co nej�ir�� popis jednotliv�ch funkc� a procedur exportovan�ch z knihoven Windows95 a NT ??
Jestli mi n�kdo m��ete pomoct, ozv�te se.
P�edem moc d�kuji.
Pavel Sommer (majesty(zv)softhome.net).Spustanie Browsera (part 2) :)
[*] Peter SIMKOVIC <simkovic(zv)vadium.sk> - 04.8.1998 14:14:56
zdravim,
chcel by som sa vas opytat, ako odoslat web browseru nejaku adresu, ked je
tento browser uz spusteny, zaroven aby to bolo nezavisle na type browsera.
vdaka
SIMKOVIC Peter
simicek(zv)vadium.sk
simkovic(zv)vadium.sk
http://www.vadium.sk/simi
and web admin of:
www.drazba.sk
Neviditelne okno
[*] Adam Horacek <ahoracek(zv)ciglersw(tec)cz> - 4.8.1998 14:22:57
-----Original Message-----
From: Petr Brant [mailto:pbrant(zv)softhome.net]
Sent: Tuesday, August 04, 1998 1:05 PM
Subject: FW: Neviditelne okno
-----Puvodni zprava-----
Od: Ing. Jan Kuchar
Odeslano: 24. eervna 1998 10:02
Komu: Delphi
Poedmit: Neviditelne okno
Caute !
Potrebujem poradit v nasledujucej veci. Pre svoju aplikaciu musim zostrojit
jedno neviditelne okno, ktore by sa nachadzalo nad vsetkymi spustenymi
aplikaciami vo WIN95 a nevim ako na to ( jedna sa mi v podstate o
priesvitne okno ). Ak niekto viete ako take okno zostrojim dajte mi vediet. Dik
Katedra vyrobnych inovacii
SjF TU Ko?ice
Ing. Jan Kuchar
E-mail : kuchar(zv)tuke.sk
[Petr Brant]
Nastav vlastnosti okna takto:
BorderIcons = []
BorderStyle = bsNone
FormStyle = fsStayOnTop
Position = poScreenCenter
Style = wsMaximized
a zakaz prekreslovani okna:
private
procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message
WM_ERASEBKGND;
......
procedure TForm1.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
Message.Result := 1;
zde se NESMI napsat inherited :-)
end;
Takze v tomto "okne" muzes odchytavat cokoli a uzivatel
z toho bude patrne pekne vydeseny :-))), kdyz se mu bude
desktop chovat jinak nez standardne
DFx - knihovny
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 4.8.1998 14:59:34
-----P�vodn� zpr�va-----
Od: Hr�a Daniel [SMTP:Hrna(zv)VM.SME(tec)cz]
Odesl�no: 4. august 1998 11:54
Komu: 'Delphi konference'
P�edm�t: 3DFx - knihovny
Pry existuje nejaka knihovna pro Delphi, ohledn� p��stup� na graficky
akcelerator 3DFx.
Nevite o tom nekdo, prypadne shanim nejake jine zdroje k tomuto pristupu
..
Dik
Daniel Hr�a - STVT
Severomoravsk� energetika, a.s.
Rozvodn� z�vod Val. Mezi����
telefon: +42 0651 683 224
fax: +42 0651 683 400
mobil: 0603/257 397
e-mail: hrna(zv)vm.sme(tec)cz
jedina rada:
programuj pod Direct3D alebo OpenGL, s opnegl to bude trochu tazsie, ale na D3D existuje dost freewaru (VCL pre DirectX a pod.), a pod tym je praca pohodova, ale chce to masinku na to...
Pavel
CPU IBM/Cyrix
[*] ceska(zv)triada(tec)cz - 4.8.1998 15:08:00
Ahoj vsem.
Predem se omlouvam za dotaz, ktery nesouvisi s Delphi.
Mam CPU IBM/Cyrix PR233 MMX. Na CPU je napsano, ze se ma nasvicovat
na 2.5 x 75, coz je 187.5 MHz, vykonove ma odpovidat INTELu 233.
Je mozne bez potizi uvedene CPU pretaktovat? Napr. 3 x 75 a pod.? Musi se
pri pretaktovani dodrzet hodnota 75?
Pavel Ceska
***************************
* Pavel Ceska *
* e-mail: ceska(zv)triada(tec)cz *
* http:// www.triada(tec)cz *
***************************Spustanie Browsera (part 2) :)
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 4.8.1998 16:54:05
Zdar,
pomoci ShellExecute a misto jmena programu dej http://adresa(tec)cz.
WHandle := ShellExecute(Application.Handle, nil, 'http://adresa(tec)cz', '', '',
SW_SHOWNORMAL);
if WHandle = SE_ERR_NOASSOC then {error}
To stejny udelas na postu ale das mailto:meno(zv)adresa(tec)cz. A system by uz mel
zaridit vse ostatni.
Michal, mailto:mbrabec(zv)ciglersw(tec)cz
> -----Original Message-----
> From: Peter SIMKOVIC [mailto:simkovic(zv)vadium.sk]
> Sent: Tuesday, August 04, 1998 2:15 PM
> To: delphi(zv)pinknet(tec)cz
> Subject: Spustanie Browsera (part 2) :)
>
> zdravim,
>
> chcel by som sa vas opytat, ako odoslat web browseru nejaku
> adresu, ked je
> tento browser uz spusteny, zaroven aby to bolo nezavisle na type browsera.
>
> vdaka
> SIMKOVIC Peter
> simicek(zv)vadium.sk
> simkovic(zv)vadium.sk
>
> http://www.vadium.sk/simi
> and web admin of:
>
> www.drazba.sk
>CPU IBM/Cyrix
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 04.8.1998 17:11:30
Spoustu rad o pretaktovani najdes zde:
http://www2.tomshardware.com/overclock.html
Proste super stranka o HW obecne - testy apod.
Doporucuju vsem kdo snad nezna ;)
Mac
ceska(zv)triada(tec)cz wrote:
> Mam CPU IBM/Cyrix PR233 MMX. Na CPU je napsano, ze se ma nasvicovat
> na 2.5 x 75, coz je 187.5 MHz, vykonove ma odpovidat INTELu 233.
> Je mozne bez potizi uvedene CPU pretaktovat? Napr. 3 x 75 a pod.? Musi se
> pri pretaktovani dodrzet hodnota 75?
--
Ing. Martin Kubecka
Amenit s.r.o.
Ulice Na Valech - budova Dytron
Novy Jicin
741 01
e-mail: martin.kubecka(zv)dytron(tec)cz
tel: +420 603 / 26 59 26
---------------------------------------
Deklarace extern�ch funkc�
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.8.1998 17:45:40
> Pot�eboval bych poradit, jak prov�st deklaraci v Delphi 3 n�jak� funkce z ur�it� DLL knihovny. V�m
> jak volat funkce a procedury z knihoven, kter� si s�m vytvo��m, ale jak to prov�st u funkce, u
> kter� nezn�m parametry a ani typ hodnoty, kterou vrac�. V sou�asn� chv�li se mi jedn� o funkci
> NDDEShareAdd z knihovny NDDEApi.dll, kter� je um�st�n� v adres��i Windows 95.
>
> Je mo�nost sehnat n�kde co nej�ir�� popis jednotliv�ch funkc� a procedur exportovan�ch z knihoven
> Windows95 a NT ??
>
> Jestli mi n�kdo m��ete pomoct, ozv�te se.
Ahoj,
1. - Nepis prosim cesky - a vubec vsichni, nepiste cesky a nepouzivejte
formaty HTML a podobne prilohy. U programatoru by se dala predpokladat
jista uroven znalosti aspon zakladniho nastavovani maileru. Tak si to
doprcic vsichni vypnete, uz me to stve...
2. - Pokud neznas parametry funkci/procedur ulozenych v libovolne DLL
knihovne, tak je ti ta DLL knihovna na dve veci, protoze si z ni tezko
neco zavolas. Abys mohl neco volat, musis presne znat, jak se ta funkce
jmenuje, jake ma parametry a jaky je vysledek. Co ja vim, tak snad
existuje nejaky program, ktery by to snad mohl zjistit, ale mnohem
lepsi je mit popis te ktere DLL a precist si to tam. Pak muzes delat
interface a nadefinovat volani funkce.
3. - Knihovna NDDEAPI.DLL je dynamicka knihovna pro Network Dynamic
Data Exchange. Konkretne funkce NDdeShareAdd je funkce, ktera vytvori
a prida nove DDE sdileni do databaze DDE sdileni (DSDM). Jeji interface
je zde:
UINT NDdeShareAdd(
LPTSTR lpszServer, // server to execute on
UINT nLevel, // info level must be 2
PSECURITY_DESCRIPTOR pSD, // initial security descriptor
LPBYTE lpBuffer, // address of NDDESHAREINFO
DWORD cBufSize // size of supplied buffer
);
4. Podrobne popisy funkci DLL knihoven Windows 3.1, Windows 95, Windows 98,
Windows NT apod., ale nejen to, i mnohem vice, najdes v MSDN - Microsoft
Developer Network - rocni predplatne informaci pro programtory, ktere je
aktualizovane ctvrtletne. Pro blizsi info se podivej na:
http://www.clexpert(tec)cz/software/microsoft/msdn.htm
Na takove informace, jako je tato, staci o MSDN ON-LINE, ktera je zdarma
na WWW microsoftu, ale samozrejme lepsi je mit to predplatne, protoze to
mas doma na CD-ROM a nemusis nikde lovit a travit cas na Internetu.
A co se tyka predplatneho - staci ti MSDN Library Subscription - v tom
jsou vsechny tyto informace.
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Index
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.8.1998 18:29:49
Dobromil Mal� wrote:
>
> Prosim o radu, jak vytvorit na tabulce, ktera jiz ma primarni index dals�, sekundarni.
> Tabulka je jiz vytvorena, je typu ttParadox a m� pole :
>
> "ID" A 4 *
> "IDRodice" A 4
> "Prijmeni" A 20
> "Jmeno" A 20
> A chtel bych udelat index na poli IDRodice.
>
Ahoj,
pokud to delas v Database desktopu tak v definici tabulky v Table properties
zvolis Secondary Indexes, pak zmacknes Define, obejevi se ti dialog ve kterem
definujes sekundarni index, tam zvolis pole IDRodice a mas to (pokud zasrktnes
Case Sensitive tak se te to nepta na nazev indexu protoze je shodny s polem).
Petr Vones, amatersky programator
Free compiler
[*] silvie.malikova(zv)post(tec)cz - 4.8.1998 19:17:34
Ahoj vsichni,
Vim, ze to sem moc nepatri, ale mam takovy
problem.
Nevite nahodou nekdo kde bych nasla na inetu
nejakej free nebo share prekladac "C" pro
MS-DOS. Pro 80286 procesory.
Dekuji za vsechny odpovedi.
DFx - knihovny
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 4.8.1998 19:19:55
> Pry existuje nejaka knihovna pro Delphi, ohledn� p��stup� na graficky
> akcelerator 3DFx.
> Nevite o tom nekdo, prypadne shanim nejake jine zdroje k tomuto pristupu
Glide pro Delphi je tady:
http://www.sbox.tu-graz.ac.at/home/ungerik/DelphiGraphics/index.htm
a tady:
http://www.cyberramp.net/~jayres/download.htm
Jinak jestli mas zajem muzu ti dat kontakt na kamarada ktery prave v Delphi
a Glide programuje 3d hru.
McLEI
PnP
[*] Tom� Hopl��ek <tomas.hoplicek(zv)risc.upol(tec)cz> - 4.8.1998 19:52:33
Muj dotaz je, jestli nekdo vi, co Win95 posilaji na COM nebo LPT, pri startu kdyz detekuji
hardware a co cekaji ze jim odpovi.
Dekuji.
Tomas Hoplicek
Voskovcova 6, Olomouc 779 00
068 5432599 / 0603 271 678
Free compiler
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.8.1998 20:13:13
silvie.malikova(zv)post(tec)cz wrote:
>
> Ahoj vsichni,
>
> Vim, ze to sem moc nepatri, ale mam takovy
> problem.
>
> Nevite nahodou nekdo kde bych nasla na inetu
> nejakej free nebo share prekladac "C" pro
> MS-DOS. Pro 80286 procesory.
Ahoj,
Zkus se podivat do Studny (ne do te kde obcas byva voda :-) ale na
http://www(tec)czechia(tec)cz/studna/
Tam jsem tusim v Download -> Kompilatory nejake videl. Jinak v nouzi by se
treba i ve vyprodeji naslo za symbolickou cenu nejake to Turbo C 2.0 ..... Petr Vones, amatersky programator
Deklarace extern�ch funkc�
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.8.1998 20:14:23
> Pavel Sommer wrote:
>
> Ahoj...
>
> Pot�eboval bych poradit, jak prov�st deklaraci v Delphi 3 n�jak� funkce z ur�it� DLL knihovny.
> V�m jak volat funkce a procedury z knihoven, kter� si s�m vytvo��m, ale jak to prov�st u funkce, u kter� nezn�m parametry a
> ani typ hodnoty, kterou vrac�.
> V sou�asn� chv�li se mi jedn� o funkci NDDEShareAdd z knihovny NDDEApi.dll, kter� je um�st�n� v adres��i Windows 95.
>
> Je mo�nost sehnat n�kde co nejširš� popis jednotliv�ch funkc� a procedur exportovan�ch z knihoven Windows95 a
> NT ??
Ahoj,
pokud neznas presnou deklaraci funkce tak mas smulu. Co se tyce Net DDE tak tyto
funkce mas popsany v helpu Win32 u Delphi. Zkus se nejdrive podivat na Internetu
jestli uz nekdo neprepsal hlavicky do Delphi, pokud ne tak ti asi nezbyde nic
jineho nez aby sis to prepsal sam. Jeste jedna moznost je projekt Delphi-Jedi
(http://www.delphi-jedi.org) ktery si kladl za cil neco takoveho delat, ale nejak
to utichlo :-(
Petr Vones, amatersky programator
P.S.
Do konference nepis s diakritikou, nekdy se to neda cist.
Jak na COM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.8.1998 20:17:28
Tom� Hopl��ek wrote:
>
> Zdravim Vsechny,
> podobny mozna stejny dotaz tu uz urcite byl, ale presto.
>
> Potrebuji nastanit na COM1/COM2 vyvody jako jsou
> RTS, DTR, nebo cist DSR,CTS,RI.
>
> A dalsi problem se tyce pristupu na COM ale pod WinNT a jestli bych mohl
> poprosit konkretneji.
Ahoj,
Zpusob pristupu k seriovemu portu je v zasade u Win95 i u NT stejny.
Mas nekolik moznosti:
1. Pouzit nekterou z freeware komponent (na DSP jich par je), u nich ale
narazis na problem ze vetsinou kazde z nich neco chybi a najit takovou
ktera ma vse co potrebujes nekdy neni snadne.
2. Pouzit hotovy balik - Async Professional, tam je asi zase jiny problem,
a to cena, nicmene za ni obdrzis znacne mnozstvi komponent....
3. Napsat si vlastni (inspiraci ti mohou byt treba nektere hotove freeware
komponenty), podle tech pozadavku ktere popisujes ti asi nejde o vysilani
a prijimani dat ale jen o nastavovani a cteni ostatnich vyvodu.
Port otevres pomoci CreateFile, k nastaveni RTS a DTR slouzi funkce
EscapeCommFunction. Se ctenim uz je to slozitejsi, vlastni cteni se dela
pomoci GetCommModemStatus ale pokud chces sledovat zmeny vstupnich signalu
tak je treba nastavit pomoci SetCommMask ty udalosti ktere chces sledovat,
vytvorit thread a v nem pomoci WaitCommEvent provadet cekani na nekterou z
techto udalosti (a pak pomoci GetCommModemStatus precist hodnoty). Pokud mas
Delphi 2 tak tam to mas jeste trochu ztizene tim ze metoda TThread.WaitFor
nepracuje prilis spolehlive, v tom pripade je lepsi pouzit implementaci z
vyssi verze Delphi tak ze si odvodis svoji novou tridu TEnhThread:
TEnhThread = class(TThread)
public
function WaitFor: Integer;
end;
function TEnhThread.WaitFor: Integer;
var
Msg: TMsg;
FHandle: THandle;
begin
FHandle := Handle;
if GetCurrentThreadID = MainThreadID then
while MsgWaitForMultipleObjects(1, FHandle, False, INFINITE,
QS_SENDMESSAGE) = WAIT_OBJECT_0 + 1 do PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE)
else WaitForSingleObject(FHandle, INFINITE);
GetExitCodeThread(FHandle, Result);
end;
Petr Vones, amatersky programator
SN modemu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.8.1998 20:18:16
Ing.Ludek Florian wrote:
> Sorry, ale to mi ho... pomuze. Jde o to, ze jednomu z mych zakazniku jejich
> "takyudrzbar" vymenil modem a jediny co zakaznik ma, je cislo na dodacim
> liste. Stitek je strzeny. Maji k tomu original CD, na kterem jsou nektere
> utility a ty chodi pouze na tom original modemu. I kdyz bude modem se
> stejnym chipem, stejne ty utility nefunguji. Proto se na to ptam. Jeste mi
Ahoj,
uprimne receno nikdy jsem se nesetkal s tim ze by modem mel v sobe uchovane
primo vyr.cislo, vetsinou tam ma spis jen verzi firmwaru, chipu apod.
Zkus se podivat do manualu k tomu modemu jestli tam neco takoveho v AT
prikazech je (mimochodem co je to za modem?). Dale me prijde trochu divny
ze by zalezelo presne na jednom kusu, to se pri instalaci tech utilit
zadava seriove cislo modemu ?
Petr Vones, amatersky programator
Vkladani nove vety s jedinecnym ID
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 4.8.1998 20:27:54
Mas ve fieldu urcite nastavene Requied = true, nastav tam false.
To nerve Interbase, ale Delphi.
Radim Kunz
-----P�vodn� zpr�va-----
Od: David Mach <scvk(zv)clnet(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 4. srpna 1998 14:37
P�edm�t: Vkladani nove vety s jedinecnym ID
Mam tabulku, ve ktere kazdou vetu identifikuji jedinecnou hodnotou v
polozce KLIENT_ID, ktera je povinna. Vytvoril jsem si generator pro tuto
polozku a triger BEFORE INSERT nad danou tabulkou, ktery doplnuje do
polozky NEW.KLIENT_ID nove cislo z generatoru. Pokud vkladam vetu pomoci
SQL prikazu INSERT INTO, tak je vse OK. Jakmile chci vkladat data rucne (v
programu v Delphi nebo v Database Exploreru), tak pri POSTu zaznamu mi to
zakrici, ze polozka KLIENT_ID musi mit nejakou hodnotu. V pripade, ze tam
doplnim napr. cislo 0, tak to zase krici "Record/Key Deleted", ale po
refresi se veta v tabulce objevi se spravnym ID . Jakym zpusobem se da toto
v Delphi osetrit, popr. nedelam neco spatne?
Diky vsem.
David
PnP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.8.1998 20:40:14
Tom� Hopl��ek wrote:
>
> Muj dotaz je, jestli nekdo vi, co Win95 posilaji na COM nebo LPT, pri startu kdyz detekuji
> hardware a co cekaji ze jim odpovi.
>
> Dekuji.
Ahoj,
o PnP a driverech toho moc nevim, ale myslim si ze to nebude asi tak
jednoduche, navic PnP spolupracuje i s BIOSem takze ta detekce patrne
nebude zalozena jen na osahavani I/O adres. Blizsi informace o tom
najdes spis v M$ SDK/DDK na MSDN.
Petr Vones, amatersky programator
SN modemu
[*] V�clav Novotn� - 4.8.1998 21:27:07
Myslim si, ze to asi nejde. Hodne informaci o modemu se da zjistit AT
prikazem ATI0 az ATI99 (PODLE TYPU MODEMU). Rychla informace o nastaveni
techto registru se da zjistit v W95 pomoci ovladaci
panel-modemy-diagnostika-dalsi informace (NT to nemaji)
Venca
-----P�vodn� zpr�va-----
Od: Ing.Ludek Florian <ludan(zv)bluerose(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 3. srpna 1998 15:53
P�edm�t: SN modemu
>Cauec,
>
>zajima me, zda je mozne zjistit seriove cislo modemu. Myslim tim vyrobni,
>ktere je uvedeno na lepicim stitku na krabici modemu.
>
>Bye Ludan
>
>ludan(zv)bluerose(tec)cz
>Skripty fontu
[*] Petr Medek <xmedekp(zv)fel.cvut(tec)cz> - 4.8.1998 22:08:59
Ahoj vsem !
Zdalipak nekdo vi, kterak zjistit dostupne skripty (coz se v TFont patrne nazyva CharSet) u zadaneho fontu ?
Diky za kazdou odpoved
Petr Medek
Ako na priamy pristup
[*] Daniel Koles�r <dano(zv)dodo.sk> - 4.8.1998 22:23:46
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevie mi niekto poradit ako sa dostanem v Delphi2 priamo na registre CPU ?
Potreboval by som priamy pristup na disketu tj. INT 13.
Pokial to napisem v Delphi1 pochopitelne to ide ale v delphi2 to spadne.
Popripade ako z Delphi2 zavolat DLL vytvorenu v D1 ktora by previedla priamy pristup. \|/
O O
------------------------------ooo--U--ooo---------------------------------------
dano(zv)dodo.sk
PnP
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 4.8.1998 22:42:28
> > Muj dotaz je, jestli nekdo vi, co Win95 posilaji na COM nebo
> LPT, pri startu kdyz detekuji
> > hardware a co cekaji ze jim odpovi.
> o PnP a driverech toho moc nevim, ale myslim si ze to nebude asi tak
> jednoduche, navic PnP spolupracuje i s BIOSem takze ta detekce patrne
> nebude zalozena jen na osahavani I/O adres. Blizsi informace o tom
> najdes spis v M$ SDK/DDK na MSDN.
No myslim ze to dotycny myslel trosku jinak... Kdyz totiz startuji 95ky nebo
NTycka tak poslou na porty nakej balast (je to videt napriklad na externich
zarizenich co se pripojujou na seriovy porty - displeje atd...). U NT je to
snad jenom reset mysi a detekce jeji pripadne reakce (Da se to vypnout v
boot.ini).
V 95kach to bude slozitejsi protoze ty podporuji PNP zarizeni na portech.
Ale na jakou odpoved cekaji to vam neporadim.
McLEI
SN modemu
[*] Ing.Ludek Florian <ludan(zv)bluerose(tec)cz> - 4.8.1998 22:56:52
Cauec,
>prikazech je (mimochodem co je to za modem?). Dale me prijde trochu divny
Supra 33.600 interni (voice)
>ze by zalezelo presne na jednom kusu, to se pri instalaci tech utilit
Musi to vratit, je to leasingova masina a vypovida leasing.smlouvu...
Bye Ludan
ludan(zv)bluerose(tec)cz
Problem s databazi
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 4.8.1998 23:08:04
Ahoj,
tento problem jsem uz taky zazil, nekdy pomohlo nastavit
TTable Active na false a zpet a nekdy dokonce pomohlo jenom
vypnuti Delphi (nechapu proc). Dale pouziti nize uvedeneho
postupu od Pavla.
Standa.
PS: stava se to jenom nekdy a zdanlive bez priciny.
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 4. srpna 1998 9:13
P�edm�t: Re: Problem s databazi
>Nejsem si jist, ale mozna by to mohlo byt tim, ze nemate pole v seznamu
>dostupnych
>poli, tj. jako objekt TField. Kdyz dvojite poklepnete na komponentu Table,
>objevi se seznam
>vsech poli a pravym tlacitkem muzete pridat. Do tohoto seznamu se po
>vytvoreni noveho
>pole toto neprida automaticky. Jinak si to neumim vysvetlit.
>
>Hodne zdaru
>Pavel
>
>-----Original Message-----
>From: Svatopluk Vit <vit(zv)ardo(tec)cz>
>To: DELPHI Distribution List (el. adresa) <delphi(zv)pinknet(tec)cz>
>Date: 4. srpna 1998 8:48
>Subject: Problem s databazi
>
>
>>Zdravim Vas vsechny dobre programatory!
>>
>>Mam tady pro Vas jeden urcite jednoduchy dotaz. Nejprve vstupni podminky :
>>
>>V D3 mam vytvoreny program na evidenci dojetych vagonu se zbozim (databaze
>>VAGONY.DB). Je to program se dvema formulari. Na prvnim je objekt TTable a
>>TDataSource. Dale je zde 6 tlacitek a objekt TDBNavigator. Na druhem
>>formulari je objekt TQuickReport a opet TTable a TDataSource. Pomoci BDE
>>pouzivam standardni alias DEMOS (u uzivatelu ukazuje na sitovy adresar a
je
>>spravne nastaveno sdileni).
>>
>>Program jiz funguje k me plne spokojenosti. Uzivatele s nim spokojene
>>pracuji a vznaseji dalsi pozadavky na vylepseni. Jeden z pozadavku byl na
>>pridani dalsi polozky do databaze VAGONY.DB. Tuto polozku jsem pridal
>>pomoci Database Desktopu. Problem, ktery mam se tyka teto pridane polozky.
>>Na formular pridam dalsi polozku TDBEdit. V Object Inspectoru nastavuju
vse
>>jako u ostatnich tedy :
>>
>>DataSource : DataSource1
>>
>>a pokud chci vybrat pomoci DataField mou novou polozku, v seznamu
>>dostupnych se neobjevi.
>>V zachvatu ladeni jsem dokonce z fomulare smazal i objekt TTable a
>>TDataSource a znova je pridal. Pak jsem take zrusil vsechny klice a
>>vytvoril je v Database Desktopu znova.
>>
>>Dotaz : Nevite, ktere vsechny kroky je potreba provest pro to, abych mohl
>>pridat jedno editacni policko do jiz existujiciho programu?
>>
>>Svatopluk Vit
>>spravce poc.site
>>Karvina
>>
>>
>>
>>
>
>
Jazyk SQL
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 4.8.1998 23:17:50
Ahojte,
muzete mi prosim doporucit nejakou dobrou literaturu nebo adresu na
internetu
s ceskym popisem prikazu a syntaxe jazyka SQL.
Standa.
Editace HTML V Delphi - napojeni na FP97/98
[*] Alaire <alaire(zv)usa(tec)net> - 5.8.1998 03:38:30
Hmm,
ta knihovna nema u sebe asi popis funkci (tzn. nejde natahnoput do D), tedy
MS ji asi nechce dat k pouziti...
Mate nekdo jiny napad? Jak pomoci OLE nakonektovat treba tu FP..
Pokud by to nekdo chtel za uplatu udelat, tak piste soukrome...
(potrebuji proste, aby ta aplikace umoznovala zakladni editacni fce pro
editaci DB poli pro nas intranet)
al
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 27. �ervence 1998 23:01
P�edm�t: Re: Editace HTML V Delphi
>Alaire wrote:
>>
>> Zdravim Delphisty
>>
>> Potreboval bych v jedne aplikaci editovat jednoduche
>> HTML (bez tabulek, pouze fonty, barvy, zarovnani).
>> Mate nekdo napad na nejakou komponentu???
>> Nemate nekdo zkusenosti (nebo nejaky priklad) ovladani FrontPage
>> pres OLE Automation???
>
>Ahoj,
>
>Kdyz se podivas na "Internet Mail" (soucast IE 3.02 a Win95 OSR2),
>tak tam je nejaky jednoduchy editor HTML. Dival jsem se kde jej
>vzali a je v knihovne HTMLEDIT.DLL ktera ma ve versioninfu v popisu:
>
>HTML enhanced Rich Edit Control
>
>Nic blizsiho uz ale nevim, takze pokud by mel nekdo nejake dalsi
>informace o te knihovne at se prosim ozve.
>
> Petr Vones, amatersky programator
>
>Editace HTML V Delphi
[*] Alaire <alaire(zv)usa(tec)net> - 5.8.1998 03:39:54
Jde taky o to, jestli je tam zpetna konverze HTML > RTF, coz je pro EDITACi
jaksi dulezite :-))
Pry to tam neni... Pokud to mate, poslete mi to.
Diky
Al.
-----P�vodn� zpr�va-----
>neni nahodou v prikladech k delphi
>konvertor rtf > html ???
>pokud ne tak to bylo na nejakym chip-cd
>urcite to mam doma
>
>
>>> Zdravim Delphisty
>>>
>>> Potreboval bych v jedne aplikaci editovat jednoduche
>>> HTML (bez tabulek, pouze fonty, barvy, zarovnani).
>>> Mate nekdo napad na nejakou komponentu???
>viz vyse
>
>>> Nemate nekdo zkusenosti (nebo nejaky priklad) ovladani
>>> FrontPage
>>> pres OLE Automation???
>bohuzel
>
>>> Milos
>
>-----------------
>Petr Palicka
>peca(zv)email(tec)cz
>palicka(zv)aginfo(tec)cz
>-----------------
>
>
>Dotaz - monitor - test
[*] Alaire <alaire(zv)usa(tec)net> - 5.8.1998 03:41:53
Jedna se pouze o vizualni testovani (tedy pohledem...), pred lety jsem to
stahl ze serveru Nokie, kouknete se tam
Al.
-----P�vodn� zpr�va-----
Od: Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 4. srpna 1998 15:11
P�edm�t: RE: Dotaz
Na nekterem CHIP-CD z tohoto roku bol NOKIA monitor-test. Myslim si, ze je
to celkem spolehlive a da se tomu verit. Pouzivaji to i v americkem
PCMagazinu - zda se mi, ze tam nekde je to taky dostupne stejne jako u
NOKIE. Ale presne adresy ti ted nedam. Az se ti to nepovede sehnat napis mi
a ja to pohledam a poslu.
Jirka
> -----P�vodn� zpr�va-----
> Od: Hr�a Daniel [SMTP:Hrna(zv)VM.SME(tec)cz]
> Odesl�no: 4. srpna 1998 9:51
> Komu: 'Delphi konference'
> P�edm�t: Dotaz
>
> Chci se zeptat, jestli nekdo z vas nevi, kde muzu sehnat nejaky SW,
> ktery dokaze testovat monitory. Neco, co je spolehlive a lze tomu verit
> (pod Win95 / DOS)
>
> Dik Dan
>
>
> Daniel Hr�a - STVT
> Severomoravsk� energetika, a.s.
> Rozvodn� z�vod Val. Mezi����
> telefon: +42 0651 683 224
> fax: +42 0651 683 400
> mobil: 0603/257 397
> e-mail: hrna(zv)vm.sme(tec)cz
>Editace HTML V Delphi
[*] Alaire <alaire(zv)usa(tec)net> - 5.8.1998 03:41:12
To je stejny pripad,
a co zpetna konverze?
Pokud mate naky vlastni FREE priklady, poslete mi to..?
Al.
-----P�vodn� zpr�va-----
>Nova zprava:
>Nazdar,pokud potrebujes opravdu pouze zakladni formatovani je asi
>nejjednodussi udelat si RichText editor (priklad jev Delphi) a pak
>konvertovat z toho TRichEditu do HTML. Je to pomerne snadne (sam sem to
>delal) a navic muzes pouzit jen ten format kterej potrebujes.Radek Voltr
>---------------------------------------------------------------
>Puvodni zprava:
>Zdravim Delphisty
>Potreboval bych v jedne aplikaci editovat jednoduche
>HTML (bez tabulek, pouze fonty, barvy, zarovnani).
>Mate nekdo napad na nejakou komponentu???
>Nemate nekdo zkusenosti (nebo nejaky priklad) ovladani FrontPage
>pres OLE Automation???
>Milos
>
>
>Vkladani nove vety s jedinecnym ID
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 05.8.1998 07:36:34
Ahoj,
mam pocit, ze triggery sa vyvolaju len ked pouzijes SQL prikaz (INS.., UPD..,
DEL..)
t.j. v delphi musis pouzit TQuery namiesto TTable. V SQL Exploreri sa na
zobrazovanie
tabuliek pouziva zrejme len TTable.
--
Maj sa,
R.> -----P�vodn� zpr�va-----
> Od: David Mach <scvk(zv)clnet(tec)cz>
> Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
> Datum: 4. srpna 1998 14:37
> P�edm�t: Vkladani nove vety s jedinecnym ID
>
> polozky NEW.KLIENT_ID nove cislo z generatoru. Pokud vkladam vetu pomoci
> SQL prikazu INSERT INTO, tak je vse OK. Jakmile chci vkladat data rucne (v
> programu v Delphi nebo v Database Exploreru), tak pri POSTu zaznamu mi to
> zakrici, ze polozka KLIENT_ID musi mit nejakou hodnotu. V pripade, ze tam
> doplnim napr. cislo 0, tak to zase krici "Record/Key Deleted", ale po
> refresi se veta v tabulce objevi se spravnym ID . Jakym zpusobem se da toto
> v Delphi osetrit, popr. nedelam neco spatne?
>
> Diky vsem.
>
> David
>
>
Tlaciaren a DirectDraw
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 5.8.1998 07:43:15
OpenGL tlaci cez EnhancedMetafile (WMF, EMF) - to nie je ktovieaka
kvalita.
Dotaz:
Ako funguje tlac DirectDraw - je to kvalitne ? Dakujem
Miro
Oznaceni zaznamu v gridu
[*] Marian Mor�ol <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 5.8.1998 07:50:05
Posli prosim i me.
marian.morzol(zv)ostrava.aksignal(tec)cz
> -----P�vodn� zpr�va-----
> Od: Pavel Kral [SMTP:kral(zv)afx(tec)cz]
> Odesl�no: 29. �ervence 1998 13:17
> Komu: DELPHI Distribution List
> P�edm�t: Re: Oznaceni zaznamu v gridu
>
> Jestli chces vybarvit radek v TStringGrid, muzes pouzit taky
> komponentu TStringAligGrid, ktera umi nastavit spoustu vlastnosti
> pro radky, sloupce, jednotlive bunky.
> Nasel jsem ji tusim na DSP, pripadne muzu poslat.
>
> Jinak si muzes napsat vlastni proceduru pro vykreslovani bunky v
> udalosti onDrawCell pripadne OnDrawDataCell pro DBGrid.
> Neni to az takova hruza, jak to zpocatku vypada.
> Pro DBGrid musis vykreslit vsechny bunky. Muzu poslat priklad.
>
> Mimochodem, kdo pouzivate RxDBGrid z RXLibrary, nestava se vam
> pri krokovani, ze haze hrozne chyby neco jako Invalid Floating Poin
> op.
> kdyz je prirazena procedura udalosti OnDrawDataCell ?
>
> -----Original Message-----
> From: mstevlik(zv)gamo.sk <mstevlik(zv)gamo.sk>
> To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Date: 29. eervence 1998 12:52
> Subject: Re: Oznaceni zaznamu v gridu
>
>
> >Pouzi RxDBGrid z RxLibrary
> >
> >
> >
> >Jazyk SQL
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 05.8.1998 07:54:25
Ahoj,
ak by nevadil slovensky popis ;-)
tak nieco je aj tu (a okoli)
http://www.pcrevue.sk/documents/0797/0797svetdelphi.htm
Stanislav Cerny wrote:
> Ahojte,
>
> muzete mi prosim doporucit nejakou dobrou literaturu nebo adresu na
> internetu
> s ceskym popisem prikazu a syntaxe jazyka SQL.
>
> Standa.
>
--
Maj sa,
R.
Deklarace extern�ch funkc�
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 5.8.1998 07:58:04
Jako znalec by jsi ale mel vedet, ze nektere "MAIL via WEB" toto vkladani HTML/TXT delaji "natvrdo" a nedokazi postat text a proto posilaji attachmenty.
Dobra.
1. - Nepis prosim cesky - a vubec vsichni, nepiste cesky a nepouzivejte
formaty HTML a podobne prilohy. U programatoru by se dala predpokladat
jista uroven znalosti aspon zakladniho nastavovani maileru. Tak si to
doprcic vsichni vypnete, uz me to stve...
Index
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 5.8.1998 08:00:28
Tenhle postup znam, ale potebuju presne tohle udelat v aplikaci, ne DDesktopu.
Diky
----------
Od: Petr Vones[SMTP:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 4. srpna 1998 18:29
Komu: DELPHI Distribution List
P�edm�t: Re: Index
Dobromil Mal� wrote:
>
> Prosim o radu, jak vytvorit na tabulce, ktera jiz ma primarni index dals�, sekundarni.
> Tabulka je jiz vytvorena, je typu ttParadox a m� pole :
>
> "ID" A 4 *
> "IDRodice" A 4
> "Prijmeni" A 20
> "Jmeno" A 20
> A chtel bych udelat index na poli IDRodice.
>
Ahoj,
pokud to delas v Database desktopu tak v definici tabulky v Table properties
zvolis Secondary Indexes, pak zmacknes Define, obejevi se ti dialog ve kterem
definujes sekundarni index, tam zvolis pole IDRodice a mas to (pokud zasrktnes
Case Sensitive tak se te to nepta na nazev indexu protoze je shodny s polem).
Petr Vones, amatersky programator
Free compiler
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 5.8.1998 08:36:34
Nevite nahodou nekdo kde bych nasla na inetu
nejakej free nebo share prekladac "C" pro
MS-DOS. Pro 80286 procesory.
[[JS]]
Ahoj,
http://www.delorie.com/djgpp/
ale len pre 80386 a vyssie
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
SN modemu
[*] Marcel Telka <marcel(zv)vadium.sk> - 5.8.1998 09:01:10
>
>
>>:-) najjednoduchsie tak, ze sa pozries na ten stitok :-)
>>
>
>
>Sorry, ale to mi ho... pomuze. Jde o to, ze jednomu z mych zakazniku jejich
>"takyudrzbar" vymenil modem a jediny co zakaznik ma, je cislo na dodacim
>liste. Stitek je strzeny. Maji k tomu original CD, na kterem jsou nektere
>utility a ty chodi pouze na tom original modemu. I kdyz bude modem se
Pokial je ten original aj ten vymeneny presne ten isty typ, tak to musi
chodit.
Pokial viem, tak ziadny modem v sebe nema SN... a supra uz vobec nie.
>stejnym chipem, stejne ty utility nefunguji. Proto se na to ptam. Jeste mi
>zbyva napsat vyrobci, jestli s tim nepichne, ale jinak nevim, jak toho
>bastarda donutit, aby ten modem vratil.
>
>
>Bye Ludan
>
>ludan(zv)bluerose(tec)cz
>
>Zjisteni poctu dnu mesice
[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 5.8.1998 10:13:04
Protoze jeste nikdo neodpovedel pokusim, se o to ja.
function PocetDni(ADatum: TDateTime): Word;
var
Y,M,D: Word;
begin
DecodeDate(ADatum, Y, M, D);
ADatum:=EncodeDate(Y, M, 1)+31; // prechod do dalsiho mesice
DecodeDate(ADatum, Y, M, D);
ADatum:=EncodeDate(Y, M, 1)-1; // nastaveni na posledni den v mesici
DecodeDate(ADatum, Y, M, D);
Result:=D;
end;
Urcite se najde jednodussi ci elegantnejsi zpusob, ale toto funguje docela
dobre.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216
-----P�vodn� zpr�va-----
Od: Petr Fischer <XFISCHEP(zv)feld.cvut(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 2. srpna 1998 16:50
P�edm�t: Zjisteni poctu dnu mesice
Cau,
je v Delphi naka funkce na zjisteni poctu dnu zadaneho mesice v
roce??? Popripade znate nakej vzorec na zjistovani tohoto?
Diky, Petr Fischer (petr.fischer(zv)email(tec)cz)
Problem s databazi
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 5.8.1998 10:18:30
Tady pomuze trik. Kdyz pridas polozku do tabulky, tak v ttable zmen
tablename na nejakou jinou tabulku, otevri, zavri, pak ji vrat zpatky.
A pak to zacne fungovat.
Radim Kunz
-----P�vodn� zpr�va-----
Od: Stanislav Cerny <s.cerny(zv)mod(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 4. srpna 1998 23:20
P�edm�t: Re: Problem s databazi
Ahoj,
tento problem jsem uz taky zazil, nekdy pomohlo nastavit
TTable Active na false a zpet a nekdy dokonce pomohlo jenom
vypnuti Delphi (nechapu proc). Dale pouziti nize uvedeneho
postupu od Pavla.
Standa.
PS: stava se to jenom nekdy a zdanlive bez priciny.
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 4. srpna 1998 9:13
P�edm�t: Re: Problem s databazi
>Nejsem si jist, ale mozna by to mohlo byt tim, ze nemate pole v seznamu
>dostupnych
>poli, tj. jako objekt TField. Kdyz dvojite poklepnete na komponentu Table,
>objevi se seznam
>vsech poli a pravym tlacitkem muzete pridat. Do tohoto seznamu se po
>vytvoreni noveho
>pole toto neprida automaticky. Jinak si to neumim vysvetlit.
>
>Hodne zdaru
>Pavel
Vkladani nove vety s jedinecnym ID
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 5.8.1998 10:18:44
Triggery se samozrejme vyvolaji vzdycky, i v ttable.
Radim Kunz
-----P�vodn� zpr�va-----
Od: Radoslav Balvan <balvanra(zv)datalock.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. srpna 1998 7:41
P�edm�t: Re: Vkladani nove vety s jedinecnym ID
Ahoj,
mam pocit, ze triggery sa vyvolaju len ked pouzijes SQL prikaz (INS.., UPD..,
DEL..)
t.j. v delphi musis pouzit TQuery namiesto TTable. V SQL Exploreri sa na
zobrazovanie
tabuliek pouziva zrejme len TTable.
--
Maj sa,
R.Vyvolanie reakcie
[*] Pavel Kral <kral(zv)afx(tec)cz> - 5.8.1998 10:18:29
Ahoj,
snad by to slo takto:
s pomoci hook funkce odchytit zpravu mysi, zjistit, na ktere okno je
smerovana
a poslat na stejne okno zpravu wm_keydown, wm_keyUp nebo wm_Char
Pavel Kral
-----Original Message-----
From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
To: Delphi <delphi(zv)pinknet(tec)cz>
Date: 5. srpna 1998 9:43
Subject: Vyvolanie reakcie
Caute
Potrebujem vyriesit nasledujuci problem. Povedzme, ze ked uzivatel
stlaci lave tlacitko mysi v systeme ma nastat reakcia, ako keby stlacil
klavesu napriklad A. Takze potrebujem vyvolat reakciu, ktoru by system
zaznamenal ako stlacenu klavesu. Podmienky : W95 a D3.
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
Transaction isolation level a uminena TDatabase
[*] Pavel Klimes <klimes(zv)c3(tec)cz> - 05.8.1998 10:19:01
Plodny den preji, pratele.
Potreboval jsem zmenit izolacni uroven transakci, t.j. zmenit
v casti aplikace chovani SQL prikazu SELECT. Aplikace je v
Delphi 2.0 proti MS SQL Serveru 6.5. Uroven izolace jsem
potreboval zmenit z read committed na read uncommited (dirty read).
Pro pripojeni k databazi je pouzita komponenta TDatabase. Zkusil
jsem tedy nastavit jeji propertu TransIsolation z defaultni hodnoty
tiReadCommitted na tiDirtyRead. Po prelozeni, spusteni a testovani
aplikace jsem zjistil, ze si databaze zachovala puvodni chovani
a dal pouzivala komitovane cteni.
Otazka zni: proc?
Problem lze obejit. V kazde TQuery predradit pred vlastni SELECT prikaz
SQL prikaz SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED. Ten vsak
nastavi nove chovani databaze pouze pro tuto query a pouze na dobu jeji
aktivity. Cili ponekud tezkopadne reseni.
Nemate nekdo nejake zkusenosti s propertou TransIsolation u TDatabaze?
Nemate nekdo nejaky lepsi napad?
Moc diky a zdravim, Pavel.
--
+---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
| C3, s.r.o. (Czech Card Centrum) | __) """ |
| Srobarova 32, Praha 10, Czech Republic | \/"""\ |
+---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+Free compiler
[*] Vavro Vladimir Ing. <Vlado(zv)tento.sk> - 5.8.1998 10:25:50
Pacific C na http://www.hitech.com.au/
> -----Original Message-----
> From: silvie.malikova(zv)post(tec)cz [SMTP:silvie.malikova(zv)post(tec)cz]
> Sent: 4. august 1998 19:18
> To: delphi(zv)pinknet(tec)cz
> Subject: Free compiler
>
> Ahoj vsichni,
>
> Vim, ze to sem moc nepatri, ale mam takovy
> problem.
>
> Nevite nahodou nekdo kde bych nasla na inetu
> nejakej free nebo share prekladac "C" pro
> MS-DOS. Pro 80286 procesory.
>
> Dekuji za vsechny odpovedi.
>
>
>
>
> Zjisteni pripojeni na PC
[*] Hr�a Daniel <Hrna(zv)VM.SME(tec)cz> - 5.8.1998 10:33:31
Chtel bych se na Vas obratit se specialnim dotazem:
Jde v Delphi (programu pod Win95) nejak zjistit, kdyz jsem na siti, kdo
je ke mne napojen ?
Myslim, kdyz ukoncim Win95 tak mi to napise "K pocitaci je pripojeno 10
pocitacu".
Ale me jde o to zjistit navic treba jmena PC nebo LogInName, kteri jsou
ke mne aktivne pripojeni. Resil to jiz nekdo, popripade mi poradte jak
toto lze resit (pokud mozno po-lopate) - jsem zacatecnik v Delphi.
Moc dik Dan
Daniel Hr�a - STVT
Severomoravsk� energetika, a.s.
Rozvodn� z�vod Val. Mezi����
telefon: +42 0651 683 224
fax: +42 0651 683 400
mobil: 0603/257 397
mailto:hrna(zv)vm.sme(tec)cz
Zjisteni poctu dnu mesice
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 05.8.1998 10:38:13
Caute,
myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak si vytvorim
pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac sa jedna
... DecodeDate(ADatum, Y, M, D); ....
a pozriem sa, kolko ma dni....
Ivo HERLES wrote:
> Protoze jeste nikdo neodpovedel pokusim, se o to ja.
>
> function PocetDni(ADatum: TDateTime): Word;
> var
> Y,M,D: Word;
> begin
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)+31; // prechod do dalsiho mesice
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)-1; // nastaveni na posledni den v mesici
> DecodeDate(ADatum, Y, M, D);
> Result:=D;
> end;
>
> Urcite se najde jednodussi ci elegantnejsi zpusob, ale toto funguje docela
> dobre.
>
> S pozdravem,
>
> Ivo HERLES
> PVT, a. s., o. z. Chomutov
> e-Mail: herles(zv)chv.pvt(tec)cz
> tel.: 0396/619216
>
> -----P�vodn� zpr�va-----
> Od: Petr Fischer <XFISCHEP(zv)feld.cvut(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Datum: 2. srpna 1998 16:50
> P�edm�t: Zjisteni poctu dnu mesice
>
> Cau,
>
> je v Delphi naka funkce na zjisteni poctu dnu zadaneho mesice v
> roce??? Popripade znate nakej vzorec na zjistovani tohoto?
>
> Diky, Petr Fischer (petr.fischer(zv)email(tec)cz)
--
Maj sa,
R.
Vyvolanie reakcie
[*] Hr�a Daniel <Hrna(zv)VM.SME(tec)cz> - 5.8.1998 11:26:25
pred pismeno,ktere chces aktivovat napis &
> ----------
> Odes�latel: Ing. J�n Kuch�r[SMTP:kuchar(zv)tuke.sk]
> Odpov�di: DELPHI Distribution List
> Odesl�no: 29. �ervna 1998 9:36
> Komu: Delphi
> P�edm�t: Vyvolanie reakcie
>
> Caute
> Potrebujem vyriesit nasledujuci problem. Povedzme, ze ked uzivatel
> stlaci lave tlacitko mysi v systeme ma nastat reakcia, ako keby
> stlacil klavesu napriklad A. Takze potrebujem vyvolat reakciu, ktoru
> by system zaznamenal ako stlacenu klavesu. Podmienky : W95 a D3.
> ����������������������������������������������������������������������
> ��������� Dik
>
> Katedra v�robn�ch inov�ci�
> SjF TU Ko�ice
> Ing. J�n Kuch�r
> E-mail : kuchar(zv)tuke.sk
> Dialogy COM objektu
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 5.8.1998 11:38:04
Zdravim delphiny...
Mam takovy problem: vytvoril jsem si COM objekt, ktery ma nejake formulare.
Zavolam z klienta metodu toho COM objektu, ktera vyvola formular - a ten
formular se mi objevi na TaskBaru, coz nechci. A pokud tento formular vyvola
dalsi formular, i ten se objevi na taskbaru...
Jak se toho zbavit?
Tomas
Tomas Burger
--------------------------------------
Tomas.Burger(zv)mius(tec)cz
Tomas.Burger(zv)sms.paegas(tec)cz
http://www.mius(tec)cz/; http://www.delphi(tec)cz/
http://www.sever(tec)cz/; http://www.teplice(tec)cz/
ICQ: 3908757
--------------------------------------
Zjisteni poctu dnu mesice
[*] Pavel Kral <kral(zv)afx(tec)cz> - 5.8.1998 12:16:45
Komplikuji to prestupne roky, vedla se tu o tom docela ziva a poucna
diskuse.
Pavel
-----Original Message-----
From: Radoslav Balvan <balvanra(zv)datalock.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 5. srpna 1998 12:02
Subject: Re: Zjisteni poctu dnu mesice
Caute,
myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak si
vytvorim
pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac sa jedna
.... DecodeDate(ADatum, Y, M, D); ....
a pozriem sa, kolko ma dni....Vkladani nove vety s jedinecnym ID
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 05.8.1998 12:17:57
Caute,
samozrejme, ze sa triggeri vyvolavaju vzdy - myslel som tym to,
pri pouziti TQuery alebo TUpdateSQL sa trigger vyvola bez toho,
aby BDE rozmyslalo, ci ma vsetky required stlpce alebo nie
(teda ked je trigger BEFORE INSERT)
Radim Kunz wrote:
> Triggery se samozrejme vyvolaji vzdycky, i v ttable.
>
> Radim Kunz
>
> -----P�vodn� zpr�va-----
> Od: Radoslav Balvan <balvanra(zv)datalock.sk>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 5. srpna 1998 7:41
> P�edm�t: Re: Vkladani nove vety s jedinecnym ID
>
> Ahoj,
>
> mam pocit, ze triggery sa vyvolaju len ked pouzijes SQL prikaz (INS.., UPD..,
> DEL..)
> t.j. v delphi musis pouzit TQuery namiesto TTable. V SQL Exploreri sa na
> zobrazovanie
> tabuliek pouziva zrejme len TTable.
>
> --
> Maj sa,
> R.
--
Maj sa,
R.
Zjisteni poctu dnu mesice
[*] Martin Fronik <fronek(zv)fic(tec)cz> - 5.8.1998 12:23:16
No jasne, staci se podivat na exampl Borlandu - pardon- Inprise, tam to maji i s urceni prestupneho roku....
>>> kdyz vsechno selze, precti si manual!<<<
fronek(zv)fic(tec)cz
-----Puvodni zprava-----
Od: Radoslav Balvan [SMTP:balvanra(zv)datalock.sk]
Odeslano: 05. srpna 1998 10:38
Komu: DELPHI Distribution List
Poedmit: Re: Zjisteni poctu dnu mesice
Caute,
myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak si vytvorim
pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac sa jedna
... DecodeDate(ADatum, Y, M, D); ....
a pozriem sa, kolko ma dni....
R.Zjisteni pripojeni na PC
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 5.8.1998 12:26:50
Tuto slu�bu plni program NETWATCH, dodavany s Win95.
Dobra.
----------
Od: Hr�a Daniel[SMTP:Hrna(zv)VM.SME(tec)cz]
Odesl�no: 5. srpna 1998 10:33
Komu: 'Delphi konference'
P�edm�t: Zjisteni pripojeni na PC
Jde v Delphi (programu pod Win95) nejak zjistit, kdyz jsem na siti, kdo je ke mne napojen ?
Myslim, kdyz ukoncim Win95 tak mi to napise "K pocitaci je pripojeno 10 pocitacu".
Problem s databazi
[*] Martin Fronik <fronek(zv)fic(tec)cz> - 5.8.1998 12:31:42
S necim podobnym jse se taky potkal (bohuzel), vypada to na chybu BDE, nejak neraci oznamit klientum zmeny, nebo co.
Pak si musi zmenu udelat klient sam (vyvojar)...
fronek(zv)fic(tec)cz
-----Puvodni zprava-----
Od: Radim Kunz [SMTP:rkunz(zv)ova.comp(tec)cz]
Odeslano: 05. srpna 1998 10:19
Komu: DELPHI Distribution List
Poedmit: Re: Problem s databazi
Tady pomuze trik. Kdyz pridas polozku do tabulky, tak v ttable zmen
tablename na nejakou jinou tabulku, otevri, zavri, pak ji vrat zpatky.
A pak to zacne fungovat.
Radim Kunz
-----Puvodni zprava-----
Od: Stanislav Cerny <s.cerny(zv)mod(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 4. srpna 1998 23:20
Poedmit: Re: Problem s databazi
Ahoj,
tento problem jsem uz taky zazil, nekdy pomohlo nastavit
TTable Active na false a zpet a nekdy dokonce pomohlo jenom
vypnuti Delphi (nechapu proc). Dale pouziti nize uvedeneho
postupu od Pavla.
Standa.
PS: stava se to jenom nekdy a zdanlive bez priciny.
-----Puvodni zprava-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 4. srpna 1998 9:13
Poedmit: Re: Problem s databazi
>Nejsem si jist, ale mozna by to mohlo byt tim, ze nemate pole v seznamu
>dostupnych
>poli, tj. jako objekt TField. Kdyz dvojite poklepnete na komponentu Table,
>objevi se seznam
>vsech poli a pravym tlacitkem muzete pridat. Do tohoto seznamu se po
>vytvoreni noveho
>pole toto neprida automaticky. Jinak si to neumim vysvetlit.
>
>Hodne zdaru
>Pavel
Zjisteni poctu dnu mesice
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 5.8.1998 12:42:49
Hm, a co treba prestupny rok ?
> -----P�vodn� zpr�va-----
> Od: Radoslav Balvan
> Odesl�no: 5. srpna 1998 10:38
> Komu: DELPHI Distribution List
> P�edm�t: Re: Zjisteni poctu dnu mesice
>
> Caute,
>
> myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak
> si vytvorim
>
> pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac
> sa jedna
> ... DecodeDate(ADatum, Y, M, D); ....
> a pozriem sa, kolko ma dni....Zjisteni poctu dnu mesice
[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 5.8.1998 13:16:29
Pridam tedy vyklad:
Datum si rozkoduji na rok, mesic, den abych mohl vytvorit datum prvniho dne
v mesici. Ten zpatky zakoduji do datumoveho formatu a prictu 31 (abych se
dostal vzdy do dalsiho mesice).
Priklad: ADatum:="28.02.1998" -> "01.02.1998" + 31 -> "04.03.1998"
Pak tento vysledek rozkoduji, abych opet mohl vytvorit datum prvniho dne v
mesici. Od takto vytvoreneho datumu odectu 1, cim se dostanu na posledni den
v mesici datumu.
Priklad: ADatum:="04.03.1998" -> "01.03.1998" - 1 -> "28.02.1998"
Po rozkodovani jiz mam pozadovany pocet dni v promenne D t. j. 28.
Toto obecne funguje i pro prestupne roky i pro 12 mesic.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216
-----P�vodn� zpr�va-----
Od: Radoslav Balvan <balvanra(zv)datalock.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. srpna 1998 12:10
P�edm�t: Re: Zjisteni poctu dnu mesice
Caute,
myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak si
vytvorim
pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac sa jedna
... DecodeDate(ADatum, Y, M, D); ....
a pozriem sa, kolko ma dni....
Ivo HERLES wrote:
> Protoze jeste nikdo neodpovedel pokusim, se o to ja.
>
> function PocetDni(ADatum: TDateTime): Word;
> var
> Y,M,D: Word;
> begin
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)+31; // prechod do dalsiho mesice
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)-1; // nastaveni na posledni den v mesici
> DecodeDate(ADatum, Y, M, D);
> Result:=D;
> end;
>
> Urcite se najde jednodussi ci elegantnejsi zpusob, ale toto funguje docela
> dobre.
>
> S pozdravem,
>
> Ivo HERLES
> PVT, a. s., o. z. Chomutov
> e-Mail: herles(zv)chv.pvt(tec)cz
> tel.: 0396/619216
>
> -----P�vodn� zpr�va-----
> Od: Petr Fischer <XFISCHEP(zv)feld.cvut(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Datum: 2. srpna 1998 16:50
> P�edm�t: Zjisteni poctu dnu mesice
>
> Cau,
>
> je v Delphi naka funkce na zjisteni poctu dnu zadaneho mesice v
> roce??? Popripade znate nakej vzorec na zjistovani tohoto?
>
> Diky, Petr Fischer (petr.fischer(zv)email(tec)cz)
--
Maj sa,
R.
Zjisteni poctu dnu mesice
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 05.8.1998 13:26:02
no tak ak sa jedna o Month = 2 (februar) a ak Year je priestupny
tak pocet dni zvacsim o 1 na 29dni, nie?
(stale potrebujem iba 1 volanie DecodeDate(ADatum, Y, M, D);)
Vodnansky David wrote:
> Hm, a co treba prestupny rok ?
>
> > -----P�vodn� zpr�va-----
> > Od: Radoslav Balvan
> > Odesl�no: 5. srpna 1998 10:38
> > Komu: DELPHI Distribution List
> > P�edm�t: Re: Zjisteni poctu dnu mesice
> >
> > Caute,
> >
> > myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak
> > si vytvorim
> >
> > pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac
> > sa jedna
> > ... DecodeDate(ADatum, Y, M, D); ....
> > a pozriem sa, kolko ma dni....
>
--
Maj sa,
R.
CPU IBM/Cyrix
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 5.8.1998 13:39:02
ceska(zv)triada(tec)cz wrote:
> Mam CPU IBM/Cyrix PR233 MMX. Na CPU je napsano, ze se ma nasvicovat
> na 2.5 x 75, coz je 187.5 MHz, vykonove ma odpovidat INTELu 233.
> Je mozne bez potizi uvedene CPU pretaktovat? Napr. 3 x 75 a pod.? Musi se
> pri pretaktovani dodrzet hodnota 75?
hodnota 75 se urcite dodrzet nemusi, jede to i na 60 a 66 x neco, pokud ti vysledek vyjde vic nez okolo tech 187,5, pak ti rozumny bios napise PR266, osobni zkusenost je ale rozpacita, zda se ze velmi zalezi na konkternim kuse, aby mohl vubec fungovat na frekvenci doporucene, a nemusel jsi frekv. naopak snizovat. Dalse pak musis velmi dobre chladit, nejlepe temokontaktni pastou a vetrakem s kul. loziskem. Muzes pak i narazit na kus, ktery bezi i na tech 266. Ja osobne uz IBM/Cyrix taktovany na vice nez 166 nekoupim ani jeden (prosli mi rukama 233 a 266 a talo to vecinou za Ho...)
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Zjisteni poctu dnu mesice
[*] Jozef Marcin <marcin(zv)ns.saske.sk> - 5.8.1998 13:44:43
-----P�vodn� zpr�va-----
Od: Ivo HERLES <herles(zv)chv.pvt(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. august 1998 9:53
P�edm�t: Re: Zjisteni poctu dnu mesice
>
>Protoze jeste nikdo neodpovedel pokusim, se o to ja.
>
>function PocetDni(ADatum: TDateTime): Word;
>var
> Y,M,D: Word;
>begin
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)+31; // prechod do dalsiho mesice
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)-1; // nastaveni na posledni den v mesici
> DecodeDate(ADatum, Y, M, D);
> Result:=D;
>end;
>
>Urcite se najde jednodussi ci elegantnejsi zpusob, ale toto funguje docela
>dobre.
>
>S pozdravem,
>
>Ivo HERLES
>PVT, a. s., o. z. Chomutov
>e-Mail: herles(zv)chv.pvt(tec)cz
>tel.: 0396/619216
>
>
>
>-----P�vodn� zpr�va-----
>Od: Petr Fischer <XFISCHEP(zv)feld.cvut(tec)cz>
>Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
>Datum: 2. srpna 1998 16:50
>P�edm�t: Zjisteni poctu dnu mesice
>
>
>Cau,
>
>je v Delphi naka funkce na zjisteni poctu dnu zadaneho mesice v
>roce??? Popripade znate nakej vzorec na zjistovani tohoto?
>
>Diky, Petr Fischer (petr.fischer(zv)email(tec)cz)
>
ahoj,
su mesiace s 29, 30, 31 dnami, treba pocitat s prestupnymi rokmi. V knihe Marca Cantu Mistrovskvi v Delphi 1, je tento priklad pekne rozobraty. Ak ju nemas mozem ti poslat program.
jozo
Neco mimo DELPHI
[*] Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz> - 5.8.1998 13:59:09
Omlouvam se za tento dotaz. Nekolik uzivatelu by potrebovalo psat rusky
(azbukou) a pritom zhruba mit zachovane ceske rozlozeni klavesnice a ne
ruske. Nemuzete mi nekdo poradit (mimo konferenci na
Juraj.Nagy(zv)nh-trans(tec)cz) kde bych mohl neco takoveho sehnat.
Blahovy jsem si myslel, ze staci ruska klavesnice a nastavit ceske
rozlozeni klaves. (Hahahah...). Na ceske znaky s haciky a carkama se pise
azbukou, ale cela klavesnica jinak pise latinkou.
Diky za kazdou pomoc.
J. Nagy, NH-TRANS Ostrava
Zjisteni poctu dnu mesice
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 5.8.1998 14:03:04
Prestupny rok splnuje podminku:
(rok mod 4 = 0) and (rok mod 100 <> 0) and (rok mod 400 = 0)
Tomas
On Wednesday, August 05, 1998 12:43 PM, Vodnansky David
[SMTP:Vodnansky(zv)allianz(tec)cz] wrote:
> Hm, a co treba prestupny rok ?
>
> > -----P�vodn� zpr�va-----
> > Od: Radoslav Balvan
> > Odesl�no: 5. srpna 1998 10:38
> > Komu: DELPHI Distribution List
> > P�edm�t: Re: Zjisteni poctu dnu mesice
> >
> > Caute,
> >
> > myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie?
> > tak
> > si vytvorim
> >
> > pole o 12 prvkoch s poctami dni a potom len zistim, o ktory
> > mesiac
> > sa jedna
> > ... DecodeDate(ADatum, Y, M, D); ....
> > a pozriem sa, kolko ma dni....Skripty fontu
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 05.8.1998 14:20:15
Petr Medek wrote:
>
> Ahoj vsem !
>
> Zdalipak nekdo vi, kterak zjistit dostupne skripty (coz se v TFont patrne nazyva CharSet) u zadaneho fontu ?
>
> Diky za kazdou odpoved
>
> Petr Medek
trochu jsem se tim zabyval, takze jiz vim jak na to. viz EnumFontFamEx a
help.
Sir
--
+-------------------------------------------------------------------+
|Jan Stuchlik, student CVUT FEL, Hardware & software servis |
|E-Mail: Jan.Stuchlik(zv)email(tec)cz WWW:http://cs.felk.cvut(tec)cz/~xstuchli|
+-------------------------------------------------------------------+Zapis duplicitniho klice do tabulky z DBGrid
[*] Vaclav Novak <milesoft(zv)mi.cesnet(tec)cz> - 5.8.1998 14:34:45
Bojuji s timto problemem :
Pomoci DBGrid pristupuji k Tabulce a na Insert vznikne
novy radek, do ktereho vepisi do datoveho udaje, ktery
je klicem hodnotu, ktera v tabulce jiz je.
Zcela logicky dojde k chybe s hlaskou Key violation.
Toto bych chtel odchytit a osetrit svoji hlaskou.
Dotaz: Kde se toto dela ? - na Gridu nebo na Tabulce,
na jakem Event ?
Jak se toto dela ? - pres try, uvedenim Post ?
Nic se mi nedari, na tuto chybu padaji i priklady pana Cantu
ke knize Mistrovstvi .., jakoby tento problem byl podruzny a
nikdy nikdo nechtel zapsat to, co uz v souboru je.
Diky.
Vaclav Novak
milesoft(zv)mi.cesnet(tec)cz
Zjisteni poctu dnu mesice
[*] Martin Fronik <fronek(zv)fic(tec)cz> - 5.8.1998 15:09:23
Hi,
nekomplikuji. Obcas se kouknete na HTTP://svet.namodro(tec)cz tam je tema o roku 2000 Y2K, tam to vsechno je. Bye.
fronek(zv)fic(tec)cz
-----Puvodni zprava-----
Od: Pavel Kral [SMTP:kral(zv)afx(tec)cz]
Odeslano: 05. srpna 1998 12:17
Komu: DELPHI Distribution List
Poedmit: Re: Zjisteni poctu dnu mesice
Komplikuji to prestupne roky, vedla se tu o tom docela ziva a poucna
diskuse.
Pavel
-----Original Message-----
From: Radoslav Balvan <balvanra(zv)datalock.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 5. srpna 1998 12:02
Subject: Re: Zjisteni poctu dnu mesice
Caute,
myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak si
vytvorim
pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac sa jedna
.... DecodeDate(ADatum, Y, M, D); ....
a pozriem sa, kolko ma dni....
Zjisteni poctu dnu mesice
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 5.8.1998 15:40:51
Myslim, ze puvodni tazatel se uz dovedel co chtel, vase debaty bych schrnul:
vymysleni super dobreho mechanizmu, jak na to prijit sam, tedy nejaka defineice pole ci mnoziny, ktera popisuje pocet dni toho/onoho mesice plus nejaka "strasne slozita" podminka pro unor, ktery muze mit 28/29 (kdo nevi proc tak ma smulu :-((( )
navrh na elegantni uziti mechanizmu, ktere uz do Dx kdosi napsal, coz povazuji za velmi rozumne, protoze ten nekdo, uz tam to pole nebo mnozinu musel napsat, jak jinak by jim to mohlo chodit
Takze navrhuji zaver teto dikuse a za idealni povazuji reseni, ktere kdosi navrhoval jiz v pocatku diskuse:
ode��st od data o 1 mesic vetsiho datum v testovanem mesici (takto se nemusi slozite prevadet datum z a do vnitrniho tvaru, i kdyz jiste uvnitr IncMonth k tomu dojde)
napr:
D je 3.2.1960 (rok je dulezity), pak vysledek je IncMonth(D,1)-D, ted si vzpominam, autor to jeste zaokrouhlil, nevim proc?
Posledni co by bylo mozne diskutovat, jaky den v mesici zvolit, pokud jako vstupni parametry budou jen mesic a rok, odpoved je jednoducha: 1-28.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
QuickReport - Preview
[*] Marek Hejl <kkwest(zv)mbox.vol(tec)cz> - 5.8.1998 15:54:56
Ahoj vsichni !
Nevite nekdo, jak ovladat veci na preview formulary od QR ? Nechci navrhovat
vlastni formular, pouze bych potreboval zakazat tlacitko pro minimalizaci
okna a preview zobrazit jako ZoomToFit.
Predem diky za radu.
\\\|///
\ ~ ~ /
(\ (zv) (zv) /)
--------------------oOOO--(_)--OOOo-----------------------------------------
> Marek Hej (pocitacovy technik , programator)
> Tel. : do zamestnani 019/7900080
> Fax : do zamestnami 019/7900056
> E-mail : kkwest(zv)mbox.vol(tec)cz , mhejl(zv)bigfoot.com
> http://www.fortunecity.com/skyscraper/tyrell/345/marek.htm
----------------------------------------------------------------------------
Zjisteni poctu dnu mesice
[*] Martin Fronik <fronek(zv)fic(tec)cz> - 5.8.1998 16:54:14
No to se nadres :-)
-----Puvodni zprava-----
Od: Ivo HERLES [SMTP:herles(zv)chv.pvt(tec)cz]
Odeslano: 05. srpna 1998 13:16
Komu: DELPHI Distribution List
Poedmit: Re: Zjisteni poctu dnu mesice
Pridam tedy vyklad:
Datum si rozkoduji na rok, mesic, den abych mohl vytvorit datum prvniho dne
v mesici. Ten zpatky zakoduji do datumoveho formatu a prictu 31 (abych se
dostal vzdy do dalsiho mesice).
Priklad: ADatum:="28.02.1998" -> "01.02.1998" + 31 -> "04.03.1998"
Pak tento vysledek rozkoduji, abych opet mohl vytvorit datum prvniho dne v
mesici. Od takto vytvoreneho datumu odectu 1, cim se dostanu na posledni den
v mesici datumu.
Priklad: ADatum:="04.03.1998" -> "01.03.1998" - 1 -> "28.02.1998"
Po rozkodovani jiz mam pozadovany pocet dni v promenne D t. j. 28.
Toto obecne funguje i pro prestupne roky i pro 12 mesic.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216
-----Puvodni zprava-----
Od: Radoslav Balvan <balvanra(zv)datalock.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. srpna 1998 12:10
Poedmit: Re: Zjisteni poctu dnu mesice
Caute,
myslim, ze tomu asi nerozumiem... Ved mesiacov je len 12, nie? tak si
vytvorim
pole o 12 prvkoch s poctami dni a potom len zistim, o ktory mesiac sa jedna
... DecodeDate(ADatum, Y, M, D); ....
a pozriem sa, kolko ma dni....
Ivo HERLES wrote:
> Protoze jeste nikdo neodpovedel pokusim, se o to ja.
>
> function PocetDni(ADatum: TDateTime): Word;
> var
> Y,M,D: Word;
> begin
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)+31; // prechod do dalsiho mesice
> DecodeDate(ADatum, Y, M, D);
> ADatum:=EncodeDate(Y, M, 1)-1; // nastaveni na posledni den v mesici
> DecodeDate(ADatum, Y, M, D);
> Result:=D;
> end;
>
> Urcite se najde jednodussi ci elegantnejsi zpusob, ale toto funguje docela
> dobre.
>
> S pozdravem,
>
> Ivo HERLES
> PVT, a. s., o. z. Chomutov
> e-Mail: herles(zv)chv.pvt(tec)cz
> tel.: 0396/619216
>
> -----Puvodni zprava-----
> Od: Petr Fischer <XFISCHEP(zv)feld.cvut(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Datum: 2. srpna 1998 16:50
> Poedmit: Zjisteni poctu dnu mesice
>
> Cau,
>
> je v Delphi naka funkce na zjisteni poctu dnu zadaneho mesice v
> roce??? Popripade znate nakej vzorec na zjistovani tohoto?
>
> Diky, Petr Fischer (petr.fischer(zv)email(tec)cz)
--
Maj sa,
R.
D3 + InterBase + ImportedConstraint
[*] Ing.Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 5.8.1998 17:22:02
Zdravim,
Nepouziva nekdo z Vas ImportedConstraint. Dle manualu by mely
omezeni na polozce zadefinovana v databazi na serveru prijet
a objevit se v teto polozce. Mozna delam neco spatne ale
nevim co. Predem diky.
S pozdravem
Rosta Podmanicky
rosta(zv)trias92(tec)cz
---------------------------------------------------------------------------------------
Trias 92 spol. s r.o. tel: +42 433 24 378
Informacni systemy fax: +42 433 23 134
Sv.Cecha 253
506 01 Jicin E-mail: trias92(zv)trias92(tec)cz
Czech Republic http://www.trias92(tec)cz
--------------------------------------------------------------------------------------
Tlac a DLL
[*] mstevlik(zv)gamo.sk - 5.8.1998 18:00:16
Nazdarek,
Dnes mam az 2 problemy:
1. Chcem vytlacit obsah tabulky (pouzivam okrem ineho aj komponentu
QRDBText).
Chcem dajme tomu vytlacit z obsah Fieldu(Meno) napr: Stevlik Michal,
ale rad by som ten text orezal (nie vsak ako znaky
ale body grafiky). "Stevlik Michal" si vyzaduje dlzku 300. Ja vsak aby
to orezal na 200. Priradil som QRDBText.Width:=200,
tak nemalo vobec vplyv, len ten, ze mi to dalsi Field tabulky prekryl
vlastnym udajom (avsak zmyzla mi medzera medzi
stlpcami). Ked som k tomu dodal QRDBText.AutoSize:=false tak mi to sice
orezalo, ale len na cele slova, kt. sa mu do tej
200 vosli. Nevadi ked to bude vyzerat takto: Stevlik Mic(za tym kusok
h) za tym medzera medzi stlpcami a dalsi stlpec.
2. V programe volam fcie jednej DLL. Pri spusteni aplikacie (este sa tie
fcie nevolaju) sa mi do pamate na.... to DLL (zabera
vsak 8MB. Co na P75 s 8MB pamatou nie je ziadna vyhra). Rad by som
dosiahol nieco take, aby dane DLL bolo v pamati,
len ked volam fciu s tohto DLL a ukonceni fcie aby zase pamat uvolnilo.
Neviem ci sa to vobec da urobit, ale bolo to moc fajn.
Za odpovede vopred dakujem
Majkl
Zapis duplicitniho klice do tabulky z DBGrid
[*] mstevlik(zv)gamo.sk - 5.8.1998 18:02:21
Skus pred volanim post kuknut do tabulky, ci tam uz dany udaj je alebo nie.
Podla toho zavolaj post.
Literatura
[*] Hejna Martin <hejnam(zv)praha(tec)comsoft(tec)cz> - 5.8.1998 18:06:50
Cafec opet zdravim vsechny delfinare
Mel bych takovy dotaz ohledne literatury.
Pri sledovani konference jsem postrehl nekolik titulu
1) Mistrovstvi v Delphi 2
- zajimaly by me vase zkusenosti s souto knihou (tyka se pouze
D2 ??)
2) Delphi - Pruvodce vyvojare
- tuto knihu mam k dispozici a sem s ni celkem spokojen
3) Delphi v kostce
4) tusim ze grada vydava nejake dve nove knihy o Delphi nevlastnite je
nekdo nahodou jake si obsahove stoji ??
existuje nejaka kniha k D3 resp D4 ???? (cesky)
Diky s pozdravem
Martin HEJNA
Zjisteni poctu dnu mesice
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.8.1998 18:06:20
>Prestupny rok splnuje podminku:
>
> (rok mod 4 = 0) and (rok mod 100 <> 0) and (rok mod 400 = 0)
konecne mam jasno - takze chrousti se lihnou kazdych 400 let :-)
Zdravi
D. Toman
Vyvolanie reakcie
[*] Pavel Kral <kral(zv)afx(tec)cz> - 5.8.1998 18:19:52
Takze asi chces udelat na obrazovce klavesnici a mackat mysi a tim vytvorit
vstup z klavesnice pro jiny program.
Potom neni potreba pouzit hook funkce, ale napsat jen handler pro
klavesnici.
Ve windows se reakce na akce uzivatele zajistuji zpravami, takze kdyz
stisknes
klavesu, system zjisti, ve kterem okne k tomu doslo a posle na toto okno
zpravu
wm_keyDown. To, ze to posle na konkretni okno, se zajistuje tzv. handle
okna.
Pri pusteni klavesy zase wm_keyUp. Potom jeste vznikne zprava wm_Char, ale
tu asi generuje sama aplikace pri prekladu zprav wm_keyDown a wm_KeyUp.
Pokud staci jen psat text, pak staci posilat primo wm_Char.
Kdyz chces takovou akci simulovat, je zapotrebi poslat na okno programu,
nekdy
dokonce na konkretni okno ( "okno" je obecny pojem a muze to byt libovolny
ovladaci prvek) takovou zpravu. Doporucuji si vyzkouset program WinSight
dodavany s vyssimi verzemi Delphi, uvidis, jak probihaji ruzne zpravy pri
ruznych
akcich.
Tvuj program jen bude posilat zpravy wm_keydown a wm_keyup na okno
ovladaneho programu.
Je zapotrebi zjistit handle okna, na ktere se maji zpravy posilat, existuje
API funkce FindWindow, ale je treba znat nazev typu okna, v tom pomuze
WinSight.
Tusim na DSP jsem videl komponentu na vytvareni maker, zdrojaky jsou cca za
20 dolaru, zkus pohledat, treba to v necem pomuze.
Hodne zdaru
Pavel Kral
-----Original Message-----
From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 5. srpna 1998 17:29
Subject: Re: Vyvolanie reakcie
Cau
Asi sme sa dobre nepochopili, ja potrebujem nasledovne :
uzivatel stlaci lave tlacitko na mysi v jednom okne a v pocitai musi nastat
rovnaka reakcia ako keby stlacil klavesu A v inom okne.
V podstate mi ide o ovladanie ineho programu ktory sa ovlada pomocou
klavesnice a potrebujem ho ovladat pomocou mysi, zdrojaky tohto programu
nemam.
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. august 1998 11:25
P�edm�t: Re: Vyvolanie reakcie
>Ahoj,
>snad by to slo takto:
>s pomoci hook funkce odchytit zpravu mysi, zjistit, na ktere okno je
>smerovana
>a poslat na stejne okno zpravu wm_keydown, wm_keyUp nebo wm_Char
>
>Pavel Kral
> -----Original Message-----
> From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
> To: Delphi <delphi(zv)pinknet(tec)cz>
> Date: 5. srpna 1998 9:43
> Subject: Vyvolanie reakcie
>
>
> Caute
> Potrebujem vyriesit nasledujuci problem. Povedzme, ze ked uzivatel
>stlaci lave tlacitko mysi v systeme ma nastat reakcia, ako keby stlacil
>klavesu napriklad A. Takze potrebujem vyvolat reakciu, ktoru by system
>zaznamenal ako stlacenu klavesu. Podmienky : W95 a D3.
>
>Dik
>
> Katedra v�robn�ch inov�ci�
> SjF TU Ko�ice
> Ing. J�n Kuch�r
> E-mail : kuchar(zv)tuke.sk
>
>
>
Zjisteni poctu dnu mesice
[*] Radek Bartik <bartik(zv)nemhoro(tec)cz> - 5.8.1998 19:58:21
>...
>Takze navrhuji zaver teto dikuse a za idealni povazuji reseni, ktere kdosi navrhoval jiz v pocatku diskuse:
>ode��st od data o 1 mesic vetsiho datum v testovanem mesici (takto se nemusi slozite prevadet datum z a do vnitrniho tvaru, i kdyz jiste uvnitr IncMonth k tomu dojde)
>napr:
>D je 3.2.1960 (rok je dulezity), pak vysledek je IncMonth(D,1)-D, ted si vzpominam, autor to jeste zaokrouhlil, nevim proc?
Jeste bych si na zaver diskuse dovolil odpovedet na polozenou otazku.
Zaokrouhlil jsem to proto, protoze TDateTime je definovane jako Double a predpokladal jsem, ze pocet dnu v mesici by bylo lepsi prezentovat jako cele cislo. Mohl jsem klidne misto Round pouzit i Trunc, ale Round mi prislo v teto konstrukci preci jen trochu bezpecnejsi vzhledem k moznym nepresnostem prace s realnymi cisly.
Radek
Zjisteni poctu dnu mesice
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1998 19:58:42
Ahoj,
nedavno se to tady tusim probiralo, napriklad lze vyuzit to co uz je
v SysUtils:
NumberOfDays := MonthDays[IsLeapYear(Year), Month] Petr Vones, amatersky programator
Index
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1998 20:01:12
Dobromil Mal� wrote:
>
> Tenhle postup znam, ale potebuju presne tohle udelat v aplikaci, ne DDesktopu.
> Diky
Ahoj,
tak potom musis pouzit BDE API funkci DbiAddIndex (priklad pouziti najdes v helpu
BDE API), nebo by to slo udelat i pomoci SQL:
with Query1 do
begin
SQL.Text := 'CREATE INDEX POLE2 ON "POKUS.DB" (POLE2)';
ExecSQL;
end;
Tu tabulku musis mit pred tim otevrenou jako Exclusive. Petr Vones, amatersky programator
Zapis duplicitniho klice do tabulky z DBGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1998 20:02:36
Vaclav Novak wrote:
>
> Bojuji s timto problemem :
>
> Pomoci DBGrid pristupuji k Tabulce a na Insert vznikne
> novy radek, do ktereho vepisi do datoveho udaje, ktery
> je klicem hodnotu, ktera v tabulce jiz je.
>
> Zcela logicky dojde k chybe s hlaskou Key violation.
>
> Toto bych chtel odchytit a osetrit svoji hlaskou.
>
> Dotaz: Kde se toto dela ? - na Gridu nebo na Tabulce,
> na jakem Event ?
> Jak se toto dela ? - pres try, uvedenim Post ?
>
> Nic se mi nedari, na tuto chybu padaji i priklady pana Cantu
> ke knize Mistrovstvi .., jakoby tento problem byl podruzny a
> nikdy nikdo nechtel zapsat to, co uz v souboru je.
>
Ahoj,
muzes to udelat pomoci udalosti TTable.OnPostError:
procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if E.Message = 'Key violation.' then
begin
ShowMessage('Tohle uz tu je, zkuste napsat neco jineho....');
Action := daAbort;
end;
end;
Ale asi elegantnejsi zpusob by byl prelozit chybova hlaseni (treba
pomoci pekne udelaneho Jazkykoveho lokalizatoru od Zbyska Hlinky :-).
Petr Vones, amatersky programator
Tlac a DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.8.1998 20:10:44
mstevlik(zv)gamo.sk wrote:
>
> Nazdarek,
>
> Dnes mam az 2 problemy:
Ahoj,
> 1. Chcem vytlacit obsah tabulky (pouzivam okrem ineho aj komponentu
> QRDBText).
> Chcem dajme tomu vytlacit z obsah Fieldu(Meno) napr: Stevlik Michal,
> ale rad by som ten text orezal (nie vsak ako znaky
> ale body grafiky). "Stevlik Michal" si vyzaduje dlzku 300. Ja vsak aby
> to orezal na 200. Priradil som QRDBText.Width:=200,
> tak nemalo vobec vplyv, len ten, ze mi to dalsi Field tabulky prekryl
> vlastnym udajom (avsak zmyzla mi medzera medzi
> stlpcami). Ked som k tomu dodal QRDBText.AutoSize:=false tak mi to sice
> orezalo, ale len na cele slova, kt. sa mu do tej
> 200 vosli. Nevadi ked to bude vyzerat takto: Stevlik Mic(za tym kusok
> h) za tym medzera medzi stlpcami a dalsi stlpec.
Chova se to divne, zkousel jsem nastavit WordWrap na False, ale moc to
nepomohlo.
> 2. V programe volam fcie jednej DLL. Pri spusteni aplikacie (este sa tie
> fcie nevolaju) sa mi do pamate na.... to DLL (zabera
> vsak 8MB. Co na P75 s 8MB pamatou nie je ziadna vyhra). Rad by som
Uff, co je to za knihovnu ?
> dosiahol nieco take, aby dane DLL bolo v pamati,
> len ked volam fciu s tohto DLL a ukonceni fcie aby zase pamat uvolnilo.
> Neviem ci sa to vobec da urobit, ale bolo to moc fajn.
Da se to udelat tak ze misto definice exportovane funkce primo v unitu
nahrajes knihovnu za behu pomoci LoadLibrary, pak pomoci GetProcAdress
ziskas adresu na tvoji funkci a pak zase pomoci FreeLibrary ji uvolnis.
Petr Vones, amatersky programator
Zjisteni poctu dnu mesice Round ???
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 5.8.1998 20:26:30
>Zaokrouhlil jsem to proto, protoze TDateTime je definovane jako Double a
predpokladal jsem, ze pocet dnu v mesici by bylo lepsi prezentovat jako cele
cislo. Mohl jsem klidne misto Round pouzit i Trunc, ale Round mi prislo v teto
konstrukci preci jen trochu bezpecnejsi vzhledem k moznym nepresnostem prace s
realnymi cisly.
>
Ahoj,
to je dobry vtip.
Nepresne jsou vyjadreny zlomky. Pred desetinnou carkou je to v pohode.
A protoze dny jsou v TDateTime jako jednotky neni treba Round.
Prictenim 1 se z presneho cisla stane opet presne cislo:)
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Deklarace extern�ch funkc�
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.8.1998 22:03:38
Predpokladam, ze programator s pripojenim k internetu by nemel
mit problemy najit si jiny vhodnejsi majler.
Dobromil Mal wrote:
>
> Jako znalec by jsi ale mel vedet, ze nektere "MAIL via WEB" toto vkladani
> HTML/TXT delaji "natvrdo" a nedokazi postat text a proto posilaji
> attachmenty.
>
> Dobra.
>
> 1. - Nepis prosim cesky - a vubec vsichni, nepiste cesky a nepouzivejte
> formaty HTML a podobne prilohy. U programatoru by se dala predpokladat
> jista uroven znalosti aspon zakladniho nastavovani maileru. Tak si to
> doprcic vsichni vypnete, uz me to stve...
>
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
COMCTL32 apod.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.8.1998 22:52:24
Ahoj,
tak neverim vlastnim ocim... Mam jednu aplikaci napsanou puvodne
v Delphi 3 a ted jsem ji nacetl a prekompiloval pomoci Delphi 4.
Vsechno chodi tak, jak ma, mam vsechny knihovny v nove verzi.
Ale... v te aplikaci pouzivam CoolBar, ToolBar a ty cudliky...
No a v tom je problem. Ted jsem zjistil, ze to funguje nejak
divne - prvni tlacitko zleva je uplne OK. Ale ta dalsi,
tedy druhe, treti atd. se chovaji podivne. V leve polovine
kazdeho tlacitka se to chova jako tlacitko o jedno vlevo,
v prave polovine tlacitka se to chova dobre. Vizualne kazde
tlacitko maka bezvadne, dostane ramecek pri najeti mysi, to je
dobre. Ale pri tuknuti v leve casti tlacitka proste zavola
udalost OnClick sousedniho tlacitka vlevo. Prava pulka je OK.
No tak jsem spustil ten program jeste zkompilovany pod Delphi 3,
protoze jsem si ho nechal. No a ono to v nem dela ty same
blbosti. Tedy evidentne to neni kompilatorem, ale knihovnou
COMCTL32.DLL, ktera je ta nova z Delphi 4. Ale zase zajimave
je, ze ten Borlandi priklad CoolStuf chodi dobre, ted jsem to
zkousel. Tak jsem z toho danek... Jdu hledat rozdily. Nemate
nekdo take takovou zkusenost?
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Deklarace extern�ch funkc�
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.8.1998 00:48:39
> Jako znalec by jsi ale mel vedet, ze nektere "MAIL via WEB" toto =
> vkladani HTML/TXT delaji "natvrdo" a nedokazi postat text a proto =
> posilaji attachmenty.
O tom nic nevim, priznam se, ze nejsem znalec ve webovskych mailerech,
protoze jako normalni clovek pouzivam jednu ze svych e-mail boxu na
sve domene a tedy normalni mailer. Ale co vim, tak kdyz je nekdo
pripojeny do Internetu, ma nejaky e-mail box u providera, i studenti
maji sve boxy. A co vidim, tak treba uzivatele sluzeb post(tec)cz, usa.net
(a ja nevim kterych) take neposilaji do konference balast. Kdyz se na
to divam, tak to jsou vetsinou uplne bezne mailery typu Microsoft
Outlook apod.
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Memo
[*] kubork(zv)post.sk - 6.8.1998 07:06:08
Nazdar,
1,
potreboval by som zistit poziciu kurzora (na ktorom riadku sa nachadza) v meme. Hladal som nieco v helpe ale nic som nenasiel a s API funkciami nemam skusenosti.
2,
existuje funkcia, ktora vrati z celej cesty suboru iba jeho nazov?
zaciatocnik v delphi Rado
********************************************************
Ing. Kubala Radomir
kubork(zv)post.sk
peperk(zv)hotmail.com
----------------------------------------
WWW.POST.SK - e-mail pre kazdeho zadarmo
Zjisteni poctu dnu mesice
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 6.8.1998 07:42:19
> Prestupny rok splnuje podminku:
>
> (rok mod 4 = 0) and (rok mod 100 <> 0) and (rok mod 400 = 0)
Hehe tak tuto podminku urcite nesplnuje zadny (ani prestupny) rok
(vzdycky jedna cast podminky vrati false, a tim i cely vyraz bude
false) ;)))))
Spravne by to melo byt
(((rok mod 4) = 0) and ((rok mod 100) <> 0)) or ((rok mod 400) = 0)
Zavorek je tam asi zbytecne moc, ale je to spravne.
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: pavel.zichovsky(zv)sms.paegas(tec)cz (120 znaku)
ICQ: 13484112
PGP podporovano a vitano
CPU IBM/Cyrix
[*] TucekR(zv)p15.monet(tec)cz - 6.8.1998 08:02:00
Ja osobne si na Cyrix/IBM nemohu stezovat mel jsem PR166+ a PR233+
ten druhy jsem mel novou revizi 3*66 (198MHz od vyrobce) a v klidku jsem
to nataktil 3*75 takze pak jsem mel pravou PR266+, chladil jsem
normalnim chladicem a naprosto v pohode.....
TRT
----------
Od: Mgr. Petr Kellner
Komu: 'DELPHI Distribution List'
P�edm�t: RE: CPU IBM/Cyrix
Datum: 5. srpen 1998 13:39
ceska(zv)triada(tec)cz wrote:
> Mam CPU IBM/Cyrix PR233 MMX. Na CPU je napsano, ze se ma nasvicovat
> na 2.5 x 75, coz je 187.5 MHz, vykonove ma odpovidat INTELu 233.
> Je mozne bez potizi uvedene CPU pretaktovat? Napr. 3 x 75 a pod.?
Musi se
> pri pretaktovani dodrzet hodnota 75?
hodnota 75 se urcite dodrzet nemusi, jede to i na 60 a 66 x neco, pokud
ti vysledek vyjde vic nez okolo tech 187,5, pak ti rozumny bios napise
PR266, osobni zkusenost je ale rozpacita, zda se ze velmi zalezi na
konkternim kuse, aby mohl vubec fungovat na frekvenci doporucene, a
nemusel jsi frekv. naopak snizovat. Dalse pak musis velmi dobre chladit,
nejlepe temokontaktni pastou a vetrakem s kul. loziskem. Muzes pak i
narazit na kus, ktery bezi i na tech 266. Ja osobne uz IBM/Cyrix
taktovany na vice nez 166 nekoupim ani jeden (prosli mi rukama 233 a 266
a talo to vecinou za Ho...)
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel :
068/5314129
Fax : 0508/365512 Tel :
0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
QuickReport
[*] Marian Mor�ol <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 6.8.1998 08:19:18
Velmi primitivni dotaz.
Nevite nekdo jak programove zajistit tisk pouze lichych nebo sudych
stran QuickReportu ?.
Nemuzu to nikde najit.
Marian.Morzol(zv)ostrava.aksignal(tec)cz
help
[*] Marian Mor�ol <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 6.8.1998 08:20:00
help
Index
[*] Vladimir Tucan <tucanv(zv)darvis(tec)cz> - 6.8.1998 08:48:42
A kdyz bude nejhur tak
Table1.AddIndex ('Muj_index', 'Pole1;Pole2', []);
Zdravi
Vlada Tucan
e-mail: tucanv(zv)darvis(tec)cz
-----Puvodni zprava-----
Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Odeslano: 5. srpna 1998 20:01
Komu: DELPHI Distribution List
Poedmit: Re: Index
Dobromil Maly wrote:
>
> Tenhle postup znam, ale potebuju presne tohle udelat v aplikaci, ne DDesktopu.
> Diky
Ahoj,
tak potom musis pouzit BDE API funkci DbiAddIndex (priklad pouziti najdes v helpu
BDE API), nebo by to slo udelat i pomoci SQL:
with Query1 do
begin
SQL.Text := 'CREATE INDEX POLE2 ON "POKUS.DB" (POLE2)';
ExecSQL;
end;
Tu tabulku musis mit pred tim otevrenou jako Exclusive. Petr Vones, amatersky programator
Zjisteni poctu dnu mesice & Secondary index.
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1998 09:25:23
Ale NE ! Prestupny rok splnuje podminku
(rok mod 400=0) or ((rok mod 4 =0) and (rok mod 100<>0))
Podle toho nize, by rok 1996 presupny NEBYL (true AND true AND false = FALSE)
Dobra.
Howg.
PS: Uz jsem tu jeden dotaz vznesl, ale nedostal jsem zadnou odpoved, proto bych pozadal jsete jednou, ty, kteri jsou zbehli v oblasti databazi.
Prosim o radu, jak vytvorit na tabulce, ktera jiz ma primarni index dals�, sekundarni.
Tabulka je jiz vytvorena, je typu ttParadox a m� pole :
"ID" A 4 *
"IDRodice" A 4
"Prijmeni" A 20
"Jmeno" A 20
A chtel bych udelat index na poli IDRodice - v aplikaci ne v DB Desktopu !
Diky za pomoc, jak jsem jiz zminoval, s databezemi jsem "v plenkach" :-)
Dobromil Maly
mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
----------
Od: Dalibor Toman[SMTP:dtoman(zv)fortech(tec)cz]
Odesl�no: 5. srpna 1998 18:06
Komu: DELPHI Distribution List
P�edm�t: Re: Zjisteni poctu dnu mesice
>Prestupny rok splnuje podminku:
>
> (rok mod 4 = 0) and (rok mod 100 <> 0) and (rok mod 400 = 0)
konecne mam jasno - takze chrousti se lihnou kazdych 400 let :-)
Zdravi
D. Toman
Deklarace extern�ch funkc�
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1998 09:36:41
Pokud programator nema postovni schranku a vyuziva sluzeb nekterych serveru (post(tec)cz, email(tec)cz, a ja nevim jake jeste) a nechce platit za POP3 MUSI pouzivat tyto WEB-stranky pro odesilani/prijimani posty. I kdyby si treba koupi MS Exchange nebo sehnal treba Pegasus Mail, nebude mu k nicemu!
----------
Od: Zbysek Hlinka[SMTP:zhlinka(zv)login(tec)cz]
Odesl�no: 5. srpna 1998 22:03
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: RE: Deklarace extern�ch funkc�
Predpokladam, ze programator s pripojenim k internetu by nemel
mit problemy najit si jiny vhodnejsi majler.
Dobromil Mal wrote:
>
> Jako znalec by jsi ale mel vedet, ze nektere "MAIL via WEB" toto vkladani
> HTML/TXT delaji "natvrdo" a nedokazi postat text a proto posilaji
> attachmenty.
>
> Dobra.
>
> 1. - Nepis prosim cesky - a vubec vsichni, nepiste cesky a nepouzivejte
> formaty HTML a podobne prilohy. U programatoru by se dala predpokladat
> jista uroven znalosti aspon zakladniho nastavovani maileru. Tak si to
> doprcic vsichni vypnete, uz me to stve...
>
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Literatura
[*] Krautvor Ale� <krautvor(zv)mona(tec)cz> - 06.8.1998 09:48:13
Ahoj vsem,
Mistrovstvi v Delphi 2 mam, obsahuje zakladni informace o Delphi a o
Windows nepousti se podrobnosti.
Solidni zaklad pro programovani v D2. Navic je k nemu CD se vsemi
"funkcnimi" priklady.
bod 2,3,4 neznam.
Ales Krautvor
Hejna Martin wrote:
> Cafec opet zdravim vsechny delfinare
>
> Mel bych takovy dotaz ohledne literatury.
>
> Pri sledovani konference jsem postrehl nekolik titulu
>
> 1) Mistrovstvi v Delphi 2
> - zajimaly by me vase zkusenosti s souto knihou (tyka se pouze
> D2 ??)
>
> 2) Delphi - Pruvodce vyvojare
> - tuto knihu mam k dispozici a sem s ni celkem spokojen
>
> 3) Delphi v kostce
>
> 4) tusim ze grada vydava nejake dve nove knihy o Delphi nevlastnite je
> nekdo nahodou jake si obsahove stoji ??
>
> existuje nejaka kniha k D3 resp D4 ???? (cesky)
>
> Diky s pozdravem
>
> Martin HEJNA
********************************************************************
Literatura
[*] Cap Jiri <cap(zv)fsih.cvut(tec)cz> - 6.8.1998 09:58:52
> Ahoj vsem,
> Mistrovstvi v Delphi 2 mam, obsahuje zakladni informace o Delphi a o
> Windows nepousti se podrobnosti.
> Solidni zaklad pro programovani v D2. Navic je k nemu CD se vsemi
> "funkcnimi" priklady.
>
> bod 2,3,4 neznam.
> Ales Krautvor
Zdravim vsechny
K bodu 2) O neco mene obsazne nez Mistrostvi, tez CD s priklady,
castecne pomichane D1 a D2
K bodu 3) Vhodne pro uplne zacatecniky s Delphi, popis se tyka
D1(Pro Win16)
K bodu 4) Neznam
Jiri Cap
>
> Hejna Martin wrote:
>
> > Cafec opet zdravim vsechny delfinare
> >
> > Mel bych takovy dotaz ohledne literatury.
> >
> > Pri sledovani konference jsem postrehl nekolik titulu
> >
> > 1) Mistrovstvi v Delphi 2
> > - zajimaly by me vase zkusenosti s souto knihou (tyka se pouze
> > D2 ??)
> >
> > 2) Delphi - Pruvodce vyvojare
> > - tuto knihu mam k dispozici a sem s ni celkem spokojen
> >
> > 3) Delphi v kostce
> >
> > 4) tusim ze grada vydava nejake dve nove knihy o Delphi nevlastnite je
> > nekdo nahodou jake si obsahove stoji ??
> >
> > existuje nejaka kniha k D3 resp D4 ???? (cesky)
> >
> > Diky s pozdravem
> >
> > Martin HEJNA
>
>
>
>
> ********************************************************************
>
>
> Literatura
[*] Goodrum, Martin. GOODRUM2 <martin.goodrum(zv)bt(tec)com> - 06.8.98 10:12:00 uct
Please do not keep sending me this rubbish.....CHECK YOUR ADDRESS BOOK!!!
-----Original Message-----
From: Krautvor Ale9 [SMTP:krautvor(zv)mona(tec)cz]
Sent: 06 August 1998 08:48
To: DELPHI Distribution List
Subject: Re: Literatura
Ahoj vsem,
Mistrovstvi v Delphi 2 mam, obsahuje zakladni informace o Delphi a o
Windows nepousti se podrobnosti.
Solidni zaklad pro programovani v D2. Navic je k nemu CD se vsemi
"funkcnimi" priklady.
bod 2,3,4 neznam.
Ales Krautvor
Hejna Martin wrote:
> Cafec opet zdravim vsechny delfinare
>
> Mel bych takovy dotaz ohledne literatury.
>
> Pri sledovani konference jsem postrehl nekolik titulu
>
> 1) Mistrovstvi v Delphi 2
> - zajimaly by me vase zkusenosti s souto knihou (tyka se pouze
> D2 ??)
>
> 2) Delphi - Pruvodce vyvojare
> - tuto knihu mam k dispozici a sem s ni celkem spokojen
>
> 3) Delphi v kostce
>
> 4) tusim ze grada vydava nejake dve nove knihy o Delphi nevlastnite je
> nekdo nahodou jake si obsahove stoji ??
>
> existuje nejaka kniha k D3 resp D4 ???? (cesky)
>
> Diky s pozdravem
>
> Martin HEJNA
********************************************************************
The following binary file has been uuencoded to ensure successful
transmission. Use UUDECODE to extract.
begin 600 WINMAIL.DAT
M>)\^(C<)`0:0"``$```````!``$``0>0!(zv)`(````Y`0```````#H``$((zv)`<`
M&````$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V`!``"`````(zv)`"``$$
M(zv)`$`#P```%)%.B!,:71E<F%T=7)A``X%`06``P`.````S(zv)<(``8`"(zv)`*`#4`
M!``P`0$(zv)(zv)`,`#(zv)```,X'"``&``H`"(zv)`)``0`!`$!"8`!`"$````W-3=%04(T
M-C!",D1$,C$Q0D)&,C`P,C!!1C<Q130S,P`A!P$$D`8`N`$```$````0````
M`P``,`(````+``\.``````(!_P\!````3P``````````8)1D8$&X`0(zv)`*RN*
M*0```````&0!&(zv)`]`!(````4`$1%3%!(22!$:7-T<FEB=71I;VX(zv)3&ES=`!D
M96QP:&E`<&EN:VYE="YC>(zv)``'(zv)`",`$````%````4TU44``````>``,P`0``
M`!(```!D96QP:&E`<&EN:VYE="YC>(zv)````,`%0P!`````P#^#P8````>``$P
M`0```!D```!$14Q02$D(zv)1&ES=')I8G5T:6]N($QI<W0``````(zv)$+,`$````7
M````4TU44#I$14Q02$E`4$E.2TY%5"Y#6(zv)```P``.0`````+`$`Z`````!X`
M]E\!````&0```$1%3%!(22!$:7-T<FEB=71I;VX(zv)3&ES=``````"`?=?`0``
M`$\``````````&"49&!!N`$(`"LKBBD```````!D`1H`/0`2````%`!$14Q0
M2$D(zv)1&ES=')I8G5T:6]N($QI<W0`9&5L<&AI0'!I;FMN970N8WH```,`_5\!
M`````P#_7P`````"`?8/`0````0````````"IE,!`Y`&`&0'```(zv)````"P`"
M``$````+`",```````,`)(zv)``````"P`I```````#`"X```````,`-(zv)``````
M0``Y`.!9TAP:P;T!'(zv)!P``$````/````4D4Z($QI=&5R871U<F$```(!<0`!
M````%(zv)````&]P1H<GT:K?G8M"Q'2N_(`(*]QY#,```,`!A!,P&<\`P`'$'L#
M```>``(zv)0`0```&4```!03$5!4T5$3TY/5$M%15!314Y$24Y'34542$E34E5"
M0DE32$-(14-+64]54D%$1%)%4U-"3T]++2TM+2U/4DE'24Y!3$U%4U-!1T4M
M+2TM+4923TTZ2U)!55163U)!3$4Y4TU4``````(!"1`!````<P0``&\$``#(
M!(zv)``3%I&=3T*]JT#``H`<F-P9S$R-78R`/0!]R`"I`/C`(zv)!C(zv)F(zv)*P'-E=#`(zv)
M!Q.'`H,`4`^V<')Q,A"V9GT*(zv)`C((#L);PXP-;,"(zv)`J!=6,`4`L#8P!!10M(zv)
M;(zv)X0,#,S"Z8(zv)$%!L96$0<"!D;R(zv)(zv);F\%0&L)X'`(zv)21!P;F0+(zv)&<(zv)!X`(zv)!'1H
M!``(zv)<G5B8(zv)D$`&(zv)N&<)#2$5#0$L(zv)64]54A"P1!!$4D53!?!"3T]\2R$;(zv)`JB
M"H0*A`LP;/AI,S8!0!70`4`2`!?0A060=!%$,38(zv)+1YR>D\%$&<+(zv)`=`!=`'
MD'/X86=E'G,;MAV$'5$+$\$=AFDM,30T`4`<T#(zv)Q.#`!0`S0(A-B("I&`V$Z
M#(-B$*!+<E!A=71V!;%!%S`Y`"!;4TU44#IK#21%0`1(zv)'Q`N8WI=7QNU(T`&
M8`(P(Z<P'E!!$'5G=7,%0#$Y.4(X)]`X.C0X)H=4`F\CIT1%3%!(2:LJ4`0`
M=`408B1(zv):0((zv)W"!,*N$FB!E(zv):AVQ(Z>X4F4Z*Y$=H"1`=`AP/F$(zv)'R$J'-06
M$(zv)'0-3<#"Z<;PT%H;VH(zv)=JD0<&TL&[1-*N)O,C"-)'!I,B`J4&5L<!D0CB`2
M,`#`,F`(zv);V(?(zv)(1H=2R(zv)('IA:PM(zv)VF0#`"`+(zv)`(0<(zv)#!%W#;%Z`SQ6$TD!NT
M5PN`%Y#Z=P0(zv);A(zv)(zv)"&`H4#.`%V&U."!D`V!B%\`X42X;M/I3!O!I-8(U-#BP
M`V`ZPI\)P#1(zv),S``<#.#,BX'L%)A,W!C(#4!:S?Q;?!U($-$.((R,(zv)"(zv)&\/`
M(F9U;FMC`P`]T.HB.L%I-5)Y.74;M`;(zv)03JP,BPS+#0W\7K]'Q!M/YLQA1<P
M!"`D-ANZ^$AE:A\0!=`*P"M0`Z`N=QV"(Z`;R3X],&%F>P60-)!P$(`U(#C(zv)
M/%%M\S(B$#!N>1>`,]`AX!\0GPEP1;5%MA]0`R!B>1`PGQCP-4`S,$?!%]!A
M>C20_F(zv)7,#6`%W`<T"W5/X9(U_Y0!1`80$KA.X1*$#70!)"["?`V,6HR03BQ
M*O%E2M#_-_%*$!S0/-`K4"X0"D!(?7PQ*070,O\T`D6V4R8M_34A:(zv)=P!T!'
MP$F(zv)&,([D/D787IK*$`)\#DR&$`80'4(8'07H&L#`#'P/2`HF'1Y:S;P.)-U
M>DAFH3OQ(#\_*4A],E$PUS/%4[!,X'4D(zv)&0V,4HP_22`:DA(4RDN$%85/2`T
M4>L\P1B`<S(zv)(zv)>(zv)W(zv)-M).(zv)O<WX3.`-C!L&`!>03(zv)(zv)2A#W+*`+D$B,,UEW,Z!*
M$"A0^S8P2'TT43`N$`"01T!7</H(zv).T%D-O!*,&.0.Y`W\?=:\!(zv)`%X!V%W`7
MP&2Q5D+W1\`V9S(zv)`=(zv)M(zv)*%`#`!V(zv)_SR11;9/41>2--`$<%:!9%/_`)`TE&3R
M*%`R`#.`6$!(??QE>"KA-/)D,S;P5D)KP=TJ4#,90`>0&#!$0.!80,=80%:(zv)
M-C!S:WE8;BK0_VV(zv)5;%=D4;R,E!(?5,F1(6Q&B!*3D%!?T'+*G/?KW3O=?]W
M#G*_"A+!`'EP``,`$!```````P`1$``````>`$(0`0````$``````````P"`
M$/____]```<PH*.A`AK!O0%```(zv)PH*.A`AK!O0$#`!R`""`&``````#`````
M````1(zv)````!2A0``=!```!X`'8`((`8``````,````````!&`````%2%```!
M````!0```#(zv)N,#(``````P`>(zv)`(zv)(zv)!(zv)``````P````````$8``````84`````
M```+`!^`""`&``````#`````````1(zv)`````#A0````````L`((`((`8`````
M`,````````!&``````Z%`````````P`A(zv)`(zv)(zv)!(zv)``````P````````$8`````
M$(4````````#`"*`""`&``````#`````````1(zv)`````1A0````````,`)(`(
M(`8``````,````````!&`````!B%````````'(zv)`E(zv)`(zv)(zv)!(zv)``````P```````
M`$8`````-H4```$````!`````````!X`)H`((`8``````,````````!&````
M`#>%```!`````0`````````>`">`""`&``````#`````````1(zv)`````XA0``
J`0````$`````````'(zv)`]``$````%````4D4Z(``````#``TT_3<``*#?
`
end
Transaction isolation level a uminena TDatabase
[*] Pavel Klimes <klimes(zv)c3(tec)cz> - 06.8.1998 10:13:42
Dobry den,
nikdo se na dotaz neozval, odpovim si castecne tedy sam:
Stacil jsem zjistit, ze properta TransIsolation u TDatabase pry
zafunguje pouze v pripade, ze se transakce explicitne vyvolavaji
prostrednictvim metod TDatabase (StartTRansaction, Commit, Rollback).
To neni vsak muj pripad.
Myslel jsem si puvodne, ze se podle property TransIsolation nastavi
po pripojeni k databazi isolacni uroven v ramci tohoto pripojeni az
do jeho skonceni.
No nic. Clovek se porad uci a zasne.
Zdravim, Pavel.
--
+---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
| C3, s.r.o. (Czech Card Centrum) | __) """ |
| Srobarova 32, Praha 10, Czech Republic | \/"""\ |
+---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+Neviditelne okno
[*] Jan Kuchar <kuchar(zv)tuke.sk> - 6.8.1998 10:23:58
Caute
Pred nedavnom som tuna zistoval ako vytvorit neviditelne okno. Podarilo sa.
Vsetko ma ale svoj hacik. Po spusteni tohto okna mozem zachytavat pohyb
mysi, ale nemozem spustat ine aplikacie ktore su vidiet - ikony na ploche.
Takze znovu ako vytvorit neviditelne okno pre zachytavanie pohybu mysi, ale
take, ktore umozni spustat aj ine aplikacie, ktore su cez to okno vidiet.
Dik
IO error
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 6.8.1998 10:38:49
Pekne zdravim a prosim o radu
Udelal jsem si program, ktery komparuje obsah adresarove stromu
vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
znamena ???? V helpu jsem tento kod nenasel.
Detaily:
Bezelo to na Windows NT workstation 4.0
Napsano je to v Delphi 3.02 C/S
Celkem je se kontrolovalo 6.7 GB dat v 51.000 souboru v 6.000
adresarich.
Program napred nacte vsechny adresare pomoci FindFirst a FindNext do
TStringListu a potom porovnava obsah jednolivych adresaru.
Dvakrat se zastavil pri porovnavani na stejnem adresari zhruba po
30.000 souboru. Vzhledem k objemu dat to nemam moznost krokovat.
Diky za rady
S pozdravem Zdenek
---------------------------------------------------------------
: o__o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
: ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
---------------------------------------------------------------
This message was delivered using 100% recyclable electrons.IO error
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 6.8.1998 11:10:44
> -----Original Message-----
> From: Ing. Zdenek Sraier [SMTP:sraierzd(zv)czn(tec)cz]
> Sent: Thursday, August 06, 1998 11:39 AM
> Subject: IO error
>
> Pekne zdravim a prosim o radu
>
> Udelal jsem si program, ktery komparuje obsah adresarove stromu
> vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> znamena ???? V helpu jsem tento kod nenasel.
>
> Detaily:
> Bezelo to na Windows NT workstation 4.0
> Napsano je to v Delphi 3.02 C/S
> Celkem je se kontrolovalo 6.7 GB dat v 51.000 souboru v 6.000
> adresarich.
> Program napred nacte vsechny adresare pomoci FindFirst a FindNext do
> TStringListu a potom porovnava obsah jednolivych adresaru.
> Dvakrat se zastavil pri porovnavani na stejnem adresari zhruba po
> 30.000 souboru. Vzhledem k objemu dat to nemam moznost krokovat.
Tech 30.000 je mi podezrelych. Skoro to vypada na preteceni maximalniho
ShortInt (dvoubytovy integer).
ZdeP
prantl(zv)ptc.pvt(tec)cz
Neviditelne okno
[*] Cap Jiri <cap(zv)fsih.cvut(tec)cz> - 6.8.1998 11:10:23
> Caute
> Pred nedavnom som tuna zistoval ako vytvorit neviditelne okno. Podarilo sa.
> Vsetko ma ale svoj hacik. Po spusteni tohto okna mozem zachytavat pohyb
> mysi, ale nemozem spustat ine aplikacie ktore su vidiet - ikony na ploche.
> Takze znovu ako vytvorit neviditelne okno pre zachytavanie pohybu mysi, ale
> take, ktore umozni spustat aj ine aplikacie, ktore su cez to okno vidiet.
> Dik
>
Zdravim,
domnivam se ze to asi nepude, nebot spusteni aplikace pres ikonu na
ploche zrejme vyzaduje jeji zachiceni mysi, a to ji to neviditelne
okno co je pres ni sebere. Asi nemohu najednou klikat na okno i
pod nej. Pokud si vzpominam nejake zminky o neviditelnem okne jsou v
"Mistrovstvi v Delphi".
Jiri Cap
IO error
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 6.8.1998 11:13:36
> Udelal jsem si program, ktery komparuje obsah adresarove stromu
> vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> znamena ???? V helpu jsem tento kod nenasel.
Je to systemova chyba:
267L ERROR_DIRECTORY
Ale co znamena ti bohuzel nevysvetlim
McLEI
IO error
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 6.8.1998 11:24:38
> Udelal jsem si program, ktery komparuje obsah adresarove stromu
> vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> znamena ???? V helpu jsem tento kod nenasel.
Jo ted sem k tomu jeste nasel blizsi popis :
ERROR_DIRECTORY
The directory name is invalid.
Takze asi jak tam nekde skladate jmeno
tak se vam tam dostal naky nesmysl.
McLEI
Parametry dialeru
[*] Maly(zv)sdc.pce.cdrail(tec)cz - 6.8.1998 11:26:57
Ahoj
Potreboval bych z programu spustit dialer.exe a jako parametr mu predat
tel.cislo.Spusteni bez problemu , ale dale se mi nedari tam to cislo
dostat.
Dekuji za pripadnou radu
Lada
IO error
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 6.8.1998 11:40:08
> -----Original Message-----
> From: Ing. Zdenek Sraier [SMTP:sraierzd(zv)czn(tec)cz]
> Sent: Thursday, August 06, 1998 11:39 AM
> Subject: IO error
>
> Pekne zdravim a prosim o radu
>
> Udelal jsem si program, ktery komparuje obsah adresarove stromu
> vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> znamena ???? V helpu jsem tento kod nenasel.
>
> Detaily:
> Bezelo to na Windows NT workstation 4.0
> Napsano je to v Delphi 3.02 C/S
> Celkem je se kontrolovalo 6.7 GB dat v 51.000 souboru v 6.000
> adresarich.
> Program napred nacte vsechny adresare pomoci FindFirst a FindNext do
> TStringListu a potom porovnava obsah jednolivych adresaru.
> Dvakrat se zastavil pri porovnavani na stejnem adresari zhruba po
> 30.000 souboru. Vzhledem k objemu dat to nemam moznost krokovat.
Tech 30.000 je mi podezrelych. Skoro to vypada na preteceni maximalniho
ShortInt (dvoubytovy integer).
ZdeP
prantl(zv)ptc.pvt(tec)cz
Neviditelne okno
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 6.8.1998 11:41:49
> -----Original Message-----
> From: Jan Kuchar [SMTP:kuchar(zv)tuke.sk]
> Sent: Thursday, August 06, 1998 10:24 AM
> Subject: Neviditelne okno
>
> Caute
> Pred nedavnom som tuna zistoval ako vytvorit neviditelne okno. Podarilo sa.
> Vsetko ma ale svoj hacik. Po spusteni tohto okna mozem zachytavat pohyb
> mysi, ale nemozem spustat ine aplikacie ktore su vidiet - ikony na ploche.
> Takze znovu ako vytvorit neviditelne okno pre zachytavanie pohybu mysi, ale
> take, ktore umozni spustat aj ine aplikacie, ktore su cez to okno vidiet.
> Dik
>
Byl tady na to nedavno odkaz na kulate okno s dirou uprostred skrz kterou slo
klikat na ikony na desktopu.
Jako obvykle odkaz pochazi od Petra Vonese, amaterskeho to programatora 8-)
Snad ti to pomuze.
Tady to je:
http://www.gnomehome.demon.nl/uddf/pages/zmisc3.htm#zmisc39
ZdeP
odhlasenie z tejto groupy :-)
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 06.8.1998 11:45:36
caute,
mam dotaz: ked sa chcete odhlasit z tejto skupiny, nepise sa nahodou
UNSUBSCRIBE? ;-))
--
Majte sa,
R.
Client/Server developer's Guide with Delphi 3
[*] Ing.Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 6.8.1998 12:03:17
Zdravim,
shanim knihu:
Delphi Client/Server developer's Guide with Delphi 3
(Ken Henderson / Longman Publishers ISBN: 0-672-31024-4)
Kniha mi unikla a bohuzel je jiz rozebrana i v USA a dalsi vydani jiz nebude.
Rad by do ni nahledl. Pokud ji nekdo vlastnite a jste ochoten ji zapujcit,
prodat apod...... dejte mi prosim vedet na moji E-mailovou adresu:
rosta(zv)trias92(tec)cz.
S pozdravem
Rosta Podmanicky
rosta(zv)trias92(tec)cz
---------------------------------------------------------------------------------------
Trias 92 spol. s r.o. tel: +42 433 24 378
Informacni systemy fax: +42 433 23 134
Sv.Cecha 253
506 01 Jicin E-mail: trias92(zv)trias92(tec)cz
Czech Republic http://www.trias92(tec)cz
--------------------------------------------------------------------------------------
IO error
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 6.8.1998 12:35:33
Cau,
pred nedavnem sem mel podobny problem jeste v Delphi1 (delal jsem to stejny
co ty). Tam sem zjistil, ze napr. fce DirectoryExists vrati false na
adresari, ktery sice existuje, ale ma atribut read only (coz je na CD).
Nejake problemy sem taky mel (bohuzel uz nevim presne jaky) kdyz mel adresar
atribut archiv. Zkus si tedy obraz CD zkopirovat na disk (pokud mas tedy
jeste misto) a zrus vsechny zmineny atributy a vyzkousej to tak.
Michal, mailto:mbrabec(zv)ciglersw(tec)cz
> -----Original Message-----
> From: Michal Leinweber [mailto:M.Leinweber(zv)sh.cvut(tec)cz]
> Sent: Thursday, August 06, 1998 11:25 AM
> To: DELPHI Distribution List
> Subject: RE: IO error
>
>
> > Udelal jsem si program, ktery komparuje obsah adresarove stromu
> > vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> > CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> > Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> > ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> > znamena ???? V helpu jsem tento kod nenasel.
>
> Jo ted sem k tomu jeste nasel blizsi popis :
>
> ERROR_DIRECTORY
> The directory name is invalid.
>
> Takze asi jak tam nekde skladate jmeno
> tak se vam tam dostal naky nesmysl.
>
> McLEI
>
>IO error
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 6.8.1998 12:36:46
> Je to systemova chyba:
> 267L ERROR_DIRECTORY
>
> Ale co znamena ti bohuzel nevysvetlim
{ The directory name is invalid. }
ERROR_DIRECTORY = 267;
Tusim jsem to kdysi i s texty nasel v helpu k Win32 HLP pod Error Codes.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.CREATE DBF
[*] Daniela Buranska <buranska(zv)pvt.sk> - 6.8.1998 12:39:24
Da sa nejako vytvorit struktura pre DBF subor tak aby numericke polozky
mali rozne size. Metoda TTABLE CREATETABLE
na vytvorenie novych policok pouzivam
add(meno pola,ftinteger,0,false)
ak zadam size ine ako nula hlasi invalid field size
ftinteger implicitne pri size=0 da size 11
ftsmallint 6
Buranska
IO error
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1998 12:50:02
>> Udelal jsem si program, ktery komparuje obsah adresarove stromu
>> vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
>> CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
>> Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
>> ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
>> znamena ???? V helpu jsem tento kod nenasel.
>Jo ted sem k tomu jeste nasel blizsi popis :
>ERROR_DIRECTORY
>The directory name is invalid.
>Takze asi jak tam nekde skladate jmeno
>tak se vam tam dostal naky nesmysl.
> McLEI
Nemuze to byt tim, ze je to treba prilis dlouhe, string ma jen 256 znaku, ne ?
Neviditelne okno
[*] Jan Kuchar <kuchar(zv)tuke.sk> - 6.8.1998 13:05:19
Cau
A nedalo by sa v Delphi urobit nejaky rezidentny program pod W95, ktory by
zachytaval pohyb a klikanie mysi a symuloval by nejake stlacenie klavesy pre
mnou zvolenu aplikaciu.Zjisteni poctu dnu mesice & Secondary index.
[*] David Mach <scvk(zv)clnet(tec)cz> - 6.8.1998 13:14:42
create index <nazev indexu> on <nazev tabulky> (<polozka>[, <polozka>,
...]);
napr. create index rodic on tabulka (idrodice);
viz. Local SQL napoveda v BDE
David
-----P�vodn� zpr�va-----
Od: Dobromil Mal� [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odesl�no: 6. srpna 1998 9:25
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Zjisteni poctu dnu mesice & Secondary index.
Ale NE ! Prestupny rok splnuje podminku
(rok mod 400=0) or ((rok mod 4 =0) and (rok mod 100<>0))
Podle toho nize, by rok 1996 presupny NEBYL (true AND true AND false =
FALSE)
Dobra.
Howg.
PS: Uz jsem tu jeden dotaz vznesl, ale nedostal jsem zadnou odpoved, proto
bych pozadal jsete jednou, ty, kteri jsou zbehli v oblasti databazi.
Prosim o radu, jak vytvorit na tabulce, ktera jiz ma primarni index dals�,
sekundarni.
Tabulka je jiz vytvorena, je typu ttParadox a m� pole :
"ID" A 4 *
"IDRodice" A 4
"Prijmeni" A 20
"Jmeno" A 20
A chtel bych udelat index na poli IDRodice - v aplikaci ne v DB Desktopu !
Diky za pomoc, jak jsem jiz zminoval, s databezemi jsem "v plenkach" :-)
Dobromil Maly
mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
----------
Od: Dalibor Toman[SMTP:dtoman(zv)fortech(tec)cz]
Odesl�no: 5. srpna 1998 18:06
Komu: DELPHI Distribution List
P�edm�t: Re: Zjisteni poctu dnu mesice
>Prestupny rok splnuje podminku:
>
> (rok mod 4 = 0) and (rok mod 100 <> 0) and (rok mod 400 = 0)
konecne mam jasno - takze chrousti se lihnou kazdych 400 let :-)
Zdravi
D. Toman
IO error
[*] David Mach <scvk(zv)clnet(tec)cz> - 6.8.1998 13:24:52
Mozna by stalo za to, kdyby ten program tu chybu odchytil a zaznamenal ji spolu se jmenem adresare do nejakeho logu.
Zkus pouzit direktivy {$I-} a {$I+} na spravnych mistech...
David
-----P�vodn� zpr�va-----
Od: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
Odesl�no: 6. srpna 1998 11:25
Komu: DELPHI Distribution List
P�edm�t: RE: IO error
> Udelal jsem si program, ktery komparuje obsah adresarove stromu
> vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> znamena ???? V helpu jsem tento kod nenasel.
Jo ted sem k tomu jeste nasel blizsi popis :
ERROR_DIRECTORY
The directory name is invalid.
Takze asi jak tam nekde skladate jmeno
tak se vam tam dostal naky nesmysl.
McLEI
Drag Drop s obrazkem
[*] Milan CERMAK <Milan.Cermak(zv)vtupv(tec)cz> - 6.8.1998 13:40:08
Hi,
Potreboval bych provadet drag drop operaci tak,
ze s kurzorem se bude tahnout nejaka bitmapa.
Jako kdyz si pretahuji ikonky na plose (i vice
ikonek najednou).
Zkousel jsem experimentovat pomoci s vytvorenim
TDragControlObject a jeho fci GetDragImages, ale
nevodlo to k vysledku. Poradte prosim, jestli je to
spravna cesta nebo na to uplne jinudy.
Predem dekuji
Milan Cermak
Omluva / mnoho mailu (was RE: IO error)
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 6.8.1998 13:53:43
Zdravim vsechny,
a omlouvam se za duplicity mailu. Vsechy (dva) co jsem posilal se mi vracely
jako nedorucitelne s touto hlaskou:
554 <delphi(zv)pinknet(tec)cz>... Service unavailable
Proto jsem je zkusil poslat znovu a ejhle oni dosly vsechny.
Takze mne prosim nekamenujte. ZdeP
prantl(zv)ptc.pvt(tec)cz
HTML komponenta
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 6.8.1998 13:59:08
Zdravim,
existuje nejaka free komponenta na zobrazeni HTML stranek v aplikaci
napsane DELPHI 3?
Dekuji.
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)yahoo(tec)cz Error
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 6.8.1998 14:43:18
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Takle nejak to delam ja a kupodivu funguje
Milan Fiedler
Milanf(zv)rts(tec)cz
{procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;
procedure TForm1.AppException(Sender: TObject;E: Exception);
begin
frmError.ShowError(E);
end;}
{procedure TfrmError.AppException(Sender: TObject;E: Exception);
begin
ShowError(E);
end;}
procedure TfrmError.ShowError(AExc: {EDBEngineError} Exception);
var
Chyba, i, I1 : Integer;
begin
if AExc is EDBEngineError then
begin
// Tabulka := TName;
Memo2.Lines.Clear;
SL.Clear;
SL.Add('Number of errors: ' + IntToStr(EDBEngineError(AExc).ErrorCount));
SL.Add('');
{Iterate through the Errors records}
for i := 0 to EDBEngineError(AExc).ErrorCount - 1 do begin
if I = 0 then Memo2.Lines.Add('Database: '+GetDataBaseDir(DBASE NAME));
Memo2.Lines.Add('Zpr�va: ' + EDBEngineError(AExc).Errors[i].Message);
if (I = 1) then
begin
if Copy(EDBEngineError(AExc).Errors[i].Message, 1, 6) = 'Table:' then
begin
I1 := PieceLen(EDBEngineError(AExc).Errors[i].Message, '\');
SL.Add(Piece(EDBEngineError(AExc).Errors[i].Message, '\', I1));
end
else SL.Add(EDBEngineError(AExc).Errors[i].Message);
end;
Memo2.Lines.Add(' Kategorie: '+IntToStr(EDBEngineError(AExc).Errors[i].Category));
Memo2.Lines.Add(' K�d chyby: '+IntToStr(EDBEngineError(AExc).Errors[i].ErrorCode));
Chyba := EDBEngineError(AExc).Errors[i].ErrorCode;
Memo2.Lines.Add(' Podk�d: '+IntToStr(EDBEngineError(AExc).Errors[i].SubCode));
Memo2.Lines.Add(' P�vodn� chyba: '+IntToStr(EDBEngineError(AExc).Errors[i].NativeError));
end;
if Chyba > 0 then ZobrazHlaseni(Chyba);
end
else
Application.ShowException(AExc);
end;
Parametry dialeru
[*] Cap Jiri <cap(zv)fsih.cvut(tec)cz> - 6.8.1998 15:09:38
> Ahoj
> Potreboval bych z programu spustit dialer.exe a jako parametr mu predat
> tel.cislo.Spusteni bez problemu , ale dale se mi nedari tam to cislo
> dostat.
>
> Dekuji za pripadnou radu
>
> Lada
V Pruvodci vyvojare je na toto priklad :
//--------------------------
var
WERetVal: word;
FCommandLine: String;
begin
// do FCommandLine dej prikayovou radku programu, ohlidej delku,...
WETRetVal := WinExec( (zv)FCommandLine[0], sw_ShowNormal);
if WETRetVa < 32 then //chyba
//--------------------------
Jestli to funguje i s parametry nevim, ja jsem to nepouzival, jen
jsem si vzpomel, ze jsem o tom cet.
Zdar
Jiri
Neviditelne okno
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 6.8.1998 15:12:29
-----Puvodni zprava-----
Od: Jan Kuchar
Odeslano: 6. srpna 1998 10:24
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Neviditelne okno
Caute
Pred nedavnom som tuna zistoval ako vytvorit neviditelne okno. Podarilo sa.
Vsetko ma ale svoj hacik. Po spusteni tohto okna mozem zachytavat pohyb
mysi, ale nemozem spustat ine aplikacie ktore su vidiet - ikony na ploche.
Takze znovu ako vytvorit neviditelne okno pre zachytavanie pohybu mysi, ale
take, ktore umozni spustat aj ine aplikacie, ktore su cez to okno vidiet.
Dik
[Petr Brant]
Mozna, ze by se vsechno obeslo i bez pruhledneho okna s tim, ze budes pres
Timer odchytavat pozici kurzoru. To je ovsem vhodne jenpro zjisteni pozice,
nikoli odchyceni kliknuti. To by se pak musela pouzit nejaka funkce API,
ktera vezme handle desktopu a kouka, kde se co stalo. Ale momentalne mne
nic moudrejsiho nenapada. Vytvorit derave okno, skrz ktere lze klikat, by
sice slo, ale zase jak zjistit, kde se maji ty diry posadit, by asi nebylo
jednoduche. Kdyz tak napis (treba i soukromne), na co to potrebujes, treba
by to slo vyresit i jinak.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************Zjisteni poctu dnu mesice & Secondary index.
[*] medisoft(zv)uo.fairnet(tec)cz (Medisoft International - Usti) - 6.8.1998 15:28:55
Sekundarni index muzes vytvorit metodou
TTable.AddIndex('Jmeno indexu', 'Nazev pole', [])
tedy napr.
Table1.AddIndex('IDRodice', 'IDRodice', [])
Muzes rovnez pouzit SQL prikaz
CREATE INDEX Jmeno indexu ON Tabulka (Jmeno pole)
tedy napr.
CREATE INDEX IDRodice ON Tabulka (IDRodice)
Ahoj
Petr Hartman, Medisoft
----------
Od: Dobromil Mal�[SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odesl�no: 6. srpna 1998 10:25
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Zjisteni poctu dnu mesice & Secondary index.
Ale NE ! Prestupny rok splnuje podminku
(rok mod 400=0) or ((rok mod 4 =0) and (rok mod 100<>0))
Podle toho nize, by rok 1996 presupny NEBYL (true AND true AND false = FALSE)
Dobra.
Howg.
PS: Uz jsem tu jeden dotaz vznesl, ale nedostal jsem zadnou odpoved, proto bych pozadal jsete jednou, ty, kteri jsou zbehli v oblasti databazi.
Prosim o radu, jak vytvorit na tabulce, ktera jiz ma primarni index dals�, sekundarni.
Tabulka je jiz vytvorena, je typu ttParadox a m� pole :
"ID" A 4 *
"IDRodice" A 4
"Prijmeni" A 20
"Jmeno" A 20
A chtel bych udelat index na poli IDRodice - v aplikaci ne v DB Desktopu !
Diky za pomoc, jak jsem jiz zminoval, s databezemi jsem "v plenkach" :-)
Dobromil Maly
mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
----------
Od: Dalibor Toman[SMTP:dtoman(zv)fortech(tec)cz]
Odesl�no: 5. srpna 1998 18:06
Komu: DELPHI Distribution List
P�edm�t: Re: Zjisteni poctu dnu mesice
>Prestupny rok splnuje podminku:
>
> (rok mod 4 = 0) and (rok mod 100 <> 0) and (rok mod 400 = 0)
konecne mam jasno - takze chrousti se lihnou kazdych 400 let :-)
Zdravi
D. Toman
IO error
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.8.1998 15:29:38
Taky mozna slo udelat neco takoveho :
procedure XXXXX(AKde : string);
var SearchRec : TSearchRec;
begin
Found:=FindFirst(AKde+'\*.*', faAnyFile, SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.')
and (SearchRec.Name<>'..')
and (SearchRec.Attr=(SearchRec.Attr or faDirectory))
then {
Pridej ho do seznamu, je to adresar a
zavolej rekurzivne sebe sama, tedy XXXXX(AKde+'\'+SearchRec.Name)
}
Found:=FindNext(SearchRec);
end;
FindClose(SerachRec);
end;
Ve FindFirst('*.*', faDirectory, SearchRec) se to >faDirectory< skutecne pouzit neda, protoze to nenejde adresare s atributem hidden nebo system.
Dobra.
----------
Od: Michal Brabec[SMTP:mbrabec(zv)ciglersw(tec)cz]
Odesl�no: 6. srpna 1998 12:35
Komu: DELPHI Distribution List
P�edm�t: RE: IO error
..Tam sem zjistil, ze napr. fce DirectoryExists vrati false na
adresari, ktery sice existuje, ale ma atribut read only (coz je na CD).
Nejake problemy sem taky mel kdyz mel adresar atribut archiv...
> -----Original Message-----
> From: Michal Leinweber [mailto:M.Leinweber(zv)sh.cvut(tec)cz]
> Sent: Thursday, August 06, 1998 11:25 AM
> To: DELPHI Distribution List
> Subject: RE: IO error
>
>
> > Udelal jsem si program, ktery komparuje obsah adresarove stromu
> > vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> > CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> > Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> > ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> > znamena ???? V helpu jsem tento kod nenasel.
>
> Jo ted sem k tomu jeste nasel blizsi popis :
>
> ERROR DIRECTORY
> The directory name is invalid.
Porovnavani obrazku
[*] Roman Ka�ovsk� - 6.8.1998 15:53:21
Mam takovy (v soucasne dobe ciste teoreticky) dotaz:
Jak lze nejakym jednoduchym zpusobem porovnavat obrazky (ne rozmery a pod,
ale obsah)
O co mi jde ?
Uvedu priklad:
1. varianta:
Videokamera (nebo nejaky podobny pristroj) sejme jednou za cas (dejme tomu
jednou za cca 30 s) obraz nejake sceny (napr. vchodu).
Program sejmuty obraz porovna s idealnim stavem (ulozenym nekde na disku).
Pokud se budou obrazky ruzne, spusti nahravani zaberu videokamery na video a
polach.
2. slozitejsi varianta:
Videokamera u vchodu sejme oblicej prichazejiciho a program jej porovna s
databazi lidi, kterym je povolen vstup. Pokud oblicej odpovida nejakem
vzoru, tak otevre vstup.
Predpokladam, ze bude treba prevod obrazku na krivky (OCR, TRACE nebo jak se
to jmenuje) a pak tyto krivky porovnavat. Ale jak ?
Dik Roman K.
Neviditelne okno
[*] Pavel Kral <kral(zv)afx(tec)cz> - 6.8.1998 16:09:41
Jasne ze slo, vzdyt jsem o tom vcera psal.
Viz hook funkce windows a posilani zprav na zvolenou aplikaci.
Pavel Kral
-----Original Message-----
From: Jan Kuchar <kuchar(zv)tuke.sk>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 6. srpna 1998 15:10
Subject: Re: Neviditelne okno
>Cau
>A nedalo by sa v Delphi urobit nejaky rezidentny program pod W95, ktory by
>zachytaval pohyb a klikanie mysi a symuloval by nejake stlacenie klavesy
pre
>mnou zvolenu aplikaciu.
>
>
Memo
[*] Pavel Kral <kral(zv)afx(tec)cz> - 6.8.1998 16:15:00
Ahoj
-----Original Message-----
From: kubork(zv)post.sk <kubork(zv)post.sk>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 6. srpna 1998 7:05
Subject: Memo
>Nazdar,
>
>1,
>potreboval by som zistit poziciu kurzora (na ktorom riadku sa nachadza) v
meme. Hladal som nieco v helpe ale nic som nenasiel a s API funkciami nemam
skusenosti.
>
Podle TI na Inprise
The trick is to use the em_LineFromChar message. Try this:
procedure TMyForm.BitBtn1Click(Sender: TObject);var iLine : Integer ;begin
iLine := Memo1.Perform(em_LineFromChar, $FFFF, 0);
{ Note: First line is zero }
messageDlg('Line Number: ' + IntToStr(iLine), mtInformation,
[mbOK], 0 ) ;end;
>2,
>existuje funkcia, ktora vrati z celej cesty suboru iba jeho nazov?
>
Soubor := ExtractFileName(SouborSCestou)
Pavel Kral
Odkazy pro novacky
[*] Pavel Kral <kral(zv)afx(tec)cz> - 6.8.1998 16:18:22
Ahoj
Doporucuji nove prihlasenym podporu na strankach Inprise:
http://www.inprise.com/devsupport/delphi/ti_list/
kde jsou popsany casto resene problemy (Bohuzel v anglictine)
Dale jsou odkazy na strankach www.delphi(tec)cz a take
archiv teto konference.
Zdravim
Pavel
Parametry dialeru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.8.1998 16:29:32
>Ahoj
>Potreboval bych z programu spustit dialer.exe a jako parametr mu predat
>tel.cislo.Spusteni bez problemu , ale dale se mi nedari tam to cislo
>dostat.
proc netocit spojeni primo pomociRasDial z RASAPI ??Muzes si pak volit
cislo jake chces...
Zdravi
D. Toman
Porovnavani obrazku
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 06.8.1998 18:32:50
Caute,
podobne veci sa asi najlepsie robia modelmi neuronovych sieti...
mam nieco v C++ na rozpoznavanie vzorov... (treba poziadat)
Roman Ka�ovsk� wrote:
> Mam takovy (v soucasne dobe ciste teoreticky) dotaz:
> Jak lze nejakym jednoduchym zpusobem porovnavat obrazky (ne rozmery a pod,
> ale obsah)
> O co mi jde ?
>
> Uvedu priklad:
> 1. varianta:
> Videokamera (nebo nejaky podobny pristroj) sejme jednou za cas (dejme tomu
> jednou za cca 30 s) obraz nejake sceny (napr. vchodu).
> Program sejmuty obraz porovna s idealnim stavem (ulozenym nekde na disku).
> Pokud se budou obrazky ruzne, spusti nahravani zaberu videokamery na video a
> polach.
>
> 2. slozitejsi varianta:
> Videokamera u vchodu sejme oblicej prichazejiciho a program jej porovna s
> databazi lidi, kterym je povolen vstup. Pokud oblicej odpovida nejakem
> vzoru, tak otevre vstup.
>
> Predpokladam, ze bude treba prevod obrazku na krivky (OCR, TRACE nebo jak se
> to jmenuje) a pak tyto krivky porovnavat. Ale jak ?
>
> Dik Roman K.
--
Majte sa,
R.
odhlasenie z tejto groupy :-)
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 6.8.1998 18:48:23
On Thursday, August 06, 1998 11:46 AM, Radoslav Balvan
[SMTP:balvanra(zv)datalock.sk] wrote:
> UNSUBSCRIBE? ;-))
A je to dotaz nebo provokace...? :))
Staci napsat "UNSUB DELPHI", ale hlavne se to musi poslat na uuuuuplne jinou
adresu (listserv(zv)pinknet(tec)cz).
Nakonec - chlapi - pouzivejte radsi ty formulare na http://www.delphi(tec)cz/,
ty to poslou tam, kam maj...
Anebo vite co - neodhlasujte se vubec....!
Tomas
Vyvolanie reakcie
[*] Pavel Kral <kral(zv)afx(tec)cz> - 6.8.1998 18:50:06
No prece pri sendMessage specifikujes v obsahu zpravy, jaka klavesa
a v jakem je stavu
vice v helpu k Win32 pod wm_keyDown
Pavel Kral
-----Original Message-----
From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 6. srpna 1998 16:25
Subject: Re: Vyvolanie reakcie
Lenze ako dam vediet tomu druhemu programu, ze je stalcena prave klavesa A a
nie klavesa B
Porovnavani obrazku
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 6.8.1998 18:53:21
Mam kolegu ktery se zabyva softwarem pro obrazove zabezpecovaci systemy
a muzu ti s klidnym svedomim rict ze to co popisujes je natolik slozita
zalezitost, ze to proste jednoduse nejde. U snimani nejakeho mista
videokamerou muze dochazet ke stmivani a rozsvecovani svetel, nebo den a
noc, nehlede na pohyb veci pri zavanu vetru. Nejslozitejsi je to u
snimani exterieru, kde se musi odfiltrovat pohyb listi a vetvi na
stromech a letajici zver od pohybu lidi. U snimani obliceje nastava
stejny problem - to znamena problem pozadi a jeho zmeny, problem
natoceni, vzdalenosti, osvetleni atd. atd. Kazda renomovana firma, ktera
ma pro tyto pripady zpracovane algoritmy si je peclive hlida a dost
tezko by se daly sehnat a kdyz ano tak muzu rict ze solidni algoritmy,
ktere resi vyse jmenovane problemy stoji nekrestanske penize.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Roman Ka�ovsk� [SMTP:rkan(zv)ms.anet(tec)cz]
> Odesl�no: 6. srpna 1998 15:53
> Komu: DELPHI Distribution List
> P�edm�t: Porovnavani obrazku
>
> Mam takovy (v soucasne dobe ciste teoreticky) dotaz:
> Jak lze nejakym jednoduchym zpusobem porovnavat obrazky (ne rozmery a
> pod,
> ale obsah)
> O co mi jde ?
>
> Uvedu priklad:
> 1. varianta:
> Videokamera (nebo nejaky podobny pristroj) sejme jednou za cas (dejme
> tomu
> jednou za cca 30 s) obraz nejake sceny (napr. vchodu).
> Program sejmuty obraz porovna s idealnim stavem (ulozenym nekde na
> disku).
> Pokud se budou obrazky ruzne, spusti nahravani zaberu videokamery na
> video a
> polach.
>
> 2. slozitejsi varianta:
> Videokamera u vchodu sejme oblicej prichazejiciho a program jej
> porovna s
> databazi lidi, kterym je povolen vstup. Pokud oblicej odpovida nejakem
> vzoru, tak otevre vstup.
>
> Predpokladam, ze bude treba prevod obrazku na krivky (OCR, TRACE nebo
> jak se
> to jmenuje) a pak tyto krivky porovnavat. Ale jak ?
>
> Dik Roman K.
> IO error
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 6.8.1998 20:12:44
Teoreticky by to slo odchytit, ale je tu drobny problemek:
vsechny operace jsou v TRY...EXCEPT...END, program slouzi k nalezeni
chyb, chyba ho tudiz nesmi zablokovat. Pres vsechna opatreni
se chyba objevuje.
Chyba neni zpusobena pretecenim cisla, adresarova struktura se
nejprve nacte do TStringListu, a az potom se testuji soubory.
Chyba se objevuje az pri testovani souboru. To uz jsou vsechny
promenne naplneny.
Chyba neni zpusobena pretecenim retezce, jsou tam mnohem zanorenejsi
soubory, ktere projdou.
Podarilo se mi izolovat podadresar i soubor, kde k tomu dochazelo.
Podarilo se mi i ze se chyba objevila na tomto podadresari pri
testovani jenom 70 souboru. Bohuzel, nevim proc, po nejake udalosti
to jiz chybu nehlasi.
Dobrou stopou by mohl byt Archivni attribut, o kterem psal Michal
Brabec, ty jsou nastaveny vsude. Ve jmene souboru i adresare je znak
pomlcka, ale ten snad je OK, neee.
S pozdravem Zdenek
---------------------------------------------------------------
: o__o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
: ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
---------------------------------------------------------------
This message was delivered using 100% recyclable electrons.
> Mozna by stalo za to, kdyby ten program tu chybu odchytil a zaznamenal ji spolu se jmenem adresare do nejakeho logu.
> Zkus pouzit direktivy {$I-} a {$I+} na spravnych mistech...
>
> David
>
> > Udelal jsem si program, ktery komparuje obsah adresarove stromu
> > vcetne kompace souboru. Hlavne ho pouzivam na komtrolu vypalenych
> > CD, kdyz zdrojova data prenasim po ZIPce nebo jinak.
> > Funguje bez problemu, ale vcera byl pusten na 6.7 GB dat
> > ze zalohovani a nekdy v pulce prohlasil "I/O error 267". Co to
> > znamena ???? V helpu jsem tento kod nenasel.
>
> Jo ted sem k tomu jeste nasel blizsi popis :
>
> ERROR_DIRECTORY
> The directory name is invalid.
>
> Takze asi jak tam nekde skladate jmeno
> tak se vam tam dostal naky nesmysl.
>
> McLEI
Problem s SQL
[*] Martin Gruber <gruber_mart(zv)hotmail(tec)com> - 06.8.1998 23:51:19 pdt
Dokaze te mi nekdo poradit jakym zpusobem bych mel pomoci SQL rict SQL
serveru aby mi do textu vzal tento znak '
Dekuji vsem Alex
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
wildcards
[*] Miki Vom��ka����h���h��� - 7.8.1998 01:10:35
Ahoj vsem,
poradi mi nekdo jak pri kopirovani souboru pouzit zastupne znaky( *.dbf
apod.).
Miki Vomacka
vmiki(zv)post(tec)cz
wildcards
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 7.8.1998 06:53:38
Nazdar,
posielam jeden napad z konferencie.
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
//******************************************************************************
{ Potreboval bych zkopirovat halfu souboru v DELPHI je na to nejak fce
ktera by kopirovala podle hvezdickove konvence napr.
copy(source+'*.aa1',target+'*.aa1');
Tak si ji udelej:
Napr:}
function kopiruj(sPathSrc,sPathDest,sName: string): integer;
var
iRes : integer;
bVysl : boolean;
Src : TSearchRec;
begin
iRes:=FindFirst(sPathSrc+sName,faAnyFile ,Src);
WHILE iRes=0 DO
BEGIN
bVysl:=CopyFile(Pchar(sPathSrc+Src.Name),Pchar(sPathDest+Src.Name),TRUE);
iRes:=FindNext(Src);
END;
FindClose(Src);
Result :=iRes;
end;
{Potom se vola treba takto : kopiruj('C:\TMP\','C:\TEMP\','*.*')
Samozrejme se to necha jeste vylepsit, doplnit...}
Zdenek
prantl(zv)ptc.pvt(tec)cz
//******************************************************************************
----------
> Odes�latel: Miki Vom��ka <vmiki(zv)post(tec)cz>
> Komu: DelphiForum <delphi(zv)pinknet(tec)cz>
> P�edm�t: wildcards
> Datum: 7. august 1998 1:10
>
> Ahoj vsem,
>
> poradi mi nekdo jak pri kopirovani souboru pouzit zastupne znaky( *.dbf
> apod.).
>
> Miki Vomacka
> vmiki(zv)post(tec)cz
Porovnavani obrazku
[*] Marian Mor�ol <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 7.8.1998 06:58:19
O tu verzi v C++ bych mel taky zajem. Diky.
> -----P�vodn� zpr�va-----
> Od: Radoslav Balvan [SMTP:balvanra(zv)datalock.sk]
> Odesl�no: 6. srpna 1998 18:33
> Komu: DELPHI Distribution List
> P�edm�t: Re: Porovnavani obrazku
>
> Caute,
>
> podobne veci sa asi najlepsie robia modelmi neuronovych sieti...
> mam nieco v C++ na rozpoznavanie vzorov... (treba poziadat)
>
>
> Roman Ka�ovsk� wrote:
>
> > Mam takovy (v soucasne dobe ciste teoreticky) dotaz:
> > Jak lze nejakym jednoduchym zpusobem porovnavat obrazky (ne rozmery
> a pod,
> > ale obsah)
> > O co mi jde ?
> >
> > Uvedu priklad:
> > 1. varianta:
> > Videokamera (nebo nejaky podobny pristroj) sejme jednou za cas
> (dejme tomu
> > jednou za cca 30 s) obraz nejake sceny (napr. vchodu).
> > Program sejmuty obraz porovna s idealnim stavem (ulozenym nekde na
> disku).
> > Pokud se budou obrazky ruzne, spusti nahravani zaberu videokamery na
> video a
> > polach.
> >
> > 2. slozitejsi varianta:
> > Videokamera u vchodu sejme oblicej prichazejiciho a program jej
> porovna s
> > databazi lidi, kterym je povolen vstup. Pokud oblicej odpovida
> nejakem
> > vzoru, tak otevre vstup.
> >
> > Predpokladam, ze bude treba prevod obrazku na krivky (OCR, TRACE
> nebo jak se
> > to jmenuje) a pak tyto krivky porovnavat. Ale jak ?
> >
> > Dik Roman K.
>
> --
> Majte sa,
> R.Memo
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 7.8.1998 07:08:11
-----Puvodni zprava-----
Od: kubork(zv)post.sk
Odeslano: 6. srpna 1998 7:06
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Memo
Nazdar,
1,
potreboval by som zistit poziciu kurzora (na ktorom riadku sa nachadza) v
meme. Hladal som nieco v helpe ale nic som nenasiel a s API funkciami nemam
skusenosti.
2,
existuje funkcia, ktora vrati z celej cesty suboru iba jeho nazov?
zaciatocnik v delphi Rado
********************************************************
Ing. Kubala Radomir
kubork(zv)post.sk
peperk(zv)hotmail.com
[Petr Brant]
1. Bohuzel, netusim.
2.function ExtractFileName(const FileName: string): string;
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
Spustanie Browsera (part 2) :)
[*] Peter SIMKOVIC <simkovic(zv)vadium.sk> - 07.8.1998 07:36:59
caute,
To som napisal, ale funguje to iba na pocitacoch kde bol nainstalovany IE,
tam kde bol Netscape ako predvoleny browser a IE nebol vobec nainstalovany
mi to jednoducho nespusti nic. Funguje iba posielanie majlov (to tiez
otvori Internet Mail) ale ten v pocitaci je a tak to funguje. Existuje
este nejaky iny sposob ako to urobit?
At 16:54 4.8.1998 +0200, you wrote:
>Zdar,
>pomoci ShellExecute a misto jmena programu dej http://adresa(tec)cz.
>
>WHandle := ShellExecute(Application.Handle, nil, 'http://adresa(tec)cz', '', '',
>SW_SHOWNORMAL);
>if WHandle = SE_ERR_NOASSOC then {error}
>
>To stejny udelas na postu ale das mailto:meno(zv)adresa(tec)cz. A system by uz mel
>zaridit vse ostatni.
>
>Michal, mailto:mbrabec(zv)ciglersw(tec)cz
>
>> -----Original Message-----
>> From: Peter SIMKOVIC [mailto:simkovic(zv)vadium.sk]
>> Sent: Tuesday, August 04, 1998 2:15 PM
>> To: delphi(zv)pinknet(tec)cz
>> Subject: Spustanie Browsera (part 2) :)
>>
>>
>> zdravim,
>>
>> chcel by som sa vas opytat, ako odoslat web browseru nejaku
>> adresu, ked je
>> tento browser uz spusteny, zaroven aby to bolo nezavisle na type browsera.
>>
>> vdaka
>> SIMKOVIC Peter
>> simicek(zv)vadium.sk
>> simkovic(zv)vadium.sk
SIMKOVIC Peter
simicek(zv)vadium.sk
simkovic(zv)vadium.sk
http://www.vadium.sk/simi
and web admin of:
www.drazba.sk
wildcards
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 7.8.1998 07:36:08
Ja jsem zacal pouzivat Win32 API SHFileOp. Na dalsi moznosti (mazani,
presun, prejmenovani, bez animace) se podivej do API reference
var SH: TSHFileOpStructA;
F, S, T: String;
begin
S := 'C:\MyData\';
F := S + 'FAZE.*'#0 + S + 'OSOBA.*'#0 + S + 'PROCES.*'#0 + S +
'SKUPINA.*'#0
+ S + 'VYROBEK.*'#0#0;
T := 'A:\';
if MessageDlg('Mohu kop�rovat do ' + T + ' ?', mtConfirmation, [mbYes,
mbNo], 0) <> mrYes then
exit;
With SH do
Begin
Wnd:=0;
wFunc:=FO_COPY;
pFrom:=Pchar(F);
pTo :=Pchar(T);
fFlags:=FOF_FILESONLY;
End;
if shFileOperation(SH) = 0 then
ShowMessage('Export probihl vpoo�dku.')
else
ShowMessage('Kop�rov�n� neprobihlo vpoo�dku!';
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Miki Vom��ka [SMTP:vmiki(zv)post(tec)cz]
> Odesl�no: 7. srpna 1998 1:11
> Komu: DelphiForum
> P�edm�t: wildcards
>
> Ahoj vsem,
>
> poradi mi nekdo jak pri kopirovani souboru pouzit zastupne znaky( *.dbf
> apod.).
>
> Miki Vomacka
> vmiki(zv)post(tec)cz
sortovanie datumov
[*] Peter SIMKOVIC <simkovic(zv)vadium.sk> - 07.8.1998 07:39:06
Zdravim,
mam opat jeden maly problem. Potreboval by som vediet ako je mozne
sortovat v StringGride nejaky stlpec podla datumu.
diki
SIMKOVIC Peter
simicek(zv)vadium.sk
simkovic(zv)vadium.sk
http://www.vadium.sk/simi
and web admin of:
www.drazba.sk
HTML komponenta
[*] kchmel(zv)post(tec)cz - 7.8.1998 07:40:24
Na DSP je mozno najit komponentu HTMLView. Mam ji stazenou ale jeste jsem ji nezkousel.
> Zdravim,
>
> existuje nejaka free komponenta na zobrazeni HTML stranek v aplikaci
> napsane DELPHI 3?
> Dekuji.
>
> S pozdravem
>
> Libor Krayzel
> Czech Television, Television Studio Ostrava
> Dvorakova 18
> 729 20 Ostrava
>
> Phone: (069) 6201 375
> E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/~sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)yahoo(tec)cz
>
TWaveIn a TWaveOut
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 7.8.1998 07:42:56
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
hi
prosim vas nema nekdo zkusenosti s komponentami TwaveIn a TWaveOut ?
ja jsem si je stahnul ale bohuzel pri volani libovolne funkce techto komponent to po mne chce audio.pas, pricemz jsou tyto komponenty distribuovany jen jako audio.dcu ?CREATE DBF
[*] David Mach <scvk(zv)clnet(tec)cz> - 7.8.1998 07:45:57
Numericke typy INTEGER a SMALLINT maji implicitni velikost, tj. 11 a 6 bajtu. S tim se neda nic delat...
Pokud chces pouzit vetsi cislo nebo cislo s desetinnou carkou, pouzij NUMERIC.
Bye, David
-----P�vodn� zpr�va-----
Od: Daniela Buranska [SMTP:buranska(zv)pvt.sk]
Odesl�no: 6. srpna 1998 12:39
Komu: Delphi Distribution List
P�edm�t: CREATE DBF
Da sa nejako vytvorit struktura pre DBF subor tak aby numericke polozky
mali rozne size. Metoda TTABLE CREATETABLE
na vytvorenie novych policok pouzivam
add(meno pola,ftinteger,0,false)
ak zadam size ine ako nula hlasi invalid field size
ftinteger implicitne pri size=0 da size 11
ftsmallint 6
Buranska
Interbase & character sets
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 07.8.1998 07:47:34
Caute,
1.
mate skusenosti so spravanim sa Interbase, pri pokuse o zapis nejakych
ceskych/slovenskych
znakov do tabulky?
moj problem: 1. vytvorim si databazu s default character set WIN1252
2. vytvorim si nejaku tabulku s varchar stlpcom (a
jednym INTEGER stlpcom
ako ID - primarny kluc)
TB_ZIAK ----- ZIAK_ID INTEGER NOT
NULL,
MENO
VARCHAR(30) 3. pokusim sa do nej zapisat (1,'Antonko') - v
pohode
(2,'Jo�ko') - CHYBA!!
- arithmetic evaluation/
string truncation error
- cannot transliterate string
into different character set
a 2.
toto sa tyka COLLATION ORDERs
ktory collation order mam pouzit, aby taketo pole (jano,
albert,Jano,Albert, Laco, �udmila)
utriedil takto
(Albert, albert, Jano, jano,Laco, �udmila)
a NIE takto
(Albert, Jano, Laco, albert, jano, �udmila)
diky moc za hocijaky osvetlovaci komentar, nazory atd.
--
Majte sa,
R.
odhlasenie z tejto groupy :-)
[*] David Mach <scvk(zv)clnet(tec)cz> - 7.8.1998 07:52:38
Tento problem se tyka tohoto nestastnika: Goodrum, Martin. GOODRUM2
[martin.goodrum(zv)bt.com] a par dalsich, kteri maji e-mail klienta, ktery jim
do SUBJ (kdyz ho nevyplni) vklada <none>...
D.
DEL1.MB
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 7.8.1998 07:55:44
Nazdar,
neviete, ako sa da nastavit adresar pre temp subory (IB, D3)?
Ak viete ako, prosim napiste. Dakujem.
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Porovnavani obrazku
[*] Roman Ka�ovsk� - 7.8.1998 08:19:17
No abych se priznal, tusil jsem to, ale stejne dik. U aplikace ve ktere by
se to melo pouzivat (mozna), ale odpadaji nektere problemy dole uvedene
(napr. mela by se snimat "staticka" scena s konstantnim osvetlenim (napr.
dvere trezoru), takze v podstate se jedna o rozpoznani velkych zmen
(otevreni dveri, neco navic). Ale jak jsem napsal, je to jen ciste
teoreticky problem o jehoz posouzeni mne pozadal jeden znamy vlastnici
bezpecnostni agenturu
Roman K.
-----P�vodn� zpr�va-----
Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 6. srpna 1998 19:27
P�edm�t: RE: Porovnavani obrazku
>Mam kolegu ktery se zabyva softwarem pro obrazove zabezpecovaci systemy
>a muzu ti s klidnym svedomim rict ze to co popisujes je natolik slozita
>zalezitost, ze to proste jednoduse nejde. U snimani nejakeho mista
>videokamerou muze dochazet ke stmivani a rozsvecovani svetel, nebo den a
>noc, nehlede na pohyb veci pri zavanu vetru. Nejslozitejsi je to u
>snimani exterieru, kde se musi odfiltrovat pohyb listi a vetvi na
>stromech a letajici zver od pohybu lidi. U snimani obliceje nastava
>stejny problem - to znamena problem pozadi a jeho zmeny, problem
>natoceni, vzdalenosti, osvetleni atd. atd. Kazda renomovana firma, ktera
>ma pro tyto pripady zpracovane algoritmy si je peclive hlida a dost
>tezko by se daly sehnat a kdyz ano tak muzu rict ze solidni algoritmy,
>ktere resi vyse jmenovane problemy stoji nekrestanske penize.
>
> S pozdravem
> Zdenek Petruj
>____________________________
>adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
>____________________________
>tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
>e-mail: zpetruj(zv)zebra(tec)cz
>internet: http://www.zebra(tec)cz
>
>
>> -----P�vodn� zpr�va-----
>> Od: Roman Ka�ovsk� [SMTP:rkan(zv)ms.anet(tec)cz]
>> Odesl�no: 6. srpna 1998 15:53
>> Komu: DELPHI Distribution List
>> P�edm�t: Porovnavani obrazku
>>
>> Mam takovy (v soucasne dobe ciste teoreticky) dotaz:
>> Jak lze nejakym jednoduchym zpusobem porovnavat obrazky (ne rozmery a
>> pod,
>> ale obsah)
>> O co mi jde ?
>>
>> Uvedu priklad:
>> 1. varianta:
>> Videokamera (nebo nejaky podobny pristroj) sejme jednou za cas (dejme
>> tomu
>> jednou za cca 30 s) obraz nejake sceny (napr. vchodu).
>> Program sejmuty obraz porovna s idealnim stavem (ulozenym nekde na
>> disku).
>> Pokud se budou obrazky ruzne, spusti nahravani zaberu videokamery na
>> video a
>> polach.
>>
>> 2. slozitejsi varianta:
>> Videokamera u vchodu sejme oblicej prichazejiciho a program jej
>> porovna s
>> databazi lidi, kterym je povolen vstup. Pokud oblicej odpovida nejakem
>> vzoru, tak otevre vstup.
>>
>> Predpokladam, ze bude treba prevod obrazku na krivky (OCR, TRACE nebo
>> jak se
>> to jmenuje) a pak tyto krivky porovnavat. Ale jak ?
>>
>> Dik Roman K.
>>
>
sortovanie datumov
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 7.8.1998 08:23:53
> mam opat jeden maly problem. Potreboval by som vediet ako je mozne
> sortovat v StringGride nejaky stlpec podla datumu.
>
> diki
>
Ja by som asi datumy prevadzal cez StrToDate a potom uz iba triedil s nejakym algoritmom.
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
HTML komponenta
[*] Krautvor Ale� <krautvor(zv)mona(tec)cz> - 07.8.1998 08:27:44
Je to i pro D(zv) ?
Ales Krautvor
kchmel(zv)post(tec)cz wrote:
> Na DSP je mozno najit komponentu HTMLView. Mam ji stazenou ale jeste jsem ji nezkousel.
>
> > Zdravim,
> >
> > existuje nejaka free komponenta na zobrazeni HTML stranek v aplikaci
> > napsane DELPHI 3?
> > Dekuji.
> >
> > S pozdravem
> >
> > Libor Krayzel
> > Czech Television, Television Studio Ostrava
> > Dvorakova 18
> > 729 20 Ostrava
> >
> > Phone: (069) 6201 375
> > E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> > Homepage: http://members.tripod.com/~sovtop
> > Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> > E-mail2: mailto:sovtop(zv)yahoo(tec)cz
> >
>
--
********************************************************************
* Mona v.o.s. *
* krautvor(zv)mona(tec)cz Ales Krautvor *
* tel.: 96 162 404 Mala Stepanska 17 *
* 120 79 Praha 2 *
* -O|O- "Nemusi prset, pokud aspon kape." *
********************************************************************
Porovnavani obrazku
[*] Cap Jiri <cap(zv)fsih.cvut(tec)cz> - 7.8.1998 08:32:00
> Mam takovy (v soucasne dobe ciste teoreticky) dotaz:
> Jak lze nejakym jednoduchym zpusobem porovnavat obrazky (ne rozmery a pod,
> ale obsah)
> O co mi jde ?
>
> Uvedu priklad:
> 1. varianta:
> Videokamera (nebo nejaky podobny pristroj) sejme jednou za cas (dejme tomu
> jednou za cca 30 s) obraz nejake sceny (napr. vchodu).
> Program sejmuty obraz porovna s idealnim stavem (ulozenym nekde na disku).
> Pokud se budou obrazky ruzne, spusti nahravani zaberu videokamery na video a
> polach.
>
> 2. slozitejsi varianta:
> Videokamera u vchodu sejme oblicej prichazejiciho a program jej porovna s
> databazi lidi, kterym je povolen vstup. Pokud oblicej odpovida nejakem
> vzoru, tak otevre vstup.
>
> Predpokladam, ze bude treba prevod obrazku na krivky (OCR, TRACE nebo jak se
> to jmenuje) a pak tyto krivky porovnavat. Ale jak ?
>
> Dik Roman K.
Ahoj,
pro identifikaci obrazu se pouzivaji metody:
1. idetifikace objektu od pozadi (metoda zalezi na aplikaci) a
nasledna "metrologie objektu" s porovnanim nejakych vzoru.
2. pro porovnani celych obrazu spocotat korelacni funkci noveho
obrazu a vzoru. Cim je hodnota korelace vetsi, tim je
indikovana lepsi shoda
3. postupny vypocet korelacni funkce obrazu a vzorove masky (obrazku
hledaneho objektu) a v miste nejvetsi hodnoty korelacni funkce lze
predpokladat vyskyt hledaneho predmetu. Muse vzit v uvahu mozna
meritka a natoceni hledaneho objektu v obraze. Neni to zcela
trivialni a je to znacne narocne na vypocetni cas (zavisi na
velikosti obrazu, masky, postu hodnocenych variant.... )
S pozdravem
Jiri Cap
cap(zv)fsih.cvut(tec)cz
Spustanie Browsera (part 2) :)
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 7.8.1998 08:54:11
To som napisal, ale funguje to iba na pocitacoch kde bol nainstalovany IE,
tam kde bol Netscape ako predvoleny browser a IE nebol vobec nainstalovany
mi to jednoducho nespusti nic.
[[JS]]
Tento problem som mal aj ja. Teraz pouzivam komponentu z DSP TGotoWeb je free a este k tomu so zdrojakom.
Kontakt na autora je cresto(zv)mygale.org
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz