Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Nastaveni urovni na RS232
[*] Zapl�k <zaplik(zv)volny(tec)cz> - 26.2.2002 09:39:46
> Co to je malej HW ? V�stupy jsou sice dost odolne, ale proud, kterym muzes
> ten svuj HW napajet, je max. 10mA. Coz je tak akorat na vybuzeni LED nebo
> vykonoveho stupne. Ale napajet tim neco vetsiho je silenost.
Pouze optoclen nebo co. Ja presne nevim jak ma fungovat ten HW, pouze dostal
jsem dotaz, zda-li se da z rs232 vycucnout 2x +10V a 2x -10V prave kvuli
odberu. Pokud to nepujde, bude vyvoj HW hledat jinou cestu.
zaplik
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
IP komunikace IB/FB ve win95
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 26.2.2002 09:39:08
Martin Bedn�� dne 26 Feb 2002 v 8:47:
> prosil bych jeste jednou o radu. Mam IP sit win95/98 pocitace mezi
> sebou normalne pingnou. Na jednom z nich je nainstalovan InterBase
> server. Z klienta Win98 se normalne konektnu k databazi, ale problemy
> jsou z klientu Win95. Tam to pri konektu k databazi napise
> nasledujici:
>
> Unable to complete network request to host "192.168.0.20".
> Failed to lacate host machine.
> The specified name was not found in the hosts file or Domain Name
> Services.
Ahoj,
mam dojem, ze v dokumentaci je vyslovne napsano, ze se primo IP
adresa nema pouzivat.
Win95: obsahuji chyby, je zrejme treba nainstalovat WinSock2 (da se
snad jeste stahnout na strankach M$). Bez WS2 se mi nedarilo
pripojeni ani na localhost - Windows 95 se pokousely vytacet modemove
spojeni.
Karel Rys
______ _ ___ Vyssi odborna skola zahradnicka
\ \/ \_ --- | Stredni zahradnicka skola
/ | | Melnik
( | |
\_ ___/ | e-mail: rys(zv)zas-me(tec)cz
_/ \\ ______| web: http://www.zas-me(tec)cz
\_ / \_/ tel. 0206/623023-5, 0604/846436
\____/ fax 0206/623009
onClick a rychly procesor?
[*] Jarda Jirava <listuj(zv)centrum(tec)cz> - 26.2.2002 09:41:56
Zdravim konferenci,
uz delsi dobu jsem se na nic neptal, ale jiz delsi dobu me
trapi jedna malickost.
V aplikaci ma vyberovy dialog (2x datum DateTimePicker a
rozbalovaci seznam). Vse fungovalo perfektne, do doby nez se
aplikace spustila na "rychlem" stroji (1.7GHz).
Ve volajicim formulari jsem zjistoval zadane vstupni hodnoty
takto:
if frmSelect.ShowModal = mrOK then
begin
selItem := TSelect(frmSelect.cmbVyber.Items.Object
[frmSelect.cmbVyber.ItemIndex]).ID;
datOD := frmSelect.datOD.Date;
datDO := frmSelect.datDO.Date;
end;
Kdy TSelect je pouze trida pro zjisteni vybranych polozek.
Jak je mozne, ze na pomalem pocitaci toto probehne v poradku a
na rychlem se nestaci zaznamenat vybrany index v rozbalovacim
seznamu? (chovani je nedeterministicke, jednou to probehne tak
jak ma, nekolikrat za sebou se polozka nevybere)
Nebo delam neco uplne spatne?
Diky za vase rady
Jarda
*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
===== www.centrum(tec)cz doporu�uje =====
Novinky v automobilov�m sv�t� na:
http://auto.centrum(tec)cz
Pascal a pam�
[*] Libor Thiel <thiel(zv)elapsh(tec)cz> - 26.2.2002 09:49:19
Tak to znam taky ;-)
Mas nekolik moznosti:
1. pouzit jednotku Overlay
2. upravit program pro protected rezim
3. pouzit nejakeho spravce pameti, ktery ti umozni alokovat pamet napriklad
pres XMS
Pokud se rozhodnes pro 3. variantu, muzu ti takoveho spravce poslat na
soukr. mail. Je to napsane v asm a spolehlive nam to funguje spoustu let.
Jeste jsem nepopsal jednoduchost pouziti - uz je z toho reklama jako na
praci prasek :-).
Libor Thiel
thiel(zv)elapsh(tec)cz
-----Original Message-----
> Musim bohuzel udrzovat na zivu jednu aplikaci psanou jak
> jinak nez v Pascalu. Krute bojuju s nedostatkem pameti.
Dodatek k Delphi 6 UPD#2
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 26.2.2002 09:50:53
Dobry den,
problem s tim, ze uzivatel muze klavesovymi zkratkami ovladat MDI okna v dobe, kdy je zobrazen
modalni dialog, mi pripada celkem zavazny... Poradite prosim nekdo, jak jej odstranit v aplikaci,
ktera pouziva balicky? (D6 Pro, SP2; balicku se vzdat nechci).
Diky, Karel Rys
Nastaveni urovni na RS232
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.2.2002 09:51:30
> > To vsechno chapu, ale otazka znela jestli nekdo nevi jak na to.
Potrebuji
> > napajet z portu malej hardware. Pokud to opravdu nejde ani nejak
natvrdo,
>
> Co to je malej HW ? V�stupy jsou sice dost odolne, ale proud, kterym
muzes
> ten svuj HW napajet, je max. 10mA.
to bych se dost divil. Myslim, ze proud, ktery je seriak schopen
dodavat (do zkratu) je v radu jednotek mA...>Coz je tak akorat na vybuzeni LED nebo
> vykonoveho stupne. Ale napajet tim neco vetsiho je silenost.
ruzne prevodniky urovni signalu (napriklad z diare) takto pracuji - on
operacni zesilovac nebo CMOS obvod moc nezere...
D. Toman
Volani procedury obecne
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 26.2.2002 10:02:48
Nejak mi to nefunguje kde by mohl byt problem. Jak jsi dosel k tomu cislu v
{} je treba ho nejak generovat.
Unit Main_FM
type
IProcFrame = interface
['{E3AE45E3-3406-4216-811F-DB8A11C9B71E}']
procedure ShowFrame;
end;
procedure TMainFM.PopupWindowsOnClick(Sender: TObject);
Var ProcFrameIntf : IProcFrame;
I : Integer;
Begin
For I := 0 To MainFM.ComponentCount - 1 Do
If MainFM.Components[I] Is TFrame Then
If TFrame(MainFM.Components[I]).Handle = TMenuItem(Sender).Tag Then
If Supports(MainFM.Components[I], IProcFrame, ProcFrameIntf) Then
Begin
ProcFrameIntf.ShowFrame;
Continue;
End;
End;
Unit FrameKL
public
procedure ShowFrame;
Nastaveni urovni na RS232
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.2.2002 10:27:44
> > Co to je malej HW ? V�stupy jsou sice dost odolne, ale proud,
kterym muzes
> > ten svuj HW napajet, je max. 10mA. Coz je tak akorat na vybuzeni
LED nebo
> > vykonoveho stupne. Ale napajet tim neco vetsiho je silenost.
> Pouze optoclen nebo co. Ja presne nevim jak ma fungovat ten HW,
pouze dostal
> jsem dotaz, zda-li se da z rs232 vycucnout 2x +10V a 2x -10V prave
kvuli
> odberu. Pokud to nepujde, bude vyvoj HW hledat jinou cestu.
>
pokud nepotrebujes prenaset data muzes jeste k napajeni pouzit TX
signal (tusim, ze pokud polarita se da ovladat break stavem nebo tak
nejak)
D. Toman
Pascal a pam�
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 26.2.2002 10:42:02
Staci himem.sys, o zbytek se postara 16biDPMI.ovl a RTM.exe
Dale jsou tu tato omezeni:
Kodu muze byt i nekolik MB, ale celkove nesmi bit vice 16MB.
Data je nutno alokovat dynamicky, ale to bylo nutno i v Real, jinak
limit 64Kb na data segment je stejny.
Vyvyjel jsem takto aplikace a fungovalo to bezproblemove (cca 900kb kodu a bezne alokovala 2MB).
Pro primou adresaci jsou dostupne selektory (SegA000, SegB8000, ...).
Slavek
> Ahoj,
>
> pokud jde o Borland Pascal 7.0 (nevim jak ve starsich verzich), tak jsem v
> menu Compile-Target zaskrtaval "Protected mode application" (misto "Real
> mode application") a potom se da adresovat az asi 16MB pameti pomoci
> dynamicky alokovanych promennych/pointeru. Ta pamet musi byt myslim
> pristupna zavedenim ovladace EMM386 v autoexec.bat nebo config.sys nebo tak
> nejak, uz to dlouho nepouzivam, tak nevim presne.OT: z C++ do Delphi
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 26.2.2002 10:55:37
Vazeni pratele,
pomohl by mi nekdo prelozit nasledujici kousek zdrojaku z C++ do Delphi?
Dekuji predem za pomoc. Jo a odpovedi mi prosim poslete na muj mail.
Dekuji.
C++ neznaly Jarda
/* Vypocet segmentu kontrolnich souctu CRC */
#include <stdio.h>
#include <string.h>
#define BUFLEN 32768
static unsigned int crctab[256];
/* inicializace */
static void InitCRC()
{
int i, j;
register unsigned int c;
static int _init_crc_ = 0;
if (_init_crc_) {
return;
}
for (i=0;i<256;i++)
{
for (c=i,j=0;j<8;j++)
{
if (c & 1)
{
c= (c>>1)^0xedb88320;
}
else
{
c= c>>1;
}
}
crctab[i]=c;
}
_init_crc_ = 1;
return;
}
/* vypocet segmentu kontrolnich souctu */
static int SegmentCRC (file, result)
char *file; /* jmeno souboru */
char *result; /* segment s kontrolnimi soucty */
{
unsigned char buf[BUFLEN];
register unsigned int crc = 0;
register unsigned int checksum = 0;
long length = 0;
long len;
FILE *fp;
if ((fp = fopen (file, "r")) == NULL) return (-2);
InitCRC();
while (fgets ((char*)buf, BUFLEN, fp) != NULL)
{
unsigned char *cp = buf;
register int i;
if (memcmp (buf, "CRC/(zv)|", 6) == 0) break;
i = 0;
while (buf[i])
{
checksum += buf[i++];
}
len = i;
length += len;
while (len--)
{
crc = (crc << 8) ^ crctab[((crc >> 24) ^ *(cp++)) & 0xFF];
}
}
fclose (fp);
if (ferror (fp)) return (-2);
len = length;
while (len > 0)
{
crc = (crc << 8) ^ crctab[((crc >> 24) ^ len) & 0xFF];
len >>= 8;
}
crc = ~crc & 0xFFFFFFFF;
sprintf (result, "CRC/(zv)|%lu|%lu|\n", checksum % 0xFFFF, crc);
return (1);
}
Triedenie tabulky podla datumu
[*] <delphi(zv)zvlauto.sk> - 26.2.2002 10:56:56
Ahojte,
Mam raky problem. Tabulku (Paradox 7.0) by som chcel zotriedit podla datumu.
Ked to skusam v Database Desktop cez sort, stale mi to zotriedi podla prveho
cisla z datumu, nie podla celeho datumu. Ani Sql nefunguje korektne. Kde je
chyba?
Robo
z C++ do Delphi
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 26.2.2002 11:04:16
From: "Jaroslav Bucek" <bucek(zv)eskon(tec)cz>
> c= (c>>1)^0xedb88320;
A proc nepouzijes neco hotoveho pro Delphi - tohle je vypocet CRC32.
Podivej se napr. na www.torry.ru
Bye, pf
Triedenie tabulky podla datumu
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 26.2.2002 11:18:52
Ahoj,
neni to tim, ze polozka neni typu datum, ale retezec?
Karel
> -----Original Message-----
> From: delphi(zv)zvlauto.sk [mailto:delphi(zv)zvlauto.sk]
> Sent: Tuesday, February 26, 2002 10:57 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Triedenie tabulky podla datumu
>
>
> Ahojte,
>
> Mam raky problem. Tabulku (Paradox 7.0) by som chcel
> zotriedit podla datumu.
> Ked to skusam v Database Desktop cez sort, stale mi to
> zotriedi podla prveho
> cisla z datumu, nie podla celeho datumu. Ani Sql nefunguje
> korektne. Kde je
> chyba?
>
> Robo
> problemy s MDI frm a childy
[*] <kuchar(zv)unicodesys(tec)cz> - 26.2.2002 11:21:52
ja to resim tak, ze v *.DPR souboru smazu Create jednotlivych Child oken a
kdyz je chci v nejakem case zobrazit tak teprve pak
volam Create, formstyle child okna nechavam rovnou nastavene na MDIChild
>
> t.j. moj buduci child form je nastaveny na fsNormal a az v tomto kode ho
> nastavim na msMDIChild a on sa mi az vtedy zobrazi.
>
> > Popravde, vubec nechapu, proc normalni form se normalne creatne a pak ho
> > zobrazim, a MDI child se rovnou zobrazi ???
>
Triedenie tabulky podla datumu
[*] <kuchar(zv)unicodesys(tec)cz> - 26.2.2002 11:23:59
nevim jak je to u paradoxu, ale v MSSQL ja pouzivam prikaz ORDER BY xxx, kde
xxx je jmeno sloupce ktere obsahuje datum a vse klape vporadku
> Mam raky problem. Tabulku (Paradox 7.0) by som chcel zotriedit podla
datumu.
> Ked to skusam v Database Desktop cez sort, stale mi to zotriedi podla
prveho
> cisla z datumu, nie podla celeho datumu. Ani Sql nefunguje korektne. Kde
je
> chyba?
>
Triedenie tabulky podla datumu
[*] <delphi(zv)zvlauto.sk> - 26.2.2002 11:37:08
nie, ale uz som to vyriesil. Bola poskodena tabulka... :)
Aj tak dakujem.
Robo
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of CHMEL Karel, Mgr.
Sent: Tuesday, February 26, 2002 11:19 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Triedenie tabulky podla datumu
Ahoj,
neni to tim, ze polozka neni typu datum, ale retezec?
Karel
> -----Original Message-----
> From: delphi(zv)zvlauto.sk [mailto:delphi(zv)zvlauto.sk]
> Sent: Tuesday, February 26, 2002 10:57 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Triedenie tabulky podla datumu
>
>
> Ahojte,
>
> Mam raky problem. Tabulku (Paradox 7.0) by som chcel
> zotriedit podla datumu.
> Ked to skusam v Database Desktop cez sort, stale mi to
> zotriedi podla prveho
> cisla z datumu, nie podla celeho datumu. Ani Sql nefunguje
> korektne. Kde je
> chyba?
>
> Robo
> IP komunikace IB/FB ve win95
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)oku-uo(tec)cz> - 26.2.2002 12:07:28
> > The specified name was not found in the hosts file or Domain Name
> > Services.
>
> >Win95: obsahuji chyby, je zrejme treba nainstalovat WinSock2 (da se
> >snad jeste stahnout na strankach M$). Bez WS2 se mi nedarilo
> >pripojeni ani na localhost - Windows 95 se pokousely vytacet modemove
> >spojeni.
OK, WinSock2 pomohl, kdyby to jeste nekoho zajimalo.
Diky moc za radu.
Martin Bedn��
bednar(zv)mujweb(tec)cz
Tlacenie z TWebBrowser
[*] Slavom�r �eke� - 26.2.2002 12:10:26
Zdravim ...
ako pri tlaceni z WebBrowseru zakazat tlacenie informacii (ako su v
hlavicke: cislo strany, nazov dokumentu;
dalej v pate: cesta k suboru, datum). Skratka, aby tlacil IBA to co
vidim, a dalej ako zrusit jeho POPUP MENU ? a nahradit ho mojim. Moje je
aktivne, dokial nemam natiahnutu ziadnu stranku/dokument.
Srdecna vdaka za odpovede ...
Slavo
P.S. Delphi5 dekodovani SMS
[*] likeapear <likeapear(zv)centrum(tec)cz> - 26.2.2002 12:19:36
Ahoj,
mozna to sem nepatri, ale rad bych se zeptal, zda nekdo nevi jak dekodovat
SMS vyctenou z GSM telefonu. Mam aplikaci ktera, periodicky kontroluje SMSky
v telefonu (Siemens M20 Terminal) a zjistil, jsem ze vyctena SMS ma jiny
format, jeli odeslana z Eurotelu a Paegasu a pod. Existuje naka obecna
rutina, ktera to spravne dekoduje? Hledal jsem na inetu, ale nenasel.
Pripominam, ze mam nastaveny Textovy format zprav (ne PDU).
Dik za kazdou vasi radu
LikeAPear
Jak programove zjistim DPI na tiskarne
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 26.2.2002 12:41:48
>Hi,
>
>nastaveni leveho a horniho okraje tiskarny lze zjistit takto
>
> LeftOff := Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX)/Res);
> TopOff := Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY)/Res);
>
>S pozdravem
>Michal PEPR Pesek
Co je Res???
Diky
J.
______________________________________________________________________
Jsi muz? Jsi spokojen se svym sexualnim zivotem nebo chces zvysit svou
sexualni vykonnost. Ted mas sanci. Chyt ji hned. http://www.zdravimuze(tec)cz Nazev pocitace
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 26.2.2002 12:52:47
OK, mam si teda opravit i tip 635 z 1001TT ?
GetMem(lText, 100);
lErrorCode := GetHostName(lText, 100);
Martin Ben
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
>
> From: "Ben, Martin (CAP, GCF)" <Martin.Ben(zv)gecapital.com>
> > function CurrPCName: string;
> > var
> > CompName: PChar;
> > Delka: cardinal;
> > begin
> > Delka:=100;
>
> Ahoj,
>
> toto je spatne. Dle dokumetnace musi mit buffer delku
> MAX_COMPUTERNAME_LENGTH
> + 1.
>
> Petr Vones
> Jak programove zjistim DPI na tiskarne
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 26.2.2002 12:58:55
Hi
Res je DPI rozliseni tiskarny .. Co je Res???OT :Re: dekodovani SMS
[*] Peter Surovy <psurovy(zv)uevora.pt> - 26.2.2002 12:10:07 -0000
Ahoj
ja pouzivam dekodovanie ale prave z PDU.
Oktety v binarnej forme, ktore dostanes z telefonu
prevedies na septety a tie uz potom na char.
z prveho oktetu posledny znak ide do druheho nakoniec
potom z druheho prve dva do tretieho na koniec a tak.
A format SMS vacs. byva zhruba:
pouz. kodovanie, cislo centra, odosielatel, cas, text
Ako to vyzera v textovom tvare?
posli nejake helloworld
asi skor na sukr. mail
S pozdravom
Peter Surovy
----- Original Message -----
From: "likeapear" <likeapear(zv)centrum(tec)cz>
Sent: Tuesday, February 26, 2002 11:19 AM
> Ahoj,
>
> mozna to sem nepatri, ale rad bych se zeptal, zda nekdo nevi jak dekodovat
> SMS vyctenou z GSM telefonu. Mam aplikaci ktera, periodicky kontroluje
SMSky
> v telefonu (Siemens M20 Terminal) a zjistil, jsem ze vyctena SMS ma jiny
> format, jeli odeslana z Eurotelu a Paegasu a pod. Existuje naka obecna
> rutina, ktera to spravne dekoduje? Hledal jsem na inetu, ale nenasel.
> Pripominam, ze mam nastaveny Textovy format zprav (ne PDU).
>
> Dik za kazdou vasi radu
> LikeAPear
>
>z C++ do Delphi
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 26.2.2002 13:10:16
Ahoj,
#define BUFLEN 32768
- definovani makra BUFLEN, neco jako konstanta v pascalu
const BUFLEN=32768;
CelociselnyVyraz1 >> CelociselnyVyraz2
- bitovy posun doprava
- provede posun vsech bitu prvniho celociselneho vyrazu o druhy celociselny vyraz vpravo. Ekvivalent je CelociselnyVyraz1 div 2^n
CelociselnyVyraz1 << CelociselnyVyraz2
- bitovy posun doleva
- provede posun vsech bitu prvniho celociselneho vyrazu o druhy celociselny vyraz vlevo. Ekvivalent je CelociselnyVyraz1 * 2^n
~CelociselnyVyraz
- bitova negace
CelociselnyVyraz1 ^ CelociselnyVyraz2
- bitovy XOR
CelociselnyVyraz1 | CelociselnyVyraz2
- bitovy OR
CelociselnyVyraz1 & CelociselnyVyraz2
- bitovy AND
static int promenna=0;
- lokalni staticka promenna
- v pascalu je to
const promenna:integer=0;
register int promenna;
- kvalifikator register urcuje, ze promenna je vhodna pro ulozeni do registru procesoru
if (memcmp (buf, "CRC/(zv)|", 6) == 0) break;
- je fce, ktera porovnava dva bloky pameti
- porovnava promennou buf (prvnich 6 bytu) s blokem druhym "CRC/(zv)|"
- pokud je 0, buf je stejny jako "CRC/(zv)|"
if ((fp = fopen (file, "r")) == NULL) return (-2);
- otevre binarne soubor "file" jen pro cteni, pri neuspechu skonci a vrati -2
fgets ((char*)buf, BUFLEN, fp) != NULL
- fce ktera nacte do promenne (buf) pocet bytu(BUFLEN) ze souboru(fp) od aktualni pozice
sprintf (result, "CRC/(zv)|%lu|%lu|\n", checksum % 0xFFFF, crc);
- formatovaci fce pro retezce, kdy do retezce (result) vlozi
result="CRC/(zv)|" + checksum mod 0xFFFF + crc
ostatni uz dokazes prepsat sam
Jo jeste, v podstate tohle nema s C++ nic spolecnyho, je to klasicky Ccko
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Nazev pocitace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 13:21:11
From: "Ben, Martin (CAP, GCF)" <Martin.Ben(zv)gecapital.com>
> OK, mam si teda opravit i tip 635 z 1001TT ?
Ano, je to spatne.
Petr Vones
ADO Login
[*] Peter Surovy <psurovy(zv)uevora.pt> - 26.2.2002 12:26:00 -0000
Ahoj
mam taky dotaz:
Mam AdoConnection, AdoTable, DataSource a DBgrid
AdoConnection sa pripaja na acces tabulku s heslom
pouzivam
AdoConnection1.Open('admin','heslo');
a Loginprompt = false;
na win98ME -- vsetko prebehne korektne
na win98 -- Error : Invalid password :-(
Oba systemy maju Delphi5Ent a Office 2000;
PS: na win98 real_cislo:=FloatToStr(Edit1.text)
kde Edit1 = 0.015548
vyvola Exception: 0.015548 is not a valid floating point value
Vdaka za kazdu radu.
S pozdravom Peter Surovy
Volani procedury obecne
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 13:31:32
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> Nejak mi to nefunguje kde by mohl byt problem.
Tezko rict, patrne zadna z tech komponent neimplementuje ten interface.
> Jak jsi dosel k tomu cislu v {} je treba ho nejak generovat.
Ano, je treba ho generovat, v Delphi editoru pomoci Ctrl+Shift+G
Petr Vones
IP komunikace IB/FB ve win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 13:33:06
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> Win95: obsahuji chyby, je zrejme treba nainstalovat WinSock2 (da se
Bez Winsock2 vubec Win95 k siti nepripojuj. Je tam plno chyb a bezpecnostnich
der, ktere jsou prave ve Winsock2 updatu zaroven opraveny.
Petr Vones
ADO Login
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 26.2.2002 13:52:56
> PS: na win98 real_cislo:=FloatToStr(Edit1.text)
> kde Edit1 = 0.015548
>
> vyvola Exception: 0.015548 is not a valid floating point value
> S pozdravom Peter Surovy
Pravdepodobne na jednom pocitaci je "." nastavena jako oddelovac desetinnych mist a na tom druhem
ne.
Mimochodem - nema tam byt StrToFloat?
Karel Rys
Jak programove zjistim DPI na tiskarne
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 26.2.2002 14:11:29
>>>Hi,
>>>
>>>nastaveni leveho a horniho okraje tiskarny lze zjistit takto
>>>
>>> LeftOff := Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX)/Res);
>>> TopOff := Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY)/Res);
>>>
>>>S pozdravem
>>>Michal PEPR Pesek
>>
>>Co je Res???
>>
>>Diky
>>J.
>
>Hi
>
>Res je DPI rozliseni tiskarny
OK, a dekuji. Verim, ze vsem profesionalum toto staci, ale ja fakt
nevim, jak ho zjistim. Koukal jsem na popis API f-ce GetDeviceCaps,
ale asi jsem slepy nebo co ... nenasel jsem to. Takze:
Res:= ???;
Nema byt toto rozliseni nahodou v mm?? Pixel/mm ?? Ja jenom, ze v tom vzorci
bych potom delil ... to je hloupost!
tech 25.4 tam je kvuli tomu DPI a ne kvuli tem jednotkam, ktery ziskam z ty
API f-ce, ze?
Jo a jen pro upresneni. Pomoci LefOff a TopOff ziskam levy-horni bod
skutecneho tisku?
Jak zjistim pravy-dolni?
Tim,ze je tam tech 25.4 tak predpokladam, ze to je vzdalenost v mm,
je to tak?
Sirka skutecneho tisku se da zjitit pomoci: HORSIZE ? nebo to neni
urceno pro tiskarny?
Diky, moc mi to pomuze.
J.
______________________________________________________________________
"Vyhodna nabidka se neodmita ..." Oskarovy sluzby firmam.
http://ad2.seznam(tec)cz/redir.cgi?instance=20991%26url=http://www.oskarmobil(tec)cz/cz/business/b_index.html
Volani procedury obecne
[*] Martin �ajbik <cajbik(zv)sct.sk> - 26.2.2002 14:16:06
A co to napisat ako published metodu ?
Volanie by bolo sice komplikovanejsie cez GetMethodAddress, ale v podstate
je to asi jednoduchsie ako vytvarat interface.
MarCaNT (marcant(zv)sct.sk)> Nejak mi to nefunguje kde by mohl byt problem. Jak jsi dosel k tomu cislu
v
> {} je treba ho nejak generovat.
>
> Unit Main_FM
>
> type
> IProcFrame = interface
> ['{E3AE45E3-3406-4216-811F-DB8A11C9B71E}']
> procedure ShowFrame;
> end;
>
>
> procedure TMainFM.PopupWindowsOnClick(Sender: TObject);
> Var ProcFrameIntf : IProcFrame;
> I : Integer;
> Begin
> For I := 0 To MainFM.ComponentCount - 1 Do
> If MainFM.Components[I] Is TFrame Then
> If TFrame(MainFM.Components[I]).Handle = TMenuItem(Sender).Tag Then
> If Supports(MainFM.Components[I], IProcFrame, ProcFrameIntf) Then
> Begin
> ProcFrameIntf.ShowFrame;
> Continue;
> End;
> End;
>
> Unit FrameKL
>
> public
> procedure ShowFrame;
>
>Volani procedury obecne
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 26.2.2002 14:33:35
> Mam nasledujici problem. Mam nekolik formularu ktere vsechny obsahuji
> stejnou proceduru(teda nazev delaji neco jineho pro kazdy formular).
>
> Dostal jsem se do situace kdy mam handle formulare ale nejsem
> schopen tuto proceduru zavolat protoze neni napsana na urovni
> tridy.
Z toho mi nie je jasne, ci sa jedna o proceduru alebo o metodu.
Nasledovny sposob riesenia bude fungovat pre oba pripady:
const
AM_MYMSG = WM_USER + 1;
type
TMyForm1 = class(TForm)
private
...
procedure AMMyMsg(var Message: TWMNoParams); message AM_MYMSG;
end;
implementation
procedure TMyForm1.AMMyMsg(var Message: TWMNoParams);
begin
// volanie tej procedury/metody
end;
Takto mozes pridat osetrenie tejto spravy do kazdeho formulara.
Vyvolanie procedury z daneho formulara potom moze vyzerat takto:
SendMessage(FrmHandle, AM_MYMSG, 0, 0);
HTH
TOndrej
IP komunikace IB/FB ve win95
[*] voltrr1.epr(zv)mail.cez(tec)cz - 26.2.2002 14:34:53
> > Win95: obsahuji chyby, je zrejme treba nainstalovat WinSock2 (da se
> Bez Winsock2 vubec Win95 k siti nepripojuj. Je tam plno chyb a
bezpecnostnich
> der, ktere jsou prave ve Winsock2 updatu zaroven opraveny.
A Winsock 2 vubec neinstaluj pokud provozujes na Win95 klienta
Oracle protoze je v nem chyba (verze 7 mam zato ze i 8) a po IP se
pak na server uz nedostanes.
Cau
Radek Voltr
Delphi >> Kylix
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 26.2.2002 14:35:06
Preji krasny den,
v soucasne dobe stojim pred problemem portovat funkcni Wokenni
aplikaci do Linuxu. Aplikace je napsana v Delphi 5.
Napadlo me pouzit Kylix. Ale urcite nebude stacit pouze v Kylixu
otevrit Delphi project a zkompilovat ho, ze??
Zajimalo by me, jestli s tim uz nekdo mel zkusenosti a jake byly nesnaze...
S pozdravem Jirka K.
ADO Login
[*] Peter Surovy <psurovy(zv)uevora.pt> - 26.2.2002 13:46:02 -0000
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
Sent: Tuesday, February 26, 2002 12:52 PM
>
> Mimochodem - nema tam byt StrToFloat?
>
> Karel Rys
No ano to tie preklepz :-)
Sorry
Peter Surovy
z C++ do Delphi
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 26.2.2002 15:05:35
> CelociselnyVyraz1 >> CelociselnyVyraz2
> - bitovy posun doprava
> - provede posun vsech bitu prvniho celociselneho vyrazu o druhy celociselny vyraz vpravo. Ekvivalent je CelociselnyVyraz1 div 2^n
v pascalu SHL
>
> CelociselnyVyraz1 << CelociselnyVyraz2
> - bitovy posun doleva
> - provede posun vsech bitu prvniho celociselneho vyrazu o druhy celociselny vyraz vlevo. Ekvivalent je CelociselnyVyraz1 * 2^n
>
a tady SHR
Vice help k delphi.
Slavek
Jak pristupovat k MS SQL
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 26.2.2002 15:05:16
Ahoj,
nejlepsi je pristupovat pres ADOConnection, ADOQuery,.....
ADOConnection ma property ConnectionString, kde si pres pruvodce nastavis server, databazi, user(pass),.....
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
>>> jtomecek(zv)dezadata(tec)cz 25.2.02 11:47 >>>
Jak mohu pristupovat k MS SQL serveru - a jake vlastnosti musim dane
komponenty nastavit?
Diky...
WinInet + cookie
[*] iturcan(zv)gamo.sk - 26.2.2002 15:13:15
Ahoj,
ma niekto napad ako nastavit WinInet API tak aby pracovali s cookie ? kde
je treba nastavit ak potrebujem aby sa mi v hlavicke odoslala cookie
informacia o mene a hesle uzivatela
vdaka za aspon jednu radu :)
Ivan Turcan
OT: Prihlaseni na MSSQL 2000 a reverse engineering
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 26.2.2002 15:15:41
Zdravim,
potrebuji nakopnout s MS SQL serverem 2000. Potrebuji pri prihlaseni
uzivatele zjistit podle loginu, do jakych roli je prideleny ( apak mu dat
jednu z roli na vyber). Nevite, v jakych tabulkach v databazi tyto informace
najdu?
Druhy problem s tim souvisi. Mame Case Studio od Radima Kunze ve verzi
2.5.3. a nedari se mi provest reverseEngineering, resp. podari se mi
prihlasit jak pres ODBC, tak pres ADO, ale nedokazu z toho vytahnout zadnou
entitu. Delam nekde chybu ( hlasim se do databaze pod sa).
Diky za pomoc.
Martin
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
jeste k: problemy s MDI frm a childy
[*] David Janko <djanko(zv)infoware(tec)cz> - 26.2.2002 15:17:50
Diky za napady, ale je zde problem, ze i kdyz ten formular ma nastaveno
FormStyle na fsNormal, tak se po:
child := TfrmOrderItem.Create(Application);
stejne zobrazi.
Pokud vytvorim zcela novy pomoci "New form", tak se tento novy creatne
spravne (bez zobrazeni), ale z tohodle nejsem schopen zcela "normalni"
formular zpetne udelat (je naslednikem frmTplDB, ktery je MDIChild, ale
nepomuze ani kdyz to zmenim u neho).
Zkratka, ten form se v tomto smyslu (zobrazeni na create) stale chova jako
MDIChild :(( a nevim, jak mu mam vysvetlit ze uz jim neni (az tuhle
vlastnost se chova spravne jako fsNormal) ...
Poradi mi s timto nekdo ?
Dekuji.
David Janko.Prihlaseni na MSSQL 2000 a reverse engineering
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 26.2.2002 15:37:17
----- Original Message -----
From: "Lasevic, Martin" <MLasevic(zv)ratiopharm(tec)cz>
To: "Konference DELPHI na CLEXPERT. CZ (el. adresa)" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, February 26, 2002 3:15 PM
Subject: OT: Prihlaseni na MSSQL 2000 a reverse engineering
> Zdravim,
...
>
> Druhy problem s tim souvisi. Mame Case Studio od Radima Kunze ve verzi
> 2.5.3. a nedari se mi provest reverseEngineering, resp. podari se mi
> prihlasit jak pres ODBC, tak pres ADO, ale nedokazu z toho vytahnout
zadnou
> entitu. Delam nekde chybu ( hlasim se do databaze pod sa).
>
> Diky za pomoc.
>
> Martin
Tohle posilej na support(zv)casestudio.com , tam se o tom pobavime podrobneji.
Pripadne na konferenci CASE Studia na http://www.pandora(tec)cz/list/cs .
jinak si stahni novou verzi, 2.5.3 je opravdu hodne stara.
Radim
WinInet + cookie
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 26.2.2002 15:42:23
> Ahoj,
>
> ma niekto napad ako nastavit WinInet API tak aby pracovali s cookie ? kde
> je treba nastavit ak potrebujem aby sa mi v hlavicke odoslala cookie
> informacia o mene a hesle uzivatela
>
>
InternetGetCookie - Retrieves cookies for the specified URL and all its parent URLs.
InternetSetCookie - Sets a cookie on the specified URL.
Priklady viz MSDN
Tom
jeste k: problemy s MDI frm a childy
[*] Pavel �ejka <cejka(zv)proteco(tec)cz> - 26.2.2002 15:47:56
Musis jeste nastavit Visible na False. Kdyz nastavis FormStyle na
fsMDIChild, tak se Visible nastavi automaticky na True.
S pozdravem Pavel
----- Original Message -----
From: David Janko
To: delphi-l(zv)clexpert(tec)cz
Sent: Tuesday, February 26, 2002 3:17 PM
Subject: jeste k: problemy s MDI frm a childy
Diky za napady, ale je zde problem, ze i kdyz ten formular ma nastaveno
FormStyle na fsNormal, tak se po:
child := TfrmOrderItem.Create(Application);
stejne zobrazi.
Pokud vytvorim zcela novy pomoci "New form", tak se tento novy creatne
spravne (bez zobrazeni), ale z tohodle nejsem schopen zcela "normalni"
formular zpetne udelat (je naslednikem frmTplDB, ktery je MDIChild, ale
nepomuze ani kdyz to zmenim u neho).
Zkratka, ten form se v tomto smyslu (zobrazeni na create) stale chova jako
MDIChild :(( a nevim, jak mu mam vysvetlit ze uz jim neni (az tuhle
vlastnost se chova spravne jako fsNormal) ...
Poradi mi s timto nekdo ?
Dekuji.
David Janko.
jeste k: problemy s MDI frm a childy
[*] Martin �ajbik <cajbik(zv)sct.sk> - 26.2.2002 15:55:04
V kazdom pripade to musis zmenit u predka ostatnych formularov. Nezabudni
pri tejto zmene nastavit aj Visible:= False. V tom zakladnom formulari potom
mozes napisat napriklad metodu MDIShow ktora ho zmeni na MDIChild a zobrazi.
MarCaNT (marcant(zv)sct.sk)> Diky za napady, ale je zde problem, ze i kdyz ten formular ma nastaveno
> FormStyle na fsNormal, tak se po:
> child := TfrmOrderItem.Create(Application);
> stejne zobrazi.
> Pokud vytvorim zcela novy pomoci "New form", tak se tento novy creatne
> spravne (bez zobrazeni), ale z tohodle nejsem schopen zcela "normalni"
> formular zpetne udelat (je naslednikem frmTplDB, ktery je MDIChild, ale
> nepomuze ani kdyz to zmenim u neho).
> Zkratka, ten form se v tomto smyslu (zobrazeni na create) stale chova jako
> MDIChild :(( a nevim, jak mu mam vysvetlit ze uz jim neni (az tuhle
> vlastnost se chova spravne jako fsNormal) ...
> Poradi mi s timto nekdo ?
>
> Dekuji.
>
> David Janko.
>
>OT :Re: dekodovani SMS
[*] Konference <prajz.rumcajs(zv)quick(tec)cz> - 26.2.2002 16:03:42
Neexistuje nejaka unita nebo komponenta, ktere poslu to, co mi prijde z
mobilu a vrati to v textu?
> Ahoj
> ja pouzivam dekodovanie ale prave z PDU.
>
> Oktety v binarnej forme, ktore dostanes z telefonu
> prevedies na septety a tie uz potom na char.
> z prveho oktetu posledny znak ide do druheho nakoniec
> potom z druheho prve dva do tretieho na koniec a tak.
> A format SMS vacs. byva zhruba:
> pouz. kodovanie, cislo centra, odosielatel, cas, text
>
> Ako to vyzera v textovom tvare?
> posli nejake helloworld
> asi skor na sukr. mail
>
> S pozdravom
> Peter Surovy
>
WinInet + cookie
[*] iturcan(zv)gamo.sk - 26.2.2002 16:03:18
toto som skusal ale nefunguje mi to. Objasnim blizsie. Potrebujem do
hlavicky doplnit sekciu
"Cookie: USER= ABCD; PASS=EFGH"
pomocou InternetSetCookie mi toto info neposle na server.
Ivan
"Tomas Kminek"
<tomas.kminek(zv)at To: <delphi-l(zv)clexpert(tec)cz>
las(tec)cz> cc:
Sent by: Subject: Re: WinInet + cookie
delphi-l-owner(zv)c
lexpert(tec)cz
26.02.2002 15:42
Please respond
to delphi-l
> Ahoj,
>
> ma niekto napad ako nastavit WinInet API tak aby pracovali s cookie ?
kde
> je treba nastavit ak potrebujem aby sa mi v hlavicke odoslala cookie
> informacia o mene a hesle uzivatela
>
>
InternetGetCookie - Retrieves cookies for the specified URL and all
its parent URLs.
InternetSetCookie - Sets a cookie on the specified URL.
Priklady viz MSDN
Tom
IExplorer COM object
[*] iturcan(zv)gamo.sk - 26.2.2002 16:07:50
Ahojte,
potreboval by som prostrednictvom COM objektu z Internet Exploreru citat a
zapisovat hodnoty do/z poloziek v HTML formulari. Viete ako na to ?
Tiez by som potreboval reagovat na stlacenie tlacitka v HTML formulari
samozrejme vsetko potrebujem vyriesit v COM objekte Internet Exploreru!
mate niekto nejaku ideu ako toto vyriesit.
dakujem za info
Ivan Turcan
Pascal a pam�
[*] Roland Turcan <rolo(zv)sedas.sk> - 26.2.2002 16:11:03
Videl som jednu aplikaciu pisanu v TP a bolo to riesene tak, ze bol jeden
bat subor nieco ako:
:ZNOVA
menu.exe
if not exist prikaz.bat goto KONIEC
call PRIKAZ.bat
goto ZNOVA
:KONIEC
a program MENU.EXE vytvorilo subor PRIKAZ.BAT ktory obsahoval, ze ktory
dalsi exe sa ma vykonat a on sam sa ukoncil. Ak menu.exe koncilo s tym ze
konci aplikacia tak jednoducho PRIKAZ.BAT bol vymazany.
Ak by bolo aj u teba mozne spravit nieco podobne, ze by si si rozkuskoval
jednotlive bloky nasledovnym sposobom tak by si usetril.
Roland.TrueType v PDF
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 26.2.2002 16:21:14
No, vzhledem k okolnostem asi vsechny problemy :))))
Jinak z te PDF reference jsem to jaksi nevykoukal - dle me je to popsane
dost spatne gtato kapitola a zakladni fonty mi nestaci.>Ake presne problemy mas? Vlozit font file? zistit diferences? urobit
>/ToUnicode table? alebo zapisat text pomocou tohoto fontu?
>
>Povedal by som, ze si si vybral tazku ulohu a radsej by som to robil
>standardnymi Acrobatovymi fontami (base14) a nie vkladat font.
>
>Najviac a nejlepsie je o tom pisane v PDF reference (partners.adobe.com)
>
>Roman
>
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Rosa
> > Sent: Monday, February 25, 2002 1:58 PM
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: TrueType v PDF
> >
> >
> > Zdar,
> >
> > delam TpdfCanvas, ktery bude umet ukladat do PDF a narazil jsem na
> > problem jak ulozit TrueType font do PDF souboru. Vsechno se mi podarilo
> > zjistit a dat do PDF, ale nevim co mam ulozit jako soubor - kdyz
> > tam vlozim
> > primo treba TAHOMA.TTF tak mi do Adobe Acrobat neprecte a nahradi
> > teckami.
> > Poradi nekdo? Nevite trebas alespon nejaky link? Predem dikes.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
WinInet + cookie
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 26.2.2002 16:37:52
>
> toto som skusal ale nefunguje mi to. Objasnim blizsie. Potrebujem do
> hlavicky doplnit sekciu
>
> "Cookie: USER= ABCD; PASS=EFGH"
>
> pomocou InternetSetCookie mi toto info neposle na server.
Jeste muzes zkusit rovnou pracovat s HTTP hlavickou pomoci API funkci:
headers := 'Cookie: USER= ABCD; PASS=EFGH'#13#10;
HttpAddRequestHeaders(hRequest, PChar(headers), Length(headers), HTTP_ADDREQ_FLAG_ADD);
//nebo
HttpSendRequest(hRequest, PChar(headers), Length(headers), nil, 0);
Tom
jeste k(2): problemy s MDI frm a childy
[*] David Janko <djanko(zv)infoware(tec)cz> - 26.2.2002 16:48:31
> Musis jeste nastavit Visible na False. Kdyz nastavis FormStyle na
> fsMDIChild, tak se Visible nastavi automaticky na True.
>
> S pozdravem Pavel
Jezis, diky moc, bylo to tim. Pripadam si ted jako uplnej blbec (jedinny, co
me muze tesit, ze jsem to pred dotazem sem ukazoval jinemu kolegovi
delphinari, a ten si toho nevsiml take ;-)).
Ale preci to ma jeste jednu nechutnou vlastnost - pri create toho fsNormal
formu mi to demaximalizuje ostatni MDIChildy :(.
Zkousel jsem to zpetne maximalizovat pres:
self.Resizing(wsMaximized);
a take pres
SendMessage(self.Handle, WM_SIZE, SIZE_MAXIMIZED, 0);
(+par variant k tomu)
ale nic nepomaha (resp. maximalne sem dosahl toho, ze se sice maximalizoval
ve smyslu ze BorderIcons se presunuly na MDI parent, ale vlastni okna
zustala jak byla - nepomuze ani refresh ani repaint).
Jestli to je zase nejaka takova drobnost tak me prosim nekamenujte ... a
fakt sem se snazil to vyresit a na nic sem neprisel.
Diky moc
David Janko.
OT: Prihlaseni na MSSQL 2000 a reverse engineering
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 26.2.2002 17:23:05
Ahoj,
>potrebuji nakopnout s MS SQL serverem 2000. Potrebuji pri prihlaseni
>uzivatele zjistit podle loginu, do jakych roli je prideleny ( apak mu dat
>jednu z roli na vyber). Nevite, v jakych tabulkach v databazi tyto informace
>najdu?
tabulky nevim, ale existuje fce
sp_helpuser 'MyUser'
ktera vrati tabulku, a sloupec GroupName obsahuje role
potom existuje fce
IS_SRVROLEMEMBER Parametr
Parametr
- sysadmin, dbcreator, diskadmin, processadmin, serveradmin, setupadmin, securityadmin
primo pro server
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
OT :Re: dekodovani SMS
[*] likeapear <likeapear(zv)centrum(tec)cz> - 26.2.2002 17:28:28
no to prave potrebuju...
:(
v nejhorsim pripade se uchylim k PDU
likeapear
----- Original Message -----
From: "Konference" <prajz.rumcajs(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, February 26, 2002 4:03 PM
Subject: Re: OT :Re: dekodovani SMS
| Neexistuje nejaka unita nebo komponenta, ktere poslu to, co mi prijde z
| mobilu a vrati to v textu?
|
| > Ahoj
| > ja pouzivam dekodovanie ale prave z PDU.
| >
| > Oktety v binarnej forme, ktore dostanes z telefonu
| > prevedies na septety a tie uz potom na char.
| > z prveho oktetu posledny znak ide do druheho nakoniec
| > potom z druheho prve dva do tretieho na koniec a tak.
| > A format SMS vacs. byva zhruba:
| > pouz. kodovanie, cislo centra, odosielatel, cas, text
| >
| > Ako to vyzera v textovom tvare?
| > posli nejake helloworld
| > asi skor na sukr. mail
| >
| > S pozdravom
| > Peter Surovy
| >
|
|
|
OT: Prihlaseni na MSSQL 2000 a reverse engineering
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 26.2.2002 17:28:15
Ahoj,
samozrejme je jeste fce, pro uzivatele pro aktualni databazi
IS_MEMBER
IF IS_MEMBER ('db_owner') = 1
print 'Current user is a member of the db_owner role'
ELSE IF IS_MEMBER ('db_owner') = 0
print 'Current user is NOT a member of the db_owner role'
ELSE IF IS_MEMBER ('db_owner') IS NULL
print 'ERROR: Invalid group / role specified'
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
>>> Jaroslav.Blazek(zv)access-it(tec)cz 26.2.02 17:23 >>>
Ahoj,
>potrebuji nakopnout s MS SQL serverem 2000. Potrebuji pri prihlaseni
>uzivatele zjistit podle loginu, do jakych roli je prideleny ( apak mu dat
>jednu z roli na vyber). Nevite, v jakych tabulkach v databazi tyto informace
>najdu?
tabulky nevim, ale existuje fce
sp_helpuser 'MyUser'
ktera vrati tabulku, a sloupec GroupName obsahuje role
potom existuje fce
IS_SRVROLEMEMBER Parametr
Parametr
- sysadmin, dbcreator, diskadmin, processadmin, serveradmin, setupadmin, securityadmin
primo pro server
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Volani procedury obecne
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 17:42:28
From: "Martin �ajbik" <cajbik(zv)sct.sk>
> Volanie by bolo sice komplikovanejsie cez GetMethodAddress, ale v podstate
> je to asi jednoduchsie ako vytvarat interface.
Nerekl bych, interface je nativni prvek Object Pascalu, je dobre se jej naucit
pouzivat. Pouziti TObject.MethodAddress neni typesafe protoze vraci Pointer,
navic to cele pusobi tak nejak neohrabane.
Petr Vones
Delphi >> Kylix
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 17:57:30
From: "Jiri Kratochvil" <jiri.kratochvil(zv)webzin(tec)cz>
> v soucasne dobe stojim pred problemem portovat funkcni Wokenni
> aplikaci do Linuxu. Aplikace je napsana v Delphi 5.
>
> Napadlo me pouzit Kylix. Ale urcite nebude stacit pouze v Kylixu
> otevrit Delphi project a zkompilovat ho, ze??
Ne. Predpokladam ze se jedna o VCL aplikaci, kterou nemuzes pouzit v Kylixu,
protoze VCL pouziva nativne Win32 API a je urcena pouze pro Windows. Musel by
jsi aplikaci prepsat do CLX coz narazi na nekolik problemu:
- CLX (jak na Windows tak Linuxu) pouziva sadu ovladacich prvku z Qt knihovny,
takze zapomen na vzhled a funkcnost nativnich Windows aplikaci, pokud chces
pouze CLX verzi pro obe platformy. Nekdy to vypada spise jako parodie na
Windows GUI. Komponenty v CLX se jmenuji stejne, maji podobne vlastnosti ale
nektere z nich chybi.
- Pokud pouzivas nejake (predevsim vizualni) 3rd party komponenty tak vetsina
znamych vyrobcu nema jejich CLX verze. Podobne je to i s free komponentami,
i kdyz tam je situace malinko lepsi, par se jich najde.
- Nelze pouzit prima volani Win32 API, takze veskery kod ktery je na volani
techto funkci zalozen je nutne prepsat.
Petr Vones
Cas v tabulce
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 26.2.2002 18:40:12
Jeste jednou "Cas v tabulce".
Berte to prosim jen jako informaci!
Vyuzil jsem moznosti nechat si zodpovedet problematiku casu pracovnikem
laboratore casu Ceskeho metrologickeho institutu.
Odpoved jsem jen zbavil diakritiky abych vyhovel pravidlum konference.
Vase otazka se tyka obecneho pripadu trvani casoveho intervalu a jeho
pocatku a konce. Netyka se proto jen dne, nybrz i hodiny, minuty a
samozrejme i sekundy. Den ve smyslu casoveho intervalu je trvani 84600
sekund a sekunda zas je, podle definice, trvani 9 192 631 770 period
urciteho zareni v atomu cesia-133 atd. Tedy den trva 86400 s, jak rik�te Vy,
a nikoliv 86 399.999 s, jak r�kaji neprimo Vasi kolegov�. Z intervalu
zalozenych na periodickem pohybu lze jejich citanim vytvaret casove
stupnice. V tomto pripade udalost, ktera urcuje konec jednoho intervalu,
zaroven urcuje zacatek nasledujiciho intervalu. Jakym zpusobem se konec nebo
zacatek intervalu na casove stupnice oznaci, je veci konvence. Je ovsem
zvykem pocitat cas 23:59:59, 00:00:00, 00:00:01 a nikoliv 23:59:59,
24:00:00, 00:00:01. V prvem pripade je okamzik (udalost) urcuj�ci konec
stareho dne a zaroven zacatek noveho dne oznaceny 00:00:00, ve druh�m
pripade je tyz okamzik oznaceny 24:00:00.
S pozdravem
Jan Cermak
____________________________________
Department of Standard Time and Frequency
Institute of Radio Engineering and Electronics
Academy of Sciences of the Czech Republic
Chaberska 57
182 51 Praha 8
Phone: +420 2 8468 0144 Fax: +420 2 8468 0222
www.ure.cas(tec)cz/dpt280
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
nefunguje Application.terminate
[*] Milan ��ek - 26.2.2002 20:27:54
ahoj,
z vedlejsi unity projektu volam Application.Terminate. Cely program vsak
bezi dal, prikaz je umisten v threadu - metoda execute, az na konci.
Potrebuji regulerne ukoncit aplikaci. Kde je problem?
S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP1)
Win2k (SP2) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
IExplorer COM object
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 20:40:26
From: <iturcan(zv)gamo.sk>
> potreboval by som prostrednictvom COM objektu z Internet Exploreru citat a
> zapisovat hodnoty do/z poloziek v HTML formulari. Viete ako na to ?
Podivej se na TWebBrowser.Document a v MSDN na IHTMLDocument3. Vice najdes na:
http://www.euromind.com/iedelphi/
http://members.home.net/hfournier/
http://groups.yahoo.com/group/delphi-webbrowser/
http://delphi(tec)cz/soubor.asp?rok=2000&mesic=nov&den=14&soubor=dlfaaaab.htm
Petr Vones
nefunguje Application.terminate
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 20:41:38
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> z vedlejsi unity projektu volam Application.Terminate. Cely program vsak
> bezi dal, prikaz je umisten v threadu - metoda execute, az na konci.
> Potrebuji regulerne ukoncit aplikaci. Kde je problem?
Problem je v tom, ze z threadu nemuzes (v drtive vetsine pripadu) volat nic z
VCL protoze ta neni thread-safe. Resenim je nastavit nejaky flag, thread
ukoncit a v TThread.OnTerminate podle hodnoty toho flagu pripadne zavolat
Application.Terminate.
Petr Vones
NetRemoteTOD este raz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 26.2.2002 20:56:39
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
> Tento sposob je asi najefektivnejsi. Ako zistim v akom formate vracia
> funkcia net time udaje ?
Pouze metodou pokus-omyl.
> Ako tento vysledok previest na TDateTime ? Vysledok funkcie je nasledovny
>
> Current time at \\keder is 2/25/2002 8:27 PM
>
> The command completed successfully.
Takze ze v nem najdete prislusny string, v nem pak jednotlive polozky a ty
prevedete napriklad pomoci funkci EncodeDate a EncodeTime na TDateTime.
Petr Vones
Jednozna�n� ur�en� po��ta�e
[*] Jan Dubsk� <hdplot(zv)seznam(tec)cz> - 26.2.2002 21:33:40
Jak�m zp�sobem lze programov� jednozna�n� identifikovat po��ta� jako HW.
Jedn� se mi o zji�t�n� n�jak�ho ��sla (nap�. v�robn� ��slo ne ��slo serie
nebo typu, aby se nemohlo opakovat u dvou r�zn�ch stroj�) procesoru,
z�kladov� desky, harddisku nebo podobn� HW komponenty, u kter� se
nep�edpokl�d� �ast� v�m�na (max. 1x za �ivot stroje).
D�ky za radu
Zji�t�n� MS Outlook
[*] Jan Dubsk� <hdplot(zv)seznam(tec)cz> - 26.2.2002 21:36:23
Jak lze zjisti, jestli je na po��ta�i nainstalov�n MS Outlook, nebo n�jak�
jin� (konkuren�n�) spr�vce po�ty, p��padn�, �e nen� nainstalov�no nic.
D�ky za odpov��
prosim o radu jak merit velikost prijatych a odesl
[*] Christopher <Christopherj(zv)seznam(tec)cz> - 26.2.2002 22:04:10
Ahoj
patrim v Delphi mezi zacatecniky a pokousim se udelat utilitku ktera
pospusteni bude pocitat velikost odeslanych a prijmutych dat (mame na
kolejich limity na prenos:-(). Myslel jsem si ze to bude velice jednoduche,
ale protoze jsem zacatecnik nevim odkud se mam odrazit. Dival jsem se na
netu a z informaci co jsem jiz nasel to vypada se budu muset ponorit do
WINSOCK nebo TCPIP. Prosim Vas zkusene DELPHI-profiky o male nakopnuti
kterym smerem, resp. na ktere fce bych se mel zamerit.
Dekuji za pomoc"O)
Christopher
Jednozna�n� ur�en� po��ta�e
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 26.2.2002 22:42:40
>nebo podobn� HW komponenty, u kter� se
> nep�edpokl�d� �ast� v�m�na (max. 1x za �ivot stroje).
neznam takovou komponentu. Vsechny PC na kterych pracuju prochazeji vlnami
evolucnich i revolucnich zmen a kazda komponenta je drive ci pozdeji
vymenena a presto se neda rici, ze by z hodiny na hodinu slo o uplne novy
stroj.
Nevim na co to potrebujes (mam averzi na podobne ochrany) a neco podobneho
bych implementoval jen pokud si to vylozene preje ten kdo bude program
pouzivat...
Pokud se nejedna o ochranu ale napriklad inventarizaci PC pak je to neco
jineho (mozna)...
D. Toman
OT: Re: Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 27.2.2002 01:06:08
> zaroven urcuje zacatek nasledujiciho intervalu. Jakym zpusobem se konec
nebo
> zacatek intervalu na casove stupnice oznaci, je veci konvence. Je ovsem
> zvykem pocitat cas 23:59:59, 00:00:00, 00:00:01 a nikoliv 23:59:59,
> 24:00:00, 00:00:01. V prvem pripade je okamzik (udalost) urcuj�ci konec
> stareho dne a zaroven zacatek noveho dne oznaceny 00:00:00, ve druh�m
> pripade je tyz okamzik oznaceny 24:00:00.
1. v okamihu 00:00:00 (ktory urcuje koniec stareho dna A ZAROVEN
zaciatok noveho dna) je aky datum? Zo stareho dna, z noveho dna alebo
mozem zvolit/priradit (lubovolne?) jeden z tychto datumov? Alebo datum
v tomto okamihu nie je mozne urcit? (ja si myslim, ze danemu okamihu
mozem priradit hodnotu datumu noveho dna)
2. ak okamihu 00:00:00 priradim datum povedzme 27.2.2002 o 24hodin
neskor, ked nastane dalsi okamih 00:00:00 mozem mu opet priradit
rovnaky datum (kedze je to koniec stareho dna) alebo uz musim priradit
datum nasledujuci (kedze je to zaroven zaciatok noveho dna)? (ja si
myslim, ze mu MUSIM priradit nasledujuci datum, voci datumu, ktory
som mu priradil v predchadzajucom okamihu)
3. uplne analogicky problem ale nebudem sa bavit o datume, len pocitat
sekundy a zistovat minuty. Teda sekundy budu plynut takto:
00, 01, ..., 59, 00, 01 ....
a teraz mam analogicke otazky ako s datumom: v okamihu oznacenom
ako 00 aka je hodnota minut? Da sa alebo neda sa urcit? Mozem
jej priradit hodnotu, povedzme 00:00? O minutu neskor, ked zase
nastane okamih 00, aka bude minuta? Bude sa dat urcit? Ak ano,
bude este stale 00:00 (teda tento okamih bude patrit este do starej
minuty, oznacej ako 00) alebo uz 01:00 (teda tento okamih uz bude
patrit do novej minuty, oznacenej ako 01)?
V pripade, ze neviem jednoznacne urcit v danom okamihu minutu
(teda neviem, ci je 00:00 alebo 01:00, potom na zaklade coho
si mozem dovolit oznacovat cas v danom okamihu na ciselnej
osi ako 00:00 (a nie ako 01:00), ci 00:00:00? Zobecnenim tohto
postupu by som zistil, ze potom nedokazem vobec cas urcit.
Teda vychadza mi to tak, ze v kazdom okamihu mozem
jednoznacne urcit minutu alebo datum, teda vlastne cas ako
taky (v praxi samozrejme vzdy s urcitou presnostou). Teda
nemozem o ziadnom okaminu povedat, ze zaroven je okamihom
predchadzajuceho i okamihom nasledujuceho dna (ani o okamihu
00:00:00 - MUSIM ho bud priradit do stareho dna alebo
do noveho ale nie zaroven do stareho i do noveho).
-------------
Z matematickeho hladiska je problem o tom, ci den vyjadreny povedzme
v hodinach (uvazujeme realne cisla) je interval uzavrety <0, 24> alebo
sprava otvoreny <0, 24). Ja tvrdim, ze plati druha alternativa. Teda,
ze hodina 24 (od okamihu jej zaciatku) uz bude sucastou nasledujuceho
dna ak hodina 0 (od okamihu jej zaciatku) je sucastou tohto dna
ale rad sa poucim a zmenim nazor, pokial som na omyle.
Erik
Zji�t�n� MS Outlook
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.2.2002 06:00:48
V knihovne JCL (konkretne JCLMapi).
Objekt JCLSimpleMapi
a pou��t t�eba property AnyClientInstaled, ClientCount, Clients[]
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
26.2.2002 Jan Dubsk�:
> Jak lze zjisti, jestli je na po��ta�i nainstalov�n MS Outlook, nebo n�jak�
> jin� (konkuren�n�) spr�vce po�ty, p��padn�, �e nen� nainstalov�no nic.
> D�ky za odpov��
Jednozna�n� ur�en� po��ta�e
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 27.2.2002 06:43:39
Pouzij vice techto seriovych cisel. Treba pro 5 komponent a povol, ze max. 2
komponenty se mohou zmenit.
Podobne to resi i nase firma a zakaznici si jeste nestezovali.
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> >nebo podobn� HW komponenty, u kter� se
> > nep�edpokl�d� �ast� v�m�na (max. 1x za �ivot stroje).
>
> neznam takovou komponentu. Vsechny PC na kterych pracuju prochazeji vlnami
> evolucnich i revolucnich zmen a kazda komponenta je drive ci pozdeji
> vymenena a presto se neda rici, ze by z hodiny na hodinu slo o uplne novy
> stroj.
>
> Nevim na co to potrebujes (mam averzi na podobne ochrany) a neco podobneho
> bych implementoval jen pokud si to vylozene preje ten kdo bude program
> pouzivat...
Delphi a Staroffice
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.2.2002 07:08:50
I kdyz uz StarOffice nebude zdarma ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
27.2.2002 Dalibor Falt�nek:
> Ahoj, dobre rano.
> potreboval bych z delphi 5 ridit pres OLE automation tabulkac ve Staroffice
> 6.0 podobne jako to jde v MS Office. Potiz je v tom, ze nevim jestli to
> starofici podporuji jestli jo, tak kde zjistit nazvy jejich objektu pro OLE.
> Pomuze nekdo?
> Diky, Dalik.
> dalibor.faltynek(zv)orgrez(tec)cz
Delphi a Staroffice
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 27.2.2002 07:13:23
Ahoj, dobre rano.
potreboval bych z delphi 5 ridit pres OLE automation tabulkac ve Staroffice
6.0 podobne jako to jde v MS Office. Potiz je v tom, ze nevim jestli to
starofici podporuji jestli jo, tak kde zjistit nazvy jejich objektu pro OLE.
Pomuze nekdo?
Diky, Dalik.
dalibor.faltynek(zv)orgrez(tec)cz
Delphi a Staroffice
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 27.2.2002 07:27:26
> I kdyz uz StarOffice nebude zdarma ?
Ale OpenOffice bude ...
T.Delphi a Staroffice
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 27.2.2002 07:40:31
Pokud bude vyrazne levnejsi nez ten druhy office od MS? Ale zatim zdarma je,
nebo se pletu?
Dalik.> I kdyz uz StarOffice nebude zdarma ?
>
> > Ahoj, dobre rano.
> > potreboval bych z delphi 5 ridit pres OLE automation tabulkac ve
Staroffice
Delphi a Staroffice
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 27.2.2002 07:42:29
> 6.0 podobne jako to jde v MS Office. Potiz je v tom, ze nevim jestli to
> starofici podporuji jestli jo, tak kde zjistit nazvy jejich
> objektu pro OLE.
http://api.openoffice.org/source/browse/api/odk/examples/OLE/delphi/
function TSampleCode.Connect() : boolean;
begin
if VarIsEmpty(StarOffice) then
StarOffice := CreateOleObject('com.sun.star.ServiceManager');
Connect := not (VarIsEmpty(StarOffice) or VarIsNull(StarOffice));
end; Cas v tabulce
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 27.2.2002 07:50:42
Vse toto vysvetli nejlepe pozorovani digitalnich hodin s cyklem 24 h. Cele
mi to pripomina diskuzi o okamziku pocatku stoleti.
Ing. Jan Dvorak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Erik Salaj
> Sent: Wednesday, February 27, 2002 1:06 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Re: Cas v tabulce
>
>
> > zaroven urcuje zacatek nasledujiciho intervalu. Jakym zpusobem se konec
> nebo
> > zacatek intervalu na casove stupnice oznaci, je veci konvence. Je ovsem
> > zvykem pocitat cas 23:59:59, 00:00:00, 00:00:01 a nikoliv 23:59:59,
> > 24:00:00, 00:00:01. V prvem pripade je okamzik (udalost) urcuj�ci konec
> > stareho dne a zaroven zacatek noveho dne oznaceny 00:00:00, ve druh�m
> > pripade je tyz okamzik oznaceny 24:00:00.
>
> 1. v okamihu 00:00:00 (ktory urcuje koniec stareho dna A ZAROVEN
> zaciatok noveho dna) je aky datum? Zo stareho dna, z noveho dna alebo
> mozem zvolit/priradit (lubovolne?) jeden z tychto datumov? Alebo datum
> v tomto okamihu nie je mozne urcit? (ja si myslim, ze danemu okamihu
> mozem priradit hodnotu datumu noveho dna)
>
> 2. ak okamihu 00:00:00 priradim datum povedzme 27.2.2002 o 24hodin
> neskor, ked nastane dalsi okamih 00:00:00 mozem mu opet priradit
> rovnaky datum (kedze je to koniec stareho dna) alebo uz musim priradit
> datum nasledujuci (kedze je to zaroven zaciatok noveho dna)? (ja si
> myslim, ze mu MUSIM priradit nasledujuci datum, voci datumu, ktory
> som mu priradil v predchadzajucom okamihu)
>
> 3. uplne analogicky problem ale nebudem sa bavit o datume, len pocitat
> sekundy a zistovat minuty. Teda sekundy budu plynut takto:
> 00, 01, ..., 59, 00, 01 ....
> a teraz mam analogicke otazky ako s datumom: v okamihu oznacenom
> ako 00 aka je hodnota minut? Da sa alebo neda sa urcit? Mozem
> jej priradit hodnotu, povedzme 00:00? O minutu neskor, ked zase
> nastane okamih 00, aka bude minuta? Bude sa dat urcit? Ak ano,
> bude este stale 00:00 (teda tento okamih bude patrit este do starej
> minuty, oznacej ako 00) alebo uz 01:00 (teda tento okamih uz bude
> patrit do novej minuty, oznacenej ako 01)?
>
> V pripade, ze neviem jednoznacne urcit v danom okamihu minutu
> (teda neviem, ci je 00:00 alebo 01:00, potom na zaklade coho
> si mozem dovolit oznacovat cas v danom okamihu na ciselnej
> osi ako 00:00 (a nie ako 01:00), ci 00:00:00? Zobecnenim tohto
> postupu by som zistil, ze potom nedokazem vobec cas urcit.
> Teda vychadza mi to tak, ze v kazdom okamihu mozem
> jednoznacne urcit minutu alebo datum, teda vlastne cas ako
> taky (v praxi samozrejme vzdy s urcitou presnostou). Teda
> nemozem o ziadnom okaminu povedat, ze zaroven je okamihom
> predchadzajuceho i okamihom nasledujuceho dna (ani o okamihu
> 00:00:00 - MUSIM ho bud priradit do stareho dna alebo
> do noveho ale nie zaroven do stareho i do noveho).
>
> -------------
>
> Z matematickeho hladiska je problem o tom, ci den vyjadreny povedzme
> v hodinach (uvazujeme realne cisla) je interval uzavrety <0, 24> alebo
> sprava otvoreny <0, 24). Ja tvrdim, ze plati druha alternativa. Teda,
> ze hodina 24 (od okamihu jej zaciatku) uz bude sucastou nasledujuceho
> dna ak hodina 0 (od okamihu jej zaciatku) je sucastou tohto dna
> ale rad sa poucim a zmenim nazor, pokial som na omyle.
>
> Erik
>WinInet + cookie
[*] iturcan(zv)gamo.sk - 27.2.2002 08:38:00
asi tam bude nejaky iny zadrhel, pretoze ani tak to neprejde. Do hlavicky
sa to neprida (odchytaval som pakety takze to vydim ze to tam nieje).
Inak fn. HttpAddRequestHeaders som uz skusal aj predtym a neslo to.
Ked si precitam odpoved z HTTP servra tak mi pise ze si mam povolit cookies
na prehliadaci, problem vsak je ze ich povolene mam a pokial to iste robim
priamo cez IE tak to prejde korektne.
este nejaky napad ?
Ivan
"Tomas Kminek"
<tomas.kminek(zv)at To: <delphi-l(zv)clexpert(tec)cz>
las(tec)cz> cc:
Sent by: Subject: Re: WinInet + cookie
delphi-l-owner(zv)c
lexpert(tec)cz
26.02.2002 16:37
Please respond
to delphi-l
>
> toto som skusal ale nefunguje mi to. Objasnim blizsie. Potrebujem do
> hlavicky doplnit sekciu
>
> "Cookie: USER= ABCD; PASS=EFGH"
>
> pomocou InternetSetCookie mi toto info neposle na server.
Jeste muzes zkusit rovnou pracovat s HTTP hlavickou pomoci API funkci:
headers := 'Cookie: USER= ABCD; PASS=EFGH'#13#10;
HttpAddRequestHeaders(hRequest, PChar(headers), Length(headers),
HTTP_ADDREQ_FLAG_ADD);
//nebo
HttpSendRequest(hRequest, PChar(headers), Length(headers), nil, 0);
Tom
chyba v TIBQuery?
[*] Michal <delphin(zv)centrum.sk> - 27.2.2002 09:02:35
Zdravim !
Mam takyto problem : chcem zistit pocet zaznamov z doleuvedeneho dotazu.
Kedze som nevedel skonstruovat taky dotaz, v ktorom by som mohol pouzit
COUNT, rozhodol som sa pouzit pomQ.RecordCount, na moje prekvapenie som vsak
dostaval vysledok v zavislosti od poctu zaznamov zobrazanych v DbGride. Ak
som zrusil prepojenie na DbGrid, vysledok bol vzdy 1.. Neviete niekto v com
by mohol byt problem, alebo neviete niekto ako zkonstruovat dotaz tak, aby
som mohol v uvedenom dotaze pouzit COUNT??
Dik za kazdu radu..
with pomQ // TIBQuery
begin
Close;
SQL.Clear;
SQL.Add('select distinct datum, poleXX from TBLXX where datum>=:datod
and datum<=:datdo and poleYY=:par order by datum,poleXX');
ParamByName('datod').asDate:=StrToDate(Trim(DateEdit1.Text));
ParamByName('datdo').asDate:=StrToDate(Trim(DateEdit2.Text));
ParamByName('par').asString:=Trim(UpperCase(Edit1.Text));
Prepare;
Open;
end;
PocLabel.Caption:=IntToStr(pomQ.RecordCount);
chyba v TIBQuery?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 27.2.2002 09:10:33
Michal dne 27 Feb 2002 v 9:02:
> Mam takyto problem : chcem zistit pocet zaznamov z doleuvedeneho
> dotazu. Kedze som nevedel skonstruovat taky dotaz, v ktorom by som
> mohol pouzit COUNT, rozhodol som sa pouzit pomQ.RecordCount, na moje
> prekvapenie som vsak dostaval vysledok v zavislosti od poctu zaznamov
> zobrazanych v DbGride. Ak som zrusil prepojenie na DbGrid, vysledok
> bol vzdy 1.. Neviete niekto v com by mohol byt problem, alebo neviete
> niekto ako zkonstruovat dotaz tak, aby som mohol v uvedenom dotaze
> pouzit COUNT??
Ahoj,
nez se budes dotazovat na pocet zaznamu, zkus pouzit Query.FetchAll. Nevyhodou tohohle postupu
obecne ale je, ze se na klienta budou stahovat vsechna data, ktera ten dotaz vraci. Spravnejsi by
opravdu bylo pouzit COUNT na serveru - obecne SELECT COUNT (*) FROM Tabulka WHERE ... Fakt je, ze
jsem nezkousel COUNT v kombinaci s DISTINCT a ted to nemohu otestovat.
Karel Rys
SynEdit
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 27.2.2002 09:16:55
Zdravim,
chtel bych se zeptat na nekolik veci okolo komponenty SynEdit:
1) Chtel chych rozpoznavat a menit ukoncovani radku ( DOS, Unix ) a abych
byl uprimny, nechce se mi probirat se zdrojakem. Nemate s tim nekdo
zkusenosti?
2) Jde nastavit pres vlastnosti, abych v editoru videl neviditelne znaky,
nabo se to musi implementovat svepomoci.
S pozdravem Marek Eichler
Zobrazenie udajov na Canvas
[*] bpodolak(zv)elanor.sk - 27.2.2002 09:16:03
Zdravim...
Vie mi niekto poradit sposob, ako vyriesit nasledujuci problem?
Zobrazujem na Canvas komponenty Timage stromovu strukturu v podniku - take
stvorceky a v nich informacie o jednotlivych prac. miestach. Ked je tato
struktura mala, cca 50 stvorcekov, je to v pohode, ale ak je velka cca 500
stvorcekov, dojdu graficke zdroje a windows zahlasi chybu, ze je nedostatok
zdrojov...
Neviete niekto nejaky sposob, ako to urobit inak? Potrebujem vsak, aby tam
fungovli aj scrollbary a aby to neblikalo a bolo to dost rychle .
chyba v TIBQuery?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.2.2002 09:17:53
> Neviete niekto v com by mohol byt problem,
pouzij:
IBQuery1.Last;
IBQuery1.First;
nebo jestli funguguje:
IBQuery1.FetchAll;
pak ti to bude ukazovat spravny pocet v
IBQuery1.RecordCount
dekuji PeC(zv)ako s diakritikou
[*] Michal <delphin(zv)centrum.sk> - 27.2.2002 09:22:03
Zdravim !
pri vytvarani tabulky som pouzil taketo definovanie stlpca
MENO VARCHAR(25) CHARACTER SET WIN1250 COLLATE PXW_CSY
predpokladal som, ze s diakritikou nebude ziaden problem, avsak ked som
chcel pri testovani v IBConsole pridat zaznam a v tomto stlpci bola hodnota
s diakritikou, nemohol som - bez nejakej chybovej hlasky. Potom, ked som
predefinoval stlpec na obycajne
MENO VARCHAR(25)
zadavat hodnoty aj s diakritikou som mohol, ale nie som si isty, ci to bude
pri dalsom pouzivani diakritiky (triedenie a pod.) v poriadku.
Neviete niekto v com by mohol byt problem?
Dik
D5,IB6.01,W98
chyba v TIBQuery?
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 27.2.2002 09:36:59
V TIBQuery chyba neni. Je to zpusobeno tim, ze po zaslani dotazu se
NEVRACEJI vsechna data (pokud se o to nepozada prikazem FetchAll), ale
vraceji se postupne jednotlive zaznamy. Tudiz je RecordCount = 1.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Zdravim !
>
> Mam takyto problem : chcem zistit pocet zaznamov z doleuvedeneho dotazu.
> Kedze som nevedel skonstruovat taky dotaz, v ktorom by som mohol pouzit
> COUNT, rozhodol som sa pouzit pomQ.RecordCount, na moje prekvapenie som
vsak
> dostaval vysledok v zavislosti od poctu zaznamov zobrazanych v DbGride. Ak
> som zrusil prepojenie na DbGrid, vysledok bol vzdy 1.. Neviete niekto v
com
> by mohol byt problem, alebo neviete niekto ako zkonstruovat dotaz tak, aby
> som mohol v uvedenom dotaze pouzit COUNT??
>
> Dik za kazdu radu..
>
> with pomQ // TIBQuery
> begin
> Close;
> SQL.Clear;
> SQL.Add('select distinct datum, poleXX from TBLXX where datum>=:datod
> and datum<=:datdo and poleYY=:par order by datum,poleXX');
> ParamByName('datod').asDate:=StrToDate(Trim(DateEdit1.Text));
> ParamByName('datdo').asDate:=StrToDate(Trim(DateEdit2.Text));
> ParamByName('par').asString:=Trim(UpperCase(Edit1.Text));
> Prepare;
> Open;
> end;
> PocLabel.Caption:=IntToStr(pomQ.RecordCount);
SynEdit
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.2.2002 09:38:20
27.2.2002 Marek Eichler:
Predevsim si stahni posledni verzi z
http://www.wotgreal.com/files/SynEdit-20020215-CVS.zip
> chtel bych se zeptat na nekolik veci okolo komponenty SynEdit:
> 1) Chtel chych rozpoznavat a menit ukoncovani radku ( DOS, Unix ) a abych
> byl uprimny, nechce se mi probirat se zdrojakem. Nemate s tim nekdo
> zkusenosti?
Uz je implementovano.
Nastaveni se provede pomoci:
TSynEditStringList(SynEdit.Lines).FileFormat := sffMac, sffUnix, sffDos
> 2) Jde nastavit pres vlastnosti, abych v editoru videl neviditelne znaky,
> nabo se to musi implementovat svepomoci.
Uz je primo implementovano, v Options staci nastavit
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
chyba v TIBQuery?
[*] dphi_forum(zv)proces.sk - 27.2.2002 09:48:02
Cau...
Kedze ti vsetci odpovedali na to v com je problem tak ja ti skusim napisat
ako sa da napisat taky select.
Takze toto nastopercent funguje:
SELECT COUNT(DISTINCT stlpec) FROM tabulka ....
Ale neskusal som to s viacerymi stlpcami.
Skus a uvidis :-)
NORO.
> Zdravim !
>
> Mam takyto problem : chcem zistit pocet zaznamov z doleuvedeneho dotazu.
> Kedze som nevedel skonstruovat taky dotaz, v ktorom by som mohol pouzit
> COUNT, rozhodol som sa pouzit pomQ.RecordCount, na moje prekvapenie som
vsak
> dostaval vysledok v zavislosti od poctu zaznamov zobrazanych v DbGride.
Ak
> som zrusil prepojenie na DbGrid, vysledok bol vzdy 1.. Neviete niekto v
com
> by mohol byt problem, alebo neviete niekto ako zkonstruovat dotaz tak,
aby
> som mohol v uvedenom dotaze pouzit COUNT??
>
> Dik za kazdu radu..
>
> with pomQ // TIBQuery
> begin
> Close;
> SQL.Clear;
> SQL.Add('select distinct datum, poleXX from TBLXX where datum>=:datod
> and datum<=:datdo and poleYY=:par order by datum,poleXX');
> ParamByName('datod').asDate:=StrToDate(Trim(DateEdit1.Text));
> ParamByName('datdo').asDate:=StrToDate(Trim(DateEdit2.Text));
> ParamByName('par').asString:=Trim(UpperCase(Edit1.Text));
> Prepare;
> Open;
> end;
> PocLabel.Caption:=IntToStr(pomQ.RecordCount);Cas v tabulce
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 27.2.2002 10:00:04
From: "Jan Dvorak" <dvorak(zv)szu(tec)cz>
> Vse toto vysvetli nejlepe pozorovani digitalnich hodin s cyklem 24
h. Cele
> mi to pripomina diskuzi o okamziku pocatku stoleti.
Nevysvetli, protoze jak psal uz ten clovek z CAV, jedna se o ruzne
konvence oznacovani casovych intervalu: ty digitalni hodiny prezentuji
cas podle jedne konvence, zatimco kdyz si nastavis jinou konvenci
napr. US prostredi na pocitaci, tak zjistis, ze novy den nezacina
casem 00:00 AM, ale 12:00 AM , pokracuje 12:01 AM ... 12:59 AM, pak
nasleduje 01:00 AM, cili sleduje pro zmenu cifernik rucickovych
hodinek s 12 nahore :-)
***
Myslim, ze nasledujici primer je nazornejsi:
# predstav si, ze se majitele radovych domku dohodli, ze kazdy z nich
postavi na vlastni naklady jeden sloupek pro plot, ktery bude slouzit
i k upevneni sousedova plotu
# Muj plot pak bude vymezen 1. mym sloupkem a 1. sousedovym
# Kdyz k plotu prijde nekdo, kdo nevi o teto domluve, muze tvrdit, ze
muj plot je vymezen
a) poslednim sousedovym a poslednim mym sloupkem
b) prvnim mym a poslednim mym sloupkem
c) poslednim sousedovym zleva a prvnim sousedovym zprava
Zadne z techto tvrzeni nebude de jure pravdive, ale de fakto nektera
takova ucelova tvrzeni/konvence mohou byt k urcitym ucelum vyhodnejsi
;-)
Bye, pf
Cas v tabulce
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 27.2.2002 10:21:58
Obcansky cas je mozno merit mnoha zpusoby, zalezi na konvenci.
Astronomickemu zpusobu mereni odpovida 24 hodinovy cykl, kdy pulnoci zacina
novy den; tak to take zobrazuji digitalky s 24 hod cyklem.
Ing. Jan Dvorak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Fejfar
> Sent: Wednesday, February 27, 2002 10:00 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Re: Cas v tabulce
>
>
> From: "Jan Dvorak" <dvorak(zv)szu(tec)cz>
>
> > Vse toto vysvetli nejlepe pozorovani digitalnich hodin s cyklem 24
> h. Cele
> > mi to pripomina diskuzi o okamziku pocatku stoleti.
>
> Nevysvetli, protoze jak psal uz ten clovek z CAV, jedna se o ruzne
> konvence oznacovani casovych intervalu: ty digitalni hodiny prezentuji
> cas podle jedne konvence, zatimco kdyz si nastavis jinou konvenci
> napr. US prostredi na pocitaci, tak zjistis, ze novy den nezacina
> casem 00:00 AM, ale 12:00 AM , pokracuje 12:01 AM ... 12:59 AM, pak
> nasleduje 01:00 AM, cili sleduje pro zmenu cifernik rucickovych
> hodinek s 12 nahore :-)
>
> ***
>Uzamknutie zaznamu SQL
[*] Slavom�r �eke� - 27.2.2002 10:34:48
Zabrdam trosku do SQL a narazil som na taky problem, chcem, aby dany
zaznam mohol aktualizovat IBA jeden uzivatel, teda, aby sa zaznam pre
ostatnych zamkol, ako to ZAMKNUTIE zaznamu spravit ?
Slavo
Vynimka pri inicializacii WinSock
[*] Robert Suska <delphi(zv)korak.sk> - 27.2.2002 10:38:50
Ahojte vsetci!
toto je kod ktory pouzivam na inicializaciu WinSock pod Delphi 6. Je to
podla jednej knihy.
procedure Click;
var state: Integer;
WSAData: TWSAData;
begin
state:= WSAStartup( MAKEWORD( 2, 0 ), WSAData );
...
end;
skusal som aj davat inu verziu do MAKEWORD(2,2) napr. atd. Moj OS je Windows
98 se
Vdaka za radu.
Robo
Cas v tabulce
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 27.2.2002 10:41:02
From: "Jan Dvorak" <dvorak(zv)szu(tec)cz>
> Obcansky cas je mozno merit mnoha zpusoby, zalezi na konvenci.
> Astronomickemu zpusobu mereni odpovida 24 hodinovy cykl, kdy pulnoci
zacina
> novy den; tak to take zobrazuji digitalky s 24 hod cyklem.
Jenomze pokud si to spravne pamatuju, tak diskuse v tomto threadu se
netyka problemu, jak se prezentuje astronomicky cas - to je doufam
kazdemu jasne...
***
Cele to zacalo tusim tak, ze se nekdo ptal po komponente, ktera mu
dovoli zadat cas 24:00, protoze to tak delal v Paradoxu a v Delphi mu
to nejde. Nacez se do nej rada lidi pustila, ze je pako, protoze chtit
neco takoveho je nesmysl...
Bye, pf
Zobrazenie udajov na Canvas
[*] Werki <delphi(zv)minv.sk> - 27.2.2002 10:47:13
> Zdravim...
> Vie mi niekto poradit sposob, ako vyriesit nasledujuci problem?
> Zobrazujem na Canvas komponenty Timage stromovu strukturu v podniku - take
> stvorceky a v nich informacie o jednotlivych prac. miestach. Ked je tato
> struktura mala, cca 50 stvorcekov, je to v pohode, ale ak je velka cca 500
> stvorcekov, dojdu graficke zdroje a windows zahlasi chybu, ze je
nedostatok
> zdrojov...
> Neviete niekto nejaky sposob, ako to urobit inak? Potrebujem vsak, aby tam
> fungovli aj scrollbary a aby to neblikalo a bolo to dost rychle .
No, so zdrojmi na w95/98 nenarobis nic. Predpokladam ze ti to spadne preto
ze canvas mas prilis velky.
Skus vykrajovat podla velkosti formulara. Blikanie odstranis ked zapnes
doublebuffered:=true of delphi verzia 4.
Rychle to nebude nikdy, ides cez klasicku win zobrazovacku. Leda ze by si
zobrazoval cez API funkcie, tie su podstatne
rychlejsie ale to by si uplne musel zmenit spolupracu s grafikou a spravit
si nejaky svoj vlastny DIB ktory by si
zobrazoval sam. Cize komplet vlastny managment. Ine ti poradit bohuzial
neviem, potom uz len directx, ten ide aj na HW
tvrdo.
Werki
ako s diakritikou
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 27.2.2002 11:00:15
On 27 Feb 2002, at 9:22, Michal wrote:
> pri vytvarani tabulky som pouzil taketo definovanie stlpca
> MENO VARCHAR(25) CHARACTER SET WIN1250 COLLATE PXW_CSY
> predpokladal som, ze s diakritikou nebude ziaden problem, avsak ked
> som chcel pri testovani v IBConsole pridat zaznam a v tomto stlpci
> bola hodnota s diakritikou, nemohol som - bez nejakej chybovej hlasky.
Divne je ze bez hlasky. Pri teto definici sloupce by to melo byt v
poradku, je ovsem nutne mit charset nastaveny na klientovi. Z
IBconsole to znamena prihlasit se pres "Connect as" a zadat tam
character set W1250.
Z.Kalhous
chyba v TIBQuery?
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 27.2.2002 11:02:09
Ahoj,
dphi_forum(zv)proces.sk wrote:
>
> Kedze ti vsetci odpovedali na to v com je problem tak ja ti skusim napisat
> ako sa da napisat taky select.
>
> Takze toto nastopercent funguje:
> SELECT COUNT(DISTINCT stlpec) FROM tabulka ....
> Ale neskusal som to s viacerymi stlpcami.
s vice sloupci by to melo jit takhle:
SELECT COUNT(DISTINCT stlpec||sloupec2||sloupec3...) FROM tabulka ....
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
nefunguje Application.terminate
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 27.2.2002 11:05:02
Petr Vones:
> Problem je v tom, ze z threadu nemuzes (v drtive vetsine pripadu) volat nic z
> VCL protoze ta neni thread-safe.
Ahoj,
mal jsi pravdu, vubec jsem si neuvedomil, ze TApplication je VCL.
Docela by mne zajimala ta mensina VCL, ve kterych se synchronize
pouzivat nemusi - podle ceho se to pozna? Ja napr. z execute updatuju
position v ProgressBaru (bez synchronize) a funguje to tak jak ma.
Stale vsak setrvavam v nejistote, jestli prave takove reseni je
bezproblemove.
S tim souvisi muj druhy dotaz: jake by melo byt spravne reseni, kdyz
potrebuju do procedury, kterou volam pomoci synchronize, predat
konkretni parametry (napr. stav onoho ProgressBaru). Pouzivat glob.
promenne by zmenilo muj projekt ve znacny chaos. Proc toto nelze? :(
Synchronize(MojeProcedura(Vstup: string));
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
To co predtim jeden, mohou nyni dva. Poridte si 2 Oskarty a uzivejte si ve dvou za cenu jednoho.
http://ad2.seznam(tec)cz/redir.cgi?instance=21821%26url=http://www.oskarmobil(tec)cz/cz/products/i_index.htm
Uzamknutie zaznamu SQL
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 27.2.2002 11:05:03
On 27 Feb 2002, at 10:34, Slavom�r �eke� wrote:
> Zabrdam trosku do SQL a narazil som na taky problem, chcem, aby dany
> zaznam mohol aktualizovat IBA jeden uzivatel, teda, aby sa zaznam pre
> ostatnych zamkol, ako to ZAMKNUTIE zaznamu spravit ?
Nevim jak kde, ale v IB zadne "explicitni" uzamknuti (lock record,
use exclusive) neexistuje. Pozadovana vlastnost je dana
nastavenim vlastnosti transakce. Je-li to z delf, dvakrat kliknout na
komponentu transakce, podrobnosti v dokumentaci k IB.
Z.Kalhous
Zobrazenie udajov na Canvas
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.2.2002 11:09:41
> From: bpodolak(zv)elanor.sk
>
> Zobrazujem na Canvas komponenty Timage stromovu strukturu v podniku - take
> stvorceky a v nich informacie o jednotlivych prac. miestach. Ked je tato
> struktura mala, cca 50 stvorcekov, je to v pohode, ale ak je velka cca 500
> stvorcekov, dojdu graficke zdroje a windows zahlasi chybu, ze je
> nedostatok zdrojov...
Jakym zpusobem ty ctverecky kreslis?
Mam dojem, ze samotne kresleni ctverecku systemove zdroje
nevycerpa. Problem bude asi jinde.
> Neviete niekto nejaky sposob, ako to urobit inak? Potrebujem vsak, aby tam
> fungovli aj scrollbary a aby to neblikalo a bolo to dost rychle .
Ja bych doporucil udelat si pomocny TMetafile,
a na nej TCanvas, a na ten to nakreslit.
Potom uz jenom prenest hotovy pomocny Metafile do TImage.
Takto potom lze s vysledkem jednoduse zoomovat i scrolovat.
Vaclav Krmela
Skryti nejake property
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 27.2.2002 11:17:35
Dobry den,
potreboval bych poradit s ukrytim property. Mam tridu, ktera ma
public property AAA, z teto tridy vytvorim potomka, ale chci aby na
teto urovni property AAA nebyla videt.
Asi takto (je to jen nacrt)
TMy1 = class(TObject)
...
public
property AAA : integer;
end;
TMy2 = class(TMy1)
...
end;
Pokud bude My2 typu TMy2, pak budu moci My2.AAA cist i do ni
zapisovat. Ale ja chci, aby tato property nebyla vubec.
Diky
Petr
______________________________________________________________________
Zapacha vam lednicka a vymyti nepomaha? Zeptejte se ostatnich v poradne
na Bilem Zbozi! http://poradna.bilezbozi(tec)cz"Chovani IDE pri zavreni programu
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 27.2.2002 11:17:59
Po dlouhe dobe zdravim konferenci.
U nekolika programu se mi najednou zacala dit divna vec - spustim program (z
IDE), po nabehnuti ho uzavru a nasledne se Delphi zastavi (stopped), otevrou
CPU okno a vyhodi nasleduji warning:
application-defined exception (code 0xc0000008) at 0x77fa03bc
a radu 12 hex cisel
Pri uzavreni CPU okna a klavese F9 se toto opakuje jeste trikrat (aplikace
je stale "stopped") - stejny kod, stejna adresa, jen rada hex cisel se meni.
Nekdy po teto rade stisku F9 jiz nelze okno CPU zavrit - ani krizkem vpravo
nahore, ani z menu, ani z menu okna CPU (levy horni roh).
Pokud pouziji CTRL+F2, tak se IDE dostane rovnou do spravneho stavu.
Zkousel jsem smazat vsechny ne-PAS a ne-DPR soubory (DSK, DOF, DCU ...) -
bez vysledku. Dela to u nekolika programu, code a adresa jsou pro vsechny
stejne.
U nove vygenerovane aplikace a u nekterych jinych se toto neprojevuje.
Nejsem si vedom, ze bych menil jakekoliv nastaveni v Delphi, ani jsem
neinstaloval nove knihovny/experty.
D4.03 Pro + GExperts 1.00 + FreeVCS 2.2.1.0 (server MSSQL bezi na jinem
stroji)
Win 2k Pro CZ SP2
Nesetkal jste se s tim nekdy nekdo?
Diky
Mira Ondrisek
Vynimka pri inicializacii WinSock 2x
[*] Robert Suska <delphi(zv)korak.sk> - 27.2.2002 11:42:55
Asi to tu nejako zapadlo ale ja to potrebujem strasne surne. Stojim len na
tenjto blbosti. Prosim NIEKOHO o radu o hocijake nakopnutie.
VDAKA
toto je kod ktory pouzivam na inicializaciu WinSock pod Delphi 6. Je to
podla jednej knihy.
procedure Click;
var state: Integer;
WSAData: TWSAData;
begin
state:= WSAStartup( MAKEWORD( 2, 0 ), WSAData );
...
end;
skusal som aj davat inu verziu do MAKEWORD(2,2) napr. atd. Moj OS je
Windows
98 se
Vdaka za radu.
Robo
Zobrazenie udajov na Canvas
[*] bpodolak(zv)elanor.sk - 27.2.2002 11:49:58
No zobrazujem ich asi tak, ze naskor si vypocitam uplne vsetky suradnice, kde
bude ktory lezat a potom ich zobrazujem ako rectangle( x1,y1 ....). Ale ja este
musim kreslit medzi nimi aj spojovacie ciarky a vnutri toho stvorceka sa
vykresluju dalsie stromove struktury ... Este na upresnenie - mam spravene aj
nieco take,ze sa volit hrubka a styl vsetkych ciar ...
Hlasi to asi takuto chybu : EOutOfResorces: Not enought storage is available to
process this command
My tu mame ale zakupene len Delphi 3, lebo tu sa v Delphach moc nerobi, vsetk sa
robi v inom programe a jazyku, len toto sa v nom neda urobit, tak sa pozuila
kniznica spravena v Delphi....
Uzamknutie zaznamu SQL
[*] <ivan.virag(zv)aliatel(tec)cz> - 27.2.2002 11:50:37
Co to je za databazi?
Ivan Virag
> -----Original Message-----
> From: Slavom�r �eke� [mailto:cekel(zv)noves.sk]
> Sent: 27. �nora 2002 10:35
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Uzamknutie zaznamu SQL
>
>
> Zabrdam trosku do SQL a narazil som na taky problem, chcem, aby dany
> zaznam mohol aktualizovat IBA jeden uzivatel, teda, aby sa zaznam pre
> ostatnych zamkol, ako to ZAMKNUTIE zaznamu spravit ?
>
> Slavo
> Uzamknutie zaznamu SQL
[*] Lubor Martinsky,\(SDC\) <l.martinsky(zv)softdec(tec)cz> - 27.2.2002 11:51:44
Toto plati v TSQL na MS.
In a SELECT statement, you can specify one or more of the following locking
options for a table:
Option Description
NOLOCK Directs SQL Server not to issue shared locks and not to honor
exclusive locks. When this option is in effect, it is possible to read a
noncommitted transaction or a set of pages that are rolled back in the
middle of a read. This option is also known as "dirty reads."
HOLDLOCK Instructs SQL Server to hold a shared lock until completion of the
transaction in which HOLDLOCK is used, instead of releasing the lock as soon
as the required table, view, or data page is no longer needed.
UPDLOCK Directs SQL Server to use update locks instead of shared locks while
reading a table and to hold the locks until the end of the command or
transaction. UPDLOCK has the advantage of allowing you to read data (without
blocking other readers) and update it later on with the assurance that
the data has not changed since you read it.
TABLOCK Directs SQL Server to use a shared lock on a table. This lock allows
others to read a table, but prevents them from updating it. This lock is
held until the end of the command; however, if you also specify HOLDLOCK,
the lock is held until the end of the transaction.
PAGLOCK Directs SQL Server to use shared page locks. This is the default.
TABLOCKX Directs SQL Server to use an exclusive lock on a table. This lock
prevents others from reading or updating the table and is held until the end
of the command or transaction.
LM
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Slavom�r �eke�
Sent: Wednesday, February 27, 2002 10:35 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Uzamknutie zaznamu SQL
Zabrdam trosku do SQL a narazil som na taky problem, chcem, aby dany
zaznam mohol aktualizovat IBA jeden uzivatel, teda, aby sa zaznam pre
ostatnych zamkol, ako to ZAMKNUTIE zaznamu spravit ?
Slavo
Vynimka pri inicializacii WinSock 2x
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 27.2.2002 11:53:34
A jeste kdybys nam prozradil jaka vyjimka nastane...??? Samotna
Winsock funkce WSASTARTUP totiz tezko vyvola nejaklou vyjimku, ta asi
nastava nekde jinde...
A taky vyhod to nesmyslne makeword a misto nej pouzij rovnou
konstantu.. treba $202.
> toto je kod ktory pouzivam na inicializaciu WinSock pod Delphi 6. Je to
> podla jednej knihy.
>
> procedure Click;
> var state: Integer;
> WSAData: TWSAData;
> begin
> state:= WSAStartup( MAKEWORD( 2, 0 ), WSAData );
> ...
> end;
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Vynimka pri inicializacii WinSock 2x
[*] Robert Suska <delphi(zv)korak.sk> - 27.2.2002 12:01:14
Vystupna hodnota tohoto tu>
var WSAData: TWSAData;
begin
err:= WSAStartup($202, WSAData);
...
end;
je 1162839084. Akoze zacinam iba programovat na WinSock doteraz som robil
databazy takze tak. Dakujem za ochotu.
S pozdravom Robo
nefunguje Application.terminate
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 27.2.2002 12:14:29
Protoze tam musi byt nejaky typ procedury. Vetsinou se v takovych
pripadech pouziva typ = procedure ( AParam : Pointer ); Tady je to
trochu jine, ale jenom malo - procedure () of object - tedy tim
predavanym pointerem je instance objektu TThread. Tedy uz je asi jasne
kde maji takove parametry byt - maji byt cleny te tve odvozeniny od
TThread.
Ja to delam nasledovne:
TMyThread = class(TThread )
protected
FParam1 : integer;
procedure _MojeProc;
procedure MojeProc( AParam1 : integer );
...
end;
procedure TMyThread._MojeProc;
begin
ProgressBar.Position := FParam1;
end;
procedure TMyThread.MojeProc;
begin
FParam1 := AParam1;
synchronize( _MojeProc );
end;
Honza +
> S tim souvisi muj druhy dotaz: jake by melo byt spravne reseni, kdyz
> potrebuju do procedury, kterou volam pomoci synchronize, predat
> konkretni parametry (napr. stav onoho ProgressBaru). Pouzivat glob.
> promenne by zmenilo muj projekt ve znacny chaos. Proc toto nelze? :(
>
> Synchronize(MojeProcedura(Vstup: string));Jak zjistim aktivni tiskarnu
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 27.2.2002 12:15:47
Ahojki,
umim zjistit seznam vsech tiskaren -> vim kolik mam v pocitaci
nainstalovanych ovladacu tiskaren, ale nevim jak zjistim, ktera
je aktivni.
Jo, povedlo se mi nazev te aktivni ulozit do souboru, ale neripada
mne korektni, abych si nazev tiskarny ulozil do souboru a pak si
ho z nej precetl. To musi jit i jinak!!!!
Delam to takhle:
printer.Printers.SaveToFile(ExtractFilePath(Application.ExeName)
+'nazev tiskarny.txt');
Znate nekdo odpoved?
Diky
Jirka
______________________________________________________________________
"Http://poradna.bilezbozi(tec)cz - poradte se s nasim servisnim technikem!"Zobrazenie udajov na Canvas
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 27.2.2002 12:31:09
Dne 27.��nor�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
> > From: bpodolak(zv)elanor.sk
> >
> > Zobrazujem na Canvas komponenty Timage stromovu strukturu v podniku - take
> > stvorceky a v nich informacie o jednotlivych prac. miestach. Ked je tato
> > struktura mala, cca 50 stvorcekov, je to v pohode, ale ak je velka cca 500
> > stvorcekov, dojdu graficke zdroje a windows zahlasi chybu, ze je
> > nedostatok zdrojov...
>
> Jakym zpusobem ty ctverecky kreslis?
> Mam dojem, ze samotne kresleni ctverecku systemove zdroje
> nevycerpa. Problem bude asi jinde.
>
> > Neviete niekto nejaky sposob, ako to urobit inak? Potrebujem vsak, aby tam
> > fungovli aj scrollbary a aby to neblikalo a bolo to dost rychle .
>
> Ja bych doporucil udelat si pomocny TMetafile,
> a na nej TCanvas, a na ten to nakreslit.
> Potom uz jenom prenest hotovy pomocny Metafile do TImage.
> Takto potom lze s vysledkem jednoduse zoomovat i scrolovat.
>
> Vaclav Krmela
>
Muzes mi, prosi m priblizit tu moznost zoomovani? Mam problem, ktery asi nevyresim
klasickym zposobem. Do BitMapy na Canvas vkladam true-typovy text a pak jsem chtel
tuhle bitmapu umistit do image a podle pozadavku uzivatele zoomovat.
Jak asi kazdeho napadne, (teda me az jsem to zjistil :)) ) to zoomovani sice funguje,
ale uz je po true-typu - jsou z toho ctverecky.
Jak na to?
diky Jirka
______________________________________________________________________
Jsi muz? Jsi spokojen se svym sexualnim zivotem nebo chces zvysit svou
sexualni vykonnost. Ted mas sanci. Chyt ji hned. http://www.zdravimuze(tec)cz tisk _opravdu_velke_ BMP
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.2.2002 12:49:12
ahoj,
v jednu chvili jsem si myslel, ze uz to mam,
pouzil jsem odkaz z knihy 1001 trik pro delphi,
podle nej sestrojil procedurku:
procedure PrintBitmap(Canvas: TCanvas; DestRect: TRect; Bitmap:
TBitmap);
kterou volam po namalovani obrazku na pracovni bitmapu wBMP:
PrintBitmap(Printer.Canvas, Rect(0, 0, wBMP.Width, -wBMP.Height),
wBMP);
problem je, ze treba na laserovku EPL3000 se to vytiskne a na HP990cxi
ani prd.
bmp je dost velka, je to A4 v 1000 dpi. ulozeny to ma cca 45MB.
netusite, jak to zaridit?
dekuji PeC(zv)
ps: prikladam ukazku procedurky:
procedure TfTisk.PrintBitmap(Canvas: TCanvas; DestRect: TRect; Bitmap:
TBitmap);
var
BitmapHeader: pBitmapInfo;
BitmapImage: POINTER;
HeaderSize: DWORD; // Use DWORD for D3-D5
compatibility
ImageSize: DWORD;
i: integer;
begin
GetDIBSizes(Bitmap.Handle, HeaderSize, ImageSize);
GetMem(BitmapHeader, HeaderSize);
GetMem(BitmapImage, ImageSize);
try
GetDIB(Bitmap.Handle, Bitmap.Palette, BitmapHeader^, BitmapImage^);
StretchDIBits(Canvas.Handle,
DestRect.Left, DestRect.Top, // Destination Origin
DestRect.Right-DestRect.Left, // Destination Width
DestRect.Bottom-DestRect.Top, // Destination Height
0, 0, // Source Origin
Bitmap.Width, Bitmap.Height, // Source Width & Height
BitmapImage,
TBitmapInfo(BitmapHeader^),
DIB_RGB_COLORS,
SRCCOPY);
for i:=1 to 10 do
begin
Application.ProcessMessages; // zpracuj zpr�vy windows
Sleep(250); // po�kej �tvrt sekundy
end;
Application.ProcessMessages;
finally
FreeMem(BitmapHeader);
FreeMem(BitmapImage)
end
end{PrintBitmap};Skryti nejake property
[*] Vot�pka V�clav <Vaclav.Votipka(zv)merlin(tec)cz> - 27.2.2002 12:51:50
Ahoj
Toho, aby properta nebyla vubec, dosahnes jedinym zpusobem - zrusis ji i v
predkovi - ale to asi nechces. Takze reseni bude nejake polovicate. Napr.
muzes v TMy2 nadefinovat take propertu AAA a pri pokusu o praci s ni vyvolat
vyjimku. Tim muzes docilit, ze tuto propertu na urovni TMy2 omylem nekdo
nepouzije. Ale zapis (My2 as TMy1).AAA puvodni propertu stejne zpristupni a
tomu IMHO nelze zabranit.
eNca
> -----P�vodn� zpr�va-----
> Od: Petr Kukl�k [mailto:Petr.Kuklik(zv)seznam(tec)cz]
> potreboval bych poradit s ukrytim property. Mam tridu, ktera ma
> public property AAA, z teto tridy vytvorim potomka, ale chci aby na
> teto urovni property AAA nebyla videt.
>
> Asi takto (je to jen nacrt)
>
> TMy1 = class(TObject)
> ...
> public
> property AAA : integer;
> end;
>
> TMy2 = class(TMy1)
> ...
> end;
>
> Pokud bude My2 typu TMy2, pak budu moci My2.AAA cist i do ni
> zapisovat. Ale ja chci, aby tato property nebyla vubec.ako s diakritikou
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 27.2.2002 13:00:30
> pri vytvarani tabulky som pouzil taketo definovanie stlpca
>
> MENO VARCHAR(25) CHARACTER SET WIN1250 COLLATE PXW_CSY
>
toto je spravna definice, ches-li mit spravny sort...
> predpokladal som, ze s diakritikou nebude ziaden problem, avsak ked som
> chcel pri testovani v IBConsole pridat zaznam a v tomto stlpci bola
hodnota
> s diakritikou, nemohol som - bez nejakej chybovej hlasky. Potom, ked som
> predefinoval stlpec na obycajne
>
v IBConsoli si, v okamziku kdy si registrujes novou databazi do vetve
Databases, zvol v dialogovem okne Register database and Connect u polozky
Default Character Set hodnotu Win1250. Pak nebudes mit s cestinou zadnej
problem... Muses to udelat i tak, ze si zaregistrujes dve polozky -
MyDatabase-cz (Default Character Set = Win1250) a MyDatabase-en (nenastaveny
Default Character Set).
> MENO VARCHAR(25)
>
> zadavat hodnoty aj s diakritikou som mohol, ale nie som si isty, ci to
bude
> pri dalsom pouzivani diakritiky (triedenie a pod.) v poriadku.
> Neviete niekto v com by mohol byt problem?
>
> Dik
>
> D5,IB6.01,W98
Zobrazenie udajov na Canvas
[*] bpodolak(zv)elanor.sk - 27.2.2002 13:12:34
> > From: bpodolak(zv)elanor.sk
> >
> > Zobrazujem na Canvas komponenty Timage stromovu strukturu v podniku - take
> > stvorceky a v nich informacie o jednotlivych prac. miestach. Ked je tato
> > struktura mala, cca 50 stvorcekov, je to v pohode, ale ak je velka cca 500
> > stvorcekov, dojdu graficke zdroje a windows zahlasi chybu, ze je
> > nedostatok zdrojov...
>
> Jakym zpusobem ty ctverecky kreslis?
> Mam dojem, ze samotne kresleni ctverecku systemove zdroje
> nevycerpa. Problem bude asi jinde.
>
> > Neviete niekto nejaky sposob, ako to urobit inak? Potrebujem vsak, aby tam
> > fungovli aj scrollbary a aby to neblikalo a bolo to dost rychle .
>
> Ja bych doporucil udelat si pomocny TMetafile,
> a na nej TCanvas, a na ten to nakreslit.
> Potom uz jenom prenest hotovy pomocny Metafile do TImage.
> Takto potom lze s vysledkem jednoduse zoomovat i scrolovat.
>
> Vaclav Krmela
>
Muzes mi, prosi m priblizit tu moznost zoomovani? Mam problem, ktery asi
nevyresim
klasickym zposobem. Do BitMapy na Canvas vkladam true-typovy text a pak jsem
chtel
tuhle bitmapu umistit do image a podle pozadavku uzivatele zoomovat.
Jak asi kazdeho napadne, (teda me az jsem to zjistil :)) ) to zoomovani sice
funguje,
ale uz je po true-typu - jsou z toho ctverecky.
No ja som mal tiez podobny problem s ciarkami,co spajali tie stvorceky - ono
zomovanie je len nasobenie konstantou, mne napr. zobrazovalo ciarkovane ciary
dobre, ale pri zoome viac ako 100 % ( original ) sa to zmenilo len na hrubu
ciaru - kdesi v helpe som cital,ze sa da nastavit styl ciar len do 100 %, potom
uz nie . Neviem, ci je to nieco podobne ako mas ty ....
Skryti nejake property
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 27.2.2002 13:16:48
V potomkovi deklaruj tu Property treba v casti Private. Tim bude pro
okoli skryta.
TMy2 = class(TMy1)
...
private
property AAA;
end;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
>> Od: Petr Kukl�k [mailto:Petr.Kuklik(zv)seznam(tec)cz]
>> potreboval bych poradit s ukrytim property. Mam tridu, ktera ma
>> public property AAA, z teto tridy vytvorim potomka, ale chci aby na
>> teto urovni property AAA nebyla videt.
>>
>> Asi takto (je to jen nacrt)
>>
>> TMy1 = class(TObject)
>> ...
>> public
>> property AAA : integer;
>> end;
>>
>> TMy2 = class(TMy1)
>> ...
>> end;
>>
>> Pokud bude My2 typu TMy2, pak budu moci My2.AAA cist i do ni
>> zapisovat. Ale ja chci, aby tato property nebyla vubec.
Skryti nejake property
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 27.2.2002 13:18:15
Pomoci custom tridy, stejne je to reseno i vsude ve VCL:
TCustomMy1 = class(TObject)
...
private
property AAA : integer;
end;
TMy1 = class(TCustomMy1)
...
public
property AAA;
end;
TMy2 = class(TCustomMy1)
...
end;
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Petr Kukl�k [mailto:Petr.Kuklik(zv)seznam(tec)cz]
> potreboval bych poradit s ukrytim property. Mam tridu, ktera ma
> public property AAA, z teto tridy vytvorim potomka, ale chci aby na
> teto urovni property AAA nebyla videt.
>
> Asi takto (je to jen nacrt)
>
> TMy1 = class(TObject)
> ...
> public
> property AAA : integer;
> end;
>
> TMy2 = class(TMy1)
> ...
> end;
>
> Pokud bude My2 typu TMy2, pak budu moci My2.AAA cist i do ni
> zapisovat. Ale ja chci, aby tato property nebyla vubec.
Uzamknutie zaznamu SQL
[*] bpodolak(zv)elanor.sk - 27.2.2002 13:20:59
On 27 Feb 2002, at 10:34, Slavom�r �eke� wrote:
> Zabrdam trosku do SQL a narazil som na taky problem, chcem, aby dany
> zaznam mohol aktualizovat IBA jeden uzivatel, teda, aby sa zaznam pre
> ostatnych zamkol, ako to ZAMKNUTIE zaznamu spravit ?
> Nevim jak kde, ale v IB zadne "explicitni" uzamknuti (lock record,
> use exclusive) neexistuje. Pozadovana vlastnost je dana
> nastavenim vlastnosti transakce. Je-li to z delf, dvakrat kliknout na
> komponentu transakce, podrobnosti v dokumentaci k IB.
> Z.Kalhous
Mam dojem,ze v IB nejde zamknut nejaky riadok. Ja som robil klient/server
architekturu a malsom podobny problem, tak som si spravil vlastny zamykaci
mechanizmus mieen na riadky, ale aj na tabulku alebo doslova na konkretne sltpce
tabulky. Staci si v Databaze vytvorit novu tabulku a do nej ukladat pristup k
riadkom a potom ked bude chciet niekto novy citat, tak sa najskorpozrie, ci uz
ho nepouziv niekto iny
Jak zjistim aktivni tiskarnu
[*] Robert Suska <delphi(zv)korak.sk> - 27.2.2002 13:31:56
takto sa daju zistit nazvy tlaciarni ktore su v systeme instalovane a ukaze
Ti aj ktora je aktivna, nevyhoda vsak je ze v systeme Win98 neviem ako to je
pod inym OS neskusal som to ked sa zmeni aktivna tlaciaren pocas behu
programu tak program Ti stale bude detekovat aktivnu tu ktora bola nastavena
ako aktivna este pred spustenim programu:
uses Printers;
procedure TForm1.ListingPrinterButtonClick(Sender: TObject);
var i: integer;
begin
for i:= Printer.Printers.Count-1 downto 0 do
ListBox1.Items.Add(Printer.Printers.Strings[i]);
ListBox1.Items.Add('');
ListBox1.Items.Add('Aktivna: ' +
Printer.Printers.Strings[Printer.PrinterIndex]);
end;
Robo
Skryti nejake property
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 27.2.2002 13:43:37
Takhle to nejde, musi se to delat pres tu custom tridu.
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>> V potomkovi deklaruj tu Property treba v casti Private. Tim bude pro
> okoli skryta.
> TMy2 = class(TMy1)
> ...
> private
> property AAA;
> end;
Skryti nejake property
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 27.2.2002 13:47:59
> Pomoci custom tridy, stejne je to reseno i vsude ve VCL:
>
> TCustomMy1 = class(TObject)
> ...
> private
> property AAA : integer;
> end;
>
> Jakub Dusek
>
Hmm, praveze v TCustomMy1 ji mam public. Presne jde o TCustomIniFile,
kde FileName je public. Zde jsou odvozene dve tridy, ktere ale sahaji
na soubor. Ja bych potreboval stejnou tridu, ale pracujici s
databazi. Slo by to obejit pres nejaky temp souboru a dedit primo z
TIniFile, ale to bych musel osetrit ten soubor. Chtel jsem tedy
vyuzit TCustomIniFile, kde je cas jiz naprogramovana a hlavni reseni
jako je v TIniFile si udelat sam. Ta property FileName by se
nevyuzivala, zadnou chybu tedy nezpusobi, ale mohla by byt
zavadejici, proto jsem ji chtel schovat.
Petr
______________________________________________________________________
GPRS> Vzdy pripojen - Vzdy s Oskarem http://ad2.seznam(tec)cz/redir.cgi?instance=21615%26url=http://www.oskarmobil(tec)cz/cz/products/p_index.htm
MAPIAddress
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 27.2.2002 13:52:01
Zdravim,
nemate nekdo zkusenosti s funkci MAPIAddress?
Otevreni a vyber z default Address Book. Me se nejak nedari
komunikace s MAPI a nefunguje mi ani MAPILogOn.
Acko-li mam v c:\winnt\system32\ mapi32.dll tak mi
fce LoadLibrary vraci 0 a tim padem mi MAPILogOn vrati chybu a nejde to.
Nemate na to nejaky napad :o) ?
MAPIAddress(
Session as Long,
UIParam as Long,
Caption as String,
EditFields as Long,
Label as String,
RecipCount as Long,
Recipients() as MapiRecip,
Flags as Long,
Reserved as Long) as Long
MAPILogon(
UIParam ByVal as Long,
User as String,
Password as String,
Flags as Long,
Reserved as Long,
Session as Long) as Long
------------------------------------------------------
Robert Plz�k
Delphi 6 Ent, Windows 2000 Pro CZ
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
[*] Slavom�r �eke� - 27.2.2002 13:59:54
Zdravim znova ...
jednoduchy prikladik na SUBJ by fakt pomohol ... vdaka
Slavo
Ako na socket????
[*] Robert Suska <delphi(zv)korak.sk> - 27.2.2002 14:00:45
Ako nahle chcem vytvorit socket alebo zacnem pracovat s WSAStartup() tak
proste mi to hlasi vynimku >
Project hwdInfo.exe raised exception class EAccessViolation with message
'Access violation at address 00000009. Write of address 70046509'. Process
stopped. Use Step or Run to continue.
Neviem co s tym moze byt ci treba nieco doinstalovat do Windows alebo mam
nieco zmrvene Delphi neviem. Prosim pomozte mi niekto. Dakujem za ochotu
Robo
Uzamknutie zaznamu SQL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 27.2.2002 14:11:40
Uzamknuti je skutecne dano vlastnostmi transakce, z�mek prislusneho typu
(urovne) se vytvori :
- nastavit vlastnost transakce
- begin tran
- dale napr select
......
......
- konect trans (rollback nebo commit).
Poznamka - commit byva u vetsiny serveru "levnejsi" nez rollback, i kdy se
nic neupdateovalo.
U serveru s viceuzivatelskym pristupem neni doporuceno vytvaret dlouhe
transakce (rozumej = po dlouhou dobu trvajici), nebot snizuji vykon serveru
a blokuji ostatni uzivatele od pristupu ke zdrojum.
Pozor zejmena na insert, to vetsinou zamkne celou tabulku a ostatni musi
cekat(minimalne vsechny ostatni inserty) na ukonceni transakce.
Zamky vlastni konstrukce mivaji problemy pri nestandardnim ukonceni
aplikace, kdy zustavaji viset. Pokud neexistuje jednoducha kontrola jejich
validity (proti prihlasenemu uzivateli, vymazat vsechno pri prihlaseni, ...)
tak bych hodne vahal s jejich pouzitim.
Pavel
> Zabrdam trosku do SQL a narazil som na taky problem, chcem, aby dany
> zaznam mohol aktualizovat IBA jeden uzivatel, teda, aby sa zaznam pre
> ostatnych zamkol, ako to ZAMKNUTIE zaznamu spravit ?
> Nevim jak kde, ale v IB zadne "explicitni" uzamknuti (lock record,
> use exclusive) neexistuje. Pozadovana vlastnost je dana
> nastavenim vlastnosti transakce. Je-li to z delf, dvakrat kliknout na
> komponentu transakce, podrobnosti v dokumentaci k IB.
> Z.Kalhous
Mam dojem,ze v IB nejde zamknut nejaky riadok. Ja som robil klient/server
architekturu a malsom podobny problem, tak som si spravil vlastny zamykaci
mechanizmus mieen na riadky, ale aj na tabulku alebo doslova na konkretne
sltpce
tabulky. Staci si v Databaze vytvorit novu tabulku a do nej ukladat pristup
k
riadkom a potom ked bude chciet niekto novy citat, tak sa najskorpozrie, ci
uz
ho nepouziv niekto iny
Skryti nejake property
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 27.2.2002 14:40:25
A co pouzit TMemIniFile? Je to jen napad, nevim presny pripad pro jaky to
potrebujes.
Jakub Dusek
---------
From: "Petr Kukl�k" <Petr.Kuklik(zv)seznam(tec)cz>
Hmm, praveze v TCustomMy1 ji mam public. Presne jde o TCustomIniFile,
kde FileName je public. Zde jsou odvozene dve tridy, ktere ale sahaji
na soubor. Ja bych potreboval stejnou tridu, ale pracujici s
databazi. Slo by to obejit pres nejaky temp souboru a dedit primo z
TIniFile, ale to bych musel osetrit ten soubor. Chtel jsem tedy
vyuzit TCustomIniFile, kde je cas jiz naprogramovana a hlavni reseni
jako je v TIniFile si udelat sam. Ta property FileName by se
nevyuzivala, zadnou chybu tedy nezpusobi, ale mohla by byt
zavadejici, proto jsem ji chtel schovat.
Petr
Uzamknutie zaznamu SQL
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 27.2.2002 14:42:04
ahoj,
nechapu smysl uzamykani zaznamu v SQL databazi.
pokud nekdo upravi zaznam a nekdo jiny chce udelat
totez, druhy ma smulu, vic bych to neresil.
imho je to proti filosofii SQL jako takove.
myslim, ze neni duvod. jestli jo, rad se ho dozvim.
dekuji PeC(zv)Jak zjistim aktivni tiskarnu
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 27.2.2002 14:49:28
> umim zjistit seznam vsech tiskaren -> vim kolik mam v pocitaci
> nainstalovanych ovladacu tiskaren, ale nevim jak zjistim, ktera
> je aktivni.
pokud aktivni=DEFAULT tak asi takhle
Printer.PrinterIndex:=-1;
v Printer.PrinterIndex je ted cislo dafult tiskarny
> Jo, povedlo se mi nazev te aktivni ulozit do souboru, ale neripada
> mne korektni, abych si nazev tiskarny ulozil do souboru a pak si
> ho z nej precetl. To musi jit i jinak!!!!
> Delam to takhle:
> printer.Printers.SaveToFile(ExtractFilePath(Application.ExeName)
> +'nazev tiskarny.txt');
toto sem nepochopil co ma za vyznam
jinak pokud se zmeni tiskarny tak se posila zprava WM_SPOOLERSTATUS nebo (a
to spise) WM_DEVICECHANGE takze v nejakem okno na to reagovat
Ako na socket????
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 27.2.2002 14:53:29
> Ako nahle chcem vytvorit socket alebo zacnem pracovat s WSAStartup() tak
> proste mi to hlasi vynimku >
Pouzivas standardni unitu Winsock z Delphi (ktera pouziva staticke
nahravai winsockackeho DLL), nebo nejakou jinou unitu? Casto je
problem v tom, ze nektere balicky pouzivaji stejnojmennou unitu,
ktera trebas potrebuje nejakou inicializaci... tedy pokousis se
spustit funkci z nenahraneho DLL v pameti. Neni problem v tomhle?
Nechces nahodou misto toho experimentovani sahnout po nejakych jiz
hotovych a vyzkousenych knihovnach? (Synapse, Indy, ICS,...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.kododvan�
[*] Rainbow Dark <rainbof(zv)seznam(tec)cz> - 27.2.2002 15:19:31
Mate nekdo nejakej napad jak bezpecne kodovat hesla tak aby se dala posilat
po siti ? potrebuju aby to bylo rychly, jeden cas jsem pouzival jen xor ale
na to prisli diky.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Skryti nejake property
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 27.2.2002 15:23:18
From: "Jakub Dusek" <jdev(zv)seznam(tec)cz>
> A co pouzit TMemIniFile?
Ten je prece take potomkem tCustomIniFile, ktery ma zminovanou public
property FileName.
Bye, pf
Vynimka pri inicializacii WinSock 2x
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 27.2.2002 15:32:15
> var WSAData: TWSAData;
>
> begin
> err:= WSAStartup($202, WSAData);
>
> ...
>
> end;
>
> je 1162839084. Akoze zacinam iba programovat na WinSock doteraz som
robil
> databazy takze tak. Dakujem za ochotu.
>
pouzivas Winsock od Borlandu?
Je TCP/IP instalovane nebo ne?
Nastane ta vyjimka nebo ne? (tedy pri krokovani to na WSAStartup zarve
nebo ne? pokud ano nema smysl se bavit o hodnote Err - tu mas
pravdepodobne alokovanou v nejake funkci a tedy obsahuje nahodnou
hodnotu)
D. Toman
Jak na TNotifyEvent
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 27.2.2002 15:40:03
Jak korektne prepsat nize uvedeny kod aniz bych musel definovat vlastni typ
(napr TForm)?
program MyPrg;
uses
...
// zadna definice noveho typu, zadny formular ve kterem
// bych mol vytvorit proceduru ddd pro korektni prirazeni
procedure ddd(Sender: TObject);
begin
...
end;
var ....
begin
...
// zde pochopitelne vyhodi zpravu "Incompatible types: method pointer and
regular procedure"
Component1.OnEvent := ddd; // OnEvent je typu TNotifyEvent
...
end.
Dekuji za napad
Michal
Uzamknutie zaznamu SQL
[*] Kr�l Jirka jr. <admin(zv)printo(tec)cz> - 27.2.2002 15:42:35
>>nechapu smysl uzamykani zaznamu v SQL databazi.
>>pokud nekdo upravi zaznam a nekdo jiny chce udelat
>>totez, druhy ma smulu, vic bych to neresil.
>>imho je to proti filosofii SQL jako takove.
>>myslim, ze neni duvod. jestli jo, rad se ho dozvim.
pekne reseni je toto:
- pred ulozenim si editovanou vetu z dB nacist znovu
- vsecky fieldy porovnat s ukladanymi hodnotami
- userovi zobrazit rozdily a zeptat se jestli _fakticky_ prevalit jeho
hodnotami
jenze se malokdo rozhodne takto usery rozmazlovat, ze jo...
J.Jak na TNotifyEvent
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 27.2.2002 15:57:46
procedoru (metodu, udalost) musis definovat v objektu (potomku TObject)
Zdenek Janish
----- Original Message -----
> procedure ddd(Sender: TObject);
> begin
> ...
> end;
>
> Component1.OnEvent := ddd; // OnEvent je typu TNotifyEvent
Jak na TNotifyEvent
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 27.2.2002 16:05:41
> Jak korektne prepsat nize uvedeny kod aniz bych musel
> definovat vlastni typ
> (napr TForm)?
>
> program MyPrg;
> uses
> ...
> // zadna definice noveho typu, zadny formular ve kterem
> // bych mol vytvorit proceduru ddd pro korektni prirazeni
>
> procedure ddd(Sender: TObject);
> begin
> ...
> end;
>
> var ....
> begin
> ...
> // zde pochopitelne vyhodi zpravu "Incompatible types: method
> pointer and
> regular procedure"
> Component1.OnEvent := ddd; // OnEvent je typu TNotifyEvent
> ...
> end.
Napriklad takto:
program MyPrg;
procedure ddd(Self, Sender: TObject);
begin
...
end;
var
Component1: TComponent1;
M: TMethod;
begin
Component1 := TComponent1.Create(nil);
try
...
M.Data := Component1;
M.Code := (zv)ddd;
Component1.OnEvent := TNotifyEvent(M);
...
finally
Component1.Free;
end;
end.
HTH
TOndrej
Jak na TNotifyEvent
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 27.2.2002 16:27:54
Myslim, ze staci napsat
procedure ddd(Sender: TObject); of object;> Jak korektne prepsat nize uvedeny kod aniz bych musel definovat
> vlastni typ (napr TForm)?
>
> program MyPrg;
> uses
> ...
> // zadna definice noveho typu, zadny formular ve kterem
> // bych mol vytvorit proceduru ddd pro korektni prirazeni
>
> procedure ddd(Sender: TObject);
> begin
> ...
> end;
>
> var ....
> begin
> ...
> // zde pochopitelne vyhodi zpravu "Incompatible types: method pointer
> and regular procedure"
> Component1.OnEvent := ddd; // OnEvent je typu TNotifyEvent
> ...
> end.
>
> Dekuji za napad
> Michal
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Uzamknutie zaznamu SQL
[*] Rado Benc <bego(zv)pobox.sk> - 27.2.2002 16:41:12
Nazdar,
> Zabrdam trosku do SQL a narazil som na taky problem, chcem, aby dany
> zaznam mohol aktualizovat IBA jeden uzivatel, teda, aby sa zaznam pre
> ostatnych zamkol, ako to ZAMKNUTIE zaznamu spravit ?
Nepises, o aku databazu ide - resp. pozeram, ze pises, ale neskoro.
Pre InterBase je "poruke" stary dirty trick:
UPDATE foo
SET foo_id = foo_id
WHERE foo_id = 1;
foo je tabulka,
foo_id je pole tabulky,
WHERE klauzula identifikuje zaznam, ktory ma byt locknuty - ak by tam
podmienka nebola, locknes celu tabulku.
Princip - ide o tzv. dummy update - polozky zaznamu sa nezmenia, ale
zaznam zostane locknuty do konca transakcie (commit, alebo rollback).
Co sa v tomto pripade stane pri pokuse o konkurencny update zavisi na
nastaveni transaction lock resolution - default je WAIT - uzivatel,
ktory sa bude pokusat o konkurencny update bude cakat, kym uzivatel,
ktory lockol zaznam nekomitne alebo norollbackne - v oboch pripadoch
nastane deadlock.
Pri transaction lock resolution NO WAIT dostane uzivatel, ktory sa
pokusi o konkurencny update deadlock hned.
HTH,
Rado
____________________________________
http://www.pobox.sk/ - urcujeme trendy
Uzamknutie zaznamu SQL
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 27.2.2002 16:42:35
Rado Benc poslal strucne a jasne to, co jsem ti chtel odpovedet ja.
Na SQL serveru to asi bude jinak, ale treba to pomuze jinym v tehle
konferenci:
Rady ohledne nastaveni modu transakce (pri pouziti IB) miri spravnym smerem,
ale nikdo Ti nerekl podstatnou vec. Ze totiz podle modu transakce je sice
urcen
druh zamykani (optimisticke/explicitni/zadne), ale explicitne zamknout jeden
zaznam se musi
prostym poslanim jakehokoliv update nebo select na dany zaznam (prave podle
modu).
Je to dulezite doplneni toho, co tady bylo receno, protoze treba select na
cast tabulky
pri nejvyssi urovni zamykani ti zamkne vsechny zaznamy tohoto vyberu, ne jen
ten, ktery si z toho vybere
uzivatel.
Priklady najdes ve zdrojacich IBX, FIBplus nebo IB Objects.
Pr.:
...StartTransaction
SQL('Update Tabulka SET ATR1=cokoliv WHERE Klic=klic zamykaneho zaznamu')
...prace se zaznamem
SQL('Update Tabulka SET Atributy WHERE Klic=klic zamykaneho zaznamu')
...Commit
My s uspechem vyuzivame mod ReadCommited (muzes jej vyuzit i u nativnich VCL
i u BDE),
Ten, kdo nechape potrebu zamykani zaznamu (at uz ve flat-file nebo SQL nebo
objektove databazi),
asi nikdy nedelal projekt do praxe, protoze jinak by vedel, ze jakehokoliv
uzivatele mnohem mene stve to,
ze se nemuze momentalne k zaznamu dostat, nez to ze zaznam upravuje a po
pokusu o ulozeni mu to
zahlasi ze to nejde, protoze to pred nim zmenil nekdo jiny nebo musi resit
nejake konflikty, k nimz napsat
komfortni interface je velmi problematicke (jak uz tady nekdo psal). Druhym
prikladem nutnosti zamku
je editace jednoho hlavniho zaznamu a nekolika zaznamu ze zavislych tabulek
najednou. Nekdy jsou proste
situace, kde optimisticke zamykani (ktere je hodne doporucovano pro SQL
databaze a nekdo ho tady nazval
filosofii SQL) nestaci, protoze kdyby takovy zaznam mohlo editovat vice
uzivatelu najednou (kazdy nejakou cast) a pak to vsichni poslali na server,
tak z toho zakonite bude gulas.
Zamykani pomoci vlastnich tabulek je opravdu nestastne reseni, hlavne proto
ze je proste zbytecne psat neco,
co uz v databazi je.
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 27, 2002 2:42 PM
Subject: RE: Uzamknutie zaznamu SQL
ahoj,
nechapu smysl uzamykani zaznamu v SQL databazi.
pokud nekdo upravi zaznam a nekdo jiny chce udelat
totez, druhy ma smulu, vic bych to neresil.
imho je to proti filosofii SQL jako takove.
myslim, ze neni duvod. jestli jo, rad se ho dozvim.
dekuji PeC(zv)
Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
[*] Lubor Martinsky,\(SDC\) <l.martinsky(zv)softdec(tec)cz> - 27.2.2002 17:37:38
Pane kolego,
jednoduchy prikladek je podle mne v tomto pripade hodne zavadejici.
Pokud uzamknete zaznam, je treba si uvedomit, ze podle situace a typu SQL
serveru to nekdy znamena nechteny LOCK na stranku, pripadne na celou
tabulku.
Jak osetrite, ze v pripade takove otevrene transakce, se uzivatel podiva na
hodinky,
uderi se do cela a odejde na obed. A ostatni uzivatele? Budete v aplikaci
takto
pesimisticky, a budete programovat time-out?
Osobne se domnivam, ze nastaveni Isolation-level na prisnejsi uroven, ale
jinak ponechani reseni na SQL-enginu by bylo cistsi reseni.
LM
BEGIN TRANSACTION
select ****** HOLDLOCK
< YOUR UPDATE >
COMMIT TRANSACTION
// EXCPETION HANDLE
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Slavom�r �eke�
Sent: Wednesday, February 27, 2002 2:00 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
Zdravim znova ...
jednoduchy prikladik na SUBJ by fakt pomohol ... vdaka
Slavo
Uzamknutie zaznamu SQL
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 27.2.2002 17:51:06
Ahoj,
tento nazor (viz dale) je sice "spravny" a pochopitelny, ale bohuzel
vlastnosti SQL databazi jsou vynuceny algoritmy, pro ktere jsou primarne
urceny. A to jsou rozsahle "podnikove systemy" (a mezi rozsahle patri i
celosvetove) a zpusobu nasazeni, kde se predoklada, ze prave databaze je
jednoticim prvkem systemu, do ktereho "stoura" vice ruznych aplikaci od
ruznych dodavatelu, napsanych pod ruznym vyvojovym prostedim v ruzne dobe.
V tomto prostredi se nejvice cenni integrita ulozenych dat! Uzivatelska
"pritulnost" je az na nekterem z dalsich mist (tim ji nechci nijak
podcenovat, zbozi je treba i prodat a prodava kabat).
Ono cele pouzivani dataware component je znacne nestastne reseni, ktere
prave uvadenou integritu presunuje pouze na uroven aplikace a dtto provadi s
bezpecnosti. Nekolikrat tady byl prezentovan nazor "pretahnout data na
lokal, opracovat je a nacpat je zpatky", moje zkusenosti tento nazor
dlouhodobe potvrzuji. Podpora ze strany Delphi (v koupene krabici)je sice
miziva, ale vhodne komponenty pro takovy vyvoj je mozno snadno stahnou,
koupit nebo i napsat. Tento pristup se rozhodne vyplati !
Doporuceni hodn� reseni je :
a) update pristup do vsech tabulek provadet pouze prostrednictvim ulozenych
procedur s pristupovymi pravy (uzivatele nemaji zadna prava, pouze vykonat
ty procedury !), ktere interne vytvareji transakce dostatecnou urovni
izolace* a v jejim ramci kontroluji i integritu dat po provedeni update.
b) kazdy update je zajisten tak, aby nemohl prepsat udaje, ktere se zmenily
po jejich nacteni (pote co uzivatel zahajil zmeny) a zajistil automaticky
rollback celeho update (napr. do databaze stoura nejaky e-bussines koupeny
od "BleBle", kteremu staci nastavit jak ma pristupovat k databazi .... a vse
bezi krasne a automaticky) pokud se tak stane.
c) na urovni aplikace vyresit "aplikacni zamky", tak, aby byly pri padu
aplikace automaticky zruseny (pad je napr. ztrata spojeni, ..... )
V pripade rozsahlych siti a pri velkem mnozstvi uzivatelu maji problemy se
zamky i flat databaze, nebot zamek se neda v PC-OS napsat jako kriticka
sekce, casto je treba v techto pripadech nasazovat zamky opakovane, aby byla
jistota, ze zaznam nebyl zamcen "jaksi v mezicase" nekym a nepadlo to az pri
update (insertu).
* prezentovany nazor na ReadCommited muze vest k velmi zajimavym chybam, kdy
transakce nevidi 'unikatni' hodnoty soubezne vkladane jinou, dosud
necommitovanou transakci a cele to krasne padne az pri COMMIT (mene casto
byva vice...).
Doporucuji vice pripojeni k databazi a ta vyuzivat dle ucelu "pro aplikacni
zamky", "update", "sestavy a prehledy", ... (dalsi si jiste vymyslite...)
Pavel
puvodni zprava:
---------------
Ten, kdo nechape potrebu zamykani zaznamu (at uz ve flat-file nebo SQL nebo
objektove databazi),
asi nikdy nedelal projekt do praxe, protoze jinak by vedel, ze jakehokoliv
uzivatele mnohem mene stve to,
ze se nemuze momentalne k zaznamu dostat, nez to ze zaznam upravuje a po
pokusu o ulozeni mu to
zahlasi ze to nejde, protoze to pred nim zmenil nekdo jiny nebo musi resit
nejake konflikty, k nimz napsat
komfortni interface je velmi problematicke (jak uz tady nekdo psal).Druhym
prikladem nutnosti zamku
je editace jednoho hlavniho zaznamu a nekolika zaznamu ze zavislych tabulek
najednou. Nekdy jsou proste
situace, kde optimisticke zamykani (ktere je hodne doporucovano pro SQL
databaze a nekdo ho tady nazval
filosofii SQL) nestaci, protoze kdyby takovy zaznam mohlo editovat vice
uzivatelu najednou (kazdy nejakou cast) a pak to vsichni poslali na server,
tak z toho zakonite bude gulas.
Zamykani pomoci vlastnich tabulek je opravdu nestastne reseni, hlavne proto
ze je proste zbytecne psat neco,
co uz v databazi je.Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
[*] bardon <bardon(zv)akord-soft(tec)cz> - 27.2.2002 18:01:14
[P��loha v souboru: winmail.dat]
Treba takto.
(A podivej se na typy zamku. Neni jedno jestli pouzivas sdilene zamky, nebo
vyhradni zamky. A taky je rozdil jestli zamykas radek, stranku, tabulku ...
Vice v helpu pod heslem locking.)
use pubs
SET TRANSACTION ISOLATION LEVEL READ COMMITTED
begin transaction
update pub_info
set pub_id = 0877
where pub_id = 0877
-- tady zamkne
commit
-- tady odemkne
-- nekdy se hodi pouzit hint
begin transaction
select *
from pub_info (UPDLOCK)
where pub_id = 0877
-- tady zamkne
commit
-- tady odemkne
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Slavom�r �eke�
Sent: Wednesday, February 27, 2002 2:00 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
Zdravim znova ...
jednoduchy prikladik na SUBJ by fakt pomohol ... vdaka
Slavo
Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
[*] Roman Macura <delphi(zv)atlascon(tec)cz> - 27.2.2002 18:04:04
To je sice taky pravda, ale pokud je nektery uzivatel takto "nezodpovedny",
maji prece "postizeni" moznost pozadat spravce o "killnuti" takoveho
uzivatele.
To, ze najde svoji rozdelanou praci stornovanu, je jiz jeho chyba.
Faktem je ale napriklad to, ze pri pripojeni pres treti vrstvu to snad ani
jinak nez optimisticky nejde,
coz prave spravne napsal p.Lstiburek. Jeho pozn. o ReadCommited vyvratim
doplnenim, ze je pri tomto modu
samozrejme nevhodne pouzivat cachedupdates nebo jakoukoliv jinou metodu,
ktera
posle na server az vice provedenych zmen na pokyn uzivatele. Pri editaci
jednoho zaznamu je proste vhodne
jej zamknout, editovat a poslat na server. Nemame s tim nejmensich problemu.
----- Original Message -----
From: "Lubor Martinsky,(SDC)" <l.martinsky(zv)softdec(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 27, 2002 5:37 PM
Subject: RE: Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
> Pane kolego,
> jednoduchy prikladek je podle mne v tomto pripade hodne zavadejici.
> Pokud uzamknete zaznam, je treba si uvedomit, ze podle situace a typu SQL
> serveru to nekdy znamena nechteny LOCK na stranku, pripadne na celou
> tabulku.
> Jak osetrite, ze v pripade takove otevrene transakce, se uzivatel podiva
na
> hodinky,
> uderi se do cela a odejde na obed. A ostatni uzivatele? Budete v aplikaci
> takto
> pesimisticky, a budete programovat time-out?
> Osobne se domnivam, ze nastaveni Isolation-level na prisnejsi uroven, ale
> jinak ponechani reseni na SQL-enginu by bylo cistsi reseni.
>
> LM
>
> BEGIN TRANSACTION
>
> select ****** HOLDLOCK
> < YOUR UPDATE >
> COMMIT TRANSACTION
> // EXCPETION HANDLE
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Slavom�r �eke�
> Sent: Wednesday, February 27, 2002 2:00 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Uzamknutie zaznamu SQL v databaze SQL SERVER 2000
>
>
> Zdravim znova ...
>
> jednoduchy prikladik na SUBJ by fakt pomohol ... vdaka
>
> Slavo
>
>
Zobrazenie udajov na Canvas
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.2.2002 18:23:06
> From: bpodolak(zv)elanor.sk
>
> > > Zobrazujem na Canvas komponenty Timage stromovu strukturu v
> podniku - take
> > > stvorceky a v nich informacie o jednotlivych prac. miestach.
> Ked je tato
> > > struktura mala, cca 50 stvorcekov, je to v pohode, ale ak je
> velka cca 500
> > > stvorcekov, dojdu graficke zdroje a windows zahlasi chybu, ze je
> > > nedostatok zdrojov...
Samotne kresleni na Canvas nevede k zadnemu ubytku zdroju.
Zkousel jsem 10.000x(MoveTo,LineTo,Rectangle,TextOut)
a zadny ubytek zdroju jsem nenameril.
Problem musi byt jinde.
> Muzes mi, prosi m priblizit tu moznost zoomovani? Mam problem,
> ktery asi nevyresim
> klasickym zposobem. Do BitMapy na Canvas vkladam true-typovy text
> a pak jsem chtel
> tuhle bitmapu umistit do image a podle pozadavku uzivatele zoomovat.
> Jak asi kazdeho napadne, (teda me az jsem to zjistil :)) ) to
> zoomovani sice funguje,
> ale uz je po true-typu - jsou z toho ctverecky.
Priklad jednoduche aplikace s 10.000 ctverecky,
zoomovatelnou, jsem umistil tady:
http://www.rdgsw(tec)cz/files/schema.zip
> mne napr. zobrazovalo ciarkovane ciary
> dobre, ale pri zoome viac ako 100 % ( original ) sa to zmenilo
> len na hrubu
> ciaru - kdesi v helpe som cital,ze sa da nastavit styl ciar len
> do 100 %, potom
> uz nie . Neviem, ci je to nieco podobne ako mas ty ....
To je asi vlastnost GDI Windows.
Tlustou carkovanou caru si budes muset
vycarkovat nebo vyteckovat sam.
Vaclav Krmela
OT: Jak na PS2 mys ?
[*] Radek Masnica <delphi(zv)wige-mic(tec)cz> - 27.2.2002 18:31:54
Ahoj,
chtel bych sam prijimat protokol od PS2 mysi ve WIN2K. Nevite nekdo, jak na
to ?
Pres COM to jde, ale tam to ctu pres CreateFile ... a ReadFile, ale u PS2
? -> napsat si vlastni driver pro urcitej port ?
Dekuji & s pozdravem
Radek
Aktualni zaznamy z DBF via ODBC
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 27.2.2002 18:46:39
Ahoj,
resim problem s nactenim aktualnich zaznamu z tabulek aplikace napsane ve
FoxPro pro Dos. Aktualni data z DBF se mi podari nacist jen poprve! Pokud v
dosovske aplikaci pridam nejake zaznamy a chci znovu zobrazit seznam vsech
zaznamu v me Delphacke aplikaci, dostanu zase puvodni zaznamy (tj. nezmenene
a bez novych). Jedina moznost je aplikaci zavrit a pustit znovu, pak se
nactou aktualni zaznamy z DBF.
K tabulce se pripojuji pres ODBC (aoADO komponenty), connectionstring vypada
takto:
Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended
Properties="DSN=Soubory
FoxPro;UID=;SourceDB=C:\DBFData;SourceType=DBF;Exclusive=No;BackgroundFetch=
No;Collate=CZECH;Null=Yes;Deleted=No;".
Query uzaviram, pripojeni ukoncuju, formular s komponentama pro pripojeni
(tj. Database, Query) po ukonceni uvolnuju a pred zobrazenim zaznamu
formular vytvarim. Transakce zadna nebezi.
Podle toho, ze po ukonceni a znovuspusteni aplikace se
nactou aktualni zaznamy bych soudil, ze nekde neco neuzaviram/neuvolnuju...
ale co?
Nesetkal se s tim nekdo? Nebo nenapada nekoho, kde by mohl byt zakopany pes?
Predem dik,
Roman
D4, W98SE+W2k, ODBC 3.52, ODBC DBF Driver 6.01
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/
Balicky a menu u MDIChild
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.2.2002 21:28:38
From: "Otisk Ren�" <otisk(zv)misel(tec)cz>
> Lze pomoci Menu.GroupIndex prolinat menu MDIChildu (v package) a MDIFormu v
> aplikaci?
Pokud je oboji prelozeno s balicky tak by to melo fungovat.
Petr Vones
RichEdit (98) - Oddeleni carou, programove vkladan
[*] Jan Zeleny <zeleny.jan(zv)seznam(tec)cz> - 27.2.2002 23:12:07
Zdravim priznivce konference!
Mam nasledujici problem, ve kterem bych si pral poradit:
Nevim jak udelat neco jako oddelovaci caru v textovem editoru -
richeditu. Cara(i dvojita) by se mela chovat jako objekt(moznost
posunuti,smazani).
Stejne vlastnosti by mel mit i obrazek, ktery ale nevim jak vlozit
programove (pres OLE).
Jak poznam programove, kdyz nastavim kurzor, ze jde o muj
obrazek/caru ?
Predpokladam pouziti OLE, ale nevim jak na to.
Nemate s tim nekdo zkusenosti ? Poradite jak na to ?
Beru jakoukoli radu ci navrh!
J. Zeleny
- Delphi 5+,
WinXP
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
OT: Re: Re: Cas v tabulce
[*] Erik Salaj <winsoft(zv)stonline.sk> - 27.2.2002 23:53:22
> # predstav si, ze se majitele radovych domku dohodli, ze kazdy z nich
> postavi na vlastni naklady jeden sloupek pro plot, ktery bude slouzit
> i k upevneni sousedova plotu
>
> # Muj plot pak bude vymezen 1. mym sloupkem a 1. sousedovym
ide o to, ze pokial stlpik ma povedzme sirku 10cm, tak nie je jedno,
ci ten stlpik patri mne alebo susedovi. Pretoze ak patri mne, tak
mam o tych 10cm dlhsi plot ako ked ten stlpik patri susedovi ;-).
Matematicky aparat mi umoznuje uvazovat lubovolnu i nekonecne
malu sirku stlpika a ani v takom pripade to na podstate veci nic
nemeni (aj ked dlzka plota v takom pripade bude rovnaka,
so stlpikom aj bez stlpika).
Erik
Delphi 6 Help Update 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 01:42:11
Ahoj,
na teto strance http://www.borland.com/techpubs/delphi/ je novy update helpu
pro Delphi 6. Potesujici novinkou je OpenTools API Reference
Petr Vones
MAPIAddress
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.2.2002 02:24:29
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
> nemate nekdo zkusenosti s funkci MAPIAddress?
Ahoj,
muzes pouzit JclMapi z JCL (http://delphi-jedi.org/Jedi:CODELIBJCL)
uses
JclMapi;
procedure TForm1.Button1Click(Sender: TObject);
var
SimpleMapi: TJclEmail;
I: Integer;
begin
SimpleMapi := TJclEmail.Create;
try
SimpleMapi.LogOn; // neni potreba napriklad pro Outlook Express
if SimpleMapi.Address('Vyberte adresy', 3) then
// Druhy parametr urcuje jaka pole budou viditelna "To" 1, "Cc" 2, "Bcc" 3
for I := 0 to SimpleMapi.Recipients.Count - 1 do
Memo1.Lines.Add(SimpleMapi.Recipients[I].AddressAndName);
finally
SimpleMapi.Free;
end;
end;
Petr Vones
Uzamknutie zaznamu SQL
[*] Slavom�r �eke� - 28.2.2002 07:08:12
Ahoj ...
no neviem, ale nie je to blbe, ked zhodou okolnosti viac ako jeden user
edituje JEDEN zaznam, a samozrejme kto ho ulozi prvy vyhral, a ostatni
(chudaci) stravili svoj cas ZBYTOCNE ... ci nie ?
Slavo SQL PANIC
ahoj,
nechapu smysl uzamykani zaznamu v SQL databazi.
pokud nekdo upravi zaznam a nekdo jiny chce udelat
totez, druhy ma smulu, vic bych to neresil.
imho je to proti filosofii SQL jako takove.
myslim, ze neni duvod. jestli jo, rad se ho dozvim.
dekuji PeC(zv)Uzamknutie zaznamu SQL
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 28.2.2002 07:35:15
A nebo kdyz si data pretahnes do non-dbaware komponent tak vyhral ten
druhy... Ja jsem to delal tak, ze jsem veskere update operace delal pres
stored procedure a v tabulkach jsem mel date_created, date_changed. Podle
toho (muj natazeny cas jako parametr v SP versus cas v updatovanych
radcich) jsem si kontroloval, jestli mi to nekdo (changed_by default
User_name()) zm�nil ci nikoli. Je pravda ze obsluha potom vzniklych
konfliktu se musela relativne slozite vyhodnocovat...
Sroub
Ahoj ...
no neviem, ale nie je to blbe, ked zhodou okolnosti viac ako jeden user
edituje JEDEN zaznam, a samozrejme kto ho ulozi prvy vyhral, a ostatni
(chudaci) stravili svoj cas ZBYTOCNE ... ci nie ?
Slavo SQL PANIC
ahoj,
nechapu smysl uzamykani zaznamu v SQL databazi.
pokud nekdo upravi zaznam a nekdo jiny chce udelat
totez, druhy ma smulu, vic bych to neresil.
imho je to proti filosofii SQL jako takove.
myslim, ze neni duvod. jestli jo, rad se ho dozvim.
dekuji PeC(zv)Jednozna�n� ur�en� po��ta�e
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 28.2.2002 08:05:57
Proc zvracenost? Pouziva to tak i Microsoft a spousta dalsich firem. Nase
firma ma pres 3 000 zakazniku a ani jeden si nestezoval. Proste se
zaregistruji a pokud nekdy zmeni vice komponent v pocitaci, tak nam zavolaji
a preregistruji se. Nic na tom neni.
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> From: "PeJaSoft" <pejasoft(zv)volny(tec)cz>
> > Pouzij vice techto seriovych cisel. Treba pro 5 komponent a povol, ze
max. 2
> > komponenty se mohou zmenit.
>
> Doufam ze tato zvracenost je patricne zvyraznena v licencni smlouve, aby
vcas
> odradila potencialni zakazniky.
SINEA - Tisk Grafu
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 28.2.2002 08:31:57
Snazim se o vytisteni grafu pres SINEU.
V Nahledu a Editaci se mi graf zobrazi tak jak ma, ale kdyz ho dam tisknout,
na papire se mi vytiskne
pouze obrys grafu, bez krivek.
Zkousel jsem to i na prikladu pro GS Sinea2002 a dela mi to to same.
Zkousel jsem EXPORT do WMF a tam je graf taky jak ma.
Nevite kde delam chybu?
Win2000, HP Laser Jet 6L, Delphi 5