Archív konference Delphi

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

ovladani klavesnici

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.3.1999 00:48:48

Puvodni zprava, kterou napsal Jan Pomikalek dne 30 Mar 99,:

> mam maly problem. Kdyz si vlozim na formular vice tlacitek a chci je
> ovladat pouze pomoci mysi a pomoci horkych klaves, tedy ne pomoci
> tabelatoru a enteru, jak na to? Jde samozrejme nastavit u vsech tlacitek
> TabStop:= false, ale jakmile se pak na nejake tlacitko klikne mysi, stane
> se bez ohledu na toto nastaveni aktivnim. Takze kdyz pak stisknu enter,
> ktery mam nastaveny jako horkou hlavesu, tak se mi misto prikazu
> prirazeneho horke klavese, stiskne aktivni tlacitko. Da se tomu nejak
> zamezit?

Tak nepouzivej TButtony nebo TBitButtony, ale TSpeedButtony nebo
jak se to jmenuje...


S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== 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 ===
==============================================================
ICQ: 21215917, PGP vitano


Zdrojaky pre NMPOP3 & NMSMTP

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.3.1999 00:53:35

Puvodni zprava, kterou napsal Mat�� Kiczko dne 30 Mar 99,:

> neviete niekto, kde su pristupne zdrojove subory k nativnym komponentam
> NMSMTP a NMPOP3, ktore su standartne dodavane s D4? Mali to urobit chlapci
> z NetMasters L.L.C., ale URL www.netmastersllc.com je nedostupne a nic ine

Az se na ten web dostanes, tak zjistis, ze zdrojaky prodavaji (nejsou
soucasti Delphi), ale jsou pekne mastne...


S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== 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 ===
==============================================================
ICQ: 21215917, PGP vitano


RXLIB a Windows 98

