PCPROG.6

25 Sep 1995 - 24 Dec 1999

Topics

  1. algoritmi (449)
  2. baze.podataka (309)
  3. ms.dos (17)
  4. windows (294)
  5. asembler (553)
  6. basic (458)
  7. jezici (42)
  8. pascal (1297)
  9. cccc (522)
  10. cpp (299)
  11. clipper (601)
  12. fox (70)
  13. cavo (14)
  14. delphi (1130)
  15. java (100)
  16. razno (776)
  17. unknown (127)

Messages - pascal

pascal.104 postmast,
From: danijel.nadj@panon.ns.ac.yu (Danijel Nadj) Subject: Re: Sifre Date: Sat, 21 Oct 1995 17:05:00 GMT ŠIn room number 134 we saw patient SRDJAN DAKIC hitting the Šdoor with his head, and talking to Danijel Nadj about Sifre. SD>CONST SD> C = 'zxcvbnmasdfghjklqwertyuiop1234567890'; SD>VAR SD> I : INTEGER; SD> S : STRING; SD>BEGIN SD> S := ''; SD> Randomize(); SD> FOR I := 1 TO Len DO SD> S := S + C[Random(Length(C))+1]; SD>Jobrati paznju na ono CONST... to ti zamenjuje (izmedju ostalog i) SD>onolike IF-ove. A i flexibilnije je jer mozes da prosirujes spisak SD>mogucih znakova u sifri prostim navodjenjem u "tabelu" znakova, odnosno SD>string C. Te informiram da je odbijalo da radi, sve dok nisam batalio ono const i deklarisao C kao string... ... "Why, then, the world's mine oyster which I with sword will open." danijel.nadj@panon.ns.ac.yu FIDO:2:382/103 --- ■ SPEED 2.00 [NR] ■
pascal.105 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: Sifre Date: Sat, 21 Oct 1995 18:47:00 GMT DN> SD>CONST DN> SD> C = 'zxcvbnmasdfghjklqwertyuiop1234567890'; DN> SD> S := S + C[Random(Length(C))+1]; DN> Te informiram da je odbijalo da radi, sve dok nisam batalio ono const i DN> deklarisao C kao string... ?!@!# Sta ti javlja kad nece da radi, posto ne moz da ne radi :) ¸> ... Does the name "Pavlov" ring a bell? * ŰmÔ/\/\× 1.3 #00 *
pascal.106 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: pascal Date: Sun, 22 Oct 1995 12:54:00 GMT --> "Dejan Ristanovic" <dejanr@sezam.UUCP> DE> Pa da, ali i Win95 radi pod FAT-om. Sto je najlepse, komandom DIR se DE> dobija broj, znaci da postoji poziv kojim se cita. Ne mora da znaci, podatak se moze procitati iz odredjenog polja BOOT sektora. Igrao sam se pravljenjem nekih drajvera (simulatoria) diskova i dosao do zakljucka da se sa DIR obavezno cita BOOT sektor (sa diska ili iz memorije) i analizira. ¸> "If nick-nacks ruled the world!" -- Joel Robinson * ŰmÔ/\/\× 1.3 #00 *
pascal.107 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: pascal Date: Sun, 22 Oct 1995 13:02:00 GMT --> "Blagoje Ceklic" <atech@sezam.UUCP> AT> INT 21,69 - Get/Set Disk Serial Number (Undocumented DOS 4+) AT> Mozda je zanimljivo napomenuti da se ovaj broj formira pri formatiranju AT> harda na osnovu aktuelnog datuma i vremena. ... sto mu daje "randomize" osobinu. AT> Ovaj tip zastite je i previse banalan za svakog ko se i malo razume AT> u programiranje a da ne govorim za nesto 'naprednije' tako da bi AT> onaj procenat 99% ipak smanjio na nekih 30%. Ja smatram najboljom zastitom flashujuce magenta na zelenom "UNREGISTERED" ili jos bolje "Ovaj program je registrovan za Miku". Naravno, jos bolje je ako si u mogucnosti da stupis u (full) kontakt sa korisnikom neregistrovane ili ukradene verzije programa. ;) ¸> All recipes require at least one extra trip to the store. * ŰmÔ/\/\× 1.3 #00 *
pascal.108 konem,
Ima li iko Window.tpu fajl ? Trebao bi mi,pa ako se neko sretne s'tim fajlom neka mi ga posalje. Hvala unapred...
pascal.109 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Serijski broj diska Date: Mon, 23 Oct 1995 09:30:00 GMT >>Srdjane ono ne radi (cf = 1, ah=2 BAD ADRESS MARK, al=7 INVALID MEDIA TYPE)! >>Mislim da je problem u CX-u (onaj DX:BX je bio moj lapsus). >> DS:BX = pointer to data buffer >>----> = pointer to control block (DOS 4.x+, see below) Ne mora se nista puniti. Mislim da je to ostavljeno kao opcija za verzije 4.0+ Ja na mojoj 6.0 nisam imao nikakvih problema da uradim sledece: PROCEDURE AbsRead(Disk:BYTE; Count:WORD; Start:WORD; VAR Buffer); ASSEMBLER; ASM MOV AL,Disk MOV CX,Count MOV DX,Start (* Krece se od 0 --> 0 == BOOT sektor *) PUSH DS LDS BX,Buffer (* <-- Ovde obrati paznju da li radi ispravno *) INT 25h ADD SP,2 (* Ovo je VRLO bitno i mora i posle INT 26 *) POP DS (* jer DOS ostavlja jednu rec na steku posle *) END; (* poziva ?! *) Verovatno je krahiralo zbog nedostatka onog regenerisanja steka. ¸> I've never been at a siege before. * ŰmÔ/\/\× 1.3 #00 *
pascal.110 postmast,
From: pedja.ulic@panon.ns.ac.yu (Pedja Ulic) Subject: Re: Serijski broj diska Date: Tue, 24 Oct 1995 11:14:00 GMT SD> Verovatno je krahiralo zbog nedostatka onog regenerisanja steka. Sada ne puca, ali i dalje imam isti problem. Za oba floppy-ja stvar radi OK, ali za HD jok! Uporno vraca cf=1 i u AL=7 i AH=2 (INVALID MEDIA TYPE !),a to se jako slaze sa onim sto pise o DOS-u 4.x. Cudi me da kod tebe to radi (da li si probao?),i ako radi sa kojim parametrima zoves proceduru (ako sam ja nesto banalno prevideo). ... Great INQUISITOR is coming for YOU ___ Blue Wave/QWK v2.12
pascal.111 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: Sifre Date: Mon, 23 Oct 1995 09:57:00 GMT DN> Randomize(); DN> Smetaju mu zagrade, bude ok kad ih obrisem... Dobro, to i nije neka greska. Pisalo se napamet. ;) DN> S := S + C[Random(Length(C))+1]; DN> """"""""""""""""""""" DN> Ovde prijavi neku gresku, ne secam se bas tacno koju... String je po definiciji niz znakova pa se njemu i moze pristupati na pomenuti nacin. C[0] je duzina stringa. Na primer: VAR S: STRING; ... S = 'Dale Car'; FOR I := 1 TO S[0] DO WriteLn(S[I]); Zato i ne znam zasto nece da radi. ¸> Look into my eyes, you'll see I'm not lying, emotion No. 13 easy ¸> crying * ŰmÔ/\/\× 1.3 #00 *
pascal.112 postmast,
From: vlado@galeb.etf.bg.ac.yu (Vladimir Popovic) Subject: DELPHI Problemcxicyi Date: Tue, 24 Oct 1995 07:53:49 GMT Zdravo narode !!! Da li neko zna kako se iz DELPHIJA mogu pozivati DOS-ovi interapti!!! Konkretno je problem oko Novelovih prekida, a ja ne znam kako da pisem u Delphijevom assembleru. Ono nije da ga u Delphiju nema ali ja do sad nisam uspio da pozovem niti jedan prekid. Pomagajte ljudi ko boga vas molim !!! :) Vladimir Popovic UMNet Podgorica
pascal.113 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: Problem Date: Mon, 23 Oct 1995 22:59:00 GMT --> broker@setnet.co.yu (Predrag Supurovic) PS> Nasao sam sintaksu kojom mogu da prosledjujem funkcije kao parametre, PS> ali nikako ne mogu da resim problem prosledjivanja samo tipa podataka. Funkcija je nesto konkretno i ti mozes da prosledjujes nju (odnosno njenu adresu) kao parametar jer ona zivi negde u memoriji. Tip je nesto apstraktno i ne mozes raditi nista sa njim, osim objektima davati osobine. PS> Hteo bih da ovaj objekat prepravim tako da mu pri inicijalizaciji PS> kao parametar prosledim strukturu podataka koje zelim u listi, tako PS> da mi bude univerzalan. Cisto sumnjam da ovo mozes da izvedes bez nekih zestokih mahinacija sa pointerima koje bi ti, BTW, unakazile source TPU-a koji radi. ¸> Its swell for tearing up fragile ecosystems! Watch! * ŰmÔ/\/\× 1.3 #00 *
pascal.114 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: Serijski broj diska Date: Mon, 23 Oct 1995 23:18:00 GMT PU> Za oba floppy-ja stvar radi OK, ali za HD jok! PU> Cudi me da kod tebe to radi (da li si probao?),i ako radi sa kojim PU> parametrima zoves proceduru (ako sam ja nesto banalno prevideo). Zaista ne znam sta kod tebe nije u redu, ali kod mene radi i sa diskom A i sa B i sa C i sa D, a sa E kojeg nemam javlja gresku. .MODEL TINY .CODE ORG 100h Start: mov al,2 ; 0=A:, 1=B:, 2=C:, .... mov cx,1 ; Procitaj jedan sektor mov dx,0 ; Kreni od nultog (boot) lea bx,Buffer ; i upisi u [DS:]BX int 25h add sp,2 ret Buffer: DB 512 DUP (0) END Start Ovo radi, samo ga treba ubaciti u Pascal. ¸> He seized the moment but found he had no place to put it. * ŰmÔ/\/\× 1.3 #00 *
pascal.115 postmast,
From: danijel.nadj@panon.ns.ac.yu (Danijel Nadj) Subject: Re: Sifre Date: Tue, 24 Oct 1995 14:40:00 GMT ŠIn room number 134 we saw patient SRDJAN DAKIC hitting the Šdoor with his head, and talking to Danijel Nadj about Sifre. SD>Zato i ne znam zasto nece da radi. Ovako radi ti si napisao CONST c='zxcvb....' ... Harpo of Borg - "Honk! Honk!" danijel.nadj@panon.ns.ac.yu FIDO:2:382/103 --- ■ SPEED 2.00 [NR] ■
pascal.116 postmast,
From: rdejan@fon (Dejan Rudic) Subject: Re: Sifre Date: Wed, 25 Oct 1995 06:31:09 GMT DN> S := S + C[Random(Length(C))+1]; DN> """"""""""""""""""""" DN> Ovde prijavi neku gresku, ne secam se bas tacno koju... Sr> Zato i ne znam zasto nece da radi. Mislio sam da je neko vec odgovorio, ali posto nije: broj x u C[x] mora biti integer (jer, koji bi bio 2.464-ti znak iz tog stringa?), a funkcija Random daje real promenljivu. Ono sto mislim da ti treba je: S := S + C[Round(Random(Length(C)))+1]; (ili varijacije :). Pozdrav, Dejan --- ■ Blue Wave/QWK v2.20 [NR] ■
pascal.117 postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic) Subject: Re: DiskSN-Windows? Date: Wed, 25 Oct 1995 11:43:32 GMT Srdjan Dakic je napisao: >> Mislim - znaci postojim, da TP nema funkciju koja radi absread, ali >> je trivijalno napisati je uz pomoc asm direktivice. >> >> PU> BIOS poziv INT13,2 ne koristim jer ne znam kako se >> PU> ponasa sa LBA diskovima (a i to je read kojem moram da prosledjujem >> PU> logicke parametre koji se razlikuju od diska do diska). >> >> To ti je dobar rezon. Da se ne bi petljao sa tabelom particija i da >> odredjujes gde je prvi LOGICKI sektor. Za razliku od DOS-a, BIOS-u >> saljes FIZICKE parametre koji kazu 'procitaj mi sa tog sektora na >> tom cilindru, tom glavom, to i to' Evo vam kompletan source funkcija absread i abswrite iz Run-Time biblioteke za Borland C++ 3.1 . Valjda su dovoljno istestirane i pouzdane kad ih Borland koristi. absread bez problema radi po obicnim DOS-om (normalno), pod DOS prozorom pod Win3.11, i u DOS sesiji pod OS/2 ako se pristupa FAT particiji. Program ne radi u OS/2 DOS sesiji ako se pokusa citanje sa HPFS particije. abswrite nisam probao, ali je blizu pameti da ni Win3.11 ni OS/2 nece dozvoliti brljanje po disku. Pod Win95 nisam probao, iz prostog razloga sto ga jos nisam instalirao (a ka' i dal' cu ne znam). parametar drive: 0-a:, 1-b:, 2-c: itd. /*--------------------------------------------------------------------------- * filename - absread.cas * * function(s) * absread - absolute disk read * abswrite - absolute disk write *--------------------------------------------------------------------------*/ /* * C/C++ Run Time Library - Version 5.0 * * Copyright (c) 1987, 1992 by Borland International * All Rights Reserved. * */ #pragma inline #include <asmrules.h> #include <dos.h> #include <errno.h> static int big_partition( int driveno ) { static int old_driveno = -1, old_partition; struct fatinfo p; if( driveno != old_driveno ) /* try to avoid disk reads if possible */ { old_driveno = driveno; getfat( driveno+1, &p ); old_partition = ((unsigned long)p.fi_sclus * p.fi_nclus) > 0xFFFF ? 1 : 0; } return( old_partition ); } /*--------------------------------------------------------------------------* Name absread - absolute disk read Usage int absread(int drive, int nsects, long sectno, void *buffer); Prototype in dos.h Description reads specific disk sectors via DOS interrupt 0x25 Return value If successful, 0 On error, -1 and errno set to the value returned in AX. *---------------------------------------------------------------------------*/ int absread(int drive, int nsects, long lsect, void *buffer) { SaveSI SaveDI pushDS_ if( big_partition( drive ) ) { asm mov al,drive asm push ss asm pop ds asm sub sp,10 asm mov bx,sp asm mov dx,word ptr lsect asm mov word ptr [bx],dx asm mov dx,word ptr lsect+2 asm mov word ptr [bx+2],dx asm mov cx,nsects asm mov word ptr [bx+4],cx asm mov dx,word ptr buffer asm mov word ptr [bx+6],dx #if (LDATA) asm mov dx,word ptr buffer+2 asm mov word ptr [bx+8],dx #else asm mov word ptr [bx+8],ds #endif asm mov cx,-1 asm int 25h asm sbb cx,cx asm add sp,10 } else { asm mov al,drive asm mov cx,nsects asm mov dx,lsect asm LDS_ bx,buffer asm int 25h asm sbb cx,cx } asm pop bx /* clear old flags */ popDS_ asm jcxz absOK #if defined(__HUGE__) asm mov bx,seg errno asm mov es,bx asm mov es:errno,ax #else asm mov errno,ax #endif return(-1); absOK: return(0); } /*--------------------------------------------------------------------------* Name abswrite - absolute disk write Usage int abswrite(int drive, int nsects, long sectno, void *buffer); Prototype in dos.h Description writes specific disk sectors via DOS interrupt 0x26 Return value If successful, 0 On error, -1 and errno set to the value returned in AX. *---------------------------------------------------------------------------*/ int abswrite(int drive, int nsects, long lsect, void *buffer) { SaveSI SaveDI pushDS_ if( big_partition( drive ) ) { asm mov al,drive asm push ss asm pop ds asm sub sp,10 asm mov bx,sp asm mov dx,word ptr lsect asm mov word ptr [bx],dx asm mov dx,word ptr lsect+2 asm mov word ptr [bx+2],dx asm mov cx,nsects asm mov word ptr [bx+4],cx asm mov dx,word ptr buffer asm mov word ptr [bx+6],dx #if (LDATA) asm mov dx,word ptr buffer+2 asm mov word ptr [bx+8],dx #else asm mov word ptr [bx+8],ds #endif asm mov cx,-1 asm int 26h asm sbb cx,cx asm add sp,10 } else { asm mov al,drive asm mov cx,nsects asm mov dx,lsect asm LDS_ bx,buffer asm int 26h asm sbb cx,cx } asm pop bx /* clear old flags */ popDS_ asm jcxz absOK #if defined(__HUGE__) asm mov bx,seg errno asm mov es,bx asm mov es:errno,ax #else asm mov errno,ax #endif return(-1); absOK: return(0); }
pascal.118 postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic) Subject: Re: DiskSN-Windows? Date: Wed, 25 Oct 1995 11:53:28 GMT Ivica Nikolic je napisao: >> >> Evo vam kompletan source funkcija absread i abswrite iz Run-Time >> biblioteke za Borland C++ 3.1 . Valjda su dovoljno istestirane i pouzdane >> kad ih Borland koristi. Sad primetih da se u prvoj funkciji koristi funkcija getfat, koja je u drugom sors fajlu. Nista zato, poslacu i nju cim prije.
pascal.119 postmast,
From: root@kiza.fon.bg.ac.yu (root) Subject: Proba Date: Tue, 24 Oct 1995 20:42:25 GMT Izvinjavam se zbog slanja ove poruke, ali u pitanju je proba NEWS paketa preko UUCP-a.
pascal.120 postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic) Subject: Re: DiskSN-Windows? Date: Thu, 26 Oct 1995 11:23:06 GMT Evo i sorsa funkcije getfat. U komentarima je i definicija strukture fatinfo, koja se koristi u jednoj od funkcija. /*--------------------------------------------------------------------------- * filename - getfat.cas * * function(s) * getfatd - gets file-allocation table information * getfat - gets file-allocation table information * getdfree - gets disk free space *--------------------------------------------------------------------------*/ /* * C/C++ Run Time Library - Version 5.0 * * Copyright (c) 1987, 1992 by Borland International * All Rights Reserved. * */ #pragma inline #include <dos.h> #include <dir.h> /*--------------------------------------------------------------------------* Name getfatd - gets file-allocation table information Usage #include <dos.h> void getfatd(struct fatinfo *fatblkp); Prototype in dos.h Description see getfat *---------------------------------------------------------------------------*/ void getfatd(struct fatinfo *dtable) { getfat(0, dtable); } /*--------------------------------------------------------------------------* Name getfat - gets file-allocation table information Usage #include <dos.h> void getfat(unsigned char drive, struct fatinfo *fatblkp); Related functions usage void getfatd(struct fatinfo *fatblkp); Prototype in dos.h Description getfat returns information from the file-allocation table for the drive specified by drive (0 = default, 1 = A:, 2 = B:, etc.). fatblkp points to the fatinfo structure to be filled in. getfatd performs the same function as getfat except that the default drive (0) is always used. The fatinfo structure filled in by getfat and getfatd is defined as follows: struct fatinfo { char fi_sclus; (* Sectors per cluster *) char fi_fatid; (* The FAT id byte *) int fi_nclus; (* Number of clusters *) int fi_bysec; (* Bytes per sector *) }; *---------------------------------------------------------------------------*/ void getfat(unsigned char drive, struct fatinfo *dtable) { #if !defined(__HUGE__) asm push ds #endif asm mov ah, 01ch asm mov dl, drive asm int 021h asm mov ah, [bx] #if !defined(__HUGE__) asm pop ds #endif ((int *)dtable)[0] = _AX; ((int *)dtable)[1] = _DX; ((int *)dtable)[2] = _CX; } /*--------------------------------------------------------------------------* Name getdfree - gets disk free space Usage #include <dos.h> void getdfree(int drive, struct dfree *dfreep); Prototype in dos.h Description accepts a drive specifier in drive (0 = default, 1 = A, etc.) and fills in the dfree structure pointed to by dfreep with disk characteristics. The dfree structure is defined as follows: struct dfree { unsigned df_avail; (* Available clusters *) unsigned df_total; (* Total clusters *) unsigned df_bsec; (* Bytes per sector *) unsigned df_sclus; (* Sectors per cluster *) }; Return value Nothing. In the event of an error, df_sclus in the dfree structure is set to -1. *---------------------------------------------------------------------------*/ void getdfree(unsigned char drive, struct dfree *dtable) { int i; asm mov ah, 036h asm mov dl, drive asm int 021h i = _BX; ((int *)dtable)[3] = _AX; ((int *)dtable)[0] = i; ((int *)dtable)[1] = _DX; ((int *)dtable)[2] = _CX; }
pascal.121 postmast,
From: Ognen.Spiroski%f132.n108.z38@setnet.setnet.co.yu (Ognen Spiroski) Subject: pascal Date: Sun, 22 Oct 1995 16:50:00 SDĆ Moze on da peva i iz GWBASIC-a ili FORTRANA 77 ;) Moze :)) imam jedan proggy za jedan mali TERM za modem u GWBASIC ;)) Inace nisam ga ja napravio ali nema veze .. ako ga nadjem mail-ovacu ga ;) SDĆ Problem je u kvalitetnim rutinama za komunikaciju, a ne u okruzenju SDĆ u kome se iste nalaze. Sto se tice pascala, PCL fino radi posao. huuh.. Kako da nateram PCL da vidi dali ima CONNECT ????? sa modema a da ako nema ne ubrlja sve.. on radi na ovom principu : citaj char sa modema (prvi char) i uporedi ga sa prvom iz dadenog stringa (na pr. prvi od CONNECT je 'C'). Ako su jednaki produzi sa citanjem i sporedivanjem, a ako nisu jednaki .. otisla ti je sansa da procitas sta si dobio sa modema ;))) Ja sam hteo da dobijene karaktere stavim u string[80] odn. da sacuvam poslednu liniju pa da proverim dali ima to sto trazim. Na zalost nisam ni se mrdnuo :)) 0GZy * 0Gi'S eDiT0R * This tagline is umop apisdn * Origin: SETNet: ĆMemory Master BBS +389/91-164-877ž SKOPJE (38:108/132)
pascal.122 postmast,
From: Ognen.Spiroski%f132.n108.z38@setnet.setnet.co.yu (Ognen Spiroski) Subject: Re: pascal Date: Sun, 22 Oct 1995 16:53:00 MSĆ *** QUOTE : Srdjan Dakic *** SD> BTW, registracija je trivijalna ;) (ako te zanima) Zanima mene SD> pa me se sjeti u mail ili ovdje ... :)) mada ova purka ide do tebe preko jedan reply do tebe i ja sam zainteresovan za registraciju ;)) 0GZy * 0Gi'S eDiT0R * Romanija e poznata po toa sto ne se granici so Brazil! * Origin: SETNet: ĆMemory Master BBS +389/91-164-877ž SKOPJE (38:108/132)
pascal.123 postmast,
From: Ognen.Spiroski%f132.n108.z38@setnet.setnet.co.yu (Ognen Spiroski) Subject: Font na stampacu Date: Tue, 24 Oct 1995 17:18:00 PR> Mislio sam ovako u globalu. Po kom principu se to radi:) BCĆ Ja sam se jednom namucio da uradim isto zato sto mi je na BCĆ stamacu (po defaultu) bio iskljucen DLL (DownLineLoading) da bi mu se BCĆ (u ovom slucaju za 3K) povecao bafer. BCĆ Napravio sam programce koje mom stampacu salje ekranski font (ma BCĆ kakav da je). Fino za devetopince. Moze li da posaljes to programce ?? ako nije predugacko, course of ! 0GZy * 0Gi'S eDiT0R * Press any key to continue or any other key to quit * Origin: SETNet: ĆMemory Master BBS +389/91-164-877ž SKOPJE (38:108/132)
pascal.124 postmast,
From: Jovan.Mudrinic%f118.n111.z38@setnet.setnet.co.yu (Jovan Mudrinic) Subject: Dinamicke metode Date: Wed, 25 Oct 1995 08:15:52 Molio bih nekoga da mi objasni kako se koriste virtuelne metode(objektno programiranje). Unapred hvala. * Origin: SETNet-ICM Digital BBS * Subotica * (024)21-342 * (38:111/118)
pascal.125 postmast,
From: Nikola.Vukelic%f140.n103.z38@setnet.setnet.co.yu (Nikola Vukelic) Subject: Pascal Date: Tue, 24 Oct 1995 23:04:00 "M> Kopali smo po SDK i DDK, ali nigde odgovarajuceg API-ja za slicne "M> informacije. Izgleda da Win95 prilicno "maskira" hardver za direktni "M> pristup, a tek NT... Kako da koristim DOS programe za formatiranje disketa, posto Win95 u potpunosti zabranjuje pristup boot sektorima disketa (cak ni virus killeri ne mogu da prodju). pozdrav, Nidza (nidza.fon.fon.bg.ac.yu) ... To UNSCREW the girl! How does it look like?!?? * Origin: Pingvin BBS, Beograd == 606-928 & 674-262 == SETNet: (38:103/140)
pascal.126 postmast,
From: Sasa.Sekulic%f110.n103.z38@setnet.setnet.co.yu (Sasa Sekulic) Subject: Font na stampacu Date: Fri, 27 Oct 1995 01:38:04 BC> Das mu ESC sekvencu u cijem se zaglavlju nalazi broj karaktera BC> koji saljes i posle bitmapiran izgled. BC> Ja sam se jednom namucio da uradim isto zato sto mi je na BC> stamacu (po defaultu) bio iskljucen DLL (DownLineLoading) da bi mu BC> se (u ovom slucaju za 3K) povecao bafer. BC> Napravio sam programce koje mom stampacu salje ekranski font BC> (ma kakav da je). Fino za devetopince. Jel' bi mogao to negdje da UL-ujes, posto bi mi trebalo takvo sto. BTW, koliko karaktera moze da se definise na LX-400; otkad su presli na ove nove prirucnike, vise ne mogu da saznam ni koliki je bafer... :~( mad.max ... Is there anybody out there?.. * Origin: # New Age # 22-08h # Beograd # SETNet: (38:103/110)
pascal.127 postmast,
From: Dragoljub.Pilipovic%p1.f135.n135.z38@setnet.setnet.co.yu (Dragoljub Pilipovic) Subject: Ima li ikog? Date: Wed, 25 Oct 1995 02:34:03 Je li u ovoj konferenciji se ista pise! Milim odgovor? Pozdrav, OLUJA ... ebius tagline. This is a moebius tagline. This is a mo ... * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.128 postmast,
From: Miroslav.Minovic%f133.n103.z38@setnet.setnet.co.yu (Miroslav Minovic) Subject: Knjiga za objektni TP4Win Date: Tue, 24 Oct 1995 04:03:00 Hi:) Moze li neko da mi preporuci knjigu iz koje cu moci da naucim objektno programiranje u Turbo Paskalu za Windows. Pozdrav, Mindza. P.S.Ideju objektnog programiranja sam savladao,treba mi kako se to prakticno radi(sintaksa). ... ARRRRRGGGHHH!!!! ... Tension breaker, had to be done. * Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.129 evlad, -> #126, postmast
<> koliko karaktera moze da se definise na LX-400; otkad su presli na ove <> nove možeš predefinisati samo 6 karaktera za draft ili nlq. isto kao i kod LX-800 :) ne sećam se tačno koji su to bili mislim da je ascii <, >, ...
pascal.130 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: Problem - zamena stringova Date: Sun, 29 Oct 1995 00:12:17 Imam jedan zanimljiv problem. Pokusavam da napisem funkciju koja ce mi zameniti odredjeni niz karaktera drugim. Posebnost je u tome sto se u nizu karaktera traze tri podniza i svaki zamenjuje sebi odgovarajucim. Ukratko definicija funkcije ide ovako: type spectip = record a : string; b : string; c : string; end; Procedure Zamena (var pocetak : pointer; var duzina : word; trazi, zameni : spectip); <pocetak> je pokazivac na memoriju popunjenu podacima, a <duzina> je duzina podatka u bajtovima koja ne moze preci 64k. <trazi> su podaci koje treba naci u memoriji, a <zameni> su odgovarajuci nizovi kojima se nadjeni zamenjuju. Zamenjuje se svako pojavljivanje niza trazi.a sa zameni.a, trazi.b sa zameni.b i trazi.c sa zameni.c Problem je u tome sto unapred nije poznata duzina stringova koji se dobijaju u <trazi> i <zameni> i sto se memorija pretrazuje za tri stringa. Izlomih male sive celije i nikako da izmozgam dobro resenje. Najvise mi muke zadaje to sto duzina izlaznog podatka nije poznata pre pocetka zamene i moze da bude i mnogo veca od pocetne, a to lako moze da izadje iz ogranicenja od 64k po bloku. :( ... Necu da budem clan nikakve mafije. * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.131 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: Dinamicke metode Date: Sun, 29 Oct 1995 00:09:00 GMT -> Jovan Mudrinic JM> Molio bih nekoga da mi objasni kako se koriste virtuelne metode(objektno JM> programiranje). Imas objekt X sa metodom A. Njega nasledi objekt Y. Kada pozoves Y.A izvrsava se X.A. Pa i ako pozoves A (ne Y.A) iz nekih drugih metoda iz Y, izvrsava se X.A. Da bi objekti iz Y pozivali 'njegov' A bez eksplicitnog oznacavanja Y.A, potrebno je staviti virtual iza deklaracije. Virtuelne metode nisu pojam poput recimo funkcije WriteLn pa da se objasne u tri reda za cega sluze i kako se koriste. One spadaju u jednu od najvaznijih karakteristika objektno-orijentisanog stila programiranja i ima dosta toga da se pise i procita. Relativno je dobro opisano u knjizi Duska Savica 'Turbo Pascal - naredbe i objekti', a mozes i da sacekas odgovarajucu epizodu Sage o OOP u Prog konferenciji. Pozdrav :) ¸> I'm aware of the risks, Ensign -- Picard * ŰmÔ/\/\× 1.3 #00 *
pascal.132 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: pascal 1/2 Date: Sun, 29 Oct 1995 01:00:00 GMT -> Ognen Spiroski OS> huuh.. Kako da nateram PCL da vidi dali ima CONNECT ????? sa modema a da OS> nema ne ubrlja sve.. on radi na ovom principu : citaj char sa modema (prvi OS> ) i uporedi ga sa prvom iz dadenog stringa (na pr. prvi od CONNECT je 'C'). OS> su jednaki produzi sa citanjem i sporedivanjem, a ako nisu jednaki .. otis OS> i je sansa da procitas sta si dobio sa modema ;))) Ovo je jedan deo programa koji se izvrsava u petlji sve dok se konektuje ili ne ESC-apeuje. if DialingStarted then begin (***** * proveri da li je tu carrier, ako je tu odsviraj malo i izadji *****) if SioDCD(Port)>0 then if Connected then begin WriteLastAttemptMessage(atCONNECTED); while not KeyPressed do for i := 1 to 5 do begin Sound(i*200); Delay(150); end; NoSound; EndModal(cmCONNECT); Exit; end; (***** * nema carriera, odbrojavaj sekunde do kraja, pauziraj i zovi ponovo *****) UpdateTime; if RedialTimeLeft<0 then begin StopDialing; Clear; WriteLastAttemptMessage(atTIME_ELAPSED); Pause; RedialNumber; end; end SioDCD(Port) ocitava da li ima Carrier Detected na zadatom portu. Tebe zanima ovo: function Connected : boolean; begin Connected := WaitFor(Port,ConnectString); end; A i sledecih nekoliko f-ja blago modifikovanih od strane mene: (*********************************************) (* *) (* Talks to your modem. Called by TERM.PAS *) (* *) (* This program is donated to the Public *) (* Domain by MarshallSoft Computing, Inc. *) (* It is provided as an example of the use *) (* of the Personal Communications Library. *) (* *) (*********************************************) {$X+} unit ModemIO; interface type String80 = String[80]; procedure SendTo( Port:Integer; ThisString:String80); function WaitFor( Port:Integer; ThisString:String80):Boolean; function ModemInit(Port:integer; InitStr:string) : boolean; function HangUp(Port:integer; HUStr:string) : boolean; function OnLine(Port:integer) : boolean; implementation uses PCL4P, Global, Modem; procedure SendTo( Port: Integer; ThisString:String80); const CR = 13; var rc : Integer; i : Integer; c : Char; begin rc := SioRxFlush(Port); rc := SioDelay(4); for i := 1 to Length(ThisString) do begin c := UpCase(ThisString[i]); case c of '!' : c := chr(CR); '~' : begin (* delay 1/2 second *) rc := SioDelay(9); c := ' ' end; ' ': rc := SioDelay(4); end; (* transmit as 7 bit char *) rc := SioPutc(Port, chr(ord(c) and $7f)); (* wait 1/18th of a second *) rc := SioDelay(1); (* wait 1 second for echo *) rc := SioGetc(Port,18); {if rc > 0 then Write(chr(rc));} end (* for *) end; (* SendTo *) Function WaitFor(Port:Integer; ThisString:String80): Boolean; label WaitForExit; const CR = 13; LF = 10; var code : Integer; c : Char; i : Integer; rc: Integer; procedure Flush; label FlushExit; var code : integer; begin while TRUE do begin (* get next incoming character *) code := SioGetc(Port,38); if code = -1 then exit; (* skip CR & LF *) if (code <> CR) and (code <> LF) then begin (*writeln('Pushing ',chr(code),' [',code,']');*) rc := SioUnGetc(Port, code ); goto FlushExit; end; end; (* while *) >>> Continued to next message
pascal.133 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: pascal 2/2 Date: Sun, 29 Oct 1995 01:00:00 GMT >>> Continued from previous message FlushExit: end; (* Flush *) begin (* WaitFor *) {Write( chr(LF) );} Flush; for i:= 1 to Length(ThisString) do begin (* c is expected character *) c := UpCase( ThisString[i] ); (* wait 1 second for next character *) code := SioGetc(Port,18); if code = -1 then begin WaitFor := FALSE; goto WaitForExit; end; (* echo character from modem *) {Write(chr(code));} if chr(code) <> c then begin {writeln('Expecting ',c,' not ',chr(code),'[',code,']');} WaitFor := FALSE; goto WaitForExit; end; end; (* for *) (* a last character ? *) rc := SioGetc(Port,18); {if rc > 0 then Write(chr(rc));} WaitFor := TRUE; WaitForExit: end; (* WaitFor *) function ModemInit(Port:integer; InitStr:string) : boolean; begin SendTo(Port,'~+/+/+/'); SendTo(Port,'!'+InitStr+'!'); ModemInit := WaitFor(Port,'OK'); end; function HangUp(Port:integer; HUStr:string) : boolean; begin if DTRhangup then SioDTR(Port,CLEAR); if Online then begin SendTo(Port,'~+/+/+/'); SendTo(Port,'!'+HUStr+'!'); end; Hangup := WaitFor(Port,'OK'); if DTRhangup then SioDTR(Port,SETON); end; function OnLine(Port:integer) : boolean; var Time : longint; Done : boolean; begin Time := SioTimer; Done := false; while not Done do begin if SioDCD(Port)>0 then begin OnLine := true; Done := true; end; if SioTimer-Time > CarrierLostTime then begin OnLine := false; Done := true; end; end; end; end {ModemIO UNIT} . Nadam se da ces skontati o cemu se ovde radi. Promenljive tipa CarrierLostTime, DTRhangup ConnectString i ostale su konfigurabilne i korisnik ih podesava u programu. Ima gresaka verovatno, ali radi radnju za te najosnovnije potrebe. Ostaje ti da ga izbrusis ako ti bude koristilo. Pozdrav :) ¸> Nog Prank #4: change Jake's baseball program to cricket * ŰmÔ/\/\× 1.3 #00 *
pascal.134 postmast,
From: srdjan.dakic@panon.ns.ac.yu (Srdjan Dakic) Subject: Re: pascal Date: Sun, 29 Oct 1995 00:23:00 GMT --> Ognen.Spiroski%f132.n108.z38@setnet.setnet.co.yu (Ognen Spiroski) ARGH! :) Treba instrukcije INT 16h i INT 10h zameniti NOP-ovima u fajlu PCL4P.TPU i vise nema ispisa 'unregistered' poruke. Pronadji CD 16 i CD 10 i zameni ih sa 90 90. ¸> *Ahem* Okay... Thank you, Mr. Spock. * ŰmÔ/\/\× 1.3 #00 *
pascal.135 postmast,
From: markom@setnet.co.yu (Marko Milivojevic) Subject: Re: Knjiga Za Objektni Tp Date: Sun, 29 Oct 1995 18:31:00 ***> Citiram 'Miroslav Minovic' za 'All' <*** MM> P.S.Ideju objektnog programiranja sam savladao,treba mi kako MM> se to prakticno radi(sintaksa). Ovakav biser odavno ne procitah :-))) -=> MM <=- ___ Blue Wave/QWK v2.20 [NR] * Origin: Exodus, Novi Beograd #22-09# (011) 137-477 SETNet: (38:103/130)
pascal.136 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: errorlevel Date: Tue, 31 Oct 1995 22:13:58 Zna li neko nacin kako da iz Pascala procitam errorlevel s kojim je izasao prethodni program? ... BR> Is Internet internal or international? * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.137 pedjak, -> #136, postmast
> Zna li neko nacin kako da iz Pascala procitam errorlevel s > kojim je izasao prethodni program? Nije mi baš najjasnije, pokrećeš neki drugi proces iz svoje aplikacije, pa želiš da saznaš ErrorLevel..? Ako je to, onda ti je rešenje funkcija DosExitCode.
pascal.138 postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) Subject: Re: pascal Date: Thu, 14 Sep 1995 17:14:03 On 11 Sep 95 12:57pm, "Vladislav Erdelji" wrote to All: "E> From: "Vladislav Erdelji" <evlad@sezam.UUCP> "E> Newsgroups: yu.prog.pascal "E> Organization: SEZAM Beograd, 011 648-422 <>> SVGA256.bgi imam ali drajver je vrlo lose uradjen. Mislio sam na <>> original ne drajvere od Borlanda. <>> Inace da li je neko uspeo da startuje misa u svga rezolucijama. "E> Ako su drajveri V5.5 tada uz njih ide i mis, jedino na VLB CL5428 ima "E> malo problema oko hardvreskog i softverskog kursora, ali moze da radi. Gde se mogu naci V5.5 ? __ Pozdrav from Vladimir __ .... CAUTION! Silver Xpress roaring through here! * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.139 evlad, -> #138, postmast
TO: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic) <> Gde se mogu naci V5.5 ? Sezam pro-ba(blem) test sistem pristup besplatan ;> =============================== 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) Ili u sezam-ovom dir-u ...
pascal.140 postmast,
From: Sasa.Sekulic%f110.n103.z38@setnet.setnet.co.yu (Sasa Sekulic) Subject: pascal Date: Wed, 01 Nov 1995 18:27:22 <> koliko karaktera moze da se definise na LX-400; otkad su presli na ove <> nove "E> mozes predefinisati samo 6 karaktera za draft ili nlq. "E> isto kao i kod LX-800 :) ne secam se tacno koji su to bili mislim da "E> je ascii <, >, ... Dankeschoen. mad.max ... I'm a party animal, I'm a party animal... * Origin: # New Age # 22-08h # Beograd # SETNet: (38:103/110)
pascal.141 postmast,
From: markom@setnet.co.yu (Marko Milivojevic) Subject: Re: Errorlevel Date: Thu, 02 Nov 1995 08:51:00 ***> Citiram 'Predrag Supurovic' za 'All' <*** PS> Zna li neko nacin kako da iz Pascala procitam errorlevel s PS> kojim je izasao prethodni program? DOSError ili DOSExitCode? -=> MM <=- ___ Blue Wave/QWK v2.20 [NR] * Origin: Exodus, Novi Beograd #22-09# (011) 137-477 SETNet: (38:103/130)
pascal.142 postmast,
From: Miroslav.Minovic%f133.n103.z38@setnet.setnet.co.yu (Miroslav Minovic) Subject: Re: Knjiga Za Objektni Tp Date: Thu, 02 Nov 1995 17:25:01 -=> Ja, Miroslav Minovic citiram Marka Milivojevica na temu Knjiga Za Objektni Tp<=- ***> Citiram 'Miroslav Minovic' za 'All' <*** MM> P.S.Ideju objektnog programiranja sam savladao,treba mi kako MM> se to prakticno radi(sintaksa). MM> Ovakav biser odavno ne procitah :-))) Mozda se nisam najbolje izrazio,treba mi knjiga u kojoj je prakticno ilustrovano kako se pisu programi za Win(nazivi gotovih objekata,metoda itd.) Jos uvek se trazi :( Pozdrav,Mindza. ================================================================================ mindza@setnet.co.yu mminovic@sezam.co.yu mminovic@osmeh.fon.bg.ac.yu ... 100 LJUDI 100 CUDI, 100 ZENA 200 SISA * Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.143 postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI) Subject: Sifre Date: Mon, 30 Oct 1995 10:08:00 DR> Mislio sam da je neko vec odgovorio, ali posto nije: broj DR> x u C[x] mora biti integer (jer, koji bi bio 2.464-ti znak DR> iz tog stringa?), a funkcija Random daje real promenljivu. Startuj sledeci program: var x:byte; begin x:=Random(255); WriteLn(x); end. Pozdrav. Ognen * OLX 2.1 TD * You have a terminal illness - check your terminal. * Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.144 postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI) Subject: Knjiga za objektni TP4Win Date: Mon, 30 Oct 1995 10:08:00 MM>Moze li neko da mi preporuci knjigu iz koje cu moci MM>da naucim objektno programiranje u Turbo Paskalu za Windows. Probaj da nadjes knjigu koja dolazi uz Turbo Pascal for Windows (1.5 ?). Ognen * OLX 2.1 TD * Software Factory * Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.145 postmast,
From: SETNet%f101.n101.z38@setnet.setnet.co.yu (SETNet) Subject: Statistika konferencije Date: Thu, 26 Oct 1995 08:04:22 Maintaned by CONFERENCE STATISTICS SHELL - (c)1995 by Predrag Supurovic ======================================================================= Conference NET.PASCAL maintained on 28.09.95. for 28 days backward. QRATIO Mail Statistics V1.9 by Act Of Impulse. ---------------------------------------------- Total messages found in this area : 440 Number of messages covered in report: 104 Processed period from: 28-9-1995 to 25-10-1995 ------------------------------------------------------------------------------ Blacklist-Top 5 of the Quoters. Nr Total Quoted Quote Name Address Msg Lines Lines: Ratio: ---- ------- --- ----- ------ ------ 1. VLAXI.................... 38:103/120 1 34 28 82.35% 2. Boris Dragovic........... 38:103/115 1 13 10 76.92% 3. Robert Oswald............ 38:111/119 2 26 13 50.00% 4. Vladimir Sitnikovski..... 38:103/120 2 42 19 45.24% 5. Danijel Nadj............. 38:103/120 2 37 15 40.54% ------------------------------------------------------------------------------ Top 5 of the writers. Total Average Quote Name Msgs: Pct. Byte/Msg Ratio: ---- ----- ----- -------- ------ 1. Srdjan Dakic 16 15.4% 662 34.55% 2. OGNEN DUZLEVSKI 7 6.7% 562 25.00% 3. Petar Ristic 6 5.8% 165 29.63% 4. Ognen Spiroski 6 5.8% 704 11.39% 5. "Srdan Simic" 6 5.8% 488 3.33% ------------------------------------------------------------------------------ Top 5 of the receivers. Total Name Msgs: Pct. ---- ----- ----- 1. All 73 70.2% 2. Petar Ristic 7 6.7% 3. Srdjan Dakic 4 3.8% 4. "Srdan Simic" 3 2.9% 5. Vojislav Mihailovic 2 1.9% ------------------------------------------------------------------------------ Top 5 of the subjects. Subject Nr. ------- --- 1. Pascal...................................................... 63 2. Font na stampacu............................................ 10 3. Sifre....................................................... 5 4. zapisi i tako dalje......................................... 4 5. UPOMOC!!!................................................... 3 ------------------------------------------------------------------------------ Average posting frequency per week: Day Msgs Pct. Graph Sunday 23 22.1% ************************************************** Monday 16 15.4% ********************************** Tuesday 12 11.5% ************************** Wednesday 9 8.7% ******************* Thursday 9 8.7% ******************* Friday 17 16.3% ************************************* Saturday 18 17.3% *************************************** ------------------------------------------------------------------------------ Average posting frequency per day: Interval Msgs Pct. Graph -------- ---- ----- ----- 0:00- 1:59 5 4.8% **************** 2:00- 3:59 5 4.8% **************** 4:00- 5:59 4 3.8% ************ 6:00- 7:59 3 2.9% ********* 8:00- 9:59 7 6.7% ********************** 10:00-11:59 12 11.5% ************************************** 12:00-13:59 11 10.6% *********************************** 14:00-15:59 9 8.7% **************************** 16:00-17:59 12 11.5% ************************************** 18:00-19:59 13 12.5% ***************************************** 20:00-21:59 7 6.7% ********************** 22:00-23:59 16 15.4% *************************************************** ------------------------------------------------------------------------------ * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.146 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: Knjiga Za Objektni Tp Date: Sat, 04 Nov 1995 13:42:05 ==== Miroslav Minovic rece: ====================================== MM> Mozda se nisam najbolje izrazio,treba mi knjiga u kojoj je prakticno MM> ilustrovano kako se pisu programi za Win(nazivi gotovih MM> objekata,metoda itd.) Juce u Polarotoru predstavise neku knjigu za Delphi u izdanju, cini mi se, CIP-a (ne Chip, nego CIP). Da li ce ti to koristiti, ili bas radis u Pascalu? ... BR> Biti ili ne biti? Da bacimo novcic? * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.147 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: Delphi Date: Sat, 04 Nov 1995 13:42:06 Voleo bih da cujem misljenje nekoga ko se malo vise poabavio Dephhijem. Kad se pojavio iz sveta su stizale prilicno slabe kritike. Kako se ponasa? Koliko je pouzdan. Kakve su mu mogucnosti...? ... BR> Uvek su u pravu oni koji su - u pravu. * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.148 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: Errorlevel Date: Sat, 04 Nov 1995 22:30:00 > PS> Zna li neko nacin kako da iz Pascala procitam errorlevel s > PS> kojim je izasao prethodni program? > DOSError ili DOSExitCode? To je resenje kada progrm pokrecem u DOS shell-u, ali ne treba mi to. Treba mi da napravim program koji ce biti pokrenut posle nekog programa i ispisati mi sa kojim errorlevelom je izasao prethodni program. Kako stoje stvari to izgleda nije bas izvodljivo. Verovatno cu morati da koristim DOS shell da bih uopte mogao da saznam taj errorlevel. BBS-ovi se cesto oslanjaju na errorlevele i treba mi da na nekim mestima mogu da vidim sa kojim je errorlevelom izasao program, da bih nasao eventualnu gresku. * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.149 nlazic, -> #147, postmast
*> Kako se ponasa? Koliko je pouzdan. Kakve su mu mogucnosti...? Delphi je pogrešno predstavljen kao alat za razvoj baza podataka, iz ovih ili onih razloga. Tačno je da se uz njega isporučuje kompletan BDE i da se njime mogu pisati prilično složeni DB programi, ali Delphi može i mnogo više, nevezano za baze. Najtačnije bi bilo reći da je to zapravo Borland Pascal 8.0 + BDE + gomila klasa za rad sa svim i svačim (počev od INI datoteka, pa do pisanja client/server aplikacija i OLE-a). Tvrdim da se pomoću Delphi-a može napisati bilo kakav program za Windows-e, pa i za DOS. Elem, ponaša se odlično, pouzdan je isto onoliko koliko su pouzdani Windows-i, a mogućnosti su zaista velike, jer iako nosi oznaku verzije 1.0, iza sebe ima veoma razvijenu familiju Turbo Pascal kompjalera čiji je Delphi logičan naslednik (i 100% kompatibilan). Pozdrav, :) Nebojša :)
pascal.150 icile, -> #136, postmast
-> Zna li neko nacin kako da iz Pascala procitam errorlevel s -> kojim je izasao prethodni program? A, za sta ti to treba? Da li ti treba bas ERRORLEVEL ili bi mozda probao i na neki drugi nacin da preneses 'poruku' prethodno izvrsenog programa-sledecem? Da li si ti napisao i prvi i drugi program ili na prvi vise ne mozes da utices pa si zato primoran da citas ovu sistemsku promenljivu?
pascal.151 icile,
Da li neko zna kako izgleda struktura datoteka .SYS u DOS-u?
pascal.153 postmast,
From: Dragan.Levic%f119.n111.z38@setnet.setnet.co.yu (Dragan Levic) Subject: Zastita programa Date: Sat, 04 Nov 1995 22:36:00 Da li je moguce napraviti u Paskalu takvu zastitu nekog programa da ako korisnik programa (da li ste mu instalaciju nekog skupog programa pa necete da mu dozvolite da je rasiri dalje) hoce da program presnimi program na disketu/diskete zastita automatski obrise *.exe fajlove tog programa (recimo da je ceo program u jednom direktorijumu)? Ako jeste, a verujem da jeste posto je meni skoro uspelo, samo imam nekoliko manjih rupa u znanju izlaznih kodova, kako bi on izgledao? Puno vam se unapred zahvaljujem! CUL8R or maybe RSN P.S. Ja licno imam TS-Pascal tako da to malo komplikuje stvari (ko zna-zna)! CU     ... No hand signals. The driver of this car is a convicted arab shoplifter. * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.154 postmast,
From: Nikola.Culic%f121.n103.z38@setnet.setnet.co.yu (Nikola Culic) Subject: Pascal Date: Tue, 07 Nov 1995 00:13:00 Da li neko zna da mi rastumaci definiciju tipa PaletteType. Nasao sam da je definisana kao: PaletteType=Record Size:Byte; Colors:Array[0..MaxColor] of ShortInt; Treba mi nacin da je razlozim kao RGB (posebno koliko ima crvene, zelene, plave u svakoj od boja)... * Origin: AV Manta, Beograd - Mail Server - SETNet (38:103/121)
pascal.155 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: Zastita programa Date: Mon, 06 Nov 1995 10:29:31 Dragan Levic said: DL> Da li je moguce napraviti u Paskalu takvu zastitu nekog programa da DL> ako korisnik programa (da li ste mu instalaciju nekog skupog programa DL> pa necete da mu dozvolite da je rasiri dalje) hoce da program presnimi DL> program na disketu/diskete zastita automatski obrise *.exe fajlove tog DL> programa (recimo da je ceo program u jednom direktorijumu)? Problem u celoj stvari je kako utvrditi da korisnik pokusava da piratuje program. Kad se to utvrdi svasta moze da se uradi, pa cak i mnogo nezgodnije od brisanja EXE-a. Nisam sasvim siguran da li si mislio na zastitu programa koji si ti pisao ili zastitu programa koji si mu samo instalirao pa ne zelis da moze da ga kopira dalje? * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.156 postmast,
From: OGNEN.DUZLEVSKI%f108.n108.z38@setnet.setnet.co.yu (OGNEN DUZLEVSKI) Subject: Knjiga Za Objektni Tp Date: Mon, 06 Nov 1995 14:28:00 MM> MM> P.S.Ideju objektnog programiranja sam savladao,treba mi kako MM> MM> se to prakticno radi(sintaksa). MM> Ovakav biser odavno ne procitah :-))) A sto je biser ? Spusti se malo na zemlju, covek kaze da je shvatio principe (enkapsulacija, nasledjivanje, virtuelni i staticki metodi, polimorfizam itd.), sada mu jedino treba sintaksa. Objektno programiranje je apstrakcija na malo visem nivou i dok su ti jasni principi - ipak ti treba prakticna implementacija tih principa a ona je za svaki jezik drugacija. Probaj da sa lispa predjes na Turbo Vision (Pascal) i shvatices o cemu pricam. Again, spusti se malo na zemlju i drugi put malo pazljivije sa alt-R. Ognen * OLX 2.1 TD * The easiest way to woman's heart is thru 'er chest. * Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.157 djelovic, -> #151, icile
> Da li neko zna kako izgleda struktura datoteka .SYS u DOS-u? Svojevremeno je ZZ pisao o tome u "Računarima". Biće najbolje da u RIND-u potražiš taj njegov tekst, jer je tu bilo puno bitnih sitnica.
pascal.158 atech, -> #153, postmast
> Subject: Zastita programa > > Da li je moguce napraviti u Paskalu takvu zastitu nekog > programa da ako korisnik programa (da li ste mu instalaciju > nekog skupog programa pa necete da mu dozvolite da je rasiri > dalje) hoce da program presnimi program na disketu/diskete > zastita automatski obrise *.exe fajlove tog programa (recimo da > je ceo program u jednom direktorijumu)? Ako jeste, a verujem da > jeste posto je meni skoro uspelo, samo imam nekoliko manjih Sve se svodi na pouzdan problem identifikacije racunara na kome je program instaliran i zastitu odgovarajuceg algoritma za proveru iste. Trigere u vidu brisanja fajlova ne preporucujem iz vise razloga. Najvazaniji razlog je da u 90% slucajeva nema efekta. Proveru mozes da vrsis iz bilo kog izvrsnog fajla koji je deo projekta ali se postaraj da dobro zastitis rutinu za proveru i eventualnu trigger rutinu. Ako radis sitan SW softver onda mozes da primenis bilo koji algoritam za detekciju a ukoliko se radi o projektu koji se 'prodaje' preporucujem PCG (reklama placena u marketingu:) koji poseduje sve potrebne opcije za zastitu izvrsnih programa i izradu instalacionih disketa.
pascal.159 mminovic, -> #146, postmast
> Juce u Polarotoru predstavise neku knjigu za Delphi u izdanju, > cini mi se, CIP-a (ne Chip, nego CIP). Da li ce ti to > koristiti, ili bas radis u Pascalu? Tu sam vec kupio :)(na sajmu ne odoleh:) Ali bih hteo i za Paskal for Win 1.5. Obican okvir nekog programa sa par zezalica u Delphiju mi je bio .exe duzine reda 300 kb,dok pod TP4WIN oko 30 Kb :( Pozdrav,Mindza
pascal.160 vvelisavljev,
> Da li je moguce napraviti u Paskalu takvu zastitu nekog programa da ako > korisnik programa (da li ste mu instalaciju nekog skupog programa pa necete > da mu dozvolite da je rasiri dalje) hoce da program presnimi program na > disketu/diskete zastita automatski obrise *.exe fajlove tog programa Šta, na primer, da korisnik želi da napravi rezervnu kopiju tog skupog programa?? Misllim da se nije igrati sa takvim stvarima. Može korisnik da se naljuti pa da dođe da te upuca. :)) Šalu na stranu. Treba se prvo zapitati šta je skupo. Sam program ili podrška, štampano uputstvo, nove verzije. U nekim slučajevima čak i nije loše da se program malo "raširi". Ali, sada već bežimo iz teme Pascal. Razmisli malo o snimanju broja hard diska. Mislim da snimanje najobičnijeg imena diska (volume) nije tako loša ideja. Prosečan korisnik verovatno ni ne zna da postoji komanda koja menja ime diska. A i što bi ga menjao. :)
pascal.161 kriss, -> #151, icile
˙˙ Da li neko zna kako izgleda struktura datoteka .SYS u DOS-u? Neki stari "Računari", tekst je "Na softverski pogon", autora Zoran čivotić. Potraži u RIND-u.
pascal.162 vvelisavljev,
Treba mi nešto da iz DOS programa pređem u Windowse. Tj. program treba da simulira pritisak na Alt+Tab. Imam DOS program rađen u TPu. Pa želim bezbolno da ga prebacim u Windows okolinu. Treba da pri odabiru neke opcije program pređe u windows okruženje i da ostane ikonica programa.
pascal.163 postmast,
From: Srdjan.Stanisic%f104.n103.z38@setnet.setnet.co.yu (Srdjan Stanisic) Subject: Re: Font na stampacu Date: Wed, 01 Nov 1995 19:56:09 PR> Da li je moguce ugraditi YU slova u stampac, cisto softverski? Da, u neke (a mozdai sve). Ali, koliko slova mozes ubaciti, zavisi od memorije u stampacu, namenjene za soft-font. Strider ... Ako kanis pobijediti, ne smijes izgubiti! * Origin: *SETNet: Taurunum BBS +381 11 2354-253, Zemun* (38:103/104)
pascal.164 postmast,
From: Srdjan.Stanisic%f104.n103.z38@setnet.setnet.co.yu (Srdjan Stanisic) Subject: Re: HDD Serial nbr. Date: Wed, 01 Nov 1995 19:57:10 Koji i broj treba, iz ROM-a ili DOS-ov? Ja sam napisao unit koji ima ove f-je, pa ako ga oces... Strider ... Ako kanis pobijediti, ne smijes izgubiti! * Origin: *SETNet: Taurunum BBS +381 11 2354-253, Zemun* (38:103/104)
pascal.165 postmast,
From: markom@setnet.co.yu (Marko Milivojevic) Subject: Re: Knjiga Za Objektni Tp Date: Tue, 07 Nov 1995 14:06:00 ***> Citiram 'Ognen Duzlevski' za 'Marko Milivojevic' <*** OD> A sto je biser ? Spusti se malo na zemlju, covek kaze da je shvatio OD> principe (enkapsulacija, nasledjivanje, virtuelni i staticki metodi, OD> polimorfizam itd.), sada mu jedino treba sintaksa. Ja sam genije. Shvatio sam pravo resenje za konflikt u Bosni!!! Svi mi treba da se pomirimo i zivimo lepo kao ranije. Treba mi neka knjiga iz politike da vidim prakticnu primenu i najbolje resenje za moj zakljucak. OD> zemlju i drugi put malo pazljivije sa alt-R. 'R' -=> MM <=- ___ Blue Wave/QWK v2.20 [NR] * Origin: Exodus, Novi Beograd #22-09# (011) 137-477 SETNet: (38:103/130)
pascal.166 postmast,
From: markom@setnet.co.yu (Marko Milivojevic) Subject: Re: Knjiga Za Objektni Tp Date: Mon, 06 Nov 1995 20:10:00 ***> Citiram 'Predrag Supurovic' za 'Miroslav Minovic' <*** PS> Juce u Polarotoru predstavise neku knjigu za Delphi u izdanju, PS> cini mi se, CIP-a (ne Chip, nego CIP). Da li ce ti to koristiti, PS> ili bas radis u Pascalu? E... to mi treba... Gde/Kad/Kome/Koliko? -=> MM <=- ___ Blue Wave/QWK v2.20 [NR] * Origin: Exodus, Novi Beograd #22-09# (011) 137-477 SETNet: (38:103/130)
pascal.167 postmast,
From: markom@setnet.co.yu (Marko Milivojevic) Subject: Re: Delphi Date: Mon, 06 Nov 1995 20:10:00 ***> Citiram 'Predrag Supurovic' za 'All' <*** PS> Voleo bih da cujem misljenje nekoga ko se malo vise poabavio PS> Dephhijem. Kad se pojavio iz sveta su stizale prilicno slabe PS> kritike. Pa ovako. Program je jednom mocan ;-) Svesto ste imali prilike da vidite u Windows-u je podrzano. Programiranje je skoro isto kao u Visual Basicu, znaci click-and-write. ;-) PS> Kako se ponasa? Koliko je pouzdan. Kakve su mu mogucnosti...? Ponasa se lepo (na 8Mb, na 4Mb je (ne)upotrebljivo spor :-(). Dosta je pouzdan i lak za koriscenje. * Prazan prozor -> 190+ Kb -=> MM <=- ___ Blue Wave/QWK v2.20 [NR] * Origin: Exodus, Novi Beograd #22-09# (011) 137-477 SETNet: (38:103/130)
pascal.168 postmast,
From: vladimir.blagojevic@panon.ns.ac.yu (Vladimir Blagojevic) Subject: Re: pascal Date: Thu, 9 Nov 1995 13:47:00 GMT DJ> Svojevremeno je ZZ pisao o tome u "Racunarima". Bice najbolje da u RIND DJ> potrazis taj njegov tekst, jer je tu bilo puno bitnih sitnica. Malo sam neupucen, o cemu je rec, kad govorite o RIND-u?
pascal.169 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: Zastita programa Date: Thu, 09 Nov 1995 13:44:05 DL> Da li je moguce napraviti u Paskalu takvu zastitu nekog programa da DL> ako korisnik programa (da li ste mu instalaciju nekog skupog programa DL> pa necete da mu dozvolite da je rasiri dalje) hoce da program presnimi DL> program na disketu/diskete zastita automatski obrise *.exe fajlove tog DL> programa (recimo da je ceo program u jednom direktorijumu)? Da, moguce je na vise nacina: 1. neka program cita serijski broj HDa i upisuje u datoteku (npr.: ????????.CFG) ali da sa zapisom bude i os tala konfiguracija programa tako da je korisnik (haker) i ako je prona dje ne moze obrisati, 2. pomocu TSR programa (i ako nije logicno ali ...). 3. citaj volume HDa, imena nekih direktorijuma (naravno pri instalaciji i zapisi u datoteku), neke fajlove stavi ko bad block (moze ali ne znam kako). Eto, to je iscrpno od mene (bar u ovom trenutku). pozdraw, ASKO ... What is the TAG? * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.170 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: EMS XMS Date: Thu, 09 Nov 1995 13:44:05 Da li neko zna kako da se radi sa prosirenom memorijom? Recimo da neke graficke ekrane sa diska ne ucitam u osnovnu memoriju nego u prosirenu iznad 640 Kb. pozdraw, ASKO ... Nikad nisi vidio TAG ??!!!?!!!?! * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.171 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: stancanje grafike (stampanje) Date: Thu, 09 Nov 1995 20:06:03 Hi 2 ALL. Zanima me kako da iz paskala stampam grafiku na stampac (naravno). Da li prije slanja grafike na stampac treba poslati neki bit koji 'gov ori' stampacu da ne stampa tekst nego grafiku? U ostalom kako se salje grafika na stampac (stancalo)? pozdraw, ASKO ... Mijenjam masinu za ves za djevojku koja sve radi rucno. * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.172 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: delphi Date: Thu, 09 Nov 1995 20:06:04 Hej ljudi, nisam malo u toku, sta je to DELPHI? pozdraw, ASKO ... Ko prvi djevojc sam u nju upada ! * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.173 postmast,
From: Mladen.Jablanovic%f101.n101.z38@setnet.setnet.co.yu (Mladen Jablanovic) Subject: Zastita programa Date: Thu, 09 Nov 1995 09:11:39 ==== Quoting Dragan Levic: ==== DL> Da li je moguce napraviti u Paskalu takvu zastitu nekog programa da DL> ako korisnik programa (da li ste mu instalaciju nekog skupog programa DL> pa necete da mu dozvolite da je rasiri dalje) hoce da program presnimi DL> program na disketu/diskete zastita automatski obrise *.exe fajlove tog DL> programa (recimo da je ceo program u jednom direktorijumu)? Teeeesko... Jedino da se startovanjem tog programa instalira neki TSR, pa on da proverava...:)))). Moguce je, recimo, nesto ovako: pri instalaciji programa sa diskete procita se serijski broj diska, ili neki drugi bitan parametar, pa se on kriptuje i zapamti. Onda se pri svakom startovanju programa isti proverava, pa if OldSerialNo<>NewSerialNo then begin format c:; burn monitor; start Windows:)))); end; Neki su nesto eksperimentisali sa pisanjem izmedju sektora na disketi, ostecivanjem disketa (!), itd, itd, ali je sve to bilo suvise komplikovano i nepouzdano. DL> Ako jeste, a verujem da jeste posto je meni skoro uspelo, samo imam DL> nekoliko manjih rupa u znanju izlaznih kodova, kako bi on izgledao? DL> Puno vam se unapred zahvaljujem! DL> P.S. Ja licno imam TS-Pascal tako da to malo komplikuje stvari (ko DL> zna-zna)! CU Ajd izvesti kako ti je to uspelo, bogati. A TS-Pascal ne moze da ti iskomplikuje stvari, samo uprosti i olaksa ;). Ko zna-zna... jablan. ... Vodite ljubav, a ne psa! * Origin: Oreska BBS, UZICE = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.174 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: Valjak za peglanje Date: Thu, 09 Nov 1995 13:44:04 -=> Quoting Miodrag Djordjevic to All <=- MD> Prodajem valjak za peglanje MD> MD> ***** Ei rolmatic 75.4 ********* Je li cijeli source ili TPU :)))? malo sale, nista licno pozdraw, ASKO ... strike any user to continue * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.175 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: delphi Date: Fri, 10 Nov 1995 13:01:03 Asmir Badnjevic said: AB> Hej ljudi, nisam malo u toku, sta je to DELPHI? Ukratko receno: Visual Trubo Pascal. Ako si video Visual BASIC, e ovo je isto samo sto se radi i Pascal jeziku. * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.176 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: EMS XMS Date: Fri, 10 Nov 1995 13:01:03 Asmir Badnjevic said: AB> Da li neko zna kako da se radi sa prosirenom memorijom? Recimo da AB> neke graficke ekrane sa diska ne ucitam u osnovnu memoriju nego u AB> prosirenu iznad 640 Kb. Imas na Oreska BBS-u biblioteke koje to rade. U sorsu su naravno. * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.177 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: stancanje grafike (stampanje) Date: Fri, 10 Nov 1995 13:01:04 Asmir Badnjevic said: AB> Zanima me kako da iz paskala stampam grafiku na stampac (naravno). AB> Da li prije slanja grafike na stampac treba poslati neki bit koji AB> 'gov ori' stampacu da ne stampa tekst nego grafiku? U ostalom kako se AB> salje grafika na stampac (stancalo)? Svaki stampac ima komande za grafiku. Treba da u uputstvu pogledas kako stampac ocekuje podatke za stampu i da mu ih tako i posaljes... Moj Citizen 180D ima jenu Esc sekvencu kojaga prebacuje u graficki rezim. Sekvenca sadrzi informaciju o kojoj se rezoluciji radi, koliko bajtova se stampa i niz bajtova koje treba odstampati. Svaki bajt predstavlja jednu kolonu (iglice na glavi stampaca su slozene vertikalno). Stampa se po redovima - kolona je visine jednog reda (koliko je to tacaka, zavisi od rezolucije i broja iglica na stampacu. * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.178 postmast,
From: Jovan.Mudrinic%f118.n111.z38@setnet.setnet.co.yu (Jovan Mudrinic) Subject: Problem Date: Sat, 11 Nov 1995 01:21:32 1.Da li se u TP-u moze napraviti vise statusnih linija i kako? 2.Kako da se menja statusna linija otvaranjem prozora(menija)? 3.Kako ubaciti stalan ispis:sata,stanja slobodnog diska i memorije u Turbo Vision aplikaciji,primer(verovatno pomocu interapta kako?)? Unapred hvala. * Origin: SETNet-ICM Digital BBS * Subotica * (024)21-342 * (38:111/118)
pascal.179 visnja, -> #170, postmast
> Da li neko zna kako da se radi sa prosirenom memorijom? Recimo > da neke graficke ekrane sa diska ne ucitam u osnovnu memoriju > nego u prosirenu iznad 640 Kb. Moja preporuka ti je da program prevedes u PROTECTED rezimu (TARGET:PROTECT), Tada mozes koristiti GLOBALALLOC iz nekog WIN unita da alociras memorije koliko hoces (koliko imas), da ne kazem vidis memoriju linearno. Ako te interesuje ovakva metoda javi, pa da se prisetim tacno kako se radi. Mada je bilo o ovome reci pre koji mesec...
pascal.180 visnja, -> #171, postmast
> Zanima me kako da iz paskala stampam grafiku na stampac > (naravno). Da li prije slanja grafike na stampac treba poslati > neki bit koji 'gov ori' stampacu da ne stampa tekst nego > grafiku? U ostalom kako se salje grafika na stampac (stancalo)? I mene ovo zanima, li nekom zemaljskom metodom. Naime, uzecu za primer EPSONOVE stampace i njihove ESC kodove: Stampacu prvo saljes odgovarajuci ESC kod (27 pa neki kod) za postavljanje grafickog rezima, zaboravio sam koji kod, zatim mu saljes broj koji predstavlja broj bajtova koje ces poslati za bit-mapu. Onda saljes bajt po bajt bitmape za jedan red. Sledeci red sve ponovo. Ovo je ukratko i povrsno princip rada. Sada na trzistu je velika lepeza epsonovih i epson kompatibilnih stampaca, da li svi imaju iste kodove? Narocito sto bit mapa nije ista za 24 pince i 9 pince (mada i moze biti jer svaki 24 pinac moze da stampa i kao 9 pinac - grafiku). Rezolucija je naravno nekoliko i ona zavisi od inicijalnog ESC koda koji saljesm odnosno koda kojim iniciras grafiku (onaj prvi iza koga sledi broj bajtova). Sada mene zanima kako stoji stvar sa laserima, ne bih da pisem sam rutine, ima li neko neki UNIT?
pascal.181 visnja, -> #178, postmast
> 1.Da li se u TP-u moze napraviti vise statusnih linija i kako? > 2.Kako da se menja statusna linija otvaranjem prozora(menija)? > 3.Kako ubaciti stalan ispis:sata,stanja slobodnog diska i > memorije u Turbo Vision aplikaciji,primer(verovatno pomocu > interapta kako?)? Unapred hvala. Odgovor je DA DA i DA. Turbo vizija mi je uza struka, ako nisi do sada uspeo/nasao javi mi pa da napisem mali primer (komentarisan) i da ti saljem. Evo malih hintova: Kada definises statusnu liniju sa NewStatusDef, ti iza stavljas dve konstante odvojene zarezima, jel tako? pogledaj neki source iz primera. Tamo je obicno $0,$FFFF. To znaci da je tom statusnom linijom obuhvacena kompletna TV. Ako dodas jos statusnih linija a za konstante napises ovako: NewStatusDef(hcNekaPomoc,hcNekaPomoc,... I Imas neki pointer na prozor/dialog PPera, A na neki nacin (npr. u konstruktoru) si u konstantu koju ima svaki VIEW PPera^.HelpCtx stavio PPera^.HelpCtx:=hcNekaPomoc, Onda ce automatski po kreiranju DIALOGA/PROZORA PPera da se ukljuci statusna linija sa definicijom hcNekaPomoc. Naravno u statusnim linijama onda ne smes da obuhvatis celu TV (ne ides od 0 - $FFFF) 3. Pitanje: Nikakav Interapt ti ne treba. TV ima IDLE proceduru, da ne davim sta je IDLE ako si radio sa WIN programiranjem ili OS/2 onda znas... nije ti ni bitno: NADJI U PRIMERIMA THeapView objekat, on radi upravo to. I pogledaj IDLE proceduru u tom primeru, neznam tacno koji je primer, TVDEMO ili TVFM... Pozdrav, Visnja.
pascal.182 maksa, -> #180, visnja
>> Sada mene zanima kako stoji stvar sa laserima, ne bih da pisem >> sam rutine, ima li neko neki UNIT? Ne znam za unit, al' mislim da na FFS-u (?) može da se nađe BGI za rad sa štampačima.
pascal.183 dejanr, -> #168, postmast
>> Malo sam neupucen, o cemu je rec, kad govorite o RIND-u? RIND, program/eksterna komanda na Sezamu koji omogućava pregled tekstova objavljenih u "Računarima", i pronalaženje po imenu, temi, autoru itd.
pascal.184 dejanr, -> #172, postmast
>> Hej ljudi, nisam malo u toku, sta je to DELPHI? Delphi - Borlandov "vizuelni paskal", dakle naslednik Turbo i Borland Pascala koji omogućava lak (?) razvoj Windows aplikacija. Bio je detaljan prikaz u trećem broju časopisa "PC". U međuvremenu se (ovih dana) pojavio i 32-bitni Delphi za razvoj Windows 95 i NT programa, ali ga još nisam video.
pascal.185 postmast,
From: SPIDER@x-life.bc.co.yu Subject: Zastita_programa Date: Sun, 12 Nov 95 18:19:32 GMT Kada Dragan.Levic%f119.n111.z38Zastita programaetnet.s pojede bananu desava se neverovatna promena... Dr> Da li je moguce napraviti u Paskalu takvu zastitu nekog programa da Dr> ako korisnik programa (da li ste mu instalaciju nekog skupog programa Dr> pa necete da mu dozvolite da je rasiri dalje) hoce da program presnimi Dr> program na disketu/diskete zastita automatski obrise *.exe fajlove tog Dr> programa (recimo da je ceo program u jednom direktorijumu)? Dr> Ako jeste, a verujem da jeste posto je meni skoro uspelo, samo imam Dr> nekoliko manjih rupa u znanju izlaznih kodova, kako bi on izgledao? a recimo da se uradi takva zastita koja bi spreacavala rad _tako_presnimljenog_programa_ na drugom komp-u (dok bi kod njega radilo sve ok) ??? ...SPiDeR //\o/\\ ... The Prodigy - Music For The Jilted Generation --- FMail 0.98 * Origin: X Life BBS;381(011)554-023;22:00-09:00;14400 bps (95:988/554)
pascal.186 postmast,
From: ASKO@vila.bc.co.yu Subject: pascal Date: Sun, 12 Nov 95 18:19:34 GMT -=> Quoting "Viktor Velisavljev" <vvelisavljev@ to All <=- "V<> Treba mi nesto da iz DOS programa predem u Windowse. Tj. program "V<> treba da simulira pritisak na Alt+Tab. Pokusaj sa rutinicom koja simulira pritisak tastera. Ako je nemas poslacu ti je. "V<> Imam DOS program raden u TPu. Pa zelim bezbolno da ga prebacim u "V<> Windows okolinu. Treba da pri odabiru neke opcije program prede u "V<> windows okruzenje i da ostane ikonica programa. KOristis TP6? U BP se lako moze prepraviti bilo koji program radjen u DOSu za WINDOWS. ... Hexcalibur, the sword of hackers. O══╠═0123456789ABCDEF═─ --- FMail/386 1.02 * Origin: Vila co.BBS ■ Prijedor_RS ■ +381 79 11 301 ■ B.C.: (95:790/113)
pascal.187 postmast,
From: markom@setnet.co.yu (Marko Milivojevic) Subject: Re: Knjiga Za Objektni Tp Date: Thu, 09 Nov 1995 07:18:00 ***> Citiram 'Ognen Duzlevski' za 'Marko Milivojevic' <*** OD> A sto je biser ? Spusti se malo na zemlju, covek kaze da je shvatio OD> principe (enkapsulacija, nasledjivanje, virtuelni i staticki metodi, OD> polimorfizam itd.), sada mu jedino treba sintaksa. Ja sam genije. Shvatio sam pravo resenje za konflikt u Bosni!!! Svi mi treba da se pomirimo i zivimo lepo kao ranije. Treba mi neka knjiga iz politike da vidim prakticnu primenu i najbolje resenje za moj zakljucak. OD> zemlju i drugi put malo pazljivije sa alt-R. 'R' -=> MM <=- ___ Blue Wave/QWK v2.20 [NR] * Origin: Exodus, Novi Beograd #22-09# (011) 137-477 SETNet: (38:103/130)
pascal.188 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: delphi Date: Sat, 11 Nov 1995 19:02:24 PS> Asmir Badnjevic said: no, no, Predrag Supurovic said to me : PS> Ukratko receno: Visual Trubo Pascal. PS> Ako si video Visual BASIC, e ovo je isto samo sto se radi PS> i Pascal jeziku. Vidio sam Visual BASIC i otkida koliko je dobar. Ako je delphi i upola onakav kao i Visual BASIC onda je do >znas vec cega<. Jer paskal je za mene (osim C-a) jedan od najboljih jezika. pozdraw, ASKO ... Ko prvi djevojc sam u nju upada ! * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.189 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: EMS XMS Date: Sat, 11 Nov 1995 19:02:24 PS> Asmir Badnjevic said: Again rou are wrong, Predrag Supurovic said to me : PS> Imas na Oreska BBS-u biblioteke koje to rade. U sorsu su naravno. Koliko kila? pozdraw, ASKO ... tata vidi .... TAG * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.190 postmast,
From: Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu (Asmir Badnjevic) Subject: stancanje grafike (stampanje) Date: Sat, 11 Nov 1995 19:02:25 PS> Asmir Badnjevic said: Predrag Supurovic saiAAAAAAAAAAAAARRRRGHHHHHHHHH PS> Svaki stampac ima komande za grafiku. Treba da u uputstvu pogledas PS> kako stampac ocekuje podatke za stampu i da mu ih tako i posaljes... Da, u pravu si samo sto ja nemam nikakvo upustvo. PS> Moj Citizen 180D ima jenu Esc sekvencu kojaga prebacuje u graficki PS> rezim. Sekvenca sadrzi informaciju o kojoj se rezoluciji radi, PS> koliko bajtova se stampa i niz bajtova koje treba odstampati. Svaki PS> bajt predstavlja jednu kolonu (iglice na glavi stampaca su slozene PS> vertikalno). Stampa se po redovima - kolona je visine jednog reda PS> (koliko je to tacaka, zavisi od rezolucije i broja iglica na stampacu. Da li se kod svih stampaca koristi ESC sekvenca.? Je li rezolucija koja se salje na stampac? Mozes li to malo bolje obj asniti? Sta ti dodje >niz bajtova< i da li se regulise koja ce se igl ica upaliti a koja nece? BTW. U kojem jeziku programiras (ako :)) ? pozdraw, ASKO ... Nice girl in sight:(G)o, (R)un, (H)urry, (D)o it? * Origin: Vila co.BBS # Prijedor_RS # +381 79 11 301 # SETNet: (38:135/135.1)
pascal.191 postmast,
From: Vladimir.Svrkota%f118.n111.z38@setnet.setnet.co.yu (Vladimir Svrkota) Subject: GRAPH.TPU Date: Sat, 11 Nov 1995 09:57:33 Doslo mi je do ostecenja na instalacionoj disketi Turbo Pascala 7.0 i fajl GRAPH.TPU mi je unisten, a grafika mi u ovom trenutku treba. Zato vas _molim_, da ako je neko rad da mi ovaj fajl arhivira i posalje, neka mi ostavi poruku u mail. Unapred se zahvaljujem. Vladimir. ... éí 'aaníígóó 'áhoot'é * Origin: SETNet-ICM Digital BBS * Subotica * (024)21-342 * (38:111/118)
pascal.192 nlazic, -> #184, dejanr
*> U međuvremenu se (ovih dana) pojavio i 32-bitni Delphi za razvoj *> Windows 95 i NT programa, ali ga još nisam video. Kada vidiš (pretpostavljam da ćeš biti među prvima) ne bilo ti mrsko da napišeš ovde koju reč... Pozdrav, :) Nebojša :)
pascal.193 nlazic, -> #188, postmast
*> Vidio sam Visual BASIC i otkida koliko je dobar. Ako je delphi i upola *> onakav kao i Visual BASIC onda je do >znas vec cega<. Jer paskal je za *> mene (osim C-a) jedan od najboljih jezika. Uzimaj Delphi što pre, nećeš se razočarati :) Pozdrav, :) Nebojša :)
pascal.194 visnja, -> #182, maksa
> Ne znam za unit, al' mislim da na FFS-u (?) može da se nađe BGI Izvin'te, malo sam glup, sta je to FFS ?
pascal.195 guta, -> #194, visnja
>> Izvin'te, malo sam glup, sta je to FFS ? Fon File Server. Tel. 1: 2372392 Tel. 2: 2372393 poz, Guta
pascal.196 pedjak, -> #180, visnja
> Sada mene zanima kako stoji stvar sa laserima, ne bih da pisem sam > rutine, ima li neko neki UNIT? Što se tiče programiranja lasera, bilo je nekih tekstova svojevremeno u Računarima. Što se tiče junita, imam samo nešto sklepano na brzinu - štampa dela ekrana na epson kompatibilnim štampačima, evo ga uz poruku. hcopy.zip
pascal.197 postmast,
From: mladen.adamovic@blbbs.elf.bl.ac.yu (MLADEN ADAMOVIC) Subject: Re: stancanje grafike (st Date: Tue, 14 Nov 95 00:51:00 -1 -+=+- Asmir Badnjevic rece : -+=+- AB> Zanima me kako da iz paskala stampam grafiku na stampac (naravno). Nabavis odgovarajuci BGI, recimo : prbgi097 a01 164402 BGI printer driver v0.97 (9/24-pin, laser) #1 prbgi097 a02 163864 BGI printer driver v0.97 (9/24-pin, laser) #2 Izvor : Sezam. ... Mene novac i slava ne zanimaju. Zanima me samo novac. ___ Blue Wave/QWK v2.12
pascal.198 postmast,
From: damir@osmeh.fon.bg.ac.yu (Damir Barjaktarevic) Subject: Re: delphi Date: Tue, 14 Nov 1995 11:35:57 GMT Asmir Badnjevic (Asmir.Badnjevic%p1.f135.n135.z38@setnet.setnet.co.yu) wrote: > Vidio sam Visual BASIC i otkida koliko je dobar. Ako je delphi i upola > onakav kao i Visual BASIC onda je do >znas vec cega<. Jer paskal je za > mene (osim C-a) jedan od najboljih jezika. Kad vidis Delphi ima da otkines na kvadrat :)))) Uporedjivao sa Delphi i VB 3.0 i doso do zakjucka da VB nema nikakvu izrazitu prednost u odnosu na Delphi. Stavise Delphi moze da mu bude profesor, pogotovo u radu sa bazama podataka. Vozdra, Damir -- damir@unitop.elfak.ni.ac.yu
pascal.199 postmast,
From: vladimir.sitnikovski@informa.mk (Vladimir Sitnikovski) Subject: pascal Date: Tue, 24 Oct 1995 04:45:00 GMT -=> Quoting Dejanrpascalezam.uucp to All <=- De> Path: medi.durlan.co.yu!durlan!fon.fon.bg.ac.yu!fon!sezam!dejanr De> From: "Dejan Ristanovic" <dejanr@sezam.UUCP> De> Newsgroups: yu.prog.pascal De> Subject: pascal De> Message-ID: <sezam$pascal:01.123.0418@sezam> De> Date: Fri, 20 Oct 95 02:43:00 CET De> References: <sezam$pascal:001.0123.0417@sezam> De> Organization: SEZAM Beograd, 011 648-422 >> 1. Upotreba nedokumentovanih dos funkcija nikad nije bila >> preporucljiva. ;) De> Jedino nevolja sto je ovaj dokumentovan - videti Microsoft Developers De> Network CD-ROM. Moram da potrazim neki noviji, moj je iz 94 godine, De> mozda su nesto menjali. >> 2. Vecina korisnika koristi ovaj int da bi procitala serijski broj harda >> koji se dobija pri formatiranju diska i da bi ga kasnije upotrebila >> za identifikaciju u cilju vezivanja softvera za hard. O tome koliko >> je ovaj nacin identifikacije 'neozbiljan' najbolje govori cinjenica da >> se isti broj moze promeniti po volji upotrebom ovog istog interapta >> (21,69). Igrarije...:) De> Za 99% korisnika - sasvim dovoljna zastita, a onaj 100-ti procenat ce De> i onako da razbije bilo kakvu zastitu. Sorry Dejane, nisi u pravu, i malo dete moze ovo da razbije ! Ovaj tip zastite ne vredi ni pet para, bas kao sto rece covek. Moj sin jos je mali da koristi INTERRUP-TE, ali vrlo dobro zna da radi sa nortonovim DISKEDIT-om :))) >> 3. Ovaj int je predvidjen da daje podatke samo pod fat file sistemom i >> bio je novina dos-a 4.0 De> Pa da, ali i Win95 radi pod FAT-om. Sto je najlepse, komandom DIR se De> dobija broj, znaci da postoji poziv kojim se cita. BIOS radi sa fizickim diskovima, a OS sa logickim, kad pomislim da oni suradjuju... Ipak kljuc ove dileme lezi u BOOT-u. Sitnik ... Rgds, Vladimir Sitnikovski, Republic of Macedonia, +389(0)91-318618 ___ Blue Wave/QWK v2.12
pascal.200 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: EMS XMS Date: Sun, 12 Nov 1995 12:53:15 ==== Asmir Badnjevic rece: ====================================== PS> Imas na Oreska BBS-u biblioteke koje to rade. U sorsu su naravno. AB> Koliko kila? Ma kratko je to. Jedino je sama dkumentacija za XMS velika, sami sorsovi su kratki. ... BR> Pusenje ili zdravlje. Odlucite sami. * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.201 postmast,
From: broker@setnet.co.yu (Predrag Supurovic) Subject: stancanje grafike (stampanje) Date: Sun, 12 Nov 1995 12:53:15 ==== Asmir Badnjevic rece: ====================================== PS> Svaki stampac ima komande za grafiku. Treba da u uputstvu pogledas PS> kako stampac ocekuje podatke za stampu i da mu ih tako i posaljes... AB> Da, u pravu si samo sto ja nemam nikakvo upustvo. Pa onda ti mogu pomoci ovako: komande za grafiku su iste za skoro sve matricne stampace, sto verovatno vazi i za tvoj, pogotovo ako je EPSON kompatibilac. Da te obradujem, na BS-u imam jedan TPU koji stampa sliku sa ekrana na bilo koji matricni stampac. To sam sinoc pronasao u arhivi jednog PAS programa za stampanje kalendara by neki momak iz Vojvodine. Arhiva s zove KALEND*.* (dovoljno da je nadjes). Sve u njoj je u sorsu pa i taj TPU za stampanje. AB> Je li rezolucija koja se salje na stampac? Mozes li to malo bolje AB> obj asniti? Sta ti dodje >niz bajtova< i da li se regulise koja ce AB> se igl ica upaliti a koja nece? To podesavas odredjivanjem rezolucije stampaca. Za svaku rezoluciju postoji posebna Esc sekvenca. Na stampac moras slati sliku u onoj rezoluciji na koju podesis stampac. TO vazi ako hoces da dobijes sliku uslovno receno 1:1. Ako samo hoces da odstampas, onda samo saljes bajtove stampacu onako kako ih imas, bez prilagodjavanja rezolucije. Tada ce stampac svaku tacku predstavljati tackom pa ce slika biti manja ili veca, zavisno od rezolucije... Ako hoces sam da radis, evo ti komande za Citizen. Treba da rade na bilo kom Epson kopatibilnom stampacu. Mada, ja ti preporucujema uzmes ovaj TPU koji sam pomenuo, jer je to upravo to sto hoces da uradis. Ovo je opsti oblik komande: ESC <r> chr(<n1>) chr(<n2>) ESC je ascii 27 (#1B) r je rezolucija i ako je "K" (#4B) - single density, 60dpi "L" (#4C) - double density, 120dpi "Y" (#59) - high speed double density, 120dpi "Z" (#5A) - Quadruple density, 240dpi n1 i n2 predstavljaju broj bajtova koji cine jedan red slike. n1 je donji a n2 gornji bajt duzine. Ako je x broj bajtova onda je n1 = x mod 256 n2 = x div 256 primer: ako je broj bajtova 816, n1 ce biti 128, a n2 ce biti 7 Dakle, posaljes odgovarajucu komandu za rezoluciju, dva bajta koji odredjuju broj bajtova koji ce biti stampani, a iza toga onoliko bajtova kojiko si rekao da ces poslati, a koji cine informaciju o slici. Iako je stampac devetopinski, deveti (najdonji) pin se ne koristi za stampanje grafike. Pored svega treba malo eksperimentisati sa razmakom ismedju linija da bi se redovi grafike poklopili, no to ces vec prokljuviti i sam. Ima jos jedna komanda: ESC * m n1 n2 sve je slicno prethonim, sam sto sada m odredjuje rezoluciju. m moze imati dekane vrednosti (slati kao ASCII): ASCII Opis Rezolucija Max broj kolona u redu ============================================================== 0 single density 60dpi 480cpl 1 double density, 120dpi 960cpl 2 hi speed double 120dpi 960cpl 3 quadruple 240dpi 1920cpl 4 CRT Screen 80dpi 640cpl 5 One-to-one 72dpi 576cpl 6 hi-res CRT 90dpi 720cpl 7 Two-on-one 144dpi 1152cpl ============================================================== dpi - dots per inch (broj tacaka po incu) cpl - columns per line (broj kolona po liniji) AB> BTW. U kojem jeziku programiras (ako :)) ? Primeri koje imam u prirucniku su u bejziku (bljak)... Eto, nadam se da ti je i ovo bilo dovoljno. Pedja ... BR> Ja sam jedan ostavljeni tag... Ona me vise ne voli. :~( * Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.202 postmast,
From: Dragan.Levic%f119.n111.z38@setnet.setnet.co.yu (Dragan Levic) Subject: Re: Zastita programa Date: Sun, 12 Nov 1995 17:34:00 -=> Quoting Predrag Supurovic to Dragan Levic <=- PS> Dragan Levic said: DL> Da li je moguce napraviti u Paskalu takvu zastitu nekog programa da DL> ako korisnik programa (da li ste mu instalaciju nekog skupog programa DL> pa necete da mu dozvolite da je rasiri dalje) hoce da program presnimi DL> program na disketu/diskete zastita automatski obrise *.exe fajlove tog DL> programa (recimo da je ceo program u jednom direktorijumu)? PS> Nisam sasvim siguran da li si mislio na zastitu programa koji si ti PS> pisao ili zastitu programa koji si mu samo instalirao pa ne zelis da PS> moze da ga kopira dalje? Da hocu da zastitim program koji sam ja sam pisao ne bi bilo nikakvih problema ali posto to nije moj program vec samo program koji ja treba da instaliram na disk i sprecim korisnika od daljeg sirenja programa (presnimavanja). A sto se tice drugih mera to nije potrebno ja samo hocu da unistim dati program, a ne celi disk! CUL8R ... MSDOS - MicroSoft's Destruction Of System. * Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.203 atech, -> #202, postmast
> Da hocu da zastitim program koji sam ja sam pisao ne bi bilo > nikakvih problema ali posto to nije moj program vec samo > program koji ja treba da instaliram na disk i sprecim korisnika > od daljeg sirenja programa (presnimavanja). A sto se tice PC GUARD V2.11 (c) 1994/95 Angel Technology All Rights Reserved Profesionalni Program Za Zastitu Softvera ZASTITA IZVRSNIH PROGRAMA (DOS) ──────────────────────────────────────────────────────────────────── Dva tipa zastite izvrsnih programa (ENVELOPE I LOADER). Cetiri metode zastite. CODE: uz pomoc indentifikacionog broja program radi samo na jednom racunaru. AUTO: automatska instalacija na odgovarajucem racunaru. Posle prvog pokretanja zasticeni program radi samo na tom racunaru. NOIC: Bez ikakve identifikacije racunara (pogodno za SW programe). DEMO: vremensko i(ili) datumsko ogranicenje rada zasticenih programa. Zastita vasih programa od nelegalne upotrebe. Zastita vasih programa od izmena. Zastita vasih programa od pregleda i analize koda. Zastita od koriscenja programa na neodgovarajucem racunaru. Dve metode identifikacije racunara (BIOS/IDE drajv). Mogucnost pravljena Demo verzija vasih programa. Vremenska i datumska ogranicenja rada vasih programa. (AmG) Mutation enGine. Nijedan zastitni sloj nije isti. Zastita velikih DOS programa sa internim overlejima! Preko 20 novih opcija za podesavanje parametara rada. Generisanje kompletnih izvestaja o zasticenim programima. PROGRAM ZA KREIRANJE I ZASTITU INSTALACIONIH DISKETA ──────────────────────────────────────────────────────────────────── Tri metode izrade instalacionih disketa (AUTO, CODE i NOIC) sa istim karakteristikama kao i kod programa za zastitu izvrsnih programa. Zastita od upotrebe na neodgovarajucem racunaru. Sifrovanje svih instaliranih programa. Ogranicenje broja instalacija. Generisanje kompletnih izvestaja o izradjenim disketama. Specijalni program za instalaciju sa diskete na hard disk. PROGRAM ZA INSTALACIJU SA DISKETE NA HARD DISK ──────────────────────────────────────────────────────────────────── Koristi sifrovane podatke o broju instalacija, osobi na koju je program licenciran, ciljnom direktorijumu i opisu vaseg programa. Ne dozvoljava instalaciju na neodgovarajucem racunaru. Vodi evidenciju o broju instalacija. Vrsi desifrovanje fajlova sa instalacione diskete i kopira ih u ciljni direktorijum. Mogucnost menjanja ciljnog direktorijuma. Jednostavan za upotrebu. ZASTO BAS PC GUARD? ──────────────────────────────────────────────────────────────────── Nisu vam potrebni nikakvi hardverski dodaci. Zastita jaca od hard lock-a!. Neogranicena upotreba bez bilo kakvih dodatnih ulaganja u hardver. Program za sifrovanje datoteka (HIDEIT). Program za identifikaciju racunara SYSTEM/BIOS/IDE/EXE (GUARDID). Program za konverziju Com programa u Exe programe (COMEXE). Program je testiran na velikom broju razlicitih konfiguracija. Ako je vas program dobar onda je dovoljno dobar da bi bio piratovan. Sprecite piratovanje vaseg softvera! User Friendly 100% Assembly language! Povoljne cene! Dilerski popusti Besplatna tehnicka podrska Besplatan upgrade Namenjen svima koji se bave izradom i prodajom softvera Sve dodatne informacije mozete dobiti na tel. 011/8171-179 ili na sledecim e-mail adresama: atech@sezam.co.yu atech@osmeh.fon.bg.ac.yu
pascal.204 vitez.koja, -> #186, postmast
#=> "V<> Treba mi nesto da iz DOS programa predem u #=> Windowse. Tj. program "V<> treba da simulira pritisak na #=> Alt+Tab. Pokusaj sa rutinicom koja simulira pritisak #=> tastera. Ako je nemas poslacu ti je. Zanimljiva ideja, ali mislim da neće da radi. Da li je neko pokušao?