Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Verze Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.5.1998 22:57:50
Tomas Skopik wrote:
>
> Zdravim vsechny.
>
> Mam tady Delphi 3 Standart a potrebuju zjistit jestli je to verze 3.00 nebo 3.01. V about je verze 3.0 build 5.83.
>
> Nevite nekdo jak na to?
Ahoj,
Ja mam naprikad verzi 2.01, ale v about to pise stejne 2.0, takze to je k
nicemu.
Ale kdyz si dam u souboru delphi32.exe vlastnosti, tak v zalozce Verze, v
polozce
verze vyrobku mam 2.01 . Takze zkus toto.
Petr Vones, amatersky programator
RollBack bez kontroly
[*] �ke��k Jaroslav�������6�����̿ - 4.5.1998 23:12:24
Ahoj Keriku.
Nojo - stale mi z toho vypadava (S s hackem) a dalsi hacek a carka.
Tak se radeji podepisuju Jaro. Zavada neni na vasem prijimaci ale
asi na mem Outlook.
Diky za osvetleni problemu, ted uz tomu zacinam rozumet, ale
bohuzel, jak pises, ten provadeny RollBack neni k nicemu.
V dialogu mam tlacitka OK = Database.Commit;
Zrusit = Database.RollBack;
Je to dialog 1:M, takze v tom dialogu vramci jedny transakce muzu
pridavat a mazat libovolny pocet zaznamu.
Treba je reseni na snade, ale me, vztekem a bezmocnou nemohoucnosti
zastrene oci ho proste nevidi.
-----
AHA ............
Pro dialog 1:M a podobne pripady, ktere popisujes ja radeji pouzivam
konstrukci
s CachedUpdates (TQuery s CachedUpdates a TUpdateSQL)
V Delphi je na to maly priklad.
Pak na tlacitko OK pouzijes
Query1.ApplyUpdates
Query1.CommitUpdates
a na Zrusit
Query1.CancelUpdates
Mezi temi tlacitky muzes pridat zrusit nebo zmenit libovolny pocet zaznamu
a udela (potvrdi) se to (nebo vrati) najednou az pri pouziti tlacitek.
viz tez help. Ja to pouzivam bez problemu.
Jaro.
Diky moc.
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Cursor
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 04.5.1998 23:24:01
Hi,
neni rozdilu mezi prazdnym a plnym formularem, pouzije-li se screen.
Petr Vones wrote:
> Ahoj,
> Nevim jestli je to presne to co potrebujes, ale na prazdnem formulari me to funguje:
>
> procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Screen.Cursor := crDrag;
> end;
>
> procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Screen.Cursor := crDefault;
> end;
>
> Po umisteni komponent na formular to jiz ale bude asi trosku slozitejsi.
>
> Petr Vones, amatersky programator
Rx
[*] �ke��k Jaroslav�������6�����̿ - 4.5.1998 23:31:39
A pak maji ty Wokna fungovat.
Podle mych zkusenosti je nejlepsi v Config.sys a Autoexec.bat nemit nic.
Ze zkusenosti u zakazniku vim, ze lidi tam jsou schopni nacpat vsechno.
Nebo to tam nacpou instalacni programy. O deinstalaci se uz vetsinou
stara malokdo. O souborech Win.ini a "bordelu" v registrech ani nemluvit.
Neporadnou instalaci a deinstalaci dela i rada her. Ale i verohodne programy
mohou
s Windows zacvicit. Nedoporucuji napriklad pres nainstalovany Office 97
instalovat
Internet Explorer 4.01 cz.
Ze pak Windows padaji casteji nez podzimni listi neni divu.
Mne nepadaj
----------------------------------------------------------
>Nezacal jsi pouzivat nejaky dalsi software? Ja jsem treba drive pouzival
>QEMM 8.0 a porad mi padaly Delphi. Nemohl jsem na to vubec prijit, az
>jednou. (taky jsem nejdriv 1000x preinstaloval Windows a nic)
-----------------------------------------------
Opravdu 1000x? To uz mas docela najety, ze?
Mnohdy nestaci preinstalovat. Windows zachovaji registry, win.ini a vetsinu
neporadku vcetne chyb.
Musi se instalovat znova od cisteho disku. To by ti tam ten QEMM nezustal.
---------------------------------------------
>Stacilo odstranit z configu zavadeni QEMM.
--------------------------------------------
Draze ziskana zkusenost .............
Jaro
SQL WinBase 5
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 04.5.1998 23:39:12
Alame wrote:
>
> Pouzivate nekdo WinBase 5 od 602 ??
>
> Podelte se se zkusenostmi... Jestli se tim mam vubec zabyvat...
>
> D.
****** NEEEEEE !!! *************Verze Delphi
[*] �ke��k Jaroslav�������6�����̿ - 4.5.1998 23:54:44
V About je 3.0 i pro verzi 3.01
Podivej se na CD na cas souboru v \Runimage\DELPHI30\BIN.
Bud byly soubory vytvoreny v case 3.00 nebo v case 3.01.
Chytre, ze?
Jaro.
---------------------------------
>Tomas Skopik wrote:
>>
>> Zdravim vsechny.
>>
>> Mam tady Delphi 3 Standart a potrebuju zjistit jestli je to verze 3.00
nebo 3.01. V about je verze 3.0 build 5.83.
>>
>> Nevite nekdo jak na to?
>
>Ahoj,
>
>Ja mam naprikad verzi 2.01, ale v about to pise stejne 2.0, takze to je k
>nicemu.
>Ale kdyz si dam u souboru delphi32.exe vlastnosti, tak v zalozce Verze, v
>polozce
>verze vyrobku mam 2.01 . Takze zkus toto.
>
> Petr Vones, amatersky programator
Rx
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 05.5.1998 00:00:55
Zdravim,
to je zajimave, muzete o tom napsat vic? Behem tydne mam instalovat u
nas v podniku IE4CZ pres ten Office. O co jde?
fronek(zv)fic(tec)cz
> mohou
> s Windows zacvicit. Nedoporucuji napriklad pres nainstalovany Office 97
> instalovat
> Internet Explorer 4.01 cz.
> Ze pak Windows padaji casteji nez podzimni listi neni divu.
> Mne nepadaj
OCX
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 5.5.1998 06:57:30
> je ale mozne, ze ta komponenta chce jeste dalsi .DLL soubory...
>
> Co presne je to za OCX?
>
SMTP z Delphi 3.0.Grafy
[*] Ondrej Kelle <Kelleon(zv)nnsk.sk> - 5.5.1998 07:22:29
Ahoj,
ja to robim takto:
Series1.AddXY(X, Y, '', Series1.SeriesColor);
Ondrej Kelle
it(zv)nnsk.sk
> -----Original Message-----
> From: Josef Dodek student [SMTP:xdodek(zv)feld.cvut(tec)cz]
> Sent: 4. m�j 1998 12:21
> To: delphi(zv)pinknet(tec)cz
> Subject: Grafy
>
>
> Zdravim,
>
> muze mi nekdo prosim poradit jestli a pripadne jak je mozne pri
> pouziti komponenty TChart dostat do grafu svoje data aniz bych musel
> pripojovat databazi.
>
> predem diky
> Pepa
OCX
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 5.5.1998 08:14:43
a nebo TRegsvr.exe.
A nebo si najdi help DLLRegisterServer a DLLUnRegisterServer (tyto fce
exportuje kazde OCX).
Ted to budes umet i sam.
Zdravim
Martin Nedopil
nedopil(zv)eskon(tec)cz
nedopil(zv)geocities.com
Delphi kitchen?: http://www.geocities.com/Athens/Olympus/5260
Probl�m s F1
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 5.5.1998 08:20:43
> -----Original Message-----
> From: SATON Glass s.r.o. [SMTP:info(zv)saton(tec)cz]
> Sent: Monday, May 04, 1998 9:38 PM
> Subject: Probl�m s F1
>
> Ahoj vsichni,
> uz jsem se ptal nekolikrat, ale zadna z odpovedi nemela ten spravny ucinek.
> Pracuji v D1 a nejsem schopen aktivovat klavesu F1 na formu, ktery nema
> aktivni prvek (kdyz je tam edit tak se chyta v poradku, na polozce menu
> taky). Proste si uz nevim rady, a dost me to depta. S helpem pracuji pomoci
> HelpScribble.
Zkusil sis nastavit u Formu property HelpContext <> 0? Pokud je totiz = 0 tak
se help nerozjede.
Jinak to lze resit take pres metodu OnKeyDown treba takto:
Na Form1 jsem dal TButton, TRadioButton, TEdit s default. nazvy a priradil vsem
jedinou metodu na OnKeyDown
===========================================================================
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption :=IntToStr(Key);
IF Key=112 THEN
BEGIN
IF Sender = Button1 THEN
BEGIN
Application.HelpContext(1100);
END;
IF Sender = RadioButton1 THEN
BEGIN
Application.HelpContext(1200);
END;
IF Sender = Edit1 THEN
BEGIN
Application.HelpContext(1300);
END;
END;
end;
============================================================
Zdenek
prantl(zv)ptc.pvt(tec)cz
Thready a databaze
[*] Bielik Marian <bielik(zv)basl.sk> - 05.5.1998 08:33:59
[P��loha v souboru: Performing database queries in a background thread.zip]
Je pravda , ze jeden priklad je v TIckach.
(pripajam Performing database queries in a background thread.zip)
Marian
RADIK(zv)p15.monet(tec)cz wrote:
> Uz jsem to tu kdysi psal. Nasel jsem to kdysi jako priklad u
> Borlandu..... (asi v TI's).
> Myslim ze pointa byla, ze kazda instance threadu musi vytvorit vlastni
> Session a Database a pak svoje Table, Query atd....
>
> Ales
>
> ----------
> Od: Dan Rulicek
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Thready a databaze
> Datum: 4. kv�ten 1998 12:10
>
> Zdravim vsechny,
> mate nekdo nejake zkusenosti s thready a databazemi?
> Potreboval bych s tim poradit.
MS Access
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 05.5.1998 08:54:34
Hmm, zajimave ;-).
Diky
Martin Kubecka
> I know that there is a performance problem with queries using
> IDDA3532.DLL on keyed tables with a lot of fields although this is not
> limited to NT.
> Borland has said this is do to problems in the DAO public interface.off topic - mesta - PSC - UTO data - tabulka - s
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 05.5.1998 10:25:48
Hmm, stahnul jsem, rozbalil, ale hlasi mi to Table/Index corrupt. Co to
je za verzi *.dbf ??
Martin Kubecka
P.S. UTO u PSC jsem zahlidnul ve Slovniku od fy Oplatek Software
(vlastni datovy format). Mozna maji k dispozici i nejaky rozumny format
(otazka zda free nebo za prachy a jestli vubec...)
Kazdopadne: Oplatek Software
Podbelohorska 54
150 00 Praha 5
tel. 02 / 524 912
(jestli je to jeste aktualni - nevim)
Good luck ;)
Ales wrote:
>
> >Protoze uz namam silu to kazdemu posilat, pozadal jsem o umisteni na
> >nasledujici adresu: http://195.146.99.154/download/stuff/psc.zip
> >
> >A stahnete si to sami..
> >
> >Davam to k volnemu pouziti, nicmene pokud to nekdo z Vas bude chtit pouzit
> >KOMERCNE (resp. do nejake sve aplikace), je to povoleno, ale musim o tom
> >PREDEM vedet!
> >_________
> >Zatim mi nikdo neposlal nejake solidni UTO, podivejte se do te tabulky je
> >tam pro UTO prazdne misto...
> >
> >Tot vse.Offtopic, Delphi a rok 2000
[*] VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz - y 1998 10:29:42 -0700
Myslim ze prezijou - otazka je jestli i s BDE nebo ne , jak hodne se zmeni
Object Pascal atd.
Vubec bych se nedivil kdyby se dal C++Builder a Delphi do hromady do jednoho
produktu v kterem by bylo
jedno jestli napises kod v C++ nebo Pascalu.
Clovek si musi totiz uvedomit ze Inprise(Borland) chce jet hlavne do Enterprise
aplikaci a k cemu ti je Midas kdyz nebudes
mit vcem pro nej programovat.
Radek
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 4. kvitna 1998 22:09
Komu: Internet:delphi(zv)pinknet(tec)cz/
Poedmit: Offtopic, jeste k Borland->Inprise...
S tim me take napada otazka, myslite si ze Delphi prezije rok 2000 ? SQL WinBase 5
[*] V�t�zslav Gazda������u��n�?��? - 5.5.1998 10:35:31
Kdysi jsem zkousel pouzit WinBase SQL Server 6 spolu z Delphi, ale
nefungovalo to. Psal jsem muj problem take do online fora spolecnosti
Software 602. Odpoved znela, ze jejich clovek, ktery mel na starosti tuto
sekci jiz u nich nepracuje, ale mel by brzy nastoupit novy. Takze at chvilku
pockam. Uz je to asi pul roku a zadna dalsi odpoved se v online foru na moji
otazku neobevila. Tim vsak nechci rikat, ze je spojeni WinBase & Delphi
spatne. Mozna, ze chyba byla nekde u mne, ale protoze reseni jsem nedostal,
tak WinBase nepouzivam.
Jestli te zajima muj problem tak tady je adresa do online fora kde najdes
moji otazku i tu jedinou odpoved. Je to hned prvni otazka na teto strance od
Vitezslava Gazdy.
http://market.software602(tec)cz/cgi-bin/wbisapi.dll/forum/s_zprav.htw?wb_s=onli
ne&hz=144&tt=1&nmu=-1&vk=0
Vita
OCX
[*] Petr Zahradnik <clexpert(zv)unl.pvtnet(tec)cz> - 5.5.1998 10:35:20
> > je ale mozne, ze ta komponenta chce jeste dalsi .DLL soubory...
> >
> > Co presne je to za OCX?
> >
> SMTP z Delphi 3.0.
No tak ten potrebuje jeste dalsi DLL knihovny a jednu jeste
samostatne registrovat jako prvni...
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 ===
==============================================================Verze Delphi
[*] Petr Zahradnik <clexpert(zv)unl.pvtnet(tec)cz> - 5.5.1998 10:35:19
> Mam tady Delphi 3 Standart a potrebuju zjistit jestli je to verze 3.00 nebo 3.01. V about je verze
> 3.0 build 5.83.
>
> Nevite nekdo jak na to?
Kdyz se podivas na soubory, tak pokud maji nektere cas 3:01, mela by
to byt verze 3.01, pokud jsou vsechny jen 3:00, tak ne.
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 ===
==============================================================Verze Delphi
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 5.5.1998 10:38:53
:-))
Zvlastni zpusob cislovani verzi. Ale je to tak, je tam cas 3:01.
Bye,
-----
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
-----Original Message-----
From: Cke��k Jaroslav <jaro(zv)zbk(tec)czn(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 5. kv�tna 1998 0:43
Subject: Re: Verze Delphi
>V About je 3.0 i pro verzi 3.01
>Podivej se na CD na cas souboru v \Runimage\DELPHI30\BIN.
>Bud byly soubory vytvoreny v case 3.00 nebo v case 3.01.
>Chytre, ze?
>Jaro.
>---------------------------------
>
>
>>Tomas Skopik wrote:
>>>
>>> Zdravim vsechny.
>>>
>>> Mam tady Delphi 3 Standart a potrebuju zjistit jestli je to verze 3.00
>nebo 3.01. V about je verze 3.0 build 5.83.
>>>
>>> Nevite nekdo jak na to?
>>
>>Ahoj,
>>
>>Ja mam naprikad verzi 2.01, ale v about to pise stejne 2.0, takze to je k
>>nicemu.
>>Ale kdyz si dam u souboru delphi32.exe vlastnosti, tak v zalozce Verze, v
>>polozce
>>verze vyrobku mam 2.01 . Takze zkus toto.
>>
>> Petr Vones, amatersky programator
>Indexy v delphi Out of Date
[*] Jiri Zachardala <jiri.zachardala(zv)spsselib.hiedu(tec)cz> - 5.5.1998 10:52:02
Udelam si tabulku Paradox V Databese Desktop udelam hlavni a vedlejsi
indexy vygeneruji fomlurar v Form wizardu a chci udelat vyhledavani
nastavim indexovani a dokad je tabulka prazdna je to v pohode ale jak
ji naplnim a pustim to v Delphi 3.0 napise to Index out of Date
Nevite nekdo cim to je.
Dekuji za jakoukoliv radu
D3 - ��slo verze
[*] V�tek Hork� <vhorky(zv)grendel(tec)cz> - 5.5.1998 11:11:06
Zdrav�m V�s!
V� n�kdo, jak mohu z�skat hodnotu ��sla verze (ModuleVersionNumber v \Project\Option\VersionInfo) z programu?
D�ky.
S pozdravem
Ing.V�t�zslav Hork�
tel/fax: 0659 712 605
mobiln�: 0603 494 075 nebo vit.horky(zv)sms.paegas(tec)cz (max.140 znak�, bez diakritiky!)Verze Delphi
[*] TucekR(zv)p15.monet(tec)cz - 5.5.1998 11:11:00
JUKNI NA DATUM SOUBORU .... a napis ja se kouknu doma, ale myslim ze to
je 3.01
TRT
----------
Od: Tomas Skopik
Komu: Delphi Konference
P�edm�t: Verze Delphi
Datum: 4. kv�ten 1998 21:45
Zdravim vsechny.
Mam tady Delphi 3 Standart a potrebuju zjistit jestli je to verze 3.00
nebo 3.01. V about je verze 3.0 build 5.83.
Nevite nekdo jak na to?
Bye,
-----
Tom� �kop�k
e-mail : skopik(zv)vtv(tec)czn(tec)cz
OCX
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 5.5.1998 11:25:35
> > SMTP z Delphi 3.0.
> No tak ten potrebuje jeste dalsi DLL knihovny a jednu jeste
> samostatne registrovat jako prvni...
>
Kde zjistim, ktere?TChart
[*] kkwest <kkwest(zv)mbox.vol(tec)cz> - 5.5.1998 11:27:22
Ahoj !
Uz jednou jsem tady vznesl tento dotaz, ale nedostalo se mi zadne odpovedi
bud to nikdo nevi a nebo nikdo nema cas kvuli "Jakou databazi ucit..." nebo
snad kvuli "Ochrana proti kopirovani" nebo nedej boze kvuli "8 MB" ). Tak
tedy jeste jednou:
Pouzivam komponentu TDBChart a potreboval bych za chodu zmenit typ serie
(Line,Bar,...).Nemohu zjistit o jaky se jedna properties, protoze v
design-time se typ serie meni v dialogovem okne.
\\\|///
\ ~ ~ /
(\ (zv) (zv) /)
--------------------oOOO--(_)--OOOo-----------------------------------------
-------
> Marek Hej (pocitacovy technik , programator)
> Tel. : do zamestnani 019/7900080
> Fax : do zamestnami 019/7900056
> E-mail : kkwest(zv)mbox.vol(tec)cz , mhejl(zv)bigfoot.com
> http://www.fortunecity.com/skyscraper/tyrell/345/marek.htm
----------------------------------------------------------------------------
------------------
Probl�m s F1
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 5.5.1998 11:54:36
HelpContext je <> 0, a vysledek procedury, kterou jsi dole popsal je fakt, ze chytim VSECHNY klavesy, KROME klavesy F1.
Na formu mam pouze TBitBtn, TSpeedBtn, TImage a TMainMenu. (nepocitam ruzne TLabel, TPanel, TGroupBox)
Kupka Lubom�r
-------------------------------------------------------------------------------------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
-------------------------------------------------------------------------------------------------------------
> Ahoj vsichni,
> uz jsem se ptal nekolikrat, ale zadna z odpovedi nemela ten spravny ucinek.
> Pracuji v D1 a nejsem schopen aktivovat klavesu F1 na formu, ktery nema
> aktivni prvek (kdyz je tam edit tak se chyta v poradku, na polozce menu
> taky). Proste si uz nevim rady, a dost me to depta. S helpem pracuji pomoci
> HelpScribble.
Zkusil sis nastavit u Formu property HelpContext <> 0? Pokud je totiz = 0 tak se help nerozjede.
Jinak to lze resit take pres metodu OnKeyDown treba takto:
Na Form1 jsem dal TButton, TRadioButton, TEdit s default. nazvy a priradil vsem jedinou metodu na OnKeyDown
===========================================================================
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption :=IntToStr(Key);
IF Key=112 THEN
BEGIN
IF Sender = Button1 THEN
BEGIN
Application.HelpContext(1100);
END;
IF Sender = RadioButton1 THEN
BEGIN
Application.HelpContext(1200);
END;
IF Sender = Edit1 THEN
BEGIN
Application.HelpContext(1300);
END;
END;
end;
============================================================
Zdenek
prantl(zv)ptc.pvt(tec)cz
Zavisle MDIChild okno
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 5.5.1998 12:12:25
Srdecny pozdrav vsem!
Nevim si rady s takovymhle problemem. Mam MDI aplikaci ve ktere
jsou Child okna dvojiho typu napr TypA a TypB, pricemz soucasti
okna typu A je okno typu B.
Asi takhle:
UnitA;
uses UnitB;
type TypA = class(TForm)
public
OknoB: TypB;
end;
end;
---------------------
UnitB;
type TypB = class(TForm)
end;
--------------------
Po zaktivovani okna A se povoli v menu odkaz na zobrazeni jemu
prinaleziciho okna B pricemz po jejim zvoleni se toto okno B normalne
vytvori.
Muj 1. pozadavek na celou vec je takovy aby se spolu se zavrenim okna A
zavrelo i okno B (coz jsem resil v OnClose pro A
----------------------
if OknoB <> NIL then OknoB.Close)
--------------------
2. pozadavek je aby se v pripade volby zobrazeni B za stavu je-li B
jiz zobrazeno nevytvarelo dalsi. (toto jsem resil zpusobem
--------------------
if OknoB = Nil
then OknoB:= TypB.Create(Application)
else OknoB.Show;
-------------------
Cele toto reseni ma ovsem dve vady
1. Je-li behem aplikace okno B zavreno samostatne, tak pri novem
pozadavku na jeho zobrazeni neni Nil, nevytvori se znovu a krachne
to na nejakou AbstractError, coz chapu. To je ta vetsi vada.
2. Mensi vada pak je ze je-li B minimalizovane, pri pozadavku na jeho
zobrazeni se pouze zaktivuje ale zustane minimalizovane.
Napadlo mne sdelit pri zavreni B toto oknu A a nastavit B na NIL,
ale problem je v tom jak to udelat aniz bych se dopustil rekurzivniho
volani unit protoze se nemam jak odkazat z B na A.
Divam se na to co jsem tu ted spachal a jen se tise modlim aby to
bylo jasne.
Da se to cele udelat nejak jinak nebo to nejak obejit?
Diky za kazdou radu
Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Verze Delphi
[*] svatos(zv)af(tec)czu(tec)cz - 5.5.1998 12:20:40 met
> > Zdravim vsechny.
> >
> > Mam tady Delphi 3 Standart a potrebuju zjistit jestli je to verze 3.00 nebo 3.01. V about je verze 3.0 build 5.83.
> >
> > Nevite nekdo jak na to?
Nekde na www.inprise.com (cz) je asi odkaz na testovaci soft.
Vic nevim.
Cau.Verze Delphi
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 5.5.1998 12:57:42
8-) takhle cislujou verze firmy uz dost dlouho. Ja taky.
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
-----Original Message-----
From: Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 5. kv�tna 1998 12:01
Subject: Re: Verze Delphi
>:-))
>Zvlastni zpusob cislovani verzi. Ale je to tak, je tam cas 3:01.
>
>Bye,
>-----
>Tomas Skopik
>e-mail : skopik(zv)vtv(tec)czn(tec)cz
>
>-----Original Message-----
>From: Cke��k Jaroslav <jaro(zv)zbk(tec)czn(tec)cz>
>To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Date: 5. kv�tna 1998 0:43
>Subject: Re: Verze Delphi
>
>
>>V About je 3.0 i pro verzi 3.01
>>Podivej se na CD na cas souboru v \Runimage\DELPHI30\BIN.
>>Bud byly soubory vytvoreny v case 3.00 nebo v case 3.01.
>>Chytre, ze?
>>Jaro.
>>---------------------------------
Verze Delphi
[*] Slavomir Tomascik <tomascik(zv)vse.sk> - 5.5.1998 13:08:33
>Zvlastni zpusob cislovani verzi. Ale je to tak, je tam cas 3:01.
Ale funguje aj predchadzajuca moznost - vlastnosti "Delphi32.exe"
Je tam priamo cislo verzie.
Slavo Tomascik, Presov
tomascik(zv)vse.sk
Pointer na blok bajtu
[*] Filip Jirsak <jirsak(zv)gymnacel(tec)cz> - 5.5.1998 13:23:34
Krasny den sem ve spolek,
mam takovyto problem. potrebuji v Delphi pracovat se soubory
(otevrit, precist - zapsat data, zavrit). Potrebuji z mit moznost z
dat, ktera jsou ze souboru nactena nacist libovolny bajt, pripadne
retezec (jako typ String). Zkousel jsem priklad, uvedeny nize (abych
videl, co se nacetlo, nacitam to do TMemo), ale tam se vzdy na konec
pridalo par (nekdy i hodne) znaku, ktere nebyly v souboru. Je to asi
proto, ze jsem mel data nactena do PChar a tenoto typ pak kopiroval
retezec z do znaku CHR(0), ktery v souoru nebyl. Zrejme by slo vzdy
vypocitat novou pozici pointeru, okopirovat ho do pointeru na znak,
znak pak precist ..., ale co kdyz chci nacist souvisly blok, jako
retezec? Napadlo mne take pouzit pole, ale to ma predem urcenou delku
a velikost souboru je promenliva.
Abych uvedl priklad, jak by to melo fungovat: nactu data ze souboru,
je to normalni text s ridicimi znaky (mezi kterymi muze byt i CHR(0),
dalo by se odstranit). Vyhledam ridici znak, upravim vypis, prectu
retezec az do dalsiho ridiciho znaku a vypisu atd. porad az do konce
souboru.
Predem mockrat dekuji za pomoc
Filip Jirsak
Ukazka meho pokusu (napad se ctenim souboru je z Delphi UNDU):
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle,
MapHandle : THandle;
FData: Pointer;
begin
OpenDialog1.Execute;
FileHandle := FileOpen (OpenDialog1.FileName, fmOpenRead +
fmShareDenyNone); if FileHandle = INVALID_HANDLE_VALUE then
raise Exception.Create ('Failed to open ' + OpenDialog1.FileName);// create file map
try
MapHandle := CreateFileMapping (FileHandle, nil, PAGE_READONLY, 0,
0, nil); if MapHandle = 0 then
raise Exception.Create ('Failed to map file')
finally
CloseHandle (FileHandle)
end;// view file map
try
FData := MapViewOfFile (MapHandle, FILE_MAP_READ, 0, 0, 0);
if FData = nil then
raise Exception.Create ('Failed to view map file')
finally
CloseHandle (MapHandle)
end;// set pointers into file view
Memo1.Lines.SetText(FData);// test for valid bitmap file:
UnmapViewOfFile (FData);
FData := nil;
end;
.
.
.
e-mail: Jirsak(zv)gymnacel(tec)cz
Indexy v delphi Out of Date
[*] Filip Jirsak <jirsak(zv)gymnacel(tec)cz> - 5.5.1998 13:26:42
> From: "Jiri Zachardala" <jiri.zachardala(zv)spsselib.hiedu(tec)cz>
> Organization: SPSSE, Liberec
> To: delphi(zv)pinknet(tec)cz
> Date: Tue, 5 May 1998 10:52:02 +0100
> Subject: Indexy v delphi Out of Date
> Priority: normal
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Udelam si tabulku Paradox V Databese Desktop udelam hlavni a vedlejsi
> indexy vygeneruji fomlurar v Form wizardu a chci udelat vyhledavani
> nastavim indexovani a dokad je tabulka prazdna je to v pohode ale jak
> ji naplnim a pustim to v Delphi 3.0 napise to Index out of Date
> Nevite nekdo cim to je.
> Dekuji za jakoukoliv radu
>
Myslim, ze ta hlaska znamena, ze index neodpovida tabulce. Zrejme je
potreba nejak prinutit Paradox, aby tabulku znovu preindexoval.
Nebude na to nejaka funkce v BDE? V cem tabulku naplnite, Database
Deskop i Delphi by snad po pridani meli mit znovusindexovani
osetrene.
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz
Indexy v delphi Out of Date
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1998 13:36:42
Jiri Zachardala wrote:
>
> Udelam si tabulku Paradox V Databese Desktop udelam hlavni a vedlejsi
> indexy vygeneruji fomlurar v Form wizardu a chci udelat vyhledavani
> nastavim indexovani a dokad je tabulka prazdna je to v pohode ale jak
> ji naplnim a pustim to v Delphi 3.0 napise to Index out of Date
> Nevite nekdo cim to je.
> Dekuji za jakoukoliv radu
Ahoj,
treba tady ...
http://www.inprise.com/devsupport/bde/qanda/1316.html
Petr Vones, amatersky programator
Indexy v delphi Out of Date
[*] Tom� Krejza <krejza(zv)mbox.vol(tec)cz> - 5.5.1998 14:22:50
Kdyz vytvaris secondary index, musis mit u neho zaskrtlou volbu "Maintained" (udrzovany). Toto jde pouze v pripade, ze jiz existuje primary index.
T.K.TChart
[*] Ondrej Kelle <Kelleon(zv)nnsk.sk> - 5.5.1998 14:22:52
Ahoj,
v unite Chart som nasiel funkciu
ChangeSeriesType(var ASeries: TChartSeries; NewType: TChartSeriesClass);
takze by mohlo fungovat napr.
ChangeSeriesType(MySeries, TBubbleSeries);
Neskusal som to, ale mozno Ti to pomoze. :)
Ondrej Kelle
it(zv)nnsk.sk
> -----Original Message-----
> From: kkwest [SMTP:kkwest(zv)mbox.vol(tec)cz]
> Sent: 5. m�j 1998 11:27
> To: Konference DELPHI
> Subject: TChart
>
> Ahoj !
> Uz jednou jsem tady vznesl tento dotaz, ale nedostalo se mi zadne
> odpovedi
> bud to nikdo nevi a nebo nikdo nema cas kvuli "Jakou databazi
> ucit..." nebo
> snad kvuli "Ochrana proti kopirovani" nebo nedej boze kvuli "8 MB" ).
> Tak
> tedy jeste jednou:
>
> Pouzivam komponentu TDBChart a potreboval bych za chodu zmenit typ
> serie
> (Line,Bar,...).Nemohu zjistit o jaky se jedna properties, protoze v
> design-time se typ serie meni v dialogovem okne.
>
> \\\|///
> \ ~ ~ /
> (\ (zv) (zv) /)
> --------------------oOOO--(_)--OOOo-----------------------------------
> ------
> -------
> > Marek Hej (pocitacovy technik , programator)
> > Tel. : do zamestnani 019/7900080
> > Fax : do zamestnami 019/7900056
> > E-mail : kkwest(zv)mbox.vol(tec)cz , mhejl(zv)bigfoot.com
> > http://www.fortunecity.com/skyscraper/tyrell/345/marek.htm
> ----------------------------------------------------------------------
> ------
> ------------------
> MAC/IPX adresa pocitace
[*] VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz - y 1998 14:34:34 -0700
Hi All
Nevite nekdo jak se da zjistit IPX nebo MAC adresa pocitace pod Windows 95 ???
Na TCP/IP sou komponenty nebo se to da udelat socketama ale nevim jak je donutit
aby vratili ipx adresu.
Radek
Dotaz na TMemo
[*] Petr Studeny <studeny(zv)olympo(tec)cz> - 5.5.1998 14:40:00
Setkal jsem se s jednim problemkem.
V W95 se mi nedari nacist do objektu vice nez 64k textu, v NT je vse
v poradku, muze mi to nekdo osvetlit, pripadne jak problem odstranit
v 95.
Diky
----------------------------------------------------------------
Petr Studeny
OLYMPO controls Ltd. e-mail: studeny(zv)olympo(tec)cz
Havrankova 33, 619 00 Brno phone: +421-05-43216101-11
----------------------------------------------------------------
Registrace tridy...
[*] Tom� Krejza <krejza(zv)mbox.vol(tec)cz> - 5.5.1998 14:46:38
Napsal jsem si takovou blbustku na zjistovani novych mailu ve schrance (pouzivam komponentu POP(OCX). Vse je v poradku do doby, nez ten vytvor prenesu na jinou masinu. tam je vyvolana vyjimka EOLEERROR - "Trida neni zaregistrovana".Mohl by mne nekdo poradit jak ji zaregistrovat. Lze to udelat pomoci "Automation Objectu"?
predem diky T.K.Zavisle MDIChild okno
[*] Ondrej Kelle <Kelleon(zv)nnsk.sk> - 5.5.1998 15:09:25
Ahoj,
bez zaruky:
>> 1. Je-li behem aplikace okno B zavreno samostatne, tak pri novem
>> pozadavku na jeho zobrazeni neni Nil, nevytvori se znovu a krachne
>> to na nejakou AbstractError, coz chapu. To je ta vetsi vada.
procedure OknoB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
>> 2. Mensi vada pak je ze je-li B minimalizovane, pri pozadavku na jeho
>> zobrazeni se pouze zaktivuje ale zustane minimalizovane.
if OknoB = nil then
OknoB := TypB.Create(Application)
else
begin
OknoB.WindowState := wsNormal;
OknoB.Show;
end;
Ondrej Kelle
it(zv)nnsk.sk
> -----Original Message-----
> From: Simicek Pavel [SMTP:simicek(zv)uvss.fme.vutbr(tec)cz]
> Sent: 5. m�j 1998 14:12
> To: delphi(zv)pinknet(tec)cz
> Subject: Zavisle MDIChild okno
>
> Srdecny pozdrav vsem!
> Nevim si rady s takovymhle problemem. Mam MDI aplikaci ve ktere
> jsou Child okna dvojiho typu napr TypA a TypB, pricemz soucasti
> okna typu A je okno typu B.
> Asi takhle:
>
> UnitA;
> uses UnitB;
> type TypA = class(TForm)
> public
> OknoB: TypB;
> end;
> end;
> ---------------------
> UnitB;
> type TypB = class(TForm)
> end;
> --------------------
>
> Po zaktivovani okna A se povoli v menu odkaz na zobrazeni jemu
> prinaleziciho okna B pricemz po jejim zvoleni se toto okno B normalne
> vytvori.
> Muj 1. pozadavek na celou vec je takovy aby se spolu se zavrenim okna
> A
> zavrelo i okno B (coz jsem resil v OnClose pro A
> ----------------------
> if OknoB <> NIL then OknoB.Close)
> --------------------
> 2. pozadavek je aby se v pripade volby zobrazeni B za stavu je-li B
> jiz zobrazeno nevytvarelo dalsi. (toto jsem resil zpusobem
> --------------------
> if OknoB = Nil
> then OknoB:= TypB.Create(Application)
> else OknoB.Show;
> -------------------
> Cele toto reseni ma ovsem dve vady
> 1. Je-li behem aplikace okno B zavreno samostatne, tak pri novem
> pozadavku na jeho zobrazeni neni Nil, nevytvori se znovu a krachne
> to na nejakou AbstractError, coz chapu. To je ta vetsi vada.
> 2. Mensi vada pak je ze je-li B minimalizovane, pri pozadavku na jeho
> zobrazeni se pouze zaktivuje ale zustane minimalizovane.
>
> Napadlo mne sdelit pri zavreni B toto oknu A a nastavit B na NIL,
> ale problem je v tom jak to udelat aniz bych se dopustil rekurzivniho
> volani unit protoze se nemam jak odkazat z B na A.
>
> Divam se na to co jsem tu ted spachal a jen se tise modlim aby to
> bylo jasne.
>
> Da se to cele udelat nejak jinak nebo to nejak obejit?
> Diky za kazdou radu
> Pavel
>
>
>
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------
Probl�m s F1
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 5.5.1998 17:42:37
> -----Original Message-----
> From: SATON Glass s.r.o. [SMTP:info(zv)saton(tec)cz]
> Sent: Tuesday, May 05, 1998 11:55 AM
> Subject: RE: Probl�m s F1
>
> HelpContext je <> 0, a vysledek procedury, kterou jsi dole popsal je fakt, ze
> chytim VSECHNY klavesy, KROME klavesy F1.
Ano tato proc. opravdu zachytava vsechny klavesy (vcetne F1), ale jen na
Key=112 (proto jsem tam mel strceny jeste ten label, abych videl co je to za
Key) se mel vyvolat help (ruzny pro ruzne tlacitka).
> Na formu mam pouze TBitBtn, TSpeedBtn, TImage a TMainMenu. (nepocitam ruzne
> TLabel, TPanel, TGroupBox)
Zkousel jsem priklad i s holym TForm ( potom i s TBitBtn a TSpeedBtn) a
normalne mi help vyjede.
Tak uz nevim... 8-(
Zdenek
prantl(zv)ptc.pvt(tec)cz
Pointer na blok bajtu
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 5.5.1998 17:45:11
> -----Original Message-----
> From: Filip Jirsak [SMTP:jirsak(zv)gymnacel(tec)cz]
> Sent: Tuesday, May 05, 1998 2:24 PM
> Subject: Pointer na blok bajtu
>
> mam takovyto problem. potrebuji v Delphi pracovat se soubory
> (otevrit, precist - zapsat data, zavrit). Potrebuji z mit moznost z
> dat, ktera jsou ze souboru nactena nacist libovolny bajt, pripadne
> retezec (jako typ String).
Tak si otevri soubor jako File OF byte a cti jej pomoci fce BlockRead()
>ale co kdyz chci nacist souvisly blok, jako
> retezec? Napadlo mne take pouzit pole, ale to ma predem urcenou delku
> a velikost souboru je promenliva.
buffer pro BlockRead muze byt 32 kB (max. ShortInt),
opravdu potrebujes soubor nacist cely najednou ?
Zdenek
prantl(zv)ptc.pvt(tec)cz
Zavisle MDIChild okno
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 5.5.1998 17:47:35
Neni to ciste, ale jde to takhle...:
deklarace odkazu udelej typu TForm a uses TypA a TypB udelej az za
interface (pomoci volby Use unit v menu...).
Stejne od tech oken A a B nechces ve vzajemne interakci nejake dalsi
funkce nez to, co nabizi TForm...
Tomas
> -----P�vodn� zpr�va-----
> Od: Simicek Pavel [SMTP:simicek(zv)uvss.fme.vutbr(tec)cz]
> Odesl�no: 5. kv�tna 1998 14:12
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Zavisle MDIChild okno
>
> Srdecny pozdrav vsem!
> Nevim si rady s takovymhle problemem. Mam MDI aplikaci ve ktere
> jsou Child okna dvojiho typu napr TypA a TypB, pricemz soucasti
> okna typu A je okno typu B.
> Asi takhle:
>
> UnitA;
> uses UnitB;
> type TypA = class(TForm)
> public
> OknoB: TypB;
> end;
> end;
> ---------------------
> UnitB;
> type TypB = class(TForm)
> end;
> --------------------
>
> Po zaktivovani okna A se povoli v menu odkaz na zobrazeni jemu
> prinaleziciho okna B pricemz po jejim zvoleni se toto okno B normalne
> vytvori.
> Muj 1. pozadavek na celou vec je takovy aby se spolu se zavrenim okna
> A
> zavrelo i okno B (coz jsem resil v OnClose pro A
> ----------------------
> if OknoB <> NIL then OknoB.Close)
> --------------------
> 2. pozadavek je aby se v pripade volby zobrazeni B za stavu je-li B
> jiz zobrazeno nevytvarelo dalsi. (toto jsem resil zpusobem
> --------------------
> if OknoB = Nil
> then OknoB:= TypB.Create(Application)
> else OknoB.Show;
> -------------------
> Cele toto reseni ma ovsem dve vady
> 1. Je-li behem aplikace okno B zavreno samostatne, tak pri novem
> pozadavku na jeho zobrazeni neni Nil, nevytvori se znovu a krachne
> to na nejakou AbstractError, coz chapu. To je ta vetsi vada.
> 2. Mensi vada pak je ze je-li B minimalizovane, pri pozadavku na jeho
> zobrazeni se pouze zaktivuje ale zustane minimalizovane.
>
> Napadlo mne sdelit pri zavreni B toto oknu A a nastavit B na NIL,
> ale problem je v tom jak to udelat aniz bych se dopustil rekurzivniho
> volani unit protoze se nemam jak odkazat z B na A.
>
> Divam se na to co jsem tu ted spachal a jen se tise modlim aby to
> bylo jasne.
>
> Da se to cele udelat nejak jinak nebo to nejak obejit?
> Diky za kazdou radu
> Pavel
>
>
>
> -----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
> -----------------------------------------------------------
<none>
[*] spsos <spsos(zv)rl.cesnet(tec)cz> - 5.5.1998 17:56:21
unsubscribe
TCP OCX
[*] Vaclav Stumbauer student <STUMBAV(zv)feld.cvut(tec)cz> - 5.5.1998 18:24:44 met-1mest
No dyz uz se tady rozbiha hromadna debata na ty sitovy komponenty
tak bych si take prilozil do vohne neco
Na jinem kompu mi nechodi aplikace vyuzivajici TCP pac ze prej TRIDA
NENI ZAREGISTROVANA estli to bylo EOLESYSERROR ci co
za odpoved dik
Zeli
Dotaz na TMemo
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 05.5.1998 19:15:25
Hi,
tak to tezko, notepad pro NT taky umi libovolnou velikost a 95 jen 64k.
Jedine pouzit jiny typ objektu....
Petr Studeny wrote:
>
> Setkal jsem se s jednim problemkem.
>
> V W95 se mi nedari nacist do objektu vice nez 64k textu, v NT je vse
> v poradku, muze mi to nekdo osvetlit, pripadne jak problem odstranit
> v 95.TCP OCX
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 05.5.1998 19:18:35
Hi,
coz kdybyste vsichni s temihle problemy s OCX presli na (treba) ICS od
F. Piette, nebo neco jineho, pouzivam ZASADNE NE-OCX komponenty a
NO-PROBLEM....
fronek(zv)fic(tec)cz
Vaclav Stumbauer student wrote:
>
> No dyz uz se tady rozbiha hromadna debata na ty sitovy komponenty
> tak bych si take prilozil do vohne neco
> Na jinem kompu mi nechodi aplikace vyuzivajici TCP pac ze prej TRIDA
> NENI ZAREGISTROVANA estli to bylo EOLESYSERROR ci co
> za odpoved dik
> Zeli
>
>Verze Delphi
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 5.5.1998 19:20:06
U Delphi32.exe, mam v Properties/Version/Product Version 3.00 a cas mam pritom 3:01. Tak nevim.
Bye,
-----
Tom� �kop�k
e-mail : skopik(zv)vtv(tec)czn(tec)cz
-----Original Message-----
From: Slavomir Tomascik <tomascik(zv)vse.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 5. kv�tna 1998 15:50
Subject: Re: Verze Delphi
>>Zvlastni zpusob cislovani verzi. Ale je to tak, je tam cas 3:01.
>
>
>Ale funguje aj predchadzajuca moznost - vlastnosti "Delphi32.exe"
>Je tam priamo cislo verzie.
>
>Slavo Tomascik, Presov
>tomascik(zv)vse.sk
>
>
>Verze Delphi
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 5.5.1998 19:23:46
Zdravim vsechny.
Diky za rady k verzi Delphi. Podle toho co jsem se od vas dozvedel by to mela byt verze 3.01.
Bye,
-----
Tom� �kop�k
e-mail : skopik(zv)vtv(tec)czn(tec)cz
Dotaz na TMemo
[*] Ondrej Jaura <jauraond(zv)decef.elf.stuba.sk> - 5.5.1998 19:42:00
To je WIN95... ;)
WinNT maju inu spravu pamate a umoznuju pracu s viac ako 64kB.
(Ale o tom som len cital... nuz nech sa teda vyjadria odbornici! ;))
Ondrej
---------------------------------------------------------
Ondrej Jaura
student, FEI STU, Bratislava
e-mail: Ondrej.Jaura(zv)mailbox.sk
(jauraond(zv)decef.elf.stuba.sk)
www : http://homepage.sk/Ondrej.Jaura.html
(http://www.elf.stuba.sk/~jauraond)
---------------------------------------------------------
Co sa moze pokazit, to sa aj pokazi. (Murphy)
On Tue, 5 May 1998, Petr Studeny wrote:
>
> Setkal jsem se s jednim problemkem.
>
> V W95 se mi nedari nacist do objektu vice nez 64k textu, v NT je vse
> v poradku, muze mi to nekdo osvetlit, pripadne jak problem odstranit
> v 95.
>
> Diky
> ----------------------------------------------------------------
> Petr Studeny
> OLYMPO controls Ltd. e-mail: studeny(zv)olympo(tec)cz
> Havrankova 33, 619 00 Brno phone: +421-05-43216101-11
> ----------------------------------------------------------------
> Registrace tridy... OCX a podobne...
[*] Vl.Petr <vpetr(zv)bigfoot(tec)com> - 5.5.1998 19:44:17
-----P�vodn� zpr�va-----
Napsal jsem si takovou blbustku na zjistovani novych mailu ve schrance
(pouzivam komponentu POP(OCX). Vse je v poradku do doby, nez ten vytvor
prenesu na jinou masinu. tam je vyvolana vyjimka EOLEERROR - "Trida neni
zaregistrovana".Mohl by mne nekdo poradit jak ji zaregistrovat. Lze to
udelat pomoci "Automation Objectu"?**** pravdepodobne ano, prenes *.OCX, musite ale zjistit nekde (v manualu
komponenty treba), jake ta OCX pouziva dalsi knihovny a ty prenest spolu s
programem, resp. je zahrnout do Installeru, podotykam, ze nektere Autom.
objekty potrebuji DLL.
Pro ilustraci uvadim, co vsechno jsem musel "pretahnout" pro registraci
HTML.OCX:
---
HTML.OCX 169472 1997-01-29 19:05
NMOCOD.DLL 240640 1997-01-29 18:53
NMORENU.DLL 66560 1997-03-04 14:44
NMSCKN.DLL 48128 1997-01-29 18:46
NMW3VWN.DLL 462848 1997-01-29 18:58
---
Dotaz ohledne Access
[*] Richard �trunc <rick.strunc(zv)email(tec)cz> - 5.5.1998 20:53:13
Zdravim vsechny v teto konferenci.
Mel bych jeden mensi dotaz.
Kdybych chtel ve sve aplikaci vytvorene v Delphi 3 pouzivat Accessovou
databazi, co k tomu vsechno potrebuji (napr. jestli musim koupit Access,
nebo si stahnout odnekud nejake knihovny, atd...)?
Dekuji predem za vsechny odpovedi.
Ricky...
rick.strunc(zv)email(tec)cz
PS: Mohl byste mi nekdo rici (napsat), co je to mySQL?Dotaz na TMemo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.5.1998 21:52:49
Petr Studeny wrote:
>
> Setkal jsem se s jednim problemkem.
>
> V W95 se mi nedari nacist do objektu vice nez 64k textu, v NT je vse
> v poradku, muze mi to nekdo osvetlit, pripadne jak problem odstranit
> v 95.
Ahoj,
Nevim jak v NT, ale ve Win95 je TMemo omezeno do 64k. Pouzij misto toho
TRichEdit.
Petr Vones, amatersky programator
Klavesnice pod W95
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 5.5.1998 22:16:28
Zdravim vsechny,
nemate nekdo poneti, kde bych sehnal popis klavesnice (driveru) pro W95?
Pod W3.11 jsem leta pouzival klavesnici, ktera se chovala stejne jako napr.
cesky driver mkvgax.com pro DOS dodavany k produktum Qattro, Paradox,... kde
neni nutno pri psani slozenych zavorek a anglickych znaku prepinat z CZ na
US (ci naopak), stacilo klepnout na + a dalsi klavesa, ktera nemela cesky
znak s hackem nebo carkou poslala puvodni anglicky. Co jsem presel na W95,
nemohu si porad zvyknout na Alt+Shift.
Za pripadne namety predem dekuji.
Honza Naiser
----------------------------------------------------
ing. Jan Naiser
Karle 1, 569 58 KARLE, CZ
tel.: 0603 519443, 0464 634124
E-mail: tua(zv)ltm(tec)cz
DDE komunikacia
[*] Ondrej KOZIAK E121 <ono(zv)vdstudentserv02.utc.sk> - 5.5.1998 23:29:58
Zdravim vsetkych delphistov.
Mam takyto problem s DDE:
Mam uz existujuci DDE server (LONWORKS), ktory komunikuje so sietovymi
premmennymi LON prostredia. Tento snima alebo dokaze menit ich hodnoty.
V originalnek aplikacii to funguje tak , ze sa otvori kanal , nastavi sa
premmena , a tato sa da menit alebo snimat-preda jej hodnotu do aplikacie
ked sa zmeni jej hodnota v prostredi alebo je pollovana. Dokym nie je
aplikacia ukoncena , kanal je stale aktivny.
A teraz moj problem :
Potrebujem v Delphi 3 komunikovat s tymto serverom. S casti mi to aj
funguje cez standartnu DDECLIENT komponentu, connectmode mam nastaveny na
Automatic, volanie hodnoty premmenej robim nasledovne:
var a:pchar;
begin
..
DDEClientConv1.SetLink('LMSRVR1','Netvar');
a:=DDEClientConv1.RequestData('meno premennej');
Edit.Text1:=a;
..
end;
ovsem toto mi sposobi , ze sa jej hodnota sice precita , ale kanal sa hned
deaktivuje. Ako to mam urobit abz kanal ostal aktivny, a aby sa mi hodnota
tej premennej po zmene automaticky vnasala do mojej aplikacie ??
Za vsetky rady vopred dakujem .
Ondrej , student.Registrace tridy...
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.5.1998 23:44:55
> Napsal jsem si takovou blbustku na zjistovani novych mailu ve schrance =
> (pouzivam komponentu POP(OCX). Vse je v poradku do doby, nez ten vytvor =
> prenesu na jinou masinu. tam je vyvolana vyjimka EOLEERROR - "Trida neni =
> zaregistrovana".Mohl by mne nekdo poradit jak ji zaregistrovat. Lze to =
> udelat pomoci "Automation Objectu"?
Musis na cilovem pocitaci zaregistrovat OCX komponentu + DLL, ktere vyuziva.
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 ===
==============================================================Dotaz ohledne Access
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.5.1998 23:49:43
> Zdravim vsechny v teto konferenci.
> Mel bych jeden mensi dotaz.
> Kdybych chtel ve sve aplikaci vytvorene v Delphi 3 pouzivat Accessovou
> databazi, co k tomu vsechno potrebuji (napr. jestli musim koupit Access,
> nebo si stahnout odnekud nejake knihovny, atd...)?
Ano, musis si koupit Access, protoze Delphi na nej umi jen
pristupovat. Ale Access musis mit (i zakaznik ho musi mit).
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 ===
==============================================================Klavesnice pod W95
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 05.5.1998 23:50:21
Hi,
k tomu je nutno vlastnit Device Development Kit od MS, ale pokud vim,
oni to dodavaji jenom v baliku Profesional (ci tak nejak) a to stoji
desetitisice.... takze to taky nemam, a chtel bych to...
fronek(zv)fic(tec)cz
Jan Naiser wrote:
>
> Zdravim vsechny,
> nemate nekdo poneti, kde bych sehnal popis klavesnice (driveru) pro W95?
> Pod W3.11 jsem leta pouzival klavesnici, ktera se chovala stejne jako napr.
> cesky driver mkvgax.com pro DOS dodavany k produktum Qattro, Paradox,... kde
> neni nutno pri psani slozenych zavorek a anglickych znaku prepinat z CZ na
> US (ci naopak), stacilo klepnout na + a dalsi klavesa, ktera nemela cesky
> znak s hackem nebo carkou poslala puvodni anglicky. Co jsem presel na W95,
> nemohu si porad zvyknout na Alt+Shift.Klavesnice pod W95
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.5.1998 00:43:56
> k tomu je nutno vlastnit Device Development Kit od MS, ale pokud vim,
> oni to dodavaji jenom v baliku Profesional (ci tak nejak) a to stoji
> desetitisice.... takze to taky nemam, a chtel bych to...
Ano, Driver Developer Kit je v MSDN Professional, ale ten prece nestoji
desetitisice... ale jen asi 19 tisic. Ja ho take moc chtel, tak jsem si
ho koupil. Ale bokem - ono v Delphi stejne nenapises poradny driver.
I kdyz na druhou stranu, v Async Professional je faxovy ovladac napsany
v Delphi - a pracuje a neni ani nejak moc dlouhy... kdyz se na to
divam, je to desne 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 ===
==============================================================Solution: Cursor
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 6.5.1998 06:19:21
Nazdar!
Vsetkym vdaka. Vyskusal som a funguje to bezchybne.
Zaver:
Musi sa nastavovat "Screen.Cursor".
S pozdravom
mrk
----------------------------------------------------------------------------------------------------------------------------------------
Marek Repisk� wrote:
>
> Nazdar!
>
> Obraciam sa na Vas s prosbou o radu.
> Mam problem s obrazovkovym kurzorom. Po stlaceni tlacitka mysi chcem zmenit Cursor
> na crDrag a po uvolneni tlacitka vratit Cursor na crDefault. Nieco podobne ako pri drag-ovani.
> Mam to urobene cez OnMouseDown a OnMouseUp, ale nejde mi to. Cursor sa pri
> OnMouseDown nastavi, ale nezobrazi. Zobrazil by sa az po uvolneni tlacitka, ale to uz ho
> v OnMouseUp nastavujem spat na crDefault.
Rychlosti databazi (bylo hvezdicky)
[*] psoft <psoft(zv)kosice.telecom.sk> - 6.5.1998 07:02:18
> Tak jsem neodolal a nasadil jsem na problem mySQL server na linuxu,
> pentium 150 MHz, 64 MB RAM, IDE disky v dobe testu na runlevel 3 bez
> dalsich uzivatelu.
> Timhle jsem zalozit tabulku:
>
> CREATE TABLE hv (
> ID bigint(20) DEFAULT '0' NOT NULL auto_increment,
> jas bigint(20) DEFAULT '0' NOT NULL,
> X bigint(20) DEFAULT '0' NOT NULL,
> Y bigint(20) DEFAULT '0' NOT NULL,
> Z bigint(20) DEFAULT '0' NOT NULL,
> PRIMARY KEY (ID),
> KEY k_jas (jas),
> KEY k_X (X),
> KEY k_Y (Y),
> KEY k_Z (Z)
> );....
Dakujem za ochotu, som rad, ze aspon niekde to fici tak, ako som si
predstavoval. Tak by to malo ist. Ja tom mam na lokalnych tabulkach
a vyber radov desat recordov trva pri takej istej konfiguracii
tabulky asi minutu. Zrejme bude mat BDE slabsiu podporu pre lokalne
SQL a tvoj dobry vykon zabezpeci SQL server. Hoci stale mam dojem, ze
tie indexy musia stacit na rychly vyber, bez nejakeho sekvencneho
prehladavania. (Ma to kreslit online mapu hviezd, kde uznaj ze cakat
minutu na vykreslenie mapy je vela, hlavne, ak chces po nej chodit
hore-dole).
Paci sa mi takyto vykon, ale asi ho na solo stroji nedosiahnem. Mozem
davat na jednoduchu instalaciu SQL server (chcem to mat na CD, ktore
by som poskytol par ludom). Na DB formate mi vyhovuje to, ze ti k
nemu staci BDE, nic viac ...
Hm, asi budem musiet osedlat rychlesieho kona... :-)))
>
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Local SQL na velku indexovanu paradox tabulku
[*] psoft <psoft(zv)kosice.telecom.sk> - 6.5.1998 07:02:18
> > Tabulka je indexovana tak, ze ma jeden index pre suranicu Alfa, jeden
> > index pre suradnicu Delta a jeden index pre jasnost.
> >
> > vyber by mal byt cosi ako
> >
> > SELECT Alfa,Delta,Jasnost,Meno from "stars.db"
> > where Alta between 150 and 200
> > and Delta between 20 and 40
> > and Jasnost<7
>
> Udelej index z vice polozek t.j. Alfa,Delta,Jasnost.
> Pokud budou podminky v dotazu ve stejnem poradi jako polozky v indexu, bude
> pouzit. Jinak se neprojevi.
Aj som to vyskusal ,ale nepomohlo to. Problem podla mna spociva v
tom, ze ja mam zaujem selectovat "stvorec" dat. Teda pre kazdu z
vybranych hodnot Alfa presne stanoveny rozsah Delta. Taky index ako
navrhujes by bol napr. vhodny pre taky filter, ktory pre hranicne
Alfa (v priklade 150 a 200) vyberie len Delta od 20 vyssie, resp. pre
Alfa 200 bude Delta<=40, ale pre vsetky hodnoty Alfa mezditym sa
Delta nebude obmedzovat, teda zoberie sa vsetko. Tam to moze pomoct.
Zaujimave je (neviem si to vysletlit), ze ked dam SELECT * from STARS
WHERE ALFA between 100000 and 200000, vyberie mi 12000 recordov,
sotva stacim mihnut okom. Ale ked to iste dat pre DELTA, cakam asi
minutu. Preco, ked mam na obidve premenne osobitne indexy ?
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> <none>
[*] Martin <martin.talian(zv)post(tec)cz> - 6.5.1998 07:09:11
Existujhe nejaka kniznica DLL na pakovanie suborov, nieco na sposob PKZIP ? Aby som v programe delphi nemusel volat externe PKZIP, ktory sa mi spusti v dos okne.
Nemozem sa pripojit k tabulke Acces. Chce odo mna uzivatela a heslo a nech zadam hocijake udaje, potom vyhlasi SQL error. Taktiez to uroby aj DATABASE EXPLORER.
Ako sa da priradit premennej vysledok nejakeho SQL vyrazu , napriklad nejakych suctov ?Dotaz ohledne Access
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 6.5.1998 07:23:17
Staci mit DAO (Data Access Objects) verze 3.0/3.2 je pro Access 95 a
starsi a DAO 3.5 je pro Access 97 a starsi. Ale dle testu lze
pristupovat pres DAO 3.0 i do Access 95 a vetsinou to je rychlesi.
Zbytek je v BDE ve verzi 4.51.
J.Jahoda
> Zdravim vsechny v teto konferenci.
> Mel bych jeden mensi dotaz.
> Kdybych chtel ve sve aplikaci vytvorene v Delphi 3 pouzivat Accessovou
> databazi, co k tomu vsechno potrebuji (napr. jestli musim koupit
> Access,
> nebo si stahnout odnekud nejake knihovny, atd...)?
>
> Dekuji predem za vsechny odpovedi.
>
> Ricky...
>
> rick.strunc(zv)email(tec)cz
>
>
> PS: Mohl byste mi nekdo rici (napsat), co je to mySQL?Dotaz ohledne Access
[*] V�t�zslav Gazda������u��n�?��? - 6.5.1998 08:21:17
>Ano, musis si koupit Access, protoze Delphi na nej umi jen >pristupovat.
Ale Access musis mit (i zakaznik ho musi mit).
Neni pravda, ze si musis KOUPIT Access. Staci si pouze naistalovat podporu
pro databaze Access. Je to nekolik knihoven, ktere se daji stahnout na
internetu zcela zdarma (nap�. na www.microsoft.com nebo
www.installshield.com). Instalace je vsak trochu slozitejsi. Popis instalace
najdes take na internetu.
Vita
TaskBar
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 6.5.1998 08:27:46
Zdravim,
jak nastavit formular, aby se nezobrazoval na TaskBaru?
Dekuji. S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/~sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)email(tec)cz
>
>
> Dotaz ohledne Access
[*] Marcel Telka <marcel(zv)vadium.sk> - 6.5.1998 08:36:12
>Zdravim vsechny v teto konferenci.
>Mel bych jeden mensi dotaz.
>Kdybych chtel ve sve aplikaci vytvorene v Delphi 3 pouzivat Accessovou
>databazi, co k tomu vsechno potrebuji (napr. jestli musim koupit Access,
>nebo si stahnout odnekud nejake knihovny, atd...)?
>
>Dekuji predem za vsechny odpovedi.
>
>Ricky...
>
> rick.strunc(zv)email(tec)cz
>
>
>PS: Mohl byste mi nekdo rici (napsat), co je to mySQL?
>
MySQL je databazovy (SQL) server (http://www.tcx.se/)
Marcel Telka <marcel(zv)vadium.sk>Pointer na blok bajtu
[*] Filip Jirsak <jirsak(zv)gymnacel(tec)cz> - 6.5.1998 08:38:00
> From: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
> To: "'DELPHI Distribution List'" <delphi(zv)pinknet(tec)cz>
> Subject: RE: Pointer na blok bajtu
> Date: Tue, 5 May 1998 17:45:11 +0200
> Organization: PVT a.s.
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> > -----Original Message-----
> > From: Filip Jirsak [SMTP:jirsak(zv)gymnacel(tec)cz]
> > Sent: Tuesday, May 05, 1998 2:24 PM
> > Subject: Pointer na blok bajtu
> >
> > mam takovyto problem. potrebuji v Delphi pracovat se soubory
> > (otevrit, precist - zapsat data, zavrit). Potrebuji z mit moznost z
> > dat, ktera jsou ze souboru nactena nacist libovolny bajt, pripadne
> > retezec (jako typ String).
>
> Tak si otevri soubor jako File OF byte a cti jej pomoci fce BlockRead()
>
> >ale co kdyz chci nacist souvisly blok, jako
> > retezec? Napadlo mne take pouzit pole, ale to ma predem urcenou delku
> > a velikost souboru je promenliva.
>
> buffer pro BlockRead muze byt 32 kB (max. ShortInt),
> opravdu potrebujes soubor nacist cely najednou ?
>
> Zdenek
> prantl(zv)ptc.pvt(tec)cz
>
Typ File z Pascalu jsem prave nechtel pouzit, protoze neumoznuje
pouzivat vsechny "vymozenosti" Win95 - sdileni souboru atd. Mne jde
spise o to, jak pristupovat k nejakemu bloku znaku. Funkci
BlockRead() take ziskam jen ukazatel na urcitou oblast bajtu a ja
potrebuji umet tuto oblast nacitat po bajtech nebo jako retezec.
Diky
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz
SMTP/POP3 komponenty
[*] Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz> - 6.5.1998 08:41:08
Zdravim vsechny!
nemate nekdo komponenty pro SMTP a POP3, ktere by byly jednoduche na
pouziti, nepouzivaly zadny OCX a podobny veci, fungovaly v Delphi 3
standard, nejlepe byly se zdrojakem (nemusi byt) a nejakym jednoduchym
prikladem. Jo a jeste aby byly free a bez chyb.
Pokud o necem vite, tak mi prosim poslete info (URL).
Diky
S pozdravem
Pavel "Zizi" Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
mobil mailto:pavel.zichovsky(zv)sms.paegas(tec)cz
----------------------------
PGP podporovano a vitano
SQL
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 06.5.1998 08:42:41
Chci se ujistit, jestli si neco nenamlouvam.
Napisu aplikaci v Delphi a odladim si ji na nejake lokalni
SQL databazi. Jak moc muzu narazit, kdyz pak budu chtit
tu aplikaci pripojovat pres ODBC k jinym SQL databazim?
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Smtpct.ocx
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 6.5.1998 09:00:24
Zdravim,
prosim o radu. Mam aplikaci, ktera vyuziva Smtpct.ocx. Pri instalaci na
jinem PC hlasi problem se zaregistrovanim tridy. Pouziva to nekdo? Ktere
dalsi DLL je treba prenest? Pripadne kde najdu informace o tomhle?
Dekuji
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/~sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)email(tec)cz
>
> Pointer na blok bajtu
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 6.5.1998 09:17:21
-----Original Message-----
From: Zdenek Prantl [SMTP:prantl(zv)ptc.pvt(tec)cz]
Sent: Tuesday, May 05, 1998 5:45 PM
To: 'DELPHI Distribution List'
Subject: RE: Pointer na blok bajtu
buffer pro BlockRead muze byt 32 kB (max. ShortInt),
opravdu potrebujes soubor nacist cely najednou ?
[Arthur] Mam pocit, ze uz to neni pravda, alespon ja jsem pomoci
BlockRead nacital soubor o velikosti 10M (najednou) a o zadnych
21kB tam nepadlo ani slovo.
Arthur
DLL pro pakovani
[*] svatos(zv)af(tec)czu(tec)cz - 6.5.1998 09:18:34 met
> Existujhe nejaka kniznica DLL na pakovanie suborov, nieco na sposob PKZIP ? Aby som v programe delphi nemusel volat externe PKZIP, ktory sa mi spusti v dos okne.
Nahodou mam delfacky unity pro kompresi souboru. (viz. Attachment);
musis to vyskouset, ja jsem to nepouzival, pouze jsem to stahnul.
> Nemozem sa pripojit k tabulke Acces. Chce odo mna uzivatela a heslo a nech zadam hocijake udaje, potom vyhlasi SQL error. Taktiez to uroby aj DATABASE EXPLORER.
Ta databaze v accesu bude asi zaheslovana, ne ?, nejlepsi by bylo
znat heslo ...
> Ako sa da priradit premennej vysledok nejakeho SQL vyrazu , napriklad nejakych suctov ?
Ja si myslim, ze jedine tak, ze udelas:
Query. SQLExec;
nejaka_promena:= Query.FieldByName('adfsd').As?????;
vyskousej to, za nic nerucim ...
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Pointer na blok bajtu
[*] Lubo Fule <fule(zv)sct.sk> - 6.5.1998 09:25:33
Podla mna je najlepsie pouzit funkcie, ktore volaju priamo Win API t. j.
FileOpen, FileRead, FileWrite, FileSeek, FileCreate, FileClose
Blizsie su popisane v helpe.
s pozdravom Lubo Fule
> -----Original Message-----
> From: Filip Jirsak [mailto:jirsak(zv)gymnacel(tec)cz]
> Sent: Wednesday, May 06, 1998 9:38 AM
> To: delphi(zv)pinknet(tec)cz
> Subject: RE: Pointer na blok bajtu
>
>
> > From: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
> > To: "'DELPHI Distribution List'" <delphi(zv)pinknet(tec)cz>
> > Subject: RE: Pointer na blok bajtu
> > Date: Tue, 5 May 1998 17:45:11 +0200
> > Organization: PVT a.s.
> > Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>
> > > -----Original Message-----
> > > From: Filip Jirsak [SMTP:jirsak(zv)gymnacel(tec)cz]
> > > Sent: Tuesday, May 05, 1998 2:24 PM
> > > Subject: Pointer na blok bajtu
> > >
> > > mam takovyto problem. potrebuji v Delphi pracovat se soubory
> > > (otevrit, precist - zapsat data, zavrit). Potrebuji z mit moznost z
> > > dat, ktera jsou ze souboru nactena nacist libovolny bajt, pripadne
> > > retezec (jako typ String).
> >
> > Tak si otevri soubor jako File OF byte a cti jej pomoci fce BlockRead()
> >
> > >ale co kdyz chci nacist souvisly blok, jako
> > > retezec? Napadlo mne take pouzit pole, ale to ma predem urcenou delku
> > > a velikost souboru je promenliva.
> >
> > buffer pro BlockRead muze byt 32 kB (max. ShortInt),
> > opravdu potrebujes soubor nacist cely najednou ?
> >
> > Zdenek
> > prantl(zv)ptc.pvt(tec)cz
> >
> Typ File z Pascalu jsem prave nechtel pouzit, protoze neumoznuje
> pouzivat vsechny "vymozenosti" Win95 - sdileni souboru atd. Mne jde
> spise o to, jak pristupovat k nejakemu bloku znaku. Funkci
> BlockRead() take ziskam jen ukazatel na urcitou oblast bajtu a ja
> potrebuji umet tuto oblast nacitat po bajtech nebo jako retezec.
>
> Diky
>
> Filip Jirsak
>
> e-mail: Jirsak(zv)gymnacel(tec)cz
>SQL
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 6.5.1998 09:27:00
Obecna otazka = obecna odpoved.
Myslim, ze tenhle postup je funkcni jedine v pripade velmi jednoduchych
aplikaci, bez serverove casti (SQL pro definici databaze je vetsinou
znacne nekompatibilni).
Takze podle meho nazoru je moznost narazu velmi vysoka. Osobni
zkusenost: vyvijel jsem pred par lety aplikaci pro server Oracle a pak
ji zcela predelaval pro Sybase. Proste se ukazalo, ze nektere veci,
ktere v puvodni verzi resil server, musel v jine verzi resit klient a
naopak.
Chtelo by to trochu upresnit - co znamena "nejaka lokalni SQL databaze"
a "nejaka databaze pres ODBC" ?
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Ing. Jindrich Danihelka [SMTP:jidas(zv)mbox.vol(tec)cz]
> Odesl�no: 6. kv�tna 1998 8:43
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: SQL
>
> Chci se ujistit, jestli si neco nenamlouvam.
>
> Napisu aplikaci v Delphi a odladim si ji na nejake lokalni
> SQL databazi. Jak moc muzu narazit, kdyz pak budu chtit
> tu aplikaci pripojovat pres ODBC k jinym SQL databazim?
>
>
> --
> Ing. Jindrich Danihelka
> E-Mail jidas(zv)mbox.vol(tec)cz
> Tel. 038/57805
> 038/7512861
DLL pro kompresi
[*] svatos(zv)af(tec)czu(tec)cz - 6.5.1998 09:38:02 met
[P��loha v souboru: lz.zip]
Ahoj,
omlouvam se, ze v Attachment nic nebylo;
v zapalu horlivosti jsem se uklep a odeslal to bez tech souboru,
takze tady je naprava ...
svatos(zv)af(tec)czu(tec)cz
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: lz.zip
Date: 6 May 1998, 9:31
Size: 44890 bytes.
Type: ZIP-archive
SQL
[*] Lubo Fule <fule(zv)sct.sk> - 6.5.1998 09:40:12
Tazka otazka, Borland tvrdi, ze to ide bez problemov ale to tvrdia
obchodnici...:-)
Fakt je taky, ze to pojde len v tom pripade, ak maju SQL servre na ktore to
chces
aplikovat rovnaku syntax SQL prikazov. Na priklad:
Bezny SQL:
select <columns> from [database].<table>
Microsoft SQL Server:
select <columns> from [database]..<table>
> -----Original Message-----
> From: Ing. Jindrich Danihelka [mailto:jidas(zv)mbox.vol(tec)cz]
> Sent: Wednesday, May 06, 1998 8:43 AM
> To: delphi(zv)pinknet(tec)cz
> Subject: SQL
>
>
> Chci se ujistit, jestli si neco nenamlouvam.
>
> Napisu aplikaci v Delphi a odladim si ji na nejake lokalni
> SQL databazi. Jak moc muzu narazit, kdyz pak budu chtit
> tu aplikaci pripojovat pres ODBC k jinym SQL databazim?
>
> --
> Ing. Jindrich Danihelka
> E-Mail jidas(zv)mbox.vol(tec)cz
> Tel. 038/57805
> 038/7512861
>SMTP/POP3 komponenty
[*] Slavomir Tomascik <tomascik(zv)vse.sk> - 6.5.1998 09:47:34
>nemate nekdo komponenty pro SMTP a POP3, ktere by byly jednoduche na
pouziti, nepouzivaly zadny OCX a podobny veci, fungovaly v Delphi 3
standard, nejlepe byly se zdrojakem (nemusi byt) a nejakym jednoduchym
prikladem. Jo a jeste aby byly free a bez chyb.
Pokud o necem vite, tak mi prosim poslete info (URL).****Ja pouzivam Freenet. Skus pozriet na Delphi Super Page. Je to free aj so
src.
Ak by si xcel mozem ti to poslat rovno mailom.
Slavo Tomascik
tomascik(zv)vse.sk
Dotaz ohledne Access
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.5.1998 09:51:46
> Staci mit DAO (Data Access Objects) verze 3.0/3.2 je pro Access 95 a
> starsi a DAO 3.5 je pro Access 97 a starsi. Ale dle testu lze
> pristupovat pres DAO 3.0 i do Access 95 a vetsinou to je rychlesi.
> Zbytek je v BDE ve verzi 4.51.
Jenze DAO se take samotne sirit neda, musis mit treba Visual Basic
nebo Visual C++, kde je licence na jeho sireni. Nebo ne?
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 ===
==============================================================<none>
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.5.1998 09:51:46
> Existujhe nejaka kniznica DLL na pakovanie suborov, nieco na sposob PKZIP ? Aby som v programe
> delphi nemusel volat externe PKZIP, ktory sa mi spusti v dos okne.
Nejake DLL existuji, ale ma to nevyhodu, ze musis tahat ty DLL. Pak jsou
take tusim nejake free pakovace bez DLL. Ale bezvadna je Abbrevia, coz
je sada knihoven od TurboPower Software, ktera pakuje do a z formatu
kompatibilniho s PKZIP 2.04g, je to velmi rychle, podporuje to zaheslovany
archiv (coz myslim ty free veci nepodporuji), podporuje to dlouha jmena,
podporuje to samorozbalujici archivy (samozrejme i jejich vytvareni),
podporuje to vicenasobne archivy na vice disketach apod. A jsou k tomu
kompletni zdrojaky. Ale je to komercni a stoji to nejakou korunu...
> Nemozem sa pripojit k tabulke Acces. Chce odo mna uzivatela a heslo a nech zadam hocijake udaje,
> potom vyhlasi SQL error. Taktiez to uroby aj DATABASE EXPLORER.
Tak nemas nainstalovany Access a nebo mas spatny ovladac. Toto to dela,
kdyz se napr. chces pripojit na SQL server, ale nemas ho nainstalovany,
zkus se pripojit na tabulku Interbase, ale nespoustej Interbase server...
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 ===
==============================================================SMTP/POP3 komponenty
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 6.5.1998 09:56:32
> nemate nekdo komponenty pro SMTP a POP3, ktere by byly jednoduche na
> pouziti, nepouzivaly zadny OCX a podobny veci, fungovaly v Delphi 3
> standard, nejlepe byly se zdrojakem (nemusi byt) a nejakym jednoduchym
> prikladem. Jo a jeste aby byly free a bez chyb.
> Pokud o necem vite, tak mi prosim poslete info (URL).
>
http://sunsite.icm.edu.pl/delphi/ftp/d10free/tcpip.zip
(80,182 bytes) TCP/IP component pack, includes: clients for HTTP, FTP,
SMTP, POP3, NNTP, lpr, time, RExec, RSh, finger; server for finger;
email and news article including MIME file attachments; demo
applications. (ver. 0.2, added 7/20/97) by Andreas H�rstemeier
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/~sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)email(tec)cz
>
> Dotaz ohledne Access
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.5.1998 09:57:10
> Neni pravda, ze si musis KOUPIT Access. Staci si pouze naistalovat podporu
> pro databaze Access. Je to nekolik knihoven, ktere se daji stahnout na
> internetu zcela zdarma (nap�. na www.microsoft.com nebo
> www.installshield.com). Instalace je vsak trochu slozitejsi. Popis instalace
> najdes take na internetu.
Ja mam pravdu, ze DAO nelze zdarma sirit, ale nemusim mit pravdu,
protoze 100% to nevim. Kde se to da stahnout? Ja tedy Accessy mam
oba, ale nerad bych to distribuoval v pripade, ze to neni legalni.
Docela by me to take zajimalo, nainstalovat bych to umel, podporu
pro instalaci mam.
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 ===
==============================================================CallBack funkce
[*] Daniel Jir�sek <daniel jirasek(zv)conel(tec)cz> - 6.5.1998 09:57:49
Zdravim vsechny,
Mam veliky problem pri pouzivani a vytvareni CallBack funkci.
Pokud mi muze nekdo poskytnout funkcni priklad, nebo popis
vytvareni a pouzivani CallBack funkci, tak mi to poslete.
Popis meho problemu:
--------------------------------
Mam aplikaci typu server napsanou v Cecku a potrebuji vytvorit
vlastniho klienta napsaneho v Delphi 3.0 Profesional. Aplikace
server disponuje DLL funkci napsanou take v Cecku, ktera slouzi
pro pripojeni klienta. Jedna z funkci DLL je:
LogInClient - p�ihl�en� aplikace p��jemce sign�lu do j�dra syst�mu
short LogInClient( int iParam, LPFDATA_CHANGE lpFce );
Parametry:
iParam . . . . rezervov�no, mus� b�t 0
lpFce . . . . callback-funkce; mus� b�t definov�na
short Fce ( MESSAGE_DATA * pD )
Cast zdrojaku v Delphi:
type
{struktura dat predavanych pomoci callback funkce}
PMESSAGE_DATA = ^TMESSAGE_DATA;
TMESSAGE_DATA = record
value: Double; // sended actual value (for double OR long type)
idAction: byte; // action identificator
index: word; // signal index in connector structure
end;
{definice typu callback funkce}
PMyCallBack = ^TMyCallBack;
TMyCallBack = function(pD: PMESSAGE_DATA): ShortInt; stdcall;
implementation
{Prihlaseni klienta z DLL}
function LogInClient(iParam: integer; Func: PMyCallBack): ShortInt; far; external 'ServCrPC.dll';
{cvicna callBack funkce, ktera by mela pipnout}
function MyCallBack(pD: PMESSAGE_DATA): ShortInt; stdcall;
begin
MessageBeep(0);
Result:= 1;
end;
{provede prihlaseni klienta}
procedure LogClient;
if LogInClient(0, (zv)MyCallBack) > 0 then
begin
end
else
begin
ShowMessage('Log Error');
Application.Terminate;
end;
end;
Problem je vtom. ze aplikace server nedokaze volat moji callback funkci.
Pokud nekdo vi jak na to, tak me pomozte.
Za kazdou radu moc dik.
-------------------------------------------------------------------------
Daniel Jirasek - Conel s.r.o.
Sokolska 71, 56203 Usti nad Orlici
Tel./fax: 0465 521020
E-mail: daniel_jirasek(zv)conel(tec)cz
-------------------------------------------------------------------------
Smtpct.ocx
[*] Martin Fron�k <fronek(zv)fic(tec)cz> - 6.5.1998 10:24:43
Hi,
zkus ICS od F. Piette, je to k dostani treba na DSP....
-----Original Message-----
From: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Sent: Wednesday, May 06, 1998 9:00 AM
To: '*** Delphi'
Subject: Smtpct.ocx
Zdravim,
prosim o radu. Mam aplikaci, ktera vyuziva Smtpct.ocx. Pri instalaci na
jinem PC hlasi problem se zaregistrovanim tridy. Pouziva to nekdo? Ktere
dalsi DLL je treba prenest? Pripadne kde najdu informace o tomhle?
Dekuji
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/~sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)email(tec)cz
>
>
Fonty
[*] Martin Fr�hlich <unites(zv)telecom(tec)cz> - 6.5.1998 10:28:24
Zdravim kolegy Delphisty,
Mam mensi problem s fonty. Potreboval bych v Memo nastavit neproporcionalni
font
o velikosti 6 - 7. Povedlo se mi to prostrednictvim fontu Terminal, ale...
za nejakych, me neznamych okolnosti se velikost zmeni na 9 a nejde nastavit
mensi.
Jestli nekdo vi jak na to nebo ma k dispozici nejaky font ktery by mi to
umoznil budu vdecny.
Predem dekuji za kazdou radu nebo odkaz.
Martin Frohlich
---------------
E-mail: unites(zv)telecom(tec)cz
Parent = DESKTOP
[*] Martin Ku�ka <Martin.Kuska(zv)dytron(tec)cz> - 06.5.1998 10:34:44
[P��loha v souboru: vcard.vcf]
Mohl by mi nekdo poradit, jak nastavit vlastnost Parent formulare na
DESKTOP? Potrebuji to pro zobrazeni formulare na vrchu.
Diky, Martin.
SMTP/POP3 komponenty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1998 10:55:31
Pavel Zichovsky wrote:
>
> Zdravim vsechny!
>
> nemate nekdo komponenty pro SMTP a POP3, ktere by byly jednoduche na
> pouziti, nepouzivaly zadny OCX a podobny veci, fungovaly v Delphi 3
> standard, nejlepe byly se zdrojakem (nemusi byt) a nejakym jednoduchym
> prikladem. Jo a jeste aby byly free a bez chyb.
> Pokud o necem vite, tak mi prosim poslete info (URL).
>
> Diky
Ahoj,
Na Borlandske strance jsem narazil na toto ...
http://www.rtfm.be/fpiette/indexuk.htm
Petr Vones, amatersky programator
SQL
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 6.5.1998 11:28:02
Velmi obecne to jde, ale jakmile se narazi na detaily, tak zacnout byt
problemy.
Rozdilne jsou napriklad, zpusoby implementace Cisel (typ INT, DECIMAL,
NUMBER a pod.).
Dalsi rozdil je v implemetaci Date, Time, DateTime.
To jsou veci, se kterymi si BDE neporadi.
J.Jahoda
> -----P�vodn� zpr�va-----
> Od: Ing. Jindrich Danihelka [SMTP:jidas(zv)mbox.vol(tec)cz]
> Odesl�no: 6. kv�tna 1998 8:43
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: SQL
>
> Chci se ujistit, jestli si neco nenamlouvam.
>
> Napisu aplikaci v Delphi a odladim si ji na nejake lokalni
> SQL databazi. Jak moc muzu narazit, kdyz pak budu chtit
> tu aplikaci pripojovat pres ODBC k jinym SQL databazim?
>
>
> --
> Ing. Jindrich Danihelka
> E-Mail jidas(zv)mbox.vol(tec)cz
> Tel. 038/57805
> 038/7512861
MAC/IPX adresa pocitace
[*] Bielik Marian <bielik(zv)basl.sk> - 06.5.1998 11:37:37
Getting the MAC Address for an Ethernet Adapter
PSS ID Number: Q118623
Authored 25-Jul-1994 Last modified 26-May-1995
The information in this article applies to:
- Microsoft Win32 Software Development Kit (SDK), versions 3.1, 3.5,
3.51, and 4.0
To get the Media Access Control (MAC) address for an ethernet adapter
programmatically, you can use NetBIOS if your card is bound to NetBIOS. Use
the Netbios() NCBASTAT command and provide a "*" as the name in the
NCB.ncb_CallName field. This is demonstrated in the sample code below.
With the NetBEUI and IPX transports, the same information can be obtained
at a command prompt by using:
net config workstation
The ID given is the MAC address.
Sample Code
-----------
#include <windows.h>
#include <wincon.h>
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
typedef struct _ASTAT_
{
ADAPTER_STATUS adapt;
NAME_BUFFER NameBuff [30];
}ASTAT, * PASTAT;
ASTAT Adapter;
void main (void)
{
NCB Ncb;
UCHAR uRetCode;
char NetName[50];
memset( &Ncb, 0, sizeof(Ncb) );
Ncb.ncb_command = NCBRESET;
Ncb.ncb_lana_num = 0;
uRetCode = Netbios( &Ncb );
printf( "The NCBRESET return code is: 0x%x \n", uRetCode );
memset( &Ncb, 0, sizeof (Ncb) );
Ncb.ncb_command = NCBASTAT;
Ncb.ncb_lana_num = 0;
strcpy( Ncb.ncb_callname, "* " );
Ncb.ncb_buffer = (char *) &Adapter;
Ncb.ncb_length = sizeof(Adapter);
uRetCode = Netbios( &Ncb );
printf( "The NCBASTAT return code is: 0x%x \n", uRetCode );
if ( uRetCode == 0 )
{
printf( "The Ethernet Number is: %02x%02x%02x%02x%02x%02x\n",
Adapter.adapt.adapter_address[0],
Adapter.adapt.adapter_address[1],
Adapter.adapt.adapter_address[2],
Adapter.adapt.adapter_address[3],
Adapter.adapt.adapter_address[4],
Adapter.adapt.adapter_address[5] );
}
}
Additional reference words: 3.10 3.50 4.00 95
KBCategory: kbprg
KBSubcategory: NtwkNetbios
Tolko help v D3.
Marian
VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz wrote:
> Hi All
> Nevite nekdo jak se da zjistit IPX nebo MAC adresa pocitace pod Windows 95 ???
>
> Na TCP/IP sou komponenty nebo se to da udelat socketama ale nevim jak je donutit
> aby vratili ipx adresu.
>
> Radek
Problemy s RichEditem
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 6.5.1998 11:45:45
Diky, ale potrebuji to jinak - ta ukazka ve zdrojaku mi
1. nezachova SelAttributes puvodniho RichTextu (tedy toho prenaseneho), ale prenese jen prosty text a nastavi mu attributy dle DefAttributes.
2. vytvori mi novy radek, ale ja ten richtext potrebuji prenest na presne specifikovane misto (treba doprostred nejakeho radku) tak, jak to dela sam velky ClipBoard.
3. Prenaseni pres soubor je tez nepouzitelne, nebot mi prenasi cely text ze zdroje a hlavne vymaze cil. Ja potrebuji prenest text ze zdroje do cile tak, aby se text i se svymi atributy (tluste, velke, italic, barvy, apod.) vlozil (a puvodni zustal zachovan).
Zkousel jsem to znak po znaku (vcetne SelAttributes) - sice to funguje, ale je to vyrazne (pro vetsi texty skoro nepouzitelne) pomalejsi, nez ClipBoard.
Rony
P.S.:Nevite nekdo, jak se v tom zatr... Outlooku nastavi ty odrazky (>) k puvodnimu textu v odpovedi?
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/
-----P�vodn� zpr�va-----
......... Chtel jsem si prenest RichText (z databaze nebo jineho RichEditu) do
aktualniho RichEditu, ale neumim to jinak, nez pres ClipBoard
(CopyToClipBoard a PasteFromClipBoard), aby zustalo zachovano formatovani
textu (puvodniho i prenaseneho). Ale tim padem se mi clipboard plni
necim jinym, nez si tam uzivatel puvodne rucne prenesl - coz je neprijemne.
Nevite nekdo, jak bud uchovat obsah clipboardu a znova ho naplnit nebo jinak
kopirovat ten richText do TRichEditu?
---
A co treba takto:
with DBRichEditData do begin
DefAttributes.Color := clBlack;
DefAttributes.Style := [];
Lines.Add(Form1.DBRichEdit1.SelText); // pridej vybrany blok z
jineho editoru.
SelAttributes.Color := clBlue;
SelAttributes.Style := [fsBold, fsItalic];
Lines.Add(Format('>> Ze dne %s. Konec z�pisu <<',
[DateToStr(Date)]));
DefAttributes.Color := clBlack;
DefAttributes.Style := [];
Lines.Add(' ');
end;
Do DBRichEditData pridam oznaceny blok z DBRichEdit1 z jineho formulare
a jeste pridam radek s datumem, kdy byl zapis vlozen
Tez je mozno pres soubor
DBRichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
DBRichEdit1.Lines.LoadFromFile(SaveDialog1.FileName);
.....
..... kdyz ti to pomuze z bryndy ??
JARO
Registrace tridy... OCX a podobne...
[*] Radek Pospisil <suspi(zv)sh.cvut(tec)cz> - 6.5.1998 11:57:30
> **** pravdepodobne ano, prenes *.OCX, musite ale zjistit nekde (v manualu
> komponenty treba), jake ta OCX pouziva dalsi knihovny a ty prenest spolu s
> programem, resp. je zahrnout do Installeru, podotykam, ze nektere Autom.
> objekty potrebuji DLL.
>
Soucasti MS Platform SDK je utilita Dependency Walker (depends.exe), ktera
zobrazuje pro dany soubor, na kterych knihovnach je zavisly. (umi to pro
.exe, .ocx, .dll, .sys, atd.) Vypada to docela hezky a uz me to hodne
pomohlo.
R.Pospisil
SQL
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 06.5.1998 11:59:22
Vodnansky David wrote:
>
> Obecna otazka = obecna odpoved.
>
> Myslim, ze tenhle postup je funkcni jedine v pripade velmi jednoduchych
> aplikaci, bez serverove casti (SQL pro definici databaze je vetsinou
> znacne nekompatibilni).
>
> Chtelo by to trochu upresnit - co znamena "nejaka lokalni SQL databaze"
> a "nejaka databaze pres ODBC" ?
To je prave to. Mame dost rozsahlou aplikaci, beha na dost pocitacich
(stovky zakazniku), a vsech moznych sitich ale je to v DOSu. Pouziva
to btree filer o Turbo Power. Chceme to zinteligentnit do W95/NT.
Komponety k Btree Fileru do Delphi mame vyzkouse, funguji OK, ale nelibi
se mi to, ze je to porad jenom poskladane po jednotlivych souborech a
neumi ani jednoduche SQL (to by mi tolik moc nevadilo), ale nejedou
v tom zadne transakce. Tak bych chtel to chtel prepsat, pouzivat treba
Interbasi, ale mame vetsi a velke zakazniky, a ti uz treba maji
nejake SQL masiny, ovsem se mezi sebou nedomluvili, a maji kazdy neco
jineho. Takze ti mensi a male natlacime treba do te Interbase, ale
velky rekne, ze to chce na ten svuj server. A to je ten muj problem.
Chci to napsat pokud mozno tak, aby s portovanim na ruzne servery s tim
bylo co nejmin prace a hlavne aby zbytecne nevznikaly ruzne verze
v podstate stejneho produktu implementacne zavisle na pouzitem SQL
serveru.
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
TaskBar
[*] Tom� Krejza <krejza(zv)mbox.vol(tec)cz> - 6.5.1998 12:05:01
jak nastavit formular, aby se nezobrazoval na TaskBaru?
Dekuji.
To zalezi na tom, zda chces skryt FORM nebo hlavni okno aplikace.Toto je jedna z moznosti. funkce API:
ShowWindow( HWND hwnd, // handle of window
int nCmdShow // show state of window
);
Ale upozornuji, ze opravdu zalezi na tom, co chces skryt. Tech moznosti je vic.
T.K.Smtpct.ocx
[*] VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz - y 1998 12:26:17 -0700
Doporucuji pouzit - freenet - komponenty (jsou na Delphi Super Page) - jsou free
a nativni (tudiz te zadne ocx nebude otravovat).
Radek
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 6. kvitna 1998 9:06
Komu: Internet:delphi(zv)pinknet(tec)cz/
Poedmit: Smtpct.ocx
Zdravim,
prosim o radu. Mam aplikaci, ktera vyuziva Smtpct.ocx. Pri instalaci na
jinem PC hlasi problem se zaregistrovanim tridy. Pouziva to nekdo? Ktere
dalsi DLL je treba prenest? Pripadne kde najdu informace o tomhle?
Dekuji
S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
> Homepage: http://members.tripod.com/_sovtop
> Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
> E-mail2: mailto:sovtop(zv)email(tec)cz
>
>
<<Soubor: TXT1.TXT>> Ladeni
[*] Vladimir Vanicek 7-327.3 <V.Vanicek(zv)sh.cvut(tec)cz> - 6.5.1998 12:26:00
Ahoj,
muze mi nekdo poradit, jak podle napr. takoveto chyby, muzu v mym projektu
MODUL.dpr (Delphi 2.0) najit misto chyby? Nebo jeste lepe co a jak z techto
informaci od Win 95 lze pri ladeni v Delphi vyuzit, nebo jak to pouzivate vy.
Pro tento pripad jsem zkousel z menu Delphi/Search/FindError: 00fd5cc4,
ale nic nenasel.
Aplikace MAIN zpusobila neplatnost stranky
v modulu MODUL.DLL na adrese 0137:00fd5cc4.
Registry:
EAX=0000ffa5 CS=0137 EIP=00fd5cc4 EFLGS=00010207
EBX=0000ffa5 SS=013f ESP=016efd5c EBP=016f01a4
ECX=00000000 DS=013f ESI=016f0188 FS=49bf
EDX=016f0188 ES=013f EDI=ffffffff GS=0000
Bajty v CS:EIP:
68 00 04 00 00 8d 44 24 04 50 53 a1 14 20 01 01 .....
Budu rad i za odkazy na WWW ci do knih.
Predem dik,
Vlada. ___________________________________________________________________
! Vlada Vanicek | e-mail: V.Vanicek(zv)sh.cvut(tec)cz !
! Strahov 7/327 | (xVanicek(zv)kii.fsv.cvut(tec)cz) !
! PCname: lars.sh.cvut(tec)cz | WWW: http://kix.fsv.cvut(tec)cz/~xvanicek !
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SQL
[*] Tyslic(zv)bhan-ce.mail602(tec)cz - 6.5.1998 12:40:20
>Chci se ujistit, jestli si neco nenamlouvam.
>Napisu aplikaci v Delphi a odladim si ji na nejake lokalni
>SQL databazi. Jak moc muzu narazit, kdyz pak budu chtit
>tu aplikaci pripojovat pres ODBC k jinym SQL databazim?
1. pokud se ti jedna o konektovani na stejny SQL server tzn. na svem
computeru ladis napr. LocaInterbase a budes potom chtit pripojit aplikaci na
Interbasi napr na UNIXu nemel by byt zadny problem.
2.pokud myslis pripojovani na ruzne SQL servery potom muzes celkem dost
narazit. Zalezi na tom, jak moc bude tvoje aplikace typu Client/Server tzn.
pokud budes pouzivat napr.triggery, ulozene procedury, budes je muset zcela
urcite napsat pro kazdy SQL server zvlast.
Pokud budes pouzivat SQL server pouze jako uloziste tabulek, tak te take
cekaji jiste obtize napr. nektere SQL databaze umoznuji definovat pole typu
Autoincrement a nektere ne, takze to musis resit pomoci triggeru.....
Bios 1.000
SMTP/POP3 komponenty
[*] VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz - y 1998 12:41:48 -0700
Na DSP jsou ke stazeni alespon 2 (freenet.zip a tcpip.zip)
Radek
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 6. kvitna 1998 9:25
Komu: Internet:delphi(zv)pinknet(tec)cz/
Poedmit: SMTP/POP3 komponenty
Zdravim vsechny!
nemate nekdo komponenty pro SMTP a POP3, ktere by byly jednoduche na
pouziti, nepouzivaly zadny OCX a podobny veci, fungovaly v Delphi 3
standard, nejlepe byly se zdrojakem (nemusi byt) a nejakym jednoduchym
prikladem. Jo a jeste aby byly free a bez chyb.
Pokud o necem vite, tak mi prosim poslete info (URL).
Diky
S pozdravem
Pavel "Zizi" Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
mobil mailto:pavel.zichovsky(zv)sms.paegas(tec)cz
----------------------------
PGP podporovano a vitano
<<Soubor: TXT1.TXT>> SQL
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.5.1998 12:44:34
Ing. Jindrich Danihelka wrote:
> Napisu aplikaci v Delphi a odladim si ji na nejake lokalni
> SQL databazi. Jak moc muzu narazit, kdyz pak budu chtit
> tu aplikaci pripojovat pres ODBC k jinym SQL databazim?
Hodne. System triggeru byva velmi rozdilny u ruznych databazi, typove
polozky take mohou pusobit problemy. Doporucuji vyhybat se v
takovemto pripade blobum (s nimi jsem mel radu problemu), a pokud
uvazujes i o Oracle, nepouzivej jine typy nez Varchar a Numeric
(real). Je to pakarna, kdyz chces byt databazove nezavisly, ma to
mnoho omezeni.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
DLL pro kompresi
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 06.5.1998 12:53:05
A jeje, dalsi dobrak. Spis by si se mel omlouvat ted, nemyslis???
Teda pokud budes mit jako vylouceny z konference moznost, vid Adame ;-)
Martin Kubecka
svatos(zv)af(tec)czu(tec)cz wrote:
>
> Ahoj,
> omlouvam se, ze v Attachment nic nebylo;
> v zapalu horlivosti jsem se uklep a odeslal to bez tech souboru,
> takze tady je naprava ...
>
> svatos(zv)af(tec)czu(tec)cz
SMTP/POP3 komponenty
[*] David Hrb�� - 6.5.1998 14:03:56
Je fajn, ze jsi na to narazil na Borlandske strance. Jsou to opravdu
nejlepsi komponenty pro TCP/IP zatim vytvorene pro Delphi a C++ Bulider. Jen
tak pro informaci, nemas ani tuseni, kolik mailu muselo byt poslano a kolik
mesicu trvalo, nez se Borlandi uracili pripsat tento odkaz na jejich web.
David.
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 6. kv�tna 1998 13:29
P�edm�t: Re: SMTP/POP3 komponenty
>Pavel Zichovsky wrote:
>>
>> Zdravim vsechny!
>>
>> nemate nekdo komponenty pro SMTP a POP3, ktere by byly jednoduche na
>> pouziti, nepouzivaly zadny OCX a podobny veci, fungovaly v Delphi 3
>> standard, nejlepe byly se zdrojakem (nemusi byt) a nejakym jednoduchym
>> prikladem. Jo a jeste aby byly free a bez chyb.
>> Pokud o necem vite, tak mi prosim poslete info (URL).
>>
>> Diky
>
>Ahoj,
>
>Na Borlandske strance jsem narazil na toto ...
>
>http://www.rtfm.be/fpiette/indexuk.htm
>
> Petr Vones, amatersky programator
>Pointer na blok bajtu
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 6.5.1998 14:08:20
> buffer pro BlockRead muze byt 32 kB (max. ShortInt),
> opravdu potrebujes soubor nacist cely najednou ?
>
> [Arthur] Mam pocit, ze uz to neni pravda, alespon ja jsem pomoci
> BlockRead nacital soubor o velikosti 10M (najednou) a o zadnych
> 21kB tam nepadlo ani slovo.
> Arthur
>
Ja jsem to bral z D 1 a tam je definice BlockRead tato:
procedure BlockRead(var F: File; var Buf; Count: Word [; var Result: Word]);
tam je max velikost pro buffer = max Word (64kB). Ja jsem vzdy ale pro jistotu
pouzival pouze max int (32 kB).
Zdenek
prantl(zv)ptc.pvt(tec)cz
SQL
[*] Tom� Krejza <krejza(zv)mbox.vol(tec)cz> - 6.5.1998 14:15:29
To je prave to. Mame dost rozsahlou aplikaci, beha na dost pocitacich
(stovky zakazniku), a vsech moznych sitich ale je to v DOSu. Pouziva
to btree filer o Turbo Power. Chceme to zinteligentnit do W95/NT.
Komponety k Btree Fileru do Delphi mame vyzkouse, funguji OK, ale nelibi
se mi to, ze je to porad jenom poskladane po jednotlivych souborech a
neumi ani jednoduche SQL (to by mi tolik moc nevadilo), ale nejedou
v tom zadne transakce. Tak bych chtel to chtel prepsat, pouzivat treba
Interbasi, ale mame vetsi a velke zakazniky, a ti uz treba maji
nejake SQL masiny, ovsem se mezi sebou nedomluvili, a maji kazdy neco
jineho. Takze ti mensi a male natlacime treba do te Interbase, ale
velky rekne, ze to chce na ten svuj server. A to je ten muj problem.
Chci to napsat pokud mozno tak, aby s portovanim na ruzne servery s tim
bylo co nejmin prace a hlavne aby zbytecne nevznikaly ruzne verze
v podstate stejneho produktu implementacne zavisle na pouzitem SQL
serveru.
Pokud budete vyuzivat opravdu plne moznosti SQL Interbase, bohuzel uz nemate sanci tuto aplikaci prenest na jiny SQL server.
Pred casem jsem stal pred podobnym rozhodnutim a velice jsem narazil.
T.K.Rychlosti databazi (bylo hvezdicky)
[*] �ke��k Jaroslav�������6�����̿ - 6.5.1998 14:42:14
Pripada Vam tenhle test korektni, nebo byste chteli videt vystup nejakych
dalsich dotazu?
-----------
Mne ano. Je to velmi zajimave zjisteni.
P.S. Nepropadejte beznadeji, MySQL je zadarmo, alespon ve vetsine pripadu.
Bohuzel na delphi je nutne pristupovat pres ODBC.
zdravim
dan
----------
Na www.Interbase.com je ke stazeni tez Interbase pro Linux zadarmo!
Ma s tim nekdo zkusenosti. Tam by snad ODC nemuselo byt nutne.
Jaro
Filtrovani v TClientDataset.CloneCursor
[*] Petr Dvoracek <peca.as(zv)email(tec)cz> - 6.5.1998 14:43:32
Nedari se mi filtrovat TClienDataset2 vytvoreny pomoci TClienDataset1.CloneCursor(TClientDataset2,True).Nema nekdo nejake reseni.
Dekuji za jakykoli prispevek, ktery mne postrci dale.
Petr Dvoracek
e-mail: peca.as(zv)email(tec)cz
DLL pro kompresi
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 6.5.1998 14:49:57
> Ahoj,
> omlouvam se, ze v Attachment nic nebylo;
> v zapalu horlivosti jsem se uklep a odeslal to bez tech souboru,
> takze tady je naprava ...
>
Neni potreba se omlouvat, ja to mel v mailboxu 4x i s tim
attachmentem.
J.Jahoda
Kniha
[*] Richard �trunc <rick.strunc(zv)email(tec)cz> - 6.5.1998 14:53:19
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Psal jsem do UNISU. Poslali mi zpravu, ze ma postupne vychazet kniha rozdelena do nekolika dilu, aby si kazdy mohl koupit jen to, co potrebuje. Taky tam psali, ze prvni dil ma vyjit nekdy v dubnu a ze me budou informovat. Zatim jsem nic nedostal, tak to asi jeste nevyslo.
Ricky...
rick.strunc(zv)email(tec)cz
�au
To bohu�el ne ne v �e�tine
Zdenek
Caute !
Moze mi z Vas niekto povedat ci uz existuje kniha Delphi 3 ?
Diky
MAC/IPX adresa pocitace II.
[*] Bielik Marian <bielik(zv)basl.sk> - 06.5.1998 15:13:26
Este nejaka drobnost :
How to Use WinSock to Enumerate Addresses
PSS ID Number: Q129315
Authored 24-Apr-1995 Last modified 04-May-1995
The information in this article applies to:
- Microsoft Win32 Software Development Kit (SDK) for Windows NT
versions 3.5 and 3.51
SUMMARY
The gethostbyname() and gethostname() WinSock database APIs can be used to
list IP addresses for a multihomed host. However, these functions work only
for IP addresses. This article shows by example how to give addresses for
other address families. Two different methods are given.
MORE INFORMATION
Method One Code Sample
----------------------
AF_IPX:
This function can be used to give an IPX address:
#include <winsock.h>
#include <wsipx.h>
#include <wsnwlink.h>
#include <stdlib.h>
// Note: In the interest of clarity, the following code does not check
// return values or handle error conditions.
void IPXEnum()
{
int cAdapters,
cbOpt = sizeof( cAdapters ),
cbAddr = sizeof( SOCKADDR_IPX ); SOCKET s;
SOCKADDR_IPX Addr;
// Create IPX socket.
s = socket( AF_IPX, SOCK_DGRAM, NSPROTO_IPX );
// Socket must be bound prior to calling IPX_MAX_ADAPTER_NUM
memset( &Addr, 0, sizeof( Addr ));
Addr.sa_family = AF_IPX;
bind( s, (SOCKADDR*) &Addr, cbAddr);
// Get the number of adapters => cAdapters.
getsockopt( (SOCKET) s, NSPROTO_IPX, IPX_MAX_ADAPTER_NUM,
(char *) &cAdapters, &cbOpt );
// At this point cAdapters is the number of installed adapters.
while ( cAdapters > 0 )
{
IPX_ADDRESS_DATA IpxData;
memset( &IpxData, 0, sizeof(IpxData));
// Specify which adapter to check.
IpxData.adapternum = cAdapters - 1;
cbOpt = sizeof( IpxData );
// Get information for the current adapter.
getsockopt( s, NSPROTO_IPX, IPX_ADDRESS,
(char*) &IpxData, &cbOpt ); // IpxData contains the address for the current adapter.
cAdapters--;
}
}
AF_NETBIOS:
This function uses the EnumProtocols() function to give lana numbers
for the available NetBIOS transports. NOTE: This doesn't work under Windows
NT 3.5 because of a bug in EnumProtocols(), but it does work under Windows
NT 3.51.
void NBEnum()
{
DWORD cb = 0;
PROTOCOL_INFO *pPI;
BOOL pfLanas[100]; int iRes,
nLanas = sizeof(pfLanas) / sizeof(BOOL);
// Specify NULL for lpiProtocols to enumerate all protocols.
// First, determine the output buffer size.
iRes = EnumProtocols( NULL, NULL, &cb );
// Verify the expected error was received.
assert( iRes == -1 && GetLastError() == ERROR_INSUFFICIENT_BUFFER );
if (!cb)
{
fprintf( stderr, "No available NetBIOS transports.\n");
break;
}
// Allocate a buffer of the specified size.
pPI = (PROTOCOL_INFO*) malloc( cb );
// Enumerate all protocols.
iRes = EnumProtocols( NULL, pPI, &cb );
// EnumProtocols() lists each lana number twice, once for
// SOCK_DGRAM and once for SOCK_SEQPACKET. Set a flag in pfLanas
// so unique lanas can be identified.
memset( pfLanas, 0, sizeof( pfLanas ));
while (iRes > 0)
// Scan protocols looking for AF_NETBIOS.
if ( pPI[--iRes].iAddressFamily == AF_NETBIOS )
// found one
pfLanas[ pPI[iRes].iProtocol ] = TRUE;
fprintf( stderr, "Available NetBIOS lana numbers: " );
while( nLanas-- )
if ( pfLanas[nLanas] )
fprintf( stderr, "%d ", nLanas );
free( pPI );
}
AF_APPLETALK:
Address enumeration is not meaningful for AF_APPLETALK. On a multihomed
host with routing disabled, only the default adapter is used. If routing is
enabled, a single AppleTalk address is used for all installed network
adapters.
Method Two: Code Sample
-----------------------
Listed below is an example of how to use the WinSock database APIs to
give IP addresses:
void EnumIP()
{
char szHostname[100];
HOSTENT *pHostEnt;
int nAdapter = 0;
gethostname( szHostname, sizeof( szHostname ));
pHostEnt = gethostbyname( szHostname );
while ( pHostEnt->h_addr_list[nAdapter] )
{
// pHostEnt->h_addr_list[nAdapter] is the current address in host
// order.
nAdapter++;
}
}
Additional reference words: 3.50
KBCategory: kbnetwork kbcode
KBSubcategory: NtwkWinsock
VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz wrote:
> Hi All
> Nevite nekdo jak se da zjistit IPX nebo MAC adresa pocitace pod Windows 95 ???
>
> Na TCP/IP sou komponenty nebo se to da udelat socketama ale nevim jak je donutit
> aby vratili ipx adresu.
>
> Radek
CallBack funkce
[*] Martin Fron�k <fronek(zv)fic(tec)cz> - 6.5.1998 15:27:07
Hi,
ta funkce musi byt exportovana (v c je to _export, jak v pascalu nevim...)
-----Original Message-----
From: =?ISO-8859-2?Q?Daniel_Jir=E1sek?= [SMTP:daniel_jirasek(zv)conel(tec)cz]
Sent: Wednesday, May 06, 1998 9:58 AM
To: delphi(zv)pinknet(tec)cz
Subject: CallBack funkce
Jeste k "Local SQL na velku paradox tabulku"
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1998 15:29:34
Ahoj,
Prevadel jsem nejake tabulky ze stare aplikace psane puvodne pod Foxkou
do Paradox formatu. Struktura tabulek je pro ilustraci asi nasledujici:
Master: (cca 25,000 zaznamu) Detail: (cca 60,000 zaznamu)
POLE1 A(8) POLE1 A(8)
POLE2 A(8) POLE2 A(8)
POLE3 A(9) UDAJ A(4)
Kazda z tabulek ma jeste pole Autoincrement, na nem primarni index a
pro kazde z uvedenych poli je samostatny index. Spojeni tabulek
je dano klicem POLE1 a POLE2. Language driver je "pdx ANSI Czech CH".
Potom jsem pustil nasledujici SQL dotaz: (vysledek asi 700 zaznamu)
SELECT D.POLE1, D.POLE2, D1.UDAJ
FROM ":PokusLoc:Master.DB" D, ":PokusLoc:Detail.DB" D1
WHERE
(D.POLE3 = 'neco')
AND (D1.POLE1 = D.POLE1)
AND (D1.POLE2 = D.POLE2)
Dotaz trval 32sec !!!!!! To je naprosto nepouzitelne, vzdyt i se starou
Foxkou to netrvalo vice nez par vterin. Po ruznych experimentech jsem
nakonec zmenil Table language na "Paradox 'ascii'".
Dotaz pak trval jen 1.5 sec !!!
Dost dobre mi neni jasne proc zrovna tato zmena ma tak fatalni vliv na
vykonnost dotazu. Pouzival jsem Delphi 2.01 Developer a BDE 4.51.
S pozdravem
Petr Vones, amatersky programator
CallBack funkce
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 6.5.1998 15:29:55
Ch ty (zv)(zv)(zv), po zbeznem shlednuti bych hledal chybu v tom, ze
pouzivate pointer na funkci, ale pokud provedete definici
function LogInClient(iParam: integer; Func: TMyCallBack):
ShortInt; far; external 'ServCrPC.dll';
tak uz tam pointer na funkci je, Delphi neumi predavat funkci,
ale pouze pointer na ni. Ve vasem prikladu je pointer na pointer na
funkci. Doufam, ze neblafuji.
J.Jahoda
> Zdravim vsechny,
> Mam veliky problem pri pouzivani a vytvareni CallBack funkci.
> Pokud mi muze nekdo poskytnout funkcni priklad, nebo popis
> vytvareni a pouzivani CallBack funkci, tak mi to poslete.
>
> Popis meho problemu:
> --------------------------------
> Mam aplikaci typu server napsanou v Cecku a potrebuji vytvorit
> vlastniho klienta napsaneho v Delphi 3.0 Profesional. Aplikace
> server disponuje DLL funkci napsanou take v Cecku, ktera slouzi
> pro pripojeni klienta. Jedna z funkci DLL je:
> LogInClient - p�ihl�en� aplikace p��jemce sign�lu do j�dra
> syst�mu
> short LogInClient( int iParam, LPFDATA_CHANGE lpFce );
> Parametry:
> iParam . . . . rezervov�no, mus� b�t 0
> lpFce . . . . callback-funkce; mus� b�t definov�na
> short Fce ( MESSAGE_DATA * pD )
>
> Cast zdrojaku v Delphi:
> type
> {struktura dat predavanych pomoci callback funkce}
> PMESSAGE_DATA = ^TMESSAGE_DATA;
> TMESSAGE_DATA = record
> value: Double; //
> sended actual value (for double OR long type)
> idAction: byte; //
> action identificator
> index: word; //
> signal index in connector structure
> end;
>
> {definice typu callback funkce}
> PMyCallBack = ^TMyCallBack;
> TMyCallBack = function(pD: PMESSAGE_DATA): ShortInt; stdcall;
>
> implementation
> {Prihlaseni klienta z DLL}
> function LogInClient(iParam: integer; Func: PMyCallBack): ShortInt;
> far; external 'ServCrPC.dll';
>
> {cvicna callBack funkce, ktera by mela pipnout}
> function MyCallBack(pD: PMESSAGE_DATA): ShortInt; stdcall;
> begin
> MessageBeep(0);
> Result:= 1;
> end;
>
> {provede prihlaseni klienta}
> procedure LogClient;
> if LogInClient(0, (zv)MyCallBack) > 0 then
> begin
> end
> else
> begin
> ShowMessage('Log Error');
> Application.Terminate;
> end;
> end;
>
> Problem je vtom. ze aplikace server nedokaze volat moji callback
> funkci.
> Pokud nekdo vi jak na to, tak me pomozte.
>
> Za kazdou radu moc dik.
>
> ----------------------------------------------------------------------
> ---
> Daniel Jirasek - Conel s.r.o.
> Sokolska 71, 56203 Usti nad Orlici
> Tel./fax: 0465 521020
> E-mail: daniel_jirasek(zv)conel(tec)cz
> ----------------------------------------------------------------------
> ---
mailovani z progrmu a format status baru
[*] Marcel Telka <marcel(zv)vadium.sk> - 6.5.1998 16:08:10
-----P�vodn� zpr�va-----
Od: Alame <alame(zv)bigfoot.com>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 5. apr�l 1998 2:11
P�edm�t: Re: mailovani z progrmu a format status baru
>pro "penos dat" v HTML tagu pouzivamsystem:
>mailto:tvoja(zv)adresa.sk?Subject=subj.here&Body=body_je_here
>
>mozna by to slo i v tom programu, proc ne?
>
>podporuji to vsichni slusni mail klienti (az na Outlook97 v Officu, nevim,
>jestli to opravil patch SR-1)
>
>M.
>
>-----P�vodn� zpr�va-----
>> >polia ,a potom stlaci submit. A ja chcem, aby mi prisiel mail s tymi
>> >udajmi, je jedno v akom formate, len nech nejako pride. A hlavne tak,
>>
>> do action-u daj "mailto:tvoja(zv)adresa"
>
>Skusal som to, ale toto mi sposobilo, ze sa aktivoval Outlook z
>Office 97, prevzal adresu, ale subject a text bol prazdny. Ja tam
>chcem mat (teda v texte) to, co uz uzivatel vyplnil na stranke v
>tych roznych edit boxoch ... Adresu vyplnilo samo, spravne, ale to
>bolo vsetko. Ak ked pozeram zdrojak k inym strankam, kde to maju
>vyriasene, vsade je same CGI a podobne hluposti ... A je otazne, ci
>si mozem dat kadejaky CGI script a spustat ho do tych svojich
>biednych 2 MB. Preto to chcem cisto cez HTML.
>
>
Trochu neskoro, ale predsa:
Pozri si stranku www.drazba.sk
Zdravim
Marcel Telka
marcel(zv)vadium.sk
>
>> ''''
>> (O O)
>> +-------------oOO------(_)--------------------+
>> | PSOFT, ing.Peter Cirip |
>> | Sibirska 18, 080 01 Presov, Slovensko |
>> | Mobil : 0903 601 068 091/723 104 |
>> | E-mail: psoft(zv)ke.telecom.sk |
>> | WEB : http://www.ke.telecom.sk/psoft/ |
>> +-------------------------------oOO-----------+
>> |__|__|
>> || ||
>> ooO Ooo
>>
>
>SQL
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 6.5.1998 17:27:30
> -----P�vodn� zpr�va-----
> Od: Ing. Jindrich Danihelka [SMTP:jidas(zv)mbox.vol(tec)cz]
> Odesl�no: 6. kv�tna 1998 11:59
> Komu: DELPHI Distribution List
> P�edm�t: Re: SQL
>
> Vodnansky David wrote:
> >
> > Obecna otazka = obecna odpoved.
> >
> > Myslim, ze tenhle postup je funkcni jedine v pripade velmi jednoduchych
> To je prave to. Mame dost rozsahlou aplikaci, beha na dost pocitacich
> (stovky zakazniku), a vsech moznych sitich ale je to v DOSu. Pouziva
> velky rekne, ze to chce na ten svuj server. A to je ten muj problem.
> Chci to napsat pokud mozno tak, aby s portovanim na ruzne servery s tim
> bylo co nejmin prace a hlavne aby zbytecne nevznikaly ruzne verze
> v podstate stejneho produktu implementacne zavisle na pouzitem SQL
> serveru.
>
To asi nepujde.
Samotna definice SQL jazyka neni nikde dokonale implementovana a co databazovy
stroj to jine jemnosti. Navic
ze zkusenosti vim asi tolik, ze je-li velka databaze s mnoha provazanymi
tabulkami, je z hlediska rychlosti nevyhnutelne pouzivat ulozene procesy primo
na databazovem stroji.
A pokud je nejednotnost v samotnych SQL prikazech, pak v tomto je chaos.
P.S: Jak jiste ctena verejnost vi, na okresnich uradech jede vyplaceni
socialnich davek. Cele to je postavene na ORACLE. V pocatcich, kdy firma vice
mene neaplikovala zadne ulozene procesy, vypocet samotnych davek trval radove
den a noc. (rano pustim druhy den odpoledne je vysledek) a po siti probehly GB
dat. Po aplikaci nekolika procesu je to otazka 2-3 hodin.
Pochopitelne, ze pro obycejne vybery takovy proces mnoho nevyuzijes.
=======================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=======================================
Fonty
[*] Marcel Telka <marcel(zv)vadium.sk> - 6.5.1998 17:27:48
>Zdravim kolegy Delphisty,
>
>Mam mensi problem s fonty. Potreboval bych v Memo nastavit neproporcionalni
>font
>o velikosti 6 - 7. Povedlo se mi to prostrednictvim fontu Terminal, ale...
>za nejakych, me neznamych okolnosti se velikost zmeni na 9 a nejde nastavit
>mensi.
To bude pravdepodobne preto, ze Terminal nie je truetypovy font, ale
bitmapovy.
>Jestli nekdo vi jak na to nebo ma k dispozici nejaky font ktery by mi to
>umoznil budu vdecny.
Skus pouzit Courier New.
Ahoj
Marcel Telka
marcel(zv)vadium.sk
>
>Predem dekuji za kazdou radu nebo odkaz.
>
>
>Martin Frohlich
>---------------
>E-mail: unites(zv)telecom(tec)cz
>Dotaz ohledne Access
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 06.5.1998 19:40:39
A ja se naivne domnival, ze jednoduse pouziju *.mdb misto *.pdx ;).
Vito, nevzpomenes si nahodou, kde bych to na Inetu nasel? Ciste jestli
nemas bookmark nebo tak nejak.
Diky
Martin Kubecka
V�t�zslav Gazda wrote:
> Neni pravda, ze si musis KOUPIT Access. Staci si pouze naistalovat podporu
> pro databaze Access. Je to nekolik knihoven, ktere se daji stahnout na
> internetu zcela zdarma (nap�. na www.microsoft.com nebo
> www.installshield.com). Instalace je vsak trochu slozitejsi. Popis instalace
> najdes take na internetu.
>
> Vita
Interbase na Linux
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 06.5.1998 20:24:11
Hi,
pred nedavnem byla uvolnena Interbase 4 pro Linux, uz to mate nekdo
vyzkousene? Chtel bych to nasadit na vaznou praci -> 30 uzivatelu,
akciova spolecnost. Co vy na to?
fronek(zv)fic(tec)cz
Problemy s RichEditem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1998 20:28:51
> -----P�vodn� zpr�va-----
> ......... Chtel jsem si prenest RichText (z databaze nebo jineho RichEditu) do
> aktualniho RichEditu, ale neumim to jinak, nez pres ClipBoard
> (CopyToClipBoard a PasteFromClipBoard), aby zustalo zachovano formatovani
> textu (puvodniho i prenaseneho). Ale tim padem se mi clipboard plni
> necim jinym, nez si tam uzivatel puvodne rucne prenesl - coz je neprijemne.
> Nevite nekdo, jak bud uchovat obsah clipboardu a znova ho naplnit nebo jinak
> kopirovat ten richText do TRichEditu?
Ahoj,
Problem je v tom, ze se nelze nijak dostat primo k RTF datum uvnitr RichEditu,
tedy jedina moznost je pres schranku. Tady jsem v rychlosti napsal kratkou
proceduru na uchovani obsahu schranky a preneseni oznaceneho bloku z jednoho
do druheho RichEditu. Mozna to ale bude chtit jeste trochu "doladit"
function CopyRichEditSelection(Source, Dest: TRichEdit): Boolean;
type
TClipSaveRec = record
Format: Word;
Handle: THandle;
end;
TClipSave = array[1..64] of TClipSaveRec;
var
ClipSave: TClipSave;
ClipFormat: Word;
FormatCount, I: Integer;
H: THandle;
P: Pointer;
begin
Result := False;
FormatCount := Clipboard.FormatCount;
I := 0;
Clipboard.Open;
try
ClipFormat := EnumClipboardFormats(0);
while ClipFormat <> 0 do
begin
Inc(I);
ClipSave[I].Format := ClipFormat;
H := Clipboard.GetAsHandle(ClipFormat);
P := GlobalLock(H);
ClipSave[I].Handle := GlobalAlloc(GMEM_MOVEABLE, GlobalSize(H));
if ClipSave[I].Handle <> 0 then
CopyMemory(GlobalLock(ClipSave[I].Handle), P, GlobalSize(H));
GlobalUnlock(H);
ClipFormat := EnumClipboardFormats(ClipFormat);
end;
Clipboard.Close;
Source.CopyToClipboard;
Dest.PasteFromClipboard;
Clipboard.Open;
try
Clipboard.Clear;
for I := 1 to FormatCount do with ClipSave[I] do
if Handle <> 0 then
begin
SetClipboardData(Format, Handle);
GlobalUnlock(Handle);
end;
Result := True;
finally
Clipboard.Close;
end;
finally
Clipboard.Close;
end;
end;
A kdyz uz jsme u toho RichEditu, neexistuje nejaka novejsi verze ktera by
umela i menit barvu podkladu u pisma (podobne jako to umi Word v RTF) a
potom shanim neco co umi produkovat RTF text. Predstavuji si to tak, ze
to ma vlastnost Font (TFont) a metodu WriteString, ja do toho sekvencne
zapisuji casti textu a behem nich mohu menit Font a ono to produkuje RTF.
Nevite o necem takovem ? Ja vim, lze to napsat, ale treba uz to nekde
existuje ....
Petr Vones, amatersky programator
Offtopic] Re: SMTP/POP3 komponenty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.5.1998 20:44:20
David Hrb�� wrote:
>
> Je fajn, ze jsi na to narazil na Borlandske strance. Jsou to opravdu
> nejlepsi komponenty pro TCP/IP zatim vytvorene pro Delphi a C++ Bulider. Jen
> tak pro informaci, nemas ani tuseni, kolik mailu muselo byt poslano a kolik
> mesicu trvalo, nez se Borlandi uracili pripsat tento odkaz na jejich web.
To je asi osud vsech velkych firem, ja totiz pracuji v jedne nejmenovane
(post)komunisticke spolecnosti, tam taky vsechno trva vecnost ... :-)
Petr Vones, amatersky programator
SQL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.5.1998 22:59:35
> To je prave to. Mame dost rozsahlou aplikaci, beha na dost pocitacich
> (stovky zakazniku), a vsech moznych sitich ale je to v DOSu. Pouziva
> to btree filer o Turbo Power. Chceme to zinteligentnit do W95/NT.
> Komponety k Btree Fileru do Delphi mame vyzkouse, funguji OK, ale nelibi
> se mi to, ze je to porad jenom poskladane po jednotlivych souborech a
> neumi ani jednoduche SQL (to by mi tolik moc nevadilo), ale nejedou
> v tom zadne transakce. Tak bych chtel to chtel prepsat, pouzivat treba
TurboPower ma FlashFiller, coz je Client/Server databaze pro Delphi
a C++ Builder. Dava data do jednoho souboru, podporuje transakce,
ale neumi zadne SQL prikazy.
Jinak Sybase SQL Anywhere podporuje vsechny mozne platformy.
> Interbasi, ale mame vetsi a velke zakazniky, a ti uz treba maji
> nejake SQL masiny, ovsem se mezi sebou nedomluvili, a maji kazdy neco
> jineho. Takze ti mensi a male natlacime treba do te Interbase, ale
> velky rekne, ze to chce na ten svuj server. A to je ten muj problem.
> Chci to napsat pokud mozno tak, aby s portovanim na ruzne servery s tim
> bylo co nejmin prace a hlavne aby zbytecne nevznikaly ruzne verze
> v podstate stejneho produktu implementacne zavisle na pouzitem SQL
> serveru.
No to je problem. Pokud budes pouzivat jen SQL podle normy Ansi,
ktere podporuje vetsina SQL serveru, pak by vetsi problemy byt
nemely. Ale s triggery a podobnymi vecickami problemy budou, protoze
to ma kazdy SQL server jine, podivej se schvalne do Interbase,
pak do MS SQL Serveru a pak treba do Sybase SQL Anywhere a pak
do Oracle... A pokud pouzijes speky specialni pro ten ktery SQL
Server, pak nemas sanci to nejak sjednotit jednoduchym zpusobem.
Ale na druhou stranu kdyz si koupis vsechny SQL servery a das
si s tim velkou praci, dosahnes toho...
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 ===
==============================================================SQL
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 06.5.1998 23:47:09
Hi,
clovece, ty snad prodavas produkty TurboPower, ne? Skoro kazda tvoje
rada je na porizeni si komponent od TuboPower. Ale jinak OK.
fronek(zv)fic(tec)cz
Petr Zahradnik wrote:
>
> TurboPower ma FlashFiller, coz je Client/Server databaze pro Delphi
> a C++ Builder. Dava data do jednoho souboru, podporuje transakce,
> ale neumi zadne SQL prikazy.SQL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.5.1998 00:57:40
> clovece, ty snad prodavas produkty TurboPower, ne? Skoro kazda tvoje
> rada je na porizeni si komponent od TuboPower. Ale jinak OK.
Je to pravda, prodavam, ale reklamu si tu delat nechci a ani nemam
zapotrebi. Totiz take prodavam tisice dalsich titulu od vsech
ostatnich vyrobcu software... Jenze ten clovek psal, ze ma BTrieve
od TurboPower, tak co jsem mu mel napsat? A preci ja za to nemohu,
ze knihovny od TurboPower jsou velmi dobre, ja sam jich nekolik
pouzivam a doporucuji hlavne to, co si sam vyzkousim. Take jsem
drive hledal ruzne free komponenty na ZIPovani, ale byly s tim
same problemy, tak jsem si pak koupil Abbrevii a opravdu ji mohu
doporucit, protoze ji sam hodne vyuzivam. Zrovna tak Orpheus nebo
Async Professional. Bohuzel nemohu davat reference na neco, co
neznam, tak davam reference na to, co znam a mam odzkousene...
Preci nebudeme podezrivat kazdeho, kdo tu inzeruje, ze lepsi je
pouzivat SQL server nez tabulky Paradox, ze chce delat reklamu,
protoze prodava MS SQL Server... ne?
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 ===
==============================================================SQL
[*] �ke��k Jaroslav�������6�����̿ - 7.5.1998 01:11:54
>
>P.S: Jak jiste ctena verejnost vi, na okresnich uradech jede vyplaceni
>socialnich davek. Cele to je postavene na ORACLE. V pocatcich, kdy firma
vice
>mene neaplikovala zadne ulozene procesy, vypocet samotnych davek trval
radove
>den a noc. (rano pustim druhy den odpoledne je vysledek) a po siti probehly
GB
>dat. Po aplikaci nekolika procesu je to otazka 2-3 hodin.
>Pochopitelne, ze pro obycejne vybery takovy proces mnoho nevyuzijes.
>
Nevim jak hodne o tom verejnost vi. Ja o tom vim tolik, ze to puvodne bylo
delano na Gupte. Protoze to bylo moc pomale, tak to predelali na Oracle.
Podle vyse uvedeneho popisu zrejme dost nekvalitne.
Alespon vime, na co platime dane. Mel jsem moznost se seznamit s ekonomickym
systemem Feis, ktery byl vyvinut ve stejnem prostredi pro Oracle a ten chodi
slusne.
Asi vsude plati, kdyz dva delaji totez, neni to totez.
Moje rada na puvodni otazku.
Vytvorit rozsahlejsi clent-server projekt na ruzne databaze je nesmirne
obtizne,
i kdyz existuje norma SQL. Pristup pres ODBC byva pomalejsi a omezuje
nektere moznosti primeho pristupu. Aby byl projekt funkcni, rychly a
spolehlivy
(jinymi slovy pouzitelny) musite pouzivat trigery, ulozene procedury a
transakce,
volit nativni ovladace a pod. Tady tezko najdete dva stejne servery.
Jiz definice typu polozek, jazykove ovladace, trideni a pod. jsou tak
rozdilne,
ze vytvorit jedny zdroje pro klienta s vice servery je snad nemozne.
Je vhodne vybrat jeden server jako nosny a pozdeji vytvorit dalsi verzi
pro jiny server. Pro stredni firmy to muze byt treba relativne levna
Interbase
a pro vetsi treba Oracle nebo MSSQL. Zalezi na vasich programatorskych
kapacitach. Jestli zacinate, nepoustel bych se do vsech serveru najednou.
Urcite nadeje vkladame do trivrsve architektury. Klientska vrstva je
naprosto
oddelena od dat a tudiz relativne komplikovane uzivatelske prostredi se
vytvari jen jednou. Tato vrstva komunikuje se serverem prostrednictvim
stredni vrstvy. Pro kazdy server tedy postaci vytvorit jinou stredni vrstvu
a nemusite pri tom menit klientskou aplikaci. Perfektni zvladnuti trivrstve
architektury ovsem tez neni prochazka ruzovou aleji.
Odmenou vsak muze byt i nezanedbatatelne zrychleni aplikace.
Zatim je tato tohnologie jeste dost v plenkach. Ma sve vyhody, ale tez
i nevyhody mezi nez patri nezanedbatelna cena v pripade pouziti MIDAS
a nasazeni stredni vrstvy na neklientsky pocitac.
Jaro.
TChart
[*] �ke��k Jaroslav�������6�����̿ - 7.5.1998 02:18:08
>Ahoj !
>Uz jednou jsem tady vznesl tento dotaz, ale nedostalo se mi zadne odpovedi
> bud to nikdo nevi a nebo nikdo nema cas kvuli "Jakou databazi ucit..."
nebo
>snad kvuli "Ochrana proti kopirovani" nebo nedej boze kvuli "8 MB" ). Tak
>tedy jeste jednou:
> Pouzivam komponentu TDBChart a potreboval bych za chodu zmenit typ
serie
>(Line,Bar,...).Nemohu zjistit o jaky se jedna properties, protoze v
>design-time se typ serie meni v dialogovem okne.
NEBUD NEZDVORILEJ.
V konferenci neni nikdo povinenn opovidat na vsechny dotazy.
Je to pouze veci zajmu slusnosti a ochoty poradit.
Kazdy ma mozna nejaky dotaz na ktery nedostal uspokojivou odpoved.
Prece se kvuli tomu nebudeme osocovat.
Cist vsech 50-70 prispevku denne si mohou asi dovolit jen duchodci
a ti zrejme zase neprogramujou.
Jiste vis, ze Tseries je samostatny objekt
V TDBChart zalozis objekty typu TSeries, ktere maji sve vlastnosti.
Soupis dostupnych vlastnosti je v helpu: TBarSeries Component
Tam hledej potrebne vlastnosti.
Nevim jestli jsem te dobre pochopil, ale
mozna ti pomuze vlastnost Barstyle
property BarStyle : TBarStyle;
bsArrow
bsCilinder
bsEllipse
bsInvPyramid
bsPyramid
bsRectangle
napr.
Series1.BarStyle := bsArrow;
Jaro
Primarni klic
[*] Zdeno Jasek <zdeno.delphi(zv)mailcity(tec)com> - 07.5.1998 06:53:21 -0700
V knihe "Paradox for Windows" autorka vyklada celkom dobrym sposobom standardne postupy pri navrhovani databaz. Jednou zo zasad je rozdelovat informacie na co najmensie celky do poli databazy - inak vlastne polia databazy stracaju zmysel. Dalsia zasada hovorila o hladani prirodzeneho primarneho kluca a ak nie je, zaviest autoinkrementacny. Ja osobne pouzivam autoinkrementacny kluc takmer v kazdej master tabulke. Vytvarat primarny index z viacerych poli zrejme ubera priestor, ale aj rychlost vo vyhladavani.
Get your FREE, private e-mail
account at http://www.mailcity.com
Acces
[*] Martin Falan <m_falan(zv)pobox.sk> - 7.5.1998 07:06:02
Zdravim vsetkych v konferencii,
Mam par problemov s Delphi a Acces.
Ak sa chcem pripojit na databazu Accesu ci uz z delphi alebo
z Database explorera, vypise sa mi chybove
hlasenie SQL error alebo sa to zruti.
Je to v Delphi 2 cez ODBC 3.0 v NT 4,0 service pack 3.
Babral som sa s tym niekolko hodin, ale nejde to.
Dalsi dotaz, ci niekto nevie o nejakej free komponente alebo
dll kniznice na pakovanie suborov do archivov ZIP, ARJ
alebo inych. Najlepsie ZIP. Mozem sice pouzit externe PKZIP,
ale tym sa mi spusti dosovke okno a ani to ovladanie nie je ono.
A do tretice. Ako by som mohol zisti� serive cislo hardisku a diskety, ktora je vlozena v mechanike ?
Vdaka za kazdu odpoved.
Martin
DLL pro pakovani
[*] martin.talian(zv)post(tec)cz - 7.5.1998 07:20:44
Vdaka za odpoved,
ale ziaden attachment nebol pripojeny.
A k accesu. Databaza nie je zaheslovana.
Martin
> > Existujhe nejaka kniznica DLL na pakovanie suborov, nieco na sposob PKZIP ? Aby som v programe delphi nemusel volat externe PKZIP, ktory sa mi spusti v dos okne.
> Nahodou mam delfacky unity pro kompresi souboru. (viz. Attachment);
> musis to vyskouset, ja jsem to nepouzival, pouze jsem to stahnul.
>
> > Nemozem sa pripojit k tabulke Acces. Chce odo mna uzivatela a heslo a nech zadam hocijake udaje, potom vyhlasi SQL error. Taktiez to uroby aj DATABASE EXPLORER.
> Ta databaze v accesu bude asi zaheslovana, ne ?, nejlepsi by bylo
> znat heslo ...
>
> > Ako sa da priradit premennej vysledok nejakeho SQL vyrazu , napriklad nejakych suctov ?
> Ja si myslim, ze jedine tak, ze udelas:
> Query. SQLExec;
> nejaka_promena:= Query.FieldByName('adfsd').As?????;
> vyskousej to, za nic nerucim ...
>
> Hynek Svatos
> svatos(zv)af(tec)czu(tec)cz
>
>
OCX
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 7.5.1998 07:29:44
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Chtel bych se vas zeptat jestli je mozne zkompilovat komponentu pro delphi do ocx a jak je to slozite. (jedna se mi konkretne o predelani TSockets komponenty do ocx).
Dale se chci zeptat zda nekdo nevi kdy se presne vyvola event .OnDataAvailable v komponentu TSockets pro delphi 2. (jak jsem zjistil tento komponent komunikuje s winsockem v asynchronnim rezimu ( WSAAsyncSelect) a pouziva socket typu sock stream). (jde mi o to zda se vyvola po naplneni vstupniho bufferu daty, nebo po prichodu 1datagramu).
Predem diky.SQL
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 7.5.1998 08:25:41
> Nevim jak hodne o tom verejnost vi. Ja o tom vim tolik, ze to puvodne
> bylo
> delano na Gupte. Protoze to bylo moc pomale, tak to predelali na
> Oracle.
> Podle vyse uvedeneho popisu zrejme dost nekvalitne.
>
Aby nedoslo k pomluve, ci ke zmateni verejnosti. Tak system SSP
je od pocatku budovan na serveru Oracle. Puvodni verze bezela na 7.1.3.
Server je NetWare 4.1
Databaze Oracle (pubvodne 4.1)
Client je Windows 3.11
Clientska aplikace je vyvijena v SQL Windows od firmy
Gupta, coz je interpret predkompilovaneho jazyka, z toho pravdepodobne i
ta pomalost a ta GUPTA (dnes se GUPTA jmenuje jinak).
J.Jahoda
P.S. Nedelam reklamu OKSystemu ani Gupte ani Novellum ani Oracle
Interbase na Linux
[*] Petr Kristan <epos(zv)pce.fairnet(tec)cz> - 7.5.1998 08:44:30
> Date: Wed, 06 May 1998 20:24:11 +0200
> From: Martin Fronek <FRONEK(zv)FIC.CZ>
> To: delphi(zv)pinknet(tec)cz
> Subject: Interbase na Linux
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Hi,
>
> pred nedavnem byla uvolnena Interbase 4 pro Linux, uz to mate nekdo
> vyzkousene? Chtel bych to nasadit na vaznou praci -> 30 uzivatelu,
> akciova spolecnost. Co vy na to?
>
> fronek(zv)fic(tec)cz
Ja jsem zkusel akorat instalaci a pocatecni zkousky s pripojenim na
databaze. Vse pracuje naprosto perfektne a bez chyby.
Akorat by me zajimalo, kolika-ti uzivatelska je to verze. Nikde jsem
se o tom nedocetl.
Petr
--
Petr Kristan
EPOS PRO s.r.o., Bozeny Nemcove 23 24, 530 02 Pardubice
tel./fax: (040)6335223-4, e-mail: epos(zv)pce.fairnet(tec)cz
CallBack funkce
[*] Daniel Jir�sek <daniel jirasek(zv)conel(tec)cz> - 7.5.1998 08:52:24
Diky za odpoved, provedl jsem pospane zmeny, ale ke kladnemu
vysledku jsem nedospel.
Nyni to mam definovane takto:
{definice typu callback funkce}
TMyCallBack = function(pD: PMESSAGE_DATA): ShortInt; stdcall;
{Prihlaseni klienta z DLL}
function LogInClient(iParam: integer; Func: TMyCallBack): ShortInt; far; external 'ServCrPC.dll';
{cvicna callBack funkce, ktera by mela pipnout}
function MyCallBack(pD: PMESSAGE_DATA): ShortInt; stdcall;
begin
MessageBeep(0);
Result:= 1;
end;
{provede prihlaseni klienta}
LogInClient(0, MyCallBack)
Ja mam jeste k dispozici funkcni zdrojak klienta napsanyho v Cecku:
// definice
short CoAnnounce( MESSAGE_DATA *pD ); // callback-funkce pro prijem zprav
// prijem zprav od jadra systemu - callback-funkce
short CoAnnounce( MESSAGE_DATA *pD )
{
if( WaitForSingleObject( hEntryStack, 100 ) == WAIT_OBJECT_0 )
{
// vlozeni dat do zasobniku
gmdStackData[ giIn ] = *pD;
giIn = ( giIn < MD_STACK_MAX ) ? ++giIn : 0;
// uvolneni pristupu k zasobniku
ReleaseMutex( hEntryStack );
return 1;
}
else
{
TRACE( "!!! Vlozeni dat - nedockal jsem se pristupu k zasobniku!\n" );
return -1;
}
return 0; // nedefinovany stav
}// CoAnnounce
// prihlaseni
( short sRet = LogInClient(0, CoAnnounce ) > 0 )
Ja se moc v cecku neviznam, takze pokud nekdo odhali chybu, tak mi ji poslete.
Diky.
Daniel Jirasek - Conel s.r.o.> Ch ty (zv)(zv)(zv), po zbeznem shlednuti bych hledal chybu v tom, ze
>pouzivate pointer na funkci, ale pokud provedete definici
>
> function LogInClient(iParam: integer; Func: TMyCallBack):
>ShortInt; far; external 'ServCrPC.dll';
>
> tak uz tam pointer na funkci je, Delphi neumi predavat funkci,
>ale pouze pointer na ni. Ve vasem prikladu je pointer na pointer na
>funkci. Doufam, ze neblafuji.
>
> J.Jahoda
>
>> Zdravim vsechny,
>> Mam veliky problem pri pouzivani a vytvareni CallBack funkci.
>> Pokud mi muze nekdo poskytnout funkcni priklad, nebo popis
>> vytvareni a pouzivani CallBack funkci, tak mi to poslete.
>>
>> Popis meho problemu:
>> --------------------------------
>> Mam aplikaci typu server napsanou v Cecku a potrebuji vytvorit
>> vlastniho klienta napsaneho v Delphi 3.0 Profesional. Aplikace
>> server disponuje DLL funkci napsanou take v Cecku, ktera slouzi
>> pro pripojeni klienta. Jedna z funkci DLL je:
>> LogInClient - p�ihl�en� aplikace p��jemce sign�lu do j�dra
>> syst�mu
>> short LogInClient( int iParam, LPFDATA_CHANGE lpFce );
>> Parametry:
>> iParam . . . . rezervov�no, mus� b�t 0
>> lpFce . . . . callback-funkce; mus� b�t definov�na
>> short Fce ( MESSAGE_DATA * pD )
>>
>> Cast zdrojaku v Delphi:
>> type
>> {struktura dat predavanych pomoci callback funkce}
>> PMESSAGE_DATA = ^TMESSAGE_DATA;
>> TMESSAGE_DATA = record
>> value: Double; //
>> sended actual value (for double OR long type)
>> idAction: byte; //
>> action identificator
>> index: word; //
>> signal index in connector structure
>> end;
>>
>> {definice typu callback funkce}
<> PMyCallBack = ^TMyCallBack;
>> TMyCallBack = function(pD: PMESSAGE_DATA): ShortInt; stdcall;
>>
>> implementation
>> {Prihlaseni klienta z DLL}
>> function LogInClient(iParam: integer; Func: PMyCallBack): ShortInt;
>> far; external 'ServCrPC.dll';
>>
>> {cvicna callBack funkce, ktera by mela pipnout}
>> function MyCallBack(pD: PMESSAGE_DATA): ShortInt; stdcall;
>> begin
>> MessageBeep(0);
>> Result:= 1;
>> end;
>>
>> {provede prihlaseni klienta}
>> procedure LogClient;
>> if LogInClient(0, (zv)MyCallBack) > 0 then
>> begin
>> end
>> else
>> begin
>> ShowMessage('Log Error');
>> Application.Terminate;
>> end;
>> end;
>>
>> Problem je vtom. ze aplikace server nedokaze volat moji callback
>> funkci.
>> Pokud nekdo vi jak na to, tak me pomozte.
>>
>> Za kazdou radu moc dik.
>>
>> ----------------------------------------------------------------------
>> Daniel Jirasek - Conel s.r.o.
>> Sokolska 71, 56203 Usti nad Orlici
>> Tel./fax: 0465 521020
>> E-mail: daniel_jirasek(zv)conel(tec)cz
>> ----------------------------------------------------------------------
Pointer na blok bajtu
[*] Filip Jirsak <jirsak(zv)gymnacel(tec)cz> - 7.5.1998 08:59:29
> From: "Lubo Fule" <fule(zv)sct.sk>
> To: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
> Subject: RE: Pointer na blok bajtu
> Date: Wed, 6 May 1998 09:25:33 +0200
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Podla mna je najlepsie pouzit funkcie, ktore volaju priamo Win API t. j.
>
> FileOpen, FileRead, FileWrite, FileSeek, FileCreate, FileClose
>
> Blizsie su popisane v helpe.
> s pozdravom Lubo Fule
>
Prsene tyto funkce z WinAPI mam na mysli, ale nevim, jak dal pouzivat
pointer na nactena data, tzn. jak nacist libovolny bajt nebo retezec
z nactenych dat.
>
> > -----Original Message-----
> > From: Filip Jirsak [mailto:jirsak(zv)gymnacel(tec)cz]
> > Sent: Wednesday, May 06, 1998 9:38 AM
> > To: delphi(zv)pinknet(tec)cz
> > Subject: RE: Pointer na blok bajtu
> >
> >
> > > From: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
> > > To: "'DELPHI Distribution List'" <delphi(zv)pinknet(tec)cz>
> > > Subject: RE: Pointer na blok bajtu
> > > Date: Tue, 5 May 1998 17:45:11 +0200
> > > Organization: PVT a.s.
> > > Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> >
> > > > -----Original Message-----
> > > > From: Filip Jirsak [SMTP:jirsak(zv)gymnacel(tec)cz]
> > > > Sent: Tuesday, May 05, 1998 2:24 PM
> > > > Subject: Pointer na blok bajtu
> > > >
> > > > mam takovyto problem. potrebuji v Delphi pracovat se soubory
> > > > (otevrit, precist - zapsat data, zavrit). Potrebuji z mit moznost z
> > > > dat, ktera jsou ze souboru nactena nacist libovolny bajt, pripadne
> > > > retezec (jako typ String).
> > >
> > > Tak si otevri soubor jako File OF byte a cti jej pomoci fce BlockRead()
> > >
> > > >ale co kdyz chci nacist souvisly blok, jako
> > > > retezec? Napadlo mne take pouzit pole, ale to ma predem urcenou delku
> > > > a velikost souboru je promenliva.
> > >
> > > buffer pro BlockRead muze byt 32 kB (max. ShortInt),
> > > opravdu potrebujes soubor nacist cely najednou ?
> > >
> > > Zdenek
> > > prantl(zv)ptc.pvt(tec)cz
> > >
> > Typ File z Pascalu jsem prave nechtel pouzit, protoze neumoznuje
> > pouzivat vsechny "vymozenosti" Win95 - sdileni souboru atd. Mne jde
> > spise o to, jak pristupovat k nejakemu bloku znaku. Funkci
> > BlockRead() take ziskam jen ukazatel na urcitou oblast bajtu a ja
> > potrebuji umet tuto oblast nacitat po bajtech nebo jako retezec.
> >
> > Diky
> >
> > Filip Jirsak
> >
> > e-mail: Jirsak(zv)gymnacel(tec)cz
> >
>
>
e-mail: Jirsak(zv)gymnacel(tec)cz
Primarni klic
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 7.5.1998 09:29:53
Ahoj,
do Delphi to moc nepatri,ale vhodnejsi konferenci neznam (pokud nekdo vi
o konferenci venovane SQL a navrhum databazi - klidne anglicky - necht
se podeli o informaci).
Navrhuji databazi v Interbase a mam takovy spis filozoficky problem. V
tabulce (rekneme treba faktur) mam 4 sloupce - rok, poradove cislo, radu
a stredisko (napr.1998,123,1,1) - a potrebuju nejak optimalne nastavit
primarni klic a vyladit vyhledavani podle slozeneho cisla faktury
(napr.19981230101). Moznosti je nekolik:
1. vykaslat se uvedene sloupce a primarni klic delat autoinkrementem
jako nic nerikajici poradove cislo. Klient hleda podle 4
polozek=slozitejsi SQL dotazy - stavajici stav.
2. Pro potreby klienta a zrychleni pridat do tabulky sloupce slozeneho
cisla a aktualizovat ho triggerem.
3. Udelat z uvedene slozene polozky primarni klic.
4. Udelat primarni klic ze vsech 4 polozek a opet bud nechat klienta
skladat si cislo sam, nebo mu ho nekde ulozit do tabulky.
5. Jako 4, ale vyhodit samostane slozky a nechat jen slozenou hodnotu.
Tohle je myslim uplny nesmysl (prosazovany mym kolegou, ktery delal
puvodni navrh), protoze tim prijdu o moznost referencni integrity napr.
na tabulku stredisek a dalsi.
Slozene cislo je unikatni, takze v tom problem neni. Spis se mi nelibi,
ze pri zmene nektere ze zucastnenych polozek by se musely aktualizovat
vsechny podrizene tabulky (a ze jich je) a v pripade ulozeni slozeneho
cisla primo do tabulky zase zajistit konzistenci mezi slozenou hodnotou
a jejimi samostane ulozenymi slozkami.
Nejak se nemuzu rozhodnout, tak mi prosim nekterym smerem postrcit.
Predem diky a doufam, ze to je aspon trochu srozumitelne.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
Parent = DESKTOP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.5.1998 10:00:49
Martin Ku�ka wrote:
>
> Mohl by mi nekdo poradit, jak nastavit vlastnost Parent formulare na
> DESKTOP? Potrebuji to pro zobrazeni formulare na vrchu.
> Diky, Martin.
Ahoj,
Pokud chces zobrazit formular aby byl na vrchu, tak nastav vlastnost
FormStyle na fsStayOnTop
Petr Vones, amatersky programator
Primarni klic
[*] Marek Prokop <prokopsw(zv)czn(tec)cz> - 7.5.1998 10:06:10
On Thursday, May 07, 1998 9:30 AM, Vodnansky David
[SMTP:Vodnansky(zv)allianz(tec)cz] wrote:
>
> Navrhuji databazi v Interbase a mam takovy spis filozoficky problem. V
> tabulce (rekneme treba faktur) mam 4 sloupce - rok, poradove cislo, radu
> a stredisko (napr.1998,123,1,1) - a potrebuju nejak optimalne nastavit
> primarni klic a vyladit vyhledavani podle slozeneho cisla faktury
> (napr.19981230101). Moznosti je nekolik:
>
> 1. vykaslat se uvedene sloupce a primarni klic delat autoinkrementem
> jako nic nerikajici poradove cislo. Klient hleda podle 4
> polozek=slozitejsi SQL dotazy - stavajici stav.
>
Pokud existuje hodne podrizenych tabulek a po naplneni detailnich zaznamu
je jeste pripustna zmena hodnoty nektereho z tech ctyrech sloupcu, pak je
toto podle mne jedina rozumna varianta. Pozor ale na distribuovane
databaze. Pokud by totiz melo existovat vice techto databazi a data z nich
se pak mela nekdy sehravat (replikovat), bylo by to spatne.
> 2. Pro potreby klienta a zrychleni pridat do tabulky sloupce slozeneho
> cisla a aktualizovat ho triggerem.
>
> 3. Udelat z uvedene slozene polozky primarni klic.
>
To je idealni varianta za predpokladu, ze po vlozeni detailnich zaznamu v
podrizenych tabulkach jiz nepripada v uvahu hodnotu nektereho z tech 4
sloupcu menit.
> 4. Udelat primarni klic ze vsech 4 polozek a opet bud nechat klienta
> skladat si cislo sam, nebo mu ho nekde ulozit do tabulky.
>
Skoro rovnocene s 3, ale pozor na pripad, kdy by ty podrizene tabulky mely
i sve dalsi podrizene. Pak pocet sloupcu v primarnich klicich neprijemne
narusta.
> 5. Jako 4, ale vyhodit samostane slozky a nechat jen slozenou hodnotu.
> Tohle je myslim uplny nesmysl (prosazovany mym kolegou, ktery delal
> puvodni navrh), protoze tim prijdu o moznost referencni integrity napr.
> na tabulku stredisek a dalsi.
>
Je to nesmysl.
Marek Prokop
SQL
[*] RADIK(zv)p15.monet(tec)cz - 7.5.1998 10:07:00
Pokud mohu zasahnout do Vasi debaty o databazi SSP (statni socialni
podpora), tak myslim, ze to s tou rychlosti neni az tak strasne.
Vzhledem k objemu dat......
A to je skusenost z praxe, delam uz celkem dlouho spravce jednoho z
pracovist....
Ales
----------
Od: Ing. Jahoda Jaroslav
Komu: DELPHI Distribution List
P�edm�t: RE: SQL
Datum: 7. kv�ten 1998 8:25
> Nevim jak hodne o tom verejnost vi. Ja o tom vim tolik, ze to puvodne
> bylo
> delano na Gupte. Protoze to bylo moc pomale, tak to predelali na
> Oracle.
> Podle vyse uvedeneho popisu zrejme dost nekvalitne.
>
Aby nedoslo k pomluve, ci ke zmateni verejnosti. Tak system SSP
je od pocatku budovan na serveru Oracle. Puvodni verze bezela na 7.1.3.
Server je NetWare 4.1
Databaze Oracle (pubvodne 4.1)
Client je Windows 3.11
Clientska aplikace je vyvijena v SQL Windows od firmy
Gupta, coz je interpret predkompilovaneho jazyka, z toho pravdepodobne i
ta pomalost a ta GUPTA (dnes se GUPTA jmenuje jinak).
J.Jahoda
P.S. Nedelam reklamu OKSystemu ani Gupte ani Novellum ani Oracle
Parent = DESKTOP
[*] Martin Ku�ka <Martin.Kuska(zv)dytron(tec)cz> - 07.5.1998 10:26:52
[P��loha v souboru: vcard.vcf]
Diky, ale asi jsem to popsal moc strucne.
Ten formular neni hlavni a potrebuji, aby zustal navrchu i pres ostatni
aplikace. Asi pred mesicem tu nekdo psal, ze formular bud musi byt
hlavni, nebo musi mit nsatavenu vlastnost Parent na Desktop.
A to prave nevim, jak nastavit. Ale mozna se to da resit i jinak.
Diky.
Petr Vones wrote:
>
> Martin Ku�ka wrote:
> >
> > Mohl by mi nekdo poradit, jak nastavit vlastnost Parent formulare na
> > DESKTOP? Potrebuji to pro zobrazeni formulare na vrchu.
> > Diky, Martin.
>
> Ahoj,
> Pokud chces zobrazit formular aby byl na vrchu, tak nastav vlastnost
> FormStyle na fsStayOnTop
>
> Petr Vones, amatersky programator
Rychlosti databazi (bylo hvezdicky)
[*] Radek Pospisil <suspi(zv)sh.cvut(tec)cz> - 7.5.1998 10:50:45
>
> Pripada Vam tenhle test korektni, nebo byste chteli videt vystup nejakych
> dalsich dotazu?
>
Me se to prilis korektni nezda, vzhledem k tomu, ze pokud jsem tomu dobre
porozumel, tak jsou v databazi jen cela cisla a navic serazena. Vyhledani je
potom prece sranda (napr. binarnim pulenim je to hned i bez SQL serveru) a
navic pokud jsou tam indexy ...
Mnohem zajimavejsi by podle me byly dotazy nad retezci typu:
SELECT * FROM tab1 INNER JOIN tab2 ON ... WHERE jmeno like %pep% AND ...
Vubec nejlepsi by byly pak asi standardni databazove testy TPC (nebo jak se
to jmenuje)
Me osobne by nejake verohodne srovnani SQL serveru docela zajimalo.
(Pokud nejaky test vymyslite, dejte vedet, ja to pustim na MS SQL 6.5)
R.Pospisil
Pointer na blok bajtu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.5.1998 11:03:25
Filip Jirsak wrote:
> > Podla mna je najlepsie pouzit funkcie, ktore volaju priamo Win API t. j.
> >
> > FileOpen, FileRead, FileWrite, FileSeek, FileCreate, FileClose
> Prsene tyto funkce z WinAPI mam na mysli, ale nevim, jak dal pouzivat
> pointer na nactena data, tzn. jak nacist libovolny bajt nebo retezec
> z nactenych dat.
Ahoj,
co se tyce API funkci FileXXX tak na to lze prece pouzit tridu TFileStream.
> > > > >ale co kdyz chci nacist souvisly blok, jako
> > > > > retezec? Napadlo mne take pouzit pole, ale to ma predem urcenou delku
> > > > > a velikost souboru je promenliva.
Muzes prece nacist cely sobor do pameti a pak do Stringu, asi by to slo napsat
efektivneji, ale jako priklad to snad postaci:
procedure TForm1.Button1Click(Sender: TObject);
var
MemStream: TMemoryStream;
S: String;
begin
MemStream := TMemoryStream.Create;
try
MemStream.LoadFromFile('unit1.pas');
SetString(S, PChar(MemStream.Memory), MemStream.Size);
finally
MemStream.Free;
end;
end;
> > > potrebuji umet tuto oblast nacitat po bajtech nebo jako retezec.
Treba 10ty znak dostanes lehce, pouzijes opet TMemoryStream a pak:
var
C: Char;
C := (PChar(MemStream.Memory) + 10)^;
Pro sekvencni cteni znaku je samozrejme efektivnejsi pouzit:
var
P: PChar;
P := MemStream.Memory;
while P^ <> #0 do
begin
// tady neco delas s P^
Inc(P);
end;
Petr Vones, amatersky programator
Rychlosti databazi (bylo hvezdicky)
[*] Ing. Jahoda Jaroslav <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 7.5.1998 11:35:49
> >
> > Pripada Vam tenhle test korektni, nebo byste chteli videt vystup
> nejakych
> > dalsich dotazu?
> >
>
> Me se to prilis korektni nezda, vzhledem k tomu, ze pokud jsem tomu
> dobre
> porozumel, tak jsou v databazi jen cela cisla a navic serazena.
> Vyhledani je
> potom prece sranda (napr. binarnim pulenim je to hned i bez SQL
> serveru) a
> navic pokud jsou tam indexy ...
>
> Mnohem zajimavejsi by podle me byly dotazy nad retezci typu:
>
> SELECT * FROM tab1 INNER JOIN tab2 ON ... WHERE jmeno like %pep% AND
> ...
>
> Vubec nejlepsi by byly pak asi standardni databazove testy TPC (nebo
> jak se
> to jmenuje)
>
> Me osobne by nejake verohodne srovnani SQL serveru docela zajimalo.
> (Pokud nejaky test vymyslite, dejte vedet, ja to pustim na MS SQL 6.5)
>
> R.Pospisil
>
Prosim o trpelivost, ja pristi tyden zverejnim testy databazi
DBase, FoxPro, Access, Paradox, MSSQL, SyBase anyware, InterBase
Pres nativni i pres ODBC
Zatim se mi dari pouze neco z toho. Ale vse na stejne masine
2x266 Pentium pro II na velkejch i malejch datech.
Bude to u mne na Webu. Dam vedet.
J.Jahoda
DLL pro pristup na porty
[*] Ales Bukovsky <bukowski(zv)bajt(tec)cz> - 07.5.1998 11:55:52 -0700
Ahoj,
hledam jednoduchou DLL knihovnu pro pristup k portum (rozumej obecnym
portum hardwaru, ne COM,LPT apod. = adekvatni pascalskemu
port[num]:=num) a k zakladni komunikaci s rozhranim RS-232 (COM).
Poradi nekdo? Predem diky...
-Ales Bukovsky-
CallBack funkce
[*] Ondrej Kelle <Kelleon(zv)nnsk.sk> - 7.5.1998 12:26:29
Ceckovske short sa myslim preklada do Pascalu ako Word... Dalsia mozna
chyba je v Tvojom preklade TMESSAGE_DATA... Skus poslat original v C...
Nasledovny popis ako prekladat Ceckovske typy mam myslim z JEDI projektu
na http://www.delphi-jedi.org :
unsigned char Char
[signed] char ShortInt
unsigned short [int] Word (2 bytes)
[signed] short [int] Cardinal (2 bytes)
unsigned int Word
[signed] int Integer
unsigned long [int] LongInt - nothing else comes close (Comp)
[signed] long [int] LongInt
char*
LPSTR PChar
void* Pointer
float Single
double Double
long double Extended
Ondrej Kelle
it(zv)nnsk.sk
> -----Original Message-----
> From: Daniel Jir�sek [SMTP:daniel_jirasek(zv)conel(tec)cz]
> Sent: 7. m�j 1998 8:52
> To: 'delphi(zv)pinknet(tec)cz'
> Subject: RE: CallBack funkce
>
> Diky za odpoved, provedl jsem pospane zmeny, ale ke kladnemu
> vysledku jsem nedospel.
> Nyni to mam definovane takto:
>
> {definice typu callback funkce}
> TMyCallBack = function(pD: PMESSAGE_DATA): ShortInt; stdcall;
>
> {Prihlaseni klienta z DLL}
> function LogInClient(iParam: integer; Func: TMyCallBack): ShortInt;
> far; external 'ServCrPC.dll';
>
> {cvicna callBack funkce, ktera by mela pipnout}
> function MyCallBack(pD: PMESSAGE_DATA): ShortInt; stdcall;
> begin
> MessageBeep(0);
> Result:= 1;
> end;
>
> {provede prihlaseni klienta}
> LogInClient(0, MyCallBack)
>
> Ja mam jeste k dispozici funkcni zdrojak klienta napsanyho v Cecku:
>
> // definice
> short CoAnnounce( MESSAGE_DATA *pD ); // callback-funkce pro
> prijem zprav
>
> // prijem zprav od jadra systemu - callback-funkce
> short CoAnnounce( MESSAGE_DATA *pD )
> {
> if( WaitForSingleObject( hEntryStack, 100 ) == WAIT_OBJECT_0 )
> {
> // vlozeni dat do zasobniku
> gmdStackData[ giIn ] = *pD;
> giIn = ( giIn < MD_STACK_MAX ) ? ++giIn : 0;
>
> // uvolneni pristupu k zasobniku
> ReleaseMutex( hEntryStack );
> return 1;
> }
> else
> {
> TRACE( "!!! Vlozeni dat - nedockal jsem se pristupu k
> zasobniku!\n" );
> return -1;
> }
>
> return 0; // nedefinovany stav
> }// CoAnnounce
>
> // prihlaseni
> ( short sRet = LogInClient(0, CoAnnounce ) > 0 )
>
> Ja se moc v cecku neviznam, takze pokud nekdo odhali chybu, tak mi ji
> poslete.
>
> Diky.
>
> Daniel Jirasek - Conel s.r.o.
>
>
>
>
>
> > Ch ty (zv)(zv)(zv), po zbeznem shlednuti bych hledal chybu v tom, ze
> >pouzivate pointer na funkci, ale pokud provedete definici
> >
> > function LogInClient(iParam: integer; Func: TMyCallBack):
> >ShortInt; far; external 'ServCrPC.dll';
> >
> > tak uz tam pointer na funkci je, Delphi neumi predavat funkci,
> >ale pouze pointer na ni. Ve vasem prikladu je pointer na pointer na
> >funkci. Doufam, ze neblafuji.
> >
> > J.Jahoda
> >
> >> Zdravim vsechny,
> >> Mam veliky problem pri pouzivani a vytvareni CallBack funkci.
> >> Pokud mi muze nekdo poskytnout funkcni priklad, nebo popis
> >> vytvareni a pouzivani CallBack funkci, tak mi to poslete.
> >>
> >> Popis meho problemu:
> >> --------------------------------
> >> Mam aplikaci typu server napsanou v Cecku a potrebuji vytvorit
> >> vlastniho klienta napsaneho v Delphi 3.0 Profesional. Aplikace
> >> server disponuje DLL funkci napsanou take v Cecku, ktera slouzi
> >> pro pripojeni klienta. Jedna z funkci DLL je:
> >> LogInClient - p�ihl�en� aplikace p��jemce sign�lu do j�dra
> >> syst�mu
> >> short LogInClient( int iParam, LPFDATA_CHANGE lpFce );
> >> Parametry:
> >> iParam . . . . rezervov�no, mus� b�t 0
> >> lpFce . . . . callback-funkce; mus� b�t definov�na
> >> short Fce ( MESSAGE_DATA * pD )
> >>
> >> Cast zdrojaku v Delphi:
> >> type
> >> {struktura dat predavanych pomoci callback funkce}
> >> PMESSAGE_DATA = ^TMESSAGE_DATA;
> >> TMESSAGE_DATA = record
> >> value: Double; //
> >> sended actual value (for double OR long type)
> >> idAction: byte; //
> >> action identificator
> >> index: word; //
> >> signal index in connector structure
> >> end;
> >>
> >> {definice typu callback funkce}
> <> PMyCallBack = ^TMyCallBack;
> >> TMyCallBack = function(pD: PMESSAGE_DATA): ShortInt; stdcall;
> >>
> >> implementation
> >> {Prihlaseni klienta z DLL}
> >> function LogInClient(iParam: integer; Func: PMyCallBack): ShortInt;
> >> far; external 'ServCrPC.dll';
> >>
> >> {cvicna callBack funkce, ktera by mela pipnout}
> >> function MyCallBack(pD: PMESSAGE_DATA): ShortInt; stdcall;
> >> begin
> >> MessageBeep(0);
> >> Result:= 1;
> >> end;
> >>
> >> {provede prihlaseni klienta}
> >> procedure LogClient;
> >> if LogInClient(0, (zv)MyCallBack) > 0 then
> >> begin
> >> end
> >> else
> >> begin
> >> ShowMessage('Log Error');
> >> Application.Terminate;
> >> end;
> >> end;
> >>
> >> Problem je vtom. ze aplikace server nedokaze volat moji callback
> >> funkci.
> >> Pokud nekdo vi jak na to, tak me pomozte.
> >>
> >> Za kazdou radu moc dik.
> >>
> >>
> ----------------------------------------------------------------------
> >> Daniel Jirasek - Conel s.r.o.
> >> Sokolska 71, 56203 Usti nad Orlici
> >> Tel./fax: 0465 521020
> >> E-mail: daniel_jirasek(zv)conel(tec)cz
> >>
> ----------------------------------------------------------------------
> Pointer na blok bajtu
[*] Martin Fron�k <fronek(zv)fic(tec)cz> - 7.5.1998 12:28:23
Hi,
no, to je jednoduche, nechas si nacist data ze souboru na misto v pameti, o ktere si predtim reknes systemu, a pak uz jen ctes data z te pameti (pomoci ukazatelu..
-----Original Message-----
From: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Sent: Thursday, May 07, 1998 11:03 AM
To: DELPHI Distribution List
Subject: Re: Pointer na blok bajtu
TChart - jeste jednou
[*] kkwest <kkwest(zv)mbox.vol(tec)cz> - 7.5.1998 12:36:17
Porad mi nejde zmeni ten typ serie u TChart.Skusil jsem funkci kterou mi
poradil Ondrej
ChangeSeriesType(var ASeries: TChartSeries; NewType: TChartSeriesClass);
ale nak to hazi chybu v typu prvniho parametru. Nevite nekdo, jak se s tim
zachazi ?
Proste jeno potrebuju ze serie typu TFastLineSeries udelat serii typu
TBarSeries. Jestli znate nakej jinej zpusob nez tuhle funkci, napiste mi ho
prosim, uz jsem na dne.Predem dekuji za kazdou myslenku.
\\\|///
\ ~ ~ /
(\ (zv) (zv) /)
--------------------oOOO--(_)--OOOo-----------------------------------------
> Marek Hej (pocitacovy technik , programator)
> Tel. : do zamestnani 019/7900080
> Fax : do zamestnami 019/7900056
> E-mail : kkwest(zv)mbox.vol(tec)cz , mhejl(zv)bigfoot.com
> http://www.fortunecity.com/skyscraper/tyrell/345/marek.htm
----------------------------------------------------------------------------
----------
DLL pro pristup na porty
[*] svatos(zv)af(tec)czu(tec)cz - 7.5.1998 12:52:51 met
[P��loha v souboru: tinypo12.zip]
> hledam jednoduchou DLL knihovnu pro pristup k portum (rozumej obecnym
> portum hardwaru, ne COM,LPT apod. = adekvatni pascalskemu
> port[num]:=num) a k zakladni komunikaci s rozhranim RS-232 (COM).
Snad ti to pomuze ...
Svatos(zv)af(tec)czu(tec)cz
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: tinypo12.zip
Date: 8 Apr 1997, 15:29
Size: 50199 bytes.
Type: ZIP-archive
Pointer na blok bajtu
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 07.5.1998 13:05:40
> > Prsene tyto funkce z WinAPI mam na mysli, ale nevim, jak dal pouzivat
> > pointer na nactena data, tzn. jak nacist libovolny bajt nebo retezec
> > z nactenych dat.
type
PA = ^TA;
TA = array [0..1000000{treba}] of byte;
var
F : file;
B : PA;
A : byte;
S :string [100];
begin
reset (F,1);
getmem (B,filesize (F));
blockread (F,B^,filesize (F));
A := B^[456];
S [0] := #100;
move (B^[2000],S [1],100);
Freemem (B,filesize (F));
closefile (F);
end;
Ja teda misto file pouzivam TFileStream, ale princip je stejny.
Vaclav Sazima
DLL pro pristup na porty
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 07.5.1998 13:15:21
Ales Bukovsky wrote:
> Ahoj,
>
> hledam jednoduchou DLL knihovnu pro pristup k portum (rozumej obecnym
> portum hardwaru, ne COM,LPT apod. = adekvatni pascalskemu
> port[num]:=num) a k zakladni komunikaci s rozhranim RS-232 (COM).
>
> Poradi nekdo? Predem diky...
>
> -Ales Bukovsky-
Ahoj,
ja si teda myslim, ze na COM je lepsi jit pres createfile ale v W95 (v NT
nikoli) to jde takto :
procedure OutPort (A : word; D : byte);
begin
asm
mov dx,A
mov al,D
out dx,al
end;
end;
function InPort (A : word) : byte;
begin
asm
mov dx,A
in al,dx
mov Result,al
end;
end;
Vaclav Sazima
SQL
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 7.5.1998 13:22:32
> -----P�vodn� zpr�va-----
> Od: RADIK(zv)p15.monet(tec)cz [SMTP:RADIK(zv)p15.monet(tec)cz]
> Odesl�no: 7. kv�tna 1998 10:07
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: RE: SQL
>
> Pokud mohu zasahnout do Vasi debaty o databazi SSP (statni socialni
> podpora), tak myslim, ze to s tou rychlosti neni az tak strasne.
> Vzhledem k objemu dat......
> A to je skusenost z praxe, delam uz celkem dlouho spravce jednoho z
> pracovist....
>
Ano, s t�m se d� ne� souhlasit. Tento p��klad jsem zde uv�d�l proto, �e je to
rozumn� p��klad zrychlen� pr�ce pomoc� tigger�.
(tak� to tu m�m ve vedlej�� m�stnosti :-| )
Jinak co se t��e jednotnosti jazyka SQL, tak pr�v� �e��m probl�m napsat n�co,
co by bylo univerz�ln� pro FAND ODBC (nesm�jte se, st�tn� spr�va nem� moc pen�z
a tak spousta ma�in je r�da, �e v�bec spust� FAND a data mus� b�t jen jedny) a
ORACLE a nic moc i kdy� mno�ina spole�n�ch p��kaz� je zna�n�.
Nap��klad je spousta probl�mu i kolem toho, co vr�t� SELECT za pou�it� klausule
LIKE atd...
=======================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
=======================================Ladeni
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 7.5.1998 13:47:51
> Pro tento pripad jsem zkousel z menu Delphi/Search/FindError: 00fd5cc4,
> ale nic nenasel.
>
.../FindError 0137:00fd5cc4
Tom
winsck.ocx
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 7.5.1998 14:26:15
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Hi
nemate nahodou nekdo nejakou dokumentaci k winsck.ocx? A nevite jak to zaregistrovat pod win95?
Diky
<none>
[*] Patrik Presl <presl(zv)sun.ujep(tec)cz> - 7.5.1998 14:38:35
unsubscribe
Problemy s RichEditem
[*] Greissler Ronald <greissler(zv)cbnet(tec)cz> - 7.5.1998 15:55:14
Ahoj,
- velmi dobre. Diky za pomoc.
-----P�vodn� zpr�va-----
Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> -----P�vodn� zpr�va-----
> ......... Chtel jsem si prenest RichText (z databaze nebo jineho RichEditu) do
> aktualniho RichEditu, ale neumim to jinak, nez pres ClipBoard
> (CopyToClipBoard a PasteFromClipBoard), aby zustalo zachovano formatovani
> textu (puvodniho i prenaseneho). Ale tim padem se mi clipboard plni
> necim jinym, nez si tam uzivatel puvodne rucne prenesl - coz je neprijemne.
> Nevite nekdo, jak bud uchovat obsah clipboardu a znova ho naplnit nebo jinak
> kopirovat ten richText do TRichEditu?
Ahoj,
Problem je v tom, ze se nelze nijak dostat primo k RTF datum uvnitr RichEditu,
tedy jedina moznost je pres schranku. Tady jsem v rychlosti napsal kratkou
proceduru na uchovani obsahu schranky a preneseni oznaceneho bloku z jednoho
do druheho RichEditu. Mozna to ale bude chtit jeste trochu "doladit"
........................................
A kdyz uz jsme u toho RichEditu, neexistuje nejaka novejsi verze ktera by
umela i menit barvu podkladu u pisma (podobne jako to umi Word v RTF) a
Ono to se zm�nou barvy z�ejm� nebude tak jednoduch�. TRichEdit je postaven na API funkc�ch pro pr�ci s �et�zci, kde jsou sice n�stroje pro definici jednotliv�ch znak� a jejich vlastnost�, ale u� ne podkladu. Tak nev�m, kdy se do toho kdo pust� a jak to obejde (st�lo by to asi n�jakou pr�ci na v�po�ty poloh a rozm�r� znak� nebo nev�m co).
potom shanim neco co umi produkovat RTF text. Predstavuji si to tak, ze
to ma vlastnost Font (TFont) a metodu WriteString, ja do toho sekvencne
zapisuji casti textu a behem nich mohu menit Font a ono to produkuje RTF.
Nevite o necem takovem ? Ja vim, lze to napsat, ale treba uz to nekde
existuje ....
Tak o tom nic moc nev�m, krom� toho, �e bych si to asi napsal s�m n�jakou oklikou p�es RichEdit, t�ebas i skryt�, za pou�it� vlastnost� SelText a zm�ny pomoc� SelAttributes. Trochu jsme si hrali s generatorem textu, ktery prave tahal ruzne kousky textu z ruznych mist (databaze, soubor, jiny text, textova konstanta apod.) a seskladavali ho do jednoho RichEditu a u nekterych casti jsme prave nastavovali tyhle vlastnosti. Staci takhle? Petr Vones, amatersky programator
Rony
/*********************/
GREISSLER(zv)CBNET.CZ
Prerov
/*********************/Detekce pripojenych uzivatelu
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 7.5.1998 16:01:43
Ahoj Delfini
uz jsem se tady sice ptal jednou ale odpoved nebyla zadna tak to zkusim
jeste jednou.
Nevite nekdo jak zjistit kteri uzivatele jsou prave pripojeni k nektere z
mych sdilenych slozek ? Jedna se mi o o neco jako je program "NetWatch"
Sledovani site ). V API jsem zadnou odpovidajici funkci nesel. Prosim
heeeelp.Ladeni
[*] Vladimir Vanicek 7-327.3 <V.Vanicek(zv)sh.cvut(tec)cz> - 7.5.1998 16:15:33
> Ahoj,
> muze mi nekdo poradit, jak podle napr. takoveto chyby, muzu v mym projektu
>
> MODUL.dpr (Delphi 2.0) najit misto chyby? Nebo jeste lepe co a jak z techto
> informaci od Win 95 lze pri ladeni v Delphi vyuzit, nebo jak to pouzivate vy.
>
>
> Pro tento pripad jsem zkousel z menu Delphi/Search/FindError: 00fd5cc4,
> ale nic nenasel.
>
> Aplikace MAIN zpusobila neplatnost stranky
> v modulu MODUL.DLL na adrese 0137:00fd5cc4.
> Registry:
> EAX=0000ffa5 CS=0137 EIP=00fd5cc4 EFLGS=00010207
> EBX=0000ffa5 SS=013f ESP=016efd5c EBP=016f01a4
> ECX=00000000 DS=013f ESI=016f0188 FS=49bf
> EDX=016f0188 ES=013f EDI=ffffffff GS=0000
> Bajty v CS:EIP:
> 68 00 04 00 00 8d 44 24 04 50 53 a1 14 20 01 01 .....
>
> Budu rad i za odkazy na WWW ci do knih.
> Predem dik,
:[Tomas Holan]
: .../FindError 0137:00fd5cc4
:
: Tom
Toto bohuzel nelze, adresa musi byt mezi 00000000 az FFFFFFFF.
Ma jeste nekdo nejaky napad, zkusenost ci odkaz?
Dik, Vlada.
___________________________________________________________________
! Vlada Vanicek | e-mail: V.Vanicek(zv)sh.cvut(tec)cz !
! Strahov 7/327 | (xVanicek(zv)kii.fsv.cvut(tec)cz) !
! PCname: lars.sh.cvut(tec)cz | WWW: http://kix.fsv.cvut(tec)cz/~xvanicek !
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~