Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Sablona aplikace jen pomoci API
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 24.5.1999 09:17:20
Nevim, jestli je to to, co potrebujes, ale
muzes to udelat jako konzolovou aplikaci
(zadne formulare)
program Project1;
{$APPTYPE CONSOLE}
begin
WriteLn('Hello world.');
ReadLn;
end.
Dobra.
> ----------
> Od: Petr Vaclavek[SMTP:bla(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 23. kv�tna 1999 11:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Sablona aplikace jen pomoci API
>
> Ahoj
>
> Mohl by mi nekdo poslat jednoduchou sablonu (prazdny program)
> na programek, ktery prelozim v D4 a je naprogramovan jen pomoci
> WinAPI (treba klasicky Hello World) - proste jenom WinMain a
> WindowProc.
>
> Zkousel jsem nejaky pretahnout z BP7, prelozim to, ale nic se
> neukaze :-((
>
> Duvod: potrebuji udelat jednoduchouckej programek a opravdu
> nepotrebuji aby byl 300kb veliky...
>
> Diky moc
> Petr
> Ticon
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 24.5.1999 09:24:10
Chybi Ti tam
i:= TICon.Create; (za begin)
-----Original Message-----
From: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
Sent: Monday, May 24, 1999 8:20 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Ticon
Ahoj
nevite co delam spatne ???
var
i:TIcon;
begin
i.LoadFromFile('c:\cloud.ico');
form1.ImageList1.AddIcon(i); ------- tady to hodi chybu
adresy
end;
Jirka Virt
email:virt(zv)pepa(tec)cz
www.pepa(tec)cz
Ticon
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 24.5.1999 09:30:30
Napred musis vytvorit instanci toho objektu
I:=TIcon.Create;
a nakonci ji zase zrusit
I.Free;
{ vse nejlepe v bloku try-finally }
Dobra.
> ----------
> Od: Jiri Virt[SMTP:virt(zv)pepa(tec)cz]
> Odesl�no: 24. kv�tna 1999 8:19
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ticon
>
> Ahoj
>
> nevite co delam spatne ???
> var
> i:TIcon;
> begin
> i.LoadFromFile('c:\cloud.ico');
> form1.ImageList1.AddIcon(i); ------- tady to hodi chybu
> adresy
> end;
>
>
>
>
> Jirka Virt
>
> email:virt(zv)pepa(tec)cz
>
> www.pepa(tec)cz
> IO Result
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 24.5.1999 09:42:57
Dej treba na OnChange :
try
StrToInt( Edit1.Text);
except
on E:EConvertError do ShowMessage( 'Toto neni cislo');
end;
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: daniel.hrna(zv)vm.sme(tec)cz [SMTP:daniel.hrna(zv)vm.sme(tec)cz]
Odeslano: 24. kvitna 1999 9:06
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: IO Result
Narazil jsem na dalsi vec.
Kontroluji vstupni udaj na onChange a chtel bych testovat, zda je vlozeno
cislo, v TP to bylo treba tak, ze jsem napsal
Var Cislo:Integer;
begin
.....
{$i-}
Read(cislo);
{$i+}
if ioresult <> o then .....
.....
end.
Jak to mam testovat v D3 ?? Chci testovat to, aby uzivatel nemohl vlozit nic
jineho nez cislo, ale chci pouzit Edit, ne MaskEdit !!!
Daniel Hroa - technik VT
Severomoravska energetika a.s.
RZ Vala?ske Mezioiei
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
IO Result
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 24.5.1999 09:57:18
v onKeyPress toho Edit-u napis toto
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ('0'..'9', #8)) then
begin
if not MessageBeep(MB_ICONOK)
then MessageBeep($FFFF);
{ mozna jeste Key:=#0 }
Abort;
end;
end;
a v onExit muzes potom testovat toto
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
StrToInt(Edit1.Text);
except
on EConvertError do
begin
{tady reagovat na to,
ze v Edit1Text neni
platne cislo}
if not MessageBeep(MB_ICONHAND)
then MessageBeep($FFFF);
MessageDlg( atd...);
Edit1.SelectAll;
if Edit1.CanFocus
then Edit1.SetFocus;
Abort;
end;
end;
end;
> ----------
> Od: daniel.hrna(zv)vm.sme(tec)cz[SMTP:daniel.hrna(zv)vm.sme(tec)cz]
> Odesl�no: 24. kv�tna 1999 9:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: IO Result
>
> Narazil jsem na dalsi vec.
> Kontroluji vstupni udaj na onChange a chtel bych testovat, zda je
> vlozeno
> cislo, v TP to bylo treba tak, ze jsem napsal
>
> Var Cislo:Integer;
> begin
> .....
> {$i-}
> Read(cislo);
> {$i+}
> if ioresult <> o then .....
> .....
> end.
>
> Jak to mam testovat v D3 ?? Chci testovat to, aby uzivatel nemohl
> vlozit nic
> jineho nez cislo, ale chci pouzit Edit, ne MaskEdit !!!
>
>
>
> Daniel Hr�a - technik VT
> Severomoravsk� energetika a.s.
> RZ Vala�sk� Mezi����
> tel.: 0651-683 442, fax:0651-683 424
> mailto:Daniel.Hrna(zv)vm.sme(tec)cz
> mobil: 0603-257397
> Auto-increment field
[*] petrhalamicek(zv)email(tec)cz - 24.5.1999 10:06:18
Zdrav�m v�echny.
V datab�zov� tabulce jsem si jako kl�� ud�lal field ,kter� bude auto -
increment. Tak�e poka�d� ,kdy� p�id�m polo�ku se mi zv��� o hodnotu 1.
Probl�mem je , �e kdy� z napln�n� tabulky sma�u n�jak� z�znam, tak mi
vznikaj� "d�ry" v kl��i. D� se tohle n�jak o�et�it.
D�ky moc.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
IO Result
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 24.5.1999 10:08:04
----- P�vodn� zpr�va -----
Od: <daniel.hrna(zv)vm.sme(tec)cz>> Narazil jsem na dalsi vec.
> Kontroluji vstupni udaj na onChange a chtel bych testovat, zda je vlozeno
> cislo, v TP to bylo treba tak, ze jsem napsal
>
> Var Cislo:Integer;
> begin
> .....
> {$i-}
> Read(cislo);
> {$i+}
> if ioresult <> o then .....
> .....
> end.
>
> Jak to mam testovat v D3 ?? Chci testovat to, aby uzivatel nemohl vlozit
nic
> jineho nez cislo, ale chci pouzit Edit, ne MaskEdit !!!
>
V Delphi se pouzivaji vyjimky, takze napr.
Try
cislo := IntToStr(StrToInt(Cislo));
Except
cislo := 0;
End;
Nebo to muzes osetrit v udalosti TEdit.OnKeyPress - neco jako
if not (Key in [#0..#31, '0'..'9']) then Key := #0;
to povoli pouze zapis cislic a ridicich klaves
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Triggers & Gener�tor
[*] petrhalamicek(zv)email(tec)cz - 24.5.1999 10:12:52
Zdrav�m v�echny.
Na Interbase jsem si vytvo�il GENER�TOR, kter� mi p�i ka�d�m nov�m z�pisu
zv��� ��selnou hodnotu. D�le jsem si vytvo�il Trigger - Before
Insert,kter� pr�v� vol� tento gener�tor. Kdy� to zkou��m z aplikace
dod�van� s delphi - WISQL32.exe, tak mi to v pohod� funguje. Kdy� si v�ak
vytvo��m aplikaci na stran� klienta, tak �e si tabulku z Interbasu
norm�ln� otev�u v Table a pak p�id�v�m z�znamy, program mi automaticky
nezvedne ani nezap�e ��selnou hodnotu,kter� je norm�ln� o�et�ena
Gener�torem s Triggerem. Nev�te co s t�m ?
D�ky.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Ticon
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 24.5.1999 10:18:36
To bylo ono, diky.
-----P�vodn� zpr�va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 24. kv�tna 1999 10:11
P�edm�t: RE: Ticon
>Chybi Ti tam
> i:= TICon.Create; (za begin)
>
>-----Original Message-----
>From: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
>Sent: Monday, May 24, 1999 8:20 AM
>To: delphi-l(zv)fwd(tec)cz
>Subject: Ticon
>
>
>Ahoj
>
>nevite co delam spatne ???
> var
> i:TIcon;
> begin
> i.LoadFromFile('c:\cloud.ico');
> form1.ImageList1.AddIcon(i); ------- tady to hodi chybu
>adresy
> end;
>
>
>
>Jirka Virt
>
>email:virt(zv)pepa(tec)cz
>
>www.pepa(tec)cz
BP7, Netware a Windows NT
[*] spr.dpcbu(zv)cssz(tec)cz (Spravce site DP C.Budejovice) - 24.5.1999 10:23:29
Na ftp://ftp.turbopower.com/pub/btree/ je dokument corrupt.txt
tam popisuji nektere problemy s pristupem k datum. Treba to pomuze.
Ing. Jind�ich Danihelka
DP �esk� Bud�jovice
----------
> From: Karel Kral <kral(zv)purus(tec)cz>
> To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
> Subject: BP7, Netware a Windows NT
> Date: 19. kv�tna 1999 16:31
>
> Muzete mi napsat, zda nekomu funguji na NT 4.0/Novell Client 4.6
> Dosovske sitove aplikace v BP7, ktere by vyuzivaly sluzby klienta
> Netware/VLM?
>
> My jako firma jsme zivotne zavisli na aplikacich psanych v Dosu/BP7 a
> vyuzivajici ruzna volani VLM (transakce atd.). Dosud jsme pouzivali
> sitove knihovny pro Netware od TurboPower dodavane k B-Tree fileru.
>
> Problem je v tom, ze jak v Dosu, tak pod Win95 a 98 s NW klientem 32
> vsechno jede Ok.
> Zda se vsak, ze v emulaci VLM pod Windows NT jsou nejake zavazne chyby
> nebo
> nekompatibility. Temer nic nefunguje tak, jak by melo.
> --
> ______________________________________________________
> 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
> ______________________________________________________
IO Result
[*] Libor Valka <valka(zv)brno.cas(tec)cz> - 24.5.1999 10:36:09
Ahoj,
muzes pouzit tyto funkce:
function StrToInt(const S: string): Integer;
function StrToIntDef(const S: string; Default: Integer): Integer;
Blizsi vysvetleni v help-u Delphi.
Libor
valka(zv)brno.cas(tec)cz
valka(zv)ipm(tec)cz
> Narazil jsem na dalsi vec.
> Kontroluji vstupni udaj na onChange a chtel bych testovat, zda je vlozeno
> cislo, v TP to bylo treba tak, ze jsem napsal
>
> Var Cislo:Integer;
> begin
> .....
> {$i-}
> Read(cislo);
> {$i+}
> if ioresult <> o then .....
> .....
> end.
>
> Jak to mam testovat v D3 ?? Chci testovat to, aby uzivatel nemohl
> vlozit nic
> jineho nez cislo, ale chci pouzit Edit, ne MaskEdit !!!
serazovani podle abecedy
[*] Lubos <bruce(zv)pobox.sk> - 24.5.1999 10:41:52
> Zdravim,
> na svych webovych strankach mam vypsane citaty, ktere pravidelne aktualizuji. Cerpam z knihy, kde jsou abecedne serazeny, coz je myslim nejlepsi. Ovsem problem je, ze kdyz chci pripsat nejaky jiny citat, musim ho zaradit rucne a to uz zacina byt dost unavne.
> Hledal jsem na konferenci nejaky zdroj, ale nic jsem nenasel. Je tady nekdo, kdo by mi pomohl s tim algoritmem? Nebo mne trknete, jakou metodu by jste pouzili. (Pouzivam D1)
hm, celkom ti nerozumiem .
ako ukladas tie citaty, do akeho formatu ?
Ja by som to ukladal asi do DBF a to hadam nie je problem.
/LH
TlistView
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 24.5.1999 10:41:46
Ahoj
mam jeste jedne problem.
Ma smycku while do a tou pridavam do seznamu ListView polozky.
Jestlize jedna polozka v e smycce neodpovida, vynecham ji a tim potrebuji
cely seznam o jedno misto posunout a naopak.Funkce Clear neni dobra,
protoze cely seznam mrka. Insertem se mi to nepovedlo.Nevite nejakou
spravnou fintu??
Asi jako neco Pozice(x,y) : = 0;(StringGrid).
Diky
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
ReadComponent & WriteComponent
[*] Rul��ek Daniel <dan.r(zv)avizo(tec)cz> - 24.5.1999 10:45:59
Zdrav�m v�echny.
V Delphi 3 pouzivam metodu ReadComponent a WriteComponent objektu
FileStream pro ulozeni dynamicky vytvorenych komponent do souboru a
cteni z neho. Ale nejak se mi nechcou ukladat vlastnosti techto
kompoment. Mam totiz vytvotene vlastni komponenty, ktere maji vlastnost
popis, kterou pred ulozenim do souboru nastavim, ale po nacteni ji mam
prazdnou. Delam nekde chybu nebo�to tak ma fungovat? Dekuju predem za
radu.
�
Dan
IO Result
[*] martin.falta(zv)obi(tec)cz - 24.5.1999 10:45:17
Testuj to v udalosti OnExit komponenty TEdit.
procedure TForm1.Edit1Exit (Sender: TObject);
var
i, Code: integer;
begin
Val (Edit1.Text, i, Code);
if Code <> 0 then
begin
MessageDlg ('Zadejte cislo.', mtError, [mbOK], 0);
Edit1.SetFocus;
end;
end;
Auto-increment field
[*] Libor Valka <valka(zv)brno.cas(tec)cz> - 24.5.1999 11:04:21
Ahoj,
ale od toho, podle meho nazoru, ten Autoincrement je. Kazdy zaznam tak ma
jednou provzdy "prideleno" poradove cislo. Ucelem je zabranit
nejednoznacnostem v identifikaci zaznamu.
Libor.
valka(zv)brno.cas(tec)cz
valka(zv)ipm(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> petrhalamicek(zv)email(tec)cz
> Odesl�no: 24. kv�tna 1999 10:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Auto-increment field
>
>
> Zdrav�m v�echny.
> V datab�zov� tabulce jsem si jako kl�� ud�lal field ,kter� bude auto -
> increment. Tak�e poka�d� ,kdy� p�id�m polo�ku se mi zv��� o hodnotu 1.
> Probl�mem je , �e kdy� z napln�n� tabulky sma�u n�jak� z�znam, tak mi
> vznikaj� "d�ry" v kl��i. D� se tohle n�jak o�et�it.
> D�ky moc.
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
>
>Delphi a bcp_init pro MSSQL
[*] muher(zv)csas(tec)cz - 24.5.1999 11:24:25
S DB-Library a MSSQL7 opatrne. Nemusi vse fungovat. BCP by melo byt i pod
OLE DB. Zkusenosti nemam. Az to vyresis, dej nam vedet.
> -----Original Message-----
> From: Marian Jonas [SMTP:jonas(zv)ji(tec)cz]
> Sent: Monday, May 24, 1999 11:25 AM
> To: Konference Delphi
> Subject: Delphi a bcp_init pro MSSQL
>
> Ahoj vsichni.
>
> Objevil se mi tady maly problem. Potrebuji na MS SQL naladovat data pres
> BCP.
> Prepsal jsem si potrebne hlavickove soubory z VC do Delphi, podari se mi
> spojit s
> MS SQL ale po prikazu bcp_init mi vyskoci hlaska:
>
> 4805 - The front end tool you are using does not support the feature of
> bulk insert
> from host, please use proper tools for this command.
>
> Kdyz zkusim to same na VC 6.0, tak to bezi ok.
>
> Znamena to snad, ze musim to psat v cecku od M$ ?
> Pokud ano, proc neni v dokumentaci DB Library o tomto zminka ?
>
> Najde se nekdo s podobnou zkusenosti ?
>
> Marian Jonas
Delphi a bcp_init pro MSSQL
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 24.5.1999 10:24:59
Ahoj vsichni.
Objevil se mi tady maly problem. Potrebuji na MS SQL naladovat data pres BCP.
Prepsal jsem si potrebne hlavickove soubory z VC do Delphi, podari se mi spojit s
MS SQL ale po prikazu bcp init mi vyskoci hlaska:
4805 - The front end tool you are using does not support the feature of bulk insert
from host, please use proper tools for this command.
Kdyz zkusim to same na VC 6.0, tak to bezi ok.
Znamena to snad, ze musim to psat v cecku od M$ ?
Pokud ano, proc neni v dokumentaci DB Library o tomto zminka ?
Najde se nekdo s podobnou zkusenosti ?
Marian Jonas
Prihoda s ExtractFilePath
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 24.5.1999 10:30:46
> From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> > Stala se mi tato celkem zajimava prihoda. Mam D4 (SP 1) na Win NT 4.0 (SP 4),
> Doporucuju nainstalovat SP3, SP1 neresil vubec nic.
Ahoj,
k dispozici uz je SP5 na WinNT 4. Jsou s tim nejake
spatne :-) zkusenosti?
-----------------------------------------------
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
Windows 2000
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 24.5.1999 10:30:47
Ahoj,
prave mi prislo od MS:
...
Windows 2000 beta 3 uvolnena
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Microsoft predal k distribuci Windows 2000 - zacina nejrozsahlejsi
testovani operacniho systemu Microsoftu. Jak tuto betu ziskat? Pro
nase zakazniky je pripraven Windows 2000 Corporate Preview Program,
takze mate-li zajem o testovani Windows 2000, navstivte webovou adresu
http://www.microsoft.com/cze/windows/
kde naleznete link na registraci zaroven s potrebnymi informacemi.
...
> From: "Oldrich Nic" <nico(zv)feld.cvut(tec)cz>
> Hoj!
> Pred casem tu probehla diskuse okolo Windows 2000 Beta 3.
> Koukal jsem se na stranky Microsoftu, ale nasel jsem jen
> objednani Windows za 60 dolaru az z Ameriky. Nevi nekdo, zda je
> mozne je poridit za nase koruny ceske a pripadne za kolik (kdyby
> to slo nekde zadarmo, vubec bych se nezlobil...)? MSDN si
> skutecne predplacet asi nebudu.
-----------------------------------------------
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
Ochrana programu (uz zase ;-)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.5.1999 11:38:48
Martin Kubecka wrote:
> Dostal se mi do ruky program, u ktereho autori (dealeri) tvrdi:
>
> "Na pocitaci, kde byla nainstalovana demo licence jiz nelze DEMO
> programu znovu spustit. Toto je zajisteno nekolikanasobnym roztrousenim
> hesel v ruznych castech pocitace tak, aby ani po formatovani pevnych disku
> nebylo mozne instalaci bez licencniho hesla spustit."
:-))) Takovym programum je nejlepsi se na hony vyhybat.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
adresace ShortString a String
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.5.1999 11:38:48
Petr Kro�a ml. wrote:
> potrebuji do registru Windows zapsat retezec, ale nechci pouzivat
> WriteString, protoze by retezec byl citelny.
> Proto bych rad pouzil WriteBinaryData, jenze tady je problem.
>
> procedure TRegistry.WriteBinaryData(const Name: string; var Buffer;
> BufSize: Integer);
> begin
> PutData(Name, (zv)Buffer, BufSize, rdBinary);
> end;
>
> Metoda pri svem zapisu predpoklada, ze budu zapisovat objekt, ktery NENI
> pointer. To znamena, ze pomoci ni mohu zapsat treba stary pascalovsky
> string, v Delphi tedy ShortString nebo nejake staticky definovane pole.
> Na toto pole si potom metoda pomoci (zv)Buffer vytvori pointer a ten preda
> metode PutData.
var
Buffer:string; //muze byt i huge
WriteBinaryData('name', (zv)Buffer[1], Length(Buffer)+1);
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Triggers & Gener�tor
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 24.5.1999 11:40:36
Ono zapise ale zmena sa neobjavi na obrazovke iba po Close a Open tabulky.
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: petrhalamicek(zv)email(tec)cz <petrhalamicek(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 24. m�j 1999 10:43
P�edm�t: Triggers & Gener�tor
>Zdrav�m v�echny.
>Na Interbase jsem si vytvo�il GENER�TOR, kter� mi p�i ka�d�m nov�m z�pisu
>zv��� ��selnou hodnotu. D�le jsem si vytvo�il Trigger - Before
>Insert,kter� pr�v� vol� tento gener�tor. Kdy� to zkou��m z aplikace
>dod�van� s delphi - WISQL32.exe, tak mi to v pohod� funguje. Kdy� si v�ak
>vytvo��m aplikaci na stran� klienta, tak �e si tabulku z Interbasu
>norm�ln� otev�u v Table a pak p�id�v�m z�znamy, program mi automaticky
>nezvedne ani nezap�e ��selnou hodnotu,kter� je norm�ln� o�et�ena
>Gener�torem s Triggerem. Nev�te co s t�m ?
>D�ky.
>
>--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
>--- http://email(tec)cz <--- Get Your Free Email
>
>
>Select Picture (image)
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 24.5.1999 11:54:42
Je mozne v runtime vyvolat Select Picture (image) dialog na TImage object, alebo musim to programovat ?
TUNGLI Jan
tungli(zv)pvt.sk
Chyba prekladace pri porovnani currency a variant
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 24.5.1999 12:08:52
Vazeni,
nasledujici kus kodu vas presvedci ze 2*2 neni 4!
var
a: currency;
v: Variant;
begin
a:=2;
v:=4;
if v=a*a then ShowMessage('2*2 jsou 4');
if v=a*a/10000 then ShowMessage('2*2 nejsou 4');
end;
Tento program nenapise "2*2 jsou 4"!
Pokud by snad nekdo argumentoval,
ze porovnavat realna cisla primo se nema
tak at vysvetli proc to "2*2 nejsou 4 se vypise"!
A odpoved proc to tak je?
a) protoze 2*2 nejsou 4
b) protoze Delphi (verze 3.02 i 4.03) neumeji porovnat variant
a vynasobene currency.
Zapomenou totiz provest korekci soucinu vydelenim 10000.
Proto druha podminka projde.
c) vsechny ostatni duvody
b) je spravne
Takze POZOR NA TO!
Rob
PS:
Zapinani/Vypinani "optimalizace" a "Pentium safe FDIV" nema vliv!
Jakou verzi Delphi?
[*] Michal �viga <proton(zv)iol(tec)cz> - 24.5.1999 12:23:12
Mam Delphi 2.0 develop. a delam hlavne databazove aplikace.
Zajima me, jestli ma nejaky vyznam prechazet na vyssi verze a popr. na jake.
Nevim , co vsechno mi vyssi verze prinese.
Dal me zajima, jestli je mozne pouzit nektere komponenty z vyssich verzi v
D2.
Jde mi predevsim o QR a Internet.
Take nevim, jestli muzu pouzit vyssi verzi BDE a jesli to ma nejaky prinos.
S pozdravem
Michal �viga (Sviga)
PROTON
CD KATALOG AMPER '99
http://www.cd-amper(tec)cz
mailto:proton(zv)iol(tec)cz
ICQ:20510677
tel., fax:02/65 15 052
mobil:0602/ 207 557
TTabSet a Image
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 24.5.1999 12:30:59
Zdravim,
nedari se mi nastavit na "ousku" TTabsetu ikona z Imagelistu. V helpu jsem
se docetl, ze imageindex=tabindex, coz me prilis neuspokojuje:
> Occurs when a tab is about to display its associated image.
> property OnGetImageIndex: TTabGetImageEvent;
> Description
> Override GetImageIndex in a derived class to specify the default
ImageIndex for a given TabIndex.
> By default, GetImageIndex returns TabIndex. Therefore, the tab at index 0
will be associated with an image index of 0, the tab at index 1 > will be
associated with an image index of 1, and so on.
> Return -1 to specify no image for the tab.
> The images are specified in the Images property.
Potreboval bych to menit podle potreby.
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================== Shanim spolupracovniky
[*] Lubor Martinsky <lubor.martinsky(zv)dctrade(tec)cz> - 24.5.1999 12:34:17
Vazeni,
Omlouvam se Vsem za zadost, ktera sem nepatri. Necekane mne opustil kolega
programator.
Vzhledem k zavazkum, shanim urgentne programatora v D4, prof. na MS SQL.
Zajemci o blizsi info, prosim soukrome na lubor.martinsky(zv)dctrade(tec)cz
Dekuji.ICO prohlizec
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 24.5.1999 12:48:46
Zdravim DELHISTY
tak trochu mimo program, obcas si stahnu jakesi ikony, ktere jsou ve formatu ICO.
Nevite, kde je nejaky free prohlizec na ICO - uvital bych, aby tam byl i n�hled a prevod do BMP.
Diky pavel
Pekny den preje
Pavel ZIDEK
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ReadComponent & WriteComponent
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 24.5.1999 13:01:36
Podival bych se na nastaveni dane property (stored, default ...) - je to pod
heslem "Storage specifiers"
Ing. David Vodi�ka
David.Vodicka(zv)GECapital.com
-----P�vodn� zpr�va-----
Od: Rul��ek Daniel [mailto:dan.r(zv)avizo(tec)cz]
Odesl�no: 24. kv�tna 1999 10:46
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: ReadComponent & WriteComponent
Zdrav�m v�echny.
V Delphi 3 pouzivam metodu ReadComponent a WriteComponent objektu
FileStream pro ulozeni dynamicky vytvorenych komponent do souboru a
cteni z neho. Ale nejak se mi nechcou ukladat vlastnosti techto
kompoment. Mam totiz vytvotene vlastni komponenty, ktere maji vlastnost
popis, kterou pred ulozenim do souboru nastavim, ale po nacteni ji mam
prazdnou. Delam nekde chybu nebo�to tak ma fungovat? Dekuju predem za
radu.
�
Dan
ICO prohlizec
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 24.5.1999 13:05:49
Ucite to umi Irfan View
snad http://stud1.tuwien.ac.at/~e9227474
ale ja davam prednost MicroAngelu
(umi i ICL, EXE, DLL, ...)
http://www.impactsoft.com
Dobra.
> ----------
> Od: Pavel ZIDEK[SMTP:kopr(zv)kopr(tec)cz]
> Odesl�no: 24. kv�tna 1999 12:48
> Komu: DELPHI forum
> P�edm�t: ICO prohlizec
>
> Zdravim DELHISTY
> tak trochu mimo program, obcas si stahnu jakesi ikony, ktere jsou ve
> formatu ICO.
> Nevite, kde je nejaky free prohlizec na ICO - uvital bych, aby tam byl
> i n�hled a prevod do BMP.
> Diky pavel
>
> Pekny den preje
> Pavel ZIDEK
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~ ~ ~
> KOPR software Pavel ZIDEK voice 069 / 66 02 156
> mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz
> http://www.kopr(tec)cz/w-delphi
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~ ~ ~
> Delphi a bcp_init pro MSSQL
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 24.5.1999 12:26:06
Mne to prave nechodi ani na MS SQL 6.5. OLE DB mi moc nepomuze,
potrebuji aby na klientovi byla jen NTWDBLIB.DLL, instalovat molocha jako
OLE DB nelze.
Marian Jonas
>S DB-Library a MSSQL7 opatrne. Nemusi vse fungovat. BCP by melo byt i pod
>OLE DB. Zkusenosti nemam. Az to vyresis, dej nam vedet.
ICO prohlizec
[*] Lubor Martinsky <lubor.martinsky(zv)dctrade(tec)cz> - 24.5.1999 13:28:49
Zkus CD prilozene k PC Worldu 5/99.
lubor
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] za u�ivatele Pavel
ZIDEK
Odesl�no: 24. kv�tna 1999 12:49
Komu: DELPHI forum
P�edm�t: ICO prohlizec
Zdravim DELHISTY
tak trochu mimo program, obcas si stahnu jakesi ikony, ktere jsou ve formatu
ICO.
Nevite, kde je nejaky free prohlizec na ICO - uvital bych, aby tam byl i
n�hled a prevod do BMP.
Diky pavel
Pekny den preje
Pavel ZIDEK
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ICO prohlizec
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 24.5.1999 13:47:55
napr. IconShop na :
www.ping.be/liontech
freeware, verze 1.10a - cca 100kB, vyzaduje Comctl32.dll v 4.71 a vyssi :
IconShop is a librarian that offers the tools to manage ICL icon libraries.
Read and write ICL icon libraries.
Browse icon libraries.
Drag and drop files and folders from the Windows Explorer onto the IconShop
window to process them.
Drag and drop icons between IconShop windows.
Drag and drop icon images between IconShop windows.
Extract icons from Windows icons, resources, executables and libraries.
Extract icons from Macintosh icons, resources, IconDropper icon packs,
Kaleidoscope schemes and executables, including MacOS 8.5 uncompressed and
compressed 24-bit icons.
Convert bitmap files to icons.
Export icons from a library in icon, cursor or bitmap format.
==========================================
Tiny executable size.
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Pavel ZIDEK [SMTP:kopr(zv)kopr(tec)cz]
> Odesl�no: 24.05.1999 12:49
> Komu: DELPHI forum
> P�edm�t: ICO prohlizec
>
> Zdravim DELHISTY
> tak trochu mimo program, obcas si stahnu jakesi ikony, ktere jsou ve
> formatu ICO.
> Nevite, kde je nejaky free prohlizec na ICO - uvital bych, aby tam byl i
> n�hled a prevod do BMP.
> Diky pavel
>
> Pekny den preje
> Pavel ZIDEK
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~
> KOPR software Pavel ZIDEK voice 069 / 66 02 156
> mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~Primy pristup na disk
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 24.5.1999 13:56:03
Nemate nekdo povedmost, jak se pres Delphi (4.03 Prof ) dostat na
konkretni cluster, stopu, sektor na hardu nebo lepe na diskete a jak
pripadne zjistit, zda je sektor vadny ?
Diky Mira
Error ntdll.dll
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 24.5.1999 14:17:37
Zdravim vsechny.
Mam nasledujici problem Napsal jsem aplikaci, ktera pracuje se soubory
(presun, mazani, atd.)
Je to zkompilovane pod Win98. Pokud to spustim pod Win98, vse se chova
korektne, ale pokud to spustim pod NT, tak po urcite dobe (pri zpracovavani
soubor�) to vyhodi chybu na nejake adrese v modulu ntdll.dll. Nevite kde by
mohl byt problem?
P.S.: Prosim nepiste mi ze to jde lepe udelat pomoci *.bat. Mam proto
duvody.
Dekuji Vsem !!!
Novak
ICO prohlizec
[*] Libor Valka <valka(zv)brno.cas(tec)cz> - 24.5.1999 14:19:40
Ahoj,
ja osobne pouzivam jako prohlizec vsemoznych grafickych formatu
IrfanView. Je velmi rychly a 'free'.
Najdes ho na adrese
http://stud1.tuwien.ac.at/~e9227474/
Libor
valka(zv)brno.cas(tec)cz
valka(zv)ipm(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Pavel ZIDEK
> Odesl�no: 24. kv�tna 1999 12:49
> Komu: DELPHI forum
> P�edm�t: ICO prohlizec
>
>
> Zdravim DELHISTY
> tak trochu mimo program, obcas si stahnu jakesi ikony, ktere jsou
> ve formatu ICO.
> Nevite, kde je nejaky free prohlizec na ICO - uvital bych, aby
> tam byl i n�hled a prevod do BMP.
> Diky pavel
>
> Pekny den preje
> Pavel ZIDEK
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~ ~ ~ ~ ~
> KOPR software Pavel ZIDEK voice 069 / 66 02 156
> mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~ ~ ~ ~ ~
>Dva problemy
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 24.5.1999 12:26:55 met-1mest
> From: sup(zv)svitap(tec)cz
> 1. Jak udelat barevny kursor ??
Nakrteslit si ho, napr. v Microangelu. Lze ho stahnout na Webu,
je to shareware.
To druhy nevim, sorry.
Oldrich Nic, nico(zv)feld.cvut(tec)cz
Distribuce BDE
[*] Hole�ek Radek <holecek.radek(zv)seznam(tec)cz> - 24.5.1999 15:05:20
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Zdravim!
<p>Prosim, pomozte!
<p> Pokousim se distribuovat aplikaci vytvorenou v D4
spolecne s BDE. Pouzivat k tomu IS Express Delphi 4.0 beta.
<br>Po restartu a spusteni aplikace BDE zahlasi chybu error $2108. BDE
samo o sobe pracuje, ale bohuzel moje aplikace nevi, kde je BDE a tak zmatkuje.
<br>Zkousel jsem ruzne kombinace self-registrace v IS, pridavani hodnot
do registru, ale vsechno zbytecne.
<p>Predem diky za jakoukoliv odpoved</html>
Novy (?) virus (!) VAROVANI *
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 24.5.1999 14:12:48
Ahoj,
prikladam varovani, ktere probehlo jednou z ceskych
konferenci. Zda se, ze nas cekaji tezke casy,
a co teprve az _tvurci_ viru objevi Windows Script Hosting
(nebo Host Scripting ???:-) a pusti se do toho KAZDY
sikovny skolak!
----Predano -----------------------------------
Pos�l�m informaci o nov�m viru, kterou jsem obdr�el od sv�ho
dodavatele v�po�etn� techniky.
Ing.Franti�ek Schropfer, 433
ekonom(zv)prv(tec)czn(tec)cz
-----P�vodn� zpr�va-----
Od: Ing. Josef Kle�ka <jkvtrade(zv)prv(tec)czn(tec)cz>
Komu: jkvtrade(zv)prv(tec)czn(tec)cz <jkvtrade(zv)prv(tec)czn(tec)cz>
Datum: 20. kv�tna 1999 23:12
P�edm�t: FW: Ze by novy virus
>
>
>-----P�vodn� zpr�va-----
>Od: klecka(zv)list.skm.vutbr(tec)cz [mailto:klecka(zv)list.skm.vutbr(tec)cz]
>Odesl�no: 20. kv�tna 1999 10:25
>Komu: jkvtrade(zv)prv(tec)czn(tec)cz
>P�edm�t: Ze by novy virus
>
>
>Virus CIH aka �ernobyl, kter�
>citeln� za�to�il po cel�m sv�t� 26. dubna m� sv�ho
>n�sledn�ka. Mutace CIHu s n�zvem Emperor slibuje
>je�t� v�ce destrukce a je�t� men�� schopnost
>detekce.
>
>Emperor je polymorfn� v�ced�ln� virus, kter� m�
>velikost 6 kB, p�ipojuje se na konec soubor� a proti
>viru CIH se ���� i na DOSov�ch souborech COM a
>EXE. Krom� toho nakaz� master boot sektor na
>pevn�m disku a boot sektor na disket�ch, aby se
>nahr�val p�i ka�d�m startu syst�mu. Virus obsahuje
>�adu ochran proti lad�n�, pou��v� stealth techniky a
>promy�len� zp�soby obch�zen� antivirov�ch
>program�.
>
>Um� dokonce obej�t i ochranu na �rovni BIOSu. V
>p��pad�, �e m�te AMI Bios se zapnutou antivirovou
>ochranou, s�m si zm��kne kl�vesu Y p�i dotazu na nepovolen� z�pis do
>master boot sektoru, u Awardu si tuto ochranu vypne p��mo v BIOSu
>s�m.
>
>Podobn� jako OneHalf zak�duje data na disku tak, �e k nim lze
>p�istupovat jen, je-li virus aktivn� v pam�ti, jinak jsou data
>zak�dov�na.
>
>M� siln�j�� destrukci ne� CIH, sma�e tak� data na pevn�m disku a
>zru�� FlashBIOS po��ta�e, jen o n�co ��inn�ji. Krom� toho vyp�e na
>obrazovku text:
>
> EMPEROR
> I will grind my hatred upon the loved ones.
>Despair will be brought upon the hoping childs of happiness.
>Wherever there is joy the hordes of the eclipse will pollute
> sadness and hate under the reign of fear.
> In the name of the almighty Emperor....
>
>K nastartov�n� destrukce sta��, �e virus zjist� v pam�ti aktivn�
>lad�c� program, kter� m��ete pou��vat t�ebas jen pro sv�j v�voj.
>Virus se spust� i v p��pad�, �e syst�m restartujete mezi 5:00 a
>10:00. Podm�nky k
nastartov�n�
>viru jsou tedy jednozna�n� m�k�� ne� m� CIH. Dal�� informace najdete
>na Virus Encyclopaedia [ http://www.avpve.com/ ].
>
>V sou�asn� dob� je z antivir� zn�m jen Antiviral Toolkit Pro , kter�
>tento virus detekuje. Lze ov�em o�ek�vat, �e na n�j rychle zareaguj�
>i dal�� dodavatel� antivir�.
>
>
>Takze se mame zase na co tesit.
>
> S pozdravem Radim Klecka, Brno
>
>
-----------------------------------------------
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
Distribuce,instalace BDE
[*] Tom� R��i�ka - 24.5.1999 15:13:36
R�d bych se zeptal:
jak vytvo�it instala�n� diskety BDE ? Na CD nejsou.
jak je to s licenci: mam CB1 a chtel bych si stahnout posledni verzi BDE, m��u to pak ���it d�l ?
D�ky
Tom� R��i�ka
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
SQL
[*] Martin <geoplan(zv)pp.sinet.sk> - 24.5.1999 15:52:01
Zdravim,
velmi mi to suri
1. Ako zoradit zaznami ak pouzivam pre pripojenie Query a nechcem pouzit
ORDER BY, pretoze ak sa nemylim tak potom nemozem editovat zaznami, aspon
take nieco tu prebehlo.
2. Mam komponentu Query. Chcem sa nastavit na urcity zaznam, ktory vyhovuje
zadanej podmienke. Ak by som pouzil where, tak dostanem iba ten jeden
zaznam. Ale ja chcem dostat vsetky ale ako aktivny ten , ktory vyhovuje
podmienke. Table to vie.
3. Da sa ulozit pozicia v query ? Na ktorom zazname prave som ?
za vsetky odpovede dakujem.
Martin
Rich
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 24.5.1999 16:29:59
Ahoj petre,
tu komponentu jsem si stahnul. Bohuzel to vsak porad neni ono.
Na CR spravne skoci na zacatek radku, ale na LF proste odradkuje.
Jenze na LF ma skocit na dalsi radek na stejnou pozici. Z toho potom
vznika ono CR,LF kdy kurzor skoci na prvni pozici dalsiho radku.
Ale stejne by me zajimalo, jak jsi udelal to CR ze skace na zacatek?
Skoncil jsem na prikazu InternalWriteChar , FOnProcessChar a dal nevim...
zapisuju pomoci writestring. Je to tak spravne ?
od prikazu: afterminal1.WriteString ('aa'+ #10 + 'bbb' + #10 + 'cccc');
ocekavam vystup
aa
bbb
ccccc
avsak nestalo se. Kde delam chybu ?
Daniel Kminek
Dik
Et iritis sicut dii, scientes bonum et malum.
kminek(zv)mite(tec)cz
www.mite(tec)cz
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 23. kv�tna 1999 22:50
P�edm�t: Re: Rich
>> Daniel Kminek wrote:
>>
>> Hi,
>>
>> prosim, prosim mam velky problem jenz me depta
>>
>> Chci posilat do rich nebo memo text na pozici. Delam to
richedit.seltext:='text';
>> jenze k CR a LF se to chova nekorektne. Chtel bych aby na CR to skocilo
>> na zacatek a LF o pozici dolu tak jak to ma byt dle definice. ( na 07
piplo atp.)
>> Existuje zpusob jak ovlivnit tohle chovani abych ten text nemusel znak po
znaku
>> prebirat, cimz bych prisel o rychlost vkladani pomoci seltext ?
>
>Ahoj,
>
>Podle toho jak to popisujes to vypada ze delas neco jako "terminalove
okno".
>Podivej se na AsyncFree - (http://delphree.clexpert.com) tam je jiz hotova
>komponenta TAfTerminal u ktere si muzes nastavovat velikost kruhoveho
bufferu,
>barvy a styl pisma u jednotlivych znaku, pri #07 se ktivuje event
OnBeepChar,
>moznost zpetneho prohlizeni bufferu, logovani do souboru vcetne
pravidelneho
>ukladani (kvuli moznym vypadkum), kresleni ikonek vlevo od textu atd..
Navic
>je to rychlejsi nez vkladani textu do Richeditu. Jedine omezeni je v
moznosti
>pouziti pouze fixed-pitch fontu a vzdy muzes mit pro celou komponetu vybran
>pouze jeden font, podobne jako v Delphi editoru.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
Ochrana programu (uz zase ;-)
[*] Erik Salaj <erik(zv)dodo.sk> - 24.5.1999 16:44:37
> To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
> nic se nezachova. Leda by si ten disk upravili, ale to je take
> hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
Existuju ochrany, ktore zapisuju informacie na niektory zo sektorov na prvej
stope disku (samozrejme nie do MBR). Takato ochrana "prezije" aj
formatovanie.
Erik Salaj
ReadComponent & WriteComponent
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.5.1999 17:04:50
Rul��ek Daniel wrote:
> V Delphi 3 pouzivam metodu ReadComponent a WriteComponent objektu
> FileStream pro ulozeni dynamicky vytvorenych komponent do souboru a
> cteni z neho. Ale nejak se mi nechcou ukladat vlastnosti techto
> kompoment. Mam totiz vytvotene vlastni komponenty, ktere maji vlastnost
> popis, kterou pred ulozenim do souboru nastavim, ale po nacteni ji mam
> prazdnou. Delam nekde chybu nebo�to tak ma fungovat? Dekuju predem za
> radu.
Je ta vlastnost v published?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
SQL
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 24.5.1999 17:08:16
>1. Ako zoradit zaznami ak pouzivam pre pripojenie Query a
nechcem pouzit
>ORDER BY, pretoze ak sa nemylim tak potom nemozem editovat
zaznami, aspon
>take nieco tu prebehlo.
Zaznami? Ach ten pravopys :-)
Nemylim-li se, melo by pomoci vytvorit
index na tom poli a potom uz by Query
mel byt "zivy" i s ORDER BY
>2. Mam komponentu Query. Chcem sa nastavit na urcity zaznam,
ktory vyhovuje
>zadanej podmienke. Ak by som pouzil where, tak dostanem iba ten
jeden
>zaznam. Ale ja chcem dostat vsetky ale ako aktivny ten , ktory
vyhovuje
>podmienke. Table to vie.
To z hlavy ted bohzuel nevim, ale zkus metody
Locate nebo Lookup toho Query.
>3. Da sa ulozit pozicia v query ? Na ktorom zazname prave som ?
Na jakem zaznamu v Query (tedy na napr. tretim radku
te mrizky) nebo na jakem zanamu v DataSetu (tedy napr.
na tretim zaznamu) ?
Dobra.SQL
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 24.5.1999 17:31:48
ad 1) Pouzi dve TQuery, jedno bude na zobrazeni a bude usporadane a
do druheho vyberes jen aktualni zaznam a ten budes editovat.
ad 2) Skus Locate
ad 3) Nevim jestli je to co si chtel, ale skus Bookmark
Petr
-----Original Message-----
From: Martin [mailto:geoplan(zv)pp.sinet.sk]
Sent: Monday, May 24, 1999 3:52 PM
To: delphi-l(zv)fwd(tec)cz
Subject: SQL
Zdravim,
velmi mi to suri
1. Ako zoradit zaznami ak pouzivam pre pripojenie Query a nechcem pouzit
ORDER BY, pretoze ak sa nemylim tak potom nemozem editovat zaznami,
aspon
take nieco tu prebehlo.
2. Mam komponentu Query. Chcem sa nastavit na urcity zaznam, ktory
vyhovuje
zadanej podmienke. Ak by som pouzil where, tak dostanem iba ten jeden
zaznam. Ale ja chcem dostat vsetky ale ako aktivny ten , ktory vyhovuje
podmienke. Table to vie.
3. Da sa ulozit pozicia v query ? Na ktorom zazname prave som ?
za vsetky odpovede dakujem.
Martin
MediaPlayer - automaticka kontrola pozice
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 24.5.1999 19:31:23
Zdravicko...
Nerikejte, ze nikdo ze zdejsich odborniku nezna odpoved na mou otazku.
Prohledal jsem cely MMEDIA.HLP a porad nic - presto Windowsovsky Media
Player pozici pri prehravani ukazuje. Prece to nebudou mit reseno tak
hloupe, aby tam meli Timer a kazdou sekundu zjistovali pozici...
Zkusim tedy do zdejsiho fora vhodit svuj dotaz jeste jednou:
Pokud pomoci MediaPlayeru prehravam AVI, pozici prave prehravaneho
snimku zjistim z property Position. Jak ale zachytim, kdy se pozice
zmeni?
Dekuji za vsechny napady, podnety, URL...
F.Novy (?) virus (!) VAROVANI *
[*] Roman Fi�er <fiser(zv)gbn(tec)cz> - 24.5.1999 20:30:12
Hej hou,
tahle zprava byla tusim na zive, den nato se ukazalo (napsal svet namodro)
ze to nebude zase tak hrozne,
chybou spatneho prekladu, krome jineho uz minuly patek vetsina dobrych
antivirovych programu (mezi ne nepocitam AVG :-( nabizelo posledni updaty
odhalujici i tento virus (viz: F-prot u AEC, InoculateIT , ..)
------------------------------------------------------
- Roman Fiser jr.
- programatorska skupina NGSoft
- software nove generace
- fiser(zv)gbn(tec)cz www.gbn(tec)cz/ngsoft
------------------------------------------------------
telefon: 0301/24632, ICQ: 25542226
----- Original Message -----
From: Zdenek Drvota <drvota(zv)zds(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 24. kv�tna 1999 15:12
Subject: Novy (?) virus (!) VAROVANI *
Ahoj,
prikladam varovani, ktere probehlo jednou z ceskych
konferenci. Zda se, ze nas cekaji tezke casy,
a co teprve az _tvurci_ viru objevi Windows Script Hosting
(nebo Host Scripting ???:-) a pusti se do toho KAZDY
sikovny skolak!
----Predano -----------------------------------
Pos�l�m informaci o nov�m viru, kterou jsem obdr�el od sv�ho
dodavatele v�po�etn� techniky.
Ing.Franti�ek Schropfer, 433
ekonom(zv)prv(tec)czn(tec)cz
-----P�vodn� zpr�va-----
Od: Ing. Josef Kle�ka <jkvtrade(zv)prv(tec)czn(tec)cz>
Komu: jkvtrade(zv)prv(tec)czn(tec)cz <jkvtrade(zv)prv(tec)czn(tec)cz>
Datum: 20. kv�tna 1999 23:12
P�edm�t: FW: Ze by novy virus
>
>
>-----P�vodn� zpr�va-----
>Od: klecka(zv)list.skm.vutbr(tec)cz [mailto:klecka(zv)list.skm.vutbr(tec)cz]
>Odesl�no: 20. kv�tna 1999 10:25
>Komu: jkvtrade(zv)prv(tec)czn(tec)cz
>P�edm�t: Ze by novy virus
>
>
>Virus CIH aka �ernobyl, kter�
>citeln� za�to�il po cel�m sv�t� 26. dubna m� sv�ho
>n�sledn�ka. Mutace CIHu s n�zvem Emperor slibuje
>je�t� v�ce destrukce a je�t� men�� schopnost
>detekce.
>
>Emperor je polymorfn� v�ced�ln� virus, kter� m�
>velikost 6 kB, p�ipojuje se na konec soubor� a proti
>viru CIH se ���� i na DOSov�ch souborech COM a
>EXE. Krom� toho nakaz� master boot sektor na
>pevn�m disku a boot sektor na disket�ch, aby se
>nahr�val p�i ka�d�m startu syst�mu. Virus obsahuje
>�adu ochran proti lad�n�, pou��v� stealth techniky a
>promy�len� zp�soby obch�zen� antivirov�ch
>program�.
>
>Um� dokonce obej�t i ochranu na �rovni BIOSu. V
>p��pad�, �e m�te AMI Bios se zapnutou antivirovou
>ochranou, s�m si zm��kne kl�vesu Y p�i dotazu na nepovolen� z�pis do
>master boot sektoru, u Awardu si tuto ochranu vypne p��mo v BIOSu
>s�m.
>
>Podobn� jako OneHalf zak�duje data na disku tak, �e k nim lze
>p�istupovat jen, je-li virus aktivn� v pam�ti, jinak jsou data
>zak�dov�na.
>
>M� siln�j�� destrukci ne� CIH, sma�e tak� data na pevn�m disku a
>zru�� FlashBIOS po��ta�e, jen o n�co ��inn�ji. Krom� toho vyp�e na
>obrazovku text:
>
> EMPEROR
> I will grind my hatred upon the loved ones.
>Despair will be brought upon the hoping childs of happiness.
>Wherever there is joy the hordes of the eclipse will pollute
> sadness and hate under the reign of fear.
> In the name of the almighty Emperor....
>
>K nastartov�n� destrukce sta��, �e virus zjist� v pam�ti aktivn�
>lad�c� program, kter� m��ete pou��vat t�ebas jen pro sv�j v�voj.
>Virus se spust� i v p��pad�, �e syst�m restartujete mezi 5:00 a
>10:00. Podm�nky k
nastartov�n�
>viru jsou tedy jednozna�n� m�k�� ne� m� CIH. Dal�� informace najdete
>na Virus Encyclopaedia [ http://www.avpve.com/ ].
>
>V sou�asn� dob� je z antivir� zn�m jen Antiviral Toolkit Pro , kter�
>tento virus detekuje. Lze ov�em o�ek�vat, �e na n�j rychle zareaguj�
>i dal�� dodavatel� antivir�.
>
>
>Takze se mame zase na co tesit.
>
> S pozdravem Radim Klecka, Brno
>
>
-----------------------------------------------
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
SQL
[*] Jaro <jaro(zv)sinea(tec)cz> - 24.5.1999 22:17:52
>Zdravim,
>velmi mi to suri
>1. Ako zoradit zaznami ak pouzivam pre pripojenie Query a nechcem
pouzit
>ORDER BY, pretoze ak sa nemylim tak potom nemozem editovat zaznami,
aspon
>take nieco tu prebehlo.
Jina moznost neni. K editaci (i z jinych duvodu) radeji pouzij jiny
objekt Tquery,
ktery otevre jen jeden zaznam urceny k editaci. Tam pak ORDER BY
nebude.
>
>2. Mam komponentu Query. Chcem sa nastavit na urcity zaznam, ktory
vyhovuje
>zadanej podmienke. Ak by som pouzil where, tak dostanem iba ten jeden
>zaznam. Ale ja chcem dostat vsetky ale ako aktivny ten , ktory
vyhovuje
>podmienke. Table to vie.
Ten jeden zaznam, co vyhovuje podmince otevri rovnez v jinem Tquery,
precti
hodnotu ID a tu pak v prvnim Tquery najdi pomoci Locate.
Predtim radeji nastav DisableControls a po Locate spatky
EnableControls
>
>3. Da sa ulozit pozicia v query ? Na ktorom zazname prave som ?
Bud si zapamatuj hodnotu ID nebo pouzij Bookmark
var SaveBookmark: TBookmark;
begin
.....
with Query1 do begin
SaveBookmark := GetBookmark;
DisableControls;
try
Close;
Open;
GotoBookmark(SaveBookmark);
finally
FreeBookmark(SaveBookmark);
EnableControls;
end;
end;
-------
Ahoj Jaro
>
>za vsetky odpovede dakujem.
>
>Martin
>Jakou verzi Delphi?
[*] Jaro <jaro(zv)sinea(tec)cz> - 24.5.1999 22:23:03
Nema cenu prechazet na D3. Prejdi rovnou na D4
nebo si pockej na D5.
Ve vyssich verzich BDE jsou odstraneny nektere chyby.
Nejake tam mozna zase pribyly, ale celkove myslim,
ze mi to v D4 chodi spolehliveji. Jsou tam tez nektere
nove dobre objekty.
Jaro
-----P�vodn� zpr�va-----
Od: Michal �viga <proton(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 24. kv�tna 1999 13:37
P�edm�t: Jakou verzi Delphi?>Mam Delphi 2.0 develop. a delam hlavne databazove aplikace.
>Zajima me, jestli ma nejaky vyznam prechazet na vyssi verze a popr.
na jake.
>Nevim , co vsechno mi vyssi verze prinese.
>Dal me zajima, jestli je mozne pouzit nektere komponenty z vyssich
verzi v
>D2.
>Jde mi predevsim o QR a Internet.
>Take nevim, jestli muzu pouzit vyssi verzi BDE a jesli to ma nejaky
prinos.
>
>S pozdravem
>
>Michal �viga (Sviga)
>PROTON
>CD KATALOG AMPER '99
>http://www.cd-amper(tec)cz
>mailto:proton(zv)iol(tec)cz
>ICQ:20510677
>tel., fax:02/65 15 052
>mobil:0602/ 207 557
>
>
Usi PageControlu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:47:57
Petr�j Zden�k wrote:
> > Ahoj,
> >
> > Pokud mas D4 tak tam si muzes vykreslovat usi v udalosti OnDrawTab.
> >
> Jako vzdy jsem zapomnel presne definovat cely dotaz - jde mi o Delphi 3
Ahoj,
Pak si budes bud muset nekde sehnant komponentu kde je to uz doplnene,
nebo si ji sam odvodit. Melo by stacit v CreateParams doplnit styl
TCS_OWNERDRAWFIXED a pak v reakci na zpravu CN_DRAWITEM zavolat vlastni
vykreslovani.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Dva problemy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:47:21
sup(zv)svitap(tec)cz wrote:
> 2. Nasledujici ukazka kodu mi pada. Potrebuji vytahnout obrazek ze streamu,
> upravit, vratit do streamu a zobrazit... Uz jsem zkousel ReadBuffer,
> WriteBuffer,read,write a nic...
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> MS1,MS2: TMemoryStream;
> bmp:tjpegimage;
> pic:string;
> size,l:longint;
> Buffer: PChar;
> begin
> l:=ms1.write(Buffer,size); <<< Tady to pada :-(((
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> l:=ms2.read(Buffer,size);
Ahoj,
Melo by tam byt - Buffer^
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Chyba prekladace pri porovnani currency a variant
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:47:30
Robert Kindl wrote:
>
> Vazeni,
> nasledujici kus kodu vas presvedci ze 2*2 neni 4!
>
> var
> a: currency;
> v: Variant;
> begin
> a:=2;
> v:=4;
> if v=a*a then ShowMessage('2*2 jsou 4');
> if v=a*a/10000 then ShowMessage('2*2 nejsou 4');
> end;
>
> Tento program nenapise "2*2 jsou 4"!
Ahoj,
Pekna chyba, uz jsi to poslal Borlandum ? Jinak se to da zda se vyresit
pretypovanim variantu na Currency. Nicmeme je to zase hned o duvod vic
se tem variantum vyhybat jak to jen jde. Neni nad poctive typy :-)
procedure TForm1.Button1Click(Sender: TObject);
var
V: Variant;
C: Currency;
begin
C := 2;
V := 4;
if Currency(V) = C * C then
ShowMessage('2 * 2 = 4');
if Currency(V) = C * C / 10000 then
ShowMessage('Nerovna se');
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Error ntdll.dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:48:11
Novak Josef wrote:
>
> Zdravim vsechny.
> Mam nasledujici problem Napsal jsem aplikaci, ktera pracuje se soubory
> (presun, mazani, atd.)
> Je to zkompilovane pod Win98. Pokud to spustim pod Win98, vse se chova
> korektne, ale pokud to spustim pod NT, tak po urcite dobe (pri zpracovavani
> soubor�) to vyhodi chybu na nejake adrese v modulu ntdll.dll. Nevite kde by
> mohl byt problem?
Ahoj,
Tezko rict, kdyz jsi neukazal ani kus kodu, popripade nepopsal jak to delas
ci jake funkce pouzivas.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Primy pristup na disk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:48:55
"Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o." wrote:
>
> Nemate nekdo povedmost, jak se pres Delphi (4.03 Prof ) dostat na
> konkretni cluster, stopu, sektor na hardu nebo lepe na diskete a jak
> pripadne zjistit, zda je sektor vadny ?
Ahoj,
Ve Win95 patrne pres DeviceIoControl, nikdy jsem ale nemel potrebu neco
takoveho zkouset, budes muset hledat na MSDN. Neco o tom je treba tady:
http://support.microsoft.com/support/kb/articles/q174/5/69.asp
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
TTabSet a Image
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:48:27
Krayzel Libor wrote:
>
> Zdravim,
>
> nedari se mi nastavit na "ousku" TTabsetu ikona z Imagelistu. V helpu jsem
> se docetl, ze imageindex=tabindex, coz me prilis neuspokojuje:
> Potreboval bych to menit podle potreby.
Ahoj,
Pak pouzij udalost OnGetImageIndex ve ktere muzes danemu tabindexu priradit
pozadovany imageindex.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Select Picture (image)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:48:06
> TUNGLI Jan wrote:
>
> Je mozne v runtime vyvolat Select Picture (image) dialog na TImage object, alebo musim to
> programovat ?
Ahoj,
Tento dialog bude soucasti Delphi, takze jej primo pouzit nemuzes. Nicmene v
palete komponent Dialogs mas TOpenPictureDialog ktery by ti mohl postacit.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ReadComponent & WriteComponent
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:48:45
Rul��ek Daniel wrote:
>
> Zdrav�m v�echny.
>
> V Delphi 3 pouzivam metodu ReadComponent a WriteComponent objektu
> FileStream pro ulozeni dynamicky vytvorenych komponent do souboru a
> cteni z neho. Ale nejak se mi nechcou ukladat vlastnosti techto
> kompoment. Mam totiz vytvotene vlastni komponenty, ktere maji vlastnost
> popis, kterou pred ulozenim do souboru nastavim, ale po nacteni ji mam
> prazdnou. Delam nekde chybu nebo to tak ma fungovat? Dekuju predem za
> radu.
Ahoj,
Ta vlastnost musi byt v published sekci a dana komponenta zaregistrovana.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
MediaPlayer - automaticka kontrola pozice
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:49:24
Flaska Jakub wrote:
>
> Zdravicko...
>
> Nerikejte, ze nikdo ze zdejsich odborniku nezna odpoved na mou otazku.
> Prohledal jsem cely MMEDIA.HLP a porad nic - presto Windowsovsky Media
> Player pozici pri prehravani ukazuje. Prece to nebudou mit reseno tak
> hloupe, aby tam meli Timer a kazdou sekundu zjistovali pozici...
Ahoj,
No, me to reseni s timerem taky prijde hloupe, ale oni to tam asi maji :-)
Pustil jsem si ten prehravac (verze 6.00.02.0902) a pomoci WinSight pak
sledoval zpravy WM_TIMER u toho procesu. Pri prehravani tam byl timer s
ID = 1, tak jsem jej pokusne zrusil a ukazatel casu se uz od te doby ani
nehnul.
procedure TForm1.Button1Click(Sender: TObject);
var
H: HWnd;
begin
H := FindWindow('ATL:STATIC', 'DShowMsgWindow');
if H = 0 then
ShowMessage('Not found')
else
KillTimer(H, 1);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Vkladani do tabulky pomoci BDE API
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:49:14
Petr Vaclavek wrote:
>
> > >Muze mi nekdo prozradit, kde delam chybu?
> > >(Proste a jednoduse potrebuji do tabulky vlozit zaznam s atributem
> > >TimeStamp (TDateTime) pomoci BDE API a nejak mi to nejde.
> >
> > function DateTimeToDtRec(DateTime: TDateTime): TDateTimeRec;
> > begin
> > Result.time:=0;
> > Result.date:=DateTimeToTimeStamp(DateTime).Date;
> > end;
> > ....
> > dtrec:=DateTimeToDtRec(Now);
> > Check(DbiPutField(table.Handle,field.FieldNo,pRecBuff,ADDR(dtrec)));
>
> 1) Proc v te prevodni funkci se dava time = 0???
> 2) Me to opet nefunguje (tentokrat to do tabulky vklada 0.0. 0000)
>
> Jeste jednou radeji zopakuji problem (nejspise jsem ho minule
> spise zamlzil)
>
> Tabulka obsahuje atributy ruznych typu mimo jine je tam jeden
> atribut D1 typu TimeStamp.
> Ja se pokousim vkladat do tabulky zaznamy pomoci BDE API.
> A do sloupecku D1 chci dat aktualni datum a cas (to co mi vrati fce
> Now()). A to je ten problem (neumim to tam vlozit, nebo spise to
> tam vlozim ale vysledek je 0.0.0000 00:00:00 nebo neco
> podobneho).
Ahoj,
Nejsem si tim moc jisty, ale mam pocit ze v D1 se datum ukladal v jinem
formatu nez v 32bit Delphi. Podivej se do zdrojaku na TDateField jak to
tam presne delaji.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
IMallocSpy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.1999 22:52:06
Ahoj,
Zkousel jste nekdo implementovat IMallocSpy v Delphi ? Pokud to testuju na
jednoduche alokaci a dealokaci (IMalloc.Alloc a IMalloc.Free), tak to zda
se funguje, ale napriklad po zavolani funkce SHBrowseForFolder mi to porad
vykazuje memory leaky.
Diky.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Datab�ze
[*] daniel.hrna(zv)vm.sme(tec)cz - 25.5.1999 06:30:36
Moc diky vsem, kteri me pomohli s databazemi, asi toho je na me trochu moc s
tim prechodem od FoxPro na Delphi 3.0, ale uceni je dobre.
Mam dalsi vec. Jak jednoduse muzu pocitat maxima v DBF s filtrem.
1. Potrebuju podle jednoho sloupce nastavit filtr a z toho pak najit
maximalni hodnotu (Integer).
2.Umim vlozit MEMO polozku, ale nepochopil jsem jak ji muzu zobrazit,
poklepani v DBF asi nestaci ?
Jinak se budu prubezne jeste asi dotazovat, protoze v te knize Mistrovstvi v
Delphi 3 nemuzu nejak najit rozumne odpovedi ... Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
ReadComponent & WriteComponent
[*] Rul��ek Daniel <dan.r(zv)avizo(tec)cz> - 25.5.1999 07:03:30
Panove, dekuji za rady.
Published tu vlastnost nemam, mam je vsechny public, ale uz jsem to
zlomil. Pouzil jsem defineproperties nebo jak se to jmenuje. I kdyz
udelat to published by asi bylo jednodussi, ale to jsem nevedel.
Jeste jednou diky
Dan
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
> Odesl�no: 24. kv�tna 1999 17:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: ReadComponent & WriteComponent
>
>
> Rul��ek Daniel wrote:
>
> > V Delphi 3 pouzivam metodu ReadComponent a WriteComponent objektu
> > FileStream pro ulozeni dynamicky vytvorenych komponent do souboru a
> > cteni z neho. Ale nejak se mi nechcou ukladat vlastnosti techto
> > kompoment. Mam totiz vytvotene vlastni komponenty, ktere
> maji vlastnost
> > popis, kterou pred ulozenim do souboru nastavim, ale po
> nacteni ji mam
> > prazdnou. Delam nekde chybu nebo�to tak ma fungovat? Dekuju
> predem za
> > radu.
>
> Je ta vlastnost v published?
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
> DBLookupCombo na DBGridu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 25.5.1999 07:15:03
> -----Original Message-----
> From: Petr Matejovsky [mailto:pema(zv)seznam(tec)cz]
> Sent: Monday, May 24, 1999 7:44 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: DBLookupCombo na DBGridu
>
>
> Ahoj
>
> > potrebuji udelat na DBGridu DBLookupCombo na presne urcenem sloupci
>
> Lookup field neudela ten pekny seznam ze ktereho si mohu
> vybrat nejake hodnoty a navic ty hodnoty beru z jine tabulky...
Sam o sobe ten seznam neudela. Musis ho napojit na nejaky dataset.
Nejsem schopen Ti napsat podrobnosti, protoze jsem ho po vyzkouseni prestal
pouzivat
a uz si to moc nepamatuju.
Zkousel jsem postupne tri metody, jak v gridu nechat editovat pomoci Lookup
Combo.
1) DBGrid a v nem DBLookup Field. Mel jsem ze zacatku problemy s provazanim
vlastnosti Fieldu - jsou tam tri polozky:
- Field v primarnim datasetu
- Datovy Field v Lookup datasetu
- Zobrazovany Field v Lookup datasetu
Potom je tam datovy typ Lookupu - ten mne zpocatku zmatl, protoze se do
nej nedava datovy typ Fieldu, ale datovy typ zobrazovane polozky.
Fakt uz si to moc nepamatuju, ale mam pocit, ze si ten dataset musis sam
otevirat.
Fungovalo to dobre, ale neuspokojilo mne to, protoze se s tim nedalo
rozumne
pracovat z klavesnice.
2) CtrlGrid (pouze v Delphi 4)
Tam das uplne normalni DBLookupCombo, ale je to hrozna vec. Dospel jsem k
nazoru,
ze se CtrlGrid vubec neda pouzivat k editacim.
3) Vlastni Form s rozbalovacim seznamem.
Vytvoril jsem Form (bez titulku, neresizable) s ListBoxem roztazenym pres
celou plochu)
Z DBGridu po doubleclicku nebo klavesove aktivaci seznamu (ja mam Ctrl -
SipkaDolu)
nactu seznam pro prislusne pole do ListBoxu a zobrazim (Show) ten Form na
pozici
aktivni bunky v DBGridu. Uzivatel muze listovat seznamem, po potvrzeni
(Enter, dblClick)
prenesu data z Formu do prislusneho Fieldu, po odmitnuti (Escape nebo
udalost OnDeactivate,
kdyz uzivatel klikne mysi mimo plochu Formu s Listboxem) provedu jeho
Hide.
Vlastnosti jsou dost dobre - uzivatel muze editovat ve standardnich
Fieldech, nemusi klikat
a pouze v pripade potreby si vyvola pomocny seznam. Nevyhodou je trocha
vic programovani,
ale da se to udelat obecne k vicenasobnemu pouziti.
>
> neco podobneho umi FoxPro ale v tom programovat nebudu,
> sehnal sem nejake OCX ale v Delhi nechce chodit :-(
>
> Please help me se seznamem hodmot z jine tabulky primo na DBGridu
HTH
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Delphi a bcp_init pro MSSQL
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.5.1999 07:33:43
Marian Jonas wrote:
> Mne to prave nechodi ani na MS SQL 6.5. OLE DB mi moc nepomuze,
> potrebuji aby na klientovi byla jen NTWDBLIB.DLL, instalovat molocha jako
> OLE DB nelze.
V porovnani s molochem BDE to zas tak hrozne neni. A co ti brani
dat OLE DB pouze na server, a dodelat si pouze tenke klienty?
BTW - presne tohle mam prave v planu. Komunikaci s databazi
jsem na zakladni urovni uz nejak rozchodil (browse, insert, edit,
delete), jeste dodelam par veci a pak chci udelat prave rozhrani pro
vicevrstvost. Instalace molocha BDE na kazdeho klienta mi uz
znacne leze na nervy, zejmena kdyz je tam nejake pozapomenute
16bitove Quatro.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
serazovani podle abecedy
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 25.5.1999 07:33:38
> -----Original Message-----
> From: Standa Kunc [mailto:obkstan(zv)obaka-karvina(tec)cz]
> Sent: Monday, May 24, 1999 6:55 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: serazovani podle abecedy
>
>
> Zdravim,
> na svych webovych strankach mam vypsane citaty, ktere
> pravidelne aktualizuji. Cerpam z knihy, kde jsou abecedne
> serazeny, coz je myslim nejlepsi. Ovsem problem je, ze kdyz
> chci pripsat nejaky jiny citat, musim ho zaradit rucne a to
> uz zacina byt dost unavne.
> Hledal jsem na konferenci nejaky zdroj, ale nic jsem nenasel.
> Je tady nekdo, kdo by mi pomohl s tim algoritmem? Nebo mne
> trknete, jakou metodu by jste pouzili. (Pouzivam D1)
> Predem dekuji...
> S. Kunc
>
Nechapu, o co Ti jde. Generujes stranku z nejake databaze?
nebo chces prochazet textovy soubor a urcit misto, kam se ma vlozit
nejaky kus textu? Nejak takto? (asi to bude syntakticky ne docela
dobre, nepmatuju si presne pascalske souborove funkce)
var
FIN, FOUT: Text;
S: string;
Assign(FIN,'stary.html');
Assign(FOUT,'novy.html');
Rewrite(FOUT);
Reset(FIN);
//Zkopiruj radky pred vkladanym mistem
Readln(FIN,S);
while (not EOF(FIN)) and (S <= VstupniString) do begin
Writeln(FOUT,S);
Readln(FIN,S);
end;
//vloz VstupniString
Writeln(FOUT, VstupniString);
//dokopiruj zbytek souboru
while (not EOF(FIN)) do begin
Writeln(FOUT,S);
Readln(FIN,S);
end;
Writeln(FOUT,S);
Close(FIN);
Close(FOUT);
BTW - nechapu, co je dobreho na trideni citatu podle abecedy.
Spis bych je tridil podle autoru nebo podle tematu.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Datab�ze
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 25.5.1999 07:37:01
----- P�vodn� zpr�va -----
Od: <daniel.hrna(zv)vm.sme(tec)cz>
> Mam dalsi vec. Jak jednoduse muzu pocitat maxima v DBF s filtrem.
> 1. Potrebuju podle jednoho sloupce nastavit filtr a z toho pak najit
> maximalni hodnotu (Integer).
Asi by bylo nejlepsi pouzit TQuery
Select Max(hodnota) from tabulka where filtr
jinak by to slo projit v cyklu a najit maximum
>
> 2.Umim vlozit MEMO polozku, ale nepochopil jsem jak ji muzu zobrazit,
> poklepani v DBF asi nestaci ?
Pro zobrazeni memo polozky pouzij DBMemo komponentu. Muzes ji dat primo na
formular. Pokud bys to chtel pouzit jako ve Foxce (Ctrl+Home) na poklepani,
musel bys to osetrit napr. v udalosti TDbGrid OnCellClick - zobrazit
formular s DBMemo.
Musis dat pozor, komponenty memo nezobrazi neomezene velky obsah, pod W95
asi do 2MB.
Zkus si prohlednout priklady, ktere jsou soucasti Delphi. Najdes tam dost
inspirace.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Auto-increment field
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 25.5.1999 07:38:22
> -----Original Message-----
> From: petrhalamicek(zv)email(tec)cz [mailto:petrhalamicek(zv)email(tec)cz]
> Sent: Monday, May 24, 1999 10:06 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Auto-increment field
>
>
> Zdrav�m v�echny.
> V datab�zov� tabulce jsem si jako kl�� ud�lal field ,kter�
> bude auto -
> increment. Tak�e poka�d� ,kdy� p�id�m polo�ku se mi zv��� o
> hodnotu 1.
> Probl�mem je , �e kdy� z napln�n� tabulky sma�u n�jak� z�znam, tak mi
> vznikaj� "d�ry" v kl��i. D� se tohle n�jak o�et�it.
> D�ky moc.
Co na tom chces osetrovat?
Hodnota takoveho atributu Te vubec nezajima. Neni to datova hodnota.
Je prece jedno, jestli Karel Novak ma klic 12 nebo 60, a uz vubec Te
nezajima,
ze neexistuje zaznam s klicem 48.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Primy pristup na disk
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 25.5.1999 07:42:25
Ahoj,
posilam prilohu z casti meho programu.Snad je to ono.
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 24. kv�tna 1999 15:18
P�edm�t: Primy pristup na disk
>Nemate nekdo povedmost, jak se pres Delphi (4.03 Prof ) dostat na
>konkretni cluster, stopu, sektor na hardu nebo lepe na diskete a jak
>pripadne zjistit, zda je sektor vadny ?
>
>Diky Mira
>
>
unit blabla;
......
type
regster = packed record
reg_ebx:dword;
reg_edx:dword;
reg_ecx:dword;
reg_eax:dword;
reg_edi:dword;
reg_esi:dword;
reg_cflag:dword;
end;
....
function IoCtl_DriveInfo(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
function IoCtl_Int13h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
function IoCtl_Int21h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
function IoCtl_Int25h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
function IoCtl_Int26h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
.....
function IoCtl_Int21h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
const
Win95_IOCTL_Dev = '\\.\vwin32';
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 := 0;
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;
function IoCtl_Int13h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
const
Win95_IOCTL_Dev = '\\.\vwin32';
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 := 0;
hd := CreateFile(Win95_Ioctl_Dev,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd = 0 then
exit;
ans := DeviceIoControl(hd,4,(zv)regs,sizeof(regs),(zv)regs,sizeof(regs),ret,NIL);
if not ans then
exit;
result := true;
finally
CloseHandle(hd);
end;
end;
function IoCtl_Int25h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
const
Win95_IOCTL_Dev = '\\.\vwin32';
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 := 0;
hd := CreateFile(Win95_Ioctl_Dev,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd = 0 then
exit;
ans := DeviceIoControl(hd,2,(zv)regs,sizeof(regs),(zv)regs,sizeof(regs),ret,NIL);
if not ans then
exit;
result := true;
finally
CloseHandle(hd);
end;
end;
function IoCtl_Int26h(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
const
Win95_IOCTL_Dev = '\\.\vwin32';
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 := 0;
hd := CreateFile(Win95_Ioctl_Dev,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd = 0 then
exit;
ans := DeviceIoControl(hd,3,(zv)regs,sizeof(regs),(zv)regs,sizeof(regs),ret,NIL);
if not ans then
exit;
result := true;
finally
CloseHandle(hd);
end;
end;
function IoCtl_DriveInfo(ax,bx,cx,dx,ex,si,di,cflag:dword):boolean;
const
Win95_IOCTL_Dev = '\\.\vwin32';
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 := 0;
hd := CreateFile(Win95_Ioctl_Dev,0,0,NIL,0,File_Flag_Delete_On_Close,0);
if hd = 0 then
exit;
ans := DeviceIoControl(hd,6,(zv)regs,sizeof(regs),(zv)regs,sizeof(regs),ret,NIL);
if not ans then
exit;
result := true;
finally
CloseHandle(hd);
end;
end;
Delphi a bcp_init pro MSSQL
[*] Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 25.5.1999 08:19:56
Kdysi jsem na DSP videl komponentu na primy pristup k MS SQL. Netusim, jestli umela i BCP.
-----P�vodn� zpr�va-----
Od: Marian Jonas [SMTP:jonas(zv)ji(tec)cz]
Odesl�no: 24. kv�tna 1999 13:26
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Delphi a bcp init pro MSSQL
Mne to prave nechodi ani na MS SQL 6.5. OLE DB mi moc nepomuze,
potrebuji aby na klientovi byla jen NTWDBLIB.DLL, instalovat molocha jako
OLE DB nelze.
Marian Jonas
>S DB-Library a MSSQL7 opatrne. Nemusi vse fungovat. BCP by melo byt i pod
>OLE DB. Zkusenosti nemam. Az to vyresis, dej nam vedet.
Off-topic: Forehelp 2.97
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 25.5.1999 08:48:38
Hi all,
omlouvam se za off-topic, ale i helpy patri k programovani. Piseme helpy v programu
ForeHelp ver 2.97 a mame nasledujici problem.
Pri generovani helpu vse probiha O.K, ale ve vyslednem HLP souboru se v pacce Najit a
casti 3 - klepnete na tema a potom na tlacitko zobrazit zmrsi cestina. Podotykam, ze jde
o jedine misto v helpu, kde je tato cestina mizerna.
Setkal se s tim uz nekdo z Vas?
P.S.:
Pokud bude zajem, muzu poslat helpy na soukromy mail k badani.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
Get podadresar ?
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 25.5.1999 09:00:08
Chtel bych se zeptat.
Kdyz znam cestu adresare, jak zjistim nazev podadresare. Zkousel jsem to
pres FindFirst, ale nejak jsem neuspel.
Muze mi nekdo poslat kousek kodu?
Napr: c:\pokus obsahuje vzdy jen jeden podadresar, jak teda zjistim jeho
nazev?
Diky Novak
Setridit, .COM, 2xHDD....
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 25.5.1999 09:25:32
Halloa ALL!
Nedavno se se tu ptal, jak udelat pocitadlo zaznamu. Bylo mi porazeno. Diky.
D�le bych potreboval vedet, jak tyto zaznamy setridit tak, aby je to bralo
podle abecedy a ne podle poradi vytvoreni...
Mam to takhle:
Label4.Caption:= IntToStr(Table1.RecNo)+' / '+ IntToStr(Table1.RecordCount);
A prave toto pocitadlo mi funguje tak, ze po�et zaznamu ukazuje zpravne, ale
cislo aktualniho zaznamu je takove, jako kolikaty je ten zaznam vytvoreny
celkove a ne, jako kolikaty je podle abecedy a tak bych to prave chtel...
Nevim, jestli sem to vysvetlil solidne, proto example:
Zaznam1= a;
Zaznam2= c;
Zaznam3= b;
A pocitadlo mi v�pripade, ze stojim na zaznamu1 udela: 1/3
na Zaznamu2 udela: 2/3
na zaznamu3 udela: 3/3
To je sice hezky, ale ja bych potreboval u zaznamu2 "3/3" a u zaznamu3
"2/3".... Proste podle abecedy...
Snad sem to vysvetlil srozumitelne....
Dale: nevite nahodou n�kdo, jaka je struktura .COM souboru? Nekde sem
zaslechl, ze se tam jedna hlavne o prvn� 3 bajty, kde jeden ukazuje na
startovaci adresu a dal�� 2 udavaji velikost souboru...je to pravda? Jestli
ano, tak jeky je na co?
A tak� bych vam byl vdecen, kdyby mi n�kdo �ekl, zda existuje nejaka
konference o assembleru, pripadne kde sehnat seznam, pokudmozno, v�ech CZ
-konferenci o programovani...
A ted ten nejdulezitejsi dotaz: Myslite si, ze je mozne udelat ze 2 HDD
jeden logicky? Proste kdy� mam, napr, dva 40MB disky, tak aby je OS bral
jako 1 logicky...abych na nej mohl dat t�eba 1 zapakovany 75MB
soubor....neptejte se me, na co to potrebuju, na nic, jen by me zajimalo
jestli by to slo udelat....ja myslim, ze asi tezko.... Konecne koncim...Dik
ByE. Mizejici kurzor
[*] jslavice(zv)vce(tec)cz - 25.5.1999 09:40:12
Vazeni pratele,
mam starsi program v D1, ktery musim z objektivnich duvodu udrzovat.
Mam tam vsak neprijemnou chybu. V editacnim formulari mam nekolik komponent
TVEdit (od firmy Sinea) a editacni komponentu TMemo. V komponente TMemo
zadava uzivatel polozky ciselniku. Na udalost OnExit mam napsanou
proceduru, ktera kontroluje tyto polozky proti souboru ciselniku. V
pripade, ze nejsou polozky nalezeny, je zobrazeno me vlastni dotazove
okenko, zda chce uzivatel tyto polozky pridat do ciselniku nebo ne. Po
odkliknuti tohoto okenka se stane aktualni nasledujici editacni policko
TVEdit, do ktereho je mozno bez problemu editovat, ale bohuzel neblika tam
kurzor. Pokud procedura na udalosti OnExit v TMemo nevyvola dotazove okenko
(to je kdyz zadane polozky byly v ciselniku nalezeny) kurzor na nasledujici
polozce normalne blika. Domnival jsem se, ze je nekde chyba ve mnou
vytvorenem dotazovem okenku, ale problem je stejny pri volani jakehokoliv
formulare (napr. i ShowMessage) na udalosti OnExit v TMemo. Podotykam, ze
to nema nic spolecneho s komponentami TVEdit od firmy Sinea, nebot i kdyz
jsem je nahradil komponentami TEdit, byl problem stejny.
Dokaze mi nekdo poradit, kde je chyba? Diky predem.
Josef Slavicek
Auto-increment field
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 25.5.1999 09:43:52
Myslim, ze to tve usporadani ma jednu vaznou vadu, o ktere zatim nevis.
Kdykoliv provedes nejakou operaci, ktera ten tvuj record nakopiruje na jine
misto, tak se automaticky zmeni taky hodnota toho autoinkrementacniho pole.
Dusledkem je, ze ten autoinkrement nemuzes pouzit k identifikaci recordu,
protoze jednou by mel cislo 18, podruhe 56 a pak treba 408, a to zcela
samovolne podle toho, co s tou tabulkou delas.
Nevim, ktere vsechny operace to delaji, ale urcite treba BatchMove.
Pepa
-----Original Message-----
From: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 25. kv�tna 1999 10:28
Subject: RE: Auto-increment field
> -----Original Message-----
> From: petrhalamicek(zv)email(tec)cz [mailto:petrhalamicek(zv)email(tec)cz]
> Sent: Monday, May 24, 1999 10:06 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Auto-increment field
>
>
> Zdrav�m v�echny.
> V datab�zov� tabulce jsem si jako kl�� ud�lal field ,kter�
> bude auto -
> increment. Tak�e poka�d� ,kdy� p�id�m polo�ku se mi zv��� o
> hodnotu 1.
> Probl�mem je , �e kdy� z napln�n� tabulky sma�u n�jak� z�znam, tak mi
> vznikaj� "d�ry" v kl��i. D� se tohle n�jak o�et�it.
> D�ky moc.
Co na tom chces osetrovat?
Hodnota takoveho atributu Te vubec nezajima. Neni to datova hodnota.
Je prece jedno, jestli Karel Novak ma klic 12 nebo 60, a uz vubec Te
nezajima,
ze neexistuje zaznam s klicem 48.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!"Spiaci" Monitor a Disk
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.5.1999 09:47:55
Zdar vsetkym!
Kto vie:
2. Ako je mozne priviest monitor do "spiaceho" stavu wo Windows, ale bez
Screen
Saveru ?
3. Ako je mozne to iste urobit s HDD ?
Diky, Pavol.
Rychly restart Win95 a 98
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.5.1999 09:50:24
A znova Ahoj!
Ako je mozne v D3 urobit restart Windows, ale nie pocitaca, len aby
sa Windows automaticky ukoncili a potom BEZ spustenia DOSSTART.BATu
znovu spustili. Pouziva sa to pri instalovani programov alebo Windows
to pouzivaju pri prenastaveni.
V D1 to bola funkcia "ExitWindowsExec('', '');" ktora v D3 neni, ale nechce
sa mi to z D1 pretahovat.
Diky, Pavol
Vkladani do tabulky pomoci BDE API
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 25.5.1999 10:04:57
> function DateTimeToDtRec(DateTime: TDateTime): TDateTimeRec;
> begin
> Result.time:=0;
> Result.date:=DateTimeToTimeStamp(DateTime).Date;
> end;
> ....
> dtrec:=DateTimeToDtRec(Now);
> Check(DbiPutField(table.Handle,field.FieldNo,pRecBuff,ADDR(dtrec)));
> 1) Proc v te prevodni funkci se dava time = 0???
Protoze jsem to vytrhl z kontextu, v tomto pripade se uklada hodnota do udaje
TDateField:)
> 2) Me to opet nefunguje (tentokrat to do tabulky vklada 0.0. 0000)
Podivej se do zdrojaku VCL.
Zakladni informace je, ze do DbiPutField se neposila TDateTime ale hodnota
jineho typu.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
Off-topic: Forehelp 2.97
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 25.5.1999 10:14:52
Ja jsem se setkal s podobn�m problemem, zkus vymenit inkriminovanou vetu.
Muze blbnou nejaka sekvence znaku, resp. velk� Z s h�ckem - uplne posledni pismenko nasi abecedy.
Pekny den preje
Pavel ZIDEK
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
----------
> Odes�latel: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
> Komu: 'DELPHI FORUM 98' <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Off-topic: Forehelp 2.97
> Datum: 25. kv�tna 1999 8:48
>
> Hi all,
>
> omlouvam se za off-topic, ale i helpy patri k programovani. Piseme helpy v programu
> ForeHelp ver 2.97 a mame nasledujici problem.
>
> Pri generovani helpu vse probiha O.K, ale ve vyslednem HLP souboru se v pacce Najit a
> casti 3 - klepnete na tema a potom na tlacitko zobrazit zmrsi cestina. Podotykam, ze jde
> o jedine misto v helpu, kde je tato cestina mizerna.
>
> Setkal se s tim uz nekdo z Vas?
>
> P.S.:
> Pokud bude zajem, muzu poslat helpy na soukromy mail k badani.
>
> Preji hezky den .....
> ============================================
> ML Software - Martin Lasevic
> Budovatelska 459,
> 708 00 Ostrava - Poruba
> tel.: + 420 (69) 691 85 11, 0603 338 765
> mailto:ml_software(zv)email(tec)cz
> mailto:+420603338765(zv)sms.paegas(tec)cz
> http://www.mujweb(tec)cz/www/ml_software
> ICQ:33630882
> ============================================
>
> Setridit, .COM, 2xHDD....
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 25.5.1999 10:15:58
>Dale: nevite nahodou n�kdo, jaka je struktura .COM souboru? Nekde sem
>zaslechl, ze se tam jedna hlavne o prvn� 3 bajty, kde jeden ukazuje na
>startovaci adresu a dal�� 2 udavaji velikost souboru...je to pravda?
Jestli
>ano, tak jeky je na co?.Com subor je subor ktory neobsahuje ziadnu hlavicku, tj. je tam cisty
prelozeny kod.
Aplikacia typu .com sa spusta od adresy 100h
pouzivam turbo assembler 5.0 fi Inprise (Borland)
napr.
priklad pri pouziti masm rezimu
model tiny
.386
.code
.startup
...
.exit
end
samozrejme ze je potrebne pri linkovani pouzit prislusny prepinac na
kompilovanie do com suboru
Ivan Turcan
Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase )
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
GAMO a.s.
Slovakia
Get podadresar ?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 25.5.1999 10:20:54
>Chtel bych se zeptat.
>Kdyz znam cestu adresare, jak zjistim nazev podadresare. Zkousel jsem to
>pres FindFirst, ale nejak jsem neuspel.
>Muze mi nekdo poslat kousek kodu?
>Napr: c:\pokus obsahuje vzdy jen jeden podadresar, jak teda zjistim jeho
>nazev?
Musis FindNextem prolezt vsechny polozky a vybirat si jen ty co maji atribut
DIRECTORY
Zdravi
D. Toman
Typy databazi (obecne)
[*] Tu�ek Roman <TucekR(zv)p15.mepnet(tec)cz> - 25.5.1999 10:25:00
Nazdar vsichni
mam problem
potrebuji vedet jake obecne existuji databaze plus k nim nejake info
vim ze jsou 4 typy
relacni
hierarchicke
sitove
objektove
bohuzel obecny blabol k nim nevlastnim
TRT
Typy databazi (obecne)
[*] SPINER Tomas <Tomas.Spiner(zv)ACSnet.sk> - 25.5.1999 09:29:26
Zdravim vsetkych,
pokial by to bolo mozne, poradte mi ako mam vytvorit na "Forme" hyperlinku
na HTML subor a ako jednoducho otvorim subor Microsoft Wordu, ale nie cez
WinExec.
Som uzivatel Delphi 4 Professional
Tomas Spiner
Autorizacne Centrum Slovenska
Rontgenova 1
851 01 Bratislava.
Tomas.Spiner(zv)acsnet.sk
Get podadresar ?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 10:32:27
Treba takhle...
procedure TForm1.Button1Click(Sender: TObject);
var
SRec : TSearchRec;
Found : Word;
begin
Found:=FindFirst(SEM_DEJ_TEN_ADRESAR+'*.*', faAnyFile, SRec);
while Found=0 do
begin
if (SRec.Attr and faDirectory=faDirectory)
then _TADY_SI_S_NIM_UDELEJ_CO_CHCES_
Found := FindNext(SRec);
end;
FindClose(SRec);
end;
Dobra.
> ----------
> Od: Novak Josef[SMTP:jnovak(zv)anect(tec)cz]
> Odesl�no: 25. kv�tna 1999 9:00
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Get podadresar ?
>
> Chtel bych se zeptat.
> Kdyz znam cestu adresare, jak zjistim nazev podadresare. Zkousel jsem
> to
> pres FindFirst, ale nejak jsem neuspel.
> Muze mi nekdo poslat kousek kodu?
> Napr: c:\pokus obsahuje vzdy jen jeden podadresar, jak teda zjistim
> jeho
> nazev?
> Diky Novak
>
> internetovani....
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 25.5.1999 10:35:15
Halloa ALL!
Este sem zapomnel...
Jak se da udelat v�poli MEMO, aby kdy� pisu nejaky text a napisu zrovna neci
e-mailovou adresu ci www-stranku, tak aby mi text zmenil barvu (pouze pro
tuto adresu) a aby bylo mozne prostym kliknutim mysi otevrit explorera
s�touto strankou ci outlooka s�timto mailem....o programovani v�ci pro
internet nevim vubec nic, proto prosim, pokudmozno, podrobnejsi
popis....dik. ByE.Get podadresar ?
[*] Lubos Rybnicek <mosek(zv)admiton(tec)cz> - 25.5.1999 10:57:09
Caute vsici,
tohle by melo fungovat na zjisteni vsech podadresaru:
function ScanDirs(Src: string): Boolean;
var
SearchRec: TSearchRec;
Vysl: integer;
begin
Result := false;
Vysl := FindFirst(Src+'\*.*', faAnyFile, SearchRec);
while (Vysl = 0) do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
and (SearchRec.Attr = faDirectory) then begin
Result := true;
{*************************************
v SearchRec.Name je ted nazev podaresaru adresare SRC
takze treba muzes udelat
Listbox.Items.Add(SearchRec.Name)
**************************************}
Vysl := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
A kdyz se to prida este jednou dovnitr rekurzi, tak to najde vsechny
podadresare vsech podadresaru vsech podadresaru vsech podadresaru vsech
podadresaru vsech podadresaru ......... :-)
Uz je to nejakej cas, co sem to potreboval, takze sem to splichtil jen tak
po pameti. Snad ti to pomuze.
Lubos Rybnicek
Admiton, s.r.o.
E-mail: mosek(zv)admiton(tec)cz
----- Original Message -----
From: Novak Josef <jnovak(zv)anect(tec)cz>
Subject: Get podadresar ?> Chtel bych se zeptat.
> Kdyz znam cestu adresare, jak zjistim nazev podadresare. Zkousel jsem to
> pres FindFirst, ale nejak jsem neuspel.
> Muze mi nekdo poslat kousek kodu?
> Napr: c:\pokus obsahuje vzdy jen jeden podadresar, jak teda zjistim jeho
> nazev?
> Diky Novak
>
Get podadresar ?
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 25.5.1999 10:59:35
Treba takhle:
var SR:TSearchRec;
if FindFirst('C:\pokus\*.*',faDirectory,SR)=0 then
repeat
if (SR.Name<>'.') and (SR.Name<>'..') then ShowMessage(SR.Name);
until FindNext<>0;
FindClose(SR);
F.> -----P�vodn� zpr�va-----
> Od: Novak Josef [SMTP:jnovak(zv)anect(tec)cz]
> Odesl�no: 25. kv�tna 1999 9:00
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Get podadresar ?
>
> Chtel bych se zeptat.
> Kdyz znam cestu adresare, jak zjistim nazev podadresare. Zkousel jsem
> to
> pres FindFirst, ale nejak jsem neuspel.
> Muze mi nekdo poslat kousek kodu?
> Napr: c:\pokus obsahuje vzdy jen jeden podadresar, jak teda zjistim
> jeho
> nazev?
> Diky Novak
> Typy databazi (obecne)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 25.5.1999 11:08:23
> relacni
****Tak to je klasika. Zalozeno na relacni algebre rozsirene o
integritni omezeni. Typicka je databaze treba paradoxu, dbase a
podobne.
> hierarchicke
Specialni model sitoveho modelu. Od vlastnika ke clenu mysi byt
vzdy acyklicka posloupnost, snazsi pouziti, ale jiz se to nepouziva
> sitove
jednotliva data se spojuji sitemi, site byvaji cyklickeho charakteru.
Existuje tam pojem c-mnozina, kde je Vlastnik a Clen.
> objektove
****Tady se to deli:
1) ryze objektove databaze: v databazi je i objekt typicky vcetne
metod (Ontos, O2, ...). Jsou priserne pomale a drahe, proto se
moc nepouzivaji. Je to stale zatim akademicka zalezitost.
2) relacni databaze s objektovym pristupem: data jsou ulozena
relacne, ale pristupuje se k nim objektove (ze by Delphi? ;-)).
Pak jsou jeste kombinovane, treba klasicke relace, ale v hodnotach
atributu jsou pointry do kamkoliv (dle potreby a implementace)
vyuziva se u systemu CAD, CAM -- kresleni objektu
...
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
None
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 25.5.1999 11:08:32
Na Form si dej Label s Caption treba 'http://www.delphi(tec)cz' a pouzij
nasledujici v OnClick:
procedure TForm1.LabelWWWClick(Sender: TObject);
begin
if ShellExecute(0, 'open', PChar((Sender as TLabel).Caption), nil, nil,
SW_SHOWNORMAL) <= 32 then
MessageDlg('Nemohu spustit web browser.',mtError,[mbOK],0);
end;
Obdobne muzes otevrit dokument Wordu, jen misto tretiho parametru
ShellExecute napises nazev souboru vcetne pripony .DOC.
F.
> -----P�vodn� zpr�va-----
> Od: SPINER Tomas [SMTP:Tomas.Spiner(zv)ACSnet.sk]
> Odesl�no: 25. kv�tna 1999 10:29
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t:
>
> Zdravim vsetkych,
> pokial by to bolo mozne, poradte mi ako mam vytvorit na "Forme"
> hyperlinku
> na HTML subor a ako jednoducho otvorim subor Microsoft Wordu, ale nie
> cez
> WinExec.
>
> Som uzivatel Delphi 4 Professional
>
> Tomas Spiner
> Autorizacne Centrum Slovenska
> Rontgenova 1
> 851 01 Bratislava.
> Tomas.Spiner(zv)acsnet.sk
internetovani....
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 25.5.1999 11:12:54
> Jak se da udelat v poli MEMO, aby kdy� pisu nejaky text a
> napisu zrovna neci
> e-mailovou adresu ci www-stranku, tak aby mi text zmenil
> barvu (pouze pro
> tuto adresu) a aby bylo mozne prostym kliknutim mysi otevrit explorera
> s touto strankou ci outlooka s timto mailem....o programovani v�ci pro
> internet nevim vubec nic, proto prosim, pokudmozno, podrobnejsi
> popis....dik. ByE.
Tuhle fintu um� TRXRichEdit z RX knihovny.Setridit, .COM, 2xHDD....
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 11:15:49
Ad 1 - rekl bych, ze nejjednodussi by bylo ta zaznamy
podle te abecedy setridit, nebo, pokud by to nebylo mozne
udelat jeden seznam, ten zobrazit a druhy nezobrazovat,
ale setridit a to "pocitadlo" navazat na ten druhy,
neviditelny seznam.
Ad 2 - to nevim, ale zkusil bych www.wotsit.org
Ad 3 - nenapal jsi, pod jakym OS to chces udelat;
pod DOS-em asi tezko, ale v unixu by jsi mohl
primontovat novy disk jako dalsi file system.
> ----------
> D�le bych potreboval vedet, jak tyto zaznamy setridit tak, aby je to
> bralo
> podle abecedy a ne podle poradi vytvoreni...
>
> Mam to takhle:
>
> Label4.Caption:= IntToStr(Table1.RecNo)+' / '+
> IntToStr(Table1.RecordCount);
>
> A prave toto pocitadlo mi funguje tak, ze po�et zaznamu ukazuje
> zpravne, ale
> cislo aktualniho zaznamu je takove, jako kolikaty je ten zaznam
> vytvoreny
> celkove a ne, jako kolikaty je podle abecedy a tak bych to prave
> chtel...
>
> Nevim, jestli sem to vysvetlil solidne, proto example:
>
> Zaznam1= a;
> Zaznam2= c;
> Zaznam3= b;
>
> A pocitadlo mi v�pripade, ze stojim na zaznamu1 udela: 1/3
> na Zaznamu2 udela: 2/3
>
> na zaznamu3 udela: 3/3
>
> To je sice hezky, ale ja bych potreboval u zaznamu2 "3/3" a u
> zaznamu3
> "2/3".... Proste podle abecedy...
>
> Snad sem to vysvetlil srozumitelne....
>
> Dale: nevite nahodou n�kdo, jaka je struktura .COM souboru? Nekde sem
> zaslechl, ze se tam jedna hlavne o prvn� 3 bajty, kde jeden ukazuje na
> startovaci adresu a dal�� 2 udavaji velikost souboru...je to pravda?
> Jestli
> ano, tak jeky je na co?
>
> A tak� bych vam byl vdecen, kdyby mi n�kdo �ekl, zda existuje nejaka
> konference o assembleru, pripadne kde sehnat seznam, pokudmozno, v�ech
> CZ
> -konferenci o programovani...
>
>
> A ted ten nejdulezitejsi dotaz: Myslite si, ze je mozne udelat ze 2
> HDD
> jeden logicky? Proste kdy� mam, napr, dva 40MB disky, tak aby je OS
> bral
> jako 1 logicky...abych na nej mohl dat t�eba 1 zapakovany 75MB
> soubor....neptejte se me, na co to potrebuju, na nic, jen by me
> zajimalo
> jestli by to slo udelat....ja myslim, ze asi tezko.... Konecne
> koncim...Dik
> ByE.
> Ochrana programu (uz zase ;-)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.5.1999 11:17:29
Erik Salaj wrote:
> > To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
> > nic se nezachova. Leda by si ten disk upravili, ale to je take
> > hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
>
> Existuju ochrany, ktore zapisuju informacie na niektory zo sektorov na
> prvej stope disku (samozrejme nie do MBR). Takato ochrana "prezije" aj
> formatovanie.
Samozrejme. Compaq si napriklad vycleni na disku nekolik mega,
kam nahraje svuj "bios". Tato partition se samozrejme neformatuje
beznym prikazem format. A mista pro zaskodniky je tam dost.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Get podadresar ?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 11:22:28
Ahoj,
musite si dat pozor na to, ze i adresar
muze mit atribut faHidden nebo faReadOnly,...
Zalezi na situaci, no.
Dobra.
------------------------------
Treba takhle:
var SR:TSearchRec;
if FindFirst('C:\pokus\*.*',faDirectory,SR)=0 then
repeat
if (SR.Name<>'.') and (SR.Name<>'..') then ShowMessage(SR.Name);
until FindNext<>0;
FindClose(SR);
F.
-------------------------------
> Caute vsici,
>
> tohle by melo fungovat na zjisteni vsech podadresaru:
>
> function ScanDirs(Src: string): Boolean;
> var
> SearchRec: TSearchRec;
> Vysl: integer;
> begin
> Result := false;
> Vysl := FindFirst(Src+'\*.*', faAnyFile, SearchRec);
> while (Vysl = 0) do
> begin
> if (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
> and (SearchRec.Attr = faDirectory) then begin
> Result := true;
>
> {*************************************
> v SearchRec.Name je ted nazev podaresaru adresare SRC
> takze treba muzes udelat
> Listbox.Items.Add(SearchRec.Name)
> **************************************}
>
> Vysl := FindNext(SearchRec);
> end;
> FindClose(SearchRec);
> end;
>
> TActiveObject implementacia
[*] mjuri(zv)gratex.sk - 25.5.1999 11:25:20
Skusal som sa hrat s vytvaranim ActiveX komponentov (DLL, OCX) v Delphi 4
CS.
Vsetko bolo OK, az na velkost skompilovanych OCX suborov. Jednoduchy ActiveX
kontrol
(OCX) mal nieco okolo 300 KB. Kedze velkost suborov vyplyva z pouzitia
DAX (Delphi ActiveX) architektury (implementacia TActiveObject, resp.
TActiveForm ...),
chcel by som vediet ci niekto neskusal vytvorit si vlastnu "light"
implementaciu
interface-ov podla OC96 specifikacie.
P.S. Na vytvaranie komponentov pouzivam v sucasnosti ATL 3.0 ale z hladiska
moznosti
pouzitia Delphi na vytvaranie ActiveX komponetov je "tato vlastnost" pre mna
dost podstatna.TTabSet a Image
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 25.5.1999 11:40:18
> > nedari se mi nastavit na "ousku" TTabsetu ikona z
> Imagelistu. V helpu jsem
> > se docetl, ze imageindex=tabindex, coz me prilis neuspokojuje:
> > Potreboval bych to menit podle potreby.
>
> Ahoj,
>
> Pak pouzij udalost OnGetImageIndex ve ktere muzes danemu
> tabindexu priradit
> pozadovany imageindex.
Jenze jak? Zkousim to takhle, ale nejde to:
procedure TForm1.Button2Click(Sender: TObject);
var
a,x:Integer;
begin
a:=3;
x:=-1;
TabControl1.OnGetImageIndex(Sender,a,x);
end;Mizejici kurzor
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 25.5.1999 11:43:57
Problem je v tom, ze mezi pred zafokusovanim noveho editu je vyvolan dialog.
Tento dialog je ukoncen kliknutim na tlacitko ktere vsak reaguje jiz na
MouseDown a MouseUp, ktere prijde o chvili pozdeji jiz odchytne ten novy
edit. Ten je z toho tak zmatenej, ze neni ochoten reagovat korektne. Da se
tomu odpomoci tak, ze se po ukonceni vlozeneho dialogu na tlacitko prida
neco na tento zpusob :
PostMessage (TForm(AWinControl.Parent).ActiveControl.Handle,
wm_LButtonUp, 0, 0);
Ing. David Vodi�ka
David.Vodicka(zv)GECapital.com
-----P�vodn� zpr�va-----
Od: jslavice(zv)vce(tec)cz [mailto:jslavice(zv)vce(tec)cz]
Odesl�no: 25. kv�tna 1999 9:40
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Mizejici kurzor
Vazeni pratele,
mam starsi program v D1, ktery musim z objektivnich duvodu udrzovat.
Mam tam vsak neprijemnou chybu. V editacnim formulari mam nekolik komponent
TVEdit (od firmy Sinea) a editacni komponentu TMemo. V komponente TMemo
zadava uzivatel polozky ciselniku. Na udalost OnExit mam napsanou
proceduru, ktera kontroluje tyto polozky proti souboru ciselniku. V
pripade, ze nejsou polozky nalezeny, je zobrazeno me vlastni dotazove
okenko, zda chce uzivatel tyto polozky pridat do ciselniku nebo ne. Po
odkliknuti tohoto okenka se stane aktualni nasledujici editacni policko
TVEdit, do ktereho je mozno bez problemu editovat, ale bohuzel neblika tam
kurzor. Pokud procedura na udalosti OnExit v TMemo nevyvola dotazove okenko
(to je kdyz zadane polozky byly v ciselniku nalezeny) kurzor na nasledujici
polozce normalne blika. Domnival jsem se, ze je nekde chyba ve mnou
vytvorenem dotazovem okenku, ale problem je stejny pri volani jakehokoliv
formulare (napr. i ShowMessage) na udalosti OnExit v TMemo. Podotykam, ze
to nema nic spolecneho s komponentami TVEdit od firmy Sinea, nebot i kdyz
jsem je nahradil komponentami TEdit, byl problem stejny.
Dokaze mi nekdo poradit, kde je chyba? Diky predem.
Josef Slavicek
Auto-increment field
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 25.5.1999 11:49:08
> -----Original Message-----
> From: Josef Kokes [mailto:kokes(zv)fsid.cvut(tec)cz]
> Sent: Tuesday, May 25, 1999 9:44 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Auto-increment field
>
>
> Myslim, ze to tve usporadani ma jednu vaznou vadu, o ktere
> zatim nevis.
> Kdykoliv provedes nejakou operaci, ktera ten tvuj record
> nakopiruje na jine
> misto, tak se automaticky zmeni taky hodnota toho
> autoinkrementacniho pole.
To neni vada, to je spravna vlastnost. Nemuzu mit dva zaznamy se
stejnym identifikatorem. Opakuju, a zkus si to prebrat, ze to neni
datova hodnota. A trochu bych Te upresnil: hodnota autoinkrementu se nemeni
(ta se totiz nemeni nikdy), jenom s vymazanym zaznamem zanika a
s insertovanym vznika nova.
> Dusledkem je, ze ten autoinkrement nemuzes pouzit k
> identifikaci recordu,
> protoze jednou by mel cislo 18, podruhe 56 a pak treba 408, a to zcela
> samovolne podle toho, co s tou tabulkou delas.
Takove pole by ti bylo naprd. Naopak, autoinkremet se
pouziva VYHRADNE k identifikaci zaznamu. Na nic jineho neni dobry.
A jeho hodnota se nikdy nemeni, nechapu, jaks na to prisel.
Kdyz do tabulky insertuju, novy zaznam ziska novou hodnotu.
Kdyz delam DELETE, zmizi. Kdyz delam UPDATE, nezmeni se.
>
> Nevim, ktere vsechny operace to delaji, ale urcite treba BatchMove.
kdyz delas batchmove, zakladas nove zaznamy. A kazdy z nich
ma svou identifikaci. Nemuzes ocekavat, ze budou v nejakem vztahu.
Pokud chces presmerovat nejake odkazy na toto pole, musis je zmenit taky.
>
> Pepa
>
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!SQL
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 25.5.1999 11:49:38
ad 1) Muzes pouzit TUpdateSQL v propojeni s TQuery (vlastnost
UpdateObject). Do TUpdateSQL pak staci napsat SQL skripty pro mazani,
vkladani nebo upravovani zaznamu, kde vetu z TQuery, pro kterou se ma
dany skript spustit, zjistis pomoci parametru.
Pokud mas tedy napr. v TQuery: "SELECT rodne_cislo, jmeno, prijmeni FROM
zamestnanci ORDER BY rodne_cislo", do TUpdateSQL napises v property
DeleteSQL: "DELETE FROM zamestnanci WHERE rodne_cislo = :rodne_cislo",
do ModifySQL "UPDATE zamestnanci SET rodne_cislo = :rodne_cislo, jmeno =
:jmeno, prijmeni = :prijmeni WHERE rodne_cislo = :old_rodne_cislo" a do
InsertSQL "INSERT INTO zamestnanci (rodne_cislo,jmeno,prijmeni) VALUES
:rodne_cislo,:jmeno,:prijmeni".
ad 2) viz metoda Locate v TQuery
ad 3) stejne jako u TTable - viz GetBookmark, GotoBookmark a priklady v
helpu.
F.> -----P�vodn� zpr�va-----
> Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
> Odesl�no: 24. kv�tna 1999 15:52
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: SQL
>
> Zdravim,
>
> velmi mi to suri
>
> 1. Ako zoradit zaznami ak pouzivam pre pripojenie Query a nechcem
> pouzit
> ORDER BY, pretoze ak sa nemylim tak potom nemozem editovat zaznami,
> aspon
> take nieco tu prebehlo.
>
> 2. Mam komponentu Query. Chcem sa nastavit na urcity zaznam, ktory
> vyhovuje
> zadanej podmienke. Ak by som pouzil where, tak dostanem iba ten jeden
> zaznam. Ale ja chcem dostat vsetky ale ako aktivny ten , ktory
> vyhovuje
> podmienke. Table to vie.
>
> 3. Da sa ulozit pozicia v query ? Na ktorom zazname prave som ?
>
> za vsetky odpovede dakujem.
>
> Martin
>
> Rychly restart Win95 a 98
[*] sup(zv)svitap(tec)cz - 25.5.1999 11:52:16
>A znova Ahoj!
>
>Ako je mozne v D3 urobit restart Windows, ale nie pocitaca, len aby
>sa Windows automaticky ukoncili a potom BEZ spustenia DOSSTART.BATu
>znovu spustili. Pouziva sa to pri instalovani programov alebo Windows
>to pouzivaju pri prenastaveni.
>
>V D1 to bola funkcia "ExitWindowsExec('', '');" ktora v D3 neni, ale nechce
>sa mi to z D1 pretahovat.
>
>Diky, Pavol
>
Win32.hlp:
BOOL ExitWindowsEx(
UINT uFlags, // shutdown operation
DWORD dwReserved // reserved
);
Parameters
uFlags
Specifies the type of shutdown. This parameter must be some combination of
the following values:
Value Meaning
EWX_FORCE Forces processes to terminate. Instead of bringing up the
"application not responding" dialog box for the user, this value forces an
application to terminate if it does not respond.
EWX_LOGOFF Shuts down all processes running in the security context of
the process that called the ExitWindowsEx function. Then it logs the user
off.
EWX_POWEROFF Shuts down the system and turns off the power. The
application must have the SE_SHUTDOWN_NAME privilege (for more information,
see the Remarks section) and the system must support the power-off feature.
EWX_REBOOT Shuts down the system and then restarts the system. The
application must have the SE_SHUTDOWN_NAME privilege (for more information,
see the Remarks section).
EWX_SHUTDOWN Shuts down the system to a point at which it is safe to turn
off the power. All file buffers have been flushed to disk, and all running
processes have stopped. The application must have the SE_SHUTDOWN_NAME
privilege (for more information, see the Remarks section).
dwReserved
Reserved; this parameter is ignored.
Return Value
If the function succeeds, the return value is TRUE.
If the function fails, the return value is FALSE. To get extended error
information, call GetLastError.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Chyby pri vypoctech (Was: Chyba prekladace pri por
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 25.5.1999 11:53:42
>Pekna chyba, uz jsi to poslal Borlandum ?
Chybu jsem hlasil pres bug report stranku na webu.
Nicmene mi to reklo, ze server je down, ale ze chyba bude
stejne "processed". Nepridelilo mi to ani to cislo.
Na druhou stranu ono to cislo je stejne naprd,
nebot jich mam alespon 20 a ozvali se jen jednou (pred 2 roky)
s tim ze to co jsem hlasil neni chyba a pritom
v Delphi 4 to je opravene! Tak uvidime.
Mate jeste nekdo nejake zkusenosti s hlasenim
chyb Borlandum. Nebo nejakou jinou cestu pro hlaseni?
>Jinak se to da zda se vyresit
>pretypovanim variantu na Currency. Nicmeme je to zase hned o duvod vic
>se tem variantum vyhybat jak to jen jde. Neni nad poctive typy :-)
Pretypovani pomuze.
Ono vubec neni prilis stastne nechat zpracovavat vyraz jako variant,
nebot se pak vse pocita jako variant a misto aby to v*v prelozilo
jako fmul se vola rutina VarMul. Proste efektivita je totalne v ....
Pridam jeste jednu chybu ktera vas presvedci ze 31/1 neni 31!
var
a,b,c:currency;
begin
a:=31;
b:=1;
c:=Int(a/b/b); {Trunc se chova stejne}
end;
C je rovno 30!!!
Vzdycky jsem si myslel, ze pri pouziti currency mne nemusi trapit
nejake chyby pri vypoctu s realnymi cisly.
Neni to pravda!!!
Proc?
Vyse uvedeny priklad je prelozen jako
Int(a/b/b*korekce)*korekce tj. Int(310000/10000/10000*10000)*10000.
Protoze FPU pocita stale s extended typem vysledkem
vyrazu v zavorce neni 31, ale neco tesne pod.
Funkce Trunc a Int jsou pak pro typ currency chybne kompilovany,
nebot provadeji truncate mezivysledku v koprocesoru a tudiz
Int vyjde 30 misto 31!
Reseni:
pouzivat vlastni funkci, ktera sice vypada divne, ale
je to jedine spravne reseni!
function CTrunc(C:currency):currency;
begin
Result:=Trunc(C);
end;
Rob
PS:
Zda se vam, ze Delphi neprovadeji vypocty tak ja by meli.
Mate pravdu a bude hur.
Priste se vas pokusim presvedcit, ze 6/2 neni tri ale 2!!!Rychly restart Win95 a 98
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.5.1999 12:03:20
To: Jaroslav Weiss
Ahoj,
Diky za radu, ale ani jedna z vymenovanych atributov nerobi to co ja chcem.
Ja nechcem Vypnut, restartovat / tak ze bude nacitavat RAM, .../ ani
odhlasit uzivatela, ale chcem aby sa Win95 alebo Win98 ukoncili, a znovu
zaviedli BEZ RESTARTU PC, akoby na chvilu skocili do MSDOSu a potom znovu
nabehli. A dalsia podmienka nesmu spustit DOSSTART.BAT !!!
Ale inak Diky moc.> >A znova Ahoj!
> >
> >Ako je mozne v D3 urobit restart Windows, ale nie pocitaca, len aby
> >sa Windows automaticky ukoncili a potom BEZ spustenia DOSSTART.BATu
> >znovu spustili. Pouziva sa to pri instalovani programov alebo Windows
> >to pouzivaju pri prenastaveni.
> >
> >V D1 to bola funkcia "ExitWindowsExec('', '');" ktora v D3 neni, ale
nechce
> >sa mi to z D1 pretahovat.
> >
> >Diky, Pavol
> >
>
> Win32.hlp:
>
> BOOL ExitWindowsEx(
>
> UINT uFlags, // shutdown operation
> DWORD dwReserved // reserved
> );
> Parameters
>
> uFlags
>
> Specifies the type of shutdown. This parameter must be some combination of
> the following values:
>
> Value Meaning
> EWX_FORCE Forces processes to terminate. Instead of bringing up the
> "application not responding" dialog box for the user, this value forces an
> application to terminate if it does not respond.
> EWX_LOGOFF Shuts down all processes running in the security context of
> the process that called the ExitWindowsEx function. Then it logs the user
> off.
> EWX_POWEROFF Shuts down the system and turns off the power. The
> application must have the SE_SHUTDOWN_NAME privilege (for more
information,
> see the Remarks section) and the system must support the power-off
feature.
> EWX_REBOOT Shuts down the system and then restarts the system. The
> application must have the SE_SHUTDOWN_NAME privilege (for more
information,
> see the Remarks section).
> EWX_SHUTDOWN Shuts down the system to a point at which it is safe to turn
> off the power. All file buffers have been flushed to disk, and all running
> processes have stopped. The application must have the SE_SHUTDOWN_NAME
> privilege (for more information, see the Remarks section).
> dwReserved
>
> Reserved; this parameter is ignored.
>
> Return Value
>
> If the function succeeds, the return value is TRUE.
> If the function fails, the return value is FALSE. To get extended error
> information, call GetLastError.
>
> Jaroslav Weiss
> odd. informatiky
>
> SVITAP J.H.J. s.r.o.
> Kijevska 6-8
> SVITAVY
> 568 02
>
> tel: ++420-461-568 202
> fax: ++420-461-568 300
> E-mail: sup(zv)svitap(tec)cz
> URL: www.svitap(tec)cz
> FTP: ftp.svitap(tec)cz
spojeni polozek v prikazu SELECT
[*] mbartone(zv)Synthesia(tec)cz - 25.5.1999 12:05:19
Ahoj
v tabulce mam tri polozky C1,C2,C3
potrebuji udelat SELECT kde tyto tri polozky budou slouceny do jedne a oddelit
lomitky, ale jen pokud budou nenulove.
C! C2 C3 Vysledek
11 12 13 11/12/13
11 12 11/12
11 11
Jak by se to dalo resit (bude to na MS SQL 7.0) ?
Pomoci || dostanu neprijatelny vysledek 11// nebo 11/12/.
Dekuji Milan
Get podadresar ?
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 25.5.1999 12:07:30
Ahoj,
vystup je do Memo1.Vypise vsechny podadresare z aktualniho adresare.
Jestli budes chtit poslu Ti zdrojak , ktery projizdi vsechny disky jejich
podadresare.
procedure GetAdresare;
var
DirInfo:Tsearchrec;
b:integer;
begin
{$I-}
b:=0;
FindFirst('*.*',16 ,DirInfo);
while b <> 18 do
begin
if (DirInfo.Name <> '.') and (DirInfo.Name <> '..') then
if DirInfo.Attr = 16 then
begin
{$I-}
Memo1.Lines.Add(DirInfo.Name);
{ ChDir(DirIfnfo.Name)} {dalsi podadresare}
end;
b := FindNext(DirInfo);
end;
end;
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Novak Josef <jnovak(zv)anect(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. kv�tna 1999 10:07
P�edm�t: Get podadresar ?>Chtel bych se zeptat.
>Kdyz znam cestu adresare, jak zjistim nazev podadresare. Zkousel jsem to
>pres FindFirst, ale nejak jsem neuspel.
>Muze mi nekdo poslat kousek kodu?
>Napr: c:\pokus obsahuje vzdy jen jeden podadresar, jak teda zjistim jeho
>nazev?
>Diky Novak
>Vkladani do tabulky pomoci BDE API
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 25.5.1999 12:36:24
> > > >Muze mi nekdo prozradit, kde delam chybu?
> > > >(Proste a jednoduse potrebuji do tabulky vlozit zaznam s atributem
> > > >TimeStamp (TDateTime) pomoci BDE API a nejak mi to nejde.
> > >
> > > function DateTimeToDtRec(DateTime: TDateTime): TDateTimeRec;
> > > begin
> > > Result.time:=0;
> > > Result.date:=DateTimeToTimeStamp(DateTime).Date;
> > > end;
> > > ....
> > > dtrec:=DateTimeToDtRec(Now);
> > > Check(DbiPutField(table.Handle,field.FieldNo,pRecBuff,ADDR(dtrec)));
> >
> > 1) Proc v te prevodni funkci se dava time = 0???
> > 2) Me to opet nefunguje (tentokrat to do tabulky vklada 0.0. 0000)
> >
> > Jeste jednou radeji zopakuji problem (nejspise jsem ho minule
> > spise zamlzil)
> >
> > Tabulka obsahuje atributy ruznych typu mimo jine je tam jeden
> > atribut D1 typu TimeStamp.
> > Ja se pokousim vkladat do tabulky zaznamy pomoci BDE API.
> > A do sloupecku D1 chci dat aktualni datum a cas (to co mi vrati fce
> > Now()). A to je ten problem (neumim to tam vlozit, nebo spise to
> > tam vlozim ale vysledek je 0.0.0000 00:00:00 nebo neco
> > podobneho).
> Nejsem si tim moc jisty, ale mam pocit ze v D1 se datum ukladal v jinem
> formatu nez v 32bit Delphi. Podivej se do zdrojaku na TDateField jak to
> tam presne delaji.
Jiz jsem to vyresil. Kouknul jsem se do tech zdrojaku a je to
opravdu v jinem formatu:
var
D: TDateTimeRec;
.
.
.
D.DateTime :=
TimeStampToMSecs(DateTimeToTimeStamp(Now));
Check(DbiPutField(Handle, tbEventDakce.FieldNo, BDEBuf,
(zv)DA)); Petr
Auto-increment field
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 12:43:03
Myslim, ze Jiri Kokes mel na mysli asi toto
v tabulce Rodic budes mit
ID=1 Jmeno=Novak
{dvojku uz nekdo vymazal}
ID=3 Jmeno=Dvorak
ID=4 Jmeno=Cerny
a tabulka Deti, kde
ID=1 IDRodice=1 Jmeno=NovakSon
ID=2 IDRodice=3 Jmeno=DvorakSon
ID=3 IDRodice=3 Jmeno=DvorakSon
ID=4 IDRodice=4 Jmeno=CernySon
az sem je vse OK, ale po BatchMove
budou zaznamy v Rodicich opet usporadany
takto
ID=1 Jmeno=Novak
ID=2 Jmeno=Dvorak
ID=3 Jmeno=Cerny
a uz to na ty deti nebude pasovat!
Dobra.
> ----------
> Od: Polak Jiri[SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Odesl�no: 25. kv�tna 1999 11:49
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Auto-increment field
>
>
>
> > -----Original Message-----
> > From: Josef Kokes [mailto:kokes(zv)fsid.cvut(tec)cz]
> > Sent: Tuesday, May 25, 1999 9:44 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Auto-increment field
> >
> >
> > Myslim, ze to tve usporadani ma jednu vaznou vadu, o ktere
> > zatim nevis.
> > Kdykoliv provedes nejakou operaci, ktera ten tvuj record
> > nakopiruje na jine
> > misto, tak se automaticky zmeni taky hodnota toho
> > autoinkrementacniho pole.
>
> To neni vada, to je spravna vlastnost. Nemuzu mit dva zaznamy se
> stejnym identifikatorem. Opakuju, a zkus si to prebrat, ze to neni
> datova hodnota. A trochu bych Te upresnil: hodnota autoinkrementu se
> nemeni
> (ta se totiz nemeni nikdy), jenom s vymazanym zaznamem zanika a
> s insertovanym vznika nova.
>
> > Dusledkem je, ze ten autoinkrement nemuzes pouzit k
> > identifikaci recordu,
> > protoze jednou by mel cislo 18, podruhe 56 a pak treba 408, a to
> zcela
> > samovolne podle toho, co s tou tabulkou delas.
>
> Takove pole by ti bylo naprd. Naopak, autoinkremet se
> pouziva VYHRADNE k identifikaci zaznamu. Na nic jineho neni dobry.
> A jeho hodnota se nikdy nemeni, nechapu, jaks na to prisel.
> Kdyz do tabulky insertuju, novy zaznam ziska novou hodnotu.
> Kdyz delam DELETE, zmizi. Kdyz delam UPDATE, nezmeni se.
>
> >
> > Nevim, ktere vsechny operace to delaji, ale urcite treba BatchMove.
>
> kdyz delas batchmove, zakladas nove zaznamy. A kazdy z nich
> ma svou identifikaci. Nemuzes ocekavat, ze budou v nejakem vztahu.
> Pokud chces presmerovat nejake odkazy na toto pole, musis je zmenit
> taky.
>
> >
> > Pepa
> >
>
>
>
> Jura
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web :http://freeweb.coco(tec)cz/jpolak
> ----------
> The only good bug, is a dead bug!
> Setridit, .COM, 2xHDD....
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 25.5.1999 12:47:15
Chtel bych to delat pod Woknama ci dosem...
Ad 3 - nenapal jsi, pod jakym OS to chces udelat;
pod DOS-em asi tezko, ale v unixu by jsi mohl
primontovat novy disk jako dalsi file system.
> ----------
> D�le bych potreboval vedet, jak tyto zaznamy setridit tak, aby je
to
> bralo
> podle abecedy a ne podle poradi vytvoreni...
>
> Mam to takhle:
>
> Label4.Caption:= IntToStr(Table1.RecNo)+' / '+
> IntToStr(Table1.RecordCount);
>
> A prave toto pocitadlo mi funguje tak, ze po�et zaznamu ukazuje
> zpravne, ale
> cislo aktualniho zaznamu je takove, jako kolikaty je ten zaznam
> vytvoreny
> celkove a ne, jako kolikaty je podle abecedy a tak bych to prave
> chtel...
>
> Nevim, jestli sem to vysvetlil solidne, proto example:
>
> Zaznam1= a;
> Zaznam2= c;
> Zaznam3= b;
>
> A pocitadlo mi v�pripade, ze stojim na zaznamu1 udela: 1/3
> na Zaznamu2 udela: 2/3
>
> na zaznamu3 udela: 3/3
>
> To je sice hezky, ale ja bych potreboval u zaznamu2 "3/3" a u
> zaznamu3
> "2/3".... Proste podle abecedy...
>
> Snad sem to vysvetlil srozumitelne....
>
> Dale: nevite nahodou n�kdo, jaka je struktura .COM souboru? Nekde
sem
> zaslechl, ze se tam jedna hlavne o prvn� 3 bajty, kde jeden
ukazuje na
> startovaci adresu a dal�� 2 udavaji velikost souboru...je to
pravda?
> Jestli
> ano, tak jeky je na co?
>
> A tak� bych vam byl vdecen, kdyby mi n�kdo �ekl, zda existuje
nejaka
> konference o assembleru, pripadne kde sehnat seznam, pokudmozno,
v�ech
> CZ
> -konferenci o programovani...
>
>
> A ted ten nejdulezitejsi dotaz: Myslite si, ze je mozne udelat ze
2
> HDD
> jeden logicky? Proste kdy� mam, napr, dva 40MB disky, tak aby je
OS
> bral
> jako 1 logicky...abych na nej mohl dat t�eba 1 zapakovany 75MB
> soubor....neptejte se me, na co to potrebuju, na nic, jen by me
> zajimalo
> jestli by to slo udelat....ja myslim, ze asi tezko.... Konecne
> koncim...Dik
> ByE.
> Antwort: Rychly restart Win95 a 98
[*] martin.falta(zv)obi(tec)cz - 25.5.1999 12:54:56
Zkus tohle:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const
EWX_LOGOFF = 0;
EWX_SHUTDOWN = 1;
EWX_REBOOT = 2;
EWX_FORCE = 4;
EWX_POWEROFF = 8;
{$R *.DFM}
function ExitWindowsEx (Flags: LongInt; dwReserved: LongInt): LongInt;
stdcall;
external 'user32.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
l: LongInt;
begin
if RadioButton1.Checked then l := ExitWindowsEx (EWX_SHUTDOWN, 0)
else l := ExitWindowsEx (EWX_REBOOT, 0);
end;
end.
Ochrana programu (uz zase ;-)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 12:57:45
> > > > To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes
> disk, nic
> > > > se nezachova. Leda by si ten disk upravili, ale to je take
> hloupost.
> > > > Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
> > >
> > > Existuju ochrany, ktore zapisuju informacie na niektory zo
> sektorov na
> > > prvej stope disku (samozrejme nie do MBR). Takato ochrana
> "prezije" aj
> > > formatovanie.
> >
> > Samozrejme. Compaq si napriklad vycleni na disku nekolik mega,
> > kam nahraje svuj "bios". Tato partition se samozrejme neformatuje
> > beznym prikazem format. A mista pro zaskodniky je tam dost.
>
>To ale neni v rozporu s mym tvrzenim, ze i to jde prepsat...> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> Autorizovany dealer TurboPower Software... knihovny pro Delphi
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> === mobilni telefon GSM (hotline): 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================
> ICQ: 21215917, PGP vitano
> Rychly restart Win95 a 98
[*] xneuma02(zv)stud.fee.vutbr(tec)cz - 25.5.1999 11:59:03
> A znova Ahoj!
>
> Ako je mozne v D3 urobit restart Windows, ale nie pocitaca, len aby
> sa Windows automaticky ukoncili a potom BEZ spustenia DOSSTART.BATu
> znovu spustili. Pouziva sa to pri instalovani programov alebo Windows
> to pouzivaju pri prenastaveni.
>
> V D1 to bola funkcia "ExitWindowsExec('', '');" ktora v D3 neni, ale nechce
> sa mi to z D1 pretahovat.
>
> Diky, Pavol
>
>
>
Ahoj,
ve WIN32 se tato funkce nazyva "ExitWindowsEx" a ta uz v D3 je,
parametry viz. help.
David NEUMANN
xneuma02(zv)stud.fee.vutbr(tec)cz
Ochrana programu (uz zase ;-)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 12:59:48
> >> > > To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes
> disk, nic
> >> > > se nezachova. Leda by si ten disk upravili, ale to je take
> hloupost.
> >> > > Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
> >> >
> >> > Existuju ochrany, ktore zapisuju informacie na niektory zo
> sektorov na
> >> > prvej stope disku (samozrejme nie do MBR). Takato ochrana
> "prezije" aj
> >> > formatovanie.
> >>
> >> Samozrejme. Compaq si napriklad vycleni na disku nekolik mega,
> >> kam nahraje svuj "bios". Tato partition se samozrejme neformatuje
> >> beznym prikazem format. A mista pro zaskodniky je tam dost.
> >
> >To ale neni v rozporu s mym tvrzenim, ze i to jde prepsat...
>
Ale je to v rozporu s tim, co jsi psal tady :
Cituji
"
To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
nic se nezachova. Leda by si ten disk upravili, ale to je take
hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
"Rychly restart Win95 a 98
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.5.1999 13:00:54
To: David NEUMANN
Funkcia ExitWindwos, ani ExitWindowsEx() problem neriesi!
Viz predosly mail. :-) A nic podobne som nenasiel ani v helpe ani v MSDN.>
> > Ako je mozne v D3 urobit restart Windows, ale nie pocitaca, len aby
> > sa Windows automaticky ukoncili a potom BEZ spustenia DOSSTART.BATu
> > znovu spustili. Pouziva sa to pri instalovani programov alebo Windows
> > to pouzivaju pri prenastaveni.
> >
> > V D1 to bola funkcia "ExitWindowsExec('', '');" ktora v D3 neni, ale
nechce
> > sa mi to z D1 pretahovat.
> >
> > Diky, Pavol
> >
> >
> >
>
> Ahoj,
>
> ve WIN32 se tato funkce nazyva "ExitWindowsEx" a ta uz v D3 je,
> parametry viz. help.
>
> David NEUMANN
> xneuma02(zv)stud.fee.vutbr(tec)cz
>Primy pristup na disk
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 25.5.1999 13:03:03
No jo, je to pekne, ale abych pravdu rekl, unika mi smysl pouziti -
predevsim co ktery parametr v tech funkcich znamena (ze se to dava do
registru, to jsem pochopil), tedy co se ma vyznamove kde pouzit. Navic
neznam ani ktery interrupt k cemu je. Nebyla by ukazka volani techto
funkci :-) ?
Kazdopadne diky
Mira
-----P�vodn� zpr�va-----
Od: Jiri Virt <virt(zv)pepa(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. kv�tna 1999 7:48
P�edm�t: Re: Primy pristup na disk
Ahoj,
posilam prilohu z casti meho programu.Snad je to ono.Setridit, .COM, 2xHDD....
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 13:21:59
Obavam se, ze to asi nepujde. Leda jeste udelat
pomoci prikazu join (nebo assign ?) pripojeni
do jednoho adresare toho prvniho disku koren
toho druheho, ale to zrejme neresi Tvuj problem.
Dobra.
> ----------
> Chtel bych to delat pod Woknama ci dosem...
>
>> Ad 3 - nenapal jsi, pod jakym OS to chces udelat;
>> pod DOS-em asi tezko, ale v unixu by jsi mohl
>> primontovat novy disk jako dalsi file system.
>
> Orcle
[*] Tomas.Jotov(zv)pregis(tec)cz - 25.5.1999 13:31:17
Zdravim vsechny!
Nemuzu prijit na to, pro mi napojeni na Oracle 6 funguje s BDE 4, ale
kdyz nainstaluju verzi 5, pri prihlaseni hlasi unknown name.
Pokud vymenim knihovnu sqlora32.dll za starou, zase to bezi ...
Tom
Tom� Jotov
mailto:Tomas.Jotov(zv)pregis(tec)cz
tel: +420 602 474712, +420 428 359536
fax: +420 428 27030
Ochrana programu (uz zase ;-)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.5.1999 12:37:27
Puvodni zprava, kterou napsal Zbysek Hlinka dne 25 May 99,:
> > > To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk, nic
> > > se nezachova. Leda by si ten disk upravili, ale to je take hloupost.
> > > Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
> >
> > Existuju ochrany, ktore zapisuju informacie na niektory zo sektorov na
> > prvej stope disku (samozrejme nie do MBR). Takato ochrana "prezije" aj
> > formatovanie.
>
> Samozrejme. Compaq si napriklad vycleni na disku nekolik mega,
> kam nahraje svuj "bios". Tato partition se samozrejme neformatuje
> beznym prikazem format. A mista pro zaskodniky je tam dost.
To ale neni v rozporu s mym tvrzenim, ze i to jde prepsat...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Ceska gramatika
[*] Filip Jirs�k <jirsak(zv)gymnacel(tec)cz> - 25.5.1999 13:39:52
Zpracovane to neni, protoze je to dost slozite. Delal jsem program
Ceska mluvnice pro DOS, kde je tetnto problem reseny (myslim ze
na urovni). Teoreticky jej predelavam do Windows jiz asi rok a pul,
ale prakticky na to budu mit cas az ted. Pocitam i s moznosti
vyuzivat schopnosti tohoto programu v jinych programech (pres
DLL). (To, co pouzivaji nejruznejsi fulltexty, je od idealu dost
daleko, protoze cestina ma spoustu vyjimek, ktere tam nejsou
osetreny).
Filip Jirsak
From: "Josef Kokes" <kokes(zv)fsid.cvut(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Subject: Ceska gramatika
Date sent: Fri, 21 May 1999 09:12:09 +0200
Send reply to: delphi-l(zv)fwd(tec)cz
Ahoj.
Narazil jsem na problem, ktery by asi zajimal mnohe delphisty
(prinejmensim pri hledani v archivu teto konference). Tim problemem je
ceska gramatika pri sklonovani a casovani slov. Kdyz totiz budu v
anotaci hledat "nova komponenta", tak je to samozrejme jiny string nez
"s novou komponentou", ale pritom docela dobre muze jit o clanek se
stejnou tematikou.
Kdysi se cela oblast cestiny (a na DOST dobre urovni) resila a urcite to
take maji zpracovane firmy, ktere delaji full-textove hledani. Ale neni to
nekde dostupne i sirsimu publiku? Neda se to nekde koupit? Treba jako
nejaka DLL nebo package nebo cokoliv? Privital bych jakoukoliv
informaci.
JK
*************************************************
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
e-mail: Jirsak(zv)mujmail(tec)cz
ICQ: 12801030
autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz
Read / Write HD
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 25.5.1999 13:40:10
D�ky v�em kdo mi poradily se zjistenim podadresare a mel bych jeste jednu
prosbu.
Jak jde v aplikaci zjistit, kdy hardisk z PC cte nebo zapisuje. Jde mi o to
abych ve sve aplikaci znazornil pomoci komponenty napr. TLED stav disku.
Diky Novak
Get podadresar ?
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 25.5.1999 13:44:47
Nen� to az tak jednoduche, ale je to otazka, kolik bytes a resorces
zabere toto reseni oproti FindFirst/FindClose
With DirectoryListBox1 do
begin
Directory := Edit1.Text;
Update;
ListBox1.Clear;
ListBox1.Items.assign(Items);
end;
Nicmene jsem neprisel (moc jsem se nesnazil :-) ) na to, jak vytvorit
DirectoryListBox za behu programu, tzn. nemit ho vizualne placnuty na
formulari. Metoda Create(Self) i Create(Form1) vyhazuji pri Update
chybu, ze control nema parent okno. Na co jsem zapomnel ?
Mira
-----P�vodn� zpr�va-----
Od: Robert Jendrisak <jendris(zv)minv.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. kv�tna 1999 11:44
P�edm�t: Re: Get podadresar ?>DirectoryListBox1.Items.GetText a mas zoznam podadresarov
>
>Werki
>Ochrana programu (uz zase ;-)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 25.5.1999 14:26:53
Martin Tichacek wrote:
> - Partition ( Fdisk /mbr ) {haklive}
Zjistim nejak, ze mi neco leze do MBR? Kdyz pouziju fdisk /mbr co se vlaste
stane? A co NTFS partition?
Do tehle veci moc nevidim. Vim ze nektere viry se pomoci fdisk /mbr daji
odstranit.
> 7 prasat. jestli cokoliv z toho pouzili...
O tom zadna ;-)
> hm... a pokud to nainstaluju, po...se mi disk a ja ho tedy sformatuju, tak
> uz si to demo vlastne taky nevyzkousim :-))))
Presne tak, proste odinstalujes a nainstalujes a vsechno je v trapu. Abych tady
nemlzil, tak se jedna o program WorkShopCD od VIVID (www.vivid.nl) a je to v
podstate servisni databaze aut (tlumice, motory, oleje atd.). Navic i to
samotne demo je znacne omezene, takze nechapu tu jejich silenou ochranu, kterou
akorat odrazuji lidi (onoho automechanika, ktery me pozadal o radu jak to
instalovat, to vyplasilo natolik, ze mi podaval to CD jako by slo o casovanou
bombu ;-). Na jednom pocitaci si to totiz nainstaloval a nekam spatne kliknul a
demo slo do haje (dokonce o tom pisou v navodu, takze asi nebyl jediny ;-).
Kdyby nekdo z vas znal nejaky jiny konkurnencni produkt, tak budu rad.
Mac
Auto-increment field
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 25.5.1999 14:33:32
No ale to zase resi referencni integrita, aby k tomu nemohlo dojit
(netvrdim ze nemuze ;-). Koneckoncu lze vkladat i identifikator (na MS SQL
napr. pomoci SET IDENTITY_INSERT [database.[owner.]]{table} {ON | OFF} -
jak je to jinde nevim) prave treba pro potreby BatchMove.
Mac
Mal� Dobromil wrote:
> Myslim, ze Jiri Kokes mel na mysli asi toto
> v tabulce Rodic budes mit
> ID=1 Jmeno=Novak
> {dvojku uz nekdo vymazal}
> ID=3 Jmeno=Dvorak
> ID=4 Jmeno=Cerny
>
> a tabulka Deti, kde
> ID=1 IDRodice=1 Jmeno=NovakSon
> ID=2 IDRodice=3 Jmeno=DvorakSon
> ID=3 IDRodice=3 Jmeno=DvorakSon
> ID=4 IDRodice=4 Jmeno=CernySon
>
> az sem je vse OK, ale po BatchMove
> budou zaznamy v Rodicich opet usporadany
> takto
> ID=1 Jmeno=Novak
> ID=2 Jmeno=Dvorak
> ID=3 Jmeno=Cerny
> a uz to na ty deti nebude pasovat!
>
> Dobra.Ochrana programu (uz zase ;-)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 25.5.1999 13:38:18
Puvodni zprava, kterou napsal Mal� Dobromil dne 25 May 99,:
> > >To ale neni v rozporu s mym tvrzenim, ze i to jde prepsat...
> >
> Ale je to v rozporu s tim, co jsi psal tady :
> Cituji
> "
> To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
> nic se nezachova. Leda by si ten disk upravili, ale to je take
> hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu never. "
Je nekolik moznosti, jak zformatovat disk, ne jen FORMAT C:,
ale treba take low level format apod.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Ochrana programu (uz zase ;-)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 14:48:48
Jiste a nejlepsi moznosti je magneticka pec :-)
Bezny uzivatel, ktery si koupi program, jenz
zapise za "konec" disku jeste jeden sektor, ktery
si preditm jeste nizkourovnove naformatuje, tento
sektor neznici. Leda by pouzil zase low level
format nebo tu pec, takze to s tim skakanim
na spek zase nemusi byt tak horky...>KDE se teda ty informace ukladaji???? Napada nekoho neco? Boot sektor?
Jinak k te ochrane, ja jsem se ponejvic zatim
setkal prave s tim, ze program naformatoval
jeste jeden sektor navic a do nej si potom
poznamenal co potreboval. U diskety by to byl
treba 2881-ni sektor.
Oznacovat nejaky sektor na disku jako vadny,
to bych rekl, ze by od toho programu nebylo
moc "chytre", protoze takovy sektor potom
i bezny uzivatel najde treba scandiskem
a bude se po tom pidit a mozna bude
i reklamovat pevny disk ;-)
Boot-sector by se prepsal prenesenim sstemu,
takze tady by to taky "v bezpeci" nebylo a
MBR se zase prepise pri rozdelovani disku
na jednotlive partitions :-)
Takze jestli ty autori a delaeri nekecaj,
taxe podivej za konec disku nebo na konec
prvni (resp nulte) stopy.
Dobra.
> ----------
> > > >To ale neni v rozporu s mym tvrzenim, ze i to jde prepsat...
> > >
> > Ale je to v rozporu s tim, co jsi psal tady :
> > Cituji
> > "
> > To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
> > nic se nezachova. Leda by si ten disk upravili, ale to je take
> > hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu
> never. "
>
> Je nekolik moznosti, jak zformatovat disk, ne jen FORMAT C:,
> ale treba take low level format apod.
> Get podadresar ?
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 14:53:02
>Nicmene jsem neprisel (moc jsem se nesnazil :-) ) na to, jak
vytvorit
>DirectoryListBox za behu programu, tzn. nemit ho vizualne
placnuty na
>formulari. Metoda Create(Self) i Create(Form1) vyhazuji pri
Update
>chybu, ze control nema parent okno. Na co jsem zapomnel ?
Musis mu zrejme programove nastavit i rodice
tedy DirectoryListBox1.Parent:=Form1;
Dobra.
Ochrana programu (uz zase ;-)
[*] Juraj Nagy <Jnagy(zv)nh-trans(tec)cz> - 25.5.1999 15:15:17
> > >> Samozrejme. Compaq si napriklad vycleni na disku nekolik mega,
> > >> kam nahraje svuj "bios". Tato partition se samozrejme neformatuje
> > >> beznym prikazem format. A mista pro zaskodniky je tam dost.
> > >
> > >To ale neni v rozporu s mym tvrzenim, ze i to jde prepsat...
> >
> Ale je to v rozporu s tim, co jsi psal tady :
> Cituji
> "
> To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
> nic se nezachova. Leda by si ten disk upravili, ale to je take
> hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
> "
Proc je to s tim v rozporu? Staci dat nainstalovat LINUX na COMPAQ nekomu,
kdo o partition pro BIOS u Compaqu nic nevi. A hned jak potrebujes neco v
BIOSu nastavit, zjistis, ze i tato partition se da prepsat velmi jednoduse.
(Trocha hur se znovu zpravi...)
Jirka
Ochrana programu (uz zase 8-(
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 25.5.1999 15:16:15
No - snazit se kryt aplikaci jakymkoliv zpusobem je sice pekne, ale jak
nekdo napise ''.... nejde zkopirovat/nainstalovat zovu...." ..... reknete
sami ... nelaka Vas zkusit presvecit autora o opaku :-))))
Mti.
(co se Vam nelibi na Flashkach vseho druhu/cmos a spol) :-) proc nutne disk
?
-----P�vodn� zpr�va-----
>Jiste a nejlepsi moznosti je magneticka pec :-)
>Bezny uzivatel, ktery si koupi program, jenz
>zapise za "konec" disku jeste jeden sektor, ktery
>si preditm jeste nizkourovnove naformatuje, tento
>sektor neznici. Leda by pouzil zase low level
>format nebo tu pec, takze to s tim skakanim
>na spek zase nemusi byt tak horky...
>
>>KDE se teda ty informace ukladaji???? Napada nekoho neco? Boot sektor?
>
>Jinak k te ochrane, ja jsem se ponejvic zatim
>setkal prave s tim, ze program naformatoval
>jeste jeden sektor navic a do nej si potom
>poznamenal co potreboval. U diskety by to byl
>treba 2881-ni sektor.
>
>Oznacovat nejaky sektor na disku jako vadny,
>to bych rekl, ze by od toho programu nebylo
>moc "chytre", protoze takovy sektor potom
>i bezny uzivatel najde treba scandiskem
>a bude se po tom pidit a mozna bude
>i reklamovat pevny disk ;-)
>
>Boot-sector by se prepsal prenesenim sstemu,
>takze tady by to taky "v bezpeci" nebylo a
>MBR se zase prepise pri rozdelovani disku
>na jednotlive partitions :-)
>
>Takze jestli ty autori a delaeri nekecaj,
>taxe podivej za konec disku nebo na konec
>prvni (resp nulte) stopy.
>Dobra.
>
>> ----------
>> > > >To ale neni v rozporu s mym tvrzenim, ze i to jde prepsat...
>> > >
>> > Ale je to v rozporu s tim, co jsi psal tady :
>> > Cituji
>> > "
>> > To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
>> > nic se nezachova. Leda by si ten disk upravili, ale to je take
>> > hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu
>> never. "
>>
>> Je nekolik moznosti, jak zformatovat disk, ne jen FORMAT C:,
>> ale treba take low level format apod.
>>Rychly restart Win95 a 98
[*] sup(zv)svitap(tec)cz - 25.5.1999 15:40:32
>To: Jaroslav Weiss
>
> Ahoj,
>
>Diky za radu, ale ani jedna z vymenovanych atributov nerobi to co ja chcem.
>Ja nechcem Vypnut, restartovat / tak ze bude nacitavat RAM, .../ ani
>odhlasit uzivatela, ale chcem aby sa Win95 alebo Win98 ukoncili, a znovu
>zaviedli BEZ RESTARTU PC, akoby na chvilu skocili do MSDOSu a potom znovu
>nabehli. A dalsia podmienka nesmu spustit DOSSTART.BAT !!!
>
>Ale inak Diky moc.
>
Dobre, ukecal jsi me, abych prohrabal hinty. Tady to mas:
Spust tento prikaz: C:\WINDOWS\RUNDLL.EXE user.exe,ExitWindowsExec
Udela to jenom restart woken... :-))
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Rychly restart Win95 a 98
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.5.1999 15:47:43
Diky, to je presne to co som potrboval!
A nemas tam prosim (ze som tak drzi :-)))))) niekde este :
1. Ako je mozne priviest monitor do "spiaceho" stavu wo Windows ?
S pozdravom Pavol
----- Original Message -----
From: <sup(zv)svitap(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 25. kv�tna 1999 15:40
Subject: Re(2x): Rychly restart Win95 a 98
> >To: Jaroslav Weiss
> >
> > Ahoj,
> >
> >Diky za radu, ale ani jedna z vymenovanych atributov nerobi to co ja
chcem.
> >Ja nechcem Vypnut, restartovat / tak ze bude nacitavat RAM, .../ ani
> >odhlasit uzivatela, ale chcem aby sa Win95 alebo Win98 ukoncili, a znovu
> >zaviedli BEZ RESTARTU PC, akoby na chvilu skocili do MSDOSu a potom znovu
> >nabehli. A dalsia podmienka nesmu spustit DOSSTART.BAT !!!
> >
> >Ale inak Diky moc.
> >
>
> Dobre, ukecal jsi me, abych prohrabal hinty. Tady to mas:
>
> Spust tento prikaz: C:\WINDOWS\RUNDLL.EXE user.exe,ExitWindowsExec
>
> Udela to jenom restart woken... :-))
>
> Jaroslav Weiss
> odd. informatiky
>
> SVITAP J.H.J. s.r.o.
> Kijevska 6-8
> SVITAVY
> 568 02
>
> tel: ++420-461-568 202
> fax: ++420-461-568 300
> E-mail: sup(zv)svitap(tec)cz
> URL: www.svitap(tec)cz
> FTP: ftp.svitap(tec)cz
Ochrana programu (uz zase ;-)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 15:51:01
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.
>No ja bych to videl na MBR, ale nevim jak zjistim, jestli tam
je neco, co
>tam nema byt a zda se to da vycistit. Popr. CIM se tam mrknu?
No, muzu Ti poslat, ale ne ted hned, takovy
udeltako, ktery by sis musel jeste trochu
upravit a ktery umi cist/zapisovat jednotlive
sektory primo z radice disku, takze by jsi
je takto nacetl, ulozil a nainstaloval tu
"zoufalost" a porovnal.
Bohuzel, to mam v notebooku a ten ted nemam
u sebe a taky by to chtelo trochu okomentovat,
ale snad to bude do konce tydne. Budes-li
ty fce chtit.
Tyhle mrchy vetsinou volaji preruseni int 13h
a do registru se nastavi hlava/stopa/sektor
atd... (viz SysMan)
(alespon pod DOSem, nevim, jak je to s primym
pristupem na disk pod Windows), takze zkus
sledovat toto preruseni. Ale jak, to Ti poradi
spise nejaky guru v konferenci. Dela se to tak,
ze na tohle preruseni povesis nejakou svoji
rutinu, ale jaxe to dela bych daval dohromady
jen horko tezko. Urcite tu bude nekdo, kdo
to zmakne lepe.
PS: Doufam, ze Ti nevadi, ze jsem tento
dopis poslal do konference, protoze treba
rikam neco blbe a sam se rad necham poucit.
Dobra.
> ----------
> Od: Martin Kubecka[SMTP:martin.kubecka(zv)amenit(tec)cz]
> Odesl�no: 25. kv�tna 1999 15:40
> Komu: Mal� Dobromil
> P�edm�t: Re: Ochrana programu (uz zase ;-)
>
> Mal� Dobromil wrote:
>
> > Boot-sector by se prepsal prenesenim sstemu,
> > takze tady by to taky "v bezpeci" nebylo a
> > MBR se zase prepise pri rozdelovani disku
> > na jednotlive partitions :-)
>
> No ja bych to videl na MBR, ale nevim jak zjistim, jestli tam je neco,
> co
> tam nema byt a zda se to da vycistit. Popr. CIM se tam mrknu?
>
> Ochrana programu (uz zase 8-(
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.5.1999 15:55:02
Ano, me to laka, velice, ale posledni dobou na to
nemam vubec cas :-( , ale par jsem jich uz drive
presvedcil :-)
>(co se Vam nelibi na Flashkach vseho druhu/cmos a spol) :-)
proc nutne disk
> ?
>
Protoze jsem se s tim jeste nesetkal, a kdyby
ano, nevedel bych si rady, protoze s timto
nemam _vubec_zadne_ zkusenosti.
Dobra.
Koncim.
> ----------
> No - snazit se kryt aplikaci jakymkoliv zpusobem je sice pekne, ale
> jak
> nekdo napise ''.... nejde zkopirovat/nainstalovat zovu...." .....
> reknete
> sami ... nelaka Vas zkusit presvecit autora o opaku :-))))
> Get podadresar ?
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 25.5.1999 16:21:09
Ahoj,
a co takhle DirectoryListBox1.Visible := false;
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. kv�tna 1999 14:56
P�edm�t: Re: Get podadresar ?
Nen� to az tak jednoduche, ale je to otazka, kolik bytes a resorces
zabere toto reseni oproti FindFirst/FindClose
With DirectoryListBox1 do
begin
Directory := Edit1.Text;
Update;
ListBox1.Clear;
ListBox1.Items.assign(Items);
end;
Nicmene jsem neprisel (moc jsem se nesnazil :-) ) na to, jak vytvorit
DirectoryListBox za behu programu, tzn. nemit ho vizualne placnuty na
formulari. Metoda Create(Self) i Create(Form1) vyhazuji pri Update
chybu, ze control nema parent okno. Na co jsem zapomnel ?
Mira
-----P�vodn� zpr�va-----
Od: Robert Jendrisak <jendris(zv)minv.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. kv�tna 1999 11:44
P�edm�t: Re: Get podadresar ?>DirectoryListBox1.Items.GetText a mas zoznam podadresarov
>
>Werki
>
Komunikace mezi modemy
[*] Petr Slov�k <petr(zv)trilog(tec)cz> - 25.5.1999 16:47:43
Zdravim,
potrebuji naprogramovat vzdaleny pristup k datum (ne ale klient/server - zakaznik chce co nejlevnejsi reseni) a tak jsem se rozhodl pro rucni variantu, kdy si klient modemem vytoci server, zazada si o konkretni data, server mu je posle a spojeni se ukonci. Kdyz klient ukonci praci, tak znovu vytoci cislo modemu na serveru a data mu preda zpet a server s nimi neco udela (=zapracuje zmeny do databazi na serveru). Klient nepristupuje k datum casto a nemeni je zasadnim zpusobem a tak mam pocit, ze to bude schudna cesta.
Nemam ale zadnou zkusenost z komunikaci modemu. Stahnul jsem si z Internetu komponentu (ras.zip), pomoci ktere jsem dokazal navazat spojeni mezi modemy. To je sice hezke, ale ted potrebuju posilat nejaka data tam a zpet. Predstavoval jsem si to, ze budu mit na kazde strane nejaky obsluzny program, ktery bude odchytavat buffer prichozich dat a na zaklade toho, co prijde bude bud neco delat nebo posilat zase nejaka data zpet. Vubec ale netusim jak to udelat. Muzete mi nekdo poradit, poslat odkaz na nejake zdroje, pripadne free komponenty, ktere tohle umi? Diky.
==============================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
SMS: +420603501642(zv)sms.paegas(tec)cz
==============================
DOC open
[*] Dalibor Zliechovec <dalibor.zliechovec(zv)frequentis.sk> - 25.5.1999 10:48:25 -0400
Preco nie cez WinExec?
Otvorenie suboru je v prikazovom riadku najlahsie "start menosuboru.doc".
Windows pozrie s kym je subor asociovany (v nasom pripade Word) a zariadi
otvorenie.
Dalibor
********************************
Dalibor Zliechovec
Frequentis s.r.o.
dalibor.zliechovec(zv)frequentis.sk
+421 7 69202114
SPINER Tomas wrote:
> Zdravim vsetkych,
> pokial by to bolo mozne, poradte mi ako mam vytvorit na "Forme" hyperlinku
> na HTML subor a ako jednoducho otvorim subor Microsoft Wordu, ale nie cez
> WinExec.
>
> Som uzivatel Delphi 4 Professional
>
> Tomas Spiner
> Autorizacne Centrum Slovenska
> Rontgenova 1
> 851 01 Bratislava.
> Tomas.Spiner(zv)acsnet.sk
DBGRID BEZ DATABAZE
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 25.5.1999 17:08:51
Ahoj,
potreboval bych do tabulky ulozit nejake polozky. Chtel bych pouzit
komponentu TDBGrid, ale zaroven data nebudu cerpat z zadne databaze. Ve
vysledku totiz bude tabulka jen vystupem meho vlastniho datoveho formatu.
Ilustruji zjednodusenou situaci:
1) mam textovy soubor, na kazdem radku je jedno jmeno
DAVID
ANDREA
MARTIN
MILAN
atd.
2) Rovnez mam vytvorenou DBGrid s jednim sloupeckem nazvanym JMENO.
Jednoduse jsem zjistil, jak se tento sloupecek jmenuje pomoci
Grd.Columns.Items[0].Title.Caption;
Ale uz si nevim rady s tim, jak mam naplnit jednotlive radky temi jmeny.
Pochopil jsem, ze to potrebuje nejaky Dataset, ale ten v komponentach
nevidim.
Muze nekdo poslat strucnou radu ?
Dekuji
PK
Polozka navic do systemoveho menu
[*] roman.vasicek(zv)email(tec)cz - 25.5.1999 17:32:35
Nazdarek
Mam zrejme zacatecnicky dotaz. Potreboval bych pridat do systemoveho menu
novou polozku. Jak to udelat a hlavne jak osetrit jeji vyber?
Predpokladam pridani nejak takto:
var
hSysMenu : hMenu;
.
.
hSysMenu := GetSystemMenu( Form1.Handle, FALSE);
if (hSysMenu <> 0) then
begin
// oddelovac
AppendMenu( hSysMenu, MF_SEPARATOR, 0, nil);
// moje polozka
AppendMenu( hSysMenu, MF_STRING, NECO, PChar('&About'));
end;
Co ma byt v promenne NECO? Jak napsat reakci na vyber?
Predem diky
Phoenix
--
+------------------------
| Roman Vasicek - Phoenix
| student FEI VUT v Brne (xvasic04(zv)stud.fee.vutbr(tec)cz)
| E-mail: roman.vasicek(zv)email(tec)cz
| WWW: http://roman.manes.skm.vutbr(tec)cz/
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Polozka navic do systemoveho menu
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.5.1999 17:46:00
*** Skus si napisat nieco taketo:
type XXX
public
procedure WMSysCommand(var Msg: TMessage); message wm_SysCommand;
procedure prOkno;
end;
var
FormSysMenu: TFormSysMenu;
const
idOPrg = 1000;
implementation
uses OPrg;
{$R *.DFM}
procedure TFormSysMenu.FormCreate(Sender: TObject);
begin
AppendMenu(GetSystemMenu(Handle, False), MF_SEPARATOR, 0, '');
AppendMenu(GetSystemMenu(Handle, False), MF_STRING, idOPrg, 'O
Programe...');
end;*** rekacia na vyber
procedure TFormSysMenu.WMSysCommand(var Msg: TMessage);
var
Polozka: TMenuItem;
begin
if Msg.WParam = idOPrg then FormOPrg.ShowModal; {specifikacia mojho
prikazy}
Polozka := MainMenu1.FindItem (Msg.WParam, fkCommand); {actice standard
menu handling code}
if not (Polozka = nil) then Polozka.Click;
inherited; {standardne system menu prikazy}
end;
procedure TFormSysMenu.prOkno;
begin
MessageDlg('Ahoj', mtInformation, [mbOk], 0);
end;
procedure TFormSysMenu.OknoViewClick(Sender: TObject);
begin
prOkno;
end;
end.
S pozdravom Pavol
paka(zv)aktis(tec)cz
PS: V pripade ze by si s tym mal nejaky problem tak si napis poslem ti cely
zdrojak.
----- Original Message -----
From: <roman.vasicek(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 25. kv�tna 1999 17:32
Subject: Polozka navic do systemoveho menu
> Nazdarek
>
> Mam zrejme zacatecnicky dotaz. Potreboval bych pridat do systemoveho menu
> novou polozku. Jak to udelat a hlavne jak osetrit jeji vyber?
>
> Predpokladam pridani nejak takto:
>
> var
> hSysMenu : hMenu;
> .
> .
>
> hSysMenu := GetSystemMenu( Form1.Handle, FALSE);
> if (hSysMenu <> 0) then
> begin
> // oddelovac
> AppendMenu( hSysMenu, MF_SEPARATOR, 0, nil);
> // moje polozka
> AppendMenu( hSysMenu, MF_STRING, NECO, PChar('&About'));
> end;
>
> Co ma byt v promenne NECO? Jak napsat reakci na vyber?
>
> Predem diky
> Phoenix
> --
> +------------------------
> | Roman Vasicek - Phoenix
> | student FEI VUT v Brne (xvasic04(zv)stud.fee.vutbr(tec)cz)
> | E-mail: roman.vasicek(zv)email(tec)cz
> | WWW: http://roman.manes.skm.vutbr(tec)cz/
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
>Get podadresar ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.5.1999 18:12:23
Novak Josef wrote:
> Chtel bych se zeptat.
> Kdyz znam cestu adresare, jak zjistim nazev podadresare. Zkousel jsem to
> pres FindFirst, ale nejak jsem neuspel. Muze mi nekdo poslat kousek kodu?
> Napr: c:\pokus obsahuje vzdy jen jeden podadresar, jak teda zjistim jeho
> nazev? Diky Novak
procedure TForm1.Button1Click(Sender: TObject);
procedure Strom(Cesta:string);
var
Sr:TSearchRec;
j:integer;
begin
if Cesta[Length(Cesta)]<>'\' then Cesta:=Cesta+'\';
j:=FindFirst(Cesta+'*',faDirectory,Sr);
while j=0 do
begin
if (Sr.Attr and faDirectory<>0) and (Sr.Name[1]<>'.') then
Strom(Cesta+Sr.Name);
j:=FindNext(Sr);
end;
end;
begin
Strom('c:');
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Polozka navic do systemoveho menu
[*] Petr Kandera <pkandera(zv)tanger(tec)cz> - 25.5.1999 18:20:35
Co treba takto:
const
idSysAbout=100;
var
hSysMenu : hMenu;
{Deklarace Form1}
public
procedure WMSysCommand(var Message: TMessage); message wm_SysCommand;
end;
procedure TForm1.WMSysCommand(var Message: TMessage);
begin
if Message.wParam=idSysAbout then About;
inherited;
end;
{Form1.Create}
hSysMenu:=GetSystemMenu(Form1.Handle,False);
AppendMenu(hSysMenu,MF_SEPARATOR,0,'');
AppendMenu(hSysMenu,MF_STRING,idSysAbout,'&About');
Petr Kandera
<pkandera(zv)tanger(tec)cz>
----- Original Message -----
From: <roman.vasicek(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 25. kv�tna 1999 17:32
Subject: Polozka navic do systemoveho menu
> Nazdarek
>
> Mam zrejme zacatecnicky dotaz. Potreboval bych pridat do systemoveho menu
> novou polozku. Jak to udelat a hlavne jak osetrit jeji vyber?
>
> Predpokladam pridani nejak takto:
>
> var
> hSysMenu : hMenu;
> .
> .
>
> hSysMenu := GetSystemMenu( Form1.Handle, FALSE);
> if (hSysMenu <> 0) then
> begin
> // oddelovac
> AppendMenu( hSysMenu, MF_SEPARATOR, 0, nil);
> // moje polozka
> AppendMenu( hSysMenu, MF_STRING, NECO, PChar('&About'));
> end;
>
> Co ma byt v promenne NECO? Jak napsat reakci na vyber?
>
> Predem diky
> Phoenix
> --
> +------------------------
> | Roman Vasicek - Phoenix
> | student FEI VUT v Brne (xvasic04(zv)stud.fee.vutbr(tec)cz)
> | E-mail: roman.vasicek(zv)email(tec)cz
> | WWW: http://roman.manes.skm.vutbr(tec)cz/
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>Ochrana programu (uz zase ;-)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 25.5.1999 18:24:09
Mal� Dobromil wrote:
> No, muzu Ti poslat, ale ne ted hned, takovy
> udeltako, ktery by sis musel jeste trochu
> upravit a ktery umi cist/zapisovat jednotlive
> sektory primo z radice disku, takze by jsi
> je takto nacetl, ulozil a nainstaloval tu
> "zoufalost" a porovnal.
To by bylo fajn. Diky.
> Tyhle mrchy vetsinou volaji preruseni int 13h
> a do registru se nastavi hlava/stopa/sektor
> atd... (viz SysMan)
> (alespon pod DOSem, nevim, jak je to s primym
> pristupem na disk pod Windows), takze zkus
> sledovat toto preruseni. Ale jak, to Ti poradi
> spise nejaky guru v konferenci.
Na todle existuje pekny wokeni debugger SoftIce. Dokonce jsem nekde videl
navod, jak se da pomoci SoftIce cracknout trial SoftIce :-))). A na DSP jsem
zahlidl nejaky AntiSoftIce (kdyby jste si chteli chranit programy ;-). Ale
neumim ho pouzivat.
> PS: Doufam, ze Ti nevadi, ze jsem tento
> dopis poslal do konference, protoze treba
> rikam neco blbe a sam se rad necham poucit.
V pohode, jen jsem nechtel zatezovat konferenci, kdyz to moc z Delphi
nesouuvisi (i kdyz ;-)
Diky
Mac
databaza
[*] SPINER Tomas <Tomas.Spiner(zv)ACSnet.sk> - 25.5.1999 17:50:16
Je mozne aby na pracovnej stanici nebol nainstalovany BDE a ine, pricom
-BDE by bol na servri
-exe subor by bol na servri
-data by boli na servri ?
Samozrejme, ze sa jedna o database access.
Tomas Spiner
ACS a.s. Bratislava
DBGRID BEZ DATABAZE
[*] SPINER Tomas <Tomas.Spiner(zv)ACSnet.sk> - 25.5.1999 18:02:33
Preco nechces pouzit obycajny Stringgrid ?
Tam by si to mal OK.
Stringgrid1.cells[x,y].asstring:= 'hocico'; alebo tak nejak
Tomas Spiner
ACS a.s. Bratislava
> -----Original Message-----
> From: Petr Kroca ml. [SMTP:pkroca(zv)compact(tec)cz]
> Sent: Tuesday, May 25, 1999 5:09 PM
> To: Delphi KONFERENCE
> Subject: DBGRID BEZ DATABAZE
>
> Ahoj,
> potreboval bych do tabulky ulozit nejake polozky. Chtel bych pouzit
> komponentu TDBGrid, ale zaroven data nebudu cerpat z zadne databaze. Ve
> vysledku totiz bude tabulka jen vystupem meho vlastniho datoveho formatu.
>
> Ilustruji zjednodusenou situaci:
> 1) mam textovy soubor, na kazdem radku je jedno jmeno
> DAVID
> ANDREA
> MARTIN
> MILAN
>
> atd.
>
> 2) Rovnez mam vytvorenou DBGrid s jednim sloupeckem nazvanym JMENO.
> Jednoduse jsem zjistil, jak se tento sloupecek jmenuje pomoci
> Grd.Columns.Items[0].Title.Caption;
>
> Ale uz si nevim rady s tim, jak mam naplnit jednotlive radky temi jmeny.
> Pochopil jsem, ze to potrebuje nejaky Dataset, ale ten v komponentach
> nevidim.
> Muze nekdo poslat strucnou radu ?
>
> Dekuji
>
> PK
DataSet.Insert a before insert trigger
[*] j.binder(zv)albacon(tec)cz - 25.5.1999 20:21:22
Zrejme nedokazu popsat problem kratce, za coz se predem
omlouvam.
Ucim se pracovat s Interbasem a zarazil jsem se na jednoduchem
ukolu. Mejme napr. tabulku s databazi firem a tabulku
zamestnancu techto firem. Primarni klic ve firmach prirazuji v
before insert triggeru. Mam-li otevreny dataset s firmami a provedu
insert, neni hodnota klice videt a neumim ho zjistit. Nemohu tedy
napr. vlozit zamestnance vazane k tomuto zaznamu. Klic neni videt
dokonce ani po post, je videt az po refresh, ale pak se nemohu na
zaznam znovu nastavit, neznam-li jeho klic. Zkousel jsem to s
komponentou odvozenou z datasetu z FIB komponent a s TTable.
TTable dopadl trochu hure, protoze se dokonce dozadoval zadani
klice - spokojil se s jakoukoliv hodnotou (treba duplicitni) a po
refresh si tam dosadil hodnotu generovanou v triggeru.
Nejak jsem si poradil, zaznam vlozim SQL prikazem INSERT a do
nejakeho pole v nem dam jednoznacnou hodnotu, podle ktere
zaznam potom najdu, prijde me to ale trochu jako nesikovny osli
mustek.
Mel bych proto v podstate dva dotazy
1. da se postupovat nejak sikovneji?
2. proc se obe komponenty odvozemne od dataset tak chovaji?
Provedou-li insert, mely by na databazi poslat SQL insert, trigger
se provede a hodnoty vlozene v before insert triggeru by mu mely
byt dostupne?
Za pripadne pouceni dekuj. Jiri Binder
Map.disku, aktualizacia klient.exe
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 25.5.1999 21:38:30
Ahojte ..
1. Ako najjednoduchsie a najspolahlivejsie mapovat a odmapovat disky pomocou Delphi ? (Win9x,WinNT)
2. Potrebujem v sieti (cca 10 uzivatelov) hromadne aktualizovat klientsky exe subor. Ako na to ? Uz sa mi nechce chodit ku kazdej stanici a stale kopirovat novu verziu.
T.j. : ak si klient spusti aplikaciu (client.exe), ktora je starsia nez aplikacia ktora je niekde v zdielanom adresari, takisto (client.exe), aby sa mu to nakopirovalo SAMO lokalne. To kopirovanie zvladam, ale ako donutit skopirovat na spusteny exe subor ??20
Diky za kazdy dobry napad ...
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364
Acces violation
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 25.5.1999 21:43:21
Ahoj
Zacal jsem pouzivat komponety CoolBar+ToolBar
pri najeti kursorem na tyto komponety dojde obcas k poruseni pristupu na
adrese xxxxxxx
pak uz jen windows hlasi klasiku o nezname chybe v aplikaci EXPLORER a musim
resetovat.
Pokud zkousim FindError tak nic nenajde.
Vedel by nekdo co to muze byt
Delphi 3.00
OS WIN 98
Heinisch Jiri
Vyhledani podobnych slov
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 25.5.1999 22:21:45
Potreboval bych dat dohromady rozumny algoritmus na vyhledavani
podobnych slov. Myslim si, ze by nekde mohlo neco takoveho k
nalezeni - napr. pro korektory pravopisu apod, ale nepamatuji se,
ze bych kdy na neco podobneho narazil. Nevideli jste nahodou
nekde neco takoveho?
Za kazdy tip dekuji. Jiri Binder
Ochrana programu (uz zase ;-)
[*] Erik Salaj <erik(zv)dodo.sk> - 25.5.1999 22:24:23
> Je nekolik moznosti, jak zformatovat disk, ne jen FORMAT C:,
> ale treba take low level format apod.
Ano, ale nikto taketo moznosti bezne nepouziva.
Erik Salaj
Auto-increment field
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 25.5.1999 21:46:17
Tohle asi osetrit nepujde, protoze az na vyjimky nelze ovlivnit jaka hodnota
se zapise do AutoInc. Napr. na MSSQL je prikaz SET IDENTITY ON|OFF
takze je mozne do AutoInc polozky zapsat i jinou nez defaultni hodnotu.
Ale to je pro kazdy DB stoj odlisne.
Marian Jonas
>Zdrav�m v�echny.
>V datab�zov� tabulce jsem si jako kl�� ud�lal field ,kter� bude auto -
>increment. Tak�e poka�d� ,kdy� p�id�m polo�ku se mi zv��� o hodnotu 1.
>Probl�mem je , �e kdy� z napln�n� tabulky sma�u n�jak� z�znam, tak mi
>vznikaj� "d�ry" v kl��i. D� se tohle n�jak o�et�it.
>D�ky moc.
Polozka navic do systemoveho menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.5.1999 22:53:46
roman.vasicek(zv)email(tec)cz wrote:
>
> Nazdarek
>
> Mam zrejme zacatecnicky dotaz. Potreboval bych pridat do systemoveho menu
> novou polozku. Jak to udelat a hlavne jak osetrit jeji vyber?
Ahoj,
Treba takhle:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
SC_MYCOMMAND = $100;
procedure TForm1.FormCreate(Sender: TObject);
var
SysMenu: HMENU;
begin
SysMenu := GetSystemMenu(Handle, FALSE);
AppendMenu(SysMenu, MF_SEPARATOR, 0, nil);
AppendMenu(SysMenu, MF_STRING or MF_BYCOMMAND, SC_MYCOMMAND, 'Kuk!');
end;
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
if Message.CmdType and $FFF0 = SC_MYCOMMAND then
begin
ShowMessage('Kuk!');
Message.Result := 0;
end else
inherited;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
DBGRID BEZ DATABAZE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.5.1999 22:53:02
"Petr Kro�a ml." wrote:
> Ahoj,
> potreboval bych do tabulky ulozit nejake polozky. Chtel bych pouzit
> komponentu TDBGrid, ale zaroven data nebudu cerpat z zadne databaze. Ve
> vysledku totiz bude tabulka jen vystupem meho vlastniho datoveho formatu.
>
> Ilustruji zjednodusenou situaci:
> 1) mam textovy soubor, na kazdem radku je jedno jmeno
> DAVID
> ANDREA
> MARTIN
> MILAN
>
> atd.
>
> 2) Rovnez mam vytvorenou DBGrid s jednim sloupeckem nazvanym JMENO.
> Jednoduse jsem zjistil, jak se tento sloupecek jmenuje pomoci
> Grd.Columns.Items[0].Title.Caption;
>
> Ale uz si nevim rady s tim, jak mam naplnit jednotlive radky temi jmeny.
> Pochopil jsem, ze to potrebuje nejaky Dataset, ale ten v komponentach
> nevidim.
Ahoj,
To jsi pochopil dobre. Budes potrebovat nejakeho potomka virtualniho
TDataSetu ktery umi nejak ukladat data. Jeden takovy je napriklad v
RxLib - TRxMemoryData, nebo ti muzu poslat i jeden muj.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
DOC open
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.5.1999 22:53:55
Dalibor Zliechovec wrote:
>
> Preco nie cez WinExec?
> Otvorenie suboru je v prikazovom riadku najlahsie "start menosuboru.doc".
> Windows pozrie s kym je subor asociovany (v nasom pripade Word) a zariadi
> otvorenie.
Ahoj,
Na tohle je lepsi pouzit ShellExecute nebo ShellExecuteEx:
uses
ShellAPI;
procedure TForm1.Button3Click(Sender: TObject);
var
Se: TShellExecuteInfo;
begin
ZeroMemory((zv)Se, Sizeof(Se));
Se.cbSize := Sizeof(Se);
Se.lpFile := 'readme.txt';
Se.nShow := SW_SHOWNORMAL;
Se.Wnd := Application.Handle;
ShellExecuteEx((zv)Se);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************