Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Metoda POST
[*] Jan Dite <jan.dite(zv)atlas(tec)cz> - 29.6.2001 10:50:20
zkus v asp pro cteni pouzit Request("jmeno"). to by melo odchytit GET i
POST.
honza
| to pouzivas stejne ASP na GET i POST?
| Bud v nem totiz ty data ctes pomoci Request.QueryString("jmeno") - dostava
| je metodou GET (za adresou)
| nebo pomoci Request.Form("jmeno") - dostava je metodou POST
|
| Mam nasledujici problem. Mam nainstalovany PSW server a na nem jednoduchy
| ASP script do ktereho posilam dve promenne a on je pouze vypise. Kdyz je
tam
| posilam klasicky pres Html stranku je to OK. Ale ja bych to chtel posilat
v
| Delphi pres metodu NMHTTP1.Post.
BDE instalace
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 29.6.2001 10:58:17
Cez Inno Setup 2.0.11
http://www.jrsoftware.org/isfaq.htm#bde
http://www.jrsoftware.org/ishowto.phtml?a=bde
Robo
> Zdravim vsechny.
>
> prosim o Vase zkusenosti
>
> 1. instalace pomoci InstallShield lehce zmrsi cestinu.
> 2. instalace pomoci Bdeinst.dll nainstaluje pouze zakladni nativni drivery
> mimo napr. Interbase
> 3. instalace pomoci InnoSetUp - nevim jak ho donutim k k registraci
>
> Diky za rady
Zmena IP configurace
[*] Zelen� Ale� <azeleny(zv)csas(tec)cz> - 29.6.2001 11:06:27
DDV
trosku pozdni odpoved (nejsou lidi)
MAM NT4.0 a profily jsem si nastavili bez PCMCIA sitovky a s NI, ale kdyz
jsem zkusil udelat ruhy profil se sitovkou, tak se zemena IP konfigurace v
jednom profilu se sitovkou projevila i v tom druhem, jinak bych si vystacil
s profily, ten reboot nevadi, stejne ten pocitac vypinam, kdyz nekam jdu a
pak ho zapinam :-)
Proto jsem si myslil, ze bych si napsal programek, ktery by tu zmenu
konfigurace udelal.
Nuz co, nejak se s tim rucnim klepanim smirim...
Kazdopadne diky za info - alespon vim, ze to mam jeste zkouset pres profily
neb jsem treba delal neco spatne.
a.
> -----Original Message-----
> From: Viliam Mlich [mailto:vmlich(zv)mbox.vol(tec)cz]
> Sent: Sunday, June 17, 2001 12:09 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Zmena IP configurace
>
>
> > rad bych na to mel v Delphi (4 prof) programek, kteremu
> > bych dal konfigurak a on by nastavil vse pozadovane
>
> Preco by si to chcel riesit spustenim nejakeho .EXE? Stejne
> potom musis
> rebootovat, tak neni jednoduchsie narobit si viac profilov?
> Presne na toto
> ich Gates do Windows daval.
>
> Ked do toho chces silou-mocou narvat Delphi, mozno by sa dala
> volat nejaka
> API funkcia SetDefaultProfile.. ;-)
>
> bye
> vmlich http://www.winrar(tec)cz
>
> seriova komunikace v Pascalu
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.6.2001 11:06:48
> Jestli mas jeste dalsi otazky, staci napsat. (napr. mam navod, jak ovladat
> 4civkovy krokac (z velky disketarny)).
To asi so seriovou komunikaciou nebude mat vela spolocne ;-). Inak si
popisal vsetky signaly UARTu okrem tych najdolezitejsich pre samotnu
seriovu komunikaciu (RxD, TxD, IRQ).
Erik
Volani ulozene procedury z Delphi, moznosti a name
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 29.6.2001 11:22:05
Ahoj, zdravim vsechny.
Zkousel jsem jak funguji ulozene procedury a jak se volaji. Mam takovou
zkusebni procedurku, ve ktere je promenna (zv)Druh typu varchar, lepe parametr
a do neho pak predavam z Delphi hodnotu.
Mam to asi takto. Procedura je nazev komponenty StoredProcedure.
Procedura.ParamByName('(zv)Druh').AsString:= 'Smlouva pro mont�zn� firmy';
Procedura.ExecProc;
Procedura.Open;
Lze to takto predavat ? Nemam s tim jeste zadne zkusenosti a tak moc rad
privitam, jetlize mi nekdo posle kousek reseni, jak vola procedury a predava
jim parametry, nebo uvitam namety, jak to delat nejlepe.
Diky predem vsem, kteri prispeji.
Fila
Vyjimky a vlakno
[*] Robert Suska, KORAK slovakia <robert(zv)korak.sk> - 29.6.2001 12:29:41
existuje take nieco ako
try
try
.... // nebezpecny kod
except on EXCEPTION // alebo sem napis priamo meno vynimky ktora tam moze
vzniknut napr. EInOutError do
... // osetrenie vynimky nejaky ten MessageBox a co ja viem co
end;
finally
... // uvolenie alokovanych obj. napr. Nieco.Free;
end;
----- Original Message -----
From: "L. Filip" <lfilip(zv)lekis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 29, 2001 9:55 AM
Subject: Vyjimky a vlakno
Zdrav�m.
M��ete mi n�kdo poradit jak odchyt�vat vyj�mky ve vl�knu?
Jde mi o toto:
Ve vl�knu otev�r�m n�jak� dataset nebo spou#t�m ulo�enou proceduru. V hlavn�
��sti �ek�m na dokon�en� vl�kna a pot�ebuji v�d�t jestli do#lo ve vl�knu k
chyb�. Zat�m jsem to �e#il tak, �e jsem napl�oval ukazatel n�jakou hodnotou
informuj�c� o spr�vn�m proveden�, ale moc se mi to nel�b�.
D�ky za ka�dou radu.
Instalator pro Delphi
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 29.6.2001 12:33:54
Ahoj,
InnoSetup ve spojeni se ScriptMakerem pusobi velice sympaticky.
V konferenci jsem na nej slysel jenom chvalu a rad bych tento instalator
pouzival i nadale. Bohuzel se mi stalo, ze jsem vytvoril instalaci, ktera
fungovala v pohode, ale pri odinstalaci vyskocila chyba: Neznama
softwarova vyjimka na adrese ... a pote Runtime error 217.
Toto hlaseni se ukazalo v okamziku, kdy se objevil formular s progresbarem,
ktery ukazoval stav odinstalace a byl na 0%. Odinstalator pak pokracoval
spokojene dal a aplikace se odinstalovala.
Stalo se nekomu neco podobneho? Co s tim?
Instalace: 1 exe, nekolik DLL, OCX, BPL, registrace COM servru a TLB
System W2k CZ SP1
Za odpovedi a zkusenosti dekuji
Tomas Bihary
----- Original Message -----
> Dusan Fojtik dne 28 Jun 2001, v 15:07:
>
> > Ktery instalator je nejlepsi na delani instalacek produktu, ktere byly
> > naprogramovany v Delphi 5.0 ? V instalacce Delphi 5 EE, je sice
> > instalator Installshield Express Limited Edition. Je sice dobry, ale
> > je moc funkcne orezany. Rad bych pouzival instalator ve stylu
> > Installshield Expressu, ale potrebuji aby mel i moznost skriptovani.
> > Nevite o nejakem, pokud mozno freewarovem ? S pozdravem
>
> Velice dobrou zkusenost jsem udelal s programem Inno Setup:
>
> http://www.jrsoftware.org/
> AnsiStringy
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 29.6.2001 12:38:14
> Jen na okraj, na kom jinem by to tak asi melo zalezet, aby neudelal chybu
?
> Prece od toho je programator, ne ? Pokud ma paru o tom, jak funguje
pocitac
> a co dela kompilator, tak typovou kontrolu a podobne veci potrebuje jen na
> usnadneni rutiny. Pokud o tom paru nema, tak co se do toho sere ? Denne se
> potykam s nasledky uvazovani typu "vezme se par komponent, ulozenych
> procedur a je to". Z IT branze se vytratila profesionalita, tahne se sem
> spousta lidi, kteri by bez RAD nenapsali ani radku, protoze proste nemaji
> ani sajnu o tom, jak to v bednach chodi. Chci videt vsechny ty Eifelisty a
> Visualisty, jak pachaji SW treba pro pracku nebo ridici jednotku auta.
> Nejhorsi na tom je, ze to v podstate k nicemu neni. Opravdu dulezity SW se
> neprodava v krabicich, to je jen marketingova a modni zalezitost.
Ahoj Jiri...
No to je sranda. Aj ja som si cely ten dlhy cas co citam tuto konferenciu
myslel ze to je konferencia o DELPHI a teda o RAD nastroji. Je krasne citat
ze skutocny programator je ten co program pise prikazom "copy con prvy.exe".
Skusal som to, ale dostal som sa len cez 'MZ'...
Mnohi zda sa este nepochopili ze v dnesnom svete programatorov sa je NUTNE
specializovat a teda nikto naozaj nemusi ovladat napriklad asembler, BIOS ci
ako sa ovladaju porty... naco aj ?
No a to s tym ze naco je programatorovi nastroj a jazyk ktory ho viac
kontroluje a nedovoli mu urobit nejake fatalne omyly, to je asi
najusmevnejsia myslienka v tejto konferencii po dlhom case.
No a aby som bol trochu polemicky. Ja by som chcel zase vidiet tych co
pachaju "SW treba pro pracku nebo ridici jednotku auta" ako programuju
robustny DB informacny system, graficke studio, GIS a podobne v rovnakom
case s nastrojom ktory pouzivaju na prackovy SW ! Ved kazdy nastroj je na
ine urceny a v kazdom sa vyzaduje iny typ vedomosti...
Ahoj Dalibor...
>i v Delphi bezne pouzivam "dynamicky alokovane" pole, kdy natypuju
napriklad
>Array [0..0] of Char
>a pak pole alokuju prez pointer (pomoci GetMem)
> Nevidim na tom nic spatneho
Na tomto ani nic spatneho nie je !
Je to suvisla vnutorne nestrukturovana oblast - pouzijes GetMem - v poriadku
a navyse si to velmi vhodne ulahcis, lebo cele to potom referencujes ako
Pole[cislo] a zarucujes si tym v dalsom pouziti TYPOVU KONTROLU na CHAR.
Super ! Kazdy vie ze robit sa to da milionom sposobov - napr. PChar,
Pointer, .... podla toho na co sa to ma dalej pouzit.
Ovsem tato debata uz davno nie je o AnsiStringoch ale o nizko urovnovom a
abstraktom programovani a tu sa len tazko dohodneme, lebo kazdy robime na
inych typoch problemov, inak uvazujeme a mame ine postupy.
JaNo,Instalator pro Delphi
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 29.6.2001 12:47:14
Este bych doplnil: nadstavba IS Tool, odkaz je tamtez
Sroub
> Ahoj,
> treba InnoSetup (www.innosetup.com).
> Umi cestinu, skripty, novy vzhled a je zadarmo se zdrojakama..
> Ja jsem s nim vcelku spokojen.
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.papouch.com
>
>
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Dusan Fojtik
> > Sent: Thursday, June 28, 2001 3:07 PM
> > To: Konference o Delphi
> > Subject: Instalator pro Delphi
> >
> >
> > Nazdar
> > Ktery instalator je nejlepsi na delani instalacek produktu, ktere byly
> > naprogramovany v Delphi 5.0 ? V instalacce Delphi 5 EE, je sice
> > instalator Installshield Express Limited Edition. Je sice dobry, ale je
> > moc funkcne orezany. Rad bych pouzival instalator ve stylu Installshield
> > Expressu, ale potrebuji aby mel i moznost skriptovani.
> > Nevite o nejakem, pokud mozno freewarovem ?
> > S pozdravem
> > Dusan Fojtik
> >
> >
> >TFont
[*] Danny <delphiforum(zv)atlas(tec)cz> - 29.6.2001 12:47:52
Jo, FFont creatuju. V tom to nebude.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of FAIT Ji��, ml.
> Sent: Friday, June 29, 2001 8:24 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: TFont
>
>
> > napsal jsem si vlastni komponentu, kde jednim z property je:
> >
> > property Font:TFont read FFont write SetFont;
> >
> > Vsechno je OK, v ObjectInspectorovi se mi nabizi klasicky
> > vyber Fontu, ale
> > ...
> >
> > v pripade, ze Font v Obj.Insp. rozbalim (pres to plusko) a
> > neco zmenim, tak
> > to vubec neskoci do ty my procedury SetFont, takze se s
> > fontem nic nestane.
> > Kdyz ale kliknu na ty tri tecky u Fontu v Obj.Insp. a z toho
> > dialogu pro
> > vyber fontu neco vyberu, tak to do SetFont skoci.
> > Co je spatne? Proc ten prvni zpusob nefunguje?
> >
>
> Mas v FFont vytvorenej
>
> constructor TMojeKomp.Create(AOwner:TComponent);
> begin
> inherited Create(AOwner);
> FFont :=TFont.Create;
> ...
> end;
>
> nezapomenout v destructoru uvolnit.OT: Jak prodavat vlastni software do zahranici.
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 29.6.2001 12:57:14
Potreboval bych zjistit, jak je mozne, a co vsechno je nutne udelat, abych
mohl svuj vlastni software nabizet a prodavat zakaznikum v zahranici.
Predpokladam tyto premisy:
# shareware software bude umisteno na mem webu
# ostra verze bude po zaplaceni odesilana elektronickou postou nebo
klasickou postou
# program bude pochopitelne lokalizovan
# mam eBanku
Mam tyto nevyresene problemy:
# jak bude resp. muze probihat platba zakaznika do me banka - jake jsou
moznosti
# jak se provadi procleni), zaslani postou, atd.
# jak nejlepe vyresit objednani a placeni na webu (po technicke strance)
Verim, ze s tim mate jiz nekdo nejake zkusenosti a budete se chtit rozdelit.
Diky
Petr Svejda
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.262 / Virov� b�ze: 132 - datum vyd�n�: 12.6.2001
Instalator pro Delphi
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 29.6.2001 13:17:29
Ahoj!
Tak si odpovim sam! Trochu jsem se hrabal ve zdrojovych kodech IS
a zjistil jsem co se delo. Doslo k tomu ze soucasti instalace byla
typova knihovna a DLL knihovna, ktera tuto TLB pouzivala.
Behem odinstalace se instalator pokusil zminovanou DLL nahrat pomoci
LoadLibrary, aby mohl provest jeji odregistraci. V tomto okamziku jiz
byla TLB odinstalovana, knihovna nesla natahnout a proto se zobrazila
chybova hlaska. Stacilo prohodit poradi instalovanych souboru (1.TLB,
2.DLL).
Odinstalace probihas totiz v opacnem poradi a proto se nejprve odinstaluje
DLL,
ktera na TLB zavisi a teprve potom sama TLB.
T.B.
PS: na zaver bych se rad zeptal, jake jsou vase zkusenosti s instalovani
souboru .BPL
je lepsi instalovat do SYSTEM32, nebo do adresare aplikace? dekuji.
----- Original Message -----
> Ahoj,
> InnoSetup ve spojeni se ScriptMakerem pusobi velice sympaticky.
> V konferenci jsem na nej slysel jenom chvalu a rad bych tento instalator
> pouzival i nadale. Bohuzel se mi stalo, ze jsem vytvoril instalaci, ktera
> fungovala v pohode, ale pri odinstalaci vyskocila chyba: Neznama
> softwarova vyjimka na adrese ... a pote Runtime error 217.
> Toto hlaseni se ukazalo v okamziku, kdy se objevil formular s
progresbarem,
> ktery ukazoval stav odinstalace a byl na 0%. Odinstalator pak pokracoval
> spokojene dal a aplikace se odinstalovala.
> Stalo se nekomu neco podobneho? Co s tim?
> Instalace: 1 exe, nekolik DLL, OCX, BPL, registrace COM servru a TLB
> System W2k CZ SP1
>
> Za odpovedi a zkusenosti dekuji
> Tomas Bihary
>
Volani ulozene procedury z Delphi, moznosti a name
[*] Lubo Fule <fule(zv)ekosoft.sk> - 29.6.2001 13:19:03
> Ahoj, zdravim vsechny.
> Zkousel jsem jak funguji ulozene procedury a jak se volaji. Mam takovou
> zkusebni procedurku, ve ktere je promenna (zv)Druh typu varchar,
> lepe parametr
> a do neho pak predavam z Delphi hodnotu.
> Mam to asi takto. Procedura je nazev komponenty StoredProcedure.
>
> Procedura.ParamByName('(zv)Druh').AsString:= 'Smlouva pro mont�zn� firmy';
> Procedura.ExecProc;
> Procedura.Open;
>
Nemozes pouzit ExecProc a potom Open. Obidva prikazy totiz spustia danu
proceduru (takze sa spusti dvakrat), akurat s tym rozdielom, ze Open sa
snazi otvorit dataset, kym Exec proc iba spusti proceduru a ak tato vracia
nejaky dataset, tak ho vzapati zatvori. Teda ak ches spustit stor.
proceduru, ktorej vysledkom je dataset, tak pouzi Open a ak chces spustit
vykonnu proceduru, ktora dataset nevracia, tak pouzi ExecProc.
L.
Jak prodavat vlastni software do zahranici.
[*] Maixner Tomas <maixner(zv)infoware(tec)cz> - 29.6.2001 13:25:51
Dobry den,
takze. Moje varianta.
1) vyberte si spolecnost ktera bude zprostredkovavat placeni
2) tato spolecnost vam da soubor s tzv. PIN kody.
3) na svych strankach implementujte FORM, ktery dostanete od platici
spolecnosti. Je potreba mysql databaze + php
4)clovek, ktery se rozhodne vas software koupit, zaplati treba kreditkou,
ale lze i jinou cestou (formy placeni vam predlozi spolecnost pres kterou to
pozenete).
5)po zaplaceni(online) dostane od spolecnosti PIN kod, ktery musi souhlasit
s PIN kodem ve vasem souboru, pokud souhlasi (pro platce je tato transakce
nepruhledna), zapise se do databaze se svym loginem a passwordem. Pote na
vasich strankach tyto udaje vlozi a je uvnitr sekce pro stahovani vasi ostre
verze programu + treba licence.
6) vse je hotovo
--------- problemy --------------
- spolecnost pres kterou to zenete si z toho nejaky procento vezme
Prijemny zbytek dne,
Maixner Tomas
Jak prodavat vlastni software do zahranici.
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.6.2001 13:26:36
> Potreboval bych zjistit, jak je mozne, a co vsechno je nutne udelat, abych
> mohl svuj vlastni software nabizet a prodavat zakaznikum v zahranici.
> Predpokladam tyto premisy:
>
> # shareware software bude umisteno na mem webu
> # ostra verze bude po zaplaceni odesilana elektronickou postou nebo
> klasickou postou
> # program bude pochopitelne lokalizovan
> # mam eBanku
>
> Mam tyto nevyresene problemy:
>
> # jak bude resp. muze probihat platba zakaznika do me banka - jake jsou
> moznosti
jedine rozumne realizovatelne je spojit se s nejakou firmou, ktera za tebe
akceptuje platby kreditkou a Tobe pak posle hotove penize. Takovych firem
jsou mraky a jejich provize se pohybuje v radu jednotek i desitek procent.
Pouzivame www.regnow.com a www.shareit.com
> # jak se provadi procleni), zaslani postou, atd.
nejsem ekonom, ale pokud se nepletu tak za elektronicky dodane zbozi se clo
neplati (software si stahnou...)
> # jak nejlepe vyresit objednani a placeni na webu (po technicke strance)
prodavat registracni klic. Formulare za Tebe udelaji www.regnow.com a spol -
staci tedy na Tve WWW dat jen odkaz.
Pokud si das tu praci da vse zautomatizovat tak, ze jen chodis do banky
pocitat $ :-)
Tuzemsti zakaznici neplati kreditkou (vetsinou). Pro ne udelas specialni
formular a posilas proformy...
Na nejakou domluvu s tuzemskyma bankama zapomen. Aby nektera akceptovala
platbu kreditkou ze zahranici a strasne se u toho nekroutila nehrozi.
D. Toman
Volani ulozene procedury z Delphi, moznosti a name
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 29.6.2001 13:28:10
My jsme se naucili pouzivat TQuery (stejne jako TStoredProc, jen si to
mohu naplnit za behu programu)..
Pak pisu
MyQuery.Sql.Text := 'exec MojeProcedura (zv)Druh = :Druh, (zv)Razeni = 1';
MyQuery.ParamByName('Druh').AsString := 'Smlouva pro mont�zn� firmy';
MyQuery.Open; // Pokud cekam, ze se n�co vrati
nebo
MyQuery.ExecSQL; // Pokud to jen provadi nejaky kod a nic to nevraci
Pokud pouzijes TStoredProc, odpadne Ti 1. radek, pze napojeni na danou
proceduru uz mas v designu hotove (predpokladam).
MyQuery.Sql.Text := 'exec MojeProcedura (zv)Druh = :Druh, (zv)Razeni = 1';
lze nahradit za napr.:
MyQuery.Clear;
MyQuery.Add('exec MojeProcedura');
MyQuery.Add('(zv)Druh = :Druh,'); // pripadne rovnou MyQuery.Add('(zv)Druh = ''Smlouva pro mont�zn� firmy'',');
MyQuery.Add('(zv)Razeni = 1');
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
> Zkousel jsem jak funguji ulozene procedury a jak se volaji. Mam takovou
> zkusebni procedurku, ve ktere je promenna (zv)Druh typu varchar, lepe parametr
> a do neho pak predavam z Delphi hodnotu.
> Mam to asi takto. Procedura je nazev komponenty StoredProcedure.
> Procedura.ParamByName('(zv)Druh').AsString:= 'Smlouva pro mont�zn� firmy';
> Procedura.ExecProc;
> Procedura.Open;
> Lze to takto predavat ? Nemam s tim jeste zadne zkusenosti a tak moc rad
> privitam, jetlize mi nekdo posle kousek reseni, jak vola procedury a predava
> jim parametry, nebo uvitam namety, jak to delat nejlepe.Volani ulozene procedury z Delphi, moznosti a name
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 29.6.2001 13:38:01
Vse zalezi na tom jake pouzivas pripojeni k Interbase, pokud
IBExpress tak jsou dva mozne pripady
bud se jedna o select proceduru nebo ne
V Pripade, ze ne tak se to provede takto
Procedure.ParamByName(':Druh').AsString := 'asdgafsdg ';
Procedure.ExecProc;
V Pripade, ze se jedna o select proceduru tak pouzijes TIBQuery
a do SQL napises select * from Procedura(:DRUH)
a toto spustis takto
Query.ParamByName(':Druh').AsString := 'asdgafsdg ';
Query.ExecSQL;
Priji mnoho zdaru
> Ahoj, zdravim vsechny.
> Zkousel jsem jak funguji ulozene procedury a jak se volaji. Mam takovou
> zkusebni procedurku, ve ktere je promenna (zv)Druh typu varchar, lepe parametr
> a do neho pak predavam z Delphi hodnotu.
> Mam to asi takto. Procedura je nazev komponenty StoredProcedure.
>
> Procedura.ParamByName('(zv)Druh').AsString:= 'Smlouva pro mont�zn� firmy';
> Procedura.ExecProc;
> Procedura.Open;
>
> Lze to takto predavat ? Nemam s tim jeste zadne zkusenosti a tak moc rad
> privitam, jetlize mi nekdo posle kousek reseni, jak vola procedury a predava
> jim parametry, nebo uvitam namety, jak to delat nejlepe.
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Jak prodavat vlastni software do zahranici.
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 29.6.2001 14:00:40
> Potreboval bych zjistit, jak je mozne, a co vsechno je nutne udelat, abych
> mohl svuj vlastni software nabizet a prodavat zakaznikum v zahranici.
> Predpokladam tyto premisy:
>
> # shareware software bude umisteno na mem webu
> # ostra verze bude po zaplaceni odesilana elektronickou postou nebo
> klasickou postou
> # program bude pochopitelne lokalizovan
> # mam eBanku
>
> Mam tyto nevyresene problemy:
>
> # jak bude resp. muze probihat platba zakaznika do me banka - jake jsou
> moznosti
> # jak se provadi procleni), zaslani postou, atd.
> # jak nejlepe vyresit objednani a placeni na webu (po technicke strance)
>
> Verim, ze s tim mate jiz nekdo nejake zkusenosti a budete se chtit
rozdelit.
>
> Diky
>
> Petr Svejda
>
Nejsou v tom zadne problemy.
Platba: bankovnim prevodem, sekem nebo platebni kartou.
S bankovnim prevodem nejsou v EBance zadne problemy, vetsinou
projde behem jednoho tyden. Jenom si na Ebance musis zjistit, jak
presne oznacit svuj ucet pro zahranicni platby.
S sekem u EBanky nepochodis, musis napr. do KB, nebo jinam.
Platebni karty: tam jsou nejvetsi obraty. Nejjednodussim resenim
je zaregistrovat se do nejake sluzby, napr. www.shareit.com ,
(je jich spousta dalsich), na sve strance budes mit odkaz na
platebni stranku, tam tvuj zakaznik software zaplati,
shareit te upozorni, ze mas poslat ostry soft nebo aktivacni
klic, pripadne ho zasle sam. A jednou mesicne to s tebou
vyuctuje, vezme si nejake procento z obratu a posle ti to
na ucet.
Software je sluzba, takze se necli, na celnici vubec nechod,
vyhodili by te :-)). Je to vyvoz, takze se te nase DPH netyka,
jenom to pises do DPH priznani do polozky Vyvoz sluzeb.
Proste to po zaplaceni posles postou nebo emailem.
Radim
Ulozena procedura, proc nefunguje ?
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 29.6.2001 14:08:01
Ahojte, nevite nekdo, proc mi nefunguje tato procedura ? Nefunguje tam ta
podminka a castka. Nevim, jak tam mam priradit dve promenne. Do podminka se
preda bud >,<,>= nebo <= a do castka se preda nejake cislo. Potrebuji aby to
pri provedeni vypadalo takto C.Castka>100 napriklad.
CREATE PROCEDURE [Vyber_Provize]
(zv)OdDatum DateTime=NULL,
(zv)DoDatum DateTime=NULL,
(zv)Druh varchar(45)=NULL,
(zv)Podminka char(5)=NULL,
(zv)Castka int=NULL
AS
SET NOCOUNT ON
Create table ##CastkaProvize
(
Cislo_jmena int,
Castka int
)
insert into ##CastkaProvize Select P.Cislo_jmena, Sum(D.Castka) as 'Celkov�
soucet' From Provize P, Detail_provize D where
P.Cislo_provize=D.Cislo_provize And D.Datum_vyplaceni>=(zv)OdDatum And
D.Datum_vyplaceni<=(zv)DoDatum and P.Druh_provize=(zv)Druh Group by P.Cislo_jmena
Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem, J.Funkce,
J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
##CastkaProvize C
Where J.Cislo_jmena=C.Cislo_jmena And C.Castka +(zv)Podminka + (zv)Castka
Drop table ##CastkaProvize
Vsem diky za pomoc.
Fila
AnsiStringy
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 29.6.2001 14:17:10
> > > PS: Dalsim problematickym prikazem je move, nezvedne pocet referenci !!!
>
> proc by melo zvedat? Move je proste funkce, ktera presune kus pameti na jine
> misto. Nic vic.
>
Ne zvedat by ji opravdu nemelo to me opravdu nenepadlo ze to muze byt takto pochopeno.
Slavek
IB - SQL
[*] Lauko #tefan <laukosw(zv)naex.sk> - 29.6.2001 14:25:29
Ahoj,
mam jeden trivialny problem. V IB-Firebird mam tabulku v nej niekolko
stlpcov hlavny je Datum.
Potrebujem urobit select tak aby mi to spocitalo pocet zaznamov za kazdy
mesiac.
Vysledok by mal byt :
mesiac pocet
1 14
2 29
3 78
atd...
Neviem ako v SQL vybrat z DATE len mesiac a ako to spocitat.
Mohol by mi niekto pomoct?
Za pomoc vopred dakujem.
Lauko.
Databaze MS Access + vice uzivatelu
[*] Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 29.6.2001 14:30:25
Ahoj,
pristupuji k databazi MS Access z D4 pres BDE a moji uzivatele (a ted hlavne
ja) maji nasledujici problem.
1.Uzivatel 1 na pocitaci 1 otevre Table1 ve sdilene DB1.mdb - pristup pres
zive TQuery
2.Uzivatel 2 na pocitaci 2 otevre Table1 ve sdilene DB2.mdb - pristup pres
zive TQuery
3.Uzivatel 1 nastavi Table1 do insert modu.
4.Uzivatel 2 nastavi Table1 do insert modu a zapise neco a kdyz chce zapsany
zaznam ulozit objevy se hlaska "Nelze ulozit. Prave uzamcenio uzivatelem
"ADMIN" na pocitaci 1". Dokud uzivatel 1 neulozi svuj zaznam tak si uzivatel
2 ani neskrntne. A co horsi, kdyz uzivatel 1 zaznam stornuje uzivatel 2 ten
svuj jiz neulozi. (Tuto situaci se mi povedlo navodit, kdyr Table1
neobsahovalo zadne zaznamy, ale u uzivatelu i jindy)
Nekdy, ale celou tabulku zamkne i nastaveni zaznamu do edit modu.
Stejne je tomu i kdyz misto BDE pouziju aoADO komponety. Pravdepodobne se
musi nejak nastavit Microsoft Jet, ale nevim jak.
Snad to nemuze byt spravne chovani MS Access
Prosim o jakoukoliv radu, je to pro mne obrovsky problem.
S pozdravem
Petr Kejval
Delphi 5.0 - dotaz k nastaven� debuggeru pr
[*] And�l Jaroslav <jaroslav.andel(zv)lcs(tec)cz> - 29.6.2001 15:04:48
Ahoj,
nevite nekdo, jak a kde se da vypnout v Delphi funkce,
aby se pri chybach externich programu nespoustelo Delphi pro odladeni chyby
daneho programu?
(vim, ze je mozne si to zablokovat pri instalaci Delphi - pri dotazu
nastaveni debuggeru,
ale co po provedene instalaci? - nemohu to nikde najit)
Dekuji.
S pratelskym pozdravem
Jaroslav Andel, diplomovany technik
HELIOSR IQ - vyvoj
LCS International, a.s., Slezska 96, 130 00 Praha 3
prevod komponent pro Kylix
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.6.2001 15:42:36
Zdravim
Konecne se mi podarilo nainstalovat Kylix a narazil jsem na problem s
komponentama. Zacal jsem jednoduchyma komponentama. Sice jsem je
nainstaloval, ale zadna z nich nelze vlozit na Form. Hlasi neco jako, ze
komponentu nelze takto pouzit. A tak se chci zeptat, jestli nekde existuje
navod nebo tipy, jak komponenty rozchodit pod Kylixem. Zaroven pod nim chci
(=musim) nainstalovat RxLib, TB97, TB2K a mwCustomEdit. Vite nekdo kde
rostou verze pro kylix, jestli rostou. Prepisovat vsechny unity (odhadem
250) se mi nechce a stejnak by mi to urcite nefungovalo.
Diky vsem, kdo poradi
Hurricane
AnsiStringy
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 29.6.2001 15:46:57
> Ahoj Jiri...
>
> No to je sranda. Aj ja som si cely ten dlhy cas co citam tuto
> konferenciu
> myslel ze to je konferencia o DELPHI a teda o RAD nastroji.
> Je krasne citat
> ze skutocny programator je ten co program pise prikazom "copy
> con prvy.exe".
> Skusal som to, ale dostal som sa len cez 'MZ'...
> Mnohi zda sa este nepochopili ze v dnesnom svete
> programatorov sa je NUTNE
> specializovat a teda nikto naozaj nemusi ovladat napriklad
> asembler, BIOS ci
> ako sa ovladaju porty... naco aj ?
Jen dve veci.
Nepolemizuji s nutnosti specializace, polemizuji s tvrzenim, ze:
*************************************************************************
> Zase dosledok low-level pristupu. V poriadnych jazykoch ako je napr.
> Eiffel sa nieco takeho nikdy nemoze stat (ani keby si sa
> vyslovene o to
> snazil). Jednoducho tam funguje silna typova kontrola, ktora nedovoli
> lubovolne prepisovat pamet. To je ten zasadny rozdiel a prinos.
************************************************************************
ktere naznacuje, ze asembler, C-jazyk atd. jsou v podstate nevhodne pro
programovani. Zde bagatelizovany low-level pristup je to, co ve skutecnosti
garantuje spolehlivost a vykonnost SW. Se spatne napsanym kompilatorem
nenapises dobrou aplikaci, kdyby mel sebe vice typovych kontrol. Psani
kompilatoru lze ve skutecnosti povazovat za low level pristup, nebo ne ?
Ve skutecnosti asembler a praci s HW musi ovladat kazdy, kdo resi ridici
systemy, drivery, komunikace apod. To, ze to skoro nikdo neumi, a vetsina
lidi si mysli, ze napsat Office je vrchol programatorskeho umeni, je jen
dusledek obecne rozsireneho omylu, ze nejlepsi software je ten, ktery se
nejvice prodava. Ja si to nemyslim, za nejlepsi software povazuji to, na cem
zavisi treba lidske zivoty. A to neni krabicovy SW. Jeste jsem neslysel, ze
by se software pro ABS do auta psal ve Visual Basicu. Kazdemu co jeho jest -
pro aplikace, kde nejaka ta havarka nehraje roli, klidne pouziji RAD s tim,
ze do velke casti kodu nevidim a pripadne chyby nebudu schopen odstranit,
ale do ridiciho pocitace pro rizeni vytahu si program napisu cely sam (a
nebude to ani Basic, ani Eiffel, ani Forth, ani Pascal), protoze tady jde
sranda stranou. Oboji jsem delal, takze vim, o cem je rec.
> No a to s tym ze naco je programatorovi nastroj a jazyk ktory ho viac
> kontroluje a nedovoli mu urobit nejake fatalne omyly, to je asi
> najusmevnejsia myslienka v tejto konferencii po dlhom case.
> No a aby som bol trochu polemicky. Ja by som chcel zase vidiet tych co
> pachaju "SW treba pro pracku nebo ridici jednotku auta" ako programuju
> robustny DB informacny system, graficke studio, GIS a podobne
> v rovnakom
> case s nastrojom ktory pouzivaju na prackovy SW ! Ved kazdy
> nastroj je na
> ine urceny a v kazdom sa vyzaduje iny typ vedomosti...
No, asi hlavni rozdil je v tom, ze IS, GIS nebo graficke studio je ve
skutecnosti napsane v asembleru, jen to neni na prvni pohled videt. Pokud
znas asembler, muzes napsat GIS, i kdyz to asi bude prace na dlouho :-))).
Pokud asembler neznas, BIOS nenapises nikdy.
Aby nedoslo k omylu, netvrdim, ze kazdy musi umet psat drivery a programy
pro mikrokontrolery. Rikam jen to, ze nelze absolutizovat a tvrdit, ze
kompilator bez dostatecne typove kontroly je obecne horsi nez ten, ktery
typovou kontrolu tvrde prosazuje. Rekl bych, ze zalezi jen na schopnostech
uzivatele nastroje. Pokud je programator dobry, nemusi se nechat svazovat
omezenimi kompilatoru a muze si s pocitacem udelat to, co potrebuje. Pokud
toho neni schopen, musi pouzit nastroj, ktery to udela za nej. Ovsem ten
nastroj pro nej nekdo musi udelat. Stejne tak nevidim nejmensi duvod, proc
bych nemohl pouzitGetMem, pokud vim, co delam, a proc bych se musel spolehat
se pouze na New a Dispose. O tom to cele je - bud to umim a muzu si to
udelat sam (kdyz chci nebo potrebuji), nebo to neumim a musi to za mne
udelat nekdo jiny, at se mi to libi nebo ne.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
TFont
[*] likeapear <likeapear(zv)centrum(tec)cz> - 29.6.2001 15:52:23
no mozna to je tim, ze vlastnost "Font" je definovana nekde v TControl (tj.
v TComponent bude taky:))). takze bud si tuhle vlastnost pojmenuj jinak,
treba MyFont(a v SetMyFont nastavuj i vlastnost Font). s tim, ze mozna budes
muset nejak registrovat editor vlastnosti (ale mozna taky ne, vyzkousej to).
nebo zkus pouzivat vlastnost Font v predkovi a prepsat SetFont, jestli to
jde, nezkousel jsem to.
likeapear
----- Original Message -----
From: "Danny" <delphiforum(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 29, 2001 12:47 PM
Subject: RE: TFont
> Jo, FFont creatuju. V tom to nebude.
>
seriova komunikace v Pascalu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.6.2001 15:55:02
Zdravim
Ja jsem napsal to co vim a znam. Je mi jasne, ze ke komunikaci pomoci
urciteho protokolu se pouzivaji TxD a RxD, ale jak jsem uz psal drive,
pouzit tyto signaly by znamenalo napsat si vlastni driver, ktery ten tvuj
protokol pouzije. Tezko rict, k cemu to tazatel vlastne chce (me psal, ze
bude vdecnej za cokoliv). To co jsem popsal, se hodi napr k ovladani
neinteligentniho zarizeni, ktere jze ridit z PC (napr. ten krokovy motor,
nebo voltmetr pripojitelny k PC, meric fazoveho posunu, simulator logickyc
hradel a mraky dalsich aplikaci).
Hurricane
----- Original Message -----
> > Jestli mas jeste dalsi otazky, staci napsat. (napr. mam navod, jak
ovladat
> > 4civkovy krokac (z velky disketarny)).
>
> To asi so seriovou komunikaciou nebude mat vela spolocne ;-). Inak si
> popisal vsetky signaly UARTu okrem tych najdolezitejsich pre samotnu
> seriovu komunikaciu (RxD, TxD, IRQ).AnsiStringy
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 29.6.2001 16:03:39
Ok. Som rad ze si rozumieme a myslim ze hovorime o tom istom len trochu z
inych pohladov.> ktere naznacuje, ze asembler, C-jazyk atd. jsou v podstate nevhodne pro
> programovani. Zde bagatelizovany low-level pristup je to, co ve
skutecnosti
> garantuje spolehlivost a vykonnost SW.
Ako som uz napisal. Jedno je dobre na to, jedno na ono.
Na aplikacny SW vyssej urovne (myslim tym uzivatelske rozhranie, strana
klienta) je podla mna lepsie pouzivat RAD a to najlepsie v jazyku so silnou
typovou kontrolou - teda napr. PASCAL -> DELPHI. Tych specialnych "rychlych"
casti je v tychto aplikaciach minimum ak nejake vobec.
> Pokud je programator dobry, nemusi se nechat svazovat
> omezenimi kompilatoru a muze si s pocitacem udelat to, co potrebuje. Pokud
> toho neni schopen, musi pouzit nastroj, ktery to udela za nej. Ovsem ten
> nastroj pro nej nekdo musi udelat. Stejne tak nevidim nejmensi duvod, proc
> bych nemohl pouzitGetMem, pokud vim, co delam, a proc bych se musel
spolehat
> se pouze na New a Dispose. O tom to cele je - bud to umim a muzu si to
> udelat sam (kdyz chci nebo potrebuji), nebo to neumim a musi to za mne
> udelat nekdo jiny, at se mi to libi nebo ne.
Suhlasim s nasl. vyhradami:
- programator moze byt dobry len pracou unaveny !
- ked to vies pouzit, pouzi, kto nevie, nech pouzije standardnejsie veci, to
je vsetko
Myslim ze tuto temu mozeme uzavriet.
JaNo,Delphi 5.0 - dotaz k nastaven� debuggeru pro Windo
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.6.2001 16:04:02
Zdravim
Me do dialogu "Program provedl ..." pribylo tlacitko "Ladit". Kdyz ho
nezmacknu, Delphi (D5) se nespusti. Tak v cem je potom problem?
Hurricane
----- Original Message -----
> nevite nekdo, jak a kde se da vypnout v Delphi funkce,
> aby se pri chybach externich programu nespoustelo Delphi pro odladeni
chyby
> daneho programu?
> (vim, ze je mozne si to zablokovat pri instalaci Delphi - pri dotazu
> nastaveni debuggeru,
> ale co po provedene instalaci? - nemohu to nikde najit)Databaze MS Access + vice uzivatelu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 29.6.2001 16:05:24
Ahoj,
vsechno zalezi na rizeni transakci, jinak zahajeni operace insert do tabulky
ji vzdy zamkne, az do dokonceni transakce (minimalne pro insert). Transakce
musi bezet co nejkratsi dobu. Jinak nejen nevlozis, ale ani za urcitych
podminek neopravis radky tabulky. Stejne se chovaji vsechny databaze, ktere
transakce podporuji.
Pokud pracujes s ADO (BDE nepouzivam, nebot nemam naladu resit vsechny
potize, ktere to vyrabi samo od sebe, vystacim si s temi co vytvarim sam)
neni mozno pri viceuzivatelskem pristupu pouzit sekvenci:
begin transaction
edit/insert
post
commit transaction
Nejlepsi je nasat hodnoty do bufferu, zpracovat je a pod transakci ulozit.
Drobnym problemem je zajistit, aby se ti na jednom zaznamu nervali dva
uzivatele (z�mky), metodik je vice a byly v konferenci zmineny uz nekolikrat
zkus se pod�vat.
Pavel Lstiburek
> P�edm�t: Databaze MS Access + vice uzivatelu
> pristupuji k databazi MS Access z D4 pres BDE a moji
> uzivatele (a ted hlavne
> ja) maji nasledujici problem.
> 1.Uzivatel 1 na pocitaci 1 otevre Table1 ve sdilene DB1.mdb -
> pristup pres
> zive TQuery
> 2.Uzivatel 2 na pocitaci 2 otevre Table1 ve sdilene DB2.mdb -
> pristup pres
> zive TQuery
> 3.Uzivatel 1 nastavi Table1 do insert modu.
> 4.Uzivatel 2 nastavi Table1 do insert modu a zapise neco a
> kdyz chce zapsany
> zaznam ulozit objevy se hlaska "Nelze ulozit. Prave uzamcenio
> uzivatelem
> "ADMIN" na pocitaci 1". Dokud uzivatel 1 neulozi svuj zaznam
> tak si uzivatel
> 2 ani neskrntne. A co horsi, kdyz uzivatel 1 zaznam stornuje
> uzivatel 2 ten
> svuj jiz neulozi. (Tuto situaci se mi povedlo navodit, kdyr Table1
> neobsahovalo zadne zaznamy, ale u uzivatelu i jindy)
> Nekdy, ale celou tabulku zamkne i nastaveni zaznamu do edit modu.
> Stejne je tomu i kdyz misto BDE pouziju aoADO komponety.
> Pravdepodobne se
> musi nejak nastavit Microsoft Jet, ale nevim jak.
> Snad to nemuze byt spravne chovani MS Access
> Prosim o jakoukoliv radu, je to pro mne obrovsky problem.
>
> S pozdravem
> Petr Kejval
> jak zmenit tridu objektu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 29.6.2001 16:46:49
Zdravim
Mam potomka TOpenDilogu a potrebovyl bych ty standartni cudliky (Otevrit,
Storno) nahradit vlastnimi (potomek TGraphicControl). Lze to nejak udelat
bez toho, abych si musel sam obsluhovat jejich udalosti (netusim, co vsechno
se provede po kliknuti na Otevrit) Jde tedy o to, jak memu cudliku priradit
OnClick, ktery ma ten puvodni button.
Hurricane
TForm v property
[*] Josef Semera <semera(zv)atlas(tec)cz> - 29.6.2001 20:56:47
Jde do komponenty dat property ve ktery si proste vyberu prislusny formular.
Nekde delam nejakou chybu, zobrazim si vsechno, ale formular tam nedostanu.
diky
Josef Semera
semera(zv)atlas(tec)cz
D6 a SynEdit
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 29.6.2001 21:40:01
D6 Win Synedit
Vyreseno.
Cely SynEdit ke stazeni na http://fiala.web.wo(tec)cz
Melo by to byt komaptibilni zpetne dolu
--------
ing. Jan Fiala
MailTo:jan.fiala(zv)iol(tec)cz
Prevod aplikace na jiny OS language
[*] borkovec(zv)email(tec)cz - 29.6.2001 21:42:10
Takze, pokud mozno detailne, ono je to vice variant:
-upozornuji, ze ani jedna z chzb nenastane v CZ Win
1.Pri instalaci produktu InstallShieldem 2.0Edition to neni schopno vytvorit jeden z nekolika podadresaru - nazev je korektni (DOK) obsah tez
2. Tim nedojde k instalaci BDE. Po rucni doinstalaci aplikace nastartuje, ale pri prvnim vstupu hlasi chybu, ze nelze vycislit vyraz - jelikoz se v uvodnim query pocitaji kalkulovane polozky z datumu, tusim chybu ve formatu datumu. Jenze: po rucnim nastaveni datumoveho formatu tato chyba nemizi. Nepomuze ani prenastaveni langdriveru. K datumu pri vypocru kal. polozky pristupuju v ramci dostupnzch funkci DecodeDate a EncodeDate.
---
Email(tec)cz - Vase posta zdarma!
http://www.email(tec)cz
Metoda POST
[*] Centrum <E_DDT(zv)centrum(tec)cz> - 29.6.2001 22:05:05
Ne. Samozrejme ze pro POST pouzivam Request.Form a pro GET
Request.QueryString. Psal sem, ze pro GET to ASP sem upravil. A taky sem
psal, ze z IE (pres Html stranku) mi to normalne fachci (POST i GET). Ale z
Delphi pouze GET.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jan Dite
Sent: Friday, June 29, 2001 10:50 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Metoda POST
zkus v asp pro cteni pouzit Request("jmeno"). to by melo odchytit GET i
POST.
honza
| to pouzivas stejne ASP na GET i POST?
| Bud v nem totiz ty data ctes pomoci Request.QueryString("jmeno") - dostava
| je metodou GET (za adresou)
| nebo pomoci Request.Form("jmeno") - dostava je metodou POST
|
| Mam nasledujici problem. Mam nainstalovany PSW server a na nem jednoduchy
| ASP script do ktereho posilam dve promenne a on je pouze vypise. Kdyz je
tam
| posilam klasicky pres Html stranku je to OK. Ale ja bych to chtel posilat
v
| Delphi pres metodu NMHTTP1.Post.
AnsiStringy
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.6.2001 22:45:47
> ...len mi je potom zahadou, preco vacsina robustnych aplikacii je pisana
> prave v C-cku, ked podla Teba je C nanic. Zeby boli vsetci hlupi?
Robustnostou sa oznacuje schopnost softwarovych systemov fungovat
(korektne) aj za mimoriadnych podmienok (napr. nedostatok pameti,
rozne nepredvidatelne udalosti a pod.). Vecsina softwaru, ktory
pouzivam ma problem fungovat korektne aj za normalnych podmienok.
Ale mozno existuju robustne programy v C-cku, len som mal tu smolu,
ze som na nich nenatrafil ;-)
Erik
ComPort - navrh komunikace
[*] Filip Honzarek <DEVELOPER(zv)pcforum(tec)cz> - 29.6.2001 22:46:56
Zdravim,
mam jeden problemek, potrebuju napsat komunikaci mezi zarizenim,
ktere ma nasledujici ovladani.
1. Poslu data
2. obdrzim kontrolni odpoved
3. Obdrzim vyzadana data
4. poslu kontrolni packet
Muzete mi poradi nejlepsi zpusob takoveto komunikace?
Slo by udelat, abych vsechny 4kroky delal v jedne proc. ci funckci?
napr. GetData(TypZpravy, Vysledek)....?
Vsem diky za info...
Filip Honzarek
AnsiStringy
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.6.2001 22:50:33
> > Kompilator nema sancu kontrolovat pristup k nemu a tak zalezi
> > na programatorovi aby neurobil chybu. Su tam aj dalsie obmedzenia
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> Jen na okraj, na kom jinem by to tak asi melo zalezet, aby neudelal chybu
?
Myslis, ze ked programatorovi zalezi na tom aby neurobil chybu, tak ju uz
NEMOZE urobit?
> Prece od toho je programator, ne ? Pokud ma paru o tom, jak funguje
pocitac
> a co dela kompilator, tak typovou kontrolu a podobne veci potrebuje jen na
> usnadneni rutiny. Pokud o tom paru nema, tak co se do toho sere ? Denne se
To, co tvrdis je iba iluzia. Moze byt super programator znaly vsetkeho
a napriek tomu sa POMYLI. A to aj v tom istom kode, ktory 100 krat
moze napisat korektne a na 101-vy krat sa POMYLI. S tym nic neurobis,
tak funguje clovek. Priznat si tieto nedostatky a hladat ich riesenie
je asi rozumnejsia alternativa.
> potykam s nasledky uvazovani typu "vezme se par komponent, ulozenych
> procedur a je to". Z IT branze se vytratila profesionalita, tahne se sem
> spousta lidi, kteri by bez RAD nenapsali ani radku, protoze proste nemaji
Typova kontrola v ziadnom pripade nenahradza znalosti programatora.
Dokonca si myslim, ze kladie este vyssie naroky na jeho znalosti. Mozno
to je ten problem, preco ju niektori programatori nemaju radi.
Okrem toho typova informacia poskytuje udaje, ktore umoznuju
optimalizovat vysledny kod (napr. na zaklade typovej kontroly
pocas prekladu je mozne vynechat kontrolu indexov pola pocas
behu programu a pod).
---
To, ze programatori nepoznaju "jak to v bednach chodi" nie je velky
problem. Od toho je operacny system, aby sa postaral aby to tam
chodilo tak ako treba. Horsie je, ze nepoznaju zaklady programovania,
nevedia aky je rozdiel medzi prikazom a vyrazom, syntaxou a semantikou,
interfacom a implementaciou, abstakciou a aplikaciou, atd. Programator
databazovej aplikacie netusi ake datove modely existuju, co je to relacia,
technologia klient-server, datove modelovanie, ER-diagram. A namiesto
toho aby sa zaujimal o taketo dolezite veci, zaujima sa o zdrojovy kod
Interbase. ;-)
> ani sajnu o tom, jak to v bednach chodi. Chci videt vsechny ty Eifelisty a
> Visualisty, jak pachaji SW treba pro pracku nebo ridici jednotku auta.
> Nejhorsi na tom je, ze to v podstate k nicemu neni. Opravdu dulezity SW se
> neprodava v krabicich, to je jen marketingova a modni zalezitost.
To budes asi velmi prekvapeny, ale Eiffel sa pouziva prave tam, kde
sa vyzaduje vysoka spolahlivost softwaru. HP napr. pouziva Eiffel
na riadenie tlaciarni. Tam prekrocenie nepovoleneho rozsahu pola
moze mat za nasledok znicenie tlaciarne. Detailne informacie su na
http://eiffel.com/eiffel/projects/hp/creel.html
> To je presne to, o cem pisu. Kdyz potrebovali Americani odklonit drahu
tusim
> Voyageru, tak udelali zaplatu o delce 2 kB, poslali ji na vzdalenost pul
> miliardy kilometru a ono to fungovalo i bez silne typove kontroly. Proste
to
> jen psali lidi, kteri vedi, co a jak.
A ini ludia pisali software pre Ariane a tiez to perfektne fungovalo. A
potom zmenili drahu rakety, ale zabudli zmenit suradnice v softwari
a $500-milionova raketa Ariane 5 po starte havarovala. A tak
spickova technika i spickovy software zlyhal pre uplne uplne
banalnu pricinu. Pozri
http://eiffel.com/doc/manuals/technology/contract/ariane/page.html
Erik
AnsiStringy
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.6.2001 23:02:53
> > Mozes uviest priklad, v com je GetMem efektivnejsi?
>
> napriklad je rychlejsi protoze neinicializuje alokovanou promennou :-)
Jasne, najefektivnejsi je prazdny prikaz, ten to ani nenaalokuje.
> i v Delphi bezne pouzivam "dynamicky alokovane" pole, kdy natypuju
napriklad
>
> Array [0..0] of Char
>
> a pak pole alokuju prez pointer (pomoci GetMem) v pozadovane delce (ktera
> samozrejme neni znama behem kompilace). Nevidim na tom nic spatneho. Je to
> metoda, ktera funguje, vim jak funguje a na co si dat pozor - tak proc to
> nepouzivat?
Nevyhoda je v tom, ze Ty o tom vies, ale kompilator to nevie.
> > Zase dosledok low-level pristupu. V poriadnych jazykoch ako je napr.
> > Eiffel sa nieco takeho nikdy nemoze stat (ani keby si sa vyslovene o to
> > snazil). Jednoducho tam funguje silna typova kontrola, ktora nedovoli
> > lubovolne prepisovat pamet. To je ten zasadny rozdiel a prinos.
>
> To je otazka. Ja bych napriklad o move() nerad prisel. Je fajn, ze me
> kompilator hlida (proti Cku ma Pascal take daleko silnejsi typovou
kontrolu)
> ale nemel by me omezovat.
>
> Predpokladam, ze i v Eiffelu muzu pouzit Windows API funkce ke kopirovani
> pameti ??
Mozes volat tieto funkcie aj v Eiffely, ale nevidim na to dovod, ked su
k dispozicii ovela bezpecnejsie prostriedky (mozno snad v nejakom
specialnom pripade).
Erik
AnsiStringy
[*] Erik Salaj <winsoft(zv)stonline.sk> - 29.6.2001 23:30:22
> Nepolemizuji s nutnosti specializace, polemizuji s tvrzenim, ze:
> *************************************************************************
> > Zase dosledok low-level pristupu. V poriadnych jazykoch ako je napr.
> > Eiffel sa nieco takeho nikdy nemoze stat (ani keby si sa
> > vyslovene o to
> > snazil). Jednoducho tam funguje silna typova kontrola, ktora nedovoli
> > lubovolne prepisovat pamet. To je ten zasadny rozdiel a prinos.
> ************************************************************************
> ktere naznacuje, ze asembler, C-jazyk atd. jsou v podstate nevhodne pro
> programovani. Zde bagatelizovany low-level pristup je to, co ve
skutecnosti
> garantuje spolehlivost a vykonnost SW. Se spatne napsanym kompilatorem
A cim to low-level pristup garantuje?
> nenapises dobrou aplikaci, kdyby mel sebe vice typovych kontrol. Psani
> kompilatoru lze ve skutecnosti povazovat za low level pristup, nebo ne ?
Co je low-level na kompilatore?
> Ve skutecnosti asembler a praci s HW musi ovladat kazdy, kdo resi ridici
> systemy, drivery, komunikace apod. To, ze to skoro nikdo neumi, a vetsina
> lidi si mysli, ze napsat Office je vrchol programatorskeho umeni, je jen
> dusledek obecne rozsireneho omylu, ze nejlepsi software je ten, ktery se
> nejvice prodava. Ja si to nemyslim, za nejlepsi software povazuji to, na
cem
> zavisi treba lidske zivoty. A to neni krabicovy SW. Jeste jsem neslysel,
ze
> by se software pro ABS do auta psal ve Visual Basicu. Kazdemu co jeho
jest -
> pro aplikace, kde nejaka ta havarka nehraje roli, klidne pouziji RAD s
tim,
> ze do velke casti kodu nevidim a pripadne chyby nebudu schopen odstranit,
> ale do ridiciho pocitace pro rizeni vytahu si program napisu cely sam (a
> nebude to ani Basic, ani Eiffel, ani Forth, ani Pascal), protoze tady jde
> sranda stranou. Oboji jsem delal, takze vim, o cem je rec.
No vies, zalezi od zlozitosti toho, co programujes. Zlozitejsie RT systemy
sa uz dnes nepisu v assembleri.
> No, asi hlavni rozdil je v tom, ze IS, GIS nebo graficke studio je ve
> skutecnosti napsane v asembleru, jen to neni na prvni pohled videt. Pokud
> znas asembler, muzes napsat GIS, i kdyz to asi bude prace na dlouho :-))).
> Pokud asembler neznas, BIOS nenapises nikdy.
Teda zhrniem to: assembler je vyhodnejsi, pretoze v nom napises BIOS
a ked ho nevies, tak BIOS nenapises. Ale co v takom pripade,
ak programator nepotrebuje napisat BIOS?
> Aby nedoslo k omylu, netvrdim, ze kazdy musi umet psat drivery a programy
> pro mikrokontrolery. Rikam jen to, ze nelze absolutizovat a tvrdit, ze
> kompilator bez dostatecne typove kontroly je obecne horsi nez ten, ktery
> typovou kontrolu tvrde prosazuje. Rekl bych, ze zalezi jen na schopnostech
> uzivatele nastroje. Pokud je programator dobry, nemusi se nechat svazovat
> omezenimi kompilatoru a muze si s pocitacem udelat to, co potrebuje. Pokud
> toho neni schopen, musi pouzit nastroj, ktery to udela za nej. Ovsem ten
> nastroj pro nej nekdo musi udelat. Stejne tak nevidim nejmensi duvod, proc
> bych nemohl pouzitGetMem, pokud vim, co delam, a proc bych se musel
spolehat
> se pouze na New a Dispose. O tom to cele je - bud to umim a muzu si to
> udelat sam (kdyz chci nebo potrebuji), nebo to neumim a musi to za mne
> udelat nekdo jiny, at se mi to libi nebo ne.
Je to Tvoj nazor, neberiem Ti ho. Na mna sa to zial neda aplikovat, pretoze
ja neviem vsetko, mylim sa a robim chyby a som preto rad, ked mi ich
kompilator pohlada.
Erik
Instalator pro Delphi
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.6.2001 06:28:40
Pomalu si zvykej na to, ze do System a System32 by se nemelo nic
instalovat (viz specifikaci programu pro W2000).
Usetris si tak mimo jine take problemy s tim, ze se potkaji dva
balicky se stejnym nazvem, ale uplne jinym obsahem.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
29.6.2001 Tomas Bihary:
> PS: na zaver bych se rad zeptal, jake jsou vase zkusenosti s instalovani
> souboru .BPL
> je lepsi instalovat do SYSTEM32, nebo do adresare aplikace? dekuji.Ulozena procedura, proc nefunguje ?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.6.2001 06:38:07
Uvedom si, ze v te chvili neskladas prikaz z nejakych retezcu, ale uz
pises vykony kod procedury, takze konstrukce, kterou uvadis :
Where J.Cislo_jmena=C.Cislo_jmena And C.Castka +(zv)Podminka + (zv)Castka
ti chodit nebude.
Pokud si takhle chces skladat podminky "za behu", podivej se na prikaz
SP_EXECUTESQL.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
29.6.2001 Hazuka Filip:
> Ahojte, nevite nekdo, proc mi nefunguje tato procedura ? Nefunguje tam ta
> podminka a castka. Nevim, jak tam mam priradit dve promenne. Do podminka se
preda bud >>,<,>= nebo <= a do castka se preda nejake cislo. Potrebuji aby to
> pri provedeni vypadalo takto C.Castka>100 napriklad.
> CREATE PROCEDURE [Vyber_Provize]
> (zv)OdDatum DateTime=NULL,
> (zv)DoDatum DateTime=NULL,
> (zv)Druh varchar(45)=NULL,
> (zv)Podminka char(5)=NULL,
> (zv)Castka int=NULL
> AS
> SET NOCOUNT ON
> Create table ##CastkaProvize
> (
> Cislo_jmena int,
> Castka int
> )
> insert into ##CastkaProvize Select P.Cislo_jmena, Sum(D.Castka) as 'Celkov�
> soucet' From Provize P, Detail_provize D where
> P.Cislo_provize=D.Cislo_provize And D.Datum_vyplaceni>=(zv)OdDatum And
> D.Datum_vyplaceni<=(zv)DoDatum and P.Druh_provize=(zv)Druh Group by P.Cislo_jmena
> Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem, J.Funkce,
> J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
> ##CastkaProvize C
> Where J.Cislo_jmena=C.Cislo_jmena And C.Castka +(zv)Podminka + (zv)Castka
> Drop table ##CastkaProvize
> Vsem diky za pomoc.
> Fila
IB - SQL
[*] Josef Semera <semera(zv)atlas(tec)cz> - 30.6.2001 11:28:47
> Ahoj,
> mam jeden trivialny problem. V IB-Firebird mam tabulku v nej niekolko
> stlpcov hlavny je Datum.
> Potrebujem urobit select tak aby mi to spocitalo pocet zaznamov za kazdy
> mesiac.
> Vysledok by mal byt :
> mesiac pocet
> 1 14
> 2 29
> 3 78
> atd...
> Neviem ako v SQL vybrat z DATE len mesiac a ako to spocitat.
primo v IB( ..\ib\example\udf\) je soubor udflib.c, myslim ze jsem datum
jako varchar pomoci subst orizl a zustala mi jen 3-4 pozice
OnClick
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 30.6.2001 15:45:03
Pri behu programu vytvaram nove objekty TPanel a potrebujem odchytit
kliknutie na ne. Tak umistnuim na kazdom OnClick rovnaku proceduru. Problem
je ale v tom, ze potom neviem odlisit na ktory s objektov bolo vlastne
kliknute. Nemozem dat na kazdy panel inu proceduru, predoze program musi
vytvorit lubovolne mnozstvo objektov.
Martin
IB - SQL
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 30.6.2001 17:13:28
Ahoj,
soucasti dodavky IBOBJECTS ( www.ibobjects.com ) v adresari AddOn je sada
UDF funkci pro praci s Datetime,
konkretne to jsou:
Year - Returns the year part of a date.
Month - Returns the month part of a date.
Day - Returns the day part of a date.
EncodeDate - Creates a date from its parts.
DecodeDate - Extracts a date to its parts.
ElapsedDays - Returns the number of days between two days.
Modulus - Returns the modulus of a division.
DayOfWeek - Returns the number of the day of week.
Time - Returns the hour and minute of a date.
DaysOfMonth - Returns the number of days in a given month.
DayOfYear - Returns the number of the day in the given year.
AddMonth - Adds given number of months to a date.
Jsou od Gabora Gazso, zrejme jsou free, neni to u nich ale uvedeno. Co jsem
zkouknul, pocitaji vsechno sami, takze nepotrebujes zadne DLL ci SO. Tvuj
problem by mela resit funkce Month(), ktera vraci integer jako mesic.
Leos Urban
OnClick
[*] borkovec(zv)email(tec)cz - 30.6.2001 19:13:02
S nejvetsi pravdepodobnosti nevyuzivas parametr ud�losti OnClick - Sender: pokud je to ono, zkus to treba takhle:
x:=(Sender as TPanel).Name;
a do x dostanes jmeno konkretniho panelu. Samozrejme se takhle dostanes na jakoukoliv property objektu
--- P�vodn� zpr�va ---
Od: "Martin Kasman" <martinkasman(zv)pobox.sk>
Datum: 30.06.2001 15:46:50
Pri behu programu vytvaram nove objekty TPanel a potrebujem odchytit
kliknutie na ne. Tak umistnuim na kazdom OnClick rovnaku proceduru. Problem
je ale v tom, ze potom neviem odlisit na ktory s objektov bolo vlastne
kliknute. Nemozem dat na kazdy panel inu proceduru, predoze program musi
vytvorit lubovolne mnozstvo objektov.
Martin
---
Email(tec)cz - Vase posta zdarma!
http://www.email(tec)cz
Samolepici etikety
[*] David Kallab <Kallab(zv)seznam(tec)cz> - 30.6.2001 19:50:22
Jestli mam pamet v poradku, tak firma S-K Label dodava ruzne formaty samolepicich etiket. Pouzivam format 52*21mm a na archu A4 je tusim 52 etiket. Stejny problem jako mas asi i Ty jsem vyresil tak, ze tisknu dve identicke samolepky vedle sebe.
V baleni je jich 100 listu. Cena baliku je kolem 600.-Kc (kupoval jsem je za hotovy naposledy v 1996).
Nejsem si jisty zda je sezenes v obycejnym papirnictvi.
koukni na: www.sk-label(tec)cz
Zdravi
D.Kallab, kallab(zv)seznam(tec)cz
PS: prohlasuji, ze s uvedenou firmou nemam nic spolecneho :-))
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/Delphi 5.0 - dotaz k nastaven� debuggeru pro Windo
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 30.6.2001 20:22:31
Mozna to zavisi na cem jedes. Ja jedu na W2k + D5Ent a mam ten samej problem. Nastesti se mi ty D5 spustej tak dlouho ze je
muzu odstrelit.
Ale taky by mne zajimalo, co s tim. Ze by jen reinstalace? S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
Sent: Friday, June 29, 2001 4:04 PM
> Zdravim
>
> Me do dialogu "Program provedl ..." pribylo tlacitko "Ladit". Kdyz ho
> nezmacknu, Delphi (D5) se nespusti. Tak v cem je potom problem?IB - SQL
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 30.6.2001 21:34:36
Caff Pityu.
na pouzitie je napr. Extract
select extract(month from datum) from tabulka
Ale myslim ze si musis vytvorit pohlad pomocou ktoreho dostanes stlpec,
ktory budes moct groupovat. Ale ulozenu proceduru.
Ak este treba nieco dodat, ozvi sa.
R.
----- Original Message -----
From: "Lauko �tefan" <laukosw(zv)naex.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 29, 2001 2:25 PM
Subject: IB - SQL
> Ahoj,
> mam jeden trivialny problem. V IB-Firebird mam tabulku v nej niekolko
> stlpcov hlavny je Datum.
> Potrebujem urobit select tak aby mi to spocitalo pocet zaznamov za kazdy
> mesiac.
> Vysledok by mal byt :
> mesiac pocet
> 1 14
> 2 29
> 3 78
> atd...
> Neviem ako v SQL vybrat z DATE len mesiac a ako to spocitat.
> Mohol by mi niekto pomoct?
> Za pomoc vopred dakujem.
> Lauko.
>
>
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.263 / V�rusov� datab�za: 135 - d�tum vydania: 22. 6. 2001
combobox
[*] Maixner Tomas <maixner(zv)infoware(tec)cz> - 3.7.2000 19:05:07
Podivej se na nejakej index, itemindex, indexitem, nesedim u kompu s
Delfinama.
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, July 03, 2001 7:03 PM
Subject: combobox
> Viete mi niekto rychlo poradit (dnes do 19.45) ako zistim ktory item z
> comboboxu bol vybraty pri kliknuti?
>
> ----------------------------------
> Ing. Peter Surovy
> psurovy(zv)uevora.pt
> ICQ #119605423
>
>
>Image
[*] Danny <delphiforum(zv)atlas(tec)cz> - 2.3.2001 15:01:13
Ahoj,
mam takovy problem a nejak nemuzu najit reseni.
Delam si komponentu, ktera je zalozena na TImage a jeji podstata je, ze neco
maluje na svuj Canvas. Takze pri Create te me komponenty si vytvorim kopii
puvodniho obsahu a ulozim si to do BMP (TBitmap). Protoze, kdyz se zmeni
nejaka property, tak do image nasypu zpatky jeji byvaly obsah z BMP a muzu
zase vesele kreslit. Bezvadne to funguje v designu.
Kdyz ale spustim projekt s touto komponentou, tak jako obrazek v Image
zustane to, co tam naposled bylo pri designu, tzn. puvodni obrazek a pres to
moje kresbicky.
Tedy jednoduse. Nejsem po spusteni schopen obnovit puvodni obrazek.
Moje otazka zni.
Jak to mam udelat, abych si mohl uchovat obrazek, ktery si do te sve Image
nahraju pri designu?
Mozna jsem to podal dost zmatene, ale treba me nekdo pochopi.
Poradi nekdo?
Predem dik.
Danny
Rucne vytvarena napoveda
[*] Martin Kr� <MKrc(zv)seznam(tec)cz> - 15.3.2001 14:44:54
Zajimalo by me, jak vytvorit napovedu bez Help Workshopu. Jde to vubec?
Dekuji za odpoved!
S pozdravem
Martin Krc
Koroner(zv)quick(tec)cz
Data z konference za kveten 2001
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.7.2001 16:39:46
Preji vsem pekneho dne,
jeste dodelavam dluh, nyni lze stahnout data za kveten 2001 opet
na obvykle adrese:
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
Slavek
Buh miluje ateisty. Neobtezuji ho svymi problemy.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
AnsiStringy
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 1.7.2001 17:47:44
Souhlasim a jsem pro ukonceni.
Jura
>
> Ok. Som rad ze si rozumieme a myslim ze hovorime o tom istom
> len trochu z
> inych pohladov.
>
>
> > ktere naznacuje, ze asembler, C-jazyk atd. jsou v podstate
> nevhodne pro
> > programovani. Zde bagatelizovany low-level pristup je to, co ve
> skutecnosti
> > garantuje spolehlivost a vykonnost SW.
> Ako som uz napisal. Jedno je dobre na to, jedno na ono.
> Na aplikacny SW vyssej urovne (myslim tym uzivatelske
> rozhranie, strana
> klienta) je podla mna lepsie pouzivat RAD a to najlepsie v
> jazyku so silnou
> typovou kontrolou - teda napr. PASCAL -> DELPHI. Tych
> specialnych "rychlych"
> casti je v tychto aplikaciach minimum ak nejake vobec.
>
> > Pokud je programator dobry, nemusi se nechat svazovat
> > omezenimi kompilatoru a muze si s pocitacem udelat to, co
> potrebuje. Pokud
> > toho neni schopen, musi pouzit nastroj, ktery to udela za
> nej. Ovsem ten
> > nastroj pro nej nekdo musi udelat. Stejne tak nevidim
> nejmensi duvod, proc
> > bych nemohl pouzitGetMem, pokud vim, co delam, a proc bych se musel
> spolehat
> > se pouze na New a Dispose. O tom to cele je - bud to umim a
> muzu si to
> > udelat sam (kdyz chci nebo potrebuji), nebo to neumim a
> musi to za mne
> > udelat nekdo jiny, at se mi to libi nebo ne.
>
> Suhlasim s nasl. vyhradami:
> - programator moze byt dobry len pracou unaveny !
> - ked to vies pouzit, pouzi, kto nevie, nech pouzije
> standardnejsie veci, to
> je vsetko
> Myslim ze tuto temu mozeme uzavriet.
>
> JaNo,
>
> OT: Jak prodavat vlastni software do zahranici.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 1.7.2001 18:09:31
Puvodni zprava, kterou napsal Ing. Petr �vejda dne 29 Jun 2001,:
> # jak bude resp. muze probihat platba zakaznika do me banka - jake jsou
> moznosti
Bud si vyberes nejakeho distributora, ktery se o to postara sam,
nebo si to zajistis svymi silami. Existuji firmy, ktere za nejaka
procenta penize vyberou a poslou. Nebo si udelas smlouvu s bankou
a budes platebni karty prijimat sam.
> # jak se provadi procleni), zaslani postou, atd.
Kdyz to posles internetem, tak to nema s celnici nic spolecneho.
Kdyz to posles postou a chces nosic dat fakturovat bez DPH, pak
musis mit exportni JCD.
> # jak nejlepe vyresit objednani a placeni na webu (po technicke strance)
Jako vsude jinde, formular, certifikat SSL apod.
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
============================================================Pocet stranek pred tiskem
[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 01.7.2001 18:19:13
Lze nejak pred tiskem zjistit na kolik stranek vyjde urceny text? Pouzivam komponentu TLinePrinter, od ktere nemam zdrojaky, ta dokaze zjistit pocet stranek, ale pocita se to tesne pred tiskem, ja uz to chci vedet nez se klikne na tlacitko tisk. Do ty komponenty se text prirazuje do TStrings a ta to pak musi nejak porovnavat s nejakyma hodnotama TPrinter, ale netusim jak.
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 4
______________________________________________________________________
Tic Tac predstavuje nove originalni stranky plne soutezi o
znackove ceny Tic Tac a Ferrari - http://www.tictac(tec)cz
Scrollovani textu
[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 01.7.2001 18:20:03
Potreboval bych nejak elegatne (zadny predelavani komponenty) vytvorit skrolovani TRxRichEditu pomoci klavesnice (sipky, pagedown/up, home, end). Vsechny klavesy dokazu odchytit, ale nevim jak realizovat to skrolovani. Pouzitim ScrollBy() se skroluje jenom ta viditelna cast. Zkousel sem ruzny druhy Refresh, ale vzdy to prekresli tak, ze je zase na zacatku textu, takze ke scrollu nedojde. Pokud byste to nejak vymysleli, neskodilo by i schovani ty "blikaci carky". Diky predem.
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 4
______________________________________________________________________
Profesion�lov� sv�tov�ho skateboardingu na ramp�ch. Z�vody, triky,
z�bava. Exkluzivn� na http://0g(tec)cz/0107/mystic_sk8_cup_worldonline
Kapacita TRichEdit
[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 01.7.2001 18:23:33
Je nejak TRichEdit omezeny co se tyka delky textu, nebo to zavisi na
velikosti pameti pocitace? Lze nejak programove zjistit tuto kapacitu a osetrit?
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 4
______________________________________________________________________
Denn� nov� Last Moment - objednejte http://na.dovolenou(tec)cz/last.php3
Aktualizovan� nab�dky 1.000 z�jezd� http://na.dovolenou(tec)cz/String na PChar
[*] Fredy (nightmare) Crueger <Fredy.C(zv)seznam(tec)cz> - 01.7.2001 18:35:15
Tomuto prevodu jsem se pokud mozno vyhybal, ale nyni uz se to stava nevyhnutelnou casti programu. Vim, ze existuje funkce StrPCopy(dest: PChar, source: string), ale pred timto jsem v helpu nasel nejaky alokovani pameti pro ten PChar pomoci StrAlloc(delka: integer) a na konci jeho uvolneni StrDispose(Pchar). Doposud sem to takto delal, ale nedavno sem nekde zahledl neco na zpusob funkce PChar(string), ktera rovnou prevede string na PChar. Zkusil sem to a fungovalo to v poradku, ale zajimalo by me, jestli to nejak nevadi. Ta funkce PChar() nikde v helpu neni zdokumentovana, takze nevim co vlastne dela, jestli to neprevadi uplne stejne jako ja pomoci tech trech funkci a nebo nejak jednoduseji. Zajimal by me vas nazor na tento prevod co je spravne.
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 4
______________________________________________________________________
Profesion�lov� sv�tov�ho skateboardingu na ramp�ch. Z�vody, triky,
z�bava. Exkluzivn� na http://0g(tec)cz/0107/mystic_sk8_cup_worldonline
Upresneni problemu s Ulozenou procedurou - Prosim,
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 1.7.2001 20:44:56
Ahoj, zdravim.
Potreboval bych nekoho, kdo se muze malicko zamyslet a poradit mi. Asi jako
kazdy, jsem po case prisel na to, ze psat slozite sql dotazy na klientovi je
pomale a tak jsem zacal koketovat s ulozenymi procedurami. Konkretne
pouzivam MS SQL server 7.0. Narazil jsem vsak na nekolik problemu, ktere,
jestlize mi nekdo poradi, tak mi pomuze odrazit se zase o kousek dal. V
zasade jsou to tyto dva:
Mam jakousi proceduru, kod pred ukazkou neni prilis podstatny:
................
................
Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem, J.Funkce,
J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
##CastkaProvize C
Where J.Cislo_jmena=C.Cislo_jmena And C.Castka +(zv)Podminka + (zv)Castka
------->>> Jde mi o toto. Uz jsem se dovedel, ze takto to skladat
nemohu.
Tak jsem vyzkousel nasledujici. Nadefinoval jsem si promennou (zv)Sql
a dale jsem napsal
Select (zv)Sql = 'Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem,
J.Funkce,
J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
##CastkaProvize C
Where J.Cislo_jmena=C.Cislo_jmena And C.Castka' + (zv)Podminka ///// v
promenne (zv)Podminka je napriklad >= 1000, cili vetsi nebo rovno Exec
(zv)Sql nejaka
castka.
Jenomze, kdyt to z Delphi spustim Procedura.Open; tak mi to pise Error
creating cursor handel.
Drop table ##CastkaProvize
Nemate nekdo napad, jak to vyresit a to co mozna nejelegantneji ????
Druhy problem je.
Chtel bych v aplikaci, aby se dali zatrhnout polozky, ktere se maji v dotazu
vybrat. Zkousel jsem to udelat tak, ze jsem si v
procedure nadefinoval promenne (zv)Firma (zv)Mesto (zv)Ulice atd..
Pak jsem napsal Select (zv)Firma, (zv)Mesto, (zv)Ulice atd.. From Firma.
Do promennych jsem dal bud nazev Firma, Mesto a tak, nebo hodnotu null aby
se to nevybiralo. Takhle to ale nefunguje.
Jak se to da resit pomoci procedury ????
Vsem diky za namety. Kdyby mel nekdo ukazku kodu, tak take nepohrdnu.
Jeste jednou moc diky.
Fila
OnClick
[*] Hurricane <hurricane(zv)quick(tec)cz> - 1.7.2001 22:09:11
Zdravim
If Sender = Panel1 then ......
Sender lze i pretypovat na TPanel a pouzit. Ja to pretypovavam natvrdo
(Sender as TPanel).Caption := , ale pry by se to nemelo pouzivat. Pokud to
procuduru prilepis jen k TPanelum, tak ale nevidim duvod, proc bych to
nemohl natvrdo pretypovat.
Hurricane
----- Original Message -----
> Pri behu programu vytvaram nove objekty TPanel a potrebujem odchytit
> kliknutie na ne. Tak umistnuim na kazdom OnClick rovnaku proceduru.
Problem
> je ale v tom, ze potom neviem odlisit na ktory s objektov bolo vlastne
> kliknute. Nemozem dat na kazdy panel inu proceduru, predoze program musi
> vytvorit lubovolne mnozstvo objektov.Pocet stranek pred tiskem
[*] Hurricane <hurricane(zv)quick(tec)cz> - 1.7.2001 22:13:52
Zdravim
Musis vedet, jakym fontem budes tisknout. Z toho to pak lze prepocitat na
pixely a na cm stranky. Kdysi jsem se s kamosem o neco podobneho pokouseli
(vertikalni okraj). Jakz takz to fungovalo pro neproporcionalni fonty. Pro
proporcionalni ne. Nakonec jsem to z projektu odstranil. Jestli chces, poslu
ti to, treba se ti to podari zfunkcnit.
Hurricane
----- Original Message -----
Lze nejak pred tiskem zjistit na kolik stranek vyjde urceny text? Pouzivam
komponentu TLinePrinter, od ktere nemam zdrojaky, ta dokaze zjistit pocet
stranek, ale pocita se to tesne pred tiskem, ja uz to chci vedet nez se
klikne na tlacitko tisk. Do ty komponenty se text prirazuje do TStrings a ta
to pak musi nejak porovnavat s nejakyma hodnotama TPrinter, ale netusim jak.Kapacita TRichEdit
[*] Hurricane <hurricane(zv)quick(tec)cz> - 1.7.2001 22:15:26
Zdravim
IMHO neni. Ale jestli chces lepsi komponentu, tak zkus SynEdit
(www.jrsoftware.org, doufam). Ta omezeni nema.
Hurricane
----- Original Message -----
Je nejak TRichEdit omezeny co se tyka delky textu, nebo to zavisi na
velikosti pameti pocitace? Lze nejak programove zjistit tuto kapacitu a
osetrit?Scrollovani textu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 1.7.2001 22:17:50
Zdravim
Nevim jestli je to i u RxRichEditu, ale SynEdit (viz jiny prispevek) na to
ma Ctrl+Up/Down. Pak by stacilo ve zdrojaku zrusit potrebu toho Ctrl a slo
by to. S kurzorem je to stejny, SynEdit umoznuje nastavit typ kurzoru.
Hurricane
----- Original Message -----
Potreboval bych nejak elegatne (zadny predelavani komponenty) vytvorit
skrolovani TRxRichEditu pomoci klavesnice (sipky, pagedown/up, home, end).
Vsechny klavesy dokazu odchytit, ale nevim jak realizovat to skrolovani.
Pouzitim ScrollBy() se skroluje jenom ta viditelna cast. Zkousel sem ruzny
druhy Refresh, ale vzdy to prekresli tak, ze je zase na zacatku textu, takze
ke scrollu nedojde. Pokud byste to nejak vymysleli, neskodilo by i schovani
ty "blikaci carky". Diky predem.String na PChar
[*] Hurricane <hurricane(zv)quick(tec)cz> - 1.7.2001 22:19:42
Zdravim
Nevidim jediny duvod, proc Pchar(string) nepouzivat. Ja to delam dnes a
denne. V helpu jsi asi spatne hledal.
Hurricane
----- Original Message -----
Tomuto prevodu jsem se pokud mozno vyhybal, ale nyni uz se to stava
nevyhnutelnou casti programu. Vim, ze existuje funkce StrPCopy(dest: PChar,
source: string), ale pred timto jsem v helpu nasel nejaky alokovani pameti
pro ten PChar pomoci StrAlloc(delka: integer) a na konci jeho uvolneni
StrDispose(Pchar). Doposud sem to takto delal, ale nedavno sem nekde zahledl
neco na zpusob funkce PChar(string), ktera rovnou prevede string na PChar.
Zkusil sem to a fungovalo to v poradku, ale zajimalo by me, jestli to nejak
nevadi. Ta funkce PChar() nikde v helpu neni zdokumentovana, takze nevim co
vlastne dela, jestli to neprevadi uplne stejne jako ja pomoci tech trech
funkci a nebo nejak jednoduseji. Zajimal by me vas nazor na tento prevod co
je spravne.Vytvoreni TWebBrowser
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 1.7.2001 22:50:06
Dobry den,
muzete mi prosim nekdo presne napsat jak mam vytvorit (dynamicky)
TWebBrowser????
type
TForm1 =class(TForm)
private
Y: TWebBrowser;
..........
end;
procedure TForm1.NewWebBrowser;
begin
Y:= TWebBrowser.Create(Self);
Y.Align:= alClient;
end;
tak takhle to nechodi... u jinych komponent bych dal jeste Y.Parent := Self,
lec zde je pouze ReadOnly...
Dekuji
Zdenek
Kapacita TRichEdit
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 2.7.2001 06:24:13
SynEdit je komponenta spise podobna TMemo (bez omezen� velikosti
textu) s podporou zvyrazenni syntaxe. Tzn. jeden font pro cely text,
pouze neproporcionalni pismo atd. jako nahradu RichEdit asi ne.
Ten odkaz taky neni to prave orechove. Synedit najdes na
http://synedit.sourceforge.net
TRichEdit nenma omezeni velikosti textu.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.7.2001 Hurricane:
> IMHO neni. Ale jestli chces lepsi komponentu, tak zkus SynEdit
> (www.jrsoftware.org, doufam). Ta omezeni nema.String na PChar
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 2.7.2001 06:34:16
PChar jako funkci tam zrejme nenajdes, jde o tzv. pretypovani. Je to
obdoba napr. TStringGrid(mujdbGrid)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.7.2001 Fredy (nightmare) Crueger:
> nedavno sem nekde zahledl neco na zpusob funkce
> PChar(string), ktera rovnou prevede string na PChar. Zkusil sem to a
> fungovalo to v poradku, ale zajimalo by me, jestli to nejak nevadi.
> Ta funkce PChar() nikde v helpu neni zdokumentovana, takze
> nevim co vlastne dela
OT: Jak prodavat vlastni software do zahranici.
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 2.7.2001 07:06:34
Ahoj
No to by me zajimalo s jakou bankou, my jsme se asi pred mesicem obratily na
x bank, ktere nam nam sdelili ze takoveto platby povazuji za vysoce rizikove
(mam na mysli on - line platby kreditni kartou, pricemz v zahranici to je
cekem bezne), co se tyce off line plateb, ktere probihaji formou ze vystavis
na svem serveru formular ktery si potencinalni zakaznik stahne a vyplni a
PODEPISE a vyplni take cislo sve kreditky a posle vam to, tak takovyhle
zpusob je u nas realizovatelny po dohode s bankou, ovsem docela zdlouhavy.
Milos
-----Original Message-----
From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
Sent: Sunday, July 01, 2001 6:10 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OT: Jak prodavat vlastni software do zahranici.
Puvodni zprava, kterou napsal Ing. Petr �vejda dne 29 Jun 2001,:
> # jak bude resp. muze probihat platba zakaznika do me banka - jake jsou
> moznosti
Bud si vyberes nejakeho distributora, ktery se o to postara sam,
nebo si to zajistis svymi silami. Existuji firmy, ktere za nejaka
procenta penize vyberou a poslou. Nebo si udelas smlouvu s bankou
a budes platebni karty prijimat sam.
> # jak se provadi procleni), zaslani postou, atd.
Kdyz to posles internetem, tak to nema s celnici nic spolecneho.
Kdyz to posles postou a chces nosic dat fakturovat bez DPH, pak
musis mit exportni JCD.
> # jak nejlepe vyresit objednani a placeni na webu (po technicke strance)
Jako vsude jinde, formular, certifikat SSL apod.
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
============================================================String na PChar
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 2.7.2001 08:08:43
> nedavno sem nekde zahledl neco na zpusob funkce PChar(string), ktera
> rovnou prevede string na PChar. Zkusil sem to a fungovalo to v
> poradku, ale zajimalo by me, jestli to nejak nevadi. Ta funkce PChar()
> nikde v helpu neni zdokumentovana
Ahoj,
tohle snad neni funkce jako takova, ale prime pretypovani (PChar je
typ). Pokud vim, jde o postup bezne pouzivany, nevim o zadne
nekorektnosti.
David Upresneni problemu s Ulozenou procedurou - Prosim,
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 2.7.2001 08:13:23
Ad problem 1:
Error createing cursor handle se hlasi, pokud nebylo mozne na
klientovi vytvorit dataset, tj. pokud tvoje ulozena procedura
nevratila zadny platny vysledek selectu (nemuzes mit spatne ten
slozeny prikaz?). Nejlepe je to otestovat tak, �e si v Query
Analyzeru spustis tu svou ulozenou proceduru se stejnymi parametry
a hned uvidis, jestli je problem na SQL nebo v Delphi. Neni spatne
dat si pred ten 'exec ((zv)SQL)' jeste 'print ((zv)Sql)'
Ad problem 2:
Bud muzes tento prikaz opet skladat do (zv)SQL a pak spustit exec ((zv)Sql)
a nebo (a tak bych to asi delal ja) vybrat vzdy vsechny sloupce a na
klientovi je ignorovat a nebo jim v pripade nejakeho primeho
zobrazovani dat Visible na False.
To zalezi na tom, kolik radku a kolik sloupcu chces vracet. Pri malem
objemu dat neni ten druhy zpusob zadny problem.
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
> Mam jakousi proceduru, kod pred ukazkou neni prilis podstatny:
> ................
> ................
> Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem, J.Funkce,
> J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
> ##CastkaProvize C
> Where J.Cislo_jmena=C.Cislo_jmena And C.Castka +(zv)Podminka + (zv)Castka
------->>>> Jde mi o toto. Uz jsem se dovedel, ze takto to skladat
> nemohu.
> Tak jsem vyzkousel nasledujici. Nadefinoval jsem si promennou (zv)Sql
> a dale jsem napsal
> Select (zv)Sql = 'Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem,
> J.Funkce,
> J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
> ##CastkaProvize C
> Where J.Cislo_jmena=C.Cislo_jmena And C.Castka' + (zv)Podminka ///// v
> promenne (zv)Podminka je napriklad >= 1000, cili vetsi nebo rovno Exec
> (zv)Sql nejaka
> castka.
> Jenomze, kdyt to z Delphi spustim Procedura.Open; tak mi to pise Error
> creating cursor handel.
> Drop table ##CastkaProvize
> Nemate nekdo napad, jak to vyresit a to co mozna nejelegantneji ????
> Druhy problem je.
> Chtel bych v aplikaci, aby se dali zatrhnout polozky, ktere se maji v dotazu
> vybrat. Zkousel jsem to udelat tak, ze jsem si v
> procedure nadefinoval promenne (zv)Firma (zv)Mesto (zv)Ulice atd..
> Pak jsem napsal Select (zv)Firma, (zv)Mesto, (zv)Ulice atd.. From Firma.
> Do promennych jsem dal bud nazev Firma, Mesto a tak, nebo hodnotu null aby
> se to nevybiralo. Takhle to ale nefunguje.
> Jak se to da resit pomoci procedury ????
> Vsem diky za namety. Kdyby mel nekdo ukazku kodu, tak take nepohrdnu.
> Jeste jednou moc diky.
> Fila
Delphi 5.0 - dotaz k nastaven� debugg
[*] And�l Jaroslav <jaroslav.andel(zv)lcs(tec)cz> - 2.7.2001 08:35:48
Ahoj, tady posilam navod (pro Windows 2000) od meho kolegy:
je treba zmenit hodnotu v registru:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug
ma tam byt:
DrWtsn32 -p %ld -e %ld -g
S pratelskym pozdravem
Jaroslav Andel, diplomovany technik
LCS HELIOS IQ - vyvoj
LCS International, a.s., Slezska 96, 130 00 Praha 3
-----Original Message-----
From: Adam Feistner [mailto:feistna(zv)volny(tec)cz]
Sent: Saturday, June 30, 2001 8:23 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Delphi 5.0 - dotaz k nastaven� debuggeru pro Windows
Mozna to zavisi na cem jedes. Ja jedu na W2k + D5Ent a mam ten samej
problem. Nastesti se mi ty D5 spustej tak dlouho ze je
muzu odstrelit.
Ale taky by mne zajimalo, co s tim. Ze by jen reinstalace? S pozdravem,
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Hurricane" <hurricane(zv)quick(tec)cz>
Sent: Friday, June 29, 2001 4:04 PM
> Zdravim
>
> Me do dialogu "Program provedl ..." pribylo tlacitko "Ladit". Kdyz ho
> nezmacknu, Delphi (D5) se nespusti. Tak v cem je potom problem?Jeste jednou IBReplikator
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 2.7.2001 08:39:12
Ahoj,
protoze na predchozi dotaz neprisla zadna odpoved, zkusim jej
napsat presneji.
Mame dva pocitace s OS Linux (rikejme jim L1 a L2), na
kazdem je Firebird. Cilem je provadet replikaci databaze z L1 na
L2. Na tretim stroji, s Windows, jsme spustili replikacni manager,
ktery vytvoril ridici replikacni databazi (na L1). Pokud se spusti
replikacni server na Win masine, tj. verze pro Windows, vse v
poradku funguje. Pak jsme zkusili spustit replikacni server na L1. A
tady se to nedari rozchodit. V ridici databazi je zapsana nejaka
evaluation licence, ktera by mela slouzit pro zkusebni ucely a ktera
je zrejme v poradku, protoze na Win replikacni server funguje.
Replikacni server na L1 ale skonci s chybou, ze nejsou
instalovany zadne Replication licence. Skoro to vypada, ze
replikacni server pod linux neumi interpretovat tu ridici databazi.
Mate nekdo tuseni, kde by mohl byt problem? A nebo obecneji -
mate nekdo nejake zkusenosti s replikacemi na IB6?
Diky.
David Lebeda
String na PChar
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 2.7.2001 09:06:12
> > nedavno sem nekde zahledl neco na zpusob funkce PChar(string), ktera
> > rovnou prevede string na PChar. Zkusil sem to a fungovalo to v
> > poradku, ale zajimalo by me, jestli to nejak nevadi. Ta funkce PChar()
> > nikde v helpu neni zdokumentovana
>
> Ahoj,
>
> tohle snad neni funkce jako takova, ale prime pretypovani (PChar je
> typ).
Nejde o klasicke pretypovani, protoze v pripade (Pchar(S)) kompilator
provadi konverzi AnsiStringa na PChar (volanim LStrToPChar ze System.pas).
Konverzi osetruje singularni pripad, kdy je S prazdne. V tomto stavu S
neodkazuje na zadnou pamet (kde by mohla byt ulozena koncova 0 pro
Z-terminated retezec), takze kompilator v tomto pripade priradi do PChar
vysledne promenne pointer na $00 misto NILu, ktery je v S.
>Pokud vim, jde o postup bezne pouzivany, nevim o zadne
> nekorektnosti.
Je treba pamatovat na toto:
- pokud S obsahuje binarni data, muze dojit k tomu, ze bude obsahovat znak s
kodem 0. Protoze je tento znak normalne v PChar retezcich pouzit jako znak
oznacujici konec retezce bude se PChar(S) jevit kratsi nez samotne S
- modifikace retezce prevedeneho pomoci PChar se projevi i v puvodnim S. Coz
je spravne, ale pokud se na obsah S odkazuje vice stringovych promennych,
znamena to, ze se zmeny projevi ve vsech techto promennych (pri pristupu
pomoci pravych ansistring promennych se nejprve provede kopiie obsahu tak,
ze se zmeny nepropisou do vsech referenci)
Zdravi
D. Toman
Upresneni problemu s Ulozenou procedurou - Prosim,
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 2.7.2001 09:10:26
> Tak jsem vyzkousel nasledujici. Nadefinoval jsem si promennou (zv)Sql
> a dale jsem napsal
> Select (zv)Sql = 'Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem,
> J.Funkce,
> J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
> ##CastkaProvize C
> Where J.Cislo_jmena=C.Cislo_jmena And C.Castka' + (zv)Podminka ///// v
> promenne (zv)Podminka je napriklad >= 1000, cili vetsi nebo
> rovno Exec
> (zv)Sql
> nejaka
> castka.
>
> Jenomze, kdyt to z Delphi spustim Procedura.Open; tak mi to
> pise Error
> creating cursor handel.
>
> Drop table ##CastkaProvize
Docasne promene existuji pouze ve velmi ohranicenem ramci, ulozena procedura
je jednim z nich. Docasna tabulka vytvorena v procedure je automaticky
zrusena pri ukonceni procedu. Pokud je vracena v record setu existuje (ten
record set !) az do sveho uzavreni.
Proto vse pracuje, ale nelze ji zrusit -> uz neni.
>
> Nemate nekdo napad, jak to vyresit a to co mozna nejelegantneji ????
>
> Druhy problem je.
>
> Chtel bych v aplikaci, aby se dali zatrhnout polozky, ktere
> se maji v dotazu
> vybrat. Zkousel jsem to udelat tak, ze jsem si v
> procedure nadefinoval promenne (zv)Firma (zv)Mesto (zv)Ulice atd..
>
> Pak jsem napsal Select (zv)Firma, (zv)Mesto, (zv)Ulice atd.. From Firma.
> Do promennych jsem dal bud nazev Firma, Mesto a tak, nebo
> hodnotu null aby
> se to nevybiralo. Takhle to ale nefunguje.
Parametrizovat lze pouze ty casti SQL dotazu, ktere nemaji vliv na jeho
zpusob jeho vykonani. Zjednodusene receno pouze konstanky ve vyrazech.
Nejjednodusi je vyraz slozit jako retezec a pomoci EXEC vykonat, pozor delka
retezce ve vyrazech je omezena. Vyzkousej si to!
Priznam se, ze mi neni zcela jasny cil tohoto dotazu, pokud to ma byt
omezeni poctu zobrazovanych poli, potom je postup stejny jako u prvniho
dotazu, vytvorit select v retezci. Jinak napis co cekas ze to ma udelat.
Ahoj Pavel
String na PChar
[*] Lubo Fule <fule(zv)ekosoft.sk> - 2.7.2001 09:11:35
> ale zajimalo by me, jestli to nejak nevadi. Ta funkce PChar()
> nikde v helpu neni zdokumentovana, takze nevim co vlastne dela,
> jestli to neprevadi uplne stejne jako ja pomoci tech trech funkci
> a nebo nejak jednoduseji. Zajimal by me vas nazor na tento prevod
> co je spravne.
PChar(string) totiz nie je ziadna funkcia ale prachobycajne pretypovanie.
Kompilator sa postara o to, aby to bolo OK, takze to mozes smelo pouzivat...
L.
zmena language tabulky DBase
[*] Ren� Otisk <otisk(zv)MISEL(tec)cz> - 2.7.2001 10:02:06
Da se nejak pred najetim (pres BDE) zmenit kodovani tabulky? Puvodni cp je v
DBase Hun 858 a ja potrebuji zmenit jazyk na cp867.
Diky
Sroub
FF2 a stabilita
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 2.7.2001 10:14:24
Ahoj v#ichni,
okolo vanoc se objevil novy Flashfiler 2 a spolu s nim i informace,
ze je nestabilni a rad pada. Nyni je k dispozici jiz druhy
servicepack - opet pekny macek (pres 18 MB). Chci se proto
zeptat, jake jsou s FF2 momentalni zkusenosti? Pouzivate to
nekdo? Co stabilita?
Diky.
David Lebeda
Upresneni ulozenych procedur - Prosim, poradte nek
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 2.7.2001 10:37:16
Ahoj, zdravim.
Potreboval bych nekoho, kdo se muze malicko zamyslet a poradit mi. Asi jako
kazdy, jsem po case prisel na to, ze psat slozite sql dotazy na klientovi je
pomale a tak jsem zacal koketovat s ulozenymi procedurami. Konkretne
pouzivam MS SQL server 7.0. Narazil jsem vsak na nekolik problemu, ktere,
jestlize mi nekdo poradi, tak mi pomuze odrazit se zase o kousek dal. V
zasade jsou to tyto dva:
Mam jakousi proceduru, kod pred ukazkou neni prilis podstatny:
................
................
Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem, J.Funkce,
J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
##CastkaProvize C
Where J.Cislo_jmena=C.Cislo_jmena And C.Castka +(zv)Podminka + (zv)Castka
------->>> Jde mi o toto. Uz jsem se dovedel, ze takto to skladat
nemohu.
Tak jsem vyzkousel nasledujici. Nadefinoval jsem si promennou (zv)Sql
a dale jsem napsal
Select (zv)Sql = 'Select J.Titul, J.Jmeno, J.Prijmeni, J.Titul_za_jmenem,
J.Funkce,
J.Telefon, J.Fax, J.Mobil, J.Email, J.Poradi, C.Castka From Jmena J,
##CastkaProvize C
Where J.Cislo_jmena=C.Cislo_jmena And C.Castka' + (zv)Podminka ///// v
promenne (zv)Podminka je napriklad >= 1000, cili vetsi nebo rovno Exec
(zv)Sql nejaka
castka.
Jenomze, kdyt to z Delphi spustim Procedura.Open; tak mi to pise Error
creating cursor handel.
Drop table ##CastkaProvize
Nemate nekdo napad, jak to vyresit a to co mozna nejelegantneji ????
Druhy problem je.
Chtel bych v aplikaci, aby se dali zatrhnout polozky, ktere se maji v dotazu
vybrat. Zkousel jsem to udelat tak, ze jsem si v
procedure nadefinoval promenne (zv)Firma (zv)Mesto (zv)Ulice atd..
Pak jsem napsal Select (zv)Firma, (zv)Mesto, (zv)Ulice atd.. From Firma.
Do promennych jsem dal bud nazev Firma, Mesto a tak, nebo hodnotu null aby
se to nevybiralo. Takhle to ale nefunguje.
Jak se to da resit pomoci procedury ????
Vsem diky za namety. Kdyby mel nekdo ukazku kodu, tak take nepohrdnu.
Jeste jednou moc diky.
Fila
Urcenie cisla tyzdna
[*] <idulgerov(zv)centrum.sk> - 02.7.2001 10:57:54
Zdravim vsetkych.
Prave trochu experimentujem z date/time funkciami.
Existuje nejaka funkcia na urcenie cisla tyzdna?
Dakujem.
Ivan Dulgerov
K chatovaniu je tu http://www.XChat.sk
Zalo�te si svoj mail na http://mail.centrum.sk
Zmena IP configurace
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.7.2001 11:08:37
Zkus se na I-netu podivat na sw NetSwitcher. Ten umi to co potrebujes. WWW
bohuzel nevim :(
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
Vyjimky a vlakno
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.7.2001 11:12:22
Ahoj,
proc mam takovy pocit ze by ty sekce mely byt opacne ??? :
try
try
finally
end;
except
end;
Finally totiz neosetruje vlastni vyjimku, zatimco except ano. A pokud bych
nejprve vlastni vyjimku osetril v except tak se vlastne ani nedostane do
finally.
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
> existuje take nieco ako
>
> try
> try
> .... // nebezpecny kod
> except on EXCEPTION // alebo sem napis priamo meno vynimky ktora tam moze
> vzniknut napr. EInOutError do
> ... // osetrenie vynimky nejaky ten MessageBox a co ja viem co
> end;
> finally
> ... // uvolenie alokovanych obj. napr. Nieco.Free;
> end;Pouziti otazniku vedle zaviraciho krizku
[*] Ing. Petr #vejda <lingvista(zv)lingvista(tec)cz> - 2.7.2001 11:24:42
jak mohu pouzit otaznik vedle zaviraciho krizku. Dokazu ho vyvolat, ale
nedokazi s nim dale pracovat. (pochopitelne vim, na co slouzi)
Jde pouzit otaznik pro vyvolani me vlastni procedury za nasledujici postupu?
1. klepnu na otaznik
2. najedu nad nejaky edit
3. uplatni se metoda OnMouseMove
4. pokud predtim neklepnu na otaznik, metoda OnMouseMove editu se neuplatni
Diky
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.263 / Virov� b�ze: 135 - datum vyd�n�: 22.6.2001
OT: Jak prodavat vlastni software do zahranici.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.7.2001 11:29:12
Puvodni zprava, kterou napsal Sula Milos dne 2 Jul 2001,:
> No to by me zajimalo s jakou bankou, my jsme se asi pred mesicem obratily na
> x bank, ktere nam nam sdelili ze takoveto platby povazuji za vysoce rizikove
> (mam na mysli on - line platby kreditni kartou, pricemz v zahranici to je
> cekem bezne), co se tyce off line plateb, ktere probihaji formou ze vystavis
> na svem serveru formular ktery si potencinalni zakaznik stahne a vyplni a
> PODEPISE a vyplni take cislo sve kreditky a posle vam to, tak takovyhle
> zpusob je u nas realizovatelny po dohode s bankou, ovsem docela zdlouhavy.
Opravdovou on-line platbu, tj. autorizace on-line softwarem neumi zadna
ceska banka, protoze to jsou orezavatka. Tedy aspon o tom nevim. Rucni
autorizaci telefonem nebo terminalem umi vsechny. Ze to jsou vysoce
rizikove platby? No a co? Jsou rizikove pro banky, to te nemusi vubec
zajimat. Je to jejich riziko za to, ze z toho maji velke zisky. Jinak
pro tebe to znamena, ze maximalne vratis penize, coz neni zase az
takova tragedie u software, ale me se to jeste nestalo ani jednou za tech
par let, co to delam. Jeste k tem bankam - bankeri jsou hajzlici, protoze
prachy by chteli, ale riziko pokud mozno zadne. Ale to nejde. Stale jeste
nedokazou pochopit, ze udaje na platebni karte nejsou tajne. Porad ti
budou tvrdit, ze nemas nikomu cislo karty/platnost rikat, ale asi
troubove nevedi, ze tyto udaje vi kazdy pingl, kde zaplatis kartou,
ze proste na znamosti techto udaju jsou platebni karty zalozeny. Neni
zadny problem z cisla karty vygenerovat PIN a vyrobit si kopii karty
a vybrat si v bankomatu. To pochopitelne zadna banka nerekne, nicmene
v Nemecku probehlo par soudu lidi s bankami, kde se lidem tohle stalo
a vysoudili na bance penize zpet. No, co se tyka bank, ktere umeji
prijimat platebni karty, tak treba Komercni banka, byvala IPB banka,
Sporitelna, jine jsem nezkousel.
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
============================================================Vyjimky a vlakno
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 2.7.2001 11:35:32
No. nic proti Milane, ale vysvetli mi jak potom uvolni zdroje, pokud k
vyjimce nedojde ?
Takto by to melo byt spravne :
try
try
// nebezpecny kod
except
// osetreni pripadne chyby
end;
finally
// uvolneni zdroju atd. proste operace, ktere se musi provest vzdy
end;
Protoze tvuj priklad by uvolnil zdroje pouze pri vyjimce a uznej ze to byva
docela nezadouci
Priklad tveho nametu :
bmp := TBitmap.Create;
try
try
// tady treba nastavime barvy car a vyplne a zbarvime obrazek
bmp.width := 320;
bmp.height := 200;
bmp.canvas.pen.color := clWhite;
bmp.canvas.brush.color := clBlack;
bmp.canvas.fillrect(bounds(0,0,320,200));
finally
// fajn, provedlo se vsechno nebo ne ?
end;
except
// a co bude tady ? bmp.free tady byt nemuze, protoze to sem nemusi
dojit vzdy
end;
Vim ze tento priklad nevyzaduje vlozene osetreni vyjimek, ale jako
demonstrace to snad staci.
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
>
> try
> try
> finally
> end;
> except
> end;
>
> Finally totiz neosetruje vlastni vyjimku, zatimco except ano. A pokud bych
> nejprve vlastni vyjimku osetril v except tak se vlastne ani nedostane do
> finally.
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.263 / Virov� b�ze: 135 - datum vyd�n�: 22.06.01
Urcenie cisla tyzdna
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 2.7.2001 11:36:29
JediCodeLibrary (JCL) knihovna
Funkce ISOWeekToNumber
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
2.7.2001 idulgerov(zv)centrum.sk:
> Prave trochu experimentujem z date/time funkciami.
> Existuje nejaka funkcia na urcenie cisla tyzdna?Delphi Standart a DB pristup
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 2.7.2001 11:57:56
zdravim vospolok,
obraciam sa na vas s prosbou o radu. byvaly kolega potrebuje zistit ci
existuje moznost pouzivat pristup na nejaku databazu z Delphi STANDART.
to znamena nejake free komponenty, namety, rady ako na to. najlepsie
zrejme na DBF fajly s moznostou pouzitia indexov.
dik
Delphi Standart a DB pristup
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2001 12:11:15
From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
> existuje moznost pouzivat pristup na nejaku databazu z Delphi STANDART.
Ahoj,
pokud to ma byt zalozeno na datasetu tak ne, protoze pokud vim tak tam neni
ani TDataSet.
Petr Vones, amatersky programator
Urcenie cisla tyzdna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2001 12:14:24
From: <idulgerov(zv)centrum.sk>
> Existuje nejaka funkcia na urcenie cisla tyzdna?
Ahoj,
v JCL (http://delphi-jedi.org/Jedi:CODELIBJCL) je funkce ISOWeekNumber.
Petr Vones, amatersky programator
Urcenie cisla tyzdna
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 2.7.2001 12:34:24
function WeekOfYear(ADate:TDateTime):Smallint;
const
ISOFirstWeekDay = 2;
ISOFirstWeekMinDays = 4;
var
WeekDay : Word;
Year, Month, Day: Word;
begin
WeekDay := ((DayOfWeek(ADate) - ISOFirstWeekDay + 7) mod 7) + 1;
ADate := ADate - WeekDay + 8 - ISOFirstWeekMinDays;
DecodeDate(ADate, Year, Month, Day);
Result := (Trunc(ADate - EncodeDate(Year, 1, 1)) div 7) + 1;
end;
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
02.07.2001 idulgerov(zv)centrum.sk:
> Zdravim vsetkych.
> Prave trochu experimentujem z date/time funkciami.
> Existuje nejaka funkcia na urcenie cisla tyzdna?> Dakujem.
> Ivan Dulgerov
> K chatovaniu je tu http://www.XChat.sk
> Zalo�te si svoj mail na http://mail.centrum.sk
Vyjimky a vlakno
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.7.2001 12:37:58
Nic proti :), ale uvolneni objektu se preci vzdy realizuje ve finally. Postup je
preci takovyto:
1. Vytvorim objekt
2. vstoupim do osetrene sekce (jak jsem psal v predchozim mailu)
3. Nastane vyjimka
4. Vstoupi se do sekce finally
5. Protoze sekce finally vyjimku neosetri, tak se po vykonani finally vstoupi do
nadrazene sekce except, ktera provede osetreni vyjimky.
I v pripade, ze nedojde k vyjimce je vse korektni, ale problem tve konstrukce je
v tomto:
> try
> try
> // nebezpecny kod
> except
on E: Exception do
Application.Terminate;
exit;
> // osetreni pripadne chyby
> end;
> finally
> // uvolneni zdroju atd. proste operace, ktere se musi provest vzdy
// A sem se to vubec nedostane
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> end;
BTW: muj postup neni z me hlavy (i kdyz je logicky), ale byl doporucovan v knize
o Delphi 2 (v kterych jsem zacinal). Pokud to tak neni tak ocekavam argumenty :)
> Protoze tvuj priklad by uvolnil zdroje pouze pri vyjimce a uznej ze to byva
> docela nezadouci
To neni pravda, myslim, ze jsi pouze spatne pochopil to co jsem zamyslel.
Vysvetleno je to vyse.
> Priklad tveho nametu :
Upraveno dle novejsich poznatku :)
>
> bmp := TBitmap.Create;
> try
> try
> // tady treba nastavime barvy car a vyplne a zbarvime obrazek
> bmp.width := 320;
> bmp.height := 200;
> bmp.canvas.pen.color := clWhite;
> bmp.canvas.brush.color := clBlack;
> bmp.canvas.fillrect(bounds(0,0,320,200));
> finally
bmp.free;
> // fajn, provedlo se vsechno nebo ne ?
> end;
> except
> // a co bude tady ? bmp.free tady byt nemuze, protoze to sem nemusi dojit
vzdy
// no ono me to vlastne vubec nezajima - tady si osetrim vlastni vyjimku
(vsechno ostatni
je korektne provedeno)
> end;
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
Delphi Standart a DB pristup
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 2.7.2001 13:07:20
toho som sa obaval. existuje nejaka nahrada datasetu?
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Monday, July 02, 2001 12:11 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Delphi Standart a DB pristup
From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
> existuje moznost pouzivat pristup na nejaku databazu z Delphi
STANDART.
Ahoj,
pokud to ma byt zalozeno na datasetu tak ne, protoze pokud vim tak tam
neni
ani TDataSet.
Petr Vones, amatersky programator
FF1 a FF2 v jednech Delphi
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 2.7.2001 13:09:25
Ahoj,
mam hotovou aplikaci ve FF 1.56 a chtel bych ji prepsat do FF2.
Byl jsem ale nemile zaskocen tim, ze FF1 a FF2 nelze mit v palete
komponent nainstalovane oboji soucasne, protoze se hadaji o
nejakou unitu.
Nevite nekdo o nejakem zpusobu, jak to vyresit?
Dik.
David Lebeda
StatusText vs. Label
[*] Bircow <bircow(zv)atlas(tec)cz> - 2.7.2001 13:12:53
Jak� je rozd�l mezi komponentou Label z palety Standard a mezi StaticText z
Additional?
Libor
Import formul���
[*] Bircow <bircow(zv)atlas(tec)cz> - 2.7.2001 13:31:02
Nev�te jestli existuje n�jak� utilita pro p�evod formul߰u z Delphi do
Visual C++ a naopak? Formul߰e Visual Basicu umo�uje VC++ importovat
standardn� a stejn� jednodu#e bych cht�l importovat i formul߰e z Delphi.
Nejlep#� by bylo, kdyby to um�lo vz�jemn� p�evody mezi formul߰i VB, VC++ a
Delphi.
D�ky za v#echny tipy.
Libor
IB & UDF & DELPHI 6 & KYLIX
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 2.7.2001 13:40:39
Ahoj,
tak mne napadlo, zkouseli jste uz nekdo napsat nejaky UDF tak
aby sli prelozit jak v D6 tak v KYLIXu a konecne mohly byt jen
jedny zdrojaky pro oba servery ?
Pokud ano poslete prosim postrehy a postupy co se muselo
udelat, ze aby fungovalo. Diky
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
FF2 a stabilita
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 2.7.2001 13:48:32
Asi tak - na konferencich se obcas objevi problemy, ovsem vetsinou jde o
problemy na strane uzivatelu. Byly i problemy se stabilitou, ale soucasny
update 2.02.01 vypada velice stabilne. Osobne jsem nemel problemy ani drive,
ale je to asi otazka konketni aplikace (server mi bezi na Win NT4 server SP
6 jako server, na Win2kPro jako servis, klienti na W95,W2k, pro zakazniky
delam Single user s embedded serverem do aplikace). Samozrejme jsou tam
chyby, ale patche se prubezne zverejnuji ve forme oprav zdrojoveho kodu -
pak si prebuildujes vsechny FF aplikace, FFserver, FFExplorer, FFService a
ostatni a je to. Zakaznikum pak jen poskytnes update sve aplikace a pripadne
novy server.
Vyhoda produktu TurboPower (pouzivam i AsyncPro) je predevsim v perfektne
fungujici podpore formou news konference, kde se problemy opravdu resi v
realnem case - Petr Zahradnik a dalsi urcite potvrdi.
Cau
Mira Ondrisek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of David Lebeda
> servicepack - opet pekny macek (pres 18 MB). Chci se proto
> zeptat, jake jsou s FF2 momentalni zkusenosti? Pouzivate to
> nekdo? Co stabilita?FF1 a FF2 v jednech Delphi
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 2.7.2001 13:48:31
Nijak, musis si vzdy rucne prepnout na checkboxu v seznamu BPL, kterou verzi
FF chces pouzivat.
Mira Ondrisek
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of David Lebeda
> Byl jsem ale nemile zaskocen tim, ze FF1 a FF2 nelze mit v palete
> komponent nainstalovane oboji soucasne, protoze se hadaji o
> nejakou unitu.
> Nevite nekdo o nejakem zpusobu, jak to vyresit?Panel Outlook
[*] Bircow <bircow(zv)atlas(tec)cz> - 2.7.2001 13:56:28
[P��loha v souboru: paneloutlook.gif]
Jakou komponentu m�m pou��t, kdy� chci do sv�ho programu stejn� p�kn� prvek
jako je v Outlook naz�van� Panel Outlook - tj. svisl� panel s velk�mi
ikonkami nalevo (viz obr�zek v p��loze). Podobn� panel pou��vaj� nap�. i
aplikace inShop Designer apod.
Nejlep#� je samoz�ejm� n�jak� free neplacen�. M�m ale pouze Delphi 3, tak
aby mi v D3 fungovala. D�kuji.
Libor
SQL pre Paradox
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 2.7.2001 14:06:37
Ahoj,
potreboval by som v Paradox databaze robit upravy datovej struktury pomocou
SQL-prikazov typu Alter table TABLENAME add FIELDNAME FIELDTYPE. Bez
problemu mi to funguje so standardnymi typmi poli ako je integer, char alebo
date. Neviem ako vytvorit pole typu MEMO alebo BLOB. Ak niekto pozna spravny
tvar SQL-prikazu, prosim o pomoc.
Dakujem, Pavol Stolc
pstolc(zv)sc.sknet.sk
Vyjimky a vlakno
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 2.7.2001 14:06:07
> Nic proti :), ale uvolneni objektu se preci vzdy realizuje ve
> finally. Postup je
> preci takovyto:
> 1. Vytvorim objekt
> 2. vstoupim do osetrene sekce (jak jsem psal v predchozim mailu)
> 3. Nastane vyjimka
> 4. Vstoupi se do sekce finally
> 5. Protoze sekce finally vyjimku neosetri, tak se po vykonani
> finally vstoupi do
> nadrazene sekce except, ktera provede osetreni vyjimky.
Ahoj,
tohle asi nebude uplne presne.
try
try
except
end;
finally
end;
Tahle konstrukce zajisti dve veci. Za prve, pokud dojde k vyjimce za druhym
try, skoci program za except a udela to, co tam najde. Pokud tam bude exit,
samozrejme opusti proceduru. Pokud tam exit (nebo neco podobneho) nebude,
pokracuje vesele za endem pro except, takze finally sekci projde. Ja to
delam nejak takto:
try
try
Obj := TObject.Create;
VolamFunkciKteraTakyMuzeZpusobitPruser;
except
MessageBox('Jak se dalo cekat, funkce zpusobila pruser !', 'Chybicka se
vloudi', mbOK + mbIconExclamation);
end;
finally
Obj.Free;
end;
Pokud z except bloku nezdrhnes pomoci nejake varianty GoTo, tak se pokracuje
normalne za except blokem. V tvem pripade je kamenem urazu exit za
App.terminate.
> > except
> on E: Exception do
> Application.Terminate;
> exit;
> > // osetreni pripadne chyby
> > end;
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> I v pripade, ze nedojde k vyjimce je vse korektni, ale
> problem tve konstrukce je
> v tomto:
>
> > try
> > try
> > // nebezpecny kod
> > except
> on E: Exception do
> Application.Terminate;
> exit;
> > // osetreni pripadne chyby
> > end;
> > finally
> > // uvolneni zdroju atd. proste operace, ktere se musi
> provest vzdy
> // A sem se to vubec nedostane
> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> > end;
Vyjimky a vlakno
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.7.2001 14:14:43
To mas sice pravdu, ale pokud se na to podivam jinak, tak do inkriminovaneho
finally to dojde jako kdyby zadna vyjimka nenastala. Pokud to chces udelat
opravdu ciste, tak by to melo byt skutecne v poradi finally a pak except.
Dalsi vec je take to, ze napriklad v nekterych situacich je opravdu zadouci, aby
byl program pri vyvolani vyjimky okamzite ukoncen a to v pripade sekvence except
a potom finally proste korektne (rozumej ciste :) neudelas.
> try
> try
> except
> end;
> finally
> end;
>
> Tahle konstrukce zajisti dve veci. Za prve, pokud dojde k vyjimce za druhym
> try, skoci program za except a udela to, co tam najde. Pokud tam bude exit,
> samozrejme opusti proceduru. Pokud tam exit (nebo neco podobneho) nebude,
> pokracuje vesele za endem pro except, takze finally sekci projde. Ja to
Jak uz je vyse napsano - jsou situace, kdy je zadouci okamzite opusteni
funkce/metody a potom musis osetreni napsat i do except a ja jakozto clovek od
prirody liny radsi nepisu nejdriv finally a potom except :)
Jsou take situace, kdy vyjimka zpusobi pad celeho programu, ale Windowsy padnout
nemusi. I v teto situaci je ale moznost vsechno (nebo alespon to, co je v
osetrovanem bloku) po sobe "uklidit".
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
VCL: spec. kalendar
[*] Petr Savinec <delphi(zv)ges(tec)cz> - 2.7.2001 14:28:20
Krasny den,
potreboval bych typ na komponentu - kalendar (neco jako MonthCalendar),
ale s tim rozdilem, aby sla nastavit barva (pisma nebo podkladu) jednotlive
pro kazdy den.
Jestli neni budu ji muset udelat ...
Dik.Vyjimky a vlakno
[*] jd.software(zv)basoft.ch - 2.7.2001 14:34:52
This is a multi-part message in MIME format.
1. Vezmi si ten svuj priklad a ted si predstav, ze Ti vyjimka vyskoci pri
vytvareni Obj.
try
try
Obj := TObject.Create;
VolamFunkciKteraTakyMuzeZpusobitPruser;
except
MessageBox('Jak se dalo cekat, funkce zpusobila pruser !', 'Chybicka se
vloudi', mbOK + mbIconExclamation);
end;
finally
Obj.Free;
end;
Kod Ti skoci (po except) do finally a ty se snazis uvolnit neco co nebylo
vytvorene.
2. Vzdycky jsem si myslel, ze kdy se pouzije Exit (treba po vytvoreni v objektu
v Tvem kode),
tak se finally nevykona. Ale pak jsem si to otestoval a vykonavani normalni
skocilo
i do finally sekce.
Petr
"
This e-mail may contain confidential material. It is intended only for
the person or entity which it is addressed to. Any review,
retransmission, dissemination or other use of this information by
persons or entities other than the intended recipient is prohibited. If
you received this e-mail in error, please immediately notify the sender
or The Swiss Raiffeisen Group and delete the material from any and all
computers it may be stored on.
Any views or opinions expressed in this e-mail are those of the sender
and do not necessarily coincide with those of The Swiss Raiffeisen
Group. Therefore this e-mail does not represent a binding agreement nor
an offer to deal.
E-mail transmission cannot be guaranteed to be secure or error-free.
Information could be intercepted, corrupted, lost, destroyed,
incomplete or may contain viruses. Neither The Swiss Raiffeisen Group
nor the sender can accept any liability for any kind of damage as the
result of viruses or transmission errors.
"Vyjimky a vlakno
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 2.7.2001 14:38:32
Ja to zkratim na minimum : Zalezi na konstrukci programu. Nekdy je to
zadouci tak a nekdy zase jinak :))
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
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.263 / Virov� b�ze: 135 - datum vyd�n�: 22.06.01
Vyjimky a vlakno
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 2.7.2001 14:39:35
> 1. Vezmi si ten svuj priklad a ted si predstav, ze Ti vyjimka vyskoci pri
> vytvareni Obj.
Ale kusuj (s je s hackem) chlape :))))))
Preci nepotrebuji odchytavat pomoci Try...finally bloku vytvoreni objektu. Pokud
dojde k vyjimce pri vytvareni objektu tak preci neni vytvoren a pokud je
vytvoren jenom zcasti tak mam zato, ze se tyto casti zrusi automaticky (to
platilo uz za dob Borland Pascalu 7)
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
SQL pre Paradox
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 2.7.2001 14:49:59
> date. Neviem ako vytvorit pole typu MEMO alebo BLOB. Ak niekto pozna spravny
> tvar SQL-prikazu, prosim o pomoc.
Tak to nejses sam. Zkousel jsem uz (asi) vsechno a proste to nejde. Jedine co mi
zbylo je prejmenovat tabulku, vytvorit novou a presypat data :(
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
>
> Dakujem, Pavol Stolc
> pstolc(zv)sc.sknet.sk
String na PChar
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 2.7.2001 15:30:32
Ahoj
To je pravda. Musis si ale byt stroprocentne jistej se dana promnna je typu
string.
Kdyz pretypovavas primo negeneruje se kod pro kontrolu spravnosti a muze
dojit k havariim. Jaromir Cermak
Ahoj,
tohle snad neni funkce jako takova, ale prime pretypovani (PChar je
typ). Pokud vim, jde o postup bezne pouzivany, nevim o zadne
nekorektnosti.
David Vyjimky a vlakno
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 2.7.2001 15:34:47
Jediny problem je v tom, ze vytvareni objektu se dava pred try:
Dale se muze uvolnovat ukazatel na funkci: Obj := nil; nebo pouzit
funkci FreeAndNil(Obj);
V Except bys take mel osetrit typ vyjimky a nenechavat to pro vsechny
chyby.
Obj := TObject.Create;
try
try
VolamFunkciKteraTakyMuzeZpusobitPruser;
except
on EConvertError:
do MessageBox('Chyba', 'Chybicka se vloudi', mbOK + mbIconExclamation);
end;
finally
FreeAndNil(Obj);
end;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
2.7.2001 jd.software(zv)basoft.ch:> 1. Vezmi si ten svuj priklad a ted si predstav, ze Ti vyjimka vyskoci pri
> vytvareni Obj.
> try
> try
> Obj := TObject.Create;
> VolamFunkciKteraTakyMuzeZpusobitPruser;
> except
> MessageBox('Jak se dalo cekat, funkce zpusobila pruser !', 'Chybicka se
> vloudi', mbOK + mbIconExclamation);
> end;
> finally
> Obj.Free;
> end;
> Kod Ti skoci (po except) do finally a ty se snazis uvolnit neco co nebylo
> vytvorene.
> 2. Vzdycky jsem si myslel, ze kdy se pouzije Exit (treba po vytvoreni v objektu
> v Tvem kode),
> tak se finally nevykona. Ale pak jsem si to otestoval a vykonavani normalni
> skocilo
> i do finally sekce.
> Petr
Vkl�d�n� ActiveX Control
[*] Bircow <bircow(zv)atlas(tec)cz> - 2.7.2001 16:00:20
Jak se v Delphi do formul߰e vkl�d� ActiveX control? V VC++ se jednodu#e z
m�stn� nab�dky prav�ho tla��ka vybere Insert ActiveX Control a je to, ale
jak to sam� m�m ud�lat v Delphi? D�ky.
Libor
Panel Outlook
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2001 16:06:34
From: "Bircow" <bircow(zv)atlas(tec)cz>
> Jakou komponentu m�m pou��t, kdy� chci do sv�ho programu stejn� p�kn� prvek
> jako je v Outlook naz�van� Panel Outlook - tj. svisl� panel s velk�mi
> ikonkami nalevo (viz obr�zek v p��loze). Podobn� panel pou��vaj� nap�. i
Ahoj,
http://www.fesoft.com/powertls/ptdnload.htm
http://www.dreamcompany.com/dcoutbar.html
http://www.turbopower.com/products/orpheus3/lookout
Petr Vones, amatersky programator
Delphi Standart a DB pristup
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2001 16:11:40
From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
> toho som sa obaval. existuje nejaka nahrada datasetu?
Ahoj,
zalezi na tom co potrebujes delat. Pokud ti jde jen o to provest nejaky SQL
prikaz/dotaz a obcas zobrazit nejaky vysledek z databaze tak muzes pouzit
Zbyskovo OLE DB (http://delphree.clexpert.com/pages/app_OLEDB.htm). Nicmene
ve Standard verzi se stejne moc programovat neda, tazke by mozna stalo za
zvazeni upgradovat na Professional.
Petr Vones, amatersky programator
zmena language tabulky DBase
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2001 16:17:03
From: "Ren� Otisk" <otisk(zv)MISEL(tec)cz>
> Da se nejak pred najetim (pres BDE) zmenit kodovani tabulky? Puvodni cp je v
> DBase Hun 858 a ja potrebuji zmenit jazyk na cp867.
Ahoj,
nejaky priklad je tady:
http://groups.google.com/groups?ic=1&th=5f11e0081b9a565e,4
Petr Vones, amatersky programator
FF1 a FF2 v jednech Delphi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.7.2001 16:38:41
Puvodni zprava, kterou napsal David Lebeda dne 2 Jul 2001,:
> mam hotovou aplikaci ve FF 1.56 a chtel bych ji prepsat do FF2.
> Byl jsem ale nemile zaskocen tim, ze FF1 a FF2 nelze mit v palete
> komponent nainstalovane oboji soucasne, protoze se hadaji o
> nejakou unitu.
> Nevite nekdo o nejakem zpusobu, jak to vyresit?
No to nejde. Musis natahnout/vyhodit prislusny balicek FF1/FF2
a jeste je dost dobre take prejmenovat cestu, aby si nebrali
unity toho druheho...
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
============================================================FF2 a stabilita
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.7.2001 16:40:38
Puvodni zprava, kterou napsal David Lebeda dne 2 Jul 2001,:
> okolo vanoc se objevil novy Flashfiler 2 a spolu s nim i informace,
> ze je nestabilni a rad pada. Nyni je k dispozici jiz druhy
> servicepack - opet pekny macek (pres 18 MB). Chci se proto
> zeptat, jake jsou s FF2 momentalni zkusenosti? Pouzivate to
> nekdo? Co stabilita?
Uz je to pomerne dost stabilni. Tedy ja osobne jsem nemel problemy
se stabilitou uz od verze 2.01, ale zase v tom nedelam nejake
silene aplikace...
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
============================================================StatusText vs. Label
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2001 17:10:39
From: "Bircow" <bircow(zv)atlas(tec)cz>
> Jak� je rozd�l mezi komponentou Label z palety Standard a mezi StaticText z
> Additional?
Ahoj,
TLabel je nativni komponenta VCL odvozena od TGraphicControl. TStaticText je
zapouzdreni Windows prvku STATIC. Rozdil je v tom, ze TStaticText je vlastne
"oknem", takze ma vlastni handle, coz je v mnoha pripadech zbytecne.
Petr Vones, amatersky programator
Vyjimky a vlakno
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 2.7.2001 17:12:21
Tak s tim Tvym prikladem sis nabehl proti zdi :)) .
Kdyz to napises podle Tve predstavy :
try
try
Obj := TObject.Create;
VolamFunkciKteraTakyMuzeZpusobitPruser;
finally
Obj.Free;
end;
except
// tady muze byt cokoli
end;
a nastane opet chyba pri vytvareni objektu, co se stane ? No ? Chyba, preci
!!! Budes se v Tvem vnorenem finally snazit zrusit opet objekt, ktery
neexistuje !! Proto, pokud vytvaris objekt a pouzivas finally, NEDAVA SE
KONSTRUKCE PRO VYTVORENI OBJEKTU DO BLOKU TRY !!!!!!
Kdyzuz chces mit finally vnorene tak napr. takto :
try
Obj := TObject.Create;
try
VolamFunkciKteraMuzeZpusobitPruser;
finally
Obj.Free;
end;
except
end;
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
> 1. Vezmi si ten svuj priklad a ted si predstav, ze Ti vyjimka vyskoci pri
> vytvareni Obj.
> try
> try
> Obj := TObject.Create;
> VolamFunkciKteraTakyMuzeZpusobitPruser;
> except
> MessageBox('Jak se dalo cekat, funkce zpusobila pruser !', 'Chybicka
se
> vloudi', mbOK + mbIconExclamation);
> end;
> finally
> Obj.Free;
> end;
>
> Kod Ti skoci (po except) do finally a ty se snazis uvolnit neco co nebylo
> vytvorene.
>
> 2. Vzdycky jsem si myslel, ze kdy se pouzije Exit (treba po vytvoreni v
objektu
> v Tvem kode),
> tak se finally nevykona. Ale pak jsem si to otestoval a vykonavani
normalni
> skocilo
> i do finally sekce.
>
> Petr
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.263 / Virov� b�ze: 135 - datum vyd�n�: 22.6. 2001
OT: Jak prodavat vlastni software do zahranici.
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 2.7.2001 17:29:08
Pro zakaznika je verohodnejsi, kdyz cislo platebni karty
sveri zavedene registracni firme v USA, nez by ji posilal
nejake firmicce ve vychodni evrope. Vrele doporucuji nejake
sluzby jako http://www.shareit.com apod. Na nejake vlastni
online zpracovani platebnich karet zapomen. Ani se
to nevyplati.
Radim
----- Original Message -----
From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 02, 2001 7:06 AM
Subject: RE: OT: Jak prodavat vlastni software do zahranici.
Ahoj
No to by me zajimalo s jakou bankou, my jsme se asi pred mesicem obratily na
x bank, ktere nam nam sdelili ze takoveto platby povazuji za vysoce rizikove
(mam na mysli on - line platby kreditni kartou, pricemz v zahranici to je
cekem bezne), co se tyce off line plateb, ktere probihaji formou ze vystavis
na svem serveru formular ktery si potencinalni zakaznik stahne a vyplni a
PODEPISE a vyplni take cislo sve kreditky a posle vam to, tak takovyhle
zpusob je u nas realizovatelny po dohode s bankou, ovsem docela zdlouhavy.
Milos
Vyjimky a vlakno
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 2.7.2001 18:27:25
> Tak s tim Tvym prikladem sis nabehl proti zdi :)) .
> Kdyz to napises podle Tve predstavy :
>
> try
> try
> Obj := TObject.Create;
> VolamFunkciKteraTakyMuzeZpusobitPruser;
> finally
> Obj.Free;
> end;
> except
> // tady muze byt cokoli
> end;
>
> a nastane opet chyba pri vytvareni objektu, co se stane ? No
> ? Chyba, preci
> !!! Budes se v Tvem vnorenem finally snazit zrusit opet objekt, ktery
> neexistuje !! Proto, pokud vytvaris objekt a pouzivas
> finally, NEDAVA SE
> KONSTRUKCE PRO VYTVORENI OBJEKTU DO BLOKU TRY !!!!!!
>
> Petr Jurik, Spravce site, programator
> COMET System s.r.o.
Ahoj,
1. Asi by to chtelo, abys obcas nakoukl do helpu :-))
********** CUT ****************************
Use Free to destroy an object. Free automatically calls the destructor if
the object reference is not nil. Any object instantiated at runtime that
does not have an Owner should be destroyed by a call to Free, so that can be
properly destroyed and the memory released. Unlike Destroy, Free is
successful even if the object is nil, so if the object was never
initialized, Free won�t result in an error.
********** CUT ****************************
2. Krome toho, v puvodnim prispevku jsem to napsal takto:
********** CUT ****************************
try
try
Obj := TObject.Create;
VolamFunkciKteraTakyMuzeZpusobitPruser;
except
MessageBox('Jak se dalo cekat, funkce zpusobila pruser !', 'Chybicka se
vloudi', mbOK + mbIconExclamation);
end;
finally
Obj.Free;
end;
********** CUT ****************************
Jeste se Ti zda neco spatne ?
Zdravim
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
FF2 a stabilita
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 2.7.2001 19:45:55
ja v tom delam neustale nejake silenosti a presne tak jak rika Petr - od
verze 2.01 je FlashFiler dostatecne stabilni pro solidni a profesionalni
praci na male i "velke" aplikace. Jedina verze, ktera mela problemy byla
prvni verze dvojky - tenkrat jsem mel pocit, ze jsem gamatester. :-)))
Petr Svejda
> -----Original Message-----
> > okolo vanoc se objevil novy Flashfiler 2 a spolu s nim i informace,
> > nekdo? Co stabilita?
>
> Uz je to pomerne dost stabilni. Tedy ja osobne jsem nemel problemy
> se stabilitou uz od verze 2.01, ale zase v tom nedelam nejake
> silene aplikace...
---
Odchozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.263 / Virova baze: 135 - datum vydani: 22.6.2001
Pocet stranek pred tiskem
[*] Fredy Crueger <Fredy.C(zv)Seznam(tec)cz> - 2.7.2001 19:50:19
From: "Hurricane" <hurricane(zv)quick(tec)cz>> Musis vedet, jakym fontem budes tisknout. Z toho to pak lze prepocitat na
> pixely a na cm stranky. Kdysi jsem se s kamosem o neco podobneho pokouseli
> (vertikalni okraj). Jakz takz to fungovalo pro neproporcionalni fonty. Pro
> proporcionalni ne. Nakonec jsem to z projektu odstranil. Jestli chces,
poslu
> ti to, treba se ti to podari zfunkcnit.
To me taky napadlo to prepocitavat pres pixely, ale bude to vzdy 100%?
Zavisi to na tisk�rne?Scrollovani textu
[*] Fredy Crueger <Fredy.C(zv)Seznam(tec)cz> - 2.7.2001 19:55:56
From: "Hurricane" <hurricane(zv)quick(tec)cz>
> Nevim jestli je to i u RxRichEditu, ale SynEdit (viz jiny prispevek) na to
> ma Ctrl+Up/Down. Pak by stacilo ve zdrojaku zrusit potrebu toho Ctrl a slo
> by to. S kurzorem je to stejny, SynEdit umoznuje nastavit typ kurzoru.
Diky, ale uz sem to vyresil jinak a sem s tim docela spokojenej. Vyuzil sem
pri tom zprav windows a ted to chodi krasne. RichEdit ma normalni skrolovani
uz v sobe, ale vadilo mi tam, to skrolovalo dal i kdyz tam uz zadny text
nebyl. Jeste se nejak pokousim schovat tu "carku" neboli caret jak sem nasel
v helpu. V uvahu pripada funkce HideCaret(HWND). Ten to sice schova, ale
jakmile zaskroluju, tak se zase objevi, a nemuzu to volat pri kazdem stisku
klavesy pro skrolovani, protoze se to z nepochopitelnych duvodu zase vrati
na zacatek textu, kde je ten caret. Jeste si s tim pohraju. Pokud byste
nekdo mel zajem o to samotne skrolovani, muzu poslat zdroj.Vytvoreni TWebBrowser
[*] Rostislav Ramik <kimros(zv)atlas(tec)cz> - 2.7.2001 21:28:07
From: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
> procedure TForm1.NewWebBrowser;
> begin
> Y:= TWebBrowser.Create(Self);
> Y.Align:= alClient;
> end;
>
> tak takhle to nechodi...u jinych komponent bych dal jeste Y.Parent:=Self,
> lec zde je pouze ReadOnly...
TOleControl(Y).Parent := Self;
Rosta
EStringListError
[*] pisingr <pisingr(zv)volny(tec)cz> - 2.7.2001 21:39:26
Dobry den,
zasilam kousek kodu pri kterem mi delphi generuji EStringListError. Jedna se
o radek oznaceny *.
j,k: Integer
s: String
for j:=0 to i-1 do
begin
s:=FileListBox1.Items.Strings[j];
k:=pos('.',s);
Delete(s,k,4);
Memo2.Lines.Strings[j]:=s;
* Form8D_fib.ComboBox1.Items.Strings[j]:=s;
end;
Nevite prosim cim by to mohlo byt. Delphi 5, W2000
Dekuji za pomoc
Pisingr
Pocet stranek pred tiskem
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 2.7.2001 23:41:23
> > Musis vedet, jakym fontem budes tisknout. Z toho to pak lze prepocitat na
> > pixely a na cm stranky. Kdysi jsem se s kamosem o neco podobneho pokouseli
> > (vertikalni okraj). Jakz takz to fungovalo pro neproporcionalni fonty. Pro
> > proporcionalni ne. Nakonec jsem to z projektu odstranil. Jestli chces,
> poslu
> > ti to, treba se ti to podari zfunkcnit.
>
> To me taky napadlo to prepocitavat pres pixely, ale bude to vzdy 100%?
> Zavisi to na tisk�rne?
Zavisi to spis na ovladaci nez na tiskarne, jake rozliseni mas k dispozici a
jake je aktualne nastavene, pokud znas vysku radku v pixelech, pocet radku a
zjistis pocet bodu na palec aktualni tiskarny
/GetDeviceCaps(Handle,LogPixelsY)/, tak by to nemel byt problem previst to na
milimetry... no a delka A4 je tusim 29,5cm :-)
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Delphi Standart a DB pristup
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 2.7.2001 23:44:13
> From: "Miroslav Barica" <miroslav.barica(zv)matador.sk>
> > toho som sa obaval. existuje nejaka nahrada datasetu?
>
> Ahoj,
>
> zalezi na tom co potrebujes delat. Pokud ti jde jen o to provest nejaky SQL
> prikaz/dotaz a obcas zobrazit nejaky vysledek z databaze tak muzes pouzit
> Zbyskovo OLE DB (http://delphree.clexpert.com/pages/app_OLEDB.htm). Nicmene
> ve Standard verzi se stejne moc programovat neda, tazke by mozna stalo za
> zvazeni upgradovat na Professional.
Bych jenom podotknul, ze v D4St jeste TDataset je...
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
EStringListError
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.7.2001 06:13:32
Neni to tim, ze do Mema prirazujes na pozici, na ktere zadny string
neni (neni to Memo predtim prazdne ?)
Pak bys musel pouzit
Memo2.Lines.Add(s);
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
2.7.2001 pisingr:
> Dobry den,
> zasilam kousek kodu pri kterem mi delphi generuji EStringListError. Jedna se
> o radek oznaceny *.
> j,k: Integer
> s: String
> for j:=0 to i-1 do
> begin
> s:=FileListBox1.Items.Strings[j];
> k:=pos('.',s);
> Delete(s,k,4);
> Memo2.Lines.Strings[j]:=s;
> * Form8D_fib.ComboBox1.Items.Strings[j]:=s;
> end;
> Nevite prosim cim by to mohlo byt. Delphi 5, W2000
> Dekuji za pomoc
> Pisingr
IB & UDF & DELPHI 6 & KYLIX
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 3.7.2001 07:02:37
<color><param>0100,0100,0100</param>On 2 Jul 2001, at 13:40, Radek KALA wr=
ote:
<color><param>7F00,0000,0000</param>> tak mne napadlo, zkouseli jste uz ne=
kdo napsat nejaky UDF tak
> aby sli prelozit jak v D6 tak v KYLIXu
</color>Pred nedavnem se tim zabyval kolega a s vysledky byl zrejme
spokojen. Toto jsou jeho zavery (Delphi5):
<color><param>0100,0100,0100</param>Vstupn=ED parametry jsou predavany zas=
adne referenci, muze jich byt
nejvyse 10 (nelze predavat Array). Pro ciselne vstupy lze vystacit s
64bitov=FDm double (InterBase sama pretypuje integer na double).
Ciseln=E9 vystupy lze predavat hodnotou i referenci. Stringove
vystupy jsou predavany zasadne referenci, aby odpovidaly typu
cstring alias pchar.
VProstredi Win32 je nutn=E9 alokovat pamet pomoci nasledujici
funkce:
function ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll=
'
Ve Win32disribuci InterBase_WI-V6.0-server je zminena knihovna
vadresari server\bin.
VLinuxove distribuci FirebirdSS-0.9 je podobna knihovna ib_util.so,
ktera neni soucasti standardni instalace tj. je treba vyhrabat si ji
zinstalacn=EDho .tar.gz (zda se vsak, ze pro UDF prelozene Kylixem
neni potreba).
Jedinou upravou pri prenosu zdroju zDelphi5 do Kylixu bylo
odstraneni direktivy {$R *.RES} vsouboru projektu.
<nofill>
Z.Kalhous
Vyjimky a vlakno
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 3.7.2001 07:56:26
> > Kdyz to napises podle Tve predstavy :
> >
> > try
> > try
> > Obj := TObject.Create;
> > VolamFunkciKteraTakyMuzeZpusobitPruser;
> > finally
> > Obj.Free;
> > end;
> > except
> > // tady muze byt cokoli
> > end;
> >
> > a nastane opet chyba pri vytvareni objektu, co se stane ? No
> > ? Chyba, preci
>
> ********** CUT ****************************
> Use Free to destroy an object. Free automatically calls the destructor
> if the object reference is not nil. Any object instantiated at runtime
> that does not have an Owner should be destroyed by a call to Free, so
> that can be properly destroyed and the memory released. Unlike
> Destroy, Free is successful even if the object is nil, so if the
> object was never initialized, Free won t result in an error.
> ********** CUT ****************************
Ahoj,
pokud je Obj lokalni promenna, neobsahuje na zacatku nil a Free
muze zkolabovat. Nejsem si ted jist, zda volani po volani
konstruktoru, pokud se nepovede, obsahuje Obj vzdy nil, ale
nespolehal bych na to. Kdysi jsem se docetl to, co rikaji ostatni -
tj. Create by mel byt mimo blok try-finally, ktery ve finally uvolnuje
ten objekt.
David Lebeda
OT: program na obuv
[*] iko <iko(zv)kamarad(tec)cz> - 3.7.2001 09:14:14
Pozna niekto nejaky program na konstrukciu, navrh obuvi? (tvar, velkost,
farba)... asi to bude nieco ako CAD. Neviem, nemam o tom ani sajnu. Ako sa
robi obuv? Normalnym CADom s nejakym modulom?
Diky za kazdu aj malinku informaciu
iko
--
Vsetky informacie v tomto e-mailu vratane odosielatela a prijemca su
uplne vymyslene a akakolvek podobnost je ciste nahodna
OT: Inno Setup2
[*] Miroslav Dran��k <DMiroslav(zv)seznam(tec)cz> - 03.7.2001 10:17:32
Ahoj,
nevite nekdo, kde se da sehnat cestina.isl pro Inno Setup2?
Pokud by nekdo mel a byl by ochotny to poslat, prosim na adresu
mailto:dmiroslav(zv)seznam(tec)cz
predem diky
Mirek Drancak
______________________________________________________________________
Profesion�lov� sv�tov�ho skateboardingu na ramp�ch. Z�vody, triky,
z�bava. Exkluzivn� na http://0g(tec)cz/0107/mystic_sk8_cup_worldonline
Ukonceni THREADu
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 03.7.2001 10:26:57
Zdravim!
Mam problem s ukoncenim Threadu. Pri spousteni aplikace se napojuji na databazi (Informix) pres TQuery. A kdyz chci pri dlouhe prodleve ukoncit aplikaci. Volam TerminateThread(NewThread.Handle, 0); ten vraci true, ale aplikace mi zustava viset, co s tim? Na Terminate se mi to ukoncit nepodarilo, stale bezel dal. Diky
M&B
Inno Setup2
[*] Do�ekal Radek <RDocekal(zv)CSAS(tec)cz> - 3.7.2001 10:27:45
> nevite nekdo, kde se da sehnat cestina.isl pro Inno Setup2?
http://www.jrsoftware.org/files/istrans/Czech/Czech.isl
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
Inno Setup2
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 3.7.2001 11:27:02
> Ahoj,
> nevite nekdo, kde se da sehnat cestina.isl pro Inno Setup2?
> Pokud by nekdo mel a byl by ochotny to poslat, prosim na adresu
> mailto:dmiroslav(zv)seznam(tec)cz
na : http://www.jrsoftware.org/files/istrans/MediaPlayer - problem s buttony
[*] Martin Pokorny <mpokorny.delphi(zv)seznam(tec)cz> - 03.7.2001 12:24:50
Ahoj. Mam problem se spoustenim videa. Pokud z programu zavolam TMediaPlayer.Play, video se v pohode spusti, ale tlacitka nemodifikuji svoji "barevnost". T.j. zustane zelene tlacitko "Play" a zasedle "Stop". Az kdyz stisknu mysi play, zesedne a stop zcervena. Jak to proboha zaridit z programu? Zkousel jsem snad vsechno :-(((( Predem diky.
Martin (D4,W98/2k)
______________________________________________________________________
Profesion�lov� sv�tov�ho skateboardingu na ramp�ch. Z�vody, triky,
z�bava. Exkluzivn� na http://0g(tec)cz/0107/mystic_sk8_cup_worldonline
Vyjimky a vlakno
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 3.7.2001 12:35:15
> Ahoj,
>
> pokud je Obj lokalni promenna, neobsahuje na zacatku nil a Free
> muze zkolabovat. Nejsem si ted jist, zda volani po volani
> konstruktoru, pokud se nepovede, obsahuje Obj vzdy nil, ale
> nespolehal bych na to. Kdysi jsem se docetl to, co rikaji ostatni -
> tj. Create by mel byt mimo blok try-finally, ktery ve finally
> uvolnuje
> ten objekt.
>
> David Lebeda
Ahoj,
to je pravda, ale ja vzdycky pouzivam inicializaci na NIL. To, co jsem
napsal, byla jen zkratka pro ilustraci mechanismu, ne detailni navod.
Cili asi takto:
try
Obj := nil;
try
Obj := TObject.Create;
// jine ovyjimkovane cinnosti
except
// osetreni vyjimek
end;
finally
Obj.Free;
end;
Neni to samozrejme univerzalne pouzitelne, ale resi to problem uvolneni
zdroju, pokud dojde k vyjimce v chranene casti. Mozna lepsi priklad nez Free
objektu, je dealokace pameti (napr. pro dynamicke pole), protoze to resi jak
problem dealokace zdroju, tak osetreni vyjimky pri jeji alokaci.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
ActiveX do formul�re
[*] Bircow <bircow(zv)atlas(tec)cz> - 3.7.2001 12:40:41
Jak se v Delphi do formul�re vkl�d� ActiveX control? V VC++ se jednoduse z
m�stn� nab�dky prav�ho tlac�ka vybere Insert ActiveX Control a je to, ale
jak to sam� m�m udelat v Delphi? D�ky.
Libor
Panel Outlook
[*] Bircow <bircow(zv)atlas(tec)cz> - 3.7.2001 12:42:51
Jakou komponentu m�m poul�t, kdyl chci do sv�ho programu stejne pekn� prvek
jako je v Outlook naz�van� Panel Outlook - tj. svisl� panel s velk�mi
ikonkami nalevo. Podobn� panel poul�vaj� napr. i aplikace inShop Designer
apod.
Nejlepa� je samozrejme nejak� free neplacen�. M�m ale pouze Delphi 3, tak
aby mi v D3 fungovala. Dekuji.
Libor
Round ??
[*] Jakub Valenta <delphi(zv)dapos(tec)cz> - 3.7.2001 12:46:39
Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
ServisePack1 pod W2k pocitala spatne ?!?
round(14.5) .. 14 !! - zde ma byt 15 ?
Dela vam to take ?
JaVal
Round ??
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 3.7.2001 13:08:17
> Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
> ServisePack1 pod W2k pocitala spatne ?!?
>
> round(14.5) .. 14 !! - zde ma byt 15 ?
>
Jo, vsiml jsem si toho. Je otazka, jestli to je chyba nebo zamer -
pet desetin se sice "ma" zaokrouhlovat nahoru, ale treba v Americe
zas vymysleli neco noveho :)) Ja to resim tak, ze k parametrum
funkci Int, Trunc, Round apod. pridavam 0.00000001 nebo neco
podobneho. Tim se predejde i tomu, za napr.
int(x), kde x bylo vypocitano v programu jako 30, dava vysledek 29,
protoze v koprocesoru to zustalo ulozeno jako 29.999999999999.
David Lebeda
ActiveX do formul�re
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 3.7.2001 13:14:34
Menu: Component -> Import ActiveX Control -> to uz zvladnes :)
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
03.07.2001 Bircow:
> Jak se v Delphi do formul�re vkl�d� ActiveX control? V VC++ se jednoduse z
> m�stn� nab�dky prav�ho tlac�ka vybere Insert ActiveX Control a je to, ale
> jak to sam� m�m udelat v Delphi? D�ky.
> Libor
Round ??
[*] Jir� Foldyna <jiri.f(zv)avizo(tec)cz> - 3.7.2001 13:16:13
> P�edm�t: Re: Round ??
>
> > Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
> > ServisePack1 pod W2k pocitala spatne ?!?
> >
> > round(14.5) .. 14 !! - zde ma byt 15 ?
> >
Ahoj,
to je vlastnost, ne chyba. Viz help:
************* CUT ****************
X is a real-type expression. Round returns an Int64 value that is the value
of X rounded to the nearest whole number. If X is exactly halfway between
two whole numbers, the result is always the even number.
************* CUT ****************
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Round ??
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 3.7.2001 13:20:34
> > Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
> > ServisePack1 pod W2k pocitala spatne ?!?
> >
> > round(14.5) .. 14 !! - zde ma byt 15 ?
> >
>
Vsiml jsem si toho ne jenom u Delphi, ale napriklad i v Accesu2000 mi v
SQL udela round(14.555, 2) = 14.55
Round ??
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 3.7.2001 13:27:06
A kde jste videli,ze by se 14.5 melo zaokrouhlit na 15, to je prece
naprosty nesmysl.
Nevim jak to bylo drive,ale jiz minimalne takovejch 15 let se prave
sporna cislice 5 zaokrouhluje ne nahoru, ale na sudou.
Toto se zhruba pred 10 lety zacalo objevovat i v pocitacich a byly s
tim velke problemy, ale to uz je snad pryc. Napr. dosovsky
paradoxve verzi 3.5 a 4.0 jeste zaokrouhloval spatne, ale verze 4.5
jiz zaokrouhluje spravne. A podobne se to postupne rozsirilo na
vsechny programy.> Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
> ServisePack1 pod W2k pocitala spatne ?!?
>
> round(14.5) .. 14 !! - zde ma byt 15 ?
>
> Dela vam to take ?
>
> JaVal
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Round ??
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 3.7.2001 13:49:51
> round(14.5) .. 14 !! - zde ma byt 15 ?
> Dela vam to take ?
ano, a je to SPRAVNE
precti si help.
v pripade xx.5 se zaokrouhluje na sudou. mam pocit, ze se tomu rika
statisticke zaokrouhlovani. pamatuji si, ze na zakladni skole nam
ucitelka vysvetlovala, ze se prechazi na nove tzv matematicke
zaokrouhlovani a ze xx.5 jde nahoru. v americe asi nemaji nase skolni
osnovy ;)
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Round ??
[*] Robert Kindl <rob(zv)exec(tec)cz> - 3.7.2001 14:04:24
> Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
> ServisePack1 pod W2k pocitala spatne ?!?
>
> round(14.5) .. 14 !! - zde ma byt 15 ?
>
> Dela vam to take ?
Ano
to je odjakziva vlastnost koprocesoru.
Zaokrouhluje totiz na nejblizsi sude cislo!
Rob
Round ??
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 3.7.2001 15:42:40
Muzete mi prozradit kde se takove zaokrouhlovani uci? Ja jsem poslednich
patnact let stravil ve skolnich lavicich CSSR, CSFR a CR a bohuzel nikdo me
nic takoveho nenaucil.
Ja jsem se vzdy ucil nejsnadnejsi zaokrouhleni trunc( a + 0,5 ).
Pokud rozumim dobre tomu co se pise v helpu, pak je toto chovani zalezitosti
procesoru a ne programu, tak nerozumim poznamce, ze nektere Paradoxy
okrouhli tak a jine jinak.
A jeste nerozumim proc by nemelo plati 1 + round(a) = round(a + 1) (pokud
round je na cela cisla) - tohle snad po lidech ty pocitace nemuzou chtit.
Honza +
> -----Original Message-----
> From: Radek KALA [mailto:Kala(zv)Atlas(tec)cz]
> Sent: Tuesday, July 03, 2001 1:27 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Round ??
>
>
> A kde jste videli,ze by se 14.5 melo zaokrouhlit na 15, to je prece
> naprosty nesmysl.
> Nevim jak to bylo drive,ale jiz minimalne takovejch 15 let se prave
> sporna cislice 5 zaokrouhluje ne nahoru, ale na sudou.
> Toto se zhruba pred 10 lety zacalo objevovat i v pocitacich a byly s
> tim velke problemy, ale to uz je snad pryc. Napr. dosovsky
> paradoxve verzi 3.5 a 4.0 jeste zaokrouhloval spatne, ale verze 4.5
> jiz zaokrouhluje spravne. A podobne se to postupne rozsirilo na
> vsechny programy.
>
>
> > Setkali jste se nekdy s funkci round, ktera by v D5, upgradovana
> > ServisePack1 pod W2k pocitala spatne ?!?
> >
> > round(14.5) .. 14 !! - zde ma byt 15 ?
> >
> > Dela vam to take ?
> >
> > JaVal
> >
> >
>
>
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Cerneho 58/60, 635 00
> tlf. : + 420 5 4622 3491
> fax : + 420 5 4622 3470
> GSM : + 420 603 85 75 15
> Round ??
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 3.7.2001 16:22:11
> Muzete mi prozradit kde se takove zaokrouhlovani uci? Ja jsem
> poslednich
> patnact let stravil ve skolnich lavicich CSSR, CSFR a CR a
> bohuzel nikdo me
> nic takoveho nenaucil.
Ahoj, ja jsem byl ve skolnich lavicich od roku 1986 ro roku 1998 a nikdo nas
takovehle zaokrouhlovani neucil, i kdyz to jiz melo byt platne. Jedine
pravidlo bylo, ze cisla 1234 se zaokrouhluji dolu a 56789 nahoru. Nicmene
jsem zjistil jednu pozitivni vec, kluci jedne moji kolegyne se to pry loni
ucili. Takze se to jiz mozna na skole zacalo ucit a pristi generace to bude
povazovat jako normalni.
> A jeste nerozumim proc by nemelo plati 1 + round(a) = round(a + 1)
Neplati to pro a=x.5, protoze se cislice 5 zaokrouhluje na nejblizsi sudou,
tedy jednou nahoru podruhe dolu.
Dopln si rovnici (spise nerovnici) a uvidis:
1) a=14.5
1 + round(14.5)=round(14.5 + 1)
1 + 14=round(15.5)
15<>16 !!!
2) a=15.5
1 + round(15.5)=round(15.5 + 1)
1 + 16=round(16.5)
17<>16 !!!
Zkusil jsem dve cisla a sam vidis, ze se obe strany ani jednou nerovnaji.
Pri jakekoliv jine cislici nez 5 ti ta rovnice samozrejme bude platit:
a=14.8
1 + round(14.8)=round(14.8 + 1)
1 + 15=round(15.8)
16=16
apod s ostatnimi cislicemi.
S pozdravem Pavel Koukal.Round ??
[*] Erik Salaj <winsoft(zv)stonline.sk> - 3.7.2001 16:41:19
> A kde jste videli,ze by se 14.5 melo zaokrouhlit na 15, to je prece
> naprosty nesmysl.
Preco?
> Nevim jak to bylo drive,ale jiz minimalne takovejch 15 let se prave
> sporna cislice 5 zaokrouhluje ne nahoru, ale na sudou.
Dobre, ale aky je na to dovod?
> Toto se zhruba pred 10 lety zacalo objevovat i v pocitacich a byly s
> tim velke problemy, ale to uz je snad pryc. Napr. dosovsky
> paradoxve verzi 3.5 a 4.0 jeste zaokrouhloval spatne, ale verze 4.5
> jiz zaokrouhluje spravne. A podobne se to postupne rozsirilo na
> vsechny programy.
Co je nespravne na zaokruhlovani 5 nahor?
Erik
mys a nepravidelne oblasti na formu
[*] delphi_x(zv)email(tec)cz - 3.7.2001 16:43:09
Zdravim
Pri pohybu mysi nad formularem potrebuji, aby se v urcitych oblastech formulare kurzor mysi zmenil a pri kliknuti mysi v jedne z techto oblasti potrebuji vedet, ve ktere oblasti k tomu doslo. Oblasti mohou byt velmi nepravidelneho tvaru (v jednodussi variante jsou to N-uhelniky), mohou se dotykat ale neprekryvaji se. Jak na to ??? Diky za kazdy namet. Pepa. (zkuste mi poradit co nejdrive - vcera bylo pozde)
---
Email(tec)cz - Vase posta zdarma!
http://www.email(tec)cz