Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Desktop folder
[*] Mik Radim <mik(zv)oce(tec)cz> - 3.7.1998 15:32:37
API funkci neznam, ale mel bys to zjistit z registracni databaze na klici:
HKEY_CURRENT_USER/.Default/Software/Windows/CurrentVersion/Explorer/Shell
Folders, polozka Desktop.
to je pro 95. Pokud se ti toto nepovede otevrit ( viz OpenKey( ,False)),
pak
jsi v WNT a misto Windows pouzij WindowsNT.
>
>Ahoj
>
>Potrebuji v programu zjistit aktualni adresar (aktualniho uzivatele)
>Plochy/Desktop, ve W95 i WNT.
>Pokud negdo vite nejakou hezkou Api, tak mi prosim poradte.
>
>Diky
>
>--
>Stepan "Chaosz" Cerny
>chaosz(zv)geocities.com
Jeste jednou transakce
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.7.1998 18:30:56
Martin Nedopil wrote:
> >Tak, tak. Zrovna posledni 3 dny jsem resil pady a porouchani 3
> >paradoxovych tabulek. ...
> >si rvali vlasy. Takze na souborove databaze jsem definitivne zanevrel
> >a pro priste se na zakazniky, kteri budou chtit klicovou aplikaci v
> >souborove databazi, budu zle mracit. :-)
>
> Jeste nez to udelas, zvaz tyto napady:
> Napad 1: napis tomas.mazurek(zv)vitkovice(tec)cz o opravny program. Je to
> sice post mortem, ale...
To nevidim jako reseni. Mam zatim jen nekolik takovych zakazniku.
Kdybych mel totez nasazene, rekneme, u 1000 zakazniku, a pred mesicni
uzaverkou by se mi jich 10 ozvalo s takovymhle problemem, tak
nestiham a mam na maler zadelano.
> Napad 2: kdysi jsem tu posilal dokument ohledne padani db tabulek a
> opozdenem cachovani na NT
No, prave proto davam prednost SQL databazim. Dalsi reseni je, ze za
opravy Paradox tabulek nasadim takove ceny, ze po prvni oprave
zakaznik pobezi koupit SQL databazi. :-) A fakt me to uz stve, zcela
vazne o takovem kroku uvazuji.
> Napad 3: napis nedopil(zv)geocities.com o TParadoxStream, ktery umi
> "jen" cist
> ruzne db tabulky a je pripadne schopen precist i
> zdanlive
> ztracene zaznamy.
To nastesti neni treba, protoze dulezite zaznamy archivuji jeste
jinak.
>
> Pokud ani to ne, zkus jeste dbf format. Pak muzes zkusit i neco z
> alternativ k BDE no a pak uz jen nejaky SQL server. Ale nekdy je to
> prilis tezkopadne reseni.
DBF - z blata do louze.
> Tady je fakt kazda rada dobra, tak jsem se snazil..
Jo, diky, jen jsem byl zrovna nastvany, tak jsem si ulevoval. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
pakovani + archivace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.7.1998 21:13:21
Miloslav Skacel wrote:
>
> Ahoj,
>
> muzete mi prosim nekdo doporucit kvalitni komponentu/knihovnu
> pro pakovani a archivaci s uplnymi zdrojovymi texty, se kterou
> byste meli vlastni zkusenosti.
>
> Nehledam udelatka sita horkou jehlou.
> Pripadne tipy - kudy cesta nevede - jsou take vitany.
>
Ahoj,
Zalezi na tom kolik a co potrebujes archivovat, ja zatim pomerne
bez problemu pouzivam Microsoft Backup (soucast Win95). Neni to
sice komponenta, ale pracuje se s tim docela dobre a umi to
zalohovat i na streamery.
S tim je spojen i dotaz, jestli neexistuje nejake rozhrani ktere
by umoznilo programove vytvaret a editovat .SET soubory pro
MS Backup.
Petr Vones, amatersky programator
WinExec a rychlost
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.7.1998 21:16:24
> Musim pustit ke korytu i ostatni aplikace a navic musim testovat jestli uz
> aplikace neskoncila
> takze to nepada v uvahu. Zkusim to "rozpoznani necinnosti".
>
> Diky
Ahoj,
napadla me jeste jedna moznost, jestli za to zpomaleni muze volani ProcessMessages
a GetModuleUsage, tak potom by to slo vyresit i bez toho. Neporadi si to sice
s kontrolou vice instanci aplikace, ale to ti asi nevadi. Psal jsem to v D2,
ale melo by to po malych upravach chodit i v D1. Je to cele tak trochu silenost,
ale proc to nezkusit....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
WinList: TStringList;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
DosAppWinClass = 'tty';
function EnumWinProc(Wnd: HWND; LParam: LongInt): Boolean; stdcall;
var
Data: array[0..255] of Char;
WndClass: TWndClass;
begin
Result := True;
GetClassName(Wnd, Data, 255);
if Data = DosAppWinClass then
begin
GetWindowText(Wnd, Data, 255);
with TStringList(LParam) do
if IndexOf(Data) = -1 then AddObject(Data, Pointer(Wnd));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WinList := TStringList.Create;
Timer1.Enabled := False;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
WinList.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
WindowCount, Res: Integer;
begin
WinList.Clear;
EnumWindows((zv)EnumWinProc, Integer(WinList)); // zjistime kolik je DOS oken
WindowCount := WinList.Count;
Res := WinExec('c:\dosprog\bp\pas\pokus1.exe', SW_SHOWNORMAL);
if Res > 32 then
begin
repeat // pockame az se nam vytvori nove okno, posledni v seznamu je to nase
EnumWindows((zv)EnumWinProc, Integer(WinList));
Application.ProcessMessages;
until Application.Terminated or (WinList.Count > WindowCount);
Timer1.Enabled := True; // uz ho mame, spustime timer ...
end else ShowMessage('Error');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
with WinList do if FindWindow(DosAppWinClass, PChar(Strings[Count - 1])) = 0 then
begin
Timer1.Enabled := False;
ShowMessage(Format('Aplikace "%s" ukoncena', [Strings[Count - 1]]));
end;
end;
end.
Petr Vones, amatersky programator
OLE s Excel 7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.7.1998 21:31:10
Karel Petru wrote:
>
> Nevite nekdo proc tento kod nefunguje s Excel 7pro W95, kdyz funguje s Excel
> 97.
>
> MSExcel:=CreateOleObject('Excel.Application');
> MSExcel.Application.Visible := True;
> MSExcel.Application.Workbooks.Open['w:\ole\a.xls'];
>
> Pri pouziti s Excel 7 hlasi chybu EOLESysError "Server vydal vyjimku" - Och,
> jak je ta cestina krasny jazyk.
>
> S Excel 97 je vse OK.
>
> Pouzivam OLE spravne?
Ahoj,
nemam tu ted Office 95, ale snad ti trochu pomuze tohle:
http://www.inprise.com/delphi/papers/microexcel.html
Petr Vones, amatersky programator
MaskEdit na penize a sum v DBE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 03.7.1998 21:59:50
> Stanislav Cerny wrote:
>
> Ahoj,
>
> nemate nekdo komponentu do D3 jako je EDIT nebo MASKEDIT do ktere je mozno napsat pouze financni castku? Pres masku v
> MaskEdit se mi to nepovedlo a upravit komponentu jeste neumim.
Ahoj,
v RxLib (http://rx.demo.ru) je komponenta TCurrencyEdit.
>
> Existuje v DBE funkce na secteni numerickeho pole bez prochazeni zaznam po zaznamu?
To je nejlepsi udelat SQL dotazem .... Petr Vones, amatersky programator
DeviceIOControl
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 3.7.1998 22:23:23
Hmmm, nepomohlo by nastavit v delphi komponente MediaPlayer (alebo cez API pre mmsystem) moznost zdielania zariadenia. (shareing)???
Pavel Koutny
-----P�vodn� zpr�va-----
Od: stingp1.eti(zv)mail.cez(tec)cz [SMTP:stingp1.eti(zv)mail.cez(tec)cz]
Odesl�no: 30. j�n 1998 9:49
Komu: Delphi(zv)pinknet(tec)cz
P�edm�t: DeviceIOControl
Cau vsichni,
narazil jsem na takovy problem, potreboval bych pomoc od nejakeho API guru
:)
Delam takovy mensi program, a potreboval bych softwarove otevrit a zavrit
CD mechaniku, ale bez pouziti MMSystem, a to z toho duvodu, ze staci mit
spusteny nejaky program, ktery pouziva cdaudio a uz to nefunguje.
Zkousel jsem vytvorit handle zarizeni pres CreateFile, v domneni, ze bych
to
pak mohl obstarat pres fci API DeviceIOControl, ale CreateFile mi zarputile
vraci invalid handle. Jestli nekdo vite o lepsim zpusobu, poradte prosim.
1) Jak zjistit handle zarizeni
2) Zjistit stav zarizeni (jedna se mi hlavne o CD - zavrene,otevrene)
Diky vsem, cau Pavel
stingp1.eti(zv)mail.cez(tec)cz
Jeste jednou transakce
[*] �ke��k Jaroslav�������6�����̿ - 3.7.1998 23:24:14
.... a hele, zase jeden do RODINY. Pekne vitam.
Presne pro tyto duvody a radu dalsich jsme presli na databazovy server
jiz temer pred dvema roky. Muzu te ujistit, ze od te doby mame naprosty
klid a pokoj. Na eru DB souboru nerad vzpominam a z dnesniho pohledu
to povazuji za ztraceny cas. Predelavat hotove projekty neni nic
legracniho. Krome toho s C/S systemy je potreba urcitych zkusenosti.
Proto cim drive se zacne tim lepe.
Urcite je lepsi ztracet cas s vysvetlovanim a osvetou zakaznika, aby
pochopil,
proc ma platit drazsi server, nez pozdeji vysvetlovat, proc tam musime
jezdit
kazdou chvili neco hasit. Mnoho zakazniku stejne zustane presvedceno, ze ten
vas program je nespolehlivy a spatny, protoze jste ho blbe naprogramovali.
Vse ostatni povazuji za vymluvy. Ztrata duvery se neda zaplatit.
Ja jsem vzdy toho nazoru, ze vubec nema cenu resit vinika havarie dat.
Zda za to muze uzivatel nebo dodavatel programu? Proc? Je lepsi resit,
aby se neco takoveho proste nikdy nemohlo stat.
Polozte zakaznikovi jednoduchou otazku. Co udela, kdyz zhavaruji data
za plneho provozu a pripadne se nedaji opravit. Kdyz odpovi, ze se pujde
obesit, je to ten pravy duvot pro nakup datoveho serveru.
Zakaznikum, kteri vase argumenty nepochopi, se radeji vyhnete.
At si u nich kazi povest vase konkurence. Nekteri z nich mozna
po mnoha utrpenich vam casem zavolaji a radi zaplati. Uz jim to najednou
nebude pripadat tak drahe. Znam takove pripady.
Jaro
-------------------------
No, prave proto davam prednost SQL databazim. Dalsi reseni je, ze za
opravy Paradox tabulek nasadim takove ceny, ze po prvni oprave
zakaznik pobezi koupit SQL databazi. :-) A fakt me to uz stve, zcela
vazne o takovem kroku uvazuji.
......
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Select - SQL
[*] �ke��k Jaroslav�������6�����̿ - 3.7.1998 23:42:02
Zkus to po male oprave:
SELECT Sl_a, SUM(vaha) AS Vaha_gen,
(SELECT SUM(vaha) FROM sel S2 WHERE (Sl_b = 1 OR Sl_c = 1) AND S1.Sl_a =
S2.Sl_a) AS Vaha_1 >FROM sel S1
WHERE 1=1
GROUP BY Sl_a
>
>To sice funguje, ale blbe. SELECT (3.sloupec) vraci celkovou sumu za
>tabulku a ja nevim jak to provazat k jednotlivym skupinam (GROUP BY).
>
Jestli jsem ovsem dobre pochopil zamer toho SELECTu.
Jinak se omlouvam.
Jaro
Rozbaleni ComboBoxu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.7.1998 00:01:22
> Libor Junek wrote:
>
> Nevite nekdo jaka procedura je na rozbaleni ComboBoxu??
> (Potrebuji aby se mi pri zmacknuti urcite klavesy rozbalil).
> Dik
> Libor Junek
> libor(zv)thsoft(tec)cz
Ahoj,
da se to udelat takhle:
ComboBox1.Perform(CB_SHOWDROPDOWN, 1, 0);
Petr Vones, amatersky programator
Udalost OnClick
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.7.1998 08:22:52
Petr Zahradnik wrote:
> > To nefunguje !!!
> >
> > > Label.OnClick := funkce
> > >
> > > kde funkce je stejneho typu jako dana udalost...
>
> Ale funguje to. Ze ty jsi neudelal tu funkci stejneho typu
> jako ma opravdu byt?
No, jenze tys to rekl dost nepresne. Ona to neni funkce, ale
udalost, a ta udalost musi byt povesena na formular. Kdyby si dotycny
proste jednu takovou udalost vygeneroval a pak ji pouze opsal, mohl
mit po problemech.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
LCD komponenta
[*] Ing. Miroslav Ond��ek - 4.7.1998 08:48:21
Nev�l� se u n�koho (nebo odkaz) Label, kter� se chov� jako LCD display ?
Mus� b�t free ! Pros�m nenab�zejte mi TLCDLabel od Peter Czidlina. D�ky. Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail: bonnel(zv)telecom(tec)cz
http://www.bonnel-tech.com
Upgrade Delphi 3
[*] Ing. Miroslav Ond��ek - 4.7.1998 09:03:39
Naivne jsem se domnival, ze si konecne patchnu sve D3 na D3.02. Nicmene na
strance Inprise jsem zjistil, ze patch na 3.02 je mozny pouze, pokud je jiz
nainstalovan patch 3.01, ale ten se dodava na jakemsi CD.
Mate ho nekdo, prosim ?
Diky
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail: bonnel(zv)telecom(tec)cz
http://www.bonnel-tech.com
Animovany GIF
[*] psoft <psoft(zv)kosice.telecom.sk> - 4.7.1998 14:29:26
Zdravim vsetkych,
neviete mi nahodou niekto poradit (mozno je to lahke, ale nic ma
nenapada ...), ako zmensit animovany GIF ? Cosi ako stretch v Delphi,
ale aby sa zmensila aj fyzicka velkost suboru, t.j. aby sa ten subor
GIF zmensil naozaj, nie len "vizualne". Mam par peknych animovanych
Gifov na stranku, ale maju dost vela kb ...
Dakujem za vsetky rady ...
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Jeste jednou transakce
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 4.7.1998 17:13:17
=?iso-8859-1?B?imtl+O1rIEphcm wrote:
> .... a hele, zase jeden do RODINY. Pekne vitam.
> Presne pro tyto duvody a radu dalsich jsme presli na databazovy
> server jiz temer pred dvema roky. Muzu te ujistit, ze od te doby
> mame naprosty klid a pokoj. Na eru DB souboru nerad vzpominam ...
:-))) Do rodiny? Ja nabizim programy pod nejakym SQL serverem uz od
sameho pocatku Delphi. Jenze, z jakesi hloupe snahy vyhovet
zakaznikum jsem pridal jeste Paradox. Hm. Uz to asi priste
neudelam... Jeste ze jsem k tomu projektu vymyslel dobry system
duplicitnich zaloh.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
MaskEdit na penize a sum v DBE
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 4.7.1998 19:25:43
Diky, jsou to perfektni komponenty.
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 4. �ervence 1998 0:14
P�edm�t: Re: MaskEdit na penize a sum v DBE
>> Stanislav Cerny wrote:
>>
>> Ahoj,
>>
>> nemate nekdo komponentu do D3 jako je EDIT nebo MASKEDIT do ktere je
mozno napsat pouze financni castku? Pres masku v
>> MaskEdit se mi to nepovedlo a upravit komponentu jeste neumim.
>
>Ahoj,
>
>v RxLib (http://rx.demo.ru) je komponenta TCurrencyEdit.
>>
>> Existuje v DBE funkce na secteni numerickeho pole bez prochazeni zaznam
po zaznamu?
>
>To je nejlepsi udelat SQL dotazem ....
>
> Petr Vones, amatersky programator
>
>
>
Upgrade Delphi 3
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.7.1998 21:05:23
> Naivne jsem se domnival, ze si konecne patchnu sve D3 na D3.02. Nicmene na
> strance Inprise jsem zjistil, ze patch na 3.02 je mozny pouze, pokud je jiz
> nainstalovan patch 3.01, ale ten se dodava na jakemsi CD.
> Mate ho nekdo, prosim ?
Delphi update 3.01 je komercni produkt, ten si musis koupit za penize
u Borlandu nebo u jineho dodavatele. Neni to patch, jsou to cela Delphi,
ale stoji to jen par stovek. Musis odinstalovat Delphi 3.0
a nainstalovat Delphi 3.01. Pak muzes spustit patch na 3.02.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================QuickReport
[*] Miki Vom��ka����h���h��� - 4.7.1998 23:35:13
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
pouzivam komponentu QuickReport a PrinterSetupDialog, ale kdyz vyberu jinou tiskarnu nez vychozi, QuickReport ji ignoruje a pouziva stale vychozi. Lze prinutit QuickReport k poslusnosti?
Diky Miki Vomacka
vmiki(zv)post(tec)cz
Jeste jednou transakce
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.7.1998 12:24:54
> Chlapi, toto vsetko je pekne, ale doteraz este sa nikomu nepodarilo
> odpovedat na otazku, aky typ databaz nasadit v malej firme, napr.
> klasicke nase slovenske alebo ceske jedno az dvojchlapove firmy.
> Ako som napr. aj ja. Darmo mi budes vykladat o tom, aku cenu pre mna
> maju data, ked jednoducho nemam peniaze na client-server. Nie je to
> tym, ze by som bol nejaky drzgros, ale jednoducho pri podnikani mas
> milion dalsich tiez velmi dolezitych vydavkov.
Chlape, ja jsem tady uz davno daval zcela jednoznacnou odpoved na
tuto otazku. Pokud se ti zda hodne dat 60 tisic korun na Microsoft
Small Business Server nebo aspon 30 tisic za samotny MS SQL Server
nebo Interbase Server (da se i levneji poridit), pak si porid
Sybase SQL Anywhere. Zakladni licence pro 1 server + 1 klient,
coz znamena i dva pocitace na siti peer-to-peer, stoji neco pres
12 tisic. I tech 60 tisic se vyplati dat za ochranu svych dat,
ale 12 tisic je pakatel a to si snad muze dovolit kazdy. Lze to
pak rozsirovat dale a dokupovat dalsi licence.
> Tiez vase videnie typu paradox=riziko client-server=istota sa mi zda
> trochu skreslene. Nie ze by na tom nebolo pravdy, ani ja nepopieram
> spravnost vasich argumentov. Ale uvediem vam jeden priklad.
Vis, to je hezke, muzeme tady o tom diskutovat, ale cenu svych dat
poznas v okamziku, kdy o ne prijdes. To je stejne jako s antivirovym
programem - take neni zadarmo, ale jeho potrebu poznas, az ti virus
zlikviduje dulezite soubory. A je to take stejne jako se zaloznim
zdrojem - take jeho potrebu poznas, az ti nahodou vypnou proud pote,
co jsi predtim 1/2 hodiny odladoval program, neukladal na disk a zmeny
jsi delal na 20 mistech...
> Dlhy cas robim s databazami, specialne ekonomicky SW, mam aj firmy,
> ktore maju okolo 10-15 strojov v sieti, ktore pracuju naraz. Robim s
> ceskou databazou PC Fand (nechcem mu robit reklamu). Ale za cely cas
> sa mi ani raz nestalo, zeby boli odisli data. Isteze bola spusta
> vypadkov, znicenych indexov (Fandu si ich automaticky opravuje sam
> ...), rozbitych databaz prave preto, ze neboli transakcie ... Ale
> vzdy je mozne zistit pri spusteni vypadok, a potom robit kadejake
> prepocty a opravy ... a taka vec sa ti stane zasadne na recorde, kde
> si robil naposledy, takze ani nie je tazke zistit, ci mas chybu v
> datach alebo nie ...
Ja mam zkusenosti s databazemi dBase a Paradox a neni to veru mile,
kdyz to chcipne a nemas data. Ja o nic neprisel, ale mi zakaznici
ano - jejich problem. Hlavni problemy zacinaji, kdyz pouzivas
memo polozky, pricemz riziko stoupa s pripojenim do site. V podstate
te mohu ujistit, ze otevrena tabulka dBase na siti peer-to-peer pod
Windows 95 po padu uz nenajede, pokud ma memo polozky a byla-li
udelana nejake zmena v datech pred vypadkem.
> Myslim si, ze delit zakaznikov na tych, co si kupia client-server a
> na ostatnych je trochu scestne.
> 1.Nase trhy zasa nie su take velke, aby si si zakaznikov mohol nejako velmi vyberat.
> 2.Presviedcaj zakaznika, ze tvoj SW a client server je super vec, ked
> o 100 metrov dalej mas firmu, ktora predava podvojne uctovnictvo,
> sklady a faktury za 1200 Sk !
> 3.Vacsina zakaznikov je s prepacenim ako zlocinci - trest smrti pre
> nic nie je vystaha, pretoze rataju s tym, ze ich nechytia. Aj
> zakaznik rata, ze jemu sa s datami nic nestane ...
To jsou sice pekne duvody, nicmene pokud ti zakaznik pak prijde
nadavat, ze prisel o data, tak mu vysvetluj, ze zaplatil malo
penez, tak ma malo muziky a holt bude muset ty dva dny dotukat...
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================OLE s Excel 7
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 5.7.1998 12:37:29
Podla mojich skusenosti OLE a Excel 97 funguje vo vsetkych jazykovych
verziach.
Excel 95 s OLE funguje len v anglickej verzii (To mam odskusane, a v tom
pripade by dany kod mal fungovat bez problemov). Po nahrati akychsi
pomocnych suborov
funguje aj v nemcine, spanielcine, francuzstine, taliancine a pod. Da sa to
zistit niekde na
microsoft strankach.
Slovencina a cestina nema tieto podporne subory.
Ak treba robim s Excelom 95, resp. s jeho datami pomocou komponenty formula1
(snad VCF1, alebo F1Book) v Delphi - je to velmi dobry nastroj a rychly.
Navyse nevyzaduje pritomnost Excelu, napriek tomu, ze komponenta ma ten isty
vzhlad ako by bol priamo otvoreny excel /teda takmer/.
Uz som s tym davnejsie nerobil - je to v OCX-och (kompletna cesta - vid
dalej)
je tam aj dobry help - je stavany sice na Visual Basic ale v pohode som ho
pouzival aj pre Delphi.
Mrzi ma, ze ta komponenta uz nefunguje pre novy excel (97)
Pozor pre distribuciu je treba prilozit nejake subory - su popisane v danej
kniznici (..Borland\Delphi 3\OCX\V\Form1\)
-----P_vodn_ spr_va-----
Od: Karel Petru <epos(zv)pce.fairnet(tec)cz>
Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 3. j_l 1998 17:04
Predmet: OLE s Excel 7
>Nevite nekdo proc tento kod nefunguje s Excel 7pro W95, kdyz funguje s
Excel
97.
> MSExcel:=CreateOleObject('Excel.Application');
> MSExcel.Application.Visible := True;
> MSExcel.Application.Workbooks.Open['w:\ole\a.xls'];
>Pri pouziti s Excel 7 hlasi chybu EOLESysError "Server vydal vyjimku" -
Och,
jak je ta cestina krasny jazyk.
>S Excel 97 je vse OK.
>Pouzivam OLE spravne?
>Karel Petru, EPOS PRO, Pardubice
>e-mail: "Petru" <epos(zv)pce.fairnet(tec)cz>
QuickReport
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.7.1998 12:59:29
> Miki Vom��ka wrote:
>
> Ahoj,
> pouzivam komponentu QuickReport a PrinterSetupDialog, ale kdyz vyberu jinou tiskarnu nez vychozi, QuickReport ji ignoruje a
> pouziva stale vychozi. Lze prinutit QuickReport k poslusnosti?
>
> Diky Miki Vomacka
> vmiki(zv)post(tec)cz
>
Ahoj,
Patrne pouzivas QuickReport 2 z Delphi3, pry je tam chyba. Stahni si update
od QuSoftu (QuickReport 2.0K) melo by to tam byt opraveno:
http://www.qusoft.no/scripts/download.dll
Petr Vones, amatersky programator
OLE s Excel 7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.7.1998 13:27:59
Miroslav BALAZ wrote:
>
> Podla mojich skusenosti OLE a Excel 97 funguje vo vsetkych jazykovych
> verziach.
>
> Excel 95 s OLE funguje len v anglickej verzii (To mam odskusane, a v tom
Ahoj,
proc "len", to je spise vyhoda, pokud se nepletu tak predchozi verze naopak
fungovali jen v tom kterem jazyce, takze jsi pak musel udelat neco podobneho
jako bylo tusim v prikladech u Delphi 1, ze se zjistovala jazykova verze a
podle ni se pak musel napsat program ... ale treba se pletu uz je to davno :-)
> pripade by dany kod mal fungovat bez problemov). Po nahrati akychsi
> pomocnych suborov
> funguje aj v nemcine, spanielcine, francuzstine, taliancine a pod. Da sa to
> zistit niekde na
> microsoft strankach.
> Slovencina a cestina nema tieto podporne subory.
>
> Ak treba robim s Excelom 95, resp. s jeho datami pomocou komponenty formula1
> (snad VCF1, alebo F1Book) v Delphi - je to velmi dobry nastroj a rychly.
> Navyse nevyzaduje pritomnost Excelu, napriek tomu, ze komponenta ma ten isty
> vzhlad ako by bol priamo otvoreny excel /teda takmer/.
>
> Uz som s tym davnejsie nerobil - je to v OCX-och (kompletna cesta - vid
> dalej)
> je tam aj dobry help - je stavany sice na Visual Basic ale v pohode som ho
> pouzival aj pre Delphi.
> Mrzi ma, ze ta komponenta uz nefunguje pre novy excel (97)
S Delphi 2 a 3 se dodava verze Formula One 3, jedna se o jakousi "lite" verzi,
neni na ni poskytovana podpora a predevsim nema ani zarucene cteni/zapis z Excel
formatu. To ze to obcas nefunguje se mi i kolikrat potvrdilo. Muzes si ale koupit
plnou verzi, ted je tusim 5.0 ktera umi i Excel 97 (http://www.visualcomp.com).
Cena vsak neni zrovna nejmensi. Navic kdyz uz maji nekde kancelarsky software tak
je to vetsinou MS Office, tudiz je mozna lepsi to zkusit vyresit s vyuzitim Excelu
nez pridavanim dalsich komponent.
Pokud se ti to nedari pres OLE tak to muzes v jednodussich pripadech delat pomoci
DDE, je to sice z dnesniho pohledu "zastarale" ale nekdy to pomuze.
Petr Vones, amatersky programator
QuickReport
[*] Vesna <veselyt(zv)sagas(tec)cz> - 5.7.1998 13:54:28
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Jskou pouzivas verzi QuickReportu?
Vesna, SagaS
-----P�vodn� zpr�va-----
Od: Miki Vom��ka <vmiki(zv)post(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 4. �ervence 1998 23:34
P�edm�t: QuickReport
Ahoj,
pouzivam komponentu QuickReport a PrinterSetupDialog, ale kdyz vyberu jinou tiskarnu nez vychozi, QuickReport ji ignoruje a pouziva stale vychozi. Lze prinutit QuickReport k poslusnosti?
Diky Miki Vomacka
vmiki(zv)post(tec)cz
Rozbaleni ComboBoxu
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 5.7.1998 14:11:07
Ahoj,
viz help TComboBox
ComboBox1.DroppedDown:=TRUE;
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
>ComboBox1.Perform(CB_SHOWDROPDOWN, 1, 0);
Jeste jednou transakce
[*] psoft <psoft(zv)kosice.telecom.sk> - 5.7.1998 18:57:08
> .... a hele, zase jeden do RODINY. Pekne vitam.
> Presne pro tyto duvody a radu dalsich jsme presli na databazovy server
> jiz temer pred dvema roky. Muzu te ujistit, ze od te doby mame naprosty
> klid a pokoj. Na eru DB souboru nerad vzpominam a z dnesniho pohledu
> to povazuji za ztraceny cas. Predelavat hotove projekty neni nic
> legracniho. Krome toho s C/S systemy je potreba urcitych zkusenosti.
> Proto cim drive se zacne tim lepe.
> Urcite je lepsi ztracet cas s vysvetlovanim a osvetou zakaznika, aby
> pochopil,
> proc ma platit drazsi server, nez pozdeji vysvetlovat, proc tam musime
> jezdit
> kazdou chvili neco hasit. Mnoho zakazniku stejne zustane presvedceno, ze ten
> vas program je nespolehlivy a spatny, protoze jste ho blbe naprogramovali.
> Vse ostatni povazuji za vymluvy. Ztrata duvery se neda zaplatit.
> Ja jsem vzdy toho nazoru, ze vubec nema cenu resit vinika havarie dat.
> Zda za to muze uzivatel nebo dodavatel programu? Proc? Je lepsi resit,
> aby se neco takoveho proste nikdy nemohlo stat.
> Polozte zakaznikovi jednoduchou otazku. Co udela, kdyz zhavaruji data
> za plneho provozu a pripadne se nedaji opravit. Kdyz odpovi, ze se pujde
> obesit, je to ten pravy duvot pro nakup datoveho serveru.
> Zakaznikum, kteri vase argumenty nepochopi, se radeji vyhnete.
> At si u nich kazi povest vase konkurence. Nekteri z nich mozna
> po mnoha utrpenich vam casem zavolaji a radi zaplati. Uz jim to najednou
> nebude pripadat tak drahe. Znam takove pripady.
> Jaro
> -------------------------
> No, prave proto davam prednost SQL databazim. Dalsi reseni je, ze za
> opravy Paradox tabulek nasadim takove ceny, ze po prvni oprave
> zakaznik pobezi koupit SQL databazi. :-) A fakt me to uz stve, zcela
> vazne o takovem kroku uvazuji.
Chlapi, toto vsetko je pekne, ale doteraz este sa nikomu nepodarilo
odpovedat na otazku, aky typ databaz nasadit v malej firme, napr.
klasicke nase slovenske alebo ceske jedno az dvojchlapove firmy.
Ako som napr. aj ja. Darmo mi budes vykladat o tom, aku cenu pre mna
maju data, ked jednoducho nemam peniaze na client-server. Nie je to
tym, ze by som bol nejaky drzgros, ale jednoducho pri podnikani mas
milion dalsich tiez velmi dolezitych vydavkov.
Tiez vase videnie typu paradox=riziko client-server=istota sa mi zda
trochu skreslene. Nie ze by na tom nebolo pravdy, ani ja nepopieram
spravnost vasich argumentov. Ale uvediem vam jeden priklad.
Dlhy cas robim s databazami, specialne ekonomicky SW, mam aj firmy,
ktore maju okolo 10-15 strojov v sieti, ktore pracuju naraz. Robim s
ceskou databazou PC Fand (nechcem mu robit reklamu). Ale za cely cas
sa mi ani raz nestalo, zeby boli odisli data. Isteze bola spusta
vypadkov, znicenych indexov (Fandu si ich automaticky opravuje sam
...), rozbitych databaz prave preto, ze neboli transakcie ... Ale
vzdy je mozne zistit pri spusteni vypadok, a potom robit kadejake
prepocty a opravy ... a taka vec sa ti stane zasadne na recorde, kde
si robil naposledy, takze ani nie je tazke zistit, ci mas chybu v
datach alebo nie ...
Rozhodne sa mi ani raz nestalo, aby tabulka odisla zasluhou Fandu
...(asi pred mesiacom cosi predsa len odislo, ale to pripisujem
serveru, kedze sa zaplnil disk a odisli aj ine subory ako tabulky.)
Myslim si, ze delit zakaznikov na tych, co si kupia client-server a
na ostatnych je trochu scestne.
1.Nase trhy zasa nie su take velke, aby si si zakaznikov mohol nejako velmi vyberat.
2.Presviedcaj zakaznika, ze tvoj SW a client server je super vec, ked
o 100 metrov dalej mas firmu, ktora predava podvojne uctovnictvo,
sklady a faktury za 1200 Sk !
3.Vacsina zakaznikov je s prepacenim ako zlocinci - trest smrti pre
nic nie je vystaha, pretoze rataju s tym, ze ich nechytia. Aj
zakaznik rata, ze jemu sa s datami nic nestane ...
Tolko moje vyhrady, hoci s Vami uplne suhlasim, len v nasich
podmienkach je to tazke realizovat .
Peter.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> Jeste jednou transakce
[*] �ke��k Jaroslav�������6�����̿ - 6.7.1998 02:47:31
> ... Nie je to tym, ze by som bol nejaky drzgros, ale jednoducho
> pri podnikani mas milion dalsich tiez velmi dolezitych vydavkov.
------
Musis sam posoudit, co je pro tebe dulezitejsi a cennejsi.
------
> Robim s ceskou databazou PC Fand (nechcem mu robit reklamu).
> Ale za cely cas sa mi ani raz nestalo, zeby boli odisli data.
------
A kdo fandi PC Fandu, ja teda ne.
------
> .... rozbitych databaz prave preto, ze neboli transakcie ... Ale
> vzdy je mozne zistit pri spusteni vypadok, a potom robit kadejake
> prepocty a opravy ... a taka vec sa ti stane zasadne na recorde, kde
> si robil naposledy, takze ani nie je tazke zistit, ci mas chybu v
> datach alebo nie ...
------
Zasadne nezasadne, takovy blabol muze asi napsat jen ten kdo transakce
nikdy nepouzival (bez urazky). Na co vlastne jsou vsechny ty transakce ???
A proc mi taky chodi upominky na jiz zaplacene faktury? Ze by to
saldokonto v nekterych ekonomickych programech tvorili
programatori transakci nepouzivajice?
------
> 2.Presviedcaj zakaznika, ze tvoj SW a client server je super vec, ked
> o 100 metrov dalej mas firmu, ktora predava podvojne uctovnictvo,
> sklady a faktury za 1200 Sk !
------
Zase jedni z tech, co se zivi hlavne na naslednem servisu (zvladaji-li
jej vubec).
Zakaznik ale neni vetsinou uplnej blbec. Casem si vsechny vydaje secte.
Musis se rozhodnout na jake zakazniky se chces vlastne orientovat.
------
> 3.Vacsina zakaznikov je s prepacenim ako zlocinci - trest smrti pre
> nic nie je vystaha, pretoze rataju s tym, ze ich nechytia. Aj
> zakaznik rata, ze jemu sa s datami nic nestane ...
-----
To je jejich problem. Ja spolupracuji s temi chytrejsimi a ty
ostatni rad prenecham konkurenci. Uvaz jestli neni lepsi
hledat jednoho zakaznika na projekt za 100.000,- nez
100 zakazniku po 1.000.
Jaro.
-----
nastavenie language BDE
[*] House 9 <house_9(zv)hotmail(tec)com> - 06.7.1998 03:18:38 pdt
Zdravim Delfinov!
Potrebujem zmenit language driver tabulky ('ascii' ANSI >>> dBASE SLO
cp852) za behu
programu.
Dik za radu!
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
InterBase a ODBC
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 6.7.1998 08:30:27
Zdravim,
mam takovy problem:
Mam Interbase databasi na Linuxu (a nedela to jenom na Linuxu dela to i
LocalInterbase na Win32). A chtel bych k ni pristupovat pres ODBC (z
aplikace ktera ma pouze pristup pres ODBC).
To ze ODBC driver nema LANGUAGE DRIVERY jsem vyresil konverzi do WIN1250.
Data jsou videt spravne cesky. Pouze pri zapisu textove polozky (VARCHAR) s
diakritikou do database ODBC driver ohlasi chybu:
[Visigenic][ODBC InterBase 4.x Driver][InterBase]arithmetic exception,
numeric overflow, or string truncation
Jestlize to napisu bez hacku a carek je vse OK.
Pres BDE to cte i zapisuje OK, taktez pres ISQL (tam nastavim SET NAMES
WIN1250).
Po ruznem testovani (delaly mi to i nativni komponenty na IB bez BDE) jsem
zjistil ze do Connect stringu je treba pridat:
ISC_DPB_LC_CTYPE=WIN1250 (to v pripade nativniho pristupu)
Da se nejak ten ODBC driver donutit aby povolil i zapis? Jestli to nekdo vi
dejte prosim vedet.
Database je vygenerovana takto:
CREATE DATABASE 'D:\IBDATA\PARTNERI.GDB'
USER 'SYSDBA' PASSWORD '1' DEFAULT CHARACTER SET WIN1250;
CONNECT 'D:\IBDATA\PARTNERI.GDB' USER 'SYSDBA' PASSWORD '1';
CREATE TABLE ZEME (
ID_ZEME INTEGER NOT NULL CONSTRAINT CC_017 CHECK (ID_ZEME >
0),
KOD CHAR(3) NOT NULL COLLATE WIN1250,
NAZEV VARCHAR(30) NOT NULL COLLATE WIN1250,
DATUM_UPRAVY DATE NOT NULL,
UZIVATEL_UPRAVY VARCHAR(20) NOT NULL COLLATE WIN1250,
CONSTRAINT PK_ZEME PRIMARY KEY (ID_ZEME)
);
atd....
Pavel Chaloupka
E-Mail : chaloupka(zv)mboxzn(tec)cz
V�voj SW
OLE s Excel 7
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 6.7.1998 09:04:19
Ano bolo treba zistovat jazykovu verziu, ale to nebolo obmedzenie Delphi.
Bolo to dane tym, ze Excel (do verzie 95 vratane) je jazykovo zavisly ako
OLE server. A podla toho sa bolo treba zariadit. Pre Slov/Cestinu to vsak
neslo nijako.
Napr.: otvorenie:
angl.: CreateOleObject('Excel.Application')
cesky: CreateOleObject('Excel.Aplikace') - interne je pouzite slovo
Aplikace, ale OLE engina (nejake dll) ho nepozna - tam skoncia vsetky snahy.
Pre francuzstinu, ci nemcinu existuju OLE enginy
ktore podporuju tieto prelozene ekvivalenty.
Mne formula 1 fungovala vzdy bez chyby a to som robil s nou aj komercne
aplikacie (islo o import / export dat). Ani v pripade rozsiahlych dat nebol
nikdy ziadny problem.
Co sa tyka Wordu (95) tam sa este dalo nieco spravit (aj v ceskej verzii) -
aspon sa dal otvorit a naplnit datami, (myslim, ze tiez boli obmedzenia na
niektore funkcie, snad tie, ktore mali cesky preklad to si uz presne
nepametam), ale ten som urcite vedel otvorit a komunikovat s nim (teda s
ceskou verziou).
Apropo DDE - na DSP existuje komponenta, je velmi rychla, funguje s istotou
v Excel97. Neviem ako je to s nizsimi verziami.
Ja robim v exceli cez OLE (early aj late binding) - viem prakticky obsiahnut
vsetku funkcionalitu excelu, vratane komunikacie s uzivatelom - grafy,
tabulky aj s vlastnostami, zabudovane funkcie, otacanie tabuliek, pivot
tabulky a pod - podmienka je verzia 97, alebo verzia 95 - ale len anglicka
(ta navyse nepodporuje early binding a pivot tab. a dalsie).
POZOR DOTAZ !?
Mam ale problem, pri early binding, (ktore je rychlejsie a ma aj niektore
dalsie vyhody) sa mi po ukonceni OLE spojenia nevratia vsetky pouzite
systemove prostriedky - a to korektne koncim OLE spojenie
napr.: xlApplication.Quit
a nulujem xlApplication:=nil;
VarClear(xlApplication) - sa neda pouzit, lebo
xlApplication je typu _Application a nie OLEVariant, alebo Variant
Inak je vsetko osetrene rovnako ako pri late binding.
Netusim, co by mohlo pomoct - neviete niekto ?
Pri late binding sa vratia vsetky prostriedky, ale zase to neplati pre Page
Setup (header / footer a pod) - ten ma tiez nejaky problem - konzumuje (skor
zerie) prostriedky bez ochoty vratit ich.
S pozdravom
Miro
-----P_vodn_ spr_va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 5. j_l 1998 14:10
Predmet: Re: OLE s Excel 7
>Miroslav BALAZ wrote:
>>
>> Podla mojich skusenosti OLE a Excel 97 funguje vo vsetkych jazykovych
>> verziach.
>>
>> Excel 95 s OLE funguje len v anglickej verzii (To mam odskusane, a v tom
>Ahoj,
>
>proc "len", to je spise vyhoda, pokud se nepletu tak predchozi verze naopak
>fungovali jen v tom kterem jazyce, takze jsi pak musel udelat neco
podobneho
>jako bylo tusim v prikladech u Delphi 1, ze se zjistovala jazykova verze a
>podle ni se pak musel napsat program ... ale treba se pletu uz je to davno
:-)
>
>> pripade by dany kod mal fungovat bez problemov). Po nahrati akychsi
>> pomocnych suborov
>> funguje aj v nemcine, spanielcine, francuzstine, taliancine a pod. Da sa
to
>> zistit niekde na
>> microsoft strankach.
>> Slovencina a cestina nema tieto podporne subory.
>>
>> Ak treba robim s Excelom 95, resp. s jeho datami pomocou komponenty
formula1
>> (snad VCF1, alebo F1Book) v Delphi - je to velmi dobry nastroj a rychly.
>> Navyse nevyzaduje pritomnost Excelu, napriek tomu, ze komponenta ma ten
isty
>> vzhlad ako by bol priamo otvoreny excel /teda takmer/.
>>
>> Uz som s tym davnejsie nerobil - je to v OCX-och (kompletna cesta - vid
>> dalej)
>> je tam aj dobry help - je stavany sice na Visual Basic ale v pohode som
ho
>> pouzival aj pre Delphi.
>> Mrzi ma, ze ta komponenta uz nefunguje pre novy excel (97)
>
>S Delphi 2 a 3 se dodava verze Formula One 3, jedna se o jakousi "lite"
verzi,
>neni na ni poskytovana podpora a predevsim nema ani zarucene cteni/zapis z
Excel
>formatu. To ze to obcas nefunguje se mi i kolikrat potvrdilo. Muzes si ale
koupit
>plnou verzi, ted je tusim 5.0 ktera umi i Excel 97
(http://www.visualcomp.com).
>Cena vsak neni zrovna nejmensi. Navic kdyz uz maji nekde kancelarsky
software tak
>je to vetsinou MS Office, tudiz je mozna lepsi to zkusit vyresit s vyuzitim
Excelu
>nez pridavanim dalsich komponent.
>
>Pokud se ti to nedari pres OLE tak to muzes v jednodussich pripadech delat
pomoci
>DDE, je to sice z dnesniho pohledu "zastarale" ale nekdy to pomuze.
>
> Petr Vones, amatersky programator
>Senzitivni hinty
[*] Pavel Kral <kral(zv)afx(tec)cz> - 6.7.1998 13:00:01
Ahoj,
na DSP je komponenta TStringAlignGrid, ktera to umi a umi toho
jeste mnohem vice. Doporucuji.
Pavel
-----Original Message-----
From: svatos(zv)af(tec)czu(tec)cz <svatos(zv)af(tec)czu(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 1. �ervence 1998 22:22
Subject: Senzitivni hinty
Ahoj !
Mam nasledujici problem:
Potrebuju, kdyz najedu na ruzny sloupec v StringGridu, aby se mi
zobrazila jina bublinka s hintem.
Problem je v tom, ze ruzne texty hintu sice dokazu spravne a vcas
nastavit (OnMouseMove), ale bublinka se zobrazi pouze pri prvnim
vstupu mysi do oblasti gridu.
Kdyz mys stahnu z gridu a pak ji zase presunu na grid, je vse OK,
bublinka se obevi, ale potom jiz se nezobrazi.
Co stim ? Nevite nekdo ?
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Out of system resources
[*] Pavel Kral <kral(zv)afx(tec)cz> - 6.7.1998 13:02:33
Ahoj
Myslim, ze jsi na spatne stope.
Domnivam se, ze pri prirazeni do TPicture se vytvori nova
bitmapa, ktera neni zrusena. Ale vyresit jsem to nezkousel.
Pavel
-----Original Message-----
From: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
To: Delphi Konference (el. adresa) <delphi(zv)io.pinknet(tec)cz>
Date: 3. �ervence 1998 13:40
Subject: Out of system resources
>Nevite nekdo proc mi nasledujici konstrukce pri castem pouzivani za
>chvili hlasi "Nedostatek systemovych prostredku" ????
>
> FBitmap:=TBitmap.Create;
> try
> FBitmap.LoadFromResourceID(DLLHandle,ID);
> MyImage.Picture.Bitmap.Assign(FBitmap);
> finally
> FBitmap.Free;
> end;
>
>Taham ze sveho programu velice casto bitove mapy ulozene v DLL
>knihovnach a nekde ty resourcy zustanou viset a nevim kde kdyz to taham
>pouze do docasne vytvorene bitmapy. Uz jsem z toho na mrtvici.
>
> S pozdravem
> Zdenek Petruj
>____________________________
>adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
>____________________________
>tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
>e-mail: zpetruj(zv)zebra(tec)cz
>internet: http://www.zebra(tec)cz
>
>
>
Klavesa
[*] Pavel Kral <kral(zv)afx(tec)cz> - 6.7.1998 13:07:07
Ahoj
Clovece, ty jsi fakt zazrak. Diky moc.
Pavel.
PS Svou aplikaci snad uz kazdy najde
-----Original Message-----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 2. �ervence 1998 21:58
Subject: Re: Klavesa
>Pavel Kral wrote:
>> Bohuzel filtracni funkci s parametrem wh_Keyboard nelze zjistit, na
kterou
>> aplikaci je zprava zasilana. JESTLI ANO, DEJTE NEKDO VEDET, JAK.
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>Ahoj,
>tady je priklad, a zatim to vypada ze by to mohlo fungovat. Zkousel jsem to
>jen na Win95, takze to prosimte vyzkousej i na NT jestli k nim mas pristup.
>Jedna vec se mi na tom ale moc nelibi, a to zpusob zasilani zpravy do
aplikace
>pres HWND_BROADCAST. Mozna by to slo udelat trochu jinak pomoci
PostThreadMessage.
>>procedure TForm1.WndProc(var Msg: TMessage);
>begin
> if Msg.Msg = GetHookMsg then Memo1.Lines.Add(
> Format('%.8x %.4x %s', [Msg.LParam, Msg.WParam,
FindProcessName(Msg.LParam)]));
> inherited;
>end;
>
>
>end.
>---------------------------------------------------------------------------
--------
>library HookLib;
>
>uses
> Windows, Messages;
>
>var
> HookHandle: HHOOK = 0;
> HookMessage: Integer = 0;
>
>function GetHookMsg: Integer; export; stdcall;
>begin
> Result := HookMessage;
>end;
>
>function HookProc(Code: Integer; WParam: Word; LParam: LongInt): LongInt;
stdcall;
>var
> Res: Integer;
>begin
> if Code = HC_ACTION then
> SendMessageTimeout(HWND_BROADCAST, HookMessage, WParam,
GetCurrentProcessId,
> SMTO_ABORTIFHUNG, 100, Res);
> Result := CallNextHookEx(HookHandle, Code, WParam, LParam);
>end;
>
> Petr Vones, amatersky programator
>
>
>
Loadlibrary a parameter procedury ?
[*] Bielik Marian <bielik(zv)basl.sk> - 06.7.1998 13:08:11
Hi delfini !
Neskusal niekto odovzdavat nejake parametre funkcii ktora je volana
pomocou LoadLibrary ??? (alebo chcem nemozne?)
Za odpovede vopred vdaka.
Marian
...
begin
HInst:=LoadLibrary('Config.dll');
if HInst > 32 Then
begin
FPointer:=GetProcAddress(HInst,'GetConf');
if FPointer <> nil then
begin
MyProc:=Proc(Fpointer);
MyProc; <<<<<<<<<<<------------SEM POTREBUJEM DOSTAT PARAMETER
end
else Showmessage('Nenasiel som funkciu GetConf');
end
else Showmessage('Nenasiel som kniznicu Config.dll');
end;Loadlibrary a parameter procedury ?
[*] Alan Cermak <alex(zv)194.196.121.66> - 6.7.1998 16:28:14
>Hi delfini !
>Neskusal niekto odovzdavat nejake parametre funkcii ktora je volana
>pomocou LoadLibrary ??? (alebo chcem nemozne?)
>
>Za odpovede vopred vdaka.
>Marian
>
>...
>begin
> HInst:=LoadLibrary('Config.dll');
> if HInst > 32 Then
> begin
> FPointer:=GetProcAddress(HInst,'GetConf');
> if FPointer <> nil then
> begin
> MyProc:=Proc(Fpointer);
> MyProc; <<<<<<<<<<<------------SEM POTREBUJEM DOSTAT PARAMETER
> end
> else Showmessage('Nenasiel som funkciu GetConf');
> end
> else Showmessage('Nenasiel som kniznicu Config.dll');
>end;
>
Nejprve si nadeklaruj typ funkce, treba:
type
TMyFunc = function(N1, N2: Integer): Integer;
.. a potom ji odnekud zavolam :
function VolaniFunkce(Cislo1, Cislo2: Integer; var Vysledek: Integer): Boolean;
var
F: TMyFunc;
H: Longint;
begin
Result := false;
H := LoadLibrary('ProjDll.dll');
if H >= 32 then
begin
F := GetProcAddress(H, 'Jmeno_Funkce');
if Assigned(F) then
begin
Vysledek := F(Cislo1, Cislo2);
Result := true;
end
else
ShowMessage('Nelze z�skat adresu funkce');
FreeLibrary(H);
end
else
ShowMessage('Nelze nac�st knihovnu');
end;
...Tenhle princip funguje uz od dob Borland Pascalu pro DPMI
Alan Cermak
Alexoft
alex(zv)mas(tec)cz
ICQ: 13863597
Win1250, ISO 8859-2, HTML
Object Repository a Auto-Create Forms
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.7.1998 21:09:26
Ahoj,
Mam ulozeny AboutDialog v Object Repository, v kodu toho dialogu je funkce
pomoci ktere jej za behu vytvorim a potom opet uvlonim. Do aplikaci jej
pridavan standartne pomoci File|New -> Dialogs -> AboutDialog a zvolim
moznost Use.
Lze ale nejak zaridit aby se mi dialog nepridal do Auto-Create Forms ?
Pokazde je nutne to upravit, coz neni zrovna nejpohodlnejsi.
Dekuji. Petr Vones, amatersky programator
Loadlibrary a parameter procedury ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.7.1998 21:13:15
> Neskusal niekto odovzdavat nejake parametre funkcii ktora je volana
> pomocou LoadLibrary ??? (alebo chcem nemozne?)
Samozrejme, ze to jde, jinak by to bylo vsechno uplne na nic.
Ale musis si nejprve nadefinovat typ te funkce, treba:
type
TMojeFunkce = function(parametr: Integer): Word;
pak udelas:
var
MojeFunkce: TMojeFunkce;
No a pak priradis...
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Select
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 7.7.1998 06:23:45
> V Zamberku je o neco lepsi tlak, tak jsem vymyslel tohle:
>
> SELECT nazev, cislo, (SELECT Sum(cislo) FROM Tabulka T2 WHERE
> T1.nazev >=
> T2.nazev) FROM Tabulka T1 ORDER BY nazev
>
To je presne ono! Dekuji moc.
-- eLK(zv) -- Jeste jednou transakce
[*] Daniel Prynych <alvin(zv)hornet(tec)cz> - 7.7.1998 06:30:31
Pouzijte Intrebase 4.0 pro Linux a usetrite minimalne 60 tisic.
Chodi naprosto bezchyby. A na rozdil od Interbase pro NT zde nezustavaji
viset uzivatele pokud clienta sestrelite.
A je pro neomezeny pocet uzivatelu.
Dan
----------
> Odes�latel: �ke��k Jaroslav <jaro(zv)zbk(tec)czn(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: Re: Jeste jednou transakce
> Datum: 6. �ervence 1998 2:47
>
>
> > ... Nie je to tym, ze by som bol nejaky drzgros, ale jednoducho
> > pri podnikani mas milion dalsich tiez velmi dolezitych vydavkov.
> ------
> Musis sam posoudit, co je pro tebe dulezitejsi a cennejsi.
> ------
> > Robim s ceskou databazou PC Fand (nechcem mu robit reklamu).
> > Ale za cely cas sa mi ani raz nestalo, zeby boli odisli data.
> ------
> A kdo fandi PC Fandu, ja teda ne.
> ------
> > .... rozbitych databaz prave preto, ze neboli transakcie ... Ale
> > vzdy je mozne zistit pri spusteni vypadok, a potom robit kadejake
> > prepocty a opravy ... a taka vec sa ti stane zasadne na recorde, kde
> > si robil naposledy, takze ani nie je tazke zistit, ci mas chybu v
> > datach alebo nie ...
> ------
> Zasadne nezasadne, takovy blabol muze asi napsat jen ten kdo transakce
> nikdy nepouzival (bez urazky). Na co vlastne jsou vsechny ty transakce ???
> A proc mi taky chodi upominky na jiz zaplacene faktury? Ze by to
> saldokonto v nekterych ekonomickych programech tvorili
> programatori transakci nepouzivajice?
> ------
> > 2.Presviedcaj zakaznika, ze tvoj SW a client server je super vec, ked
> > o 100 metrov dalej mas firmu, ktora predava podvojne uctovnictvo,
> > sklady a faktury za 1200 Sk !
> ------
> Zase jedni z tech, co se zivi hlavne na naslednem servisu (zvladaji-li
> jej vubec).
> Zakaznik ale neni vetsinou uplnej blbec. Casem si vsechny vydaje secte.
> Musis se rozhodnout na jake zakazniky se chces vlastne orientovat.
> ------
> > 3.Vacsina zakaznikov je s prepacenim ako zlocinci - trest smrti pre
> > nic nie je vystaha, pretoze rataju s tym, ze ich nechytia. Aj
> > zakaznik rata, ze jemu sa s datami nic nestane ...
> -----
> To je jejich problem. Ja spolupracuji s temi chytrejsimi a ty
> ostatni rad prenecham konkurenci. Uvaz jestli neni lepsi
> hledat jednoho zakaznika na projekt za 100.000,- nez
> 100 zakazniku po 1.000.
> Jaro.
> -----
> int 21
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 7.7.1998 08:06:12
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim
nevite nekdo jak nastavit/precist v delphi 2 vektor preruseni na adresu me procedury?
v dosu to bylo celkem primitivni pres subfunkci 25h a 35h pres int21h v delphi 1 se
to jeste take dalo vyresit pomoci call dos3call ale v delphi 2???(nemate nekdo na to nejakou free komponentu?, nebo nevite jak to napsat?)TEnhWave
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 7.7.1998 08:10:43
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite kde by se daly sehnat zdrojaky ke komponente TEnhWave nebo ji podobne?OLE s Excel 7
[*] Jarda Sikora <sikora(zv)af(tec)czu(tec)cz> - 7.7.1998 09:11:47 met
Jiz jsem na to take narazil a opravdu to nechodi. Zkus spojeni pres
DDE a pak to nastesti funguje.
Pridal bych dotaz. Nevite nekdo o nejake komponente (free),
ktera by umoznila ulozit data do excelovskeho souboru (bez
nutnosti propojeni s Excelem)? Zkousel jsem pouzit ActiveX komponentu
F1Book obsazenou primo v Delphi, kde je moznost ulozeni do Excelu,
ale otevrit bez problemu to lze jen s Excel 7 pro W95.>
> Nevite nekdo proc tento kod nefunguje s Excel 7pro W95, kdyz funguje s Excel
> 97.
>
> MSExcel:=CreateOleObject('Excel.Application');
> MSExcel.Application.Visible := True;
> MSExcel.Application.Workbooks.Open['w:\ole\a.xls'];
>
> Pri pouziti s Excel 7 hlasi chybu EOLESysError "Server vydal vyjimku" - Och,
> jak je ta cestina krasny jazyk.
>
> S Excel 97 je vse OK.
>
> Pouzivam OLE spravne?
>
QuickReport
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 07.7.1998 09:49:04
Cago,
pouzij metodu: QReport.PrinterSetup;
index tiskarny: QReport.PrinterSettings.PrinterIndex;
nazev tiskarny:
QReport.QrPrinter.Printers[QReport.PrinterSettings.PrinterIndex];
Belo.
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Miki Vom��ka wrote:
Ahoj,
pouzivam komponentu QuickReport a PrinterSetupDialog, ale kdyz vyberu
jinou tiskarnu nez vychozi, QuickReport ji ignoruje a pouziva stale
vychozi. Lze prinutit QuickReport k poslusnosti?
> Diky Miki Vomackavmiki(zv)post(tec)cz
QuickReport
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 07.7.1998 10:26:37
Ja si ukladam index vybrane tiskarny promenne (FPrinterIndex).
Pouzivam tuto konstrukci:
****
FoReport.PrinterSettings.PrinterIndex := FPrinterIndex; // -1 = default printer
try
FoReport.PrinterSetup;
except
MessageDlg('Nepodporovan� form�t pap�ru !', mtWarning, [mbOk], 0);
FoReport.Tag := 1; // Tag vraci 1 pri stisku tlacitka Cancel
end;
if FoReport.Tag <> 0 then Exit;
FPrinterIndex := FoReport.PrinterSettings.PrinterIndex;
****
Doporucuji si stahnout z QuSoftu definice komponent + FAQ.
PS: Pouzivam verzi 2.0k
PS2: QuickReport je strasne blbe "zhelpovan" !!!
--
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
Petr Vones wrote:
> > Miki Vom��ka wrote:
> >
> > Ahoj,
> > pouzivam komponentu QuickReport a PrinterSetupDialog, ale kdyz vyberu jinou tiskarnu nez vychozi, QuickReport ji ignoruje a
> > pouziva stale vychozi. Lze prinutit QuickReport k poslusnosti?
> >
> > Diky Miki Vomacka
> > vmiki(zv)post(tec)cz
> >
>
> Ahoj,
>
> Patrne pouzivas QuickReport 2 z Delphi3, pry je tam chyba. Stahni si update
> od QuSoftu (QuickReport 2.0K) melo by to tam byt opraveno:
>
> http://www.qusoft.no/scripts/download.dll
>
> Petr Vones, amatersky programator
Bulk Mailers Dream Come True! -YWXR
[*] freedemo02(zv)yahoo(tec)com - 7.7.1998 11:17:48
Greetings delphi,
For a limited time download the free three day trial of "the one and only" "EXPRESS MAIL SERVER"
>This is a fully working version: http://209.52.184.122/express/
TRANSFORM YOUR COMPUTER INTO A MAIL SERVER !!!
This new user friendly software "EXPRESS MAIL SERVER" turns
your own personal computer into a bona fide mail server.
This gives you an amazing degree of control over your mail because
you are NOT dependent on your ISP's mail server.
"THIS IS THE NEXT GENERATION IN EMAIL MARKETING"
With EXPRESS MAIL SERVER you will see all your mail being
delivered. There is almost a 100% delivery rate
with this program anywhere on the Internet.
Other programs that perform this task cost from $700 - $2500 !
Cash in on the latest and greatest technical advance in bulk
email programs for only $297.00.
***$100 off the price if you order before July 10.***
Reserve your copy today! (416) 240-7070
Features Include:
1.) 100 % delivery of your mail (avoid filters and blocks)
2.) Avoids your ISP's resources and getting shut down
3.) Verifies domains (prevents bounce backs and saves time)
4.) Bypasses your ISP's's smtp server (never crash a server again)
5.) Allows you to send in HTML (colors and fonts)
6.) Send at speeds up to 100,000 per hour (based on a 33K modem)
7.) Randomize header info (avoids filters)
8.) Personalize your letter to each recipient "Dear Name"
*For a limited time: We are offering FREE the fully working demo.
*Sends 100,000 email messages FREE with no obligation to buy!
*We are currently signing up a limited number of dealers to resell this
amazing software. We will customize it with all of your info inside the
demo!
you can purchase a distributor's pack. Prices start at $500 for 5 copies.
There is obviously money to be made selling this product. The demand for
this
software is growing at an exponential rate!
Don't Wait...
Call to register at (416) 240-7070
Or Visit: http://209.52.184.122/express/
ACT NOW! LIMITED TIME OFFER...
To be removed do nothing,
this is a one time message.
Prava uzivatelu nad tabulkou SQL
[*] mbartone(zv)synthesia(tec)cz - 7.7.1998 13:02:14
Prosim o radu nad MS SQL 6.5 a Delphi 3.01 C/S
Da se nejakym zpusobem v programu po prihlaseni zjistit jaka ma prihlaseny
uzivatel prava nad danou tabulkou?
Dekuji
Bartonek Milan
MBartone(zv)Synthesia(tec)cz
rawrite na supp.img
[*] Krautvor Ale� <krautvor(zv)mona(tec)cz> - 07.7.1998 13:38:12
Kdyz udelam rawrite (pod windows) na supp.img (z RH4) tak ne vzdy se to
uspesne zapise na disketu.
Nekdy jo, ale vetsinou ne. Mate s tim take podobne zkusenosti?
Ales
Desktop Folder
[*] V�t�zslav Gazda������u��n�?��? - 7.7.1998 15:02:58
Pouzij API funkci SHGetDesktopFolder.
Vita
InterBase a ODBC
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 7.7.1998 15:22:52
Mas pouzit:
Default character set WIN1250;
.
.
.
Create table ...
PRIEZVISKO VARCHAR(25) collate PXW_CSY,
Tungli
----------
> Od: Chaloupka Pavel <chaloupka(zv)mboxzn(tec)cz>
> Pre: Delphi Konference <delphi(zv)pinknet(tec)cz>
> Predmet: InterBase a ODBC
> D�tum: 6. j�l 1998 8:30
>
> Zdravim,
>
> mam takovy problem:
> Mam Interbase databasi na Linuxu (a nedela to jenom na Linuxu dela to i
> LocalInterbase na Win32). A chtel bych k ni pristupovat pres ODBC (z
> aplikace ktera ma pouze pristup pres ODBC).
> To ze ODBC driver nema LANGUAGE DRIVERY jsem vyresil konverzi do WIN1250.
> Data jsou videt spravne cesky. Pouze pri zapisu textove polozky (VARCHAR) s
> diakritikou do database ODBC driver ohlasi chybu:
> [Visigenic][ODBC InterBase 4.x Driver][InterBase]arithmetic exception,
> numeric overflow, or string truncation
> Jestlize to napisu bez hacku a carek je vse OK.
> Pres BDE to cte i zapisuje OK, taktez pres ISQL (tam nastavim SET NAMES
> WIN1250).
> Po ruznem testovani (delaly mi to i nativni komponenty na IB bez BDE) jsem
> zjistil ze do Connect stringu je treba pridat:
> ISC_DPB_LC_CTYPE=WIN1250 (to v pripade nativniho pristupu)
> Da se nejak ten ODBC driver donutit aby povolil i zapis? Jestli to nekdo vi
> dejte prosim vedet.
>
> Database je vygenerovana takto:
>
> CREATE DATABASE 'D:\IBDATA\PARTNERI.GDB'
> USER 'SYSDBA' PASSWORD '1' DEFAULT CHARACTER SET WIN1250;
>
> CONNECT 'D:\IBDATA\PARTNERI.GDB' USER 'SYSDBA' PASSWORD '1';
>
> CREATE TABLE ZEME (
> ID_ZEME INTEGER NOT NULL CONSTRAINT CC_017 CHECK (ID_ZEME >
> 0),
> KOD CHAR(3) NOT NULL COLLATE WIN1250,
> NAZEV VARCHAR(30) NOT NULL COLLATE WIN1250,
> DATUM_UPRAVY DATE NOT NULL,
> UZIVATEL_UPRAVY VARCHAR(20) NOT NULL COLLATE WIN1250,
> CONSTRAINT PK_ZEME PRIMARY KEY (ID_ZEME)
> );
>
> atd....
>
> Pavel Chaloupka
> E-Mail : chaloupka(zv)mboxzn(tec)cz
> V�voj SW
>
>
> Systemova DLL
[*] Martin Fr�hlich <unites(zv)telecom(tec)cz> - 7.7.1998 15:43:46
Vazeni pratele.
Potreboval bych poradit jak udelat systemovou DLL knihovnu, ktera by se
chovala tak, ze by v
pameti byla jenom jedna jeji instance a programy odkazujici se na ni meli
pristup ke stejnym
datum, tedy aby kazdy proces ktery ji byde vyuzivat nemel vlastni data.
Tzn. kdyz jednim procesem zmenim data aby jiny o teto zmene take mohl
dozvedet.
Dekuji za kazdou radu
Martin Frohlich
UNITES
------------
E-mail: unites(zv)telecom(tec)cz
InterBase ...(len tak?)
[*] Bielik Marian <bielik(zv)basl.sk> - 07.7.1998 16:03:47
Hi Delfini !
Nerad otravujem , ale vsimol som si ze viaceri "bezite" na Interbase pod
Linuxom.
Pouzivate to v nejakom vacsom meritku a na serioznu pracu , alebo len
tak pokusne ?
Ide totiz o to , ze presviedcam par ludi o vyhodach Linuxu. Linux vcelku
poznam,
ale Interbase len z pocutia a trosku z lokalu (ked nieco zliepam v
delphi).
Nemyslim , ze by ludia pracujuci napr. s ORACLOM presli na Linux a
InterBase
ale niekde by to vzhladom na cenu bolo urcite viac nez zaujimave.Je mi
jasne , ze
je to prva a pravdepodobne aj posledna volne siritelna verzia, ale nie
kazdy potrebuje kazdy mesiac novy databazovy server.
Som presvedceny , ze na vhodnom HW to musi bezat maximalne uspokojivo
len
nemam cas to vyskusat.
Takze ak vas to nebude otravovat , dajte (aspon strucne) vediet ake mate
skusenosti.
Dik.
Marian.
Desktop Folder
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 07.7.1998 16:04:59
To bohuzel funguje pouze ve W95.
Nakonec jsem to vyresil primym ctenim z registru na adrese:
* \Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders -
Desktop *
kde by mela byt cesta pro aktualniho uzivatele a fungovat by to melo jak
ve W95 tak i v WNT, ceske i anglicke verze.
Pokud si negdo najdete cas juknout se do registru na pocitacich s ne
zrovna obvyklou instalaci, a v pripade nesrovnalosti se ozvete, budu vam
neskonale vdecny !
Zatim jsem to testoval na W95-cze a WNT-ang.
Stepan "Chaosz" Cerny
chaosz(zv)geocities.com
V�t�zslav Gazda wrote:
> Pouzij API funkci SHGetDesktopFolder.
>
> Vita
InterBase a ODBC
[*] chaloupka(zv)mboxzn(tec)cz (Chaloupka Pavel) - 7.7.1998 16:05:26
Hm... tak jednoduche to zase neni. Podle manualu k IB muzes napsat:
WIN1250, PXW_CSY, PXW_HUNDC, PXW_PLK, PXW_SLO
a porad je to spravne trideni pro WIN1250.
Zkus si otevrit takovou databazi pres BDE-ODBC v database desktopu. Proste
to nejde zapsat...
Nebo doufam jde, ale ja nevim jak.
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 7. �ervence 1998 15:47
P�edm�t: RE: InterBase a ODBC
Mas pouzit:
Default character set WIN1250;
.
.
.
Create table ...
PRIEZVISKO VARCHAR(25) collate PXW_CSY,
Tungli
----------
> Od: Chaloupka Pavel <chaloupka(zv)mboxzn(tec)cz>
> Pre: Delphi Konference <delphi(zv)pinknet(tec)cz>
> Predmet: InterBase a ODBC
> D�tum: 6. j�l 1998 8:30
>
> Zdravim,
>
> mam takovy problem:
> Mam Interbase databasi na Linuxu (a nedela to jenom na Linuxu dela to i
> LocalInterbase na Win32). A chtel bych k ni pristupovat pres ODBC (z
> aplikace ktera ma pouze pristup pres ODBC).
> To ze ODBC driver nema LANGUAGE DRIVERY jsem vyresil konverzi do WIN1250.
> Data jsou videt spravne cesky. Pouze pri zapisu textove polozky (VARCHAR)
s
> diakritikou do database ODBC driver ohlasi chybu:
> [Visigenic][ODBC InterBase 4.x Driver][InterBase]arithmetic exception,
> numeric overflow, or string truncation
> Jestlize to napisu bez hacku a carek je vse OK.
> Pres BDE to cte i zapisuje OK, taktez pres ISQL (tam nastavim SET NAMES
> WIN1250).
> Po ruznem testovani (delaly mi to i nativni komponenty na IB bez BDE) jsem
> zjistil ze do Connect stringu je treba pridat:
> ISC_DPB_LC_CTYPE=WIN1250 (to v pripade nativniho pristupu)
> Da se nejak ten ODBC driver donutit aby povolil i zapis? Jestli to nekdo
vi
> dejte prosim vedet.
>
> Database je vygenerovana takto:
>
> CREATE DATABASE 'D:\IBDATA\PARTNERI.GDB'
> USER 'SYSDBA' PASSWORD '1' DEFAULT CHARACTER SET WIN1250;
>
> CONNECT 'D:\IBDATA\PARTNERI.GDB' USER 'SYSDBA' PASSWORD '1';
>
> CREATE TABLE ZEME (
> ID_ZEME INTEGER NOT NULL CONSTRAINT CC_017 CHECK (ID_ZEME >
> 0),
> KOD CHAR(3) NOT NULL COLLATE WIN1250,
> NAZEV VARCHAR(30) NOT NULL COLLATE WIN1250,
> DATUM_UPRAVY DATE NOT NULL,
> UZIVATEL_UPRAVY VARCHAR(20) NOT NULL COLLATE WIN1250,
> CONSTRAINT PK_ZEME PRIMARY KEY (ID_ZEME)
> );
>
> atd....
>
> Pavel Chaloupka
> E-Mail : chaloupka(zv)mboxzn(tec)cz
> V�voj SW
>
>
>
Systemova DLL
[*] Bielik Marian <bielik(zv)basl.sk> - 07.7.1998 16:24:03
Robi sa to cez pamatovo mapovane subory.
Bohuzial je to kapanek zlozite, ale ak najdem nejaky priklad tak ti to
poslem.
Ak nahodou natrafis na knihu "WINDOWS pro pokrocile a experty" tam je
to podrobne rozoberane.
Marian
Martin Fr�hlich wrote:
> Vazeni pratele.
>
> Potreboval bych poradit jak udelat systemovou DLL knihovnu, ktera by
> se
> chovala tak, ze by v
> pameti byla jenom jedna jeji instance a programy odkazujici se na ni
> meli
> pristup ke stejnym
> datum, tedy aby kazdy proces ktery ji byde vyuzivat nemel vlastni
> data.
> Tzn. kdyz jednim procesem zmenim data aby jiny o teto zmene take mohl
> dozvedet.
>
> Dekuji za kazdou radu
>
> Martin Frohlich
> UNITES
> ------------
> E-mail: unites(zv)telecom(tec)cz
Systemova DLL
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.7.1998 17:03:24
Haj hou!
DLL jsou mapovana do adresoveho prostotu procesu, ktery je pozaduje. Pod
Win16 je tento adresovy prostor sdileny, ale pod Win32 ma kazdy proces svuj
vlastni adresovy prostor a zadny pristup do dat jineho procesu (mimo jiste
anomalie u Win95). Pokud pouzivas D1, pak je DLL sdilene a tudiz i jeho data
(u Win16 je problem opacny, nutno vytvaret separatni data pri pripojeni
procesu na DLL), staci je jen vytvorit v globalni pameti (pres Win16 API).
Pokud mas D2,3,4 pak je situace dobre resitelna pres memory mapped files
(viz Win32 API Help u Delphi) na ktere existuji i komponenty na DSP nebo
Torry.
>Vazeni pratele.
>
>Potreboval bych poradit jak udelat systemovou DLL knihovnu, ktera by se
>chovala tak, ze by v
>pameti byla jenom jedna jeji instance a programy odkazujici se na ni meli
>pristup ke stejnym
>datum, tedy aby kazdy proces ktery ji byde vyuzivat nemel vlastni data.
>Tzn. kdyz jednim procesem zmenim data aby jiny o teto zmene take mohl
>dozvedet.
>
>Dekuji za kazdou radu
>
>Martin Frohlich
>UNITES
>------------
>E-mail: unites(zv)telecom(tec)cz
>
InterBase a ODBC
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 7.7.1998 18:16:26
Ja to pouz�vanm uz asi rok bez problemov. Triedenie je poriadku pre sloven�inu ale aj pre cestinu.
----------
> Od: Chaloupka Pavel <chaloupka(zv)mboxzn(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: InterBase a ODBC
> D�tum: 7. j�l 1998 16:05
>
> Hm... tak jednoduche to zase neni. Podle manualu k IB muzes napsat:
> WIN1250, PXW_CSY, PXW_HUNDC, PXW_PLK, PXW_SLO
> a porad je to spravne trideni pro WIN1250.
>
> Zkus si otevrit takovou databazi pres BDE-ODBC v database desktopu. Proste
> to nejde zapsat...
> Nebo doufam jde, ale ja nevim jak.
>
> -----P�vodn� zpr�va-----
> Od: TUNGLI Jan <tungli(zv)pvt.sk>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 7. �ervence 1998 15:47
> P�edm�t: RE: InterBase a ODBC
>
>
> Mas pouzit:
>
> Default character set WIN1250;
> .
> .
> .
> Create table ...
> PRIEZVISKO VARCHAR(25) collate PXW_CSY,
>
> Tungli
>
> ----------
> > Od: Chaloupka Pavel <chaloupka(zv)mboxzn(tec)cz>
> > Pre: Delphi Konference <delphi(zv)pinknet(tec)cz>
> > Predmet: InterBase a ODBC
> > D�tum: 6. j�l 1998 8:30
> >
> > Zdravim,
> >
> > mam takovy problem:
> > Mam Interbase databasi na Linuxu (a nedela to jenom na Linuxu dela to i
> > LocalInterbase na Win32). A chtel bych k ni pristupovat pres ODBC (z
> > aplikace ktera ma pouze pristup pres ODBC).
> > To ze ODBC driver nema LANGUAGE DRIVERY jsem vyresil konverzi do WIN1250.
> > Data jsou videt spravne cesky. Pouze pri zapisu textove polozky (VARCHAR)
> s
> > diakritikou do database ODBC driver ohlasi chybu:
> > [Visigenic][ODBC InterBase 4.x Driver][InterBase]arithmetic exception,
> > numeric overflow, or string truncation
> > Jestlize to napisu bez hacku a carek je vse OK.
> > Pres BDE to cte i zapisuje OK, taktez pres ISQL (tam nastavim SET NAMES
> > WIN1250).
> > Po ruznem testovani (delaly mi to i nativni komponenty na IB bez BDE) jsem
> > zjistil ze do Connect stringu je treba pridat:
> > ISC_DPB_LC_CTYPE=WIN1250 (to v pripade nativniho pristupu)
> > Da se nejak ten ODBC driver donutit aby povolil i zapis? Jestli to nekdo
> vi
> > dejte prosim vedet.
> >
> > Database je vygenerovana takto:
> >
> > CREATE DATABASE 'D:\IBDATA\PARTNERI.GDB'
> > USER 'SYSDBA' PASSWORD '1' DEFAULT CHARACTER SET WIN1250;
> >
> > CONNECT 'D:\IBDATA\PARTNERI.GDB' USER 'SYSDBA' PASSWORD '1';
> >
> > CREATE TABLE ZEME (
> > ID_ZEME INTEGER NOT NULL CONSTRAINT CC_017 CHECK (ID_ZEME >
> > 0),
> > KOD CHAR(3) NOT NULL COLLATE WIN1250,
> > NAZEV VARCHAR(30) NOT NULL COLLATE WIN1250,
> > DATUM_UPRAVY DATE NOT NULL,
> > UZIVATEL_UPRAVY VARCHAR(20) NOT NULL COLLATE WIN1250,
> > CONSTRAINT PK_ZEME PRIMARY KEY (ID_ZEME)
> > );
> >
> > atd....
> >
> > Pavel Chaloupka
> > E-Mail : chaloupka(zv)mboxzn(tec)cz
> > V�voj SW
> >
> >
> >
>
> Booleanovske vyrazy
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 7.7.1998 19:10:21
Ahoj Delphisti,
nemate nekdo nejakou funkci/unitu na vyhodnocovani logickych vyrazu ?
/nebo alespon nejaky napad, jak to udelat/
napr. '(1 or 0) and (0 or not(1 and 0))'
a aby z toho vypadlo '1'.
Nebo kdyby se to dalo jeste zmekcit a misto 1/0 zadavat %.
napr. '(90 or 10) and (20 or not(10 and 80))'
a aby z toho vypadlo 30% (alespon myslim, ze by to melo byt 30 :-).
Diky
Vojtech Semecky
PS : kdyby to bylo nahodou v C++, tak to nevadi.Cas a datum - trivialny problem
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 7.7.1998 21:04:41
Prosim Vas poradte mi niekto ako zistit aktualny cas a datum, sedim za pocitacom, kde nie je nainstalovany help k Delphi 3 a spamati to neviem. Diki moc, cim skor tym lepsie.
Pavel Koutny, koutny(zv)tkcmt.sk
Cas a datum - trivialny problem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.7.1998 21:11:45
Pavel Koutny wrote:
>
> Prosim Vas poradte mi niekto ako zistit aktualny cas a datum, sedim za pocitacom, kde nie je nainstalovany help k Delphi 3 a spamati to neviem. Diki moc, cim skor tym lepsie.
Ahoj,
v unitu SysUtils je:
function Now: TDateTime;
Petr Vones, amatersky programator
Cas a datum - trivialny problem
[*] ing. Jan Naiser <tua(zv)ltm(tec)cz> - 7.7.1998 21:15:08
Zkus Now
-----P�vodn� zpr�va-----
Od: Pavel Koutny <koutny(zv)tkcmt.sk>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 7. �ervence 1998 20:03
P�edm�t: Cas a datum - trivialny problem
>Prosim Vas poradte mi niekto ako zistit aktualny cas a datum, sedim za
pocitacom, kde nie je nainstalovany help k Delphi 3 a spamati to neviem.
Diki moc, cim skor tym lepsie.
>
>Pavel Koutny, koutny(zv)tkcmt.sk
Vice klientu na jednu Paradox tabulku
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 7.7.1998 21:36:19
Ahoj!
Mam aplikaci, ktera pouziva Paradox tabulky na sdilenych drivech. Je
zadouci, aby fungovalo zamykani i pres sit. Jak jsem pochopil, toho se da
docilit tim, ze se v BDECONFIGu nastavi NetPath na ten drive (na vsechn
klientech, pricemz na jednom je to lokalni drive). Ale mne to
nefunguje. Uvedu priklad:
Vezmu si jednoduchou aplikaci ukazujici tabulku v DBStringGridu. Pokud ji
spustim dvakrat na jednom pocitaci, v jedne instanci dam edit na polozku a v
druhe se o to pokusim, dostanu exception. To je v poradku. Ale pres sit to
nechodi - polozku muzu editovat nekolikrat. (Na ten drive maji vsichni povoleny
write.)
Diky za odpovedi,
Michal kara alias lemming
Cas a datum - trivialny problem
[*] �ke��k Jaroslav�������6�����̿ - 7.7.1998 22:13:51
ShowMessage(DateToStr(Date));
ShowMessage(TimeToStr(Time));
Jaro
>Prosim Vas poradte mi niekto ako zistit aktualny cas a datum, sedim za
pocitacom, kde nie je nainstalovany help k Delphi 3 a spamati to neviem.
Diki moc, cim skor tym lepsie.
>
>Pavel Koutny, koutny(zv)tkcmt.sk
Cas a datum - trivialny problem
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 7.7.1998 22:24:12
> ShowMessage(DateToStr(Date));
> ShowMessage(TimeToStr(Time));
>
> >Prosim Vas poradte mi niekto ako zistit aktualny cas a datum, sedim za
> pocitacom, kde nie je nainstalovany help k Delphi 3 a spamati to neviem.
> Diki moc, cim skor tym lepsie.
> >
Nebo: ShowMessage(DateTimeToStr(Now));
Michal Kara alias lemming
Cas a datum - trivialny problem
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 7.7.1998 22:42:00
> Prosim Vas poradte mi niekto ako zistit aktualny cas a datum, sedim za pocitacom, kde nie je nainstalovany help k Delphi 3 a spamati to neviem. Diki moc, cim skor tym lepsie.
>
> Pavel Koutny, koutny(zv)tkcmt.sk
...
var
DT:TDateTime;
begin
DT:=Now;
...
end;
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: zds(zv)pce.fairnet(tec)cz (Win1250/ISO-8859-2)
http://www.angelfire.com/biz/zds
*-----------------------------------------------*Cas a datum - trivialny problem
[*] �estm�r Najzar - 7.7.1998 22:48:12
Velmi jednoduse
XYZ := Now; // kde XYZ je promenna tDateTime.
Cestm�r Najzar
Dukelsk� 1053
739 11 Fr�dlant nad Ostravic�
tel/fax. 0658 675605
e-mail: najzar(zv)applet(tec)cz
Cas a datum - trivialny problem - vyriesene
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 7.7.1998 23:37:25
Uz je to vyriesene, vsetkym diki moc, este raz dik.
Pavel Koutny, koutny(zv)tkcmt.sk
Vice klientu na jednu Paradox tabulku
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 7.7.1998 23:49:07
Musis mit jednak nastaveny NET DIR na stejne misto v siti ale taky LOCAL
SHARE na True (nastavuje se DBE configu na kazde stanici) Pokus to udelas,
tak to pojede na 100%
Radek
-----Original Message-----
From: Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 7. �ervence 1998 21:41
Subject: Vice klientu na jednu Paradox tabulku
> Ahoj!
>
> Mam aplikaci, ktera pouziva Paradox tabulky na sdilenych drivech. Je
>zadouci, aby fungovalo zamykani i pres sit. Jak jsem pochopil, toho se da
>docilit tim, ze se v BDECONFIGu nastavi NetPath na ten drive (na vsechn
>klientech, pricemz na jednom je to lokalni drive). Ale mne to
>nefunguje. Uvedu priklad:
>
> Vezmu si jednoduchou aplikaci ukazujici tabulku v DBStringGridu. Pokud
ji
>spustim dvakrat na jednom pocitaci, v jedne instanci dam edit na polozku a
v
>druhe se o to pokusim, dostanu exception. To je v poradku. Ale pres sit to
>nechodi - polozku muzu editovat nekolikrat. (Na ten drive maji vsichni
povoleny
>write.)
>
> Diky za odpovedi,
> Michal kara alias lemming
>
>
>Vice klientu na jednu Paradox tabulku
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.7.1998 00:52:07
> Mam aplikaci, ktera pouziva Paradox tabulky na sdilenych drivech. Je
> zadouci, aby fungovalo zamykani i pres sit. Jak jsem pochopil, toho se da
> docilit tim, ze se v BDECONFIGu nastavi NetPath na ten drive (na vsechn
> klientech, pricemz na jednom je to lokalni drive). Ale mne to
> nefunguje. Uvedu priklad:
Ano, to je jeden nutny pozadavek, NET DIR musi ukazovat na jeden spolecny
adresar na serveru. Ale jeste je potreba nastavit LOCAL SHARE na TRUE.
Pak to teprve bude chodit spravne na siti.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================stored procedury
[*] Vladimir Vanicek 7-327.3 <V.Vanicek(zv)sh.cvut(tec)cz> - 8.7.1998 02:09:16
Ahoj,
moc se mi libi, ze v Interbasi lze psat snadno "select" stored procedury
pomoci prikazu SUSPEND. Nevedel by nekdo z vas, jak to sikovne udelat na
Oraclu 7.3 ?
Pokud jsem si vsiml, tak napr. procedury pro monitorovani ci analyzu vse
predavaji pres tabulky, data v nich se vsak nikde nemazou. Rad bych, kdyby to
slo udelat nejak bez starosti o mazani dat v tech tabulkach, nejlepe vubec bez
nich (je tam datovy typ TABLE ale ten se mi nepodarilo predat ven :-( ).
V Oraclu teprve zacinam, takze je mozne, ze mi neco podstatneho uniklo, ale
zadny priklad jsem na toto tema dosud neobjevil.
Predem dik,
Vlada.
___________________________________________________________________
! Vlada Vanicek | e-mail: V.Vanicek(zv)sh.cvut(tec)cz !
! Strahov 7/327 | (xVanicek(zv)kii.fsv.cvut(tec)cz) !
! PCname: lars.sh.cvut(tec)cz | WWW: http://kix.fsv.cvut(tec)cz/~xvanicek !
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<none>
[*] Martin Galik <galik_m(zv)hotmail(tec)com> - 08.7.1998 02:35:55 pdt
Nazdar.
Nevie mi niekto poradit, ako mozem zistit(v akej premennej sa
nachadazju) suradnice zvolenej bunky (alebo aspon riadku) v dbgrid alebo
dbctrlgrid? V zavislosti od tej bunky potrebujem vytvorit dalsie
funkcie.
Vdaka.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
suradnice pre bunku v dbgrid alebo dbctrlgrid.
[*] Martin Galik <galik_m(zv)hotmail(tec)com> - 08.7.1998 03:05:49 pdt
Nazdar.
Nevie mi niekto poradit, ako mozem zistit(v akej premennej sa
nachadazju) suradnice zvolenej bunky (alebo aspon riadku) v dbgrid alebo
dbctrlgrid? V zavislosti od tej bunky potrebujem vytvorit dalsie
funkcie.
Vdaka.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Cas a datum - trivialny problem
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 08.7.1998 07:27:02
Pavel Koutny wrote:
>
> Prosim Vas poradte mi niekto ako zistit aktualny cas a datum, sedim za pocitacom, kde nie je nainstalovany help k Delphi 3 a spamati to neviem. Diki moc, cim skor tym lepsie.
>
> Pavel Koutny, koutny(zv)tkcmt.sk
Funkce Date a Time
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Struktura menu
[*] Triblax (Bilbo) <triblax(zv)pobox.sk> - 8.7.1998 08:48:07
Zdravim Vas...
opat mam jednu otazku...
Existuje nejaky jednoduchy sposob, ako sa dostat k strukture normalneho menu
sposobom odstavcovy text podla struktury - strom??? priamo z delphi 3.0,
potreboval by som si to vytlacit, aj s hot-key...
dakujem za odpovede
juraj
InterBase ...(len tak?)
[*] Daniel Prynych <alvin(zv)hornet(tec)cz> - 8.7.1998 09:09:35
Treba u nas.
Buzuluk Komarov divize GUMA - Tvorba kusovniku
Server IB 4.0 - Linux 5.0
Clienti Win 95 + WinNT 4.0
Cenove je to opravdu velmi zajimave.
Dan
----------
> Odes�latel: Bielik Marian <bielik(zv)basl.sk>
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: InterBase ...(len tak?)
> Datum: 7. �ervence 1998 16:03
>
> Hi Delfini !
>
> Nerad otravujem , ale vsimol som si ze viaceri "bezite" na Interbase pod
> Linuxom.
> Pouzivate to v nejakom vacsom meritku a na serioznu pracu , alebo len
> tak pokusne ?
> Ide totiz o to , ze presviedcam par ludi o vyhodach Linuxu. Linux vcelku
> poznam,
> ale Interbase len z pocutia a trosku z lokalu (ked nieco zliepam v
> delphi).
> Nemyslim , ze by ludia pracujuci napr. s ORACLOM presli na Linux a
> InterBase
> ale niekde by to vzhladom na cenu bolo urcite viac nez zaujimave.Je mi
> jasne , ze
> je to prva a pravdepodobne aj posledna volne siritelna verzia, ale nie
> kazdy potrebuje kazdy mesiac novy databazovy server.
> Som presvedceny , ze na vhodnom HW to musi bezat maximalne uspokojivo
> len
> nemam cas to vyskusat.
> Takze ak vas to nebude otravovat , dajte (aspon strucne) vediet ake mate
> skusenosti.
>
> Dik.
> Marian.sql a tdatetime
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 08.7.1998 10:08:30
Ahoj,
poradite mi nekdo, zda existuje konverzni funkce (nebo jak pouzit
funkce formatdatetime) data a casu pro TQuery.SQL ?
'WHERE MainList.start>=' + f ( DT)
kde MainList.Start je obecne datum a cas.
Dekuji
Vaclav Sazima
Default value v Paradox tabulce
[*] Vitezslav Horky <vithor(zv)softcell(tec)cz> - 8.7.1998 10:09:21
Pros�m o radu:
P�i zakl�d�n� tabulky (typu Paradox for W. v.5) p�es FieldDefs, Add....
Create... pot�ebuji implicitn� naplnit hodnotu logick� prom�nn� na
true/false. Je tam v�ak hodnota "nev�m". V DatabaseDesktopu to je pole
DefaltValue.
D�ky.int 21
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 11:18:19
> sula milos wrote:
>
> Zdravim
> nevite nekdo jak nastavit/precist v delphi 2 vektor preruseni na adresu me procedury?
> v dosu to bylo celkem primitivni pres subfunkci 25h a 35h pres int21h v delphi 1 se
> to jeste take dalo vyresit pomoci call dos3call ale v delphi 2???(nemate nekdo na to nejakou free komponentu?, nebo nevite
> jak to napsat?)
Ahoj,
Uprime receno me vubec nenapada k cemu by melo byt dobre cist vektor preruseni
ve Win32 ? Muzes to nejak blize popsat ?
Petr Vones, amatersky programator
Send .PRN file to Network Printer?
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 8.7.1998 11:35:17
Ahoj Delphini,
obraciam sa na vas s prosbou o pomoc. Mam nasledovny problem: Pouzivam
Word97 z programu cez Automation objekt na tlac roznych listov (pomocou
MailMerge). Potrebujem z programu menit nastavenie obojstrannej tlace
(simplex, horiz. duplex, vert. duplex). Cez Automation to nejde (M$
bug):
FWordApplication := CreateOleObject('Word.Application');
...
Dlg := FWordApplication.Application.Dialogs.Item(88);
{DialogFilePrint}
case FDuplexMode of
dmSimplex : Dlg.DuplexPrint := 0; {tieto konstanty som nasiel v
type library}
dmVertical : Dlg.DuplexPrint := -1;
dmHorizontal : Dlg.DuplexPrint := 1;
end;
Dlg.Background := False;
Dlg.Update;
Dlg.Execute; {Word toto uplne ignoruje}
Office97 SR1 sa mi nepodarilo nainstalovat. Preto robim Print to file,
vo vyslednom subore prepisem prislusne riadiace znaky v PCL pripadne v
PostScripte a subor posielam na tlaciaren. S lokalnou tlaciarnou som na
to vcelku uspesne pouzival AddJob a ScheduleJob, ale tieto API funkcie
nefunguju so sietovou tlaciarnou. Takze moja otazka je: Ako poslat .PRN
subor na sietovu tlaciaren? Skusal som toto:
PrinterHandle := CreateFile(PrinterName, GENERIC_WRITE, 0,
PSecurityAttributes(nil), OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
{PrinterName je napr. '\\PRINTSRV\printer04'}
Potom som skusal WriteFile a TransmitCommChar ale zatial bez uspechu,
obe mi vracaju chyby. WriteFile mi dava ERROR_ADAP_HDW_ERR,
TransmitCommChar ERROR_INVALID_FUNCTION. Neskusal som zatial nastavovat
SecurityAttributes (podla tych chybovych kodov sa mi skor zda, ze robim
nejaku principialnu blbost ;).
Je to na NT 4 Workstation na sieti NT. Budem vam velmi vdacny za kazdu
radu.
Ondrej Kelle
kelleon(zv)nnsk.sk
Default value v Paradox tabulce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 11:38:06
Vitezslav Horky wrote:
>
> Pros�m o radu:
> P�i zakl�d�n� tabulky (typu Paradox for W. v.5) p�es FieldDefs, Add....
> Create... pot�ebuji implicitn� naplnit hodnotu logick� prom�nn� na
> true/false. Je tam v�ak hodnota "nev�m". V DatabaseDesktopu to je pole
> DefaltValue.
>
> D�ky.
Ahoj,
Nikde jsem nenasel moznost zadat DefaultValue. Ale v prikladech na BDE
API dbiDoRestructure je v Example 1 ukazka jak pridat validity check,
kde je i parametr DefVal, takze to by melo byt ono.
http://www.inprise.com/devsupport/bde/bdeapiex/dbidorestructure.html
Skoda ze uz to Borlandi neudelali primo v TFieldDef kdyz uz je tam Required
ktere je soucasti PVCHKDesc.
Petr Vones, amatersky programator
sql a tdatetime
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 8.7.1998 11:49:41
FormatDateTime zavisi od Regional Settings. Obecnym riesenim je asi
pouzitie parametra. Napr.
'SELECT ... WHERE MainList.start >= :DateParam'
Query1.ParamByName('DateParam').AsDateTime := date_x;
Query1.Open;
Ondrej Kelle
kelleon(zv)nnsk.sk
> -----Original Message-----
> From: Vaclav Sazima [SMTP:sazima(zv)comp(tec)cz]
> Sent: Wednesday, July 08, 1998 10:09 AM
> To: Delphi
> Subject: sql a tdatetime
>
> Ahoj,
> poradite mi nekdo, zda existuje konverzni funkce (nebo jak pouzit
> funkce formatdatetime) data a casu pro TQuery.SQL ?
>
> 'WHERE MainList.start>=' + f ( DT)
> kde MainList.Start je obecne datum a cas.
> Dekuji
> Vaclav Sazima
> sql a tdatetime
[*] Lubo Fule <fule(zv)sct.sk> - 8.7.1998 12:14:37
Najlepsie je to urobit pomocou parametra:
... WHERE MainList.start>=:DATUM
potom nastavis hodnotu parametra:
var TvojDatum:TDateTime;
TQuery.ParamByName('datum').AsDateTime:=TvojDatum;
a potom vykonas dotaz resp. otvoris Query.
-----Original Message-----
From: Vaclav Sazima [mailto:sazima(zv)comp(tec)cz]
Sent: Wednesday, July 08, 1998 10:09 AM
To: Delphi
Subject: sql a tdatetime
Ahoj,
poradite mi nekdo, zda existuje konverzni funkce (nebo jak pouzit
funkce formatdatetime) data a casu pro TQuery.SQL ?
'WHERE MainList.start>=' + f ( DT)
kde MainList.Start je obecne datum a cas.
Dekuji
Vaclav Sazima
int 21
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 8.7.1998 12:44:34
for example:
chci napsat aplikaci,ktera pri spusteni nastavi vektor preruseni na
proceduru, ktera se pri hardwarovym preruseni od paralelniho portu napr.
IRQ7 spusti. No a proc to chci cist? Abych byl schopen po ukonceni me
aplikace nastavit puvodni vektor preruseni, na ktery byla nastaven puvodne.
Bohuzel nevim jak to presne funguje ve win32, ale asi to bude jine nez pod
dosem ze?
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 8. �ervence 1998 12:03
P�edm�t: Re: int 21
>> sula milos wrote:
>>
>> Zdravim
>> nevite nekdo jak nastavit/precist v delphi 2 vektor preruseni na adresu
me procedury?
>> v dosu to bylo celkem primitivni pres subfunkci 25h a 35h pres int21h v
delphi 1 se
>> to jeste take dalo vyresit pomoci call dos3call ale v delphi 2???(nemate
nekdo na to nejakou free komponentu?, nebo nevite
>> jak to napsat?)
>
>Ahoj,
>
>Uprime receno me vubec nenapada k cemu by melo byt dobre cist vektor
preruseni
>ve Win32 ? Muzes to nejak blize popsat ?
>
> Petr Vones, amatersky programator
>
>ODBC
[*] Martin Sasek <sasek(zv)ujep(tec)cz> - 8.7.1998 13:11:48
Hezky den,
potrebuji z programu otevirat dynamicky DBF soubory pres ODBC FoxPro
ovladac a to na ruznych cestach. Asi delam nejakou chybu, ale nemohu toho
docilit. Zadam-li do Table.TableName jmeno souboru i s plnou cestou,
Microsoft Jet to nemuze pozrat a hlasi spatne zadane jmeno objektu. Mam-li
definovane DSN se specifikovanym adresarem je vse OK.
Predem dekuji za radu
Martin Sasek
e-mail : sasek(zv)orimex(tec)cz
sasek(zv)ujep(tec)cz
int 21
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.7.1998 13:28:18
Neviem ako to mas spravit ale chcem ta upozornit ze riesenie pravdepodobne bude take
ze program porusuje obecne zasadz programovania pod WINDOWS.
----------
> Od: sula milos <crkstrobe(zv)geocities.com>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: int 21
> D�tum: 8. j�l 1998 12:44
>
> for example:
> chci napsat aplikaci,ktera pri spusteni nastavi vektor preruseni na
> proceduru, ktera se pri hardwarovym preruseni od paralelniho portu napr.
> IRQ7 spusti. No a proc to chci cist? Abych byl schopen po ukonceni me
> aplikace nastavit puvodni vektor preruseni, na ktery byla nastaven puvodne.
> Bohuzel nevim jak to presne funguje ve win32, ale asi to bude jine nez pod
> dosem ze?
>
>
>
> -----P�vodn� zpr�va-----
> Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 8. �ervence 1998 12:03
> P�edm�t: Re: int 21
>
>
> >> sula milos wrote:
> >>
> >> Zdravim
> >> nevite nekdo jak nastavit/precist v delphi 2 vektor preruseni na adresu
> me procedury?
> >> v dosu to bylo celkem primitivni pres subfunkci 25h a 35h pres int21h v
> delphi 1 se
> >> to jeste take dalo vyresit pomoci call dos3call ale v delphi 2???(nemate
> nekdo na to nejakou free komponentu?, nebo nevite
> >> jak to napsat?)
> >
> >Ahoj,
> >
> >Uprime receno me vubec nenapada k cemu by melo byt dobre cist vektor
> preruseni
> >ve Win32 ? Muzes to nejak blize popsat ?
> >
> > Petr Vones, amatersky programator
> >
> >
> jak zaokrouhlovat?
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 8.7.1998 14:02:19
Ahoj,
chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
'nahoru'
na zadany pocet mist. Funkce by mohla mit hlavicku:
function RoundUp(Value: extended;Order: integer): extended;
Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych cisel.
Vsechny podnety jsou vitany.
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
suradnice pre bunku v dbgrid alebo dbctrlgrid.
[*] MotlicekP(zv)TESCOSW.CZ - 8.7.1998 15:42:56
Chlape, mozna to je slozite, ale alespon nejaky tip:
V unite Grids je deklarace TCustomGrid. Z toho je deden TCustomDBGrid a
z toho zase TDBGrid.
Koukni se jak je to tam. Urcite se vyznas v tvorbe komponent....
TCustomGrid je FCurrent, respektive protected property Col : read
FCurent.X a Row : read FCurrent.Y takze, kdyz muzes vytvorit novou
komponentu ci spise objekt jenom pouhym
TMyCustromGrid=class(TCustomGrid)
public
property Row.....
property Column.................
/* nebo pridej */
property Current : TGridCoord read FCurrent
write FCurrent;
end;
Dale nebudu pokracovat, ledaze by ti to nebylo jasne a ptal se dal.
Problem bude jak vytvorit novy TDBGrid i s temito public properties, ale
to by te melo navest.
> -----P�vodn� zpr�va-----
> Od: Martin Galik [SMTP:galik_m(zv)hotmail.com]
> Odesl�no: 8. �ervence 1998 12:06
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: suradnice pre bunku v dbgrid alebo dbctrlgrid.
>
> Nazdar.
> Nevie mi niekto poradit, ako mozem zistit(v akej premennej sa
> nachadazju) suradnice zvolenej bunky (alebo aspon riadku) v dbgrid
> alebo
> dbctrlgrid? V zavislosti od tej bunky potrebujem vytvorit dalsie
> funkcie.
> Vdaka.
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
nastavenie language BDE
[*] Marcel Telka <marcel(zv)vadium.sk> - 8.7.1998 15:48:00
Posielam unit, ktory som napisal (Delphi 2.0), ked som riesil podobny
problem.
Urcite funguje na zmenu lang. driveru v paradox tabulke.
dBase som neskusal (nastastie :).
Snad to pomoze.
**************************************************************************
unit LD;
interface
uses Bde, DBTables;
// short nazvy language driverov
const DB852CZ0 = 'DB852CZ0'; // tento driver je vhodny pre Sk aj Cz, Px aj
Db, triedi spravne ch
const BLLT1UK0 = 'BLLT1UK0'; // anglicky driver pre Px (mozno aj pre Db -
nie je overene)
// zmeni language driver v paradoxovskej tabulke
// tabulka nemusi byt otvorena
// language driver je short name (pozri konstanty hore)
// ak tabulka nie je Px spravanie je zatial nezname
procedure ChangePxLD(Tbl: TTable; LD: DBINAME);
implementation
uses SysUtils;
procedure ChangePxLD(Tbl: TTable; LD: DBINAME);
var
hDb: hDbiDb;
TblDesc: CRTblDesc;
Dir: String;
OptFld: FLDDesc;
OldActive: Boolean;
begin
OldActive := Tbl.Active; Tbl.Active := True;
SetLength(Dir, dbiMaxNameLen + 1);
Check(DbiGetDirectory(Tbl.DBHandle, False, PChar(Dir)));
SetLength(Dir, StrLen(PChar(Dir)));
FillChar(TblDesc, sizeof(CRTblDesc), #0);
try
Tbl.DisableControls;
Tbl.Close;
Check(DbiOpenDatabase(nil, nil, dbiReadWrite, {dbiOpenExcl}
dbiOpenShared, nil, 0, nil, nil, hDb));
Check(DbiSetDirectory(hDb, PChar(Dir)));
with OptFld do begin
szName := 'LANGDRIVER';
iLen := 6;
iOffset := 0;
end;
with TblDesc do begin
iOptParams := 1;
pfldOptParams := (zv)OptFld;
pOptData := (zv)LD;
StrPCopy(szTblName, Tbl.TableName);
StrCopy(szTblType, szParadox);
end;
Check(DbiDoRestructure(hDb, 1, (zv)TblDesc, nil, nil, nil, False));
finally
Check(DbiCloseDatabase(hDb));
Tbl.EnableControls;
Tbl.Active := OldActive;
end;
end;
end.
**************************************************************************
Ing. Marcel Telka <marcel(zv)vadium.sk>
Vadium s.r.o., Plzenska 4, SK - 080 01 Presov
http://www.vadium.sk/ Tel./fax: ++421 91 721 160
>Zdravim Delfinov!
>
>Potrebujem zmenit language driver tabulky ('ascii' ANSI >>> dBASE SLO
>cp852) za behu
>programu.
>
>Dik za radu!
>
>
Tisk na LPT
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 8.7.1998 16:11:50
Uz drive tady byl resen (a nedoresen) primy tisk na LPT. asi nejjednodussi primy pristup na takove zarizeni se mi zda pres AssignFile, kde se jako misto souboru uvede napr. LPT1 a pak se napr. pomoci WriteLN zapisuje, coz funguje bez problemu. Ale v pripade, ze tiskarna neni pripojena, nebo neni online, tak se to u procedury WriteLN zablokuje, dokud se tiskarna nerozjede. V Pascalu pod DOSem do fungovalo bez problemu (vyhlasilo to chybu I/O). Vyzkousel jsem i ruzne direktivy, napr $I, ale bez uspechu. Neresil nekdo podobny problem?
Diky Radek
PS: Jak to vypada s timto problemem i Sestavy SINEA, pane Skeriku?
Prace s Canvasem
[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 8.7.1998 16:54:36
Zdravim vsechny v teto konferenci,
potreboval bych poradit s jednim problemem.
Mam aplikaci, kde potrebuji tisknout urcite prukazky, ktere maji obsahovat i
grafiku. Chtel bych ale nejprve tyto prukazky zobrazit na obrazovce jako
nahled, potom bych rad cely Canvas prekreslil na Canvas tiskarny. Zatim jsem
to delal tim zpusobem, ze jsem umistil na formular Paintbox, do toho jsem to
vykreslil a v udalosti formulare OnPaint jsem spoustel proceduru na
vykresleni. Jenze kdyz jsem to chtel zobrazit ve vetsi velikosti, objevily
se Scrollbary a clovek se musel posouvat po celem formulari nize. Problem
byl ale v tom, ze v horni casti formulare jsem mel listu s tlacitky, ktera
bych potreboval, aby byla porad videt.
Zacal jsem to resit tak, ze jsem misto Paintboxu vlozil na formular
komponentu SrollBar a do te jsem umistil komponentu Image. Za behu Image
zvetsim na velikost Canvasu tiskarny a do Image.Picture.Bitmap.Canvas
vykreslim potrebnou grafiku. Je to ale priserne pomale a kdyz se snazim to
znovu prekreslit, napise to hlasku "Out of system resources". Stacilo by mi
to vykreslovat do normalniho Paintboxu, ale jak bych mohl vyresit
prekreslovani pri posouvani ve Scrollboxu?
Mohl by mi prosim nekdo poradit, jak bych toto zobrazovani mohl vyresit?
Budu vdecen za vsechny rady.
Diky
Ricky...
rick.strunc(zv)email(tec)cz
rick.strunc(zv)writeme.com
ICQ: 13408022
Zvuky typu RA
[*] Ing. J�n Kuch�r <kuchar(zv)tuke.sk> - 8.7.1998 17:10:06
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute !
Potrebujem radu ako pomocou Delphi 3 vo W95 prehrat zvuk typu RA (Real Audio) bez toho aby som spustal externy Real Player. Najviac by mi bodla nejaka komponenta.
Za odpovede diky
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
suradnice pre bunku v dbgrid alebo dbctrlgrid.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 18:41:26
MotlicekP(zv)TESCOSW.CZ wrote:
>
> Chlape, mozna to je slozite, ale alespon nejaky tip:
>
> V unite Grids je deklarace TCustomGrid. Z toho je deden TCustomDBGrid a
> z toho zase TDBGrid.
> Koukni se jak je to tam. Urcite se vyznas v tvorbe komponent....
>
> TCustomGrid je FCurrent, respektive protected property Col : read
> FCurent.X a Row : read FCurrent.Y takze, kdyz muzes vytvorit novou
> komponentu ci spise objekt jenom pouhym
> TMyCustromGrid=class(TCustomGrid)
> public
> property Row.....
> property Column.................
> /* nebo pridej */
> property Current : TGridCoord read FCurrent
> write FCurrent;
> end;
>
Ahoj,
.... nebo pouzij komponentu TRxDBGrid z RxLib. Tam uz jsou vlastnosti
Row a Col v public.
Petr Vones, amatersky programator
ODBC
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 18:44:10
Martin Sasek wrote:
>
> Hezky den,
> potrebuji z programu otevirat dynamicky DBF soubory pres ODBC FoxPro
> ovladac a to na ruznych cestach. Asi delam nejakou chybu, ale nemohu toho
> docilit. Zadam-li do Table.TableName jmeno souboru i s plnou cestou,
> Microsoft Jet to nemuze pozrat a hlasi spatne zadane jmeno objektu. Mam-li
> definovane DSN se specifikovanym adresarem je vse OK.
>
> Predem dekuji za radu
>
Ahoj,
Primo s ODBC ti neporadim, ale pokud pouzivas 32bit Delphi tak si stahni od
Borlandu update na BDE 4.51, tam je uz primy ovladac na FoxPro do verze 2.6
a nebudes muset pouzivat ODBC. Petr Vones, amatersky programator
jak zaokrouhlovat?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.7.1998 19:05:29
Ozaj zaokruhlenie je iba zdanlivo jednoduchy problem.
Popis parametrov:
hore ak pSposob=3
prirodzene ak pSosob=2
dole ak pSposob=1
pFrac je pocet desatinnych miest na zaokruhlenie
Ak chcete zaokruhlit na stovky, tisicky tak treba zadat zaporne cisla (-2), (-3)
function Zaokruhluj(pD:double; pSposob:byte; pFrac:integer):double;
var mL:integer;
i,j,k:integer;
mA:string;
mBo:boolean;
begin
result:=pD;
if pD=0 then exit;
if (pSposob<=0) or (pSposob>3) then exit;
if pFrac>8 then pFrac:=8;
if pFrac<(-8) then pFrac:=(-8);
mL:=1;
for i:=1 to Abs(pFrac) do mL:=mL*10;
if pD<0 then mL:=(-mL);
case pSposob of
1:;{Dole}
2:{prirodzene}
if pFrac<0 then pD:=pD+0.499*mL else pD:=pD+0.499/mL;
3:{hore}
if pFrac<0 then pD:=pD+0.999*mL else pD:=pD+0.999/mL;
end; {case}
if (pFrac>0) then Str(pD:0:pFrac,mA) else
begin
Str(pD:0:0,mA);
i:=Pos('.',mA); if i=0 then i:=length(mA)+1;
j:=i+pFrac; if j<0 then j:=0;
if pFrac<0 then j:=j-1;
for k:=j+1 to length(mA) do if mA[k] in ['1'..'9'] then mA[k]:='0';
end;
Val(mA,pD,i);
Result:=pD;
End; {}
Tungli
----------
> Od: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: jak zaokrouhlovat?
> D�tum: 8. j�l 1998 14:02
>
> Ahoj,
>
> chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
> 'nahoru'
> na zadany pocet mist. Funkce by mohla mit hlavicku:
>
> function RoundUp(Value: extended;Order: integer): extended;
>
> Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych cisel.
> Vsechny podnety jsou vitany.
>
>
> S pozdravem,
> Miloslav Skacel
> skacel(zv)kjsoft(tec)cz
> http://www.kjsoft(tec)cz
>
>
> jak zaokrouhlovat?
[*] Pavel Kral <kral(zv)afx(tec)cz> - 8.7.1998 19:12:25
Ahoj
Co treba takhle:
function RoundUp(Value: extended; Order: integer): extended;
var V: extended;
Nasobek: extended;
i: integer;
begin
{ Order je rad, tj. 0 zaokrouhluje na cela, -1 na jedno des. misto atd.}
Nasobek:= 1;
if Order>0 then
begin
for i:= 1 to Order do
Nasobek:= Nasobek * 10;
end
else
begin
for i:=Order to -1 do
Nasobek:= Nasobek / 10;
end;
v:= Value / Nasobek;
V:= Round(V+0.5);
V:= V * Nasobek;
Result:= V;
end;
Cau Pavel
-----Original Message-----
From: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 8. �ervence 1998 18:13
Subject: jak zaokrouhlovat?>Ahoj,
>
>chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
>'nahoru'
>na zadany pocet mist. Funkce by mohla mit hlavicku:
>
>function RoundUp(Value: extended;Order: integer): extended;
>
>Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych cisel.
>Vsechny podnety jsou vitany.
>
>
>S pozdravem,
>Miloslav Skacel
>skacel(zv)kjsoft(tec)cz
>http://www.kjsoft(tec)cz
>
>
>
>
Tisk na LPT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 19:25:26
> Radek Sou�ek wrote:
>
> Uz drive tady byl resen (a nedoresen) primy tisk na LPT. asi nejjednodussi primy pristup na takove zarizeni se mi zda pres
> AssignFile, kde se jako misto souboru uvede napr. LPT1 a pak se napr. pomoci WriteLN zapisuje, coz funguje bez problemu. Ale
> v pripade, ze tiskarna neni pripojena, nebo neni online, tak se to u procedury WriteLN zablokuje, dokud se tiskarna
> nerozjede. V Pascalu pod DOSem do fungovalo bez problemu (vyhlasilo to chybu I/O). Vyzkousel jsem i ruzne direktivy, napr $I,
> ale bez uspechu. Neresil nekdo podobny problem?
Ahoj,
Pouzivam podobny zpusob tisku, vypada asi takhle:
procedure TForm1.Button1Click(Sender: TObject);
var
PrnFile: TextFile;
begin
AssignPrn(PrnFile);
Rewrite(PrnFile);
Printer.Canvas.Font.Name := 'Courier New';
Printer.Canvas.Font.PixelsPerInch := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
Writeln(PrnFile, 'ABC...');
System.CloseFile(PrnFile);
end;
Pokud neni tiskarna pripojena, tak se bud stranka zaradi do fronty a tim je tisk hned
vyrizen, nebo pokud je u tiskarny explicitne nastaven primy tisk tak se po nekolika
vterinach objevi chybove hlaseni Windows ze nelze tisknout. Ani v jednom pripade se
mi vsak program nezablokuje tak abych musel pripojit tiskarnu (ted tu stejne ani
zadnou nemam).
Jina moznost tisku je primy zapis na LPT port tiskarny, to uz se zde taky probiralo,
ale nevyhodou je ze je pak nutne si predtim precist informace o tiskarne (kvuli
strankovani apod).
Petr Vones, amatersky programator
Spojeni tabulek ve vice databazich
[*] Boris Pe�ka <baris(zv)post(tec)cz> - 08.7.1998 19:47:14
Zdravim !
Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
ruznych databazi v Sybase SQL Anywhere ?
Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
"Tabulka2".
Radu bych si predstavoval asi v tomhle tvaru:
SELECT "Tabulka1".*, "Tabulka2".*
FROM "Tabulka1", "Tabulka2"
WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
Diky moc vsem za odpoved.
Boris
Prace s Canvasem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 19:53:09
Richard Strunc wrote:
>
> Zdravim vsechny v teto konferenci,
>
> potreboval bych poradit s jednim problemem.
> Mam aplikaci, kde potrebuji tisknout urcite prukazky, ktere maji obsahovat i
> grafiku. Chtel bych ale nejprve tyto prukazky zobrazit na obrazovce jako
> nahled, potom bych rad cely Canvas prekreslil na Canvas tiskarny. Zatim jsem
> to delal tim zpusobem, ze jsem umistil na formular Paintbox, do toho jsem to
> vykreslil a v udalosti formulare OnPaint jsem spoustel proceduru na
> vykresleni. Jenze kdyz jsem to chtel zobrazit ve vetsi velikosti, objevily
> se Scrollbary a clovek se musel posouvat po celem formulari nize. Problem
> byl ale v tom, ze v horni casti formulare jsem mel listu s tlacitky, ktera
> bych potreboval, aby byla porad videt.
Ahoj,
Tak to udelej tak ze na misto PaintBoxu dej TScrollBox a do neho teprve
PaintBox. Pokud zvetsis rozmer PaintBoxu tak se ti bude posouvat pouze
v plose ScrollBoxu a ne cely formular (ktery ma nastaveno AutoScroll na True).
Tlacitka umistis na samostatny Panel a budou videt porad.
> Zacal jsem to resit tak, ze jsem misto Paintboxu vlozil na formular
> komponentu SrollBar a do te jsem umistil komponentu Image. Za behu Image
> zvetsim na velikost Canvasu tiskarny a do Image.Picture.Bitmap.Canvas
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
No, vem si ze bezna tiskarna mas dnes 300 dpi, takze na 1 palec ctverecni
mas 90 kB pri 256 barvach, stranka A4 ma 8.5x11" -> pres 8M (!)
> vykreslim potrebnou grafiku. Je to ale priserne pomale a kdyz se snazim to
> znovu prekreslit, napise to hlasku "Out of system resources". Stacilo by mi
> to vykreslovat do normalniho Paintboxu, ale jak bych mohl vyresit
> prekreslovani pri posouvani ve Scrollboxu?
(viz vyse)
Petr Vones, amatersky programator
int 21
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.7.1998 20:00:54
sula milos wrote:
> for example:
> chci napsat aplikaci,ktera pri spusteni nastavi vektor preruseni na
> proceduru, ktera se pri hardwarovym preruseni od paralelniho portu
> napr. IRQ7 spusti. No a proc to chci cist? Abych byl schopen po
> ukonceni me aplikace nastavit puvodni vektor preruseni, na ktery
> byla nastaven puvodne. Bohuzel nevim jak to presne funguje ve win32,
> ale asi to bude jine nez pod dosem ze?
No, je to hodne jine.Jestli ti mohu doporucit, tak na HW ve
Woknousech vubec nesahej, ale najdi si prislusne API funkce. Pak te
prestane (nejspis) trapit i vektor preruseni.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zvuky typu RA
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 8.7.1998 20:52:14
Free komponenta pokial viem neexistuje a neviem ani o nejakej shareware komponente, mozno existuje nieco komercne ale vazne o tom pochybujem. Nedavno som potreboval urobit prehravanie MPEG Layer-II,III a to co bolo skutocne poriadne (bez externych dll a pod), bola komercna zalezitost. Hladal som aj ine formaty RealAudio, Quicktime, ale bezuspesne.
Pavel Koutny, koutny(zv)tkcmt.sk
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
Odesl�no: 8. j�l 1998 17:10
Komu: Delphi
P�edm�t: Zvuky typu RA
Caute !
Potrebujem radu ako pomocou Delphi 3 vo W95 prehrat zvuk typu RA (Real
Audio) bez toho aby som spustal externy Real Player. Najviac by mi bodla
nejaka komponenta.
����������������������������������������������������������� Za odpovede
diky
Katedra v�robn�ch inov�ci�
SjF TU Ko�ice
Ing. J�n Kuch�r
E-mail : kuchar(zv)tuke.sk
<<Soubor: ATT00001.html>>
jak zaokrouhlovat?
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 8.7.1998 20:56:31
Ahoj,
diky za namety.
1. nelze pouzit function Round(X: Extended): Longint;
problem je Longint, rozsah typu Extended je nekde jinde:)
Navic Round pouziva tzv. bankovni zaokrouhlovani
Round(2.5)=2; Round(1.5)=2
2. zpusob prevest cislo na retezec a zpet je moc moc moc pomaly
a nektere detaily mi zatim unikaji, napr.
> 3:{hore}
> if pFrac<0 then pD:=pD+0.999*mL else pD:=pD+0.999/mL;
Proc prave koeficient 0.999 a ne treba 0.9 nebo 0.9999?
Vedel by nekdo o dalsi moznosti?
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz int 21
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 21:02:14
sula milos wrote:
>
> for example:
> chci napsat aplikaci,ktera pri spusteni nastavi vektor preruseni na
> proceduru, ktera se pri hardwarovym preruseni od paralelniho portu napr.
> IRQ7 spusti. No a proc to chci cist? Abych byl schopen po ukonceni me
> aplikace nastavit puvodni vektor preruseni, na ktery byla nastaven puvodne.
> Bohuzel nevim jak to presne funguje ve win32, ale asi to bude jine nez pod
> dosem ze?
Ahoj,
Tak to nebude asi vubec jednoduche, ve Win32 nemuzes jen tak jednoduse
pristupovat k hardwaru jako tomu bylo v DOSu, tam to slo proto ze to
vlastne nebyl zadny operacni system, jen zavadec souboru ... :-)
Predstav si, ze by byl dovolen primy pristup k HW a delalo by to tak
vic aplikaci a ty bys sis je vsechny spustil, jak by to dopadlo je asi
zrejme.
Pokud chces sahat primo na IRQ tak to budes muset resit napsanim vlastniho
VxD driveru (ve Win95), nebo pouzitim nejakych hotovych knihoven, ty ale
nejsou zrovna nejlevnejsi. Jinak cteni z paralelniho portu, pokud pouzivas
stejny protokol jako tiskarny by melo jit pomoci API funkci pro praci se
soubory. Jestli ale potebujes jen cist cas od casu nejaky log.stav tak bych
zkusil treba gameport.
Petr Vones, amatersky programator
Zvuky typu RA
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.7.1998 21:11:48
> Ing. J�n Kuch�r wrote:
>
> Caute !
> Potrebujem radu ako pomocou Delphi 3 vo W95 prehrat zvuk typu RA (Real Audio) bez
toho aby som spustal externy Real Player.
> Najviac by mi bodla nejaka komponenta.
Ahoj,
o zadne takove komponente nevim, ale muzes si importovat RealAudio Player jako
ActiveX komponentu do Delphi. Problem pak asi bude distribuce takove hotove
aplikace, musel by jsi s ni instalovat i Real Player a taky otazka jak je
licencne .....
Petr Vones, amatersky programator
jak zaokrouhlovat?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.7.1998 22:00:12
Toto riesenie je ozaj jednoduhsi ale uplne nespravne.
Treba vyskusat krajne pripady.
Tungli
----------
> Od: MJsoft <MJsoft(zv)rkc(tec)czn(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: jak zaokrouhlovat?
> D�tum: 8. j�l 1996 19:57
>
> Delphi Zdar
> ----------------
>
>
> Videl bych to jednoduseji nezli kolega prede mnou.
>
>
> function RoundUp(Value: extended;Order: integer): extended;
> var Koef:real;
> I:integer;
> begin
> Koef:=1;
> if Order>=0 then
> for I:=1 to Order do
> koef:=Koef*10
> else
> for I:=Order+1 to 0 do
> koef:=Koef/10;
>
> Result:=Round(Value*Koef)/Koef;
> //zde lze pou��t Round pro p�irozen� zaokrouhlen�
> // Trunc pro useknut�
> // Int pro zaokrouhlen� dolu
> end;
>
>
> Douf�m, ze ti to k necemu bude.
>
>
> MJ soft - Jelen Jindrich ml.
>
>
>
>
>
> ----------
> > Odes�latel: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
> > Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> > P�edm�t: jak zaokrouhlovat?
> > Datum: 8. �ervence 1998 14:02
> >
> > Ahoj,
> >
> > chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
> > 'nahoru'
> > na zadany pocet mist. Funkce by mohla mit hlavicku:
> >
> > function RoundUp(Value: extended;Order: integer): extended;
> >
> > Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych cisel.
> > Vsechny podnety jsou vitany.
> >
> >
> > S pozdravem,
> > Miloslav Skacel
> > skacel(zv)kjsoft(tec)cz
> > http://www.kjsoft(tec)cz
> > jak zaokrouhlovat?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.7.1998 22:02:41
Zial aj toto riesenie je nespravne.
Tungli
----------
> Od: Pavel Kral <kral(zv)afx(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: jak zaokrouhlovat?
> D�tum: 8. j�l 1998 19:12
>
> Ahoj
> Co treba takhle:
>
> function RoundUp(Value: extended; Order: integer): extended;
> var V: extended;
> Nasobek: extended;
> i: integer;
> begin
> { Order je rad, tj. 0 zaokrouhluje na cela, -1 na jedno des. misto atd.}
> Nasobek:= 1;
> if Order>0 then
> begin
> for i:= 1 to Order do
> Nasobek:= Nasobek * 10;
> end
> else
> begin
> for i:=Order to -1 do
> Nasobek:= Nasobek / 10;
> end;
> v:= Value / Nasobek;
> V:= Round(V+0.5);
> V:= V * Nasobek;
> Result:= V;
> end;
>
> Cau Pavel
> -----Original Message-----
> From: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
> To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Date: 8. �ervence 1998 18:13
> Subject: jak zaokrouhlovat?
>
>
> >Ahoj,
> >
> >chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
> >'nahoru'
> >na zadany pocet mist. Funkce by mohla mit hlavicku:
> >
> >function RoundUp(Value: extended;Order: integer): extended;
> >
> >Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych cisel.
> >Vsechny podnety jsou vitany.
> >
> >
> >S pozdravem,
> >Miloslav Skacel
> >skacel(zv)kjsoft(tec)cz
> >http://www.kjsoft(tec)cz
> >
> >
> >
> >
> >
>
> sql a tdatetime
[*] �ke��k Jaroslav�������6�����̿ - 8.7.1998 22:22:58
Pouzij funkci CAST()
. . . WHERE HIRE_DATE = CAST(DT AS DATE);
>From Data Type To Data Type
---------------------------------------------------------------
NUMERIC CHARACTER, DATE
CHARACTER NUMERIC, DATE
DATE CHARACTER, NUMERIC
Jaro
-----------
> Ahoj,
> poradite mi nekdo, zda existuje konverzni funkce (nebo jak pouzit
>funkce formatdatetime) data a casu pro TQuery.SQL ?
>
> 'WHERE MainList.start>=' + f ( DT)
>kde MainList.Start je obecne datum a cas.
> Dekuji
> Vaclav Sazima
>Spojeni tabulek ve vice databazich
[*] �ke��k Jaroslav�������6�����̿ - 8.7.1998 22:47:31
Pochybuji o tom, �e to pujde takto snadno.
SELECT se odkazuje na tabulky zapsane za kluzuli FROM
uvnit databaze, ktera je ovsen urcena prostrednictvim
TQuery.DatabaseName.
Pro jedno TQuery je pripojena jenom jedna Database.
Jaro
---------------
>Zdravim !
>
> Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
>ruznych databazi v Sybase SQL Anywhere ?
>
>Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
>V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
>"Tabulka2".
>
>
> Radu bych si predstavoval asi v tomhle tvaru:
>
>SELECT "Tabulka1".*, "Tabulka2".*
>FROM "Tabulka1", "Tabulka2"
>WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
>
>
> Diky moc vsem za odpoved.
>
> Boris
Desktop Folder Win98
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 8.7.1998 22:51:45
Windows98 to maju ulozene takto:
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
polozka uz klasicky Desktop
chyba tam to \.Default\
Pavel Koutny, koutny(zv)tkcmt.sk
Spojeni tabulek ve vice databazich
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.7.1998 23:50:30
SELECT CUSTOMER.CUSTNO, ORDERS.ORDERNO
FROM :Oracle1:CUSTOMER, :Sybase1:ORDERS
kde Oracle1 a Sybase1 su definovane aliasi v BDE , aspon tak je to v manuali ale ani mne sa to este nepodarilo.
Budem rad ked ma informujes ked sa ti to podari.
Tungli(zv)pvt.sk
----------
> Od: �ke��k Jaroslav <jaro(zv)zbk(tec)czn(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: Spojeni tabulek ve vice databazich
> D�tum: 8. j�l 1998 22:47
>
> Pochybuji o tom, �e to pujde takto snadno.
> SELECT se odkazuje na tabulky zapsane za kluzuli FROM
> uvnit databaze, ktera je ovsen urcena prostrednictvim
> TQuery.DatabaseName.
> Pro jedno TQuery je pripojena jenom jedna Database.
> Jaro
> ---------------
>
>
> >Zdravim !
> >
> > Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
> >ruznych databazi v Sybase SQL Anywhere ?
> >
> >Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
> >V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
> >"Tabulka2".
> >
> >
> >
> > Radu bych si predstavoval asi v tomhle tvaru:
> >
> >SELECT "Tabulka1".*, "Tabulka2".*
> >FROM "Tabulka1", "Tabulka2"
> >WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
> >
> >
> > Diky moc vsem za odpoved.
> >
> > Boris
> int 21
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.7.1998 00:49:23
> nevite nekdo jak nastavit/precist v delphi 2 vektor preruseni na adresu =
> me procedury?
> v dosu to bylo celkem primitivni pres subfunkci 25h a 35h pres int21h v =
> delphi 1 se
> to jeste take dalo vyresit pomoci call dos3call ale v delphi 2???(nemate =
> nekdo na to nejakou free komponentu?, nebo nevite jak to napsat?)
Tak na to zapomen. Na ovladac hardware musis udelat ve Win95 ovladac VXD.
Pod NT je to zase jiny ovladac. A k tomu potrebujes Win32 DDK, zapomen
na Delphi, to se pise v assembleru...
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Prace s Canvasem
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.7.1998 07:09:16
Richard Strunc wrote:
> jsem to chtel zobrazit ve vetsi velikosti, objevily se Scrollbary a
> clovek se musel posouvat po celem formulari nize. Problem byl ale v
> tom, ze v horni casti formulare jsem mel listu s tlacitky, ktera
> bych potreboval, aby byla porad videt.
>
> Zacal jsem to resit tak, ze jsem misto Paintboxu vlozil na formular
> komponentu SrollBar a do te jsem umistil komponentu Image.
ScrollBar? Nemel by to byt spise ScrollBox a do nej PaintBox?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Proporce
[*] Josef Madlik <madlik(zv)jsp(tec)cz> - 9.7.1998 07:31:54
Dobry den vespolek
Pred casem tu probehla diskuse nad, tim jak zachovat proporce
formulare pri jeho zvetseni/zmenseni. Nekdo rikal, ze ma komponentu,
kterou staci pridat na formular a ta to zaridi sama. Nejak mi to ale
uniklo. Tak prosim jestli tuto komponentu nekdo ma, nebo o jakou
jde , prip. kde ji sezenu.
Diky
----------------------------------------------------------------------------------
Ing. Josef Madlik
JSP s.r.o. Nova Paka - Merici a regulacni technika
Gebauerova 1161, 509 01 Nova Paka
tel: 0434/ 621 253 fax: 0434/ 621 280
e-mail: madlik(zv)jsp(tec)cz
WWW: http://www.jsp(tec)cz
int 21
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 9.7.1998 07:48:22
No ja pro primy pristup k paralelnimu portu pouzivam v assembleru klasicke
in a out a funguje mi to zatim ve vsech aplikacich bez problemu (aspon pod
win95) a jak sem se dival do komponent k delphi je to tam taky tak vetsinou
reseno (aspon pro w95). Ale pro osetreni IRQ je driver opravdu nutny (nasel
jsem sharewarovou komponentu TVicHW32 ale stoji $99-v te je reseno vsechno
pres drivery).
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 8. �ervence 1998 21:41
P�edm�t: Re: int 21
>sula milos wrote:
>>
>> for example:
>> chci napsat aplikaci,ktera pri spusteni nastavi vektor preruseni na
>> proceduru, ktera se pri hardwarovym preruseni od paralelniho portu napr.
>> IRQ7 spusti. No a proc to chci cist? Abych byl schopen po ukonceni me
>> aplikace nastavit puvodni vektor preruseni, na ktery byla nastaven
puvodne.
>> Bohuzel nevim jak to presne funguje ve win32, ale asi to bude jine nez
pod
>> dosem ze?
>
>Ahoj,
>
>Tak to nebude asi vubec jednoduche, ve Win32 nemuzes jen tak jednoduse
>pristupovat k hardwaru jako tomu bylo v DOSu, tam to slo proto ze to
>vlastne nebyl zadny operacni system, jen zavadec souboru ... :-)
>Predstav si, ze by byl dovolen primy pristup k HW a delalo by to tak
>vic aplikaci a ty bys sis je vsechny spustil, jak by to dopadlo je asi
>zrejme.
>
>Pokud chces sahat primo na IRQ tak to budes muset resit napsanim vlastniho
>VxD driveru (ve Win95), nebo pouzitim nejakych hotovych knihoven, ty ale
>nejsou zrovna nejlevnejsi. Jinak cteni z paralelniho portu, pokud pouzivas
>stejny protokol jako tiskarny by melo jit pomoci API funkci pro praci se
>soubory. Jestli ale potebujes jen cist cas od casu nejaky log.stav tak bych
>zkusil treba gameport.
>
> Petr Vones, amatersky programator
>
>int 21
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.7.1998 08:45:10
Bohuzel, a ani pod Dos to nebylo jednoduche, chtel-li jsi pouzit tuto
techniku
v Protected modu. A Win95, rekl bych, jedou v rezimu V86.
Kdysi jsem kdesi videl ukazku jak presmerovat volani libovolne API fce.
Proste
jsi napriklad presmeroval SetPixel a predkazdym volanim teto fce se zavolala
tvoje. Ale bohuzel nevim kde...kazdopadne pohledam.
Martin
Spojeni tabulek ve vice databazich
[*] Miroslav Medrik <spcevt(zv)infos(tec)cz> - 9.7.1998 08:47:02
>SELECT CUSTOMER.CUSTNO, ORDERS.ORDERNO
>FROM :Oracle1:CUSTOMER, :Sybase1:ORDERS
>
>kde Oracle1 a Sybase1 su definovane aliasi v BDE , aspon tak je to v
manuali ale ani mne sa to este nepodarilo.
>Budem rad ked ma informujes ked sa ti to podari.
chybi uvozovky
FROM ":Oracle1:CUSTOMER", ":Sybase1:ORDERS"
pokud je v DatabaseName napr Sybase1 staci takto
FROM ":Oracle1:CUSTOMER", ORDERS
S pozdravem M.M.
jak zaokrouhlovat?
[*] Ing. Miroslav Ond��ek - 9.7.1998 09:37:48
A co takto ? Je to sice pres stringy, ale mohlo by to byt dost rychle.
function RoundUp(Value: extended;Order: integer): extended;
var
Y:Extended;
i,j:Integer;
S:String;
begin
S:=FloatToStrF(Value,ffNumber,18,18);
j := Pos(',' , S); {Pro anglickou verzi tu mus� byt '.'}
if j > 0 then
begin
Y := 10;
For i := 0 to Order do Y := Y/10;
Value := StrToFloat(Copy(S,1, j + Order) );
Delete(S, 1, j + Order);
if StrToFloat(S) > 0 then Result := Value else Result := Value + Y;
end
else
Result := 0;
end;
S pozdravem
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail: bonnel(zv)telecom(tec)cz
http://www.bonnel-tech.com
>Ahoj,
>
>chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
>'nahoru'
>na zadany pocet mist. Funkce by mohla mit hlavicku:
>
>function RoundUp(Value: extended;Order: integer): extended;
>
>Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych cisel.
>Vsechny podnety jsou vitany.
>
>
>S pozdravem,
>Miloslav Skacel
>skacel(zv)kjsoft(tec)cz
>http://www.kjsoft(tec)cz
>
>
>Flash filler
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 9.7.1998 09:52:08
Chlapci,
pouzivate nekdo FlashFiler od www.turbopower.com.
Porad hledam nejaky levny, rychly, bezpecny servrik.
Zajimalo by mne jestli to nekdo pouziva a jake jsou vysledky.
Diky
Martin Nedopil
nedopil(zv)geocities.com
Delphi kitchen�: http://www.geocities.com/Athens/Olympus/5260
Spojeni tabulek ve vice databazich
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 9.7.1998 10:20:40
Spojenie dvoch tabuliek vo viacerych databazach - heterogeneous join v
zmysle LocalSQL.hlp:
Pravdepodobne musi zostat qry.DatabaseName='', kde qry je definovane ako
TQuery,
pripadne je mozne sa pohrat s PrivateDir, alebo mozno jedna z databaz
/napr ORACLE, SYBASE/ by mala mat definovanu property DatabaseName v ramci
qry, to uz si nepametam, ale urcite mi to islo vid druhy priklad IB a DB2.
Priklad 1:
Odskusane prave teraz:
/heterogeneous join => Join Interbase & Paradox /
SELECT IBalias."COUNTRY", IBalias."CURRENCY", DBalias."Name" as
DBalias."TestCountry"
from ":IBLOCAL:COUNTRY" as IBalias
join ":DBDEMOS:COUNTRY" as DBalias
on IBalias."COUNTRY" = DBalias."Name"
Vypise vysledok:
COUNTRY CURRENCY TestCountry
-------------------------------------------------------
Canada CdnDlr Canada
Priklad 2:
Odskusane cca pred rokom, ale uz nemam db2 aktivovanu:
(InterBase and DB2 Join)
SELECT
o.Priezvisko,SUM(i.Sk)/100 as Sk, SUM(i.Dan_Sk)/100 as Dan_Sk
from ":VitDataDB2:DSK" i,
":VitDataIB:OZ_ETI" o
where o.OzIntern = i.OzIntern
group by o.Priezvisko
order by Sk Descending
S pozdravom Miro
PS: iba pre zaciatocnikov:
Pozor: slova uzavrete medzi dvoma dvojbodkami / napr.
":alias:xxx.db" / su aliasy
definovane v BDE Administrator
-----P_vodn_ spr_va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 8. j_l 1998 23:57
Predmet: RE: Spojeni tabulek ve vice databazich
>SELECT CUSTOMER.CUSTNO, ORDERS.ORDERNO
>FROM :Oracle1:CUSTOMER, :Sybase1:ORDERS
>
>kde Oracle1 a Sybase1 su definovane aliasi v BDE , aspon tak je to v
manuali ale ani mne sa to este nepodarilo.
>Budem rad ked ma informujes ked sa ti to podari.
> Tungli(zv)pvt.sk
>
>----------
>> Od: _ke__k Jaroslav <jaro(zv)zbk(tec)czn(tec)cz>
>> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>> Predmet: Re: Spojeni tabulek ve vice databazich
>> D_tum: 8. j_l 1998 22:47
>>
>> Pochybuji o tom, _e to pujde takto snadno.
>> SELECT se odkazuje na tabulky zapsane za kluzuli FROM
>> uvnit databaze, ktera je ovsen urcena prostrednictvim
>> TQuery.DatabaseName.
>> Pro jedno TQuery je pripojena jenom jedna Database.
>> Jaro
>> ---------------
>>
>>
>> >Zdravim !
>> >
>> > Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
>> >ruznych databazi v Sybase SQL Anywhere ?
>> >
>> >Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
>> >V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
>> >"Tabulka2".
>> >
>> >
>> >
>> > Radu bych si predstavoval asi v tomhle tvaru:
>> >
>> >SELECT "Tabulka1".*, "Tabulka2".*
>> >FROM "Tabulka1", "Tabulka2"
>> >WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
>> >
>> >
>> > Diky moc vsem za odpoved.
>> >
>> > Boris
>>
>Spojeni tabulek ve vice databazich
[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 9.7.1998 10:20:37
Protoze se jedna o stejny typ databaze a predpokladam, ze se nachazeji obe
databaze na stejnem serveru, mel by se tento dotaz vyresit na urovni
datbazoveho serveru. Nemohu tvrdit, ze to bude fungovat na Sybase SQL
Anywhere (nepouzivame, mozna se to bude trochu lisit), ale na Informix DS to
funguje. Chce se to podivat do manualu k SQL.
Pokud to budu psat pod Database Explorerem:
SELECT t1.*, t2.*
FROM Database1:Tabulka1 t1, Database2:Tabulka2 t2
WHERE t1.Cislo = t2.Cislo
Pokud to budu psat v TQuery:
SELECT t1.*, t2.*
FROM Database1::Tabulka1 t1, Database2::Tabulka2 t2
WHERE t1.Cislo = t2.Cislo
Pozor ty dvojtecky uvozuji nazev databaze (ne alias) tak jak jsou definovany
na databazovem serveru a dve tam jsou proto, aby je TQuery pochopilo jako
dvojtecku a ne jako parametr.
Pokud se databaze nachazeji na jinych serverech a vzajemne o sobe nevi pak
je nutne jiz pouzit formulaci pomoci aliasu (:Database1:) tak jak popisuji
kolegove v predchozich odpovedich.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216
-----Pyvodnm zprava-----
Od: Boris Pe9ka <baris(zv)post(tec)cz>
Komu: DELPHI konference <delphi(zv)pinknet(tec)cz>
Datum: 8. hervence 1998 19:52
Pxedmlt: Spojeni tabulek ve vice databazich
>Zdravim !
>
> Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
>ruznych databazi v Sybase SQL Anywhere ?
>
>Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
>V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
>"Tabulka2".
>
> Radu bych si predstavoval asi v tomhle tvaru:
>
>SELECT "Tabulka1".*, "Tabulka2".*
>FROM "Tabulka1", "Tabulka2"
>WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
jak zaokrouhlovat?
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 9.7.1998 10:25:15
Poznamka k poznamke
{Pro anglickou verzi tu mus_ byt '.'},
alebo namiesto ciarky, resp. bodky pouzit preddefinovanu premennu
decimalSeparator
j := Pos(decimalSeparator , S);
PS:
Ekvivalentne existuje aj DateSeparator a pod.
Tieto hodnoty su preddefinovane - Delphi ich berie z internacionalneho
nastavenia
S pozdravom
Miro
-----P_vodn_ spr_va-----
Od: Ing. Miroslav Ond___ek <bonnel(zv)telecom(tec)cz>
Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 9. j_l 1998 10:14
Predmet: Re: jak zaokrouhlovat?>A co takto ? Je to sice pres stringy, ale mohlo by to byt dost rychle.
>
>function RoundUp(Value: extended;Order: integer): extended;
>var
> Y:Extended;
> i,j:Integer;
> S:String;
>begin
> S:=FloatToStrF(Value,ffNumber,18,18);
> j := Pos(',' , S); {Pro anglickou verzi tu mus_ byt '.'}
> if j > 0 then
> begin
> Y := 10;
> For i := 0 to Order do Y := Y/10;
> Value := StrToFloat(Copy(S,1, j + Order) );
> Delete(S, 1, j + Order);
> if StrToFloat(S) > 0 then Result := Value else Result := Value + Y;
> end
> else
> Result := 0;
>end;
>
>S pozdravem
> Ing. Miroslav Ond___ek
> Bonnel Technologie, s.r.o.
>
>E-mail: bonnel(zv)telecom(tec)cz
>http://www.bonnel-tech.com
>
>
>>Ahoj,
>>
>>chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
>>'nahoru'
>>na zadany pocet mist. Funkce by mohla mit hlavicku:
>>
>>function RoundUp(Value: extended;Order: integer): extended;
>>
>>Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych cisel.
>>Vsechny podnety jsou vitany.
>>
>>
>>S pozdravem,
>>Miloslav Skacel
>>skacel(zv)kjsoft(tec)cz
>>http://www.kjsoft(tec)cz
>>
>>
>>
>Prubeh zpacovani dotazu
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 9.7.1998 10:39:42
Cau,
nevite n�kdo, jak zobrazit pomoci progressbaru prubeh zpracovani SQL
dotazu?
Pavel
jak zaokrouhlovat?
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 9.7.1998 10:44:47
Ahoj vsem!
Se zajmem sleduju debatu na tema zaokrouhlovani, nebot jsem se k
poste dostal trochu pozdeji, a neda mi to abych se taky nepripojil.
Neni mi sice 100% jasne co je to zaokrouhlovani nahoru, ale jestli je
to tak, ze pokud je za danym zaokrouhlovanym mistem jeste jine cislo
nez 0 tak se cislo zaokrouhluje nahoru, tak si myslim ze by mohlo
fungovat toto.
function RoundUp(Value: extended; Order: integer): extended;
var Nasobitel: longint;
I: integer;
C,
D: extended;
begin
if Order > 0 then
begin
Nasobitel:= 1;
for I:= 1 to Order do
begin
Nasobitel:= Nasobitel * 10;
end;
Value:= Value * Nasobitel;
end;
D:= Frac(Value);
C:= Int(Value);
if D > 0 then C:= C + 1;
if Order > 0 then Result:= C * Nasobitel
else Result:= C;
end;
Jo a pokud to nebude fungovat tak bych prosil taky sdelit proc to
nefunguje a ne jenom ze to nefunguje.
Cau Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Spojeni tabulek ve vice databazich
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 9.7.1998 11:12:06
Neviem co je zle:
Skusal som v ISQL
mam ISMOW alias na ISMOW.GDB databazu
Nakonetoval som na ISMOW a skusil som bar co vsetko bolo zle.
na inu databazu neviem sa dostat , naopr na IBLOCAL = EMPLOEYY.GDB
SELECT * FROM IBLOCAL::COUNTRY
SELECT * FROM "IBLOCAL::COUNTRY"
SELECT * FROM :IBLOCAL:COUNTRY
tak poradte.
Tungli
----------
> Od: Ivo HERLES <herles(zv)chv.pvt(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: Spojeni tabulek ve vice databazich
> D�tum: 9. j�l 1998 10:20
>
> Protoze se jedna o stejny typ databaze a predpokladam, ze se nachazeji obe
> databaze na stejnem serveru, mel by se tento dotaz vyresit na urovni
> datbazoveho serveru. Nemohu tvrdit, ze to bude fungovat na Sybase SQL
> Anywhere (nepouzivame, mozna se to bude trochu lisit), ale na Informix DS to
> funguje. Chce se to podivat do manualu k SQL.
>
> Pokud to budu psat pod Database Explorerem:
>
> SELECT t1.*, t2.*
> FROM Database1:Tabulka1 t1, Database2:Tabulka2 t2
> WHERE t1.Cislo = t2.Cislo
>
> Pokud to budu psat v TQuery:
>
> SELECT t1.*, t2.*
> FROM Database1::Tabulka1 t1, Database2::Tabulka2 t2
> WHERE t1.Cislo = t2.Cislo
>
> Pozor ty dvojtecky uvozuji nazev databaze (ne alias) tak jak jsou definovany
> na databazovem serveru a dve tam jsou proto, aby je TQuery pochopilo jako
> dvojtecku a ne jako parametr.
>
> Pokud se databaze nachazeji na jinych serverech a vzajemne o sobe nevi pak
> je nutne jiz pouzit formulaci pomoci aliasu (:Database1:) tak jak popisuji
> kolegove v predchozich odpovedich.
>
> S pozdravem,
>
> Ivo HERLES
> PVT, a. s., o. z. Chomutov
> e-Mail: herles(zv)chv.pvt(tec)cz
> tel.: 0396/619216
>
>
> -----Pyvodnm zprava-----
> Od: Boris Pe9ka <baris(zv)post(tec)cz>
> Komu: DELPHI konference <delphi(zv)pinknet(tec)cz>
> Datum: 8. hervence 1998 19:52
> Pxedmlt: Spojeni tabulek ve vice databazich
>
>
> >Zdravim !
> >
> > Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
> >ruznych databazi v Sybase SQL Anywhere ?
> >
> >Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
> >V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
> >"Tabulka2".
> >
> > Radu bych si predstavoval asi v tomhle tvaru:
> >
> >SELECT "Tabulka1".*, "Tabulka2".*
> >FROM "Tabulka1", "Tabulka2"
> >WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
>
>
> jak zaokrouhlovat?
[*] MotlicekP(zv)TESCOSW.CZ - 9.7.1998 11:29:54
Moje troska do mlyna:
function roundup(cislo : Extended;const poradi : byte) : Extended;
var
i : byte;
kolikrat : extended; // tady by mohl byt nejaky integer type, ale
extended ma vetsi rozsah nez pro mne zname LongInt
mezicislo : extended;
begin
kolikrat :=1;
for i := 1 to poradi do kolikrat:=kolikrat*10;
mezicislo:=ceil((cislo-int(cislo))*kolikrat); // mezicislo pro
zvyseni poctu desetinnych mist mozneho cisla
cislo := int(cislo);
result := cislo+mezicislo/kolikrat;
end;
Obcas to hodi exception Invalid Operation - ale nechce se mi to
kontrolovat proc a jak se tomu vyhnout snad jsem ti pomohl.
Motlicek Petr
> ----------
> > Od: Miloslav Skacel <skacel(zv)kjsoft(tec)cz>
> > Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> > Predmet: jak zaokrouhlovat?
> > D�tum: 8. j�l 1998 14:02
> >
> > Ahoj,
> >
> > chtel bych se zeptat jak udelat, zdanlive jednoduche, zaokrouhlovani
> > 'nahoru'
> > na zadany pocet mist. Funkce by mohla mit hlavicku:
> >
> > function RoundUp(Value: extended;Order: integer): extended;
> >
> > Jde mi o to, jak se vyporadat s nepresnosti vyjadreni realnych
> cisel.
> > Vsechny podnety jsou vitany.
> >
> >
> > S pozdravem,
> > Miloslav Skacel
> > skacel(zv)kjsoft(tec)cz
> > http://www.kjsoft(tec)cz
> >
> >
> > Tisk na LPT
[*] Daniel Prynych <Daniel.Prynych(zv)hornet(tec)cz> - 9.7.1998 11:40:24
Mam dojem ze tento postup neni mozny na NT.
Dan
----------
Odes�latel: Radek Sou�ek <rsoucek(zv)email(tec)cz>
Komu: Delphi Forum <delphi(zv)pinknet(tec)cz>
P�edm�t: Tisk na LPT
Datum: 8. �ervence 1998 16:11
Uz drive tady byl resen (a nedoresen) primy tisk na LPT. asi nejjednodussi primy pristup na takove zarizeni se mi zda pres AssignFile, kde se jako misto souboru uvede napr. LPT1 a pak se napr. pomoci WriteLN zapisuje, coz funguje bez problemu. Ale v pripade, ze tiskarna neni pripojena, nebo neni online, tak se to u procedury WriteLN zablokuje, dokud se tiskarna nerozjede. V Pascalu pod DOSem do fungovalo bez problemu (vyhlasilo to chybu I/O). Vyzkousel jsem i ruzne direktivy, napr $I, ale bez uspechu. Neresil nekdo podobny problem?
Diky Radek
PS: Jak to vypada s timto problemem i Sestavy SINEA, pane Skeriku?
jak zaokrouhlovat?
[*] Pavel Kral <kral(zv)afx(tec)cz> - 9.7.1998 12:58:52
Ahoj,
zatim jsem pochopil, ze zadani nevyhovuje pouziti funkce, ktera
vraci Integer, protoze ma mensi rozsah, nez Extended.
-----Original Message-----
From: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 9. �ervence 1998 11:51
Subject: RE: jak zaokrouhlovat?>Ahoj vsem!
>Se zajmem sleduju debatu na tema zaokrouhlovani, nebot jsem se k
>poste dostal trochu pozdeji, a neda mi to abych se taky nepripojil.
>Neni mi sice 100% jasne co je to zaokrouhlovani nahoru, ale jestli je
>to tak, ze pokud je za danym zaokrouhlovanym mistem jeste jine cislo
>nez 0 tak se cislo zaokrouhluje nahoru, tak si myslim ze by mohlo
>fungovat toto.
>
>function RoundUp(Value: extended; Order: integer): extended;
>var Nasobitel: longint;
> I: integer;
> C,
> D: extended;
>begin
> if Order > 0 then
> begin
> Nasobitel:= 1;
> for I:= 1 to Order do
> begin
> Nasobitel:= Nasobitel * 10;
> end;
> Value:= Value * Nasobitel;
> end;
> D:= Frac(Value);
> C:= Int(Value);
****************
> if D > 0 then C:= C + 1;
> if Order > 0 then Result:= C * Nasobitel
> else Result:= C;
>end;
>
>Jo a pokud to nebude fungovat tak bych prosil taky sdelit proc to
>nefunguje a ne jenom ze to nefunguje.
>Cau Pavel
Flash filler
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 09.7.1998 13:31:36
Martin Nedopil wrote:
>
> Chlapci,
> pouzivate nekdo FlashFiler od www.turbopower.com.
>
> Porad hledam nejaky levny, rychly, bezpecny servrik.
> Zajimalo by mne jestli to nekdo pouziva a jake jsou vysledky.
>
Jo, muzu celkem doporucit. Ale pozor - neni to SQL server.
Ale umi transakce a klienti se muzou se serverem spojovat
i pres TCP/IP. Cena je prizniva - asi 8000 kc pro vyvojare
a ten ho muze s vyjimkou zdroju se svymi produkty bezplatne
sirit. A maji docela hbitou podporu.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
jak zaokrouhlovat?
[*] Pavel Kral <kral(zv)afx(tec)cz> - 9.7.1998 13:50:56
Ahoj,
zatim jsem to nevzdal a vypotil jsem nasledujici funkci,
ktera ma (snad jen) jednu vadu - omezeni max. radu,
ve kterem musi byt vstupni hodnota.
Pro velmi vysoka cisla to bude asi dost pomale, lepsi
by bylo odstranit exponent, zaokrouhlit a pridat exponent.
Cau Pavel
PS. co je to za aplikaci, ze se musi zaokrouhlovat v rozsahu
extended ?
****************
function TForm1.RoundUp(Value: extended; Order: integer): extended;
var V1,V2: extended;
Rad: extended;
i,k, Zacatek: integer;
begin
{ Order je rad, tj. 0 zaokrouhluje na cela, -1 na jedno des. misto atd.}
k:=50; // max. rad vstupniho cisla
V1:= Value;
V2:=0;
while k>Order do
begin
{ urci si novy rad }
Rad:= 1;
if K > 0 then
begin
Zacatek:= Order;
if Order<0 then Zacatek:=1;
for i:= Zacatek to k do
Rad:= Rad * 10;
end
else
begin
if k<>0 then
for i:=Order to k do
Rad:= Rad / 10;
end;
{ odecitej od puvodni hodnoty Rad tak dlouho, dokud tam nejaky je}
{ a pricitej stejny pocet*Rad do V2 }
while V1 >= Rad do
begin
V1:= V1 - Rad;
V2:= V2 + Rad;
end;
Dec(k);
end;
{ ve V1 je zbytek }
if V1>0 then
V2:= V2 + Rad; // oprava na zaokrouhleni nahoru
Result:= V2;
end;
-----Original Message-----
From: TUNGLI Jan <tungli(zv)pvt.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 8. �ervence 1998 22:21
Subject: RE: jak zaokrouhlovat?
Zial aj toto riesenie je nespravne.
Tungli
----------
> Od: Pavel Kral <kral(zv)afx(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: jak zaokrouhlovat?
> D�tum: 8. j�l 1998 19:12
>
> Ahoj
> Co treba takhle:
>
ODBC
[*] Martin Sasek <sasek(zv)ujep(tec)cz> - 9.7.1998 13:54:07
>Primo s ODBC ti neporadim, ale pokud pouzivas 32bit Delphi tak si stahni od
>Borlandu update na BDE 4.51, tam je uz primy ovladac na FoxPro do verze 2.6
>a nebudes muset pouzivat ODBC.
>
> Petr Vones, amatersky programator
Provedl jsem a funguje, diky. Ovsem mam problem s indexy IDX.
Desktop umi vyrobit pouze CDX a primo z Delphi se mi podarilo pripojit take
pouze sdruzene indexy. Samostatny index IDX mi odmita pripojit.
Martin Sasek,sasek(zv)ujep(tec)cz
jak zaokrouhlovat?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 9.7.1998 14:28:20
To je spravna poznamka. Ale ani algoritmy ktore pracuju tak ze cislo vynasobia
a potom zase vydelia alebo oddrezu nie su spravne lebo cislo pri vynasobeni a deleni moze stratit na presnosti a to niekedy velmi vela, ked sa jedna o krajne pripady.
Tungli
----------
> Od: Pavel Kral <kral(zv)afx(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: jak zaokrouhlovat?
> D�tum: 9. j�l 1998 12:58
>
> Ahoj,
> zatim jsem pochopil, ze zadani nevyhovuje pouziti funkce, ktera
> vraci Integer, protoze ma mensi rozsah, nez Extended.
>
> -----Original Message-----
> From: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
> To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> Date: 9. �ervence 1998 11:51
> Subject: RE: jak zaokrouhlovat?
>
>
> >Ahoj vsem!
> >Se zajmem sleduju debatu na tema zaokrouhlovani, nebot jsem se k
> >poste dostal trochu pozdeji, a neda mi to abych se taky nepripojil.
> >Neni mi sice 100% jasne co je to zaokrouhlovani nahoru, ale jestli je
> >to tak, ze pokud je za danym zaokrouhlovanym mistem jeste jine cislo
> >nez 0 tak se cislo zaokrouhluje nahoru, tak si myslim ze by mohlo
> >fungovat toto.
> >
> >function RoundUp(Value: extended; Order: integer): extended;
> >var Nasobitel: longint;
> > I: integer;
> > C,
> > D: extended;
> >begin
> > if Order > 0 then
> > begin
> > Nasobitel:= 1;
> > for I:= 1 to Order do
> > begin
> > Nasobitel:= Nasobitel * 10;
> > end;
> > Value:= Value * Nasobitel;
> > end;
> > D:= Frac(Value);
> > C:= Int(Value);
> ****************
> > if D > 0 then C:= C + 1;
> > if Order > 0 then Result:= C * Nasobitel
> > else Result:= C;
> >end;
> >
> >Jo a pokud to nebude fungovat tak bych prosil taky sdelit proc to
> >nefunguje a ne jenom ze to nefunguje.
> >Cau Pavel
>
>
> Refresh Interbase
[*] Jan Macej <jasencak(zv)ssl.sk> - 9.7.1998 15:31:28
Mam takyto problem:
mam tabulku Interbase ku ktorej ma pristup viacej klientov, pricom kazdy ju trvalo prehliada a ma moznost modifikovat. Ako zabezpecit, aby po kazdej zmene sa vsetkym ostatnym urobil refresh?
Dalsia otazka znie : mam Delphi 3, a v DBGrid sa mi stale objavuju scrollBary aj ked zaznamov je menej ako je vidno. Chcel by som sa ich zbavit, ako na to.
Priklad : mam tabulka v kotej je konstantne 10 recordov a nikdy nepotrebujem scrollovat grid, lebo vsetko vidim.
Jan
Spojeni tabulek ve vice databazich
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 9.7.1998 15:54:58
V ISQL nie je mozne pouzit nazov tabulky vo forme ":IBLOCAL:TableName",
lebo alias typu :IBLOCAL: ISQL nepodporuje /a ani uvodzovky/
v ISQL funguje tato syntax:
SELECT * FROM COUNTRY, ale predtym je treba konektovat sa
pomocou File / Connect to Database ..
na databazu:
"C:\Program Files\Borland\IntrBase\EXAMPLES\employee.gdb"
, ale to asi vsetci poznaju
Pokial ide o vyuzitie Heterogenous joins, resp o vyuzitie BDE aliasov
treba ich pouzit priamo v SQL - TQuery.
napr.:
with qry do
begin
close;
DatabaseName:='';
with SQL do
begin
clear;
add('SELECT * FROM ":IBLOCAL:COUNTRY"');
end;
open;
end;
mne to takto vzdy fungovalo.
Pre zjednodusenie to robim cez memo, aby som si mohol testovat
roznu syntax.
S pozdravom
Miro
-----P_vodn_ spr_va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
D_tum: 9. j_l 1998 13:35
Predmet: RE: Spojeni tabulek ve vice databazich
>Neviem co je zle:
>Skusal som v ISQL
>mam ISMOW alias na ISMOW.GDB databazu
>Nakonetoval som na ISMOW a skusil som bar co vsetko bolo zle.
>na inu databazu neviem sa dostat , naopr na IBLOCAL = EMPLOEYY.GDB
>
>SELECT * FROM IBLOCAL::COUNTRY
>SELECT * FROM "IBLOCAL::COUNTRY"
>SELECT * FROM :IBLOCAL:COUNTRY
>
>tak poradte.
> Tungli
>
>----------
>> Od: Ivo HERLES <herles(zv)chv.pvt(tec)cz>
>> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>> Predmet: Re: Spojeni tabulek ve vice databazich
>> D_tum: 9. j_l 1998 10:20
>>
>> Protoze se jedna o stejny typ databaze a predpokladam, ze se nachazeji
obe
>> databaze na stejnem serveru, mel by se tento dotaz vyresit na urovni
>> datbazoveho serveru. Nemohu tvrdit, ze to bude fungovat na Sybase SQL
>> Anywhere (nepouzivame, mozna se to bude trochu lisit), ale na Informix DS
to
>> funguje. Chce se to podivat do manualu k SQL.
>>
>> Pokud to budu psat pod Database Explorerem:
>>
>> SELECT t1.*, t2.*
>> FROM Database1:Tabulka1 t1, Database2:Tabulka2 t2
>> WHERE t1.Cislo = t2.Cislo
>>
>> Pokud to budu psat v TQuery:
>>
>> SELECT t1.*, t2.*
>> FROM Database1::Tabulka1 t1, Database2::Tabulka2 t2
>> WHERE t1.Cislo = t2.Cislo
>>
>> Pozor ty dvojtecky uvozuji nazev databaze (ne alias) tak jak jsou
definovany
>> na databazovem serveru a dve tam jsou proto, aby je TQuery pochopilo jako
>> dvojtecku a ne jako parametr.
>>
>> Pokud se databaze nachazeji na jinych serverech a vzajemne o sobe nevi
pak
>> je nutne jiz pouzit formulaci pomoci aliasu (:Database1:) tak jak
popisuji
>> kolegove v predchozich odpovedich.
>>
>> S pozdravem,
>>
>> Ivo HERLES
>> PVT, a. s., o. z. Chomutov
>> e-Mail: herles(zv)chv.pvt(tec)cz
>> tel.: 0396/619216
>>
>>
>> -----Pyvodnm zprava-----
>> Od: Boris Pe9ka <baris(zv)post(tec)cz>
>> Komu: DELPHI konference <delphi(zv)pinknet(tec)cz>
>> Datum: 8. hervence 1998 19:52
>> Pxedmlt: Spojeni tabulek ve vice databazich
>>
>>
>> >Zdravim !
>> >
>> > Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
>> >ruznych databazi v Sybase SQL Anywhere ?
>> >
>> >Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
>> >V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
>> >"Tabulka2".
>> >
>> > Radu bych si predstavoval asi v tomhle tvaru:
>> >
>> >SELECT "Tabulka1".*, "Tabulka2".*
>> >FROM "Tabulka1", "Tabulka2"
>> >WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
>>
>>
>>
>jak zaokrouhlovat ?
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 9.7.1998 16:01:43
>Jo a pokud to nebude fungovat tak bych prosil taky sdelit proc to
>nefunguje a ne jenom ze to nefunguje.
Ahoj,
nefunguje to protoze:
1. na konci mas preklep - misto deleni nasobis
> if Order > 0 then Result:= C * Nasobitel
Po mirnem ucesani by tvoje funkce RoundUp mohla vypadat nasledovne
function RoundUp3(Value: extended; Order: integer): extended;
var Nasobitel,
C,D: extended;
begin
Nasobitel:=Power10[-Order];
Value:=Value*Nasobitel;
D:=Frac(Value);
C:=Int(Value);
if ABS(D)>0 then
C:=C+1;
Result:=C/Nasobitel;
end;
2. kvuli nepresne reprezentaci realneho cisla na 10 bytech typu Extended
Nemam ted po ruce priklad na kterem se to da demonstrovat pro RoundUp.
Ale z RoundUp se da lehce vytvorit funkce RoundDown
('odreze' cislice s nizsim radem nez Order), na ktere je to pekne videt.
function RoundDown3(Value: extended; Order: integer): extended;
var Nasobitel,
C: extended;
begin
Nasobitel:=Power10[-Order];
Value:=Value*Nasobitel;
C:=Int(Value);
Result:=C/Nasobitel;
end;
e:=4526.4637;
e:=RoundDown3(e,-5);
ocekavany vysledek e=4526.4637;
skutecny vysledek e=4526.46369;
Mel by nekdo jeste nejaky napad?
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
-----P�vodn� zpr�va-----
Od: Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 9. �ervence 1998 10:48
P�edm�t: RE: jak zaokrouhlovat?>Ahoj vsem!
>Se zajmem sleduju debatu na tema zaokrouhlovani, nebot jsem se k
>poste dostal trochu pozdeji, a neda mi to abych se taky nepripojil.
>Neni mi sice 100% jasne co je to zaokrouhlovani nahoru, ale jestli je
>to tak, ze pokud je za danym zaokrouhlovanym mistem jeste jine cislo
>nez 0 tak se cislo zaokrouhluje nahoru, tak si myslim ze by mohlo
>fungovat toto.
>
>function RoundUp(Value: extended; Order: integer): extended;
>var Nasobitel: longint;
> I: integer;
> C,
> D: extended;
>begin
> if Order > 0 then
> begin
> Nasobitel:= 1;
> for I:= 1 to Order do
> begin
> Nasobitel:= Nasobitel * 10;
> end;
> Value:= Value * Nasobitel;
> end;
> D:= Frac(Value);
> C:= Int(Value);
> if D > 0 then C:= C + 1;
> if Order > 0 then Result:= C * Nasobitel
> else Result:= C;
>end;
>
>Jo a pokud to nebude fungovat tak bych prosil taky sdelit proc to
>nefunguje a ne jenom ze to nefunguje.
>Cau Pavel
>
>-----------------------------------------------------------
> Ing. Pavel Simicek
> UVSSaR, FS, VUT Brno, Technicka 2, 616 69
> Tel. 05/41142461
> e-mail simicek(zv)uvss.fme.vutbr(tec)cz
>-----------------------------------------------------------
jak zaokrouhlovat?
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 9.7.1998 16:12:10
>A co takto ? Je to sice pres stringy, ale mohlo by to byt dost rychle.
Ahoj,
1. pomer rychlosti tohoto reseni a reseni od simicek(zv)uvss.fme.vutbr(tec)cz
je priblizne 1.7 : 0.22 [sec] pro 100000 opakovani.
2. nevim jak funguje FloatToStrF takze se mi tezko dokazuje,
ze to chodi sprave. U takove zasadni fukce bych mel rad jistotu.
3. kosmeticky detail:
> S:=FloatToStrF(Value,ffNumber,18,18);
neni zrovna vhodne pouzit flag ffNumber, ten to naformatuje s
ThousandSeparator a
StrToFloat(Copy(S,1, j + Order) ); ma potom problemy :).
Porad to neni ono. Dalsi napady vitany.
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ond��ek <bonnel(zv)telecom(tec)cz>>A co takto ? Je to sice pres stringy, ale mohlo by to byt dost rychle.
>
>function RoundUp(Value: extended;Order: integer): extended;
>var
> Y:Extended;
> i,j:Integer;
> S:String;
>begin
> S:=FloatToStrF(Value,ffNumber,18,18);
> j := Pos(',' , S); {Pro anglickou verzi tu mus� byt '.'}
> if j > 0 then
> begin
> Y := 10;
> For i := 0 to Order do Y := Y/10;
> Value := StrToFloat(Copy(S,1, j + Order) );
> Delete(S, 1, j + Order);
> if StrToFloat(S) > 0 then Result := Value else Result := Value + Y;
> end
> else
> Result := 0;
>end;
Spojeni tabulek ve vice databazich
[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 9.7.1998 16:49:12
Je treba si ujasnit to, ze databasovy server nezna a nemuze znat aliasy z
BDE. Syntaxe SQL, kterou jsem popisoval bude zrejme fungovat na
plnohodnotnych databazovych serverech. Bohuzel za Interbase ani za Sybase
nemohu hovorit, protoze s nimi nemam zadne zkusenosti.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216
-----Pyvodnm zprava-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 9. hervence 1998 13:19
Pxedmlt: RE: Spojeni tabulek ve vice databazich
Neviem co je zle:
Skusal som v ISQL
mam ISMOW alias na ISMOW.GDB databazu
Nakonetoval som na ISMOW a skusil som bar co vsetko bolo zle.
na inu databazu neviem sa dostat , naopr na IBLOCAL = EMPLOEYY.GDB
SELECT * FROM IBLOCAL::COUNTRY
SELECT * FROM "IBLOCAL::COUNTRY"
SELECT * FROM :IBLOCAL:COUNTRY
tak poradte.
Tungli
----------
> Od: Ivo HERLES <herles(zv)chv.pvt(tec)cz>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: Spojeni tabulek ve vice databazich
> Datum: 9. jzl 1998 10:20
>
> Protoze se jedna o stejny typ databaze a predpokladam, ze se nachazeji obe
> databaze na stejnem serveru, mel by se tento dotaz vyresit na urovni
> datbazoveho serveru. Nemohu tvrdit, ze to bude fungovat na Sybase SQL
> Anywhere (nepouzivame, mozna se to bude trochu lisit), ale na Informix DS
to
> funguje. Chce se to podivat do manualu k SQL.
>
> Pokud to budu psat pod Database Explorerem:
>
> SELECT t1.*, t2.*
> FROM Database1:Tabulka1 t1, Database2:Tabulka2 t2
> WHERE t1.Cislo = t2.Cislo
>
> Pokud to budu psat v TQuery:
>
> SELECT t1.*, t2.*
> FROM Database1::Tabulka1 t1, Database2::Tabulka2 t2
> WHERE t1.Cislo = t2.Cislo
>
> Pozor ty dvojtecky uvozuji nazev databaze (ne alias) tak jak jsou
definovany
> na databazovem serveru a dve tam jsou proto, aby je TQuery pochopilo jako
> dvojtecku a ne jako parametr.
>
> Pokud se databaze nachazeji na jinych serverech a vzajemne o sobe nevi pak
> je nutne jiz pouzit formulaci pomoci aliasu (:Database1:) tak jak popisuji
> kolegove v predchozich odpovedich.
>
> -----Pyvodnm zprava-----
> Od: Boris Pe9ka <baris(zv)post(tec)cz>
> Komu: DELPHI konference <delphi(zv)pinknet(tec)cz>
> Datum: 8. hervence 1998 19:52
> Pxedmlt: Spojeni tabulek ve vice databazich
>
> > Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
> >ruznych databazi v Sybase SQL Anywhere ?
> >
> >Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
> >V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
> >"Tabulka2".
> >
> > Radu bych si predstavoval asi v tomhle tvaru:
> >
> >SELECT "Tabulka1".*, "Tabulka2".*
> >FROM "Tabulka1", "Tabulka2"
> >WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
Prubeh zpacovani dotazu
[*] Ivo HERLES <herles(zv)chv.pvt(tec)cz> - 9.7.1998 16:59:04
Nevim jestli odpovim presne na dotaz.
Stav SQL bude asi tezke zjistit. Ale pro preruseni dotazu nebo obcerstveni
aplikace pri dotazu by mela slouzit udalost OnServerYield. Touto udalosti si
DB server overuje u klientske aplikace zda zije a zda ma pokracovat v SQL
dotazu. Bohuzel ne vsechny DB servery toto podporuji (v helpu pisi pouze o
Sybase).
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: herles(zv)chv.pvt(tec)cz
tel.: 0396/619216
-----Pyvodnm zprava-----
Od: Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz>
Komu: Konference Delpi FORUM <delphi(zv)pinknet(tec)cz>
Datum: 9. hervence 1998 12:39
Pxedmlt: Prubeh zpacovani dotazu
Cau,
nevite nlkdo, jak zobrazit pomoci progressbaru prubeh zpracovani SQL
dotazu?
Pavel
jak zaokrouhlovat?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.7.1998 17:02:36
ne, ze bych tuto debatu nejak sledoval, ale neumi nejakou takovou fintu
matematicky koprocesor v CPU? (ma-li neco lepsi reprezentaci dat nez
Extended, kdo asi?)
Zdravi
D. Toman
Problem s tiskem grafiky
[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 9.7.1998 17:22:47
Predem bych chtel podekovat za prispevky k memu predeslemu dotazu (Prace s
canvasem) a omluvit se, ze jsem omylem napsal Scrollbar misto Scrollbox.
Problem jsem jiz vyresil.
Nyni mam ale jiny problem. Ja si totiz vykreslim na Canvas Paintboxu takove
prukazky, ktere se budou pozdeji vyplnovat rucne. Uzivatel si muze vybrat,
jestli je chce vytisknout a kdyz ano, tak se to same vykresli na Canvas
tiskarny. Sklada se to z ruznych obdelniku, kde kazdy nema stejnou barvu. Je
to potisteno pismem Times New Roman CE a ruzne popisky maji ruznou velikost.
Obsahuje to i logo (obrazek).
Jde mi o to, ze kdyz to vykreslim do Paintboxu, je vse vporadku, ale kdyz to
vykreslim na Paintbox tiskarny a nasledne vytisknu, logo zahadne zmizi. Uz
se s timto problemem potykam delsi dobu a musim rict, ze jsem jiz v tomto
smeru bezradny.
Kdyz vynecham zmenu velikosti fontu a zmenu barev u jednotlivych obdelniku,
logo se vytiskne.
Kdyby nekdo z vas vedel, jak to vyresit, prosim nevahejte a napiste.
dekuji
Ricky...
rick.strunc(zv)writeme.com
rick.strunc(zv)email(tec)cz
ICQ: 13408022
Problem s tiskem grafiky
[*] Vesna <veselyt(zv)sagas(tec)cz> - 9.7.1998 17:39:16
Asi budes muset poslat zdrojak, jinak ti asi tezko pomuzem.
Vesna, SagaS
veselyt(zv)sagas(tec)cz
-----P�vodn� zpr�va-----
Od: Richard Strunc <rick.strunc(zv)email(tec)cz>
Komu: P��sp�vky k delphi <delphi(zv)pinknet(tec)cz>
Datum: 9. �ervence 1998 17:31
P�edm�t: Problem s tiskem grafiky
>Predem bych chtel podekovat za prispevky k memu predeslemu dotazu (Prace s
>canvasem) a omluvit se, ze jsem omylem napsal Scrollbar misto Scrollbox.
>Problem jsem jiz vyresil.
>
>Nyni mam ale jiny problem. Ja si totiz vykreslim na Canvas Paintboxu takove
>prukazky, ktere se budou pozdeji vyplnovat rucne. Uzivatel si muze vybrat,
>jestli je chce vytisknout a kdyz ano, tak se to same vykresli na Canvas
>tiskarny. Sklada se to z ruznych obdelniku, kde kazdy nema stejnou barvu.
Je
>to potisteno pismem Times New Roman CE a ruzne popisky maji ruznou
velikost.
>Obsahuje to i logo (obrazek).
>Jde mi o to, ze kdyz to vykreslim do Paintboxu, je vse vporadku, ale kdyz
to
>vykreslim na Paintbox tiskarny a nasledne vytisknu, logo zahadne zmizi. Uz
>se s timto problemem potykam delsi dobu a musim rict, ze jsem jiz v tomto
>smeru bezradny.
>Kdyz vynecham zmenu velikosti fontu a zmenu barev u jednotlivych obdelniku,
>logo se vytiskne.
>
>Kdyby nekdo z vas vedel, jak to vyresit, prosim nevahejte a napiste.
>
>dekuji
>
>Ricky...
>
> rick.strunc(zv)writeme.com
> rick.strunc(zv)email(tec)cz
> ICQ: 13408022
>
>Flash filler
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.7.1998 18:38:42
> pouzivate nekdo FlashFiler od www.turbopower.com.
>
> Porad hledam nejaky levny, rychly, bezpecny servrik.
> Zajimalo by mne jestli to nekdo pouziva a jake jsou vysledky.
Prakticke informace ti bohuzel neposkytnu, vlastni zkusenosti
s tim nemam. Ale mohu ti poskytnou vsechny ostatni informace
o tomto produktu vcetne demoverze. Trial verze bohuzel neni,
jen takove jednoduche demo na vyzkouseni, aby sis mohl otestovat,
jak se to spojuje po siti apod.
Velkou vyhodou tohoto produktu je, ze to plne nahrazuje BDE,
ktere pak nemusis dodavat ke svemu programu, linkuje se to
primo do EXE, takze zadne dalsi DLL apod. Samozrejme kdyz
nepocitam ten program serveru - pak bezi tvoje aplikace jako
klient + jeden EXE jako server. Dalsi velkou vyhodou je to,
ze FlashFiler podporuje transakce a transakcni log. Takze je
to maximalne bezpecne pouziti bez rizika ztraty nebo
poskozeni dat. A jeste je vyhodou politika sireni - je to
naprosto volne siritelne, resp. muzes to sirit se svou
aplikaci bez dalsich poplatku. Pracuje to jak na jednom
pocitaci, tak v siti a to vcetne protokolu TCP/IP.
A ma to take dve nevyhody. Prvni je ta, ze to nepodporuje SQL
prikazy, tedy nemuzes tam nasadit TQuery, ale jen TTable.
Druha nevyhoda je, ze v tomto okamziku je k dispozici pouze
verze pro Delphi 1 a Delphi 2. Verze pro Delphi 3 je ve fazi
betatestu, pro Delphi 4 se take chysta. Mely by byt brzy,
ale nikdo nevi, kdy to je "brzy" - ted to zjistuji, takze
pak dam vedet. Cena je rozumna - 8.000 Kc bez DPH a muzes
udelat libovolny pocet programu bez dalsich poplatku.
Pokud chces dalsi info, pak bud primo na muj e-mail, pripadne
zajimalo-li by to vice uzivatelu, mozno i sem do konference.
*** POZOR, ZMENA ADRESY A TELEFONNIHO/FAXOVEHO CISLA ***
*** TOTO CISLO JE NAVIC PRECHODNE A BUDE PRECISLOVANO ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== Telefon, fax: 047-68510, mobilni GSM: 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Spojeni tabulek ve vice databazich
[*] Boris Pe�ka <baris(zv)post(tec)cz> - 09.7.1998 18:57:00
> SELECT CUSTOMER.CUSTNO, ORDERS.ORDERNO
> FROM :Oracle1:CUSTOMER, :Sybase1:ORDERS
>
> kde Oracle1 a Sybase1 su definovane aliasi v BDE , aspon tak je to v
> manuali ale ani mne sa to este nepodarilo.
>
> chybi uvozovky
> FROM ":Oracle1:CUSTOMER", ":Sybase1:ORDERS"
>
> pokud je v DatabaseName napr Sybase1 staci takto
> FROM ":Oracle1:CUSTOMER", ORDERS
.
.
.
.
Nevim, ale me se to jaksi nedari (porad to hlasi chybu !) Boris
jak zaokrouhlovat ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.7.1998 19:30:58
Miloslav Skacel wrote:
> 2. kvuli nepresne reprezentaci realneho cisla na 10 bytech typu Extended
> Nemam ted po ruce priklad na kterem se to da demonstrovat pro RoundUp.
> Ale z RoundUp se da lehce vytvorit funkce RoundDown
> ('odreze' cislice s nizsim radem nez Order), na ktere je to pekne videt.
>
> function RoundDown3(Value: extended; Order: integer): extended;
> var Nasobitel,
> C: extended;
> begin
> Nasobitel:=Power10[-Order];
> Value:=Value*Nasobitel;
> C:=Int(Value);
> Result:=C/Nasobitel;
> end;
>
> e:=4526.4637;
> e:=RoundDown3(e,-5);
>
> ocekavany vysledek e=4526.4637;
> skutecny vysledek e=4526.46369;
Ahoj,
a nepomohlo by treba jinak nastavit rezim zaokrouhlovani u FPU pro nektere
operace v tom vypoctu ?
Da se to udelat napriklad takhle (vychozi nastaveni je rmNearestOrEven):
type
TRoundMode = (rmNearestOrEven, rmDown, rmUp, rmTruncate);
var
CW8087: Word;
begin
CW8087 := Default8087CW;
Set8087CW((CW8087 and $F3FF) or (Ord(rmUp) shl 10));
.
.
.
Set8087CW(CW8087);
end;
Petr Vones, amatersky programator
Prubeh zpacovani dotazu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.7.1998 19:31:40
Hojda Pavel wrote:
>
> Cau,
> nevite n�kdo, jak zobrazit pomoci progressbaru prubeh zpracovani SQL
> dotazu?
>
> Pavel
Ahoj,
v RxLib (http://rx.demo.ru) je komponenta TDBProgress, pomoci ni by to mohlo
jit (ale nezkousel jsem to).
Petr Vones, amatersky programator
Triurovnova architektura
[*] Boris Pe�ka <baris(zv)post(tec)cz> - 09.7.1998 19:56:09
Zdravim ! Muzete me nekdo objasnit co je to "triurovnova architektura" a
na co je to dobry ?
Diky moc.
Boris
LZExpand ???
[*] Pavel Koutny <koutny(zv)tkcmt.sk> - 9.7.1998 20:27:29
Potrebujem pomocou Delphi nejako interne komprimovat subory na format MS Compressu (subor.ex_) bez toho, aby som pouzival externe utility, na dekompresiu funguje kniznica lzexpand.dcu. Ak ma nikto skusenosti, ako komprimovat, nech mi prosim pomoze. Diki moc.
Pavel Koutny, koutny(zv)tkcmt.sk
Tisk na LPT
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 9.7.1998 21:17:56
To to je mo�n�, ale ani na Win95?
Radek
-----Original Message-----
From: Daniel Prynych <Daniel.Prynych(zv)hornet(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 9. �ervence 1998 14:10
Subject: Re: Tisk na LPT
>Mam dojem ze tento postup neni mozny na NT.
>Dan
>
>----------
>Odes�latel: Radek Sou�ek <rsoucek(zv)email(tec)cz>
>Komu: Delphi Forum <delphi(zv)pinknet(tec)cz>
>P�edm�t: Tisk na LPT
>Datum: 8. �ervence 1998 16:11
>
>Uz drive tady byl resen (a nedoresen) primy tisk na LPT. asi nejjednodussi
primy pristup na takove zarizeni se mi zda pres AssignFile, kde se jako
misto souboru uvede napr. LPT1 a pak se napr. pomoci WriteLN zapisuje, coz
funguje bez problemu. Ale v pripade, ze tiskarna neni pripojena, nebo neni
online, tak se to u procedury WriteLN zablokuje, dokud se tiskarna
nerozjede. V Pascalu pod DOSem do fungovalo bez problemu (vyhlasilo to chybu
I/O). Vyzkousel jsem i ruzne direktivy, napr $I, ale bez uspechu. Neresil
nekdo podobny problem?
>
>Diky Radek
>
>PS: Jak to vypada s timto problemem i Sestavy SINEA, pane Skeriku?
>
>
>
>Prubeh zpacovani dotazu
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 9.7.1998 21:17:02
(1)
No, ta to m�m jednu komponentu, kter� by m�la neco podobn�ho re�it, ale
nikdy jsem ji nezkou�el a bohu�el m�m jen Delphi 1+2.
M�lo by to um�t zobrazit pr�b�h SQL p��kazu, BatchMove apod.
Z�jemc�m po�lu.
(2)
Nezkou�el jste n�kdo zjistit ��slo verze, ... z programu (version info).
N�jak se mi to neda��. Mo�n� komplikace je ta, �e se jedn� nav�c o DLL.
�au Radek
-----Original Message-----
From: Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz>
To: Konference Delpi FORUM <delphi(zv)pinknet(tec)cz>
Date: 9. �ervence 1998 12:37
Subject: Prubeh zpacovani dotazu
>Cau,
> nevite n�kdo, jak zobrazit pomoci progressbaru prubeh zpracovani SQL
>dotazu?
>
>Pavel
>
>Spojeni tabulek ve vice databazich
[*] Radek Sou�ek <rsoucek(zv)email(tec)cz> - 9.7.1998 21:21:34
Resil jsem podobny problem v Interbase (heterogenni dotaz a nejsem si vedom
omezeni na jine servery), jestli mystlite, ze se jedna o podobny problem,
tak to muzu podrobne popsat.
Radek
-----Original Message-----
From: TUNGLI Jan <tungli(zv)pvt.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 9. �ervence 1998 15:08
Subject: RE: Spojeni tabulek ve vice databazich
>Neviem co je zle:
>Skusal som v ISQL
>mam ISMOW alias na ISMOW.GDB databazu
>Nakonetoval som na ISMOW a skusil som bar co vsetko bolo zle.
>na inu databazu neviem sa dostat , naopr na IBLOCAL = EMPLOEYY.GDB
>
>SELECT * FROM IBLOCAL::COUNTRY
>SELECT * FROM "IBLOCAL::COUNTRY"
>SELECT * FROM :IBLOCAL:COUNTRY
>
>tak poradte.
> Tungli
>
>----------
>> Od: Ivo HERLES <herles(zv)chv.pvt(tec)cz>
>> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>> Predmet: Re: Spojeni tabulek ve vice databazich
>> D�tum: 9. j�l 1998 10:20
>>
>> Protoze se jedna o stejny typ databaze a predpokladam, ze se nachazeji
obe
>> databaze na stejnem serveru, mel by se tento dotaz vyresit na urovni
>> datbazoveho serveru. Nemohu tvrdit, ze to bude fungovat na Sybase SQL
>> Anywhere (nepouzivame, mozna se to bude trochu lisit), ale na Informix DS
to
>> funguje. Chce se to podivat do manualu k SQL.
>>
>> Pokud to budu psat pod Database Explorerem:
>>
>> SELECT t1.*, t2.*
>> FROM Database1:Tabulka1 t1, Database2:Tabulka2 t2
>> WHERE t1.Cislo = t2.Cislo
>>
>> Pokud to budu psat v TQuery:
>>
>> SELECT t1.*, t2.*
>> FROM Database1::Tabulka1 t1, Database2::Tabulka2 t2
>> WHERE t1.Cislo = t2.Cislo
>>
>> Pozor ty dvojtecky uvozuji nazev databaze (ne alias) tak jak jsou
definovany
>> na databazovem serveru a dve tam jsou proto, aby je TQuery pochopilo jako
>> dvojtecku a ne jako parametr.
>>
>> Pokud se databaze nachazeji na jinych serverech a vzajemne o sobe nevi
pak
>> je nutne jiz pouzit formulaci pomoci aliasu (:Database1:) tak jak
popisuji
>> kolegove v predchozich odpovedich.
>>
>> S pozdravem,
>>
>> Ivo HERLES
>> PVT, a. s., o. z. Chomutov
>> e-Mail: herles(zv)chv.pvt(tec)cz
>> tel.: 0396/619216
>>
>>
>> -----Pyvodnm zprava-----
>> Od: Boris Pe9ka <baris(zv)post(tec)cz>
>> Komu: DELPHI konference <delphi(zv)pinknet(tec)cz>
>> Datum: 8. hervence 1998 19:52
>> Pxedmlt: Spojeni tabulek ve vice databazich
>>
>>
>> >Zdravim !
>> >
>> > Muzete me nekdo poradit, jak mam vytvorit SELECT dvou tabulek z
>> >ruznych databazi v Sybase SQL Anywhere ?
>> >
>> >Napr. mam dve databaze, ktere se jmenuji "Databaze1" a "Databaze2".
>> >V "Databaze1" je tabulka "Tabulka1" a v databazi "Databaze2" je tabulka
>> >"Tabulka2".
>> >
>> > Radu bych si predstavoval asi v tomhle tvaru:
>> >
>> >SELECT "Tabulka1".*, "Tabulka2".*
>> >FROM "Tabulka1", "Tabulka2"
>> >WHERE "Tabulka1".Cislo = "Tabulka2".Cislo
>>
>>
>>
>
>Systemove prostredky
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 9.7.1998 21:35:11
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj
mam tento problem:
vytvoril jsem programek v D3 pouzivajici databaze Paradox 7(mam jich tam 24), kompilovany program ma velikost 1,8 MB a obsahuje asi 40 formularu. Problem je v tom ze pri spusteni aplikace klesnou systemove prostredky ve windows 95 o vice jak 50% coz jsem nedocilil ani spustenim nekolika komercnich programu najednou (Corel, Excel, Word ...).
Nevite nekdo jakou delam chybu a jak to napravit? Mam strach, ze to na slabsim PC nebude chodit.
Diky.
Standa Cerny
s.cerny(zv)mod(tec)cz
tel. 048/510 04 20
048/510 49 85
Prubeh zpacovani dotazu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.7.1998 21:57:42
Radek Sou�ek wrote:
> (2)
> Nezkou�el jste n�kdo zjistit ��slo verze, ... z programu (version info).
> N�jak se mi to neda��. Mo�n� komplikace je ta, �e se jedn� nav�c o DLL.
Ahoj,
Nedavno se to tady tusim probiralo, zkus se podivat do archivu nebo na DSP
tam na to budou urcite nejake komponenty. Nebo ti muzu poslat vlastni unit
mailem, ted se totiz prave snazim nejakym rozumnym zpusobem vyresit pridavani
VersionInfo do projektu v Delphi 2.
Petr Vones, amatersky programator
Systemove prostredky
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 9.7.1998 23:50:42
Ja myslim, ze je to tim, ze volate Create na vsechny formulari v project source (dpr) (Kouknete do project options a odstrante Autocreate). Zkuste formulare vytvaret a uvolnovat podle potreby.
Ladislav Nagy
Prubeh zpacovani dotazu
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 10.7.1998 07:41:36
> -----P�vodn� zpr�va-----
> Od: Radek Sou�ek [SMTP:rsoucek(zv)email(tec)cz]
> Odesl�no: 9. �ervence 1998 21:17
> Komu: DELPHI Distribution List
> P�edm�t: Re: Prubeh zpacovani dotazu
>
> (2)
> Nezkou�el jste n�kdo zjistit ��slo verze, ... z programu (version
> info).
> N�jak se mi to neda��. Mo�n� komplikace je ta, �e se jedn� nav�c o
> DLL.
>
[Linhart Petr]
Ja pouzivam Rx tools a tam jsou na to nastroje a jde to bez
problemu
> �au Radek
>
> -----Original Message-----
>