[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 31.3.1999 03:17:34

Ahoj.

Podarilo se nekomu nainstalovat RXLIB pro Delphi 4 na Windows 98 ?
Trapil jsem se s tim asi 3 hodiny a nic.
Postup jsem myslim dodrzel:

*1. Delphi 4.x:
*
*Uninstall previous installed version of RX Library from Delphi 4 IDE.
*Remove previously compiled RX packages (if any) RXCTL4.BPL, RXDB4.BPL,
*DCLRX4.BPL and DCLRXDB4.BPL from your hard disk.

Nic tam nebylo. Pri nasledujicich pokusech jsem mazal.

*Use "File\Open..." menu item of Delphi IDE to open RX' runtime
*package RXCTL4.DPK. In "Package..." window click "Compile" button to
*compile packages RXCTL4.DPK. After compiling repeat that for other RX
*Library run-time package RXDB4.DPK. Put compiled BPL files into directory
*that is accessible through the search PATH (i.e. DOS "PATH" environment
*variable; for example, in the Windows\System directory). After
*compiling RX run-time packages you must install RX design-time packages
*into the IDE.

Po zkompilovani RXCTL4.DPK a RXDB4.DPK jsem p�esunul *.BPL do adresare
c:\windows\system
Zmeny jsem neukladal ( viz NOTE nize)
Pro jistotu jsem restartoval stroj.*Use "File\Open..." menu item to open consistently RX design-time
*packages DCLRX4.DPK (MUST be first) and DCLRXDB4.DPK.
*In "Package..." window click "Install" button to register RX Library
*components on the "RX Controls", "RX DBAware" and "RX Tools" pages.

Uz pri pokusu instalovat DCLRX4.DPK totalne zamrzl stroj (jen HW reset jinak
zcela tuhe) po restartu hlasil scandisk poskozeni nekterych *.DCU v
..Delphi4\RX\ a prekrizeni swapu s temi *.DCU soubory.

*NOTE: do not save package sources in the Delphi IDE.


Totez jsem opakoval (samozrejme po reinstalaci RXLIB) s presunutim
RXCTL4.BPL a RXDB4.BPL do adresare c:\windows\ se stejnym vysledkem. No a
pro jistotu jsem jeste zkusil pred pokusem o instalaci DCLRX4.DPK nejprve
DCLRX4.DPK a DCLRXDB4.DPK.zkompilovat (to slo) a take vysledene *.BPL
presunout do adresare Windows. Vysledek stejny.

Jsem z toho docela vedle. Kde delam chybu ?

Diky za kazdou radu.


eL..

Off-topic

[*] Petr Brant <p.brant(zv)samo(tec)cz> - 31.3.1999 05:47:54

Ahoj,

my jsme to kdysi udelali tak, ze jsme se mailem spojili s autorem, on
nam napsal cislo uctu a banku a my jsme mu poslali penize prevodem. Vse
zcela bez problemu.

************************************************************************
*******************************

Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic

************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Jan.Kubeczka(zv)trz(tec)cz [SMTP:Jan.Kubeczka(zv)trz(tec)cz]
> Odesl�no: 31. b�ezna 1999 6:52
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Off-topic
>
>
>
>
> Ahoj!
>
> Muzete mi poradit, jak registrovat a zaplatit poplatek autorovi
> shareware za
> pouzivani programu.
> Bude platit nase firma autorovi, napr. ve Svycarsku.
>
> Diky
>

Off-topic

[*] Jan.Kubeczka(zv)trz(tec)cz - 31.3.1999 05:52:02




Ahoj!

Muzete mi poradit, jak registrovat a zaplatit poplatek autorovi shareware za
pouzivani programu.
Bude platit nase firma autorovi, napr. ve Svycarsku.

Diky

Off-topic

[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 31.3.1999 06:56:48

Nejjednodusi je zalozit si mezinarodni VISA kartu a zaplatit to po
Internetu.
Poslete mu VISA cislo (nikoliv PIN) a on si to "stahne" - pouzivam bez
problemu.

Dale se tim zabyvaji nejktere nase firmy, tusim treba JRC, ktere to za mirne
tucny priplatek vyridi za Vas a Vam poslou fakturu v korunach.

Leos Urban

Off-topic

[*] Jirka Virt <virt(zv)pepa(tec)cz> - 31.3.1999 06:58:21

Pres firmu Jimaz Pha.

Takhle jsem si zaregistroval komponentu z Argentiny.


Jirka Virt

email virt(zv)pep(tec)cz

www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Jan.Kubeczka(zv)trz(tec)cz <Jan.Kubeczka(zv)trz(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 31. b�ezna 1999 6:37
P�edm�t: Off-topic


>
>
>Ahoj!
>
>Muzete mi poradit, jak registrovat a zaplatit poplatek autorovi shareware
za
>pouzivani programu.
>Bude platit nase firma autorovi, napr. ve Svycarsku.
>
>Diky
>
>

Vyber 5 nejvetsich radku

[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 31.3.1999 07:03:40

>Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
>Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy, cilem
>bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
>hodnoty platu.


Sice pochybuji, ze to bylo tak mineno, ale jde to udelat napriklad v
Informixu
takhle:
select first 5 zamestnanec, plat from pracanti order by plat desc
Ostatni servery to maji podobne...

S pratelskym pozdravem
Leos Urban


Shutdown

[*] sup(zv)svitap(tec)cz - 31.3.1999 7:54:22

>Zdravim,
>
>jak lze ukoncit Windows pomoci aplikace?
>
>==[ eLK(zv) ]===================================================
>http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz - (069)6201375
>http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
>============================================================
>

ExitWindowsEx( EWX_LOGOFF or EWX_SHUTDOWN, 0 );
Jaroslav Weiss
odd. informatiky

SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02

tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz


JPG to BLOB

[*] Karel Pechanec <ka.pecha(zv)pvtnet(tec)cz> - 31.3.1999 07:59:11

pekny den....
puvodne jsem nechtel do tohoto rozhovoru vmesovat.
... akce stylu (TDBImage -> TDBJpegImage) se mi zdaji trochu komplikovane, mozna
az zbytecne...(urcite je ktomu ale duvod ze?);
Proc nepouzivat treba binarni buffer file a z neho to nacist do BLOBU v tabulce
(treba
BLOB BINARY field type , size 240) a samozrejme pak na opak z BLOBU do bufferu a
z neho kamkoli jinam....(cili klasicke I/O operace)
Pouzivam neco podobneho a nemam s tim vice problemu...(mozna az velikost
tabulky, ale zapis a cteni po blocich do bufferu je vcelku rychli)

...pokud mate vsak efektivnejsi navrh ,tak se omlouvam

Karel Pechanec
ka.pecha(zv)pvtnet(tec)cz


Tomas Bradle p�e:

> Zdravim,
>
> a coz takhle zkusit misto TDBImage -> TDBJpegImage, ktera by pracovala s
> JPEGy
> popripade s obojim (treba i s GIFy) podle obsahu hlavicky binarnich dat
> (bitmapa zacina BM, GIF zacina GIF, JPEG ma na offsetu 6 JFIF).
> V pripade TJpegGraphicField: neslo by predefinovat constantu:
>
> DefaultFieldClasses: array[TFieldType] of TFieldClass;
>
> v unite DB ? popripade predefinovat metodu:
>
> function GetFieldClass(FieldType: TFieldType): TFieldClass;
>
> Ja to zatim nezkousel, jsou to jen napady. (Delphi 4)
>
> Tomas
> tomas(zv)cobra(tec)cz
>
> -----P�vodn� zpr�va-----
> Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 30. b�ezna 1999 0:15
> P�edm�t: Re: JPG to BLOB
>
> >Jaro wrote:
> >>
> >> 1. Jak se ti to "nejak" podarilo.
> >> 2. Do jake databaze to ukladas, jakeho typu je pole a jak to do neho
> >> nacitas ... LoadFromFile ???
> >
> >Ahoj,
> >
> >Jeste k tomuto problemu. Uvazoval jsem o reseni pomoci napsani noveho
> >pole, napriklad TJpegGraphicField odvozeneho od TGraphicField, ktere
> >by se navenek pro Assign a AssignTo tvarilo jako bitmapa, ale data by
> >ukladalo v JPEGu. Ma to vsak hned problem, a to jak zaridit aby bylo
> >v dobe navrhu pouzito misto TGraphicField. Je sice mozne puvodni pole
> >ve Fields editoru odstranit a vytvorit nove s timto typem, ale to se
> >mi prilis nelibi. Dalsi moznost je pridat editor komponenty ktery pak
> >provede zmenu vybraneho pole a pripadnou konverzi dat v tabulce. Mozna
> >ze uz ale neco takoveho existuje hotove, pokud jeste to nekdo videl,
> >tak dejte prosim vedet.
> >
> >--
> >
> >Internet proti monopolu. Petr Vones, amatersky programator
> >* http://www.bojkot(tec)cz *
> >************************
> >

Delphi a assembler

[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 31.3.1999 08:03:52


Lubo fule wrote:

>1) V prvom rade, v 32-bit uz neexistuje pojem Segment:Offset, pretoze cely
>pointer sa zmesti do 32-bitoveho registra, teda na ulozenie pointra sa
>nepouziva kombinacia dvoch registrov ako v 16-bit, ale 32-bitove registre
>(ESI, EDI, EDX, EAX, ECX ...).
>
>Kombinaciu ES:DI nahradzuje register EDI a kombinaciu DS:SI nahradzuje ESI.
Hi,

No tohle se ti tak jenom jevi, ale pravda to neni. Stroj nadale pouziva
segment:offset, ale tvoje aplikace pouziva tzv. flat memory model, ve kterem
jsou hodnoty vsech segmentu stejne a k adresaci se pouziva jen offsetu v
rozsahu 4 GB.>MOV EAX, ADDRESSPTR
>MOV ESI, EAX // zda sa mi, ze do ESI (EDI) je mozne priradit len hodnotu
z
>ineho registra


Lze rovnou napsat

mov esi,[Mem]

ale za cistsi povazuji instrukci

lea esi,[mem]

(load effective address), ostatne k tomu ji stroj ma. Navic to preklada, i
kdyz napr. parametr Mem je do podprogramu predan v registru.>2) Zalezi od sposobu ulozenia parametrov. Viem, ze ked sa za hlavickou
>proceduri nenapise ziadne klucove slovo (napr. stdcall), tak delphi uklada
>prve tri parametre priamo do registrov EAX, EDX, ECX a dalsie asi do
>zasobnika (nie som si isty), ale neviem v akom poradi. Viac o tom neviem.


Zpusob predavani parametru je docela slusne popsan bud v Object Pascal
Language Guide, kapitola Program Control, Parameter Passing popr. v helpu
pod heslem Program Control.

V souvislosti s tim bych chtel upozornit na jednu dulezitou vec, ktera v
tomto topiku jeste nezaznela, a to register saving conventions:

1. Podprogram v ASM je volan s direction flagem ve stavu CLD a podprogram
jej musi do tohoto stavu pred navratem uvest
2. Podprogram v ASM nesmi poskodit obsah index registru EBX, EDI, ESI a EBP

U funkci k tomu jeste pribyde navratova hodnota, ale to najdes vsechno v
helpu nebo v manualu.

Bye, pf

Pokus o preklad VCL s debug info

[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 31.3.1999 08:10:22

Hi,

zkousel jsem prelozit pod D4 prof., SP3 aplikaci tak, ze jsem na zacatek
search path zahrnul cestu k SOURCE\VCL. Skoncilo to chybou v unit classes na
prekladu definice:

TStringItemList = array[0..MaxListSize] of TStringItem

Celkem opravnene, protoze MaxListSize je definovan jako Maxint div 16 a
TStringItem je record dvou pointeru.


Zkousel nekdo trasovat aplikaci vcetne knihoven u D4? Jak to delal?


Thanx, pf

RXLIB a Windows 98

[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 31.3.1999 08:31:56

> Ahoj.
>
> Podarilo se nekomu nainstalovat RXLIB pro Delphi 4 na Windows 98 ?
> Trapil jsem se s tim asi 3 hodiny a nic.

Jakou mas videokartu?

Ales


personal oracle

[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 31.3.1999 08:46:29

Pavel Slovacek wrote:

> Sice v PO8 nedelam, ale nemel by to byt takovy rozdil.
> Jedno spusteni procedury na serveru? Musi se to resit opravdu takto?
> Realizace neceho takoveho je znacne osemetna zalezitost, myslim tim
> hledisko provedeni a pristup k psani aplikace. Jedno z reseni ktere znam je
> ze udelas nejakou tabulku, kde budes mit nejakou promenou(radek) a tu podle
> toho nastavis. Abys ji mohl cist i z ostatnich session musis provest
> commit. Druhe reseni spociva v prime komunikaci session mezi sebou, ale to

caves,

ja som to riesil presne tak - na zaciatku procedury som otestoval status pre danu
proceduru v nejakej temp tabulke a ak bol o.k., spravil som update akoze
procedura bezi a dal som commit, aby sa nemohla viac spustit - fungovalo to
spolahlivo.

--
lubos dusanic

mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613

QReport a Landscape

[*] FS software <fs_software(zv)telecom(tec)cz> - 31.3.1999 08:55:41

Ahoj,
mel jsem stejny problem, QReport v Delphi3 tiskne jen na vychozi tiskarnu z W95. Jak nastavis primo v preview QR jinou tiskarnu, zcela na ni kasle. V helpu od Qusoftu , ktery je temer k nicemu, tvrdi sice neco jineho, ale kecaji.
Pomuze jen upgrade na Delphi4, kde je QR jiz OK. To, co v D4 nastavis, to plati az tady presne dle helpu - tj. jen po dobu tisku z QR.

-----P�vodn� zpr�va-----
Od: Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. b�ezna 1999 11:18
P�edm�t: QReport a Landscape


>
>Ahoj ...
>
>Pouzivam DELPHI 3..
>Mam navrzeny QRForm, u ktereho mam nastavenou orientaci na sirku
>(landscape...)
>Pri prohlizeni se mi formular zobrazi spravne. Ovsem pri tisku mi tiskarna
>tiskne porad na vysku (portrait).
>Pokud ovsem nastavim tisk na sirku primo ve Win95. tak to tiskne spravne..
>
>Muze te mi nekdo poradit co s tim?
>
>

SQL: Vyber 5 nejvetsich radku

[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 31.3.1999 09:00:48

>
> [Peter Suvak]
>
> Ahoj,
> toto sme mali na skoleni SQL Oracle:
>
> SELECT Meno, Plat
> FROM Zamestnanci Z
> WHERE 5 > ( SELECT COUNT(*) FROM Zamestnanci WHERE Z.Plat < Plat)
> ORDER BY Plat DESC
>

Genialni,
diky za radu, zkousel jsem to na Oraclu a funguje to, tohle by me vubec
nenapadlo...

--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* ardour(zv)usa.net */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
/* If you don't have ICQ you can page me through: My Personal */
/* Communication Center: http://wwp.mirabilis.com/4111110 */
/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
</TT>

SQL: Vyber 5 nejvetsich radku

[*] suvak(zv)pbko.sk - 31.3.1999 08:01:45


Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> on 30.03.99 19:25:18

Please respond to delphi-l(zv)fwd(tec)cz

To: Delphi - maillist <delphi-l(zv)fwd(tec)cz>
cc: (bcc: Peter Suvak/0110/pbko/sk)

Subject: SQL: Vyber 5 nejvetsich radku

> Ahoj (tohle nesouvisi primo z Delphi ale snad to nevadi),
>
> dneska jsem psal pisemku z SQL a meli jsme tam takovy jednoduchy
> prikladek:
> Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
> Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy, cilem
> bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
> hodnoty platu.
> A to vsechno pomoci 1 SQL dotazu.
>
> Nejdrive jsme si vsichni mylsleli, ze to je jednoduchy, ale nakonec to
> nevedel ani ucitel, co si ten priklad vymyslel.
>
> Celou dobu mi to vrta hlavou, ale na nic jsem neprisel, treba to napadne
> nejakou chytrou hlavicku na tehle konferenci??
>
> --
> <TT>
> /* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
> /* xcibulka(zv)hwlab.felk.cvut(tec)cz */
> /* KCibulka(zv)seznam(tec)cz */
> /* ardour(zv)usa.net */
> /* OnLine: If you have ICQ my ICQ# is 4111110. */
> /* If you don't have ICQ you can page me through: My Personal */
> /* Communication Center: http://wwp.mirabilis.com/4111110 */
> /* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
> /* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
> /* Msgs with word "SMS:" in subject will be sent to my GSM phone */
> </TT>

[Peter Suvak]

Ahoj,
toto sme mali na skoleni SQL Oracle:

SELECT Meno, Plat
FROM Zamestnanci Z
WHERE 5 > ( SELECT COUNT(*) FROM Zamestnanci WHERE Z.Plat < Plat)
ORDER BY Plat DESC
=============================================================
Ing. Peter Suvak, veduci oddelenia spravy systemov
Priemyselna banka, a.s. Kosice
Sturova 27
040 01 Kosice

tel.: 095 / 6804 282
fax: 095 / 6804 510
mobil: 0903 610 901
=============================================================

Jednou spu�t�n� Delphi a dva projekty

[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 31.3.1999 09:07:26


Hi,

m�m jeden mal� dotaz. Spust�m si Delphi a m�m v n�m otev�en� n�jak� projekt.
Jen�e j� se chci vr�mci Delphi pod�vat na projekt jin�. Lze to ud�lat n�jak
jinak ne� tak, �e prvn� projekt zav�u, otev�u druh� atd. ?


D�ky


Va�ek


V�clav Lukes

E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247


Richedit a zacatek radku

[*] Lubos <bruce(zv)pobox.sk> - 31.3.1999 09:19:25

> > hm, nerozumiem.
> > SelStart je hodnota prveho vyselektovaneho znaku od zaciatku
> > RichEditu.
>
> V podstate potrebuju tohle:
>
> * mam kurzor nekde uprostred textu
> * potrebuju oznacit do bloku text od toho mista, kde je kurzor po zacatek
> radku, kde je kurzor

aha, tak to ti staci zapamatat si aktualnu poziciu kurzora.
int OldPos = SelStart;
poslat SendMessage(RichEdit1->Handle,WM_KEYDOWN ,VK_HOME ,0);
co ta nastavi na prvy znak v riadku.
A teraz nastavit SelLength = (SelStart - OldPos);

Neskusal som to, pisem to z hlavy, takze tam este moze byt drobna chybicka.

/LH

Jednou spu�t�n� Delphi a dva projek

[*] Nov�k Radek <Radek.Novak(zv)pvt(tec)cz> - 31.3.1999 09:26:20

Proc si nepustis dalsi instanci Delphi ???

> -----P�vodn� zpr�va-----
> Od: Lukes V�clav [SMTP:Vaclav.Lukes(zv)pvt(tec)cz]
> Odesl�no: 31. b�ezna 1999 9:07
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Jednou spu�t�n� Delphi a dva projekty
>
>
> Hi,
>
> m�m jeden mal� dotaz. Spust�m si Delphi a m�m v n�m otev�en� n�jak�
> projekt.
> Jen�e j� se chci vr�mci Delphi pod�vat na projekt jin�. Lze to ud�lat
> n�jak
> jinak ne� tak, �e prvn� projekt zav�u, otev�u druh� atd. ?
>
>
> D�ky
>
>
> Va�ek
>
>
>
>
>
> V�clav Lukes
>
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz
> Tel.: 0603-511247


delsi integer

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 31.3.1999 09:26:51

>muze mi prosim nekdo poradit, zda se da v Pascalu nebo v Delphi
>nadeklarovat delsi nez 32bitova celociselna promenna (tedy neco
>delsiho nez je longint)?
podivej se na typ comp. Je to 64 bitovy signed integer. Jedinou moznou
nevyhodou je, ze neni vypocty s nim obsluhuje FPU (skoro si myslim, ze u
tohoto typu by byl vypocet pomoci CPU rychlejsi)


Zdravi
D. Toman

Jednou spu�t�n� Delphi a dva projek

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 31.3.1999 09:27:06

Delphi3 jde spoustet ve vice instancich (D1 mi neslo).
Jinak, chces-li se mrknout do nejake unity (napr), tak
lze dat jen File/Open... a otevrit libovolny soubor aniz
by jsi ho pridal do projektu.

Dobra.

>m�m jeden mal� dotaz. Spust�m si Delphi a m�m v n�m otev�en�
n�jak� projekt.
>Jen�e j� se chci vr�mci Delphi pod�vat na projekt jin�. Lze to
ud�lat n�jak
>jinak ne� tak, �e prvn� projekt zav�u, otev�u druh� atd. ?

Skleroza

[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 31.3.1999 09:40:50

Hi,

>> Nevite existuje-li nekde program na zjisteni hesla u ZIP souboru?

>hledej na adrese http://www.hedgie.com/passwords/index.html


Pred nekolika lety jsme stali pred stejnou ulohou. Tenkrat jsem vylovili z
INETu ruzne programky, nakonec jsme vybrali ZIPCRACK a FZC (fast zip
cracker). Vse pro DOS a utok hrubou silou.

Ten prvni byl i se zdrojovkou, takze jsme ho lehce optimalizovali a
upravili. Pokud si to pamatuju, tak generoval podle zadanych podminek hesla
a spoustel ZIP s parametrem -T, jestli mu vyjde CRC a kdyz se mu to povedlo,
tak zkusil rozbalit. Jak tady nedavno probehla diskuze na tema, ze CRC je
nejednoznacny, tak spravny CRC nemusi jeste znamenat spravne heslo a ZIP se
u nekterych kombinacich kousal.
Upravili jsme to tusim tak, ze jsme si logovali hesla do souboru a v pripade
deadlocku jsme posledni heslo rucne pridali na seznam potlacenych hesel a
restartovali to z posledniho stavu.

Pak jsme zkouseli FCZ, ktery tusim generuje hesla, splnujici podminku na
zaklade testu hlavicky (a je tudiz vyrazne rychlejsi), ale chce k tomu ucelu
3 soubory zasifrovane stejnym heslem. To jsme nemeli a tak jsme to obesli
tak, ze jsme nakopirovali stejny soubor trikrat a opravili ho pomoci ZIPFIX,
nebo jak se ta utilita jmenuje. Pak jsme s nim generovali hesla do souboru a
ten soubor jsme predhazovali upravenemu ZIPCRACKu.

Vysledky byly pro hesla o delce 6 znaku vyborne, ale napr. u hesla o delce 8
znaku, ve kterem se michaji velka/mala pismena a tu tam nejaky specialni
znak (takze nelze pouzit nejaka constraints na hesla), uz to nikam nevedlo.
Pomoci FZC jsme generovali nepretrzite hesla na 4 pocitacich a za 30 dni
jsme se ke spravnemu heslu nedostali.

Pokud nenajdes na INETu neco pouzitelnejsiho, muzu ti ten upraveny ZIPCRACK
poslat.


Bye, pf

RXLIB a Windows 98

[*] Martin Marsik <marsikm(zv)avx(tec)cz> - 31.3.1999 09:46:57


Zdravim

Samozrejme, ze to funguje. Taky jsem se stim chvilku potrapil, ale uspesne to provozuji. RxLib mam z CD kolekce pro Delphi. U instalace je podrobny navod na instalaci. Postupoval jsem podle prilozeneho navodu. Jediny orisek, ktery tam chybel je to, ze je potreba tusim do adresare Windows nebo Windows\System nakopirovat *.bpl soubory RXLib komponent. Jinak pri dalsim spusteni Delphi to nenaslo soubor pro zavedeni komponent na paletu. Doufam, ze to je to co potrebujes.

S pozdravem Mates

-----P�vodn� zpr�va-----
Od: Ales Radikovsky [SMTP:radik(zv)seznam(tec)cz]
Odesl�no: 31. b�ezna 1999 8:32
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: RXLIB a Windows 98

> Ahoj.
>
> Podarilo se nekomu nainstalovat RXLIB pro Delphi 4 na Windows 98 ?
> Trapil jsem se s tim asi 3 hodiny a nic.

Jakou mas videokartu?

Ales

TBitmap.ScanLine

[*] Zdenek Sterba <zdeste(zv)post(tec)cz> - 31.3.1999 09:50:40

Dobre poledne,

zkousim pouzit TBitmap.ScanLine. Nastavil jsem PixelFormat na pf1bit
(zkousel jsem i Monochrome.True), ale prectene data nejak neodpovidaji.
Predpokladam, ze pri uvedenem nastaveni by mel jednomu pixelu odpovidat
jeden bit.

Nevim nemam s tim zadne zkusenosti.

Cico


Jednou spu�t�n� Delphi a dva projek

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 31.3.1999 09:55:27

> m�m jeden mal� dotaz. Spust�m si Delphi a m�m v n�m otev�en�
> n�jak� projekt.
> Jen�e j� se chci vr�mci Delphi pod�vat na projekt jin�. Lze
> to ud�lat n�jak
> jinak ne� tak, �e prvn� projekt zav�u, otev�u druh� atd. ?
>

V D4 se otevira projekt v ProjectGroup (*.bpg).
Lze tam mit otevreno projektu vice, vzdy je jeden z nich
aktivni (vztahuji se na n�j akce Compile, Build, Run...).
Jestli mas D4, zvol View/Project Manager a v n�m Add Project...

Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

Vyber 5 nejvetsich radku

[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 31.3.1999 10:10:23

A ktera verze Informixu to podporuje?
Mame starou dobrou 5.01 na Unixu, ale
tuto syntax 100% nepozna.

+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+


-----Original Message-----
From: Leos Urban [mailto:Leos.Urban(zv)aitix(tec)cz]
Sent: Wednesday, March 31, 1999 7:04 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Vyber 5 nejvetsich radku


>Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
>Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy, cilem
>bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
>hodnoty platu.


Sice pochybuji, ze to bylo tak mineno, ale jde to udelat napriklad v
Informixu
takhle:
select first 5 zamestnanec, plat from pracanti order by plat desc
Ostatni servery to maji podobne...

S pratelskym pozdravem
Leos Urban


SQL: Vyber 5 nejvetsich radku

[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 31.3.1999 10:13:46

Ale ta rychlost

+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+


-----Original Message-----
From: Cibulka Karel [mailto:K.Cibulka(zv)sh.cvut(tec)cz]
Sent: Wednesday, March 31, 1999 9:01 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: SQL: Vyber 5 nejvetsich radku


>
> [Peter Suvak]
>
> Ahoj,
> toto sme mali na skoleni SQL Oracle:
>
> SELECT Meno, Plat
> FROM Zamestnanci Z
> WHERE 5 > ( SELECT COUNT(*) FROM Zamestnanci WHERE Z.Plat < Plat)
> ORDER BY Plat DESC
>

Genialni,
diky za radu, zkousel jsem to na Oraclu a funguje to, tohle by me vubec
nenapadlo...

--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* ardour(zv)usa.net */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
/* If you don't have ICQ you can page me through: My Personal */
/* Communication Center: http://wwp.mirabilis.com/4111110 */
/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
</TT>

off: 2 NT servery

[*] sup(zv)svitap(tec)cz - 31.3.1999 10:18:28

Sorry za off topic.

Damy a panove, nemate nekdo z Vas v praci pod palcem sit se dvema a vice
WinNT servery? Sbiram zkusenosti...

Odpovedi prosim na soukromy mail (viz nize).

Dekuji predem.

Jaroslav Weiss
odd. informatiky

SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02

tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz


Jednou spu�t�n� Delphi a dva projekty

[*] Honza Fiala <fala(zv)imc(tec)cz> - 31.3.1999 10:25:53

to jde pouze v Delphi4. V Project manageru si pravym tlakem otevres dalsi
projekt.

m�m jeden mal� dotaz. Spust�m si Delphi a m�m v n�m otev�en� n�jak� projekt.
Jen�e j� se chci vr�mci Delphi pod�vat na projekt jin�. Lze to ud�lat n�jak
jinak ne� tak, �e prvn� projekt zav�u, otev�u druh� atd. ?

TBitmap.ScanLine

[*] Nov�k Radek <Radek.Novak(zv)pvt(tec)cz> - 31.3.1999 10:39:21

Ja pouzivam barevnou hloubku 24bit , a kazdy pixel ve ScanLine[i] je
pak
shodny s typem TColor, jednotlive barvy z toho vykucham funkci
GetRValue, GetBValue, GetValue (API - help). Funguje to na vetsinu BMP
protoze PixelFormat se vytahuje jen na reprezentaci a pristup k bitmape
v pameti.

Radek
> -----P�vodn� zpr�va-----
> Od: Zdenek Sterba [SMTP:zdeste(zv)post(tec)cz]
> Odesl�no: 31. b�ezna 1999 9:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TBitmap.ScanLine
>
>
>
>
>
>
> Dobre poledne,
>
> zkousim pouzit TBitmap.ScanLine. Nastavil jsem PixelFormat na pf1bit
> (zkousel jsem i Monochrome.True), ale prectene data nejak
> neodpovidaji.
> Predpokladam, ze pri uvedenem nastaveni by mel jednomu pixelu
> odpovidat
> jeden bit.
>
> Nevim nemam s tim zadne zkusenosti.
>
> Cico


Rozdilovy select

[*] Pavel Slovacek <silvan(zv)atlas(tec)cz> - 31.3.1999 11:16:57

At 17:02 30.3.1999 +0200, you wrote:
>Zkousel jsem nasledujici dotaz:
>
> select ID, NAZEV
> from ZARIZENI
> where not exists
> (
> select *
> from OS_ZAR
> where ID_O = 1277
> )
>

No ono staci jen malo a bude to fungovat

select ID, NAZEV
from ZARIZENI z
where not exists
(
select *
from OS_ZAR oz
where oz.id_z = z.id
and ID_O = 1277 )

Pavel Slovacek


Matematika-hledani minima

[*] Nov�k Radek <Radek.Novak(zv)pvt(tec)cz> - 31.3.1999 11:28:35

Zabyval se nekdo hledanim lokalnich minim funkce v Delphi, potreboval
bych nejaky sample, nebo odkaz do internetu, kde by se to naslo.
Dik.RAdek


SQL: Vyber 5 nejvetsich radku

[*] Pavel Slovacek <silvan(zv)atlas(tec)cz> - 31.3.1999 11:31:03

Na oracle to jde i takto

select * from zamestnanec
where rownum < 6
order by plat;

S pozdravem
Pavel Slovacek


Podminena kompilace

[*] David Hrbac <hrbac.david(zv)usa(tec)net> - 31.3.1999 11:55:26

Resim problem lokalizace sveho softwaru, zkousel jsem si otevrit formular
jako text a pouzit standardne $IFDEF..., ale tady to nefunguje. Rad bych
nasel nejake reseni, jak zmenit text pri kompilaci, ale tak aby se mi
zbytecne nezvetsovala velikost vysledneho kodu.
Diky
David

Matematika-hledani minima

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 31.3.1999 12:02:01

> Zabyval se nekdo hledanim lokalnich minim funkce v Delphi, potreboval
> bych nejaky sample, nebo odkaz do internetu, kde by se to naslo.
> Dik.RAdek
>

To delas zapoctak nebo co?
Myslis tim: nalezt vsechny lokalni extremy libovolne funkce?
Nebo jenom na nejakem intervalu, pokud mozno iteracni metodou?
Anebo mas konkretni typ funkci (rekneme polynomicke)?

Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

TBitmap.ScanLine

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 31.3.1999 12:02:34

Muzu poslat examplik na soukromou adresu. Puvodni adresu uz bohuzel
nevim.

> -----P�vodn� zpr�va-----
> Od: Zdenek Sterba [SMTP:zdeste(zv)post(tec)cz]
> Odesl�no: 31. b�ezna 1999 9:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TBitmap.ScanLine
>
> Dobre poledne,
>
> zkousim pouzit TBitmap.ScanLine. Nastavil jsem PixelFormat na pf1bit
> (zkousel jsem i Monochrome.True), ale prectene data nejak
> neodpovidaji.
> Predpokladam, ze pri uvedenem nastaveni by mel jednomu pixelu
> odpovidat
> jeden bit.
>
> Nevim nemam s tim zadne zkusenosti.
>
> Cico


*.lck a del.MB subory

[*] TUNGLI Jan <tungli(zv)pvt.sk> - 31.3.1999 12:10:10

T�ma: Pr�stup na datab�zu INTERBASE na z�pis od klienta cez zdialen� adres�r.

M�m delphi aplik�cie (exe) subory ulo�ene na servri v zdielanom adres�ry (Read/Write), ktor� pracuj� s tabulkami datab�zy (z�pis, mazanie at�), ktor� je tie� na servri. Ak exe spust�m od klienta, bez toho aby som exe nakop�roval na klientsk� PC, tak sa vytvor� v zdielanom adres�ri DEL2.MB (DEL3.MB...) s�bor. Potom u� in� klinet nie je schopn� spusti� in� aplik�ciu (exe) zo zdialen�ho adres�ra (exe sa pust� ale konektovanie na datab�zu je nemo�n�).

Chybov� hl�senie z delphi :

Project XY.exe raised exception class EDBEngineError with message Share violation.
File : path\Del2.MB Table: path\Del2.MB
Process stopped Use Step or Run to continue.

Tie� sa vytvor� v adresari pdoxusrs.lck s�bor ale ja pou��vam iba INTERBASE. Ni� nepou��vam z PARADOXu. (BDE default database som tie� skusil prep�sa� z Paradox na ASCII, ale nepomohlo)

TUNGLI Jan
tungli(zv)pvt.sk


SQL: Vyber 5 nejvetsich radku

[*] jk(zv)tzus(tec)cz - 31.3.1999 12:41:06

>Na oracle to jde i takto
>
>select * from zamestnanec
>where rownum < 6
>order by plat;
>
>S pozdravem
> Pavel Slovacek
>

Nechci panikarit, ale vyse uvedene bude fungovat pouze tehdy pokud
je select proveden podle indexu na sloupec plat, jinak tam mohou byt
nesmysly. Aby to fungovalo na sto procent je nutne vytvorit index na sloupec
plat a dale natvrdo ohintovat select aby se vzdy pouzil tento index.
Napr nejak takhle :

select /*+ INDEX(zamestnanec i_zamestnanec$plat) */ * from zamestnanec
where rownum < 6
order by plat

S pozdravem
Jan Kadlecek

******************************************
* kadlecek(zv)htkpro(tec)cz *
* HTK Pro s.r.o., www.htkpro(tec)cz *
* tel : 02-83880361, fax: 02-6896391 *
* Autorizovany dealer TurboPower *
******************************************

Zalohovani

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 31.3.1999 12:42:40

Mozna, kdyby nekdo znal strukturu tech *.SET souboru, treba Bill,
a zverejnil by ji, uz by nebyl problem soubor vytvorit.
Takze - mate nekdo napad, jak to zjistit ?

Dobra.> > Pomerne s uspechem pouzivam Zalohovani (Microsoft Backup), ktere je
> > soucasti instalace Windows. Jedinym problemem je ze seznam
> zalohovanych
> > souboru nelze vytvorit programove, ale musis jej udelat rucne dle
> > konkretniho umisteni na disku.
>

*.lck a del.MB subory

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 31.3.1999 12:43:18

M�m delphi aplik�cie (exe) subory ulo�ene na servri v zdielanom adres�ry
(Read/Write), ktor� pracuj� s tabulkami datab�zy (z�pis, mazanie at�), ktor�
je tie� na servri. Ak exe spust�m od klienta, bez toho aby som exe
nakop�roval na klientsk� PC, tak sa vytvor� v zdielanom adres�ri DEL2.MB
(DEL3.MB...) s�bor. Potom u� in� klinet nie je schopn� spusti� in� aplik�ciu
(exe) zo zdialen�ho adres�ra (exe sa pust� ale konektovanie na datab�zu je
nemo�n�).
[Polak Jiri] soubory *.MB vznikaji v aktualnim adresari. Nastav aplikaci
aktualni adresar na lokal, treba tim, ze uzivatele budou spoustet zastupce
se Starting Directory C:\

Chybov� hl�senie z delphi :

Project XY.exe raised exception class EDBEngineError with message Share
violation.
File : path\Del2.MB Table: path\Del2.MB
Process stopped Use Step or Run to continue.

Tie� sa vytvor� v adresari pdoxusrs.lck s�bor ale ja pou��vam iba INTERBASE.
Ni� nepou��vam z PARADOXu. (BDE default database som tie� skusil prep�sa� z
Paradox na ASCII, ale nepomohlo)


<mailto:Taky. Pomohlo mi jedine nastavit v BDE pro Paradox NET DIR na
lokalJura ---------- Jiri Polak e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz web :> Taky. Pomohlo mi jedine nastavit v BDE pro
Paradox NET DIR na lokal

Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web : http://freeweb.coco(tec)cz/jpolak <http://freeweb.coco(tec)cz/jpolak>
<mailto:tungli(zv)pvt.sk>
----------
The only good bug, is a dead bug!


Delphi a assembler

[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 31.3.1999 12:50:36


Petr Fejfar wrote:
>
> No tohle se ti tak jenom jevi, ale pravda to neni. Stroj nadale pouziva
> segment:offset, ale tvoje aplikace pouziva tzv. flat memory model, ve kterem
> jsou hodnoty vsech segmentu stejne a k adresaci se pouziva jen offsetu v
> rozsahu 4 GB.
>
No ono to tak presne neni. Na urovni procesoru se samozrejme pouzivaji
tyto registry, ale nepouzivaji se ve vyznamu segment a offset, ale jako
selektor a index do tabulky deskriptoru (coz jsou udaje popisujici
adresovy prostor aplikace - kolik pameti, od jake adresy, jaka ma proces
prava, ...), na zaklade kterychzto udaju se spocita logicka adresa -
teoreticky az do tech 4 GB. Je to trosku podobne, ale jinak uplne neco
jineho...

To jen tak na okraj, doufam, ze jsem neco nepopletl, prece jenom jsem uz
par let ze skoly:)

> 1. Podprogram v ASM je volan s direction flagem ve stavu CLD a podprogram
> jej musi do tohoto stavu pred navratem uvest
> 2. Podprogram v ASM nesmi poskodit obsah index registru EBX, EDI, ESI a EBP

Hm, zajimave, to jsem nevedel... Tyhle veci jsem mel v helpu vzdycky
problem najit, ono to tam neni moc dobre popsane.

--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, vyvoj(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)

TDataSet

[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 31.3.1999 12:51:30

Zdrav�m obec delphist�!
A hned dot�ze�ek, jak ud�lat, aby record v tabulce (datab�zov�) na n�m� pr�v� stoj�m byl i po set��d�n�, dle n�jak�ho libovoln�ho sloupce, tent�� a nebyl to ten prvn� v tabulce. SQLExploer to n�jak zaj�mav� d�l�, �e skl�d� dva a� t�i dotazy, ale nev�m p�esn� jak. Porad�te? D�ky za n�m�ty. M&B


TDataSet

[*] Marek Soukup <marek(zv)comberg(tec)com> - 31.3.1999 13:01:22

Ahoj,
neslo by pouzit property Bookmark ?

Marek Soukup

Martin Bab�k wrote:

> Zdrav�m obec delphist�!
> A hned dot�ze�ek, jak ud�lat, aby record v tabulce (datab�zov�) na n�m� pr�v� stoj�m byl i po set��d�n�, dle n�jak�ho libovoln�ho sloupce, tent�� a nebyl to ten prvn� v tabulce. SQLExploer to n�jak zaj�mav� d�l�, �e skl�d� dva a� t�i dotazy, ale nev�m p�esn� jak. Porad�te? D�ky za n�m�ty.
>
> M&B


Delphi a assembler

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 31.3.1999 13:08:16



> -----P�vodn� zpr�va-----
> Od: Petr Fejfar [SMTP:callnet(zv)telecom(tec)cz]
> Odesl�no: 31. b�ezna 1999 8:04
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Delphi a assembler
>
>
> Lubo fule wrote:
>
> >1) V prvom rade, v 32-bit uz neexistuje pojem Segment:Offset, pretoze
> cely
> >pointer sa zmesti do 32-bitoveho registra, teda na ulozenie pointra
> sa
> >nepouziva kombinacia dvoch registrov ako v 16-bit, ale 32-bitove
> registre
> >(ESI, EDI, EDX, EAX, ECX ...).
> >
> >Kombinaciu ES:DI nahradzuje register EDI a kombinaciu DS:SI
> nahradzuje ESI.
>
>
>
>
> Hi,
>
> No tohle se ti tak jenom jevi, ale pravda to neni. Stroj nadale
> pouziva
> segment:offset, ale tvoje aplikace pouziva tzv. flat memory model, ve
> kterem
> jsou hodnoty vsech segmentu stejne a k adresaci se pouziva jen offsetu
> v
> rozsahu 4 GB.
>
>
[] No podle toho co je napsane v Mikroprocesory Pentium a spol (Grada)
tak v protected rezimu opravdu neni Segment : Offset, ale Selector :
Offset.
A jelikoz ale vsechny bezne aplikace pro Win32 maji svuj vlastni
pametovy prostor, tak se vyuziva jenom Offset. --- near pointry, ktere
ale v zavislosti na Granularity(myslim ze se ten bit tak jmenoval) mohou
obsluhovat az 4GB pameti
Nektere specialni programy - jako memory sniffers mohou pouzivat i cast
Selector --- polozku z lokalni (nebo globalni) tabulky selektoru.

Pokud vim, a to je otazka do plena tak, v Delphi lze kompilovat programy
pouze pro Ring 3, takze se k selektorum nejde dostat (viz. privilegovane
instrukce). Nevim ci to sezere vestaveny assembler, ale i kdyby to
prelozil(nebo by se mu pomohlo nejakou fintou .... treba db xx {v dobe
paskalu inline xx}) tak si myslim, ze by bud byla vyvolana vyjimka, nebo
by tu instrukci Windows v obsluze vyjimky emulovala).
Jedine co by slo pry udelat to je prilinkovat nejaky *.obj k aplikaci
Delphi (ten obj by byl samozrejme napsany v assembleru).
S tim samozrejme souvisi i pristup k portum atd. atd.
Sorry za pokec trochu mimo misu. V techto vecech se prilis nevyznam, ale
neco jsem nastudoval (a napsal i kousky programu) v dobe DOSu, kdy jsem
si (VELMI NAIVNE) myslel ze pro DOS naprogramuji graficke rozhrani v
protected rezimu (4 - graficke roviny ve VGA atd. atd.).

Ale pokud by z nekterych guru vedel, jak prilinkovat kod pro Ring 0 k
aplikaci Delphi zajimalo by me to uz jen ze zvedavosti ("akademickeho
hlediska"). Myslim ze jsem nekde videl nejaky pokec o tom, jak pripojit
urcity druh obj do projektu Delphi.

Ale uz kecam prilis dlouho a raci bych se mel poradne ucit OLE/DCOM,
SQL,CGI atd. atd. Sratka dnes je doba o necem jinem.

> >MOV EAX, ADDRESSPTR
> >MOV ESI, EAX // zda sa mi, ze do ESI (EDI) je mozne priradit len
> hodnotu
> z
> >ineho registra
>
>
> Lze rovnou napsat
>
> mov esi,[Mem]
>
> ale za cistsi povazuji instrukci
>
> lea esi,[mem]
>
> (load effective address), ostatne k tomu ji stroj ma. Navic to
> preklada, i
> kdyz napr. parametr Mem je do podprogramu predan v registru.
>
>
> >2) Zalezi od sposobu ulozenia parametrov. Viem, ze ked sa za
> hlavickou
> >proceduri nenapise ziadne klucove slovo (napr. stdcall), tak delphi
> uklada
> >prve tri parametre priamo do registrov EAX, EDX, ECX a dalsie asi do
> >zasobnika (nie som si isty), ale neviem v akom poradi. Viac o tom
> neviem.
>
>
> Zpusob predavani parametru je docela slusne popsan bud v Object Pascal
> Language Guide, kapitola Program Control, Parameter Passing popr. v
> helpu
> pod heslem Program Control.
>
> V souvislosti s tim bych chtel upozornit na jednu dulezitou vec, ktera
> v
> tomto topiku jeste nezaznela, a to register saving conventions:
>
> 1. Podprogram v ASM je volan s direction flagem ve stavu CLD a
> podprogram
> jej musi do tohoto stavu pred navratem uvest
> 2. Podprogram v ASM nesmi poskodit obsah index registru EBX, EDI, ESI
> a EBP
>
> U funkci k tomu jeste pribyde navratova hodnota, ale to najdes vsechno
> v
> helpu nebo v manualu.
>
> Bye, pf
>
>

TOutline ...

[*] Michal Kral <Michal.Kral(zv)seznam(tec)cz> - 31.3.1999 13:30:25

Zdravim vas vsechny!
Asi nemusim nikomu rikat, jak si clovek zkrati zivot pri programovzni, kdyz se neco nedari.
Uz dva mesice se snazim prijit na to, jak se v komponente TOutline pouzije pretahovani mysi(OnDragDrop,OnDragOver ...). Samotne presouvani jednotlivych polozek je snadne, ale pomoci mysi to proste nefunguje.Pokud mi nekdo napise alespon i-net adresu, kde bych to mohl vykoumat, budu moc vdecny.

Diky S pozdravem KING

-- http://email.seznam(tec)cz
-- email zdarma na cely zivot


UMAX

[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 31.3.1999 12:33:40

Uz jsem to dal na nas web (download)
http://www.zds(tec)cz

> From: "Leos Urban" <Leos.Urban(zv)aitix(tec)cz>
> To: <drvota(zv)zds(tec)cz>
> Subject: UMAX
> Date: Tue, 30 Mar 1999 20:11:16 +0200

> Dobry den,
>
> >jen prehrat novejsi (17.04.98) soubor Umaxis11.386
>
> nerad obtezuji. Myslite ze by bylo mozne poslat mi uvedeny soubor?
> Ja mam pomale pripojeni na Internet a na UMAX.COM je ovladac
> a ma celych 20 MB. Jinak jsme dalsi, kdo ma stejny problem :-(((
>
> Diky
> Leos Urban
>
>
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail:info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz


razeni ve vysledku dotazu podle sloupcu

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 31.3.1999 13:38:54

Ahojky programatori a progamatorky.

Mam propojeni TOracleDataset -- TDataSource -- TDBGrid, v nemz vidim
vysledek dotazu.
Lze nejak zaridit setridni vysledku poklepanim na libovolny sloupec podle
neho (jako to funguje v mnoha jinych vecech)
a to bez toho, ze by se musel znovu provest cely SQL dotaz na Oracle s
doplnenim ORDER BY ...? (nejen ze by to mohlo byt pomale ale jevi se mi to
i neeticke)

Dik

===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============

... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela


Matematika-hledani minima

[*] Petr Brant <p.brant(zv)samo(tec)cz> - 31.3.1999 12:54:50

Jsem byvaly matematik, kdyz tak napis neco podrobnejsiho, snad budu
vedet.

************************************************************************
*******************************

Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic

************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Odesl�no: 31. b�ezna 1999 12:02
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Matematika-hledani minima
>
> > Zabyval se nekdo hledanim lokalnich minim funkce v Delphi,
> potreboval
> > bych nejaky sample, nebo odkaz do internetu, kde by se to naslo.
> > Dik.RAdek
> >
>
> To delas zapoctak nebo co?
> Myslis tim: nalezt vsechny lokalni extremy libovolne funkce?
> Nebo jenom na nejakem intervalu, pokud mozno iteracni metodou?
> Anebo mas konkretni typ funkci (rekneme polynomicke)?
>
> Jura
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web :http://freeweb.coco(tec)cz/jpolak
> ----------
> The only good bug, is a dead bug!

*.lck a del.MB subory

[*] Nov�k Radek <Radek.Novak(zv)pvt(tec)cz> - 31.3.1999 14:09:32

Chce to mozna nasdilet soubor Pdoxurs.lck nekde na serveru pro vsechny
uzivatele databaze - musi se to nastavit BDEConfigu jako netdir u
kaydeho uzivatele. Engine pres tenhle soubor pry nejak ridi sdileni a
pristupy /zamykani rec./ jednotlivymi users, ale nevim jak, ale funguje
to .Radek.

> -----P�vodn� zpr�va-----
> Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Odesl�no: 31. b�ezna 1999 12:43
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: *.lck a del.MB subory
>
> M�m delphi aplik�cie (exe) subory ulo�ene na servri v zdielanom
> adres�ry
> (Read/Write), ktor� pracuj� s tabulkami datab�zy (z�pis, mazanie at�),
> ktor�
> je tie� na servri. Ak exe spust�m od klienta, bez toho aby som exe
> nakop�roval na klientsk� PC, tak sa vytvor� v zdielanom adres�ri
> DEL2.MB
> (DEL3.MB...) s�bor. Potom u� in� klinet nie je schopn� spusti� in�
> aplik�ciu
> (exe) zo zdialen�ho adres�ra (exe sa pust� ale konektovanie na
> datab�zu je
> nemo�n�).
> [Polak Jiri] soubory *.MB vznikaji v aktualnim adresari. Nastav
> aplikaci
> aktualni adresar na lokal, treba tim, ze uzivatele budou spoustet
> zastupce
> se Starting Directory C:\
>
> Chybov� hl�senie z delphi :
>
> Project XY.exe raised exception class EDBEngineError with message
> Share
> violation.
> File : path\Del2.MB Table: path\Del2.MB
> Process stopped Use Step or Run to continue.
>
> Tie� sa vytvor� v adresari pdoxusrs.lck s�bor ale ja pou��vam iba
> INTERBASE.
> Ni� nepou��vam z PARADOXu. (BDE default database som tie� skusil
> prep�sa� z
> Paradox na ASCII, ale nepomohlo)
>
>
> <mailto:Taky. Pomohlo mi jedine nastavit v BDE pro Paradox NET DIR na
> lokalJura ---------- Jiri Polak e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz web :> Taky. Pomohlo mi jedine nastavit v BDE
> pro
> Paradox NET DIR na lokal
>
> Jura
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web : http://freeweb.coco(tec)cz/jpolak <http://freeweb.coco(tec)cz/jpolak>
> <mailto:tungli(zv)pvt.sk>
> ----------
> The only good bug, is a dead bug!
>
>
>

razeni ve vysledku dotazu podle sloupcu

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 31.3.1999 14:13:40

Bylo to tady pred nedavnem.
Peter Cirip poslal kod ke komponente -
potomkovi TQuery, ktera nacuca data a vsechna
je ulozi na lokal do tabulky typu Paradox nebo
dBase, zde data tridi a zobrazuje. Chces ji poslat?

Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!> -----Original Message-----
> From: Richard Valny [mailto:richard.valny(zv)oku-st(tec)cz]
> Sent: Wednesday, March 31, 1999 1:39 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: razeni ve vysledku dotazu podle sloupcu
>
>
> Ahojky programatori a progamatorky.
>
> Mam propojeni TOracleDataset -- TDataSource -- TDBGrid, v nemz vidim
> vysledek dotazu.
> Lze nejak zaridit setridni vysledku poklepanim na libovolny
> sloupec podle
> neho (jako to funguje v mnoha jinych vecech)
> a to bez toho, ze by se musel znovu provest cely SQL dotaz na
> Oracle s
> doplnenim ORDER BY ...? (nejen ze by to mohlo byt pomale ale
> jevi se mi to
> i neeticke)
>
> Dik
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> ===========mozno pouzit PGP==============
>
> ... Windows nemohou byti virem, nebot virus je napsan
> inteligentne a neco
> dela
>

ovladani klavesnici

[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 31.3.1999 14:16:03

Nevim jestli to uz nekdo rekl, ale co tak pouzit
TSpeedButton?

+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+


-----Original Message-----
From: Jan Pomikalek [mailto:pomikaj(zv)feld.cvut(tec)cz]
Sent: Wednesday, March 31, 1999 3:12 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: ovladani klavesnici


> > mam maly problem. Kdyz si vlozim na formular vice tlacitek a chci
je
> > ovladat pouze pomoci mysi a pomoci horkych klaves, tedy ne pomoci
> > tabelatoru a enteru, jak na to? Jde samozrejme nastavit u vsech
> > tlacitek TabStop:= false, ale jakmile se pak na nejake tlacitko
> > klikne mysi, stane se bez ohledu na toto nastaveni aktivnim. Takze
> > kdyz pak stisknu enter, ktery mam nastaveny jako horkou hlavesu,
tak
> > se mi misto prikazu prirazeneho horke klavese, stiskne aktivni
> > tlacitko.
> > Da se tomu nejak zamezit?

> asi bych si udelal nejakou proceduru kde bych nastavil chovani po
stisku
> ruznych klaves a presmeroval bych na ni eventy onKeyDown u tech
> tlacitek.

Ale jo, tak to taky mam (jen to nemam na onKeyDown ale na
onKeyPressed, coz je vsak podle me to same, ne?), jenze na to jsem se
neptal. Potreboval bych vedet, jestli se nejak muzu zbavit toho, aby
se mi po stisku tlacitka mysi, dane tlacitko stalo aktivnim.

-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


TDataSet

[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 31.3.1999 14:29:22

Nev�m jak komu mne ne, neb mi to nez�st�v� na jednom a t�m� recordu, ale ��dku. :-(((

Marek Soukup wrote:
>neslo by pouzit property Bookmark ?

>Martin Bab�k wrote:
> Zdrav�m obec delphist�!
> A hned dot�ze�ek, jak ud�lat, aby record v tabulce (datab�zov�) na n�m� pr�v� stoj�m byl i po set��d�n�, dle n�jak�ho libovoln�ho sloupce, tent�� a nebyl to ten prvn� v tabulce. SQLExploer to n�jak zaj�mav� d�l�, �e skl�d� dva a� t�i dotazy, ale nev�m p�esn� jak. Porad�te? D�ky za n�m�ty.
>
> M&B
M&B


*.lck a del.MB subory

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 31.3.1999 14:48:36

> -----Original Message-----
> From: Nov�k Radek [mailto:Radek.Novak(zv)pvt(tec)cz]
> Sent: Wednesday, March 31, 1999 2:10 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: *.lck a del.MB subory
>
>
> Chce to mozna nasdilet soubor Pdoxurs.lck nekde na serveru pro vsechny
> uzivatele databaze - musi se to nastavit BDEConfigu jako netdir u
> kaydeho uzivatele. Engine pres tenhle soubor pry nejak ridi sdileni a
> pristupy /zamykani rec./ jednotlivymi users, ale nevim jak,
> ale funguje
> to .Radek.
>

A proc bych zdvojoval mechanismus, ktery provadi SQL Server?
Ja nechci, aby se do toho michal BDE. To, cos napsal je mozna
zadouci pro Paradox, pro Informix nebo MS SQL Server je to nezadouci
a myslim, ze pro InterBase taky.

Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!

Jednou =?iso-8859-2?Q?spu=B9t=ECn=E9?= Delphi a dv

[*] Lubos <bruce(zv)pobox.sk> - 31.3.1999 15:10:28

Caute !

Mam taky problemik.
Potrebujem programovo menit klavesnicu, napr. z anglickej na slovensku.
Mozete ma niekto nakopnut na nejaku API funkciu, prip. iny sposob ?

vdaka.

/LH


ovladani klavesnici

[*] Jan Pomikalek <pomikaj(zv)feld.cvut(tec)cz> - 31.3.1999 13:11:56 met-1mest

> > mam maly problem. Kdyz si vlozim na formular vice tlacitek a chci
je
> > ovladat pouze pomoci mysi a pomoci horkych klaves, tedy ne pomoci
> > tabelatoru a enteru, jak na to? Jde samozrejme nastavit u vsech
> > tlacitek TabStop:= false, ale jakmile se pak na nejake tlacitko
> > klikne mysi, stane se bez ohledu na toto nastaveni aktivnim. Takze
> > kdyz pak stisknu enter, ktery mam nastaveny jako horkou hlavesu,
tak
> > se mi misto prikazu prirazeneho horke klavese, stiskne aktivni
> > tlacitko.
> > Da se tomu nejak zamezit?

> asi bych si udelal nejakou proceduru kde bych nastavil chovani po stisku
> ruznych klaves a presmeroval bych na ni eventy onKeyDown u tech
> tlacitek.

Ale jo, tak to taky mam (jen to nemam na onKeyDown ale na
onKeyPressed, coz je vsak podle me to same, ne?), jenze na to jsem se
neptal. Potreboval bych vedet, jestli se nejak muzu zbavit toho, aby
se mi po stisku tlacitka mysi, dane tlacitko stalo aktivnim.

-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


delsi integer

[*] Jan Pomikalek <pomikaj(zv)feld.cvut(tec)cz> - 31.3.1999 13:14:03 met-1mest

> > muze mi prosim nekdo poradit, zda se da v Pascalu nebo v Delphi
> > nadeklarovat delsi nez 32bitova celociselna promenna (tedy neco
> > delsiho nez je longint)?
>
> Delphi 4, int64.

A v nizsich verzich neco takoveho neni? Mam jen dvojku.

-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


ovladani klavesnici

[*] Jan Pomikalek <pomikaj(zv)feld.cvut(tec)cz> - 31.3.1999 13:15:02 met-1mest

> Tak nepouzivej TButtony nebo TBitButtony, ale TSpeedButtony nebo
> jak se to jmenuje...

OK, zkusim to. Diky za radu.

-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


Podminena kompilace

[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 31.3.1999 15:43:58



-----Puvodni zprava-----
Od: Martin Lasevic [SMTP:Lasevic(zv)atlas(tec)cz]
Odeslano: 31. boezna 1999 12:54
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: Podminena kompilace

Zkusit tento postup:
1) Pouzit vlastni resource soubor, ktery obsahuje stringTable ( slo to uz v D1).
2) Ke kazde komponente nezadavat primo texty, ale odkazy do stringtable. Odkaz je
cele cislo a kdyz si to sikovne ocislujes, tak staci ve zdrojacich zmenit pres direktivu
IFDEF cislo na dany string a ten natahnout do dane property. Priklady cislovani .:
0001 - 1000 cestina
1001 - 2000 nemcina
atp.

Je to jen hruby nastin, podronejsi info Ti muzu poslat na soukromy mail.

Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
E-mail : ml_software(zv)email(tec)cz
htt://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================



-----Puvodni zprava-----
Od: David Hrbac [SMTP:hrbac.david(zv)usa.net]
Odeslano: 31. boezna 1999 11:55
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Podminena kompilace

Resim problem lokalizace sveho softwaru, zkousel jsem si otevrit formular
jako text a pouzit standardne $IFDEF..., ale tady to nefunguje. Rad bych
nasel nejake reseni, jak zmenit text pri kompilaci, ale tak aby se mi
zbytecne nezvetsovala velikost vysledneho kodu.
Diky
David

Drag and Drop

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 31.3.1999 15:48:21

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

//reakce na prispevek nekdy z cervence 1998

Bezva, funguje to, ale lze nejak "nepretahovat" adresare ?
Nebo jeste jinak, lze pripadne "presouvat" jen soubory podle
jejich p��pony.

T�eba Accept-ovat jen *.txt ??? Nemyslim tim ten radek
Memo1.Lines.Add(FileName), ale jde mi o kurzor mysi.

Dobra.> ----------
> Od: Petr Vones[SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 21. �ervence 1998 17:47
> Komu: DELPHI Distribution List
> P�edm�t: Re: Drag and Drop
>
> Krayzel Libor wrote:
> >
> > Zdravim vsechny,
> >
> > jak zajistit, aby slo do me aplikace pretahovat soubory napr. z
> > Pruzkumnika?
> > Dekuji
>
> Ahoj,
>
> tady je jednoduchy priklad, slo by to udelat i jako komponenta aby
> to bylo obecne pouzitelne:
>
>
> unit Unit11;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs,
> StdCtrls, ShellAPI;
>
> type
> TForm1 = class(TForm)
> Memo1: TMemo;
> procedure FormCreate(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> private
> FNewWndProc, FOldWndProc: Pointer;
> procedure ComponentWndProc(var Msg: TMessage);
> procedure DropFiles(DropHandle: HDROP);
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> FNewWndProc := MakeObjectInstance(ComponentWndProc);
> FOldWndProc := Pointer(SetWindowLong(Memo1.Handle, GWL WNDPROC,
> Longint(FNewWndProc)));
> DragAcceptFiles(Memo1.Handle, True);
> end;
>
> procedure TForm1.FormDestroy(Sender: TObject);
> begin
> DragAcceptFiles(Memo1.Handle, False);
> SetWindowLong(Memo1.Handle, GWL WNDPROC, Longint(FOldWndProc));
> FreeObjectInstance(FNewWndProc);
> end;
>
> procedure TForm1.ComponentWndProc(var Msg: TMessage);
> begin
> with Msg do
> if Msg = WM DROPFILES then DropFiles(WParam) else
> Result := CallWindowProc(FOldWndProc, Memo1.Handle, Msg, WParam,
> LParam);
> end;
>
> procedure TForm1.DropFiles(DropHandle: HDROP);
> var
> FilesCount, I: Integer;
> FileName: array[0..MAX PATH] of Char;
> begin
> FilesCount := DragQueryFile(DropHandle, -1, nil, 0);
> for I := 0 to FilesCount -1 do
> begin
> DragQueryFile(DropHandle, I, (zv)FileName, Sizeof(FileName));
> Memo1.Lines.Add(FileName);
> end;
> end;
>
> end.
>
> Petr Vones, amatersky
> programator
>
>
>
>
>

Odchyceni Klavesy nad TPageControl

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 31.3.1999 16:24:12

A vlastnost formu KeyPreview na hodnotu true mas ?> ----------
> Od: Hrabi of Chmeliste[SMTP:MHrabanek(zv)merlin(tec)cz]
> Odesl�no: 31. b�ezna 1999 18:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Odchyceni Klavesy nad TPageControl
>
> Zdar lidi,
> cista lenost a nezkusenost a vira ve Vase schopnosti me privedla na
> myslenku sem napsat. Jsem v situaci, kdy mam v TPageControl nejake
> divne veci, kterychzto informacni hodnota po case muze nabyt
> neplatnych hodnot. Paklize obsluha uzna za vhodne, ze by chtela tento
> cas anulovat, stiskne F5 a udaje se zaktualni. Tedy takovy normalni
> Refresh. Fajnova vec, jen mam problem, ze standartni delphi mi nad
> TPageControl nenabizi OnKeyPress udalost a kdyz tuto udalost obsadim
> nad vlastnikem PageControlu (tedy TFormu), tak si ani neskrtne.
> Mohl by mi prosim nekdo poradit, jak jednoduse (asi pres API, ze?)
> odchytit takovy stisk klavesy F5?
>
>

Vyber 5 nejvetsich radku

[*] muher(zv)csas(tec)cz - 31.3.1999 17:37:34

Napadaji mne tyto moznosti:

1) {zkouseno na mssql 6.5}
set rowcount 5 --vsechny nasledujici dotazy vrati jen 5 radku
select C6 from T20 order by C6
set rowcount 0 --vsechny nasledujici dotazy vrati vsechny radky

2) vytvorit docasnou tabulku kde bude navic sloupec s cislem radku
a pouzita identity(1,1). Vlozit do ni srovnanou tabulku a nasledny
select vybere vsechny radky, ktere jsou mensi nez 6 pro novy sl.

3) {pro mssql 7.0}
select top 5 ...

Reseni, resp. rychlost vysledku je zavisla jak je videt na platforme resp.
implementaci.> -----Original Message-----
> From: Cibulka Karel [SMTP:K.Cibulka(zv)sh.cvut(tec)cz]
> Sent: Tuesday, March 30, 1999 8:25 PM
> To: Delphi - maillist
> Subject: SQL: Vyber 5 nejvetsich radku
>
> Ahoj (tohle nesouvisi primo z Delphi ale snad to nevadi),
>
> dneska jsem psal pisemku z SQL a meli jsme tam takovy jednoduchy
> prikladek:
> Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
> Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy, cilem
> bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
> hodnoty platu.
> A to vsechno pomoci 1 SQL dotazu.
>
> Nejdrive jsme si vsichni mylsleli, ze to je jednoduchy, ale nakonec to
> nevedel ani ucitel, co si ten priklad vymyslel.
>
> Celou dobu mi to vrta hlavou, ale na nic jsem neprisel, treba to napadne
> nejakou chytrou hlavicku na tehle konferenci??
>
> --
> <TT>
> /* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
> /* xcibulka(zv)hwlab.felk.cvut(tec)cz */
> /* KCibulka(zv)seznam(tec)cz */
> /* ardour(zv)usa.net */
> /* OnLine: If you have ICQ my ICQ# is 4111110. */
> /* If you don't have ICQ you can page me through: My Personal */
> /* Communication Center: http://wwp.mirabilis.com/4111110 */
> /* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
> /* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
> /* Msgs with word "SMS:" in subject will be sent to my GSM phone */
> </TT>
>
>

TCP/IP: UDP a cekani na udalost

[*] muher(zv)csas(tec)cz - 31.3.1999 17:44:17

Zdravim,
pouzivam pro komunikaci UDP. S vysilanim paketu neni
problem, ale chci na pakety cekat a pri tom delat neco
jineho. Mate nekdo zkusenosti jak vytvorit nebo obslouzit
takoveto udalosti (prisel paket - vyzvedni si jej z bufferu)?

Dekuji

Martin UHER

SQL: Vyber 5 nejvetsich radku

[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 31.3.1999 17:52:05



Petr Zahradnik wrote:

>
> To jste si mysleli naprosto spravne, ze je to jednoduche, a ten ucitel,
> to asi bude ucitel na neco jineho, rozhodne vsak ne na SQL :)))))
> Radeji tam nechod. Takhle to udelas:
>
> SELECT TOP 5 * FROM pokd2 ORDER BY PLAT DESC
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert

Hmm, tak nevim na cem to funguje, ted jsem to zkousel na Oracle7 a bohuzel:

hnedle na te 5 za TOP to hodi chybu:
select top 5 * from emp order by sal desc
*
ERROR at line 1:
ORA-00923: FROM keyword not found where expected

Takze to asi nebude chodit na vsech verzich SQL, nevim jakou verzi podporuje
Oracle7, ale asi to bude pouze SQL92...
Zase tolik do toho nevidim.

A mimochodem, bylo jeste potreba tech 5 vybranych polozek vlozit do jine
tabulky a kdyz se to provadelo pomoci
INSERT INTO table (...) select * ... order by ...
to hazelo zase jinou chybu, primo na tom order by:

insert into messages (numcol1) select sal from emp order by sal
*
ERROR at line 1:
ORA-00933: SQL command not properly ended

Tak nevim co to tam za Oracle vlastne je...

Ale jinak diky za radu.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* ardour(zv)usa.net */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
/* If you don't have ICQ you can page me through: My Personal */
/* Communication Center: http://wwp.mirabilis.com/4111110 */
/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
</TT>

SQL: Vyber 5 nejvetsich radku

[*] Lubo Fule <fule(zv)sct.sk> - 31.3.1999 18:05:05

Sa bojim, ze akekolvek riesenie je zavisle od pouziteho SQL servra. Myslim,
ze na teoretickej urovni sa to neda, pretoze standartny SQL nic take
neumozmuje (napr. MSSQL "TOP" nepozna).

Lubo.

-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Zahradnik
Sent: Wednesday, March 31, 1999 6:28 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: SQL: Vyber 5 nejvetsich radku


Puvodni zprava, kterou napsal Cibulka Karel dne 30 Mar 99,:

> dneska jsem psal pisemku z SQL a meli jsme tam takovy jednoduchy
> prikladek:
> Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
> Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy, cilem
> bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
> hodnoty platu. A to vsechno pomoci 1 SQL dotazu.
>
> Nejdrive jsme si vsichni mylsleli, ze to je jednoduchy, ale nakonec to
> nevedel ani ucitel, co si ten priklad vymyslel.

To jste si mysleli naprosto spravne, ze je to jednoduche, a ten ucitel,
to asi bude ucitel na neco jineho, rozhodne vsak ne na SQL :)))))
Radeji tam nechod. Takhle to udelas:

SELECT TOP 5 * FROM pokd2 ORDER BY PLAT DESC


S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== 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 ===
==============================================================
ICQ: 21215917, PGP vitano

Odchyceni Klavesy nad TPageControl

[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 31.3.1999 16:06:53 -0000

Zdar lidi,
cista lenost a nezkusenost a vira ve Vase schopnosti me privedla na myslenku sem napsat. Jsem v situaci, kdy mam v TPageControl nejake divne veci, kterychzto informacni hodnota po case muze nabyt neplatnych hodnot. Paklize obsluha uzna za vhodne, ze by chtela tento cas anulovat, stiskne F5 a udaje se zaktualni. Tedy takovy normalni Refresh. Fajnova vec, jen mam problem, ze standartni delphi mi nad TPageControl nenabizi OnKeyPress udalost a kdyz tuto udalost obsadim nad vlastnikem PageControlu (tedy TFormu), tak si ani neskrtne.
Mohl by mi prosim nekdo poradit, jak jednoduse (asi pres API, ze?) odchytit takovy stisk klavesy F5?

SQL: Vyber 5 nejvetsich radku

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.3.1999 17:27:33

Puvodni zprava, kterou napsal Cibulka Karel dne 30 Mar 99,:

> dneska jsem psal pisemku z SQL a meli jsme tam takovy jednoduchy
> prikladek:
> Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
> Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy, cilem
> bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
> hodnoty platu. A to vsechno pomoci 1 SQL dotazu.
>
> Nejdrive jsme si vsichni mylsleli, ze to je jednoduchy, ale nakonec to
> nevedel ani ucitel, co si ten priklad vymyslel.

To jste si mysleli naprosto spravne, ze je to jednoduche, a ten ucitel,
to asi bude ucitel na neco jineho, rozhodne vsak ne na SQL :)))))
Radeji tam nechod. Takhle to udelas:

SELECT TOP 5 * FROM pokd2 ORDER BY PLAT DESC


S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== 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 ===
==============================================================
ICQ: 21215917, PGP vitano


Delphi a assembler

[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 31.3.1999 18:41:29



Od: Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz>

> [] No podle toho co je napsane v Mikroprocesory Pentium a spol (Grada)
> tak v protected rezimu opravdu neni Segment : Offset, ale Selector :
> Offset.

Sure, upsal jsem se :-((> Pokud vim, a to je otazka do plena tak, v Delphi lze kompilovat programy
> pouze pro Ring 3, takze se k selektorum nejde dostat (viz. privilegovane
> instrukce). Nevim ci to sezere vestaveny assembler, ale i kdyby to
> prelozil(nebo by se mu pomohlo nejakou fintou .... treba db xx {v dobe
> paskalu inline xx}) tak si myslim, ze by bud byla vyvolana vyjimka, nebo
> by tu instrukci Windows v obsluze vyjimky emulovala).

Co vim, tak to konci GPF.

Bye, pf


Bye, pf

TCP/IP: UDP a cekani na udalost

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 31.3.1999 18:41:45



>Zdravim,
> pouzivam pro komunikaci UDP. S vysilanim paketu neni
>problem, ale chci na pakety cekat a pri tom delat neco
>jineho. Mate nekdo zkusenosti jak vytvorit nebo obslouzit
>takoveto udalosti (prisel paket - vyzvedni si jej z bufferu)?


tyto moznosti povazuji za rozumne:
1) WSAAsyncSelect (vyzaduje okno pro zpracovani message a tedy i funkcni
rutinu, ktera zpravu cte a rozesila (ProcessMessagess)
2) klasicky select ale v jinem threadu

Zdravi
D. Toman

SQL: Vyber 5 nejvetsich radku

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 31.3.1999 18:42:47

Cibulka Karel wrote:

> dneska jsem psal pisemku z SQL a meli jsme tam takovy jednoduchy
> prikladek:
> Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
> Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy, cilem
> bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
> hodnoty platu. A to vsechno pomoci 1 SQL dotazu.

DBDEMOS:

select * from customer
where CustNo>=(select Max(CustNo) from customer
where CustNo<(select max(CustNo) from customer
where CustNo<(select max(CustNo) from customer
where CustNo<(select max(CustNo) from customer
where CustNo<(select max(CustNo) from customer
)))))
order by CustNo desc

Nevim, jak pisete pisemky, ale predpokladam, ze mate k dispozici
manual a pocitac, kde to muzete hned zkouset.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Balicky, komponenty ...

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 31.3.1999 18:42:46

eL wrote:

> Diky za odpoved.
> Jeste se zeptam k cemu slouzi v delphi adresar Imports a zda je tedy uplne
> jedno v kterem adresari na disku budou balicky se zdrojaky. Pouzivam
> Delphi 4.

Do tohoto adresare se ti ulozi napriklad unity COM trid, ktere
vysosas z prislusnych DLL (*_TLB.PAS). Je skutecne jedno, kde
budes balicky mit (radeji je vsak neposilej do Imports), jen si musis
ohlidat, zda se ti ulozila i cesta k tem balickum.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


TCP/IP: UDP a cekani na udalost

[*] muher(zv)csas(tec)cz - 31.3.1999 18:54:26


> >Zdravim,
> > pouzivam pro komunikaci UDP. S vysilanim paketu neni
> >problem, ale chci na pakety cekat a pri tom delat neco
> >jineho. Mate nekdo zkusenosti jak vytvorit nebo obslouzit
> >takoveto udalosti (prisel paket - vyzvedni si jej z bufferu)?
>
>
> tyto moznosti povazuji za rozumne:
> 1) WSAAsyncSelect (vyzaduje okno pro zpracovani message a tedy i funkcni
> rutinu, ktera zpravu cte a rozesila (ProcessMessagess)
> 2) klasicky select ale v jinem threadu
>
> Zdravi
> D. Toman
>
[Uher Martin] Muzes to prosim blize popsat? Na zpravu
cekam ve threadu, ktery pred tim odeslal pozadavek na
nejakou odpoved. Zajima mne jak se to ma v threadu udelat.
Jak ma vypadat procedura pro obsluhu, jak ji podstrcit fci
WSAAsyncSelect. Zkratka, "kopni" mne jeste kousek dal.

Diky

MU


SQL: Vyber 5 nejvetsich radku

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 31.3.1999 18:01:43

Puvodni zprava, kterou napsal Cibulka Karel dne 31 Mar 99,:

> > SELECT TOP 5 * FROM pokd2 ORDER BY PLAT DESC
>
> Hmm, tak nevim na cem to funguje, ted jsem to zkousel na Oracle7 a
> bohuzel:

Ja to zkousel na Sybase Adaptive Server 6.0 Anywhere, kde TOP je definovan,
na oracle jsem tu cetl FIRST, ale to me na Sybase zase dava jen ten
prvni radek, neumozni pocet - na to mam TOP.


S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== 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 ===
==============================================================
ICQ: 21215917, PGP vitano


Vyber 5 nejvetsich radku

[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 31.3.1999 19:22:15

>A ktera verze Informixu to podporuje?
>Mame starou dobrou 5.01 na Unixu, ale
>tuto syntax 100% nepozna.


Ano, umi to verze 7.30 (umi toho oproti 5 jeste mnoho dalsich uzitecnych
veci).

Leos Urban


SQL: Vyber 5 nejvetsich radku

[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 31.3.1999 19:42:55

>> bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle

>select * from customer
>where CustNo>=(select Max(CustNo) from customer
>where CustNo<(select max(CustNo) from customer
>where CustNo<(select max(CustNo) from customer
>where CustNo<(select max(CustNo) from customer
>where CustNo<(select max(CustNo) from customer
>)))))
>order by CustNo desc


Kdyby 'CustNo' byl 'Plat' a
zamestanci meli stejne platy, nebyl by to problem :) ?

S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz

TCP/IP: UDP a cekani na udalost

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 31.3.1999 19:47:43

>>
> [Uher Martin] Muzes to prosim blize popsat? Na zpravu
> cekam ve threadu, ktery pred tim odeslal pozadavek na
> nejakou odpoved. Zajima mne jak se to ma v threadu udelat.
> Jak ma vypadat procedura pro obsluhu, jak ji podstrcit fci
> WSAAsyncSelect. Zkratka, "kopni" mne jeste kousek dal.
pokud cekas ve threadu pak pouzij select:

FD_ZERO(FD);
FD_SET(S,FD);

TV.tv_sec := 0;
TV.tv_usec := 200000;

while true do
begin
res := select(0,FD,NIL,NIL,NIL,(zv)Time);
if res > 0 then
begin
// packet prijat, tak ho zpracuj - recvfrom() atd
end
else
if res < 0 then
begin
// doslo k nejake chybe
break;
end;
end;

tohle bude cekat tak dlouho nez neco prijde na socket


Zdravi
D. Toman


Systemovy cas

[*] Peter Rus <peterrus(zv)intesys(tec)cz> - 31.3.1999 20:15:32

Ahoj,

> Zkusim svoje vysvetleni. Treba se ani moc neseknu a nebudu za blbce.
>
> 1. pokud se da remove dos, tak uz se po down a exit do dosu nevratis. Nepouzivam
> to, ale tak to chapu podle manualu.

Jou, presne tak to je. A protoze nemas DOS, neresis problem s DOSem
:-))) Velice prakticke.

> 2. Po startu serveru se Dos uplne odstavi a nedostava ani preruseni
> (pochopitelne), pouze se zakonzervuje pro exit. No a po exitu se opet vrati, ale
> vlastne do puvodniho stavu, v jakem byl pri startu serveru. Takze v nem je cas
> jako pri startu serveru. A pokud se dobre pamatuji, tak Dos si pocita prubezny cas
> sam a bere ho z Cmosky jen pri startu. Takze je to vlastne vsechno v poradku.....

Jou, taky to vidim takhle. Proste ten prostor vezme, obali a
zakonzervuje. S tim casem to nejspis taky bude tak. Pekne to podle toho
vychazi, takze to bude ono.

Mej se, prijemny den a hodne vajec,

Peter


DBGrid1 -- OnChange???

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 31.3.1999 20:44:26

Preji vsem pekneho dne,

mam formular se dvema DBGridy (One to Many) a potrebuji zjistit,
kdy se v druhem DBGridu zmeni data (neco jako OnDataChange).
Primarni potreba prameni z toho, ze pokud je ve druhem DBGridu
nula polozek, potrebuji mu zmenit barvu. Jak na to?

Dekuji za rady

Slavek


----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------


Zalohovani

[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 31.3.1999 21:54:09

Pouzivam free komponentu Delphi Zip od Erica W. Englera. Jezto nemohu naj�t odkaz (asi je to z DSP), mohu poslat na soukrom� e-mail p��slu�n� samorozbalovaci archiv DELZIP.EXE. Jako doplnek obsahuje dalsi dve sikovne komponenty pro deleni archivu na mensi dily a jejich spojovani a hromadne kopirovani. Jsem s nimi spokojen.

Zdravi

Zdravi
* Petr Ma��k *
* RT electronic *
* rtepema(zv)mbox.vol(tec)cz *
* tel. -02-20510562 *
-----P�vodn� zpr�va-----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. b�ezna 1999 10:21
P�edm�t: Zalohovani


Preji vsem pekneho dne,

potrebuji ve sve aplikaci zalohovat data z tabulek na diskety. Nevite
o nejake komponente, ktera by toto resila? Nejlepe predat tabulku
a napriklad v udalosti OnChangeDrive vyvolat dialog na vymenu
diskety. Stejne tak pak data obnovovat.

Diky za odpovedi

Slavek


----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------

Pokus o preklad VCL s debug info

[*] Karel Kral <kral(zv)purus(tec)cz> - 31.3.1999 22:13:47

J� to d�l�m b�n�, p�elo�it to jde.
Hle co na to Debuger: Maxint div 16 = 134217727. To nen� m�lo a rozhodn�
to nen� 2.

Petr Fejfar wrote:
>
> Hi,
>
> zkousel jsem prelozit pod D4 prof., SP3 aplikaci tak, ze jsem na zacatek
> search path zahrnul cestu k SOURCE\VCL. Skoncilo to chybou v unit classes na
> prekladu definice:
>
> TStringItemList = array[0..MaxListSize] of TStringItem
>
> Celkem opravnene, protoze MaxListSize je definovan jako Maxint div 16 a
> TStringItem je record dvou pointeru.
>
> Zkousel nekdo trasovat aplikaci vcetne knihoven u D4? Jak to delal?
>
> Thanx, pf

--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________


COM/DCOM

[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 31.3.1999 22:46:48

Ahoj,

pratele, nevite nekdo o nejakem dobre citelnem
zdroji(kniha, WEB ...) o praci s COM/DCOM.
Nejak tomu nemuzu porozumet. Pripadne
odkud zacit se tim prokousavat.

Diky moc

S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203


Outline

[*] OceaniC <pleticha(zv)kol1.kolej.ujep(tec)cz> - 31.3.1999 22:58:26

Ahojky,

jak jednoduse udelat outline u pismene ???
(napr: pismo zlutou a okraj cernou)

Dik za kazde kopnuti...

OceaniC 20084514


Predani parametru do kontruktoru

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.1999 23:05:12

Nov�k Radek wrote:
>
> Vi nekdo jak slusne predat parametry do constructoru Create objektu,
> ktery je dynamicky vytvaren az za behu?
> ...
> MujObjekt := TMujObjekt.Create(Application) /
>
> Nechci, nebo nemuzu prepisovat constructor,

Ahoj,

No, ale pokud chces predat parametry DO konstruktoru tak tech moznosti
prece zase tolik neni. V cem je takovy problem prepsat kontruktor ?

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Pokus o preklad VCL s debug info

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.1999 23:07:21

Petr Fejfar wrote:
>
> Hi,
>
> zkousel jsem prelozit pod D4 prof., SP3 aplikaci tak, ze jsem na zacatek
> search path zahrnul cestu k SOURCE\VCL. Skoncilo to chybou v unit classes na
> prekladu definice:
>
> TStringItemList = array[0..MaxListSize] of TStringItem
>
> Celkem opravnene, protoze MaxListSize je definovan jako Maxint div 16 a
> TStringItem je record dvou pointeru.

Ahoj,

To ale vubec neni opravnene, velikost TStringItemList je prece:

MaxInt div 16 * 8 => MaxInt div 2 => 1G

Koneckoncu, muzes si to overit na prikladu:

const
XMaxListSize = Maxint div 16;

type
XTStringItem = record
FString: string;
FObject: TObject;
end;

XTStringItemList = array[0..XMaxListSize] of XTStringItem;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessageFmt('%d %d %d %d',
[MaxInt, XMaxListSize, Sizeof(XTStringItem), Sizeof(XTStringItemList)]);
end;

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Zalohovani

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.1999 23:07:33

Mal� Dobromil wrote:
>
> Mozna, kdyby nekdo znal strukturu tech *.SET souboru, treba Bill,
> a zverejnil by ji, uz by nebyl problem soubor vytvorit.
> Takze - mate nekdo napad, jak to zjistit ?

No, on asi hlavne Bill ani nevi ze existuje nejaky MS Backup :-))
Jednoduche to nebude, spis bych to videl dost nerealne. Navic pracovat
primo s tim souborem by se mi taky moc nelibilo, lepsi by bylo nejake
rozhrani pomoci ktereho by se to delalo.

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

JPG to BLOB

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.1999 23:07:50

Tomas Bradle wrote:
>
> Zdravim,
>
> a coz takhle zkusit misto TDBImage -> TDBJpegImage, ktera by pracovala s
> JPEGy
> popripade s obojim (treba i s GIFy) podle obsahu hlavicky binarnich dat
> (bitmapa zacina BM, GIF zacina GIF, JPEG ma na offsetu 6 JFIF).
> V pripade TJpegGraphicField: neslo by predefinovat constantu:
>
> DefaultFieldClasses: array[TFieldType] of TFieldClass;
>
> v unite DB ? popripade predefinovat metodu:
>
> function GetFieldClass(FieldType: TFieldType): TFieldClass;

Ahoj,

Novy field staci zaregistrovat pomoci RegisterFields, tak docilis toho ze
bude na vyber ve Field editoru. Predefinovat GetFieldClass neni to prave,
protoze by se musel odvozovat i novy dataset. Prave proto jsem to chtel
resit dalsim editorem u datasetu, ktery by provedl zmenu z TGraphicField
na TJpegGraphicField.

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Richedit a zacatek radku

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.1999 23:08:12

Lubos wrote:
>
> > > hm, nerozumiem.
> > > SelStart je hodnota prveho vyselektovaneho znaku od zaciatku
> > > RichEditu.
> >
> > V podstate potrebuju tohle:
> >
> > * mam kurzor nekde uprostred textu
> > * potrebuju oznacit do bloku text od toho mista, kde je kurzor po zacatek
> > radku, kde je kurzor

Ahoj,

Na zacatek radku se dostanes takhle:

uses
RichEdit;

procedure TForm1.Button1Click(Sender: TObject);
var
Line, CharPos: Integer;
begin
Line := SendMessage(RichEdit1.Handle, EM_EXLINEFROMCHAR, 0, RichEdit1.SelStart);
CharPos := SendMessage(RichEdit1.Handle, EM_LINEINDEX, Line, 0);
RichEdit1.SelStart := CharPos;
end;

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Prepinani klavesnice (Was:Jednou =?iso-8859-2?Q?sp

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.1999 23:10:18

Lubos wrote:
>
> Caute !
>
> Mam taky problemik.
> Potrebujem programovo menit klavesnicu, napr. z anglickej na slovensku.
> Mozete ma niekto nakopnut na nejaku API funkciu, prip. iny sposob ?

Ahoj,

Muzes to udelat nejak takhle:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure FillKeyboardLayouts(Layouts: TStrings);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.FillKeyboardLayouts(Layouts: TStrings);
const
MaxLayoutHandles = 50;
var
LayoutCount, I: Integer;
LayoutHandles: array [1..MaxLayoutHandles] of HKL;
C: array[0..40] of Char;
begin
Layouts.BeginUpdate;
try
LayoutCount := GetKeyboardLayoutList(MaxLayoutHandles, LayoutHandles);
Layouts.Clear;
for I := 1 to LayoutCount do
begin
GetLocaleInfo(LOWORD(LayoutHandles[I]), LOCALE_SLANGUAGE, C, Sizeof(C));
Layouts.AddObject(C, Pointer(LOWORD(LayoutHandles[I])));
end;
finally
Layouts.EndUpdate;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FillKeyboardLayouts(ListBox1.Items);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with ListBox1 do
if ItemIndex >= 0 then
ActivateKeyboardLayout(HKL(Items.Objects[ItemIndex]), KLF_REORDER);
end;

end.


Mimochodem, v API helpu se u GetKeyboardLayoutList pise, ze kdyz bude parametr
nBuff nulovy, tak funkce vrati celkovy pocet prvku. Ale me to stale vraci 0,
jak vam ?

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Drag and Drop

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 31.3.1999 23:24:30

Mal� Dobromil wrote:
>
> //reakce na prispevek nekdy z cervence 1998
>
> Bezva, funguje to, ale lze nejak "nepretahovat" adresare ?
> Nebo jeste jinak, lze pripadne "presouvat" jen soubory podle
> jejich p��pony.
>
> T�eba Accept-ovat jen *.txt ??? Nemyslim tim ten radek
> Memo1.Lines.Add(FileName), ale jde mi o kurzor mysi.

Ahoj,

Jde to, ale je to uz trochu slozitejsi. Tady mas narychlo napsany takovy naznak
jak by to slo udelat. Zbytek uz si pak dodelas sam.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ActiveX, ShlObj, FileCtrl;

type
TAcceptQueryEvent = procedure(Sender: TObject; var Accept: Boolean) of object;

TDropTarget = class(TInterfacedObject, IDropTarget)
private
FEffect: Longint;
FFilesList: TStrings;
FOnAcceptFilesQuery: TAcceptQueryEvent;
FOnDropFiles: TNotifyEvent;
procedure EnumDataObject(const dataObj: IDataObject);
protected
function DoAcceptFilesQuery: Boolean; dynamic;
procedure DoDropFiles; dynamic;
function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;
pt: TPoint; var dwEffect: Longint): HResult; stdcall;
function DragOver(grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
function DragLeave: HResult; stdcall;
function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
constructor Create;
destructor Destroy; override;
public
property FilesList: TStrings read FFilesList;
property OnAcceptFilesQuery: TAcceptQueryEvent read FOnAcceptFilesQuery write FOnAcceptFilesQuery;
property OnDropFiles: TNotifyEvent read FOnDropFiles write FOnDropFiles;
end;

TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
DropTarget: TDropTarget;
procedure OnAcceptFilesQuery(Sender: TObject; var Accept: Boolean);
procedure OnDropFiles(Sender: TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TDropTarget }

constructor TDropTarget.Create;
begin
inherited Create;
FFilesList := TStringList.Create;
end;

destructor TDropTarget.Destroy;
begin
FFilesList.Free;
inherited Destroy;
end;

function TDropTarget.DoAcceptFilesQuery: Boolean;
begin
Result := False;
if Assigned(FOnAcceptFilesQuery) then FOnAcceptFilesQuery(Self, Result);
end;

procedure TDropTarget.DoDropFiles;
begin
if Assigned(FOnDropFiles) then FOnDropFiles(Self);
end;

function TDropTarget.DragEnter(const dataObj: IDataObject;
grfKeyState: Integer; pt: TPoint; var dwEffect: Integer): HResult;
begin
EnumDataObject(dataObj);
if DoAcceptFilesQuery then
dwEffect := DROPEFFECT_COPY
else
dwEffect := DROPEFFECT_NONE;
FEffect := dwEffect;
Result := S_OK;
end;

function TDropTarget.DragLeave: HResult;
begin
FEffect := DROPEFFECT_NONE;
Result := S_OK;
end;

function TDropTarget.DragOver(grfKeyState: Integer; pt: TPoint;
var dwEffect: Integer): HResult;
begin
dwEffect := FEffect;
Result := S_OK;
end;

function TDropTarget.Drop(const dataObj: IDataObject; grfKeyState: Integer;
pt: TPoint; var dwEffect: Integer): HResult;
begin
if dwEffect <> DROPEFFECT_NONE then
begin
DoDropFiles;
dwEffect := DROPEFFECT_NONE;
end;
Result := S_OK;
end;

procedure TDropTarget.EnumDataObject(const dataObj: IDataObject);
var
EnumFormatEtc: IEnumFORMATETC;
FormatEtc: TFORMATETC;

procedure FillFilesList;
var
StgMed: TStgMedium;
DropFiles: PDropFiles;
Names: PChar;
begin
if dataObj.QueryGetData(FormatEtc) = S_OK then
begin
dataObj.GetData(FormatEtc, StgMed);
DropFiles := GlobalLock(StgMed.hGlobal);
Names := PChar(DropFiles) + DropFiles.pFiles;
while Names^ <> #0 do
begin
FFilesList.Add(Names);
Inc(Names, StrLen(Names) + 1);
end;
GlobalFree(StgMed.hGlobal);
ReleaseStgMedium(StgMed);
end;
end;

begin
FFilesList.Clear;
if dataObj = nil then Exit;
dataObj.EnumFormatEtc(DATADIR_GET, EnumFormatEtc);
while EnumFormatEtc.Next(1, FormatEtc, nil) <> S_FALSE do
if FormatEtc.cfFormat = CF_HDROP then FillFilesList;
end;{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
DropTarget := TDropTarget.Create;
DropTarget.OnAcceptFilesQuery := OnAcceptFilesQuery;
DropTarget.OnDropFiles := OnDropFiles;
RegisterDragDrop(Memo1.Handle, DropTarget);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RevokeDragDrop(Memo1.Handle);
end;

procedure TForm1.OnAcceptFilesQuery(Sender: TObject; var Accept: Boolean);
var
I: Integer;
begin
with TDropTarget(Sender).FilesList do
for I := 0 to Count - 1 do
if not (DirectoryExists(Strings[I])) and (LowerCase(ExtractFileExt(Strings[I])) = '.txt') then
Accept := True;
end;

procedure TForm1.OnDropFiles(Sender: TObject);
begin
Memo1.Lines.Assign(TDropTarget(Sender).FilesList);
end;

initialization
OleInitialize(nil);
finalization
OleUninitialize;
end.


--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

SQL a UPDATE

[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 1.4.1999 00:37:51

Ahoj,

myslim, ze je problem v tom, ze BB mas typu real/numeric/float.
Pak jsou problemy v tom, ze si server ulozi napr. hodnotu 2.0000000154.
Zkus si pokusne nahradit podminku BB=2 podminkou (BB-2) < 0.01.

A proc Ti fungovala zbesila podminka (not BB <> 2) ?
Je to z toho duvodu, ze not se vaze pevneji nez operator porovnani.
Zkus to zmenit na (not (BB<>2)) ...

S pozdravem, Ladislav Nagy

===========================================
Mgr. Ladislav Nagy
MFF UK & Baader Computer spol. s r.o.
tel. : 02 / 24941962, -63, -65 fax : -64
lnag7384(zv)mail.kolej.mff.cuni(tec)cz , Ladislav.Nagy(zv)bcpraha(tec)cz


Vyber 5 nejvetsich radku

[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 1.4.1999 00:56:23

Ahoj,

vzhledem k tomu, ze daval ucitel studentum do pisemky na jazyk SQL, tak lze
predpokladat,
ze nechtel zadne specialitky konkretniho implementace SQL.

Obecne Standard SQL problem "Nalezni X nejvetsich ..." resit neumi.
Existuji dve mozna reseni (opomenu-li specialitky, ktere nastavi max. #
radku na vystupu).
1. Udelat si setrideny dotaz (CURSOR), dojet na X-ty zaznam a vypsat jej.
2. udelat pro kazde X (zde X=5) jeden sileny dotaz.
Zde je nastin jak vypsat 5-tou nejvetsi hodnotu
(predpokladam, ze A jsou UNIQUE. Kdyby ne, tak by byl dotaz trochu
delsi.):

SELECT MAX(T5.A)
FROM T T5
WHERE T5.A <
(SELECT MAX (T4.A)
FROM T T4
WHERE T4.A <
(SELECT MAX (T3.A)
FROM T T3
WHERE T3.A <
(SELECT MAX (T2.A)
FROM T T2
WHERE T2.A <
(SELECT MAX (T1.A)
FROM T T1))))

S pozdravem, Ladislav Nagy

===========================================
Mgr. Ladislav Nagy
MFF UK & Baader Computer spol. s r.o.
tel. : 02 / 24941962, -63, -65 fax : -64
lnag7384(zv)mail.kolej.mff.cuni(tec)cz , Ladislav.Nagy(zv)bcpraha(tec)cz

RXLIB a Windows 98

[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 1.4.1999 04:44:04

>> Ahoj.
>>
>> Podarilo se nekomu nainstalovat RXLIB pro Delphi 4 na Windows 98 ?
>> Trapil jsem se s tim asi 3 hodiny a nic.
>
>Jakou mas videokartu?
>
>Ales
>


Ahoj.

Mam S3 ViRGE -DX/GX PCI (375/385) 4MB. Myslis, ze by to mohlo byt tou kartou
?.

eL..

Zalohovani

[*] Martin <geoplan(zv)pp.sinet.sk> - 1.4.1999 06:59:33

Mozem aj ja poprosit o zaslanie ?
vdaka

Martin
geoplan(zv)pp.sinet.sk


-----P�vodn� spr�va-----
Od: Petr Ma��k <rtepema(zv)mbox.vol(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 31. marec 1999 23:38
Predmet: Re: Zalohovani


>Pouzivam free komponentu Delphi Zip od Erica W. Englera. Jezto nemohu naj�t
odkaz (asi je to z DSP), mohu poslat na soukrom� e-mail p��slu�n�
samorozbalovaci archiv DELZIP.EXE. Jako doplnek obsahuje dalsi dve sikovne
komponenty pro deleni archivu na mensi dily a jejich spojovani a hromadne
kopirovani. Jsem s nimi spokojen.
>
>Zdravi
>
>Zdravi
>* Petr Ma��k *
>* RT electronic *
>* rtepema(zv)mbox.vol(tec)cz *
>* tel. -02-20510562 *
>-----P�vodn� zpr�va-----
>Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 29. b�ezna 1999 10:21
>P�edm�t: Zalohovani
>
>
>Preji vsem pekneho dne,
>
>potrebuji ve sve aplikaci zalohovat data z tabulek na diskety. Nevite
>o nejake komponente, ktera by toto resila? Nejlepe predat tabulku
>a napriklad v udalosti OnChangeDrive vyvolat dialog na vymenu
>diskety. Stejne tak pak data obnovovat.
>
>Diky za odpovedi
>
>Slavek
>
>
>---------------------------------------------------------------------------
-
>http://atrey.karlin.mff.cuni(tec)cz/~rk
>---------------------------------------------------------------------------
-
>
>

Pokus o preklad VCL s debug info

[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 1.4.1999 07:33:49



>Petr Vones wrote:>
>To ale vubec neni opravnene, velikost TStringItemList je pre ce:
>
>MaxInt div 16 * 8 => MaxInt div 2 => 1G


Mas pravdu. To jsem ale pako :-)). Me se tak _velmi_ nelibila ta konstanta v
definici MaxListSize, ze jsem uz prilis nepremyslel o jeji hodnote.
Uz jsem na to prisel: mam tu takovou vetsi (bez DLL pres 300 000 radku)
legacy aplikaci prenesenou z D1, takze jako default pouzivam short strings.
Pak ovsem tStringItem nejsou dva pointery....

Thanx, pf


P.S.

Zase jedna ukazka ze strany Borlandu, je podporit reuseabilitu a portabilitu
:-((( A pritom by stacil napr. jeden globalni soubor definic pro VCL
knihovnu s explicitnim nastavenim vlastnosti prekladu.

zaheslovana databaze MS Access 2.0

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 1.4.1999 08:07:16

Pred casem zde byla debata na otevreni zaheslovane databaze v MS Access.
Bouhuzel reseni zde popsana nefunguji na MS Access 2.0. Nevite, kde ba se
to dalo sehnat na tuto databazi?


P.S. Kdysi jsem vlastnil TTF font na carovy kod (BARCODE) a nekam jsem ho
zalozil :-(. Nemate jej nekdo?

Dik.

===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============

... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
dela


Podminena kompilace

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.4.1999 08:18:35

David Hrbac wrote:

> Resim problem lokalizace sveho softwaru, zkousel jsem si otevrit formular
> jako text a pouzit standardne $IFDEF..., ale tady to nefunguje. Rad bych
> nasel nejake reseni, jak zmenit text pri kompilaci, ale tak aby se mi
> zbytecne nezvetsovala velikost vysledneho kodu. Diky David

Pokud se urputne branis pouziti Lokalizatoru, co je ovsem zcela
neodpustitelna chyba :-), pak bych na formulare zkusil toto:

implementation

{$ifdef cesky}
{$R CSY\*.DFM}
{$endif}
{$ifdef tatarsky}
{$R TRT\*.DFM}
{$endif}

v kterychzto adresarich budes mit prislusnou jazykovou verzi.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


SQL: Vyber 5 nejvetsich radku

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.4.1999 08:18:35

Petr Zahradnik wrote:

> To jste si mysleli naprosto spravne, ze je to jednoduche, a ten ucitel, to
> asi bude ucitel na neco jineho, rozhodne vsak ne na SQL :))))) Radeji tam
> nechod.

To nepochybne. :-) Kdyz uz neco vymysli, ma si to aspon nekde
stranou sam vyzkouset.

> Takhle to udelas:
>
> SELECT TOP 5 * FROM pokd2 ORDER BY PLAT DESC

Drobny hacek je v tom, ze to neni soucast normy, takze to
nefunguje vsude.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Zmen�en� velikosti programu

[*] Krame� David Ext. <David.Krames(zv)czech-tv(tec)cz> - 1.4.1999 08:18:51

Zdravim vsechny !

Je mozne nejakym zpusobem zmensit program pod tech zakladnich 200kB.
Pokud delam jen bez formularu, tak je to male, ale jak se prida klausele
Forms,
velikost vzroste. Je mozne to nejak upravit v nastavenich, aby se to
slinkovalo
na soubor mensi (to jest, ze tam nenacpe asi celou VCL, ale ty nutne casti)
??

M�m D3.

Dekuji



David Krames
------------------------
David.Krames(zv)czech-tv(tec)cz


RXLIB a Windows 98

[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 01.4.1999 08:53:04

>
> >> Ahoj.
> >>
> >> Podarilo se nekomu nainstalovat RXLIB pro Delphi 4 na Windows 98 ?
> >> Trapil jsem se s tim asi 3 hodiny a nic.
> >
> >Jakou mas videokartu?
>
> Mam S3 ViRGE -DX/GX PCI (375/385) 4MB. Myslis, ze by to mohlo byt tou kartou

Podle me temer urcite...... moc instalovanych komponent = smrt pro S3.
Reseni:
1. Jina karta (skoro cokoli krom S3)
2. Nove ovladace (www.s3.com)
3. Jine rozliseni/pocet barev (to taky obcas pomuze)
4. Nejaky zasah do ini (presne to vi Petr Zahradnik - viz archiv)

Ales


DBGrid1 -- OnChange???

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 1.4.1999 08:59:05

Tak to budes muset asi hlidat bud TDataset svazany s tim
DBGRidem( AfterEdit,AfterInsert ...AfterPost) nebo TDatasource
...OnDataChange ... ale to jsem nikdy nedelal (tak nevim ci to funguje)

> -----P�vodn� zpr�va-----
> Od: Slavek Rydval [SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 31. b�ezna 1999 20:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DBGrid1 -- OnChange???
>
> Preji vsem pekneho dne,
>
> mam formular se dvema DBGridy (One to Many) a potrebuji zjistit,
> kdy se v druhem DBGridu zmeni data (neco jako OnDataChange).
> Primarni potreba prameni z toho, ze pokud je ve druhem DBGridu
> nula polozek, potrebuji mu zmenit barvu. Jak na to?
>
> Dekuji za rady
>
> Slavek
>
>
> ----------------------------------------------------------------------
> ------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------------------------------
> ------


DBGrid1 -- OnChange???

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.4.1999 09:39:41

Zkus pouzit udalost, myslim OnDataChange, ale ne u DBGridu, ale
u DataSource.

Dobra.
--------------------

> mam formular se dvema DBGridy (One to Many) a potrebuji zjistit,
> kdy se v druhem DBGridu zmeni data (neco jako OnDataChange).
> Primarni potreba prameni z toho, ze pokud je ve druhem DBGridu
> nula polozek, potrebuji mu zmenit barvu. Jak na to?
>
> Dekuji za rady
>
> Slavek
>
>
> ----------------------------------------------------------------------
> ------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------------------------------
> ------
>

DBGrid1 -- OnChange???

[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 1.4.1999 09:53:32

Zdravicko...

OnDataChange ma TDataSource.

F.

> -----P�vodn� zpr�va-----
> Od: Slavek Rydval [SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 31. b�ezna 1999 20:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DBGrid1 -- OnChange???
>
> Preji vsem pekneho dne,
>
> mam formular se dvema DBGridy (One to Many) a potrebuji zjistit,
> kdy se v druhem DBGridu zmeni data (neco jako OnDataChange).
> Primarni potreba prameni z toho, ze pokud je ve druhem DBGridu
> nula polozek, potrebuji mu zmenit barvu. Jak na to?
>
> Dekuji za rady
>
> Slavek
>
>
> ----------------------------------------------------------------------
> ------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------------------------------
> ------


Drag and Drop

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.4.1999 10:00:25

Tomu rikaz narychlo napsany naznak ? :-)))))
To bych chtel videt, kdyby jsi se rozepsal :-)

Diky... >Jde to, ale je to uz trochu slozitejsi. Tady mas narychlo
>napsany takovy naznak jak by to slo udelat.
>Zbytek uz si pak dodelas sam.
>
>unit Unit1;
>
>interface
>
>
> ...
>
>
>Internet proti monopolu. Petr Vones, amatersky
programator
>* http://www.bojkot(tec)cz *
>************************

Podminena kompilace

[*] David Hrbac <hrbac.david(zv)usa(tec)net> - 1.4.1999 10:07:32

Zbysku,
Ja se nebranim pouzivani Lokalizatoru, pouzivam ho, ale je freeware verzi :)
Je fajn, ale. No presne porad nejake ale. Ja mam resenou lokalizaci hlasek
podobne jak radis, mam:

resourcestring
{$ifdef CZ}
neco='blasl'
{$endif}

{$ifdef NO}
neco='wehk'
{$endif}
a pod.

no a libilo by se mi, kdyby to slo udelat i u formularu, ale nejde. Takze
dal zustanu u Lokalizatoru.

David

-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. dubna 1999 9:22
P�edm�t: Re: Podminena kompilace


David Hrbac wrote:

> Resim problem lokalizace sveho softwaru, zkousel jsem si otevrit formular
> jako text a pouzit standardne $IFDEF..., ale tady to nefunguje. Rad bych
> nasel nejake reseni, jak zmenit text pri kompilaci, ale tak aby se mi
> zbytecne nezvetsovala velikost vysledneho kodu. Diky David

Pokud se urputne branis pouziti Lokalizatoru, co je ovsem zcela
neodpustitelna chyba :-), pak bych na formulare zkusil toto:

