Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Porovnavanie zvuku
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 30.6.1998 14:06:04
No KONECNE nejaky rozumny tema .... ;-)))
Nejlepsi by asi bylo zajit na _policii_ (ja tam teda uz jednou byl, a
bohate mi to stacilo), tam asi budou mit neco na identifikaci hlasu -
kvuliva oznameni o bombach, atd... No a pak uz to akorat staci predelat,
aby to neslo prez telefon, ale pres mikrofon ... Fcelku jednoduchy jako
facka.
Cago Belo _Silenci_
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
> Ing. J�n Kuch�r wrote:
>
>> Caute ! Moja otazka znie : da sa nejako inteligentne porovnava� dva
>> WAV subory v Delphi. Ide mi konkretne o to, aby program zistil ci 2
>> rozne subory ( nahovorene cez mikrofon ) obsahuju rovnaky text (
>> zadanie vstupneho hesla, potrebujem kontrolovat obsah zpravy a
>> identifikaciu hlasu - uzivatela
>> ).
>> Dik
>>
>> Katedra v�robn�ch inov�ci�
>> SjF TU Košice
>> Ing. J�n Kuch�r
>> E-mail : kuchar(zv)tuke.sk
>Memory Manager
[*] TucekR(zv)p15.monet(tec)cz - 30.6.1998 14:20:00
Hmmm vojna neni kojna zkus civilni sluzbu :-D
Nojo vojne neuteces ani v cizine.....i kdyz treba ted uz jo...... TRTsoft
PS: takova nemocnice se spoustou sestricek by nemusela bejt spatna a
nocni sluzba k tomu v televizi nic nedavaji radio hraje samy blbosti
pacienti jsou v klidu temna kancelar primare se primo nabizi......
----------
Od: Stepan Cerny
Komu: Delphi konference
P�edm�t: Memory Manager
Datum: 30. �erven 1998 10:36
Ahoj vespolek,
nevite negdo o nejakem (inteligentnim :-) ) sledovaci celkove pameti pro
W95/98 ???
Mam na mysli neco takoveho, jako je v NT4 ze to zobrazuje pamet
alokovanou jednotlivymi applikacemi, popripade procesy. Popripade, jak
takovou vec napsat v D3.
Diky, Diky, Diky, ...
PS1: To FTP je sqelej pocin.
PS2: ... slunce sviti, kytky smrdej, ptaci rvou, zbijecky zbijej, mozky
se zelenaji ..., nevite negdo jak se
_VYHNOUT__VOJNE_ ?!?!?
Konci mi odklad, a nechci se zabit, nebo si uriznout
nohu/ruku/hlavu/atd...
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Remove
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 30.6.1998 14:23:45
>Greetings From The Electricity Forum at: http://www.electricityforum.com
>
>A recent survey of the internet found that you or your organization has an interest in electrical engineering. As
such, we would like to bring your attention to our web site, which gets more than 170,000 hits per month!
>
>We offer a FREE MEMBERSHIP to our web site, which gives you a regular e-mail newsletter about current North
American electric utility industry news, corporate news and product information, as well as updates on our latest
technical training seminars and conferences. Join the thousands of electrical industry professionals who are
already FREE members.
>
>We also have the largest and most complete on-line Transmission and Distribution Product Directory and Buyer's
Guide with hundreds of leading T&D manufacturers and more than 900 product categories to browse.
>
>Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D Companies, Electricity Today Magazine,
McGraw HIll Technical Books, Forums and Conferences, Industry Links, Product Showcases, Classifieds, Carreers, etc.
>
>Thanks very much for your time,
>
>Randy Hurst
>President
>rwh(zv)istar.ca
>
>
>
>If you wish to be removed from this advertiser's future mailings, please reply with the subject "Remove" and this
software will automatically block you from their future mailings.
>Vyvolanie reakcie
[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 30.6.1998 14:32:23
Lenze ako dam vediet tomu druhemu programu, ze je stalcena prave klavesa A a
nie klavesa B
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. august 1998 19:13
P�edm�t: Re: Vyvolanie reakcie
>Takze asi chces udelat na obrazovce klavesnici a mackat mysi a tim vytvorit
>vstup z klavesnice pro jiny program.
>Potom neni potreba pouzit hook funkce, ale napsat jen handler pro
>klavesnici.
>
>Ve windows se reakce na akce uzivatele zajistuji zpravami, takze kdyz
>stisknes
>klavesu, system zjisti, ve kterem okne k tomu doslo a posle na toto okno
>zpravu
>wm_keyDown. To, ze to posle na konkretni okno, se zajistuje tzv. handle
>okna.
>Pri pusteni klavesy zase wm_keyUp. Potom jeste vznikne zprava wm_Char, ale
>tu asi generuje sama aplikace pri prekladu zprav wm_keyDown a wm_KeyUp.
>Pokud staci jen psat text, pak staci posilat primo wm_Char.
>
>Kdyz chces takovou akci simulovat, je zapotrebi poslat na okno programu,
>nekdy
>dokonce na konkretni okno ( "okno" je obecny pojem a muze to byt libovolny
>ovladaci prvek) takovou zpravu. Doporucuji si vyzkouset program WinSight
>dodavany s vyssimi verzemi Delphi, uvidis, jak probihaji ruzne zpravy pri
>ruznych
>akcich.
>
>Tvuj program jen bude posilat zpravy wm_keydown a wm_keyup na okno
>ovladaneho programu.
>
>Je zapotrebi zjistit handle okna, na ktere se maji zpravy posilat, existuje
>API funkce FindWindow, ale je treba znat nazev typu okna, v tom pomuze
>WinSight.
>
>Tusim na DSP jsem videl komponentu na vytvareni maker, zdrojaky jsou cca
za
>20 dolaru, zkus pohledat, treba to v necem pomuze.
>
>Hodne zdaru
>
>Pavel Kral
>
>-----Original Message-----
>From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
>To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Date: 5. srpna 1998 17:29
>Subject: Re: Vyvolanie reakcie
>
>
>Cau
>Asi sme sa dobre nepochopili, ja potrebujem nasledovne :
>uzivatel stlaci lave tlacitko na mysi v jednom okne a v pocitai musi nastat
>rovnaka reakcia ako keby stlacil klavesu A v inom okne.
>V podstate mi ide o ovladanie ineho programu ktory sa ovlada pomocou
>klavesnice a potrebujem ho ovladat pomocou mysi, zdrojaky tohto programu
>nemam.
>
>
>-----P�vodn� zpr�va-----
>Od: Pavel Kral <kral(zv)afx(tec)cz>
>Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Datum: 5. august 1998 11:25
>P�edm�t: Re: Vyvolanie reakcie
>
>
>>Ahoj,
>>snad by to slo takto:
>>s pomoci hook funkce odchytit zpravu mysi, zjistit, na ktere okno je
>>smerovana
>>a poslat na stejne okno zpravu wm_keydown, wm_keyUp nebo wm_Char
>>
>>Pavel Kral
>> -----Original Message-----
>> From: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
>> To: Delphi <delphi(zv)pinknet(tec)cz>
>> Date: 5. srpna 1998 9:43
>> Subject: Vyvolanie reakcie
>>
>>
>> Caute
>> Potrebujem vyriesit nasledujuci problem. Povedzme, ze ked uzivatel
>>stlaci lave tlacitko mysi v systeme ma nastat reakcia, ako keby stlacil
>>klavesu napriklad A. Takze potrebujem vyvolat reakciu, ktoru by system
>>zaznamenal ako stlacenu klavesu. Podmienky : W95 a D3.
>>
>>Dik
>>
>> Katedra v�robn�ch inov�ci�
>> SjF TU Ko�ice
>> Ing. J�n Kuch�r
>> E-mail : kuchar(zv)tuke.sk
>>
>>
>>
>
>
>
>Problem ?!
[*] Petr Borak <xborak(zv)informatics.muni(tec)cz> - 30.6.1998 14:39:25 -0700
Zdravim vsechny!
Mam jednu prosbu (i jini zde resi takove problemy :-) ).
Provozoval jsem MS DOS6.22 & Win3.11 & LINUX na jednom disku
a vse bylo snesitelne. Pak jsem vse preinstaloval na konfiguraci
MS DOS6.22 & Win95 & WinNT & Linux (DOS & Win95 partition 1,
WinNT & Linux v Extended).
WinNT je na FAT, nikoli NTFS.
Pravdepod. nekdy od te doby me obcas WinNT zkousely pri startu
pomoci CHKDSK vymazat vetsinu adresaru, pry jsou znicene.
Pod Win95 mi SCANDISK obcas hlasil poskozenou zalozni FAT,
po oprave se to zase rozbehlo OK.
Po nejake dobe jsem zjistil, ze WinNT mi hlasi Error in partition 1
table. Nacetl jsem ji pod Linuxem fdiskem a ulozil a bylo to OK.
Pozdeji mi pri bootovani disk dlouho "hrkal" nez se rozbehlo bootovani.
Vse jsem zalohoval, fdiskoval pri WinNT instalaci, vse jsem zformatoval
pod WinNT, pak DOSem6.22 ale porad to uvodni "hrkani" = prodleni pred
bootovanim zustava. Navic ALWILL mi pri zaloze partition table hlasi
nestandardni bootsector a pak v tom souboru je porad slovo NTLOADER
i kdyz jsem delal "fdisk /mbr", vytvarel pak primarni partition
pod DOSem a pod.
Co s tim mam delat??
Mne uz nebavi mit vse schovane na disketach a porad to obnovovat :-((((
Jak se toho, co mi parazituje nekde v partition table zbavit??
Prosim poradte, nez zesilim.
--
PS:Za vsechno muze de BILL
Petr Borak
xborak(zv)fi.muni(tec)cz
BDE install
[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 30.6.1998 15:57:52
Cauu,
nevite nekdo jak rucne nainstalovat BDE ??
registry, etc.
nebo jestli nekdo nemate vlastni instalacni program ??
diik
Neviditelne okno
[*] Ing. J�n Kuch�r�����!j��G - 30.6.1998 16:01:46
ktore z toho vsetkeho
-----P�vodn� zpr�va-----
Od: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 6. august 1998 14:12
P�edm�t: RE: Neviditelne okno
>> -----Original Message-----
>> From: Jan Kuchar [SMTP:kuchar(zv)tuke.sk]
>> Sent: Thursday, August 06, 1998 10:24 AM
>> Subject: Neviditelne okno
>>
>> Caute
>> Pred nedavnom som tuna zistoval ako vytvorit neviditelne okno. Podarilo
sa.
>> Vsetko ma ale svoj hacik. Po spusteni tohto okna mozem zachytavat pohyb
>> mysi, ale nemozem spustat ine aplikacie ktore su vidiet - ikony na
ploche.
>> Takze znovu ako vytvorit neviditelne okno pre zachytavanie pohybu mysi,
ale
>> take, ktore umozni spustat aj ine aplikacie, ktore su cez to okno vidiet.
>> Dik
>>
>Byl tady na to nedavno odkaz na kulate okno s dirou uprostred skrz kterou
slo
>klikat na ikony na desktopu.
>Jako obvykle odkaz pochazi od Petra Vonese, amaterskeho to programatora
8-)
>Snad ti to pomuze.
>
>Tady to je:
>
> http://www.gnomehome.demon.nl/uddf/pages/zmisc3.htm#zmisc39
>
> ZdeP
>Remove
[*] Enter Kosice - Igor Forgac <enter(zv)enterkosice.sk> - 30.6.1998 16:29:20
-----Original Message-----
From: rwh(zv)istar.ca <rwh(zv)istar.ca>
To: rwh(zv)istar.ca <rwh(zv)istar.ca>
Date: 29. j�n 1998 23:00
Subject: News From The Electricity Forum
>Greetings From The Electricity Forum at: http://www.electricityforum.com
>
>A recent survey of the internet found that you or your organization has an
interest in electrical engineering. As such, we would like to bring your
attention to our web site, which gets more than 170,000 hits per month!
>
>We offer a FREE MEMBERSHIP to our web site, which gives you a regular
e-mail newsletter about current North American electric utility industry
news, corporate news and product information, as well as updates on our
latest technical training seminars and conferences. Join the thousands of
electrical industry professionals who are already FREE members.
>
>We also have the largest and most complete on-line Transmission and
Distribution Product Directory and Buyer's Guide with hundreds of leading
T&D manufacturers and more than 900 product categories to browse.
>
>Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D
Companies, Electricity Today Magazine, McGraw HIll Technical Books, Forums
and Conferences, Industry Links, Product Showcases, Classifieds, Carreers,
etc.
>
>Thanks very much for your time,
>
>Randy Hurst
>President
>rwh(zv)istar.ca
>
>
>
>If you wish to be removed from this advertiser's future mailings, please
reply with the subject "Remove" and this software will automatically block
you from their future mailings.
>
>Remove
[*] mozek(zv)post(tec)cz - 30.6.1998 16:38:01
>
>
> Ing. Marcel Telka <marcel(zv)vadium.sk>
> Vadium s.r.o., Plzenska 4, 080 01 Presov
> http://www.vadium.sk/ Tel./fax: 091/721 160
>
> -----P�vodn� zpr�va-----
> Od: rwh(zv)istar.ca <rwh(zv)istar.ca>
> Komu: rwh(zv)istar.ca <rwh(zv)istar.ca>
> Datum: 30. j�n 1998 0:01
> P�edm�t: News From The Electricity Forum
>
>
> >Greetings From The Electricity Forum at: http://www.electricityforum.com
> >
> >A recent survey of the internet found that you or your organization has an
> interest in electrical engineering. As such, we would like to bring your
> attention to our web site, which gets more than 170,000 hits per month!
> >
> >We offer a FREE MEMBERSHIP to our web site, which gives you a regular
> e-mail newsletter about current North American electric utility industry
> news, corporate news and product information, as well as updates on our
> latest technical training seminars and conferences. Join the thousands of
> electrical industry professionals who are already FREE members.
> >
> >We also have the largest and most complete on-line Transmission and
> Distribution Product Directory and Buyer's Guide with hundreds of leading
> T&D manufacturers and more than 900 product categories to browse.
> >
> >Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D
> Companies, Electricity Today Magazine, McGraw HIll Technical Books, Forums
> and Conferences, Industry Links, Product Showcases, Classifieds, Carreers,
> etc.
> >
> >Thanks very much for your time,
> >
> >Randy Hurst
> >President
> >rwh(zv)istar.ca
> >
> >
> >
> >If you wish to be removed from this advertiser's future mailings, please
> reply with the subject "Remove" and this software will automatically block
> you from their future mailings.
> >
> >
>
>
Klavesa
[*] svatos(zv)af(tec)czu(tec)cz - 30.6.1998 19:59:32 met
> Nazdar,
>
> potreboval by som poradit, ci je mozne tesovat stlacenie klavesnice z ineho programu. Ak ano, ako je to mozne otestovat.
>
No, ja toho tedy moc nevim, ale tipnul bych si, ze se to dela pres
filtracni Hook fce windows.
Myslim, ze jich je nekolik typu (filtrovani jen nekterych zprav,
treba mysi az po kompletni sledovani poletovani zprav v systemu).
Dale si vzpominam (delal jsem to naposled ve W31), ze takova fce musi
byt v DLL, musi mit spravne parametry a directivu CALLBACK. Potud ma
pamet. (Ty posledni dva poznatky uz treba neplati, mozna ani ty
predesle => tedy mnoho zdaru !)
Dale rada:
Nevolat HELP, nybrz studovat HELP.
Cao.
svatos(zv)af(tec)czu(tec)cz Problem ?!
[*] svatos(zv)af(tec)czu(tec)cz - 30.6.1998 20:08:43 met
Zdravim !
Nejlepsi asi bude lecba SOKEM !
Ja bych zkusil postup:
1) Lo-level format disku
2) instalace DOS 6.22
3) instalace Win95 (ble, ble ble)
4) instalace WinNT (az nakonec, protoze NT si nacpou do MBR vlastni
5) LINUX
V poradi 4) a 5) si nejsem jist, nicmene se mohu zeptat kolegy, ten
tuto hruznou (nic osobniho) spatlaninu taky provozuje.
Preji prijemne chvile stravene formatovanim ...
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
> Zdravim vsechny!
>
> Mam jednu prosbu (i jini zde resi takove problemy :-) ).
> Provozoval jsem MS DOS6.22 & Win3.11 & LINUX na jednom disku
> a vse bylo snesitelne. Pak jsem vse preinstaloval na konfiguraci
> MS DOS6.22 & Win95 & WinNT & Linux (DOS & Win95 partition 1,
> WinNT & Linux v Extended).
>
> WinNT je na FAT, nikoli NTFS.
> Pravdepod. nekdy od te doby me obcas WinNT zkousely pri startu
> pomoci CHKDSK vymazat vetsinu adresaru, pry jsou znicene.
> Pod Win95 mi SCANDISK obcas hlasil poskozenou zalozni FAT,
> po oprave se to zase rozbehlo OK.
> Po nejake dobe jsem zjistil, ze WinNT mi hlasi Error in partition 1
> table. Nacetl jsem ji pod Linuxem fdiskem a ulozil a bylo to OK.
> Pozdeji mi pri bootovani disk dlouho "hrkal" nez se rozbehlo bootovani.
> Vse jsem zalohoval, fdiskoval pri WinNT instalaci, vse jsem zformatoval
> pod WinNT, pak DOSem6.22 ale porad to uvodni "hrkani" = prodleni pred
> bootovanim zustava. Navic ALWILL mi pri zaloze partition table hlasi
> nestandardni bootsector a pak v tom souboru je porad slovo NTLOADER
> i kdyz jsem delal "fdisk /mbr", vytvarel pak primarni partition
> pod DOSem a pod.
>
> Co s tim mam delat??
> Mne uz nebavi mit vse schovane na disketach a porad to obnovovat :-((((
>
> Jak se toho, co mi parazituje nekde v partition table zbavit??
>
> Prosim poradte, nez zesilim.
>
> --
> PS:Za vsechno muze de BILL
> Petr Borak
> xborak(zv)fi.muni(tec)cz
>
> Titulkovy pruh
[*] svatos(zv)af(tec)czu(tec)cz - 30.6.1998 20:14:43 met
> Hola lidi!
>
> Nevite nekdo, jak udelat (pokud je to mozne) vicebarevny titulkovy pruh u
> nejake aplikace.
>
> Diky za vsechny navrhy.
>
Zdravim clovece !
Tak ty bys taky rad vypadal jako Microshit ?
Dobra, dame ti prilezitost !
Poslu nejakou komponentu co jsem nekde splasil (snad FREE) na
ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference/D3/Other, takze se tes !
Doufam, ze ti poslouzi.
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Remove - neodpovidejte mu
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 30.6.1998 20:32:35
Pokud Vam prijde mail od rwh(zv)istar.ca s subjektem News From The Electricity Forum, tak
na neho neodpovidejte. Jako reply adresu ma tuhle konferenci. Je to dost blby vtip.
Radim Kunz
Sekundarni index v Paradoxu
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 30.6.1998 23:19:39
[P��loha v souboru: Standa �ern�.vcf
ExecSQL
[*] �ke��k Jaroslav�������6�����̿ - 30.6.1998 23:41:30
S parametry je nekdy potiz.
Vyzkousej to takto:
QExecSQL.SQL.Clear
QExecSQL.SQL.Add('select Count(*) from t016 ');
QExecSQL.SQL.Add(Format(' where IC_001 = %d and Atribut = ''Filtr'' and
Objekt = "%s" ', [parIC, parObjekt']));
QExecSQL.Open;
Mozna, ze to pobezi i rychleji. V obnobnych pripadech nemusis parametry
vubec pouzivat.
Jaro.
Memo1
-----P�vodn� zpr�va-----
Od: Vit Malecek <malecek(zv)melzer(tec)cz>
Komu: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
Datum: 30. �ervna 1998 17:03
P�edm�t: ExecSQL
>Nejprve se omlouvam, ze mam zase asi jeden pro mne nevysvestlitelny
problem. Soucasne dekuji
>za odpoved na vcerejsi dotaz. Opravdu mi to pomohlo. A nyni k veci. Mam kus
kodu:
>
>QExecSQL.SQL.Text := 'select Count(*) from t016 where IC_001 = :parIC_001 '
> + 'and Atribut = ''Filtr'' and Objekt =
:parObjekt';
>QExecSQL.Prepare;
>QExecSQL.ParamByName('parIC_001').AsInteger := parIC;
>QExecSQL.ParamByName('parObjekt').AsString := Trim(parObjekt);
>QExecSQL.Open;
>
>Po prikazu Open obdrzim hlaseni "General SQL error. arithmetic exception,
numeric overflow,
>or string truncation.". Nejpodivuhodnejsi ovsem je, ze kdyz vynecham sekci
and Objekt = :parObjekt
>tak to jede. Rovnez kdyz tuto sekci nahradim sekci and Objekt =
''d0207.Q024'' tedy
>(QExecSQL.SQL.Text := 'select Count(*) from t016 where IC_001 = :parIC_001
'
>+ 'and Atribut = ''Filtr'' and Objekt = ''d0207.Q024''';) tak program
funguje. Kontroloval
>jsem obsah parObjekt i QExecSQL.ParamByName('parObjekt').AsString pred
provedenim
>prikazu Open a opravdu tam byla hodnota d0207.Q024. Takze opravdu nevim. Vi
snad nekdo?
>Diky.
>
>Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech
Republic
>e-mail: malecek(zv)melzer(tec)cz
>tlf./phone number : +420-(0)508-330301, +420-(0)508-330302, privat :
+420-(0)508-27141
>fax number : +420-(0)508-330302
>Funkcie & Pointery
[*] psoft <psoft(zv)kosice.telecom.sk> - 1.7.1998 05:39:54
> psoft wrote:
> >
> > Zdravim,
> >
> > viete mi niekto poradit, preco je mozne nieco take :
> >
> > function test:Integer;
> > begin
> > ....
> > end;
> >
> > var P:Pointer;
> > ...
> > P:=(zv)test;
> >
> > ale nezoberie mi P:=(zv)sin, resp. ziadnu z funkcii v unite system.
> > (Tam je v deklaracii pisane _SIN, nie SIN)
> > Zahlasi mi, ze k tomu sin potrebuje parametre (akoby to chcel
> > normalne vyhodnotit).
> >
> > Preco ?
> >
> > Dakujem.
>
> Ahoj,
>
> Bude to asi tim ze Sin() neni vlastne uplne cista funkce, je to spis
> neco mezi funkci a prikazem jazyka (nevim jak to lip popsat), podobne
> se chova treba Str() nebo Writeln coz je "funkce" kterou asi tezko
> napises v Pascalu. Slo by to ale obejit takhle:
>
> function MySin(X: Extended): Extended;
> begin
> Result := Sin(X);
> end;
>
> var P:Pointer;
> P := (zv)MySin;
>
> Petr Vones, amatersky programator
>
Ano, uznavam ze mas pravdu, hoci som v kutiku dufal, ze mi to niekto
vyvrati. Mimochodom, ak si pozriete system.pas, pri tychto funkciach
je poznamka, ze ide o "compiler magic functions", hoci netusim co to
znamena ... ale zrejme nieco nieco celkom normalne :-)))
Nuz, to tvoje riesenie je dobre, ale ma muchu v tom, ze ja to
potrebujem na parser, takze takto predefinovat mi treba skoro cely
unit system.pas a zeby hadam aj z math.pas ? (Teda skoro vsetko
podstatne ....).
Aj tak dakujem.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Funkcie & Pointery
[*] psoft <psoft(zv)kosice.telecom.sk> - 1.7.1998 05:48:31
> From: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
> Organization: HLINKA-SOFT
> To: delphi(zv)pinknet(tec)cz
> Date: Mon, 29 Jun 1998 20:54:25 +0000
> Subject: Re: Funkcie & Pointery
> Priority: normal
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> psoft wrote:
>
> > viete mi niekto poradit, preco je mozne nieco take :
> >
> > function test:Integer;
> > ...
> > var P:Pointer;
> > ...
> > P:=(zv)test;
> >
> > ale nezoberie mi P:=(zv)sin, resp. ziadnu z funkcii v unite system.
> > (Tam je v deklaracii pisane _SIN, nie SIN) Zahlasi mi, ze k tomu sin
> > potrebuje parametre (akoby to chcel normalne vyhodnotit).
>
> Protoze funkce Sin ma parametry, tvoje funkce nikoliv. Takze pokud
> bys takto chtel prirazovat, musel bys udelat takovouhle deklaraci:
>
> ftyp=function(x:extended):extended;
> ...
> var p:ftyp;
> ...
> p:=(zv)Sin;
Musim ta opravit, ale nie je to preto.
1. skusal som to a aj tak pyta parametre
2. moja premenna p nie je ftyp ale pointer - netypovy, a aj chcem,
aby ostal iba pointer, aby som tam mohol priradzovat funkcie s
roznymi parametrami.
3. preco by potom ak dam napr. vlastnu funkciu test(x,y:...):boolean
bralo aj p:=(zv)test, kde p=pointer ?
4. preco mi funkcie, ktore niesu v unite system, ale math berie ?
napr taky ArcSin ma deklaraciu taku isty, a s tym problem nie je.
Ja vidim problem v tom, ze napr. sin ani nie je funkcia. Je to len
akasi finta kompilatora, lebo ak pouzivas funkciu sin, musim mat v
uses pouzity unit system. Ale skusim v tom unite system najst funkciu
sin. Ak ju tam najdes, pozvem ta na pivo... Spomina sa tam vsak cosi
o "magic functions" .....
Ahoj.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> MPEG
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 1.7.1998 06:39:46
Zdravim,
potrebuju v Delphi 1 prehrat soubor ve formatu MPEG. Nemate nekdo
nejakou komponentu?
Diky. S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)email(tec)cz BDE install
[*] East Trading Company s.r.o. <vit(zv)ardo(tec)cz> - 1.7.1998 07:39:35
>Cauu,
>
>nevite nekdo jak rucne nainstalovat BDE ??
>
>registry, etc.
>
>nebo jestli nekdo nemate vlastni instalacni program ??
>
>diik
Sem tak lital po I-netu a nasel jsem tohle...
http://phi.bke.hu/HU/download.html
Je to sice madarsky, ale instalacni program snad ne...
Svatopluk Vit
vit(zv)ardo(tec)cz
Klavesa
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.7.1998 08:18:34
kubork(zv)post.sk wrote:
> potreboval by som poradit, ci je mozne tesovat stlacenie klavesnice
> z ineho programu. Ak ano, ako je to mozne otestovat.
Tak napriklad takovouto konstrukci pouziva program AntiSL.exe, skvely
program ke sledovani stisknuti nenavidene klavesy ScrollLock,
doporucuji tri ze dvou ScrollLock Hateru, k dostani na
http://www.dati(tec)cz/~slhaters/:
TForm1 = class(TForm)
private
procedure HotKey(var Message:TMessage); message WM_HOTKEY;
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle,1,0,VK_SCROLL);
end;
procedure TForm1.HotKey(var Message:TMessage);
begin
...
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
software
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 1.7.1998 08:37:43
Mozno mate podobny problem ako ja. Ked programator urobi aj najlepsi program je to takmer nepredajne lebo zakaznik chce kompletne softwarove baliky. Myslim tu hlavne na ekonomicky software. Tak sa zrodil napad. Pomocou internetu zriadit firmu pre tvorbu ekonomickeho softweru. Kazdy dobry programator moze sa stat clenom vyvojoveho teamu, ak poskytne nejaky modul do softweroveho baliku. Samozrejme sposob odmenovania bude osobne dohodnute a vyhodou tejto spoluprace je to, ze programator vo svojom volnom case
moze pracovat a tak mat vedlajsi prijem.
Moduly ktore by boli potrebne su:
Kasa
Sklad (vitane su aj colne sklady)
Podvojne uctovnioctvo (aj fakturacia hlavne pre hospodarske organizacie)
Jednoduche uctovnictvo (aj fakturacia)
Mzdy (uz su zabezpecen� v INTERBASE)
Riesenie tychto produktov musi byt zalozeny na SQL. Najlepsie INTERBASE.
Prosim zaujemci hlasete sa na email adrese Tungli(zv)pvt.sk.
TUNGLI Jan
tungli(zv)pvt.sk
Klavesa
[*] Pavel Kral <kral(zv)afx(tec)cz> - 1.7.1998 08:47:48
Ahoj.
Tak, ze si vytvorite filtracni funkci, ktera vam bude odchytavat zpravy
klavesnice.
Zaregistrujete ji API funkci SetWindowsHookEx s parametrem wh_keyboard
Vase funkce musi mit predepsany tvar, po skonceni ji musite uvolnit
volanim UnhookWindowsHookEx. Tyto funkce jsou popsany v helpu API.
Filtracni funkce musi byt umistena v DLL, odkud volate SetWindowsHookEx je
vcelku
jedno, muze to byt i z Vasi aplikace.
Ve Vasi filtracni funkci je zapotrebi volat funkci CallNextHookEx, ktera
zajisti
normalni prubeh zpravy.
Pozor, DLL se stava soucasti te aplikace, ve ktere doslo ke stisku klavesy.
To znamena, ze nemuzete primo volanim funkci one DLL zjistit, ktera klavesa
to byla,
protoze kazda aplikace ma vlastni data. Ja to delam tak, ze zjistenou
klavesu
odeslu _jinou_ zpravou na svou aplikaci. (Kdybych ji odesilal zpravou
wm_KeyDown,
i ta by se zachytavala filtracni funkci a mohlo by dojit k zahlceni).
Bohuzel filtracni funkci s parametrem wh_Keyboard nelze zjistit, na kterou
aplikaci je zprava zasilana. JESTLI ANO, DEJTE NEKDO VEDET, JAK.
Jestli chcete, muzu poslat funkcni priklad.
Jinak hodne zdaru preje
Pavel Kral
****************
Dale ji priklad filtracni funkce, nekladu si vsak naroky na dokonalost...
function BylStisk(code: integer; wParam: WParam; LParam: LParam):
integer;stdcall;
var Zprava: integer;
CWPStruct : TCWPStruct;
AktivniOkno : HWND;
HlavniOkno : HWnd;
wp,lp: longint;
begin
if (code<0) then { podle helpu je toto povinne }
begin
Result := CallNextHookEx(CurrentHook, Code, wParam, lParam);
exit;
end;
{ zajisti normalni prubeh zpravy }
Result := CallNextHookEx(currentHook, Code, wParam, lParam );
{ promennou CurrentHook ziskate pri volani funkce SetWindowsHookEx, }
{ ja si ji predavam do knihovny volanim jine funkce }
{ dale si muzete delat, co chcete ...}
{ zjistim, jestli je to wm_KeyDown nebo wm_KeyUp }
Zprava := msg_KeyDown;
if (Longint(lparam) <0) then
begin
Zprava := msg_KeyUp;
end;
wp:= wParam;
lp:= lParam;
{ odeslu, jen kdyz to neni stejna zprava ... }
if (wp<>oldwp) or (oldLp<>lp) then
begin
AktivniOkno:= GetForegroundWindow;
HlavniOkno:= GetTopWindow(AktivniOkno);
OknoAplikace := FindWindow('TOknoRychlomeru', 'Rychlom�r');
if OknoAplikace<=0 then
OknoAplikace := FindWindow('TOknoRychlomeru','');
{ odeslu, jen kdyz aktivni aplikace neni ma aplikace }
if (OknoAplikace<>HlavniOkno) then
begin
PostMessage(OknoAplikace, Zprava, wParam, lParam);
end;
end;
oldwp:=wp;
oldlp:=lp;
end;
********************
priklad volani funkce SetWindowsHookEx
HandleDLL := LoadLibrary(PChar('keyhooklib.dll')); // je zapotrebi si
zjistit adresu knihovny
CallProcAdr := GetProcAddress(HandleDLL, PChar('BylStisk')); // a callback
hook funkce
HookHandle:= SetWindowsHookEx(WH_Keyboard, // a tu potom
predat do SetWindowsHookEx
CallProcAdr, HandleDLL, 0);
CurrentHook:= HookHandle;
NastavCurrentHook(CurrentHook); { volani funkce DLL }
-----Original Message-----
From: kubork(zv)post.sk <kubork(zv)post.sk>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 30. �ervna 1998 16:45
Subject: Klavesa
>Nazdar,
>
>potreboval by som poradit, ci je mozne tesovat stlacenie klavesnice z ineho
programu. Ak ano, ako je to mozne otestovat.
>
>V daka za kazdu odpoved
>
>
>
>Rado Kubala
>kubork(zv)post.sk
>----------------------------------------
> WWW.POST.SK - e-mail pre kazdeho zadarmo
>
>
>
BDE install
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.7.1998 09:03:28
> nevite nekdo jak rucne nainstalovat BDE ??
>
> registry, etc.
>
> nebo jestli nekdo nemate vlastni instalacni program ??
A pro jake BDE to potrebujes? Jsou tri verze. Co se tyka
16-bitove verze 2.5, to je jednoducha zalezitost, i kdyz
pokud jiz na pocitaci BDE je, pak je to velky problem
a ne vzdy to dopadne dobre. 32-bitove verze 3.5 a 4.5
jsou na vice instalaci lepsi, i kdyz zase je to trochu
slozitejsi.. Popis 16-bitove instalace je primo v textu
Borlandu, popis 32-bitove instalace u Borlandu nenajdes,
protoze on ti primo prikazal, ze na to musis pouzit jeden
z certifikovanych instalacnich programu, ktere jsou
vyjmenovany Borlandem (Inprisem).
Ja na verze 2.5 a 3.5 pouzival Eschalon Setup, ktery je
certifikovany, ale kdyz vylezlo BDE 4.5 a formu Eschalon
koupil Microsoft, uz to dale nepodporuji. Nastaly nejake
problemy, protoze BDE 4.5 ma nejake zmeny oproti 3.5
a nestaci jen zmenit soubory - zjistil jsem, ze na
nejakych pocitacich instalace nepracuje. Tak jsem to
vyresil tak, ze jsem si udelal svuj program pro instalaci,
resp. ne celou instalaci, protoze soubory tam zavede
Eschalon Setup, knihovny DLL a BLL i BDE zaregistruje
take on, ale ja pak delam nastaveni jednotlivych driveru
a pridavani aliasu.
Mas dve moznosti, jak to udelat - jednodussi a slozitejsi.
V prvnim pripade proste udelas nejake zapisy do registru,
to neni slozite, a mas nainstalovano. Podivej se, jak je
to tam napsane a musis to pochopit. Pokud to ale chces mit
opravdu dokonale, je to dost slozite a musis vyuzivat
nejake nedokumentovane funkce BDE urcene pro instalaci.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================konverze byte > char
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 1.7.1998 09:19:57
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Prosim vas nevi nekdo jak jednoduse zkonvertovat array of byte do stringu?
Memory Manager
[*] TucekR(zv)p15.monet(tec)cz - 1.7.1998 09:21:00
Co treba pozuit WINTOP z baliku KernelToys.... TRTsoft
----------
Od: roman.palarcik(zv)spt(tec)cz
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Re: Memory Manager
Datum: 30. �erven 1998 14:05
Ahoj vespolek,
nevite negdo o nejakem (inteligentnim :-) ) sledovaci celkove pameti pro
W95/98 ???
Mam na mysli neco takoveho, jako je v NT4 ze to zobrazuje pamet
alokovanou jednotlivymi applikacemi, popripade procesy. Popripade, jak
takovou vec napsat v D3.
Diky, Diky, Diky, ...
PS1: To FTP je sqelej pocin.
PS2: ... slunce sviti, kytky smrdej, ptaci rvou, zbijecky zbijej, mozky
se zelenaji ..., nevite negdo jak se
_VYHNOUT__VOJNE_ ?!?!?
Konci mi odklad, a nechci se zabit, nebo si uriznout
nohu/ruku/hlavu/atd...
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
----------------------------------------------------
Neco takoveho dela program WinTop. Je to myslim primo od MS jako
soucast nejakych utilit. Muzu poslat.
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
RealTime Game
[*] ing. Trn�n� Milan <bodlak1(zv)czn(tec)cz> - 1.7.1998 09:30:16
Tentokrat mam pro Delphi osazenstvo nabidku. Po roce prace jsme s kamaradem dokoncili pripravne prace na na projektu GALACTICA. Priznam se, ze zrovna ja nejsem obzvlast velka hvezda v Delphi a spis mi sedi Assembler ci C/C++. Ale mym konickem a vedlejsim zdrojem prijmu je malba a grafika. Oc jde.
Radi bychom dali dohromady par lidi, se kterymi bychom uvedli v zivot RealTime hru Galactica. Scenar je hotov, obrazky (navrhy) jsou z vetsi casti take hotove a jisty zaklad uz je. Nema asi smysl se prilis rozepisovat, ale alespon zakladni veci:
- hra by mela fungovat pod DOS4GW (Windows95)
- rozliseni 640x480 ci 800x600 - 256barev
- jde tu o 12 misi (planet), ktere je treba vratit zpet lidstvu. Proti jinym hram budou mise provazane a pokud pokazite treba 8. misi, muzete se vratit zpet az do 1. mise
- ve hre se nestrili ani nezabiji a je dost humorna
- principialne je podobna Dune2
Zadne mantineli, at herni, pracovni, vyvojove ani financni nejsou zatim stanoveny, i kdyz jiz mame sponzora. Vse se domluvi az s konkretnimi zajemci o tvorbu teto hry. Takze uvitame programatory, grafiky i dalsi specialisty, kteri chteji pomoci a eventualne vytvorit neco, na cem se da i vydelat. Uvitame externisty i zajemce, kteri se vyvoji hry budou venovat naplno.
Vite-li o dalsich konferencich i v jinych programovacich jazycich, prosim rozeslete tuto zpravu dal.
Dekujeme
Nechtejte zaslat scenar, nebot ten je prave tim nejcenejsim, co v soucasne dobe mame. Ma totiz narozdil od jinych soucasnych her napad !!!
Milan
konverze byte > char
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 1.7.1998 09:40:27
a:=string(b)
----------
Od: sula milos <crkstrobe(zv)geocities.com>
Pre: delphi konference <delphi(zv)pinknet(tec)cz>
Predmet: konverze byte > char
D�tum: 1. j�l 1998 9:19
Prosim vas nevi nekdo jak jednoduse zkonvertovat array of byte do stringu?
PopUp menu z lajnou...
[*] Triblax (bilbo) <bilbo(zv)pobox.sk> - 1.7.1998 09:46:26
Caves...
Neviete niekto ako dostat do PopUpMenu /v Delphi 3.0/ oddelovaciu lajnu???
mne sa to zatial nepodarilo...
Juraj
Memory Manager
[*] V�t�zslav Gazda������u��n�?��? - 1.7.1998 10:02:21
>PS2: ... slunce sviti, kytky smrdej, ptaci rvou, zbijecky zbijej, mozky
>se zelenaji ..., nevite negdo jak se
> _VYHNOUT__VOJNE_ ?!?!?
> Konci mi odklad, a nechci se zabit, nebo si uriznout
>nohu/ruku/hlavu/atd...
Ozen se a nadelej si kupu deti.
Vita
Offtopic: PDF => HTML/TXT/DOC/HLP
[*] Triblax (bilbo) <bilbo(zv)pobox.sk> - 1.7.1998 10:15:52
Sorry za offtopic, ale neviete niekto ako by sa dal uskutocnit prevod podla
%subj% ???
diki
juraj
DOS Pascal a P2
[*] Triblax (bilbo) <bilbo(zv)pobox.sk> - 1.7.1998 10:17:22
Mohol by si mi ten program poslat???
diki
juraj
-----P�vodn� zpr�va-----
Od: Pavel <kopr(zv)applet(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 29. �ervna 1998 22:45
P�edm�t: Re: DOS Pascal a P2
>Existuje progr�mek k oprav� exe souboru - a funguje to. Dokonce pou��v�m
spakovan� exe soubory, kter� se v RAMce rozbal� a dokonce pou��vam OVR a
taky to funguje.
>Z�tra ti to po�lu
>Cau Pavel
>----------
>> Odes�latel: Ing. Lud�k Florian <bluerose(zv)pce(tec)cz>
>> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>> P�edm�t: DOS Pascal a P2
>> Datum: 29. �ervna 1998 13:53
>>
>> Cauec,
>>
>> pred nedavnem se bud tady nebo na konferenci o Win probiral problem
>> nefungovani DOS programu v Pascalu na P2 pro chybu v CRT (moc rychlej
CPU).
>>
>> Muze me nekdo odkazat na nejaky fix k tomuto problemu ?
>>
>> Dik.
>>
>> Bye Ludan
>>
>> ludan(zv)bluerose(tec)cz
>>
>
>
konverze byte > char
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.7.1998 10:37:25
>
>Prosim vas nevi nekdo jak jednoduse zkonvertovat array of byte do
stringu?
pokud ti jde o pretypovani - pak asi jedina mozna cesta je pres PChar
(pokud
neni v array znak 0), pokud jde opravdu o konverzi, pak by melo stacit:
SetLength(S,SizeOf(TArrayOfByte));
Move(ArrayOfByte[Low(TArrayOfByte)],S[1],SizeOf(TarrayOfByte));
Zdravi
D. Toman
Porovnavanie zvuku
[*] Jaros Jan <xjaros03(zv)stud.fee.vutbr(tec)cz> - 1.7.1998 10:46:51
Trochu jsem se rozpoznavanim reci zabyval, ale jedna se o dost slozitou
vec. Psal jsem to v C++. ( pokud mate zajem muzu dodat zdrojaky)
Je nutne navzorkovat jednotlive WAVy na mikrosegmenty, ty navzorkovat
Fourierovou transformaci a pomoci algoritmu DTW proves porovnani
jednotlivych vzorku.
detailnejsi popis mam na strance
www.stud.fee.vutbr(tec)cz/~xjaros03/
menu "projekty" volba "umela inteligence"
bohuzel mi zatim nefunguje cestina
> > Ing. J�n Kuch�r wrote:
> >
> >> Caute ! Moja otazka znie : da sa nejako inteligentne porovnava� dva
> >> WAV subory v Delphi. Ide mi konkretne o to, aby program zistil ci 2
> >> rozne subory ( nahovorene cez mikrofon ) obsahuju rovnaky text (
> >> zadanie vstupneho hesla, potrebujem kontrolovat obsah zpravy a
> >> identifikaciu hlasu - uzivatela
> >> ).
> >> Dik
> >>
> >> Katedra v�robn�ch inov�ci�
> >> SjF TU Košice
> >> Ing. J�n Kuch�r
> >> E-mail : kuchar(zv)tuke.sk
> >
>
software
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 1.7.1998 10:49:27
Ahoj,
Je to zaujimavy napad.
Aj ked zatial neviem pomoct v specifikovanych polozkach, mohol by som
ponuknut menezersku nadstavbu - rozne prehlady, statistiky, grafy, filtre,
vybery a hlavne skusenosti z vyvoja a pouzivania takehoto SW pre obchodnu
firmu pocas cca 3 rokov. (Takmer vsetky podklady sa cerpali z uctovnictva.
Program fungoval od zaciatku na SQL dotazoch a vyuzival opakujuce sa
komponenty pre rozne ucely).
Vsetky komponenty by boli na baze SQL, bolo by to modularne, vedelo by
to spolupracovat s akymkolvek zdrojom dat.
InterBase, alebo iny C/S nastroj nie je problem.
Komentar:
V danych moduloch (ekonomiky / uctovnictva) sa totiz automaticky
nachadzaju potrebne data, len ich naservirovat managerom vo forme im
prijatelnej - tak s tym mam skusenosti a tiez pripravene viacere vykonne
nastroje. Vyhodou je ze v tomto rozsahu to zatial ziadne bezne ucto nema
(odhliadnuc od SAPu a pod. produktov za x milionov). Robim tuto cinnost uz
dlho a potesilo by ma keby mohla byt (volitelne) zabudovana do nejakeho ucto
baliku.
PS:
Navyse mam v time ekonomku, ktora robila na kontrole (Spr_va finan_nej
kontroly MF SR) a potom postavila na nohy ekonomiku pomerne velkeho podniku
ako menezerka, mozno by sa dalo uvazovat aj o sirsej spolupraci.
Miro
-----P_vodn_ spr_va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 1. j_l 1998 08:48
Predmet: software
>
>Mozno mate podobny problem ako ja. Ked programator urobi aj najlepsi
program je to takmer nepredajne lebo zakaznik chce kompletne softwarove
baliky. Myslim tu hlavne na ekonomicky software. Tak sa zrodil napad.
Pomocou internetu zriadit firmu pre tvorbu ekonomickeho softweru. Kazdy
dobry programator moze sa stat clenom vyvojoveho teamu, ak poskytne nejaky
modul do softweroveho baliku. Samozrejme sposob odmenovania bude osobne
dohodnute a vyhodou tejto spoluprace je to, ze programator vo svojom volnom
case
>moze pracovat a tak mat vedlajsi prijem.
>Moduly ktore by boli potrebne su:
>
>Kasa
>Sklad (vitane su aj colne sklady)
>Podvojne uctovnioctvo (aj fakturacia hlavne pre hospodarske organizacie)
>Jednoduche uctovnictvo (aj fakturacia)
>Mzdy (uz su zabezpecen_ v INTERBASE)
>
>Riesenie tychto produktov musi byt zalozeny na SQL. Najlepsie INTERBASE.
>Prosim zaujemci hlasete sa na email adrese Tungli(zv)pvt.sk.
>
>TUNGLI Jan
>tungli(zv)pvt.sk
>konverze byte > char
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 1.7.1998 10:51:19
to sem zkousel ale hlasi to pri te konverzi chybu Out of Memory
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 1. �ervence 1998 10:05
P�edm�t: RE: konverze byte > char
>a:=string(b)
>
>----------
>Od: sula milos <crkstrobe(zv)geocities.com>
>Pre: delphi konference <delphi(zv)pinknet(tec)cz>
>Predmet: konverze byte > char
>D�tum: 1. j�l 1998 9:19
>
>Prosim vas nevi nekdo jak jednoduse zkonvertovat array of byte do stringu?
>
>Memory Manager
[*] TucekR(zv)p15.monet(tec)cz - 1.7.1998 10:55:00
O�enit se a m�t kupu d�t� mu od vojny nepom��e
TRT
ps: omlouv�m se v�em kdo si mysl� �e to do t�to konference nepat��.... ----------
Od: V�t�zslav Gazda
Komu: DELPHI Distribution List
P�edm�t: Re: Memory Manager
Datum: 1. �ervenec 1998 10:02
>PS2: ... slunce sviti, kytky smrdej, ptaci rvou, zbijecky zbijej, mozky
>se zelenaji ..., nevite negdo jak se
> _VYHNOUT__VOJNE_ ?!?!?
> Konci mi odklad, a nechci se zabit, nebo si uriznout
>nohu/ruku/hlavu/atd...
Ozen se a nadelej si kupu deti.
Vita
registarce konstant
[*] RNDr. Milan Vorisek <vorisek(zv)igtt(tec)cz> - 1.7.1998 11:59:44
Pri vytvareni komponenty se mi nedari registrovat konstanty tak,
aby se v Object Inspectoru zobrazovaly nazvy misto cisel.
Co je v nasledujicim kodu spatne nebo tam chybi ?
Diky !
M.Vorisek
unit Unit2;
{$F+}
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TPin=0..1;
TLabel1 = class(tlabel)
private
fPin:TPin;
published
property Pin:TPin read fPin write fPin;
end;
procedure Register;
function PinToIdent(Pin: Longint; var Ident: string): Boolean;
function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TLabel1]);
end;
function PinToIdent(Pin: Longint; var Ident: string): Boolean;
begin ident:='';
if Pin=0 then ident:='Pin0' ;
if Pin=1 then ident:='Pin1';
Result := Pin in [0,1];
end;
function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
begin Pin:=-1;
if ident='Pin0' then Pin:=0;
if ident='Pin1' then Pin:=1;
Result := Pin in [0,1];
end;
initialization
RegisterIntegerConsts(TypeInfo(TPin), IdentToPin, PinToIdent);
end.
Vojna ...
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 01.7.1998 12:28:47
Ozenit se a poridit si kupu deti ????
To snad radsi tu vojnu ( :-o )
Myslel jsem, jestli na to neni nejaka M$ Api fukce, napriklad:
* SetUserArmy('Stepan Cerny', Null); *
Bohuzel to ale asi nefunguje...
PS: Sorry vsem ktere to nezajima za takovy trapny Off .
PS2: Gdo chce, muze mi napsat na muj Emajl, nebo zalozit konferenci :-)
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Query - Paradox
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 1.7.1998 12:32:07
Dobry den,
predem se omlouvam jestli uz tady neco podobneho bylo, ale momentalne
nemam pristup na www, abych se podival do archivu konference a celkem mi
to specha.
Kdyz delam dotaz na paradoxovskou tabulku pomoci TQuery, tak mi
nepouziva index ( trva to stejne s indexem nebo bez ). Dotaz je
primitivni typu zobraz vsechny obce, ktere maji smerovaci cislo 111 11.
Pritom polozka PSC je indexovana.
SELECT DISTINCT Obec, PSC
FROM "Psc.db"
WHERE
(PSC = "111 11")
ORDER BY Obec
Potreboval bych vedet jak mu vnutit ten index nebo je chyba nekde jinde?
Je nekde ke stazeni popis SQL prikazu v cestine?
Diky P.R.Hledam PRACI v Delphi
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 1.7.1998 12:52:11
Panove,
respektuji, kdyz nekdo umisti do konference primarni avizo... Zbytek
korespondence uz ale vyrizujte na svych vlastnich mailboxech...
Diky...
Tomas Burger
On Tuesday, June 30, 1998 10:11 AM, wrote:
> Zaj�m� m� jak� projekty jste ji� vytvo�il a jak ji� um�te s Delphi
> pracovat.
>
>
> P�eji p��jemn� den!
>
> Ji�� Jurka
> Brain and Heart
>
> ----------
> Od:
> Odesl�no: 29. �ervna 1998 11:28
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Hledam PRACI v Delphi
>
>
>
> Jsem student 4.rocniku FEI VUT v Brne a hledam praci v okoli BRNA
> na plny prac. uvazek. ( nejlepe v Delphi )
>
> Kontakt:
>
> Jan Jaros
> Kamenna 30
> BRNO 639 00
>
> E-mail: xjaros03(zv)stud.fee.vutbr(tec)cz
>
> ps: Urceno pro Libora Kuceru
> posilal jsem vam postu, ale vratila se mi zpet
> pokud tedy ctete tuto zpravu poslete mi prosim vice informaci
> dekuji Jan Jaros
>
>
>
>
>
> BDE install
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 1.7.1998 12:53:25
> nevite nekdo jak rucne nainstalovat BDE ??
> registry, etc.
> nebo jestli nekdo nemate vlastni instalacni program ??
Delal jsem si instalacni program pod D1.
Tam staci do WIN.INI zapsat toto :
[IDAPI]
DLLPATH=cesta_k_dll
[Borland Language Drivers]
LDPath=cesta_k_jazykovym_ovladacum
V D2/3 to bude asi trochu slozitejsi. Tam jsem to nezkousel.
Vojtech Semecky
Klavesa
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 1.7.1998 12:53:26
> > Nazdar,
> >
> > potreboval by som poradit, ci je mozne tesovat stlacenie klavesnice z ineho programu. Ak ano, ako je to mozne otestovat.
> >
> No, ja toho tedy moc nevim, ale tipnul bych si, ze se to dela pres
> filtracni Hook fce windows.
> Myslim, ze jich je nekolik typu (filtrovani jen nekterych zprav,
> treba mysi az po kompletni sledovani poletovani zprav v systemu).
> Dale si vzpominam (delal jsem to naposled ve W31), ze takova fce musi
> byt v DLL, musi mit spravne parametry a directivu CALLBACK. Potud ma
> pamet. (Ty posledni dva poznatky uz treba neplati, mozna ani ty
> predesle => tedy mnoho zdaru !)
Je to presne tak. Kdysi jsem delal program, ktery udelal "neco" pri stisku
klavesy ScrollLock, nezavisle na prave aktivnim programu.
Ta filtracni fce a fce, ktera ji nainstaluje/odinstaluje musi byt v samostatne
DLL knihovne, jejiz zdrojak u muze vypadat napr. takto (je to napsane jeste
ve starem BP 7.0 for Win, ale po mensich upravach by to melo chodit) :
library NejakeJmeno;
{$C FIXED PERMANENT PRELOAD}
uses WinTypes,WinProcs;
const
StaraFce:TFarProc = nil;
wm_prohod = 101;
vk_NumLock = 145;
var DownUp :boolean;
okno :hwnd;
function KeyBoardFilter(Code:Integer;WParam:Word;LParam:LongInt):LongInt;EXPORT;
var Default:Boolean;
Result:LongInt;
begin
Default:= False;
Result := 0;
IF (WParam = vk_NumLock) and (DownUp=true) then sendmessage(okno,wm_prohod,0,0);
IF (Code<0)OR((Default=true) and (StaraFce<>nil)) then Result:=DefHookProc(Code,WParam,LParam,(zv)StaraFce);
KeyBoardFilter:=Result;
DownUp:=not(DownUp);
end;
procedure InstallFilter(Install:Boolean;Window:HWnd);EXPORT;
begin
DownUp:=false;
okno:=window;
IF Install then
begin
StaraFce:=SetWindowsHook(wh_KeyBoard,(zv)KeyBoardFilter);
okno:=window;
end
else begin
UnHookWindowsHook(wh_KeyBoard, (zv)KeyBoardFilter);
StaraFce:=nil;
end;
end;
exports InstallFilter;
end.Casio
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 1.7.1998 13:02:32
Ten software, co mam ja, pouziva vlastni kabel s nejakou elektronikou -
bojim se, ze to cele bude know-how dodavatele.
Mam pocit, ze se tu vedla debata, jak programovat primo Casia (aspon ja
jsem ji jednou vyvolal) - a skoncila fiaskem...
Tomas
On Friday, June 26, 1998 11:19 PM, Pavel Drtil
[SMTP:drtil(zv)norek.list.skm.vutbr(tec)cz] wrote:
>
> Potreboval bych nejake komponenty pro komunikaci
> diare Casio s PC.
> Uz to tu bylo, ale na archivu konference jsem
> to nejak nenasel.
>
> Diky za kazdy odkaz, soubor, informaci....
>
> Pavel
>
> ----------------------------------------
> Pavel Drtil - mailto:xdrtil00(zv)stud.fee.vutbr(tec)cz
> talk drtil(zv)drtil.list.skm.vutbr(tec)cz
Query - Paradox
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 1.7.1998 13:22:28
Rekl bych, ze z logiky veci by mela byt indexovana rovnez polozka Obec,
podle ktere se dotaz tridi.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Riedel Petr
> Odesl�no: 1. �ervence 1998 12:32
> Komu: Konference Delphi (el. adresa)
> P�edm�t: Query - Paradox
>
> Dobry den,
>
> predem se omlouvam jestli uz tady neco podobneho bylo, ale
> momentalne
> nemam pristup na www, abych se podival do archivu konference a
> celkem mi
> to specha.
> Kdyz delam dotaz na paradoxovskou tabulku pomoci TQuery, tak mi
> nepouziva index ( trva to stejne s indexem nebo bez ). Dotaz je
> primitivni typu zobraz vsechny obce, ktere maji smerovaci cislo 111
> 11.
> Pritom polozka PSC je indexovana.
>
> SELECT DISTINCT Obec, PSC
> FROM "Psc.db"
> WHERE
> (PSC = "111 11")
> ORDER BY Obec
>
> Potreboval bych vedet jak mu vnutit ten index nebo je chyba nekde
> jinde?
> Je nekde ke stazeni popis SQL prikazu v cestine?
>
> Diky P.R.Windows mwnu
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 1.7.1998 13:26:56
Dekuji vsem za dotuknuti.
(Dokonce jsem si rozvinul i to systemove menu na minimalizovanem okne v
taskbaru - Je to stejny postup,
jen jako Handle jsem dal Application.Handle a obsluhuji to v
Application.OnMessage)
Diky!
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> (........ Co ovsem neumim, je jak zmenit nabidku pro kliknuti pravym
> tlacitkem na task baru (natoz to obslouzit) *).
>MPEG
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 1.7.1998 13:43:57
Zdravim,
potreboval bych v aplikaci Delphi prehrat video ve formatu MPEG. Na DSP
ani na Torry jsem nic nenasel. Nemate nekdo tip na komponentu? S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)email(tec)cz Vojna ...
[*] MotlicekP(zv)TESCOSW.CZ - 1.7.1998 13:48:33
A co takhle:
TOmasCerny=class(TObject)
private
procedure GET_ARMY_REQUEST(Message : TMessage); message
AM_JEN_SI_TO_POJD_UZIT;
public
end;
procedure TOmasCerny.GET_ARMY_REQUEST(Message : TMessage);
begin
case GetMojiOdvahu of
velmi_vysoka : Self.HaHaHa;
stredni : try
while true do begin;
if
Self.GetPodplatitelnyDoktor.Podplat = true
then begin
Self.HaHaHa;
exit;
end
else if not Self.Muzujeste then
exit;
end
except
on Obvineni do Self.Zatloukej;
end;
mala : if Self.MakeFamily
then MessageBox(nil, 'Nazdar za pet
mesicu', 'Pozdrav',mb_ok+mb_iconquestion)
else MessageBox(nil, 'Nazdar za dvanact
mesicu', 'Pozdrav',mb_ok+mb_iconquestion);
velmi_mala : MessageBox(nil, 'Nazdar za dvanact mesicu',
'Pozdrav',mb_ok+mb_iconquestion)
end;
Ovsem jestli chces tak ti soukromne poradim, jak si zaridit docela fajn
mistecko ve vojenskem prostredi.
Motlicek Petr
MotlicekP(zv)tescosw(tec)cz
> -----P�vodn� zpr�va-----
> Od: Stepan Cerny [SMTP:chaosz(zv)geocities.com]
> Odesl�no: 1. �ervence 1998 12:29
> Komu: DELPHI Distribution List
> P�edm�t: Re: Vojna ...
>
> Ozenit se a poridit si kupu deti ????
> To snad radsi tu vojnu ( :-o )
>
> Myslel jsem, jestli na to neni nejaka M$ Api fukce, napriklad:
> * SetUserArmy('Stepan Cerny', Null); *
> Bohuzel to ale asi nefunguje...
>
> PS: Sorry vsem ktere to nezajima za takovy trapny Off .
> PS2: Gdo chce, muze mi napsat na muj Emajl, nebo zalozit konferenci
> :-)
> --
> Stepan "Chaosz" Cerny
> chaosz(zv)geocities.com
> registarce konstant
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.7.1998 13:51:41
RNDr. Milan Vorisek wrote:
A coz treba takto?
TPin=(Pin0,Pin1);
...
if Pin=Pin0 then ...
> Pri vytvareni komponenty se mi nedari registrovat konstanty tak, aby
> se v Object Inspectoru zobrazovaly nazvy misto cisel. Co je v
> nasledujicim kodu spatne nebo tam chybi ? Diky !
> M.Vorisek
>
> unit Unit2;
> {$F+}
> interface
>
> uses
> SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
> Controls, Forms, Dialogs, StdCtrls;
>
> type
> TPin=0..1;
> TLabel1 = class(tlabel)
> private
> fPin:TPin;
> published
> property Pin:TPin read fPin write fPin;
> end;
>
> procedure Register;
> function PinToIdent(Pin: Longint; var Ident: string): Boolean;
> function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
>
> implementation
>
> procedure Register;
> begin
> RegisterComponents('Samples', [TLabel1]);
> end;
>
> function PinToIdent(Pin: Longint; var Ident: string): Boolean;
> begin ident:='';
> if Pin=0 then ident:='Pin0' ;
> if Pin=1 then ident:='Pin1';
> Result := Pin in [0,1];
> end;
>
> function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
> begin Pin:=-1;
> if ident='Pin0' then Pin:=0;
> if ident='Pin1' then Pin:=1;
> Result := Pin in [0,1];
> end;
>
> initialization
> RegisterIntegerConsts(TypeInfo(TPin), IdentToPin, PinToIdent);
> end.
>
>
>
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
konverze byte > char
[*] Martin Koran <komar(zv)komar(tec)cz> - 1.7.1998 14:15:20
Ahoj,
co treba
var
A: array [1..21] of Byte;
B: array [0..20] of Char absolute A;
S: String;
..
begin
....
S := B;
...
====================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
Czech Republic
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
mail: komar(zv)komar(tec)cz
-----Original Message-----
From: sula milos <crkstrobe(zv)geocities.com>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: Wednesday, July 01, 1998 11:47 AM
Subject: Re: konverze byte > char
>to sem zkousel ale hlasi to pri te konverzi chybu Out of Memory
>
>-----P�vodn� zpr�va-----
>Od: TUNGLI Jan <tungli(zv)pvt.sk>
>Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Datum: 1. �ervence 1998 10:05
>P�edm�t: RE: konverze byte > char
>
>
>>a:=string(b)
>>
>>----------
>>Od: sula milos <crkstrobe(zv)geocities.com>
>>Pre: delphi konference <delphi(zv)pinknet(tec)cz>
>>Predmet: konverze byte > char
>>D�tum: 1. j�l 1998 9:19
>>
>>Prosim vas nevi nekdo jak jednoduse zkonvertovat array of byte do stringu?
>>
>>
>
>konverze byte > char
[*] Jochman Jan <JJochman(zv)cpoj(tec)cz> - 1.7.1998 14:44:18
Asi tak:
function array2string( Ar : array of byte ) : string;
var
S : string;
begin
SetLength( S, SizeOf( Ar ) );
move( Ar, S[ 1 ], SizeOf( Ar ));
result := S;
end;
> -----Original Message-----
> From: sula milos [SMTP:crkstrobe(zv)geocities.com]
> Sent: Wednesday, July 01, 1998 9:20 AM
> To: delphi konference
> Subject: konverze byte > char
>
> Prosim vas nevi nekdo jak jednoduse zkonvertovat array of byte do
> stringu?
> �AntiAliasing
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 1.7.1998 14:47:17
Ahoj vsichni
nevite nekdo jak udelat rychly antialiasing. Nejaky priklad, hlavne aby to
bylo
silene rychle.
Potrebuju nakreslit kolecka a cary do obrazku a vypada to jako pest na oko.
Martin Nedopil
nedopil(zv)geocities.com
registarce konstant
[*] stingp1.eti(zv)mail.cez(tec)cz - 1.7.1998 14:50:52
Vetsinou se v techto pripadech pouzivaji enumerated typy,
tedy misto TPin=0..1 to bude TPin = (Pin0, Pin1), a pak muzete
s klidem vymazat i funkce Ident2Pin, Pin2Ident & sekci initialize;
Pavel Stingl
stingp1.eti(zv)mail.cez(tec)cz
"RNDr. Milan Vorisek" <vorisek(zv)igtt(tec)cz> na 01.07.98 10:59:44
Odpov
�zte pros
�m - DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Komu: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
Kopie: (Na v
dom
�: Stingl Pavel/2310/ETI/CEZ)
P
edm
�t: registarce konstant
Pri vytvareni komponenty se mi nedari registrovat konstanty tak,
aby se v Object Inspectoru zobrazovaly nazvy misto cisel.
Co je v nasledujicim kodu spatne nebo tam chybi ?
Diky !
M.Vorisek
unit Unit2;
{$F+}
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TPin=0..1;
TLabel1 = class(tlabel)
private
fPin:TPin;
published
property Pin:TPin read fPin write fPin;
end;
procedure Register;
function PinToIdent(Pin: Longint; var Ident: string): Boolean;
function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TLabel1]);
end;
function PinToIdent(Pin: Longint; var Ident: string): Boolean;
begin ident:='';
if Pin=0 then ident:='Pin0' ;
if Pin=1 then ident:='Pin1';
Result := Pin in [0,1];
end;
function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
begin Pin:=-1;
if ident='Pin0' then Pin:=0;
if ident='Pin1' then Pin:=1;
Result := Pin in [0,1];
end;
initialization
RegisterIntegerConsts(TypeInfo(TPin), IdentToPin, PinToIdent);
end.Remote control
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 1.7.1998 16:15:10
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nema nahodou nekdo z vas nejaky softwarovy dekoder napsany v delphi pro dekodovani signalu z infracerveneho dalkoveho ovladani pres ser.port?Titulkovy pruh
[*] Marcel Telka <marcel(zv)vadium.sk> - 1.7.1998 16:36:13
Alebo si nainstaluj Windows 98...
M.T.
> Hola lidi!
>
> Nevite nekdo, jak udelat (pokud je to mozne) vicebarevny titulkovy pruh u
> nejake aplikace.
>
> Diky za vsechny navrhy.
>
Zdravim clovece !
Tak ty bys taky rad vypadal jako Microshit ?
Dobra, dame ti prilezitost !
Poslu nejakou komponentu co jsem nekde splasil (snad FREE) na
ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference/D3/Other, takze se tes !
Doufam, ze ti poslouzi.
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
PopUp menu z lajnou...
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.7.1998 17:05:13
-----Original Message-----
From: Triblax (bilbo) <bilbo(zv)pobox.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 1. �ervence 1998 17:03
Subject: PopUp menu z lajnou...>Caves...
>Neviete niekto ako dostat do PopUpMenu /v Delphi 3.0/ oddelovaciu
lajnu???
>mne sa to zatial nepodarilo...
>Juraj
jde to a myslim, ze tak , ze vytvoris obyc menu line a jako text v ni
napises pomlcku....
PopUp menu z lajnou...
[*] svatos(zv)af(tec)czu(tec)cz - 1.7.1998 17:12:32 met
> Caves...
> Neviete niekto ako dostat do PopUpMenu /v Delphi 3.0/ oddelovaciu lajnu???
> mne sa to zatial nepodarilo...
> Juraj
>
Ugh, to se zapotime, to je velmi slozita problematika ....
1) Pridat novu polozku menu
2) Do "Caption" dat podtrzitko ("-")
3) A je to !
svatos(zv) af(tec)czu(tec)cz
Stretch ikon
[*] stingp1.eti(zv)mail.cez(tec)cz - 1.7.1998 17:14:56
Hi,
snad se mi podari podruhe aspon trochu rozvirit hladinu,
kdyz se to napoprve nepodarilo (DeviceIOControl) :)
Problem : Je treba nacist systemove ikony - to je pohoda,
pruser nastane v okamziku, kdy je chci zmensit a nacpat
do TreeView, nebo do ListView. Zkousel jsem snad uz vsechno,
co mne napadlo - prevod na bitmapu a StretchBlt(), kresleni do
bitmapy pres DrawIconEx(), maskovani bitmap, pouziti stretch funkci Canvasu
a kdesi
cosi, ale vysledky jsou zalostne, obzvlaste u hi-color ikon. Proste kvality
ikon v pitomym
WinNT Exploreru nedosahnu, kdybych se na hlavu postavil.
Jestli nekdo vite o fci API, mate knihovnu, VCL nebo vite, jak zaonacit
zmenseni
ikony z 32x32 na 16x16 bodu bez dramaticke ztraty kvality,
ozvete se plyyyyyyyyz.
Cau
Pavel Stingl
stingp1.eti(zv)mail.cez(tec)cz
PopUp menu z lajnou...
[*] Ing. Lud�k Florian <bluerose(zv)pce(tec)cz> - 1.7.1998 17:19:06
V Caption napis minus "-". Tot vse...
>Neviete niekto ako dostat do PopUpMenu /v Delphi 3.0/ oddelovaciu lajnu???
>mne sa to zatial nepodarilo...
Bye Ludan
ludan(zv)bluerose(tec)cz
PopUp menu z lajnou...
[*] Vesna <veselyt(zv)sagas(tec)cz> - 1.7.1998 17:35:41
Do caption napis -, stejne jako u MainMenu
Vesna, SagaS
veselyt(zv)sagas(tec)cz
-----P�vodn� zpr�va-----
Od: Triblax (bilbo) <bilbo(zv)pobox.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 1. �ervence 1998 17:11
P�edm�t: PopUp menu z lajnou...>Caves...
>Neviete niekto ako dostat do PopUpMenu /v Delphi 3.0/ oddelovaciu lajnu???
>mne sa to zatial nepodarilo...
>Juraj
>
>PopUp menu z lajnou...
[*] Ing. Juraj Pola�ok <xcom(zv)kosice.telecom.sk> - 1.7.1998 17:40:12
Do Caption property MenuItem zadaj znak -
----------
> Odes�latel: Triblax (bilbo) <bilbo(zv)pobox.sk>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: PopUp menu z lajnou...
> Datum: 1. j�l 1998 9:46
>
> Caves...
> Neviete niekto ako dostat do PopUpMenu /v Delphi 3.0/ oddelovaciu lajnu???
> mne sa to zatial nepodarilo...
> Juraj
>
> Jeste jednou transakce
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 01.7.1998 19:16:29
Ahoj Delphici,
pred nedavnem jsem se tu dotazoval na databazovy stroj, ktery by umel
transakcni pristup. Odpoved byla takova slabsi, takze:
Existuje nejaka jina databaze (krome Pervasive.SQL), ktera umi
transakcni pristup?
Ponekud to priblizim:
Predstavte si, ze mate obchod. V tom je nekolik pokladen - pocitacu.
Mate sortiment xxx druhu zbozi.
A ted prijde zakaznik, vybere si, vy mu nactete carovy kod a behem
nekolika milisekund se na obrazovku/ucet pripise nova polozka. Tohle
bude jen velice tezko realizovatelne pres SQL, protoze SQL obecne dlouho
trva. A predstava toho, ze napr. Delvita, nebo Kaufhalle (zdravim sever)
bude mit v kazdem kramu instalovanou IBM RS/6000 (ktera by to mozna tak
rychle vytahnout zvladla) je proste komicka.
Na tohle existuje nejaka vychytavka (rika se ji transakcni pristup) a ja
bych na ni rad prisel. Poradi mi nekdo? Doufam :-))
Mej se krasne,
Peter Rus ml.
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz
MPEG
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 1.7.1998 19:39:13
> Zdravim,
>
> potrebuju v Delphi 1 prehrat soubor ve formatu MPEG. Nemate nekdo
> nejakou komponentu?
> Diky.
Vytvorit vlastni dekoder MPEGu asi nebude tak jednoduche.
Pokud Ti jde ciste o prehrani videosekvence, tak je
nejlepsi, mit nainstalovany nejaky MCI ovladac pro MPEGy.
Pak staci obycejny TMediaPlayer nebo par prikazu z MMSystemu.
Vojtech Semecky
Problem ?!
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 1.7.1998 19:46:44
> Zdravim !
>
> Nejlepsi asi bude lecba SOKEM !
> Ja bych zkusil postup:
>
> 1) Lo-level format disku
!!!!!!!!!!!!!! tady POZOR !!!!!!!!!!!!!!! jelikoz moderni disky
nemaji rady low-level formatovani, ba dokonce je vetsinou pricinou
(nebo alespon zaminkou)
ztraty zaruky v pripade provedeni :-(((
> 2) instalace DOS 6.22
> 3) instalace Win95 (ble, ble ble)
> 4) instalace WinNT (az nakonec, protoze NT si nacpou do MBR vlastni
> 5) LINUX
>
> V poradi 4) a 5) si nejsem jist, nicmene se mohu zeptat kolegy, ten
> tuto hruznou (nic osobniho) spatlaninu taky provozuje.
>
> Preji prijemne chvile stravene formatovanim ...
>
> Hynek Svatos
> svatos(zv)af(tec)czu(tec)cz
>
> > Zdravim vsechny!
> >
> > Mam jednu prosbu (i jini zde resi takove problemy :-) ).
> > Provozoval jsem MS DOS6.22 & Win3.11 & LINUX na jednom disku
> > a vse bylo snesitelne. Pak jsem vse preinstaloval na konfiguraci
> > MS DOS6.22 & Win95 & WinNT & Linux (DOS & Win95 partition 1,
> > WinNT & Linux v Extended).
> >
> > WinNT je na FAT, nikoli NTFS.
> > Pravdepod. nekdy od te doby me obcas WinNT zkousely pri startu
> > pomoci CHKDSK vymazat vetsinu adresaru, pry jsou znicene.
> > Pod Win95 mi SCANDISK obcas hlasil poskozenou zalozni FAT,
> > po oprave se to zase rozbehlo OK.
> > Po nejake dobe jsem zjistil, ze WinNT mi hlasi Error in partition 1
> > table. Nacetl jsem ji pod Linuxem fdiskem a ulozil a bylo to OK.
> > Pozdeji mi pri bootovani disk dlouho "hrkal" nez se rozbehlo bootovani.
> > Vse jsem zalohoval, fdiskoval pri WinNT instalaci, vse jsem zformatoval
> > pod WinNT, pak DOSem6.22 ale porad to uvodni "hrkani" = prodleni pred
> > bootovanim zustava. Navic ALWILL mi pri zaloze partition table hlasi
> > nestandardni bootsector a pak v tom souboru je porad slovo NTLOADER
> > i kdyz jsem delal "fdisk /mbr", vytvarel pak primarni partition
> > pod DOSem a pod.
> >
> > Co s tim mam delat??
> > Mne uz nebavi mit vse schovane na disketach a porad to obnovovat :-((((
> >
> > Jak se toho, co mi parazituje nekde v partition table zbavit??
> >
> > Prosim poradte, nez zesilim.
> >
> > --
> > PS:Za vsechno muze de BILL
> > Petr Borak
> > xborak(zv)fi.muni(tec)cz
> >
> >
>
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: zds(zv)pce.fairnet(tec)cz (Win1250/ISO-8859-2)
http://www.angelfire.com/biz/zds
*-----------------------------------------------*Sdileni souboru v lok.siti mezi DOS a Win95 ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.7.1998 21:06:42
Ahoj,
Mam nasledujici problem, potreboval bych sdilet nejake soubory ktere
jsou umisteny na pocitaci s DOSem ve Win95. Moc (temer vubec) se v sitich
nevyznam a ani k nim nemam zatim pristup, takze treba je to jednoduche.
V lokalni siti by melo byt zapojeno asi 10 pocitacu s Win95 (protokol
IPX/SPX ci NetBEUI). Dale mam dalsi jedno PC s DOSem kde bezi 24 hodin
denne program ktery sbira nejaka data z RS232 a uklada na disk, presneji,
pro kazdy den zalozi novy soubor a soubor ktery se uklada ten den je
oteveren pro cteni/zapis. A ja bych potreboval mit moznost sdilet pouze pro
cteni vsechny soubory (vcetne toho oterveneho) v siti. Neni mi vsak jasnych
nekolik veci:
1. Vlastne vubec nevim jak pod DOSem pripojit sitovou kartu a hlavne
jak zaridit nejake sitove protokoly. Mam akorat DOS 6.22
2. Jak je to v DOSu se sdilenim souboru, pokud si vzpominam tak tam
snad standartne ani nic takoveho neni. Lze to vubec nejak udelat
bez upravy existujici aplikace ?
Pokud to nejde vyresit bez zasahu do DOSove aplikace, jak velky
by tento zasah musel byt ?
3. Pokud se mi podari vyresit sdileni bude mozne pouzit API funkce
FindFirstChangeNotification na sledovani zmen v prave otevrenem
souboru na DOSovem pocitaci ? Nebo to alespon vyresit jinak ?
Data se ukladaji max. rychlosti 9,600 takze to neni nijak casove
kriticke. Jde mi jen o to aby pak slo po nejakych blocich prenaset
data do ostatnich pocitacu v siti.
Samozrejme idelani reseni by bylo pocitac s DOSem vyhodit a dat misto
neho neco normalniho, ale v tomto pripade to bude bohuzel nutne resit
s tim co jiz je.
Dekuji za jakekoliv navrhy a rady
Petr Vones, amatersky programator
Stretch ikon
[*] Radek Pospisil <suspi(zv)sh.cvut(tec)cz> - 1.7.1998 21:27:21
Podobny problem jsem resil a taktez jsem uspokojiveho vysledku nedosahl.
Nakonec se ukazalo nejlepsi pouzit ikony 16x16.
Vetsina ikon je stejne jak 32x32 tak i v tech 16x16.
bye
R.Pospisil
> -----Original Message-----
> From: stingp1.eti(zv)mail.cez(tec)cz [mailto:stingp1.eti(zv)mail.cez(tec)cz]
> Sent: Wednesday, July 01, 1998 6:15 PM
> To: Delphi(zv)pinknet(tec)cz
> Subject: Stretch ikon
>
>
> Hi,
>
> snad se mi podari podruhe aspon trochu rozvirit hladinu,
> kdyz se to napoprve nepodarilo (DeviceIOControl) :)
>
> Problem : Je treba nacist systemove ikony - to je pohoda,
> pruser nastane v okamziku, kdy je chci zmensit a nacpat
> do TreeView, nebo do ListView. Zkousel jsem snad uz vsechno,
> co mne napadlo - prevod na bitmapu a StretchBlt(), kresleni do
> bitmapy pres DrawIconEx(), maskovani bitmap, pouziti stretch
> funkci Canvasu
> a kdesi
> cosi, ale vysledky jsou zalostne, obzvlaste u hi-color ikon.
> Proste kvality
> ikon v pitomym
> WinNT Exploreru nedosahnu, kdybych se na hlavu postavil.
> Jestli nekdo vite o fci API, mate knihovnu, VCL nebo vite, jak zaonacit
> zmenseni
> ikony z 32x32 na 16x16 bodu bez dramaticke ztraty kvality,
> ozvete se plyyyyyyyyz.
>
> Cau
>
> Pavel Stingl
> stingp1.eti(zv)mail.cez(tec)cz
>
> Jeste jednou transakce
[*] �ke��k Jaroslav�������6�����̿ - 1.7.1998 21:51:04
Tvrzeni, ze SQL obecne dlouho trva je opravdu velmi obecne.
V popisovanem pripade, by slo zreme skutecne o zlomky
sec., protoze pujde vzdy pouze o kontrolu existence zaznamu
a v takovych pripadech je princip C/S s pouzitim SQL dotazu
v sitovem provozu nedostizne rychlejsi.
Jestlize nebude mit kazdy zakaznik IBM RS/6000 coby server,
pak tim mene ho bude mit na kazde stanici. Server muze byt vsak v kazdem
pripade o neco rychlejsi nez kterakoliv stanice. Uz z hlediska vetsi pameti
nebo rychlejsich disku. O zalohovani UPS a pod. ani nemluve.
Podobne pripady resime pristupem client-server (tedy to cemu rikas SQL)
s uspechem. Jine reseni na vetsi siti si ani nedovedu predstavit.
A co se rychlosti tyce - staci uvest, ze to chodi obstojne i pres Internet.
Dal neni co dodavat, ze?
Vsechny databazove servery jsou samozrejme vybaveny bezpecnym
systemem transakci.
---------
Na tohle existuje nejaka vychytavka (rika se ji transakcni pristup) a ja
>bych na ni rad prisel. Poradi mi nekdo? Doufam :-))
---------
Ta vychytavka "transakcni pristup" je trochu o necem jinem.
Muzeme o tom diskutovat, ale musis blize orcit o co vlastne jde.
Jaro.
-----P�vodn� zpr�va-----
Od: Peter Rus <peterrus(zv)intesys(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Datum: 1. �ervence 1998 20:27
P�edm�t: Jeste jednou transakce
>Ahoj Delphici,
>
>pred nedavnem jsem se tu dotazoval na databazovy stroj, ktery by umel
>transakcni pristup. Odpoved byla takova slabsi, takze:
>
>Existuje nejaka jina databaze (krome Pervasive.SQL), ktera umi
>transakcni pristup?
>
>Ponekud to priblizim:
>
>Predstavte si, ze mate obchod. V tom je nekolik pokladen - pocitacu.
>Mate sortiment xxx druhu zbozi.
>
>A ted prijde zakaznik, vybere si, vy mu nactete carovy kod a behem
>nekolika milisekund se na obrazovku/ucet pripise nova polozka. Tohle
>bude jen velice tezko realizovatelne pres SQL, protoze SQL obecne dlouho
>trva. A predstava toho, ze napr. Delvita, nebo Kaufhalle (zdravim sever)
>bude mit v kazdem kramu instalovanou IBM RS/6000 (ktera by to mozna tak
>rychle vytahnout zvladla) je proste komicka.
>Na tohle existuje nejaka vychytavka (rika se ji transakcni pristup) a ja
>bych na ni rad prisel. Poradi mi nekdo? Doufam :-))
>
>Mej se krasne,
>
>Peter Rus ml.
>mailto:peterrus(zv)intesys(tec)cz
>http://www.intesys(tec)cz
Senzitivni hinty
[*] svatos(zv)af(tec)czu(tec)cz - 1.7.1998 22:20:11 met
Ahoj !
Mam nasledujici problem:
Potrebuju, kdyz najedu na ruzny sloupec v StringGridu, aby se mi
zobrazila jina bublinka s hintem.
Problem je v tom, ze ruzne texty hintu sice dokazu spravne a vcas
nastavit (OnMouseMove), ale bublinka se zobrazi pouze pri prvnim
vstupu mysi do oblasti gridu.
Kdyz mys stahnu z gridu a pak ji zase presunu na grid, je vse OK,
bublinka se obevi, ale potom jiz se nezobrazi.
Co stim ? Nevite nekdo ?
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Jeste jednou transakce
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.7.1998 01:19:34
> pred nedavnem jsem se tu dotazoval na databazovy stroj, ktery by umel
> transakcni pristup. Odpoved byla takova slabsi, takze:
>
> Existuje nejaka jina databaze (krome Pervasive.SQL), ktera umi
> transakcni pristup?
>
> Ponekud to priblizim:
>
> Predstavte si, ze mate obchod. V tom je nekolik pokladen - pocitacu.
> Mate sortiment xxx druhu zbozi.
>
> A ted prijde zakaznik, vybere si, vy mu nactete carovy kod a behem
> nekolika milisekund se na obrazovku/ucet pripise nova polozka. Tohle
> bude jen velice tezko realizovatelne pres SQL, protoze SQL obecne dlouho
> trva. A predstava toho, ze napr. Delvita, nebo Kaufhalle (zdravim sever)
> bude mit v kazdem kramu instalovanou IBM RS/6000 (ktera by to mozna tak
> rychle vytahnout zvladla) je proste komicka.
> Na tohle existuje nejaka vychytavka (rika se ji transakcni pristup) a ja
> bych na ni rad prisel. Poradi mi nekdo? Doufam :-))
Mas v tom nejaky gulas, pravdepodobne nemas predstavu o tom, co je to
transakce a k cemu vubec je... Transakce ti nepomuze v tom, abys mel
rychlejsi pristup k datum. Ale pouziva se spise ke zmenam, kdy je nutno
zachovat jistou konzistenci v ramci nejakeho poctu uprav, tzv. transakce.
Zacnes transakci, udelas zmeny a ukoncis transakci. Pak mas jistotu, ze
se ti bud cela transakce (tedy blok uprav) povede a nebo nepovede,
muzes to i vratit zpet, no a nemuze dojit k tomu, ze se provede jen
polovina a tedy mas zcela spatna data.
Na obchody, ktere uvadis existuje velmi jednoduchy zpusob, jak to
udelat, totiz natahnout databazi zbozi celou do poklady a pak to
bude pracovat rychle.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Sdileni souboru v lok.siti mezi DOS a Win95 ?
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 2.7.1998 07:25:54
K bodu 1:
To ti nekdo poradi urcite vic, ja mohu jen doporucit 3Com karty. Jednoducha
instalace a
dobra kvalita.
K bodu 2:
Bojim se, ze zasah do Dos aplikace je asi nutny. Spociva v rezidentni
doinstalaci programu
Share a pak volani interuptu (viz Ralph Brown) 21h Ax=5C00-1h. Tam je
popsano jak se Share
pracovat. V podstate se od te doby nic nezmenilo a LockFile z Win32 ma ty
same parametry.
Pri otvirani souboru pak pouzit Dos fci ah=3dh al=OpenMode, kde OpenMode ma
v bitech
nastaveny priznaky sdileni (cely TechHelp mohu zaslat).
K bodu 3:
Tak to nevim, rekl bych, ze to metodou pokus omyl rychle zjistis.
Tady bych to zkusil delat jinak. Otevri si soubor Tmp.Tmp a do nej
zapisuj, az uz toho bude "tak akorat" tak jej prejmenuj na novy.dat
(nejrychlejsi).
Vytvor si novy Tmp.Tmp a pokracuj vesele dal. No a ostatni programy,
pokud ve smycce zjisti pritomnost novy.dat okamzite se ho bude snazit
prejmenovat na data.tmp. Ten pak jej pak rozhodi do databazi.
Vysledek by mne docela zajimal. Taky za sebou porad vlecu nejakou dosovskou
aplikaci a nevim jak se ji zbavit. Doufam, ze se mi ji nekdy podari nachytat
jak
ztraci data. Zhusta to ovsem byva naopak a db tabulky litaji kominem spise
mi.
Martin Nedopil
>1. Vlastne vubec nevim jak pod DOSem pripojit sitovou kartu a hlavne
> jak zaridit nejake sitove protokoly. Mam akorat DOS 6.22
>2. Jak je to v DOSu se sdilenim souboru, pokud si vzpominam tak tam
> snad standartne ani nic takoveho neni. Lze to vubec nejak udelat
> bez upravy existujici aplikace ?
> Pokud to nejde vyresit bez zasahu do DOSove aplikace, jak velky
> by tento zasah musel byt ?
>3. Pokud se mi podari vyresit sdileni bude mozne pouzit API funkce
> FindFirstChangeNotification na sledovani zmen v prave otevrenem
> souboru na DOSovem pocitaci ? Nebo to alespon vyresit jinak ?
> Data se ukladaji max. rychlosti 9,600 takze to neni nijak casove
> kriticke. Jde mi jen o to aby pak slo po nejakych blocich prenaset
> data do ostatnich pocitacu v siti.
>
>Samozrejme idelani reseni by bylo pocitac s DOSem vyhodit a dat misto
>neho neco normalniho, ale v tomto pripade to bude bohuzel nutne resit
>s tim co jiz je.
>
>Dekuji za jakekoliv navrhy a rady
>
> Petr Vones, amatersky programator
Casio
[*] Ivan Vavra <vavra(zv)fzu(tec)cz> - 2.7.1998 07:32:24
Zdravim,
vysledkem debaty byl (tusim ze v teto konferenci) 'tajny' (nebot ho
Casio udajne nikdy nezverejnilo) protokol pro komunikaci Casio <-> PC,
ktery mam a mohu poslat. Programuje se komunikace pres seriovy port za
pouziti tohoto protokolu. Pokud se tyce kabelu, mohu rovnez poslat.
Na komponenty pro komunikaci jsem nikde nenarazil.
On Wed, 1 Jul 1998, =?ISO-8859-2?Q?Burger_Tom=E1=B9?= wrote:
> Ten software, co mam ja, pouziva vlastni kabel s nejakou elektronikou -
> bojim se, ze to cele bude know-how dodavatele.
> Mam pocit, ze se tu vedla debata, jak programovat primo Casia (aspon ja
> jsem ji jednou vyvolal) - a skoncila fiaskem...
> Tomas
>
> On Friday, June 26, 1998 11:19 PM, Pavel Drtil
> [SMTP:drtil(zv)norek.list.skm.vutbr(tec)cz] wrote:
> >
> > Potreboval bych nejake komponenty pro komunikaci
> > diare Casio s PC.
> > Uz to tu bylo, ale na archivu konference jsem
> > to nejak nenasel.
Ivan Vavra
********************************************************
******** SAVT - Center for Automation and Computing ****
******* Institute of Physics *****
***** Academy of Sciences of Czech Republic ******
**** e-mail: vavra(zv)fzu(tec)cz HomePage: www.fzu(tec)cz/~vavra
******************************************************
Sdileni souboru v lok.siti mezi DOS a Win95 ?
[*] roman.palarcik(zv)spt(tec)cz - 2.7.1998 07:48:58
Pises ze pouzivate protokol IPX/SPX ci NetBEUI, ale to je dost rozdil.
Pokud tam mate IPX/SPX, tzn. Novell, tak by to nebyl problem staci na
DOS-ovy pocitac nainstalovat ovladace karty ,Novelovskeho klienta a
normalne namapovat disky. Pokud tam ale mate NetBEUI, tzn. Microsofti
sit, tak to bude asi horsi. Zatim jsem neslysel ze by byl klient pro
tuto sit pro DOS, ale mozna ze by se na internetu neco naslo. Zkus
hledat "NetBEUI AND DOS". Jeste me tak napadlo, ze by se dalo na ten
pocitac s DOSem nainstalovat Win3.11, ktery samozrejme podporuje
NetBEUI a spustit ten dosovy program pod win, ale to je asi blbe co ?
Pokud jde o to, aby otevrit na siti otevrit soubor vice programy pro
cteni, tak to klasickym zpusobem nejde, taky kdysi jsem to zkousel.
Nakonec jsem to vyresil tak ze si kazdy program nacetl co potreboval a
hned ho zase zavrel. Ostatni ho pritom zkousely otevrit tak dlouho az
se uvolnil a podarilo se jim ho otevrit. Docela to slo. Mozna ze to ale
pujde vyresit nejakymi funkcemi pro sit. Mozna by se dalo neco najit v
NetManovi (obdoba SysManu pro sit).
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
----------------------------------------------------------------------
-----------------------------------
Ahoj,
Mam nasledujici problem, potreboval bych sdilet nejake soubory ktere
jsou umisteny na pocitaci s DOSem ve Win95. Moc (temer vubec) se v sitich
nevyznam a ani k nim nemam zatim pristup, takze treba je to jednoduche.
V lokalni siti by melo byt zapojeno asi 10 pocitacu s Win95 (protokol
IPX/SPX ci NetBEUI). Dale mam dalsi jedno PC s DOSem kde bezi 24 hodin
denne program ktery sbira nejaka data z RS232 a uklada na disk, presneji,
pro kazdy den zalozi novy soubor a soubor ktery se uklada ten den je
oteveren pro cteni/zapis. A ja bych potreboval mit moznost sdilet pouze pro
cteni vsechny soubory (vcetne toho oterveneho) v siti. Neni mi vsak jasnych
nekolik veci:
1. Vlastne vubec nevim jak pod DOSem pripojit sitovou kartu a hlavne
jak zaridit nejake sitove protokoly. Mam akorat DOS 6.22
2. Jak je to v DOSu se sdilenim souboru, pokud si vzpominam tak tam
snad standartne ani nic takoveho neni. Lze to vubec nejak udelat
bez upravy existujici aplikace ?
Pokud to nejde vyresit bez zasahu do DOSove aplikace, jak velky
by tento zasah musel byt ?
3. Pokud se mi podari vyresit sdileni bude mozne pouzit API funkce
FindFirstChangeNotification na sledovani zmen v prave otevrenem
souboru na DOSovem pocitaci ? Nebo to alespon vyresit jinak ?
Data se ukladaji max. rychlosti 9,600 takze to neni nijak casove
kriticke. Jde mi jen o to aby pak slo po nejakych blocich prenaset
data do ostatnich pocitacu v siti.
Samozrejme idelani reseni by bylo pocitac s DOSem vyhodit a dat misto
neho neco normalniho, ale v tomto pripade to bude bohuzel nutne resit
s tim co jiz je.
Dekuji za jakekoliv navrhy a rady
Petr Vones, amatersky programator
administrace NT
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 2.7.1998 07:55:01
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Cau a diky za predchozi odpovedi
tedka mam takovyto problem:
potrebuji nekde sehnat nejakou komponentu at je to uz OCX nebo ve forme dll nebo neco jineho , ktera by byla schopna z win95 administraci NT tj(menit hesla uzivatelu, moznost nastavit expiraci hesla atd.) Pod win95 mam na to program, ktery se jmenuje usermanager (win95 totiz standartne nepodporuje radu funkci , ktere jsou v NT). Proto bych se chtel zeptat zda nekdo nema popis dll funkci souboru (radmin32.dll)tohoto programu vcetne toho jak to pouzit? Dival jsem se na webu, ale tam jsem toho moc nenasel, respektive nasel jsem interfejs pro radmin32.dll pro delphi2, ale hacek je v tom ze ty funkce ktere byly v tom interface nadefinovany v dll nejsou(dival jsem se na ne pomoci dependency walkeru) ? .Stretch Icon
[*] V�t�zslav Gazda������u��n�?��? - 2.7.1998 07:59:47
Pouzij API funkci CopyImage.
Vita
BDE install
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 2.7.1998 08:28:15
Pokud si to chces sam osahat, tak ti asi moc nepomuzu.
Po urcite dobe jsem ale zjistil, ze jsou veci ktere opravdu nemusim delat sam. Je dost problemu s vlastnim produkem. Tak jsem koupil Tinstall a nemuzu na nej nadavat. Stoji sice cca 3.000, ale zakladni veci umi udelat, prace je s nim jednoducha a vzhledove se podoba InstallShieldu.
Pokud se chces podivat, popripade stahnout demo.
http://www.youseful.com
Kupka Lubom�r
-------------------------------------------------------------------------------------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
-------------------------------------------------------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Petr Vale� [SMTP:Petr.Vales(zv)gopas(tec)cz]
Odesl�no: 30. �ervna 1998 15:58
Komu: 'delphi(zv)pinknet(tec)cz'
P�edm�t: BDE install
Cauu,
nevite nekdo jak rucne nainstalovat BDE ??
registry, etc.
nebo jestli nekdo nemate vlastni instalacni program ??
diik
Sdileni souboru v lok.siti mezi DOS a Win95 ?
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 02.7.1998 08:41:08
Petr Vones wrote:
>
> Ahoj,
>
> Mam nasledujici problem, potreboval bych sdilet nejake soubory ktere
> jsou umisteny na pocitaci s DOSem ve Win95. Moc (temer vubec) se v sitich
> nevyznam a ani k nim nemam zatim pristup, takze treba je to jednoduche.
> V lokalni siti by melo byt zapojeno asi 10 pocitacu s Win95 (protokol
> IPX/SPX ci NetBEUI). Dale mam dalsi jedno PC s DOSem kde bezi 24 hodin
> denne program ktery sbira nejaka data z RS232 a uklada na disk, presneji,
> pro kazdy den zalozi novy soubor a soubor ktery se uklada ten den je
> oteveren pro cteni/zapis. A ja bych potreboval mit moznost sdilet pouze pro
> cteni vsechny soubory (vcetne toho oterveneho) v siti. Neni mi vsak jasnych
> nekolik veci:
>
> 1. Vlastne vubec nevim jak pod DOSem pripojit sitovou kartu a hlavne
> jak zaridit nejake sitove protokoly. Mam akorat DOS 6.22
Kdyz si tu kartu koupis, tak k ni dostanes i ovladace a mely by k ni byt
i pro DOS. Jina vec je implementace sitovych protokolu - ty u karty
nebudou
a stejne by ti moc nepomohly pokud nemas nejaky souborovy server - ten
ti umozni
namapovat disk z jineho pocitace na svem jako dalsi pismeno. Na to uz
potrebujes
Novell nebo Lantastic ci neco takoveho. Jestli by to slo, tak by bylo
nejlepsi,
kdyby ten sbiraci program bezel v dosovskem okne na W95 a data ukladal
na sdileny
disk - pak na ne uvidi i ty ostatni pocitace.> 2. Jak je to v DOSu se sdilenim souboru, pokud si vzpominam tak tam
> snad standartne ani nic takoveho neni. Lze to vubec nejak udelat
> bez upravy existujici aplikace ?
> Pokud to nejde vyresit bez zasahu do DOSove aplikace, jak velky
> by tento zasah musel byt ?
Sdileni souboru v DOSu je dost problem pokud s tim predem aplikace
nepocita.
Dosovske aplikace totiz maji ten zlozvyk, ze si i pro cteni otviraji
soubor
exkluzivne jenom pro sebe a dokud ho nezavrou, hlasi kazda jina aplikace
pri pokusu o pristup k souboru access denied i kdyz chce jenom cist.
Pokud jde o zasah do aplikace, tak ten je bohuzel treba naprosto zasadni
-
musi se totiz preprogramovat vsechny pristupy ke sdilenym souborum a je
k
tomu nejlepsi pouzit nejake utility, ktere celou tu praci umi dost
usnadnit.
Dobre by se k tomu mohl hodit treba B-Tree Filer od TurboPower. > 3. Pokud se mi podari vyresit sdileni bude mozne pouzit API funkce
> FindFirstChangeNotification na sledovani zmen v prave otevrenem
> souboru na DOSovem pocitaci ?
Tak tohle urcite nepujde, ale ten B-Tree Filer by si s tim poradil
> Data se ukladaji max. rychlosti 9,600 takze to neni nijak casove
> kriticke. Jde mi jen o to aby pak slo po nejakych blocich prenaset
> data do ostatnich pocitacu v siti.
>
> Samozrejme idelani reseni by bylo pocitac s DOSem vyhodit a dat misto
> neho neco normalniho, ale v tomto pripade to bude bohuzel nutne resit
> s tim co jiz je.
>
Ja bych se pokusil o nasledujici reseni:
1 nainstalovat si na jeden pocitac s W95 DOSovy server Personal
Novell nebo
Lantastic - musi se instalovat v configu a autoexecu pred
natazenim
Widows. Ve Windowsech se musi ve vlastnostech sitove karty
nastavit
16 bitovy pristup pres existujici ovladac ODI, protoze system uz
nesmi instalovat vlasti drivery na kartu
2 na to sbiracim pocitaci nainstalovat klienta toho DOSoveho
serveru a data
ukladat na namapovany disk serveru. Tim ta data fyzicky dostanes
na pocitac
s windowsama a pokud ve windowsovske siti ten disk nasdilis,
budou na ty
data videt i ostatni pocitace. K tem starym, ktere se jenom ctou
se uz muze
pristupovat jakymkoliv windowsovskym programem.
3 Problem bude s tim dnesnim souborem, ktery by se mel otevirat
zaroven
pro cteni i zapis. Tady by asi bylo nejlepsi napsat novy
programek. Pokud
by se pouzil ten B-Tree Filer, tak s tim lze napsat dosovsky
program, ktery
ty data bude z toho sbiraciho pocitace ukladat a windowsovske
programy,
ktere ho budou cist.> Dekuji za jakekoliv navrhy a rady
>
> Petr Vones, amatersky programator
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
variabilni pocet parametru
[*] Dr. Zdenek Moravcik <moravcik(zv)biolab2.med.muni(tec)cz> - 2.7.1998 08:43:24 gmt
Muze mi nekdo poradit s nasledujicim problemem.
Vytvarim interface k jedne knihovne a ta ma nektere funkce
s variablinim poctem parametru. V cecku to vypada takhle:
void abc(int a, ...)
Jak tohle zvladnout v Delphi???
Dik Zdenek
default value
[*] Vitezslav Horky <vithor(zv)softcell(tec)cz> - 2.7.1998 08:57:20
P�i zakl�d�n� tabulky (typu Paradox for W. v.5) p�es FieldDefs, Add....
Create... pot�ebuji implicitn� naplnit hodnotu logick� prom�nn� na
true/false. Je tam v�ak hodnota "nev�m". V DatabaseDesktopu to je pole
DefaltValue.
D�ky.Senzitivni hinty
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 02.7.1998 09:27:38
Ahojda,
moc o tom nevim, ale nepomohlo by ti: THintInfo, nebo THintWindow ???
Jestli ne, tag sorry... :-o
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
svatos(zv)af(tec)czu(tec)cz wrote:
> Ahoj !
>
> Mam nasledujici problem:
>
> Potrebuju, kdyz najedu na ruzny sloupec v StringGridu, aby se mi
> zobrazila jina bublinka s hintem.
> Problem je v tom, ze ruzne texty hintu sice dokazu spravne a vcas
> nastavit (OnMouseMove), ale bublinka se zobrazi pouze pri prvnim
> vstupu mysi do oblasti gridu.
> Kdyz mys stahnu z gridu a pak ji zase presunu na grid, je vse OK,
> bublinka se obevi, ale potom jiz se nezobrazi.
> Co stim ? Nevite nekdo ?
>
> Hynek Svatos
> svatos(zv)af(tec)czu(tec)cz
Jeste jednou transakce
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 2.7.1998 09:37:17
Ahoj,
uz se Ti to snazili vysvetlit pritomni jednou, ale zjevne neupesne.
Takze znovu:
1. Kazdy SQL server, ktery znam (a znam jich dost) ma podporu transakci.
2. Rychlost pristupu k datum nesouvisi naprosto s transakcemi, ty
zajistuji napr. bezpecnost databaze pri vypadku proudu, pri nekorektnim
ukonceni programu a pomahaji programatorum udrzet integritu dat bez
slozitych programovych konstrukci. Obecne bych rekl, ze transakce
pristup k datum spis zpomaluji - bezpecnost dat koneckoncu neco stoji.
3. Vyhledani jedne polozky v databazi podle unikatniho klice, kterym je
ten carovy kod, trva skutecne zcela zanedbatelnou dobu. Pokud by to
presto nestacilo, pouziva se napriklad natazeni databaze zbozi do
pokladny a v transakci se na konci odesle do serveru uz celkovy seznam
vsech polozek najednou k odpisu ze skladu.
Dalsi komentar:
Podobny system na cteni caroveho kodu u pokladen jsem kdysi delal ve
FoxPro a uz na tehdejsim HW to v pohode stihalo. Takze se neobavam, ze
client/server system by tim mel nejake potize. Firma ve ktere jsem
delal pred par lety instalovala pokladni system do obchodniho domu Tesco
a pokud si pamatuju, tak na cca 100-150 online pokladen byl jeden nijak
zvlast nadupany server.
Jinak jsem si dukladne prostudoval stranky o Pervasive SQL a musim rict,
ze k tomuhle produktu nemam prilis duveru. Jednak jeste evidentne neni
hotovy, jde o pokracovani architektury Btreive, ktera uz je davno
prekonana, ale hlavne mi vadi styl jejich vymezovani se vuci ostatnim
databazim - spousta nepravd, chybnych informaci a zadne konkretni
odpovedi. Napriklad jsem vubec nenasel jestli tahle databaze podporuje
ukladani binarnich dat do tabulek, zato jsem si asi padesatkrat precetl,
ze neni vubec potreba ji administrovat.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: peterrus(zv)intesys(tec)cz
> Odesl�no: 1. �ervence 1998 19:16
> Komu: DELPHI Distribution List
> P�edm�t: Jeste jednou transakce
>
> Ahoj Delphici,
>
> pred nedavnem jsem se tu dotazoval na databazovy stroj, ktery by
> umel
> transakcni pristup. Odpoved byla takova slabsi, takze:
>
> Existuje nejaka jina databaze (krome Pervasive.SQL), ktera umi
> transakcni pristup?
>
> Ponekud to priblizim:
>
> Predstavte si, ze mate obchod. V tom je nekolik pokladen - pocitacu.
>
> Mate sortiment xxx druhu zbozi.
>
> A ted prijde zakaznik, vybere si, vy mu nactete carovy kod a behem
> nekolika milisekund se na obrazovku/ucet pripise nova polozka.
> Tohle
> bude jen velice tezko realizovatelne pres SQL, protoze SQL obecne
> dlouho
> trva. A predstava toho, ze napr. Delvita, nebo Kaufhalle (zdravim
> sever)
> bude mit v kazdem kramu instalovanou IBM RS/6000 (ktera by to mozna
> tak
> rychle vytahnout zvladla) je proste komicka.
> Na tohle existuje nejaka vychytavka (rika se ji transakcni pristup)
> a ja
> bych na ni rad prisel. Poradi mi nekdo? Doufam :-))
>
> Mej se krasne,
>
> Peter Rus ml.
> mailto:peterrus(zv)intesys(tec)cz
> http://www.intesys(tec)cz
Stretch Icon
[*] stingp1.eti(zv)mail.cez(tec)cz - 2.7.1998 09:58:27
To ani nemusim, ale stejne diky za tip, navedl jsi mne na spravnou stopu -
vyresil jsem to nasledovne (jestli to teda nekoho zajima)
---------------
hLibHandle := LoadLibraryEx(PChar(OpenDialog1.FileName), 0,
LOAD_LIBRARY_AS_DATAFILE);
hIcon1 := LoadImage(hLibHandle, MakeIntResource(1), IMAGE_ICON, 16, 16,
LR_DEFAULTCOLOR);
BMP := TBitmap.Create;
BMP.Width := 16;
BMP.Height := 16;
DrawIconEx(BMP.Canvas.Handle, 0, 0, hIcon1, 16, 16, 0, 0, DI_IMAGE);
BMP.SaveToFile('D:\BMP.BMP');
BMP.Free;
FreeLibrary(hLibHandle);
---------------
Pravdepodne to jde delat i bez tahani knihovny ci exace do pameti pres
ExtractIcon, ze?
Jeste jednou dik.
Pavel Stingl
stingp1.eti(zv)mail.cez(tec)cz
"V
�t
zslav Gazda" <softda(zv)mbox.vol(tec)cz> na 02.07.98 06:59:47
Odpov
�zte pros
�m - DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Komu: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
Kopie: (Na v
dom
�: Stingl Pavel/2310/ETI/CEZ)
P
edm
�t: Re: Stretch Icon
Pouzij API funkci CopyImage.
Vita
Sdileni souboru v lok.siti mezi DOS a Win95 ?
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 02.7.1998 10:36:23
MS ma produkt "MS Windows WorkGroup Add On For DOS" ktery umoznuje sdileni
disku tak jak potrebujes. Je to ale dost stara vec, nekdy byvaji problemy se
sitovymi kartami (nekompatiblni ovladace), ale v zasade to funguje.
FindFirstChangeNotification mi nefungovalo.
Vaclav Sazima
Petr Vones wrote:
> Ahoj,
>
> Mam nasledujici problem, potreboval bych sdilet nejake soubory ktere
> jsou umisteny na pocitaci s DOSem ve Win95.variabilni pocet parametru
[*] Nykl, Pavel <nykl(zv)satoya(tec)cz> - 2.7.1998 10:40:08
Nejnze lze posilat variabilni pocet parametru, ale lze posilat i ruzne typy.
Posilam vyrez kodu ktery to resi:
{---------------------------------------------------------------------------
-----------------}
procedure Trace(const Args : array of const);
var
S : string;
i : integer;
begin
S:='';
for i:=0 to High (Args) do
with Args [i] do
case VType of
vtInteger : S:=S+IntToStr (VInteger)+' ';
vtBoolean : if VBoolean then S:=S+'YES '
else
S:=S+'NO ';
vtExtended : S:=S+FloatToStr (VExtended^)+' ';
vtString : S:=S+VString^+' ';
vtObject : S:=S+VObject.ClassName+' ';
vtClass : S:=S+VClass.ClassName+' ';
vtCurrency : S:=S+CurrToStr (VCurrency^)+' ';
vtAnsiString : S:=S+string (VAnsiString)+' ';
end;
{$I+}
try
FileMode:=2;
Assign (F,ExtractFilePath (ParamStr (0))+'DEBUG.LOG');
if FileExists (ExtractFilePath (ParamStr (0))+'DEBUG.LOG') then Append
(F)
else
Rewrite (F);
try
writeln (F,S);
finally
CloseFile (F);
end;
except
on E: Exception do Application.ShowException (E);
end;
end;
-----------------------------------------------------------------
Pavel Nykl Saturn Toya Ltd.
mailto:nykl(zv)satoya(tec)cz tel,fax **420-2-3335 6667
-----------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Dr. Zdenek Moravcik <moravcik(zv)biolab2.med.muni(tec)cz>
Diskusn� skupiny: cz.muni.redir.delphi
Datum: 2. �ervence 1998 10:40
P�edm�t: variabilni pocet parametru
>Muze mi nekdo poradit s nasledujicim problemem.
>Vytvarim interface k jedne knihovne a ta ma nektere funkce
>s variablinim poctem parametru. V cecku to vypada takhle:
>
>void abc(int a, ...)
>
>Jak tohle zvladnout v Delphi???
>
>Dik Zdenek
>NetRemoteTOD
[*] David Hrb�� - 2.7.1998 10:44:13
Panove, resim implementaci prikazu NetRemoteTOD a nejak se mi nedari, porad
mi to vraci nulove hodnoty. Nevite kde delam chybu? Respektive, resil to uy
nekdo?
unit RemoteTime;
interface
(*
typedef struct _TIME_OF_DAY_INFO {
DWORD tod_elapsedt;
DWORD tod_msecs;
DWORD tod_hours;
DWORD tod_mins;
DWORD tod_secs;
DWORD tod_hunds;
LONG tod_timezone;
DWORD tod_tinterval;
DWORD tod_day;
DWORD tod_month;
DWORD tod_year;
DWORD tod_weekday;
} TIME_OF_DAY_INFO, *PTIME_OF_DAY_INFO, *LPTIME_OF_DAY_INFO;
*)
type
PTIME_OF_DAY_INFOA = ^TTIME_OF_DAY_INFOA;
TTIME_OF_DAY_INFOA = packed record
tod_elapsedt : Integer;
tod_msecs : Integer;
tod_hours : Integer;
tod_mins : Integer;
tod_secs : Integer;
tod_hunds : Integer;
tod_timezone : Integer;
tod_tinterval : Integer;
tod_day : Integer;
tod_month : Integer;
tod_year : Integer;
tod_weekday: Integer;
end;
TTIME_OF_DAY_INFO = TTIME_OF_DAY_INFOA;
function NetRemoteTOD(server: pchar; buff:PTIME_OF_DAY_INFOA):integer;
stdcall;
implementation
function NetRemoteTOD; external 'netapi32.dll' name 'NetRemoteTOD';
end.
a pak to volam
NetRemoteTOD('pc223nt',(zv)a); kde a je a : TTIme_of_day_Info;
Diky,
David
Jeste jednou transakce
[*] Lubo Fule <fule(zv)sct.sk> - 2.7.1998 10:44:23
Zda sa, ze si trochu pleties pojmy. Transakcie su nieco celkom ine ako si
myslis. Rozhodne nemaju nic spolocne s rychlostou pristupu.
-----Original Message-----
From: Peter Rus [mailto:peterrus(zv)intesys(tec)cz]
Sent: Wednesday, July 01, 1998 7:16 PM
To: DELPHI Distribution List
Subject: Jeste jednou transakce
Ahoj Delphici,
pred nedavnem jsem se tu dotazoval na databazovy stroj, ktery by umel
transakcni pristup. Odpoved byla takova slabsi, takze:
Existuje nejaka jina databaze (krome Pervasive.SQL), ktera umi
transakcni pristup?
Ponekud to priblizim:
Predstavte si, ze mate obchod. V tom je nekolik pokladen - pocitacu.
Mate sortiment xxx druhu zbozi.
A ted prijde zakaznik, vybere si, vy mu nactete carovy kod a behem
nekolika milisekund se na obrazovku/ucet pripise nova polozka. Tohle
bude jen velice tezko realizovatelne pres SQL, protoze SQL obecne dlouho
trva. A predstava toho, ze napr. Delvita, nebo Kaufhalle (zdravim sever)
bude mit v kazdem kramu instalovanou IBM RS/6000 (ktera by to mozna tak
rychle vytahnout zvladla) je proste komicka.
Na tohle existuje nejaka vychytavka (rika se ji transakcni pristup) a ja
bych na ni rad prisel. Poradi mi nekdo? Doufam :-))
Mej se krasne,
Peter Rus ml.
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz
Senzitivni hinty
[*] Mik Radim <mik(zv)oce(tec)cz> - 2.7.1998 10:45:51
Zkus nastavit pro aplikaci OnIdle event a v do neho zadat, jestli si nad
StringGridem, pak Application.ShowHint := True. Potom by melo chodit ze po
posunu mysi se znova vykresli Hint.
Radim H. Mik
mik(zv)oce(tec)cz
Stretch ikon
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 02.7.1998 10:54:22
Ahoj,
momentalne resim podobny problem - potrebuji nacpat ikony do PopupMenu.
To uz se mi podarilo pres fci SetMenuItemBitmaps( ), ale nevim jak uchovavat
vice ikon v nejakem listu, ta fce totiz prirazuje do MenuItem pouze handle
ikony.
Pokud to negdo mate nejak poresene, a mohl se se mnou podelit o ideu, byl bych
moc vdecny.
Diky za prehrsel napadu a odpovedi.
PS: _CopyImage( )_ i _LoadImage( )_ mi resize ikony s uspechem ignoruji :-(((
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
stingp1.eti(zv)mail.cez(tec)cz wrote:
> Hi,
>
> snad se mi podari podruhe aspon trochu rozvirit hladinu,
> kdyz se to napoprve nepodarilo (DeviceIOControl) :)
>
> Problem : Je treba nacist systemove ikony - to je pohoda,
> pruser nastane v okamziku, kdy je chci zmensit a nacpat
> do TreeView, nebo do ListView. Zkousel jsem snad uz vsechno,
> co mne napadlo - prevod na bitmapu a StretchBlt(), kresleni do
> bitmapy pres DrawIconEx(), maskovani bitmap, pouziti stretch funkci Canvasu
> a kdesi
> cosi, ale vysledky jsou zalostne, obzvlaste u hi-color ikon. Proste kvality
> ikon v pitomym
> WinNT Exploreru nedosahnu, kdybych se na hlavu postavil.
> Jestli nekdo vite o fci API, mate knihovnu, VCL nebo vite, jak zaonacit
> zmenseni
> ikony z 32x32 na 16x16 bodu bez dramaticke ztraty kvality,
> ozvete se plyyyyyyyyz.
>
> Cau
>
> Pavel Stingl
> stingp1.eti(zv)mail.cez(tec)cz
Bitovy posun
[*] V�t�zslav Gazda������u��n�?��? - 2.7.1998 10:57:25
Mam vysledek nResult, ktery jsem vypocital tak, ze jsem provedl bitovy posun
cisla nBase do leva o nStep mist. Vzorec vypada asi takto:
nResult := nBase shl nIndex;
Nevite nekdo jestli existuje nejaky vzorec, kterym bych zase zjistil hodnotu
nIndex za predpokladu, ze znam nResult a nBase ?
Zatim to delam pomoci takove smycky:
nIndex := 0;
while nResult <> nBase do
begin
nResult := nResult shr 1
Inc(nIndex)
end;
Diky Vita
variabilni pocet parametru
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 02.7.1998 11:03:10
No, v Delphi je mozne predavat vice parametru jednoho typu jako Array, v
helpu je to pod Open Array
Asi taghle:
function GetSum(var Cisla: array of Real): Real;
var
I : Integer;
begin
Result := 0;
for I := 0 to High(Cisla) do Result := Result + Cisla[I];
end;
(je to psane primo v majleru, a ne v Delphi, tagze je tam mozna nejaka
SyntaxError, ale snad ne)
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Dr. Zdenek Moravcik wrote:
> Muze mi nekdo poradit s nasledujicim problemem.
> Vytvarim interface k jedne knihovne a ta ma nektere funkce
> s variablinim poctem parametru. V cecku to vypada takhle:
>
> void abc(int a, ...)
>
> Jak tohle zvladnout v Delphi???
>
> Dik Zdenek
Senzitivni hinty
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 2.7.1998 11:04:29
Nevim, jestli je to presne to, co potrebujes, ale na www.turbopower.com
nekde na strance tipu je tip 28, ve kterem je popsano, jak udelat hinty pro
kazde policko tabulky.
Maji to resene pomoci TImage a v OnMouseMove si osetruji, co ma byt v hintu.
Michal Motalik
motalik(zv)zl.inext(tec)cz
-----Original Message-----
From: svatos(zv)af(tec)czu(tec)cz <svatos(zv)af(tec)czu(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 1. �ervence 1998 22:23
Subject: Senzitivni hinty
Ahoj !
Mam nasledujici problem:
Potrebuju, kdyz najedu na ruzny sloupec v StringGridu, aby se mi
zobrazila jina bublinka s hintem.
Problem je v tom, ze ruzne texty hintu sice dokazu spravne a vcas
nastavit (OnMouseMove), ale bublinka se zobrazi pouze pri prvnim
vstupu mysi do oblasti gridu.
Kdyz mys stahnu z gridu a pak ji zase presunu na grid, je vse OK,
bublinka se obevi, ale potom jiz se nezobrazi.
Co stim ? Nevite nekdo ?
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
variabilni pocet parametru
[*] Radek Pospisil <suspi(zv)sh.cvut(tec)cz> - 2.7.1998 11:09:47
>
> Muze mi nekdo poradit s nasledujicim problemem.
> Vytvarim interface k jedne knihovne a ta ma nektere funkce
> s variablinim poctem parametru. V cecku to vypada takhle:
>
> void abc(int a, ...)
>
> Jak tohle zvladnout v Delphi???
>
> Dik Zdenek
>
V Delphi se to dela takto:
function abc(const Args: array of const);
var i: integer;
begin
for i := 0 to High(Args) do
with Args[i] do
case VType of
vtInteger: ....
vtBoolean: ....
vtObject: ....
...
...
end;
end;
Vice viz. help (open arrays, type variant open-array paramaters)
bye
R.Pospisil
Udalost OnClick
[*] ing. Trn�n� Milan <bodlak1(zv)czn(tec)cz> - 2.7.1998 11:12:25
Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari, ale je vygenerovani pomoci Create(Self).
Milan
variabilni pocet parametru
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 2.7.1998 11:35:16
Tak elegantne pod Delphi to nepojde. je to mozne spravit cez pole alebo cez predanim pointru na nejaku strukturu alebo cez variabilny tip ale ani jedna ti neprinesie elegantnost.
Podla mojho nazoru pouzivaj nato object , ktory ma urcite vlarnosti a datove struktury.
Tungli
----------
> Od: Dr. Zdenek Moravcik <moravcik(zv)biolab2.med.muni(tec)cz>
> Pre:
> Predmet: variabilni pocet parametru
> D�tum: 2. j�l 1998 10:43
>
> Muze mi nekdo poradit s nasledujicim problemem.
> Vytvarim interface k jedne knihovne a ta ma nektere funkce
> s variablinim poctem parametru. V cecku to vypada takhle:
>
> void abc(int a, ...)
>
> Jak tohle zvladnout v Delphi???
>
> Dik Zdenek
> Jeste jednou transakce
[*] Karol Zaic <zaic_karol(zv)novitech.sk> - 02.7.1998 11:43:14
Zdravim Delfakov!
Databazovy server s transakciami je dnes asi ten najbezpecnejsi system ako
zaklad pre vyvoj databazovej aplikacie. Vo firme uz 4 roky robime na
strojoch
IBM RS/6000 typu C10 a databazovom serveri Informix Online 5.03.
Tento server umoznuje vytvorit databazu s transakciami ako aj bez nich.
Transakcia ako taka znamena postupnost SQL prikazov(INSERT, UPDATE, DELETE),
ktore je potrebne vykonat ako jeden celok. Cize umoznuje tieto prikazy
potvrdit(COMMIT) alebo zrusit(ROLLBACK). To zrusenie sa pouziva hlavne v
pripade chyby ako jedine bezpecne zotavenie. Predosle systemy ako napr.
FoxBase taketo daco nepoznali a v pripade, ze nastala chyba v strede
postupnosti zapisov do tabuliek dosle k neopravitelnej chybe v udajoch.
Takze transakcni pristup k databaze sa tyka hlavne bezpecnosti a nie
rychlosti. Samozrejme, ze databaza bez transakcii je rychlejsia, ale neviem
ci uzivatela potesi, ked sa mu logicky poskodia udaje. Inac transakcia sa
zapisuje do tvz. logovacieho suboru(priestoru), ktory ak sa naplni, dojde k
zhodenie servera. Tento problem nastava hlavne vtedy, ked transakcia dlho
trva
a logovaci subor sa plni. Takze v ziadnom pripade nepouzivajte transakciu v
interaktivnom formulari, lebo uzivatel pojde na obed a zhodi sa server.
Rychlost pristupu k udajom zavisi od spravnosti tvorby SQL dotazov a
spravnosti navrhu databazy. Tu nastava u mnohych programatorov problem, lebo
su zvyknuty na zaznamove tabulky s filtrami a nie na SQL, ktore vyhodnocuje
server. Kazdy SQL server ma tzv. SQL optimalizator, ktory vyhodnocuje SQL
dotaz, rozdeluje ho na mensie dotazy a tie vykonava. Existuje pritom dvojaky
pristup:
1. Indexovy
2. Sekvencny
Samozrejme, ze je snaha, aby SQL dotaz bol vykonavany indexovo, ale tiez nie
je mozne, aby kazdy stlpec tabulky mal index. Takze, ak chcete na SQL
serveri dosiahnut rychle vybery, tak musite optimalizovat dotazy.
SQL server sa nie velmi oplati nasadit pre male databazy s tabulkami do 100
000 riadkov, ale hlavne pre vacsie databazy(nase tabulky maju najviac okolo
10 000 000 riadkov a databaza je okolo 50 GB velka). Samozrejme z hladiska
bezpecnosti udajov system bez transakcii nie je mozny, takze pre spolahlivu
aplikaciu asi aj tak nie je ina moznost ako SQL server. Problem je hlavne v
cene, kedze zakaznik orem samotnej DB aplikacie zaplati aj cenu DB
servera(cca 50 000 na uzivatela pri UNIX-ovom serveri). Existuju vsak aj
lacne riesenia ako je napr. Interbase na Windows NT ale lepsie na Linux-e.
S pozdravom
Karol
registarce konstant
[*] RNDr. Milan Vorisek <vorisek(zv)igtt(tec)cz> - 2.7.1998 12:02:36
Ale ja bych chtel registrovat konstanty v nesouvislych intervalech
(treba 3..6,15,28..30,39,...). Pak bych potreboval proceduru pro
prepocet. To samozrejme jde, ale mne zajima, proc mi to
nefunguje kdyz to Delphi inzeruji.
M.Vorisek
Vetsinou se v techto pripadech pouzivaji enumerated typy,
tedy misto TPin=0..1 to bude TPin = (Pin0, Pin1), a pak muzete
s klidem vymazat i funkce Ident2Pin, Pin2Ident & sekci initialize;
Pavel Stingl
Pri vytvareni komponenty se mi nedari registrovat konstanty tak,
aby se v Object Inspectoru zobrazovaly nazvy misto cisel.
Co je v nasledujicim kodu spatne nebo tam chybi ?
Diky !
M.Vorisek
unit Unit2;
{$F+}
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TPin=0..1;
TLabel1 = class(tlabel)
private
fPin:TPin;
published
property Pin:TPin read fPin write fPin;
end;
procedure Register;
function PinToIdent(Pin: Longint; var Ident: string): Boolean;
function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TLabel1]);
end;
function PinToIdent(Pin: Longint; var Ident: string): Boolean;
begin ident:='';
if Pin=0 then ident:='Pin0' ;
if Pin=1 then ident:='Pin1';
Result := Pin in [0,1];
end;
function IdentToPin(const Ident: string; var Pin: Longint): Boolean;
begin Pin:=-1;
if ident='Pin0' then Pin:=0;
if ident='Pin1' then Pin:=1;
Result := Pin in [0,1];
end;
initialization
RegisterIntegerConsts(TypeInfo(TPin), IdentToPin, PinToIdent);
end.
Sdileni Pdox tabulek
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 2.7.1998 13:16:19
Ahoj,
rad bych se zeptal ja to myslis s
BDE LOCAL SHARE = TRUE
a/ na vsech stanicich?
b/ pouze na stanici kde se fyzicky tabulky nalezaji?
Pokud na vsech stanicich, tak to znamena radove zpomaleni na vsech stanicich.
Podle helpu by to melo stacit na stanici s daty.
Pri LOCAL SHARE = TRUE se provadi ihned zapis na disk a chova se to stejne
jako kdyz mas LOCAL SHARE = FALSE a provadis pro vsechny tabulky FlushBuffers.
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
-----P�vodn� zpr�va-----
Od: Jaroslav N�dhera <csh(zv)czn(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 2. listopadu 1998 11:43
P�edm�t: Re: Sdileni Pdox tabulek
>Moje zarucene rady jsou: Stahnout si opraveny soubor VREDIR.VDX od M$ - ve
>verzich 4.00.1111 az 4.00.1114 byla chyba, ktera na siti zpusobovala
>porusovani indexu (da se do adresare WINDOWS\SYSTEM), dale je nutne nastavit
>v konfiguraci BDE LOCAL SHARE na TRUE, nastavit NET DIR podle pravidel
>uvedenych vyse a pak je od porusovani indexu pokoj - uz jedeme rok asi 200
>aplikaci, z nich asi 50 sitove a temer bez problemu. ("Temer" proto, protoze
>nejake problemy jsou vzdy). Dobre je tez pred startem programu odmazat .LCK
>soubory (pri regulernim ukonceni programu by se mely samy rusit). Pred
>temito opatrenimi jsme se ale take velmi potili.
Partial BDE v Install Shield Express
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 2.7.1998 13:17:09
Ahoj,
z Helpu:
-------
Note When a user runs an application that included only a partial BDE
installation, he _cannot_
concurrently run another BDE-dependent application.
This is the primary limitation incurred by using a partial install of BDE.
------
Tak se zda, ze 'partial BDE installation' je nejlepsi cesta jak zneprijemnit
uzivani programu s BDE.
Mozna bychom mohli dohodnout 'doporuceni pro instalaci programu s BDE',
a omezit situace
- kdy ma uzivatel na disku 10 instalaci BDE, tak jak si zkousel ruzne demoverze
- vas program prestane fungovat, protoze se si nekdo naistaloval demo jineho
programu s BDE
- vas program se nepodari spravne nainstalovat, kvuli problemum s BDE
S pozdravem
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Select
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 2.7.1998 13:26:38
Zdravim,
mel bych databazovy dotaz. Mam napr takovou tabulku:
NAZEV CISLO
-------------------------
A 1
B 2
C 12
D 5
a potreboval bych udelat select, ktery by vypadal takto:
A 1 1
B 2 3
C 12 15
D 5 20
cili posledni pole by bylo souctem predchozich hodnot pole CISLO.
Vzhledem k nizkemu tlaku v Ostrave mi to dnes vubec nemysli.
Dik za kazdy tip.
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)email(tec)cz S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)email(tec)cz administrace NT
[*] �uhel Petr <cuhel(zv)diamo(tec)cz> - 2.7.1998 14:05:09
Cau,
nevim jestli nejsem mimo misu, ale na instalacnim disku je
adresar
CLIENTS\SRVTOOLS\WIN95, kde je administrative tool pro administratora
NT je tam mimo jine user manager for domains. Lze to nainstalovat pod
W95
nebo spoustet primo z W95.
Mnoho uspechu
> ----------
> Od: sula milos[SMTP:crkstrobe(zv)geocities.com]
> Odesl�no: 2. �ervence 1998 7:55
> Komu: delphi konference
> P�edm�t: administrace NT
>
> Cau a diky za predchozi odpovedi
> tedka mam takovyto problem:
> potrebuji nekde sehnat nejakou komponentu at je to uz OCX nebo ve
> forme dll nebo neco jineho , ktera by byla schopna z win95
> administraci NT tj(menit hesla uzivatelu, moznost nastavit expiraci
> hesla� atd.) Pod win95 mam na to program, ktery se jmenuje usermanager
> (win95 totiz standartne nepodporuje radu funkci , ktere jsou v NT).
> Proto bych se chtel zeptat zda nekdo nema popis dll funkci souboru
> (radmin32.dll)tohoto programu vcetne toho jak to pouzit? Dival jsem se
> na webu, ale tam jsem toho moc nenasel, respektive nasel jsem
> interfejs pro radmin32.dll pro delphi2, ale hacek je v tom ze ty
> funkce ktere byly v tom interface nadefinovany v dll nejsou(dival jsem
> se na ne pomoci dependency walkeru) ? .
> BDE install
[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 2.7.1998 14:10:47
Dekuji mnohokrat za informace
> ----------
> Od: info(zv)saton(tec)cz[SMTP:info(zv)saton(tec)cz]
> Odesl�no: Thursday, July 02, 1998 8:28 AM
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: BDE install
>
> Pokud si to chces sam osahat, tak ti asi moc nepomuzu.
> Po urcite dobe jsem ale zjistil, ze jsou veci ktere opravdu nemusim
> delat sam. Je dost problemu s vlastnim produkem. Tak jsem koupil
> Tinstall a nemuzu na nej nadavat. Stoji sice cca 3.000, ale zakladni
> veci umi udelat, prace je s nim jednoducha a vzhledove se podoba
> InstallShieldu.
>
> Pokud se chces podivat, popripade stahnout demo.
> http://www.youseful.com
>
> Kupka Lubom�r
> ----------------------------------------------------------------------
> ---------------------------------------
> SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn�
> techniky
> Klicperova 26, Brno, 628 00 �R
> Tel.:+420 5 44217819 Fax.:+420 5 44217529
> Mob:+420 603 429505
> ----------------------------------------------------------------------
> ---------------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Petr Vale� [SMTP:Petr.Vales(zv)gopas(tec)cz]
> Odesl�no: 30. �ervna 1998 15:58
> Komu: 'delphi(zv)pinknet(tec)cz'
> P�edm�t: BDE install
>
> Cauu,
>
> nevite nekdo jak rucne nainstalovat BDE ??
>
> registry, etc.
>
> nebo jestli nekdo nemate vlastni instalacni program ??
>
> diik
> WinExec a rychlost
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 2.7.1998 14:25:06
Mam problem s jednim klientem.
Z meho Win16 programu spoustim na Win95 jeho Dos
program v Clipperu 5.??(?). Pak zpracovava data, ktera mu
predam cca 4x dele, nez kdyz tento program bezi samostatne
tzn. bez meho programu.
Je to P90 16MB RAM, zkouseli jsem to zvednout na 32MB, ale se
stejnym vysledkem.
Zkousel jsem i napsat osekanou verzi programu, ktera jen spoustela
externi program. Ale nic, porad to trvalo 4x dele.
Pouzivam WinExec v tomto kodu:
try
Result:=false;
GetMem(Ch,255);
StrPCopy(Ch,AName);
Inst:=WinExec(Ch,AVisibility);
if Inst < 32 then begin
Exit;
end;
repeat
Application.ProcessMessages;
until Application.Terminated or (GetModuleUsage(Inst)=0);
Result:=true;
finally
FreeMem(Ch,255);
end;
... a nechapu, kde se bere to zdrzeni.
Muzete mi, prosim, nekdo poradit?
Dekuji
Martin Nedopil
nedopil(zv)geocities.com
Delphi kitchen�: http://www.geocities.com/Athens/Olympus/5260
MPEG
[*] Ale� Berka - 2.7.1998 14:35:57
>Zdravim,
>
>potrebuju v Delphi 1 prehrat soubor ve formatu MPEG. Nemate nekdo
>nejakou komponentu?
>Diky.
>
Ja jsem to v Delphi2 resil tak, ze jsem nainstaloval activemovie / neco
podobneho a pak normalne otevrel MPG v media-playeru.
Mozna ze existuje neco primo, to ti uz ale nepomuzu. Ale aspon neco, ne ?
Cau
Aleq
Vytvoreni interface z DLL
[*] Ale� Berka - 2.7.1998 14:47:51
Nevite nahodou, jak by se dal vycucnout interface nejake nezname DLL, aby byly pristupne jeji funkce, parametry atd.. ?
dik Aleq
Sledovani aktivity na COM portu
[*] Ale� Berka - 2.7.1998 14:48:52
Nevite nekdo o zpusobu, jak by se dala zjistovat aktivita na COM portu, jde mi hlavne o to, ze bych
chtel mit vlastni diody, zvlaste pri pripojeni na internet.
Dik Aleq
Udalost OnClick
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 2.7.1998 15:07:39
> Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari,
> ale je vygenerovani pomoci Create(Self).
> Milan
>
Label.OnClick:= JmenoProcedury;
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Bitovy posun
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 2.7.1998 15:36:31
Coz takhle nIndex:=nResult/(2^nBase) /aspon doufam pisu to rychle uz
musim koncit
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervence 1998 14:09
P�edm�t: Bitovy posun
>Mam vysledek nResult, ktery jsem vypocital tak, ze jsem provedl bitovy
posun
>cisla nBase do leva o nStep mist. Vzorec vypada asi takto:
>
>nResult := nBase shl nIndex;
>
>Nevite nekdo jestli existuje nejaky vzorec, kterym bych zase zjistil
hodnotu
>nIndex za predpokladu, ze znam nResult a nBase ?
>Zatim to delam pomoci takove smycky:
>
>nIndex := 0;
>while nResult <> nBase do
>begin
> nResult := nResult shr 1
> Inc(nIndex)
>end;
>
>Diky Vita
>Btrieve
[*] Jochman Jan <JJochman(zv)cpoj(tec)cz> - 2.7.1998 15:53:15
Mam problem. Jak na Btrieve 6.10 v Delphi.
Honza Jochman
Youseful
[*] Vesna <veselyt(zv)sagas(tec)cz> - 2.7.1998 16:19:41
Diky za dobry tip
clovek muze brouzdat vsude mozne, ale na vsechno nenarazi. Musim opravdu
uznat, ze
Youseful je dobra vec. Nejlepsi na tom samozrejme je, ze je to v Delphi a
muzes si tam delat co chces.
Myslim si, ze cena je velmi prizniva ($99), vzdyt InstallShield stoji $250,
dival jsem se na Sax a ten stoji
$150.
Uz jsem chtel delat vlastni instalak, ale BDE byl vzdy problem.
No myslim si, ze po hodinovem zkoumani muzu jen chvalit. Samozrejme, ze by
nektere dialogy mohly byt
lepsi, ale je to v Delphi a zdroje k nim jsou tam, takze nevadi.
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervence 1998 10:08
P�edm�t: RE: BDE install
Pokud si to chces sam osahat, tak ti asi moc nepomuzu.
Po urcite dobe jsem ale zjistil, ze jsou veci ktere opravdu nemusim delat
sam. Je dost problemu s vlastnim produkem. Tak jsem koupil Tinstall a nemuzu
na nej nadavat. Stoji sice cca 3.000, ale zakladni veci umi udelat, prace je
s nim jednoducha a vzhledove se podoba InstallShieldu.
Pokud se chces podivat, popripade stahnout demo.
http://www.youseful.com
Kupka Lubom�r
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Petr Vale� [SMTP:Petr.Vales(zv)gopas(tec)cz]
Odesl�no: 30. �ervna 1998 15:58
Komu: 'delphi(zv)pinknet(tec)cz'
P�edm�t: BDE install
Cauu,
nevite nekdo jak rucne nainstalovat BDE ??
registry, etc.
nebo jestli nekdo nemate vlastni instalacni program ??
diik
Stretch ikon a jeden dalsi problem!
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 2.7.1998 16:29:31
PROSIM O RADU!
Diky! Ted jsem konecne nasel zpusob, jak z BitBtn sebrat Glyph a strcit ho do
menu, ale mam jednu obavu:
Myslite si, ze ten handle (H) zustava v systemu i po ukonceni programu? Neni ho
treba nejak destryovat?
A pokud ano, tak jak?
Priklad
var
h:hwnd;
begin
...
H:=CopyImage(BitBtn1.Glyph.Handle, image_bitmap, 12, 12, 0);
//udela kopii obrazku BMP a vrati handle te kopie
SetMenuItemBitmaps( MenuItem1.Handle, 1, MF_BYPosition, H, H);
//prida obrazek k subItem na pozici 1 v MenuItem1 pro Checked i UnChecked
stejne H
...
end;
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
> -----P�vodn� zpr�va-----
> Od: Stepan Cerny [SMTP:chaosz(zv)geocities.com]
> Odesl�no: 2. �ervence 1998 10:54
> Komu: DELPHI Distribution List
> P�edm�t: Re: Stretch ikon
>
> Ahoj,
>
> momentalne resim podobny problem - potrebuji nacpat ikony do PopupMenu.
> To uz se mi podarilo pres fci SetMenuItemBitmaps( ), ale nevim jak uchovavat
> vice ikon v nejakem listu, ta fce totiz prirazuje do MenuItem pouze handle
> ikony.
> Pokud to negdo mate nejak poresene, a mohl se se mnou podelit o ideu, byl
> bych
> moc vdecny.
>
> Diky za prehrsel napadu a odpovedi.
>
> PS: _CopyImage( )_ i _LoadImage( )_ mi resize ikony s uspechem ignoruji :-(((
> --
> Stepan "Chaosz" Cerny
> chaosz(zv)geocities.com
>
> stingp1.eti(zv)mail.cez(tec)cz wrote:
>
> > Hi,
> >
> > snad se mi podari podruhe aspon trochu rozvirit hladinu,
> > kdyz se to napoprve nepodarilo (DeviceIOControl) :)
> >
> > Problem : Je treba nacist systemove ikony - to je pohoda,
> > pruser nastane v okamziku, kdy je chci zmensit a nacpat
> > do TreeView, nebo do ListView. Zkousel jsem snad uz vsechno,
> > co mne napadlo - prevod na bitmapu a StretchBlt(), kresleni do
> > bitmapy pres DrawIconEx(), maskovani bitmap, pouziti stretch funkci Canvasu
> > a kdesi
> > cosi, ale vysledky jsou zalostne, obzvlaste u hi-color ikon. Proste kvality
> > ikon v pitomym
> > WinNT Exploreru nedosahnu, kdybych se na hlavu postavil.
> > Jestli nekdo vite o fci API, mate knihovnu, VCL nebo vite, jak zaonacit
> > zmenseni
> > ikony z 32x32 na 16x16 bodu bez dramaticke ztraty kvality,
> > ozvete se plyyyyyyyyz.
> >
> > Cau
> >
> > Pavel Stingl
> > stingp1.eti(zv)mail.cez(tec)cz
Bitovy posun
[*] IKOS Liberec, s.r.o. <sales(zv)ikos(tec)cz> - 2.7.1998 16:37:24
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervence 1998 14:15
P�edm�t: Bitovy posun
>Mam vysledek nResult, ktery jsem vypocital tak, ze jsem provedl bitovy
posun
>cisla nBase do leva o nStep mist. Vzorec vypada asi takto:
>
>nResult := nBase shl nIndex;
>
>Nevite nekdo jestli existuje nejaky vzorec, kterym bych zase zjistil
hodnotu
>nIndex za predpokladu, ze znam nResult a nBase ?
>Zatim to delam pomoci takove smycky:
>
>nIndex := 0;
>while nResult <> nBase do
>begin
> nResult := nResult shr 1
> Inc(nIndex)
>end;
>
>Diky Vita
>
>
Pouzij dvojkovy logaritmus:
Delphi2:
nIndex := Log2(nResult div nBase);
D1 :
nIndex := Trunc(LN(nResult div nBase) / LN(2));
Tomas
NetRemoteTOD
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 2.7.1998 16:38:22
Panove, resim implementaci prikazu NetRemoteTOD a nejak se mi
nedari, porad
mi to vraci nulove hodnoty. Nevite kde delam chybu? Respektive,
resil to uy
nekdo?
unit NetApi;
interface
uses
SysUtils;
type
TTODInfo = record
ElapsedTime : Integer; {number of seconds since 00:00:00 January 1,
1970}
Milliseconds : Integer; {number of milliseconds since last system
reset}
Hours : Integer; {current hour (0-23)}
Minutes : Integer; {current minute (0-59)}
Seconds : Integer; {current second (0-59)}
Hunds : Integer; {current hundredth of a second (0-99)}
TimeZone : Integer; {time against GMT in minutes}
{west of Greenwich gives positive, east negative values}
{value of -1 means undefined time zone}
Interval : Integer; {clock tick interval in ten-thousandth of a
second (0.0001 s)}
Day : Integer; {day of the month (1-31)}
Month : Integer; {month of the year (1-12)}
Year : Integer; {year}
Weekday : Integer; {day of the week (0-6) 0 = Sunday, 1 = Monday
etc.}
end;
PTODInfo = ^TTODInfo;
const
netapi32 = 'netapi32.dll';
function NetApiBufferFree(Buffer : Pointer) : Integer; stdcall;
function NetRemoteTOD(UNCServerName : PWideChar; Info : Pointer) :
Integer; stdcall;
function ServerTime(UNCServer : String; var Stamp : TDateTime) :
Integer;
implementation
function NetApiBufferFree; external netapi32 name 'NetApiBufferFree';
function NetRemoteTOD; external netapi32 name 'NetRemoteTOD';
function ServerTime(const UNCServer : String; var Stamp : TDateTime) :
Integer;
var
ServerName : PWideChar;
tod : PTODInfo;
Year, Month, Day, Hour, Min, Sec, MSec : Word;
begin
GetMem(ServerName, (Length(UNCServer) + 1) * SizeOf(WideChar));
try
ServerName := StringToWideChar(UNCServer, ServerName,
Length(UNCServer) + 1);
Result := NetRemoteTOD(ServerName, (zv)tod);
if Result = 0 then
begin
try
Year := tod^.Year;
Month := tod^.Month;
Day := tod^.Day;
Hour := tod^.Hours;
Min := tod^.Minutes;
Sec := tod^.Seconds;
MSec := tod^.Hunds * 10;
Stamp := EncodeDate(Year, Month, Day) +
EncodeTime(Hour, Min, Sec, MSec) - (tod^.TimeZone / 1440);
finally
NetApiBufferFree(tod);
end;
end;
finally
FreeMem(ServerName);
end;
end;
end.
Ondrej Kelle
kelleon(zv)nnsk.sk
Udalost OnClick
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 2.7.1998 16:51:29
Staci kdyz si do kodu po Creatu das:
Label.OnClick := tvoje fce.
Fci musis definovat s parametry jako TNotifyEvent.
Michal Brabec.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
> -----Original Message-----
> From: ing. Trn�n� Milan [mailto:bodlak1(zv)czn(tec)cz]
> Sent: Thursday, July 02, 1998 11:12 AM
> To: Delphi Konference
> Subject: Udalost OnClick
>
>
> Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery
> neni na formulari, ale je vygenerovani pomoci Create(Self).
> Milan
>Bitovy posun
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 2.7.1998 17:35:42
Ahoj,
>nResult := nBase shl nIndex;
nBase shl nIndex = nBase * Power(2,nIndex) =>
nIndex:=Trunc(Log2(nResult div nBase));
Otazkou je, jestli ta smycka neni rychlejsi:)
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
>Mam vysledek nResult, ktery jsem vypocital tak, ze jsem provedl bitovy
posun
>cisla nBase do leva o nStep mist. Vzorec vypada asi takto:
>
>nResult := nBase shl nIndex;
>
>Nevite nekdo jestli existuje nejaky vzorec, kterym bych zase zjistil
hodnotu
>nIndex za predpokladu, ze znam nResult a nBase ?
>Zatim to delam pomoci takove smycky:
>
>nIndex := 0;
>while nResult <> nBase do
>begin
> nResult := nResult shr 1
> Inc(nIndex)
>end;
pakovani + archivace
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 2.7.1998 18:21:23
Ahoj,
muzete mi prosim nekdo doporucit kvalitni komponentu/knihovnu
pro pakovani a archivaci s uplnymi zdrojovymi texty, se kterou
byste meli vlastni zkusenosti.
Nehledam udelatka sita horkou jehlou.
Pripadne tipy - kudy cesta nevede - jsou take vitany.
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Sdileni souboru v lok.siti mezi DOS a Win95 ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 18:29:56
Martin Nedopil wrote:
> K bodu 2:
> Bojim se, ze zasah do Dos aplikace je asi nutny. Spociva v rezidentni
> doinstalaci programu
> Share a pak volani interuptu (viz Ralph Brown) 21h Ax=5C00-1h. Tam je
> popsano jak se Share
> pracovat. V podstate se od te doby nic nezmenilo a LockFile z Win32 ma ty
> same parametry.
Ja nepotrebuji uzamykat zadne casti souboru, takze o to je to jednodussi.
> Pri otvirani souboru pak pouzit Dos fci ah=3dh al=OpenMode, kde OpenMode ma
> v bitech
> nastaveny priznaky sdileni (cely TechHelp mohu zaslat).
Na tom pocitaci pobezi jen ta jedna aplikace, nebylo by potom mozne nastavit
nejakym zpusobem jakysi globalni mod sdileni, tak ze by sli sdilet vsechny
soubory pro cteni ?
Petr Vones, amatersky programator
Udalost OnClick
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 18:55:39
ing. Trn�n� Milan wrote:
>
> Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari, ale je vygenerovani pomoci Create(Self).
> Milan
Ahoj,
tak ze ji napises rucne do private sekce formulare a pri vytvareni
Labelu ji priradis, viz priklad:
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure MyLabelClick(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
with TLabel.Create(Self) do
begin
Caption := '123';
Parent := Self;
OnClick := MyLabelClick;
end;
end;
procedure TForm1.MyLabelClick(Sender: TObject);
begin
MessageBeep(0);
end;
end. Petr Vones, amatersky programator
Pozor na "time-bomb" u OCX komponent NetManage v D
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 20:03:19
Ahoj,
Nedavno se zde probiralo jak distribuovat aplikace s temito
komponentami. Dnes jsem spustil nejakou aplikaci ve ktere byly
pouzity a objevilo se hlaseni ze jsou "expired", ale jinak to
vypdalo ze funguji. O tom ze jsou nejak casove omezene jsem se
vsak v helpu nikde nedocetl. C++ Builder 3 uz obsahuje nativni
komponety pro Internet, takze snad budou i v D4.
Na strance Borlandu (ehm...Inprise) je nastesti patch ktery resi
tento problem (NMPatch.zip).
http://www.inprise.com/devsupport/delphi/downloads/index.html
Petr Vones, amatersky programator
Vytvoreni interface z DLL
[*] Vesna <veselyt(zv)sagas(tec)cz> - 2.7.1998 20:56:11
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nekde na internetu je na to program, ktery to umi, ale nemuzu ho uz najit. Pokud ho nekdo zna, tak to napiste do konference. Diky
Vesna, SagaS
veselyt(zv)sagas(tec)cz
-----P�vodn� zpr�va-----
Od: Ale� Berka <aberka(zv)usa.net>
Komu: Delphi Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervence 1998 20:46
P�edm�t: Vytvoreni interface z DLL
Nevite nahodou, jak by se dal vycucnout interface nejake nezname DLL, aby byly pristupne jeji funkce, parametry atd.. ?
dik Aleq
Klavesa
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 21:05:07
Pavel Kral wrote:
> Bohuzel filtracni funkci s parametrem wh_Keyboard nelze zjistit, na kterou
> aplikaci je zprava zasilana. JESTLI ANO, DEJTE NEKDO VEDET, JAK.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Ahoj,
tady je priklad, a zatim to vypada ze by to mohlo fungovat. Zkousel jsem to
jen na Win95, takze to prosimte vyzkousej i na NT jestli k nim mas pristup.
Jedna vec se mi na tom ale moc nelibi, a to zpusob zasilani zpravy do aplikace
pres HWND_BROADCAST. Mozna by to slo udelat trochu jinak pomoci PostThreadMessage.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WndProc(var Msg: TMessage); override;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses
TLHelp32;
function GetHookMsg: Integer; stdcall; external 'HookLib';
function RemoveKeybHook: Boolean; stdcall; external 'HookLib';
function SetKeybHook(ThreadID: DWORD): Boolean; stdcall; external 'HookLib';
function FindProcessName(ThreadID: DWORD): String;
var
SnapProcHandle: THandle;
ProcEntry: TProcessEntry32;
NextProc: Boolean;
begin
Result := '';
SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if SnapProcHandle <> -1 then
begin
ProcEntry.dwSize := Sizeof(ProcEntry);
NextProc := Process32First(SnapProcHandle, ProcEntry);
while NextProc do
begin
if ProcEntry.th32ProcessID = ThreadID then
begin
Result := ProcEntry.szExeFile;
Break;
end;
NextProc := Process32Next(SnapProcHandle, ProcEntry);
end;
CloseHandle(SnapProcHandle);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if not SetKeybHook(0) then ShowMessage('Error');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveKeybHook;
end;
procedure TForm1.WndProc(var Msg: TMessage);
begin
if Msg.Msg = GetHookMsg then Memo1.Lines.Add(
Format('%.8x %.4x %s', [Msg.LParam, Msg.WParam, FindProcessName(Msg.LParam)]));
inherited;
end;
end.
-----------------------------------------------------------------------------------
library HookLib;
uses
Windows, Messages;
var
HookHandle: HHOOK = 0;
HookMessage: Integer = 0;
function GetHookMsg: Integer; export; stdcall;
begin
Result := HookMessage;
end;
function HookProc(Code: Integer; WParam: Word; LParam: LongInt): LongInt; stdcall;
var
Res: Integer;
begin
if Code = HC_ACTION then
SendMessageTimeout(HWND_BROADCAST, HookMessage, WParam, GetCurrentProcessId,
SMTO_ABORTIFHUNG, 100, Res);
Result := CallNextHookEx(HookHandle, Code, WParam, LParam);
end;
function RemoveKeybHook: Boolean; export; stdcall;
begin
Result := UnhookWindowsHookEx(HookHandle);
if Result then HookHandle := 0;
end;
function SetKeybHook(ThreadID: DWORD): Boolean; export; stdcall;
begin
if HookHandle = 0 then
begin
HookHandle := SetWindowsHookEx(WH_KEYBOARD, (zv)HookProc, HInstance, ThreadID);
Result := HookHandle <> 0;
end else Result := False;
end;
exports
GetHookMsg, RemoveKeybHook, SetKeybHook;
begin
HookMessage := RegisterWindowMessage('KeyboardHookMsg');
end. Petr Vones, amatersky programator
MPEG
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 21:07:44
Krayzel Libor wrote:
>
> Zdravim,
>
> potreboval bych v aplikaci Delphi prehrat video ve formatu MPEG. Na DSP
> ani na Torry jsem nic nenasel. Nemate nekdo tip na komponentu?
>
O zadne takove komponente nevim, ale neslo by to vyresit v nouzi pomoci
volani nejakeho externiho prehravace MPEG ? Treba by se nasel i takovy
ktery by bylo mozne vlozit do TOleContainer.
Petr Vones, amatersky programator
Zajimavy nastroj - OLE/COM Object Viewer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 21:12:48
Ahoj,
Jeste jedna informace, dnes pri cteni Svetu Namodro jsem narazil
na zpravu o pomerne zajimavem nastroji od M$.
http://svet.namodro(tec)cz/go/r-art.asp?id=980630037
Petr Vones, amatersky programator
Select
[*] �ke��k Jaroslav�������6�����̿ - 2.7.1998 22:35:51
V Zamberku je o neco lepsi tlak, tak jsem vymyslel tohle:
SELECT nazev, cislo, (SELECT Sum(cislo) FROM Tabulka T2 WHERE T1.nazev >=
T2.nazev) FROM Tabulka T1 ORDER BY nazev
I kdyz to na prvni pohled nevypada, funguje to.
Do obycejneho dotazu
SELECT nazev, cislo FROM tabulka T1 ORDER BY nazev
pridas dalsi dotaz v miste pozadovaneho sloupce. Ten secte stejnou tabulku
do mista zobrazeneho radku.
(SELECT Sum(cislo) FROM Tabulka T2 WHERE T1.nazev >= T2.nazev)
Protoze je to dotaz do teze tabulky, musi se pouzit alias napr. T1 a T2,
aby bylo mozne rozlisit
polozky pro klauzuli WHERE. ORDER BY je zde pro jistotu, aby fungovala
podminka WHERE i v pripade, ze budou zaznamy
ulozeny v jinem poradi nez dle nazvu.
Mnoho stesti Jaro.
-------------------------------------------------------------
SINEA software telefon: 0446/612468
Ing. Jaroslav Skerik e-mail: sinea(zv)sinea(tec)cz
Tylova 957 privat: jaro(zv)sinea(tec)cz
564 01 ZAMBERK http://www.sinea(tec)cz/
-----P�vodn� zpr�va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: '*** Delphi' <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervence 1998 19:35
P�edm�t: Select
>Zdravim,
>
>mel bych databazovy dotaz. Mam napr takovou tabulku:
>
>NAZEV CISLO
>-------------------------
>A 1
>B 2
>C 12
>D 5
>
>a potreboval bych udelat select, ktery by vypadal takto:
>
>A 1 1
>B 2 3
>C 12 15
>D 5 20
>
>cili posledni pole by bylo souctem predchozich hodnot pole CISLO.
>
>Vzhledem k nizkemu tlaku v Ostrave mi to dnes vubec nemysli.
>Dik za kazdy tip.
>
> S pozdravem
>
> Libor Krayzel
>Czech Television, Television Studio Ostrava
>Dvorakova 18
>729 20 Ostrava
>
>Phone: (069) 6201 375
>E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
>Homepage: http://members.tripod.com/~sovtop
>Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
>E-mail2: mailto:sovtop(zv)email(tec)cz
>
>
> S pozdravem
>
> Libor Krayzel
>Czech Television, Television Studio Ostrava
>Dvorakova 18
>729 20 Ostrava
>
>Phone: (069) 6201 375
>E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
>Homepage: http://members.tripod.com/~sovtop
>Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
>E-mail2: mailto:sovtop(zv)email(tec)cz
WinExec a rychlost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 22:44:03
Martin Nedopil wrote:
>
> Mam problem s jednim klientem.
> Z meho Win16 programu spoustim na Win95 jeho Dos
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> program v Clipperu 5.??(?). Pak zpracovava data, ktera mu
^^^^^^^^^^^^^^^^^^^^^^^^^^
Proboha :-)
Pokud jsem to dobre pochopil tak mas na pocitaci s Win95 Clipper
a tvoji 16 bit aplikaci. Prvni co bych zkusil je napsat tu aplikaci
ktera spousti Clipper ve Win32. Tady je jako ukazka unitu ktery pouzivam:
unit ExecThread;
interface
uses
Classes, Windows;
type
TExecThread = class(TThread)
private
FFileName: String;
FExecResult: Integer;
public
constructor Create(const FileName: String);
procedure Execute; override;
property ExecResult: Integer read FExecResult;
end;
implementation
{ TExecThread }
constructor TExecThread.Create(const FileName: String);
begin
inherited Create(False);
FreeOnTerminate := True;
Priority := tpLower;
FFileName := FileName;
end;
procedure TExecThread.Execute;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartupInfo, Sizeof(StartupInfo), 0);
StartupInfo.cb := Sizeof(StartupInfo);
if not CreateProcess(nil, PChar(FFileName), nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
FExecResult := -1 else
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, FExecResult);
end;
end;
end.
Potom bych zkusil v te 16bit verzi odstranit volani Application.ProcessMessages
nebo testovani pritomnosti pomoci GetModuleUsage. Dalsi moznost je u Vlastnosti
te DOSove aplikace v zalozce Ruzne zkusit nastavit jinak Rozpoznani necinnosti.
Mel jsem podobnou situaci a toto melo na beh DOS aplikace znacny vliv. Potom muze
byt problem v samostnem Clipperu, nevim jestli je to psane jako 32bit aplikace pro
DOS jako bylo kdysi FoxPro 2.6, to spustit potom jako DOS aplikaci pod Windows aby
bezela alespon par hodin byl taky horor.
Petr Vones, amatersky programator
> predam cca 4x dele, nez kdyz tento program bezi samostatne
> tzn. bez meho programu.
> Je to P90 16MB RAM, zkouseli jsem to zvednout na 32MB, ale se
> stejnym vysledkem.
> Zkousel jsem i napsat osekanou verzi programu, ktera jen spoustela
> externi program. Ale nic, porad to trvalo 4x dele.
>
> Pouzivam WinExec v tomto kodu:
> try
> Result:=false;
> GetMem(Ch,255);
> StrPCopy(Ch,AName);
> Inst:=WinExec(Ch,AVisibility);
> if Inst < 32 then begin
> Exit;
> end;
> repeat
> Application.ProcessMessages;
> until Application.Terminated or (GetModuleUsage(Inst)=0);
> Result:=true;
> finally
> FreeMem(Ch,255);
> end;
>
> ... a nechapu, kde se bere to zdrzeni.
>
> Muzete mi, prosim, nekdo poradit?
>
> Dekuji
>
> Martin Nedopil
> nedopil(zv)geocities.com
> Delphi kitchen�: http://www.geocities.com/Athens/Olympus/5260
Bitovy posun
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 22:45:18
Miloslav Skacel wrote:
>
> Ahoj,
>
> >nResult := nBase shl nIndex;
>
> nBase shl nIndex = nBase * Power(2,nIndex) =>
>
> nIndex:=Trunc(Log2(nResult div nBase));
>
> Otazkou je, jestli ta smycka neni rychlejsi:)
> >Zatim to delam pomoci takove smycky:
Taky si myslim ze je to rychlejsi, prelozene to vypada nejak takhle:
while nResult <> nBase do
cmp edx, ebx
jz +0x07
begin
nResult := nResult shr 1
shr ebx, 1
Inc(nIndex)
inc esi
end;
cmp edx, ebx
jnz -0x07
Petr Vones, amatersky programator
Btrieve
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.7.1998 22:54:09
Jochman Jan wrote:
>
> Mam problem. Jak na Btrieve 6.10 v Delphi.
> Honza Jochman
Ahoj,
1. Existuji knihovny Titan Btrieve, ale cena je (z meho pohledu) znacna,
okolo 15,000 Kc.
2. Zde je nejaka komponenta:
http://home.global.co.za/~peterv/comps.htm
3. Dalsi moznost bude asi ODBC. Petr Vones, amatersky programator
Jeste jednou transakce
[*] �ke��k Jaroslav�������6�����̿ - 2.7.1998 22:55:44
To je naprosta pravda. K omylu, ze transakce zrychli datovy pristup ovsem
muze dojit celkem snadno.
Kdyz napr. na Interbasi modifikujete nebo pridavate treba 100 zaznamu
najednou,
pak v pripade, ze to uzavrete do transakce (StartTransaction a Commit),
dojde
az k nekolikanasobnemu zrychleni. Pravy duvod zrychleni ovsem neni v te
transakci,
ale spociva jinde. V BDE je nastavena vlastnost AUTOCOMMIT. Ta zpusobi
commit
za kazdym zaznamem, jetlize neexistuje jinak definovana transakce.
Efekt znacneho zrychleni tedy spociva v tom, ze misto stovky transakci
se provede jen jedna!
To muze vest k dojmu, ze ke zrychleni jednoduse doslo diky te transakci.
Jaro
----------------------------------------
>2. Rychlost pristupu k datum nesouvisi naprosto s transakcemi, ty
>zajistuji napr. bezpecnost databaze pri vypadku proudu, pri nekorektnim
>ukonceni programu a pomahaji programatorum udrzet integritu dat bez
>slozitych programovych konstrukci. Obecne bych rekl, ze transakce
>pristup k datum spis zpomaluji - bezpecnost dat koneckoncu neco stoji.
>
Replikace na Interbase.
[*] �ke��k Jaroslav�������6�����̿ - 2.7.1998 23:06:51
Ze serveru Borlandu jsem si stahnul nejakej "Project" na replikaci
Interbase. Bohuzel je k tomu dost trapna dokumentace. Ma s tim nekdo
nejake zkusenosti? Je to pouzitelne nebo jenom ztracim cas?
Jaro.pro pratele PC FANDu ...
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 2.7.1998 23:18:34
Ahoj,
rad bych oznamil, ze na nasem www serveru je k dispozici ke stazeni
aktualizovana verze
knihovny free komponent LibF32, zamerena na vyvoj aplikaci s chovanim
podobnym
datovemu editoru PC FANDu.
Navic je napr: 'multiline headers'; trideni klepnutim na zahlavi sloupce;
pro booleovske udaje
zobrazuje/edituje checkbox; zobrazuje/edituje memo udaje; zobrazuje grafiku;
oznacuje zaznamy
klepnutim na zahlavi radku atd.
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Udalost OnClick
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.7.1998 23:26:25
> Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari, ale je
> vygenerovani pomoci Create(Self). Milan
Uplne normalne:
Label.OnClick := funkce
kde funkce je stejneho typu jako dana udalost...
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Btrieve
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.7.1998 23:26:25
> Mam problem. Jak na Btrieve 6.10 v Delphi.
Pres ODBC.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================pakovani + archivace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.7.1998 23:48:36
> muzete mi prosim nekdo doporucit kvalitni komponentu/knihovnu
> pro pakovani a archivaci s uplnymi zdrojovymi texty, se kterou
> byste meli vlastni zkusenosti.
>
> Nehledam udelatka sita horkou jehlou.
> Pripadne tipy - kudy cesta nevede - jsou take vitany.
Ano, jmenuje se to Abbrevia, je to od TurboPower Software, ale predem
upozornuji, ze to neni free, je to komercni produkt. Pakujete to do
ZIP formatu kompatibilniho s PKZIP 2.04g, podporuje dlouha jmena,
vicenasobne archivy, hesla apod. Blizsi informace i trial verzi
mohu dodat, podrobne informace na webu bohuzel nemam, jeste jsem je
neprelozil a nenapsal... takze muzes kouknout na www.turbopower.com.
Plne funkcni trial je bud tam nebo mohu poslat.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================MaskEdit na penize a sum v DBE
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 3.7.1998 01:25:04
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
nemate nekdo komponentu do D3 jako je EDIT nebo MASKEDIT do ktere je mozno napsat pouze financni castku? Pres masku v MaskEdit se mi to nepovedlo a upravit komponentu jeste neumim.
Existuje v DBE funkce na secteni numerickeho pole bez prochazeni zaznam po zaznamu20
Standa Cerny
s.cerny(zv)mod(tec)cz
tel. 048/510 04 20
048/510 49 85
WinExec a rychlost
[*] voltrr1.epr(zv)mail.cez(tec)cz - 3.7.1998 05:59:55
Nova zprava:
Podle mne ti zdrzuje tu aplikaci ta cekaci cast (protoze to furt zjistuje
jestli to jede nebo ne)Reseni : 1. Pouzit za application.ProcessMessages
funkci WaitForSingleObject(GetCurrentProcess,1000); - bude to testovat
jednou za sekundu coz ti staci a nebude ta asi tak zpomalovat 2. Pouzit
WaitForSingleObject primo na ten vytvoreny process (budes mozna muset
provest nejakou tu konverzi handle z WinExec (ted z hlavy nevim co je to za
typ)) ale pak se ti nebudou zpracovavat message. 3.Udelat do te cekaci
casti nejakej counter aby se existence modulu zjistovala za delsi casovy
okamzik a ne tak casto : napr.var
B:Byte;repeatB:=0;repeatApplication.ProcessMessages;Inc(B)until
Application.Terminated or (B>10); //asi nutno vyzkousetuntil
GetModuleUsage(inst)=0); // tadle funkce ti to podle mne zpomalujeRadek
Voltrvoltrr1.epr(zv)mail.cez(tec)cz
---------------------------------------------------------------
Puvodni zprava:
Mam problem s jednim klientem.
Z meho Win16 programu spoustim na Win95 jeho Dos
program v Clipperu 5.??(?). Pak zpracovava data, ktera mu
predam cca 4x dele, nez kdyz tento program bezi samostatne
tzn. bez meho programu.
Je to P90 16MB RAM, zkouseli jsem to zvednout na 32MB, ale se
stejnym vysledkem.
Zkousel jsem i napsat osekanou verzi programu, ktera jen spoustela
externi program. Ale nic, porad to trvalo 4x dele.
Pouzivam WinExec v tomto kodu:
try
Result:=false;
GetMem(Ch,255);
StrPCopy(Ch,AName);
Inst:=WinExec(Ch,AVisibility);
if Inst < 32 then begin
Exit;
end;
repeat
Application.ProcessMessages;
until Application.Terminated or (GetModuleUsage(Inst)=0);
Result:=true;
finally
FreeMem(Ch,255);
end;
... a nechapu, kde se bere to zdrzeni.
Muzete mi, prosim, nekdo poradit?
Dekuji
Martin Nedopil
nedopil(zv)geocities.com
Delphi kitchen
?: http://www.geocities.com/Athens/Olympus/5260
WinExec a rychlost
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 3.7.1998 07:33:57
>Pokud jsem to dobre pochopil tak mas na pocitaci s Win95 Clipper
>a tvoji 16 bit aplikaci. Prvni co bych zkusil je napsat tu aplikaci
>ktera spousti Clipper ve Win32.
Co se divis, klient to tak chce. Docela rad bych uz psal v D3 jenze ja
pouzivam
AsyncPro 2.10 a ten pro 32bitu obsahuje fatalni chybu. Ta je odstranena ve
verzi
2.51, ale ta je za penizky. A navic u nas se jeste zije Dosem a uz se mi 2x
stalo, ze
jsem program z Win16 prepisoval do Dos verze. Tohle nepreju nikomu...
>Potom bych zkusil v te 16bit verzi odstranit volani
Application.ProcessMessages
>nebo testovani pritomnosti pomoci GetModuleUsage. Dalsi moznost je u
Vlastnosti
>te DOSove aplikace v zalozce Ruzne zkusit nastavit jinak Rozpoznani
necinnosti.
Musim pustit ke korytu i ostatni aplikace a navic musim testovat jestli uz
aplikace neskoncila
takze to nepada v uvahu. Zkusim to "rozpoznani necinnosti".
Diky
Martin
Bitovy posun
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 3.7.1998 07:50:34
Omlouvam se za ten nesmysl co sem tu vypustil ale pri spechu sem uvedl
omylem jiny vzorec takze:
NResult:=NBase shl Nindex je ekvivalentni s NResult:=NBase * 2^Nindex
po uprave to je:
logaritmus pri zakladu 2(bohuzel nevim jak to napsat)
NIndex:=log (NResult / NBase);
po prevodu do prirozeneho logaritmu to je:
NIndex:=ln(NResult / NBase)/(ln 2);
Ovsem ten cyklus bude urcite daleko rychlejsi
-----P�vodn� zpr�va-----
Od: sula milos <crkstrobe(zv)geocities.com>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 2. �ervence 1998 18:16
P�edm�t: Re: Bitovy posun
>Coz takhle nIndex:=nResult/(2^nBase) /aspon doufam pisu to rychle uz
>musim koncit
>
>
>-----P�vodn� zpr�va-----
>Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
>Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Datum: 2. �ervence 1998 14:09
>P�edm�t: Bitovy posun
>
>
>>Mam vysledek nResult, ktery jsem vypocital tak, ze jsem provedl bitovy
>posun
>>cisla nBase do leva o nStep mist. Vzorec vypada asi takto:
>>
>>nResult := nBase shl nIndex;
>>
>>Nevite nekdo jestli existuje nejaky vzorec, kterym bych zase zjistil
>hodnotu
>>nIndex za predpokladu, ze znam nResult a nBase ?
>>Zatim to delam pomoci takove smycky:
>>
>>nIndex := 0;
>>while nResult <> nBase do
>>begin
>> nResult := nResult shr 1
>> Inc(nIndex)
>>end;
>>
>>Diky Vita
>>
>Sledovani aktivity na COM portu
[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 3.7.1998 08:44:03
Zkus hledat soubor MODEMSPY.ZIP. Zobrazuje to diody modemu. Je to pro Delphi
1. Ale to by nemelo asi vadit.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216
-----Pyvodnm zprava-----
Od: Ale9 Berka <aberka(zv)usa.net>
Komu: Delphi Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 2. hervence 1998 20:56
Pxedmlt: Sledovani aktivity na COM portu
Nevite nekdo o zpusobu, jak by se dala zjistovat aktivita na COM portu,
jde mi hlavne o to, ze bych
chtel mit vlastni diody, zvlaste pri pripojeni na internet.
Dik Aleq
Jeste jednou transakce
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.7.1998 08:55:14
Karol Zaic wrote:
> ... Samozrejme, ze databaza bez transakcii je rychlejsia, ale
> neviem ci uzivatela potesi, ked sa mu logicky poskodia udaje. ...
Tak, tak. Zrovna posledni 3 dny jsem resil pady a porouchani 3
paradoxovych tabulek. Zakaznici zrovna potrebovali zpracovat mzdy, a
z meho programu cerpaji udaje. Charakter poruch (rozpadla
hlavicka souboru, narusene bloby) napovida o poruse v systemu (pad
pocitace ve vhodny okamzik a podobne). Zakaznici sice rekli prd, ale
az takove skopiciny nedelam, abych to narusil svym programem. Takze
si rvali vlasy. Takze na souborove databaze jsem definitivne zanevrel
a pro priste se na zakazniky, kteri budou chtit klicovou aplikaci v
souborove databazi, budu zle mracit. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Bitovy posun
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.7.1998 08:55:15
N� wrote:
Nuz, co trebas Log2(nResult/nBase)?
(sakra, to se musim ale pochvalit - tak dlouho ze skoly, a jeste umim
vyresit takovyhle problem :-)))))
> Mam vysledek nResult, ktery jsem vypocital tak, ze jsem provedl
> bitovy posun cisla nBase do leva o nStep mist. Vzorec vypada asi
> takto:
>
> nResult := nBase shl nIndex;
>
> Nevite nekdo jestli existuje nejaky vzorec, kterym bych zase zjistil
> hodnotu nIndex za predpokladu, ze znam nResult a nBase ? Zatim to
> delam pomoci takove smycky:
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
WinExec a rychlost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.7.1998 09:17:25
Martin Nedopil wrote:
>
> >Pokud jsem to dobre pochopil tak mas na pocitaci s Win95 Clipper
> >a tvoji 16 bit aplikaci. Prvni co bych zkusil je napsat tu aplikaci
> >ktera spousti Clipper ve Win32.
>
> Co se divis, klient to tak chce. Docela rad bych uz psal v D3 jenze ja
> pouzivam
> AsyncPro 2.10 a ten pro 32bitu obsahuje fatalni chybu. Ta je odstranena ve
> verzi
Ja pouzivam patch na v2.11, a musim rict ze ta uz funguje o mnoho lepe, jedine
co nefunguje je kdyz pouzivas funkce WaitForString nebo WaitForMultiString
v aplikaci kde mas zaroven datove triggery.
Kdyztak napis o jakou chybu se jedna, treba bude i ve v2.11.
> jsem program z Win16 prepisoval do Dos verze. Tohle nepreju nikomu...
Tak to vazne hruza ....... Potom se lide divi ze aplikace padaji, kdyz si preji
to psat takovym zpusobem.
Petr Vones, amatersky programator
WinExec a rychlost
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 3.7.1998 10:19:26
>Ja pouzivam patch na v2.11, a musim rict ze ta uz funguje o mnoho lepe,
jedine
>co nefunguje je kdyz pouzivas funkce WaitForString nebo WaitForMultiString
>v aplikaci kde mas zaroven datove triggery.
To jsme tu uz asi probirali, psal jsem i do TurboPower chyba byla, ze v
32bit verzi
neuvolnoval nejake handle z pole o 50 prvcich :-) . Dokonce jsem nasel
misto, kde
je problem ale nic, to co poslali na opravu je jeste horsi. A pak jsem si
precet, ze
zrovna tahle chyba byla ve verzi 2.50 opravena :-O.>Tak to vazne hruza ....... Potom se lide divi ze aplikace padaji, kdyz si
preji
>to psat takovym zpusobem.
Oni spise musi neb jedou pod Dosem. A to jsem pro ne jeste musel psat Dos
verzi, ale
pak se rozhodli pro NT server a ze tam bude lepsi Win verze !
Martin
Jeste jednou transakce
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 3.7.1998 10:25:15
>Tak, tak. Zrovna posledni 3 dny jsem resil pady a porouchani 3
>paradoxovych tabulek. Zakaznici zrovna potrebovali zpracovat mzdy, a
>z meho programu cerpaji udaje. Charakter poruch (rozpadla
>hlavicka souboru, narusene bloby) napovida o poruse v systemu (pad
>pocitace ve vhodny okamzik a podobne). Zakaznici sice rekli prd, ale
>az takove skopiciny nedelam, abych to narusil svym programem. Takze
>si rvali vlasy. Takze na souborove databaze jsem definitivne zanevrel
>a pro priste se na zakazniky, kteri budou chtit klicovou aplikaci v
>souborove databazi, budu zle mracit. :-)
Jeste nez to udelas, zvaz tyto napady:
Napad 1: napis tomas.mazurek(zv)vitkovice(tec)cz o opravny program. Je to sice post
mortem, ale...
Napad 2: kdysi jsem tu posilal dokument ohledne padani db tabulek a
opozdenem
cachovani na NT
Napad 3: napis nedopil(zv)geocities.com o TParadoxStream, ktery umi "jen" cist
ruzne db tabulky a je pripadne schopen precist i zdanlive
ztracene zaznamy.
Pokud ani to ne, zkus jeste dbf format. Pak muzes zkusit i neco z alternativ
k BDE no a pak
uz jen nejaky SQL server. Ale nekdy je to prilis tezkopadne reseni.
Tady je fakt kazda rada dobra, tak jsem se snazil..
Martin
Desktop folder
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 03.7.1998 11:09:19
Ahoj
Potrebuji v programu zjistit aktualni adresar (aktualniho uzivatele)
Plochy/Desktop, ve W95 i WNT.
Pokud negdo vite nejakou hezkou Api, tak mi prosim poradte.
Diky
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
InMemory tabulky
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 3.7.1998 11:49:32
Provolani
je tu nekdo, kdo aktivne (v nejake aplikaci) pouziva InMemory tabulky
Paradoxu?
Docela by me zajimalo jak se chovaji, jaka muze byt jejich maximalni
velikost,
o kolik jsou rychlejsi nez ty ulozene na disku, atd.
Jak je vytvorit vim, jen nevim, jak se chovaji.
Martin Nedopil
nedopil(zv)geocities.com
Delphi kitchen�: http://www.geocities.com/Athens/Olympus/5260
Udalost OnClick
[*] ing. Trn�n� Milan <bodlak1(zv)czn(tec)cz> - 3.7.1998 11:56:15
Sorry, ale to nefunguje !!!
----------
> Odes�latel: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Udalost OnClick
> Datum: 2. �ervence 1998 15:07
>
> > Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari,
> > ale je vygenerovani pomoci Create(Self).
> > Milan
> >
>
> Label.OnClick:= JmenoProcedury;
>
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------
Udalost OnClick
[*] ing. Trn�n� Milan <bodlak1(zv)czn(tec)cz> - 3.7.1998 11:57:41
Diky, hned to vyzkousim !
----------
> Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: Re: Udalost OnClick
> Datum: 2. �ervence 1998 18:55
>
> ing. Trn�n� Milan wrote:
> >
> > Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari, ale je vygenerovani pomoci Create(Self).
> > Milan
>
> Ahoj,
>
> tak ze ji napises rucne do private sekce formulare a pri vytvareni
> Labelu ji priradis, viz priklad:
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> procedure MyLabelClick(Sender: TObject);
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> with TLabel.Create(Self) do
> begin
> Caption := '123';
> Parent := Self;
> OnClick := MyLabelClick;
> end;
> end;
>
> procedure TForm1.MyLabelClick(Sender: TObject);
> begin
> MessageBeep(0);
> end;
>
> end.
>
>
> Petr Vones, amatersky programator
> Udalost OnClick
[*] ing. Trn�n� Milan <bodlak1(zv)czn(tec)cz> - 3.7.1998 11:58:04
To nefunguje !!!
----------
> Odes�latel: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Udalost OnClick
> Datum: 3. �ervence 1998 0:26
>
> > Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari, ale je
> > vygenerovani pomoci Create(Self). Milan
>
> Uplne normalne:
>
> Label.OnClick := funkce
>
> kde funkce je stejneho typu jako dana udalost...
>
> *** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
> *** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================Rozbaleni ComboBoxu
[*] Libor Junek <libor(zv)thsoft(tec)cz> - 3.7.1998 13:59:55
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite nekdo jaka procedura je na rozbaleni ComboBoxu??
(Potrebuji aby se mi pri zmacknuti urcite klavesy rozbalil).
Dik
Libor Junek
libor(zv)thsoft(tec)cz
OLE s Excel 7
[*] Karel Petru <epos(zv)pce.fairnet(tec)cz> - 3.7.1998 14:20:03
Nevite nekdo proc tento kod nefunguje s Excel 7pro W95, kdyz funguje s Excel
97.
MSExcel:=CreateOleObject('Excel.Application');
MSExcel.Application.Visible := True;
MSExcel.Application.Workbooks.Open['w:\ole\a.xls'];
Pri pouziti s Excel 7 hlasi chybu EOLESysError "Server vydal vyjimku" - Och,
jak je ta cestina krasny jazyk.
S Excel 97 je vse OK.
Pouzivam OLE spravne?
Karel Petru, EPOS PRO, Pardubice
e-mail: "Petru" <epos(zv)pce.fairnet(tec)cz>remove
[*] Peter Hudec <hudec(zv)ns.basl.sk> - 3.7.1998 14:28:34
>
> Greetings From The Electricity Forum at: http://www.electricityforum.com
>
> A recent survey of the internet found that you or your organization has an interest in electrical engineering. As such, we would like to bring your attention to our web site, which gets more than 170,000 hits per month!
>
> We offer a FREE MEMBERSHIP to our web site, which gives you a regular e-mail newsletter about current North American electric utility industry news, corporate news and product information, as well as updates on our latest technical training seminars and conferences. Join the thousands of electrical industry professionals who are already FREE members.
>
> We also have the largest and most complete on-line Transmission and Distribution Product Directory and Buyer's Guide with hundreds of leading T&D manufacturers and more than 900 product categories to browse.
>
> Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D Companies, Electricity Today Magazine, McGraw HIll Technical Books, Forums and Conferences, Industry Links, Product Showcases, Classifieds, Carreers, etc.
>
> Thanks very much for your time,
>
> Randy Hurst
> President
> rwh(zv)istar.ca
>
>
>
> If you wish to be removed from this advertiser's future mailings, please reply with the subject "Remove" and this software will automatically block you from their future mailings.
>
> Udalost OnClick
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.7.1998 15:04:09
> To nefunguje !!!
>
> > > Mame mensi problem. Jak priradit udalost OnClick Labelu, ktery neni na formulari, ale je
> > > vygenerovani pomoci Create(Self). Milan
> >
> > Uplne normalne:
> >
> > Label.OnClick := funkce
> >
> > kde funkce je stejneho typu jako dana udalost...
Ale funguje to. Ze ty jsi neudelal tu funkci stejneho typu
jako ma opravdu byt?
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Animovany GIF
[*] svatos(zv)af(tec)czu(tec)cz - 3.7.1998 15:07:10 met
> Zdravim vsetkych,
> neviete mi nahodou niekto poradit (mozno je to lahke, ale nic ma
> nenapada ...), ako zmensit animovany GIF ? Cosi ako stretch v Delphi,
> ale aby sa zmensila aj fyzicka velkost suboru, t.j. aby sa ten subor
> GIF zmensil naozaj, nie len "vizualne". Mam par peknych animovanych
> Gifov na stranku, ale maju dost vela kb ...
>
> Dakujem za vsetky rady ...
>
Zdar.
Ja bych to natahl do nejakyho Gif animatoru a zmensil jednotlive
obrazky ...