Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Pipnuti na Enter v EDITu
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 19.8.1999 09:50:03
> poradil by mi nekdo, jak zabranit tomu, aby kdyz si v D3 na formular dam
> dva EDITy a do prvniho z nich napisu na ud�lost OnKeyPress nasledujici
> kod,
> aby pri stisku klavesy Enter to nepiplo.
>
> if Key=13 then Edit2.SetFocus;
>
>
skus napisat do Edit1.KeyPress
if Key = 13 then
begin
ActiveControl := FindNextControl(Edit1, True, True, False);
Key := #0;
Exit;
end;
JJ
jahoda(zv)asset.sk
Kresleni na Canvas tiskarny
[*] Pavel �im��ek - 19.8.1999 09:54:08
>Ahoj vsichni,
>
>mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
>obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
>pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
>zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal? S
>tiskem nemam ani nejmensi zkusenost.
>
>Diky predem
>
Tady je vypocet prepocetnich parametru pro tisk, vstupnimi hodnotami jsou
pozadovana vzdalenost od leveho okraje papiru, od horniho okraje a sirka
tisteneho objektu - vse v cm a zadava uzivatel (vyska tisteneho objektu se
urci proporcionalne).
Vysledkem jsou PrintLeft, PrintTop, PrintScaleX, PrintScaleY. Nadeklaruj si
je pripadne do hlavicky, ja je mel globalni.Ty se pak pouzivaji primo pri
tisku v procedure PaintOnPrinterCanvas.
V te jsem ti uvedl priklad jak se vytiskne obdelnik, ktery ma souradnice
[X1, Y1, X2, Y2] v pixelech, carou o tloustce SirkaCary taky v pixelech.
procedure TMyGraf.RealPrint(PrintFromLeft: real; PrintFromTop: real;
PrintInWidth: real);
var Pom: integer;
PixPerInX,
PixPerInY: integer;
VodorovnyOkraj,
SvislyOkraj: integer;
SirkaNaPapire: real;
begin
{Propocty tisku}
SirkaNaPapire:= PrintInWidth;
PixPerInX:= GetDeviceCaps(Printer.Handle, LOGPIXELSX);
PixPerInY:= GetDeviceCaps(Printer.Handle, LOGPIXELSY);
VodorovnyOkraj:= GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
SvislyOkraj:= GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
PrintLeft:= round(PrintFromLeft * PixPerInX / 2.54) - VodorovnyOkraj;
PrintTop:= round(PrintFromTop * PixPerInY / 2.54) - SvislyOkraj;
PrintScaleX:= SirkaNaPapire * PixPerInX / 2.54 / SirkaObjektuProTisk;
PrintScaleY:= SirkaNaPapire * VyskaObjektuProTisk / SirkaObjektuProTisk *
PixPerInY / 2.54 / VyskaObjektuProTisk;
{Propocty tisku}
Printer.BeginDoc;
PaintOnPrinterCanvas;
Printer.EndDoc;
end;
procedure PaintOnPrinterCanvas;
begin
Printer.Canvas.Brush.Style:= bsSolid;
Printer.Canvas.Brush.Color:= Color;
Printer.Canvas.Pen.Style:= psSolid;
Printer.Canvas.Pen.Color:= clBlack;
Printer.Canvas.Pen.Width:= trunc((PrintScaleX + PrintScaleY) * SirkaCary /
2);
Printer.Canvas.Rectangle(PrintLeft + trunc(PrintScaleX * X1),
PrintTop + trunc(PrintScaleY
* Y1),
PrintLeft +
trunc(PrintScaleX * X2),
PrintTop + trunc(PrintScaleY
* Y2));
end;
mnozina
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 19.8.1999 09:09:59
Mnozinu pouzit nelze, protoze je urcena vyhradne pro ordinalni typy a
mam pocit, ze bere snad jen 255 elementu (nebo to bylo jen pro 16
bitu?). Asi bys mel prece jen pouzit to IF, pri 10 retezcich to nebude
tak hrozne.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Martin Talian [SMTP:geoplan(zv)pp.sinet.sk]
> Odesl�no: 19. srpna 1999 7:42
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: mnozina
>
> Zdravim,
> �
> mam asi 10 retazcov. Potom dostanem do prememnnej od uzivatela jeden
> retazec a potrebujem zistit ci sa zhoduje s niektorym s tych 10-ich,
> prip s ktorym. Ale nechcem pouzit if. Skusal som to cez typ mnozina
> ale nepodarilo sa mi to rozchodit. chcelo to iba char.
> Prip. maly priklad by bodol.
> vdaka
> �
> Martin
Problem s prevodem STRING na REAL
[*] Miroslav Jarolimek <m.jarolimek(zv)softdec(tec)cz> - 19.8.1999 10:22:33
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nejjednodussi je:
function Zaokrouhli(Vstup:Double):Double;
begin
Result:=(Round(Vstup*100))/100;
end;
tam bys mohl mit ale urcite problemy s pretecenim - uznavam - neni to moc pravdepodobne, ale stat se to ciste teoreticky muze.
Takze o neco lepsi je asi tohle:
function Zaokrouhli(Vstup:Double):Double;
begin
Result:=Int(Vstup)+(Round(Frac(Vstup)*100))/100;
end;
Pak jeste existuje fce FormatFloat ( viz help ), ale jestli si dobre pamatuju, tak se mi zdalo, ze jeji zpusob zaokrohlovani je nejakej podivnej, ale jestli mas chut, tak to ozkousej.
M.J.
-----P�vodn� zpr�va-----
Od: Luk� Gallina <johndelphi(zv)atlas(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 19. srpna 1999 9:47
P�edm�t: Problem s prevodem STRING na REAL
Diky,
oprawdu jste mi pomohli, ale asi potrebuju nakopnout. Jak prewedene cislo w REALu zaokrouhlim na 2 des. cisla. Uz sem to kdysi delal a nemuzu si wzpomennout :-((
Diky
Lukas Gallina
Kresleni na Canvas tiskarny
[*] Libor Lev <levl(zv)oku-dc(tec)cz> - 19.8.1999 08:30:30
From: Petr Brant <p.brant(zv)samo(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Subject: Kresleni na Canvas tiskarny
Date sent: Thu, 19 Aug 1999 06:52:42 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> Ahoj vsichni,
>
> mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
> obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
> pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
> zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal? S
> tiskem nemam ani nejmensi zkusenost.
>
> Diky predem
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
Takto se ziska rozliseni tiskarny v bodech na palec:
PixelsInInchX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
PixelsInInchY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
Tyto hodnoty potom vynasobit skutecnymi rozmery kreslenych
objektu v palcich.
Toto a mnoho dalsiho o tisku je v knize Pruvodce vyvojare v Delphi
od Paxeca a Teixera.
Libor Lev
levl(zv)oku-dc(tec)cz
Lokalizator
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 19.8.1999 10:37:56
Zbysek Hlinka wrote:
> zpet je umim jen pod NT. To ale neni zamer. K Delphi programum
> se vyrabeji externi dll datove kontejnery, kde jsou prelozene
> resourcy. Spusteny program si osaha, zda nema ve svem adresari
> prelozeny kontejner (ma priponu jazyka, napr. <program>.CSY), a
> pokud najde vhodny kontejner, natahne si resourcy z nej. Takhle
> muzu mit originalni program a nekolik jazykovych mutaci k nemu.
> To funguje i na balicky a jine dll vytvorene v Delphi (Builderu). A vtip
> je v tom, ze i Ceckari si obcas vyrabeji (nebo mohou vyrobit)
> takovehle kontejnery, kde maji ulozene preklady stejnym
> zpusobem. No a pro tento pripad prave chci umet generovat vlastni
> datovy dll kontejner.
No,
dival jsem se po inetu po ruznych linkerech do PE a tady jsou nejake linky
(nezkousel jsem z toho nic zkompilovat, ale jsou tam zdrojaky, ktere snad
pomuzou):
http://alink.home.dhs.org/
http://root.cern.ch/root/nicolas/html/projects/nicovir/pefile.htm
Nakonec to vypada, ze bude nutne napsat jednoduchy linker od zacatku, ale s
pomoci a informacemi z toho druheho linku by to melo jit.
K.C.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
LoadIcon(HINSTANCE, FileName).
[*] Ren� Otisk - 19.8.1999 10:52:28
HI,
Potreboval bych nacist do TImagelistu ikony z .res souboru.
V archivu konference jsem nasel odkaz na tuto fci, lec neprisel jsem na to, jak to nahodit na ten ImageList.
Mohl bych poprosit o radu?
Diky
Sroub
EXE compressor - od Jordana
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.8.1999 11:02:16
http://www.jordanr.dhs.org/striprlc.htm
Problem s prevodem STRING na REAL
[*] Pavel �im��ek - 19.8.1999 11:52:29
No treba takto: Cislo:= Round(100 * Cislo) / 100;
Ahoj Pavel
-----P�vodn� zpr�va-----
Od: Luk� Gallina <johndelphi(zv)atlas(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 19. srpna 1999 11:33
P�edm�t: Problem s prevodem STRING na REAL
Diky,
oprawdu jste mi pomohli, ale asi potrebuju nakopnout. Jak prewedene cislo w REALu zaokrouhlim na 2 des. cisla. Uz sem to kdysi delal a nemuzu si wzpomennout :-((
Diky
Lukas Gallina
Kresleni na Canvas tiskarny II.
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 19.8.1999 11:01:32
Ahoj vsem,
diky za dosavadni rady, uz to jde dobre, uz umim ridit velikost obrazku
v pohode, ale porad je tu jeste nedostatek: Vsechny cary, jako kruznice,
primky apod. se zobrazuji spravne, ale texty, ktere jsou take soucasti
obrazku, jsou porad stejne velke. Mam samozrejme v pameti zaznamenany
jejich charakteristiky jako FontSize, FontColor a Fontname. Da se jejich
velikost nejak prepocitat ?
Diky predem.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
Problem s prevodem STRING na REAL
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 19.8.1999 11:03:55
Staci ho vynasobit stem, uriznout desetinnou cast (pozor: Round, ne
Trunc) a pak zase vydelit stem.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Luk� Gallina [SMTP:johndelphi(zv)atlas(tec)cz]
> Odesl�no: 19. srpna 1999 9:37
> Komu: Delphi konference
> P�edm�t: Problem s prevodem STRING na REAL
>
> Diky,
> oprawdu jste mi pomohli, ale asi potrebuju nakopnout. Jak prewedene
> cislo w REALu zaokrouhlim na 2 des. cisla. Uz sem to kdysi delal a
> nemuzu si wzpomennout :-((
> �
> Diky
> ����������������������������������������������������������������������
> ����������������� Lukas Gallina
> �Cislovani dokladu - jak nahrat hodnotu z jedne tab
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 19.8.1999 12:13:01
> -----Original Message-----
> From: Vlastimil Bardon [mailto:ineq-soft(zv)ova.eridan(tec)cz]
>
> 1. Nebylo by lepsi tam tu diru ponechat (jako signal, �e tam
> kdysi cosi bylo) a smlouvy cislovat pres SELECT MAX(CISLO_SMLOUVY)+1 ... ?
Kdysi jeden kolega u tohohle triku zkrachoval, kdyz mel tech "smluv" nekolik
set tisic... :-))
Tomas
Automaticke vytvoreni programu
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 19.8.1999 12:30:18
environment:
Win98/95 CZ,Delphi STANDART 4.0 (Build 5.104) Update Pack 2, RxLib 2.60
keywords:
Project,Compile,Build,batch
q:
Patram po moznosti jak zkompilovat a zpracovat projekt(Compile,Build) z
prikazove radky abych mohl automaticky davkovym souborem generovat
vysledne exe.
Melo by to vypadat asi takto:
1) Nejakym programem automaticky upravim urcite funkce,konstanty a
vlastnosti v souborech *.pas a *.dfm projektu.
2) Spustim neco (Delphi) s prislusnymi parametry tak aby probehlo
Compile a Build projektu.
3) Zpracuji (presunu) vysledny exe
A tak porad dokola
Cela akce se bude provadet na PC s nainstalovanymi Delphi.
Diky za kazdy namet.
eL..DBGRID Resize
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 19.8.1999 12:32:41
Zdrav�m!
Nev�te p�i jak�m eventu, nebo jak jinak zjist�m zm�nu rozm�ru sloupce a kter�ho, zkr�tka, �e si u�ivatel hr�l s my�� a tro�ku rozt�hl sloupce ani� bych musel st�le sledovat "with" jednotliv�ch sloupc�. D4 D�ky. M&B
Delphi 5 beta - namet na horor
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.8.1999 12:49:49
Ing. Jaroslav ke �k wrote:
> Maloktera novinka se obejde bez chyb. Me by pripadne chyby (nebudou-li
> prilis vazne) zpocatku asi tolik nevadily. Ja chci zahajit novy
:-) Uvaha je takova, ze takto drahy program by nemel obsahovat
zavazne chyby (jako tomu bylo u verze 4). Zaplaty by mely
osetrovat jen chyby drobne, nefatalni. Na tom trvam
nekompromisne, nebo je pak treba jit s cenou rapidne dolu.
> projekt, ktery bude postaven na Interbazi a proto jsem se velmi
> zajimal o nove slibne prime napojeni. Nez projekt dokoncim, bude konec
> roku a do te doby vyjde urcite nejaky opravny balicek. Me osobne se
> nyni verze D4 (po druhe oprave) zda byti nejstabilnejsi a nejlepsi z
> dosavadnich verzi. Prima konektivita je ale pro me tak velkym
> lakadlem, ze to chci risknout a necekat az na pripadne opravy. D5-ku
> jsem si jiz proto objednal.
Prima konektivita je urcite prinosem - nejsou li tam ovsem zavazne
chyby. :-) Uz me vytaci neustale instalace a nastavovani BDE na
siti. Ale v souvislosti s primymi komponentami (zkousel jsem na
ADO) bych rad upozornil na malou drobnost - u noveho projektu
vrele doporucuji zapomenout na komponenty TXxTable a TXxQuery
a pouzivat TXxDataSet, u SQL databazi. Deleni na Table a Query
mi prijde umele, poplatne spise souborovym databazim, pro SQL
vsak dosti nevhodne - zejmena vzhledem ke zpusobu, jakym SQL
databaze pracuji.
> > Tenhle dlouhy dopis by si mel dukladne
> precist i pan Kubat a > poslat ho do Ameriky. Jestli Inprise zavede
> popsany zpusob > licencovani, tak vazne asi take prejdu jinam. Moje
> trpelivost ma sve > hranice. :-)
> --- Pan Kubat si clanek opravdu
> precetl a poslal mi sve vyjadreni. Uvedl, ze se v ostre verzi D5 s
> takovymto zpusobem ochrany nepocita.
Huh, to mi spadl kamen ze srdce. Nicmene kdyz to davaji do bety,
je to podezrele. Jako ochrana je myslim vice nez postacujici
60denni platnost.
Cituji: " ... nepredpoklada se,
> ze by ve finalnim produktu Delphi 5 byla podobna ochrana jako byla v
> C++Builderu 4". To me uklidnilo. Ja jsem z toho mel velkou obavu,
> protoze se jiz drive proslychalo, ze Borland chysta neco pro
> zdokonaleni ochrany proti piratstvi.
Myslim, ze nejlepsi ochranou by byla prizniva zmena licencni
politiky. Zejmena na takove veci, jako jsou nativni linky, MIDAS a
IB. I kdyz obavam se, ze pokud by znovuzavedli jednu volnou
licenci pro IB jako tomu bylo v D1, ze prijdou s krizkem po funuse,
protoze MSDE je jednoznacne vyhodnejsi a myslim, ze timhle
smerem se uz orientovalo hodne vyvojaru. Vubec se domnivam, ze
zrusenim jedne volne licence na IB prisel Inprise o hromadu penez.
Ja jsem napriklad na tom postavil program (v Delphi 1), a kdo by
chtel sit, dokoupil by si prislusnou licenci na IB. Mali zakaznici by
meli licenci v cene programu. Takhle me vsak natolik nastvali, ze
jsem IB opustil z duvodu nevypocitatelnosti budouciho vyvoje, a
musel jsem predelat program na Paradox a MS SQL (protoze tohle
meli zakaznici uz i z jinych duvodu). Kdyz jsem se naucil s MS
SQL delat, tak po vydani MSDE uz neni nejmensi duvod menit
databazi - a jeste spise s ohledem na OLE DB. Takze penize,
ktere mohl mit Inprise, dostane ted Microsoft. Takovy je zivot. :-) U
Inprise neumeji myslet strategicky do budoucna a pokazili si
podnikatelsky zamer. :-))
Kdyz uz jsem nakousl databaze - jsou u IB typy pro unicode
retezce? Kdyz tak sleduji problemy s cestinou, rozhodl jsem se
plne prejit na unicode vsude, kde se muze projevit nejaka
diakritika. A bude po starostech i s jazykovymi drajvy.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Cislovani dokladu - jak nahrat hodnotu z jedne tab
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.8.1999 12:49:49
Milan Bla�ek wrote:
> myslel jsem to priblizne tak jak pises s tim, ze jednak nemohu pro
> toto reseni pouzit SQL Databasi, to je jedna vec.Druha vec je, ze pri
> vymazani zaznamu v Table2 potrebuji nikoliv precislovat drive
> pridelena cisla (RodneCislo + cislo dle poctu zaznamu ),ktera jsou
> stale vyuzivana , ale znovu obsadit jiz definitivne vymazane cislo v
> Tabulce2 a to tak aby se znovu zaplnila vznikla cislena dira.
>
> Priklad: Zakaznik X ma rodne cislo 8888888888 ( v Table1)
> Zakaznik X ma tri smlouvy s cislama 88888888881,
> 88888888882 a
> 88888888883 (v Table2)
>
> V pripade, ze zrusime zaznam 88888888882 vznikne jedna ciselna
> dira a
> ja bych ji rad
> nejak znovu obsadil pri dalsim porizeni noveho zaznamu, protoze
> pokud
> nedokazu
> znovu obsadit ciselnou diru, tak dojde k tomu, ze pri porizovani
> noveho
> zaznamu se
> mi vytvori duplicitni cislo 888888883 misto pozadovaneho
> 888888884. V pripade zaplneni vznikle ciselne diry nemuze dojit k
> vytvoreni
> stejnych cisel.
> Pro upresneni Rodne cislo mam typu String.
> Doufam ze jsem muj problem prijatelne vysvetlil.
Ja si myslim, ze to je chybna uvaha. Diry bych nechal, aby bylo
videt, ze tam neco kdysi bylo. Pokud budes cislovat nejakym
autoinkrementem, nebo budes zjistovat pocet zaznamu a nejvyssi
hodnotu pomoci vhodneho selectu
select max(cislo) from... a
select count(rc) from...,
nemuzes udelat chybu (leda pri sitovem provozu, coz je ovsem
obecny problem souborovych databazi).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi 5 beta - namet na horor
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.8.1999 13:09:39
> -----Original Message-----
> From: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
> Sent: Thursday, August 19, 1999 12:50 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Delphi 5 beta - namet na horor
>
> > Maloktera novinka se obejde bez chyb. Me by pripadne chyby
> (nebudou-li
> > prilis vazne) zpocatku asi tolik nevadily. Ja chci zahajit novy
>
> :-) Uvaha je takova, ze takto drahy program by nemel obsahovat
> zavazne chyby (jako tomu bylo u verze 4). Zaplaty by mely
> osetrovat jen chyby drobne, nefatalni. Na tom trvam
> nekompromisne, nebo je pak treba jit s cenou rapidne dolu.
Presne tak, to je jako kdyby nekdo prodaval auta bez volantu.
Takova mala chyba, ktera znemozni auto ridit.
To auto by si asi nikdo nevzal, u SW je smula, ze takoveto chyby nejsou
zjevne.
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/Pristup k databazi bez BDE
[*] rjunga(zv)oku-ka(tec)cz - 19.8.1999 13:16:54
Ahoj lidi,
nemate nekdo nejakou komponentu na pristip k databazi bez BDE?
Moc by se mi hodila. Na www.torry.ru jsem nasel jen pro D3 a ja mam D4.
Ikdyz jsem zkousel pouzit tyto komponenty pro D3 na D4, nefungovalo to.
Dik, Roman Junga
Tisk formulare
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 19.8.1999 13:19:07
Zdravicko...
Shanim nejakou vizualni komponentu (nejlepe free) pro tisk jednoducheho
formulare (obsahuje jen presne umisteny text na 1 strance). QReport
dodavany s Delphi mi nevyhovuje, protoze vyzaduje propojeni s DataSetem.
Dekuji za vsechny namety, odkazy apod.
F.Otevreni CSV souboru v Excelu z Delphi
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.8.1999 13:20:59
> -----Original Message-----
> From: Burger, Tomas [mailto:tomas.burger(zv)sap-ag.de]
> Sent: Thursday, August 19, 1999 9:08 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Otevreni CSV souboru v Excelu z Delphi
>
>
> DDV,
>
> Napadaji me dva potencialni problemy....:
> 1. nekde jsem videl, ze se to vztekalo na carku, protoze ta
> byla zaroven
> "decimal separator"...
> 2. mozna by stalo za to vyzkoumat vsechny parametry funkce OpenText a
> nastavit navtrdo, co je to za typ souboru...
>
Myslim, ze ten znak by mohl byt tabulator (#9) pro implicitni nastaveni
Excelu.
V "Menu/Text do sloupcu/Oddelovac" jsou oddelovace textu nastavitelne.
Ty se potom pouzivaji k rozestrkavani do sloupcu, kdyz se vklada
z clipboardu i kdyz se oteviraji textove soubory pomoci menu.
Predpokladam, ze ta VBA funkce se chova stejne.
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/Napojen� na DataModul p�es DLL
[*] Fiedler, Milan (CAP, GCF) <Milan.Fiedler(zv)gecapital(tec)com> - 19.8.1999 13:50:12
Diky moc za odpoved.
Funguje perfektne, ale kdyz to spustim na pocitaci kde nejsou naistalovany
Delphi
tak to hlasi "Runtime Error 217 AT00022D6A".
Co s tim.
Haj hou!
Predne je zapotrebi pouzit balicky (minimalne VCL40.BPL) jak pro EXE, tak
pro DLL. Jinak predpokladam, ze DLL je v dobe volani ShowModal jeste stale v
pameti <g>. Pokud to neni tim, ze jedno, druhe nebo obe je prelozeno bez
balicku, tak by to chtelo vice informaci o kontextu, protoze predavat
objekty z DLL do EXE lze bez problemu.
Hodne zdaru
> Zkousime to v Delphi4/ClientServer a do budoucna Delphi5
>
> >Zkousime:
> >Pripojime se na DLL,
> >funkce z DLL nam vrati TDataModule,
> >zapiseme do DBGridu.DataSource
> >a jak zavolame ShowModal formulare tak vyhlasi chybu "InvalidPointer".Heslo
[*] Milan Konvi�ka <m.konvicka(zv)post(tec)cz> - 19.8.1999 13:51:20
Ahoj.
Nevite nekdo, jestli jde zaheslovat rozpracovan� projekt, aby ho jina osoba
nemohla cist a editovat?
D�ky.Automaticke vytvoreni programu
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 19.8.1999 14:04:30
> 2) Spustim neco (Delphi) s prislusnymi parametry tak aby probehlo
> Compile a Build projektu.
>
bcc32.exe (tusim).Jak zabranit vytaceni?
[*] Mgr. Anton�n Blatn� - 19.8.1999 13:33:29
Zdravim!
Prosim o radu a dekuji ya odpovedi:
Potrebuji odeslat najednou nekolik (resp. dve) stovek mailu s ruznym textem.
Kdyz pouziji SendMail, sice to funguje, ale ihned vytaci modem a chce se
pripojit. Ja bych ale potreboval, aby, kdyz ma uzivatel programy typu MS
Outlook, aby se ty maily v pokoji ulozily do slozky K odeslani a modem aby
zustal tichy.
Diky
Mgr. Antonin Blatny
blatny(zv)atlas(tec)cz
Tisk formulare
[*] rjunga(zv)oku-ka(tec)cz - 19.8.1999 14:37:21
Zkus si to treba umistit vsechno do RichEdit a nebo treba na Panel a pak
napis
RichEdit.Print;
Panel.Print;
Mimochodem, kdyz si vezmes QuickReport v Properties BAND\HAS TITLE nastavis
true a vse, co potrebujes vytisknou nacpes do bandu TITLE, tak nebudes
potrebovat DATASET.
Roman Junga
Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> na 19.08.99 13:19:07
Odpov?zte pros?m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v?dom?: Roman Junga/IDC/OkUKarvina/CZ)
P?edm?t: Tisk formulare
Zdravicko...
Shanim nejakou vizualni komponentu (nejlepe free) pro tisk jednoducheho
formulare (obsahuje jen presne umisteny text na 1 strance). QReport
dodavany s Delphi mi nevyhovuje, protoze vyzaduje propojeni s DataSetem.
Dekuji za vsechny namety, odkazy apod.
F.
Automaticke vytvoreni programu
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 19.8.1999 14:41:40
eL <eL_z_Prahy(zv)seznam(tec)cz> wrote:>Patram po moznosti jak zkompilovat a zpracovat projekt(Compile,Build) z
>prikazove radky abych mohl automaticky davkovym souborem generovat
>vysledne exe.
Staci ti spustit command line prekladac s vhodnymi parametry na prikazovem radku.
Ja to delam tak, ze v make ho spoustim takto:
$(dcc) callnet.dpr
a vsechny parametry pro rizeni prekladu a cesty k podresarum mam v souboru dcc32.cfg ve stejnem adresari, jako je *.dpr, napr:
/B
/CG
/GD
/E..\COMMON\DBG\BIN
/IINC;..\COMMON\INC
/L
/N..\TMP
/O
/P
/Q
/U..\COMMON\HTM;"D:\Program Files\Borland\Delphi 3\OCX\CHARTFX"
/RRES
Co znamenaji jednotlive parametry zjistis tak, ze spustit dcc32.exe bez parametru nebo v manualu.
P.S. Pokud bys nechtel pouzivat make, tak ze souboru *.bar spoustim dcc32 takto:
"%D32%\BIN\dcc32.exe" callnet.dpr
Jestli se preklad povedl kontroluji tak, ze pred spustenim prekladace smazu predpokladany vystupni soubor napr.
if exist callnet.exe del callnet.exe
a po skonceni prekladu testuju, zda ten soubor vznikl:
if not exist callnet.exe goto ERR_DCC32
Bye, pf
Microsoft registry
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)mujweb(tec)cz> - 19.8.1999 14:50:10
DD,
obracim se jeste s jednim problem ohledne registru.
Pokud nekdo vi jak zjistit ( nejlepe z onech registru)
verzi sw od microsoftu tak prosim o radu.
Jde mi o to ze potrbuji programem ktery se spousti ze site
pri prihlaseni zjistit zda je na danem pocitaci instalovan
nejaky sw a to nekam zapsat. Az dosud to umim, ale
potrebuji zjistit i jeho verzi hlavne v pripade
wordu (6.0 , 95, 97 apod. ).
Diky moc za radu.
Martin Bednar
bednar(zv)mujweb(tec)cz
Heslo
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.8.1999 14:57:27
Zkomprimovat s heslem nebo zasifrovat.
Anebo ho mit na disku, kam nema jina osoba pristup
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb <http://freeweb/> .coco(tec)cz/jpolak/cernalistina/
-----Original Message-----
From: Milan Konvi�ka [mailto:m.konvicka(zv)post(tec)cz]
Sent: Thursday, August 19, 1999 1:51 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Heslo
Ahoj.
Nevite nekdo, jestli jde zaheslovat rozpracovan� projekt, aby ho jina osoba
nemohla cist a editovat?
D�ky.Off: TPPatch
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 19.8.1999 14:58:29
Ahoj,
potreboval bych malinkou radu: U jednoho zakaznika jsem predelaval stary
soft, programovany v Turbo/Borland Pascalu, pomoci TPPatch tak, aby fungoval
na novem Pentiu II. Myslel jsem, za tato chyba deleni nulou v CRT na
rychlych pocitacich je jen vysadou Pascalu, ale u jednoho z programu jsem
zjistil, ze na nej patch aplikovat nelze. Podival jsem se proto dovnitr a
zjistil, ze je to programovane v BORLAND Turbo Basic (1987). Nevite nekdo,
zda existuje podobny patch i pro aplikace psane v tomto jazyce a kde bych ho
pripadne mohl stahnout ?
Diky
Petr Kroca
Format *.dbx souboru
[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 19.8.1999 15:07:24
Dobry den.
Nevite prosim nekdo jaky je format *.dbx souboru, a pripadne jak je mozne s nimi pracovat?
Chtel bych udelat aplikaci ve ktere chci pouzivat soubor kontaktu z Outlook Express.
Predem Diky.
Libor
Jak zabranit vytaceni?
[*] Peter Misun <peterm(zv)microstep-hdo.sk> - 19.8.1999 15:14:44
da sa niekde nastavit, aby bol off-line
no a potom je tam uz len take velke tlacidlo send/recieve
(inac, uzivam nechSkape, takze ak je to trosku nepresne, sorry)
peto
Mgr. Anton�n Blatn� wrote:
> Zdravim!
>
> Prosim o radu a dekuji ya odpovedi:
>
> Potrebuji odeslat najednou nekolik (resp. dve) stovek mailu s ruznym textem.
> Kdyz pouziji SendMail, sice to funguje, ale ihned vytaci modem a chce se
> pripojit. Ja bych ale potreboval, aby, kdyz ma uzivatel programy typu MS
> Outlook, aby se ty maily v pokoji ulozily do slozky K odeslani a modem aby
> zustal tichy.
>
> Diky
>
> Mgr. Antonin Blatny
> blatny(zv)atlas(tec)cz
--
Mgr. Peter Misun , MicroStep-HDO s.r.o.
Ilkovicova 3, 812 19 Bratislava, Slovakia
tel: ++421-7-60291816 (60291469), Fax: ++421-7-65422480
Import dat z *.XLS do Paradoxu bez DDE, OLE atd
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 19.8.1999 15:25:05
Mam tady z nejakeho Chip CD toto
(ovsem nevim, jak to bude s tim importem):
====================
TExcel component 3.3
====================
TExcel is a component to produce output tables directly into
MS Excel, including formatting, commands, macro calls, etc.
ALE !
--------------------------------------
TExcel is provided free of charge as so long as
it is not in commercial use. When it produces
income for you, please send me some portion of
your income (at least $50). Thank you.
--------------------------------------
Zip ma cca 20 kB.
Nezkousel jsem to, ale je k tomu i demo.
Dobra.
> ----------
> Hledam reseni jak importovat data ze souboru *.xls do tabulky
> Paradox,bez
> pouziti OLE, ODBC atd.
> Nejredaji bych to resil pomoci komponety, ale i jine reseni uvitam.
> ERangeError pri nacteni hodnoty z pole
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 19.8.1999 15:46:40
win95 osr2, D4 C/S
Nazdarek,
mam nasledujici funkci v komponente:
function TFandFieldF.GetDouble(const Buf: array of Byte): Double;
var
Temp: Comp;
begin
if (Buf[FOffset] and $80 <> 0) then
Temp := -1
else
Temp:=0;
...
no a na podmince mi to vyhlasi chybu ERangeError, ale pozor jenom v pripade, ze v nastaveni
balicku jsou zvoleny polozky "Pentium-safe FDIV" a "Range checking". V ostatnich pripadech
to projde v pohode. Nevite nekdo, cim to muze byt??
Mirek
Cislovani dokladu - jak nahrat hodnotu z jedne tab
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 19.8.1999 15:47:39
No a? Statisice neni moc, pracuji s miliony. Mas-li tu polozku ve stringu,
pak 1 rad = 1B. Navic - smluv muze byt statisice, ale pochybuji, ze tam
bude statisice vymazanych smluv a tedy statisice der v ciselnych radach.
Ale jestli na tom trvas, tak pochopitelne jde napsat select, ktery najde
prvni diru, ale bude velmi pomaly. Neznam Local SQL, tak ho neumim napsat v
tomto jazyku, umel bych ho napsat v Transact SQL. Skoro bych rekl, ze to
muzes napsat se srovnatelnym efektem na urovni Delphi stylem
Table1.DisableControls ;Table1.First ; while not Table1.EOF do begin ...
atd ... Table1.Next ; end ; Table1.EnableControls ; - za predpokladu, ze
Teble1 je filtrovana na smlouvy jednoho zakaznika.
( Ale ja bych to tak rozhodne nepsal. )
-----P�vodn� zpr�va-----
Od: Burger, Tomas [SMTP:tomas.burger(zv)sap-ag.de]
Odesl�no: 19. srpna 1999 12:13
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Cislovani dokladu - jak nahrat hodnotu z jedne tabulky a tu
i ncrementovat
> -----Original Message-----
> From: Vlastimil Bardon [mailto:ineq-soft(zv)ova.eridan(tec)cz]
>
> 1. Nebylo by lepsi tam tu diru ponechat (jako signal, �e tam
> kdysi cosi bylo) a smlouvy cislovat pres SELECT MAX(CISLO_SMLOUVY)+1 ...
?
Kdysi jeden kolega u tohohle triku zkrachoval, kdyz mel tech "smluv"
nekolik
set tisic... :-))
Tomas
konference
[*] Milan Konvi�ka <m.konvicka(zv)post(tec)cz> - 19.8.1999 15:57:31
Ahoj.
Nevite nekdo o konferenci pro HTML, DHTML, o Skriptech, ASP atd?
Predem diky.Tisk formulare
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 19.8.1999 15:57:00
Prat se s prepocitavanim dpi pri tisku z Panelu nebo RichEditu se mi
nechce, ale pouziti Title v QReportu je presne to co jsem hledal. Diky.
F.
> -----P�vodn� zpr�va-----
> Od: rjunga(zv)oku-ka(tec)cz [SMTP:rjunga(zv)oku-ka(tec)cz]
> Odesl�no: 19. srpna 1999 14:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Tisk formulare
>
> Zkus si to treba umistit vsechno do RichEdit a nebo treba na Panel a
> pak
> napis
> RichEdit.Print;
>
> Panel.Print;
> Mimochodem, kdyz si vezmes QuickReport v Properties BAND\HAS TITLE
> nastavis
> true a vse, co potrebujes vytisknou nacpes do bandu TITLE, tak nebudes
> potrebovat DATASET.
>
> Roman Junga
>
>
>
>
> Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> na 19.08.99 13:19:07
>
> Odpov?zte pros?m - delphi-l(zv)fwd(tec)cz
>
> Komu: delphi-l(zv)fwd(tec)cz
> Kopie: (Na v?dom?: Roman Junga/IDC/OkUKarvina/CZ)
> P?edm?t: Tisk formulare
>
>
>
>
> Zdravicko...
> Shanim nejakou vizualni komponentu (nejlepe free) pro tisk
> jednoducheho
> formulare (obsahuje jen presne umisteny text na 1 strance). QReport
> dodavany s Delphi mi nevyhovuje, protoze vyzaduje propojeni s
> DataSetem.
> Dekuji za vsechny namety, odkazy apod.
> F.
>
>
>
>
> OffTopic: Licencni politika - mala poznamka (was:
[*] Zden�k B�hm - 19.8.1999 16:14:22
>Myslim, ze nejlepsi ochranou by byla prizniva zmena licencni
>politiky. Zejmena na takove veci, jako jsou nativni linky, MIDAS a
>IB. I kdyz obavam se, ze pokud by znovuzavedli jednu volnou
>licenci pro IB jako tomu bylo v D1, ze prijdou s krizkem po funuse,
>protoze MSDE je jednoznacne vyhodnejsi a myslim, ze timhle
>smerem se uz orientovalo hodne vyvojaru. Vubec se domnivam, ze
>zrusenim jedne volne licence na IB prisel Inprise o hromadu penez.
>Ja jsem napriklad na tom postavil program (v Delphi 1), a kdo by
>chtel sit, dokoupil by si prislusnou licenci na IB. Mali zakaznici by
>meli licenci v cene programu. Takhle me vsak natolik nastvali, ze
>jsem IB opustil z duvodu nevypocitatelnosti budouciho vyvoje, a
>musel jsem predelat program na Paradox a MS SQL (protoze tohle
>meli zakaznici uz i z jinych duvodu). Kdyz jsem se naucil s MS
>SQL delat, tak po vydani MSDE uz neni nejmensi duvod menit
>databazi - a jeste spise s ohledem na OLE DB. Takze penize,
>ktere mohl mit Inprise, dostane ted Microsoft. Takovy je zivot. :-) U
>Inprise neumeji myslet strategicky do budoucna a pokazili si
>podnikatelsky zamer. :-))
Tak tak. Chci jen rict: existuji firmy s kvalitnim produktem, ale spatnou
politikou a maji existencni problemy, ci se to o nich aspon proslycha (tak
napr. jedna nejmenovana firma pisici velmi znamy ucetni program presla od
Delphi na Microsoft C a MS SQL Server a to asi tak nejvic proto, ze Borland
a jeho licencni politika ma sva sverazna specifika).Pak taky existuji firmy,
ktere na co sahnou to se mirne receno nepovede (ze pane Gates), ale na
rozdil od jinych to umi prodat a pak se topi v miliardach.
To je, aspon podle me, ten nejvetsi problem pocitacoveho prumyslu (no, jinak
bychom ted vsichni pouzivali MACa, ne?).
Zdenek
Heslo
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 19.8.1999 16:16:08
Milan Konvi�ka wrote:
> Ahoj. Nevite nekdo, jestli jde zaheslovat rozpracovan� projekt, aby
> ho jina osobanemohla cist a editovat? D�ky.
Utilitka ponekud vetsiho kalibru je tzv. PGPDisk, ktery pouziva cituji:
"Uses a strong, military-grade encryption algorithm known as CAST, which
has a solid reputation for its ability to withstand unauthorized
access."
Po nainstalovani lze vytvorit "disk", ktery je fyzicky ulozen na disku v
zasifrovanem souboru, ale bez prislusneho hesla nejde precist.
Ke stazeni na: www.pgp(tec)cz
K.C.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
ERangeError pri nacteni hodnoty z pole
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 19.8.1999 16:18:29
V pripade, ze naplnis pole napr.: GetDouble([1, 2, 3, 4, 5, 6]);
a potom volas
Buf(X) kde X je napr. 20 cize vecsie ako pole (kde mas 6 prvkov) tak Ti to vyhlasi exception, v pripade ze mas zvolene volby Range... a Pent... Kaka�ka Pavol
paka(zv)aktis(tec)cz
( kapas(zv)post(tec)cz )
Nazdarek,
mam nasledujici funkci v komponente:
function TFandFieldF.GetDouble(const Buf: array of Byte): Double;
var
Temp: Comp;
begin
if (Buf[FOffset] and $80 <> 0) then
Temp := -1
else
Temp:=0;
...
no a na podmince mi to vyhlasi chybu ERangeError, ale pozor jenom v pripade, ze v nastaveni
balicku jsou zvoleny polozky "Pentium-safe FDIV" a "Range checking". V ostatnich pripadech
to projde v pohode. Nevite nekdo, cim to muze byt??
Mirek
Zablokovani Windows
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 19.8.1999 16:32:03
DD,
Potrebuju nejakym zpusobem zablokovat praci ve windows a nevim jak to udelat aby se uzivatel na 100% k praci nevratil...napadlo me prekryt obrazovku necim, kde nebude fungovat alt-f4 apod. ale nevim ci se to da obejit...Muzete poradit?
diky cau
P.S.> jeste me napadlo...jak zablokuju klavesnici? ;-)ADO + D5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.8.1999 17:22:57
Ono ty komponenty ADOExpress nebo jak jim Borland rika jdou dokoupit zvlast i
do D5Pro, ale nerad bych kupoval zajice v pytli a fakt by me zajimalo, jako
verzi ADO to podporuje. Nezkousel jste to nekdo kdo ma D5Beta? Ale pokud bude
Borland postupovat s aktualizacema komponent tak jak doposud (tzn. jednou rocne
s novou verzi Delphi) tak IMHO asi moc nepochodi...
Mac
Radoslav Krehlik wrote:
> Co jsem Arguse (betaverze Delphi5) letmo videl, tak je to v podstate stejne
> jako ADONIS komponenty. Napojeni na DataSet/Source tam je, ale nepotrebujes
> BDE. Naopak musi byt na pocitaci korektne nainstalovane to ADO.EXE compressor - od Jordana
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.8.1999 17:33:46
Dost zajimave poctenicko - opravdu stoji za to precist. Spis bych rekl,
ze je to AntiExeCompressor od Jordana ;-)
Mac
Krayzel Libor wrote:
> http://www.jordanr.dhs.org/striprlc.htm
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
OT: Nacteni CD z Mac v PC
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.8.1999 17:38:02
Sorry za off-topic, ale treba nekdo vite:
Lze nejak na PC nacist data z CD ve formatu Macintosh HFS (mode 1) ???
Diky moc
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ADO
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.8.1999 18:12:54
Radoslav Krehlik wrote:
> >http://www.winsoft.sk - komponenty Adonis nebo treba OLE DB na
> >Delphree..+ mnoho dalsich...
>
> pro nekoho kdo nechce kupovat Delphi 5 Enteprise a staci mu jen ADO,
> je to asi podstatne levnejsi varianta, koupit si D5 profesional+Adonis
Je tu jeste varianta D Professional + Borland ADO, na ruznych
strankach jsem zahledl jeste dalsi ADO komponenty krome
Adonisu, a pokud se bude ADO zdat nekomu pomale nebo chude
na moznosti, muze vyzkouset Delphree OLE DB. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Lokalizator
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.8.1999 18:12:54
Cibulka Karel wrote:
> No,
> dival jsem se po inetu po ruznych linkerech do PE a tady jsou nejake
> linky (nezkousel jsem z toho nic zkompilovat, ale jsou tam zdrojaky,
> ktere snad pomuzou): http://alink.home.dhs.org/
> http://root.cern.ch/root/nicolas/html/projects/nicovir/pefile.htm
Diky, podivam se tam.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Pristup k ODBC databazi bez BDE
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 19.8.1999 19:01:26
Cus,
mam problem. Chtel bych nejak obejit BDE a dostat se k nejake ODBC
databazi. Potrebuji totiz jen malinky programek a BDE mi zabira moc
mista. Neslo by to tedy nejak jinak, treba pres nejakou komponentu?
--
S pozdravem Tomas Rosa
------------------------=[ pinknet on every
screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE
http://pnws.pinknet(tec)cz/
----------------------------------------------------------------------------
Heslo
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 19.8.1999 19:32:55
> Milan Konvi�ka wrote:
>
> Ahoj.
>
> Nevite nekdo, jestli jde zaheslovat rozpracovan� projekt, aby ho jina
> osoba
> nemohla cist a editovat?
>
> D�ky.
Lze projekt vytvo�it na PGP disku.
Podrobnosti na http://www.pgpi.com
eL..Jak zabranit vytaceni?
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 19.8.1999 19:35:22
Mgr. Anton�n Blatn� wrote:
>
> Zdravim!
>
> Prosim o radu a dekuji ya odpovedi:
>
> Potrebuji odeslat najednou nekolik (resp. dve) stovek mailu s ruznym textem.
> Kdyz pouziji SendMail, sice to funguje, ale ihned vytaci modem a chce se
> pripojit. Ja bych ale potreboval, aby, kdyz ma uzivatel programy typu MS
> Outlook, aby se ty maily v pokoji ulozily do slozky K odeslani a modem aby
> zustal tichy.
V konfiguraci emailovych uctu a u Exploreru zatrhni misto pripojeni
modemem pripojeni mistni siti (LAN).
eL..ADONIS komponenty pro ADO
[*] Petr Reichl <meap(zv)seznam(tec)cz> - 19.8.1999 19:38:25
Muzete mi nekdo napsat co se skryva za omezeni
pod nazvem ADONIS Component Suite (Trial).
Jde mi o to, ze kdyz se odhodlam to stahnout,
(2 MB) tak abych si to mohl poradne vyzkouset.
Diky.
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Modulo 11 atd
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 19.8.1999 20:31:55
On Wed, 18 Aug 1999, Burger, Tomas wrote:
> ps. Ted jsem hledal na inetu nekde popis vypoctu kontrolni cislice pro
> carove kody a nenasel jsem nic (vzdycky jen pisou "...is calculated by
> special algoritmus", ale algoritmus nikde... :-)) Cetl jsem to kdysi v
> nejake knizce, ale kde je ji konec...?
Kdysi jsem z nejakyho casopisu opsal tohle:
if Typ13 then
Number[12]:=(10 -
((Number[1]+Number[3]+Number[5]+Number[7]+Number[9]+Number[11])*3+
Number[0]+Number[2]+Number[4]+Number[6]+Number[8]+Number[10]) mod 10) mod 10
else
Number[8]:=(10 - ((((Number[0]+Number[2]+Number[4]+Number[6])*3)+
Number[1]+Number[3]+Number[5]) mod 10)) mod 10;
Typ13: 13-ti mistny EAN, jinak 8-mi mistny
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
mnozina
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 19.8.1999 21:10:32
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim,
mam asi 10 retazcov. Potom dostanem do prememnnej od uzivatela jeden retazec a potrebujem zistit ci sa zhoduje s niektorym s tych 10-ich, prip s ktorym. Ale nechcem pouzit if. Skusal som to cez typ mnozina ale nepodarilo sa mi to rozchodit. chcelo to iba char.
Prip. maly priklad by bodol.
vdaka
Martin
Mnozina je v Delphi reprezentovana bitovym polem.
Muze obsahovat pouze prvky, ktere maji rozsah 256 (Byte, Char, ...).
Zkus TSringList (metody Add, Delete, ... a IndexOf - hledani) viz help.
Tomas Matousek
matousek(zv)havit(tec)cz
Kresleni na Canvas tiskarny
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 19.8.1999 21:10:27
>Ahoj vsichni,
>
>mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
>obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
>pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
>zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal? S
>tiskem nemam ani nejmensi zkusenost.
>
>Diky predem
>
>**************************************************
>Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
>obcas Delphi nebo Visual Basic
>**************************************************
>
uses Printers;
Printer.PageWidth; - v pixelech
Printer.PageHeight; - v pixelech
Tomas Matousek
matousek(zv)havit(tec)cz
Problem s prevodem STRING na REAL
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 19.8.1999 21:11:00
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Diky,
oprawdu jste mi pomohli, ale asi potrebuju nakopnout. Jak prewedene cislo w REALu zaokrouhlim na 2 des. cisla. Uz sem to kdysi delal a nemuzu si wzpomennout :-((
Diky
Lukas Gallina
Treba takhle:
Cislo ... X
Str:=Format('%.2f',[X])
To prevede i se zaoukrouhlenim (viz Help).
Tomas Matousek
matousek(zv)havit(tec)cz
Microsoft registry
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 19.8.1999 21:15:43
-----P�vodn� zpr�va-----
Od: Martin Bedn�� <bednar(zv)mujweb(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. srpna 1999 14:58
P�edm�t: Microsoft registry
>DD,
>
>obracim se jeste s jednim problem ohledne registru.
>Pokud nekdo vi jak zjistit ( nejlepe z onech registru)
>verzi sw od microsoftu tak prosim o radu.
>
>Jde mi o to ze potrbuji programem ktery se spousti ze site
>pri prihlaseni zjistit zda je na danem pocitaci instalovan
>nejaky sw a to nekam zapsat. Az dosud to umim, ale
>potrebuji zjistit i jeho verzi hlavne v pripade
>wordu (6.0 , 95, 97 apod. ).
>
>Diky moc za radu.
>
>Martin Bednar
>bednar(zv)mujweb(tec)cz
>
>
Tak treba ten Word:
HKEY_LOCAL_MACHINE/Software/Microsoft/Office/*.*
*.* = 7.0 nebo 8.0 etc.
Tomas Matousek
matousek(zv)havit(tec)cz
Zablokovani Windows
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 19.8.1999 21:17:47
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�. DD,
Potrebuju nejakym zpusobem zablokovat praci ve windows a nevim jak to udelat aby se uzivatel na 100% k praci nevratil...napadlo me prekryt obrazovku necim, kde nebude fungovat alt-f4 apod. ale nevim ci se to da obejit...Muzete poradit?
diky cau
P.S.> jeste me napadlo...jak zablokuju klavesnici? ;-)
Ve Win95 mozna uspejes (co takhle Ctrl+Alt+Del?), ale v WinNT to vubec nepujde (ty jsou proti takovym shit-aplikacim imunni v 99%).
Tomas Matousek
matousek(zv)havit(tec)cz
Delphi - referencni prirucka
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.8.1999 21:36:26
Preji vsem pekneho dne,
omlouvam se za pozdni reakci, ale po mesici probiram na tri tisice
mailu a na tento jsem nenasel odpoved.
> vyslo neco v cestine co by odpovidalo subjectu. Probirat se
> anglickym helpem je pro me prilis casove narocne a uvital
> bych neco kde bych nasel vycet komponent s popisem jejich
> vlastnosti.
****Pokud chces jen zakladni popis a neumis moc dobre anglicky,
zkus od Grady Delphi 4 - Konpletni kapesni pruvodce. Ale nikde
nerikej, ze jsem ti to poradil ja -- osobne tuto knihu povazuji za
odpad a brak. Radeji se na ni dukladne podivej, nez ji koupis -- ale
radeji si ji nekde pujc.
Slavek
> Se srdecnym pozdravem Tomas Plevak
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Nacteni pomoci BatchMove - ASCII soubor se spravn
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 19.8.1999 21:39:19
Petre diky moc cestina funguje - hura!.
Milan Blazek
-----P�vodn� zpr�va-----
Od: PacakP(zv)tescosw(tec)cz <PacakP(zv)tescosw(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. srpna 1999 9:22
P�edm�t: RE: Nacteni pomoci BatchMove - ASCII soubor se spravnou cestinou
Vypada to, ze export provadis nejakou variantou SaveToFile.
Pak to bude asi v ANSI a v *.sch bych zkusil nastavit
CharacterSet na ANCZECH (dalsi pripadne kody jsou k nalezeni v BDE.HLP v
casti Language Drivers)
Petr
> -----P�vodn� zpr�va-----
> Od: Milan Bla�ek [SMTP:mbsint(zv)telecom(tec)cz]
> Odesl�no: 18. srpna 1999 21:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Nacteni pomoci BatchMove - ASCII soubor se spravnou
> cestinou
>
> Ahoj Petre,
>
> diky za radu, vyzkousel jsem a funguje. Mam vsak jeste jeden problem
> a to ten, ze kdyz ze StringGridu provedu export dat do textoveho souboru
> a ten chci nasledne nacist do tabulky zase pomoci *.sch, tak je cestina
> zase
> zmrsena.Zatim jsem ani nezjistil v jakem kodu se to ze StringGridu uklada
> do
> textoveho
> souboru. Nevis jak to vyresit ?
>
> Diky Milan Blazek
>
Zablokovani Windows
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 20.8.1999 00:06:58
myslim, ze to nebude nasazeny na NTckach ( BTW: nejedna se o trojsky kun nebo aplikaci zamerne zneprijemnujici zivot...jen tak naokraj )
konkretne me zajima, jak zablokovat klavesnici, popripade i mys
diky Pavel
----- P�vodn� zpr�va -----
Od: Tomas Matousek
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 19. srpna 1999 21:17
P�edm�t: Re: Zablokovani Windows
DD,
Potrebuju nejakym zpusobem zablokovat praci ve windows a nevim jak to udelat aby se uzivatel na 100% k praci nevratil...napadlo me prekryt obrazovku necim, kde nebude fungovat alt-f4 apod. ale nevim ci se to da obejit...Muzete poradit?
diky cau
P.S.> jeste me napadlo...jak zablokuju klavesnici? ;-)
Ve Win95 mozna uspejes (co takhle Ctrl+Alt+Del?), ale v WinNT to vubec nepujde (ty jsou proti takovym shit-aplikacim imunni v 99%).
Tomas Matousek
matousek(zv)havit(tec)cz
Format *.dbx souboru
[*] I.C. - Delphi Support <incomp.delphi(zv)post(tec)cz> - 20.8.1999 01:09:19
----- Original Message -----
From: Libor Nosek <nosek(zv)ujf.cas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 19. srpna 1999 0:00
Subject: Format *.dbx souboru
> Dobry den.
> Nevite prosim nekdo jaky je format *.dbx souboru, a pripadne jak je mozne
s nimi pracovat?
> Chtel bych udelat aplikaci ve ktere chci pouzivat soubor kontaktu z
Outlook Express.
>
> Predem Diky.
> Libor
Podivej se na www.wotsit.org
Tam jsem to videl i pro OE5.
Problem jhe v tom, ze Outlook Express nema kontakty v *.dbx, ale
pouziva Windows Address Book a jeho kontakty, ktery jsou v soubory *.wab.
Kdyz si v OE Spustis Adresses ( v ceskym nevim jak se to jmenuje ) a
otevres si v menu About tak je tam napsany jakej soubor pouziva.
Myslim, ze to nebude nic slozityho, protoze je to nejak kompatibilni s
formatem VCard. Microsoft tyhle elektronicky vizitky hodne zere.
Na WOTSIT mozna bude dokonce i *.wab.
I.C.
Pavel Vodicka - InComp
e-mail: vodicka(zv)incomp(tec)cz, incomp.delphi(zv)post(tec)cz
homepage: www.incomp(tec)cz
ICQ: 36252507
Zablokovani Windows - I.C.
[*] I.C. - Delphi Support <incomp.delphi(zv)post(tec)cz> - 20.8.1999 02:35:27
----- Original Message -----
From: Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz>
To: delphi <delphi-l(zv)fwd(tec)cz>
Sent: 19. srpna 1999 17:32
Subject: Zablokovani Windows
> DD,
>
> Potrebuju nejakym zpusobem zablokovat praci ve windows a nevim jak to
udelat aby se uzivatel na 100% k praci nevratil...napadlo me prekryt
obrazovku necim, kde nebude fungovat alt-f4 apod. ale nevim ci se to da
obejit...Muzete poradit?
>
> diky cau
>
> P.S.> jeste me napadlo...jak zablokuju klavesnici? ;-)
Jo, podle myho nazoru to neni zase az tak 'shitovy'.
Windows umi kdejakou srandu, i NTecka ;-).
Mel jsem tedka nedavno podobnej problem i kdyz trochu vatsiho kalibru
nez jenom zablokovat klavesnici.
!!! WARNING !!!
neodbornym pouzitim tehto veci se Ti taky muze stat, ze z Windows
udelas neco, s cim nepujde vubec nic delat krome !reset!
Takze, vemu to od konce:
Systemovy klavesy sice nejdou jednoduse zablokovat, ale :-):
Kdys ukecas Win, aby si myslely ze bezi screen saver, tak klavesy nebudou
fungovat.
Tady je procedura:
**********
procedure DisableSystemKeys(Disable: Boolean);
var
X: integer;
begin
if Disable then { tak zablokuj capliky }
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, (zv)X, 0)
else { jinak je odblokuj }
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, (zv)X, 0);
end;
**********
jednoduchy, ze?
Tak, a ted BONUS - jak co schovat.
Ve vsech procedurach kdyz parametr Hide=true tak se to schova, jinak se to
ukaze.
Nazvy procedur jsem vymyslel tak, aby bylo jasny co delaji.
**********
procedure HideTrayBar(Hide: Boolean);
var
Wnd: THandle;
begin
Wnd := FindWindow( 'Shell_TrayWnd', nil);
if Hide then
ShowWindow(Wnd, SW_HIDE)
else
ShowWindow(Wnd, SW_SHOW);
end;
**********
procedure HideTrayNotify(Hide: Boolean);
var
Wnd: THandle;
begin
Wnd := FindWindow( 'Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
if Hide then
ShowWindow(Wnd, SW_HIDE)
else
ShowWindow(Wnd, SW_SHOW);
end;
**********
procedure HideStartButton(Hide: Boolean);
var
Wnd: THandle;
begin
Wnd := FindWindow( 'Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);
if Hide then
ShowWindow(Wnd, SW_HIDE)
else
ShowWindow(Wnd, SW_SHOW);
end;
**********
procedure HideAppSwitchBar(Hide: Boolean);
var
Wnd: THandle;
begin
Wnd := FindWindow( 'Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'ReBarWindow32', nil);
if Hide then
ShowWindow(Wnd, SW_HIDE)
else
ShowWindow(Wnd, SW_SHOW);
end;
**********
procedure HideTrayClock(Hide: Boolean);
var
Wnd: THandle;
begin
Wnd := FindWindow( 'Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'TrayClockWClass', nil);
if Hide then
ShowWindow(Wnd, SW_HIDE)
else
ShowWindow(Wnd, SW_SHOW);
end;
**********
procedure HideDesktopIcons(Hide: Boolean);
var
Wnd: THandle;
begin
Wnd := FindWindow( 'Progman', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);
if Hide then
ShowWindow(Wnd, SW_HIDE)
else
ShowWindow(Wnd, SW_SHOW);
end;
**********
Vsechny procedury by mely fungovat i pod WinNT, ale nezkousel jsem to.
Pod Win95/98 to mam vyskouseny a funguje to bezpecne.
Je toho jeste trochu vic, co jde takhle delat s Windows, ale nebudu se
o tom ratsi moc rozepisovat.
Uz tak je ten mail az moc dlouhej.
I.C.
Pavel Vodicka - InComp
e-mail: vodicka(zv)incomp(tec)cz, incomp.delphi(zv)post(tec)cz
homepage: www.incomp(tec)cz
ICQ: 36252507
Zablokovani Windows - Mys
[*] I.C. - Delphi Support <incomp.delphi(zv)post(tec)cz> - 20.8.1999 02:40:29
----- Original Message -----
From: Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 20. srpna 1999 0:00
Subject: Re: Zablokovani Windows
> myslim, ze to nebude nasazeny na NTckach ( BTW: nejedna se o trojsky kun
nebo aplikaci zamerne zneprijemnujici zivot...jen tak naokraj )
>
> konkretne me zajima, jak zablokovat klavesnici, popripade i mys
>
> diky Pavel
S tou mysi s me dostal, ale zkusim se na to taky mrknout.
I.C.
Pavel Vodicka - InComp
e-mail: vodicka(zv)incomp(tec)cz, incomp.delphi(zv)post(tec)cz
homepage: www.incomp(tec)cz
ICQ: 36252507
seriovy port (com)
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 20.8.1999 05:25:38 pdt
Ahoj.
Viete mi poradit ako by som dokazal posielat nieco na seriovy port a taktiez
z neho citat?
Dakujem.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
ADO + D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.8.1999 07:42:14
Martin Kubecka wrote:
> Ono ty komponenty ADOExpress nebo jak jim Borland rika jdou dokoupit
> zvlast i do D5Pro, ale nerad bych kupoval zajice v pytli a fakt by me
> zajimalo, jako verzi ADO to podporuje. Nezkousel jste to nekdo kdo ma
> D5Beta? Ale pokud bude Borland postupovat s aktualizacema komponent
> tak jak doposud (tzn. jednou rocne s novou verzi Delphi) tak IMHO asi
> moc nepochodi...
Jo, toho se take obavam. Vzhledem ke stavu, v jakem je stale OLE
DB (lze ocekavat v blizke dobe verzi 2.5, ale az po Delphi 5), mi
neni jasne, jak rychle chce Inprise ADO komponenty updatovat.
Vzhledem k urcitym problemum v OLE DB 2.1 by to udelat mel,
jestlize pribudou nejake nove vlastnosti. Jinak by snad mohlo
postacovat updatovat samotne ADO nejakou zaplatou od
Microsoftu.
A zase se domnivam, ze Inprise udelal strategickou chybu. ADO je
jednoduchoucke, da se pouzit dobre i primo (pro toho, kdo se chce
piplat s fieldy rucne). Odhaduji, ze pro cloveka znaleho TDataSet je
implementace ADO do komponenty celkem snadnou zalezitosti,
tedy cena nejakych 8000 mi prijde znacne nadsazena. Hadam, ze
prodaji tak 30 licenci a naklady maji doma. Myslim si, ze tyto
komponenty by mely byt standardne i ve verzi Professional. Kdo
chce pouzit ADO (OLE DB) a nechce MIDAS, je mu Enterprise
stejne k nicemu, rada lidi s Professional stejne koupi nebo ziska
ADO jinde (Adonis by mel urcite silne zlevnit :). Misto, aby Inprise
lakal dalsi vyvojare do sve komunity, zase tresta ty, kteri nemohou
nebo nechteji vydat nehorazny peniz za Enterprise.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi 5 beta - namet na horor
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.8.1999 07:42:14
Ing. Jaroslav Skerik wrote:
> >:-) Uvaha je takova, ze takto drahy program by nemel obsahovat
> >zavazne chyby (jako tomu bylo u verze 4). Zaplaty by mely
> >osetrovat jen chyby drobne, nefatalni. Na tom trvam
> >nekompromisne, nebo je pak treba jit s cenou rapidne dolu.
> ---
> Cenu verze standard i prof. ja nepova uji za p ehnanou (zejm�na po
> �t�no v $) Nevim jake zasadni chyby v D4 mas na mysli.
Tyto verze jsou cenove unosne. Horsi je to s Enterprise, zejmena
pri porovnani s Visual Studiem Enterprise, ktere jako celek ma
vetsi uzitnou hodnotu nez Delphi a je levnejsi.
Nektere chyby jsem popsal napriklad v recenzi v SWN. Rada jich
prosla v dane dobe i zde. Rec je o prvni edici Delphi 4.
> Prima konektivita v D5 by ovsem mohla IB zase o kus
> zvyhodnit. Lokalni verze se nyni prodava neco kolem 2.000, coz nen�
> mnoho. Presto si mysl�m, e by Inprise vydelal vice, kdybu tu lok�ln�
> uvolnil zcela. Mysl�m si, ze je to nejleps� prostredek, jak
> zadr�pkovat vyvoj�re. a protoze vyvoj�ri jsou zpravidla konzarvativn�,
> ba dokonce l�n�, tak neradi men� servery a predel�vaj� programy.
Prima konektivita je mohla zvyhodnit, kdyby prisla o dve verze drive
(nechapu, co jim v tom branilo) a s volnou licenci na sireni male IB.
Dnes je IMHO uz pozde. Kombinace OLE DB (ADO) + MS SQL
Server (MSDE) nabizi daleko lepsi moznosti, pokud nekomu staci
svet Windows. Pokud ne, muze se stejnymi komponentami i na
Oracle, a dalsi databaze budou IMHO brzy nasledovat - i IB.
> Jeste jsem to neprozkoumal tak do hloubky. Dnes jsem tu trial
> verzi rozchodil na starickem pomalem pentiu a vcelku mi to zatim
> chodi dobre (abych to nezakriknul).
> Prave zde odpada problem s jazykov mi ovladaci
> BDE a vsechny starosti s Alias. Je to mnohem jednodussi a zd� se ze i
> rychlejs�. Nektere datov� operace funguj� rychleji i na pomomalejs�m
> stroji, na nemz to nyni zkousim. Velice se mi l�bi objekt TIBDataset.
> Konecne poradna komponenta, ktera umi jednoduse sdruzit Select,
> Insert, Update a Refresh Udelal jsem jeden zkusebni programek na drive
> vytvorenou databazi, ktera je dostatecne velka a zatim jsem na zadne
> chyby nenarazil.
Beta kterou mam, mi odmita radne nainstalovat IB, takze tyto
komponenty nemohu zkouset. Protoze je vsak budu skolit v ramci
skoleni o Delphi + databaze, budu je muset dukladneji proklepat.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zablokovani Windows
[*] Iko <iko(zv)kamarad(tec)cz> - 20.8.1999 08:03:30
Mozes spravit priehladny formular, schovat z toolbaru aj tasklistu a
je to. A este ignorovat ALT+F4 a samozrejme nedovolit prepnut do
druhej apl.
iko
iko(zv)kamarad(tec)cz
ERangeError pri nacteni hodnoty z pole
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 20.8.1999 08:04:47
No sranda je, ze v tom poli je cca 280 polozek a pri Buf(249) mi to nahlasi ERangeError. :-(((((
Mirek
----- Original Message -----
From: Pavol Kaka�ka
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, August 19, 1999 4:18 PM
Subject: Re: ERangeError pri nacteni hodnoty z pole
V pripade, ze naplnis pole napr.: GetDouble([1, 2, 3, 4, 5, 6]);
a potom volas
Buf(X) kde X je napr. 20 cize vecsie ako pole (kde mas 6 prvkov) tak Ti to vyhlasi exception, v pripade ze mas zvolene volby Range... a Pent... Kaka�ka Pavol
paka(zv)aktis(tec)cz
( kapas(zv)post(tec)cz )
Nazdarek,
mam nasledujici funkci v komponente:
function TFandFieldF.GetDouble(const Buf: array of Byte): Double;
var
Temp: Comp;
begin
if (Buf[FOffset] and $80 <> 0) then
Temp := -1
else
Temp:=0;
...
no a na podmince mi to vyhlasi chybu ERangeError, ale pozor jenom v pripade, ze v nastaveni
balicku jsou zvoleny polozky "Pentium-safe FDIV" a "Range checking". V ostatnich pripadech
to projde v pohode. Nevite nekdo, cim to muze byt??
Mirek
Delphi 5 beta - namet na horor
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 20.8.1999 08:08:22
Brzy se budeme moci presvedcit sami, jak se ostra verze lisi od bety
jelikoz:
"August 13, 1999: Delphi 5 Sent To Manufacturing!"
Viz. http://members.tripod.com/delphi5/index.html
K.C.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
TQuery D3, zahozena Exception
[*] Ivo.Herles(zv)pvt(tec)cz - 20.8.1999 08:39:46
DDV,
narazil jsem na problem s komponentou TQuery. Pri zavolani metody Open mi
nevrati vyjimku v pripade, ze je tabulka napr. zamcena a otevreni tak
probehne jako by se vubec nic nestalo a samozrejne nevrati ani zadna data.
Pri blizsim zkoumani zdrojaku jsem dosel k nasledujicim metodam, ktere jsou
implementovany takto:
function TDataSet.GetNextRecords: Integer;
begin
Result := 0;
try
while (FRecordCount < FBufferCount) and GetNextRecord do Inc(Result);
except
end;
end;
function TDataSet.GetPriorRecords: Integer;
begin
Result := 0;
try
while (FRecordCount < FBufferCount) and GetPriorRecord do Inc(Result);
except
end;
end;
Toto me dost zarazilo. Po vyhozeni try except bloku se vse chova rozumne.
Neresil jiz nekdo tento problem?
Je tento problem i D4 popr. D5?
Zatim me napada jen jedno reseni a to vytvorit noveho potomka TQuery popr.
TRxQuery a predefinovat tyto medody. Bohuzel to vsak znamena zasah do vsech
stavajicich zdrojaku.
Dik za odpoved.
Delphi 3 C/S, Win NT 4.0 SP5, Informix DS 7.3 + Digital Unix 4.0
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
OT Re: Zablokovani Windows
[*] Ren� Otisk - 20.8.1999 09:05:12
Hi,
K te klavesnici jsem nekde cetl tento navod (sam jsem ho jeste nezkousel)
Napises lock a odentrujes desetikilovym kladivem
Sroub
----- Original Message -----
From: Pavel Serbajlo
To: delphi
Sent: Thursday, August 19, 1999 4:32 PM
Subject: Zablokovani Windows
DD,
Potrebuju nejakym zpusobem zablokovat praci ve windows a nevim jak to udelat aby se uzivatel na 100% k praci nevratil...napadlo me prekryt obrazovku necim, kde nebude fungovat alt-f4 apod. ale nevim ci se to da obejit...Muzete poradit?
diky cau
P.S.> jeste me napadlo...jak zablokuju klavesnici? ;-)OT: packal7 a pII
[*] tmara(zv)itsys(tec)cz - 20.8.1999 09:15:05
Hezky den,
Omlouvam se za OT...
Jakykoliv programek napsany v�Borland Pascalu 7 a
spusteny na Pentiu II / W98 mi hodi V�DY chybu : "Error 200: Division by
zero."
N�co jsem zaslechl o spatnych knihovnach BP7, ale
nen� toto spise chyba W98? Mohu s�tim n�co delat? (tedy krome nespousteni
t�chto programku...)
Thx...ByE.
P.S. kde bych mohl sehnat zaplaty na tyto udajne
chybne knihovny?TQuery D3, zahozena Exception
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 20.8.1999 09:17:50
Presne to jsem taky resil, jeste za dob D3. Muzu te potesit, ve 4-ce to
opravili (je to tam bez try...). Ja jsem to resil tak, ze jsem si unitu DB
zkopiroval do adresare projektu, tam jsem si ji upravil (me stacila tahle jedna
metoda) a zaradil do projektu, a on si ji natahl prednostne pred tou puvodni z
Delphi. A kdyz prisla D4, tak jsem to jen vyhodil.
Hodne zdaru. PF
> function TDataSet.GetNextRecords: Integer;
> begin
> Result := 0;
> try
> while (FRecordCount < FBufferCount) and GetNextRecord do Inc(Result);
> except
> end;
> end;
>Napojen� na DataModul p�es DLL
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 20.8.1999 09:27:00
Haj hou!
> Funguje perfektne, ale kdyz to spustim na pocitaci kde nejsou naistalovany
> Delphi
> tak to hlasi "Runtime Error 217 AT00022D6A".
:-))) No, lidove receno: kdyz se program prelozi s pouzitim "balicku", pak
se musi distribuovat i s temi balicky. V Options projektu na zalozce
Packages je dole editbox, kde je seznam vsech balicku, se kterymi bude
program linkovan (samozrejme se pouziji jen ty, ktere obsahuji unitu
pripojenou tak ci onak do programu). VCL je rozdrobena do mnoha balicku,
rada z nich je ulozena ve Windows\System (napr. VCLxx, VCLDBxx atd.). Jinak
je pouziti balicku popsano v helpu i v tistene dokumentaci.
Hodne zdaru
OT: packal7 a pII
[*] karpa(zv)email(tec)cz - 20.8.1999 09:30:27
Ten jakykoliv programek zrejme pouziva knihovnu CRT. Chyba je
zp�sobena "nedomy�len�m" algoritmem v inicializa�n� ��sti modulu Crt, kde
se "kalibruje" prom�nn� pro prov�d�n� procedury Delay.
Odkaz na zaplatu teto chyby je napriklad na adrese:
http://www.inprise(tec)cz/frequeqa.htm
v sekci:
Ot�zka: Probl�m procesoru Pentium II a p�eklada�e Borland Pascal 7.0 -
programy nen� mo�no spustit.
Honza
tmara(zv)itsys(tec)cz napsal:
> Hezky den,
> Omlouvam se za OT...
> Jakykoliv programek napsany v�Borland Pascalu 7 a
>spusteny na Pentiu II / W98 mi hodi V�DY chybu : "Error 200: Division by
>zero."
> N�co jsem zaslechl o spatnych knihovnach BP7, ale
>nen� toto spise chyba W98? Mohu s�tim n�co delat? (tedy krome nespousteni
>t�chto programku...)
>
> Thx...ByE.
>
> P.S. kde bych mohl sehnat zaplaty na tyto udajne
>chybne knihovny?
>
>
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
konference
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 20.8.1999 09:35:12
Jedna zijici je na ASP-L(zv)LIST.FAF.CUNI.CZ, prihlasuje se tusim na
listserv(zv)LIST.FAF.CUNI.CZ
Radek
-----Original Message-----
From: m.konvicka(zv)post(tec)cz [mailto:m.konvicka(zv)post(tec)cz]
Sent: Thursday, August 19, 1999 3:59 PM
To: delphi-l(zv)fwd(tec)cz
Subject: konference
Ahoj.
Nevite nekdo, kde bych nasel konference o tvorbe stranek
HTML, DHTML, ASP, skriptech, atd.?
Predem diky za kazdou radu.
Aplikace bezici na pozadi s aktivni ikonou...
[*] Vladimir Ponechal <vladimir_ponechal(zv)tesco-europe(tec)com> - 20.8.1999 09:54:38
Preji vsem moc hezky den.
Mam pocit, ze tato moje otazka jiz byla omilana nekolikkrat, ale nenasel
jsem v historii serveru prave to orechove (respektive, asi nejsem dobry
vyhledavac.... :-)...). Proto se omlouvam a pokladam moji, treba stupidni
otazku...
Udelal jsem program, ktery by mel normalne bezet na pozadi (tzv. ze bude
rekneme rezidentni), ale s tim rozdilem, ze by mel "aktivni" ikonu v okne
vedle hodin. Jde mi vlastne o to, ze pokud v hlavnim pracovni okne, ktere
nebude videt, nastane nejaka zmena, ta by se mela projevit zmenou tvaru
ikony (pravdepodobne se vymeni ikona) a pri double click na tuto ikonu by
se take melo objevit hlavni okno, kde uzivatel uvidi podrobnejsi popis. Pri
kliknuti na potrebny button se toto okno zase vypari :-) a zustane pouze
nenapadna ikona...
Mam Delphi 3 profesional. Jiz predem dekuji za radu...
____________________________________________________
Vladimir Ponechal
Systems and Network Specialist
European Support and Operations
Mobile: +420-602-665602
E-Mail: Vladimir_Ponechal(zv)tesco-europe.com
OT: packal7 a pII
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 20.8.1999 09:56:19
> Jakykoliv programek napsany v�Borland Pascalu 7 a
>spusteny na Pentiu II / W98 mi hodi V�DY chybu : "Error 200: Division by
>zero."
Chyba je v knihovne CRT. Muzes bud pouzit knihovny od TurboPower (tpcrt),
ktere jsou ale mam dojem komercni. Nebo pouzit neoficialni patch (stahni si
ho treba u mne ftp.softok(tec)cz /util/PentiumII.exe.patch/). Mam obavu, ze
oficialni oprava od Borladnu vubec neexistuje.
Heretic-X
Antwort: OT: packal7 a pII
[*] martin.falta(zv)obi(tec)cz - 20.8.1999 10:15:59
Zaplaty najdes tady: http://www.inprise.com/devsupport/pascal/
Von: tmara(zv)itsys(tec)cz am 20.08.99 09:15 OEZ
Hezky den,
Omlouvam se za OT...
Jakykoliv programek napsany v�Borland Pascalu 7 a
spusteny na Pentiu II / W98 mi hodi V
Content-type: text/plain; charsetContent-transfer-encoding: quoted-printable
�DY chybu : "Error 200: Division by
zero."
N�co jsem zaslechl o spatnych knihovnach BP7, ale
nen
Content-type: text/plain; charsetContent-transfer-encoding: quoted-printable
� toto spise chyba W98? Mohu s�tim n
Content-type: text/plain; charsetContent-transfer-encoding: quoted-printable
�co delat? (tedy krome nespousteni
t�chto programku...)
Thx...ByE.
P.S. kde bych mohl sehnat zaplaty na tyto udajne
chybne knihovny?
TQuery D3, zahozena Exception
[*] Ivo.Herles(zv)pvt(tec)cz - 20.8.1999 10:26:06
Jo to jsem taky udelal. Jenze tohle neni pro mne reseni, protoze pouzivam
DPL a dynamicky linkovane DLL. Nejlepsi by bylo VCLDB.DPL prekompilovat. To
bohuzel, ale nejde (neni DPK).
Aspon, ze to D4 opravili ;-).
Delphi 3 C/S, Win NT 4.0 SP5, Informix DS 7.3
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
> -----P�vodn� zpr�va-----
> Od: Pavel Fiser [mailto:fiser(zv)iol(tec)cz]
> Odesl�no: 20. srpna 1999 09:18
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: TQuery D3, zahozena Exception
>
>
> Presne to jsem taky resil, jeste za dob D3. Muzu te potesit,
> ve 4-ce to
> opravili (je to tam bez try...). Ja jsem to resil tak, ze
> jsem si unitu DB
> zkopiroval do adresare projektu, tam jsem si ji upravil (me
> stacila tahle jedna
> metoda) a zaradil do projektu, a on si ji natahl prednostne
> pred tou puvodni z
> Delphi. A kdyz prisla D4, tak jsem to jen vyhodil.
>
> Hodne zdaru. PF
ADO + D5
[*] Petr Reichl <meap(zv)seznam(tec)cz> - 20.8.1999 10:40:26
> A zase se domnivam, ze Inprise udelal strategickou chybu. ADO je
> jednoduchoucke, da se pouzit dobre i primo (pro toho, kdo se chce
> piplat s fieldy rucne). Odhaduji, ze pro cloveka znaleho TDataSet je
> implementace ADO do komponenty celkem snadnou zalezitosti,
> tedy cena nejakych 8000 mi prijde znacne nadsazena. Hadam, ze
> prodaji tak 30 licenci a naklady maji doma. Myslim si, ze tyto
> komponenty by mely byt standardne i ve verzi Professional. Kdo
> chce pouzit ADO (OLE DB) a nechce MIDAS, je mu Enterprise
> stejne k nicemu, rada lidi s Professional stejne koupi nebo ziska
> ADO jinde (Adonis by mel urcite silne zlevnit :). Misto, aby Inprise
> lakal dalsi vyvojare do sve komunity, zase tresta ty, kteri nemohou
> nebo nechteji vydat nehorazny peniz za Enterprise.
Muzes mi prosim te poradit jak pracovat s ADO rucne, tzn. psat se
s fieldy ...
Presel jsem na Delphi z VB, kde jsem jedine takto rucne pracoval s
ADO, ale v Delphi jeste nejsem tak zbehlej, tak prosimo radu.
S pozdravem.
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Aplikace bezici na pozadi s aktivni ikonou...
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 20.8.1999 10:45:03
Haj hou!
To co potrebujes je komponent na Tray Icon. Jeden je napr. v RXLib, a
nejmene 10 dalsich podobnych je na DSP nebo Torry.
Hodne zdaru
> Udelal jsem program, ktery by mel normalne bezet na pozadi (tzv. ze bude
> rekneme rezidentni), ale s tim rozdilem, ze by mel "aktivni" ikonu v okne
> vedle hodin. Jde mi vlastne o to, ze pokud v hlavnim pracovni okne, ktere
> nebude videt, nastane nejaka zmena, ta by se mela projevit zmenou tvaru
> ikony (pravdepodobne se vymeni ikona) a pri double click na tuto ikonu by
> se take melo objevit hlavni okno, kde uzivatel uvidi podrobnejsi popis.
Pri
> kliknuti na potrebny button se toto okno zase vypari :-) a zustane pouze
> nenapadna ikona...
OT Re: Zablokovani Windows
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 20.8.1999 11:34:21
hehe ;-)
No je to celkem neprakticky, protoze ta aplikace bude aktivovat blokaci nekolikrat denne, takze by to byla celkem draha zalezitost ;-)) a navic uz se me nelibi to klicove slovo "lock", to by mohli lidi snadno obejit ;-)
----- P�vodn� zpr�va -----
Od: Ren� Otisk
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 20. srpna 1999 9:05
P�edm�t: OT Re: Zablokovani Windows
Hi,
K te klavesnici jsem nekde cetl tento navod (sam jsem ho jeste nezkousel)
Napises lock a odentrujes desetikilovym kladivem
Sroub
Zablokovani Windows - I.C.
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 20.8.1999 11:37:51
Dik moc, toto bude uzitecne( sice ne tak jako 10kg kladivo, ale zabere taky
;-)
ale jeste ta myska by se hodila... ;-)
Myslim, ze kdyz jsem testoval netbus ;-) tak tam byla moznost prehodit
klientovy leve tlacitko za prave...netbus je psany v delphi - tzn: hrabat do
mysky nejak jde, ale nemam paru jak...
Pavel
----- P�vodn� zpr�va -----
Od: I.C. - Delphi Support <incomp.delphi(zv)post(tec)cz>
Komu: delphi(tec)cz <delphi-l(zv)fwd(tec)cz>
Odesl�no: 20. srpna 1999 2:35
P�edm�t: Re: Zablokovani Windows - I.C.> Vsechny procedury by mely fungovat i pod WinNT, ale nezkousel jsem to.
> Pod Win95/98 to mam vyskouseny a funguje to bezpecne.
> Je toho jeste trochu vic, co jde takhle delat s Windows, ale nebudu se
> o tom ratsi moc rozepisovat.
> Uz tak je ten mail az moc dlouhej.
>
> I.C.
> Pavel Vodicka - InComp
> e-mail: vodicka(zv)incomp(tec)cz, incomp.delphi(zv)post(tec)cz
> homepage: www.incomp(tec)cz
> ICQ: 36252507
COM Ports
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 20.8.1999 11:37:56
Nevite nekdo, jestli existuje jednoducha free komponenta pro D1, ktera
umi
postat a prijmout byte na a z com portu. Mam napsanou jednoduchou
komunikaci
mezi PC a analyzatorem v BP pro DOS a potrebuji ji prevest do D1 a
nejlepe,aby
chodila i pod WinNT :-))).
Popripade existuje-li neco jako AsyncFree pro D1 (16bit).
Budu vdecny i za nakopnuti spravnym smerem jak to naprogramovat.
Pro DOS to umim pro Windows jen cumim.
Predem diky
Ivan Pavelka
Aplikace bezici na pozadi s aktivni ikonou...
[*] Dalibor Bednar��k - 20.8.1999 11:50:27
To jsem taky jednou potreboval...
Mam komponentu(ale asi nebude nejnovejsi), ktera ti umozni
tu ikonu na tu listu dat....
Jmenuje se TWinIconTaskBar...
A ma treba event DoubleClick.
Tak jestli chces muzu ti ji poslat.
Dalibor
-----P�vodn� zpr�va-----
Od: vladimir_ponechal(zv)tesco-europe.com <vladimir_ponechal(zv)tesco-europe.com>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. srpna 1999 12:14
P�edm�t: Aplikace bezici na pozadi s aktivni ikonou...>
>
>
>Preji vsem moc hezky den.
>
>
>Mam pocit, ze tato moje otazka jiz byla omilana nekolikkrat, ale nenasel
>jsem v historii serveru prave to orechove (respektive, asi nejsem dobry
>vyhledavac.... :-)...). Proto se omlouvam a pokladam moji, treba stupidni
>otazku...
>
>
>Udelal jsem program, ktery by mel normalne bezet na pozadi (tzv. ze bude
>rekneme rezidentni), ale s tim rozdilem, ze by mel "aktivni" ikonu v okne
>vedle hodin. Jde mi vlastne o to, ze pokud v hlavnim pracovni okne, ktere
>
>nebude videt, nastane nejaka zmena, ta by se mela projevit zmenou tvaru
>ikony (pravdepodobne se vymeni ikona) a pri double click na tuto ikonu by
>se take melo objevit hlavni okno, kde uzivatel uvidi podrobnejsi popis. Pri
>kliknuti na potrebny button se toto okno zase vypari :-) a zustane pouze
>nenapadna ikona...
>
>
>Mam Delphi 3 profesional.
>
>
>
>
>Jiz predem dekuji za radu...
>
>
>____________________________________________________
>Vladimir Ponechal
>Systems and Network Specialist
>European Support and Operations
>
>
>
>Mobile: +420-602-665602
>
>
>
>E-Mail: Vladimir_Ponechal(zv)tesco-europe.com
>
>
>Prima konektivita do SQL Anywhere
[*] bc.Svoboda Jarom�r <svoboda(zv)okfas(tec)cz> - 20.8.1999 12:38:23
Kdyz uz byla rec o prime konektivite do databazi,
zajimalo by me jak a kde lze ziskat primy konekt
do SQL Adaptive Serveu Aniwhere 6.0, abych obesel
ODBC.
svoboda(zv)okfas(tec)cz
www.okfas(tec)cz packal7 a pII
[*] Zden�k B�hm - 20.8.1999 12:48:15
Zdar,
tento problem se da odstranit tremi zpusoby:
a) nekde na Inetu se vali nejakej program, kterej na to pustis a on to
opravi.
Tusim se jmenuje TPPatch. Kde to nevim, ale predpokladam, ze to tady nekdo
zna a posle sem link.
b)taky z Inetu lze sehnat program moslo.com (nebo u me, mam ho na disku),
tomu posles nazev toho programu a o kolik procent ma "zpomalit" procesor
pri behu tohoto programu a vse jede OK (takze si poridis rychlejsi a drazsi
procesor, aby jsi ho potom pracne zpomaloval. Cha cha, to je dost dobry)
c)opravit a prekompilovat knihovnu CRT a pak dotycny program. Tak jsem to
provedl ja. Ma to ale jednu nevyhodu. Borland jaksi k BP7.0 dava zdrojaky
avsak krome knihovny Graph. Tudiz, pokud neco zmenis v nejake knihovne
kterou pouziva Graph (treba CRT), tak v programech pouzivajicich Graph ji to
chce taky prekompilovat a protoze nemas zdrojaky jsi v pr...
Jinymi slovy pokud delas grafiku, zbyva pouze moznost a), nebo b)
Zdar Zdenek
----- Original Message -----
From: <tmara(zv)itsys(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, August 20, 1999 9:15 AM
Subject: OT: packal7 a pII
Hezky den,
Omlouvam se za OT...
Jakykoliv programek napsany v Borland Pascalu 7 a
spusteny na Pentiu II / W98 mi hodi V�DY chybu : "Error 200: Division by
zero."
N�co jsem zaslechl o spatnych knihovnach BP7, ale
nen� toto spise chyba W98? Mohu s tim n�co delat? (tedy krome nespousteni
t�chto programku...)
Thx...ByE.
P.S. kde bych mohl sehnat zaplaty na tyto udajne
chybne knihovny?
pripojeni skrz ODBC na Oracle 8
[*] Jan Poslusny <pazout(zv)hotmail(tec)com> - 20.8.1999 11:01:29 cest
Pri kliku na property TTable.TableName nastava Access violation. Nema nekdo
zkusenosti s konfiguraci podobnou teto ?
server: Novell 5, Oracle 8, protokol IPX
client: W95, agent Novell NetWare,Oracle ODBC Driver, Delphi 4 Professional
Jine aplikace vidi tabulky v databazi, Delphi se tam naloguji, ale pri
pokusu o zjisteni ktere tabulky jsou v databazi padaji.
Predem dekuji za hinty a preji hezky week-end.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Znacka v IDE Delphi 3CS
[*] Iko <iko(zv)kamarad(tec)cz> - 20.8.1999 13:05:00
Som zufaly...
V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
mi niekto poradit?
iko
iko(zv)kamarad(tec)cz
Single user
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 20.8.1999 13:29:19
Nevite nekdo jak zabezpecit, aby jsem v Delphi 1 dovolil jen single user
pristup k Paradoxovym tabulkam.
Proste aby kdyz program spusti jiny uzivatel z jineho pocitace vyskocila
chyba, ze program je uz spusteny
na jinem pocitaci.
Myslel jsem si,kdyz dam TTable.Exclusive := true a otevru tabulku,
kterou ma uz nekdo jiny, ze Delphi
vyhodi Exception a ja mam vystarano. Ale kdyz jsem to tak udelal, tak mi
Delphi nehlasili vubec nic.
Zatim to mam tak, ze hledam nejake soubory v Session.PrivateDir
adresari, ale to musi mit vsichni uzivatele
stejny adresar a neodchytim tak pristup pres Database Desktop.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+ Znacka v IDE Delphi 3CS
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 20.8.1999 13:32:27
Je znacka pro bookmark. Vznikne nebo se odstrani stiskem klavesy Ctrl+Shift
( Shit) + cislice na danem radku. PRistupovat muzes pres Ctrl+Cislo.
Martin
> Som zufaly...
> V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
> kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
> ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
> mi niekto poradit?
>
> iko
> iko(zv)kamarad(tec)cz
>
> Znacka v IDE Delphi 3CS
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 20.8.1999 13:42:41
To mas zarazky v kodu:
Ctrl + K + 0 az 9 vytvoreni zarazky , pokud uz existuje tak zruseni
Ctrl + Q + 0 az 9 sko na zarazku cislo.
Vlastne to muzou byt i jine kombinace - podle nastaveni
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Iko [mailto:iko(zv)kamarad(tec)cz]
Sent: Friday, August 20, 1999 1:05 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Znacka v IDE Delphi 3CS
Som zufaly...
V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
mi niekto poradit?
iko
iko(zv)kamarad(tec)cz
Znacka v IDE Delphi 3CS
[*] mdvorak(zv)csas(tec)cz - 20.8.1999 13:46:49
Cau,
asi sis vytvoril BookMark (zalozku). Pro nastaveni IDE-Classic je to
kombinace:
Ctrl-K + cislo - na danem radku vytoreni/smazani zalozky
Ctrl-Q + cislo - skok na zalozku cislo
Mirek Dvorak
-----P�vodn� zpr�va-----
Od: Iko [mailto:iko(zv)kamarad(tec)cz]
Odesl�no: 20. srpna 1999 13:05
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Znacka v IDE Delphi 3CS
Som zufaly...
V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
mi niekto poradit?
iko
iko(zv)kamarad(tec)cz
Single user
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 20.8.1999 14:02:05
Otvirej tabulky v ExclusiveModu. ( Property TTable.Exclusive).
> Myslel jsem si,kdyz dam TTable.Exclusive := true a otevru tabulku,
> kterou ma uz nekdo jiny, ze Delphi
> vyhodi Exception a ja mam vystarano. Ale kdyz jsem to tak udelal, tak mi
> Delphi nehlasili vubec nic.
Exclusivne si ji musi otevrit ten, kdo ji ma jako prvni a pak mi teprve
vyleti ten exception. No a nebo to testuj po otevreni na TTable.Active.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
> -----Puvodni zprava-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Odeslano: 20. srpna 1999 13:29
> Komu: 'delphi-l(zv)fwd(tec)cz'
> Poedmit: Single user
>
> Nevite nekdo jak zabezpecit, aby jsem v Delphi 1 dovolil jen single user
> pristup k Paradoxovym tabulkam.
> Proste aby kdyz program spusti jiny uzivatel z jineho pocitace vyskocila
> chyba, ze program je uz spusteny
> na jinem pocitaci.
> Myslel jsem si,kdyz dam TTable.Exclusive := true a otevru tabulku,
> kterou ma uz nekdo jiny, ze Delphi
> vyhodi Exception a ja mam vystarano. Ale kdyz jsem to tak udelal, tak mi
> Delphi nehlasili vubec nic.
> Zatim to mam tak, ze hledam nejake soubory v Session.PrivateDir
> adresari, ale to musi mit vsichni uzivatele
> stejny adresar a neodchytim tak pristup pres Database Desktop.
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+
>
> Znacka v IDE Delphi 3CS
[*] Ing. Ji�� Kub��ek - 20.8.1999 14:10:30
Ahoj,
jde o znacku, usnadnujici programatorovi pohyb ve zdroj.textu. Znacka se
vklada (i maze) kombinaci Ctlr+Alt+Cislice . Na takto oznacene misto se
dostanes kombinaci Ctlr+Cislice.
Jiri Kubicek
----- Original Message -----
From: Iko <iko(zv)kamarad(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 20. srpna 1999 13:05
Subject: Znacka v IDE Delphi 3CS
> Som zufaly...
> V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
> kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
> ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
> mi niekto poradit?
MDI Child
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 20.8.1999 14:31:34
Zdravim,
pri maximalizaci MDI okna bych jej potreboval "o kousek" zuzit (zmensit
hodnotu HEIGHT). Napsal jsem do udalosti OnResize toho Childu toto:
if MDICHild.WindowState=wsMaximized then
MDIChild.Height:=MDIChild.Height-50;
ale nejak mi to kolabuje.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Zablokovani Windows - I.C.
[*] Stepan Cerny <chaosz(zv)atlas(tec)cz> - 20.8.1999 14:34:19
Ahoj,
prehodit tlacitka mysi lze hrozne jednoduse prez WinApi ;-)
SwapMouseButton(True); // prohodi tlacitka
SwapMouseButton(False); // vrati zase zpatky
To je docasne reseni (do wypnuti win), natrvalo se to da udelat zmenou jedny
hodnoty v registru, nevim sice uz gde to konkretne bylo, ale da se to
jednoduse najit. To zase funguje az po restartu win.
Preju peknej den !
Stepan :o)
Pavel Serbajlo wrote:
>
>
> ale jeste ta myska by se hodila... ;-)
> Myslim, ze kdyz jsem testoval netbus ;-) tak tam byla moznost prehodit
> klientovy leve tlacitko za prave...netbus je psany v delphi - tzn: hrabat do
> mysky nejak jde, ale nemam paru jak...
>packal7 a pII
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 20.8.1999 14:54:16
Tmara(zv)itsys(tec)cz wrote:
Jakykoliv programek napsany v Borland Pascalu 7 a
spusteny na Pentiu II / W98 mi hodi V�DY chybu : "Error 200: Division by
zero."
N�co jsem zaslechl o spatnych knihovnach BP7, ale nen� toto spise chyba
W98? Mohu s tim n�co delat? (tedy krome nespousteni t�chto programku...)
Mel jsem podobny problem - deleni nulou. Zpusobovalo to preteceni
promenne v cekaci smycce pri inicializaci knihovny CRT, protoze PII
pocital moc rychle.
Nahradili jsme tedy odkazy na knihovnu CRT v uses na knihovnu CRT2 a byl
klid.
Posilam ji, snad Ti pomuze.
Cau Ivan Pavelka
unit CRT2;
interface
function ReadKey : char;
function KeyPressed : Boolean;
procedure Nosound;
procedure Delay(X : word);
procedure Sound(X : word);
implementation
var
FKey : Boolean;
FKeyV : byte;
procedure SetSpeakerData(X : word); assembler;
asm
in al,$61
or al,$03
out $61,al
mov bx,x
mov al,$b6
out $43,al
mov al,bl
out $42,al
mov al,bh
out $42,al
end;
function ReadKey : char; assembler;
asm
test FKey,$01
jz (zv)(zv)Cont
xor al,al
mov FKey,al
mov al,FKeyV
jmp (zv)(zv)end
(zv)(zv)Cont:
mov ah,$00
int $16
cmp al,0
jnz (zv)(zv)end
mov FKeyV,ah
mov al,1
mov FKey,al
xor al,al
(zv)(zv)end:
end;
function KeyPressed : Boolean; assembler;
asm
mov ah,$01
int $16
jz (zv)(zv)empty
mov ax,1
jmp (zv)(zv)end
(zv)(zv)empty:
mov ax,0
(zv)(zv)end:
end;
procedure Delay(X : word); assembler;
asm
xor dx,dx
mov ax,X
mov cx,55
div cx
mov cx,ax
xor bx,bx
mov es,bx
mov bx,$046c
mov dx,word ptr es:bx
add dx,cx
(zv)(zv)looping:
mov ax,word ptr es:bx
cmp dx,ax
jg (zv)(zv)looping
end;
procedure Sound(X : word);
begin
if X > 20 then
SetSpeakerData(1193180 div X)
end;
procedure Nosound; assembler;
asm
in al,$61
and al,$fc
out $61,al
end;
end.Znacka v IDE Delphi 3CS
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 20.8.1999 14:09:49
To je vysoce uzitecna vec - zarazka v kodu. Stiskni Ctrl + Shift + cislo
(1 - 9) a znacka se objevi. Stiskem Ctrl + 1 prejdes na znacku 1 atd.
Takto si muzes oznacit dulezita mista v kodu. Znacka se zrusi/presune
novym stisknutim Ctrl + Shift + cislo (1 - 9).
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Iko [SMTP:iko(zv)kamarad(tec)cz]
> Odesl�no: 20. srpna 1999 13:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Znacka v IDE Delphi 3CS
>
> Som zufaly...
> V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
> kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
> ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
> mi niekto poradit?
>
> iko
> iko(zv)kamarad(tec)cz
MDI Child
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 20.8.1999 15:22:28
protoze to prirovnani opet vyvola udalost OnResize;
> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 20. srpna 1999 14:32
> Komu: '*** Delphi'
> P�edm�t: MDI Child
>
> Zdravim,
>
> pri maximalizaci MDI okna bych jej potreboval "o kousek" zuzit
> (zmensit
> hodnotu HEIGHT). Napsal jsem do udalosti OnResize toho Childu toto:
>
> if MDICHild.WindowState=wsMaximized then
> MDIChild.Height:=MDIChild.Height-50;
>
> ale nejak mi to kolabuje.
>
>
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ============================================== Znacka v IDE Delphi 3CS
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 20.8.1999 15:39:53
Zarazku lze take nastavit pres Ctrl-K a pak 1..9. Skok na zarazku je pres Ctrl-Q a pak 1..9
-----P�vodn� zpr�va-----
Od: Petr Brant [SMTP:p.brant(zv)samo(tec)cz]
Odesl�no: 20. srpna 1999 15:10
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Znacka v IDE Delphi 3CS
To je vysoce uzitecna vec - zarazka v kodu. Stiskni Ctrl + Shift + cislo
(1 - 9) a znacka se objevi. Stiskem Ctrl + 1 prejdes na znacku 1 atd.
Takto si muzes oznacit dulezita mista v kodu. Znacka se zrusi/presune
novym stisknutim Ctrl + Shift + cislo (1 - 9).
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Iko [SMTP:iko(zv)kamarad(tec)cz]
> Odesl�no: 20. srpna 1999 13:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Znacka v IDE Delphi 3CS
>
> Som zufaly...
> V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
> kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
> ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
> mi niekto poradit?
>
> iko
> iko(zv)kamarad(tec)cz
Znacka v IDE Delphi 3CS
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 20.8.1999 14:49:57
Ahoj,
to jsi tam umistil bookmark. Je-li v nem opravdu cislo 9, tak odkudkoliv
v te unite tam skocis pomoci Ctrl+9,
na aktualnim radku jej umistis/zrusis kombinaci Ctrl+Shift+9 (analogicky
to funguje pro klavesy 0,1,..,9 - pozor, ne na numericke klavesnici,
pouze na normalni).
Tom
Iko wrote:
> Som zufaly...
> V IDE Delphov som nieco stlacil pri editovani kodu a nalavo, tam
> kde byva breakpoint sa mi objavila taka zelena znacka, v ktorej je
> ciernou cislo 9, alebo q. Neviem, co to je a neviem to dat prec. Vie
> mi niekto poradit?
>
> iko
> iko(zv)kamarad(tec)cz
Service pro WinNT
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 20.8.1999 15:42:58
Prohledal jsem instalovany WinNT i CD,
ale nemuzu SRVANY nikde najit.
Muzes dat info, kudy na nej? Diky
<FontFamily><param>Times New Roman</param><bigger>### Ing. =A5ubom=EDr G=C1=
L napsal dne 11 Aug 99, v 9:01 :
<smaller>Teoreticky kazdy program, ktory bezi pod NT spravne, moze byt spu=
steny ako sluzba prostrednictvom
pomocneho programu (napr. SRVANY).<bigger>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
ADO + D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.8.1999 17:46:11
Petr Reichl wrote:
> Muzes mi prosim te poradit jak pracovat s ADO rucne, tzn. psat se s
> fieldy ...
>
> Presel jsem na Delphi z VB, kde jsem jedine takto rucne pracoval s
> ADO, ale v Delphi jeste nejsem tak zbehlej, tak prosimo radu.
Jo, Delphi ma vyhodu, ze se takovehle veci daji dobre
zkomponentovat. :-)
Dulezite je nejak rozumne se prihlasit. Moznosti je vice, uvedu jen
jednu variantu, ale namichanou, aby byly videt ruzne moznosti.
uses
..., ADODB_TLB;
ADODB_TLB si vygeneruj (jestli to mas v pocitaci instalovane)
takto:
V \Program Files\Common Files\SYSTEM\ADO\ si najdi soubor
Msado21.tlb (nebo Msadox.dll, vysledek neni totozny!) a protahni
to pres program tlibimp.exe (je v Delphi Bin adresari).
var
FConnect:OleVariant;
FRecords:Recordset;
FConnect:=CoConnection.Create;
// FConnect:=CreateOleObject('ADODB.Connection'); //slower
FConnect.Open(FConnectString);
//string bude obdobny jako ve VB
FRecords:=CoRecordSet.Create;
FRecords.Open(FSourceString, FDatabase.FConnect,
FCursorType, FLockType, adCmdUnknown);
Typy a hodnoty si nejake dosad, podle deklarace. A dal se s tim
bude pracovat uz vicemene stejne jako ve VB.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
MDI Child
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 20.8.1999 17:52:32
> protoze to prirovnani opet vyvola udalost OnResize;
Co teda s tim?Service pro WinNT
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 20.8.1999 18:27:59
Je na Resource Kitu k NT Serveru...
Mac
Zdenek Drvota wrote:
> Prohledal jsem instalovany WinNT i CD,
> ale nemuzu SRVANY nikde najit.
> Muzes dat info, kudy na nej? Diky
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ADO + D5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 20.8.1999 18:45:48
A pokud te nebavi hrat si s prikazovou radkou, tak jako mne, tak:
V menu Project/Import type library a tam zvolit co potrebujes (nejlepe
Microsoft ActiveX Data Objects 2.1 Library) - coz je u mne MSADO15.DLL
(trosku mne mate ta 15 coz by svedcilo o 1.5 verzi ale je tam 2.1 -
hmmm).
Jinak ta Msadox.dll je Microsoft ADO Extension for DDL and security,
takze to asi neni to prave orechove. Ale k cemu to presne je nevim, ale
Erik Salaj mam pocit na tom stavi nejakou dalsi komponentu ;-)
Mac
Zbysek Hlinka wrote:
> ADODB_TLB si vygeneruj (jestli to mas v pocitaci instalovane)
> takto:
> V \Program Files\Common Files\SYSTEM\ADO\ si najdi soubor
> Msado21.tlb (nebo Msadox.dll, vysledek neni totozny!) a protahni
> to pres program tlibimp.exe (je v Delphi Bin adresari).
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ADO + D5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 20.8.1999 18:55:49
Hmm, jeste by me zajimalo toto:
- jak se to chova k pripadu, ze dva lidi upravujou najednou stejny zaznam
atd.
- jestli kdyz se na data mrknu v dbgridu tak jestli dobre funguje
scrollbar (tzn. funguje RecNo)
- a jestli to funguje i pri pouziti filtru
- co to vlastne posila na SQL server
- jestli na tom chodi parametry (mysleno v SQL)
- jestli dobre funguje IDENTITY z MS SQL serveru atd. atd. ;-)
Nevis jestli bude i trial verze ADOExpress komponent? Protoze Enterprise
URCITE kupovat nebudu - nevidim totiz jedinny duvod... A taky jestli
budou se zdrojakama - coz pochybuju...
Mac
Zbysek Hlinka wrote:
> A ted vlastni subjekt: Verze Delphi, kterou mam, pracuje s ADO
> 2.0. Venku je uz davno verze 2.1. V techto verzich ADO (tedy
> vlastne OLE DB) jsou jeste nejake chyby a nedodelky, problem je
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ADONIS komponenty pro ADO
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 20.8.1999 19:00:09
Jedine omezeni je ono hlaseni ze se jedna o trial. Takze muzes klidne
vyvijet a testovat a nakonec vyzkouset v provozu na masine bez Delphi -
jen musis pokazde odklepnout tu hlasku o trial verzi. Podle mne je to to
nejlepsi, co muze shareware autor spachat - vyzkousis i bez nutnosti
vyvojoveho prostredi a pokud si spokojeny tak to koupis, protoze kdo ma
furt klepat po tom OK ;-)
Mac
P.S. Nebo vyvijet aplikaci a az ji budes chtit prodat tak to koupis (tu
komponentu samozrejme ;-)
Petr Reichl wrote:
> Muzete mi nekdo napsat co se skryva za omezenipod nazvem ADONIS
> Component Suite (Trial). Jde mi o to, ze kdyz se odhodlam to
> stahnout,(2 MB) tak abych si to mohl poradne vyzkouset.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
seriovy port (com)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 20.8.1999 19:06:56
No jeden 'amatersky' ;-) pocin najdes tady:
http://delphree.clexpert.com/pages/projects/asyncfree/default.htm
Mac
Martin Galik wrote:
> Ahoj.
> Viete mi poradit ako by som dokazal posielat nieco na seriovy port a taktiez
> z neho citat?
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ADONIS komponenty pro ADO
[*] Erik Salaj <winsoft(zv)napri.sk> - 20.8.1999 19:39:31
Trial verzia zobrazi po spusteni programu dialogove okno s informaciami o registracii.
Erik Salaj
----- Original Message -----
From: Petr Reichl
To: ListServ - Delphi
Sent: Thursday, August 19, 1999 7:38 PM
Subject: ADONIS komponenty pro ADO
Muzete mi nekdo napsat co se skryva za omezeni
pod nazvem ADONIS Component Suite (Trial).
Jde mi o to, ze kdyz se odhodlam to stahnout,
(2 MB) tak abych si to mohl poradne vyzkouset.
Diky.
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Aplikace bezici na pozadi s aktivni ikonou...
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 20.8.1999 20:19:30
Nemel bys i zdroj te komponenty. Byl by zajem.
Tomas Matousek
matousek(zv)havit(tec)cz
>
>To jsem taky jednou potreboval...
>Mam komponentu(ale asi nebude nejnovejsi), ktera ti umozni
>tu ikonu na tu listu dat....
>Jmenuje se TWinIconTaskBar...
>A ma treba event DoubleClick.
>Tak jestli chces muzu ti ji poslat.
>
>Dalibor
>
>-----P�vodn� zpr�va-----
>Od: vladimir_ponechal(zv)tesco-europe.com <vladimir_ponechal(zv)tesco-europe.com>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 20. srpna 1999 12:14
>P�edm�t: Aplikace bezici na pozadi s aktivni ikonou...
>
>>
>>
>>
>>
>>Preji vsem moc hezky den.
>>
>>
>>
>>Mam pocit, ze tato moje otazka jiz byla omilana nekolikkrat, ale nenasel
>>jsem v historii serveru prave to orechove (respektive, asi nejsem dobry
>>vyhledavac.... :-)...). Proto se omlouvam a pokladam moji, treba stupidni
>>otazku...
>>
>>
>>
>>Udelal jsem program, ktery by mel normalne bezet na pozadi (tzv. ze bude
>>rekneme rezidentni), ale s tim rozdilem, ze by mel "aktivni" ikonu v okne
>>vedle hodin. Jde mi vlastne o to, ze pokud v hlavnim pracovni okne, ktere
>>
>>nebude videt, nastane nejaka zmena, ta by se mela projevit zmenou tvaru
>>ikony (pravdepodobne se vymeni ikona) a pri double click na tuto ikonu by
>>se take melo objevit hlavni okno, kde uzivatel uvidi podrobnejsi popis.
Pri
>>kliknuti na potrebny button se toto okno zase vypari :-) a zustane pouze
>>nenapadna ikona...
>>
>>
>>
>>Mam Delphi 3 profesional.
>>
>>
>>
>>
>>
>>Jiz predem dekuji za radu...
>>
>>
>>
>>____________________________________________________
>>Vladimir Ponechal
>>Systems and Network Specialist
>>European Support and Operations
>>
>>
>>
>>Mobile: +420-602-665602
>>
>>
>>
>>E-Mail: Vladimir_Ponechal(zv)tesco-europe.com
>>
>>
>>
>
>Kresleni na Canvas tiskarny
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 20.8.1999 20:23:31
Podivej se do helpu na GetDeviceCaps.
Melo by to tam bejt.
Tomas Matousek
matousek(zv)havit(tec)cz
>Nedavno jsem taky musel sahnou za hranice Sinea a sam oslovit Printer.
>
>Printer.Canvas ma Width a Height v pixelech.
>Jaky je rozmer stranky v cm, to se mi zjistit nepodarilo, tak to zadavam
nejak do konfigurace.
>No a pak je treba to cele prepocist.
>
>Honza
>=========================================
>= HAES - RNDr. Jan Sebelik
>= http://www.haes(tec)cz
>= Skolici a konzultacni stredisko pro Delphi a Win32
>= Vojtiskova 206
>= 507 81 Lazne Belohrad
>= tel. 0434 692 931, 692 569, 0601 20 30 84
>=========================================
>----------
>> Odes�latel: Petr Brant <p.brant(zv)samo(tec)cz>
>> Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
>> P�edm�t: Kresleni na Canvas tiskarny
>> Datum: 19. srpna 1999 7:52
>>
>> Ahoj vsichni,
>>
>> mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
>> obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
>> pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
>> zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal? S
>> tiskem nemam ani nejmensi zkusenost.
>>
>> Diky predem
>>
>> **************************************************
>> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
>> obcas Delphi nebo Visual Basic
>> **************************************************
>GetCurrentDir
[*] Petr Reichl <meap(zv)seznam(tec)cz> - 20.8.1999 21:45:56
Tato funkce vraci aktualni pracovni adresar, ale v pripade, ze pracuji jeste
v podadresari tak pri pristim volani teto procedury vrati predeslou hodnotu.
Ja, ale potrebuji funkci, ktera me vzdy vrati hodnotu adresare, kde je
umisten zkompilovany exe program.
Muzete mi prosim poradit?
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Case
[*] Petr Reichl <meap(zv)seznam(tec)cz> - 20.8.1999 22:30:10
var Retezec: String;
begin
case Retezec of
'Kolo 1': ...;
'Kolo 2': ...;
'Kolo 3': ...;
end
end;
... pokud to takhle napisu, tak me to hlasi, ze Retezec neni
ordinalni. Co to znamena?
Potrebuji udelat takovy to rozhodovaci cyklus pro jednu promenou.
Jak se to dela, kdyz chci pozit case. Nechce se me pouzivat
if, protoze to je v tomto pripade nevhodne.
Muzete mi prosim poradit?
S pozdravem.
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Tables
[*] Pavel Cech <cech(zv)sol(tec)cz> - 21.8.1999 10:36:18
ja pouzivam MemoryTable.
Je to v RX knihovnach.
Jede to velice dobre.
----- Original Message -----
From: Menfy <menfy(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, July 23, 1999 10:56 PM
Subject: Tables
> Nevite nekdo nahodou neco o MemoTable a MemoryTable ?
> Dik
> _______
>
> Menfy design - vse pro internetovou prezentaci...
> Filip Rejlek
> tel.: 0602 / 816 151
> e-mail : menfy.design(zv)telecom(tec)cz
> menfy(zv)iol(tec)cz
> web : http://web.iol(tec)cz/menfy
>
>
Case
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 21.8.1999 10:42:56
Ordinalni typy jsou char, integer a vyctovy. Na nich
muzes provadet case.
Na retezci ne.
Radim Kunz
-----P�vodn� zpr�va-----
Od: Petr Reichl <meap(zv)seznam(tec)cz>
Komu: ListServ - Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 21. srpna 1999 10:27
P�edm�t: Case
var Retezec: String;
begin
case Retezec of
'Kolo 1': ...;
'Kolo 2': ...;
'Kolo 3': ...;
end
end;
... pokud to takhle napisu, tak me to hlasi, ze Retezec neni
ordinalni. Co to znamena?
Potrebuji udelat takovy to rozhodovaci cyklus pro jednu promenou.
Jak se to dela, kdyz chci pozit case. Nechce se me pouzivat
if, protoze to je v tomto pripade nevhodne.
Muzete mi prosim poradit?
S pozdravem.
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
GetCurrentDir
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 21.8.1999 10:44:40
dir := ExtractFilePath(Application.ExeName);
Radim Kunz
-----P�vodn� zpr�va-----
Od: Petr Reichl <meap(zv)seznam(tec)cz>
Komu: ListServ - Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 21. srpna 1999 10:27
P�edm�t: GetCurrentDir
Tato funkce vraci aktualni pracovni adresar, ale v pripade, ze pracuji jeste
v podadresari tak pri pristim volani teto procedury vrati predeslou hodnotu.
Ja, ale potrebuji funkci, ktera me vzdy vrati hodnotu adresare, kde je
umisten zkompilovany exe program.
Muzete mi prosim poradit?
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Tables
[*] Pavel Cech <cech(zv)sol(tec)cz> - 21.8.1999 12:59:43
co presne to pise?
----- Original Message -----
From: Menfy <menfy(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, July 24, 1999 12:25 PM
Subject: Tables
> Asi me budete povazovat za blbce, ale nainstaloval jsem si
> RXLib. 2.60, ale kdyz jsem potom zkousel cokoliv otevrit, hlasili
> Delphini chyby. Co s tim ?
> _______
>
> Menfy design - vse pro internetovou prezentaci...
> Filip Rejlek
> tel.: 0602 / 816 151
> e-mail : menfy.design(zv)telecom(tec)cz
> menfy(zv)iol(tec)cz
> web : http://web.iol(tec)cz/menfy
>
>
ADO + D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.8.1999 13:48:16
Martin Kubecka wrote:
> - jak se to chova k pripadu, ze dva lidi upravujou najednou stejny
> zaznam atd. - jestli kdyz se na data mrknu v dbgridu tak jestli dobre
> funguje scrollbar (tzn. funguje RecNo) - a jestli to funguje i pri
> pouziti filtru - co to vlastne posila na SQL server - jestli na tom
> chodi parametry (mysleno v SQL) - jestli dobre funguje IDENTITY z MS
> SQL serveru atd. atd. ;-)
Ve dvou lidech jsem to z celkem pochopitelnych duvodu :-)
nezkousel. Ale tohle by mela byt castecne zalezitost databaze,
castecne zalezitost zpusobu, jakym se pres ADO pripojis.
Kazdopadne co jsem zkousel v OLE DB, je ziskavani informaci o
aktualne zalozenem autoinkrementu (konkretne na MS SQL).
Oproti BDE je to pohadkova parada. Jak to resi ADO, jsem jeste
nezkousel. No a co se tyce upravy jednoho zaznamu - delat to v
DBGridu povazuji za zrudnost, ktere je nejlepsi se vyhnout velkym
obloukem. Mohu ti rict z vlastni zkusenosti, ze mam ve svem
programu zpracovani dat primo v DBGridu, a jsou na to spise
nepriznive ohlasy od samotnych zakazniku. Takze v dalsi verzi
bude striktne grid jen k prohlizeni, porizovat se bude v
samostatnem okne, a vysledek bude poslan do databaze davkove.
Co se tyka filtru, tak bych dal prednost SQL dotazu, kde si filtr
primo osetris.
> Nevis jestli bude i trial verze ADOExpress komponent? Protoze
> Enterprise URCITE kupovat nebudu - nevidim totiz jedinny duvod... A
> taky jestli budou se zdrojakama - coz pochybuju...
To se ptas na spatnem miste. Ale muzes pockat na reakce od
tech, kteri ty komponenty budou mit. Vubec me udivuje, proc
nejsou i ve verzi Professional. Ja rozhodne neminim kupovat ani
ADO komponenty, protoze pristup primo pres OLE DB mi nabizi
daleko vic moznosti. Editovani v DBGridu (dtto v jinych DB
editacnich komponentach) se mi neosvedcilo, lookupy a podobne v
podstate take ne, takze si vyrobim pouze grid na prohlizeni a
veskerou editaci pozenu pres standardni komponenty. Je to sice
trochu pracnejsi, ale zase se vyhnu moznym kolizim.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ADO + D5
[*] Erik Salaj <winsoft(zv)napri.sk> - 21.8.1999 15:27:22
> A zase se domnivam, ze Inprise udelal strategickou chybu. ADO je
> jednoduchoucke, da se pouzit dobre i primo (pro toho, kdo se chce
> piplat s fieldy rucne). Odhaduji, ze pro cloveka znaleho TDataSet je
> implementace ADO do komponenty celkem snadnou zalezitosti,
> tedy cena nejakych 8000 mi prijde znacne nadsazena. Hadam, ze
> prodaji tak 30 licenci a naklady maji doma. Myslim si, ze tyto
> komponenty by mely byt standardne i ve verzi Professional. Kdo
> chce pouzit ADO (OLE DB) a nechce MIDAS, je mu Enterprise
> stejne k nicemu, rada lidi s Professional stejne koupi nebo ziska
> ADO jinde (Adonis by mel urcite silne zlevnit :). Misto, aby Inprise
> lakal dalsi vyvojare do sve komunity, zase tresta ty, kteri nemohou
> nebo nechteji vydat nehorazny peniz za Enterprise.
Od 23.8. maju byt ceny Adonisu pre CR a SR 3.890 (Standard)
a 6.990 (Professional) http://www.htkpro(tec)cz . Rocny upgrade je zdarma,
verzia Professional obsahuje plny zdrojovy kod a licenciu pre vsetkych
programatorov firmy. Tak snad to nie je az take zle. Podla mna je cena
primerana poskytovanym moznostiam a kvalite a myslim si, ze tieto
(a dalsie) ADO komponenty sa znacne podielali aj na tom, ze Borland
vobec urobil ADOExpress (je to konkurencny produkt pre jeho MIDAS)
a poskytol ho aj pre Professional verziu aj ked nie zdarma ale stale
daleko vyhodnejsie ako by bolo kupovat Enterprise verziu. Pozicia
Borlandu je momentalne podla mna velmi zla. Delphi povazujem za ich
jediny konkurencieschopny produkt a aj to iba vo verzii Professional.
Vela zalezi na novej Delphi 5 (mam taky pocit, ze ADO Express
je jediny podstatny roziel voci Delphi 4), aby to bolo aspon stabilne.
Mali by rozhodne do Delphi viac investovat. Zda sa mi ale, ze sa
chcu venovat Linux-u, co nepovazujem za rozumne (unixy su podla
mna uz davno prekonane systemy a ich uplatnenie je velmi obmedzene,
pozitivne vidim na nich hlavne to, ze su aspon aka-taka konkurencia
pre Windows). Samotne portovanie Delphi na ine OS (povedzme BeOS,
Windows CE, EPOC 32, ...) a procesory by vsak bolo velmi prospesne.
Takisto by mali uplne prerobit VCL tak, aby to nebolo mnohomegabajtove
monstrum, ale pokial mozno skladacka z malych, binarne kompatibilnych
komponentov (podobne ako su ActiveX). Skratka vylepsit komponentovu
technologiu aspon na uroven moznosti poskytovanych v ActiveX. Urcite
by mali nieco v tejto oblasti podniknut, pretoze MS pracuje na novom
nastroji COOL, ktory zrejme bude chciet vidiet na mieste Delphi.
Erik Salaj
GetCurrentDir
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 21.8.1999 17:38:42
Na to je treba pouzit neco jineho, napr.:
adresar_programu:=ExtractFilePath(Application.ExeName);<FontFamily><param>Times New Roman</param><bigger>### Petr Reichl napsal dne 20 Aug 99, v 21:45 :
<FontFamily><param>Tahoma</param><smaller>Tato funkce vraci aktualni pracovni adresar, ale v pripade, ze pracuji jeste<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>Tahoma</param><smaller>v podadresari tak pri pristim volani teto procedury vrati predeslou hodnotu.<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>Tahoma</param><smaller>Ja, ale potrebuji funkci, ktera me vzdy vrati hodnotu adresare, kde je<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>Tahoma</param><smaller>umisten zkompilovany exe program.<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>Tahoma</param><smaller>Muzete mi prosim poradit?<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>Tahoma</param><smaller>--
Petr Reichl
E-mail: <underline><color><param>0000,0000,FF00</param>reichl(zv)seznam(tec)cz</underline></color><FontFamily><param>Times New Roman</param><bigger>
<nofill>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Case
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.8.1999 18:45:02
Petr Reichl wrote:
> var Retezec: String;
> begin
>
> case Retezec of
> 'Kolo 1': ...;
> 'Kolo 2': ...;
> 'Kolo 3': ...;
> end
>
> end;
Nedavno to tu bylo.
var
List:TStringList;
case List.IndexOf(...) of
0: ...
end;
Pokud by to nahodou neslo pouzit takto, tak lze IndexOf nacpat do
nejake promenne.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
MS SQL 7 & Create Table
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.8.1999 18:45:02
Ahoj,
potreboval bych vytvorit tabulku v zavislosti na vlozenem zaznamu.
Tedy, mam jednu tabulku, ve ktere je pole "jmeno". Jakmile vlozim
zaznam s vyplnenym jmenem, chtel bych zalozit novou tabulku s
timto jmenem. Chtel jsem to nacpat do triggeru (for insert), ale
trigger se vzteka, ze v nem nelze delat create table. Zkousel jsem
to obejit pres ulozenou proceduru, ze zalozi danou tabulku ona
(sama o sobe funguje), a zkousel jsem ji prohnat pres trigger, ale
ten se zase vztekal. Nevite nekdo, jak presvedcit tabulku, aby
primo po vlozeni zaznamu vytvorila nejakou jinou novou tabulku?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Case
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 21.8.1999 17:48:44
Tady to asi bez IF nepujde,
v CASE nelze string pouzit, maximalne by slo
pouzit CHAR (krome jinych - podivej se do helpu
na definici ordinalnich typu).
Nebo z tech stringu vypreparuj jenom to cislo
na konci, pokud tomu nebrani neco jineho.
Mozna by to slo takhle (bez zaruky,nezkousel jsem to):
<FontFamily><param>Courier New</param>
<bold><FontFamily><param>TAHOMA</param>case </bold>Retezec[6] <bold>of</bold><FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>'1': ...;<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>'2': ...;<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>'3': ...;<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>end<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>Courier New</param><smaller> <FontFamily><param>Times New Roman</param><bigger>### Petr Reichl napsal dne 20 Aug 99, v 22:30 :
<bold><FontFamily><param>TAHOMA</param><smaller>var</bold> Retezec: <bold>String;</bold><FontFamily><param>Times New Roman</param><bigger>
<bold><FontFamily><param>TAHOMA</param><smaller>begin</bold><FontFamily><param>Times New Roman</param><bigger>
<bold><FontFamily><param>TAHOMA</param><smaller>case </bold>Retezec <bold>of</bold><FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>'Kolo 1': ...;<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>'Kolo 2': ...;<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>'Kolo 3': ...;<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>end<FontFamily><param>Times New Roman</param><bigger>
<bold><FontFamily><param>TAHOMA</param><smaller>end;</bold><FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>... pokud to takhle napisu, tak me to hlasi, ze Retezec neni<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>ordinalni. Co to znamena?<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>Potrebuji udelat takovy to rozhodovaci cyklus pro jednu promenou.<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>Jak se to dela, kdyz chci pozit <bold>case</bold>. Nechce se me pouzivat<FontFamily><param>Times New Roman</param><bigger>
<bold><FontFamily><param>TAHOMA</param><smaller>if</bold>, protoze to je v tomto pripade nevhodne.<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>Muzete mi prosim poradit?<FontFamily><param>Times New Roman</param><bigger>
<FontFamily><param>TAHOMA</param><smaller>S pozdravem.
--
Petr Reichl
E-mail: <underline><color><param>0000,0000,FF00</param>reichl(zv)seznam(tec)cz</underline><color><param>0000,0000,0000</param><FontFamily><param>Times New Roman</param><bigger>
<nofill>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
MS SQL 7 & Create Table
[*] Tom� Br�dle������i�^����? - 21.8.1999 23:55:27
Zdravim,
obavam se, ze ji z triggeru nevytvoris - viz BOL
These Transact-SQL statements are not allowed in a trigger:
ALTER DATABASE ALTER PROCEDURE ALTER TABLE
ALTER TRIGGER ALTER VIEW CREATE DATABASE
CREATE DEFAULT CREATE INDEX CREATE PROCEDURE
CREATE RULE CREATE SCHEMA CREATE TABLE
CREATE TRIGGER CREATE VIEW DENY
DISK INIT DISK RESIZE DROP DATABASE
DROP DEFAULT DROP INDEX DROP PROCEDURE
DROP RULE DROP TABLE DROP TRIGGER
DROP VIEW GRANT LOAD DATABASE
LOAD LOG RESTORE DATABASE RESTORE LOG
REVOKE RECONFIGURE
TRUNCATE TABLE UPDATE STATISTICS
takze jediny zpusob vydim ve vkladani zaznamu pres ulozenou proceduru, ktera
po insertu vola to CREATE TABLE.
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. srpna 1999 18:59
P�edm�t: MS SQL 7 & Create Table
Ahoj,
potreboval bych vytvorit tabulku v zavislosti na vlozenem zaznamu.
Tedy, mam jednu tabulku, ve ktere je pole "jmeno". Jakmile vlozim
zaznam s vyplnenym jmenem, chtel bych zalozit novou tabulku s
timto jmenem. Chtel jsem to nacpat do triggeru (for insert), ale
trigger se vzteka, ze v nem nelze delat create table. Zkousel jsem
to obejit pres ulozenou proceduru, ze zalozi danou tabulku ona
(sama o sobe funguje), a zkousel jsem ji prohnat pres trigger, ale
ten se zase vztekal. Nevite nekdo, jak presvedcit tabulku, aby
primo po vlozeni zaznamu vytvorila nejakou jinou novou tabulku?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ADO + D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.8.1999 09:07:38
Erik Salaj wrote:
> Od 23.8. maju byt ceny Adonisu pre CR a SR 3.890 (Standard)
> a 6.990 (Professional) http://www.htkpro(tec)cz . Rocny upgrade je zdarma,
> verzia Professional obsahuje plny zdrojovy kod a licenciu pre vsetkych
> programatorov firmy. Tak snad to nie je az take zle. Podla mna je cena
> primerana poskytovanym moznostiam a kvalite a myslim si, ze tieto (a
Ha, ja jsem tusil, ze vyvolam tuto reklamu. :-)
> dalsie) ADO komponenty sa znacne podielali aj na tom, ze Borland vobec
> urobil ADOExpress (je to konkurencny produkt pre jeho MIDAS) a
Muzes blize rozvest, v jakem smyslu konkurencni? MIDAS je o
vicevrstve architekture, kde jednim (zpravidla) programem-serverem
spravujes data, a hromadou dalsich programu-klientu obsluhujes
uzivatelske rozhrani. Jakym zpusobem by tohle mely delat
komponenty z ADOExpress?
> poskytol ho aj pre Professional verziu aj ked nie zdarma ale stale
> daleko vyhodnejsie ako by bolo kupovat Enterprise verziu. Pozicia
To nepochybne.
> Borlandu je momentalne podla mna velmi zla. Delphi povazujem za ich
> jediny konkurencieschopny produkt a aj to iba vo verzii Professional.
> Vela zalezi na novej Delphi 5 (mam taky pocit, ze ADO Express je
> jediny podstatny roziel voci Delphi 4), aby to bolo aspon stabilne.
Mno, celkem zajimave (na prvni pohled) vypada vylepseny datovy
modul, jsou tam jeste prime komponenty pro IB, zajimave jsou
take "zalozky" ToDo (poznamky ve zdrojaku, na co je treba se v
budoucnu jeste podivat) a lokalizacni nastroje. Ostatni mi uz
pripada spise jako drobne vylepseni.
Ty lokalizacni nastroje jsou asi tak priblizne na urovni meho
Lokalizatoru 3 (ke kteremu jsem z techto duvodu uvolnil zdrojak,
najdete ho na Delphree u Nexus). Kdyz jsem se dozvedel, ze to
bude pouze ve verzi Enterpeise, smal jsem se, div jsem nepukl. To
je dalsi vec, ktera by mela byt minimalne i ve verzi Professional.
Takze jak vidno, Inprise si zavira i zadni vratka a nechava
konkurenci volne pole pusobnosti. :-))) Sice se mi to na jedne
strane libi, protoze mohu dal bezstarostne nabizet svuj Lokalizator,
ale na druhe strane se mi to nelibi, protoze takhle asi neprilakaji
mnozstvi dalsich vyvojaru, takze mam obavy o budoucnost Delphi
(a tedy tim padem i o budoucnost svou). Fakt to nechapu.
> Mali by rozhodne do Delphi viac investovat. Zda sa mi ale, ze sa chcu
> venovat Linux-u, co nepovazujem za rozumne (unixy su podla mna uz
> davno prekonane systemy a ich uplatnenie je velmi obmedzene, pozitivne
> vidim na nich hlavne to, ze su aspon aka-taka konkurencia pre
Ja myslim, ze portace na Linux neni uplne marna, protoze se Linux
mohutne rozmaha. Takze casem lze IMHO ocekavat ksefty i tam.
Ovsem asi v jinych cenovych kategoriich. S cenou na urovni
Enterprise asi Inprise v Linuxu neprorazi.
> Windows). Samotne portovanie Delphi na ine OS (povedzme BeOS, Windows
> CE, EPOC 32, ...) a procesory by vsak bolo velmi prospesne. Takisto by
> mali uplne prerobit VCL tak, aby to nebolo mnohomegabajtove monstrum,
> ale pokial mozno skladacka z malych, binarne kompatibilnych
> komponentov (podobne ako su ActiveX).
Ale vzdyt ona to skladacka je. Kdyz se podivas, co se ti
zakompiluje do programu, tak je to myslim jasne. A pokud chces
sirit balicky, muzes si vyrobit male z jednotlivych komponent.
> Skratka vylepsit komponentovu
> technologiu aspon na uroven moznosti poskytovanych v ActiveX.
ActiveX komponentam se snazim vyhybat kde to jen jde, protoze k
nim nejsou zdrojaky a jsou navzajem nekompatibilni, protoze
nemaji spolecneho predka.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DATE, TIME, NOW?
[*] vabo <dkallab(zv)scova.vabo(tec)cz> - 22.8.1999 09:24:12
Zdravim vsechny,
existuje nejaka funkce jako je "DATE, TIME, NOW", ktera je schopna vratit uvedene udaje o serveru nebo specifikovanem PC v siti?
diky DaK
MS SQL 7 & Create Table
[*] Tom�s Vins <T.Vins(zv)Aquasoft(tec)cz> - 22.8.1999 09:45:09
nezkousel jsem to ale nejslo by to obejit pres
SELECT neco INTO JmenoTabulky FROM VzorovaTabulka WHERE 1=2
(prirozene pouze pokud by tabulku bylo mozne odvodit od vzoru
< Masa(zv)Aquasoft(tec)cz >
Tomas Vins, Aquasoft spol. s r.o.
ICQ 23139360
zadny subject]
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 22.8.1999 10:02:40
Podivej se na
http://www.pandora(tec)cz/cat.php3?no=9
Radim Kunz
>
> ahojte,
>
> nerad otravuji s offtopic, ale nevite nekdo o nejake konferenci o MS
>Visual C ( v cestine ).
> dik martin
>
>--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
>--- http://email(tec)cz <--- Get Your Free Email
>ADO + D5
[*] mdvorak(zv)csas(tec)cz - 22.8.1999 10:20:35
Ano, Borlandske lokalizacni nastroje se snad konecne dostaly na uroven, za
pujdou rozumne pouzivat. Ale Zbyskuv Lokalizator mi stejne pripada mnohem
vhodnejsi. Za zminku stoji i pomerne slusne rozsireni schopnosti debugeru a
Classes Explorer.
Mirek Dvorak
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
Odesl�no: 22. srpna 1999 9:08
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: ADO + D5
Mno, celkem zajimave (na prvni pohled) vypada vylepseny datovy
modul, jsou tam jeste prime komponenty pro IB, zajimave jsou
take "zalozky" ToDo (poznamky ve zdrojaku, na co je treba se v
budoucnu jeste podivat) a lokalizacni nastroje. Ostatni mi uz
pripada spise jako drobne vylepseni.
Ty lokalizacni nastroje jsou asi tak priblizne na urovni meho
Lokalizatoru 3 (ke kteremu jsem z techto duvodu uvolnil zdrojak,
najdete ho na Delphree u Nexus). Kdyz jsem se dozvedel, ze to
bude pouze ve verzi Enterpeise, smal jsem se, div jsem nepukl. To
je dalsi vec, ktera by mela byt minimalne i ve verzi Professional.
Takze jak vidno, Inprise si zavira i zadni vratka a nechava
konkurenci volne pole pusobnosti. :-))) Sice se mi to na jedne
strane libi, protoze mohu dal bezstarostne nabizet svuj Lokalizator,
ale na druhe strane se mi to nelibi, protoze takhle asi neprilakaji
mnozstvi dalsich vyvojaru, takze mam obavy o budoucnost Delphi
(a tedy tim padem i o budoucnost svou). Fakt to nechapu.
Shrinker 3.30
[*] Petr Reichl <meap(zv)seznam(tec)cz> - 22.8.1999 10:44:45
Nemohl by me nekdo prosim zaslat program Shrinker 3.30, stahnul jsem
si verzi 3.40, ale potrebuji 3.30 a tu sem nikde nenasel.
Poslete mi ho prosim na reichl(zv)seznam(tec)cz.
S pozdravem.
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Aplikace bez formulare
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 22.8.1999 11:39:54
Ahoj Delphisti,
nevite nahodou nekdo, jak udelat aplikaci bez zadnych formularu.
Delam totiz server a vsechno mi bezi v TThread, takze okno nepotrebuji,
jen zabira misto. Neco jako REPEAT..UNTIL FALSE nepotrebuji, protoze to
nejde ukoncit. Potreboval bych to umet ukoncit bud nejakym jinym
programem, nebo pri konci windowsu ci na CTRL+ALT+DEL. Proste kdyz to
dostane signal pro konec, tak skonci. Predem dekuji za odpoved.
--
S pozdravem Tomas Rosa
------------------------=[ pinknet on every
screen]=-----------------------
Tomas Rosa Vyroba programu na
zakazku
Tomas.Rosa(zv)PinkNet(tec)cz
http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE
http://pnws.pinknet(tec)cz/
----------------------------------------------------------------------------
Aplikace bez formulare
[*] Ing. Jaroslav �ke��k - 22.8.1999 13:25:49
Jiz se o tom psalo drive vicekrat. Muzes projit archiv.
Taky muses pockat na D5. Tam je k temto ucelum cely novy
invisible objekt.
Jaro
----- Original Message -----
From: Tomas Rosa <trosa(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, August 22, 1999 11:39 AM
Subject: Aplikace bez formulare
> Ahoj Delphisti,
>
> nevite nahodou nekdo, jak udelat aplikaci bez zadnych formularu.
> Delam totiz server a vsechno mi bezi v TThread, takze okno nepotrebuji,
> jen zabira misto. Neco jako REPEAT..UNTIL FALSE nepotrebuji, protoze to
> nejde ukoncit. Potreboval bych to umet ukoncit bud nejakym jinym
> programem, nebo pri konci windowsu ci na CTRL+ALT+DEL. Proste kdyz to
> dostane signal pro konec, tak skonci. Predem dekuji za odpoved.
>
> --
> S pozdravem Tomas Rosa
>
> ------------------------=[ pinknet on every
> screen]=-----------------------
> Tomas Rosa Vyroba programu na
> zakazku
> Tomas.Rosa(zv)PinkNet(tec)cz
> http://web.pinknet(tec)cz/~trosa/
> +420 602 860 704
> PinkNet Web Server for Win32 - FREEWARE
> http://pnws.pinknet(tec)cz/
> --------------------------------------------------------------------------
--
>
>
>MS SQL 7 & Create Table
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.8.1999 13:30:07
Tom�� Br�dle wrote:
> obavam se, ze ji z triggeru nevytvoris - viz BOL
>
> These Transact-SQL statements are not allowed in a trigger:
No, a to rozpoznal, i kdyz jsem to zabalil do procedury a v
procedure jsem to jeste zabalil do Execute. :-( Je to dost mrzute,
protoze kdyz nekoho napadne do tabulky zastourat jinak, narusi mi
vztahy.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OffTopic: Licencni politika - mala poznamka (was:
[*] Ing. Jaroslav �ke��k - 22.8.1999 14:02:03
Takhle me vsak natolik nastvali, ze
> >jsem IB opustil z duvodu nevypocitatelnosti budouciho vyvoje, a
> >musel jsem predelat program na Paradox a MS SQL (protoze tohle
> >meli zakaznici uz i z jinych duvodu). Kdyz jsem se naucil s MS
> >SQL delat, tak po vydani MSDE uz neni nejmensi duvod menit
> >databazi - a jeste spise s ohledem na OLE DB. Takze penize,
> >ktere mohl mit Inprise, dostane ted Microsoft. Takovy je zivot. :-) U
> >Inprise neumeji myslet strategicky do budoucna a pokazili si
> >podnikatelsky zamer. :-))
---------------------------------
To je pravda. Ucit se novy server je zalozitost, ktera se pocita na mnoho
mesicu i na roky. Je to casto vetsi investice nez je cena vlastniho serveru.
Ovsem kdyz uz nekdo tuto cestu podstoupi, tak se uz asi tezko vrati.
Myslim si tez, ze to byl omyl. Jenomze POZOR - to bylo jeste za ery
Borlandu,
kdy se tam stridali reditele a pod. Bylo to asi jejich nejtezsi obdobi.
Nakonec je lepsi pozde nez nikdy. Ja si vsak nemylim, ze neni jeste pozde.
Stale vznikaji nove vyvojove tymy a stale je a bude dost vyvojaru, kteri se
znovu
rozhoduji. Ja jsem prave cekal na D5, abych zjistil jak je to s primou
konektivitou na IB. Rovnez jsem zvazoval prechod k MS SQL.
Ale ted po vyjiti D5 a IB6 se vahy asi prikloni trochu zpatky k IB.
Kdyby k tomu jeste Inprise uvolnil single verzi IB6, tak to by
asi na svou stranu zisal zase vice vyvojaru. Penize, ktere se takto ztrati
se mnohem vice vrati na mnoha multilicencich a upgradech.
Kdyz projekt jednou existuje, tak vzhledem k vyssi kvalite C/S projektu
se k nemu brzy prikloni i vetsi firmy, kteri potrebuji sitovy provoz.
Vyvojari by tak mohli zcela opustit Paradox tabulky,
ktere jsou stejne take zadarmo a neprinasi zadny uzitek a pritom
by se postupne vytvarela mohutna zakladna projektu vytorenych na
single IB. Tim by velmi vzrustal projektovy i znalostni potencial
pro vyuziti IB v siti a na Internetu.
Pokud se tak nestane tak tuto platformu oladne MS SQL a Acces.
Jako-by tuto snahu Inprise chtel Microsoftu usnadnit - uvidime.
Inprise dela asi tu chybu, ze uvolnuje stare verze. Jenze technologie jde
dopredu rychle
a stare verze jsou nepotrebne. Kdyby naopak uvolnil nejnovejsi single verzi,
tak by
podporil vyvojare a ti by asi rychleji primeli sve zakazniky k upgrade
sitovych verzi.
Je to tedy velmi vyhodna investice do budoucna. V dobach, kdy byl Borland
v cervenych cislech a slo i o preziti je pochopitelne, ze se spise hledelo
na prijmy pristiho
ctvrtleti. Ted je tomu doufam jiz jinak a Inprise snad hledi za rok 2000.
Mohlo by se to projevit i v jeho licencni politice.
Mirne snizeni ceny D5 pri relativne vetsim narustu novych objektu a
vlastnosti
(porovnej D3-D4-D5) naznacuje, ze by tomu tak mohlo byt.
Nechme se prekvapit.
Jaro
>
> Tak tak. Chci jen rict: existuji firmy s kvalitnim produktem, ale spatnou
> politikou a maji existencni problemy, ci se to o nich aspon proslycha (tak
> napr. jedna nejmenovana firma pisici velmi znamy ucetni program presla od
> Delphi na Microsoft C a MS SQL Server a to asi tak nejvic proto, ze
Borland
> a jeho licencni politika ma sva sverazna specifika).Pak taky existuji
firmy,
> ktere na co sahnou to se mirne receno nepovede (ze pane Gates), ale na
> rozdil od jinych to umi prodat a pak se topi v miliardach.
> To je, aspon podle me, ten nejvetsi problem pocitacoveho prumyslu (no,
jinak
> bychom ted vsichni pouzivali MACa, ne?).
>
> Zdenek
> Memo1
Thready a parametry - prepis z C do PAS
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 22.8.1999 15:00:20
Hezky den,
mam tu vypis programu v C, ktery potrebuju prepsat do PAS (Delphi).
Protoze jsem se zatim nemusel s thready potykat, tak me vedomosti v teto
oblasti jsou mizive.
Takze o co jde: (nedivte se Writeln, vypisuju to na konzoli)
1) predavana hodnota novemu threadu nesedi.
C:
int modevalue;
...
modevalue=RM_SR8|MD_PCM|MD_NOGAIN|EV_SYNC; // (integer)
recordh = CreateThread(NULL,0,record_thread, &modevalue,
CREATE_SUSPENDED,&threadid);
SetThreadPriority(recordh, THREAD_PRIORITY_NORMAL);
ResumeThread(recordh);
DWORD WINAPI record_thread(int *mode)
{
printf("...record_thread: Inside the thread\n");
switch(*mode){
case(RM_SR6|MD_ADPCM|MD_GAIN|EV_SYNC):
printf("...record_thread: Rec at RM_SR6|MD_ADPCM|MD_GAIN|EV_SYNC\n");
break;
} // end switch
:
:
}
PAS: (pokus)
function record_thread(mode: pinteger): dword;
begin
case mode^ of
RM_SR8 or MD_ADPCM or MD_GAIN or EV_SYNC:
Writeln('blabla...');
end;
result:=0;
end;
modevalue := RM_SR8 or MD_ADPCM or MD_GAIN or EV_SYNC; // (integer)
recordh := CreateThread(NIL,0,(zv)record_thread,(zv)modevalue,
CREATE_SUSPENDED,threadid);
Writeln('Thread ID: ' + IntToStr(threadid));
SetThreadPriority(recordh, THREAD_PRIORITY_NORMAL);
ResumeThread(recordh);
I kdyz je hodnota pred predanim 16384 a adresa treba $584745, ve funkci
record_thread uz mam
hodnotu mode jinou a adresu taky.
2) s tim souvisi dalsi - predavani parametru funkci
C:
int chdev; /* channel descriptor */
DV_TPT tpt; /* termination parameter table */.
/* Set to terminate play on 1 digit */
tpt.tp_type = IO_EOT;
tpt.tp_termno = DX_MAXDTMF;
tpt.tp_length = 1;
tpt.tp_flags = TF_MAXDTMF;
if (dx_playvox(chdev,&tpt,"HELLO.VOX",NULL,0) == -1) {
printf("Error playing file - %s\n", ATDV_ERRMSGP(chdev));
exit(4);
}
V dalsi knihovne je DV_TPT definovan nasledovne:
typedef struct dv_tpt DV_TPT;
/*
* DV_TPT: Termination Parameter Table Entry Structure.
*/
struct dv_tpt {
unsigned short tp_type; /* Flags Describing this Entry */
unsigned short tp_termno; /* Termination Parameter Number */
unsigned short tp_length; /* Length of Terminator */
unsigned short tp_flags; /* Termination Parameter Attributes Flag */
unsigned short tp_data; /* Optional Additional Data */
unsigned short rfu; /* reserved */
DV_TPT *tp_nextp; /* Ptr to next DV_TPT if IO_LINK set */
};
a funkce dx_playvox:
extern int dx_playvox( int ChDev, const char * fNamep, const DV_TPT *tptp,
const DX_XPB * xpbp,unsigned short
mode);
v helpu:
Name: SHORT dx_playvox(chdev, filenamep, tptp, xpbp, mode)
Inputs: int chdev . valid device handle
char *filenamep . pointer to name of file to play
DV_TPT *tptp . pointer to termination parameter block
DX_XPB *xpbp . pointer to I/O transfer parameter block
unsigned short mode . play mode
Returns: 0 if successful
-1 if failure
Mode: synchronous
PAS:
type DV_TPT = ^Tdv_tpt;
Tdv_tpt = record
tp_type: ShortInt; // Flags Describing this
Entry
tp_termno: ShortInt; // Termination Parameter
Number
tp_length: ShortInt; // Length of Terminator
tp_flags: ShortInt; // Termination Parameter
Attributes Flag
tp_data: ShortInt; // Optional Additional Data
rfu: ShortInt; // reserved
tp_nextp: DV_TPT; // Ptr to next DV_TPT if
IO_LINK set
end;
function dx_playvox(chdev: integer; fnamep: PChar; tptp, xpbp: pointer;
mode: integer): integer; cdecl; external 'LIBDXXMT.DLL';
procedure TForm1.PlayVOX(Channel: integer; VOX: string);
var tpt: DV_TPT;
begin
new(tpt);
with tpt^ do begin
tp_type := IO_EOT;
tp_termno := DX_MAXDTMF;
tp_length := 1;
tp_flags := TF_MAXDTMF;
tp_data := 0;
rfu := 0;
tp_nextp := NIL;
end;
if dx_playvox(ChannelID[Channel], PChar(VOX), (zv)tpt, NIL, 0) = -1 then
showmessage('Chyba');
dispose(tpt);
end;
V helpu je i tento priklad:
// universal DV_TPT used for playing files
DV_TPT tptplay[] = {{IO_CONT, DX_MAXDTMF, 1, TF_MAXDTMF},
{IO_EOT, DX_LCOFF, 1, TF_LCOFF}};
takze to vypada na pole zaznamu.
Pokud ve funkci dx_playvox dam misto (zv)tpt NIL, tak je to v pohode. Ale s
(zv)tpt mi to nechodi.
Urcite je to spatne, ale nedari se mi ani s "kurzem C".
Dekuji velice a predem za podnety, ktere me posunou zas o krok dal.
Bye Ludan
ludan(zv)bluerose(tec)cz
GetCurrentDir
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 22.8.1999 17:12:58
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Jmeno (+cesta) spousteneho souboru je v ParamStr(0).
Tomas Matousek
matousek(zv)havit(tec)cz
Tato funkce vraci aktualni pracovni adresar, ale v pripade, ze pracuji jeste
v podadresari tak pri pristim volani teto procedury vrati predeslou hodnotu.
Ja, ale potrebuji funkci, ktera me vzdy vrati hodnotu adresare, kde je
umisten zkompilovany exe program.
Muzete mi prosim poradit?
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Aplikace bez formulare
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 22.8.1999 17:16:40
Proste v programovem zdroji (*.dpr) smazes vse, co se tyka formularu.
Tj:
uses Forms, ...
Application.CreateForm(...)
To vsechno pryc.>Ahoj Delphisti,
>
> nevite nahodou nekdo, jak udelat aplikaci bez zadnych formularu.
>Delam totiz server a vsechno mi bezi v TThread, takze okno nepotrebuji,
>jen zabira misto. Neco jako REPEAT..UNTIL FALSE nepotrebuji, protoze to
>nejde ukoncit. Potreboval bych to umet ukoncit bud nejakym jinym
>programem, nebo pri konci windowsu ci na CTRL+ALT+DEL. Proste kdyz to
>dostane signal pro konec, tak skonci. Predem dekuji za odpoved.
>
>--
> S pozdravem Tomas Rosa
>
>------------------------=[ pinknet on every
>screen]=-----------------------
>Tomas Rosa Vyroba programu na
>zakazku
>Tomas.Rosa(zv)PinkNet(tec)cz
>http://web.pinknet(tec)cz/~trosa/
>+420 602 860 704
>PinkNet Web Server for Win32 - FREEWARE
>http://pnws.pinknet(tec)cz/
>---------------------------------------------------------------------------
-
>
>
>MS SQL 7 & Create Table
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.8.1999 17:29:26
Tom�s Vins wrote:
> nezkousel jsem to ale nejslo by to obejit pres
> SELECT neco INTO JmenoTabulky FROM VzorovaTabulka WHERE 1=2
> (prirozene pouze pokud by tabulku bylo mozne odvodit od vzoru
No, bylo by to skoro ono, ale ja bych to potreboval jeste s indexy...
:-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Drag & drop
[*] Tom� Br�dle������i�^����? - 22.8.1999 18:07:52
Zdravim vsechny,
nevite nekdo proc mi spadne a kousne se aplikace (acces violation) pri Drag
& Drop tazen�? Pouzivam (v D4 prof.) dva TListView, z jednoho chci
pretahovat
informace do druheho. Zkousel jsem to dvema zpusoby - DragMode:=dmAutomatic
a TListView.BeginDrag v udalosti OnMouseDown. Po zacatku tazeni je vsechno
OK (objevi se sipka s textem, ktery je tazen), ale po urcite vzdalenosti
(cca 100-200 bodu) mi to spadne.
Nedokazu si to vysvetlit, s Drag & Drop jsem delal asi pred 1 a pul rokem v
D3 hlavne s DB gridy a bylo vsecho OK. Je mozny, ze by D4 nebo TListView
mely nejaky speciality ???
Predem diky...
Tomas
t.bradle(zv)pvtnet(tec)cz
Datum posledni modifikace tabulky DB (popr. obecne
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 22.8.1999 19:17:15
Prosim, potreboval bych natuknout. Jak zjistit, kdy byla naposledy modifikovana DB tabulka. A jeste obecneji, jak zjistit, kdy byl naposledy modifikovan obecny soubor. V Packalu jsem to vedel, tady mi to nejak nejde.
PS: Je mozne zjistit i kdy byla tabulka (nebo opet obecne soubor) naposledy pouze otevrena?
Diky
S pozdravem
Ing. Petr Svejda, software specialist
|
| Neolit system, software developer
| Stankova 215, Telc, tel: (066) 724 39 34
| mobil: 0603 214 901, fax: 0603 214 902
| lingvista(zv)lingvista(tec)cz, http://www.lingvista(tec)cz/
|
Ikony spustenych aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:28:22
Radim Ludv�k wrote:
>
> Ahoj,
> bohuzel mam jenom Handle okna te aplikace.
Pokud mas jen handle okna, tak z neho zjistit jmeno EXE souboru procesu
muzes takhle (pozor jen pro Win9x, ne pro NT4):
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=Nov&den=19&first=46&soubor=dlfaaacd.htm
--
Petr Vones, amatersky programator
Detekce hesla v ssaveru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:28:03
tmara(zv)itsys(tec)cz wrote:
>
> Hezky den,
> jak mam udelat hlidani hesla v ssaveru? Proste bych chtel, abych mohl ka�d�
> pokus (at uz uspesny ci neuspesny) o uhadnuti hesla v ssaveru zapsat do
> nejakeho souboru s presnym casem. Jelikoz jsem v archivu konference nic
> podobneho nenasel obracim se na Vas. Predem dekuju.
Ahoj,
No, jedna z moznosti by mohla byt si napsat vlastni screensaver a v nem si
to hlidat. Jak na to najdes treba tady:
http://www.borland.com/devsupport/delphi/ti/TI4534D.html
--
Petr Vones, amatersky programator
AVIPlay s podporou DirectX
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:28:48
sup(zv)svitap(tec)cz wrote:
>
> Hi lidi, nemate nekdo komponentu %subj% ?? Koukal jsem se na DSP, ale nic
> nepracuje podle mych predstav. Je to pro D3 Profi.
Ahoj,
Co treba pouzit Windows Media Player jako importovanou ActiveX komponentu ?
--
Petr Vones, amatersky programator
Otevreni CSV souboru v Excelu z Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:28:37
"Burger, Tomas" wrote:
> Jinak ja jsem z toho vybruslil uplne jinak:
> vygerenoval jsem do souboru html tabulku (od <table> do </table>) a souboru
> jsem dal priponu "xls"...
> Svete div se, ale Excel to sezral bez mrknuti oka a spravne....
Ahoj,
Ono to vypada, ze Excel prilis nehledi na priponu a provadi pak detekci
formatu, az prisel na to, ze by to mohlo byt HTML :-)
--
Petr Vones, amatersky programator
Datum posledni modifikace tabulky DB (popr. obecne
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:29:00
> "Ing. Petr �vejda" wrote:
>
> Prosim, potreboval bych natuknout. Jak zjistit, kdy byla naposledy
> modifikovana DB tabulka. A jeste obecneji, jak zjistit, kdy byl naposledy
> modifikovan obecny soubor. V Packalu jsem to vedel, tady mi to nejak
> nejde.
Ahoj,
Obecne u souboru je to treba takhle:
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=May&den=05&first=91&soubor=dlfaaads.htm
--
Petr Vones, amatersky programator
Thready a parametry - prepis z C do PAS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:30:31
"Ing. Ludek Florian" wrote:
> Hezky den,
Ahoj,
> mam tu vypis programu v C, ktery potrebuju prepsat do PAS (Delphi).
> PAS: (pokus)
> modevalue := RM_SR8 or MD_ADPCM or MD_GAIN or EV_SYNC; // (integer)
>
> recordh := CreateThread(NIL,0,(zv)record_thread,(zv)modevalue,
> CREATE_SUSPENDED,threadid);
V Delphi by jsi nikdy nemel volat CreateThread ale misto toho vzdy pouzivat
"makro" BeginThread. Jde totiz o spravu pameti a obsluhu vyjimek. Pokud v
aplikaci bezi jen jeden thread, tak memory manager neni thread-safe (a je
neznatelne rychlejsi). Tim ze zavolas BeginThread jej uvedes do thread-safe
rezimu (viz promenna IsMultiThread) ktery je pak v tomto pripade nutny.
> PAS:
> type DV_TPT = ^Tdv_tpt;
> Tdv_tpt = record
^^^^^^ packed record
--
Petr Vones, amatersky programator
LoadIcon(HINSTANCE, FileName).
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:30:02
> Ren� Otisk wrote:
> Potreboval bych nacist do TImagelistu ikony z .res souboru.
> V archivu konference jsem nasel odkaz na tuto fci, lec neprisel jsem na
> to, jak to nahodit na ten ImageList.
Ahoj,
Pouzij metodu TImageList.ResourceLoad ci podobnou.
--
Petr Vones, amatersky programator
MDI Child
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.8.1999 22:32:40
Krayzel Libor wrote:
>
> Zdravim,
>
> pri maximalizaci MDI okna bych jej potreboval "o kousek" zuzit (zmensit
> hodnotu HEIGHT). Napsal jsem do udalosti OnResize toho Childu toto:
>
> if MDICHild.WindowState=wsMaximized then
> MDIChild.Height:=MDIChild.Height-50;
>
> ale nejak mi to kolabuje.
Ahoj,
V D4 by jsi to mohl resit v udalosti TForm.OnConstrainedResize:
procedure TMDIChild.MDIChildConstrainedResize(Sender: TObject;
var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer);
begin
if WindowState = wsMaximized then
MaxHeight := MainForm.ClientHeight - 50;
end;
Nicmene menit standartni chovani MDI rozhrani muze byt nekdy spise
matouci.
--
Petr Vones, amatersky programator
MS SQL 7 & Create Table
[*] Tom� Br�dle������i�^����? - 22.8.1999 22:35:49
Zdravim,
jeste me napadla takova zvrhlost :
zkusit v SQL procedure vytvorit objekt (napr. ADO nebo OLE DB), ktery
vytvori tabulku "mimo SQL", jakoby zvenci, jestli mi rozumis - vytvoreni ve
vyssim jazyce, ktere
zpetne vola SQL prikaz... Nevim sice presne jak se to dela, ale melo by to
nejak
jit.
Je to hodne krkolomny, ale treba to pujde. A kdyz toto nepujde, zkusit jeste
to same, ale z volani externi procedury (extended stored procedures) - tam
ten CREATE TABLE treba nepozna - previt.
>No, a to rozpoznal, i kdyz jsem to zabalil do procedury a v
>procedure jsem to jeste zabalil do Execute. :-( Je to dost mrzute,
>protoze kdyz nekoho napadne do tabulky zastourat jinak, narusi mi
>vztahy.
>
>
>S pozdravem
>
>Zbysek Hlinka