Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prubeh zpracovani dotazu
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 10.7.1998 08:01:35
Zkus se zamerit na BDE fci DbiRegisterCallback.
Je to ale cesta dlouha a pokud vim, tak vysledkem neni
kolik % je hotovo ale jen nicnerikajici ciselny udaj o poctu
zpracovanych vet.
Martin
Triurovnova architektura
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 10.7.1998 08:02:55
Typicky priklad je :
Client <---> Aplikacni server <---> Databazovy server
Aplikacni server ma v sobe celou vykonou cast, Databazovy zase ukladani
dat a klient je jen 'maly' programek na nahlizeni a porizovani dat,
zadne velke algortimy.
Jednou vyhodou je, ze pokud je dobre napsan Aplikacni server, tak
klientu muze byt nekolik v ruznych nastrojich. Treba klient pro WEB.
Aplikacni server byva napsan jako OLE automation server, tudiz k nemu
muzes pristupovat odkudkoliv.
To je jen takovy hruby popis. Doufam ze jsem se nikde moc nesekl a ze me
tady hned neukamenujete. Teprve se snazim si osvojit praci s OLE COM /
DCOM
Petr Linhart, System developer (Petr.Linhart(zv)mius(tec)cz)
Mius a.s.
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Boris Pe�ka [SMTP:baris(zv)post(tec)cz]
> Odesl�no: 9. �ervence 1998 19:56
> Komu: DELPHI konference
> P�edm�t: Triurovnova architektura
>
> Zdravim !
>
>
> Muzete me nekdo objasnit co je to "triurovnova architektura" a
> na co je to dobry ?
>
>
> Diky moc.
>
> Boris
LZExpand ???
[*] svatos(zv)af(tec)czu(tec)cz - 10.7.1998 09:01:23 met
> Potrebujem pomocou Delphi nejako interne komprimovat subory na format MS Compressu (subor.ex_) bez toho, aby som pouzival externe utility, na dekompresiu funguje kniznica lzexpand.dcu. Ak ma nikto sk>
> Pavel Koutny, koutny(zv)tkcmt.sk
Ahoj,
Uz je to velmi davno, ale nekde v helpu jsem narazil na API prtimo
na kompresi do tohoto formatu ...
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Systemove prostredky
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 10.7.1998 09:14:43
Cago bratre,
v Project\Options\Forms musis nastavit ty formulare, aby se nevytvareli
automaticky.
Vytvarej (a rus) si je za behu sam, a jenom ty co zrovna potrebujes.
Podobny princip pouzij i na TTable, a TQuery.
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Stanislav Cerny wrote:
> Ahojmam tento problem:vytvoril jsem programek v D3 pouzivajici
> databaze Paradox 7(mam jich tam 24), kompilovany program ma velikost
> 1,8 MB a obsahuje asi 40 formularu. Problem je v tom ze pri spusteni
> aplikace klesnou systemove prostredky ve windows 95 o vice jak 50% coz
> jsem nedocilil ani spustenim nekolika komercnich programu najednou
> (Corel, Excel, Word ...).Nevite nekdo jakou delam chybu a jak to
> napravit? Mam strach, ze to na slabsim PC nebude chodit. Diky. Standa
> Cerny
> s.cerny(zv)mod(tec)cz
> tel. 048/510 04 20
> 048/510 49 85
Problem s tiskem grafiky
[*] V�t�zslav Gazda������u��n�?��? - 10.7.1998 09:16:51
Tak mne napadla jedna vec. Mozna ze to je ono, mozna, ze ne. Pokud ty
obdelniky kreslis pres tu grafiku az po vykresleni grafiky a nastavis tam
nejakou tu barvu jak pises, tak to tu grafiku mozna prekresli.
Vita
-----P�vodn� zpr�va-----
Od: Richard Strunc <rick.strunc(zv)email(tec)cz>
Komu: P��sp�vky k delphi <delphi(zv)pinknet(tec)cz>
Datum: 9. �ervence 1998 17:34
P�edm�t: Problem s tiskem grafiky
>Predem bych chtel podekovat za prispevky k memu predeslemu dotazu (Prace s
>canvasem) a omluvit se, ze jsem omylem napsal Scrollbar misto Scrollbox.
>Problem jsem jiz vyresil.
>
>Nyni mam ale jiny problem. Ja si totiz vykreslim na Canvas Paintboxu takove
>prukazky, ktere se budou pozdeji vyplnovat rucne. Uzivatel si muze vybrat,
>jestli je chce vytisknout a kdyz ano, tak se to same vykresli na Canvas
>tiskarny. Sklada se to z ruznych obdelniku, kde kazdy nema stejnou barvu.
Je
>to potisteno pismem Times New Roman CE a ruzne popisky maji ruznou
velikost.
>Obsahuje to i logo (obrazek).
>Jde mi o to, ze kdyz to vykreslim do Paintboxu, je vse vporadku, ale kdyz
to
>vykreslim na Paintbox tiskarny a nasledne vytisknu, logo zahadne zmizi. Uz
>se s timto problemem potykam delsi dobu a musim rict, ze jsem jiz v tomto
>smeru bezradny.
>Kdyz vynecham zmenu velikosti fontu a zmenu barev u jednotlivych obdelniku,
>logo se vytiskne.
>
>Kdyby nekdo z vas vedel, jak to vyresit, prosim nevahejte a napiste.
>
>dekuji
>
>Ricky...
>
> rick.strunc(zv)writeme.com
> rick.strunc(zv)email(tec)cz
> ICQ: 13408022
>
>
>Triurovnova architektura
[*] Marcello Dvoracci <dvo20um(zv)axpsu.fpf.slu(tec)cz> - 10.7.1998 09:18:27
>
> Muzete me nekdo objasnit co je to "triurovnova architektura" a
> na co je to dobry ?
Cely ten zazrak je o rozdeleni chodu aplikace na tri navzajem odelene
procesy, ktere spolu spolupracuji, jedna se o:
- klient, coz je aplikace bezici na pocitaci koncoveho uzivatele, tato
aplikace ma za ukol prezentovat data, ktera obdrzel od aplikacniho servru,
v idealnim pripade je to jen pitomy zobrazovac napr. netscape, pokud mas
prostredi pro podporu 3ur architektury implementovane v Internetovskem
prostredi, toto ma napriklad Progress v jejich prostredi WebSpeed.
- aplikacni server obsahuje vlastni algorimy chodu aplikace, hleda,
pocita, tridi, pricemz data ziskava dotazem na datovy server, a tyto data
bud tak jak jsou nebo prechroustane preda klientovi, ktery se stara o
jejich prezentaci userovi, nepochybne zajimava je moznost ze AS preda
klientovi data naformatovane pomoci HTML a tety zobrazitelne treba
netscapem, viz pasaz o klientovi
- datovy server, je normalni databazovy stroj, ktery reaguje na pozadavky
aplikacniho serveru a fyzicky saha do DB
vyhoda 3ur architektury je zrejma: rozlozeni zatizeni na vice pocitacu,
jeden se specializuje na chod aplikaci, druhy proliza databaze a navic je
strasna prdel ze aplikacni server muze brat data z vice datovych serveru
po celem podniku, coz podporuje vsemi programatory oblibene distribuovane
databaze, ktere se musi porad replikovat :-)
tolik nekolik slov o tom co nas vsechny ceka a nemine :-) Marcello
Windows ID
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 10.7.1998 09:31:02
Zdravim delfiny,
nevite, jestli existuje ve Windows 95/NT nejake cislo, ktere
by bylo unikatni pro kazdou instalaci?
V kladnem pripade jak ho ziskat?
Dik
+----------------------------------+
| Ing. Martin Dupal |
| address: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: +420/68/5313130 |
| fax.: +420/68/5313132 |
| http://www.vision(tec)cz |
| mailto:mdupal(zv)vision(tec)cz |
+----------------------------------+Aktivni label
[*] RADIK(zv)p15.monet(tec)cz - 10.7.1998 09:44:00
Nemate nekdo komponentu, ktera by se chovala jako aktivni label
a pri prejeti mysi zmenila typ fontu?
Ales
Spojenie s aplikacnym serverom
[*] Kovac Jan <kovac(zv)pvt.sk> - 10.7.1998 10:12:15
Nemozem sa dopatrat ako presne sa spaja klient s aplikacnym serverom
pri viacvrstvovej strukture aplikacie. Jedina informacia je ta, ze
server
sa zaregistruje ako OLE automation object pri prvom spusteni.
Problem vsak je, ze to funguje iba ak su klient aj server na jednej
masine.
Medzi roznymi masinami sa klient so serverom nedokaze spojit.
Spojenie s aplikacnym serverom
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 10.7.1998 10:51:39
Na klientskym pocitaci musis mit v registrech zanesenou informaci , kde
se aplikacni server nachazi. Nenasel jsem jeste presne spravny zpusob,
ale jeden fungujici je takovyhle :
1. spustis na klientovi app. server (ten se zaregistruje), pak ho muzes
klidne smazat.
2. pomoci dcomcnfg.exe (je ve W95 OSR2, a WNT, nebo ke stazeni u
Microsoft) nastavis pro tvuj app server na kterym pocitaci ma bezet
3. a musis na stanici s app serverem nastavit prava, kdo ho muze
pouzivat - opet pomoci DCOMCNFG
Chce to si s tim trochu hrat, ale slape to. Dokonce me fungovalo
spousteni DCOMu i na
W95 - > W95
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Kovac Jan [SMTP:kovac(zv)pvt.sk]
> Odesl�no: 10. �ervence 1998 10:12
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Spojenie s aplikacnym serverom
>
> Nemozem sa dopatrat ako presne sa spaja klient s aplikacnym serverom
> pri viacvrstvovej strukture aplikacie. Jedina informacia je ta, ze
> server
> sa zaregistruje ako OLE automation object pri prvom spusteni.
> Problem vsak je, ze to funguje iba ak su klient aj server na jednej
> masine.
> Medzi roznymi masinami sa klient so serverom nedokaze spojit.
>
> LZExpand ???
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 10.7.1998 11:15:25
> -----Original Message-----
> From: Pavel Koutny [SMTP:koutny(zv)tkcmt.sk]
> Sent: Thursday, July 09, 1998 8:27 PM
> Subject: LZExpand ???
>
> Potrebujem pomocou Delphi nejako interne komprimovat subory na format MS
> Compressu (subor.ex_) bez toho, aby som pouzival externe utility, na
> dekompresiu funguje kniznica lzexpand.dcu. Ak ma nikto skusenosti, ako
> komprimovat, nech mi prosim pomoze. Diki moc.
>
> Pavel Koutny, koutny(zv)tkcmt.sk
Kdysi jsem si s tim hral (v D1) a vypadalo to asi nasledovne:
(Je to jenom prikladek, je treba si s tim pohrat)
Zdenek
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, LZExpand;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Edit1: TEdit;
Button1: TButton;
BitBtn1: TBitBtn;
Button2: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
IF OpenDialog1.Execute THEN
BEGIN
Edit1.Text:=OpenDialog1.FileName;
Edit2.Text:=OpenDialog1.FileName;
END;
end;
procedure TForm1.Button2Click(Sender: TObject);
{type
TOFStruct = record
cBytes: Byte;
fFixedDisk: Byte;
nErrCode: Word;
reserved: array[0..3] of Byte;
szPathName: array[0..127] of Char;
end;
}
var
Source, Dest: Integer ;
FileName: PChar;
ReOpenBuf: TOFStruct;
Style: Word;
sName: string;
begin
Label1.Caption :=DateTimeToStr(Now);
sName :=Edit1.Text+#0;
FileName := (zv)sName[1];
Style:=OF_READ;
Source:= LZOpenFile(FileName,ReOpenBuf,Style);
sName :=Edit2.Text+#0;
FileName := (zv)sName[1];
Style:=OF_CREATE;
Dest:= LZOpenFile(FileName,ReOpenBuf,Style);
IF LZStart>0 THEN
BEGIN
Screen.Cursor :=crHourGlass;
CopyLZFile(Source, Dest);
LZDone;
Screen.Cursor :=crDefault;
END
ELSE
ShowMessage('Nelze alokovat pamet');
LZClose(Source);
LZClose(Dest);
Label2.Caption :=DateTimeToStr(Now);
end;
end.Triurovnova architektura
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.7.1998 11:18:24
> Muzete me nekdo objasnit co je to "triurovnova architektura" a
> na co je to dobry ?
Velmi strucne - triurovnova architektura znamena rozlozeni jenotlivych
cinnosti do trech urovni. Obecne viceurovnova architektura proste do
vice urovni. Tim je mysleno to, ze bezi nekolik aplikaci (muze byt
mysleno treba pocitacu) a kazda se stara o neco jineho. V pripade
triurovnove architektury to znamena, ze prvni uroven je SQL server,
ten se stara jen o svou databazi nebo databaze. Druhou urovni je
nejake aplikacni rozhrani, ktere prijima vstupy, data zpracovava
a poskytuje vystupy. No a treti uroven je uzivatelske rozhrani,
ktere komunikuje s uzivatelem.
V praxi to znamena, ze nekde bezi jeden nebo nekolik SQL serveru,
aplikacni server pristupuje na ten jeden nebo nekolik SQL serveru
treba po celem svete a zpracovava dat, no a pak je poskytuje
uzivatelskemu rozhrani, ktere bezi na klientovi. A to prave muze
byt nejaka velmi tenka aplikace nebo treba obycejny browser.
Cili je to cele nezavisle na prostredi klienta, protoze muzes
pristupovat na takovouto aplikaci z Windows zrovna jako
z Macintoshe nebo jinych OS, pro ktere jsou browsery. Nemusi se
delat 5 verzi podle OS, ale udela se jeden program na aplikacnim
serveru, ktery jede treba na NT a pak se s uzivatelem komunikuje
treba pomoci HTML ci DCOM apod.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Refresh Interbase
[*] Vladimir Vanicek 7-327.3 <V.Vanicek(zv)sh.cvut(tec)cz> - 10.7.1998 11:46:26
> Mam takyto problem:
> mam tabulku Interbase ku ktorej ma pristup viacej klientov, pricom kazdy ju t
> rvalo prehliada a ma moznost modifikovat. Ako zabezpecit, aby po kazdej zmene
> sa vsetkym ostatnym urobil refresh?
Ahoj,
na to lze pouzit objekt TIBEventAlerter (pouziti viz demo).
Zhruba: Do triggeru das POST_EVENT "zmena", pres objekt TIBA.. si
zaregistrujes ten event "zmena" a uz naslouchas. Kdykoliv se spusti
trigger, vypadne ti udalost objektu OnEventAlert, kterou musis rychle
obslouzit.
Na lokale to funguje krasne, po TCP/IP snad taky dobre, ale po NetBEUI
jsem mel nejaky problemy s rusenim objektu TIBEventAlerter, zpusobene
odpojovanim od databaze.
Zdar,
Vlada.
___________________________________________________________________
! Vlada Vanicek | e-mail: V.Vanicek(zv)sh.cvut(tec)cz !
! Strahov 7/327 | (xVanicek(zv)kii.fsv.cvut(tec)cz) !
! PCname: lars.sh.cvut(tec)cz | WWW: http://kix.fsv.cvut(tec)cz/~xvanicek !
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Prevod Arabskych na Rimske
[*] MotlicekP(zv)TESCOSW.CZ - 10.7.1998 11:50:21
Mozna se tento problem sem nehodi..........
Hraju si trosku s prevodem arabskych cislic na rimske. Nektere
"extremni" cisla mi ale nejsou jasna:
(podtrzena jsou pro mne spravna)
899 : co je spravne CIM nebo ICM nebo DCCCIC ?
^^^^^^^^^^
nebo jine podobne
949 : CMIL nebo DCDIL nebo DCCCCIL ?
^^^^^
a jsou ruzna jim podobna.
Diky za komentare.
Motlicek Petr
Windows ID
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.1998 11:55:38
Martin Dupal wrote:
>
> Zdravim delfiny,
>
> nevite, jestli existuje ve Windows 95/NT nejake cislo, ktere
> by bylo unikatni pro kazdou instalaci?
> V kladnem pripade jak ho ziskat?
>
Ahoj,
Slo by pouzit treba seriove cislo hardisku:
function WinDriveSerialNumber: DWORD;
var
X: DWORD;
D: array[0..MAX_PATH] of Char;
begin
GetWindowsDirectory(D, MAX_PATH);
if not GetVolumeInformation(StrLCopy(D, D, 3), nil, 0, (zv)Result, X, X, nil, 0) then
Result := 0;
end;
Pak me jeste napada Product-Id samotnych Windows, ale tam asi (hlavne v CR :-)
moc velka jedinecnost nebude.....
Pro Win95: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId
Petr Vones, amatersky programator
Blob not found
[*] Leopold Grepl <Grepl(zv)melzer(tec)cz> - 10.7.1998 13:17:25
Ahoj ve spolek,
predem se omlouvam, ze tento problem pisi jiz po druh�, ale napoprve mi neprisla zadna odpoved a problem me porad velmi trapi.
Pri vkladani ci zmene zaznamu v gridu se mi objevi nahodne ( nekdy po vlozeni 3, jindy 20 zaznamu hlaska 'blob not found' ). Grid mam napojeny na query s nekolika update objekty. Zjistil jsem, ze tu hlasku pise pri ukladani do tabulky s peti bloby, ale vse se zda v poradku. Zkousel jsem to predelat i cele znova, ale nepomohlo to. Ani v helpech jsem o teto hlasce nic nenasel. Delam v Delphi 3 a Interbase 4.2.
Za kazdy naznak reseni predem dekuji.
Leopold Grepl
Melzer s. r. o.
LZExpand ??? (Jeste jednou)
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 10.7.1998 13:30:04
> -----Original Message-----
> From: Pavel Koutny [SMTP:koutny(zv)tkcmt.sk]
> Sent: Thursday, July 09, 1998 8:27 PM
> Subject: LZExpand ???
>
> Potrebujem pomocou Delphi nejako interne komprimovat subory na format MS
> Compressu (subor.ex_) bez toho, aby som pouzival externe utility, na
> dekompresiu funguje kniznica lzexpand.dcu. Ak ma nikto skusenosti, ako
> komprimovat, nech mi prosim pomoze. Diki moc.
>
> Pavel Koutny, koutny(zv)tkcmt.sk
Ten predchozi priklad byl na rozpakovani. O pakovani jenom toto:
(Vytazeno z MSDN)
To compress large applications or data files, you can run COMPRESS.EXE from
the Microsoft MS-DOS? command line. COMPRESS.EXE uses the Lempel-Ziv
compression algorithm.
Takze interne komprimovat zrejme nelze.
Zd.Zamok vety a transakcie Dbase
[*] Peter ROZIM <zves(zv)pollux.sk> - 10.7.1998 13:43:38
Spr�va vo form�te MIME rozdelen� na viac �ast�.
Ahojte
Viete mi niekto poradit ako sa da osetrit zamykanie viet DBF suboru v D2.
Popripade ci existuje nejaky soft na zamykanie viet,kontrolu zdielania a transakcie s DBF.
Dakujem Peter ROZIM
prozim(zv)pollux.sk
Prevod Arabskych na Rimske
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 10.7.1998 14:05:18
Hraju si trosku s prevodem arabskych cislic na rimske. Nektere
"extremni" cisla mi ale nejsou jasna:
(podtrzena jsou pro mne spravna)
vzhledem k urcitym nejasnostem uz pri tvorbe teto "normy" si myslim ze citelne je ledacos (viz treba archaicka ctverka), ale presto:
899 : co je spravne CIM nebo ICM nebo DCCCIC ?
^^^^^^^^^^
tady je to spise ^^^^^^^,protoze pokud bude
mezi sebou michat moc radu asi bude vas algoritmus hodne slozity
nebo jine podobne
949 : CMIL nebo DCDIL nebo DCCCCIL ?
^^^^^
ano tady bych souhlasil, obe odcitani pracuji ve stejnych radech (tedy takovych rimskych)
na zaver bych pripojil svoji rutinu, ale ten prevod i za des. carkou berte s
humorem
type
TRim=array[1..7] of Char;
TCRim=array[1..7] of Word;
TDRim=array[1..7] of Real;
const
{Rimske cislice}
KRim:TRim=('i','v','x','l','c','d','m');
CRim:TCRim=(1,5,10,50,100,500,1000);
DRim:TDRim=(0.1,0.5,0.01,0.05,0.001,0.005,0.0001);
function ShowRiman(Num:Real;Width,Decimals:Word):String;
var
S:String[50];
W:Longint;
WW,Index,Pom:Word;
R:Real;
function Rim(N,Index:Word;Large:Boolean):String;
var
i,v,x:Char;
begin
i:=KRim[Index];
v:=KRim[Index+1];
x:=KRim[Index+2];
if Large then
begin
I:=UpCase(i);
V:=UpCase(v);
X:=UpCase(x);
end;
case N of
0:Rim:='';
1:Rim:=i;
2:Rim:=i+i;
3:Rim:=i+i+i;
4:Rim:=i+v;
5:Rim:=v;
6:Rim:=v+i;
7:Rim:=v+i+i;
8:Rim:=v+i+i+i;
9:Rim:=i+x;
end;
end;
begin
W:=Trunc(Num);
R:=(Num-W);
S:='';
if Decimals>3 then
Decimals:=3;
if Decimals>0 then
WW:=Width-Decimals-1
else
WW:=Width;
if WW>3 then
WW:=3;
for Index:=1 to WW do
begin
Pom:=W mod 10;
W:=W div 10;
S:=Rim(Pom,Index*2-1,True)+S;
end;
if (Decimals>0) And (R<>0) then
begin
S:=S+'.';
for Index:=Decimals downto 1 do
begin
R:=R*10;
Pom:=Trunc(R);
R:=R-Pom;
S:=S+Rim(Pom,Index*2-1,False);
end;
end;
ShowRiman:=S;
end;
function FromRiman(Num:String):Real;
var
Out,Q:Real;
Des:Boolean;
I,J:Word;
Pom,PomJ:Char;
begin
Out:=0;
Des:=False;
while Num[0]>#0 do
begin
Pom:=DownCaseCS(Num[1]);
System.Delete(Num,1,1);
if Pom='.' then
begin
Des:=True;
Continue;
end;
for I:=1 to 7 do
if Pom=KRim[I] then
begin
if Des then
Q:=DRim[I]
else
Q:=CRim[I];
if Num[0]>#0 then
begin
PomJ:=DownCaseCS(Num[1]);
for J:=I+1 to 7 do
if PomJ=KRim[J] then
begin
Q:=-Q;
Break;
end;
end;
Out:=Out+Q;
Break;
end;
end;
FromRiman:=Out;
end;
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Systemove prostredky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.1998 14:13:53
Stepan Cerny wrote:
>
> Cago bratre,
>
> v Project\Options\Forms musis nastavit ty formulare, aby se nevytvareli
> automaticky.
> Vytvarej (a rus) si je za behu sam, a jenom ty co zrovna potrebujes.
> Podobny princip pouzij i na TTable, a TQuery.
Ahoj,
presne tak, akorat nekdy je trochu problem ze slozitejsi formulare se za
behu dlouho vytvareji a napr. jako reakce na volbu v menu to vypada divne.
V souvislosti s timto jsem zkusil pouzit demo aplikaci MastApp, pokud
ji prelozim v D2 tak po spusteni 10ti instanci mam 55% prostredku volnych,
ale verze z D3 uz pri 8me instanci hlasi OutOfResources, pravda v D2 jeste
v tom prikladu neni pouzit QuickReport, ale i tak je to trochu zvlastni
(pri 96M RAM). Dalsi rozdil je treba u FishFact, kde D3 verze zavadi navic
oproti D2 ODBC32.DLL a ODBCINT.DLL ... ?
Petr Vones, amatersky programator
Proporce
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 10.7.1998 14:15:25
Zkus http://rx.demo.ru, je tam komponenta primo na zapis pozice okna do INI
nebo do registru.
> -----P�vodn� zpr�va-----
> Od: Josef Madlik [SMTP:madlik(zv)jsp(tec)cz]
> Odesl�no: 9. �ervence 1998 7:32
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Proporce
>
> Dobry den vespolek
>
> Pred casem tu probehla diskuse nad, tim jak zachovat proporce
> formulare pri jeho zvetseni/zmenseni. Nekdo rikal, ze ma komponentu,
> kterou staci pridat na formular a ta to zaridi sama. Nejak mi to ale
> uniklo. Tak prosim jestli tuto komponentu nekdo ma, nebo o jakou
> jde , prip. kde ji sezenu.
>
> Diky
>
> --------------------------------------------------------------------------
> --------
> Ing. Josef Madlik
>
> JSP s.r.o. Nova Paka - Merici a regulacni technika
> Gebauerova 1161, 509 01 Nova Paka
> tel: 0434/ 621 253 fax: 0434/ 621 280
>
> e-mail: madlik(zv)jsp(tec)cz
> WWW: http://www.jsp(tec)cz
> Kde je my� ?
[*] Petr Hronek <trit(zv)cbnet(tec)cz> - 10.7.1998 14:52:35
Mo�n� V�m to bude p�ipadat trivi�ln�, ale:
Jak ve WIR95 ev NT5 zjistit na kter� port je p�ipojena my� ?
Pro� to chci v�d�t - d�v�m dohromady program pro ovl�d�n� ext. za��zen� a
r�d bych pou��val autodetekci.
D�ky za ka�dou radu
Petr Hronek
trit(zv)cbnet(tec)cz
Zamok vety a transakcie Dbase
[*] Lubo Fule <fule(zv)sct.sk> - 10.7.1998 15:08:10
Bohuzial, v DBF sa nic take neda. Ked potrebujes vyuzivat zamykanie viet a
transakcie, tak musis pouzit nejaky SQL server.
DBF tiez nedoporucam pouzivat v sietovej verzii. Je to pomale a dost
nespolahlive.
-----Original Message-----
From: Peter ROZIM [mailto:zves(zv)pollux.sk]
Sent: Friday, July 10, 1998 1:44 PM
To: Delphi FORUM
Subject: Zamok vety a transakcie Dbase
Ahojte
Viete mi niekto poradit ako sa da osetrit zamykanie viet DBF suboru v
D2.
Popripade ci existuje nejaky soft na zamykanie viet,kontrolu zdielania a
transakcie s DBF. Dakujem Peter ROZIM
prozim(zv)pollux.sk
Prevod Arabskych na Rimske
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 10.7.1998 15:13:29
Zdravim,
Podle me je spravne 1. DCCCIC a 2. CMIL. Nevim jestli si je mel podtrzeny
protoze podtrznei bylo uplne nekde jinde nez pod cisly ale podle priblizne
pozice to tak mas. Oduvodneni je jednoduchy: cislo musis rozkouskovat, ale
ne kombinovat vice (ted nevim jako to nazvat) to zmenseni cele casti o nizsi
rad. Ber to ale jenom jako muj nazor nemam to podlozeny nicim.
Michal Brabec.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
> -----Original Message-----
> From: MotlicekP(zv)TESCOSW.CZ [mailto:MotlicekP(zv)TESCOSW.CZ]
> Sent: Friday, July 10, 1998 11:50 AM
> To: delphi(zv)pinknet(tec)cz
> Subject: Prevod Arabskych na Rimske
>
>
> Mozna se tento problem sem nehodi..........
>
> Hraju si trosku s prevodem arabskych cislic na rimske. Nektere
> "extremni" cisla mi ale nejsou jasna:
> (podtrzena jsou pro mne spravna)
>
> 899 : co je spravne CIM nebo ICM nebo DCCCIC ?
> ^^^^^^^^^^
> nebo jine podobne
>
> 949 : CMIL nebo DCDIL nebo DCCCCIL ?
> ^^^^^
>
> a jsou ruzna jim podobna.
>
> Diky za komentare.
>
> Motlicek Petr
>Blob not found
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 10.7.1998 15:24:05
Ahoj,
potykal jsem se s necim podobnym - nejspis to souvisi s nastavenim
hodnoty BLOBS TO CACHE v prislusnem BDE aliasu. Nicmene rozumne reseni
jsem zatim nenasel - pouze zvysit hodnotu a tim zvysit interval v kterem
se hlaska objevi :-)))))
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Leopold Grepl
> Odesl�no: 10. �ervence 1998 13:17
> Komu: 'Delphi(zv)pinknet(tec)cz'
> P�edm�t: Blob not found
>
> Ahoj ve spolek,
>
> predem se omlouvam, ze tento problem pisi jiz po druh�, ale napoprve
> mi neprisla zadna odpoved a problem me porad velmi trapi.
>
> Pri vkladani ci zmene zaznamu v gridu se mi objevi nahodne ( nekdy
> po vlozeni 3, jindy 20 zaznamu hlaska 'blob not found' ). Grid mam
> napojeny na query s nekolika update objekty. Zjistil jsem, ze tu
> hlasku pise pri ukladani do tabulky s peti bloby, ale vse se zda v
> poradku. Zkousel jsem to predelat i cele znova, ale nepomohlo to.
> Ani v helpech jsem o teto hlasce nic nenasel. Delam v Delphi 3 a
> Interbase 4.2.
>
> Za kazdy naznak reseni predem dekuji.
> Leopo
> ld
Grepl
> Melze
> r s. r.
o.
> zmena database
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 10.7.1998 16:55:30
Ahoj,
potreboval bych poradit s nasledujicim problemem. Muj program
zpracovava databasi ve formatu MS Access. Database se obcas vymeni
(prileze po siti nova), a ja musim prejit na tu novou. Jenze k databazi
umim pristopit pouze pres alias a ODBC a alias neumim zmenit z programu.
Primo na soubor se mi to zatim nepovedlo (pri pokusu o otevreni chyba
Invalid Parametr). Poradite mi, prosim, nekdo, jednu ci druhou cestu ?
Dekuji Vaclav Sazima
P.S. V oblasti databasi jsem zacatecnik.Zobrazovani forms
[*] Jiri Kanda <kanda(zv)havit(tec)cz> - 10.7.1998 19:06:01
Jak zobrazit form, tak aby se zobrazil za prave otevrenym oknem? To znamena,
aby ho neprekrylo a aby nedoslo k neprijemnemu blikani (jako pri
OknoDole.Show; OknoNahore.Show;)
Jiri Kanda, e-mail: kanda(zv)havit(tec)cz, mobil: 0603/235900
HAVIT, s.r.o., http://www.havit(tec)cz
suradnice pre bunku v dbgrid alebo dbctrlgrid.
[*] Jiri Kanda <kanda(zv)havit(tec)cz> - 10.7.1998 19:06:07
>Nevie mi niekto poradit, ako mozem zistit(v akej premennej sa
>nachadazju) suradnice zvolenej bunky (alebo aspon riadku) v dbgrid alebo
>dbctrlgrid? V zavislosti od tej bunky potrebujem vytvorit dalsie
>funkcie.
Jde to pri pouziti TRxDBGrid z http://rx.demo.ru a sice nasledujicim
zpusobem:
var Coords: TPoint;
begin
Coords.X:=0;
for x:=Grid.Col-(Grid.VisibleColCount-1) to Grid.Col-1
do Coords.X:=Coords.X+Grid.Columns[x].Width;
Coords.Y:=(Grid.Row+1)*Grid.RowsHeight;
Coords:=Grid.ClientToScreen(Coords);
end;
Grid je tabulka (TRxDBGrid) a Coords udava souradnice leveho dolniho rohu
aktualni bunky.
Souradnice jsou v pixelech na monitoru, ne na formu! Ale stacilo by zrusit
posledni radek (ClientToScreen) a mas to v pixelech od leveho horniho rohu
Gridu.
A poznamka na zaver: Takto to pocitam, kdyz v tabulce neni mrizka
(dgColLines a dgRowLines). V opacnem pripade se to bude jeste trochu lisit,
ale to uz pro tebe nebude problem upravit. Doufam.
S pozdravem
Jiri Kanda, e-mail: kanda(zv)havit(tec)cz, mobil: 0603/235900
HAVIT, s.r.o., http://www.havit(tec)cz
Uvolnovani forms za behu
[*] Jiri Kanda <kanda(zv)havit(tec)cz> - 10.7.1998 19:06:52
Nazdar machri,
existuje rozumna metoda, jak uvolnit okno, ktere se prave zavira? Zkousel
jsem free do OnDeactivate, ale obcas to padalo.
procedure TForm1.Vokno;
var F2: TForm2;
begin
F2:=TForm2.Create;
F2.Show;
end;
Jak se formular F2 sam uvolni z pameti?
TForm1 na nej uz nema pristup - lokalni promenna.
Co si myslet o nasledujici konstrukci (v pripadech, kdy je pouzitelna):
F2.Show;
while F2.visible do Application.ProcessMessages;
F2.Free;
Diky za kazdou (rozumnou) odpoved.
Jiri Kanda, e-mail: kanda(zv)havit(tec)cz, mobil: 0603/235900
HAVIT, s.r.o., http://www.havit(tec)cz
Zobrazovani forms
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.1998 20:53:43
Jiri Kanda wrote:
>
> Jak zobrazit form, tak aby se zobrazil za prave otevrenym oknem? To znamena,
> aby ho neprekrylo a aby nedoslo k neprijemnemu blikani (jako pri
> OknoDole.Show; OknoNahore.Show;)
Ahoj,
melo by to jit takhle (ale radeji to jeste prozkousej):
procedure TForm1.Button1Click(Sender: TObject);
begin
with Form2 do
begin
ShowWindow(Handle, SW_SHOWNOACTIVATE);
Visible := True;
end;
end; Petr Vones, amatersky programator
Uvolnovani forms za behu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.1998 20:57:52
Jiri Kanda wrote:
>
> Nazdar machri,
>
> existuje rozumna metoda, jak uvolnit okno, ktere se prave zavira? Zkousel
> jsem free do OnDeactivate, ale obcas to padalo.
>
> procedure TForm1.Vokno;
> var F2: TForm2;
> begin
> F2:=TForm2.Create;
> F2.Show;
> end;
>
> Jak se formular F2 sam uvolni z pameti?
> TForm1 na nej uz nema pristup - lokalni promenna.
Ahoj,
V celku mas dve moznosti:
1. Umisti promenou F2 do private sekce Form1, pak ji mas platnou porad
2. Pouzijes udalost OnClose (u TForm2) a nastavis hodnotu Action := caFree
(standartne je tam caHide).
>
> Co si myslet o nasledujici konstrukci (v pripadech, kdy je pouzitelna):
> F2.Show;
> while F2.visible do Application.ProcessMessages;
> F2.Free;
No fuj ....... Petr Vones, amatersky programator
Kde je my� ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.1998 21:51:53
Petr Hronek wrote:
>
> Mo�n� V�m to bude p�ipadat trivi�ln�, ale:
>
> Jak ve WIR95 ev NT5 zjistit na kter� port je p�ipojena my� ?
>
> Pro� to chci v�d�t - d�v�m dohromady program pro ovl�d�n� ext. za��zen� a
> r�d bych pou��val autodetekci.
Ja bych to takhle neresil, proste se pokusis otevrit seriove porty (rekneme
1..8) a ty ktere nepujdou jsou v tu chvili nepristupne, je jedno jestli je
na nich mys nebo ne. Petr Vones, amatersky programator
Triurovnova architektura
[*] �ke��k Jaroslav�������6�����̿ - 10.7.1998 22:08:51
Triurovnova architektura (v Delphi 3.1 C/S technologie MIDAS,
v Delphi 4 jiz ma byt COBRA compatibilni system)
resi vazbu klientske stanice na server prostrednictvim
stredni (treti) vrstvy. zavadi se pojem tzv. tenkeho klienta, ktery
je dusledne oddelen od dat. Klient se obraci na stredni vrstvu,
ktera je pak napojena na server zpravidla jiz klasickou cestou.
Vyhody.
1. Oddeleni uzivatelskeho prostredi od datovych struktur umoznuje
vytvaret aplikace mene zavisle na pouzite datove zakladne.
2. Umoznuje rozdeleni vykonu jedineho serveru na vetsi pocet
vykonnych pocitacu na kterych bezi stredni vrstvy. Tim je umozneno
lepe rozdelit vykon u systemu s velikym poctem klientskych stanic.
3. Umoznuje vyraznym zpusobem omezit pocet nutnych licenci
databazoveho serveru, protoze k serveru se prihlasi pouze
software stredni vrstvy. Na kazdou stredni vrstvu lze napojit
vice tenkych klientu bez nutnasti dalsich licenci.
4. Umoznuje resit slozitejsi systemy i v sitich WAN.
Nevyhody.
1. Komplikovana parametrizace projektu a slozitejsi instalace.
2. Vysoka cena licence MIDAS zabranuje pouzit toto reseni
pro mensi projety (priblizne 200.000, Kc pro kazdeho zakaznika).
Jaro
----------------------------------------------------------
>Zdravim !
> Muzete me nekdo objasnit co je to "triurovnova architektura" a
>na co je to dobry ?
>
> Diky moc.
>
> Boris
Proporce
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 10.7.1998 22:27:06
[P��loha v souboru: SCALER.ZIP]
To jsem posilal ja. Taky jsem ale psal, ze nefuguje nic moc. Nicmene tady
je.
Radek
-----Original Message-----
From: Josef Madlik <madlik(zv)jsp(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 9. �ervence 1998 15:36
Subject: Proporce
>Dobry den vespolek
>
>Pred casem tu probehla diskuse nad, tim jak zachovat proporce
>formulare pri jeho zvetseni/zmenseni. Nekdo rikal, ze ma komponentu,
>kterou staci pridat na formular a ta to zaridi sama. Nejak mi to ale
>uniklo. Tak prosim jestli tuto komponentu nekdo ma, nebo o jakou
>jde , prip. kde ji sezenu.
>
> Diky
>
>---------------------------------------------------------------------------
-------
>Ing. Josef Madlik
>
>JSP s.r.o. Nova Paka - Merici a regulacni technika
>Gebauerova 1161, 509 01 Nova Paka
>tel: 0434/ 621 253 fax: 0434/ 621 280
>
>e-mail: madlik(zv)jsp(tec)cz
>WWW: http://www.jsp(tec)cz
>
>
>Problem s tiskem grafiky
[*] �ke��k Jaroslav�������6�����̿ - 10.7.1998 22:57:49
S problem mizejiciho laga z tisku se asi netrapis sam.
Podobne problemy ma QuickReport i dalsi generatory sestav.
Nam se tento problem poda�ilo po del�im patrani vy�e�it.
Chyba toti� nen� v Delphi, asi ani neni ve tvem programu.
Problem toti� zpusobuji n�kter� ovlada�e nov�j��ch tisk�ren.
Zejmena Bublinkove a laserove tiskarny.
Zda je chyba na strane tveho programu muzes overit tak,
ze budes tisknout pres datovy soubor z neho� teprve posles data na tiskarnu.
Jestlize obrazek v souboru bude a na tiskarne ne, pak ho spolkla tiskarna.
Jaro.
-----------------------------
>
>>Predem bych chtel podekovat za prispevky k memu predeslemu dotazu (Prace s
>>canvasem) a omluvit se, ze jsem omylem napsal Scrollbar misto Scrollbox.
>>Problem jsem jiz vyresil.
>>
>>Nyni mam ale jiny problem. Ja si totiz vykreslim na Canvas Paintboxu
takove
>>prukazky, ktere se budou pozdeji vyplnovat rucne. Uzivatel si muze vybrat,
>>jestli je chce vytisknout a kdyz ano, tak se to same vykresli na Canvas
>>tiskarny. Sklada se to z ruznych obdelniku, kde kazdy nema stejnou barvu.
>Je
>>to potisteno pismem Times New Roman CE a ruzne popisky maji ruznou
>velikost.
>>Obsahuje to i logo (obrazek).
>>Jde mi o to, ze kdyz to vykreslim do Paintboxu, je vse vporadku, ale kdyz
>to
>>vykreslim na Paintbox tiskarny a nasledne vytisknu, logo zahadne zmizi. Uz
>>se s timto problemem potykam delsi dobu a musim rict, ze jsem jiz v tomto
>>smeru bezradny.
>>Kdyz vynecham zmenu velikosti fontu a zmenu barev u jednotlivych
obdelniku,
>>logo se vytiskne.
>>
>>Kdyby nekdo z vas vedel, jak to vyresit, prosim nevahejte a napiste.
>>
>>dekuji
>>
>>Ricky...
>>
>> rick.strunc(zv)writeme.com
>> rick.strunc(zv)email(tec)cz
>> ICQ: 13408022
>>
>>zmena database
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.1998 22:58:17
Vaclav Sazima wrote:
>
> Ahoj,
> potreboval bych poradit s nasledujicim problemem. Muj program
> zpracovava databasi ve formatu MS Access. Database se obcas vymeni
> (prileze po siti nova), a ja musim prejit na tu novou. Jenze k databazi
> umim pristopit pouze pres alias a ODBC a alias neumim zmenit z programu.
> Primo na soubor se mi to zatim nepovedlo (pri pokusu o otevreni chyba
> Invalid Parametr). Poradite mi, prosim, nekdo, jednu ci druhou cestu ?
>
> Dekuji Vaclav Sazima
>
> P.S. V oblasti databasi jsem zacatecnik.
Ahoj,
Stahni si update BDE na verzi 4.51 od Borlandu, ta jiz obsahuje primy
ovladac na MS Access 95 i 97 (ale musis mit k tomu nainstalovany Access
nebo aspon DAO), tak se vyhnes pouziti ODBC.
http://www.inprise.com/devsupport/bde/bdeupdate.html
K tem aliasum, podivej se do helpu na TSession tam mas metody AddAlias,
DeleteAlias, ModifyAlias atd.
Jiny (a mozna i lepsi) zpusob je popsan tady:
http://www.gnomehome.demon.nl/uddf/pages/bde.htm
Petr Vones, amatersky programator
Prevod Arabskych na Rimske
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.7.1998 23:31:38
MotlicekP(zv)TESCOSW.CZ wrote:
>
> Mozna se tento problem sem nehodi..........
>
> Hraju si trosku s prevodem arabskych cislic na rimske. Nektere
> "extremni" cisla mi ale nejsou jasna:
> (podtrzena jsou pro mne spravna)
>
> 899 : co je spravne CIM nebo ICM nebo DCCCIC ?
> ^^^^^^^^^^
> nebo jine podobne
>
> 949 : CMIL nebo DCDIL nebo DCCCCIL ?
> ^^^^^
>
> a jsou ruzna jim podobna.
>
> Diky za komentare.
Ahoj,
V knihovne C Snippets (http://www.snippets.org) jsou uz hotove funkce
L2Roman.C a Roman2L. Je tam i plno jinych zajimavych veci .... Petr Vones, amatersky programator
Systemove prostredky
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 10.7.1998 23:36:56
Diky vsem, vyskousim to.
a jeste jedna zacatecnicka otazka
pro vytvoreni je to napr. Application.CreateForm(TAbout, About);
pro uvolneni Destroy ???, nebo jinak.
V sekci USES je jeste napr. u_about in u_about.pas' {About}, - to nevadi?
Diky Standa C.
-----P�vodn� zpr�va-----
Od: Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 9. �ervence 1998 23:59
P�edm�t: Re: Systemove prostredky
>Ja myslim, ze je to tim, ze volate Create na vsechny formulari v project
source (dpr) (Kouknete do project options a odstrante Autocreate). Zkuste
formulare vytvaret a uvolnovat podle potreby.
>
>Ladislav Nagy
>
Aktivni label
[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 11.7.1998 00:01:56
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 10. �ervence 1998 16:32
P�edm�t: Aktivni label
>Nemate nekdo komponentu, ktera by se chovala jako aktivni label
>a pri prejeti mysi zmenila typ fontu?
>
>Ales
V Rx Library je Label, ktery ma udalosti OnMouseEnter, OnMouseLeave. Pri
nich muzes menit treba typ fontu.
Ricky...
rick.strunc(zv)email(tec)cz
rick.strunc(zv)writeme.com
ICQ: 13408022
Problem s tiskem grafiky
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 11.7.1998 00:02:34
S tim problemem jsem se take setkal. Na nekterych tiskarnach opravdu nechodi
CopyRect (Nebo jak se ta funkce jmenuje).
Michal Kara alias lemming
Problem s tiskem grafiky
[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 11.7.1998 00:25:21
-----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: 10. �ervence 1998 8:13
P�edm�t: Re: Problem s tiskem grafiky
>Tak mne napadla jedna vec. Mozna ze to je ono, mozna, ze ne. Pokud ty
>obdelniky kreslis pres tu grafiku az po vykresleni grafiky a nastavis tam
>nejakou tu barvu jak pises, tak to tu grafiku mozna prekresli.
>
>Vita
Ne, tim to neni. Nejprve vse vykreslim, ale az uplne uplne na konec
vykreslim tu grafiku. Kreslim tam 1 bitmapu do celkem 4 oblasti na papire.
Kdyz to kreslim na Canvas Paintboxu nebo Formu, tak je to vporadku, kdyz to
kreslim na Canvas tiskarny, tak se nekdy nevytiskne vubec zadna, nekdy treba
jen 2. Je to opravdu zazracne.
Puvodne jsem menil velikost fontu pomoci vlastnosti Canvas.Font.Size. Nyni
to menim pomoci Canvas.Font.Height a zatim se tisknou vsechny ctyri bitmapy.
Opravdu jsem z toho jelen.
Trosku jsem se pohrabal v archivu konference a tam jsem nasel prispevek pana
Skerika, kde pise, ze v jejich generatoru sestav se vyskytovala podobna
chyba, ale ze uz ji vyresili. Pry se vyskytuje na nekterych Laser a Deskjet
tiskarnach. (Konkretne je to v prispevku: Skerik Jaroslav, 11.5.1998, Ztrata
grafickych dat pri tisku) Ja mam prave HP Deskjet 600. Zrejme se budu muset
zeptat primo jeho, jak se to da resit, ale nejak se vytratil z konference.
(asi bude na dovolene)
Je to ale docela divne. Pry dochazi k zaplneni vyrovnavaci pameti a tiskarna
pak vypusti obrazek uplne z tisku.
Dekuji vsem velice alespon za pokusy o pomoc kdyby nekdo vedel, jak problem
vyresit, byl bych mu velice vdecen.
Ricky...
rick.strunc(zv)email(tec)cz
rick.strunc(zv)writeme.com
ICQ: 13408022
MDI usi
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 11.7.1998 15:45:19
Ahoj delphisti,
Nevideli jste nekdo nahodou nejakou komponentu
typu TTabSet, ktera by na tech usich mela seznam
dcerinych MDI oken ? A pomoci ktere by slo tato
okna prepinat stejne jako to jde pomoci menu ?
/Videl jsem to v mnoha programech a zkousel jsem
dokonce neco podobneho vytvorit, ale jde to dost
spatne. Ty okna si totiz za behu (!) prehazuji
cisla podle momentalniho poradi, takze se daji
tezko jednoznacne identifikovat./
Diki
Vojtech Semecky
Tisk jednotlivych stran
[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 12.7.1998 01:43:48
Nazdarek delfini,
nerad otravuju, ale mel bych na vas dalsi otazku. Pouzivam komponentu
TPagePrinter a na jeji Canvas si vykreslim nekolik stranek, ktere si
uzivatel muze prohlizet jako v Preview. Tato komponenta ma metodu Print, kde
vsechny stranky vytiskne.
Ja bych ale potreboval zjistit, jak vytisknout jenom liche nebo pro zmneu
jenom sude stranky. Existuje na to nejaka property v teto komponente nebo v
TPrinter? Popripade jak jinak se to da resit, krome toho, ze bych stranky
vykresloval sam, jak uzivatel vybere.
Dik
Ricky...
rick.strunc(zv)email(tec)cz
rick.strunc(zv)writeme.com
ICQ: 13408022
default TFont
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 12.7.1998 02:19:57
Robim vlastnu komponentu, ktora pouziva niekolko fontov, no akosi som sa stretol s problemom, ako nastavit default parametre dalsich fontov. Tu je ukazka ako na to idem, ak s tym uz niekto robil, prosim opravte ma:
unit MojeKomponenta;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
var
FFixedFontData : TFontData = (
Handle: 0;
Height: 0;
Pitch: fpDefault;
Style: [];
Charset: DEFAULT_CHARSET;
Name: 'Courier New');
type
TMojaKomponenta = class(TPaintBox)
private
FFixedFont : TFont;
protected
public
Constructor Create(AOwner : TComponent); override;
published
{ tu bude kdesi zrada }
property FixedFont: TFont read FFixedFont write FFixedFont default TFontData(FFixedFontData);
end;
procedure Register;
implementation
constructor TMojaKomponenta.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
end;
procedure Register;
begin
RegisterComponents('Samples', [TMojaKomponenta]);
end;
end.
diki moc
Pavel Koutny, koutny(zv)tkcmt.sk
MDI usi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.7.1998 08:01:18
Vojtech Semecky wrote:
> Nevideli jste nekdo nahodou nejakou komponentu
> typu TTabSet, ktera by na tech usich mela seznam
> dcerinych MDI oken ? A pomoci ktere by slo tato
> okna prepinat stejne jako to jde pomoci menu ?
>
> /Videl jsem to v mnoha programech a zkousel jsem
> dokonce neco podobneho vytvorit, ale jde to dost
> spatne. Ty okna si totiz za behu (!) prehazuji
> cisla podle momentalniho poradi, takze se daji
> tezko jednoznacne identifikovat./
Asi si budes muset nekam ulozit jejich handle, nebo jeste lepe jejich
instance, a podle toho je potom prepinat. Z instance ziskas i jmeno a
dalsi vlastnosti. Zkus u property Tabs nacist i objekt - napr. takto:
TabSet.Tabs.AddObject(Form.Caption,Form) a v prislusne udalosti pak
volas primo ten vlozeny objekt.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zobrazovani forms
[*] Jiri Kanda <kanda(zv)havit(tec)cz> - 12.7.1998 09:48:10
Diky moc (i za druhou odpoved).
Funguje to 100% pro okna, ktera jsou vytvorena v *.dpr (to jako
Application.CreateForm). Pokud je vytvarim za behu, tedy tesne pred
zobrazenim, je potreba to trochu upravit:
procedure TForm1.ZobrazForm2;
begin
if not Assigned(FindComponent('Form2'))
then Form2:=TForm2.Create(self); {Form2 deklarovan v private}
BRINGTOFRONT;
ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);
TForm2.Visible := True;
end;
Neda se konstrukce _FindComponent_ nahradit necim rozumejsim? Ja takhle
zjistuji, zda je okno vytvoreno. V TForm2.OnClose je Action:=caFree (jak jsi
mi poradil).
>> Jak zobrazit form, tak aby se zobrazil za prave otevrenym oknem? To
znamena,
>> aby ho neprekrylo a aby nedoslo k neprijemnemu blikani (jako pri
>> OknoDole.Show; OknoNahore.Show;)
>melo by to jit takhle (ale radeji to jeste prozkousej):
>
>procedure TForm1.Button1Click(Sender: TObject);
>begin
> with Form2 do
> begin
> ShowWindow(Handle, SW_SHOWNOACTIVATE);
> Visible := True;
> end;
>end;
default TFont
[*] Lubo Fule <fule(zv)sct.sk> - 12.7.1998 11:18:46
Chybu mas tu:
property FixedFont: TFont read FFixedFont write !!!FFixedFont!!! default
TFontData(FFixedFontData);
Takto to rozhodne nepojde, FFixedFont je totiz objekt, teda v skutocnosti je
to len smernik na instanciu objektu a tym, ze das write FFixedFont, tak vzdy
ked dojde k zapisu do FixedFont tak sa zmeni smernik a nie vlastnosti
instancie, to znamena, ze FFixedFont bude ukazovat niekam inam ako pred tym,
teda povodna instancia na ktoru ukazoval FFixedFont sa "strati".
Riesenia je nasledovne:
type
TMojaKomponenta = class(TPaintBox)
private
FFixedFont : TFont;
procedure SetFixedFont(Value: TFont);
protected
public
Constructor Create(AOwner : TComponent); override;
published
property FixedFont: TFont read FFixedFont write SetFixedFont default
TFontData(FFixedFontData);
end;
procedure TMojaKomponenta.SetFixedFont(Value: TFont);
begin
FFixedFont.Assign(Value); //vsetky vlastnosti FFixedFont sa nastavia
podla Value
end;
-----Original Message-----
From: Pavel Koutny [mailto:koutny(zv)tkcmt.sk]
Sent: Sunday, July 12, 1998 2:20 AM
To: 'delphi(zv)pinknet(tec)cz'
Subject: default TFont
Robim vlastnu komponentu, ktora pouziva niekolko fontov, no akosi som sa
stretol s problemom, ako nastavit default parametre dalsich fontov. Tu je
ukazka ako na to idem, ak s tym uz niekto robil, prosim opravte ma:
unit MojeKomponenta;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
var
FFixedFontData : TFontData = (
Handle: 0;
Height: 0;
Pitch: fpDefault;
Style: [];
Charset: DEFAULT_CHARSET;
Name: 'Courier New');
type
TMojaKomponenta = class(TPaintBox)
private
FFixedFont : TFont;
protected
public
Constructor Create(AOwner : TComponent); override;
published
{ tu bude kdesi zrada }
property FixedFont: TFont read FFixedFont write FFixedFont default
TFontData(FFixedFontData);
end;
procedure Register;
implementation
constructor TMojaKomponenta.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
end;
procedure Register;
begin
RegisterComponents('Samples', [TMojaKomponenta]);
end;
end.
diki moc
Pavel Koutny, koutny(zv)tkcmt.sk
Import Datumu
[*] Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz> - 12.7.1998 12:24:59
Ahojte,
snazim se naimportovat do Intebase tabulku z externiho souboru.
Vsechno jde O.K. az na DATUM. V txt souboru je ve tvaru YYMMDD.
INSERT INTO t1
(...,datum,....)
SELECT
....., datum, .......
FROM t1_ext;
Import se mi dari pouze ve tvaru napr. "01-Apr-1988", ale mam YYMMDD
nebo nekde YY/MM/DD.
V ovladacim panelu "Mistni nastaveni" ma vliv pouze na zobrazeni.
Nastaveni formatu datumu v BDE take bez pozorovatelneho vlivu.
Zkousel jsem i CAST( datum AS DATE), ale chovalo se to stejne.
WIN95CZ2, INTERBASE 4.2, WISQL
Dik,
Jaroslav KULHEIM,
kulheim(zv)fp-brno(tec)cz
default TFont
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 12.7.1998 12:56:06
Dik za pomoc
Pavel
-----P�vodn� zpr�va-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odesl�no: 12. j�l 1998 11:19
Komu: DELPHI Distribution List
P�edm�t: RE: default TFont
Chybu mas tu:
property FixedFont: TFont read FFixedFont write !!!FFixedFont!!! default
TFontData(FFixedFontData);
Takto to rozhodne nepojde, FFixedFont je totiz objekt, teda v skutocnosti je
to len smernik na instanciu objektu a tym, ze das write FFixedFont, tak vzdy
ked dojde k zapisu do FixedFont tak sa zmeni smernik a nie vlastnosti
instancie, to znamena, ze FFixedFont bude ukazovat niekam inam ako pred tym,
teda povodna instancia na ktoru ukazoval FFixedFont sa "strati".
Riesenia je nasledovne:
type
TMojaKomponenta = class(TPaintBox)
private
FFixedFont : TFont;
procedure SetFixedFont(Value: TFont);
protected
public
Constructor Create(AOwner : TComponent); override;
published
property FixedFont: TFont read FFixedFont write SetFixedFont default
TFontData(FFixedFontData);
end;
procedure TMojaKomponenta.SetFixedFont(Value: TFont);
begin
FFixedFont.Assign(Value); //vsetky vlastnosti FFixedFont sa nastavia
podla Value
end;default TFont - 2
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 12.7.1998 14:30:22
Mam este jeden problem, ked chcem nastavi ........ default TFontData(FFixedFontData), alebo nieco podobne, tak ked mi to prekladac zoberie, tak aplikacia po pokuse o pristup k fontu FixedFont komponenty padne, alebo vyhlasuje chybu v style, ze za default mozno dosadit konstantu. Ako ju tam vsak dosadit ??? Skusal som mnoho moznosti def. FFixedFontData, alebo za default dosadzovat ine konstanty (typu TFont, TFontData(aj ked to nie je kompatibilne)) no stale nic.
-----P�vodn� zpr�va-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odesl�no: 12. j�l 1998 11:19
Komu: DELPHI Distribution List
P�edm�t: RE: default TFont
Chybu mas tu:
property FixedFont: TFont read FFixedFont write !!!FFixedFont!!! default
TFontData(FFixedFontData);
Takto to rozhodne nepojde, FFixedFont je totiz objekt, teda v skutocnosti je
to len smernik na instanciu objektu a tym, ze das write FFixedFont, tak vzdy
ked dojde k zapisu do FixedFont tak sa zmeni smernik a nie vlastnosti
instancie, to znamena, ze FFixedFont bude ukazovat niekam inam ako pred tym,
teda povodna instancia na ktoru ukazoval FFixedFont sa "strati".
Riesenia je nasledovne:
type
TMojaKomponenta = class(TPaintBox)
private
FFixedFont : TFont;
procedure SetFixedFont(Value: TFont);
protected
public
Constructor Create(AOwner : TComponent); override;
published
property FixedFont: TFont read FFixedFont write SetFixedFont default
TFontData(FFixedFontData);
end;
procedure TMojaKomponenta.SetFixedFont(Value: TFont);
begin
FFixedFont.Assign(Value); //vsetky vlastnosti FFixedFont sa nastavia
podla Value
end;Vypnuti pocitace s windows
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 12.7.1998 15:18:48
Ahoj,
delam bezobsluzny program pro W95, ktery bezi na pocitaci bez monitoru,
klavesnice a mysi. Mam problem s tim, jak zajistit korektni vypnuti
pocitace. Externi UPS se mi ale nelibi. Nevite nekdo jak na to?
Neexistuji treba MB, ktere se s tim nejak vyrovnaji?
Dik
Vaclav Sazima
Problem s tiskem grafiky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1998 16:23:01
Richard Strunc wrote:
> Trosku jsem se pohrabal v archivu konference a tam jsem nasel prispevek pana
> Skerika, kde pise, ze v jejich generatoru sestav se vyskytovala podobna
> chyba, ale ze uz ji vyresili. Pry se vyskytuje na nekterych Laser a Deskjet
> tiskarnach. (Konkretne je to v prispevku: Skerik Jaroslav, 11.5.1998, Ztrata
> grafickych dat pri tisku) Ja mam prave HP Deskjet 600. Zrejme se budu muset
> zeptat primo jeho, jak se to da resit, ale nejak se vytratil z konference.
> (asi bude na dovolene)
> Je to ale docela divne. Pry dochazi k zaplneni vyrovnavaci pameti a tiskarna
> pak vypusti obrazek uplne z tisku.
>
> Dekuji vsem velice alespon za pokusy o pomoc kdyby nekdo vedel, jak problem
> vyresit, byl bych mu velice vdecen.
Ahoj,
asi ti to moc nepomuze (nebo jsi to uz zkousel), ale pokud se ti ten problem
vyskytuje porad tak zkus v Ovl.Panelech u te tiskarny nastavit v Moznostech
"Vyuziti pameti" (pokud to zrovna u tvoji tiskarny je). Pise se tam neco
o pravdepodobnosti ze driver prekroci velikost vyrovnavaci pameti a dokument
se nevytiskne .....
Petr Vones, amatersky programator
Rozsireni IDE v D2 - TIResourceEntry
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1998 16:28:32
Ahoj,
Nemate nekdo zkusenosti se psanim expertu a podobne. Snazim se pridat neco
do .RES souboru projektu a nedari se mi vytvorit dalsi TIResourceEntry.
V nejakem bug-listu pisi ze je prave v tomhle v Delphi 2 chyba, a nabizeji
tam reseni :
Var
RF: TIResourceFile;
RE: TIResourceEntry;
I : Integer;
...
For I := 0 to RF.GetEntryCount-1 do
RE := RF.GetEntry(I); { dummy get to avoid Delphi bug }
RE := RF.CreateEntry(PChar(MakeIntResource(rt_Bitmap)),
'MYBITMAP',0,0,0,0,0);
Problem je ze potom RE.SetDataSize() nezvetsi velikost pridaneho resource.
V D3 to funguje, ale nevite nekdo co s tim v D2 ???
Dik.
Petr Vones, amatersky programator
Systemove prostredky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1998 16:35:41
Stanislav Cerny wrote:
>
> Diky vsem, vyskousim to.
>
> a jeste jedna zacatecnicka otazka
> pro vytvoreni je to napr. Application.CreateForm(TAbout, About);
> pro uvolneni Destroy ???, nebo jinak.
Ahoj,
pro uvolneni bych pouzil spis Free. Ale ma to jeste jeden maly problem,
pokud se jedna o modalni dialog (jako je About) tak tam je to jednoduche,
dialog vytvoris, zobrazis a uvolnis:
with TAbout.Create(Application) do
try
ShowModal;
finally
Free;
end;
Jenze nemodalni formulare si muzes (kdyz jsou Auto-Create) jednoduse zobrazovat
(Show) a zavirat (Hide, Close) kdy a jak chces. Zalezi samozrejme na konretnim
pripade, ale pokud by jsi chtel mit stejne chovani a pritom je vzdy vytvaret
a rusit tak je to uz mirne slozitejsi. Normalne mas treba Form1 a v nem zobrazis
Form2:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;
jenze ty jej chces tady teprve vytvorit a pokud jej uzivatel (nebo ty) zavre tak
zase uvolnit. Cele by to pak vypadalo asi takhle:
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2 = nil then Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
{ TForm2 }
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree; // po uzavreni jej uvolnit
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2 := nil; // a priste se ma opet vytvorit ...
end;
> V sekci USES je jeste napr. u_about in u_about.pas' {About}, - to nevadi?
Ne, protoze samotnym pridanim unitu se ti formluar nevytvori, leda snad ze bys to
nejak dal do initialization sekce unitu.
Petr Vones, amatersky programator
default TFont
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.7.1998 16:50:04
Pavel Koutny wrote:
To je celkem jasne. Ty se snazis nacpat nejaky typ do jineho typu, to
nejde, zejmena ne kdyz se snazis nacpat record do tridy. Podivej se
na komponentu TControl, jak se pracuje s fontem. Princip je v tom, ze
v Create musis font inicializovat a naplit a v destroy zase uvolnit.
Pokud chces mit moznost menit font i za behu, zaved si proceduru
SetFont (podle vzoru v TControl, identifikator muze byt jiny).
> Robim vlastnu komponentu, ktora pouziva niekolko fontov, no akosi
> som sa stretol s problemom, ako nastavit default parametre dalsich
> fontov. Tu je ukazka ako na to idem, ak s tym uz niekto robil,
> prosim opravte ma:
>
>
> unit MojeKomponenta;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs, ExtCtrls;
>
> var
> FFixedFontData : TFontData = (
> Handle: 0;
> Height: 0;
> Pitch: fpDefault;
> Style: [];
> Charset: DEFAULT_CHARSET;
> Name: 'Courier New');
>
> type
> TMojaKomponenta = class(TPaintBox)
> private
> FFixedFont : TFont;
> protected
> public
> Constructor Create(AOwner : TComponent); override;
> published
> { tu bude kdesi zrada }
> property FixedFont: TFont read FFixedFont write FFixedFont
> default TFontData(FFixedFontData);
> end;
>
> procedure Register;
>
> implementation
>
> constructor TMojaKomponenta.Create(AOwner : TComponent);
> begin
> inherited Create(AOwner);
> end;
>
> procedure Register;
> begin
> RegisterComponents('Samples', [TMojaKomponenta]);
> end;
>
> end.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
default TFont - 2
[*] Lubo Fule <fule(zv)sct.sk> - 12.7.1998 16:50:26
[P��loha v souboru: winmail.dat]
Najjednoduchsie je zrusit default a nastavit pozadovane vlastnosti v
konstruktore (create). Kedze Constructor sa vykonava ako prvy
este pre nacitanim nastaveni z resources, budu samozrejme akceptovane aj
nastavenia v pocas navrhu v Object Inspector-e.
-----Original Message-----
From: Pavel Koutny [mailto:koutny(zv)tkcmt.sk]
Sent: Sunday, July 12, 1998 2:30 PM
To: 'DELPHI Distribution List'
Subject: default TFont - 2
Mam este jeden problem, ked chcem nastavi ........ default
TFontData(FFixedFontData), alebo nieco podobne, tak ked mi to prekladac
zoberie, tak aplikacia po pokuse o pristup k fontu FixedFont komponenty
padne, alebo vyhlasuje chybu v style, ze za default mozno dosadit konstantu.
Ako ju tam vsak dosadit ??? Skusal som mnoho moznosti def. FFixedFontData,
alebo za default dosadzovat ine konstanty (typu TFont, TFontData(aj ked to
nie je kompatibilne)) no stale nic.
-----P�vodn� zpr�va-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odesl�no: 12. j�l 1998 11:19
Komu: DELPHI Distribution List
P�edm�t: RE: default TFont
Chybu mas tu:
property FixedFont: TFont read FFixedFont write !!!FFixedFont!!! default
TFontData(FFixedFontData);
Takto to rozhodne nepojde, FFixedFont je totiz objekt, teda v skutocnosti je
to len smernik na instanciu objektu a tym, ze das write FFixedFont, tak vzdy
ked dojde k zapisu do FixedFont tak sa zmeni smernik a nie vlastnosti
instancie, to znamena, ze FFixedFont bude ukazovat niekam inam ako pred tym,
teda povodna instancia na ktoru ukazoval FFixedFont sa "strati".
Riesenia je nasledovne:
type
TMojaKomponenta = class(TPaintBox)
private
FFixedFont : TFont;
procedure SetFixedFont(Value: TFont);
protected
public
Constructor Create(AOwner : TComponent); override;
published
property FixedFont: TFont read FFixedFont write SetFixedFont default
TFontData(FFixedFontData);
end;
procedure TMojaKomponenta.SetFixedFont(Value: TFont);
begin
FFixedFont.Assign(Value); //vsetky vlastnosti FFixedFont sa nastavia
podla Value
end;
Vypnuti pocitace s windows
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 12.7.1998 17:05:20
Vyzkousej napr. ExitWindowsEx(EWX_POWEROFF+EWX_SHUTDOWN+EWX_LOGOFF, 0);
Na NT to je ale trochu jinak (tusim jen jine parametry)
Cau Radek
-----Original Message-----
From: Vaclav Sazima <sazima(zv)comp(tec)cz>
To: Delphi <delphi(zv)io.pinknet(tec)cz>
Date: 12. �ervence 1998 15:23
Subject: Vypnuti pocitace s windows
> Ahoj,
>delam bezobsluzny program pro W95, ktery bezi na pocitaci bez monitoru,
>klavesnice a mysi. Mam problem s tim, jak zajistit korektni vypnuti
>pocitace. Externi UPS se mi ale nelibi. Nevite nekdo jak na to?
>Neexistuji treba MB, ktere se s tim nejak vyrovnaji?
> Dik
> Vaclav Sazima
>
>
>Zamok vety a transakcie Dbase
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 12.7.1998 18:06:49
> From: "Lubo Fule" <fule(zv)sct.sk>
> To: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
> Subject: RE: Zamok vety a transakcie Dbase
> Date: Fri, 10 Jul 1998 15:08:10 +0200
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Bohuzial, v DBF sa nic take neda. Ked potrebujes vyuzivat zamykanie viet a
> transakcie, tak musis pouzit nejaky SQL server.
Tohle bych netvrdil! Zamykat vety v DBF umi i ta zatracovana FoxPro
v souborovem rezimu! Zamykani nesouvisi s formatem souboru.> DBF tiez nedoporucam pouzivat v sietovej verzii. Je to pomale a dost
> nespolahlive.
> -----Original Message-----
> From: Peter ROZIM [mailto:zves(zv)pollux.sk]
> Sent: Friday, July 10, 1998 1:44 PM
> To: Delphi FORUM
> Subject: Zamok vety a transakcie Dbase
>
>
> Ahojte
>
> Viete mi niekto poradit ako sa da osetrit zamykanie viet DBF suboru v
> D2.
> Popripade ci existuje nejaky soft na zamykanie viet,kontrolu zdielania a
> transakcie s DBF.
>
>
> Dakujem Peter ROZIM
>
> prozim(zv)pollux.sk
>
>
>
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: zds(zv)pce.fairnet(tec)cz (Win1250/ISO-8859-2)
http://www.angelfire.com/biz/zds
*-----------------------------------------------*Vypnuti pocitace s windows
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 12.7.1998 18:08:06
> Ahoj,
> delam bezobsluzny program pro W95, ktery bezi na pocitaci bez monitoru,
> klavesnice a mysi. Mam problem s tim, jak zajistit korektni vypnuti
> pocitace. Externi UPS se mi ale nelibi. Nevite nekdo jak na to?
> Neexistuji treba MB, ktere se s tim nejak vyrovnaji?
Ano, je treba se divat, zda MB ma konektor pro pripojeni ATX
zdroje, pripadne je to primo deska ATX formatu.
Tam se da nastavit vypnuti zdroje pri ukonceni Windows.> Dik
> Vaclav Sazima
>
>
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: zds(zv)pce.fairnet(tec)cz (Win1250/ISO-8859-2)
http://www.angelfire.com/biz/zds
*-----------------------------------------------*default TFont - 2
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 12.7.1998 18:45:48
Skusal som to robit bez defaultu s def. v constructore uz predtym, no aj ked nastavym vsetky pozadovano parametre, pripadne sa odvolavam na DefFontData (tak ako to robi TTabs), po umiestneni komponenty na formular ma Delphi tendencie hned vypisovat chybove hlasenie typu access violation a pod.
Pavel
-----P�vodn� zpr�va-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odesl�no: 12. j�l 1998 16:50
Komu: DELPHI Distribution List
P�edm�t: RE: default TFont - 2
Najjednoduchsie je zrusit default a nastavit pozadovane vlastnosti v
konstruktore (create). Kedze Constructor sa vykonava ako prvy
este pre nacitanim nastaveni z resources, budu samozrejme akceptovane aj
nastavenia v pocas navrhu v Object Inspector-e.
> -----Original Message-----
> From: Pavel Koutny [mailto:koutny(zv)tkcmt.sk]
> Sent: Sunday, July 12, 1998 2:30 PM
> To: 'DELPHI Distribution List'
> Subject: default TFont - 2
>
> Mam este jeden problem, ked chcem nastavi ........ default
> TFontData(FFixedFontData), alebo nieco podobne, tak ked mi to
> prekladac zoberie, tak aplikacia po pokuse o pristup k fontu FixedFont
> komponenty padne, alebo vyhlasuje chybu v style, ze za default mozno
> dosadit konstantu. Ako ju tam vsak dosadit ??? Skusal som mnoho
> moznosti def. FFixedFontData, alebo za default dosadzovat ine
> konstanty (typu TFont, TFontData(aj ked to nie je kompatibilne)) no
> stale nic.
>
> -----P�vodn� zpr�va-----
> Od: Lubo Fule [SMTP:fule(zv)sct.sk]
> Odesl�no: 12. j�l 1998 11:19
> Komu: DELPHI Distribution List
> P�edm�t: RE: default TFont
>
> Chybu mas tu:
>
> property FixedFont: TFont read FFixedFont write
> !!!FFixedFont!!! default
> TFontData(FFixedFontData);
>
> Takto to rozhodne nepojde, FFixedFont je totiz objekt, teda v
> skutocnosti je
> to len smernik na instanciu objektu a tym, ze das write
> FFixedFont, tak vzdy
> ked dojde k zapisu do FixedFont tak sa zmeni smernik a nie
> vlastnosti
> instancie, to znamena, ze FFixedFont bude ukazovat niekam inam
> ako pred tym,
> teda povodna instancia na ktoru ukazoval FFixedFont sa "strati".
> Riesenia je nasledovne:
>
> type
> TMojaKomponenta = class(TPaintBox)
> private
> FFixedFont : TFont;
> procedure SetFixedFont(Value: TFont);
> protected
> public
> Constructor Create(AOwner : TComponent); override;
> published
> property FixedFont: TFont read FFixedFont write SetFixedFont
> default
> TFontData(FFixedFontData);
> end;
>
>
> procedure TMojaKomponenta.SetFixedFont(Value: TFont);
> begin
> FFixedFont.Assign(Value); //vsetky vlastnosti FFixedFont
> sa nastavia
> podla Value
> end;
>
default TFont - 2
[*] Lubo Fule <fule(zv)sct.sk> - 12.7.1998 19:33:19
[P��loha v souboru: winmail.dat]
A nezabudol si tent font vytvorit? :
constructor TMojaKomponenta.Create(...);
begin
.
.
.
FFixedFont:=TFont.Create;
//Az teraz mozes nastavovat property fontu
.
.
.
.
end;
Tiez nesmies zabudnut v destructore ho zase uvolnit
FFixedFont.Free
-----Original Message-----
From: Pavel Koutny [mailto:koutny(zv)tkcmt.sk]
Sent: Sunday, July 12, 1998 6:46 PM
To: 'DELPHI Distribution List'
Subject: RE: default TFont - 2
Skusal som to robit bez defaultu s def. v constructore uz predtym, no aj ked
nastavym vsetky pozadovano parametre, pripadne sa odvolavam na DefFontData
(tak ako to robi TTabs), po umiestneni komponenty na formular ma Delphi
tendencie hned vypisovat chybove hlasenie typu access violation a pod.
Pavel
-----P�vodn� zpr�va-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odesl�no: 12. j�l 1998 16:50
Komu: DELPHI Distribution List
P�edm�t: RE: default TFont - 2
Najjednoduchsie je zrusit default a nastavit pozadovane vlastnosti v
konstruktore (create). Kedze Constructor sa vykonava ako prvy
este pre nacitanim nastaveni z resources, budu samozrejme akceptovane aj
nastavenia v pocas navrhu v Object Inspector-e.
> -----Original Message-----
> From: Pavel Koutny [mailto:koutny(zv)tkcmt.sk]
> Sent: Sunday, July 12, 1998 2:30 PM
> To: 'DELPHI Distribution List'
> Subject: default TFont - 2
>
> Mam este jeden problem, ked chcem nastavi ........ default
> TFontData(FFixedFontData), alebo nieco podobne, tak ked mi to
> prekladac zoberie, tak aplikacia po pokuse o pristup k fontu FixedFont
> komponenty padne, alebo vyhlasuje chybu v style, ze za default mozno
> dosadit konstantu. Ako ju tam vsak dosadit ??? Skusal som mnoho
> moznosti def. FFixedFontData, alebo za default dosadzovat ine
> konstanty (typu TFont, TFontData(aj ked to nie je kompatibilne)) no
> stale nic.
>
> -----P�vodn� zpr�va-----
> Od: Lubo Fule [SMTP:fule(zv)sct.sk]
> Odesl�no: 12. j�l 1998 11:19
> Komu: DELPHI Distribution List
> P�edm�t: RE: default TFont
>
> Chybu mas tu:
>
> property FixedFont: TFont read FFixedFont write
> !!!FFixedFont!!! default
> TFontData(FFixedFontData);
>
> Takto to rozhodne nepojde, FFixedFont je totiz objekt, teda v
> skutocnosti je
> to len smernik na instanciu objektu a tym, ze das write
> FFixedFont, tak vzdy
> ked dojde k zapisu do FixedFont tak sa zmeni smernik a nie
> vlastnosti
> instancie, to znamena, ze FFixedFont bude ukazovat niekam inam
> ako pred tym,
> teda povodna instancia na ktoru ukazoval FFixedFont sa "strati".
> Riesenia je nasledovne:
>
> type
> TMojaKomponenta = class(TPaintBox)
> private
> FFixedFont : TFont;
> procedure SetFixedFont(Value: TFont);
> protected
> public
> Constructor Create(AOwner : TComponent); override;
> published
> property FixedFont: TFont read FFixedFont write SetFixedFont
> default
> TFontData(FFixedFontData);
> end;
>
> procedure TMojaKomponenta.SetFixedFont(Value: TFont);
> begin
> FFixedFont.Assign(Value); //vsetky vlastnosti FFixedFont
> sa nastavia
> podla Value
> end;
>default TFont - 2
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 12.7.1998 20:13:52
Nie to som robil, teraz som preinstaloval Delphi (uz su prec vsetky komponenty, kniznice, experti, pamat je volnejsia, nastavenia su default) a beha to bezproblemov, aj ked raz mi to uz tuto chybu vyhodilo. Celkovy zdrojak je uz dost velky, pozriem sa, ci nie je kdesi cosi nedorobene.
Dik za vsetky rady
Pavel
-----P�vodn� zpr�va-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odesl�no: 12. j�l 1998 19:33
Komu: DELPHI Distribution List
P�edm�t: RE: default TFont - 2
A nezabudol si tent font vytvorit? :
constructor TMojaKomponenta.Create(...);
begin
.
.
.
FFixedFont:=TFont.Create;
//Az teraz mozes nastavovat property fontu
.
.
.
.
end;
Tiez nesmies zabudnut v destructore ho zase uvolnit
FFixedFont.Free
> -----Original Message-----
> From: Pavel Koutny [mailto:koutny(zv)tkcmt.sk]
> Sent: Sunday, July 12, 1998 6:46 PM
> To: 'DELPHI Distribution List'
> Subject: RE: default TFont - 2
>
> Skusal som to robit bez defaultu s def. v constructore uz predtym, no
> aj ked nastavym vsetky pozadovano parametre, pripadne sa odvolavam na
> DefFontData (tak ako to robi TTabs), po umiestneni komponenty na
> formular ma Delphi tendencie hned vypisovat chybove hlasenie typu
> access violation a pod.
>
> Pavel
>
> -----P�vodn� zpr�va-----
> Od: Lubo Fule [SMTP:fule(zv)sct.sk]
> Odesl�no: 12. j�l 1998 16:50
> Komu: DELPHI Distribution List
> P�edm�t: RE: default TFont - 2
>
> Najjednoduchsie je zrusit default a nastavit pozadovane
> vlastnosti v
> konstruktore (create). Kedze Constructor sa vykonava ako prvy
> este pre nacitanim nastaveni z resources, budu samozrejme
> akceptovane aj
> nastavenia v pocas navrhu v Object Inspector-e.
>
> > -----Original Message-----
> > From: Pavel Koutny [mailto:koutny(zv)tkcmt.sk]
> > Sent: Sunday, July 12, 1998 2:30 PM
> > To: 'DELPHI Distribution List'
> > Subject: default TFont - 2
> >
> > Mam este jeden problem, ked chcem nastavi ........ default
> > TFontData(FFixedFontData), alebo nieco podobne, tak ked mi to
> > prekladac zoberie, tak aplikacia po pokuse o pristup k fontu
> FixedFont
> > komponenty padne, alebo vyhlasuje chybu v style, ze za default
> mozno
> > dosadit konstantu. Ako ju tam vsak dosadit ??? Skusal som
> mnoho
> > moznosti def. FFixedFontData, alebo za default dosadzovat ine
> > konstanty (typu TFont, TFontData(aj ked to nie je
> kompatibilne)) no
> > stale nic.
> >
> > -----P�vodn� zpr�va-----
> > Od: Lubo Fule [SMTP:fule(zv)sct.sk]
> > Odesl�no: 12. j�l 1998 11:19
> > Komu: DELPHI Distribution List
> > P�edm�t: RE: default TFont
> >
> > Chybu mas tu:
> >
> > property FixedFont: TFont read FFixedFont write
> > !!!FFixedFont!!! default
> > TFontData(FFixedFontData);
> >
> > Takto to rozhodne nepojde, FFixedFont je totiz objekt,
> teda v
> > skutocnosti je
> > to len smernik na instanciu objektu a tym, ze das write
> > FFixedFont, tak vzdy
> > ked dojde k zapisu do FixedFont tak sa zmeni smernik a
> nie
> > vlastnosti
> > instancie, to znamena, ze FFixedFont bude ukazovat
> niekam inam
> > ako pred tym,
> > teda povodna instancia na ktoru ukazoval FFixedFont sa
> "strati".
> > Riesenia je nasledovne:
> >
> > type
> > TMojaKomponenta = class(TPaintBox)
> > private
> > FFixedFont : TFont;
> > procedure SetFixedFont(Value: TFont);
> > protected
> > public
> > Constructor Create(AOwner : TComponent); override;
> > published
> > property FixedFont: TFont read FFixedFont write
> SetFixedFont
> > default
> > TFontData(FFixedFontData);
> > end;
> >
> >
> > procedure TMojaKomponenta.SetFixedFont(Value: TFont);
> > begin
> > FFixedFont.Assign(Value); //vsetky vlastnosti
> FFixedFont
> > sa nastavia
> > podla Value
> > end;
> >
pakovani s Abbrevia
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 12.7.1998 20:42:30
Ahoj,
u knihovny Abbrevia nemuzu najit moznost pakovani
na diskety, resp. do souboru s omezenou delkou napr 1.44MB.
Nevite, je to vubec podporovano?
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
default TFont
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1998 21:58:11
Pavel Koutny wrote:
>
> Robim vlastnu komponentu, ktora pouziva niekolko fontov, no akosi som sa stretol s problemom, ako nastavit default parametre dalsich fontov. Tu je ukazka ako na to idem, ak s tym uz niekto robil, prosim opravte ma:
Ahoj,
mohlo by to vypadat asi takhle:
type
TMojeKomponenta = class(TPaintBox)
private
FFixedFont: TFont;
procedure SetFixedFont(Value: TFont);
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property FixedFont: TFont read FFixedFont write SetFixedFont;
end;
procedure Register;
implementation
constructor TMojeKomponenta.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFixedFont := TFont.Create;
FFixedFont.Name := 'Courier New';
FFixedFont.Pitch := fpFixed;
end;
destructor TMojeKomponenta.Destroy;
begin
FFixedFont.Free;
inherited Destroy;
end;
procedure TMojeKomponenta.SetFixedFont(Value: TFont);
begin
FFixedFont.Assign(Value);
end;
Jeste mala poznamka k tomu pouziti default u property, tim nenastavujes pocatecni
hodnotu vlastnosti (navic v pripade FixedFont to ani neni hodnota, ale objekt) ale
jen to jestli se nebude hodnota vlastnosti ukladat pokud je shodna s tim co jsi
nastavil v konstruktoru te tridy. Pokud by jsi to chtel aplikovat i na FixedFont
tak potom musis pouzit stored a funkci ve ktere zjistis jestli je nastaveni vsech
vlastnosti FixedFont shodne s tim co mas v konstruktoru a na zaklade toho rozhodnout
o ulozeni ci neulozeni.
Petr Vones, amatersky programator
Zamok vety a transakcie Dbase
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.7.1998 22:44:10
Zdenek Drvota wrote:
>
> > From: "Lubo Fule" <fule(zv)sct.sk>
> > To: "DELPHI Distribution List" <delphi(zv)pinknet(tec)cz>
> > Subject: RE: Zamok vety a transakcie Dbase
> > Date: Fri, 10 Jul 1998 15:08:10 +0200
> > Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>
> > Bohuzial, v DBF sa nic take neda. Ked potrebujes vyuzivat zamykanie viet a
> > transakcie, tak musis pouzit nejaky SQL server.
>
> Tohle bych netvrdil! Zamykat vety v DBF umi i ta zatracovana FoxPro
> v souborovem rezimu! Zamykani nesouvisi s formatem souboru.
Ahoj,
v manualu k Delphi v kapitole Handling Transactions se mimo jine pravi:
The BDE supports local transactions against Paradox and dBase tables. From coding
perspective, there is no difference to you between local transaction and a transaction
against remote server.....
Samozrejme ze to ma nejaka omezeni, ale v zasade by to fungovat mohlo. A zamykani
zaznamu take funguje, zkousel jsem to ted jen pomoci dvou spustenych Database Exploreru
a jedne DBF tabulky - pokusem o editaci stejneho zaznamu. Jak to ale funguje v siti
to nevim.
>
> > DBF tiez nedoporucam pouzivat v sietovej verzii. Je to pomale a dost
> > nespolahlive.
^^^^^^^^^^^^
Nelze nez souhlasit .....
Petr Vones, amatersky programator
pakovani s Abbrevia
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.7.1998 00:38:09
> u knihovny Abbrevia nemuzu najit moznost pakovani
> na diskety, resp. do souboru s omezenou delkou napr 1.44MB.
>
> Nevite, je to vubec podporovano?
Ahoj, samozrejme, je to podporovano, podivej se sem, co vsechno
je podporovano:
http://www.clexpert(tec)cz/software/turbopower/abbrevia.asp
Ale nejde to do souboru, musi se to na disketu. Problem je v tom,
ze standard ZIP formatu je takovy, ze je proste jiny nez treba
ARJ. Neudela to nazev.zip, nazev.z01, nazev.z02, ale dela to
stale nazev.zip a do labelu diskety do pise cisla archivu.
Takze to musis pustit rovnou na disketu, ono si to samo rekne
o novou, kdyz na ni nebude misto.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Triurovnova architektura
[*] voltrr1.epr(zv)mail.cez(tec)cz - 13.7.1998 06:43:05
Nova zprava:
ad bod 3: Zalezi na licenci pro databazovy server , napr. Oracle ma i
licence kde toto neplati (je formulovana asi tak ze pokud dostanes na
obrazovku obsah databaze je jedno jak si ho ziskal (MIDAS, vystup CGI ... )
ale musis mit licenci.Radekcena MIDAS: Nasel nekdo nekde popis licencovani
MIDAS technologie ?? Jedna se me to zda kdyz pouziju napr. DCOM a pod zda
musim mit licenci MIDAS. Proste jestli je nekde napsano - pokud pouzijete
tu a tu komponentu musite mit na serveru licenci MIDAS.
---------------------------------------------------------------
Puvodni zprava:
Triurovnova architektura (v Delphi 3.1 C/S technologie MIDAS,
v Delphi 4 jiz ma byt COBRA compatibilni system)
resi vazbu klientske stanice na server prostrednictvim
stredni (treti) vrstvy. zavadi se pojem tzv. tenkeho klienta, ktery
je dusledne oddelen od dat. Klient se obraci na stredni vrstvu,
ktera je pak napojena na server zpravidla jiz klasickou cestou.
Vyhody.
1. Oddeleni uzivatelskeho prostredi od datovych struktur umoznuje
vytvaret aplikace mene zavisle na pouzite datove zakladne.
2. Umoznuje rozdeleni vykonu jedineho serveru na vetsi pocet
vykonnych pocitacu na kterych bezi stredni vrstvy. Tim je umozneno
lepe rozdelit vykon u systemu s velikym poctem klientskych stanic.
3. Umoznuje vyraznym zpusobem omezit pocet nutnych licenci
databazoveho serveru, protoze k serveru se prihlasi pouze
software stredni vrstvy. Na kazdou stredni vrstvu lze napojit
vice tenkych klientu bez nutnasti dalsich licenci.
4. Umoznuje resit slozitejsi systemy i v sitich WAN.
Nevyhody.
1. Komplikovana parametrizace projektu a slozitejsi instalace.
2. Vysoka cena licence MIDAS zabranuje pouzit toto reseni
pro mensi projety (priblizne 200.000, Kc pro kazdeho zakaznika).
Jaro
----------------------------------------------------------
>Zdravim !
> Muzete me nekdo objasnit co je to "triurovnova architektura" a
>na co je to dobry ?
>
> Diky moc.
>
> Boris
off topic -- Delphi 4.0 oficialne na ceskem trhu!
[*] info(zv)eurocomputer(tec)cz (Eurocomputer) - 13.7.1998 07:29:09
Delphi 4.0 je oficialne na ceskem trhu!
Neprehlednete zajimave zavadeci ceny:
** http://euroshop(tec)cz/STORE/HARDWARE/cenyv.asp?vyr=Borland
+--------------------------------------------------------------------+
Delphi 4.0 Standard 4.790,-
Delphi 4.0 Professionall 23.490,-
Delphi 4.0 Professionall Upgrade z Prof. verz� 14.590,-
Delphi 4.0 Client/Server Suite 104.690,-
Delphi 4.0 Client/Server Suite Upgrade z C/S verze 77.890,-
Delphi 4.0 Client/Server Suite C/Upgrade z konkurencn� verze 90.890,-
+--------------------------------------------------------------------+
Prevod Arabskych na Rimske
[*] Marian Cipka <Cipy(zv)army.sk> - 13.7.1998 07:42:31
MotlicekP(zv)tescosw(tec)cz wrote:
> Mozna se tento problem sem nehodi..........
>
> Hraju si trosku s prevodem arabskych cislic na rimske. Nektere
> "extremni" cisla mi ale nejsou jasna:
> (podtrzena jsou pro mne spravna)
>
> 899 : co je spravne CIM nebo ICM nebo DCCCIC ?
> ^^^^^^^^^^
> nebo jine podobne
>
> 949 : CMIL nebo DCDIL nebo DCCCCIL ?
> ^^^^^
>
> a jsou ruzna jim podobna.
>
> Diky za komentare.
>
> Motlicek Petr
M� to spr�vne. In� mo�nosti, ktor� si uviedol maj� nejak� t� chyby�ku.
CIM alebo ICM neprich�dzaj� do �vahy, preto�e sa tam vyskytuj� dva
po sebe id�ce znaky ni��ej hodnoty pred znakom vy��ej hodnoty. DCDIL
ma udivuje. Logiku to sice m�, ale pripad� mi to ako 9 = VIV a to je
predsa
blbos�. V DCCCCIL m� �tyri po sebe id�ce znaky rovnakej hodnoty.
To tie� neb�va zvykom. Okrem in�ho ��tal som, �e ani sami star� rimani
nedodr�iavali tieto pravidl�, preto bolo mo�n� vidie� aj in� kombin�cie,
na
ak� sme zvyknut�. Muselo to ma� v�ak jednozna�n� v�znam.
Ja som logiku tvorby r�mskych ��slic pochopil takto:
function TForm1.Rimsky (Num: Integer): String;
const c: String [9] ='IVXLCDM ';
var Rad,A: Integer;
i,j: integer;
begin
i:=7;
Result:='';
Rad:=1000;
while i > 0 do
begin
A:=Num div Rad;
if A = 9 then
begin
j:=Length (Result);
A:=Pos (Result [j-1],c);
if (j > 1) and (Pos (Result [j],c) > A) and (A - i <= 2) then
begin
Delete (Result,j-1,1);
Insert (c [i],Result,j-1);
end
else Result:=Result + c [i] + c [i+2];
end else
begin
A:=Num div (5 * Rad);
Num:=Num mod (5 * Rad);
if A > 0 then Result:=Result + c [i+1];
A:=Num div Rad;
if A = 4 then Result:=Result + c [i] + c [i+1]
else if A > 0 then
for j:=1 to A do Result:=Result + c [i];
end;
Num:=Num mod Rad;
Rad:=Rad div 10;
I:=I - 2;
end;
end;
function TForm1.Arabsky (Input: String): Integer;
const cS: String [7] ='IVXLCDM';
cV: array [1..7] of Integer = (1,5,10,50,100,500,1000);
var i,j,Last: integer;
begin
Last:=0;
Result:=0;
i:=Length (Input);
while i > 0 do
begin
j:=Pos (Input [i],cS);
if j >= Last then Result:=Result + cV [j] else Result:=Result - cV
[j];
Last:=j;
Dec (I);
end;
end;
Maro� �ipka
Problem s HP LJ 6P
[*] TucekR(zv)p15.monet(tec)cz - 13.7.1998 08:25:00
Nevite nekdo co s tim
pokud tisknu z QuickReportu v D3 (QR2.0j) na LJ 2P, 4L, 4P, 5L, 6L tak
je vse
v poradku. pokud ale tisknu na LJ 6P tak tiskarna at delam co delam chce
tisknout z rucniho zasobniku a nikdy jinak !!!!! TRTsoft
Windows ID
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 13.7.1998 08:34:20
Pod WINDOWS95 este existuje datum prvej instalacie systemu yapisane do registrov.
Nevzhodou je to ye nic podobne neexistuje pod NT .
Tungli
----------
> Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: Windows ID
> D�tum: 10. j�l 1998 11:55
>
> Martin Dupal wrote:
> >
> > Zdravim delfiny,
> >
> > nevite, jestli existuje ve Windows 95/NT nejake cislo, ktere
> > by bylo unikatni pro kazdou instalaci?
> > V kladnem pripade jak ho ziskat?
> >
>
> Ahoj,
> Slo by pouzit treba seriove cislo hardisku:
>
> function WinDriveSerialNumber: DWORD;
> var
> X: DWORD;
> D: array[0..MAX_PATH] of Char;
> begin
> GetWindowsDirectory(D, MAX_PATH);
> if not GetVolumeInformation(StrLCopy(D, D, 3), nil, 0, (zv)Result, X, X, nil, 0) then
> Result := 0;
> end;
>
> Pak me jeste napada Product-Id samotnych Windows, ale tam asi (hlavne v CR :-)
> moc velka jedinecnost nebude.....
>
> Pro Win95: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId
>
>
> Petr Vones, amatersky programator
>
> Prevod Arabskych na Rimske
[*] Rychetsk� Pavel PharmDr <rychetskyp(zv)mpsv(tec)cz> - 13.7.1998 08:36:50
>Hraju si trosku s prevodem arabskych cislic na rimske. Nektere
>"extremni" cisla mi ale nejsou jasna:
>(podtrzena jsou pro mne spravna)
>
> 899 : co je spravne CIM nebo ICM nebo DCCCIC ?
>
^^^^^^^^^^
> nebo jine podobne
>
> 949 : CMIL nebo DCDIL nebo DCCCCIL ?
> ^^^^^
>
>a jsou ruzna jim podobna.
>
>Diky za komentare.
>
>Motlicek Petr
Podival jsem se do nekolika latinskych mluvnic a z prikladu jsem odvodil
tato pravidla:
a) odecitat lze jen v rozsahu jednoho radu a odecitat lze jen I, X, C
- "povolene" kombinace jsou tedy IV, IX, XL, XC, CD, CM a specialita
IIX (=8) a jejich pouziti ve slozeninach
- z toho vyplyva zjednoduseni pro algoritmizaci prevodu - da se delat
po radech step by step
b) "odecitane" vyrazy neni nutno pouzivat (i kdyz vypadaji eleganne) -
vzdy je muzeme nahradit
- vyse uvedene lze tedy psat IIII, VIIII, XXXX, LXXXX, CCCC, DCCCC
vase priklady bych zapsal:
899 : DCCCXCIX
949 : CMXLIX
Pavel Rychetsky
Desktop Folder
[*] Miroslav Mare� <sctsoftmaker(zv)unl.pvtnet(tec)cz> - 13.7.1998 09:16:10
-----Puvodni zprava-----
Od: Stepan Cerny [SMTP:chaosz(zv)geocities.com]
Odeslano: 7. eervence 1998 16:05
Komu: DELPHI Distribution List
Poedmit: Re: Desktop Folder
To bohuzel funguje pouze ve W95.
Nakonec jsem to vyresil primym ctenim z registru na adrese:
* \Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders -
Desktop *
kde by mela byt cesta pro aktualniho uzivatele a fungovat by to melo jak
ve W95 tak i v WNT, ceske i anglicke verze.
Pokud si negdo najdete cas juknout se do registru na pocitacich s ne
zrovna obvyklou instalaci, a v pripade nesrovnalosti se ozvete, budu vam
neskonale vdecny !
Zatim jsem to testoval na W95-cze a WNT-ang.
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Vitizslav Gazda wrote:
> Pouzij API funkci SHGetDesktopFolder.
>
* Vita
u Win NT + service pack 3 to funguje taky
Miroslav Mares
I/O error
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 13.7.1998 09:32:41
Ahoj,
popsane chovani je typickou ukazkou neinicializovane hodnoty nebo
prepisovani vlastnich struktur v pameti. Napr. ve zdrojacich
generovanych programem Scanner.exe (pro rebuild pdx tabulek)
byla tato chybicka
function DoIt(a: DBINAME);
var b: DBINAME;
begin
b:='moc moc moc ... dlouhy retezec';
{ prirazeni do b modifikovalo a }
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
-----P�vodn� zpr�va-----
Od: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 12. srpna 1998 20:31
P�edm�t: RE: I/O error
Zdravim,
jeste jednou se vracim k problemu s chybou 267 (ERROR_DIRECTORY)
Situace: program bezi na NT4.0 CZ a porovnava dva adresarove stromy.
Data maji kolem 6 GB, asi 50.000 souboru v 7.000 adresarich
Vsechny souborove operace jsou osetreny TRY..EXCEPT..END. Presto
se objevuje chyba (okno s cervenym krizkem bez titulku - I/O Error 267).
Podarilo se mi vysledovat:
a)
Pokud jsou oboje data lokalnim disku NT - chyba se objevi.
b)
Pokud jsou jedny data na Novellu a jedny na NT (100MHz sit) - chyba se neobjevi
c)
Pokud jsou oboje data na Novellu, chyba se neobjevi.
d)
Pokud jsou data na CD a na NT, chyba se neobjevi.
e)
Kdyz se chyba objevi (program se zakousne na jednom souboru) - tak je to
opakovatelna chyba (staci kontrolovat jen nejnizssi adresar - treba 70 souboru)
f)
Postupnym odmazavanim souboru v adresari najednou chyba zmizi, i kdyz ten
inkriminovany soubor NENI vymazan.
g)
Dalsi den se chyba objevi jinde.
h)
Kdyz se vytvari kopie dat (druhy adresarovy strom), dela se to pomoci XCOPY z
Novella na NT. Nekolik souboru v cilove strukture na NT ma potom spatny cas
(01.01.1901). NEJSOU to ty soubory, na kterych se program zastavi.
i)
S podezrelymi soubory se da normalne pracovat, otevirat, cist, mazat, ....
CO TO JE ????????, PROC SE TO DEJE ???????? JSEM BLAZEN, A NEBO JE TO POMSTA
BILLA GATESE ???????
(NT jsou Workstation CZ 4.0 se servis packem 3)
S pozdravem Zdenek
---------------------------------------------------------------
: o__o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
: ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
---------------------------------------------------------------
This message was delivered using 100% recyclable electrons.
Zaokruhlovanie 2
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 13.7.1998 09:33:20
Posielam novu funkciu na zaokruhlovanie ktora funguje korektne.
Funkcia "zaokruhluj" fungoval zle preto lebo prevod cisla na retazec robi velmi
zaujimave veci:
Str(78.989:0:1,mS) dava mS:="79"
Str(78.4789:0:1,mS) dava mS="78.5"
Opravena funkcia:
function Zaokruhluj(pD:double; pSposob:byte; pFrac:integer):double;
var mL:integer;
i,j,k:integer;
mA:string;
begin
result:=pD;
if pD=0 then exit;
if (pSposob<=0) or (pSposob>3) then exit;
if pFrac>8 then pFrac:=8;
if pFrac<(-8) then pFrac:=(-8);
mL:=1;
for i:=1 to Abs(pFrac) do mL:=mL*10;
case pSposob of
1:;{Dole}
2:{prirodzene}
if pFrac<0 then pD:=pD+0.5*mL else pD:=pD+0.5/mL;
3:{hore}
if pFrac<0 then pD:=pD+mL else pD:=pD+1/mL;
end; {case}
if pFrac>=0 then Str(pD:0:8,mA) else Str(pD:0:0,mA);
i:=Pos('.',mA); if i=0 then i:=length(mA)+1;
j:=i+pFrac; if j<0 then j:=0;
if pFrac<0 then j:=j-1;
for k:=j+1 to length(mA) do if mA[k] in ['1'..'9'] then mA[k]:='0';
Val(mA,pD,i);
Result:=pD;
End; {}
TUNGLI Jan
tungli(zv)pvt.sk
Zacatecnik v Delphi
[*] Svatopluk Vit <vit(zv)ardo(tec)cz> - 13.7.1998 09:53:29
Zdravim vsechny kolem!
Sleduji obsah teto konference a taktez Vase odborne dotazy a nekdy mi
prijde lito, ze to jeste neumim jako vy vsichni. Proto bych mel takovyto
dotaz. Muzete mi nekdo odborne poradit jakou literaturu zvolit?
Mam jiz Mistrovstvi v Delphi 2 od Computer Pressu. Vim ze existuje nekolik
On-line tutorialu. Ktery je dobry (z vasich vlastnich zkusenosti).
Anglictina neni problemem....
Svatopluk Vit
zelenac v Delphi
begin 600 WINMAIL.DAT
M>)\^(AL(`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) $`% ```%IA8V%T96-N
M:6L(zv)=B!$96QP:&D`"0<!!8 #``X```#.!P<`#0`)`#4`'0`!`$4!`2" `P`.
M````S(zv)<'``T`"0`M`"X``0!.`0$)(zv) $`(0```$)%,#<R,S(zv)X,D0Q040R,3$X
M,S=",#!#,#9#-S$S,3(V`.<&`0.0!(zv)`H!0``(0````L``(zv)`!````"P`C````
M```#`"8```````L`*0```````P`N```````#`#8``````$ `.0!P/->T.ZZ]
M`1X`< `!````% ```%IA8V%T96-N:6L(zv)=B!$96QP:&D``(zv)%Q``$````6````
M`;VN.[/RB",'P!HM$=*#>P# ;'$Q)(zv)``'(zv)`># $````%````4TU44 `````>
M`!\,`0````P```!V:71 87)D;RYC>(zv)`#``80LS(zv)I, ,`!Q!D`0``'(zv)`($ $`
M``!E````6D12059)359314-(3EE+3TQ%35-,14152DE/0E-!2%1%5$]+3TY&
M15)%3D-%051!2U1%6E9!4T5/1$)/4DY%1$]405I904Y%2T1934E04DE*1$5,
M251/+%I%5$]*15-414Y%50`````"`0D0`0```!\"```;`(zv)``C(zv)(``$Q:1G40
M(5*6`P`*`')C<&<Q,C47`4,!- M(zv);(zv)X0,#(YG0'W( *D`^,"`&-H"L! <V5T
M,C,X```J=0+A80> ( <3`H '$R T0T4"(zv)'T*(zv) C((#N;"6\.,#4"(zv) J!=6,`
M4#T+`V,`00NV"K$*(zv)%IDR')A=(zv)=P('81,!#P$&YY(&L&\&5M(0L7!!<$4QB
M9'5J:0`(zv);V)S86(zv)(zv)=&410&\846YF!) )\&,E$A!A&E!A:QI(zv)>B#L5F$1,!GP
M9 ;(zv)!* 2$'1D;P&0>AA &V <D&NJ9!A ;1G(zv)< 40:(zv)$`B"!L:1J +"!Z$A#=
M&H%J!Y :8!U!=1VP%\#V:AN0&I!V&$ 7X W(zv)&" P:2X(zv)4 -(zv)&H%B>=L0\!V(zv)
M90,(zv)&X%O(# :(zv)?,<PR#0374>L!]!';$=4LL:D!Q&< 6P860>8!_39G4>0(zv)20
M870(<"4(zv)>M9V!O >8#\8RDT1\!\`:FD;T$T$`'0#8!?(zv)=),7H!?0($0AL'!H
M&>#.,APQ$O #<'!U)6$(zv)X6D'D'-U(-!6%[$>L64>>">Q&< ?4AAA:6L(zv)^$]N
M+1Y0')$EH!J !R*]*B%+)6$80"LA',!B+3'Z*!O0=AP`(($7T M(zv)'S C`P`A
M<7IK=1$P;F]I'S!I*2#000\(zv)'E!C_R^P$> =00,`'=$:`!B!&)"^+C&1&,LN
M(!J "U!U*["]*E!T%P0>L!B $>!C*%<O%P0*XPJ $T$`-= ``P`0$ `````#
M`!$0``````,`(zv)!#_____0 `',!!P\* ZKKT!0 `(,!!P\* ZKKT!"P``(zv) (zv)(zv)
M!(zv)``````P ```````$8``````X4````````#``* "" &``````# ````````
M1(zv)`````0A0````````,`!8 (( 8``````, ```````!&`````%*%``#P#(zv)``
M'(zv)`E(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````$````."XP``,`)H (
M( 8``````, ```````!&``````&%````````"P`O(zv) (zv)(zv)!(zv)``````P ``````
M`$8`````#H4````````#`#" "" &``````# ````````1(zv)`````1A0``````
M``,`,H (( 8``````, ```````!&`````!B%````````'(zv)!!(zv) (zv)(zv)!(zv)``````
MP ```````$8`````-H4```$````!`````````!X`0H (( 8``````, `````
M``!&`````#>%```!`````0`````````>`$. "" &``````# ````````1(zv)``
L```XA0```0````$`````````'(zv)`]``$````!``````````,`#33]-P``P1$`
`
end
Loadlibrary a parameter procedury ?
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 13.7.1998 10:20:37
-----Puvodni zprava-----
Od: Bielik Marian
Odeslano: 6. eervence 1998 13:08
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Loadlibrary a parameter procedury ?
Hi delfini !
Neskusal niekto odovzdavat nejake parametre funkcii ktora je volana
pomocou LoadLibrary ??? (alebo chcem nemozne?)
Za odpovede vopred vdaka.
Marian
...
begin
HInst:=LoadLibrary('Config.dll');
if HInst > 32 Then
begin
FPointer:=GetProcAddress(HInst,'GetConf');
if FPointer <> nil then
begin
MyProc:=Proc(Fpointer);
MyProc; <<<<<<<<<<<------------SEM POTREBUJEM DOSTAT PARAMETER
end
else Showmessage('Nenasiel som funkciu GetConf');
end
else Showmessage('Nenasiel som kniznicu Config.dll');
end;
[Petr Brant]
Kdysi jsem psal tohle, fungovalo to:
==========================
type
TCopy=function(i:integer):integer;
..........
..........
procedure MakeUpdate(what:integer);
var Handle: THandle;
CopyFiles:TCopy;
UpdateAudaPad:TAuda;
MsgText:string;
AudaPadDir:string;
begin
Handle := LoadLibrary(DLLName);
if Handle <> 0 then
begin
(zv)CopyFiles := GetProcAddress(Handle, 'CDUpdate');
if (zv)CopyFiles <> nil then
begin
form1.Animate1.Active:=True;
form1.Animate1.Visible:=True;
ret:=CopyFiles(what); <<<<<< zde je ten parametr
form1.Animate1.Active:=False;
.............ListView
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 13.7.1998 10:42:34
Zdravim,
jeden diletantsky dotaz: jak se lze odkazat na seznam oznacenych polozek
v TListView? S pozdravem
Libor Krayzel
Czech Television, Television Studio Ostrava
Dvorakova 18
729 20 Ostrava
Phone: (069) 6201 375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
Homepage: http://members.tripod.com/~sovtop
Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz
E-mail2: mailto:sovtop(zv)email(tec)cz Zaokruhlovanie 3
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 13.7.1998 11:00:59
Pre studium uvediem niekolko pripadov na ktorych je mozne zaokruhlovanie vyskusat:
4.401 zaokruhlujme hore na 1 desatinu vysledok 4.5
4.4001 zaokruhlujme hore na 1 desatinu vysledok 4.5
7101 zaokr. hore na cele stovky, vysledok 7200
4.499999999 zaokruhlujme na cele cislo prirodzene spravny vysledok by mal byt 5.0 lebo
cislo 4.499999.. je vlastne cislo 4.5
4.499999999 zaokruhlujme dole na 1 desatinu by mal byt 4.5 lebo cislo 4.499999.. je vlastne
cislo 4.5
123456789.1234567 zaokruhlujme na 6 desatin prirodzene , vysledok 123456789.123457
Uvedene priklady splnuje nasledujuca funkcia, ktora je sice pomala ale funguje dobre:
function Zaokruhluj(pD:double; pSposob:byte; pFrac:integer):double;
var mL:integer;
i,j,k:integer;
mA:string;
begin
result:=pD;
if pD=0 then exit;
if (pSposob<=0) or (pSposob>3) then exit;
if pFrac>8 then pFrac:=8;
if pFrac<(-8) then pFrac:=(-8);
if Frac(pD)>0 then begin {odsranenie nepresnosti vypoctu napr.4.999879}
Str(pD:0:8,mA);
i:=pos('.',mA);
j:=Pos('999',copy(mA,i+1,255));
if j>0 then begin
mL:=1;
for i:=1 to j+1 do mL:=mL*10;
if pD>0 then pD:=pD+1/mL else pD:=pD-1/mL;
end;
end;
mL:=1;
for i:=1 to Abs(pFrac) do mL:=mL*10;
if pD<0 then mL:=(-mL);
case pSposob of
1:;{Dole}
2:{prirodzene}
if pFrac<0 then pD:=pD+0.5*mL else pD:=pD+0.5/mL;
3:{hore}
if pFrac<0 then pD:=pD+0.9999*mL else pD:=pD+0.9999/mL;
end; {case}
if pFrac>=0 then Str(pD:0:8,mA) else Str(pD:0:0,mA);
i:=Pos('.',mA); if i=0 then i:=length(mA)+1;
j:=i+pFrac; if j<0 then j:=0;
if pFrac<0 then j:=j-1;
for k:=j+1 to length(mA) do if mA[k] in ['1'..'9'] then mA[k]:='0';
Val(mA,pD,i);
Result:=pD;
End; {}
TUNGLI Jan
tungli(zv)pvt.sk
stlacena komponenta
[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 13.7.1998 11:17:59
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute !
Mam nasledujuci problem ! Pomocou komponenty IMAGE som vo svojom formul�ry zobrazil tlacitko. Ked sa na to tlacitko klikne premenna A zvacsi svoju hodnotu. Otazka znie : ako zabezpecit aby sa hodnota premennej neustale zvacsovala pokial uzivatel drzi stlacene tlacitko ( aby nemusel stale cvakat, ked to chce zvacsit povedzme o 10 ).
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
ListView
[*] Martin Sasek <sasek(zv)ujep(tec)cz> - 13.7.1998 11:49:50
>Zdravim,
>
>jeden diletantsky dotaz: jak se lze odkazat na seznam oznacenych polozek
>v TListView?
>
ListView1.Items.Item[ index do seznamu polozek].Caption -> vlastni text
ListView1.Items.Item[ -""- ].Checked -> oznacena ? True/False
Martin Sasek, ORIMEX s.r.o.
programator-analytik
sasek(zv)orimex(tec)cz,sasek(zv)ujep(tec)cz
Integer?
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 13.7.1998 13:45:36
poradte, potrebuju pouzit co nejvetsi integer (longint nestaci) a navic
na nej aplikovat logicke funkce AND a OR, coz na napr. extended nejde.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
Integer?
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 13.7.1998 14:45:16
> poradte, potrebuju pouzit co nejvetsi integer (longint nestaci) a navic
> na nej aplikovat logicke funkce AND a OR, coz na napr. extended nejde.
Neber to jako provokaci, ale domnivam se, tezko budes hledat.
// COMP i CURRENCY jsou spis REALne typy
Pokud Ti jde o BOOLEANy, zkus mnozinu (256bitu [informace platna z dob turbopascalu] - po premapovani nejaky BYTEovym polem je celkem citelna)
nebo si proste alokuj
type neco : array[0..hmmm] of byte;
a prohlas to za "svuj" format. Udelat procedurky (fce.) na upravu takove potvory neni problem.[ale bude to asi nutne].
V assembleru jde Boolean dobre. scitani a odcitani pres carry (overflow?). Nasobeni je horsi. Nesnazil bych se o siny, koziny, odmocniny a jine kraviny, jez jsou domenou mat. kopru.
Pokud si budes chtit usetrit praci, nepremyslej nad zobrazenim v dekadicke soustave, ale radeji to cpi jako HEXA.
pokud pouzijes 8BYTEu, postara se Ti CPU castecne o nasobeni a deleni - ale jen castecne
tahle odpoved - pokud by nebyla - vedel by jsi to co drive.
Martin Tichacek
martin_t(zv)mrp(tec)cz
Integer a DLL a char *
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 13.7.1998 14:53:26
Este k tomu memu integeru. Udelal jsem si v C++ externi DLL, ktera jako
parametr potrebuje pointer na char a to same vraci. V Delphi to
inicializuju jako fce(Arg:Pchar):Pchar. Problem je v tom, ze fce nejak
nebere ten vstupni argument. Kdyz vytvorim DLL, ktera ma ten parametr
"natvrdo", tak v delphi se mi ten vysledek napise spravne. V cem je
problem, kdyz DLLku predavam PCHAR?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
komprese audia
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 13.7.1998 15:12:22
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Cau
neznate nahodou nekdo nejaky vhodny algoritmus pro komprimaci audiosignalu v realnem case (pro P100) (nebo nevite kde by se dala sehnat nejaka komponenta)??? Konkretne se mi jedna o komprimaci signalu se vzorkovacim kmitoctem 8KHz 8bit. Snazim se udelat jednoduchy internet phone. Stacil by mi kompresni pomer tak 1:2 hlavne aby byl bezztratovy. Premyslel sem o Huffmanove kompresi ale nevim jestli to je nejvhodnejsi metoda. Muze mi nekdo poradit???komprese audia
[*] epos(zv)pce.fairnet(tec)cz (Epos) - 13.7.1998 16:04:06
> Cau
> neznate nahodou nekdo nejaky vhodny algoritmus pro komprimaci =
> audiosignalu v realnem case (pro P100) (nebo nevite kde by se dala =
> sehnat nejaka komponenta)??? Konkretne se mi jedna o komprimaci signalu =
> se vzorkovacim kmitoctem 8KHz 8bit. Snazim se udelat jednoduchy internet =
> phone. Stacil by mi kompresni pomer tak 1:2 hlavne aby byl bezztratovy. =
> Premyslel sem o Huffmanove kompresi ale nevim jestli to je nejvhodnejsi =
> metoda. Muze mi nekdo poradit???
Zkuste to diferencialne (prenaset jen rozdily).
Petr
--
Petr Kristan
EPOS PRO s.r.o., Bozeny Nemcove 23 24, 530 02 Pardubice
tel./fax: (040)6335223-4, e-mail: epos(zv)pce.fairnet(tec)cz
Zacatecnik v Delphi
[*] Pavel Kral <kral(zv)afx(tec)cz> - 13.7.1998 16:05:29
Ahoj,
plati pravidlo: "Cim vic prectes, tim lip"
Ja jsem cetl krome Mistrovstvi v Delpi take Pruvodce vyvojare v Delphi (D1),
hlavni
prinos je ale reseni _vlastnich_problemu_na_nejake_aplikaci_, studium HELPU
a take
tato konference.
Mam vyzkouseno, ze kdyz si neco prectu a pripada mi to teoreticky jasne, tak
to prakticky je docela problem. A zase kdyz tomu nerozumim teoreticky a
prectu
si to znova, tak se to zlepsi, po nekolika pokusech a dalsim precteni je to
jeste
jasnejsi atd. atd.
Ja se drzim metody postupnych krucku. Delam to, cemu rozumim, pritom se vzdy
naucim neco noveho, co mi umozni udelat dalsi krok. Tak uz jsem usel docela
dlouhej
kus cesty.
Nic si nedelej z toho, ze nerozumis vsemu o cem se pise v konferenci, ja
taky ne. Muze to
trvat i rok-dva-..., nez budes "profik", vlastne vetsina z nas (snad krome
"amaterskych
programatoru" :) ) jsme tady "zacatecnici".
Mozna je to projev exhibicionismu, ale urcite ti tu radi poradime s tvymi
zacatecnickymi
problemy, sami jsme je meli...
Zdravim
Pavel Kral
-----Original Message-----
>Zdravim vsechny kolem!
>
>Sleduji obsah teto konference a taktez Vase odborne dotazy a nekdy mi
>prijde lito, ze to jeste neumim jako vy vsichni. Proto bych mel takovyto
>dotaz. Muzete mi nekdo odborne poradit jakou literaturu zvolit?
>
>Mam jiz Mistrovstvi v Delphi 2 od Computer Pressu. Vim ze existuje nekolik
>On-line tutorialu. Ktery je dobry (z vasich vlastnich zkusenosti).
>Anglictina neni problemem....
>
>Svatopluk Vit
>zelenac v Delphi
>
>
>
Integer a DLL a char *
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 13.7.1998 18:49:18
skus to v Delphi inicializovat ako
function fce(Arg : pointer) : PChar;...
a potom to skus pouzit takto:
const
nieco = 'Toto je nejaky text';
var
A : array[0..200] of char;
vysledok : PChar;
begin
StrPCopy(A,nieco);
vysledok := fce((zv)A);
end;
alebo tak nejako.
Pavel
-----P�vodn� zpr�va-----
Od: Kolar Lubor [SMTP:LuborK(zv)tnet(tec)cz]
Odesl�no: 13. j�l 1998 14:53
Komu: DELPHI Distribution List
P�edm�t: Integer a DLL a char *
Este k tomu memu integeru. Udelal jsem si v C++ externi DLL, ktera jako
parametr potrebuje pointer na char a to same vraci. V Delphi to
inicializuju jako fce(Arg:Pchar):Pchar. Problem je v tom, ze fce nejak
nebere ten vstupni argument. Kdyz vytvorim DLL, ktera ma ten parametr
"natvrdo", tak v delphi se mi ten vysledek napise spravne. V cem je
problem, kdyz DLLku predavam PCHAR?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
stlacena komponenta
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 13.7.1998 18:55:42
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
Odesl�no: 13. j�l 1998 11:18
Komu: Delphi
P�edm�t: stlacena komponenta
Caute !
Mam nasledujuci problem ! Pomocou komponenty IMAGE som vo svojom
formul�ry zobrazil tlacitko. Ked sa na to tlacitko klikne premenna A
zvacsi svoju hodnotu. Otazka znie : ako zabezpecit aby sa hodnota
premennej neustale zvacsovala pokial uzivatel drzi stlacene tlacitko (
aby nemusel stale cvakat, ked to chce zvacsit povedzme o 10 ).
nemam tu pri sebe Delphi ale teoreticky takto:
ked to robi uzivatel klavesnicou, ide to automaticky, chces to ale asi mysou co ? takze
zaved si timer, nech ti to hned nenabehne na milion, ked to podrzi stlacene no a udalost
buttonu (nejako onMouseDown alebo tak dajako) daj nejako do vztahu s timerouskou udalostou onTimer, kde inkrementujes a o jednu.
Pavel
Dik
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
<<Soubor: ATT00000.html>>
aaaach ta distribucia D4
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 13.7.1998 19:06:24
Rozhodol som sa kupit si Delphi4 Standard, to ze nieje mozny na tuto veriantu upgrade zo starsej verzie mi nevadi, pretoze cenovo je to velmi prijatelny produkt aj tak, ale stale som len v stave ze si ju kupi chcem, ale este stale nemozem. Na webe Borlandu(Inprisu) som si nasiel 3 dealerov na Slovensku a zacal telefonovat. V jednej firme mi povedali, ze by mali mat nove delphi skladom tak koncom mesiaca (snad), v druhej firme mi povedali, za im to pride od borlandu niekedy v septembri (3.01 upgrade ze dostali az po siestich mesiacoch od uvedenia na trh) a v dalsej firme ma clovek, co ma na starosti sw tam prave nebol, ale radsej uz nejdem ani skusat volat, pretoze sa asi dalej nedostanem a budem dufat, ze to na slovensko dorazi aspon na konci mesiaca.
Pavel
P.S. Pokial viete o niekom, kto by to bol schopny dodat skor, ozvite sa mi prosiiiiiiiiiiiiiiiiiiiiiim.Integer a DLL a char *
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1998 19:39:39
Kolar Lubor wrote:
>
> Este k tomu memu integeru. Udelal jsem si v C++ externi DLL, ktera jako
> parametr potrebuje pointer na char a to same vraci. V Delphi to
> inicializuju jako fce(Arg:Pchar):Pchar. Problem je v tom, ze fce nejak
> nebere ten vstupni argument. Kdyz vytvorim DLL, ktera ma ten parametr
> "natvrdo", tak v delphi se mi ten vysledek napise spravne. V cem je
> problem, kdyz DLLku predavam PCHAR?
Ahoj,
posli ten kus zdrojaku, pak to bude treba jasnejsi....
Petr Vones, amatersky programator
stlacena komponenta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1998 19:45:57
> Ing. J�n Kuch�r wrote:
>
> Caute !
> Mam nasledujuci problem ! Pomocou komponenty IMAGE som vo svojom formul�ry zobrazil tlacitko. Ked sa na to tlacitko klikne
> premenna A zvacsi svoju hodnotu. Otazka znie : ako zabezpecit aby sa hodnota premennej neustale zvacsovala pokial uzivatel
> drzi stlacene tlacitko ( aby nemusel stale cvakat, ked to chce zvacsit povedzme o 10 ).
> Dik
Ahoj,
V RxLib (http://rx.demo.ru) mas komponentu TRxSpeedButton. Ta umi opakovani udalosti
OnClick pri stisknutem tlacitku. Muzes si nastavit casy InitPause a RepeatInterval.
Jediny problem je ze Glyph ve SpeedButtonu muze byt jen bitmapa, takze pokud jako
Picture v tvem Image nepouzivas bitmapu tak by sis to musel zkonvertovat.
Petr Vones, amatersky programator
Zobrazovani forms
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1998 21:19:53
Jiri Kanda wrote:
> procedure TForm1.ZobrazForm2;
> begin
> if not Assigned(FindComponent('Form2'))
> then Form2:=TForm2.Create(self); {Form2 deklarovan v private}
> BRINGTOFRONT;
> ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);
> TForm2.Visible := True;
> end;
>
> Neda se konstrukce _FindComponent_ nahradit necim rozumejsim? Ja takhle
> zjistuji, zda je okno vytvoreno. V TForm2.OnClose je Action:=caFree (jak jsi
> mi poradil).
No, ono je to vlastne neco podobneho jako to tema "Systemove prostredky".
Je to par dni co to tu bylo, podivej se do archivu.
Petr Vones, amatersky programator
komprese audia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.7.1998 21:24:15
> sula milos wrote:
>
> Cau
> neznate nahodou nekdo nejaky vhodny algoritmus pro komprimaci audiosignalu v realnem case (pro P100) (nebo nevite kde by se
> dala sehnat nejaka komponenta)??? Konkretne se mi jedna o komprimaci signalu se vzorkovacim kmitoctem 8KHz 8bit. Snazim se
> udelat jednoduchy internet phone. Stacil by mi kompresni pomer tak 1:2 hlavne aby byl bezztratovy. Premyslel sem o Huffmanove
> kompresi ale nevim jestli to je nejvhodnejsi metoda. Muze mi nekdo poradit???
Ahoj,
Mozna by stalo za pokus pouzit uz neco hotoveho, treba NetMeeting. Muzes si
importovat ActiveX Conference Control do Delphi a pouzit. Bude se ti k tomu
hodit i NetMeeting SDK.
http://www.microsoft.com/netmeeting/sdk. Petr Vones, amatersky programator
aaaach ta distribucia D4
[*] �ke��k Jaroslav�������6�����̿ - 13.7.1998 21:39:09
Muzes ho koupit napr v Apro Praha
Ja to od nich mel vzdy rychle.
Tady je kontakt na pana Makrlika z obchodu:
Libor Makrl�k <makrous(zv)mbox.vol(tec)cz>
Myslim, ze dodavka na Slovensko jim nebude delat problem.
Ahoj Jaro
---------------------------------------
>Rozhodol som sa kupit si Delphi4 Standard, to ze nieje mozny na tuto
veriantu upgrade zo starsej verzie mi nevadi, pretoze cenovo je to velmi
prijatelny produkt aj tak, ale stale som len v stave ze si ju kupi chcem,
ale este stale nemozem. Na webe Borlandu(Inprisu) som si nasiel 3 dealerov
na Slovensku a zacal telefonovat. V jednej firme mi povedali, ze by mali mat
nove delphi skladom tak koncom mesiaca (snad), v druhej firme mi povedali,
za im to pride od borlandu niekedy v septembri (3.01 upgrade ze dostali az
po siestich mesiacoch od uvedenia na trh) a v dalsej firme ma clovek, co ma
na starosti sw tam prave nebol, ale radsej uz nejdem ani skusat volat,
pretoze sa asi dalej nedostanem a budem dufat, ze to na slovensko dorazi
aspon na konci mesiaca.
>
>Pavel
>
>P.S. Pokial viete o niekom, kto by to bol schopny dodat skor, ozvite sa mi
prosiiiiiiiiiiiiiiiiiiiiiim.Prace s Canvasem
[*] David Lukas <lukas(zv)ekochem(tec)cz> - 13.7.1998 22:58:20
Ahoj Richarde,
prave resim podobny problem (tisk a preview obalu CD). Jako prijatelne reseni se jevi umistit komponentu Image do komponenty ScrollBox. Dal si napis obecnou metodu CommonPaint, kterou budes kreslit jak na canvas obrazovky tak na canvas tiskarny (canvas ji jednoduse predas jako parametr). Metode CommonPaint take jako parametr predej meritko pro vykreslovani. Zmenou meritka pak muzes jednoduse ovlivnovat rozmer vykresleneho obrazku. Meritko take potrebujes protoze tiskarna ma jine rozliseni nez monitor.
Uvedeny postup funguje dobre, snadno se pak napriklad implementuje zoomovani nahledu (jednoduse menis meritko zobrazeni). Tim, ze pouzivas stejnou metodu pro kresleni jak na obrazovku tak na tiskarnu mas zaroven jistotu, ze nahled vicemene odpovida vytisku a nemusis hlidat dva kusy kodu, kdyz delas zmeny.
Tento postup jsem nasel v knizce, kterou ti i jinak vrele doporucuji - Marco Cantu: Mistrovstvi v Delphi 2, vydal Computer Press v cestine, 850 Kc, k dostani treba u BENa.
Pri reseni tisku a nahledu jsem se setkal s par dalsimi problemy (stanoveni spravne velikosti pisma, spravny tisk pri ruznych rozlisenich tiskarny, atd.), na ktere pravdepodobne narazis taky, vydas-li se touto cestou. Rad se s tebou podelim o zkusenosti. (Dulezite informace jsem mimochodem zjistil z archivu teto konference.)
Cau
David Lukas
lukas(zv)ekochem(tec)cz
Integer a DLL a char *
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 13.7.1998 23:12:16
Dne Mon, 13 Jul 1998 19:39:39 +0200 Petr Vones napsal:
> Kolar Lubor wrote:
> >
> > Este k tomu memu integeru. Udelal jsem si v C++ externi DLL, ktera jako
> > parametr potrebuje pointer na char a to same vraci. V Delphi to
> > inicializuju jako fce(Arg:Pchar):Pchar. Problem je v tom, ze fce nejak
> > nebere ten vstupni argument. Kdyz vytvorim DLL, ktera ma ten parametr
> > "natvrdo", tak v delphi se mi ten vysledek napise spravne. V cem je
> > problem, kdyz DLLku predavam PCHAR?
>
> Ahoj,
>
> posli ten kus zdrojaku, pak to bude treba jasnejsi....
>
> Petr Vones, amatersky programator
Takze ta fce v DLL psana v C++ je cca takto:
char __declspec(dllexport) *MojeFunkce(char *vstup)
{
int c, i, znak, counter=0;
/*
.... telo fce, ktere je v celku nezajimave a odzkousene, ze funguje.
Jako globalni promenna byl definovano
char Buffer[1024]
*/
return((char *)(&Buffer[1]));
}
No a v delphi se na to odkazuju takto:
Function MojeFunkce(Co: pointer): PChar; external 'testdll.dll' name
'_MojeFunkce';
At zkusim jako Co: pointer nebo Co:PChar, vzdy to je blbe. Hned v uvodu
mi totiz ta Cckova DLLka napise, co prijala za argument.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
Integer a DLL a char *
[*] Martin Fronek <FRONEK(zv)FIC.CZ> - 13.7.1998 23:43:58
Hi,
ne, ze bych nejak moc videl do pascalu, ale neni nahodou zavada v poradi
argumentu na zasobniku (pascal X C)?
existuje neco jako _stdcall a _pascal pred funkci ne?
fronek(zv)fic(tec)cz
Kolar Lubor wrote:
>
> Dne Mon, 13 Jul 1998 19:39:39 +0200 Petr Vones napsal:
>
> > Kolar Lubor wrote:
> > >
> > > Este k tomu memu integeru. Udelal jsem si v C++ externi DLL, ktera jako
> > > parametr potrebuje pointer na char a to same vraci. V Delphi to
> > > inicializuju jako fce(Arg:Pchar):Pchar. Problem je v tom, ze fce nejak
> > > nebere ten vstupni argument. Kdyz vytvorim DLL, ktera ma ten parametr
> > > "natvrdo", tak v delphi se mi ten vysledek napise spravne. V cem je
> > > problem, kdyz DLLku predavam PCHAR?
> >
> > Ahoj,
> >
> > posli ten kus zdrojaku, pak to bude treba jasnejsi....
> >
> > Petr Vones, amatersky programator
> Takze ta fce v DLL psana v C++ je cca takto:
> char __declspec(dllexport) *MojeFunkce(char *vstup)
> {
> int c, i, znak, counter=0;
> /*
> .... telo fce, ktere je v celku nezajimave a odzkousene, ze funguje.
> Jako globalni promenna byl definovano
> char Buffer[1024]
> */
> return((char *)(&Buffer[1]));
> }
>
> No a v delphi se na to odkazuju takto:
> Function MojeFunkce(Co: pointer): PChar; external 'testdll.dll' name
> '_MojeFunkce';
>
> At zkusim jako Co: pointer nebo Co:PChar, vzdy to je blbe. Hned v uvodu
> mi totiz ta Cckova DLLka napise, co prijala za argument.
> Lubor bIRDIE Kolar
> ====================
> GSM Phone: +420-603-410019
Off: MS SQL server - prace s atributy typu text
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 14.7.1998 00:30:36
Ahoj vsichni
Nevite prosim nekdo jak udelat v MS SQL databazi se dvema stejnymi tabulkami s jednim atributem typu TEXT nakopirovani jednoho zaznamu z jedne tabulky do druhe.
Klasicke INSERT INTO B SELECT FROM A WHERE MYID=100 funguje jen kdyz ma dany zaznam s MYID=100 textovy atribut dostatecne kratky (asi 255 znaku). Jinak to hlasi error a nepovede se to.
Na prikaz INSERT INTO B SELECT FROM A (tedy kopie vsech zaznamu) to hlasi error type text or binary mismasch nebo tak nejak.
Zkousel jsem uzit i READTEXT a WRITETEXT (podle MS SQL manualu), ale zkolabovalo mi to jiz na READTEXT - error DB-Library not installed nebo neco podobneho.
Vite-li nekdo jak na to, tak mi prosim napiste.
Diky, Ladislav Nagy
volani COM objektu z HTML
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 14.7.1998 01:24:11
Ahoj vsichni,
vytvorite-li si v Delphi vlastni ActiveX objekt, tak Vam Delphi vygeneruji HTML stranku s naloadovanim daneho objektu. Nevite nekdo jak z HTML volat metody interfacu daneho COMu.
Byl bych vdecny za jakoukoliv ukazku volani metody s parametry. Jde mi o syntaxi.
Diky, Ladislav Nagy
CAB/ZIP/RAR/ARJ... subory
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 14.7.1998 02:07:14
Nasiel som sadu komponentov pre Delphi 2/3 podporujucich kompresiu/dekompresiu 46 algoritmov pouzivanych pod OS DOS/WIN/UNIX. Skoda ze to este nie je free, ale share.
http://www.concentric.net/~twojags/index1.htm
P.S. Uz som ich kontaktoval ohladom dealerstva
Pavel Koutny, EMPEKO
CAB/ZIP/RAR/ARJ... subory
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 14.7.1998 02:33:29
Nasiel som sadu komponentov pre Delphi 2/3 podporujucich kompresiu/dekompresiu 46 algoritmov pouzivanych pod OS DOS/WIN/UNIX. Skoda ze to este nie je free, ale share.
http://www.concentric.net/~twojags/index1.htm
No free to je pre sukromne pouzitie, ako to poznam z distibucii komercneho sw, mnozstvo ich taketo komponenty vyuziva aj tak. Ale aj tak, ta praca so ZIP,CAB,LHA,ARJ,RAR,GZ,TAR,ARC... sa hodi, ci nie ???
Pavel Koutny
Pavel Koutny, EMPEKO
GetDesktopBackgroundData
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 14.7.1998 02:45:12
Vie mi nikto poradit ???
Potrebujem zhotovit proceduru, ktora by pri spusteni nacitala info o aktualnom tvare nejakeho vyrezu obrazovky, mam na mysli, ze po zavolani, nacita z obrazovky (napr. 800x600 na tom nezalezi) "obrazok" napr. s rozmerom 200x100 pixelov na suradniciach 300,100 az 500,200 a tieto ulozi do nejakej bitmapy, ktoru budem dalej spracovavat.
Pavel
Integer a DLL a char *
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 14.7.1998 08:01:30
-----Puvodni zprava-----
Od: Kolar Lubor
Odeslano: 13. eervence 1998 14:53
Komu: DELPHI Distribution List
Poedmit: Integer a DLL a char *
Este k tomu memu integeru. Udelal jsem si v C++ externi DLL, ktera jako
parametr potrebuje pointer na char a to same vraci. V Delphi to
inicializuju jako fce(Arg:Pchar):Pchar. Problem je v tom, ze fce nejak
nebere ten vstupni argument. Kdyz vytvorim DLL, ktera ma ten parametr
"natvrdo", tak v delphi se mi ten vysledek napise spravne. V cem je
problem, kdyz DLLku predavam PCHAR?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
[Petr Brant]
Napsal jsem asi pred rokem tohle a fungovalo to (neni to sice mezi C++ a D, ale snad to pomuze).
Patrne se bude muset misto stdcall napsat cdecl:
Deklarace v DLL:
************
function ZKFTips(database_dir,hcod,htcd:PChar):integer;export;stdcall;
************
procedure ShowHTML(k,l,m,n:integer;a:PChar; b,c:boolean); far; external 'htm1.dll';
function ExtractHTML(Herst,HTMLName:PChar; var text,extracted:PChar):integer; far; external 'WRHTMLIB.dll';
function DeleteFiles(f:PChar;var n:PChar):integer; far; external 'WRHTMLIB.dll';
function ExistHTML(Herst,HTMLName:PChar;var txt:PChar):bytebool; far; external 'WRHTMLIB.dll';
{$R *.DFM}
Volani z EXE:
program ZkfTipView;
uses
Unit1 in 'Unit1.pas';
{$R *.RES}
****************
function ZKFTips(database_dir,hcod,htcd:PChar):integer;stdcall;far;external 'zkf1.dll';
****************
begin
ZKFTips(PCHar('zzz'),PCHar('zzz'),PCHar('100'));
end.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************Prevod arabskych na rimske
[*] MotlicekP(zv)TESCOSW.CZ - 14.7.1998 08:30:35
Diky za vsechny odpovedi
Motlicek Petr
QRImage
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 14.7.1998 08:57:57
Zdravim,
nevite, prosim, nekdo o komponente jako QRImage,
ale zachovavajici proporce pri Stretch=True
Dik
GetDesktopBackgroundData
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 14.7.1998 08:59:16
-----Puvodni zprava-----
Od: Pavel Koutny
Odeslano: 14. eervence 1998 2:45
Komu: 'delphi(zv)pinknet(tec)cz'
Poedmit: GetDesktopBackgroundData
Vie mi nikto poradit ???
Potrebujem zhotovit proceduru, ktora by pri spusteni nacitala info o
aktualnom tvare nejakeho vyrezu obrazovky, mam na mysli, ze po zavolani,
nacita z obrazovky (napr. 800x600 na tom nezalezi) "obrazok" napr. s
rozmerom 200x100 pixelov na suradniciach 300,100 az 500,200 a tieto ulozi
do nejakej bitmapy, ktoru budem dalej spracovavat.
Pavel
[Petr Brant]
Takhle muzes ziskat obrazek CELEHO desktopu, tak si to uprav podle sveho.
NEZAPOMEN na ReleaseDC, zvlaste pro nekolikanasobne pouziti, jinak to bude
vesele uzirat resources a Windows se smichy neudrzej :-))
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
ScrnForm.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
ReleaseDC(GetDeskTopWindow,DeskTopDC);
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************Problem s HP LJ 6P
[*] mbartone(zv)synthesia(tec)cz - 14.7.1998 09:30:57
Nevite nekdo co s tim
pokud tisknu z QuickReportu v D3 (QR2.0j) na LJ 2P, 4L, 4P, 5L, 6L tak
je vse
v poradku. pokud ale tisknu na LJ 6P tak tiskarna at delam co delam chce
tisknout z rucniho zasobniku a nikdy jinak !!!!! TRTsoft
Mel jsem stejny problem s barevnou sitovou Minoltou.
Pomohlo mi v TReport nastivit Propertis
- PrinterSetings
- OutputBin - normalne je First, zmenil jsem to na Auto
Milan
Synthesia a.s.
GetDesktopBackgroundData
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 14.7.1998 09:58:23
Perfekt, take nieco som potreboval
dik moc
Pavel
-----P�vodn� zpr�va-----
Od: Petr Brant [SMTP:pbrant(zv)softhome.net]
Odesl�no: 14. j�l 1998 8:59
Komu: 'Konference Delphi'
P�edm�t: FW: GetDesktopBackgroundData
-----Puvodni zprava-----
Od: Pavel Koutny
Odeslano: 14. eervence 1998 2:45
Komu: 'delphi(zv)pinknet(tec)cz'
Poedmit: GetDesktopBackgroundData
Vie mi nikto poradit ???
Potrebujem zhotovit proceduru, ktora by pri spusteni nacitala info o
aktualnom tvare nejakeho vyrezu obrazovky, mam na mysli, ze po zavolani,
nacita z obrazovky (napr. 800x600 na tom nezalezi) "obrazok" napr. s
rozmerom 200x100 pixelov na suradniciach 300,100 az 500,200 a tieto ulozi
do nejakej bitmapy, ktoru budem dalej spracovavat.
Pavel
[Petr Brant]
Takhle muzes ziskat obrazek CELEHO desktopu, tak si to uprav podle sveho.
NEZAPOMEN na ReleaseDC, zvlaste pro nekolikanasobne pouziti, jinak to bude
vesele uzirat resources a Windows se smichy neudrzej :-))
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
ScrnForm.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
ReleaseDC(GetDeskTopWindow,DeskTopDC);
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
MSACCESS
[*] Vladislav �adsk� <cadsky(zv)a-consultplus(tec)cz> - 14.7.1998 10:46:45
Zdravim vsechny vubec poprve v konferenci
Mam problem:
Vytvoril jsem aplikaci prez MSACCESS v BDE451 a potreboval bych vedet
jestli nekdo nevi jake DLL knihovny a zapisy v registru jsou potreba pro spravnou instalaci
na pocitaci v nemz je pouze nainstalovany ODBC a ACCESS 97.
//------------------------------------
Dalsi problem:
(pouzivam DBE451, tabulka MSACCESS)
a:='1';
b:= tabulka.lookup('KeyFields', 'KeyValue', 'ResultField'); // vraci '2'
c:='3';
vysledek := a+b+c // vysledek = '12';
Proc ve vysledku chybi znak 3 to opravdu nevim. Jen vim, ze to spravi tento zapis
b := StrToPas(PChar(VarToStr(b))) sila co ? Jeste jednou upozornuji tato pro me zajimavost je jen s pripojenou tabulkou z MSACCESSu.
S pozdravem Vladislav Cadsky cadsky(zv)a-consultplus
Integer a DLL a char *
[*] Lubor Kolar <lubork(zv)tnet(tec)cz> - 14.7.1998 10:50:56
> Napsal jsem asi pred rokem tohle a fungovalo to (neni to sice mezi C++ a D, ale snad to pomuze).
> Patrne se bude muset misto stdcall napsat cdecl:
Diky moc, presne tohle je vono, jestlize je tam cdecl misto stdcall, uz
to funguje :-)))
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
zavreni controlu
[*] Honza Fiala <fala(zv)imc(tec)cz> - 14.7.1998 11:05:42
Cao,
potreboval bych poradit jak zavrit treba button uvnitr tridy. tzn. na event onClick v TButton zavolat korektne destroy.
Dik Honza
Remove
[*] Jiri Soudny <jsoudny(zv)comp(tec)cz> - 14.7.1998 12:15:17
-----P�vodn� zpr�va-----
Od: rwh(zv)istar.ca [SMTP:rwh(zv)istar.ca]
Odesl�no: 29. �ervna 1998 20:07
Komu: rwh(zv)istar.ca
P�edm�t: News From The Electricity Forum
Greetings From The Electricity Forum at: http://www.electricityforum.com
A recent survey of the internet found that you or your organization has an interest in electrical engineering. As such, we would like to bring your attention to our web site, which gets more than 170,000 hits per month!
We offer a FREE MEMBERSHIP to our web site, which gives you a regular e-mail newsletter about current North American electric utility industry news, corporate news and product information, as well as updates on our latest technical training seminars and conferences. Join the thousands of electrical industry professionals who are already FREE members.
We also have the largest and most complete on-line Transmission and Distribution Product Directory and Buyer's Guide with hundreds of leading T&D manufacturers and more than 900 product categories to browse.
Come visit our more than 1,500 pages for News, Forums, T&D Products, T&D Companies, Electricity Today Magazine, McGraw HIll Technical Books, Forums and Conferences, Industry Links, Product Showcases, Classifieds, Carreers, etc.
Thanks very much for your time,
Randy Hurst
President
rwh(zv)istar.ca
If you wish to be removed from this advertiser's future mailings, please reply with the subject "Remove" and this software will automatically block you from their future mailings.
DBF
[*] mstevlik(zv)gamo.sk - 14.7.1998 12:51:28
Nazdarek,
Potreboval by som zohnat nejaku free komponentu na pracu s dbf
tabulkami bez BDE a nutne to musi vediet
nacitat aj znaky mensie ako space (t.j. chr(0), chr(3) ...)
Moze byt aj pre paradox ...
Vopred Dik
Majkl
zavreni controlu
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 14.7.1998 12:56:58
Button.Free;
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Honza Fiala
> Odesl�no: 14. �ervence 1998 11:06
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: zavreni controlu
>
> Cao,
> �potreboval bych poradit jak zavrit treba button uvnitr tridy. tzn.
> na event onClick v TButton zavolat korektne destroy.
> �
> Dik Honza
Kde je myUE ?
[*] Jarda Sikora <sikora(zv)af(tec)czu(tec)cz> - 14.7.1998 12:58:13 met
V komore ...
Jaroslav Sikora Velikost a poloha komponent
[*] Zden�k Smol�k <smolik(zv)kpgroup(tec)cz> - 14.7.1998 13:47:39
Ahoj vsem
mam takovy maly dotaz.
Rad bych zjistil zpusob, kterym se da realizovat posun a zmena velikosti
komponent na formulari za behu programu. Neco jako kdyz navrhujete novy form primo v Delphi.
Dekuji vsem
smolik(zv)kpgroup(tec)cz
DBF
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 14.7.1998 13:49:29
Prave dorabam DBF komponentu, ktora by s tym nemala mat problemy. Potom ti to poslem.
-----P�vodn� zpr�va-----
Od: mstevlik(zv)gamo.sk [SMTP:mstevlik(zv)gamo.sk]
Odesl�no: 14. j�l 1998 12:51
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: DBF
Nazdarek,
Potreboval by som zohnat nejaku free komponentu na pracu s dbf
tabulkami bez BDE a nutne to musi vediet
nacitat aj znaky mensie ako space (t.j. chr(0), chr(3) ...)
Moze byt aj pre paradox ...
Vopred Dik
Majkl
Velikoneoce
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 14.7.1998 14:22:41
Zdar,
nevite nekdo, jak urcit pro kalendarni den fazi mesice, nebo jeste lepe, nemate nekdo rovnou nejakou funkcicku, ktera urci pro nejaky letopocet kdy budou velikonoce. To, ze velik. nedele je 1. nedele po 1. uplnku po 1. jarnim dnu vim taky, zajima me jak presne urcit tu fazi mesice a ted me napada, ze taky taky ten prvi jarni den nemusi vyjit v kazdem letopoctu na stejne datum.
Takze piste alespon, nejake hloupe napady, nebo lepe poslete hotovou funkci.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Tisk jednotlivych stran
[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 14.7.1998 16:15:13
Ahoj delfini,
mel bych jeden dotaz.
Tisknu na Canvas tiskarny dokument, ktery ma treba 6 stran a potreboval bych
nastavit, aby se mi vytiskly jen liche nebo sude strany. Nebo jestli to neni
mozne nastavit nekde u komponenty TPagePrinter?
Popr. by mi stacilo nejak nastavit cisla stranek ktera se maji vytisknout.
Nevim ale bohuzel jak.
Kdybyste nekdo vedel, prosim o pomoc.
Diky
Ricky...
rick.strunc(zv)email(tec)cz
rick.strunc(zv)writeme.com
ICQ: 13408022
Velikoneoce
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 14.7.1998 16:22:55
Uz to tady bylo. Hledej na http://www.delphi(tec)cz v konferenci Velikonoce.
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
Zdar,
nevite nekdo, jak urcit pro kalendarni den fazi mesice, nebo jeste lepe,
nemate nekdo rovnou nejakou funkcicku, ktera urci pro nejaky letopocet kdy
budou velikonoce. To, ze velik. nedele je 1. nedele po 1. uplnku po 1.
jarnim dnu vim taky, zajima me jak presne urcit tu fazi mesice a ted me
napada, ze taky taky ten prvi jarni den nemusi vyjit v kazdem letopoctu na
stejne datum.
Takze piste alespon, nejake hloupe napady, nebo lepe poslete hotovou funkci.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Velikost a poloha komponent
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.7.1998 17:42:31
> mam takovy maly dotaz.
> Rad bych zjistil zpusob, kterym se da realizovat posun a zmena velikosti
> komponent na formulari za behu programu. Neco jako kdyz navrhujete novy form primo v Delphi.
No proste se zmeni jeho pozice nebo velikost, jako se to dela
pri navrhu, tak se to da i normalne programem...
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Svatky
[*] Miki Vom��ka����h���h��� - 14.7.1998 17:55:09
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nemate nekdo nejakou komponentu (nebo neco jinyho), ktera vraci k datumu kdo ma svatek. Takovou tu klasiku jako Svatek m� Pepik napr. Nechtel bych to delat zbytecne.
Miki Vomacka
vmiki(zv)post(tec)cz
Resource Workshop
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 14.7.1998 18:06:33
Ahoj Delfici,
prosim vas, kde bych nasel Resource WorkShop??
Diky,
Peter ml.
Intesys B&R s. r. o.
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz
Poskozovani Paradox tabulek
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 14.7.1998 19:25:14
Ahoj!
Vyvijim aplikaci pod Delphi 3 s pouzitim Paradox tabulek. Zatim je to ve
vyvoji a je vyplnena jenom jedna tabulka, ktera ma asi deset polozek, z toho asi
polovinu typu memo. Tech zaznamu je v ni asi deset, jsou to prakticky konstanty
pro projekt.
Behem dneska se mi udaje v ni DVAKRAT poskodili! BDE vzdy tvrdilo "BLOB has
been modified" (data jsem v prubehu prace mirne upravoval) a nebyl jsem je
schopen vydolovat. Pritom se mi nestalo, ze by se mi predtim aplikace pri
editaci kousla, nedejboze aby spadnul system (ty NTcka jsou preci jenom o neco
stabilnejsi nez 95ky). Je tedy pravda, ze aplikace pri quitu nijak nezavira
tabulku, pouze pokud neni v browse modu tak udela post.
Nevite nekdo, jestli muze byt nekde zakopany pes, nebo jestli je to
standardni "spolehlivost" BDE?
Predem diky,
Michal Kara alias lemming
SN fyzickeho disku
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 14.7.1998 19:27:16
Cauu vsichni,
nevite prosim nekdo nahodou, jak zjistim seriove
cislo fyzickeho disku...ne logickeho,
ale vyrobni seriove cislo.
Dik
Poskozovani Paradox tabulek
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 14.7.1998 19:37:23
Ahoj :-)),
noo, ani to nebude spolehlivosti BDE, jako spis kvalitou paradoxnich
tabulek. Neustale se tady v konferenci omila, ze paradoxni tabulka s
memo polozkami je male peklo na zemi.
Dej se na interbasi a mas po podobnych problemech.
Uz jsem tomu zacal verit i ja, tak na tom snad neco bude :-)))).
Mej se bajecne,
Peter ml.
Intesys B&R s. r. o.
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz
Michal Kara wrote:
>
> Ahoj!
>
> Vyvijim aplikaci pod Delphi 3 s pouzitim Paradox tabulek. Zatim je to ve
> vyvoji a je vyplnena jenom jedna tabulka, ktera ma asi deset polozek, z toho asi
> polovinu typu memo. Tech zaznamu je v ni asi deset, jsou to prakticky konstanty
> pro projekt.
>
> Behem dneska se mi udaje v ni DVAKRAT poskodili! BDE vzdy tvrdilo "BLOB has
> been modified" (data jsem v prubehu prace mirne upravoval) a nebyl jsem je
> schopen vydolovat. Pritom se mi nestalo, ze by se mi predtim aplikace pri
> editaci kousla, nedejboze aby spadnul system (ty NTcka jsou preci jenom o neco
> stabilnejsi nez 95ky). Je tedy pravda, ze aplikace pri quitu nijak nezavira
> tabulku, pouze pokud neni v browse modu tak udela post.
>
> Nevite nekdo, jestli muze byt nekde zakopany pes, nebo jestli je to
> standardni "spolehlivost" BDE?
>
> Predem diky,
> Michal Kara alias lemming
Poskozovani Paradox tabulek
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 14.7.1998 20:04:37
> noo, ani to nebude spolehlivosti BDE, jako spis kvalitou paradoxnich
> tabulek. Neustale se tady v konferenci omila, ze paradoxni tabulka s
> memo polozkami je male peklo na zemi.
>
> Dej se na interbasi a mas po podobnych problemech.
>
> Uz jsem tomu zacal verit i ja, tak na tom snad neco bude :-)))).
>
Jo. Ale presvedcit uzivatele, ze si maji koupit k SW jeste za 6000 licenci
servery plus nejake klienty, to bude tezke, kdyz ten SW sam stoji radove tolik.
Zkousel jsem sehnat nejakou free databazi pod Wokna ale pohorel jsem, pod Linux
by byla - PostgreSQL, ale pod Wokna ne. A pokud bych chtel pouzit Access, musel
bych distribuovat DAO, o cemz mi v Microsoftu rekli, ze to separatne nejde -
uzivatel by si musel koupit Access. (Teda, technicky asi jde, ale legalne ne).
Michal Kara alias lemming
MSACCESS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.7.1998 20:15:47
Vladislav �adsk� wrote:
>
> Zdravim vsechny vubec poprve v konferenci
>
> Mam problem:
> Vytvoril jsem aplikaci prez MSACCESS v BDE451 a potreboval bych vedet
> jestli nekdo nevi jake DLL knihovny a zapisy v registru jsou potreba pro spravnou instalaci
> na pocitaci v nemz je pouze nainstalovany ODBC a ACCESS 97.
Cau :-)
Udelej to pomoci InstallShieldu, ten co je v D3 uz pocita s BDE 4.00, mel by tedy
byt schopen nainstalovat i driver pro Access95. Pro Acess97 ale tusim potrebujes
IDDA3532.DLL, ten si muzes rucne doplnit do group BDE/IDAPI files. Dalsi problem
patrne bude nastaveni parametru DLL32 u ACCESS driveru, to by melo jit zmenou
primo v registru coz se da taky udelat primo v InstallShieldu a to v :
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine\Settings\DRIVERS\MSACCESS\INIT
Tento postup jsem sice nezkousel, ale teoreticky by to mohlo fungovat. Budes si
s tim muset trochu zaexperimentovat....
>
> //------------------------------------
> Dalsi problem:
> (pouzivam DBE451, tabulka MSACCESS)
> a:='1';
> b:= tabulka.lookup('KeyFields', 'KeyValue', 'ResultField'); // vraci '2'
> c:='3';
> vysledek := a+b+c // vysledek = '12';
> Proc ve vysledku chybi znak 3 to opravdu nevim. Jen vim, ze to spravi tento zapis
> b := StrToPas(PChar(VarToStr(b))) sila co ? Jeste jednou upozornuji tato pro me zajimavost je jen s pripojenou tabulkou z MSACCESSu.
Zkousel jsem Lookup na Access tabulce (D2, BDE4.51, Office 95 CZ), jako databazi
jsem pouzil tu demo co je u Officu a fungovalo to bez problemu. Podle toho jak
to popisujes to vypada jakoby Lookup vracel chybne string.
procedure TForm1.Button1Click(Sender: TObject);
var
A, C, S: String;
B: Variant;
begin
A := '1';
B := '2'#0; <- tady, pokud bude obsahovat jeste #0 tak se to chova jako tobe
C := '3';
S := A + VarToStr(B) + C;
ShowMessage(Format('delka B: %d vysledek: "%s"', [Length(VarToStr(B)), S]));
end;
Zkus se podivat na delku B jestli se rovna jen 1. Pokud ne tak by to mohlo byt
ono, navic to ze pouziti konverze jakoby z PChar do String to opravi by tomu
napovidalo. Taky bych zkusil precist hodnotu te polozky primo pomoci FieldByName
jestli to bude stejne. V kazdem pripade je to zvlastni.... Petr Vones, amatersky programator
Kde je myUE ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.7.1998 20:29:25
Jarda Sikora wrote:
>
> V komore ...
... nozky ma nahore :-)
Velikonoce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.7.1998 20:31:51
Mgr. Petr Kellner wrote:
>
> Zdar,
> nevite nekdo, jak urcit pro kalendarni den fazi mesice, nebo jeste lepe, nemate nekdo rovnou nejakou funkcicku, ktera urci pro nejaky letopocet kdy budou velikonoce. To, ze velik. nedele je 1. nedele po 1. uplnku po 1. jarnim dnu vim taky, zajima me jak presne urcit tu fazi mesice a ted me napada, ze taky taky ten prvi jarni den nemusi vyjit v kazdem letopoctu na stejne datum.
>
Ahoj,
Tady to je, mam dojem ze uz to tu nekdy bylo a tohle je z toho prepsane:
function EasterSunday(Year: Integer): TDateTime;
var
A, B, C, D, F, G: Double;
E: Integer;
begin
A := Year mod 19;
B := Year mod 4;
C := Year mod 7;
F := 19 * A + 24;
D := F - (Int(F / 30) * 30);
G := (5 + 2 * B + 4 * C + 6 * D);
E := Trunc((G - (Int(G / 7) * 7)) + D + 22);
if E <= 31 then Result := EncodeDate(Year, 3, E) else
begin
if E - 31 >= 26 then E := 19 else Dec(E, 31);
Result := EncodeDate(Year, 4, E);
end;
end;
Petr Vones, amatersky programator
Triurovnova architektura
[*] �ke��k Jaroslav�������6�����̿ - 14.7.1998 20:44:01
Dotazoval jsem se primo na Borland (asi pred 4 mesici)
a dosla mi mailem odpoved. Bohuzel jsem ten mail uz nenasel.
Z odpovedi Borlandu jsem pochopil, ze pokud stredni vrstva
je na stejnem pocitaci jako klient, pak se neplati zadna licence.
Pokud je na jinem pocitaci (jedno kde), pak se plati jakasi
pausalni licence ve vysi asi 180.000,- Kc.
Jde zrejme o to, ze kdyz stredni vrstva bude jinde nez klient,
pak muze jedna vrstva obslouzit mnoho klintu a tim vyrazne usetrit
pocet licenci za server. K serveru se totiz hlasi stredni vrstva
a pocet tenkych klientu je pro server nezjistitelny.
Pokud jsem nahodou tu odpoved z Borlandu pochopil nespravne,
pak by bylo dob�, aby nekdo za Borland CZ kompetentni tuto
informaci pripadne opravil nebo doplnil.
Jaro.
-----------------------------------------------------------------
>Nova zprava:
>ad bod 3: Zalezi na licenci pro databazovy server , napr. Oracle ma i
>licence kde toto neplati (je formulovana asi tak ze pokud dostanes na
>obrazovku obsah databaze je jedno jak si ho ziskal (MIDAS, vystup CGI ... )
>ale musis mit licenci.Radekcena MIDAS: Nasel nekdo nekde popis licencovani
>MIDAS technologie ?? Jedna se me to zda kdyz pouziju napr. DCOM a pod zda
>musim mit licenci MIDAS. Proste jestli je nekde napsano - pokud pouzijete
>tu a tu komponentu musite mit na serveru licenci MIDAS.
>---------------------------------------------------------------
>Puvodni zprava:
>Triurovnova architektura (v Delphi 3.1 C/S technologie MIDAS,
>v Delphi 4 jiz ma byt COBRA compatibilni system)
>resi vazbu klientske stanice na server prostrednictvim
>stredni (treti) vrstvy. zavadi se pojem tzv. tenkeho klienta, ktery
>je dusledne oddelen od dat. Klient se obraci na stredni vrstvu,
>ktera je pak napojena na server zpravidla jiz klasickou cestou.
>Vyhody.
>1. Oddeleni uzivatelskeho prostredi od datovych struktur umoznuje
> vytvaret aplikace mene zavisle na pouzite datove zakladne.
>2. Umoznuje rozdeleni vykonu jedineho serveru na vetsi pocet
> vykonnych pocitacu na kterych bezi stredni vrstvy. Tim je umozneno
> lepe rozdelit vykon u systemu s velikym poctem klientskych stanic.
>3. Umoznuje vyraznym zpusobem omezit pocet nutnych licenci
> databazoveho serveru, protoze k serveru se prihlasi pouze
> software stredni vrstvy. Na kazdou stredni vrstvu lze napojit
> vice tenkych klientu bez nutnasti dalsich licenci.
>4. Umoznuje resit slozitejsi systemy i v sitich WAN.
>Nevyhody.
>1. Komplikovana parametrizace projektu a slozitejsi instalace.
>2. Vysoka cena licence MIDAS zabranuje pouzit toto reseni
> pro mensi projety (priblizne 200.000, Kc pro kazdeho zakaznika).
>Jaro
>----------------------------------------------------------
>>Zdravim !
>> Muzete me nekdo objasnit co je to "triurovnova architektura" a
>>na co je to dobry ?
>>
>> Diky moc.
>>
>> Boris
>Poskozovani Paradox tabulek
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 14.7.1998 20:45:40
Ahoj,
tenhle problem znam, sice to u me bylo o necem jinym, ale znam. Podivej
se, bud bude mit funkcni a dobre fungujici aplikaci na dtb serveru, nebo
bude mit to same na paradoxu (dbasi). V prvnim pripade usetri za tvoje
vyjezdy na opravu tabulek. Ale zkus mu predhodit nekolik cisel - zacni
treba takhle : "Jenom pri testovani mi to spadlo 2x, to znamena pri
uzaverce (nebo necem jinym) tak 4x, napotreti z toho ta data uz
nedostanu ..." :-)) mozna to vyjde :-)).
Mej se super,
Peter
Michal Kara wrote:
>
> > noo, ani to nebude spolehlivosti BDE, jako spis kvalitou paradoxnich
> > tabulek. Neustale se tady v konferenci omila, ze paradoxni tabulka s
> > memo polozkami je male peklo na zemi.
> >
> > Dej se na interbasi a mas po podobnych problemech.
> >
> > Uz jsem tomu zacal verit i ja, tak na tom snad neco bude :-)))).
> >
> Jo. Ale presvedcit uzivatele, ze si maji koupit k SW jeste za 6000 licenci
> servery plus nejake klienty, to bude tezke, kdyz ten SW sam stoji radove tolik.
> Zkousel jsem sehnat nejakou free databazi pod Wokna ale pohorel jsem, pod Linux
> by byla - PostgreSQL, ale pod Wokna ne. A pokud bych chtel pouzit Access, musel
> bych distribuovat DAO, o cemz mi v Microsoftu rekli, ze to separatne nejde -
> uzivatel by si musel koupit Access. (Teda, technicky asi jde, ale legalne ne).
>
> Michal Kara alias lemming
DBF
[*] svatos(zv)af(tec)czu(tec)cz - 14.7.1998 21:48:07 met
> Prave dorabam DBF komponentu, ktora by s tym nemala mat problemy. Potom ti to poslem.
Prosim, prosim, ja bych chtel takyyyyyyy !
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
D4 v SR
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 14.7.1998 21:58:28
Nakoniec som to objednal u SWS a za tyzden to mam mat doma.
Pavel
Delphi 4 - recenze
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.7.1998 21:59:44
Ahoj vsichni,
konecne mam Delphi 4 Profi na recenzi (tedy jen co si pro to zajdu).
Asi tak za 3 tydny bych mel mit i C/S. Proto vas zadam, kdo mate
nejake dotazy na toto tema, posilejte mi je, budu se je snazit
zodpovidat. Pokud jiz D4 nekdo ma a chtel by se podelit o nejakou
zkusenost, take uvitam zpravu. Zde nasbirane postrehy pouziju pri
psani recenze.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zaokrouhlovani - shrnuti
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 14.7.1998 22:00:02
Ahoj,
- diky za vsechny podnety
- bohuzel vetsina doslych namet byla nefunkcni, snad az na nastavovani CPU,
ktere jsem nezkousel
- nejvice problemu bylo pri prevodu na retezec a zpet, hlavne kvuli
nedefinovanemu chovani Val,Str,Format ...
- vlastni reseni (IntEx,TruncEx,RoundEx,RoundDownEx,RoundUpEx,RoundAri)
+ testovaci priklad jsem zverejnil na nasich strankach.
Je to zalozeno na znalosti poctu vyznamnych cislic za desetinnou carkou.
Napr. rovnost na nulu se netestuje pomoci
'bulharske konstanty' ABS(Value)<0.00000001, ale vychazi se z hodnoty
Value.
Cim vetsi je rad Value, tim mensi je pocet vyznamych cislic za carkou =>
jina hodnota pro test na nulu.
Rychlost je v pomeru 0.7:0.2 k rychlosti primocareho reseni
"Round(Value*10)/10".
- tesim se na vsechny kriticke ohlasy
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Poskozovani Paradox tabulek
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.7.1998 22:09:27
> Vyvijim aplikaci pod Delphi 3 s pouzitim Paradox tabulek. Zatim je to ve
> vyvoji a je vyplnena jenom jedna tabulka, ktera ma asi deset polozek, z toho asi
> polovinu typu memo. Tech zaznamu je v ni asi deset, jsou to prakticky konstanty
> pro projekt.
To vis, to je spolehlivost Paradox tabulek, zrovna jako dBase.
Pouzij nejaky SQL server a pro male a levne aplikace, kde se
to nevyplati, si kup napr. FlashFiler.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Resource Workshop
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 14.7.1998 22:33:51
Treba na CD Delphi RadPack
-----Original Message-----
From: Peter Rus <peterrus(zv)intesys(tec)cz>
To: DELPHI Distribution List <delphi(zv)io.pinknet(tec)cz>
Date: 14. �ervence 1998 18:14
Subject: Resource Workshop
>Ahoj Delfici,
>
>prosim vas, kde bych nasel Resource WorkShop??
>
>Diky,
>
>Peter ml.
>Intesys B&R s. r. o.
>
>mailto:peterrus(zv)intesys(tec)cz
>http://www.intesys(tec)cz
>
>
CopyFile
[*] Miki Vom��ka����h���h��� - 14.7.1998 23:14:38
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
kdo mi poradi s obycejnym kopirovanim souboru?
procedure TServiceFrm.BackBtnClick(Sender: TObject); {Z�lohov�n�}
var
NewDir, CurDir: String;
OldPat, NewPat: PChar;
begin
CurDir:= GetCurrentDir; {aktualni adresar}
if frmDir.ShowModal= mrOk then
begin
NewDir:= frmDir.edtDir.Text; {novy adresar}
OldPat:= PChar(CurDir+'\Price.dbf'); {puvodni soubor}
NewPat:= PChar(NewDir+'\Price.dbf'); {novy soubor}
CopyFile(OldPat,NewPat,False);
SetCurrentDir(CurDir);
ShowMessage('Hotovo');
end;
end;
Pokud napisu cesty do CopyFile natvrdo, vse funguje. Pri trasovani programu ukazuje promenna OldPat spravnou hodnotu, kdyz obdrzi svoji hodnotu promenna NewPat, obsah promenne OldPat ukazuje stejnou hodnotu jako NewPat. Matne vzpominam si, ze sem nekde cetl, pro PChar je potreba alokovat a uvolnit pamet, ale existuje neco, kde nemusi tolik psat kvuli kopirovani jednoho souboru?
Miki Vomacka
vmiki(zv)post(tec)cz
Poskozovani Paradox tabulek
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.7.1998 00:06:29
> > Dej se na interbasi a mas po podobnych problemech.
> >
> > Uz jsem tomu zacal verit i ja, tak na tom snad neco bude :-)))).
> >
> Jo. Ale presvedcit uzivatele, ze si maji koupit k SW jeste za 6000 licenci
> servery plus nejake klienty, to bude tezke, kdyz ten SW sam stoji radove tolik.
> Zkousel jsem sehnat nejakou free databazi pod Wokna ale pohorel jsem, pod Linux
> by byla - PostgreSQL, ale pod Wokna ne. A pokud bych chtel pouzit Access, musel
> bych distribuovat DAO, o cemz mi v Microsoftu rekli, ze to separatne nejde -
> uzivatel by si musel koupit Access. (Teda, technicky asi jde, ale legalne ne).
No tak si kup FlashFiler, to je velmi slusne reseni, pokud nepotrebujes SQL,
protoze to to neumi. Ale je to kompletni databaze Client/Server, nahrazuje
BDE, linkuje se do EXE, chodi na jednom pocitaci i v siti, pres NetBIOS,
IPX/SPX i TCP/IP, ma transakce, transakcni log... Vyvojare stoji 8 tisic
a pak ji muzes sirit bez omezeni, zakaznik neplati zadne poplatky. Blizsi
info mohu podat.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================CopyFile
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 15.7.1998 02:11:13
> kdo mi poradi s obycejnym kopirovanim souboru?
Uprava vypada takto :
procedure TServiceFrm.BackBtnClick(Sender: TObject); {Z�lohov�n�}
var
NewDir, CurDir: String;
OldPat, NewPat: String ;
begin
CurDir:= GetCurrentDir;
{aktualni adresar}
if frmDir.ShowModal= mrOk then
begin
NewDir:= frmDir.edtDir.Text;
{novy adresar}
OldPat:= CurDir+'\Price.dbf'; {puvodni
soubor}
NewPat:= NewDir+'\Price.dbf'; {novy soubor}
CopyFile( PChar(OldPat) , PChar(NewPat) ,False);
SetCurrentDir(CurDir);
ShowMessage('Hotovo');
end;
end;
McLEI
Delphi 4 - recenze dotaz
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 15.7.1998 06:29:36
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zajimalo by me jak je to vyreseno v Delphi 4 proti starsim verzim, Grafy, Internet a nejvic co noveho na tom hodnotite kladne.
dik
Milan Fiedler
DBF
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 15.7.1998 06:36:48
Zdravim,
Taktiez by som mal zaujem,
vdaka
Martin Talian
Geoplan spol. s r.o. , Kezmarok
e-mail: geoplan(zv)pp.sinet.sk
<Prave dorabam DBF komponentu, ktora by s tym nemala mat problemy. Potom ti
to poslem.<<Nazdarek,
<<
<< Potreboval by som zohnat nejaku free komponentu na pracu s dbf
<<tabulkami bez BDE a nutne to musi vediet
<<nacitat aj znaky mensie ako space (t.j. chr(0), chr(3) ...)
<< Moze byt aj pre paradox ...
Vopred Dik
Majkl
Zaokrouhlov�n�
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 15.7.1998 06:44:59
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
vetsinou vsechno zaokrouhluji na dve desetinna mista, ale upravit jinak to nen� probl�m, pouzivam jednoduchou funkci mozna je takova zacatecnicka ale funguje na 100%, aspon na to co potrebuji, ��k to zkuste.
function ZaokrouhliCislo( Cena : double) : double;
var i : double;
begin if Cena>0 then i := Cena*100+0.5
else i := Cena*100-0.5;
Result := (Int(i)/100);
end;
Milan Fiedler
ERROR EMPTYTABLE
[*] marsik(zv)zl.inext(tec)cz (Zdenek Marsik) - 15.7.1998 07:27:22
[P��loha v souboru: Err_uc.gif]
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
nevi nekdo, proc mi na jednom pocitaci s WIN95 OSR2 nejde vymazat tabulka typu DBASE pro WIN?
Na jinych pocitacich to jde. Chybove hlaseni viz priloha.
Kod je tento:
.
.
table2.close;
table2.emptytable;
.
.
pri emptytable vznika tato chyba a ja nevim proc.
Zdenek
bez BDE
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 15.7.1998 07:32:23
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Kdysi jsem cetl o komponentach aby pracovaly s tabulkami bez BDE ale nikdy jsem je nezkusil mysl�m si ze by to bylo moc dobre, mohu taky poprosit
diky
Milan Fiedler
milanf(zv)rts(tec)cz, Milanf(zv)Post(tec)cz <Prave dorabam DBF komponentu, ktora by s tym nemala mat problemy. Potom ti
to poslem.<<Nazdarek,
<<
<< Potreboval by som zohnat nejaku free komponentu na pracu s dbf
<<tabulkami bez BDE a nutne to musi vediet
<<nacitat aj znaky mensie ako space (t.j. chr(0), chr(3) ...)
<< Moze byt aj pre paradox ...
Vopred Dik
Majkl
Velikost a poloha komponent
[*] marsik(zv)zl.inext(tec)cz (Zdenek Marsik) - 15.7.1998 07:41:11
Pokud potrebujes zmenit vsechny komponenty kvuli ruznym rozlisenim obrazovky
tak je to SCALEBY. Zkus se podivat na
http://www.geocities.com/Eureka/Park/1193/zm_soft.html,
kde jsem to resil v programu SIFRUJ. Pokud je to ono co hledas tak se ozvi.
Zdenek
-----P�vodn� zpr�va-----
Od: Zden�k Smol�k <smolik(zv)kpgroup(tec)cz>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 14. �ervence 1998 15:06
P�edm�t: Velikost a poloha komponent
>Ahoj vsem
>mam takovy maly dotaz.
>Rad bych zjistil zpusob, kterym se da realizovat posun a zmena velikosti
>komponent na formulari za behu programu. Neco jako kdyz navrhujete novy
form primo v Delphi.
> Dekuji vsem
> smolik(zv)kpgroup(tec)cz
>
CopyFile
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 15.7.1998 07:52:07
Ja jsem zacal pouzivat ShFileOp, Vypada to pekne, pouziva to standartni
animaci.
var SH: TSHFileOpStructA;
F, S, T: String;
begin
S := 'P:\Aplikace\Data\';
F := S + 'FAZE.*'#0 + S + 'OSOBA.*'#0 + S + 'PROCES.*'#0 + S +
'SKUPINA.*'#0
+ S + 'VYROBEK.*'#0#0;
T := 'A:\';
if MessageDlg('Mohu kop�rovat do ' + T + ' ?', mtConfirmation, [mbYes,
mbNo], 0) <> mrYes
then
exit;
With SH do
Begin
Wnd:=0;
wFunc:=FO_COPY;
pFrom:=Pchar(F);
pTo :=Pchar(T);
fFlags:=FOF_FILESONLY;
End;
if shFileOperation(SH) = 0 then
ShowMessage('Export probihl vpoo�dku.')
else
MessageDlg('Kop�rov�n� neprobihlo vpoo�dku!', mtError, [mbOK], 0);
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
> -----P�vodn� zpr�va-----
> Od: Miki Vom��ka [SMTP:vmiki(zv)post(tec)cz]
> Odesl�no: 14. �ervence 1998 23:15
> Komu: DelphiForum
> P�edm�t: CopyFile
>
> Ahoj,
> kdo mi poradi s obycejnym kopirovanim souboru?
> �
> procedure TServiceFrm.BackBtnClick(Sender: TObject);� {Z�lohov�n�}
> var
> � NewDir, CurDir: String;�
> � OldPat, NewPat: PChar;
> begin
> � CurDir:= GetCurrentDir;�������������������������������������������
> {aktualni adresar}
> � if frmDir.ShowModal= mrOk then
> � begin
> ��� NewDir:= frmDir.edtDir.Text;�����������������������������������
> {novy adresar}
> ��� OldPat:= PChar(CurDir+'\Price.dbf');�����������������������
> {puvodni soubor}
> ��� NewPat:= PChar(NewDir+'\Price.dbf');��������������������� {novy
> soubor}
> ��� CopyFile(OldPat,NewPat,False);
> ��� SetCurrentDir(CurDir);
> ��� ShowMessage('Hotovo');
> � end;
> end;
> �
> Pokud napisu cesty do CopyFile natvrdo, vse funguje. Pri trasovani
> programu ukazuje promenna OldPat spravnou hodnotu, kdyz obdrzi svoji
> hodnotu promenna NewPat, obsah promenne OldPat ukazuje stejnou hodnotu
> jako NewPat. Matne vzpominam si, ze sem nekde cetl, pro PChar je
> potreba alokovat a uvolnit pamet, ale existuje neco, kde nemusi tolik
> psat kvuli kopirovani jednoho souboru?
> �
> Miki Vomacka
> vmiki(zv)post(tec)cz <mailto:vmiki(zv)post(tec)cz>
> �Soubor INI
[*] Lukes V�clav <lukes(zv)msm.pvt(tec)cz> - 15.7.1998 08:16:59
Ahoj,
mam na Vas maly dotaz. Muze mi nekdo poradit ohledne zapisovani a cteni
z INI souboru ?
Dle helpu se mi dari vytvorit INI soubor, zapsat do nej a nasledne i
cist, ale ma to jeden hacek.
Vim, jak dociliti napr. tohoto:
MOJE.INI
[SERVER]
PORT=23
HOST=server
Potreboval bych ale neco takovehoto:
[SEZNAM STROJU]
Stroj c. 1
Unixovy server
Postovni server
.
.
.
Potreboval bych do INI souboru zapsat a samozrejme i aktualizovat seznam
stroju, ktery bych pak byl schopen nacist do ListBoxu.
Take mi neni dost dobre jasne, jak zapisovat a cist takovyto radek v INI
souboru:
[SEKCE]
CISLO=23,56,7745,15
Diky
Vaclav Lukes
lukes(zv)msm.pvt(tec)cz