Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
GetDriveType()
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 22.10.2001 07:59:10
Zdravim vsechny!
Delam aplikaci, ktera by mela byt spustitelna primo z CD ROMu. Protoze
aplikace bezne cte a zapisuje na disk, tak jsem potreboval zdetekovat, ze
aplikace byla spustena z CD ROMu, a tim pak nasledne vsechny akce
souvisejici se zapisem na disk zablokovat.
V 1000 + 1 typech ... jsem nasel, ze se k tomu da pouzit funkce
GetDriveType().
Delam to takto:
if GetDriveType(TempDrive)=DRIVE_CDROM then
Z_CDRomu := True
else
Z_CDRomu := False;
Podle hodnoty Z_CDRomu blokuji nebo neblokuji zapis na disk.
Zajimave na tom celem je to, ze kdyz to zkompiluji na svem PC (D5 prof, NT
4.0 CZ) a pak vypalim na CD, tak na PC s WIN NT to spravne detekuju
(testovano na dvou PC, z toho na jednom nejsou Delphi), ale na WIN 98 ne.
Nevite prosim vas nekdo v cem muze byt "pes". Petre V. pomoz ...
Dik
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 67 85 999 , Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.298 / Virov� b�ze: 161 - datum vyd�n�: 13.11.2001
Interbase a diakritika
[*] Petr Hartman <petr.hartman(zv)medisoft(tec)cz> - 22.10.2001 08:15:13
----- Original Message -----
From: Pavel Cisar
> Hmm :) , pri kazdej instalaci inej verzie servru je to nutne, a je to uz
> davno co som to niekde zachytil, myslim ze v dokumentacii k IB :).
Ale houbeles. Backup/restore je nutny pouze pri zmene ODS, a to jeste pouze tehdy, kdyz je tak receno. Novejsi verze serveru typicky umi cist starsi ODS (a pripadne i upgradovat). Zkus si takhle upgradovat databazi ktera ma par set GB :) Bohuzel jak
Ahoj,
nevim, jak se chova posledni verze FB 1.0.0 RC1, ale u predchoz� verze FB 1.0.0.338 Beta2 musim potvrdit, ze po instalaci tohoto serveru a praci s databazi, vytvorenou pod IB 6.01 (bez backup/restore), se projevily stejne problemy, jako popisovali nekteri prede mnou (select s pouzitim "order by" podle jednoho pole vybral mnohem mene zaznamu, nez pri pouziti "order by" podle jineho pole). Faktem je, ze k naprave nebylo treba provadet backup/restore, ale stacilo deaktivovat a znovu aktivovat indexy.
S pozdravem
Petr Hartman
Interbase a diakritika
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 08:37:00
From: Pavel Cisar
>> btw: Tie neni nikde zarucene ze fyzicky skopirovana databaza (gdb subor)
>> bude spravne chodit pod / na inom PC ci OS.
>Na jinem OS zadna zaruka neni, to je pravda. Nicmene prenos gdb kopirovanim
je bezna vec a bezne funguje. Je fakt, ze >obcas ze objevi problemy, ale ty
se daji pricist na vrub ledascemu. Rozhodne neni pravda, ze takto se
databaze prenaset >neda.
Taky ze netvrdim ze sa takto gdb prenasat neda, pisal som ze nikde neni
zarucene jej spravne fungovanie! :-) Hop a vidis je to pravda.
>> Je to tym ze (minimalne) namapovanie stranok s indexami sa zmeni,
>> takze czdy za kazdych okolnosti robit backup/restore.
>A to uz ako ? Obsah gdb souboru se nijak nezmeni, a vse je ulozeno v
databazi, vcetne velikosti stranky. Odkazy na stranky >v ramci databaze jsou
relativni k pocatku souboru x velikost stranky.
To chces po mne hodne :)), zdrojky IB nemam cas studovat, ja myslel ze nam
to prezradis ty :). Ked to vysvetlim na zjednodusenom priklade (z praxe) tak
asi takto: Mam gdb a Server (FB), na Linuxu (RedHat). Na W2K mam FB tiez a
ked natvrdo zkopirujem gdb subor tak mi rozne operacie ako je omezovanie za
WHERE, triedenie a pod proste funguju divne alebo vobec. Takze pomoze bud
gdb prenasat pomocou backup/restore alebo na W2K databazu preindexovat.
Kakacka Pavol
KasiX(zv)atlas(tec)cz
GetDriveType()
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.10.2001 08:37:32
Taky by to slo zkontrolovat tak, ze se pokusis vytvorit nejaky soubor.
Pokud to projde, jsem na zapisovatelnem mediu, pokud ne, jsem na R/O
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.11.2001 Igor Vodi�ka:
> Zdravim vsechny!
> Delam aplikaci, ktera by mela byt spustitelna primo z CD ROMu. Protoze
> aplikace bezne cte a zapisuje na disk, tak jsem potreboval zdetekovat, ze
> aplikace byla spustena z CD ROMu, a tim pak nasledne vsechny akce
> souvisejici se zapisem na disk zablokovat.
> V 1000 + 1 typech ... jsem nasel, ze se k tomu da pouzit funkce
> GetDriveType().
> Delam to takto:
> if GetDriveType(TempDrive)=DRIVE_CDROM then
> Z_CDRomu := True
> else
> Z_CDRomu := False;
> Podle hodnoty Z_CDRomu blokuji nebo neblokuji zapis na disk.
> Zajimave na tom celem je to, ze kdyz to zkompiluji na svem PC (D5 prof, NT
> 4.0 CZ) a pak vypalim na CD, tak na PC s WIN NT to spravne detekuju
> (testovano na dvou PC, z toho na jednom nejsou Delphi), ale na WIN 98 ne.
> Nevite prosim vas nekdo v cem muze byt "pes". Petre V. pomoz ...
> Dik
> Ing. Igor Vodi�ka
> informa�n� syst�my
> Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
> Tel.: 069 67 85 999 , Fax: 069 357 758
> Mailto:vodicka(zv)sagit(tec)cz
> Http:\\www.sagit(tec)cz\> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.298 / Virov� b�ze: 161 - datum vyd�n�: 13.11.2001
ORACLE stlpce typu INT sa v BDE javia ako FLOAT
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 22.10.2001 08:57:50
Zkus v BDE nastavit ENABLE INTEGERS na TRUE
-----Original Message-----
Ahoj.
D5/6, BDE, ORACLE8
Mam tabulky ktore maju stlpce typu INT - napriklad OBJECTID INT
ci uz si zoberiem TQuery, alebo TClientDataSet (ktory na pozadi pouziva
TQuery)
- pre MS SQL sa mi namapuje field komponenta typu TIntegerField - co
ocakavam
- pre ORACLE sa mi namapuje field komponenta typu TFloatField - comu
rozumiem (kedze ORACLE ma len typ NUMBER a INT je synonymum pre NUMBER s
poctom desattinych miest 0 - ovsem ja by som chcel aby mi to mapovalo
TIntegerField - viete pomoct ?
A este poddotaz:
da sa ORACLE nastavit tak aby pri hladani v retazcovom poli bol defaultne
CASE-INSENSITIVE ?
povedzme pre celu tabulku - schemu - ci celu instalaciu - je mi to jedno -
len nech to ide a nemusim vsade davat UPPER(pole)
Vopred vdaka za pomoc.
Jan Grman
----------------------------------------
janog(zv)pluto.elf.stuba.sk
OT: Dbf -> wab
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 22.10.2001 09:10:52
Resim nasledujici problem. Mam svuj program pro spravu adres a potrebuju
nejakym zpusobem prevadet tato data z a do adresare Outlook Express. Nevite
nekdo jak na to?
D4, WinMeee, DBASE IV
GetDriveType()
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 22.10.2001 09:35:42
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Igor Vodi�ka
> Sent: Thursday, November 22, 2001 7:59 AM
> To: Delphi konference II (el. adresa)
> Subject: GetDriveType()
>
> Zdravim vsechny!
>
> Delam aplikaci, ktera by mela byt spustitelna primo z CD ROMu. Protoze
> aplikace bezne cte a zapisuje na disk, tak jsem potreboval
> zdetekovat, ze
> aplikace byla spustena z CD ROMu, a tim pak nasledne vsechny akce
> souvisejici se zapisem na disk zablokovat.
> V 1000 + 1 typech ... jsem nasel, ze se k tomu da pouzit funkce
> GetDriveType().
> Delam to takto:
> if GetDriveType(TempDrive)=DRIVE_CDROM then
> Z_CDRomu := True
> else
> Z_CDRomu := False;
> Podle hodnoty Z_CDRomu blokuji nebo neblokuji zapis na disk.
>
> Zajimave na tom celem je to, ze kdyz to zkompiluji na svem PC
> (D5 prof, NT
> 4.0 CZ) a pak vypalim na CD, tak na PC s WIN NT to spravne detekuju
> (testovano na dvou PC, z toho na jednom nejsou Delphi), ale
> na WIN 98 ne.
>
Doplnuji jeste svuj dotaz o zjisteni, ze fce GetDriveType() spravne vraci v
NT hodnotu 5 tedy DRIVE_CDROM, ale ve Win98 vraci hodnotu 1 coz je
DRIVE_NO_ROOT_DIR a to jak pri spusteni z CD tak i z normalniho HD.
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 67 85 999 , Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.298 / Virov� b�ze: 161 - datum vyd�n�: 13.11.2001
Dbf -> wab
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 09:47:56
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> Resim nasledujici problem. Mam svuj program pro spravu adres a potrebuju
> nejakym zpusobem prevadet tato data z a do adresare Outlook Express.
Nevite
> nekdo jak na to?
Viz. od P.Vonese "Windows Address Book API" na stranke
http://delphi-jedi.org/Jedi:APILIBRARY
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Ulozeni vysledku SQL dotazu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 22.10.2001 10:09:44
To co jsem psal o docasnych tabulkach funguje na MSSQL. IB neznam a tak
nevim.
> > vytvaret nove tabulky "za chodu" neni zrovna nejcistsi
> praktika. Technicky
> > menis databazove schema a to by melo byt staticke ! (je
> vysledkem analyzy
> > problemu).
>
> Jasne. Je to zvyk, leta delam v Pdoxu a slozitejsi problemy resim
> navazujicimi dotazy. Zatim si nedovedu predstavit, ze bych
> neco podobneho
> dokazal jednim SQL prikazem. Nekdy take vytvorim dotazem
> cosi, co uzivatel
> nejak modifikuje (a nemusi zmeny udelat hned, takze je
> vysledek potreba
> ulozit) a pak se to nejak spatky vkloubi do databaze.
Presne na to jsou docasne tabulky, skutecne existuji, ale nepatri do
schematu a pokud jsou vytvoreny uvnitr procedury sami se vymazi !
>
> > Format prikazu je:
> > SELECT (seznam sloupcu)
> > INTO [jmeno nove tabulky]
> > FROM (seznam tabulek)
> > .... standardni prikaz SELECT
>
> Znamena to tedy, ze docasnou tabulku muzu vytvorit treba takto:
>
> SELECT Faktura, Datum
> INTO #MYTEMP
> FROM Faktury
> SELECT Faktura, datum WHERE cosi ?
Ne, pouze takto (pro vytvareni trvale tabulky je to stejne):
SELECT Faktura, Datum
INTO #MYTEMP
FROM Faktury
WHERE cosi
>
> a dale s ni pracovat treba:
>
> ALTER TABLE #MYTEMP
> ALTER ADD NejakePole Integer;
Ano to jde (MS-SQL),ale musis mit na tempdb prislusna rights (coz je trochu
problem, nebot databaze se kazdym startem serveru vymaze a znovu zalozi).>
> To mi na IB nefunguje. Neni to zalezitost jenom MS SQL?
> Neni v IB nutne
> vytvorit predem cilovou tabulku a tuto explicitne mazat? Diky,
>
> Martin Burle
>
> Dbf -> wab
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 22.10.2001 10:10:08
Ahoj
na to se muze pouzit format vizitek VCARD podle RFC 2425
je to klasicke txt s nekolika TAGY a Outlook to umi na importovat.
Delphi 5 Prof Win 2000 SP2
Jaroslav KUBA
jarda(zv)tresoft(tec)cz
> Resim nasledujici problem. Mam svuj program pro spravu adres a potrebuju
> nejakym zpusobem prevadet tato data z a do adresare Outlook Express.
Nevite
> nekdo jak na to?
> D4, WinMeee, DBASE IV
GetDriveType()
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 22.10.2001 10:25:08
> Doplnuji jeste svuj dotaz o zjisteni, ze fce GetDriveType()
> spravne vraci v
> NT hodnotu 5 tedy DRIVE_CDROM, ale ve Win98 vraci hodnotu 1 coz je
> DRIVE_NO_ROOT_DIR a to jak pri spusteni z CD tak i z normalniho HD.
To je podozrive, davas tej funkcii spravny parameter? Vyzaduje to trailing
backslash, napr:
GetDriveType('E:\'); alebo
GetDriveType(PChar(ExtractFileDrive(Application.ExeName) + '\'));
DRIVE_NO_ROOT_DIR znamena, ze zadana cesta nie je platny root pre ziadny
drive v systeme.
TOndrej
Ulozena procedura a navratova hodnota
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 22.10.2001 10:29:45
Ahoj
Potreboval bych vedet zda lze u teto SP zjistit hodnotu RET_CODE
V Delphi mi to porad vraci 0 a melo by 80
Proceduru potrebuji volat pres IBX - komp. Stored Procedure
nebo to lze pouze pomoci IBQuery ap. ?
CREATE PROCEDURE INS_UPD_RET(
CISLO SMALLINT,
TEXT VARCHAR(40))
RETURNS (
RET_CODE SMALLINT)
AS
BEGIN
BEGIN
INSERT INTO TABLE1 (
CISLO,
TEXT
)
VALUES (
:CISLO,
:TEXT
);
END
RET_CODE=80;
END
S pozdravem Heinisch Jiri
ORACLE stlpce typu INT sa v BDE javia ako FLOAT
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 22.10.2001 10:34:57
> Zkus v BDE nastavit ENABLE INTEGERS na TRUE
To som skusil ako prve - nepomohlo a neviem preco !
JG
GetDriveType()
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 22.10.2001 10:43:35
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Ondrej Kelle
> Sent: Thursday, November 22, 2001 10:25 AM
> To: 'delphi-l(zv)clexpert(tec)cz'
> Subject: RE: GetDriveType()
>
> > Doplnuji jeste svuj dotaz o zjisteni, ze fce GetDriveType()
> > spravne vraci v
> > NT hodnotu 5 tedy DRIVE_CDROM, ale ve Win98 vraci hodnotu 1 coz je
> > DRIVE_NO_ROOT_DIR a to jak pri spusteni z CD tak i z normalniho HD.
>
> To je podozrive, davas tej funkcii spravny parameter?
> Vyzaduje to trailing
> backslash, napr:
> GetDriveType('E:\'); alebo
> GetDriveType(PChar(ExtractFileDrive(Application.ExeName) + '\'));
>
> DRIVE_NO_ROOT_DIR znamena, ze zadana cesta nie je platny root
> pre ziadny
> drive v systeme.
>
> TOndrej
>
Take jsem na to prisel, ze tam ten backslash musi byt. Zajimave na tom je ze
NTickam to nevadi reaguji spravne, i kdyz je parametr 'E:' nebo 'E:\', ale u
Win98 to musi byt 'E:\' .
Jinak vsem dekuji za snahu pomoct.
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 67 85 999 , Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.298 / Virov� b�ze: 161 - datum vyd�n�: 13.11.2001
Interbase a diakritika
[*] Milos Glosik <regard(zv)mail.eurotel.sk> - 22.10.2001 10:53:43
Samozrejme, pri instalacii databazu nekopirujem, ale vytvaram novu
spolu s uzivatelskymi uctami.
Ide mi vsak o to,ze ked aplikacia uz nejaky ten cas bezi, baza je plna
a vtedy sa niekto aktivny z akychkolvek pricin rozhodne prehodit server?
Ze je to nepravdepodobne, je slaba utecha, uz sa mi stalo tolko
nepravdepodobnych veci...
Asi teda hodim nejake upozornenie do manualu, ale chcel som iba
vediet ci existuje moznost zistit to z klienta.
Milos Glosik
>
> A co pri krabicovom softe spravit pri vytvoreni novej databazy, alebo po
> instalacii, obnovu z transportabilneho formatu a nie len fyzicka kopia
> prazdnej databazy ?
> Myslim ze by to bolo riesenie.
>
> R.Ako zistit Handle tlaciarne ?
[*] Slavom�r �eke# - 22.10.2001 10:57:30
Zdravim ... potreboval by som pomoct s nasledujucim problemom ...
chcem tlacit na tlaciaren priamo cez API funkcie, ale nedari sa mi
zistit hDC tlaciarne, dalej mam otazocku: Da sa v Delphi vypisat text
napriklad otoceny o 90 stupnov na monitor alebo tlaciaren ? PROSIIIIM JE
TO SURNE ... cafko
Slavo
Dbf -> wab
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 22.10.2001 10:59:41
Bohuzel to nejak nechapu. V demu se objevi hlaska Error reading
Splitter1.AutoSnap a pri kompilaci dema se pak vyhodi:
[Error] WabDemoMain.pas(772): Undeclared identifier:
'ExcludeTrailingBackslash'.
Bez toho dema sem namydleny. Ledaze by k tomu byl cesky navod.
> From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> > Resim nasledujici problem. Mam svuj program pro spravu adres a potrebuju
> > nejakym zpusobem prevadet tato data z a do adresare Outlook Express.
> Nevite
> > nekdo jak na to?
>
> Viz. od P.Vonese "Windows Address Book API" na stranke
> http://delphi-jedi.org/Jedi:APILIBRARY
>
> Kaka�ka Pavol
> KasiX(zv)atlas(tec)cz
>
>
>Dbf -> wab
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 22.10.2001 11:02:40
Jo, ale zkus importovat 2500 zaznamu ......... Nebo snad de do jedne vizitky
natahnout vice adres?
> Ahoj
> na to se muze pouzit format vizitek VCARD podle RFC 2425
> je to klasicke txt s nekolika TAGY a Outlook to umi na importovat.
>
> Delphi 5 Prof Win 2000 SP2
>
> Jaroslav KUBA
> jarda(zv)tresoft(tec)cz
>
>
> > Resim nasledujici problem. Mam svuj program pro spravu adres a potrebuju
> > nejakym zpusobem prevadet tato data z a do adresare Outlook Express.
> Nevite
> > nekdo jak na to?
> > D4, WinMeee, DBASE IV
>
>
>Interbase a diakritika
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 11:11:29
From: "Milos Glosik" <regard(zv)mail.eurotel.sk>
> Samozrejme, pri instalacii databazu nekopirujem, ale vytvaram novu
> spolu s uzivatelskymi uctami.
>
> Ide mi vsak o to,ze ked aplikacia uz nejaky ten cas bezi, baza je plna
> a vtedy sa niekto aktivny z akychkolvek pricin rozhodne prehodit server?
> Ze je to nepravdepodobne, je slaba utecha, uz sa mi stalo tolko
> nepravdepodobnych veci...
>
> Asi teda hodim nejake upozornenie do manualu, ale chcel som iba
> vediet ci existuje moznost zistit to z klienta.
Je mozne zistit verziu IB/FB a to si pamatovat a v pripade zmeny reagovat.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Ako zistit Handle tlaciarne ?
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 11:15:14
From: "Slavom�r #eke�" <cekel(zv)noves.sk>
> chcem tlacit na tlaciaren priamo cez API funkcie, ale nedari sa mi
> zistit hDC tlaciarne,
Pozri sa na "Printer.Handle" unita printers...
>dalej mam otazocku: Da sa v Delphi vypisat text
> napriklad otoceny o 90 stupnov na monitor alebo tlaciaren ? PROSIIIIM JE
> TO SURNE ... cafko
Bude to v archive konfery.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Interbase a diakritika
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 22.10.2001 11:19:37
Haj hou!
On 22 Nov 2001, at 8:37, Kakacka Pavol wrote:
> To chces po mne hodne :)), zdrojky IB nemam cas studovat, ja myslel ze nam
> to prezradis ty :). Ked to vysvetlim na zjednodusenom priklade (z praxe) tak
> asi takto: Mam gdb a Server (FB), na Linuxu (RedHat). Na W2K mam FB tiez a
> ked natvrdo zkopirujem gdb subor tak mi rozne operacie ako je omezovanie za
> WHERE, triedenie a pod proste funguju divne alebo vobec. Takze pomoze bud
> gdb prenasat pomocou backup/restore alebo na W2K databazu preindexovat.
To se nediv kdyz to prenasis mezi ruznymi OS. Sam jsi na to
upozornoval :) Tvoje puvodni formulace ale vyznela ze dochazi ke
zmene vazeb uvnitr databaze pri zmene verze serveru (upgrade)
nebo pri prenaseni mezi dvema servery na stejne platforme (coz
neni pravda). Struktura databaze muze byt na ruznych platformach
chapana jinak, ale to je z duvodu pouziti odlisnych formatu cisel
(signed, unsigned, 32{64-bit) ve file I/O, big- a little-endian apod.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Konverze BMP do JPG
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 22.10.2001 11:31:50
Jestli pouzivas unitu JPEG od Delphi, tak (alespon u D5 Pro) ta obsahuje
chybu, diky niz neulozis obrazky nad 1 MB; resp. nekdo kdysi psal, ze
nefunguji jen obrazky s velikosti v intervalu 1 - 2 MB.
Mne osobne se osvedcila knihovna IJL od Intelu - zdarma ke stazeni.
Karel Rys
Ji�� G�th dne 22 Nov 2001 v 9:35:
> Zdravim,
> vzpominam si, ze se tu kdysi nekdo ptal na konverzi z BMP do JPG v
> DELPHI. Nevim, zda-li je to jeste aktualni, ale protoze jsem to ted
> resil, posilam vysledek (ten je mezi carkama).
>
> S pozdravem
> Jiri Goth
> ----------------------------------------------------------------------
> ------ -------------------------------- uses ... JPEG, Graphics, ....;
>
> var Image: TImage;
> {---- metoda pro ulozeni do JPEG}
> JPEGImage: TJPEGImage;
> begin
> {---- puvodni bitmapa}
> Image:= TImage. Create( nil);
> Image. Picture. BitMap. LoadFromFile( puv_FileName);
>
> {---- ulozeni JPG}
> JPEGImage:= TJPEGImage. Create;
> if CompQuality<> 0 then
> JPEGImage. CompressionQuality:= CompQuality;
> JPEGImage. Assign( Image. Picture. BitMap);
> JPEGImage. SaveToFile( nov_FileName);
> JPEGImage. Free;
> {---- zruseni bitmapy}
> Image. Free;
> ----------------------------------------------------------------------
> ------ --------------------------------
>
>
Interbase a diakritika
[*] Rado Benc <bego(zv)pobox.sk> - 22.10.2001 11:38:53
Ahoj
> Ide mi vsak o to,ze ked aplikacia uz nejaky ten cas bezi, baza je plna
> a vtedy sa niekto aktivny z akychkolvek pricin rozhodne prehodit server?
> Ze je to nepravdepodobne, je slaba utecha, uz sa mi stalo tolko
> nepravdepodobnych veci...
>
> Asi teda hodim nejake upozornenie do manualu, ale chcel som iba
> vediet ci existuje moznost zistit to z klienta.
Mozes napriklad pri instalacii a generovani databazy zistit verziu IB/FB
servra cez InterBase API, apod (napr. WI-T6.2.567 Firebird RC1) a ulozit
ju niekde do tabulky v databaze. Pri kazdom spusteni aplikacie to mozes
skontrolovat a podla vysledku sa zariadit. Ja mam napriklad tabulku v
ktorej su konfiguracne udaje pre celu serverovu cast aplikacie typu
name - value:
/* Domain definitions */
CREATE DOMAIN "D_STRINGID" AS VARCHAR(60) CHARACTER SET UNICODE_FSS NOT
NULL;
/* Table: CONFIG, Owner: SYSDBA */
CREATE TABLE "CONFIG"
(
"CONFIG_NAME" "D_STRINGID",
"CONFIG_VALUE" "D_STRINGID",
PRIMARY KEY ("CONFIG_NAME")
);
Mam tam aj verziu, s ktorou bola databaza generovana.
HTH,
Rado
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Interbase a diakritika
[*] Karel B�ich��� - 22.10.2001 11:38:56
Ahoj,
tento problem je pravdepodobne dan tim, ze je do FB pridana podpora trideni
ceskeho CH u PXW_CSY. U vsech dotazu, ktere pouzivaji indexy nad poli s
tridenim PXW_CSY, nastanou potize, pokud se prejde z IB/FB 9.4 a mensi na
nekterou z vyssich verzi FB bez rebuildu indexu.
S pozdravem
Karel Brichnac
> > Hmm :) , pri kazdej instalaci inej verzie servru je to nutne, a je to uz
> > davno co som to niekde zachytil, myslim ze v dokumentacii k IB :).
> Ale houbeles. Backup/restore je nutny pouze pri zmene ODS, a to jeste
pouze tehdy, kdyz je tak receno. Novejsi verze serveru typicky umi cist
starsi ODS (a pripadne iupgradovat). Zkus si takhle upgradovat databazi
ktera ma par set GB :) Bohuzel jak
> Ahoj,
> nevim, jak se chova posledni verze FB 1.0.0 RC1, ale u predchoz� verze
FB 1.0.0.338 Beta2 musim potvrdit, ze po instalaci tohoto serveru a praci s
databazi, vytvorenou pod IB 6.01 (bez backup/restore), se projevily stejne
problemy, jako popisovali nekteri prede mnou (select s pouzitim "order by"
podle jednoho pole vybral mnohem mene zaznamu, nez pri pouziti "order by"
podle jineho pole). Faktem je, ze k naprave nebylo treba provadet back
up/restore, ale stacilo deaktivovat a znovu aktivovat indexy.Ako zistit Handle tlaciarne ?
[*] Slavom�r �eke# - 22.10.2001 11:43:28
>dalej mam otazocku: Da sa v Delphi vypisat text
> napriklad otoceny o 90 stupnov na monitor alebo tlaciaren ? PROSIIIIM
JE
> TO SURNE ... cafko
Bude to v archive konfery.
Nevies, kedy zhruba sa o tom pisalo ... je tam toho dost ...
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Zachrana dat
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 22.10.2001 11:55:54
Ahoj
UnDelete v2.0 for winNT/2000 od Executive Software International, Inc.
Zatim 100 % uspesnost obnovy
S pozdravem Heinisch Jiri
> Ahoj Delphi,
>
> Pri vymene disku a psych. tlaku od svojej manzelky (aby som sa siel
najest)
> som omylom vymazal zo stareho disku svoje aktualne data. Pre istotu som
ich
> vymazal aj z kosa. Tuto skutocnost som si uvedomil dost neskoro. -((.
Viete
> mi poradit ako ich dostanem naspat aj s adresarmi ?. System :
> WIN2000PROFESIONAL. Obsahuje WIN nejaky nastroj na to, alebo aspom
existuje
> nieco, co sa da normalne zohnat?
> P.S. : Prosim SURNE, cakam pri pocitaci na vasu pomoc.
>
> Dakujem Fabik
>
>Interbase a diakritika
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 12:27:46
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> To se nediv kdyz to prenasis mezi ruznymi OS. Sam jsi na to
> upozornoval :) Tvoje puvodni formulace ale vyznela ze dochazi ke
> zmene vazeb uvnitr databaze pri zmene verze serveru (upgrade)
> nebo pri prenaseni mezi dvema servery na stejne platforme (coz
> neni pravda). Struktura databaze muze byt na ruznych platformach
> chapana jinak, ale to je z duvodu pouziti odlisnych formatu cisel
> (signed, unsigned, 32{64-bit) ve file I/O, big- a little-endian apod.
:)) Mno hedat sa fakt nechcem, Ty si guru. Na to aby som poslal konkretny
priklad fakt nemam cas, aspon nie do 1.1.03 ;-)) ale urcite sa mi (nam) to
stalo aj na jednej platforme pri vymene servru (nevylucujem ze to bolo pri
zmene ODS), ale to mozme prebrat inokedy (steak :))
Hlavna vec ze tazatelovy to problem vyriesilo.
S priatelskym pozdravom
Kakacka Pavol
KasiX(zv)atlas(tec)cz
ODA 3, MS Access a triedenie
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 22.10.2001 12:31:57
Ahoj,
Opus Direct Access 3 neznam, ale nestacilo by u Access databaze nastavit
ceske trideni.
Petr
----- Original Message -----
From: "Ivan Zernovac" <izernovac(zv)yahoo.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 21, 2001 7:16 AM
Subject: ODA 3, MS Access a triedenie
> Zdravim,
>
> pouzivam Opus Direct Access 3 a MS Access 97. Ked
> oindexujem pole v snahe o abecedne triedenie, slova
> zacinajuce sa na Z (teda Z s makcenom) sa vzdy dostanu
> na zaciatok vsetkeho, dokonca este pred pismeno A.
>
> Nemam cas sa v tom sprtat, vie niekto pomoct?
>
> -I
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
> http://geocities.yahoo.com/ps/info1
>Konverze BMP do JPG
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 12:32:20
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> Jestli pouzivas unitu JPEG od Delphi, tak (alespon u D5 Pro) ta obsahuje
> chybu, diky niz neulozis obrazky nad 1 MB; resp. nekdo kdysi psal, ze
> nefunguji jen obrazky s velikosti v intervalu 1 - 2 MB.
Ahoj,
k tomu jen poznamka, tahle chyba je opravena v Delphi 6.
Petr Vones
Dbf -> wab
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 22.10.2001 12:32:28
Dobry den
Prohledl jsem si WAB.API a je to velmi dobra vec, ktera by se mi hodila, ale
nevim jak programove
vytvorit nove kontakty a vygenerovat WAB soubor, nepotrebuji je prohlizet
ale vytvaret, urcite nekdo resil
neco podobneho.
Dik za radu.
Delphi 5 Prof Win 2000 SP2
Jaroslav KUBA
jarda(zv)tresoft(tec)cz
----- Original Message -----
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 22, 2001 10:59 AM
Subject: Re: Dbf -> wab
> Bohuzel to nejak nechapu. V demu se objevi hlaska Error reading
> Splitter1.AutoSnap a pri kompilaci dema se pak vyhodi:
> [Error] WabDemoMain.pas(772): Undeclared identifier:
> 'ExcludeTrailingBackslash'.
> Bez toho dema sem namydleny. Ledaze by k tomu byl cesky navod.
>
> > From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> > > Resim nasledujici problem. Mam svuj program pro spravu adres a
potrebuju
> > > nejakym zpusobem prevadet tato data z a do adresare Outlook Express.
> > Nevite
> > > nekdo jak na to?
> >
> > Viz. od P.Vonese "Windows Address Book API" na stranke
> > http://delphi-jedi.org/Jedi:APILIBRARY
> >
> > Kaka�ka Pavol
> > KasiX(zv)atlas(tec)cz
> >
> >
> >
>
>
RxMemoryData-MasterDetail
[*] Str�n�k Franti�ek - 22.10.2001 12:33:48
Pratele,jeste jednou
nevite nekdo o komponente
typu RxMemoryData podporujici Master-Detail (vlastnost MasterSource) ?
(komponta musi pracovat pouze v pameti)
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
Dbf -> wab
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 22.10.2001 12:34:36
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> Bohuzel to nejak nechapu. V demu se objevi hlaska Error reading
> Splitter1.AutoSnap a pri kompilaci dema se pak vyhodi:
> [Error] WabDemoMain.pas(772): Undeclared identifier:
> 'ExcludeTrailingBackslash'.
> Bez toho dema sem namydleny. Ledaze by k tomu byl cesky navod.
Neviem kde je problem, mne to DEMO chodi jak ma na konfiguraci: W2K, D5E
SP1, OE5.5
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Dbf -> wab
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2001 12:35:38
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> Bohuzel to nejak nechapu. V demu se objevi hlaska Error reading
> Splitter1.AutoSnap a pri kompilaci dema se pak vyhodi:
> [Error] WabDemoMain.pas(772): Undeclared identifier:
> 'ExcludeTrailingBackslash'.
> Bez toho dema sem namydleny. Ledaze by k tomu byl cesky navod.
Ahoj,
patrne to prekladas v Delphi 4. Prvni chyby se zbavis tak, ze formular
oteveres v navrhu a das Ingore All v dialogu, ExcludeTrailingBackslash
odstranuje koncovy backslash z nazvu adresare.
Petr Vones
Ako zistit Handle tlaciarne ?
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 22.10.2001 12:36:08
> >dalej mam otazocku: Da sa v Delphi vypisat text
> > napriklad otoceny o 90 stupnov na monitor alebo tlaciaren
zmeni orientaci pisma ve fontu (po kazde zmene fontu je potreba udelat to
znovu) orient=desetiny stupne
procedure SetOrientation (font : tFont; orient : longint);
var lf : TLogFont;
begin
lf.lfHeight :=font.Height;
lf.lfHeight :=font.Height;
lf.lfWidth :=0;
lf.lfEscapement :=orient;
lf.lfOrientation:=orient;
if (fsBold in font.Style)
then lf.lfWeight:=FW_BOLD
else lf.lfWeight:=FW_NORMAL;
lf.lfItalic :=byte(fsItalic in font.Style);
lf.lfUnderline:=byte(fsUnderline in font.Style);
lf.lfStrikeOut:=byte(fsStrikeOut in font.Style);
lf.lfCharSet :=byte(font.Charset);
if (AnsiCompareText (font.Name,'Default')=0)
then StrPCopy (lf.lfFaceName,DefFontData.Name)
else StrPCopy (lf.lfFaceName,font.Name);
lf.lfQuality :=DEFAULT_QUALITY;
lf.lfOutPrecision :=OUT_DEFAULT_PRECIS;
lf.lfClipPrecision:=CLIP_DEFAULT_PRECIS;
case font.Pitch of
fpVariable : lf.lfPitchAndFamily:=VARIABLE_PITCH;
fpFixed : lf.lfPitchAndFamily:=FIXED_PITCH;
else lf.lfPitchAndFamily:=DEFAULT_PITCH;
end;
font.Handle:=CreateFontIndirect (lf);
end;
Dbf -> wab
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 22.10.2001 12:45:20
No to nejde.
----- Original Message -----
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 22, 2001 11:02 AM
Subject: Re: Dbf -> wab
> Jo, ale zkus importovat 2500 zaznamu ......... Nebo snad de do jedne
vizitky
> natahnout vice adres?
>
> > Ahoj
> > na to se muze pouzit format vizitek VCARD podle RFC 2425
> > je to klasicke txt s nekolika TAGY a Outlook to umi na importovat.
> >
> > Delphi 5 Prof Win 2000 SP2
> >
> > Jaroslav KUBA
> > jarda(zv)tresoft(tec)cz
> >
> >
> >
> > > Resim nasledujici problem. Mam svuj program pro spravu adres a
potrebuju
> > > nejakym zpusobem prevadet tato data z a do adresare Outlook Express.
> > Nevite
> > > nekdo jak na to?
> > > D4, WinMeee, DBASE IV
> >
> >
> >
> >
>
>
Ako zistit Handle tlaciarne ?
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 22.10.2001 13:18:10
| >dalej mam otazocku: Da sa v Delphi vypisat text
| > napriklad otoceny o 90 stupnov na monitor alebo tlaciaren ? PROSIIIIM JE
| > TO SURNE ... cafko
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do begin
Font.Name := 'Arial';
Font.Size := 24;
tf := TFont.Create;
try
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), (zv)lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
finally
tf.Free;
end;
TextOut(20, Height div 2, 'Rotated Text!');
end;
end;
Zdar,
Mirek
RxMemoryData-MasterDetail
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 22.10.2001 13:39:44
> Pratele,jeste jednou
> nevite nekdo o komponente
> typu RxMemoryData podporujici Master-Detail (vlastnost
> MasterSource) ?
> (komponta musi pracovat pouze v pameti)
TClientDataSet
HTH
TOndrej
TNMHTTP a post
[*] Jirka Fejfar <fejfarj(zv)atlas(tec)cz> - 22.10.2001 14:10:36
ahoj vsem ...
pouzivam komponentu TNMHTTP, ale nedari se mi provest post
priklad :
NMHTTP1.Post('http://localhost:8080/RPT/doReport.jsp','rptId=jmeno' );
v tom "doReport.jsp" si vypisuju parametr rptId a je prazdny ...
pokud to udelam prez form v html, vse funguje OK ... nevite nekdo co je tu
za
problem ...?
u komponenty TIdHTTP mi to dela to samy ...
dik jirka ...
Dbf -> wab
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 22.10.2001 14:12:04
Jo, ted uz to chapu, ale stejne to cele neresi ten muj problem, a to prevod
dbf na wab a opacne, respektive sem z toho nic nevycetl...
> From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> > Bohuzel to nejak nechapu. V demu se objevi hlaska Error reading
> > Splitter1.AutoSnap a pri kompilaci dema se pak vyhodi:
> > [Error] WabDemoMain.pas(772): Undeclared identifier:
> > 'ExcludeTrailingBackslash'.
> > Bez toho dema sem namydleny. Ledaze by k tomu byl cesky navod.
>
> Ahoj,
>
> patrne to prekladas v Delphi 4. Prvni chyby se zbavis tak, ze formular
> oteveres v navrhu a das Ingore All v dialogu, ExcludeTrailingBackslash
> odstranuje koncovy backslash z nazvu adresare.
>
> Petr Vones
>GetDriveType()
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 22.10.2001 14:32:13
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Igor Vodi�ka
Ahoj,
> Jinak vsem dekuji za snahu pomoct.
Jenom bych rad pridal, ze pokud nekdo
pouzije CD ze site tak je lepe
testovat to pokusem o zapis, protoze %SUBJ%
to nezjisti. V mem pripade
slo i o to, ze je aplikace nainstalovana
na serveru, kde mam pravo jen cist, takze
obdoba CDcka:).
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Dlha odozva na select s klauzulou MAX
[*] R�bert Sak - 22.10.2001 15:14:07
Myslim si, ze select mas spravny, ale musis naindexovat tabulky resp.tabulku
B stlpec DATUM.
Testoval som to, s indexom je to rychle.
S pozdravom
Robert Sak
Magion system a.s. tel./fax :0657/614 289
Jiraskova 1284 e-mail: robert.sak(zv)magion(tec)cz
755 01 Vsetin www: http://www.magion(tec)cz
----- Original Message -----
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 14, 2001 1:14 PM
Subject: Dlha odozva na select s klauzulou MAX
> Ahoj,
>
> potrebujem v Informixe urobit select z dvoch tabuliek
> (A, B), ktore su spojene cez ID.
>
> Problem je, ze v tabulke B, moze byt viacero
> zaznamov k danemu ID, mna vsak zaujima le ten
> posledny (podla polozky DATUM).
>
> Skusal som:
>
> 1. jednoduchy select:
> ---------------------
>
> select
> A.MENO, A.PRIEZVISKO, max(B.DATUM)
> from
> A, B
> where
> A.ID=B.ID
> group by
> A.MENO,
> B.PRIEZVISKO
>
> Mimochodom, informix vzdy trval na pouziti group by pre obidve
> polozky, t.j. meno aj priezvisko, hoci ja uvedene groupovanie
> nepotrebujem.
>
> 2. Potom som este skusal vnoreny select
> ---------------------------------------
>
> select
> A.MENO, A.PRIEZVISKO, B.DATUM
> from
> A, B
> where
> B.DATUM = select ( max(DATUM) from B where A.ID=B.ID )
>
> Obidva dotazy trvali neumerne dlho.
> Existuje este nejaka ina "pruznejsia" moznost?
>
> Vlkovic
>Delphi 2002
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 22.10.2001 16:05:54
Vazeni pratele,
pred mesicem jsem ohlasil seminar Delphi 2002,
dnes mame 50 prihlasenych.
Temata a osnovy prispevku se zacinaji rysovat.
K dnesnimu dni 10 prednasek.
Pokud mohu prostrednictvim konference poprosit
(to neni OT, naopak snaha o rekapitulaci casto diskutovanych problemu)
1. "Zn�m� chyby a probl�my v Delphi 6"
Rada veci se tady v konferenci diskutovala.
Prosim, poslete na muj soukromy mail strucne prispevky k tomuto tematu.
Ja se to pokusim shrnout a v prehledne forme to vratim do konference.
Prispevku na seminar se v nejhorsim ujmu sam.
2. Delphi 6/Kylix, VCL/CLX, Windows/Linux
Take mnohokrat diskutovane tema.
Prosim, zkuste se toho nekdo ujmout.
Na to ja nemam, protoze Linux (zatim) nedelam.
Diky
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Ako zistit Handle tlaciarne ?
[*] Macecek Marcel <marcel.macecek(zv)at.siemens(tec)cz> - 22.10.2001 16:50:18
Nevim proc, ale mi to na Form vypise sikmo a na tiskarne vodorovne.
-----Original Message-----
From: Mirek Junek [mailto:mirek.junek(zv)worldonline(tec)cz]
Sent: Thursday, November 22, 2001 1:18 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Ako zistit Handle tlaciarne ?
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do begin
Font.Name := 'Arial';
Font.Size := 24;
tf := TFont.Create;
try
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), (zv)lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
finally
tf.Free;
end;
TextOut(20, Height div 2, 'Rotated Text!');
end;
end;
Zdar,
Mirek
SQL Server - pripojeni klienta k databazi pres int
[*] JIM Design <jim.design(zv)iol(tec)cz> - 22.10.2001 16:53:53
ahoj,
musis nejakym zpusobem ziskat IP adresu pocitace na kterem bezi SQL server
(treba pres nejakou centralni webstranku,poslanim mailu klientovi apod.) a
zadat ji v klientovi v conn stringu do polozky Data Source=ta_ip.
K tomu aby to fungovalo rovnez potrebujes zadat IP adresu v
windows/system/cliconf.exe
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Martin Pavera
Zdravim,
potrebuji poradit s nasledujicim problemem. Omlouvam se predem, jestli jste
ho uz tady resili...
Mam pocitac, na kterem je nainstalovan MS SQL Server 2000, server
telefonckeho pripojeni a ISDN modem. Jak se pripojit k serveru klientskou
aplikaci (naprogramovanou v D5prof) pomoci ADONISu (ver 4.1) z jineho
pocitace (server telefonckeho pripojeni a ISDN modem) pres internet ?
Pocitace nejsou v lokalni siti. Kde se v adonisu pise IP adresa - do nazvu
serveru ? Jak zjistim IP adresu SQL Serveru ?
SELECT po vysecich - prochazeni po nekolika zaznam
[*] JIM Design <jim.design(zv)iol(tec)cz> - 22.10.2001 17:39:23
Ahoj,
delam webportal a potreboval bych poradit jak osetrit zobrazeni pouze
urciteho poctu zaznamu, treba tak jak to ma seznam(tec)cz (1-19;20-39;...)
zatim me napada pouze vybrat vsechny zaznamy a posunout se na prislusnou
skupinu pomoci MoveNext (treba pro zaznamy 30-39 by to bylo 29 MoveNext) a
to me nepripada prilis koser, protoze bych tim zatizil OLE-DB/ADO jako
kdybych to zobrazoval vsechno.
Predem diky za odpovedi.
M.Jirman
P.S: delam to pod MSSQL7>OLEDB+ADO>ASP(JScript)LPT pres CreateFile
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 22.10.2001 18:31:56
Dobry vecer,
zajimalo by me, zda kdyz
CreateFile('COM1'....) otevre seriovku, tak
jestli nekdo nepouzil konstrukci
CreateFile('LPT1'.....) pro otevreni paralelniho portu.
Podle odkazu by to melo byt povolene jmeno.
Ale jake data se tam daji pak cpat a jak se to da konfigurovat
(jestli vubec to jde).
Ma s tim nekdo zkusenosti?
Nebo jak jinak pouzit LPT tak, aby se mi do toho
nikdo jiny nemohl priplest? (driver pro zapis na porty pod NT)
Radek
-----
Nov� vyhled�va� pro �esk� internet www.webfast(tec)cz - prost� najde ...DataStream
[*] <bejcek(zv)centrum(tec)cz> - 22.10.2001 18:40:06
Ahoj kluci,mam tucha,ze jde nejak jednoduse cist a zapisovat do
streamu,zatim jsem je nepouzival a tak se ptam,
mam data formatu
XXX[mezirky]XXX[mezirky]
XXX[mezirky]XXX[mezirky]
a potreboval bych je rozhazet do gridu,muzete me trochu nakopnout?
Ja to vlastne funguje,abych byl presnejsi mam dataStream a nikdy
nevim kolik bude mezirek,ale vzdy tam nejaka bude mrska:-)))
Diky
Aldik Pavel
D5 Ent W2000
-----
U�ite�n� informace pro v�no�n� pohodu
http://vanoce.centrum(tec)cz
Print Log
[*] Ronnie Katona <cbuilder(zv)centrum.sk> - 22.10.2001 19:43:06
zdravim ..
neviete niekto ako by som mal ist na program, ktory by logoval (
v zmysle zaznamenaval do suboru ) nazvy dokumentov (a cestu k
nim) ktore sa tlacia na tlaciarni . pripadne neexistuje uz na to
nejaky soft ?
s pozdravom ronnie katona
K chatovaniu je tu http://www.XChat.sk
Zalo�te si svoj mail na http://mail.centrum.sk
nechci blik�n� formu
[*] bleak <bleak(zv)atlas(tec)cz> - 22.10.2001 21:28:13
zdrav�m,
m�m ud�lanou stm�va�ku, form1.color se m�n� od $FFFFFF do $000000, je tam
sleep(100) a processmessages. form p�i tom pon�kud poblik�v�. jak tomu
zamezit?
bleak
P.S. jestli mi n�kdo nap��e, a� to hled�m v archivu, tak z toho budu m�t
trauma ;-)
Ulozeni vysledku SQL dotazu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 22.10.2001 23:34:27
>Ale to je nejak spatne.
>Predevsim v dobre navrzene (relacni) databazi by mel byt jakykoli (relacni)
dotaz uskutecnitelny >prikazem SELECT.
>Pak jsou tu taky VIEW jako jakesi "virtualni" tabulky.
>Za treti tu mame ulozene procedury, ktere vrati i "nerelacni" pozadavky na
data.
>Databaze je modelem realneho sveta.
>Tabulky by se mely pridavat pouze tehdy, kdyz se realny svet (nebo nas
modelovy pohled na nej) >zmeni.
Ahoj,
to beru, urcite to tak bude v ucetnictvi, nejake personalistice a podobne.
No jo, ale napada mne takovahle situace, nastinim zjednodusene:
Mejme databazi receptur pokrmu, sklad surovin a denni seznam prodanych
polozek, z nichz jen nektere jsou receptury. Nyni potrebujeme sestavit sumar
spotrebovanych surovin, z nich nektere jsou ovsem vlastne polotovary a maji
vlastni recepturu skladajici se ze zakladnich surovin (musi se roznormovat).
Vysledek se pak odecita ze stavu surovin, zapis pohybu do skladovych karet.
Tohle jednim dotazem neumim / asi by to chtelo nejake skoleni :-))) /. Mozna
ulozene procedury a nejaka pole v pameti?.
Nicmene, kdyz uz jsme u toho , umi tedy IB docasne tabulky, nebo ne?
Diky,
Martin Burle
SELECT po vysecich - prochazeni po nekolika zaznam
[*] Erik Salaj <winsoft(zv)stonline.sk> - 23.10.2001 00:18:42
> delam webportal a potreboval bych poradit jak osetrit zobrazeni pouze
> urciteho poctu zaznamu, treba tak jak to ma seznam(tec)cz (1-19;20-39;...)
>
> zatim me napada pouze vybrat vsechny zaznamy a posunout se na prislusnou
> skupinu pomoci MoveNext (treba pro zaznamy 30-39 by to bylo 29 MoveNext) a
> to me nepripada prilis koser, protoze bych tim zatizil OLE-DB/ADO jako
> kdybych to zobrazoval vsechno.
ADO obsahuje na podporu web stranovania AbsolutePage, PageCount a PageSize
properties.
Erik
DataStream
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 23.10.2001 05:44:43
Stream si predstav jako velmi dlouhy retezec.
Budes jej muset v cyklu prochazet. Pokud narazis na mezeru znamena to
dalsi pole. Pak prochazis dal az na znak, ktery neni mezera.
Pokud narazis na #13 nebo #10, znamena to dalsi radek.
Pokud to ovsem neni primo stream v nejakem formatu, ktery tvuj grid
umi primo nacist.
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.11.2001 bejcek(zv)centrum(tec)cz:
> Ahoj kluci,mam tucha,ze jde nejak jednoduse cist a zapisovat do
> streamu,zatim jsem je nepouzival a tak se ptam,
> mam data formatu
> XXX[mezirky]XXX[mezirky]
> XXX[mezirky]XXX[mezirky]
> a potreboval bych je rozhazet do gridu,muzete me trochu nakopnout?
> Ja to vlastne funguje,abych byl presnejsi mam dataStream a nikdy
> nevim kolik bude mezirek,ale vzdy tam nejaka bude mrska:-)))
> Diky
> Aldik Pavel
> D5 Ent W2000
> -----
> U�ite�n� informace pro v�no�n� pohodu
> http://vanoce.centrum(tec)cz Ulozena procedura a navratova hodnota
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 23.10.2001 06:40:30
Takove procedury (ktere vraceji nejake vysledky) se musi volat pres select
.... napr. select INS_UPD_RET (1. "text") a po vykonani je ve sloupci
RET_CODE vysledek.
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
> Ahoj
>
> Potreboval bych vedet zda lze u teto SP zjistit hodnotu RET_CODE
> V Delphi mi to porad vraci 0 a melo by 80
>
> Proceduru potrebuji volat pres IBX - komp. Stored Procedure
> nebo to lze pouze pomoci IBQuery ap. ?
>
> CREATE PROCEDURE INS_UPD_RET(
> CISLO SMALLINT,
> TEXT VARCHAR(40))
> RETURNS (
> RET_CODE SMALLINT)
> AS
> BEGIN
> BEGIN
> INSERT INTO TABLE1 (
> CISLO,
> TEXT
> )
> VALUES (
> :CISLO,
> :TEXT
> );
> END
> RET_CODE=80;
> END
>
>
> S pozdravem Heinisch Jiri
Ako zistit Handle tlaciarne ?
[*] Slavom�r �eke# - 23.10.2001 07:12:45
Nevim proc, ale mi to na Form vypise sikmo a na tiskarne vodorovne.
Mozem potvrdit ... to iste mi to robi ... Tos chuapi pome sa s tym
popasovat ...
Slavo
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do begin
Font.Name := 'Arial';
Font.Size := 24;
tf := TFont.Create;
try
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), (zv)lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
finally
tf.Free;
end;
TextOut(20, Height div 2, 'Rotated Text!');
end;
end;
Zdar,
Mirek
CGI Aplikacia
[*] Slavom�r �eke# - 23.10.2001 07:57:26
Zdravim ...
chcel by som Vas poprosit o zaslanie nejakeho jednoducheho zdrojaku CGI
aplikacie, v CGI som NIKDY nic nerobil a rad by som zacal, a najlepsie
sa uci na funkcnom jednoduchom priklade .... prosim, ak niekto cosi take
mate poslite mi to ... vdaka :)
Slavo
Ulozena procedura a navratova hodnota
[*] Richard Kejval <kejval.delphi(zv)atlas(tec)cz> - 23.10.2001 08:04:35
> Ahoj
>
> Potreboval bych vedet zda lze u teto SP zjistit hodnotu RET_CODE
> V Delphi mi to porad vraci 0 a melo by 80
Zkus pridat na konec procedury Suspend. Z Delphi to samozrejme muzes volat i
pomoci stored procedure. Select na proceduru se pouziva spise, kdyz
procedura vraci vice radku.Tlacenie textu na tlaciaren s nejakym sklonom
[*] Slavom�r �eke# - 23.10.2001 08:08:58
Zdravim ....
prosim o pomoc, mame taky problem, ktory ste si uz tuna mozno vsimli.
Nasledujuci kod vykresli text pod urcitym uhlom na Form.
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do begin
Font.Name := 'Arial';
Font.Size := 24;
tf := TFont.Create;
try
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), (zv)lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
finally
tf.Free;
end;
TextOut(20, Height div 2, 'Rotated Text!');
end;
end;
Problem vsak je, ak to chcem vykreslit na tlaciarni, nasledujuci kod
totiz nefunguje. Kde mam chybu ?
procedure TForm1.Button3Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Printer.Canvas do begin
Font.Name := 'Arial';
Font.Size := 24;
tf := TFont.Create;
try
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), (zv)lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
finally
tf.Free;
end;
end;
Printer.BeginDoc;
Printer.Canvas.TextOut(50, 180, 'Rotated Text!');
Printer.EndDoc;
end;Ulozeni vysledku SQL dotazu
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 23.10.2001 08:18:01
1. InterBase docasne tabulky neumi
2. Pokud chces odepisovat ty suroviny dle receptu, pak se prece
jedna o klasickou recurzi a tu ulozene procedury zvladaji velmi
dobre. Sam takto odepisuji polozky ze skladu, vcetne kusovniku a
funguje to dobre.
> >Ale to je nejak spatne.
> >Predevsim v dobre navrzene (relacni) databazi by mel byt jakykoli (relacni)
> dotaz uskutecnitelny >prikazem SELECT.
> >Pak jsou tu taky VIEW jako jakesi "virtualni" tabulky.
> >Za treti tu mame ulozene procedury, ktere vrati i "nerelacni" pozadavky na
> data.
> >Databaze je modelem realneho sveta.
> >Tabulky by se mely pridavat pouze tehdy, kdyz se realny svet (nebo nas
> modelovy pohled na nej) >zmeni.
>
> Ahoj,
>
> to beru, urcite to tak bude v ucetnictvi, nejake personalistice a podobne.
> No jo, ale napada mne takovahle situace, nastinim zjednodusene:
>
> Mejme databazi receptur pokrmu, sklad surovin a denni seznam prodanych
> polozek, z nichz jen nektere jsou receptury. Nyni potrebujeme sestavit sumar
> spotrebovanych surovin, z nich nektere jsou ovsem vlastne polotovary a maji
> vlastni recepturu skladajici se ze zakladnich surovin (musi se roznormovat).
> Vysledek se pak odecita ze stavu surovin, zapis pohybu do skladovych karet.
> Tohle jednim dotazem neumim / asi by to chtelo nejake skoleni :-))) /. Mozna
> ulozene procedury a nejaka pole v pameti?.
>
> Nicmene, kdyz uz jsme u toho , umi tedy IB docasne tabulky, nebo ne?
>
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
Tlacenie textu na tlaciaren s nejakym sklonom
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 23.10.2001 08:57:02
> From: Slavom�r #eke�
>
>
> Problem vsak je, ak to chcem vykreslit na tlaciarni, nasledujuci kod
> totiz nefunguje. Kde mam chybu ?
>
> procedure TForm1.Button3Click(Sender: TObject);
> var
> lf : TLogFont;
> tf : TFont;
> begin
> with Printer.Canvas do begin
> Font.Name := 'Arial';
> Font.Size := 24;
> tf := TFont.Create;
> try
> tf.Assign(Font);
> GetObject(tf.Handle, sizeof(lf), (zv)lf);
> lf.lfEscapement := 450;
> lf.lfOrientation := 450;
> tf.Handle := CreateFontIndirect(lf);
> Font.Assign(tf);
> finally
> tf.Free;
> end;
> end;
> Printer.BeginDoc;
> Printer.Canvas.TextOut(50, 180, 'Rotated Text!');
> Printer.EndDoc;
>
> end;
>
To Printer.BeginDoc musis dat na zacatek procedury,
drive nez zacnes manipulovat s Printer.Canvas.
Vaclav Krmela
D5, ent. a Language
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 23.10.2001 09:13:42
Ako sa da prepinat jazyk za behu programu a ako sa da zistit aktivny jazyk?
Vdaka za kazdu radu.IB, current_timestamp, jak to vlastne je
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 23.10.2001 09:36:40
pratele,
mam ulozenou proceduru na IB, ktera resi import dat z textaku. Protoze si
chci ulozit take statistiku jednotlivych importu a mimo jine taktez datum a
cas zacatku a konce importu, vrazil jsem na zacatek SP prirazeni
current_timestamp do promenne a na konec procedury obdobne (samozrejme do
jine promenne). Ale ouha, po zapisu do tabulky statistik jsou oba casy
nachlup stejne a mam dojem, ze se jedna o cas zahajeni transakce.
Je to tak normalni, nebo jsem na neco zapomnel?
Nevite nekdo co s tim?
diky
PavelC
Tlacenie textu na tlaciaren s nejakym sklonom
[*] Slavom�r �eke# - 23.10.2001 09:39:16
To Printer.BeginDoc musis dat na zacatek procedury,
drive nez zacnes manipulovat s Printer.Canvas.
Nejde ani tak ... text vytlaci, ale nepootoceny :-(
Vaclav Krmela
Ulozeni vysledku SQL dotazu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 23.10.2001 09:42:05
> 2. Pokud chces odepisovat ty suroviny dle receptu, pak se prece
> jedna o klasickou recurzi a tu ulozene procedury zvladaji velmi
> dobre. Sam takto odepisuji polozky ze skladu, vcetne kusovniku a
> funguje to dobre.
To by urcite slo. Zda se mi ale, ze rekurzivni zpracovani polozky po polozce
musi byt o hodne pomalejsi, nez zpracovani pomoci serie dotazu. Predstav si,
ze napr. seznam prodeje muze obsahovat kazdou recepturu vicekrat, suroviny
se opakuji v ruznych recepturach. Procedurou budes odepisovat pro kazdou
polozku prodeje surovinu zvlast ze skladu. Pokud pouzijes serii dotazu,
ziskas sumar a odepisujes kazdou surovinu jen jednou.
Nevim, ale pokud jine servery docasne tabulky umi, asi na nich neco bude, ne
? :-))
Martin Burle
Nastroj pro spravu IB databaze
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 23.10.2001 09:52:33
Rad bych se zeptal, jestli existuje nejaky nastroj ke sprave databaze pri
vyvoji. Napr. potrebuji-li zmenit typ pole Char(30) => Char(10), pak nebudu
muset pres konzoli vytvaret docasne pole, do nej ulozit prvnich 10 znaku,
dropnout puvodni pole, prejmenovat docasne atd., ale nastroj toto udela za
mne. Proste jakysi spravce struktury tabulek, procedur a podobne.
Jasne, uz to slysim, pri DOBRE analyze navrhnu databazi a uz nemusim NIC
menit. To ja vim. Take mi nejde o case nastroj, ten mi pomuze ve fazi
navrhu, ale uz mene pri sprave db s daty.
Dekuji,
Martin Burle
Tlacenie textu na tlaciaren s nejakym sklonom
[*] Macecek Marcel <marcel.macecek(zv)at.siemens(tec)cz> - 23.10.2001 10:00:02
Stejne to nefunguje. Why ?
-----Original Message-----
From: Vaclav Krmela [mailto:krmela(zv)ustinadorlici(tec)cz]
Sent: Friday, November 23, 2001 8:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Tlacenie textu na tlaciaren s nejakym sklonom
> From: Slavom�r #eke�
>
>
> Problem vsak je, ak to chcem vykreslit na tlaciarni, nasledujuci kod
> totiz nefunguje. Kde mam chybu ?
>
> procedure TForm1.Button3Click(Sender: TObject);
> var
> lf : TLogFont;
> tf : TFont;
> begin
> with Printer.Canvas do begin
> Font.Name := 'Arial';
> Font.Size := 24;
> tf := TFont.Create;
> try
> tf.Assign(Font);
> GetObject(tf.Handle, sizeof(lf), (zv)lf);
> lf.lfEscapement := 450;
> lf.lfOrientation := 450;
> tf.Handle := CreateFontIndirect(lf);
> Font.Assign(tf);
> finally
> tf.Free;
> end;
> end;
> Printer.BeginDoc;
> Printer.Canvas.TextOut(50, 180, 'Rotated Text!');
> Printer.EndDoc;
>
> end;
>
To Printer.BeginDoc musis dat na zacatek procedury,
drive nez zacnes manipulovat s Printer.Canvas.
Vaclav Krmela
Interbase & ZEOS (IBO)
[*] <mkotaska(zv)atlas(tec)cz> - 23.10.2001 10:48:16
Ahoj,
mam nasledujici problem.
Ve sve aplikaci pouzivam pro pristup k Interbase komponenty ZEOS. V DB mam napsany trigger, ktery generuje nejakou hodnotu pro sloupec pri vkladani dat do DB. Jde nejakym zpusobem zjistit tato vygenerovana hodnota?
Dik za kazdy namet.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
Hint v menu
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 23.10.2001 10:51:04
Zdravim a obracim se na experty opet se zacatecnickym dotazem. V hlavnim
menu (TMainMenu) chci zobrazovat �tooltip� help. Ten mam pro jednotlive
TMenuItem definovan, presto se mi nezobrazuje. Formular, kde je menu
umistene ma ShowHint na true. Co jineho je treba nastavit?
Ing. Jan Dvorak
Interbase & ZEOS (IBO)
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.10.2001 11:01:06
> Ve sve aplikaci pouzivam pro pristup k Interbase komponenty ZEOS. V DB
> mam napsany trigger, ktery generuje nejakou hodnotu pro sloupec pri
> vkladani dat do DB. Jde nejakym zpusobem zjistit tato vygenerovana
Ted me rychle nenapada nejaky rozumny zpusob, ale o tom nechci
psat. Tady je asi lepsi reseni generovani hodnoty nedelat v triggeru,
ale v ulozene procedure, tu hodnotu si v aplikaci precist a do
insertu dodat rucne. Pripadne kvuli integrite dat (pokus o zapis z
jine aplikace nez tve) zkombinovat oboji v tom smyslu, ze trigger
by hlidal, jestli neinsertujes null, a kdyz jo, sam by cislo
vygeneroval.
David Lebeda
IB, current_timestamp, jak to vlastne je
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 23.10.2001 11:12:47
Ahoj,
je to spravne.
current_timestamp vraci behem celeho behu procedury|triggeru stale
stejny cas. Chces-li opravdu v kazdem okamziku ziskat skutecny cas,
musis pouzit napr. select cast('now' as timestamp) from rdb%database
Tom
"ing.Pavel Cabalka" wrote:
>
> pratele,
> mam ulozenou proceduru na IB, ktera resi import dat z textaku. Protoze si
> chci ulozit take statistiku jednotlivych importu a mimo jine taktez datum a
> cas zacatku a konce importu, vrazil jsem na zacatek SP prirazeni
> current_timestamp do promenne a na konec procedury obdobne (samozrejme do
> jine promenne). Ale ouha, po zapisu do tabulky statistik jsou oba casy
> nachlup stejne a mam dojem, ze se jedna o cas zahajeni transakce.
> Je to tak normalni, nebo jsem na neco zapomnel?
> Nevite nekdo co s tim?
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
CGI Aplikacia
[*] Werki <delphi(zv)minv.sk> - 23.10.2001 11:24:32
jednoduchy priklad nemam, ale v delphi je...
Werki
Nastroj pro spravu IB databaze
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 23.10.2001 11:28:35
> Martin Burle napsal :
>
> Rad bych se zeptal, jestli existuje nejaky nastroj ke sprave
> databaze pri
> vyvoji. Napr. potrebuji-li zmenit typ pole Char(30) =>
> Char(10), pak nebudu
> muset pres konzoli vytvaret docasne pole, do nej ulozit
> prvnich 10 znaku,
> dropnout puvodni pole, prejmenovat docasne atd., ale nastroj
> toto udela za
> mne. Proste jakysi spravce struktury tabulek, procedur a podobne.
>
> Martin Burle
Doporucuji IBExpert wiz www.ibexpert.com , dale pak existuje
IBAdmin, Marathon.
Marian Jonas
NT slu�ba a p��stup ke glob�ln�m dat�
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 23.10.2001 11:29:07
Dobry den,
pisu NT sluzbu, ktera si pri startu vytvori objekt - potomka
TCollection a naplni jej nejakymi daty (tyto data se v prubehu
behu sluzby nikdy nemeni). Pak se vytvori 50 vlaken a z techto
vlaken potrebuji pristupovat k te Collection. Vlakna vzdy jen
ctou z te Collection. Je potreba nejakym zbusobem osetrovat
pristup z vlakna na Collection ? Myslim tim je nutne pouzivat
EnterCriticalSection/LeaveCriticalSection ?
Dik Marian Jonas
Vystup na obrazovju,do souboru
[*] <lukaslib(zv)email(tec)cz> - 23.10.2001 11:33:20
Dobry den,
jsem zacatecnik a potreboval bych poradit s problem.Pomoci prikazu FOR si vygeneruju podle nejakeho vzorce cisla.Potrebuju je ale pri kazdem pruchodu ulozit.Nevim jak se to dela v Delphi,ale v Pascalu to slo jednoduse.Pak jsem se chtel jeste optat,jak tento seznam cisel mam zobrazit na obrazovce?Vygenerovana cisla jsou souradnice x,y a potreboval bych mit X pod sebou a k tomu prislusne Y pod sebou.Cili na jednom radku by meli byt dve cisla (X,Y).
Dekuji za radu.
Lukas
---
http://freedom.tiscali(tec)cz - svoboda, zabava, pohoda, spousta darku a internetove
pripojeni zdarma. Proste vse, co potrebujes, najdes u Tiscali.Bitmapa na tlaciaren
[*] Slavom�r �eke# - 23.10.2001 11:42:17
Ako vytlacit bitmapu na tlaciaren v takej velkosti ako ju vidim na
monitore ? nasledujuci kod ju vytlaci, ale malicku :-(
Printer.Canvas.Draw(0,0,Image1.Picture.Bitmap);SYNAPSE: String to OID ?
[*] Ondrej Krajicek <mll-delphil(zv)seznam(tec)cz> - 23.10.2001 11:53:53
Ahojky,
Dalibor Toman wrote:
>>>jak se da jednoduse prevest jmeno promenne na OID v Synapsi ?
>>>Nejak sem si nevsiml jak na to.
>>>
>>mas na mysli, jak treba prevest:
>>
>>"system.sysdescr" na "1.3.6.1.2.1.1.1" ???
>>
Presne tohle sem myslel.
>>
>>
>>To Synapse nyni neumi (vyzaduje cisenou formu).
>>
>>Myslim, ze to az tak jednoduse nepujde. pokud mas nejakou aplikaci,
>>ktera to pouziva, vsimni si, ze kazda ma u sebe jakousi prekladovou
>>tabulku. tato prekladova tabulka se navic musi aktualizovat a tak...
>>
Rekl bych ze d) je spravne, teda pravdu ma Dalibor. Je k tomu potreba
parser ASN.1
a pak si preparsujes MIBku. Rekl bych, ze neco takoveho by se horko
tezko dalo
napsat i bez specifikace. Podle toho co sem zatim videl je to
bezkontextovy jazyk a pouziva hlavne
levou rekurzi (posledni dve vety tohoto odstavce jsou spatny vtip,
prosime ignorujte - vase cenzura).
>Tenhle parsing je potreba jedine (myslim) na strane klienta SNMP
>protokolu - pokud tento ma
>akceptovat i neciselne identifikatory (SNMP serveru se posila vzdy jen
>ciselna podoba, pokud se nepletu :-( ).
>
Na strane serveru je ten parser k nicemu, SNMP posila jenom OID.
>Pokud se jedna o obcasnou zalezitost - neni az tak velky problem
>prolezt definice MIBu (TXT file) rucne
>a numericky identifikator sestavit. Standardni MIBy jsou jednak
>definovany v RFC a jednak napriklad na Linuxu
>staci juknout do /usr/share/snmp/mibs kde jsou definice MIBu ulozeny
>nebo si stahbout pozadovany MIB od
>vyrobce zarizeni (vetsinou je volne k dispozici).
>
Problem je v tom, ze ja tu MIBku nemam a mam docela problem ji z toho
spravneho zdroje
vylomit.
>Neni-li textova definice MIBu znama, nekdy pomuze tzv. "snmp walk".
>Napriklad na linuxu utilita
>snmpwalk, ktera vypise "celou: strukturu MIBu serveru (projde je jeden
>po druhym). Vadou na krase, je ze
>nejake veci uniknou (to co vychazi z jine vetve nez ve ktere zaciname,
>to co vyrobce taji, atd)
>
Jenom pridam, ze v Platform SDK je snmputil.exe, ktery umi i walk, napr.
snmputil.exe walk ip-adresa komunita OID a uz to jede.
>>nejlepsi by bylo, kdyby existoval na internetu nejaky server, ktery
>>by po vzoru DNS dokazal tato jmena prekladat a sam by se staral o
>>aktualizaci tabulek.
>>
Taky sem si rikal, ale ptal sem se nasich guru a ti o nicem takovem
nevi, tzn. ze to neexistuje.
Ondra
PS: Zacal sem prekladam help k Synapsi do HtmlHelpu. Doufam ze to uz
nekdo neudelal
prede mnou :).SYNAPSE: Html help
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 23.10.2001 12:10:16
> PS: Zacal sem prekladam help k Synapsi do HtmlHelpu. Doufam ze to uz
> nekdo neudelal
> prede mnou :).
No udelal...... ja! ;-)))
Dokonce v Synapsi e-mail konferenci sel pred par mesici odkaz, odkud
se da stahnout. Protoze o to nebyl zrovna zajem, tak jsem novejsi
verze v HtmlHelpu ani nedelal, nicmene neni problem ji v tomto
formatu rychle vyrobit.
(proste jen v tom programu, ve kterem help vyrabim zvolim jiny
vystupni format...) :-)
Distribuuji ciste HTML, protoze jaksi HtmlHelp je zcela na nic pod
Linuxem. ;-)
Bude-li o to zajem, klidne HTML help budu vyrabet a dam jej volne na
stazeni.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Case pro IB/FB
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2001 12:11:27
Zdravim vsechny,
nemate nekdo tip na %subject% s temito vlastnostmi:
1. moznost porizovani popisu jednotlivych entit (ktere se ulozi i do databaze)
2. moznost sledovani verzi databaze a tvorba update scriptu
3. samozrejme podpora datovych typu IB, dialectu atp...
Jedna se mi o nastroj specificky pro IB/FB. Ve firme jeste pouzivame
PowerDesigner pro Oracle a Informix, ale pro IB bych ho musel hodne upravovat a
do toho se mi vubec nechce :(
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
Sluzba windows
[*] <bejcek(zv)centrum(tec)cz> - 23.10.2001 12:14:31
Ahoj,kluci delam ctecku zarizeni pod WNT/W2000 a potrebuji,pridat
svoji aplikaci jako sluzbu systemu windows(tusim ze to je v
PRIDAT A ODEBRAT PROGRAMY SYSTEMU WIN),tj.aby se spoustela
nezavisle na prihlasenem uzivateli,mohlo ji pridavat ci odebirat.
Jak se to dela,jde to vubec ci,jak to udelat aby to bezelo
nezavisle na uzivateli.
Diky Aldik Pavel D5 Ent W2000
-----
U�ite�n� informace pro v�no�n� pohodu
http://vanoce.centrum(tec)cz
TClientSocket a C++ Builder
[*] Miroslav_Cipel(zv)rubena.cgs(tec)cz - 23.10.2001 12:15:00
Dobry den,
potreboval bych v konzolove aplikaci pouzit objekt TClientSocket ale nejak
se me nedari nastavit akce pro jednotlive eventy. Neco jako:
int main(int argc, char* argv[])
{
TClientSocket *Cs = new TClientSocket(0);
Cs->OnConnect = Connect; // !!!! tohle me nefunguje - jak to ma
byt spravne ?
.
.
.
}
a Connect mam napsany nejak takhle:
void __fastcall Connect(TObject *Sender, TCustomWinSocket *Socket)
{
Beep();
}
poradi me nekdo jak to napsat ? Jo a je to psany v C++ Builderu 5.0
M.
Canvas.TextWidth
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 23.10.2001 12:26:57
Ahoj vsem
Mohl by mi prosim nekdo vysvetlit proc nefunguje nasledujici kousek kodu?
Canvas totiz stale vraci stejnou hodnotu :-(
while Canvas.TextWidth(Text)> 100 do
Canvas.Font.Size := Canvas.Font.Size-1;
Predem mockrat diky za pomoc.
Jirka
TClientSocket a C++ Builder
[*] brant(zv)dcomm(tec)cz - 23.10.2001 12:26:01
Nejak neni jasne, zda se ptas na syntaxi anebo na to, proc spravna syntaxe
nefunguje. Musis includnout prislusne hlavicky a pak by melo stacit
TSocketNotifyEvent Connect()
{
//tvoje akce
}
i kdyz v konzolovce jsem to nikdy nezkousel a Builder znam jen zbezne.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
potreboval bych v konzolove aplikaci pouzit objekt TClientSocket ale nejak
se me nedari nastavit akce pro jednotlive eventy. Neco jako:
int main(int argc, char* argv[])
{
TClientSocket *Cs = new TClientSocket(0);
Cs->OnConnect = Connect; // !!!! tohle me nefunguje - jak to ma
byt spravne ?
.
.
.
}
a Connect mam napsany nejak takhle:
void __fastcall Connect(TObject *Sender, TCustomWinSocket *Socket)
{
Beep();
}
poradi me nekdo jak to napsat ? Jo a je to psany v C++ Builderu 5.0
M.Pomoc s vytvorenim dotazu
[*] <delphi(zv)zvlauto.sk> - 23.10.2001 12:28:32
Ahojte,
Ako mam sformulovat dotaz:
Tabulka ma polozky:
Typorozmer, Nazov naradia, poradove cislo
Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
naradia.
Ako na to?
Dakujem.Tlacenie textu na tlaciaren s nejakym sklonom
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 23.10.2001 12:49:23
> From: Slavom�r #eke�
>
> To Printer.BeginDoc musis dat na zacatek procedury,
> drive nez zacnes manipulovat s Printer.Canvas.
>
> Nejde ani tak ... text vytlaci, ale nepootoceny :-(
>
> Vaclav Krmela
>
Tak se podivej do archivu konference,
neni to ani dva mesice, co to tu slo:
http://www.delphi(tec)cz/soubor.asp?rok=2001&mesic=Sep&den=27&first=91&soubor=dl
faaadw.htm
Vaclav Krmela
IB, current_timestamp, jak to vlastne je
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 23.10.2001 12:50:58
to je ono. Perfect. Cenn� rada. D�ky
PavelC
----- Original Message -----
From: Tomas Michal�k <michalik(zv)proca(tec)cz>
> Chces-li opravdu v kazdem okamziku ziskat skutecny cas,
> musis pouzit napr. select cast('now' as timestamp) from rdb%database
Pomoc s vytvorenim dotazu
[*] Radek.Holecek(zv)up.mpsv(tec)cz - 23.10.2001 12:59:27
Zdravim,
tohle vybere max cislo z jednotlivych rozmeru a nazvu:
SELECT Typorozmer, Nazov naradia, max(poradove cislo)
FROM tabulka
GROUP BY Typorozmer, Nazov naradia
Toto Ti vybere jediny radek, ktery odpovida max poradovemu cislu:
SELECT T1.Typorozmer, T1.Nazov naradia, T1.poradove cislo
FROM Tabulka T1
WHERE T1.poradove cislo = (SELECT max(poradove cislo) from tabulka T2)
pricemz tabulka T1 a T2 je jedna a ta sama, jen s jinym aliasem.
S pozdravem
Radek Holecek
>Ahojte,
>Ako mam sformulovat dotaz:
>Tabulka ma polozky:
>Typorozmer, Nazov naradia, poradove cislo
>
>Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
>naradia.Pomoc s vytvorenim dotazu
[*] kuchar(zv)unicodesys(tec)cz - 23.10.2001 13:04:22
select max(Typorozmer),max(Nazov) from tabulka
----- Original Message -----
From: <delphi(zv)zvlauto.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 23, 2001 12:28 PM
Subject: Pomoc s vytvorenim dotazu
> Ahojte,
>
> Ako mam sformulovat dotaz:
> Tabulka ma polozky:
>
> Typorozmer, Nazov naradia, poradove cislo
>
> Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
> naradia.
> Ako na to?
>
> Dakujem.
>
> Prechod z SQL
[*] Du�an Andr����s��v#�� ��w� - 23.10.2001 13:05:47
Zdravim.
Mam nasledujuci problem. "Vpadol" som do situacie ked existuje web
alpikacia (ASP - MS SQL 7.0), pricom ASP vola zasadne len SP + existuje
nieco ako localny browser nad tou istou databazou napisany v Delphi 5.0
- vola tie iste SP.
Problem spociva v tom, ze najnovsie sa zakaznik rozhodol ze bude
distribuovat dane data na CD - s tym Delphi browsrom.
Prvy pokus bol na tom CD mat aj MSDE - to naistalovat - a vec je
vybavena, ale ako sa ukazalo - na "slabych" strojoch (P2 - 64 Mb) je to
pomale. T.j. bolo by potrebne preist (u tychto lokalnych instalacii) na
menej narocneho (hardwarovo) data providera. Ma s tym niekto skusenosti
? - Co by ste doporucili - aby bol prechod co najmenej bolestivi a co
najrychlejsi ? (pricom samozrejme vysledok musi byt rychlejsi).
Dik. Dusan
Pomoc s vytvorenim dotazu
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 23.10.2001 13:07:36
Neslo by to treba takto :
select max(poradove cislo), typorozmer, nazov naradia from tabulka group by
typorozmer, nazov naradia;
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
> Ahojte,
>
> Ako mam sformulovat dotaz:
> Tabulka ma polozky:
>
> Typorozmer, Nazov naradia, poradove cislo
>
> Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
> naradia.
> Ako na to?
Pomoc s vytvorenim dotazu
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 23.10.2001 13:12:59
> Ako mam sformulovat dotaz:
> Tabulka ma polozky:
>
> Typorozmer, Nazov naradia, poradove cislo
>
> Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
> naradia.
SELECT PoradoveCislo, TypRozmer, Nazev FROM TvojeTabulka
WHERE PoradoveCislo = (SELECT MAX(PoradoveCislo) FROM TvojeTabulka)
Ulozeni vysledku SQL dotazu
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 23.10.2001 13:16:46
Musel bych zmerit pekne casy, ale ve firme kde udelaji cca 30.000
vydejek rocne a vsechno je kusovnik zanoreny na 1-3 urovne, tak
jsem tam zkusil sesoucovat vsechny polozky za cely rok, pomoci
rekurze a trvalo to asi 10 sekund.
> > 2. Pokud chces odepisovat ty suroviny dle receptu, pak se prece
> > jedna o klasickou recurzi a tu ulozene procedury zvladaji velmi
> > dobre. Sam takto odepisuji polozky ze skladu, vcetne kusovniku a
> > funguje to dobre.
>
> To by urcite slo. Zda se mi ale, ze rekurzivni zpracovani polozky po polozce
> musi byt o hodne pomalejsi, nez zpracovani pomoci serie dotazu. Predstav si,
> ze napr. seznam prodeje muze obsahovat kazdou recepturu vicekrat, suroviny
> se opakuji v ruznych recepturach. Procedurou budes odepisovat pro kazdou
> polozku prodeje surovinu zvlast ze skladu. Pokud pouzijes serii dotazu,
> ziskas sumar a odepisujes kazdou surovinu jen jednou.
>
> Nevim, ale pokud jine servery docasne tabulky umi, asi na nich neco bude, ne
> ? :-))
>
> Martin Burle
>
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
Pomoc s vytvorenim dotazu
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 23.10.2001 13:18:35
select typorozmer, Nazovnaradia, max(poradove cislo)
from tabulka
group by typorozmer, Nazovnaradia
>
> Ako mam sformulovat dotaz:
> Tabulka ma polozky:
>
> Typorozmer, Nazov naradia, poradove cislo
>
> Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
> naradia.
> Ako na to?
>
> Dakujem.
>
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
Pomoc s vytvorenim dotazu
[*] Ji�� Vosla�, Profireal, a.s. <jiri.voslar(zv)profireal(tec)cz> - 23.10.2001 13:20:29
Tabulka ma polozky:
Typorozmer, Nazov naradia, poradove cislo
Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
naradia.
SELECT Typorozmer, "Nazov naradia", MAX("poradove cislo")
FROM <tabulka>
GROUP BY Typorozmer, "Nazov naradia"
ORDER BY Typorozmer, "Nazov naradia"Skladove hospodarstvi
[*] Jirka Kr�l jr. <admin(zv)printo(tec)cz> - 23.10.2001 13:34:58
Prosim poradi nekdo odkaz/knihu kde je mozne se docist pozadavky na agendu
skladu, nutne sestavy a o subj. vubec?
diky
==========================================================
Bc. Jiri Kral
administrator IT
tiskarna Printo, spol. s r.o.
e-mail: admin(zv)printo(tec)cz
mobil e-mail: jirka.kral(zv)mujoskar(tec)cz
ICQ# 15303940
FB a backup database - non Sysdba user
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.10.2001 13:37:50
Jak lze provest backup databaze, ale ne pres SYSDBA, nebo ownera na FB 1.0 (beta 2) ?
Mit v backup skriptech heslo sysdba, nebo ownera mi neprijde dobry napad (nevic nelze menit).
Pro IB5.6 stacilo dat pravo select.
Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Mobil: 0602 795 874
Fax: 068 535 23 64
e-mail:skopalik(zv)hlubocky.del(tec)cz
http://hlubocky.del(tec)cz
Pomoc s vytvorenim dotazu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2001 13:38:04
Select Typorozmer, Nazev, max(Poradove_Cislo) from tabulka
group by Typorozmer, Nazev
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Tabulka ma polozky:
>
> Typorozmer, Nazov naradia, poradove cislo
>
> Z toho chcem vybrat maximalne 'Poradove cislo' za Typorozmer a Nazov
> naradia.Case pro IB/FB
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 23.10.2001 13:47:39
On 23 Nov 2001, at 12:11, Milan Tome# wrote:
> nemate nekdo tip na %subject%
CaseStudio sice neni specificke (umi nejen IB/FB) ale je velice
fungujici a pomerem vykon/cena a podporou ze strany autora asi
nema konkurenci.
Z.Kalhous
Case pro IB/FB
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 23.10.2001 13:58:01
http://www.casestudio.com/rksoft/
Case pro IB/FB
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.10.2001 14:02:58
http://www.casestudio.com/rksoft/
Neumi update skripty, ale ma moznost psani vlastnich skripu.
Mam napriklad udelany automaticky export struktur tabulek do pascalovskych trid
a recordu.
Slavek
> Zdravim vsechny,
>
> nemate nekdo tip na %subject% s temito vlastnostmi:
> 1. moznost porizovani popisu jednotlivych entit (ktere se ulozi i do databaze)
> 2. moznost sledovani verzi databaze a tvorba update scriptu
> 3. samozrejme podpora datovych typu IB, dialectu atp...
>
> Jedna se mi o nastroj specificky pro IB/FB. Ve firme jeste pouzivame
> PowerDesigner pro Oracle a Informix, ale pro IB bych ho musel hodne upravovat a
> do toho se mi vubec nechce :(
>
> S pozdravem
Komponenta - property
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.10.2001 14:16:37
> Ahoj mam mens problem,nad kterym badam a zatim se mi ho nepodarilo
> vyresit.
> Mam vlastni komponentu ktera ma mimo jine property:
>
> public
> fFilterSource:TDataSource;
> procedure SetFilterSource(Value: TDataSource);
> function GetFilterSource:TDataSource;
> published
> property FilterSource:TDataSource read GetFilterSource write
> SetFilterSource;
>
> function TFSGFilterStringAlignGrid.GetFilterSource:TDataSource;
> begin
> result:=fFilterSource;
> end;
>
> procedure TFSGFilterStringAlignGrid.SetFilterSource(Value:
> TDataSource);
> begin
> fFilterSource:=Value;
> end;
>
> *********************
>
> Jednoducha vec,vse funguje spravne,kdyz si do teto property pripojim
> nejaky DataSource z formulare je to OK.
> Pokud jej vsak smazu a property FilterSource je
> nastavena na nej tak
> mi to zahlasi chybu Acces violation.....
> jakoby se snazil na nej neco odkazat ale on uz byl mezitim nil.Je to
> zvlastni normalne by to prece melo fungovat pokud smazu
> Datasource z
> formulare a property FilterSource byla nastavena na nej mela by se
> property vyprazdnit(mela by byt NIL).
Ahoj,
toto nie je automaticke, musis si zaregistrovat notifikaciu o tom, ze ta
instancia, na ktoru sa odkazuje Tvoja property bude uvolnena.
Pouziva sa na to FreeNotification, a na odregistrovanie
RemoveFreeNotification. Vo VCL je na to kopec prikladov. Pre Tvoj pripad to
bude nieco taketo:
procedure TFSGFilterStringAlignGrid.SetFilterSource(Value: TDataSource);
begin
if FFilterSource <> Value then
begin
// toto by nemalo byt potrebne
// if Assigned(FFilterSource) then
// FFilterSource.RemoveFreeNotification(Self);
FFilterSource := Value;
if Assigned(FFilterSource) then
FFilterSource.FreeNotification(Self);
end;
end;
O odregistrovanie predoslej instancie sa nemusis starat, to sa deje v
inherited Notification, ak su vsetky triedy potomkov pisane tak, ze volaju
inherited Notification, co by spravne malo byt vzdy. Pre istotu som to tam
dopisal vykomentovane.
Po takejto registracii dostanes zakazdym od daneho komponentu 'spravu', ze
bude coskoro uvolneny: zavola Tvoju metodu Notification, ktoru si overridni
asi takto:
procedure TFSGFilterStringAlignGrid.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (AComponent = FFilterSource) then
FFilterSource := nil;
end;
HTH
TOndrej
Canvas.TextWidth
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.10.2001 14:23:48
> Mohl by mi prosim nekdo vysvetlit proc nefunguje nasledujici
> kousek kodu?
> Canvas totiz stale vraci stejnou hodnotu :-(
>
> while Canvas.TextWidth(Text)> 100 do
> Canvas.Font.Size := Canvas.Font.Size-1;
TFont.Size moze mat aj zapornu hodnotu, vtedy sa zaratava 'internal
leading'. Pozri si help pre TFont.Size.
HTH
TOndrej
Komponenta - property
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.10.2001 14:29:05
----- Original Message -----
From: "Radek Janu# FSG" <janus(zv)foresta(tec)cz>> Mam vlastni komponentu ktera ma mimo jine property:
> ...
> Jednoducha vec,vse funguje spravne,kdyz si do teto property pripojim
> nejaky DataSource z formulare je to OK.
> Pokud jej vsak smazu a property FilterSource je nastavena na nej
tak
> mi to zahlasi chybu Acces violation.....
> jakoby se snazil na nej neco odkazat ale on uz byl mezitim nil.Je to
> zvlastni normalne by to prece melo fungovat pokud smazu Datasource z
> formulare a property FilterSource byla nastavena na nej mela by se
> property vyprazdnit(mela by byt NIL).
Musite implementovat hlidani zda TDataSource nekdo nezrusil,
dela se to takto:
...
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
...
procedure TFSGFilterStringAlignGrid.SetFilterSource(Value: TDataSource);
begin
fFilterSource:=Value;
if Value <> nil then Value.FreeNotification(Self);
end;
procedure TFSGFilterStringAlignGrid.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (AComponent = fFilterSource) then
fFilterSource := nil;
end;
HTH
Martin Schayna
Prechod z DB na SQL
[*] Delphi konference <delcomseb(zv)volny(tec)cz> - 23.10.2001 15:10:57
Zdavim vsechny,
Jsem nucen prejit z DB na SQL na W2k a muj dotaz zni:
Jaky mi dopurucite SQL server ( idelani free ) ?
A pokud mate jakekoli rady pro absolutniho zacatecknika v SQL
ci varovani ceho se vyvarovat tak vse vitam !!!
(i na soukr. adrese globy(zv)grafitto(tec)cz)
Dekuji Jan Sebesta
P.S. proc zkoumat to co jiz mate davno prozkomane.
TClientSocket a C++ Builder
[*] Miroslav_Cipel(zv)rubena.cgs(tec)cz - 23.10.2001 15:13:43
rekl bych ze je problem v syntaxi protoze Connect a Error se volaji uz kdyz
se je pokousim nastavit - radeji ten zdrojak posilam cely.
M.//---------------------------------------------------------------------------
#include <vcl.h>
#include <scktcomp.hpp>
#include <stddef.h>
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
bool IsConnect;
TSocketNotifyEvent Connect()
{
IsConnect = true;
}
TSocketErrorEvent Error()
{
Beep();
}
int main(int argc, char* argv[])
{
TClientSocket *Cs = new TClientSocket(0);
Cs->OnConnect = Connect(); // !!!! hned tady se zavola Connect
Cs->OnError = Error();
Cs->Host = "abcd";
Cs->Port = 1024;
Cs->ClientType = ctNonBlocking;
Cs->Open();
if (!IsConnect) Sleep(100);
Cs->Socket->SendText("dsfgdg"); Cs->Close();
delete Cs;
return 0;
}//---------------------------------------------------------------------------
Prechod z DB na SQL
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 23.10.2001 15:19:55
N rozkoukani je asi (podle meho nazoru) nejvhodnejsi FireBird.
Pokud mas D5, tak tam mas i IB5.5 pro 5 uzivatelu urcenou pro vyvoj
aplikaci.
Jedna vec je naucit s s SQL serverem pracovat, jina vec realizovat projekt.
Obcas plati, ze ne vse co je jednoduche na instlaci a zpravu je vhodne
do narocneho provozu.
Slavek
> Jsem nucen prejit z DB na SQL na W2k a muj dotaz zni:
> Jaky mi dopurucite SQL server ( idelani free ) ?
> A pokud mate jakekoli rady pro absolutniho zacatecknika v SQL
> ci varovani ceho se vyvarovat tak vse vitam !!!
> (i na soukr. adrese globy(zv)grafitto(tec)cz)
>
> Dekuji Jan Sebesta
TClientSocket a C++ Builder
[*] brant(zv)dcomm(tec)cz - 23.10.2001 15:37:02
Jeee, sorry, prehlidnul jsem spodni cast mailu, kde bylo pokracovani. Takze
bohuzel nevim :-(((
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
Nejak neni jasne, zda se ptas na syntaxi anebo na to, proc spravna syntaxe
nefunguje. Musis includnout prislusne hlavicky a pak by melo stacit
TSocketNotifyEvent Connect()
{
//tvoje akce
}
i kdyz v konzolovce jsem to nikdy nezkousel a Builder znam jen zbezne.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
potreboval bych v konzolove aplikaci pouzit objekt TClientSocket ale nejak
se me nedari nastavit akce pro jednotlive eventy. Neco jako:
int main(int argc, char* argv[])
{
TClientSocket *Cs = new TClientSocket(0);
Cs->OnConnect = Connect; // !!!! tohle me nefunguje - jak to ma
byt spravne ?
.
.
.
}
a Connect mam napsany nejak takhle:
void __fastcall Connect(TObject *Sender, TCustomWinSocket *Socket)
{
Beep();
}Nastroj pro spravu IB databaze
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 23.10.2001 16:22:21
> Odes�latel: Martin Burle <mburle2(zv)volny(tec)cz>
> Jasne, uz to slysim, pri DOBRE analyze navrhnu databazi a uz nemusim NIC
> menit. To ja vim.
Teda nevim, jestli jsi myslel prave me?
Ale vazne:
Na svoji otazku dostanes dozajista spoustu odpovedi.
Ja jsem naopak velmi konzervativni.
I pres to, ze IBConsole mi pri vazne praci asi tak 4x za den spadne na Access Violation, presto ji zatim povazuji za pouzitelnou.
Mam na to zasadni duvody:
Spocitam si, kolik prace venuji implementaci databaze (nemluvim o analyze) a porovnam to s tim, co musim vyrabet na klientovi.
I kdybych praci s databazi zdvojnasobil, stejne je to zlomek toho, s cim se musim prudit na klientovi.
A navic:
Pole char(30) zabere v databazi stejny prostor, jako char(10), takze v zasade nevidim vazny duvod prechazet of char(30) k char(10).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================nechci blik�n� formu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.10.2001 16:24:45
> m�m ud�lanou stm�va�ku, form1.color se m�n� od $FFFFFF do
> $000000, je tam sleep(100) a processmessages. form p�i tom
> pon�kud poblik�v�. jak tomu zamezit?
Najjednoduchsie bude skusit DoubleBuffered := True;
HTH
TOndrej
Nastroj pro spravu IB databaze
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 23.10.2001 16:41:14
Ahoj,
ja doporucuji IBExperta.
Jan Sebel�k wrote:
>
> A navic:
> Pole char(30) zabere v databazi stejny prostor, jako char(10), takze v zasade nevidim vazny duvod prechazet of char(30) k char(10).
Snad az na to, ze pri fetchovani 100 zaznamu se po siti prenese 3000
bytu namisto 1000 bytu (pri jednobytove znakove sade).
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
o aplikaci
[*] Petr Mendl <areka(zv)atlas(tec)cz> - 23.10.2001 17:05:45
dobr� den,
cht�l jsme se zeptat zda lze n�jakou funkc�, p��kazem vlo�it do formul߰e o
aplikaci ��slo verze, kterou m�m zapsanou v delphi v menu- project- options-
version information. (mohu zde vyplnit product name, product version, file
version atd)jestli�e ano. porad�temi jak na to?
jsem za��te�n�k v delphi.
d�kuji
petr
Syntaxe IP adresy
[*] brant(zv)dcomm(tec)cz - 23.10.2001 17:05:08
Ahoj vsem, nemate nekdo nahodou funkci, ktera kontroluje, zda retezec
znamena platnou IP adresu (myslim platnou jen syntakticky, bez ohledu na to,
jestli se v siti vyskytuje)?
Diky predem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Tel. 0724/007234
ODA 3, MS Access a triedenie
[*] Ivan Zernovac <izernovac(zv)yahoo(tec)com> - 23.10.2001 08:16:10 -0800 (pst)
Zdravim,
pouzivam Opus Direct Access v. 3.5. Z nejakeho dovodu
nefunguje triedenie - slova zacinajuce na z' (teda z
s makcenom) sa vzdy dostanu na zaciatok, este pred
pismeno a. To iste plati pre t' (t s makcenom).
Kde moze byt chyba?
__________________________________________________
Do You Yahoo!?
Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
http://geocities.yahoo.com/ps/info1
OT: Autoinkrement v MS Accesse
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 23.10.2001 17:17:38
Ahoj,
potrebujem naimportovat nejake data do prazdnej tabulky
v MS Accesse. Jedno z poli je typu AutoIncrement.
Da sa nejak zaistit, aby mi autoinkrement cisloval
od konkretneho cisla (napr. od 1)?
Vdaka za radu.
Vlkovic
Tlacitka na taskbaru
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 23.10.2001 18:11:34
Ahoj,
prave experimentuju se zobrazovanim ikony formulare na taskbaru
(parametr WS_EX_APPWINDOW) a chtel bych se zeptat, zda se nekomu
podarilo vyresit problem se zobrazovanim modalnich formularu z takto
vytvoreneho formulare - napr. pri vyvolani opendialogu se opendialog
zobrazi, ale predtim se schova okno, ze ktereho jsem ho volal).
V archivu jsem nasel reseni Tomase Bradleho, ktere by to melo vyresit,
ale nejak me to nejede, okno se porad schovava :(
(http://www.delphi(tec)cz/soubor.asp?rok=2001&mesic=apr&den=10&soubor=dlfaaa
ac.htm)
D5, SP1, W2000 ADV SERVER
Diky, Ales
o aplikaci
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.10.2001 18:13:24
> cht�l jsme se zeptat zda lze n�jakou funkc�, p��kazem vlo�it
> do formul߰e o aplikaci ��slo verze, kterou m�m zapsanou
> v delphi v menu- project- options- version information.
> (mohu zde vyplnit product name, product version, file
> version atd)jestli�e ano. porad�temi jak na to?
Mozes velmi jednoducho pouzit TJclFileVersionInfo, ktora je sucastou JEDI
VCL:
www.delphi-jedi.org
HTH
TOndrej
SYNAPSE: Html help
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 23.10.2001 18:15:48
> > PS: Zacal sem prekladam help k Synapsi do HtmlHelpu. Doufam
> ze to uz
> > nekdo neudelal
> > prede mnou :).
>
> No udelal...... ja! ;-)))
>
> Dokonce v Synapsi e-mail konferenci sel pred par mesici odkaz, odkud
> se da stahnout. Protoze o to nebyl zrovna zajem, tak jsem novejsi
> verze v HtmlHelpu ani nedelal, nicmene neni problem ji v tomto
> formatu rychle vyrobit.
>
> Bude-li o to zajem, klidne HTML help budu vyrabet a dam jej volne na
> stazeni.
Ahoj,
ja jsem si to taky jednou prelozil :-))). Urcite by bylo fajn, kdybych to
porad nemusel delat znovu. Pokud by Te to prilis neobtezovalo, ja bych to
rozhodne privital.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Nastroj pro spravu IB databaze
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 23.10.2001 18:25:36
>Spocitam si, kolik prace venuji implementaci databaze (nemluvim o analyze)
a porovnam to s tim, >co musim vyrabet na klientovi.
>I kdybych praci s databazi zdvojnasobil, stejne je to zlomek toho, s cim se
musim prudit na >klientovi.
To je fakt, nicmene je to ponekud nepohodlne. IB expert je myslim dost
dobry. Char(30)->Char(10) ovsem nezvladne. To byl samozrejme jen priklad,
obvykle je to naopak.
>Pole char(30) zabere v databazi stejny prostor, jako char(10), takze v
zasade nevidim vazny >duvod prechazet of char(30) k char(10).
Jak to? Mel jsem za to, ze char zabira v zaznamu 1-32767 byte?
Martin Burle
o aplikaci
[*] Roman Toda <toda(zv)digitaldocuments.org> - 23.10.2001 18:41:44
> cht�l jsme se zeptat zda lze n�jakou funkc�, p��kazem vlo�it do formul߰e
o
> aplikaci ��slo verze, kterou m�m zapsanou v delphi v menu- project-
options-
> version information. (mohu zde vyplnit product name, product version, file
> version atd)jestli�e ano. porad�temi jak na to?
> jsem za��te�n�k v delphi.
Tato metoda Ti vrati prve tri cisla verzie - to stvrte tam mas v poznamke
function GetModuleVersion(const sModule : String) : String;
var
dwZ : DWORD;
dwInfoSize : DWORD;
dwFileInfoSize : DWORD;
pInfo : Pointer;
pVffi : PVSFIXEDFILEINFO;
begin
dwInfoSize := GetFileVersionInfoSize(PChar(sModule), dwZ);
if (dwInfoSize = 0) then begin
Result := '';
Exit;
end;
GetMem(pInfo, dwInfoSize);
GetFileVersionInfo(PChar(sModule), 0, dwInfoSize, pInfo);
VerQueryValue(pInfo,'\',Pointer(pVffi),dwFileInfoSize);
Result := Format('%d.%d.%d',[
pVffi.dwFileVersionMS shr 16,
pVffi.dwFileVersionMS and $0ffff,
pVffi.dwFileVersionLS shr 16{,
pVffi.dwFileVersionLS and $0ffff}]);
FreeMem(pInfo);
end;
Roman
DBEdit
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 23.10.2001 19:02:48
Dobry den,
mam pripojen DBEDit na promenou typu varchar, ale potreboval bych omezit
klavesy jen na cisla, tedy aby stisk ostatnich klaves byl ignorovan.
Nemate nekdo nejaky sikovny napad?
Dekuji.Jak na tiskovou frontu
[*] Jirka Virt <virt(zv)volny(tec)cz> - 23.10.2001 22:18:19
Ahoj,
prosim, nevite nekdo, jak odchytavat zmeny ve fronte tiskarny
ve Win9x.
Pro WinNT je to FindFirstPrinterChange,FindNextPrinterChange ... ,
ale pro Win9x mi zbyva pouze enumerace tiskove fronty (EnumJobs).
Ovsem toto, kdyz spustim v cyklu neodchytne to vsechny zmeny.Proste
nektere projdou mimo.Je to zpusobeno konstantou Sleep().Bez teto hodnoty
to zase vytizi procesy atd
Zkousel jsem odchytavat zpravu WM_SPOOLERSTATU, ale ta pro zmenu
idikuje pouze pridani do fronty a odebrani z fronty.
Jak tedy toto korektne obejit????
Diky
Jirka Virt
email: virt(zv)volny(tec)cz
DBEdit
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 23.10.2001 22:36:09
do OnKeyPress dej neco jako:
If not (key in ['0'..'9', #8,#13]) then
begin
Key := #0;
MessageBeep (0);
end;
Sebik
----- Original Message -----
From: 3D-imenision <3dimension(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 23, 2001 7:02 PM
Subject: DBEdit
> Dobry den,
> mam pripojen DBEDit na promenou typu varchar, ale potreboval bych omezit
> klavesy jen na cisla, tedy aby stisk ostatnich klaves byl ignorovan.
> Nemate nekdo nejaky sikovny napad?
> Dekuji.
>
> Skladove hospodarstvi
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 24.10.2001 06:06:42
Jednoducha otazka, ale tezka odpoved.
Kdyby nato existoval jednotny nazor s jednotnym navodem, tak to nekdo
naprogramuje a ostatni uz nic nemusi delat.
Skladove hospodarstvi je jine u male firmy, delajici jednoduche ucetnictvi a
urcite jine napr. v nejakem marketu. Jine je u potraviv a uplne jine u
spotrebniho zbozi.
Nejlepe se spojit s nejakym dobrym ale normalnim danovym poradcem, ktery ti
rekne zasadni rozdily ve skladovem hospodarstvi a pak si musis dat cil,
ktera skupina zakazniku te uzivi a budes pro ne programovat.
Moje odpoved te asi nepotesi, ale ja se tim zivim uz nejaky rok a muzu ti
rict, ze zakaznik zasadne nevi co chce, ale urcite vi co nechce.
Uprimnou soustrast v hledani cesty jak a co naprogramovat
Pavel
P.S. blba rada na konec - zacni cist zakony, tam je odpoved.
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> Prosim poradi nekdo odkaz/knihu kde je mozne se docist pozadavky na agendu
> skladu, nutne sestavy a o subj. vubec?
> Bc. Jiri Kral
DBEdit
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 24.10.2001 06:12:15
Zkus si stahnout http://www.kopr(tec)cz/delphi/index.htm
komponentu KEdit, kde je TKEdit, TKDBEdit, ... TKLabeledEdit
Jestli ti mohu ale radit, ja radeji zapisuji vse do obycejneho edit a pak to
prevadim do DB. Lepe se odchytavaji chybove hlasky.
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> mam pripojen DBEDit na promenou typu varchar, ale potreboval bych omezit
> klavesy jen na cisla, tedy aby stisk ostatnich klaves byl ignorovan.
> Nemate nekdo nejaky sikovny napad?
> Dekuji.Syntaxe IP adresy
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.10.2001 09:17:37
> Ahoj vsem, nemate nekdo nahodou funkci, ktera kontroluje, zda retezec
> znamena platnou IP adresu (myslim platnou jen syntakticky, bez ohledu na to,
> jestli se v siti vyskytuje)?
Mysis neco jako funkce "IsIP" ze Synapse?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.nechci blik�n� formu
[*] bleak <bleak(zv)atlas(tec)cz> - 24.10.2001 09:35:00
blik� i p�i Form1.DoubleBuffered:=True;
bleak
----- Original Message -----
From: Ondrej Kelle <O.Kelle(zv)digitalpublishing.de>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 23, 2001 4:24 PM
Subject: RE: nechci blik�n� formu
> m�m ud�lanou stm�va�ku, form1.color se m�n� od $FFFFFF do
> $000000, je tam sleep(100) a processmessages. form p�i tom
> pon�kud poblik�v�. jak tomu zamezit?
Najjednoduchsie bude skusit DoubleBuffered := True;
HTH
TOndrej
DBEdit
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.10.2001 11:05:50
> Lze osetrit vstup znaku do DBEditu z klavesnice tak, aby byly
> vylouceny cislice? (ignorovano stisknuti cisel na klavesnici)
Da sa to aj cez TField.EditMask
HTH
TOndrej
D5, ent. a Language
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.10.2001 11:17:33
> Ako sa da prepinat jazyk za behu programu a ako sa da zistit
> aktivny jazyk?
Je na to demo: $(DELPHI)\Demos\RichEdit\richedit.bpg.
HTH
TOndrej
Nastroj pro spravu IB databaze
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.10.2001 11:59:50
> > Pole char(30) zabere v databazi stejny prostor, jako char(10), takze v zasade nevidim vazny duvod prechazet of char(30) k char(10).
>
> Odes�latel: Tomas Michal�k <michalik(zv)proca(tec)cz>
> Snad az na to, ze pri fetchovani 100 zaznamu se po siti prenese 3000
> bytu namisto 1000 bytu (pri jednobytove znakove sade).
Fakt, jo?
Ja jsem si myslel, ze se to prenasi inteligentneji, tzn. ve skutecne delce, stejne jako se to uklada.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Canvas.TextWidth
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.10.2001 12:25:00
V Canvasu ceho to delas. Jsou pripady, kdy to takto delat nelze. Treba
Pokud mas ToolBar a chtel bys takto menit Font.Size pri vykreslovani
jednotlivych buttonu.
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.11.2001 Jiri Wendl, KSH-Data:
> Ahoj vsem
> Mohl by mi prosim nekdo vysvetlit proc nefunguje nasledujici kousek kodu?
> Canvas totiz stale vraci stejnou hodnotu :-(
> while Canvas.TextWidth(Text)> 100 do
> Canvas.Font.Size := Canvas.Font.Size-1;> Predem mockrat diky za pomoc.
> Jirka
nechci blik�n� formu
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.10.2001 12:28:26
Misto ProcessMessages by bylo vhodnejsi pouzit nejakou metodu primo
pro prekresleni formu (Repaint, Update ...)
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.11.2001 bleak:
> zdrav�m,
> m�m ud�lanou stm�va�ku, form1.color se m�n� od $FFFFFF do $000000, je tam
> sleep(100) a processmessages. form p�i tom pon�kud poblik�v�. jak tomu
> zamezit?
> bleak
> P.S. jestli mi n�kdo nap��e, a� to hled�m v archivu, tak z toho budu m�t
> trauma ;-)
Syntaxe IP adresy
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.10.2001 12:32:54
To prece nemuze byt tak slozite. IP adresa muze obsahovat pouze cisla
0..9 a znak '.' (pokud neuvazujes nove rozsireni)
Tecky jsou 3 a cisla mezi nimi jsou v rozsahu 0..255
V prvnim cyklu zkontroluji platnost znaku a pocet tecek, kdyz je to
OK, rozparsuji na jednotliva cisla a zkontroluji rozsah
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
23.11.2001 brant(zv)dcomm(tec)cz:
> Ahoj vsem, nemate nekdo nahodou funkci, ktera kontroluje, zda retezec
> znamena platnou IP adresu (myslim platnou jen syntakticky, bez ohledu na to,
> jestli se v siti vyskytuje)?
> Diky predem
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> ICQ #68652380
> D&COMM s.r.o.
> Korunova�n� 6
> 170 00 Praha 7
> Tel. 0724/007234
Prechod z DB na SQL
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.10.2001 13:48:30
> Odes�latel: Delphi konference <delcomseb(zv)volny(tec)cz>
> Jsem nucen prejit z DB na SQL na W2k a muj dotaz zni:
> Jaky mi dopurucite SQL server ( idelani free ) ?
> A pokud mate jakekoli rady pro absolutniho zacatecknika v SQL
> ci varovani ceho se vyvarovat tak vse vitam !!!
> (i na soukr. adrese globy(zv)grafitto(tec)cz)
Pokud jde o volbu databaze,
doporucil bych InterBase/FireBird (Open Source).
Rad i varovani je cela rada.
Jinak myslim, ze jsme v kontaktu...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================NT slu�ba a p��stup ke glob�ln�m dat�m
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.10.2001 13:52:16
> Odes�latel: Jon�# Mari�n <Jonas(zv)komercpoj(tec)cz>
> ctou z te Collection. Je potreba nejakym zbusobem osetrovat
> pristup z vlakna na Collection ? Myslim tim je nutne pouzivat
> EnterCriticalSection/LeaveCriticalSection ?
Myslis zcela spravne.
A:=3;
B:=A;
kolik je B?
Pokud to jede ve dvou threadech, B nemusi byt nutne 3.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Nastroj pro spravu IB databaze
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.10.2001 13:58:29
> Odes�latel: Martin Burle <mburle2(zv)volny(tec)cz>
> IB expert je myslim dost dobry
Ja si taky myslim, ze IBConsole je skoro nepouzitelna.
Jenom jsem rekl, ze i tak to lze prekousnout.
> Jak to? Mel jsem za to, ze char zabira v zaznamu 1-32767 byte?
Nerad bych hlasal bludy.
Podle meho soudu jak char, tak i varchar zabere v zaznamu "aktualnidelka+1" bytu.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Case pro IB/FB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 24.10.2001 14:06:57
> Odes�latel: Milan Tome# <Milan.Tomes(zv)haida(tec)cz>
> nemate nekdo tip na %subject% s temito vlastnostmi:
CaseStudio od Radima Kunze.
Od ucastniku nasich kurzu jenom chvala.
Sam mam od Radima skolici licenci a na kurzu "Navrh a implementace SQL databaze" ho taky uspesne pouzivam.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================nechci blik�n� formu
[*] bleak <bleak(zv)atlas(tec)cz> - 24.10.2001 15:20:52
to blik� taky....
bleak
----- Original Message -----
From: Jan Fiala <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, November 24, 2001 12:28 PM
Subject: Re: nechci blik�n� formu
> Misto ProcessMessages by bylo vhodnejsi pouzit nejakou metodu primo
> pro prekresleni formu (Repaint, Update ...)
>
> ------
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 22.11.2001 bleak:
> > zdrav�m,
> > m�m ud�lanou stm�va�ku, form1.color se m�n� od $FFFFFF do $000000, je
tam
> > sleep(100) a processmessages. form p�i tom pon�kud poblik�v�. jak tomu
> > zamezit?
> > bleak
>
> > P.S. jestli mi n�kdo nap��e, a� to hled�m v archivu, tak z toho budu m�t
> > trauma ;-)
>
>Skladove hospodarstvi
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 24.10.2001 16:29:22
> Prosim poradi nekdo odkaz/knihu kde je mozne se docist pozadavky na agendu
> skladu, nutne sestavy a o subj. vubec?
Agenda skladovani a logistiky se da smele srovnavat se slozitosti mzdove
agendy
(tim ale nemyslim mzdove agendy kterymi se nektere programatorske firmy
chlubi a uvadeji je jako vhodne
pro male a stredni firmy, ale vetsina techto mezd nezvlada zakladni funkce
pro vyrobni organizace )
1. Precti (nastuduj) skladove ucetnictvi,
2. Zkus tento problem konzultovat s lidmi z praxe kteri se skladem
prichazeji do styku, ovsem aspon s 5 a z r�znych
oboru.
3. Az to vsechno poznas a pochopis tak od toho uteces :-)).
Ovsem asi nikdy neudelas univerzalni skladove hospodarstv�
Delam to teto problematiky dost let a porad je k objevovani neco noveho :-(
S pozdravem Heinisch Jiri
Ulozena procedura a navratova hodnota
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 24.10.2001 16:34:57
Ahoj
Na zavadu jsem prisel 1 hodinu po odeslani (ovsem 2 hodiny predtim jsem
ruzne opravoval SP).
******************
Zapis s problemem
MessageDlg(IntToStr(p.ParamByName('RET_CODE').AsSmallInt) , mtError, [mbOK],
0);
SP.ExecProc;
*******
Zapis vyresen
SP.ExecProc;
MessageDlg(IntToStr(p.ParamByName('RET_CODE').AsSmallInt) , mtError, [mbOK],
0);
*******************
Nekdy staci opravdu malickost :-))))))
Ovsem i tak diky za pomoc
J. Heinisch
----- Original Message -----
From: "Richard Kejval" <kejval.delphi(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 23, 2001 8:04 AM
Subject: Re: Ulozena procedura a navratova hodnota
> > Ahoj
> >
> > Potreboval bych vedet zda lze u teto SP zjistit hodnotu RET_CODE
> > V Delphi mi to porad vraci 0 a melo by 80
>
> Zkus pridat na konec procedury Suspend. Z Delphi to samozrejme muzes volat
i
> pomoci stored procedure. Select na proceduru se pouziva spise, kdyz
> procedura vraci vice radku.
>
>
Vsechny soubory v jednom
[*] Va�ek N�vrat <engine(zv)ropacek(tec)cz> - 24.10.2001 18:13:09
Zdravim!
Potrebuju poradit, protoze stojim pred ukolem a nevim, jak ho vyresit.
Predstavme si, ze mame nekolik mensich souboru (treba 100 souboru po 30 kB).
Uzivatel z nich chce udelat jeden vetsi. Potud v pohode - dala by se pouzit
nejaka komponenta na komprimaci. Ale ted nastane problem. Program bude
chvilkama nektere z techto souboru potrebovat (asi tak 3 - 4 najednou), ale
neni mozne je vsechny rozbalit. Z toho velkeho souboru se musi jen vybrat ty
soubory, ktere se zrovna budou potrebovat a z tech rovnou cist, v nehorsim
pripade jen tyto soubory docasne rozbalit na HDD. Umim napriklad pracovat s
UnRar.dll a ta funguje tak, ze projizdi vsechny soubory v archivu soubor po
souboru a bud rozbali nebo necha tak. Vzhledem k tomu, ze program bude na
CD-ROM, mel by pekne svizne chodit i na pomalejsich CD-ROMkach (treba
4rychlostnich) a nejlepe vubec nepouzit HDD, tohle neprichazi v uvahu. Navic
neexistuje zadna komponenta, ktera by umela balit ve formatu RAR.
Takze se na vas obracim s prosbou o radu, co pouzit, abych se vyhnul
popisovanym komplikacim.
Dikes
Vasek
Syntaxe IP adresy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.10.2001 19:27:36
> To prece nemuze byt tak slozite. IP adresa muze obsahovat pouze cisla
> 0..9 a znak '.' (pokud neuvazujes nove rozsireni)
> Tecky jsou 3 a cisla mezi nimi jsou v rozsahu 0..255
>
nestaci zavolat inet_addr ?
D. Toman
Jak poslat msg do conslole app
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 25.10.2001 00:23:42
Zdravim.
Mam konsolovou aplikaci kterou spustim v davkovem souboru a ktera dela asi
toto :
Na zaklade ParamStr(1) posle message hlavni widowsovske aplikaci, ktera
provadi nejake operace s daty.
Tohle mi funguje bez potizi.
No a ja bych potreboval do ni doplnit prijem messages, kterymi mi posila ta
hlavni aplikace informace o prubehu zpracovani a nakonec po ukonceni
zpracovani mi posle priznak pro ukonceni programu a davka bude pokracovat
dal.
Cili jak zjistit handle tehle konsolove app (dal by se rovnou predavat v
LParam odesilane zpravy) a jak message vybec prijmout.
Zkousel jsem i pridat DataModule, ale ani pro DataModul jsem nenasel zpusob
jak zpracovat zpravu.
Form nebo normalni app nechci pouzit, protoze pri maximalizovanem DOS okne
potom preblikava okno do win.
Predem dik.
Ludek
P.S. Prikladam nastin kodu :
program Project1;{$APPTYPE CONSOLE}
uses
Windows,
Messages,Forms;
var
WriteBuffer : string;
stop : boolean;
hw : HWND;
begin
WriteBuffer := '';
stop := True;
WRITELN('Tato operace muze trvat dlouhou dobu.');
WRITELN('Prerusit beh programu muzete stisknutim CTRL+C.');
WRITELN;
if ParamStr(1) = 'neco' then
begin
hw := FindWindow('THlavniApp', 'Hlavni aplikace');
if hw > 0 then
begin
SendMessage(hw, WM_USER + $116, 1, 0); // pripadne SendMessage(hw,
WM_USER + $116, 1, HWND_TOHOTO_OKNA)
while stop do
Application.ProcessMessages;
WRITELN('Import dat v poradku dokoncen');
end
else
WRITELN('Nelze provest import dat. Neni spusten program "Hlavni
aplikace"');
end
else
WRITELN('Nelze provest import dat. Nebyl rozpoznan spravny paramert');
end.
No a chybi mi tam (pokud by to melo form) tak neco takoveho :
public
...
procedure FromHlavniApp(var msg: TMessage);
message WM_USER + $117;
implementation
...
procedure TForm1.FromHlavniApp(var msg: TMessage);
begin
if msg.WParam = 1 then WriteBuffer := WriteBuffer + CHR(msg.LParam); //
poslan znak
if msg.WParam = 2 then // konec radku
begin
Writeln(WriteBuffer);
WriteBuffer := '';
end;
if msg.WParam = 3 then stop := False; // konec programu
end;
Jenze tohle neumim naimplementovat do consolove aplikace.
Tlac roznych tlacovych zostav zo Sinei.
[*] Roland Turcan <rolo(zv)sedas.sk> - 25.10.2001 02:10:17
Ahojte.
Potreboval by som vytlacit, zobrazit viac typov tlacovych zostav. Napr.
Pripravim polozky na uhrady pre prevodne prikazy, ale typ prevodnych
prikazov moze byt:
1. tuzemnky
2. zahranicny
samozrejme ma kazdy typ iny formular.
Ja aby som nemusel do cyklu vykonavat vsetky tlace, ale by som vykonal
nejaku pripravu vsetkych typov a oni by sa nakoniec tvarili ako jedna
zostava.
Dakujem - dufam ze som to zrozumitelne vysvetlil.
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
Delphi feature nebo moje blbost ??
[*] tomsir1.edu(zv)mail.cez(tec)cz - 25.10.2001 13:22:55
OK, takze nadefinuju datovy modul, vlozim do nej TDatabase a nejake TQuery
a prilinkuju ho k programu.
Jak potom dam pri jednotlivych dll vedet ze, maji pouzit prave tento modul
?? Mam pri volani fci z dll dat do parametru handle na tento modul, nebo
jaxe to dela ?? Experimentuju s tim a je to sama vyjimka a neplatna operace
:O(
Diky Radek
"Pavel ZIDEK" <delphi(zv)kopr(tec)cz>(zv)clexpert(tec)cz on 20.11.2001 15:15:13
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: Re: Delphi feature nebo moje blbost ??
Na tyto veci pouzivej datove moduly, ktere budou globalni pro vsechny formy
Pavel
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> stala se mi nasledujici drobnost. Protoze jsem se kvuli modularite
aplikace
> rozhodl kazdy formular umistit do samostatne dll, predpokladal jsem, ze
> budu muset na kazdy formular pro pristup do DB umistit komponentu
TDatabase
> a nastavit prislusne vlastnosti. Ovsem stalo se toto : umistil jsem
> TDatabase do prvniho formulare, volal TQuery a zpracoval data, vse OK ...
> potom jsem vytvoril dalsi TForm a ejhle, na tuto Form se mi uz nepodarilo
> umistit TDatabase se stejnym Alias a DatabaseName, protoze na me Delphi
> rvaly neco o not unique name in this context ... nicmene i bez umisteni
> TDatabase na kazdy dalsi formular mi TQuery z tohoto formulare pracovaly,
> prestoze komponentu pro pristup do DB neobsahovaly !!!
> A dale, pokud jsem v editoru zavrel stranku s formularem obsahujici
> TDatabase v editoru /ClosePage/, ostatni Query na ostatnich formularich
> nefungovaly a ted uz se mi na dalsi Form podarilo TDatabase umistit a
> spravne nakonfigurovat ....
> Je toto nejaka moje neznalost nebo je to "vlastnost" ??
>
TClientSocket a C++ Builder
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 25.10.2001 15:18:26
> TSocketNotifyEvent Connect()
> {
> IsConnect = true;
> }
>
> TSocketErrorEvent Error()
> {
> Beep();
> }
>
> int main(int argc, char* argv[])
> {
>
> TClientSocket *Cs = new TClientSocket(0);
>
> Cs->OnConnect = Connect(); // !!!! hned tady se zavola
Connect
> Cs->OnError = Error();
Pokud v C za jmeno funkce das zavorku, pak se ti zavola. Pokud ho uvedes
bez zavorek, pak ten vyraz ma hodnotu adresy te funkce. Takze ty to
potrebujes bez zavorek. A pak jsou ty funkce Connect a Error spatneho
typu, zaprve to musi byt metody objektu a za druhe budou mit nejake
parametry viz help o TSocketNotifyEvent a TSockerErrorEvent.
Honza +dbf to wab
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 25.10.2001 15:43:15
Jelikoz se mi nedostalo odpovedi, zeptam se jeste jednou; jak mam prevest
zaznamy z databaze do souboru typu wab (Microsoft adressbook). Doporu�en�
komponenta od Petra Vonese toto nesplnuje (puoziva sice soubor WAB, ale
nezjistil sem, jak zadat novou polozku z jineho zdroje). Navic to nebeha jak
by melo (nejde nacist zadny soubor wab - "No argument for foramt '%s').
Nevi nekdo o nejak zpusobu nebo komponente pro D4! S pozdravem Rumcajs
Autoinkrement v MS Accesse
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 25.10.2001 15:48:41
Ahoj,
zkus nejprve nastavit pole v MS Access datab�zi m�sto autoincrement na
integer, zapsat 17, ulozit a pak pole integer znovu nastavit jako
autoincrement. Snad to bude fungovat. Nem�m moznost to zkusit, protoze na
dom�c�m poc�taci nem�m MS Access.
Petr
----- Original Message -----
From: Peter Vlkovic <vlkovic(zv)minv.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 23, 2001 5:17 PM
Subject: OT: Autoinkrement v MS Accesse
> Ahoj,
>
> potrebujem naimportovat nejake data do prazdnej tabulky
> v MS Accesse. Jedno z poli je typu AutoIncrement.
>
> Da sa nejak zaistit, aby mi autoinkrement cisloval
> od konkretneho cisla (napr. od 1)?
>
> Vdaka za radu.
>
> Vlkovic
>ISO normy (was Re: SYNAPSE: String to OID ?)
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 25.10.2001 17:16:46
> je k tomu treba parser jazyka ASN.1 (specifikace je ISO norma a je k
> dispozici jen za penize napriklad zde: www.iso.ch, fuj...). Fakt
> miluju RFCka, ktera se odkazuji na volne nedostupne definice.
*****Ne vzdy je treba normu kupovat. Krome obcasne dostupnosti
na VS a universitach je moznost podivat se do ISO norem v Praze
kousek od Biskupsky ulice (tusim, ze se to jmenuje Biskupsky
Dvur). Tam je knihovna, kde Ti _na miste_ (tedy nesmi se vynaset
ven) normu zapujci za 5-10 Kc a muzes studovat, delat si vypisky
apod. Pokud norma jiz neni ,,platna``, za poplatek Ti ji i ofoti. Mivaji
jak originaly, tak v pripade existence CSN ISO i tuto.
Slavek
> Zdravi
> D. Toman
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
ADO Connection string
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 25.10.2001 17:18:21
Dobry den,
ma ADO Connection string nejaka pevna pravidla, jak ma vypadat a
z ceho se sklada, nebo se jedna pouze o nahodny retezec?
Existuje o tom nejaky clenak na internetu?
Diky za pomoc
Karel Krtecek
ODA 3, MS Access a triedenie
[*] Erik Salaj <winsoft(zv)stonline.sk> - 25.10.2001 17:27:12
> pouzivam Opus Direct Access v. 3.5. Z nejakeho dovodu
> nefunguje triedenie - slova zacinajuce na z' (teda z
> s makcenom) sa vzdy dostanu na zaciatok, este pred
> pismeno a. To iste plati pre t' (t s makcenom).
nastav si v MS Access databaze slovenske triedenie.
Erik
Autoinkrement v MS Accesse
[*] Erik Salaj <winsoft(zv)stonline.sk> - 25.10.2001 17:29:46
> potrebujem naimportovat nejake data do prazdnej tabulky
> v MS Accesse. Jedno z poli je typu AutoIncrement.
>
> Da sa nejak zaistit, aby mi autoinkrement cisloval
> od konkretneho cisla (napr. od 1)?
po skompaktovani databazy sa v prazdnych tabulkach
zacne cislovat od 1. Ak je to mozne, tak aplikaciu
by si mal navrhovat tak, aby na konkretnych
hodnotach tychto poloziek nezalezalo.
Erik