Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Label
[*] Daniel Km�nek <kminek(zv)mite(tec)cz> - 30.10.1999 07:22:12
Zdravim vsechny
Moc prosim nevite n�kdo, jak umistit label na uroven menu ?. Je tam v pravo
takovy krasny nevyuzity m�sto, ale komponenta tam nejde dat....
Diky za ka�d� napad
S pozdravem
Daniel Kminek
kminek(zv)mite(tec)cz
www.mite(tec)cz
Array of char
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 30.10.1999 07:36:29
Krayzel Libor wrote:
> > Pokud chces do charu prazdny znak, muzes ho leda zase necim
> > nacpat (treba
> > znakem #0) a pak v mistech, kde to ma vliv, mit jednu
> > trapnou podminku
> > navic ...if neco=#0 then ....
>
> No jo, ale ja prave potrebuju nahradit #0 prazdnym mistem.
>
> Mam soubor, kde je text ulozeny tak, ze kazde pismeno je od dalsiho
> oddelene prave #0.
>
> repeat
> BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
> for i := 1 to NumRead do
> begin
> if buf[i] = #0 then a [tady bych chtel tu nulu vykopnout]
> end;
> BlockWrite(ToF, Buf, NumRead, NumWritten);
> until (NumRead = 0) or (NumWritten <> NumRead);
Treba takto:
FFileHandle: THandle;
FFileMapping: THandle;
FFileBase: Pointer;
Buf:array[...] of char;
PW:PWChar;
s:string;
Len:integer;
FSize:DWORD;
CurPos:DWORD;
FFileHandle := CreateFile(PChar(FFileName), GENERIC_READ,
FILE_SHARE_READ,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
FFileMapping := CreateFileMapping(FFileHandle, nil,
PAGE_READONLY, 0, 0, nil);
FFileBase:= MapViewOfFile(FFileMapping, FILE_MAP_READ,
0, 0, 0);
PW:=FFileBase;
FSize:=GetFileSize(FFileHandle, 0);
CurPos:=0
while CurPos<FSize do
begin
Len:=lstrlenW(PW);
s:=WideCharToString(PW);
BlockWrite(ToF, s[1], Len+1);
PW:=PW+Len+1;
Inc(FSize, (Len+1)*2);
end;
if FFileHandle <> INVALID_HANDLE_VALUE then
begin
UnmapViewOfFile(FFileBase);
CloseHandle(FFileMapping);
CloseHandle(FFileHandle);
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Alokace pameti
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 30.10.1999 07:36:29
Ondrej ZAHRADNIK wrote:
> mam typ ukazatel na tridu ve ktere je constructor i destructor.
> Potrebuji pomoci New a Dispose alokavat pamet pro tento objekt
> a zavolat constructor s parametry.
> Existuje v Delphi neco jako v Pascalu volani procedury
> New( Ukazatel, Constructor(parametry) ) a
> Dispose( Ukazatel, Destructor ) ?
> Objekt je potomkem mnou nadefinovane tridy.
V Delphi se objekty alokuji a dealokuji zasadne takto (viz
dokumentace):
Ukazatel:=TTvojeTrida.Create(parametry);
Ukazatel.Free;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Otevreni zavreni CR-ROM
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 30.10.1999 07:49:39
Cauec,
> Ahoj ,dufam ze Ti trochu pomozem.
> Skus prestudovat :
> uses:...,MMSystem;
>
> mciSendString('Set cdaudio door open wait', nil, 0, handle); // otvor tray
> mciSendString('Set cdaudio door closed wait', nil, 0, handle); // zatvor
> tray
Tohle sice funguje, ale vi nekdo, jak otevrit a zavrit dvirka u DRUHY
mechaniky ?
Bye Ludan
D5 Trial
[*] Ren� Otisk - 30.10.1999 08:21:48
Hi,
V Chipu ted vyslo D5. Predpokladam ze trial. V cem to je oklestene? Jak moc
D5 premysli. Treba i za me (ty by bylo zuzo).
Sroub
> Haj hou!
> > D5 Trial se obcas zamysli takovym zpusobem, ze na nekolik sekund (spise
> nekolik desitek sekund) nereaguji na podnety. Nevim jestli provadeji
nejake
> skryte kompilace nebo testy syntaxe, ale zajimalo by me jestli se s tim da
> neco delat. Chova se tak i ostra verze?
>
> Ano, chova. Rozhodne ale premysli 5x mene nez D4 :o)Fonty NT
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.10.1999 08:26:35
Ahoj,
nevite, prosim, nekdo, jak resit problem s fonty na NT? Aplikace je napsana
v Delphi 2 (v 2.01) a pouziva QR1 a fonty Arial, Courier New, MS Sanserif a
Times. Na NT se nezobrazuje ani netiskne spravne cesky krome MSSanserif nic.
Pri odinstalovani NT fontu a nahrazeni fonty z 3.11 je vse OK, ovsem ostatni
aplikace se dostanou do stavu me aplikace predtim - taky netisknou a nepisi
cesky. Na Win95/98 je ale vsechno v poradku. Lze to nejak resit aniz bych
musel menit prekladac? Nebo musim nekde neco nastavit?
Jaro B.Try dobre zpravy pro uzivatele Sinea generatoru
[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 30.10.1999 08:29:53
Dobry den pane Skerik, Prvni dobra zprava je, ze uz mam D5 prof. ostrou verzi doma.
Druha dobra zprava je, ze generator Sinea je jiz preveden do D5
(to jsou fofry ze?)
Treti dobra zprava je, ze jsem se z premiry radosti, ze to tak hezky
vsechno
funguje rozhodl, ze verzi D5 generatoru budeme updatovat bezplatne pro
vsechny,
kdoz maji alespon verzi 3 - zase jeden spatnej podnikatelskej zamer.
Co se da delat. Cesi jsou proste blazni a programatori zejmena.
Take jsem uz koupil D5, jak tedy mohu verzi generatoru pro D5 ziskat?
Verzi pro D4 mam (bez zdroju).
Dekuji,
Ing. Josef Slany
Hasicsky zachranny sbor okresu Znojmo
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.94 / Virov� b�ze: 49 - datum vyd�n�: 22.11.1999
Zakaz minimalizacie
[*] Ing. J�n Kuch�r�����!j��G - 30.10.1999 08:31:11
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
vo svojom programe potrebujem zakazat minimalizaciu hlavneho okna, zrusil som vsetky ikony v casti BORDERICONS, BORDERSTYLE mam nastavene na BSNONE a FORMSTYLE na FSSTAYONTOP, ale ked sa uzivatel presunie myskou dole na riadok WINDOWSU a da prave tlacitko na myske na spustenej aplikacii, tak mu WIN stale ponuka minimalizaciu a tu by som potreboval vypnut, ako na to ?
dik
Ing. J�n Kuch�r
KIaR SjF TU Ko�ice
Park Komensk�ho 9, 041 27
tel. : 095/602 2589 mobil : 0905 229548
e-mail: kuchar(zv)tuke.sk SQL Dotaz
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ov 1999 08:36:08
To vim take, ale ja potrebuji aby mi to ten radek vybralo Protoze vybiram dle
toho osoby a je e aby mi to nevybralo NOVAKa, jen proto ze mu nekdo nevyplnil
ULICI, kde bydli. Potrebuji prave poradit, jestli to NULL nejde nejak obejit.
Prvne jsem zapomel uvest databazi takze Informix. Dik
M&B
>>> MUS.TC."SMTP: Radek Pospisil #radek.pospisil(zv)sprinx(tec)cz" 11/29 4:09 >>>
>Nebude to tim, ze NULL <> LIKE 'NE%' ?
>otom kdyz je NECO2 NULL tak to samozrejme tento radek nevybere ....
> Zdarvi obec delfinu!
> Vybiram pres "Select * from table where NECO1 like 'N%' and
> NECO2 like 'NE%'.
> Problem nastane tehdy, kdyz v recordu tabulky je hodnota
> fieldu 'NECO2' NUL
> L, to pak nevybere nic, i kdyz ten record existuje. Zapisu-li
> do toho pole vsa
> k rucne mezeru, a pak ji smazu, tak to zacne normalne
> fungovat nevite co s tim
> (vybiram asi 35 polozek z 10 tabulek z nich 2 maji pres
> 15000 recordu).
>
> D5, NT4/SP4
>
> Dik za radu.
>
co je na pristupu k WinAPI z C++ Builder snazsiho
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 30.10.1999 08:37:28
> -----P�vodn� zpr�va-----
> Od: Petr.Motlicek(zv)bcbrno(tec)cz [mailto:Petr.Motlicek(zv)bcbrno(tec)cz]
> Odesl�no: 29. listopadu 1999 16:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: co je na pristupu k WinAPI z C++ Builder snazsiho ?
>
>
> > no to potrebujes pouzit nejakou funkci a zjistis ze v
> Delphi neni protoze
> > prislusny *.h proste nekdo neprelozil...
>
> A to opravdu WinApi nen� cela prelozena v Delphi (ktera
neni, neznam presny seznam funkci a typu, ale narazil jsem napr. na
neexistenci definic struktur a typu pro praci se SID (Security Identifier)
v Delphi 4.
Konkretne toto jsem si musel deklarovat sam:
type
SID_AND_ATTRIBUTES = record
Sid: PSID;
Attributes: DWORD;
end;
PTOKEN_USER = ^_TOKEN_USER;
_TOKEN_USER = record
User: SID_AND_ATTRIBUTES;
end;
Jura
TDataset vyhlkedavani ?
[*] Pavel �im��ek - 30.10.1999 08:39:48
if MyKomponent.Dataset is TTable then
begin
TTable(MyKomponent.Dataset).FindNearest ....atd.
end
else if MyKomponent.Dataset is TQuery then
begin
TQuery(MyKomponent.Dataset).SQL ...........atd.
end;
No a podle toho jakeho typu je Dataset tak provedes operaci budto pres FindNearest nebo pres SQL dotaz.
P.
-----P�vodn� zpr�va-----
Od: Thom <thom(zv)comberg(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 29. listopadu 1999 19:33
P�edm�t: TDataset vyhlkedavani ?
ahoj,
primitivni dotaz:
mam komponentu, ktera vidi pouze TDataset, ale nevi, jestli je napojen na TTable, nebo TQuery,
potreboval bych v ni vyhledavat neco jako FindNearest ...
ale nevim jak nato... prosim pomozte
diky TH
D5 - ano ci ne ?
[*] eL.. <eL_z_Prahy(zv)seznam(tec)cz> - 30.10.1999 08:48:56
Zdravim
Rad bych dotaz doplnil o narocnost na HW.
Napriklad na notebooku (Pentium 150Mhz, 16MB RAM) D3 behala celkem OK ale D4
uz nebylo pouzitelne. Po rozsireni RAM na 48MB uz to celkem jde.
Jak je to s D5 ? O kolik je zase narocnejsi.
Mam na mysli spise chovani editoru nez dobu prekladu (ta samozrejme zavisi
na rozsahu projektu)
eL..Zmena barvy v DBEdit pri Enabled=true
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 30.10.1999 08:58:33
Zdravim,
prosim o pomoc pri zmene barev v DBEdit.
Mam komponentu, kde lze taky navic nastavit barvu pri Enabled=true;
Vsechno funguje jenom tehdy, jestlize Enabled:=true udelam pred vytvorenim Formulare.
Jestlize ale udelam Enabled:=true jiz v hotovem Formulari (reaguji na zadani jine polozky), tak barva je jina.
Jak se dostat na dany Edit, kteremu menim Enabled a nestojim primo na nem - pro pochopeni napr. menim XXEdit.Enabled:=true/false pomoci nejakeho Buttonu a pri XXEdit.Enabled:=true potrebuji dat XXEdit do barvy pozadi Form.
Diky Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Spolecny posun nekolika oken najednou
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 30.10.1999 08:04:26 cet
Poradi prosim nekdo, jak se da posouvat nekolik oken najednou ?
Zkousel jsem zachytavat "OnResize", jednotlivych oken, dokonce i
"OnMove" asi takto:
procedure TMainForm.WMWindowPosChanging(var Message: TWMWindowPosChanging);
//Odchyt posunu formu
begin
inherited;
with Message.WindowPos^ do
//Caption:=Format('Pozice Handle=%d X=%d
Y=%d',[(message.WindowPos.hwnd),(message.WindowPos.x),(message.WindowPos.y)]);
case Message.msg of
WM_WINDOWPOSCHANGING: begin
//
MainForm.Caption:='WM_WINDOWPOSCHANGING:'+IntToStr(MainForm.Left)+'
'+IntToStr(MainForm.Top);
{
MainForm.Caption:= 'X:
'+IntToStr(message.WindowPos.x)+
' Y:
'+IntToStr(message.WindowPos.y)+
' CX:
'+IntToStr(message.WindowPos.cx)+
' CY:
'+IntToStr(message.WindowPos.cy)+
' HWND:
'+IntToStr(message.WindowPos.hwnd)+
'
hwndInsertAfter: '+IntToStr(message.WindowPos.hwndInsertAfter);
}
if OvladaniVisible then
MainFormPosunTimer.Enabled:=True;//Timer udela vlastni prilepeni VideoForm k
MainForm
end;
WM_WINDOWPOSCHANGED:
;//MainForm.Caption:='WM_WINDOWPOSCHANGED';
else ;//MainForm.Caption:='Neznama
TWMWindowPosChanging';
end;
end;
a potom pres Timer (ktery je bohuzel nutny, jinak se objevila
"smrst blikani") srovnat formulare:
procedure TMainForm.MainFormPosunTimerTimer(Sender: TObject);//Prilepi
VideoForm k posouvanemu MainForm
begin
MainFormPosunTimer.Enabled:=False;
VideoForm.Left:=MainForm.Left +
(Round(MainForm.Width/2)-Round(VideoForm.Width/2));//Prilep VideoForm k
posouvanemu MainForm
VideoForm.Top :=MainForm.Top+MainForm.Height;//Prilep VideoForm k
posouvanemu MainForm
MainForm.Width:=VideoForm.Width;//Prizpusob sirku MainFormu sirce Videa
VideoForm.AtiCapt1.ObnovVideoRect(VideoForm.AtiCapt1.GetVideoRect);//Srovnej
obraz Videa s Panelem
end
Takto to funguje, ale zda se mi to dost "tezkopadne" - navic
se posouva jen jedno okno a ostatni se k nemu teprve potom
"prilepi", coz se mi zrovna nelibi ...
Take jsem zjistil (malou upravou jednoho prispevku, ktery jsem tu
nekde videl, ze se da drzet jedno okno a posouvat uplne jinym
asi takto:
procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
kSC_DragMove = $F012;
var rPnl : TMainForm;
begin
Caption:='OnMouseDown';
Sender:=VideoForm;
rPnl := TMainForm (Sender) ;
ReleaseCapture();
rPnl.Perform( WM_SYSCOMMAND, kSC_DragMove, 0 );
end;
ale na to, jak "chytit" vsechna okna najedou se mi prijit
nepodarilo a ani je posouvat soucasne treba podle
zachycene "TWMMouse" ...
Poradi prosim nekdo, jak se to da udelat nejak "elegantneji" ?
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
konverze dbf
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 30.10.1999 09:22:26
Ahoj
potrebuji konvertovat mezi kodovyma strankama 895(kamenici) a win1250.
Nemate na to nekdo nejakej software ? Ja to zkousel delat pres batchmove s
nastavenym translate(ci jak se ta properties jmenuje) na true a jako
zdrojovou tabulku jsem mel tabulku v kamenicich (native driver dbase
nastavenej na CP895) a jako cilovou tabulku (paradox native
driver,CPwin1250). Bohuzel mi to nekonvertuje mezi obema kodovyma strankama
:(( Nevite proc �?
kodove stranky nastavuju v BDE
INVALID POINTER OPERATION
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1999 09:22:38
Ahoj,
kdyz vytvoris novou knihovnu, pise se tam :
<CITE>
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
View-Project Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the DELPHIMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using DELPHIMM.DLL, pass string information
using PChar or ShortString parameters. }
</CITE>
Takze si ty parametry predavej radeji jako PChar ;-)
Dobra.
> ----------
> Od: Petr Reichl[SMTP:reichl(zv)atlas(tec)cz]
>
> Vytvarim dll knihovnu, ktera obsahuje funkce na kodovani/dekodovani.
> Vse funguje v poradku, az na to, ze kdyz funkce zakoduje retezec,
> tak to vyhodi hlasku INVALID POINTER OPERATION.
> �
> Zde je kod:
> unit CryptT;
> interface
> uses Base64, DCPcrypt, Blowfish;
> ��� function Encrypt(Str: String): String; export;
> �
> Fonty NT
[*] Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz> - 30.10.1999 09:32:32
> nevite, prosim, nekdo, jak resit problem s ceskymi fonty na NT?
nevim jak v delphi 2, v delphi 1 jsem mel podobny problem a byl za pomoci
borlandu vyresen upravou unit graphics.pas. do funkce GetHandle byla
nahrazena radka:
lfCharSet := DEFAULT_CHARSET;
radkou
lfCharSet := 238;
Ahoj
<Masa>Zakaz minimalizacie
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1999 09:34:44
Ahoj,
a co takhle:
procedure TForm1.Minim(Sender: TObject);
begin
Application.Restore;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=Minim;
end;
Dobra.
> ----------
> Od: Ing. J�n Kuch�r[SMTP:kuchar(zv)tuke.sk]
>
> vo svojom programe potrebujem zakazat minimalizaciu hlavneho okna,
> zrusil som vsetky ikony v casti BORDERICONS, ... , ale ked sa uzivatel
> presunie myskou dole na riadok WINDOWSU a da prave tlacitko na myske
> na spustenej aplikacii, tak mu WIN stale ponuka minimalizaciu a tu by
> som
> potreboval vypnut, ako na to ?
> vyhodnoceni SQL dotazu
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 30.10.1999 09:34:34
> -----P�vodn� zpr�va-----
> Od: Mitko Mitiv [mailto:mitev(zv)foresta(tec)cz]
> Odesl�no: 29. listopadu 1999 9:35
>
> Staci otestovat RecordCount datasetu, ktery obsahuje pocet
> vybranych vet.
to je sice teoreticky pravda, ale ne u vsech RDBMS to funguje,
ja bych spis pouzil
q := TQuery.Create;
q.SQL.Text := 'SELECT COUNT(*) FROM tabulks WHERE name=''Jan Novak''';
q.Open;
if q.Fields[0].AsInteger>0 then
delejneco
else
delejnecojineho;
Honza Tomsa
> -----Puvodn� zpr�va-----
> Od: Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>
> >Dobry den,
> >
> >programuji jednoduchou databazovou aplikaci a nevim si rady
> s vyhodnocenim
> >SQL dotazu. Konkretne mam tedy nejakou DB pripojenou pres
> BDE (TQuery ->
> >TDataSource) a potrebuji zjistit, jestli mam ve sloupecku
> jedne tabulky
> >urcitou hodnotu. Provedu SELECT 1 FROM data.db WHERE
> name="Jan Novak".konverze dbf
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 30.10.1999 09:38:48
> potrebuji konvertovat mezi kodovyma strankama 895(kamenici) a win1250.
> Nemate na to nekdo nejakej software ?
Na http://webhost(tec)cz/elka v sekci PROGRAMOVANI hledej dosovsky program
KONVERT. Da se spoustet i z prikazove radky a umi DBF vcetne memo polozek.Televizni tuner ATI ALL IN WONDER PRO pod Delphi
[*] Daniel Fojt�k <xfojtik(zv)albert.osu(tec)cz> - 30.10.1999 09:41:39
Ja ti sice neporadim, ale zkus se kouknout na stranku
http://www(tec)czechin.com/misch/index_cz.htm
(pokud jsi tam uz teda nebyl). Co se tyce ATI TV karet a jejich programovani
pod delphi, tak jde asi o nejlepsi zdroj informaci a to v cestine!!!
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Vladimir Sladky
Sent: Tuesday, November 30, 1999 9:44 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Televizni tuner ATI ALL IN WONDER PRO pod Delphi
Je tu nekdo, kdo s tim ma nejake zkusenosti ?
Televizni obraz se mi povedl do Delphi dostat, ale jeho posouvani
za oknem, ve kterem mi bezi (bezi "nad Panelem") je mi dost
zahadou. Sice uz mi funguje (a musim do delat v DLL napsane
ve VC 5.0), a neni mi moc jasne pouzivani funkce
.....SQL Dotaz
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1999 09:42:51
Ahoj,
abych se priznal, tak to nechapu (mozna bych
si mel koupit medvidka myvala), bud trosku
konkretnejsi (treba napis konkretni jmena
sloupcu a cely SQL prikaz)
Protoze pokud das podminku, ze
NECO1 like 'N%' AND
NECO2 like 'NE%'
a to NECO2 bude NULL taxe nediv, ze se Ti tento
zaznam nevybere, protoze, jak Ti jiz bylo napsano
like "NE%" _neni_ NULL
> ----------
> Od: Bab�k Martin[SMTP:M.Babik(zv)mus(tec)cz]
>
> To vim take, ale ja potrebuji aby mi to ten radek vybralo Protoze
> vybiram dle
> toho osoby a je e aby mi to nevybralo NOVAKa, jen proto ze mu nekdo
> nevyplnil
> ULICI, kde bydli. Potrebuji prave poradit, jestli to NULL nejde nejak
> obejit.
> Prvne jsem zapomel uvest databazi takze Informix. Dik
>
> >>> MUS.TC."SMTP: Radek Pospisil #radek.pospisil(zv)sprinx(tec)cz" 11/29 4:09
> >>>
> >Nebude to tim, ze NULL <> LIKE 'NE%' ?
> >otom kdyz je NECO2 NULL tak to samozrejme tento radek nevybere ....
>
> > Vybiram pres "Select * from table where NECO1 like 'N%' and
> > NECO2 like 'NE%'.
> > Problem nastane tehdy, kdyz v recordu tabulky je hodnota
> > fieldu 'NECO2' NUL
> > L, to pak nevybere nic, i kdyz ten record existuje. Zapisu-li
> > do toho pole vsa
> > k rucne mezeru, a pak ji smazu, tak to zacne normalne
> > fungovat nevite co s tim
> > (vybiram asi 35 polozek z 10 tabulek z nich 2 maji pres
> > 15000 recordu).
> >
> > D5, NT4/SP4
> >
> > Dik za radu.
> >
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Televizni tuner ATI ALL IN WONDER PRO pod Delphi
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 30.10.1999 08:44:15 cet
Je tu nekdo, kdo s tim ma nejake zkusenosti ?
Televizni obraz se mi povedl do Delphi dostat, ale jeho posouvani
za oknem, ve kterem mi bezi (bezi "nad Panelem") je mi dost
zahadou. Sice uz mi funguje (a musim do delat v DLL napsane
ve VC 5.0), a neni mi moc jasne pouzivani funkce
"SetWindowPos", kterou musim volat nekolikrat za sebou,
(poprve s mensim vyrezem okna, nez ve skutecnosti ma) a teprve
po dalsim volani se mi televizni obraz posune a roztahne tak,
jak ma a to jeste ne vzdy.
Abych to vysvetlil - cely hlavni program je slozen z nekolika
oken (viz. muj predchazejici dotaz ohledne posouvani nekolika oken
najednou), v jednom je komponenta Panel a nad tou bezi video,
potom je tam hlavni okno, ktere chyta "HotKey" a pod. a je to
vlastne hlavni formular celeho programu a jeste je tam okno,
na kterem jsou ovladaci tlacitka televizniho tuneru.
To vse potrebuji, aby se pohybovalo po obrazovce soucasne a zaroven,
aby se televizni obraz drzel stale nad komonenetou Panel
(lepe receno nad mou komponentou, kterou jsem si z Panelu odvodil
a obsahuje navic funkce pro ovladani TV tuneru).
Jak se mi to tak pohybuje vse najednou po obrazovce
(bohuzel spolecny pohyb je "trochu slozity a zmateny" - viz.
dotaz o "slepeni" nekolika oken), tak nejsem schopen, ani za
pomoci debugeru vystopovat poradne kolikrat za sebou a s jakymi
parametry se vlastne "SetWindowPos" z DLL vola.
(vlastni krokovani DLL ve VC neni problem, ale ve spojeni se vsemi
odchyty "OnResize", "OnMove" apod. vsech tri oken to uz problem
je ...)
Abych to tedy zestrucnil, poradi nekdo, jak udrzet TV obraz
(tedy vlastne okno) nad Panelem pomoci "SetWindowPos", a s jakymi
parametry, aby se obraz spravne posouval i roztahoval ?
(Ted uz to sice chodi, ale kdyz jsem to psal, tak se mi casto
obraz jen posunul, nebo naopak jen roztahl, takze vlastne nevim,
jak mi to cele "spis nahodne" funguje a chtel bych si to
ujasnit...)
Jeste jsem zkousel jinou funkci pro posouvani okna (tusim, ze
MoveWindow, ale nevim to ted presne), ale ta se chovala, co se tyka
TV obrazu podobne ...
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Okno s BorderStyle "bsSizeable", ale bez "Caption"
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 30.10.1999 09:44:13
Ahoj,
> Nevi prosim nekdo, jak se da udelat okno, ktere se chova jako
> normalni "bsSizeable", ale ma jen "klientskou cast" bez oblasti,
> ve ktere je "Caption" a "SysMenu" ?
****Zkus nasledujici (mel by udelat form s reameckem, ale bez
titulku):
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Form1.Handle,
GWL_STYLE,
GetWindowLong(Handle,GWL_STYLE) and not
WS_CAPTION);
Height := ClientHeight;
end;
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
Okno s BorderStyle "bsSizeable", ale bez "Caption"
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 30.10.1999 10:01:43
V.Sladky wrote:
>Nevi prosim nekdo, jak se da udelat okno, ktere se chova jako
>normalni "bsSizeable", ale ma jen "klientskou cast" bez oblasti,
>ve ktere je "Caption" a "SysMenu" ?
SetWindowLong(handle,GWL_STYLE,GetWindowLong(handle,GWL_STYLE) and not
WS_CAPTION);
Height:=Height - GetSystemMetrics(SM_CYCAPTION);
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
vyhodnoceni SQL dotazu
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 30.10.1999 10:15:23
Prave proto, ze SelectCount (taky se muze stat, ze bude muset projet cely
vyber) je tak pomaly, tak proc nevyuzit toho, ze pri TvojeQuery.Open se
aktivni radek nastavi na prvni vybrany - a kdyz tento neexistuje tak se
automatisky nastavi EOF !za tim si stojim!
Ty popisujes pripad, kdy potrebujes zjistit kolik vet jsi z databaze vybral
- tam mas samozrejme pravdu; ale ja jsem reagoval na pozadavek zjistit, zda
se vybralo neco (1 a vice radek) nebo nic
> -----P�vodn� zpr�va-----
> Od: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Odesl�no: 30. listopadu 1999 3:55
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: vyhodnoceni SQL dotazu
>
>
> To prece neni dobre. EOF znamena, ze jsi za koncicem,
> ale neznameny, ze QT neobsahuje zadne vety!
> Bud pouzi Empty a nebo zavoleje dotaz SelectCount As PocetVet From
> stejna tabulka a stejna podminka.
> Ja si pro tyto ucely vytvarim jeden pomocny Query, ktery je vyuzivan
> jednoduchou
> funkci. Potom jen zavolam funkci, do niz predam jmeno tabulky
> a podminku.
> RecordCount muze byt zatracene pomaly!
> Jaro
>
>
> > Ja radeji obecne pouzivam
> >
> > if not TvojeQuery.Eof
> > udelejneco1
> > else
> > udelejneco2
> >
> > protoze kdyz by select vybral velke mnozstvi radku tak
> RecordCount je
> > pomalejsi.
> >
> > David Vodicka
> >
> > > Staci otestovat RecordCount datasetu, ktery obsahuje pocet
> > > vybranych vet.
> > > Napr.
> > >
> > > if TvojeQuery.RecordCount > 0 then
> > > udelejneco1
> > > else
> > > udelejneco2
> > >
> >
> SQL Dotaz
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 30.10.1999 10:15:39
Babmk Martin wrote
> To vim take, ale ja potrebuji aby mi to ten radek vybralo Protoze vybiram
> dle
> toho osoby a je e aby mi to nevybralo NOVAKa, jen proto ze mu nekdo
> nevyplnil
> ULICI, kde bydli. Potrebuji prave poradit, jestli to NULL nejde nejak
> obejit.
> Prvne jsem zapomel uvest databazi takze Informix. Dik
>
Tak tam, kde testujes ULICI napis podmienku a za nu daj znak +
(plus), aspon v Oracli to tak funguje
napr:
.
.
Osoba.Ulica = Ulica.ID+ AND
.
.
JJ
Okno s BorderStyle "bsSizeable", ale bez "Caption"
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 30.10.1999 09:18:27 cet
Nevi prosim nekdo, jak se da udelat okno, ktere se chova jako
normalni "bsSizeable", ale ma jen "klientskou cast" bez oblasti,
ve ktere je "Caption" a "SysMenu" ?
(vypada tedy jako "bsNone", ale da se mysi menit jeho velikost)
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Ikony v horni casti okna
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 30.10.1999 09:25:27 cet
Nevi prosim nekdo, jak se pridavaji do horni casti okna vlastni
ikony k tem, co slouzi pro minimalizaci a maximalizaci okna,
a jak se popripade daji odstranit ty, ktere tam uz jsou ?
(Potreboval bych okno "bsSizeable", ale aby tam nebyla vubec ikona
pro jeho maximalizaci a naopak bych tam rad pridal svoji vlastni
pro minimalizaci do SysTray)
Daji se nejak rozumne odchytavat udalosti techto jiz existujicich
ikon, nebo to jde jen pres TWMSize a pod. ?
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Problem s DLL knihovnami na Win NT
[*] Ing.Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 30.10.1999 10:25:37
Zdravim,
Narazil jsem na nasledujici problem. Mam aplikaci, ktera je slozena
z EXE a nekolika DLL. Ve Win 95/98 pracuje aplikace normalne.
Ve Win NT hlasi hned pri startu ze nemuze najit DLL knihovnu XXX.DLL
v aktualnim adresari aplikace ani v zadnem dalsim systemovem - napr.:
C:\APLIKACE;C:\WINNT;C:\WINNT\SYSTEM32.
Knihovny jsou pritom umisteny na stejnem miste jako EXE. Nepomaha ani
prekopirovani do adresare WINNT/SYSTEM32.
Knihovny DLL se volaji staticky.
Program je napsan v Deplhi 3.02,
Win NT Workstation 4.0 SP 3.0
S pozdravem
----------------------------------------------------------------------------
Rosta Podmanicky
rosta(zv)trias92(tec)cz
Trias 92, spol.s.r.o. - Informacni systemy
http://www.trias92(tec)cz
Sv.Cecha 253
Jicin, 506 01
Czech republic, Europe
tel: +420 433 534 378
tel/fax: +420 433 533 134
----------------------------------------------------------------------------
konverze dbf
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 30.10.1999 10:27:37
jojo ja o nem vim, bohuzel ale nefunguje na pentiu II (hlasi runtime error).
----- P�vodn� zpr�va -----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 30. listopadu 1999 9:38
P�edm�t: RE: konverze dbf
> > potrebuji konvertovat mezi kodovyma strankama 895(kamenici) a win1250.
> > Nemate na to nekdo nejakej software ?
>
> Na http://webhost(tec)cz/elka v sekci PROGRAMOVANI hledej dosovsky program
> KONVERT. Da se spoustet i z prikazove radky a umi DBF vcetne memo polozek.SQL Dotaz
[*] Ren� Otisk - 30.10.1999 10:28:43
Hi,
Nevim, jestli jsem te dobre pochopil ale:
Select * from table where NECO1 like 'N%' and (NECO2 like 'NE%' OR NECO2 IS
NULL OR NECO2 = '').
Sroub
> To vim take, ale ja potrebuji aby mi to ten radek vybralo Protoze vybiram
dle
> toho osoby a je e aby mi to nevybralo NOVAKa, jen proto ze mu nekdo
nevyplnil
> ULICI, kde bydli. Potrebuji prave poradit, jestli to NULL nejde nejak
obejit.
> Prvne jsem zapomel uvest databazi takze Informix. Dik
> >Nebude to tim, ze NULL <> LIKE 'NE%' ?
> >otom kdyz je NECO2 NULL tak to samozrejme tento radek nevybere ....
>
> > Zdarvi obec delfinu!
> > Vybiram pres "Select * from table where NECO1 like 'N%' and
> > NECO2 like 'NE%'.
> > Problem nastane tehdy, kdyz v recordu tabulky je hodnota
> > fieldu 'NECO2' NUL
> > L, to pak nevybere nic, i kdyz ten record existuje. Zapisu-li
> > do toho pole vsa
> > k rucne mezeru, a pak ji smazu, tak to zacne normalne
> > fungovat nevite co s tim
> > (vybiram asi 35 polozek z 10 tabulek z nich 2 maji pres
> > 15000 recordu).
> >
> > D5, NT4/SP4
Otevreni zavreni CR-ROM
[*] Honza <delphi(zv)mis-net(tec)cz> - 30.10.1999 10:31:09
Zdar,
Tohle je fajn, v�m, �e to funguje.
ALE - co kdy� jsou v PC 2 CD-ROM mechaniky ... ???
Onehd� jsem to �e�il, ale marn� a tak by m� to tak� zaj�malo, jestli n�kdo
na n�co nep�i�el.
D�ky
..........Honza
>Ahoj ,dufam ze Ti trochu pomozem.
>Skus prestudovat :
>uses:...,MMSystem;
>
>mciSendString('Set cdaudio door open wait', nil, 0, handle); // otvor tray
>mciSendString('Set cdaudio door closed wait', nil, 0, handle); // zatvor
>tray
>
>>Ahoj,
>> chci se zeptat jak je mozne zjistit zda je CD-ROM otevrena ci zavrena.
>>Potrebuju ovladat otevreni/zavreni jednim tlacitkem?
>>
vyhodnoceni SQL dotazu
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 30.10.1999 10:35:05
Jeste jedna drobnost: Empty jsem v D5 nenasel - je tam jen EmptyTable : a to
bych teda nepouzival na zjisteni ale na mazani; a dale funkci IsEmpty : ta
je uz nadejnejsi, ale podle kodu :
function TDataSet.IsEmpty: Boolean;
begin
Result := FActiveRecord >= FRecordCount;
end;
bych si myslel, ze to zase bude pouzivat (nekdy dost pomaly) RecordCount
David Vodicka
> -----P�vodn� zpr�va-----
> Od: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Odesl�no: 30. listopadu 1999 3:55
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: vyhodnoceni SQL dotazu
>
>
> To prece neni dobre. EOF znamena, ze jsi za koncicem,
> ale neznameny, ze QT neobsahuje zadne vety!
> Bud pouzi Empty a nebo zavoleje dotaz SelectCount As PocetVet From
> stejna tabulka a stejna podminka.
> Ja si pro tyto ucely vytvarim jeden pomocny Query, ktery je vyuzivan
> jednoduchou
> funkci. Potom jen zavolam funkci, do niz predam jmeno tabulky
> a podminku.
> RecordCount muze byt zatracene pomaly!
> Jaro
> konverze dbf
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 30.10.1999 10:38:16
> jojo ja o nem vim, bohuzel ale nefunguje na pentiu II (hlasi
> runtime error).
Dik za upozorneni. Uz je tam opravena verze.Problem s DLL knihovnami na Win NT
[*] Pavel K�ehula <pavel(zv)mas(tec)cz> - 30.10.1999 10:40:51
On Tue, 30 Nov 1999 10:25:37 +0100, Ing.Rostislav Podmanicky wrote:
>Narazil jsem na nasledujici problem. Mam aplikaci, ktera je slozena
>z EXE a nekolika DLL. Ve Win 95/98 pracuje aplikace normalne.
>Ve Win NT hlasi hned pri startu ze nemuze najit DLL knihovnu XXX.DLL
>v aktualnim adresari aplikace ani v zadnem dalsim systemovem - napr.:
> C:\APLIKACE;C:\WINNT;C:\WINNT\SYSTEM32.
>Knihovny jsou pritom umisteny na stejnem miste jako EXE. Nepomaha ani
>prekopirovani do adresare WINNT/SYSTEM32.
>Knihovny DLL se volaji staticky.
Ahoj,
jesli funkci z knihovny volas takto:
function xxxx: integer; external 'dllname' ...
pak to zkus takto:
function xxxx: integer; external 'dllname.dll' ...
Pavel
------------------------------
Pavel K�ehula <pavel(zv)mas(tec)cz>
M&S spol. s r.o. Boskovice
------------------------------
Potize s knihovnou GDS32.DLL (soucast klienta pro
[*] Ing.Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 30.10.1999 10:40:46
Zdravim
Nesetkal se nekdo z Vas s nasledujici chybou
(D3.02, Win95/98/NT, SQL server InterBase 5.5 na serveru Win NT 4.0 SP 4.0):
Aplikace pristupuje na SQL server InterBase pomoci BDE 4.51 (5.01) .
Vse pracuje normalne pouze pri ukonceni zahlasi nasledujici chybu.
"Program provedl neplatnou operaci v modulu GDS32.DLL" ........
a aplikace se sice ukonci ale ponekud nestandardne. Chyba se projevuje
POUZE u jednoho zakaznika na siti, kde jsou stanice s Win95 A/ Win 95 B/ Win
98,
a to pouze na nekterych. Jedinym spolecnym jmenovatelem jsou pouzite
sitove karty 3COM.
Nepomaha ani reinstalace BDE, ani upgrade BDE a ani nejnovejsi verze
GDS32.DLL zaslana z Inprise. Nejnovejsi knihovna se chova take zajimave -
nelze se "sice" vubec pripojit k databazi ale pri ukonceni nehlasi aplikace
zadnou chybu :-)....
Chystame se na reinstalaci Windows ale docela by me zajimala pricina.
----------------------------------------------------------------------------
Rosta Podmanicky
rosta(zv)trias92(tec)cz
Trias 92, spol.s.r.o. - Informacni systemy
http://www.trias92(tec)cz
Sv.Cecha 253
Jicin, 506 01
Czech republic, Europe
tel: +420 433 534 378
tel/fax: +420 433 533 134
----------------------------------------------------------------------------
Received from Babik.USERS.IO
[*] Bab�k Martin (+42035620,MUS a.s. M.Babik) <M.Babik(zv)mus(tec)cz> - ov 1999 11:16:22
Asi jsem se spatne vyjadril, timto se omlouvam. Ono by to spis melo byt :
JMENO like 'NOVA%' AND
ULICE like '%' //a tady je ULICE rovno NULL
Nyni je to snad srozumitelne
M&B
>>> MUS.TC."SMTP: Mal*y Dobromil #dodo(zv)rak.pr.ds.mfcr(tec)cz" 11/30 10:07 >>>
>Ahoj,
>abych se priznal, tak to nechapu (mozna bych
>si mel koupit medvidka myvala), bud trosku
>konkretnejsi (treba napis konkretni jmena
>sloupcu a cely SQL prikaz)
>Protoze pokud das podminku, ze
>NECO1 like 'N%' AND
>NECO2 like 'NE%'
>a to NECO2 bude NULL taxe nediv, ze se Ti tento
>zaznam nevybere, protoze, jak Ti jiz bylo napsano
>like "NE%" _neni_ NULL
Vyrobni nebo seriove cislo disku
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 30.10.1999 11:19:21
Kdyz tak hezky prosis.....
The volume serial number is stored in bytes 39-42 of the boot sector
on the disk. So, the basic approach looks like this:
type
TSector = array[0..511] of Byte;
procedure ChangeVolumeSerialNumber(Drive: Char;
SerialNumber: LongWord);
var
Boot: TSector;
begin
ReadBoot(Drive, Boot);
Move(SerialNumber, Boot[39], SizeOf(SerialNumber));
WriteBoot(Drive, Boot) end;
A complication occurs, however, because reading and writing the boot
sector in NT requires completely different code from that used in
reading and writing the boot sector in Win95/98.
So here's the complete code, taking into account the differences
between NT and Win95/98:
type
TSector = array[0..511] of Byte;
procedure ReadBootNT(Drive: Char; var Boot: TSector);
var
BytesRead: Cardinal;
H: THandle;
begin
H := CreateFile(PChar(Format('\\.\%s:', [UpCase(Drive)])),
GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if H = INVALID_HANDLE_VALUE then
raise Exception.Create(SysErrorMessage(GetLastError));
try
if not ReadFile(H, Boot, SizeOf(Boot), BytesRead, nil)then
raise Exception.Create(SysErrorMessage(GetLastError));
finally
CloseHandle(H) end end;
procedure WriteBootNT(Drive: Char; var Boot: TSector);
var
BytesWritten: Cardinal;
H: THandle;
begin
H := CreateFile(PChar(Format('\\.\%s:', [UpCase(Drive)])),
GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if H = INVALID_HANDLE_VALUE then
raise Exception.Create(SysErrorMessage(GetLastError));
try
if not WriteFile(H, Boot, SizeOf(Boot), BytesWritten, nil)then
raise Exception.Create(SysErrorMessage(GetLastError));
finally
CloseHandle(H) end end;
type
TDiocRegisters = record
EBX, EDX, ECX, EAX, EDI, ESI, Flags: LongWord end;
TVWin32CtlCode = (ccNone, ccVWin32IntIoctl, ccVWin32Int25,
ccVWin32Int26, ccVWin32Int13);
function VWin32(CtlCode: TVWin32CtlCode;
var Regs: TDiocRegisters): Boolean;
var
Device: THandle;
Count: LongWord;
begin
Device := CreateFile('\\.\VWIN32', 0, 0, nil, 0,
FILE_FLAG_DELETE_ON_CLOSE, 0);
if Device = INVALID_HANDLE_VALUE then
raise Exception.Create(SysErrorMessage(GetLastError));
try
Result := DeviceIoControl(Device, Ord(CtlCode), (zv)Regs,
SizeOf(Regs), (zv)Regs, SizeOf(Regs), Count, nil);
finally
CloseHandle(Device) end end;
procedure ReadBoot95(Drive: Char; var Boot: TSector);
var
Regs: TDiocRegisters;
begin
with Regs do begin
EAX := Ord(UpCase(Drive)) - Ord('A');
EBX := LongWord((zv)Boot);
ECX := 1;
EDX := 0 end;
if not VWin32(ccVWin32Int25, Regs) then
raise Exception.Create(SysErrorMessage(GetLastError)) end;
procedure WriteBoot95(Drive: Char; var Boot: TSector);
var
Regs: TDiocRegisters;
begin
with Regs do begin
EAX := Ord(UpCase(Drive)) - Ord('A');
EBX := LongWord((zv)Boot);
ECX := 1;
EDX := 0 end;
if not VWin32(ccVWin32Int26, Regs) then
raise Exception.Create(SysErrorMessage(GetLastError)) end;
procedure ChangeVolumeSerialNumber(Drive: Char;
SerialNumber: LongWord);
var
Boot: TSector;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
ReadBoot95(Drive, Boot);
VER_PLATFORM_WIN32_NT:
ReadBootNT(Drive, Boot) end;
Move(SerialNumber, Boot[39], SizeOf(SerialNumber));
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
WriteBoot95(Drive, Boot);
VER_PLATFORM_WIN32_NT:
WriteBootNT(Drive, Boot)
end
end;
Mira
----- P�vodn� zpr�va -----
Od: Petrik <petrik(zv)geocities.com>
Komu: Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 29. listopadu 1999 0:11
P�edm�t: Vyrobni nebo seriove cislo disku
> Nazdarek,
>
> jak sem se dival do archivu, resilo se tu jak
> PRECIST ser. cislo. To samozrejme vim.
> ALE ja chci vedet,
>
> JAK SERIOVE CISLO (nastavovane pri formatu disku)
> NASTAVIT ???????????????
>
Problem s DLL knihovnami na Win NT
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.10.1999 11:21:20
U NT se myslim, narozdil od Win 9x,
musi knihovny volat i s priponou.
function xxx : boolean;
external 'knihovna.DLL'
^^^^
Dobra.
> ----------
> Mam aplikaci, ktera je slozena
> z EXE a nekolika DLL. Ve Win 95/98 pracuje aplikace normalne.
> Ve Win NT hlasi hned pri startu ze nemuze najit DLL knihovnu XXX.DLL
> v aktualnim adresari aplikace ani v zadnem dalsim systemovem - napr.:
> C:\APLIKACE;C:\WINNT;C:\WINNT\SYSTEM32.
> Zavreni vsech TDataset
[*] Ren� Otisk - 30.10.1999 11:27:44
Hi,
D3, W95, Paradox
Jen bych potreboval mit jistotu. V DataModule mam komponenty TRxQuery, TDatabase. Chci vsechny tyto komponenty zavrit (Potrebuji zmenit DatabaseName nebo NetDir...). Staci mi na to nasledujici prikazy nebo mi to jeste neco nepochyti?
Session.CloseDatabase;
Session.DropConection;
Dekuji
Sroub
Ikony v horni casti okna
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 30.10.1999 11:36:07
Asi ti tahle odpoved moc nepomuze, ale na tohle existuje tutove
komponenta resp. nekolik komponent v jednom baliku (free a vcetne
sources), kde byla napr. i komponenta na castecne pruhledne formy,
rotujici text a urcite jeste neco. Cele to napsal nejaky Rus (jako
narodnost), je k tomu i rusky help, takze to bude _velmi_ pravdepodobne
na www.torry.ru. Urcite jsem to take nekomu posilal, takze mas sanci, ze
si tohle nekdo precte a posle ti to take. Ja mam bohuzel jiny disk,
takze to tady nemam. Preji mnoho stesti.
**********************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi
**********************************
Nevi prosim nekdo, jak se pridavaji do horni casti okna vlastni
ikony k tem, co slouzi pro minimalizaci a maximalizaci okna,
a jak se popripade daji odstranit ty, ktere tam uz jsou ?
(Potreboval bych okno "bsSizeable", ale aby tam nebyla vubec ikona
pro jeho maximalizaci a naopak bych tam rad pridal svoji vlastni
pro minimalizaci do SysTray)
Daji se nejak rozumne odchytavat udalosti techto jiz existujicich
ikon, nebo to jde jen pres TWMSize a pod. ?Problem s DLL knihovnami na Win NT
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 30.10.1999 11:42:10
Je mozne, ze pri tom statickem linkovani jsi napsal
function.......'NAZEV'; namisto
function.......'NAZEV.DLL'
Win95 a 98 to sezerou i bez toho DLL, ale NT nikoli.
Kdyby neslo ani tohle, tak by mohlo pomoct prejmenovat ty *.DLL na
soubory BEZ pripony. Vsimni si, jaky soubor se NT pokouseji hledat,
resp. jakou ocekavaji priponu. Pokud zadnou, je to urcite tenhle duvod.
**********************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi
**********************************
-----Original Message-----
From: Ing.Rostislav Podmanicky [mailto:rosta(zv)trias92(tec)cz]
Sent: Tuesday, November 30, 1999 10:26 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Problem s DLL knihovnami na Win NT
Zdravim,
Narazil jsem na nasledujici problem. Mam aplikaci, ktera je slozena
z EXE a nekolika DLL. Ve Win 95/98 pracuje aplikace normalne.
Ve Win NT hlasi hned pri startu ze nemuze najit DLL knihovnu XXX.DLL
v aktualnim adresari aplikace ani v zadnem dalsim systemovem - napr.:
C:\APLIKACE;C:\WINNT;C:\WINNT\SYSTEM32.
Knihovny jsou pritom umisteny na stejnem miste jako EXE. Nepomaha ani
prekopirovani do adresare WINNT/SYSTEM32.
Knihovny DLL se volaji staticky.
Program je napsan v Deplhi 3.02,
Win NT Workstation 4.0 SP 3.0
S pozdravem
------------------------------------------------------------------------
----
Rosta Podmanicky
rosta(zv)trias92(tec)cz
Trias 92, spol.s.r.o. - Informacni systemy
http://www.trias92(tec)cz
Sv.Cecha 253
Jicin, 506 01
Czech republic, Europe
tel: +420 433 534 378
tel/fax: +420 433 533 134
------------------------------------------------------------------------
----
SQL Dotaz - NULL Hodnota
[*] Hole�ek Radek <holecek.radek(zv)seznam(tec)cz> - 30.10.1999 11:44:01
Odpoved
Keywords: SELECT, NULL
Oracle ma funkci NVL(x,y) - vraci Y v pripade, ze X je NULL, jinak vraci
X. Uzitecna pri
prezentaci hodnot NULL v dotazech.
--
Zaslal : Radek Hole�ek
e-mail : holecek.radek(zv)seznam(tec)cz
ICQ : 45610992
Telefon : 0658 / 412 213
Zakaz minimalizacie
[*] Kr�l��ek Milan <milan.kralicek(zv)teplarny(tec)cz> - 30.10.1999 11:45:08
Dopln si do objektu formulare :
type
TForm1 = class(TForm)
.
.
public
.
procedure GetWM_SysCommand (var msg: TMessage); message
wm_SysCommand;
end;
--------
procedure TForm1.GetWM_SysCommand (var msg: TMessage);
begin
Case Msg.wParam of
61728:inherited; // restore
61488:inherited; // maximize
61536:inherited; // close
61472:inherited; // minimize
else inherited;
end;
end;
--------
Pokud si zjistis odpovidajici konastanty misto cisel muzes je pouzit.
Zrusenim inherited u prislusne zpravy ji zakazes. Nebo si tam muzes dat
vlastni obsluhu.
Milan
> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 30. listopadu 1999 8:31
> Komu: Delphi konferencia
> P�edm�t: Zakaz minimalizacie
>
> Caute
> �
> vo svojom programe potrebujem zakazat minimalizaciu hlavneho okna, zrusil
> som vsetky ikony v casti BORDERICONS, BORDERSTYLE mam nastavene na BSNONE
> a FORMSTYLE na FSSTAYONTOP, ale ked sa uzivatel presunie myskou dole na
> riadok WINDOWSU a da prave tlacitko na myske na spustenej aplikacii, tak
> mu WIN stale ponuka minimalizaciu a tu by som potreboval vypnut, ako na to
> ?
> �
> ��������������������������������������������������������������������������
> ��������������������� dik
> �
> �
>
> Ing. J�n Kuch�r
> KIaR SjF TU Ko�ice
> Park Komensk�ho 9, 041 27
> tel. : 095/602 2589 mobil : 0905 229548
> e-mail: kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk> Fonty NT
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.10.1999 11:49:52
Hm, ten radek s default_charsetem je i v graphics.pas Delphi 2 ovsem mohu ho
beztrestne prebouchnout? a co vlastne znamena cislo 238 ?
Diky
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Tom� Vin� [SMTP:T.Vins(zv)Aquasoft(tec)cz]
> Odesl�no: 30. listopadu 1999 9:33
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Fonty NT
>
> > nevite, prosim, nekdo, jak resit problem s ceskymi fonty na NT?
>
> nevim jak v delphi 2, v delphi 1 jsem mel podobny problem a byl za pomoci
> borlandu vyresen upravou unit graphics.pas. do funkce GetHandle byla
> nahrazena radka:
>
> lfCharSet := DEFAULT_CHARSET;
>
> radkou
>
> lfCharSet := 238;
>
> Ahoj
> <Masa>Interbase
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 30.10.1999 10:56:56 pst
Ahoj.
Vie mi niekto poradit ako zakazat databazam v Interbase nabalovat na seba
zbytocne udaje. Kazdy ping na databazu mi ju zvecsi co je pre mna velmi
nepriazniva situacia (som obmedzeny miestom na disku), kedze v tabulkach v
databaze nevytvaram ziadne nove rekordy (len prepisujem uz existujuce) mala
by si databaza zachovavat svoju velkost. Zvecsenie kapacity disku na
dostatocnu mieru (vzhladom na nabalovanie databaz) by bolo moc financne
narocne.
Vdaka.
Martin Galik.
m_g_66(zv)hotmail.com
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
konverze DBF
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 30.10.1999 12:02:07
Jo skvely, dik.
ale jeste jeden problem. Kdyz to zkonvertuju do 1250 a otevru v excelu tak
mi to stejne zobrazuje hieroglyfy, stejne jako kdyz k tomu pristupuju pres
ODBC driver :(( (ten program tam asi nevklada kodovou stranku do dbf). Jinak
v notepadu to zobrazuje dobre, ale stve me ze ten excel to tak zbabra
(( Nevis co s tim ?konverze DBF
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 30.10.1999 12:05:54
> ale jeste jeden problem. Kdyz to zkonvertuju do 1250 a otevru
> v excelu tak
> mi to stejne zobrazuje hieroglyfy, stejne jako kdyz k tomu
> pristupuju pres
> ODBC driver :(( (ten program tam asi nevklada kodovou stranku
> do dbf). Jinak
> v notepadu to zobrazuje dobre, ale stve me ze ten excel to tak zbabra
> (( Nevis co s tim ?
Reseni je prevest to do LATIN-2. Pak to v Excelu (a stejne tak v Accessu)
otevres v pohode.SQL Dotaz
[*] Honza Jochman <Jan.Jochman(zv)ais(tec)cz> - 30.10.1999 12:06:55
A co takhle?
"Select * from table where NECO1 like 'N%' and ( NECO2 like 'NE%' or NECO2
Is NULL )
S pozdravem Honza Jochman
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Bab�k Martin (+42035620,MUS a.s. M.Babik)
> Odesl�no: 30. listopadu 1999 8:36
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: SQL Dotaz
>
>
> To vim take, ale ja potrebuji aby mi to ten radek vybralo Protoze
> vybiram dle
> toho osoby a je e aby mi to nevybralo NOVAKa, jen proto ze mu
> nekdo nevyplnil
> ULICI, kde bydli. Potrebuji prave poradit, jestli to NULL nejde
> nejak obejit.
> Prvne jsem zapomel uvest databazi takze Informix. Dik
>
> M&B
>
> >>> MUS.TC."SMTP: Radek Pospisil #radek.pospisil(zv)sprinx(tec)cz" 11/29
> 4:09 >>>
> >Nebude to tim, ze NULL <> LIKE 'NE%' ?
> >otom kdyz je NECO2 NULL tak to samozrejme tento radek nevybere ....
>
> > Zdarvi obec delfinu!
> > Vybiram pres "Select * from table where NECO1 like 'N%' and
> > NECO2 like 'NE%'.
> > Problem nastane tehdy, kdyz v recordu tabulky je hodnota
> > fieldu 'NECO2' NUL
> > L, to pak nevybere nic, i kdyz ten record existuje. Zapisu-li
> > do toho pole vsa
> > k rucne mezeru, a pak ji smazu, tak to zacne normalne
> > fungovat nevite co s tim
> > (vybiram asi 35 polozek z 10 tabulek z nich 2 maji pres
> > 15000 recordu).
> >
> > D5, NT4/SP4
> >
> > Dik za radu.
> >
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>D5 - ano ci ne ?
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 30.10.1999 12:24:46
Haj hou!
> Napriklad na notebooku (Pentium 150Mhz, 16MB RAM) D3 behala celkem OK ale
D4
> uz nebylo pouzitelne. Po rozsireni RAM na 48MB uz to celkem jde.
> Jak je to s D5 ? O kolik je zase narocnejsi.
Produkovat SW pro Windows a pod Windows na masine s mene jak 64MB je vzdycky
opruz. D5 na 64MB beha hezky.
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
D5 - ano ci ne ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.10.1999 12:26:52
>>
>> Jak je obtizne prevest projekty z D3 pod D5 ?
>
>Zpravidla staci jen nova kompilace. >
:) Stastna to zena.
Mozna u aplikace, ktera pouziva striktne jen veci od Borlandu. Pokud pouzivate API funkce u nichz doslo ke zmene typu VAR parametru z Integer na Cardinal (proc tomu proboha nemuzou rikat DWORD ?!) tak budes muset menit typy promennych.
Pokud pouzivas API funkce ktere vraceji handle a signalizuji hodnotou -1 (resp $FFFFFFFF, abychom byy presni) selhani dostanes se do dalsich problemu (jako ja) pokud jsi z lenosti pouzival konstrukci:
if FxResult = -1 then
misto
if FxResult <> INVALID_HANDLE_VALUE then
(v tomto pripade nastesti kompilator vyplivne warning.)
atd, atd
Jsem z podobnych veci dost rozladeny (kdyz to reknu slusne). Je jasne, ze s tim Borlandi nemuzou moc delat, protoze chyba je jiz v samotne D3. Kdyby existoval regularni DWORD driv nebylo by podobnych problemu.
Poznamka na okraj:
Pri komparaci Cardinal s Integer generuje D5 kod, ktery rozsiruje 32 bitovy Cardinal na 64 bitu (hornich 32 bitu nula). Takze je cele porovnani podstatne delsi. To same plati pro porovnani se zapornou konstantou.
Zdravi
D. Toman
Problem s DLL knihovnami na Win NT
[*] Kr�l��ek Milan <milan.kralicek(zv)teplarny(tec)cz> - 30.10.1999 12:57:21
?? 1.Nelze naj�t DLL
nebo
2.Nelze naj�t proceduru(funkci) v DLL
add1.
Doporucuji pouzit konstrukci
var FP:PChar;
FName:String;
begin
GetMem(FP,230); // DLL v systemovem adresari
GetSystemDirectory(FP,230);
FName:=FP+'\XXX.DLL';
FreeMem(FP,230);
if FileExist(FName) then ...
FName:=ExtractFilePath(Paramstr(0)) // DLL v programovem adresari
FName:=FName+'XXX.DLL';
if FileExist (FName) then ...
add 2:
U WinNT se musi pouzivat tzv. C-volani fci z DLL
Asi minuly tyden jsem daval priklad (i kdyz s drobnou chybou).
MK
> Zdravim,
>
> Narazil jsem na nasledujici problem. Mam aplikaci, ktera je slozena
> z EXE a nekolika DLL. Ve Win 95/98 pracuje aplikace normalne.
> Ve Win NT hlasi hned pri startu ze nemuze najit DLL knihovnu XXX.DLL
> v aktualnim adresari aplikace ani v zadnem dalsim systemovem - napr.:
> C:\APLIKACE;C:\WINNT;C:\WINNT\SYSTEM32.
> Knihovny jsou pritom umisteny na stejnem miste jako EXE. Nepomaha ani
> prekopirovani do adresare WINNT/SYSTEM32.
> Knihovny DLL se volaji staticky.
>
> Program je napsan v Deplhi 3.02,
> Win NT Workstation 4.0 SP 3.0
>
> S pozdravem
> --------------------------------------------------------------------------
> --
> Rosta Podmanicky
> rosta(zv)trias92(tec)cz
>
> Trias 92, spol.s.r.o. - Informacni systemy
> http://www.trias92(tec)cz
> Sv.Cecha 253
> Jicin, 506 01
> Czech republic, Europe
> tel: +420 433 534 378
> tel/fax: +420 433 533 134
> --------------------------------------------------------------------------
> --
>
>
>
> konverze DBF
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 30.10.1999 13:04:19
hmm
mas pravdu jde to
ale to mi vysvetli proc to blbne s CP1250 ?
----- P�vodn� zpr�va -----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 30. listopadu 1999 12:05
P�edm�t: RE: konverze DBF
> > ale jeste jeden problem. Kdyz to zkonvertuju do 1250 a otevru
> > v excelu tak
> > mi to stejne zobrazuje hieroglyfy, stejne jako kdyz k tomu
> > pristupuju pres
> > ODBC driver :(( (ten program tam asi nevklada kodovou stranku
> > do dbf). Jinak
> > v notepadu to zobrazuje dobre, ale stve me ze ten excel to tak zbabra
> > (( Nevis co s tim ?
>
> Reseni je prevest to do LATIN-2. Pak to v Excelu (a stejne tak v Accessu)
> otevres v pohode.D5 - ano ci ne ?
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 30.10.1999 13:06:00
.
.
> Ja osobne bych volil variantu A, kdyz to prelozis, muzes to pak napriklad
venovat Delphi-Jedi, cimz treba
> udelas radost dalsim tisicum programatoru :-)
.
to je fakt jenze k tomu prekladani se nejdriv potrebujes naucit C a pak
(vetsinou pri prekladani) te napadne proc ja vlastne to *.h prekladam kdyz
to muzu rovnou napsat v C++ Builderu ?
.
.
> Navic v krabici s Delphi 5 mas i C++ Builder 3. Ve hre jsou samozrejme i
dalsi veci, napriklad BCB
> ti umoznuje pouzivat i MFC.
.
.
bohuzel pro D5 PROFESIONAL (na ENTERPRISE nemam) jen C++ Builder 3 STANDARD
A STANDARD neumo��uje tvorbu datab�zov�ch aplikac� - neobsahuje datab�zov�
komponenty, komponenty pro Internet, ani knihovny MFC �i OWL. Tento produkt
je ur�en v�hradn� pro v�uku vizu�ln�ho v�voje aplikac� a programov�n� v
jazyce C++.
M.
Televizni tuner ATI ALL IN WONDER PRO pod Delphi
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 30.10.1999 12:14:27 cet
>Ja ti sice neporadim, ale zkus se kouknout na stranku
>http://www(tec)czechin.com/misch/index_cz.htm
Tak tohle je opravdu zajimave - diky moc !!!
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
konverze DBF
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 30.10.1999 13:24:59
> ale to mi vysvetli proc to blbne s CP1250 ?
Tak to by ti mohli rict panove z http://www.microsoft.com ;-)Ikony v horni casti okna
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 30.10.1999 12:46:00 cet
>Asi ti tahle odpoved moc nepomuze, ale na tohle existuje tutove
>komponenta resp. nekolik komponent v jednom baliku (free a vcetne
>sources), kde byla napr. i komponenta na castecne pruhledne formy,
>rotujici text a urcite jeste neco. Cele to napsal nejaky Rus (jako
>narodnost), je k tomu i rusky help, takze to bude _velmi_ pravdepodobne
>na www.torry.ru. Urcite jsem to take nekomu posilal, takze mas sanci, ze
>si tohle nekdo precte a posle ti to take. Ja mam bohuzel jiny disk,
>takze to tady nemam. Preji mnoho stesti.
>
Dik - nasel jsem tam "yupack.zip", ktery ma jen ikony pro minimalizaci
a zavreni okna a jeste k tomu sve vlastni, ale zadny help to nema,
takze to asi nebude presne to, co jsi myslel.
Podle tech ikon tam ale mozna bude to, co potrebuju a budu to tedy
muset jeste prozkoumat ...
Pokud bys ale nahodou prisel na to, co jsi puvodne myslel,
tak budu rad, kdyz se jeste ozves ...
Diky moc
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Ikony v horni casti okna
[*] Tibor Galik <tgalik(zv)vsz.sk> - 30.10.1999 13:50:42
Pozri na
www.micrel-dev.com/delphi/captbtn.zip
Zrusenie ikon: vo forme mas vlastnost BorderIcons. Tam si to nastav.
cao
tg
S pozdravom/Regards
Tibor Galik
tgalik(zv)vsz.sk
>>> "Vladimir Sladky" <sladky_vladimir(zv)hotmail.com> 11/30 9:25 dop. >>>
Nevi prosim nekdo, jak se pridavaji do horni casti okna vlastni
ikony k tem, co slouzi pro minimalizaci a maximalizaci okna,
a jak se popripade daji odstranit ty, ktere tam uz jsou ?
(Potreboval bych okno "bsSizeable", ale aby tam nebyla vubec ikona
pro jeho maximalizaci a naopak bych tam rad pridal svoji vlastni
pro minimalizaci do SysTray)
Daji se nejak rozumne odchytavat udalosti techto jiz existujicich
ikon, nebo to jde jen pres TWMSize a pod. ?
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Ikony v horni casti okna
[*] Mik Radim <mik(zv)oce(tec)cz> - 30.10.1999 13:59:03
Jedna se o FormRgn. bud na Torry nebo DSP
---------------------------------------
Radim Mik, SyCo DPS
> >narodnost), je k tomu i rusky help, takze to bude _velmi_ pravdepodobne
> >na www.torry.ru. Urcite jsem to take nekomu posilal, takze mas sanci,
> Pokud bys ale nahodou prisel na to, co jsi puvodne myslel,
> tak budu rad, kdyz se jeste ozves ...
>
> Diky moc
>
>
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
> TMediaPlayer
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 30.10.1999 14:26:31
Zdravim,
jak vytvorit novy prazdny wav soubor, abych mohl do nej nahravat pomoci TMediaPlayer.
Diky vsem. Vlada Cadsky
cadsky(zv)atlas(tec)cz
Delphi 5 .... uz funguje pod W 2000 RC2
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 30.10.1999 14:42:39
:-)))
Ono to asi nebude tak zle, my provozujeme W2000 na serveru
uz od ledna 99 (od verze NT5.0(!) beta 2), dnes tam jede
W2000 RC2 Advanced Server a to uz vypada pomerne slusne.
Problemy budou spis se starymi "ne(po)slusnymi" aplikacemi.
### Petr Vones napsal dne 29 Nov 99, v 22:17 :
> > Male upresneni: 17.02.2000 bude W2000 ENGLISH,
> > ceska pochopitelne asi tak za 100 dnu potom :-)
>
> A druhy servispack po kterem to terpve zacne fungovat tak nekdy v srpnu
> :-)
> Petr Vones, amatersky programator
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Delphi 5 .... uz funguje pod W 2000 RC2
[*] Jaro <jaro(zv)sinea(tec)cz> - 30.10.1999 06:12:27 -0800
Kdepak, uz tahle soucasna verze RC2 je skvela
Jaro
> Zdenek Drvota wrote:
> > Male upresneni: 17.02.2000 bude W2000 ENGLISH,
> > ceska pochopitelne asi tak za 100 dnu potom :-)
>
> A druhy servispack po kterem to terpve zacne fungovat tak nekdy v srpnu
:-)
>
> --
>
> Petr Vones, amatersky programator
>
>Indexovani DBF s podminkou
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 30.10.1999 15:43:53
Ahoj,
mel bych k�vam jeden dotaz. Resil jste nekdo indexovani FoxPro tabulky *.DBF
v�Delphi ?
Potreboval bych naindexovat tabulku s�tim, ze se do indexu zaradi pouze
nezdeletovane vety.
Neco jako ve FoxPro :
Index on "vyraz" tag "nazevindexu" for not deleted()
Diky moc za pripadne odpovedi.
Pavel Koukal
Delphi 3, BDE 5.01
Application.ProcessMessages
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 30.10.1999 15:59:55
Pouzivam FreeIB Components z nich dataset mam nastaveny CachedUpdates.
Po volani ApplyUpdates trva asi 15 min pokial to urobi. No a pri tom mi
zatuhne vypis aplikacie na obrazovku. Mam pocit ze by to vyriesilo nikede
volat Application.ProcessMessages. Otazka je kde? Dik
ScreenSever
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 30.10.1999 16:05:17
Ahoj,
potreboval bych radu, jak ukoncit programem screensever.
Byla tu uz jednou rada jak zabranit spusteni:
>Pred tim se rozesila SendMessage(WM_SYSCOMMAND,SC_SCREENSAVE),
>tzn. pro blokovani setrice by melo stacit aby kterakoliv aplikace chytila
WM_SYSCOMMAND,
>prikaz SC_SCREENSAVE a vratila 0
(akorat ta navratova hodnota je tusim -1)
Ale jak ho ukoncit, kdyz uz bezi?
Pohnout kurzorem pomoci SetCursorPos() funguje ve WinNT, ale napr. v Win98
ne :o(
(. a stejne se mi to moc nezamlouva)
Melo by byt prece rozumnejsi reseni (nejaky Message s WM_CLOSE nebo
WM_DESTROY).
Nevite nekdo?
diiik
Petr Smol�k
psmolik(zv)fides(tec)cz
Ikony v horni casti okna
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 30.10.1999 15:06:24 cet
>Jedna se o FormRgn. bud na Torry nebo DSP
>---------------------------------------
Dik - uz hledam ...
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
D5 - ano ci ne ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.10.1999 16:45:51
>> Ja osobne bych volil variantu A, kdyz to prelozis, muzes to pak napriklad
>venovat Delphi-Jedi, cimz treba
>> udelas radost dalsim tisicum programatoru :-)
>..
>
>to je fakt jenze k tomu prekladani se nejdriv potrebujes naucit C a pak
>(vetsinou pri prekladani) te napadne proc ja vlastne to *.h prekladam kdyz
>to muzu rovnou napsat v C++ Builderu ?
no par header filu jsem prelozil ale rozhodne bych netvrdil, ze diky tomu ze tusim jak se deklaruji promenne v Ccku jsem se v nem naucil programovat. :-(
Nez napises program v novem jazyce tak abys mohl prohlasit, ze pouzivas vsechny finesy bude trvat peknych par dlouhych mesicu...
Kdyz uz menit Pascal za C pak v zadnem pripade ne za jine nez od MS (tedy pokud mam programovat ve Windows). Se C++ Builderem a podobnymi clovek taky brzy narazi, pokud se zacne zajimat o systemove zalezitosti..
Zdravi
D. Toman
Problem s DLL knihovnami na Win NT
[*] Ing.Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 30.10.1999 17:00:37
Diky vsem za pomoc, uz to pracuje spravne.
nazvy knihoven je nutne uvadet vcetne pripony DLL tedy 'dllname.dll' !
Rosta Podmanicky
Trias 92 s.r.o.
> jesli funkci z knihovny volas takto:
> function xxxx: integer; external 'dllname' ...
>
> pak to zkus takto:
> function xxxx: integer; external 'dllname.dll' ...
>
> Pavel
ScreenSever
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 30.10.1999 17:17:21
najdi si v seznamu bezicich aplikaci screensaver
(*.scr) a kill na nej :-) proste ho utnout.
### Petr Smol�k napsal dne 30 Nov 99, v 16:05 :
> Ahoj,
> potreboval bych radu, jak ukoncit programem screensever.
> Byla tu uz jednou rada jak zabranit spusteni:
>
> >Pred tim se rozesila SendMessage(WM_SYSCOMMAND,SC_SCREENSAVE),
> >tzn. pro blokovani setrice by melo stacit aby kterakoliv aplikace chytila
> WM_SYSCOMMAND,
> >prikaz SC_SCREENSAVE a vratila 0
>
> (akorat ta navratova hodnota je tusim -1)
>
> Ale jak ho ukoncit, kdyz uz bezi?
> Pohnout kurzorem pomoci SetCursorPos() funguje ve WinNT, ale napr. v Win98
> ne :o( (. a stejne se mi to moc nezamlouva) Melo by byt prece rozumnejsi
> reseni (nejaky Message s WM_CLOSE nebo WM_DESTROY). Nevite nekdo?
>
> diiik
>
> Petr Smol�k
> psmolik(zv)fides(tec)cz
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Otevreni zavreni CR-ROM
[*] Radek BoHaT� <bohaty(zv)pal.skm.vutbr(tec)cz> - 30.10.1999 18:01:13
> Cauec,
>
> > Ahoj ,dufam ze Ti trochu pomozem.
> > Skus prestudovat :
> > uses:...,MMSystem;
> >
> > mciSendString('Set cdaudio door open wait', nil, 0, handle); //
> otvor tray
> > mciSendString('Set cdaudio door closed wait', nil, 0, handle); // zatvor
> > tray
Tohle funguje, ale jak zjistit zda je cd rom otevrena?Novell
[*] Michal Hlav�� - 30.10.1999 18:17:03
Zdravim,
existuje nejaka dokumentacia ohladom Novell Libraries for Delphi. Chcem
totiz napisat program chat taky isty ako je pod NT len pre Novell. Nomozem
ani zacat pretoze som nenasiel ziadnu dokumentaciu.
Vdaka, Miso
ScreenSever
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 30.10.1999 18:42:02
> potreboval bych radu, jak ukoncit programem screensever.
Ja jsem to resil takhle:
procedure CloseScreenSaver;
var h:HWND;
begin
h:=Windows.FindWindow('WindowsScreenSaverClass',Nil);
if h<>0 then begin
Windows.PostMessage(h,Messages.WM_SysCommand,Windows.SC_Close,0);
end;
end;
Daniel
Indexovani DBF s podminkou
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.1999 23:04:51
Koukal Pavel wrote:
> mel bych k vam jeden dotaz. Resil jste nekdo indexovani FoxPro tabulky *.DBF
> v Delphi ?
> Potreboval bych naindexovat tabulku s tim, ze se do indexu zaradi pouze
> nezdeletovane vety.
Ahoj,
Priklad najdes tady (Example 2):
http://www.borland.com/devsupport/bde/bdeapiex/dbiaddindex.html
--
Petr Vones, amatersky programator
Array of char
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.1999 23:04:17
Krayzel Libor wrote:
> Je to soubor vytvoreny ve Wordu 97.
Ahoj,
Word (podobne jako ostatni M$ dokumenty) pouziva OLE Structured Storage,
takze by bylo asi dobre otevrit soubor timto zpusobem a vytahnout si z
neho co je potreba. Priklad pro Delphi je treba tady:
http://users.iafrica.com/d/da/dart/zen/zen.html
--
Petr Vones, amatersky programator
D5 - ano ci ne ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.1999 23:04:48
Miroslav �ipel wrote:
> to je fakt jenze k tomu prekladani se nejdriv potrebujes naucit C a pak
> (vetsinou pri prekladani) te napadne proc ja vlastne to *.h prekladam kdyz
> to muzu rovnou napsat v C++ Builderu ?
Ahoj,
Jenze pro prekladani hlavicek me prece jen staci mensi znalost Ccka nez pro
programovani. Samozrejme idealni je umet dobre oba jazyky ... :-)
--
Petr Vones, amatersky programator
D5 - ano ci ne ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.1999 23:04:40
Dalibor Toman wrote:
> Mozna u aplikace, ktera pouziva striktne jen veci od Borlandu. Pokud pouzivate API funkce u nichz doslo ke zmene typu VAR parametru z Integer na Cardinal (proc
Ahoj,
Ve vetsine pripadu doslo ke zmene z Integer na DWORD (= LongWord).
> Pokud pouzivas API funkce ktere vraceji handle a signalizuji hodnotou -1 (resp $FFFFFFFF, abychom byy presni) selhani dostanes se do dalsich problemu (jako ja) pokud jsi z lenosti pouzival konstrukci:
>
> if FxResult = -1 then
> misto
> if FxResult <> INVALID_HANDLE_VALUE then
No jo, ale tim sis zadelal na problemy sam. Konstanty by se mely pouzivat
vsude kde je to jen mozne.
> Poznamka na okraj:
> Pri komparaci Cardinal s Integer generuje D5 kod, ktery rozsiruje 32 bitovy Cardinal na 64 bitu (hornich 32 bitu nula). Takze je cele porovnani podstatne delsi. To same plati pro porovnani se zapornou konstantou.
Coz je IMHO spravne, viz priklad:
procedure TForm1.Button1Click(Sender: TObject);
var
C: LongWord;
I: Integer;
begin
C := 4294967292;
I := -4;
if I = C then ShowMessage('I = C');
if I = Integer(C) then ShowMessage('I = Integer(C)');
end;
--
Petr Vones, amatersky programator
Label
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.1999 23:05:18
Daniel Km�nek wrote:
> Moc prosim nevite n�kdo, jak umistit label na uroven menu ?. Je tam v pravo
> takovy krasny nevyuzity m�sto, ale komponenta tam nejde dat....
Ahoj,
Slo by to zjednodusene udelat treba takhle:
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
private
procedure WMNCActivate(var Message: TWMNCActivate); message WM_NCACTIVATE;
procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT;
procedure DrawMenuAreaText;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.DrawMenuAreaText;
var
DC: HDC;
SaveIndex: Integer;
R: TRect;
begin
if not Assigned(Menu) then Exit;
R := ClientRect;
R.Top := GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CXFIXEDFRAME);
R.Bottom := R.Top + GetSystemMetrics(SM_CYMENU);
InflateRect(R, -GetSystemMetrics(SM_CXFIXEDFRAME), 0);
DC := GetWindowDC(Handle);
try
with TControlCanvas.Create do
try
SaveIndex := SaveDC(DC);
try
Handle := DC;
Font := Screen.MenuFont;
Brush.Color := Self.Color;
DrawText(Handle, 'Text', -1, R, DT_RIGHT or DT_VCENTER or DT_SINGLELINE);
finally
Handle := 0;
RestoreDC(DC, SaveIndex);
end;
finally
Free;
end;
finally
ReleaseDC(Handle, DC);
end;
end;
procedure TForm1.WMNCActivate(var Message: TWMNCActivate);
begin
inherited;
DrawMenuAreaText;
end;
procedure TForm1.WMNCPaint(var Message: TWMNCPaint);
begin
inherited;
DrawMenuAreaText;
end;
--
Petr Vones, amatersky programator
Zakaz minimalizacie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.1999 23:05:31
Kr�l��ek Milan wrote:
> procedure TForm1.GetWM_SysCommand (var msg: TMessage);
> begin
> Case Msg.wParam of
> 61728:inherited; // restore
> 61488:inherited; // maximize
> 61536:inherited; // close
> 61472:inherited; // minimize
> else inherited;
> end;
> end;
> Pokud si zjistis odpovidajici konastanty misto cisel muzes je pouzit.
Ahoj,
Je opravdu vhodne pouzivat konstanty, jinak se v tom totiz za cas uz vubec
nevyznas. Prislusne SC_xxx konstanty najdes ve Win32API helpu u popisu
zpravy WM_SYSCOMMAND.
--
Petr Vones, amatersky programator
Fonty NT
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 30.10.1999 23:56:08
Je to konstanta
EASTEUROPE_CHARSET = 238;
definovana v WINDOWS.PAS
Puntickar by napsal
lfCharSet := EASTEUROPE_CHARSET;
je to ale jedno....
Jestli budes mit problem to kompilovat tak napis poslu ti to jako dcu.
----- Original Message -----
From: "Bene� Jaroslav" <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 30, 1999 11:49 AM
Subject: RE: Fonty NT
Hm, ten radek s default_charsetem je i v graphics.pas Delphi 2 ovsem mohu ho
beztrestne prebouchnout? a co vlastne znamena cislo 238 ?
Diky
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Tom� Vin� [SMTP:T.Vins(zv)Aquasoft(tec)cz]
> Odesl�no: 30. listopadu 1999 9:33
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Fonty NT
>
> > nevite, prosim, nekdo, jak resit problem s ceskymi fonty na NT?
>
> nevim jak v delphi 2, v delphi 1 jsem mel podobny problem a byl za pomoci
> borlandu vyresen upravou unit graphics.pas. do funkce GetHandle byla
> nahrazena radka:
>
> lfCharSet := DEFAULT_CHARSET;
>
> radkou
>
> lfCharSet := 238;
>
> Ahoj
> <Masa>SQL Dotaz
[*] Werki <delphi(zv)minv.sk> - 1.12.1999 11:02:49
Napis presne co xes selectnut z akej tabulky.
(No like statments...)
Werki
Pripojenie na ORACLE (komponenty)
[*] Andrej Skultety <askultety(zv)quelle.sk> - 29.2.2000 18:51:00
existuje nejake komponenty, ktore sa daju pouzit na priame pripojenie k
ORACLE nie BDE
A. Skultety DV QUELLE sro askultety(zv)quelle.sk
Posilani e-mailu z Delphi 4. std.
[*] Karel Kral <kral(zv)purus(tec)cz> - 25.3.2000 13:27:01
Ja jsem pouzival take FPiette, ale ted jsem vyzkousel WinShoes
http://www.pbe.com/winshoes a ty jsou jeste lepsi.
Roman Fiser wrote:
>
> Co se tyce komponent doporucuju ICS - Internet Component Suite od
> F. PIETTiho. http://www.rtfm.be/fpiette/indexuk.htm
>
> S pozdravem,
>
> Roman Fiser,
> NG Soft
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Vyska popup menu
[*] Karel Kral <kral(zv)purus(tec)cz> - 25.3.2000 13:29:24
Mal� Dobromil wrote:
>
> Jeste mam jeden dotaz, programove vytvorim Timer,
> nastavim mu prislusne property a vyrobim jednu proceduru,
> kterou bych rad povesil na udalost OnTimer, jak to mam
> udelat ?
>
> procedure AAA;
> begin
> MessageBeep(MB_OK);
> end;
Chyba je v tom, ze AAA musi byt _metoda_ objektu typu TNotifyEvent.
Deklaruj ji takto:
procedure TMyObject.AAA(Sender: TObject);
begin
MessageBeep(MB_OK);
end;
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Pripojenie na ORACLE (komponenty)
[*] tomas.mazurek(zv)vitkovice(tec)cz - 5.10.2000 11:30:15
Hello,
existuji i free. Jedny lze najit na:
http://skyscraper.fortunecity.com/switch/535/index.html
Dalsi se objevily na DSP 31.rijna v casti pro D4.
TOM
Dos - spustit a ukoncit
[*] Jirka Virt <virt(zv)volny(tec)cz> - 10.10.2000 18:47:58
Ahoj vsem,
neporadite mi nekdo, co mam strcit do CreateProcess za parametr,
aby se mi dosovy program (okno) po ukonceni zavrel??
Zkousel jsem to pres pif, ale to jaksi neni ono.
Diky
Jirka Virt
email:virt(zv)volny(tec)cz
SQL a Blank
[*] Jirka Virt <virt(zv)volny(tec)cz> - 10.10.2000 18:54:49
Ahoj,
nepouzival jste nekdo SUM v SQL na paradoxovou tabulku,
kde jedna hodnota je BLANK??
Ono to vubec nepocita. Jsem vychovany ve Foxce,takze tam prazdna numericka
hodnota byla rovna nule,ale tady v Paradoxu ...???
Je to neco jako treti stav.
ukazka
SELECT SUM(a+b-c)...,kde treba "b" je blank, tak to uplne ten radek vynecha.
Nejedu pres SQL Server takze pritupuji k tabulkam lokalne
z toho plyne, ze zadny If(Blank... nemuzu pouzit.
Neporadite mi nekdo jak by se to dalo obejit?
Diky
Jirka Virt
Email:virt(zv)volny(tec)cz
Text v DBMemo se ztraci
[*] bures <bures(zv)ssakhk(tec)cz> - 30.10.1999 10:42:05
zkus to pridat jako radek neco jako dbmemo1.lines.add('ahoj');
a nezapomen to poslat Table1.post; - v tom bude zrejme ten problem
Vlada
----- Original Message -----
From: Pavel ZIDEK
To: Konference DELPHI forum
Sent: Thursday, December 02, 1999 9:35 AM
Subject: Text v DBMemo se ztraci
Zdravim,
potrebuji zjistit, proc se ztraci text v DBMemo (taky v DBRichEdit).
Zapisi do DBMemo text nejakym prikazem - pomoci buttonu. jakmile ale potrebuji text opravit, vlezu do DBMemo a zacnu psat, tak text zmizi.
1. takhle vlozim text
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with Table1 do
begin
DBMemo1.Text:='Jakysi text' + ^M^J + 'Dalsi radek';
end;
end;
No a jakmile zacnu text opravovat - mysi kliknu naDBMemo - text zmizi. Ale jakmile opetovne kliknu na button a vygeneruji ten text znovu, tak oprava textu nezpusoi zmizeni.
Asi je treba nejak Memo inicializovat, ze jo.
Pavel
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Nastaveni osetreni udalosti za behu
[*] bures <bures(zv)ssakhk(tec)cz> - 30.10.1999 11:15:55
treba takto : udelej si jeste jeden paintbox a treba do OnMousemove
procedury pis napis misto jmena paintboxu - sender // odesilatel :
(sender as TPaintBox).canvas....
pote tomu tvemu paintboxu pridel tuto proceduru:
moje.onMouseMove := paintbox1mousemove;
tak si to uzij Vlada
----- Original Message -----
From: Ondrej ZAHRADNIK <zahrad(zv)gymvr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 02, 1999 10:05 AM
Subject: Nastaveni osetreni udalosti za behu
> Ahoj,
> mam tento problem. Za behu programu jsem si vytvoril TPaintBox.
> Potrebuji nastavit osetreni metod OnMouseDown, OnMouseUp,
> OnMouseMove. Jak tyto udalosti presmeruji na mnou definovane
> procedury.
> Diky za vsechny navrhy.
>
> **********************************
> Ondrej Zahradnik
> e-mail:zahrad(zv)gymvr(tec)cz
> ICQ:50242897
> *********************************
> Application.ProcessMessages
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 1.12.1999 00:27:32
> Pouzivam FreeIB Components z nich dataset mam nastaveny CachedUpdates.
> Po volani ApplyUpdates trva asi 15 min pokial to urobi. No a pri tom mi
> zatuhne vypis aplikacie na obrazovku. Mam pocit ze by to vyriesilo nikede
> volat Application.ProcessMessages. Otazka je kde? Dik
Skus pouzit miesto CachedUpdates dvojicu StartTransaction - Commit. Trvanie
ApplyUpdates velmi zavisi od mnozstva dat pripravenych lokalne.
Pavol Stolc
TMediaPlayer
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 1.12.1999 00:28:24
Cauec,
jak vytvorit novy prazdny wav soubor, abych mohl do nej nahravat pomoci TMediaPlayer.
treba takhle: (kdyby neco nechodilo, dej vedet, je to vykoseny z vetsi unity).
Bye Ludan
(**********************************************************************************)
type RRIFFHeader = record // hlavi�ka RIFF souboru
ID RIFF : array[1..4] of char; // "RIFF" doplnit "RIFF"
LenFile : longint; // LenFile + 8 = d�lka souboru vypo��t� se
ID WAVE : array[1..4] of char; // "WAVE" doplnit "WAVE"
end;
RfmtBlock = record // struktura bloku "fmt " doplnit "fmt"
Format : word; // PCM, ... doplnit "1"
Channels : word; // po�et kan�l� doplnit "1"
SamplingRate : longint; // vzorkovac� kmito�et doplnit "11025"
BytesPerSec : longint; // byt� / sec doplnit "11025"
Reserved : word; // nepou�ito doplnit "1"
BitsPerSample : word; // rozli�en� bit/sample doplnit "8"
end;
RIDBlock = record // struktura bloku informac�
IDString : array[1..4] of char; // typ informace
LenBlock : longint; // d�lka informace
end;
// Funkce vytvo�� nov� WAV soubor podle specifikace
procedure CreateWAVE(AName: string; AWave: integer);
var FileHandle: integer; // handle c�lov�ho souboru
RIFFHeader: RRIFFHeader; // z�znam hlavi�ky "RIFF"
LfmtBlock : RIDBlock; // z�znam d�lky bloku "fmt "
fmtBlock : RfmtBlock; // z�znam struktury "fmt "
LdataBlock: RIDBlock; // z�znam d�lky bloku "data"
begin
// Funkce se nevykon� v p��padech, kdy:
// - je zad�n nezn�m� parametr zvukov�ho form�tu
// - existuje soubor zadan�ho jm�na, kter� nelze smazat
// Kontrola spr�vn�ho parametru
if (AWave <> WAVE FORMAT 1M08) AND (AWave <> WAVE FORMAT 1M16) AND
(AWave <> WAVE FORMAT 1S08) AND (AWave <> WAVE FORMAT 1S16) AND
(AWave <> WAVE FORMAT 2M08) AND (AWave <> WAVE FORMAT 2M16) AND
(AWave <> WAVE FORMAT 2S08) AND (AWave <> WAVE FORMAT 2S16) AND
(AWave <> WAVE FORMAT 4M08) AND (AWave <> WAVE FORMAT 4M16) AND
(AWave <> WAVE FORMAT 4S08) AND (AWave <> WAVE FORMAT 4S16) then
Exit;
// P��prava dat souboru p�ed vlastn�m z�pisem
with RIFFHeader do begin // hlavi�ka souboru
ID RIFF := 'RIFF';
LenFile := 36;
ID WAVE := 'WAVE';
end;
with LfmtBlock do begin // struktura n�sleduj�c�ho bloku
IDString := 'fmt ';
LenBlock := 16;
end;
with fmtBlock do begin // struktura souboru
Format := WAVE FORMAT PCM;
case AWave of
WAVE FORMAT 1M06,
WAVE FORMAT 1M08,
WAVE FORMAT 1M16,
WAVE FORMAT 2M08,
WAVE FORMAT 2M16,
WAVE FORMAT 4M08,
WAVE FORMAT 4M16: Channels := 1; // po�adovan� typ MONO
else Channels := 2; // po�adovan� typ STEREO
end;
case AWave of
WAVE FORMAT 1M08,
WAVE FORMAT 1M16,
WAVE FORMAT 1S08, // kmito�et z�znamu
WAVE FORMAT 1S16: SamplingRate := 11025;
WAVE FORMAT 2M08,
WAVE FORMAT 2M16,
WAVE FORMAT 2S08,
WAVE FORMAT 2S16: SamplingRate := 22050;
WAVE FORMAT 4M08,
WAVE FORMAT 4M16,
WAVE FORMAT 4S08,
WAVE FORMAT 4S16: SamplingRate := 44100;
end;
BytesPerSec := SamplingRate * Channels;
Reserved := Channels;
case AWave of
WAVE FORMAT 1M06,
WAVE FORMAT 1S06,
WAVE FORMAT 1M08,
WAVE FORMAT 1S08,
WAVE FORMAT 2M08,
WAVE FORMAT 2S08,
WAVE FORMAT 4M08,
WAVE FORMAT 4S08: BitsPerSample := 8;
else BitsPerSample := 16;
end;
end; // konec fmt bloku
with LdataBlock do begin // struktura datov�ho bloku
IDString := 'data';
LenBlock := 0;
end; // Otev�en� c�lov�ho souboru pro z�pis ve form�tu Win32
FileHandle := FileCreate(AName);
if FileHandle < 0 then // chyba p�i otev�r�n� souboru ?
Exit;
// p�epis dat do souboru
FileWrite(FileHandle, RIFFHeader, SizeOf(RIFFHeader));
FileWrite(FileHandle, LfmtBlock, SizeOf(LfmtBlock));
FileWrite(FileHandle, fmtBlock, SizeOf(fmtBlock));
FileWrite(FileHandle, LdataBlock, SizeOf(LdataBlock));
FileClose(FileHandle); // uzav��t soubor
end;(**********************************************************************************)
ADONIS, ADO & RDS do hloubky - prakticke zkuseno
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 1.12.1999 00:33:46
Ahoj Eriku,
> Ak chces mat iba jeden globalny COM na urcite ulohy, tak ho na serveri
> vytvor plus urob este jeden maly objekt, na ktory sa pripojis z RDS a
ktory
> bude potom vyuzivat globalny COM objekt. Musis pametat na osetrenie
> synchronizacie pristupu ku globalnemu objektu.
Diky za zajimavy tip, jak problem obejit.
(Mimochodem to, ze se nemohu pripojit k existujicimu COM objektu je omezeni
RDS a nebo Adonis komponent?)
Problem se synchronizaci zde asi nastat nemuze, jedina komunikace mezi malym
objektem a globalnim COMem bude jednorazovy pozadavek maleho
COMu: "dej mi aktualni ADOConnection".
> U Single instance bude pri kazdom vytvoreni COM objektu z klienta na
serveri
> spusteny novy process applikacneho servera, co je dost neefektivne (cize
> kolko klientov, minimalne tolko procesov).
> Aj ked je pravda, ze Windows zabezpeci,
> ze fyzicky v pameti bude kod iba raz, nie je to pouzitelne pri vecsom
pocte
> klientov.
> To su prave problemy, ktore sa snazi ADO/RDS/MTS riesit (aj ked mozna
> u nas asi zriedka sa vyskytujuce) - umoznit efektivny pracu systemom, ku
> ktorym
> sa mozu pripajat povedzme Internetom tisicky uzivatelov naraz.
V aplikaci, na ktere pracuji, pripada v uvahu max. 20 soucasne pripojenych
uzivatelu.
Doufam, ze to bude jeste unosne (jeste tak 14 dni a dojdu do stadia prvnich
vetsich testu).
Kdyby ne, tak holt na nekterych PC pobezi klientske i serverovske COMy.
Dekuji Ti mnohokrat za rady.
S pozdravem Lada
PS: Zda se mi, ze jsem prisel na chybicku v Adonisech.
1. Vytvorim a otevru ADO.Recordset
2. Navazi jej na existujici MyADOQuery.ADORecordSet
3. Zavolam MyADOQuery.Open
Treti bod probehne OK jen kdyz existuje nejaky zaznam v mem ADO.Recordsetu.
Pokud je Recordset prazdny, tak se Open nepovede (Exception, ze danou
operaci nelze provest
na prazdnem Datasetu).
Coz mne pripomina vec, kterou jsem stale nepochopil - jaky je rozdil mezi
TADOQuery.Recordset a TADOQuery.ADORecordset. Zjistil jsem, ze pokud chci
vratit z serveru na klienta ADO.Recordset jako
IDispatch, tak musim vratit TADOQuery.Recordset. Jak ale vratit
ADO.Recordset vytvoreny pres ADO
objekty, aniz by musely do hry vstupovat ADODatasety?
ADONIS, ADO & RDS do hloubky - prakticke zkuseno
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 1.12.1999 00:40:59
Ahoj,
> Ak chces mat iba jeden globalny COM na urcite ulohy, tak ho na serveri
> vytvor plus urob este jeden maly objekt, na ktory sa pripojis z RDS a
ktory
> bude potom vyuzivat globalny COM objekt. Musis pametat na osetrenie
> synchronizacie pristupu ku globalnemu objektu.
Diky za zajimavy tip, jak problem obejit.
(Mimochodem to, ze se nemohu pripojit k existujicimu COM objektu je omezeni
RDS a nebo Adonis komponent?)
Problem se synchronizaci zde asi nastat nemuze, jedina komunikace mezi malym
objektem a globalnim COMem bude jednorazovy pozadavek maleho
COMu: "dej mi aktualni ADOConnection".
> U Single instance bude pri kazdom vytvoreni COM objektu z klienta na
serveri
> spusteny novy process applikacneho servera, co je dost neefektivne (cize
> kolko klientov, minimalne tolko procesov).
> Aj ked je pravda, ze Windows zabezpeci,
> ze fyzicky v pameti bude kod iba raz, nie je to pouzitelne pri vecsom
pocte
> klientov.
> To su prave problemy, ktore sa snazi ADO/RDS/MTS riesit (aj ked mozna
> u nas asi zriedka sa vyskytujuce) - umoznit efektivny pracu systemom, ku
> ktorym
> sa mozu pripajat povedzme Internetom tisicky uzivatelov naraz.
V aplikaci, na ktere pracuji, pripada v uvahu max. 20 soucasne pripojenych
uzivatelu.
Doufam, ze to bude jeste unosne (jeste tak 14 dni a dojdu do stadia prvnich
vetsich testu).
Kdyby ne, tak holt na nekterych PC pobezi klientske i serverovske COMy.
Eriku, dekuji Ti mnohokrat za rady.
S pozdravem Ladislav Nagy
Otevreni zavreni CR-ROM
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 1.12.1999 03:48:25
Haj hou,
nasel jsem i tohle (a funguje na vice mechanik):
Bye Ludan
//
// / \ ( ) / / / /
// / / / / / / | / / \/ / / \/ \/ / /
// / / / / / / /| |/ / / / / / / / / / / ( )
// / / / / / | /\ / / \ /\ / / /
//
(*******************************************************************************
* DriveTools 1.0 *
* *
* (c) 1999 Jan Peter Stotz *
* *
********************************************************************************
* *
* If you find bugs, has ideas for missing featurs, feel free to contact me *
* jpstotz(zv)gmx.de *
* *
********************************************************************************
* Date last modified: May 22, 1999 *
*******************************************************************************)
unit DriveTools;
interface
uses
Windows, SysUtils, MMSystem;
function CloseCD(Drive : Char) : Boolean;
function OpenCD(Drive : Char) : Boolean;
implementation
function OpenCD(Drive : Char) : Boolean;
Var
Res : MciError;
OpenParm: TMCI Open Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin
Result:=false;
S:=Drive+':';
Flags:=mci Open Type or mci Open Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci Open, Flags, Longint((zv)OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI SET, MCI SET DOOR OPEN, 0);
IF Res=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci Close, Flags, Longint((zv)OpenParm));
end;
end;
function CloseCD(Drive : Char) : Boolean;
Var
Res : MciError;
OpenParm: TMCI Open Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin
Result:=false;
S:=Drive+':';
Flags:=mci Open Type or mci Open Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci Open, Flags, Longint((zv)OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI SET, MCI SET DOOR CLOSED, 0);
IF Res=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci Close, Flags, Longint((zv)OpenParm));
end;
end;
end.ScreenSever
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 1.12.1999 08:10:03
> Ja jsem to resil takhle:
>
> procedure CloseScreenSaver;
> var h:HWND;
> begin
> h:=Windows.FindWindow('WindowsScreenSaverClass',Nil);
> if h<>0 then begin
> Windows.PostMessage(h,Messages.WM_SysCommand,Windows.SC_Close,0);
> end;
> end;
>
> Daniel
No a jak to dopadne ve win98 v nejakem uspornem rezimu?
(kdy je uz vypnuty monitor a co ja vim co jeste)
Testoval si to? (je to prece jen na dlouhy lokty)
Petr Smol�k
psmolik(zv)fides(tec)cz
BMP v tlacitku a v menu
[*] Miroslav BARICA <barica(zv)mail.matador.sk> - 01.12.1999 08:36:33
no ja osobne som sa stretol s takym problemom s BMP v action liste, ale
potom som zistil ze ten format BMP bol nestandartny, po natiahnuti do
corela a naslednom ulozeni to bolo OK
Petr Ga�ourek wrote:
> Ahoj, lze u D4 Standard dostat BMP do tlacitka jinak nez pres Glyph.
> Zkousel jsem to pres ActionList v kombinaci s ImageList, ale
> nezadarilo se mi. Obdobne mam problem v BMP v menu pres
> ActionList.Delam neco blbe ja? Petr Gadourek
D5 - ano ci ne ?
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 1.12.1999 08:50:35
.
.
> Kdyz uz menit Pascal za C pak v zadnem pripade ne za jine nez od MS (tedy
pokud mam programovat ve Windows). Se C++ Builderem a podobnymi clovek taky
brzy narazi, pokud se zacne zajimat o systemove zalezitosti..
>
.
.
proc ? VCL je mnohem lepsi nez MFC (proc asi v MS delaj COOL ?) napr. MFC
neobsahuje nic co by se podobalo DBGridu a navic v C++ Builderu muzes
pracovat jak s MFC tak i s VCL
M.
ps: co rikate na TAccess97Password o ktere jsem psal 25.11. ?Run dialog...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 1.12.1999 08:54:40
ahoj
vi nekdo, jak programove otevrit dialog "Spustit" (menu Start/Spustit)
a predat parametr - nazev souboru/programu, ktery se ma spustit ?
diky
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
ScreenSever
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 1.12.1999 09:12:05
> Petr Smolik napsal
> No a jak to dopadne ve win98 v nejakem uspornem rezimu?
> (kdy je uz vypnuty monitor a co ja vim co jeste)
> Testoval si to? (je to prece jen na dlouhy lokty)
Na Win98 jsem to nezkousel. Je to starsi procedura, kterou stale
pouzivam. Fungovala na Win95 i WinNT4.0. Co se tyce uspornejch
rezimu, rad se poucim. Momentalne vsak resim uplne jine veci,
takze nejake zkouseni ode mne neocekavej ... :-(
Daniel
Program stale na popredi...
[*] tmara(zv)itsys(tec)cz - 1.12.1999 10:09:12
Hezky den,
potreboval bych napsat programek, kter� kazde 4 minuty nastavi nastavi
zapnuty browser jako aktivni a sam se stahne na pozadi. Proste potrebuji mit
browser (nebo jiny program) st�le aktivni, ale on se mi po 5 minutach sam
stahne na pozadi. A tomu chci zabranit. Nejde o nic nelegalniho, jenom chci,
aby program bezel st�le na popredi bez jakehokoliv meho prispeni. Mam Delphi
4 Prof. Nakopnete me? Zkuste to prosim se standartnima komponentama. Tnx a
lot. ByE.Komponenta a "Zarizeni pripojene k systemu nefungu
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 01.12.1999 09:28:51 cet
To je zase nadeleni - mam rozdelanou komponentu, ktera prehrava
video.
Dokud jsem z ni nevolal zadnou DLL, bylo vse v poradku az do
doby, kdy jsem chtel pridat uplne jinou (cizi komponentu) a
zacalo to hlasit:
"Zarizeni pripojene k systemu nefunguje"
(na dvou ruznych pocitacich)
i presto, ze jsem se snazil davat zminenou DLL jak do
WINDOWS\SYSTEM, i k zamotne kompilovane komponente a vsude
kam jsou nastaveny cesty ...
Dokud jsem komponentu jen kompiloval, tak to nezlobilo,
(kompilovat jde normalne) ale odmita to nainstalovat balicek,
ktery komponentu obsahuje s jiz vyse zminenou hlaskou
(i pokud se balicek pokusim editovat primo z "pridavani balicku
v Delphi)
Da se to obejit jen tak, ze docasne dam misto teto komponenty
stejnou, ale nevolajici zadnou DLL a po jeji instalaci teprve
nakopiruji tu s DLL a nesmim uz kompilovat cely balicek
(pouze unit komponenty, ktery si pri vyvoji zkompiluje
projekt zcela sam a funguje tak, jak ma ...)
Neni to tim, ze se z komponenty musi volat DLL explicitne,
(zvolil jsem radeji implicitni, protoze se mi to prave
v komponente zdalo jednodussi a hlavne spolehlivejsi ...)
nebo je chyba uplne v necem jinem ?
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Transparentni bitmapa pro tlacitko
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 1.12.1999 11:05:13
Zdravim,
mam problem. Pro vlastni komponentu s
tlacitky jsem si vytvoril bitmapy (v res souboru)
pro "Enabled a Disabled" stavy tlacitka.
Vsechny jsem tvoril v ImageEditoru (i v editoru z
BC++ 5) tak, ze:
- pozadi je clOlive
- tlacitka enabled jsou cerna
- na hrany tlacitek disabled jsou pouzity bila a
clSilver
A chovaji (zobrazuji se) ocekavane podle stavu
tlacitka.
Ale dve bitmapy se zobrazuji spatne,
neodpovidaji stavu tlacitka:
- kdyz je tlacitko disabled, tak clSilver obrysova
barva neni videt (tedy se chova transparentne)
- bila obrysova barva je videt
- pozadi clOlive je videt, tedy se nechova
tranparentne.
- kdyz je tlaciko enabled, tak cerna barva se
chova transparentne
- clOlive se nechova transparentne, je videt
Pritom tyto dve bitmapy, jsem duplikoval z tech
spravnych.
Zkousel jsem vsechno mozne, jina pozadi,
nemenit default pozadi - (pouzit bilou),
kopirovat, duplikovat odjinud.....
Moje zadost o radu tudiz z ni:
Jak vytvorit korektne se chovajici bitmapu pro
enabled/disbled stavy tlacitka ? Co prinuti
Delphi (ci Windowsy) zobrazit nejakou barvu
transparentne (na spravnem miste
Pracuji pod D3, bitmapy jsou 256-ti "barvove",
tlacitka jsou TSpeedButton, vsechno je to pod
jednim res souborem
S diky za kazdou radu
Petr Motlicek
Program stale na popredi...
[*] Lubos <bruce(zv)pobox.sk> - 01.12.1999 11:19:52
> Hezky den,
> potreboval bych napsat programek, kter� kazde 4 minuty nastavi nastavi
> zapnuty browser jako aktivni a sam se stahne na pozadi. Proste potrebuji mit
> browser (nebo jiny program) st�le aktivni, ale on se mi po 5 minutach sam
> stahne na pozadi. A tomu chci zabranit. Nejde o nic nelegalniho, jenom chci,
> aby program bezel st�le na popredi bez jakehokoliv meho prispeni. Mam Delphi
> 4 Prof. Nakopnete me? Zkuste to prosim se standartnima komponentama. Tnx a
> lot. ByE.
Ja by som riesil tak, ze by som si zistil handle daneho okna a kazde 4 min by
som
mu poslal spravu ze setforegroundwindow. Pisem to z hlavy, takze je to len
princip.
/LH
--
"We are Microsoft. Resistance is futile. Open your source code and prepare for
assimilation."
Novell
[*] Grubhoffer(zv)software602(tec)cz - 1.12.1999 11:50:58
http://developer.novell.com/infolib/
> Zdravim,
> existuje nejaka dokumentacia ohladom Novell Libraries for
> Delphi. Chcem
> totiz napisat program chat taky isty ako je pod NT len pre
> Novell. Nomozem
> ani zacat pretoze som nenasiel ziadnu dokumentaciu.
>
> Vdaka, Miso
>
>
>
Ako vypnut ATX case z Dosu ?
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 1.12.1999 11:51:56
Zdravim,
viete mi niekto poradit, ako vypnut ATX case z Dosu ? Vo Windows je to
jednoduche Start - Shutdown - a mam vypnute napajanie. Z Delphi viem
dosiahnut to iste. Ale ako sa to robi v Dose ?
Dakujem.
Peter CIRIP.ScreenSever
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 1.12.1999 12:01:24
> Na Win98 jsem to nezkousel. Je to starsi procedura, kterou stale
> pouzivam. Fungovala na Win95 i WinNT4.0. Co se tyce uspornejch
> rezimu, rad se poucim. Momentalne vsak resim uplne jine veci,
> takze nejake zkouseni ode mne neocekavej ... :-(
>> Ja jsem to resil takhle:
>>
>> procedure CloseScreenSaver;
>> var h:HWND;
>> begin
>> h:=Windows.FindWindow('WindowsScreenSaverClass',Nil);
>> if h<>0 then begin
>> Windows.PostMessage(h,Messages.WM_SysCommand,Windows.SC_Close,0);
>> end;
>> end;
>>
> Daniel
Nejede mi to ani ve WinNT sp5 :-((
FindWindow raci porad 0 :-(
Petr Smol�k
psmolik(zv)fides(tec)cz
Novell
[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 01.12.1999 12:07:13
> existuje nejaka dokumentacia ohladom Novell Libraries for Delphi.
Pouzij dokumentaci od knihoven v C (nevim jak se presne ta cast NDK
jmenuje)
Nebo je mozne pouzit ActiveX objekty, ktere jsou taky soucasti NDK.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
Transparentni bitmapa pro tlacitko
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 1.12.1999 12:36:53
P.Motlicek wrote:
>Jak vytvorit korektne se chovajici bitmapu pro
>enabled/disbled stavy tlacitka ? Co prinuti
>Delphi (ci Windowsy) zobrazit nejakou barvu
>transparentne (na spravnem miste
zkus se podivat do napovedy Delphi na vlastnosti
TBitmap.TransparentColor
a
TBitmap.TransparentMode
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Interbase
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 1.12.1999 12:08:10 -0000
Sweep Interval.
Interbase neprepisuje zaznamy! Po kazde zmene vytvori novou kopii zaznamu.
Sweep odstrani nadbytecne zaznamy z DB (soubor neskrati, to nedela zadna DB).
Slavek
-----P�vodn� zpr�va-----
Od: Martin Galik [SMTP:m g 66(zv)hotmail.com]
Odesl�no: 30. listopadu 1999 18:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Interbase
Ahoj.
Vie mi niekto poradit ako zakazat databazam v Interbase nabalovat na seba
zbytocne udaje. Kazdy ping na databazu mi ju zvecsi co je pre mna velmi
nepriazniva situacia (som obmedzeny miestom na disku), kedze v tabulkach v
databaze nevytvaram ziadne nove rekordy (len prepisujem uz existujuce) mala
by si databaza zachovavat svoju velkost. Zvecsenie kapacity disku na
dostatocnu mieru (vzhladom na nabalovanie databaz) by bolo moc financne
narocne.
Vdaka.
Martin Galik.
m g 66(zv)hotmail.com
Get Your Private, Free Email at http://www.hotmail.com
TMediaPlayer
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 1.12.1999 13:16:12
Moc diky, sice mi to nejak jeste nechodi poradne jen s parametrem WAVE FORMAT 1M08, ale to se doladi.
Vlada
----- Original Message -----
From: Ing. Lud�k Florian
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, December 01, 1999 12:28 AM
Subject: Re: TMediaPlayer
Cauec,
jak vytvorit novy prazdny wav soubor, abych mohl do nej nahravat pomoci TMediaPlayer.
treba takhle: (kdyby neco nechodilo, dej vedet, je to vykoseny z vetsi unity).
Bye Ludan
(**********************************************************************************)
type RRIFFHeader = record // hlavi�ka RIFF souboru
ID RIFF : array[1..4] of char; // "RIFF" doplnit "RIFF"
LenFile : longint; // LenFile + 8 = d�lka souboru vypo��t� se
ID WAVE : array[1..4] of char; // "WAVE" doplnit "WAVE"
end;
RfmtBlock = record // struktura bloku "fmt " doplnit "fmt"
Format : word; // PCM, ... doplnit "1"
Channels : word; // po�et kan�l� doplnit "1"
SamplingRate : longint; // vzorkovac� kmito�et doplnit "11025"
BytesPerSec : longint; // byt� / sec doplnit "11025"
Reserved : word; // nepou�ito doplnit "1"
BitsPerSample : word; // rozli�en� bit/sample doplnit "8"
end;
RIDBlock = record // struktura bloku informac�
IDString : array[1..4] of char; // typ informace
LenBlock : longint; // d�lka informace
end;
// Funkce vytvo�� nov� WAV soubor podle specifikace
procedure CreateWAVE(AName: string; AWave: integer);
var FileHandle: integer; // handle c�lov�ho souboru
RIFFHeader: RRIFFHeader; // z�znam hlavi�ky "RIFF"
LfmtBlock : RIDBlock; // z�znam d�lky bloku "fmt "
fmtBlock : RfmtBlock; // z�znam struktury "fmt "
LdataBlock: RIDBlock; // z�znam d�lky bloku "data"
begin
// Funkce se nevykon� v p��padech, kdy:
// - je zad�n nezn�m� parametr zvukov�ho form�tu
// - existuje soubor zadan�ho jm�na, kter� nelze smazat
// Kontrola spr�vn�ho parametru
if (AWave <> WAVE FORMAT 1M08) AND (AWave <> WAVE FORMAT 1M16) AND
(AWave <> WAVE FORMAT 1S08) AND (AWave <> WAVE FORMAT 1S16) AND
(AWave <> WAVE FORMAT 2M08) AND (AWave <> WAVE FORMAT 2M16) AND
(AWave <> WAVE FORMAT 2S08) AND (AWave <> WAVE FORMAT 2S16) AND
(AWave <> WAVE FORMAT 4M08) AND (AWave <> WAVE FORMAT 4M16) AND
(AWave <> WAVE FORMAT 4S08) AND (AWave <> WAVE FORMAT 4S16) then
Exit;
// P��prava dat souboru p�ed vlastn�m z�pisem
with RIFFHeader do begin // hlavi�ka souboru
ID RIFF := 'RIFF';
LenFile := 36;
ID WAVE := 'WAVE';
end;
with LfmtBlock do begin // struktura n�sleduj�c�ho bloku
IDString := 'fmt ';
LenBlock := 16;
end;
with fmtBlock do begin // struktura souboru
Format := WAVE FORMAT PCM;
case AWave of
WAVE FORMAT 1M06,
WAVE FORMAT 1M08,
WAVE FORMAT 1M16,
WAVE FORMAT 2M08,
WAVE FORMAT 2M16,
WAVE FORMAT 4M08,
WAVE FORMAT 4M16: Channels := 1; // po�adovan� typ MONO
else Channels := 2; // po�adovan� typ STEREO
end;
case AWave of
WAVE FORMAT 1M08,
WAVE FORMAT 1M16,
WAVE FORMAT 1S08, // kmito�et z�znamu
WAVE FORMAT 1S16: SamplingRate := 11025;
WAVE FORMAT 2M08,
WAVE FORMAT 2M16,
WAVE FORMAT 2S08,
WAVE FORMAT 2S16: SamplingRate := 22050;
WAVE FORMAT 4M08,
WAVE FORMAT 4M16,
WAVE FORMAT 4S08,
WAVE FORMAT 4S16: SamplingRate := 44100;
end;
BytesPerSec := SamplingRate * Channels;
Reserved := Channels;
case AWave of
WAVE FORMAT 1M06,
WAVE FORMAT 1S06,
WAVE FORMAT 1M08,
WAVE FORMAT 1S08,
WAVE FORMAT 2M08,
WAVE FORMAT 2S08,
WAVE FORMAT 4M08,
WAVE FORMAT 4S08: BitsPerSample := 8;
else BitsPerSample := 16;
end;
end; // konec fmt bloku
with LdataBlock do begin // struktura datov�ho bloku
IDString := 'data';
LenBlock := 0;
end; // Otev�en� c�lov�ho souboru pro z�pis ve form�tu Win32
FileHandle := FileCreate(AName);
if FileHandle < 0 then // chyba p�i otev�r�n� souboru ?
Exit;
// p�epis dat do souboru
FileWrite(FileHandle, RIFFHeader, SizeOf(RIFFHeader));
FileWrite(FileHandle, LfmtBlock, SizeOf(LfmtBlock));
FileWrite(FileHandle, fmtBlock, SizeOf(fmtBlock));
FileWrite(FileHandle, LdataBlock, SizeOf(LdataBlock));
FileClose(FileHandle); // uzav��t soubor
end; (**********************************************************************************)
D5 - ano ci ne ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.12.1999 13:17:09
>> Pokud pouzivas API funkce ktere vraceji handle a signalizuji hodnotou -1 (resp $FFFFFFFF, abychom byy presni) selhani dostanes se do dalsich problemu (jako ja) pokud jsi z lenosti pouzival konstrukci:
>>
>> if FxResult = -1 then
>> misto
>> if FxResult <> INVALID_HANDLE_VALUE then
>
>No jo, ale tim sis zadelal na problemy sam. Konstanty by se mely pouzivat
>vsude kde je to jen mozne.
Sranda je ovsem ta, ze definice od MS je :
INVALID_HANDLE_VALUE = -1
:-) a presto jim komparace s DWORDY chodi...
>
>> Poznamka na okraj:
>> Pri komparaci Cardinal s Integer generuje D5 kod, ktery rozsiruje 32 bitovy Cardinal na 64 bitu (hornich 32 bitu nula). Takze je cele porovnani podstatne delsi. To same plati pro porovnani se zapornou konstantou.
>
>Coz je IMHO spravne, viz priklad:
samozrejme, ze ano. Ja jsem netvrdil, ze to je spatne. Akorat zrovne me by se libilo kdybych mohl rici at se na nejake rozsirovani vykasle a (treba v compiler options). Pak by -1 byla fakticky totozna s $FFFFFFFF v podani Cardinalu
Zdravi
D. Toman
D5 - ano ci ne ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.12.1999 13:20:56
>..
>..
>> Kdyz uz menit Pascal za C pak v zadnem pripade ne za jine nez od MS (tedy
>pokud mam programovat ve Windows). Se C++ Builderem a podobnymi clovek taky
>brzy narazi, pokud se zacne zajimat o systemove zalezitosti..
>>
>..
>..
>
>proc ? VCL je mnohem lepsi nez MFC (proc asi v MS delaj COOL ?) napr. MFC
>neobsahuje nic co by se podobalo DBGridu a navic v C++ Builderu muzes
>pracovat jak s MFC tak i s VCL
>
Abych rekl pravdu VCL i MFC me muzou byt ukradeny :-)
V Delphi take TForm a spol moc nepouzivam.
Pokud budu potrebovat vytvaret GUI aplikace, pak neni duvod prechazet z Delphi k necemu jinemu.
Zdravi
D. Toman
Program stale na popredi...
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 1.12.1999 13:30:28
Aaaa, tady chce nekdo sbirat na internetu
kredity, ze jo ? :-)))
Zkus to pomoci fce SetForegroundWindow...
Dobra.
> ----------
> potreboval bych napsat programek, kter� kazde 4 minuty nastavi nastavi
> zapnuty browser jako aktivni a sam se stahne na pozadi. Proste
> potrebuji mit
> browser (nebo jiny program) st�le aktivni, ale on se mi po 5 minutach
> sam
> stahne na pozadi. A tomu chci zabranit. Nejde o nic nelegalniho, jenom
> chci,
> aby program bezel st�le na popredi bez jakehokoliv meho prispeni. Mam
> Delphi
> 4 Prof. Nakopnete me? Zkuste to prosim se standartnima komponentama.
> Vyska popup menu
[*] Iko <iko(zv)kamarad(tec)cz> - 1.12.1999 13:47:43
Poradi mi niekto nejaku stranku, alebo informacie, ako vlastne
funguju COOKIES a ako to mozem zatlacit do programu? Pouzivam
koponenty od F.Pietteho.
iko
iko(zv)kamarad(tec)cz
On-line
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 1.12.1999 14:18:15
Jak zjistim, je-li uzivatel pripojen k Internetu (cili online)?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Stahovani souboru
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 1.12.1999 14:19:19
Jakym prikazem se v Delphi stahuji soubory z Inetu?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Vybirani E-mailu
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 1.12.1999 14:22:04
Jak by se dalo udelat, abych z e-mail schranky (pripojene pres POP3) vybral jenom E-maily s urcitym Subjectem a ty se nasledne ze schranky bud vymazali nebo by tam zustali?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Form
[*] dusan <volcik(zv)meritum(tec)cz> - 1.12.1999 14:40:55
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Zdravim vsechny. Potreboval bych napovedet, jak mohu pri behu programu
zjistit, co vsechno je umisteno na aktivnim formulari (muze tam byt napr.
button, speedbutton, panel apod.). Dekuji, Dusan.Transparentni bitmapa pro tlacitko
[*] Ji�� Kr�l jr. - 1.12.1999 14:43:20
mozna to uz vis, ale transparentni barva v bitmape je barva leveho dolniho
pixelu v te bitmape.
podle toho se to chova
JK
Slovencina a angl. Windows
[*] Ivan Medvedik <medvedik(zv)infotrans.sk> - 1.12.1999 14:48:38
Zdravim,
potreboval by som tip ako vyriesit nasl. problem:
Mam app v Delphi 4, ktora ma slovenske resp ceske vypisy (menu, hlasenia ...)
pouziva len jeden zakladny font (sserife.fon) z sloveskych resp ceskych Windows 9X,
nepotrebuje tlacit po slovensky, ide mi len o zobrazenie.
Potreboval by som, v pripade instalacie na anglicke Windows,
aby sa spravne zobrazovali vypisy, bez toho aby bolo treba
cokolvek konfigurovat uzivatelom.
Mala by to zabezpecit instalacia + aplikacia sama.
Je mozne napriklad vzdy doinstalovat spravny font
( aj na slovenskych Win - povedzme premenovany ) a pouzivat ho a ako ?
Preferujem jednoduche riesenia ;-)
Vdaka za akykolvek tip alebo link
Ivan Medvedik.
Novell
[*] Karel Kral <kral(zv)purus(tec)cz> - 01.12.1999 15:09:11
Lze take pouzit knihovny z www.devont.com. Jsou na mnohem lepsi urovni
(nadstavba nad Novell Libraries), ale stoji dost penez.
Michal Hlav�� wrote:
>
> Zdravim,
> existuje nejaka dokumentacia ohladom Novell Libraries for Delphi. Chcem
> totiz napisat program chat taky isty ako je pod NT len pre Novell. Nomozem
> ani zacat pretoze som nenasiel ziadnu dokumentaciu.
>
> Vdaka, Miso
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Ako vypnut ATX case z Dosu II ?
[*] Min�� Petr - 1.12.1999 15:59:48
Take zdravim,
nevite nekdo jak toto dosahnout take pod WinNT 4.0, myslim tim uplne vypnuti bez zaseku na nejakem okne "Nyni muzete pocitac vypnout".
S pozdravem
m���k
petr.minar(zv)kleibl(tec)cz
Zdravim,
viete mi niekto poradit, ako vypnut ATX case z Dosu ? Vo Windows je to
jednoduche Start - Shutdown - a mam vypnute napajanie. Z Delphi viem
dosiahnut to iste. Ale ako sa to robi v Dose ?
Dakujem.
Peter CIRIP.
Pristup na PDX tabulku ze dvou pocitacu
[*] Pavel �im��ek - 1.12.1999 16:03:35
Ahoj vsem!
Mam dva pocitace v siti. Na jednom bezi "server" a "klient",
na druhem bezi pouze "klient". "Server" zapisuje do tabulky,
ktera je na stejnem pocitaci, a "klienti" z ni ctou
a jistym zpusobem nactena data interpretuji.
Problem je v tom, ze zmeny v tabulce vidi pouze "klient" na pocitaci
na kterem bezi i "server". "Klient" na druhem pocitaci zmeny nevidi.
Nevite nekdo cim by to mohlo byt?
Jedna se o tabulku Paradox, Delphi 3, BDE 5.1, sit Windows NT TCP/IP.
V driveru Paradoxu je na obou pocitacich polozka NetDir nastavena
na adresar s tabulkou. U druheho pocitace je disk namapovany.
Diky za kazdou radu
Pavel
Form
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 1.12.1999 16:36:42
Haj hou!
From: dusan <volcik(zv)meritum(tec)cz>
> Zdravim vsechny. Potreboval bych napovedet, jak mohu pri behu programu
> zjistit, co vsechno je umisteno na aktivnim formulari (muze tam byt napr.
> button, speedbutton, panel apod.). Dekuji, Dusan.
Property Controls a ControlsCount na formulari. Zbytek v helpu (definovano v
TWinControl)
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
On-line
[*] martin.falta(zv)obi(tec)cz - 1.12.1999 16:51:46
Zkus testovat stav modemu.
Von: vobornik(zv)ssakhk(tec)cz am 01.12.99 13:18 GMT
Bitte antworten an delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie: (Blindkopie: Martin Falta/OBI/CZ)
Thema: On-line
Jak zjistim, je-li uzivatel pripojen k Internetu (cili online)?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Stahovani souboru
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 1.12.1999 17:18:17
na http://www.utilmind.com/
je komponenta HTTP GET a INetDetector
This component intended for downloading files/documents/results of CGI
scripts from the web using standard Microsoft Windows Internet library
(winInet.dll) which also used by Internet Explorer.
License: Freeware
Last updated: October 30, 1999
Requirements: Delphi 3/4 or C++ Builder 3/4
Download: httpget.zip (5 Kb), Exe-demo (104 Kb)
INetDetector determines online status of the computer (connected or
disconnected). Can be used as something like ICQ NetDetect. Works without
any RAS API or WinSockets.
License: Freeware
Last updated: November 12, 1999
Requirements: Delphi 2/3/4 or C++ Builder 1/3/4
Download: inetdetector.zip (3 Kb), Exe-demo (78 Kb)
M.
.
.
>Jakym prikazem se v Delphi stahuji soubory z Inetu?
.
.
Program stale na popredi...
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 1.12.1999 17:29:49
:-)))
neni to jedna z tech akci "vydelavejte $ pri browseni"?
Kdyz neni browser active-top window, cas se nezapocitava...
### tmara(zv)itsys(tec)cz napsal dne 1 Dec 99, v 10:09 :
> Hezky den,
> potreboval bych napsat programek, kter� kazde 4 minuty nastavi nastavi
> zapnuty browser jako aktivni a sam se stahne na pozadi. Proste potrebuji
> mit browser (nebo jiny program) st�le aktivni, ale on se mi po 5 minutach
> sam stahne na pozadi. A tomu chci zabranit. Nejde o nic nelegalniho, jenom
> chci, aby program bezel st�le na popredi bez jakehokoliv meho prispeni.
> Mam Delphi 4 Prof. Nakopnete me? Zkuste to prosim se standartnima
> komponentama. Tnx a lot. ByE.
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Novell a Delphi
[*] Michal Hlav�� - 1.12.1999 17:51:13
Zdravim,
potreboval by som vypisat vsetkych uzivatelov, ktory su prihlaseny na
IntraNetWare. Viem, ze existuje API funkcia NWCCGetConnNumber, ktora vracia
maxConns, PublicConns, MyConns. MaxConns aspon podla toho, co som vycital by
mala vratit max pocet pripojeni, ale vracia mi -1. Potom y malo byt nieco co
v cykle priraduje username na ID a vklada ich do napr. listboxu.
Druhy problem: Snazim sa urobit program Chat, zhruba to iste co je NT, ale
samo pre Novell. chcel by som to asi tak, ze uzivatel zavola oponenta a
tomu sa zobrazi Message. To je OK. a Teraz ak bude chciet odpovedat, spusti
chat a klikne na answer. No a co by sa malo udiat po answer to mi nie je az
take jasne. Potom chat bude odchytavat kazdy znak, z klavesnice a bude ho
posielat oponentovi, kde bude vlozeny do tMemo.
Vedel by ma niekto nakonut.
PS: Toto je predstava. Je dost mozne ze realita bude trosku ina. No a to
chcem tiez vlastne zistit.
Dik za kazdy napad
Miso
Form
[*] bures <bures(zv)ssakhk(tec)cz> - 1.12.1999 17:56:29
Formzkus treba toto:
var i: Integer;
begin
for i := 0 to form1.ComponentCount -1 do
ListBox1.items.add(form1.components[i].Name);
end;
Vlada
----- Original Message -----
From: dusan
To: 'Delphi, Konference'
Sent: Wednesday, December 01, 1999 2:40 PM
Subject: Form
Zdravim vsechny. Potreboval bych napovedet, jak mohu pri behu programu zjistit, co vsechno je umisteno na aktivnim formulari (muze tam byt napr. button, speedbutton, panel apod.). Dekuji, Dusan.
Pomoc pri vyvoji
[*] Tomas Kouba <tomas(zv)neo(tec)cz> - 1.12.1999 18:35:07
Zdravim a preji pekny den,
pripravuji podklady pro vetsi program (zatim ani radka kodu) a potreboval
bych nastroj, ktery by mi pomohl pripravit navrh jake formulare potrebuji,
jake jsou z nich volany a tak navzajem; a pokud by to umelo vic, bylo by to
super.
Predem dekuji za radu. POkud to bude zdarma, nebo to budu moci vyzkouset
(shareware), byl bych velmi spokojen.
------------------------------
Tomas Kouba
mailto:tomas(zv)neo(tec)cz
Drag-and-Drop z DBGrid
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 1.12.1999 18:43:17
Win98, D4Prof
Nevite nekdo, jak se dela Drag-and-Drop z DBGridu? Kdyz nastavim
dmAutomatic, tak nedokazu prejit na konkretni radek, ktery chci chytit a
hodit konkretni hodnoty treba do TListu. Nejak mi chybi udalost OnMouseDown,
abych odchytil BeginDrag.
Diky
Petr Svejda
MDI a Thread
[*] Pavel Bansky <PBansky(zv)seznam(tec)cz> - 01.12.1999 20:10:08
ave Pratele !
Pomozte mi prosim z nasledujicim,
potrebuji aby kazde mdi okno bezelo
jako samostatny thread. Nejak se me
to stale nedari.
Nebo by stacilo znat jak ze Thradu
zmenit nebo cist urcitou promenou toho
mdi formulare. Metodu zavolat umim
pres Synchronize, ale kdyz chci menit
promennou (prefernci) toho objektu tak
to vyhodi excpetion.
Dekuji mnohokrat
Pavel Bansky
PBansky(zv)seznam(tec)cz
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Quick Report PageNumber - PageCount
[*] Jirka Virt <virt(zv)volny(tec)cz> - 1.12.1999 19:50:48
Ted se to jmenuje PageNumber. Mimochodem, pouzival jsem v sestavach cislovani radku pomoci Coun() v QRExpr - taky to nefunguje.Misto toho jsem dal
QRsys DetailNo. Jirka Virt
----- Original Message -----
From: Petr Motl��ek
To: Delphi Konference
Sent: Monday, November 29, 1999 6:11 PM
Subject: Quick Report PageNumber - PageCount
Zdravim,
mam problem: Rad bych vytisknul v zapati cislo stranky s informaci o celkov�m poctu str�nka (napr. 1/10).
Chtel jsem pouzit QRPrinter.PageCount, ale to me zradilo, nebot to je rovno tak akorat aktualni strance....
Pouzivam Delphi 3, QR 2.0K s patchem
S diky
Petr Motlicek
Application.ProcessMessages
[*] Jirka Virt <virt(zv)volny(tec)cz> - 1.12.1999 20:02:12
Tak presne takovy problem mam s D5.Mam aplikace napsane v D3 a tam jsem
pouzival v TQuery event onServerYield(tak ted nevim jestli se to tak pise),
kde jsem mohl obcerstvovat aplikaci.A v D5 to chybi.Nevite nekdo proc????
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Peter Laurinc <Peter.Laurinc(zv)ibaware.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 30, 1999 3:59 PM
Subject: Application.ProcessMessages
> Pouzivam FreeIB Components z nich dataset mam nastaveny CachedUpdates.
> Po volani ApplyUpdates trva asi 15 min pokial to urobi. No a pri tom mi
> zatuhne vypis aplikacie na obrazovku. Mam pocit ze by to vyriesilo nikede
> volat Application.ProcessMessages. Otazka je kde? Dik
>
>Novell
[*] Jirka Virt <virt(zv)volny(tec)cz> - 1.12.1999 20:05:27
Ahoj ,
ja na to pouzivat pri nainstalovanem novellovskem klientu jejich ActiveX.
Jirka Virt
email:virt(zv)volny(tec)cz
----- Original Message -----
From: <Grubhoffer(zv)software602(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>; <7hlavac(zv)st.fmph.uniba.sk>
Sent: Wednesday, December 01, 1999 11:50 AM
Subject: RE: Novell
http://developer.novell.com/infolib/
> Zdravim,
> existuje nejaka dokumentacia ohladom Novell Libraries for
> Delphi. Chcem
> totiz napisat program chat taky isty ako je pod NT len pre
> Novell. Nomozem
> ani zacat pretoze som nenasiel ziadnu dokumentaciu.
>
> Vdaka, Miso
>
>
>Data za listopad
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.12.1999 20:07:09
Preji vsem pekneho dne, dobrou chut, pokud prave obedvate.
Prave ctete pravidelnou rubriku ,,Data za mesic``. Dnes jsou ve
znameni data za listopad a jako takova je lze stahnout z me
stranky (pozor na velka a mala pismenka):
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
Data jsou pro program KonfView (odkaz tamtez). Ostatni data
(vcetne techto aktualnich) lze najit take na ftp konference.
Dekuji vam za pozornost a tesim se navidenou u dalsiho
pokracovani vaseho oblibeneho poradu.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
Otevreni zavreni CR-ROM
[*] Jirka Virt <virt(zv)volny(tec)cz> - 1.12.1999 20:36:34
Ahoj,
ja na to pouzivam toto(je to vytahnuty z moji knihovny funkci);
function IoCtl_Int21h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
const
Win95_IOCTL_Dev = '\\.\vwin32';
type
regster = packed record
reg_ebx,reg_edx,reg_ecx,reg_eax,reg_edi,reg_esi,reg_cflag:dword;
end;
var
regs:regster;
hd:Thandle;
ret:Dword;
ans:boolean;
begin
result := false;
hd := 0;
regs.reg_ebx := bx;
regs.reg_edx := dx;
regs.reg_ecx := cx;
regs.reg_eax := ax;
regs.reg_edi := di;
regs.reg_esi := si;
regs.reg_cflag := cflag;
try
hd := CreateFile(Win95_Ioctl_Dev,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd = 0 then
exit;
ans := DeviceIoControl(hd,1,(zv)regs,sizeof(regs),(zv)regs,sizeof(regs),ret,NIL);
if not ans then
exit;
result := true;
finally
CloseHandle(hd);
end;
end;
procedure ....
begin
12 := Drive "L"
IoCtl_Int21h($440D,0012,$0849,0,0,0,0,0);
end;
WinAPI:
Interrupt 21h Function 440Dh Minor Code 49h
mov ax, 440Dh ; generic IOCTL
mov bx, DriveNum ; see below
mov ch, 8 ; device category
mov cl, 49h ; Eject Removable Media
int 21h
A=1,B=2...; 0=current drive
Jirka Virt
email: virt(zv)volny(tec)cz
D5 - ano ci ne ?
[*] Erik Salaj <winsoft(zv)napri.sk> - 1.12.1999 21:32:50
> >> Poznamka na okraj:
> >> Pri komparaci Cardinal s Integer generuje D5 kod, ktery rozsiruje 32
bitovy Cardinal na 64 bitu (hornich 32 bitu nula). Takze je cele porovnani
podstatne delsi. To same plati pro porovnani se zapornou konstantou.
> >
> >Coz je IMHO spravne, viz priklad:
> samozrejme, ze ano. Ja jsem netvrdil, ze to je spatne. Akorat zrovne me by
se libilo kdybych mohl rici at se na nejake rozsirovani vykasle a (treba v
compiler options). Pak by -1 byla fakticky totozna s $FFFFFFFF v podani
Cardinalu
Takisto si myslim, ze automaticka koverzia na 64bitov je nelogicka
a sposobi viac problemov ako osohu. Nativny datovy typ u 32bitovych
procesorov je 32bitovy integer, tak vsetky operacie by mali byt podla
moznosti vykonavane na tomto type, na takejto zasade je napr. zalozena
vecsina RISC-ov (napr. aj char typ interne reprezentuju na 32bitoch).
Je to perfektne vymyslene, jednoduche a zaroven velmi efektivne.
Erik Salaj
Volani funkce z DLL
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 1.12.1999 21:33:13
Ahoj
Pokusim se volat funkci z DLL a ne a ne a nedari se mi to :(
Potrebuji zavolat fci:
GetDiskFreeSpaceEx(
PChar (Path),
lpFreeBytesAvailableToCaller,
lpTotalNumberOfBytes,
lpTotalNumberOfFreeBytes bytes on disk
);
Takze podle starsich prispevku jsem postupoval asi takto:
var
lpFreeBytesAvailableToCaller,
lpTotalNumberOfBytes: Int64;
lpTotal: int64;
lpTotalNumberOfFreeBytes: PLargeInteger;
HInst: HMODULE;
F: function (lpDirectoryName: LPCTSTR;
var lpFreeBytesAvailableToCaller : int64;
var lpTotalNumberOfBytes : int64;
var lpTotalNumberOfFreeBytes : PLargeInteger
): BOOLean;
begin
// Nahrani knihovny
HInst := LoadLibrary(PChar ('KERNEL32.DLL'));
if (HInst = NULL) then ShowMessage ('fail LoadLibrary');
(zv)F := GetProcAddress(HInst, PChar ('GetDiskFreeSpaceEx'));
if ((zv)F = nil) then ShowMessage ('fail GetProcAddress'); // TADY
UZ TO VRACI nil
// Zjisteni velikosti disku
F (
PChar (Path),
lpFreeBytesAvailableToCaller,
lpTotalNumberOfBytes,
lpTotalNumberOfFreeBytes
);
lpTotal := int64 (lpTotalNumberOfFreeBytes);
end;
Problem je, ze to potrebuji rozchodit na Win 95 OSR 2 a ja mam prvni
disketovou verzi Windows :( Takze pokud by mi nekdo poslal funkcni
ukazku na zjisteni volneho mista a kapacity disku, kde by se vyuzila
tato procedura ( A NE GetDiskFreeSpace (ta vraci spatne vysledky pro
disky vetsi nez 2GB)) tak bych byl neskonale stastny.
Diky
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Interbase
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 1.12.1999 21:41:31
Myslim ze to tu uz bolo ale nemozem to najst. Ako sa daju vybrat z
utriedenej tabulky zaznamy s poradovym cislom napr. 11-20. Dik
Drag-and-Drop z DBGrid
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 1.12.1999 21:50:41
> Win98, D4Prof
>
> Nevite nekdo, jak se dela Drag-and-Drop z DBGridu? Kdyz nastavim
> dmAutomatic, tak nedokazu prejit na konkretni radek, ktery chci chytit a
> hodit konkretni hodnoty treba do TListu. Nejak mi chybi udalost OnMouseDown,
> abych odchytil BeginDrag.
Ahoj,
pokud jsem te pochopil, tak tedy ja bych to
delal v (Delphi 3 )tak:
- podedil by TDragObject, kde bych si uchoval,
co chtel, a minimalne teda prepsal metodu
Finished (abych si ten uchovany obsah mohl
vlozit do "Target"), a tento objekt bych vytvoril a
priradil v udalosti OnStartDrag
- pokud trvas na OnMouseDown pouzij napr.
TRxDBGrid z RxLibrary.
Pokud ne: tak snad funguje dmAutomatic a v
TDBGrid.OnCellClick, kde si muzes zjistit z
Column.Field, no a je snad jasne, ze jsi na
urcitem zaznamu v data setu
TDBGrid.DataSource.DataSet, odkud si
vytahnes dalsi hodnoty....
Snad to nebylo zbytecne....
Petr Motlicek
Zmena barvy v DBEdit pri Enabled=true
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 1.12.1999 22:00:16
Ahoj,
moc jsem tomu neporozumnel...
> prosim o pomoc pri zmene barev v DBEdit.
> Mam komponentu, kde lze taky navic nastavit barvu pri Enabled=true;
Jakou komponentu ? Tebou vytvorenou nebo se
jedna o komponentu TDBEdit na formulari ?
> Vsechno funguje jenom tehdy,
Kdy a co vsechno a kde to funguje ?
>jestlize Enabled:=true udelam pred vytvorenim
Formulare.
> Jestlize ale udelam Enabled:=true
Enabled u ceho ?
jiz v hotovem Formulari (reaguji na zadani jine polozky), tak barva je jina.
Barva ceho ?
> Jak se dostat na dany Edit, kteremu menim Enabled a nestojim primo na nem - pro pochopeni
>napr. menim XXEdit.Enabled:=true/false
pomoci nejakeho Buttonu a pri
XXEdit.Enabled:=true potrebuji dat XXEdit do
barvy pozadi Form.ADONIS, ADO & RDS do hloubky - prakticke zkuseno
[*] Erik Salaj <winsoft(zv)napri.sk> - 1.12.1999 22:02:48
> Diky za zajimavy tip, jak problem obejit.
> (Mimochodem to, ze se nemohu pripojit k existujicimu COM objektu je
omezeni
> RDS a nebo Adonis komponent?)
Je to obmedzenie RDS.
> V aplikaci, na ktere pracuji, pripada v uvahu max. 20 soucasne pripojenych
> uzivatelu.
> Doufam, ze to bude jeste unosne (jeste tak 14 dni a dojdu do stadia
prvnich
> vetsich testu).
U 20 uzivatelov nevidim problem.
Erik Salaj
TreeView z DBF
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 1.12.1999 22:11:02
> Snazim se prijit na nejake iteligentni reseni jak generovat polozky TreeView z DBF.
> Ma to mit nekolik podurovni, ale predem nevim kolik, to bude na uzivateli.
> Konecnou poduroven ma tvorit seznam dokumentu wordu nebo excelu, ktere se maj pri dvojkliku zobrazit...
Ahoj,
muzes to hierarchii, ktera by mela byt v
TreeView (DBF) popsat - jestli kazda vetev
muze mit libovolnou hloubku ci stejnou, ?
Pokud je to takhle:
DBF:
id_parent, id_item, itemdesctription
coz odpovida v TreeView
TTreeNode.Parent, TTreeNode, TTreeNode.Text
pak si soukromne mailni. Mam nekolik
procedur pro vytvoreni stromu, hledani uzlu
(polozek) apod....
Petr Motlicek
Application.ProcessMessages
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 1.12.1999 22:19:41
Tlacit okolo 3000 velkych zaznamov cez modem tiez nie je sranda.
----- Original Message -----
From: "Jaro" <jaro(zv)sinea(tec)cz>
> Udelej to tesne pred tim ApplyUpdates.
> Co tam vyvadis, ze to trva 15 minut?
> Jaro
>
>
> > Pouzivam FreeIB Components z nich dataset mam nastaveny CachedUpdates.
> > Po volani ApplyUpdates trva asi 15 min pokial to urobi. No a pri tom mi
> > zatuhne vypis aplikacie na obrazovku. Mam pocit ze by to vyriesilo
nikede
> > volat Application.ProcessMessages. Otazka je kde? Dik
> >
>TStoredProc a MS SQL 7
[*] Jiri Kral <admin(zv)printo(tec)com> - 1.12.1999 22:31:48
Netusite nekdo, proc mi nejde pomoci subj. spustit zadna ulozena procedura
(pres ADO to jde)
normalne nadefinuju session, database, procname (krasne ji lze najit v
Ob.Insp.), nadefinuju parametry
a po zActivneni najednou milostpan breci, ze pry:
General SQL error, cannot find procedure 'mojekrasnaprocedurka'
heeeeelp,pliiiiz
Jiri Kral
Pristup na PDX tabulku ze dvou pocitacu
[*] Jiri Kral <admin(zv)printo(tec)com> - 1.12.1999 22:37:35
na zmenene tabulce je treba po Postu zavolat i FlushBuffers, aby se zmeny z
lokalni cache zapsaly do souboru.
JK
Pomoc pri vyvoji
[*] Jiri Kral <admin(zv)printo(tec)com> - 1.12.1999 22:48:16
>>nastroj, ktery by mi pomohl pripravit navrh jake formulare potrebuji,
>>jake jsou z nich volany a tak navzajem; a pokud by to umelo vic, bylo by
to
>>super.
Kamarade, to jsi asi vedle, protoze tyto utilitky tzv. CASE (comp. aided sw
design) nastroje jsou VELMI draha vec, radove 100ky tisic Kc
napriklad Rose od fy Rational, nebo nastroje od Platinum (www.platinum.com)
kdysi jsme meli ve skole demo Platinum ERwina, to je ale jen pro navrh dB
struktury (ale zato komplet, tabulky, jejich vazby, indexy, ref.integrita,
triggry)
generuje to SQL skripty snad pro vsechy dB enginy na svete - ale je to holt
mastne...
CASE umoznuji planovat s ruznou mirou abstrakce, a je to uceni tak na par
semestru vysky...
nicmene ti preji ti hodne zdaru
Jiri Kral
Run dialog...
[*] Jan Najvarek <najvarek(zv)seznam(tec)cz> - 1.12.1999 22:18:00 -0500
Funkce ShellExecute z knihovny ShellAPI mas stejnou funkci jako Run dialog.
>
> vi nekdo, jak programove otevrit dialog "Spustit" (menu Start/Spustit)
> a predat parametr - nazev souboru/programu, ktery se ma spustit ?
>
Application.ProcessMessages
[*] Jaro <jaro(zv)sinea(tec)cz> - 1.12.1999 20:37:53 -0800
Udelej to tesne pred tim ApplyUpdates.
Co tam vyvadis, ze to trva 15 minut?
Jaro
> Pouzivam FreeIB Components z nich dataset mam nastaveny CachedUpdates.
> Po volani ApplyUpdates trva asi 15 min pokial to urobi. No a pri tom mi
> zatuhne vypis aplikacie na obrazovku. Mam pocit ze by to vyriesilo nikede
> volat Application.ProcessMessages. Otazka je kde? Dik
>