PCPROG.5

05 Jan 1995 - 02 Oct 1995

Topics

  1. algoritmi (106)
  2. comment (2)
  3. ms.dos (27)
  4. windows (332)
  5. asembler (203)
  6. basic (228)
  7. jezici (126)
  8. pascal (1085)
  9. cccc (546)
  10. cpp (117)
  11. clipper (1048)
  12. baze.podataka (194)
  13. fox (231)
  14. cavo (192)
  15. razno (593)

Messages - pascal

pascal.920 postmast,
From: vladimir.manic@rstones.durlan.co.yu (Vladimir Manic) Subject: Dma u protected modu Date: Sun, 03 Sep 1995 23:58:00 CET QWK To: All Kako da pristupim video memoriji (pisanje po njoj) iz PROTECTED REZIMA za BP7.0 (moze i asembler)? --- Maximus 2.02 * Origin: Rolling Stones BBS (2:382/105.5)
pascal.921 postmast,
From: nemesis@styx.herkules.co.yu (NEMESIS) Subject: :)) Date: Mon, 21 Aug 95 05:53:00 +0100 EJEdno pitanje ... kako napraviti program koji koristi onoliko memorije koliko je ima na mashini slobodno ... Jer ako napishem ... array [1..1000] of Pera; {pera= record duzine 100Byte} I sta ako se desi da na systemu ima manje memorije s lobodno ... RUN TIME ERROR :(( Kako napraviti tako da koris ti samo raspolozivu ?????? Pisalo se pre o tome .... ┌────────────────────────────────────────────────────────────────────Ě │/\■/\ .: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.922 postmast,
From: nemesis@styx.herkules.co.yu (NEMESIS) Subject: RE: PASCAL Date: Mon, 28 Aug 95 04:17:00 +0100 ---> Ako sam dobro shvatio covek hoce ovo: ---> da za SVAKU promenu frek. upisem po jedan red tipa SOUND(XXXX) ... ---> Nadam se da nisam dobro shvatio jer je to i teorijski tesko izvodivo ... ---> Prvi razlog: ---> Uzmimo da je sempl 8-bitni i da zauzima 6Kb. ---> Svaki bajt se transformise u SOUND(XXXX) jer je mala vjerovatnoca da su ---> dva susjedna bajta istovetna. Kako SOUND(XXXX) zauzima 13 bajtova tako bi ---> i tvoj sempl zauzimao 78Kb. Sad izracunaj koliko je to za sempl (WAV) od ---> stotinjak kilobajta :( ---> Drugi razlog: ---> Takav fajl je apsolutno necitak : ---> SOUND(0454) ---> SOUND(1288) ---> SOUND(0996) ---> ... ---> Stvarno ne znam sta ocekujes od toga(?!) ---> Treci razlog: ---> Vezan za module: problem se svodi kako od modula napraviti sempl. ---> Odgovore na to pitanje mozees naci u prethodnim porukama(ukratko:teeeskoo). ---> pozdrav iz BanjaLuke AKO IMAS ZIVACA ... VEOMA LAKO ! Potrebno je ... 1. 2 * PC + SB I spojis ih kablom :))) I na jednom pustis mod ... na drugome snimas to kao sa MIC-a :) Verovali ili ne .. TO RADI !!! 2. A moze i ako imate WIN Udjes u neki od onih programa sto dolaze uz SB 16 PRO (ORIGINAL) i u jednom od njih PUSTIS MOD(ili MIDI koji si prethodno Mod>2>Midi) A u drugom pustis RECORDING :) I ETO VAMA DECIJE RADOSTI !:) A druga stvar ... Ko vam brani da ulinkujete jedan WAW od recimo 50000Byte kao WAW : array[1 .. 50000] : byte; Tu ja mislim da je ogranicenje 64Kb :) PA podelite :)) I posle ga sa PLITE :) I DIVOTA :)))))))))))))))) Nista od ovoga nije isprobano :)) ┌────────────────────────────────────────────────────────────────────Ě │/\■/\ .: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.923 postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic) Subject: Re: pascal Date: Sat, 2 Sep 1995 09:45:22 GMT Srdan Simic je napisao: >> >> Da ovo mi radi, ali mislio sam da li je moguce sa originalnim >> drajverima. Prosto ne mogu da verujem da u BP7.0 daju drajver >> za VESA16 a ne za VESA256, a podrzavaju IBM u 256 boja. Zbog >> cega nije podrzan ni jedan mod u 256 boja, a da ne pricamo o >> nekim visim modovima koje ovaj drajver(svga256.bgi) podrzava. >> Nije podrzan cak ni 320x200x256 ??? >> Pozdrav. Mislim da mogu da naslutim odgovor na ovo pitanje. Za Borland C++ 4.X moze da se dokupi Bonus Pack za DOS koji sadrzi 16-bitni i 32-bitni DOS ekstender, i uz njih odgovarajuce BGI drajvere. E, u HELP-u pise da 32 bitni BGI podrzava specificne akceleratorske kartice, samo treba kupiti te-i-te drajvere od te-i-te firme. Borland se u poslednje vreme strasno procicijasio. -- Mala, mala, mala grupa hedera
pascal.924 postmast,
From: shadow@setnet.co.yu (Ivan Jocic) Subject: pascal Date: Mon, 28 Aug 1995 07:27:33 VMZ> Za skrol ce ti biti potrebno cackanja po registrima video kartice. VMZ> Potrebno je da pomeris pocetnu adresu ekrana za 1, recimo. Slika se VMZ> pomeri u levo za par pixela, a ono sto je bilo najlevlje se pojavi na VMZ> desnom kraju ekrana. E sad treba taj visak desno da popunis VMZ> odgovarajucim delom slike. VMZ> Ne znam kako ovo konkretno radi u 640x480.16 (za koliko pixela se VMZ> pomeri slika ako se adresa poveca za 1) jer sam radio u 320x200.256, VMZ> ali princip je isti. ^^^^ slican. Kod 16 boja je malo drugacije. Kada pomeris ekran za 1 bajt, slika se pomeri za 8 pixela. Inace, trenutno radim skrol rutinice, pa cemo da vidimo sta ce od toga biti. Shadow ... Washing your car to make it rain doesn't work. * Origin: * SETNet * Sirius BBS * 018/711-667 * Nis * (38:101/101.5)
pascal.925 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: heap Date: Wed, 30 Aug 1995 15:21:43 ==== NEMESIS rece: ====================================== NE> EJEdno pitanje ... kako napraviti program koji koristi NE> onoliko memorije koliko je ima na mashini slobodno ... NE> Jer ako napishem ... NE> array [1..1000] of Pera; {pera= record duzine 100Byte} Pogledaj u helpu funkcije GEtMem, FreeMem i slicne i pod dinamicko alociranje memorije. To ti omogucava upravo da je program svestan koliko memorije ima na raspolaganju i da je efikasno koristi. Kada definises niz (array) kao staticku promenljivu, on ti samim pokretanjem programa zauzme potrebnu mu memoriju i oslobadja je tek izlaskom iz programa. Kad radis sa dinamickim promenljivama, one memoriju zuzimaju samo kada je to potrebno, a kada se vise ne koriste, ta memorija se moze osloboditi za druge potrebe. ... Be carefull. Death is PERMANENT! -+- OLMS 2.5 UNREG * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.926 postmast,
From: KLIMENT.ANDREEV@f108.n108.z38.setnet.setnet.co.yu (KLIMENT ANDREEV) Subject: pascal Date: Mon, 28 Aug 1995 02:48:00 "O> Zanima me sledece: "O> - koliko je Delphi bolji u odnosu na tp70 "O> - koliko megabajta zauzima "O> - da li ga vredi uzimati ........... "O> Uros - Pa bolji je. Nisam radio Windows programe sa TP7.0, ali u Delphiju je veoma lako raditi. Object Inspector je fantasticcan. Pretpostavljam da TP7.0 nema Object Inspector. - Verziju koju ja imam Client/Server dolazi na 15 disketa 1.44 i zauzima oko 75MB. Radim na massini 486dx40 8MB RAM i radi sasvim solidno. Mislim da sa 4MB rad necce biti komforan. - Pre neki dan sam video i Visual Basic 3.0. Odmah da ti kazzem da nema nikakvih ssansi sa Delphijem (samo da ne navuccem bes VB-jaca;) Ja sam za 1 dan uradio jedan WAV player i hteo sam da to isto pokussam i sa VB. Primer koji dolazi sa VB-om je veoma traljav. Kod je veoma nepregledan a i vecci. Prednost Delphija je njegova objektna orijentiranost dok je kod VB-a to negde na pola puta. Chombe ___ ■ OLX 2.1 TD ■ ƲńŠ˘Š­ ´ŠßŠÝ Ô˛ ĽÝ˛ÔŠ­ŕŰÓ Š■. * Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.927 postmast,
From: rile@setnet.co.yu (Petar Ristic) Subject: Re: PASCAL Date: Thu, 31 Aug 1995 14:55:03 >> NEMESIS nekad rece, a ja ga sada citiram << NE> Potrebno je ... NE> 1. NE> 2 * PC + SB NE> I spojis ih kablom :))) NE> I na jednom pustis mod ... NE> na drugome snimas to kao sa MIC-a :) Moze i sa linijskim ulazom/izlazom. Tada nema toliko izblicenja kao sa mikrofonom. NE> Verovali ili ne .. TO RADI !!! Ima jos bolje i prakticnije... Snimis na kasetofon i semplujes. ;) NE> A moze i ako imate WIN NE> Udjes u neki od onih programa sto dolaze uz NE> SB 16 PRO (ORIGINAL) i u jednom od njih NE> PUSTIS MOD(ili MIDI koji si prethodno Mod>2>Midi) NE> A u drugom pustis RECORDING :) Nece moci... SB snima sa ulaza, a ne sa izlaza. Jedino da spojis ulaz sa izlazom, a tada znas sta se dobija ;) NE> Nista od ovoga nije isprobano :)) A uz to i ne radi ;) Rile:) ... TECHNO is more then music, TECHNO is life style!!! * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.928 postmast,
From: rile@setnet.co.yu (Petar Ristic) Subject: Objekti Date: Fri, 01 Sep 1995 00:02:04 Ovih dana pokusavam malo da shvatim ove objekte, pa mi nije jasno sta je constructor, destructor, virtual, itd. Rile:) ... TECHNO is more then music, TECHNO is life style!!! * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.929 postmast,
From: SETN@f101.n101.z38.setnet.setnet.co.yu (SETN) Subject: Statistics Date: Thu, 31 Aug 1995 09:04:00 Maintaned by CONFERENCE STATISTICS SHELL - (c)1995 by Predrag Supurovic ======================================================================= Conference NET.PASCAL maintained on 03.08.95. for 28 days backward. QRATIO Mail Statistics V1.9 by Act Of Impulse. ---------------------------------------------- Total messages found in this area : 245 Number of messages covered in report: 117 Processed period from: 3-8-1995 to 30-8-1995 ------------------------------------------------------------------------------ Blacklist-Top 5 of the Quoters. Nr Total Quoted Quote Name Address Msg Lines Lines: Ratio: ---- ------- --- ----- ------ ------ 1. Vladimir Svrkota......... 38:111/119 4 18 11 61.11% 2. Vladimir M Zivkovic...... 38:111/119 8 86 44 51.16% 3. Ivan Jocic............... 38:101/101.5 1 16 8 50.00% 4. Petar Ristic............. 38:111/119 4 24 11 45.83% 5. "Zoran Ignjatovic"....... 38:103/120 1 17 7 41.18% ------------------------------------------------------------------------------ Top 5 of the writers. Total Average Quote Name Msgs: Pct. Byte/Msg Ratio: ---- ----- ----- -------- ------ 1. Mihajlo Savic 12 10.3% 458 11.90% 2. "Milos Visnjic" 8 6.8% 813 28.48% 3. Vladimir M Zivkovic 8 6.8% 609 51.16% 4. Predrag Supurovic 5 4.3% 600 40.68% 5. "Nebojsa Lazic" 5 4.3% 627 20.00% ------------------------------------------------------------------------------ Top 5 of the receivers. Total Name Msgs: Pct. ---- ----- ----- 1. All 77 65.8% 2. Vladimir M Zivkovic 6 5.1% 3. Predrag Supurovic 5 4.3% 4. Petar Ristic 4 3.4% 5. Andrej Micic 4 3.4% ------------------------------------------------------------------------------ Top 5 of the subjects. Subject Nr. ------- --- 1. pascal...................................................... 85 2. Fontovi za TP............................................... 10 3. HideCursor.................................................. 6 4. Interrupt................................................... 5 5. Delphi...................................................... 3 ------------------------------------------------------------------------------ Average posting frequency per week: Day Msgs Pct. Graph Sunday 16 13.7% **************************************** Monday 21 17.9% **************************************************** Tuesday 17 14.5% ****************************************** Wednesday 13 11.1% ******************************** Thursday 14 12.0% *********************************** Friday 18 15.4% ********************************************* Saturday 18 15.4% ********************************************* ------------------------------------------------------------------------------ Average posting frequency per day: Interval Msgs Pct. Graph -------- ---- ----- ----- 0:00- 1:59 13 11.1% ************************************************** 2:00- 3:59 11 9.4% ****************************************** 4:00- 5:59 3 2.6% *********** 6:00- 7:59 9 7.7% ********************************** 8:00- 9:59 8 6.8% ******************************* 10:00-11:59 9 7.7% ********************************** 12:00-13:59 7 6.0% *************************** 14:00-15:59 9 7.7% ********************************** 16:00-17:59 11 9.4% ****************************************** 18:00-19:59 12 10.3% ********************************************** 20:00-21:59 12 10.3% ********************************************** 22:00-23:59 13 11.1% ************************************************** ------------------------------------------------------------------------------ * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.930 postmast,
From: zoran.rilak@rstones.durlan.co.yu (Zoran Rilak) Subject: :)) Date: Thu, 31 Aug 1995 07:24:00 CET QWK To: Nemesis (Tekst poruke: Nemesis, na temu :))) Ne> EJEdno pitanje ... kako napraviti program koji koristi Ne> onoliko memorije koliko je ima na mashini slobodno ... Ne> Jer ako napishem ... Ne> array [1..1000] of Pera; {pera= record duzine 100Byte} Ne> I sta ako se desi da na systemu ima manje memorije s Ne> lobodno ... RUN TIME ERROR :(( Pa budi kulturan. Zamoli prvo racunar na kome tvoj program radi da ti kaze koliko memorije moze i zeli da ti da, pa ako ti nije dovoljno, "do vidjenja". Drugim recima, a sta fali dinamickoj alokaciji? Osim toga, u dobra, stara vremena postojala ge i greska "Object too big"... ;) 3OPAH ... <<< TagLine deleted >>> --- Blue Wave/Max v2.12 [NR] * Origin: Rolling Stones BBS (2:382/105.5) #! rnews 506
pascal.931 postmast,
From: zsteva@magic.hobbiton.co.yu (Zeljko Stevanovic) Subject: Re: :)) Date: Tue, 29 Aug 1995 21:27:52 GMT NEMESIS (nemesis@styx.herkules.co.yu) wrote: : EJEdno pitanje ... kako napraviti program koji koristi : onoliko memorije koliko je ima na mashini slobodno ... : Jer ako napishem ... : array [1..1000] of Pera; {pera= record duzine 100Byte} : I sta ako se desi da na systemu ima manje memorije s : lobodno ... RUN TIME ERROR :(( : Kako napraviti tako da koris ti samo raspolozivu ?????? : Pisalo se pre o tome .... Moze prvo da se uzme kolko ima slobodno pa da se tolko allocira.. naravno ne bas na ovaj nacin ...
pascal.932 postmast,
From: Stevan.Dejanovic@f119.n111.z38.setnet.setnet.co.yu (Stevan Dejanovic) Subject: Re: HideCursor Date: Sat, 26 Aug 1995 21:29:00 On 24 Aug 95 10:24pm, Mihajlo Savic wrote to Andrej Micic: SD>> Imas na Ecstasy-ju unit zove se TPW60 (Turbo Pascal Windows), MS> Sta jos ima u tom unitu? Ima dosta zanimljivih i korisnih stvari. Sta da ti prisem, skini pa vidi. Mad Dog ... With Clinton and $0.85 you can get a cup of coffee * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.933 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: pascal Date: Sun, 27 Aug 1995 12:06:01 "T> Da li neko ima source za prikaz PCX ili BMP fajlova u formatu "T> 640x480x16. Takodje mi je potreban source za horizontalno skrolovanje "T> ekrana u istoj rezoluciji. "T> Probao sam da izvedem utisak skrolovanja sa naredbama GetImage i "T> PutImage u levo, stim sto se deo ekrana za koji se slika pomeri u levo "T> ponovo iscrta. Ovo mi je sve suvise sporo. "T> Potrebno mi je za diplomski, pa ako neko ima neki hint ili source neka "T> mi se javi. Za skrol ce ti biti potrebno cackanja po registrima video kartice. Potrebno je da pomeris pocetnu adresu ekrana za 1, recimo. Slika se pomeri u levo za par pixela, a ono sto je bilo najlevlje se pojavi na desnom kraju ekrana. E sad treba taj visak desno da popunis odgovarajucim delom slike. Ne znam kako ovo konkretno radi u 640x480.16 (za koliko pixela se pomeri slika ako se adresa poveca za 1) jer sam radio u 320x200.256, ali princip je isti. __ Pozdrav from Vladimir __ ... "Svi moji su partizani ... iz '46-te ..." * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.934 postmast,
From: Ognen.Spiroski@f132.n108.z38.setnet.setnet.co.yu (Ognen Spiroski) Subject: HideCursor Date: Thu, 24 Aug 1995 01:16:00 { AMĆ Kako da u tp60 sakrijem kursor (ne strelicu misa) ? Postoji AMĆ procedura TView.HideCursor, ali ne radi posao ...? Hi! Evo ti neke ASM procedure ;) } procedure CursOff; assembler; asm mov ah,3 { get cursor } xor BX,BX int 10h or ch,20h { Make OFF} mov ah,1 { set new cursor } int 10h end; procedure CursOn; assembler; asm mov ah,3 { get cursor } xor BX,BX int 10h and ch,1fh { make ON } mov ah,1 { set new cursor } int 10h end; begin Writeln('Cursor is gone now!!'); CursOff; readln; Writeln('Pa evo sam '); CursOn; readln; end. Hope I helped Ya 0GZy * 0Gi'S eDiT0R * FC's guys begining on P rule... * Origin: SETNet: ĆMemory Master BBS +389/91-164-877ž SKOPJE (38:108/132)
pascal.935 superhik,
Tek sam počeo sam Paskalom (o idile) pa me zanima da li neko poseduje (ili može da me uputi) na spisak onih varijabli (?) (boolean,...) itd. nema šanse da provalim sva značenja ;(
pascal.936 nlazic, -> #919, postmast
*> TSR programa. Ali ... ima mana a to je da ne znam kako da uklonim taj *> program iz memorije? Kada postavljam interapte pri ukljucuvanju progra Pogledaj malo ranije u ovoj konf. Ima sigurno bar 3 rutine koje ovo rade. Preciznije: poruka 7.631. Pozdrav, :) Nebojša :)
pascal.937 nlazic, -> #920, postmast
*> Kako da pristupim video memoriji (pisanje po njoj) iz PROTECTED REZIMA *> za BP7.0 (moze i asembler)? Video memorija u realnom modu počinje od segmenta $A000. U protected režimu ne smeš da koristiš segmente, već tzv. selektore. Selektor koji sadrži segment video memorije zove se SegA000. Dakle umesto mem[$A000:xxxx] sada pišeš mem[SegA000:xxxx]. Pored ovog postoje i selektori: Seg0040, SegB000 i SegB800. Pozdrav, :) Nebojša :)
pascal.938 atech, -> #914, kriss
> Svaki "vaspitan" program bi _morao_ da za zastitu > koristi samo citanje (cega god hoce), u kombinaciji sa > pisanjem, ali samo unutar svog kôda, tj. pratecih fajlova. Sve > sto program izbaci van svog EXE-a/direktorijuma nije lepo, i > nije dobro - zato i ne volim windows koncepciju gde svaka susa > moze da umetne svojih 1000 linija u one "zajednicke" fajlove Svaki bolji program za zastitu upravo je zasnovan na takvim i slicnim principima. > Samo da se nadovezem - to je i prilicno nelegalno, i "negde > preko" bi imao podosta problema kad bi te posle pitali za > zdravlje. Siguran sam da su nasi 'programeri' zaista inventivni po pitanju ovakvih egzibicija. U zadnjem broju PC-a procitah da je jedan cak patchovao format.com ne bi li prevario korisnika da pristane na formatiranje diska jer nije znao drugi nacin za formatiranje (ej formatiranje!) vec je koristio exec da bi pokrenuo dosov format.com. Ima nas raznih....;)
pascal.939 mminovic, -> #916, postmast
> "M> Ima li neko ideju?! > Gore sam ti naveo svoju. Sa ovo podataka sto si dao pokusao sam > maksi malno da dam svoje misljenje, a ako nisam u pravu javi pa > cemo vidjeti. :)) Ma provalio sam sta je jos odavno :)) ali izgubio sam ceo dan :)) fora je sto u ASSIGN NE SMES!! da prinosis promenljivu kao naziv fajla :)) ne blokira se odmah,vec po zavrsetku procedure :)) Uzas,ima li neko resenje za ovo(sem crnackog koje sam upotrebio:) Pozdrav, Mindza.
pascal.940 mminovic, -> #926, postmast
> nepregledan a i vecci. Prednost Delphija je njegova objektna > orijentiranost dok je kod VB-a to negde na pola puta. Moze li neko da mi preporuci neku knjigu za Delphi? Pozdrav, Mindza.
pascal.941 nlazic, -> #940, mminovic
*> Moze li neko da mi preporuci neku knjigu za Delphi? Kol'ko ja znam, kod nas jedino mogu da se nabave one knjige koje se dobijaju uz Delphi (bilo u štampanom, bilo u elektronskom obliku na Delphi-evom CD-u). Na trulom zapadu je to malko drukčije :( Uz sitno iskustvo sa prethodnim verzijama paskala, to je sasvim dovoljno. Pozdrav, :) Nebojša :)
pascal.942 visnja, -> #921, postmast
> EJEdno pitanje ... kako napraviti program koji koristi > onoliko memorije koliko je ima na mashini slobodno ... > Jer ako napishem ... > array [1..1000] of Pera; {pera= record duzine 100Byte} Ako misliš na kopletnu memoriju, piši program u protected modu. Upotrebi neki WINDOWS unit (BP7.0) zaboravio sam koji, mislim da je WINPROCS, pogledaj u help-u. Uz malo muke mozes da alociras npr. 10 mega rama. Probao sam to pre godinu dana i zaboravih tačno kako ide. Pogledaj u HELP-u GlobalDOSAlloc funkciju ili tako nešto. Pazi nemoj da te zbuni sto je unit za WIN - - to je i za protected mode dos.
pascal.943 .sima, -> #939, mminovic
> fora je sto u ASSIGN NE SMES!! da prinosis promenljivu kao > naziv fajla :)) > ne blokira se odmah,vec po zavrsetku procedure :)) > Uzas,ima li neko resenje za ovo(sem crnackog koje sam > upotrebio:) Izvini, ali nisam razumeo??? Jel ti kažeš da ne sme da se napiše sledeće: var imefile: PathStr; F: text; begin imefile:='temp.txt'; assign(f, imefile); rewrite(f); close(f); end. Ja ovo upravo probao i radi. Ako imaš problem pošali celu proceduru ili bar delove, a nemoj ovako da nas hraniš na kašičicu. Ako ti se program zablokirava uz pištanje prvo mesto za traženje greške je da li negde u memoriji pišeš gde ne treba. Meni se jedan program tako uz pistanje blokirao konstantno. Greška je bila što sam definisao promenljivu kao pokazivač na strig i za nju odvojio 5 bajtova (to je za 4 slova), a onda su brojevi koji su se smeštali u string postali petocifreni. I program je morao negde da piše... Blokiranje se obično dešava kada procedura treba da uradi ret, jer ako je pisano po steku gde ne treba adresa povratka je uništena. Pozdrav
pascal.944 .sima, -> #942, visnja
> Ako misliš na kopletnu memoriju, piši program u protected > modu. Upotrebi neki WINDOWS unit (BP7.0) zaboravio sam koji, > mislim da je WINPROCS, pogledaj u help-u. Uz malo muke mozes > da alociras Ne mora da se uključi ni jedan unit. Treba podesiti opciju Target u compile meniju na protected. Tada će program biti preveden za DPMI i biće mu pristupna sva memorija preko prvog megabajta. Ako postoji neki DPMI drajver (npr. qemm-ov) može da se pravi i virtuelna memorija. DPMI zahteva 286+. Ovo je primer koji sam sklepao. Ništa pametno ne radi, ali troši memoriju i ispisuje koliko je ima. type TTest = array[1..65520] of byte; PTest = ^TTest; PDeo = ^TDeo; TDeo = record pod: PTest; next: PDeo; end; var Deo: PDeo; temp: PDeo; begin writeln(memavail div 1024); new(Deo); new(Deo^.pod); while memavail>65530 do begin new(temp); New(temp^.pod); Deo^.next:=temp; Deo:=temp; end; writeln(memavail div 1024); end. Prikačio sam i exe verziju da bi, ako nemaš BP7.0 mogao da vidiš kako radi. Inače DPMI se nije baš pokazao u mojim očima lepo, jeste da je podržan od strane Windows-a, ali po meni VCPI je mnogo bolji. testdpmi.zip
pascal.945 .sima, -> #935, superhik
> neko poseduje (ili može da me uputi) na spisak onih varijabli > (?) (boolean,...) itd. nema šanse da provalim sva značenja ;( Ako misliš na tipove koji postoje u pascalu, onda sledi: (Inače ako koristiš Borland skoro sve imaš vrlo lepo objašnjeno u helpu) boolean: logička (true ili false) wordbool, bytebool, longbool: isto kao i boolean ali drugačije veličine 2 1 4 bajta integer: označen broj (-32768 do 32767) 2 bajta shortint: označen broj (-128 do 127) 1 bajt longint: označen broj (-mnogo do mnogo) 4 bajta (pogledaj u help) word: ne označen broj (0 do 65535) 2 bajta byte: ne označen broj (0 do 255) 1 bajt char: karakter (ASCII znak) 1 bajt real: broj u pokretnom zarezu 6 bajtova single, double, extended, comp: razni brojevi u pokretnom zarezu 4 8 10 8 bajtova za ove u poslednjem redu je potrebno program prevesti u posebnom modu da bi mogao da ih koristi. E sad ako je ovo bilo ono što si tražio super, ako nije slobodno se obrati ponovo. I čitaj help dosta toga može da se nauči, mada ne sve. Pozdrav
pascal.946 mminovic, -> #943, .sima
> program je morao negde da pise... Blokiranje se obicno desava > kada procedura treba da uradi ret, jer ako je pisano po steku > gde ne treba adresa povratka je unistena. Cim sam promenio proradilo je. I pazi to je bio poziv procedure koja pokusava assign(f,imefajla); procedura se korektno zavrsavala do kraja,a tek onda bi se racunar blokirao. Moguce je i da je zato sto mi je imefajla bio string neke duzine(ne 8+4) ali on bi mi otvorio pravi fajl,odradio sve,upisao lepo,zatvorio,i pri povratku u glavni program blokirao :)) Pozdrav, Mindza. P.S.Source je poslovna tajna :))
pascal.947 superhik, -> #945, .sima
=:> E sad ako je ovo bilo ono što si tražio super, ako nije =:> slobodno se obrati ponovo. I čitaj help dosta toga može da se =:> nauči, mada ne sve. Pogodio si! Txanks!
pascal.948 max.headroom, -> #906, .sima
> provera serijskog broja hard diska. To bi trebalo kombinovati sa ************************** Ah, a ako je program predviđen da radi na mreži? Daleko bolje rešenje je sitna izmena u nekoj od datoteka koje se nalaze u direktorijumu za koji si siguran da postoji (najčešće ĐDOS dir.), i kasnija analiza tog bajta ili čega već.
pascal.949 .sima, -> #948, max.headroom
> Ah, a ako je program predviđen da radi na mreži? Pa ja to zovem prljavim programiranjem.(nemoj da se ljutiš) Svaka mašina ima barem jedan hard disk bilo da je u mreži ili ne. A one koje nemaju e pa tu se može testirati broj BIOS-a ili... To već ne znam :) ako neko zna bilo bi lepo da podeli informaciju. Pozdrav
pascal.950 .sima, -> #946, mminovic
> Moguce je i da je zato sto mi je imefajla bio string neke > duzine(ne 8+4) Borland Pascal definiše standardne tipove za rad sa fajlama. Pošto kažeš da je softver tajna neka i ti tipovi ostanu moja :) Pozdrav.
pascal.951 kriss, -> #937, nlazic
˙˙ mem[$A000:xxxx] sada pišeš mem[SegA000:xxxx]. Pored ovog ˙˙ postoje i selektori: Seg0040, SegB000 i SegB800. Samo 4 selektora? Zanima me kako stoji stvar sa direktim pristupom memoriji u protektid režimu, tj. da li bi mogao da adresu 0040:0010h napišem nekako drugačije, recimo kao 0041:0000h ili 0000:0410h ?
pascal.952 kriss, -> #938, atech
˙˙> Svaki "vaspitan" program bi _morao_ da za zastitu ˙˙> koristi samo citanje (cega god hoce), u kombinaciji sa ˙˙> pisanjem, ali samo unutar svog kôda, tj. pratecih fajlova. ˙˙> Sve sto program izbaci van svog EXE-a/direktorijuma nije ˙˙> lepo, i nije dobro - zato i ne volim windows koncepciju gde ˙˙> svaka susa moze da umetne svojih 1000 linija u one ˙˙> "zajednicke" fajlove ˙˙ Svaki bolji program za zastitu upravo je zasnovan na takvim i ˙˙ slicnim principima. Kakvim? :) Da li misliš na "vaspitan" ili "windows" princip? :)
pascal.953 dvesic, -> #949, .sima
>>> Ah, a ako je program predviđen da radi na mreži? >> >> Pa ja to zovem prljavim programiranjem.(nemoj da se ljutiš) >> Svaka mašina ima barem jedan hard disk bilo da je u mreži ili >> ne. A one koje nemaju e pa tu se može testirati broj BIOS-a >> ili... Možda serijski broj Ethernet karte ? Garantovano je jedinstven ...
pascal.954 .sima, -> #953, dvesic
> Možda serijski broj Ethernet karte ? Garantovano je jedinstven Da. Proizvodjaci garantuju da je serijski broj kartice jedinstven, ali kako se cita.
pascal.955 atech, -> #952, kriss
> ˙˙ Svaki bolji program za zastitu upravo je zasnovan na takvim > i ˙˙ slicnim principima. > > Kakvim? :) Da li mislis na "vaspitan" ili "windows" princip? :) Naravno ovaj prvi princip. Neko je vec primetio da windows principe postuju u velikoj meri virusi osim u onom delu koji se tice brzine i optimizacije koda ;)
pascal.956 mminovic, -> #950, .sima
> Borland Pascal definise standardne tipove za rad sa fajlama. > Posto kazes da je softver tajna neka i ti tipovi ostanu moja :) > Pozdrav. Jaaoooooo! :)) Kakav sam ja mamun :)) Eto,to ti je kada covek ne razmislja :) Tanks ! Pozdrav, Mindza.
pascal.957 postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic) Subject: Re: pascal Date: Sun, 03 Sep 1995 16:30:31 -=> Quoting "Vladimir Novosel" to All <=- "N> Zna li neko kako bi mogao da pustam semplove u pozadini (nezavisno od "N> onog sto program trenutno radi). Dali bi trebalo da se pise TSR rutina "N> ? Ako je potrebna TSR rutina kao se to pise u pascalu keep to ne radi "N> bas najbolje. Do sada sam se sasvim malo bavio TSR rutinama ali mislim da bi se moglo tako uraditi, trebas mu samo podesiti vektore (recimo sata) da se ne obracaju sistemskom satu vec tvojoj proceduri. Samo me zanima da li hoces da pustas muziku sa diska (MOD, WAV itd...) ili radis to preko 'SOUND();'? Ako citas MOD onda imas na SEZAMu u pas kal direktorijumu TPMOD.ZIP (ili tako nesto), ako slucajno nema javi pa da ti bacim u mailu. "N> Znam da je TSR rutinama bilo reci ali se nista nije odredjeno "N> reklo. Da, i mene zanimaju TSR programi. pozdrav, ASKO ... Cistoca je pola zdravlja, rece svinja i skoci u brlog. * Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.958 postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic) Subject: zapisi i tako dalje Date: Sun, 03 Sep 1995 16:30:33 -=> Quoting Asmir Badnjevic to All <=- Jednog dana u jednom danu sam napisao (tj. ima smeca), a poruka nije nikome stigla cijela. -=> Hi! -=> Zanimaju me neki zapisi slika, muzike itd. -=> 3D2 : Uspio sam skontati zapis nekog 3D2 zapisa (vjerujem da je i zapis -=> 3DSa slican jer nemam ni 3DS ni njegove fajlove 'all HERCULES') i -=> evo proce dure ... -=> -=> procedure Read3DFile(FileName : String); -=> var F : File of Real; -=> Tmp, Tmp1 : Real; -=> PointsNum : Integer; -=> LinesNum : Integer; -=> r, i : Integer; -=> begin -=> Assign(F, FileName); -=> Reset(F); -=> Read(F, Trunc(PointsNum)); -=> For r := 1 to PointsNum do -=> begin -=> Read(F, XPoint[r]); -=> Read(F, YPoint[r]); -=> Read(F, ZPoint[r]); E, ako ste nesto i shvatili od ovog smeca nista nije tacno, evo originalne procedure za to ... procedure Read3DFile; var tmp1,tmp2 : real; i,j : byte; begin read(elementFile, tmp1); numOfPoints := trunc(tmp1); for j := 1 to numOfPoints do begin read(elementFile, pointsX[j]); read(elementFile, pointsY[j]); read(elementFile, pointsZ[j]); end; {for} read(elementFile, tmp1); numOfLines := trunc(tmp1); for j := 1 to numOfLines do begin read(elementFile, tmp1, tmp2); linesFromP[j] := trunc(tmp1); linesToP[j] := trunc(tmp2); end; {for} end; gdje je elementFile = File of Real;, PointsX, Poim\ntsY, PointsZ : Real;. Nadam se da ste skontali i da necete zamjeriti na ovom smecu. Dalje, ima li neko opis PCX, GIF, MOD, FLI zapisa? Potrebni su mi. pozdraw, ASKO ... Svtkio pomaklo grsi,. * Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.959 postmast,
From: Mladen.Adamovic@f135.n135.z38.setnet.setnet.co.yu (Mladen Adamovic) Subject: Re: pascal Date: Sun, 03 Sep 1995 21:07:55 -+=+- "Dusan Krstic" rece : -+=+- "K> From: "Dusan Krstic" <willow@sezam.UUCP> "K> Newsgroups: yu.prog.pascal "K> Organization: SEZAM Beograd, 011 648-422 "K> Ako stvarno trazis neku takvu knjigu, ja ti preporucujem knjigu "K> 'B.Stroustrup: P.L. C++' . Ima je ( verovatno ) u CET-u, ili kod Ima i prevod kod Mikro Knjige. Pozdrav, Mladen Adamovic (adamm@elf.bl.ac.yu). ... HIJERARHISKA LJESTVICA: BOG PA SRBI!!! * Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.960 postmast,
From: Mladen.Adamovic@f135.n135.z38.setnet.setnet.co.yu (Mladen Adamovic) Subject: Re: zapisi i tako dalje Date: Sun, 03 Sep 1995 21:07:56 -+=+- Asmir Badnjevic rece : -+=+- AB> Dalje, ima li neko opis PCX, GIF, MOD, FLI zapisa? Potrebni su mi. PCX imas na sezamu, u cini mi se s:\infoprog\ Opis GIF formata, imas u cini mi se, programu za rad s fraktalima IntFract 17.x verzija. Taj program je SW pa ti je najjednostavnije da ga skines sa nekog BBS-a (konkretno, recimo mog Banjaluka BBS, 078-47-174, radno vreme 22-07, program se nalazi na CD-u broj 3) MOD zapis imas u Racunarima brojevi veci od 100, Sto se FLI tice to bih i ja voleo da vidim. Veoma me interesuje. Ja bih u "listu" da dodam AVI i MPEG. Pozdrav, Mladen Adamovic (adamm@elf.bl.ac.yu). ... HIJERARHISKA LJESTVICA: BOG PA SRBI!!! * Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.961 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: pascal Date: Sat, 02 Sep 1995 21:13:03 On 30 Aug 95 03:38am, "Vladimir Novosel" wrote to All: "N> Zna li neko kako bi mogao da pustam semplove u pozadini (nezavisno od "N> onog sto program trenutno radi). Dali bi trebalo da se pise TSR rutina "N> ? Ako je potrebna TSR rutina kao se to pise u pascalu keep to ne radi "N> bas najbolje. Potrebno je da 'zajasis' interapt 8. Keep sasvim solidno obavlja svoj posao, mozda nisi dobro definisao stack i heap. Ako hoces code za pustanje semplova na COVOX-u, reci pa da ti saljem. __ Pozdrav from Vladimir __ ... "Koliko je trajao 100-godisnji rat?" * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.962 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: pascal Date: Sat, 02 Sep 1995 21:13:04 On 30 Aug 95 11:29pm, "Miroslav Minovic" wrote to All: "M> Napisao sam program,ocistio ga od buba, i sada ostade jedna, "M> ali nema sanse da je logicka(tj. moja:) "M> Naime zna li neko zasto je ovo ovako(ili bar ima ideju,ili pak "M> predlog) : Ja mislim da znam :) To se cesto i meni desi. Sigurno negde u programu imas 'READLN' kao cekanje na pritisak tastera. Posle 25 puta READLN-a, pozicija kurzora se pomeri ispod zadnjeg reda ekrana, i onda ovaj mora da se skroluje, kao u tekst modu. Resenje je vrlo jednostavno, samo ispred READLN stavi GOTOXY(1,1). __ Pozdrav from Vladimir __ ... Silver Xpress!...... Your Link to the Information Super Highway! <tm> * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.963 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: pascal Date: Sat, 02 Sep 1995 21:13:05 On 31 Aug 95 02:02am, "Srdan Simic" wrote to All: "S> Da li je neko uspeo da u Borland Pascal-u 7.0 i Borland C-u 3.1 "S> pokrene graficki mod u 256 boja. U helpu pise da se funkcija "S> setrgbpallete moze koristiti za VGA u 256 i da MAXCOLORS daje 256. "S> Ali meni uvek daje 16. "S> Pozdrav Jel imas VGA256.BGI ili SVGA256.BGI ? __ Pozdrav from Vladimir __ ... Silver Xpress!...... Don't leave home without it! * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.964 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: zapisi i tako dalje Date: Mon, 04 Sep 1995 22:19:03 MA> Sto se FLI tice to bih i ja voleo da vidim. Veoma me interesuje. MA> Ja bih u "listu" da dodam AVI i MPEG. Imam C source za pustanje FLI-va i FLC-ova, ako vas zanima. __ Pozdrav from Vladimir __ ... Silver Xpress!...... Simply more bang for your bucks! * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.965 postmast,
From: Sasa.Sekulic@f101.n101.z38.setnet.setnet.co.yu (Sasa Sekulic) Subject: pascal Date: Wed, 06 Sep 1995 05:33:46 "A> Osnovana je grupa DELPHI. Zainteresovani mogu da se jave na mail. Zainteresovan! Samo, ja sam Sasa Sekulic, a ne Nemanja Janic, ovo koristim samo privremeno. mad.max ... So, so you think you can tell tagline from steal... * Origin: Oreska BBS, UZICE = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.966 postmast,
From: shadow@setnet.co.yu (Ivan Jocic) Subject: pascal Date: Mon, 04 Sep 1995 07:31:48 VMZ> posao, mozda nisi dobro definisao stack i heap. Ako hoces code za VMZ> pustanje semplova na COVOX-u, reci pa da ti saljem. Pa salji, covece, sta cekas? Shadow ... Glavni racunari Atlantide radili su pod WINDOWS-ima. * Origin: * SETNet * Sirius BBS * 018/711-667 * Nis * (38:101/101.5)
pascal.967 postmast,
From: shadow@setnet.co.yu (Ivan Jocic) Subject: zapisi i tako dalje Date: Mon, 04 Sep 1995 07:31:49 VMZ> Imam C source za pustanje FLI-va i FLC-ova, ako vas zanima. Pa ti imas puno interesantnih stvarcica. Sto ne pricas sta sve imas. Mozes li nekako da posaljes preko mail-a spiskove tvojih disketa? Inace sto se ovog sorsa tice - pusti ga na svetlost monitora. Shadow ... Ĺ * Origin: * SETNet * Sirius BBS * 018/711-667 * Nis * (38:101/101.5)
pascal.968 postmast,
From: Mladen.Adamovic@f135.n135.z38.setnet.setnet.co.yu (Mladen Adamovic) Subject: Re: zapisi i tako dalje Date: Tue, 05 Sep 1995 22:38:02 -+=+- Vladimir M Zivkovic rece : -+=+- VMZ> Imam C source za pustanje FLI-va i FLC-ova, ako vas zanima. Meni to nije pogodno, interesuje me koji je format koriscen UNUTAR FLI,FLC, ako su koristili seriju GIF-ova npr. onda je to totalno - neekonomicno. Dakle, zanima me konkretno KVALITET ovih formata, a to najbolje mogu da shvatim iz opisa formata. Pozdrav, Mladen Adamovic (adamm@elf.bl.ac.yu). ... Svtkio pomaklo grsi,. * Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.969 postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic) Subject: Re: zapisi i tako dalje Date: Tue, 05 Sep 1995 23:08:53 MA> PCX imas na sezamu, u cini mi se s:\infoprog\ Mozda si vec procitao ovdje, ali momak je poslao program za citanje BMP zapisa. MA> najjednostavnije da ga skines sa nekog BBS-a (konkretno, recimo mog MA> Banjaluka BBS, 078-47-174, radno vreme 22-07, program se nalazi na MA> CD-u broj 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^ Da ne radis u agenciji za raklamiranjee :))? Sta je to, jel' se to jede??? MA> MOD zapis imas u Racunarima brojevi veci od 100, Jos kad bi imao Racunare ... MA> Sto se FLI tice to bih i ja voleo da vidim. Veoma me interesuje. MA> Ja bih u "listu" da dodam AVI i MPEG. A ko ne bi? Mislim kad bi skonto FLI zapis da se AVI i MPEG bas ne razlikuju puno. Znas li mozda ciji su 3D2 fajlovi? pozdraw, ASKO ... I haven't lost my mind; it's backed up on tape somewhere! * Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.970 postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic) Subject: Re: zapisi i tako dalje Date: Fri, 8 Sep 1995 12:56:13 GMT Asmir Badnjevic je napisao: >> >> MA> Sto se FLI tice to bih i ja voleo da vidim. Veoma me interesuje. >> MA> Ja bih u "listu" da dodam AVI i MPEG. >> A ko ne bi? Mislim kad bi skonto FLI zapis da se AVI i MPEG bas >> ne razlikuju puno. Za AVI ne znam, ali se MPEG ohohoho razlikuje. I JPEG i MPEG algoritmi za kompresiju imaju totalno drugaciju filozofiju od klasicnih. JPEG koristi odredjene statisticke osobine slike da bi pomocu diskretne kosinusne transformacije komprimovao energetski spektar signala blablabla ..., sto na kraju rezultuje u znatno kraci fajl. Kod MPEG-a se uopste ne pamte svi frejmovi, vec svaki n-ti, a frejmovi izmedju se dobijaju interpolacijom. Imam neke skripte o JPEG i MPEG algoritmima, kad nadjem malo vremena okacicu ih ovde. -- Allways look on the bright side of death
pascal.971 .sima, -> #963, postmast
> "S> Ali meni uvek daje 16. > "S> Pozdrav > > Jel imas VGA256.BGI ili SVGA256.BGI ? SVGA256.bgi imam ali drajver je vrlo loše uradjen. Mislio sam na original ne drajvere od Borlanda. Inače da li je neko uspeo da startuje miša u svga rezolucijama.
pascal.972 pedjak, -> #953, dvesic
> Možda serijski broj Ethernet karte ? Garantovano je jedinstven ... Da, mislim da bi to bilo rešenje, ako se već ide na očitavanje nekog serijskog broja.
pascal.973 mminovic, -> #961, postmast
> Potrebno je da 'zajasis' interapt 8. Keep sasvim solidno > obavlja svoj posao, mozda nisi dobro definisao stack i heap. > Ako hoces code za pustanje semplova na COVOX-u, reci pa da ti > saljem. Ajd posalji meni,zanima me posto sam skoro napravio COVOX,pa..:) da se malo igram :)) Pozdrav, Mindza.
pascal.974 mminovic, -> #971, .sima
> Inace da li je neko uspeo da startuje misa u svga rezolucijama. Ja :)) Sa bibliotekom sa sezama mouse6(ili tako nesto :)) Pozdrav, Minzda.
pascal.975 postmast,
From: Knezovic.Bojan@f133.n103.z38.setnet.setnet.co.yu (Knezovic Bojan) Subject: DB Login Date: Thu, 07 Sep 1995 16:12:01 Hi! Jel bi mogao neko da mi kaze kako da preskocim DataBase Login u Delphi-u? Svaki put kada pokrenem program moram da ga popunjavam ponovo i ponovo. P.S. Radi se o BDE i alias-u za MS Access ako vam to nesto znaci... Pozdrav, Bojan. ... Kakva nesebicnost! Ne bore se oni za sebe, nego za vlast. * Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.976 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: errorlevel Date: Thu, 07 Sep 1995 21:40:30 Hteo bih da napisem program koji bi preuzeo errorlevel od prethodno izvrsenog programa, ispisao mi ga i isti taj errorlevel vrati na svom zavrsetku. Pretpostavljate, treba mi da presrecem errorlevel-e koje vracaju programi ali da omogucim dalji rad BAT datoteka. Kako se ovo radi, mislim na citanje errorlevel-a. Ostalo znam. ... COMPLAINTS > NUL -+- OLMS 2.5 UNREG * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.977 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: wait for key Date: Thu, 07 Sep 1995 21:40:31 "S> From: "Srdan Simic" <.sima@sezam.UUCP> "S> U gafickom modu se ne koristi readln za pauzu. Ja koristim "S> procedure Pauza; "S> begin "S> if readkey=#0 then readkey "S> end; Hmm. Meni se ovo bas i ne svidja. Sta mislis o: repeat until keypressed ... Ovako lep oktobarski dan nismo imali celog avgusta -+- OLMS 2.5 UNREG * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.978 visnja, -> #944, .sima
Re: DPMI > Ne mora da se uključi ni jedan unit. Slažem se. Ali će malo teže da alocira više od 64K bez unit-a. Ima finih stvari u WINPROC-u. > radi. Inače DPMI se nije baš pokazao u mojim očima lepo, jeste > da je podržan od strane Windows-a, ali po meni VCPI je mnogo > bolji. Pre par meseci u nekoj beta verziji WIN95 nisam uspeo da pokrenem ni jedan DPMI program. Pošto od DPMI živim (BP & PARADOX) odma' sam izbrisao WIN95. Lično se ne ubijam pišući DPMI aplikacije pa bih te zamolio da nešto napišeš DPMI vs. VCPI.
pascal.979 visnja, -> #956, mminovic
>> Borland Pascal definise standardne tipove za rad sa fajlama. >> Posto kazes da je softver tajna neka i ti tipovi ostanu moja >> :) Pozdrav. > Jaaoooooo! :)) > Kakav sam ja mamun :)) > Eto,to ti je kada covek ne razmislja :) Sta je? Otkrio si tip FNAMESTR!
pascal.980 willow, -> #954, .sima
> Mozda serijski broj Ethernet karte ? Garantovano je jedinstven >>Da. Proizvodjaci garantuju da je serijski broj kartice jedinstven, >>ali kako se cita. I ja imam taj problem.( mozda si procitao, bilo je par poruka u temi FOX ). Pokusao sam da debug-iram NET.EXE i da provalim kako on dodje do tog serijskog broja , ali izgleda da nisam dovoljno talentovan za te stvari :( . I onda mi pade na pamet :). Ako koristis NetWare Lite, komanda NET ULIST daje spisak ulogovanih u formatu : Ime Id ( serijski broj kartice ) --------------------------------------- PERICA 000679866 *WILLOW 000454444 <- * znaci da je to moja masina. ( Ovi Id-ovi su dati onako, otprilike ).I tako, posle mnogo,mnogo neuspelih pokusaja da na neki ljudski nacin dodjem do broja Ethernet kartice, odlucih da to obavim ovako : Dam mu : NET ULIST >Login.Txt , i onda parsiram fajl Login.Txt da dodjem do informacije o serijskom broju. Posle, naravno DEL-nem Login.Txt. Eto. Pretpostavljam da je ovaj nacin malo priglup i sve, ali sta cu. Serijski broj HD otpada jer ga stanice nemaju , serijski broj BIOS-a takodje otpada jer sam ustanovio da vise masina imaju isti serijki broj BIOS-a, pa mi je posle receno da oni u stvari nabave jedan BIOS cip i onda pune cipove i to stavljaju u masine koje prodaju. U sustini ako pravis jednokorisnicku aplikaciju , mislim da mozes iskoristiti serijski broj HD-a, a ako pravis mreznu, tu je vec pitanje koji software koristis.Ako je NWLite u pitanju ( sto je moj slucaj ), onda si ga ugasio :(. Ako koristis Novell-a, mislim da je njegov API dobro dokumentovan i tu ne bi trebalo da imas problema. Ima tu jos nesto.Ako pravis program za vise masina ( korisnika ), mozes da na svakoj stavis RAZLICITU lozinku na SETUP pa posle to da citas. Verujem da bi i ovako i onako stavio lozinku da korisnici ne bi brljali tamo gde ne smeju, a eto, mozes i taj podatak da iskoristis za identifikovanje masine ( source za to mozes naci na Sezamu ). Hello from Willow Valley
pascal.981 evlad, -> #971, .sima
<> SVGA256.bgi imam ali drajver je vrlo loše uradjen. Mislio sam na <> original ne drajvere od Borlanda. <> Inače da li je neko uspeo da startuje miša u svga rezolucijama. Ako su drajveri V5.5 tada uz njih ide i miš, jedino na VLB CL5428 ima malo problema oko hardvreskog i softverskog kursora, ali može da radi. *************************************************************************** Copyright (c) 1990-1994 Jordan Hargraphix Software All Rights Reserved PORTIONS COPYRIGHT JOHN BRIDGES, 1990- 1993 (Svga detect & bankswitch) CHRISTOPHER MORGAN, 1984 (Bresenham's algorithm) FINN THOEGERSEN, 1991-94 (Svga detect & bankswitch) *************************************************************************** Here they are! The SuperVGA/Tweak BGI drivers you have all been waiting for! ;-> These drivers support a wide range of VGA cards, and should work on all major brands. Card types supported: (SuperVGA drivers) Acumos, Ahead, Avance Logic 2101, ATI, Chips & Tech, Cirrus Logic, Compaq, Everex, Genoa, MXIC68000, NCR, Oak, Primus 2000, Paradise, Realtek, S3 Trident (both 8800 and 8900, 9000), Tseng (both ET3000 and ET4000) and Video7. These drivers will also work on video cards with VESA capability. The tweaked drivers will work on any register-compatible VGA card. I have not tested these drivers on all these card types, so I can not guarantee perfect operation with your card. I have tested them extensively on Tseng ET4000, S3 and Paradise cards, and have had no problems. If you experience problems with the driver on your card, try loading a VESA driver first. ---------------------------------------------------------------------------- BGIv3.0 drivers support protected mode under Borland Pascal 7.0. Registration fees cover both v2.0 and v3.0 source code. Any current Borland/Turbo Pascal or C/C++ compiler can use BGIv2.0 in real mode. Only Borland Pascal 7.0 and Turbo Pascal 7.0 currently support BGI v3.0; Borland Pascal 7.0 needs BGIv3.0 to work in protected mode. The BGIv3.0 drivers are in the \BGI30 directory. ---------------------------------------------------------------------------- Modes currently supported: SuperVGA 16-color 0) Standard EGA/VGA 320x200x16 1) Standard EGA/VGA 640x200x16 2) Standard EGA/VGA 640x350x16 3) Standard VGA 640x480x16 4) SuperVGA/VESA 800x600x16 5) SuperVGA/VESA 1024x768x16 6) SuperVGA/VESA 1280x1024x16 SuperVGA 256-color 0) Standard VGA/MCGA 320x200x256 1) 256k Svga/VESA 640x400x256 2) 512k Svga/VESA 640x480x256 3) 512k Svga/VESA 800x600x256 4) 1024k Svga/VESA 1024x768x256 5) 256k Svga 640x350x256 6) 1280k+ VESA 1280x1024x256 * SuperVGA 32768-color BGI driver for HiColor cards SuperVGA 32768-color 0) 320x200x32768 1) 640x350x32768 2) 640x400x32768 3) 640x480x32768 4) 800x600x32768 5) 1024x768x32768 6) 1280x1024x32768 * SuperVGA 65536-color BGI driver for HiColor cards SuperVGA 65536-color 0) 320x200x65536 1) 640x350x65536 2) 640x400x65536 3) 640x480x65536 4) 800x600x65536 5) 1024x768x65536 6) 1280x1024x65536 * NEW SuperVGA 24-bit color BGI driver for TrueColor cards SuperVGA 24-bit color 0) 320x200x24-bit 1) 640x350x24-bit 2) 640x400x24-bit 3) 640x480x24-bit 4) 800x600x24-bit 5) 1024x768x24-bit 6) 1280x1024x24-bit * WARNING: The tweaked drivers do not use standard BIOS modes, instead they program the CRTC directly. You must have a register-compatible VGA card to use these drivers. You must also be sure that your monitor can handle the sync rates (the sync COULD damage your monitor) Tweaked 16-color 0) 704x528x16 1) 720x540x16 2) 736x552x16 3) 752x564x16 4) 768x576x16 5) 784x588x16 6) 800x600x16 Tweaked 256-color 0) 320x400x256 1) 320x480x256 2) 360x480x256 3) 376x564x256 4) 400x564x256 5) 400x600x256 6) 320x240x256 7) 360x350x256 * SuperVGA driver for S3 cards. (Orchid Farenheit 1280, Diamond Stealth) Uses extended features of the S3 chip to provide enhanced performance. S3 Accelerator 16/256/32768-color 0) 640x480x256 1) 800x600x256 2) 1024x768x256 3) 800x600x16 4) 1024x768x16 5) 1280x960x16 6) 1280x1024x16 7) 640x480x32768 OTHER PRODUCTS: * HGXMOUSE TSR for supporting those tricky video modes your mouse driver doesn't know about. My BGI drivers are fully integrated with the TSR, and will provide automatic mouse support in all modes if the TSR and mouse driver are loaded. Features: Support for the mouse cursor in 16, 256, 32k, 64k and true color SuperVGA modes, as well as tweaked 16 and 256 color modes. Support for a graphical text mode cursor (ala Norton) Support for the hardware cursor on systems that support it. (Cirrus 54xx, S3, Paradise) Easy to use API so you can use the mouse cursor in your own programs. (without needing to use my BGI drivers). Large cursor support (currently up to 32x32). Ability to set the cursor foreground and background colors Bitmap cursor support (multicolored cursors) ---------------------------------------------------------------------------- INSTALLATION: Using the driver in existing programs is easy. (If you have the source) Check the files INITSVGA.C and INITSVGA.PAS for examples of installation into C and Pascal programs. ---------------------------------------------------------------------------- NOTE: * See the file FAQ.DOC for frequently asked questions. * The .CHR files needed by the VGADEMO program are version 1.00 (dated October 1987), so if the fonts do not work properly with the demo program, you are probably using the newer fonts (eg. 1.1 dated June 1989 do not work properly). This is a fault of the BGI kernel that the demo program was compiled with (Turbo Pascal 5.5 doesn't recognize the newer version) ---------------------------------------------------------------------------- WARNING: The drivers do not test to see if the card installed is actually a VGA card (If the Svga drivers do not detect a SuperVGA card, they treat the card as a standard VGA), so DO NOT use the drivers if you do not have a VGA card installed. (Svga16 will work on EGA cards) ------------------------------------------------------------------------- REGISTRATION: I have decided to release these drivers free of charge, although donations would be greatly appreciated and certainly expedite the release of future versions. :-> The drivers have not been crippled in any way, though beta releases of new drivers may have some functions yet unimplemented. Registration fees: ( Price includes both BGIv2.0 and BGIv3.0 drivers ) ┌─────────────────────────────────────────┐ │ HGXMOUSE $40 │ │ │ │ SuperVGA BGI S3 $30 │ │ SuperVGA BGI 32768 $30 │ │ SuperVGA BGI 65536 $30 │ │ SuperVGA BGI 24-bit $30 │ │ SuperVGA BGI 256 $30 │ │ SuperVGA BGI 16 $30 │ │ Tweak 16 $30 │ │ Tweak 256 $30 │ │ │ │ Any two: $40 │ │ Any three: $50 │ │ Any four: $60 │ │ Any five: $70 │ │ Any six: $80 │ │ Any seven: $90 │ │ All eight: $100 │ │ │ │ Order one or more BGI drivers and get │ │ HGXMOUSE for only an additional $25. │ └─────────────────────────────────────────┘ With donations of $30 and up, you will be considered a registered user. Registered users get the full source code and upgrades on future releases. Please send checks/money to: Jordan Hargrave 8760-A Research Blvd, #256 Austin, TX 78758 (512) 219-6645 voice (800) 219-6988 voice (512) 458-6461 FAX (see note below) ;*===============================*===========================================* ;| Jordan Powell Hargrave | Internet: hargrave@dellgate.us.dell.com | ;| 12310B Deer Falls Drive | jordanh@vern.bga.com | ;| Austin, TX 78729 | CC mail: jordan_hargrave@dell.com | ;| (512) 219-6645 | Compuserve: [72510,1143] | ;*===============================*===========================================* ;| Mailing address: | Please use the mailing address for all | ;| 8760-A Research Blvd, #256 | BGI-related correspondence. | ;| Austin, TX 78758 | | ;| (800) 219-6988 | Note for FAX: Please include my mailing | ;| FAX: (512) 458-6461 | address and name in the header page. | ;================================*===========================================*
pascal.982 .sima, -> #979, visnja
> Sta je? Otkrio si tip FNAMESTR! Ne. To su PathStr, NameStr, ExtStr, DirStr. Ali evo upravo sam probao i sa običnim string tipom i assign lepo radi procedura izađe bez problema. Kod Pascala, ako se program sruši prilikom izlaska iz procedure, teže da je greška druge prirode sem pisanje po memoriji gde ne treba. Evo ovaj program sam preveo i radi savršeno. Probaj i ti var ime: string; F: text; linija: strin[80]; begin ime:='test.txt'; assign(F,ime); reset(F); while not EOF(F) do begin readln(F, linija); writeln(linija); end; close(F); end.
pascal.983 .sima, -> #976, postmast
> Kako se ovo radi, mislim na citanje errorlevel-a. Ostalo znam. var ErrLvl: string; begin . . . ErrLvl:=GetEnv('ERRORLEVEL'); . . . end.
pascal.984 .sima, -> #977, postmast
> Sta mislis o: > repeat until keypressed Da to je bolje, ali meni se dešavalo da ostane u baferu nešto, pa program pretrči preko toga. Npr ovo mi nije radilo kako treba ch:=readkey; repeat until keypressed; jer repeat je ste čekao na drugi pritisak, ali drugi pritisak nije progutan. Naravno nekada je to bolje, a nekada nije.
pascal.985 .sima, -> #978, visnja
> Slažem se. Ali će malo teže da alocira više od 64K bez unit-a. Ima > finih stvari u WINPROC-u. > Pre par meseci u nekoj beta verziji WIN95 nisam uspeo da pokrenem ni > jedan DPMI program. Pošto od DPMI živim (BP & PARADOX) odma' sam > izbrisao WIN95. Lično se ne ubijam pišući DPMI aplikacije pa bih te Ako misliš 64k u jednom komadu to je tačno, u "običnom" DPMI-ju je 64k granica, a sa WinApi.tpp je nema :). Samo što ovo može da se gleda i sa druge strane. Ako poštuješ neka manja ograničenja, običan program možeš samo da prevedeš u DPMI i radiće super (new, getmem itd). Memavail će dati da je slobodno sve ono sto je slobodno preko prvog mega. Ono ispod je nepristupačno za new ili getmem. Sa druge strane ako se koriste WinApi procedure (GlobalAlloc/LocalAlloc) može se pristupiti i onoj memoriji ispod prvog mega, ali program mora da se prepravlja (ne puno). I dalje se ne mogu neke stvari, npr: type ttemp = array[1..100000] of byte; ptemp = ^ttemp; var temp: ptemp; begin new(temp); ili GlobalAllocPtr(fl, 100000); Ovo neće da prođe i puca vec na definiciji tipa. Neću više da dužim ako nokoga interesuje, neka javi. DPMI bi trebalo da radi pod Win3.11 za ostalo ne znam. VCPI bi trebaloda radi pod win3.11, ali nije baš poželjno. Mada po meni programi su stabilniji od DPMI-ja. Sada pitaćeš zašto je vcpi bolji, pa nije bolji, ako radiš pod windowsima, jer su ustvari win i vcpi ista stva. VCPI program ladno guta prethodni problem, pravi 32-bitni kod (DPMI pravi 16-bitan), swap datoteke i sve ono što pravi 32b program treba da ima. Deklaracija var temp: array[1..1000000000] of byte; prolazi kroz kompajler bez problema. Naravno ako nema dovoljno memorije, swap ili fizičke program je neće dodeliti. Neće pući, samo neće dodeliti. Inače memorija se neće dodeliti, iako je u var-u, kada se program startuje, već priliko prvog korišćenja. Ima o ovome još mnogo, tako da ako ima zainteresovanih, neka se jave. Predlog probajte GNU C sa ffs-a to sam ja dovukao iz amerike i stavio tamo. Ima ga i na UBBG-u. Program je pravi VCPI kompajler. Iako je to C ima konvertor, koji je vrlo dobar, za pascal. Kada se program prevede i poveže sa ekstenderom, koji je u paketu, dobije se JEDNA datoteka koja ima sve u sebi. Najmanja datoteka (sa writeln('Hello');) je valjda oko 80k.
pascal.986 .sima, -> #981, evlad
> Ako su drajveri V5.5 tada uz njih ide i miš, jedino na VLB CL5428 > ima malo problema oko hardvreskog i softverskog kursora, ali može da > radi. DA! To mi treba. Gre mogu da ga nađem.
pascal.987 pedjak, -> #954, .sima
> Da. Proizvodjaci garantuju da je serijski broj kartice jedinstven, > ali kako se cita. Pogledaj poruku 14.184
pascal.988 visnja, -> #982, .sima
> program sam preveo i radi savršeno. Probaj i ti Mislim da neću da ga probam. Vizuelnom kontrolom se vidi da radi. Pogledaj ovaj segment programa koji RADI (Pravi tekući dir) : PROCEDURE MakeDirDir; var rr:record izb:PStringCollection; b:word; end; count:word; dirinfo:searchrec; f:text; begin rr.izb:=new(pstringcollection,init(1,1)); count:=0; findfirst('*.*',AnyFile,DirInfo); while doserror=0 do begin inc(count); rr.izb^.insert(newstr(DirInfo.Name)); findnext(dirinfo); end; end; POZDRAV Višnja.
pascal.989 .sima, -> #988, visnja
> Mislim da neću da ga probam. Vizuelnom kontrolom se vidi da radi. > Pogledaj ovaj segment programa koji RADI (Pravi tekući dir) : Izvini, ali poruka je bila više namenjena mminovic-u (mislim da on proba) Inače tvoj lepo radi, nisam probao, jer nemam te unite na disku. Ja nikada nisam koristio Collections jer nekako mi je bilo uvek lakše da ja napišem rutine za čuvanje podataka. Posle ovoga, pošto lepo radi, ću malo testirati Collection (brzina stabilnost) pa ćemo videti. Jedina stvar koja me je nervirala kod Collections-a pa sam u početku odustao od njih je nemogućnost da koristi XMS. Ja lično više cenim i volim XMS od EMS, tako da sve moje rutine za podatke swapuju u XMS i to vrlo lepo. 640Kb podataka prebaci u XMS i iz, za tren. Na 386dx40 se posle pritiska na dugme 64Mb je bilo prebačeno u XMS i iz, za tren.
pascal.990 mminovic, -> #982, .sima
> je greska druge prirode sem pisanje po memoriji gde ne treba. > Evo ovaj program sam preveo i radi savrseno. Probaj i ti Jos jednom :) On meni proceduru lepo zavrsi ali padne pri vracanju u mama-proceduru :) Znaci smesti ovo u proceduru,pozovi iz glavnog programa proceduru i ako ne padne onda su gremlini u mom kompjuteru :0 Pozdrav, Mindza.
pascal.991 .sima, -> #990, mminovic
> Jos jednom :) > On meni proceduru lepo zavrsi ali padne pri vracanju > u mama-proceduru :) > Znaci smesti ovo u proceduru,pozovi iz glavnog programa proceduru i > ako ne padne onda su gremlini u mom kompjuteru :0 Izvini a kako ti misliš da ja programiram???? Pa upravo sam završio program (pre dva dana) i on treba da nađe gde mu se nalazi jedan fajl. To radi u jedno proceduri koja se poziva iz druge. Otvara, čita, piše, zatvara itd.. Probano, radi. Pogledaj malo ti stanje programa pre i posle poziva te procedure. Probaj moj program, ako ne radi, onda... install.exe
pascal.992 visnja, -> #989, .sima
> Izvini, ali poruka je bila više namenjena mminovic-u (mislim da > on proba) Inače tvoj lepo radi, nisam probao, jer nemam te > unite na disku. > > Ja nikada nisam koristio Collections jer nekako mi je bilo uvek > lakše No replicirano je bilo meni. U pravu si za kolekcije, ni ja ih ne volim. Naročito zbog nezgrapnog EMS-a. Ali pokušavam sebe da usmerim u pravcu NEizmišljanja tople vode i rupa na saksijama. Teško mi ide jer stalno pronalazim nekakve rupe... :) Pozdrav Višnja.
pascal.993 dr.urbano, -> #984, .sima
Momci, ipak je sledece resenje najbolje(po meni): {$x+} <--- ovo je glavna stvar ;) uses crt; bla ... bla ... bla begin . . . . . . readkey; <--- da, da samo ovako ;) . . . . . . end. Urbano Soft laboratorija za istrazivanje alternativnog softvera Pozdrav, Doctor
pascal.994 .sima, -> #992, visnja
> Naročito zbog nezgrapnog EMS-a. Ali pokušavam sebe da usmerim u > pravcu NEizmišljanja tople vode i rupa na saksijama. Teško mi ide > jer stalno pronalazim nekakve rupe... :) Znam ja sam se oduševio turbo vizijom, kada sam je prvi put video, ali posle malo više korišćenja, sam se duboko razočarao, i odustao. Sve je to lepo i ako se izuzmu neke sitnice, radi kako treba, ali... Bolje je napraviti sve od početka sam, pa onda to koristiti. Program će uvek biti brži i kompaktniji. Drugo je pod windowsima ili os/2 tu samo mazohisti rade sve ispočetka.
pascal.995 .sima, -> #993, dr.urbano
║ Momci, ║ ipak je sledece resenje najbolje(po meni): čao mi je što moram da ti kažem, ali nije :( U slučaju da je pritisnuti specijalni taster neće lepo raditi. jer ako imaš . . . readkey; . . . readkey; <-- ova linija će biti preskočena, mislim neće stati
pascal.996 .sima, -> #990, mminovic
Posto mi je ovo dopisivanje vec dosadilo evo nesto. Kada pogledas bice ti jasno. Probao sam i zakljucio: ili su gremlini kod tebe, ili... Javi mi kada pogledas, bas me interesuje da li si uspeo da sredis problem. testmind.pas
pascal.997 visnja, -> #994, .sima
> Znam ja sam se oduševio turbo vizijom, kada sam je prvi put > video, ali posle malo više korišćenja, sam se duboko razočarao, > i odustao. Sve je to lepo i ako se izuzmu neke sitnice, radi > kako treba, ali... Bolje je napraviti sve od početka sam, pa > onda to koristiti. APSOLUTNO POGREŠNO!!! Turbo Viziju verovatno poznaješ do nivoa 'malo više korišćenja'. Ja radim u TV mnogo više (non stop) i stvar je MOĆNA. Najmoćnije što DOS može dati u textu. Šta od početka da napraviš? TV. Malo teže: Više dokumenata istovremeno, Pozivanje menija na sve standardne načine, Varijabilna statusna linija sa HINT-om, Pomeranje i veličina svih prozora, Odlican editor, Help koji uz malu doradu postaje moćan hipertext alat, Objekti idu na disk i sa diska, Event Drv. programiranje, Resursi... Uz program DLGDSN primitivna vizualizacija. (crtaj i pokreni) Uz PARADOX ENGINE kraljevski DOS programi... Na dnu TV ima dosta mašinca, dakle prilično brzo čak i na 386 makinama. Nego vrati se ti TurboViziji ako planiraš da radiš DOS programe. Uvek mogu pomoći. Moje znanje nije tajna...(ili neznanje, hm...diskutabilno!). Pozdrav Višnja.
pascal.998 visnja, -> #993, dr.urbano
> begin > > . . . . . . > > readkey; <--- da, da samo ovako ;) > > . . . . . . > end. Specijani tasteri: ch:=readkey; if ch:=#0 then readkey Pozdrav Višnja.
pascal.999 evlad, -> #986, .sima
<> DA! To mi treba. Gre mogu da ga nađem. =============================== 7.42 TEST.1:pc.prog evlad, 13.09.Sre 19:33, 155 chr --------------------------------------------------------- svga bgi drajveri za TP 7.0 i TC/BC podrška za pacova u rezolucijama većim od 640x480 arhivu otpakovati sa: pkunzip -d svgabg55 upload po želji .sima ----------------------------------------------- 7.42 --- ** Uz poruku 'svgabg55.zip' (202783 bytes) BULAJOOOOO baci ga u dir tamo i vamo :)
pascal.1000 superhik,
Proba sam da sa i:=Lenght(s) dodelim dužinu stringa nekom integeru ali javlja eror !? u čemu je problem
pascal.1001 zeljkoj, -> #997, visnja
> Na dnu TV ima dosta mašinca, dakle prilično brzo čak i na 386 > makinama. žak? :) Rečenica je verovatno trebala da glasi: 'zahteva 386 da bi bilo dovoljno brzo'. :))
pascal.1002 .sima, -> #997, visnja
║║ APSOLUTNO POGREŠNO!!! ║║ Turbo Viziju verovatno poznaješ do nivoa 'malo više korišćenja'. Ok nemoj da vičeš. I ja mislim da je TV dobar proizvod i znam je malo više nego što misiš. Problem je što ja ne pravim programe za prodaju, ili za drugog. Trenutno završavam fakultet i svi programi koje pravim, traže brzinu i pouzdanost. Znaš i sam, jedan program sam preveo sa TV-om i bez. Bez je bio 95k, a sa je bio skoro 300k. U programu oma dosta mašinca. Kada se radi u DPMI-ju ovo je stvarno mali problem, ali moj program je koristio svaki byte memorije, tako je radio savršeno na 640k. I ja lično mislim da ako bi mi neko sada tražio npr. program za video klub, ja bi mu uradio ili preporučio TV. Upravu si ti, vrlo je glupo ponovo otkrivati toplu vodu.
pascal.1003 .sima, -> #1000, superhik
║║ Proba sam da sa i:=Lenght(s) ║║ dodelim dužinu stringa nekom integeru ali javlja eror !? ║║ u čemu je problem Koja greška je u pitanju? Probaj ovo. {Length.PAS} {Sample code for the Length function.} { For Windows: } { uses WinCrt; } var S: String; begin Readln (S); Writeln('"', S, '"'); Writeln('length = ', Length(S)); end.
pascal.1004 visnja, -> #1001, zeljkoj
> žak? :) > Rečenica je verovatno trebala da glasi: 'zahteva 386 da bi bilo > dovoljno brzo'. :)) Probao sam na 286 8 Mhzi lepo radi. TurboVizija sigurno, ostali deo programa zavisi od programera. Štaviše radi fantastično. Fascinantno je kako pomera prozore i na sporim mašinama. Pozdrav Višnja.
pascal.1005 visnja, -> #1002, .sima
> Ok nemoj da vičeš. I ja mislim da je TV dobar proizvod i znam > je malo Sorry man, nisam hteo da izgleda kao da vičem... Nemam šta da dodam, slažem se sa svime što si rekao. Pozdrav Višnja.
pascal.1006 visnja, -> #1000, superhik
> Proba sam da sa i:=Lenght(s) Verovatno i nije odgovarajućeg tipa. Proveri! Pozdrav Višnja.
pascal.1007 paki, -> #1000, superhik
­> Proba sam da sa i:=Lenght(s) Funkcija se zove Length :)
pascal.1009 kriss,
Da li neko zna zašto na ovom mestu TP 6.0 prijavljuje grešku: ProgramStart : Byte absolute Cseg:$100; ^ Error 133: Cannot evaluate this expression. ?
pascal.1010 .sima, -> #1009, kriss
║║ Da li neko zna zašto na ovom mestu TP 6.0 prijavljuje grešku: ║║ ProgramStart : Byte absolute Cseg:$100; ║║ ^ ║║ Error 133: Cannot evaluate this expression. Problem je u tome što CSeg je funkcija, a ne variabla. Rešenje je da ako je potrebno da ProgramStart bude globalna variabla: var ProgramStart: ^byte; begin ProgramStart:=Ptr(CSeg,$100); writeln(ProgramStart^) end. U slučaju da je potrebno da bude lokalna, onda se prenese kao parametar. type BPtr = ^byte; procedure blabla(ProgramStart: BPtr); begin writeln(ProgramStart^) end; begin blabla(Ptr(CSeg,$100)); end.
pascal.1011 dares,
Kako procitati datoteku (radi kopiranja) koja je Read Only ? Program ide ovako: ... ... assign(uldat,'neka.dat'); reset(uldat,1); i ovde javlja Runtime error 5 (sto znaci pokusaj resetovanja Read Only datoteke); Program (odnosno ova procedure) treba samo da iskopira tu datoteku.
pascal.1012 superhik, -> #1003, .sima
=:> Koja greška je u pitanju? Probaj ovo. Taj primer sam uradio i on je OK nego javlja neki error ili sl. ako probam recimo: Uses CRT; Var s:string; i:integer; Begin ClrScr; Readln(s); i:=lenght(s); Write(i); REadln; End. P.S. Sada sam probao gore navedeni program i error je 'UNKNOWN INDENTIFIER' !?
pascal.1013 .sima, -> #1012, superhik
║║ i:=lenght(s); Pa ti nisi lepo procitao moju poruku. LENGTH je funkcija. Ovakve greske se najbolje ispravljaju ako se posluzis sa helpom. Stavi kurzor na lenght i pritisni CTRL+F1 pa ces videti dalje sam. Ovo je ako koristis Borland Pascal, ako ne onda nek ti je bog u pomoci.
pascal.1014 .sima, -> #1011, dares
║║ Kako procitati datoteku (radi kopiranja) koja je Read Only ? {$I-} var F: file; begin FileMode:=0; <-- Stvar je u ovome assign(F,'temp.dat'); reset(F); writeln(IOResult); close(F) end. FileMode je globalna variabla u system unitu koja definise default mod za otvaranje untyped i typed datoteka. Za text vaze posebna pravila. Znaci FileMode 0 je readonly, 1 je write, a 2 je read/write. Reset onda otvara datoteku u tom modu. Text datoteke se sa reset uvek otvaraju u readonly, sa rewrite u writeonly, a sa append u readonly takodje.
pascal.1015 pyramid, -> #998, visnja
>> Specijani tasteri: >> >> ch:=readkey; >> if ch:=#0 then readkey ili jos krace: if readkey=#0 then readkey
pascal.1016 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: zapisi i tako dalje Date: Fri, 08 Sep 1995 08:20:00 VMZ>> Imam C source za pustanje FLI-va i FLC-ova, ako vas zanima. MA> Meni to nije pogodno, interesuje me koji je format koriscen MA> UNUTAR FLI,FLC, ako su koristili seriju GIF-ova npr. onda MA> je to totalno - neekonomicno. Evo, objasnicu ti ukratko. GIF zaboravi, ovi formati nemaju ni najmanje veze sa njim. Prva slika se zapisuje kao obicna (najstandarnijim nacinom kompresovana). Dalje se pamte samo razlike u odnosu na prethodnu. Takodje, vece grupe iste boje se zapisuju uz pomoc 2 bajta, tako da je format vrlo dobar (odlican) po pitanju brzina citanja - kompresija. MA> Dakle, zanima me konkretno KVALITET ovih formata, a to MA> najbolje mogu da shvatim iz opisa formata. Ili iz sourcea, odatle sam ga ja provalio. __ Pozdrav from Vladimir __ ... "Koliko je trajao 100-godisnji rat?" * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.1017 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: zapisi i tako dalje Date: Wed, 06 Sep 1995 18:05:00 VMZ>> Imam C source za pustanje FLI-va i FLC-ova, ako vas zanima. IJ> Pa ti imas puno interesantnih stvarcica. Sto ne pricas sta sve imas. IJ> Mozes li nekako da posaljes preko mail-a spiskove tvojih disketa? Inace IJ> sto se ovog sorsa tice - pusti ga na svetlost monitora. Sors stize u sledecoj poruci, a sto se tice ostalih stvari, to su uglavnom arhive sa raznih BBS-ova. Ima nesto za 3D-grafiku, 32-bitno programiranje, TSR, ... Ti reci sta te zanima pa cu ja da potrazim. Imam mali milion arhiva, i za 90% ne znam sta su ;) naknadno pisano: uf, fajl za FLIC-ova ima 32KB zipovan. Bacicu ga kod Oswalda na BBS (022/425-879 23-07h) pa skidajte :) ... "To je bila bezgranicna ljubav koja se granicila sa velicinom kosmosa * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.1018 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: pascal Date: Wed, 06 Sep 1995 18:05:01 VMZ>> posao, mozda nisi dobro definisao stack i heap. Ako hoces code za VMZ>> pustanje semplova na COVOX-u, reci pa da ti saljem. IJ> Pa salji, covece, sta cekas? Evo, cim malo sredim code. Btw, to je Paskal code sa procedurama u ASM-u. __ Pozdrav from Vladimir __ ... "To je bila bezgranicna ljubav koja se granicila sa velicinom kosmosa * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.1019 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: sempl na COVOX Date: Wed, 06 Sep 1995 18:05:03 Hi, Evo malo koda za pustanje sempla preko paralelnog porta pod interaptom :). program LPT_Play_by_VMZ; uses dos,crt,mouse; var sfile:file; spoint:pointer; sseg,sofs,ssize,pos:word; myproc:procedure; procedure play;interrupt;assembler; asm cmp pos,65535 je @kraj mov es,sseg mov di,sofs add di,pos mov al,es:[di] mov dx,378h {adresa paralelnog porta} out dx,al inc pos mov ax,pos cmp ax,ssize jne @kraj mov pos,65535 @kraj: mov al,20h out 20h,al end; procedure openfile(sname:string); begin assign(sfile,sname); reset(sfile,1); ssize:=filesize(sfile); getmem(spoint,ssize); sseg:=memw[seg(spoint):ofs(spoint)+2]; sofs:=memw[seg(spoint):ofs(spoint)]; blockread(sfile,mem[sseg:sofs],ssize); close(sfile); end; procedure setfreq(freq:word); var f:word; begin if freq=0 then f:=0 else f:=round(1192755.2/freq); asm cli mov al,10110000b out 43h,al mov cx,f mov al,cl out 40h,al mov al,ch out 40h,al sti end; end; begin pos:=65535; {'pos' je pozicija trenutnog bajta sempla koji se svira} {65535 - ne sviraj; 0 - pocni sa pustanjem } openfile('c:\music\ins\hamer.sam'); {ime sempla koji se zeli pustiti} GetIntVec(8,@myproc); {duzina ne sme biti veca od 64KB} setintvec(8,@play); setfreq(20000); {frekvencija pustanja} pos:=0; {pocni sa pustanjem } repeat {ovde radis sta hoces} until keypressed; setfreq(0); {vraca staru brzinu interapta} setintvec(8,@myproc); {vraca stari interapt } end. Ako ima pitanja, naravno, mail me. __ Pozdrav from Vladimir __ ... Jamming with Silver Xpress! * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.1020 postmast,
From: Vladimir.Cheperkowitch@f127.n103.z38.setnet.setnet.co.yu (Vladimir Cheperkowitch) Subject: Re: Zapisi I Tako Dalje Date: Sun, 10 Sep 1995 00:57:05 VMZ>Imam C source za pustanje FLI-va i FLC-ova, ako vas zanima. Iskreno govoreci, jako me zanimaju. Ipak, jako slabo poznajem BBS vode, tako da bih te zamolio da mi objasnis kako da dodjem do njih. Cheppy. ■ SLMR 2.1a ■ My reality check just bounced. --- FMail/386 0.98 * Origin: SETNet ComTech BBS +381-11-474-373, Beograd (38:103/127)