Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Absolutni souradnice vizualniho prvku na obrazovce
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 19.7.2001 14:46:27
Diky, to je ono. Mezitim jsem zjistil, ze rada komponent ma vlastnost
ClientOrigin coz se da s uspechem pouzit.
PavelC
From: Tomas Rosa <trosa(zv)seznam(tec)cz>
> ClientToScreen
> a
> ScreenToClient
>
>
> At 14:05 19.7.2001 +0200, you wrote:
> >ahoj,
> >zaboha si nemuzu vzpomenout na to, jak se zjisti absolutni souradnice
> >vizualni komponenty na obrazovce. Napriklad jak bych zjistil absolutni
> >souradnice leveho horniho rohu TreeView. Potrebuji totiz dale zjistit
> >absolutni souradnice aktivniho node.
> >za nakopnuti predem dik
> >PavelC
Absolutni souradnice vizualniho prvku na obrazovce
[*] Ji�i Dymak <dymak(zv)volny(tec)cz> - 19.7.2001 15:00:41
Kazda komponenta odvozena z TControl ma property "Left" a "Top", ktere
udavaji pozici leveho horniho rohu.
Poloha je vztazena relativne ke kontejneru, ve kterem je umistena. Chces-li
prevest souradnice na obrazovkove, pouzij metodu "ClientToScreen". Pro
opacny prevod je k dispozici metoda "ScreenToClient".
Preji hodne uspechu
Ahoj JIDY
----- Original Message -----
From: "ing.Pavel Cabalka" <pavel_cabalka(zv)vcshk(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, July 19, 2001 2:05 PM
Subject: Absolutni souradnice vizualniho prvku na obrazovce
> ahoj,
> zaboha si nemuzu vzpomenout na to, jak se zjisti absolutni souradnice
> vizualni komponenty na obrazovce. Napriklad jak bych zjistil absolutni
> souradnice leveho horniho rohu TreeView. Potrebuji totiz dale zjistit
> absolutni souradnice aktivniho node.
> za nakopnuti predem dik
> PavelC
>
>aktualizace dat v InterBase
[*] <vaclav.sykora(zv)accidis(tec)cz> - 19.7.2001 15:25:17
dobry den,
mam problem s aktualizaci dat pod InterBase. pokud jedna aplikace udela
zmeny v databazi, tyto zmeny se v druhe aplikaci projevi az po restartu
(ukonceni/spusteni) pripojeni na Interbase. pouzivam D5Ent a komponenty
InterBase.
dekuji, v, sykora
Soubor s priponou .res
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 19.7.2001 15:28:16
Ahoj,
chci se zeptat, vcem vytvorim a otevru soubor s priponou .res ? Co to je za
soubor ? Vysvetlete mi to prosim nekdo ?
Predem Diky.
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================Pouze cisla v TEditu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.7.2001 15:45:52
A co bys �ekl na 1,23-45 ?
Stejne ti nezbyde, nez to na konci otestovat :-)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
19.7.2001 Jiri Wendl, KSH-Data:
> Tak jsem to napsal takhle a funguje to podle mych predstav.
> --------------------------------------------------------------
> procedure TEditX.KeyPress(var Key: Char);
> begin
> if not(Key in ['0'..'9',#8,',','-']) then
> Key := #0
> else
> begin
> if ((Key = ',') and (Pos(',', Text)>0))
> or ((Key = '-') and (Pos('-', Text)>0)) then
> begin
> Key := #0;
> Exit;
> end;
> inherited;
> end;
> end;
Absolutni souradnice vizualniho prvku na obrazovce
[*] Roman Toda <toda(zv)digitaldocuments.org> - 19.7.2001 15:50:03
TreeView1.ClientToScreen(const Point: TPoint): TPoint;
v rychlosti si spominam iba na TreeView1.GetNodeAt(X, Y: Integer):
TTreeNode; to je opacny proces....
LT
----- Original Message -----
From: "ing.Pavel Cabalka" <pavel_cabalka(zv)vcshk(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, July 19, 2001 2:05 PM
Subject: Absolutni souradnice vizualniho prvku na obrazovce
> ahoj,
> zaboha si nemuzu vzpomenout na to, jak se zjisti absolutni souradnice
> vizualni komponenty na obrazovce. Napriklad jak bych zjistil absolutni
> souradnice leveho horniho rohu TreeView. Potrebuji totiz dale zjistit
> absolutni souradnice aktivniho node.
> za nakopnuti predem dik
> PavelC
>
>Pouze cisla v TEditu
[*] skalsky(zv)oksystem(tec)cz - 19.7.2001 16:02:15
nemusi nic testovat, staci kdyz :
1) bude hlidat vkladani "-" mimo nultou pozici v retezci (if length retezce
> 0 ... neumozni vkladat "-")
2] udela si flag na carku/ tecku {zalezi, co bude pouzivat jako desetinnou
carku} ...
flag:= false dokud neni pouzita carka ... dosud je ji mozne kdykoliv
napsat .... jakmile vlozi des.carku, flag:=true a pak uz neni mozne vkladat
des. carku ... if (key =ord(ord_cislo_znaku_des.tecka))and not flag) then
... a pridat ten znak ... jinak znak nepridavat.
3] pokud se nebudes chtit babrat s tim, kdyz ti nekdo zada string .xxx {xxx
jsou nejaka cisla} a pak to davat jako desetinnou cast k nule, tak
jednoduse zakaz davat na nultou pozici desetinnou tecku [neco v tom smyslu
jako : if length retezce >1 ... pak muze zapis des.tecku]
... no a dochazis k tomu, ze nemas osetrenej jedinej stav, a to kdyby
nejakej truhlik zadal retezec "-.xxx" ... osetreni toho je uz jednoduche >
treba si dej flag(booleovska promenna true/false hodnoty) i na vlozeni
znamenka "-" ... je-li vlozeno, flag bude treba true ... a pak uz jen
podminka>
if (flag and length retezce < 2) ... nemozne zapsat des. tecku .... [mas-li
povolene minus akorat na pocatku stringu a stringova delka je mensi nez,
znamena to, ze je tam jenom to minus .. tudiz nekdo musi zadat alespon
nejake ciselko, abys mohl zadat des. tecku] ....
... zda se mi to sice vysvetlene jak pro blbe, ale podrobnosti neni nikdy na
skodu ... programove reseni nebude tezke pri znalostech podminky
IF-THEn-ELSE a prace s promennou boolean. Nic jineho neni k tomuhle
potreba.
P.S.
Je to jen nazor ... treba nakonec bude i vzhodnejsi testovat ten reteyec
az po vyslednem zadani ....
Milan
Milan P. Skalsk�
odd�len� technick�ho rozvoje
OK System s.r.o.
Na Pankr�ci 125
140 21, Praha 4
---
Web http://www.oksystem(tec)cz
Mail Skalsky(zv)oksystem(tec)cz
Tlf +4202/ 44021217
-----Original Message-----
From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
Sent: Thursday, July 19, 2001 3:46 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Pouze cisla v TEditu
A co bys �ekl na 1,23-45 ?
Stejne ti nezbyde, nez to na konci otestovat :-)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
19.7.2001 Jiri Wendl, KSH-Data:
> Tak jsem to napsal takhle a funguje to podle mych predstav.
> --------------------------------------------------------------
> procedure TEditX.KeyPress(var Key: Char);
> begin
> if not(Key in ['0'..'9',#8,',','-']) then
> Key := #0
> else
> begin
> if ((Key = ',') and (Pos(',', Text)>0))
> or ((Key = '-') and (Pos('-', Text)>0)) then
> begin
> Key := #0;
> Exit;
> end;
> inherited;
> end;
> end;
aktualizace dat v InterBase
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.7.2001 16:09:08
> mam problem s aktualizaci dat pod InterBase. pokud jedna aplikace
> udela zmeny v databazi, tyto zmeny se v druhe aplikaci projevi az po
> restartu (ukonceni/spusteni) pripojeni na Interbase. pouzivam D5Ent a
> komponenty InterBase.
>
Tak to bude temer jiste nespravne pouziti transakci. Tipnu si - mas
v cele aplikaci jednu komponentu IBTransaction a u ni jsi nejspis
nezkousel na ni dvojkliknout a nastavit. Dale nejspis tuto transakci
v programu prakticky nepouzivas.
Pokud se pletu, tak se omlouvam, je to jen nastrel.
David Lebeda
OT: nakup pres internet
[*] David Maly <david(zv)archa(tec)com> - 19.7.2001 16:11:16
omlovam se z OT, ale uz nevim kde se zepat:
chtel bych neco koupit pres internet (konkretne z www.tigerdirect.com),
plati se klasicky kartou, ale tu nemam.
Je mozna nejaka jina cesta? Neeexistuje u nas treba nejaka firma, ktera to
za poplatek zprostredkuje? Nebo kdyby byl nekdo ochotny... :)
Prosim odpovezte mi kdyztak na soukromy email, diky.
David
_______________________________________________
e-mail: david(zv)archa.com
DeviceMode na Win NT
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 19.7.2001 16:15:35
Ahoj,
zrovna jsem narazil na problem v nasledujicim kodu:
if PrinterSetupDialog.Execute then
begin
Obalka.Tiskarna := Printer.Printers[Printer.PrinterIndex];
Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle);
DevMode := GlobalLock(DeviceHandle);
with DevMode^ do
begin
Obalka.Papir := dmPaperSize;
Obalka.SirkaPapiru := dmPaperWidth;
Obalka.VyskaPapiru := dmPaperLength;
Obalka.Orientace := dmOrientation;
Obalka.Source := dmDefaultSource;
end;
Problem spociva v tom, ze kdyz v dialogu volim ruzne papir, tak v
dmPaperSize se meni cislo, ale dmPaperWidth a dmPaperLength obsahuje
nejaka konstantni cisla (ted zrovna rozmery papiru A5, ale jindy jine)
Zatim jsem se setkal s tim, ze bud v tech promenych byly spravne rozmery
nebo 0.
Problem je v tom, ze kdyz zavolam obraceny kod (kde plnim DevMode), tak
u nekterych tiskaren a papiru je treba nastavit pouze dmPaperSize a
jindy i dmPaperWidth a dmPaperLength (kdyz je papir User defined size).
Doted jsem to rozlisoval podle tech 0.
Objevilo se to na Win2K.
Jak tak uvazuju, na WinNT obecne asi nejde aby byl User defined size (),
tedy aby dmPaperWidth a dmPaperLength mely vyznam - muzu se ale opravdu
na to spolehnout? Nebo lze podle hodnoty dmPaperSize poznat papir s User
defined size, pokud si vzpominam, nektere tiskarny mi tam vraceli 0,
jine cca 254.
Dik Honza +
W2K Prof, D5.01
DBCheckBox
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 19.7.2001 16:33:56
Zdravim,
mam formular, kde je spousta DBCheckBoxu. Kdyz chce uzivatel dat novy zaznam, tak jsou tyto komponenty v "treti" poloze. Ani true ani false. Podle mne je to vporadku. Ale nelibi se to uzivatelum. Jde s tim neco udelat? Aby to bylo hned nastavene na false, to je prazdne?
Predem dik za jakoukoli odpoved.
S pozdravem
Mirek Drejcek
Interbase a pocet odeslanych a prijatych bajtu
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 19.7.2001 15:49:20
Lze nejak v Interbase 6.0 zjistit kolik bajtu bylo odeslano z klienta na
server a kolik jich slo od serveru ke klientovi ? Nemusi to byt nutne ani
pocet bajtu, stacil by i pocet IP paketu.
Server je WinNT4, klient je Win95, komunikace pres TCPIP po pevne lince.
Potrebuji to pro statistiku vytizeni pevnych linek komunikaci pres
Interbase.
Dekuji Marian Jonas
Pouze cisla v TEditu
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 19.7.2001 17:28:13
> A co bys �ekl na 1,23-45 ?
> Stejne ti nezbyde, nez to na konci otestovat :-) if not(Key in ['0'..'9',',','-',#0..#31]) then
Key := #0
else
begin
if ((Key = ',') and (Pos(',', Text)>0))
or ((Key = '-') and (Pos('-', Text)>0))
or ((Key = '-') and (Text<>'') and not((SelLength<>0) and (SelStart=0)))
then
begin
Key := #0;
Exit;
end;
inherited;
end;
Radsi to na konci jeste otestuju :-))
Jirka
Soubor s priponou .res
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 19.7.2001 17:40:46
Res jako resource, neboli zdroj. Je to soubor, ve kterem jsou ulozeny
napriklad textove retezce, bitmapy, ikony atd. Da se otevrit pomoci
ImageEditoru z Delphi.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
ICQ# : 119119215
Ahoj,
chci se zeptat, vcem vytvorim a otevru soubor s priponou .res ? Co to je za
soubor ? Vysvetlete mi to prosim nekdo ?
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.264 / Virov� b�ze: 136 - datum vyd�n�: 02.07.01
DBCheckBox
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 19.7.2001 17:59:11
> Zdravim,
> mam formular, kde je spousta DBCheckBoxu. Kdyz chce uzivatel dat novy
zaznam, tak jsou tyto komponenty v "treti" poloze. Ani true ani false. Podle
mne je to vporadku. Ale nelibi se to uzivatelum. Jde s tim neco udelat? Aby
to bylo hned nastavene na false, to je prazdne?
> Predem dik za jakoukoli odpoved.
>
> S pozdravem
> Mirek Drejcek
Myslim by to melo jit urcite nastavit v udalosti OnNewRecord prislusne
query, nebo napr v paradoxovske tabulce jako default value v desktopu pri
definici tabulky, ale to jsem nezkousel.
Dalik Faltynek.
OT "rozdvojka" na port
[*] Hurricane <hurricane(zv)quick(tec)cz> - 19.7.2001 18:55:40
Zdravaim
Kamarad ma seriovy scanner nebo paralelni modem ???? Predpokladam, ze chces
prepinat scanner/tiskarna. Pak kup manualni (s prepinacem, ne automaticky)
prepinac LPT portu. Vyrabi se dvou a ctyr vystupova verze. Nebo kup USB
radic. IMHO nebude o moc drazsi nez LPT prepinac. A usetris na scanneru,
takze se to vyrovna.
Hurricane
----- Original Message -----
> Kamarad chce koupit scanner, bohuzel vsak nema zadne volne porty. Ma
> zakladni desku, kde neni USB port. Zajimalo by mne, zda existuje nejaka
Icony a prostredi..
[*] Hurricane <hurricane(zv)quick(tec)cz> - 19.7.2001 18:58:52
Zdravim
Na podobne prostredi licence neni. To klidne pouzij. Ale pokud jses
puntickar a chces to mit legalni do posledniho detailu, na ty ikony asi
licenci budes muset mit. Pochybuju, ze by byly free. Nebo si namaluj vlastni
ikony, ktere budou podobne.
BTW Kdyz je v nejake aplikaci panel se zastupci programu tretich stran (s
jejich ikonami), je to free?
Hurricane
----- Original Message -----
> mam jeden maly dotaz. Potrebuju nejakou licenci od M$
> napriklad na to, kdyz pouziju jejich ikony napr. z outlooku,
> pripadne budu mit ve sve aplikaci velmi podobne prostredi jako
> maji office??Application.OnHint
[*] Hurricane <hurricane(zv)quick(tec)cz> - 19.7.2001 19:27:10
Zdravim
Namisto pevne definovaneho StatusPanel.Text := bych dal neco jako tohle:
case Screen.ActiveForm of
form1: Form1.StatusPanel.Text :=
form2: Form2.StatusPanel.Text :=
form3: Form3.StatusPanel.Text :=
Cele to prijde do OnHint hlavniho Formu.
Hurricane
----- Original Message -----
> > Tak se mi Hinty ukazuji i ve formularich ktery nejsou zamerene a je to
> > docale blbe, potreboval bych aby udalost OnHint zapisovala pouze do okna
> > ktere je navrchu.
> > Diky za kazde postrceni spravnym smerem
> obsah hintu si ukladej do nejake promenne v tom formulari od ktereho dedis
> v obsluze udalosti OnHint (FrmBasOnHint). Pak si napis metodu ktera
> pomoci Screen.ActiveForm zajisti zobrazeni ulozeneho textu jen v prave
> aktivnim okne kterou pak budes volat z FrmBasOnHint a OnActivate
> toho formulare.
OT "rozdvojka" na port
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 19.7.2001 20:30:18
Preco si nekupi USB scaner, tento treba predat to mu pojde bez problemov aj
pod W2k napr. UMAX 3400
Je to super a nieje drahy
S pozdravom Robo
> Kamarad ma seriovy scanner nebo paralelni modem ???? Predpokladam, ze
chces
> prepinat scanner/tiskarna. Pak kup manualni (s prepinacem, ne automaticky)
> prepinac LPT portu. Vyrabi se dvou a ctyr vystupova verze. Nebo kup USB
> radic. IMHO nebude o moc drazsi nez LPT prepinac. A usetris na scanneru,
> takze se to vyrovna.
odstraneni tabulatoru
[*] Hurricane <hurricane(zv)quick(tec)cz> - 19.7.2001 20:41:06
Zdravim
Jakym zbusobem napsat proceduru na odstraneni vsech tabulatoru v textovem
souboru (v mwCustomEditu) a jejich nahrazeni mezerami? Zrejme prochazet znak
po znaku, ale nevim jak na to. Mozna udelat dynamicke array of char a do
toho vzdy nacist radek po radku. Kolik mezer ma tabulator? Je to nekde
presne dane, nebo to je variabilni? Pouzivam neproporcionalni font (Courier
New). Muzete mi poradit, jak bych na to mel jit?
Diky
Hurricane
EOutOfResources
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 19.7.2001 22:44:17
On Wed, 18 Jul 2001, Petr Vones wrote:
> From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> > ze bych vycerpal vsechny prostredky... Da se to nejak zjistit? Muze to byt
> > zpusobeno vytvarenim formulare v threadu TCPServeru (Indy) bez pouziti
>
> Ahoj,
>
> muze. VCL neni threadsafe takze formulare by jsi mel vytvaret v hlavnim
> threadu. Nevidim ani zadny duvod proc to delat prave v TThread.Synchronize,
> zkratka jej vytvor jeste predtim nez vytovris/spustis thread.
>
> Petr Vones, amatersky programator
Drive to asi nepujde. Jednak se komponentu, ktera ma event OnExecute
(toho threadu), takze ja ten thread vubec nevytvarim. A jednak v tom
threadu nejprve potrebuju nacist jmeno a velikost souboru, ktery ten
TCPServer bude prijimat a pote zobrazit fomr s temito informacemi a
dotazem, jestli ten soubor chce uzivatel prijmout nebo ne a podle toho
pokracovat v tom threadu. Pokud ho prijme, musim vytvorit dalsi form s
progress barem.
M.Kralik
odstraneni tabulatoru
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 19.7.2001 22:46:59
Podivej se na zdrojak SynEditu, unita SynEditMiscProcs a hledej
ConvertTabs (nekde kolem radku 190)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
19.7.2001 Hurricane:
> Jakym zbusobem napsat proceduru na odstraneni vsech tabulatoru v textovem
> souboru (v mwCustomEditu) a jejich nahrazeni mezerami? Zrejme prochazet znak
> po znaku, ale nevim jak na to. Mozna udelat dynamicke array of char a do
> toho vzdy nacist radek po radku. Kolik mezer ma tabulator? Je to nekde
> presne dane, nebo to je variabilni? Pouzivam neproporcionalni font (Courier
> New). Muzete mi poradit, jak bych na to mel jit?ListView a velke obrazky
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 20.7.2001 00:23:20
Ahojte,
nevite nekdo prosim, jak dostanu do ListView Vetsi obrazky nez je 32x32 ?
Potreboval bych aspon 64x64. Jeste se chci zeptat, jak mam udelat res soubor
s bitmapou tak, aby se tam neznehodnotila barva. Vzdy se mi zkazi a to i
kdyz dam SuperVGA(256 colors). Poradte mi prosim nekdo.
Predem diky.
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================Bacha na cunarnu Indy
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.7.2001 02:37:55
Pratele,
tak jsem konecne prisel na to, kteri vyvojari take neumi
odinstalovavat sve programy... Pred casem jsem tak ruzne
instaloval a odinstalovaval komponenty a najednou jsem
zjistil, ze nektere byly tak hodne, ze si s sebou do vecnych
lovist vzaly take vsechny cesty Library Path v Environment
Options. Asi si dovedete predstavit, jakou jsem mel radost,
kdyz jsem musel zadavat desitky cest na vsechny ty haldy
komponent, co pouzivam... Trvalo mi to snad pul hodiny.
Od te doby si cesty obcas zalohuji do textoveho souboru.
A dnes jsem odhalil, ktere komponenty to (take) delaji.
Dejte si bacha na Indy - pekna cunarna od nich... tak pozor
na to, az budete jednou Indy odinstalovavat... Nevrone
jsem prave podekoval (ne za dnesek, to jsem mel zalohovane,
ale za minule :)))
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================pouze cisla v TEditu
[*] Petr Kukl�k <Petr.Kuklik(zv)seznam(tec)cz> - 20.7.2001 07:39:57
Podivej se na prilozeny graf, je to sice kockopes a jeste k tomu
nedeterministicky automat, ale podle jednoducheho algoritmu lze
prevest na deterministicky. Nekde v prednaskach jsem mel i reseni v
C++ a to uz by nebyl problem prevest do Delphi. Pozor, graf jsem
kreslil po ranu, kdy jeste nejsem plne nabootovany a na 100% je tam
nekde chyba. Pokud mi to cas dovoli, mohl bych ti to poslat po
vikendu hotove i v Delphi.
Petr Kuklik
PS: Pripojeny soubor je JPG, nemusite se bat viru.
PS2: Pred chvili jsem posilal stejny mail, ale soubor byl BMP,
vzhledem k tomu, ze jsem udajne prekrocil kapacitu o 256kB, posilam
vse jeste jednou.
______________________________________________________________________
Letali jste nekdy ve vlnach? My ano! http://0g(tec)cz/0109/wakeboarding
Rozdily SQL7/2000
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 20.7.2001 08:03:23
Ohledne toho 'RETURN_VALUE'. Ja pouzivam standardni ADO komponenty proti
SQL2000 se SP1 a chova se mi to stejne jako u SQL7.Resource a dialogy
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 20.7.2001 08:32:50
Zdravim.
Muzete mi nekdo poradit jak se daji pouzivat (vyvolat) dialogy nebo menu z
RES.
Diky
odstraneni tabulatoru
[*] Skala Tomas <alcatraz(zv)atlas(tec)cz> - 20.7.2001 08:34:06
Na nahrazovani je v Delphach funkce StringReplace, takze neco ve stylu:
with Memo1.Lines do Text:=StringReplace(Text, chr(VK_TAB), StringOfChar(' ', 8), [rfReplaceAll]);
by melo stacit.
Tomas Skala
> -----Puvodni zprava-----
> Od: Hurricane [SMTP:hurricane(zv)quick(tec)cz]
> Odeslano: 19. eervence 2001 20:41
> Komu: delphi-l(zv)clexpert(tec)cz
> Poedmit: odstraneni tabulatoru
>
> Zdravim
>
> Jakym zbusobem napsat proceduru na odstraneni vsech tabulatoru v textovem
> souboru (v mwCustomEditu) a jejich nahrazeni mezerami? Zrejme prochazet znak
> po znaku, ale nevim jak na to. Mozna udelat dynamicke array of char a do
> toho vzdy nacist radek po radku. Kolik mezer ma tabulator? Je to nekde
> presne dane, nebo to je variabilni? Pouzivam neproporcionalni font (Courier
> New). Muzete mi poradit, jak bych na to mel jit?
>
> Diky
> Hurricane
> IIS
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 20.7.2001 09:04:48
Ahoj,
potreboval bych z Delphi vytvorit web na IIS. Nevite nekdo jak na to?
Existuje nejaky COM (neco jako SQLDMO pro SQL server)?
Diky za jakoukoliv radu/link.
Ales
odstraneni tabulatoru
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 20.7.2001 09:48:14
> P�edm�t: RE: odstraneni tabulatoru
> Na nahrazovani je v Delphach funkce StringReplace, takze neco
> ve stylu:
>
> with Memo1.Lines do Text:=StringReplace(Text, chr(VK_TAB),
> StringOfChar(' ', 8), [rfReplaceAll]);
>
> by melo stacit.
>
> Tomas Skala
Ahoj,
tohle asi nebude to prave orechove, protoze to pouze nahradi znak TAB (09h)
osmi mezerami. Predpokladam, ze dotaz predpokladal nahradu znaku TAB
mezerami tak, aby zustalo zachovane vertikalni formatovani textu. Pokud ano,
budes muset text prochazet radek po radku, vyhledavat znak #$09, a v pripade
jeho nalezeni vlozit tolik mezer, aby nasledujici text pokracoval na
tabelacni pozici (v drevnich dobach dumb terminalu to bylo n*8 + 1, dnes
treba v IDE Delphi muzes tabelacni pozice nastavovat podle vlastni uvahy).
Jeste pripominam, ze tohle plati pouze u neproporcionalnich fontu, u
proporcionalnich to pochopitelne nema smysl.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> > Poedmit: odstraneni tabulatoru
> >
> > Zdravim
> >
> > Jakym zbusobem napsat proceduru na odstraneni vsech
> tabulatoru v textovem
> > souboru (v mwCustomEditu) a jejich nahrazeni mezerami?
> Zrejme prochazet znak
> > po znaku, ale nevim jak na to. Mozna udelat dynamicke array
> of char a do
> > toho vzdy nacist radek po radku. Kolik mezer ma tabulator?
> Je to nekde
> > presne dane, nebo to je variabilni? Pouzivam
> neproporcionalni font (Courier
> > New). Muzete mi poradit, jak bych na to mel jit?
Pozice kurzoru v RichEditu
[*] skalsky(zv)oksystem(tec)cz - 20.7.2001 09:52:05
ahojky Delphini ... potreboval bych zjistit pozici kurzoru v RichEditu .
jde to nejak ????
dik za kazdy napad ..
Milan
Stack overflow
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 20.7.2001 10:01:32
Hi,
D5, ODBCe, MS SQL7
Mam "malinkaty" problemek. Na nekterych masinkach (2 x W95, 1 x W98) mi
program pri otvirani MDI Childu zarve %subj%. Pak mi vypise ze porusil
obecnou ochranu se stavem zasobniku a pak se zavre, a neuvolni zdroje (cca
40%). Co moc nechapu je, ze kdyz hned pote spustim tu aplikaci znovu (je
trosku linejsi (ad zdroje)), tak mi to MDIChild najede bez problemu.
Nevite kudy se ubirat. Bohuzel na te masince nemuzu natahnout delphi abych
si to odkrokoval (P75, 8MB RAM). Na desitkach masinek s W9x, WNT to slape
bez problemu...
Sroub
Pouze cisla v TEditu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.7.2001 10:26:11
Ahoj,
proc vsecho tak slozite? Predpoklada se, ze uzivatel zapomene na
chvili na to, ze je to jen BFU a bude zadavat spravna cisla, proto
obsluha muze vypadat takto:
try
r := StrToFloat (Edit1.Text); //muze byt i StrToInt, dle potreby
except
Key := #0;
end;
Je jasne, ze pokud chcete stopatnacticiferne cislo, tak tohle
neuspeje.
Slavek
> if not(Key in ['0'..'9',',','-',#0..#31]) then
> Key := #0
> else
> begin
> if ((Key = ',') and (Pos(',', Text)>0))
> or ((Key = '-') and (Pos('-', Text)>0))
> or ((Key = '-') and (Text<>'') and not((SelLength<>0) and (SelStart=0)))
> then
> begin
> ...
> Jirka
>
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Jeste jednou registrace SQL serveru
[*] Ing. J�n Kuch�r <kuchar(zv)unicodesys(tec)cz> - 20.7.2001 10:51:12
ahoj
nevite nekdo nahodou jak pomoci SQL-DMO objektu zaregistrovat novy server,
nebo novou skupinu serveru do SQL 7
DIK
-------------------------------------------------------------------------
Ing. Jan Kuchar
uniCODE SYSTEMS s.r.o.
Ruska 14, Trebic 674 01
mobil : 0605 469102
e-mail : kuchar(zv)unicodesys(tec)cz
RZDirectoryListbox - (DirectoryListbox
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 20.7.2001 10:53:17
Jak zobrazit v RZDirectoryListboxu (DirectoryListboxu) adresare, ktere maji
atribut "skryty". Mozna jsem jen neco prehledl.
Diky za radu.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
TService.LogMessage
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 20.7.2001 10:56:49
Zdravim.
Co dat do TService.LogMessage do parametru ID, aby v logu nebylo:
Nelze nalezt popis ID udalosti ( 0 ) ve zdroji ( "MojeSluzba" ). Mistni
pocitac mozna nema informace registru nebo soubory knihovny DLL se zpravami
potrebne pro zobrazeni zprav ze vzdaleneho pocitace. Soucasti udalosti jsou
nasledujici informace: Muj text.
Ale jen Muj text ci neco jako Informace: Muj text.
Nebo jak nadefinovat "event source"
The ID parameter specifies the event identifier, which is the message that
goes with this event as an entry in the message file associated with the
event source.
Diiik
Petr Smol�k
psmolik(zv)fides(tec)cz
Nazory na pouzitie databazy
[*] Peter Surovy <psurovy(zv)uevora.pt> - 20.7.2001 09:56:10
Ja som rozmyslal este len o tom "ci" vobec mam db pouzit ci je vyhodnejsia
ako
txt. subory a v com su jej nevyhody?
-----Petr Brant-------------
Zalezi na tom, jestli chces pouzit napr. Paradox
ALe pokud nebudes
potrebovat rozsahle tabulky, vazby mezi nimi apod, uplne postaci obycejna
DBase. Existuji free komponenty, ktere nepotrebuji BDE.
----Peter Surovy--------------
> chcel by som sa spytat na nazory skusenejsich ohladom nasled. veci:
> Aplikacia pracuje s -poliami zaznamov-
: kazde pole sa pri prechode cyklom zapise priamo na
> disk do txt suboru co pri 30 cykloch vytvori 30 -text. suborov-.
> pripada mi to vsak dost komplikovane a navyse ked potrebujem vyhodnotit
> premennu zo vsetkych 30 suborov stale musim deklarovat
> nove a nove polia otvorit subor nacitat premennu zavriet otvorit dalsi
nacit
> a tak..Ked potrebujem prem. ktora je nakonci zaznamu musim nacitavat cely
> zaznam apod.
> Napada ma pouzit -databazu- preto by som sa chcel spytat na prip
> nevyhody:
> jedna je ze zrejme budem musiet pri instalacii programu zaviest aj
> BDEadmin. Ci nie?
>
>ListView a obrazky - prosim, specha to
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 20.7.2001 11:07:21
Ahojte,
nevite nekdo prosim, jak dostanu do ListView Vetsi obrazky nez je 32x32 ?
Potreboval bych aspon 64x64. Jeste se chci zeptat, jak mam udelat res soubor
s bitmapou tak, aby se tam neznehodnotila barva. Vzdy se mi zkazi a to i
kdyz dam SuperVGA(256 colors). Poradte mi prosim nekdo.
Predem mnohokrat diky.
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================Stack overflow
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 20.7.2001 11:09:03
Mam podobny problem a nie je to ani pri MDI CHild.
Robi to iba na 1 masine P166 16MB ram a nemam tam nic specialneho...
P.
>
> si to odkrokoval (P75, 8MB RAM). Na desitkach masinek s W9x, WNT to slape
> bez problemu...
>
> Sroub
> Matice
[*] cis <cis(zv)atlas(tec)cz> - 20.7.2001 11:12:21
Hi
nemate nekdo nejake poznatky ohledne nejakych knihoven pro praci s maticemi
(se zdrajaky)
Diky
alda
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 10.5.2001
None
[*] brant(zv)dcomm(tec)cz - 20.7.2001 11:38:38
Ahoj vsem,
pouzivam (bohuzel) Paradox/BDE a pri sitovem provozu je znatelne
"zasekavani", kdyz dva nebo vice uzivatelu prochazeji v DBGridu tutez
tabulku. Nemate nekdo nejaky tip, radu, odkaz, jestli se to da zrychlit? (za
rady typu "zahod BDE" dekuji, ale bohuzel to nezavisi na me).
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
jak zjistim adresar program files?
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 20.7.2001 11:44:06
V registrech \HKEY_Local_Machine\Software\Microsoft\Windows\CurrentVersion a
je to promenn� ProgramFilesDir nebo ProgramFilesPath
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
From: Ales Vasicek [mailto:vasicek(zv)ecommerce(tec)cz]
Sent: Thursday, July 19, 2001 9:19 AM
Subject: jak zjistim adresar program files?
nevite nekdo jak zjistim adresar program files pomoci API? Potrebuju,
aby to chodilo na W95 i NT.Email - kontrola
[*] Vlastimil Zden�k <gestore(zv)wo(tec)cz> - 20.7.2001 10:52:11
Zdravim, D5 Ent, SQL 7.0
prosil bych o radu: Jak zkontrolovat postu na dosly mail?
Potreboval bych zkontolavat postu (Outlook?? Express ??), jestli neprisel
mail s konkretnim nazvem.
Kontrola by mohla probehnout treba pri spusteni meho EXE a podle toho dale
pracovat s prilohou v teto poste.
Take by bylo asi doble vedet, kde ta priloha je fyzicky ulozena ...
Diky z rady
Vlasta
OT: FF konference
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.7.2001 11:54:37
Ahoj,
prihlasil jsem se do konference o FlashFileru, ale nezda se mi byt
moc ziva. Chci se proto zeptat programatoru z teto konfery, kteri
pouzivaji nebo pouzivali FlashFiler, zda jsou prihlaseni i v
konferenci FF. Jde mi o to, jestli ma smysl pripadne dotazy posilat
do obou, nebo staci pouze do FF konference - abych se neokradl o
neci cenne rady.
Diky.
David Lebeda
FF konference
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 20.7.2001 12:21:17
Ja jsem taky prihlasen do FF konference, a muj nazor je, ze by dotazy na FF
mely byt v DELPHI konferenci, protoze mnoho dotazu je spolecnych s
jakoukoliv databazi.
A mozna by to prilakalo i jine programatory, kteri nevi jakou databazi
pouzivat.
Pavel
> prihlasil jsem se do konference o FlashFileru, ale nezda se mi byt
> moc ziva. Chci se proto zeptat programatoru z teto konfery, kteri
> pouzivaji nebo pouzivali FlashFiler, zda jsou prihlaseni i v
> konferenci FF. Jde mi o to, jestli ma smysl pripadne dotazy posilat
> do obou, nebo staci pouze do FF konference - abych se neokradl o
> neci cenne rady.
>
Pozice kurzoru v RichEditu
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 20.7.2001 12:31:58
> ahojky Delphini ... potreboval bych zjistit pozici kurzoru v RichEditu .
> jde to nejak ????
Je to
property CaretPos: TPoint;
Description
Use CaretPos to determine the coordinates of the cursor. CaretPos indicates the X and Y position (in pixels) relative to the client origin of the memo.
To determine the position of the caret in terms of characters of text rather than physical location, use the SelStart property.
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 (0601 203084]
=========================================IIS
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 20.7.2001 12:45:42
> Odes�latel: Ales Vasicek <vasicek(zv)ecommerce(tec)cz>
> potreboval bych z Delphi vytvorit web na IIS. Nevite nekdo jak na to?
> Existuje nejaky COM (neco jako SQLDMO pro SQL server)?
Promin, ale nerozumim otazce, co je vlastne treba z Delphi vytvorit.
My na IIS (www.ebyznys(tec)cz) pouzivame na veskere sluzby na serveru zasadne ASP + COM objekt napsany v Delphi nebo MSVC++.
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 (0601 203084]
=========================================FF konference
[*] Milan Hora <ivar(zv)ivar(tec)cz> - 20.7.2001 12:55:48
Ahoj,
sleduj news.turbopower.com, tam je velmi zivo. Napr. dnes byl uvolnen patch
FF 2.03
Milan
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 20, 2001 11:54 AM
Subject: OT: FF konference
> Ahoj,
>
> prihlasil jsem se do konference o FlashFileru, ale nezda se mi byt
> moc ziva. Chci se proto zeptat programatoru z teto konfery, kteri
> pouzivaji nebo pouzivali FlashFiler, zda jsou prihlaseni i v
> konferenci FF. Jde mi o to, jestli ma smysl pripadne dotazy posilat
> do obou, nebo staci pouze do FF konference - abych se neokradl o
> neci cenne rady.
>
> Diky.
>
> David Lebeda
>
aktualizace dat v InterBase
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 20.7.2001 13:20:30
> Odes�latel: vaclav.sykora(zv)accidis(tec)cz
> mam problem s aktualizaci dat pod InterBase. pokud jedna aplikace udela
> zmeny v databazi, tyto zmeny se v druhe aplikaci projevi az po restartu
> (ukonceni/spusteni) pripojeni na Interbase.
To muze mit v zasade dva duvody:
Budto aplikace, ktera data zapisuje, nezavola Commit (CommitRetaining).
U transakce je DefaultAction=TACommit, takze pri zavreni aplikace se Commit provede.
Nebo aplikace, ktera chce data cist, data nevidi.
Data, ktera se nacetla do aplikace, to je vlasne vysledek nejakeho selectu, ktery se zavolal v ramci nejake transakce.
Jak bude tento vysledek vypadat, to zavisi na typu transakce (snapshot, read-commited, ...).
Default je tusim snapshot.
Proto, podobne, jako kdyz pouzijes ISQL z IBConsole, musis transakci nejprve ukoncit (commit).
Dataset (TIBDataset) se pritom ovsem zavre, musis ho proto znovu otevrit (+ locate na prislusny zaznam).
TIBDataset ma sice metodu Refresh, ale ta funguje jenom na aktualni zaznam, navic transakce by asi mela byt read-commited.
Honza
O transakcich v InterBase se ovsem da povidat dost dlouho (viz V.Bodecek a kurz IB6/IBX).
=========================================
= 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 (0601 203084]
=========================================Resource a dialogy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.7.2001 13:23:39
Subject: Resource a dialogy
> Zdravim.
> Muzete mi nekdo poradit jak se daji pouzivat (vyvolat) dialogy nebo
menu z
> RES.
napriklad:
DialogBox(HInstance,MakeIntResource(100),0,(zv)DlgProc);
D. Toman
OT: Cesky preklad pro Wise for Windows Installer
[*] Mat�j Kastner <delphicz(zv)stereo(tec)cz> - 20.7.2001 13:37:22
Uvazujeme o koupi Wise for Windows Installeru. Je vsak v jinych jazycich nez
cestina.
Language pack je stejne drahy jako samotny Wise a tak hledame cesky preklad
textu.
Byl by nekdo ochoten po vzajemne dohode poskytnout cesky preklad Wise for
Windows Installeru?
Dekuji
Miloslav Skacel
OT: FTP na IIS
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 20.7.2001 13:59:56
Ahoj,
sorry za off topic, ale neviem si dat rady
s nastavenim IIS na Windows NT-ckach, tak
aby mi fungovala sluzba FTP na urcenych
adresaroch (vratane anonymous).
Ma s tym niekto skusenosti?
Vlkovic
Matice
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 20.7.2001 14:20:40
> Hi
> nemate nekdo nejake poznatky ohledne nejakych knihoven pro praci
> s maticemi
> (se zdrajaky)
Ruzne knihovny jsou napr. tady:
http://www.programmersheaven.com/zone24/cat416/index.htm
Kdysi jsem potreboval pocitat vlastni cisla matice a tusim, ze jsem to
nasel v balicku
NRPAS13.ZIP "Numerical Recipes in Pascal" source code (400+ files)
T.
Stack overflow
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 20.7.2001 14:50:12
Tak jsem postupne prochazel, odebral a zase pridal komponenty a mam takove
podezreni. Nepouzivas tam z RxLib ComboEdity, DateEdity nabo RxCalcEdity?
Pote co jsem je odstrelil, tak je vse OK... Po vikendu mozna budu vedet
vice, ale skoro bych si tipnul bud na ty bitmapy nebo na operace s cisly.
Kdyz tak mi napis co tam pouzivas za komponenty.
Sroub
Ta W98 je Celeron 400 a 64 MB RAM
> Mam podobny problem a nie je to ani pri MDI CHild.
>
> Robi to iba na 1 masine P166 16MB ram a nemam tam nic specialneho...TMemo.OnChange
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 20.7.2001 15:21:47
Ahoj,
pouzivam tuto udalost, abych zjistil, ze se zmenil text v memo. Jenze mi
to nefunguje pro prikazy pres popupmenu (defaultni). Text se zmeni, ale
udalost se nevygeneruje. Nevite nekdo, co s tim?
Vaclav Sazima
TService.LogMessage
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 20.7.2001 16:13:45
DDV,
uz je to davno, takze nebudu zdaleka presny, mam pocit, ze v MSDN to jde
najit - jenz eted MSDN nemam, takze presne nepocim.
V zasade je treba udelat resource DLL obsahujici texty typu "Doslo k chybe
na prostredku %s" a pak se zaloguje pres ReportEvent() -- mozna to maji
Delphi nejak zabalene -- a eventviewer udela to, ze se podiva do tveho DLL
se zdroji textu a vlozi zalogovanou hlaasu na spravne misto.
Aby to nebylo tak jednoduche, tak si pamatuji, ze to resource DLL jsem musel
kompilovat z unicode textu a jeste to muselo obshovat identifikatory jazyka
(405, 409....).
Fci, kterou se registruje ta DLL si bohuzel nepamatuji.
Vysledek byl ten, ze to cele bylo tak pracne, ze jsem na to nakonec vykaslal
a hol v logu bylo napsano, ze neni resource s textem, hlavnme ze tam byla
hlaska, kterou jsem tam chtel dostat.
a.
> -----Original Message-----
> From: Petr Smol�k [mailto:psmolik(zv)fides(tec)cz]
> Sent: Friday, July 20, 2001 10:57 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: TService.LogMessage
>
>
> Zdravim.
>
> Co dat do TService.LogMessage do parametru ID, aby v logu nebylo:
>
> Nelze nalezt popis ID udalosti ( 0 ) ve zdroji ( "MojeSluzba"
> ). Mistni
> pocitac mozna nema informace registru nebo soubory knihovny
> DLL se zpravami
> potrebne pro zobrazeni zprav ze vzdaleneho pocitace. Soucasti
> udalosti jsou
> nasledujici informace: Muj text.
>
> Ale jen Muj text ci neco jako Informace: Muj text.
>
> Nebo jak nadefinovat "event source"
>
> The ID parameter specifies the event identifier, which is the
> message that
> goes with this event as an entry in the message file
> associated with the
> event source.
>
> Diiik
>
> Petr Smol�k
> psmolik(zv)fides(tec)cz
>
> FTP na IIS
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 20.7.2001 17:01:35
Zdar,
zaprve je potreba povolit dane uzivatele v nastaveni FTP serveru (treba
povolit anonymous uzivatele...).
Za druhe je potreba nastavit prava na FS, nebot jak se pise v helpu, FTP
(potazmo IIS) je integrovano do systemu.
To znamena nastavit security pro IUSR_COMPUTERNAME pro adresare, kde mam mit
pristup...
Ozon
P.S. Pokud by to nestacilo, tak se ozvete...
> Ahoj,
>
> sorry za off topic, ale neviem si dat rady
> s nastavenim IIS na Windows NT-ckach, tak
> aby mi fungovala sluzba FTP na urcenych
> adresaroch (vratane anonymous).
> Ma s tym niekto skusenosti?
>
> Vlkovic
OT "rozdvojka" na port
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 20.7.2001 17:38:28
Ahoj,
no ja nevim, ale skenery s paralelnim rozhranim
byvaji vetsinou pruchozi a tiskarna se pripoji na
druhy konektor za skener, dalsi port k tomu netreba,
takze co vlastne resis?
### Hurricane napsal dne 19 Jul 01, v 18:55 :
> Zdravaim
>
> Kamarad ma seriovy scanner nebo paralelni modem ???? Predpokladam, ze
> Hurricane
>
> ----- Original Message -----
>
> > Kamarad chce koupit scanner, bohuzel vsak nema zadne volne porty. Ma
> > zakladni desku, kde neni USB port. Zajimalo by mne, zda existuje nejaka
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
OT: FTP na IIS
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 20.7.2001 17:52:55
Ahoj,
zkus newsy na news.microsoft(tec)cz:
cz.microsoft.podpora
cz.microsoft.podpora.internet
ev.
cz.microsoft.podpora.windows2000
(dotaz je malo konkretni :-(
### Peter Vlkovic napsal dne 20 Jul 01, v 13:59 :
> Ahoj,
>
> sorry za off topic, ale neviem si dat rady
> s nastavenim IIS na Windows NT-ckach, tak
> aby mi fungovala sluzba FTP na urcenych
> adresaroch (vratane anonymous).
> Ma s tym niekto skusenosti?
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
klavesnice a posun formu
[*] nba <nbanow(zv)atlas(tec)cz> - 20.7.2001 20:03:23
Dobry den,
pred nedavnem se tady nekdo ptal na zjisteni klavesy F8 protoze me to
zajimalo skusil sem to pomoci OnKeyPress testuji zda se nerovna #0 ale to
neni nikdy mohl by mi nekdo poradit?
A druha otazka jaka vyjimka se vyvola pri posouvani Formu po plose.
Dekuji za odpovedi.OT: program na tvorbu skin�
[*] Milan ��ek - 20.7.2001 20:04:09
ahoj, mam jeste jeden dotaz: nevite nekdo o nejakym programku, ktery by
jednoduse dokazal vytvaret skiny? Mam namysli, ze bych si treba nakreslil
1vrstvu, pak aplikoval libovolnou texturu a program by sam vystinoval atp.
Zkousim to v Adobe Photoshopu, ale prilis mi to nejde :(
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
klavesnice a posun formu
[*] Ing. Keder Vladim�r <vkeder(zv)iol.sk> - 20.7.2001 20:29:26
Ahoj
musis to testovat v udalosti KeyDown. Napr. takto :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key= 119 then {stlacil F8}
begin
...
end;
end;
alebo pre viac klaves takto :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
119: begin { stlacil F8}
....
end;
end;
end;
Vlado
----- Original Message -----
From: "nba" <nbanow(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 20, 2001 8:03 PM
Subject: klavesnice a posun formu
> Dobry den,
> pred nedavnem se tady nekdo ptal na zjisteni klavesy F8 protoze me to
> zajimalo skusil sem to pomoci OnKeyPress testuji zda se nerovna #0 ale to
> neni nikdy mohl by mi nekdo poradit?
> A druha otazka jaka vyjimka se vyvola pri posouvani Formu po plose.
> Dekuji za odpovedi.WIN a paralelni port
[*] gadourek <gadourek(zv)centrum(tec)cz> - 20.7.2001 22:11:46
Ahoj,
potrebuju nacist nekolik bytes z LPT portu a ulozit je do TXT souboru. Da se
cist paralelni port v D4?
Diky za radu Petr
TService.LogMessage
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 20.7.2001 22:41:24
:))
Bude to v cecku, ale to je v pohode (jinak je to komplet popsane v MSDN)...:
V registry v klici
HKLM\SYSTEM\CurrentControlSet\Services\Eventlog\Application (pokud se maji
zpravy objevovat v Application logu) se vytvori novy podklic s nazvem (treba
XYZ) - pak se zapisuje jako XYZ (v Cecku to resim v
OpenEventLog(L"nazev_stroje",L"XYZ") ... ).
V tomto podklici budou polozky:
EventMessageFile - REG_SZ (string) - nazev .dll ktera obsahuje zdroje pro
zpravy
CategoryMessageFile - REG_SZ (string) - .dll, ktera obsahuje kategorie pro
zpravy
TypesSuported - REG_DWORD - (napr. EVENTLOG_ERROR_TYPE |
EVENTLOG_WARNING_TYPE | EVENTLOG_INFORMATION_TYPE) - ted nevim presne
hodnoty - mozno nalezt v MSDN.
Pokud ta .dll knihovna obsahuje kategorie i eventy, tak se jeste prida
Category Count, ktery rika, kolik kategorii je - pak jsou identifikatory
kategorii od 1 a identifikatory eventu musi byt od nejakeho cisla, ktere uz
nespada do CategoryCount (pochopitelne ;)).
Tak knihovna se udela tak, ze se vytvori popisny soubor pro message:
---ukazka---
MessageIdTypedef=DWORD
SeverityNames=(Success=0x0:STATUS_SEVERITY_SUCCESS
Informational=0x1:STATUS_SEVERITY_INFORMATIONAL
Warning=0x2:STATUS_SEVERITY_WARNING
Error=0x3:STATUS_SEVERITY_ERROR
)
FacilityNames=(System=0x0:FACILITY_SYSTEM
Runtime=0x2:FACILITY_RUNTIME
Stubs=0x3:FACILITY_STUBS
Io=0x4:FACILITY_IO_ERROR_CODE
)
LanguageNames=(English=0x409:MSG00409)
LanguageNames=(Japanese=0x411:MSG00411)
LanguageNames=(Czech=0x405:MSG00405)
MessageId=0x1
Severity=Success
Facility=System
SymbolicName=LOGONOFF_CAT_LOGON
Language=English
Logon event
.
MessageId=0x2
Severity=Success
Facility=System
SymbolicName=LOGONOFF_CAT_LOGOFF
Language=English
Logoff event
.
MessageId=0x1000
Severity=Success
Facility=System
SymbolicName=LOGONOFF_LOGON
Language=English
User %2\%1 logged on.
.
MessageId=0x1001
Severity=Success
Facility=System
SymbolicName=LOGONOFF_LOGOFF
Language=English
User %2\%1 logged off.
.
---konec ukazky---
Tomuto souboru se da pripona .mc.
Pak se zkompiluje Microsoft (R) Message Compilerem...;) (ten je obsazen
treba v Visual Studiu).
Vznikne soubor MSG00409.bin (ponevadz mam jen anglicke popisky).
Ten se vlozi do resourcu knihovny a zkompiluje se to do .dll
No a pak se zkopiruje na system, kde se pouziva...
Pak se otevre eventlog viewer (neni treba restartovat pocitac...), ten si
pri zobrazovani tvych messages natahne resources z dll podle jazyka a
zobrazuje (podle mne staci pouze anglicka mutace...).
Je toho trochu moc ;), pokud bude zajem, poslu zdrojak (ale v VIsual C++ 6)
Ozon
> DDV,
>
> uz je to davno, takze nebudu zdaleka presny, mam pocit, ze v MSDN to jde
> najit - jenz eted MSDN nemam, takze presne nepocim.
>
> V zasade je treba udelat resource DLL obsahujici texty typu "Doslo k chybe
> na prostredku %s" a pak se zaloguje pres ReportEvent() -- mozna to maji
> Delphi nejak zabalene -- a eventviewer udela to, ze se podiva do tveho DLL
> se zdroji textu a vlozi zalogovanou hlaasu na spravne misto.
>
> Aby to nebylo tak jednoduche, tak si pamatuji, ze to resource DLL
> jsem musel
> kompilovat z unicode textu a jeste to muselo obshovat
> identifikatory jazyka
> (405, 409....).
>
> Fci, kterou se registruje ta DLL si bohuzel nepamatuji.
>
> Vysledek byl ten, ze to cele bylo tak pracne, ze jsem na to
> nakonec vykaslal
> a hol v logu bylo napsano, ze neni resource s textem, hlavnme ze tam byla
> hlaska, kterou jsem tam chtel dostat.
>
> a.
>
> > Zdravim.
> >
> > Co dat do TService.LogMessage do parametru ID, aby v logu nebylo:
> >
> > Nelze nalezt popis ID udalosti ( 0 ) ve zdroji ( "MojeSluzba"
> > ). Mistni
> > pocitac mozna nema informace registru nebo soubory knihovny
> > DLL se zpravami
> > potrebne pro zobrazeni zprav ze vzdaleneho pocitace. Soucasti
> > udalosti jsou
> > nasledujici informace: Muj text.
> >
> > Ale jen Muj text ci neco jako Informace: Muj text.
> >
> > Nebo jak nadefinovat "event source"
> >
> > The ID parameter specifies the event identifier, which is the
> > message that
> > goes with this event as an entry in the message file
> > associated with the
> > event source.WIN a paralelni port
[*] Hurricane <hurricane(zv)quick(tec)cz> - 20.7.2001 23:21:14
Zdravim
Existuje komponenta TSmallPort, ta to umi stejne jako ve starem Pascalu.
Muzu poslat. NEvim jiste, ale myslim, ze funguje jen v 9x rade.
Hurricane
----- Original Message -----
> potrebuju nacist nekolik bytes z LPT portu a ulozit je do TXT souboru. Da
> se cist paralelni port v D4?
odstraneni tabulatoru
[*] Hurricane <hurricane(zv)quick(tec)cz> - 20.7.2001 23:45:47
Zdravim
Presne tak. Samozrejme se jedna o neproporcionalni font. Zalezi pouze na
tom, kolik mezer se vejde do jednoho TABu. Muj editor mi ukazuje ze 8. Tady
se nehraje na tabelacni pozice (pomyslne svisle cary), na ktere se nastav�
kurzor. Dnes je TAB urcity pocet mezer. Prave ze urcity. Tipnul bych si, ze
8 je nejcastejsi hodnota, ale ze to jde zmenit. Co myslite, muzu tam natvrdo
dat tech 8?
Nize uvedeny kod funguje az na to, ze na zacatek prida prazdny radek. To
samozrejme nechci. Cim to?
Hurricane
----- Original Message -----
> > Na nahrazovani je v Delphach funkce StringReplace, takze neco
> > ve stylu:
> >
> > with Memo1.Lines do Text:=StringReplace(Text, chr(VK_TAB),
> > StringOfChar(' ', 8), [rfReplaceAll]);
> >
> > by melo stacit.
> >
> > Tomas Skala
>
> Ahoj,
>
> tohle asi nebude to prave orechove, protoze to pouze nahradi znak TAB
> (09h) osmi mezerami. Predpokladam, ze dotaz predpokladal nahradu
> znaku TAB mezerami tak, aby zustalo zachovane vertikalni formatovani
> textu. Pokud ano, budes muset text prochazet radek po radku,
> vyhledavat znak #$09, a v pripade jeho nalezeni vlozit tolik mezer,
> aby nasledujici text pokracoval na
> tabelacni pozici (v drevnich dobach dumb terminalu to bylo n*8 + 1, dnes
> treba v IDE Delphi muzes tabelacni pozice nastavovat podle vlastni uvahy).
> Jeste pripominam, ze tohle plati pouze u neproporcionalnich fontu, u
> proporcionalnich to pochopitelne nema smysl.
OT: FTP na IIS
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 21.7.2001 09:52:44
> > sorry za off topic, ale neviem si dat rady
> > s nastavenim IIS na Windows NT-ckach, tak
> > aby mi fungovala sluzba FTP na urcenych
> > adresaroch (vratane anonymous).
> > Ma s tym niekto skusenosti?
Myslis jako virtualni adresare ? Dotaz je celkem obecny, dalo by se toho
napsat 10 papiru A4.
M.S.
RZDirectoryListBox -DirectoryListBox pokus 2
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 21.7.2001 10:18:45
Poradi nekdo jak zobrazit v RZDirectoryListBoxu nebo DirectoryListBoxu
adresare, ktere maji atribut Hiden.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.7.2001
odstraneni tabulatoru
[*] 3dimension <3dimension(zv)atlas(tec)cz> - 21.7.2001 11:58:05
Tabulator je desitkove 8.
Takze staci potom jednoducha podminka if ... .
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, July 19, 2001 8:41 PM
Subject: odstraneni tabulatoru
> Zdravim
>
> Jakym zbusobem napsat proceduru na odstraneni vsech tabulatoru v textovem
> souboru (v mwCustomEditu) a jejich nahrazeni mezerami? Zrejme prochazet
znak
> po znaku, ale nevim jak na to. Mozna udelat dynamicke array of char a do
> toho vzdy nacist radek po radku. Kolik mezer ma tabulator? Je to nekde
> presne dane, nebo to je variabilni? Pouzivam neproporcionalni font
(Courier
> New). Muzete mi poradit, jak bych na to mel jit?
>
> Diky
> Hurricane
>
>Aplikace pro Windows 3.1
[*] Martin Kr� <MKrc(zv)seznam(tec)cz> - 21.7.2001 13:03:51
Zdravim!
Zajimalo by me, jak mohu v Delphi 5 vytvorit aplikaci pro Windows 3.1. Jde
to vubec?
Dekuji za odpoved!
S pozdravem
Martin Krc
Koroner(zv)quick(tec)cz
Aplikace pro Windows 3.1
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 21.7.2001 13:38:21
Nejde. Pro Windows 3.1 pouzij Delphi 1.0
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> Zajimalo by me, jak mohu v Delphi 5 vytvorit aplikaci pro
> Windows 3.1. Jde
> to vubec?CheckBox v Gridu
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 21.7.2001 14:28:41
Ahoj mam hodnoty v gridu 0,1 a potreboval bych je vizualne pri otevreni
gridu nahradit checkboxem, neporadite mi nekdo?Nekde jsem to videl,ale uz si
nemohu vzpomenout, pomozte mi prosim
V soucasnosti to resim jinak ale trva to zbytecne dlouho..
Aldik
Amater vsech amateru... D5 Ent. W98
Data do SQL (insert nebo update)
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 21.7.2001 14:51:29
Potreboval bych prevadet data v tabulce do prikazu insert nebo update v
pripade opravy, nemate nekdo nejakou komponentu nebo uz hotovy program ktery
to resi? Dekuji
Aldik Pavel amater vsech amateru kral D5 Ent W98
Spojeni dvou souboru
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 21.7.2001 17:32:29
Ahoj
Pred uzavrenim aplikace bych potreboval spojit 2 soubory (tabulky) do
jednoho souboru
tak aby navenek vystupoval jako jeden (pro snazsi distribuci). A zase pri
otevirani aplikace
tento soubor rozdelit na puvodni soubory. Vzhledem k tomu ze velikost
souboru muze
byt az nekolik desitek MB. rad bych vedel o nejakem pametove setrnem
zpusobu a zaroven primerene rychlem. Zatim jsem zkousel streamove operace
ale nejak mi to rychle
nebeha.
S pozdravem Heinisch Jiri
Problem s triggerama na IBM DB/2, D5.01prof, prist
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 21.7.2001 23:38:08
Hi all,
zapasime tu s takovou ptakovinou na DB/2. Mame nadefinovany trigger:
create trigger MxPCQ$p1pk no cascade before
insert on MxPCQ$
referencing new as n
for each row mode db2sql
set (n.p1pk) = (select value(max(p1pk),0) + 1 from MxPCQ$);
kde pole P1PK je INTEGER a ma index:
CREATE INDEX MxPCQ$xPK ON MxPCQ$(P1PK);***
Ted ten problem: kdyz spustime prikaz
INSERT INTO MxPCQ$
SELECT * FROM MxPCQ
tak pole P1PK ma hodnotu 1 pro vsechny zaznamy v tabulce.
Kdyz ale vkladame jen po jedne polozce napr. takto:
INSERT INTO MxPCQ$
SELECT * FROM MxPCQ WHERE (...)
Tak se ten trigger spousti a kazda z takto vlozenych polozek ma v poli
P1PK unique hodnotu.
Na IB6 to pracuje normalne, i kdyz tam ten trigger samozrejme vypada
jinak.***
Nesetkal se nekdo s necim podobnym nebo neumel by mi nekdo poradit
neco jineho, nez vsechna data natahnout na klienta a pak je zase
strkat zpatky?
Diky, pf
Programovani bez VCL
[*] <bukaj(zv)iol(tec)cz> - 21.7.2001 19:03:07
Dobry den,
potreboval jsem zmensit me programy (jednoduche). Jeden muj znamy mi poradil
programovat bez VCL, pry psat vsecno do project.dpr. Vic mi nerekl, poradite
mi nekdo?
Kuba
1px ohrani�en� Editu
[*] Milan ��ek - 21.7.2001 20:02:02
ahoj,
nevite nekdo, jak prinutit edit, aby mel kolem sebe ohraniceni 1px v jedne
barve? Obchazim to tak, ze nastavim BorderStyle na none a pod edit vlozim
treba shape. Program pak ale zere mnohem vic prostredku, takze je to ve
vetsim poctu nepouzitelne :(
Dik
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Spojeni dvou souboru
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 22.7.2001 08:46:55
> Odes�latel: Heinisch Jiri <deis(zv)deis(tec)cz>
> Pred uzavrenim aplikace bych potreboval spojit 2 soubory (tabulky) do
> jednoho souboru
> tak aby navenek vystupoval jako jeden (pro snazsi distribuci). A zase pri
> otevirani aplikace
> tento soubor rozdelit na puvodni soubory.
Zkusil bych to zapakovat (zlib), tim tomu urcite neublizim.
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 (0601 203084]
=========================================1px ohrani�en� Editu
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 22.7.2001 08:52:18
> Odes�latel: Milan #ݿek <cizek.milan(zv)seznam(tec)cz>
> nevite nekdo, jak prinutit edit, aby mel kolem sebe ohraniceni 1px v jedne
> barve? Obchazim to tak, ze nastavim BorderStyle na none a pod edit vlozim
> treba shape. Program pak ale zere mnohem vic prostredku, takze je to ve
> vetsim poctu nepouzitelne :(
Vytvor si svoji vlastni komponentu
TMyEdit = class (TEdit)
...
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 (0601 203084]
=========================================Programovani bez VCL
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.7.2001 09:59:02
> Dobry den,
> potreboval jsem zmensit me programy (jednoduche). Jeden muj znamy mi poradil
> programovat bez VCL, pry psat vsecno do project.dpr. Vic mi nerekl, poradite
> mi nekdo?
no ono to o moc vic k povidani neni. Proste nepouzijes Forms knihovnu (a jine, ktere ji vyzaduji).
Samozrejme nemusis vsechno psat do DPR (muzes pouziti dalsi knihovny), ale casto se to tak dela (zvlaste jde-li o pravdu o neco kratkeho)
Pokud program nepotrebuje zadna okna, pak je prelozis jako konzoolvou aplikaci. POtrebujes-li nejaka okna pak bud pouzijes WinAPI pro vykresleni a ovladani okna nebo pouzijes nejakou nahrazku za VCL (XCL napriklad)
D. Toman
Jak na ClientSocket a ServerSocket
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 22.7.2001 10:57:26
Ahoj,
$(Delphi) je adresar, kde mas nainstalovane delphi, takze cele to muze
vypadat nejak takto:
C:\Delphi5\demos\internet\chat
Ales
> -----Original Message-----
> From: Roman [mailto:roman.ozana(zv)sendme(tec)cz]
>
> Tuhle adresu jsem nejak nepochopil muzes ji napsat presneji Dik Roman
> > podivej se do adresare $(Delphi)\Demos\Internet\Chat
> >
> > Petr Vones, amatersky programator
Download z I-netu rozbaleni a zabaleni packu
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 22.7.2001 11:25:41
Ahoj mel bych takovou ideu.Zabalit malou tabulku paradoxu a pod specialnim
packnazvem ji nacpat pres FTP na net.Jenze
1)Existuje nejaka free pack/unpack komponenta,nebo v nejhorsim nemate nekdo
zkusenost s komunikaci pres OLE s Winzipem nebo Winrarem
v podstate je mi jedno co to za balici komponentu bude ucelem je rychlost
prenosu tj. co nejmensi velikost vysledneho packu.
Take jsem se zasekl na jedne drobnosti, mozna bych na to prisel sam,ale kdyz
uz jsem tuna.
Volam connect componentou NMFTP a kdyz se mi objevi Dialog na pripojeni k
internetu pomoci modemu dam storno.Tady je vse ok mam osetrenou vyjimku a ta
zahlasi ze nelze navazat komunikaci.Ale pokud do z opakuju jiz se mi
neobjevi dialog o pripojeni a jde to ihned do chybove hlasky. Nejak si to
pamatuje ze komunikace byla stornovana. Ja se ptam jak to setrit aby kdyz
udelam jedno storno,nemusel jsem opoustet aplikaci,ktera si blbec pamatuje
ze jsem sel do Storna, ale znovu se pokusila o komunikaci a vyvolala dialog
okno o pripojeni.
Diky velice
Aldik
D5 Ent.W98 Amater vsech amateru kral (nesnazim se ale odstavit Petra
Vonese....prave naopak)Aplikace pro Windows 3.1
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 22.7.2001 11:26:16
Presne tak je to kvuli prechodu ze 16bit/32bit nebo tak nejak ze? Jednicky
jsou
tusim standartne pridavany do baliku ne?
> Nejde. Pro Windows 3.1 pouzij Delphi 1.0
>
>
> > Zajimalo by me, jak mohu v Delphi 5 vytvorit aplikaci pro
> > Windows 3.1. Jde
> > to vubec?
>
>
memory table + pamalost po filtraci
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 22.7.2001 11:34:35
Ahoj
Chtel bych zacit pouzivat pametovou tabulku kbmMemTable z
http://delphi.e-indexit.com/
Pri pozadavku filtrace a pri existenci vetsiho mnozstvi zaznamu (asi 10
000) . je vlastni provedeni docela rzchle ale nasledujici prochazeni
databazi pres grid zoufale pomale. Nevite zda se jedna o rys komponety nebo
mam neco blbe nastaveno.
+
Nevite kde sehnat nejaky k teto komponete
S pozdravem Heinisch Jiri
Jak na ClientSocket a ServerSocket
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 22.7.2001 11:50:25
$(Delphi) = cesta kde mas nainstalovanou delphi napr. C:\program
files\borland\delphi5\
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.07.2001
Jaka lokalni souborova databaze ?
[*] Filip Honzarek <DEVELOPER(zv)pcforum(tec)cz> - 22.7.2001 12:30:35
Zdravim,
Kdyz pouziji MDAC a nastroje od (www.delphi.pari.bg).
Melo by byt vse v poradku?
Diky.
Filip Honzarek
JD> ahoj,
JD> kdyz bys ho nemohl "volne" distribuovat (stejne jako MDAC), proc by pak byl
JD> volne ke stazeni na M$ webu.
JD> ale druhym faktem je ze kdyz nainstalujes MDAC 2.5 a >, tak uz
JD> Jet40Sp3_Comp.exe instalovat nemusis
JD> M.Jirman
>>-----Original Message-----
>>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>>Behalf Of Petr Zahradnik
>>Sent: Tuesday, July 17, 2001 2:14 AM
>>
>>Co ja vim, tak MSJET pro Access nikdy nebylo mozno volne distribuovat,
>>ale byla potreba licence. Fakt je, ze jsem se nedival uz asi rok na
>>nejake zmeny, ale neslysel jsem, ze by se neco zmenilo. MDAC je neco
>>jineho, MDAC je ADO, ale ne JET. Muzu se vsak mylit, jak rikam, uz
>>dlouho jsem se o to nezajimal, protoze Access me nikdy netahl...
>>
>>
>>S pozdravem
JD> Petr Zahradnik, pocitacovy expert
Jaka lokalni souborova databaze ?
[*] Filip Honzarek <DEVELOPER(zv)pcforum(tec)cz> - 22.7.2001 12:34:33
Jeste dotaz, co kdyz pouziji objekty v liste "ADO" v delphi + MDAC?
> Kdyz pouziji MDAC a nastroje od (www.delphi.pari.bg).
> Melo by byt vse v poradku?
Diky.
Filip Honzarek
Chyba: Delphi 6 a TShellTreeView
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.7.2001 13:13:06
Preji vsem pekneho dne,
pokud nekdo mate D6, studovali jste komponentu TShellTreeView?
Az doted se mi zdala velmi uzitecna, no proste super. Ovsem
prave jsem zjistil, ze se chova jako prase v pripade, ze vlastnosti
AutoRefresh je True. Pokud pri behu kliknu na libovolny adresar,
vytvori se dalsi vlakno. Pokud prejizdite z jednoho adresare na
druhy, klidne se vytvori nekolik desitek (i stovek) vlaken (pri 140
jsem to vzdal). Je pravda, ze po chvili se zase ukoncuji, ale ne
vsechny a zustanou az do konce aplikace to jednak a druhak pri
ukonceni aplikace (a casto i behem) to buchne s Access violation
(sic!). Na vine je zminena komponenta.
Krome varovani pred timto humusem by me zajimalo, jak se mohl
tento paskvil dostat do releasu? To, ze to je na palete Samples
preci neomlouva! Na kdy se chysta opravny balicek? Kolik jich
zasejc bude? Tri? Ctyri? Pet? Nema Borland v planu uvolnovat
pouze liche verze a na sude se proste vykaslat?
Slavek
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Chyba v SynEditu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.7.2001 13:13:06
Preji vsem pekneho dne,
Informace pro ty, ktery pouzivaji SynEdit, ale nectou konference s
nim spojene: v SynEditu byla objevena docela zavazna chyba, ke
ktere dochazi pri funkci undo na konci dokumentu. Postup:
Otevrete si nejaky dokument, dojedte na jeho konec (napr.
Ctrl+End) a parkrat pouzijte Ctrl+Y (mazani linky) a pak Ctrl+Z
(undo) a sledujte, co to dela za veci... Dalsi spatna zprava je ta, ze
zatim nevyplynulo, zda se na oprave pracuje ci nikoliv. :-(
BTW: nemate nekdo aktualni zdrojove kody z CVS? Netusim, jak
je ziskat, aniz bych musel cokoliv instalovat. :-(
Slavek
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
odkazy + HTMLeditor
[*] Jan Sova <jsovova(zv)iol(tec)cz> - 22.7.2001 14:10:25
Dobr� den,
nevite nekdo, kde by se dali sehnat zdrojove kody her a HTML editoru (pripadne jak zajistit zvyrazneni urcitych retezcu). Budu vdecny za kazdy odkaz, mohou byt v NJ a AJ.
S pozdravem Jan Sova.
Predm dik.
nahrada tabulatoru - znovu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 22.7.2001 14:52:54
Zdravim
Nakonec jsem dospel k tomuhle reseni:
with mwCustomEdit1.Lines do Text:=StringReplace(Text, chr(VK_TAB),
StringOfChar(' ', 8), [rfReplaceAll]);
mwCustomEdit1.Lines.Delete(0);
Z funkcniho hlediska je to v poradku, ale z programatorskeho je mi na nic.
Otazka tedy zni, znate nekdo lepsi reseni?
Diky vsem kdo poradi
Hurricane
minimalizace programu
[*] nba <nbanow(zv)atlas(tec)cz> - 22.7.2001 15:49:33
Dobry den,
potrebuji minimalizovat cizi programy, ktere uz na pocitaci bezi a jine zase
zvetsit. Nemate nekdo nejakou radu?
Diky.ordinal
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 22.7.2001 19:27:58
Ahoj,
muze mi prosim nekdo rict, proc mi funguje
var
s : string;
s:=inttostr(ord('a'));
a nefunguje
s:='a';
s:=inttostr(ord(s));
Dik Lada, D3, zac.Varian Skin Factory
[*] Milan ��ek - 22.7.2001 20:01:14
ahoj, vyzkousel jsem doporucene komponenty, ale narazil jsem na problem. K
memu prekvapeni sem nenasel nic jako TNotebook, zkousel jsem to i obejit
vlozenim standardniho Notebooku z Delphi, na ktery jiz nejdou umystovat
dalsi komponenty Skinu :(( Vyresil jste jiz nekdo tento problem?
Diky
PS: komponenty od LMD jsem jeste nevyzkousel, vite nekdo, jestli stazeni 9MB
baliku vyresi muj problem?
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
ordinal
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 22.7.2001 20:03:33
> Ahoj,
>
> muze mi prosim nekdo rict, proc mi funguje
>
> var
> s : string;
> s:=inttostr(ord('a'));
>
> a nefunguje
>
> s:='a';
> s:=inttostr(ord(s));
>
> Dik Lada, D3, zac.
Protoze string neni ordinalni typ.
Retezec 'a' neni typu string, ale char.
Char pro zmenu ordinalni je.
Radim
1px ohrani�en� Editu
[*] Milan ��ek - 22.7.2001 20:10:45
To je bohuzel nad moje sily :(
> Odes�latel: Milan #ݿek <cizek.milan(zv)seznam(tec)cz>
> nevite nekdo, jak prinutit edit, aby mel kolem sebe ohraniceni 1px v jedne
> barve? Obchazim to tak, ze nastavim BorderStyle na none a pod edit vlozim
> treba shape. Program pak ale zere mnohem vic prostredku, takze je to ve
> vetsim poctu nepouzitelne :(
Vytvor si svoji vlastni komponentu
TMyEdit = class (TEdit)
...ordinal
[*] Peter Surovy <psurovy(zv)uevora.pt> - 22.7.2001 19:31:46
Ahoj,
pretoze by Ti nefungovalo ani toto:
var
s : string;
s:=inttostr(ord('aaaa'));
resp ord('aaaa')
Pretoze v ord(x) x moze byt iba ordinalny typ resp char(znakovy) typ nie
string(retazcovy)
vid Help ;-)
S pozdravom Peter Surovy
> Ahoj,
>
> muze mi prosim nekdo rict, proc mi funguje
>
> var
> s : string;
> s:=inttostr(ord('a'));
>
> a nefunguje
>
> s:='a';
> s:=inttostr(ord(s));
>
> Dik Lada, D3, zac.
>Sluzba pro WinNT
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 22.7.2001 20:44:06
Ahoj,
potrebuju napsat program, ktery pobezi jako sluzba ve WinNT. Nemate nekdo
nejakej priklad, jak se to pise? V adresari \demos, jsem nic nenasel.
Vsem predem dekuji.
Martin
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.7.2001
Chyba v SynEditu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.7.2001 20:46:07
Nevim jak se na oprave pracuje u SynEditu, ale my moravaci s tim
dlouhe lokte nedelame. Tady to mas opravene :-)
Unita SynEdit
procedure TCustomSynEdit.UndoItem;
case Item.fChangeReason of
//vetev:
crDeleteAfterCursor, crDelete, {crDragDropDelete, crSelDelete, }
crSilentDelete, crSilentDeleteAfterCursor:
//zde si radek
CommandProcessor(ecLineBreak, #13, nil);
//nahradte radkem
fLines.Add('');
//jde jen o to, mit tam ten posledni radek, na ktery se vlozi text.
//Pouzitim prikazu pres CommandProcesor se zapise do Undo listu
//jeden prikaz navic a z toho problemy, ktere popisoval Slavek
Pokud nekomu vadi, ze to jeste na konec zapise jeden volny radek navic
(undo uplne neodpovida originalu), je treba provest nasledujici
upravu:
Unit SynEdit
procedure TCustomSynEdit.ExecuteCommand(Command: TSynEditorCommand; AChar: char;
Data: pointer);
case Command of
//vetev
ecDeleteLine:
//else blok prikazu: if Lines.Count = 1 then begin
//nahradte si tento kod:
fUndoList.AddChange(crDeleteAfterCursor, Point(1, CaretY),
CaretXY, LineText + #13#10, smNormal)
//za nasledujici:
if CaretY < fLines.Count
then fUndoList.AddChange(crDeleteAfterCursor, Point(1, CaretY),
CaretXY, LineText + #13#10, smNormal)
else fUndoList.AddChange(crDeleteAfterCursor, Point(1, CaretY),
CaretXY, LineText, smNormal);
//takze pokud pujde o posledni radek, nebudeme do undo listu zapisovat
//konec radku. Pokud neni posledni radek, je to naopak nezbytne !
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
22.7.2001 Slavek Rydval:
> Informace pro ty, ktery pouzivaji SynEdit, ale nectou konference s
> nim spojene: v SynEditu byla objevena docela zavazna chyba, ke
> ktere dochazi pri funkci undo na konci dokumentu. Postup:
> Otevrete si nejaky dokument, dojedte na jeho konec (napr.
> Ctrl+End) a parkrat pouzijte Ctrl+Y (mazani linky) a pak Ctrl+Z
> (undo) a sledujte, co to dela za veci... Dalsi spatna zprava je ta, ze
> zatim nevyplynulo, zda se na oprave pracuje ci nikoliv. :-(Chyba v mwCustomEditu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 22.7.2001 21:19:14
Zdravim
Tak ja se taky pridam. Pouzivam mwEdit a pri mazani oznaceneho bloku na
konci to na me vyplivne List index out of bounds. Postup k ziskani chyby:
nekde click
Ctrl + Shift + End
Del
A chyba je na svete. Ntusite nekdo, co je spatne?
Diky vsem, kdo poradi
Hurricane
Sluzba pro WinNT
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 22.7.2001 21:30:59
No,
mam to v cecku - ftp://ftp.inf.upol(tec)cz/pub/projects/1997/3/mensikd.zip
Ozon
P.S. Je tam funkcni priklad service + control panel applet + popis teorie...
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Martin Falta
> Sent: Sunday, July 22, 2001 8:44 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Sluzba pro WinNT
>
>
> Ahoj,
>
> potrebuju napsat program, ktery pobezi jako sluzba ve WinNT. Nemate nekdo
> nejakej priklad, jak se to pise? V adresari \demos, jsem nic nenasel.
> Vsem predem dekuji.
>
> Martin
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.7.2001
>
>WIN a paralelni port
[*] gadourek <gadourek(zv)centrum(tec)cz> - 22.7.2001 21:34:57
Ahoj,
diky za zpravu a posli mi, prosim Te tu komponentu.
Diky Petr
> Zdravim
>
> Existuje komponenta TSmallPort, ta to umi stejne jako ve starem Pascalu.
> Muzu poslat. NEvim jiste, ale myslim, ze funguje jen v 9x rade.
>
> Hurricane
>
> ----- Original Message -----
>
> > potrebuju nacist nekolik bytes z LPT portu a ulozit je do TXT souboru.
Da
> > se cist paralelni port v D4?
>
>Chyba: Delphi 6 a TShellTreeView
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 22.7.2001 21:47:12
On 22 Jul 2001, at 13:13, Slavek Rydval wrote:
> pokud nekdo mate D6, studovali jste komponentu TShellTreeView?
> Az doted se mi zdala velmi uzitecna, no proste super. Ovsem
> prave jsem zjistil, ze se chova jako prase v pripade, ze vlastnosti
> AutoRefresh je True. Pokud pri behu kliknu na libovolny adresar,
> vytvori se dalsi vlakno. Pokud prejizdite z jednoho adresare na druhy,
> klidne se vytvori nekolik desitek (i stovek) vlaken (pri 140 jsem to
> vzdal). Je pravda, ze po chvili se zase ukoncuji, ale ne vsechny a
> zustanou az do konce aplikace to jednak a druhak pri ukonceni aplikace
> (a casto i behem) to buchne s Access violation (sic!). Na vine je
> zminena komponenta.
S tim rozdilem, ze mne pouze pribyvaji. Uvolnily se az po skonceni
programu.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
minimalizace programu
[*] 3dimension <3dimension(zv)atlas(tec)cz> - 22.7.2001 22:03:21
Ja bych pouzil SendMessage, ale nevim jak bych zjistil handle vsech oken.
SendMessage(HandleOkna,Zprava, wParam, lParam)
Jiny reseni me nenapada.
----- Original Message -----
From: "nba" <nbanow(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, July 22, 2001 3:49 PM
Subject: minimalizace programu
> Dobry den,
> potrebuji minimalizovat cizi programy, ktere uz na pocitaci bezi a jine
zase
> zvetsit. Nemate nekdo nejakou radu?
> Diky.
>Email - kontrola
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2001 22:45:45
From: "Vlastimil Zden�k" <gestore(zv)wo(tec)cz>
> Potreboval bych zkontolavat postu (Outlook?? Express ??), jestli neprisel
> mail s konkretnim nazvem.
Ahoj,
v pripade Outlooku to jiste pujde pres automation, od D5 mas v palete Servers
primo Outlook predimportvoany, vice lze najit tady:
http://www.djpate.freeserve.co.uk/Automation.htm
U Outlook Expressu je to uz horsi, tam by to slo jen pres Simple MAPI, kde je
omezene cteni pouze na root Inbox adresar, coz by ti ale mohlo stacit. Priklad
najdes v JCL (http://delphi-jedi.org/Jedi:CODELIBJCL), ReadMailExample.dpr
Petr Vones
Chyba: Delphi 6 a TShellTreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2001 22:46:03
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> prave jsem zjistil, ze se chova jako prase v pripade, ze vlastnosti
> AutoRefresh je True. Pokud pri behu kliknu na libovolny adresar,
> vytvori se dalsi vlakno. Pokud prejizdite z jednoho adresare na
Ahoj,
Hm, chybicka ;-) Ten mutex nezpusobi ukonceni threadu, vypada to ze staci
odstranit tento radek z TShellChangeThread.Create:
WaitForSingleObject(FMutex, INFINITE);
Petr Vones
Download z I-netu rozbaleni a zabaleni packu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2001 22:52:03
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> 1)Existuje nejaka free pack/unpack komponenta,nebo v nejhorsim nemate nekdo
Ahoj,
pokud ti nevadi nestandartni format tak pouzij ZLIB z Delphi, najdes to na
instalacnim CD v adresari Extras. Take by se ti mozna hodilo tohle:
"ZLIBArchive - Create archive files using ZLIB":
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16330
> Volam connect componentou NMFTP a kdyz se mi objevi Dialog na pripojeni k
Pokud mozno se vyhni NetMasters komponentam a pouzij radeji Indy:
http://www.nevrona.com/Indy
Petr Vones
ListView a obrazky - prosim, specha to
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2001 22:54:23
From: "Hazuka Filip" <filip.hazuka(zv)multivac(tec)cz>
> nevite nekdo prosim, jak dostanu do ListView Vetsi obrazky nez je 32x32 ?
Ahoj,
nastav tuto velikost u prislusneho ImageListu.
Petr Vones
D5 nebo D6?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2001 22:58:49
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> Jeden priklad. Mam textovy editor. Nactu text. Dam ukoncit. Vse je OK.
> Pokud predtim zavolam akci, ktera zobrazi SaveDialog, ten stornuji -
> cili v programu nic nedelam - klasicka konstrukce
> if Savedialog.Execute then begin
> ulozeni souboru
> end;
> a program ukoncim, padne to na Access Violation na adrese xxxxx
Ahoj,
pokud jsi schopen udelat co nejmensi priklad kde se to projevuje (s vyloucenim
pouziti komponent tretich stran) tak jej zpristupni nekde na webu nebo mi to
posli.
Petr Vones
Nazory
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2001 23:01:43
From: "Peter Surovy" <psurovy(zv)uevora.pt>
> chcel by som sa spytat na nazory skusenejsich ohladom nasled. veci:
> Aplikacia pracuje s -poliami zaznamov- ktore sa v uplne povodnej verzii
> ukladali a citali z pamate pomocou -pointerov-.
Ahoj,
z dat ulozenych v pameti nebo z toho souboru mapovaneho do pameti ?
Petr Vones
MinDouble
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.7.2001 23:23:50
From: "Jiri Wendl, KSH-Data" <wendl(zv)ksh-data(tec)cz>
> Kdyz priradim do promene, ktera je typu Double, hodnotu MinDouble
> tak mi po porovnani te promene s MinDouble vyjde False.
Ahoj,
rekl bych ze se jedna o chybu v tech konstantach. Netypova konstanta
obsahujici realne cislo je povazovana za Extended.
Petr Vones
SQL Chyba, jak ji resit ???
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 22.7.2001 23:48:12
P�vodn� hl�#en�: Table is read only.
[Microsoft][ODBC SQL Server Driver][SQL Server]SQL Web Assistant: Web task
not found. Verify the name of the task for possible General SQL error.
errors.
U jinych tabulek to funguje bez problemu. Nevite, v cem muze byt chyba, nebo
kde ji mam hledat ?
Filip
vypada to jako kdybys pouzil pohled, jsi si jist ze to je tabulka a ne
slozenej select? Jen tipuju ve snaze pomoci. Ale
Rychlejsi cteni z DBF
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 22.7.2001 23:48:37
Zaplik
pise, sotva dyse:
s1,s2,s3...... :string
s1:=FieldByName('S1').AsString;
s2:=FieldByName('S2').AsString;
s3:=FieldByName('S3').AsString;
. . .
s100:=FieldByName('S100').AsString
tohle se mi moc nelibi a hlavne je to moc textu.
Jestli jsem to dobre pochopcil, tak ja to delam takto
Ted to pisu z hlavy,nemam po ruce Delphi,tak me nepeskuj za pripadne chyby
jo?Jde jen o princip
tedy chvilka soust�ed�n�........
************************
var
I:Integer;
ArrayField: array[1..100] of String;{to by melo stacit,ale treba to nejak
jde omezit primo na pocet Q1.FieldCount-1 KDYBY NEKDO VEDEL DEJTE VEDET}
For I:=0 to Q1.FieldCount-1do
begin
ArrayField[I]:=Q1.Fields[I].asString;
end;
***********************************
PS:Nevim ale je to presna obdoba co jsi mi tu popsal bez toho textu,snad ti
to helfne Delphine,je lepsi pouzivat Fields[I].AsString, nevim proc se
vsichni snazi porad stim FieldByName trochu tezkopadne...
Aldik
Amater vsech amateru kral....D5,W98 a trpelivost prosim
Nacteni polozek z csv souboru do TreeView
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 23.7.2001 00:24:12
Ahoj, zdravim vsechny.
Potreboval bych pomoc pri nacitani csv souboru. Mam TreeView a potreboval
bych do neho nacist urcite polozky z csv souboru. Jak by se to dalo udelat.
Nemam s tim vubec zadne zkusenosti. Nemate nekdo kus zdrojaku, jak se to
dela ?
Predem vsem diky za napady nebo priklady.======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================ordinal
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 23.7.2001 00:36:02
From: "Skokosek" <skokosek(zv)seznam(tec)cz>
> muze mi prosim nekdo rict, proc mi funguje
>
> var
> s : string;
> s:=inttostr(ord('a'));
>
> a nefunguje
>
> s:='a';
> s:=inttostr(ord(s));
Protoze parametr s predany v druhem pripade neni ordinalniho typu (cili v tomto pripade
neni char, ale je to string). Pokud mas zajisteno, ze delka s je vetsi nez 0, pak muzes
pouzit
s := IntToStr(ord(s[1]));
Tomas
klavesnice a posun formu
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 23.7.2001 06:28:02
Sice to vyjde nastejno, ale ja bych test na 119 nahradil konstantou
VK_F8 (viz 'Virtual key codes' v helpu)
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
20.07.2001 "Ing. Keder Vladim�r":
> Ahoj
> musis to testovat v udalosti KeyDown. Napr. takto :
> procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if key= 119 then {stlacil F8}
> begin
> ...
> end;
> end;
> alebo pre viac klaves takto :
> procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> case key of
> 119: begin { stlacil F8}
> ....
> end;
> end;
> end;> Vlado
> ----- Original Message -----
> From: "nba" <nbanow(zv)atlas(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, July 20, 2001 8:03 PM
> Subject: klavesnice a posun formu
>> Dobry den,
>> pred nedavnem se tady nekdo ptal na zjisteni klavesy F8 protoze me to
>> zajimalo skusil sem to pomoci OnKeyPress testuji zda se nerovna #0 ale to
>> neni nikdy mohl by mi nekdo poradit?
>> A druha otazka jaka vyjimka se vyvola pri posouvani Formu po plose.
>> Dekuji za odpovedi.
Aplikace pro Windows 3.1
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 23.7.2001 06:42:07
> Zajimalo by me, jak mohu v Delphi 5 vytvorit aplikaci pro
> Windows 3.1. Jde
> to vubec?
Pokud budes velmi, velmi opatrny, co se tyka pouzitych unitu, features
synataxe object pascalu, trid a jejich vlastnosti a metod - muzes si
aplikaci nejakym zpusobem nachystat v Delphi 5, ale nakonec je to stejne
potreba prelozit v Delphi 1 ...
T.
1px ohrani�en� Editu
[*] Pavel K�ehula <pavel.krehula(zv)nlm(tec)cz> - 23.7.2001 07:34:06
Zdar,
no pokud nastavis vlastnost Ctl3D na false tak to bude mit kolem sebe cernej jednopixlovej ramecek.
Pavel
| > Odes�latel: Milan #ݿek <cizek.milan(zv)seznam(tec)cz>
| > nevite nekdo, jak prinutit edit, aby mel kolem sebe ohraniceni 1px v jedne
| > barve? Obchazim to tak, ze nastavim BorderStyle na none a pod edit vlozim
| > treba shape. Program pak ale zere mnohem vic prostredku, takze je to ve
| > vetsim poctu nepouzitelne :(
Nacteni polozek z csv souboru do TreeView
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 23.7.2001 08:03:54
Ahoj,
kdysi jsme to resili. Tusim, ze format musi byt tak, ze co item, to jeden
radek v TXT souboru. A hloubku zanoreni si urcis poctem tabulatoru ( znak
#9).
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
-----Original Message-----
From: Hazuka Filip [mailto:filip.hazuka(zv)multivac(tec)cz]
Subject: Nacteni polozek z csv souboru do TreeView
Ahoj, zdravim vsechny.
Potreboval bych pomoc pri nacitani csv souboru. Mam TreeView a potreboval
QR & SaveToFile - 2
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 23.7.2001 08:10:30
> QRPrinter sice vytvori soubor, ale: az po priview a dokaze
> pouze soubor v
> QRP formatu. Mam na QR pouzitu komponentu PsQRFilters, ktera
> dokaze ulozit
> soubor v ruznym formatu (vedle pripon QRP prida do save
> dialogu dalsi).
Pouzivam PsQRFilters a mam sestavy s logem. Ukladam do HTML nebo Gif a
normalne otviram. Problem bude asi u tve aplikace neco delas blbe.
Jiri Fait
ListView a velke obrazky
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.7.2001 08:19:54
Jeste se chci zeptat, jak mam udelat res soubor
> s bitmapou tak, aby se tam neznehodnotila barva. Vzdy se mi zkazi a to i
Predpokladam, ze tyto .res soubory vytvaris v Image editoru. Pokud vytvoris
textovy soubor .rc a pouzijes kompilator BRCC32 tak dostanes take soubor .res,
ale v obrazcich nebudou zkazene barvy.
Priklad:
LOGO_0 Bitmap "epravo27.bmp"
LOGO_1 Bitmap "epravo30.bmp"
LOGO_2 Bitmap "epravo34.bmp"
NAZEV_RESOURCE Typ "NAZEV_SOUBORU_S_RESOURCE"
a pak zavolas
BRCC32 Nazev_souboru.rc a vysledkem je Nazev_souboru.res
Vyhodou je, ze se do .res souboru da timto zpusobem zakompilovat temer cokoliv
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
Problem s triggerama na IBM DB/2, D5.01prof, prist
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.7.2001 09:03:59
> create trigger MxPCQ$p1pk no cascade before
> insert on MxPCQ$
> referencing new as n
> for each row mode db2sql
> set (n.p1pk) = (select value(max(p1pk),0) + 1 from MxPCQ$);
>
> kde pole P1PK je INTEGER a ma index:
>
> CREATE INDEX MxPCQ$xPK ON MxPCQ$(P1PK);
>
> ***
>
> Ted ten problem: kdyz spustime prikaz
>
> INSERT INTO MxPCQ$
> SELECT * FROM MxPCQ
>
> tak pole P1PK ma hodnotu 1 pro vsechny zaznamy v tabulce.
>
> Kdyz ale vkladame jen po jedne polozce napr. takto:
>
> INSERT INTO MxPCQ$
> SELECT * FROM MxPCQ WHERE (...)
>
> Tak se ten trigger spousti a kazda z takto vlozenych polozek ma v poli
> P1PK unique hodnotu.
>
> Na IB6 to pracuje normalne, i kdyz tam ten trigger samozrejme vypada
> jinak.
>
> ***
>
> Nesetkal se nekdo s necim podobnym nebo neumel by mi nekdo poradit
> neco jineho, nez vsechna data natahnout na klienta a pak je zase
> strkat zpatky?
Neni nahodou problem v tom, ze se to vklada v jedne transakci a tudiz nove
vlozena data nejsou videt ? Co zkusit nejaky generator ??? A vyvola se ten
trigger pri kazdem zaznamu (chybicka se vloudi :) ???
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
WIN a paralelni port
[*] Josef Madlik <josef.madlik(zv)worldonline(tec)cz> - 23.7.2001 09:06:18
Jeste se muzete podivat na ZLportIO, mam vyzkousene, ze to funguje
jak ve Win98 tak Win NT. Staci jen jeden SYS soubor udajne pro
vsechna windows.
http://www.specosoft.com/download.html
Neni to komponenta, ale pouze unita + SYS soubor.
J.M.
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 20, 2001 11:21 PM
Subject: Re: WIN a paralelni port
> Zdravim
>
> Existuje komponenta TSmallPort, ta to umi stejne jako ve starem Pascalu.
> Muzu poslat. NEvim jiste, ale myslim, ze funguje jen v 9x rade.
>
> Hurricane
>
> ----- Original Message -----
>
> > potrebuju nacist nekolik bytes z LPT portu a ulozit je do TXT souboru.
Da
> > se cist paralelni port v D4?
>
>Varian Skin Factory
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.7.2001 09:14:02
> memu prekvapeni sem nenasel nic jako TNotebook, zkousel jsem to i obejit
> vlozenim standardniho Notebooku z Delphi, na ktery jiz nejdou umystovat
> dalsi komponenty Skinu :(( Vyresil jste jiz nekdo tento problem?
Mam LMD nainstalovane, ale skinovatelny TNotebook tam neni.
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
Nacteni polozek z csv souboru do TreeView - upresn
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 23.7.2001 10:20:06
Ahoj,
mel jsem na mysli konkretne cteni z Excelovskeho souboru s priponou .csv.
Strasne by mi pomohlo, kdyby na to mel nekdo nejakou ukazku, i toho csv
souboru a jak nacita polozky. Nemusi to byt primo do ListView, ale treba do
StringGridu.
Predem mnohokrat diky.
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================RZDirectoryListBox -DirectoryListBox pokus 2
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 23.7.2001 10:23:16
Ahoj,
je to sposobene implementaciou metody
ReadDirectoryNames v TDirectoryListBox.
Kedze uvedena metoda nie je virtualna,
neda sa priamo prepisat. Obist sa to
da cez metodu BuildList (tato virtualna
je), lenze trochu "necistym" sposobom,
kedze prislusne premenne su privatne.
Nemam to z vlastnej hlavy, svojho casu
mi v rovnakej veci poradil Peter Vones
nizsie uvedenym prikladom.
Vlkovic
> Poradi nekdo jak zobrazit v RZDirectoryListBoxu nebo DirectoryListBoxu
> adresare, ktere maji atribut Hiden.
type
TDirtyDirectoryListbox = class(TCustomListBox)
private
FFileList: TFileListBox;
FDriveCombo: TDriveComboBox;
FDirLabel: TLabel;
FInSetDir: Boolean;
FPreserveCase: Boolean;
FCaseSensitive: Boolean;
end; // necisty zposob pristupu k private polozkam TDirectoryListBox
TXYDirectoryListBox = class(TDirectoryListBox)
protected
function ReadDirectoryNames(const ParentDirectory: string;
DirectoryList: TStringList): Integer;
procedure BuildList; override;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
DirListBox: TXYDirectoryListBox;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
DirListBox := TXYDirectoryListBox.Create(Self);
DirListBox.Parent := Self;
end;
{ TXYDirectoryListBox }
function SlashSep(const Path, S: String): String;
begin
if AnsiLastChar(Path)^ <> '\' then
Result := Path + '\' + S
else
Result := Path + S;
end;
function TXYDirectoryListbox.ReadDirectoryNames(const ParentDirectory:
string;
DirectoryList: TStringList): Integer;
var
Status: Integer;
SearchRec: TSearchRec;
begin
Result := 0;
Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory or
faHidden, SearchRec);
try
while Status = 0 do
begin
if (SearchRec.Attr and faDirectory = faDirectory) then
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
DirectoryList.Add(SearchRec.Name);
Inc(Result);
end;
end;
Status := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end;
procedure TXYDirectoryListBox.BuildList;
var
TempPath: string;
DirName: string;
IndentLevel, BackSlashPos: Integer;
VolFlags: DWORD;
I: Integer;
Siblings: TStringList;
NewSelect: Integer;
Root: string;
begin
try
Items.BeginUpdate;
Items.Clear;
IndentLevel := 0;
Root := ExtractFileDrive(Directory)+'\';
GetVolumeInformation(PChar(Root), nil, 0, nil, DWORD(i), VolFlags,
nil, 0);
TDirtyDirectoryListbox(Self).FPreserveCase := VolFlags and
(FS_CASE_IS_PRESERVED or FS_CASE_SENSITIVE) <> 0;
TDirtyDirectoryListbox(Self).FCaseSensitive := (VolFlags and
FS_CASE_SENSITIVE) <> 0;
if (Length(Root) >= 2) and (Root[2] = '\') then
begin
Items.AddObject(Root, OpenedBMP);
Inc(IndentLevel);
TempPath := Copy(Directory, Length(Root)+1, Length(Directory));
end
else
TempPath := Directory;
if (Length(TempPath) > 0) then
begin
if AnsiLastChar(TempPath)^ <> '\' then
begin
BackSlashPos := AnsiPos('\', TempPath);
while BackSlashPos <> 0 do
begin
DirName := Copy(TempPath, 1, BackSlashPos - 1);
if IndentLevel = 0 then DirName := DirName + '\';
Delete(TempPath, 1, BackSlashPos);
Items.AddObject(DirName, OpenedBMP);
Inc(IndentLevel);
BackSlashPos := AnsiPos('\', TempPath);
end;
end;
Items.AddObject(TempPath, CurrentBMP);
end;
NewSelect := Items.Count - 1;
Siblings := TStringList.Create;
try
Siblings.Sorted := True;
ReadDirectoryNames(Directory, Siblings);
for i := 0 to Siblings.Count - 1 do
Items.AddObject(Siblings[i], ClosedBMP);
finally
Siblings.Free;
end;
finally
Items.EndUpdate;
end;
if HandleAllocated then
ItemIndex := NewSelect;
end;QR & SaveToFile - 2
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.7.2001 10:32:33
> > QRPrinter sice vytvori soubor, ale: az po priview a dokaze
> > pouze soubor v
> > QRP formatu. Mam na QR pouzitu komponentu PsQRFilters, ktera
> > dokaze ulozit
> > soubor v ruznym formatu (vedle pripon QRP prida do save
> > dialogu dalsi).
FAIT Ji��, ml. dne 23 Jul 2001, v 8:10:
> Pouzivam PsQRFilters a mam sestavy s logem. Ukladam do HTML nebo Gif a
> normalne otviram. Problem bude asi u tve aplikace neco delas blbe.
Ahoj,
muzu se zeptat, kde se da ziskat PsQRFilters a zda je zdarma?
Mimochodem - exportujes-li sestavu do HTML, kde je ulozeno to logo? V
samostatnem souboru?
Karel Rys
PetrV- Nazory
[*] Peter Surovy <psurovy(zv)uevora.pt> - 23.7.2001 09:39:32
> > Aplikacia pracuje s -poliami zaznamov- ktore sa v uplne povodnej
verzii
> > ukladali a citali z pamate pomocou -pointerov-.
>
> z dat ulozenych v pameti nebo z toho souboru mapovaneho do pameti ?
>
> Petr Vones
Ahoj,
Z dat ulozenych v pamati - ale teraz mam problem : ci je lepsie pouzit
databazu
alebo ostat pri text suboroch ktore zapisem na disk akurat pod roznymi
menami
podla cyklu.
Resp. ake vyhody mi prinesie pouzitie databazy oproti pouzitu suborov a
ake nevyhody.
----------------------------------
Peter Surovy
psurovy(zv)uevora.pt
ICQ #119605423
Dotaz na Palm V
[*] PeJaSoft <pejasoft(zv)pejasoft(tec)com> - 23.7.2001 10:40:20
Prave jsem dodelal synchronizaci s Palmem pomoci jednotek TurboSync od
Tabdee Ltd. (http://www.tabdee.ltd.uk/).
Prace je s tim hodne jednoducha a bezproblemova. Vytvari se DLL knihovna,
ktera se pak zaregistruje do HotSyncu.
S pozdravem
Petr Jarkovsky
pejasoft(zv)pejasoft.com
www.pejasoft.com
----- Original Message -----
From: <KadaneM(zv)sdc.pce.cdrail(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 16, 2001 8:19 AM
Subject: Dotaz na Palm V
Dobr� den,
m�l bych na V�s takov� dotaz : m�m Palm V a pot�eboval bych na��tat do sv�ho
programu v Palmtopu data ze s�riov�ho portu, jak by asi m�lo vypadat �ten� z
port� Palmtopa? Jestli m�te n�jak� p��klad byl bych V�m moc vd��n� za jeho
zasl�n�.
P�edem d�kuji
S pozdravem
Miroslav Kadan�
scanner
[*] Gabika Polcova <gabika.polcova(zv)cnzp(tec)cz> - 23.7.2001 10:40:36
Cafte
mam jednu prosbu. Potrebujem naprogramovat aplikaciu
v D5, ktora pracuje s lubovolnym scannerom, a ma robit nasledujuce veci.
Po zvoleni nejakej moznosti sa automaticky zoskenuje
obrazok a ulozi sa do nejakeho Image.
Ide o to, ze potrebujem aby mi pouzivatel nemusel ovladat samotny sw pre
scanner, aby to moja aplikacia simulovala sama.
Nemate to niekto nahodou uz urobene??
alebo poradte mi prosim spravnu free komponentu.
Neviem ci je to jasne a zrozumitelne napisane:)
takze dakujem za pomoc
GP
Sluzba pro WinNT
[*] Jan #ebel�k <honza(zv)haes(tec)cz> - 23.7.2001 10:48:20
> Odes�latel: Martin Falta <martin.falta(zv)atlas(tec)cz>
> potrebuju napsat program, ktery pobezi jako sluzba ve WinNT.
Jenom bych chtel poznamenat, ze napsat service je jedna vec, jenze to jeste zdaleka nejses "za vodou".
Muzes treba narazit na NT Security:
identita procesu, autentifikace a autorizace, impersonifikace a duplikace, ...
service jako DCOM server, ...
To je jenom maly vycet problematiky, ktera s pouzitim NT Service souvisi.
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 (0601 203084]
=========================================OT Ztrata dat ulozenim csv souboru v Excelu
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 23.7.2001 10:49:00
Ahoj, omlouvam se za OT.
Chtel bych se zeptat. Dostal jsem soubor s priponou csv. Ten otevru v
Excelu. Mam Office 2000. Pak ho dam znovu ulozit jako soubor csv a pise mi
to, ze Sesit muze obsahovat vlastnosti, ktere nejsou kompatibilni s
CSV(oddeleny strednikem). Kdyz dam, zachovat vlastnosti a soubor ulozim, tak
uz neni citelny aplikaci, ktera ho pouzivala. Nevite nekdo, jak mam zachovat
stare vlastnosti, aby byli citelne aplikaci a o co vlastne prijdu tim, ze to
jenom ulozim a nic tam nemenim ?
Diky za vase nazory.
======================
Filip Hazuka
��pkova 363
L�zn� Bohdane�
E-mail: Filip.Hazuka(zv)uhk(tec)cz
Mobil: 0602/411 828
======================Nacteni polozek z csv souboru do TreeView - upresn
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 23.7.2001 10:51:50
> -----Original Message-----
> mel jsem na mysli konkretne cteni z Excelovskeho souboru s priponou .csv.
> Strasne by mi pomohlo, kdyby na to mel nekdo nejakou ukazku, i toho csv
> souboru a jak nacita polozky. Nemusi to byt primo do ListView,
mam takovy pocit, ze format csv neni primo Excelovsky format - i kdyz ho
Excel velmi dobre podporuje. Jde o format pro vymenu dat, kde kazdy radek
odpovida jednomu zaznamu v tabulce, a zaznam ma velmi jednoduchou stukturu,
ve ktere jsou polozky oddeleny tebou zvolenym oddelovacem a navic si muzes
sam volit znak ohraniceni textovych polozek. Dalsim parametrem je pouze
logicka promenna, ktera urcuje, zda prvni radek je hlavicka csv souboru.
Takze pokud budes delat univerzalni import csv souboru z ruznych zdroju,
musis se dotazat na tri parametry (oddelovac, ohraniceni a hlavicka).
Pozor!!! Tyto parametry nejsou soucasti csv souboru. Bud je musis zjistovat
nejakym kouzlem (mam na mysli projet prvnich par zaznamu a odvodit si je),
nebo se na ne musis dotazat.
Pro nacitani do ListBoxu, Gridu,... je nejlepsi pouzit cyklu s rucnim
pridavanim (myslim).
TreeView pracuje s vnorenymi zaznamy tak, ze predklada pred druhe vnoreni
tabulator, pred treti vnoreni dva tabulatory, atd.
Petr Svejda
http://www.lingvista(tec)cz/
Lingvista Backup - zalohovani dat s inteligenci
http://www.lingvista(tec)cz - stazeni nejnovejsi verze Z D A R M A
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.7.2001
Cara v dbgridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 23.7.2001 10:59:10
Ahoj,
slibil jsem kolegovi, ze se zeptam na tohle - jakou barvu ma cara
okolo bunek v dbGridu? Jaka to je konstanta cl....?
Diky
David
DLL a formular
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 23.7.2001 11:00:25
zdravim,
v DLL mam tento kod:
Karta1Form:=TKarta1Form.Create(Application);
Try
Karta1Form.ShowModal;
Finally
Karta1Form.Free;
End;
jenomze kdyz toto pouziju dvakrat v programu, tak mi treba v comboboxu zustava hodnota z predesleho vyplneni. Kde to vezme? Nemel by prikaz Karta1Form.Free odstranit vse z pameti?
Nemuzu to nejak pochopit. Muzete mi to nekdo vysvetlit?
Predem diky.
S pozdravem
Mirek Drejcek.
Sluzba pro WinNT
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 23.7.2001 11:05:15
Cau,
pokud se nepletu tak v Delphi sluzba napsat nejde, ale pokud se pletu tak me
nekdo opravte a pokud mozno pridejte link se zdrojakem.
> No,
> mam to v cecku - ftp://ftp.inf.upol(tec)cz/pub/projects/1997/3/mensikd.zip
>
> Ozon
>
> P.S. Je tam funkcni priklad service + control panel applet + popis
teorie...
> > potrebuju napsat program, ktery pobezi jako sluzba ve WinNT. Nemate
nekdo
---
Odchozi zprava neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.265 / Virov� b�ze: 137 - datum vyd�n�: 18.07.2001
Sluzba pro WinNT
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 23.7.2001 11:09:09
Tak to se pletes. ;-)
Tusim, ze od nejake verze Delphi je psani sluzeb jiz primo podporovano,
ale ja mam stare delphi, u kterych jsem si musel pomoci par unitama.
Takze ruku do ohne za to nedam.
Kazdopadne to jde a neni to nic tezkeho.
Link nedam, protoze nemam svoleni autora k sireni. Ale myslim, ze
nekde na Torry (nebo DSP) by se snad neco naslo, ne? :-) Dival ses?
> pokud se nepletu tak v Delphi sluzba napsat nejde, ale pokud se pletu
> tak me nekdo opravte a pokud mozno pridejte link se zdrojakem.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
minimalizace programu
[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 23.7.2001 11:09:46
Ahoj,
jestli ti jde o mini/maximalizaci oken cizich programu, pouzij
fci FindWindow, do ktere nasypes jmeno okna a jmeno tridy okna ( to
zjistis treba ve WinSight32 ) a ktera ti vrati handle toho okna. Potom
zavolas fci ShowWindow, s parmatrem SW_MINIMIZE, SW_MAXIMIZE ap., viz
help.
Dan
> Dobry den,
> potrebuji minimalizovat cizi programy, ktere uz na pocitaci bezi a
jine zase
> zvetsit. Nemate nekdo nejakou radu?
> Diky.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.256 / Virov� b�ze: 129 - datum vyd�n�: 31.5.2001
QR & SaveToFile - 2
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 23.7.2001 11:18:14
> muzu se zeptat, kde se da ziskat PsQRFilters a zda je zdarma?
www.pragnaan.com
Bohuzel, neni zdarma.
> Mimochodem - exportujes-li sestavu do HTML, kde je ulozeno to logo? V
> samostatnem souboru?
Ano, v samostatnem souboru.TService.LogMessage
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 23.7.2001 11:39:10
> V zasade je treba udelat resource DLL obsahujici texty typu "Doslo k chybe
> na prostredku %s"
Podle vseho co jsem zjistil to nemusi byt DLL, ale i EXE.
Staci kdyz bude v registrech odkaz:
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\M
ojeService]
"TypesSupported"=dword:00000007
"EventMessageFile"="cesta k souboru"
> a pak se zaloguje pres ReportEvent() -- mozna to maji
> Delphi nejak zabalene -- a eventviewer udela to, ze se podiva do tveho DLL
> se zdroji textu a vlozi zalogovanou hlaasu na spravne misto.
TService to ma takhle obalene:
if FEventLog = 0 then
FEventLog := RegisterEventSource(nil, PChar(FName));
ReportEvent(FEventLog, EventType, Category, ID, nil, 1, 0, (zv)P, nil);
Ale stejne mi to nefunguje.
A to i pokud to nasmeruju treba na %SystemRoot%\system32\eventlog.dll
:-(
Petr Smol�k
psmolik(zv)fides(tec)cz
Sluzba pro WinNT
[*] voltrr1.epr(zv)mail.cez(tec)cz - 23.7.2001 11:05:33
> pokud se nepletu tak v Delphi sluzba napsat nejde, ale pokud se pletu tak
me
> nekdo opravte a pokud mozno pridejte link se zdrojakem.
Pletes se, sluzba napsat jde a to bez problemu.
Bud muzes pouzit Delphi 5 - tam je borlandi framework nebo se podivat
po netu. Ja kdysi nasel port frameworku pro sluzby v D2 a pouzivam
ho dodnes (D5)
Radek Voltr
Sluzba pro WinNT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2001 12:15:12
From: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>
> Tusim, ze od nejake verze Delphi je psani sluzeb jiz primo podporovano,
Ahoj,
je to od Delphi 4.03
Petr Vones
Canvas does not allow drawing?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2001 12:18:01
From: "Milan #ݿek" <cizek.milan(zv)seznam(tec)cz>
> Pouzivam komponentu pro update aplikace z internetu. Tato chyba se zacne
> projevovat, pokud povolim update ve vlastnim threadu. Vetsinou se to
Ahoj,
pokud volas z threadu metody VCL tak je musis provadet synchronizovane, tedy
pomoci metody TThread.Synchronize
Petr Vones
E-mail komponenta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2001 12:20:57
From: "Skokosek" <skokosek(zv)seznam(tec)cz>
> muze mi prosim nekdo poradit free komponentu pro e-mail ?
> Potrebuju odeslat zpravu s urcenym textem a urcenym jednim
> pripojenym souborem na urcitou adresu.
Ahoj,
opet zakladni otazka, chces to posilat:
1. Prostrednictvim vychoziho postovniho klienta
2. Pomoci vlastni aplikace, kde si ale budes muset nastavit parametry jako
napriklad SMTP server apod.
Petr Vones
Rychlejsi cteni z DBF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2001 12:28:27
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> PS:Nevim ale je to presna obdoba co jsi mi tu popsal bez toho textu,snad ti
> to helfne Delphine,je lepsi pouzivat Fields[I].AsString, nevim proc se
> vsichni snazi porad stim FieldByName trochu tezkopadne...
Ahoj,
je dobre si nadefinovat pole k te tabulce v designu pomoci 'Add fields' u dane
TTable a pak pracovat primo s nimi. Prochazeni zaznamu by melo byt rychlejsi
pri pouziti TDataSet.BlockReadSize, viz priklad:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/database/Xbase/TBDEDataSet_Bloc
kReadSize_example.zip
Petr Vones
Trial verze Delphi 6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.7.2001 12:36:42
Ahoj,
nedavno se tu nekdo ptal jestli uz je k dispozici trial verze Delphi 6.
"DELPHI 6 ENTERPRISE TRIAL EDITION REGISTRATION AND DOWNLOAD"
http://www.borland.com/delphi/trial6
Petr Vones
scanner
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 23.7.2001 12:39:41
> mam jednu prosbu. Potrebujem naprogramovat aplikaciu
> v D5, ktora pracuje s lubovolnym scannerom, a ma robit nasledujuce veci.
K TWAIN je neco napr. tady
http://www.delphi-jedi.org/Jedi:APILIBRARY:0
http://www.dosadi.com/download.htm#delphi
http://www.hitekdev.com/delphi/TWAIN.html
T.Download z I-netu rozbaleni a zabaleni packu
[*] JIM Design <jim.design(zv)iol(tec)cz> - 23.7.2001 12:44:59
ahoj,
nejlepsi je nedelat spojeni tim ze zavolas nejakou funkci Connect, ktera
mozna zavola dialog pro pripojeni, ale volat ho sam (viz nize) a pak jeste
otestovat spojeni, jestli je pouzitelne (viz ten RAS.ZIP)
email od P.Vones z 27.2.2000
----
Obecne se "Telefonicke pripojeni site" vytvari pomoci RAS funkci. Prelozene
hlavicky s demo aplikaci lze stahnout tady (RAS.ZIP):
http://delphi-jedi.org/Jedi:APILIBRARY:303368067
K vyvolani dialogu pro pripojeni k Internetu, jak jej zname z IE, slouzi
funkce InternetAutoDial (vychozi pripojeni):
uses
WinInet, RasError, RasUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
LastError: DWORD;
begin
if InternetAutoDial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) then
LastError := 0
else
LastError := GetLastError;
if LastError <> ERROR_USER_DISCONNECTION then RasCheck(LastError);
end;
Ukoncit pripojeni lze pak pomoci funkce InternetAutodialHangup:
procedure TForm1.Button2Click(Sender: TObject);
begin
Win32Check(InternetAutodialHangup(0));
end;
Vyvolat jine nez vychozi pripojeni lze takhle:
procedure TForm1.Button3Click(Sender: TObject);
var
Res: DWORD;
ConnId: DWORD;
begin
Res := InternetDial(0, 'Moje pripojeni', INTERNET_AUTODIAL_FORCE_ONLINE,
(zv)ConnId, 0);
if Res <> ERROR_USER_DISCONNECTION then
begin
RasCheck(Res);
ShowMessage('Po stisku OK bude pripojeni ukonceno');
RasCheck(InternetHangUp(ConnId, 0));
end;
end;
Dalsi informace, viz MSDN:
http://msdn.microsoft.com/workshop/networking/wininet/overview/establish.asp
----
misto Netmaster's TNMFTP muzes pouzit treba
http://www.rtfm.be/fpiette/indexuk.htm
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ales Pavel
Ahoj mel bych takovou ideu.Zabalit malou tabulku paradoxu a pod specialnim
packnazvem ji nacpat pres FTP na net.Jenze
1)Existuje nejaka free pack/unpack komponenta,nebo v nejhorsim nemate nekdo
zkusenost s komunikaci pres OLE s Winzipem nebo Winrarem
v podstate je mi jedno co to za balici komponentu bude ucelem je rychlost
prenosu tj. co nejmensi velikost vysledneho packu.
Take jsem se zasekl na jedne drobnosti, mozna bych na to prisel sam,ale kdyz
uz jsem tuna.
Volam connect componentou NMFTP a kdyz se mi objevi Dialog na pripojeni k
internetu pomoci modemu dam storno.Tady je vse ok mam osetrenou vyjimku a ta
zahlasi ze nelze navazat komunikaci.Ale pokud do z opakuju jiz se mi
neobjevi dialog o pripojeni a jde to ihned do chybove hlasky. Nejak si to
pamatuje ze komunikace byla stornovana. Ja se ptam jak to setrit aby kdyz
udelam jedno storno,nemusel jsem opoustet aplikaci,ktera si blbec pamatuje
ze jsem sel do Storna, ale znovu se pokusila o komunikaci a vyvolala dialog
okno o pripojeni.
Diky velice
Jaka lokalni souborova databaze ?
[*] JIM Design <jim.design(zv)iol(tec)cz> - 23.7.2001 12:46:50
ahoj,
>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Filip Honzarek
>Sent: Sunday, July 22, 2001 12:35 PM
> Kdyz pouziji MDAC a nastroje od (www.delphi.pari.bg).
> Melo by byt vse v poradku?
jestli jsou KaDao volne siritelne, tak je to IMHO v poradku.
>Jeste dotaz, co kdyz pouziji objekty v liste "ADO" v delphi + MDAC?
jestli mas D5Ent nebo D5Pro + ADOExpress tak je taky vse v poradku.
M.Jirman
Rychlejsi cteni z DBF
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 23.7.2001 12:48:35
Ahoj
Muze ti to ale udelat paseku, kdyz zmenis struktury dbf souboru (tj. kdyz
zmenis delku textove polozky). Pak musis vse opravit a prekompilovat
program. Musis se rozhodnout jestli ti pomuze to pozadovane zrychleni, nebo
jestli chces mit program kde nemas delky polozek definovane napevno.
Jaromir Cermak
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> PS:Nevim ale je to presna obdoba co jsi mi tu popsal bez toho textu,snad
ti
> to helfne Delphine,je lepsi pouzivat Fields[I].AsString, nevim proc se
> vsichni snazi porad stim FieldByName trochu tezkopadne...
Ahoj,
je dobre si nadefinovat pole k te tabulce v designu pomoci 'Add fields' u
dane
TTable a pak pracovat primo s nimi. Prochazeni zaznamu by melo byt rychlejsi
pri pouziti TDataSet.BlockReadSize, viz priklad:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/database/Xbase/TBDEDataSet_Bl
oc
kReadSize_example.zip
Petr Vones
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.261 / Virov� b�ze: 131 - datum vyd�n�: 6.6.2001