Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Uprava standardnich dialogu Win95
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 26.2.1998 12:12:13
Dialogy upravovat lze, ale tezko. Formular musi byt ulozen jako resource (ne
Delphi RCDATA) s urcitym cislem a ten se pak musi obsluhovat.
Celkem dost slozite.
Je mi lito, ze nemohu poslouzit zdrojackem, ale zkus pohledat
v Dr.Dobb`s Journal rocnik 1997. Tam jsem to nekde videl.
Pokud ti je i tahle rada na knedlik, zkus www.ddj.com a jejich
archiv by mel prislusne zdroje obsahovat.
P.S. Uzivatel to stejne neoceni. Celkove to vypada tak, ze je lepsi si cely
formular
pro ukladani dat udelat sam.
Martin Nedopil
nedopil(zv)eskon(tec)cz
nedopil(zv)geocities.com
jsem doma na: http://www.geocities.com/Athens/Olympus/5260 (dnes nove dve
komponenty!)
Heslo dne:"Jsou-li tam, ustoup�me. Nejsou-li tam, hrrr na ne!"obrazovkovy kurzor - hodiny s SQL
[*] Jiri Soudny <jsoudny(zv)comp(tec)cz> - 26.2.1998 12:21:29
Po nekterych databazovych operacich zustava kurzor na obrazovce ve tvaru presypacich hodin s textem SQL i kdyz uz dana operace skoncila. Myslim, ze je to chyba BDE. Nevite jak tuto vlastnost jednoduse odstranit?
Diky
Jiri Soudny
jsoudny(zv)comp(tec)cz
Too many cursors open
[*] Jiri Soudny <jsoudny(zv)comp(tec)cz> - 26.2.1998 12:26:16
V nasi aplikaci se objevuje hlaseni od Delphi:
"Too many cursors open."
Nevite nekdo, kde se da pocet otevrenych kurzoru nastavit? Da se zjistit aktualni pocet otevrenych kurzoru?
Diky
Jiri Soudny
jsoudny(zv)comp(tec)cz
Tisk z DBOUTLINE
[*] Mal� Ladislav <Maly(zv)sdc.pce.cdrail(tec)cz> - 26.2.1998 14:12:03
Prosim o radu :
Pouzivam v D1 komponentu DBOutline zalozenou na TCustomOutline , v ktere
si hierarchicky zobrazuji data.Potreboval bych poradit s vytistenim
celeho GRAFICKEHO obsahu vcetne stromoveho usporadani
(carecky).Vytisknout obsah jako text odsazovany TAB umim.
Lada Maly
lmaly(zv)sdc.pce.cdrail(tec)cz
Zajimave souvislosti ?
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 26.2.1998 14:28:13
Mam problem s podivnym chovanim v D2:
Mam formular, kde jsou umisteny Panel se SpeedButtonama a DBGrid .
Na jednom ze SpeedButtonu je povesena mezi jinymi Create dalsiho formulare
pro zapis nebo opravy zaznamu, Insert a nasledne ShowModal formulare.
Vsechno chodilo OK dokud jsem jeden z SpeedButtonu, ktery jsem uz
nechtel, nezrusil. Pak pri Insertu nebo Editu se objevi hlaska: "Canot perform
this operation on a closed dataset". Pritom watch ukazuje tesne pred tim
State: dsBrowse. Ale ted jeste zajimavejsi: na Panel zpatky dam nejaky
nefunkcni SpeedButton (muze se jmenovat jakkoliv) a vsechno funguje OK !
Takze ted ho mam neviditelny aby mi to chodilo. Proste tam jenom zbytecne
trci. Neni mi jasne jak jeho pritomnost muze ovlivnit tuto situaci.
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: prosys(zv)grendel(tec)cz
Pracovni plocha
[*] Marian Goryl <mgoryl(zv)decon.unitra.sk> - 26.2.1998 15:53:43
On Wed, 25 Feb 1998, Jiri Malek wrote:
> Nazdarec,
>
> jinak poloha zastupcu je samozrejme ulozena v souborech *.LNK, od kterych
> nemam popis struktury, takze kde to tam je by slo zjistit snad jen
> experimentovanim...
>
Mozno je to pravda, no co ked je nastaveny atribut takehoto suboru na
Read-Only, ako sa potom do tohto suboru zapise nova pozicia zasupcu na
desktope?
e-mail mgoryl(zv)unitra.sk
Marian Goryl
Uprava standardnich dialogu Win95
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 26.2.1998 16:22:11
Myslim, ze jsem videl konkretni priklad u Borland C++ 5, ale to Ti asi moc nepomuze. (((-:
Arthur
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================
-----Original Message-----
From: Valicek Arnost [SMTP:valiceka(zv)mgv.inext(tec)cz]
Sent: Wednesday, February 25, 1998 5:00 PM
To: delphi(zv)pinknet(tec)cz
Subject: Uprava standardnich dialogu Win95
Jak muzu upravovat dialogy Windows 95, jako Otevrit soubor. Chtel
bych do nich pridat dalsi tlacitka a popr. i nejake komponenty (dela
to tak napr. Pain Shop Pro. Do dialgu Ulozit jako prida ComboBox s
typem souboru...)
Jak zobrazim dialog Urcit adresar. (pouzite napr. ve
Start-Hledat-Soubory ci slozky-Prochazet)
------------------------------------------------
Arnost Valicek (ValicekA(zv)mgv.inext(tec)cz)
------------------------------------------------
begin 600 WINMAIL.DAT
M>)\^((zv)P/`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`J $```$````0`````P``, (````+``\.``````(!_P\!````2 ``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````$1%3%!(22!$:7-T<FEB=71I;VX(zv)3&ES
M= !33510`&1E;'!H:4!P:6YK;F5T+F-Z`!X``C !````!0```%--5% `````
M'(zv)`#, $````2````9&5L<&AI0'!I;FMN970N8WH````#`!4,`0````,`_(zv)\&
M````'(zv)`!, $````;````)T1%3%!(22!$:7-T<FEB=71I;VX(zv)3&ES="<```(!
M"S !````%P```%--5% Z1$5,4$A)0%!)3DM.150N0UH```,``#D`````"P!
M.(zv)$````>`/9?`0```!D```!$14Q02$D(zv)1&ES=')I8G5T:6]N($QI<W0`````
M`(zv)'W7P$```!(`````````($K'Z2^HQ 9G6X`W0$/5 (`````1$5,4$A)($1I
M<W1R:6)U=&EO;B!,:7-T`%--5% `9&5L<&AI0'!I;FMN970N8WH``P#]7P$`
M```#`/]?``````(!](zv)\!````! ````````*U5P$$(zv) $`)(zv)```%)%.B!5<')A
M=F$(zv)<W1A;F1A<F1N:6-H(&1I86QO9W4(zv)5VEN.34`- T!!8 #``X```#.!P(`
M&(zv)`0`!8`"P`$`"8!`2" `P`.````S(zv)<"`!H`$ `5``X`! `H`0$)(zv) $`(0``
M`#!#1#0Y,S)"049!140Q,3$X-D-&,# P,$,P.$-#-D)#`%('`0.0!(zv)`(!P``
M(0````L``(zv)`!````"P`C```````#`"8```````L`*0```````P`N```````#
M`#8``````$ `.0"05?5.RD*]`1X`< `!````)(zv)```%)%.B!5<')A=F$(zv)<W1A
M;F1A<F1N:6-H(&1I86QO9W4(zv)5VEN.34````"`7$``0```!8````!O4+*3KXK
MD]0-KJ\1T8;/``# C,:\```>`!X,`0````4```!33510`````!X`'PP!````
M$(zv)```$%R=&AU<D!(;'!3;V9T+F-Z`````P`&$-;+]5(zv)#``<0(P,``!X`"! !
M````90```$U94TQ)32Q:14I314U6241%3$M/3DM2151.25!224M,04150D]2
M3$%.1$,K*S4L04Q%5$]424%324U/0TY%4$]-55I%*"(zv)H+3I!4E1(55(]/3T]
M/3T]/3T]/3T]/3T]/3T]/3T``````(zv)$)$ $```#=`P``V0,``.4%``!,6D9U
M2!S.>P,`"(zv)!R8W!G,3(U%P%#`30+8&X.$# R.1T!]R "I /C`(zv)!P<G$2-P(`
M8V(zv)*P'-E='PP( <3`H,`4!!V$54RU#,X```J`N%A!X 1UE$'$R!#10*#,A!J
M,LT1UGT*(zv) C((#L);PXP9C4"(zv) J!=6,`4 L#8S,`00\$,S,+I(zv)70>7.B; =P
M+"!Z%$!J$9"P;2!V:0$``R!K`B J:PEP= ,`(!#P:6O!"V!D('4(zv)0(zv)6P#P'!
M'<!#*RL(zv)-1O !T!Q%$!T;R '8![(zv)`) (zv)001(zv)8R!N97 #<'61&^ N("(zv)(zv)L"TZ
M"J+S"H '$'1H"' 28B$3(?B'&?("T0O",3<(zv)/2/?YR3O)1 A!$1A'&$1T2&"
MLP70(&!A=!S (01(')!8<%-O`8 ;P',(zv),&Q+() $('((zv)D&\N(015(')U9W5A
M&W!K840(zv),1O 4')A$6 (zv)"Q6(zv)(1-T') N+V9A*'(zv)N.BL(zv)-!D!.#%R-AO .3 M
M`"Q(zv)`< M\C4A!&4M`, #$"PP(63$0$(zv)H1"YC>B$$)1]_,.\E]R):%9,LL"):
M&Y S5C8!0!#P;RN(zv)8P5 +;4U8D\%$&<+(zv)!4!30>0^'-A9RWP-6(R-C3T-,$'
M"Q,T] (`:2TQ-#1S`4 ;D#$X+0`,P3D#8EP(zv)1(zv)-A(/ ,DF(1P%83!T -X&5K
M$=%N;W,!!4!;4TU44#IV(zv)3LT84!M9W8N"X#T97(zv)O0ETR-3HP!F ",,TZEU<)
M(zv)" 0<V0J0!O V$9E8BH`"L!Y*R >P= Q.3DX'K Z+0`JP#)-/==4;SJ7'(%P
M:.AI0' +(zv)&L(zv)$"](/C+8=6)J-2$ZEU40\":0_RJ .^ >00L1`P`14$*(zv)!S'N
M;RH(zv)/R +(zv)#DMA3=O.'2?-(0/!A)D# $A$TIA.X#K(%$=X'5%8F\\< 5 1I3C
M0%!'$61O=P0(zv)1T ;P-9J2P`?0$\KH'8%$ 5 SG,(8 ;(zv)*4%#:"NA"N/Y"H!B
M>49B'T!&0QUA/Y#73 $'0!^A= M(zv)8TX`*G'_*H (zv),!#P() =0" 036$40+T<
MP&T(zv)," 0`C! 4"(zv)<(zv)7\J(zv)"M%'T !D#N %!!1XE ["W$&`&A1T"K!*7 (zv)1-<?
M0$:21N%5"0!Z3(zv)%-8]]00Q4(zv)`W &X!X`>"D1*T5,>7 <,4XT=2Y9(zv)"G3,CI*
M\GIO0 !A5K <0-M&E$5 <E%!'N!D"7 V<'TI02(zv)(zv),"!(zv)3(zv)`40%24=ML40"$$
M4P&0`" M+N )(zv)/TG(zv)"TH8$Y20%!10"BP5I&X:WDM59$141O(zv)=%F[?S5C8<]B
MWV-W(08[PSLF*/T[)4$\^UFU8W]HKV.O(3$%%P$`:T ````#`! 0``````,`
M$1 ``````P" $/____] ``<P(zv)*-O+<I"O0% ``(zv)P(zv)*-O+<I"O0$+`!^ "" &
M``````# ````````1(zv)`````#A0````````,`(X (( 8``````, ```````!&
M`````%*%``#P#(zv)``'(zv)`D(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````$
M````."XP``,`)8 (( 8``````, ```````!&``````&%````````"P`N(zv) (zv)(zv)
M!(zv)``````P ```````$8`````#H4````````#`"^ "" &``````# ````````
M1(zv)`````0A0````````,`,( (( 8``````, ```````!&`````!&%````````
M`P`S(zv) (zv)(zv)!(zv)``````P ```````$8`````&(4````````>`$. "" &``````#
M````````1(zv)`````VA0```0````$`````````'(zv)!$(zv) (zv)(zv)!(zv)``````P ``````
M`$8`````-X4```$````!`````````!X`18 (( 8``````, ```````!&````
M`#B%```!`````0`````````>`#T``0````4```!213H(zv)``````,`#33]-P``
"FJ6%
`
end
Tisk z DBOUTLINE
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 26.2.1998 17:12:15
-----Original Message-----
From: Maly Ladislav [SMTP:Maly(zv)sdc.pce.cdrail(tec)cz]
Sent: Thursday, February 26, 1998 2:12 PM
To: delphi(zv)pinknet(tec)cz
Subject: Tisk z DBOUTLINE
Prosim o radu :
Pouzivam v D1 komponentu DBOutline zalozenou na TCustomOutline , v ktere
si hierarchicky zobrazuji data.Potreboval bych poradit s vytistenim
celeho GRAFICKEHO obsahu vcetne stromoveho usporadani
(carecky).Vytisknout obsah jako text odsazovany TAB umim.
[Arthur]
A v cem je v tom pripade problem??? Rekl bych, ze si to chce jen trochu
pohrat a popremejslet a pokud to ani potom nezapne, tak se juknout treba na
to, jak ze se ten TCustomOutLine vlastne vubec kresli a udelat to stejne.
Arthur
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================obrazovkovy kurzor - hodiny s SQL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.2.1998 17:44:49
> Po nekterych databazovych operacich zustava kurzor na obrazovce ve tvaru presypacich hodin s
> textem SQL i kdyz uz dana operace skoncila. Myslim, ze je to chyba BDE. Nevite jak tuto vlastnost
> jednoduse odstranit?
Me se to tedy jeste nestalo. Ale kurzor das zpet takto:
Screen.Cursor := crDefault
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Zruseni autocreate
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.2.1998 19:58:53
Martin Dupal wrote:
> Diky, ale to jsme si nerozumeli.
> Ja bych chtel, aby pri vytvoreni noveho formu IMPLICITNE nebyl
> v seznamu autocreate, protoze normalne je do toho seznamu zarazen a
> ja ho musim zpusobem, ktery jsi mi popsal vyradit. Jedna se mi tedy
> o zmenu standardniho chovani prostredi Delphi.
Aha, Tak to by me take zajimalo. Celkove v Delphi postradam radu
ruznych nastaveni... :-(
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
UNION v SQL
[*] V�clav �trunc - 26.2.1998 21:16:32
Nevite nekdo nahodou, jak se pouziva prikaz UNION v SQL?
Dik, Ricky...
vaclav.strunc(zv)unl.pvtnet(tec)cz Uprava standardnich dialogu Win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.1998 22:50:02
Valicek Arnost wrote:
>
> Jak muzu upravovat dialogy Windows 95, jako Otevrit soubor. Chtel
> bych do nich pridat dalsi tlacitka a popr. i nejake komponenty (dela
> to tak napr. Pain Shop Pro. Do dialgu Ulozit jako prida ComboBox s
> typem souboru...)
Pokud mas Delphi3, podivej se na zdrojak komponent TOpenPictureDialog.
Tady jsem se pokusil o jednoduchy priklad s pridanim tlacitka.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure OpenDialog1Show(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FPanel: TPanel;
procedure DlgButton1Click(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.OpenDialog1Show(Sender: TObject);
var
Wnd: HWND;
begin
Wnd := GetWindowLong(OpenDialog1.Handle, GWL_HWNDPARENT);
SetWindowPos(Wnd, 0, 0, 0, 500, 300, SWP_NOZORDER or SWP_NOMOVE);
FPanel := TPanel.Create(OpenDialog1);
with FPanel do
begin
Name := 'DialogPanel';
Caption := '';
SetBounds(0, 0, 500, 300);
BevelOuter := bvNone;
ParentWindow := Wnd;
end;
with TButton.Create(OpenDialog1) do
begin
Parent := FPanel;
Name := 'PokusButton';
Left := 50;
Top := 250;
Caption := 'Pokus';
OnClick := DlgButton1Click;
end;
end;
procedure TForm1.DlgButton1Click(Sender: TObject);
begin
MessageBeep(0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;
end.
Petr Vones, amatersky programator
UNION v SQL
[*] Dan Ohnesorg, admin of POWER <dan(zv)feld.cvut(tec)cz> - 26.2.1998 22:53:42
On 26 Feb 98 at 21:16, V�clav �trunc wrote:
> Nevite nekdo nahodou, jak se pouziva prikaz UNION v SQL?
SELECT jmeno, prijmeni FROM lidi UNION
SELECT trida, druh FROM zvirata ORDEB BY 1;
Syntaxe se bude asi mirne obmenovat podle SQL serveru.
Vznikly dataset je zasadne read-only.
zdravim
dan
________________________________________
DDDDDD
DD DD Dan Ohnesorg, supervisor on POWER
DD OOOO Dan(zv)feld.cvut(tec)cz
DD OODDOO Dep. of Power Engineering
DDDDDD OO CTU FEL Prague, Bohemia
OO OO work: +420 2 24352785;+420 2 24972109
OOOO home: +420 311 679679;+420 311 679311
________________________________________
Neodkladej na zitrek, co dnes mohou udelat jini.Drag & Drop, dve instance
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.1998 23:01:49
Arthur wrote:
>
> -----Original Message-----
> From: Peter Rus [SMTP:peterrus(zv)intesys(tec)cz]
> Sent: Wednesday, February 25, 1998 1:00 PM
> To: DELPHI Distribution List
> Subject: Re: Drag & Drop, dve instance
>
> Ahoj Arthure,
>
> pokud by se na to ta chytra hlavicka mrkla, bylo by to uplne super .. mockrat diky, ale docela by me i zajimalo, jak se to dela pres toho explorera (nebo Z explorera) .. pokud bys mohl ztratit nejake to slovo, bylo by to super.
Pokud ti jde jen o pretahovani souboru Z nebo DO exploreru, tak na Delphi Super
Page jsou komponenty TDragFilesSrc a TDragFilesTrg vcetne zdrojaku. Pokud
by to zde ale nekdo vyresil obecne, tak aby se daly pretahovat libovolne datove
struktury, byl bych mu za to tez velmi vdecen.
Petr Vones, amatersky programator
obrazovkovy kurzor - hodiny s SQL
[*] Jiri Soudny <jsoudny(zv)comp(tec)cz> - 27.2.1998 09:52:29
Diky, to funguje.
Kdyz je pred DB akci jiny kurzur nez crDefault, tak si ho budu muset schovat a pak zobrazit.
A to vsude, kde je nejaka DB akce :-( .
----------
From: Petr Zahradnik
Sent: 26. �nora 1998 17:44
To: delphi(zv)pinknet(tec)cz
Subject: Re: obrazovkovy kurzor - hodiny s SQL
> Po nekterych databazovych operacich zustava kurzor na obrazovce ve tvaru presypacich hodin s
> textem SQL i kdyz uz dana operace skoncila. Myslim, ze je to chyba BDE. Nevite jak tuto vlastnost
> jednoduse odstranit?
Me se to tedy jeste nestalo. Ale kurzor das zpet takto:
Screen.Cursor := crDefault
S pozdravem
Petr Zahradnik, pocitacovy expert
Internet a E-mail
[*] V�t�zslav Gazda������u��n�?��? - 27.2.1998 10:18:09
1) Kde v registracni databazi najdu informaci jak spustit implicitni WWW
prohlizec a zobrazit v nejakou danou stranku ? Potrebuji, aby to fungovalo
na vsechny prohlizece (Microsoft, Netscape, atd.)
2) Kde v registracni databazi najdu informaci jak otevrit okno implicitni
postovni aplikace pro novou zpravu. Mel bych upozornit, ze nechci spustit
postovni aplikaci, ale jen jeji okno pro odeslani nove zpravy. Do toho okna
potrebuji take vlozit nejakou implicitni e-mail adresu.
Diky Vita
Internet a E-mail
[*] Nykl, Pavel <nykl(zv)satoya(tec)cz> - 27.2.1998 10:44:46
Ad 1. Nevim kde je current, ale ja to delam tak, ze kouknu na asociaci html
a z ni vyjdu pri otevirani podle shellu v registrech
Ad2. local_machine\software\clients\mail - defaultni hodnota je defaultni
mailer - ta vetev ma i kompletni shell pro posilani nove zpravy.
-----------------------------------------------------------------
Pavel Nykl Saturn Toya s.r.o. - Teletext systems
mailto:nykl(zv)satoya(tec)cz P.O.Box 44,169 00 Praha 69,Czech republic
http://www.satoya(tec)cz/~nykl/ Phone,fax **420-2-57216290,352939
-----------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 27. �nora 1998 10:35
P�edm�t: Internet a E-mail
>1) Kde v registracni databazi najdu informaci jak spustit implicitni WWW
>prohlizec a zobrazit v nejakou danou stranku ? Potrebuji, aby to fungovalo
>na vsechny prohlizece (Microsoft, Netscape, atd.)
>
>2) Kde v registracni databazi najdu informaci jak otevrit okno implicitni
>postovni aplikace pro novou zpravu. Mel bych upozornit, ze nechci spustit
>postovni aplikaci, ale jen jeji okno pro odeslani nove zpravy. Do toho okna
>potrebuji take vlozit nejakou implicitni e-mail adresu.
>
>Diky Vita
>Jak na asociovane soubory
[*] TucekR(zv)p15.monet(tec)cz - 27.2.1998 11:34:00
Jak spustit asociovany soubor v Delphi 3.0?
Je na to API fce ale ja ji nemuzu najit.....
(chci spustit napr. html nebo tif tzn aby se mi otevrel program a do nej
se to nacuclo) TRTsoft
Internet a E-mail
[*] Hrb�� David - 27.2.1998 12:10:15
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 27. �nora 1998 9:29
P�edm�t: Internet a E-mail
>1) Kde v registracni databazi najdu informaci jak spustit implicitni WWW
>prohlizec a zobrazit v nejakou danou stranku ? Potrebuji, aby to fungovalo
>na vsechny prohlizece (Microsoft, Netscape, atd.) ShellExecute(handle, nil, 'http://zadany_server', nil, nil,
SW_SHOWNORMAL);>2) Kde v registracni databazi najdu informaci jak otevrit okno implicitni
>postovni aplikace pro novou zpravu. Mel bych upozornit, ze nechci spustit
>postovni aplikaci, ale jen jeji okno pro odeslani nove zpravy. Do toho okna
>potrebuji take vlozit nejakou implicitni e-mail adresu. ShellExecute(handle, nil, 'mailto:adresa(zv)neco(tec)cz', nil, nil,
SW_SHOWNORMAL);
David.Tisk tabulek
[*] Lubo Nov� <lnovy%unicos(zv)unicos> - 27.2.1998 12:49:40
Mam problem s tiskem tabulek. Nechci pouzit ReportSmith.
Potrebuji vytisknout obsah bud komponenty DBGrid, nebo StringGrid, nebo neceho podobneho. Nasel jsem jakousi komponentu, ktera tiskne obsah komponenty DBGrid do tabulky, jenze ta mi zase vytiskne jenom jednu tabulku na stranku a jich potrebuju tisknout na stranku vic. Diky za kazdou radu.Jak na asociovane soubory
[*] Pavel Kral <kral(zv)afx(tec)cz> - 27.2.1998 13:24:53
ShellExecute
-----Original Message-----
From: TucekR(zv)p15.monet(tec)cz <TucekR(zv)p15.monet(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 27. �nora 1998 11:49
Subject: Jak na asociovane soubory
>Jak spustit asociovany soubor v Delphi 3.0?
>Je na to API fce ale ja ji nemuzu najit.....
>(chci spustit napr. html nebo tif tzn aby se mi otevrel program a do nej
>se to nacuclo)
>
> TRTsoft
>
Drag&Drop na ikonu
[*] psoft <psoft(zv)kosice.telecom.sk> - 27.2.1998 14:04:56
Zdravim,
neviete niekto, ako sa robi aktivacia programu pri preneseni suboru
nad jeho ikonu ? Napr. mam na desktope ikonu tlaciarne, ak na nu
prenesiem nejaky subor, potom tlacim ... Namiesto tlaciarne by tam
bol moj program ...
Vdaka.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Drag&Drop na ikonu
[*] V�t�zslav Gazda������u��n�?��? - 27.2.1998 14:55:58
Prenesenim jakehokoliv souboru i nekolika souboru na soubor aplikace se
automaticky spusti tato aplikace a v prikazovem radku se predaji vsechny
prenesene soubory. V tve aplikaci staci pouze pri spusteni zjistit seznam
souboru z prikazoveho radku pomoci funkci ParamCount a ParamStr a provest s
nimi nejakou operaci.
Prenaseni souboru na okno jiz spustene aplikace se provadi pomoci API funkce
DragAcceptFiles a obsluhou zpravy WM_DROPFILES (viz. API Help).
Vita
UNION v SQL
[*] Pavel Klimes <klimes(zv)c3(tec)cz> - 27.2.1998 15:10:42
Dan Ohnesorg, admin of POWER wrote:
>
> On 26 Feb 98 at 21:16, V�clav �trunc wrote:
>
> > Nevite nekdo nahodou, jak se pouziva prikaz UNION v SQL?
>
> SELECT jmeno, prijmeni FROM lidi UNION
> SELECT trida, druh FROM zvirata ORDEB BY 1;
>
> Syntaxe se bude asi mirne obmenovat podle SQL serveru.
> Vznikly dataset je zasadne read-only.
>
Jak je videt z prikladu, nejde vlastne o "prikaz", ale o operator,
ktery spojuje vysledky (nekolika) dotazu.
Zdravim.
--
+---- Pavel Klimes ---- mailto:klimes(zv)c3(tec)cz ----+--- /""\ \ o | ---+
| C3, s.r.o. (Czech Card Centrum) | __) """ |
| Srobarova 32, Praha 10, Czech Republic | \/"""\ |
+---------------------- http://www.c3(tec)cz -------+--- \____/ / ---+jak poznat dosovskou aplikaci
[*] Pavel Kral <kral(zv)afx(tec)cz> - 27.2.1998 19:16:46
Zdravim vsechny,
nevite nekdo, jak zjistit, jestli aktivni aplikace je dosovska?
znam funkci GetForegroundWindow, ale co potom?
Diky, Pavel
Problem s dotazy SQL
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 28.2.1998 10:51:22
Ahoj vsichni vestci,
mam nasledujici problem a nevim si s nim rady.
Situace je asi takova:
Mam tabulku DBF se 2 sloupci (fields):
"Cislo" (Typ Numeric, Velikost 2) a "Datum" (Typ Date)
Jen tak pro informaci pouzivam Delphi 3.0.
Kazde Cislo ma obvykle nekolik zaznamu s odlisnymi daty (datumy):
Priklad:
Cis. Datum
1 1.2.1998
1 5.2.1998
1 10.3.1998
2 5.5.1998
2 6.6.1998
.... atd.
Potreboval bych z tabulky vytahnout jen zaznamy obsahujici jedno
specificke cislo, spocitat kolik jich je a seskupit podle datumu.
Pouzivam k tomu nasledujici SQL definici:
SELECT
COUNT(P.CISLO) as Pocet, P.Datum as Datum
FROM Pokus P
WHERE (P.CISLO=15)
GROUP BY Datum
Pokud se toto cislo v tabulce vyskytuje, vse je vporadku.
Pokud ale cislo v tabulce jeste neni, vyvola to chybu
"Translate Error. Value out of bounds.". Nevim proc, ale vim,
ze to dela field "Datum". Nedari se mi v Delphi tuto chybu nijak
podchytit v programu, coz bych potreboval.
Budu vdecny za kazdou radu, a predem Dekuji.
Ricky...
E-Mail: rick.strunc(zv)writeme.com
Kniha k Delphi 3
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 28.2.1998 13:37:14
Hi all,
nevite nahodou nekdo, jestli uz vysla
nejaka kniha o Delphi 3. Nekdo mi rikal, ze ma
vyjit Mistrovstvi v Delphi 3 snad od Computerpressu
nebo od Unisu. Zatim jsem ji nikde nevidel.
Ahoj,
Ricky....
rick.strunc(zv)writeme.com
Problem s dotazy SQL
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 28.2.1998 16:09:35
-----Original Message-----
From: Richard ?trunc [SMTP:rick.strunc(zv)writeme.com]
Sent: Saturday, February 28, 1998 10:51 AM
To: Poispivky k delphi
Subject: Problem s dotazy SQL
Pouzivam k tomu nasledujici SQL definici:
SELECT
COUNT(P.CISLO) as Pocet, P.Datum as Datum
FROM Pokus P
WHERE (P.CISLO=15)
GROUP BY Datum
Pokud se toto cislo v tabulce vyskytuje, vse je vporadku.
Pokud ale cislo v tabulce jeste neni, vyvola to chybu
"Translate Error. Value out of bounds.". Nevim proc, ale vim,
ze to dela field "Datum". Nedari se mi v Delphi tuto chybu nijak
podchytit v programu, coz bych potreboval.[Arthur]
Pokud se Ti opravdu nedari odchytit chybu v programu (coz je divne, rekl
bych, ze nekde musis mit minimalne nejaky kod Query.Active:= True a pak to
odchytis normalnim try..except..end), tak nevim.
Jinak bych Tebou uvedenemu kodu predradil nasledujici kod:
================================
with TQuery.Create(nil) do
try
SQL.Text:= 'SELECT COUNT(*) FROM POKUS WHERE CISLO=15';
Active:= True;
if Fields[0].AsInteger > 0 then
begin
//a mas jistotu, ze existuje alespon jeden zaznam
end;
finally
Free;
end;
================================
Mozna, ze to jde lip nebo mas nejakou chybu SQL, BDE... moznosti je
spousta.
Cau Arthur
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================
Kniha k Delphi 3
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 28.2.1998 16:17:57
-----Original Message-----
From: Richard ?trunc [SMTP:rick.strunc(zv)writeme.com]
Sent: Saturday, February 28, 1998 1:37 PM
To: Poispivky k delphi
Subject: Kniha k Delphi 3
Hi all,
nevite nahodou nekdo, jestli uz vysla
nejaka kniha o Delphi 3. Nekdo mi rikal, ze ma
vyjit Mistrovstvi v Delphi 3 snad od Computerpressu
nebo od Unisu. Zatim jsem ji nikde nevidel.
[Arthur]
Unis pripravuje Using Delphi3. Bude rozdelena asi na 5 dilu (coz Ti umozni
koupit si jen to, co Te zajima a usetrit penize, ktere bys jinak vyhodil,
za kapitoly, ktere uz davno znas) a zacatek vydavani se da cekat asi tak v
breznu az dubnu. Prekladatele (vetsinou stejna grupa, ktera prekladala
Delphi-pruvodce vyvojare) ji hodnoti velice kladne (doufam, ze me za tolik
reklamy alespon nekdo pochvali :-).
Cau Arthur
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================pouziti chartfx
[*] pepa dodek <J.Dodek(zv)sh.cvut(tec)cz> - 28.2.1998 17:52:59
nevite nekdo jak dostat do grafu ChartFX vlastni data. Zkousel jsem to pres ThisSerie, ThisPoint aTthisValue ale nejak to nereagovalo na zadavani novych hodnot. Poradi mi nekdo prosim ? dik pepa
Databaze: Popisek aktualniho pole
[*] Klokan - Petr P�idal <klokan-pp(zv)usa(tec)net> - 28.2.1998 19:40:19
Ahoj vsichni!
- Nepotrebovali jste nahodou nekdo u databazoveho programu pri
prochazeni tabulkou (pomoci ruznych komponent - napr. DBEdit, DBGrid,
...) zobrazovat popis pro aktualni polozku databaze napr na stavovem
radku?
Jestlize ne, tak bych alespon potreboval poradit s timto:
Napadlo me vyuzit nektere z nabizenych vlastnosti TField: FieldName,
DisplayLabel, DisplayName, DisplayText.
Tvarilo se to funkcni s procedurou:
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
StatusBar1.SimpleText := Table1.Fields[Table1.RecNo].DisplayName;
end;
Table1.RecNo je ale chybne. Potreboval bych zjistit, kde se da precist
cislo nebo pointer na aktualni sloupec u tabulky - TTable, TDatabase,
TDataSet? - Ne u TDBGrid! Pokud je to vubec mozne. Nasel jsem jen
polozku na cteni aktualni vety (Table1.RecNo)
pouziti chartfx
[*] Norbert ADAMKO <norris(zv)frdsa.utc.sk> - 28.2.1998 21:55:23
At 17:52 28.2.1998 +0100, you wrote:
>nevite nekdo jak dostat do grafu ChartFX vlastni data. Zkousel jsem to
pres ThisSerie, ThisPoint aTthisValue ale nejak to nereagovalo na zadavani
novych hodnot. Poradi mi nekdo prosim ? Na to, aby si mohol zacat zadavat data, treba najprv otvorit
komunikacny kanal (tak to volaju v Helpe) metodou "OpenDataEx" a
potom uz len jednoducho naplnit array property "Value".
Dole je priklad, ako by to malo vyzerat v Delphi 3, v Delphi 2
to bolu trochu ine - tusim sa tam ten kanal otvaral nejako inak.
----------------------------------------------------
with ChartFX1 do
begin
OpenDataEx(COD_VALUES, 1, MaxStatus);
ThisSerie := 0;
for i:=1 to MaxValueIdx do
begin
Value[i-1] := Random(12345);
end;
CloseData(COD_VALUES);
end;
-----------------------------------------------------
Dufam, ze Ti to pomoze.
BTW, preco nepouzit TTeeChart ? Norris
---------------------------
Norbert ADAMKO
University of Zilina
---------------------------
mailto:norris(zv)frdsa.utc.sk
http://frdsa.utc.sk/~norris
---------------------------
Pokracujici problem s SQL
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 28.2.1998 22:02:36
>[Ricky]
>Pouzivam k tomu nasledujici SQL definici:
>SELECT
> COUNT(P.CISLO) as Pocet, P.Datum as Datum
> FROM Pokus P
> WHERE (P.CISLO=15)
> GROUP BY Datum
>
>Pokud se toto cislo v tabulce vyskytuje, vse je vporadku.
>Pokud ale cislo v tabulce jeste neni, vyvola to chybu
>"Translate Error. Value out of bounds.". Nevim proc, ale vim,
>ze to dela field "Datum". Nedari se mi v Delphi tuto chybu nijak
>podchytit v programu, coz bych potreboval.
>
>[Arthur]
>Pokud se Ti opravdu nedari odchytit chybu v programu (coz je divne, rekl
>bych, ze nekde musis mit minimalne nejaky kod Query.Active:= True a pak to
>odchytis normalnim try..except..end), tak nevim.
To jsem si taky myslel, ale toho se to vubec nedotkne. Kazdicke volani
funkce, procedury, prirazeni do promenne, zkratka vse jsem si dal mezi
try..except, ale chyby si to vubec nevsimne. Navich je to nejaka chyba
v Database Engine, tak jestli se nema obsluhovat nekde jinde?
Jestli mas Delphi 3, tak si vytvor prazdnou DBF tabulku se sloupcem
CISLO (Numeric) a DATUM (Date) a v Database Explorer vyzkousej
mou syntaxi. To by snad melo jit podchytit uz v SQL definici nebo ja
fakt nevim. Ale dela mi to problemy.
Nevim cim to presne je, vim ze to dela kolonka Datum, protoze kdyz
ji z SQL definice vyradim, tak je to v pohode.
>Jinak bych Tebou uvedenemu kodu predradil nasledujici kod:
>================================
>
> with TQuery.Create(nil) do
> try
> SQL.Text:= 'SELECT COUNT(*) FROM POKUS WHERE CISLO=15';
> Active:= True;
> if Fields[0].AsInteger > 0 then
> begin
> //a mas jistotu, ze existuje alespon jeden zaznam
> end;
> finally
> Free;
> end;
Takhle by to urcite slo, ale bude to zdrzovat.
Ale stejne dekuju.
Kdyby nekdo vedel co s tim, prosim o kazdou radu.
Ricky....
rick.strunc(zv)writeme.com
Databaze: Popisek aktualniho pole
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 28.2.1998 22:08:00
-----P�vodn� zpr�va-----
Od: Klokan - Petr P�idal <klokan-pp(zv)usa.net>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 28. �nora 1998 19:44
P�edm�t: Databaze: Popisek aktualniho pole
>Ahoj vsichni!
>- Nepotrebovali jste nahodou nekdo u databazoveho programu pri
>prochazeni tabulkou (pomoci ruznych komponent - napr. DBEdit, DBGrid,
>...) zobrazovat popis pro aktualni polozku databaze napr na stavovem
>radku?
>
>Jestlize ne, tak bych alespon potreboval poradit s timto:
>Napadlo me vyuzit nektere z nabizenych vlastnosti TField: FieldName,
>DisplayLabel, DisplayName, DisplayText.
>
> Ne u TDBGrid! Pokud je to vubec mozne.
Pokud to potrebujes jenom u DBEdit a dalsich DB komponent, tak bych
ti mohl poradit nasledujici vec. Kdyz se premistit do kazde komponenty,
tak by se mela vyvolat udalost OnEnter. Tady dostanes prilezitost zjistit
jmeno kolonky v tabulce (TTable). Staci kdyz udelas jednu proceduru
pro vsechny DBEdity a budes tam mit:
procedure TForm.EditEnter(Sender: TObject);
begin
StatusBar1.SimpleText:=TDBEdit(Sender).DataField;
end;
To ti bude zobrazovat nazvy.
Nic vic ti poradit neumim (zatim). Zkus to a uvidis.
Cau Ricky....
rick.strunc(zv)writeme.com
Databaze: Popisek aktualniho pole
[*] kancelar <real-jp(zv)login(tec)cz> - 28.2.1998 22:15:22
Nazdarek,
aktualni cislo zaznamu umi komponenta DbRecNum, ktera na SuperDelphi
page na http://sunsite.mff.cuni(tec)cz/delphi/
Pokud bys ale mel zajem muzu ti ji poslat.
> ...) zobrazovat popis pro aktualni polozku databaze napr na stavovem
Cau cau
Libor Pelanek
Pokracujici problem s SQL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 01.3.1998 00:53:47
Richard �trunc wrote:
>
> >[Ricky]
> >Pouzivam k tomu nasledujici SQL definici:
> >SELECT
> > COUNT(P.CISLO) as Pocet, P.Datum as Datum
> > FROM Pokus P
> > WHERE (P.CISLO=15)
> > GROUP BY Datum
> >
> >Pokud se Ti opravdu nedari odchytit chybu v programu (coz je divne, rekl
> >bych, ze nekde musis mit minimalne nejaky kod Query.Active:= True a pak to
> >odchytis normalnim try..except..end), tak nevim.
> To jsem si taky myslel, ale toho se to vubec nedotkne. Kazdicke volani
> funkce, procedury, prirazeni do promenne, zkratka vse jsem si dal mezi
> try..except, ale chyby si to vubec nevsimne. Navich je to nejaka chyba
> v Database Engine, tak jestli se nema obsluhovat nekde jinde?
> Jestli mas Delphi 3, tak si vytvor prazdnou DBF tabulku se sloupcem
> CISLO (Numeric) a DATUM (Date) a v Database Explorer vyzkousej
> mou syntaxi. To by snad melo jit podchytit uz v SQL definici nebo ja
Ahoj, zkousel jsem vytvorit tabulku s poli CISLO a DATUM a to jak v Dbase
tak i Paradox formatu. Ten SQL dotaz mi bezi bez problemu v Database Desktopu
tak i v jednoduche Delphi aplikaci. Zapsal jsem asi 10 zaznamu, mozna by to
ale chtelo zkusit s tvymi daty. Mam BDE verzi 4.51. Jinak bych ti doporucoval
pouzivat spise Paradox nez Dbase tabulky. Petr Vones, amatersky programator
Pokracujici problem s SQL
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 1.3.1998 07:57:22
-----Original Message-----
From: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Sent: Sunday, March 01, 1998 12:54 AM
To: DELPHI Distribution List
Subject: Re: Pokracujici problem s SQL
Richard trunc wrote:
>
> >[Ricky]
> >Pouzivam k tomu nasledujici SQL definici:
> >SELECT
> > COUNT(P.CISLO) as Pocet, P.Datum as Datum
> > FROM Pokus P
> > WHERE (P.CISLO=15)
> > GROUP BY Datum
> >
> >Pokud se Ti opravdu nedari odchytit chybu v programu (coz je divne, rekl
> >bych, ze nekde musis mit minimalne nejaky kod Query.Active:= True a pak
to
> >odchytis normalnim try..except..end), tak nevim.
> To jsem si taky myslel, ale toho se to vubec nedotkne. Kazdicke volani
> funkce, procedury, prirazeni do promenne, zkratka vse jsem si dal mezi
> try..except, ale chyby si to vubec nevsimne. Navich je to nejaka chyba
> v Database Engine, tak jestli se nema obsluhovat nekde jinde?
> Jestli mas Delphi 3, tak si vytvor prazdnou DBF tabulku se sloupcem
> CISLO (Numeric) a DATUM (Date) a v Database Explorer vyzkousej
> mou syntaxi. To by snad melo jit podchytit uz v SQL definici nebo ja
Ahoj, zkousel jsem vytvorit tabulku s poli CISLO a DATUM a to jak v Dbase
tak i Paradox formatu. Ten SQL dotaz mi bezi bez problemu v Database
Desktopu
tak i v jednoduche Delphi aplikaci. Zapsal jsem asi 10 zaznamu, mozna by to
ale chtelo zkusit s tvymi daty. Mam BDE verzi 4.51. Jinak bych ti
doporucoval
pouzivat spise Paradox nez Dbase tabulky.[Arthur]
Tak me napadlo: a mas v te tabulce vubec primarni klic? Vetsina SQL dotazu
se pres BDE chova obcas docela podivne, kdyz ma uplne holou tabulku
(zkusenosti s dBase nemam, takze bych to klidne svedl na jeji driver (-:,
jinak taky pro pomocne tabulky pouzivam vyhradne Paradox).
Arthur
PS To zjisteni poctu zaznamu by nezdrzovalo (a ze zkusenosti, prave ani na
velkych objemech dat), prave pokud by field Cislo byl jedinecnym klicem.
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================
Problem s ChartFX
[*] Josef Dodek student <XDODEK(zv)feld.cvut(tec)cz> - 1.3.1998 08:36:36 met-1mest
zdravim,
nevite nekdo jak dostat do grafu ChartFX vlastni data ? Zkousel jsem
to pres property ThisSerie, ThisPoint, ThisValue ale to vubec
nereagovalo a v grafu zustavali stale jakasi nahodna data.
muze mi nekdo poradit prosim ?
predem diky
pepa Cteni pozice kurzoru v TMemo
[*] Tom PLANKA <planka(zv)bigfoot(tec)com> - 1.3.1998 08:49:53
Vazeni pratele,
jak uz to tak byva, tak tu mam jeden problemek. Potrebuji u komponenty
TMemo zjistovat aktualni pozici kurzoru v textu. Nasel jsem na to i
komponentu, ktera se jmenuje TSMemo a ktera je FREE i vcetne zdrojaku. Jde
o zdokonalene TMemo prid�nim nekterych vlastnosti a metod. Pro me byly
nejdulezitejsi prave ony dve, ktere vraci aktualni pozici kurzoru - cislo
radku a pozici od zacatku radku. Jsou realizovany takto:
function TSMemo.GetCurrentLine: integer;
{Get line number containing cursor}
begin
curline := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
result := curline;
end;
function TSMemo.GetCurrentPosition: integer;
{Get character position of cursor within line}
begin
curposn := SelStart - SendMessage(Handle, EM_LINEINDEX,
(SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0)), 0);
result := curposn;
end;
Vsechno funguje perfektne, dokud nezacnu mysi nebo SHIFT+sipka oznacovat
nejaky blok textu. Totiz pak by mi prislusne funkce mely vracet aktualni
pozici kurzoru i behem samotneho oznacovani textu. Tak to ovsem funguje
pouze tehdy, kdyz oznacuji text od pozice kurzoru smerem doleva a nahoru.
Pro opacny smer funkce stale tvrdosijne vraci startovni souradnice zapoceti
oznacovani.
Trochu jsem s tim experimentoval, ale nevim si uz rady. Pes bude
pravdepodobne zakopany ve vlastnosti TMemo SelStart, kter� se pri
oznacovani vlevo neustale aktualizuje, ale pri oznacovani textu vpravo od
kurzoru NE !
Pekne prosim o radu, jak se stim vyporadat, resp. o doporuceni jineho
reseni uvedeneho problemu.
Predem dekuji vsem.
SPEEDY
---------------------------------
Tom PLANKA
Rolnicka 34
OPAVA 5
747 05
planka(zv)bigfoot.com
---------------------------------
Proch�zen� souborov�ho stromu
[*] Tom PLANKA <planka(zv)bigfoot(tec)com> - 1.3.1998 08:57:47
Vazeni pratele,
vrta mi toho v hlave vice, tak vas budu jeste chvili otravovat ;-}
Nemohu pohnout s tim, jak co nejefektivneji, nejrychleji a nejspolehliveji
prochazet souborovym stromem napr. v ramci jednoho disku.
Potrebuji proste postupne projit vsechna jmena souboru i adresaru v ramci
jednoho disku, nebo pocinaje urcitym podadresarem smerem dolu k listum
stromu, pricemz musim vzdy nacist jmeno adresare/souboru a za splneni
urcitych podminek toto jmeno zmenit.
Budu vdecny za kazdou radu, a nejvice me potesi usek kodu s implementaci
prislusneho algoritmu.
Vsem predem dekuji.
SPEEDY
---------------------------------
Tom PLANKA
Rolnicka 34
OPAVA 5
747 05
planka(zv)bigfoot.com
---------------------------------
TrayIcon hned po startu aplikace
[*] Tom PLANKA <planka(zv)bigfoot(tec)com> - 1.3.1998 09:22:09
Drazi pratele,
dnes uz vas otravuji naposledy. Treti vec, ktera me momentalne trapi je
nasledujici:
Potrebuji zajistit to, aby se aplikace po spusteni vubec neukazala na
TaskBaru, ale rovnou jako TrayIcon, pricemz okno takto spustene aplikace by
bylo viditelne a aktivni.
Takto se napriklad umi chovat program WinAmp pro prehravani *.MP3 souboru.
Zkousel jsem to s vyuzitim komponenty pro realizaci TrayIcon z baliku
RXLib, ovsem vzdy mi alespon na chvilku objevila spoustena aplikace na
taskbaru. Byl bych rad, aby mi to fungovalo tak, jak to popisuji vyse.
Za pripadna reseni predem dekuji.
SPEEDY
---------------------------------
Tom PLANKA
Rolnicka 34
OPAVA 5
747 05
planka(zv)bigfoot.com
---------------------------------
Pokracujici problem s SQL jiz vyresen
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 1.3.1998 11:07:27
>[Arthur]
>Tak me napadlo: a mas v te tabulce vubec primarni klic? Vetsina SQL dotazu
>se pres BDE chova obcas docela podivne, kdyz ma uplne holou tabulku
>(zkusenosti s dBase nemam, takze bych to klidne svedl na jeji driver (-:,
>jinak taky pro pomocne tabulky pouzivam vyhradne Paradox).
>Arthur
Dekuju kluci. Problem se mi uz s vasi pomoci podarilo vyresit (alespon
castecne).
Zkousel jsem vselijak davat do te DBF tabulky indexy, ale porad to hazelo
tu chybu. Potom jsem tu tabulku prevedl na Paradox a je vse vporadku.
Aspon se to zatim chova dobre. Ten DBF driver bude fakt nejakej divnej.
Jinak jsem se chtel zeptat. Pouzivam v projektech tabulky Dbase a chci to
predelat na Paradox. Nemam s nim ale zkusenosti a tak by me zajimalo,
jestli s tim nema nekdo nejaky problemy. Popripade zajimaly by ve vyhody
oproti Dbase. Alespon ty nejznatelnejsi.
Dbase jsou fakt spatny - kamosovi se uz stalo, ze jeho zakaznik provozoval
jeho
program asi 3 mesice a najednou se ozval, ze se mu to zblaznilo. Normalne
to ukazovalo data ktera patri jinam na uplne jinych mistech. Kdyz se na to
prijel podivat, zjistil, ze mu to do toho DBT souboru (myslim ze je to DBT
soubor,
je na memo polozky) hazelo normalne data i z jinych aplikaci, ktere mel
zrovna
otevrene. Potom se to nejak zamichalo a byl z toho maglajs.
Nakonec si udelal svoje vlastni tabulky (svuj format), aby nemusel pouzivat
BDE a udelal si svoje procedury a fce na obsluhu tech souboru, svoje indexy.
Zatim mu to beha dobre - aspon to tvrdi.
(Je pravda, ze pouziva Delphi 1 a ze uz to mozna bude v Delphi 2/3 vyreseno,
nebo v novem BDE. Ale kdo vi. Nechci aby se mi stalo neco podobneho.)
Zatim vsem moc dekuju
Ricky...
rick.strunc(zv)writeme.com
Proch�zen� souborov�ho stromu
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 01.3.1998 11:28:12
Ahoj Speedy,
uz to tady jednou probehlo, takzy tady posilam odpoved, kterou jsem na stejny
dotaz dostal sam ...
procedure FindDir(const Cesta:string);
var
i:integer;
SR:TSearchRec;
begin
i:=FindFirst(Cesta+'*',faDirectory,SR);
while (i=0) do
begin
if (SR.Name[1]<>'.') then FindDir(Cesta+SR.Name+'\');
if SR.Name = 'ahoj.txt' then If not MoveFile(Cesta + '\Ahoj.Txt', Cesta +
'\Ahoja.txt' then MessageDlg('Chyba', mtInformation, [mbOk], 0);
// Api fce MoveFile
i:=FindNext(SR);
end;
end;
begin
FindDir('C:\');
end;
> Vazeni pratele,
> vrta mi toho v hlave vice, tak vas budu jeste chvili otravovat ;-}
> Nemohu pohnout s tim, jak co nejefektivneji, nejrychleji a nejspolehliveji
> prochazet souborovym stromem napr. v ramci jednoho disku.
> Potrebuji proste postupne projit vsechna jmena souboru i adresaru v ramci
> jednoho disku, nebo pocinaje urcitym podadresarem smerem dolu k listum
> stromu, pricemz musim vzdy nacist jmeno adresare/souboru a za splneni
> urcitych podminek toto jmeno zmenit.
> Budu vdecny za kazdou radu, a nejvice me potesi usek kodu s implementaci
> prislusneho algoritmu.
Proch�zen� souborov�ho stromu
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 01.3.1998 11:36:57
Ahoj Speedy,
promin,a le vloudila se mala chybicka :
Spravne to je :
if SR.Name = 'ahoj.txt' then If not MoveFile(PChar(Cesta + '\Ahoj.Txt'),
PChar(Cesta + '\Ahoja.txt')) then MessageDlg('Chyba', mtInformation, [mbOk],
0);
Do te api fce se vkladaji parametry jako PChar...
Mej se,
Peter
otoceni TCanvas
[*] David Maly <dmal3233(zv)ss1000.ms.mff.cuni(tec)cz> - 1.3.1998 12:43:59
Ahoj,
mam takovej problem: mam objekt Ameta:TMetafile, a pouzivam metodu StretchDraw pro prekresleni na objekt Bcanvas:TCanvas nejak takhle:
Bcanvas.StretchDraw(aRectangle(x1,y1,x2,y2), Ameta)
Jenze nekdy bych ho potreboval (ten metafile) este otocit o 90 stupnu, nez ho placnu na ten canvas. Nevite nekdo jak na to?
dik, David
Preruseni (fwd)
[*] Liane BBS <bbs(zv)edulib(tec)cz> - 1.3.1998 14:03:10
*** Forwarded file follows ***
Posted By: PePan (Petr Pan) on 'CZprogram'
Title: Re: Preruseni
Date: Wed Feb 25 15:04:11 1998
> >
> > Potreboval bych napojit svuj program v C na preruseni, ale neznam
> potrebny
> > vektory (teda aspon doufam, ze se to dela pres vektory jako na Ami).
> > Za kazdou radu dik.
> >
> > tWisT
> Zdarec, takze k veci...
Opravim jenom par chybicek a doplnim dalsi malinke detailky.
Je to uplne jednoduche, takze k veci...
> Je to uplne jednoduche - DOS ma 256 preruseni (00h..FFh), ktere slouzi
DOS nema 256 preruseni, ale PC ma 256 vektoru hardwareovych preruseni (pozn.
DOS z toho vyuziva jen nekolik vektoru preruseni, nejznamejsi je asi vektor
21h) navic vektory 00-20h jsou vyhrazeny Intelem pro jeho interni pouziti,
napriklad int 00h se vola pri deleni 0 (nebo, kdyz je vysledek natolik velky,
ze se nevejde do vysledneho registru), ovsem to konstrukteri IBM PC
nedodrzuji, takze nektere vektory mezi 00-20h jsou navic obsazeny vnejsimi
periferiemi (viz casovac, klavesnice, EGA, atd.).
> pro obsluhu ruznych veci, nektere jsou dokonce volne.
> Vektory preruseni jsou 4-bytove hodnoty (segment:offset),ktere ukazuji na
> obsluhu daneho preruseni. Tabulka vektoru (onech 256 4-bytovych hodnot)
> je ulozena v real modu uplne na zacatku pameti
> (segment:=0,offset:=4*cislo_pr.)
Vektory preruseni jsou ulozeny od zacatku pameti (tedy 0000:0000) pouze v PC
s procesory 086, 088, 186 a 286, ostatni procesory maji tuto tabulku vektoru
ulozenou v sestibytovem registru IDT (2 byty segment, 4 byty offset), ktera
je po resetu procesoru nastavena na 0000:00000000. (pozn. tento registr
zustava v real modu prakticky nezmenen a jeho vyznam se uplatni az v
protected modu, ovsem to neznamena, ze by se hodnota registru IDT nedala v
real modu menit).
> Svoji obsluhu muzes na preruseni nainstalovat v zasade dvema zpusoby:
> bud pomoci fci DOSu 25h a 35h nebo primym zapisem do pameti na prislusne
> misto.
> Fce DOSu jsou slouceny pod prerusenim 21h. Doporucuji sehnat SYSMANa nebo
> jiny (temer jakykoliv) systemovy help. Kdyz instalujes obsluhu sveho
> preruseni,je dobre uschovat puvodni vektor a pak ho volat (napr. jmp far
> nebo pushf, call far) aby se vykonala puvodni obsluha. pokud se odinstalujes
> z pameti,mel by's v ramci korektnosti (a pokud nechces, aby ti comp
> zatuhl:-))
Pokud nechces volat na konci sve rutiny puvodni obsluhu preruseni (napriklad
kvuli rychlosti ap.) staci na konci vlastni rutiny provest nasledujici
magickou sekvenci instrukci: (psano v assembleru pro Intel 0x86 IDEAL mode)
...
mov ax, 020h
out 020h, ax
;nasleduje iret
neboli na port 20h posli hodnotu 20h, coz provede reset radice preruseni.
> obnovit puvodni obsluhu. Dalsi vec, na kterou si musis davat pozor
> (pokud vektory zapisujes primo) je to, ze intel pouziva pro zapis do pameti
> little endian - tzn. vyssi byte(word) je na vyssi adrewse.
> Tzn. v pameti je nejdrive offset (word s prehozenymi byty) a pak segment
> (...taktez). Uff, z toho bych mel v hlave asi pekny chaos...:))
> Pokud jsi neco nepochopil, tak mi mejlni (treba tady nebo na floyda)...
> Cafte
> SpirIt
Pokud jsi neco nepochopil, tak mu mejlni (treba tady nebo tam)...
Petr Pan.
Do you believe in Peter Pan, do you believe in Frankestein...Preruseni (fwd)
[*] Liane BBS <bbs(zv)edulib(tec)cz> - 1.3.1998 14:04:38
*** Forwarded file follows ***
Posted By: shimi (the NEUROLOGiC member) on 'CZprogram'
Title: Re: Preruseni
Date: Wed Feb 25 16:08:03 1998
> > > Potreboval bych napojit svuj program v C na preruseni, ale neznam
> Opravim jenom par chybicek a doplnim dalsi malinke detailky.
Ja opravim chybicky, ktere zbyly
> DOS nema 256 preruseni, ale PC ma 256 vektoru hardwareovych preruseni
> DOS z toho vyuziva jen nekolik vektoru preruseni, nejznamejsi je asi vektor
> 21h) navic vektory 00-20h jsou vyhrazeny Intelem pro jeho interni pouziti,
> ze se nevejde do vysledneho registru), ovsem to konstrukteri IBM PC
> nedodrzuji, takze nektere vektory mezi 00-20h jsou navic obsazeny vnejsimi
> periferiemi (viz casovac, klavesnice, EGA, atd.).
Vec nestoji tak, ze by to nedodrzovaly, ale processory 8088(6) na kterych bylo
staveno 1 PC mely rezervovanych jen mekolik malo vektoru (preteceni pri
deleni, krokovani, NMI). processor 186 pridal este preteceni mezi pri
instrukci bound. Nikdo v te dobe nemohl tusit, ze i286 prinese asi 7 dalsich
vektoru souvisejici se spravou systemu a i386 dalsi asi 3
> Vektory preruseni jsou ulozeny od zacatku pameti (tedy 0000:0000) pouze v
> s procesory 086, 088, 186 a 286, ostatni procesory maji tuto tabulku vektoru
> ulozenou v sestibytovem registru IDT (2 byty segment, 4 byty offset), ktera
> je po resetu procesoru nastavena na 0000:00000000. (pozn. tento registr
> zustava v real modu prakticky nezmenen a jeho vyznam se uplatni az v
Tohle uz umoznovala plne 286,
> > bud pomoci fci DOSu 25h a 35h nebo primym zapisem do pameti na prislusne
> > Fce DOSu jsou slouceny pod prerusenim 21h. Doporucuji sehnat SYSMANa nebo
> > jiny (temer jakykoliv) systemovy help. Kdyz instalujes obsluhu sveho
SYSMAN to je nastroj !!
> kvuli rychlosti ap.) staci na konci vlastni rutiny provest nasledujici
> magickou sekvenci instrukci: (psano v assembleru pro Intel 0x86 IDEAL mode)
> ...
> mov ax, 020h
> out 020h, ax
> ;nasleduje iret
tady je chybka, neni dobry posilat na 8mi bit port 16ti byt hodnotu, neni
100% zaruceno, ze by na to dany hardware musel reagovat (i kdyz to vsude
slape), nehlede k tomu, ze je to codove dlouhy (jak v realu, tak v protected)
pouzij :
mov al,20h
out 20h,al
iret
A neni to zadna magicka sekvence ani reset radice, je to zprava o ukonceni
preruseni (pri vyvolani preruseni radic preruseni (8259A) rekurentni volani
zablokuje v cetne pozadavku s nizzsi prioritou, dokud nedostane tuto zpravu).
Pokud to neudelas zablokujes vyvolani preruseni s nizsi prioritou, pokud to
udelas na vstupu IRQ 0 (za normalnich podminek vektor 8) zablokujes celej
prerusovaci system, a PC tim padem nemuze reagovat na takove drobnost jako
vstupy z klavesnice, mysi, sitovky ...)
> neboli na port 20h posli hodnotu 20h, coz provede reset radice preruseni.
> > (pokud vektory zapisujes primo) je to, ze intel pouziva pro zapis do
> pameti
> > little endian - tzn. vyssi byte(word) je na vyssi adrewse.
no ja nevim, ale proc necist vektory najednou po 32dvou bitech ?
takhle
xor ax,ax
mov gs,ax
mov eax,gs:[4*vektor]
a zapis takhle
mov ax,cs
shl eax,16
xor ax,ax
mov gs,ax
mov ax, offset novy_vektor
mov gs:[4*vektor],eax
uff, to jsem si zavzpominal na starsi casy :)
> Petr Pan.
> Do you believe in Peter Pan, do you believe in Frankestein...
+-- | | | |\ /| | I was systemak,
+--+ | | | | \/ | | I'm systemak
| +---+ | | | | and I will be systemak
--+ | | | | | | E-mail: tsimek(zv)students.zcu(tec)cz
http://dione.zcu(tec)cz/~tsimek
Problem s ChartFX
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 1.3.1998 14:41:31
Mam nastaveny 2 serie.
Graf plnim takto :
procedure TFPrehled.ChangeGraph;
var o, x, v: longint;
max, min: single;
begin
if TableF2.Active = true then
begin
with ChartFX1 do begin
min := -10;
max := 100;
Visible := false;
LegendWidth := 75;
if TableF2.RecordCount >= 2 then begin
OpenDataEx(COD_VALUES ,MakeLong(2, TableF2.RecordCount - 1), 0);
ThisSerie := 0;
x := 0;
TableF2.First;
o := TableF2Stavhlendenn.AsInteger;
TableF2.Next;
while not TableF2.Eof do begin
v :=TableF2Stavhlendenn.AsInteger - o;
o := TableF2Stavhlendenn.AsInteger;
Value[x] := v;
if v > max then max := v;
if v < min then min := v;
Legend[x] := TableF2DatumHlen.AsString;
Inc(x);
TableF2.Next;
end;
ThisSerie := 1;
x := 0;
TableF2.First;
o := TableF2Stavhlennon.AsInteger;
TableF2.Next;
while not TableF2.Eof do begin
v := TableF2Stavhlennon.AsInteger - o;
o := TableF2Stavhlennon.AsInteger;
Value[x] := v;
if v > max then max := v;
if v < min then min := v;
Inc(x);
TableF2.Next;
end;
min := min * 1.10;
max := max * 1.15;
Adm[CSA_MIN] := min;
Adm[CSA_MAX] := max;
CloseData(COD_VALUES);
Visible := true;
end;
end;
end;
end;
-----P�vodn� zpr�va-----
Od: Josef Dodek student <XDODEK(zv)feld.cvut(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 1. b�ezna 1998 8:39
P�edm�t: Problem s ChartFX
zdravim,
nevite nekdo jak dostat do grafu ChartFX vlastni data ? Zkousel jsem
to pres property ThisSerie, ThisPoint, ThisValue ale to vubec
nereagovalo a v grafu zustavali stale jakasi nahodna data.
muze mi nekdo poradit prosim ?
predem diky
pepa
TrayIcon hned po startu aplikace
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 1.3.1998 17:25:56
-----Original Message-----
From: Tom PLANKA [SMTP:planka(zv)bigfoot.com]
Sent: Sunday, March 01, 1998 9:22 AM
To: Delphi konference
Subject: TrayIcon hned po startu aplikace
Potrebuji zajistit to, aby se aplikace po spusteni vubec neukazala na
TaskBaru, ale rovnou jako TrayIcon, pricemz okno takto spustene aplikace by
bylo viditelne a aktivni.
Takto se napriklad umi chovat program WinAmp pro prehravani *.MP3 souboru.
Zkousel jsem to s vyuzitim komponenty pro realizaci TrayIcon z baliku
RXLib, ovsem vzdy mi alespon na chvilku objevila spoustena aplikace na
taskbaru. Byl bych rad, aby mi to fungovalo tak, jak to popisuji vyse.
Za pripadna reseni predem dekuji.
SPEEDY
[Arthur]
Kdyz jsem to kdysi delal, tak jsem volal:
ShowWindow(Application.Handle, sw_Hide);
Jediny problem byl v tom, kdy tuto funkci zavolat, ale myslim, ze to bylo na
OnShow.
Kdyby se pri tomhle procesu hlavni okno nahodou deaktivovalo, tak to jeste
zkloubit s SetForegroundWindow, ale to nejspis nebude potreba.
Arthur
PS Proc pises maily jako AttachFile? Docela neprakticky se na to odpovida. (-:
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 06:01:49
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 06:08:08
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 06:20:05
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 06:36:02
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 06:48:26
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Pracovni plocha
[*] Zelinka Jiri <Jiri.Zelinka(zv)pregis.preciosa(tec)cz> - 2.3.1998 06:57:26
> On Wed, 25 Feb 1998, Jiri Malek wrote:
>
> > Nazdarec,
> >
> > jinak poloha zastupcu je samozrejme ulozena v souborech *.LNK, od
> kterych
> > nemam popis struktury, takze kde to tam je by slo zjistit snad jen
> > experimentovanim...
> >
>
[Zelinka Jiri]
Nemyslim si, ze poloha na desktopu je ulozena v souborech *.LNK.
Pokud iconu
na desktopu premistim, obsah *.LNK se nezmeni. Po trose patrani
jsem zjistil,
ze obsah desktopu je ulozen i v USER.DAT (alespon ve W95). Je
zde seznam a
pred kazdym nazvem par cisel. Pokud iconu premistim, cisla se
zmeni.
Nevim ale, jak se do teto casti USER.DAT dostat. V registry se
neobjevuje.
Jiri Zelinka
Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 07:02:49
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 07:30:59
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Pracovni plocha
[*] VOLTRR1(zv)epr1.ccmail.x400.cez(tec)cz - r 1998 07:34:28 -0700
koukam tady do knizky Windows pro pokrocile a experty a je tu presnej priklad na
ukladani a restauraci pozice ikon na plose.
Je ale v C a tak si napiste pokud ho budete chtit. Radek Voltr
voltrr1(zv)epr1.ccmail.x400.cez(tec)cz
-----Puvodni zprava-----
Od: Internet:delphi-request(zv)io.pinknet(tec)cz/
Odeslano: 2. boezna 1998 7:15
Komu: Internet:delphi(zv)pinknet(tec)cz/
Poedmit: RE: Pracovni plocha
> On Wed, 25 Feb 1998, Jiri Malek wrote:
>
> > Nazdarec,
> >
> > jinak poloha zastupcu je samozrejme ulozena v souborech *.LNK, od
> kterych
> > nemam popis struktury, takze kde to tam je by slo zjistit snad jen
> > experimentovanim...
> >
>
[Zelinka Jiri]
Nemyslim si, ze poloha na desktopu je ulozena v souborech *.LNK.
Pokud iconu
na desktopu premistim, obsah *.LNK se nezmeni. Po trose patrani
jsem zjistil,
ze obsah desktopu je ulozen i v USER.DAT (alespon ve W95). Je
zde seznam a
pred kazdym nazvem par cisel. Pokud iconu premistim, cisla se
zmeni.
Nevim ale, jak se do teto casti USER.DAT dostat. V registry se
neobjevuje.
Jiri Zelinka
<<Soubor: TXT1.TXT>> Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 07:58:50
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Cteni pozice kurzoru v TMemo
[*] PeJaSoft <petr.jarkovsky(zv)spsselib.hiedu(tec)cz> - 2.3.1998 08:39:14
> Trochu jsem s tim experimentoval, ale nevim si uz rady. Pes bude
> pravdepodobne zakopany ve vlastnosti TMemo SelStart, kter� se pri
> oznacovani vlevo neustale aktualizuje, ale pri oznacovani textu vpravo od
> kurzoru NE !
> Pekne prosim o radu, jak se stim vyporadat, resp. o doporuceni jineho
> reseni uvedeneho problemu.
Vzdyt existuje SelLength. Zkus secist SelStar+SelLength, trba to
pujde.
(\__/) PeJaSoft
/o o \ ____ Petr Jarkovsky
{o__, +/~ _) (PASCAL,DELPHI,3D Studio 4, 3D Max 1.1)
/ + \ {
|-| ) \ E-Mail: domu: pejasoft(zv)post(tec)cz
,+( `+`\ } do skoly: petr.jarkovsky(zv)spsselib.hiedu(tec)cz
---+~_ _ _)-+` Homepage: http://www.spsselib.hiedu(tec)cz/~xjarkov
Zkrat: http://www.spsselib.hiedu(tec)cz/casopis/
Sypte veverkam !!!Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 08:40:43
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.TApplication - naslednik
[*] Jan Krizek <JKRI6312(zv)barbora.mff.cuni(tec)cz> - 2.3.1998 08:49:17
Ahoj,
nevi tady nekdo, zda lze vytvorit (a pak pouzit) naslednika tridy
TApplication. Muzete mi to popsat.
Diky Honza +BDE errcode
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 2.3.1998 09:09:20
DDV,
nevite nekdo, kde roste seznam chybovych kodu BDE? Je ponekud otravne
a navic nespolehlive zkouset ze 10024 je "table doesn't exist" a
podobne.
Nevite odkud vytahnout co ktere numero znamena?
Diky a.
P.S.: V pripade odkazu na help prosim popsat kudy, neb jsem se to
tam snazil najit ja pod D2C/S tak pod D3C/S.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.DBGrid a scrollbar
[*] Enter Kosice - Igor Forgac <enter(zv)enterkosice.sk> - 2.3.1998 09:22:37
Kedze nik neodpovedal.... pre TDBGrid ma napadlo len toto:
type tt= class(TCustomGrid);
...
...
...
tt(DbGrid1).ScrollBars := ssVertical;
Pre TListBox to ide krajsie:
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, 2000,0);
--- Igor Forgac --- Enter Kosice s.r.o. --- http://www.enterkosice.sk ---
-----Original Message-----
From: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
To: Delphi Konference (el. adresa) <delphi(zv)io.pinknet(tec)cz>
Date: 27. febru�r 1998 15:59
Subject: DBGrid a scrollbar
>Nevim jestli to probehlo touhle konferenci a nebo jsem to videl nekde
>jinde, ale nemuzu tu radu nikde znovu najit. Nevite nekdo jak v DBGridu
>jednoduse odstranit vertikalni scrollbar??????
>
> S pozdravem
> Zdenek Petruj
>____________________________
>adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
>____________________________
>tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
>e-mail: zpetruj(zv)zebra(tec)cz
>internet: http://www.zebra(tec)cz
>
>TrayIcon hned po startu aplikace
[*] Enter Kosice - Igor Forgac <enter(zv)enterkosice.sk> - 2.3.1998 09:31:02
Najjednoduchsie je to urobit v casti initialization. Tu je fragment kodu,
kde sa napriklad
precita nastavenie z INI suboru - ci sa ma zobrazit okno, alebo len ikonka.
initialization
{ Prec�tame len nastavenie o Ikonke z INI s�boru...}
{ INI subor ma rovnake meno, ako .EXE...}
with TIniFile.Create(ChangeFileExt(ParamStr(0),'.INI')) do begin
{ LenIkona ...... True = zobrazi sa len ikona............... False =
zobrazi sa okno }
Application.ShowMainForm := not ReadBool('PROSTREDIE','LenIkona', False);
Free;
end;
alebo jednoducho skratene:
initialization
Application.ShowMainForm := False;
POZOR - vlastnost Visible okna musi byt False.
--- Igor Forgac --- Enter Kosice s.r.o. --- http://www.enterkosice.sk ---
-----Original Message-----
From: Arthur <Arthur(zv)hlpsoft(tec)cz>
To: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Date: 1. marec 1998 17:55
Subject: RE: TrayIcon hned po startu aplikace
>-----Original Message-----
>From: Tom PLANKA [SMTP:planka(zv)bigfoot.com]
>Sent: Sunday, March 01, 1998 9:22 AM
>To: Delphi konference
>Subject: TrayIcon hned po startu aplikace
>
>Potrebuji zajistit to, aby se aplikace po spusteni vubec neukazala na
>TaskBaru, ale rovnou jako TrayIcon, pricemz okno takto spustene aplikace by
>bylo viditelne a aktivni.
>Takto se napriklad umi chovat program WinAmp pro prehravani *.MP3 souboru.
>Zkousel jsem to s vyuzitim komponenty pro realizaci TrayIcon z baliku
>RXLib, ovsem vzdy mi alespon na chvilku objevila spoustena aplikace na
>taskbaru. Byl bych rad, aby mi to fungovalo tak, jak to popisuji vyse.
>
>Za pripadna reseni predem dekuji.
>
>SPEEDY
>
>[Arthur]
>Kdyz jsem to kdysi delal, tak jsem volal:
> ShowWindow(Application.Handle, sw_Hide);
>Jediny problem byl v tom, kdy tuto funkci zavolat, ale myslim, ze to bylo
na
>OnShow.
>Kdyby se pri tomhle procesu hlavni okno nahodou deaktivovalo, tak to jeste
>zkloubit s SetForegroundWindow, ale to nejspis nebude potreba.
>Arthur
>
>PS Proc pises maily jako AttachFile? Docela neprakticky se na to odpovida.
(-:
>
>=====================================
>David Arthur Muzatko
>HelpSoft, spol. s r. o.
>Uruguayska 1, Praha 2
>tel./fax.: 24255816, 90004272-5
>e-mail: Arthur(zv)HlpSoft(tec)cz
>=====================================
>Prepisanie jedneho znaku v subore
[*] Peter Liptak <liptak(zv)pusr.sk> - 02.3.1998 09:32:45
Pozdravujem vsetkych ucastnikov konferencie,
V delphi som toho este vela nenaprogramoval, a tak sa na Vas obraciam s
otazkou ktora
je mozno dost ..., ale mne sa to este nepodarilo vyriesit
V mojom programe mam subor v ktorom by som obcas potreboval menit
nejake znaky bez toho aby som musel ctitat a potom znova zapisovat cely
subor ( ma cca. 800 kb )
Pr. piaty znak zmen z "a" na "b", ostatny text nechaj bez zmien
Za pomoc predom dakujem,
Peter
--
---------------------------------------------------------
| Ing. Peter Liptak Email: liptak(zv)pusr.sk |
| Antimonopoly office of SR Voice: +42-7-5797 368 |
| Drienova 24 Voice: +42-7-234 043 |
| 826 03 BRATISLAVA Fax : +42-7-5797 365 |
| Slovak Republic BBS : +42-7-236 103 |
---------------------------------------------------------
Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 09:32:11
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Cteni pozice kurzoru v TMemo
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.1998 09:43:38
Tom PLANKA wrote:
> komponenty TMemo zjistovat aktualni pozici kurzoru v textu. Nasel
...
> radku. Jsou realizovany takto:
>
> function TSMemo.GetCurrentPosition: integer;
> begin
> curposn := SelStart - SendMessage(Handle, EM_LINEINDEX,
> (SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0)), 0);
> result := curposn;
> end;
>
> Vsechno funguje perfektne, dokud nezacnu mysi nebo SHIFT+sipka
> oznacovat nejaky blok textu. Totiz pak by mi prislusne funkce mely
> vracet aktualni pozici kurzoru i behem samotneho oznacovani textu.
> Tak to ovsem funguje pouze tehdy, kdyz oznacuji text od pozice
> kurzoru smerem doleva a nahoru. Pro opacny smer funkce stale
> tvrdosijne vraci startovni souradnice zapoceti oznacovani.
To je zrejme uz z nazvu "SelStart". Ten ti vzdy oznacuje zacatek
bloku, at je blok dlouhy 0 (neni oznaceny blok) nebo ho tahnes
doprava a dolu. K tomu je potreba jeste zjistovat SelLength.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Proch�zen� souborov�ho stromu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.3.1998 09:43:37
Tom PLANKA wrote:
> Nemohu pohnout s tim, jak co nejefektivneji, nejrychleji a
> nejspolehliveji prochazet souborovym stromem napr. v ramci jednoho
> disku. Potrebuji proste postupne projit vsechna jmena souboru i
procedure TForm1.Button1Click(Sender: TObject);
procedure Strom(Cesta:string);
var
Sr:TSearchRec;
i,j:integer;
begin
if Cesta[Length(Cesta)]<>'\' then Cesta:=Cesta+'\';
i:=FindFirst(Cesta+'*.*',faArchive,Sr);
while i=0 do
begin {cteni souboru v adresari}
[...]
i:=FindNext(Sr);
end;
j:=FindFirst(Cesta+'*',faDirectory,Sr);
while j=0 do
begin
if (Sr.Attr and faDirectory<>0) and (Sr.Name[1]<>'.') then
Strom(Cesta+Sr.Name);
j:=FindNext(Sr);
end;
end;
begin
Strom('c:');
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 09:43:18
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.odkial hodnoty
[*] Jiri Malek <jirim(zv)mrkev.vabo(tec)cz> - 02.3.1998 09:53:36
Nazdarec,
jestli tomu spravne rozumim, tak chces nacitat audio data a pak kreslit
po obrazovce ptakovinky podle toho, jak to hraje (sila signalu, casovy prubeh,
amplitudy nekterych harmonickych a tak).
No myslim, ze jedina moznost je samplovat pres zvukovku, tak dostanes
bloky dat/samplu, ktere pak muzes analyzovat. Na DSP je na samplovani
komponenta TAudioIN (spolu s TAudioOUT), ktera sice moc neumi, ale zaruci ti
bufferovane samplovani se zvolenymi parametry a OnBufferReady udalost,
ve ktere muzes ty buffery nacist a zpracovat podle libosti (nebo predat dal).
-j-
Ing. Kuch�r J�n wrote:
> Caute !
> Mam jeden problem, tak pokial viete pomozte. Musim napisat program pre audio vezu,
> jedna sa o analyser (sequencer, graficky equalyser - vyberte si nazov ). V programovani
> multimedii som absolutny zaciatocnik a neviem kde, alebo odkial mam brat hodnoty pre graficky vystup. Ked ste sa niekto s dacim takym stretli, dajte mi vediet.
> Diky
Ikony na desktopu
[*] Jiri Malek <jirim(zv)mrkev.vabo(tec)cz> - 02.3.1998 09:58:22
Jojo,
s temi LNK soubory se omlouvam, samozrejme ze to v nich neni. Ujel mi
operacni system ...
-j-
Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 10:44:06
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Automatic reply
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 2.3.1998 10:50:56
-----Original Message-----
From: armysr(zv)vadium.sk [SMTP:armysr(zv)vadium.sk]
Sent: Monday, March 02, 1998 6:20 AM
To: delphi(zv)pinknet(tec)cz
Subject: Automatic reply
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny !
Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie
veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.
[Arthur]
A vickrat to poslat neumis???
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================TApplication - naslednik
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 2.3.1998 10:52:44
-----Original Message-----
From: Jan Krizek [SMTP:JKRI6312(zv)barbora.mff.cuni(tec)cz]
Sent: Monday, March 02, 1998 7:49 AM
To: delphi(zv)pinknet(tec)cz
Subject: TApplication - naslednik
Ahoj,
nevi tady nekdo, zda lze vytvorit (a pak pouzit) naslednika tridy
TApplication. Muzete mi to popsat.
Diky Honza +
[Arthur]
Podle dokumentace to nema smysl delat. Application se inicializuje jeste nez
vubec prijde Tvuj kod ke slovu, takze bys asi musel sahnout do zdrojaku Forms.
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================Automatic reply
[*] armysr(zv)vadium.sk - 2.3.1998 10:52:16
Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny ! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake insie veci.
Viem , odkedy Kelti vymysleli peniaze .. :)
Dano.Prepisanie jedneho znaku v subore
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 2.3.1998 11:03:12
> V mojom programe mam subor v ktorom by som obcas potreboval menit
> nejake znaky bez toho aby som musel ctitat a potom znova zapisovat cely
> subor ( ma cca. 800 kb )
>
> Pr. piaty znak zmen z "a" na "b", ostatny text nechaj bez zmien
Pouzij prikaz BlockWrite (blize viz help)
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Autoreplay...
[*] Burger Tom� <Tomas.Burger(zv)mius(tec)cz> - 2.3.1998 11:08:19
Mili delfini,
pokud se nekdo znate s clovekem, uzivajicim email
armysr(zv)vadium.sk
tak mu reknete, ze jsme ho prave vymazli z konference - asi vsichni vite
proc...
A ze az si vypne autoreplay, at mi napise, ze ho vratime zpatky...
Tomas
-----------------------------------------------------
Tomas.Burger(zv)mius(tec)cz
Tomas.Burger(zv)sms.paegas(tec)cz
http://www.mius(tec)cz/
http://www.teplice(tec)cz/; http://delphi.mius(tec)cz/
icq: 3908757
-----------------------------------------------------
Drag&Drop na ikonu
[*] Jiri Semecky <jsem6533(zv)barbora.mff.cuni(tec)cz> - 2.3.1998 11:45:15
> neviete niekto, ako sa robi aktivacia programu pri preneseni suboru
> nad jeho ikonu ? Napr. mam na desktope ikonu tlaciarne, ak na nu
> prenesiem nejaky subor, potom tlacim ... Namiesto tlaciarne by tam
> bol moj program ...
Windows spusti tvuj program s parametrem jmena souboru. Myslim, ze
jsou to promenne ParamStr a ParamCount.
Jirka
RX offline help
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 2.3.1998 11:59:25
Na http://www.officeauto.com/ftp/rxlib/help/RXHLP10.EXE je subj.
S pozdravem
Radek Docekal
tisk do vice sloupcu
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 2.3.1998 12:17:10
Ahojda,
nevid�li jste zde n�kdo komponentu do D3 na tisk seznamu ve vice sloupcich tak,
aby vzdy byly ucelene stranky?
Priklad: Tisknu posloupnost cisel 1,2,..... 17 na tri sloupce a ctyri radky na
strance (pocet radku by se mel vypocist podle delky strany) a vysledek je:
Strana 1
1 5 9
2 6 10
3 7 11
4 8 12
Strana2
13 15 17
14 16
P.S: Potrebuji s tim tisknout interni telefe�nni seznamy a pod. Doted jsem to
delal ve FAND-u, a tam jsem to mel pres pomocny soubor, ale to neni ono.
Nehlede na to, ze tady nevim, jak zjistit pocet radek a sloupcu, ce se vejde na
obecnou Windows tiskarnu.
=======================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDo 2:423/35
=======================================Proch�zen� souborov�ho stromu
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 02.3.1998 12:32:07
Peter Rus wrote:
> Ahoj Speedy,
>
> promin,a le vloudila se mala chybicka :
>
A jeste jedna moje oblibena : chybi FindClose.
Cau Vaclav Sazima
Prepisanie jedneho znaku v subore
[*] FULE Lubomir <FULE(zv)RASAX.SK> - 2.3.1998 12:52:29
Napr. takto:
var f:file; //pouzitie neotypovaneho suboru
a:char;
l:integer;
begin
AssignFile(f,'subor.txt'); //priradenie mena suboru
Reset(f,1); //otvorenie suboru a inicializacia velkosti jedneho prvku
v subore
Seek(f,4); //nastavenie pozicie v subore
a:='b';
BlockWrite(f,a,1,l); //zapis do suboru
if l<>1 then chyba; //test, ci sa zapisal znak
CloseFile(f); //zatvorenie suboru
end.
alebo:
var f:file of char; //pouzitie otypovaneho suboru
a:char;
l:integer;
begin
AssignFile(f,'subor.txt'); //priradenie mena suboru
Reset(f); //otvorenie suboru a inicializacia velkosti jedneho prvku v
subore
Seek(f,4); //nastavenie pozicie v subore
a:='b';
Write(f,a); //zapis do suboru
CloseFile(f); //zatvorenie suboru
end.
alebo mozes pouzit Win API.
Vela stastia pri programovani
S pozdravom
Lubomir Fule
>-----P�vodn� zpr�va-----
>Od: Peter Liptak [SMTP:liptak(zv)pusr.sk]
>Odesl�no: 2. marec 1998 9:33
>Komu: delphi(zv)pinknet(tec)cz
>P�edm�t: Prepisanie jedneho znaku v subore
>
>Pozdravujem vsetkych ucastnikov konferencie,
>
> V delphi som toho este vela nenaprogramoval, a tak sa na Vas obraciam s
>otazkou ktora
>je mozno dost ..., ale mne sa to este nepodarilo vyriesit
>
> V mojom programe mam subor v ktorom by som obcas potreboval menit
>nejake znaky bez toho aby som musel ctitat a potom znova zapisovat cely
>subor ( ma cca. 800 kb )
>
>Pr. piaty znak zmen z "a" na "b", ostatny text nechaj bez zmien
>
>Za pomoc predom dakujem,
> Peter
>--
>---------------------------------------------------------
>| Ing. Peter Liptak Email: liptak(zv)pusr.sk |
>| Antimonopoly office of SR Voice: +42-7-5797 368 |
>| Drienova 24 Voice: +42-7-234 043 |
>| 826 03 BRATISLAVA Fax : +42-7-5797 365 |
>| Slovak Republic BBS : +42-7-236 103 |
>---------------------------------------------------------
Prepisanie jedneho znaku v subore
[*] BLACKY(zv)FENIX.ZCU.CZ - 2.3.1998 12:52:38 est
> V delphi som toho este vela nenaprogramoval, a tak sa na Vas obraciam s
> otazkou ktora
> je mozno dost ..., ale mne sa to este nepodarilo vyriesit
>
> V mojom programe mam subor v ktorom by som obcas potreboval menit
> nejake znaky bez toho aby som musel ctitat a potom znova zapisovat cely
> subor ( ma cca. 800 kb )
>
> Pr. piaty znak zmen z "a" na "b", ostatny text nechaj bez zmien
Ja myslim,ze v Delphi funguje naprosto normalne blockread,blockwrite
a seek (ten seek se mozna jmenuje jinak) a tim si muzes menit
kterej znak chces aniz by se te oriznul konec souboru.Prepisanie jedneho znaku v subore
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 2.3.1998 12:58:55
-----Original Message-----
From: Peter Liptak [SMTP:liptak(zv)pusr.sk]
Sent: Monday, March 02, 1998 9:33 AM
To: delphi(zv)pinknet(tec)cz
Subject: Prepisanie jedneho znaku v subore
Pozdravujem vsetkych ucastnikov konferencie,
Pr. piaty znak zmen z "a" na "b", ostatny text nechaj bez zmien
[Arthur]
Huf?!
Moznosti je asi tisic, ale jedna uplne klasicky pascalska za vsechny (ostatni
Ti urcite posle zbytek konference :-):
var f: file of char;
begin
AssignFile(f, 'blabla.dat');
Reset(f);
try
Seek(f, 5);
Write(f, 'b');
finally
Closefile(f);
end;
end;
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================Mozne chyby v IDAPI
[*] Josef Trogl <josef.trogl(zv)vscht(tec)cz> - 2.3.1998 13:53:25
Programoval jsem databazove aplikace v Delphi pomoci database enginu
a narazil jsem na nekolik funkcnich chyb. Zajimalo by me, jestli je
duvodem jenom spatna instalace IDAPI nebo spatna konstelace
hvezd nebo o co vlastne jde.
1) Do souboru *.dbt (pri pouziti databaze DBase) se mi
vkladaji casti aktualne otevrenych souboru (rozpoznal
jsem text, cast dfm souboru delphi apod.). DBT soubor
tim nabyva hrozivych rozmeru a po case se zhrouti, dojde
k uplne chaotizaci memo polozek, objevuji se vsude, nekde
chybi apod.
2) Pravidelne pri restruktualizaci paradoxove databaze
pomoci Database Desktopu mi dojde k chybe, ktera se projevi
hlasenim Corrupted Index. Databaze pak odmitne komunikovat.
To je zatim vse, doufam ze se najde nekdo, kdo mi poradi.
Konverze PC -> Mac
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 02.3.1998 14:06:27
Dobry den,
hledam nekoho, kdo by vyresil tento problem :
Na PC je databaze videokazet v MS Access. Na tomto PC se pripravi seznam
vybranych videokazet. Tento seznam je treaba prenet na Maca, kse bezi
odbavovaci program Eva, ktery zpracovava seznamy ve svem vlastnim
formatu. K dispozici je databaze kazet v MS Access (disketa PC) a
priklad seznamu Eva (disketa Mac). Za vyreseni nabizime odmenu 10 000
Kc. Byl bych vdecny i za kontakt na nekoho, kdo by to zvladl.
Vaclav Sazima
Fax
[*] Ji�� Lebru�ka - 2.3.1998 18:02:31
Ahoj,
nemate tuseni, zda nekde existuje faxovaci komponenta?
Diky.BDE errcode
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 2.3.1998 19:24:46
> nevite nekdo, kde roste seznam chybovych kodu BDE? Je ponekud otravne
> a navic nespolehlive zkouset ze 10024 je "table doesn't exist" a
> podobne.
> Nevite odkud vytahnout co ktere numero znamena?
Mam programek, ktery vypise po zadani cisla chyby text chyby. Chces-li ho
poslat, tak se ozvi.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
Com objekty
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 2.3.1998 22:14:17
Zdravim,
muze mi nekdo vysvetlit co to vlastne jsou Com a DCom objekty? Podle toho co
jsem cetl to jsou nejak� ActiveX. Od jake verze a varianty(Std, Prof, C/S)
se to da programovat? Je nejaka literatura jak to programovat v Delphi (i
anglicky)?
Dik.
Pavel Chaloupka
E-Mail : chaloupka(zv)mboxzn(tec)cz
Telefon: +420-621-334226
Mobil: +420-602-710960
Fax
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.3.1998 23:25:43
> nemate tuseni, zda nekde existuje faxovaci komponenta?
Async Pro podporuje modemovani, faxovani apod.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Jezkova 12, 400 11 Usti nad Labem ===
=== Telefon, fax: 047-5501627, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Prepisanie jedneho znaku v subore
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.3.1998 08:19:08
Peter Liptak wrote:
> V mojom programe mam subor v ktorom by som obcas potreboval menit
> nejake znaky bez toho aby som musel ctitat a potom znova zapisovat
> cely subor ( ma cca. 800 kb )
>
> Pr. piaty znak zmen z "a" na "b", ostatny text nechaj bez zmien
Stejne (skoro) jako v Pascalu,
var f:file; Znak:char;
AssignFile(f,'blabla.kuk');
Reset(f,1);
Seek(f,5);
Znak:='b';
Write(f,Znak,1);
CloseFile(f);
nebo muzes pouzit tridu TFileStream, v principu stejnym zpusobem.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
Cteni pozice kurzoru v TMemo
[*] Jozef Strn�dik <strnadik(zv)mrp.sk> - 3.3.1998 08:43:35
> Vsechno funguje perfektne, dokud nezacnu mysi nebo SHIFT+sipka
> oznacovat nejaky blok textu. Totiz pak by mi prislusne funkce mely
> vracet aktualni pozici kurzoru i behem samotneho oznacovani textu.
> Tak to ovsem funguje pouze tehdy, kdyz oznacuji text od pozice
> kurzoru smerem doleva a nahoru. Pro opacny smer funkce stale
> tvrdosijne vraci startovni souradnice zapoceti oznacovani.
To je zrejme uz z nazvu "SelStart". Ten ti vzdy oznacuje zacatek
bloku, at je blok dlouhy 0 (neni oznaceny blok) nebo ho tahnes
doprava a dolu. K tomu je potreba jeste zjistovat SelLength.
Tom PLANKA ma pravdu.
Ako chcete zo SelLength zistit ci je text oznacovany od kurzoru doprava
alebo
dolava ? Skuste to a zistite ze to nejde.
Jozef
BDE errcode
[*] RADIK(zv)p15.monet(tec)cz - 3.3.1998 08:51:00
> nevite nekdo, kde roste seznam chybovych kodu BDE? Je ponekud otravne
> a navic nespolehlive zkouset ze 10024 je "table doesn't exist" a
> podobne.
> Nevite odkud vytahnout co ktere numero znamena?
Program na vypis chyb je na www.borland.com v sekci delphi nebo bde....
Chce to trochu hledat...
Ales
HELP v Delphi
[*] Josef Dodek student <XDODEK(zv)feld.cvut(tec)cz> - 3.3.1998 10:01:46 met-1mest
zdravim,
mohl by mi nekdo prosim poradit jak se pise HELP k programum v Delphi?
-mam na mysli takovy ten klasicky windowsovsky help s odkazy psany
formou hypertextu.
-existuje na to nejaky editor ?
vim, ze Form ma property HelpFile a skoro kazda komponenta ma
property HelpContext ale nevim jak ten soubor napsat a jak se snim
pracuje.
predem diky
Pepa Dodek
HELP v Delphi
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 3.3.1998 10:40:24
-----Original Message-----
From: Josef Dodek student [SMTP:XDODEK(zv)feld.cvut(tec)cz]
Sent: Tuesday, March 03, 1998 11:02 AM
To: delphi(zv)pinknet(tec)cz
Subject: HELP v Delphi
zdravim,
mohl by mi nekdo prosim poradit jak se pise HELP k programum v Delphi?
-mam na mysli takovy ten klasicky windowsovsky help s odkazy psany
formou hypertextu.
-existuje na to nejaky editor ?
vim, ze Form ma property HelpFile a skoro kazda komponenta ma
property HelpContext ale nevim jak ten soubor napsat a jak se snim
pracuje.
predem diky
Pepa Dodek
[Arthur]
Bud to muzes psat "postaru" ve Wordu a potom prelozit. Popis syntaxe byl v
baliku k BP7, ale nevim jestli i v helpu, v manualu urcite. A nebo muzes pouzit
nektery inteligentnejsi editor, kde ten help navrhnes v podstate vizualne.
Osobne pouzivam a doporucuji ForeHelp, ale urcite na trhu neni sam.
Arthur
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================Cteni pozice kurzoru v TMemo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.3.1998 11:01:07
Jozef Strn�dik wrote:
> Tom PLANKA ma pravdu.
> Ako chcete zo SelLength zistit ci je text oznacovany od kurzoru doprava
> alebo
> dolava ? Skuste to a zistite ze to nejde.
Ahoj, zde je cast kodu kde jsem tento problem resil.
type
TEditorChild = class(TForm)
RichEdit: TRichEdit;
.
.
private
LastSelection: TPoint; // X = SelStart, Y = SelEnd
LastCPos: Integer;
.
.
end;
implementation
const
EditorTabSize = 8;
procedure TEditorChild.FormCreate(Sender: TObject);
begin
LastSelection := Point(0, 0);
LastCPos := -1;
end;
function TEditorChild.CursorPos: TPoint;
var
Line, Col, I, C, CPos, SelEnd, Anchor: Integer;
LineStr: String;
begin
with RichEdit do
begin
SelEnd := SelStart + SelLength;
if SelLength = 0 then CPos := SelStart else
if (LastSelection.X = SelStart) and (LastSelection.Y = SelEnd) then
CPos := LastCPos else
begin
if SelStart < LastSelection.X then CPos := SelStart else
if SelEnd > LastSelection.Y then CPos := SelEnd else
begin
if LastSelection.X = SelStart then Anchor := SelEnd else
Anchor := SelStart;
if SelStart < Anchor then CPos := SelEnd else
CPos := SelStart;
end;
end;
LastCPos := CPos;
Line := SendMessage(Handle, EM_LINEFROMCHAR, CPos, 0);
C := CPos - SendMessage(Handle, EM_LINEINDEX, Line, 0) + 1;
LineStr := Lines[Line];
Col := 1;
for I := 1 to C - 1 do if (I <= Length(LineStr)) and (LineStr[I] = #9) then
Col := (Col div EditorTabSize) * EditorTabSize + (EditorTabSize + 1) else
Inc(Col);
Inc(Line);
LastSelection := Point(SelStart, SelEnd);
end;
Result := Point(Col, Line);
end; Petr Vones, amatersky programator
Pouziti PLUGINu
[*] Jiri Pazdernik <georges(zv)ova.pvtnet(tec)cz> - 3.3.1998 11:14:29
>Zdravim vsechny Delphisty
> a mam nasledujici problem. Potrebuji udelat do aplikace PlugIn-y.
>Jsou v zasade dve moznosti: DLL a ActiveX. Ale DLL je pouze knihovna
>matod, ale ja potrebuji, aby v PlugIn-u bylo okno (tedy objekt).
>Proto bych to radsi resil pomoci ActiveX, jen nevim, jak v run-time
>nacist ActiveX komponentu.
> Mate-li jakoukoli zkusenost s PlugIn-ama, budu rad
> Diky Jira Semecky
Ale vzdyt do DLL muzes umistit objekty, tedy i okna. DLL neni jen
knihovna metod, ale i objektu. Problem je ten, ze po vlozeni nejakeho
formulare (pridanim unity Forms) naroste neprijemne delka souboru.
Ja jsem to resil tak, ze do DLL jsem daval pouze parametry objektu
a prislusne metody a jejich vytvareni resil pak samotny program.
Tak jsem dosahl minimalni delky DLL (vestinou pod 50K).
Jiri Pazdernik
Cteni pozice kurzoru v TMemo
[*] Pavel Zichovsky <jesnem(zv)ova.pvtnet(tec)cz> - 3.3.1998 11:32:56
> > vracet aktualni pozici kurzoru i behem samotneho oznacovani textu.
> > Tak to ovsem funguje pouze tehdy, kdyz oznacuji text od pozice
> > kurzoru smerem doleva a nahoru. Pro opacny smer funkce stale
> > tvrdosijne vraci startovni souradnice zapoceti oznacovani.
>
> To je zrejme uz z nazvu "SelStart". Ten ti vzdy oznacuje zacatek
> bloku, at je blok dlouhy 0 (neni oznaceny blok) nebo ho tahnes
> doprava a dolu. K tomu je potreba jeste zjistovat SelLength.
>
>
> Ako chcete zo SelLength zistit ci je text oznacovany od kurzoru doprava
> alebo
> dolava ? Skuste to a zistite ze to nejde.
Pak to musi udelat trochu sloziteji. pokud je sellength vetsi nez 0
(tj. neco je oznacenyho), pak musi sledovat, jestli se meni selstart.
Pokud ano, oznacuje smerem vlevo a kursor je na posici selstart,
pokud ne, oznacuje smerem vpravo a kursor je na posici
selstart+sellength.
Schovavani puvodniho selstart do nejake promenne snad neni zadny
problem.
S pozdravem
Pavel "Zizi" Zichovsky <jesnem(zv)ova.pvtnet(tec)cz>
----------------------------
PGP podporovano a vitano
Pouziti PLUGINu
[*] Jiri Semecky <jsem6533(zv)barbora.mff.cuni(tec)cz> - 3.3.1998 11:41:49
Zdravim vsechny Delphisty
a mam nasledujici problem. Potrebuji udelat do aplikace PlugIn-y.
Jsou v zasade dve moznosti: DLL a ActiveX. Ale DLL je pouze knihovna
matod, ale ja potrebuji, aby v PlugIn-u bylo okno (tedy objekt).
Proto bych to radsi resil pomoci ActiveX, jen nevim, jak v run-time
nacist ActiveX komponentu.
Mate-li jakoukoli zkusenost s PlugIn-ama, budu rad
Diky Jira Semecky
kompresovany adresar pod NTFS
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 3.3.1998 11:48:05
Delali jste nekdo se subj. v Delphi ? Jde mi o to, jak provest programove
dekompresi. Prinejhorsim odkaz na nejaky EXE, co to umi z komandlajny...
Zkousel jsem se divat na API fce, ktere to delaji, ale je to naprosta
hruuuuza.
S pozdravem
Radek Docekal
ICQ: 9008367
Nazvy formatu
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 3.3.1998 12:02:57
Nevite nekdo, jak z W95 dostat nazvy registrovanych
clipboard-formatu?
Dekuji
Tom
HELP v Delphi
[*] Vit Malecek <malecek(zv)melzer(tec)cz> - 3.3.1998 12:53:06
Existuje velmi dobry sharewarovy program HelpScribble. Ten umoznuje psat help, resp vytvorit rtf soubor, ktery se preda kompilatoru hcrtf.exe, ktery je soucasti Delphi (ale je to produkt Microsoftu).
Dalsi moznosti je rtf soubor vytvorit ve Wordu a podstrcit zminovanemu kompilatoru. Ovsem vytvorit takto help chce kopec trpelivosti a plechovou prdel. U kazde komponenty nastavis vlastnost HelpContext na cislo, ktere jsi pridelil danemu tematu pri tvorbe helpu a v nastaveni Project|Option zalozka Application sdelis, kde je prislusny help.
Poznamka:
HelpScribble stoji jen $10, pokud chces porusovat autorska prava anevadi ti, ze bude do helpu ke kazdemu prifarena hlaske "This help was created ...", tak ho lze pouzit okamzite.
Kde je?: http://www.tornado.be/~johnfg/
Adresa/Address: Vit Malecek, Obrancu miru 9, 796 01 Prostejov, Czech Republic
e-mail: malecek(zv)melzer(tec)cz
tlf./phone number : +420-(0)508-330301, +420-(0)508-330302, privat : +420-(0)508-27141
fax number : +420-(0)508-330302
-----P�vodn� zpr�va-----
Od: Josef Dodek student [SMTP:XDODEK(zv)feld.cvut(tec)cz]
Odesl�no: 3. b�ezna 1998 11:02
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: HELP v Delphi
zdravim,
mohl by mi nekdo prosim poradit jak se pise HELP k programum v Delphi?
-mam na mysli takovy ten klasicky windowsovsky help s odkazy psany
formou hypertextu.
-existuje na to nejaky editor ?
vim, ze Form ma property HelpFile a skoro kazda komponenta ma
property HelpContext ale nevim jak ten soubor napsat a jak se snim
pracuje.
predem diky
Pepa Dodek
Com objekty
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 3.3.1998 14:46:09
>Zdravim,
>
>muze mi nekdo vysvetlit co to vlastne jsou Com a DCom objekty? Podle toho
co
>jsem cetl to jsou nejak� ActiveX. Od jake verze a varianty(Std, Prof, C/S)
>se to da programovat? Je nejaka literatura jak to programovat v Delphi (i
>anglicky)?
COM je zkratka z Common Object Model, D v DCOM je pak od Distributed. Jde o
normu binarniho formatu rozhranni (objektu). COM objekty jsou pak takove
objekty, ktere implementuji jeden nebo vice rozhranni (interface). Interface
(a tudiz i COM objekty) lze definovat v libovolne verzi Delphi 3, ale
podpora pro ActiveX v podobe wizardu apod. je pouze v C/S. Co se literatury
tyce, je asi dobre zacit s Inside OLE od Microsoft Pressu (je to i cesky).
Programatorska prirucka Delphi rovnez obsahuje stat o programovani COM
objektu v Delphi.
Enjoy!
begin 666 Pavel Cisar.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..D-I<V%R.U!A=F5L#0I&3CI0
M879E;"!#:7-A<(zv)T*3U)'.D%+5$E3(&$N<RX[4')O:F5C="!.15A54PT*5$E4
M3$4Z4U<(zv)9&5V96QO<&5R#0I!1%([5T]22SH[.TYA(%9A;&5N=&EN8V4(zv),3M0
M<F%G=64(zv)-3L[,34P(# P.T-Z96-H(%)E<'5B;&EC#0I,04)%3#M73U)+.T5.
M0T]$24Y'/5%53U1%1"U04DE.5$%"3$4Z3F$(zv)5F%L96YT:6YC92 Q/3!$/3!!
M4')A9W5E(#4(zv),34P(# P/3!$/3!!0WIE8V(zv)(zv)4F5P=6)L:6,-"D%$4CM(3TU%
M.CL[.U!R86=U93L[.T-Z96-H(%)E<'5B;&EC#0I,04)%3#M(3TU%.T5.0T]$
M24Y'/5%53U1%1"U04DE.5$%"3$4Z4')A9W5E/3!$/3!!0WIE8V(zv)(zv)4F5P=6)L
M:6,-"E523#H-"E523#IH='1P.B\O=W=W+F%K=&ES+F-Z#0I%34%)3#M04D5&
M.TE.5$523D54.G!C:7-A<D!A:W1I<RYC>(zv)T*4D56.C$Y.3(zv)P,S S5#$S-#8P
/.%H-"D5.1#I60T%21 T*
`
end
nabidka Delphi Super Page
[*] RADIK(zv)p15.monet(tec)cz - 3.3.1998 14:50:00
Vazeni Delphiniste,
nabizim vsem priznivcum Delphi Super Page jeji archiv na CD-R.
Nemam v planu zbohatnout, ale vim co je to stahovat tolik dat z
Intertnetu
s pomoci modemu a myslim, ze by to mohl potrebovat.
Zakladni udaje:
Data: Delphi SuperPage
Posledni aktualizace: 11.1.1998
Doplnky: RXlib 2.40, Delphi Knowledge Base,
Unofficial Newsletter of Delphi Users, dalsi informacni zdroje,
dalsi konponenty, BDE 4.51
Cena: 250 Kc (+ postovne pokud bude treba), to je min, nez kdyz budete
chtit
vypalit svoje data u nejake firmy.....
Pokud budete mit zajem piste na adresu:
radik(zv)p15.monet(tec)cz
Ales Radikovsky
kompresovany adresar pod NTFS
[*] Jiri Malek <jirim(zv)mrkev.vabo(tec)cz> - 03.3.1998 15:04:40
A nestacilo by zrusit atribut souboru/adresare "Compressed"?
-j-
Radek Docekal wrote:
> Delali jste nekdo se subj. v Delphi ? Jde mi o to, jak provest programove
> dekompresi. Prinejhorsim odkaz na nejaky EXE, co to umi z komandlajny...
> Zkousel jsem se divat na API fce, ktere to delaji, ale je to naprosta
> hruuuuza.
>
> S pozdravem
> Radek Docekal
> ICQ: 9008367
DBGrid a mrizka
[*] RADIK(zv)p15.monet(tec)cz - 3.3.1998 16:27:00
Nevite nekdo jak zmenit barvu mrizky (pripadne i sirku linky) u
DBGridu?
Borlandu se to asi zdalo zbytecne....
Diky
Ales
HELP v Delphi
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 03.3.1998 18:04:04
Existuje sablona pro Word (jmenuje se helpy10.zip tusim a je ke stazeni
na www.download.com apod.) a k prelozeni do *.hlp souboru potrebujes
HelpWorkshop od MS (ke stazeni u MS).
Martin Kubecka
Josef Dodek student wrote:
>
> zdravim,
>
> mohl by mi nekdo prosim poradit jak se pise HELP k programum v Delphi?
>
> -mam na mysli takovy ten klasicky windowsovsky help s odkazy psany
> formou hypertextu.
>
> -existuje na to nejaky editor ?
>
> vim, ze Form ma property HelpFile a skoro kazda komponenta ma
> property HelpContext ale nevim jak ten soubor napsat a jak se snim
> pracuje.
>
> predem diky
>
> Pepa Dodek
>tisk do vice sloupcu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.3.1998 22:00:32
Richard Valny wrote:
>
> Ahojda,
> nevid�li jste zde n�kdo komponentu do D3 na tisk seznamu ve vice sloupcich tak,
> aby vzdy byly ucelene stranky?
> Priklad: Tisknu posloupnost cisel 1,2,..... 17 na tri sloupce a ctyri radky na
> strance (pocet radku by se mel vypocist podle delky strany) a vysledek je:
> Strana 1
> 1 5 9
> 2 6 10
> 3 7 11
> 4 8 12
>
> Strana2
> 13 15 17
> 14 16
>
Pouzij QuickReport a vlastnost Page.Columns (Delphi 3) nastav na 3.
Petr Vones, amatersky programator
Com objekty
[*] Hynek Saida <saida(zv)informatics.muni(tec)cz> - 3.3.1998 22:13:11
> COM je zkratka z Common Object Model, D v DCOM je pak od Distributed. Jde o
> normu binarniho formatu rozhranni (objektu). COM objekty jsou pak takove
> objekty, ktere implementuji jeden nebo vice rozhranni (interface). Interface
> (a tudiz i COM objekty) lze definovat v libovolne verzi Delphi 3, ale
> podpora pro ActiveX v podobe wizardu apod. je pouze v C/S. Co se literatury
> tyce, je asi dobre zacit s Inside OLE od Microsoft Pressu (je to i cesky).
Cesky jsem to jeste nevidel. Kdo to vydal a kdy?
Diky,
// Hynek Saida //
------------------------------------------------------------------------------
Hynek Saida saida(zv)fi.muni(tec)cz http://www.fi.muni(tec)cz/~saida
------------------------------------------------------------------------------
HELP v Delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.3.1998 06:06:58
Josef Dodek student wrote:
> mohl by mi nekdo prosim poradit jak se pise HELP k programum v
> Delphi?
>
Viz \Help\Tools.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
kompresovany adresar pod NTFS
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 4.3.1998 07:19:30
To jsem zkousel jako prvni, nestacilo 8-(
S pozdravem
Radek Docekal
ICQ: 9008367
>A nestacilo by zrusit atribut souboru/adresare "Compressed"?
>
>-j-
>
>Radek Docekal wrote:
>
>> Delali jste nekdo se subj. v Delphi ? Jde mi o to, jak provest programove
>> dekompresi. Prinejhorsim odkaz na nejaky EXE, co to umi z komandlajny...
>> Zkousel jsem se divat na API fce, ktere to delaji, ale je to naprosta
>> hruuuuza.
Com objekty
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 4.3.1998 08:39:59
>> Co se literatury
>> tyce, je asi dobre zacit s Inside OLE od Microsoft Pressu (je to i
cesky).
>
>Cesky jsem to jeste nevidel. Kdo to vydal a kdy?
>
>Diky,
Sorry, spletl jsem se. Cesky to neni.
Vydal to jiz zmineny Microsoft Press.
Pouziti PLUGINu
[*] Jiri Semecky <jsem6533(zv)barbora.mff.cuni(tec)cz> - 4.3.1998 08:53:38
> Ja jsem to resil tak, ze do DLL jsem daval pouze parametry objektu
> a prislusne metody a jejich vytvareni resil pak samotny program.
> Tak jsem dosahl minimalni delky DLL (vestinou pod 50K).
Jestli tomu dobre rozumim, tak si v DLL nemel okno, ale jen metody
pro obsluhu (kresleni a tak) okna, ktere dostane jako parametr. To se
pak ale velmi nesnadno programuji v tom okne pouzivaji komponenty a
pod.SQL monitor
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 4.3.1998 08:54:30
DDV,
nevite proc %subj% funguje pouze na default session? Potrebuji v
multithreadingove aplikaci zjistit jak BDE ne/zmrsilo muj dotaz a ono
to nefunguje. Prohlizeje help nasel jsem u TDatabase properity
TraceFlags, ovsem watch mi sdeli s usmevem, ze linker eliminoval a at
si takovy dotaz (na ty flagy) naboucham do usi.
Zkousel jsem toto pred otevreni databaze, ale neuspesne.
Database1.TraceFlags:= [tfQPrepare, tfQExecute, tfError, tfStmt,
tfConnect, tfTransact, tfBlob, tfMisc, tfVendor, tfDataIn,
tfDataOut];
Mate nekdo nejaky napad?+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.interfaces
[*] Jiri Semecky <jsem6533(zv)barbora.mff.cuni(tec)cz> - 4.3.1998 08:55:22
Nemate nekdo praxi s pouzivanim interfacu? (Jedna se o simulaci
vicenasobne dedicnosti). Konkretne me zajima, jak se da interface
naimplementovany v Delphi pouzit v jinych jazycich.
Dik Jirka
MSDN sluzba
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 4.3.1998 09:20:23
Chci se zeptat, jestli nekdo pouzivate MSDN sluzbu Microsoftu.
Je to jakasi knihovna prikladku k vsem aplikacim Microsoft.
Ceny ma opravdu velke a tak by mne zajimalo, zda ji nekdo ma
a jestli se z ni opravdu neco dovedel, nebo je to jen dalsi
reklamni tah k vecne slave firmy Microsoft.
Martin Nedopil
nedopil(zv)geocities.com
jsem doma na: http://www.geocities.com/Athens/Olympus/5260
Heslo dne:"Jsou-li tam, ustoup�me. Nejsou-li tam, hrrr na n�!"
MSDN sluzba
[*] Arthur <Arthur(zv)hlpsoft(tec)cz> - 4.3.1998 09:56:53
Chci se zeptat, jestli nekdo pouzivate MSDN sluzbu Microsoftu.
Je to jakasi knihovna prikladku k vsem aplikacim Microsoft.
Ceny ma opravdu velke a tak by mne zajimalo, zda ji nekdo ma
a jestli se z ni opravdu neco dovedel, nebo je to jen dalsi
reklamni tah k vecne slave firmy Microsoft.
[Arthur]
A kterou myslis. Nejakou tady mame, ale je to myslim druha rada (operacni
systemy a SDKcka,
vyvojarske nastroje jsou az ve vyssich radach).
Osobne vyuzivam jen SDK pro Win32. Bohuzel uz rok davaji to same CD (z ledna
1997)-:.
Ale je to lepsi nez nic. Je tam popis WinAPI, DirectX2 (taky trochu zaostale),
OpenGL, OLE32,
........ akde co dalsiho.
Jestli mas zajem se neco blizsiho dozvedet, tak napis.
Arthur
=====================================
David Arthur Muzatko
HelpSoft, spol. s r. o.
Uruguayska 1, Praha 2
tel./fax.: 24255816, 90004272-5
e-mail: Arthur(zv)HlpSoft(tec)cz
=====================================
-----Original Message-----
From: Martin Nedopil [SMTP:nedopil(zv)eskon(tec)cz]
Sent: Wednesday, March 04, 1998 9:20 AM
To: Konference Delpi FORUM
Subject: MSDN sluzba
<< File: ATT00000.txt; charset = windows-1250 >> MSDN sluzba
[*] FULE Lubomir <FULE(zv)RASAX.SK> - 4.3.1998 10:06:13
Je to vcelku seriozna sluzba (az na cenu). Podla toho, aky typ MSDN si
zaplatis, ti bude v pravidelnych intervaloch chodit sada CD, na ktorych
je dost uzitocnych veci. Okrem prikladov, ktore si spominal (to je len
miziva cast MSDN) su tam napriklad kompletne instalacie operacnych
systemov pocnuc MS-DOS konciac Win NT 4.0 Workstation vo vsetkych
moznych narodnych mutaciach, vsetky mozne ovladace a pod. Asi
najuzitocnejsia je celkom slusna programatorska dokumentacia k roznym
produktom napr. Exchange Server, ODBP API a pod.
Mam sice svoj nazor o M$ produktoch, ale clovek sa zial musi riadit
poziadavkami zakaznikov a ked som nuteny programovat s pouzitim M$
produktov, tak MSDN je celkom uzitocna vec.
S pozdravom
Lubomir Fule
>-----P�vodn� zpr�va-----
>Od: Martin Nedopil [SMTP:nedopil(zv)eskon(tec)cz]
>Odesl�no: 4. marec 1998 9:20
>Komu: Konference Delpi FORUM
>P�edm�t: MSDN sluzba
>
>This message was sent using a character set not supported on the Internet
>Mail Connector. The message text has been placed into the attachment:
>ATT00205.txt. To view, double-click on the attachment. If the text isn't
>displayed correctly, save the attachment to disk, and then use a viewer that
>can display the original character set. <<Soubor: ATT00205.txt; charset =
>windows-1250>> kompresovany adresar pod NTFS
[*] RADIK(zv)p15.monet(tec)cz - 4.3.1998 10:18:00
>Delali jste nekdo se subj. v Delphi ? Jde mi o to, jak provest
programove
>dekompresi. Prinejhorsim odkaz na nejaky EXE, co to umi z
komandlajny...
>Zkousel jsem se divat na API fce, ktere to delaji, ale je to naprosta
>hruuuuza.
Existuje cesky free klon Norton Commanderu pro Windows. Jmenuje se
Servant Salamander. A ten umi kompresi i dekompresi. Snad by se dal
autor pumpnout o nejake zkusenosti......
Home page je http://vorvan.sh.cvut(tec)cz/salamander/
Ales
Pouziti PLUGINu
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 4.3.1998 10:49:25
> Zdravim vsechny Delphisty
> a mam nasledujici problem. Potrebuji udelat do aplikace PlugIn-y.
> Jsou v zasade dve moznosti: DLL a ActiveX. Ale DLL je pouze knihovna
> matod, ale ja potrebuji, aby v PlugIn-u bylo okno (tedy objekt).
> Proto bych to radsi resil pomoci ActiveX, jen nevim, jak v run-time
> nacist ActiveX komponentu.
> Mate-li jakoukoli zkusenost s PlugIn-ama, budu rad
> Diky Jira Semecky
Na to jsou prave idealni COM objekty, OLE Automation. Jejich pouziti se nachazi
mezi demo programy u Delphi 2 i Delphi 3. Muzes primo pres COM objekty volat
napr. prikazy WordBasicu a uplne jednoduse ovladat MS Word (klidne bez toho, ze
bys ho mel viditelne spusteny - samozrejme pokud nepotrebujes vizualni operace
s dokumenty). Ale jak vytvaret vlastni? Do toho jsem zatim nepronikl a cesky
zatim nic o tom nevyslo (jak uz tady dnes problesklo v diskuzi na tema COM
objekty). Skoda, protoze si myslim, ze je v tom velka sila.
----------------------------------------------------
Petr Slovak
Trilog, s.r.o.
Http: http://www.trilog(tec)cz/
E-mail: petr(zv)trilog(tec)cz
Telefon: (+420) 2 / 205 131 06, linka 220, 271
Mobil: (+420) 603 / 501 642
Adresa: Vanickova 5/1, Praha 6, 160 00
----------------------------------------------------
paraelni port
[*] Chroustovsk� Petr <metrex(zv)kh.cesnet(tec)cz> - 4.3.1998 11:45:07
Zdravim vsechny
Mam problem v D3. Potrebuju zapisovat na paraelni port do signalu STROBE a
AUTO FEED (adresa $378 + 2). Ve starem dobrem pascalu to jde, ale tady si
nevim rady. Nemate nekdo nejaky napad??
Je najaka nahrada za stare CRT ci DOS ??
s pozdravem
Petr "chroust" Chroustovsky <metrex(zv)kh.cesnet(tec)cz>
paraelni port
[*] Dalibor Toman <dtoman(zv)lit(tec)czn(tec)cz> - 4.3.1998 12:17:09
>Zdravim vsechny
>
>Mam problem v D3. Potrebuju zapisovat na paraelni port do signalu
STROBE a
>AUTO FEED (adresa $378 + 2). Ve starem dobrem pascalu to jde, ale tady
si
>nevim rady. Nemate nekdo nejaky napad??
pod Win95 pouzij
MOV DX,37Ah
OUT DX,AL
IN AL,DX
OR AL,xy
OUT DX,AL
Pod WinNt si napis systemovej diver :-)
Zdravi
D. Toman
Jak na tabulky ??
[*] stingp1.eti(zv)mail.cez(tec)cz - 4.3.1998 13:10:48
A coz takhle zkusit pred EmptyTable zkusit Table.Close ??
Pavel
Stingl.Pavel/2300/ETI(zv)eti1.ccmail.x400.cez(tec)cz
PS: Mam novou postu, a nevim, jak to bude u vas vypadat (co si mail na sebe
navesi).
Bude-li to moc spatne, napiste mi, a ja se pokusim s tim neco udelat.
Dik za trpelivost.
---------------------------------------------------------------------------
--------------------------------------------------
"Internet:delphi-request(zv)io.pinknet(tec)cz/" AT _INTERNET na 23.02.98 17:34:21
Komu: "Internet:delphi(zv)pinknet(tec)cz/" AT _INTERNET(zv)ccMTA-_ETI1
Kopie:
P?edm?t: Jak na tabulky ?? // hlasim se z jineho serveru. Takze to snad jiz ten konfirmation nebude
// psat pokud ano napiste my. (je to reseni ze ktereho my je zle...)
Mam taky problem :
Nevyte nekdo jak zceala smazat tabuku ??i Myslim jeji obsah. Skousel jsem
EmptyTable ci cosi
podobneho ale psalo to ze to nelze pouzit na otevrenou tabulku. A delat to
stylem
.........
fro x := 1 to Table1.RecordCount do
Table1.Delete;
.........
My neprijde moc vhodne.
A jeste jeden dotaz pokud dovolite, jak lze odemknou tabulku ?? Pokud my
obcas Delphi (3.0) spadnou tak zamknou tabulku a nejde s ni nic casto
provadet i dlouhe minuty, pokud ji nazamknou tak ze sem s oteviranim zcela
v koncich. A nepouze ani restart .....
A jeste jeden dotaz : dostalo se my do ruky CD z knihy DELPHI 1.0 a jsou
tam priklady komponent (treba zvuk) ktere v menu vubec nejsou. Nevyte jak
je tam dostat pripadne jak napsat; (nekde vzit); komponenty a pridat je do
nastrojove listy ??
Pokud nektery z techto problemu jde resit pomoci SQL, napiste.
JIRKA
Ps. nemate nekdo neco o pouziti SQL (priklady) v elektronicke podobe ?? A
jeste cesky k tomu ??
RFC-822-Headers:
Precedence: list
Problem v D3 standart
[*] TucekR(zv)p15.monet(tec)cz - 4.3.1998 13:14:00
Mam velky problem v Delphi 3 Standart (zakoupeno v lednu 98)
Kdyz chci instalovat RX 2.40 tak mi CTLREG jde.
DBREG i TOOREG pri standartni instalaci pres DPK neohlasi nic a kousne
se to, a pokud je nainstaluju jako do D2 tak to ohlasi neco v tom smyslu
ze nejake stejne komponenty jsou jiz v knihovnach VCL30 a pod.
nainstalovane a jestli to chci cele prekompilit (je to ale po ciste
instalaci D3 takze tam nic byt nemuze) a pokud reknu ano zustanou zase
trcet presypacky a nepomuze nic jen reset (system je v nestabilnim
stavu, ceka se na dialog uzavrit a cekam a cekam po 5 min jsem to
rsetoval), samozrejme ze disk ani nic jineho se za tu dobu nepohnulo.
CO RADITE?Jak na tabulky ??
[*] GLOSIK Milos <glosik(zv)nt2.asset.sk> - 4.3.1998 14:16:35
Zdravim
Pred EmptyTable je potrebne otvorit ju v mode Exclusive.
> -----Original Message-----
> From: stingp1.eti(zv)mail.cez(tec)cz [SMTP:stingp1.eti(zv)mail.cez(tec)cz]
> Sent: 4. marec 1998 13:11
> To: delphi(zv)io.pinknet(tec)cz
> Subject: Re: Jak na tabulky ??
>
>
> A coz takhle zkusit pred EmptyTable zkusit Table.Close ??
>
> RichEdit - nastaveni barev znaku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.3.1998 15:21:07
Ahoj,
Potreboval bych do RichEdit vlozit text (z terminalove komponenty) tak
aby byly zachovany barvy jednotlivych znaku. Problem je, ze zpusob kterym
to resim je velmi pomaly. Dale bych to potreboval v nejakem formatu
ulozit do schranky tak aby to bylo mozne vlozit do WordPadu nebo M$ Wordu
se zachovanim barev. Patrne by stacilo neco, co umi generovat text v RTF
formatu a pak jej vlozit do schranky.
Zde je priklad, ktery ukazuje ten problem ...
procedure TForm1.Button1Click(Sender: TObject);
const
Colors: array[0..15] of TColor =
(clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple,
clTeal, clGray, clSilver, clRed, clLime, clYellow, clBlue,
clFuchsia, clLtGray, clDkGray);
var
I: Integer;
CH: TCharFormat;
R: TCharRange;
S: String;
Rect: TRect;
begin
S := '1234567890abcedeg dfdf (zv)##$^$%^';
CH.cbSize := Sizeof(CH);
with RichEdit1 do
begin
Rect := ClientRect;
SendMessage(Handle, EM_SETRECT, 0, Longint((zv)Rect));
Lines.BeginUpdate;
for I := 1 to 10 do Lines.Add(S);
// tato smycka desne dlouho trva, snazil jsem se pouzit primo
// zpravy Windows ale moc to nepomaha.
for I := 1 to 10 * (Length(S) + 2) do
begin
R.cpMin := I;
R.cpMax := I + 1;
SendMessage(Handle, EM_EXSETSEL, 0, LongInt((zv)R));
CH.dwMask := CFM_COLOR;
CH.crTextColor := Colors[I and $0F];
SendMessage(Handle, EM_SETCHARFORMAT, SCF_SELECTION, LongInt((zv)CH));
end;
Lines.EndUpdate;
end;
end;
Dekuji za jakekoliv napady.
Petr Vones, amatersky programator
Manual Delphi
[*] Valicek Arnost <valiceka(zv)mgv.inext(tec)cz> - 4.3.1998 15:24:44
> Shanim manual Mistrovstvi v Delphi pro Win95. V obchodech jsem ho uz nesehnal.
> Nevite o nejakem obchodu, kde by se jeste jeden vytisk nachazel. Diky.
>
na http://vltava.cpress(tec)cz/ to maji v nabidce, tak si to tam muzes
objednat (no neni to kameny obchod, takovy internetacky, ale davaji
tam dobre slevy a nejakou knizku zdarma k tomu (v cene az 500 kc
:-0))
------------------------------------------------
Arnost Valicek (ValicekA(zv)mgv.inext(tec)cz)
------------------------------------------------
QuickReport - cerne
[*] tomas.mazurek(zv)vitkovice(tec)cz - 4.3.1998 15:40:54
Hello,
mame Delphi 1.02 a QuickReport 1.0d (koupeny primo z Norska).
Nekolik uzivatelu mam reklo, ze sestavy lezou asi takto:
Prvni strana je OK, dalsi vsak vylezou opacne, tj. co ma byt bile je
cerne a co ma byt cerne je bile. Samozrejme pak vetsina stran vypada
jak cernoch a toneru to tez neprida...
Tento problem se objevil u pouze u tiskaren typu Minolta 6. Legrace
je v tom, ze nejprve to tisklo vse OK a teprve po nejakem tydnu to
zaclo blbnout...
Pomoc byla celkem jednoducha: odinstalovani tiskarny a nova
instalace. Tiskarna sice ma svuj instalacni a odinstalaci program,
lec po odinstalovani bylo nutno projit registry a rucne smazat
veskere zminky o vyse uvedene tiskarne...
Nyni je cca tyden pokoj, ale az budu mit cas mailnu jim to primo do
Osla.
Vtip je v tom, ze QSD software poskytuje plnou podporu jen tem, co si
koupi QR primo od nich, nikoliv jako soucast Delphi...
Toz to je jedna z mych zkusenosti s QR
Tomas Mazurek
Zaslani zpravy WM_KEYPRESS
[*] Ivo Liska <lisak(zv)mendelu(tec)cz> - 4.3.1998 16:15:25
Zdravim vsechny Bratry v Delphi,
netusite nahodou nekdo jak spachat nasledujici vec?
Potrebuji aby moje aplikace PSALA znaky do JINE aplikace, tzn. napr. po odeslani zprav WM_KEYPRESS s parametrem VkKeyScan('q)' tak, aby se v notepadu objevilo napsane pismo 'q'. Umim najit handle aplikace s niz chci komunikovat, prenest ji do popredi. Pak zkousim nastavit SetFocus(handle_adresata_zpravy) a zaslat WM_KEYPRESS. Nic se vsak nedeje.
Netusite nekdo co s tim ?
Lisak
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ivo Liska Dept. of Informatics
WebMaster of Pef MZLU Mendel University of Agriculture & Forestry
Zemedelska 1, Brno 61300
mailto:lisak(zv)mendelu(tec)cz Czech Republic, Central Europe
Jak na tabulky ??
[*] Richard �trunc <rick.strunc(zv)writeme(tec)com> - 4.3.1998 17:06:51
-----P�vodn� zpr�va-----
Od: stingp1.eti(zv)mail.cez(tec)cz <stingp1.eti(zv)mail.cez(tec)cz>
Komu: delphi(zv)io.pinknet(tec)cz <delphi(zv)io.pinknet(tec)cz>
Datum: 4. b�ezna 1998 14:22
P�edm�t: Re: Jak na tabulky ??> Mam taky problem :
> Nevyte nekdo jak zceala smazat tabuku ??i Myslim jeji obsah. Skousel jsem
> EmptyTable ci cosi
> podobneho ale psalo to ze to nelze pouzit na otevrenou tabulku. A delat to
> stylem
Chtel si vedet, jak se to vyresi v SQL, tak nejak takhle:
DELETE FROM tabulka
Ricky...
rick.strunc(zv)writeme.com
MSDN sluzba
[*] Jiri Semecky <jsem6533(zv)barbora.mff.cuni(tec)cz> - 4.3.1998 17:44:40
> Chci se zeptat, jestli nekdo pouzivate MSDN sluzbu Microsoftu.
> Je to jakasi knihovna prikladku k vsem aplikacim Microsoft.
> Ceny ma opravdu velke a tak by mne zajimalo, zda ji nekdo ma
> a jestli se z ni opravdu neco dovedel, nebo je to jen dalsi
> reklamni tah k vecne slave firmy Microsoft.
No obcas to pouzivam, jde o to co hledas. Jsou tam popsane vsechny
dodavane examply k jejich vyvojovym nastrojum. Kompletni specifikace
a referencni prirucky pro Java, C++, JavaScript, VBScr, HTML a pod.
Nevim jakou to mam verzi (dostal jsem ji kvuli jedne recenzi).
Pravda je, ze tam je hosne informaci a nekdy byva dost tezke tam neco
najit.
S pozdravem Jirka Semecky.Zaslani zpravy WM_KEYPRESS
[*] Pavel Kral <kral(zv)afx(tec)cz> - 4.3.1998 19:06:18
-----Original Message-----
From: Ivo Liska <lisak(zv)mendelu(tec)cz>
To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Date: 4. b�ezna 1998 17:50
Subject: Zaslani zpravy WM_KEYPRESS
>Zdravim vsechny Bratry v Delphi,
>
>netusite nahodou nekdo jak spachat nasledujici vec?
>
>Potrebuji aby moje aplikace PSALA znaky do JINE aplikace, tzn. napr. po
odeslani zprav WM_KEYPRESS s parametrem VkKeyScan('q)' tak, aby se v
notepadu objevilo napsane pismo 'q'. Umim najit handle aplikace s niz chci
komunikovat, prenest ji do popredi. Pak zkousim nastavit
SetFocus(handle_adresata_zpravy) a zaslat WM_KEYPRESS. Nic se vsak nedeje.
>Netusite nekdo co s tim ?
>
> Lisak
kdyz pouzijes tuto sekvenci, tak to funguje:
Handle:=FindWindow('Notepad', nil);
Handle:=GetTopWindow(Handle); ' musis zjistit handle ovladaciho
prvku, ktery je na popredi
PostMessage(Handle, wm_char, 65, 0); ' odesle A
Hodne uspechu preje Pavel
Zaslani zpravy WM_KEYPRESS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.3.1998 19:23:58
Ivo Liska wrote:
>
> Zdravim vsechny Bratry v Delphi,
>
> netusite nahodou nekdo jak spachat nasledujici vec?
>
> Potrebuji aby moje aplikace PSALA znaky do JINE aplikace, tzn. napr. po odeslani zprav WM_KEYPRESS s parametrem VkKeyScan('q)' tak, aby se v notepadu objevilo napsane pismo 'q'. Umim najit handle aplikace s niz chci komunikovat, prenest ji do popredi. Pak zkousim nastavit SetFocus(handle_adresata_zpravy) a zaslat WM_KEYPRESS. Nic se vsak nedeje.
Ahoj,
Obavam se, ze zadna zprava WM_KEYPRESS neexistuje. Pokud by slo o dve tebou
vytvorene aplikace pak bych doporucil DDE. Jinak v pripade Notepadu se to da
udelat takhle:
function WriteCharToNotepad(C: Char; const AWindowName: String): Boolean;
var
EditControlHandle: HWND;
WName: PChar;
begin
Result := False;
if AWindowName = '' then WName := nil else WName := PChar(AWindowName);
EditControlHandle := FindWindowEx(FindWindow('Notepad', WName), 0, 'Edit', nil);
if EditControlHandle <> 0 then
begin
SendMessage(EditControlHandle, WM_CHAR, Integer(C), 0);
Result := True;
end;
end; Petr Vones, amatersky programator
POMOZTE
[*] Tu�ek Roman <tucekr(zv)p15.monet(tec)cz> - 4.3.1998 20:38:18
Delphi funguje OK ale jen do chvile kdyz jsem chtel instalovat komponenty RX 2.40
napsalo mi to toto
---
The following changes are necessary to make this package
compatible with other installed packages
Choose OK to apply these changes and rebuild the package
Add VCLX30.
VCLX30 contains implicit unit(s) FileCtrl.
Add VCLDB30.
VCLDB30 contains implicit unit(s) DbConsts, BdeConst, Db, DBTables,
DBPWDlg, DBLogDlg, DBCommon, Bde, SMIntf, DBGrids, DBCtrls.
Add VCLSMP30.
VCLSMP30 contains implicit unit(s) Gauges.
Add Dclrxctl.
Dclrxctl contains implicit unit(s) RXLConst.
Add RXCTL.
RXCTL contains implicit unit(s) VCLUtils, MaxMin, RXConst, RXCConst,
FileUtil, DateUtil, StrUtils, RxPrgrss, AppUtils, Placemnt, RXProps,
RxHook, PickDate, RXCtrls, RxTimer, ToolEdit, RxCalc, CurrEdit.
---
Kdyz jsem tuknul na OK tak to cele zamrzne a zamrzne i system a musim
pouzit RESET.
Tu�ek Roman
tucekr(zv)p15.monet(tec)cz
B-Tree Filer
[*] Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 4.3.1998 20:49:42
Nemate nekdo zkusenosti s B-Tree Filerem od TURBO POWER?
Pouzivam verzi 5.51 v Delphi2. Uz s nim pracuji delsi dobu a zatim
vse fungovalo. Ted ale po nainstalovani programu do prostredi Win NT 4.0
mi v nahodnych intervalech vraci procedura BTOpenFileBlock chybu
10140 - Access not posible nebo chybu 10355 - A lock prevents the
operation. Uz si s tim nevim rady.
JiDa
Diare CASIO SF-xxxx
[*] Klokan - Petr P�idal <klokan-pp(zv)usa(tec)net> - 04.3.1998 21:30:34
Dobry den ve spolek.
Videli jste nekdo nejakou komponentu na komunikaci s diari Casio?
Vlastnim digitalni diar CASIO SF-8900 (256kB) a Interface pro komunikaci
FA-100 s DOSovym programem.
Velice rad bych do sveho databazoveho programu v Delphi pridal i funkci
na posilani dat do diare. Doposud jsem to delal tak, ze jsem vygeneroval
vstupni soubor pro DOSovy komunikacni program a ten vlastni komunikaci
obstaral sam. :-(
Dival jsem se na Intenetu, a zjistil jsem ze zadnou oficialni
dokumentaci CASIO neposkytuje a ani poskytovat nebude...a neoficialni
jsem nenasel. Idealni by bylo nejake DLL...
Programu pro komunikaci pro W95 jsem videl hodne, ale za vetsinu chteli
platit a nebyl jsem si jist, jestli me budou fungovat... Mate nekdo s
nejakymi zkusenosti?
Navic se situace komplikuje tim, ze Casio nyni vyrabi diare novejsi
rady, ke kterym prodava novy Interface se softwarem pro Windows (nemate
ho nekdo? - Jsou tam ty potrebne DLL?)
Predem dekuji za jakoukoli radu
Klokan
--
----------------------------------<<<<<<<<-
KLOKAN - Petr Pridal
mail: klokan-pp(zv)usa.net
www: jakub.naf(tec)cz/~klokan
Pouziti PLUGINu
[*] Jiri Pazdernik <georges(zv)ova.pvtnet(tec)cz> - 4.3.1998 23:28:46
>> Ja jsem to resil tak, ze do DLL jsem daval pouze parametry objektu
>> a prislusne metody a jejich vytvareni resil pak samotny program.
>> Tak jsem dosahl minimalni delky DLL (vestinou pod 50K).
>Jestli tomu dobre rozumim, tak si v DLL nemel okno, ale jen metody
>pro obsluhu (kresleni a tak) okna, ktere dostane jako parametr. To se
>pak ale velmi nesnadno programuji v tom okne pouzivaji komponenty a
>pod.
Nee, jinak. V DLL jsem mel pouze PARAMETRY pro okno a jeho komponenty
a jednotlive metody komponent. Tedy neco takoveho (zjednodusene):
DLL...
{nejake typy komponent}
TCompType = (ctButton, ctLabel, ctEdit ...)
{zaznam pro jednotlive komponenty}
TComp = record
Type: TCompType;
Name: String;
Left, Top: Integer;
{nazev metod}
OnClick, OnDblClick: String;
end;
{zaznam pro formular}
TFrm = class
public
Caption: String;
CompCount: Integer;
Components: ^TComp; {seznam komponent}
{metody pro pridavani a vyber komponent do seznamu. Tady muzes pouzit
TList misto seznamu
vyse, ale to znamena pouziti unity Classes a tedy i narust delky. Ja
jsem si tyto metody vytvoril svoje.
Neni to tezke a je to kratky kod}
procedure Add(AComp: TComp);
function Get(Index: Integer): TComp;
end;
var
Form: TFrm;
procedure ButtonOKOnClick(Sender: TObject); {nejaka metoda pro tlacitko}
begin
ShowMessage('Zmack jsem tlacitko');
end;
procedure InitPlugin;
var
Comp: TComp;
begin
{vytvoreni zaznamu formulare}
Form := TFrm.Create;
{vytvoreni zaznamu komponenty}
with Comp do
begin
Type := ctButton;
Name := 'OK';
Left := 10;
Top := 10;
OnClick := ButtonOKOnClick;
end;
{pridani komponenty do seznamu}
Form.Add(Comp);
... atd. pridas si komponent, kolik chces
end;
function GetForm: TFrm;
begin
{vrati adresu zaznamu formulare}
Result := Form;
end;
procedure DonePlugin;
begin
{zrusi zaznam o formulari}
Form.Destroy;
end;
No a potom v programu si nahrajes DLL do pameti, vytahnes popis formulare,
zjistis jednotlive komponenty a jejich metody a vse vytvoris. Napriklad
var
PluginForm: TForm;
procedure CreateForm;
var
DLLHandle: THandle;
DLLForm: TFrm;
Get: function: TFrm;
MyComp: TComp;
MyButton: TButton;
MyMethod: procedure(Sender: TObject);
begin
{vytvoreni formulare}
PluginForm := TForm.Create(Application);
{nahrani knihovny}
DLLHandle := LoadLibrary('NazevDLL');
{zjistis si adresu funkce GetForm}
Get := GetProcAddress(DLLHandle, 'GetForm');
{funkce ti vrati zaznam formulare}
DLLForm := Get;
{vytahnes si zaznam komponenty}
MyComp := DLLForm.Get(Cislo_komponenty);
case MyComp.Type of
{Jestlize je komponenta Tlacitko}
ctButton: begin
{vytvoris si tlacitko a predas mu parametry}
MyButton :=TButton.Create(PluginForm};
with MyButton do
begin
Left := MyComp.Left; ... atd
{jestlize je nejaka metoda, pridas ji k tlacitku}
if OnClick <> '' then
begin
MyMethod := GetProcAddress(DLLHandle, OnClick);
MyButton.OnClick := MyMethod;
end;
{no a pridas tlacitko do formulare}
PluginForm.AddComponent(MyButton);
end;
end;
PluginForm.Show;
end;
Ja jsem si vytvoril neco jako jednoduchy jazyk a jeho interpreter a ten muzu
pouzit v kteremkoliv
programu.
Jiri Pazdernik
POMOZTE
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 5.3.1998 07:14:18
Je potreba postupovat _presne_ podle navodu v souboru README.TXT, jinak jsou
problemy.
S pozdravem
Radek Docekal
ICQ: 9008367
>Delphi funguje OK ale jen do chvile kdyz jsem chtel instalovat komponenty
RX 2.40
>napsalo mi to toto
>
>---
>The following changes are necessary to make this package
>compatible with other installed packages
>
>Choose OK to apply these changes and rebuild the package
>
>
>Add VCLX30.
>VCLX30 contains implicit unit(s) FileCtrl.
>
>Add VCLDB30.
>VCLDB30 contains implicit unit(s) DbConsts, BdeConst, Db, DBTables,
>DBPWDlg, DBLogDlg, DBCommon, Bde, SMIntf, DBGrids, DBCtrls.
>
>Add VCLSMP30.
>VCLSMP30 contains implicit unit(s) Gauges.
>
>Add Dclrxctl.
>Dclrxctl contains implicit unit(s) RXLConst.
>
>Add RXCTL.
>RXCTL contains implicit unit(s) VCLUtils, MaxMin, RXConst, RXCConst,
>FileUtil, DateUtil, StrUtils, RxPrgrss, AppUtils, Placemnt, RXProps,
>RxHook, PickDate, RXCtrls, RxTimer, ToolEdit, RxCalc, CurrEdit.
>---
>
>Kdyz jsem tuknul na OK tak to cele zamrzne a zamrzne i system a musim
>pouzit RESET.
>
> Tu�ek Roman
> tucekr(zv)p15.monet(tec)cz
Automatic reply
[*] Pata <presl(zv)ujep(tec)cz> - 5.3.1998 09:45:45
Posli to jeste apon 50x at je
na co se divat ......
cau Pata
-----Original Message-----
From: armysr(zv)vadium.sk <armysr(zv)vadium.sk>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 2. b�ezna 1998 9:44
Subject: Automatic reply
>Diky, ze ste mi napisali ... ozvem sa Vam v kratkom case ...
>A inac ak by ste vedeli o nejakej praci, ozvite sa mi .. Budem Vam povdacny
! Robim v Pascale a v kratkej dobe to bude Delphi, robim siete a vselijake
insie veci.
>Viem , odkedy Kelti vymysleli peniaze .. :)
>
>Dano.DBGrid a mrizka
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.3.1998 09:53:08
RADIK(zv)p15.monet(tec)cz wrote:
> Nevite nekdo jak zmenit barvu mrizky (pripadne i sirku linky) u
> DBGridu? Borlandu se to asi zdalo zbytecne....
Tam jsou barvy natvrdo, pouze tuto tridu prepsat... :-(
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56
Krystofova 1016, 149 00 Praha 4
CZ
RxLib a Delphi 3
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 5.3.1998 09:53:42
Stahnul jsem si a nainstaloval RxLib 2.40.
Podle navodu jsem si nainstaloval packages a
pekne si to uzival.
Pri opetovnem spusteni jsem se ovsem dockal teto hlasky:
Can`t load package C:\Delphi3\RX\Units\Dclrxctl.dpl.
Nelze nal�zt jeden z knihovn�ch soubor� pot�ebn�ch pro spu�t�n� t�to
aplikace.
Do you want to attempt to load this package the next time a project is
loaded?
Yes No
Tak zase ty packages odinstaluji a nainstaluji znova a ony zase fungujou.
Vsechny cesty jsou nastavene vporadku. A tak to jde porad dokola. Delphi
hlasi tuto hlasku a ja ty packages odinstaluju a nainstaluju znova a vsechno
zas jede dal do ukonceni Delphi.
Jo, a navic D obcas nekdy pekne ztuhnou vcetne Win95 (ty ovsem tuhnou
samy o sobe asi diky IE 4.0 a Active Desktop).
Mate-li nekdo podobnou zkusenost a poradil jste si s ni, budu vas
blahorecit.
Dik
Martin Nedopil
Problemy s NOVELEM
[*] Petr Studeny <studeny(zv)olympo(tec)cz> - 5.3.1998 10:20:55
Zdravim vsechny
Trapim se s timto problemem: Vytvorena aplikace pouziva BDE pro
pristup k datum typu Paradox. Pokud mam data sdilena na siti
Peer2Peer vse funguje bezvadne, pokud jsou ulozena na siti Novel
zacinaji problemy s pristupem (NOVEL mi to zamkne pri prvnim pristupu
uplne dokonale) a jiz se k nim jina (i stejna) aplikace nedostane. N
a Peeru to je vporadku.
Dovede nekdo poradit, je to zalezitost nastaveni NOVELu nebo moje
chyba v reseni programu.
Predem diky
Problemy s NOVELEM
[*] BLACKY(zv)FENIX.ZCU.CZ - 5.3.1998 10:26:17 est
> Trapim se s timto problemem: Vytvorena aplikace pouziva BDE pro
> pristup k datum typu Paradox. Pokud mam data sdilena na siti
> Peer2Peer vse funguje bezvadne, pokud jsou ulozena na siti Novel
> zacinaji problemy s pristupem (NOVEL mi to zamkne pri prvnim pristupu
> uplne dokonale) a jiz se k nim jina (i stejna) aplikace nedostane. N
> a Peeru to je vporadku.
>
> Dovede nekdo poradit, je to zalezitost nastaveni NOVELu nebo moje
> chyba v reseni programu.
Zkus nastavit u souboru atribut SHAREABLE
(ve FILERu)Literatura ASM (fwd)
[*] Liane BBS <bbs(zv)edulib(tec)cz> - 5.3.1998 10:38:22
*** Forwarded file follows ***
Posted By: Neuromancer (... Oooohhhmmmm ...) on 'CZprogram'
Title: Re: Literatura ASM
Date: Wed Mar 4 20:43:06 1998
> Na muj predchozi dotaz sem dostal bago odpovedi (diky vsem co se
> angazovali), ale vsechno bylo v ASM a tak sem se chtel zeptat na
> nakou literaturu vo ASM pro zacatecnika.
> tWisT
Cau,
zkus treba BHSovu (alias Tyfovu) stranku:
http://www1.osu(tec)cz/home/xHaluza/Index.htm
---------------------------------------------\----------------------------\
We're not alone, there's someone else, too, | Neuromancer |
from the mirror's other side \----------------------------/
reflecting the cruel part of your soul
it's time for your choice.... Blind Guardian
RxLib
[*] FULE Lubomir <FULE(zv)RASAX.SK> - 5.3.1998 11:37:33
Vela sa tu rozprava o RxLib. Mohol by ma niekto poinformovat, o aku
kniznicu sa vlastne jedna a odkial sa da stiahnut?
S pozdravom
Lubomir Fule
RxLib a Delphi 3
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 05.3.1998 11:53:21
Asi si nedodrzel uvedeny postup instalace ZCELA presne.
Zkus to znova :-) taky sem to napoprve tudle hlasku mel :-)))
Martin
Martin Nedopil wrote:
>
> Stahnul jsem si a nainstaloval RxLib 2.40.
> Podle navodu jsem si nainstaloval packages a
> pekne si to uzival.
> Pri opetovnem spusteni jsem se ovsem dockal teto hlasky:
>
> Can`t load package C:\Delphi3\RX\Units\Dclrxctl.dpl.
> Nelze nal�zt jeden z knihovn�ch soubor� pot�ebn�ch pro spu�t�n� t�to
> aplikace.
> Do you want to attempt to load this package the next time a project is
> loaded?
> Yes No
>
> Tak zase ty packages odinstaluji a nainstaluji znova a ony zase fungujou.
> Vsechny cesty jsou nastavene vporadku. A tak to jde porad dokola. Delphi
> hlasi tuto hlasku a ja ty packages odinstaluju a nainstaluju znova a vsechno
> zas jede dal do ukonceni Delphi.
> Jo, a navic D obcas nekdy pekne ztuhnou vcetne Win95 (ty ovsem tuhnou
> samy o sobe asi diky IE 4.0 a Active Desktop).
>
> Mate-li nekdo podobnou zkusenost a poradil jste si s ni, budu vas
> blahorecit.
>
> Dik
>
> Martin Nedopil
RxLib
[*] Martin Kubecka <martin.kubecka(zv)dytron(tec)cz> - 05.3.1998 12:03:10
http://rx.demo.ru/
FULE Lubomir wrote:
>
> Vela sa tu rozprava o RxLib. Mohol by ma niekto poinformovat, o aku
> kniznicu sa vlastne jedna a odkial sa da stiahnut?
>
> S pozdravom
> Lubomir Fule
problem s SQL
[*] Hynek Steinmetz <STEINMEH(zv)infnw.inf.upol(tec)cz> - 5.3.1998 12:09:07 met
From: "Hynek Steinmetz" <INF/STEINMEH>
To: steinmeh
Date sent: Thu, 5 Mar 1998 11:13:13 MET
Subject: problem s SQL
ahoj vsicni,
potreboval bych poradit s SQL ...
Mam dve tabulky.
1. tabulka A - id_A primary key
text
2. tabulka B - id_B
id_A
stav
V tabulce B muze byt 0 .. N zaznamu se stejnym attributem id_A.
Rozdil v nich je pouze v attributu STAV.
Kdyz zadam tento dotaz
SELECT id_A, stav FROM A,B
WHERE A.id_A = B.id_A (+);
dostanu tyto vysledky
A.id_A stav
1 1
1 2
2
3
4 1
4 2
A ted problem ...
ja potrebuji vypsat to same, ale pouze pro STAV = 1;
A.id_A stav
1 1
2
3
4 1
a to mi proste nejde ...
Byl bych velmi vdecen za pomoc
predem dekuji
Hynek Steinmetz, KMI, MI93
steinmeh(zv)alpha.upol(tec)cz
Hynek.Steinmetz(zv)post(tec)cz
Hynek Steinmetz, KMI, MI93
steinmeh(zv)alpha.upol(tec)cz
Hynek.Steinmetz(zv)post(tec)cz
Vyreseno: RxLib a Delphi 3
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 5.3.1998 12:13:11
Postup jsem dodrzel Z C E L A presne. A pro jistotu cele
nekolikrat. Pak to tam bylo C E L E znova. Nedelej ze mne
takoveho troubu.
Jenze mezitim jsem si s tim hral a prisel jsem metodou
pokus-omyl-omyl-omyl na reseni.
(mimo jine jsem umazal neco v RegEditu, preinstaloval D3 i RxLib 2.40)
Myslim si ze staci z DCLRXCTL.DPK vyhodit
contains
RxCtlReg;
Coz znamena ze DclRxCtl.Dpk obsahuje RxCtlReg.dpk !
Pokud ovsem obsahuje RxCtlReg.pas je vsechno ok.
P.S. RxLib je soubor velmi sikovnych komponent velmi
sikovnych autoru. K stazeni na: http://rx.demo.ru/
Martin Nedopil
nedopil(zv)eskon(tec)cz
nedopil(zv)geocities.com
jsem doma na: http://www.geocities.com/Athens/Olympus/5260