pascal.1dr.urbano,
Da li neko zna nesto o paketu SPX v2.0 ? Gde bih mogao da ga nabavim ?
Cini mi se da se radi o grafici (13x mode, sprajtovi ...) !
Pozdrav,
Vladimir.
P.S.
Ako znate bilo sta molim da javite.
pascal.2mmitrovic,
REPLY PC.PROG.5/7.1041
::::: Moze neki hint na neko programce koje je rezidentno,i
::::: sakuplja u fajl sve sto se unese preko tastature?
Šta, zar vam u školi kucaju testove na komp-u. :)
Što se tiče programa, sorry, mrtav je. :(
PS. To mi je bila najdraža petica iz fizike. :)
pascal.4mminovic,
-> #2, mmitrovic> Sto se tice programa, sorry, mrtav je. :(
Sta ti ovo znaci:)))
da moram sam da ga pisem,ili...:)
Pozdrav,
Mindza.
pascal.5mpromet,
Zna li neko dobru knjigu za Turbo Paskal u kojjoj
skoro sve ima,od verzije 6.0 ili 7.0 ako sadrži
iza 6.0?
pascal.7konem,
Imam jedan problem u vezi turbovizije.Naime javlja mi gresku
pri upisu na tok(stream) i to u obliku STREAM REGISTRATION ERROR.
Ako neko zna , neka javi zasto i kako je otkloniti?
Hvala unapred...
pascal.8atech,
-> #4, mminovic> Sta ti ovo znaci:)))
> da moram sam da ga pisem,ili...:)
Hellas bbs 011/283-1387 22-??
Arhiva phantom2.zip (ako se dobro secam)
To ce ti ustedeti posao...
pascal.9.sima,
-> #5, mpromet║║ Zna li neko dobru knjigu za Turbo Paskal u kojjoj
║║ skoro sve ima,od verzije 6.0 ili 7.0 ako sadrži
║║ iza 6.0?
Pa već si pitao u staroj konf i dobio odgovore??? Pogledaj pc.prog.5.
pascal.10.sima,
-> #7, konem║║ pri upisu na tok(stream) i to u obliku STREAM REGISTRATION ERROR.
║║ Ako neko zna , neka javi zasto i kako je otkloniti?
Pa dok se nevidi sors...
┌───────────────────────────┐
│ Stream registration error │
└───────────────────────────┘
This error is generated by the RegisterType procedure in the Objects
unit.
It indicates that one of the following errors has occurred:
■ The stream registration record does not
reside in the data segment.
■ The ObjType field of the stream
registration record is 0.
■ The type has already been registered.
■ Another type with the same ObjType value already exists.
pascal.11supers,
-> #5, mpromet>> Zna li neko dobru knjigu za Turbo Paskal u kojjoj
>> skoro sve ima,od verzije 6.0 ili 7.0 ako sadrži
Mikroknjiga, Stephen O'Brien, Turbo Pascal 6 - kompletan vodič.
pascal.12nemko,
-> #1, dr.urbano)>- Da li neko zna nesto o paketu SPX v2.0 ? Gde bih mogao da ga
)>- nabavim ? Cini mi se da se radi o grafici (13x mode,
Za njega nisam čuo, ali mogu da ti ponudim ANIVGA koji radi
isti posao. Javi se u mail ako te zanima!
pascal.13konem,
-> #10, .simaThanks .sima...
pascal.14konem,
Interesuje me zasto Borlandov TD386.EXE nece da radi
kada mu startujem TDH386.SYS iz Config-a ,sto on normalon
zahteva.
Prijavljuje ,sa TDH386, isto sto i prijavljuje bez njega:
'V86 is already in virtual mode.'
pascal.15dr.urbano,
-> #12, nemkoNe meni treba bas SPX v2.0 !! Anivga sam odavno nabavio !!!
Dakle da neko drugi slucajno nezna nesto o ovom programu ?
Pozdrav,
Vladimir.
P.S.
E da, hvala sto si se javio :)
pascal.16.sima,
-> #14, konem║║ Prijavljuje ,sa TDH386, isto sto i prijavljuje bez njega:
║║ 'V86 is already in virtual mode.'
TDH386 je v86 "menadžer" i kao takav ne trpi druge, a to su svi emm
menažderi qemm, emm386, windows-i, itd... Dovoljno je dići himem.sys.
Sva ostala memorija će biti dostupna programu, jer td, ili tp idu u
drugu virualnu mašinu.
pascal.17konem,
-> #16, .simaEUREKA! It's working!
Thanks,.sima.
pascal.18nemko,
-> #14, konem)>- Prijavljuje ,sa TDH386, isto sto i prijavljuje bez njega:
)>- 'V86 is already in virtual mode.'
I ja imam isti "problem". Verovatno je caka u tome što koristiš
QEMM ili neki sličan program koji se automatski prebacuje u V86
mod da bi efikasnije obavio ono za šta je namenjen. Kada ga
pokreneš bez qemm-a (nezaboravi himem.sys) onda sve lepo radi.
Kako da u turbo debuggeru (ne 386) postavim breakpoint na određen
tip instrukcije?
pascal.19igorsedam,
Treba mi pomoc!
Jel mozda neko zna i moze da mi napise proceduru za zrtanje luka
tacku po tacku bez standardnih graph proc&funkcija.Parametri bi trebali da
budu poluprecnik pocetni i krajni ugao.
Unapred hvala
Igor
pascal.20.sima,
-> #17, konem║║ EUREKA! It's working!
║║ Thanks,.sima.
Nema na čemu. Inače ja lično koristim za Borlandove kompajlere
posebnu konfiguraciju. U njoj se nalazi himem.sys, smartdrv, drajver za
miša i fontove i ništa više. Sve ostalo bi usporavalo. EMS nije potrebna
sem kada pišem program koji je koristi, a to je vrlo retko jer sam se
opredelio sa XMS. Brža je i rad je jednostavniji.
pascal.21.sima,
-> #19, igorsedam║║ Jel mozda neko zna i moze da mi napise proceduru za zrtanje luka
║║ tacku po tacku bez standardnih graph proc&funkcija.Parametri bi
║║ trebali da budu poluprecnik pocetni i krajni ugao.
Evo ti primer u kome sam koristio int 10. To znači da primer nije za
korišćenje, već samo za ilustraciju. Ako ti treba nešto brže savetujem
ti da pogledaš nekoliko poslednjih bojeva časopise: PC - za crtanje u
VESA modovima i Računari - programiranje vga karte pomoću registara.
Jedini deo koji bi morao da se zameni je DrawPoint. A za to može da se
koriste registri ili direktni pristup memoriji.
luk.zippascal.22mminovic,
Hi:)
Zanima me kako kompajlirati program pod TP 7.0 for DOS u
protekted modu(i sta je tacnije tpx.exe)?
I kako se posle taj program koristi(moze li automatski
uz QDPMI i QEMM)?
Unapred zahvalan,
Miroslav.
pascal.23nemko,
-> #21, .sima)>- bojeva časopise: PC - za crtanje u VESA modovima i Računari -
)>- programiranje vga karte pomoću registara. Jedini deo koji bi
)>- morao da se zameni je DrawPoint. A za to može da se koriste
)>- registri ili direktni pristup memoriji.
Napisao sam unit za koriscenje VESA 101h moda (640x480x256c) sa svim
neophodnim rutinama osim getpixel. Takođe još nisam napisao asm verzije
crtanja kruga i kosih linija. Lako se prepravlja i za ostale rezolucije
sa 256 boja. So, ako nekome treba... DERITE SE!
BDW, u racunarima 36 je bila objavljena "celobrojna" rutina za crtanje
elipse. Samo je problem što neće da radi, poseduje li neko istu?
pascal.24dejanr,
Nekada sam mnogo koristio Turbo Pascal 5.5, a i sada ga ponekad startujem
kad mi treba nešto na brzaka da uradim. Očito ne tako često kao nekada, jer
sam ga posle mesec dana rada pod Win 95 tek danas prvi put startovao. Kad
ono... kaže Windows ovaj program mora da radi u DOS modu, poskida sve
aplikacije, a kada izađem iz TP-a onda resetuje računar :( Ukratko, možete
da zaboravite na TP 5.5.
Meni nekako bilo žao da ga se lišim, i padne mi na pamet da preimenujem
fajl, tako da sam uradio REN TURBO.EXE TPAS.EXE. Od tada, da kucnem u drvo,
radi sasvim lepo u običnom DOS prozoru. Probao sam i da prevodim velike
fajlove, da koristim debager itd, nikakvog problema. Bog zna da li je to
Microsoft napravio zato što ima neki drugi proizvod koji se zove TURBO
(a baš je i Borland našao ime za paskal kompajler ;) ili šta, ali jedno
rename reši problem.
Naravno, ako vam tri dana po preimenovanju TPAS obriše disk, nemojte mene
da krivite ;)
pascal.25vcalic,
-> #24, dejanr>> Meni nekako bilo žao da ga se lišim, i padne mi na pamet da preimenujem
>> fajl, tako da sam uradio REN TURBO.EXE TPAS.EXE. Od tada, da kucnem u
>> drvo, radi sasvim lepo u običnom DOS prozoru. Probao sam i da prevodim
>> velike fajlove, da koristim debager itd, nikakvog problema. Bog zna da li
>> je to Microsoft napravio zato što ima neki drugi proizvod koji se zove
>> TURBO (a baš je i Borland našao ime za paskal kompajler ;) ili šta, ali
>> jedno rename reši problem.
Win95 čuva listu aplikacija koje treba startovati u MS-DOS modu u
Registry-u. Hijerarhija glasi:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\
\Emulation\AppCompat\
E, u listi postoji i stavka TURBO.EXE. Nema opisa na koji se proizvod
tačno odnosi, ali pored reimenovanja fajla bi upalilo i brisanje ove stavke iz
Registry-a.
Vlada
pascal.27dikla,
-> #8, atech> Hellas bbs 011/283-1387 22-??
> Arhiva phantom2.zip (ako se dobro secam)
> To ce ti ustedeti posao...
MSDOS - R:ĐUTILITY
----------------------
phantom2 zip 34619 Snima i reprodukuje pritiske na tastere
pascal.28.sima,
-> #22, mminovic║║ Zanima me kako kompajlirati program pod TP 7.0 for DOS u
║║ protekted modu(i sta je tacnije tpx.exe)?
Ne može. Mora da se koristi BP 7.0 ili BPC 7.0. Ako se koristi BP
onda se u meniju Compile odabere stavka Targer i postavi na protected
mode. TDX je Turbo Debuger for DPMI ili TD za protected mode programe.
Svi DPMI programi mogu da se startuju iz BP, ali ne mogu da se
postavljaju break points ili da se radi trace ili step. Za to služi TDX.
║║ I kako se posle taj program koristi(moze li automatski
║║ uz QDPMI i QEMM)?
DPMI program radi kao i BP i BPC mora da bude aktivan neki DPMI
server, bilo da je to QDPMI (koji ima mogućnost virtualne memorije), ili
da se stave dpmi*.* fajle iz Pascala u path.
pascal.29visnja,
-> #24, dejanr> sam ga posle mesec dana rada pod Win 95 tek danas prvi put
> startovao. Kad ono... kaže Windows ovaj program mora da radi u
> DOS modu, poskida sve
Cim sam video da WIN95 ne podrzava Borland-a izbrisao sam ga. Ne pascal
nego WIN95.
pascal.30igorsedam,
Mrzi me da prelitavam ali ko god da mi je poslao luk hvala mu ko bratu
Igor
pascal.31postmast,
From: raven@setnet.co.yu (Robert Oswald)
Subject: Re: zapisi i tako dalje
Date: Fri, 29 Sep 1995 23:52:04
'ello, Mladen, I've heard that ya said...
MA> -+=+- Mihajlo Savic rece : -+=+-
MA>> Ja bih u "listu" da dodam AVI i MPEG.
MS>> ^^^^ I tata bi sine :))))))
MS>> MPEG? Pa covjece niko od nas nema sanse da napravi player za MPEG
MS>> koji bi radio iole pristojnom brzinom O;>>>
MA> Ko je rekao da ja zelim da pravim player za MPEG? Mene samo
MA> "informativno" interesuje zapis. Posebno me interesuje AVI, posto
MA> je sigurno, pred njim buducnost. Ako neko slucajno ima Windows 95
MA> Develompers Kit (to je onaj drugi cd), mogao bi da nesto izvadi iz
MA> stavke "ANI".
Zaboravih da ti pomenem ,mogu ti pribaviti i format FLI zapisa ako ti treba,
kao i FliPlayer (nekoliko verzija, x puta brzhi od autodeskovog)
(c) Zika :))
ĆĆ RaveN žž >>> VBC <<<
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.32postmast,
From: nikola.golovic@shadow.herkules.co.yu (NIKOLA GOLOVIC)
Subject: pascal
Date: Sat, 30 Sep 95 02:05:00 +0100
Trebaju mi knjige u kojima se mogu naci naredbe za pravljenje programa
za modeme,t.j. za slanje i citanje sa serijskog porta u PASCAL-u.Ako
neko zna koja literatura za to postoji ili gde se moze naci,neka napise
nesto...
---
■ ANGEL! #UNREG■ UNREGISTERED EVALUATION COPY
pascal.33postmast,
From: darko.hujdurovic@panon.ns.ac.yu (Darko Hujdurovic)
Subject: Re: Delphi
Date: Mon, 2 Oct 1995 15:10:00 GMT
VJ> DH> Vizuelni Hello World je oko 90 KB nakon sledecih intervencija:
VJ> DH> - Ukljucite optimizaciju na Max.
VJ> Ako se dobro secam, optimizacija je nekad bila pod Options/Compiler
VJ>a sad su je stavili pod Linker... Sumnjivo...
VJ> Inace, ima gotovo sve standardne sviceve iz Turbo Pascala, sto bi
VJ>trebalo da znaci da u osnovi lezi slican kompajler :)
Pa sta ako je pod Linker. Bitno je da radi posao.
U osnovi i jeste slican kompajler, ali mnooogo poboljsan.
Mislim da je dvoprolazan, moguce da je zato optimizacija pod
Linker menijem.
┌───────────┬──────────────────────────────────────────────────────────┐
│ PAOR v0.2 │ "Malene ribe vecih se klone ne pazis i vec te nema za │
│ │ tren" - Djole B. │
└───────────┴──────────────────────────────────────────────────────────┘
pascal.34postmast,
From: darko.hujdurovic@panon.ns.ac.yu (Darko Hujdurovic)
Subject: Re: Delphi
Date: Mon, 2 Oct 1995 17:53:00 GMT
SD>A koliko je vizuelni deo povezan sa "tastaturnim" delom, odnosno,
SD>da li bi i koliko bilo komplikovano, na primer, napraviti tabelu
SD>sa bazom i recimo duplim klikom na desni taster pozvati specijalni
SD>dijalog za unos?
Cak sta vise, to je direktno podrzano. Mislim da je komponenta Local
menu, ili nesto slicno. Odnosno desnim klikom na tvoje polje fino se
covijeku otvori meni sa izborom, reccimo da uradi nesto sa tim
poljem, pa kad on izabere a ti mu otvori sta hoces. ;)
SD>Predpostavljam da ima Turbovizicnu HandleEvent filozofiju....
Nesto slicno, ali mnogo bolje. Svaka komponenta, odnosno sve sto
vidis ima odredjene Evente, ti izaberes koji hoces da obradis i on ti
odma' napravi sve sto je potrebno, a ti korisni dio upises izmadju
begin i end;
Mozes cak da napravis da se nesto desi kad pacovom predjes preko
nekog dijela tvog prozora, ili mozda citavog prozora.
Npr, dok je pacov iznad tvog prozora on mu kaze:
"Voltron, defender of the universe is ready for you!" :)
┌───────────┬──────────────────────────────────────────────────────────┐
│ PAOR v0.2 │ "U mojoj sobi samo stari veker vreme drobi, a badnje │
│ │ vece prolazi" - Djole B. │
└───────────┴──────────────────────────────────────────────────────────┘
pascal.35postmast,
From: darko.hujdurovic@panon.ns.ac.yu (Darko Hujdurovic)
Subject: Re: 70 kolona
Date: Mon, 2 Oct 1995 18:00:00 GMT
SD>Evo source koji tag maksimalne duzine maxtaglen znakova u liniji
SD>ubacuje u string, a posle u fajl:
SD>while(tekuci<strlen(tagline))
SD>{
SD> strcat(tag,"\n¸> "); /* pocni liniju taga ... */
SD> linija = 0;
SD> for(;;)
SD> {
SD> sscanf(s,"%80s",rec); /* procitaj tekucu rec */
SD> drec = strlen(rec)+1;
SD> if(drec>maxtaglen)
SD> {
SD> sprintf(tag,"\n¸> Rec \"%s\" je duza od maksimalne "
SD> "duzine linije taga!",rec);
SD> tekuci=strlen(tagline);
SD> break;
SD> }
SD> linija += drec;
SD> if(linija>maxtaglen || tekuci>=strlen(tagline))
SD> break;
SD> else
SD> {
SD> strcat(tag,buf); /* dodaj rec na tag + space */
SD> strcat(tag," "); /* i idi na sledecu rec */
SD> tekuci += drec;
SD> s += drec;
SD> }
SD> }
SD>}
SD>fprintf(fp,"%s\n\n%s %s",tag,dmgsign,usersign);
Ko to kaze da je C kriptican. Evo nesto slicno u Pascalu.
Moze prostije, al ja volim da komplikujem :))))
function GetWord(var Linea: string):string;
var WordOne : string;
i,j : word;
begin
WordOne:='';
j:=1;
while (j<ord(Linea[0])) and (Linea[j]=' ') do inc(j);
i:=j;
while (i<ord(Linea[0])) and (Linea[i]<>' ') do inc(i);
WordOne:=copy(Linea,j,i-j+1);
delete(Linea,1,i);
if WordOne='' then GetWord:=' '
else GetWord:=WordOne;
end;
begin
Assign(TFile, MsgFile);
Append(TFile);
WriteLn(TFile);
WriteLn(TFile);
Count:=Length(Linea);
if Length(Linea) < 56 then
begin
Write(TFile, Linea);
for i:=56 downto Length(Linea) do Write(TFile, ' ');
end
else
begin
Count:=0;
CP:=0;
repeat
Tmp:=GetWord(Linea);
Count:=Count+ord(Tmp[0]);
if Count>56 then begin
for i:=56 downto Count-ord(Tmp[0]) do Write(TFile, ' ');
Count:=ord(Tmp[0]);
end;
Write(TFile,Tmp);
until Tmp=' ';
for i:=55 downto Count-ord(Tmp[0]) do Write(TFile, ' ');
end;
close(TFile);
end.
┌───────────┬──────────────────────────────────────────────────────────┐
│ PAOR v0.2 │ "I nemoj crnoj ptici da me das" - Djole B. │
└───────────┴──────────────────────────────────────────────────────────┘
pascal.36postmast,
From: Mladen.Jablanovic@f101.n101.z38.setnet.setnet.co.yu (Mladen Jablanovic)
Subject: Pascal
Date: Sun, 01 Oct 1995 00:12:09
==== Quoting Zoran Rilak: ====
ZR> Da li je neko video igru "StarGlider" na XT-u? Koliko ljudi smatra da
ZR> bi mogli da naprave istu stvar na svojim 486 masinama? Programeri su se
ZR> ulenjili, i sve su vise lenji sto su masine brze.
Izvini sto se mesam, ali to sto su programeri (u konkretnom
slucaju oni koji prave igrice) presli sa masinca na C ili neki drugi
visi jezik ne znaci da su se ulenjili; to znaci da je danas igru
(igru, a ne dobru igru) mnogo lakse i brze napisati. Naravno, to nosi
sa sobom vece hardverske zahteve, ali koliko imas dobro uradjenih
igrica za XT, a koliko za 486?
To sto sad ima mnogo manje DOBRIH igrica nego u ono vreme je
vise sociolosko nego racunarsko pitanje. Sta bih ja dao za jednu
igricu na PC-u koja bi me drzala duze od dva sata, kao sto me je nekad
drzao Monty na spektrumu...:(
... RECNIK: Starkelja - deda u starkama
* Origin: Oreska BBS, UZICE = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.37postmast,
From: Mladen.Adamovic@f135.n135.z38.setnet.setnet.co.yu (Mladen Adamovic)
Subject: Re: zapisi i tako dalje
Date: Sun, 01 Oct 1995 19:31:49
-+=+- Robert Oswald rece : -+=+-
RO> Zaboravih da ti pomenem ,mogu ti pribaviti i format FLI zapisa ako ti
Pa ako je kratko moglo bi u konf. Unapred hvala.
Pozdrav, Mladen Adamovic (adamm@elf.bl.ac.yu).
... Ko drugome jamu kopa fizicki je radnik
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.38postmast,
From: Ognen.Spiroski%f132.n108.z38@setnet.setnet.co.yu (Ognen Spiroski)
Subject: pascal
Date: Mon, 25 Sep 1995 18:26:00
"LĆ From: "Kristijan Lazic" <kriss@sezam.UUCP> Newsgroups:
"LĆ yu.prog.pascal Organization: SEZAM Beograd, 011 648-422
"LĆ Zna li neko knigu u kojoj imskoro sve o
"LĆ Turbo Pascal-u (6.0)
"LĆ SEZAM, dir pascal, fajl TPR-BOOK.ZIP. Cena: dz.
Dali moze (Posto poodavno nemam pristap sezamu (pola godina dana ako ne i vise)) ako fajl nije veci od 100 kb da ga podelis na delice i uuencode-ovas ga na moju adresu po mail ?
0GZy
* 0Gi'S eDiT0R * With faster machines comes slower software
* Origin: SETNet: ĆMemory Master BBS +389/91-164-877ž SKOPJE (38:108/132)
pascal.39postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: 70 kolona
Date: Tue, 3 Oct 1995 18:42:00 GMT
DH> Ko to kaze da je C kriptican. Evo nesto slicno u Pascalu.
DH> Moze prostije, al ja volim da komplikujem :))))
DH> function GetWord(var Linea: string):string ...
Priznajem da mi nista nije jasno... Crni Darko, pa zar ti Mirjana
nije predavala "Umetnost lepog programiranja" izmedju ostalog i dala
vise od 5, cccc... :)))
¸> "I'm gonna set this scene out..." -- Crow T. Robot
* ŰmÔ/\/\× 1.3 #00 *
pascal.40postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: pascal
Date: Tue, 3 Oct 1995 16:14:00 GMT
NG> Trebaju mi knjige u kojima se mogu naci naredbe za pravljenje programa
NG> za modeme,t.j. za slanje i citanje sa serijskog porta u PASCAL-u.Ako
NG> neko zna koja literatura za to postoji ili gde se moze naci,neka napise
NG> nesto...
Ako te zanima i poneki sorsic, javi pa cu ti ga posaljem :)
Mada, koliko sam se ja time bavio, najvise sam uspeha imao
koristeci gotove rutine iz Personal Communications Lib.
¸> Chain Lightning: For when you just can't stop at one.
* ŰmÔ/\/\× 1.3 #00 *
pascal.41postmast,
From: vlaxi@shadow.herkules.co.yu (VLAXI)
Subject: Re: zapisi i tako dalje
Date: Mon, 02 Oct 95 08:27:00 +0100
-=> Quoting Robert Oswald to All <=-
RO> @FROM :raven@setnet.co.yu
RO> N @UMSGID :<812513903.AA08833@setnet.setnet.co.yu>
RO> N @UNEWSGR:01yu.prog.pascal
RO> N Path: herkules!fon.fon.bg.ac.yu!setnet!uucp
RO> From: raven@setnet.co.yu (Robert Oswald)
RO> Newsgroups: yu.prog.pascal
RO> Subject: Re: zapisi i tako dalje
RO> Message-ID: <812513903.AA08833@setnet.setnet.co.yu>
RO> Date: Fri, 29 Sep 1995 23:52:04
RO> Sender: uucp@setnet.setnet.co.yu
RO> 'ello, Mladen, I've heard that ya said...
MA> -+=+- Mihajlo Savic rece : -+=+-
MA>> Ja bih u "listu" da dodam AVI i MPEG.
MS>> ^^^^ I tata bi sine :))))))
MS>> MPEG? Pa covjece niko od nas nema sanse da napravi player za MPEG
MS>> koji bi radio iole pristojnom brzinom O;>>>
MA> Ko je rekao da ja zelim da pravim player za MPEG? Mene samo
MA> "informativno" interesuje zapis. Posebno me interesuje AVI, posto
MA> je sigurno, pred njim buducnost. Ako neko slucajno ima Windows 95
MA> Develompers Kit (to je onaj drugi cd), mogao bi da nesto izvadi iz
MA> stavke "ANI".
Ima jedan moj ortak taj CD ..... ;))
RO>
RO> Zaboravih da ti pomenem ,mogu ti pribaviti i format FLI zapisa ako ti
RO> treba, kao i FliPlayer (nekoliko verzija, x puta brzhi od autodeskovog)
RO> (c) Zika :))
RO> ĆĆ RaveN žž >>> VBC <<<
RO> ! Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
... * Origin: Shadow BBS 22-08 , 424360 , 2400-14400 , MNP1-5 , V42-V42B
___ ####VLĺXI#### v2.12
pascal.42postmast,
From: Mihajlo.Savic%f135.n135.z38@setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: pascal
Date: Mon, 02 Oct 1995 23:02:41
*** QUOTE : "Srdan Simic" ***
"S> otvaraju u readonly, sa rewrite u writeonly, a sa append u readonly
"S> takodje.
Khm, ovaj, a kako zamisljas da program dopise (append) jos teksta na kraj
datoteke ako je ona redonly? Tu mi nesto ne stima, vjerovatno je lapsus...
BadaBoom
... If you can't make it good, make it big.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.43postmast,
From: raven@setnet.co.yu (Robert Oswald)
Subject: Re: zapisi i tako dalje
Date: Tue, 03 Oct 1995 22:56:01
'ello, Mladen, I've heard that ya said...
MA> -+=+- Robert Oswald rece : -+=+-
RO>> Zaboravih da ti pomenem ,mogu ti pribaviti i format FLI zapisa ako ti
MA> Pa ako je kratko moglo bi u konf. Unapred hvala.
Pa znash kako, moram prvo da ulovim VMZ-a da to napishe, znas, zaposlen
chovek, nema ga u Rumi ovih dana... No mogu ti poslati njegove FLI playere,
(one koje ja imam, ima on i novijih) pa ti reci da li hoces da ti to
UUEncodujem, ili ces zvati mene (022) 425-879 (do 23 voice, posle modem)
pa da ti to UL ruchno ili da ti ostavim kod mene na BBS. Javi da znam sta
da radim :)
ĆĆ RaveN žž >>> VBC <<<
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.44postmast,
From: vladimir.jokic@panon.ns.ac.yu (Vladimir Jokic)
Subject: Re: Delphi
Date: Wed, 4 Oct 1995 08:57:00 GMT
VJ> Inace, ima gotovo sve standardne sviceve iz Turbo Pascala, sto bi
VJ>trebalo da znaci da u osnovi lezi slican kompajler :)
DH> Pa sta ako je pod Linker. Bitno je da radi posao.
DH> U osnovi i jeste slican kompajler, ali mnooogo poboljsan.
Hm. Jesi radio sa Borland Pascalom 7 za Windows-e? Ja nisam, pa me
zanima kako se meri sa njim (po pitanjima brzine EXE-a)...
Inace, ne znam da li si primetio, ali svi fajlovi nose vreme 8:00,
sto znaci da je izgleda krpljeno preko sedmice... A i na uvodnom ekranu
pise Copyright Borland Intl. '83-'95 :))))
¸> Pick two: 1) Cheap 2) Fast 3) Bug Free 4) Windows (counts as 2)
* ŰmÔ/\/\× 1.3 #05 * BaMßşN0
pascal.45dvesic,
-> #31, postmast>> Zaboravih da ti pomenem ,mogu ti pribaviti i format FLI zapisa
>> ako ti treba, kao i FliPlayer (nekoliko verzija, x puta brzhi
>> od autodeskovog) (c) Zika :))
Može li neki player (sem OS/2 playera :) da ispuca FLI koji je 2,5
puta veći od raspoloživog RAM-a ?
Koji ?
pascal.46postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: Delphi
Date: Fri, 6 Oct 1995 18:58:00 GMT
VJ> Inace, ne znam da li si primetio, ali svi fajlovi nose vreme 8:00,
VJ> sto znaci da je izgleda krpljeno preko sedmice... A i na uvodnom ekranu
VJ> pise Copyright Borland Intl. '83-'95 :))))
Pa i vreme je bilo :)
TP pratim od 3.0 i svaka verzija je donosila nesto novo (jedino nisam
siguran za 5.0 ;). Sasvim je logicno da se posle 12 godina odlepe od
DOS-a.
¸> "By the way, have you ever bathed?" -- Joel Robinson
* ŰmÔ/\/\× 1.3 #00 *
pascal.47postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: Pascal
Date: Fri, 6 Oct 1995 19:02:00 GMT
MJ> To sto sad ima mnogo manje DOBRIH igrica nego u ono vreme je
MJ> vise sociolosko nego racunarsko pitanje. Sta bih ja dao za jednu
MJ> igricu na PC-u koja bi me drzala duze od dva sata, kao sto me je nekad
MJ> drzao Monty na spektrumu...:(
Da, ali onda se igrica ucitava "vekovima" i verovatno te je mrzelo
svaki put da ucitavas ponovo. (citaj: 'God bless Turbo 250' ;)
Sto se tice pisanja igrica, slazem se da je postalo potpuno je nepotrebno
pisati iste u suvom asembleru radi brzine: Prince Of Persia je pisan u MSC
6.0 i veruj mi na rec da savrseno radi na XT-u :)
¸> ... "No one has jurisdiction over the truth" -Fox Mulder
* ŰmÔ/\/\× 1.3 #00 *
pascal.48postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: pascal
Date: Fri, 6 Oct 1995 19:05:00 GMT
IG> Jel mozda neko zna i moze da mi napise proceduru za zrtanje luka
IG> tacku po tacku bez standardnih graph proc&funkcija.Parametri bi trebali
IG> budu poluprecnik pocetni i krajni ugao.
Pa mozes malo da izvedes pomocu geometrije:
x = x0 + r * cos(ugao)
y = y0 + r * sin(ugao)
ugao = [pocetni..krajnji]
r = poluprecnik
(x0,y0) = centar luka
Ako ti je sporo, koristi tabelu za sin i cos za warpspeed
izracunavanje. :)
¸> Deanna tries to read Picard's mind and sees Pontiac.
* ŰmÔ/\/\× 1.3 #00 *
pascal.49postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: pascal
Date: Fri, 6 Oct 1995 19:07:00 GMT
MS> Khm, ovaj, a kako zamisljas da program dopise (append) jos teksta na kraj
MS> datoteke ako je ona redonly? Tu mi nesto ne stima, vjerovatno je lapsus...
Nikako, promenis joj atribut pre obrade, a kasnije vratis stari.
¸> "Bother," said Dale as his X-wing exploded.
* ŰmÔ/\/\× 1.3 #00 *
pascal.50.sima,
-> #42, postmast║║ "S> otvaraju u readonly, sa rewrite u writeonly, a sa append u
║║ "S> readonly takodje.
║║ na kraj datoteke ako je ona redonly? Tu mi nesto ne stima,
║║ vjerovatno je lapsus...
Da lapsus; sa append se otvara u writeonly.
pascal.51postmast,
From: Ognen.Spiroski%f132.n108.z38@setnet.setnet.co.yu (Ognen Spiroski)
Subject: pascal
Date: Sat, 07 Oct 1995 14:07:00
NGĆ From: nikola.golovic@shadow.herkules.co.yu (NIKOLA GOLOVIC)
NGĆ Newsgroups: yu.prog.pascal Organization: BUSY CONNECTIONS ,
NGĆ SHADOW.HERKULES.CO.YU , 011/424-360 22-08
NGĆ Trebaju mi knjige u kojima se mogu naci naredbe za pravljenje
NGĆ programa za modeme,t.j. za slanje i citanje sa serijskog porta u
NGĆ PASCAL-u.Ako neko zna koja literatura za to postoji ili gde se moze
NGĆ naci,neka napise nesto...
Ja sam radio neke moje rutine u Pascalu ali su bile prokleto spore :(( Uzeo sam i PCL4P ali imao je neke nedostatke (trudim se da ga adaptiram za moje potrebe) pa nisam nista uradio. Inace, video sam 2 knjige okolo to : Dos sistemski pozivi (nisam s
iguran, mozda se zvala i : Dos Iznutra) od stranskih autora, a i neku od Hayes-a. Na zalost bili su skupi :(( i nisam ih kupio :((( (ne vici, 100DM za original od Hayes-a mi je previse :)) )
0GZy
p.s. ako hoces poslacu rutine ali nisam siguran da ce ti uopste pomoci (eeh, da sam znao bolje ASM) jer su VeoMa! proste :( a i narugace mi se svako :))
* 0Gi'S eDiT0R * Backup not found: (A)bort (R)etry (P)anic
* Origin: SETNet: ĆMemory Master BBS +389/91-164-877ž SKOPJE (38:108/132)
pascal.52kriss,
-> #38, postmast˙˙ From: Ognen.Spiroski%f132.n108.z38@setnet.setnet.co.yu (Ognen
˙˙ Spiroski)
˙˙ Dali moze (Posto poodavno nemam pristap sezamu (pola godina
˙˙ dana ako ne i vise)) ako fajl nije veci od 100 kb da ga
˙˙ podelis na delice i uuencode-ovas ga na moju adresu po mail ?
Fajl je poveći, i više puta bi preturio limit UUCP-a. Međutim, fajl
možeš naći i na brzom sezamu (SEZAM-PRO-BA), gde je pristup besplatan.
pascal.53vgenije,
-> #51, postmast>
> NGC Trebaju mi knjige u kojima se mogu naci naredbe za
> pravljenje NGC programa za modeme,t.j. za slanje i citanje sa
> serijskog porta u NGC PASCAL-u.Ako neko zna koja literatura za
> to postoji ili gde se moze
MENE ZAnima da li je neko natero onaj commx da radi?
Postoji li neki preimer koji pokazuje kako se iz pascala koordinira rad
modema itd..
pascal.54guta,
RE: Delphi
Šta nije u redu sa sledećim kodom (i verzijama)
-------- Verzija 1 --------
try
i := StrToInt( Edit1.Text );
except
MessageBeep(0);
end;
-------- Verzija 2 --------
try
i := StrToInt( Edit1.Text );
except
on exception do
MessageBeep(0);
end;
-------- Verzija 3 --------
try
i := StrToInt( Edit1.Text );
except
on EConvertError do
MessageBeep(0);
end;
-------- Verzija 4 --------
try
i := StrToInt( Edit1.Text );
except
on Exception do
MessageBeep(0);
else
MessageBeep(1);
end;
Sve četiri verzije ponašaju se potpuno isto, tj. :
- kada je string Edit1.Text neregularan za konverziju, funkcija
StrToInt 'podiže' exception class EConvertError, pojavi se mali
message box, gde on to i kaže, i program naravno stane.
- kada mu kažem OK, on ostane u debug modu i potom ako idem step-by-step
on sasvim regularno udje u blok iza except i zapišti, i potom nastavi
dalje.
- probao sam i da prijavim svoj exception handler Application.OnException
i to radi (nema grešaka, regularno je prijavljen), ali f-ja StrToInt
i dalje pada na neregularnu vrednost, diže exception i prikazuje
onaj message box.
Pitanja:
- zašto ovo ne radi? U helpu ima čak isti primer...
- ako ja u nečemu grešim (a biće da grešim ;) kako ova konstrukcija
try...except...ŠelseĆ..ŠfinalyĆ...end treba da izgleda tako da mi se
ne prikazuje dotični m.box i da se aplikacija ne zaustavlja?
- mora da je nešto sitno (ili krupno? ;) što meni definitivno promiče...
Unapred hvala na pomoći :)
poz, Guta
pascal.55nlazic,
-> #54, guta*> - zašto ovo ne radi? U helpu ima čak isti primer...
Proveri da li si u Options/Environment-Preferences isključio opciju
Break on exception. Inicijalno ona je čekirana, tako da se program prekida
pri svakoj grešci, obradio je ti ili ne.
Ako nije to, javi da mozgamo :)
Pozdrav,
:) Nebojša :)
pascal.56.sima,
-> #54, guta║║ RE: Delphi
║║ Šta nije u redu sa sledećim kodom (i verzijama)
Pa nalazi se u temi Pascal a ne Delphi :)
pascal.57guta,
-> #56, .simaOps! :))
Nisam ni primetio da je otvorena tema Delphi...
Izvinjavam se cenjenom auditorijumu O:)
poz, Guta
pascal.58postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Font na stampacu
Date: Tue, 10 Oct 1995 23:17:00
Da li je moguce ugraditi YU slova u stampac, cisto softverski?
Rile:)
... All, Do you love TECHNO?
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.59postmast,
From: vojam@setnet.co.yu (Vojislav Mihailovic)
Subject: Font na stampacu
Date: Wed, 11 Oct 1995 13:58:04
* U poruci za All, Petar Ristic je rekao:
PR> Da li je moguce ugraditi YU slova u stampac, cisto
PR> softverski?
Zavisi od stampaca. U neke moze, u neke ne moze. Koji ti imas stampac?
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.60postmast,
From: Jugoslav.Stojanov%f122.n103.z38@setnet.setnet.co.yu (Jugoslav Stojanov)
Subject: EVALUATOR IZRAZA
Date: Mon, 09 Oct 1995 16:19:11
Da li neko slucajno ima evaluator izraza + simbolicko diferenciranje
pisano kao unit u pascalu...
---FidoPCB v1.0 [NR]
* Origin: * Fenix BBS, Beograd 011 414-312;404-679 * SetNet: (38:103/122)
pascal.61postmast,
From: Jugoslav.Stojanov%f122.n103.z38@setnet.setnet.co.yu (Jugoslav Stojanov)
Subject: DELPHI I TASK
Date: Mon, 09 Oct 1995 17:07:11
Imam problem sa Delphi-em.
...
x=WinExec('Notepad.exe', ..... );
u x se nalazi handle taska notepad. OK
...
flag=istask(x);
posle ovog dela flag je false. Dakle x nije task. Kako onda da saznam
koji je handle notepada-a???
Probao sam da krenem kroz sve handleove i za svaki pitam istask(),
i uglavnom dobijam razne gluposti.
cu Jujo!
---FidoPCB v1.0 [NR]
* Origin: * Fenix BBS, Beograd 011 414-312;404-679 * SetNet: (38:103/122)
pascal.62postmast,
From: culjko@setnet.co.yu (Boris Dragovic)
Subject: Re: pascal
Date: Thu, 12 Oct 1995 12:17:04
"S> Jel mozda neko zna i moze da mi napise proceduru za zrtanje luka
"S> tacku po tacku bez standardnih graph proc&funkcija.Parametri bi
"S> trebali da budu poluprecnik pocetni i krajni ugao.
"S>
"S> Evo ti primer u kome sam koristio int 10. To znaci da primer nije
"S> za koriscenje, vec samo za ilustraciju. Ako ti treba nesto brze
"S> savetujem ti da pogledas nekoliko poslednjih bojeva casopise: PC - za
"S> crtanje u VESA modovima i Racunari - programiranje vga karte pomocu
"S> registara. Jedini deo koji bi morao da se zameni je DrawPoint. A za to
"S> moze da se koriste registri ili direktni pristup memoriji.
ja imam bolju ideju zasto nebi upotrebili mogucnosti
bezijerove krive , tada bi stvarno dobijali tacku po tacku a i nije
mnogo sporo.....
* Origin: Atlantis ■ WELCOME ■ (38:103/115)
pascal.63postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: pascal
Date: Tue, 10 Oct 1995 23:24:00 GMT
OS> Ja sam radio neke moje rutine u Pascalu ali su bile prokleto spore :(( Uzeo
OS> i PCL4P ali imao je neke nedostatke (trudim se da ga adaptiram za moje pot
Isprobao sam dosta biblioteka (sto SareVare sto PD) i jedino mi PCL
nije pravila problema sa modemom (citaj: inicijalizacija portova)
BTW, registracija je trivijalna ;) (ako te zanima)
¸> The Borg Cable Co: The subscriber's wishes are irrelevant!
* ŰmÔ/\/\× 1.3 #00 *
pascal.64postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: EVALUATOR IZRAZA
Date: Wed, 11 Oct 1995 12:45:00 GMT
JS> Da li neko slucajno ima evaluator izraza + simbolicko diferenciranje
JS> pisano kao unit u pascalu...
Imas u Racunarima 80 source u Pascalu i u Lispu.
¸> Don't drive too close or I'll flick a booger on you.
* ŰmÔ/\/\× 1.3 #00 *
pascal.65postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI)
Subject: pascal
Date: Thu, 12 Oct 1995 19:45:00
OS>Ja sam radio neke moje rutine u Pascalu ali su bile prokleto spore :(( Uzeo
OS>i PCL4P ali imao je neke nedostatke (trudim se da ga adaptiram za moje potre
OS>pa nisam nista uradio. Inace, video sam 2 knjige okolo to : Dos sistemski po
OS> (nisam siguran, mozda se zvala i : Dos Iznutra) od stranskih autora, a i ne
OS>d Hayes-a. Na zalost bili su skupi :(( i nisam ih kupio :((( (ne vici, 100DM
OS>original od Hayes-a mi je previse :)) )
Knjiga "Serial Communications in C and C++", Mark Goodwin, MIS Press
(ima je u USIS-u Skopje). Sve je prvo teoretski objasnjeno pa su dati
source-ovi u C-u i klase u C++-u. Lako za razumeti i prevesti u
Pascal/Assembler.
Ognen
* OLX 2.1 TD * You have a terminal illness - check your terminal.
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.66postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI)
Subject: pascal
Date: Sun, 08 Oct 1995 11:59:00
"S> DPMI program radi kao i BP i BPC mora da bude aktivan neki DPMI
"S>server, bilo da je to QDPMI (koji ima mogucnost virtualne memorije), ili
"S>da se stave dpmi*.* fajle iz Pascala u path.
Hmmmm....Jel' si siguran za ovo ? Ja mislim da se DPMI server ugradjuje
u svaki .EXE preveden za protected mode. Ukoliko je aktivan drugi DPMI
server - bice iskoriscen taj drugi, inace ugradjeni.
Ognen
* OLX 2.1 TD * Software Factory
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.67postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI)
Subject: pascal
Date: Sun, 08 Oct 1995 11:37:00
"N>Da li neko zna nesto o paketu SPX v2.0 ? Gde bih mogao da ga nabavim ?
"N> Cini mi se da se radi o grafici (13x mode, sprajtovi ...) !
"N> Ako znate bilo sta molim da javite.
Ako ne nadjes, jel moze ovo da pomogne (?):
GENUS Microprogramming
1155 Dairy Ashford, Suite 200, Houston, TX 77079,(713) 870-0737
Fax:(713) 870-0288. Prodaju razne pakete za pascal, c i c++ za grafiku,
efekte, sprajtove i slicno. Cene su od $50 do $250.
Ognen
* OLX 2.1 TD * When Rolling Stones are high, are they Rolling Stoned ?
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.68postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI)
Subject: pascal
Date: Sun, 08 Oct 1995 11:40:00
"P>Zna li neko dobru knjigu za Turbo Paskal u kojjoj
"P>skoro sve ima,od verzije 6.0 ili 7.0 ako sadrzi
"P>iza 6.0?
1. Turbo Pascal 6.0 Techniques & Utilities, Neil J. Rubenking,
Ziff-Davis Press
2. Turbo Pascal 7.0 Handbook (zaboravih ostale podatke)
Ognen
* OLX 2.1 TD * You have a terminal illness - check your terminal.
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.69postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI)
Subject: pascal
Date: Sun, 08 Oct 1995 12:02:00
"K>Imam jedan problem u vezi turbovizije.Naime javlja mi gresku
"K>pri upisu na tok(stream) i to u obliku STREAM REGISTRATION ERROR.
"K>Ako neko zna , neka javi zasto i kako je otkloniti?
Da bi objekat mogao da bude stream-ovan potrebno je da ga registrujes.
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ŢRegisterType procedure (OBJECTS unit)Ů
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Declaration:
procedure RegisterType(var S: TStreamRec);
Function:
Registers an object type with Turbo Vision's streams, creating an entry
in a linked list of known objects. Streams can only store and return
these known object types. Each registered object needs a unique stream
registration record, of type TStreamRec.
TStreamRec type (OBJECTS unit)
Declaration: TStreamRec = record
ObjType: Word;
VmtLink: Word;
Load: Pointer;
Store: Pointer;
Next: Word;
end;
type
TCalculator = object(TDialog)
constructor Load(var S: TStream);
procedure Store(var S: TStream);
...
end;
const
RCalculator: TStreamRec = (
ObjType: 2099;
VmtLink: Ofs(TypeOf(@TCalculator)^);
Load: @TCalculator.Load;
Store: TCalculator.Store);
begin
RegisterType(RCalculator);
...
end;
Pozdrav,
Ognen
* OLX 2.1 TD * Software Factory
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.70postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI)
Subject: pascal
Date: Sun, 08 Oct 1995 11:54:00
"J>Za njega nisam cuo, ali mogu da ti ponudim ANIVGA koji radi
I uzasno je spor i trzav...
Ognen
* OLX 2.1 TD * When Rolling Stones are high, are they Rolling Stoned ?
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.71postmast,
From: vladimir.sitnikovski@informa.mk (Vladimir Sitnikovski)
Subject: pascal
Date: Sun, 15 Oct 1995 03:21:00 GMT
Vg> MENE ZAnima da li je neko natero onaj commx da radi?
Vg> Postoji li neki preimer koji pokazuje kako se iz pascala koordinira
Vg> rad modema itd..
Predji na Cliper, C i assembler, modem ti je u rukama, i radi
sto god hoces, ima da ga nateras bukvalno da propeva :)
Rgds, Vladimir Sitnikovski Republic of Macedonia +389(0)91-318618
Sitnik
... Catch the Blue Wave!
___ Blue Wave/QWK v2.12
pascal.72postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: pascal
Date: Sun, 15 Oct 1995 16:01:00 GMT
VS> Vg> MENE ZAnima da li je neko natero onaj commx da radi?
VS> Vg> Postoji li neki preimer koji pokazuje kako se iz pascala koordinira
VS> Vg> rad modema itd..
VS> Predji na Cliper, C i assembler, modem ti je u rukama, i radi
VS> sto god hoces, ima da ga nateras bukvalno da propeva :)
Moze on da peva i iz GWBASIC-a ili FORTRANA 77 ;)
Problem je u kvalitetnim rutinama za komunikaciju, a ne u okruzenju
u kome se iste nalaze. Sto se tice pascala, PCL fino radi posao.
¸> That night they got me locked in a row called death, the governor,
¸> that muthafucka wants my last breath.
* ŰmÔ/\/\× 1.3 #00 *
pascal.73postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Re: pascal
Date: Sun, 15 Oct 1995 18:10:00
>> Srdjan Dakic nekad rece, a ja ga sada citiram <<
SD> BTW, registracija je trivijalna ;) (ako te zanima)
Kako se "registruje"?
Rile:)
... TECHNO is more then music, TECHNO is life style!!!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.74postmast,
From: pedja.ulic@panon.ns.ac.yu (Pedja Ulic)
Subject: Detektovanje Windows-a?
Date: Mon, 16 Oct 1995 14:04:00 GMT
Da li neko ima ideju kako iz DOS programa koji radi
u DOS PROMPT-U Windows-a 3.1X procitati serijski broj diska(DOS-ov)?
Posao se ne odradjuje preko INT 21h, funkcijom 69h.
Isto pitanje stoji i za bilo koji Windows program.
Ako neko ima ideju ili je daj boze problem resio, please help!
... Catch the Blue Wave!
___ Blue Wave/QWK v2.12
pascal.75sjocic,
Kako izvesti da signal 'RING' sa modema dođe do programa u Pascalu ?
Evo u čemu je ideja,
Hoću da napravim malo bolju sekretaricu (od Cirrusa) uz pomoć SB16
karte i modema. Modem bi služio samo za detekciju Ring-a, a posle
je stvar do programa. Dakle trebao bi da bude sledeći postupak:
1. Tel. zvoni i dolazi signal sa modema (RING)
2. Program šalje neki signal (impuls) na neki od externih Com portova
Taj signal bi recimo preko optokaplera uključivao relej, a ovaj
vezu SB-> tel. linija.
3. SB emituje WAV poruku (pozivom kom.linije sa PLAY), a zatim počinje
recording proces u izabranom modu. (problem je i ograničiti vreme
snimanja na recimo 30 sec. pošto se program deaktivira samo sa ESC).
Ima li nekih ideja (predloga) na ovu temu ?
pascal.76guta,
-> #55, nlazic
Tako je! Break on exceptions rešava problem... :) A ja se ubi
pišući konstrukcije o 'fatanju grešaka na milion načina. :)))
Tako mi i treba kad ne gledam pažljivo, a i ko bi pretpostavio.
U svakom slučaju, blagodarim na pomoći.
poz, Guta
pascal.77.sima,
-> #66, postmast║║ Hmmmm....Jel' si siguran za ovo ? Ja mislim da se DPMI server
║║ ugradjuje u svaki .EXE preveden za protected mode. Ukoliko je
║║ aktivan drugi DPMI server - bice iskoriscen taj drugi, inace
║║ ugradjeni.
Ne, to je pogrešno. VCPI server je ugradjen u EXE i možda neki bolji
DPMI, ali Borlandovi nisu. Probaj da startuješ BP, BPC, BC, BCC, a da
pre toga obrišeš ili skloniš dpmi*.* iz njihovih bin direktorijuma:
Failed to locate DPMI server (DPMI16BI.OVL)
Ovo se dobije.
pascal.78icile,
-> #75, sjocic> Kako izvesti da signal 'RING' sa modema dode do programa u
> Pascalu ?
Postoje dva nacina da se ovo uradi:
1. Preko poruka koje modem vraca korisniku. Sa COM porta 'skida' se string
koji modem salje korisniku. Ako je taj string RING, to znaci da telefon
zvoni. Pre nego sto se ovo uradi, trebalo bi inicijalizovati modem i
postaviti ga u stanje cekanja, i to Hejs komandama. Onda preostaje cekanje
na dati signal.
2. Testiranjem odgovarajuceg bita tacno odredjenog registra UART kola, koje
je zaduzeno za serijsku komunikaciju. Preporucujem ovaj nacin!
Uz poruku saljem zip-fajl koji sadrzi dva fajla:
COMPORT2.PAS - koji kad se prevede (sto je obavezno) daje .TPU fajl, koji
ces da ukljucis u direktorijum sa ostalim .TPU-ovima
RINGDET.PAS - kratak demonstracioni programcic, prokomentarisan; ukoliko
nesto ipak nije jasno, ostavi mail!
A, ako jos zelis da se detaljnije upoznas kako tvoj modem radi i kako mozes
da ga programiras, preporucujem knjigu
Aleksandra Radovanovica: 'Modemske komunikacije'
> recording proces u izabranom modu. (problem je i ograniciti
> vreme snimanja na recimo 30 sec. posto se program deaktivira
> samo sa ESC).
Objasni malo bolje u cemu je problem, jer samo ogranicavanje vremena mozes
da izvedes na sledeci nacin: procitas jednom sistemsko vreme (na pocetku
snimanja) i onda ga citas stalno (dok se u pozadini odvija snimanje). Oduzimas
ta dva vremena. Kad razlika postane veca ili jednaka 30 sekundi, prekidas
snimanje. Naravno, ovde ima malih problema pri oduzimanju dva vremena, ali to
moze da se resi, ukoliko je to jedini problem.
pascal.79icile,
Evo fajla koji bi trebalo da bude vezan na neku drugu poruku, ali posto sam
ovde novi, nemam pojma kako se to radi!!! Mozda mi neko objasni. Poruka je
upucena coveku koji se ovde zove SJOCIC, a u vezi sa testiranjem RING signala
modema. Uz poruku ce valjda biti zakacen fajl RINGDET.ZIP
ringdet.zippascal.80vasic,
-> #75, sjocic> Kako izvesti da signal 'RING' sa modema dođe do programa u Pascalu ?
Ako ti ne treba ništa drugo sem da detektuješ zvono, onda možeš da
izbegneš pisanje komunikacionog programa i samo da čitaš Modem Status
Register (3FE za COM1 ili 2FE za COM2). Njegov bit 6 je Ring Indicator.
> 3. SB emituje WAV poruku (pozivom kom.linije sa PLAY), a zatim počinje
> recording proces u izabranom modu. (problem je i ograničiti vreme
> snimanja na recimo 30 sec. pošto se program deaktivira samo sa ESC).
Ako dotični program čita tastaturu normalno (preko BIOS-a), mogao bi se
napraviti rezidentni program koji će posle 30s da mu ubaci jedno ESC u
bafer. U stvari, mogao bi i tvoj program (onaj koji je exec-utirao
recorder) da se nakači na int 8 i odradi isti posao.
pascal.81dejanr,
-> #74, postmast>> Da li neko ima ideju kako iz DOS programa koji radi
>> u DOS PROMPT-U Windows-a 3.1X procitati serijski broj diska(DOS-ov)?
>> Posao se ne odradjuje preko INT 21h, funkcijom 69h.
Au... probao sam, i zaista ne radi... što je "najlepše", par mojih programa
tako čita serijski broj diska, ima da bude veselo kad njihovi korisnici
instaliraju Windows 95 :((
Moraće da se kopa po dokumentaciji :( Ako je neko to već uradio, neka
javi!
pascal.82postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: DiskSN-Windows?
Date: Tue, 17 Oct 1995 22:25:00 GMT
PU> SD> kome se nalazi longint koji predstavlja serijski broj. Sad da me
PU> (longint je sa pocetkom na offsetu 39 u BOOT SECTOR-u diska).
PU> Da li si koristio INT25? Ili TP (7.0) ima funkciju koja radi absread?
Ne, ja sam koristio uputstvo za upotrebu. :)) Ozbiljno: 'Programmers
Reference for MS-DOS'
Mislim - znaci postojim, da TP nema funkciju koja radi absread, ali
je trivijalno napisati je uz pomoc asm direktivice.
PU> BIOS poziv INT13,2 ne koristim jer ne znam kako se
PU> ponasa sa LBA diskovima (a i to je read kojem moram da prosledjujem
PU> logicke parametre koji se razlikuju od diska do diska).
To ti je dobar rezon. Da se ne bi petljao sa tabelom particija i da
odredjujes gde je prvi LOGICKI sektor. Za razliku od DOS-a, BIOS-u
saljes FIZICKE parametre koji kazu 'procitaj mi sa tog sektora na
tom cilindru, tom glavom, to i to'
¸> As funny as a tombstone.
* ŰmÔ/\/\× 1.3 #00 *
pascal.83zormi,
-> #81, dejanr* Au... probao sam, i zaista ne radi... što je "najlepše", par mojih programa
* tako čita serijski broj diska, ima da bude veselo kad njihovi korisnici
* instaliraju Windows 95 :((
*
* Moraće da se kopa po dokumentaciji :( Ako je neko to već uradio, neka
* javi!
Kopali smo po SDK i DDK, ali nigde odgovarajućeg API-ja za slične informacije.
Izgleda da Win95 prilično "maskira" hardver za direktni pristup, a tek NT...
pascal.84atech,
-> #81, dejanr>>> Da li neko ima ideju kako iz DOS programa koji radi
>>> u DOS PROMPT-U Windows-a 3.1X procitati serijski broj
>>> diska(DOS-ov)? Posao se ne odradjuje preko INT 21h, funkcijom
> 69h.
> Au... probao sam, i zaista ne radi... sto je "najlepse", par
> mojih programa tako cita serijski broj diska, ima da bude
> veselo kad njihovi korisnici instaliraju Windows 95 :((
> Morace da se kopa po dokumentaciji :( Ako je neko to vec
> uradio, neka javi!
1. Upotreba nedokumentovanih dos funkcija nikad nije bila preporucljiva. ;)
2. Vecina korisnika koristi ovaj int da bi procitala serijski broj harda
koji se dobija pri formatiranju diska i da bi ga kasnije upotrebila
za identifikaciju u cilju vezivanja softvera za hard. O tome koliko
je ovaj nacin identifikacije 'neozbiljan' najbolje govori cinjenica da
se isti broj moze promeniti po volji upotrebom ovog istog interapta
(21,69). Igrarije...:)
3. Ovaj int je predvidjen da daje podatke samo pod fat file sistemom i
bio je novina dos-a 4.0
4. Ako neko zeli ozbiljno da zastiti svoje programe bilo bi dobro da
nabavi softver za zastitu (npr. PCG) :)
pascal.85dejanr,
-> #84, atech
>> 1. Upotreba nedokumentovanih dos funkcija nikad nije bila
>> preporucljiva. ;)
Jedino nevolja što je ovaj dokumentovan - videti Microsoft Developers
Network CD-ROM. Moram da potražim neki noviji, moj je iz 94 godine, možda
su nešto menjali.
>> 2. Vecina korisnika koristi ovaj int da bi procitala serijski broj harda
>> koji se dobija pri formatiranju diska i da bi ga kasnije upotrebila
>> za identifikaciju u cilju vezivanja softvera za hard. O tome koliko
>> je ovaj nacin identifikacije 'neozbiljan' najbolje govori cinjenica da
>> se isti broj moze promeniti po volji upotrebom ovog istog interapta
>> (21,69). Igrarije...:)
Za 99% korisnika - sasvim dovoljna zaštita, a onaj 100-ti procenat će i
onako da razbije bilo kakvu zaštitu.
>> 3. Ovaj int je predvidjen da daje podatke samo pod fat file sistemom i
>> bio je novina dos-a 4.0
Pa da, ali i Win95 radi pod FAT-om. Što je najlepše, komandom DIR se
dobija broj, znači da postoji poziv kojim se čita.
pascal.86atech,
-> #85, dejanr> Jedino nevolja sto je ovaj dokumentovan - videti Microsoft
> Developers Network CD-ROM. Moram da potrazim neki noviji, moj
> je iz 94 godine, mozda su nesto menjali.
Evo sta kaze HelpPC:
INT 21,69 - Get/Set Disk Serial Number (Undocumented DOS 4+)
Int Lista koju posedujem (nije bas nova) govori da je ista funkcija
'internal' za dos 4.00. U svakom slucaju ovaj int ne daje podatke za
mrezne diskove (Mislim da ga podrzava jedino novel od verzije 2.0+).
Mozda je zanimljivo napomenuti da se ovaj broj formira pri formatiranju
harda na osnovu aktuelnog datuma i vremena.
>>> softvera za hard. O tome koliko je ovaj nacin identifikacije
>>> 'neozbiljan' najbolje govori cinjenica da se isti broj moze
>>> promeniti po volji upotrebom ovog istog interapta (21,69).
> Igrarije...:)
> Za 99% korisnika - sasvim dovoljna zastita, a onaj 100-ti
> procenat ce i onako da razbije bilo kakvu zastitu.
Moje iskustvo je sledece: vecina korisnika ne odnosi se prema
programima onako kako to prodavac ocekuje. To sto korisnik nema
pojma o racunarima ne znaci da nece otudjiti program. U svakom
trenutku on moze da nadje nekog ko ce da obavi taj posao umesto
njega! Na nasem trzistu softvera (ako isto u opste i postoji) vlada
prava anarhija ali ce pre ili kasnije biti uvedeni zakoni koji ce
debelo kaznjavati piratizaciju. Programerski rad (kao i vecina
intelektualnih poslova uopste) u ovoj zemlji vec duze vreme nije na
ceni. Ja kroz svoj rad na polju zastite softvera dajem skroman
doprinos ali mislim da su potrebni jaci rezovi koji bojim se, u ovom
trenutku ne odgovaraju mnogima pa ce do pravih promena veoma tesko
dolaziti. Korak napred predstavlja predlog zakona (koji inace i sam
ima dosta nedostataka ali na njemu treba raditi) a neizostavno je
i formiranje odredjene organizacije na nivou zemlje koja ce voditi
racuna o interesima programera, normama i standardima na polju
komjuterskog softvera. Koliko znam bilo je nekoliko bezuspesnih
pokusaja ali to ni u kom slucaju ne znaci da treba odustati.
> Za 99% korisnika - sasvim dovoljna zastita, a onaj 100-ti
> procenat ce i onako da razbije bilo kakvu zastitu.
Ovaj tip zastite je i previse banalan za svakog ko se i malo razume
u programiranje a da ne govorim za nesto 'naprednije' tako da bi
onaj procenat 99% ipak smanjio na nekih 30%. Ozbiljni prozivodjaci
softvera se ni u kom slucaju ne bi trebali igrati sa ovim stvarima.
Steta moze biti neprocenjiva a citav rad na projektu ponekad
uzaludan. Ni jedan zakon niti odredbe posle toga nece vratiti
izgubljen novac. Testirao sam zastite vecine firmi koje se
oglasavaju u PCM-u bilo da se radilo samo o soft ili o hard-soft
zastiti (razne vrste lockova). Rezultate ne bih objavljivao, ali sa
velikom sigurnoscu mogu da tvrdim da je moguce odraditi zastitu koja
ce sa velikom sigurnoscu zaustaviti vecinu potencijalnih provalnika.
Poznata je stvar da ni jedna zastita nije savrsena i da je svaka
teorijski slaba ali to i dalje ne znaci da ce svaka zastita pasti.
>>> 3. Ovaj int je predvidjen da daje podatke samo pod fat file
>>> sistemom i bio je novina dos-a 4.0
>
> Pa da, ali i Win95 radi pod FAT-om.
Znam. Podatak sam spomenuo zbog onih koji koriste neki drugi
file sistem a imaju nameru da koriste 21,69.
> Sto je najlepse, komandom
> DIR se dobija broj, znaci da postoji poziv kojim se cita.
Sigurno. Samo mislim da nije u pitanju samo jedan poziv. Za 15-tak
minuta kopanja moglo bi se doci do algoritma.
pozdrav.
pascal.87sjocic,
-> #80, vasic
Za zakasnjenjem zahvaljujem se icile-tu i vasic-u na odgovorima! :)
Imao bih jos jedno pitanje:
Navedeni program 'ringdet' radi Ok, ali on treba da poziva
dole navedeni rezidentni program Timer. Kako izvesti da
program salje 'ESC' i time prekine izvrsavanje drugog programa ?
Kako izvesti da se program ukloni iz memorije po njegovom
izvrsenju , tj. posto je ubacio ESC ?
{$M 2000,0,0}
{$R-,S-,I-,D+,F+,V-,B-,N-,L+}
Program Timer;
Uses dos,crt;
Const
TimerInt=$08;
Timelimit:Word=100;
Var
regs:registers;
Cnt:word;
Oldtimervec:Pointer;
i:Real;
Code:Word;
prekid:boolean;
{**************************************}
Procedure STI;
Inline($FB);
Procedure CLI;
Inline($FA);
Procedure CallOldint(Sub:pointer);
Begin
Inline($9C/$FF/$5E/$06);
end;
Procedure Clock(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP:WORD);interrupt;
begin
Calloldint(oldtimervec);
if(Cnt>timelimit) then
begin
{ Ovde program treba da salje 'ESC' i prekida drugi program }
{ ----------------------------------------------------------------}
prekid:=true;cnt:=cnt-2;
end
else
if not(prekid) then inc(Cnt,1);
STI;
end;
{**************************************}
Begin
GetIntVec(timerint,oldtimervec);
Setintvec(timerint,@Clock);
Cnt:=0; prekid:=false;
Keep(0);
end.
pascal.88icile,
-> #78, icile-> A, ako jos zelis da se detaljnije upoznas kako tvoj modem radi i kako
-> mozes da ga programiras, preporucujem knjigu
-> Aleksandra Radovanovica: 'Modemske komunikacije'
Kakav sam covek? Replika na sopstvenu poruku. Primetio sam da sam pogresio
pri navodjenju naziva knjige Aleksandra Radovanovica. Knjiga se u stvari zove:
'PC modemske komunikacije'.
pascal.89icile,
-> #87, sjocic-> dole navedeni rezidentni program Timer. Kako izvesti da
-> program salje 'ESC' i time prekine izvrsavanje drugog programa ?
-> Kako izvesti da se program ukloni iz memorije po njegovom
-> izvrsenju , tj. posto je ubacio ESC ?
Mislim da bi bilo dobro da postoji JEDAN tvoj program koji ce:
1. Detektovati zvono modemom (izgleda da je za ovu svrhu bolje ono sto je
predlozio vasic, jer ono sto sam ja napisao vise moze da se upotrebi u druge
svrhe, npr. kad se pise nesto ozbiljnije za modem; ovde to nema potrebe, pa se
stvar bespotrebno komplikuje),
2. Ubaciti onaj Hendler za INT 8 koji si napisao,
3. Startovati program Recorder.
Kada prodje vreme koje je predvidjeno, Hendler ce poslati u bafer tastature
kod tastera ESC, koji ce prekinuti program Recorder. Tada ce on vratiti
kontrolu tvom jedinom programu, i tada mozes da ponovis postupak.
Primer tog programa saljem ti uz ovu poruku. Nadam se da sad nece biti
problema sa tim u vezi! Program koji sam ja napisao jeste malo jednostavniji,
ali mislim da moze da se provali glavna ideja, koju sam ovde pokusao da opisem.
Ako bude bilo kakvih problema, javi se!
int8.zippascal.90postmast,
From: rdejan@fon (Dejan Rudic)
Subject: Re: pascal
Date: Sat, 21 Oct 1995 08:19:47 GMT
Sj> Kako izvesti da program salje 'ESC' i time prekine
Sj> izvrsavanje drugog programa ? Kako izvesti da se program
Sj> ukloni iz memorije po njegovom izvrsenju , tj. posto je
Sj> ubacio ESC ?
Najbolje (?) i najprljavije :) resenje je da pre izlaza
(recimo u exitproc) staviä u buffer za tastaturu ESC. Sad
ne znam napamet kako se to radi, ali ima u techhelp-u, a
ako ni on ne pomogne, mail-ni me pa cemo da sredimo stvar...
Pozdrav, Dejan
---
■ Blue Wave/QWK v2.20 [NR] ■
pascal.91postmast,
From: Mihajlo.Savic%f135.n135.z38@setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: pascal
Date: Wed, 18 Oct 1995 02:19:48
*** QUOTE : Srdjan Dakic ***
SD> BTW, registracija je trivijalna ;) (ako te zanima)
Zanima mene pa me se sjeti u mail ili ovdje ...
C-Ya, BadaBoom
... A ti bi TAG
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.92postmast,
From: vladimir.sitnikovski@informa.mk (Vladimir Sitnikovski)
Subject: Detektovanje Windows-a?
Date: Wed, 18 Oct 1995 06:36:00 GMT
-=> Quoting Pedja Ulic to All <=-
PU> Path: medi.durlan.co.yu!durlan!panon!pedja.ulic
PU> From: pedja.ulic@panon.ns.ac.yu (Pedja Ulic)
PU> Newsgroups: yu.prog.pascal
PU> Subject: Detektovanje Windows-a?
PU> Message-ID: <951016170112134@panon.ns.ac.yu>
PU> Date: Mon, 16 Oct 1995 14:04:00 GMT
PU> Distribution: world
PU> Organization: Panon BBS, Novi Sad
PU> Lines: 12
PU> Da li neko ima ideju kako iz DOS programa koji radi
PU> u DOS PROMPT-U Windows-a 3.1X procitati serijski broj
PU> diska(DOS-ov)? Posao se ne odradjuje preko INT 21h, funkcijom
PU> 69h.
PU> Isto pitanje stoji i za bilo koji Windows program.
PU> Ako neko ima ideju ili je daj boze problem resio, please help!
Pre startovanja Win-a, ubaci ga redirekcijom u neku datoteku,
i sifrovaj ga u polje, a kad udjes u Win-u, reci programu pre
startovanja da procita datoteku i desifruje polje, da uporedi
i da krene ili stane. :)))
Ovo moze da ti posluzi i za diskove koji nemaju serijski broj,
nego samo labelu diska kao sto nekad moze WFW to da uradi i sa
diskovima sa serijskim brojem.
Nadam se da sam ti pomogao.
Sitnik
... Rgds, Vladimir Sitnikovski, Republic of Macedonia, +389(0)91-318618
___ Blue Wave/QWK v2.12
pascal.93postmast,
From: pedja.ulic@panon.ns.ac.yu (Pedja Ulic)
Subject: HDD Serial nbr.
Date: Fri, 20 Oct 1995 12:38:00 GMT
Problem i dalje stoji :(
Serijski broj diska (C drajva) moguce je procitati pomocu INT 25,69, i
to radi bez problema, u DOS-u !!!
U DOS Prompt-u vraca nevidjene gluposti (preusmeren interapt), a to mi
nikako ne odgovara.
Drugo resenje JESTE poziv INT 13 ili INT 25 ali TPascal NEMA nista poput
AbsRead :(((
Moguce je odraditi poziv INT 25 ali zbog ocajne dokumentacije nije mi bas
najjasniji format podataka koje treba proslediti kroz DX:BX.
Pokusao sam po knjizi, ali rezultat je BlackScreenOfDeath ;)
Problem je konkretno u strukturi iz BX-a i u vrednosti u DX-u (debagirao
sam programcic koji sam napisao u BC-u i koji radi posao, neposredno pre
INT 25 je DX = FDF2 za nulti sektor,po knjizi je DX = 0).
Zadnja opcija je da me neko prosvetli povodom uvezivanja C source-a
(funkcijica koja vraca long) u Pascal program (molim i primer :)))
Unapred a do groba zahvalan sam
Pedja
... This tagline is SHAREWARE! To register, send me $10
___ Blue Wave/QWK v2.12
pascal.94postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: Sifre
Date: Sat, 21 Oct 1995 02:48:00 GMT
DN> program rnd_pass_gen (input, output);
DN> var a,b,c: integer; s: char;
DN> Begin
DN> Repeat
DN> c:=random(36)+1;
DN> if c=1 then s:='z';
DN> if c=2 then s:='x';
DN> ...
DN> if c=36 then s:='0';
DN> write(s);
DN> b:=b+1;
DN> Until a=b
DN> end.
PROGRAM RndPassGen;
FUNCTION GenPassword(Len:INTEGER) : STRING;
CONST
C = 'zxcvbnmasdfghjklqwertyuiop1234567890';
VAR
I : INTEGER;
S : STRING;
BEGIN
S := '';
Randomize();
FOR I := 1 TO Len DO
S := S + C[Random(Length(C))+1];
GenPassword := S;
END;
VAR
L : INTEGER;
BEGIN
Write('Unesi duzinu sifre: ');
ReadLn(L);
WriteLn(GenPassword(L));
END.
---
Jobrati paznju na ono CONST... to ti zamenjuje (izmedju ostalog i)
onolike IF-ove. A i flexibilnije je jer mozes da prosirujes spisak
mogucih znakova u sifri prostim navodjenjem u "tabelu" znakova, odnosno
string C.
¸> God made the cat so that we, for a moment, might caress the tiger.
* ŰmÔ/\/\× 1.3 #00 *
pascal.95postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic)
Subject: Re: HDD Serial nbr.
Date: Sat, 21 Oct 1995 04:00:00 GMT
PU> Moguce je odraditi poziv INT 25 ali zbog ocajne dokumentacije nije mi bas
PU> najjasniji format podataka koje treba proslediti kroz DX:BX.
Nije DX:BX nego DS:BX je adresa bafera za ulaz/izlaz. DX oznacava od kog
sektora treba da se cita. Kako si ga napunio adresom bafera, procitanim
pogresnim podacima si verovatno sahranio Data Segment. :)
PROCEDURE AbsRead(Disk:BYTE; Start:WORD; Count:WORD; VAR Buffer);
ASSEMBLER;
ASM
MOV AL,Disk
MOV CX,Count
MOV DX,Start
PUSH DS
LDS BX,Buffer
INT 25h (* INT 26h za AbsWrite, sve ostalo je isto *)
POP DS
END;
PROCEDURE GetSerialNum(Disk:BYTE; VAR SerialNum:LONGINT);
VAR
Buffer : ARRAY [0..511] OF BYTE;
BEGIN
AbsRead(Disk,0,1,Buffer); (* Disk: A=0, B=1,... *)
SerialNum := Buffer[.?.] (* znas vec gde je ... *)
END;
¸> Preserve an endangered species: Female Sysops
* ŰmÔ/\/\× 1.3 #00 *
pascal.96postmast,
From: pedja.ulic@panon.ns.ac.yu (Pedja Ulic)
Subject: Re: HDD Serial nbr.
Date: Sun, 22 Oct 1995 10:52:00 GMT
-=> Quoting Srdjan Dakic to Pedja Ulic <=-
SD> BEGIN
SD> AbsRead(Disk,0,1,Buffer); (* Disk: A=0, B=1,... *)
SD> SerialNum := Buffer[.?.] (* znas vec gde je ... *)
SD> END;
Srdjane ono ne radi (cf = 1, ah=2 BAD ADRESS MARK, al=7 INVALID MEDIA TYPE)!
Mislim da je problem u CX-u (onaj DX:BX je bio moj lapsus).
INT 25 - Absolute Disk Read
AL = logical drive number (0=A:, 1=B:, 2=C:, ...)
CX = number of sectors to read
----> = -1 if DOS 4.x (control block pointer is in DS:BX)
----> DX = starting logical sector number (see below for DOS 4.x+)
DS:BX = pointer to data buffer
----> = pointer to control block (DOS 4.x+, see below)
Ovo ^ se mora napuniti, a ovo je format:
Control Block Format (DOS 4.x):
Offset Size Description
00 dword starting sector
04 word number of sectors to read
06 dword pointer to buffer
Saljem i stanja registara neposredno pre poziva INT 25 iz proograma
koji sam napisao u C-u:
ax = 0002 ok
bx = FFD2 adresa na koju upisuje nesto
cx = FFFF -1
dx = FFF0 !!??!! ovo mi nije jasno, ali se bojim da on preracunava
logicki br. sektora u fizicki br. i obrnuto (u pozivu f-je je 0-ti sektor
a pre interapta je FFF0 u dx-u)
Ovo se prethodno puni preko INT 21,32 (Get Drive Parameter Table) tako da
jednostavno prosledjivanje adrese bafera ne radi pod DOS-ovima preko 4.x
... Great INQUISITOR is coming for YOU
___ Blue Wave/QWK v2.12
pascal.97violator,
Prvo pitanje... :) maÜala :) Dakle kako pokrenuti funkciju readkey? PiÜe da
mu treba WinCrt unit, koji nemam :(. A u helpu ima opis te funkcije. BTW, da li
ima neka funkcija koja je ekvivalent INKEY$-u iz basic-a, a da radi na onom
TIM-ovom pascalu (TP 2.0 ili 3.0, koji ni nema unit-e :( )
pascal.98zeljkoj,
-> #97, violator> mu treba WinCrt unit, koji nemam :(. A u helpu ima opis te
> funkcije. BTW, da li ima neka funkcija koja je ekvivalent
> INKEY$-u iz basic-a, a da radi na onom TIM-ovom pascalu (TP 2.0
> ili 3.0, koji ni nema unit-e :( )
Nije to TIM-ov Pascal, to je Borlandov Turbo Pascal 2.0 for CP/M, kompatibilan
sa istom verzijom za DOS. :) Nema ekvivalenta funkcije INKEY$ iz BASIC-a.
Getkey (ili tako nekako :) je nešto kao INPUT$(1).
pascal.99postmast,
From: gandalf@setnet.co.yu (Knezovic Bojan)
Subject: UPOMOC!!!
Date: Thu, 19 Oct 1995 00:14:02
PR> Ima li neko TXT o programiranju Sound Blastera?
Errr, imam ja jedan unit za blaster ako te zanima(sors ima cca
10 kb). Mogu da ti ga okacim ili u konf ili na mail, ali je
najbolje da se ti meni javis na mail jerbo je to deo jedne vece
biblioteke raznih stvari, a ako koristis TP, veruj mi, bice ti od
velike koristi :)
Khmm, kada bolje razmislim evo ti ga pa ako ti se dopadne ima
jos:
-------------------------------CUT HERE-----------------------
{---------------------------------------------------------------------------
Unit SBVoice (v1.10) For Turbo Pascal 6.0
For interfacing With the SoundBlaster's digitized voice channel.
Copyright (c) 1991, Amit K. Mathur, Windsor, Ontario.
By: Amit K. Mathur
3215 St. Patrick's Drive
Windsor, Ontario
N9E 3H2 CANADA
Ph: (519) 966-6924
Networks: RIME(tm) R/O ->WinDSor, ILink (Shareware), NA-Net (Gaming),
WWIVNet (#198@5950), or direct on NorthSTAR (519)735-1504.
These routines are released to the public domain. However I will gladly
accept contributions towards further development of this and other products.
Please send any changes or improvements my way. and I'm interested in
other SoundBlaster utilities and Programming tools. Thanks in advance.
--------------------------------------------------------------------------}
{$O+,F+}
{ Allow this Unit to Be Overlayed (doesn't affect Compilation if you decide
not to overlay it), and Force Far calls. }
Unit SBVoice;
Interface
Uses MemAlloc; { Memory Allocation Proc }
Var
{$ifNDEF NoSBVoiceArray} { to use your own }
SoundFile: Array[1..64000] of Byte; { whatever size you want }
{$endif}
sgSBDriver, ofSBDriver: Word; { seg and ofs of Driver }
SBDriver: Pointer; { Pointer to the driver }
StatusWord: Word; { stores SB status }
SBFound: Boolean; { whether Init worked }
Procedure loaddriver(fi:String);
{ Loads CT-VOICE.DRV into memory. 'fi' is the path to the driver. }
Procedure closedriver;
{ Clean up routine. not Really necessary if your Program is over. }
Procedure loadvoice(f:String;start,size:Word);
{ Load 'f' into memory. Start is the start of the area within
'f' to load and size is the amount to laod. if you set size to 0
then it will load the entire File. }
Function sb_getversion:Integer;
{ Get the version number of the CT-VOICE.DRV
Returns the Version number }
Function sb_init:Integer;
{ Initialize the SoundBlaster. Call this right after load driver, unless
you have to change the BaseIOAddress or Interrupt number and haven't
changed the CT-VOICE.DRV File itself.
Returns: 0 - no problem
1 - Sound card failiure
2 - I/O failiure
3 - DMA interrupt failiure }
Procedure sb_output(sg,os:Word);
{ Output the digitized Sound. You must load the Sound first!
sg and os are the segment and offset of either SoundFile or whatever
Array you use to store the Sound. if you use a .VOC File then call
With 26 added to the offset. }
Procedure sb_setstatusWord(sg,os:Word);
{ Sets the location of the status Word. This is the third thing you should
do, after loading the driver and initializing it.
The StatusWord will contain $0FFFF if input/output is in output, and
0 when it's done. It will also hold the values of the markers in voice
Files if any are encounterred, allowing you to coordinate output with
your Programs. }
Procedure sb_speaker(mode:Word);
{ Set the speaker on/off. off is mode 0, and On is anything else. This
is the fourth thing you should do in your initialization. }
Procedure sb_uninstall;
{ Uninstall the driver from memory. Used by CloseDriver. }
Procedure sb_setIOaddress(add:Word);
{ Override the IOaddress found inside the CT-VOICE.DRV File. Add is the
new IO address. }
Procedure sb_setinterruptnumber(intno:Word);
{ Allows you to override the Interrupt number in the driver. IntNo is your
new interrupt number (3, 5, 7 or 9). }
Procedure sb_stopoutput;
{ Stops the output in progress }
Function sb_pauseoutput: Integer;
{ PaUses the output in progress.
Returns: 0 - success
1 - fail }
Function sb_continueoutput: Integer;
{ Continues a paused output.
Returns: 0 - success
1 - fail (nothing to continue) }
Function sb_breakloop(mode:Word): Integer;
{ Breaks out of the currect output loop.
Modes: 0 - continue round, stop when done
1 - stop immediately
Returns: 0 - success
1 - not in loop }
Procedure sb_input(highlength,lowlength,seginputbuff,ofsinputbuff:Word);
{ Input digitized Sound.
HighLength: The high Byte of the length of the input buffer.
LowLength: The low Byte of the length of the input buffer.
SegInputBuff: The Segment of the start of the input buffer.
ofsInputBuff: The offset of the start of the input buffer. }
Procedure sb_setuserFunction(segaddress,ofsaddress:Word);
{ Sets up a user Function that the SB calls when it encounters a new data
block. It must perForm a Far ret, preserve DS,DI,SI and flag register.
Clear Carry flag if you want the driver to process the block, or set it
if your routine will. It must be clear if the block Type is 0, that
is the terminate block.
SegAddress is the segment of your user Function in memory.
ofsAddress is the ofset of your user Function in memory. }
Implementation
Uses Dos;
Procedure Abort(s:String);
begin
Writeln('The Following Error Has Occurred: ',s);
Writeln('Remedy and try again. We apologize For any inconvenience.');
halt(1);
end;
Procedure loaddriver(fi:String);
Var f: File;
k: Integer;
t: String[8];
begin
assign(f,fi+'CT-VOICE.DRV');
{$I-} Reset(f,1); {$I+}
if Ioresult <> 0 then
Abort('Cannot Open '+fi+'CT-VOICE.DRV');
blockread(f,Mem[sgSBDriver:ofSBDriver],Filesize(f));
close(f);
t:='';
For k:=0 to 7 do
t:=t+chr(Mem[sgSBDriver:ofSBDriver+k+3]);
if t<>'CT-VOICE' then
abort('Invalid CT-VOICE Driver!');
end;
Procedure closedriver;
begin
sb_uninstall;
if dalloc(sbdriver)=0 then
abort('Uninstall Error!');
end;
Procedure loadvoice(f:String;start,size:Word);
Var fi: File;
k: Word;
begin
assign(fi,f);
{$I-} Reset(fi,1); {$I+}
if Ioresult <> 0 then
abort('Cannot Open '+f+'!');
k:=0;
seek(fi,start);
if size=0 then size:=Filesize(fi);
blockread(fi,Mem[seg(SoundFile):ofs(SoundFile)],size);
close(fi);
end;
Function sb_getversion: Integer; Assembler;
Asm
push bp
mov bx,0
call SBDriver
pop bp
end;
Procedure sb_setIOaddress(add:Word); Assembler;
Asm
push bp
mov bx,1
mov ax,add
call SBDriver
pop bp
end;
Procedure sb_setinterruptnumber(intno:Word); Assembler;
Asm
push bp
mov bx,2
mov ax,intno
call SBDriver
pop bp
end;
Procedure sb_stopoutput; Assembler;
Asm
push bp
mov bx,8
call SBDriver
pop bp
end;
Function sb_init: Integer; Assembler;
Asm
push bp
mov bx, 3
call SBDriver
pop bp
end;
Function sb_pauseoutput: Integer; Assembler;
Asm
push bp
mov bx,10
call SBDriver
pop bp
end;
Function sb_continueoutput: Integer; Assembler;
Asm
push bp
mov bx,11
call SBDriver
pop bp
end;
Function sb_breakloop(mode:Word): Integer; Assembler;
Asm
push bp
mov bx,12
mov ax,mode
call SBDriver
pop bp
end;
Procedure sb_output(sg,os:Word); Assembler;
Asm
push bp
push di
mov bx,6
mov di,os { offset of voice }
mov es,sg { segment of voice }
call SBDriver
pop di
pop bp
end;
Procedure sb_input(highlength,lowlength,seginputbuff,ofsinputbuff:Word);
Assembler;
Asm
push bp
push di
mov bx,7
mov dx,highlength
mov cx,lowlength
mov es,seginputbuff
mov di,ofsinputbuff
call SBDriver
pop di
pop bp
end;
Procedure sb_setstatusWord(sg,os:Word); Assembler;
Asm
push bp
push di
mov bx,5
mov di,os
mov es,sg
call SBDriver
pop di
pop bp
end;
Procedure sb_speaker(mode:Word); Assembler;
Asm
push bp
mov bx,4
mov ax,mode
call SBDriver
pop bp
end;
Procedure sb_uninstall; Assembler;
Asm
push bp
mov bx,9
call SBDriver
pop bp
end;
Procedure sb_setuserFunction(segaddress,ofsaddress:Word); Assembler;
Asm
push bp
mov dx,segaddress
mov ax,ofsaddress
mov bx,13
call SBDriver
pop bp
end;
begin {set up SB}
if DosMemAvail < 5000 then { lower the heap }
abort('not Enough Memory'); { With $M to fix }
StatusWord:=MAlloc(SBDriver,5000);
if StatusWord<>0 then
abort('Memory Allocation Error');
sgSBDriver:=MemW[seg(SBDriver):ofs(SBDriver)+2];
ofSBDriver:=MemW[seg(SBDriver):ofs(SBDriver)];
Loaddriver(''); { change at will }
if sb_init<>0 then { or stick in your }
SBFound:=False { own Program init }
else
SBFound:=True;
if SBFound then begin
sb_setstatusWord(seg(statusWord),ofs(statusWord));
sb_speaker(1); { turn SB on }
end;
end.
{There's the Unit For .VOC playing.}
-------------------------------AND HERE-----------------------
... Pravo na gresku ne znaci obavezu.
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.100postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Re: Font na stampacu
Date: Fri, 20 Oct 1995 00:02:02
>> OGNEN DUZLEVSKI nekad rece, a ja ga sada citiram <<
OD> Na epsonima koji imaju veci bafer za karaktere moguc je download
Hvala.
Rile:)
... Onanisanje je seks sa najomiljenijom osobom...
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.101postmast,
From: rile@setnet.co.yu (Petar Ristic)
Subject: Re: Font na stampacu
Date: Fri, 20 Oct 1995 00:02:03
>> Vojislav Mihailovic nekad rece, a ja ga sada citiram <<
VM> Ovo sve sto pricam vazi za matricne stampace.
Hvala na pomoci.
Rile:)
... It doesn't work, but it looks pretty.
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.102postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: Problem
Date: Fri, 20 Oct 1995 23:32:13
Nikako ne mogu da nadjem podatke kako se radi sledeca stvar, a znam
da sam ih negde imao. Zato bih zamolio auditorijum da mi pomogne.
Napravio sam objektnu TPU sa odredjenim funkcijama koje rade sa jednom
strukturom podataka. Sad mi se pojavila potreba da isti set funkcija
uptrebim na drugoj strukturi. Sve ostalo je isto, samo treba da promenim
tip podataka koje smesta u dinamicku listu. E sad, posto je na izgledu
da cu iste funkcije koristiti i na trecoj cetvroj i ko zna kojoj strukturi,
malo mi je glupo resenje da za svaku pravim poseban objekat.
Hteo bih da ovaj objekat prepravim tako da mu pri inicijalizaciji
kao parametar prosledim strukturu podataka koje zelim u listi, tako
da mi bude univerzalan.
Nasao sam sintaksu kojom mogu da prosledjujem funkcije kao parametre,
ali nikako ne mogu da resim problem prosledjivanja samo tipa podataka.
... BR> Desava li se sad nekom da mu ubajati benzin?
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.103postmast,
From: danijel.nadj@panon.ns.ac.yu (Danijel Nadj)
Subject: Re: Sifre
Date: Sun, 22 Oct 1995 16:51:00 GMT
SD>?!@!# Sta ti javlja kad nece da radi, posto ne moz da ne radi :)
Ima dve rupe:
Randomize();
Smetaju mu zagrade, bude ok kad ih obrisem...
S := S + C[Random(Length(C))+1];
"""""""""""""""""""""
Ovde prijavi neku gresku, ne secam se bas tacno koju...
... "And his nostrils ripped and his bottom burned off.."
danijel.nadj@panon.ns.ac.yu FIDO:2:382/103
---
■ SPEED 2.00 [NR] ■