Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Ceske fonty
[*] Pavel Chaloupka <chaloupka(zv)com-tech(tec)cz> - 4.10.1997 15:20:30
Zdravim vsechny!
Nakonec se mi podarilo ty CS fonty vyresit pomerne nestandartnim zpusobem.
Nakopiroval jsem soubor Graphics.pas do adresare delphi\Lib. V nem jsem
prepsal v metode
kde se vytvari font DEFAULT_CHARSET na EASTEUROPE_CHARSET. Pak jsem udelal
rebuild knihovny. No a uz to pise cesky. Pozor jakakoli jina zmena ma za
nasledek hlasku
unit Controls je zkompilovan jinou verzi Graphics.
Pavel Chaloupka
E-Mail : chaloupka(zv)com-tech(tec)cz
Ceske fonty
[*] Pavel Chaloupka <chaloupka(zv)com-tech(tec)cz> - 4.10.1997 15:20:35
-----Original Message-----
From: Ivo Liska <lisak(zv)vszbr(tec)cz>
To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Date: 3. listopadu 1997 19:21
Subject: Re: Ceske fonty
>On Mon, 3 Nov 1997, Pavel Chaloupka wrote:
>
>> Mam nasledujici problem:
>> Chci pouzit cesky (CE) font v Delphi 2.0 pod Windows NT 4.0 US. Problem
je v
>> tom, ze v ceskych
>> Win95 to chodi a v NT US ne.
>> Dival jsem se do zdroju, jak se ty fonty vytvari a on tam pouziva funkci
>> CreateFontIndirect() a v znakove sade dava DEFAULT_CHARSET. Po konzultaci
s
>> nekterymi
>> kolegy jsem dosel k nazoru, ze v NT asi spatne funguji FontSubstitutes.
>
>*** Presne tak. Do Win NT je treba aplikovat Service Pack 3, pak
tak jsem to proveril a mam tam nainstalovany Service Pack 3, porad je to
anglicky
>by se to melo ve vetsine pripadu umravnit. U nekterych aplikaci
>to nefunguje (napr. WordPro 96 8-[ ) Muze to ovsem take byt
>zpusobeno tim, ze NT pouzivaji UNICODE fonty, tedy jiny zpusob
>vyberu spravne sady znaku nez Win 95.
>
>> V Win95 je toto ulozeno v Ini souboru Win.INI, NT to maji v registru.
>> Hodnoty jsou stejne,
>> ale v NT to proste nechodi...
>
>*** Pouha oprava registry nepomaha, je treba zamenit nektere
>soubory (nevim presne ktere) pomoci SP3.
>
> S pozdravem
> Lisak
>
>
>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Ivo Liska Dept. of Informatics
> WWW & LAN Administrator Mendel University of Agriculture & Forestry
> Zemedelska 1, Brno 61300
> E-mail: lisak(zv)vszbr(tec)cz Czech Republic, Central Europe
>
> Muzete mi psat cesky v ISO-8859-2! (viz - http://www.cestina(tec)cz/)
>
Dialog pro vyber adresare
[*] Pavel Hlousek <Pavel.Hlousek(zv)st.ms.mff.cuni(tec)cz> - 04.10.1997 15:35:50
Vojtech Semecky wrote:
>
> > Nevite, prosim, nekdo jestli je ve Windows95/NT4.0 definov n
> > standardni dialog pro vyber adresare (takovy, jaky je obsazen
> > ve standardnim vyhledavacim programu v nabidce Start).
> > V kladnem pripade, jakou funkci jej lze vyvolat z Delphi 3 ?
>
> Tento dialog existuje. Hledej na DSP neco jako BrowseFolder.
>
Co je to DSP?Z�stupce programu
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 04.10.1997 15:45:27
Nazdar v�ichni,
m�m dotaz. U z�stupce programu se d� nastavit zp�sob spou�t�n� (norm�ln�
okno, minimalizovan�, maximalizovan�). Aplikace vytvo�en� v delphi to
v�ak automaticky nepodporuj�. Asi si tuto vlastnost mus�m obslou�it v
aplikaci s�m, ale nev�m odkud zjist�m hodnotu tohoto parametru.
D�ky za radu
Vita
Alokace pameti - ZDROJAK TESTU
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 04.10.1997 17:11:21
Tak jsem si to taky zkusil, protoze takove chyby jsou mou nocni murou.
Me to souhlasi na bajt (Pentium 32MB,W95, D3).Kdyby ste se nokdo
dopatral pravdy dejte urcite vedet.
Vaclav Sazima
mys
[*] Ing. Josef Kryml <Kryml(zv)uhul(tec)cz> - 4.10.1997 17:32:27
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Dobry den,
jak mohu naprogramovat kliknuti mysi v Delphi2.
Dekuji.
------------------------------------------
Kryml Josef
E-Mail: kryml(zv)uhul(tec)cz
------------------------------------------
Dialog pro vyber adresare
[*] jpivonka(zv)bbs.infima(tec)cz - v 1997 17:38:04
DE>> Tento dialog existuje. Hledej na DSP neco jako BrowseFolder.
DE>Co je to DSP?
Delphi Super Page. http://sunsite.icm.edu.pl/delphi/
Jarda 8-{ <pivonka(zv)ibm.net>Dialog pro vyber adresare
[*] Radim Kunz <ogrware(zv)ova.inec(tec)cz> - 4.10.1997 17:44:24
> Co je to DSP?
Delphi Super Page
Orginal je na http://SunSITE.icm.edu.pl/delphi/
Pokud jsi na Cesnetu, je lepsi mirror http://sunsite.icm.edu.pl/~robert/delphi/
Radim Kunz
----------
Mirror je samozrejme na http://sunsite.mff.cuni(tec)cz/delphi/ , to predtim byl preklem
Radim Kunz
mys
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 4.10.1997 19:05:34
> jak mohu naprogramovat kliknuti mysi v Delphi2.
Jestli tim myslis simulovat kliknuti mysi tak se podivej do helpu na funkci:
mouse_event - simuluje akci mysi
McLEI
CGI
[*] Michal Krause <m-krause(zv)usa(tec)net> - 04.10.1997 19:34:50
Burger Tom� wrote:
>
> > -----P�vodn� zpr�va-----
> > Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> > Na techto dvou je to v STDIN a STDOUT. Mam to vyzkouseno.
> [T.B.]
> Jenom znovu pripodotknu: na tech dvou bych zrovna volil radsi psani
> ISAPI scriptu... Jsou rychlejsi (i kdyz trosku nebezpecnejsi... tj pri
*** Za prve o ISAPI nic nevim, o CGI alespon trosicku ano
> chybe muzou sundat cely web server, i kdyz me PWS drzel i pres spoustu
*** Tak proc bych to mel riskovat ? Kdysi bylo v tehle konferenci
receno,
ze ISAPI je mnohem nebezpecnejsi nez CGI, protoze (cituji) "je
zavaden
do kontextu Web Serveru". Tak nevim. Radsi snad to CGI. Mike
> chyb... :) )...
>
> Tomas
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
---====> M I C H A L K R A U S E <===---
---===>>> Grafika, 3D Studio MAX, Delphi, WEB, JAVA <<<===---
--= Spoluautor neoficialnich stranek muzikalu KRYSAR =--
--+-+-+ http://web.pinknet(tec)cz/krysar +-+-+--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
"Muzeme mit vsechno, co chceme, pokud chceme jenom
to, co muzeme mit." Moritz von Schwindt
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
CGI
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.10.1997 00:27:18
> ze ISAPI je mnohem nebezpecnejsi nez CGI, protoze (cituji) "je
> zavaden
> do kontextu Web Serveru". Tak nevim. Radsi snad to CGI. Mike
> > chyb... :) )...
No jiste, ze ISAPI je mnohem nebezpecnejsi, protoze jde primo na API,
ale na druhou stranu CGI je pomalejsi... a nema takove moznosti.
Jinak pokud jde o IIS nebo PWS, pak doporucuji ASP, to je jeste lepsi,
protoze to neni nebezpecne a je to jednoduche...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Novell & Delphi
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 05.10.1997 07:29:28
Ahooj konference,
po poslednim uspechu (jeste jednou diky, Pavle) se na Vas obracim s
dalsi prosbou.
Hledam nejake zdroje o Delphi a Novellu - nejake knihovny, komponenty.
Za uspech bych pokladal i popis funkci v knihovne NwCalls.dll, ktera se
instaluje s Win Clientem od Novella ...
Pokud byste nekdo o necem vedel, dejte mi vedet, mockrat Vam dekuji a
mejte se dobre,
Peter Rus
peterrus(zv)geocities.com
Datum a �as
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 05.10.1997 09:36:39
Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u naj�t ��dnou takovou
funkci v Delphi ani v API. Mohl bych si ji napsat, ale nezn�m form�t 64
bitov� hodnoty TDateTime.
D�ky za radu
Vita
Novell & Delphi
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 5.10.1997 09:51:12
>Hledam nejake zdroje o Delphi a Novellu - nejake knihovny, komponenty.
>Za uspech bych pokladal i popis funkci v knihovne NwCalls.dll, ktera se
>instaluje s Win Clientem od Novella ...
Stahni si zdarma od Novella SDK - jsou tam u definice pro Delphi. A v helpu
jsou vsechny funkce popsany.
Ma to jednu nevyhodu - funguje to jen s Novell 32bitovym klientem - s tim
Microsoftim ne
McLEI
Datum a �as
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 5.10.1997 09:55:32
>Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u naj�t ��dnou takovou
>funkci v Delphi ani v API. Mohl bych si ji napsat, ale nezn�m form�t 64
>bitov� hodnoty TDateTime.
Format TDateTime je jednoduchy - je to prepocitane na pocet dni - tzn. =1
znamena jeden den od nakyho pevnyho datumu - tusim 30-12-1900, ale nejsem si
jistej.
Takze kdyz ty dva datumy odectes dostanes rozdil ve dnech. tzn pokud
dostanes 1 lisi se prave o den.
pokud dostanes 0.5 lisi se prave o pul dne = 12hodin, 0.25=6hodin.
Takze v sekundach to je (D2-D1)*24*60*60 je rozdil v sekundach.
Cau
McLEI
PS: Staci se nejdriv podivat do helpu nez se zacnu blbe ptat!Datum a �as
[*] Urx Lubom�r <Lubos.Urx(zv)mius(tec)cz> - 5.10.1997 10:06:10
Posilam kopii prislusne stranky Helpu Delphi. Pozadovany rozdil se uz
nabizi.
Unit
System
Declaration
TDateTime: type Double;
Description
TDateTime is the type used by date and time routines to hold date and
time values.
Delphi stores date and time values in the TDateTime type. The integral
part of a TDateTime value is the number of days that have passed since
12/30/1899. The fractional part of a TDateTime value is the time of day.
Following are some examples of TDateTime values and their corresponding
dates and times:
0 12/30/1899 12:00 am
2.75 1/1/1900 6:00 pm
-1.25 12/29/1899 6:00 am
35065 1/1/1996 12:00 am
To find the fractional number of days between two dates, simply subtract
the two values. Likewise, to increment a date and time value by a
certain fractional number of days, simply add the fractional number to
the date and time value.
Note: Delphi 1.0 calculated the date from year 1 instead of from 1899.
To convert a Delphi 1.0 date to a Delphi 2.0 date, subtract 693594.0
from the Delphi 1.0 date. The date format changed to be more compatible
with OLE 2.0 Automation.
--------------------------------
Lubomir Urx
MIUS Teplice, v.o.s.
lubos.urx(zv)mius(tec)cz
> ----------
> Od: V�t�zslav Gazda[SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 5. listopadu 1997 9:36
> Komu: �esk� Delphi konference
> P�edm�t: Datum a �as
>
> Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u naj�t ��dnou
> takovou
> funkci v Delphi ani v API. Mohl bych si ji napsat, ale nezn�m form�t
> 64
> bitov� hodnoty TDateTime.
>
> D�ky za radu
> Vita
> Datum a �as
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 5.10.1997 10:23:05
Ja to resim tak, ze prevedu TFileTime na Extended.
Prikladam zdrojaky.
Pokud nekdo zna lepsi zpusob at prosim da vedet. Prolezal
jsem API horem
dolem a nikde jse nic lepsiho nenasel (krom priblble funkce
na porovnani dvou TFileTime a
nejakych rotaci a deleni nad 64 bitovymi cisly).
TFileTime vymyslel nejakej uletar -kdo potrebuje vedet
kolik uplynulo
desetin mikrosekund od roku 1600?.
Function MakeExtendedFromInt(I : Integer) : Extended;
begin
if I >= 0 then
Result := I
else
Result := 4294967296.0-Abs(I);
end;
Function GetFileTimeInSeconds(VAR FT : TFileTime) :
Extended;
begin
try
Result :=
MakeExtendedFromInt(FT.dwHighDateTime)*4294967296.0+
MakeExtendedFromInt(FT.dwLowDateTime);
Result := Result/10000000;
except
Result := 0;
end;
end;
----------
> Odes�latel: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
> Komu: �esk� Delphi konference <delphi(zv)pinknet(tec)cz>
> P�edm�t: Datum a �as
> Datum: 5. listopadu 1997 9:36
>
> Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u naj�t
��dnou takovou
> funkci v Delphi ani v API. Mohl bych si ji napsat, ale
nezn�m form�t 64
> bitov� hodnoty TDateTime.
>
> D�ky za radu
> Vita
Novell & Delphi
[*] Petr Linhart <petr(zv)spssul.hiedu(tec)cz> - 5.10.1997 10:25:59
Skus si ztahnout NOVLIB31 z WWW.BLINKINC.COM je tam trial verze ale
snad Ti to bude stacit. Pokud to bude trvat, tak Ti to mohu poslat
primo postou.
Cau Petr
> Date: Wed, 05 Nov 1997 07:29:28 +0100
> From: Peter Rus <peterrus(zv)geocities.com>
> To: Delphi konference <delphi(zv)pinknet(tec)cz>
> Subject: Novell & Delphi
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Ahooj konference,
>
> po poslednim uspechu (jeste jednou diky, Pavle) se na Vas obracim s
> dalsi prosbou.
>
> Hledam nejake zdroje o Delphi a Novellu - nejake knihovny, komponenty.
> Za uspech bych pokladal i popis funkci v knihovne NwCalls.dll, ktera se
> instaluje s Win Clientem od Novella ...
>
> Pokud byste nekdo o necem vedel, dejte mi vedet, mockrat Vam dekuji a
> mejte se dobre,
>
> Peter Rus
> peterrus(zv)geocities.com
>
>
Petr Linhart - systemovy programator W16, W32
Datum a �as
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 5.10.1997 11:07:33
TDateTime je real cislo, ktere obsahuje v celych cislech pocet dni od
nejakeho datumu, v desetinne casti cas jako zlomek dne (tzn. 0 je jedna
pulnoc, 1/2 je poledne a 1 je dalsi pulnoc...).
Staci tedy ty datumy od sebe odecist a vynasobit poctem sekund za den...
Tomas
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 5. listopadu 1997 9:37
> Komu: �esk� Delphi konference
> P�edm�t: Datum a �as
>
> Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u naj�t ��dnou
> takovou
> funkci v Delphi ani v API. Mohl bych si ji napsat, ale nezn�m form�t
> 64
> bitov� hodnoty TDateTime.
>
> D�ky za radu
> Vita
chyba BDE
[*] Karel_Babka(zv)eurotel(tec)cz - 5.10.1997 11:23:42
Zkusel jsem nainstalovat BDE 4.0 na ceske Win95 (novejsi Build s Internet
Explorerem),
a pri pripojovani na MSACESS DB (Office 95 i 97), mi to tvrdosine hlasilo -
Cannot load
an IDAPI service library, pritom na PanEuro Windows 95 nebo NT 4.0 to
chodi naprosto
v pohode .... neni to zvlastni ????
Predem diky za rady
Karel
Datum a �as
[*] Martin Kube�ka <M.Kubecka(zv)sh.cvut(tec)cz> - 5.10.1997 11:33:08
> PS: Staci se nejdriv podivat do helpu nez se zacnu blbe ptat!
Ale no tak McLEI, zadny uceny z nebe nespadl a zadny dotaz neni "blby" ;)))
Mac
Novell & Delphi
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 05.10.1997 11:34:38
Diky Michale,
ale kde ho najdu ... a hlavne, jak je to velke ??
Mockrat diky za odpoved,
Peter
Michal Leinweber wrote:
> >Hledam nejake zdroje o Delphi a Novellu - nejake knihovny,
> komponenty.
> >Za uspech bych pokladal i popis funkci v knihovne NwCalls.dll, ktera
> se
> >instaluje s Win Clientem od Novella ...
>
> Stahni si zdarma od Novella SDK - jsou tam u definice pro Delphi. A v
> helpu
> jsou vsechny funkce popsany.
> Ma to jednu nevyhodu - funguje to jen s Novell 32bitovym klientem - s
> tim
> Microsoftim ne
>
> McLEI
Kodovani dat pro prenos
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 05.10.1997 11:39:13
Ahoj Romane,
a nebylo by lepsi vyresit tento problem hardwarove ?? To znamena
predsunout vysilaci (a zaradit za prijimac) nejaky chip, ktery by
provadel dekodovani ?? Jako fanda valecnych technologii se domnivam, ze
softwarove sifrovani bezdratoveho prenosu je trosku z obliga .. ale asi
budes potrebovat nekoho, kdo ti ten chip naprogramuje ( ja ne :-)) ) ...
Zkus o tom popremyslet .. jde-li ti o nejvyssi zabezpeceni prenosu, tak
to softwarove asi neochranis. Porad je jednodusi zkopirovat a
diasemblovat program, nez rozlozit kremikovy chip na elementy.
Mej se,
Peter Rus
peterrus(zv)geocities.com
Roman Kanovsky wrote:
> Dobry den ci noc vsem,
> potrebuju vyresit nasledujici problem:
> Potrebuju zabezpecit prenos dat, tak aby byl temer nedekodovatelny.
> Prenos bude probihat pres sit, seriovy port infracervene nebo
> bezdratove
> (zalezi na konkretni implementaci). Vzhledem k bezdratovemu prenosu je
> nutne
> pouzit co nejbezpecnejsi zpusob. hledal jsem neco pro delphi, ale
> vetsina
> jsou hotove knihovny a to mi nevyhovuje, protoze komunikace bude
> probihat
> mezi PC a zarizenim s jednochipem nebo mezi PC a PC.
> Uvital bych proto nejaky zdrojovy kod, nebo alespon odkaz kde se da
> najit
> (PAscal, C, ASM).
> Pro lepsi predstavu prikladam prubeh komunikace:
>
> Predstaveni zarizeni
> *heslo
> Prikaz
> *data
> Konec spojeni
>
> polozky oznacene * musi byt kodovany. Ma predstava je nasledujici:
>
> Po predstaveni si zarizeni vymeni klice a pak pomoci techto klicu
> koduji
> data. Je vsak dulezite, aby se klice dynamicky menily ( kvuli
> radiovemu
> prenosu)
>
> Dekuji Roman K.
>
> BTW: pokud je to offtopic moc, tak se omlouvam
Datum a �as
[*] NN Slovakia <nnsk(zv)isternet.sk> - 5.10.1997 12:21:23
function ElapsedSeconds(const Date1, Date2 : TDateTime) : Double;
var
ElapsedTime : TDateTime;
Days, Hours, Mins, Secs, MSecs : Word;
begin
ElapsedTime := Date2 - Date1;
{celociselna cast je pocet dni}
Days := Trunc(ElapsedTime);
DecodeTime(ElapsedTime, Hours, Mins, Secs, MSecs);
Result := Secs + 60 * (Mins + 60 * (Hours + (24 * Days)));
{ak chces zaokruhlovat}
if MSecs >= 500 then
Result := Result + 1;
end;
Ondrej Kelle it(zv)nnsk.sk
----------
> From: Vmtlzslav Gazda <softda(zv)mbox.vol(tec)cz>
> To: Heska Delphi konference <delphi(zv)pinknet(tec)cz>
> Subject: Datum a �as
> Date: 5. november 1997 9:36
>
> Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u naj�t ��dnou takovou
> funkci v Delphi ani v API. Mohl bych si ji napsat, ale nezn�m form�t 64
> bitov� hodnoty TDateTime.
>
> D�ky za radu
> Vita
> Novell & Delphi
[*] NN Slovakia <nnsk(zv)isternet.sk> - 5.10.1997 12:28:02
Ja mam NWLib, najdes to na www.devont.com
Zdar
Ondrej Kelle it(zv)nnsk.sk
----------
> From: Peter Rus <peterrus(zv)geocities.com>
> To: Delphi konference <delphi(zv)pinknet(tec)cz>
> Subject: Novell & Delphi
> Date: 5. november 1997 7:29
>
> Ahooj konference,
>
> po poslednim uspechu (jeste jednou diky, Pavle) se na Vas obracim s
> dalsi prosbou.
>
> Hledam nejake zdroje o Delphi a Novellu - nejake knihovny, komponenty.
> Za uspech bych pokladal i popis funkci v knihovne NwCalls.dll, ktera se
> instaluje s Win Clientem od Novella ...
>
> Pokud byste nekdo o necem vedel, dejte mi vedet, mockrat Vam dekuji a
> mejte se dobre,
>
> Peter Rus
> peterrus(zv)geocities.com
> Rebuild packages
[*] Petr Kol�� <petrkolar(zv)melzer(tec)cz> - 5.10.1997 12:50:03
Ahoj
Nevite nekdo jestli jde prebildovat balicky dodane od Borlandu (napr. dcldb30.dpl). Nikde jsem nenasel zdrojaky (*.dpk) k temto balickum. Pokud upravim zdrojak a zkompiluji program, zmeny se uplatni. Nektere zmeny jsou ale potrebne i v "Design Time". Mam Delphi C/S 3.0.
S pozdravem
Petr
Petr Kol��
mailto:petrkolar(zv)melzer(tec)cz
http://www.melzer(tec)cz
Datum a �as
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 05.10.1997 13:05:17
Omlouv�m se za blbou ot�zku a d�ky.TDateTime a real ?? (was Re: Datum a has)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 5.10.1997 14:21:40
On Wednesday, November 05, 1997 11:08 AM, Burger Tom�
[SMTP:Tomas.Burger(zv)mius(tec)cz] wrote:
> TDateTime je real cislo, ktere obsahuje v celych cislech pocet dni od
> nejakeho datumu, v desetinne casti cas jako zlomek dne (tzn. 0 je jedna
> pulnoc, 1/2 je poledne a 1 je dalsi pulnoc...).
Neda mi to, a jeste jednou si rypnu.
Opravdu je TDateTime Real nebo je Double ? Pokud je Real,
tak jak je to s presnosti (viz. predchozi zpravy: Chyba fce TRUNC) ?
On Thursday, October 30, 1997 2:49 PM, Jirka Burian [SMTP:jburian(zv)borland(tec)cz]
wrote:
> ... k tem kratkejm realnejm cislum a Trunc funkci:
> (Hledal jsem vsude mozne a nic co by se vam libilo jsem nenasel)
>
> 1. Borland nedoporucuje v Delphi pouzivani Single a Real
Zdenek Prantl
chyba BDE
[*] Karel_Babka(zv)eurotel(tec)cz - 5.10.1997 15:06:15
Zkusel jsem nainstalovat BDE 4.0 na ceske Win95 (novejsi Build s Internet
Explorerem),
a pri pripojovani na MSACESS DB (Office 95 i 97), mi to tvrdosine hlasilo -
Cannot load
an IDAPI service library, pritom na PanEuro Windows 95 nebo NT 4.0 to
chodi naprosto
v pohode .... neni to zvlastni ????
Predem diky za rady
Karel
Novell & Delphi
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 5.10.1997 15:43:33
>> Stahni si zdarma od Novella SDK - jsou tam u definice pro Delphi.
>ale kde ho najdu ... a hlavne, jak je to velke ??
Hledej na www.novell.com.
Nevim ktera verze je posledni ale ja mam SDK12 a ma to zabaleny 20MB.
Kdybys to ste to nekdo chtel muzu to dat na ftp (sem na CESNETu)
McLEI
Datum a �as
[*] Petr Linhart <petr(zv)spssul.hiedu(tec)cz> - 5.10.1997 15:55:50
Tak udelej pouze:
X1, X2: TDateTime;
X := X1-X2;
DecodeTime(X, H, M, S, MS);
By happy and read manuals.. :-)))> Date: Wed, 05 Nov 1997 09:36:39 +0100
> From: "V�t�zslav Gazda" <softda(zv)mbox.vol(tec)cz>
> Organization: Software TDA
> To: "�esk� Delphi konference" <delphi(zv)pinknet(tec)cz>
> Subject: Datum a �as
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u naj�t ��dnou takovou
> funkci v Delphi ani v API. Mohl bych si ji napsat, ale nezn�m form�t 64
> bitov� hodnoty TDateTime.
>
> D�ky za radu
> Vita
>
>
Petr Linhart - systemovy programator W16, W32
Kodovani dat pro prenos
[*] Petr Linhart <petr(zv)spssul.hiedu(tec)cz> - 5.10.1997 16:00:20
[P��loha v souboru: bcrypt.zip]
mam (cizi) komponentu pro kryptovani ciselnym klicem. Treba by jsi ji
mohl pouzit. Je mala, tak ji posilam do konference. Prosim
nekamenujte me za to :)))
> From: "Roman Kanovsky" <rkan(zv)ms.anet(tec)cz>
> To: "Delphi konference" <delphi(zv)pinknet(tec)cz>
> Subject: Kodovani dat pro prenos
> Date: Tue, 4 Nov 1997 14:56:41 +0100
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Dobry den ci noc vsem,
> potrebuju vyresit nasledujici problem:
> Potrebuju zabezpecit prenos dat, tak aby byl temer nedekodovatelny.
> Prenos bude probihat pres sit, seriovy port infracervene nebo bezdratove
> (zalezi na konkretni implementaci). Vzhledem k bezdratovemu prenosu je nutne
> pouzit co nejbezpecnejsi zpusob. hledal jsem neco pro delphi, ale vetsina
> jsou hotove knihovny a to mi nevyhovuje, protoze komunikace bude probihat
> mezi PC a zarizenim s jednochipem nebo mezi PC a PC.
> Uvital bych proto nejaky zdrojovy kod, nebo alespon odkaz kde se da najit
> (PAscal, C, ASM).
> Pro lepsi predstavu prikladam prubeh komunikace:
>
> Predstaveni zarizeni
> *heslo
> Prikaz
> *data
> Konec spojeni
>
> polozky oznacene * musi byt kodovany. Ma predstava je nasledujici:
>
> Po predstaveni si zarizeni vymeni klice a pak pomoci techto klicu koduji
> data. Je vsak dulezite, aby se klice dynamicky menily ( kvuli radiovemu
> prenosu)
>
>
> Dekuji Roman K.
>
> BTW: pokud je to offtopic moc, tak se omlouvam
>
>
>
Petr Linhart - systemovy programator W16, W32
N�sleduj�c� odd�l obsahuje soubor, kter� byl pro p�enos upraven do
form�tu MIME. Pou��v�te-li Pegasus Mail, nebo jin� po�t. program,
vyhovuj�c� MIME, m��ete jej zobrazit/odd�lit p��mo va��m
po�t. programem, jinak po��dejte o pomoc spr�vce syst�mu.
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: bcrypt.zip
Date: 17 Sep 1997, 8:13
Size: 8237 bytes.
Type: ZIP-archive
Pdx locking
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 5.10.1997 16:09:06
Ahoj,
nevite nekdo jak zjistit, je-li dany zaznam zamceny ?
Zkousel jsem
ATable.UpdateCursorPos;
Check(DbiIsRecordLocked(ATable.Handle, WBool));
Result:= Boolean(WBool);
ale to funguje pouze pro zamky z tehoz programu. Pokud
zamek vytvori jina instance programu tak uz ten zamek nepozna.
Diky
Milos
Datum a �as
[*] Dalibor Toman <fortech(zv)fortech(tec)cz> - 5.10.1997 16:43:52
Aha, prekoukl jsem se. Vsugeroval jsem si, ze dotaz se
toci okolo TFileTime.
P.S. ma nekdo nejake elegantnejsi reseni prevodu FileTime
na sekundy (ci na cokoli s cimz se da pocitat) nez jsem
predvedl
v minulem prispevku?
----------
> Odes�latel: Burger Tom� <Tomas.Burger(zv)mius(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> P�edm�t: RE: Datum a �as
> Datum: 5. listopadu 1997 11:07
>
> TDateTime je real cislo, ktere obsahuje v celych cislech
pocet dni od
> nejakeho datumu, v desetinne casti cas jako zlomek dne
(tzn. 0 je jedna
> pulnoc, 1/2 je poledne a 1 je dalsi pulnoc...).
> Staci tedy ty datumy od sebe odecist a vynasobit poctem
sekund za den...
> Tomas
>
> > -----P�vodn� zpr�va-----
> > Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> > Odesl�no: 5. listopadu 1997 9:37
> > Komu: �esk� Delphi konference
> > P�edm�t: Datum a �as
> >
> > Jak z�sk�m rozd�l dvou datum� v sekund�ch ? Nem��u
naj�t ��dnou
> > takovou
> > funkci v Delphi ani v API. Mohl bych si ji napsat, ale
nezn�m form�t
> > 64
> > bitov� hodnoty TDateTime.
> >
> > D�ky za radu
> > Vita
Kodovani dat pro prenos
[*] Vit Malecek <malecek(zv)melzer(tec)cz> - 5.10.1997 16:57:50
V Computer Worldu vych�z� na pokra�ov�n� seri�l o ?ifrov�n� (dosti podrobn�, a? siln� odborn�). J� osobn� to ne�tu. V ��sle 41 (z 10.10.1997) vy?la ji? 30. ��st.
Vit Malecek, Czech Republic
Phone number: .: +420-(0)508-27141, +420-(0)508 330 301, +420-(0)508 330 303
malecek(zv)melzer(tec)cz
-----P�vodn� zpr�va-----
Od: Roman Kanovsky [SMTP:rkan(zv)ms.anet(tec)cz]
Odesl�no: 4. XI 1997 14:57
Komu: Delphi konference
P�edm�t: Kodovani dat pro prenos
Dobry den ci noc vsem,
potrebuju vyresit nasledujici problem:
Potrebuju zabezpecit prenos dat, tak aby byl temer nedekodovatelny.
Prenos bude probihat pres sit, seriovy port infracervene nebo bezdratove
(zalezi na konkretni implementaci). Vzhledem k bezdratovemu prenosu je nutne
pouzit co nejbezpecnejsi zpusob. hledal jsem neco pro delphi, ale vetsina
jsou hotove knihovny a to mi nevyhovuje, protoze komunikace bude probihat
mezi PC a zarizenim s jednochipem nebo mezi PC a PC.
Uvital bych proto nejaky zdrojovy kod, nebo alespon odkaz kde se da najit
(PAscal, C, ASM).
Pro lepsi predstavu prikladam prubeh komunikace:
Predstaveni zarizeni
*heslo
Prikaz
*data
Konec spojeni
polozky oznacene * musi byt kodovany. Ma predstava je nasledujici:
Po predstaveni si zarizeni vymeni klice a pak pomoci techto klicu koduji
data. Je vsak dulezite, aby se klice dynamicky menily ( kvuli radiovemu
prenosu)
Dekuji Roman K.
BTW: pokud je to offtopic moc, tak se omlouvam
Novell & Delphi
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 05.10.1997 17:46:06
Petre,
mockrat dekuji, zda se, ze to je neco,. co hledam .. mockrat diky !!
Peter (he, ty jsi vlastne jmenovec .. tomu se rika postreh :-)) )
Petr Linhart wrote:
> Skus si ztahnout NOVLIB31 z WWW.BLINKINC.COM je tam trial verze ale
> snad Ti to bude stacit. Pokud to bude trvat, tak Ti to mohu poslat
> primo postou.
>
> Cau Petr
>
> > Date: Wed, 05 Nov 1997 07:29:28 +0100
> > From: Peter Rus <peterrus(zv)geocities.com>
> > To: Delphi konference <delphi(zv)pinknet(tec)cz>
> > Subject: Novell & Delphi
> > Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
>
> > Ahooj konference,
> >
> > po poslednim uspechu (jeste jednou diky, Pavle) se na Vas obracim s
> > dalsi prosbou.
> >
> > Hledam nejake zdroje o Delphi a Novellu - nejake knihovny,
> komponenty.
> > Za uspech bych pokladal i popis funkci v knihovne NwCalls.dll, ktera
> se
> > instaluje s Win Clientem od Novella ...
> >
> > Pokud byste nekdo o necem vedel, dejte mi vedet, mockrat Vam dekuji
> a
> > mejte se dobre,
> >
> > Peter Rus
> > peterrus(zv)geocities.com
> >
> >
> Petr Linhart - systemovy programator W16, W32
Novell & Delphi
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 05.10.1997 17:47:11
Ondro,
rovnez ti prevelice dekuji, dejz ti panbuh dobre zdravi :-))
Peter
NN Slovakia wrote:
> Ja mam NWLib, najdes to na www.devont.com
>
> Zdar
>
> Ondrej Kelle it(zv)nnsk.sk
>
otevirani otevreneho souboru
[*] zzntabor(zv)mbox.vol(tec)cz - 05.10.1997 18:03:03
Pavel Kral wrote:
> potrebuji otevirat ke cteni soubor, ktery je otevreny systemem k
> zapisu.
> Zkousel jsem ho kopirovat DOSovym COPY a to jde, ale pascalovskym
> FIleOpen to nejde, proto se pokousim pouzit API funkci CreateFile.
Tento problem jsem resil pres FileMode=63 nebo 64, kde prvni umoznuje
otevrit soubor pri zdileni pro cteni a druhy i pro zapis. Nebo naopak.
> Prikladam zdrojak k testum, zkuste otevirat soubor s logovanim modemu
> kdyz jste pripojeni k internetu (windows\modemlog.txt).
Tak to jsem nezkousel.
Hodne zdaru
Ondrej Cilek,
spravce site,
zzntabor(zv)mbox.vol(tec)cz
Padavka po UnPrepare
[*] Martin Kubecka <M.Kubecka(zv)sh.cvut(tec)cz> - 5.10.1997 19:17:16
Zdravicko vsem!
Nebudu otalet a prejdu rovnou k veci. Aplikace se nam uspesne rozrusta (Delphi3 + MS SQL 6.5) a taky zacina (jiz mene uspesne) padat. Zatim to vypada na problemy pri volani metody UnPrepare u TQuery - dojde k Access violation a program padne na usta. Ovsem nepada to vzdy (jak jinak taky ;). Da se rict, ze to padne nejcasteji v nasledujicim pripade. Mam formular 1 s daty zalozenymi na TStoredProcedure (data jsou aktivni). Prejdu na formular 2 ve kterem sem mel aktivni data zalozene na TQuery. V tomto formulari 2 chci obnovit data (znovu spustit dotaz - tj. provedu Close a pote Open). Pri zavolani UnPrepare (resp. pri Close) onoho TQuery se mi program odporouci pryc. Ale az kdyz cyklus Close - Open udelam podruhe (neni to pravidlem - u jinych formularu to padalo treba napoprve, ale v tomto momentalni pripade to proste pravidelne napodruhe padne a to jak na NT tak na W95 a na ruznych masinach). Metodami pokus omyl jsme dosli k tomu, ze pomuze toto: pred opustenim formulare 1 provedu metodu UnPrepare na TStoredProc a pak to jiz nepada. Zvlastni je, ze ze zacatku (kdyz byl program jeste malinky ;) to neblblo. Metoda UnPrepare patrne provadi nejakou dealokaci pameti a tudiz si myslim, ze proste nekde nejaka pamet dojde a udela to bum.
Vubec netusim, kde by mohl byt zakopany pes. Resp. jak zjistim, kde, kdy a jak dojde k Access violation a proc a jak se proti tomu branit. Jestli se treba neda nastavit nejaky parametr v kompilatoru ci tak neco. Jak vlastne Prepare a Unprepare funguje apod. Taky by me zajimalo, k cemu je nastaveni stacku v kompilatoru.
Dekuji vsem, kteri vydrzeli se ctenim az do konce a jeste vice tem, kteri nejake to sluvko pridaji ;-)
Zatim diky a zustavam s pozdravem
Martin Kubecka
M.Kubecka(zv)sh.cvut(tec)cz
Prague, Europe, Czech republic, Earth
Martin Kubecka
M.Kubecka(zv)sh.cvut(tec)cz
Prague, Europe, Czech republic, Earth
Novell & Delphi
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 05.10.1997 20:20:08
Ahoj Michale,
eh ... to je tak vse, na co se zmuzu .. 20 MB ?? Neni to preklep ?? No,
to je bomba - ja se svym pripojenim via 33,6 modem .. haaaha. Spis by me
zajimalo, jestli bych se pro to nemohl nekde zastavit se zipkou, to by
bylo mozna i snad trochu lepsi .. (nebo s hdd ... to je uz fuk) ? Slo by
to ??
Mej se super,
Peter
Michal Leinweber wrote:
> >> Stahni si zdarma od Novella SDK - jsou tam u definice pro Delphi.
> >ale kde ho najdu ... a hlavne, jak je to velke ??
>
> Hledej na www.novell.com.
>
> Nevim ktera verze je posledni ale ja mam SDK12 a ma to zabaleny 20MB.
> Kdybys to ste to nekdo chtel muzu to dat na ftp (sem na CESNETu)
>
> McLEI
TDateTime a real ?? (was Re: Datum a has)
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 05.10.1997 20:41:38
> Opravdu je TDateTime Real nebo je Double ? Pokud je Real,
> tak jak je to s presnosti (viz. predchozi zpravy: Chyba fce TRUNC) ?
>
Je Double, viz help.
Vaclav Sazima
otevirani otevreneho souboru
[*] Pavel Kral <kral(zv)afx(tec)cz> - 05.10.1997 20:48:18
Zdravim vsechny a prosim o pomoc s nasledujicim problemem:
potrebuji otevirat ke cteni soubor, ktery je otevreny systemem k zapisu.
Zkousel jsem ho kopirovat DOSovym COPY a to jde, ale pascalovskym
FIleOpen to nejde, proto se pokousim pouzit API funkci CreateFile.
Bohuzel se mi nedari ani to. Nejsem vsak kovany v parametrech, ktere
teto funkci predavat (kdyz ten soubor neni otevreny pro zapis, je to v
pohode).
Pokud nekdo vite jak na to, prosim, pomozte.
Jestli to jde i jinak, dejte vedet.
Prikladam zdrojak k testum, zkuste otevirat soubor s logovanim modemu
kdyz jste pripojeni k internetu (windows\modemlog.txt).
Diky za kazdou radu.
--
****************************************************
PAVEL K R � L
Lipovsk� 94
790 01 Jesen�k
Tel: 0645/411711
E-mail: kral(zv)afx(tec)cz
www: http://www.afx(tec)cz/mr_pisar/mr_pisar.htm
****************************************************
Zastupce programu
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 06.10.1997 07:44:38
Asi jsem byl �patn� pochopen. Jak minimalizovat aplikaci p�i startu to
v�m, ale nev�m jak p�ed t�m zjist�m zda byla aplikace spu�t�na
minimalizovan�, maximalizovan� nebo norm�ln�. Toto se d� nastavit v
z�stupci programu, ale aplikace se podle toho automaticky nechov�. Cht�l
bych si to obslou�it s�m.
Vita
>Nevim co myslis, ale pokusim se Ti poradit. V dobe navrhu se meni okno
pomoci
>WStyle (aspon myslim) a ma parametru WSNormal, WSMaximized,
WSMinimized.
>to same muzes v dobe menit. neznam podrobny syntax, ale v helpu pro
Form to urcite je(properties).TDateTime a real ?? (was Re: Datum a has)
[*] Petr Linhart <petr(zv)spssul.hiedu(tec)cz> - 6.10.1997 08:08:38
TDateTime je Double. Tomas se jenom hloupe zpletl. Odpuste mu to je
trochu roztrzity a rozdily mezi Real a Double kdyz nemusi, tak prilis
neakceptuje :)))
Petr
> From: Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz>
> To: "'DELPHI Distribution List'" <delphi(zv)io.pinknet(tec)cz>
> Subject: TDateTime a real ?? (was Re: Datum a has)
> Date: Wed, 5 Nov 1997 14:21:40 +0100
> Organization: PVT a.s.
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> On Wednesday, November 05, 1997 11:08 AM, Burger Tom�
> [SMTP:Tomas.Burger(zv)mius(tec)cz] wrote:
> > TDateTime je real cislo, ktere obsahuje v celych cislech pocet dni od
> > nejakeho datumu, v desetinne casti cas jako zlomek dne (tzn. 0 je jedna
> > pulnoc, 1/2 je poledne a 1 je dalsi pulnoc...).
>
> Neda mi to, a jeste jednou si rypnu.
>
> Opravdu je TDateTime Real nebo je Double ? Pokud je Real,
> tak jak je to s presnosti (viz. predchozi zpravy: Chyba fce TRUNC) ?
>
> On Thursday, October 30, 1997 2:49 PM, Jirka Burian [SMTP:jburian(zv)borland(tec)cz]
> wrote:
> > ... k tem kratkejm realnejm cislum a Trunc funkci:
> > (Hledal jsem vsude mozne a nic co by se vam libilo jsem nenasel)
> >
> > 1. Borland nedoporucuje v Delphi pouzivani Single a Real
>
> Zdenek Prantl
>
Petr Linhart - systemovy programator W16, W32
Novell & Delphi
[*] Petr Linhart <petr(zv)spssul.hiedu(tec)cz> - 6.10.1997 08:13:02
Diky za lichotku :))
> Date: Wed, 05 Nov 1997 17:46:06 +0100
> From: Peter Rus <peterrus(zv)geocities.com>
> To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Subject: Re: Novell & Delphi
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Petre,
>
> mockrat dekuji, zda se, ze to je neco,. co hledam .. mockrat diky !!
>
> Peter (he, ty jsi vlastne jmenovec .. tomu se rika postreh :-)) )
>
> Petr Linhart wrote:
Petr Linhart - systemovy programator W16, W32
Rebuild packages
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 6.10.1997 08:14:10
Petr Kolax napsal 5 Nov 97 12:50 na tema Rebuild packages toto:
> Nevite nekdo jestli jde prebildovat balicky dodane od Borlandu (napr.
> dcldb30.dpl).
Ze zcela pochopitelnych duvodu NELZE. Je to dokonce zakotveno v licencnich
podminkach.
> Nikde jsem nenasel zdrojaky (*.dpk) k temto balickum.
Pochopitelne. Jinak by kazdy zakaz obesel.
Haj hou!
Sender: Pavel "ERGO" Cisar (E-Mail: pcisar(zv)aktis(tec)cz)
Jestlize nas Buh doopravdy sleduje, pak to nejmensi co muzeme
udelat, je to, ze budeme zabavni. (Solomon Short)Kodovani dat pro prenos
[*] Roman Kanovsky <rkan(zv)ms.anet(tec)cz> - 6.10.1997 08:21:08
>Ahoj Romane,
>a nebylo by lepsi vyresit tento problem hardwarove ?? To znamena
>predsunout vysilaci (a zaradit za prijimac) nejaky chip, ktery by
>provadel dekodovani ?? Jako fanda valecnych technologii se domnivam, ze
>softwarove sifrovani bezdratoveho prenosu je trosku z obliga .. ale asi
>budes potrebovat nekoho, kdo ti ten chip naprogramuje ( ja ne :-)) ) ...
>
>Zkus o tom popremyslet .. jde-li ti o nejvyssi zabezpeceni prenosu, tak
>to softwarove asi neochranis. Porad je jednodusi zkopirovat a
>diasemblovat program, nez rozlozit kremikovy chip na elementy.
>
>Mej se,
>
>Peter Rus
>peterrus(zv)geocities.com
>
Petre,
o moznosti pouzit hardwarove sifrovani jsme uvazovali, ale je tu jeden
problem:
Sifrovana data musi jit az do samotneho zarizeni (jedna se o EZS) a
komunikacni moduly jsou oddelitelne. Firma pro kterou to delam si preje, aby
vlastni dekodovani provadel procesor EZS ne komunikacni modul (ktery muze
byt pokazde jiny: modem, ethernet, seriova linka, radiove spojeni). Dle meho
nazoru je jedno, jestli kodovani provadi program ( na strane PC, kde to
zrejme jina resit nelze) nebo "Kremikovy chip" ktery je naprogramovan na
stejny algoritmus.
Roman K,
Kodovani dat pro prenos
[*] Peter Rus <peterrus(zv)geocities(tec)com> - 06.10.1997 09:17:19
> Petre,
> o moznosti pouzit hardwarove sifrovani jsme uvazovali, ale je tu jeden
>
> problem:
> Sifrovana data musi jit az do samotneho zarizeni (jedna se o EZS) a
> komunikacni moduly jsou oddelitelne. Firma pro kterou to delam si
> preje, aby
> vlastni dekodovani provadel procesor EZS ne komunikacni modul (ktery
> muze
> byt pokazde jiny: modem, ethernet, seriova linka, radiove spojeni).
> Dle meho
> nazoru je jedno, jestli kodovani provadi program ( na strane PC, kde
> to
> zrejme jina resit nelze) nebo "Kremikovy chip" ktery je naprogramovan
> na
> stejny algoritmus.
>
> Roman K,
Ahoj Romane,
nevim sice, co to je EZS (ja jsem jen po... prumyslovak ...), ale podle
tveho majlu soudim, ze cesta hardwarem asi nepovede :-)) .. v tom
pripade ti mohu jen poprat hodne stesti, a doporucit ti, abys otevrel
knihu kryptologie a vyzkousel si navrhnout nejaky algoritmus sam. Jisty
klasik rekl, ze bezpecnost spociva v jedinecnosti a nestadartnosti.
Good luck
Peter
Pdx locking
[*] tomas.mazurek(zv)vitkovice(tec)cz - 6.10.1997 09:25:42
Ahoj,
nasledujici proceduru pouzivam pro zamknuti skupiny zaznamu pro
zapis. V Delphi 1 to funguje snad spolehlive, zaznamy se skutecne
zamykaly, zamek se projevil i tehdy, kdyz jsem dane zaznamy zkousel
editovat pres Paradox pro Windows.
Co tabulkove utility, nelibily se Vam?
procedure TAktz.WL;
var
Vysl : DBIResult;
T : DBImsg;
phCursor : hDBICur;
pRecBuf : pBYTE;
CP : curProps;
R : String;
begin
Try
begin
L := True;
DBIInit(nil);
phCursor := Table6.Handle;
dbiSetToBegin(phCursor);
With Table6 do
While Not EOF do
begin
dbiGetCursorProps(phCursor,CP);
GetMem(pRecBuf,CP.iRecBufSize);
Vysl :=
dbiGetNextRecord(phCursor,dbiWRITELOCK,pRecBuf,nil);
dbiGetErrorString(Vysl,T); R := Copy(T,1,1); If R <>
'S' then begin
If R <> 'A'
then begin
Vysl := dbiRelRecordLock(phCursor,TRUE); L :=
False; end;
FreeMem(pRecBuf,CP.iRecBufSize);
Break;
end;
end;
end;
except
end;
end;otevirani otevreneho souboru
[*] Pavel Kral <kral(zv)afx(tec)cz> - 06.10.1997 09:38:41
[P��loha v souboru: MyFile.pas]
Jeste jednou zdravim.
Omlouvam se, zapomnel jsem vcera pripojit ten zdrojak. Tady je
****************************************************
PAVEL K R � L
Lipovsk� 94
790 01 Jesen�k
Tel: 0645/411711
E-mail: kral(zv)afx(tec)cz
www: http://www.afx(tec)cz/mr_pisar/mr_pisar.htm
****************************************************Z�stupce programu
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 06.10.1997 10:09:06
U� to m�m !!!!!!!
Je�t� jednou se pokus�m vysv�tlit m�j probl�m, proto�e u� m�m tak�
�e�en�. Jestli�e kliknete dvakr�t na ikonu z�stupce programu spust� se
tento program. Pravd�podobn� to pracuje tak, �e se zavol� API fuknce
ShellExecute a jako parametr nShowCmd se pou�ije hodnota, kter� byla
nastavena v okn� vlastnost� z�stupce (norm�ln� okno, maximalizovan�,
minimalizovan�). Aplikaci vytvo�enou v delphi v�ak tento parametr nijak
neovlivn�, bude spu�t�na v�dy v norm�ln� velikosti okna. Taky v�m, �e
hodnota nShowCmd p�ijde jako parametr do funkce WinMain, ale tuto funkci
generuje kompil�tor. Mysl�m si, �e pr�v� ve funkci WinMain by se tento
parametr m�l pou��t ve vol�n� funkce ShowWindow pro hlavn� okno
aplikace, ale kompil�tor to tak pravd�podobn� ned�l�. Na�el jsem API
funkci GetStartupInfo, kter� zjist� jak byla aplikace spu�t�n�, tj.
zjist� hodnotu, kter� je nastavena ve vlastnostech z�stupce programu.
Podle t�to hodnoty m��u obslou�it spu�t�n� aplikace.
D�ky za snahu, ale mysl�m, �e toto �e�en� je nejlep��.
Vita
>Asi jsem to spatne pochopil...;)...jestli ale ne...
>tak jedna ze slozitejsich moznosti je, pri spusteni minimalizovane
>aplikace (to by se dalo zjistit), si to poznamenas nekam na disk a v
>pristim spusteni to zjistis.
>Martin
Kodovani dat pro prenos
[*] Petr Snajdr <snajdr(zv)pvt(tec)net> - 06.10.1997 10:37:02
Peter Rus wrote:
> pripade ti mohu jen poprat hodne stesti, a doporucit ti, abys otevrel
> knihu kryptologie a vyzkousel si navrhnout nejaky algoritmus sam. Jisty
> klasik rekl, ze bezpecnost spociva v jedinecnosti a nestadartnosti.
Takze bezpecnost spociva ne na dokonalosti algoritmu, ale
na duvere v to, ze se nanjde nikdo kdo by se v tom dostatecne dlouhou
prehraboval ? :)))> Peter
--
S pozdravem
Petr Snajdr
Software is like sex;
it's better when it's free.
--- Linus Torvalds
___________________________________
Kodovani dat pro prenos
[*] Roman Kanovsky <rkan(zv)ms.anet(tec)cz> - 6.10.1997 10:50:27
-----Original Message-----
From: Peter Rus <peterrus(zv)geocities.com>
To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Date: 6. November 1997 10:02
Subject: Re: Kodovani dat pro prenos
> Ahoj Romane,
>
>nevim sice, co to je EZS (ja jsem jen po... prumyslovak ...), ale podle
EZS - elektronicke zabezpecovaci systemy
Program by mel slouzit pro jejich vzdalenou konfiguraci a diagnostiku
>tveho majlu soudim, ze cesta hardwarem asi nepovede :-)) .. v tom
>pripade ti mohu jen poprat hodne stesti, a doporucit ti, abys otevrel
>knihu kryptologie a vyzkousel si navrhnout nejaky algoritmus sam. Jisty
>klasik rekl, ze bezpecnost spociva v jedinecnosti a nestadartnosti.
>
>Good luck
>
>Peter
Plne souhlasim s klasikem, ale neni nad to pouzit neco co skutecne funguje
(ono totiz kryptograficke algoritmy jsou pekna pakarna a navrhnou skutecne
spolehlivy algoritmus v podstate nejde (hlavne okuzd na tom nedela 100
lidi;) ). Mel jsem na mysli neco jako je DES, nebo RSA (a mohlo by to byt i
za penize:( ).
Roman
Pdx, cached updates
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 6.10.1997 12:18:04
Ahoj,
cached updates znamena, ze se pracuje s lokalni kopii dat, ktera se
uklada az pri ApplyUpdates.
Problem:
- pri spusteni programu na ruznych pocitacich dochazi pri
editaci jedne a te same vety k blokovani. (Record locked by another user)
Ocekaval bych, ze kdyz
se pracuje s lokalni kopii tak nema smysl tu vetu zamykat, protoze
problem se zmenou vety je treba resit az pri ApplyUpdates
resp. v OnUpdateError.
- doslo-li pred ApplyUpdates ke zmene je vyvolana obsluha podle
OnUpdateError. Jak zjistit stavajici hodnotu udaju?
Muzete mi to prosim nekdo trosku osvetlit?
Diky.
Milos
Alokace pameti - ZDROJAK TESTU
[*] ing.Radim Vajchr <RWMKOM(zv)traveller(tec)cz> - 6.10.1997 13:48:04
-----Original Message-----
From: Vaclav Sazima <sazima(zv)comp(tec)cz>
To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Date: 4. listopadu 1997 20:19
Subject: Re: Alokace pameti - ZDROJAK TESTU
>Tak jsem si to taky zkusil, protoze takove chyby jsou mou nocni murou.
>Me to souhlasi na bajt (Pentium 32MB,W95, D3).Kdyby ste se nokdo
>dopatral pravdy dejte urcite vedet.
> Vaclav Sazima
>
Pod Delphi 3.0 to chodi, pod Delphi 2.01 to nechodi (pamet se vesele
alokuje a kyne a kyne a kyne). Overeno na 2 ruznych PC pod W95 OSR2 CZ a 2
PC s NT 4.0 WS SR3 ENG + 1PC WIN NT 3.51 SR5.
Wxx asi za to nemohou.
Radim Vajchr
DE 3 C/S - MIDAS
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 6.10.1997 13:57:18
Vysvetleni MIDASu:
MIDAS je pouze NAZEV, neni to zadna krabice ale je to technologie.
Jedna se o komponenty s vazbou na ClientDataset, ktere jsou jen
v Client/Serveru. Je nutno za ne platit jeste jen v nekterych pripadech.
V Delphi 3 Client/server je vyvojarska licence pro tvorbu triurovnovych
aplikaci. Nyni nove si muze vyvojar vybrat mezi tremi technologiemi
vzdaleneho napojeni. Je jedno, ktera se pouzije ale vsechny vyzaduji aby:
A/ Databazova vrstva muze byt jakakoli /NT, UNIX, .../DBF...SQL/
B/ Stredni vrstva musi byt na platforme Win. NT., nejlepe NT4
C/ Klienti - musi byt win95 nebo NT
Ty tri technologie jsou v ramci MIDASu:
1/ OleEnterprise - Implementace Entery do Win NT - Globalni registr COM
2/ DCOM - Microsofti DCOM
3/ TCP/IP Sockety - Implementace MemoryStreamu do SocketStreamu
komunikace mezi COM objekty pomoci cisteho TCP/IP - vcetne zdrojaku
// Nove v D C/S 3.01
Licencovani MIDASU:
- V D3 C/S je vyvojarska licence zdarma
Pro hotovou aplikaci plati:
- Pokud je stredni vrstva a klientska vrstva na 1 stejnem pocitaci
pak zase zdarma
- Pokud je stredni vrstva oddelena od klientske a je vyuzivana vice klienty
zaroven, pak je nutne zakoupit distribucni licenci MIDAS.
Tato licence se kupuje na kazdy aplikacn� server ( ve smyslu hardware)
(Na nem muze ale bezet vice softwarovych apl.serveru)
Licence MIDASu stoji asi 200 000 Kc.
Pro koho je to za ty prachy vyhodne?
Predstavte si obchodni dealerskou firmu s jednim centrem a velkou
spoustou, treba 200, obchodnich mist /beznych lidi, malych dealer�/.
Ti se jednou za cas pripojuji modemem k serveru, davaji sve objednavky,
stahuji ceniky atd...
V centru je nainstalovan Oracle a lide maji Win95. Na nich je nainstalovany
TCP/IP, Oracle SQL NET, ODBC, BDE nebo neco podobneho a dalsi DLL.
a take konecne ten program.exe ktery neco dela.(Da to sum. dobrych 5-10 MB).
Lidi si porizuji nove pocitace, hry, zkousi neco instalovat atd... Vysledkem je
to, ze prumerne jdenou rocne je potreba klienta navstivit a upravit mu nastaveni,
dat mu novou aplikaci, nove ORA...BDE ... To musi delat nekdo, kdo to umi, ma auto
a je pouze na to vyhrazeny (200 lidi, min. 1xrocne = 200 dni). Jenom takovy clovek,
i s autem, co jezdi po cele CR prijde zamestnavatele asi na 50 000 kc mesicne.
... za ctyri mesice je to doma.
mimo to
- Upravy aplikacni casti se delaji jednou spolecne na aplikacnim serveru.
- U klienta jsou potreba pouze 2 soubory DBCLIENT.DLL (154k) a relativne male
exe (500-800k) vasi klientske aplikace, v spolecnem adr. bez jakekoli instalace.
- Klient komunikuje vyrazne rychleji - resp. lze ridit komunikaci.
- Klient ma HOLY!!! pocitac be jakekoli konfigurace, pouze s funkcnim TCP/IP
(musi si pingnout), nebo pokud se dostane na Internet, pak je vse OK.
- Klient muze pracovat off-line /doma na chalupe/ jako by byl on-line, vcetne
toho ze funguji napr. integritni omezeni, ktere "propadaji" na klienta.
- Aplikacni server setri licence potrebne pro pripojeni k dat. serveru
- ...
J.Burian, Borland s.r.o.
----------
Od: Pavel Chaloupka
Odesl�no: 24. ��jna 1997 12:03
Komu: Delphi Konference
P�edm�t: DE 3 C/S
Zdravim,
patrim mezi ty, kteri jeste nekoupili DE 3. Vaham jestli je v C/S neco
opravdu potrebneho
pro mou praci. Pohledem do nejakych ceniku jsem zjistil ze Borland chce za
pouziti
nekterych komponent zaplatit MIDAS server. Kterych komponent, ktere jsou
pouze v C/S
se to tyka? Je to konktertne Remote DataSet?
Pavel Chaloupka
E-Mail : chaloupka(zv)com-tech(tec)cz
Z�stupce programu
[*] Pavel Kral <kral(zv)afx(tec)cz> - 06.10.1997 14:28:55
Diky za podnetny dotaz a jeho reseni.
Sam jsem se po nekolika pokusech domyslel az po ShellExecute a parametr
nShowCmd, ale
uz mne nenapadlo, jak si ten parametr zjistit. Domnivam se, ze by se nad
tim u Borlandu meli
zamyslet a zahrnout to do Delphi standardne.
V�t�zslav Gazda wrote:
> U� to m�m !!!!!!!
>
> Je�t� jednou se pokus�m vysv�tlit m�j probl�m, proto�e u� m�m tak�
> �e�en�. Jestli�e kliknete dvakr�t na ikonu z�stupce programu spust� se
>
> tento program. Pravd�podobn� to pracuje tak, �e se zavol� API fuknce
> ShellExecute a jako parametr nShowCmd se pou�ije hodnota, kter� byla
> nastavena v okn� vlastnost� z�stupce (norm�ln� okno, maximalizovan�,
> minimalizovan�). Aplikaci vytvo�enou v delphi v�ak tento parametr
> nijak
> neovlivn�, bude spu�t�na v�dy v norm�ln� velikosti okna. Taky v�m, �e
> hodnota nShowCmd p�ijde jako parametr do funkce WinMain, ale tuto
> funkci
> generuje kompil�tor. Mysl�m si, �e pr�v� ve funkci WinMain by se tento
>
> parametr m�l pou��t ve vol�n� funkce ShowWindow pro hlavn� okno
> aplikace, ale kompil�tor to tak pravd�podobn� ned�l�. Na�el jsem API
> funkci GetStartupInfo, kter� zjist� jak byla aplikace spu�t�n�, tj.
> zjist� hodnotu, kter� je nastavena ve vlastnostech z�stupce programu.
> Podle t�to hodnoty m��u obslou�it spu�t�n� aplikace.
>
> D�ky za snahu, ale mysl�m, �e toto �e�en� je nejlep��.
> Vita
>
> >Asi jsem to spatne pochopil...;)...jestli ale ne...
> >tak jedna ze slozitejsich moznosti je, pri spusteni minimalizovane
> >aplikace (to by se dalo zjistit), si to poznamenas nekam na disk a v
> >pristim spusteni to zjistis.
> >Martin
--
****************************************************
PAVEL K R � L
Lipovsk� 94
790 01 Jesen�k
Tel: 0645/411711
E-mail: kral(zv)afx(tec)cz
www: http://www.afx(tec)cz/mr_pisar/mr_pisar.htm
****************************************************
chyba BDE
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 6.10.1997 14:30:20
Je potreba se cas od casu kouknout na to co pisou sami Borlandi
http://www.borland.com/devsupport/delphi/qanda/database.html
Jirka Burian, Borland s.r.o.
----------
Od: Karel Babka(zv)eurotel(tec)cz
Odesl�no: 5. listopadu 1997 15:06
Komu: delphi(zv)io.pinknet(tec)cz
P�edm�t: chyba BDE
Zkusel jsem nainstalovat BDE 4.0 na ceske Win95 (novejsi Build s Internet
Explorerem),
a pri pripojovani na MSACESS DB (Office 95 i 97), mi to tvrdosine hlasilo -
Cannot load
an IDAPI service library, pritom na PanEuro Windows 95 nebo NT 4.0 to
chodi naprosto
v pohode .... neni to zvlastni ????
Predem diky za rady
Karel
otevirani otevreneho souboru
[*] Pavel Kral <kral(zv)afx(tec)cz> - 06.10.1997 19:19:14
zzntabor(zv)mbox.vol(tec)cz wrote:
> Pavel Kral wrote:
> > potrebuji otevirat ke cteni soubor, ktery je otevreny systemem k
> > zapisu.
> > Zkousel jsem ho kopirovat DOSovym COPY a to jde, ale pascalovskym
> > FIleOpen to nejde, proto se pokousim pouzit API funkci CreateFile.
>
> Tento problem jsem resil pres FileMode=63 nebo 64, kde prvni umoznuje
>
> otevrit soubor pri zdileni pro cteni a druhy i pro zapis. Nebo naopak.
Diky, tohle funguje.
>
> > Prikladam zdrojak k testum, zkuste otevirat soubor s logovanim
> modemu
> > kdyz jste pripojeni k internetu (windows\modemlog.txt).
> Tak to jsem nezkousel.
>
> Hodne zdaru
>
> Ondrej Cilek,
> spravce site,
> zzntabor(zv)mbox.vol(tec)cz
--
PAVEL K R � L
****************************************************
Lipovsk� 94
790 01 Jesen�k
Tel: 0645/411711
E-mail: kral(zv)afx(tec)cz
www: http://www.afx(tec)cz/mr_pisar/mr_pisar.htm
****************************************************
Pdx, cached updates
[*] Martin Kube�ka <M.Kubecka(zv)sh.cvut(tec)cz> - 6.10.1997 21:42:29
Nevim jestli ti pomuzu. Jedu ne na Pdx, ale na MS SQL a problem se zamykanim
jsem mel taky. Staci po otevreni dat (napr. v TQuery.Open) zavolat jeste
metodu TQuery.FetchAll. Pak uz problemy se zamykanim nejsou. Vyborny pokec o
Cached Updates najdes na www.kallista.com (nejsem si uplne jisty s tou
adresou - kazdopadne sem ho zahlidnul taky na ww.borland(tec)cz na strankach
Jirky Buriana).
Martin Kubecka
M.Kubecka(zv)sh.cvut(tec)cz
-----Original Message-----
From: Skacel Miloslav <skacel(zv)kjsoft(tec)cz>
To: 'DELPHI Distribution List' <delphi(zv)io.pinknet(tec)cz>
Date: 6. listopadu 1997 12:43
Subject: Pdx, cached updates
>Ahoj,
>
>cached updates znamena, ze se pracuje s lokalni kopii dat, ktera se
>uklada az pri ApplyUpdates.
>
>Problem:
> - pri spusteni programu na ruznych pocitacich dochazi pri
> editaci jedne a te same vety k blokovani. (Record locked by
another user)
> Ocekaval bych, ze kdyz
> se pracuje s lokalni kopii tak nema smysl tu vetu zamykat,
protoze
> problem se zmenou vety je treba resit az pri ApplyUpdates
> resp. v OnUpdateError.
> - doslo-li pred ApplyUpdates ke zmene je vyvolana obsluha podle
> OnUpdateError. Jak zjistit stavajici hodnotu udaju?
>
>Muzete mi to prosim nekdo trosku osvetlit?
>Diky.
>
>Milos
>Modularni program
[*] Tomas Krecmer <tokr(zv)tmapy(tec)cz> - 7.10.1997 06:44:13
Zdravim vsechny,
a mel bych jeden dotaz. Chystam se psat program v Delphi 3 a chtel
bych aby se dala jeho funkcnost rozsirovat urcitymi moduly. Mel by
byt jeden EXE soubor (dale EXE) jako zaklad a dale pak nekolik
souboru (asi dll) ktere bych k nemu prikopiroval a ktere by do menu
EXE pridaly dalsi veci a rozsirily by tak moznosti EXE. Otazka zni
Jak se to da udelat.
Pomohlo by mi jakekoli spravne nasmerovani, protoze bych se nerad
stal prukopnikem slepych ulicek.
Dekuji predem
Tomas K.
----------------------------------------------------------------------
_____ T-Mapy spol. s r.o. Phone: +42 49 5513335
|_ _| Ing.Tomas Krecmer Fax: +42 49 5513371
MAPY Nezvalova 850 Email: tokr(zv)tmapy(tec)cz
|_| 500 02 Hradec Kralove
Czech Republic
----------------------------------------------------------------------
Modularni program
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 7.10.1997 08:12:43
Kdyz uz delas v D3, tak zkus zvazit a prozkoumat cestu, nepsat DLLs, ale
COMs...
Budes tak mit moduly, ktere budou fungovat i bez toho tveho EXE...
Snad... :))
A navic se tak stanes prukopnikem... Akorat se uz zda, ze ty ulicky
nebudou slepe...
(taky) Tomas
> -----P�vodn� zpr�va-----
> Od: Tomas Krecmer [SMTP:tokr(zv)tmapy(tec)cz]
> Odesl�no: 7. listopadu 1997 7:44
> Komu: delphi(zv)io.pinknet(tec)cz
> P�edm�t: Modularni program
>
> Zdravim vsechny,
>
> a mel bych jeden dotaz. Chystam se psat program v Delphi 3 a chtel
> bych aby se dala jeho funkcnost rozsirovat urcitymi moduly. Mel by
> byt jeden EXE soubor (dale EXE) jako zaklad a dale pak nekolik
> souboru (asi dll) ktere bych k nemu prikopiroval a ktere by do menu
> EXE pridaly dalsi veci a rozsirily by tak moznosti EXE. Otazka zni
>
> Jak se to da udelat.
>
> Pomohlo by mi jakekoli spravne nasmerovani, protoze bych se nerad
> stal prukopnikem slepych ulicek.
>
> Dekuji predem
>
> Tomas K.
>
>
>
> ----------------------------------------------------------------------
> _____ T-Mapy spol. s r.o. Phone: +42 49 5513335
> |_ _| Ing.Tomas Krecmer Fax: +42 49 5513371
> MAPY Nezvalova 850 Email: tokr(zv)tmapy(tec)cz
> |_| 500 02 Hradec Kralove
> Czech Republic
> ----------------------------------------------------------------------
Modularni program
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.10.1997 09:01:38
Tomas Krecmer napsal 7 Nov 97 6:44 na tema Modularni program toto:
> ...Chystam se psat program v Delphi 3 a chtel
> bych aby se dala jeho funkcnost rozsirovat urcitymi moduly. Mel by
> byt jeden EXE soubor (dale EXE) jako zaklad a dale pak nekolik
> souboru (asi dll) ktere bych k nemu prikopiroval a ktere by do menu
> EXE pridaly dalsi veci a rozsirily by tak moznosti EXE. Otazka zni
> Jak se to da udelat.
V D3 je "nejlepsim" resenim specifikovat zakladni plug-in interface a
pripojitelne moduly realizovat jako coclass (pro zaklad lze uspesne pouzit
"ActiveX Library Wizard" Delphi), tzn. odvodit objekt z TComObject,
implementovat v nlm plug-in interface, zaregistrovat pro nlj
TComObjectFactory. Pokud chce9, aby byl plug-in pxmstupn} i z jin}ch jazyky,
nesmm9 v interface pou>mt Delphi specificki datovi typy. Pokud ma b}t
dostupn} z VB nebo pomocm OLE Automation, pak pou>ij "Automation Wizard"
Delphi.
Sender: Pavel "ERGO" Cisar (E-Mail: pcisar(zv)aktis(tec)cz)
-----------------------------------------------------------
My comments are my personal opinion and are not the opinion
of my employer or anyone else. I claim copyright in all my
statements and give no one the right to copy them (even if
they are quoted elsewhere) in any medium except on netnews
or email. In particular, no one can reproduce or reprint my
comments in print or any visual medium without getting my
explicit permission.
-----------------------------------------------------------
Modularni program
[*] Ing. Jahoda Jaroslav <jahoda(zv)lesprojekt(tec)cz> - 7.10.1997 09:02:05
Hi,
Zkus pouzit technologii OLE/COM a z ni pak OLE Automation
V D3 uz se zda byt podpora slusna, ikdyz v teto technologii je Delphi
nejpomalejsi (az 10x) nez MS Visula Basic nebo C++(Bor. nebo MS).
Zdravi Jaroslav Jahoda
On DELPHI Distribution List, Tomas Krecmer[SMTP:tokr(zv)tmapy(tec)cz] wrote:
> Zdravim vsechny,
>
> a mel bych jeden dotaz. Chystam se psat program v Delphi 3 a chtel
> bych aby se dala jeho funkcnost rozsirovat urcitymi moduly. Mel by
> byt jeden EXE soubor (dale EXE) jako zaklad a dale pak nekolik
> souboru (asi dll) ktere bych k nemu prikopiroval a ktere by do menu
> EXE pridaly dalsi veci a rozsirily by tak moznosti EXE. Otazka zni
>
> Jak se to da udelat.
>
> Pomohlo by mi jakekoli spravne nasmerovani, protoze bych se nerad
> stal prukopnikem slepych ulicek.
>
> Dekuji predem
>
> Tomas K.
>
>
>
> ----------------------------------------------------------------------
> _____ T-Mapy spol. s r.o. Phone: +42 49 5513335
> |_ _| Ing.Tomas Krecmer Fax: +42 49 5513371
> MAPY Nezvalova 850 Email: tokr(zv)tmapy(tec)cz
> |_| 500 02 Hradec Kralove
> Czech Republic
> ----------------------------------------------------------------------
OLE/COM (was Modularni program)
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.10.1997 10:32:41
Ing. Jahoda Jaroslav napsal 7 Nov 97 9:02 na tema RE: Modularni program
toto:
> Zkus pouzit technologii OLE/COM a z ni pak OLE Automation
>
> V D3 uz se zda byt podpora slusna, ikdyz v teto technologii je Delphi
> nejpomalejsi (az 10x) nez MS Visula Basic nebo C++(Bor. nebo MS).
Moc by me zajimalo, zda a cim mate tohle tvrzeni podlozeno.
Haj hou!
----------------------------------------------------------
Pavel Cisar (E-Mail: pcisar(zv)aktis(tec)cz), AKTIS a.s.
----------------------------------------------------------
ReportLog
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 07.10.1997 11:42:19
Mozna je to hloupej dotaz, ale, prosim Vas, kdyz service na NT zapise do
Event Logu nejakou hlasku, kde si ji muzu prohlidnout?
Diky
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
ReportLog
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - v 1997 12:29:25 -0700
Start|Programy|Nastroje administrace|Prohlizec udalosti
Cau, Pavel
stingp1(zv)eti1.ccmail.x400.cez(tec)cz
____________________________ Oddilovae odpovidi ________________________________
Vic: ReportLog
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 7.11.1997 12:07
Mozna je to hloupej dotaz, ale, prosim Vas, kdyz service na NT zapise do
Event Logu nejakou hlasku, kde si ji muzu prohlidnout?
Diky
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/_nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
ReportLog
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 7.10.1997 12:30:46
Start / Programs / Administrative Tools / Event Viewer
Tomas
> -----P�vodn� zpr�va-----
> Od: Pavel Nykl [SMTP:nykl(zv)satoya(tec)cz]
> Odesl�no: 7. listopadu 1997 11:42
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: ReportLog
>
> Mozna je to hloupej dotaz, ale, prosim Vas, kdyz service na NT zapise
> do
> Event Logu nejakou hlasku, kde si ji muzu prohlidnout?
> Diky
>
> ----------------------------------------------------------------------
> -----
> Pavel Nykl Saturn Toya s.r.o. - Teletext
> systems
> mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech
> republic
> http://www.satoya(tec)cz/~nykl/ Phone,fax
> **420-2-57216290,352939
> ----------------------------------------------------------------------
> -----
ReportLog
[*] PETER SUVAK<psuvak(zv)inetsrv.pbko.sk> - 7.10.1997 12:49:47
>Mozna je to hloupej dotaz, ale, prosim Vas, kdyz service na NT zapise do
Event Logu nejakou hlasku, kde si ji muzu >prohlidnout?
>Diky
Program manager -> Administrative tools-> Event viewer
Peter
Jednozna�n� ��slo z�znamu
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 07.10.1997 14:01:53
Nev� n�kdo jestli existuje v BDE n�jak� podpora pro generov�n�
jednozna�n�ho ��sla pro ka�d� z�znam ? Pokud ne, pora�te mi pros�m jin�
spolehliv� zp�sob.
D�ky za radu
Vita
Warning pri kompilaci balicku
[*] Martin Dupal <vision(zv)mbox.vol(tec)cz> - 07.10.1997 14:31:04
Ahoj,
nevite nahodou nekdo, jak docilit toho, aby pri kompilaci
balicku v D3 nebyly generovany warningy o implicitnim zahrnuti
dalsich pomocnych unit, ktere balicek pouziva.
Napr. balicek DCLRXCtl.dpk z knihovny RX obsahuje jen jednu unitu
s registracemi a vic nic a zadny warning kompilator nevygeneruje,
ackoliv objektivne balicek pouziva milion dalsich unit.
Asi jsem neco nepochopil, tak dik za jakykoliv hint.
Martin Dupal
Jednoznahni hmslo zaznamu
[*] Strunc <strunc(zv)krv.pvt(tec)cz> - 7.10.1997 14:57:30
Dporucuji pouzit polozku typu Serial. V helpu jiz najdes vic.
Mej se pekne
Slavek
----------
Od: Vmtlzslav Gazda[SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 7. listopadu 1997 14:01
Komu: Heska Delphi konference
P�edm�t: Jednoznahni hmslo zaznamu
Nev� n�kdo jestli existuje v BDE n�jak� podpora pro generov�n�
jednozna�n�ho ��sla pro ka�d� z�znam ? Pokud ne, pora�te mi pros�m jin�
spolehliv� zp�sob.
D�ky za radu
Vita
OLE/COM (was Modularni program)
[*] Ing. Jahoda Jaroslav <jahoda(zv)lesprojekt(tec)cz> - 7.10.1997 15:50:54
On DELPHI Distribution List, Pavel Cisar[SMTP:pcisar(zv)aktis(tec)cz] wrote:
> Ing. Jahoda Jaroslav napsal 7 Nov 97 9:02 na tema RE: Modularni
program
> toto:
>
> > Zkus pouzit technologii OLE/COM a z ni pak OLE Automation
> >
> > V D3 uz se zda byt podpora slusna, ikdyz v teto technologii je
Delphi
> > nejpomalejsi (az 10x) nez MS Visula Basic nebo C++(Bor. nebo MS).
>
> Moc by me zajimalo, zda a cim mate tohle tvrzeni podlozeno.
>
> Haj hou!
> ----------------------------------------------------------
> Pavel Cisar (E-Mail: pcisar(zv)aktis(tec)cz), AKTIS a.s.
> ----------------------------------------------------------
Staci se podivat na konstrukci interface IDispatch. C++ a VB volaji
metody potomka primo na rozdil od Delphi kde se pouziva metoda
IDispatch::Invoke.
Jinak dalsi dukaz se da potvrdit tim, ze si to vyzkousite, ale k tomu
musite mit nejaky vhodny Ole Automation server.
Pokud to uz v D3 delaji Borlandi jinak nez v D2, tak se omlouvam fy.
Borland, ale v D2 byla opravdu pouzita metoda Invoke. Ja totiz nemam
zdrojaky k D3 knihovnam, my mame pouze verzi standard.
P.S. Neberte moje vytky jako utok proti Delphi, to nechci. Az na par
vyhrad je to super nastroj. Ja byl totiz nucen napsat OLE Automation
server a ten se mi podarilo napsat pohodlne v MSC 5.0.
Zdravi Jaroslav Jahoda
Jednoznacne cislo zaznamu
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 07.10.1997 16:20:37
>Dporucuji pouzit polozku typu Serial. V helpu jiz najdes vic.
> Mej se pekne
> Slavek
S typem Serial jsem se je�t� nikde nesetkal. Kterou n�pov�du jsi myslel
?
Jde to pou��t i na DBase tabulky ?
D�ky Vita
Jednozna�n� ��slo z�znamu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.10.1997 16:31:13
> Nev� n�kdo jestli existuje v BDE n�jak� podpora pro generov�n�
> jednozna�n�ho ��sla pro ka�d� z�znam ? Pokud ne, pora�te mi pros�m jin�
> spolehliv� zp�sob.
BDE podporuje typ autoincrement, ktery pak sam pridava. To nestaci?
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Jednoznahni hmslo zaznamu
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 7.10.1997 16:41:26
Pokud pracujes s�SQL databazi tak si vytvor sql generator.
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
-----Puvodn� zpr�va-----
Od: Vmtlzslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 7. listopadu 1997 14:02
Komu: Heska Delphi konference
Predmet: Jednoznahni hmslo zaznamu
Nev� nekdo jestli existuje v BDE nejak� podpora pro generov�n�
jednoznacn�ho c�sla pro kazd� z�znam ? Pokud ne, poradte mi
pros�m jin�
spolehliv� zpusob.
D�ky za radu
Vita
Jednoznacne cislo zaznamu
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 07.10.1997 17:41:46
>BDE podporuje typ autoincrement, ktery pak sam pridava. To nestaci?
>
>S pozdravem
> Petr Zahradnik, pocitacovy expert
Tento typ jsem zkou�el na DBase tabulk�ch, je podporov�n, ale nejsou
generov�na ��dn� jednozna�n� ��sla tj. po p�id�n� nov�ho z�znamu z�stane
polo�ka pr�zdn�.
Vita
Jednoznacne cislo zaznamu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.10.1997 17:55:57
> >BDE podporuje typ autoincrement, ktery pak sam pridava. To nestaci?
>
> Tento typ jsem zkou�el na DBase tabulk�ch, je podporov�n, ale nejsou
> generov�na ��dn� jednozna�n� ��sla tj. po p�id�n� nov�ho z�znamu z�stane
> polo�ka pr�zdn�.
Jakto? Ja to tedy nezkusel na dBase, ale na Paradox tabulkach mi to
opravdu inkrementuje a dela jednoznacne zaznamy. Pouzivam to.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Prenos mezi NT4 a W95
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 7.10.1997 18:41:37
Zkusil jsem v D3 pouzit resourcestring na hlasky v programu. Vse bylo v poradku do te doby nez jsem prenesl program na W95, zde najednou ceske texty mely misto pismenek s hackama znaky '_' a podobne. Puvodne jsem program vytvarel na NT4. Obe verze jsou Pan-Euro, takze jsem si najivne myslel, ze staci vyzkouset cestinu na NT (ty jsou na ni mnohem haklivejsi). Normalni string se chovaji spravne.
Druhy problem s prenosem na W95 jsem mel u TImage. Nastavil jsem Transparent na TRUE a vse bylo v poradku (na NT4). Pustil jsem na W95 a oblast, ktera mela byt pruhledna (tedy v barve clBtnFace formulare) byla hneda, pustil jsem na dalsich W95 (tentokrat OSR2) a barvicka se zase zmenila, tentokrat na tmave sedou (formular byl samozrejme stale svetle sedy).
Netusite jak vyresit predchozi problemy a pripadne co doporucujete pro testovani, aby clovek mel jistotu, ze program bude fungovat spravne na vsech Win32. Napriklad nezkousim co s programy provedou ceske W95 a NT, protoze tem se jako uzivatel zdaleka vyhybam.
Diky Honza +Modularni program ?
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 7.10.1997 23:06:02
> V D3 je "nejlepsim" resenim specifikovat zakladni plug-in interface a
> pripojitelne moduly realizovat jako coclass (pro zaklad lze uspesne pouzit
> "ActiveX Library Wizard" Delphi), tzn. odvodit objekt z TComObject,
> implementovat v nlm plug-in interface, zaregistrovat pro nlj
> TComObjectFactory. Pokud chce9, aby byl plug-in pxmstupn} i z jin}ch jazyky,
> nesmm9 v interface pou>mt Delphi specificki datovi typy. Pokud ma b}t
> dostupn} z VB nebo pomocm OLE Automation, pak pou>ij "Automation Wizard"
> Delphi.
Tohle by me take docela zajimalo. Nemate na to nekdo
nejaky example (myslim na vytvareni plug-inu)?
Vojtech Semecky
---------------------------------------------------
Html editor TARANTULE - http://www.tarantule(tec)cz/
V-Soft - http://www.v-soft(tec)cz/
Download Island - http://www.v-soft(tec)cz/di/Aktualny (fwd)
[*] rkg(zv)a1.fido(tec)cz (vlaste rk) - 8.10.1997 12:58:32
*** Forwarded file follows ***
Posted By: Stano_Meduna (2:422/52.4) on 'JOKES.42'
Subject: Re: Aktualny
To: Evzen_Polenka
Date: 23 Jun 97 21:09:10
Hello Evzen!
Thursday June 19 1997 13:12, Evzen Polenka wrote to Michal Rybarik:
EP> Je to cervene a je to zajac. Co je to?
EP> .
EP> .
EP> Predsa mrkvicka...
Este znamejsie je to asi ako klasicky dialog pred zachodom: "Je tam niekto ?"
- "Kto by tu jedol ..."
Stano
--- GoldED 2.50+
* Origin: I thought that I heard you laughing <Trillian point> (2:422/52.4)OLE/COM
[*] Tomas Krecmer <tokr(zv)tmapy(tec)cz> - 10.10.1997 07:15:31
Dekuji vam vsem za odpovedi na dotaz "Modularni program".
Vsichni jste doporucili technologii OLE/COM. Muj dotaz se tyka nejake
dobre literatury, ktera o tomto tematu ma co rict.
Dekuji predem
Tomas
----------------------------------------------------------------------
_____ T-Mapy spol. s r.o. Phone: +42 49 5513335
|_ _| Ing.Tomas Krecmer Fax: +42 49 5513371
MAPY Nezvalova 850 Email: tokr(zv)tmapy(tec)cz
|_| 500 02 Hradec Kralove
Czech Republic
----------------------------------------------------------------------
Warning pri kompilaci balicku
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 10.10.1997 08:27:15
Martin Dupal napsal 7 Nov 97 14:31 na tema Warning pri kompilaci balicku
toto:
> nevite nahodou nekdo, jak docilit toho, aby pri kompilaci
> balicku v D3 nebyly generovany warningy o implicitnim zahrnuti
> dalsich pomocnych unit, ktere balicek pouziva.
Zahrnout nahlasenou unitu do balicku.
> Napr. balicek DCLRXCtl.dpk z knihovny RX obsahuje jen jednu unitu
> s registracemi a vic nic a zadny warning kompilator nevygeneruje,
> ackoliv objektivne balicek pouziva milion dalsich unit.
Implicitne importovane jsou ty unity, ktere nejsou primo uvedeny v
prekladanem balicku ani nalezene v jinem primo nebo zprostredkovane
pripojenem balicku nebo oznacene jako {$WEAKPACKAGEUNIT }.
Haj hou!
----------------------------------------------------------
Pavel Cisar (E-Mail: pcisar(zv)aktis(tec)cz), AKTIS a.s.
----------------------------------------------------------
OLE/COM
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 10.10.1997 09:14:34
Tomas Krecmer napsal 10 Nov 97 7:15 na tema OLE/COM toto:
> Vsichni jste doporucili technologii OLE/COM. Muj dotaz se tyka nejake
> dobre literatury, ktera o tomto tematu ma co rict.
Manual k D3 obsahuje informace o implementaci COM/ActiveX v D3. Pro celkovy
vhled do COM/OLE/ActiveX je asi nejlepsi "Inside OLE " od Microsoft Press. V
MSPressu vyslo i par dalsich veci.Knigyz MSP lze u nas objednat i pres INet
via http://vltava.cpress(tec)cz/
Rovnez lze nalezt dost materialu na MSDN CD, pripadne MSDN On-line na
www.microsoft.com (a i jnde na MS webu).
Enjoy!
----------------------------------------------------------
Pavel Cisar (E-Mail: pcisar(zv)aktis(tec)cz), AKTIS a.s.
----------------------------------------------------------
Modularni program ?
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 10.10.1997 09:41:17
Vojtech Semecky napsal 7 Nov 97 23:06 na tema Re: Modularni program ? toto:
>
> Tohle by me take docela zajimalo. Nemate na to nekdo
> nejaky example (myslim na vytvareni plug-inu)?
Dobrym prikladem je Merlin (potomek oblibeneho Triplexu). Mozno stahnout na
http://www.boots.com/merlin/
V helpu jsou popsany plug-in interface (proceduralni nebo COM, toz si vybere
kazdy :-)
Haj hou!
Sender: Pavel "ERGO" Cisar (E-Mail: pcisar(zv)aktis(tec)cz)
Kdyby to bylo jednoduche, uz by to bylo hotove. (Solomon Short)Jednoznacne cislo zaznamu
[*] Strunc <strunc(zv)krv.pvt(tec)cz> - 10.10.1997 10:46:29
Ahoj,
jde o polozku typu autoincrement, ktera se v navrhu znaci znaky "+" pro incrementaci a "-" pro decrementaci. Ja si ji pojmenovavam Serial, odtud ten mozna zavadejici nazev za ktery se Ti omlouvam. V Database Desktop (D3) tuto polozku najdes ve vyberu typu polozky pri navrhu datab. tabulky. Tak dostanes jednoznacne cislo vety v takto deklarovane polozce.
Nechci tim prilis zatezovat konferenci Delphi, pokud budes chtit jeste blizsi vysvetleni ozvi se mi na moji adresu: strunc(zv)krv.pvt(tec)cz
Ahoj Slavek
----------
Od: Vmtlzslav Gazda[SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 7. listopadu 1997 16:20
Komu: Heska Delphi konference
P�edm�t: Jednoznacne cislo zaznamu
>Dporucuji pouzit polozku typu Serial. V helpu jiz najdes vic.
> Mej se pekne
> Slavek
S typem Serial jsem se je�t� nikde nesetkal. Kterou n�pov�du jsi myslel
?
Jde to pou��t i na DBase tabulky ?
D�ky Vita
obrazky, SQL Anywhere a Delphi
[*] Martin Dupal <vision(zv)mbox.vol(tec)cz> - 10.10.1997 11:15:42
Cau delfinisti,
ma, prosim, nekdo zkusenosti s ukladanim obrazku do databaze
Sybase SQL Anywhere (typ Image nebo LongBinary) a pristupem
k temto datum z Delphi ?
Mne totiz pro obrazky vetsi, nez 32 kB (napr.44 kB) vraci server
nesmyslna data, na kterych si komponenta DBImage samozrejme vylame zuby.
Pro mensi soubory je vsechno O.K.
BDE jsem nezapomnel nakonfigurovat na BLOBSIZE=64, k serveru pristupuji
pres ODBC, protoze pro SQL Anywhere jina moznost neni a mam Delphi 3 na
Win NT 4.0
Dik za kazdou radu
Martin Dupal
Jednoznacne cislo zaznamu
[*] Rene Stevanka <wizard(zv)army.sk> - 10.10.1997 12:49:44
Ahoj,
V suvislosti s autoincrementom v PDX ma zaujima jedna vec. A to ako je to s vytvaranim prepojeni medzi tabulkami typu Master-Detail, ked v tabulke Master mam polozku typu autoincrement a cez nu sa chcem odkazovat do tabulky Detail. Akeho typu ma byt vazobna polozka v Detail tabulke, ked v Master je to autoincrement?
Ak som zvolil Long integer (I), tak mi to zahlasilo nekompaktibilitu v type.
Za navrhy dakujem
Rene Stevanka
Jednoznacne cislo zaznamu
[*] tomas.mazurek(zv)vitkovice(tec)cz - 10.10.1997 12:52:35
Nazdar,
asi je potreba rici, ze polozka Autoincrement je vlastni pouze
formatu Paradox pro Windows a to od verze 5.00. U DBase ci Foxpro nic
takoveho neni, alespon pokud vim. Z nekterych odpovedi v konferenci
to nebylo prilis jasne...
U SQL databazi samozrejme se takoveho veci resi pres generatory...
Tomas
Sd�len� pam�
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 10.10.1997 12:53:39
Nev� n�kdo jak naalokovat pam�, aby byla dostupn� i z jin�ch proces� ?
Zkou�el jsem GlobalAlloc, ale to nefunguje. Pot�ebuji poslat zpr�vu oknu
v jin� aplikaci a v parametru LParam p�edat data.
D�ky za radu
Vita
Sd�len� pam�+
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 10.10.1997 13:41:24
V]t}zslav Gazda napsal 10 Nov 97 12:53 na tema Sd]len_ pam}+ toto:
> Nevm nlkdo jak naalokovat paml;, aby byla dostupna i z jin}ch procesy ?
> Zkou9el jsem GlobalAlloc, ale to nefunguje. Potxebuji poslat zpravu oknu v
> jini aplikaci a v parametru LParam pxedat data.
Zde je priklad zaslani textu do jineho okna (aplikace):
procedure SendDebugEx(const Msg: String; MType:TMsgDlgType);
var CDS:TCopyDataStruct;
DebugWin:hWnd;
PMsg:PChar;
procedure CopyMessage;
var i: Integer;
Begin
PMsg[0]:=#1;
PMsg[1]:=Char(ord(MType)+1); {Add 1 to avoid 0}
for i:=1 to length(Msg) do
PMsg[1+i]:=Msg[i];
PMsg[1+i]:=#0; {Terminate string}
End;
begin
DebugWin:=FindWindow('TfmDebug', nil);
if DebugWin=0 then
DebugWin:=StartDebugWin;
if DebugWin<>0 then
Begin
CDS.cbData:=Length(Msg)+3;
PMsg:=StrAlloc(Length(Msg)+3);
Try
CopyMessage;
CDS.lpData:=PMsg;
SendMessage(DebugWin, WM_COPYDATA, 0, LParam((zv)CDS));
Finally
StrDispose(PMsg);
end;
end;
end;
Sender: Pavel "ERGO" Cisar (E-Mail: pcisar(zv)aktis(tec)cz)
Jestlize nas Buh doopravdy sleduje, pak to nejmensi co muzeme
udelat, je to, ze budeme zabavni. (Solomon Short)Sd�len� pam�
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 10.10.1997 13:56:16
Pamatuju si z davneho studia DDE, ze se na to pouzivali tzv. atomy.
Zkus v Win API funkce jako AddAtom a GetAtomName a tak...
Tomas
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 10. listopadu 1997 12:54
> Komu: �esk� Delphi konference
> P�edm�t: Sd�len� pam�
>
> Nev� n�kdo jak naalokovat pam�, aby byla dostupn� i z jin�ch proces�
> ?
> Zkou�el jsem GlobalAlloc, ale to nefunguje. Pot�ebuji poslat zpr�vu
> oknu
> v jin� aplikaci a v parametru LParam p�edat data.
>
> D�ky za radu
> Vita
Sd�len� pam�
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 10.10.1997 14:03:05
>Nev� n�kdo jak naalokovat pam�, aby byla dostupn� i z jin�ch proces� ?
>Zkou�el jsem GlobalAlloc, ale to nefunguje. Pot�ebuji poslat zpr�vu oknu
>v jin� aplikaci a v parametru LParam p�edat data.
Jde to pres CreateFileMapping (OpenFileMapping) - mam na to objekt, na
pozadani zaslu.
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
Sdmlena paml;
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 10.10.1997 14:18:21
[P��loha v souboru: SHAREMEM.ZIP]
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
N�kde jsem si stahl zdrojak sdileni pameti vcetne prikladu tak to
posilam
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
-----P�vodn� zpr�va-----
Od: Vmtlzslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 10. listopadu 1997 12:54
Komu: Heska Delphi konference
P�edm�t: Sdmlena paml;
Nev� n�kdo jak naalokovat pam�, aby byla dostupn� i z jin�ch
proces� ?
Zkou�el jsem GlobalAlloc, ale to nefunguje. Pot�ebuji poslat
zpr�vu oknu
v jin� aplikaci a v parametru LParam p�edat data.
D�ky za radu
Vita
Services Again
[*] Pavel Nykl <nykl(zv)satoya(tec)cz> - 10.10.1997 14:58:16
Ahoj vsichni,
tak jsem trosku pokrocil se Services v NT a mam problem, ktery nevim jak
resit.
Pouze pro priklad: mam servis, ktery by mel delat jedinou vec - jednou za 3
sekundy pipnout a do okna napsat kolikrat uz pipnul - tedy (alespon podle
mych chabych znalosti) SERVICE_INTERACTIVE_PROCESS.
Vykonny kod procesu predtim, nez se spusti cyklus kontrolujici
WaitForSingleObject, vytvori okno a kdyz se cyklus opusti, tak se okno
uvolni z pameti. Vsechno krasne funguje. Ale pokud se chci s nastartovanym
servisem zalogovat jako jiny uzivatel, dostanu hlasku, ze nelze ukoncit
proces a jestli chci - cekat, ukoncit, anebo cancel. Pokud dam ukoncit, tak
servis sice dal pipa, ale asi je nekde chyba.
Je to srozumitelne? Poradite mi nekdo?
Diky
---------------------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O. Box 44, 169 00 Praha 69, Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
---------------------------------------------------------------------------
Sd�len� pam�_
[*] Petr Linhart <petr(zv)spssul.hiedu(tec)cz> - 10.10.1997 15:11:53
Pro sdileni pameti mezi procesy se musi pouzit Memory Mapped File.
Nedej se klamat slovickem File. Tato technika umozni namapovat
pojmenovanou docasnou pamet. Doporucuji nastudovat Richter: Advanced
Windows. Jinak to jde jeste zpravama, ale ukazatel posilat nemuzes,
protoze kazdy proces ma svuj vlastni adresovy prostor a ukazatel je v
jinem procesu neplatny, nebo ukazuje nekam uplne jinam
Petr
> Date: Mon, 10 Nov 1997 12:53:39 +0100
> From: "V�t�zslav Gazda" <softda(zv)mbox.vol(tec)cz>
> Organization: Software TDA
> To: "�esk� Delphi konference" <delphi(zv)pinknet(tec)cz>
> Subject: Sd�len� pam�+
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> Nev� n�kdo jak naalokovat pam�, aby byla dostupn� i z jin�ch proces� ?
> Zkou�el jsem GlobalAlloc, ale to nefunguje. Pot�ebuji poslat zpr�vu oknu
> v jin� aplikaci a v parametru LParam p�edat data.
>
> D�ky za radu
> Vita
>
>
Petr Linhart - systemovy programator W16, W32
Jednoznacne cislo zaznamu este raz (s ENTRAMI)
[*] Rene Stevanka <wizard(zv)army.sk> - 10.10.1997 15:20:53
Ahoj,
V suvislosti s autoincrementom v PDX ma zaujima jedna vec.
A to ako je to s vytvaranim prepojeni medzi tabulkami typu Master-Detail,
ked v tabulke Master mam polozku typu autoincrement a cez nu sa chcem odkazovat do tabulky Detail. Akeho typu ma byt vazobna polozka v Detail
tabulke, ked v Master je to autoincrement?
Ak som zvolil Long integer (I), tak mi to zahlasilo nekompaktibilitu v type.
Za navrhy dakujem
Rene Stevanka
Sd�len� pam�
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 10.10.1997 15:29:21
Burger Toma9 napsal 10 Nov 97 13:56 na tema RE: Sdmlena paml; toto:
> Pamatuju si z davneho studia DDE, ze se na to pouzivali tzv. atomy.
> Zkus v Win API funkce jako AddAtom a GetAtomName a tak...
> Tomas
>
Chyba ryba ! Mel jsi zrejmne na mysli memory mapped files (viz subj v helpu
:-) V samples zdrojacich Delphi je i hezka implementace jako objekt.
Have fun!
Sender: Pavel "ERGO" Cisar (E-Mail: pcisar(zv)aktis(tec)cz)
Budte trpelivi. Evoluce s nami jeste neskoncila. (Solomon Short)Jednoznacne cislo z. a master-detail
[*] tomas.mazurek(zv)vitkovice(tec)cz - 10.10.1997 15:52:35
Nazdar,
pouzivam Delphi 1.02 a BDE 2.52. V nekolika projektech mam
realizovanou vazbu mezi Master-detail, kde polozky jsou typu
Autoincrement a LongInteger. Popisovana chyba tj. nekompatibilita v
typech mi nikdy nenastala...Jednoznacne cislo zaznamu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.10.1997 16:49:08
> V suvislosti s autoincrementom v PDX ma zaujima jedna vec. A to ako je to s vytvaranim prepojeni
> medzi tabulkami typu Master-Detail, ked v tabulke Master mam polozku typu autoincrement a cez nu
> sa chcem odkazovat do tabulky Detail. Akeho typu ma byt vazobna polozka v Detail tabulke, ked v
> Master je to autoincrement?
>
> Ak som zvolil Long integer (I), tak mi to zahlasilo nekompaktibilitu v type.
To je divne, ze to nechodi, protoze je to LONGINT.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Mrkani okna
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 10.10.1997 17:03:21
Poradte mi nekdo jak psat spravne V D3 prekreslovaci veci,
aby formulare zbytecne nemrkaly. Mam graf, ktery je zivy, tj
zprava periodicky pribyva hodnota,
graf utika doleva. Obcas zbytecne mrkne cela plocha Canvasu
a pusobi to rusive. Existuje nejakej zpusob jak naakumulovat
prekreslovaci pozadavky a provest je najednou?
Mrkani okna
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 10.10.1997 19:28:22
> Poradte mi nekdo jak psat spravne V D3 prekreslovaci veci,
> aby formulare zbytecne nemrkaly. Mam graf, ktery je zivy, tj
> zprava periodicky pribyva hodnota,
> graf utika doleva. Obcas zbytecne mrkne cela plocha Canvasu
> a pusobi to rusive. Existuje nejakej zpusob jak naakumulovat
> prekreslovaci pozadavky a provest je najednou?
Mel jsem pred casem stejny problem v D1 a take se mi
nepodarilo zdroj blikani vysledovat a odstranit. Budu rovnez vdecny
za radu, jak blikani potlacit.
*-----------------------------------------------*
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 (ISO-8859-2)
*-----------------------------------------------*sdileni pameti
[*] VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz - ov 1997 06:36:54 -0700
Atomy jsou pouzitelne pouze pro predani adresy sdileneho useku (a na to se da s
mensimi problemy pouzit ta message) protoze maj malou kapacitu.
Musis pouzit GlobalAlloc s parametrem GMEM_SHARE .
Pokud se ti jedna pouze o komunikaci mezi aplikacemi lze pouzit (pokud se ti
zpravy nebo atomy nezdaj) roury - pipes.
Radek Voltr
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 10. listopadu 1997 15:48
Komu: Internet:delphi(zv)io.pinknet(tec)cz/
Poedmit: =?iso-8859-2?Q?RE=3A_Sd=EDlen=E1_pam=EC=BB?=
Pamatuju si z davneho studia DDE, ze se na to pouzivali tzv. atomy.
Zkus v Win API funkce jako AddAtom a GetAtomName a tak...
Tomas
> -----Puvodni zprava-----
> Od:Vitezslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odeslano:10. listopadu 1997 12:54
> Komu:Ceska Delphi konference
> Predmet:Sdilena pamet
>
> Nevi nekdo jak naalokovat pamet, aby byla dostupna i z jin}ch procesu
> ?
> Zkousel jsem GlobalAlloc, ale to nefunguje. Potrebuji poslat zpravu
> oknu
> v jine aplikaci a v parametru LParam predat data.
>
> Diky za radu
> Vita
<<Soubor: TXT1.TXT>> Mrkani okna
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - ov 1997 07:59:09 -0700
Celkem se mi osvedcilo kreslit do pametove bitmapy, a pak ji celou
hodit na obrazovku funkci TCanvas.CopyRect. Vypada to rozhodne lip,
nez kdyz se kresli rovnou na canvas formulare.
Cau, Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
____________________________ Oddelovac odpovedi ________________________________
Vec: Re: Mrkani okna
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 10.11.1997 21:36
> Poradte mi nekdo jak psat spravne V D3 prekreslovaci veci,
> aby formulare zbytecne nemrkaly. Mam graf, ktery je zivy, tj
> zprava periodicky pribyva hodnota,
> graf utika doleva. Obcas zbytecne mrkne cela plocha Canvasu
> a pusobi to rusive. Existuje nejakej zpusob jak naakumulovat
> prekreslovaci pozadavky a provest je najednou?
Mel jsem pred casem stejny problem v D1 a take se mi
nepodarilo zdroj blikani vysledovat a odstranit. Budu rovnez vdecny
za radu, jak blikani potlacit.
*-----------------------------------------------*
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 (ISO-8859-2)
*-----------------------------------------------*Sd�len� pam�
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 11.10.1997 08:19:59
> -----P�vodn� zpr�va-----
> Od: Pavel Cisar [SMTP:pcisar(zv)aktis(tec)cz]
> Chyba ryba ! Mel jsi zrejmne na mysli memory mapped files (viz subj v
> helpu
> :-) V samples zdrojacich Delphi je i hezka implementace jako objekt.
>
[T.B.]
Nemel jsem na mysli uz vubec nic... :)) Zabyval jsem se tim v casech
Pascalu a Wn3.1. Od te doby to zrejme nekolikrat prejmenovali, ale ta
funkce AddAtom v API porad zustala (to jsem si radsi overil)...
Ale pripoustim: byla to spis douska historika nez aktivniho programatora
(co se Interprocess Data Exchange tyce...) :))
Tomas
Mrkani okna
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 11.10.1997 08:44:57
>> Poradte mi nekdo jak psat spravne V D3 prekreslovaci veci,
>> aby formulare zbytecne nemrkaly. Mam graf, ktery je zivy, tj
>> zprava periodicky pribyva hodnota,
>> graf utika doleva. Obcas zbytecne mrkne cela plocha Canvasu
>> a pusobi to rusive. Existuje nejakej zpusob jak naakumulovat
>> prekreslovaci pozadavky a provest je najednou?
>Mel jsem pred casem stejny problem v D1 a take se mi
>nepodarilo zdroj blikani vysledovat a odstranit. Budu rovnez vdecny
>za radu, jak blikani potlacit.
>*-----------------------------------------------*
Jeste doplnim: problem vznika asi tim, ze pred volanim me procedure Paint dojde
k smazani obsahu Canvasu. Maze se implicitni barvou a ja v Paintu ihned pomoci
Rectangle premazu plochu barvou jinou. To mazani mozna zpusobi Invalidate, ktere mozna vola WIN API InvalidateRect s povolenym EraseBacground - jak tedy donutit, aby se okno nemazalo implicitne nebo aspon mazalo nejakou pozadovanou barvou?Mrkani okna
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 11.10.1997 08:49:02
-----P�vodn� zpr�va-----
Od: Dalibor Toman [SMTP:dtoman(zv)lit(tec)czn(tec)cz]
Odesl�no: 10. listopadu 1997 17:03
Komu: DELPHI Distribution List
P�edm�t: Mrkani okna
Poradte mi nekdo jak psat spravne V D3 prekreslovaci veci,
aby formulare zbytecne nemrkaly. Mam graf, ktery je zivy, tj
zprava periodicky pribyva hodnota,
graf utika doleva. Obcas zbytecne mrkne cela plocha Canvasu
a pusobi to rusive. Existuje nejakej zpusob jak naakumulovat
prekreslovaci pozadavky a provest je najednou?
[Miloslav Sk�cel]
Zkus toto z Unofficial Newsletters of Delphi Users:
procedure LockWindowPainting(WinHandle: HWND;Locked:boolean);
begin
SendMessage(WinHandle, WM SETREDRAW, WPARAM( not Locked ),0);
end;
procedure LockPainting(WinHandle: HWND);
begin
LockWindowPainting(WinHandle,TRUE);
end;
procedure UnlockPainting(WinHandle: HWND);
begin
LockWindowPainting(WinHandle, false);
InvalidateRect(WinHandle, nil, false);
end;V.c : Re: Mrkani okna
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - ov 1997 09:52:34 -0700
Taky doplnim - je velmi zdlouhave delat ve Windows graficke operace
uzivateli na ocich, at pouzijes cokoli, kde kreslis primo na Canvas
formulare nebo jakehokoli potomka TWinControl. Tam se proste blikani
nezbavis, at delas co delas (pokud nemas oblast pro kresleni 10x10
bodu, a i tam bych si dovolil byt skepticky). Zkousel jsem delat testy
prekreslovani primo na Canvas, a pak pres double buffer (pametova
bitmapa, kterou hodis na Canvas metodou CopyRect). Vysledky vysly
10:1 pro double buffer (oblast byla velika 300x200 bodu). Tohle je
asi nejrychlejsi metoda prekreslovani ve Windows s velmi solidnim
potlacenim blikani.
Hi, Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
P.S: Jestli mas zajem, muzu poslat i zdroje, kde jsou ruzne figle
v praxi (maskovani, animace atd.)
____________________________ Oddelovac odpovedi ________________________________
Vec: Re: Mrkani okna
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 11.11.1997 08:59
>> Poradte mi nekdo jak psat spravne V D3 prekreslovaci veci,
>> aby formulare zbytecne nemrkaly. Mam graf, ktery je zivy, tj
>> zprava periodicky pribyva hodnota,
>> graf utika doleva. Obcas zbytecne mrkne cela plocha Canvasu
>> a pusobi to rusive. Existuje nejakej zpusob jak naakumulovat
>> prekreslovaci pozadavky a provest je najednou?
>Mel jsem pred casem stejny problem v D1 a take se mi
>nepodarilo zdroj blikani vysledovat a odstranit. Budu rovnez vdecny
>za radu, jak blikani potlacit.
>*-----------------------------------------------*
Jeste doplnim: problem vznika asi tim, ze pred volanim me procedure Paint dojde
k smazani obsahu Canvasu. Maze se implicitni barvou a ja v Paintu ihned pomoci
Rectangle premazu plochu barvou jinou. To mazani mozna zpusobi Invalidate, ktere
mozna vola WIN API InvalidateRect s povolenym EraseBacground - jak tedy donutit,
aby se okno nemazalo implicitne nebo aspon mazalo nejakou pozadovanou barvou?Sd�len� pam�
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 11.10.1997 09:55:02
D�ky v�em, kte�� p�isp�li k �e�en� m�ho probl�mu. Rozhodl jsem se pou��t
mapov�n� soubor� do pam�ti. Av�ak v�e mi funguje pouze dokud nepou�iju
funkce pro kop�rov�n� PChar� (StrPCopy, StrCopy, StrECopy atd.)
Pot�ebuji do sd�len� pam�ti zkop�rovat �et�zec. Vytvo�il jsem si Handle
na sd�lenou pam� funkc� CreateFileMapping. Z�skal jsem adresu pomoc�
funkce MapViewOfFile. Do t�to adresy jsem zkop�roval �et�zec pomoc� v��e
uveden�ch funkc�, ale po n�vratu ze v�ech t�chto funkc� se zm�nil Handle
sd�len� pam�ti na jinou hodnotu, pravd�podobn� neplatnou. Nev� n�kdo
jin� zp�sob pro kop�rov�n� �et�zc� ne� pomoc� v��e uveden�ch funkc� ?
D�ky Vita
aplikace bez okna
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 11.10.1997 10:25:45
Potrebuju se prepnout z me aplikace do jineho programu. Tento program (jde
o hru pro Win95 a tedy naprogramovanou tak, ze obchazi, co muze) nema zadne
viditelne ani neviditelne okno, abych mohl pouzit funkci SetForegroundWindow.
Najdu jej jen mezi spustenymi procesy a tedy jsem schopen zjistit jeho
ProcessID. Na taskbaru se vyskytuje a pomoci Alt+Tab se do ni taky prepnu, ja
to ale potrebuju zaridit na stisknuti tlacitka v me aplikaci. Neporadi nekdo?
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
obrazky, SQL Anywhere a Delphi
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 11.10.1997 10:33:02
Nevim jestli ti budu co platny, ale pred nejakou dobou jsem pracoval
s�velikymi obrazky (nekdy az nekolik mega), kter� jsem ukladal do ORACLE
databaze. Rozhodne jsem nemohl pouzit komponentu dbimage uz jenom proto
ze jsem vse ukladal jako binarni data obrazku v�JPG formatu. Musel jsem
pouzit TblobField a jeho metodu LoadFromStream a SaveToStream. Kupodivu
to chodilo spolehlive ale se Sybase nemam zkusenosti.
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
-----Puvodn� zpr�va-----
Od: Martin Dupal [SMTP:vision(zv)mbox.vol(tec)cz]
Odesl�no: 10. listopadu 1997 11:16
Komu: delphi(zv)io.pinknet(tec)cz
Predmet: obrazky, SQL Anywhere a Delphi
Cau delfinisti,
ma, prosim, nekdo zkusenosti s ukladanim obrazku do databaze
Sybase SQL Anywhere (typ Image nebo LongBinary) a pristupem
k temto datum z Delphi ?
Mne totiz pro obrazky vetsi, nez 32 kB (napr.44 kB) vraci server
nesmyslna data, na kterych si komponenta DBImage samozrejme
vylame zuby.
Pro mensi soubory je vsechno O.K.
BDE jsem nezapomnel nakonfigurovat na BLOBSIZE=64, k serveru
pristupuji
pres ODBC, protoze pro SQL Anywhere jina moznost neni a mam
Delphi 3 na
Win NT 4.0
Dik za kazdou radu
Martin Dupal
kerfel32.dll
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 11.10.1997 10:55:19
Prosim vas nevite nekdo co je to za knihovnu KERFEL32.DLL ? Nemyslim
jadro systemu kernel ale opravdu kerfel.
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
Sd�len� pam�
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 11.10.1997 11:36:05
Jestli nebude problem v�typu ANSIString 32bitoveho pascalu, kter�
obhospodaruje praci s�retezci odlisnym zpusobem nez windows. Pri zmene
velikosti stringu za vetsi dochazi k�realokaci pameti. Vychodisko je
nastavit predem string na dostatecnou delku.
S�pozdravem
Zdenek Petruj
adresa:
Zebra systems, s.r.o.
Spartakovcu 3
708 00 OSTRAVA - Poruba
e-mail: zpetruj(zv)zebra(tec)cz
www: http://www.zebra(tec)cz
tel./fax.:+420-(0)69-6912961, +420-(0)69-6912963
-----Puvodn� zpr�va-----
Od: V�tezslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 11. listopadu 1997 9:55
Komu: Cesk� Delphi konference
Predmet: Sd�len� pame�
D�ky vsem, kter� prispeli k resen� m�ho probl�mu. Rozhodl jsem
se pouz�t
mapov�n� souboru do pameti. Avsak vse mi funguje pouze dokud
nepouziju
funkce pro kop�rov�n� PCharu (StrPCopy, StrCopy, StrECopy atd.)
Potrebuji do sd�len� pameti zkop�rovat retezec. Vytvoril jsem si
Handle
na sd�lenou pamet funkc� CreateFileMapping. Z�skal jsem adresu
pomoc�
funkce MapViewOfFile. Do t�to adresy jsem zkop�roval retezec
pomoc� v�se
uveden�ch funkc�, ale po n�vratu ze vsech techto funkc� se
zmenil Handle
sd�len� pameti na jinou hodnotu, pravdepodobne neplatnou. Nev�
nekdo
jin� zpusob pro kop�rov�n� retezcu nez pomoc� v�se uveden�ch
funkc� ?
D�ky Vita
Sdmlena paml;
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 11.10.1997 11:52:35
On Tuesday, November 11, 1997 9:55 AM, Vmtlzslav Gazda
[SMTP:softda(zv)mbox.vol(tec)cz] wrote:
> funkce pro kop�rov�n� PChar� (StrPCopy, StrCopy, StrECopy atd.)
> Pot�ebuji do sd�len� pam�ti zkop�rovat �et�zec. Vytvo�il jsem si Handle
> na sd�lenou pam� funkc� CreateFileMapping. Z�skal jsem adresu pomoc�
> funkce MapViewOfFile. Do t�to adresy jsem zkop�roval �et�zec pomoc� v��e
> uveden�ch funkc�, ale po n�vratu ze v�ech t�chto funkc� se zm�nil Handle
> sd�len� pam�ti na jinou hodnotu, pravd�podobn� neplatnou. Nev� n�kdo
> jin� zp�sob pro kop�rov�n� �et�zc� ne� pomoc� v��e uveden�ch funkc� ?
A co to zkusit natvrdo pres proceduru Move() ?
====================================
Vytazeno z Helpu
Declaration
procedure Move(var Source, Dest; Count: Word);
Description
The Move procedure copies Count bytes from a Source to Dest. No range-checking
is performed.
When the segment parts of Source and Dest are equal, Move compensates for
overlaps between the source and destination blocks. If the source and
destination overlap but their segment parts are not equal, Move will not
compensate for overlaps and there is a 50% chance that Move will not work
correctly. Borland Pascal's static and dynamic (heap) memory allocation schemes
never create overlapping variables whose addresses have different segment
parts, so this problem can only occur if the addresses of Source and Dest are
modified or normalized by your program, or if they are provided by an external
source.
Whenever possible, use SizeOf to determine the count.
=========================================================================
Ja mam takhle reseno kopirovani StringGridu do Clipboardu, protoze v Objektu
TClipBoard je mala chybicka (v Delphi 1.0 - jinou verzi jsem nezkousel). Pres
TClipBoard nelze jako text kopirovat vice jak 32 kB (i kdyz podle dokumentace
by melo jit 64kB).Je tam zrejme totiz nekde uvnitr pouzit integer misto word
(proto ty rozsahy). Ale to je jenom technika poznamka off-topic.
Zdenek Prantl
Sd�len� pam�+
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 11.10.1997 12:37:18
V]t}zslav Gazda napsal 11 Nov 97 9:55 na tema Sd]len_ pam}+ toto:
> Dmky v9em, ktexm pxisplli k xe9enm miho problimu. Rozhodl jsem se pou>mt
> mapovanm soubory do pamlti. Av9ak v9e mi funguje pouze dokud nepou>iju
> funkce pro kopmrovanm PChary (StrPCopy, StrCopy, StrECopy atd.) Potxebuji do
> sdmleni pamlti zkopmrovat xetlzec. Vytvoxil jsem si Handle na sdmlenou paml;
> funkcm CreateFileMapping. Zmskal jsem adresu pomocm funkce MapViewOfFile. Do
> tito adresy jsem zkopmroval xetlzec pomocm v}9e uveden}ch funkcm, ale po
> navratu ze v9ech tlchto funkcm se zmlnil Handle sdmleni pamlti na jinou
> hodnotu, pravdlpodobnl neplatnou. Nevm nlkdo jin} zpysob pro kopmrovanm
> xetlzcy ne> pomocm v}9e uveden}ch funkcm ?
Coz takhle stara dobra procedure Move ?
----------------------------------------------------------
Pavel Cisar (E-Mail: pcisar(zv)aktis(tec)cz), AKTIS a.s.
----------------------------------------------------------
MediaPlayer - nahravka
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 11.10.1997 13:23:00
Ahoj vsichni!
Nevite nekdo prosim vas jak se pracuje s MediaPlayer v pripade ze
chci aby moje aplikce provedla nahravani. Nejak se mi nedari domluvit
se s metodou StarRecording. Ci spise nic se nedeje po kliknuti na
tlacitko Record. Myslim si ze je treba jeste dopredu nekde
nainicializovat kam se ma nahravka ukladat ale nevim co a jak.
Predem dekuji za kazdy podnet a radu.
Ahoj Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Cestina (was RE: Sd]len_ pam}+)
[*] Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz> - 11.10.1997 14:09:12
On Tuesday, November 11, 1997 1:37 PM, Pavel Cisar [SMTP:pcisar(zv)aktis(tec)cz] wrote:
> V]t}zslav Gazda napsal 11 Nov 97 9:55 na tema Sd]len_ pam}+ toto:
>
> > Dmky v9em, ktexm pxisplli k xe9enm miho problimu. Rozhodl jsem se pou>mt
> > mapovanm soubory do pamlti. Av9ak v9e mi funguje pouze dokud nepou>iju
Zanechte cestiny, prosim..... Je to cim dal tim hure citelne.
Zdenek Prantl
Cestina (was RE: Sd]len_ pam}+)
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 11.10.1997 15:43:48
> From: Zdenlk PRANTL <prantl(zv)ptc.pvt(tec)cz>
> To: "'DELPHI Distribution List'" <delphi(zv)io.pinknet(tec)cz>
> Subject: Cestina (was RE: Sd]len_ pam}+)
> Date: Tue, 11 Nov 1997 14:09:12 +0100
> Organization: PVT a.s.
> Reply-to: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
> On Tuesday, November 11, 1997 1:37 PM, Pavel Cisar [SMTP:pcisar(zv)aktis(tec)cz] wrote:
> > V]t}zslav Gazda napsal 11 Nov 97 9:55 na tema Sd]len_ pam}+ toto:
> >
> > > Dmky v9em, ktexm pxisplli k xe9enm miho problimu. Rozhodl jsem se pou>mt
> > > mapovanm soubory do pamlti. Av9ak v9e mi funguje pouze dokud nepou>iju
>
> Zanechte cestiny, prosim..... Je to cim dal tim hure citelne.
>
> Zdenek Prantl
>
Rovnez se pripojuji.
Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Cekani na konec WinExec
[*] Ing. Tom� PLANKA <planka(zv)bigfoot(tec)com> - 11.10.1997 16:29:33
Ahoj,
ptam se sice na problemek, ktery se tady uz jednou resil,
ale navrhovane reseni neni funkcni ve Win95 s Delphi 2. Proste a jednoduse potrebuji spustit starou dobrou dosovskou aplikaci v ramci Win aplikace pomoci WinExec, ale navic potrebuji pockat na ukonceni teto DOS alikace, nez bude materska aplikace pokracovat dale ve svem behu. Bude se asi jednat o trivialni problem, ale budu vam vdecny za kazde reseni.
SPEEDY
Mrkani okna
[*] Radim Kunz <ogrware(zv)ova.inec(tec)cz> - 11.10.1997 17:04:57
> > Poradte mi nekdo jak psat spravne V D3 prekreslovaci veci,
> > aby formulare zbytecne nemrkaly. Mam graf, ktery je zivy, tj
> > zprava periodicky pribyva hodnota,
> > graf utika doleva. Obcas zbytecne mrkne cela plocha Canvasu
> > a pusobi to rusive. Existuje nejakej zpusob jak naakumulovat
> > prekreslovaci pozadavky a provest je najednou?
> Mel jsem pred casem stejny problem v D1 a take se mi
> nepodarilo zdroj blikani vysledovat a odstranit. Budu rovnez vdecny
> za radu, jak blikani potlacit.
Nejslepsi bude posunout cely graf pomoci copyrect a ten zbyly prouzek invalidovat.
var r:trect
with canvas do
begin
copyrect(rect(1,0,cliprect.right,cliprect.bottom),canvas,rect(0,0,cliprect.right-1,cliprect.bottom));
r := rect(0,0,1,cliprect.bottom);
end
invalidaterect(handle,(zv)r,true);
Radim Kunz
MediaPlayer - nahravka
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 11.10.1997 17:58:49
> Ahoj vsichni!
> Nevite nekdo prosim vas jak se pracuje s MediaPlayer v pripade ze
> chci aby moje aplikce provedla nahravani. Nejak se mi nedari domluvit
> se s metodou StarRecording. Ci spise nic se nedeje po kliknuti na
> tlacitko Record. Myslim si ze je treba jeste dopredu nekde
> nainicializovat kam se ma nahravka ukladat ale nevim co a jak.
Tohle jsem nikdy nezkousel, tak nevim, ale nedivil bych se, kdyby to byla chyba
Borlandu v teto komponente. MediaPlayer jsem pouzival k ovladani CD mechaniky a
k prehravani WAVu. Porad to zlobilo, nebylo na to spolehnuti, tak jsem si
nakonec z Internetu stahnul komponenty pro prehravani WAVu a ovladani CD jsem
si udelal vlastni a tim jsem odstranil vsechny potize. Pokud ti nikdo jiny
neporadi nic chytrejsiho, zkus sve pokusy taky vzdat a radeji se rozhlidni po
Internetu, jestli nekde nenajdes neco sikovnejsiho.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Delphi - Fox - CDX - Cestina
[*] Jirka Burian <jburian(zv)borland(tec)cz> - 11.10.1997 20:20:33
Konecne jsme to dodelali i pro CDXy v kodovani 1250 a 895(MS oznaceni bratri Kamenicti)
blize na http://www.borland(tec)cz/novinky.htm
Jednoznacne cislo zaznamu
[*] reznir1.evd(zv)mail.cez(tec)cz - 12.10.1997 06:40:00
Mozna by nekoho zajimalo, ze autoinkrementacni polozky PARADOXU se pri PACK
v DBDesktop precisluji. To muze pobavit zejmena dobrodruhy, kteri tyto
polozky pouzivaji pro vazby mezi databazemi
V.c : Re: Mrkani okna
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.10.1997 07:25:30
Stingl.Pavel/2300/ETI(zv)eti1.cc wrote:
> Canvas, a pak pres double buffer (pametova bitmapa, kterou
> hodis na Canvas metodou CopyRect). Vysledky vysly 10:1 pro
> double buffer (oblast byla velika 300x200 bodu). Tohle je asi
> nejrychlejsi metoda prekreslovani ve Windows s velmi solidnim
> potlacenim blikani.
>
> Hi, Pavel
>
> P.S: Jestli mas zajem, muzu poslat i zdroje, kde jsou ruzne
> figle v praxi (maskovani, animace atd.)
Ja bych take prosil, na muj mail. Diky.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Obrazok do TDBImage.
[*] Homola Peter <PeterH(zv)zv.spas.sk> - 12.10.1997 08:00:37
Ahoj delphisti.
Momentalne mam problem ako nacitavat obrazky typu BMP do objektu
TDBImage v Delphi 3. Predstavu by som mal zatial taku, ze pod spominanym
objektom by som dal na formulari tlacitko "Load Picture" a do event
"OnClick" by som dal proceduru, ktora by otvorila TOpenPictureDialog,
ktory by odovzdal vybrany obrazok do daneho TDImage. Predsava je sice
pekna vec, ale zatial mam problem prave s touto procedurou (hold kazdy
zaciatok je tazky). Takze kto mozte, tak pomozte. Som vdacny fakt za
kazdu radu.
Diky. Peter.
**********************
HOMOLA Peter, informatik pre EO OZ Zvolen
Slovensk� poistovna a.s., Zvolen
N�m.SNP 98/2 960 47
* 0855/320 140 kl.162
fax: 0855/224 50 fax.server: 0855/222 73
* PeterH(zv)zv.spas.sk
**********************Cestina (was RE: Sdileni pameti)
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 12.10.1997 08:11:27
Omlouvam se, uz nikdy nebudu psat cesky.
Vita
Asi hloupa otazka
[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 12.10.97 08:27:11
Potreboval bych z DELPHI restartovat PC.
Nemate nekdo nejake napady.
Diky
********************************************************************************
Nosek Libor
addr: Dept. Nuclear Spectroscopy
Nuclear Physics Institute
250 68 Rez near Prague
Tel: 00-420-2-66173163 - PC pers.
00-420-2-66173174 - PC center
00-420-2-66173160 - public
Mail: Nosek(zv)UJF.CAS.CZ
******************************************************************************
Cekani na konec WinExec
[*] Martin Dupal <vision(zv)mbox.vol(tec)cz> - 12.10.1997 08:37:49
Ing. Tom� PLANKA wrote:
>
> Ahoj,
> ptam se sice na problemek, ktery se tady uz jednou resil,
> ale navrhovane reseni neni funkcni ve Win95 s Delphi 2. Proste a jednoduse potrebuji spustit starou dobrou dosovskou aplikaci v ramci Win aplikace pomoci WinExec, ale navic potrebuji pockat na ukonceni teto DOS alikace, nez bude materska aplikace pokracovat dale ve svem behu. Bude se asi jednat o trivialni problem, ale budu vam vdecny za kazde reseni.
>
> SPEEDY
function ExecProcess(const CmdLine: String; Minimized, Wait: Boolean):
integer;
var
SI: TStartupInfo;
PI: TProcessInformation;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
SI.dwFlags := STARTF_USESHOWWINDOW;
if Minimized then SI.wShowWindow := SW_SHOWMINNOACTIVE else
SI.wShowWindow := SW_SHOWNORMAL;
if not CreateProcess(nil, PChar(CmdLine), nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then
raise Exception.Create('Aplikaci nelze spustit');
CloseHandle(PI.hThread);
if Wait then begin
WaitForSingleObject(PI.hProcess, INFINITE);
GetExitCodeProcess(PI.hProcess, Result);
end else begin
Result := 0;
WaitForInputIdle(PI.hProcess, INFINITE);
end;
CloseHandle(PI.hProcess);
end;Once again registry...delphi3 (fwd)
[*] Liane BBS <bbs(zv)ratbert.kin.vslib(tec)cz> - 12.10.1997 08:47:36
*** Forwarded file follows ***
Posted By: LV (LV) on 'CZprogram'
Title: Re: Once again registry...delphi3
Date: Tue Nov 11 07:46:39 1997
>
> Ufff..tak jsem si lamal hlavu v delphi2, jak pristupovat k registry....no to
>
> uz je tedka jedno...delphi3 na to maj unitu Registry.... staci dat var
> mojeregistry:Tregistry a je to...potom bych mel mit pristup ke vsem
> funkcim/proceduram/atd...v unite registry...vsechno OK...zkompiluje se
> to...ale ouha...at volam jakoukoli vec..vzdycky mi to hodi exception
> EAccesViolation...at to i kdyz volam nevynny CurrentKey nebo RootKey...o
> OpenKey nebo tak neco ani nemluvne...nevim v cem je problem. Ma s tim nekdo
> zkusenosti? Tak at mi poradi. Thx a lot. Pres win api nebo jak se tomu rika
> to asi tezko zvladnu.
>
> Michelin
>
Delphi3 sice neznam, ale ve dvojce je taky unita Registry a tu spolehlive
pouzivam podle vzoru:
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
OpenKey(RegKey, True);
{ tady se bez problemu cte pomoci
ReadString(s), ReadInteger('Left') apod.
}
finally
Free;
end;
Dalsi info viz help
Ludek Jednoznacne cislo zaznamu
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 12.10.1997 08:56:39
> Mozna by nekoho zajimalo, ze autoinkrementacni polozky PARADOXU se pri PACK
> v DBDesktop precisluji. To muze pobavit zejmena dobrodruhy, kteri tyto
> polozky pouzivaji pro vazby mezi databazemi
To by me tedy zajimalo v jakem DBDesktopu, pri jakem PACKu a po kolika pivech.
To je nejvetsi blbost, pack NIKDY nemodifikuje zadny zaznam, pouze
fyzicky vyhazuje smazane zaznamy. Nikdy jsem se s tim nesetkal a hlavne kdyby
tohle byla pravda, tak by si toho vsimlo davno uz tisice jinych lidi a tak
zavazna chyba by byla za prve diskutovana po celem Internetu a za druhe co
nejrychleji opravena.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Obrazok do TDBImage.
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 12.10.1997 09:04:49
[P��loha v souboru: EditFirm.pas]
[P��loha v souboru: EditFirm.dfm]
> Momentalne mam problem ako nacitavat obrazky typu BMP do objektu
> TDBImage v Delphi 3.
V priloze posilam jeden svuj formular, kde jsem presne tohle delal. Je tam
tlacitko, ktere otevre TOpenDialog a pak dany BMP soubor ulozi do daneho fieldu
v databazi (TBlobField). Tim se samozrejme automaticky zobrazi i v TDBImage.
Pak je tam tlacitko, ktere odstrani obrazek z tabulky prostym volanim metody
Clear u daneho fieldu.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
N�sleduj�c� odd�l obsahuje soubor, kter� byl pro p�enos upraven do
form�tu MIME. Pou��v�te-li Pegasus Mail, nebo jin� po�t. program,
vyhovuj�c� MIME, m��ete jej zobrazit/odd�lit p��mo va��m
po�t. programem, jinak po��dejte o pomoc spr�vce syst�mu.
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: EditFirm.dfm
Date: 31 May 1997, 15:14
Size: 4955 bytes.
Type: Unknown
N�sleduj�c� odd�l obsahuje soubor, kter� byl pro p�enos upraven do
form�tu MIME. Pou��v�te-li Pegasus Mail, nebo jin� po�t. program,
vyhovuj�c� MIME, m��ete jej zobrazit/odd�lit p��mo va��m
po�t. programem, jinak po��dejte o pomoc spr�vce syst�mu.
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: EditFirm.pas
Date: 31 May 1997, 15:08
Size: 4154 bytes.
Type: Program-source
Asi hloupa otazka
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 12.10.1997 09:11:38
> Potreboval bych z DELPHI restartovat PC.
Podivej so do helpu na funkci ExitWindowsEx (resp. ExitWindows - pro 16-i
bitove Windows). Muzes dokonce urcit, jestli se ma restartovat, vypnout, jen
preprihlasit uzivatele, ap.
Pokud chces provest reboot:
ExitWindowsEx(EWX_FORCE+EWX_REBOOT,0);
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Asi hloupa otazka
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 12.10.1997 09:27:53
Pouzij API funkci ExitWindowsEx.
Priklad:
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT,0);
end;
Vita
Jednoznacne cislo zaznamu
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 12.10.1997 09:49:01
To by me tedy zajimalo v jakem DBDesktopu, pri jakem PACKu a po kolika pivech.
To je nejvetsi blbost, pack NIKDY nemodifikuje zadny zaznam, pouze
fyzicky vyhazuje smazane zaznamy. Nikdy jsem se s tim nesetkal a hlavne kdyby
tohle byla pravda, tak by si toho vsimlo davno uz tisice jinych lidi a tak
zavazna chyba by byla za prve diskutovana po celem Internetu a za druhe co
nejrychleji opravena.
[Miloslav Sk�cel]
Problemy s polozkou autoincrement pro vazbu mezi tabulkami muzu jenom potvrdit.
Problem byl taky zminovan v ddj-thread-db(zv)zdtips.com.
Milos
V.c : Re: Mrkani okna
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 12.10.1997 10:15:11
Nechce se mi vytvaret nejake dalsi canvasy - tech grafu je najednou zobrazeno nekolik , takze by to zbytecne zralo pamet. Snad jedine pri paintu vytvaret
novej canvas dynamicky (nevim ale jestli to nesezere moc casu), pak ale nevim jak
na nej kreslit (aby se korektne volalo beginpaint a endpaint).
Ze poblikava cara grafu az tak nevadi, vadi to ze blika pozadi - je bile a formular pod nim sedivy.
> Taky doplnim - je velmi zdlouhave delat ve Windows graficke operace
> uzivateli na ocich, at pouzijes cokoli, kde kreslis primo na Canvas
> formulare nebo jakehokoli potomka TWinControl. Tam se proste blikani
> nezbavis, at delas co delas (pokud nemas oblast pro kresleni 10x10
> bodu, a i tam bych si dovolil byt skepticky). Zkousel jsem delat testy
> prekreslovani primo na Canvas, a pak pres double buffer (pametova
> bitmapa, kterou hodis na Canvas metodou CopyRect). Vysledky vysly
> 10:1 pro double buffer (oblast byla velika 300x200 bodu). Tohle je
> asi nejrychlejsi metoda prekreslovani ve Windows s velmi solidnim
> potlacenim blikani.Autoincrement v Paradoxu
[*] tomas.mazurek(zv)vitkovice(tec)cz - 12.10.1997 10:31:11
Nazdar,
byl jsem prekvapen informaci o udajnem precislovani hodnot v polozce
typu Autoincrement. Ihned jsem to vyzkousel u svych ostrych tabulek a
okamzite jsem si potvrdil, ze to neni pravda...
Plati to pro BDE 2.52 16 bit i BDE 4.0 32 bit.
Poustejte do konference radeji overene informace...
Existuje jeden pripad, ktery je trochu podobny. Ten se vsak tykal
knihovny TUTILITY.DLL, ktera slouzi ke kontrole a obnove poskozenych
tabulek typu Paradox. U jedne starsi verze teto knihovny skutecne
dochazelo k tomu, ze se po pouziti fce TuRebuildTable, tabulka
precislovala. Ale to se tykalo jen 16bitove verze a jiz davno byla
opravena... Navic to nemelo nic spolecne s DBDesktopem a fci Pack.
Tomas
Autoincrement Paradox - omluva
[*] reznir1.evd(zv)mail.cez(tec)cz - 12.10.1997 10:40:02
Omlouvam se za vypusteni magicke informace. Ziji jiz 2 mesice v tomto
hloupem omylu a jsem rad
ze jste mne z nej rychle vyvedli. Nedokazu jiz bohuzel zrekonstruovat
situaci, ze ktere jsem ucinil tento
mylny zaver. Po provedeni nekolika novych pokusu tuto situaci navodit Vam
bohudik musim dat za pravdu.
Autoinkrementacni polozka v PARADOXU se pakovanim skutecne neprecisluje.
Asi hloupa otazka
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 12.10.1997 10:52:22
Nosek Libor wrote:
>
> Potreboval bych z DELPHI restartovat PC.
> Nemate nekdo nejake napady.
>
Tohle ukonci w95, mozna ze ten restart pujde podobne. Nezkousel jsem to
z programu, mam to jako zastupce.
C:\WINDOWS\RUNDLL32.EXE user,ExitWindows
Vaclav Sazima
P.S. Nekdo tady v konferenci napsal, ze nejsou hloupe otazky, jsou jen
hloupe odpovedi.DLL knihovny a globalni promenne
[*] V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz> - 12.10.1997 11:37:05
Mohl by mi n�kdo poradit se syntaxi zapisu globalnich promennych v DLL
knihovne. Potrebuji, aby tato globalni promenna byla pouze jedna, i kdyz
knihovnu pouziva vice aplikaci. A v ktere casti unity bych tuto globalni
promennou mel inicializovat a kde ji zase uvolnit, aby byla zase
inicializovana a uvolnena pouze jednou ?
Diky za radu
Vita
Instalace OCX
[*] Urx Lubom�r <Lubos.Urx(zv)mius(tec)cz> - 12.10.1997 12:19:17
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 21. kv�tna 1997 13:15
> Komu: Delphi (main PCS forum)
> P�edm�t: Instalace OCX
>
> Pinnacle Graph
> --------------
> GRAPH32.OCX + zaregistrovat
> GSW32.EXE
> GSWDLL32.DLL
>
> Ted presne nevim, ale mam takovy pocit, ze vsude musi byt tyto
> knihovny: OC30.DLL, OLEPRO32.DLL, ale to si fakt nejsem jist.
> Radeji si je tam vzdy prikopirujte... A ted to nejdulezitejsi:
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
------------------------
Instaloval jsem GRAPH32.OCX spolecne se svoji aplikaci a krom zminenych
modulu je treba pridat i
GSWAG32.DLL.
Mam Delphi 2.01 a v helpu k prislusnemu OCX jsou bohuzel vyjmenovany
pouze vyse uvedene moduly. Po doplneni o GSWAG32.DLL probehla instalace
v poradku.
Lubos
--------------------------------
Lubomir Urx
MIUS Teplice, v.o.s.
lubos.urx(zv)mius(tec)cz
DLL knihovny a globalni promenne
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 12.10.1997 13:39:11
V]t}zslav Gazda napsal 12 Nov 97 11:37 na tema DLL knihovny a globalni
promenne toto:
> Mohl by mi nlkdo poradit se syntaxi zapisu globalnich promennych v DLL
> knihovne. Potrebuji, aby tato globalni promenna byla pouze jedna, i kdyz
> knihovnu pouziva vice aplikaci. A v ktere casti unity bych tuto globalni
> promennou mel inicializovat a kde ji zase uvolnit, aby byla zase
> inicializovana a uvolnena pouze jednou ?
U D1 (16-bit) udelas globalni DLL promennou stejne jako u EXE, tj. v
interface nejake unity. U D2/3 (32-bit) je to stejne, ALE...
...promena je dostupna pouze z jedne aplikace, anzto Win32 natahuje DLL do
adresniho prostoru ulohy, a ten jak znamo se nesdili (ulohy k sobe nemuzou).
=> Kazda uloha ma svou kopii DLL => kazda ma svou globalni promennou.
Promenna je ovsem stejna pri volani z ruznych vlaken teze aplikace, ale
musis si osetrit blokovani pristupu (vzdy jen jeden).
Resenim "globality" mezi programy je memory mapped file (viz help nebo par
zdejsich mailu zpet).
Haj hou!
Sender: Pavel "ERGO" Cisar (E-Mail: pcisar(zv)aktis(tec)cz)
Budte trpelivi. Evoluce s nami jeste neskoncila. (Solomon Short)Mrkani okna
[*] Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz - ov 1997 13:54:45 -0700
Samotny Canvas dynamicky nevytvoris, vzdycky ho musis mit v nejakem
objektu (TBitmap), a na jeho Canvas kreslit. Pro vsechny grafy muzes
mit pametovy objekt spolecny, s pametovou narocnosti to taky neni tak
zhave (bitmapa 256 barev 600x400 sezere asi 250kB). Co se tyce
zpomalovani programu, jakakoli operace v pameti je neskonale rychlejsi
nez primy graficky vystup na obrazovku, a funkce CopyRect je obecne
pokladana za nejrychlejsi metodu kopirovani grafiky ve Windows, takze
to, jestli vytvoris jeden objekt v pameti navic je zanedbatelne.
Kouzlo pameti je v tom, ze zadne metody jako beginpaint a endpaint
nevolas. Proste jen nakreslis bitmapu v pameti a pak ji hodis na Canvas
formulare, nebo kam to vlastne mastis. Asi uz se opakuju, proto ti v
priloze prikladam zdroje k programu (je to zabalene v souboru
test.zip), ktery by mel tvuj problem vyresit.
Generuje nahodnou krivku, da se to odbouchavat rucne, nebo pres timer,
ktery je nastaven na 1/4 sec. Myslim ze to chodi bajecne.
Mej se
Pavel
____________________________ Oddelovac odpovedi ________________________________
Re: Mrkani okna
Autor: Internet:delphi-request(zv)io.pinknet(tec)cz/ , _INTERNET
Datum: 12.11.1997 12:19
Nechce se mi vytvaret nejake dalsi canvasy - tech grafu je najednou zobrazeno
nekolik , takze by to zbytecne zralo pamet. Snad jedine pri paintu vytvaret
novej canvas dynamicky (nevim ale jestli to nesezere moc casu), pak ale nevim
jak
na nej kreslit (aby se korektne volalo beginpaint a endpaint).
Ze poblikava cara grafu az tak nevadi, vadi to ze blika pozadi - je bile a
formular pod nim sedivy.
RFC-822-Headers:
X-Priority: 3
X-Msmail-Priority: Normal
X-Mailer: Microsoft Outlook Express 4.71.1712.3
X-Mimeole: Produced By Microsoft MimeOLE V4.71.1712.3
X-Mime-Autoconverted: from base64 to 8bit by io.pinknet(tec)cz id LAA09841
Precedence: list
Errors-To: list-errors(zv)pinknet(tec)cz
Zjisteni bezicich aplikaci ve W.
[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 12.10.97 13:56:00
Ahoj.
Potrebuji zjistit ktere aplikace ve windows jsou aktivni jako okno
a ktere jsou jako ikony.
Diky
********************************************************************************
Nosek Libor
addr: Dept. Nuclear Spectroscopy
Nuclear Physics Institute
250 68 Rez near Prague
Tel: 00-420-2-66173163 - PC pers.
00-420-2-66173174 - PC center
00-420-2-66173160 - public
Mail: Nosek(zv)UJF.CAS.CZ
******************************************************************************
komponenta TDBProgress
[*] Martin Dupal <vision(zv)mbox.vol(tec)cz> - 12.10.1997 14:14:15
Pouzil jste uz nekdo komponentu TDBProgress z knihovny RX 2.32 (2.31) ?
Mne ne a ne fungovat - negeneruje se mi zadna udalost z teto komponenty,
ani na Paradoxu ani na nicem jinem.
Nevite nekdo, jestli tam nemaji nejaky bug.
Dik
Jednoznacne cislo zaznamu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.10.1997 15:32:45
> Mozna by nekoho zajimalo, ze autoinkrementacni polozky PARADOXU se pri PACK
> v DBDesktop precisluji. To muze pobavit zejmena dobrodruhy, kteri tyto
> polozky pouzivaji pro vazby mezi databazemi
To rozhodne neni pravda. Nevim, kde na to kdo prisel...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Zjisteni bezicich aplikaci ve W.
[*] V\mt\lzslav Gazda <softda(zv)mbox.vol(tec)cz> - 12.10.1997 16:02:18
Doporucuji pouzit enumeracni API funkci EnumWindows k nalezeni vsech
oken nejvyssi urovne a API funkci IsIconic ke zjisteni zda je okno
minimalizovane.
Priklad:
unit Example;
interface
uses
Windows;
function Go:Boolean;
function EnumWindowsFunc(hWindow:HWND;lParam:LPARAM):Boolean;stdcall;
implementation
function Go;
begin
EnumWindows((zv)EnumWindowsFunc;0);
end;
function EnumWindowsFunc;
begin
if IsIconic(hWindow) then
{Minimized}
else
{No Minimized}
end;
end.
Mnoho zdaru
Vita
Mrkani okna
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 12.10.1997 16:19:49
Parada,
chodi to bez mrkani dokonce i v mejch grafech.
Uz jsem si snad udelal poradek jak to je s tim kreslenim, pokud se mylim opravte mne:
- TCanvas NEMA alokovanou zadnou pamet na bufferovani zobrazenych dat, tj Pixels[] jsou
jen neco co cte/zapisuje pomoci WIN API fci rovnou do okna. Tim padem manipulace s Pixels[]
znamena vzdy manipulaci s obrazovkou a volani API (predpokladam ze okno je viditelne) a tim
padem je to obrovsky pomale.
Zajimalo by me jeste jak je to s velikosti bufferu u TBitmap - jedna se o pocet bytu na jeden pixel resp. o baravnou hloubku. Je to tak, ze se to ridi nastavenym, typem rosliseni videa? Nebo natvrdo
24 bitu?
> Samotny Canvas dynamicky nevytvoris, vzdycky ho musis mit v nejakem
> objektu (TBitmap), a na jeho Canvas kreslit. Pro vsechny grafy muzes
> mit pametovy objekt spolecny, s pametovou narocnosti to taky neni tak
> zhave (bitmapa 256 barev 600x400 sezere asi 250kB). Co se tyce
> zpomalovani programu, jakakoli operace v pameti je neskonale rychlejsi
> nez primy graficky vystup na obrazovku, a funkce CopyRect je obecne
> pokladana za nejrychlejsi metodu kopirovani grafiky ve Windows, takze
> to, jestli vytvoris jeden objekt v pameti navic je zanedbatelne.
> Kouzlo pameti je v tom, ze zadne metody jako beginpaint a endpaint
> nevolas. Proste jen nakreslis bitmapu v pameti a pak ji hodis na Canvas
> formulare, nebo kam to vlastne mastis. Asi uz se opakuju, proto ti v
> priloze prikladam zdroje k programu (je to zabalene v souboru
> test.zip), ktery by mel tvuj problem vyresit.
> Generuje nahodnou krivku, da se to odbouchavat rucne, nebo pres timer,
> ktery je nastaven na 1/4 sec. Myslim ze to chodi bajecne. Cekani na konec WinExec
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.10.1997 16:52:20
Ing. Tom� PLANKA wrote:
> jednoduse potrebuji spustit starou dobrou dosovskou aplikaci v ramci
> Win aplikace pomoci WinExec, ale navic potrebuji pockat na ukonceni
> teto DOS alikace, nez bude materska aplikace pokracovat dale ve svem
> behu. Bude se asi jednat o trivialni problem, ale budu vam vdecny za
> kazde reseni.
procedure TMainForm.Shell(AFile,AParam,ADir:string);
var
lpExitCode : integer;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
MemoMess.Lines.Add(AFile+' '+AParam);
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do
begin
cb := SizeOf(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
wShowWindow := SW_HIDE;
end;
if CreateProcess(nil,PChar(AFile+' '+AParam),nil,nil,False,
NORMAL_PRIORITY_CLASS,nil,PChar(ADir),StartupInfo,ProcessInfo)
then
begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
if not GetExitCodeProcess(ProcessInfo.hProcess,lpExitCode)
then lpExitCode:=GetLastError;
if lpExitCode<>0 then
MemoMess.Lines.Add(Format(ProcessError,[lpExitCode]));
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Jednozna...
[*] Skacel Miloslav <skacel(zv)kjsoft(tec)cz> - 12.10.1997 17:06:56
Na strance http://www.o2a.com/TUFiles.htm
je to vsechno pekne vysvetleno.
Zminovane problemy s autoincrement jsou uz minulost:)
Milos TableLanguage
[*] Petr Kristan <epos(zv)pce.fairnet(tec)cz> - 12.10.1997 17:09:24
Zdavim.
Netusite nekdo, jak _programove_ v BDE nastavit default subj. pro
PDOX nebo DBASE?
Nemyslim v BDE Administratoru, ale v mem vlastnim programu.
1. Aby mi pri vytvoreni nove tabulky nastavil subj. dle meho prani.
2. Aby pri otevreni tabulky s nespecifikovanym subj. se bral
mnou nastaveny a ne default co je v registrech.
Koukal jsem uz do bde32.hlp, ale moc moudrej jsem z toho nebyl.
Diky za radu
Petr Kristan
--
EPOS PRO s.r.o., U Josefa 117, 530 09 Pardubice
tel./fax: (040)47 843, e-mail: epos(zv)pce.fairnet(tec)cz