Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Pohyb formulare - podekovani
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 4.6.1999 16:11:43
Dekuji vsem za cenne rady ohledne zachyceni udalosti pohybu formulare.
Na zpravy Windows jsem ponekud zapomel, ale ted uz mam spoustu napadu jak
zpravy Windows vyuzit i jinak. Diky moc.
Jindrich Nikodem
PageControl
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 4.6.1999 16:19:13
Ahoj,
Ad 1) Zkus pouzit napriklad property
PageControl.ActivePage, tedy
if PageControl.ActivePage=TabSheet1 then...
Ad 2) Myslim, ze by to mohlo byt takto :
procedure TForm1.Edit1OnExit(Sender : TObject);
begin
if NEJAKA_PODMINKA_NENI_SPLNENA then
begin
MessageDlg(' Polozka neni spravne vyplnena');
Edit1.SelectAll;
if Edit1.CanFocus then Edit1.SetFocus;
Abort; { vyvolani "tiche" vyjimky }
end
else
NAPRIKLAD_ULOZIT_DO_DB
end; { procedure }
A k tem chybam pri POST-u : muzes pouzit
metodu OnPostError;
Dobra
> ----------
> 1. Mam na Forme okrem inych komponent aj komponentu PageControl s
> dvoma
> TabSheet(zalozky). Ako zistim z inej komponenty na Forme v kode ,
> ktora
> TabSheet je aktivna ?
>
> 2. Mam kod v udalosti OnExit. Da sa v tomto kode tato udalost zrusit ?
> Napr.
> mam EDIT a na nom naveseny OnExit. V OnExit testujem spravnost retazca
> v
> EDIT. Ak je retazec chybny, chcel by som aby kurzor ostal v EDIT.
> Tak isto pri POSTE kontrolujem spravnost udajov, ak je chyba chcel by
> som
> aby sa tieto udaje nezapisali.
>
> Boolean radeji ne (was: Re: Housenka)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.6.1999 16:24:31
Polak Jiri wrote:
> > > No tak, no tak, byte byl, je a asi jeste dlouho bude
> > > 8 bitu, takze se tam muze vejit maximalne 8 booleanu.
> >
> > Jak to? Je tam 8x true, nebo 8x false, or je soucet, takze
> > dohromady 16, ze?
>
> :-)
> To se trochu pletes, ten soucet je 1,
> protoze 1 or 1 = 1.
> Takze do jednoho byte se vejde 1 boolean.
> :-)
Kecy. Je tam 8 bitu... Je, ze jo? Kazdy bit tedy mohu oznacit jako
false (8x =0), nebo jako true (8x =1). Kdyz to sectu, vychazi mi 16.
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
null-terminated strins
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.6.1999 16:24:32
Tomas Skopik wrote:
> Muzete mi prosim poradit jak nejlip cist nulou zakoncene retezce ze
> souboru?
Trebas takto (nechavam tam nektere veci, musis si to upravit):
var
FFileHandle: THandle;
FFileMapping: THandle;
FFileBase: Pointer;
P:PChar;
s:string;
...
FFileHandle := CreateFile(PChar(FFileName), GENERIC_READ,
FILE_SHARE_READ,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if FFileHandle = INVALID_HANDLE_VALUE then
ExeError(CouldNotOpen+FFileName);
FFileMapping := CreateFileMapping(FFileHandle, nil,
PAGE_READONLY, 0, 0, nil);
if FFileMapping = 0 then ExeError(MappingFailed);
FFileBase := MapViewOfFile(FFileMapping, FILE_MAP_READ,
0, 0, 0);
P:=FFileBase;
s:=string(p);
Inc(P, Length(s)+1);
...
if FFileHandle <> INVALID_HANDLE_VALUE then
begin
UnmapViewOfFile(FFileBase);
CloseHandle(FFileMapping);
CloseHandle(FFileHandle);
end;
Samozrejme se stringama nemusis vubec zdrzovat a muzes jet
primo po PChar. Pokud jsou stringy v UNICODE, pak bude pouze
misto PChar PWChar.
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
Zamceny soubor
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 4.6.1999 16:24:25
Krame� David Ext. <David.Krames(zv)czech-tv(tec)cz> wrote:
> Tak nakonec to delam takto, snad je to dobre
> Jestli ne, dejte, prosim, vedet.
>
> FileHandle := FileOpen(Soubor, fmOpenWrite or fmShareExclusive);
> if FileHandle <= 0 then ..... zamceny ....
Hi,
mas tam drobnou chybu pri testovani vysledku. Spravne by melo byt
if FileHandle<0 then ....
ovsem profesional by asi napsal:
if (FileHandle=INVALID_HANDLE_VALUE) then
begin
ErrCode := GetLastError;
if ErrCode=ERROR_SHARING_VIOLATION) then
// zamceny ....
else if ....
// nejaky jiny bordel
else
end;
Pri tomto zapisu by D4 protestoval warningem pri porovnavani integer a
dword, protoze Borlandi jsou prasata a jejich funkce FileOpen:integer, ktera
pouze vola API funkci CreateFile(), klidne vraci jeji vysledek, prestoze je
typu dword, takze bych doporucil rovnou pouzivat funkce API:
FileHandle := CreateFile(
pChar(FileName),
GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
Bye, pf
Boolean radeji ne (was: Re: Housenka)
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.6.1999 17:33:58
>Kecy. Je tam 8 bitu... Je, ze jo? Kazdy bit tedy mohu oznacit jako
>false (8x =0), nebo jako true (8x =1). Kdyz to sectu, vychazi mi 16.
Jasne. Pak tam jsou ale taky bity ve stavu _pravda_ a _nepravda_. Tech je
taky 16. Takze celkem jich tam je nejmin 32!
Zdravi
D. Toman
Tab vs Down, OutlookBar
[*] Tuser Milan <tuser(zv)eltex(tec)cz> - 4.6.1999 18:59:29
Mam nasledujici problem:
Vytvorte si novou aplikaci a na prazdny formular umistete GroupBox, do nej
Edit a vedle nej dva buttony. Pak mackejte tabulator a focus se meni v
poradi Edit, Butt1, Butt2 (resp. Shift Tab, Butt2, Butt1, Edit). Potud vse
OK. Pak tabulatorem preskocte na Butt1 a stisknete sipku nahoru. A fokus
nikde (resp. ma ho GroupBox, na kterem to neni poznat). Jak zaridit, aby
sipka vzhuru fungovala stejne jako shift tab a sipka dolu stejne jako tab.
Samozrejme u podstatne slozitejsich formularu kde je treba i StatusBar(dela
to same)... Diky za kazde dobre rano (eh, prominte, za kazdou dobrou radu).
Nerad bych odchytaval klavesu sipka vzhuru a cpal tam shift tab, kdo vi, co
by to udelalo jinde...
Pak me trapi jeste jedna vec. Nevite nekdo o freeware komponente, ktera
vypada jako OutlookBar?
(takovej ten obdelnik s ikonama :o)
P.S.:Petre Vaclavku, diky za radu. Funguje to :)))
Jak se v Dlephi posilaji SMS (Paegas)
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 4.6.1999 18:16:38
> From: "Tonda Kmoch" <t.kmoch(zv)seznam(tec)cz>
> Prosim Vas,
> nejspise je muj dotaz "MIRNE" offtopic, ale vy budete odpoved zajiste
> znat. Ten email: +420603xxxxx(zv)sms.paegas(tec)cz se musi nekde zalozit, nebo je
> zalozen automaticky a pripraven na pouzivani? A dale, kdyz jsou ty email.
Zalozi se automaticky pri aktivaci uctu/telefonu zdarma
> adresy, napr.: pepa.novak(zv)sms.pageas(tec)cz plati se neco za prijem zpravy?
tohle zalozeni uz neni zdarma ale asi za 50,-
za prijem se neplati nic
>
> diky
> // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
> | >> Tony Kmoch <<
> | tonda(zv)kamarad(tec)cz
> | t.kmoch(zv)seznam(tec)cz
> | ICQ: #21901427
> | Czech rep., Europe
> +----------------------------------
> | Programmers Network CZ [www.prog(tec)cz]
> \\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
> (for czech recipients only:
> Prijimam cestinu v kodove strance ISO-8859-2)
>
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail:info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
TProgressBar jako soucast TStatusBar
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 4.6.1999 19:20:35
Nekde mam komponentu TFriendlyStatusBar a do ni lze vlozit cokoliv.
Pokud budes mit zajem, tak se mi ozvi (mimo konferenci)
cau PAVEL
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Petr Fejfar
> Sent: Friday, June 04, 1999 3:53 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: TProgressBar jako soucast TStatusBar
>
>
> Hi all,
>
> chtel bych, aby jeden z panelu u TStatusBar obsahoval progress
> bar. Zkousel
> jsem do nej vlozit TProgressBar, ale vzdycky mi ho nejaky TStatusPanel
> zastinil.
>
> Takze me jako jedine reseni napada pouzit bezny tStatusPanel a do nej v
> ramci event OnDrawPanel() si progress bar vykreslovat sam.
>
> Nezna, pls, nekdo nejake jine reseni?
>
> Thanx, pf
>
> Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 4.6.1999 22:08:02
Vazeny pane Rejchrt,
podle mne (a jestli jsem i ty ostatni dobre pochopil - jo i tu slecnu
vod Paegasu, kam jsem volal) jsou vase informace myslne. Za registrovani
email. boxu at uz je to cislo(zv)sms.paegas(tec)cz nebo jmeno(zv)sms.paegas(tec)cz se
skutence plati.
No v tom pripade TOTALNE NECHAPU TY, CO TVORI PROGRAMY NA ZASILANI SMSEK,
KDYZ TO DOJDE JEN TEM, CO SI TO ZAREGISTROVALI !!!!!!!
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
-----P�vodn� zpr�va-----
Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. �ervna 1999 11:47
P�edm�t: Re: Jak se v Dlephi posilaji SMS (Paegas)>Email: +420603xxxxxx(zv)sms.paegas(tec)cz je standardni pri koupy jakehokoliv
>telefonu Paegas. Nikde se nic neregistruje ani se za nic neplati.
>Email: vase.jmeno(zv)sms.paegas(tec)cz se aktivuje na strance www.paegas(tec)cz
funguje
>vsak pouze pro telefony Paegas s klasikym pausalem, ne pro Twist !
>
>Balda
>
>-----Puvodn� zpr�va-----
>Od: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 4. cervna 1999 10:57
>Predmet: Re: Jak se v Dlephi posilaji SMS (Paegas)
>
>>Prosim Vas,
>> nejspise je muj dotaz "MIRNE" offtopic, ale vy budete odpoved zajiste
>>znat. Ten email: +420603xxxxx(zv)sms.paegas(tec)cz se musi nekde zalozit, nebo je
>>zalozen automaticky a pripraven na pouzivani? A dale, kdyz jsou ty email.
>>adresy, napr.: pepa.novak(zv)sms.pageas(tec)cz plati se neco za prijem zpravy?
>>
>>diky
>>// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
>>| >> Tony Kmoch <<
>>| tonda(zv)kamarad(tec)cz
>>| t.kmoch(zv)seznam(tec)cz
>>| ICQ: #21901427
>>| Czech rep., Europe
>>+----------------------------------
>>| Programmers Network CZ [www.prog(tec)cz]
>>\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
>>(for czech recipients only:
>> Prijimam cestinu v kodove strance ISO-8859-2)
>>
>>
>
>
Cislo radku v TMemo
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 04.6.1999 22:23:40
Zdravim.
Da se nejak zjistit cislo radku ve kterem je kursor u TMemo ?
Potrebuju neco v tom smyslu jako
Memo1.Lines.Delete(radek_ ve_ kterem_ je_ kursor);
Asi jsem slepy ale krom SelStart jsem nic nenasel.
Dik eL..
P.S. RichEdit pouzit nemuzu.
TProgressBar jako soucast TStatusBar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.6.1999 01:15:42
Petr Fejfar wrote:
>
> Hi all,
>
> chtel bych, aby jeden z panelu u TStatusBar obsahoval progress bar. Zkousel
> jsem do nej vlozit TProgressBar, ale vzdycky mi ho nejaky TStatusPanel
> zastinil.
>
> Takze me jako jedine reseni napada pouzit bezny tStatusPanel a do nej v
> ramci event OnDrawPanel() si progress bar vykreslovat sam.
>
> Nezna, pls, nekdo nejake jine reseni?
Ahoj,
Ja to delam taky primo pomoci vykreslovani ve TStatusPanelu, prijde mi to
nejjednodussi.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
WWW browser v Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.6.1999 01:16:10
Daniel Jirasek wrote:
>
> Zdravim,
> potrebuji vytvorit WWW browser pod delphi (nejlepe implementovat IE40, nebo NN40),
> tak aby podporoval "PROXY server", umoznoval ovladat "Reaload", ...
> Neco jsem cet v konferenci, ze to de pomoci OLEContaineru, ale to se me nedari.
> Muze me nekdo poskytnou funkci zdrojak, jak to udelat?
Ahoj,
Musis si importovat HTML prohlizec z IE4 jako ActiveX contol.
V menu Component | Import ActiveX control vyber "Microsoft Internet Controls" a
v zalozce ActiveX se ti pak objevi TWebBrowser.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
pouziti CONST
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.6.1999 01:16:35
"Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o." wrote:
> no ja si dovedu docela dobre predstavit, ze se teto vlastnosti da s
> uspechem pouzit, nicmene co jsi Petre myslel tim, ze je ta writeable
Ano da, napriklad ke zmateni pripadnych dalsich programatoru kteri budou
takovy kod pouzivat :-)
> konstanta VICEMENE globalni (co je vicemene tehotna zena :-) )? Pokud je
Vicemene tehotna zena ? Patrne takova, u ktere to neni jeste uplne zjevne
navenek (podobne jako neni viditelna lokalni writeable konstanta), nicmene
uvnitr je jiz tato skutecnost jasne definovana (opet je zde podobnost s
chovanim lokalni writeable konstanty) :-))
> globalni, tak to cele ma vyznam jen esteticky (kod je prehlednejsi a v
> hlavnim programu nemusi byt globalne deklarovana spousta promennych).
> Kdy se tedy ta "lokalni" konstanta inicializuje (v nasem propade na 4)?
> Pouze pri prvnim pristupu do metody nebo jeste nekdy jindy ?
Tim jsem myslel, ze ma velmi podobne chovani jako staticke lokalni promenne
v C. Jsou sice viditelne pouze uvnitr deklarace dane funkce, ale po jejim
opusteni si stale zachovavaji svoji hodnotu. V pameti jsou ulozeny stejne
jako globalni promenne, a ne na stacku jako lokalni. Inicializace probiha
pouze jednou pri zavedeni aplikace, tak jako u globalnich promennych.
Podobne to vlastne popsal i Karel Cibulka.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
null-terminated strins
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.6.1999 01:16:50
Tomas Skopik wrote:
>
> Ahoj.
>
> Muzete mi prosim poradit jak nejlip cist nulou zakoncene retezce ze souboru?
Ahoj,
Uz se to tu resilo, ale www.delphi(tec)cz opet nejak spadlo, tak to posilam znova:
procedure TForm1.CreateBtnClick(Sender: TObject);
var
I, L: Integer;
CRLFStream: TStringList;
NullTermStream: TMemoryStream;
S: String;
begin // Jednoduche vytvoreni souboru s retezci ukoncenymi nulou
CRLFStream := TStringList.Create;
NullTermStream := TMemoryStream.Create;
try
CRLFStream.LoadFromFile('unit1.pas');
for I := 0 to CRLFStream.Count - 1 do
begin
S := CRLFStream[I];
L := Length(S);
if L > 0 then
NullTermStream.WriteBuffer(Pointer(S)^, L + 1)
else
NullTermStream.WriteBuffer(L, 1)
end;
NullTermStream.SaveToFile('NullStr.dat');
finally
CRLFStream.Free;
NullTermStream.Free;
end;
end;
procedure TForm1.ReadBtnClick(Sender: TObject);
var
FileHandle: THandle;
FileMapping: THandle;
FileBase: Pointer;
FileStart, FileEnd, NullChar: PChar;
S: String;
begin // Nacteni souboru do Memo1
Memo1.Lines.BeginUpdate;
try
Memo1.Lines.Clear;
FileMapping := 0;
FileBase := nil;
FileHandle := CreateFile('NullStr.dat', GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if FileHandle = INVALID_HANDLE_VALUE then
raise Exception.Create('CreateFile failed');
FileMapping := CreateFileMapping(FileHandle, nil, PAGE_READONLY, 0, 0, nil);
if FileMapping = 0 then
raise Exception.Create('CreateFileMapping failed');
FileBase := MapViewOfFile(FileMapping, FILE_MAP_READ, 0, 0, 0);
if FileBase = nil then
raise Exception.Create('MapViewOfFile failed');
FileStart := FileBase;
FileEnd := FileStart + GetFileSize(FileHandle, nil) - 1;
if FileEnd^ = #0 then
while FileStart < FileEnd do
begin
NullChar := StrScan(FileStart, #0);
SetString(S, FileStart, NullChar - FileStart);
Memo1.Lines.Add(S);
FileStart := NullChar + 1;
end;
finally
UnmapViewOfFile(FileBase);
CloseHandle(FileMapping);
CloseHandle(FileHandle);
Memo1.Lines.EndUpdate;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Cislo radku v TMemo
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 5.6.1999 08:10:20
No, mozna jsem taky slepy, ale taky jsem nevymyslel nic jineho nez scitat delky radku tak dlouho, az narazim na SelStart.
Pravda, bylo to nekdy v roce 1995 (Delphi1).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: eL <eL_z_Prahy(zv)seznam(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Cislo radku v TMemo
> Datum: 4. �ervna 1999 22:23
>
> Zdravim.
> Da se nejak zjistit cislo radku ve kterem je kursor u TMemo ?
> Potrebuju neco v tom smyslu jako
>
> Memo1.Lines.Delete(radek_ ve_ kterem_ je_ kursor);
>
> Asi jsem slepy ale krom SelStart jsem nic nenasel.
>
> Dik eL..
>
> P.S. RichEdit pouzit nemuzu.Mesage
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 5.6.1999 08:16:05
Zpravu muzes odchytit na kazdem objektu, ktery je odvozen od TWinControl - ma totiz Handle a je oknem ve smyslu Windows..
Temto objektum tudiz muzes take zpravy posilat (PostMessage, SendMessage).
Takze to nepujde napriklad na TLabel, atd.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
Odes�latel: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Mesage
Datum: 4. �ervna 1999 13:52
jo tak ta prvni moznost ta by fungovala, ale co kdyz chci tu zpravu odchytit na nejjakym objektu.
-----P�vodn� zpr�va-----
Od: Jirka Majvald <majvald(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 3. �ervna 1999 16:25
P�edm�t: Re: Mesage
Do tveho formulare napis jednu metodu tohoto tvaru
procedure MyMessage(var Msg: TMessage);message WM_xxxxxx
nebo prepsanim Win Proc
procedure WndProc(Var Msg : TMessage);override;
.
procedure TFormMain.WndProc(Var Msg : TMessage);
begin
if (Msg.Msg = WM_SYSCOMMAND) and (Msg.WParam = SC_MINIMIZE) then
Begin
.
.
Exit;
end;
inherited WndProc(Msg);
end;
Doufam ze ti pomohu
Jirka Majvald
----- P�vodn� zpr�va -----
Od: Pavel Vake�
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 3. �ervna 1999 14:09
P�edm�t: Mesage
Mohl by mi nekdo poradit jak zareagovat na zpravu windows.
Potreboval bych zareagovat na nejakou zpravu ktera se tyka meho Formu a
nevim vubec jak na to.
GetMessage reaguje na zpravy ale zakousne mi cely program dokud nenarazi na nejakou zpravu.
A s ostatnimi funkcemi si nevim rady. OnPaint...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.6.1999 08:45:37
Bene� Jaroslav wrote:
> Potreboval bych radu jak prekreslit vizualni komonentu, ktera nema onpaint
> event a prekresluje se jinak v IDE a jinak za behu. Dekuji Jaro B.
Je treba ji prepsat potomkem, ale v ktere metode se to dela, ti
neporadim, protoze zpusobu je vic. Takze zalezi na komponente.
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
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 5.6.1999 09:32:49
> No v tom pripade TOTALNE NECHAPU TY, CO TVORI PROGRAMY NA ZASILANI
> SMSEK, KDYZ TO DOJDE JEN TEM, CO SI TO ZAREGISTROVALI !!!!!!!
Pokud nekdo chce _opravdu_vazne_ odesilat SMS na rekneme firemni urovni,
je pro neho nejlepsi reseni nejaky GSM terminal - krabicka s konektorem pro
antenu a SIM kartu. Napriklad Siemens M1 (cena 25000,-) dodavaji jak Paegas
tak Eurotel, modul umoznuje prenos dat, faxu i SMS. Je vybaven RS232C
konektorem (V.24) a ovlada se pomoci AT prikazu. Podrobnejsi informace a
recenze na www.mobil(tec)cz
Leos
null-terminated strins
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 5.6.1999 10:13:59
Ahoj,
diky za rady. Jeste bych se rad zeptal jaky je rozdil mezi pouzitim standartniho CreateFile a TFileStream.Create? Me pripada to TFileStream.Create jednodussi.
Mam to nejak takhle :
===
procedure TForm1.Button1Click(Sender: TObject);
var
S: TFileStream;
Buff: array[1..2048] of Byte;
BuffLoad: LongInt;
begin
S := TFileStream.Create('Soubor.dat', fmOpenRead);
try
BuffLoad := S.Read(Buff, SizeOf(Buff));
StatusBar1.Panels[0].Text := 'Precteno : ' + IntToStr(BuffLoad) + ' Bajtu z ' + IntToStr(S.Size);
finally
S.Free;
end;
end;
===
Jenze, kdyz je ten soubor uz otevreny, nebo neexistuje tak nahlasi vlastni chybu a ja bych potreboval dat tam vlastni chybove hlaseni. Jde to nejak osetrit?
Bye,
----------
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
Horke klavesy
[*] Ivomir <Ivomir(zv)seznam(tec)cz> - 5.6.1999 10:54:24 -0000
Urcite trivialni otazka ale presto: kde muzu trebas tlacitku pridelit kombinaci
horkych klaves v Delphi3?
Ivomir
----------------------------------------------------------------
MAIL: Ivomir(zv)seznam(tec)cz ICQ: 28872917
WWW: http://ivomir.fd(tec)cz MOBIL:0602/831270
Boolean radeji ne (was: Re: Housenka)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.6.1999 13:55:44
Dalibor Toman wrote:
> >Kecy. Je tam 8 bitu... Je, ze jo? Kazdy bit tedy mohu oznacit jako
> >false (8x =0), nebo jako true (8x =1). Kdyz to sectu, vychazi mi 16.
>
> Jasne. Pak tam jsou ale taky bity ve stavu _pravda_ a _nepravda_. Tech je
> taky 16. Takze celkem jich tam je nejmin 32!
Jenze to plati jen pro Cechy, americani jich tam maji jen 16.
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
Posunovac k MediaPlayeru, MP3, kopirovani Objektu
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 5.6.1999 20:01:48
Potreboval bych pomoci s temito problemy:
1. Posunovac k MediaPlayeru
Kdyz prehravam nejaky zvuk, animaci nebo audio CD pres MediaPlayer, tak bych k tomu rad udelal takovy ten posunovac pozice prehravani. Vubec by me nevadilo, kdybych k tomu musel pouzit jinou komponentu, nez tezkopadny TMediaPlayer. Jinak by me ke stesti zatim stacila nejaka procedura, ktera by dokazala nastavit od ktere do ktere pozice (asi v mikrosekundach) se ma zvuk prehravat a funkce vracejici aktulani pozici.
2. Prehravani MP3
Potreboval bych udelat prehravac MP3 souboru. Pouzivat budu zakladni funkce Play, Pause, Stop a onen posunovac preve hrane pozice. Mam k tomu sice nejakou DLL knihovnu, ale nevim, jake maji v ni uvedene procedury parametry.
3. Kopirovat Panel s tim co na nem je
Vytvorit nejaky objekt za behu programu umim, ale chtel bych zkopirovat objekt typu TPanel i se vsemi objekty ktere na nem (v nem) jsou (dalsi panely, buttony, image...). Urcite to musi jit jednoduseji, nez vytvaret kazdy objekt zvlast.
Pokud znate reseni nektereho z uvedenych problemu, tak mi prosim napsite.
Diky
vobornik(zv)ssakhk(tec)cz
TComboBox
[*] Ivomir <Ivomir(zv)seznam(tec)cz> - 6.6.1999 09:19:21 -0000
Existuje komponenta tComboBox, ktera by mela v properties AUTOSIZE
a prip. READONLY a udalost ONMOUSEMOVE????
Ivomir
----------------------------------------------------------------
MAIL: Ivomir(zv)seznam(tec)cz ICQ: 28872917
WWW: http://ivomir.fd(tec)cz MOBIL:0602/831270
Cislo radku v TMemo
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.6.1999 11:56:14
Jan �ebel�k wrote:
> No, mozna jsem taky slepy, ale taky jsem nevymyslel nic jineho nez scitat
> delky radku tak dlouho, az narazim na SelStart. Pravda, bylo to nekdy v
> roce 1995 (Delphi1).
:-)
...
RowCol: TLabel;
var
x,y:integer;
begin
with Memo do
begin
y:=SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
x:=SelStart-SendMessage(Handle, EM_LINEINDEX, y, 0);
end;
RowCol.Caption:=Format('%d : %d', [y+1, x+1]);
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
windows SHELL
[*] Tom� Sypal <sypal(zv)seznam(tec)cz> - 06.6.1999 12:58:05
Ahoj,
nepotkali jste nahodou pri toulkach po Internetu nejaky zdrojak k Windows shellu ? V nekterych bezpecnostnich ohledech mi totiz naprosto nevyhovuje standartni EXPLORER.EXE. Proto bych ho chtel nahradit necim jinym, ovsem vim, ze vyvinout z niceho cely shell by bylo hodne casove narocne. Rad bych proto jiz neco hotoveho.
Nebo pokud by nebyl zdrojak, docela by stacil i hotovy shell, ktery by mel vetsi moznosti bezpecnostnich nastaveni (napr. Novy zastupce atd). S poleditem a tweakui se totiz neda ochranit celkem hodne der explorera. Na shareware.com je nekolik stovek desktopu, ale jiste uznate, ze vsechno to postahovat a prohlizet je nadlidsky ukon. Nemate tedy nekdo typ na nejaky dobry a ozkouseny shell ?
Diky Tom
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
TMemoryStream & HTTP Response
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 6.6.1999 16:22:49
Ahoj,
pravdepodobne mi to uz pomaly prestava mysliet :-))) Ako by ste riesili
vyhladanie urciteho retazcu nad datami zapuzdrenymi instanciou objektu
TMemoryStream?
Preliest to v cykle (nic lepsie som nevymyslel...)?
rw
Events - OLE Auto
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 6.6.1999 21:38:24
Na eventy v MS Wordu mas v Delphi 4 priklad. Me by spis zajimaly parametry
techle eventu, ty se mi nedari odchytit. V excelu je napr event pro zmenu sesitu,
v parametru ma byt aktualni sesit, ale neni tam nic.
Radim
----------
> Odes�latel: code2019(zv)post(tec)cz
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Events - OLE Auto
> Datum: 7. �ervna 1999 18:50
>
> Ahoj
>
> Nevite nekdo, jak obsluhovat udalosti OLE Automation objektu? (napr. pri zavreni MS Wordu ~ tusim onQuit)
>
> S pozdravem Jan Slama
> TMemoryStream & HTTP Response
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.6.1999 23:52:52
"No Comemnt Group, s.r.o. / Sales Department" wrote:
>
> Ahoj,
>
> pravdepodobne mi to uz pomaly prestava mysliet :-))) Ako by ste riesili
> vyhladanie urciteho retazcu nad datami zapuzdrenymi instanciou objektu
> TMemoryStream?
>
> Preliest to v cykle (nic lepsie som nevymyslel...)?
Ahoj,
Pokud si ten retezec v TMemoryStream ukoncis nulou, tak pak muzes pouzit
funkci StrPos.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Horke klavesy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.6.1999 23:52:15
Ivomir wrote:
>
> Urcite trivialni otazka ale presto: kde muzu trebas tlacitku pridelit kombinaci
> horkych klaves v Delphi3?
Ahoj,
Hotkey u Buttonu se dela standartne zapsanim znaku & do jeho titulku pred znak ktery
se pak pouzije jako kombinace s klavesou ALT. Napriklad zapsanim &Select bude reagovat
na ALT + S.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
null-terminated strins
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.6.1999 23:52:39
Tomas Skopik wrote:
>
> Ahoj,
>
> diky za rady. Jeste bych se rad zeptal jaky je rozdil mezi pouzitim standartniho CreateFile a TFileStream.Create? Me pripada to TFileStream.Create jednodussi.
Ahoj,
TFileStream je VCL trida pro praci se soubory, ktera se snazi tuto cinnost
zjednodusit. Naproti tomu pouziti CreateFile ti dava vice moznosti.
> Mam to nejak takhle :
>
> ===
> procedure TForm1.Button1Click(Sender: TObject);
> var
> S: TFileStream;
> Buff: array[1..2048] of Byte;
> BuffLoad: LongInt;
> begin
> S := TFileStream.Create('Soubor.dat', fmOpenRead);
^^^^^^^^^^
Tady by jsi mohl pridat jeste fmOpenShareDenyWrite aby byl soubor dostupny pro
sdileni ke cteni.
> Jenze, kdyz je ten soubor uz otevreny, nebo neexistuje tak nahlasi vlastni chybu a ja bych potreboval dat tam vlastni chybove hlaseni. Jde to nejak osetrit?
Odchycenim vyjimky kterou si pak sam obslouzis.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Boolean radeji ne
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.6.1999 07:06:54
> -----Original Message-----
> From: jaroslav.ostadal.fs(zv)vsb(tec)cz [mailto:jaroslav.ostadal.fs(zv)vsb(tec)cz]
> Sent: Sunday, June 06, 1999 5:56 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Boolean radeji ne
>
> > Kde by se jich tam 8 vzalo? Je tam 1 bit, protoze
> > 1 or 1 or 1 or 1 or 1 or 1 or 1 or 1 = 1
>
> Uz si zacinam pripadat jak ve cvokarne. Vsak nahore pisu, ze or je
> soucet, a jak ti i moje dcera, ktera chodi do 1. tridy, potvrdi, tak
> 1+1+1+1+1+1+1+1=8.
>
> jsem tu upne novy. A nemate to jedno kolik tam Booleanu ??
> tim nerikam ze bych se to nechel dovedet.
> ale uz mi pripada ze se chovate jak mali kluci.
> Myslim ze ten co chtel pomoci uz pomoc dostal.
> ale spusta problemu je jeste pred vami.
> tak bych tu nestracel cas z takovym zbytecnym hadanim.
> Pokud jsem se nekoho dotknul at mi posle majla
> a ja se mu co nejhlubeji omluvim.
>
> S uctou
> Jim
> p.s Myslim ze smyslem konference je pomahat si navzajem a ne
> se tu osocovat.
>
Ale tady nikdo nikoho neosocoval. Jestli sis nevsiml, resi se tu docela
zavazny problem.
Ja myslim, ze je tato diskuse velmi poucna. A ze pro kazdeho, kdo nevi,
kolik bitu
tvori jeden byte, je urcite velkym prinosem.
Chtel bych taky podotknout, ze pocet bitu, ktere se tam vejdou, je zavisly
na mediu, ve kterem je byte prechovavan. Nejvice booleanu se vejde do
registru
procesoru, o neco mene do RAM, o neco mene na harddisk, jeste mene na floppy
a nejmene na ReadOnly medium. Souvisi to totiz s rychlosti pameti.
Protoze jeden byte muze nabyvat v konkretnim case urcite hodnoty a pocet
booleanu,
ktere se do nej vejdou, je primo zavisly na rychlosti, s jakou je do nej
muzeme cpat.
Rekneme, ze doba zapisu byte na medium trva 10 ms, to znamena, ze ten byte
je schopen
obsahovat 100 x 8 booleanu za sekundu. Samozrejme s pomalejsim mediem
kapacita klesa :-(
Nejhorsi z pohledu kapacity je read only medium, ktere obsahuje pouze 8
booleanu
v kteremkoliv case (osobne si myslim, ze takove medium nema zadny smysl a
cena
za ulozeni jednoho bitu je prilis vysoka na to, aby bylo komercne zajimave
:-)
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!TProgressBar jako soucast TStatusBar
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 7.6.1999 07:20:27
Ahoj
ja to resim takto :
ProgressBar1.parent:=StatusBar1;
ProgressBar1.Left:=2;
ProgressBar1.Top:=4;
ProgressBar1.Height:=StatusBar1.Height-6;
Zdenek Fryz
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> > Behalf Of Petr Fejfar
> > Sent: Friday, June 04, 1999 3:53 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: TProgressBar jako soucast TStatusBar
> >
> >
> > Hi all,
> >
> > chtel bych, aby jeden z panelu u TStatusBar obsahoval progress
> > bar ... Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] voltrr1.epr(zv)mail.cez(tec)cz - 7.6.1999 06:28:00
> > No v tom pripade TOTALNE NECHAPU TY, CO TVORI PROGRAMY NA ZASILANI
> > SMSEK, KDYZ TO DOJDE JEN TEM, CO SI TO ZAREGISTROVALI !!!!!!!
> antenu a SIM kartu. Napriklad Siemens M1 (cena 25000,-) dodavaji jak
Paegas
Ja ti mohu osvetlit proc jsem udelal program SMS Reminder (ke stazeni na
www.mobil(tec)cz) -
protoze jsem chtel pro sebe nahradit diar a potreboval jsem neco co me
napr. zejtra v 16.00
zapipa a neco napise. A protoze mobil nosim u sebe furt je to idealni
(pokud mas pevnou linku)
A tak jsem to udelal. Registrovanej email je proste podminka a zatim se me
nezda ze by to
byl nejakej problem.
Radek
TComboBox
[*] Norbert ADAMKO <norris(zv)frdsa.utc.sk> - 07.6.1999 07:40:02
At 09:19 6.6.1999 +0000, you wrote:
>Existuje komponenta tComboBox, ktera by mela v properties AUTOSIZE
>a prip. READONLY a udalost ONMOUSEMOVE????
Mam komponent TEnhComboBox, ktory ma AutoSize, naco je dobre ReadOnly?
Ak mas zaujem, je to na www.delphipages.com v baliku spolu s TImgComboBox,
pripadne mozem zaslat na sukromny mail.
--------------------------
Norbert ADAMKO
University of Zilina
--------------------------
mailto:norris(zv)frdsa.utc.sk
http://norris(zv)frdsa.utc.sk
--------------------------
TMemoryStream & HTTP Response
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 7.6.1999 08:10:10
No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> wrote:
>pravdepodobne mi to uz pomaly prestava mysliet :-))) Ako by ste riesili
>vyhladanie urciteho retazcu nad datami zapuzdrenymi instanciou objektu
>TMemoryStream?
>
>Preliest to v cykle (nic lepsie som nevymyslel...)?
Hi,
Tato uloha bude vzdy obsahovat iteraci, je jen otazka, jak bude vypadat
:-)))
Ty mas zrejme na mysli neco takoveho:
for Position:=0 to Size-length(MatchPattern) do
asm
...
repe cmpsb
jne (zv)(zv)NotFound
...
end
K tomu snad jen poznamka, ze se vyplati vyuzit sirku sbernice procesoru a
misto po bytech porovnavat ctverice pomoci cmpsd, pak zbyle dvojice pomoci
cmpsw a nakonec pripadny plonkovy byte.
***
Existuje ale zajimavejsi algoritmus (tusim se jmenuje heuristicke hledani),
kde si nejprve k hledanemu textu sestavis tabulku, na kolikate pozici ve
hledanem textu se vyskytuje dany znak napr. (plati pro short string):
...
lea esi,[MatchPattern]
lea edi,[Table]
xor ebx,ebx
mov bl,[esi] ;delka MatchPattern
(zv)(zv)ConvTable:
mov al,[esi+ebx]
xchg al,bl
mov [edi+ebx],al
xchg al,bl
dec ebx
jnz (zv)(zv)ConvTable
...
vlastni hledani textu se provadi od konce s uzitim teto tabulky, ktera
umoznuje na zaklade znalosti vyskytu jednotlivych znaku nektere preskakat,
napr. takto (schematicky):
asm
...
lea ebx,[Table] ;zacatek tabulky vyskytu znaku
lea edi,[Memory] ;zacatek bufferu s textem
mov edx,edi ;zarazka pro konec cyklu
add edi,[Size] ;posledni
dec edi ;znak
xor eax,eax
(zv)(zv)Search:
mov al,[edi] ;znak z prohledavaneho textu
xlat ;prevod na pozici vyskytu znaku v
MatchPattern
cmp al,1
je (zv)(zv)UseCmps ;porovnat cely retezec pomoci repe
cmps.
or al,al
jnz (zv)(zv)SkipAll ;posunout se o celou delku MatchPattern
sub edi,eax ;posunout se o pozici,
inc edi ;na ktere se vyskytl znak
...
(zv)(zv)Loop:
cmp edi,edx
ja (zv)(zv)Search
...
end
Tento algoritmus jsem zkousel pri praci se short strings jako nahradu za
funkci pos() pri realizaci operace "like %MatchPattern%" a nenameril jsem
statisticky vyznamne rozdily. Pri prohledavani delsich textu bude tento
algoritmus vyhodnejsi.
Bye, pf
P.S. Nejak jsem nevycetl, co ma tvuj dotaz spolecneho s HTTP response v
Subjectu :-(
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 7.6.1999 08:42:50
Leos Urban <Leos.Urban(zv)aitix(tec)cz> wrote:>Napriklad Siemens M1 (cena 25000,-) dodavaji jak Paegas
BTW, M1 Siemens uz od lonskeho roku nevyrabi a jeji nahrada M20 trpi zatim
dost vaznymi detskymi chorobami (prestoze Siemens pred 3 tydny uvolnil novy
FW verze 1.003). Ostatne u M1 trvalo taky nekolik let, nez Siemens upravil
FW do pouzitelne podoby. Take cena je dost nadsazena: jak roste konkurence,
jdou ceny GSM modulu dolu. Dneska se daji nakoupit zhruba za polovinu. A
existuji moduly, ktere se daji nakoupit i pod 8000,- Kc.
>tak Eurotel, modul umoznuje prenos dat, faxu i SMS. Je vybaven RS232C
>konektorem (V.24) a ovlada se pomoci AT prikazu. Podrobnejsi informace a
>recenze na www.mobil(tec)cz
Chtel bych upozornit, ze naprogramovat uplnou obsluhu SMS operaci neni tak
uplne trivialni zalezitost. Jednak proto, ze dokumentace vyrobcu se v
podrobnostech odkazuji na ETSI normy, ktere napr. na Internetu nesezenes,
max. tak adresu, na ktere si je za 20000,- CHF muzes objednat na CD. A pak
skutecnost, ze zadny z GSM modemu tyto normy uplne nesplnuje (nejbliz byl
asi Ericsson). Navic se kazdy modem chova trochu jinak v ruznych GSM sitich,
u nas treba Paegas/Eurotel a napr. vyse zminena M20 trpi neduhy, ktere se v
nemeckych GSM sitich zrejme nevyskytuji (telefonicky jsem konzultoval
nektere problemy s jejich technickou podporou v Nemecku) a navic, Siemens
negarantuje, ze to mimo Nemecke site bude pracovat).
Kdybych to zjednodusil, tak pokud si nekdo neni schopen/ochoten napsat
faxovani rekneme CLASS 2, nemel by se do toho asi poustet.
Bye, pf
P.S. Ver mi, ze vim, o cem mluvim. CallNET je totiz SW, ktery jako jeden z
mala podporuje praci s GSM modemy od 10 ruznych vyrobcu.Delphi 400 verze 4.1
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 7.6.1999 08:53:01
D�ky za upozorn�n�, jaksi jsem si nev�ml cel�ho textu:
Nov� verze
Delphi/400 V4.1
pro IBM AS/400
Ja pouzivam D4 Profesional takze ti nepomohu se skusenostmi.
databazovy stroj pouzivam FlashFiler, kteru najde na (to neni propagace):
http://www.clexpert(tec)cz/software/turbopower/flashfiler.asp
Pavel ZIDEK
----------
> Odes�latel: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Delphi 400 verze 4.1
> Datum: 4. �ervna 1999 14:21
>
> > -----Original Message-----
> > From: Pavel ZIDEK [mailto:kopr(zv)kopr(tec)cz]
> > Sent: Friday, June 04, 1999 1:48 PM
> > To: DELPHI forum
> > Subject: Delphi 400 verze 4.1
> >
> >
> > Na www.borland(tec)cz jsem narazil na novou verzi D4 a to v 4.1
> > Vi nekdo o co jde a jestli ma cenu Upgradovat (nebo
> > Updatovat) starou D4.
>
> To je dobre, ze se ozval nekdo, kdo pracuje s AS 400.
> Bohuzel neznam odpoved na Tvuj dotaz, ale vyuziju
> prilezitosti. Delphi pro AS 400 tady mame asi druhy tyden
> (ve verzi 4.1) a jeste se k tomu nikdo nedostal.
> Podle dotazu soudim, ze s tim mas nejake zkusenosti
> a chci se Te zeptat - je to D400 pouzitelne?
> Jaky databazovy pristup pouzivas? Pres BDE nebo nativni komponenty?
>
>
> 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!OnKeyPress a pipnuti
[*] Milan N�mec <nemec(zv)goldcard(tec)cz> - 7.6.1999 08:58:55
Ahoj,
V metode, ktera reaguje na udalost OnKeyPress
odchytavam zmacknuti klavesy. Kdyz chci reagovat
na zmacknuti klavesy na numericke klavesnici, tak
to sice funguje, ale potom to pipne.
Jak to udelat, aby to nepipalo?
Dik
Milan
Pruhledny Form
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 7.6.1999 09:42:04
Ahoj Delph�ci,
m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby jedna barva
tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem objevil, je
TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
pr�hlednosti jedn� barvy obr�zku?
D�k. Jara.DBGrid a barvicky
[*] Richard Sladek <richard_sladek(zv)hotmail(tec)com> - 07.6.1999 07:43:15 pdt
Jednoduchsie riesenie je pouzit komponentu RxDBGrid z RxLib, ktora ma
event-handler (na nazov si momentalne nespominam), pomocou ktoreho mozno
nastavit formatovacie atributy (farba, pismo a pod.) pre kazdu bunku osve.
Vyhoda je ta, ze netreba manualne vykreslovat celu tabulku, pretoze
DefaultDrawing normalne funguje.
Richard Sladek
>From: "Hrabi of Chmeliste" <MHrabanek(zv)merlin(tec)cz>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: <delphi-l(zv)fwd(tec)cz>
>Subject: Re: DBGrid a barvicky
>Date: Fri, 4 Jun 1999 13:37:30 +0100
>
>
> >DBGrid a potrebovat bych, aby nektere radky v DBGrid byly psany jinou
> >barvou pisma. Jak na to?
>
>
>Staci vypnout propertu DefaultDrawing (tedy nastavit na False) a obsadit
>event OnDrawCollumnCell.
>Myslim, ze v helpu je primo priklad, takze by nemel byt problem.
>V tom eventu dostanes, kde jsi, tak se rozhodni pro nejakou barvu a men dle
>libosti (Canvas.brush, Canvas.font toho gridu, nebo co :-).
>
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
copy file + zmacknuti Esc pri spusteni prog.
[*] Standa Kunc <obkstan(zv)obaka-karvina(tec)cz> - 7.6.1999 10:00:57
Dobry den,
nevim, jestli uz jsem senilni, ale nevim jak proste prekopirovat soubor odnekud nekam (v helpu jsem nic nenasel, pouzivam D1).
Druhy dotaz:
Casto spoustim jeden program, ktery pri startu vyhodi uvodni obrazovku a dokud nezmacknu klavesu Esc, otravuje s obrazkama. Muzete mi poradit, jak identifikovat to okno a jestlize to je ono, pak zmacknout Esc?
Diky predem...
S. Kunc
WWW browser v Delphi
[*] Daniel Jirasek <daniel_jirasek(zv)conel(tec)cz> - 7.6.1999 10:15:44
OK,
to funguje, ale jeste jsem se chtel zeptat, zda je mozne nekde od toho stahnou dokumentaci.
Konkretne me zajima, jak udelat neco jako je v IE "Reaload" ("Obnovit"). V tom objektu ActiveX je sice
funkce "Refresh", ale pokud se pouziva PROXY server, tak je nepouzitelna, protoze to porad
refreshuje z cache (v IE to chodi dobre).
Daniel Jirasek - Conel s.r.o.
Daniel Jirasek wrote:
>
> Zdravim,
> potrebuji vytvorit WWW browser pod delphi (nejlepe implementovat IE40, nebo NN40),
> tak aby podporoval "PROXY server", umoznoval ovladat "Reaload", ...
> Neco jsem cet v konferenci, ze to de pomoci OLEContaineru, ale to se me nedari.
> Muze me nekdo poskytnou funkci zdrojak, jak to udelat?
Ahoj,
Musis si importovat HTML prohlizec z IE4 jako ActiveX contol.
V menu Component | Import ActiveX control vyber "Microsoft Internet Controls" a
v zalozce ActiveX se ti pak objevi TWebBrowser.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************TProgressBar jako soucast TStatusBar
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 7.6.1999 10:18:25
Fryz, Zdenek <fryz(zv)dcb(tec)cz> wrote:
>ProgressBar1.parent:=StatusBar1;
>ProgressBar1.Left:=2;
>ProgressBar1.Top:=4;
>ProgressBar1.Height:=StatusBar1.Height-6;
Hi,
Diky za radu. Vyzkousel jsem to znovu a ono to _skutecne_ pracuje. Skoro
bych prisahal, ze takhle jsem to zkousel a nejak mi ten ProgressBar mizel
pod panely, tak jsem napsal ten dotaz. Ale nejspis jsem se nekde upsal :-(
Thanx, pf
Pruhledny Form
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.6.1999 10:22:57
U glyphu se to dela tak, ze trasparetni barvou
je barva v levem hornim rohu toho obrazku.
Pruhlednosti Formu dosahnes (pisu z hlavy)
Form1.BrushStyle:=bsClear;
Dobra.
> ----------
> m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby jedna
> barva
> tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem objevil,
> je
> TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
> pr�hlednosti jedn� barvy obr�zku?
> D�k. Jara.
> Odstraneni HTML znacek
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 7.6.1999 10:27:23
> co je v tomto prikladu komponenta "memo1" ?
> pouziva metody, napr. FindText('<body',true,true,false), ktere neznam
> pouzivam D3
Jde o TRXRichEdit z RX Library.Pruhledny Form
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 7.6.1999 10:28:42
Ahoj,
na pruhlednost formu pouzivam
Form.brush.style := bsClear ;
treba v udalosti OnCreate;
> -----P�vodn� zpr�va-----
> Od: SPELZA s.r.o. [SMTP:spelzasro(zv)brno.comp(tec)cz]
> Odesl�no: 7. �ervna 1999 9:42
> Komu: DELPHI
> P�edm�t: Pruhledny Form
>
> Ahoj Delph�ci,
> m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby jedna
> barva
> tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem objevil,
> je
> TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
> pr�hlednosti jedn� barvy obr�zku?
> D�k. Jara.Pruhledny Form
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 7.6.1999 10:47:04
----- P�vodn� zpr�va -----
Od: SPELZA s.r.o. <spelzasro(zv)brno.comp(tec)cz>> Ahoj Delph�ci,
> m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby jedna barva
> tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem objevil, je
> TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
> pr�hlednosti jedn� barvy obr�zku?
> D�k. Jara.
V OnCreate formulare nastav
Brush := bsClear;
to ti nakresli pruhledny formular
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
OnKeyPress a pipnuti
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.6.1999 10:50:49
Nevim sice, proc to pipa, ale rozhodne
to prestane pipat, pokud po zpracovani
klavesy das Key:=#0;
Dobra.
> ----------
> V metode, ktera reaguje na udalost OnKeyPress
> odchytavam zmacknuti klavesy. Kdyz chci reagovat
> na zmacknuti klavesy na numericke klavesnici, tak
> to sice funguje, ale potom to pipne.
>
> Jak to udelat, aby to nepipalo?
>
> WWW browser v Delphi
[*] Daniel Jirasek <daniel_jirasek(zv)conel(tec)cz> - 7.6.1999 11:05:45
Ta funkce tam sice je, ale nevim jak nastavit tu uroven (nemam manual od te komponenty).
Zkousel jsem tam nacpat cisla od 0-10, ale nic.
Dan
-----Puvodni zprava-----
Od: voltrr1.epr(zv)mail.cez(tec)cz [SMTP:voltrr1.epr(zv)mail.cez(tec)cz]
Odeslano: 7. eervna 1999 11:36
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: WWW browser v Delphi
> ActiveX je sice
> funkce "Refresh", ale pokud se pouziva PROXY server, tak je nepouzitelna,
protoze to
> porad
> refreshuje z cache (v IE to chodi dobre).
Mam za to ze je tam jeste jedna funkce Refresh 2(Level) ve ktere si muzes
nastavit uroven Reloadu
a podle toho se to vezme bud z cache nebo ze serveru.
Radek
WWW browser v Delphi
[*] voltrr1.epr(zv)mail.cez(tec)cz - 7.6.1999 10:36:17
> ActiveX je sice
> funkce "Refresh", ale pokud se pouziva PROXY server, tak je nepouzitelna,
protoze to
> porad
> refreshuje z cache (v IE to chodi dobre).
Mam za to ze je tam jeste jedna funkce Refresh 2(Level) ve ktere si muzes
nastavit uroven Reloadu
a podle toho se to vezme bud z cache nebo ze serveru.
Radek
WWW browser v Delphi
[*] tmara(zv)itsys(tec)cz - 7.6.1999 12:19:20
Halloa ALL!
Mam par dotazu, takze zacinam....
1) jak mohu z�delphiho zmenit kurzor ve Windows? (chtel bych ten, jak
signalizuje, ze "se maka"....)
2) jak mohu z�delphiho nastavit rozliseni Windows?
3) Jak mohu z�delphiho nacitat webove stranky? Staci jenom nacist
stranku z�urciteho URL...
4) Jak mohu zmenit e-mail, kam mi budou chodit dotazy a odpovedi z�t�to
konference?
Thanx a lot....ByE.
P.S. Mam Delphiho 3 C/S a potreboval bych to do Wir95/98
PVCS
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 7.6.1999 12:20:00
Nemate nekdo zkusenosti z PVCS, ktery je dodavany
z Delphi C/S?
Petr
copy file + zmacknuti Esc pri spusteni prog.
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 07.6.1999 12:33:48
>nevim, jestli uz jsem senilni, ale nevim jak proste prekopirovat soubor
odnekud nekam (v helpu jsem nic nenasel, pouzivam D1).
procedure _CopyFileX(odkud,kam:string);
var chyba: longbool;
begin
chyba:=false;
CopyFile(Pchar(odkud),Pchar(kam),chyba);
end;
Heretic-x
None
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 7.6.1999 13:03:43
> 1) jak mohu z�delphiho zmenit kurzor ve Windows? (chtel bych ten, jak
> signalizuje, ze "se maka"....)
Screen.Cursor := crHourGlass;
..
..
Screen.Cursor := crDefault;
Dalsi konstanty viz help.
Slavek
-------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------------------------------
ChartFX
[*] Libor Thiel <thiel(zv)elapsh(tec)cz> - 7.6.1999 13:54:28
Zdar,
nejak nemuzu prijit na to, jak ovladat tisk grafu - ChartFX (D4). Mam prilis
dlouhy graf - 2880 hodnot a potrebuji tisknout jen vybranou cast. Graf sice ma
button pro tisk, ten ale tiskne cely graf - zabere p�es 40 stranek. Ma s tim
nekdo nejakou zkusenost?
Predem dik,
L.T.
Pruhledny Form
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 7.6.1999 14:42:23
Jo, je to dobr�, akor�t kdy� s t�m formem pohnu, je vid�t, �e v
transparentn� oblasti z�st�v� to, co bylo pod n� v okam�iku spu�t�n�. Co s
t�m? Jara.
-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. �ervna 1999 11:33
P�edm�t: RE: Pruhledny Form
>U glyphu se to dela tak, ze trasparetni barvou
>je barva v levem hornim rohu toho obrazku.
>
>Pruhlednosti Formu dosahnes (pisu z hlavy)
>Form1.BrushStyle:=bsClear;
>
>Dobra.
>
>> ----------
>> m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby jedna
>> barva
>> tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem objevil,
>> je
>> TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
>> pr�hlednosti jedn� barvy obr�zku?
>> D�k. Jara.
>>SQL a retezec
[*] delphi(zv)alf.dingo(tec)cz - 07.6.1999 12:42:37 gmt
Hi mistri,
zrovna jsem se zasekl na male banalite a potreboval bych pichnout, prosim.
V tabulce mam polozku typu string.
Potreboval bych nejak oriznout posledni 4 znaky, prusvih je v tom,
ze delka retezce je promenna a ty posledni 4 znaky taky.
Napr. 214501a1546 nakonec by melo zbyt: 214501a
Vysledek by mel vypadat:
SELECT orezanapolozka FROM xxx
Diky moc
Bob
TDBImage a Scrolovani
[*] tomas.mazurek(zv)vitkovice(tec)cz - 7.6.1999 12:47:05
Hello,
jde v databazovem obrazku nejak scrollovat? Prostredi D4, databaze
Paradox. Neexistuje nejake free komponenta misto TDBImage?
Diky za odpovedi. S databazovymi obrazky delam prvne...
TM
Boolean radeji ne
[*] Jaroslav O���dal - 7.6.1999 14:48:23
Divam se na to tak.
At si tam ma kdo chce kolik chce booleanu
kazdy rika neco jineho. :-))
copak to neexistuje nekde popsane ?
Jim
p.s na tohle tema uz radeji nereaguji :-)))
No rekl bych ze tento problem je vskutku zasadni a mel by se doresit (jednou
provzdy ;-).
Mac
:-))))
Jaroslav O���dal wrote:
> jsem tu upne novy. A nemate to jedno kolik tam Booleanu ??
> tim nerikam ze bych se to nechel dovedet.
> ale uz mi pripada ze se chovate jak mali kluci.
> Myslim ze ten co chtel pomoci uz pomoc dostal.
> ale spusta problemu je jeste pred vami.
> tak bych tu nestracel cas z takovym zbytecnym hadanim.
> Pokud jsem se nekoho dotknul at mi posle majla
> a ja se mu co nejhlubeji omluvim.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Trigger na MS SQL 6.5
[*] Petr Matejovsky <pema(zv)seznam(tec)cz> - 07.6.1999 14:58:38
Ahoj
Prechazim na MS SQL server ze serveru interbase5 nevim jak mam napsat trigger na generovani ID (neco jako inkrement na paradoxu)
v interbazi to slo timto zpusobem:
CREATE TRIGGER TRIG_ID_DODAVATEL FOR DODAVATEL
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
new.id_dodav = gen_id(g_id_dodav,1);
END
CREATE GENERATOR G_ID_DODAV;
moc diky za radu
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
SQL a retezec
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 7.6.1999 15:11:38
Jestli tam jo 'a' bude vzdy, tak
copy(text,1,pos('a',text))
pripadne
copy(text,pos('a',text),length(text)) {pro ten zbytek.}
Ale je docela mozne, ze 'sem zase neco spatne pochopil....
Mti.
(viz boolean - omlouvam se)
-----P�vodn� zpr�va-----
>Hi mistri,
>
>zrovna jsem se zasekl na male banalite a potreboval bych pichnout, prosim.
>V tabulce mam polozku typu string.
>Potreboval bych nejak oriznout posledni 4 znaky, prusvih je v tom,
>ze delka retezce je promenna a ty posledni 4 znaky taky.
>
>Napr. 214501a1546 nakonec by melo zbyt: 214501a
>
>Vysledek by mel vypadat:
>
>SELECT orezanapolozka FROM xxx
>
>Diky moc
>
>Bob
Tisk SQL
[*] Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 7.6.1999 15:29:15
Mam maly problem. Vytvoril jsem si jednoduchou databasy v SQL. Mam tam
zhruba deset sloupcu. Ted stojim pred velkym problemem. Potreboval bych
tabulku vytisknout. Nevim jakym prikazem jak. Zatim jsem to vyresil tak, ze
si aktivni policka prevedu z DBEdit do Memo a pak vytisknu. Je to vsak velmi
nesikovne. Poradte mi prosim jak mam vytisknou normalni DBGrid.
Predem moc dekuji
Dan Rejchrt
rejchrt(zv)ssakhk(tec)cz
SQL a retezec
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 7.6.1999 15:40:24
uz mlcim, uz drzim hubu,....
delam vic problemu nez je treba.
Omlouvam se vsem tady pritomnym.
Mti.
-----P�vodn� zpr�va-----
Jestli tam jo 'a' bude vzdy, tak
copy(text,1,pos('a',text))
pripadne
copy(text,pos('a',text),length(text)) {pro ten zbytek.}
Ale je docela mozne, ze 'sem zase neco spatne pochopil....
Mti.
(viz boolean - omlouvam se)
-----P�vodn� zpr�va-----
>Hi mistri,
>
>zrovna jsem se zasekl na male banalite a potreboval bych pichnout, prosim.
>V tabulce mam polozku typu string.
>Potreboval bych nejak oriznout posledni 4 znaky, prusvih je v tom,
>ze delka retezce je promenna a ty posledni 4 znaky taky.
>
>Napr. 214501a1546 nakonec by melo zbyt: 214501a
>
>Vysledek by mel vypadat:
>
>SELECT orezanapolozka FROM xxx
>
>Diky moc
>
>Bob
Oracle SQL
[*] miroslav.prokel(zv)rtscs(tec)cz - 7.6.1999 15:52:32
Ahoj,
omlouvam se za zpozdeni, ale byl jsem mimo, takze az ted:
v Oracle je treba vytvorit cursor a vratit ho do Delphi. Vytvorim neco
takoveho:
CREATE PACKAGE MYPACKAGE
IS
TYPE CURSOR TYPE IS REF CURSOR;
END MYPACKAGE;
Tim vytvorim typ REF CURSOR pro proceduru v Oracle:
CREATE PROCEDURE SEZNAM ( PRM1 IN INTEGER, ROCURSOR IN OUT
MYPACKAGE.CURSOR_TYPE)
AS
BEGIN
...
OPEN CURSOR ROCURSOR FOR
SELECT ID, POPIS, ... FROM MYTABLE WHERE ID = PRM1 ORDER BY ID
END SEZNAM;
Na strane Delphi pouzivam komponentu TstoredProc a do vlastnosti SQL napisu
toto:
�select * from seznam ( :pID, :roCursor )�
Parametr roCursor je treba nastavit z ftUnknown na ftCursor. Ted by ta
storedProc mela jit otevrit a pouzit normalne v datasource a data aware
controls. Zatim jsem se k tomu vic nedostal, reseni mam od Jeffa Overcashe
(overcash(zv)onramp.net <mailto:overcash(zv)onramp.net> ) a v teto podobe je
funkcni. Misto komponenty TstoredProc by mela jit pry pouzit normalni
Tquery, ale to mi hlasi chybu �SQL prikaz neni radne ukoncen�.
Tusim, ze pokud deklaruji cursor jako IN OUT, pak lze pres proceduru
zapisovat i do tabulky, ale overeno to nemam (insert, delete).
Mirek Prokel
Pruhledny Form
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.6.1999 15:58:12
Zkus nejaky Form.Update, Form.Repaint
nebo neco podobneho.
Dobra.
> ----------
> Jo, je to dobr�, akor�t kdy� s t�m formem pohnu, je vid�t, �e v
> transparentn� oblasti z�st�v� to, co bylo pod n� v okam�iku spu�t�n�.
> Co s
> t�m? Jara.
>
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 7. �ervna 1999 11:33
> P�edm�t: RE: Pruhledny Form
>
>
> >U glyphu se to dela tak, ze trasparetni barvou
> >je barva v levem hornim rohu toho obrazku.
> >
> >Pruhlednosti Formu dosahnes (pisu z hlavy)
> >Form1.BrushStyle:=bsClear;
> >
> >Dobra.
> >
> >> ----------
> >> m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby jedna
> >> barva
> >> tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem
> objevil,
> >> je
> >> TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
> >> pr�hlednosti jedn� barvy obr�zku?
> >> D�k. Jara.
> >>
> SQL a retezec
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.6.1999 16:03:00
No, rekl bych, ze tohle Bob nechtel;
chtel uriznout posledni 4 znaky, takze
to melo byt asi takhle
>Napr. '214501' a '1546'
>nakonec by melo zbyt: '214501' a ''
-ale taky si nejsem jisty, jestli to dobre
chapu, protoze tam nema mezery.
Bohuzel je to jeho vina, protoze malokdo
ma cas zkoumat, jak to vlastne dotazovatel
myslel
Dobra.
> ----------
>
> Jestli tam jo 'a' bude vzdy, tak
>
> copy(text,1,pos('a',text))
> pripadne
> copy(text,pos('a',text),length(text)) {pro ten zbytek.}
>
> Ale je docela mozne, ze 'sem zase neco spatne pochopil....
>
> Mti.
>
> (viz boolean - omlouvam se)
>
> -----P�vodn� zpr�va-----
>
> >Hi mistri,
> >
> >zrovna jsem se zasekl na male banalite a potreboval bych pichnout,
> prosim.
> >V tabulce mam polozku typu string.
> >Potreboval bych nejak oriznout posledni 4 znaky, prusvih je v tom,
> >ze delka retezce je promenna a ty posledni 4 znaky taky.
> >
> >Napr. 214501a1546 nakonec by melo zbyt: 214501a
> >
> >Vysledek by mel vypadat:
> >
> >SELECT orezanapolozka FROM xxx
> Tisk SQL
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.6.1999 16:11:58
Ahoj,
nenapsal jsi verzi Delphi a taky
jsi napsal :
>Poradte mi prosim jak mam vytisknou normalni DBGrid.
Asi chces tisknozut data a ne tu mrizku,
takze chces vytisknout DataSet, nikoli
DBGrid (pokud chces vytisknout DBGrid,
pouzij metodu Formulare Form1.Print)
Pro ten DataSet zkus
(serazeno podle oblibenosti :-))) (moji!)
a) generator sestav www.sinea(tec)cz
b) quick report primo v D>2 (je-li
v D2 nevim, v D1 je ReportSmith, ale
to je takova zoufalost)
c) tisknout jeden radek za druhym
tedy primo na Canvas tiskarny.
d) reseni ulozit do Memo mi tak spatne
nepripada, priznam se, ze me to jeste
nenapadlo a ze by se to mozna nekde
pouzit dalo (nebo i TStringList)
(uz jenom kvuli SaveToFile :-)
Dobra.
> ----------
> Mam maly problem. Vytvoril jsem si jednoduchou databasy v SQL. Mam tam
> zhruba deset sloupcu. Ted stojim pred velkym problemem. Potreboval
> bych
> tabulku vytisknout. Nevim jakym prikazem jak. Zatim jsem to vyresil
> tak, ze
> si aktivni policka prevedu z DBEdit do Memo a pak vytisknu. Je to vsak
> velmi
> nesikovne. Poradte mi prosim jak mam vytisknou normalni DBGrid.
> SQL link na SQL Anywhere v D1
[*] Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk> - 7.6.1999 17:06:27
Caute vsetci!
Mam problem s rychlostou pripojenia na Sybase SQL Anywhere. Momentalne som
pripojeny cez ODBC socket a nie je to ono.
Mam:
Delphi 1
Sybase SQL Anywhere 5.5.04
Chcel by som vediet, ci existuje priamy SQL Link z BDE (16 bit = v 2.5) na
SQL Anywhere(5.5.04). Pozeral som sa na stranky, ale zda sa, ze tam to je
len na "velky" Sybase Server.
Vie mi niekto poradit? Dakujem za kazdy mail.
Dalibor
********************************
Dalibor Zliechovec
Frequentis s.r.o.
dalibor.zliechovec(zv)frequentis.sk
+421 7 69202114
SQL a retezec
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.6.1999 16:34:07
Puvodni zprava, kterou napsal delphi(zv)alf.dingo(tec)cz dne 7 Jun 99,:
> zrovna jsem se zasekl na male banalite a potreboval bych pichnout, prosim.
> V tabulce mam polozku typu string. Potreboval bych nejak oriznout posledni
> 4 znaky, prusvih je v tom, ze delka retezce je promenna a ty posledni 4
> znaky taky.
>
> Napr. 214501a1546 nakonec by melo zbyt: 214501a
No to zalezi na tom, jaky SQL Server pouzivas. Vetsinou jsou
funkce pro takoveto operace ruzne. Ja to umim pro Sybase
Adaptive Server Anywhere 6.0.
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
DBGrid
[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 07.6.1999 18:10:54
> Potrebuji poradit jak u DBGridu dosahnout toho aby Columns si zachovaly 3D
> zobrazeni, ikdyz nastavim v Options dgColLines a dgRowLines na False tj. aby
> vysledny vzhled byl shodny jako s ListView kdyz je nastaveno ViewStyle na
> vsReport
Myslim ze lze pouzit RxDBGrid z RX komponent a nastavit TitleButtons na
True.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 2 6447184, +420 603 300093
ICQ: 10840067
DBGrid a barvicky
[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 07.6.1999 18:12:14
> Ahoj vsichni,
> mam maly dotaz. Delam program pro evidenci osob a pouzivat komponentu
> DBGrid a potrebovat bych, aby nektere radky v DBGrid byly psany jinou
> barvou pisma. Jak na to?
> Dik za kazdou odpoved.
Lze pouzit RxDBGrid z RX komponent a obsluhovat nejaky event. Je to
mnohem pohodlnejsi nez prace se standardnim DBGridem.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 2 6447184, +420 603 300093
ICQ: 10840067
PVCS
[*] Hapak Vladimir <Vladimir.Hapak(zv)swh.sk> - 7.6.1999 18:17:22
trosku som s tym robil, ale nepodarilo sa mi poriadne rozchodit na sieti.
Tiez by som uvital akykolvek pokec o subj.
Vlado
> -----Original Message-----
> From: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Sent: Monday, June 07, 1999 12:20 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: PVCS
>
> Nemate nekdo zkusenosti z PVCS, ktery je dodavany
> z Delphi C/S?
>
> Petr
SQL link na SQL Anywhere v D1
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.6.1999 17:27:12
Puvodni zprava, kterou napsal Dalibor Zliechovec dne 7 Jun 99,:
> Chcel by som vediet, ci existuje priamy SQL Link z BDE (16 bit = v 2.5) na
> SQL Anywhere(5.5.04). Pozeral som sa na stranky, ale zda sa, ze tam to je
> len na "velky" Sybase Server.
Pro Sybase SQL Anywhere 5.5 neexistuje SQL Link pro BDE, ale muzes
si koupit Titan Anywhere od Reggatta Systems, coz je nahrada BDE
s primym napojenim na Sybase SQL Anywhere 5.5. Neni to nejlevnejsi,
ale je to nejlepsi: http://www.reggatta.com
Na Sybase Adaptive Server Anywhere 6.0 (jinak Sybase Anywhere
Studio 6.0, nastupce Sybase SQL Anywhere) uz zase nefunguje Titan,
ale funguje SQL Link pro velky Sybase SQL Server (nyni Adaptive
Server Enterprise) pres BDE, ktery je soucasti Delphi Client/Server.
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
Events - OLE Auto
[*] code2019(zv)post(tec)cz - 7.6.1999 18:50:24
Ahoj
Nevite nekdo, jak obsluhovat udalosti OLE Automation objektu? (napr. pri zavreni MS Wordu ~ tusim onQuit)
S pozdravem Jan Slama
PVCS
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 07.6.1999 19:08:58
Po siti to chodi, ale je nutne nejprve nastavit promennou VCSID = username.
Napr. v AUTOEXEC.BAT
SET VCSID = MAC
(pochopitelne na kazde masine a pochopitelne s jinym USERNAME ;-)
V NT se to da hodit do System Properties/Environment/User Variables...
Pak uz to chodi docela slusne...
Mac
P.S. Abych odpovedel na puvodni dotaz - nejake zkusenosti s tim mame ...
Hapak Vladimir wrote:
> trosku som s tym robil, ale nepodarilo sa mi poriadne rozchodit na sieti.
> Tiez by som uvital akykolvek pokec o subj.
>
> Vlado
>
> > -----Original Message-----
> > From: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> > Sent: Monday, June 07, 1999 12:20 PM
> > To: 'delphi-l(zv)fwd(tec)cz'
> > Subject: PVCS
> >
> > Nemate nekdo zkusenosti z PVCS, ktery je dodavany
> > z Delphi C/S?
> >
> > Petr
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Pruhledny Form
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 7.6.1999 19:13:14
Ahoj.
a) OBRAZEK :Transparentn� obr�zek nastav� skute�n� pomoc� vlastnosti
Transparent. Vlastnost transparentColor slou�� k v�b�ru, kter� barva
bude pr�hledn�.
b) FORM : Udr�et pr�hledn� form za v�ech okolnost�, t.j. p�i zm�n�
velikosti, p�i posunu, nebo p�i p�ep�n�n� fokusu z okna na okno nen�
snadn�. Windows na to nejsou moc stav�n�.
Je mo�n� si uchovat stav screenu p�ed otev�en�m okna do bitmapy a pak
obsah formu po v��e zm�n�n�ch ud�lostech obnovovat. viz. n�sleduj�c�
mal� p��klad.
Zkus si to, ale v�sledek nic moc je to pomal� a cuk� to. Nev�m k �emu to
pot�ebuje� a jestli by nebylo vhodn�j�� kreslit p��mo na screen.
------------------------------------------------------------------------
------------------------------------------------------------------
program Project1;
uses
Windows, Wintypes,Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
DesktopBitmap := TBitmap.Create; {puvodni obsah obrazovky}
DesktopBitmap.Width := Screen.Width;
DesktopBitmap.Height := Screen.Height;
BitBlt(DesktopBitmap.Canvas.Handle,0,0,Screen.Width,Screen.Height,
GetDC(GetDesktopWindow),0,0,SrcCopy); {natahne obrazovku}
Application.CreateForm(TForm1, Form1);
Application.Run;
DesktopBitmap.Free;
end.
------------------------------------------------------------------------
------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Wintypes,Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
Procedure repaint;
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
.................
end;
var
Form1: TForm1;
DesktopBitmap : TBitmap;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin Form1.Brush.style:=bsClear; end;
Procedure TForm1.repaint;
Var SourceRect, {odkud z bitmapy obrazovky a jak velky
ctverec kopirovat}
DestRect :TRect; {kam do formu kopirovat}
var Leftmargin,topmargin : Integer; {posun kvuli okrajum borderu na
clientskou cast formu}
begin
Leftmargin:=4; {Zde podle konkretniho borderu nastavit. napsal jsem
narychlo nastaveni pro}
Topmargin:=23; {bezny okraj}
SourceRect:= Rec(Left+Leftmargin, Top+topmargin,
Left+Leftmargin+ClientWidth, Top+topmargin+ClientHeight);
DestRect:=Rect(0,0,ClientWidth,ClientHeight);
Canvas.CopyRect(destRect,DesktopBitmap.Canvas,SourceRect);
end;
{pak je treba pro vsechny mozne eventy tuto proceduru volat jako v
nasledujicich pripadech}
procedure TForm1.FormPaint(Sender: TObject);
begin repaint; end;
procedure TForm1.FormResize(Sender: TObject);
begin repaint; end;
................................
end.
----------------------------------------------------------------------
>-----Original Message-----
>From: SPELZA s.r.o. [SMTP:spelzasro(zv)brno.comp(tec)cz]
>Sent: Monday, June 07, 1999 9:42 AM
>To: DELPHI
>Subject: Pruhledny Form
>
>Ahoj Delph�ci,
>m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby jedna barva
>tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem objevil, je
>TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
>pr�hlednosti jedn� barvy obr�zku?
>D�k. Jara.
>Trigger na MS SQL 6.5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 07.6.1999 19:15:42
Neni nic snazsiho mily Watsone ;-)
Zapomen na tygry :-). Postaci nastavit vlastnost IDENTITY pro sloupec id_dodav, nejlepe pri CREATE TABLE. Neco jako:
CREATE TABLE new_employees
(
id_dodav int IDENTITY(1,1),
fname varchar (20),
minit char(1),
lname varchar(30)
)
Vice najdes v BOL k MSSQL....je mozno zadat pocatecni hodnotu a inkrement (seed, increment). Co se tyka MS SQL 6.5 tak s tim byly
nejake problemy, ktere resi snad az SP3 takze na to nezapomen (optimalni je samozrejme posledni coz je SP5).
Hodne zdaru
Mac
Petr Matejovsky wrote:
> Ahoj
>
> Prechazim na MS SQL server ze serveru interbase5 nevim jak mam napsat trigger na generovani ID (neco jako inkrement na paradoxu)
>
> v interbazi to slo timto zpusobem:
>
> CREATE TRIGGER TRIG_ID_DODAVATEL FOR DODAVATEL
> ACTIVE BEFORE INSERT POSITION 0
> AS
> BEGIN
> new.id_dodav = gen_id(g_id_dodav,1);
> END
>
> CREATE GENERATOR G_ID_DODAV;
>
> moc diky za radu
>
> -- http://email.seznam(tec)cz
> -- email zdarma na cely zivot
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
null-terminated strins
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 7.6.1999 20:10:31
Ahoj,
diky moc vsem za rady k tomuhle tematu.
Bye,
----------
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
RichEdit
[*] Straka Josef <kshb(zv)seznam(tec)cz> - 7.6.1999 23:10:26
Mam jednu prosbu,
pouzivam RichEdit v D4. Nactu nejaky dlouhy soubor, vyhledam v nem neco (par
slov nebo vet) a tento vyber zvyraznim. Zacatek tohoto zvyrazneni se mi
objevi v okne RichEditu dole. Tzn, ze je videt jeden radek meho vyberu.
Pokud si hi chci precist cely, musim pouzit mys nebo sipky. Jak udelat, aby
se zacatek vyberu zobrazil nahore v okne RichEditu? Tzn. aby bylo videt co
nejvice radku z vyberu.
Diky za pomoc.
Straka Josef
za��naj�c� amat�rsk� program�tor
strakaj(zv)hba(tec)czn(tec)cz
http://freeweb.coco(tec)cz/strakaj/index.html
Cislo radku v TMemo
[*] j.o.s.e.f(zv)mujmail(tec)cz - 08.6.1999 07:15:35
Zkus pou��t Memo1.CaretPos.Y
Josef
P.S. Funguje i u RichEdit
> -----P�vodn� zpr�va-----
> Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> Odesl�no: 4. �ervna 1999 22:24
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Cislo radku v TMemo
>
> Zdravim.
> Da se nejak zjistit cislo radku ve kterem je kursor u TMemo ?
> Potrebuju neco v tom smyslu jako
>
> Memo1.Lines.Delete(radek_ ve_ kterem_ je_ kursor);
>
> Asi jsem slepy ale krom SelStart jsem nic nenasel.
>
> Dik eL..
>
> P.S. RichEdit pouzit nemuzu.PVCS
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 08.6.1999 07:26:02
"Jezek Petr, Ing. (DELVINA)" wrote:
> Nemate nekdo zkusenosti z PVCS, ktery je dodavany
> z Delphi C/S?
caves,
co potrebujes vediet ?
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
copy file + zmacknuti Esc pri spusteni prog.
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 8.6.1999 06:33:53
Pripadne v prikladech je i adresar FILMANEX a v nem je to rozepsane
podrobne.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Radoslav Krehlik [SMTP:heretic(zv)softok(tec)cz]
> Odesl�no: 7. �ervna 1999 12:34
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: copy file + zmacknuti Esc pri spusteni prog.
>
> >nevim, jestli uz jsem senilni, ale nevim jak proste prekopirovat
> soubor
> odnekud nekam (v helpu jsem nic nenasel, pouzivam D1).
>
> procedure _CopyFileX(odkud,kam:string);
> var chyba: longbool;
> begin
> chyba:=false;
> CopyFile(Pchar(odkud),Pchar(kam),chyba);
> end;
>
> Heretic-x
> Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 8.6.1999 07:36:27
V podstate mate pravdu. Zmylil jsem se. Ovsem jenom jednom pripade. Za
cislo(zv)sms.paegas(tec)cz se neplati a mail ziskavate automaticky s cislem. Pokud
chcete jmeno(zv)paegas(tec)cz tak se plati za registraci 50 Kc.
Za prijimani se neplati nic. Za odeslilani z mobilu z pausalu 1 Kc a z
Twistu 2.98 Kc .
Z internetu se neplati nic. Omlouvam se pokud jsem svoji informaci zpusobil
nejaky problem.
S pozdravem
Dan Rejchrt
PS: Vase veta na konci se da chapat ruzne.
-----P�vodn� zpr�va-----
Od: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. �ervna 1999 22:28
P�edm�t: Re: Jak se v Dlephi posilaji SMS (Paegas) !!!!>Vazeny pane Rejchrt,
> podle mne (a jestli jsem i ty ostatni dobre pochopil - jo i tu slecnu
>vod Paegasu, kam jsem volal) jsou vase informace myslne. Za registrovani
>email. boxu at uz je to cislo(zv)sms.paegas(tec)cz nebo jmeno(zv)sms.paegas(tec)cz se
>skutence plati.
> No v tom pripade TOTALNE NECHAPU TY, CO TVORI PROGRAMY NA ZASILANI
SMSEK,
>KDYZ TO DOJDE JEN TEM, CO SI TO ZAREGISTROVALI !!!!!!!
>
>// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
>| >> Tony Kmoch <<
>| tonda(zv)kamarad(tec)cz
>| t.kmoch(zv)seznam(tec)cz
>| ICQ: #21901427
>| Czech rep., Europe
>+----------------------------------
>| Programmers Network CZ [www.prog(tec)cz]
>\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
>-----P�vodn� zpr�va-----
>Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 4. �ervna 1999 11:47
>P�edm�t: Re: Jak se v Dlephi posilaji SMS (Paegas)
>
>>Email: +420603xxxxxx(zv)sms.paegas(tec)cz je standardni pri koupy jakehokoliv
>>telefonu Paegas. Nikde se nic neregistruje ani se za nic neplati.
>>Email: vase.jmeno(zv)sms.paegas(tec)cz se aktivuje na strance www.paegas(tec)cz
>funguje
>>vsak pouze pro telefony Paegas s klasikym pausalem, ne pro Twist !
>>
>>Balda
>>
>>-----Puvodn� zpr�va-----
>>Od: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
>>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>>Datum: 4. cervna 1999 10:57
>>Predmet: Re: Jak se v Dlephi posilaji SMS (Paegas)
>>
>>
>>>Prosim Vas,
>>> nejspise je muj dotaz "MIRNE" offtopic, ale vy budete odpoved zajiste
>>>znat. Ten email: +420603xxxxx(zv)sms.paegas(tec)cz se musi nekde zalozit, nebo
je
>>>zalozen automaticky a pripraven na pouzivani? A dale, kdyz jsou ty email.
>>>adresy, napr.: pepa.novak(zv)sms.pageas(tec)cz plati se neco za prijem zpravy?
>>>
>>>diky
>>>// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
>>>| >> Tony Kmoch <<
>>>| tonda(zv)kamarad(tec)cz
>>>| t.kmoch(zv)seznam(tec)cz
>>>| ICQ: #21901427
>>>| Czech rep., Europe
>>>+----------------------------------
>>>| Programmers Network CZ [www.prog(tec)cz]
>>>\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
>>>(for czech recipients only:
>>> Prijimam cestinu v kodove strance ISO-8859-2)
>>>
>>>
>>
>>
>
>Cislo radku v TMemo
[*] j.o.s.e.f(zv)mujmail(tec)cz - 08.6.1999 07:37:07
Zkus pouz�t Memo1.CaretPos.Y
Josef
P.S. Funguje i u RichEdit
Pruhledny Form
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 8.6.1999 08:07:14
Jinak mi pomaha :
visible := false;
visible := true;> > ----------
> > Jo, je to dobr�, akor�t kdy� s t�m formem pohnu, je vid�t, �e v
> > transparentn� oblasti z�st�v� to, co bylo pod n� v okam�iku
> spu�t�n�.
> > Co s
> > t�m? Jara.
> >
> > -----P�vodn� zpr�va-----
> > Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
> > Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> > Datum: 7. �ervna 1999 11:33
> > P�edm�t: RE: Pruhledny Form
> >
> >
> > >U glyphu se to dela tak, ze trasparetni barvou
> > >je barva v levem hornim rohu toho obrazku.
> > >
> > >Pruhlednosti Formu dosahnes (pisu z hlavy)
> > >Form1.BrushStyle:=bsClear;
> > >
> > >Dobra.
> > >
> > >> ----------
> > >> m�m TForm a na n�m TImage s obr�zkem. Chci doc�lit toho, aby
> jedna
> > >> barva
> > >> tohoto obr�zku byla pr�hledn�. Jedin� vlastnost, kterou jsem
> > objevil,
> > >> je
> > >> TImage.Transparent. Jak doc�lit pr�hlednosti TForm a jak doc�lit
> > >> pr�hlednosti jedn� barvy obr�zku?
> > >> D�k. Jara.
> > >>
> > Pruhledny Form
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 8.6.1999 08:21:58
> Jo, je to dobr�, akor�t kdy� s t�m formem pohnu, je vid�t, �e v
> transparentn� oblasti z�st�v� to, co bylo pod n� v okam�iku
> spu�t�n�. Co s
> t�m? Jara.
>
Uz nekolikrat se tady v konferenci o tom vedla debata a konkretne ja
jsem na to odpovidal ze svych zkusenosti.
Tak teda znova a souhrne to co ja o tom vim.
a) jedina moznost korektene pruhledneho okna a to i pri pohybu a zmene
pozadi je pouziti funkci
kombinaci funkci prace s regiony ( CreateRectRgn, CreateEllipseRgn,
CombineRgn, ..... ) a nasledne pouziti vytvoreneho
regionu v okne SetWindowRgn.
Nevyhoda je v tom ze do tak pruhledneho okna nemuzes kreslit, protoze
tam kde je pruhledne
uz to neni vlastne okno ale plne funkcni pozadi za oknem.
Vyhoda je v tom ze muzes vytvorit nestandartni okno, treba kruhove se
ctvercovymi derami uprostred.
b)dalsi moznost je osetrit prekreslovani okna.
Nevyhoda je v tom ze jsem neprisel na to jak zjistit ze se zmenilo
pozadi. Pri vytvoreni okna se pri takovem osetreni
objevi v okne pozadi a okno se tak jevi jako pruhledne, ale pak pri
jakekoliv manipulaci s pozadim zustava puvodni pozadi
Vyhoda je v tom ze do takoveho okna muzes kreslit. Takto osetrit
prekreslovani jde nekolika zpusoby:
1.Nejjednodussi zpusob
V OnCreate formulare nastavit Brush.Style:=bsClear
2.zpusob
prekryt metodu TForm.CreateParams(var Params: TCreateParams) a nastavit
okno jako pruhledne.
begin
inherited CreateParams(Params);
with Params do ExStyle := ExStyle or WS_EX_TRANSPARENT;
end;
3.zpusob nejmene korektni
Zakazat v reakci na message wm_erasebkgnd prekresleni pozadi
procedure TForm.WMEraseBkGnd;
begin
Msg.Result := 0;
end;
Bohuzel jak jsem jiz rekl tohle vsechno neresi refresh pozadi a
prekryvani okna jinymi okny.Doba v minutach, Please !!!
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 8.6.1999 08:30:09
Zdravim Vsechny!
Chtel bych se zeptat jestli je nejaky rozdil mezi deklaraci promenych na
zacatku nejake Unit napr.: Unit1, Unit2, ... a nebo v nejake procedure ci
funkci napr.: procedure TForm1.OnCreate...
Jde mi o to ze si deklaruju promenou typu TDateTime a nacitam do ni datum a
cas takto:
var
Doba: TDateTime;
begin
Doba := Now;
end;
Zjistil jsem ze ta promena Doba obsahuje tu spravnou hodnotu jen tehdy, kdyz
je deklartovana na zacatku te Unit1.
Muze mi to nekdo vysvetlit?
A jeste mi jde o to jak je mozny od sebe odecitat urcitou dobu. Potrebuji to
mit v minutach. Delam to takto, ale co kdyz je ta doba lame pres noc?
Napr:
var
DobaA, DobaB: TDateTime;
VyslednaDoba: string;
begin
VyslednaDoba := TimeToStr(DobaB - DobaA); // toto, ale nemusi byt porad
v minutach a // ja to v minutach
porad potrebuji
end;
Dekuji Novak.PVCS
[*] Ivo.Herles(zv)pvt(tec)cz - 8.6.1999 08:37:43
PVCS pouzivame jiz dlouho a to i v siti. Jako server mame Win NT.
Souhlasim, ze v WinDOS 95 je nutne udelat upravy v autoexec.bat, ale v NT
jsme zadne nastavovani podobneho typu delat nemuseli a funguje to tak jak
ma. Navic se v NT zacalo chovat inteligentne i zamykani projektu. Jinymi
slovy v 95 to chodilo mizerne.
Nicmene PVCS v Delphi je znacne ocesane. Nelze jednoduse zakladat nove
projekty jako napr. balicky (.DPK). To je dostupne az v plne verzi a ta
stoji cca 20 kKc/klient. Navic nelze v ucite verzi projektu vyjmout
unit/formular tak, abych jej nesmazal cely vcetne zaznamenanych zmen.
Z vyse uvedenych duvodu vazne uvazujeme o CS-RCS. To resi vetsinu potizi a
je vyrazne levnejsi cca 20 kKc/5 klientu nebo zdarmo pro single user. Je
dostupny i plug-in do Delphi. Navic je zdarma i pro UNIX.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
> -----P�vodn� zpr�va-----
> Od: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
> Odesl�no: 7. �ervna 1999 19:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: PVCS
>
>
> Po siti to chodi, ale je nutne nejprve nastavit promennou
> VCSID = username.
> Napr. v AUTOEXEC.BAT
>
> SET VCSID = MAC
>
> (pochopitelne na kazde masine a pochopitelne s jinym USERNAME ;-)
>
> V NT se to da hodit do System Properties/Environment/User Variables...
>
> Pak uz to chodi docela slusne...
>
> Mac
>
> P.S. Abych odpovedel na puvodni dotaz - nejake zkusenosti s
> tim mame ...
>
> Hapak Vladimir wrote:
>
> > trosku som s tym robil, ale nepodarilo sa mi poriadne
> rozchodit na sieti.
> > Tiez by som uvital akykolvek pokec o subj.
> >
> > Vlado
> >
> > > -----Original Message-----
> > > From: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> > > Sent: Monday, June 07, 1999 12:20 PM
> > > To: 'delphi-l(zv)fwd(tec)cz'
> > > Subject: PVCS
> > >
> > > Nemate nekdo zkusenosti z PVCS, ktery je dodavany
> > > z Delphi C/S?
> > >
> > > Petr
SQL a retezec
[*] delphi(zv)alf.dingo(tec)cz - 08.6.1999 07:03:17 gmt
Zatim vam vsem diky.
Omlouvam se, pokud to bylo nepochopitelny, snad to po druhe bude lepsi.
Blbe jsem tam zapletl to pismeno - sorry.
Vysvetleni c. 2:
* tyka se to lokalnich dbf tabulek
* retezec neobsahuje mezery
* muze byt ruzne dlouhy
* obsahuje tri informace, ktere jsou psany z prava,
od konce jsou dva znaky rok, dalsi dva utvar a zbytek ID.
priklad dvou retezcu:
retezec1 = '1265199' - Rok: '99' Utvar: '51' ID: '126'
retezec2 = '21455499' - Rok: '99' Utvar: '54' ID: '2145'
* takovych retezcu mam v tabulce asi 4000 a ja potrebuju oriznout ty 4 znaky
od konce, aby me zustalo ID, pomoci ktereho ji potom spojim s dalsi
tabulkou a z takto vznikle tabulky budu asi 10 polozek vkladat
do tabulky Paradoxu
* Chci to udelat pomoci dotazu v TQuery, protoze s tim potom dal pracuji
a technika veta po vete je celkem pomala.
* Zarazil jsem se na tom, ze ty posledni 4 znaky jsou promenne, takze
je nemuzu nadrzo oriznout a zjistit skutecnou delku retezce se me
v lokalnim SQL nepodarilo.
Snad uz je to vysvetleny dostatecne. Diky moc za ochotu a snahu pomoci.
Bob > No, rekl bych, ze tohle Bob nechtel;
> chtel uriznout posledni 4 znaky, takze
> to melo byt asi takhle
>
> >Napr. '214501' a '1546'
> >nakonec by melo zbyt: '214501' a ''
>
> -ale taky si nejsem jisty, jestli to dobre
> chapu, protoze tam nema mezery.
> Bohuzel je to jeho vina, protoze malokdo
> ma cas zkoumat, jak to vlastne dotazovatel
> myslel
>
> Dobra.
> > ----------
> >
> > Jestli tam jo 'a' bude vzdy, tak
> >
> > copy(text,1,pos('a',text))
> > pripadne
> > copy(text,pos('a',text),length(text)) {pro ten zbytek.}
> >
> > Ale je docela mozne, ze 'sem zase neco spatne pochopil....
> >
> > Mti.
> >
> > (viz boolean - omlouvam se)
> >
> > -----P�vodn� zpr�va-----
> >
> > >Hi mistri,
> > >
> > >zrovna jsem se zasekl na male banalite a potreboval bych pichnout,
> > prosim.
> > >V tabulce mam polozku typu string.
> > >Potreboval bych nejak oriznout posledni 4 znaky, prusvih je v tom,
> > >ze delka retezce je promenna a ty posledni 4 znaky taky.
> > >
> > >Napr. 214501a1546 nakonec by melo zbyt: 214501a
> > >
> > >Vysledek by mel vypadat:
> > >
> > >SELECT orezanapolozka FROM xxx
> >
> Jak pouzit Sender u Formulare
[*] Pavel M. <talema(zv)top(tec)cz> - 8.6.1999 09:06:22
----- Original Message -----
> > Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
> >
> > procedure TfmHledej.Napln(Sender: TForm);
> > var i : SmallInt ;
> > begin
> > for i := 0 to 2 do
> > begin
> > Sloupce.Items.Add ((Sender as TForm).DBGrid.Columns[i].FieldName) ;
> > end;
> > HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> > HledanyText.FieldName := (Sender as
TForm).DBGrid.Columns[0].FieldName;
> > end;
>
> ... jak tak na to koukam, asi ti nefunguje to (Sender as TForm).DBGrid
> ne? no, ja jenom nechapu, proc predavas Sender:TForm, kdyz ho
> pouzivas jenom pro adresovani toho Gridu, tak proc nepredavas primo
> ten DBGrid?
Ano nefunguje (Sender as TForm).DBGrid.
Mam nekolik formularu a na nich vzdy DBGrid. Potrebuji aby se provedlo
vzdy to stejne, ale pri zavolani z ruznuch formularu. Jenoduse receno
naplnuji ComboBox, prvnimi tremi sloupci vzdy z toho Gridu, ktery to zavola.
Proto potrebuji identifikaci toho Formulare.
Nebo to jde nejak obejit ?
Pavel M.
PVCS
[*] Libor Valka <valka(zv)brno.cas(tec)cz> - 8.6.1999 09:37:16
Ahoj,
muzu se zeptat, co je to CS-RCS, prip. kde lze ziskat vice informaci? Ze to
bude system pro spravu verzi projektu je mi jasne, jde mi v podstate o
webovskou adresu stranek, na nichz se neco o tomto programu dozvim.
Dekuji.
Libor Valka
valka(zv)brno.cas(tec)cz
valka(zv)ipm(tec)cz
> Z vyse uvedenych duvodu vazne uvazujeme o CS-RCS. To resi vetsinu potizi a
> je vyrazne levnejsi cca 20 kKc/5 klientu nebo zdarmo pro single user. Je
> dostupny i plug-in do Delphi. Navic je zdarma i pro UNIX.
>
> S pozdravem,
>
> Ivo HERLES
> PVT, a. s., o. z. Chomutov
> e-Mail: ivo.herles(zv)pvt(tec)cz
> tel.: +42(0396)619216
DBGrid a barvicky
[*] rjunga(zv)oku-ka(tec)cz - 8.6.1999 09:42:53
Komponenty jsem si stahnul, ale potreboval bych malinko poradit s kodem.
Jde o to, ze jedna polozka v databazi je typu Boolean a ja potrebuji, kdyz
je False, aby byl text v prislusnem radku DBGridu vypsan jinou barvou.
Dik.
Richard Sladek <richard_sladek(zv)hotmail.com> na 07.06.99 16:43:15
Please respond to delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
cc: (bcc: Roman Junga/IDC/OkUKarvina/CZ)
Subject: Re: DBGrid a barvicky
Jednoduchsie riesenie je pouzit komponentu RxDBGrid z RxLib, ktora ma
event-handler (na nazov si momentalne nespominam), pomocou ktoreho mozno
nastavit formatovacie atributy (farba, pismo a pod.) pre kazdu bunku osve.
Vyhoda je ta, ze netreba manualne vykreslovat celu tabulku, pretoze
DefaultDrawing normalne funguje.
Richard Sladek
>From: "Hrabi of Chmeliste" <MHrabanek(zv)merlin(tec)cz>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: <delphi-l(zv)fwd(tec)cz>
>Subject: Re: DBGrid a barvicky
>Date: Fri, 4 Jun 1999 13:37:30 +0100
>
>
> >DBGrid a potrebovat bych, aby nektere radky v DBGrid byly psany jinou
> >barvou pisma. Jak na to?
>
>
>Staci vypnout propertu DefaultDrawing (tedy nastavit na False) a obsadit
>event OnDrawCollumnCell.
>Myslim, ze v helpu je primo priklad, takze by nemel byt problem.
>V tom eventu dostanes, kde jsi, tak se rozhodni pro nejakou barvu a men
dle
>libosti (Canvas.brush, Canvas.font toho gridu, nebo co :-).
>
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Trigger na MS SQL 6.5
[*] Vlastimil <ineq-soft(zv)ova.eridan(tec)cz> - 8.6.1999 10:18:33
Nemusi-li to byt trigger, pouzij identity column, nebo jeste lepe
timestamp. Musi-li to byt trigger, budes si muset generovat id sam. Pak ale
pozor na soucasnou praci vice uzivatelu. Da se to osetrit zalezi na
konkretnich pozadavcich.
-----P�vodn� zpr�va-----
Od: Petr Matejovsky [SMTP:pema(zv)seznam(tec)cz]
Odesl�no: 7. �ervna 1999 14:59
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Trigger na MS SQL 6.5
Ahoj
Prechazim na MS SQL server ze serveru interbase5 nevim jak mam napsat
trigger na generovani ID (neco jako inkrement na paradoxu)
v interbazi to slo timto zpusobem:
CREATE TRIGGER TRIG_ID_DODAVATEL FOR DODAVATEL
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
new.id_dodav = gen_id(g_id_dodav,1);
END
CREATE GENERATOR G_ID_DODAV;
moc diky za radu
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Mazani uzamcenych souboru
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 8.6.1999 10:24:53
Preji vsem hezky den,
Potrebuji pod WinNT smazat uzamcene soubory. Nevite nekdo jak na to ? Kdyz
ne smazat, tak alespon oznacit ke smazani, tak jako to jde na unixu ...
diky
R.Pospisil
Detekce OS pro BP 7.0
[*] Karel Kral <kral(zv)purus(tec)cz> - 08.6.1999 10:26:52
Prosim, nemate nekdo proceduru pro detekci opetacniho systemu pro
Borland Pascal?
Staci mi rozliseni Win95 WinNT a Dosu.
--
______________________________________________________
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
______________________________________________________
PVCS
[*] Ivo.Herles(zv)pvt(tec)cz - 8.6.1999 10:26:23
Informace jsou na:
http://www.componentsoftware.com/csrcs
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
> -----P�vodn� zpr�va-----
> Od: Libor Valka [mailto:valka(zv)brno.cas(tec)cz]
> Odesl�no: 8. �ervna 1999 09:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: PVCS
>
>
> Ahoj,
>
> muzu se zeptat, co je to CS-RCS, prip. kde lze ziskat vice
> informaci? Ze to
> bude system pro spravu verzi projektu je mi jasne, jde mi v podstate o
> webovskou adresu stranek, na nichz se neco o tomto programu dozvim.
>
> Dekuji.
>
> Libor Valka
> valka(zv)brno.cas(tec)cz
> valka(zv)ipm(tec)cz
>
>
> > Z vyse uvedenych duvodu vazne uvazujeme o CS-RCS. To resi
> vetsinu potizi a
> > je vyrazne levnejsi cca 20 kKc/5 klientu nebo zdarmo pro
> single user. Je
> > dostupny i plug-in do Delphi. Navic je zdarma i pro UNIX.
> >
> > Ivo HERLES
Mazani uzamcenych souboru
[*] mdvorak(zv)csas(tec)cz - 8.6.1999 10:49:28
Nazdar,
chces mazat uzamcene soubory resp. soubory, ktere jsou v pouzivani ? Pokud
ano a vlastnis Win32 SDK, tak se podivej na kapitolu "How to Move Files That
Are Currently in Use", pokud SDK nemas, tak ti rad tu kapitolu poslu.
M. Dvorak
-----P�vodn� zpr�va-----
Od: Radek Pospisil [mailto:radek.pospisil(zv)sprinx(tec)cz]
Odesl�no: 8. �ervna 1999 10:25
Komu: 'Konference Delphi'
P�edm�t: Mazani uzamcenych souboru
Preji vsem hezky den,
Potrebuji pod WinNT smazat uzamcene soubory. Nevite nekdo jak na to ? Kdyz
ne smazat, tak alespon oznacit ke smazani, tak jako to jde na unixu ...
diky
R.Pospisil
DBGrid a barvicky
[*] Hrabi of Chmeliste <MHrabanek(zv)merlin(tec)cz> - 8.6.1999 10:07:04
>>From: "Hrabi of Chmeliste" <MHrabanek(zv)merlin(tec)cz>
>>Staci vypnout propertu DefaultDrawing (tedy nastavit na False) a obsadit
>>event OnDrawCollumnCell.
>>Myslim, ze v helpu je primo priklad, takze by nemel byt problem.
>Jednoduchsie riesenie je pouzit komponentu RxDBGrid z RxLib, ktora ma
>Vyhoda je ta, ze netreba manualne vykreslovat celu tabulku, pretoze
>DefaultDrawing normalne funguje.
Oukej, ne moc rozume myslim na to, jake informace ma neznaly clovek k
dispozici. napsal jsem, ze je to dobre popsane v helpu a tam je i pouzita
konstrukce, kde se po nastaveni onech property, ktere clovek chce (tedy
font, barva...) zavola DefaultDrawColumnCell, coz jinak vola defaultdrawing
ovsem bez moznosti zmen.
Tudiz i tady funguje defaultdrawcolumncell, jen to neni defaultne pustene
pri vykreslovani, ale clovek to musi zavolat po nastaveni zmen na konci
procedury udalosti OnDrawCollumnCell.
Nedelal jsem z RxLib (cim vic knihoven od ruznych autoru, tak tim (a bohuzel
ne linearne :-) vice chyb, takze jsem se na ni radeji jen zbezne lukl), ale
obarveni DBGridu je natolik trivialni, ze zadna komponenta, ani knihovna
neni treba. No, treba cisty delphacky programatori maji jiny nazor ;-).Prijimaci_buffer
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 8.6.1999 11:24:12
Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> wrote:
> Problem je v tom , ze do editky se me nic nenapise.
> Kdyz program trasuju, radek s prikazem se akceptuje.
> Domnivam se , ze je to tim, jak jednou do toho cyklu vlezu ,
> uz se s neho nedostanu ( bud data chodi prilis rychle ,
> nebo se vnitrek cylku neprovadi dostatecne rychle )
> a tudiz se nema kdy provest vykresleni na obrazovku.
To nesouvisi s rychlosti, ale s tim, ze okna se prekresluji v handleru
zpravy WM_PAINT a ty musis zajistit, aby ji ten tEdit dostal. Da se to
udelat nekolika zpusoby, v tomto pripade je asi nejlepsi zavolat metodu
Update(), tedy
...
Edit1.Text := <cokoli>;
Edit1.Update;
...
Bye, pf
P.S. Jeste poznamku, ze takhle jednoduse to nelze udelat v pripade, ze ten
cyklus nebezi v hlavnim threadu.
autoincrement na SQL serveru
[*] Petr Matejovsky <pema(zv)seznam(tec)cz> - 08.6.1999 11:26:08
Ahoj
potrebuji udelat neco podobneho jako je increment v tabulkach paradoxu ale ja to potrebuji udelat na MS SQL serveru verze 6.5
nevim jak poradi nekdo ???
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Kontrolni socty CRC
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 8.6.1999 11:26:33
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
pokousim se o komunikaci s nejakym zarizenim pomoci COM RS-232, samotnou komuniaci jsem jiz zvladl pomoci API Windows (mam Delphi 4 Standard), ale neznam princip kontrolnich souctu CRC a jak mam dekodovat kontrolni soucet CRC16.
Za kazdou odpoved dekuji.
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
Prijimaci_buffer
[*] josef <j.o.s.e.f(zv)mujmail(tec)cz> - 08.6.1999 11:27:23
Zkus dat pred end; Application.ProcessMessages;
Josef
> Dan Komosny wrote:
>
> Zdravim všechny
>
> Mam problem s prijimacim bufferem, do ktereho ctu data co me prijdou
> na seriov� port (com1). V nejakem casovem intervalu ( napr. 10 ms )
> prectu vse co mi na com prislo cyklem while ...do
>
> Timer (10ms)
>
> while (fileread(Port2,b,2)=2) do
> begin
> inc(x);
> prijimanci_buffer[x]:=b;
> //napr. :
> edit1.text:=inttostr(b);
> //atd......
> end;
> Problem je v tom , ze do editky se me nic nenapise. Kdyz program
> trasuju, radek s prikazem se akceptuje.
> Domnivam se , ze je to tim, jak jednou do toho cyklu vlezu , uz se s
> neho nedostanu ( bud data chodi prilis rychle , nebo se vnitrek cylku
> neprovadi dostatecne rychle ) a tudiz se nema kdy provest vykresleni
> na obrazovku.
>
> Veskere napady jak toto usetrit s radosti uvitam
>
>
> Dan
Prijimaci_buffer
[*] Petr Kandera <pkandera(zv)tanger(tec)cz> - 8.6.1999 11:44:57
Moznosti je mnoho (a pokud pomineme zpusob komunikace s portem), treba takto:
while (fileread(Port2,b,2)=2) do
begin
inc(x);
prijimanci buffer[x]:=b;
//napr. :
edit1.text:=edit.text+ord(b); {Ord, pokud jde o znak, IntToStr vraci cislo}
edit1.update; {Pokud je to prilis rychle a edit1 se na obrazovce neaktualizuje, ale zase to zpozdi zpracovani!}
//atd......
end;
Daleko lepsi by ale bylo vypsat buffer do edit1.text az po ukonceni cyklu.
> Problem je v tom , ze do editky se me nic nenapise. Kdyz program trasuju, radek s prikazem se akceptuje.
> Domnivam se , ze je to tim, jak jednou do toho cyklu vlezu , uz se s neho nedostanu ( bud data chodi prilis rychle , nebo > se vnitrek cylku neprovadi dostatecne rychle ) a tudiz se nema kdy provest vykresleni na obrazovku.
Petr Kandera
<pkandera(zv)tanger(tec)cz>
PVCS
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.6.1999 11:49:10
Kdyz uz jsme u toho, nezkousel jste nekdo FreeVCS?
http://www.thensle.de/
Popripade nejake zkusenosti????
Mac
Ivo.Herles(zv)pvt(tec)cz wrote:
> Z vyse uvedenych duvodu vazne uvazujeme o CS-RCS. To resi vetsinu potizi a
> je vyrazne levnejsi cca 20 kKc/5 klientu nebo zdarmo pro single user. Je
> dostupny i plug-in do Delphi. Navic je zdarma i pro UNIX.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
autoincrement na SQL serveru
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.6.1999 11:51:11
Takze jeste jednou ;-)
Neni nic snazsiho mily Watsone ;-)
Zapomen na tygry :-). Postaci nastavit vlastnost IDENTITY pro sloupec id_dodav, nejlepe pri CREATE TABLE. Neco jako:
CREATE TABLE new_employees
(
id_dodav int IDENTITY(1,1),
fname varchar (20),
minit char(1),
lname varchar(30)
)
Vice najdes v BOL k MSSQL....je mozno zadat pocatecni hodnotu a inkrement (seed, increment). Co se tyka MS SQL 6.5 tak s tim
byly
nejake problemy, ktere resi snad az SP3 takze na to nezapomen (optimalni je samozrejme posledni coz je SP5).
Hodne zdaru
Mac
Petr Matejovsky wrote:
> Ahoj
>
> potrebuji udelat neco podobneho jako je increment v tabulkach paradoxu ale ja to potrebuji udelat na MS SQL serveru verze 6.5
>
> nevim jak poradi nekdo ???
>
> -- http://email.seznam(tec)cz
> -- email zdarma na cely zivot
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Active X
[*] Ing. J�n Kuch�r�����!j��G - 8.6.1999 11:58:58
Caute
Pre svoj program pouzivam Active X komponentu, ktoru som pridal do D4.
Otazka znie nasledovne : ako zkompilovat program, aby sa do vysledneho EXE
suboru natiahla aj ta komponenta Activ aby ked sa spusti na inom pocitaci,
kde nieje ten program ( myslim tym ten, ktory som pouzil ako Activ X )
nevykrirkovalo, ze trieda nieje zaregistrovana.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
e-mail: kuchar(zv)tuke.sk
tel. 095 / 602 2589
Doba v minutach, Please !!!
[*] voltrr1.epr(zv)mail.cez(tec)cz - 8.6.1999 11:01:46
> Zjistil jsem ze ta promena Doba obsahuje tu spravnou hodnotu jen tehdy,
kdyz
> je deklartovana na zacatku te Unit1.
> Muze mi to nekdo vysvetlit?
Podle mne by mela ta promena bejt torchu persistentni a pak je jedno jestli
je deklarovana v unite nebo
jako vlastnost formu. Je jasne ze pokud si ji nadeklarujes v kazde udalosti
zvlast tak se to neprenasi.
> VyslednaDoba := TimeToStr(DobaB - DobaA); // toto, ale nemusi byt
porad
> v minutach a // ja to v minutach
Osobne bych to udelal takhle :
VyslednaDoba:=IntToStr(Trunc((DobaB-DobaA)/(24*60))); // 24 - hodiny / 60
minuty
BTW: Nevim jestli mam dobrej pocet koncovejch zavorek :-)
Radek
QuickReport 3.04 Profesional for Delphi 4.0
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 8.6.1999 12:36:54
Ahoj,
Nev� nekdo rozd�l mezi
QuickReport 3.04 Profesional for Delphi 4.0
a verzi 2.0.
Zaplatit only $99 za upgrade se mi jevi only hodne.
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Detekce OS pro BP 7.0
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 08.6.1999 12:49:33
No ja mel proceduru, ale protoze je to dost stary, nejak to tam
nerozpoznavalo Win95 a NT, ale asi by to nebyl problem dodelat...tak si to
uzij :)
Heretic-X
unit getOS;
{$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
interface
Const
Os2Version: Word = 0 { OS/2 version };
WinVersion: Word = 0 { Windows version };
DvVersion: Word = 0 { DesqView version };
DosVersion: Word = 0 { DOS version };
implementation
begin
asm
mov AH,$30
int $21
xchg AL,AH
mov DosVersion,AX
cmp AH,10
jb (zv)NoOS2
xchg AL,AH
mov BH,AH
xor AH,AH
mov CL,10
div CL
mov AH,BH
xchg AH,AL
mov Os2Version,AX
(zv)NoOS2:
end { DOS & OS/2 };
asm
mov AX,$1600
int $2F
cmp AL,$00
je (zv)NoWin
cmp AL,$80
je (zv)NoWin
cmp AL,$01
je (zv)Version2
cmp AL,$FF
jne (zv)VersionAX
(zv)Version2:
mov AX,$0002
(zv)VersionAX:
xchg AL,AH
mov WinVersion,AX
(zv)NoWin:
end { Windows };
asm
mov CX,'DE'
mov DX,'SQ'
mov AX,$2B01
int $21
cmp AL,$FF
je (zv)NoDV
mov DvVersion,BX
(zv)NoDV:
end { DesqView }
end.
Detekce OS pro BP 7.0
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.6.1999 12:52:01
>Prosim, nemate nekdo proceduru pro detekci opetacniho systemu pro
>Borland Pascal?
>Staci mi rozliseni Win95 WinNT a Dosu.
v jednom starsim programu jsem pouzival toto k detekci spustenych windows
(3.xx)
Myslim, ze na stejnem principu lze detekovat i Win9x (WinNT zda se na Int
2fh neinformuji DOS aplikace o sve existenci (tusim, ze to jde nekde
zakazat/povolit)
IsWin PROC NEAR
; testuje zda ji' jsou spusteny WINDOWS
MOV AX,4680h ; win check
INT 2Fh
OR AX,AX
JZ (zv)(zv)WinRunning ; ax = 0 => win 3.0 in real or standard mode
MOV AX,1600h ; enhanced win test
INT 2Fh
OR AL,AL
JZ (zv)(zv)NOWin ; al = 0 no enhanced mode win
CMP AL,80h ; al = $80 no enhanced mode win
JZ (zv)(zv)NOWin
; al = 01 => 2.x win running
; al = $FF => 2.x win running
; other AL = major ver
; AH = minor ver
JMP (zv)(zv)WinRunning
(zv)(zv)NOWin:
STC
RET
(zv)(zv)WinRunning:
CLC
RET
IsWin ENDP
Zdravi
D. Toman
Active X
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 8.6.1999 12:53:14
Haj hou!
>Pre svoj program pouzivam Active X komponentu, ktoru som pridal do D4.
>Otazka znie nasledovne : ako zkompilovat program, aby sa do vysledneho EXE
>suboru natiahla aj ta komponenta Activ aby ked sa spusti na inom pocitaci,
>kde nieje ten program ( myslim tym ten, ktory som pouzil ako Activ X )
>nevykrirkovalo, ze trieda nieje zaregistrovana.
AFAIK toto absolutne nelze. ActiveX DLL/EXE je vzdy nutno dodavat vzlast a
registrovat. Tedy, je tu jista moznost ze by jsi zaklel DLL/EXE do resource
sveho EXE nebo jineho souboru a odtud ho vytahl jako kralika z klobouku a
zaregistroval. Ale zakompilovat ActiveX podobne jako nativni komonentu
Delphi proste nelze.
Hodne zdaru,
Pavel Cisar
Delphree Initiative CEO
Nexus project coordinator
http://delphree.clexpert.com
Odeslani mailu
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 8.6.1999 12:58:51
Chci z aplikace odeslat mail s pripojenym souborem. Jak to mam udelat? Nechci
pouzivat zadne komponenty, pokud moznu jenom nejake API (MAPI) funkce. Viktor
Detekce OS pro BP 7.0
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 8.6.1999 12:59:55
Preji vsem pekneho dne,
nelze nahodou zakazat dosovskym programum detekovat wokna?
Slavek
-------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------------------------------
Active X
[*] Martin =?iso-8859-2?Q?Bob=E1k?= <bobak(zv)minv.sk> - 08.6.1999 13:03:13
Niekde v adresari delphi, /BIN je taka utiltka tregsvr.exe ktora to zmakne,
ale akctive-x komponenty sa daju nastavit este pocas vyvoja aby sa
registrovali, ale ako a kde to neviem , ja som podobny problem riesil tym
tregsvr.exe
Ing. J�n Kuch�r wrote:
> Caute
> Pre svoj program pouzivam Active X komponentu, ktoru som pridal do D4.
> Otazka znie nasledovne : ako zkompilovat program, aby sa do vysledneho EXE
> suboru natiahla aj ta komponenta Activ aby ked sa spusti na inom pocitaci,
> kde nieje ten program ( myslim tym ten, ktory som pouzil ako Activ X )
> nevykrirkovalo, ze trieda nieje zaregistrovana.
>
> Dik
>
> Ing. J�n Kuch�r
> Katedra inov�ci� a rein�inieringu
> SjF TU Ko�ice, Park Komensk�ho 9
> 040 01 Ko�ice
> e-mail: kuchar(zv)tuke.sk
> tel. 095 / 602 2589
Kontrolni socty CRC
[*] Petr Kandera <pkandera(zv)tanger(tec)cz> - 8.6.1999 13:09:54
Priklad pro buffer 1024 byte:
const
max buf = 1024;
CRCpolynom = $1021;
var
CRC: word;
buf : array[1..max buf] of byte;
...
for i:=1 to max buf do
begin
CRC:=CRC xor (buf[i] shl 8);
for j:=1 to 8 do
if (CRC and $8000)>0 then CRC:=(CRC shl 1) xor CRCPolynom
else CRC:=(CRC shl 1);
end;
...
V 16-bit Pascalu to slo treba takto:
procedure CRC 16(var Buffer;Len:word;var CRC:word); assembler;
asm
push ds
mov cx,Len
lds si,Buffer
cld
xor ax,ax
mov dx,$1021
mov bx,ax
(zv)1:
lodsb
xchg ah,al
xor BX,AX
mov ax,8
(zv)2:
shl BX,1
jnc (zv)3
xor BX,DX
(zv)3:
dec ax
jnz (zv)2
loop (zv)1
pop ds
push ds
lds si,CRC
mov [si],bx
pop ds
end;
Daji se pouzit ruzne polynomy, tyto priklady jsou pro polynom 0x1021={0001 0000 0010 0001 = x^16 + x^12 + x^5 + 1}.
Pak se jeste pouziva casto polynom 0x8408, algoritmus vypoctu se trochu lisi.
Petr Kandera
<pkandera(zv)tanger(tec)cz>
----- Original Message -----
From: Jind�ich Nikodem
To: Delphi f�rum
Sent: 8. �ervna 1999 11:26
Subject: Kontrolni socty CRC
Ahoj,
pokousim se o komunikaci s nejakym zarizenim pomoci COM RS-232, samotnou komuniaci jsem jiz zvladl pomoci API Windows (mam Delphi 4 Standard), ale neznam princip kontrolnich souctu CRC a jak mam dekodovat kontrolni soucet CRC16.
Za kazdou odpoved dekuji.
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Jaroslav And�l <jaroslav.andel(zv)aitix(tec)cz> - 8.6.1999 13:30:47
Ponevadz jesm se domnival, ze e-mail na Paegasu je placen (50,-) v obou
pripadech (cislo(zv)sms.paegas(tec)cz i jmeno(zv)paegas(tec)cz), provedl jsem prakticke
provereni formatu cislo(zv)sms.paegas(tec)cz -> vysledkem byla nasledujici odpoved:
(pozn.: xxxxxx(zv)sms.paegas(tec)cz bylo me existujici cislo :-) , format
+420603xxxxxx(zv)sms.paegas(tec)cz jsem zkousel tez ...)
The original message was received at Tue, 8 Jun 1999 10:03:08 +0200
from [194.212.201.150]
----- The following addresses had permanent fatal errors -----
<xxxxxx(zv)sms.paegas(tec)cz>
----- Transcript of session follows -----
... while talking to sms.paegas(tec)cz.:
>>> RCPT To:<xxxxxx(zv)sms.paegas(tec)cz>
<<< 550 <xxxxxx(zv)sms.paegas(tec)cz>... User unknown
550 <xxxxxx(zv)sms.paegas(tec)cz>... User unknown
Je tedy videt, ze tato sluzba neni davana automaticky s cislem ... (test na
tarifu manazer)
Jarda.
-----P�vodn� zpr�va-----
Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 8:37
P�edm�t: Re: Jak se v Dlephi posilaji SMS (Paegas) !!!!>V podstate mate pravdu. Zmylil jsem se. Ovsem jenom jednom pripade. Za
>cislo(zv)sms.paegas(tec)cz se neplati a mail ziskavate automaticky s cislem. Pokud
>chcete jmeno(zv)paegas(tec)cz tak se plati za registraci 50 Kc.
>Za prijimani se neplati nic. Za odeslilani z mobilu z pausalu 1 Kc a z
>Twistu 2.98 Kc .
>Z internetu se neplati nic. Omlouvam se pokud jsem svoji informaci zpusobil
>nejaky problem.
>
>S pozdravem
>
>Dan Rejchrt
>
>PS: Vase veta na konci se da chapat ruzne.
>
>-----P�vodn� zpr�va-----
>Od: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 4. �ervna 1999 22:28
>P�edm�t: Re: Jak se v Dlephi posilaji SMS (Paegas) !!!!
>
>>Vazeny pane Rejchrt,
>> podle mne (a jestli jsem i ty ostatni dobre pochopil - jo i tu slecnu
>>vod Paegasu, kam jsem volal) jsou vase informace myslne. Za registrovani
>>email. boxu at uz je to cislo(zv)sms.paegas(tec)cz nebo jmeno(zv)sms.paegas(tec)cz se
>>skutence plati.
>> No v tom pripade TOTALNE NECHAPU TY, CO TVORI PROGRAMY NA ZASILANI
>SMSEK,
>>KDYZ TO DOJDE JEN TEM, CO SI TO ZAREGISTROVALI !!!!!!!
>>
>>// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
>>| >> Tony Kmoch <<
>>| tonda(zv)kamarad(tec)cz
>>| t.kmoch(zv)seznam(tec)cz
>>| ICQ: #21901427
>>| Czech rep., Europe
>>+----------------------------------
>>| Programmers Network CZ [www.prog(tec)cz]
>>\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
>>-----P�vodn� zpr�va-----
>>Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
>>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>>Datum: 4. �ervna 1999 11:47
>>P�edm�t: Re: Jak se v Dlephi posilaji SMS (Paegas)
>>
>>
>>>Email: +420603xxxxxx(zv)sms.paegas(tec)cz je standardni pri koupy jakehokoliv
>>>telefonu Paegas. Nikde se nic neregistruje ani se za nic neplati.
>>>Email: vase.jmeno(zv)sms.paegas(tec)cz se aktivuje na strance www.paegas(tec)cz
>>funguje
>>>vsak pouze pro telefony Paegas s klasikym pausalem, ne pro Twist !
>>>
>>>Balda
>>>
>>>-----Puvodn� zpr�va-----
>>>Od: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
>>>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>>>Datum: 4. cervna 1999 10:57
>>>Predmet: Re: Jak se v Dlephi posilaji SMS (Paegas)
>>>
>>>
>>>>Prosim Vas,
>>>> nejspise je muj dotaz "MIRNE" offtopic, ale vy budete odpoved zajiste
>>>>znat. Ten email: +420603xxxxx(zv)sms.paegas(tec)cz se musi nekde zalozit, nebo
>je
>>>>zalozen automaticky a pripraven na pouzivani? A dale, kdyz jsou ty
email.
>>>>adresy, napr.: pepa.novak(zv)sms.pageas(tec)cz plati se neco za prijem zpravy?
>>>>
>>>>diky
>>>>// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
>>>>| >> Tony Kmoch <<
>>>>| tonda(zv)kamarad(tec)cz
>>>>| t.kmoch(zv)seznam(tec)cz
>>>>| ICQ: #21901427
>>>>| Czech rep., Europe
>>>>+----------------------------------
>>>>| Programmers Network CZ [www.prog(tec)cz]
>>>>\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
>>>>(for czech recipients only:
>>>> Prijimam cestinu v kodove strance ISO-8859-2)
>>>>
>>>>
>>>
>>>
>>
>>
>
PVCS
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 8.6.1999 13:41:49
Zkousel jsem na nastavit VCSID v autoexecu (Win98), ale stale
se mi ukazuje author unknown v okne se zobrazenim projektu.
Udelal jsem i Check OUT a zmeny a zpet CHECK IN, ale stale
je autor neznamy. Nevite, kde delam chybu?
Petr
> -----Original Message-----
> From: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
> Sent: Monday, June 07, 1999 7:09 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: PVCS
>
>
> Po siti to chodi, ale je nutne nejprve nastavit promennou
> VCSID = username.
> Napr. v AUTOEXEC.BAT
>
> SET VCSID = MAC
>
> (pochopitelne na kazde masine a pochopitelne s jinym USERNAME ;-)
>
> V NT se to da hodit do System Properties/Environment/User Variables...
>
> Pak uz to chodi docela slusne...
>
> Mac
>
> P.S. Abych odpovedel na puvodni dotaz - nejake zkusenosti s
> tim mame ...
>
> Hapak Vladimir wrote:
>
> > trosku som s tym robil, ale nepodarilo sa mi poriadne
> rozchodit na sieti.
> > Tiez by som uvital akykolvek pokec o subj.
> >
> > Vlado
> >
> > > -----Original Message-----
> > > From: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> > > Sent: Monday, June 07, 1999 12:20 PM
> > > To: 'delphi-l(zv)fwd(tec)cz'
> > > Subject: PVCS
> > >
> > > Nemate nekdo zkusenosti z PVCS, ktery je dodavany
> > > z Delphi C/S?
> > >
> > > Petr
>
> --
> ==============================================================
> = Ing. Martin Kubecka - Amenit s.r.o. =
> = Na Valech - budova Dytron, 741 01 Novy Jicin =
> = telefon/fax: +420 656 706203 mobil: +420 603 265926 =
> = http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
> = ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
> ==============================================================
>
> Delphi 4 & Windows 2000
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 8.6.1999 14:02:41
Hi,
v�te pros�m V�s n�kdo, jak instalovat Delphi 4 na Win 2000 ? P�ed �asem jsem ji�
psal podobn� dotaz do konference, ale bez konkr�tn�ho v�sledku.
Dotazoval jsem se tak� na INPRISE.CZ a napsali mi, �e se toto bude �e�it, a� se
Win 2000 uvoln� do prodeje.
Zaj�malo by m�, kde je pes zakop�n. Jestli u Borlandu ( t�eba Visual Basic se
instaluje v pohod� ) nebo u Gatese.
Ve sv�t� na modro byl sice popisov�n zp�sob, jak instalovat Delphi 4 na Win
2000, ale vy�aduje to je�t� jeden stroj, resp. instalaci pod Win NT 4.
Va�ek
Detekce OS pro BP 7.0
[*] Karel Kral <kral(zv)purus(tec)cz> - 08.6.1999 14:08:53
Ve Win95 urcite. Ve vlastnostech prislusneho zastupce zatrhnout:
"Zabranit programum MSDOS v detekci Windows"
Slavek Rydval wrote:
>
> Preji vsem pekneho dne,
>
> nelze nahodou zakazat dosovskym programum detekovat wokna?
>
> Slavek
>
> -------------------------------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------------------------------
--
______________________________________________________
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
______________________________________________________
RichEdit
[*] Jiri Vrabec Java -5 rocnok <xvrabe00(zv)kapr.fme.vutbr(tec)cz> - 8.6.1999 14:10:13
Nemate nekdo prosim skusenosti s RichEditem ?? Konkretne jde o to jak
zjistit jake parametry ma obsah okna : barva,velikost,sklon,... jak tyto
parametry menit a to nejlepe (alespon) pro kazdy (jdou nastavit i
jednotliva pismena ??) radek zvlast. Pokud se do richEsitu neco nakopiruje
z napr Wordu tak to tam je pekne v barvach, velikostech,.... To co nevim
je jak to nastavaovat a jak to pouzit.... Nevite nekdo ??? J.Active X
[*] Ing. J�n Kuch�r�����!j��G - 8.6.1999 14:21:10
skusal som tu utilitku, napisal ze dll zaregistroval, ale program zase
hlasil, ze trieda nieje zaregistrovana, ale ked som doinstaloval ten activx
program tak to islo vpohode. POMOC !!!!!!!!
-----P�vodn� zpr�va-----
Od: Martin Bob�k <bobak(zv)minv.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. j�n 1999 13:47
P�edm�t: Re: Active X
>Niekde v adresari delphi, /BIN je taka utiltka tregsvr.exe ktora to zmakne,
>ale akctive-x komponenty sa daju nastavit este pocas vyvoja aby sa
>registrovali, ale ako a kde to neviem , ja som podobny problem riesil tym
>tregsvr.exe
>
>Ing. J�n Kuch�r wrote:
>
>> Caute
>> Pre svoj program pouzivam Active X komponentu, ktoru som pridal do D4.
>> Otazka znie nasledovne : ako zkompilovat program, aby sa do vysledneho
EXE
>> suboru natiahla aj ta komponenta Activ aby ked sa spusti na inom
pocitaci,
>> kde nieje ten program ( myslim tym ten, ktory som pouzil ako Activ X )
>> nevykrirkovalo, ze trieda nieje zaregistrovana.
>>
>> Dik
>>
>> Ing. J�n Kuch�r
>> Katedra inov�ci� a rein�inieringu
>> SjF TU Ko�ice, Park Komensk�ho 9
>> 040 01 Ko�ice
>> e-mail: kuchar(zv)tuke.sk
>> tel. 095 / 602 2589
>Ukonceni aplikace pri ukonceni WIN...
[*] Petr Kandera <pkandera(zv)tanger(tec)cz> - 8.6.1999 14:38:45
Pomozte prosim... V hlavnim Formu aplikace mam ve FormCloseQuery dotaz na
to, zda se ma aplikace ukocit ci nikoliv. Jak ale osetrit kdyz se ukoncuji
Windows aby to po cloveku nechtelo potvrdit tento dialog? Jak davaji WIN
vedet aplikaci, ze konci a jak to elegantne osetrit?
Diky
Petr Kandera
<pkandera(zv)tanger(tec)cz>
ScriptControl?
[*] Tomas Bihary <Tomas.Bihary(zv)vslib(tec)cz> - 8.6.1999 14:40:41
Existuje pro Deplhi neco jako ScriptControl ve VBasicu?
Teda komponenta, ktera vykonava prikazi urciteho skriptu?
Diky za informace
Tomas Bihary
trideni v paradox tabulce
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 8.6.1999 14:40:47
Ahojky,
mam WinNT (nebo Win95) D3, BDE 5.01 a tabulky Paradox a v nich znaky ve Win-1250.
At menim jak menim langdriver, nejde zmenit trideni. Porad mam ceske znaky az na konci
Jak to mam nastavit? Staci to jen zmenou langdriveru?
V Dbgrid se mi ceske znaky regulerne zobrazili az kdyz jsem nainstaloval font Arial CE, puvodne z win 3.11.
Pripada mi, jako by to nepracovalo korektne s kodovymi strankami. Situace ve Win98 je jeste horsi. Tam mi nepomohl ani Arial CE :-(
Pritom pokud mam ve stejnem Gridu data z Oraclu (kam lezu bez BDE) je vse v poradku.
Dik za rady
P.S: me nynejsi nastaveni komponenty TDBase je:
PATH=d:\delphi programy\pokusn� data
LANGDRIVER='WEurope' ANSI
DEFAULT DRIVER=Paradox
ENABLE BCD=FALSE
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.6.1999 14:48:02
Ja mam Twist a tam je automaticky a zcela
zdarma zrizena emailova adresa
+420603xxxxxx(zv)sms.paegac(tec)cz
a pokud mi nekdo neco posle na
xxxyyyy(zv)sms.paegas(tec)cz (tedy bez
uvodniho +420603 tak mi to rovnez
prijde v pohode, rychle a bez problemu.
ALE 0603xxxyyy(zv)sms.paegas(tec)cz neprijde !
> ----------
> Je tedy videt, ze tato sluzba neni davana automaticky s cislem ...
> (test na
> tarifu manazer)
>
> Jarda.
>
> Error ODBC 32
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 8.6.1999 15:02:41
Ahojte.
Mam malinky problemek s pripojenim k databazi DBase pres ODBC.Pri navrhu
vsechno funguje, data se zobrazi v DBGridu, ale pri spusteni, jeste pred
provedenim Application.Run mi to spadne s timto hlasenim:
"Project spis.exe raised exception class ESQLError with message
�01000:[Microsoft][ODBC Driver Manager].The driver dosn�t support the
version of ODBC behaviour that application requested (See SQLSetEnvAttr).�.
"
Mam tam free komponentu MODBC stazenou myslim z DSP, mozna je v ni chyba,
ale vubec z ni nepouzivam mSQL(mam mdatabase a mtable).
ODBC , ktere mam na masine(viz. nize), jsem stahoval nekdy minuly tyden z
MSDN a myslim, ze by melo byt nejnovejsi, tak proc ho nepodporuje?
Predem dekuji za jakekoli nakopnuti.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
P.S.M�m D4 C/S,W98,ODBC 32 v. 3.510.3002.23
RichEdit
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 8.6.1999 15:46:56
Ahoj...
...podle RichEdit1.SelAttributes
napriklad barvu prvniho pismene/znaku nastavis takto
RichEdit1.SelStart:=0;
RichEdit1.SelLength:=1;
RichEdit1.SelAttrtibutes.Font.Color:=clRed;
Doufam, ze Ti to takto strucne staci.
Dobra.
> ----------
> Nemate nekdo prosim skusenosti s RichEditem ?? Konkretne jde o to jak
> zjistit jake parametry ma obsah okna : barva,velikost,sklon,... jak
> tyto
> parametry menit a to nejlepe (alespon) pro kazdy (jdou nastavit i
> jednotliva pismena ??) radek zvlast. Pokud se do richEsitu neco
> nakopiruje
> z napr Wordu tak to tam je pekne v barvach, velikostech,.... To co
> nevim
> je jak to nastavaovat a jak to pouzit....
>
> Kontrolni socty CRC
[*] Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> - 8.6.1999 15:55:55
Zde sem neco vytahl ze skrip o principu CRC
c. cyklick� zabezpe�en�
Je velmi v�konn� technika pro zabezpe�en� dat pou��vaj�c� cyklick�ho zabezpe�en� dat (Cyclic Redundancy Check - CRC). Tato technika dopln� ka�d� p�en�en� r�mec o zbytkem po d�len� polynomem (Frame Check Sequence - FCS ), p�i�em� zabezpe�ov�n je cel� r�mec v�etn� znaku za��tku r�mce. Pro zabezpe�en� se pou��vaj� n�sleduj�c� polynomy:
CRC-12 = x12 + x11 + x3 + x2 + x1 + 1
CRC-16 = x16 + x15 + x2 + 1
CRC-CCITT = x16 + x12 + x5 + 1
�sp�nost detekce z�vis� na d�lce p�en�en�ho r�mce: a.. 100% detekce chyb sud�ch r�mc�, b.. 100% detekce chyb do 16 bitov� d�lky, c.. 99,997% detekce chyb do 17 bitov� d�lky, d.. 99.998% detekce chyb 18 bitov� d�lky a del��.
Existuj� nejen detek�n�, ale i cyklick� k�dy, kter� um� chyby opravit. Vy�aduj� v�ak asi 50% nadbyte�nost, ��m� v�razn� sni�uj� pr�chodnost dat linkou a zvy�uj� pravd�podobnost chyby.
Cyklick� zabezpe�en� (FCS = Frame Check Sequence) se generuje vytv��ec�m mnoho�lenem m (x). Zabezpe�uj� se v�echna pole mezi r�mcov�mi zna�kami ov�em p�ed uplatn�n�m mechanismu transparence ��d�c�ch dat. V p�ij�ma�i se p�ijat� r�mec d�l� vytv��ec�m mnoho�lenem a� po odstran�n� nadbyte�n�ch nul. V n�sleduj�c� rovnici ozna��me zabezpe�ovan� pole m(x) - celkem k bit�, cel� r�mec a(x). D�len� vytv��ec�m mnoho�lenem g(x) vyj�d��me rovnic� :
(1)
Nech� se vys�l� zpr�va
a(x) = x16m(x) + FCS = x16m(x) + r(z) = x16m(x) + r(x) + + j(x) . (2)
N�soben� �lenem x16 vyjad�uje rezervov�n� 16 m�st pro zabezpe�en�. Proto�e se v n�kter�ch p��padech jev� nev�hodn� dopln�n� pozic zabezpe�en� ( x15 a� 1) sam�mi nulami, je tato pozice dopln�na sam�mi jedni�kami (tj. mnoho�lenem j(x) = x15+x14+...+x2+x+1 je 16 jedni�ek). Sou�in nk.j(x) se p�i�te k lev� ��sti m(x), co� se rovn� negaci 1 t�chto 16 lev�ch pozic m(x). Tomu odpov�d� i realizace p�i�ten� �lenu xk.j(x) bu�to p�ednastaven�m posuvn�ho registru na sam� jedni�ky nebo negac� 16 lev�ch bit� m(x). Jako zabezpe�en� se pou��v� negovan� zbytek po d�len� vytv��ec�m mnoho�lenem.
d. P��klad zp�sobu proveden� v�po�tu FCS v jazyku C pro 16-ti bitov� po��ta�e
Zp�sob implementace v�po�tu je polotabulkov� metoda zalo�en� na tom, �e p�ijat� �i vys�lan� oktet generuje v�dy stejn� zbytek po d�len�. Tento zbytek je pot� p�i�ten modulo 2 k nov� vys�lan�mu nebo p�ijat�mu oktetu. N�ro�n� v�po�et je tak p�eveden na mechanick� prov�d�n� posun� a prov�d�n� operac� sou�tu modulo dv�.
Tvar vytv��ej�c�ho polynomu je g(x) = X16 + X12 + X5 + 1
Spole�n� prom�nn� jsou fcs a fcstab definovan� jako pole o 256 prvc�ch typu word (unsigned int).
word fcs; // hodnota, do kter� jsou ukl�d�ny pr�b�n� v�sledky v�po�tu FCS
word fcstab [256]; // tabulka vypo��tan�ch zbytk� po ��ste�n�m d�len�
d.a. Generov�n� tabulky
Proto je nutno nejprve vytvo�it tabulku zbytk� po d�len� vytv��ej�c�m polynomem. Ta mus� obsahovat �plnou kombinaci v�ech prvk� oktetu, tj. 256 pozic. Postup je pops�n v jazyku C a je n�sleduj�c�:
#define fcspoly 0x1021; // vytva�ec� polynom
void init fcs tab (void)
{ word i, j;
for ( i = 0; i < 256; i++ ) // cyklus pro v�po�et v�ech kombinac� tabulky
{fcs = i<<8;
for ( j = 8; j > 0; j-- ) // v�po�et fcs pro jednotliv� kombinace bit� znaku
{if ( fcs & 0x8000 )
fcs = (fcs<<1) ^ fcspoly
else fcs <<= 1;
}
fcstab[i] = fcs;
}
}
d.b. V�po�et zbytku po d�len�
V�po�et zbytku po d�len� se vypo��t�v� n�e uveden�m vztahem p�i�em� hodnota fcs mus� b�t p�ed vys�l�n�m nulov�na. Jako znak se pou�ije vys�lan� oktet.
fcs = 0x0;
fcs = fcstab [ ( ( fcs>>8 ) ^ znak) & 0xff ] ^ ( ( fcs << 8 ) & 0xff00 );
toto je c paskalu nutno prepsat do delphi
{ procedura k vytvoreni tabulky zbytku FCS 0..255 }
procedure MakeFcsTab(var fcstab:TArrayOfWord);
const fcspoly:word=$1021;
var
fcs:word;
i,j:word;
begin
for i:=0 to 255 do
begin
fcs:=i shl 8;
for j:=8 downto 1 do
begin
if ((fcs AND $8000)=$8000) then
fcs:=(fcs shl 1)xor fcspoly
else
fcs:=fcs shl 1;
end;
fcstab[i]:=fcs;
end;
end;
procedura k vypocteni FCS ramce Data OUT }
procedure CreateFCS(var b:string;fcstab:TArrayOfWord);
var fcsx,fcsxx:byte;
fcsi,fcsii,fcshlp,pomint:integer;
i:byte;
begin
fcsi:=integer(fcstab[ord(b[1])]);
fcsx:=byte(fcsi shr 8);
fcsii:=integer(fcstab[(ord(b[2]) xor fcsx)]);
{writeln(ord(b[2]),' ','0',' ',fcsx,' ',fcsii);}
for i:=3 to (6+ord(b[6])) do
begin
fcshlp:=fcsi shl 8;
fcsx:=byte(fcshlp shr 8);
fcsxx:=byte(fcsii shr 8);
fcsi:=fcsii;
fcsii:=integer(fcstab[(ord(b[i]) xor fcsx xor fcsxx)]);
{writeln(ord(b[i]),' ',fcsx,' ',fcsxx,' ',fcsii);}
end;
{writeln(fcsi,' ',fcsii);}
fcsi:=fcsi shl 8;
fcshlp:=fcsi xor fcsii;
pomint:=fcshlp;
pomint:=(pomint shl 8)shr 8;
fcsx:=byte(pomint);
fcsxx:=byte(fcshlp shr 8);
{writeln(fcsxx,' ',fcsx);}
b[ord(b[6])+6+1]:=chr(fcsxx);
b[ord(b[6])+6+2]:=chr(fcsx);
end;
-----P�vodn� zpr�va-----
Od: Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz>
Komu: Delphi f�rum <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 12:45
P�edm�t: Kontrolni socty CRC
Ahoj,
pokousim se o komunikaci s nejakym zarizenim pomoci COM RS-232, samotnou komuniaci jsem jiz zvladl pomoci API Windows (mam Delphi 4 Standard), ale neznam princip kontrolnich souctu CRC a jak mam dekodovat kontrolni soucet CRC16.
Za kazdou odpoved dekuji.
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
Vyhledani podobnych slov
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 8.6.1999 16:02:26
Ahoj.
Uz je to dost dlouho, ale na FTP to nejak nemuzu najit. Muzete mi nekdo
poradit, kde to je ???
Dik. JK
-----Original Message-----
From: PLETICHA Ji�� <pleticha(zv)kol1.kolej.ujep(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 26. kv�tna 1999 15:49
Subject: Re: Vyhledani podobnych slov
Ahojky,
okopirovany text jsem poslal na adresu j.binder(zv)albacon(tec)cz
jde o pis principu - dve oscanovany stranky - 110kB.
Odeslano take spravci FTP serveru DELPHI k uverejneni.
Prosim nebombardujte me, pockejte si az to bude na FTP. Dik.
Oce(zv)niC
-----------------------------
oceanic(zv)muzatec(tec)cz
pleticha(zv)kol1.kole.ujep(tec)cz
http://oceanic.kolej.ujep(tec)cz
ICQ: 20084514
-----------------------------
-----P�vodn� zpr�va-----
Od: PLETICHA Ji�� <pleticha(zv)kol1.kolej.ujep(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 26. kv�tna 1999 2:39
P�edm�t: Re: Vyhledani podobnych slov
>Ahojky,
>
> tato problematika je dobre popsana v "knize" 100+1 programu pro stary
dobry
>Didaktik Gama... oscanuji a poslu do konce tydne...
>
>Oce(zv)niC
>-----------------------------
>oceanic(zv)muzatec(tec)cz
>pleticha(zv)kol1.kole.ujep(tec)cz
>http://oceanic.kolej.ujep(tec)cz
>
>ICQ: 20084514
>-----------------------------
>zkusebni provoz kolejniho radia
>WinAMP -> OPEN URL -> 195.113.139.65:8000
>-----------------------------
>-----P�vodn� zpr�va-----
>Od: Jiri Binder <j.binder(zv)albacon(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 25. kv�tna 1999 22:52
>P�edm�t: Vyhledani podobnych slov
>
>
>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
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 8.6.1999 16:05:54
Abych vam v tom udelal uz konecne jasno !!!!!!.::
TWIST ma ZDARMA zrizenou adresu +420603xxxxxx(zv)sms.paegas(tec)cz a je funkcni
ihned po aktivaci TWIST karty.
Naproti tomu placeny TARIF at je to jakykoliv si musi nechat JAKOUKOLIV
adresu, tzn. +420603xxxxxx(zv)sms.paegas(tec)cz nebo beda.travnicek(zv)sms.paegas(tec)cz
nechat aktivovat za poplatek 50 Kc.
Twist nemuze e-mail nikdy vypnout, kdezto TARIF ano, napr. pomoci operatorky
nebo www stranek.
PK
----- P�vodn� zpr�va -----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. �ervna 1999 14:48
P�edm�t: RE: Jak se v Dlephi posilaji SMS (Paegas) !!!!> Ja mam Twist a tam je automaticky a zcela
> zdarma zrizena emailova adresa
> +420603xxxxxx(zv)sms.paegac(tec)cz
> a pokud mi nekdo neco posle na
> xxxyyyy(zv)sms.paegas(tec)cz (tedy bez
> uvodniho +420603 tak mi to rovnez
> prijde v pohode, rychle a bez problemu.
>
> ALE 0603xxxyyy(zv)sms.paegas(tec)cz neprijde !
>
> > ----------
> > Je tedy videt, ze tato sluzba neni davana automaticky s cislem ...
> > (test na
> > tarifu manazer)
> >
> > Jarda.
> >
> >
>Microsoft to invest in Inprise, license technology
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 8.6.1999 16:06:28
Microsoft to invest in Inprise, license technology
Reuters Story - June 08, 1999 06:25
SCOTTS VALLEY, Calif., June 8 (Reuters) - Inprise Corp. said Tuesday it
reached a series of agreements with Microsoft Corp. covering technology
licensing and a $25 million investment by Microsoft, that settled
long-standing patent and licensing conflicts between the companies.
Microsoft, the Redmond, Wash.-based software giant, will also pay $100
million to Inprise for the rights to use Inprise's patented technology in
Microsoft products and to settle the disputes.
Under the arrangements, Inprise, a Scotts Valley, Calif., maker of software
that simplifies application development, has agreed to support Microsoft's
Windows 2000 operating system by enhancing Inprise's family of Windows
developments tools to support the technology.
It will also license technology from Microsoft for the development of
applications for Windows.
Microsoft will buy $25 million of Inprise preferred stock, and has committed
to provide Inprise with technologies related to the Windows platform and
with Internet technologies.
Inprise, formerly Borland International, was once considered enough of a
threat to Microsoft that Microsoft Chairman Bill Gates wrote a metaphorical
memo to staff directing them to "kill Philippe," referring to Borland
founder Philippe Kahn.
Inprise shares closed at $4 each Monday, before the announcement, on the
Nasdaq stock market, off a 52-week high of $8.625
Copyright 1999 Reuters Limited. All rights reserved. Republication or
redistribution of Reuters content is expressly prohibited without the prior
written consent of Reuters. Reuters shall not be liable for any errors or
delays in the content, or for any actions taken in reliance thereon.
Service Pack 1 pro MS SQL 7.0
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.6.1999 16:26:51
Takze je to tady ;-)
Zdroj: http://www.emwac(tec)cz
NEW! SQL Server 7.0 Service Pack 1
Includes: Database Components SP1 and OLAP Services SP1 (7.6.1999)
ftp://ftp.emwac(tec)cz/ftp.microsoft.com/bussys/sql/public/fixes/usa/Sql70/Sp1/X86/sql70SP1i.exe
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
SP5a pro SQL 6.5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.6.1999 16:40:13
No a mozna nevite, ze existuje krome SP5 jeste i SP5a pro MS SQL 6.5. Ja
to zjistil az tedkom :-(((
http://support.microsoft.com/support/kb/articles/Q197/1/76.asp?PR=NTS&T1=14d&FR=0&A=T&T=B&S=F&
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Neznam PARENT
[*] Pavel Vake� <Rocky(zv)podvodnik(tec)cz> - 8.6.1999 16:41:59
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nedavno jsem se tady ptal jak to mam udelat kdyz za behu programu vytvorim
objekt TFileListBox abych mohl priradit nejakou cestu vlastnosti Directory.
to je vyreseno nasledujicim zpusobem
FileBox := TFileListBox.Create(Self);
FileBox.Parent := Self;
Jo, ale co kdyz si delam komponentu ve ktere chci pri vzniku taky vytvorit tento objekt. To mi nejde pise me to furt ze nemam prirazeny parent.
Takze sem usoudil ze to nejako SELF nebere.
prosim o porazeni co bych tam mohl priradit....
Predem diky..
Ukonceni aplikace pri ukonceni WIN...
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 8.6.1999 16:42:38
On Tue, 8 Jun 1999, Petr Kandera wrote:
> Pomozte prosim... V hlavnim Formu aplikace mam ve FormCloseQuery dotaz na
> to, zda se ma aplikace ukocit ci nikoliv. Jak ale osetrit kdyz se ukoncuji
> Windows aby to po cloveku nechtelo potvrdit tento dialog? Jak davaji WIN
> vedet aplikaci, ze konci a jak to elegantne osetrit?
Ahoj,
Pred ukoncenim winsu dostane aplikace zpravu WM_ENDSESSION.
procedure WMEndSession(var Message:TWMEndSession); message WM_ENDSESSION;
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Ukonceni aplikace pri ukonceni WIN...
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.6.1999 16:43:35
>Pomozte prosim... V hlavnim Formu aplikace mam ve FormCloseQuery dotaz na
>to, zda se ma aplikace ukocit ci nikoliv. Jak ale osetrit kdyz se ukoncuji
>Windows aby to po cloveku nechtelo potvrdit tento dialog? Jak davaji WIN
>vedet aplikaci, ze konci a jak to elegantne osetrit?
Odchytit WM_QUERYENDSESSION a vracet 1
Zdravi
D. Toman
Microsoft to invest in Inprise, license technology
[*] Peter Rus <peterrus(zv)intesys(tec)cz> - 08.6.1999 17:00:27
:-)))) Ahoj,
A je to tady ... stejne si myslim, ze nebude dlouho trvat a bude tu
JEDNO vyvojove prostredi, maximalne rozdelene na standard, profi a c/s
... a ze ho bude vlastnit MS ;-)))
Mejte se,
Peter
Pavel Cisar wrote:
>
> Microsoft to invest in Inprise, license technology
>
> Reuters Story - June 08, 1999 06:25
> SCOTTS VALLEY, Calif., June 8 (Reuters) - Inprise Corp. said Tuesday it
> reached a series of agreements with Microsoft Corp. covering technology
> licensing and a $25 million investment by Microsoft, that settled
> long-standing patent and licensing conflicts between the companies.
>
> Microsoft, the Redmond, Wash.-based software giant, will also pay $100
> million to Inprise for the rights to use Inprise's patented technology in
> Microsoft products and to settle the disputes.
>
> Under the arrangements, Inprise, a Scotts Valley, Calif., maker of software
> that simplifies application development, has agreed to support Microsoft's
> Windows 2000 operating system by enhancing Inprise's family of Windows
> developments tools to support the technology.
>
> It will also license technology from Microsoft for the development of
> applications for Windows.
>
> Microsoft will buy $25 million of Inprise preferred stock, and has committed
> to provide Inprise with technologies related to the Windows platform and
> with Internet technologies.
>
> Inprise, formerly Borland International, was once considered enough of a
> threat to Microsoft that Microsoft Chairman Bill Gates wrote a metaphorical
> memo to staff directing them to "kill Philippe," referring to Borland
> founder Philippe Kahn.
>
> Inprise shares closed at $4 each Monday, before the announcement, on the
> Nasdaq stock market, off a 52-week high of $8.625
>
> Copyright 1999 Reuters Limited. All rights reserved. Republication or
> redistribution of Reuters content is expressly prohibited without the prior
> written consent of Reuters. Reuters shall not be liable for any errors or
> delays in the content, or for any actions taken in reliance thereon.WWW Browser, CLIPBOARD, TISK
[*] Miroslav Topol�� - 8.6.1999 18:01:11
Zdravim,
pouzivam prohlizec INTERNET EXPLORER pres ACTIVE X a
nenasel jsem prikaz pro tisk stranky na tiskarnu.
Dalsi problem {pro mne} je v kopirovani oznaceneho textu do clipboardu.
Kopirovat lze pouze zvolenim COPY v POPUPMENU
po stisku praveho tlacitka. Pres CTRL+C to nedela nic.
Predem dekuji za
odpoved
Miroslav Topolar
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 8.6.1999 20:36:03
Petr Kro�a ml. <pkroca(zv)compact(tec)cz> wrote:
> Naproti tomu placeny TARIF at je to jakykoliv si musi nechat JAKOUKOLIV
> adresu, tzn. +420603xxxxxx(zv)sms.paegas(tec)cz nebo beda.travnicek(zv)sms.paegas(tec)cz
Tak tohle uz skoro odpovida skutecnosti az na to, ze jakmile si zridis
e-mailovou schranku, mas adresu +420603xxxyyy(zv)sms.paegas(tec)cz vzdycky a k ni
si volitelne muzes jeste zaregistrovat adresu ve tvaru
<jmeno>.<prijmeni>(zv)sms.paegas(tec)cz viz napr. prikaz EMAIL zasilany formou SMS
na cislo 4616 (Paegas Info). Syntaxe je EMAIL ZAP [<jmeno>.<prijmeni>].
Bye, pf
Neznam PARENT
[*] Ondrej Sterba <ondrej.sterba(zv)iol(tec)cz> - 8.6.1999 20:37:42
V pripade, ze chces za behu vytvorit novy formular (napr. Form2) a v nem vytvorit novou komponentu TFileListBox, nemuzes napsat Self, ale formular. do ktereho bude skutecne patrit (napr. FileBox.parent:=Form2). Doufam, zes to tak myslel.
Zdar
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 17:23
P�edm�t: Neznam PARENT
Nedavno jsem se tady ptal jak to mam udelat kdyz za behu programu vytvorim
objekt TFileListBox abych mohl priradit nejakou cestu vlastnosti Directory.
to je vyreseno nasledujicim zpusobem
FileBox := TFileListBox.Create(Self);
FileBox.Parent := Self;
Jo, ale co kdyz si delam komponentu ve ktere chci pri vzniku taky vytvorit tento objekt. To mi nejde pise me to furt ze nemam prirazeny parent.
Takze sem usoudil ze to nejako SELF nebere.
prosim o porazeni co bych tam mohl priradit....
Predem diky..
TMemoryStream & HTTP Response
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 8.6.1999 22:02:28
> Tato uloha bude vzdy obsahovat iteraci, je jen otazka, jak bude vypadat
> :-)))
> Ty mas zrejme na mysli neco takoveho:
>
> for Position:=0 to Size-length(MatchPattern) do
> asm
> ...
> repe cmpsb
> jne (zv)(zv)NotFound
> ...
> end
tak presne takto som to riesit moc nechcel ...
btw: v asm som naposledy robil pred 4-5 rokmi (to som este pisal veci pre
pmod a podobne kraviny ... az neskor som opchopil ze sa tym neuzivim ..., to
len tak na okraj.)
> K tomu snad jen poznamka, ze se vyplati vyuzit sirku sbernice procesoru a
> misto po bytech porovnavat ctverice pomoci cmpsd, pak zbyle dvojice pomoci
> cmpsw a nakonec pripadny plonkovy byte.
to je jasne.> Tento algoritmus jsem zkousel pri praci se short strings jako nahradu za
> funkci pos() pri realizaci operace "like %MatchPattern%" a nenameril jsem
> statisticky vyznamne rozdily. Pri prohledavani delsich textu bude tento
> algoritmus vyhodnejsi.
moze byt, ale niekde mi niekto hovoril ze kompilaotr delphi je pomerne
slusny a ze v asm sa moc usetrit neda...
>
> P.S. Nejak jsem nevycetl, co ma tvuj dotaz spolecneho s HTTP response v
> Subjectu :-(
replikator excelovskeho sheetu via http. mam sadu *.asp, ktore nie su odo
mna na servri ktory je ani neviem kde a ja potrebuje vykonat aktualizaciu
zaznamov. Poslem jeden request na autorizaciu a muesim checkut resoponse na
urcite "znaky" indikujuce uspesnost. Napr. sa v odpovedi moze nachadzat
"boli ste uspesne prihlaseny do systemu"... No a komponenty od FP pracuju s
TMemoryStream...
dakujem
rw
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 8.6.1999 22:11:29
.
.
>protoze jsem chtel pro sebe nahradit diar a potreboval jsem neco co me
>napr. zejtra v 16.00
>zapipa a neco napise. A protoze mobil nosim u sebe furt je to idealni
>(pokud mas pevnou linku)
>
vlastne to se da udelat i kdyz nemas pevnou lajnu (viz email na (zv)email(tec)cz,
protoze tam se da nastavit, kdy ma email odejit.....)
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Peter Rus <peterrus(zv)intesys(tec)cz> - 08.6.1999 22:23:27
Zdravim,
take si priliji svou trosku do ohne :-).
V Paegas Info Profilu je taky moznost udelast si kalendar s ohlasovanim
pres SMS. A taky mame Paegas assistentky :-), ktere pro mile zakazniky
udelaji i modre z nebe :-)). Skoro :-)).
Preji prijemny den,
Peter Rus
Tonda Kmoch wrote:
>
> .
> .
>
> >protoze jsem chtel pro sebe nahradit diar a potreboval jsem neco co me
> >napr. zejtra v 16.00
> >zapipa a neco napise. A protoze mobil nosim u sebe furt je to idealni
> >(pokud mas pevnou linku)
> >
>
> vlastne to se da udelat i kdyz nemas pevnou lajnu (viz email na (zv)email(tec)cz,
> protoze tam se da nastavit, kdy ma email odejit.....)
>
> // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
> | >> Tony Kmoch <<
> | tonda(zv)kamarad(tec)cz
> | t.kmoch(zv)seznam(tec)cz
> | ICQ: #21901427
> | Czech rep., Europe
> +----------------------------------
> | Programmers Network CZ [www.prog(tec)cz]
> \\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //autoincrement na SQL serveru
[*] Jaro <jaro(zv)sinea(tec)cz> - 8.6.1999 22:31:29
Nedavno tu na tohle tema byla obsirna diskuse. Podivej se do archivu.
Slo o to, ze pro C/S
programy je pouziti autoincrementu velmi nevhodne. Naproti tomu ma
server a SQL jazyk daleko
sirsi a lepsi moznosti pro vyber a hledani pozadovanych informaci,
takze potreba autoincrementu
zpravidla odpada. Je to spise zvyk. Ti kdoz prechazeji od tabulek na
C/S se snazi programovat
stejne. Nedovedou si predstavit jiny pohled na problem. Programy C/S
jsou o necem zcela jinem nez
o otevirani celych tabulek na klienta a vyhledavani informaci az na
klientovi. To je ale na delsi
diskusi.
Pokud na teto metode trvas, pak pouzij Locate a pocitej s tim, ze to
na velkych objebem dat bude
spise zdrzovat. Muzes to ale klidne otevrit pres TTable a pracovat jak
jsi byl zvykly s tabulkami.
Bude to vsak vzdalene programum zalozenym na principech C/S
Jaro
------------------------------------------
>Ahoj
>
>potrebuji udelat neco podobneho jako je increment v tabulkach
paradoxu ale ja to potrebuji udelat na MS SQL serveru verze 6.5
>
>nevim jak poradi nekdo ???
>
>
>
>-- http://email.seznam(tec)cz
>-- email zdarma na cely zivot
Active X
[*] Miro Mrazik <miro_mr(zv)hotmail(tec)com> - 08.6.1999 23:27:17 pdt
>From: "Ing. J�n Kuch�r" <kuchar(zv)tuke.sk>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: <delphi-l(zv)fwd(tec)cz>
>Subject: Re: Active X
>Date: Tue, 8 Jun 1999 14:21:10 +0200
>
>skusal som tu utilitku, napisal ze dll zaregistroval, ale program zase
>hlasil, ze trieda nieje zaregistrovana, ale ked som doinstaloval ten activx
>program tak to islo vpohode. POMOC !!!!!!!!
Ahoj,
no to je prave to ze ActiveX funguju ako samostatna komponenta a to aj
preto, lebo ich poslanim je aby boli vyuzitelne akoukolvek aplikaciou
napisanou v akomkolvek jazyku, ktory implementaciu ActiveX podporuje. Ak
potrebujes zakompilovat komponentu do exe suboru bude asi najlepsie vyhladat
podobnu komponentu VCL.
>
>-----P�vodn� zpr�va-----
>Od: Martin Bob�k <bobak(zv)minv.sk>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 8. j�n 1999 13:47
>P�edm�t: Re: Active X
>
>
> >Niekde v adresari delphi, /BIN je taka utiltka tregsvr.exe ktora to
>zmakne,
> >ale akctive-x komponenty sa daju nastavit este pocas vyvoja aby sa
> >registrovali, ale ako a kde to neviem , ja som podobny problem riesil tym
> >tregsvr.exe
> >
> >Ing. J�n Kuch�r wrote:
> >
> >> Caute
> >> Pre svoj program pouzivam Active X komponentu, ktoru som pridal do D4.
> >> Otazka znie nasledovne : ako zkompilovat program, aby sa do vysledneho
>EXE
> >> suboru natiahla aj ta komponenta Activ aby ked sa spusti na inom
>pocitaci,
> >> kde nieje ten program ( myslim tym ten, ktory som pouzil ako Activ X )
> >> nevykrirkovalo, ze trieda nieje zaregistrovana.
> >>
> >> Dik
> >>
> >> Ing. J�n Kuch�r
> >> Katedra inov�ci� a rein�inieringu
> >> SjF TU Ko�ice, Park Komensk�ho 9
> >> 040 01 Ko�ice
> >> e-mail: kuchar(zv)tuke.sk
> >> tel. 095 / 602 2589
> >
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Sysmenu
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 9.6.1999 06:26:56
Ahoj vsichni
prosim o nakopnuti. Jak pridat polozku do systemoveho menu je mi znamo, ale jak ji proboha
priradit klavesovou zkratku ? A jak zmenit tu ktera tam uz je? Treba nechci , aby zavreni okna bylo ALT+F4,
protoze ji potrebuju na neco jineho.
Dik
Daniel Kminek
kminek(zv)mite(tec)cz
www.mite(tec)cz
Sysmenu
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 9.6.1999 07:04:55
Klavesova zkratka se prida pomoci & - treba &File, menu potom reaguje na
F.
Co se tyce alt+F4 - snad by pomohlo odchytit udalost stisteni klaves -
ale nevim, zatim jsem to nepotreboval.
> -----P�vodn� zpr�va-----
> Od: Daniel Kminek [SMTP:kminek(zv)mite(tec)cz]
> Odesl�no: 9. �ervna 1999 6:27
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Sysmenu
>
> Ahoj vsichni
> �
> prosim o nakopnuti. Jak pridat polozku do systemoveho menu je mi
> znamo, ale jak ji proboha
> priradit klavesovou zkratku ? A jak zmenit tu ktera tam uz je? Treba
> nechci , aby zavreni okna bylo ALT+F4,
> protoze ji potrebuju na neco jineho.
> �
> ����������������������������������������������������������������������
> ������������� Dik
> �
> ����������������������������������������������������������������������
> � Daniel Kminek
> �
> kminek(zv)mite(tec)cz <mailto:kminek(zv)mite(tec)cz>
> www.mite(tec)cz <http://www.mite(tec)cz>
> Ukladani properties do souboru
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 9.6.1999 08:04:33
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
v Delphi 4 vyuzivam ukladani vlastnosti VCL do souboru (Stream) a mam tento problem:
dynamicky vytvorim nejake objekty (TButton, TLabel, TImage...) a nastavim jejich vlastnosti. Pak ulozim cely Form do souboru (Streamu) a vse je jak ma byt.
Ale ja chci u nekterych objektu neukladat nejake vlastnosti, konkretne u TImage nechci ukladat vlastnost Picture, aby se mi do souboru neukladal obrazek.
Zbytecne to zvetsuje soubor.
Nevim jak definovat jednotlivym objektum, ktere properties chci a ktere nechci ukladat.
Predem dekuji
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
Jak pouzit Sender u Formulare
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 9.6.1999 07:50:19
> Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
>
> procedure TfmHledej.Napln(Sender: TForm);
> var i : SmallInt ;
> begin
> for i := 0 to 2 do
> begin
> Sloupce.Items.Add ((Sender as TForm).DBGrid.Columns[i].FieldName) ;
> end;
> HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> HledanyText.FieldName := (Sender as TForm).DBGrid.Columns[0].FieldName;
> end;
... jak tak na to koukam, asi ti nefunguje to (Sender as TForm).DBGrid
ne? no, ja jenom nechapu, proc predavas Sender:TForm, kdyz ho
pouzivas jenom pro adresovani toho Gridu, tak proc nepredavas primo
ten DBGrid?
> HledanyText: TDBEdit;
> Sloupce: TComboBox;
>
> jeste bych rad predaval parametr, ktery by mi umoznil delat smycku o to
> parametr.
... parametr do ty funkce nebo kam? tak ho tam proste pridej ne?
neco jako Napln(Sender:TForm; Smycka:integer);
> Predevsim u toho Sendru fakt nevim co s tim.
>
> Pavel Medek
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/