pascal.717mmitrovic,
-> #680, postmast::::: Treba napraviti zastitu nekih podataka ... tako ako neko udje
::::: neovlasceno u system ... nece se odma pojaviti shit ...
::::: nego ako oce da nesto upisuje !!!
To samo ovde može da ti prođe. Na zapadu za te stvari možeš po
CMA-u da popiješ do 2 godine izležavanja. Na račun države, naravno. :)
pascal.718mmitrovic,
-> #682, postmast::::: interapt myint.....
......
::::: end;
:)))))))
Bože, koje komplikacije. Zbog tako minornog problema. Ajd bar da niko
nije ostavio frame za hardw. interapt rutinu. :)
pascal.719mmitrovic,
-> #683, postmast::::: E nije bas tako jednostavno :(( Ono vazi za neke interapte (one koji
::::: nemaju ulazne parametre), ali ne i za sve (na primer 10h), jer paskal
::::: promeni vrednosti nekih ulaznih registara (pri inicijalizovanju
::::: interrupt procedure). Znaci mora se koristiti assembler :)
Pascal za prenos parametara u rutinu koristi pseudo-parametre.
Da sad ne prpisujem help, sve piše u BP HELPu pod "interrupt". Ako
nekom baš nije jasno,...
pascal.720evlad,
-> #715, mmitrovic<> To što hoće da napravi destruktivni program ga ne čini automatski
<> neiživljenim. Možda mu je neko gadno stao na žulj, pa hoće osvetu. ;)
Well kad smo kod osvete.
U bivšoj firmi je bila jedna _lady_ koja je puno _prosipala_ (NE)znanje
i niko kao ona & comp. Naravno osveta je pala:
Pošto je redovno koristila Brief editor, u njenom radnom diru je
napravljen mali programčić (u paskalu) koji se zvao baš B.EXE.
Program je zatamnio ekran, napisao zlokobnu poruku (ovako nekako ne sećam
se baš dobro ima tome već par godina ...)
_All data will be lost_
_Hard Disk formated xxx perent_
plus pištanje na speaker.
Naravno disk je ostao živ i zdrav, čisto je bila poruka na ekranu bez
ikakvih zlih posledica po podatke ili računar. E a da ste videli facu :)))
Uzneveren pogled levo desno i brzo ugasila računar. Pošto nas je bilo više
niko nije reagovao, dotična je otrčala kod šefa ... ( i šef je učestvovao
u tom projektu ali ona nikad to nije saznala ;>> ) Dođe ona sa šefom, upali
računar kad sve nornalno ... (standradna žvaka ko to koga, smejanje ...)
Dan danas se smejem kad se setim. Naravno od tada je osoba NN radikalno
prenenula svoj stav i sve se dobro završilo.
pascal.721postmast,
From: enikcevv@galeb.etf.bg.ac.yu (Vladimir Nikcevic)
Subject: Re: oslobodjene part1:memorija
Date: Fri, 28 Jul 1995 23:46:04 GMT
Article <806647902.AA04723@setnet.setnet.co.yu>,
Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic) :
> Jel' zna neko kako da oslobodim memoriju koju mi je zauzeo moj rodjeni
> rezidentni program?
Ctrl-Alt-Del? =;->
_\\|//_
0(` 0-0 ')0
---------------------------------ooO-(_)-Ooo----------------------------------
Nikcevic Vladimir, dipl-Ing.
Masinski Fakultet Beograd <enikcevv@ubbg.etf.bg.ac.yu>
______________________________________________________________________________
pascal.722postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: SCANHELP
Date: Wed, 26 Jul 1995 11:01:50
dm> You can get the current released version of Scanhelp from the
dm> ftp://garbo.uwasa.fi/pc/turbopas directory. It's scanh???.zip.
Da li neko moze da mi FTP-uje ovu datoteku? Nije mnogo dugacko,
a program je izvrstan za paskal programere.
SCANHELP omogucava da generisete Turbo Pascal HLP datoteke za svoje
Unit-e i da ih ubacujete direktno u TP IDE. Program generise HLP iz
komentara u samom Unit-u, tako da je odrzavanje dokumentacije izuzetno
jednostavno, tj. svodi se na imene u samim komentarima.
Help inace, moze biti generisan u jos nekoliko formata, izmedju
ostalog i TeX. Imam neku prilicno staru verziju a gore je
informacija gde se moze naci najnovija.
... BR> Opet si, Mihajlo, pogresio...
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.723postmast,
From: mirko@vesta.tmf.bg.ac.yu (Mirko Cetkovic)
Subject: Delphi (problem)
Date: Fri, 28 Jul 1995 11:02:49 GMT
pascal.724postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Wed, 26 Jul 1995 18:47:04
*>> Kad smo vec kod toga, kakva je razlika izmedju TP7 i BP7?
"L> 1. Integrisano okruzenje TP7 radi u realnom, a BP7 u protected modu.
"L> 2. BP7 (kao i BPW7) moze da generise kod za realni, protected ili
"L> Windows mod, a TP7 samo za ovaj prvi.
Cekaj, a sta je onda TPX.EXE ? Zar to nije TP7 u protected modu?
__ Pozdrav from Vladimir __
... "Ja ukapiram odmah, samo mi treba malo vremena."
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.725postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Wed, 26 Jul 1995 18:47:05
Hi,
Ja sam se skoro zabavljo problemom tastature, pa ti evo saljem i gotov
source :)
uses crt,dos;
var b,cb:byte;
w:word;
kmap:array[0..127] of boolean; {Mapa pritisnutih tastera}
int9:procedure;
procedure keybmap;interrupt;
begin
asm
in al,60h
mov b,al
and b,01111111b
mov cb,al
shr cb,7
mov al,0f7h
out 64h,al
end;
if cb=0 then kmap[b]:=true; {setuje i unsetuje podatke u mapi}
if cb=1 then kmap[b]:=false;
inline($9c);
int9;
end;
begin
getintvec($9,@int9);
setintvec($9,addr(keybmap));
repeat
gotoxy(1,1);
for w:=0 to 255 do {testira koji su tasteri pritisnuti}
begin
if kmap[w]=true then write(w) else write('.');
end;
until b=1;
end.
Ako ima nekih problema, mail me.
__ Pozdrav from Vladimir __
... Silver Xpress!...... Don't leave home without it!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.726postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: pascal
Date: Thu, 27 Jul 1995 00:20:46
*** CITAT : "Dejan Sekulic" ***
"S> Koristeci editor koji se dobija u izvornom kodu uz tp7.0 i
"S> pokusavajuci da ga prilagodim svojim potrebama
........
-Ako ti program radi sa samo jednim fajlom u isto vreme resenje je
jednostavno: FileName varijablu iz FileOpen procedure deklarisi kao
globalnu;
-Ako program radi sa vise fajlova moze se primeniti i metoda grube sile:
u nekom array-u pamti sve FileName koji su ucitani :)
( Ovo pisem iz glave jer nisam imao vremena da petljam po Browser-u ;),
a ako se ne varam onda bi trebalo da lako mozes saznati Title trenutnog
prozora (tj. ime fajla)).
-Ako si 'lud' k'o ja onda saznaj poziciju gornjeg levog ugla prozora pa
trazi po ekranskoj memoriji u toj liniji kod 32 (space), iza njega do
sledeceg 32 je ime fajla ;). Probaj, mozda ti i podje za rukom O:).
... Ko ima gliste nikad nije sam.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.728nlazic,
-> #724, postmast*> Cekaj, a sta je onda TPX.EXE ? Zar to nije TP7 u protected modu?
U mojoj instalaciji BP7 fajl TPX.EXE uopšte ne postoji. Evo opisa
kompajlera koji se isporučuju u paketu:
BP.EXE - IDE koji radi u DOS protected modu i generiše kod za DOS
real, DOS protected i WINDOWS platforme,
BPW.EXE - IDE koji radi pod WINDOWS-ima i generiše kod za DOS
real, DOS protected i WINDOWS platforme,
TURBO.EXE - IDE koji radi u DOS real modu i generiše kod za isti,
BPC.EXE - command-line komajler koji radi u DOS protected modu, a
generiše izvršni kod za sve tri platforme,
TPC.EXE - command-line komajler koji radi u DOS real modu i generiše
kod za real mode.
Pozdrav,
:) Nebojša :)
pascal.729dr.urbano,
Dali neko ima source mod-obj.obj( za manipulaciju mod fajlova)
Mozda ce cak boMMMMMMMMM Klje ako neko zna format .mod fajla (header i sl.)
Unapred hvala,
Vlada.
pascal.730vitez.koja,
Da li je moguce da u Delphi-ju nepostoje vec gotovi uobicajeni dijalozi
(Open File isl.) ? Ja nesto ne mogu da ih nadjem.
pascal.731dr.urbano,
Dali neko ima source mod-obj.obj (rad sa .mod fajlovima)
Jos bolje ce vrsiti pos'o ako neko zna format .mod fajla (header i sl.)
P.S.
Dali neko zna ka Kko da prebacim .wav --> .mod. Nisam dali moze direktno
da se konvertujeHH ili mora u neki drugi format pak onda u .mod.
Unapred zahvalan,
Vlada.
pascal.732postmast,
From: milan.stojanovic@rstones.durlan.co.yu (Milan Stojanovic)
Subject: Oslobodjene part1:mem
Date: Sat, 29 Jul 1995 11:27:00 CET
QWK To: Vladimir Nikcevic
> Jel' zna neko kako da oslobodim memoriju koju mi je zauzeo moj rodjeni
> rezidentni program?
VN> Ctrl-Alt-Del? =;->
MARK + RELEASE. Ima ih na skoro svakom BBS-u.
Piksi.
... You're a Redneck if you own a homemade fur coat.
--- Blue Wave/RA v2.12 [NR]
* Origin: BBLink <tm> * Rolling Stones * 018.325.314 * Nis (2:382/105.5)
pascal.733postmast,
From: Vladimir.Svrkota@f119.n111.z38.setnet.setnet.co.yu (Vladimir Svrkota)
Subject: Interrupt
Date: Wed, 26 Jul 1995 20:09:00
Samo da te podsetim, tema razgovora ( ili bolje 'razpisivanja' :)) je bio
neki TSR program u TP7.0 koji na pritisak tastera odgovara sa 'click'.
VS> -kako da se pri ponovnom pozivu programa proveri da li je vec ranije
VS> insta- liran i da se eventualno ispise poruka o tome?
VMZ> Na primer: Nadjes prvo neki slobodan port (ili memorijsku lokaciju). Stavis
VMZ> na port (ili mamoriju) prilikom prvog postavljanja novog interapta neku
VMZ> unaprerd definisanu vrednost. Kada se ponovo startuje program, on prvo
VMZ> ispita tu adresu, i tako zna da li je novi interapt vec instaliran.
Ovo je za sada OK. Probao sam i radi. Tu vrednost bacam na neku adresu u
RAM-u. Interesuje me koji su portovi obicno slobodni, posto mi memorija ne
deluje pouzdano jer tuda moze da vrslja bilo sta.
VS> -kako da se program deinstalira (neka mu se npr. prosledi parametar
VS> 'off' u komandnoj liniji) ?
VMZ> Prvo moras negde da sacuvas originalni interapt (disk) pre nego sto ga prvi
VMZ> put zamenis svojim. Kasnije, kada hoces da ga deinstaliras, samo ga nadjes
VMZ> tamo gde si ga sacuvao i postavis kao novi. Pri tom promenis i vrednost
VMZ> pominjanu u gornjem delu teksta i to je to :)
Originalni interapt sam sacuvao u memoriji ( 4 bajta interapt vektora $09 ) i
nije bilo problema. Pri ponovnom pozivu programa iz komandne linije sa para-
metrom 'off' tastatura prestaje da mi 'klikce', jer sam vektoru $09 vratio
staru vrednost. Ali(!), kad sam pokrenuo sysinfo, video sam da je program i
dalje u memoriji, tj da memorijski prostor koji je program zauzeo prilikom
prve instalacije _nije_ oslobodjen nakon vracanja stare vrednosti interapt
vektoru $09. Sta da se radi ?
VMZ> __ Pozdrav from Vladimir __
Takodje __ Pozdrav from Vladimir __ :)
... The Truth Is Out There...
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.734postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Thu, 27 Jul 1995 14:40:03
"C> Vlada, hvala ti na tako ekspresnom odgovoru, ali zamolio bih te da mi
"C> malo pojasnis pojedine stvari u funkciji(ako je moguce red po red).
"C> Ne znam zasto, ali cini mi se ipak da bih trebao da malo pojasnim moje
"C> pitanje. Evo i jedan primer sta bih ja zeleo da uradim:
Hi,
ne znam da li je ovo bas meni upuceno posto na SetNet sa Beointerneta ne
stize ima primaoca poruke, ali po sadrzaju mislim da jeste.
"C> Pretpostavimo da drzim istovremeno pritisnute tastere S i K. E sada
"C> ako pritisnem taster W onda treba da se izvrsi nesto, a ako pritisnem
"C> taster I onda treba da se izvrsi nesto drugo. Takodje i ako samo
"C> drzim pritisnut taster S pa dok je on pritisnut pritisnem taster W onda
"C> treba da se izvrsi isto ono.
Pa to je vrlo jednostavno , zamisli da taster 'W' ima kod recimo 40, a
taster 'I' kod 50. Ti treba samo da proveris da li su ti kodovi seetovani
u onom baferu, koji predstavlja mapu tastature. Stavis samo
IF KEYMAP[40] then bla bla bla...
Ako zelis recimo da detektujes kombinaciju tastera stavis
IF KEYMAP[40] AND KEYMAP[50] then bla, bla, bla...
Bez obzira da li su jos neki tasteri pritisnuti, uslov ce biti ispunjen ako
su istovremeno pritisnuti 'W' i 'I'. Nadam se da si ovo trazio, ali ako nisi
probaj malo blize objasniti problem, pa da resimo.
"C> Ne znam da li ikada probao igru kao sto je BATTLE ISLE isi HISTORY LINE.
"C> Hteo bih da uradim nesto kao u toj igri (mislim na nezavisno izvrsavanje
"C> odredjenih komandi koje igraci biraju putem tastature (to sto je jedan
"C> igrac pritisnuo svoje neke funkcionalne tastere uopste ne utice na to
"C> sto neki drugi igrac pritiska svoje)).
Pa da, to ti onaj program u potpunosti omogucava.
"C> Nadam se da si ukapirao sta mislim. Ako ti slucajno nije jasno, ostavi
"C> mi poruku, jer i sam moram da priznam da sam ovo iznad strasno
"C> zakukuljio i zamumuljio.
Mislim da jesam, ali ako nisam, ispravi me :)
__ Pozdrav from Vladimir __
... "Sliver" Xpress ..... the movie!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.735postmast,
From: Vladimir.Svrkota@f119.n111.z38.setnet.setnet.co.yu (Vladimir Svrkota)
Subject: pascal
Date: Thu, 27 Jul 1995 18:34:00
VMZ> getintvec($9,@int9);
VMZ> setintvec($9,addr(keybmap));
Kakva je razlika izmedju @ime_funkcije i Addr(ime_funkcije) ?
... The Truth Is Out There...
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.736mmitrovic,
-> #730, vitez.koja::::: Da li je moguce da u Delphi-ju nepostoje vec gotovi uobicajeni dijalozi
::::: (Open File isl.) ? Ja nesto ne mogu da ih nadjem.
Treba da ih bude, pošto ih ima u OWLu, a on je u potpunosti prenesen
u Delphi. U BPu je bio u BWCC.DLL fajlu (ako se ne varam, nisam skoro
ništa radio), a u Delphiu ne znam, pronjuškaj malo. :)
pascal.737nlazic,
-> #730, vitez.koja*> Da li je moguce da u Delphi-ju nepostoje vec gotovi uobicajeni
*> dijalozi (Open File isl.) ? Ja nesto ne mogu da ih nadjem.
Postoje. Nalaze se u VCL paleti , na strani DIALOGS.
Pozdrav,
:) Nebojša :)
pascal.738nlazic,
-> #733, postmast*> staru vrednost. Ali(!), kad sam pokrenuo sysinfo, video sam da je
*> program i dalje u memoriji, tj da memorijski prostor koji je program
*> zauzeo prilikom prve instalacije _nije_ oslobodjen nakon vracanja
*> stare vrednosti interapt vektoru $09. Sta da se radi ?
Pogledaj poruku 7.631. Tamo imaš rutinu za skidanje TSR-a iz memorije.
Pozdrav,
:) Nebojša :)
pascal.739andrejt,
-> #732, postmastTo: milan.stojanovic@rstones.durlan.co.yu (Milan Stojanovic)
Subj: Re: Oslobodjene part1:mem
Q> MARK + RELEASE. Ima ih na skoro svakom BBS-u.
Cini mi se da je trazio da program sam sebe obrise iz memorije...
Dakle ko god da je bio ova procedura ce mu uraditi posao:
---
Procedure UnLoad;
Type MCB = Record
Tok : Byte;
PID, Size : Word;
End;
Var Blk : ^MCB;
Adr : ^Word;
R : Registers;
Begin
R.AH := $52;
MsDos(R);
Adr := Ptr(R.ES, R.BX-2);
Blk := Ptr(Adr^, 0);
Repeat
If (Blk^.PID = PrefixSeg) then
Begin
R.AH := $49;
R.ES := Seg(Blk^)+1;
MsDos(R);
End;
If (Blk^.Tok = $4D) Then
Blk := Ptr(Blk^.Size+Seg(Blk^)+1, 0)
Else
Blk := nil;
Until (Blk=nil);
End;
pascal.740oki.,
-> #730, vitez.koja>> Da li je moguce da u Delphi-ju nepostoje vec gotovi uobicajeni dijalozi
>> (Open File isl.) ? Ja nesto ne mogu da ih nadjem.
Nije moguće :). Ima ih u Compenent Palette/Dialogs i to dva
komada, jedan za open, a jedan za save.
Prebaciš odgovarajući na formu i podesiš ga preko Object
Inspector-a, a sam poziv ide kao npr: OpenDialog1.Execute;
pascal.741bcvetkovic,
-> #734, postmastVlado, ova druga poruka nije bila namenjena tebi iz prostog razloga sto
do tada ni tvoja prva poruka nije pristigla, a uz to sve sam lepo ukapirao,
ali hvala ti. E, posto sam ja sve to lepo ukapirao i napisao programcic
koji radi upravo to sto bi trebalo da radi :) ,naisao sam na jedno ALI
(uvek postoji neko ali), a ono se sada sastoji u sledecem:
Posle odredjenog broja pritisaka na tastere, javlja se cuveno BEEP, a ja
ne znam kako da ga eliminisem, pogotovu zatotada dolazi do delimicne
blokade (prihvata tek peti ili ... pritisnuti taster). :((
Nadam se da ces znati ti ili neko drugi odgovor i na ovo moje pitanje. :)
Unapred zahvalan
Bosko.
pascal.742jovca.car,
-> #730, vitez.koja/* Da li je moguce da u Delphi-ju nepostoje vec gotovi uobicajeni dijalozi
CMDIALOG.VBX ?
pascal.743pedjak,
-> #724, postmast> Cekaj, a sta je onda TPX.EXE ? Zar to nije TP7 u protected modu?
Da, ova verzija kompajlera je sastavni deo Turbo Pascal 7.0 paketa.
Radi u zaštićenom modu i uopšte je prilično osakaćena verzija
BP.EXE koja dolazi sa Borland Pascal-om 7.0
pascal.744bcvetkovic,
-> #741, bcvetkovicUspeo sam da izbegnem BEEP-anje na sledeci nacin:
mem[$0:$41a]:=mem[$0:$41c]
Time sam pokazivac na pocetak bafera tastature preusmerio na kraj bafera
tastature i time ispraznio bafer.
pascal.745vitez.koja,
-> #740, oki.#=>>> Da li je moguce da u Delphi-ju nepostoje vec gotovi
#=>>> uobicajeni dijalozi (Open File isl.) ? Ja nesto ne
#=> mogu da ih nadjem.
#=>
#=>
#=> Nije moguće :).
Hvala svima na odgovoru :)
Vidim da ima ljudi koji se zanimaju Delphi-jem. Fino :) Šta imate
zanimljivo od dokumentacije u elektronskoj formi? Ja imam nekih
13 MB .PDF (Adobe Acrobat) dokumentaraca, skinutih sa CDa. Da li
postoji još nešto?
pascal.746postmast,
From: Sasa.Karapandzic@f123.n103.z38.setnet.setnet.co.yu (Sasa Karapandzic)
Subject: XMODE
Date: Sun, 30 Jul 1995 05:11:11
Nakon startovanja XMODE-a ekran izgleda ovako:
320x200
320x200
320x200
320x200
Da li je moguce setovati mod da ekran izgleda ovako:
320x200 320x200 320x200 320x200
... Silver Xpress!...... Don't Read Mail Without it!
* ■ Fucking A ■ 0101010101
* Origin: HELLAS BBS (Tel 28-31-387) Belgrade SETNET (38:103/123)
pascal.747postmast,
From: enikcevv@galeb.etf.bg.ac.yu (Vladimir Nikcevic)
Subject: Re: pascal
Date: Mon, 31 Jul 1995 20:26:34 GMT
Article <sezam$pascal:01.047.3948@sezam>,
"Vladislav Erdelji" <evlad@sezam.UUCP> :
> U bivsoj firmi je bila jedna _lady_ koja je puno _prosipala_ (NE)znanje
> i niko kao ona & comp. Naravno osveta je pala:
>
> Posto je redovno koristila Brief editor, u njenom radnom diru je
> napravljen mali programcic (u paskalu) koji se zvao bas B.EXE.
> Program je zatamnio ekran, napisao zlokobnu poruku (ovako nekako ne secam
> se bas dobro ima tome vec par godina ...)
> _All data will be lost_
> _Hard Disk formated xxx perent_
> plus pistanje na speaker.
> Naravno disk je ostao ziv i zdrav, cisto je bila poruka na ekranu bez
> ikakvih zlih posledica po podatke ili racunar. E a da ste videli facu :)))
> ...
> Dan danas se smejem kad se setim. Naravno od tada je osoba NN radikalno
> prenenula svoj stav i sve se dobro zavrsilo.
Simpaticna pricica, ruku na srce. Ima samo jedan problem. U stvarnosti,
takve price se obicno NE zavrsavaju dobro. Naime, osobe koje su sklone
"prosipanju" obicno jako lose razumeju humor na sopstveni racun.
Ismejavanje, pak, shvataju najcesce kao cist napad na njihov _fizicki_
integritet, i u skladu sa tim i reaguju. Ismejavanje je, naravno,
rastegljiv pojam, ali se pokazuje da takve osobe obicno imaju krajnje
krute stavove kada je njihova guza po sredi.
Zbilja je retko da takva "kazneno-popravna" akcija urodi DOBRIM plodom.
Obicno se, nakon takvog "zahvata" medjuljudski odnosi _bitno_ pogorsaju.
To pogorsanje, cak, ne mora biti "instantly" vidljivo. Pogodjena osoba se
pripremi, i pritaji cekajuci pogodan trenutak. Poruka na _tvom_ disku
mozda uopste _nece_ biti fake i slaba ce ti korist biti sto ces verovatno
znati ko je to mogao da ti uradi. Verovatnije je, medjutim, da ce kontra
akcija (zar neko misli da su dobre sanse da takva izostane?) biti sasvim
drugog tipa? Npr. spletka kod sefa? Ili sefovog sefa. Covek se iznenadi
kad vidi na sta su neki ljudi spremni, po cenu "osvete". Cak su spremni
i sebe da s..bu ako ce pri tom tebe s....ti malko vise.
NAPOMENA:
---------
Da me mlade generacije ;-) ne shvate pogresno, ne kazem da je goreopisana
prica nesto LOSE. Samo kazem da moja malenkost takvo sta NIKADA ne bi
uradila. Valjda sam bio jasan i zasto.
_\\|//_
0(` 0-0 ')0
---------------------------------ooO-(_)-Ooo----------------------------------
Nikcevic Vladimir, dipl-Ing.
Masinski Fakultet Beograd <enikcevv@ubbg.etf.bg.ac.yu>
______________________________________________________________________________
pascal.748postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Mon, 31 Jul 1995 17:14:01
VMZ>> getintvec($9,@int9);
VMZ>> setintvec($9,addr(keybmap));
VS> Kakva je razlika izmedju @ime_funkcije i Addr(ime_funkcije) ?
Jedno je za POINTER, a drugo za PROCEDURU (ne znam napamet koje je za sta, a
nemam pristup disku da pogledam).
__ Pozdrav from Vladimir __
... Rodney King joins FidoNet!....."Can't we all just get along?"
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.749postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: pascal
Date: Mon, 31 Jul 1995 11:32:15
"N> Dali neko zna ka Kko da prebacim .wav --> .mod. Nisam dali moze
"N> direktno da se konvertujeHH ili mora u neki drugi format pak onda u
"N> .mod.
Nece moci direktno. Naime WAV je sempl, a MOD je malo
komplikovaniji. On pored (vise) semplova, sadrzi i note
po kojima se ti semplovi sviraju. WAV treba da konvertujes
u RAW sempl pa da ga uvezes u neki MOD i tek tada moes da ga
odsviras.
Na Oreska BBS-u, u direktorijumu MUSIC mozes naci prilican broj
uputstava i pomocnih programa kojima sve ovo mozes da izvedes.
Source za MOD_OBJ tesko da ces naci na nekom BBs-u, ali zato ima
drugih sorce-ova.
... BR> Ruka ruku mije, a pesnica bije.
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.750postmast,
From: mboris@setnet.co.yu (Boris Milinkovic)
Subject: DELPHI
Date: Tue, 01 Aug 1995 01:00:12
Nije bas Pascal, ali....
Kada pisem neki program i uzmem FileOpen kao standardnu
proceduru za ucitavanje neke datoteke, kako da prevedem taj ceo
dijalog (znam za naslov).
Pozdrav,
Boris Milinkovic | mboris@fon.fon.bg.ac.yu
from Bajina Basta | mboris@setnet.co.yu
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.751postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: Phind da phile
Date: Mon, 31 Jul 1995 22:42:32
*** CITAT : Ognen Spiroski ***
OS> Vec podugacko vreme mucim se sa rutinu koja bi trebala naci fajl,
OK, evo ti jedna procedurica koja radi posao ;)
program sub_dir;
uses dos,crt;
var xx,c:string;i:integer;s:searchrec;
procedure dir(x:integer);
var f:searchrec;
begin
findfirst(xx,anyfile,s);
while doserror=0 do begin
{ write(' '); {ako hoces prikaz fajlova}
{ for i:=2 to x do write('│ ');
if x>0 then write('└-');
write('>',s.name);readln(c);
if c='f' then} writeln(' Found as ',fexpand(s.name));
findnext(s);end;
findfirst('*.*',$10 or 0,f);
while (doserror=0) do begin
if (f.name[1]<>'.') and (f.attr=$10) then begin
{ if x=0 then write('-') else write(' '); {Ako hoces prikaz dirova}
{ for i:=2 to x do write('│ ');
if x>0 then write('└-');
writeln(f.name);
if c='q' then halt(1);}
chdir(f.name);
dir(x+1);
end;
findnext(f);
end;
if x>0 then chdir('..');
end;
BEGIN
clrscr;
xx:=paramstr(1);
dir(0);
END.
... Poruka bez TAGa je k'o WINDOWS bez baga :)
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.752postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: Interrupt
Date: Mon, 31 Jul 1995 17:14:00
VMZ>> na port (ili mamoriju) prilikom prvog postavljanja novog interapta neku
VMZ>> unaprerd definisanu vrednost. Kada se ponovo startuje program, on prvo
VMZ>> ispita tu adresu, i tako zna da li je novi interapt vec instaliran.
VS>
VS> Ovo je za sada OK. Probao sam i radi. Tu vrednost bacam na neku adresu u
VS> RAM-u. Interesuje me koji su portovi obicno slobodni, posto mi memorija
VS> ne deluje pouzdano jer tuda moze da vrslja bilo sta.
Mozda ja najsigurnije cak zauzeti neki slobodni softverski interapt (ne znam
tacno koji su slobodni, pogledaj u PCHELP-u, ako imas). Trenutno ne mogu da
probam, radim sa disketa (!!!).
VS> Originalni interapt sam sacuvao u memoriji ( 4 bajta interapt vektora
VS> $09 ) i nije bilo problema. Pri ponovnom pozivu programa iz komandne
VS> linije sa para- metrom 'off' tastatura prestaje da mi 'klikce', jer sam
VS> vektoru $09 vratio staru vrednost. Ali(!), kad sam pokrenuo sysinfo,
VS> video sam da je program i dalje u memoriji, tj da memorijski prostor
VS> koji je program zauzeo prilikom prve instalacije _nije_ oslobodjen
VS> nakon vracanja stare vrednosti interapt vektoru $09. Sta da se radi ?
Problem mi je poznat, ali resenje nazalost nije :(((
__ Pozdrav from Vladimir __
... "Ako bude bio smak sveta, odlozicemo kontrolni."
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.753kriss,
-> #720, evlad˙˙ napravljen mali programčić (u paskalu) koji se zvao baš B.EXE.
Heh, ču li ti za alfa-petlju? :))
pascal.754kriss,
-> #668, vitez.koja˙˙# => -kako da se pri ponovnom pozivu programa proveri da li
˙˙# => je vec ranije insta- liran i da se eventualno ispise
˙˙ Postoji više načina da se ovo postigne, a najjednostavniji je
Još jedan način je da tvoja int rutina počinje sa
jmp preko
db "Moj string za prepoznavanje mog TSR-a ;)"
preko: (...)
pa ti onda ne treba još jedan int. Provera se sastoji da na adresi_na
koju_pokazuje_int_vektor+koliko_bajtova_zauzima_jmp proveriš da li se
nalazi tvoj string (naravno ne onoliko dugačak :) i to je to ... :)
Lično više preferiram drugu (ovu) metodu, jer sve ostaje unutar jednog
int-a. Međutim, obe imaju mane. Dobre strane detekcije preko drugog
interapta je što će program znati da je instaliran iako se neki drugi
programi "ulančaju", tj. preuzmu isti int posle instaliranja tvog
tsr-a (česte, da ne kažem normalne pojave, su sa int-ovima 08 i 09).
Loša strana je što ako neki program preuzme int koji služi za
detekciju (malo verovatno) više nemaš pouzdanu informaciju da li ti je
program već instaliran. Druga metoda je dobra ako se tvoj program
instalira zadnji. Ako to nije slučaj, i neki drugi program se
instalira "preko" tvog, gubiš podatak da li "si već u memoriji ili
ne". Dobra strana ove metode je što se ne "rasipaš", već ostaješ samo
na jednom interaptu.
Naravno, najbolje je iskombinovati, ali je često nepotrebno. :)
Za rekte (ekstremne) slučajeve, kada neki program voli potpuno iste
interapte kao i tvoj (onda se kaže da se programi ne slažu), nema ti
spasa ... sem ako se koristiš nekim prljavim trikovima, poput virusa
na primer.
pascal.755postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: Interrupt
Date: Tue, 01 Aug 1995 11:27:53
VS> vektoru $09 vratio staru vrednost. Ali(!), kad sam pokrenuo sysinfo,
VS> video sam da je program i dalje u memoriji, tj da memorijski prostor
VS> koji je program zauzeo prilikom prve instalacije _nije_ oslobodjen
VS> nakon vracanja stare vrednosti interapt vektoru $09. Sta da se radi ?
VMZ> Problem mi je poznat, ali resenje nazalost nije :(((
Ja se ne bih previse uzbudjivao. Ako je program poslednji podignut
kao reidentan, onda se moze osloboditi memorija koju je zauzeo. Ako
se iza njega podigne jos neki rezidentan program, onda se stvar
komplikuje. Najcesce, cak i ako oslobodis memoriju, to ce ostati kao
rupa i nece ni biti upotrebljeno.
... Ako hoces da nesto bude uradjeno, moras to sam uraditi.
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.756postmast,
From: Vladimir.Svrkota@f119.n111.z38.setnet.setnet.co.yu (Vladimir Svrkota)
Subject: Re: Interrupt
Date: Tue, 01 Aug 1995 10:54:00
VS> video sam da je program i dalje u memoriji, tj da memorijski prostor
VS> koji je program zauzeo prilikom prve instalacije _nije_ oslobodjen
VS> nakon vracanja stare vrednosti interapt vektoru $09. Sta da se radi ?
VMZ> Problem mi je poznat, ali resenje nazalost nije :(((
Svejedno, nemoj da ocajavas :) . I do sad su mi tvoje poruke bile od velike
koristi.
CU, Vladimir.
... The Truth Is Out There...
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.757isekulovic,
Kako u Delphi-u izvesti da jedan npr. form1 pozove drugi npr. form2
i ugasi se, s tim da kad se napusti form2 završi se program, a ne
da se zaglupi?
Da li sam mogao biti nejasniji?
Da probam ovako, treba mi ovo:
Prvi form po startovanju programa npr. sadrži neki natpis, ili
unos lozinke ili tako nešto što je potrebno samo pri startovanju.
On se gasi (close) i poziva form2 (show) koji je glavni deo programa.
Form2 šljaka neko vreme i onda treba da se zatvori preko SystemMenu-a
("-") ali kad se zatvori treba i program da se završi a ne da proba
da vrati kontrolu form1 jer pošto je on ugašen ima da se zablentavi.
Ivan
PS Naleteo sam i na jednu dosadnu nelogičnost Delphi-a, pa ako
je neko uspeo da je zaobiđe bio bih mu zahvalan. Ako se stavljaju
kontrole na form koji po startovanju treba da bude maximized, a pri
stavljanju on nije maximized već se krećete sa scroll bar-ovima po njemu
ako scroll bar-ove ne vratite na gornji levi ugao form-a po startovanju
on neće izgledati kao što bi trebao, već će biti kontrole biti pomerene
gore i ulevo.
pascal.758vlador,
-> #720, evlad> _All data will be lost_
> _Hard Disk formated xxx perent_
> plus pištanje na speaker.
Isto smo mi uradili profesorici programiranja koja ne zna ni
tastaturu da koristi i to baš za 1. april. ;) Samo što nije bio
u pitanju brief nego fortran kompajler. Trebalo je da je vidite
kako panično maše ručicama kao da hoće da odleti što dalje odatle. ;)
pascal.759postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: Interrupt
Date: Wed, 02 Aug 1995 23:57:00
VMZ>> Problem mi je poznat, ali resenje nazalost nije :(((
PS> Ja se ne bih previse uzbudjivao. Ako je program poslednji podignut
PS> kao reidentan, onda se moze osloboditi memorija koju je zauzeo. Ako
PS> se iza njega podigne jos neki rezidentan program, onda se stvar
PS> komplikuje. Najcesce, cak i ako oslobodis memoriju, to ce ostati kao
PS> rupa i nece ni biti upotrebljeno.
Pa pricaj covece ako znas, sta cekas :) Dovoljno je i to.
__ Pozdrav from Vladimir __
... Thought of the day....... To QuaWK or not to QuaWK?
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.760postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Wed, 02 Aug 1995 23:57:02
"C> Posle odredjenog broja pritisaka na tastere, javlja se cuveno BEEP, a ja
"C> ne znam kako da ga eliminisem, pogotovu zatotada dolazi do delimicne
"C> blokade (prihvata tek peti ili ... pritisnuti taster). :((
"C> Nadam se da ces znati ti ili neko drugi odgovor i na ovo moje pitanje.
"C> :)
Mislim da znam do cega je problem, ali ne mogu nista sada da probam :( Cim
osposobim hard, pogledacu.
__ Pozdrav from Vladimir __
... Silver Xpress!...... Don't Read Mail Without it!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.761postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Wed, 02 Aug 1995 23:58:03
>> Cekaj, a sta je onda TPX.EXE ? Zar to nije TP7 u protected modu?
"K> Da, ova verzija kompajlera je sastavni deo Turbo Pascal 7.0 paketa.
"K> Radi u zasticenom modu i uopste je prilicno osakacena verzija
"K> BP.EXE koja dolazi sa Borland Pascal-om 7.0
A kako doci do BP.EXE ? (ima li negde dostupno)
__ Pozdrav from Vladimir __
... Mail Media. Do not expose to Flames!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.762pyramid,
-> #757, isekulovic>> Kako u Delphi-u izvesti da jedan npr. form1 pozove drugi npr. form2
>> i ugasi se, s tim da kad se napusti form2 zavrsi se program, a ne
>> da se zaglupi?
Napravis OnCreate event handler za form2 na sled. nacin:
procedure TForm2.OnCreate(Sender:TObject);
begin
Form1.Hide;
Form2.ShowModal;
end;
ovo ce ti prvo prikazati form2, a cim ga korisnik zatvori prikazati form1...
pascal.763visnja,
-> #757, isekulovic> Prvi form po startovanju programa npr. sadrži neki natpis, ili
> unos lozinke ili tako nešto što je potrebno samo pri
> startovanju. On se gasi (close) i poziva form2 (show) koji je
> glavni deo programa. Form2 šljaka neko vreme i onda treba da se
> zatvori preko SystemMenu-a ("-") ali kad se zatvori treba i
> program da se završi a ne da proba da vrati kontrolu form1 jer
> pošto je on ugašen ima da se zablentavi.
Nisam radio u delphi-ju, ali ako to imalo lici na OWL ili turbo viziju
ili Visual Basic probaj ovako:
PO STARTOVANJU PROGRAMA prvo kreiras form2 koji treba da bude
NOT VISIBLE i koji poziva form1 (neki natpis ili unos lozinke).
Kada zavrsis form1 on vraca kontrolu form2, i usput form2 postavis
da bude VISIBLE ili tako nekako. Dakle form2 je gazda i kada sada
napustis aplikaciju sve je OK.
Nadam se da ce pomoci.
pascal.764vitez.koja,
-> #757, isekulovic#=> Prvi form po startovanju programa npr. sadrži neki
#=> natpis, ili unos lozinke ili tako nešto što je potrebno
#=> samo pri startovanju. On se gasi (close) i poziva form2
#=> (show) koji je glavni deo programa.
He he ;) Ne radi se to tako.
Za početak napraviš dva forma. U Project Manageru proglasiš Form1
za glavni, a Form2 prebaciš iz Auto Create u Available grupu.
(Ako ti nije jasno šta se ovim postiže, pitaj:)
Sada edituješ glavni program (Ctrl+F12, Project1, ako ništa nisi
menjao). Tamo ćeš da vidiš nešto ovako:
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
To sada prepraviš u:
var
Form2: TForm2;
begin
Form2:=TForm2.Create(Application);
Form2.ShowModal;
Form2.Hide;
Form2.Free;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
i dobijaš ono što si tražio :)
pascal.765postmast,
From: Knezovic.Bojan@f133.n103.z38.setnet.setnet.co.yu (Knezovic Bojan)
Subject: Delphi&Access
Date: Fri, 04 Aug 1995 01:04:03
Hi!
Jel uspeo neko uspesno da poveze svoj Delphi program sa nekim .mdb fajlom a
da pri tom preskoci i "Login" i "Select default database" dialog-e?
Vise mi je preko glave da svaki put kada pokrenem program biram .mdb fajl:(
"Login" dialog-a sam uspeo da se otarasim, ali ovog drugog nikako:(
!HELP!
... Sorry, the Dog ate my mail packet.
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.766postmast,
From: Vladimir.Svrkota@f119.n111.z38.setnet.setnet.co.yu (Vladimir Svrkota)
Subject: Interrupt
Date: Thu, 03 Aug 1995 10:11:00
PS> Ja se ne bih previse uzbudjivao. Ako je program poslednji podignut
PS> kao reidentan, onda se moze osloboditi memorija koju je zauzeo. Ako
Kako ?
... The Truth Is Out There...
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.767postmast,
From: zoran.rilak@rstones.durlan.co.yu (Zoran Rilak)
Subject: Pascal
Date: Fri, 04 Aug 1995 00:21:00 CET
QWK To: Uucp
(Tekst poruke: Uucp, na temu Pascal)
Uu> Dali neko ima source mod-obj.obj (rad sa .mod fajlovima)
Uu> Jos bolje ce vrsiti pos'o ako neko zna format .mod fajla (header i
Uu> sl.)
Uu> P.S.
Uu> Dali neko zna ka Kko da prebacim .wav --> .mod. Nisam dali moze
Uu> dir ektno
Uu> da se konvertujeHH ili mora u neki drugi format pak onda u .mod.
Sto se tice prebacivanja WAV -> MOD, zaboravi. Problem je tipa "Kako od
hleba napraviti kiflu". WAV sadrzi samo zvucni uzorak, a MOD je
relativno slozena struktura sa manjim uzorcima i semama za njihovo sviranje;
dakle, MOD -> WAV bi jos i moglo, ali WAV -> MOD bas nikako :(
Evo hedera, kako ga opisuje Mark J. Cox :
Mark J Cox
/***********************************************************************
Protracker 1.1B Song/Module Format:
___--------------------------------
Offset Bytes Description
------ ----- -----------
0 20 Songname. Remember to put trailing null bytes at the end...
Information for sample 1-31:
Offset Bytes Description
___--- ----- -----------
20 22 Samplename for sample 1. Pad with null bytes.
42 2 Samplelength for sample 1. Stored as number of words.
Multiply by two to get real sample length in bytes.
44 1 Lower four bits are the finetune value, stored as a signed
four bit number. The upper four bits are not used, and
should be set to zero.
Value: Finetune:
0 0
1 +1
2 +2
3 +3
4 +4
5 +5
6 +6
7 +7
8 -8
9 -7
A -6
B -5
C -4
D -3
E -2
F -1
45 1 Volume for sample 1. Range is $00-$40, or 0-64 decimal.
46 2 Repeat point for sample 1. Stored as number of words offset
from start of sample. Multiply by two to get offset in bytes.
48 2 Repeat Length for sample 1. Stored as number of words in
loop. Multiply by two to get replen in bytes.
Information for the next 30 samples starts here. It's just like the info for
sample 1.
Offset Bytes Description
___--- ----- -----------
50 30 Sample 2...
80 30 Sample 3...
.
.
.
890 30 Sample 30...
920 30 Sample 31...
Offset Bytes Description
___--- ----- -----------
950 1 Songlength. Range is 1-128.
951 1 Well... this little byte here is set to 127, so that old
trackers will search through all patterns when loading.
Noisetracker uses this byte for restart, but we don't.
952 128 Song positions 0-127. Each hold a number from 0-63 that
tells the tracker what pattern to play at that position.
1080 4 The four letters "M.K." - This is something Mahoney & Kaktus
inserted when they increased the number of samples from
15 to 31. If it's not there, the module/song uses 15 samples
or the text has been removed to make the module harder to
rip. Startrekker puts "FLT4" or "FLT8" there instead.
Offset Bytes Description
___--- ----- -----------
1084 1024 Data for pattern 00.
.
.
.
xxxx Number of patterns stored is equal to the highest patternnumber
in the song position table (at offset 952-1079).
Each note is stored as 4 bytes, and all four notes at each position in
the pattern are stored after each other.
00 - chan1 chan2 chan3 chan4
01 - chan1 chan2 chan3 chan4
02 - chan1 chan2 chan3 chan4
etc.
Info for each note:
_____byte 1_____ byte2_ _____byte 3_____ byte4_
/ \ / \ / \ / \
0000 0000-00000000 0000 0000-00000000
Upper four 12 bits for Lower four Effect command.
bits of sam- note period. bits of sam-
ple number. ple number.
Periodtable for Tuning 0, Normal
C-1 to B-1 : 856,808,762,720,678,640,604,570,538,508,480,453
C-2 to B-2 : 428,404,381,360,339,320,302,285,269,254,240,226
C-3 to B-3 : 214,202,190,180,170,160,151,143,135,127,120,113
To determine what note to show, scan through the table until you find
the same period as the one stored in byte 1-2. Use the index to look
up in a notenames table.
This is the data stored in a normal song. A packed song starts with the
four letters "PACK", but i don't know how the song is packed: You can
get the source code for the cruncher/decruncher from us if you need it,
but I don't understand it; I've just ripped it from another tracker...
In a module, all the samples are stored right after the patterndata.
To determine where a sample starts and stops, you use the sampleinfo
structures in the beginning of the file (from offset 20). Take a look
at the mt_init routine in the playroutine, and you'll see just how it
is done.
2.12
--- Maximus 2.02
* Origin: Rolling Stones BBS (2:382/105.5)
pascal.768postmast,
From: Knezovic.Bojan@f133.n103.z38.setnet.setnet.co.yu (Knezovic Bojan)
Subject: pascal
Date: Fri, 04 Aug 1995 22:14:02
M> zanimljivo od dokumentacije u elektronskoj formi? Ja imam nekih
M> 13 MB .PDF (Adobe Acrobat) dokumentaraca, skinutih sa CDa. Da li
M> postoji jos nesto?
Ja mislim da je to uz .hlp fajlove sve sto se nalazi od dokumentacije
na CD-u. Tako mi rekli ljudi ;) Jedino me zanima sta bi jos moglo biti na
disku pored toga... Delphi ima negde oko 50-60MB plus ova dokumentacija,
znaci sve u vr' glave oko 75MB. Meni je to nesto malo za jedan CD...:)
... Ne slusaj narodnjake, umri prirodnom smrcu.
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.769daca,
YO !!!
Imam definisan slog i cvor koji pokazuje na njega...
Znaci npr. ovako:
Type
PRec = žTRec;
TRec = record
prezime : stringŠ18Ć;
ime : stringŠ18Ć;
end;
PCvor = žTCvor;
TCvor = record
info : PRec;
Sledeci,
Predhodni : PCvor;
.........
var
Prvi,
Tekuci,
Zadnji : PCvor;
.....
E sada moj problem se sastoji u sledecem.... Kako da sadrzinu
cele liste stavim u neki TScroller? Kako treba da glasi metoda
Draw i konstruktor Init ???
Pomazite, jer mi ovo veoma znaci.... Hvala unapred... Cu...
pascal.770pyramid,
-> #768, postmast>> Ja mislim da je to uz .hlp fajlove sve sto se nalazi od dokumentacije
>> na CD-u. Tako mi rekli ljudi ;) Jedino me zanima sta bi jos moglo biti
>> na
Trebalo bi da postoji i jedan (mozda i vise?) .avi fajl sa filmom koji
objasnjava rad sa delphi-jem (iz iskustva: najmanje 1,5 sat)...
pascal.771pirke,
-> #770, pyramid>>>>> Ja mislim da je to uz .hlp fajlove sve sto se nalazi od
>>>>> dokumentacije na CD-u. Tako mi rekli ljudi ;) Jedino me zanima
>>>>> sta bi jos moglo biti na
>>>
>>> Trebalo bi da postoji i jedan (mozda i vise?) .avi fajl sa filmom
>>> koji objasnjava rad sa delphi-jem (iz iskustva: najmanje 1,5
>>> sat)...
Na CD-u se nalazi i RUNIMAGE dir u kome je 'slika' instaliranog delfija
na disku. Mislim da mozes samo de ja kopiras na disk i da radi. Sto se
tice AVI-ja im ih dva i kratki su (7M i 5M). Dakle ostatak se krije
u runimage. Ceo CD je oko 115-120M (zavisi koje je verzija delfija)
pa kad kopiras, mozes da ides na multisession i da kasnije iskoristis
prazan prostor, k'o sto ja uradih neki dan.
pirke.
pascal.773wizard,
-> #770, pyramid> Trebalo bi da postoji i jedan (mozda i vise?) .avi fajl sa filmom koji
> objasnjava rad sa delphi-jem (iz iskustva: najmanje 1,5 sat)...
Za sat i po AVI-ja trebala bi bar 3 CD-a. :)
pascal.774wizard,
-> #767, postmast> dakle, MOD -> WAV bi jos i moglo, ali WAV -> MOD bas nikako :(
A što? Sempluješ ceo Wav kao jedan instrument u MOD-u i to je
valjda to...?
pascal.775visnja,
-> #769, daca> E sada moj problem se sastoji u sledecem.... Kako da sadrzinu
> cele liste stavim u neki TScroller? Kako treba da glasi metoda
> Draw i konstruktor Init ???
>
┐Ě > Pomazite, jer mi ovo veoma znaci.... Hvala unapred... Cu...
PEDJONI, ti jos ne zavrsi taj seminarski. Evo ti
uputstvo kako da uradis:
type
´kPListViewer=^TListViewer;
TListViewer=object(TScroller)
procedure draw;virtual;
end;
procedure TListViewer.draw;
var
B : TDrawBuffer;
C : Byte; {Boja}
ű I : Integer; {Brojac}
S : String;
P : PString;
begin
C:=getcolor(1);
for i:=0 to size.y-1 do {Popunis ceo prozor}
begin
MoveChar(B,Chr(32),C,Size.x) {Ispraznis DrawBuffer - popunis ga CHR(32)}
if delta.y+I< <ukupno elemenata liste> then
begin
P := <pokazivac na DELTA.Y+I element liste, AKO ELEMENT POSTOJI inace
je NIL. Napisi proceduru za to, to bar znas>
if P<>nil then S:=Copy(P^,Delta.X+1,Size.x);
else S:='';
MoveStr(B,S,C);
end;
writeline(0,I,Size.x,1.B);
end;
Pazi ova klasa NIJE prozor, ovo je pogled (VIEW). Prozor kojim gledas celu
listu sadrzi skrol BAROVE i klasu TListViewer(ili kako je vec nazoves).
pointer skrol barova prenosis INIT-u TListViewer.
TListViewer inicijalizuj iz konstruktora prozora. Prvo inicajlizuj
SKROL Barove da bi dobio pointere na njih.
CU zovi me ako nije jasno, i ako me nadjes kuci :).
pascal.776postmast,
From: Knezovic.Bojan@f133.n103.z38.setnet.setnet.co.yu (Knezovic Bojan)
Subject: pascal
Date: Sat, 05 Aug 1995 22:49:01
"S> Kako u Delphi-u izvesti da jedan npr. form1 pozove drugi npr. form2
"S> i ugasi se, s tim da kad se napusti form2 zavrsi se program, a ne
"S> da se zaglupi?
Sto se tice password-a imas File|New Form i izaberi template za password.
Probaj Form2 da podesis da bude main form iz View|Project manager|Options.
Eksperimentisi malo sa tim i sa [form.show] ili sa [form.showmodal],
sigurno ces uspeti;)
... Smile! your Boss likes idiots!!
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.777postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Re: pascal
Date: Thu, 03 Aug 1995 19:46:00
>> Vladimir M Zivkovic nekad rece, a ja ga sada citiram <<
VS> Kakva je razlika izmedju @ime_funkcije i Addr(ime_funkcije) ?
VMZ>
VMZ> Jedno je za POINTER, a drugo za PROCEDURU (ne znam napamet koje je za
VMZ> sta, a nemam pristup disku da pogledam).
Zar nisu isto? I jedno i drugo vracaju pointer na neki objekat...
Rile:)
... TECHNO is more then music, TECHNO is life style!!!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.778postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Fontovi za TP
Date: Fri, 04 Aug 1995 20:55:01
Da li je moguce koristiti True Type fontove iz Pascala (DOS) ili iste
konvertovati u *.CHR format koji koristi TP?
Rile:)
... TECHNO is more then music, TECHNO is life style!!!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.779postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Sun, 06 Aug 1995 22:46:04
VS>> Kakva je razlika izmedju @ime_funkcije i Addr(ime_funkcije) ?
VMZ>>
VMZ>> Jedno je za POINTER, a drugo za PROCEDURU (ne znam napamet koje je za
VMZ>> sta, a nemam pristup disku da pogledam).
PR> Zar nisu isto? I jedno i drugo vracaju pointer na neki objekat...
@POINTER je isto sto i ADDR(PROCEDURA). Znaci, ako ti treba adresa procedure,
ne mozes je dobiti sa @PROCEDURA i obrnuto (za pointer).
__ Pozdrav from Vladimir __
... XPRESS - the fastest way to get around the world.
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.780postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: Fontovi za TP
Date: Sun, 06 Aug 1995 22:46:05
PR> Da li je moguce koristiti True Type fontove iz Pascala (DOS) ili iste
PR> konvertovati u *.CHR format koji koristi TP?
Nadji mi podatke o TTF zapisu, ja cu ti napraviti konvertor ;)
__ Pozdrav from Vladimir __
... "Ako bude bio smak sveta, odlozicemo kontrolni."
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.781postmast,
From: zoran.rilak@rstones.durlan.co.yu (Zoran Rilak)
Subject: Pascal
Date: Mon, 07 Aug 1995 01:42:00 CET
QWK To: Bosko Cvetkovic
(Tekst poruke: Bosko Cvetkovic, na temu PASCAL)
BC> Da li neko zna kako se u turbo pascalu moze ocitavati da li pritisnuto
BC> vise tastera, kao i koji su kodovi tastera koji su pritisnuti?
BC> Ako neko ima vec gotovu proceduru, zamolio bih ga da je posalje.
BC> Hvala.
Daklem o ovome se pricalo ovde, malo ranije, i ljudi su bas slali lepa
resenja... Ali kako sam ja nekima obecao svoje rutine... Da ih ne lazem ;)
Dakle, kao sto i ranije rekoh, ovo dole cita svih 6 tastera koji mogu da se
pritisnu odjednom, i sve to cuva u skupu HeldKeys, tako da se provera da li
je taster aktivan svodi na IF Key IN HeldKeys THEN ...
Evo za one koji znaju & vole TopSpeed M2 gotovih modula malo nize, a ti
izvini, odavno ne pisem na TP-u pa se bojim da nesto ne zabrljam pri
prevodjenju. Zato je najbolje da ovo prevedes sam (max 1 sat posla ako ne
znas M2) ili da ti prevede neko ko zna M2. Ako se odlucis za prvu
varijantu, dacu ti par napomena:
1. DEFINITION MODULE ¸ INTERFACE jednog "Unit"-a
2. IMPLEMENTATION MODULE ¸ IMPLEMENTATION istog "Unit"-a
3. (*# itd. *) - direktive prevodiocu; u TP-u su, ako se dobro
secam, procedure xxx; interrupt; i jos jedna koja treba da stoji umesto (*#
data (volatile => on) *) a koja kaze prevodiocu da promenljive ne smesta u
registre.
P.S. Korisnicima TS M2: Modul je jako, jako prljav (UNSAFE ;) ) . Ne
garantujem da ce raditi na svakoj masini (mada bi trebalo ;) )
DEFINITION MODULE Keyboard;
(* Keyboard driver v1.00 *)
(* PUBLIC DOMAIN 1994. BY ZORAN RILAK *)
TYPE
KeysSet = SET OF SHORTCARD;
VAR
(*# data (volatile => on) *)
HeldKeys : KeysSet;
(*# data (volatile => off) *)
PROCEDURE InstallNewKbdDriver;
PROCEDURE RestoreOldKbdDriver;
END Keyboard.
(* -----CutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCutCut----- *)
IMPLEMENTATION MODULE Keyboard;
(* Keyboard driver v1.00 *)
FROM SYSTEM IMPORT
In, Out, Seg, Ofs, Registers;
FROM Lib IMPORT
Intr;
VAR
OldKbdDriverSeg,
OldKbdDriverOfs : CARDINAL;
(*# save,
call (interrupt => on,
same_ds => off,
reg_param => ()) *)
PROCEDURE NewKbdDriver ();
VAR
PortVal : SHORTCARD;
BEGIN
PortVal := In (60H);
IF PortVal <= 80H THEN
INCL (HeldKeys, PortVal);
ELSE
EXCL (HeldKeys, PortVal - 80H);
END;
PortVal := In (61H);
Out (61H, SHORTCARD (BITSET (PortVal) + {7}));
Out (61H, PortVal);
Out (20H, 20H);
END NewKbdDriver;
(*# restore *)
PROCEDURE InstallNewKbdDriver;
VAR
Regs : Registers;
BEGIN
Regs.AX := 3509H;
Intr (Regs, 21H);
OldKbdDriverSeg := Regs.ES;
OldKbdDriverOfs := Regs.BX;
Regs.AX := 2509H;
Regs.DS := Seg (NewKbdDriver);
Regs.DX := Ofs (NewKbdDriver);
Intr (Regs, 21H);
END InstallNewKbdDriver;
PROCEDURE RestoreOldKbdDriver;
VAR
Regs : Registers;
BEGIN
Regs.AX := 2509H;
Regs.DS := OldKbdDriverSeg;
Regs.DX := OldKbdDriverOfs;
Intr (Regs, 21H);
END RestoreOldKbdDriver;
BEGIN
HeldKeys := KeysSet {};
END Keyboard.
... Gospodo draga, kod je nestao bez traga
--- Blue Wave/Max v2.12 [NR]
* Origin: Rolling Stones BBS * YUInt - NiNet - U'NI-net -
FidoNet (2:382/105.5)
pascal.782postmast,
From: nemesis@styx.herkules.co.yu (NEMESIS)
Subject: RE: PASCAL
Date: Tue, 18 Jul 95 09:38:00 +0100
---> !!! Ovo je samo TERETSKO PITANJE O:)))))))
---> Jel to na pomolu novi virus? :)))
---> Ovo je samo teoretsko pitanje. :))
Ama ljudi sta vam je ...
Ja sam samo postavio jedno TEORETSKO pitanje ...
Bre ...
┌────────────────────────────────────────────────────────────────────Ě
│/\■/\ .:NemesiS:. /\■/\ S.T.Y.X BBS /\■/\ ║
│ / > NEMESIS@STYX.HERKULES.CO.YU / \ 011\444-95-22 - 22-06 < \ ║
ď════════════════════════════════════════════════════════════════════╝
... /\ S.T.Y.X BBS /\ 011\444-95-22 /\ 22-06 /\
* ■ >:[] NemesiS ■
pascal.783daca,
-> #775, visnja> if delta.y+I< <ukupno elemenata liste> then
Kako da izbrojim ukupno elemenata liste, odnosno record-a?
> P := <pokazivac na DELTA.Y+I element liste, AKO ELEMENT POSTOJI
> inace je NIL. Napisi proceduru za to, to bar znas>
Sta ti je u stvari delta? Da li to polje pokazuje na neki
odredjeni elemenat u listi? Kakva procedura treba da se napise?
U svakom slucaju ti hvala ... nego, gde si ti kuci u 8 sati.. u
kafani? ;)
pascal.784msavkovic,
-> #774, wizard┌┌┌ > dakle, MOD -> WAV bi jos i moglo, ali WAV -> MOD bas nikako :(
┌┌┌
┌┌┌ A sto? Semplujes ceo Wav kao jedan instrument u MOD-u i to je
┌┌┌ valjda to...?
Dokle ce te da uporedjujete ove dve stvari? Pa sto bi od sempla
pravio modul ?
Najsmesniji modul koji sam video (kume.mod) u sebi ima jedan sempl
(pogadjajte koji) i svaka cas onome ko ga je napravio
pascal.785vitez.koja,
Uz poruku je programčić koji služi za 'prelistavanje' .BMP i .WMF
sličica. Veličina svakako nije primerena mogućnostima, ali šta da
se radi - Delphi nije C.
Program je napisan jer Delphi u "Load picture" dijalogu nema
Preview opciju, tako da je snalaženje u moru gotovih sličica vrlo
zamorno. Bilo :) Program ume i da iskopira puno ime sličice u
Clipboard...
bmpview.zippascal.786visnja,
-> #783, daca>> if delta.y+I< <ukupno elemenata liste> then
>
> Kako da izbrojim ukupno elemenata liste, odnosno record-a?
Najgluplje ti je da:
Deklarises neki
var Brojac:LongInt;
postavis ga onda na 0:
Brojac:=0;
onda
kreneš od prvog elementa liste i ideš na sledeći i sledeći...
sve dok ne tresneš o NIL. Ne zaboravu usput jedno INC(brojac).
posle ovoga ćeš imati broj elementa liste (baze pod.) u brojac-u.
>
> > P := <pokazivac na DELTA.Y+I element liste, AKO ELEMENT
>> POSTOJI inace je NIL. Napisi proceduru za to, to bar znas>
>
> Sta ti je u stvari delta? Da li to polje pokazuje na neki
> odredjeni elemenat u listi? Kakva procedura treba da se
> napise?
AUX žoveče,
Pitaš me nešto o TSCROLLER-u a ne znaš šta je TSCROLLER. Delta.x i
Delta.y nosi vrednost SCROLLBAR-ova (horizontalnog i vertikalnog) i
Delta NIJE POKAZIVAž. Koristi malo Ctrl F1 i svoje znanje engleskog.
Truba mi ja da pišem o stvarima koje samo tebe interesuju i kojih ima
u izvrsnom help-u. Delta.Y će nositi redni broj prvog recorda iz baze
koji se vidi u prozoru a I broji ostale rec-ove do veličine prozora.
pascal.787visnja,
-> #778, postmast> Da li je moguce koristiti True Type fontove iz Pascala (DOS)
> ili iste konvertovati u *.CHR format koji koristi TP?
Naravno da je moguće, ako je neko napisao program koji crta TTF u WINDOWS-ima
zašto to isto ne bi mogao i DOS. Pitanje je poznajemo li DETALJNO format
TTF i ima li dovoljno manijaka i dokondžija da urade posao.
Problem je vrlo interesantan i ne čini se preterano velikim. Barem je
lakši nego napisati AutoCAD :)
Pozdrav!
pascal.788postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic)
Subject: Re: Delphi&Access
Date: Tue, 8 Aug 1995 19:58:14 GMT
Knezovic Bojan je napisao:
>> Jel uspeo neko uspesno da poveze svoj Delphi program sa nekim .mdb fajlom a
>> da pri tom preskoci i "Login" i "Select default database" dialog-e?
>>
>> Vise mi je preko glave da svaki put kada pokrenem program biram .mdb fajl:(
>> "Login" dialog-a sam uspeo da se otarasim, ali ovog drugog nikako:(
Meni se isti problem javljao sa samostalnom verzijom Borland Database
Engine-a, a resio sam ga na malcice glup nacin:{startovao sam ODBCINST iz
Control Panel-a, i odatle podesio default bazu za Access-ov ODBC drajver.
Da li nekome pada na pamet nesto pametnije?
--
R Tape loading error
pascal.789vvelisavljev,
Hi svima!
Da li neko može da mi predloži neku dobru knjigu za Turbo Vision
2.0? Da li ima o TV-u u knjizi Stephen O'Brien: "Turbo Pascal 6"?
Hvala unapred.
pascal.790nlazic,
-> #789, vvelisavljev*> Da li neko može da mi predloži neku dobru knjigu za Turbo Vision
*> 2.0? Da li ima o TV-u u knjizi Stephen O'Brien: "Turbo Pascal 6"?
Ima u toj knjizi nešto o TV 1.0, ali ništa naročito. Uglavnom prepisan
Help kao i u većini knjiga na našem jeziku (kako originala tako i prevoda).
Najbolji priručnik za TV je (koliko sam ja video) knjiga koja se isporučuje
uz BP 7.0. O TV-u možeš lepu sliku da dobiješ ako kreneš da pročešljavaš
fajlove TUTOR*.PAS koji dolaze takodje uz BP7, plus često zavirivanje u
Help sistem.
Pozdrav,
:) Nebojša :)
pascal.791postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Re: pascal
Date: Tue, 08 Aug 1995 03:15:01
>> Vladimir M Zivkovic nekad rece, a ja ga sada citiram <<
VMZ> @POINTER je isto sto i ADDR(PROCEDURA). Znaci, ako ti treba adresa
VMZ> procedure, ne mozes je dobiti sa @PROCEDURA i obrnuto (za pointer).
Kako nemoze sa @PROCEDURA ? Kod mene radi...
Rile:)
... TECHNO is more then music, TECHNO is life style!!!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.792postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: Fontovi za TP
Date: Mon, 07 Aug 1995 16:36:07
PR> Da li je moguce koristiti True Type fontove iz Pascala (DOS) ili iste
PR> konvertovati u *.CHR format koji koristi TP?
VMZ> Nadji mi podatke o TTF zapisu, ja cu ti napraviti konvertor ;)
Da znas kako izgleda TTF format ne bi bas olako rekao ovako nesto.
:)))))
... Svuda muskarci i zene - a nigde ljudi.
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.793postmast,
From: KLIMENT.ANDREEV@f108.n108.z38.setnet.setnet.co.yu (KLIMENT ANDREEV)
Subject: pascal
Date: Mon, 07 Aug 1995 14:16:00
MS>*** CITAT : "Bosko Cvetkovic" ***
MS> "C> bafera tastature i time ispraznio bafer.
MS>Moze i elegantnije: BIOS funkcija 0ch al=01 (brise bafer tastature).
MS>Ova funkcija moze brisati i druge input bafere (opsirnije u TechHelpu).
Mozze i ovako:
Pascal:
var kbdbeg: word absolute $40:$1a;
kbdend: word absolute $40:$1c;
....
kbdbeg:=kbdend; {brisse baffer tastature}
C:
char far *kbdbeg=(char far *)0x0000041aL;
char far *kbdend=(char far *)0x0000041cL;
....
*kbdbeg=*kbdend;
Chombe KAN
___
■ OLX 2.1 TD ■ Ma´˛ ýÓŰ ´ŕ §Š ˘ÓűŠ÷Š? ÉÓ üÓÝý˛. äÓŰ ´ŕ âŕ! łŠ´ŕ âŕ §Ó´!
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.794visnja,
-> #789, vvelisavljev> Da li neko može da mi predloži neku dobru knjigu za Turbo
> Vision 2.0? Da li ima o TV-u u knjizi Stephen O'Brien: "Turbo
> Pascal 6"?
Nisam nasao takvu! Najbolji nacin da je naucis je da uporno pises i pises
programe. To sam nasao u nekoj knjizi koja kao i ostale ima prepisan HELP!
Obavezno nabavi i RTL i pogledaj source.
Ako te nesto konkretno zanima u vezi TV javi mi.
Pozdrav. VISNJA.
pascal.795trki,
Interesuje me par stvari o DELPHI-ju.
Prvo: Da li je ova verzija clijent-server (ova=ova sto kruzi medju piratima)
Drugo: Da li u skladu sa prvim nedostaje VQB (visual query bUilder) , iz moje
verzije kao da je nasilu iscupan , tu je sve za njega , ali njega nema ??
Trece:Zna li neko neke kvalitetne VBX-ove , mislim na neki paket , da ljudi ne
bi trpali sve i svasta u DELPHI-MMMja,ja sam probaMMMMo neke , ali to je jedno
sarenilo , pa me zato interesuje neki oficijelni paketic ovih dodataka.
Cetvrto:Da li postoji neka dokumentacija za DELPHI ??
?????
Pozdrav,Trki
pascal.796postmast,
From: Knezovic.Bojan@f133.n103.z38.setnet.setnet.co.yu (Knezovic Bojan)
Subject: pascal
Date: Mon, 07 Aug 1995 09:27:01
MS> hteo da pitam nesto: ZASTO SU SVE TEME ili PASCAL ili INTERAPTI ?
Sve poruke koje dolaze sa beointerneta imaju temu "Pascal", a interapti...
oni su popularni, cini se ;)
... I'd like all your $20 bills in this bag, To go.
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.797dr.urbano,
Hi,
Hitno mi treba program koji radi nesto otprilike ovako :
- ucitava .mod fajl i sve vrednosti koje procita iz fajla ( vrednost
frenkfence, vred. koju dodeljujemo naredbi sound(x) ) da pise u neku
textualnu datoteku npr. mod001.txt
- tako da se ova datoteka moze pregledati obicnim editorom
- jos bolje bi bilo kad bi ovako nesto imalo za .wav datoteke (ili snd,voc)
- ako vec postoji ovako nesto nemora biti u pascalu (ali je pozeljno) vec
je vazno samo da vrsi poso'
- ako neko misli da mose da mi pomogne a nije razumeo bas najbolje moje
neka mi se javi ( obavezno :) )
Pozdrav,
dr. Urbano.
pascal.798vvelisavljev,
-> #794, visnja> Obavezno nabavi i RTL i pogledaj source.
^^^
Šta je i gde može da se nabavi RTL?
pascal.799vvelisavljev,
-> #790, nlazic> Najbolji priručnik za TV je (koliko sam ja video) knjiga koja se
isporučuje
> uz BP 7.0. O TV-u možeš lepu sliku da dobiješ ako kreneš da
pročešljavaš
Gde može da se nađe ta knjiga?
pascal.800nlazic,
-> #799, vvelisavljev*> Gde može da se nađe ta knjiga?
Bilo je kod APP Systems. 647-190 (011).
Pozdrav,
:) Nebojša :)
pascal.801nlazic,
-> #798, vvelisavljev*> Šta je i gde može da se nabavi RTL?
RTL = Run Time Library. Koliko znam, isporučuje se posebno a ne u
okviru BP7.0. Sadrži kompletne sorsove TV-a, OWL-a i svih ostalih unit-a
koji se isporučuju uz BP (crt, dos...). Jako korisna stvarčica, mada ima
neke bagove.
Pozdrav,
:) Nebojša :)
pascal.802nlazic,
-> #795, trki*> Cetvrto:Da li postoji neka dokumentacija za DELPHI ??
Na CD-u se nalaze .PDF fajlovi - knjige u elektronskom obliku koje
se čitaju Acorbat Reader-om. Knjige su Users Guide, Component Writers
Guide, i još par knjiga vezanih za baze podataka. To je ujedno i sve što
Borland isporučuje uz Delphi (što se knjiga tiče).
Pozdrav,
:) Nebojša :)
pascal.803postmast,
From: Vladimir.Svrkota@f119.n111.z38.setnet.setnet.co.yu (Vladimir Svrkota)
Subject: Re: pascal
Date: Tue, 08 Aug 1995 11:49:00
VMZ> @POINTER je isto sto i ADDR(PROCEDURA). Znaci, ako ti treba adresa
VMZ> procedure, ne mozes je dobiti sa @PROCEDURA i obrnuto (za pointer).
PR> Kako ne moze sa @PROCEDURA ? Kod mene radi...
Pazi, Boga ti... Radi i kod mene :)) U pitanju je inace TP70. Ljudi, izgleda
da mi se cini :) da je @ i Addr jedno te isto. Cekam demant... :)
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.804postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: Fontovi za TP
Date: Tue, 08 Aug 1995 20:27:00
PR>> Da li je moguce koristiti True Type fontove iz Pascala (DOS) ili iste
PR>> konvertovati u *.CHR format koji koristi TP?
VMZ>> Nadji mi podatke o TTF zapisu, ja cu ti napraviti konvertor ;)
PS> Da znas kako izgleda TTF format ne bi bas olako rekao ovako nesto.
PS> :)))))
?? Ja sam najozbiljniji, ako imas opis formata prosledi mi, pa cu nesto vec
napraviti.
__ Pozdrav from Vladimir __
... Rodney King joins FidoNet!....."Can't we all just get along?"
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.805postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Tue, 08 Aug 1995 20:28:03
VMZ>> @POINTER je isto sto i ADDR(PROCEDURA). Znaci, ako ti treba adresa
VMZ>> procedure, ne mozes je dobiti sa @PROCEDURA i obrnuto (za pointer).
PR> Kako nemoze sa @PROCEDURA ? Kod mene radi...
Uf, sorry, ja sam ocigledno pobrkao neke stvari ... U pravu si sto se tice
ovoga, upravo sam isprobao :)
__ Pozdrav from Vladimir __
... "Ja ukapiram odmah, samo mi treba malo vremena."
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.806postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: Pascal
Date: Mon, 07 Aug 1995 17:10:07
*** CITAT : Zoran Rilak ***
ZR> Sto se tice prebacivanja WAV -> MOD, zaboravi. Problem je tipa
Moze : modul od jednog sempla i jednog paterna ;)
ZR> "Kako od hleba napraviti kiflu". WAV sadrzi samo zvucni uzorak, a MOD
RARom ;) mada ce prije biti "od kifle hleb" jer je WAV samo sempl ...
... Ne diraj lava dok Holidej.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.807postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: Interrupt
Date: Mon, 07 Aug 1995 18:31:33
Kako osloboditi memoriju mozete naci u poruci FROM: Andrej Turza
Ako je nemate (?) ja cu vam poslati njegovu proceduru (provjereno radi i to
bez problema i nekih prerada).
... Ne diraj lava dok Holidej.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.808postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: Pascal
Date: Mon, 07 Aug 1995 18:31:45
*** CITAT : Zoran Rilak ***
ZR> Sto se tice prebacivanja WAV -> MOD, zaboravi. Problem je tipa
Moze : modul od jednog sempla i jednog paterna ;)
ZR> "Kako od hleba napraviti kiflu". WAV sadrzi samo zvucni uzorak, a MOD
RARom ;) mada ce prije biti "od kifle hleb" jer je WAV samo sempl ...
... Ne diraj lava dok Holidej.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.809postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: Interrupt
Date: Mon, 07 Aug 1995 17:09:54
Kako osloboditi memoriju mozete naci u poruci FROM: Andrej Turza
Ako je nemate (?) ja cu vam poslati njegovu proceduru (provjereno radi i to
bez problema i nekih prerada).
... Ne diraj lava dok Holidej.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.810postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Re: pascal
Date: Thu, 10 Aug 1995 19:41:02
>> Vladimir Svrkota nekad rece, a ja ga sada citiram <<
VS> Pazi, Boga ti... Radi i kod mene :)) U pitanju je inace TP70. Ljudi,
VS> izgleda da mi se cini :) da je @ i Addr jedno te isto. Cekam demant...
Nema demanta, i ne cini ti se nego je tako... :)
Rile:)
... TECHNO is more then music, TECHNO is life style!!!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.811postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: Fontovi za TP
Date: Fri, 11 Aug 1995 07:53:37
VMZ>> Nadji mi podatke o TTF zapisu, ja cu ti napraviti konvertor ;)
PS> Da znas kako izgleda TTF format ne bi bas olako rekao ovako nesto.
PS> :)))))
VMZ> ?? Ja sam najozbiljniji, ako imas opis formata prosledi mi, pa cu
VMZ> nesto vec napraviti.
Nemam ga, i to zato sto kad sam ga locirao, ispalo je da je
dokumentacija predugacka (cini mi se preko 1MB) da bih je
pokupio modemom.
Da li si nekad razmisljao da nabavis opis formata CDR-a da bi
mogao da napravis neki konvertor? Konverzija TTF-a u Borlandov
font je grubo receno, isto toliko komplikovana kao konverzija
CDR-a u neki bitmapirani oblik.
... BR> STEDITE VREME - JEDITE SUPU KUTLACOM
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.812postmast,
From: zoran.rilak@rstones.durlan.co.yu (Zoran Rilak)
Subject: Pascal
Date: Fri, 11 Aug 1995 07:39:00 CET
QWK To: "nenad Milenkovic"
(Tekst poruke: Uucp, na temu Pascal)
> dakle, MOD -> WAV bi jos i moglo, ali WAV -> MOD bas nikako :(
Uu> A sto? Semplujes ceo Wav kao jedan instrument u MOD-u i to je
Uu> valjda to...?
OK, OK. Jeste. Moze tako, of course. A ja budala razlagao WAV ;)
Ma ne bavim se muzikom ionako ;)))))))))))
3OPAH
... Ideja nije nova, ali je originalna!
--- Blue Wave/Max v2.12 [NR]
* Origin: Rolling Stones BBS * YUInt - NiNet - U'NI-net -
FidoNet (2:382/105.5)
#! rnews 993
pascal.813vvelisavljev,
-> #790, nlazic> Najbolji priručnik za TV je (koliko sam ja video) knjiga koja se
isporučuje
> uz BP 7.0. O TV-u možeš lepu sliku da dobiješ ako kreneš da
pročešljavaš
Hi
Izvini što davim al' drug je hteo da zna kako se knjiga tačno zove
i koji je autor.
pascal.814visnja,
-> #801, nlazic>*> Šta je i gde može da se nabavi RTL?
>
> RTL = Run Time Library. Koliko znam, isporučuje se posebno a ne
> u okviru BP7.0. Sadrži kompletne sorsove TV-a, OWL-a i svih
> ostalih unit-a koji se isporučuju uz BP (crt, dos...). Jako
> korisna stvarčica, mada ima neke bagove.
Upravo tako. Nalazi se na samo jednoj instalacionoj disketi.
Ima i source mašinskih rutina. Npr SYSTEM unit. Mnogo lepa stvar.
NE TREBA PREVODITI RTL. Sve to imaš već prevedeno u BP 7.00 tako
da neki bagovi ne smetaju. (mada ih ja nisam primetio ali verujam na reč).
pascal.815visnja,
-> #811, postmast> Da li si nekad razmisljao da nabavis opis formata CDR-a da bi
> mogao da napravis neki konvertor?
Nema potrebe da se mučite sa CDR-om. EXPORT-uješ CDR u DXF a DXF je
već godinama poznat i ima dostupnu dokumentaciju. Onda praviš konvertor
DXF - šta već oćeš... i dobiješ program koji radi najmanje sa COREL-om i
AUTOCAD-om.
pascal.816nlazic,
-> #814, visnja*> NE TREBA PREVODITI RTL. Sve to imaš već prevedeno u BP 7.00 tako
*> da neki bagovi ne smetaju. (mada ih ja nisam primetio ali verujam na
*> reč).
RTL ne treba kompajlirati, osim ako nešto ne menjaš u izvornom kodu
nekog od modula. Konkretno, ja sam prevodio neke dijaloge na srpski (u
pitanju je TV) koji kasnije nisu hteli da rade kako valja (još konkretnije
FileOpen dijalog). Naravno, kada sam koristio originalni TPU fajl, a ne
ovaj iz RTL-a sve je bilo OK.
Pozdrav,
:) Nebojša :)
pascal.817mikrom,
Postoji li dobra duša koja bi mi mogla napraviti program
koji radi sledeće:
Na početku svakog novog pasusa koji ne počinje određenim
znakom generiše njegov redni broj (redni broj pasusa)
Svi pasusi su razdvojeni praznim redom, tekst je ASCII
Ukoliko ima zainteresovanih da za određenu nadoknadu
ovo naprave: mail ili tel: 469-534
(Nebitno je u čemu je rađen, a ovu temu sam izabrao
jer je jedna od najaktivnijih)
pascal.818visnja,
-> #816, nlazic> RTL ne treba kompajlirati, osim ako nešto ne menjaš u izvornom
> kodu nekog od modula. Konkretno, ja sam prevodio neke dijaloge
> na srpski (u pitanju je TV) koji kasnije nisu hteli da rade
> kako valja (još konkretnije FileOpen dijalog). Naravno, kada
> sam koristio originalni TPU fajl, a ne ovaj iz RTL-a sve je
> bilo OK.
Ja sam SVE preveo i SVE radi. Ako izmeniš i prevedeš jednan UNIT,
moraš prevesti i sve UNIT-e koji koriste taj i sve koji su u vezi
sa novoprevedenim UNIT-ima. Najbolje je da ih sve iskopiraš u
DIR gde ti je i aplikacija koju pišeš.
Pozdrav. Višnja.