implementation

{$ifdef cesky}
{$R CSY\*.DFM}
{$endif}
{$ifdef tatarsky}
{$R TRT\*.DFM}
{$endif}

v kterychzto adresarich budes mit prislusnou jazykovou verzi.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ

RXLIB a Windows 98

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.4.1999 10:10:03

Rika se, ze SYSTEM.INI Sekce [Display] radek BusThrottle=on,
ale ja bych navrhoval bod 1.

----------------
> >
> > >> Ahoj.
> > >>
> > >> Podarilo se nekomu nainstalovat RXLIB pro Delphi 4 na Windows 98
> ?
> > >> Trapil jsem se s tim asi 3 hodiny a nic.
> > >
> > >Jakou mas videokartu?
> >
> > Mam S3 ViRGE -DX/GX PCI (375/385) 4MB. Myslis, ze by to mohlo byt
> tou kartou
>
> Podle me temer urcite...... moc instalovanych komponent = smrt pro S3.
> Reseni:
> 1. Jina karta (skoro cokoli krom S3)
> 2. Nove ovladace (www.s3.com)
> 3. Jine rozliseni/pocet barev (to taky obcas pomuze)
> 4. Nejaky zasah do ini (presne to vi Petr Zahradnik - viz archiv)
>
>

SQL: Vyber 5 nejvetsich radku

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.4.1999 10:15:32

