pascal.827dusanp,
-> #823, .sima Da bi startovao td386 moras da imas 386:)))
Ako je taj uslov ispunjen idemo dalje...
1.Ne smes da koristis nijedan od 386 memory
managera (qemm ili max), mozda moze jedino
himem.sys (nisam probao)
2.U config.sys moras da uneses
DEVICE=(path do drajvera)\tdh386.sys
Da li imas tdh386.sys?
3.Ako tdh pri instalaciji prijavi greske, na
primer "nedevoljno mesta za envirovment",
uz DEVICE=... se mora navesti i nesto dodatnih
parametara za podesavanje, al to vidi iz uputstva,
ne znam napamet.
Ona greska mi mirise na neki memory manager ili na
nepostojanje 386ice.
pascal.828ssokorac,
Šta se radi kada tp (6.0) javi code segment too large? žini mi se
da je neko spomenuo overlay-e, ali nemam pojma sta s njima :), pa ako
neko može da mi objasni. Thanks unapred.
P.S. Ako neke procedure prebacim u unitove, pretpostavljam da ce i
dalje javljati istu poruku?
pascal.829prvul,
-> #823, .simaŮE kad ja pokrenem TD386 dobijem poruku
ŮProcessor is already in V86 mode
Ů▄▄▄
Probaj da startuješ TD iz "golog" DOS-a, znači bez QEMM i sličnih
zezalica (a naročito nemoj da ti padne na pamet da startuješ TD386
iz DOS prozora u WINDOWSima ;).
pascal.830vitez.koja,
-> #828, ssokorac#=> P.S. Ako neke procedure prebacim u unitove,
#=> pretpostavljam da ce i dalje javljati istu poruku?
Nisam probao, ali ne bi trebalo.
pascal.831dejanr,
-> #825, ilazarevic>> Da li su ti fajlovi u nekom diru ili su zakačeni na poruke?
Nalaze se u direktorijumu INFO
pascal.833dejanr,
-> #828, ssokorac>> Šta se radi kada tp (6.0) javi code segment too large? žini mi se
>> da je neko spomenuo overlay-e, ali nemam pojma sta s njima :), pa ako
>> neko može da mi objasni. Thanks unapred.
TP radi u memorijskom modelu koji obezbeđuje više kodnih segmenata
(po jedan za svaki unit) i jedan segment za podatke. Svaki segment
je ograničen na 64 K. Dakle, ostaje ti da neke od procedura odvojiš
u poseban unit ili više unit-a.
pascal.834almi,
-> #824, bearboyKod nas taj program radi kako treba i nismo primetili da se glavi.
Pozdrav,
ALMI
pascal.835bearboy,
-> #819, dejanr│ download-uješ odavde one fajlove o svim interaptima, možda tamo nađeš
│ neke informacije koje ti trebaju.
Po tom sam textu pisao program :)
│ preko dos busy flag-a, što je postala polulegalna metoda. Probaj da
Kako se to radi ?
pascal.836bearboy,
-> #820, gbiocic│ I savet: U fazi testiranja zabataliti pisanje na disk, nego uzeti
│ neku benignu DOS f-ju, recimo "zvonce" na ekran.
Pazi ovo - program piše na ekran, port, stampac, etc. pisti, muzicira, sve
sve sve, dok mu ne kažem da takne disk.
PS. E da, zaboravih da kažem. Sa Print Screen interaptom radi k'o san, ali
to ne služi svrsi jer ga pojedini programi isključuju (interapt :).
pascal.837bearboy,
-> #821, dgrbic│ Skini lptx??? sa Sezama, tu imas .ASM source sa puno komentara i tu je lepo
│ opisano kako se iz interapt rutine pise u fajl.
│ Ne treba ti poznavanje asemblera bas puno, jer su komentari vrlo opsirni...
Pa ni ne znam mnogo :) Ceo program je pisan u Paskalu (zato je u ovoj temi :)
│ Pustis lptx da hvata recimo lpt3 a ti iz svog programa umesto da pises u
fajl,
│ stampas ono sto vec treba da saljes na taj lpt3 "stampac".
│ I nadas se da nece da zapne zato sto se predugo zadrzavas u Int. rutini :)
Pa može i to, šta više, to bi bilo najfunkcionalnije, ali kako da pišem
neki samostalni program koji se oslanja na neki drugi ? :)
pascal.838.sima,
-> #827, dusanp> Da bi startovao td386 moras da imas 386:)))
> Ako je taj uslov ispunjen idemo dalje...
> 1.Ne smes da koristis nijedan od 386 memory
> 2.U config.sys moras da uneses
> 3.Ako tdh pri instalaciji prijavi greske, na
OK radi hvala puno
Startovao sam bez qemm-a i radi samo ja koristim stacker
i on mi uzme 50k kada ga ne smestim u umb; da li bi radio sa EMM386.exe.
Nego ja nemam himem.sys :(( obrisao ga kao to sr*** mi neće trebati
da li neko meže da mi ga pošalje himem.sys i emm386.exe da probam sa
njima kako bih mogao da dignem dos i da li onda mogu da dignem driver
za miš i stacker. Nemam nikakvo uputstvo za TD386 tražio ali nigde našao
Da li neko imam možda to
Hvala puno na odgovorima Srđan
pascal.839miroslavn,
Kako da TPU koji je kompajliran sa TP 5.5, koristim i sa TP 6.0 , ali
da ga ne rekompajliram (tj. nemam source code tog TPU-a) ?
Da li postoji neki konvertor formata TPU-a?
pascal.840dejanr,
-> #839, miroslavn>> Da li postoji neki konvertor formata TPU-a?
Koliko znam, ne postoji. To je velika mana Turbo Pascala
pascal.841broker,
-> #770, drpr> Kad smo već kod datoteka imam jedan mali problem.
> Imam jedan program koji se koristi datotekama i želeo bih
> da ga mogu pozivati odakle god hoću (recimo da napravim
> bač fajl) ali bez menjanja trenutnog dira.Kada program
> pozove datoteku on je ne nađe jer datoteka nije u diru
> odakle je "poziv došao".Pravljenje neke datoteke koja će
> nositi informaciju o diru gde se nalazi fajl pa da je
>ć bacim recimo u c:Đ ne izgleda mi baš elegatno a i šta e
> se desiti ako korisnik slučajno izbriše tu datoteku sa
> informacijom.Da li ima neko rešenje?
Ja obično takve datoteke držim gde i sam program, a u TP
pozivom ParamStr(0) dobijaš stazu na kojoj se nalazi sam
program. I lepo na toj istoj stazi uzmeš datoteku koja ti
treba. Program možeš da pokrenš i preko PATH-a, uvek će da
pronađe datoteke...
pascal.842broker,
-> #794, dejanr>>> Nego, šta rade onda programi koji treba da upišu nešto u
>>> sebe, a da ne 'probude' antivirus?
>
> Pa, kada bi mogli nešto da urade da to zaobiđu, onda bi to
> isto mogao da uradi i virus pa od tog antivirusa ne bi
> bilo mnogo vajde. Ustanovićeš da je jako malo programa
> koji nešto upisuju "u sebe". Jedan od takvih je bio i
> Turbo Pascal odnosno njegov TINST (on, doduše, nije
> upisivao baš "u sebe" ali jeste u TURBO.EXE), sve negde do
> verzije 5.0 ili 5.5.
KOristim TP5.5 i njegov TINST upisuje stvari u TURBO.EXE.
Imam instaliran Vshield i on se na tu operaciju ne buni.
Mozda zto sto se ne 'patchuje' program koji je trenutno pokrenut?
pascal.843bearboy,
-> #834, almi│ Kod nas taj program radi kako treba i nismo primetili da se glavi.
A kod mene se glavi... Kad setuje int $0C, i završi proceduru, ode u večna
lovišta.
pascal.844bearboy,
-> #828, ssokorac│ Šta se radi kada tp (6.0) javi code segment too large? žini mi se
Izbaciš ono VAR A :ARRAYŠ0..64000Ć of byte; (ili nedajbože string ;)
│ P.S. Ako neke procedure prebacim u unitove, pretpostavljam da ce i
│ dalje javljati istu poruku?
Ma bacaj sve u junitove, i posle nema da boli glava. I ja radim to :) A
kad završiš program, unit lepo linkuješ zajedno sa, recimo, .BGI, .CHR i
ostalim zezalicama u EXE... I tako ti EXE poraste za kojih 50-300K za tren
okceta :)
pascal.845drpr,
-> #840, dejanr-> Koliko znam, ne postoji. To je velika mana Turbo Pascala
Ja bih rekao ogromna jer stvarno nema smisla :(
cope
PS
Imam neke utility tpu-ove (neke sam i bacao ovdi) zbog kojih mi
se ne prelazi na tp6.0 jedino ako su napravili neke nove
verzije (većina je skinuta sa trickle-a)
pascal.846drpr,
-> #841, broker-> Ja obično takve datoteke držim gde i sam program, a u TP
-> pozivom ParamStr(0) dobijaš stazu na kojoj se nalazi sam
-> program. I lepo na toj istoj stazi uzmeš datoteku koja ti
-> treba. Program možeš da pokrenš i preko PATH-a, uvek će da
-> pronađe datoteke...
Hvala na odgovoru ali istu stvar mi je rekao dzakic pre 10-ak
dana :).Ali nema veze sve jedno hvala.
cope
pascal.847almi,
Imam problem u pascalu,tj. napisao sam ovaj mali program koji otvara prozore
tj.crta pravougaonik dok je pritisnuto dugme na mišu.Ali ako se miš kružno
kreće ostaju zbrljovi na ekrano (dugme je pritisnuto).Preuzmite ovaj
kratak program i pomozite mi.
Unapred zahvalan
Mišel.
opwin.paspascal.848ssokorac,
-> #844, bearboy ─┼┤ Izbaciš ono VAR A :ARRAYŠ0..64000Ć of byte; (ili
─┼┤ nedajbože string ;)
Mm? Odakle?!
pascal.849dejanr,
-> #842, broker>> KOristim TP5.5 i njegov TINST upisuje stvari u TURBO.EXE.
>> Imam instaliran Vshield i on se na tu operaciju ne buni.
>> Mozda zto sto se ne 'patchuje' program koji je trenutno pokrenut?
Da, on očito smatra TURBO.EXE "običnom" datotekom. Međutim, ima
dosta antivirus programa koji se startuju pri butovanju računara
i proveravaju checksum svih relevantnih fajlova, sa posebnim
osvrtom na EXE, COM, SYS... Takav bi se garant bunio, mada od
tog "bunjenja" nema štete ako korisnik zna o čemu je reč. Nema,
kažem, štete ali je ipak neprijatan trenutak kada računar počne
da prijavljuje sumnjive stvari koje "mirišu" na viruse.
pascal.850vitez.koja,
-> #847, almi#=> Imam problem u pascalu,tj. napisao sam ovaj mali program
#=> koji otvara prozore
Nisam skinuo fajl pored poruke i ne znam sta si radio, ali u principu
kad se ispod misevog kursora nesto desava (tj. menjas izgled ekrana)
najpozeljnije je da iskljucis pacova za momenat... Desavalo se to i meni
:))
pascal.851obren,
-> #847, almi> Imam problem u pascalu,tj. napisao sam ovaj mali program koji otvara
> prozore tj.crta pravougaonik dok je pritisnuto dugme na mišu.Ali ako
> se miš kružno kreće ostaju zbrljovi na ekrano (dugme je pritisnuto).
Ukratko, brljotine se javljaju zato što ne sakrivaš mišji kursor za vreme
crtanja po ekranu. Pre onih reštangli treba da sakriješ miša, a posle njih
da ga vratiš.
pascal.852adzem,
Kako da proverim koji diskovi postoje u sistemu ?
Zna se da su A i C uvek tu, ali kako ispitati da li postoje i
B,D,E,... i koliki im je kapacitet ?
pascal.853drpr,
-> #849, dejanr-> dosta antivirus programa koji se startuju pri butovanju
-> računara i proveravaju checksum svih relevantnih fajlova, sa
-> posebnim osvrtom na EXE, COM, SYS... Takav bi se garant
-> bunio, mada od
Ja sam se malko time bavio i nisam imao nikakvih problema.Elem
radio sam tako što bih negde u programu imao recimo
reg:='Registration trte mrte...' a to ostaje u originalu u exe
fileu zatim bi (napravio sam kratki programčić) hendlovao taj
exe fajl kao bilo koju datoteku ,sa malim problemom u
pojavljivanju više ctrl-z u fajlu.Zatom bih trte mrte promenio
sa nečim drugim i to je bilo sve.Samo treba voditi računa da
string ostane iste dužine jer ako se to promeni program
zaglavi.Sve sam probao i pod všildom (ima na sezamu) i ništa se
nije desilo (kuc. kuc.!) a mislim i da nije trebalo da se desi
zato što program pre i posle prepravke ostaje iste dužine.
cope
pascal.854almi,
-> #851, obrenhvala puno
Mišel.
pascal.855nnedovic,
-> #852, adzem
>> Kako da proverim koji diskovi postoje u sistemu ?
>> Zna se da su A i C uvek tu, ali kako ispitati da li postoje i
>> B,D,E,... i koliki im je kapacitet ?
Za to se koristi funkcija DiskSize iz Dos junita. Sintaksa:
Function Disksize(Drive: byte): Longint;
Ako staviš za drive 0, dobiješ veličinu difolt drajva, 1 za
A:, 2 za B: itd. Ako disk ne postoji, funkcija vraća -1
pascal.856isekulovic,
-> #847, almi>> prozore tj.crta pravougaonik dok je pritisnuto dugme na mišu.Ali ako
>> se miš kružno kreće ostaju zbrljovi na ekrano (dugme je
Probaj da ugasiš miša pre crtanja (pisanja) i da ga upališ kad
završiš. Trebalo bi da onda bude sve ok, odnosno bar je meni bilo
kad sam pre jedno 2 meseca ima isti problem, zašto je tako ne pitaj
to sam otkrio metodom dodaj&izbaci.:)
ivan
ps zaboravih da kažem, nisam skinuo program tako da ne znam u kom režimu
radi, ali ja sam radio u text
pascal.857adzem,
-> #855, nnedovic> Ako staviš za drive 0, dobiješ veličinu difolt drajva,
> 1 za A:, 2 za B: itd. Ako disk ne postoji, funkcija vraća
> -1
Ako, recimo, ispitujem disk B (ili A) bez umetnute diskete, računar
će da zavrišti i tražiće da ubacim disketu. Mene zanima kako da ut-
vrdim kapacitet drajva, a ne same diskete, tu DiskSize ne daje od-
govor.
Znači pitanje je kako ispitati prisustvo diska B, bez obraćanja
disketi (da ne drči disk svaki put kad startujem program).
pascal.858d.petrovic,
-> #857, adzemĂ> Znači pitanje je kako ispitati prisustvo diska B, bez obraćanja
Ă> disketi (da ne drči disk svaki put kad startujem program).
O pacalu znam koliko i o vožnji konkorda, ali ako ne nađeš "paskalovsko
rešenje" :
INT 11H
žitaš iz registra AX, bitovi 6 i 7 su broj instaliranih flopi-disk
drajvova.
00=1
01=2
10=3
11=4
Pažnja ! Ukoliko ne postoji ni A, on će prijaviti da postoji, valjda su
računali da makina mora da ima bar jedan flopi.
Pozdrav, Dejan
pascal.860ssokorac,
-> #852, adzem ─┼┤ Kako da proverim koji diskovi postoje u sistemu ?
Možeš da ideš da proveravaš za svaki disk od c: do z: i za svaki
koji je free=-1 => ne postoji.
pascal.861dzakic,
-> #852, adzem> Kako da proverim koji diskovi postoje u sistemu ?
A kako da proverim koji je drajv SUBSTovan, ili još bolje, koji
direktoijum na kom disku on zamenjuje?
pascal.862bearboy,
-> #857, adzem║ Znači pitanje je kako ispitati prisustvo diska B, bez obraćanja
║ disketi (da ne drči disk svaki put kad startujem program).
Najlakše preko interapta.
pascal.863adzem,
-> #858, d.petrovic> INT 11H
> žitaš iz registra AX, bitovi 6 i 7 su broj instaliranih
> flopi-disk drajvova.
Danke. :)
pascal.864adzem,
-> #860, ssokorac> Možeš da ideš da proveravaš za svaki disk od c: do z: i za
> svaki koji je free=-1 => ne postoji.
To sam i radio. Problem mi je bio disk B, a rešenje za to
je dao d.petrovic.
pascal.865hacker,
Moze li neko da baci onaj CHR editor fontova ovde, thanx
pascal.866hacker,
Hmmm, ovo pitanje mozda moze i negde drugde da se postavi ali kako pisem
program u pascalu tj pokusavam da ga napisem...
Problem je u sledecoj stvari, imao sam Herculesa za koji sam napisao
procedure i f-je za rad sa pacovom, sada na VGA on ne radi a ja neznam
zasto...? Kao prvo radim u grafickom modu, pokusao sam sve jos mi je preostalo
da menjam strane na kojima prikazujem misa ali nisam siguran koja je f-ja
u dosu za to...
Help
pascal.867janko,
-> #866, hacker> Problem je u sledecoj stvari, imao sam Herculesa za koji
> sam napisao procedure i f-je za rad sa pacovom, sada na
> VGA on ne radi a ja neznam zasto...? Kao prvo radim u
> grafickom modu, pokusao sam sve jos mi je preostalo
Vozač (drajver) miša ne zna kada si u grafičkom modu na H. Zato
preračunavanje pozicija, koje vozač radi na 'normalnim' :)
grafičkim kartama daje druge podatke o položaju miša... Zatim,
na 'normalnim' kartama se drugačije i iscrtava strelica (ili
objekat koji pomeraš mišem) itd. itd. Sve u svemu, nije baš
trivijalno prepraviti program koji si naštelovao za H. jer H.
jednostavno gnjusni stranci malo uzimaju u obzir... vozači se
pišu za ono što oni zovu normalne karte :)
Savet: pročitaj ponovo dokumentaciju o interaptima koje razume
mišev 'vozač' pa rutine za miša razvijaj ispočetka...
Kada uspeš, uporedi sa onima pre, pa napiši ovde da rezime da
znamo i mi...
pascal.868skoprivica,
-> #865, hacker╠╣M oze li neko da baci onaj CHR editor fontova ovde, thanx
Vec je ovde. potrazi sa list 4 /a/t
pascal.869vitez.koja,
Je'l ima neko da zna nesto vise o procedurama Mar i Release ? Bio bih zahvalan
za objasnjenje.
pascal.870spantic,
-> #869, vitez.koja> Je'l ima neko da zna nesto vise o procedurama Mar i
> Release ? Bio bih zahvalan
Ako se dobro sećam Release briše sve dinamičke promenljive tipa ukazivač
od specificirane adrese ( Mark procedura ) pa sve do kraja heapa.
Sintaksa je: Release ( Ptr: pointer);
Dok MArk markira memorijsku lokaciju na heapu pomoću dinamičke promenljive.
Sintaksa je: Mark ( Var Ptr: pointer);
Naravno koriste se zajedno. Sumnjam da je ovo više, dakle šta te detaljnije
zanima?
pascal.871nboskovic,
-> #869, vitez.koja*> Je'l ima neko da zna nesto vise o procedurama Mar i
*> Release ? Bio bih zahvalan za objasnjenje.
Ako ti znači nešto u diru R:\IBMPC\PROGRAM imaš arhivu
TSRSRC34.ZIP u kojoj se nalaze source-ovi za te dve
funkcije u TP6 i asembleru.
(c) klap
nikola
pascal.872broker,
Radim na programu koji koristi fossil drajver za rad sa COM portom.
Drajver mi izmedju ostalog od podataka daje adresu na kojoj
počinje njegovo ime u obliku C stringa (završava sa nulom).
Da bih to pročitao upotrebio sam pointer na string i sa malo
manipulacije uspeo da pročitam sadržaj. Ali mi se zato
pojavio vrlo čudan problem....
Da bih pozivao fossil koristim jedan OBJ (napisan u
asembleru, prilagodjen TP-u) koji sadrži jednu funkciju
namenjenu da se fossilu obraćam preko nje a ne preko
interapta 14 direktno. To sve da bi se omogućio normalan rad
i pod DesqView-om i sl. sistemima. E sad.
Kad pre onog gore navedenog čitanja stringa u prg ubacim
punjenje stringa na koji pokazuje gore navedeni pointer sa
#32, prvo pozivanje funkcije iz OBJ dovodi do resetovanja računara.
Vrlo čudna okolnost je što se deo programa koji punu string i
ne izvrši, već se samo pojavi u izvršnom kodu. Kada izbacim
to punjenje stringa sa spaces sve radi OK.
Ne znam kako funkcioniše TP na tom nivou. Da li on pri
definiciji promenljive tipa string odmah odvaja memoriju za
eventualnih 255 karaktera ili naknadno, zavisno od sadržaja promenljive?
Meni sada pointer pokazuje na prazan string (dužine nula), i za
sada to radi kada u njega upisujem nekih 50-tak znakova. Da li će
raditi i ako se pojavi eventualnih 255 znakova?
Ovo mi je prvi put da koristim pointere za nešto od čega će
čak i biti koristi.....
hvala,
broker
pascal.873broker,
Još jedno pitanje za sve. Treba mi bilo kakav info na šta da
obratim pažnju kad pišem program koji treba da radi u
multitasking-u ili u nekoj mreži?
Kako da izvedem zaključavanje zapisa i celih datoteka?
Da li je to ko uopšte radio u Tp?
broker
pascal.874dzakic,
-> #872, broker> Ne znam kako funkcioniše TP na tom nivou. Da li on pri
> definiciji promenljive tipa string odmah odvaja memoriju za
> eventualnih 255 karaktera ili naknadno, zavisno od sadržaja
> promenljive?
Ako je deklarisana kao string, onda uvek odvaja 256, ako se deklariše
se "string[n]" onda n+1 bajtova jer se u prvom, odnosno nultom, članu
uvek čuva njegova dužina. žak se može i pročitati sa s[0] ako je s string.
pascal.875dzakic,
-> #873, broker> Kako da izvedem zaključavanje zapisa i celih datoteka?
Deklarišeš:
const
readonly = 0;
writeonly = 1;
readwrite = 2;
compatibility = 0;
exclusive = 16;
denywrite = 32;
denyread = 48;
permitall = 64;
i onda pre svakog reset(file) staviš recimo:
filemode:=readwrite+denywrite;
Važno je da uvek uzmeš jedan iz prve grupe i iz druge grupe.
Dakle, saopštiš šta ćeš ti (tvoj task, nod) da radiš sa
datotekom, a šta dozvoljavaš ili zabranjuješ drugima.
Takođe je važno da ako nakon reset, dobiješ ioresult=5 (ako se
dobro sećam), znači da je datoteka zauzeta od strane drugog
programa i moraš da čekaš da se ona oslobodi, povremeno
pokušavajući da je otvoriš na isti način.
Poželjno je da to ne bude previše često da se mreža ne zaguši,
već praviti neke pauzice između pokušaja. Ako sa svim tim
eksperimentišeš u DesqView-u, na jednoj mašini, moraš da
učitaš SHARE.
pascal.876kenza,
-> #869, vitez.koja [:> Je'l ima neko da zna nesto vise o procedurama Mar i
[:> Release ? Bio bih zahvalan za objasnjenje.
Ja mislim da MARK i RELEASE kada ih koristis,ne ostavljaju razne
rupe po dinamickoj memoriji(kao NEW i DISPOSE),vec izdvajaju
jedan deo dinamicke memorije od nekog mesta pa nadalje.
p.s. nemoj da koristis i RELEASE i DISPOSE u istom programu,nisu
potpuno kompatibilne
pascal.877broker,
-> #869, vitez.koja> Je'l ima neko da zna nesto vise o procedurama Mar i
> Release ? Bio bih zahvalan za objasnjenje.
Naredbom MARK (ime pointera) označiš tu lokaciju u memoriji.
Posle toga možeš da alociraš još memorije za neke druge
pointere, a sa RELEASE (ime pointera) oslobađaš svu alociranu
memoriju od trenutka kada je označena sa MARK do trenutka
kada je oslobađaš sa RELEASE.
RELEASE kao parametar ima ime istog onog pointera
upotrebljenog u MARK.
pascal.878broker,
-> #874, dzakic> Ako je deklarisana kao string, onda uvek odvaja 256,
Hvala. To mi je trebalo da neko potvrdi.
Broker
pascal.879broker,
-> #875, dzakicO zaključavanju datoteka iz TP....
Hvala na rešenju problema.
broker
pascal.880vitez.koja,
-> #876, kenza#=> p.s. nemoj da koristis i RELEASE i DISPOSE u istom
#=> programu,nisu potpuno kompatibilne
U istom programu ? ili samo da ih ne kombinujem unitar programa ? je'l
sme ovo :
new(x);
mark(y);
......
release(y);
dispose(x);
pascal.881asrdjan,
Hi
Da li neko zna kako da u TP 6.0 iskljucim i Ctrl-Break i Ctrl-C i sve ostale
kombinacije tastera koje mogu da prekinu program.
pascal.882drakce,
-> #881, asrdjan
│ Da li neko zna kako da u TP 6.0 iskljucim i Ctrl-Break i Ctrl-C
└─────
Uses Dos, Crt;
begin
SetCBreak(False);
CheckBreak:=False;
end.
pascal.883hacker,
AKO IKO IMADE UNIT ili nesto sl. za rad sa misem na VGA neka ga posalje,
jer sam prosao kroz skoro sve graficke registre kartice i nisam nista uspeo
da uradim, hvala unapred...
...
pascal.884vitez.koja,
-> #882, drakce#=> SetCBreak(False);
#=> CheckBreak:=False;
Jedan ili drugi... Moze i oba, ali ne sluzi nicemu. SetCBreak je zapravo
obezbedjivanje kompatibilnosti sa TP 3.0, dok je nov (i preporucen)
nacin kontorla promenljive CheckBreak
pascal.885drakce,
-> #884, vitez.koja
││ SetCBreak(False); CheckBreak:=False;
│└─────
│ Jedan ili drugi... Moze i oba, ali ne sluzi nicemu.
└─────
Apsolutno. Mislio sam da je to očigledno svakom ko pogleda Help, pa nisam
komentarisao. Rade istu stvar, uz malu razliku. Prva i po izlasku iz programa
ostavlja BREAK=OFF, a druga vraća staru vrednost. U svakom slučaju, u pravu
si.
Pozdrav
pascal.886goxx,
-> #883, hacker■ AKO IKO IMADE UNIT ili nesto sl. za rad sa misem na VGA neka ga posalje,
■ jer sam prosao kroz skoro sve graficke registre kartice i nisam nista
■ uspeo da uradim, hvala unapred...
Evo ja imam neki unit koji sam pisao pre dve godine. U stvari preveo
sam funkcije iz neke knjige o C-u na pascal. Unit sam samo isprobao
ali ga nisam baš koristio jer sam tada završio sa pascalom. Funkcije
za menjanje kurzora nisam preveo. U grafičkom modu vidi se strelica
kao u Windows-u. Pogledaj, unit bi mogao da Ti koristi.
Pozdrav, Goran.
mouse.zippascal.887dejanr,
-> #885, drakce>> > > SetCBreak(False); CheckBreak:=False;
>> >
>> > Jedan ili drugi... Moze i oba, ali ne sluzi nicemu.
>>
>> Apsolutno. Mislio sam da je to očigledno svakom ko pogleda Help, pa
>> nisam komentarisao. Rade istu stvar, uz malu razliku. Prva i po
>> izlasku iz programa ostavlja BREAK=OFF, a druga vraća staru vrednost.
>> U svakom slučaju, u pravu si.
Meni se čini da niste u pravu ni jedan ni drugi. Ako se dobro sećam,
SetCBreak(False) je isto što i BREAK OFF iz DOS-a, a to *ne* znači da
se Ctrl C neće testirati, nego samo znači da će se testirati jedino
pri pozivu DOS funkcija za upis/čitanje konzole, štampač i com portove,
dok BREAK ON znači da se ctrl c testira pri pozivu *bilo koje* DOS
funkcije. Znači, ako u TP programu izvršiš SetCBreak(false) pa posle
pozoveš bilo koju funkciju sa prethodnog spiska (Turbo Pascal može
pisati na ekran i preko DOS-a, i preko BIOS-a, i direktno zavisi kako
korisnik reši), program će biti prekinut. Nisam probao pa ne mogu baš
da budem siguran, ali mislim da je otprilike tako.
Dakle, za onemogućavanje Ctrl C treba koristiti checkbreak:=false
pascal.888drakce,
-> #887, dejanr
│││ SetCBreak(False); CheckBreak:=False;
││└─────
││ Rade istu stvar, uz malu razliku. Prva i po izlasku iz programa ostavlja
│└─────
│ Dakle, za onemogućavanje Ctrl C treba koristiti checkbreak:=false
└─────
Nećeš mi verovati, u pravu si :). Probao sam da dok u petlji pišem po ekranu,
prekinem program i sa SetCBreak sam uspeo, dok sam na CheckBreak morao da
sačekam kraj. Mada se i tome može doskočiti. Ima jedno crveno dugmence ... :)
Pozdrav
pascal.889hacker,
-> #886, goxxZahvaljujem, sacu da ga pogledam, NAJVECI biser je sledeci
pisanje programa sa misem mi je postala prava nocna mora od kada imam
vga "????" sada sam uspeo da "izvucem" misa na 640x350 i ispod ali s tim
da mi je ekran "povecen" u levo, tako da ni nasta ne lici!
pascal.890bulaja,
**** new file ****
\ibmpc\program
tpfast40.arj
Skup brzih funkcija za Turbo Pascal 6.0 (ASM source)
TPFAST 4.0 ('FAST Turbo Pascal library') je zbirka raznih funkcija za Turbo
Pascal 6.0 (ili druge verzije). Pisane su u asembleru i trebalo bi da rade
dosta brzo, a dat je i .ASM izvorni kod. Funkcije obuhvataju sledece oblasti:
manipulacija sa bit-ovima, datotekama, grafikom & crt, tastaturom, ekranom i
stringovima.
pascal.891mjova,
-> #889, hacker> vga "????" sada sam uspeo da "izvucem" misa na 640x350 i
> ispod ali s tim da mi je ekran "povecen" u levo, tako da
> ni nasta ne lici!
koliko sam primetio, moraćeš sam da napišeš rutine za rad sa kurzorom.
treba da isključiš interni kurzor koji obezbeđuje pacov driver, a onda
sam da raiš preko event rutine. upravo sam tako rešio problem
pojavljivanja kurzora u svim rezolucijama, a i druge prednosti se mogu
primetiti. pogledaj funkcije 0x0c, 0x14 i 0x18.
na ovaj način pacov driver koristiš samo za LL rutine: status tastera
i relativan pomeraj u pixelima.
pascal.892ssokorac,
Kako u tp-u mogu da dobijem .obj fajl?
pascal.893dejanr,
-> #892, ssokorac>> Kako u tp-u mogu da dobijem .obj fajl?
Nema načina :(
pascal.894bojanp,
-> #892, ssokorac> Kako u tp-u mogu da dobijem .obj fajl?
Ako si mislio da prevođenjem izvornog koda kompajlerom dobiješ
.obj onda je odgovor, na žalost, nikako. To je, koliko je meni
poznato jedna od najviše kritikovanih stvari kod tp-a. Postoji
neki program koji .tpu konvertuje u .asm ili .obj, ali je on pisan
za ranije verzije tp-a, a i predviđen je samo kao mogućnost da se
delovi programa pisani u tp-u linkuju s programima pisanim u Turbo
Prologu.
Pozdrav, Bojan
pascal.895dejanr,
Izgleda da je izašao Turbo Pascal 7.0. Zna li neko nešto više o njemu
od ovoga:
==========
borland/turbo.pascal #6456, from abailey, 326 chars, Fri Oct 30 18:25:54 1992
Comment(s).
----------
TITLE: BORLAND PASCAL 7.0
If you haven't heard BORLAND Pascal 7.0 has just been
released. Be nice if Borland would let it's conferences know. I
found out through the grapevine, which to be fair has a faster
than light propagation rate. :)
To order 1-800-252-5547 24hrs, 7 days a week.
Further details I know not.
>>>ALB<<<
==========
borland/turbo.pascal #6457, from larryjudy, 172 chars, Fri Oct 30 21:11:49 1992
Comment to 6456. Comment(s).
----------
Funny you should mention that. I got a postcard announcing the Borland Pascal
7 in the mail today. Other than the number you posted, there is NO more on
the card.
--Larry
==========
borland/turbo.pascal #6458, from abailey, 161 chars, Fri Oct 30 22:11:26 1992
Comment to 6457. More refs to 6457.
----------
One reason I blink through Borland is to get the latest greatest
about new products. It's frustrating to find that the US Snail
has beaten E-Mail. :[
>>>ALB<<<
==========
borland/turbo.pascal #6459, from wobrien, 85 chars, Sat Oct 31 05:09:07 1992
Comment to 6457. Comment(s).
----------
If you got the same card I did it says that more information is
coming in a few days
==========
borland/turbo.pascal #6460, from bhofkin, 490 chars, Sat Oct 31 11:04:04 1992
Comment to 6459.
----------
I got that post card yesterday, too, and started to wonder how much it
raised the cost of the upgrade. A few black thoughts crossed my mind
about how things have changed since I put TP 1 on my CP/M box.
This morning I called: the upgrade is $149.95, and we should see the
detailed letter in about a week. The card says this is a 70% discount,
so list price looks like $499.95. More black thoughts wishing *MY*
salary had increased anything like an order of magnitude in a decade.
--Bob
pascal.896hacker,
-> #886, goxxBi li pojasnio kako to da uradim? To vec neznam ( da li mislis da pisem
novi drajver za pacova ili sta? Kako se iskljucuje interni mis i sl.)
Da li mozda mogu da pomognu one EGA funkcije koje su objasnjene u MIS.NG
koje koriste registre adaptera...?
Danke...