Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
prace s 6ti komponentami jako s array
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.10.2000 20:34:19
> Zdravim
>
> Mam na formu 6 komponent TIEButton a potrebuji s nimi pracovat jako s
> komponentami v array:
>
> for i := 1 to 6 do
> begin
> IEButton[i].Caption := Registry.ReadString('path'+IntToStr(i));
> end;
>
> Vim, ze to jde, kdyz ty komponenty vytvarim dynamicky za behu, ale nevim,
> jak to aplikovat na jiz stavajici komponenty.
Pokud to chces jen pro nacteni hodnot pri startu, tak treba takhle:
for i:=0 to ComponentCount-1 do
if Components[i] is TButton then
begin
TIEButton(Components[i]).Caption:=Registry.ReadString('path'+Components[i].Name)
;
{anebo si do Tag tech kompoment nastavit indexy, pak by to vypadalo ...
ReadString('path'+Components[i].tag);}
end;
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
StringGrid a alignment
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.10.2000 20:41:46
> Ahoj,
>
> nevite nekdo o nejakem zpusobu, jak v stringgridu zarovnat texty
> na stred?
Muzes treba napsat tenhle kod do OnDrawCell:
procedure TForm.StringGridOnDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid do
begin
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+((Rect.Right-Rect.Left) div
2)-(Canvas.TextWidth(Cells[Acol,ARow]) div 2),Rect.Top,Cells[ACol,ARow]);
end;
end;
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Chyba v D5.01
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2000 16:06:26
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> Pokud mam otevreny projekt a zkompiluji ho s balicky, pak otevru
> jiny projekt, ktery nema nastavenou kompilaci s balicky, presto se
> s balicky zkompiluje. Pomuze zavreni a nove nastartovani Delphi.
Ahoj,
tohle se tahne tusim uz od D4.
Petr Vones, amatersky programator
Ukonceni programu - stale se neukoncuje
[*] Ji�� H�sek - 5.10.2000 16:12:06
Asi neco delam spatne. Zkousel jsem dat
defwindowproc(application.handle,WM_Destroy,NULL,NULL);
defwindowproc(application.handle,WM_CLOSE,0,NULL);
defwindowproc(application.handle,WM_QUIT,0,NULL);
do FormOnCreate. Nic. Tak jsem dal do TApplicationEventsMessage
defwindowproc(application.handle,msg.message,msg.wparam,msg.lparam);
Nic. Zkousel jsem menit Handled, nebo jsem tam zkousel dat
if msg.message=WM_CLOSE then closewindow(handle);
if msg.message=WM_QUIT then closewindow(handle);
if msg.message=WM_DESTROY then destroywindow(handle);
A porad nic. Kde bych mel DefWindowProc pouzit? Pisu vubec spravne
parametry?
Prosim, poradte. Kde je chyba?> Tenhle dotaz se objevuje v konfere pomerne casto,
> takze v archivu najdes spousty stejny odpovedi.
>
> Pri ukoncovani Windows se posila dotaz na vsechny
> handly. Standardni odpoved na tento dotaz je Ano.
> Pokud si nekdo udela vlastni obsluhu zprav prichaze-
> jici na dany handle, musi pro zpravy, ktere sam
> neobslouzi, zavolat standardni DefWindowProc.
> Pokud to neudela, tak odpoved je Ne.
>
> Daniel
>
> ------------------------------------------------------
> Daniel Rott - roxton(zv)volny(tec)cz
> http://www.volny(tec)cz/roxton
> Some minor bugs/features fixed/added
>
>
>
dotazy
[*] <d.vrazel(zv)centrum(tec)cz> - 05.10.2000 16:38:59
ahoj zacinam programovat v Delphi 5 a mam 3 dotazy:
1. jak nastavim velikost okna tak,aby bylo pres celou obrazovku,
ale neprechazelo pres spodni listu windows. Kdys dam windowsState
maximized, tak se mi to objevi pres celou obrazovku, ale ��st
zakr�v� spodn� li�ta windows.
2. jak nastav�m barvu pozad� ikony aplikace na stejnou, jakou
m� ta ta horn� li�ta.
3. kdz� si vztvo��m hlavn� nab�dku a spost�m aplikaci, ���ka je
mal� a nevleze se mi tam cel� n�pis a nav�c je p�ekr�v�n skrat.
kl�vesou. Jak roz����t velikost polo�ky v mainmenu.
D�ky moc za radu.
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
AutoInc
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 5.10.2000 16:55:42
On 4 Nov 2000, at 23:49, Erik Salaj wrote:
> > A jak ti to funguje v takovemhle modelovem pripade, ze predem
> > nevis, kolik bude klientu? Typickym prikladem muze byt napriklad
> > pojistovna a agenti. Mejme napr. 500 agentu, kteri obihaji klienty,
> > a rano (vecer) se prijdou zreplikovat. Krome toho agenti se
> > stridaji, jak jedni od firmy odchazeji a novi prichazeji.
>
> Mat v poistovni zaznamy bez toho, aby si vedel od koho su,
> nie je najstastnejsie riesenie. Predpokladam, ze poistovna si vytvori
> ciselnik agentov, kde si ich bude evidovat.
Drobny detail, _predem_ nevis. Tedy nevis to v dobe navrhu
programu ani v dobe jeho zavadeni.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vyvoj SW pro DOS v prostredi Delphi
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 5.10.2000 18:25:45
> From: "Ji�� Foldyna" <jiri.f(zv)avizo(tec)cz>
> > udrzuji, udrzuji proto, ze jejich transfer do Wirs je z rady duvodu
> > nepruchodny. Pouzivam v nich asembler, interrrupty, primy
> pristup na HW,
> > potrebuji plnou kontrolu nad masinou a vsechny ostatni
> podle Billa G. spatne
> > veci, a jde mi opravdu jen o to, usnadnit si jejich udrzbu
> pouzivanim Delphi
>
> Ahoj,
>
> to nejsou 'spatne veci', vsechny tyto veci jsou samozrejme ve
> Windows mozne,
> jinak by nemohl operacni system fungovat. Musi se ale udelat
> zpusobem, ktery
> vyhovuje vicelulohovym operacnim systemum, tedy v pripade
> Windows je pristup
> k HW prostrednictvim driveru k tomu ucelu zhotovenych. To ze
> je neni mozne
> psat v Delphi neni problem ani Windows ani Gatese ;-)
>
> Jako nouzove reseni lze v Delphi pro pristup k I/O portum a
> IRQ pouzit tohle:
> http://www.entechtaiwan.com/tools.htm
>
> Petr Vones, amatersky programator
Ahoj,
neni sporu o tom, ze v multitaskovem systemu pro kancelarske pouziti nelze
tyto veci nechat delat libovolne, ale to neni muj problem. Ja potrebuji
plnou kontrolu nad pocitacem vzhledem k charakteru resenych uloh (vetsinou
jde o praci v realnem case, pripadne specialni komunikace) a nemohu si
dovolit, aby mi do toho neco lezlo. Ja tady nenarikam nad Wokny (stejne by
mi to nebylo nic platne :-)), ale snazim se ulehcit si praci. Je pro mne
podstatne jednodussi napsat si vlastni driver pro Arcnetovou kartu, nez
dlouze badat nad tim, jak to udelat tak, aby to vyhovovalo specifikacim
driveru pro Windows. Aplikace, o kterych mluvim, jsou ciste proprietarni
(napr. obsluha snimacu Hughes pro zabezpecovaci systemy) a vubec neuvazuji o
moznosti provozovat je pod Wokny - potrebuji spolehlivostni parametry typu 1
porucha za 3-6 mesicu pro provoz 7x24. Chci si jen zjednodusit praci
vyuzitim podle mne velmi dobreho Delphi IDE, ktere stejne pouzivam pro vyvoj
do prostredi Woken, nic jineho nepotrebuji.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
DATA Z KONFERENCE: RIJEN 2000
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.10.2000 18:54:43
Preji vsem pekneho dne,
jako obvykle zacatkem noveho mesice, naleznete
na adrese
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
posledni data z teto konference pro programek
KonfView. Pres cetne dotazy pripominam, ze pouze
dodavam data, autorem programu je Petr Vaclavek
(bla(zv)atrey.karlin.mff.cuni(tec)cz).
Soucasne s tim bych chtel poprosit, aby vase
pocitace dodrzovaly spravny datum, cas a
pravidla konference. Diky.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
AutoInc
[*] Erik Salaj <winsoft(zv)napri.sk> - 5.10.2000 19:20:43
> Vetsinou delam aplikace pro MSSQL, a pokud uz delam
> neco nad ACCESSem tam pouze jednouzivatelske, takze
> mne neboli pridelit nove ID jako MAX(ID)+1. Pokud bych
> vsak chtel pouzit AUTOINC (u vice uzivatelske by to bylo
> nezbytne) jak zjistim pridelenou hodnotu ? U MSSQL
> ji ziskavam pomoci SELECT (zv)(zv)IDENTITY. Jak
> u ACCESSu ?
SELECT (zv)(zv)Identity
Erik Salaj, WINSOFT
info(zv)winsoft.sk
Vyska pisma na canvasu tiskarny
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 5.10.2000 20:07:25
Preji vsem pekneho dne,
jak zjistim vysku pisma na tiskarne? Pokud pouziji nasledujici kus
kodu, pak jsou radky pisma temer pres sebe:
Fdelta := Canvas.TextHeight ('My�') + 2;
Printer.Canvas.TextOut (10, 100, 'Ahoj svete');
Printer.Canvas.TextOut (10, 100+Fdelta, 'Ahoj hloupa tiskarno');
Zarazi me na tom to, ze na komponente, ktera se vykresluje na
obrazovce, je toto v poradku.
Diky za info
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
AutoInc
[*] Erik Salaj <winsoft(zv)napri.sk> - 5.10.2000 21:50:40
> > Mat v poistovni zaznamy bez toho, aby si vedel od koho su,
> > nie je najstastnejsie riesenie. Predpokladam, ze poistovna si vytvori
> > ciselnik agentov, kde si ich bude evidovat.
>
> Drobny detail, _predem_ nevis. Tedy nevis to v dobe navrhu
> programu ani v dobe jeho zavadeni.
Co predom neviem, snad nie obsah tabuliek?
Erik Salaj, WINSOFT
info(zv)winsoft.sk
Vyska pisma na canvasu tiskarny
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.10.2000 22:35:38
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> jak zjistim vysku pisma na tiskarne? Pokud pouziji nasledujici kus
> kodu, pak jsou radky pisma temer pres sebe:
Ahoj,
musis nastavit TFont.PixelsPerInch dle tiskarny, viz priklad:
http://community.borland.com/article/0,1410,16517,00.html
> Printer.Canvas.TextOut (10, 100+Fdelta, 'Ahoj hloupa tiskarno');
... se nediv, kdyz tu tiskarnu takhle pekne zdravis ;-)
Petr Vones, amatersky programator
Ukonceni programu - stale se neukoncuje
[*] L. ZITA <konference(zv)sales(tec)cz> - 5.10.2000 23:36:13
Behalf Of Ji�� H�sek
> Asi neco delam spatne. Zkousel jsem dat
> defwindowproc(application.handle,WM_Destroy,NULL,NULL);
> defwindowproc(application.handle,WM_CLOSE,0,NULL);
> defwindowproc(application.handle,WM_QUIT,0,NULL);
> do FormOnCreate. Nic. Tak jsem dal do TApplicationEventsMessage
> defwindowproc(application.handle,msg.message,msg.wparam,msg.lparam);
> Nic. Zkousel jsem menit Handled, nebo jsem tam zkousel dat
> if msg.message=WM_CLOSE then closewindow(handle);
> if msg.message=WM_QUIT then closewindow(handle);
> if msg.message=WM_DESTROY then destroywindow(handle);
> A porad nic. Kde bych mel DefWindowProc pouzit? Pisu vubec spravne
> parametry?
> Prosim, poradte. Kde je chyba?
>
Ahoj.
Mam ten pocit, ze v FormCreate nejde par veci udelat.
Napr tam nelze pouzit Close.
Ja to resim tim, ze nadefinuji glob prommenou FirstStart, v OnCreate ji dam
hodnotu True
a v onActivate si tyhle veci obslouzim
if FirstStart then
begin
FirstStart = False;
......
Pokud ale startujes minimalizovane nedojde k OnActivate. Pak to resim
tim, ze na Form placnu timer nastaveny interval na 1.
Ten se spusti prave az po skonceni procesu Create a tyhle veci obslouzim
tam.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 5.5.2000
Chyba v D5.01
[*] Pavel Chaloupka <chaloupka(zv)mboxzn(tec)cz> - 6.10.2000 00:14:50
To delaji i Delphi 4..... (nekdy :-)
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, November 05, 2000 11:47 AM
Subject: Chyba v D5.01
> Ahoj,
>
> narazil jsem na neprijemnou chybu, nekolikrat jsem ji overil.
> Dokonce se vysledek teto chyby dostal jednou k zakaznikovi.
> Nezjistoval jsem, zda to je nekde dokumentovane.
>
> Pokud mam otevreny projekt a zkompiluji ho s balicky, pak otevru
> jiny projekt, ktery nema nastavenou kompilaci s balicky, presto se
> s balicky zkompiluje. Pomuze zavreni a nove nastartovani Delphi.
>
>
> S pozdravem
>
> Zbysek Hlinka
>
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
> Vyska pisma na canvasu tiskarny
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 6.10.2000 00:16:22
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>> Preji vsem pekneho dne,
>
> jak zjistim vysku pisma na tiskarne? Pokud pouziji nasledujici kus
> kodu, pak jsou radky pisma temer pres sebe:
>
> Fdelta := Canvas.TextHeight ('My�') + 2;
> Printer.Canvas.TextOut (10, 100, 'Ahoj svete');
> Printer.Canvas.TextOut (10, 100+Fdelta, 'Ahoj hloupa tiskarno');
>
> Zarazi me na tom to, ze na komponente, ktera se vykresluje na
> obrazovce, je toto v poradku.
>
> Diky za info
>
> Slavek
>
Pokud chces zjistit vysku pisma na tiskarne, musis
pracovat s canvasem tiskarny. Takto:
Fdelta := Printer.Canvas.TextHeight ('My�') + 2;
Nebo by jsi to musel prepocitat podle PixelsPerInch
jednotlivych vystupnich zarizeni, napriklad Monitor = 96,
tiskarna 300 dpi
Fdelta := (300 * Canvas.TextHeight ('My�') div 96) + 2;
Vaclav Krmela
MAPI a Outlook Express
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.10.2000 07:15:59
Problem je ve funkci ApiSendMail. Musis tam predat Application.Handle
a ne handle okna nebo nic.
Jan Fiala
----- Original Message -----
From: <miro_mr(zv)post.sk>> Ked pocitaci, v ktorom je ako postovy klient nastaveny MS Outlook
Express 5
> pomocou funkcie MapiSendMail() odoslem lubovolny subor, otvori sa mi
> formular postovej spravy MS Outlook Express, v ktorom je pekne
pribaleny aj
> posielany subor. Tento formular je vsak totalne modalny - na nic co
je na
> obrazovke pocitaca sa neda kliknut a aj pri klikani na ovladacie
prvky
> tohoto formulara sa ozyva zvukove znamenie ako ked sa klikne mimo
modalneho
> formulara. (MAPI by mal MS Outlook Express podporovat od verzie 4)
> Ak sa ako postovy klient nastavi normalny Outlook (97, alebo 2000)
subor sa
> tiez pribali do formulara postovej spravy ale tento formular da
normalne
> ovladat - vsetko je OK.
> Neviete niekto kde je problem?
>
>
>
>Kde nastavit csOpaque (ControlStyle)
[*] ZPetruj(zv)qgir(tec)cz - 6.10.2000 07:26:42
Nevim jestli konkretne tohle tve nastaveni povede k cili, bliz jsem to
nezkoumal, ale nastavovat takove veci v konstruktoru je pozde. Veci,
tykajici se windowsovskeho nastaveni jsem vzdy predefinovaval uz
v "Loaded".
Kren
> -----Original Message-----
> From: Petr Fischer [mailto:fifa(zv)praguesoft(tec)cz]
> Sent: Friday, November 03, 2000 6:12 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Kde nastavit csOpaque (ControlStyle)
>
>
> Zdravim,
>
> pisu komponentu (zdedena od TCustomControl), a nechci aby pri kazdy
> PAINT zprave probihalo defaultni vymazani Canvasu. Mel by to byt
> parametr csOpaque v ControlStyle, jenze se mi ho nedari nastavit.
> Radka:
>
> ControlStyle := ControlStyle + [csOpaque];
>
> v konstrukrotu komponenty mi s tim ani nehne (ControlStyle se
> nezmeni).
>
> Diky za radu, Petr Fischer
>
> Win2000, Delphi 5 (SP1)
> Hint & TStringList
[*] Jiri Fait <fait(zv)jakl(tec)cz> - 6.10.2000 07:34:22
Dela to RX knihovny
Jiri Fait
[mailto:fait(zv)jakl(tec)cz]
[mailto:ftsoft(zv)iol(tec)cz]
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Als
> Sent: Saturday, November 04, 2000 2:42 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Hint & TStringList
>
>
> Ahoj,
>
> nevite nekdo kde se mi podarilo dostat do radku hintu v object
> inspectoru button se tstringlist editorem. Je to velice prakticka
> vec protoze muzete psat nekolikaradkove hinty docela prehledne. Na
> dvou instalacich (WinNT a notebook s Win98) to tam mam. Nevim uz
> ovsem jak se mi tam dostal. Ted jsem preinstaloval na W2k a zjistil
> ze to tam standardne neni. (vesele ze ???)
>
> Poradte prosim ...
>
>
> --
> Za odpoved diky.
>
> Jiri Kubelka Als.FofrsIT(zv)worldonline(tec)cz
>
>
> ---
> Poichozi zprava neobsahuje viry.
> Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.198 / Virova baze: 95 - datum vydani: 4.10.2000
>
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virova baze: 95 - datum vydani: 4.10.2000
IP adresy
[*] Lukas.Gallina(zv)cz.danzas(tec)com - 6.10.2000 08:03:22
Ahoj.
A co to resit tak aby v siti s DHCP mel tu adresu stejnoou jako v te siti
bez DHCP? Definuj u DHCP serveru vyjimku, aby se tahle adresa nedavala
nikomu a je to myslim nejrychlejsi a nejjednoduzsi reseni :)
S pozdravem
Luk� Gallina
DANZAS a.s. (fili�lka Brno)
INTE
lukas.gallina(zv)cz.danzas.com
tel: +420 (5) 431 253 13
mobil: +420 604 226 812
-----Original Message-----
From: Str�n�k Franti�ek [mailto:FStranik(zv)cpoj(tec)cz]
Sent: Friday, November 03, 2000 11:09 AM
To: Delphi konference
Subject: OT: IP adresy
Zdrav�m v�echny,
m�m jeden probl�m s IP adresou. M�m notebooka a pou��v�m ho ve
s�t�ch. V jedne z�sk�v�m adresu z DHCP a v druh� m�m pevn� p�id�lenou. Lze
n�jak�m zp�sobem p�ed startem nebo p�i startu Windows (98) nab�dnout
konfiguraci
IP, tak abych nemusel poka�d�, kdy� p�ech�z�m z jedn� s�t� do druh� IP
adresu m�nit
a pak restartovat po��ta�. Nebo bych alespo� r�d v�d�l kam a jak se ukl�d�
konfigurace
IP.
S pozdravem F. Str�n�k.Objektove databaze
[*] Ing. Jaroslav ��pek - 6.10.2000 08:07:27
> nemate nekdo odkaz na nejaky zdroj informaci o %subj%? Hledam
> hledam a porad
> nenachazim nic uzitecneho... :-(
Ahoj,
ja pracuji s objektovou databazi Cache od firmy InterSystems.
Oficialne se uvadi, ze se jedna o postrelacni objektovou databazi,
coz znamena, ze krome objektoveho zpusobu prace s daty (otevri objekt,
uloz objekt, smaz objekt, ...) je mozno pouzivat i SQL.
Informace o teto databazi a o programovani v ni muzes najit napr:
1. http:\\www.intersystems.com (http:\\www.e-dbms.com)
2. http:\\www.intersystems(tec)cz
3. http:\\www.idea(tec)cz
S pozdravem
Jaroslav Sipek
e-mail: jaroslav.sipek(zv)idea(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Importnut DLL ako ActiveX library
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 6.10.2000 08:14:03
Caute
Mam jednu komponentu, ktora je sice DLL, ale je to
vlastne kniznica ActiveX. Vo VB shit ide normalne importnut
cez References, ale v Delphi cez Import ActiveX nejde ani za svet.
Ani sa nezobrazi, ani sa neda nacitat. Pritom je korektne zapisana
cez Regsvr32...
Dakujem za solution
S pozdravom
Patrik
Port pro NTP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.10.2000 08:17:49
> Ahojte, nevite nahodou, ktery port se pouziva pro NTP?
> Diky
> Bob
Vime. A muze to vedet uplne kazdy, kdyz si na svem pocitaci
najde soubor "services.", ve kterem jsou vsechny standardni porty
napsany.
NTP ma port 123 (ne, to neni kod meho kufru...) :-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Co udava RecordCount v TIBDataSet?
[*] Ota Maly <maly(zv)space(tec)cz> - 6.10.2000 08:28:26
Ahoj,
podle helpu jsem pochopil, ze by mel udavat pocet recordu, se kterymi je
dany IBDataSet spjat.
Toho vyuziva TDBLookUpComboBox, ktery podle toho urcuje, kolik radek ma pri
rozbaleni vykreslit. Jenze krokovanim jsem dosel k tomu, ze RecordCount
vraci klidne 1 na datasetu, kde toho je vic. Pokud to rozbalim, objevi se
jeden radek a sipky nahoru/dolu. Pokud s nima jedu dolu, tak se recordcount
zvetsuje, takze pri dalsim rozbaleni uz rozbali treba dokonce 3 :-).
Nevite nekdo, jak RecordCount u IBDataSetu donutit, aby udaval pocet zaznamu
v datasetu?
Ted jsem pokusem zjistil, ze pokud pred prvnim rozbalenim LookupComba
pouziju, IBDataset.FetchAll, tak to chodi dobre, jenze asi neni optimalni
fetchovat vsechno jenom kvuli tomuhle.
Spis to vypada, ze to ne zcela dobre chapu, protoze ve zdrojakach IBX se s
tim zachazi tak, ze by to melo udavat pocet recordu, se kterymi uz dana
instance IBDataSetu pracovala (byly nafetchovany?).
Respektive abych se vratil k puvodnimu problemu :-), v DBLookupComboBox se
mi pri prvnim rozbaleni zobrazi pouze jeden radek a sipky na scrollovani..
NT4SP5;D5Prof.;IB6;IBX4.2;
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
komponenta s moznosti kresleni ramecku kolem textu
[*] Garalda <garalda(zv)mail(tec)cz> - 6.10.2000 08:36:42
Preji vsem pekny den,
rad bych vas pozadal o radu. Potrebuji uzivateli zobrazit nejaky text v
ramecku, jde v podstate o ukazku pred tiskem, kde si uzivatel muze provadet
zmeny primo v textu drive nez to posle na tiskarnu. Nepotrebuji zadne
slozite editory. Ten text je v jednom typu pisma a v jedne velikosti. Jen je
problem tam dostat ty ramecky. TMemo to neumi u TRichEditu jsem to taky
nenasel. Zkousel jsem jeste TTextListBox a RXRichEdit z RX komponent, ale
ani tam jsem to nenasel. Momentalne jedina vec co mne napadla jak tam dostat
ten ramecek, je vzit TListBox a predelat udalost OnDrawItem, jenze pak zase
prijdu o moznost editace. Nevite nekdo jak to udelat nebo kde by se dala
sehnat komponenta s odpovidajicimi vlastnostmi?
Dekuji
Garalda
dotazy
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 6.10.2000 08:48:45
> ahoj zacinam programovat v Delphi 5 a mam 3 dotazy:
>
> 1. jak nastavim velikost okna tak,aby bylo pres celou obrazovku,
> ale neprechazelo pres spodni listu windows. Kdys dam windowsState
> maximized, tak se mi to objevi pres celou obrazovku, ale ��st
> zakr�v� spodn� li�ta windows.
Musis zjistit velikost te listy. Zkus se podivat do archivu - tam se to
probiralo
>
> 2. jak nastav�m barvu pozad� ikony aplikace na stejnou, jakou
> m� ta ta horn� li�ta.
Ikona musi byt pruhledna. V editoru zmen barvu pozadi na pruhlednou.
>
> 3. kdz� si vztvo��m hlavn� nab�dku a spost�m aplikaci, ���ka je
> mal� a nevleze se mi tam cel� n�pis a nav�c je p�ekr�v�n skrat.
> kl�vesou. Jak roz����t velikost polo�ky v mainmenu.
Tak toto netusim. Mam za to, ze velikost se urcuje automaticky a navic
TMainMenu je jen obaleni tridy ve Win.
Milan Tomes
>
> D�ky moc za radu.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Velikost databaze IB6
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 6.10.2000 09:03:10
Prikaz Sweep nezkracuje DB, jen jej procisti.
Slavek
>
> Je to prikaz Sweep v IB conzoli. Jiste to jde zavolat i nejakou komponentou
> a Delphi. :)
> BIOS(procesor, teplota, rychlost)
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 6.10.2000 09:22:26
Zkus:
http://bp6.gamesquad.net/
a tam je utilitka New BP6FSB beta 6 courtesy of Mr. Hansen
mela by fungovat i na jinych boardech. Bohuzel nejsou zdrojaky.
Slavek
>
> Ahoj potreboval bych radu, jestli se da nejak zjistit nastaveni
> BIOS, slo by mi predevsim o rychlost procesoru a teplotu, jiste
> vite na co to chci... a zaroven mit moznost menit frekvenci
> (jiste asi by se to projevilo az po restartu), nejvice ale
> potrebuji kontrolu teploty, ta by se mi hodila, nevite o necem?
> Vitam jakekoliv podnety,
>
> Ales Pavel amater vsech amateru
Auto Upgrade Program
[*] Karel Horky <horkyk(zv)razdva(tec)cz> - 6.10.2000 09:39:43
Trochu si komplikujes zivot pouzitim jedineho INI souboru pro aplikaci.
Bylo by vhodne vytvorit si minimalne dva INI soubory, jeden by obsahoval lokalni nastaveni (napr. cestu k datum, jak uvadis), a druhy by byl globalni, sireny zaroven s novou verzi programu. Lokalni nastaveni se nezmeni, globalni se muze menit dle potreby.
Ahoj, Karel
horky(zv)uh(tec)cz
----- Original Message -----
From: Ladislav Nagy
nektere programy si do INI ukladaji napr. cesty k adresarum s daty, .... (napr. hodnota .\DATA99\)
Kdyz budu chtit automaticky zupgradovat verzi programu a nova verze potrebuje mit v INI novy radek, tak proste nemou jen tak prepsat INI soubor, protoze by se tim ztratila vsechna dosavadni nastaveni, ktera jsou zavisla od te ktere konkretni instalace programu.
RSA
[*] Petr Slaby <slaby(zv)bivoj.it.cas(tec)cz> - 6.10.2000 09:55:58
Ahoj,
doporucuji zkusit tento link: http://www.crypto-central.com/
Myslim, ze tam najdes to co hledas...
Cau Petr
----- Original Message -----
From: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, November 04, 2000 7:48 PM
Subject: RSA
> Dobry den,
>
> shanim nejakou komponentu, ktera umi "balik dat" zasifrovat pomoci RSA
> algoritmu...
>
> nesetkal jste se nekdo s cecim takovym??
>
> Diky
> Zdenek
>
>
>
> OT: DateTime -> Time v IB
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 6.10.2000 09:58:01
Ahoj Vsi:),
Mam tabulku
S_Date //TimeStamp obsahuje jen datum
S_Time //TimeStamp obsahuje datum i cas
Traffic //Float sledovana hodnota
Data mam po hodinach.
Jak udelat profil prumerneho dne z dat jednoho tydne.
Mel by to byt dotaz:
select cast(S_Time as Time) as A_Time, Traffic
from ***
group by A_Time
ALE!!! Neumim rozdelit datum a cas. Muj IB server respektuje jen typ
TimeStamp, ktery zahrnuje oboje. Cast(S_Time as Time) nejde, group by A_Time
nejde, nejde ani group by 1.
Vi nekdo jak na to?
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327
BP 7 a Win2000
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 6.10.2000 10:08:41
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Petr Vones
> Sent: Friday, November 03, 2000 12:58 PM
> To: Konference Delphi
> Subject: Re: BP 7 a Win2000
>
>
> From: "Martin Nedopil" <nedopil(zv)eskon(tec)cz>
> > kolega ma takovy maly problem.
> > Program napsany v Borland Pascalu 7
> > mu na Win2000 po pohybu mysi nad
> > programem okamzite spadne.
>
> Ahoj,
>
> tohle je znamy 'problem', viz odkaz v priloze. Reseni je
> spise v zamysleni se
> nad dnesnim datumem. Prirovnal bych to ke snaze prehravat
> valecek z fonografu
> v CD prehravaci, take to asi nebude mit optimalni vysledky.
> Prece jen asi ten
> puvodni pristroj z muzea to zvladne lip. Podobne to je i se
> snahou pouzivat
> dosove 'aplikace' pod Win2000.
>
> Petr Vones, amatersky programator
>
>
Fuj,
este ze uz tri ctvrte roku vyvijime na W2000, jinak bych se dost vydesil.
Nase hlavni aplikace je v BP7, DPMI a Turbo Vision. Nerikam ze to je
vzhledem k datumu to prave, ale beha. Nekdy fakt nejsou wokna to
nejdulezitejsi.
A vse nam to chodi od W2000 RC2 bez problemu.
Mam dojem, ze cele prostredi BP7 je v TurboVision, takze kdyz chodi
IDE, mel by chodit i program.
Michal K�s
Replikacie - PARADOX db
[*] delph <delph(zv)host.sk> - 6.10.2000 10:19:04
Ahojte,
prosim Vas, existuju nejake oficialne odporucania alebo popisy ako robit
REPLIKACIE s Paradox tabulkami ?
Mate nejake URL tipy ?
Dik Rado
Dataset/Field
[*] Jiri Dvorak <Jiri_Dvorak(zv)gordic(tec)cz> - 6.10.2000 10:39:03
=====================================================================
Vazeni pratele.
Potreboval bych drzet hodnoty ve fieldu datasetu (nap. dataset=TQuery)
ktere se neselektuji z databaze. (BDE / Oracle)
Ale jsou spise zavisle na pozici radku v datasetu. (jako priklad lze uvest : hodnota=pozice radku v datasestu)
Field typu fkCalculated je mi na nic protoze hodnota pozadovaneho fieldu
se neda vypocitat z hodnot ostatnich fieldu.
Dale se mi nepodarilo nastavit field typu fkCalculated tak aby se dal editovat.
Za pripadne rady predem dekuji.
Jirka Dvorak.
=====================================================================
Streams
[*] Radim.Holan <radim.holan(zv)seznam(tec)cz> - 6.10.2000 10:52:35
Zacinam pracovat se streamy a potreboval bych poradit s timto problemem :
Mam jeden soubor, ktery potrebuju zakodovat a ulozit do jineho souboru.
Soubor otevru pomoci TfileStream.ReadBuffer a ulozim to do TMemory buffer
takto :
S1,S2:TFileStream;
M1:TMemoryStream;
S1.ReadBuffer(M1,1024);
Ted potrebuju dostat z memorystreamu znak po znaku, zakodovat je a ulozit do
vystupniho souboru.
Muzete mi poradit jak na to? Je lepsi pouzivat pro vetsi rychlost
Memorystream (budou kodovane velke soubory nekolik mega) a nebo to mam tahat
primo z Filestreamu?
Diky za rady
Radim Hol�n
email: holan(zv)oauh(tec)cz
radim.holan(zv)maringotka(tec)cz
www : holan.zde(tec)cz
AutoInc
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.10.2000 11:02:55
On 5 Nov 2000, at 21:50, Erik Salaj wrote:
> > > Mat v poistovni zaznamy bez toho, aby si vedel od koho su,
> > > nie je najstastnejsie riesenie. Predpokladam, ze poistovna si
> > > vytvori ciselnik agentov, kde si ich bude evidovat.
> >
> > Drobny detail, _predem_ nevis. Tedy nevis to v dobe navrhu
> > programu ani v dobe jeho zavadeni.
>
> Co predom neviem, snad nie obsah tabuliek?
Kolik bude agentu.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Kde nastavit csOpaque (ControlStyle)
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 6.10.2000 11:10:11
Dobry den
zkus to v
protected
procedure CreateParams(var Params: TCreateParams); override;
----- Original Message -----
From: <ZPetruj(zv)qgir(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 7:26 AM
Subject: RE: Kde nastavit csOpaque (ControlStyle)> Nevim jestli konkretne tohle tve nastaveni povede k cili, bliz jsem to
> nezkoumal, ale nastavovat takove veci v konstruktoru je pozde. Veci,
> tykajici se windowsovskeho nastaveni jsem vzdy predefinovaval uz
> v "Loaded".
>
> Kren
>
> > -----Original Message-----
> > From: Petr Fischer [mailto:fifa(zv)praguesoft(tec)cz]
> > Sent: Friday, November 03, 2000 6:12 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Kde nastavit csOpaque (ControlStyle)
> >
> >
> > Zdravim,
> >
> > pisu komponentu (zdedena od TCustomControl), a nechci aby pri kazdy
> > PAINT zprave probihalo defaultni vymazani Canvasu. Mel by to byt
> > parametr csOpaque v ControlStyle, jenze se mi ho nedari nastavit.
> > Radka:
> >
> > ControlStyle := ControlStyle + [csOpaque];
> >
> > v konstrukrotu komponenty mi s tim ani nehne (ControlStyle se
> > nezmeni).
> >
> > Diky za radu, Petr Fischer
> >
> > Win2000, Delphi 5 (SP1)
> >eventy ve vlastni komponente
[*] Ing. Karel Partl <partl(zv)zf.jcu(tec)cz> - 6.10.2000 11:26:27
Ahoj
Mohl by mi nekdo poradit jak vyresit nasledujici problem?
Vytvoril jsem si vlastni komponentu a nadefinoval ji event onKeyDown. Kdyz
pak vytvorim jeji instanci a te nadeklaruju nejaky onKeyDown, tak uz se mi
nezavola ten predchozi event. Jak to vyresit?
Predem diky za odpoved, potreboval bych to co nejdrive vyresit.
K. Partl
---------------------------------------
Ing. Karel P�rtl
e-mail: partl(zv)zf.jcu(tec)cz
k.partl(zv)post(tec)cz
ICQ: 24574012
--------------------------------------
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
Jak nastavit v DBGrid sloupec aby byl zobrazen
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 6.10.2000 11:29:43
Ahoj,
pou��v�m m�rn� upraven� DBGrid, kde m�m implementov�no set��d�n� p�i
kliknut� na titulek. Probl�m, ale je, �e po set��d�n� se mi nastav� grid
tak, �e zobrazen je prvn� sloupec a ne ten na kter� se kliklo, co� je p�i
v�t��m mno�stv� sloupc� docela k na�tv�n�.
Nev�te n�kdo jak nastavit DBGrid aby byl zobrazen (byl vid�t) dan� sloupec ?
D�ky Pavel
komponenta s podobjektem v design-time
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 6.10.2000 11:56:43
kolega ma nasledujici problem
> Mam komponentu, ktera obsahuje podobjekt ABCD
> (v "Object instpectoru" se chova jako vlastnost Font ),
> charakterizujici jeji vlastnosti na zaklade jejiho typu
> (pro jednotlive typy obsahuje jine polozky).
>
> Umistim-li komponentu na formular prednastavi se DefaultTyp.
> Zmenim-li typ pri sbalenem obsahu vlastosti ABCD .... Ok
> Zmenim-li typ pri rozvinutem obsahu vlastnost ABCD .... Error.
> (Pri zmene typu dochazi k odstraneni povodniho podobjectu ABCD
> a vytvoreni noveho dle typu).
>
> Nevi nekdo jak pri zmene typu dat "Object inspectoru" pokyn
> aby dany podobject sbalil pripadne pote rozbalil.OT: DateTime -> Time v IB
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 6.10.2000 12:15:23
Nezbyde ti nez pouzit nejake UDF funkce.
> Ahoj Vsi:),
>
> Mam tabulku
>
> S_Date //TimeStamp obsahuje jen datum
> S_Time //TimeStamp obsahuje datum i cas
> Traffic //Float sledovana hodnota
>
> Data mam po hodinach.
> Jak udelat profil prumerneho dne z dat jednoho tydne.
>
> Mel by to byt dotaz:
> select cast(S_Time as Time) as A_Time, Traffic
> from ***
> group by A_Time
>
> ALE!!! Neumim rozdelit datum a cas. Muj IB server respektuje jen typ
> TimeStamp, ktery zahrnuje oboje. Cast(S_Time as Time) nejde, group by A_Time
> nejde, nejde ani group by 1.
>
> Vi nekdo jak na to?
>
> Michal.Tiller(zv)oskarmobil.Cz :o)
> RF Support Coordinator, OSKAR, RF - Engineering
> +420 (02) 7117 1388, +420 (0608) 011 327
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
RichEdit.SelText - nahrada urcitych znaku jinym f
[*] DanekR <rd(zv)zbrojovka(tec)com> - 6.10.2000 12:29:37
Zdravim,
nahrazuju v RichEdit selectnuty text za jiny pomoci RichEdit.SelText
A to asi takhle:
RichEdit.SelText:= 'nejaky_string' + RichEdit.SelText + 'nejaky_string';
Je nejakym zpusobem mozne, pri pouziti tyhle metody, napsat ten
'nejaky_string' jinou barvou, popr. jeste bold?
Vim jak zmenit barvu i atributy fontu, lze to pomoci DefAtributes (nebo tak
nejak), dela se to myslim takhle:
RichEdit.DefAtributes.Color:= cbRed;
...pak je vse co se zapise dal cervene, ale v pripade, ze tu barvu prepnu
pred provedenim SelText, tak bude cervene vsechno, kdyz prepnu je po, je uz
pozde. A ja potrebuji cervene pouze ty dve promenne 'nejaky_string'
Lze to nejak separovat/resit?
Dekuji...
--------------------
Radek Danek
rd(zv)zbrojovka.com
eventy ve vlastni komponente
[*] Radek Janu� <janus(zv)foresta(tec)cz> - 6.10.2000 12:57:11
Zkuste za ni dat medodu
Vase procedura
begin
obsluha.............
inherited
end;
-----P�vodn� zpr�va-----
Od: Ing. Karel Partl <partl(zv)zf.jcu(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 2000 12:22
P�edm�t: eventy ve vlastni komponente
>Ahoj
>Mohl by mi nekdo poradit jak vyresit nasledujici problem?
>Vytvoril jsem si vlastni komponentu a nadefinoval ji event onKeyDown. Kdyz
>pak vytvorim jeji instanci a te nadeklaruju nejaky onKeyDown, tak uz se mi
>nezavola ten predchozi event. Jak to vyresit?
>Predem diky za odpoved, potreboval bych to co nejdrive vyresit.
>
>K. Partl
>---------------------------------------
>Ing. Karel P�rtl
>e-mail: partl(zv)zf.jcu(tec)cz
> k.partl(zv)post(tec)cz
>ICQ: 24574012
>--------------------------------------
>
>
>---
>Odchoz� zpr�va neobsahuje viry.
>Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
Uzivatelska datova mnozina a typovy soubor
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.10.2000 13:01:56
Ahoj,
nemate, prosim, nekdo prototyp obaleni typoveho souboru do uzivatelske
datove mnoziny (nejaky potomek TDataSet)? Nebo odkaz, kde by se to dalo
najit?
Diky
Jaro B.IS Express a upgrade BDE
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 06.10.2000 13:02:45
Ahoj,
mam Delphi 3 a po upgrade BDE na 501 mi prestal fungovat IS. Vim, ze
se to tady kdysi resilo, jedna se o zmenu nejakeho ini, ale nemuzu to
najit. Poradte mi, prosim nekdo.
Dekuji
--
Vaclav Sazima
mailto://sazima(zv)comp(tec)cz
http://www.utilia(tec)cz
Jak nastavit v DBGrid sloupec aby byl zobrazen
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 6.10.2000 13:47:21
> Ahoj,
>
> pou��v�m m�rn� upraven� DBGrid, kde m�m implementov�no set��d�n� p�i
> kliknut� na titulek. Probl�m, ale je, �e po set��d�n� se mi nastav� grid
> tak, �e zobrazen je prvn� sloupec a ne ten na kter� se kliklo, co� je p�i
> v�t��m mno�stv� sloupc� docela k na�tv�n�.
> Nev�te n�kdo jak nastavit DBGrid aby byl zobrazen (byl vid�t) dan� sloupec ?
>
> D�ky Pavel
Zkus toto:
Specifies the field component for the currently selected cell in the
grid.
property SelectedField: TField;
Description
Set SelectedField to move focus to a particular field in the grid.
Read SelectedField to obtain access to the field component for the
currently selected cell. If there is not currently selected cell,
SelectedField is nil. For example, when an entire row is selected,
SelectedField is nil.
Milan Dvo��k
dvorak(zv)gymzn(tec)cz
eventy ve vlastni komponente
[*] Lauko �tefan <lauko(zv)salamon.sk> - 6.10.2000 13:50:49
----- Original Message -----
From: Ing. Karel Partl <partl(zv)zf.jcu(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 11:26 AM
Subject: eventy ve vlastni komponente
> Ahoj
> Mohl by mi nekdo poradit jak vyresit nasledujici problem?
> Vytvoril jsem si vlastni komponentu a nadefinoval ji event onKeyDown. Kdyz
> pak vytvorim jeji instanci a te nadeklaruju nejaky onKeyDown, tak uz se mi
> nezavola ten predchozi event. Jak to vyresit?
> Predem diky za odpoved, potreboval bych to co nejdrive vyresit.
Ahoj,
v komponentach by sa eventy nemali definovat (priradovat) presne z tohto
dovodu. Kod ktory chces pouzit v OnKeyDown je lepsie vlozit do metody
KeyDown - z ktorej je potom volany event priradeny uz na forme a to bud pred
tvojim kodom alebo po nom.
Napr.
TMojaCmp = Class(TControl)
...
...
Procedure KeyDown();
...
...
end;
Procedure TMojaCmp.KeyDown();
begin
....
Tvoj kod
....
If Assigned(OnKeyDown) then OnKeyDown();
....
Tvoj kod
....
Pripadne - Inherited KeyDown()
end;
Lauko.
Streams
[*] Lauko Stefan <lauko(zv)salamon.sk> - 6.10.2000 14:12:35
----- Original Message -----
From: Radim.Holan <radim.holan(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 10:52 AM
Subject: Streams
> Zacinam pracovat se streamy a potreboval bych poradit s timto problemem :
>
> Mam jeden soubor, ktery potrebuju zakodovat a ulozit do jineho souboru.
> Soubor otevru pomoci TfileStream.ReadBuffer a ulozim to do TMemory buffer
> takto :
>
> S1,S2:TFileStream;
> M1:TMemoryStream;
>
> S1.ReadBuffer(M1,1024);
>
> Ted potrebuju dostat z memorystreamu znak po znaku, zakodovat je a ulozit
do
> vystupniho souboru.
>
> Muzete mi poradit jak na to? Je lepsi pouzivat pro vetsi rychlost
> Memorystream (budou kodovane velke soubory nekolik mega) a nebo to mam
tahat
> primo z Filestreamu?
Ahoj,
M1 je nepotrebne. Riesil by som to takto:
Var
Buffer:Array[1..2048] of Char;
n:Integer;
ReadBytes:Integer;
S1,S2:TFileStream;
begin
S1:=TFileStream.Create(...);
S2:=TFileStream.Create(...);
While S1.Position <> S1.Size do
begin
ReadBytes:=S1.Read(Buffer,SizeOf(Buffer);
For n:= 1 to ReadBytes do kodujem(Buffer[n]);
S2.Write(Buffer,ReadBytes);
end;
S1.Free;
S2.Free;
end;
Pisal som to z pamate. Ale mohlo by to fungovat.
Lauko.
eventy ve vlastni komponente
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 6.10.2000 14:21:41
Jestli to je tak, ze vytvoris instanci toho potomka a priradis obsluhu udalo
sti OnKeyDown predka tak zkus do tela toho eventu potomka pridat inherited;
Milan Tomes
> Ahoj
> Mohl by mi nekdo poradit jak vyresit nasledujici problem?
> Vytvoril jsem si vlastni komponentu a nadefinoval ji event onKeyDown. Kdyz
> pak vytvorim jeji instanci a te nadeklaruju nejaky onKeyDown, tak uz se mi
> nezavola ten predchozi event. Jak to vyresit?
> Predem diky za odpoved, potreboval bych to co nejdrive vyresit.
>
> K. Partl
> ---------------------------------------
> Ing. Karel P�rtl
> e-mail: partl(zv)zf.jcu(tec)cz
> k.partl(zv)post(tec)cz
> ICQ: 24574012
> --------------------------------------
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
TrayIcon
[*] Peter Laurinc <laurinc(zv)sppa.sk> - 06.10.2000 14:38:24
Tak prave takto sa mi to rozchodit nepodarilo. Pokial viem, tak rxtrayIcon
akurat vie zobrazit ikonku ale nevie minimalizovat atd. Skus TCoolTrayIcon,
myslim ze je na torry. Odskusana, chodiva, spolahliva.
Brcko
Daniel Sichta wrote:
> W98, D5E, Rx275
> Nemate niekto demo na TrxTrayIcon ktory by po spusteni aplikacie ju zobrazi
> len vo
> Windows task bare v lavom rohu a cez PopUp menu otvori okno aplikacie ?
>
> Dakujem
>
> Ing. Daniel �ichta
> CUSTOM.web s.r.o.
> Hod�ova 13
> 01001 �ilina, SLOVAKIA
> www.customweb.sk <http://www.customweb.sk>
> dano(zv)customweb.sk <mailto:dano(zv)customweb.sk>
> ICQ: 84700861
pripojeni DbGrid na 2 tabulky?
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 6.10.2000 14:42:05
Ahoj vsichni,
D4:
mam 2 paradoxni tabulky svazane spolu (pres MasterSource, Master Field) a DBGrid, kterym koukam do jedne z nich. Urcite jde nejak jednoduse koukat do obou zaroven, ale neprisel jsem na to jak. Poradi nekdo20
Diky
Petr Mohapl
TCP-IP komunikace
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 06.10.2000 14:43:28
Cau,
Mam problemek se kterym si nevim rady. Vim ip adresy obou stanic a potrebuju aby si spolu popovidali, coz neni problem. Do problemu jsem se dostal pokud sem chtel poslat soubor z jedne stanice na druhou. Pouzivam na to serversocket a clientsocket (pokud se da pouzit neco jineho budu rad). Nevite nekdo jakym zpusobem by slo poslat ten soubor na nejakou ip adresu ?
Za nakopnuti spravnym smerem dekuji.
Ladap
eventy ve vlastni komponente
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 6.10.2000 14:50:12
Myslim, ze by Ti melo pomoci toto, pokud jsem dobre pochopil, co je
predchozi event.
procedure Txxx.xxxOnKeyDown(...);
begin
inherited ;
...
end;
:) Michal Tiller
-----Original Message-----
From: Ing. Karel Partl [mailto:partl(zv)zf.jcu(tec)cz]
Sent: Monday, November 06, 2000 11:26 AM
To: delphi-l(zv)fwd(tec)cz
Subject: eventy ve vlastni komponente
Ahoj
Mohl by mi nekdo poradit jak vyresit nasledujici problem?
Vytvoril jsem si vlastni komponentu a nadefinoval ji event onKeyDown. Kdyz
pak vytvorim jeji instanci a te nadeklaruju nejaky onKeyDown, tak uz se mi
nezavola ten predchozi event. Jak to vyresit?
Predem diky za odpoved, potreboval bych to co nejdrive vyresit.
K. Partl
---------------------------------------
Ing. Karel P�rtl
e-mail: partl(zv)zf.jcu(tec)cz
k.partl(zv)post(tec)cz
ICQ: 24574012
--------------------------------------
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.166 / Virov� b�ze: 79 - datum vyd�n�: 20.6.2000
TCP-IP komunikace
[*] tomsir1.edu(zv)mail.cez(tec)cz - 6.10.2000 14:52:38
pokud chces pouzit neco jineho, mrkni se sem
http:
//www.rtfm.be/fpiette
Radegast
"Parizsky La
dislav" <parizsky(zv)access-it(tec)cz> on 06.11.2000 14:43:28
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi
-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Tomsik Radek/4130P/
EDU/CEZ)
P�edm�t: TCP-IP komunikace
Cau,
Mam problemek se kterym si nevim rady. Vim ip adresy obou stanic a potrebuju aby
si spolu popovidali, coz neni problem. Do problemu jsem se dostal pokud sem
chtel poslat soubor z jedne stanice na druhou. Pouzivam na to serversocket a
clientsocket (pokud se da pouzit neco jineho budu rad). Nevite nekdo jakym
zpusobem by slo poslat ten soubor na nejakou ip adresu ?
Za nakopnuti spravnym smerem dekuji.
Ladap
AutoInc
[*] Erik Salaj <winsoft(zv)napri.sk> - 6.10.2000 14:54:36
> > > > Mat v poistovni zaznamy bez toho, aby si vedel od koho su,
> > > > nie je najstastnejsie riesenie. Predpokladam, ze poistovna si
> > > > vytvori ciselnik agentov, kde si ich bude evidovat.
> > >
> > > Drobny detail, _predem_ nevis. Tedy nevis to v dobe navrhu
> > > programu ani v dobe jeho zavadeni.
> >
> > Co predom neviem, snad nie obsah tabuliek?
>
> Kolik bude agentu.
Agentov je presne tolko, kolko viet je v ciselniku. Pocet
agentov v buducnosti sa da asi len vycitat z hviezd.
Erik Salaj, WINSOFT
info(zv)winsoft.sk
GetPrinter z unitu WinSpool
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 6.10.2000 15:04:32
Ahoj, ozyvam sa este raz. Kedze nik neodpovedal.
Potrebujem poradit z funkciou GetPrinter z unitu WinSpool
Chcel som zistit stav tlaciarne popripade dalsie informacie,
ktore su v
datovej strukture TPrinterInfo2. Medzi inymi informaciami je tam aj Status.
Nedari sa mi vsak spravne zavolat funkciu GetPrinter.
Ako mam zadefinovat premennu buffer, resp aka ma byt jej alokovana velkost
ked
v napovede sa pise ze je to:
DWORD cbBuf, // size, in bytes, of array of bytes
Kde mam vlastne chybu??? Poradte zufalcovi:-((((((
Tu je moj postup:
uses Printers, WinSpool;
procedure TForm1.Button1Click(Sender: TObject);
var PrinterInfo, Buffer: PChar;
Count: DWORD;
hPrinter, D3: THandle;
PrinterName: array[0..cchDeviceName] of Char;
D1, D2: array[0..MAX_PATH] of Char;
begin
with Printer do
begin
GetPrinter(PrinterName, D1, D2, D3);
(* zistim handle tlaciarne - hPrinter*)
Win32Check(OpenPrinter(PrinterName, hPrinter, nil));
end;
(* zistim potrebnu velkost struktury PrinterInfo2 aspon si to myslim -
count*)
Winspool.GetPrinter(hPrinter,2,nil,0,(zv)Count);
(* alokujem danu velkost a neviem ci je to spravne*)
GetMem(Buffer, Count);
try
win32check(Winspool.GetPrinter(hPrinter,2,Buffer,Count,(zv)Count));
PrinterInfo := Buffer;
with PPrinterInfo2(PrinterInfo)^ do begin
ShowMessage(IntToStr(Status));
end;
finally
FreeMem(Buffer, Count);
end;
end;
Marian
Jak nastavit v DBGrid sloupec aby byl zobrazen
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 6.10.2000 16:07:03
Ahoj,
nevim co mas presne na mysli, ale ja pouzivam take setrideni sloupce na
udalost OnTitleClick u standardni komponenty TDBGrid a setrideny sloupec je
stale viditelny.
Zkusil bych nasledujici kod:
var
iPos: integer;
begin
iPos:= GetScrollPos(DBGrid1.Handle, SB_HORZ)
kod na setrideni;
SetScrollPos(DBGrid1.Handle, SB_HORZ, iPos, True)
end;
Ales
----- Original Message -----
From: Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 11:29 AM
Subject: Jak nastavit v DBGrid sloupec aby byl zobrazen
> Ahoj,
>
> pou��v�m m�rn� upraven� DBGrid, kde m�m implementov�no set��d�n� p�i
> kliknut� na titulek. Probl�m, ale je, �e po set��d�n� se mi nastav� grid
> tak, �e zobrazen je prvn� sloupec a ne ten na kter� se kliklo, co� je p�i
> v�t��m mno�stv� sloupc� docela k na�tv�n�.
> Nev�te n�kdo jak nastavit DBGrid aby byl zobrazen (byl vid�t) dan� sloupec
?
>
> D�ky Pavel
komponenta s moznosti kresleni ramecku kolem textu
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 6.10.2000 16:15:25
Ahoj,
na kresleni ramecku se da pouzit funkce DrawEdge(hdc, rect, edgetype,
bordertype)
Ales
----- Original Message -----
From: Garalda <garalda(zv)mail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 8:36 AM
Subject: komponenta s moznosti kresleni ramecku kolem textu
> Preji vsem pekny den,
>
> rad bych vas pozadal o radu. Potrebuji uzivateli zobrazit nejaky text v
> ramecku, jde v podstate o ukazku pred tiskem, kde si uzivatel muze
provadet
> zmeny primo v textu drive nez to posle na tiskarnu. Nepotrebuji zadne
> slozite editory. Ten text je v jednom typu pisma a v jedne velikosti. Jen
je
> problem tam dostat ty ramecky. TMemo to neumi u TRichEditu jsem to taky
> nenasel. Zkousel jsem jeste TTextListBox a RXRichEdit z RX komponent, ale
> ani tam jsem to nenasel. Momentalne jedina vec co mne napadla jak tam
dostat
> ten ramecek, je vzit TListBox a predelat udalost OnDrawItem, jenze pak
zase
> prijdu o moznost editace. Nevite nekdo jak to udelat nebo kde by se dala
> sehnat komponenta s odpovidajicimi vlastnostmi?
>
> Dekuji
> Garalda
>
>
>
TCP-IP komunikace
[*] azeleny(zv)csas(tec)cz - 6.10.2000 16:20:08
DDV,
spise nek komponenty z Delphi bych na to doporucil Synapsi. Viz
http://www.ararat(tec)cz/synapse
Pekny den!
a.
> -----Original Message-----
> From: Parizsky Ladislav [mailto:parizsky(zv)access-it(tec)cz]
> Sent: Monday, November 06, 2000 2:43 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: TCP-IP komunikace
>
>
> Cau,
> Mam problemek se kterym si nevim rady. Vim ip adresy obou
> stanic a potrebuju aby si spolu popovidali, coz neni problem.
> Do problemu jsem se dostal pokud sem chtel poslat soubor z
> jedne stanice na druhou. Pouzivam na to serversocket a
> clientsocket (pokud se da pouzit neco jineho budu rad).
> Nevite nekdo jakym zpusobem by slo poslat ten soubor na
> nejakou ip adresu ?
>
> Za nakopnuti spravnym smerem dekuji.
> Ladap
> TCP-IP komunikace
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 6.10.2000 16:36:59
Ahoj,
co Ti brani pouzit na zkopirovani souboru mapovani disku na vzdalenem
pocitaci.
var
NetResource: TNetResource;
begin
with NetResource do begin
lpRemoteName:= PChar(' \\Server\dir ') {* adresar na vzdalenym
pocitaci *}
lpLocalName:= PChar('k:'); {* driver na tvem pocitaci - volne pismeno
muzes zjistit pomoci funkce GetLogicalDrivers *}
dwType:= RESOURCE_TYPEDISK;
lpProvider:= nil;
end
WNetAddConnection2(NetResource, password, user, 0); {* namapovani
vzdaleneho disku *}
kopirovani;
WNetCancelConnection2(NetResource.lpLocalName, 0, True); {* zruseni
mapovani *}
end;
Prirozene, ze adresar musi byt nasdileny.
Ales
----- Original Message -----
From: Parizsky Ladislav <parizsky(zv)access-it(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 2:43 PM
Subject: TCP-IP komunikace
> Cau,
> Mam problemek se kterym si nevim rady. Vim ip adresy obou stanic a
potrebuju aby si spolu popovidali, coz neni problem. Do problemu jsem se
dostal pokud sem chtel poslat soubor z jedne stanice na druhou. Pouzivam na
to serversocket a clientsocket (pokud se da pouzit neco jineho budu rad).
Nevite nekdo jakym zpusobem by slo poslat ten soubor na nejakou ip adresu ?
>
> Za nakopnuti spravnym smerem dekuji.
> Ladap
>
Dokovani mezi aplikacemi
[*] Pavel Vasek <pavel.vasek(zv)wige-mic(tec)cz> - 6.10.2000 17:00:53
Ahoj vsichni,
nevite nekdo, zda je mozne dokovat napr. panel, nebo toolbar mezi
ruznymi aplikacemi. Resp. mezi samotnou aplikaci a ActiveX formem,
ktery je do ni vlozen? Nebo zda to jde udelat nejak jinak?
Predem diky.
Pavel Vasek
Slow Interbase Connect => Vyriesene (BUG?)
[*] delph <delph(zv)host.sk> - 6.10.2000 17:04:51
Ahojte,
nedavno som sa dotazoval na problem pomaleho PRVEHO connectu na Interbase.
Odporucali ste mi skontrolovat siet (nastavenie TCP/IP).
Neslo mi to do hlavy, pretoze mame tu viac aplikacii v sieti a odozvy su pekne.
Takze, problem pomaleho connectu spocival v nastaveni DNS na lokalnych
strojoch. Ak som zakazal pouzivanie DNS (co je "neprakticke" ;-))), Interbase
connectovala uplne sqele. Patral som dalej.
Dosiel som k zaveru:
Ak mate na lokalnej sieti DNS,
!NESMIETE! connectovat Interbase server cez IP adresu, ale cez jeho DNS meno.
---
P.S.
Dokonca ked som connectoval IBServer lokalne cez IP adresu
a nie ako "LocalServer", takisto ten 1.connect trval cca minutu.
Teraz to slape sqele !
Rado
OT: Prace
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 6.10.2000 17:12:21
Prijemny den,
D4 Standard, W95 OSR2.
Shanim nejakou praci, programovani v Delphi.
Jestli mi muzete pomoci, rad si o tom prectu na mem soukromem mailu (dole).
Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
Zacinajici programator Straka Josef, ktery slysel uz 28krat zpivat najare
kosa.
email: strakaj(zv)hbnet(tec)cz
www: http://strakaj.zde(tec)cz
pripojeni DbGrid na 2 tabulky?
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 6.10.2000 17:14:44
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Nu. Jedna Table nab�z� sv� data p�ez DataSource, na kter� lze napojit
DBGrid, MasterSource jin� tabulky a mnoho dal��ch component. Ale abys mohl
pou��t data z druh� Table, je pot�eba na ni napojit druh� DataSource, kter�
bude nab�zet jej� data. Na nej pak lze napojit druh� DBGrid.
S pozdravem
<mailto:Michal.Tiller(zv)oskarmobil.Cz%20%20%20%20%20:o)>
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327<?xml:namespace prefix = o ns =
"urn:schemas-microsoft-com:office:office" />
-----Original Message-----
From: Petr Mohapl [mailto:p.mohapl(zv)nemstbk(tec)cz]
Sent: Monday, November 06, 2000 2:42 PM
To: Delphi konference
Subject: pripojeni DbGrid na 2 tabulky?
Ahoj vsichni,
D4:
mam 2 paradoxni tabulky svazane spolu (pres MasterSource, Master Field) a
DBGrid, kterym koukam do jedne z nich. Urcite jde nejak jednoduse koukat do
obou zaroven, ale neprisel jsem na to jak. Poradi nekdo20
Diky
Petr Mohapl
GetPrinter z unitu WinSpool
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 6.10.2000 18:13:00
From: "Mari�n Goryl" <goryl(zv)insdata.sk>> Ahoj, ozyvam sa este raz. Kedze nik neodpovedal.
> Potrebujem poradit z funkciou GetPrinter z unitu WinSpool
> Chcel som zistit stav tlaciarne popripade dalsie informacie,
> ktore su v
> datovej strukture TPrinterInfo2. Medzi inymi informaciami je tam aj
Status.
> Nedari sa mi vsak spravne zavolat funkciu GetPrinter.
> Ako mam zadefinovat premennu buffer, resp aka ma byt jej alokovana velkost
> ked
> v napovede sa pise ze je to:
> DWORD cbBuf, // size, in bytes, of array of bytes
>
> Kde mam vlastne chybu??? Poradte zufalcovi:-((((((
> Tu je moj postup:
>
> uses Printers, WinSpool;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var PrinterInfo, Buffer: PChar;
> Count: DWORD;
> hPrinter, D3: THandle;
> PrinterName: array[0..cchDeviceName] of Char;
> D1, D2: array[0..MAX_PATH] of Char;
> begin
> with Printer do
> begin
> GetPrinter(PrinterName, D1, D2, D3);
> (* zistim handle tlaciarne - hPrinter*)
> Win32Check(OpenPrinter(PrinterName, hPrinter, nil));
> end;
> (* zistim potrebnu velkost struktury PrinterInfo2 aspon si to myslim -
> count*)
> Winspool.GetPrinter(hPrinter,2,nil,0,(zv)Count);
> (* alokujem danu velkost a neviem ci je to spravne*)
> GetMem(Buffer, Count);
> try
> win32check(Winspool.GetPrinter(hPrinter,2,Buffer,Count,(zv)Count));
> PrinterInfo := Buffer;
> with PPrinterInfo2(PrinterInfo)^ do begin
> ShowMessage(IntToStr(Status));
> end;
> finally
> FreeMem(Buffer, Count);
> end;
> end;
>
A v cem je vlastne ten problem? Vzdyt tak jak to je napsane to funguje.
Mozna je to zbytecne prekombinovane s temi ukazately, sta�ilo by misto
var PrinterInfo, Buffer: PChar;
pouzit primo:
var PrinterInfo: PPrinterInfo2;
...
GetMem(PrinterInfo, Count);
...
ShowMessage(IntToStr(PrinterInfo^.Status));
...
FreeMem(PrinterInfo, Count);
ale jinak to v zasade funguje spravne.
Vaclav Krmela
IS Express a upgrade BDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.10.2000 18:24:13
From: "Vaclav Sazima" <sazima(zv)comp(tec)cz>
> mam Delphi 3 a po upgrade BDE na 501 mi prestal fungovat IS. Vim, ze
> se to tady kdysi resilo, jedna se o zmenu nejakeho ini, ale nemuzu to
> najit. Poradte mi, prosim nekdo.
Ahoj,
je to tady:
http://www.borland.com/devsupport/delphi/downloads/index.html
Pokud chces mit instalace vytvorene pomoci ISX jako jeden EXE soubor, tak
si muzes zdarma stahnout PackageForTheWeb:
http://www.installshield.com/pftw/
Petr Vones, amatersky programator
OT: DateTime -> Time v IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 6.10.2000 19:04:07
ahoj,
a mas nastaveny dialekt 3?
> > ALE!!! Neumim rozdelit datum a cas. Muj IB server respektuje jen typ
> > TimeStamp, ktery zahrnuje oboje. Cast(S_Time as Time) nejde,
> > group by A_Time nejde, nejde ani group by 1.
IB6 by mela umet date a time a timestamp
dekuji peca
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Zmena icon v Titulku Okna
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 6.10.2000 19:59:40
Mam takovy problem, znam pouze handle na form a potreboval bych, aby icony v titulku okna (minimize a restore) zasedly, pripadne zmizely. To ze se stanou nefunkcni mi funguje, ale stale jsou na formulari normalne videt.
Za vsechny namety jak se s timto problemem vypradat predem dekuji.
Martin
TCP-IP komunikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.10.2000 20:21:06
On 6 Nov 2000, at 14:43, Parizsky Ladislav wrote:
> Mam problemek se kterym si nevim rady. Vim ip adresy obou stanic a
> potrebuju aby si spolu popovidali, coz neni problem. Do problemu jsem
> se dostal pokud sem chtel poslat soubor z jedne stanice na druhou.
> Pouzivam na to serversocket a clientsocket (pokud se da pouzit neco
> jineho budu rad). Nevite nekdo jakym zpusobem by slo poslat ten soubor
> na nejakou ip adresu ?
Co na tom vidis za problem? Pokud umis posilat nejaka data, pak
se souborem udelas totez. Posles jmeno, a pak po nejakych
paketech posles vlastni soubor. Druha strana ti potvrdi, ze data
jsou OK a pak posilas dokolecka dal az do konce souboru.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: DateTime -> Time v IB
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 6.10.2000 20:54:57
Jak ud�l�m UDF??? Pora�te mi n�kdo, pros�m. :)
Michal Tiller
-----Original Message-----
From: Michal Tiller [mailto:Michal.Tiller(zv)oskarmobil(tec)cz]
Sent: Monday, November 06, 2000 9:58 AM
To: Delphi Forum (E-mail)
Subject: OT: DateTime -> Time v IB
Ahoj Vsi:),
Mam tabulku
S_Date //TimeStamp obsahuje jen datum
S_Time //TimeStamp obsahuje datum i cas
Traffic //Float sledovana hodnota
Data mam po hodinach.
Jak udelat profil prumerneho dne z dat jednoho tydne.
Mel by to byt dotaz:
select cast(S_Time as Time) as A_Time, Traffic
from ***
group by A_Time
ALE!!! Neumim rozdelit datum a cas. Muj IB server respektuje jen typ
TimeStamp, ktery zahrnuje oboje. Cast(S_Time as Time) nejde, group by A_Time
nejde, nejde ani group by 1.
Vi nekdo jak na to?
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327
TCP-IP komunikace
[*] Ji�� H�sek - 6.10.2000 21:56:21
Ahoj,
ja pouzivam FastNet komponenty NMStrm a NMStrmServ.
Soubory posilam pomoci tehle jednoduche procedurky:
na clienta dam:
procedure TForm1.SendFile(s:string); {s:nazev souboru}
var
MyFStream: TFileStream;
begin
NMStrm1.Host := 'xxx.xxx.xxx.xxx' {IP Hosta}
MyFStream := TFileStream.Create(s, fmOpenRead);
try
NMStrm1.PostIt(MyFStream);
finally
MyFStream.Free;
end;
end;
a na serveru:
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
MyFStream: TFileStream;
begin
MyFStream := TFileStream.Create('nazevsouboru', fmCreate);
try
MyFStream.CopyFrom(strm, strm.size);
finally
MYFStream.Free;
end;
end;
Nazev souboru si na servra muzes poslat predtim jako text a ulozit ho do do
nejake promene, ze ktere ho pak precist. Me to funguje. Vic je v prikladech
k FastNet komponentam, nebo by to melo byt i v helpu.
Jir� H�sek
> Cau,
> Mam problemek se kterym si nevim rady. Vim ip adresy obou stanic a
potrebuju aby si spolu popovidali, coz neni problem. Do problemu jsem se
dostal pokud sem chtel poslat soubor z jedne stanice na druhou. Pouzivam na
to serversocket a clientsocket (pokud se da pouzit neco jineho budu rad).
Nevite nekdo jakym zpusobem by slo poslat ten soubor na nejakou ip adresu ?
>
> Za nakopnuti spravnym smerem dekuji.
> Ladap
>
>Systemove datum ?
[*] Ber�nek Pavel <Pavel.0(zv)worldonline(tec)cz> - 6.10.2000 22:11:28
Jsem programator zacatecnik a mam problem: potrebuji nastavit systemove
datum. To se mi pres funkci Setsystemtime podari, ale prehodi se mi pritom i
cas a ten touto funkci nemuzu upravit, jelikoz mi porad nastavuje (UTC) cas.
Funkci SystemTimeToTzSpecificLocalTime nemuzu take pouzit, protoze ta je
podporovana jen ve NT/2000. Nevim si rady, nepomohl byste mi nekd� ? Diky
...Pavel
DateTime -> Time v IB
[*] Milos Glosik <regard(zv)mail.eurotel.sk> - 6.10.2000 22:52:08
Napr. http://www.interbase2000.org/doc_deatz_udf.htm
m. glosik
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Michal Tiller
> Sent: Monday, 06 November, 2000 8:55 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: OT: DateTime -> Time v IB
>
>
> Jak ud�l�m UDF??? Pora�te mi n�kdo, pros�m. :)
> Michal Tiller
>
> -----Original Message-----
> From: Michal Tiller [mailto:Michal.Tiller(zv)oskarmobil(tec)cz]
> Sent: Monday, November 06, 2000 9:58 AM
> To: Delphi Forum (E-mail)
> Subject: OT: DateTime -> Time v IB
>
>
> Ahoj Vsi:),
>
> Mam tabulku
>
> S_Date //TimeStamp obsahuje jen datum
> S_Time //TimeStamp obsahuje datum i cas
> Traffic //Float sledovana hodnota
>
> Data mam po hodinach.
> Jak udelat profil prumerneho dne z dat jednoho tydne.
>
> Mel by to byt dotaz:
> select cast(S_Time as Time) as A_Time, Traffic
> from ***
> group by A_Time
>
> ALE!!! Neumim rozdelit datum a cas. Muj IB server respektuje jen typ
> TimeStamp, ktery zahrnuje oboje. Cast(S_Time as Time) nejde,
> group by A_Time
> nejde, nejde ani group by 1.
>
> Vi nekdo jak na to?
>
> Michal.Tiller(zv)oskarmobil.Cz :o)
> RF Support Coordinator, OSKAR, RF - Engineering
> +420 (02) 7117 1388, +420 (0608) 011 327
>Velikost pisma ve Windows
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 6.10.2000 23:13:23
Zdravim,
mam jeden problem.
Jde nejak zjistit nasledujici udaj z Windows, ktery se jmenuje
"VELIKOST PISMA" ?
V Ovladacich panelech / Obrazovka / Upresnit / zmacknete
button Upresnit. Objevi se okno vlastnosti graficke karty.
V liste Obecne je ramecek Obrazovka a v nem je udaj "VELIKOST
PISMA". Potrebuji tento udaj zjistit, protoze kdyz si nekdo
nastavi treba "Velka pisma", tak moje aplikace napsane v
Delphi vypadaji hrozne. Vsechny prvky ve formularich se
zvetsi, ale samotny formular ne a tak najednou nejdou vsechny
prvky videt.
Prosim o radu, jak tento problem resit.
Diky
Martin Pavera
Dynamicke vytvoreni formu
[*] Tom� Velek <TVelek(zv)seznam(tec)cz> - 06.10.2000 23:25:16
Zdrav�m v�echny,
nevim si rady s timto: mam zalozen hlavni form, ze ktereho pomoci CreateNew vytvarim dynamicke formy s tim, ze predem nevim, kolik jich bude (jako nap�. v Outlook Express, kde muze byt otevren libovolny pocet zprav). Ale nevim, jak udelat, abych z hlavniho formu ty dynamicky otevrene ovladal, napr. zavrit nebo urcit vlastnosti.
Dale nevim, jak priradit do vlastnosti dyn. formu nejakou komponentu, napr. PopupMenu:=MyPopup; prekladac mi hlasi, ze typ MyPopup neni definovan.
Zde uvadim cast kodu, v podstate jsem to opsal podle MessageDlg:
type
TFNew=class (TForm)
Txt: TMemo;
MyPopup: TPopupMenu;
public
constructor CreateNew (AOwner: TComponent); reintroduce;
end;
constructor TFNew.CreateNew (AOwner: TComponent);
begin
inherited CreateNew(AOwner);
end;
function Nova (Zleva, Zhora:Integer): TForm;
begin
Result:=TFNew.CreateNew (Application);
with Result do
begin
Width:=100;
Height:=100;
Left:=Zleva;
Top:=Zhora;
Caption:=Application.Title;
with TMemo.Create (Result) do
begin
Name:='Txt';
Parent:=Result;
end;
end;
end;
procedure TFMain.Button1Click (Sender: TObject);
begin
Nova (100, 100).Show;
end;
Za kazdou radu budu moc vdecny
Tomas Velek
ScrollBars v StringGrid a ListView
[*] Du�an Sedl��ek - 7.10.2000 01:19:18
Zdravim vsechny.
V D5 prof. delam neco takoveho: Pri pohybu v databazi mezi zaznamy umistuji
na dalsi formular komponenty s podrobnostmi o zaznamu. Mimo jine i TListView
a TStringGrid. Pritom jejich velikost je nastavena tak, aby se zobrazily bez
scroll baru. Stejne umistovani se deje i v udalosti OnFormShow toho
formulare s podrobnostmi. Pritom pri 1. zobrazeni (po form.show) se
pravidelne ListView/StringGrid zobrazi se scroll bary. Zrejme to nejak
souvisi s posloupnosti udalosti behem zobrazovani formu.
Jak z toho ven ?
Existuje pro form neco jako udalost 'AfterShow' (aniz pouziju casovace
aktivovaneho z FormShow) abych si mohl byt jist , ze formular je jiz
zobrazen ?
Diky
Dusan
Dynamicke vytvoreni formu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 7.10.2000 06:29:21
taxi nekam dynamicky ukladej handle na jednotlivy formy, napr. do TMemoryStream
-u
Radegast
Tom� Velek <TVelek(zv)seznam(tec)cz> on 06.11.2000 23:25:16
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Tomsik Radek/4130P/EDU/CEZ)
P�edm�t: Dynamicke vytvoreni formu
Zdrav�m v�echny,
nevim si rady s timto: mam zalozen hlavni form, ze ktereho pomoci CreateNew
vytvarim dynamicke formy s tim, ze predem nevim, kolik jich bude (jako nap�. v
Outlook Express, kde muze byt otevren libovolny pocet zprav). Ale nevim, jak
udelat, abych z hlavniho formu ty dynamicky otevrene ovladal, napr. zavrit nebo
urcit vlastnosti.
Dale nevim, jak priradit do vlastnosti dyn. formu nejakou komponentu, napr.
PopupMenu:=MyPopup; prekladac mi hlasi, ze typ MyPopup neni definovan.
Zde uvadim cast kodu, v podstate jsem to opsal podle MessageDlg:
type
TFNew=class (TForm)
Txt: TMemo;
MyPopup: TPopupMenu;
public
constructor CreateNew (AOwner: TComponent); reintroduce;
end;
constructor TFNew.CreateNew (AOwner: TComponent);
begin
inherited CreateNew(AOwner);
end;
function Nova (Zleva, Zhora:Integer): TForm;
begin
Result:=TFNew.CreateNew (Application);
with Result do
begin
Width:=100;
Height:=100;
Left:=Zleva;
Top:=Zhora;
Caption:=Application.Title;
with TMemo.Create (Result) do
begin
Name:='Txt';
Parent:=Result;
end;
end;
end;
procedure TFMain.Button1Click (Sender: TObject);
begin
Nova (100, 100).Show;
end;
Za kazdou radu budu moc vdecny
Tomas Velek
TCP-IP komunikace
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 07.10.2000 07:10:26
No brani mi v tom celkem dost veci jako napr. admin zakazal sdileni souboru na disku a prave proto si delam tenhle softik. Uz neco mam ale do souboru kterej posilam mi jeste vlozi naky blafy. Pouzivam serversocket a clientsocket.
//na strane clienta
procedure TFCTest.BBSendFClick(Sender: TObject); //odelsani souboru
begin
if ODFileC.Execute Then //open dialog
Begin
I:= 0;
Stream:= TFileStream.Create(ODFileC.FileName, fmOpenRead);
Velikost:= Stream.Size;
Soubor := ExtractFileName(ODFileC.FileName);
CSTest.Socket.SendText('SIZE ' + IntToStr(Velikost));
End;
end;
procedure TFCTest.CSTestRead(Sender: TObject; Socket: TCustomWinSocket);
Var Prislo : String;
begin
Prislo:= Socket.ReceiveText;
LBReceivedC.Items.Add(Prislo);
IF Prislo = 'Mam' Then
Begin
Case I Of
0: Begin
CSTest.Socket.SendText('FILE ' + Soubor);
Inc(I);
End;
1: Begin
CSTest.Socket.SendStream(Stream);
End;
End;
End;
end;// na strane serveru
procedure TFCTest.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var Buffer : PChar;
begin
Buffer:= Pchar(Socket.ReceiveText);
Case Poslal of
0: Begin
IF Copy(Buffer, 1, 4) = 'SIZE' Then
Begin
Velikost:= StrToInt(Copy(Buffer, 6, Length(Buffer)));
Socket.SendText('Mam');
End;
IF Copy(Buffer, 1, 4) = 'FILE' Then
Begin
Buff:= '';
Soubor:= 'C:\Temp\' + Copy(Buffer, 6, Length(Buffer));
Poslal:= 1;
IF not FileExists(Soubor)
Then FileHandle:= FileCreate(Soubor)
Else FileHandle:= FileOpen(Soubor, fmOpenWrite);
Socket.SendText('Mam');
End;
ListBox1.Items.Add(Buffer);
End;
1: Begin
Buff:= Buff + Buffer;
I:= Length(Buff);
IF Velikost = I Then
Begin
FileWrite(FileHandle, Buff, Length(Buff));
FileClose(FileHandle);
ListBox1.Items.Add(Buff);
Poslal:= 0;
End;
End;
End;
end;
do souboru mi vlozi neco jako hlavicku z formulare ve kterem se toto deje. Nevite nekdo co stim ?
Dik Ladap
>>> ales.janda(zv)atlas(tec)cz 6.11.00 16:36 >>>
Ahoj,
co Ti brani pouzit na zkopirovani souboru mapovani disku na vzdalenem
pocitaci.
var
NetResource: TNetResource;
begin
with NetResource do begin
lpRemoteName:= PChar(' \\Server\dir ') {* adresar na vzdalenym
pocitaci *}
lpLocalName:= PChar('k:'); {* driver na tvem pocitaci - volne pismeno
muzes zjistit pomoci funkce GetLogicalDrivers *}
dwType:= RESOURCE_TYPEDISK;
lpProvider:= nil;
end
WNetAddConnection2(NetResource, password, user, 0); {* namapovani
vzdaleneho disku *}
kopirovani;
WNetCancelConnection2(NetResource.lpLocalName, 0, True); {* zruseni
mapovani *}
end;
Prirozene, ze adresar musi byt nasdileny.
Ales
----- Original Message -----
From: Parizsky Ladislav <parizsky(zv)access-it(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 2:43 PM
Subject: TCP-IP komunikace
> Cau,
> Mam problemek se kterym si nevim rady. Vim ip adresy obou stanic a
potrebuju aby si spolu popovidali, coz neni problem. Do problemu jsem se
dostal pokud sem chtel poslat soubor z jedne stanice na druhou. Pouzivam na
to serversocket a clientsocket (pokud se da pouzit neco jineho budu rad).
Nevite nekdo jakym zpusobem by slo poslat ten soubor na nejakou ip adresu ?
>
> Za nakopnuti spravnym smerem dekuji.
> Ladap
>
Dynamicke vytvoreni formu
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.10.2000 07:28:44
> nevim si rady s timto: mam zalozen hlavni form, ze ktereho pomoci
> CreateNew vytvarim dynamicke formy s tim, ze predem nevim, kolik
> jich bude (jako nap�. v Outlook Express, kde muze byt otevren
> libovolny pocet zprav). Ale nevim, jak udelat, abych z hlavniho
> formu ty dynamicky otevrene ovladal, napr. zavrit nebo urcit
> vlastnosti. Dale nevim, jak priradit do vlastnosti dyn. formu
> nejakou komponentu, napr. PopupMenu:=MyPopup; prekladac mi hlasi,
> ze typ MyPopup neni definovan.
>
> Zde uvadim cast kodu, v podstate jsem to opsal podle MessageDlg:
>
> type
> TFNew=class (TForm)
> Txt: TMemo;
> MyPopup: TPopupMenu;
> public
> constructor CreateNew (AOwner: TComponent); reintroduce;
> end;
>
> constructor TFNew.CreateNew (AOwner: TComponent);
> begin
> inherited CreateNew(AOwner);
> end;
>
> function Nova (Zleva, Zhora:Integer): TForm;
> begin
> Result:=TFNew.CreateNew (Application);
> with Result do
> begin
> Width:=100;
> Height:=100;
> Left:=Zleva;
> Top:=Zhora;
> Caption:=Application.Title;
> with TMemo.Create (Result) do
> begin
> Name:='Txt';
> Parent:=Result;
> end;
> end;
> end;
>
> procedure TFMain.Button1Click (Sender: TObject);
> begin
> Nova (100, 100).Show;
> end;
>
>
> Za kazdou radu budu moc vdecny
> Tomas Velek
Ahoj,
musis si hodnoty vracene funkci Nova nekde schovavat, napriklad v
poli ci jine vhodne strukture (obsahujici polozky typu TFNew). Pres
tuto strukturu pak muzes s jednotlivymi formy pracovat.
Proc funkce Nova vytvari memo? To je prece uloha pro
konstruktor.
David
Priklad DB aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 7.10.2000 07:52:51
Hi all,
pokud si to spravne pamatuji, tak v konferenci cas od casu zazni nazor, ze
by se pri praci s SQl serverem nemely pouzivat DBaware komponenty, ale delat
vse pres SQL. Souhlasim - v backoffice aplikacich to tak delame.
Ale pro sveho anglicky mluviciho kolegu bych potreboval nejakou vzorovou
klientskou aplikaci, ktera je napsana timto stylem. Nemate nekdo kus neceho,
co byste mi mohli poskytnout? Stacil by link na nejake existujici demo.
Thanx, pf
pripojeni DbGrid na 2 tabulky?
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 7.10.2000 07:55:22
Ahoj, diky, ale neni to presne ono: potrebuji zobrazit pole z obou tabulek v jednom gridu. Poradite?
Diky Petr
p.mohapl(zv)nemstbk(tec)cz
From: Michal Tiller Nu. Jedna Table nab�z� sv� data p�ez DataSource, na kter� lze napojit DBGrid, MasterSource jin� tabulky a mnoho dal��ch component. Ale abys mohl pou��t data z druh� Table, je pot�eba na ni napojit druh� DataSource, kter� bude nab�zet jej� data. Na nej pak lze napojit druh� DBGrid.
S pozdravem
Velikost pisma ve Windows
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 7.10.2000 08:36:30
ahoj,
nezjistuj velikost pisma, ale nastav pismo tak, aby se ti nemenilo. Do Fontu
nastav nejaky TrueType font (napr. TTTimesNewRoman ci neco takoveho) a zmeny
pisma uz te nezajimaji ...
Jinak tenhle problem uz tu byl resen: staci zalistovat archivem.
zdravim petr
p.mohapl(zv)nemstbk(tec)cz
----- Original Message -----
From: Martin Pavera <martin.pavera(zv)cmail(tec)cz>
To: Delphi konference <delphi-l(zv)fwd(tec)cz>
Sent: Monday, November 06, 2000 11:13 PM
Subject: Velikost pisma ve Windows
> Zdravim,
>
> mam jeden problem.
> Jde nejak zjistit nasledujici udaj z Windows, ktery se jmenuje
> "VELIKOST PISMA" ?
> V Ovladacich panelech / Obrazovka / Upresnit / zmacknete
> button Upresnit. Objevi se okno vlastnosti graficke karty.
> V liste Obecne je ramecek Obrazovka a v nem je udaj "VELIKOST
> PISMA". Potrebuji tento udaj zjistit, protoze kdyz si nekdo
> nastavi treba "Velka pisma", tak moje aplikace napsane v
> Delphi vypadaji hrozne. Vsechny prvky ve formularich se
> zvetsi, ale samotny formular ne a tak najednou nejdou vsechny
> prvky videt.
>
> Prosim o radu, jak tento problem resit.
>
> Diky
> Martin Pavera
Delphi 5 Profesional a Oracle 8
[*] Jan Vild <JanVild(zv)seznam(tec)cz> - 07.10.2000 08:41:27
Hezky den preji,
byl by nekdo ochotny mi poradit, jake kroky mam provest, abych prevedl data z tabulky (TStringGrid) v D5 do Oracle 8. Chvili uz
se o to pokousim a stale delam neco spatne.
Diky za kazdou radu
Honza
OT: Nabidka spoluprace
[*] Ota Maly <maly(zv)space(tec)cz> - 7.10.2000 08:48:45
Ahoj,
hledame programatora ovladajiciho Delphi na slusne urovni.
- znalost databazoveho prostredi nutna, alespon BDE
- znalost Interbase vyhodou, nikoli nutnosti
Spoluprace by mela trvat minimalne do konce roku a nejspis i zacatkem
pristiho. Projekt bude vyvijen v prostredi Delphi 5 Professional + Interbase
6 a pobezi na siti.
Pro podrobnejsi informace me kontaktujte na soukr. mailu
mailto:maly(zv)space(tec)cz.
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
GetPrinter z unitu WinSpool
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 7.10.2000 09:01:58
Zarazil ma ten Status lebo vo vypise bol rovny nule co nezodpovedalo ziadnej
z definovanych konstant
v unite WinSpool a ktorym (alebo ich suctu) by sa mal Status rovnat. Su to
PRINTER_STATUS_PAUSED az PRINTER_STATUS_POWER_SAVE. Preto som si myslel ze
dany kod ma niekde chybu. No zaraza ma ze Status je rovny nule pri
lubovolnej cinnosti s tlaciarnou. Podla mna by sa mal Status menit. Neviete
ako si s tym poradit?
Dakujem Marian
>> Potrebujem poradit z funkciou GetPrinter z unitu WinSpool
>> Chcel som zistit stav tlaciarne popripade dalsie informacie,
>> ktore su v
>> datovej strukture TPrinterInfo2. Medzi inymi informaciami je tam aj
>Status.
>> Nedari sa mi vsak spravne zavolat funkciu GetPrinter.
>> Ako mam zadefinovat premennu buffer, resp aka ma byt jej alokovana
velkost
>> ked
>> v napovede sa pise ze je to:
>> DWORD cbBuf, // size, in bytes, of array of bytes
>>
>> Kde mam vlastne chybu??? Poradte zufalcovi:-((((((
>> Tu je moj postup:
>>
>>
>> uses Printers, WinSpool;
>>
>> procedure TForm1.Button1Click(Sender: TObject);
>> var PrinterInfo, Buffer: PChar;
>> Count: DWORD;
>> hPrinter, D3: THandle;
>> PrinterName: array[0..cchDeviceName] of Char;
>> D1, D2: array[0..MAX_PATH] of Char;
>> begin
>> with Printer do
>> begin
>> GetPrinter(PrinterName, D1, D2, D3);
>> (* zistim handle tlaciarne - hPrinter*)
>> Win32Check(OpenPrinter(PrinterName, hPrinter, nil));
>> end;
>> (* zistim potrebnu velkost struktury PrinterInfo2 aspon si to myslim -
>> count*)
>> Winspool.GetPrinter(hPrinter,2,nil,0,(zv)Count);
>> (* alokujem danu velkost a neviem ci je to spravne*)
>> GetMem(Buffer, Count);
>> try
>> win32check(Winspool.GetPrinter(hPrinter,2,Buffer,Count,(zv)Count));
>> PrinterInfo := Buffer;
>> with PPrinterInfo2(PrinterInfo)^ do begin
>> ShowMessage(IntToStr(Status));
>> end;
>> finally
>> FreeMem(Buffer, Count);
>> end;
>> end;
>>
>
>A v cem je vlastne ten problem? Vzdyt tak jak to je napsane to funguje.
>Mozna je to zbytecne prekombinovane s temi ukazately, sta�ilo by misto
>
>var PrinterInfo, Buffer: PChar;
>
>pouzit primo:
>var PrinterInfo: PPrinterInfo2;
>...
> GetMem(PrinterInfo, Count);
>...
> ShowMessage(IntToStr(PrinterInfo^.Status));
>...
> FreeMem(PrinterInfo, Count);
>
>
>ale jinak to v zasade funguje spravne.
>
>Vaclav Krmela
>
>
>Vzdalena sprava IB6
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 7.10.2000 09:04:43
Videl jsem utilitu na spravu celeho PC (Neco na zpusob terminaloveho
pristupu, ale tim
rozdilem, ze server ma jen jeden terminal). dobre i na spravu PC v
podnikove siti.
Bohuzel si nemohu vzpomenou jak se jmenuje.
Snad by mohl pomoci nekdo jiny.
Slavek
>
> DD,
> vim, ze uz se zde na podobne tema hovorilo, s tim, ze kvuli bezpecnosti
to mozne neni. Presto by me ale zajimalo, zda skutecne neni mozne spravovat
IB6 databazi nejakym nastrojem s prislusnymi pravy z klientskeho pocitace.
> Dekuji za pripadne napady.
> Martin
> ---
> Odchozi zprava neobsahuje viry.
> Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.198 / Virova baze: 95 - datum vydani: 4.10.2000
> PageControl
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 07.10.2000 09:05:37
Zdravim,
mam takovyto problem: pouzivam komponentu PageControl. Na ni jsou dva listy. Na techto listech jsou dalsi komponenty.
Pri pouziti klaves Ctrl+Tab preskoci na druhy list. Pri dalsim pouziti skoci na prvni list (to je OK), ale fokus dostane prvni komponenta na liste. Ja bych potreboval aby fokus dostala komponenta, ktera byla aktivni pri opusteni teto stranky.
Pokousel jsem se "odchytit" tyto dve klavesy. Ale nejak se mi zatim nedari.
Muzete mi nekdo pomoci?
Predem diky za odpovad.
Mirek Drejcek.
Dynamicke vytvoreni formu
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 7.10.2000 09:06:01
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj. J� bych to d�lal takto:
-----Original Message-----
From: Tom� Velek [ <mailto:TVelek(zv)seznam(tec)cz> mailto:TVelek(zv)seznam(tec)cz]
Sent: Monday, November 06, 2000 11:25 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Dynamicke vytvoreni formu
Zdrav�m v�echny,
nevim si rady s timto: mam zalozen hlavni form, ze ktereho pomoci
CreateNew vytvarim dynamicke formy s tim, ze predem nevim, kolik jich bude
(jako nap�. v Outlook Express, kde muze byt otevren libovolny pocet zprav).
Ale nevim, jak udelat, abych z hlavniho formu ty dynamicky otevrene ovladal,
napr. zavrit nebo urcit vlastnosti.
Dale nevim, jak priradit do vlastnosti dyn. formu nejakou komponentu,
napr. PopupMenu:=MyPopup; prekladac mi hlasi, ze typ MyPopup neni
definovan.
Zde uvadim cast kodu, v podstate jsem to opsal podle MessageDlg:
type
TFNew=class (TForm)
Txt: TMemo;
MyPopup: TPopupMenu;
public
constructor Nova (Zleva, Zhora:Integer);
end;
constructor Nova (Zleva, Zhora:Integer);
begin
Self := TFNew.Create(Application);
with Result do
begin
Width:=100;
Height:=100;
Left:=Zleva;
Top:=Zhora;
PopupMenu:=MyPopup;
Caption:=Application.Title;
with TMemo.Create (Result) do
begin
Name:='Txt';
Parent:=Result;
end;
end;
end;
procedure TFMain.Button1Click (Sender: TObject);
begin
Pridej(Nova (100, 100).Show);
end;
V mainu by m�lo b�t pole form�, kam by se p�id�vali nov� formy metodou
P�idej a p�i Close formu by se z Mainu zase odhl�sil. Posledn� by se za�adil
na jeho m�sto v poli a po�et by se zmen�il. Ovl�d�n� by pak bylo p�ez to
pole.
S pozdravem
<mailto:Michal.Tiller(zv)oskarmobil.Cz%20%20%20%20%20:o)>
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327<?xml:namespace prefix = o ns =
"urn:schemas-microsoft-com:office:office" />
Za kazdou radu budu moc vdecny
Tomas Velek
Sireni aplikace s IBX
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.10.2000 09:14:06
Ahoj,
mam aplikaci pouzivajici IB6 server - vybudovanou pomoci IBX. Rad
bych ji spoustel na pocitacich, kde neni IBClient. Lze to vubec a co
musim tedy s aplikaci sirit?
Zkousel jsem samotne GDS32.dll, ale to nestaci.
Dik,
David
pripojeni DbGrid na 2 tabulky?
[*] Ivo.Herles(zv)pvt(tec)cz - 7.10.2000 09:24:32
S timto problemem jsme se take jiz setkali. Resime ho pres CalcFields. Do
DbGridu napojime DataSet, ktery mimo vlastnich polozek obsahuje kopie
polozek z dalsich DataSetu jako Calculated. Potom se v OnCalcField naplni
tyto plozky napr takto:
procedure TDataModule.SqlDotazPomCalcFields(DataSet: TDataSet);
var
I: Integer;
begin
SqlDotaz.Open;
try
for i := 0 to SqlDotaz.FieldCount - 1 do
if
(SqlDotazPom.FieldByName(SqlDotaz.Fields[i].FieldName).FieldKind=fkCalculate
d) then
SqlDotazPom.FieldValues[SqlDotaz.Fields[i].FieldName]:=
SqlDotaz.Fields[i].AsVariant;
finally
SqlDotaz.Close;
end;
end;
kde
SqlDotazPom je master
SqlDotaz je detail
Delphi 3 C/S, Win NT 4.0 SP5, Informix DS 7.3
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
-----P�vodn� zpr�va-----
Od: Petr Mohapl [mailto:p.mohapl(zv)nemstbk(tec)cz]
Odesl�no: 6. listopadu 2000 14:42
Komu: Delphi konference
P�edm�t: pripojeni DbGrid na 2 tabulky?
Ahoj vsichni,
D4:
mam 2 paradoxni tabulky svazane spolu (pres MasterSource, Master Field) a
DBGrid, kterym koukam do jedne z nich. Urcite jde nejak jednoduse koukat do
obou zaroven, ale neprisel jsem na to jak. Poradi nekdo?
Diky
Petr Mohapl
AutoInc
[*] Ren� Otisk - 7.10.2000 09:29:14
> > > > > Mat v poistovni zaznamy bez toho, aby si vedel od koho su,
> > > > > nie je najstastnejsie riesenie. Predpokladam, ze poistovna si
> > > > > vytvori ciselnik agentov, kde si ich bude evidovat.
> > > >
> > > > Drobny detail, _predem_ nevis. Tedy nevis to v dobe navrhu
> > > > programu ani v dobe jeho zavadeni.
> > >
> > > Co predom neviem, snad nie obsah tabuliek?
> >
> > Kolik bude agentu.
>
> Agentov je presne tolko, kolko viet je v ciselniku. Pocet
> agentov v buducnosti sa da asi len vycitat z hviezd.
>
A nebo z kouli
Sroub
pripojeni DbGrid na 2 tabulky?
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 7.10.2000 09:35:33
Neviem ci som to dobre pochopil, ale chces nieco take
Table1 ma trebars stlpce A1, B1, C1...
Table2 ma stlpce A1 (toto je odkaz na master), A2, B2, C2...
A ty chces zobrazit v jednej gride stlpce A1, B1, C1, A2, B2, C2 ... pre
vsetky riadky Table2
na toto mozes pouzit TQuery s SQL prikazom JOIN (co asi nechces)
alebo TTable a Lookup stlpce - zapni si fields editor na Table2, pridaj
vsetky stlpce (Add all fields),
a potom na vytvorenie stlpcov stlpcov B1 a C1 pouzi prikaz New field
Name - nazov stlpca, moze byt hocijaky, trebars B1 :-)
Type - typ stlpca - musi byt rovnaky ako je v tabulke Table1
Field type - Lookup - odkazovy stlpec
Key fields - stlpec (stlpce) Table2 definujuci vztah Table1 a Table2 - teda
A1
Dataset - odkazovana tabulka - Table1
Lookup Keys - stlpec Table1 odpovedajuci stlpcu z Table2 v Key fields - teda
opat A1
Result field - stlpec Table1, ktory sa ma pridat do Table2 - to znamena B1
podobne pre dalsie stlpce
potom napojis DBGrid-u normalne na Table2 a mas tam hodnoty z dvoch tabuliek
Ale ak chces nieco ine, tak potom sorry.pripojeni DbGrid na 2 tabulky?
[*] Ren� Otisk - 7.10.2000 09:39:42
V tom pripade si udelej SELECT z obou tabulek najednou a mas to, co jsi chtel. Z principu nejde do jednoho gridu nacpat dva zdroje dat.
Sroub
----- Original Message -----
From: Petr Mohapl
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, November 07, 2000 7:55 AM
Subject: Re: pripojeni DbGrid na 2 tabulky? Ahoj, diky, ale neni to presne ono: potrebuji zobrazit pole z obou tabulek v jednom gridu. Poradite?
Diky Petr
p.mohapl(zv)nemstbk(tec)cz
From: Michal Tiller Nu. Jedna Table nab�z� sv� data p�ez DataSource, na kter� lze napojit DBGrid, MasterSource jin� tabulky a mnoho dal��ch component. Ale abys mohl pou��t data z druh� Table, je pot�eba na ni napojit druh� DataSource, kter� bude nab�zet jej� data. Na nej pak lze napojit druh� DBGrid.
S pozdravem
Jak uzamknout zaznam (Paradox)
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 7.10.2000 09:40:06
(Delphi5Prof, BDE, Paradox)
Ahoj..
Mam ciselnik zamestnancu, ktery vybiram pomoci SQL dotazu. Pri zmene udaju
pouzivam UpdateSQL..
Aplikace ma byt sitova....takze potrebuji hlidat jestli u daneho editovaneho
zamestnance prave neprovadi
zmenu nekdo jiny. Aby se mi to nejak zamklo.....
Asi tak jak to funguje pri primem napojeni na TTable.....Record is locked by
another user..nebo tak nejak..
Nutne bych potreboval pomoct, MOC DEKUJI
Dalibor
MS SQL 7.0
[*] KadaneM(zv)sdc.pce.cdrail(tec)cz - 7.10.2000 10:00:07
Sna��m se ud�lat program s pomoc� MS SQL Serveru 7.0 a v DELPHI 5profesional
bych pot�eboval p�ipojit datab�zi, ale abych na klienta nemusel instalovat
BDE. Nem�te n�kdo n�jakou free komponentu?
P�edem d�k
S pozdravem
Miroslav Kadan�
Velikost pisma ve Windows
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 7.10.2000 10:12:35
Dovolim si nesuhlasit - ten prepinac je tam prave na zmenu velkosti
systemoveho fontu
v aplikaciach a ak by sa vsetky spravali podla tvojej rady tak by bol takmer
zbytocny.
Ja som pri tvorbe aplikacii nikdy problem s prepnutymi malymi / velkymi
fontami nemal
bez toho, aby som to niekde zistoval a nieco podla toho specialne
nastavoval.
1. Velkost formularov typu Dialog sa automaticky prisposobuje velkosti
pisma, takze pri
nich nie je co riesit - a ak ma mat formular tvar dialogu (to znamena s
pevnym rozmiestnenim
jednotlivych prvkov a tlacitok) tak ho predsa nebudem navrhovat ako Normal -
neviem si
predstavit aky vyznam by malo umoznit zmenu velkosti u takehoto formularu.
2. Pri inych formularoch pouzivam zarovnavanie (Align) - obvykle jeden Panel
Align = alTop
s ovladacimi tlacidlami a prvkami, jeden TTreeView vlavo s Align = alLeft,
jeden ListView alebo
StringGrid Align = alClient vo zvysku obrazovky a jeden StatusBar dole Align
= alBottom
- typicky vzhlad Windows Exploreru. Jedine, co je potrebne je potom navrhnut
cely formular
dostatocne velky aby pouzitelny v oboch velkostiach (a pripadne este pouzit
Constrains).
Aj komplikovanejsie formulare som doteraz dokazal navrhnut bez toho, aby s
nimi boli problemy,
pri zmene velkosti pisma.
S formularom, ktory by nevyhovoval ani prvemu, ani druhemu typu som sa
zatial nestretol (lepsie
povedane som ho doteraz nepotreboval vytvorit).
> ahoj,
> nezjistuj velikost pisma, ale nastav pismo tak, aby se ti nemenilo. Do
Fontu
> nastav nejaky TrueType font (napr. TTTimesNewRoman ci neco takoveho) a
zmeny
> pisma uz te nezajimaji ...
> Jinak tenhle problem uz tu byl resen: staci zalistovat archivem.
> zdravim petr
> p.mohapl(zv)nemstbk(tec)cz
>
>
> ----- Original Message -----
> From: Martin Pavera <martin.pavera(zv)cmail(tec)cz>
> To: Delphi konference <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, November 06, 2000 11:13 PM
> Subject: Velikost pisma ve Windows
>
>
> > Zdravim,
> >
> > mam jeden problem.
> > Jde nejak zjistit nasledujici udaj z Windows, ktery se jmenuje
> > "VELIKOST PISMA" ?
> > V Ovladacich panelech / Obrazovka / Upresnit / zmacknete
> > button Upresnit. Objevi se okno vlastnosti graficke karty.
> > V liste Obecne je ramecek Obrazovka a v nem je udaj "VELIKOST
> > PISMA". Potrebuji tento udaj zjistit, protoze kdyz si nekdo
> > nastavi treba "Velka pisma", tak moje aplikace napsane v
> > Delphi vypadaji hrozne. Vsechny prvky ve formularich se
> > zvetsi, ale samotny formular ne a tak najednou nejdou vsechny
> > prvky videt.
> >
> > Prosim o radu, jak tento problem resit.
> >
> > Diky
> > Martin Pavera
pripojeni DbGrid na 2 tabulky?
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 7.10.2000 10:26:14
> Ahoj, diky, ale neni to presne ono: potrebuji zobrazit pole z obou tabulek v jednom gridu. Poradite?
>
> Diky Petr
> p.mohapl(zv)nemstbk(tec)cz
>
> From: Michal Tiller
>
>
> Nu. Jedna Table nab�z� sv� data p�ez DataSource, na kter� lze napojit DBGrid, MasterSource jin� tabulky a mnoho dal��ch component. Ale abys mohl pou��t data z druh� Table, je pot�eba na ni napojit > S pozdravem
>
>
>
Podle situace zrejme do podrizene tabulky pridas pole z master
nejlepe jako lookup.
Milan Dvo��k
dvorak(zv)gymzn(tec)cz
komponenta s moznosti kresleni ramecku kolem textu
[*] Garalda <garalda(zv)mail(tec)cz> - 7.10.2000 10:28:03
> na kresleni ramecku se da pouzit funkce DrawEdge(hdc, rect, edgetype,
> bordertype)
>
Diky, ale to bohuzel neni presne to co jsem si predstavoval. Ja se pokusim
to popsat presneji. Jde mi o neco nasledujiciho
+-----------------------------------+
| nejaky text: adjhak |
| dalsi text |
+-----------------------------------+
| sloupec1 sloupec2 sloupec3 |
+-----------------------------------+
| data1 data2 data3 |
| data1 data2 data3 |
| data1 data2 data3 |
+-----------------------------------+
| Celkem: xxx |
+-----------------------------------+
S tim, z tech dat samozrejme muze byt vice, takze nemusi byt vse videt (na
boku je scrollbar) a uzivatel si muze ten text editovat. Zadne slozite
tabulky, jen cary na boku a obcas pres cely radek. No ale pokud nikdo o
nicem nevite, muzete mi prosim doporucit trebo i nejakou komponentu, ktera
umi zobrazovat a editovat tabulky. TStringGrid myslim zobrazi cary bud
vsude, nebo nikde.
> >
> > rad bych vas pozadal o radu. Potrebuji uzivateli zobrazit nejaky text v
> > ramecku, jde v podstate o ukazku pred tiskem, kde si uzivatel muze
> provadet
> > zmeny primo v textu drive nez to posle na tiskarnu. Nepotrebuji zadne
> > slozite editory. Ten text je v jednom typu pisma a v jedne velikosti.
Jen
> je
> > problem tam dostat ty ramecky. TMemo to neumi u TRichEditu jsem to taky
> > nenasel. Zkousel jsem jeste TTextListBox a RXRichEdit z RX komponent,
ale
> > ani tam jsem to nenasel. Momentalne jedina vec co mne napadla jak tam
> dostat
> > ten ramecek, je vzit TListBox a predelat udalost OnDrawItem, jenze pak
> zase
> > prijdu o moznost editace. Nevite nekdo jak to udelat nebo kde by se dala
> > sehnat komponenta s odpovidajicimi vlastnostmi?
> >
Dekuji
Garalda
Delphi 5 Profesional a Oracle 8
[*] tomas.mazurek(zv)vitkovice(tec)cz - 7.10.2000 09:34:41
Hello,
>byl by nekdo ochotny mi poradit, jake kroky mam provest, abych prevedl
>data z tabulky (TStringGrid) v D5 do Oracle 8. Chvili uz
..hm, to jsi toho moc nenapsal. Hlavne jakym zpusobem se konektujes k
Oracle. Kdyz mas D5 Prof. tak asi ne pres BDE a nativni link. Jinak
komponent pro primy pristup do Oracle bez nutnosti BDE a tudiz i D5
Entr. je spousta komercnich i free... Ja zacinam pouzivat:
http://www.ncom.ru/diman/index.html
Musis samozrejme mit na PC prislusny SQLNET, tj. nejakeho
oraclovskeho klienta. Pokud se uspesne pripojis k Oracle pak uz
nevidim problem...
TM
Velikost pisma ve Windows
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 7.10.2000 10:34:14
Dovolim si nesuhlasit - ten prepinac je tam prave na zmenu fontu a ak by
vsetky aplikacie
pouzivali vlastne fonty, bol by asi zbytocny.
Ja som problem velkeho / maleho pisma v aplikaciach nijako specialne
neosetroval (ak nepocitam
spustenie a odskusanie aplikacie aj vo velkom pisme) a az na drobne upravy
velkosti formularov
som to ani nikdy nepotreboval. Aplikacie sa obvykle pouzivaju v rozliseni
800 x 600 a small fonty
alebo 1024 x 768 a large fonty a rozhodne nepotrebujem vytvarat nejaky
specialny osetrovaci kod
alebo dokonca osobitne verzie.
1. Formulare, ktore maju vyzerat ako dialogy (maju mat pevne rozvrhnute
prvky a tlacidla) ako dialogy
aj navrhnem (BorderStyle = bsDialog). Taketo formulare sa potom automaticky
prisposobia velkosti pisma.
2. Ostatne formulare vytvaram pomocou zarovnavanych oblasti - obvykle jeden
alebo viac Panel-ov Align = alTop,
jeden TTreeView s Align = alLeft, jeden ListView alebo StringGrid Align =
alClient a pripadne este jeden StatusBar
Align = alBottom (ako Windows Explorer). Ak by som potreboval nieco
komplikovanejsie, vychadzam z tohto zakladneho
rozmiestnenie doplneho o panely s vlastnym rozmiestnenim prvkov. Cely
formular ma potom taku zakladnu velkost, aby
umoznoval svoje pouzivanie aj v jednom aj druhom nastaveni.
Doteraz som nepotreboval (a verim tomu, ze ani nebudem potrebovat) navrhnut
formular, ktory by nevyhovoval prvej
alebo druhej kategorii a po spusteni takejto aplikacie, ktoru som navrhoval
so small fontami s nou nikdy nebol ziaden
problem po prechode na large fonty alebo pri zmene rozlisenia (aj ked je
mozne, ze v 640 x 480 by sa uz niektore formulare
pouzivali dost tazkopadne).
----- Original Message -----
From: Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 07, 2000 8:36 AM
Subject: Re: Velikost pisma ve Windows
> ahoj,
> nezjistuj velikost pisma, ale nastav pismo tak, aby se ti nemenilo. Do
Fontu
> nastav nejaky TrueType font (napr. TTTimesNewRoman ci neco takoveho) a
zmeny
> pisma uz te nezajimaji ...
> Jinak tenhle problem uz tu byl resen: staci zalistovat archivem.
> zdravim petr
> p.mohapl(zv)nemstbk(tec)cz
>
>
> ----- Original Message -----
> From: Martin Pavera <martin.pavera(zv)cmail(tec)cz>
> To: Delphi konference <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, November 06, 2000 11:13 PM
> Subject: Velikost pisma ve Windows
>
>
> > Zdravim,
> >
> > mam jeden problem.
> > Jde nejak zjistit nasledujici udaj z Windows, ktery se jmenuje
> > "VELIKOST PISMA" ?
> > V Ovladacich panelech / Obrazovka / Upresnit / zmacknete
> > button Upresnit. Objevi se okno vlastnosti graficke karty.
> > V liste Obecne je ramecek Obrazovka a v nem je udaj "VELIKOST
> > PISMA". Potrebuji tento udaj zjistit, protoze kdyz si nekdo
> > nastavi treba "Velka pisma", tak moje aplikace napsane v
> > Delphi vypadaji hrozne. Vsechny prvky ve formularich se
> > zvetsi, ale samotny formular ne a tak najednou nejdou vsechny
> > prvky videt.
> >
> > Prosim o radu, jak tento problem resit.
> >
> > Diky
> > Martin Pavera
Cisla v pevne radove carce
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.10.2000 10:37:37
Ahoj,
ve sve aplikaci bych potreboval pouzivat cisla v pevne radove carce
s 7 nebo radeji vice desetinnymi misty. Nemate nekdo nejakou
knihovnu, objekt apod. pro praci s takovymi cisly?
Dekuji.
David
OT:Presmerovanie LPT do txt-suboru
[*] Lauko �tefan <lauko(zv)salamon.sk> - 7.10.2000 10:40:58
Ahoj,
nemate niekto nahodou odkaz na nieco co by mi pomohlo vyriesit problem
presmerovanie LPT-portu do suboru.
DOS program nie je mozne menit - upravit tlac do suboru.
Aby DOS program beziaci v prostredi Win pri tlaci na LPT zapisal text do
suboru.
Najlepsi by bol programcek v Delphi beziaci v pozadi nie rezident pre DOS.
Este lepsi by bol link na nieco podobne ako ovladac tlaciarne v ktorom by
bolo mozne filtrovat DOS print job do txt.
Alebo navod na vyrobu takeho drivera.
Prosim pomozte.
Lauko.
IP adresy
[*] Mik Radim <mik(zv)oce(tec)cz> - 7.10.2000 10:46:15
1. Nastavit IP adresu na nejakou hodnotu
2. Tuto hodnotu najit v registracni databazi
3. Vyexpotrtovat dany popdstrom do souboru.
4. Nastavit DHCP adresu.
5. Vyexportovat z registracni databaze dany podstrom jako v bode 3.
6. Upravit autoexec.bat a config.sys do podoby [MENU]menuitems=...
Pricemz v danych volbach nastavis volani programu regedit /c jmeno souboru z
bodu 3 nebo 4.
Za tu volbu /c 100%nerucim
---------------------------------------
Radim Mik, SyCo DPS
> Zdrav�m v�echny,
> m�m jeden probl�m s IP adresou. M�m notebooka a pou��v�m ho ve
> s�t�ch. V jedne z�sk�v�m adresu z DHCP a v druh� m�m pevn�
> p�id�lenou. Lze
> n�jak�m zp�sobem p�ed startem nebo p�i startu Windows (98) nab�dnout
> konfiguraci
> IP, tak abych nemusel poka�d�, kdy� p�ech�z�m z jedn� s�t� do druh� IP
> adresu m�nit
> a pak restartovat po��ta�. Nebo bych alespo� r�d v�d�l kam a
> jak se ukl�d�
> konfigurace
> IP.
>
> S pozdravem F. Str�n�k.
> PageControl
[*] Ren� Otisk - 7.10.2000 11:13:31
Ja to delam tak, ze na OnChange povesim ActiveControl a pri OnChanging ji priradim Focus...
Sroub
----- Original Message -----
From: Mirek Drej�ek
To: Konference Delphi
Sent: Tuesday, November 07, 2000 9:05 AM
Subject: PageControl
Zdravim,
mam takovyto problem: pouzivam komponentu PageControl. Na ni jsou dva listy. Na techto listech jsou dalsi komponenty.
Pri pouziti klaves Ctrl+Tab preskoci na druhy list. Pri dalsim pouziti skoci na prvni list (to je OK), ale fokus dostane prvni komponenta na liste. Ja bych potreboval aby fokus dostala komponenta, ktera byla aktivni pri opusteni teto stranky.
Pokousel jsem se "odchytit" tyto dve klavesy. Ale nejak se mi zatim nedari.
Muzete mi nekdo pomoci?
Predem diky za odpovad.
Mirek Drejcek.
GetPrinter z unitu WinSpool
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 7.10.2000 11:47:57
From: "Mari�n Goryl" <goryl(zv)insdata.sk>> Zarazil ma ten Status lebo vo vypise bol rovny nule co nezodpovedalo
ziadnej
> z definovanych konstant
> v unite WinSpool a ktorym (alebo ich suctu) by sa mal Status rovnat. Su to
> PRINTER_STATUS_PAUSED az PRINTER_STATUS_POWER_SAVE.
> Preto som si myslel ze
> dany kod ma niekde chybu. No zaraza ma ze Status je rovny nule pri
> lubovolnej cinnosti s tlaciarnou. Podla mna by sa mal Status menit.
Neviete
> ako si s tym poradit?
>
> Dakujem Marian
>
Status = 0 znamena, ze tiskarna pracuje normalne.
Na WinNT/2000 lze dosahnout Status = 1 = PRINTER_STATUS_PAUSED ,
pokud je tiskarna pozastavena volbou Tiskarna / Pozastavit tisk.
Ostatni hodnoty pujdou asi jenom na Win95/98.
Viz help PRINTER_INFO_2.
Vaclav Krmela
PageControl
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 7.10.2000 11:59:36
Mozna by slo vzdy pri OnHide kazdeho (resp. toho u ktereho to potrebujes) listu (TTabSheet) nekam ulozit udaj, ktera komponenta mela fokus a pri OnShow ji ten fokus vratit.
Jirka Matejka
jiri.matejka(zv)stemmark(tec)cz
-----P�vodn� zpr�va-----
Od: Mirek Drej�ek [SMTP:drejcek(zv)schkocr(tec)cz]
Odesl�no: 7. listopadu 2000 9:06
Komu: Konference Delphi
P�edm�t: PageControl
Zdravim,
mam takovyto problem: pouzivam komponentu PageControl. Na ni jsou dva listy. Na techto listech jsou dalsi komponenty.
Pri pouziti klaves Ctrl+Tab preskoci na druhy list. Pri dalsim pouziti skoci na prvni list (to je OK), ale fokus dostane prvni komponenta na liste. Ja bych potreboval aby fokus dostala komponenta, ktera byla aktivni pri opusteni teto stranky.
Pokousel jsem se "odchytit" tyto dve klavesy. Ale nejak se mi zatim nedari.
Muzete mi nekdo pomoci?
Predem diky za odpovad.
Mirek Drejcek.
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
<<Soubor: ATT00007.htm>>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
MS SQL 7.0
[*] Ren� Otisk - 7.10.2000 12:29:56
Hi,
Podivej se v Archivu Delphi konference na odkaz ODBCe komponent. Pouzivam je
temer rok a bez problemku. E-mail na autora: fule(zv)sct.sk nebo
fule(zv)mail.sct.sk. Pokud by ti nekdo navrhoval mODBC, tak od toho utec. Umi
jen staticke kurzory. Jinak na netu se vali nekolikere. Na strankach
borlandu mas nekolik odkazu
Sroub
Sna��m se ud�lat program s pomoc� MS SQL Serveru 7.0 a v DELPHI 5profesional
bych pot�eboval p�ipojit datab�zi, ale abych na klienta nemusel instalovat
BDE. Nem�te n�kdo n�jakou free komponentu?
P�edem d�k
S pozdravem
Miroslav Kadan�
Vzdalena sprava IB6
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 7.10.2000 12:54:22
>Videl jsem utilitu na spravu celeho PC (Neco na zpusob terminaloveho
>pristupu, ale tim
>rozdilem, ze server ma jen jeden terminal). dobre i na spravu PC v
>podnikove siti.
>Bohuzel si nemohu vzpomenou jak se jmenuje.
>Snad by mohl pomoci nekdo jiny.
Ahoj,
Na dialkovu spravu PC-cok po sieti som skusil Remote Administrator...
http://www.mtu-net.ru/radmin/
radmin(zv)mail.ru
Je to zatial najlepsie a najrychlejsie s cim som sa doteraz stretol. Facha
na W9x/NT4.0 a TCP/IP. Samozrejme nainstalovat ho na obidva kompy a mas
uplnu kontrolu nad strojom, akokeby si sedel fyzicky pri nom, ale nie je to
FREE :-(
Jano
pripojeni DbGrid na 2 tabulky?
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 7.10.2000 13:01:46
Pokud jde jen o zobrazeni a vazba je 1:1 tak pouzij LookUp fieldy.
> Ahoj, diky, ale neni to presne ono: potrebuji zobrazit pole z obou tabulek v jednom gridu. Poradite?
>
> Diky Petr
> p.mohapl(zv)nemstbk(tec)cz
>
> From: Michal Tiller
>
>
> Nu. Jedna Table nab�z� sv� data p�ez DataSource, na kter� lze napojit DBGrid, MasterSource jin� tabulky a mnoho dal��ch component. Ale abys mohl pou��t data z druh� Table, je pot�eba na ni napojit druh� DataSource, kter� bude nab�zet jej� data. Na nej pak lze napojit druh� DBGrid.
> S pozdravem
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Sireni aplikace s IBX
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 7.10.2000 13:03:15
Jeste se musi nastavit v services port a nahrat licence.
> Ahoj,
>
> mam aplikaci pouzivajici IB6 server - vybudovanou pomoci IBX. Rad
> bych ji spoustel na pocitacich, kde neni IBClient. Lze to vubec a co
> musim tedy s aplikaci sirit?
> Zkousel jsem samotne GDS32.dll, ale to nestaci.
>
> Dik,
>
> David
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
MS SQL 7.0
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.10.2000 13:04:39
> Sna��m se ud�lat program s pomoc� MS SQL Serveru 7.0 a v DELPHI
> 5profesional bych pot�eboval p�ipojit datab�zi, ale abych na klienta
> nemusel instalovat BDE. Nem�te n�kdo n�jakou free komponentu?
> P�edem d�k
> S pozdravem
> Miroslav Kadan�
Ahoj,
Zbysek ma nejake komponenty pro primy pristup pres OLE DB a
vim o komponentach, ktere osobne povazuji za dost dobre, od L.
Fuleho - ODBCe. Oboji je free, pokud nedoslo k nejake zmene,
odkazy najdes v archivu.
David
QReport
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 7.10.2000 13:31:18
Ahoj
Mam sestavu ve kterem pouzivam GroupHeader, GroupFooter....
Jak docilim toho, aby se mi na kazde strance vytiskly jenom tri skupiny
Nebo aby skupina, ktera by uz nevysla cela na stranku aby se tiskla na novou
Dik
Dalibor
MS SQL 7.0
[*] Campulka Jiri <campulka(zv)czas(tec)cz> - 7.10.2000 13:50:29
Nevim jestli existuje nejakej nativni pristup k MS SQL v Delphi, ale urcite by
se slo zbavit BDE skrz nejaky free ODBC komponenty, kterejch je dost.
hledej na www.torry.ru
nebo www.programmersheaven.com
campulka(zv)czas(tec)cz
----- Original Message -----
From: <KadaneM(zv)sdc.pce.cdrail(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 07, 2000 10:00 AM
Subject: MS SQL 7.0
> Sna��m se ud�lat program s pomoc� MS SQL Serveru 7.0 a v DELPHI 5profesional
> bych pot�eboval p�ipojit datab�zi, ale abych na klienta nemusel instalovat
> BDE. Nem�te n�kdo n�jakou free komponentu?
> P�edem d�k
> S pozdravem
> Miroslav Kadan�
>OT: Presmerovanie LPT do txt-suboru
[*] Robert Ehrenberger <robert.ehrenberger(zv)sprinx(tec)cz> - 7.10.2000 14:04:46
Co zkusit ovladac pro znakovou tiskarnu nastavit zachytavani uloh na LPT1 a
tisk presmerovat do soubru - v nastaveni ovladace tiskarny?
RE
-----Original Message-----
From: Lauko �tefan [mailto:lauko(zv)salamon.sk]
Sent: Tuesday, November 07, 2000 10:41 AM
To: Delphi CZ konferencia
Subject: OT:Presmerovanie LPT do txt-suboru
Ahoj,
nemate niekto nahodou odkaz na nieco co by mi pomohlo vyriesit problem
presmerovanie LPT-portu do suboru.
DOS program nie je mozne menit - upravit tlac do suboru.
Aby DOS program beziaci v prostredi Win pri tlaci na LPT zapisal text do
suboru.
Najlepsi by bol programcek v Delphi beziaci v pozadi nie rezident pre DOS.
Este lepsi by bol link na nieco podobne ako ovladac tlaciarne v ktorom by
bolo mozne filtrovat DOS print job do txt.
Alebo navod na vyrobu takeho drivera.
Prosim pomozte.
Lauko.
TCP-IP komunikace
[*] Jiri Dvorak <Jiri_Dvorak(zv)gordic(tec)cz> - 7.10.2000 14:29:47
Mam napsanou komunikaci pomoci soketu vcetne prenosu souboru.
-------------------------------------------------------------
Na strane klienta :
var Sck:TClientSocket;
Strm:TWinSocketStream;
begin
Sck:=TClientSocket.Create(nil);
Sck.ClientType:=ctBlocking;
Strm:=TWinSocketStream.Create(Sck.Socket,????);
end;
-------------------------------------------------------------
Na strane servru:
Nastavuju property TServerSocket.SetverType na stThreadBlocking
a veskerou komunikaci s klientem resim v "TServerClientThread"
Tento thread vytvarim v udalosti "TServerSocket.OnSocketGetThread"
V konstruktoru threadu
TServerClientThread.Create
Opet vytvorim steam
Strm:=TWinSocketStream.Create(ClientSocket,TIMEOUT);
-------------------------------------------------------------
Komunikace pak vypada takto:
Strm.Write(Buffer,BufferLen);
Strm.Read(Buffer,BufferLen);
-------------------------------------------------------------
Jirka Dvorak.
***************************************************************komponenta s moznosti kresleni ramecku kolem textu
[*] Jiri Dvorak <Jiri_Dvorak(zv)gordic(tec)cz> - 7.10.2000 14:37:33
Pouzij TStringGrid Nebo TDrawGrid vypni malovani (DefaultDrawing)
a maluj si carecky , cloupecky a jine opicky.
Jirka Dvorak
pripojeni DbGrid na 2 tabulky?
[*] Parizsky Ladislav <parizsky(zv)access-it(tec)cz> - 07.10.2000 14:48:00
Pokud tu tabulku chces jenom zobrazit pak pouzij TQuery a syntaxi:
SELECT T.Pole1, T.Pole2, N.Pole3, N.Pole4
FROM Tabulka1 T, Tabulka2 N
Takle to chodi ale nejde to editovat.
Ladap
>>> Kala(zv)atlas(tec)cz 7.11.00 13:01 >>>
Pokud jde jen o zobrazeni a vazba je 1:1 tak pouzij LookUp fieldy.
> Ahoj, diky, ale neni to presne ono: potrebuji zobrazit pole z obou tabulek v jednom gridu. Poradite?
>
> Diky Petr
> p.mohapl(zv)nemstbk(tec)cz
>
> From: Michal Tiller
>
>
> Nu. Jedna Table nab�z� sv� data poez DataSource, na kter� lze napojit DBGrid, MasterSource jin� tabulky a mnoho dal��ch component. Ale abys mohl pou �t data z druh� Table, je potoeba na ni napojit druh� DataSource, kter� bude nab�zet jej� data. Na nej pak lze napojit druh� DBGrid.
> S pozdravem
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Vzdalena sprava IB6
[*] Jan Diblik <jan.diblik(zv)lfmotol.cuni(tec)cz> - 7.10.2000 15:15:27
Ja presne na tohle pouzivam VNC.
http://www.uk.research.att.com/vnc/
Honza
> Videl jsem utilitu na spravu celeho PC (Neco na zpusob terminaloveho
> pristupu, ale tim
> rozdilem, ze server ma jen jeden terminal). dobre i na spravu PC v
> podnikove siti.
> Bohuzel si nemohu vzpomenou jak se jmenuje.
> Snad by mohl pomoci nekdo jiny.
>
> Slavek
>
> >
> > DD,
> > vim, ze uz se zde na podobne tema hovorilo, s tim, ze kvuli bezpecnosti
> to mozne neni. Presto by me ale zajimalo, zda skutecne neni mozne spravovat
> IB6 databazi nejakym nastrojem s prislusnymi pravy z klientskeho pocitace.
> > Dekuji za pripadne napady.
> > Martin
> > ---
> > Odchozi zprava neobsahuje viry.
> > Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.198 / Virova baze: 95 - datum vydani: 4.10.2000
> >
MS SQL 7.0
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 7.10.2000 15:21:29
On 7 Nov 2000, at 10:00, KadaneM(zv)sdc.pce.cdrail(tec)cz wrote:
> Sna��m se ud�lat program s pomoc� MS SQL Serveru 7.0 a v DELPHI
> 5profesional bych pot�eboval p�ipojit datab�zi, ale abych na klienta
> nemusel instalovat BDE. Nem�te n�kdo n�jakou free komponentu?
http://delphree.clexpert.com/pages/projects/oledb/default.htm
Ale neni to dosud zdokumentovane, a prace s tim je znacne
odlisna nez s BDE komponentami. Jo, a neni tam jeste dodelana
prace s memo polem, protoze jsem to zatim nepotreboval.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
MS SQL 7
[*] <mmaz(zv)centrum(tec)cz> - 07.10.2000 16:24:41
Uz existuji i nativni komponenty, zatim beta verze. Jestli je
nekdo chcete, napiste mi na muj mejl a ja vam je poslu.
Marcel M.
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
MS SQL 7.0
[*] �ejka Jan <Jan.Cejka(zv)merlin(tec)cz> - 7.10.2000 16:40:09
A potom je takz nejaka komponenta "BDE32". Tu staci pridat na formular a s
instalaci distribuovat v podadr. nejaky *.dll z BDE a normalne to chodi.
> -----P�vodn� zpr�va-----
> Od: Campulka Jiri [mailto:campulka(zv)czas(tec)cz]
> Odesl�no: 7. listopadu 2000 13:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: MS SQL 7.0
>
>
> Nevim jestli existuje nejakej nativni pristup k MS SQL v
> Delphi, ale urcite by
> se slo zbavit BDE skrz nejaky free ODBC komponenty, kterejch je dost.
>
> hledej na www.torry.ru
> nebo www.programmersheaven.com
>
> campulka(zv)czas(tec)cz
>
> ----- Original Message -----
> From: <KadaneM(zv)sdc.pce.cdrail(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, November 07, 2000 10:00 AM
> Subject: MS SQL 7.0
>
>
> > Sna��m se ud�lat program s pomoc� MS SQL Serveru 7.0 a v
> DELPHI 5profesional
> > bych pot�eboval p�ipojit datab�zi, ale abych na klienta
> nemusel instalovat
> > BDE. Nem�te n�kdo n�jakou free komponentu?
> > P�edem d�k
> > S pozdravem
> > Miroslav Kadan�
> >
> MS SQL 7.0
[*] Erik Salaj <winsoft(zv)napri.sk> - 7.10.2000 19:00:36
> Sna��m se ud�lat program s pomoc� MS SQL Serveru 7.0 a v DELPHI
5profesional
> bych pot�eboval p�ipojit datab�zi, ale abych na klienta nemusel instalovat
> BDE. Nem�te n�kdo n�jakou free komponentu?
Na http://www.kylecordes.com najdes rozne ADO komponenty. Co sa tyka free
komponentov, tak dolezita je aj kvalita a poskytovane moznosti, nielen cena
(oproti cene MS SQL Servera je cena beznych komponentov zanedbatelna).
Erik Salaj, WINSOFT
info(zv)winsoft.sk
Instalacia programu s BDE
[*] Ivan Dulgerov <idulgerov(zv)atlas(tec)cz> - 7.10.2000 19:05:29
Zdravim ucastnikov konferencie.
Mam problem pri instalovani aplikacie ktora pouziva BDE.
V Install SHield Express som pribalil k alplikacii balik "BDE", pri
kontrolnej instalacii na mojom
pocitaci vsetko funguje OK, pri instalovani na pocitac uzivatela ktory este
nema nainstalovany "BDE"
pri spusteni aplikacie hlasi chybu :" Ocurred while attemping to initialle
the BDE 3E06.
Prikladam "iwz" subor z projektu.
Prosim o popostrcenie.
Dakujem.
begin 666 Diar.iwz
M#0I;26YS=&%L;%-H:65L9"!7:7IA<F1=#0II1&%T93TQ#0II5&EM93TQ#0I&
M;&%G/3 -"DE36"Y%6$4(zv)4VEZ93TV,S W.#0-"DE36"Y%6$4(zv)1&%T93TQ,CHT
M,SHU,B (zv),C0N,BXQ.3DX#0I)4U(zv)N15A%(%9E<CTR+C N,"XQ-#,-"E-%5%50
M+D5812!3:7IE/30U,S$R#0I315154"Y%6$4(zv)1&%T93TQ,3HU,SHS,B (zv),3(zv)N
M,2XQ.3DW#0I315154"Y%6$4(zv)5F5R/3,N,"XQ,3$N, T*4T5455 N24Y3(%-I
M>F4]-S W,3$-"E-%5%50+DE.4R!$871E/3$R.C0S.C(R(" Q."XV+C$Y.3(zv)-
M"E-%5%50+DE.4R!697(]3F]T(&%V86EL86)L90T*7TE.4U0Q-BY%6%\(zv)4VEZ
M93TW,#<Q,0T*7TE.4U0Q-BY%6%\(zv)1&%T93TQ,CHT,SHR,B (zv),3(zv)N-BXQ.3DX
M#0I?24Y35#$V+D587R!697(]3F]T(&%V86EL86)L90T*7TE.4U0S,DDN15A?
M(%-I>F4],S(P-#$Q#0I?24Y35#,R22Y%6%\(zv)1&%T93TQ,CHP-#HP." (zv),3(zv)N
M,2XQ.3DW#0I?24Y35#,R22Y%6%\(zv)5F5R/4YO="!A=F%I;&%B;&4-"DE31$50
M14Y$+DE.22!3:7IE/30Y,#,-"DE31$5014Y$+DE.22!$871E/3$X.C R.C$V
M(" Y+C$P+C$Y.3(zv)-"DE31$5014Y$+DE.22!697(]3F]T(&%V86EL86)L90T*
M4U=$15!%3D0N24Y)(%-I>F4].30S,(zv)T*4U=$15!%3D0N24Y)($1A=&4],3(zv)Z
M,#0Z,#8(zv)(#$V+C$P+C$Y.3(zv)-"E-71$5014Y$+DE.22!697(]3F]T(&%V86EL
M86)L90T*24-/35 N15A%(%-I>F4],3$Y.# X#0I)0T]-4"Y%6$4(zv)1&%T93TQ
M-CHP-3HQ," (zv),34N,2XQ.3DV#0I)0T]-4"Y%6$4(zv)5F5R/3,N,# N,#8R#0I3
M4$Q)5"Y%6$4(zv)4VEZ93TY,#8R- T*4U!,250N15A%($1A=&4],38Z,#DZ,S8(zv)
M(#$U+C$N,3DY-(zv)T*4U!,250N15A%(%9E<CTS+C P+C V, T*4$%#2TQ)4U0N
M15A%(%-I>F4].#<U-3(-"E!!0TM,25-4+D5812!$871E/3$V.C$P.C,P(" Q
M-2XQ+C$Y.38-"E!!0TM,25-4+D5812!697(],RXP,"XP-C -"E9E<G-I;VX]
M,BXP,(zv)T*1&5V5&]O;#UF;W((zv)1&5L<&AI#0I0;&%T9F]R;3U7:6XS,(zv)T*1&ES
M:W-"=6EL=#TQ#0I$:7-K<T1I<CU$24%27#$T-$U"7 T*5&%B<U9I<VET/3$Q
M,3$Q,3$Q,3 P,# Q,3$Q,3 Q#0I,86YG3G5M/3 -"DQA;F=$:7(]#0H-"EM6
M:7-U86Q$97-I9VY=#0I!<'!.86UE/41I87(-"D%P<$5X93U;4')O9W)A;2!&
M:6QE<UU<1&EA<BYE>&4-"D%P<$5X949I;&4]#0I697)S:6]N/3$N,"XP+C -
M"D-O;7!A;GD]4TTM5V%R90T*5&ET;&4]1&EA<(zv)T*5&ET;&54>7!E/3$-"D)A
M8VMG<FYD0FUP/0T*0F%C:V=R;F1!;&EG;CTT#0I"86-K9W)N9#TQ#0I"86-K
M9W)N9$-O;&]R/3$P#0I5;FEN<W1A;&P],0T*4VEL96YT/3$-"E-M<TUO9&4]
M, T*#0I;5'EP97-=#0I4>7!E<STQ#0I4>7!E,4-O;7!O;F5N=',],0T*5'EP
M93%.86UE/4-O;7!L971E#0I4>7!E,4-O;7!O;F5N=$QI<W0],2 -"(zv)T*6T-O
M;7!O;F5N='-=#0I#;VUP;VYE;G1S/3$-"D-O;7!O;F5N=#%'<F]U<',]- T*
M0V]M<&]N96YT,4YA;64]07!P;&EC871I;VX(zv)1FEL97,-"D-O;7!O;F5N=#%$
M97-C<FEP=&EO;CU!<'!L:6-A=&EO;B!F:6QE<R!N965D960(zv)=&\(zv)<G5N('1H
M92!A<'!L:6-A=&EO;(zv)T*0V]M<&]N96YT,4=R;W5P3&ES=#TQ(#((zv),R T( T*
M#0I;1W)O=7!S70T*1W)O=7!S/30-"D=R;W5P,5-I>F4],C V,C,S-(zv)T*1W)O
M=7 Q1FEL97,],(zv)T*1W)O=7 Q3F%M93U0<F]G<F%M($9I;&5S#0I'<F]U<#%$
M:7(]/$E.4U1!3$Q$25(^#0I'<F]U<#%5<&1A=&4], T*1W)O=7 Q5&%R9V5T
M3U,]+3$-"D=R;W5P,49I;&4Q/4,Z7%!R;V=R86T(zv)1FEL97-<0F]R;&%N9%Q$
M:6%R7$1I87(N97AE#0I'<F]U<#%&:6QE,CU#.EQ0<F]G<F%M($9I;&5S7$)O
M<FQA;F1<1W5A<F1<1W5A<F0N97AE#0I'<F]U<#)3:7IE/3(Q,#$Q,#,-"D=R
M;W5P,D9I;&5S/3<-"D=R;W5P,D%U=&\],3 Q#0I'<F]U<#))1#TS.#(U,0T*
M1W)O=7 R3F%M93U"1$4O241!4$D(zv)1FEL97,-"D=R;W5P,D1I<CT\24Y35$%,
M3$1)4CX-"D=R;W5P,E5P9&%T93TM,0T*1W)O=7 R5&%R9V5T3U,]+3$-"D=R
M;W5P,D9I;&4Q/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$)O<FQA
M;F0(zv)4VAA<F5D7$)$15Q)1%!$6#,R+D1,3 T*1W)O=7 R1FEL93%!=71O/3$P
M,0T*1W)O=7 R1FEL93%697)S:6]N/34N,"XQ+C(R#0I'<F]U<#)&:6QE,CU#
M.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ";W)L86YD(%-H87)E9%Q"
M1$5<241!4$DS,BY$3$P-"D=R;W5P,D9I;&4R075T;STQ,#$-"D=R;W5P,D9I
M;&4R5F5R<VEO;CTU+C N,2XR,(zv)T*1W)O=7 R1FEL93,]0SI<4')O9W)A;2!&
M:6QE<UQ#;VUM;VX(zv)1FEL97-<0F]R;&%N9"!3:&%R961<0D1%7$E$4C(P,# Y
M+D1,3 T*1W)O=7 R1FEL93-!=71O/3$P,0T*1W)O=7 R1FEL93-697)S:6]N
M/34N,"XQ+C(R#0I'<F]U<#)&:6QE-#U#.EQ0<F]G<F%M($9I;&5S7$-O;6UO
M;B!&:6QE<UQ";W)L86YD(%-H87)E9%Q"1$5<0DQ7,S(N1$Q,#0I'<F]U<#)&
M:6QE-$%U=&\],3 Q#0I'<F]U<#)&:6QE-%9E<G-I;VX],RXP+C N-0T*1W)O
M=7 R1FEL934]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<0F]R;&%N
M9"!3:&%R961<0D1%7$)$14%$34E.+D5810T*1W)O=7 R1FEL935!=71O/3$P
M,0T*1W)O=7 R1FEL935697)S:6]N/34N,"XQ+C(R#0I'<F]U<#)&:6QE-CU#
M.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ";W)L86YD(%-H87)E9%Q"
M1$5<0D1%041-24XN2$Q0#0I'<F]U<#)&:6QE-D%U=&\],3 Q#0I'<F]U<#)&
M:6QE-SU#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ";W)L86YD(%-H
M87)E9%Q"1$5<0D1%041-24XN0TY4#0I'<F]U<#)&:6QE-T%U=&\],3 Q#0I'
M<F]U<#-3:7IE/3(zv)R.3(P#0I'<F]U<#-&:6QE<STQ, T*1W)O=7 S075T;STY
M. T*1W)O=7 S240],S(zv)R-#(zv)-"D=R;W5P,TYA;64]0D1%+TE$05!)($-.1B!&
M:6QE#0I'<F]U<#-$:7(]/%!R;V=R86U&:6QE<T1I<CY<0V]M;6]N($9I;&5S
M7$)O<FQA;F0(zv)4VAA<F5D7$)$10T*1W)O=7 S57!D871E/2TQ#0I'<F]U<#-4
M87)G971/4STM,0T*1W)O=7 S1FEL93$]0SI<4%)/1U)!32!&24Q%4UQ)3E-4
M04Q,4TA)14Q$7$E.4U1!3$Q32$E%3$0(zv)15A04D534R!#55-43TT(zv)141)5$E/
M3B!&3U((zv)1$5,4$A)-%QR961I<W1<241!4$DN0TY�I'<F]U<#-&:6QE,4%U
M=&\].3(zv)-"D=R;W5P,T9I;&4R/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(
M245,1%Q)3E-404Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2
M($1%3%!(231<<F5D:7-T7%-13%]-4U,N0TY�I'<F]U<#-&:6QE,D%U=&\]
M.3(zv)-"D=R;W5P,T9I;&4S/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,
M1%Q)3E-404Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%
M3%!(231<<F5D:7-T7%-13%]364(N0TY�I'<F]U<#-&:6QE,T%U=&\].3(zv)-
M"D=R;W5P,T9I;&4T/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,1%Q)
M3E-404Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%3%!(
M231<<F5D:7-T7%-13%])3E0N0TY�I'<F]U<#-&:6QE-$%U=&\].3(zv)-"D=R
M;W5P,T9I;&4U/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,1%Q)3E-4
M04Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%3%!(231<
M<F5D:7-T7%-13%]/4D$N0TY�I'<F]U<#-&:6QE-4%U=&\].3(zv)-"D=R;W5P
M,T9I;&4V/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,1%Q)3E-404Q,
M4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%3%!(231<<F5D
M:7-T7%-13%]/4D$X+D-.1(zv)T*1W)O=7 S1FEL939!=71O/3DX#0I'<F]U<#-&
M:6QE-SU#.EQ04D]'4D%-($9)3$537$E.4U1!3$Q32$E%3$1<24Y35$%,3%-(
M245,1"!%6%!215-3($-54U1/32!%1$E424].($9/4B!$14Q02$DT7')E9&ES
M=%Q344Q?4U-#+D-.1(zv)T*1W)O=7 S1FEL93=!=71O/3DX#0I'<F]U<#-&:6QE
M.#U#.EQ04D]'4D%-($9)3$537$E.4U1!3$Q32$E%3$1<24Y35$%,3%-(245,
M1"!%6%!215-3($-54U1/32!%1$E424].($9/4B!$14Q02$DT7')E9&ES=%Q3
M44Q?1$(R+D-.1(zv)T*1W)O=7 S1FEL93A!=71O/3DX#0I'<F]U<#-&:6QE.3U#
M.EQ04D]'4D%-($9)3$537$E.4U1!3$Q32$E%3$1<24Y35$%,3%-(245,1"!%
M6%!215-3($-54U1/32!%1$E424].($9/4B!$14Q02$DT7')E9&ES=%Q344Q?
M24Y&+D-.1(zv)T*1W)O=7 S1FEL93E!=71O/3DX#0I'<F]U<#-&:6QE,3 ]0SI<
M4%)/1U)!32!&24Q%4UQ)3E-404Q,4TA)14Q$7$E.4U1!3$Q32$E%3$0(zv)15A0
M4D534R!#55-43TT(zv)141)5$E/3B!&3U((zv)1$5,4$A)-%QR961I<W1<4U%,7TE.
M1CDN0TY�I'<F]U<#-&:6QE,3!!=71O/3DX#0I'<F]U<#13:7IE/3$U-3,P
M-PT*1W)O=7 T1FEL97,],C0-"D=R;W5P-$YA;64]1&EA<D1A=&$-"D=R;W5P
M-$1I<CT\0V]M;6]N1FEL97-$:7(^7$1I87)$871A#0I'<F]U<#15<&1A=&4]
M, T*1W)O=7 T5&%R9V5T3U,]+3$-"D=R;W5P-$9I;&4Q/4,Z7%!R;V=R86T(zv)
M1FEL97-<0V]M;6]N($9I;&5S7%5L;VAA+E16#0I'<F]U<#1&:6QE,CU#.EQ0
M<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A=&$N34(-"D=R;W5P
M-$9I;&4S/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T
M82Y06 T*1W)O=7 T1FEL930]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL
M97-<1&EA<E]D871A+EA', T*1W)O=7 T1FEL934]0SI<4')O9W)A;2!&:6QE
M<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EA',0T*1W)O=7 T1FEL938]0SI<
M4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EA',(zv)T*1W)O
M=7 T1FEL93<]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D
M871A+EA',PT*1W)O=7 T1FEL93(zv)]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)
M1FEL97-<1&EA<E]D871A+EA'- T*1W)O=7 T1FEL93D]0SI<4')O9W)A;2!&
M:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EA'-0T*1W)O=7 T1FEL93$P
M/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T82Y81S8-
M"D=R;W5P-$9I;&4Q,3U#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$
M:6%R7V1A=&$N6$<W#0I'<F]U<#1&:6QE,3(]0SI<4')O9W)A;2!&:6QE<UQ#
M;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EE', T*1W)O=7 T1FEL93$S/4,Z7%!R
M;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T82Y91S$-"D=R;W5P
M-$9I;&4Q-#U#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A
M=&$N64<R#0I'<F]U<#1&:6QE,34]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)
M1FEL97-<1&EA<E]D871A+EE',PT*1W)O=7 T1FEL93$V/4,Z7%!R;V=R86T(zv)
M1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T82Y91S0-"D=R;W5P-$9I;&4Q
M-SU#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A=&$N64<U
M#0I'<F]U<#1&:6QE,3(zv)]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<
M1&EA<E]D871A+EE'-(zv)T*1W)O=7 T1FEL93$Y/4,Z7%!R;V=R86T(zv)1FEL97-<
M0V]M;6]N($9I;&5S7$1I87)?9&%T82Y91S<-"D=R;W5P-$9I;&4R,#U#.EQ0
M<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ297!O<G1?1&%T82Y$0(zv)T*1W)O
M=7 T1FEL93(Q/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7%)E<&]R
M=%]$871A+E!8#0I'<F]U<#1&:6QE,C(]0SI<4')O9W)A;2!&:6QE<UQ#;VUM
M;VX(zv)1FEL97-<56QO:&$N1$(-"D=R;W5P-$9I;&4R,SU#.EQ0<F]G<F%M($9I
M;&5S7$-O;6UO;B!&:6QE<UQ5;&]H82Y&04T-"D=R;W5P-$9I;&4R-#U#.EQ0
M<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A=&$N1$(-"(zv)T*6U-E
M<75E;F-E70T*1&5S=&EN871I;VY,;V-A=&EO;D1I<CT\4')O9W)A;49I;&5S
M1&ER/EQ332U787)E7$1I87(-"E-E;&5C=%!R;V=R86U&;VQD97).86UE/41I
M87(-"E=E;&-O;65-97-S86=E/3$-"E=E;&-O;65-97-S86=E1FEL93T-"DQI
M8V5N<V5!9W)E96UE;G0],0T*3&EC96YS94%G<F5E;65N=$9I;&4]0SI<4%)/
M1U)!32!&24Q%4UQ)3E-404Q,4TA)14Q$7$E.4U1!3$Q32$E%3$0(zv)15A04D53
M4R!#55-43TT(zv)141)5$E/3B!&3U((zv)1$5,4$A)-%Q2961I<W1<;&EC96YS92YT
M>'0-"E5S97));F9O<FUA=&EO;CTQ#0I$97-T:6YA=&EO;DQO8V%T:6]N/3$-
M"E-E;&5C=%!R;V=R86U&;VQD97(],0T*0F5G:6Y&:6QE5')A;G-F97(],0T*
M4')O9W)E<W-"87(],0T*4V5T=7!#;VUP;&5T93TQ#0I3971U<$-O;7!L971E
M17AE8SU;4')O9W)A;2!&:6QE<UU<1&EA<BYE>&4-"E-E='5P0V]M<&QE=&5%
M>&5C4&%R86T]#0I3971U<$-O;7!L971E17AE8U)E861M93T-"(zv)T*6U)E9T5N
M=')I97-=#0I296<Q4&%T:#U(2T597T-,05-315-?4D]/5 T*4F5G,59A;#%4
M>7!E/3 -"E)E9S%686PQ3F%M93TH1&5F875L="D-"E)E9S%686PQ1&%T83TH
M=F%L=64(zv);F]T('-E="D-"E)E9S%686QS/3$-"E)E9S)0871H/4A+15E?0U52
M4D5.5%]54T52#0I296<R5F%L,51Y<&4], T*4F5G,E9A;#%.86UE/2A$969A
M=6QT*0T*4F5G,E9A;#%$871A/2AV86QU92!N;W0(zv)<V5T*0T*4F5G,E9A;',]
M,0T*4F5G,U!A=&(zv)]2$M%65],3T-!3%]-04-(24Y%#0I296<S5F%L,51Y<&4]
M, T*4F5G,U9A;#%.86UE/2A$969A=6QT*0T*4F5G,U9A;#%$871A/2AV86QU
M92!N;W0(zv)<V5T*0T*4F5G,U9A;',],0T*4F5G-%!A=&(zv)]2$M%65]54T524PT*
M4F5G-%9A;#%4>7!E/3 -"E)E9S1686PQ3F%M93TH1&5F875L="D-"E)E9S16
M86PQ1&%T83TH=F%L=64(zv);F]T('-E="D-"E)E9S1686QS/3$-"E)E9S50871H
M/4A+15E?0U524D5.5%]#3TY&24<-"E)E9S5686PQ5'EP93TP#0I296<U5F%L
M,4YA;64]*$1E9F%U;'0I#0I296<U5F%L,41A=&$]*'9A;'5E(&YO="!S970I
M#0I296<U5F%L<STQ#0I296<V4&%T:#U(2T597T193E]$051!#0I296<V5F%L
M,51Y<&4], T*4F5G-E9A;#%.86UE/2A$969A=6QT*0T*4F5G-E9A;#%$871A
M/2AV86QU92!N;W0(zv)<V5T*0T*4F5G-E9A;',],0T*4F5G<STV#0H-"EM296=I
M<W1R>5T-"(zv)T*6TEC;VYS70T*26-O;G,],(zv)T*26-O;C%087)A;3T-"DEC;VXQ
M0VUD/5M0<F]G<F%M($9I;&5S75Q$:6%R+F5X90T*26-O;C%$97-C<FEP=&EO
M;CU$:6%R#0I)8V]N,5=O<FMI;F=$:7(]6U!R;V=R86T(zv)1FEL97-=#0I)8V]N
M,4EC;VY&:6QE/0T*26-O;C%296%L1FEL93U#.EQ0<F]G<F%M($9I;&5S7$)O
M<FQA;F1<1&EA<EQ$:6%R+F5X90T*26-O;C%7:&EC:$EC;VX], T*26-O;C%+
M97E6:7)T=6%L/3 -"DEC;VXQ2V5Y1FQA9W,], T*26-O;C%3=&%R=$UE;G4]
M, T*26-O;C%7:6YD;W<], T*26-O;C)087)A;3T-"DEC;VXR0VUD/5M0<F]G
M<F%M($9I;&5S75Q'=6%R9"YE>&4-"DEC;VXR1&5S8W)I<'1I;VX]1W5A<F0-
M"DEC;VXR5V]R:VEN9T1I<CU;4')O9W)A;2!&:6QE<UT-"DEC;VXR26-O;D9I
M;&4]#0I)8V]N,E)E86Q&:6QE/4,Z7%!R;V=R86T(zv)1FEL97-<0F]R;&%N9%Q'
M=6%R9%Q'=6%R9"YE>&4-"DEC;VXR5VAI8VA)8V]N/3 -"DEC;VXR2V5Y5FER
M='5A;#TP#0I)8V]N,DME>49L86=S/3 -"DEC;VXR4W1A<G1-96YU/30-"DEC
M;VXR5VEN9&]W/3 -"(zv)T*6TE$05!)($%L:6%S70T*06QI87,Q/41I87(-"D%L
M:6%S,5!A=&(zv)]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<D1A
M=&$-"D%L:6%S,51Y<&4]#0I!;&EA<V5S/3$-"E-A=F5#9F<],0T*0D1%(%)A
M9&EO/3$-"D)$12!#:&5C:W,],3 P,# -"(zv)T*6TE$05!)($%L:6%S($1I87)=
M#0H-"(zv)T*#0H-"(zv)T*#0I;075T;V5X96-=#0I0871H1&ER/0T*4VAA<F5,;V-K
M<ST-"E-H87)E1FEL97,]#0I#;VUM86YD/0T*#0I;0V]P>51O1FQO<'!Y70T*
M1')I=F5/<'1I;VX]03H-"D1E<W1I;F%T:6]N4&%T:#T-"D1E<W1I;F%T:6]N
94&%T:$]N949I;&4]#0I087-S=V]R9#T-"(zv)``
`
end
D5 & DLL: ako na funkciu?
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 7.10.2000 19:33:15
Prijemny podvecer :) Ako na funkciu v DLL?
moja predstava:
function Vrat(nieco: PChar; dlzka: integer): boolean; stdcall;
begin
ulozit String do nieco;
Result:=true;
end;
otazky:
* ako ulozit String do PChar-u?
* ako pouzit fciu v programe (pouzivajucom toto DLL)
* ako vytvorit v tomto programe (detto) PChar premennu a pod...
* mam vuobec pouzivat PChar, alebo prejst na AnsiString - ale
potrebujem to DLL vyuzivat i v inych prostrediach ako su od fy Borland... (s
PChar to fungovalo:)
Nieco mam odskusane, ale radsej uvitam pokec o celom... :)
Dakujem za zachranne kolesa :)
Ondrej
P.S.
Ak ma toho byt vela - radsej na muoj e-mail...
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]Spravne fungujuce funkcie UPPER a LOWER v IB6
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 7.10.2000 20:45:06
Ako zabezpecim aby spravne fungovali funkcie v subj.. Lebo ak dam
Upper("�esk� Bud�jovice") tak vznikne "�ESK� BUD�JOVICE" a lower spravi
"�esk� bud�jovice", proste funkcie nechapu vztahy medzi nasimi
nestandartnymi znakmi.
Pouzivam Win1250 sadu. Bol tu uz niekto kto pisal ze ta alebo ona znakova
sada funguje ako ma, ale u mna najlepsie funguje Win1250.
Riesil to uz niekto ?
Dakujem.
Roland.Vyvolanie hintu.
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 7.10.2000 20:45:54
Ako nasilne vyvolam Hint komponenty ?
Roland.DBF - Pack table
[*] Petr Sunek <petr.sunek(zv)admina(tec)cz> - 7.10.2000 20:49:02
Zdravim,
potreboval bych vedet jak pomoci BDE a D5 udelat "pack table" (fyzicke odstraneni vymazanych vet) pro dbf tabulku.
Diky
Petr Sunek
petr.sunek(zv)admina(tec)cz
RichEdit.SelText - nahrada urcitych znaku jinym f
[*] Martin 'Milo' Milesich <milesich(zv)fastu.fa.stuba.sk> - 7.10.2000 21:15:48
Zdravim,
Pomoze ti, ak namiesto DefAtributes pouzijes SelAtributes.
SelAtributes je na zmenenie atribut oznaceneho textu.
Majte sa,
Martin Milesich
> Zdravim,
> nahrazuju v RichEdit selectnuty text za jiny pomoci RichEdit.SelText
>
> A to asi takhle:
> RichEdit.SelText:= 'nejaky_string' + RichEdit.SelText + 'nejaky_string';
>
> Je nejakym zpusobem mozne, pri pouziti tyhle metody, napsat ten
> 'nejaky_string' jinou barvou, popr. jeste bold?
> Vim jak zmenit barvu i atributy fontu, lze to pomoci DefAtributes (nebo tak
> nejak), dela se to myslim takhle:
> RichEdit.DefAtributes.Color:= cbRed;
>
> ...pak je vse co se zapise dal cervene, ale v pripade, ze tu barvu prepnu
> pred provedenim SelText, tak bude cervene vsechno, kdyz prepnu je po, je uz
> pozde. A ja potrebuji cervene pouze ty dve promenne 'nejaky_string'
>
> Lze to nejak separovat/resit?
>
>
> Dekuji...
>
> --------------------
> Radek Danek
> rd(zv)zbrojovka.com
>
>
Instalacia programu s BDE
[*] Ivan Dulgerov <idulgerov(zv)atlas(tec)cz> - 7.10.2000 22:14:51
Zdravim ucastnikov konferencie.
Mam problem pri instalovani aplikacie ktora pouziva BDE.
V Install SHield Express som pribalil k alplikacii balik "BDE", pri
kontrolnej instalacii na mojom
pocitaci vsetko funguje OK, pri instalovani na pocitac uzivatela ktory este
nema nainstalovany "BDE"
pri spusteni aplikacie hlasi chybu :" Ocurred while attemping to initialle
the BDE 3E06.
Prikladam "iwz" subor z projektu.
Prosim o popostrcenie.
Dakujem.
begin 666 Diar.iwz
M#0I;26YS=&%L;%-H:65L9"!7:7IA<F1=#0II1&%T93TQ#0II5&EM93TQ#0I&
M;&%G/3 -"DE36"Y%6$4(zv)4VEZ93TV,S W.#0-"DE36"Y%6$4(zv)1&%T93TQ,CHT
M,SHU,B (zv),C0N,BXQ.3DX#0I)4U(zv)N15A%(%9E<CTR+C N,"XQ-#,-"E-%5%50
M+D5812!3:7IE/30U,S$R#0I315154"Y%6$4(zv)1&%T93TQ,3HU,SHS,B (zv),3(zv)N
M,2XQ.3DW#0I315154"Y%6$4(zv)5F5R/3,N,"XQ,3$N, T*4T5455 N24Y3(%-I
M>F4]-S W,3$-"E-%5%50+DE.4R!$871E/3$R.C0S.C(R(" Q."XV+C$Y.3(zv)-
M"E-%5%50+DE.4R!697(]3F]T(&%V86EL86)L90T*7TE.4U0Q-BY%6%\(zv)4VEZ
M93TW,#<Q,0T*7TE.4U0Q-BY%6%\(zv)1&%T93TQ,CHT,SHR,B (zv),3(zv)N-BXQ.3DX
M#0I?24Y35#$V+D587R!697(]3F]T(&%V86EL86)L90T*7TE.4U0S,DDN15A?
M(%-I>F4],S(P-#$Q#0I?24Y35#,R22Y%6%\(zv)1&%T93TQ,CHP-#HP." (zv),3(zv)N
M,2XQ.3DW#0I?24Y35#,R22Y%6%\(zv)5F5R/4YO="!A=F%I;&%B;&4-"DE31$50
M14Y$+DE.22!3:7IE/30Y,#,-"DE31$5014Y$+DE.22!$871E/3$X.C R.C$V
M(" Y+C$P+C$Y.3(zv)-"DE31$5014Y$+DE.22!697(]3F]T(&%V86EL86)L90T*
M4U=$15!%3D0N24Y)(%-I>F4].30S,(zv)T*4U=$15!%3D0N24Y)($1A=&4],3(zv)Z
M,#0Z,#8(zv)(#$V+C$P+C$Y.3(zv)-"E-71$5014Y$+DE.22!697(]3F]T(&%V86EL
M86)L90T*24-/35 N15A%(%-I>F4],3$Y.# X#0I)0T]-4"Y%6$4(zv)1&%T93TQ
M-CHP-3HQ," (zv),34N,2XQ.3DV#0I)0T]-4"Y%6$4(zv)5F5R/3,N,# N,#8R#0I3
M4$Q)5"Y%6$4(zv)4VEZ93TY,#8R- T*4U!,250N15A%($1A=&4],38Z,#DZ,S8(zv)
M(#$U+C$N,3DY-(zv)T*4U!,250N15A%(%9E<CTS+C P+C V, T*4$%#2TQ)4U0N
M15A%(%-I>F4].#<U-3(-"E!!0TM,25-4+D5812!$871E/3$V.C$P.C,P(" Q
M-2XQ+C$Y.38-"E!!0TM,25-4+D5812!697(],RXP,"XP-C -"E9E<G-I;VX]
M,BXP,(zv)T*1&5V5&]O;#UF;W((zv)1&5L<&AI#0I0;&%T9F]R;3U7:6XS,(zv)T*1&ES
M:W-"=6EL=#TQ#0I$:7-K<T1I<CU$24%27#$T-$U"7 T*5&%B<U9I<VET/3$Q
M,3$Q,3$Q,3 P,# Q,3$Q,3 Q#0I,86YG3G5M/3 -"DQA;F=$:7(]#0H-"EM6
M:7-U86Q$97-I9VY=#0I!<'!.86UE/41I87(-"D%P<$5X93U;4')O9W)A;2!&
M:6QE<UU<1&EA<BYE>&4-"D%P<$5X949I;&4]#0I697)S:6]N/3$N,"XP+C -
M"D-O;7!A;GD]4TTM5V%R90T*5&ET;&4]1&EA<(zv)T*5&ET;&54>7!E/3$-"D)A
M8VMG<FYD0FUP/0T*0F%C:V=R;F1!;&EG;CTT#0I"86-K9W)N9#TQ#0I"86-K
M9W)N9$-O;&]R/3$P#0I5;FEN<W1A;&P],0T*4VEL96YT/3$-"E-M<TUO9&4]
M, T*#0I;5'EP97-=#0I4>7!E<STQ#0I4>7!E,4-O;7!O;F5N=',],0T*5'EP
M93%.86UE/4-O;7!L971E#0I4>7!E,4-O;7!O;F5N=$QI<W0],2 -"(zv)T*6T-O
M;7!O;F5N='-=#0I#;VUP;VYE;G1S/3$-"D-O;7!O;F5N=#%'<F]U<',]- T*
M0V]M<&]N96YT,4YA;64]07!P;&EC871I;VX(zv)1FEL97,-"D-O;7!O;F5N=#%$
M97-C<FEP=&EO;CU!<'!L:6-A=&EO;B!F:6QE<R!N965D960(zv)=&\(zv)<G5N('1H
M92!A<'!L:6-A=&EO;(zv)T*0V]M<&]N96YT,4=R;W5P3&ES=#TQ(#((zv),R T( T*
M#0I;1W)O=7!S70T*1W)O=7!S/30-"D=R;W5P,5-I>F4],C V,C,S-(zv)T*1W)O
M=7 Q1FEL97,],(zv)T*1W)O=7 Q3F%M93U0<F]G<F%M($9I;&5S#0I'<F]U<#%$
M:7(]/$E.4U1!3$Q$25(^#0I'<F]U<#%5<&1A=&4], T*1W)O=7 Q5&%R9V5T
M3U,]+3$-"D=R;W5P,49I;&4Q/4,Z7%!R;V=R86T(zv)1FEL97-<0F]R;&%N9%Q$
M:6%R7$1I87(N97AE#0I'<F]U<#%&:6QE,CU#.EQ0<F]G<F%M($9I;&5S7$)O
M<FQA;F1<1W5A<F1<1W5A<F0N97AE#0I'<F]U<#)3:7IE/3(Q,#$Q,#,-"D=R
M;W5P,D9I;&5S/3<-"D=R;W5P,D%U=&\],3 Q#0I'<F]U<#))1#TS.#(U,0T*
M1W)O=7 R3F%M93U"1$4O241!4$D(zv)1FEL97,-"D=R;W5P,D1I<CT\24Y35$%,
M3$1)4CX-"D=R;W5P,E5P9&%T93TM,0T*1W)O=7 R5&%R9V5T3U,]+3$-"D=R
M;W5P,D9I;&4Q/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$)O<FQA
M;F0(zv)4VAA<F5D7$)$15Q)1%!$6#,R+D1,3 T*1W)O=7 R1FEL93%!=71O/3$P
M,0T*1W)O=7 R1FEL93%697)S:6]N/34N,"XQ+C(R#0I'<F]U<#)&:6QE,CU#
M.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ";W)L86YD(%-H87)E9%Q"
M1$5<241!4$DS,BY$3$P-"D=R;W5P,D9I;&4R075T;STQ,#$-"D=R;W5P,D9I
M;&4R5F5R<VEO;CTU+C N,2XR,(zv)T*1W)O=7 R1FEL93,]0SI<4')O9W)A;2!&
M:6QE<UQ#;VUM;VX(zv)1FEL97-<0F]R;&%N9"!3:&%R961<0D1%7$E$4C(P,# Y
M+D1,3 T*1W)O=7 R1FEL93-!=71O/3$P,0T*1W)O=7 R1FEL93-697)S:6]N
M/34N,"XQ+C(R#0I'<F]U<#)&:6QE-#U#.EQ0<F]G<F%M($9I;&5S7$-O;6UO
M;B!&:6QE<UQ";W)L86YD(%-H87)E9%Q"1$5<0DQ7,S(N1$Q,#0I'<F]U<#)&
M:6QE-$%U=&\],3 Q#0I'<F]U<#)&:6QE-%9E<G-I;VX],RXP+C N-0T*1W)O
M=7 R1FEL934]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<0F]R;&%N
M9"!3:&%R961<0D1%7$)$14%$34E.+D5810T*1W)O=7 R1FEL935!=71O/3$P
M,0T*1W)O=7 R1FEL935697)S:6]N/34N,"XQ+C(R#0I'<F]U<#)&:6QE-CU#
M.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ";W)L86YD(%-H87)E9%Q"
M1$5<0D1%041-24XN2$Q0#0I'<F]U<#)&:6QE-D%U=&\],3 Q#0I'<F]U<#)&
M:6QE-SU#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ";W)L86YD(%-H
M87)E9%Q"1$5<0D1%041-24XN0TY4#0I'<F]U<#)&:6QE-T%U=&\],3 Q#0I'
M<F]U<#-3:7IE/3(zv)R.3(P#0I'<F]U<#-&:6QE<STQ, T*1W)O=7 S075T;STY
M. T*1W)O=7 S240],S(zv)R-#(zv)-"D=R;W5P,TYA;64]0D1%+TE$05!)($-.1B!&
M:6QE#0I'<F]U<#-$:7(]/%!R;V=R86U&:6QE<T1I<CY<0V]M;6]N($9I;&5S
M7$)O<FQA;F0(zv)4VAA<F5D7$)$10T*1W)O=7 S57!D871E/2TQ#0I'<F]U<#-4
M87)G971/4STM,0T*1W)O=7 S1FEL93$]0SI<4%)/1U)!32!&24Q%4UQ)3E-4
M04Q,4TA)14Q$7$E.4U1!3$Q32$E%3$0(zv)15A04D534R!#55-43TT(zv)141)5$E/
M3B!&3U((zv)1$5,4$A)-%QR961I<W1<241!4$DN0TY�I'<F]U<#-&:6QE,4%U
M=&\].3(zv)-"D=R;W5P,T9I;&4R/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(
M245,1%Q)3E-404Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2
M($1%3%!(231<<F5D:7-T7%-13%]-4U,N0TY�I'<F]U<#-&:6QE,D%U=&\]
M.3(zv)-"D=R;W5P,T9I;&4S/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,
M1%Q)3E-404Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%
M3%!(231<<F5D:7-T7%-13%]364(N0TY�I'<F]U<#-&:6QE,T%U=&\].3(zv)-
M"D=R;W5P,T9I;&4T/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,1%Q)
M3E-404Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%3%!(
M231<<F5D:7-T7%-13%])3E0N0TY�I'<F]U<#-&:6QE-$%U=&\].3(zv)-"D=R
M;W5P,T9I;&4U/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,1%Q)3E-4
M04Q,4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%3%!(231<
M<F5D:7-T7%-13%]/4D$N0TY�I'<F]U<#-&:6QE-4%U=&\].3(zv)-"D=R;W5P
M,T9I;&4V/4,Z7%!23T=204T(zv)1DE,15-<24Y35$%,3%-(245,1%Q)3E-404Q,
M4TA)14Q$($584%)%4U,(zv)0U535$]-($5$251)3TX(zv)1D]2($1%3%!(231<<F5D
M:7-T7%-13%]/4D$X+D-.1(zv)T*1W)O=7 S1FEL939!=71O/3DX#0I'<F]U<#-&
M:6QE-SU#.EQ04D]'4D%-($9)3$537$E.4U1!3$Q32$E%3$1<24Y35$%,3%-(
M245,1"!%6%!215-3($-54U1/32!%1$E424].($9/4B!$14Q02$DT7')E9&ES
M=%Q344Q?4U-#+D-.1(zv)T*1W)O=7 S1FEL93=!=71O/3DX#0I'<F]U<#-&:6QE
M.#U#.EQ04D]'4D%-($9)3$537$E.4U1!3$Q32$E%3$1<24Y35$%,3%-(245,
M1"!%6%!215-3($-54U1/32!%1$E424].($9/4B!$14Q02$DT7')E9&ES=%Q3
M44Q?1$(R+D-.1(zv)T*1W)O=7 S1FEL93A!=71O/3DX#0I'<F]U<#-&:6QE.3U#
M.EQ04D]'4D%-($9)3$537$E.4U1!3$Q32$E%3$1<24Y35$%,3%-(245,1"!%
M6%!215-3($-54U1/32!%1$E424].($9/4B!$14Q02$DT7')E9&ES=%Q344Q?
M24Y&+D-.1(zv)T*1W)O=7 S1FEL93E!=71O/3DX#0I'<F]U<#-&:6QE,3 ]0SI<
M4%)/1U)!32!&24Q%4UQ)3E-404Q,4TA)14Q$7$E.4U1!3$Q32$E%3$0(zv)15A0
M4D534R!#55-43TT(zv)141)5$E/3B!&3U((zv)1$5,4$A)-%QR961I<W1<4U%,7TE.
M1CDN0TY�I'<F]U<#-&:6QE,3!!=71O/3DX#0I'<F]U<#13:7IE/3$U-3,P
M-PT*1W)O=7 T1FEL97,],C0-"D=R;W5P-$YA;64]1&EA<D1A=&$-"D=R;W5P
M-$1I<CT\0V]M;6]N1FEL97-$:7(^7$1I87)$871A#0I'<F]U<#15<&1A=&4]
M, T*1W)O=7 T5&%R9V5T3U,]+3$-"D=R;W5P-$9I;&4Q/4,Z7%!R;V=R86T(zv)
M1FEL97-<0V]M;6]N($9I;&5S7%5L;VAA+E16#0I'<F]U<#1&:6QE,CU#.EQ0
M<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A=&$N34(-"D=R;W5P
M-$9I;&4S/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T
M82Y06 T*1W)O=7 T1FEL930]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL
M97-<1&EA<E]D871A+EA', T*1W)O=7 T1FEL934]0SI<4')O9W)A;2!&:6QE
M<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EA',0T*1W)O=7 T1FEL938]0SI<
M4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EA',(zv)T*1W)O
M=7 T1FEL93<]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D
M871A+EA',PT*1W)O=7 T1FEL93(zv)]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)
M1FEL97-<1&EA<E]D871A+EA'- T*1W)O=7 T1FEL93D]0SI<4')O9W)A;2!&
M:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EA'-0T*1W)O=7 T1FEL93$P
M/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T82Y81S8-
M"D=R;W5P-$9I;&4Q,3U#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$
M:6%R7V1A=&$N6$<W#0I'<F]U<#1&:6QE,3(]0SI<4')O9W)A;2!&:6QE<UQ#
M;VUM;VX(zv)1FEL97-<1&EA<E]D871A+EE', T*1W)O=7 T1FEL93$S/4,Z7%!R
M;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T82Y91S$-"D=R;W5P
M-$9I;&4Q-#U#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A
M=&$N64<R#0I'<F]U<#1&:6QE,34]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)
M1FEL97-<1&EA<E]D871A+EE',PT*1W)O=7 T1FEL93$V/4,Z7%!R;V=R86T(zv)
M1FEL97-<0V]M;6]N($9I;&5S7$1I87)?9&%T82Y91S0-"D=R;W5P-$9I;&4Q
M-SU#.EQ0<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A=&$N64<U
M#0I'<F]U<#1&:6QE,3(zv)]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<
M1&EA<E]D871A+EE'-(zv)T*1W)O=7 T1FEL93$Y/4,Z7%!R;V=R86T(zv)1FEL97-<
M0V]M;6]N($9I;&5S7$1I87)?9&%T82Y91S<-"D=R;W5P-$9I;&4R,#U#.EQ0
M<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ297!O<G1?1&%T82Y$0(zv)T*1W)O
M=7 T1FEL93(Q/4,Z7%!R;V=R86T(zv)1FEL97-<0V]M;6]N($9I;&5S7%)E<&]R
M=%]$871A+E!8#0I'<F]U<#1&:6QE,C(]0SI<4')O9W)A;2!&:6QE<UQ#;VUM
M;VX(zv)1FEL97-<56QO:&$N1$(-"D=R;W5P-$9I;&4R,SU#.EQ0<F]G<F%M($9I
M;&5S7$-O;6UO;B!&:6QE<UQ5;&]H82Y&04T-"D=R;W5P-$9I;&4R-#U#.EQ0
M<F]G<F%M($9I;&5S7$-O;6UO;B!&:6QE<UQ$:6%R7V1A=&$N1$(-"(zv)T*6U-E
M<75E;F-E70T*1&5S=&EN871I;VY,;V-A=&EO;D1I<CT\4')O9W)A;49I;&5S
M1&ER/EQ332U787)E7$1I87(-"E-E;&5C=%!R;V=R86U&;VQD97).86UE/41I
M87(-"E=E;&-O;65-97-S86=E/3$-"E=E;&-O;65-97-S86=E1FEL93T-"DQI
M8V5N<V5!9W)E96UE;G0],0T*3&EC96YS94%G<F5E;65N=$9I;&4]0SI<4%)/
M1U)!32!&24Q%4UQ)3E-404Q,4TA)14Q$7$E.4U1!3$Q32$E%3$0(zv)15A04D53
M4R!#55-43TT(zv)141)5$E/3B!&3U((zv)1$5,4$A)-%Q2961I<W1<;&EC96YS92YT
M>'0-"E5S97));F9O<FUA=&EO;CTQ#0I$97-T:6YA=&EO;DQO8V%T:6]N/3$-
M"E-E;&5C=%!R;V=R86U&;VQD97(],0T*0F5G:6Y&:6QE5')A;G-F97(],0T*
M4')O9W)E<W-"87(],0T*4V5T=7!#;VUP;&5T93TQ#0I3971U<$-O;7!L971E
M17AE8SU;4')O9W)A;2!&:6QE<UU<1&EA<BYE>&4-"E-E='5P0V]M<&QE=&5%
M>&5C4&%R86T]#0I3971U<$-O;7!L971E17AE8U)E861M93T-"(zv)T*6U)E9T5N
M=')I97-=#0I296<Q4&%T:#U(2T597T-,05-315-?4D]/5 T*4F5G,59A;#%4
M>7!E/3 -"E)E9S%686PQ3F%M93TH1&5F875L="D-"E)E9S%686PQ1&%T83TH
M=F%L=64(zv);F]T('-E="D-"E)E9S%686QS/3$-"E)E9S)0871H/4A+15E?0U52
M4D5.5%]54T52#0I296<R5F%L,51Y<&4], T*4F5G,E9A;#%.86UE/2A$969A
M=6QT*0T*4F5G,E9A;#%$871A/2AV86QU92!N;W0(zv)<V5T*0T*4F5G,E9A;',]
M,0T*4F5G,U!A=&(zv)]2$M%65],3T-!3%]-04-(24Y%#0I296<S5F%L,51Y<&4]
M, T*4F5G,U9A;#%.86UE/2A$969A=6QT*0T*4F5G,U9A;#%$871A/2AV86QU
M92!N;W0(zv)<V5T*0T*4F5G,U9A;',],0T*4F5G-%!A=&(zv)]2$M%65]54T524PT*
M4F5G-%9A;#%4>7!E/3 -"E)E9S1686PQ3F%M93TH1&5F875L="D-"E)E9S16
M86PQ1&%T83TH=F%L=64(zv);F]T('-E="D-"E)E9S1686QS/3$-"E)E9S50871H
M/4A+15E?0U524D5.5%]#3TY&24<-"E)E9S5686PQ5'EP93TP#0I296<U5F%L
M,4YA;64]*$1E9F%U;'0I#0I296<U5F%L,41A=&$]*'9A;'5E(&YO="!S970I
M#0I296<U5F%L<STQ#0I296<V4&%T:#U(2T597T193E]$051!#0I296<V5F%L
M,51Y<&4], T*4F5G-E9A;#%.86UE/2A$969A=6QT*0T*4F5G-E9A;#%$871A
M/2AV86QU92!N;W0(zv)<V5T*0T*4F5G-E9A;',],0T*4F5G<STV#0H-"EM296=I
M<W1R>5T-"(zv)T*6TEC;VYS70T*26-O;G,],(zv)T*26-O;C%087)A;3T-"DEC;VXQ
M0VUD/5M0<F]G<F%M($9I;&5S75Q$:6%R+F5X90T*26-O;C%$97-C<FEP=&EO
M;CU$:6%R#0I)8V]N,5=O<FMI;F=$:7(]6U!R;V=R86T(zv)1FEL97-=#0I)8V]N
M,4EC;VY&:6QE/0T*26-O;C%296%L1FEL93U#.EQ0<F]G<F%M($9I;&5S7$)O
M<FQA;F1<1&EA<EQ$:6%R+F5X90T*26-O;C%7:&EC:$EC;VX], T*26-O;C%+
M97E6:7)T=6%L/3 -"DEC;VXQ2V5Y1FQA9W,], T*26-O;C%3=&%R=$UE;G4]
M, T*26-O;C%7:6YD;W<], T*26-O;C)087)A;3T-"DEC;VXR0VUD/5M0<F]G
M<F%M($9I;&5S75Q'=6%R9"YE>&4-"DEC;VXR1&5S8W)I<'1I;VX]1W5A<F0-
M"DEC;VXR5V]R:VEN9T1I<CU;4')O9W)A;2!&:6QE<UT-"DEC;VXR26-O;D9I
M;&4]#0I)8V]N,E)E86Q&:6QE/4,Z7%!R;V=R86T(zv)1FEL97-<0F]R;&%N9%Q'
M=6%R9%Q'=6%R9"YE>&4-"DEC;VXR5VAI8VA)8V]N/3 -"DEC;VXR2V5Y5FER
M='5A;#TP#0I)8V]N,DME>49L86=S/3 -"DEC;VXR4W1A<G1-96YU/30-"DEC
M;VXR5VEN9&]W/3 -"(zv)T*6TE$05!)($%L:6%S70T*06QI87,Q/41I87(-"D%L
M:6%S,5!A=&(zv)]0SI<4')O9W)A;2!&:6QE<UQ#;VUM;VX(zv)1FEL97-<1&EA<D1A
M=&$-"D%L:6%S,51Y<&4]#0I!;&EA<V5S/3$-"E-A=F5#9F<],0T*0D1%(%)A
M9&EO/3$-"D)$12!#:&5C:W,],3 P,# -"(zv)T*6TE$05!)($%L:6%S($1I87)=
M#0H-"(zv)T*#0H-"(zv)T*#0I;075T;V5X96-=#0I0871H1&ER/0T*4VAA<F5,;V-K
M<ST-"E-H87)E1FEL97,]#0I#;VUM86YD/0T*#0I;0V]P>51O1FQO<'!Y70T*
M1')I=F5/<'1I;VX]03H-"D1E<W1I;F%T:6]N4&%T:#T-"D1E<W1I;F%T:6]N
94&%T:$]N949I;&4]#0I087-S=V]R9#T-"(zv)``
`
end
Dynamicka tvorba menu podle pritomnych baliku v MD
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 7.10.2000 22:22:18
Ahoj,
mam nasledujici problem.
Delam MDI aplikaci, v niz je kazde detske okno v samostatnem baliku.
Potrebuji, aby si aplikace pri spusteni
zjistila vsechny pritomne baliky a podle toho si vytvorila nabidku. Bohuzel
nevim, jak udelat obsluhu kliknuti jednotlivych polozek menu.
Ukazka kodu mi velmi pomuze.
Predem diky.
Martin Falta
martin.falta(zv)atlas(tec)cz
Vzdalena sprava PC : bylo Vzdalena sprava IB6
[*] L. ZITA <konference(zv)sales(tec)cz> - 7.10.2000 23:36:45
Behalf Of Jano
>
>
> >Videl jsem utilitu na spravu celeho PC (Neco na zpusob terminaloveho
> >pristupu, ale tim
> >rozdilem, ze server ma jen jeden terminal). dobre i na spravu PC v
> >podnikove siti.
> >Bohuzel si nemohu vzpomenou jak se jmenuje.
> >Snad by mohl pomoci nekdo jiny.
>
> Ahoj,
>
> Na dialkovu spravu PC-cok po sieti som skusil Remote Administrator...
> http://www.mtu-net.ru/radmin/
> radmin(zv)mail.ru
> Je to zatial najlepsie a najrychlejsie s cim som sa doteraz stretol. Facha
> na W9x/NT4.0 a TCP/IP. Samozrejme nainstalovat ho na obidva kompy a mas
> uplnu kontrolu nad strojom, akokeby si sedel fyzicky pri nom, ale
> nie je to
> FREE :-(
>
> Jano
Ahoj.
Zkus VNC http://www.uk.research.att.com/vnc/
Odzkouseno W98/W2000.
Je to FREE.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 5.5.2000
OT:Presmerovanie LPT do txt-suboru
[*] Hurricane <hurricane(zv)quick(tec)cz> - 8.10.2000 00:27:43
Zdravim
No a
MODE LPT1:=PRN
nebo
MODE LPT1:=FILE
nefunguje? Ja sem to teda presmerovaval na COM2, ale mely by to jit i do
souboru. Ale nevim, jak se to pohodne s widlema. No zkus to.
Hurricane
----- Original Message -----
From: "Lauko �tefan" <lauko(zv)salamon.sk>
To: "Delphi CZ konferencia" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 07, 2000 10:40 AM
Subject: OT:Presmerovanie LPT do txt-suboru
> Ahoj,
> nemate niekto nahodou odkaz na nieco co by mi pomohlo vyriesit problem
> presmerovanie LPT-portu do suboru.
> DOS program nie je mozne menit - upravit tlac do suboru.
> Aby DOS program beziaci v prostredi Win pri tlaci na LPT zapisal text do
> suboru.
> Najlepsi by bol programcek v Delphi beziaci v pozadi nie rezident pre DOS.
> Este lepsi by bol link na nieco podobne ako ovladac tlaciarne v ktorom by
> bolo mozne filtrovat DOS print job do txt.
> Alebo navod na vyrobu takeho drivera.
> Prosim pomozte.
> Lauko.
>
>
>MS SQL 7
[*] Erik Salaj <winsoft(zv)napri.sk> - 8.10.2000 00:45:08
> Uz existuji i nativni komponenty, zatim beta verze. Jestli je
> nekdo chcete, napiste mi na muj mejl a ja vam je poslu.
Co su to nativne komponenty pre MS SQL 7?
Erik Salaj, WINSOFT
info(zv)winsoft.sk
IBX4.3
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.10.2000 00:59:22
From: "Ivan Koz�k" <kozaki(zv)atlas(tec)cz>
> Nebviete nahodou niekto, kde by som nasiel IBX4.3? Dik. Ivan
Ahoj,
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=15229
Petr Vones, amatersky programator
DBF - Pack table
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 8.10.2000 01:00:51
From: "Petr Sunek" <petr.sunek(zv)admina(tec)cz>
> potreboval bych vedet jak pomoci BDE a D5 udelat "pack table" (fyzicke
> odstraneni vymazanych vet) pro dbf tabulku.
Ahoj,
v BDE API helpu mas na to priklad u funkce DbiPackTable.
Petr Vones, amatersky programator
Spravne fungujuce funkcie UPPER a LOWER v IB6
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 8.10.2000 01:14:19
AnsiUpperCase a AnsiLowerCase
Radim
> Ako zabezpecim aby spravne fungovali funkcie v subj.. Lebo ak dam
> Upper("�esk� Bud�jovice") tak vznikne "�ESK� BUD�JOVICE" a lower spravi
> "�esk� bud�jovice", proste funkcie nechapu vztahy medzi nasimi
> nestandartnymi znakmi.
>
> Pouzivam Win1250 sadu. Bol tu uz niekto kto pisal ze ta alebo ona znakova
> sada funguje ako ma, ale u mna najlepsie funguje Win1250.
>
> Riesil to uz niekto ?
>
> Dakujem.
>
> Roland.IBX4.3
[*] Ivan Koz�k - 7.10.2000 19:35:42 -0800
Nebviete nahodou niekto, kde by som nasiel IBX4.3? Dik. Ivan
Vzdalena sprava PC : bylo Vzdalena sprava IB6
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 8.10.2000 07:41:14
ahoj,
nevim je-li to ono, ale u nas zkousime pcAnywhere a slapeto sqele!
http://enterprisesecurity.symantec.com/products/products.cfm?productID=2
(bohuzel je to za prachy)
petr
----- Original Message -----
From: L. ZITA <konference(zv)sales(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 07, 2000 11:36 PM
Subject: RE: Vzdalena sprava PC : bylo Vzdalena sprava IB6
> Behalf Of Jano
> >
> >
> > >Videl jsem utilitu na spravu celeho PC (Neco na zpusob terminaloveho
> > >pristupu, ale tim
> > >rozdilem, ze server ma jen jeden terminal). dobre i na spravu PC v
> > >podnikove siti.
> > >Bohuzel si nemohu vzpomenou jak se jmenuje.
> > >Snad by mohl pomoci nekdo jiny.
> >
> >
> > Ahoj,
> >
> > Na dialkovu spravu PC-cok po sieti som skusil Remote Administrator...
> > http://www.mtu-net.ru/radmin/
> > radmin(zv)mail.ru
> > Je to zatial najlepsie a najrychlejsie s cim som sa doteraz stretol.
Facha
> > na W9x/NT4.0 a TCP/IP. Samozrejme nainstalovat ho na obidva kompy a mas
> > uplnu kontrolu nad strojom, akokeby si sedel fyzicky pri nom, ale
> > nie je to
> > FREE :-(
> >
> > Jano
>
>
> Ahoj.
> Zkus VNC http://www.uk.research.att.com/vnc/
> Odzkouseno W98/W2000.
> Je to FREE.
>
> Ludek
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 5.5.2000
Form Skins
[*] Ing. Csaba Kissi <ckissi(zv)email(tec)cz> - 8.10.2000 07:43:05
Ahoj vsetci,
Vie niekto akym sposobom sa da zmenit vzhlad okien podobne ako to robi windowblinds.
Ide mi o uz hotove programy (.exe) nie o novo vyvijane. Vdaka za kazdu radu.
EMAIL.CZ - Va�e po�ta je v�dy s V�mi
http://www.email(tec)cz
MS SQL 7.0
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 8.10.2000 07:54:35
On 7 Nov 2000, at 13:50, Campulka Jiri wrote:
> Nevim jestli existuje nejakej nativni pristup k MS SQL v Delphi, ale
> urcite by se slo zbavit BDE skrz nejaky free ODBC komponenty, kterejch
> je dost.
Vrele nedoporucuji jit na MS SQL pres ODBC, je to problematicke
z hlediska dalsi udrzby a prechodu na nove verze.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vyvoj SW pro DOS v prostredi Delphi
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 8.10.2000 08:03:42
Zdravim,
ja mam zajem a urcite by se naslo vice zajemcu programovat DOS pod Win a
spoustet DOS aplikace bez omezeni pameti.
Za ty prachy to beru.
Problem je ale co s copyright pro BP.
Pavel ZIDEK
P.S. Dema z tvoji stranky nejdou stahnout, protoze neexistuji
----- Original Message -----
From: Bohuslav �vancara <softprojekt(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, November 03, 2000 10:35 PM
Subject: RE: Vyvoj SW pro DOS v prostredi Delphi
> Ahoj!
>
> Ja to umim a dokonce toho umim i trochu vic, nez pozadujes.
>
> Umim v Delphi editovat a ladit konzolovou aplikaci a tim si odladit cely
> program pro MSDOS. Vysledny EXE se prozene pres WDOSX a tim se ziska
> 32-bitovy (!) program pro MSDOS. Dosovsky program pak nema omezenou pamet,
a
> muzes v nem pouzivat vsechny vymozenosti Object Pascalu (AnsiString,
> try-except-finally, classes, atd.), samozrejme bez grafickych komponent.
> Zdrojove texty Borland Pascalu jsou pouzitelne vyjma assembleru. (A kdyz
si
> das ve zdrojacich pozor napr. pomoci {$IFDEF WIN32}, tak muzes prekladat v
> BP i v Delphi. Ja to tak delam. V BP 7.0 samozrejme nemuzes pouzivat veci
z
> Object Pascalu.)
>
> Z jednech zdrojaku mas zaroven konzolovou aplikaci pro Windows a program
pro
> DOS. Pro Windows jsem udelal i "Grafickou konzoli", takze pak je z
> dosovskeho programu opravdu Windows program. (Ale vypada jako dosovky.)
>
> Dokonce jsem predelal dosovskou knihovnu Object Professional 1.30 od
> TurboPower tak, aby se dala pouzit v Delphi 3 a 5.
>
> Nedotahnul jsem to az do konce, ale schazi jenom malo. Pro dosovsky
program
> nemam dokoncenou podporu mysi a funkci pro spusteni jednoho programu z
> druheho. A nejakou slusnejsi dokumentaci v opravdove anglictine, nikoli v
te
> moji. Pro lidi pouzivajici Object Professional take potrebuji dodelat
> patcher zdrojovych souboru.
>
> Windows aplikace zalozene na dosovske knihovne Object Professional ale
chodi
> jako konzolova a "graficky konzolova" aplikace ve Windows prakticky bez
> problemu.
>
> Pro programy, ktere Object Professional nepouzivaji, bych to musel
upravit.
> Ale nemel by to byt velky problem - par dnu prace.
>
> Chtel bych to dodelat, ale nechci to davat zadarmo.
>
> Kdyby se nasel zajemce, ktery by to koupil rekneme za 2500,- Kc, tak by me
> to donutilo to dodelat.
>
> Jestli to nektery majitel knihovny Object Professional chce vyzkouset, tak
> zarodek dokumentace je zde:
> http://www.razdva(tec)cz/svancara/unisondw
> a download je zde:
> http://www.razdva(tec)cz/svancara/UnisonDW/download/Index.htm
>
> Pokud by to za 2500,- chtel nekdo, kdo nepouziva Object Professional, tak
at
> se mi ozve asi za 14 dnu (dva tydny ted mam prace az nad hlavu) a
domluvime
> se, ze behem dalsich rekneme 3 tydnu bych to dodelal.
>
> Informace o problemu jsou zde:
>
> - www.wuschel.demon.co.uk (WDOSX - ten pouzivam)
> - http://home.t-online.de/home/immo.wache/dwp/en (toto jsem nezkousel)
>
> S pozdravem
>
> Bohuslav Svancara
> softprojekt(zv)iol(tec)cz
>
> PS: Mluvime o Delphi 3 az 5. Nikoli o nizsich verzich.
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ji�� Foldyna
> Sent: Friday, November 03, 2000 9:47 AM
> To: 'Delphi konference'
> Subject: Vyvoj SW pro DOS v prostredi Delphi
>
>
> Ahoj,
>
> udrzuji nekolik (asi tak 15) programu urcenych do DOS prostredi a libilo
by
> se mi, kdybych mohl misto IDE Borland Pascalu pouzivat IDE Delphi - jen
pro
> editaci a preklady, samozrejme, ladim ve starem dobrem Turbo Debuggeru.
> Nemate nekdo povedomost o tom, jak bych mohl z IDE Delphi spoustet
> kompilator Borland Pascalu ?
>
> Diky
>
> Ing. Jiri Foldyna
> mailto:jiri.f(zv)avizo(tec)cz
>
>
>D5 & DLL: ako na funkciu?
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.10.2000 08:05:57
Haj hou!
On 7 Nov 2000,, Ondrej Jaura wrote:
> * ako ulozit String do PChar-u?
Funkci StrPCopy nebo StrPLCopy. Detaily v helpu.
> * ako pouzit fciu v programe (pouzivajucom toto DLL)
Lze naimportovat staticky nebo dynamicky.
Staticky:
function Vrat(nieco: PChar; dlzka: integer): boolean; external
'MyDLL.DLL' ; {mozno pouzit direktivu name nebo index pokud se
jmenuje jinak nez Vrat, viz help}
Dynamicky: Viz help o funkcich LoadLibrary, GetprocAddress a
FreeLibrary.
> * ako vytvorit v tomto programe (detto) PChar premennu a pod...
But deklarovat staticky pole znaku (array [0..Max] of char) nebo
dynamicky pres AllocMem.
> * mam vuobec pouzivat PChar, alebo prejst na AnsiString - ale
> potrebujem to DLL vyuzivat i v inych prostrediach ako su od fy Borland... (s
> PChar to fungovalo:)
Ano.
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.Spravne fungujuce funkcie UPPER a LOWER v IB6
[*] Campulka Jiri <campulka(zv)czas(tec)cz> - 8.10.2000 08:11:49
M�m na to napsane vlastni UDF, ktere to resi.
Muzu poslat.
campulka(zv)czas(tec)cz
----- Original Message -----
From: "Roland Tur�an (RoTurSoft)" <rotursoft(zv)nextra.sk>
To: "Delphi CZ konferencia" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 07, 2000 8:45 PM
Subject: Spravne fungujuce funkcie UPPER a LOWER v IB6
> Ako zabezpecim aby spravne fungovali funkcie v subj.. Lebo ak dam
> Upper("�esk� Bud�jovice") tak vznikne "�ESK� BUD�JOVICE" a lower spravi
> "�esk� bud�jovice", proste funkcie nechapu vztahy medzi nasimi
> nestandartnymi znakmi.
>
> Pouzivam Win1250 sadu. Bol tu uz niekto kto pisal ze ta alebo ona znakova
> sada funguje ako ma, ale u mna najlepsie funguje Win1250.
>
> Riesil to uz niekto ?
>
> Dakujem.
>
> Roland.
>
>MS SQL 7.0
[*] KadaneM(zv)sdc.pce.cdrail(tec)cz - 8.10.2000 08:21:03
A zkousel jste nekdo TaoADODataSet ten se dostane prez ODBC do databaze,
dokonce i funguje a je free, ale nepodarilo se mi ulozit do BLOBu obrazek.
Jinak ODBCe vypada dobre, ale ja moc neumim SQL prikazy, jestli nekdo mate s
ODBCe komponentama programek s opravou, pridanim polozky,smazanim a pridanim
obrazku nebo bin. souboru tak me ho prosim poslete abych vedel jak se to
dela.
Dik Mirek K.None
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 8.10.2000 08:24:47
> Ahoj, ozyvam sa este raz. Kedze nik neodpovedal.
> Potrebujem poradit z funkciou GetPrinter z unitu WinSpool
> Chcel som zistit stav tlaciarne popripade dalsie informacie,
> ktore su v
> datovej strukture TPrinterInfo2. Medzi inymi informaciami je tam
> aj Status.
> Nedari sa mi vsak spravne zavolat funkciu GetPrinter.
> Ako mam zadefinovat premennu buffer, resp aka ma byt jej alokovana velkost
> ked
> v napovede sa pise ze je to:
> DWORD cbBuf, // size, in bytes, of array of bytes
>
> Kde mam vlastne chybu??? Poradte zufalcovi:-((((((
> Tu je moj postup:
>
> uses Printers, WinSpool;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var PrinterInfo, Buffer: PChar;
> Count: DWORD;
> hPrinter, D3: THandle;
> PrinterName: array[0..cchDeviceName] of Char;
> D1, D2: array[0..MAX_PATH] of Char;
> begin
> with Printer do
> begin
> GetPrinter(PrinterName, D1, D2, D3);
> (* zistim handle tlaciarne - hPrinter*)
> Win32Check(OpenPrinter(PrinterName, hPrinter, nil));
> end;
Takhle ne !!!
> (* zistim potrebnu velkost struktury PrinterInfo2 aspon si to myslim -
> count*)
> Winspool.GetPrinter(hPrinter,2,nil,0,(zv)Count);> (* alokujem danu velkost a neviem ci je to spravne*)
> GetMem(Buffer, Count);
> try
> win32check(Winspool.GetPrinter(hPrinte
r,2,Buffer,SizeOf(Buffer),Retrieved)); !!!!!!!!!!!!!!
> PrinterInfo := Buffer;
> with PPrinterInfo2(PrinterInfo)^ do begin
> ShowMessage(IntToStr(Status));
> end;
> finally
> FreeMem(Buffer, Count);
> end;
> end;
>
>
> Marian
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
GDS32 a legalita
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 8.10.2000 08:48:03
Ahoj,
kdyz bych chtel se svou aplikaci postavenou na IBX sirit knihovnu
GDS32.dll - jadro interbase, bude to vubec legalni? Na druhou
stranu mi prijde zbytecne kvuli tomu nutit zakaznika instalovat si IB
klienta.
A jeste trochu odjinud. Jak zjistim v programu, kde je ulozen
soubor services, abych do nej mohl zapsat port IB6? Napr. na
W2000 je ulozen trochu jinde nez na predchozich verzich Windows.
Dik,
David
Jak uzamknout zaznam (Paradox)
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 8.10.2000 09:01:03
Ja to resim tak, ze mam v techto tabulkach polozku Zamek, kterou kontroluji.
Pred otevrenim detalniho okna editu zkontroluji jestli je tahle polozka
prazdna. Pokud ne tak zahlasim, ze nejde uzamknout zaznam a ze je uzamcen
tim a tim uzivatelem. Pokud je prazdna tak nejdriv uzamknu (vyplnim hodnotu)
a otevru edit. Pri ukonceni to zase vyprazdnim. Pokud dojde k havarii tak
tam mam jeste zadni vratka - uzivatel se stejnym jmenem se do tohoto zaznamu
dostane.
Milan Tomes
> (Delphi5Prof, BDE, Paradox)
>
> Ahoj..
>
> Mam ciselnik zamestnancu, ktery vybiram pomoci SQL dotazu. Pri zmene udaju
> pouzivam UpdateSQL..
> Aplikace ma byt sitova....takze potrebuji hlidat jestli u daneho
> editovaneho
> zamestnance prave neprovadi
> zmenu nekdo jiny. Aby se mi to nejak zamklo.....
> Asi tak jak to funguje pri primem napojeni na TTable.....Record
> is locked by
> another user..nebo tak nejak..
>
> Nutne bych potreboval pomoct, MOC DEKUJI
>
> Dalibor
Instalacia programu s BDE
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 8.10.2000 09:21:19
U tech DLL knihoven BDE otevri Properties a zatrhni Allow Express to self-re
gister this file
Milan Tomes
> Zdravim ucastnikov konferencie.
>
> Mam problem pri instalovani aplikacie ktora pouziva BDE.
> V Install SHield Express som pribalil k alplikacii balik "BDE", pri
> kontrolnej instalacii na mojom
> pocitaci vsetko funguje OK, pri instalovani na pocitac uzivatela
> ktory este
> nema nainstalovany "BDE"
> pri spusteni aplikacie hlasi chybu :" Ocurred while attemping to initialle
> the BDE 3E06.
> Prikladam "iwz" subor z projektu.
> Prosim o popostrcenie.
> Dakujem.
>
>
>
>
>
>
>
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
BLOB
[*] Jiri Dvorak <Jiri_Dvorak(zv)gordic(tec)cz> - 8.10.2000 09:49:49
Hello
Nevite jak vycucat Blob z datab�ze.
Nebo proc mi funkce TBDEDataSet.GetBlobFieldData stale vraci 0
Jirka Dvorak
D5 & DLL: ako na funkciu?
[*] brant(zv)dcomm(tec)cz - 8.10.2000 09:49:48
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
1. Na to je funkce StrpCopy.
2. Pomoci LoadLibrary natahnout do pameti, pomoci GetProcAddress zjistit
adresu potrebne funkce a pak ji staci jen zavolat. Nebo lze i staticky, kdy
se predepise nazev funkce a pomoci external se urci jmeno DLL. Bohuzel ted
nevim zpameti presnou syntaxi, ale v helpu to bude.
3. Staci jen deklarovat var x: array[0..MAX] of char a to x uz je typu
PChar. Musis davat pozor, aby delka ukladaneho retezce nepresahla delku
takto deklarovaneho pole a musi take zbyt misto na ukoncovaci nulu.
Doporucuji ponechat PChar.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
D&COMM s.r.o
Korunova�n� 6
Praha 7
-----Original Message-----
From: Ondrej Jaura [mailto:jaura(zv)datalock.sk]
Sent: Tuesday, November 07, 2000 7:33 PM
To: Delphi
Subject: D5 & DLL: ako na funkciu? Prijemny podvecer :) Ako na funkciu v DLL?
moja predstava:
function Vrat(nieco: PChar; dlzka: integer): boolean; stdcall;
begin
ulozit String do nieco;
Result:=true;
end;
otazky:
* ako ulozit String do PChar-u?
* ako pouzit fciu v programe (pouzivajucom toto DLL)
* ako vytvorit v tomto programe (detto) PChar premennu a pod...
* mam vuobec pouzivat PChar, alebo prejst na AnsiString - ale
potrebujem to DLL vyuzivat i v inych prostrediach ako su od fy Borland... (s
PChar to fungovalo:)
Nieco mam odskusane, ale radsej uvitam pokec o celom... :)
Dakujem za zachranne kolesa :)
Ondrej
P.S.
Ak ma toho byt vela - radsej na muoj e-mail...
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]DBF - Pack table
[*] brant(zv)dcomm(tec)cz - 8.10.2000 09:51:08
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
V RX Library je unit BDEUTIL a v nem je funkce Pack.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
D&COMM s.r.o
Korunovacn� 6
Praha 7
-----Original Message-----
From: Petr Sunek [mailto:petr.sunek(zv)admina(tec)cz]
Sent: Tuesday, November 07, 2000 8:49 PM
To: delphi-l(zv)fwd(tec)cz
Subject: DBF - Pack table
Zdravim,
potreboval bych vedet jak pomoci BDE a D5 udelat "pack table" (fyzicke
odstraneni vymazanych vet) pro dbf tabulku.
Diky
Petr Sunek
petr.sunek(zv)admina(tec)cz <mailto:petr.sunek(zv)admina(tec)cz>