>> To jste si mysleli naprosto spravne, ze je to jednoduche, a
ten ucitel, to
>> asi bude ucitel na neco jineho, rozhodne vsak ne na SQL
:))))) Radeji tam
>> nechod.
>
>To nepochybne. :-) Kdyz uz neco vymysli, ma si to aspon nekde
>stranou sam vyzkouset.

> > Takhle to udelas:
> >
> > SELECT TOP 5 * FROM pokd2 ORDER BY PLAT DESC
>
> Drobny hacek je v tom, ze to neni soucast normy, takze to
> nefunguje vsude.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
>

SQL: Vyber 5 nejvetsich radku

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.4.1999 10:17:11

Taky je mozne, ze ten ucitel pracuje na nejakem projektu a Ti
studenti mu ho takhle davaji dohromady, kousek po kousku :-)))

Dobra.

>> To jste si mysleli naprosto spravne, ze je to jednoduche, a
ten ucitel, to
>> asi bude ucitel na neco jineho, rozhodne vsak ne na SQL
:))))) Radeji tam
>> nechod.
>
>To nepochybne. :-) Kdyz uz neco vymysli, ma si to aspon nekde
>stranou sam vyzkouset.

Zalohovani

[*] Alda <alda(zv)mujmail(tec)cz> - 1.4.1999 10:34:38

