delphi.932zdravkod,
-> #931, guta
ZD>
ZD> Koliko vidim po sadrzaju BP, SP i SS registara, sve je u redu,
ZD> tj. ono
ZD> sto bi ocekivao u "segmentnoj" arhitekturi je i dalje tu.
Kad ja recimo otkucam ovakav kod:
asm
mov bx, seg Podatak
mov ds, bx
mov bx, offset Podatak
bla,bla,bla
end;
...on mi kaze Unknown Identifaer za seg. Uopste, ranije u 16-bit
Delphiju postojala je procedure Seg(...), kao i naredba segment u
okviru asemblerskog koda.
delphi.933zdravkod,
-> #931, guta
ZD>
ZD> Koliko vidim po sadrzaju BP, SP i SS registara, sve je u redu,
ZD> tj. ono
ZD> sto bi ocekivao u "segmentnoj" arhitekturi je i dalje tu.
Kad ja recimo otkucam ovakav kod:
asm
mov bx, seg Podatak
mov ds, bx
mov bx, offset Podatak
bla,bla,bla
end;
...on mi kaze Unknown Identifaer za seg. Uopste, ranije u 16-bit
Delphiju postojala je procedure Seg(...), kao i naredba 'seg' u
okviru asemblerskog koda. Sada ne postoji ni jedna, ni druga...
U tome je problem...
Zdravko
delphi.934jujo,
-> #924, tile# Mogu li na istom HD (W95) da budu instalirani istovremeno
# DELPHI 1 i DELPHI 2 ?
# Naravno i da korektno rade.
# HVALA.
Nikako. Postoje neki DLL-ovi koji se preklapaju, i BDE neece
raditi korektno.
yooyo:
delphi.935jujo,
-> #928, zdravkod# Kako da pozovem neki intrapt iz Delphija 3. U opisu interapta mi se
# trazi da je , recimo, neki podatak na adresi DS:BX. E sad u
# Delphiju 1 to uradim tako sto fino uradim ovo:
# asm
# mov bx, seg podatak
# mov ds,bx
# mov bx, offset podatak
# bla, bla, bla...
# int bla,bla
# end;
Hmmm, ako pozivas neki interapt... a on trazi pointer u npr DS:BX, imaj
na umu da je int uglanom u realmodu i da nema pojma za adrese koje
su preko 1 MB-a. Resenje bi trebalo da bude da alociras podrucije DOS
memorije (prvih 640 kb) i onda pozoves int stim da DS:BX pokazuju na
ovu adresu.
Ono 'seg' nece proci jerbo segmenti vise ne postoje. Sve ti se nalazi
u odnosu na DS.
yooyo:
delphi.936nenadt,
-> #930, guta> Koliko se ja secam, InstallShield Express ("namenska" verzija koja se
> isporucuje uz pojedinacne razvojen alate) nudi opciju "Include BDE
> redistributable installation in project" (ili tome slicno). Ako
> koristis Full verziju InstallShield-a, moraces da se sam pobrines da
> BDE bude ispravno i kompletno instaliran. Zato, mnogo je ugodnije
> koristiti IShield Express nego Full verziju, pa makar ostao bez nekih
> naprednih opcija.
e jeste, sve je to lepo, ali kada se sve to obavi, aplikacija instalira pa
potom startuje, izadje mi poruka tipa "tralala.... BDE not configured
properly". mene interesuje zasto.
delphi.937kiklop,
Ukoliko ste nekada pokretali eksterne aplikacije u delphiju 1.0,
verovatno vam je zatrebao handle prozora iste. Ovaj podatak nije moguće
dobiti direktno već se mora koristiti posebno napisana funkcija za ovo.
Winexec i shellexecute vraćaju handle aplikacije, koji će nam poslužiti
za dobijanje handlea prozora.
Hinstance - handle aplikacije
fhinst - handle prozora vaše aplikacije (npr. form1.handle)
Function GetWinHandle (hInstance,fhinst:thandle):thandle;
var tempHwnd:thandle;
begin
tempHwnd := getWindow(fhinst,GW_HWNDFIRST);
while tempHwnd > 0 do begin
If GetParent(tempHwnd) = 0 Then begin
If hInstance = GetWindowWord(tempHwnd, GWW_HINSTANCE) Then begin
GetWinHandle := tempHwnd;
Break;
End;
End;
tempHwnd := GetWindow(tempHwnd, GW_HWNDNEXT);
End;
End;
Do ove funkcije sam došao posle dužeg eksperimentisanja sa svim i
svačim, pa rek'o možda ću nekom da smanjim muke.
delphi.938nenadt,
jel neko uspeo da uradi filelock u D3?
delphi.939guta,
Borland (od skora Inprise Corporation) je pustio u prodaju:
----------
Delphi 4
----------
Na žalost, na ovogodišnjem CeBIT-u nisam uspeo da se uvučem na zatvorenu
promociju Beta verzije, iako sam smislio nekoliko veoma lukavih taktika
i izgovora ;) Kako god, ispunili su obećanje sa sajma, i nova verzija je
predstavljena pre kraja drugog kvartala.
Evo i spiska novih stvari:
Delphi 4
--------
New Features
MIDAS Multi-tier Distributed Application Essentials
One-Step CORBA support for the open standard infrastructure
Support for COM / DCOM Exclusive:
Support Oracle8 Object
Relational Extensions
Support for MTS (Microsoft Transaction Server)
Access97 Support
Master Detail Intelligence with Nested Tables
Login support
Deferred Blobs
Abstract Data Types
Maintained Aggregates
Advanced State of the Art AppBrowser IDE
Fully customizable IDE with Task window docking, floating toolbars
Advanced Multi-Target Project Manager
App Browser code editor
Code Browser (was Module Explorer)
OpenHelp for easily customizing the contents of help
Windows NT Service Applications
World's Fastest Native 32-bit Compiler
Method Overloading
Dynamic Arrays
64 Bit Integer support
Speed up coding and reduce syntax errors with CodeInsight
Class Navigation short cuts
Class Completion Wizard
ToolTip Symbol Insight
Robust Suite of Advanced Debugging Tools
Multi-Process debugging
Remote Process debugging
Exclusive Debug Inspector for monitoring component properties
Event Log for showing process control messages
Advanced Debugger Enhancements
Module View
CPU View for low level debugging
DataWatch BreakPoints
Local Variables Watch Wizard
Best Windows Development Environment
Docking support for VCL controls
IntelliMouse support
Office 97 style floating bars
Windows NT Services
Advanced COM / ActiveX
Minimum and Maximum Component Sizing Constraints
Window resizing component anchors
Action List
Windows98 Multi-Monitor support
Windows98 MonthCalendar
Windows98 PageScroller
Windows98 Flat Scrollbars
ControlBar
Turn corporate data into information for better decision making
with BusinessInsight
Decision Cube Business Wizard
One-Step ActiveX
Advanced Type Library Editor
Complete support for MS IDL editing
Struct and Union support
Support for Automation Object event handling
COM Object Wizard
TypeLib 2 Format
Deliver the fastest web database applications with WebBroker
Web Application Business Wizard Seamless Internet/Intranet Wizards
and Components
JPEG Support
Internet Explorer + Netscape Browser
Internet Socket Components
NetMasters Native Internet Client Components
Exclusive ActiveForms for building Web applications
BDE CAB File for easy distribution of database apps over the web
WebExtra Fractal Image Support
delphi.940kojai,
-> #939, gutaE vidis izbacili i cetvorku, a jos nema podrska za DirectX! :((
Najavili su da ce biti, ali nista od toga...
Steta! :((
Delphi: Lak za koriscenje ali neupotreban!
delphi.941nenadt,
jel neko uspeo da zakljuca deo fajla uz pomoc WinApi-ja (ili bilo
cega drugog)
delphi.942qpele,
Ovo nije konkretno vezano za delphi, nego za c++ builder, al' kako su jako
slicni, nadam se da ce se naci negi "mag" za delphi koji se mi pomoci.
Problem je sledeci: s mi je deklarisan kao AnsiString, i recimo broj kao
integer. I nakon sto pokusam da uradim broj=s.ToInt(), broj dobije neku
debilnu vrednost. Sto je jos cudnije kada u whatch prozoru stavim s.ToInt()
javlja mi tacnu vrednost.
Totalno sam se ubedacio, pomagajte!:)
delphi.943nenadt,
-> #942, qpeleu Delphi-u se to izvodi sa StrToInt() i IntToStr() f-jama, pa
pogledaj dal imas tako nesto.
delphi.944edison,
1.Da li neko zna kako mogu da intaliram novu komponentu u Delphi3 na
paletu komponenti bez izvornog (pascal) koda (imam samo DCU i DCR
fajlove)? Ja sam pokusao iz menija sa Component/Install
component/Unit file name: xxx.DCU, i kad me pita da li da zelim da
mi ponovo napravi (kompajlira) paket (Package will be rebuilt:
Yes), pri kompajliranju mi uvek trazi izvorni kod unita (xxx.PAS).
Kako mogu da koristim komponentu iz DCU fajla?
2.Da li ima neko neku komponentu (ili ideju) za procitanje
serijskog broja diska (32 bit, tj. Delphi 2,3)? Ne znam da li moze
da se to uradi kao u starom DOSu koristeci interapte (u C-u sam to
radio).
delphi.945nenadt,
-> #944, edison> 1.Da li neko zna kako mogu da intaliram novu komponentu u Delphi3 na
> paletu komponenti bez izvornog (pascal) koda (imam samo DCU i DCR
> fajlove)? Ja sam pokusao iz menija sa Component/Install
> component/Unit file name: xxx.DCU, i kad me pita da li da zelim da
> mi ponovo napravi (kompajlira) paket (Package will be rebuilt:
> Yes), pri kompajliranju mi uvek trazi izvorni kod unita (xxx.PAS).
> Kako mogu da koristim komponentu iz DCU fajla?
ako komponenta nije kompajlirana sa D3 nikako.
> 2.Da li ima neko neku komponentu (ili ideju) za procitanje
> serijskog broja diska (32 bit, tj. Delphi 2,3)? Ne znam da li moze
> da se to uradi kao u starom DOSu koristeci interapte (u C-u sam to
> radio).
imas API poziv
unit Windows;
function GetVolumeInformation(
lpRootPathName: PChar;
lpVolumeNameBuffer: PChar;
nVolumeNameSize: DWORD;
lpVolumeSerialNumber: PDWORD;
var lpMaximumComponentLength,
lpFileSystemFlags: DWORD;
lpFileSystemNameBuffer: PChar;
nFileSystemNameSize: DWORD
): BOOL;
postoji samo jedna kvaka kod ovoga. ako ces ovo da koristis za neku formu
zastite, batali to. f-ja ce ti vratiti seriski broj particije, a to je tako
nevazan podatak ako se uzme u obzir da se taj broj menja od danas do sutra.
delphi.946jujo,
Jedan SITAN problem...
...
bla...bla
WinExec('pkzip -ex c:\bla\zzz.zip c:\bla\*.*'); // zipujem neki dir
NekiPosao('c:\bla\zzz.zip');
I u func. nekiposao mi se program spuca. Kaze fajl zzz.zip ne postoji.
Ja pogledam na disku - fajl postoji.
Znam da WinExec samo pokrene task i da program nastavlja dalje da radi
odmah iza Winexec-a, ali me zanima kako da detektujem da
li je program koji je pokrenut WinExec-om zavrsio posao?
yooyo:
P.S.: Stvar MORA da radi pod Win311 i Delphijem 1.0
delphi.947obren,
-> #946, jujo> Znam da WinExec samo pokrene task i da program nastavlja dalje da
> radi odmah iza Winexec-a, ali me zanima kako da detektujem da li
> je program koji je pokrenut WinExec-om zavrsio posao?
Uz poruku je funkcija ExecAndWait. Linije su preduge pa ne izgleda lepo
kad se složi do 80 kolona...
shellcmd.pasdelphi.948jujo,
-> #947, obren# > Znam da WinExec samo pokrene task i da program nastavlja dalje da
# > radi odmah iza Winexec-a, ali me zanima kako da detektujem da li
# > je program koji je pokrenut WinExec-om zavrsio posao?
#
# Uz poruku je funkcija ExecAndWait. Linije su preduge pa ne izgleda lepo
# kad se slozi do 80 kolona...
Hvala 100 puta!!!!!!
yooyo:
delphi.949jolicm,
U delfiju 3.0 radim neki program i sve ide lepo osim numerickog upisa
u TMaskEdit, da li postoji neki dodatak za 3.0 da resi ovaj problem
kulturno ?
Probao sam iz ove konferencije ali je za delfi 2 i imam konflikt sa
res 16 fajlom.
Prilicno mi je hitno. :(
delphi.950mradovic,
Ima li neko ideju kako da izvedem sledece:
1. U Delphi editor upisem neki tekst. Npr. napravim komponentu
i po spustanju na formu, ona doda u DPR fajl nekoliko linija.
Odnosi se naravno na Delphi 3 ili 4.
2. Dobijem spisak funkcija u okviru nekog DLL-a, broj index-a
parametre?. Mora da postoji neki util..
Pozdrav, Mirko.
delphi.951kiklop,
-> #950, mradovicŠto se tiče tvog drugog pitanja:
da bi dobio spisak eksportovanih funkcija u dll-u potreban ti je
program tipa impdef koji se isporučuje uz Borland C++, C++ Builder a
moguće i uz delphi 3/4 (nisam proveravao). Impdef ti vraća ASCII fajl
sa ekstenzijom def u kome ti pišu sve funkcije sa indeksima ali bez
parametara. Za parametre ti treba header fajl. Ako ga nemaš onda
ništa od posla.
delphi.952hrist,
Imam dva ortaka kojima treba Install shield za njihov skoro
razvijeni program. Bili bi vrlo zahvalni za bilo kakvu referencu
kako da nadju takav program. Napominjem da im treba instalacionu za
windows kako je program u delphiju 2.0
Unapred hvala
delphi.953kiklop,
-> #952, hristAko im ne treba nešto baš specijalno postoje i besplatni programi za
kreiranje kvalitetnih instalacija. Moja preporuka je Inno setup, koji
je potpuno besplatan i dolazi sa izvornim kodom. Može se skinuti sa :
http://www.connect.net/jordanr/
Aktuelna verzija je 1.08.
Evo i malo teksta iz helpa:
nno Setup is a free solution for creating basic installations for
both 16- and 32-bit applications. Some of its features include:
Ě Runs on any Windows platform:
The installation program comes in 16- and 32-bit flavors, and runs on
Windows 3.1, 95, and NT.
Ě Full source code:
The source code can be compiled in either Borland Delphi 1.0 or 2.0,
because it makes extensive use of conditional compilation. If you
didn't get the source code, you can download it from my web page.
Ě Supports creation of a single EXE to install your program for
easy online distribution.
Ě Standard wizard interface.
Ě Uninstall capabilities:
In basaentichaie iccnnstallation. C ilesniated "deflate" filer
abioeen fOn 32-bit installations fn edong atĚonrogr groups and
icons.
Ě Cr(However, because iyreate subkeyf he HKEY_CLASSES_ROOT
key.)no Se uerge in any type of sofhareware, andm)y that you if you
distribute it thaoatrems that you dosions. If you have oitct
iepinInno Setup, slo n on continuing features I'm planning are:
AUle DnFcpeiSftiplsp.ull, Minimdtoble instasaefpas oe insta
delphi.954nenadt,
-> #953, kiklop
a kako bi bilo da ti taj setup bacis ovde. izgleda
zanimljivo, a pretpostavljam i da je izuzetno mali (sto meni u
principu i treba).
install shield je dobar, ali je suvise zaje*an i glomazan za
moj ukus.
delphi.955kiklop,
-> #954, nenadt>
> a kako bi bilo da ti taj setup bacis ovde. izgleda
> zanimljivo, a pretpostavljam i da je izuzetno mali (sto meni u
> principu i treba).
Evo ide.
isetup.exedelphi.956nenadt,
imam par pitanja:
1. o kojim jedinicama se radi kada se postavlja Indent property
TRichEdit kontrole
2. treba da izvedem na pritisak na odredjeni taster ubaci neki tekst u
TRichEdit ili TMemo kontrole. debilan primer je pritisak na Tab taster
koji bi ubacio recimo 4 space (#32) karaktera
ima li nekog ko bi mogao da mi pomogne?
unapred zahvalan,
pj
delphi.957nenadt,
ISetup (pravljenje instalacija vasih programa)
izvinjavam se ako je vec okaceno negde...
isetup.exedelphi.958nenadt,
generator setup skripta za ISetup -- ISetupExpress
isetupex.exedelphi.959nenadt,
ima li neko ovde ko moze lepo da mi objasni sta mi sve treba
od fajlova na ciljnoj makini da bi BDE imao paradox podrsku?
delphi.960kiklop,
-> #959, nenadtPogledaj u direktorijumu ..\BDE i videćeš bdedeploy.txt. U njemu ti
se nalaze sve informacije koje tražiš.
delphi.961jolicm,
-> #959, nenadtKad praviš install, samo čekiraj ful BDE instalaciju, doduše tada BDE
zauzme oko 6 MB, ali tada ti program sigurno radi.
delphi.962sjocic,
Prijatelj je skinuo sa Deplhi (Inprise) sajta neki upgrade sa Delphi 4
(veličina 10 i kusur mb), ali mu prilikom instalacije traži
serial number i autorisation key. Naravno, sam Delphi 4 se regularno
instalirao i bez toga. Ima li neko rešenje za njegove probleme ?
delphi.963emajsijuen,
Ima li neko mozda funkciju koja vraca serijski broj HDD-a ? Funkcija mora
da radi pod Win32 (Delphi 3.0). Takodje mi treba funkcija, koja vraca
datum biosa (kao string).
Thanks in advance! :)
delphi.964emajsijuen,
Imam jedan problemcic... Napravio sam neko programce (D3). Program prilikom
startovanja kreira 4 forme. Na mom kompjuteru sve lepo radi, a kada isti
program odnesem kod burazera forma 3 bude mnogo veca nego kod mene. Sve ostale
forme su normalne. Jel ima neko ideju o cemu se ovde radi ? Ako je bitno,
borderstyle svih formi je Bstoolwindow.
Pozdrav, Vlada...
delphi.965nenadt,
-> #963, emajsijuen> Ima li neko mozda funkciju koja vraca serijski broj HDD-a ? Funkcija
> mora da radi pod Win32 (Delphi 3.0). Takodje mi treba funkcija, koja
> vraca datum biosa (kao string).
>
> Thanks in advance! :)
poruke 945 iste ove teme; procitaj je...
mada odmah da se ogradim, ovo radi samo za Volume, tj. particiju, tako
da i nije od neke pomoci...
sto se tice biosa, pod DOS-om se to lako izvodilo citanjem par bajtova
direktno iz memorije... nisam probao to da uradim pod 32 bita, mada ti
dos programcici rade pod dos prozorom, a i 32-bit delphi nema offset-e...
delphi.966emajsijuen,
-> #965, nenadt> poruke 945 iste ove teme; procitaj je...
>
> mada odmah da se ogradim, ovo radi samo za Volume, tj. particiju, tako
> da i nije od neke pomoci...
> sto se tice biosa, pod DOS-om se to lako izvodilo citanjem par bajtova
> direktno iz memorije... nisam probao to da uradim pod 32 bita, mada ti
> dos programcici rade pod dos prozorom, a i 32-bit delphi nema offset-e...
Ma znam ja kako se to radi (tj. sa koje se adrese to cita) pod DOS-om...,
ali ne znam kako to ide u Delphiju... Ove rutine za disk i bios mi trebaju
jer mislim da zastitim program od kopiranja... Dakle, ako neko ima ove rutine,
molio bih ga da mi ih nekako dostavi. Takodje, ako neko ima ideju kako da
se bez ovih rutina zastiti program od kopiranja, ne bi bilo lose da se
izjasni :)
Pozdrav, Vlada...
delphi.967nenadt,
da li je neko radio sa ISP komponentama koje se dobijaju uz D3.
interesuje me kako se radi sa vise konekcija odjedanput
(programiranje nekog kvazi servera).
delphi.968emajsijuen,
Imam nekoliko pitanja:
(1) Cemu sluzi Pixelsperinch property od forme ?
(2) Postoji li nekakav dialog za unos sifre? Potrebno mi je nekakvo
prozorce, koje bi se otvorilo (prilikom starta programa) i trazilo
korisniku da ukuca sifru.
(3) Preko kog programa se prave .hlp fajlovi, i gde moze da se nadje?
Dosta od mene za ovaj put... :) Pozdrav...
delphi.969kiklop,
-> #968, emajsijuenSto se tice help fajlova dosta dobar program je help scribble. Mada
za prvu pomoc moye da posluzi i MS Help Workshop koji se dobija uz
instalaciju Delphi-ja.
Sto se tice forme za unos sifre, pa moraces da je napravis sam i da
je namestis da bude prva forma pri dizanju programa. I to je to.
delphi.970emajsijuen,
-> #969, kiklop> Sto se tice help fajlova dosta dobar program je help scribble. Mada
> za prvu pomoc moye da posluzi i MS Help Workshop koji se dobija uz
> instalaciju Delphi-ja.
Bas sam malo listao poruke unazad po prprog-u.., pa sam nasao tvoju
poruku sa adresom odakle Help Scribble moze da se skine. Program je
strava. Ne da se help lako pravi, nego... :)
>> Sto se tice forme za unos sifre, pa moraces da je napravis sam i da
>> je namestis da bude prva forma pri dizanju programa. I to je to.
Ok... Thanks a lot.
Pozdrav, Vlada...
delphi.971superhik,
Zanima me šta cenjeni auditorijum misli o dobrom izboru kjige
za Delphi :
CET Delphi svom snagom 340 din
MKnjiga DELPHI sa rešenim zadacima (Laslo Kraus) 80 din
D. za neupućene 85 din
?
10x
delphi.972dzakic,
-> #968, emajsijuen> (1) Cemu sluzi Pixelsperinch property od forme ?
Znaš da u Display properties ima podešavanje Small/Large fonts. Small
fonts je zapravo 96 pixels per inch, Large fonts je 120. Korisnik štaviše,
može da izabere proizvoljno uveličanje u procentima, da mu se forme i
fontovi prikazuju proporcionalno veći/manji. Pixels per inch je stanje
koje je podešeno kod tebe, prilikom dizajniranja forme. Ukoliko je
Property "Scaled" postavljen na true, onda će se korisniku u vreme
izvršavanja forma prikazati proporcionalno skalirana prema njegovom
setovanju pixels per inch u display properties.
delphi.973kiklop,
-> #971, superhikSamo CET-ova knjiga dolazi u obzir. Ostale dve zaobidji ako ikako
mozes.
delphi.974ventura,
eh, evo i ja uzeo delphi da ucim i da mlatim pare :)
naime radio sam neku bazu za tjaleta i treba mi nesto,
naime uz poruku ima i file tako da se sve jasno vidi :)
sta je problem.
1. da ovo izgleda kao klasican telefonski imenik.
znaci na tu foru baza podataka
2. da ima search. kada se unese nesto u bilo koju kolonu,
da on nadje dokument koji sadrzi to... prosto...
eto ko ovo odradi, ili bar pola ima pice od mene.
problem.pasdelphi.975ventura,
ah da.. treba i ovaj DFM... ;)
problem.dfmdelphi.976evol,
-> #974, ventura>> eh, evo i ja uzeo delphi da ucim i da mlatim pare :)
Sa ovim sto si poslao tesko ces se para mlatiti... :)
Ti si "nacrtao" skicu, a program je n puta veci, duzi i komplikovaniji...
>> eto ko ovo odradi, ili bar pola ima pice od mene.
Ako imas IVI od breskve prihvatam... :)
Isa
delphi.977ventura,
-> #976, evol> Sa ovim sto si poslao tesko ces se para mlatiti... :)
> Ti si "nacrtao" skicu, a program je n puta veci, duzi i komplikovaniji...
Daj bre.. vidjao sam, te adresare... ovaj program je obicni tel imenik
i nista drugo..
> >> eto ko ovo odradi, ili bar pola ima pice od mene.
> Ako imas IVI od breskve prihvatam... :)
Imam. ;)
delphi.978evol,
-> #977, ventura>> Daj bre.. vidjao sam, te adresare... ovaj program je obicni tel imenik
>> i nista drugo..
Barem si optimista...
delphi.979emajsijuen,
Imam nekoliko pitanja:
1) Kako da proverim koja je rezolucija podesena ?
2) Gde se podesava nacin stampanja forme (Portait/Landscape)? Formu stampam
metodom print od TForm-a.
3) Kako detektovati koji fontovi su namesteni (Small/Large/Custom)?
Pozdrav, Vlada...
delphi.980emajsijuen,
-> #979, emajsijuen>> 1) Kako da proverim koja je rezolucija podesena ?
Da li je moguce da niko ne zna odgovor???
delphi.981sjocic,
Da li postoji neki tutorial za Delphi (4) na delphi-jevom CD-u ??
Čuo sam da postoji neki *.pdf tipa "Delphi reference guide"
od oko 1000 strana.
Moj CD snimadžija ima samo 'suvu' instalaciju od 240Mb, ali ništa
više od toga.
Svaka informacija/pozajmica na kopiranje je dobrodošla :)
delphi.982milosh.zorica,
-> #981, sjocicČini mi se da to imaju u PreCiz-u. Tamo sam našao Watcom C 11,
posle 6meseci bezuspešnog traganja po Yu, a i šire. Njihov tel
je:422-545 . CD je 9Dm. Sorry što je možda reklama. Jedino sam tamo
našao Watcom i još neke stvari.
delphi.983nbjvsb,
Kako da u posebnom threadu pokrenem MediaPlayer, tako da u pozadini pušta
MIDI fajlove (jedan za drugim)? U stvari, dobro bi mi došlo neko fino
uputstvo za rad sa threadovima.
delphi.984korisnik,
-> #983, nbjvsbKO> Kako da u posebnom threadu pokrenem MediaPlayer, tako da u
KO> pozadini pusta MIDI fajlove (jedan za drugim)? U stvari, dobro
bi
KO> mi doslo neko fino uputstvo za rad sa threadovima.
Pa nije potrebno da pravis threadove ...
Dovoljno je da na notify event (media player-a) stavis svoju
proceduru, registrujes kad je kraj pesmice (wav, mid, avi!?) i
pustis novu.
U helpu ces naci ostalo.
Happy programing. Van.GoG
delphi.985nbjvsb,
-> #984, korisnik>> Dovoljno je da na notify event (media player-a) stavis svoju
>> proceduru, registrujes kad je kraj pesmice (wav, mid, avi!?) i
>> pustis novu.
Pokušaj na taj način da pustiš midi od, recimo, 100k, i shvatićeš zašto
hoću da ga bacim u Thread ;-) Jednostavno, MediaPlayer.Open na par sekundi
zaustavi rad programa čak i kad je MediaPlayer.Wait postavljeno na false,
a to mi smeta.
BTW. Ubacio sam ga u thread grubom silom... ali radi :-)
delphi.986goxi,
Jel nabavio neko Delphi 4.0 ? Ima li nekih poboljsanja ?
Goran.
delphi.987goxi,
Zna li neko kako mogu vise edit box-ova da stampam na jednom
papiru, po nekom mom rasporedu, koji ja zelim ? Zna li neko kako se
stampa DBGrid ?
Goran.
delphi.988qpele,
-> #986, goxi> Jel nabavio neko Delphi 4.0 ? Ima li nekih poboljsanja ?
Cuo sam da Delphi 4.0 ne radi za S3 virge grafickom, ali na sajtu
ima patch. Toliko ja znam o cetvorci :)
delphi.989kojai,
-> #988, qpele>> > Jel nabavio neko Delphi 4.0 ? Ima li nekih poboljsanja ?
Mogu samo reci da program radi fenomenalno...
>> Cuo sam da Delphi 4.0 ne radi za S3 virge grafickom, ali na sajtu
>> ima patch. Toliko ja znam o cetvorci :)
Xex... Sto ne bi radio? Sa starim Diamondima radi, a to je takodje
S3 chipset...
Isa
delphi.990goxi,
-> #988, qpeleZna li neko kako mogu program (Delphi 2.0) da minimizujem u taskbar
(Win9x) ???
Hvala.
delphi.991goxi,
Vidim da je ovde tesko dobiti odgovor na pitanje i pored toliko
molbi, ali ajde da postavim jedno pitanje (mozda ce se neko konacno
smilovati da mi odgovori).
Dakle, treba napraviti program koji izracunava sledece :
d:=sqrt(sqr(x2-x1)+sqr(y2+y1))
x1,x2,y1,y2 se unose preko edit boxova. E sad ja znam za onu
proceduru Val, koja konvertuje String u Integer, ali problem je u
tome sto funkcija SQRT radi samo za Real tip a ne za integer. I sad
ne znam sta da radim.
Ajde ljudi smilujte se, ako nista bar zato sto me nije mrzelo
da pisem ovoliku poruku. ;))
Goran.
delphi.992ventura,
-> #991, goxi> d:=sqrt(sqr(x2-x1)+sqr(y2+y1))
> x1,x2,y1,y2 se unose preko edit boxova. E sad ja znam za onu
> proceduru Val, koja konvertuje String u Integer, ali problem je u
> tome sto funkcija SQRT radi samo za Real tip a ne za integer. I sad
> ne znam sta da radim.
Pa treba da stavis u programu da su ti promenjlive float, a mislim
da se to u delphiju zove Real, ako stavis integer onda ces moci
da unosis samo celobrojne vrednosti. Razlog zasto nece SQRT je taj,
sto ako izaberes integer, izlaz isto mora da bude integer, sto je
ok ako recimo uneses 4, ali ako unesec 5 tu vec u rezultatu imas,
i decimalni zarez, a to nije integer vec float, neznam kako se to radi
u delfiju, ali recimo da ti ulazi bude integer a izlaz float, to bi onda
bilo ok...
delphi.993goxi,
-> #992, ventura>> u delfiju, ali recimo da ti ulazi bude integer a izlaz float,
Sve je to OK, ali ne postoji, koliko sam ja uspeo da provalim,
procedura koja konvertuje iz Stringa u Float. :(
Val konvertuje iz stringa u integer, a Str iz integeraa u string, a
ne znam kako da to isto radi za float (string->float).
Goran.
delphi.994kiklop,
-> #991, goxi> Vidim da je ovde tesko dobiti odgovor na pitanje i pored toliko
> molbi, ali ajde da postavim jedno pitanje (mozda ce se neko konacno
> smilovati da mi odgovori).
> Dakle, treba napraviti program koji izracunava sledece :
> d:=sqrt(sqr(x2-x1)+sqr(y2+y1))
> x1,x2,y1,y2 se unose preko edit boxova. E sad ja znam za onu
> proceduru Val, koja konvertuje String u Integer, ali problem je u
> tome sto funkcija SQRT radi samo za Real tip a ne za integer. I sad
> ne znam sta da radim.
> Ajde ljudi smilujte se, ako nista bar zato sto me nije mrzelo
> da pisem ovoliku poruku. ;))
>
> Goran.
Uz poruku je prikačen kompletan primer urađen u delphi - ju 1 (nemam drugi
pri ruci). Kod je naravno apsolutno primenljiv u novijim verzijama Delphi-ja.
Eto čisto da se ne kaže kako ti niko ne odgovara. Mada se mora priznati da je
sam problem skoro besmisleno trivijalan. Dovoljno je bilo da malo detaljnije
pogledaš help.
Darko
koren.exedelphi.995ventura,
-> #993, goxi> Sve je to OK, ali ne postoji, koliko sam ja uspeo da provalim,
> procedura koja konvertuje iz Stringa u Float. :(
> Val konvertuje iz stringa u integer, a Str iz integeraa u string, a
> ne znam kako da to isto radi za float (string->float).
Pa naravno da nemozes babe i zabe u isti Dzak :)
kazem ti, uradi nesto da ti ulaz bude int a izlaz floa i sve ce biti ok..
delphi.996goxi,
-> #994, kiklopPrvo bih zeleo da ti se zahvalim na kodu. Drugo, znam i ja da je
problem ne "skoro besmisleno trivijalan" vec BESMISLENO TRIVIJALAN,
ali jednostavno ne znam kako da korenujem neki broj iz edit boxa.
Jos jednom ponavljam, nasao sam Val koji konvertuje string u
integer (iz koga ne moze da se izvuce koren). Eto to je ono sto me
je mucilo. Naravno, u Pascalu bih to jako jako lako sredio. Ali u
pascalu nema edit boxa. :)
Goran.
Hvala jos jednom.
delphi.997kojai,
-> #991, goxi>> d:=sqrt(sqr(x2-x1)+sqr(y2+y1))
>> x1,x2,y1,y2 se unose preko edit boxova. E sad ja znam za onu
>> proceduru Val, koja konvertuje String u Integer, ali problem je u
>> tome sto funkcija SQRT radi samo za Real tip a ne za integer. I sad
>> ne znam sta da radim.
Nisam gledao poslati kod, ali evo nesto iz glave...
Var
s,x1,x2,y1,y2: real;
begin
d:=sqrt(Sqr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text))+Sqr(StrToFloat(
Edit3.Text)+StrToFloat(Edit4.Text)));
end;
Gde ti je Edit.Text:=x1, Edit2.Text:=x1, Edit3.Text:=y2, Edit4.Text:=y1...
Znaci naredba za pretvaranje stringa u real je StrToFloat, obrnuta je
FloatToStr ili FloatToStrF kada zelis da formatriras izlaz...
Isa
delphi.998goxi,
-> #997, kojai>> Znaci naredba za pretvaranje stringa u real je StrToFloat,
>> FloatToStr ili FloatToStrF kada zelis da formatriras izlaz...
Hvala ! To je upravo ono sto sam ja i pitao !
Goran.
delphi.999voyager,
Jel ima neko keki dobar lib za kompresiju?
VoYaGeR
delphi.1000hercog,
-> #991, goxi** proceduru Val, koja konvertuje String u Integer, ali problem je u
** tome sto funkcija SQRT radi samo za Real tip a ne za integer. I sad
A sto ne koristis funkciju StrToFloat?
Sale
delphi.1001goxi,
-> #1000, hercog>> A sto ne koristis funkciju StrToFloat?
Nisam znao za tu proceduru.
delphi.1003zdravkod,
Interesuje me kako da u Interbase-u napravim bazu na remote
serveru. Kada u WISQL-u odaberem "Create Database" otvori mi se
onaj dialog u kome treba popuniti imena servera, protokola, baze
zajedno sa username i pasword. Problem je sto bez obzira sta ja
napisem tamo gde je server on mi prijavi gresku. Ne znam u kom
formatu treba napisati ime racunara koji treba da bude remote
server pa da sve prodje kako treba. Ako neko zna molio bi da mi
napise primer za popunjavanje tih polja...
Zdravko
delphi.1004qpele,
Imam silnih problema. Nikako ne uspevam da se konektujem na Oracle bazu.
U stvari uspe mi konekcija, ali cim pokusam neku tabelu da izaberem puca
Delphi. Pokusao sam i s Delphi 3, i Delphi 4 i C++ Builder 1, i uvek isto.
delphi.1005voyager,
Jel zna neko kako da smestim program u tray?
VoYaGeR
delphi.1006hercog,
-> #1005, voyager>> Jel zna neko kako da smestim program u tray?
Uzmi winboost...
Sale
delphi.1007voyager,
-> #1006, hercog>> Uzmi winboost...
Oces da pojasnis sta je to?
VoYaGeR
delphi.1008hercog,
-> #1007, voyager>> Oces da pojasnis sta je to?
To ti je programče koje ti omogućava da izmeniš milion stvari
u windowsu između ostalog i to što si ti tražio...
Sale
delphi.1009emajsijuen,
Jel ima neko mozda biblioteku za biranje brojeva preko modema, i uopste za
komunikaciju sa modemom?
Vlada..
delphi.1010voyager,
-> #1009, emajsijuenhttp://www.borland.com/delphi/deltools.html
VoYaGeR
delphi.1011voyager,
-> #1008, hercogA kako uz pomoc tog programa da smestim program koji sam napisao u
delphiju u tray?
VoYaGeR
delphi.1012wladar,
-> #1009, emajsijuen> za komunikaciju sa modemom?
Mislim da to imas ovde u direktorijumima
delphi.1013goxi,
Ima li neko neku biblioteku o skrolovanju teksta ?
Moze i adresa na internetu.
delphi.1014goxi,
Ide jedno moza smesno pitanje. Da li bi radio na 386 (Win 3.11)
program koji bi napravio u Delphi 2.0 ? A i inace mozda u Delphi 3
? Delphi 4 ?
100000x hvala!
delphi.1015zdravkod,
Kako da uhvatim windows-ovu poruku WM_KEYUP? Ustvari kad stavim
ovakav kod:
...
private
procedure KeyHIT(var Msg: TWMKeyUp); message WM_KEYUP;
...
procedura se izvrsava samo na formi koja nema ni edit ni memo ni
neku drugu komponentu pomocu koje moze da se unosi tekst. Ako na
formi imam samo, recimo Label i procedura odozgo ima samo
...
inherited;
label1.caption:='blabla';
...
sve radi kako treba, ali cim dodam Edit ili sl. procedura se vise
ne odaziva...
Gde gresim?
Zdravko
delphi.1016qpele,
-> #1014, goxi> Ide jedno moza smesno pitanje. Da li bi radio na 386 (Win 3.11)
> program koji bi napravio u Delphi 2.0 ? A i inace mozda u Delphi 3
> ? Delphi 4 ?
Koliko ja znam samo je 1.0 mogao da napravi 16 bitnu aplikaciju.
delphi.1017kiklop,
-> #1015, zdravkod> Kako da uhvatim windows-ovu poruku WM_KEYUP? Ustvari kad stavim
> ovakav kod:
>
> ...
> private
> procedure KeyHIT(var Msg: TWMKeyUp); message WM_KEYUP;
> ...
>
> procedura se izvrsava samo na formi koja nema ni edit ni memo ni
> neku drugu komponentu pomocu koje moze da se unosi tekst. Ako na
> formi imam samo, recimo Label i procedura odozgo ima samo
>
..
..
> Gde gresim?
>
> Zdravko
Program se ponaša upravo kako bi trebao. Moguće je uraditi to na način koji
si naveo (uz određene izmene), ali postoji X puta lakši i prirodniji način u
samom VCL-u. Svaka forma ima event OnKeyUp koji se upravo aktivira
porukom WM_KEYUP. Da bi hvatao sve poruke prosleđene čak i kontrolama
na samoj formi potrebno je da postaviš property forme KeyPreview na True.
I to ti je to. Samo prebaci kod iz svoje procedure u OnKeyUp (bez inherited)
i program će raditi kako treba.
Darko
delphi.1018kiklop,
-> #1014, goxi> Ide jedno moza smesno pitanje. Da li bi radio na 386 (Win 3.11)
> program koji bi napravio u Delphi 2.0 ? A i inace mozda u Delphi 3
> ? Delphi 4 ?
>
> 100000x hvala!
Ne bi. Win 3.11 je 16-bitni operativni sistem. Samo Delphi 1.0
pravi 16-bitne programe. Sve ostale verzije Delphija su 32-bitne.
Darko
delphi.1019zdravkod,
-> #1017, kiklopZnam, ali meni je potrebno da to uradim bas ovako...
Zdravko
delphi.1020goxi,
Zna li neko kako mogu da pritiskom na taster CTRL menjam itemindex
u radiogorup-u ? Znaci imam radiogroup "prevozna sredstva" i u
njemu items (auto, kamion). E sad bih ja da tasterom CTRL menjam
itemindex, tj. moj izbor ?!
MNOOOOGO MI JE VAZNO !!!
Hvala mnooogo unapred!
delphi.1021kiklop,
-> #1019, zdravkod> Znam, ali meni je potrebno da to uradim bas ovako...
>
> Zdravko
Hm, ali VCL ti ne omogućava direktno to što ti hoćeš. Ako baš insistiraš
poruku WM_KEYUP možeš da presrećeš u startu. Klasa TApplication ima
event OnMessage koji se aktivira svaki put kada Windows pošalje neku
poruku aplikaciji. Dakle potrebno je da dodeliš proceduru ovom događaju
i da manuelno određuješ o kojoj je poruci reč itd. Zatim u OnCreate eventu
forme izvršiš dodelu procedure i to je to. Ovo se mora ovako raditi zbog same
koncepcije Windowsa i VCL-a. U Windowsu (i samim time i VCL-u) sve
poruke vezane za tastauru prosleđuju
se kontrolama koje imaju fokus. Kada staviš neku od kontrola koje imaju fokus
(dugme, editbox...) neka od njih će automatski dobiti fokus pri pokretanju
aplikacije i samim tim onemogućiti da se aktivira metoda procedure koju si
ti napisao pošto forma nikada neće dobiti fokus. Metoda koju si ti primenio
se može koristiti za praćenje miša, za promenu veličine forme i sl., ali ne i
za
tastaturu. Čak ni KeyPreview := true neće rešiti probleme pošto se ovime
poziva
OnKeyUp procedura ukoliko je ima.
Nadam se da je ovo pomoglo.
Darko
Primer:
type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if ( Msg.message = WM_KEYUP ) then begin
Label1.Caption := 'blabla';
{ promenljivom Handled se određuje da li će se proslediti poruka dalje}
{ Kada je vrednost false poruka ide dalje u protivnom se ne prosleđuje}
Handled := false;
end;
end;
end.
delphi.1022zdravkod,
-> #1021, kiklopHvala!
Zdravko
delphi.1024zdravkod,
Projekat koji radim sadrzi 2 forme. Jedna od njih je tipa
TDataModule (DataModule2, Unit2), a druga tipa TForm (Form1,
Unit1). Na DataModule2 nalaze se DataSource1 i Table1 koji su
povezani, a na Form 1 nalazi se dugme Button1 cija klik procedura
izgleda ovako:
procedure TForm1.Button1Click(Sender: TObject);
begin
DataModule1.Table1.IndexName:='Blabla';
end;
USES u Unit1 ima ukljuceno Unit2;
Klikom na gore pomenuto dugme Delphi podize Exception i kaze Access
violation itd. i ne dozvoljava promenu bilo kog propertija ili bilo
cega na DataModule2 iz Unit1. Ne razumem zasto ne dozvoljava
pristup tabeli na drugoj formi. Ako neko zna kako bi resio ovaj
problem, bio bih bu zahvalan na pomoci. Dakle, kako da radim sa
Tabelom iz forme kojoj ta tabela ne pripada?
Unapred zahvalan,
Zdravko
delphi.1025kiklop,
-> #1024, zdravkodHm, čini mi se da tu nešto nije u redu (baš mudro, zar ne ;))) ).
Ajde pošalji malo više detalja o DataModule formi, kao koje si sve
komponente postavio, kako si ih podesio... ima li TDatabase komponente
, kako je ona podešena kao i tačnu poruku Access Violation-a.
Da li si stavio property Active TTable komponente na true? Ukoliko
jesi onda je greška neminovna. Nikakve izmene tog tipa nisu
dozvoljene nad otvorenom tabelom
I da, na kojem mestu ti se nalazi Unit2 u Uses sekciji? trebalo bi da je na
samom kraju.
.
delphi.1026zdravkod,
-> #1025, kiklopResio sam... Ona procedura za Button nalazila se u FormCreate kod
mene (u opisu sam naveo kao Button da eto pojednostavim malo). U
Project Options bilo je postavljeno prvo da se kreira forma pa onda
datamodul. Pri kreiranju forma se kreira i OnFormCreate event
poziva tabelu u datamodulu koja jos nije kreirana tako da onda
Delphi javi Access Violation itd.
Hvala u svakom slucaju...
Zdravko
delphi.1027emajsijuen,
Pravim neku instalaciju za programce, pa imam jedan problem. Pojma nemam
kako da izvucem ikonu na desktop, i kako da smestim ikonicu programa negde
u start meni? Ako neko zna, bio bih veoma zahvalan da mi posalje parce koda,
ili bar neko uputstvo za to :)
Pozdrav, Vlada...
delphi.1028popovics,
-> #1027, emajsijuen
Evo malog ručnog rešenja. Dakle uz pomoć neke funkcije (čini mi se
da ima API f. koja to radi) nađu Windows direktorijum. Desktop ti
je u ?:\%windows_path%\desktop i dovoljno je da tu ručno ubaciš
.pif ili .lnk i vozi, isto važi i za start meni, koji je u
?:\%windows_path%\startm~1.
Srcky/popovics
delphi.1029emajsijuen,
-> #1028, popovics>> Evo malog rucnog resenja. Dakle uz pomoc neke funkcije (cini mi se
>> da ima API f. koja to radi) nadu Windows direktorijum. Desktop ti
>> je u ?:\%windows_path%\desktop i dovoljno je da tu rucno ubacis
>> .pif ili .lnk i vozi, isto vazi i za start meni, koji je u
>> ?:\%windows_path%\startm~1.
Da smo jos da napravim taj .lnk ili .pif fajl ;) To me u stvari zanima.
Pozdrav, Vlada...
delphi.1030obren,
-> #1027, emajsijuen> Pravim neku instalaciju za programce, pa imam jedan problem. Pojma
> nemam kako da izvucem ikonu na desktop, i kako da smestim ikonicu
> programa negde u start meni? Ako neko zna, bio bih veoma zahvalan da mi
> posalje parce koda, ili bar neko uputstvo za to :)
Najlakše ti je da koristiš InstalShield za pravljenje instalacije,
pošto se u njemu se može podesiti da napravi prečicu do programa
kako na desktopu tako i u Start meniju.
delphi.1031goxi,
Zna li neko kako mogu da na svake naprimer 2 sekunde kompjuter
izbacuje po jedan proizvoljan broj (random). Radio sam pomocu
Timera, ubacio sam sledece :
Var i:integer;
Begin
Randomize;
Random(i);
label1.caption:=inttostr(i);
end;
Ali nece...:( Pomagajte...Nije to tacno ono sto mi treba ali na
tome se zasniva problem...
delphi.1032voyager,
-> #1031, goxiJa bih to uradio ovako:
Randomize stavi samo kada se startuje program!
Znaci ubaci ga u proceduru Form1.Activate (npr.)
Onda promenljivu x definises za ceo program a ne samo za datu
proceduru.
Onda pomocu timera:
Procedure timer.OnTimer...
Begin
Label1.Caption := Random(x);
End;
Ovo mora da radi...
VoYaGeR
delphi.1033goxi,
-> #1032, voyager>> Ovo mora da radi...
Ne radi...Sve sam uradio kao sto si rekao, ali on mi pronadje jednu
vrednost (postavi mi label1.caption da je 0) i to je sve. A ja bih
da mi na svake dve sekunde izbacuje novi broj...I jos nesto. Ne
znam kako da postavim Range. Kada mu stavim Random(0<=x<100) on mi
prijavi incompatible types (a postavio sam da mi je X integer).
Pomagajte, ko zna...!