pascal.819vvelisavljev,
Može li neko da napiše kako se koristi TStream object iz TV-a?
pascal.820janko,
-> #817, mikrom
--- START CUT HERE --
/*
File: Numer.awk
>
> Na početku svakog novog pasusa koji ne počinje određenim
> znakom generiše njegov redni broj (redni broj pasusa)
>
> Svi pasusi su razdvojeni praznim redom, tekst je ASCII
>
+ je znak koji oznacava linije za numerisanje
numerisu se prve linije oznacenih pasusa po broju takvih pasusa
(p) Janko Stamenovic, 1995.
Uputstvo:
1) Skinuti program AWK koji je uz poruku i otpakovati AWK.EXE
2) Izeci tekst ove poruke i snimiti kao ascii fajl NUMER.AWK
3) Od polazne datoteke dobija se zahtevana sa naredbom:
AWK numer.awk <imeuldat >imeizdat
Sva pitanja na mail
*/
BEGIN { empty= 1;
num = 1
}
{
if ( empty==1 && NF>0 && substr($1,1,1)=="+")
{
printf("%d %s\n",num++,substr($0,2));
empty==0;
}
else
{
empty = (NF==0);
print $0
}
}
--- END CUT HERE ---
awk300.zippascal.821janko,
-> #817, mikrom
U mojoj prethodnoj poruci linije komentara imaju pogrešnu oznaku.
Takođe, posle printf umesto empty==0 treba da stoji empty=0 (ali
ne utiče na izvršavanje, zanimljivo, po postavljenim uslovima :) )
Dakle, ili izbaciti sve linije komentara iz NUMER.AWK ili linije tipa
/*
komentar
komentar
*/
prepraviti na
# komentar
# komentar
Program (bez komentara) je:
------ iseći i snimiti pod imenom numer.awk --
BEGIN { empty= 1;
num = 1
}
{
if ( empty==1 && NF>0 && substr($1,1,1)=="+")
{
printf("%d %s\n",num++,substr($0,2));
empty=0;
}
else
{
empty = (NF==0);
print $0
}
}
------ dovde --------
pascal.822postmast,
From: Vladimir.Svrkota@f119.n111.z38.setnet.setnet.co.yu (Vladimir Svrkota)
Subject: Interrupt
Date: Thu, 10 Aug 1995 18:16:01
MS> Kako osloboditi memoriju mozete naci u poruci FROM: Andrej Turza
MS> Ako je nemate (?) ja cu vam poslati njegovu proceduru (provjereno radi
MS> i to bez problema i nekih prerada).
Saaaljiiiiiiiiiii!!!!!! :)
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.823postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: Fontovi za TP
Date: Sun, 13 Aug 1995 03:51:01
VMZ>> ?? Ja sam najozbiljniji, ako imas opis formata prosledi mi, pa cu
VMZ>> nesto vec napraviti.
PS> Nemam ga, i to zato sto kad sam ga locirao, ispalo je da je
PS> dokumentacija predugacka (cini mi se preko 1MB) da bih je
PS> pokupio modemom.
PS> Da li si nekad razmisljao da nabavis opis formata CDR-a da bi
PS> mogao da napravis neki konvertor? Konverzija TTF-a u Borlandov
PS> font je grubo receno, isto toliko komplikovana kao konverzija
PS> CDR-a u neki bitmapirani oblik.
Pa naravno da je komplikovana, ali je MOGUCE. Dovoljno je da jednom coveku
podje za rukom da to uradi, i svi ce moci to da koriste (osim ako se
ovaj ne odluci da zabiberi cenu ;). Valjda bi neko od nas ovoliko ovde
(ili zajedno) uspeo da uradi te konvertore ...
__ Pozdrav from Vladimir __
... Mail Media. Do not expose to Flames!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.824evlad,
-> #747, postmastTo: enikcevv@galeb.etf.bg.ac.yu (Vladimir Nikcevic)
<> Da me mlade generacije ;-) ne shvate pogresno, ne kazem da je
<> goreopisana prica nesto LOSE. Samo kazem da moja malenkost takvo sta
<> NIKADA ne bi uradila. Valjda sam bio jasan i zasto.
Ima istine u tome, ali ne može pojedinac protiv složnog kolektiva.
Nismo džabe _braća po tastauri_ ;>
Zezancije će uvek biti, samo treba imati meru da se ne pravi šteta !!!
(sorry za delay bio sam odsutan)
pascal.825evlad,
-> #753, kriss<> ˙˙ napravljen mali programčić (u paskalu) koji se zvao baš B.EXE.
<> Heh, ču li ti za alfa-petlju? :))
Sad ću da lupim :>
NE
pascal.826nlazic,
-> #818, visnja*> Ja sam SVE preveo i SVE radi. Ako izmeniš i prevedeš jednan UNIT,
*> moraš prevesti i sve UNIT-e koji koriste taj i sve koji su u vezi
*> sa novoprevedenim UNIT-ima.
Znam za to, tako sam i ja radio. Moguće je da je u pitanju neka
banalna stvar, ali jedan prijatelj mi se žalio da mu ista stvar ne radi u
TV za C (čini mi se da je TC2.0, al' nisam siguran). Konkretno, reč je o
File Open dijalogu, koji mi dozvoljava da se "šetam" samo kroz direktorijum
iz kog je program startovan i kroz onaj ispod njega. U negi treci dir. nema
šanse da se pređe. Pošto je stvar bila hitna (kao i uvek, zar ne :),
problem sam rešio tako što sam preveo dotičnu datoteku iz RTL-a za TP 6.0
(TV 1.0).
Pozdrav,
:) Nebojša :)
pascal.827postmast,
From: vladimir.manic@rstones.durlan.co.yu (Vladimir Manic)
Subject: Direktan pristup memoriji
Date: Wed, 16 Aug 1995 01:23:00 CET
QWK To: All
Kako se vrsi direktan pristup memorijskoj lokaciji (citanje i pisanje)
iz protected moda u BP7 ili ASM? Poslati i sors
Vlada
moze i na mail
manic@lucid.junis.ni.ac.yu
--- Maximus 2.02
* Origin: Rolling Stones BBS * YUInt - NiNet - U'NI-net -
FidoNet (2:382/105.5)
#! rnews 1131
pascal.828postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: Fontovi za TP
Date: Mon, 14 Aug 1995 17:31:14
*** CITAT : Predrag Supurovic ***
PS> Konverzija TTF-a u Borlandov font je grubo receno ...
Eh, ovako : pre jedno dve godine sam imao neki source za koriscenje ChiWri
fontova u TP. Jest' da nije TTF al' ipak ih ima na kile.
Ako ste zainteresovani, prekopacu malo po kuci da ih nadjem ...
... PC - Pocket Calc. (except Pentium,nothing makes mistakes that big)
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.829postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: Interrupt
Date: Mon, 14 Aug 1995 17:31:19
*** CITAT : Vladimir Svrkota ***
VS> Saaaljiiiiiiiiiii!!!!!! :)
OK, evo vam njegova procedura pa eksperimentisite :
Procedure UnLoad; {by Andrej Turza}
Type MCB = Record
Tok : Byte;
PID, Size : Word;
End;
Var Blk : ^MCB;
Adr : ^Word;
R : Registers;
Begin
R.AH := $52;
MsDos(R);
Adr := Ptr(R.ES, R.BX-2);
Blk := Ptr(Adr^, 0);
Repeat
If (Blk^.PID = PrefixSeg) then
Begin
R.AH := $49;
R.ES := Seg(Blk^)+1;
MsDos(R);
End;
If (Blk^.Tok = $4D) Then
Blk := Ptr(Blk^.Size+Seg(Blk^)+1, 0)
Else
Blk := nil;
Until (Blk=nil);
End;
P.S. VAZNO !!! Proceduru MORA pokrenuti rezidentni program (znaci ako 'ocete
da se deinstalira iz komandne linije morate nekako "natjerati" TSR
program da sam izvrsi proceduru : upisete na neku mem. lokaciju neku
vrednost pa izvrsite interapt na koji ste zakacili program, on procita
vrednost i pozove proceduru).
... MSDOS - MicroSoft's Destruction Of System.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.830postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: Fontovi za TP
Date: Tue, 15 Aug 1995 23:04:00
PS> Hoces li hint? Postoji gotov program koji TTF konvertuje u
PS> WINDOWS bitmapirani font. Znas, onaj sto od TTF-a pravi sistemski
PS> font za Windows okruzenje. Iz bitmapiranog WINDOWS fonta je vec
PS> mnogo lakse konvertovati, mada i za njega treba provaliti format.
Ipak mislim da je lakse uraditi konvertor komplikovanog formata ako
postoji objasnjenje, nego provaliti nepoznat format. Postoji milion
nacina da se font zapise i kompresuje...
Naravno, ako se moze naci opis BM fonta onda je lakse u svakom slucaju.
__ Pozdrav from Vladimir __
... Strike it RICH, with Silver Xpress!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.831postmast,
From: Vladimir.M.Zivkovic@f119.n111.z38.setnet.setnet.co.yu (Vladimir M Zivkovic)
Subject: Re: pascal
Date: Tue, 15 Aug 1995 23:04:01
"N> Hitno mi treba program koji radi nesto otprilike ovako :
"N> - ucitava .mod fajl i sve vrednosti koje procita iz fajla ( vrednost
"N> frenkfence, vred. koju dodeljujemo naredbi sound(x) ) da pise u neku
"N> textualnu datoteku npr. mod001.txt
"N>
"N> - tako da se ova datoteka moze pregledati obicnim editorom
"N> - jos bolje bi bilo kad bi ovako nesto imalo za .wav datoteke (ili
"N> snd,voc)
Teoretski moguce, ali prakticno, ... to se vec granici sa 'naucnom
fantastikom'. Ovo za MOD bi jos i bilo izvodljivo kada bi rekao konkretno
za sta ti treba, ali za semplove NIKAKO. Nemoj se ni truditi da to nadjes
jer sigurno ne postoji :(
__ Pozdrav from Vladimir __
... Silver Xpress!...... Don't leave home without it!
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.832mikrom,
-> #820, janko▄─ numerisu se prve linije oznacenih pasusa po broju takvih pasusa
▄─ (p) Janko Stamenovic, 1995.
Najlepše se zahvaljujem na uloženom trudu,
takođe se zahvaljujem i svim ostalima koji
su mi se javljali i pomogli da rešim problem.
pascal.833andrejt,
-> #829, postmastTo: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subj: Re: Interrupt
Q> P.S. VAZNO !!! Proceduru MORA pokrenuti rezidentni program (znaci ako
Ne mora... Stavi Procedure Unload(PSeg : Word); i zameni PrefixSeg
u proceduri sa PSeg i brisace program sa potpisom PSeg.
pascal.834visnja,
-> #826, nlazic> TV za C (čini mi se da je TC2.0, al' nisam siguran). Konkretno,
> reč je o File Open dijalogu, koji mi dozvoljava da se "šetam"
> samo kroz direktorijum iz kog je program startovan i kroz onaj
> ispod njega. U negi treci dir. nema šanse da se pređe.
Nije TC2.0 kriv, isti BUG imam i u pascalu. Nisam ga ni resio. S'a ko
ima da mi se seta po disku :). Salim se, zavisi od aplikacije,
za ono sto sam ja pisao ne terba mi nikakva setnja po disku jer
korisnici mojih aplikacija i ne trebaju da znaju sta je DIR ili disk.
Pozdrav Visnja.
pascal.836postmast,
From: Knezovic.Bojan@f133.n103.z38.setnet.setnet.co.yu (Knezovic Bojan)
Subject: Delphi
Date: Wed, 16 Aug 1995 23:26:03
KA> 1) Kako da promenim ikonu u vecc gotovom programu *.dpr?
1) U View| Project Manager| Options imas Applications page. Tamo mozes da
setujes ikonu po izboru, naslov i hejlp fajl(.hlp)
KA> 2) Dali u Beogradu postoji CD Delphi-ja na kojem je
KA> i uputstvo u elektronskoj formi? U Delphi-ju u kome
KA> ja sad poccinjem, postoji Interactive Tutor, koji je
KA> veoma skroman.
Sve zavisi sta mislis kada kazes "uputstvo u elektronskoj formi" Ja imam i
nekih 15 MB .pdf (Adobe Acrobat) fajlova koji su takodje neka vrsta
Help-a. Ako to nemas, potrudi se da nabavis - naravno uz Adobe Acrobat
Reader.
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.837postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: pascal
Date: Thu, 17 Aug 1995 00:19:24
*** CITAT : "Viktor Velisavljev" ***
"V> Sta je i gde moze da se nabavi RTL?
RTL = Run Time Libs (ma sourcevi, korisno).
Dobijes na 11. disketi borland pascala V7.
... Ma kakav crni tag?
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.838postmast,
From: Vladimir.Svrkota@f119.n111.z38.setnet.setnet.co.yu (Vladimir Svrkota)
Subject: Fontovi za TP
Date: Wed, 16 Aug 1995 16:26:00
MS> Eh, ovako : pre jedno dve godine sam imao neki source za koriscenje
MS> ChiWri fontova u TP. Jest' da nije TTF al' ipak ih ima na kile.
MS> Ako ste zainteresovani, prekopacu malo po kuci da ih nadjem ...
Zainteresovani smo, pa ti malo prekopaj po kuci :)
... The Truth Is Out There...
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.839isekulovic,
Jel moguće nekako u Delphiu iskombinovati SQL query i table
tako da se ima grid sa nekim poljima baze, a da sa strane budu
polja koja će samo za selektovani slog u gridu davati ostala
polja. Otprilike kao u primerima dbaware s tim što je tamo
za grid korišćena sva polja, odnosno nije se išlo preko sql-a.
Koliko se meni čini stvar je u kako namestiti DataSet DataSource
ne samo na query ili table već na oba istovremeno, ali nisam
uspeo išta da uradim.
ivan
ps Može li se namestiti da se po gridu ne može šetati kursorima
po poljima već samo po slogovima?
pascal.840postmast,
From: mboris@setnet.co.yu (Boris Milinkovic)
Subject: seminarski iz paskala
Date: Sat, 19 Aug 1995 04:21:50
Treba mi "mala" pomoc.
Jedan kolega sa faks-a me zamolio da mu napisem seminarski
rad. Kako ja nemam vremena (a i mrzi me, samo nisam mogao da ga
odbijem:), da li neko ima program u pascalu koji odgovara
sledecim zahtevima:
1. koristi datoteke
2. koristi pointere
3. nije mnogo dugacak
4. normalno je dokumentovan.
5. radi bilo sta sto se vidi da radi
Unapred hvala.
Ko je raspolozen svoje radove moze da salje u mail ili u konf.
Pozdrav,
Boris Milinkovic | InterNet E-Mail | mboris@fon.fon.bg.ac.yu
from Bajina Basta | YUInterNet E-Mail | mboris@setnet.co.yu
Jos jednom hvala :))
... This tagline is SHAREWARE! To register, send me $10
* Origin: Oreska BBS, UZICE = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.841postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: seminarski iz paskala
Date: Sat, 19 Aug 1995 17:52:48
==== Boris Milinkovic rece: ======================================
BM> Jedan kolega sa faks-a me zamolio da mu napisem seminarski
BM> rad. Kako ja nemam vremena (a i mrzi me, samo nisam mogao da ga
BM> odbijem:), da li neko ima program u pascalu koji odgovara
BM> sledecim zahtevima:
Dao bih ti ja par, ali su vec par puta upotrebljavani kao
seminarski na FON-u - prepoznace neko :)))))
... BR> Oreska BBS, Uzice, 031 28276 = 23:00-09:00
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.842vitez.koja,
-> #839, isekulovic#=> ps Može li se namestiti da se po gridu ne može šetati
#=> kursorima po poljima već samo po slogovima?
Može. Pogledaj pod properties, ima prilično logično nazvana
stavka.
pascal.843pyramid,
-> #839, isekulovic>> Jel moguce nekako u Delphiu iskombinovati SQL query i table
>> tako da se ima grid sa nekim poljima baze, a da sa strane budu
>> polja koja ce samo za selektovani slog u gridu davati ostala
>> polja. Otprilike kao u primerima dbaware s tim sto je tamo
>> za grid koriscena sva polja, odnosno nije se islo preko sql-a.
Moguce je. Koristis property SelectedField i to ovako:
DBTable1.SelectedField.AsString
ili ako koristis opciju koja ti selektuje ceo red (a to se postize
postavljanjem property-ja Options.SelectRow (ili tako nekako) onda mozes
koristiti Fields ili metod FieldByName. Opis polja sadrzi i trenutnu vrednost
selektovanog reda.
E sad kako sve to ukomponovati? Postavis Query (ili Table) i na prethodni nacin
nadjes kakav je uslov za vrsenje upita. U Query koji treba da prikaze sve
slogove treba u property SQL upisati SQL naredbu (ili skup naredbi) koja ce to
uciniti. To se moze uciniti na sled. nacin:
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('SELECT polje1, polje2, poljeN FROM table1, table2, tableN WHICH
polje1=:uslov');
Query2.Params[0].AsString:=Query1.FieldByName('fieldX').AsString;
Query2.Open;
to bi bilo otprilike tako.
Gore se potkrala greska (on-line pa ne mogu ispraviti) treba umesto DBTable1 da
pise DBGrid1....
pascal.844pyramid,
Da li neko zna kako u DELPHI-ju da se uradi trazenje (neki SEEK klipera) nad
DBGrid-om koji je u vezi sa SQL query-jem? Osnovni problem je sto ne mogu
nikako grid-u reci da selektuje neki red koji zadovoljava odredjeni uslov.
pascal.845vlador,
Evo nečega što bi svim "paskalovcima" vrlo lako moglo biti od velike
koristi - TPU sa objektom za rad sa .INI fajlovima. Podržani su
komentari (sav tekst iza znaka ';'), sekcije (string između srednjih
zagrada) i promenljive u formatu XXX=YYY.
TPU je za TP7. Ako nekom treba stariji, neka javi pa ćemo probati da
nađemo stariji kompajler. :)
engini.zippascal.846max.headroom,
Hmh, skoro sam poceo da cackam po Delphi-ju, i ustanovio sam da se
stvar prilicno razlikuje od moje omiljene radne sredine - FoxPro-a
(vise no ocigledno). Kao DBase-alike programer, namucio sam se
oko sledeceg:
* Postoji li nacin da nekom DB polju pridodelim format, tj.
odredim mu masku za unos (npr. tel. broj: (999) 999-9999...)?
Jedino sto sam do sada pronasao jeste EditMask property tog polja,
koja sa navedenim kontrolnim kodovima vrsi posao. Medjutim, zasto te
EditMask prop. nema u Object Inspector-u (Properties page), pri
aktiviranju DBEdit-a? I kako da ga tamo umetnem?
* Drugi problem se nadovezuje na prvi - ako unesem vrednost koja
ne odgovara zadatom tipu polja (npr. unesem pogresan datum u polje
Date tipa), javlja se greska. Dobro, do sada sam ukapirao da je u
pitanju Exception. Medjutim, neznam kako da aktiviram tu svoju
exception rutinu, kada i gde da je aktiviram, i kako bi
ona vec izgledala...
Help :)
pascal.847postmast,
From: Stevan.Dejanovic@f119.n111.z38.setnet.setnet.co.yu (Stevan Dejanovic)
Subject: Re: HideCursor
Date: Sat, 19 Aug 1995 19:16:00
Stevan is replying to Andrej who replied to All on 19 Aug 95 12:40am
AM> Kako da u tp60 sakrijem kursor (ne strelicu misa) ?
AM> Postoji procedura TView.HideCursor, ali ne radi posao ...?
Imas na Ecstasy-ju unit zove se TPW60 (Turbo Pascal Windows),
tu ces naci funkciju HideCursor; koja radi ono sto ti treba.
Mad Dog
... Hello? Andrej Are you there? Earth to Andrej ? Hello?
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.848postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: pascal
Date: Sun, 20 Aug 1995 00:09:56
*** CITAT : Vladimir M Zivkovic ***
"N> - ucitava .mod fajl i sve vrednosti koje procita iz fajla ( vrednost
"N> - jos bolje bi bilo kad bi ovako nesto imalo za .wav datoteke (ili
VMZ> Teoretski moguce, ali prakticno, ... to se vec granici sa 'naucnom
Ako sam dobro shvatio covek hoce ovo:
da za SVAKU promenu frek. upisem po jedan red tipa SOUND(XXXX) ...
Nadam se da nisam dobro shvatio jer je to i teorijski tesko izvodivo ...
Prvi razlog:
Uzmimo da je sempl 8-bitni i da zauzima 6Kb.
Svaki bajt se transformise u SOUND(XXXX) jer je mala vjerovatnoca da su
dva susjedna bajta istovetna. Kako SOUND(XXXX) zauzima 13 bajtova tako bi
i tvoj sempl zauzimao 78Kb. Sad izracunaj koliko je to za sempl (WAV) od
stotinjak kilobajta :(
Drugi razlog:
Takav fajl je apsolutno necitak :
SOUND(0454)
SOUND(1288)
SOUND(0996)
...
Stvarno ne znam sta ocekujes od toga(?!)
Treci razlog:
Vezan za module: problem se svodi kako od modula napraviti sempl.
Odgovore na to pitanje mozees naci u prethodnim porukama(ukratko:teeeskoo).
pozdrav iz BanjaLuke
... Sum na vezi omogucila PTT RS
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.849postmast,
From: Andrej.Micic@f119.n111.z38.setnet.setnet.co.yu (Andrej Micic)
Subject: HideCursor
Date: Sat, 19 Aug 1995 01:40:00
Kako da u tp60 sakrijem kursor (ne strelicu misa) ?
Postoji procedura TView.HideCursor, ali ne radi posao ...?
* Origin: ECSTASY BBS * Indjija * 022 53-884 * SETNet: (38:111/119)
pascal.850postmast,
From: Kliment.Andreev@f108.n108.z38.setnet.setnet.co.yu (Kliment Andreev)
Subject: Delphi
Date: Wed, 23 Aug 1995 23:08:34
KB> Sve zavisi sta mislis kada kazes "uputstvo u elektronskoj formi" Ja imam i
KB> nekih 15 MB .pdf (Adobe Acrobat) fajlova koji su takodje neka vrsta
KB> Help-a. Ako to nemas, potrudi se da nabavis - naravno uz Adobe Acrobat
KB> Reader.
Puno hvala na odgovoru. A jel' *.pdf help, Borlandov ili nekog
nezavisnog prozvodjaca? I jos jedno pitanje. U deklaraciji
type Form1=class(TForm) dodao sam i svoju proceduru
....
procedure Button1Click(Sender: TObject);
procedure xyz(Sender: TObject); {Ovo je moja procedura}....
....
procedure xyz(Sender: TObject);
begin
Button1.Caption:='trt-mrt';
end;
Kako da pozovem ovu proceduru?
10x
Chombe KAN
■ OLX 2.1 TD ■ Me jap burek me mish dhe jogurti! - Falimenderit!
-+- OLMS 2.5 UNREG
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.851postmast,
From: sigma@setnet.co.yu (Sebastian Adanko)
Subject: HideCursor
Date: Tue, 22 Aug 1995 20:00:21
< Reply to this message, please, Andrej >
AM> Kako da u tp60 sakrijem kursor (ne strelicu misa) ?
AM> Postoji procedura TView.HideCursor, ali ne radi posao ...?
Ako imash MDA, CGA ili VGA, onda ce ovo sledece da radi za
tekstualni mod (ako ti za njega treba). Ako imas neku drugu
karticu, probaj pa javi. ;)
asm
mov ah,1
mov ch,20h
int 10h
end;
eto... to ubacish gde ti treba, ili napravis od toga proceduru u
unit-u (kao sto ja uradih) i reshen problem. :)
pHL^vBc^sBHs
... Take This 'Conference' and Shove It.
* Origin: SETNet-ICM Digital BBS * Subotica * (024)51-212 * (38:111/118)
pascal.852gtomic,
Subject: Prikaz .PCX i .BMP fajlova i horizontalno skrolovanje ekrana
u grafičkom modu
Da li neko ima source za prikaz PCX ili BMP fajlova u formatu 640x480x16.
Takodje mi je potreban source za horizontalno skrolovanje ekrana u istoj
rezoluciji.
Probao sam da izvedem utisak skrolovanja sa naredbama GetImage i PutImage
u levo, stim što se deo ekrana za koji se slika pomeri u levo ponovo
iscrta. Ovo mi je sve suviše sporo.
Potrebno mi je za diplomski, pa ako neko ima neki hint ili source neka
mi se javi.
Pozdrav,
Vladan Obradović
pascal.853kriss,
-> #845, vlador˙˙ TPU je za TP7. Ako nekom treba stariji, neka javi pa ćemo
˙˙ probati da nađemo stariji kompajler. :)
Treba za TP 6.0. Ima kod mene. :)
pascal.854uobradovic,
Hi !
Zanima me sledeće:
- koliko je Delphi bolji u odnosu na tp70
- koliko megabajta zauzima
- da li ga vredi uzimati ...........
Uroš
pascal.855vlador,
-> #853, kriss> Treba za TP 6.0. Ima kod mene. :)
Fataj.
engini60.zippascal.856galimpic,
Osnovana je grupa DELPHI. Zainteresovani mogu da se jave na mail.
pascal.857djelovic,
> Osnovana je grupa DELPHI. Zainteresovani mogu da se jave na mail.
A sta fali ovoj temi? :)
pascal.858vojas,
-> #834, visnja> Nije TC2.0 kriv, isti BUG imam i u pascalu. Nisam ga ni resio. S'a ko
BUG se nalazi u funkciji RelativePath u unitu STDDLG. Red koji glasi:
RelativePath := not (S <> '') and ((S[1] = '\') or (S[2] = ':'));
treba da glasi:
RelativePath := not ((S <> '') and ((S[1] = '\') or (S[2] = ':')));
Eto, šta učini jedan par zagrada.
Pozdrav,
Heechee of the Ancients
pascal.859vojas,
-> #846, max.headroom> pitanju Exception. Medjutim, neznam kako da aktiviram tu svoju
> exception rutinu, kada i gde da je aktiviram, i kako bi
Probaj ovako:
try
nešto
except
on exception do
greška
Nisam siguran da li je baš tako, nije mi ovde PC br. 3, u njemu
imaš primer exception mehanizma.
Pozdrav,
Heechee of the Ancients
pascal.860vojas,
Ima li neke šanse za nabavljanje Delphi-ja na _disketama_ a ne na CD-u.
Heechee of the Ancients
pascal.861vitez.koja,
-> #854, uobradovic#=> - koliko je Delphi bolji u odnosu na tp70
217,46% ;)
#=> - koliko megabajta zauzima
55.
#=> - da li ga vredi uzimati ...........
Da.
pascal.862dbosanac,
Imam jedno pitanje u vezi sa Delphi-jem
Kako startovati neki izvršni program
iz svog programa?
Dejan
pascal.863vlador,
Ima li nagoveštaja o Delphiju 95?
pascal.864nlazic,
-> #862, dbosanac*> Imam jedno pitanje u vezi sa Delphi-jem
*> Kako startovati neki izvršni program
*> iz svog programa?
API funkcijom WinExec. Prvi parametar je pun naziv programa (sa sve
putanjom i parametrima), a drugi je kako da se taj program startuje
(minimizovan, normalan...). Pogledaj API help za detalje.
Pozdrav,
:) Nebojša :)
pascal.865mastermind,
-> #862, dbosanacZa delphi ne znam...
ali u običnom pascalu je pomoću EXEC(<ime izvršnog fajla>,<parametri>)
i moraš da smanjiš stek...
Í─Ď─┐ Í─Ď─┐
║ ║ │aster║ ║ │ind
đ đ ┴ đ đ ┴
pascal.866galimpic,
-> #857, djelovic> > Osnovana je grupa DELPHI. Zainteresovani mogu da se jave na mail.
>
> A sta fali ovoj temi? :)
Ne fali joj ništa, ali valjda i sam iz iskustva znaš da je u grupama uvek mnogo
zanimljivije nego u conf. Možda zbog toga što tvoje poruke čita max desetak
ljudi, pa je atmosfera opuštenija. Uostalom, već mi se javilo dosta
interesenata. Ubacio sam i tebe, nadam se da ćeš ostati.
pascal.867djelovic,
-> #866, galimpic> Ne fali joj ništa, ali valjda i sam iz iskustva znaš da je u grupama uvek
> mnogo zanimljivije nego u conf.
Da, prva dva dana :). Posle toga obicno grupe dozive polaku smrt :(. Neces
verovati, ali clan sam u jedno dvadesetak grupa i tvoja poruka je prva posle X
meseci.
pascal.868mminovic,
Hi!
Bas me zanima ima li neko ideju zasto me ovaj glupavi kompjuter
zajebava.
Problem glasi ovako:
Ako iz procedure pozovem neku drugu proceduru,sve je ok,druga
procedura odradi sta ima i vrati kontrolu prvoj.
Medjutim,ako u toj drugoj proceduri dodam samo:
'imefajla:=imefirme[1]+'.dat';
onda se druga procedura odradi do kraja,ali ne vrati kontrolu prvoj
vec mi blokira kompjuter(ponekad pisti,ponekad resetuje,ponekad mi
zabrlja neke fajlove).
Jos informacija:koristim DoubleSpace ,program radi u grafickom
okruzenju.
Posle te izjave imefajla mogu da napisem neki deo koji konkretno radi
sa datotekama i to ce korektno da odradi,ali po zavrsetku druge
funkcije sve staje!
Ima li neko ideju?!
Pozdrav,od ocajnog
Mindze.
pascal.869dpredovic,
-> #846, max.headroomSubject: Re: Delphi
> EditMask prop. nema u Object Inspector-u (Properties page), pri
> aktiviranju DBEdit-a? I kako da ga tamo umetnem?
Nema potrebe, lakše je srediti editmask za TField.
> * Drugi problem se nadovezuje na prvi - ako unesem vrednost koja
> ne odgovara zadatom tipu polja (npr. unesem pogresan datum u polje
> Date tipa), javlja se greska. Dobro, do sada sam ukapirao da je u
Ubaciš u onchange event za dbedit:
txt:=editor.text;
len:=length(txt);
if not polje.isvalidchar(txtŠlenĆ) then
editor.text:=copy(txt,1,len-1);
PS. Tako sam se i ja osećao kad sam probao da čačkam po fox-u, posle
clippera... ;))
pascal.870zeljkoj,
-> #867, djelovic> Da, prva dva dana :). Posle toga obicno grupe dozive polaku
> smrt :(. Neces verovati, ali clan sam u jedno dvadesetak grupa
> i tvoja poruka je prva posle X meseci.
A ima i grupa u koje već više od godinu dana redovno stižu poruke, s tim
što se povremeno diskusija toliko 'razbukti' da počne da stiže i više od
100 poruka dnevno.
pascal.871postmast,
From: Mihajlo.Savic@f135.n135.z38.setnet.setnet.co.yu (Mihajlo Savic)
Subject: Re: HideCursor
Date: Thu, 24 Aug 1995 23:24:10
*** CITAT : Stevan Dejanovic ***
AM> Kako da u tp60 sakrijem kursor (ne strelicu misa) ?
Imas i funkciju nekog interapta (pogledaj TechHelp, ili neki NG) kojom
mijenjas izgled kursora (podesis ga da je prazan). Ako ne znas/ne mozes
napisacu ti ja proceduru.
SD> Imas na Ecstasy-ju unit zove se TPW60 (Turbo Pascal Windows),
Sta jos ima u tom unitu?
... S poda ne mozes pasti.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.872uobradovic,
Da li Delphi može da se nabavi na disketama 5.25" i da
li ima neka knjiga o Delphi-ju.
Uroš
pascal.873bulaja,
-> #860, vojas│Ima li neke šanse za nabavljanje Delphi-ja na _disketama_ a ne na CD-u.
└───
Instalacioni CD ima poddirektorijume install/disk1, ... diskX,
koji sadrže (logično) image instalacionih disketa. :)
pascal.874max.headroom,
-> #869, dpredovic> Ubaciš u onchange event za dbedit:
Hm, tačno, to bi bilo to. Ali mislim da je postupak sa EditMask
primenljiviji u određenim situacijama, a i navikao sam na
PICTURE klauzulu pod Fox-om :)
(BTW, zašto bi se korisnik mučio sa ubacivanjem npr. tačaka
u datumskom polju?)
P.S.
Znaš li kako nekom prog. objektu koji se nalazi u Object Inspector-u
otvoriti novi property? Na primer, baš ovo mučenje sa maskom...
> PS. Tako sam se i ja osećao kad sam probao da čačkam po fox-u, posle
> clippera... ;))
:) Ali je uvek bilo ornih da pomognu onima koji prelaze u drugu veru.
Samo, Fox i Clipper su jednojajčani blizanci u odnosu na Fox i Delphi.
Bre, sa OOP-om se srećem po prvi put - do sada sam evente morao sam
da definišem i setujem :))
pascal.875max.headroom,
Au, problema: napravio sam sitnu aplikaciju koja koristi bazu
DBase IV tipa (sa indeksnim i memo poljima), i pokusao da je
startujem na masini na kojoj nije instaliran Delphi. Javlja mi
se Application Error, i to u fazonu "nemogu da pokrenem
Borland Database Engine". Zna li neko koje je sve fajlove
potrebno preneti zajedno sa EXE i DBF/DBT/MDX fajlovima da
bi aplikacija proradila?
pascal.876nlazic,
-> #875, max.headroom*> Borland Database Engine". Zna li neko koje je sve fajlove
*> potrebno preneti zajedno sa EXE i DBF/DBT/MDX fajlovima da
*> bi aplikacija proradila?
Ako koristiš baze, potrebno je da zajedno sa programom isporučiš
i Borland Database Engine. Ako radiš sa Report Smith-om, i on treba da je u
paketu sa programom (ne kompletan, samo run-time deo). Za detalje pogledaj
fajl \delphi\deploy.txt
Pozdrav,
:) Nebojša :)
pascal.877dr.urbano,
Zna li neko kako bi mogao da pustam semplove u pozadini (nezavisno od onog sto
program trenutno radi). Dali bi trebalo da se pise TSR rutina ? Ako je potrebna
TSR rutina kao se to pise u pascalu keep to ne radi bas najbolje.
Pozdrav !
P.S.
Znam da je TSR rutinama bilo reci ali se nista nije odredjeno reklo
pascal.878.sima,
-> #849, postmast> Kako da u tp60 sakrijem kursor (ne strelicu misa) ?
> Postoji procedura TView.HideCursor, ali ne radi posao ...?
procedure IskljuciKur;
var
regs: Registers;
begin
regs.ah:=1;
regs.ch:=$20;
intr($10, regs);
end;
procedure UkljuciKur;
var
regs: Registers;
begin
regs.ah:=1;
regs.ch:=11;
regs.cl:=12;
intr($10, regs);
end;
.sima
pascal.879mminovic,
Hi!
Napisao sam program,ocistio ga od buba, i sada ostade jedna,
ali nema sanse da je logicka(tj. moja:)
Naime zna li neko zasto je ovo ovako(ili bar ima ideju,ili pak
predlog) :
Evo sta se desava,zamislite obojen poligon preko celog ekrana i jos
tri
preko njega,onda u jednom postoji staticki tekst,a preko nekih
slova pisem ista ta slova ali u boji pozadine(nacin brisanja) i
onda opet izdajem podatke preko toga.
(hint : radi se u grafickom rezimu).
Ako izdajem vise od 25 puta,ekran prosto pocne da mi se pomera ne
gore,
i kako ja dodam nove podatke preko,tako se ekran pomeri na gore(i to
ne ceo,mali deo pri dnu ostane) i tako mi pokvari ceo program.
Zanimljivo je da ako posle ne stavim ClearDevice;
i ponovo zatrazim iste opcije,poligoni ce biti obojeni,ali kod prvog
izdavanja podataka ce se ekran opet pomerati.
Nije do kolicine video memorije(probano na 512K i na 2MB i isto).
Da li postoji neka naredba za setovanje necega sto bi moglo da utice
ili je ovo bug?
znaci ja fakticki pisem nekim fontom po ekranu,i posle odredjene
kolicine pisanja,pocne kao da se skroluje ekran.
Pomoc.
Pozdrav,
Mindza.
pascal.880dpredovic,
-> #875, max.headroomSubject: Re: BDE
> se Application Error, i to u fazonu "nemogu da pokrenem
> Borland Database Engine". Zna li neko koje je sve fajlove
> potrebno preneti zajedno sa EXE i DBF/DBT/MDX fajlovima da
> bi aplikacija proradila?
Kod mene je Delphi stigao u (15+2+5)*3,5 paketu. Ovo 2 je BDE Deployment
kit, a 5 je ReportSmith DK. Ako i kod tebe nije tako menjaj dobavljača ;)
BTW. kada smo već kod windows deploymenta, jel postoji neki univerzalni
install-maker za windowse ili ću morati sam da se zezam i sa tim? A možda
bi se vredelo zezati sa MS setup.exe i njegovim *.inf fajlom?
pascal.881dpredovic,
-> #874, max.headroom> Hm, tačno, to bi bilo to. Ali mislim da je postupak sa EditMask
> primenljiviji u određenim situacijama, a i navikao sam na
> PICTURE klauzulu pod Fox-om :)
Pa to ti kažem: reguliši editmask za TField, pa će on već da ga primeni
tamo gde treba... Ono iz prethodne poruke vredi za slučajeve gde tek
runtime znaš koje ti je polje u boxu (kojekakvi search boxovi etc.)
> Znaš li kako nekom prog. objektu koji se nalazi u Object Inspector-u
> otvoriti novi property? Na primer, baš ovo mučenje sa maskom...
Ne bi trebalo da bude previše problema. Napraviš novu komponentu koja
nasleđuje TDBEdit, i u properties gurneš EditMask. E sad, kako, kada
i gde bi to trebalo da se aktivira... Smislićemo ako ti baš treba... ;)
> Samo, Fox i Clipper su jednojajčani blizanci u odnosu na Fox i Delphi.
> Bre, sa OOP-om se srećem po prvi put - do sada sam evente morao sam
Pa to i nisam mogao da podnesem... Ne umem ništa više da napišem bez
objekata. Lokalne promenljive da i ne pominjem ;)
BTW Što se tiče foxovih fajlova pod delphijem - probaj kroz ODBC.
pascal.882.sima,
Hi
Da li je neko uspeo da u Borland Pascal-u 7.0 i Borland C-u 3.1
pokrene grafički mod u 256 boja. U helpu piše da se funkcija
setrgbpallete može koristiti za VGA u 256 i da MAXCOLORS daje 256.
Ali meni uvek daje 16.
Pozdrav
pascal.883max.headroom,
-> #876, nlazic> paketu sa programom (ne kompletan, samo run-time deo). Za detalje pogledaj
> fajl ĐdelphiĐdeploy.txt
U pravu si. Najneophodniji fajlovi za rad sa DBase bazama, bez SQL-a i reporta
su:
IDAPI01.DLL
IDR10009.DLL
ILD01.DLL
IDAPI.CFG
IDDBAS01.DLL
BDECFG.EXE
BDECFG.HLP
što mu izađe, brat bratu, 800 Kb. Ako sam ubacio koji viška, ispravi me
(naravno, onaj BDECFG.HLP nije najneophodniji)...
pascal.884visnja,
-> #882, .sima> Da li je neko uspeo da u Borland Pascal-u 7.0 i Borland C-u 3.1
> pokrene grafički mod u 256 boja. U helpu piše da se funkcija
Probaj:
{$F+}
function DetectVGA256 : integer;
{ Detektuje VGA ili MCGA video karte }
var
DetectedDriver : integer;
SuggestedMode : integer;
begin
DetectGraph(DetectedDriver, SuggestedMode);
if (DetectedDriver = VGA) or (DetectedDriver = MCGA) then
DetectVGA256 := 0 { Default video mode = 0 }
else
DetectVGA256 := grError; { Ne moze detektovati }
end; { DetectVGA256 }
{$F-}
....
na pocetku porgrama:
AutoDetectPointer := @DetectVGA256; { Point na rutinu za detekciju }
GD := InstallUserDriver('SVGA256', AutoDetectPointer);
GD := Detect;
InitGraph(GD, GM,'');
....
Pozdrav Visnja.
pascal.885mminovic,
gledajte:
Type
str11 = array [1..250] of string[11];
fir = record
ime : String[50];
datumi : str11;
brdat : ShortInt;
end;
firm = array [1..20] of fir;
.....................................
neki kod...............
.....................................
INC(firma[i].brdat);firma[i].datumi(firma[i].brdat):=cdatum;end;
^error 91 : ":=" expected.
Zna li neko zasto mi prijavljuje ovu gresku,i kako mogu drugacije
da resim problem?
Pozdrav,
Mindza.
pascal.886.sima,
-> #884, visnja> AutoDetectPointer := @DetectVGA256; { Point na rutinu za
> detekciju } GD := InstallUserDriver('SVGA256',
> AutoDetectPointer);
Da ovo mi radi, ali mislio sam da li je moguće sa originalnim
drajverima. Prosto ne mogu da verujem da u BP7.0 daju drajver
za VESA16 a ne za VESA256, a podržavaju IBM u 256 boja. Zbog
čega nije podržan ni jedan mod u 256 boja, a da ne pričamo o
nekim višim modovima koje ovaj drajver(svga256.bgi) podržava.
Nije podržan čak ni 320x200x256 ???
Pozdrav.
pascal.887.sima,
-> #885, mminovic> INC(firma[i].brdat);firma[i].datumi(firma[i].brdat):=cdatum;end;
> ^error 91 : ":=" expected.
>
E bre Mindza ... c c c.
Savetovao bi ti jednu dobru knjigu za Pascal.
INC(firma[i].brdat);firma[i].datumi[firma[i].brdat]:=cdatum;end;
^[ ^]
jer firma[i].datumi je array od stringova.
Ovo prolazi kroz kompajler, ali neznam koliko smisla ima.
Pozdrav
P.S.Naravno ovo sve ima smisla samo ako je firma variabla od firm.
pascal.888visnja,
-> #885, mminovic> INC(firma[i].brdat);firma[i].datumi(firma[i].brdat):=cdatum;end;
> ^error 91 : ":=" expected.
Ako su ti >datumi< tipa >array< šta traže ovde male zagrade?
Evo ovo se prevodi bez greške, ako je to ono što ti treba:
type
str11=array[1..250] of string[11];
fir=record
ime : string[50];
datumi : str11;
brdat : shortint;
end;
firm=array[1..20] of fir;
var
firma : firm;
i : integer;
begin
inc(firma[i].brdat);
firma[i].datumi[firma[i].brdat]:='datum';
======================
end.
pozdrav Visnja.
pascal.889mminovic,
hvala na pomoci:)
glupi ja :))
jebi ga,posle 8 h programiranja ne bih bio sposoban da nacem WC,a
kamo li..:)))
nego jel zna neko odgovor na onaj VELIKI:) problem(mislim ima tu moja
velika poruka,pa..).
Pozdrav,
Mindza.
pascal.890nlazic,
-> #883, max.headroom*> što mu izađe, brat bratu, 800 Kb. Ako sam ubacio koji viška, ispravi
*> me (naravno, onaj BDECFG.HLP nije najneophodniji)...
Što se datoteka tiče, trebalo bi da si u pravu. Međutim, Borland
zahteva da se pri isporuci aplikacija razvijenih u Delphi-u, koje koriste
BDE isporučuje kompletan BDE. Tebi, kao autoru, ostaje mogućnost da
savetuješ korisnika šta može da izbriše, a šta ne, ali kompletan BDE se
mora nalaziti na instalacionim disketama, koristio ih neko ili ne. žini mi
se da se za BDE dobija instalacioni program, ali ne mogu da tvrdim jer mi
Delphi-eve diskete nisu pri ruci. Sve u svemu, BDE zauzima 2 diskete. :)
Pozdrav,
:) Nebojša :)
pascal.891max.headroom,
-> #881, dpredovic> Ne bi trebalo da bude previše problema. Napraviš novu komponentu koja
> nasleđuje TDBEdit, i u properties gurneš EditMask. E sad, kako, kada
:)) Eh, kako jednostavno :) Pa, bre, ja nemam predstavu o tome šta je klasa,
šta je nasleđivanje (osim da sam od ćaleta nasledio negativnu dioptriju), i
sada do besvesti prebiram po Help-u ne bih li našao neko blago-ljudsko
objašnjenje za sve te objektne pojave :) U svakom slučaju hvala za tip -
verovatno ću ga upotrebiti tek pošto naiđem na neku zanimljivu knjižicu od par
'iljada strana, tek da me uvede u OOP :)
(In the meantime, pokušaću sistemom 'probaj pa ubodi'... možda mi se posreći)
:)
> BTW Što se tiče foxovih fajlova pod delphijem - probaj kroz ODBC.
Da, to sam već regulisao. ODBC i jeste jedini način da pristupim Fox-ovim
bazama.
pascal.892.sima,
-> #889, mminovic> nego jel zna neko odgovor na onaj VELIKI:) problem(mislim ima
> tu moja velika poruka,pa..).
Pa ovako je teško pomoći ti. Baci ceo program da vidimo, ako nije
veliki.
pascal.893willow,
-> #891, max.headroom
>>verovatno cu ga upotrebiti tek posto naidem na neku zanimljivu knjizicu od
par
>>'iljada strana, tek da me uvede u OOP :)
Ako stvarno trazis neku takvu knjigu, ja ti preporucujem knjigu
'B.Stroustrup: P.L. C++' . Ima je ( verovatno ) u CET-u, ili kod PMF-a.
Pogledaj i u Engleskoj biblioteci, ima tamo odlicnih knjiga, video sam neke
koje se bave bas teorijom OOP-a, ima par dobrih knjiga o C/C++, a nisam mogao
da verujem kada sam naleteo na MsDos Programmer's Technical Reference.
Hello from Willow Valley.
pascal.894nlazic,
-> #891, max.headroom*> verovatno ću ga upotrebiti tek pošto naiđem na neku zanimljivu
*> knjižicu od par 'iljada strana, tek da me uvede u OOP :)
Uradi to što pre, jer je za Delphi ma koliko on bio na prvi pogled
jednostavan, neophodno poznavanje OOP-a. Kad-tad zaglavićeš se kod neke
gluposti i jedino rešenje će ti biti troprsti reset i šaka andola :)
Pozdrav,
:) Nebojša :)
pascal.895vojas,
-> #868, mminovic> Ako iz procedure pozovem neku drugu proceduru,sve je ok,druga
> procedura odradi sta ima i vrati kontrolu prvoj.
> Medjutim,ako u toj drugoj proceduri dodam samo:
> 'imefajla:=imefirme[1]+'.dat';
> onda se druga procedura odradi do kraja,ali ne vrati kontrolu prvoj
> vec mi blokira kompjuter(ponekad pisti,ponekad resetuje,ponekad mi
> zabrlja neke fajlove).
Kako glase procedure?
Heechee of the Ancients
pascal.896vgenije,
HI
Izbunario sam jedan program koji bi trebalo da prikaze bmp
format.izgleda ovako:
Uses graph,Crt,Dos;
var
Fileime:string;
gm,gd:integer;
X,Y:integer;
Tbmp:char;
FileBMP:text;
Tpal1:char;
Tpal2:char;
Tpal3:char;
Tpal4:char;
Ipal:integer;
{$F+}
function DetectVGA256 : Integer;
var Vid : Integer;
begin
DetectVGA256 := 2;
end;
{$F-}
begin
gd := InstallUserDriver('SVGA256',@DetectVGA256);
gd := Detect;
InitGraph(gd,gm,'c:\tp\bgi');
Fileime:='c:\windows\vlada1.BMP'; {ime BMP fajla}
assign(FileBMP,Fileime);
reset(FileBMP);
{UCITAVA PALETU}
for Ipal := 1 to 54 do read(FileBMP,Tpal1);
for Ipal:= 0 to 255 do
begin
read(FileBMP,Tpal3);
read(FileBMP,Tpal2);
read(FileBMP,Tpal1);
read(FileBMP,Tpal4);
setrgbpalette(Ipal,(ord(Tpal1) div 4),
(ord(Tpal2) div 4),
(ord(Tpal3) div 4));
end;
{KRAJ UCITAVANJA PALETE}
{UCITAVA I STAVLJA SLIKU NA EKRAN}
textcolor(10);
outtextxy(200,400,'Proba dali text radi');
for Y := 480 downto 1 do
for X := 1 to 640 do
begin
read(Filebmp,Tbmp);
PUTPIXEL(x-1,Y-1,ord(Tbmp));
end;
{KRAJ UCITAVANJA I STAVLJANJA SLIKE NA EKRAN}
close(FileBMP);
{ZVUK OGLASAVA KRAJ UCITAVANJA I STAVLJANJA NA EKRAN}
sound(500);
delay(500);
nosound;
{ZVUK OGLASAVA KRAJ UCITAVANJA I STAVLJANJA NA EKRAN}
readln;
CloseGraph;
end.
ali kad na slici postoje neka sitna slova on ih isprekida itd tako da se
nista ne razume iz prvobitnog formata.Gde je problem i ima li leka
p.s.da naglasim da je autor programa neki srdan do koga nisam uspeo da docem..
pascal.897visnja,
-> #889, mminovic> nego jel zna neko odgovor na onaj VELIKI:) problem(mislim ima
> tu moja velika poruka,pa..).
Daj algoritam, odnosno sta bi hteo sa tim programom pa da resimo
elegantnije. Koliko vidim baratao bi sa bazama podataka. Da ides
preko ARRAY je logicno, jednostavno, brzo ali neelegantno resenje jer jede
memoriju...
Pozdrav Visnja.
pascal.898djanjusevic,
Moze li mi neko nabrzaka pokazati neki jednostavniji nacin zastite programa od
startovanja na drugim racunarima(znaci,hocu da moze da se startuje samo na
jednom).
pascal.899kdrazan,
Jel' može kako da se uleti u grupu za Delphi ?
pascal.900mminovic,
-> #897, visnja>> nego jel zna neko odgovor na onaj VELIKI:) problem(mislim ima
>> tu moja velika poruka,pa..).
>
> Daj algoritam, odnosno sta bi hteo sa tim programom pa da
> resimo elegantnije. Koliko vidim baratao bi sa bazama podataka.
> Da ides preko ARRAY je logicno, jednostavno, brzo ali
> neelegantno resenje jer jede memoriju...
> Pozdrav Visnja.
Memorija nije problem,tamo gde treba da radi nece je deliti
ni sa kim ;)
a zamislite,problem sam resio simulacijom problema :)
naime naprevim ti ja programce loje u nedogled ispisuje
rnd razne fontove i on radi u nedogled(tj.ne pomera mi ekran).
onda ja ubacim readln;
i posle 25*enter on opet pocne da pomera ekran.
Rekoh tu li si tico :),zamenih readln sa cekajenter :)
i sve je ok!
Izgleda da readln puni neki bafer ili sta vec,u svakom slucaju
graficki rezim + readln ne koristiti :)
Hvala svima koji su mi odgovorili
pozdrav od mindze.
pascal.901kenza,
-> #899, kdrazan(;> Jel' moze kako da se uleti u grupu za Delphi ?
Ja pitah pre nekoliko dana, ali nema novosti. So, ako ima mesta,
put me in :), a ako nema, napravicemo jos jednu, sa razmenom poruka.
pascal.902max.headroom,
-> #890, nlazic> se da se za BDE dobija instalacioni program, ali ne mogu da tvrdim jer mi
> Delphi-eve diskete nisu pri ruci. Sve u svemu, BDE zauzima 2 diskete. :)
Upravo sam preneo pomenute fajlove na remote računar i startovao aplikaciju -
sve radi, a format baza je DBase. Naravno, u slučaju da koristiš ODBC i sl.
sisteme, na prethodno pomenuti spisak dodaj fajlove po šemi opisanoj u
DEPLOY.TXT iz ĐDELPHIĐ direktorijuma.
(Trudim se da nađem memorijski najnezahtevniju komabinaciju, a koja uz svu muku
- radi :) Za sada ode 730 Kb na BDE, odn. 800 Kb, ako si se opredelio za ODBC).
Bljah.
pascal.903zeljkoj,
-> #901, kenza> (;> Jel' moze kako da se uleti u grupu za Delphi ?
>
> Ja pitah pre nekoliko dana, ali nema novosti. So, ako ima
> mesta, put me in :), a ako nema, napravicemo jos jednu, sa
> razmenom poruka.
Ova tema se zove Pascal i namenjena svim Pascal kompajlerima. Jedan od
njih je i Delphi. Mislim da Delphi zanima mnogo više korisnika nego što
može da ih stane u jednu (dve, tri...) grupu. Drugo, što je još važnije,
poruke iz grupa ne ostaju trajno na sistemu.
pascal.904galimpic,
-> #903, zeljkojIzvinjavam se na neodgovaranju zainteresovanima za grupu Delphi :)
Grupa je puna, nema vise mesta. Ne prica se nista misteriozno sto nije za
javnost, jednostavno se (bar za sada) malo produktivnije radi. Ako bas bude
interesovanja (i sloze se ostali iz grupe), mogu da zipujem poruke i da ih
prebacim ovde. OK?
pascal.905.sima,
-> #900, mminovic> Izgleda da readln puni neki bafer ili sta vec,u svakom slucaju
> graficki rezim + readln ne koristiti :)
Tačno :)
U gafičkom modu se ne koristi readln za pauzu. Ja koristim
procedure Pauza;
begin
if readkey=#0 then readkey
end;
pascal.906.sima,
-> #898, djanjusevic> Moze li mi neko nabrzaka pokazati neki jednostavniji nacin
> zastite programa od startovanja na drugim racunarima(znaci,hocu
> da moze da se startuje samo na jednom).
Zavisi šta ti treba :)
Na brzaka je brzo ali i loše. Načina ima mnogo, a jedan od njih je
provera serijskog broja hard diska. To bi trebalo kombinovati sa
preuzimanjem debug interapta i kriptovanjem exe-a sa pklite.
Ali ako haker želi da ti provali program onda će on to i da uradi
ti ništa tu ne možeš.
Pozdrav
sernum.zippascal.907visnja,
-> #898, djanjusevic> Moze li mi neko nabrzaka pokazati neki jednostavniji nacin
> zastite programa
Axa:
Uzmi neku dos datoteku (SYS.COM npr) koja je naravno u C:\DOS diru,
nadji u toj datoteci neko bezbedno mesto (gde je neki text ili sl) i
izmeni jedan jednini bajt na tom mestu. Tako imas u DOS dir-u jedinstvenu
SYS.COM naredbu. Tvoj program treba samo VRLO VESTO da proveri taj bajt
u toj datoteci... Ne zaboravi da SYS.COM vratis datum kreiranja, jer
se moze primetiti da je po njemu cackano i pusti program MSAV ili
slicni da ne prijavi napad virusa zbog promenjenog cheksuma. Naravno
nemoj uzeti SYS i ne mora ni biti DOS direktorijum,
jos bolji je WINDOWS\SYSTEM...
Pozdrav Visnja.
pascal.908spantic,
-> #893, willow> Ako stvarno trazis neku takvu knjigu, ja ti preporucujem knjigu
> 'B.Stroustrup: P.L. C++' . Ima je ( verovatno ) u CET-u, ili kod PMF-a.
> Pogledaj i u Engleskoj biblioteci, ima tamo odlicnih knjiga, video sam neke
> koje se bave bas teorijom OOP-a, ima par dobrih knjiga o C/C++, a nisam
> mogao da verujem kada sam naleteo na MsDos Programmer's Technical
Ako neko stvarno želi da uđe u OOP onda mu preporučena knjiga
nikako nije dobar izbor.
Referentna knjiga, ako se želi ući u objektno orjentisano prijektovanje,
je Booch, "The Object Orjented Analisys", drugo izdanje.
Za učenje C++ pak, probajte novu knjigu Milićeva "Objektno orjentisano
programiranje u C++", tu je projektovanje samo dodirnuto, ali knjiga je
odlična referenca jezika C++.
pascal.909zeljkoj,
-> #904, galimpic> Izvinjavam se na neodgovaranju zainteresovanima za grupu Delphi
> :)
Ovo je reply na moju poruku... ali ja nisam zainteresovan za Delphi niti
za bilo šta drugo što dolazi od Borlanda. ;)
> prebacim ovde. OK?
^^^
Ne znam... neka kažu Delphijevci. :))
---
...Delphi ću da pogledam tek kad se bude zvao MS Visual Pascal. ;>
pascal.910vlador,
Je l' probao neko Delphi pod Warpom?
pascal.911atech,
-> #907, visnja> Uzmi neku dos datoteku (SYS.COM npr) koja je naravno u C:\DOS
> diru, nadji u toj datoteci neko bezbedno mesto (gde je neki
> text ili sl) i izmeni jedan jednini bajt na tom mestu. Tako
Za identifikaciju racunara se najcesce koriste podaci sa ploce
(bios) ili sa hard-a. Ovaj metod koji preporucujes nije prikladan
za upotrebu a o sigurnosti programa koji je zasticen na ovaj nacin
da i ne govorim.
Za citanje serijskog broja hard-a moze da posluzi jedna od
nedokumentovanih dos funkcija. Uz jednu od poruka u pc.prog.razno
sam pre nekih mesec dana okacio jedan asm programcic koji upravo to
radi.
Pozdrav!
pascal.912kile,
-> #911, atech>> Za identifikaciju racunara se najcesce koriste podaci sa ploce
>> (bios) ili sa hard-a.
Ali serijski broj harda može i da se promeni :(.
Grešim li?
pascal.913bulaja,
-> #912, kile│Ali serijski broj harda može i da se promeni :(.
└───
DOS-ov serijski broj diska se može promeniti i to vrlo lako (4 bajta u
boot sektoru), ali zato serijski broj IDE diska (koliko mi je poznato)
nikako. Btw imaju li SCSI diskovi (odnosno uopšte SCSI uređaji) neki
svoj serijski broj, ili bar product id?
pascal.914kriss,
-> #911, atech˙˙> diru, nadji u toj datoteci neko bezbedno mesto (gde je neki
˙˙> text ili sl) i izmeni jedan jednini bajt na tom mestu. Tako
˙˙ Za identifikaciju racunara se najcesce koriste podaci sa ploce
˙˙ (bios) ili sa hard-a. Ovaj metod koji preporucujes nije
˙˙ prikladan za upotrebu a o sigurnosti programa koji je zasticen
˙˙ na ovaj nacin da i ne govorim.
Samo da se nadovežem - to je i prilično nelegalno, i "negde preko" bi
imao podosta problema kad bi te posle pitali za zdravlje. Svaki
"vaspitan" program bi _morao_ da za zaštitu koristi samo čitanje (čega
god hoće), u kombinaciji sa pisanjem, ali samo unutar svog kôda, tj.
pratećih fajlova. Sve što program izbaci van svog EXE-a/direktorijuma
nije lepo, i nije dobro - zato i ne volim windows koncepciju gde svaka
šuša može da umetne svojih 1000 linija u one "zajedničke" fajlove ...
Međutim, pošto mi živimo u zemlji SRJ (nepriznatoj ;), sve je
dozvoljeno. ;( I pisanje, i brisanje, i obaranje sistema, i
formatiranje diska, a u pravu je, naravno, onaj ko je jači (ili brži,
ili onaj koji zna sve prečice ... ;> ).
pascal.915postmast,
From: Nemanja.Janic@f101.n101.z38.setnet.setnet.co.yu (Nemanja Janic)
Subject: pascal
Date: Sun, 03 Sep 1995 02:51:14
"A> Osnovana je grupa DELPHI. Zainteresovani mogu da se jave na mail.
Zainteresovan!
Samo, ja sam Sasa Sekulic, a ne Nemanja Janic, ovo koristim samo privremeno.
mad.max
... So, so you think you can tell tagline from steal...
* Origin: Oreska BBS, UZICE = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.916postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: Re: pascal
Date: Sat, 02 Sep 1995 11:30:13
-=> Quoting "Miroslav Minovic" to All <=-
"M> Hi!
Hi!
"M> Bas me zanima ima li neko ideju zasto me ovaj glupavi kompjuter
"M> zajebava.
Stvarno?
"M> 'imefajla:=imefirme[1]+'.dat';
"M> onda se druga procedura odradi do kraja,ali ne vrati kontrolu prvoj
"M> vec mi blokira kompjuter(ponekad pisti,ponekad resetuje,ponekad mi
"M> zabrlja neke fajlove).
Ima hiljadu stvari koji mogu da ti uzrokuju te probleme a najcesce
to bude greska programera. Pogledaj malo bolje program, pregledaj
u dibagu ili tako nesto. Da nisi mozda uradio nesto ovako :
var imefirme : tip;
procedure ta_i_ta(imefirme : tip);
begin
...
...
...
end;
tj. da nisi dva puta istu promjenljivu deklarisao?
"M> Ima li neko ideju?!
Gore sam ti naveo svoju. Sa ovo podataka sto si dao pokusao sam maksi
malno da dam svoje misljenje, a ako nisam u pravu javi pa cemo vidjeti.
pozdrav, ASKO
... Nemoguce , sve je to Paradoxalno 4.5 .
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.917postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: video memorija
Date: Sat, 02 Sep 1995 11:30:14
Hi!
Ne znam da li je dokumentovano (vjerovatno jeste) ali ja i jos jedan smo
otkrili kako da sa video memorijom radite kao sa varijablom a evo i proc.:
type ScreenType = record
Ch : Char; {karakter za ispisivanje}
At : Byte; {boja karaktera}
end;
var Screen : Array[1..25, 1..80] of ScreenType ABSOLUTE $B000:$0000;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
{matrica Screen ima dimenzije jednok txt ekrana a adresa joj pocinje
... ScreenType ABSOLUTE $B000:$0000 ... na video memoriji HERCULES
karte a za vise karte ide $B800 i tako dalje}
begin
Screen[1,1].Ch := 'A'; {karakter za ispisivanje}
Screen[1,1].At := White; {boja karaktera}
end.
To je to. Rutina radi puno brze od standardne WRITE procedure a iz
same strukture bi trebalo da kontate. Nadam se da sam vam pomogao
ovom sitnocom.
pozdrav, ASKO
... Najvise volim otvorenu devojku u zatvorenoj sobi!!! A ko ne?
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.918postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: zapisi i tako dalje
Date: Sat, 02 Sep 1995 11:30:15
Hi!
Zanimaju me neki zapisi slika, muzike itd.
3D2 :
Uspio sam skontati zapis nekog 3D2 zapisa (vjerujem da je i zapis 3DSa
slican jer nemam ni 3DS ni njegove fajlove 'all HERCULES') i evo proce
dure ...
procedure Read3DFile(FileName : String);
var F : File of Real;
Tmp, Tmp1 : Real;
PointsNum : Integer;
r, i : Integer;
begin
Assign(F, FileName);
Reset(F);
Read(F, Trunc(PointsNum));
For r := 1 to PointsNum do
begin
Read(F, XPoint[r]);
Read(F, XPoint[r]);
Read(F, XPoint[r]);
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.919postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: keep
Date: Sat, 02 Sep 1995 11:30:16
Hi!
Kao sto svi znate u TP6.0 ima procedura KEEP koja omogucava stvaranje
TSR programa. Ali ... ima mana a to je da ne znam kako da uklonim taj
program iz memorije? Kada postavljam interapte pri ukljucuvanju progra
ma snimim stare i kada mi vise nije potreban vracam stare, ali program
ostaje u memoriji. Kako to da rijesim?
pozdrav, ASKO
... Press any key to quit or any other key to continue.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)