Ahoj,
mohl bys mi, prosim, poslat tu komponentu taky?
diky

Ales Machat
(alda(zv)mujmail(tec)cz)

>Od: Petr Ma��k <rtepema(zv)mbox.vol(tec)cz>
>Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>D�tum: 31. marec 1999 23:38
>Predmet: Re: Zalohovani
>
> Pouzivam free komponentu Delphi Zip od Erica W. Englera.
> Jezto nemohu najot odkaz (asi je to z DSP), mohu poslat na soukrom^2
> e-mail p osluUEn^2 samorozbalovaci archiv DELZIP.EXE.

Rozlozeni klavesnice

[*] Alda <alda(zv)mujmail(tec)cz> - 1.4.1999 10:42:54

Ahoj vsichni,

Opet se k vam obracim s problemem. Predem se omlouvam, protoze tento problem
nesouvisi primo s Delphi, potreboval bych totiz vytvorit vlastni rozlozeni
klavesnice pro Win98. Nevite nekdo nahodou jestli se da nekde sehnat popis
souboru *.KBD? Nebo to mam resit nejak jinak??
Predem dekuji za jakoukoli radu.

Ales Machat
(alda(zv)mujmail(tec)cz)

razeni ve vysledku dotazu podle sloupcu

[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 1.4.1999 11:18:29

Pokud nactes vysledek SQL do TClientDataset, pak si s tim muzes delat, co chces.

Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Richard Valny <richard.valny(zv)oku-st(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: razeni ve vysledku dotazu podle sloupcu
> Datum: 31. b�ezna 1999 13:38
>
> Ahojky programatori a progamatorky.
>
> Mam propojeni TOracleDataset -- TDataSource -- TDBGrid, v nemz vidim
> vysledek dotazu.
> Lze nejak zaridit setridni vysledku poklepanim na libovolny sloupec podle
> neho (jako to funguje v mnoha jinych vecech)
> a to bez toho, ze by se musel znovu provest cely SQL dotaz na Oracle s
> doplnenim ORDER BY ...? (nejen ze by to mohlo byt pomale ale jevi se mi to
> i neeticke)
>
> Dik
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> ===========mozno pouzit PGP==============
>
> ... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco
> dela


FloatToString

[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 1.4.1999 11:43:39

>potreboval bych v Delphi 2.0 prevest realovy cislo na string, ale v
>normalnim (tj. ne exponencialnim tvaru). Tedy aby se mi napr.
>1000000000000000000000000000 prevadelo skutecne jako
>1000000000000000000000000000 a ne jako 1E27.

no treba ve "starem" dobrem pascalu fungovalo
str(floatek:pocetznaku:pocetdes,string);

(teda pro relativne male cisla (1e+36 urcite jde, vic uz moc ne))

>V helpu o tom
>sice cosi pisou, ale nejak to nefunguje, nebo chyba mozna tkvi
>nekde mezi zidli a klavesnici.(nemas spatny koberec? :-)

Zalohovani

[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 01.4.1999 11:48:59

Neni lepsi misto neustaleho opakovani zadosti o zaslani uvest adresu?

Ja to zkusim, treba to pomuze:

http://www.geocities.com/SiliconValley/Network/2114/

Ales

> > Pouzivam free komponentu Delphi Zip od Erica W. Englera.
> > Jezto nemohu najot odkaz (asi je to z DSP), mohu poslat na soukrom^2
> > e-mail p osluUEn^2 samorozbalovaci archiv DELZIP.EXE.

DOS program pod W95

[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 1.4.1999 11:52:10

Ahoj
Funkci CreateProcess jse si spustil DOS aplikaci, to vse funguje
bez problemu, ted bych si chtel precist obsah okna teto DOS aplikace
a ulozit nekam, treba do Memo. (Tedy vypsane radky v okne).
Asi to tu uz bylo, ale nejsem si jisty.
Diky za namety

Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68

tel: 66173163
fax: 6857003

nosek(zv)ujf.cas(tec)cz


RXLIB a Windows 98

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.4.1999 11:04:58

Puvodni zprava, kterou napsal eL dne 1 Apr 99,:

> Mam S3 ViRGE -DX/GX PCI (375/385) 4MB. Myslis, ze by to mohlo byt tou
> kartou ?.

No jiste... tak si nastav v INI souboru to, co uz jsem nekolikrat
radil, ale ted si to nepamatuju...


S pozdravem
Petr Zahradnik, pocitacovy expert

Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== 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 ===
==============================================================
ICQ: 21215917, PGP vitano


razeni ve vysledku dotazu podle sloupcu

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 1.4.1999 12:15:12

> -----P�vodn� zpr�va-----
> Od: Jan �ebel�k [SMTP:honza(zv)haes(tec)cz]
> Odesl�no: 1. dubna 1999 11:18
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: razeni ve vysledku dotazu podle sloupcu
>
> Pokud nactes vysledek SQL do TClientDataset, pak si s tim muzes delat, co chces.
>
Jako myslenka to zni hezky.
V helpu jsem se docetl, ze je to soucasti knihovny dbclient a demo k pouziti je v adresari Demos\Midas\Empedit
Bohuzel ani knihovnu ani demo jsem nenasel.
Asi je to tim ze mam D3 Professional :-(

(Jeste zkusim kouknout na CD)
Pokud mam pravdu, pak by se mi libilo neco podobneho, ale free.

===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============

... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela


ovladani klavesnici

[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.4.1999 12:21:39

To je dela tak, ze si uselas obrazek napr 60x20 bodu
a nakteslis do nej tu bitmapu 3x (prvni se pouzije
pro normalni tlacitko, druha pro Disabled a treti pro
stisknute tlacitko. Muzes pouzit jen prvni dve (tedy 40x20)

Schvalne potom sleduj property NumGlyphs...
Dobra.

> ----------
> Od: Jan Pomikalek[SMTP:pomikaj(zv)feld.cvut(tec)cz]
> Odesl�no: 1. dubna 1999 13:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: ovladani klavesnici
>
> > Nevim jestli to uz nekdo rekl, ale co tak pouzit
> > TSpeedButton?
>
> Jo jo, uz mi to sdelili a funguje to, takze diky vsem. Asi to byl
> hloupy dotaz, ale v Delphi delam asi 14 dni (a predtim jsem delal jen
> v Packalu, a to pouze pul roku, a to jen prilezitostne), takze me
> prosim omluvte.
>
> Ted mam ale dalsi mensi problemek. Nastavil jsem si na ta tlacitka
> bitmapy, ale kdyz se dane tlacitko stane "disabled" (resp. Enabled =
> false), tak to vypada dost osklive. Neda se nejakym zpusobem nastavit
> jiny obrazek, ktery se v takovem pripade zobrazi misto puvodniho,
> tedy obrazek, ktery se zobrazi, kdyz je tlacitko ve stavu Enabled =
> false?
>
> Diky, Honza
>
> -------------------------------------------------------------------
> Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
> E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
> ICQ: 2198989 http://muf.pinknet(tec)cz/
> -------------------[pinknet on every screen]-----------------------
>

SQL

[*] Martin <geoplan(zv)pp.sinet.sk> - 1.4.1999 12:48:57

Ale WinBase602 trial je iba na 30 dni, nie ?
A potrebujem to pre Win NT, nie Linux.

Martin

-----P�vodn� spr�va-----
Od: Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 18. marec 1999 9:39
Predmet: Re: SQL


>Treba WinBase602. Da se stahnout z jejich webu.
>Nebo Informix uvolnil Standard Engine 6.0 pro Linux
>
>
>
>--
>Ing. Jindrich Danihelka
>E-Mail jidas(zv)mbox.vol(tec)cz
>Tel. 038/7755345
> 038/7512861


ovladani klavesnici

[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 1.4.1999 12:52:47

Pouzi vlastnost NumGlyphs. Pak v te bitmape muze byt az ctyri tvary
tlacitek v poradi: UP, DISABLED, CLICKED, DOWN
Vsechny obrazky musi mit stejnou velikost.
Vice viz help

+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+


-----Original Message-----
From: Jan Pomikalek [mailto:pomikaj(zv)feld.cvut(tec)cz]
Sent: Thursday, April 01, 1999 1:12 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: ovladani klavesnici


> Nevim jestli to uz nekdo rekl, ale co tak pouzit
> TSpeedButton?

Jo jo, uz mi to sdelili a funguje to, takze diky vsem. Asi to byl
hloupy dotaz, ale v Delphi delam asi 14 dni (a predtim jsem delal jen
v Packalu, a to pouze pul roku, a to jen prilezitostne), takze me
prosim omluvte.

Ted mam ale dalsi mensi problemek. Nastavil jsem si na ta tlacitka
bitmapy, ale kdyz se dane tlacitko stane "disabled" (resp. Enabled =
false), tak to vypada dost osklive. Neda se nejakym zpusobem nastavit
jiny obrazek, ktery se v takovem pripade zobrazi misto puvodniho,
tedy obrazek, ktery se zobrazi, kdyz je tlacitko ve stavu Enabled =
false?

Diky, Honza

-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


FloatToString

[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 1.4.1999 13:09:41


Myslim, ze by se na to dala dobre pouzit funkce FORMAT, asi nejak takhle...

label3.Caption:=Format('Cislo je: %f ',[i]);

Da se u toho zvolit i maska jak se ma cislo zobrazovat..viz help..


-----P�vodn� zpr�va-----
Od: pomikaj(zv)feld.cvut(tec)cz <pomikaj(zv)feld.cvut(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. dubna 1999 13:48
P�edm�t: FloatToString


>
>
>
>Ahojte,
>
>
>potreboval bych v Delphi 2.0 prevest realovy cislo na string, ale v
>normalnim (tj. ne exponencialnim tvaru). Tedy aby se mi napr.
>
>1000000000000000000000000000 prevadelo skutecne jako
>1000000000000000000000000000 a ne jako 1E27. V helpu o tom sice cosi
>pisou, ale nejak to nefunguje, nebo chyba mozna tkvi nekde mezi zidli
>
>a klavesnici.
>
>Prosim pomozte.
>
>
>Diky, Honza
>
>
>
>
>-------------------------------------------------------------------
>Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
>E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
>ICQ: 2198989 http://muf.pinknet(tec)cz/
>-------------------[pinknet on every screen]-----------------------
>

ovladani klavesnici

[*] Jan Pomikalek <pomikaj(zv)feld.cvut(tec)cz> - 1.4.1999 11:11:57 met-1mest

> Nevim jestli to uz nekdo rekl, ale co tak pouzit
> TSpeedButton?

Jo jo, uz mi to sdelili a funguje to, takze diky vsem. Asi to byl
hloupy dotaz, ale v Delphi delam asi 14 dni (a predtim jsem delal jen
v Packalu, a to pouze pul roku, a to jen prilezitostne), takze me
prosim omluvte.

Ted mam ale dalsi mensi problemek. Nastavil jsem si na ta tlacitka
bitmapy, ale kdyz se dane tlacitko stane "disabled" (resp. Enabled =
false), tak to vypada dost osklive. Neda se nejakym zpusobem nastavit
jiny obrazek, ktery se v takovem pripade zobrazi misto puvodniho,
tedy obrazek, ktery se zobrazi, kdyz je tlacitko ve stavu Enabled =
false?

Diky, Honza

-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


PLSQL

[*] sula milos <crkstrobe(zv)geocities(tec)com> - 1.4.1999 13:12:58

Cau,
no predem se omlouvam ze sem do konference zatahuju PLSQL, ale toto uz je
fakt moje posledni otazka ohledne PLSQL:
nevite jak zjistit cislo dne, mesice a rok z datumu pomoci PLSQL
(predpokladam ze mam v date datum a chci do promenne typu number ulozit
zvlast den, mesic a rok a potom to zase poskladat dohromady) ?
diky


FloatToString

[*] Jan Pomikalek <pomikaj(zv)feld.cvut(tec)cz> - 1.4.1999 11:21:31 met-1mest

Ahojte,

potreboval bych v Delphi 2.0 prevest realovy cislo na string, ale v
normalnim (tj. ne exponencialnim tvaru). Tedy aby se mi napr.
1000000000000000000000000000 prevadelo skutecne jako
1000000000000000000000000000 a ne jako 1E27. V helpu o tom sice cosi
pisou, ale nejak to nefunguje, nebo chyba mozna tkvi nekde mezi zidli
a klavesnici.
Prosim pomozte.

Diky, Honza


-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


Shellexecute

[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 1.4.1999 13:49:45

Zdravim vsechny,

pred casem tady probehla diskuze o funkci shellexecute.
Prosim o pomoc pri pochopeni, jak funguje jeji prvni parametr
o kterem napoveda pise

Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.


Ale jak mam ty vystupy zachytit, abych je mohl zobrazit treba v rich ?
Je to mo�ne pomoci teto funkce ?

Predem diky za inspirativni emil

Daniel Kminek


Et iritis sicut dii, scientes bonum et malum.
kminek(zv)mite(tec)cz
www.mite(tec)cz

Vyber 5 nejvetsich radku

[*] Jaro <jaro(zv)sinea(tec)cz> - 1.4.1999 13:50:44

Pomoci slozeneho SELECT-u (viz nize) to pujde vzdy. Jako reseni
pisemky
to bude naproto vyhovovat, i kdyz v pripade velike tabulky by odezva
takoveho dotazu
nebyla nijak ohromujici. Tabulky zamestnancu vsak nebyvaji nijak
zvlaste obrovske.
Tak je ten dotaz zcela vyhovujici.
Protoze se jedna o tzv. slozeny SELECT, tak je to stale jediny
prikaz jazyka SQL a zadani pisemky tedy splnuje. Kdyby ucitel trval na
tom,
ze ten SELECT musi byt pouze jeden, resp. nesmi byt slozeny, tak to z
obecneho
hlediska nema reseni.
Pro nektere implementace jazyka SQL na ruznych serverech
to pujde delat asi jednoduseji a hlavne rychleji bez slozeneho
SELECT-u.
Vy byste se ale meli ucit obecna reseni, protoze nemuzes vedet na
kterem
serveru budes jednou treba programovat.

Tento dotaz jsem zkousel na Interbazi, kde asi jina lepsi moznost
neexistuje.
Ja mam tabulku Osoby a polozku ZakladniPlat

SELECT * FROM Osoby O WHERE
(SELECT COUNT(*) FROM Osoby WHERE (O.ZakladniPlat < ZakladniPlat) )
< 5
AND ZakladniPlat IS NOT NULL
ORDER BY ZakladniPlat DESC

Jak je videt, nic tak moc sloziteho na tom neni. Podminka
ZakladniPlat IS NOT NULL je dulezita proto, aby se do vysledku
nedostali zamestnanci s nezadanym platem.

.... Celou dobu mi to vrta hlavou ....

Me zase vrta hlavou, ze na to neprisel vas ucitel. Ucitel, ktery do
pisemky vymysli priklad,
ktery sam neumi vyresit, si opravdu zaslouzi uznani.
Ze ho necham pozdravovat. Mnoho uspechu ve studiu.
Jaro
-----------------------------------


>Ahoj (tohle nesouvisi primo z Delphi ale snad to nevadi),
>
>dneska jsem psal pisemku z SQL a meli jsme tam takovy jednoduchy
>prikladek:
>Z nejake tabulky vybrat 5 radku, ktere obsahuje 5 nejvetsich hodnot.
>Tj, mam tabulku zamestnancu a ta obsahuje sloupec s jejich platy,
cilem
>bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
>hodnoty platu.
>A to vsechno pomoci 1 SQL dotazu.
>
>Nejdrive jsme si vsichni mylsleli, ze to je jednoduchy, ale nakonec
to
>nevedel ani ucitel, co si ten priklad vymyslel.
>
>Celou dobu mi to vrta hlavou, ale na nic jsem neprisel, treba to
napadne
>nejakou chytrou hlavicku na tehle konferenci??
>
>--
><TT>
>/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
>/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
>/* KCibulka(zv)seznam(tec)cz */
>/* ardour(zv)usa.net */
>/* OnLine: If you have ICQ my ICQ# is 4111110. */
>/* If you don't have ICQ you can page me through: My Personal */
>/* Communication Center: http://wwp.mirabilis.com/4111110 */
>/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
>/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
>/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
></>
>
>

FloatToString

[*] Jan Pomikalek <pomikaj(zv)feld.cvut(tec)cz> - 1.4.1999 11:58:32 met-1mest

> >potreboval bych v Delphi 2.0 prevest realovy cislo na string, ale v
> >normalnim (tj. ne exponencialnim tvaru). Tedy aby se mi napr.
> >1000000000000000000000000000 prevadelo skutecne jako
> >1000000000000000000000000000 a ne jako 1E27.
>
> no treba ve "starem" dobrem pascalu fungovalo
> str(floatek:pocetznaku:pocetdes,string);

A kruci. To jsem ale kus hnupa :-). Proceduru str samozrejme znam,
ale myslel jsem, ze funguje jen pro integery. Tohle me nenapadlo.

> >V helpu o tom
> >sice cosi pisou, ale nejak to nefunguje, nebo chyba mozna tkvi
> >nekde mezi zidli a klavesnici.
>
> (nemas spatny koberec? :-)

:-)) ani bych nerekl...

A diky, Honza

-------------------------------------------------------------------
Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
ICQ: 2198989 http://muf.pinknet(tec)cz/
-------------------[pinknet on every screen]-----------------------


Vyber 5 nejvetsich radku

[*] Jaro <jaro(zv)sinea(tec)cz> - 1.4.1999 14:00:19

A co kdyz ten priklad zmenim na vyber
prvnich 20 zamestnancu s nejvyssim platem?

Mas pravdu, tohle reseni je opravdu sileny.

Jaro
-----

>Ahoj,
>
>vzhledem k tomu, ze daval ucitel studentum do pisemky na jazyk SQL,
tak lze
>predpokladat,
>ze nechtel zadne specialitky konkretniho implementace SQL.
>
>Obecne Standard SQL problem "Nalezni X nejvetsich ..." resit neumi.
>Existuji dve mozna reseni (opomenu-li specialitky, ktere nastavi max.
#
>radku na vystupu).
>1. Udelat si setrideny dotaz (CURSOR), dojet na X-ty zaznam a vypsat
jej.
>2. udelat pro kazde X (zde X=5) jeden sileny dotaz.
> Zde je nastin jak vypsat 5-tou nejvetsi hodnotu
> (predpokladam, ze A jsou UNIQUE. Kdyby ne, tak by byl dotaz
trochu
>delsi.):
>
>SELECT MAX(T5.A)
>FROM T T5
>WHERE T5.A <
> (SELECT MAX (T4.A)
> FROM T T4
> WHERE T4.A <
> (SELECT MAX (T3.A)
> FROM T T3
> WHERE T3.A <
> (SELECT MAX (T2.A)
> FROM T T2
> WHERE T2.A <
> (SELECT MAX (T1.A)
> FROM T T1))))
>
>S pozdravem, Ladislav Nagy
>
>===========================================
>Mgr. Ladislav Nagy
>MFF UK & Baader Computer spol. s r.o.
>tel. : 02 / 24941962, -63, -65 fax : -64
>lnag7384(zv)mail.kolej.mff.cuni(tec)cz , Ladislav.Nagy(zv)bcpraha(tec)cz
>
>

Zjisteni bezici aplikace

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 1.4.1999 14:01:50

Ahoj,
potrebuji nejakym jednoduchym zpusobem zjistit z programu napsaneho
v D1, ze je soucasne spusten nejaky jiny program, abych mu mohl poslat
zpravu k zpracovani. Mohl by mi, prosim, nekdo poradit. Velmi dekuji

Jaro B.

PLSQL

[*] sula milos <crkstrobe(zv)geocities(tec)com> - 1.4.1999 14:40:52

hmm a neslo by to takto ?

cDen := TO_NUMBER(TO_CHAR(Datum, 'D'));
cMesic:= TO_NUMBER(TO_CHAR(Datum, 'M'));
atd...
???
ze by se nemusel pouzivat substr

-----P�vodn� zpr�va-----
Od: suvak(zv)pbko.sk <suvak(zv)pbko.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. dubna 1999 14:27
P�edm�t: Re: PLSQL


>
>
>
>
>
>"sula milos" <crkstrobe(zv)geocities.com> on 01.04.99 12:12:58
>
>Please respond to delphi-l(zv)fwd(tec)cz
>
>To: "delphi konference" <delphi-l(zv)fwd(tec)cz>
>cc: (bcc: Peter Suvak/0110/pbko/sk)
>
>Subject: PLSQL
>
>
>>
>
>> Cau,
>> no predem se omlouvam ze sem do konference zatahuju PLSQL, ale toto uz je
>> fakt moje posledni otazka ohledne PLSQL:
>> nevite jak zjistit cislo dne, mesice a rok z datumu pomoci PLSQL
>> (predpokladam ze mam v date datum a chci do promenne typu number ulozit
>> zvlast den, mesic a rok a potom to zase poskladat dohromady) ?
>> diky
>
>[Peter Suvak]
>
>Ahoj,
>
>Slo by to asi takto:
>
>1. Datum preved na retazec funkciou TO_CHAR(datum, 'datumovy obraz'),
>konkretne cDatum := TO_CHAR(Datum, 'DDMMYYYY')
>2. Potom pouzi funkciu SUBSTR(stlpec/hodnota, pozicia, n), napr. pre den je
>to cDen := SUBSTR(cDatum, 1, 2)
>3. String preved na cislo funkciou TO_NUMBER, napr nDen := TO_NUMBER(cDen)
>4. funkciu TO_CHAR mozes pouzit aj na prevod cislo -> retazec presna syntax
>je TO_CHAR(cislo/datum, ['format'])
>5. Spajat retazce mozes funkciou CONCAT(hodnota1, hodnota2)
>6. Retazec na datum preved funkciou TO_DATE(retazec, 'datumovy obraz') napr
>TO_DATE(cDatum, 'DDMMYYYY')
>
>=============================================================
>Ing. Peter Suvak, veduci oddelenia spravy systemov
>Priemyselna banka, a.s. Kosice
>Sturova 27
>040 01 Kosice
>
>tel.: 095 / 6804 282
>fax: 095 / 6804 510
>mobil: 0903 610 901
>=============================================================
>
>

PLSQL

[*] suvak(zv)pbko.sk - 1.4.1999 14:29:33


"sula milos" <crkstrobe(zv)geocities.com> on 01.04.99 12:12:58

Please respond to delphi-l(zv)fwd(tec)cz

To: "delphi konference" <delphi-l(zv)fwd(tec)cz>
cc: (bcc: Peter Suvak/0110/pbko/sk)

Subject: PLSQL


>

> Cau,
> no predem se omlouvam ze sem do konference zatahuju PLSQL, ale toto uz je
> fakt moje posledni otazka ohledne PLSQL:
> nevite jak zjistit cislo dne, mesice a rok z datumu pomoci PLSQL
> (predpokladam ze mam v date datum a chci do promenne typu number ulozit
> zvlast den, mesic a rok a potom to zase poskladat dohromady) ?
> diky

[Peter Suvak]

Ahoj,

Slo by to asi takto:

1. Datum preved na retazec funkciou TO_CHAR(datum, 'datumovy obraz'),
konkretne cDatum := TO_CHAR(Datum, 'DDMMYYYY')
2. Potom pouzi funkciu SUBSTR(stlpec/hodnota, pozicia, n), napr. pre den je
to cDen := SUBSTR(cDatum, 1, 2)
3. String preved na cislo funkciou TO_NUMBER, napr nDen := TO_NUMBER(cDen)
4. funkciu TO_CHAR mozes pouzit aj na prevod cislo -> retazec presna syntax
je TO_CHAR(cislo/datum, ['format'])
5. Spajat retazce mozes funkciou CONCAT(hodnota1, hodnota2)
6. Retazec na datum preved funkciou TO_DATE(retazec, 'datumovy obraz') napr
TO_DATE(cDatum, 'DDMMYYYY')

=============================================================
Ing. Peter Suvak, veduci oddelenia spravy systemov
Priemyselna banka, a.s. Kosice
Sturova 27
040 01 Kosice

tel.: 095 / 6804 282
fax: 095 / 6804 510
mobil: 0903 610 901
=============================================================

LoadString

[*] David Hrbac <hrbac.david(zv)usa(tec)net> - 1.4.1999 15:51:34

Snazim se nejakym zpusobem dostat retezec ze string table v jinem souboru,
ale nevim jak na to? Nebadal uz nekdo na tohle tema?
Diky
David Hrbac

D�vkov� GUI aplikace

[*] Karel Kral <kral(zv)purus(tec)cz> - 01.4.1999 16:20:18

Pot�ebuji ud�lat aplikaci, kter� spust�m, ona vykon� n�jakou akci a pak
se ukon��; to v�e bez z�sahu u�ivatele.
Ukon�it ji um�m, ale kam um�stit akci, aby ve chv�li vol�n� akce u�
formul�� byl zobrazen�?
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________


Vyber 5 nejvetsich radku

[*] Kriz David <david.kriz(zv)ccv(tec)cz> - 1.4.1999 16:58:09

Ja jsem to vyzkousel na Oracle a tam je nutne misto ... (SELECT
COUNT(*) FROM Osoby WHERE (O.ZakladniPlat < ZakladniPlat) )< 5 ...
napsat
... 5>(SELECT COUNT(*) FROM Osoby WHERE (O.ZakladniPlat <
ZakladniPlat) ) ...
Proste to prohodit.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Podpis (ENG:signature, DEU:unterschrift, ESP:firma)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
David K��,
CCv s.r.o., Jir�skova 43, Brno, Czech republic
mailto:david.kriz(zv)ccv(tec)cz
http://www.ccv(tec)cz


> -----P�vodn� zpr�va-----
> Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> Odesl�no: �tvrtek 1. dubna 1999 12:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Vyber 5 nejvetsich radku
>
> Pomoci slozeneho SELECT-u (viz nize) to pujde vzdy. Jako reseni
> pisemky
> to bude naproto vyhovovat, i kdyz v pripade velike tabulky by odezva
> takoveho dotazu
> nebyla nijak ohromujici. Tabulky zamestnancu vsak nebyvaji nijak
> zvlaste obrovske.
> Tak je ten dotaz zcela vyhovujici.
> Protoze se jedna o tzv. slozeny SELECT, tak je to stale jediny
> prikaz jazyka SQL a zadani pisemky tedy splnuje. Kdyby ucitel trval na
> tom,
> ze ten SELECT musi byt pouze jeden, resp. nesmi byt slozeny, tak to z
> obecneho
> hlediska nema reseni.
> Pro nektere implementace jazyka SQL na ruznych serverech
> to pujde delat asi jednoduseji a hlavne rychleji bez slozeneho
> SELECT-u.
> Vy byste se ale meli ucit obecna reseni, protoze nemuzes vedet na
> kterem
> serveru budes jednou treba programovat.
>
> Tento dotaz jsem zkousel na Interbazi, kde asi jina lepsi moznost
> neexistuje.
> Ja mam tabulku Osoby a polozku ZakladniPlat
>
> SELECT * FROM Osoby O WHERE
> (SELECT COUNT(*) FROM Osoby WHERE (O.ZakladniPlat < ZakladniPlat) )
> < 5
> AND ZakladniPlat IS NOT NULL
> ORDER BY ZakladniPlat DESC
>
> Jak je videt, nic tak moc sloziteho na tom neni. Podminka
> ZakladniPlat IS NOT NULL je dulezita proto, aby se do vysledku
> nedostali zamestnanci s nezadanym platem.
>
> .... Celou dobu mi to vrta hlavou ....
>
> Me zase vrta hlavou, ze na to neprisel vas ucitel. Ucitel, ktery do
> pisemky vymysli priklad,
> ktery sam neumi vyresit, si opravdu zaslouzi uznani.
> Ze ho necham pozdravovat. Mnoho uspechu ve studiu.
> Jaro
> -----------------------------------
>

Pokus o preklad VCL s debug info

[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 1.4.1999 17:50:16

Karel Kral wrote:> J� to d�l�m b�n�, p�elo�it to jde.
> Hle co na to Debuger: Maxint div 16 = 134217727. To nen� m�lo a rozhodn�
> to nen� 2.

To rozhodne neni, ale to taky nikdo netvrdil :-)) viz odpoved Petru
Vonesovi.

Bye, pf


TPrinter

[*] Vlada Cadsky <cadskyk1(zv)atlas(tec)cz> - 1.4.1999 17:55:10

Mam problem:
Potrebuji jednoduchy a rychli textovy tisk na jehlickovou tiskarnu s
traktorem se stitky o vysce 3cm. Po zavolani metody Print.EndDoc vyjede cela
stranka A4 a to je spatne.
Mam nekde nastavit velikost stranky nebo zakazat jeji vyjeti ?

WinNT, D3

Vlada Cadsky, Mobil 0603 470965
E-mail na mobil: cadsky(zv)atlas(tec)cz (pouze zpravy BEZ prilohy)
E-mail pro prijem priloh: CadskyMega(zv)atlas(tec)cz


ad odchyt klavesy - jojo, jsem pako, diky moc :-)

[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 1.4.1999 16:02:17 -0000

Diky Dobromile, uznavam, ze kdyz jsem poprve uvidel tvoji odpoved, zapocal jsem mlatit hlavou o zed. Propertu KeyPreview jsem samozrejme nastavenou nemel a uz jsem s ni do styku prisel, takze v mozku to info o jejim principu ulozeno bylo, akorat bylo schovane pod informaci, ze s odchytem klaves nad formularem nejsou VUBEC zadne problemy (tudiz se nemusi nic resit). Ach jo :-(,
jeste jednou diky.

D�vkov� GUI aplikace

[*] Vlada Cadsky <cadskyk1(zv)atlas(tec)cz> - 1.4.1999 18:08:27

procedure TForm1.FormActivate(Sender: TObject);
sem by to neslo ?
Vlada

-----P�vodn� zpr�va-----
Od: Karel Kral <kral(zv)purus(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 1. dubna 1999 17:30
P�edm�t: D�vkov� GUI aplikace


>Pot�ebuji ud�lat aplikaci, kter� spust�m, ona vykon� n�jakou akci a pak
>se ukon��; to v�e bez z�sahu u�ivatele.
>Ukon�it ji um�m, ale kam um�stit akci, aby ve chv�li vol�n� akce u�
>formul�� byl zobrazen�?
>--
>______________________________________________________
>Karel Kral, informatik
>Purus, s.r.o., Cezavy 627, 664 56 Blucina
>Tel: 05/47235000, 0602/552432, Fax: 05/47231203
>E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
>______________________________________________________
>

TCP/IP: UDP a cekani na udalost

[*] muher(zv)csas(tec)cz - 1.4.1999 18:13:10

Vsechno by bylo dobry, ale nevim co s tim FD_ZERO a FD_SET.
Nasel jsem to ve Winsock2.h a vubec tomu nerozumim. Neslo by
to pres WSAAsyncSelect?

Martin

> >>
> > [Uher Martin] Muzes to prosim blize popsat? Na zpravu
> > cekam ve threadu, ktery pred tim odeslal pozadavek na
> > nejakou odpoved. Zajima mne jak se to ma v threadu udelat.
> > Jak ma vypadat procedura pro obsluhu, jak ji podstrcit fci
> > WSAAsyncSelect. Zkratka, "kopni" mne jeste kousek dal.
>
>
>
> pokud cekas ve threadu pak pouzij select:
>
> FD_ZERO(FD);
> FD_SET(S,FD);
>
> TV.tv_sec := 0;
> TV.tv_usec := 200000;
>
> while true do
> begin
> res := select(0,FD,NIL,NIL,NIL,(zv)Time);
> if res > 0 then
> begin
> // packet prijat, tak ho zpracuj - recvfrom() atd
> end
> else
> if res < 0 then
> begin
> // doslo k nejake chybe
> break;
> end;
> end;
>
> tohle bude cekat tak dlouho nez neco prijde na socket
>
>
> Zdravi
> D. Toman
>
>
>
>

SQL: Vyber 5 nejvetsich radku

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.4.1999 18:41:07

Miloslav Skacel wrote:

> >> bylo vybrat 5 zamestnancu s nejvetsim platem serazene sestupne podle
>
> >select * from customer
> >where CustNo>=(select Max(CustNo) from customer
> >where CustNo<(select max(CustNo) from customer
> >where CustNo<(select max(CustNo) from customer
> >where CustNo<(select max(CustNo) from customer
> >where CustNo<(select max(CustNo) from customer
> >)))))
> >order by CustNo desc
>
> Kdyby 'CustNo' byl 'Plat' a
> zamestanci meli stejne platy, nebyl by to problem :) ?

Ja nevim, vyzkousej si to. :-)

osobne si myslim, ze uloha nebyla zcela korektne zadana, a ze je
vice nez dobre respektovat konkretni databazi, na ktere se to ma
resit. Ony takove recicky o obecnem navrhu (programu i databaze)
jsou sice na pohled hezke, ale v praxi u zcela konkretnich reseni
dost tezko pouzitelne.


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


TCP/IP: UDP a cekani na udalost

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 1.4.1999 18:46:15

> Vsechno by bylo dobry, ale nevim co s tim FD_ZERO a FD_SET.
> Nasel jsem to ve Winsock2.h a vubec tomu nerozumim. Neslo by
> to pres WSAAsyncSelect?

na zjisteni jestli neco na socketu ceka k precteni za data s
uspechem jiz dlouho pouzivam fci:

ioctlsocket(socketid,FIONREAD,x)

ktera do VAR parametru X vrati u TCP socketu pocet bytu dat
cekajici na precteni, u UDP a jinych datagramovych protokolu vraci
delku prvniho datagramu cekajiciho na vyzvednuti. pokud nic na
vyzvednuti neceka, vraci 0.

Prijde mi to snazsi a ponekud pruhlednejsi reseni... a funguje
VSUDE! :-)


Louci se Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz


TCP/IP: UDP a cekani na udalost

[*] muher(zv)csas(tec)cz - 1.4.1999 19:28:57


> na zjisteni jestli neco na socketu ceka k precteni za data s
> uspechem jiz dlouho pouzivam fci:
>
> ioctlsocket(socketid,FIONREAD,x)
>
[Uher Martin] Jeste mam jeden problem: jak uvedu UDP
socket do stavu listen? Nebo jeste lepe,
Pres UDP socket vyslu paket a muzu do toho sameho
cekat odpoved? Nejak mi to stale nejde do hlavy.

Diky

TCP/IP: UDP a cekani na udalost

[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 1.4.1999 19:44:42

> [Uher Martin] Jeste mam jeden problem: jak uvedu UDP
> socket do stavu listen? Nebo jeste lepe,
> Pres UDP socket vyslu paket a muzu do toho sameho
> cekat odpoved? Nejak mi to stale nejde do hlavy.

Ano, UDP socket nema stav LISTEN. nejjedodusi pouzitije
nasledujici:

Vytvor si socket a ten nasledne pomoci CONNECT pripoj na
vzdalenou adresu a port. (u UDP se timto ten socket fyzicky
nepripoji, jen se na tvem pocitaci vse prislusne pripravi...)
pak staci pomoci SEND odeslat datagram a odpoved na tento
datagram precist prostym volanim RECV. (pred tim ovsem
doporucuji ve smycce pomoci ioctlsocket pockat, az se nejaky
prichozi datagram zaradi do fronty k precteni)

proste pokud pred tim pouzijes CONNECT, neni treba nikde uz nic
BINDovat, ani neni treba pouzivat RECVFROM a SENDTO. V
jednoduchosti je preci sila...

kdyby byly nejake nejasnosti, tak se klidne zeptej. Tyhle veci jsem
programoval uz mnohokrat. ;-)


Louci se Lukas Gebauer.

E-mail: gebauerl(zv)mlp(tec)cz


Courier font

[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 1.4.1999 19:54:01

Mohol by som poprosit o radu, neviem v Borland C++ Builderi 4.0
nastavit Courier font v editore. Aj ked v properties nastavim Courier,
vysledny font je Courier New. Ked odinstalujem vsetky Courier New fonty, BcB
sa tvari, ze Courier neexistuje a namapuje mi miesto neho Lucidu Console.
Pritom Courier mam v pohode nastaveny v Notepade a v inych aplikaciach.
Pouzivam Winnt 4.0 Workstation.
Dakujem za kazdu radu.

QuickReport > Access violation

[*] cerny.roman <cerny.roman(zv)atlas(tec)cz> - 1.4.1999 21:33:37

Pokusil jsem se vyresit problem dle Tve rady ale bohuzel to ke kyzenemu
vysledku nevedlo a
nejhorsi na tom je ze nevlastnim nastroje ktere zde jmenujes, takze jsem
zesa ve slepe ulicce.>Pokud pouzivas svuj preview form, tak uved v OnDestroy QRPreview.QRPrinter
>:= nil, melo by to pomoci. Pokud to nepomuze, muze byt chyba jeste asi na
>1000 jinych mistech nekde u tebe. Nejlepsi je pouzit memproof nebo podobny
>program, a prelozit i VCL s debug info. Pak se da chyba vetsinou najit.
>
>Mirun
>
>> Pred casem zde probehlo par prispevku k chybe kterou nekdy pri ukonceni
>> zahlasi QuickReport.Ale nejak to utichlo s tim ze se ma po Preview
zavolat
>> Application.ProcessMessages. Ad to skousim jakkoli porad se mi ta chyba
>> opakuje pri druhem spusteni Previewu.
>>
>> Poradte nekdo PLS. DEKUJI
>>
>>
>>
>>
>

Demoverze

[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 1.4.1999 22:11:50

Ahoj,

potreboval, prosim, nakopnout, jak udelat casove
omezeni pro demoverzi. Mam asi takovou predstavu,
ze pri instalaci se do registru zapise datum instalace,
a napr. po 30ti dnech uz program nepujde pustit.
Jenze:
a/kam to zapsat, aby se to uzivateli v registru spatne hledalo
a aby nejaka utilita pro cisteni registru to nevymazla?
b/ jak provest to, aby se omezeni uplatnilo i kdyz si uzivatel
posune datum? (asi tezko co:-( ? )

Samozrejme, ze hacknout de vse, ale jde mi o omezeni
pro trochu pokrocilejsi uzivatele.

Myslite, ze jdu spravnou cestou, pripadne jine napady?

Diky za nazory a zkusenosti!

S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203

RXLIB a Windows 98

[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 1.4.1999 22:49:54

Diky na 256GB krat .
Priskrceni sbernice nebo snad pridani plynu (BusThrottle=on) pomohlo.

Hezke Velikonoce a mnohobarevna vejce jen v kosicku preje

eL..


-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. dubna 1999 11:19
P�edm�t: RE: RXLIB a Windows 98


>Rika se, ze SYSTEM.INI Sekce [Display] radek BusThrottle=on,
>ale ja bych navrhoval bod 1.
>
>----------------
>> >
>> > >> Ahoj.
>> > >>
>> > >> Podarilo se nekomu nainstalovat RXLIB pro Delphi 4 na Windows 98
>> ?
>> > >> Trapil jsem se s tim asi 3 hodiny a nic.
>> > >
>> > >Jakou mas videokartu?
>> >
>> > Mam S3 ViRGE -DX/GX PCI (375/385) 4MB. Myslis, ze by to mohlo byt
>> tou kartou
>>
>> Podle me temer urcite...... moc instalovanych komponent = smrt pro S3.
>> Reseni:
>> 1. Jina karta (skoro cokoli krom S3)
>> 2. Nove ovladace (www.s3.com)
>> 3. Jine rozliseni/pocet barev (to taky obcas pomuze)
>> 4. Nejaky zasah do ini (presne to vi Petr Zahradnik - viz archiv)
>>
>>
>

Data hned do vysledku dotazu?

[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.4.1999 23:15:04

Preji vsem pekny den,

mam na formulari DBGrid, a taham data do neho pomoci nejakeho
SQL dotazu. Soucasne na tom formu provadim insert, update,
pripadne delete v tech tabulkach, ze kterych pak sosam data. Lze
udelat jinak (rychleji) obnovu dat v tom DBGridu, aniz bych musel
udelat Query1.Close a pak Query1.Open?

Diky za odpovedi

Slavek


----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------


nechtene Free komponenty

[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 1.4.1999 21:46:59 met

Poradte, prosim, s nasledujicim:
Jak zaridit, aby se pri Free nadrazene konponenty neprovadelo
Free nekterych podryzenych. Vypada to jako pitomina (urcite to
tak taky je), ale me to dost trapi a navic to potrebuju ...

Diky.

Hynek Svatos
svatos(zv)af(tec)czu(tec)cz


Pokus o preklad VCL s debug info

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.4.1999 00:02:46

Petr Fejfar wrote:
> Uz jsem na to prisel: mam tu takovou vetsi (bez DLL pres 300 000 radku)
> legacy aplikaci prenesenou z D1, takze jako default pouzivam short strings.
> Pak ovsem tStringItem nejsou dva pointery....
>
> Thanx, pf
>
> P.S.
>
> Zase jedna ukazka ze strany Borlandu, je podporit reuseabilitu a portabilitu
> :-((( A pritom by stacil napr. jeden globalni soubor definic pro VCL
> knihovnu s explicitnim nastavenim vlastnosti prekladu.

V tomhle pripade bych to (vyjimecne :-) na Borland nesvadel, prevadet projekt
z D1 do Win32 s tim, ze to k necemu bude je proste nesmysl. Budto z toho vznikne
paskvil, nebo zjistis ze je lepsi to zahodit a napsat znova. Bohuzel ....


--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

DOS program pod W95

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.4.1999 00:03:41

Nosek Libor wrote:
>
> Ahoj
> Funkci CreateProcess jse si spustil DOS aplikaci, to vse funguje
> bez problemu, ted bych si chtel precist obsah okna teto DOS aplikace
> a ulozit nekam, treba do Memo. (Tedy vypsane radky v okne).
> Asi to tu uz bylo, ale nejsem si jisty.
> Diky za namety

Ahoj,

Treba takhle:

function ExecAndWaitOutput(const AppName: String; var OutString: String;
Visibility: Word {$IFDEF PV_D4UP} = SW_HIDE {$ENDIF}): DWORD;
const
BufLen = 2048;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
TempBuf: array[0..BufLen] of Char;
BytesRead: DWORD;
begin
Result := MAXDWORD;
ZeroMemory((zv)StartupInfo, Sizeof(StartupInfo));
ZeroMemory((zv)ProcessInfo, Sizeof(ProcessInfo));
SetLength(OutString, 16384);
OutString := '';
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES or
STARTF_FORCEOFFFEEDBACK;
StartupInfo.wShowWindow := Visibility;
if not CreatePipe(StartupInfo.hStdInput, StartUpInfo.hStdOutput, nil, 0) then
Exit;
if CreateProcess(nil, PChar(AppName), nil, nil, True, NORMAL_PRIORITY_CLASS,
nil, nil, StartupInfo, ProcessInfo) then
with ProcessInfo do
begin
CloseHandle(StartupInfo.hStdOutput);
BytesRead := 0;
while ReadFile(StartupInfo.hStdInput, TempBuf, BufLen, BytesRead, nil) do
begin
TempBuf[BytesRead] := #0;
OutString := OutString + TempBuf;
end;
WaitForSingleObject(hProcess, INFINITE);
GetExitCodeProcess(hProcess, Result);
CloseHandle(hThread);
CloseHandle(hProcess);
CloseHandle(StartupInfo.hStdInput);
end else
begin
CloseHandle(StartupInfo.hStdOutput);
CloseHandle(StartupInfo.hStdInput);
end;
end;

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

Zmen�en� velikosti programu

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

Krame� David Ext. wrote:
>
> Zdravim vsechny !
>
> Je mozne nejakym zpusobem zmensit program pod tech zakladnich 200kB.
> Pokud delam jen bez formularu, tak je to male, ale jak se prida klausele
> Forms,
> velikost vzroste. Je mozne to nejak upravit v nastavenich, aby se to
> slinkovalo
> na soubor mensi (to jest, ze tam nenacpe asi celou VCL, ale ty nutne casti)
> ??

Ahoj,

Zmensit velikost EXE muzes pouzivanim balicku, ale to asi nebude to co chces.
Jinak to ale udelat nelze, jakmile budes pouzivat TForm (a TComponent) tak
tam budes mit tech 200k (v D4 uz je to pres 280k) balastu. Jedina moznost je
psat "cistou" aplikaci bez pouziti komponent. V tom ti uz ale Delphi prilis
nepomaha, nicmene u velmi jednoduchych veci to jeste lze. Skoda ze neexistuje
nejaka knihovna (jako napr. OWL ci MFC) i pro Delphi. V nekterych situacich
by to jiste melo sve opodstatneni.

Uz delsi dobu zvazuji (pomerne sileny :-) napad nejakou takovou knihovnu vytvorit.
Problemem ale stale zustava vizualni navrh, protoze Delphi neobsahuje Resource
Workshop. V tom by ale mohla pomoci VCL, vizulani navrh by se pouzil z Delphi s
omezenim na nekolik "povolenych" komponent, vetsinou jen ty ktere jsou obalem
ovl.prvku Windows a pomoci wizardu by se z formulare vygeneroval kod (do jineho
projektu) ktery by pouzival tridy z te jednoduche knihovny. Na prvni pohled to
opravdu vypada silene, navic to nedava prilis moznosti pro zmeny v kodu, ale v
nekterych pripadech by to bylo uzitecne. Treba uz neco takoveho existuje, ale
zatim jsem to nikde nevidel.

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************

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