Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
OLE
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 9.10.2001 11:15:19
Zkousim ovladani Wordu z Delphi. Nasledujici konstrukce by mela otevrit
prislusny soubor, oznacit cely text a nastavit styl na NADPIS 3, ovsem konci
chybou "Nasledujici parametr neni nepovinny". Nehral si nekdo s necim
podobnym?
Diky za radu.
var
V: Variant;
begin
V := CreateOleObject('Word.Application');
V.Visible := True;
V.Documents.Open.Filename:='c:\windows\plocha\word.doc';
V.Selection.WholeStory;
V.ActiveDocument.Styles('Nadpis 3');
V.ActiveDocument.Save;
V.Quit;
end;Zm�na velikosti JPEG �i GIF
[*] Werki <delphi(zv)minv.sk> - 9.10.2001 11:43:58
V pripade, ze ti zalezi na kvalite obrazkov, tak skus pouzit
nieco ine ako stretch draw ktory ti obrazok
pri vacsej zmene rozlisenia graficky slusne znehodnoti,
sprav si utilitku cez DX ktora ti nad tym spravi aj
bi/trilinear filtering + nejaky ten antialising (alebo ak xes aj
diethering...buee)
Vlastne, co tak pouzit nejaky zo starych dosovskych konvertovacov.
Su ich tony, ale namatkovo spomeniem Alchemy ktore som kedysi pouzival.
Z windoze spustis:
alchemy pokus.jpg -X300 -Y100 -Za1 -d0 -g pokus2
toto ti vyrobi gif (automaticky hned spravi heckbertovu kvantizaciu, vyrobi
256 farebnu paletu)
spravi antializing o sile 1 so zachovanim proporcii obrazku, nepouzije
diethering
a vypluje to v tom rozliseni. Ked si nad to na par dni sadnes, take cosi ako
alchemy si
dokazes spravit aj sam pripadne to zapracovat rovno do svojho programu.
Tally ho
Werki
> > v moj� aplikaci v Delphi bych r�d p�ij�mal JPEG/GIF obr�zky, kter� by
> > se pak uploadovali na Web site. Probl�m je, �e tyto obr�zky by m�li
> > m�t standardn� velikost, tak�e aplikace by je m�la upravit do t�to
> > velikosti (zmen#it, zv�t#it). Nev�te, zda existuje n�jak� knihovna a
> > nebo alespon nejak� utilitka, kter� by #la zavolat a kter� by
> > provedla v�#e popsan�. JPEG by i sta�il, v�m, �e s GIFy jsou nejak�
> > probl�my s copyrightem...
> >
>
> Koukni se do archivu konference 5.11.2001 tam presne o tom psal
> Petr Vones.
>
> JCL:
> http://delphi-jedi.org/Jedi:CODELIBJCL
>
>Excel a OLE
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 9.10.2001 11:45:11
From: <brant(zv)dcomm(tec)cz>
> 1. Do Workbooku pridavam listy a nikde jsem se nedovedel, jestli je nejake
> omezeni pro jejich pocet. Davam jich tam kolem 60 a nevim, jestli je
nejaka
> rezerva.
viz. Help v Excelu
> 2. Neumim nastavit sirku sloupce. Zkousel jsem to udelat podle napovedy VB
> pro Excel od MS:
> NewWorkSheet:= NewWorkBook.WorkSheets.Add;
> NewWorkSheet.Columns('A').ColumnWidth:= 24;
> jenze mi to vyplivne hlasku typu "Clen nebyl nalezen" nebo neco v tom
smyslu
Ide to akurat zapis metod co sa tyka zatvoriek ()[] a uvodzoviek '' nie vzdy
odpoveda popisu v MSDN takze obcas to treba skusat metodou pokus-omyl.
Skus toto:
mExcel.Cells[mRow, 1].ColumnWidth := 15;
> 3. Sectu nekolik bunek, vysledek vlozim do bunky, jenze v souctu se presto
> vyskytuji "parazitni" desetinna mista navic, nechapu proc:
> for j:= FR + 10 to FR + 14 do
> begin
> s:= single(NewWorkSheet.Cells[j, FC + 6]);
> sum:= sum + s;
> end;
> NewWorkSheet.Cells[FR + 15, FC + 6]:= sum
Skus prenastavit format textu bunky
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
OLE
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 9.10.2001 12:08:19
> -----Puvodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]za u�ivatele Krayzel Libor
> Odesl�no: 9. listopadu 2001 11:15
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> Predmet: OLE
>
>
> Zkousim ovladani Wordu z Delphi. Nasledujici konstrukce by
> mela otevrit
> prislusny soubor, oznacit cely text a nastavit styl na NADPIS
> 3, ovsem konci
> chybou "Nasledujici parametr neni nepovinny". Nehral si nekdo s necim
> podobnym?
>
> Diky za radu.
>
> var
> V: Variant;
> begin
> V := CreateOleObject('Word.Application');
> V.Visible := True;
> V.Documents.Open.Filename:='c:\windows\plocha\word.doc';
V.Documents.Open('c:\windows\plocha\word.doc')
> V.Selection.WholeStory;
> V.ActiveDocument.Styles('Nadpis 3');
> V.ActiveDocument.Save;
> V.Quit;
> end;
Zrovna vcera.jsem si s tim hral ;-)
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
hot-line 0608/944444
tel. 0467/521555, 0467/520141
http://www.missoftware(tec)cz
mailto:info(zv)missoftware(tec)cz
Combo Box - Hint
[*] Vakoni� Pavol <vakonic(zv)tyory.sk> - 9.10.2001 12:09:16
Ahoj,
Potreboval by som vyriesit: Ak je text (items) v ComboBoxe dlhsia ako ComboBox - potreboval by som "ukazat" Hint s danym textom - pri listovani ComboBoxu.
Skusal som pouzit: ComboBox.csOwnerDrawVariable a akciu ComboBox1DrawItem - dokazem danu polozku zobrazit niekde inde napr. v Labeli, ale nevidim dane polozky v ComboBoxe. (vychadzal som z podobneho problemu zobrazenie roznej farby riadkov v dgGride - tam to bolo OK)
Moj pokus:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ComboBox1.Canvas.Brush.Color:=clRed;
ComboBox1.Canvas.Font.Color:=clBlack;
ComboBox1.Canvas.DrawFocusRect(Rect);
Label1.Caption:=ComboBox1.Items[Index];
end;
Palo
(D5 Ent., W2000 SP1)
Combobox - disable polozky seznamu
[*] Werki <delphi(zv)minv.sk> - 9.10.2001 12:12:03
Ja to riesim tak, ze na OnChange skontrolim ci nebolo vybrane uz neplatne
meno a vypisem dialog.
tally ho
Werki
v souvislosti s ukoncenim existence nekterych men Marka, Frank, Lira, ...
potrebuji upravit combo tak, aby v nabidce zustaly (aby se spravne
zobrazovala mena castek v historii), ale neslo je vybrat. Idealni by bylo
aby mely i odlislou barvu.
Okraje pri tisku
[*] campulka <campulka(zv)czas(tec)cz> - 9.10.2001 12:13:19
Cau,
Mam nasledujici otazku:
Jak zjistim velikost okraju papiru na ktere nemuze tiskarna tisknout?
- TPrinter.Canvas definuje tisknutelnou plochu v ClipRect.
ClipRect pochopitelne nepokreje celou plochu papiru, a mne zajima
prave velikost tech nepotisknutych okraju...
Dik Jirka.Nekompatibilita D6->D5 v DFM - cestina - vyreseno
[*] Ales Martinik <amartinik(zv)artbrno(tec)cz> - 9.10.2001 12:18:41
Pred casem jsem narazil na problem, ze dfm soubory u D6 v textovem modu
obsahuji
text kodovany v UTF-8, s cimz si D5 neporadi a nelze to vypnout.
Pro reseni problemu (a dalsich prebyvajicich radku - napr DesignInfo) v dfm
pro prenos do D5
jsme s kolegou udelali drobny programek, ktery to resi a od te doby v pohode
vyvijime pod D5 i D6.
Pokud by byl zajem, dal bych ho do uschovny(tec)cz
Zdravi
A. Martinik
Okraje pri tisku
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 9.10.2001 12:22:25
A co se zkusit podivat na velikost nastaveneho formatu papiru, z toho vzit max.
plochu a odecist tisknutelnou oblast ?
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> Jak zjistim velikost okraju papiru na ktere nemuze tiskarna tisknout?
> - TPrinter.Canvas definuje tisknutelnou plochu v ClipRect.
> ClipRect pochopitelne nepokreje celou plochu papiru, a mne zajima
> prave velikost tech nepotisknutych okraju...
>
> Dik Jirka.OT: Outlook Express a Delphi
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.10.2001 12:23:19
Jedinou moznosti o ktere vim je JCLMapi.
Tam si muzes ze seznamu klientu dostupnych v systemu vybrat OE a
e-mail poslat pres nej.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
9.11.2001 Peter:
> No toto riesenie ma jeden hacik ze neviem cez neho automaticky poslat mail a
> okrem toho potrebujem mat istotu ze to bude outlook express.
> Existuje vobec nejaka moznost programovo ovaldat outlook express z delphi?
> Peter
> ----- Original Message -----
> From: Kakacka Pavol <kakacka(zv)proca(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, November 09, 2001 8:12 AM
> Subject: Re: OT: Outlook Express a Delphi
>> From: "VALIK" <valentapat(zv)volny(tec)cz>
>> > Jednou sem potreboval rychle odeslat pres outlock. takto.
>> > otevrel sem si v TWebBrowser stranku temp.html.
>> > Do temp.html sem predtim vygeneroval nasledujici kod. (jednoduchy)
>> > <script>.
>> > location.href="mailto: adresa1(zv)neco(tec)cz;
>> > adresa2(zv)naco(tec)cz?subject=textpredmet&text=text zpravy "
>> > </script>
>>
>> Toto neni treba riesit takto komplikovane, staci to spustit cez
>> ShellExecute:
>>
>> procedure exKsOpenNewMail(const AAddress, ASubject, ABody: String);
>> var
>> S: String;
>> begin
>> // mailto:nekdo(zv)nekde.com?subject=Pozdrav&body=texticek,
>> S := 'mailto:' + AAddress;
>> S := S + '?subject=' + ASubject;
>> S := S + '&body=' + ABody;
>> ShellExecute(Application.Handle, nil, PChar(S), nil, nil, SW_SHOW);
>> end;
>>
>>
>> Kakacka Pavol
>> KasiX(zv)atlas(tec)cz
>>Okraje pri tisku
[*] campulka <campulka(zv)czas(tec)cz> - 9.10.2001 12:27:05
no jo, ale z toho nezjistim jak velkej okraj je vpravo a jakej vlevo...
>
> A co se zkusit podivat na velikost nastaveneho formatu
> papiru, z toho vzit max.
> plochu a odecist tisknutelnou oblast ?
>
> > Jak zjistim velikost okraju papiru na ktere nemuze tiskarna
> tisknout?
> > - TPrinter.Canvas definuje tisknutelnou plochu v ClipRect.
> > ClipRect pochopitelne nepokreje celou plochu papiru, a mne zajima
> > prave velikost tech nepotisknutych okraju...
> >
> > Dik Jirka.
> MDIChild
[*] prajz.rumcajs(zv)quick(tec)cz - 9.10.2001 12:38:24
Zdravim ve spolek,
vyskytl semi mensi problem. Mam MDI aplikaci, kde se mi
otevira nekolik MDI oken. Kdyz dam vytvorit nove okno, vse je v poradku az
na to, ze jeho vyska je mensi a tudiy se nezobrazi vsechny komponenty na
formulari. Nevite nekdo, jak se tohoto zbavit?
OOOOO
OOOOO
OOOOOOO
(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
----------oOOO--(_)--OOOo------------------------------
Lukas Weiss receny Rumcajs
e-mail: rumcajs(zv)email(tec)cz
ooO
-------------( )--Ooo--------------------------------
\ ( ( )
\_) ) /
(_)Okraje pri tisku
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 9.10.2001 12:52:26
dc=Printer object.Canvas.Handle
mm=zda ma byt vysledek v des. milimetru
width=fyzicka sirka papiru
height=fyzicka delka papiru
printarea=tisknutelna oblast (pokud nil tak se nevraci)
procedure AllPageValue (dc : tHandle; mm : boolean; var width, height :
longint; printarea : pRect);
var dpix, dpiy : longint;
begin
try
width:=GetDeviceCaps(DC,PHYSICALWIDTH);
height:=GetDeviceCaps(DC,PHYSICALHEIGHT);
if (printarea<>nil) then
begin
printarea^.Left:=GetDeviceCaps(DC,PHYSICALOFFSETX);
printarea^.Top:=GetDeviceCaps(DC,PHYSICALOFFSETY);
printarea^.Right:=width-printarea.Left;
printarea^.Bottom:=height-printarea.Top;
end;
if (mm) then
begin
dpix:=GetDeviceCaps (DC,LOGPIXELSX);
dpiy:=GetDeviceCaps (DC,LOGPIXELSY);
width:=trunc((width/dpix)*254);
height:=trunc((height/dpiy)*254);
if (printarea<>nil) then
begin
printarea^.Left:=trunc((printarea^.Left/dpix)*254);
printarea^.Top:=trunc((printarea^.Top/dpiy)*254);
printarea^.Right:=trunc((printarea^.Right/dpix)*254);
printarea^.Bottom:=trunc((printarea^.Bottom/dpiy)*254);
end;
end;
except
width:=0;
height:=0;
if (printarea<>nil) then
printarea^:=Rect (0,0,0,0);
end;
end;
Okraje pri tisku
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 9.10.2001 12:53:55
Hi,
Horn� a lev� okraj zji#tuji takto:
res := GetDeviceCaps(Printer.Handle,Logpixelsx); //vypocet rozlisen� X
LeftOff:=Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX)/Res);
//zji#t�n� lev�ho okraje tisk�rny
res := GetDeviceCaps(Printer.Handle,Logpixelsy); //v�po�et rozli#en� Y
TopOff:=Round(25.4*GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY)/Res);
//zji#t�n� horn�ho okraje tisk�rny
Ur�it� se d� naj�t i pravy a dolni okraj.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
> -----Original Message-----
> Jak zjistim velikost okraju papiru na ktere nemuze tiskarna tisknout?
> - TPrinter.Canvas definuje tisknutelnou plochu v ClipRect.
> ClipRect pochopitelne nepokreje celou plochu papiru, a mne zajima
> prave velikost tech nepotisknutych okraju...www.uschovna.cz: zprava o ulozeni zasilky
[*] Ales Martinik <amartinik(zv)artbrno(tec)cz> - 9.10.2001 13:44:52
ZPR#VA O ULO�EN# Z#SILKY - http://www.uschovna(tec)cz/
Odes�latel: Ales Martinik (amartinik(zv)artbrno(tec)cz)
Adres�t: Konference Delphi (delphi-l(zv)clexpert(tec)cz)
#�slo z�silky: Uschovna3bebcf8f87345
ZPR#VA PRO P�#JEMCE:
Program D625.exe - terminalova aplikace, ktera prevede dfm
v TEXTOVEM modu z D6->D5. Prevadi cestinu z UTF-2 do win1250, odstranuje nektere nadbytecne deklarace, ktere v D5
nejsou a hlasi to chyby pri otevreni dfm.
Vse v ini souboru: sekce Substitute: kodovani znaku UTF
na znak windows. Dalsi sekce = typ objektu,
pak klicove slovo, ktere prebyva a pocet radku, ktere smazat
[TPanel]
DesignInfo=3
Pripadne problemy, doplneni ceskych prip. jinych paznaku prosim na mailto:amartinik(zv)artbrno(tec)cz
V elektronick� �schovn� pro v�s byly ulo�eny tyto soubory:
D625.zip (41780 bajt�)
---
---
---
---
---
B�hem n�sleduj�c�h 14 dn� si je m��ete vyzvednout na URL
http://www.uschovna(tec)cz/vydej.php3/Uschovna3bebcf8f87345
--------------------------------------------------------------------------
http://www.uschovna(tec)cz/ Copyright (C) 1998-99 Ji�� Randus, InWay, a. s.DCOM a rychlost
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 9.10.2001 14:12:46
Muzes si zmerit odezvu DCOMu tak ze si vyrobis COM objekt
s jednou metodou s prazdnou implementaci a z klienta ji budes volat.
Pred nejakou dobou (tak pred 2-3 lety) jsme tohle mereni delali
a takovych volani stihne udelat klient radove maximalne stovky
za sekundu. Pricemz v tvem pripade by i dotaz na property byl
jedno volani. Resenim ktere jsme udelali my (nez jsme aplikaci
predelali z DCOMu na TCP sokety) bylo koncentrovat vice veci
do jednoho volani, takze misto rozhrani s elementarnimi metodami
pak maji objekty spise komplexnejsi metody s furou parametru,
resp. s parametry typu variant (ktere mohou mit v sobe napr.
pole dalsich hodnot).
BTW podobne zmerena rezie COM objektu v DLL je o moc
lepsi, radove desetitisice volani za sekundu. Z tohoto pohledu
jsou COM objekty v DLL docela dobre pouzitelne.
Martin Schayna
----- Original Message -----
From: "Ing. Jarom�r Sola�" <solar(zv)magion(tec)cz>> Dobry den,
> chtel bych se zeptat zkusenejsich: Na serveru budu mit kolekci napriklad
> IFirmy s polozkami typu IFirma. IFirmy bude mit metody pro vytvoreni
> podmnoziny firem, ktere mi vraci jako IFirma. IFirma bude mit napriklad 20
> vlastnosti (Nazev, ICO, DIC...). Klient vytvori na serveru instanci teto
> kolekce a vybere nejaka data (treba 200 zaznamu). Jak to bude s rychlosti,
> pokud budu na klientu prochazet kolekci a nacitat jeji polozky treba do
> gridu? Bude se pro kazdou vlastnost firmy generovat volani pres sit nebo
je
> tam nejaka cache? Da se to delat nejak jinak? Privitam i pripadne odkazy
na
> Inetu.
ADO
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 9.10.2001 14:19:36
Ahoj
Vytvoril jsem aplikaci (v Delphi 6) vyuzivajici ADO komponenty
(TADOConnection, TADOQuery, ...) pripojujici se na Oracle server a
zajimalo by me, co vse musi mit uzivatel nainstalovane, aby mu to
spravne fungovalo.
Predem diky za odpoved.
Petr
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
`======----( icq: 73995087 )==--- -- -
ADO
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 9.10.2001 14:47:19
Ahoj
Tusim ze staci OLE-DB driver pro Oracle (ten od Microsoftu je soucasti
instalece MS SQL 7) a podporu ADO (da se stahnout ze serveru MS).
Jaromir Cermak
-----Original Message-----
From: Petr Vaclavek [mailto:bla(zv)atrey.karlin.mff.cuni(tec)cz]
Ahoj
Vytvoril jsem aplikaci (v Delphi 6) vyuzivajici ADO komponenty
(TADOConnection, TADOQuery, ...) pripojujici se na Oracle server a
zajimalo by me, co vse musi mit uzivatel nainstalovane, aby mu to
spravne fungovalo.ADO a identity
[*] bardon <bardon(zv)akord-soft(tec)cz> - 9.10.2001 14:52:16
Neni to rutinni v cele aplikaci, ja to ale potrebuji to na tomto miste.
Pochopitelne si identity vypnu jen na dobu na kterou to potrebuji a jen na
tabulku u ktere to potrebuji.
Jde mi vlastne jen o to, ze potrebuji srovnat obsah dvou tabulek tak, aby
byly z urcite casti identicke. Jedna se o dve stejne tabulky ve dvou ruznych
databazich. Ale nemuzu je prevalcovat cele, protoze nechci aby byly
identicke cele, ale aby byla identicka nejaka jejich cast. No a proto
potrebuji vnutit i hodnotu polozky identity.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lstiburek Pavel
Sent: Friday, November 09, 2001 10:01 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: ADO a identity
Uplne presne nerozumim problemu, identity lze vypnout pouze pro jednu
tabulku v databazi v jednom okamziku. Pokud je vkladani hodnot typu identity
rutinni ralezitost doporucuji je nepouzivat a zajistit si generovani
primarniho klice jinym zpusobem.
problem s rychlosti MSSQL 7
[*] bardon <bardon(zv)akord-soft(tec)cz> - 9.10.2001 14:59:34
Napada me:
1) skusit obcas reindexaci (vyvazeni nevyvazenych indexu)
2) pokud s temi tabulkami nekdo soucasne pracuje muze se tam neco zamykat
3) pokud to pracuje v jedne transakci, bude mit velikost transakce vliv na
rychlost
4) pokud tam jsou triggery, budou zpomalovat
5) clusterovane indexy zpomaluji ukladani dat (ale zalezi take na dalsich
okolnostech)
Obecne se vyplati nejdrive nasypat data do holych tabulek, ktere nemaji
triggery ani indexy - to jde vzdy velmi rychle. Je-li to mozne, mela by se
data zkontrolovat zde, bude to rychle.
Pri presypavani dat z techto docasnych ulozist do trvalych se vyplati shodit
vsechny indexy (je-li to mozne) a take shodit vsechny triggery (je-li to
mozne). Nekdy se da kouzlit i s dalsimi vecmi jako je insert row locking
atd. tady uz zalezi na konkretnich podminkach.
Jinak ale miliony vet by nemely byt problem.ADO
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 9.10.2001 15:13:11
Mam obavy, ze to nestaci. Bude se muset jeste naistalovat Oracle klient a v
nem vytvorit pripojeni na Oracle server. MS OLE DB Provider for Oracle je
soucasti instalace klienta.
Martin Ben
> -----P�vodn� zpr�va-----
> Od: CERMAK [mailto:CERMAK(zv)procom(tec)cz]
> Odesl�no: 09.11.2001 14:47
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> P�edm�t: RE: ADO
>
>
> Ahoj
>
> Tusim ze staci OLE-DB driver pro Oracle (ten od Microsoftu je soucasti
> instalece MS SQL 7) a podporu ADO (da se stahnout ze serveru MS).
>
> Jaromir Cermak
>
> -----Original Message-----
> From: Petr Vaclavek [mailto:bla(zv)atrey.karlin.mff.cuni(tec)cz]
>
>
> Ahoj
> Vytvoril jsem aplikaci (v Delphi 6) vyuzivajici ADO komponenty
> (TADOConnection, TADOQuery, ...) pripojujici se na Oracle server a
> zajimalo by me, co vse musi mit uzivatel nainstalovane, aby mu to
> spravne fungovalo.
> Moznosti pouziti OleDB
[*] Kru��k Tom� <T.Kruzik(zv)Aquasoft(tec)cz> - 9.10.2001 16:02:00
Zdravim vsechny cleny konference,
Chtel jsem se zeptat jake jsou moznosti pouziti komponent OleDB pro
zpracovani velkoobjemovych dat v realnem case.
Potrebuji totiz pracovat z cca pohledem na 7000 zaznamu a moznost pohledu na
cca 70000 informacnich zaznamu pro jeden z tech 7000. Ale samozrejme vse
potrebuji zpracovat z MSSQL do zobrazeni v klientsk� aplikaci.
V podstate se mi jedna o kapacitni vyuziti techto komponent v realnem case.
Za odpovedi predem dekuji
Tom�# Kru��k
Aquasoft, spol. s r. o.
T�#nov 5, box 318
Praha 1, 110 00
tel: 02/ 24 805 305
fax: 02/ 24 805 310
mobil: 0603/ 947 060
ICQ: 99789730
ADO probl�m p�i zobrazen� Oracle tabul
[*] Horcicka Petr <Petr.Horcicka(zv)mafra(tec)cz> - 9.10.2001 16:15:28
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahojky ve spolek,
nev�m si rady a tedy pros�m o radu. P�i zobrazen� dat p�es komponentu
ADOTable,DataSourse se m� v tabulce zobrazuj� nuly na m�sto skute�n�ch
hodnot, ale jen u polo�ek s datov�m typem NUMBER.
Oracle 8i,D6,NT4.
P�edem d�ky Petr Hor�i�ka.ADO
[*] Horcicka Petr <Petr.Horcicka(zv)mafra(tec)cz> - 9.10.2001 16:18:49
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
M�� pravdu, je t�eba nainstalovat a nakonfigurovat Oracle klienta.
Petr Hor�i�ka
-----P�vodn� zpr�va-----
Od: Ben, Martin (CAP, GCF) [mailto:Martin.Ben(zv)gecapital.com]
Odesl�no: 9. listopadu 2001 15:13
Komu: 'delphi-l(zv)clexpert(tec)cz'
P�edm�t: RE: ADO
Mam obavy, ze to nestaci. Bude se muset jeste naistalovat Oracle klient a v
nem vytvorit pripojeni na Oracle server. MS OLE DB Provider for Oracle je
soucasti instalace klienta.
Martin Ben
> -----P�vodn� zpr�va-----
> Od: CERMAK [mailto:CERMAK(zv)procom(tec)cz]
> Odesl�no: 09.11.2001 14:47
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> P�edm�t: RE: ADO
>
>
> Ahoj
>
> Tusim ze staci OLE-DB driver pro Oracle (ten od Microsoftu je soucasti
> instalece MS SQL 7) a podporu ADO (da se stahnout ze serveru MS).
>
> Jaromir Cermak
>
> -----Original Message-----
> From: Petr Vaclavek [mailto:bla(zv)atrey.karlin.mff.cuni(tec)cz]
>
>
> Ahoj
> Vytvoril jsem aplikaci (v Delphi 6) vyuzivajici ADO komponenty
> (TADOConnection, TADOQuery, ...) pripojujici se na Oracle server a
> zajimalo by me, co vse musi mit uzivatel nainstalovane, aby mu to
> spravne fungovalo.
> Moznosti pouziti OleDB
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 9.10.2001 16:51:28
On 9 Nov 2001 at 16:02, Kru��k Tom�# wrote:
> Zdravim vsechny cleny konference,
>
> Chtel jsem se zeptat jake jsou moznosti pouziti komponent OleDB pro
> zpracovani velkoobjemovych dat v realnem case.
>
> Potrebuji totiz pracovat z cca pohledem na 7000 zaznamu a moznost
> pohledu na cca 70000 informacnich zaznamu pro jeden z tech 7000. Ale
> samozrejme vse potrebuji zpracovat z MSSQL do zobrazeni v klientsk�
> aplikaci.
>
> V podstate se mi jedna o kapacitni vyuziti techto komponent v realnem
> case.
Pokud mas na mysli moje reseni, tak ja to delam tak, ze nactu vsechna data do sveho vlastniho
bufferu, a dale pracuju jen s nim. Ve verzi, ktera je ted vystavena, jsou vsechna data nactena v
OdbGridu. Takze data se tahaji jen jednou, pak uz s nimi pracuje jen grid, takze rychlost muze byt
pri takovych objemech dobra. Jenom je treba mit dost pameti, aby bylo data kde skladovat. Pri
zmene je mozne refreshnout jak cely balik, tak i jednotlivy zaznam (pokud vis, ktery to je, ale to se
rozhodne neda naklikat, ale je treba to vyprogramovat).
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
ODBCe nebo ADO?
[*] Ji�� Vosla�, Profireal, a.s. <jiri.voslar(zv)profireal(tec)cz> - 9.10.2001 16:54:04
Zdravim,
nemohu se rozhodnout, zda pristupovat k MS SQL 2000 z Delphi 6 Enterprise
pres ADO (nejspise Adonis) nebo pres ODBCe. Na nativnim pristupu pres OLE DB
netrvam, na ODBC mi zatim nic nevadi. Jake jsou Vase zkusenosti - co
doporucujete?
Diky
Jiri Voslar
Jak na kolecko mysi??
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 9.10.2001 17:36:05
> Viem si predstavit nejaku takuto upravu:
> Koliesko ma vplyv na kontrolku, ktora ma prave focus, kym je kurzor mysi
> umiestneny nad nou. Ak je kurzor mysi nad inou kontrolkou, potom sa sprava
> presmeruje na nu a necha ju rozhodnut, ci ju spracuje. Ak ano, povazuje sa
> to za vybavenu vec. Ak nie, sprava sa presmeruje na kontrolku, ktora ma
> focus (teda defaultne spravanie VCL).
Tak nejak bych si to predstavoval.> Otazkou je (kedze to ma byt komponenta), ci ratat s pripadmi, ked parent
> form nie je VCL form ale cudzie (ne-Delphi) okno. Potrebujes mat osetreny
> aj takyto pripad
Takovy pripad mit osetreny nepotrebuji. Komponenta bude vzdy na TForm ....
Diky za pomoc.
S pozdravem JK
OT: Outlook Express a Delphi
[*] Peter <peter(zv)baris.sk> - 9.10.2001 17:54:29
Skusal som pouzit Mapi a JCLMapi ale narazil som na jeden problem z
Outlookom Express 5.0 prip 5.5.
akonahle sa pokusim nieco poslat cez mapi napriklad mapisendmail tak mi to
priamo v mapi zatuhne na prikaze sendmail.
Viem ze sa tu isty cas nejaky podobny pripad preberal len som sa nedopatral
k tomu ako to odstranit
Pokial s tym ma niekdo skusenost mohol by mi s tym pomoct
vdaka Peter
> Jedinou moznosti o ktere vim je JCLMapi.
> Tam si muzes ze seznamu klientu dostupnych v systemu vybrat OE a
> e-mail poslat pres nej.
>
> ------
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 9.11.2001 Peter:
>
> > No toto riesenie ma jeden hacik ze neviem cez neho automaticky poslat
mail a
> > okrem toho potrebujem mat istotu ze to bude outlook express.
> > Existuje vobec nejaka moznost programovo ovaldat outlook express z
delphi?
>
> > Peter
>
>
> > ----- Original Message -----
> > From: Kakacka Pavol <kakacka(zv)proca(tec)cz>
> > To: <delphi-l(zv)clexpert(tec)cz>
> > Sent: Friday, November 09, 2001 8:12 AM
> > Subject: Re: OT: Outlook Express a Delphi
>
>
> >> From: "VALIK" <valentapat(zv)volny(tec)cz>
> >> > Jednou sem potreboval rychle odeslat pres outlock. takto.
> >> > otevrel sem si v TWebBrowser stranku temp.html.
> >> > Do temp.html sem predtim vygeneroval nasledujici kod. (jednoduchy)
> >> > <script>.
> >> > location.href="mailto: adresa1(zv)neco(tec)cz;
> >> > adresa2(zv)naco(tec)cz?subject=textpredmet&text=text zpravy "
> >> > </script>
> >>
> >> Toto neni treba riesit takto komplikovane, staci to spustit cez
> >> ShellExecute:
> >>
> >> procedure exKsOpenNewMail(const AAddress, ASubject, ABody: String);
> >> var
> >> S: String;
> >> begin
> >> // mailto:nekdo(zv)nekde.com?subject=Pozdrav&body=texticek,
> >> S := 'mailto:' + AAddress;
> >> S := S + '?subject=' + ASubject;
> >> S := S + '&body=' + ABody;
> >> ShellExecute(Application.Handle, nil, PChar(S), nil, nil, SW_SHOW);
> >> end;
> >>
> >>
> >> Kakacka Pavol
> >> KasiX(zv)atlas(tec)cz
> >>Jak na kolecko mysi??
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.10.2001 18:04:41
> Tak nejak bych si to predstavoval.
Ahoj, tak som to skusal, a narazil som na dalsie problemy: ;-)
Problem 1
Odchytavanie sprav na formulari nestaci. Problem je v nasledovnom kode VCL v
TControl.MouseWheelHandler:
var
Form: TCustomForm;
begin
Form := GetParentForm(Self);
if (Form <> nil) and (Form <> Self) then
Form.MouseWheelHandler(TMessage(Message))
...
Tento kod obchadza akekolvek posielanie sprav a vola priamo
MouseWheelHandler parent formulara (ak ho najde).
V praxi to znamena, ze bez modifikacie VCL nie je mozne (bez suroveho
hackovania) zmenit toto spravanie na urovni Tvojej komponenty. :-(
Da sa to obist na urovni formulara, napr.
type
TFormMain = class(TForm)
public
procedure MouseWheelHandler(var Message: TMessage); override;
end;
procedure TFormMain.MouseWheelHandler(var Message: TMessage);
var
MouseControl: TControl;
begin
with TCMMouseWheel(Message) do
MouseControl := ControlAtPos(ScreenToClient(SmallPointToPoint(Pos)),
False, True);
with Message do
if Assigned(MouseControl) then
Result := MouseControl.Perform(CM_MOUSEWHEEL, WParam, LParam)
else
inherited MouseWheelHandler(Message);
end;
Tento kod zaruci, ze kazdy potomok TControl na tomto formulari dostane
spravu CM_MOUSEWHEEL, ak je kurzor mysi umiestneny nad nim pocas pohybu
kolieskom mysi. Tym padom budu fungovat aj eventy OnMouseWheel,
OnMouseWheelDown a OnMouseWheelUp pre kazdeho potomka TControl na tomto
formulari, ktory nepotlaci povodne VCL spracovanie spravy CM_MOUSEWHEEL.
Problem 2
Chceme dat moznost kazdemu potomkovi TControl, aby jeho pripadny
OnMouseWheelxxx event handler fungoval podla ocakavania, t.j. ak nastavi
parameter Handled na True, potlacit povodne spracovanie WM_MOUSEWHEEL
kontrolkou, ktora ma prave input focus.
Toto tiez nie je jednoduche na urovni Tvojej komponenty. Vyzadovalo by to
zrejme subclassnut parent form na odchytenie CM_FOCUSCHANGED a osetrit tuto
spravu subclassnutim kontrolky, ktora prave dostala focus. (Mozno aj nejako
inak, ale momentalne ma iny sposob nenapada.) Asi sa to da spravit, ale A)
pripada mi to dost krkolomne, a B) problem 1 riesime tiez na urovni
formulara.
Na urovni formulara je to jednoduchsie:
TFormMain = class(TForm)
private
FFocusControl: TWinControl; // subclassnuta kontrolka (ktora ma prave
focus)
FInHandler: Boolean; // zabranenie rekurzie v MouseWheelHandler
FWindowProc: TWndMethod; // jej povodna window procedura
procedure FocusWindowProc(var Message: TMessage); // nasa nova window
procedura
procedure SetFocusControl(AControl: TWinControl); // uvolni subclass
predoslej a subclassne novu kontrolku
procedure CMFocusChanged(var Message: TCMFocusChanged); message
CM_FOCUSCHANGED;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure MouseWheelHandler(var Message: TMessage); override;
end;
{ TFormMain private }
procedure TFormMain.FocusWindowProc(var Message: TMessage);
begin
case Message.Msg of
WM_MOUSEWHEEL:
begin
MouseWheelHandler(Message);
if Message.Result = 0 then
FWindowProc(Message);
end;
else
FWindowProc(Message);
end;
end;
procedure TFormMain.SetFocusControl(AControl: TWinControl);
begin
if AControl <> FFocusControl then
begin
if Assigned(FFocusControl) then
begin
FFocusControl.WindowProc := FWindowProc;
FWindowProc := nil;
FFocusControl := nil;
end;
FFocusControl := AControl;
if Assigned(FFocusControl) then
begin
FWindowProc := FFocusControl.WindowProc;
FFocusControl.WindowProc := FocusWindowProc;
end;
end;
end;
procedure TFormMain.CMFocusChanged(var Message: TCMFocusChanged);
begin
with Message do
SetFocusControl(Sender);
inherited;
end;
{ TFormMain public }
constructor TFormMain.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFocusControl := nil;
FWindowProc := nil;
end;
destructor TFormMain.Destroy;
begin
SetFocusControl(nil);
inherited Destroy;
end;
procedure TFormMain.MouseWheelHandler(var Message: TMessage);
var
MouseControl: TControl;
begin
if FInHandler then // tu sme volani nasledkom SendMessage nizsie
Exit;
// je kurzor mysi nad niektorou kontrolkou?
with TCMMouseWheel(Message) do
MouseControl := ControlAtPos(ScreenToClient(SmallPointToPoint(Pos)),
False, True);
with Message do
if Assigned(MouseControl) then
begin
if (MouseControl is TWinControl) then // je to window control?
begin
if MouseControl <> ActiveControl then // nema input focus
begin
FInHandler := True; // zabranenie rekurzie
try
// posleme jej WM_MOUSEWHEEL, pre pripad, ze tato kontrolka
nejako implicitne na nu reaguje, napr. TMemo
Result := SendMessage(TWinControl(MouseControl).Handle, Msg,
WParam, LParam);
finally
FInHandler := False;
end;
if not Result then
Result := MouseControl.Perform(CM_MOUSEWHEEL, WParam, LParam);
// nechame vyvolat jej OnMouseWheelxxx eventy
end;
end
else // je to potomok TControl; nechame vyvolat jeho OnMouseWheelxxx
eventy
Result := MouseControl.Perform(CM_MOUSEWHEEL, WParam, LParam);
end
else // ziadna kontrolka pod kurzorom mysi
inherited MouseWheelHandler(Message);
end;
Este to trochu popisem, aby to bolo zrozumitelnejsie. Sorry za tuto
programatorsku zmes anglictiny a slovenciny, v slovenskom Pascale som este
neprogramoval ;-)
Pouzivame techniku zvanu subclassing, co znamena nahradenie window procedure
nejakeho okna inou procedurou za ucelom zmeny spracovania urcitych sprav.
Formular reaguje na spravu CM_FOCUSCHANGED, ktora je posielana pri kazdej
zmene focusu, tym, ze uvolni subclassing predosle focusnutej kontrolky (ak
taka bola), a subclassne novo-focusnutu kontrolku. To musime urobit, pretoze
chceme v urcitych pripadoch potlacit povodne spracovanie WM_MOUSEWHEEL. Nasa
window procedura specialne osetruje iba WM_MOUSEWHEEL, vsetky ostatne spravy
predava povodnej window procedure. Spravu WM_MOUSEWHEEL preda povodnej
window procedure iba v tom pripade, ak spracovanie v MouseWheelHandler vrati
nulovy Result, t.j. ak kontrolka pod kurzorom mysi je TWinControl a uz tu
spravu nejako implicitne spracovava, alebo jej OnMouseWheelxxx nenastavi
parameter Handled na True (pripadne, ak taky handler nema priradeny).
Nemam to zial velmi premyslene, je dost mozne, ze mi nieco uniklo.
Otestovane to nie je vobec ;-)
Ak narazis na problem, ozvi sa. Na zaciatok by to snad mohlo stacit...
Problem 3
MS IntelliPoint (a asi aj ine mysi) sa daju nakonfigurovat tak, ze pri
otacani kolieskom vobec negeneruju WM_MOUSEWHEEL, ale nejakym sposobom
skroluju okno aktivnej aplikacie, ktore ma prave input focus (mam
podozrenie, ze generuju priamo spravy WM_VSCROLL). V takom pripade taketo
potlacenie nefunguje, a okno bude veselo skrolovat aj bez WM_MOUSEWHEEL.
Nenapada ma, ako by sa dal osetrit tento pripad.
HTH a pekny vikend
TOndrej
OT: Outlook Express a Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.10.2001 19:08:17
From: "Peter" <peter(zv)baris.sk>
> Skusal som pouzit Mapi a JCLMapi ale narazil som na jeden problem z
> Outlookom Express 5.0 prip 5.5.
> akonahle sa pokusim nieco poslat cez mapi napriklad mapisendmail tak mi to
> priamo v mapi zatuhne na prikaze sendmail.
Ahoj,
stava se to i pri pouziti te demo aplikace MapiExample.dpr nebo jen v tvem
vlastnim kodu ? Me to fungovalo s ruznymi OE 5.0 a OE 5.5 bez problemu.
Petr Vones
TEdit vytvoreny v programu ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.10.2001 19:14:06
From: "Ji�� Kratochv�l" <jiri.kratochvil(zv)webzin(tec)cz>
> zajimalo by me, zda-li by slo v komponente TGraphicControl programove
> vytvorit a zobrazit TEdit ... Pokud ano, jak?
Ahoj,
ne, protoze TEdit je odvozen od TWinControl. Teoreticky by bylo mozne jej
vytvorit a priradit mu parent z parenta toho potomka TGraphicControl, ale je
otazka jestli to ma smysl. Pokud chces udelat napriklad komponentu slozenou z
TEdit a nejakeho labelu, tak pouzij TLabeledEdit (D6) nebo danou komponentu
odvod od TCustomEdit a ne TGraphicControl.
Petr Vones
Zm�na rozli�en� a Windows
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 9.10.2001 21:08:45
Jak mam po zmene rozliseni mym programem restorovat vsechny aktivni
aplikace windows ?
( taskbar aj. se drzi na puvodnich souradnicich top,left...)Ridici znak v tlacitku
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 10.10.2001 06:59:39
Zdravim,
mam problem s tlacitky. Jakmile do standardnich tlacitek TButton vlozim
ridici znak napr.
&Prvni
&Druhe
Jestlize je zamereno prvni tlacitko a stisknu klavesu 'D', bude spravne
reagovat tlacitko 'Druhe', ale nedojde k jejimu zamereni a kurzor zustane na
prvnim tlacitku.
Jde o to, ze tech tlacitem mam vice a po focusu se barevne odlisi, abych
nasledne vedel co jsem stiskl, ale s ridicimy znaky se mi to nedari.
Jak po stisku ridiciho znaku na tlacitku provest taky na dane tlacitko
zamereni.
Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Ridici znak v tlacitku
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 10.10.2001 09:06:30
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Pavel ZIDEK
>
> Zdravim,
> mam problem s tlacitky. Jakmile do standardnich tlacitek TButton vlozim
> ridici znak napr.
> &Prvni
> &Druhe
> Jestlize je zamereno prvni tlacitko a stisknu klavesu 'D', bude spravne
> reagovat tlacitko 'Druhe', ale nedojde k jejimu zamereni a kurzor
> zustane na
> prvnim tlacitku.
> Jde o to, ze tech tlacitem mam vice a po focusu se barevne odlisi, abych
> nasledne vedel co jsem stiskl, ale s ridicimy znaky se mi to nedari.
> Jak po stisku ridiciho znaku na tlacitku provest taky na dane tlacitko
> zamereni.
Ahoj,
Jestli mas pro vsechny tlacitka spolecny
OnClick a tam delas rozskok na akce podle
prislusneho tlacitka pak preci je to nejmensi
dat do OnClicku TButton(Sender).SetFocus.
Nebo jsem dotaz nepochopil:)
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203 download a upload s INDY
[*] bleak <bleak(zv)atlas(tec)cz> - 10.10.2001 09:19:52
zdrav�m,
m�m vytvo�en� tunel k po��ta�i s IP a ��slem portu. Pot�ebuji na ten po��ta�
poslat nebo tak� st�hnout z n�j soubor. Pros�m o tip, kter� z komponent Indy
jsou pro tento ��el nejvhodn�j#�.
D�le sh�n�m n�jakou komponentu s funkc� FTP klienta.
mirek
Ridici znak v tlacitku
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 10.10.2001 09:57:05
Jo diky funguje to, to mne nenapadlo, myslel jsem si, ze je to automaticky.
Cay Pavel
> > Zdravim,
> > mam problem s tlacitky. Jakmile do standardnich tlacitek TButton vlozim
> > ridici znak napr.
> > &Prvni
> > &Druhe
> > Jestlize je zamereno prvni tlacitko a stisknu klavesu 'D', bude spravne
> > reagovat tlacitko 'Druhe', ale nedojde k jejimu zamereni a kurzor
> > zustane na
> > prvnim tlacitku.
> > Jde o to, ze tech tlacitem mam vice a po focusu se barevne odlisi, abych
> > nasledne vedel co jsem stiskl, ale s ridicimy znaky se mi to nedari.
> > Jak po stisku ridiciho znaku na tlacitku provest taky na dane tlacitko
> > zamereni.
>
> Jestli mas pro vsechny tlacitka spolecny
> OnClick a tam delas rozskok na akce podle
> prislusneho tlacitka pak preci je to nejmensi
> dat do OnClicku TButton(Sender).SetFocus.
>
Nepresny Timer
[*] Volny <valentapat(zv)volny(tec)cz> - 10.10.2001 11:44:56
vime, mame, posilam
Nepresny timer - znama vec. Ted jsem to zazil na vlastni kuzi - kdyz
nekolikrat opakuji stejny zvuk, jde to znatelne poznat. Moc rychle -
normalne - pomalu. Nevite o komponente, ktera ma timer presny (pokud mozno i
pri jemnem zatizeni CPU). DKx.Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Roland Turcan <rolo(zv)sedas.sk> - 10.10.2001 14:51:17
Zdravim.
Kolega mi dal otazku ze nasu aplikaciu co vyvijame, ci by bol problem
vyvijat tak aby si koncovy uzivatel mohol vybrat ci pouzit IB, MS alebo
Oracle. Samozrejme bez zmeny aplikacie. Proste sa zakaznik rozhodne ze bude
fachcit na MS tak si vytvori databazy a maka na MS.
Momentalne to je na 80% uz hotove a je to s FireBirdom s IBX, D5SP1.
Je mozne zabezpecit tieto veci:
1. Sposob pristupu - nejake univerzalne komponenty
2. Rovnake moznosti triggery, SP, generatory, pohlady
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
OT: WinXP a WinOnCD
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 10.10.2001 16:09:59
Ahoj,
Nainstaloval jsem si WinXP a zaboha na nich nemuzu rozchodit WinOnCD
3.8. Winoncd nenajde zadnou vypalovacku a potom spadne. Pritom Nero
funguje normalne. Nevite nekdo v cem je problem a jak ho odstranit? Na
W2000 vse fungovalo perfeknte.
Ales
DBGrid a double-click
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 10.10.2001 18:46:11
Dobry den vsem,
nevite nekdo jak zjistit, kdyz uzivatel provede double-click mysi na radku
DBGridu.
Dekuji za napady.Bitmapy tlacitek
[*] Petr Klusek <klusek(zv)volny(tec)cz> - 10.10.2001 22:24:18
Zdravim vsechny v konferenci
Chtel bych se zeptat jestli nahodou nekdo nevi kde se daji sehnat bitmapy
ktere se pouzivaji na tlacitka atd. V Delphi6 Personal jsem je nikde
nenasel.
Zatim dik vsem
Problem
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 11.10.2001 09:02:32
Ahoj,
nekde to najdes v archivu konference, uz to tu bylo vickrat. Podminek je
vic,
- data a exe nesmi byt nejen ve stejnem adresari , ale ani jeden v
podadresari druheho
- nachylnejsi k tomuto chovani je to pod NetBEUI, ale obcas to udela i pri
TCP/IP
- je potreba si nastavit Session.PrivDir (nebo tak nejak) na nejaky adresar,
ktery na siti neni sdileny s jinou instanci tveho programu
- dela to, kdyz otevres na nejakou tabulku tTable a pak na ni volas tQuery.
Pak se diky nejakemu bugu v BDE nemazou zaznamy v souboru PdoxUsrs.lck a
drive nebo pozdeji to vybehne s tou hlaskou.
Ahoj
Mirek
JH> Pros�m o radu. Nem�te n�kdo zku#enosti s paradoxem a Query. M�m na
JH> jednom formul߰i 3 query, kter� jsou vz�jemn� propojen� p�es
JH> parametry a v�dy kdy� p�ejedu p�es cca. 1000 z�znam� dojde k chyb�
JH> "Capatibylity not suported." a n�sledn� k chyb� "Lock file has
JH> grown too large". Data m�m jinde ne� aplikaci a pou��v�m Session.
JH> D�ky za p��padnou odezvu.
JH> S pozdram Pep�k.
Problem
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 11.10.2001 10:31:28
>Pros�m o radu. Nem�te n�kdo zku#enosti s paradoxem a Query. M�m na jednom
>formul߰i 3 query, kter� jsou vz�jemn� propojen� p�es parametry a v�dy kdy�
>p�ejedu p�es cca. 1000 z�znam� dojde k chyb� "Capatibylity not suported." a
>n�sledn� k chyb� "Lock file has grown too large". Data m�m jinde ne�
>aplikaci a pou��v�m Session. D�ky za p��padnou odezvu.
Jestli si dobre vzpominam, tohle se mi podarilo odstranit nastavenim
PrivateDir jinam, nez je nastaveno implicitne. Ja jej nastavuji do TEMP
adresare Windows.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 11.10.2001 13:12:38
> Odes�latel: Roland Turcan <rolo(zv)sedas.sk>
> Kolega mi dal otazku ze nasu aplikaciu co vyvijame, ci by bol problem
> vyvijat tak aby si koncovy uzivatel mohol vybrat ci pouzit IB, MS alebo
> Oracle. Samozrejme bez zmeny aplikacie. Proste sa zakaznik rozhodne ze bude
> fachcit na MS tak si vytvori databazy a maka na MS.
> Momentalne to je na 80% uz hotove a je to s FireBirdom s IBX, D5SP1.
>
> Je mozne zabezpecit tieto veci:
> 1. Sposob pristupu - nejake univerzalne komponenty
> 2. Rovnake moznosti triggery, SP, generatory, pohlady
No, kdyz jsem na seminari Delphi1999 rekl, ze jsem kdysi v Delphi1/BDE napsal aplikaci, ktera behala pod InterBase, Oracle, Sybase, tak se mi mnozi smali.
Opravnene.
Ne, vazne:
1. Delphi
Pres BDE/TQuery by to sice bidne, ale slo.
Jenze od BDE vsichni utikame.
Na ADO bych nesazel.
Vsadil bych na TCl�entDataSet+TDataSetProvider+cokoli
2. DDL
Pokud jde o ANSI SQL (tabulky, foreign key, ...) pak celkem v pohode.
Pozor na datove typy ve vztahu ke klientovi - Oracle.Integer je neco jineho nez IB.Integer.
Pokud jde o triggery, ulozene procedury - urcite je treba to napsat pro kazdou databazi zvlast.
Ale to cele je diskuse na 2 dny (viz moje kurzy...), je tam rada omezeni a rada specifickych technik pristupu k datum.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 11.10.2001 17:22:56
> Kolega mi dal otazku ze nasu aplikaciu co vyvijame, ci by bol problem
> vyvijat tak aby si koncovy uzivatel mohol vybrat ci pouzit IB, MS alebo
> Oracle. Samozrejme bez zmeny aplikacie. Proste sa zakaznik rozhodne ze
bude
Obavam se, ze kolega polozil otazku pozde. Pro programovani jste zvolili
prostredi, ktere je nativni, optimalizovane primo pro IB/FB. Bez zmeny
aplikace a prepsani napriklad pod ADO, ODBC, BDE, DBX vice databazi
neobslouzite. Coz neni chyba - proste neco za neco.
Je take otazka, zda ma smysl podpora vice databazovych serveru smysl. Ty
databazove servery totiz nejsou ani nahodou stejne. Na kazdy z nich budete
muset upravit triggery a stored procedury, zmenit nektere pouzite datove
typy (v IB jsou generatory, jinde IDENTITY, SERIAL, jsou ruzne rozsahy typu,
atd.). Pokud mate rucne optimalizovane dotazy, opet kazdy server to ma jinak
a muze byt rozdil ve vyslednem vykonu.
Jsou specifika i u SQL - napriklad LEFT JOIN, COLLATE, naopak treba OUTER,
dale na systemove urovni jako u IB gdb "nafukovaci" soubory a (typicky)
pevne datove partition, autentifikace uzivatelu pro databazi u IB (ISC4) a
autentifikace pres system u Informixu.
Dale v Informixu muzete mit BLOB sloupce primo v tabulkach, protoze na
serveru si muzete vytvorit tzv. blobspace a tam se hodnoty ukladaji, cimz
nevznikne zpomalovani v ramci samotneho "dbspace", tj. prostoru pro data. U
IB je oproti tomu vhodne BLOBY umistit do samostatne tabulky a propojit
klicem. Naopak Informix (krome vyssich serveru) nema podporu externich UDF.
Interbaze nedovoli hodnotu NULL ve vyctu polozek, Informix zase neumi vice
transakci v ramci jednoho pripojeni. Takovych rozdilu budou mraky, cim vic
serveru, tim hur. Z toho hlediska je jeste pomerne unosne pouzijete-li
databazi jen na data - zadne SP, triggery atd. Vse v aplikaci. Tim zase
prijdete o spoustu moznosti, ktere budete muset osetrit v programech.
Ja osobne bych se do toho tedy rozhodne nepoustel, i kdyz zalezi na tom, jak
velky je dany system a jake je jeho zamereni.
Pokud bych uz musel jit do vice databazi, sel bych trojvrstevne: spolecny
frontend, specificky aplikacni server, specificky db server.
A rozhodne by naklady na vyvoj sly hodne nahoru.
Tolik muj nazor.
Leos
Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Erik Salaj <winsoft(zv)stonline.sk> - 11.10.2001 17:53:39
> Kolega mi dal otazku ze nasu aplikaciu co vyvijame, ci by bol problem
> vyvijat tak aby si koncovy uzivatel mohol vybrat ci pouzit IB, MS alebo
> Oracle. Samozrejme bez zmeny aplikacie. Proste sa zakaznik rozhodne ze
bude
> fachcit na MS tak si vytvori databazy a maka na MS.
> Momentalne to je na 80% uz hotove a je to s FireBirdom s IBX, D5SP1.
>
> Je mozne zabezpecit tieto veci:
> 1. Sposob pristupu - nejake univerzalne komponenty
Pomocou ADO alebo ODBC by nemal byt problem sa napojit
na vecsinu SQL databaz.
> 2. Rovnake moznosti triggery, SP, generatory, pohlady
Toto je problem, pretoze okrem zakladnych SQL prikazov
su SQL databazy vzajomne nekompatibilne. Jedno (skor
teoreticke) riesenie by mohlo byt pouzitie CASE systemu
(napr. Erwin), v nom robit datovy model. Z neho potom
generovat tabulky, relacie, storovane procedury, ...
pre rozne databazy. K databazam potom pristupovat
jednotnym sposobom napr. cez storovane procedury.
Erik
OT: SW Borland
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 11.10.2001 20:16:45
Prosim, nepovazujte nasledujici sdeleni za reklamu,
ale za uzitecnou informaci.
Ne kazdy totiz vi, ze
poprve v historii si muze sam vybrat sveho dovozce SW Borland.
(viz http://www.haes(tec)cz)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================TWebBrowser
[*] Hynek Svatos <svatos(zv)kam(tec)czu(tec)cz> - 11.10.2001 20:48:45
Zdravicko konferencieri :-),
tak se mi objevil na svete novy problem:
pouzivam komponentu TWebBrowser, do ktere mam natazenou nejakou www stranku.
V jednom momente potrebuji nastavit parenta na nil a posleze opet nastavit
parenta zpet na nejaky panel.
Problem je v tom, ze kdyz TWebBrowseru nastavim nejakeho parenta, tak
zustane TWebBrowser prazdny a jakoby neaktivni
a veskera volani (napr. Refresh) konci chybovou hlaskou "Nespecifikovan�
chyba".
Tusite nekdo, kde by mohla byt chyba ?
Predem diky.
Keep mailing :-)
=======================
Ing. Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================Deformacia textu
[*] <johny.stone(zv)email(tec)cz> - 11.10.2001 22:01:37
Nazdar
mam takyto problem:
potreboval by som vytvorit alebo zohnat komponentu, nejakeho potomka labelu, ktory bude schopny:
1. menit sirku a vysku jednotlivych pismen, ked ho budem natahovat alebo stlacat,
2. pre zarovnanie bude mat vlastnost justify (obojstranne zarovnanie).
Nasiel som uz miesto, kde sa text vykresluje ale este by som potreboval funkciu, ktora dokaze font zdeformovat (stlacit, roztiahnut). Udajne kdesi v API take nieco je, ale zatial sa mi to nepodarilo najst.
Vdaka za kazde posunutie.
JOhny
---
Sluzba GTS Volba pro stredni a mensi firmy
---> uspora telekomunikacnich poplatku az o 35%
Volejte zdarma 0800 31 31 31
ODBCe nebo ADO?
[*] Lubo Fule <fule(zv)ekosoft.sk> - 12.10.2001 08:07:37
Ak v buducnosti neplanujes portovat aplikaciu na iny server, tak odporucam
ODBCe, lebo ODBC je dokazatelne rychlejsie a jednoduchsie ako ADO a aj
Microsoft pouziva vo svojich utilitach pre MSSQL prave ODBC na pristup ku
servu. ADO je nadstavba naad OLEDB, teda ak ides cez ADO, tak ides vlastne
cez cez tri vrstvy (NET library -> OLEDB -> ADO), ale pri ODBC ides iba cez
dve (NET library -> ODBC). Samozrejme, ADO ma viac moznosti, je objektove a
da sa predpokladat dalsi rozsirovanie, kdezto ODBC je pomerne zastarale a uz
sa asi nebude dalej rozsirovat iba udrziavat. Ja som konzervativny, takze
mam radsej stare osvedcene postupy...
L.
> nemohu se rozhodnout, zda pristupovat k MS SQL 2000 z Delphi 6 Enterprise
> pres ADO (nejspise Adonis) nebo pres ODBCe. Na nativnim pristupu
> pres OLE DB
> netrvam, na ODBC mi zatim nic nevadi. Jake jsou Vase zkusenosti - co
> doporucujete?
Zmena jazyku na klavesnici
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 12.10.2001 08:11:16
Jak muzu programove vybrat klavesnici (neco jako internat.exe) ? Je na
to pry taky nejake demo na D5 CD, ale nevim kde. Dik za kazdou radu.
DKx.Nepresny Timer
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 12.10.2001 08:11:17
Nepresny timer - znama vec. Ted jsem to zazil na vlastni kuzi - kdyz
nekolikrat opakuji stejny zvuk, jde to znatelne poznat. Moc rychle -
normalne - pomalu. Nevite o komponente, ktera ma timer presny (pokud
mozno i pri jemnem zatizeni CPU). DKx.Handle sporice
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 12.10.2001 08:11:17
Dobry den, moje aplikace zjistuje handle na popredi, a kdyz neodpovida
handle programu, pokusi se ho uzavrit a minimalizuje a restoruje sebe
pro dostani na popredi (je StayOnTop). Jak mam ale udelat, ze nebude
tohleto provadet, kdyz prave pobezi sporic. Existuje nejaka
GetScreenstaverHandle nebo jak na to ? Dik za kazdou radu. DKx.DBGrid a double-click
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 12.10.2001 08:18:20
DBGrid ma udalost OnDblClick. Pristupno v Object Inspectoru, zalozka
Events.
Pouzivam to pro vyvolani opravy zaznamu, na nemz jsem nastaven.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
IB6.0.1, IBX 4.42, W2K/SP1, D5Ent.
===== Puvodni zprava =====
Napsal 3D-imenision, <mailto:3dimension(zv)seznam(tec)cz>
> Dobry den vsem,
> nevite nekdo jak zjistit, kdyz uzivatel provede double-click mysi na radku
> DBGridu.
> Dekuji za napady.Zmena jazyku na klavesnici
[*] Kakacka Pavol <kakacka(zv)proca(tec)cz> - 12.10.2001 08:29:02
From: David Kraina
>Jak muzu programove vybrat klavesnici (neco jako internat.exe) ? Je na to
pry taky nejake demo na D5 CD, ale >nevim kde. Dik za kazdou radu. DKx.
// '00000409' ENG
// '00010405' CZ my
// '00000405' CZ - xx
procedure TKsSetKeyboardForm.Button4Click(Sender: TObject);
begin
LoadKeyboardLayout('00000405', KLF_REPLACELANG);
end;
procedure TKsSetKeyboardForm.Button5Click(Sender: TObject);
begin
LoadKeyboardLayout('00010405', KLF_REPLACELANG);
end;
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 12.10.2001 08:59:23
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Kolega mi dal otazku ze nasu aplikaciu co vyvijame, ci by bol problem
> vyvijat tak aby si koncovy uzivatel mohol vybrat ci pouzit IB, MS alebo
> Oracle. Samozrejme bez zmeny aplikacie. Proste sa zakaznik rozhodne ze
bude
> fachcit na MS tak si vytvori databazy a maka na MS.
> Momentalne to je na 80% uz hotove a je to s FireBirdom s IBX, D5SP1.
> Je mozne zabezpecit tieto veci:
> 1. Sposob pristupu - nejake univerzalne komponenty
> 2. Rovnake moznosti triggery, SP, generatory, pohlady
Je to mozne. Jednou z variant je apliakcia napisana objektovo (jak tu bola
o tom minuly tyzden mensia diskusia)
1: Princip (z hruba): Vizualna vrstva <-> objektova vrstva <-> komunikacny
driver <-> databaza. Nejake hotove frameworky (dost drahe) sa daju kupit.
2: Nejde, jak uz bolo popisane - kazdy SQL server ma ine moznosti a ine
poziadavky. Ale neni to neriesitelne. Je doporucene pouzivat podla moznosti
co najviac standardne SQL, respektive vdaka vrstve komunkacneho driveru, je
mozne urcite veci optimalizovane napisat pre kazdy server zvlast. V praxi to
znamena asi tolko ze 70% bude shodnych 15% mierne odlisnych a 15% bude treba
prepisat uplne inak.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
DBGrid a double-click
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 12.10.2001 09:05:32
From: "3D-imenision" <3dimension(zv)seznam(tec)cz>
> nevite nekdo jak zjistit, kdyz uzivatel provede double-click mysi na radku
> DBGridu.
Zeby OnDblClick() event?
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
DBGrid a double-click
[*] Roland Turcan <rolo(zv)sedas.sk> - 12.10.2001 09:08:32
----- Original Message -----
From: "3D-imenision" <3dimension(zv)seznam(tec)cz>
Sent: Saturday, November 10, 2001 6:46 PM
> nevite nekdo jak zjistit, kdyz uzivatel provede double-click mysi na radku
> DBGridu.
Ale ved je tam predsa OnDblClick a ten na to reaguje. Chces este nieco ine
vediet, riadok, stlpec ,.... ?
R.Innosetup
[*] Roland Turcan <rolo(zv)sedas.sk> - 12.10.2001 09:31:06
Zdravim.
je mozne nastavit InnoSetup, aby nekomprimoval subory ale vsetky mal v
adresari a z tade ich kopiroval. Ide mi o to, ze aby som nemusel vzdy
vytvarat instalacky, stacilo by keby som len zmenene subory nahradil a
napalil to na CD. Velkost instalacky nie je vobec zaujimava, lebo aj tak to
nebude viac ako 10MB a bude sa to palit vyslovene na CD.
Dakujem
Roland Turcan
Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 12.10.2001 09:43:46
Osobne mam tuto zkusenost. Pracoval jsem ve firme, kde jsme delali
dvojvrstvou aplikaci s moznosti pouziti libovolneho DB serveru. Vypadalo to
tak, ze databaze slouzila vlastne jenom jako "datovy sklad". Pouzivali jsme
jen indexy a znacne omezenou mnozinu datovych typu. Zadne triggery, SP apod.
Museli jsme vyresit napr. dynamickou konverzi poli typu datum a cas apod.
Pristup k databazi byl resen pomoci BDE. Slapalo to docela bez problemu, ale
clovek si musel davat hodne velky pozor na to, co dela. Veskera DB logika,
ktera se vetsinou dela pomoci triggeru a SP, se resila v ramci aplikace (coz
vedlo ke znacnemu narustu velikosti programu). Nejvetsi chutovkou byla vzdy
aplikace zmen u zakaznika. Jednomu to bezelo bez problemu, jinemu ne (mel
jinak nastaveny server) atakdale atakdale.
Pokud mohu poradit - at vas to ani nenapadne (pokud si nechcete zadelat na
problemy).
Martin Ben
> -----Puvodni zprava-----
> Od: Roland Turcan [mailto:rolo(zv)sedas.sk]
> Odeslano: 10.11.2001 14:51
> Komu: Delphi CZ konferencia
> Predmet: Moznost pouzitia IB/FB, MSSQL, Oracle
>
>
> Zdravim.
>
> Kolega mi dal otazku ze nasu aplikaciu co vyvijame, ci by bol problem
> vyvijat tak aby si koncovy uzivatel mohol vybrat ci pouzit
> IB, MS alebo
> Oracle. Samozrejme bez zmeny aplikacie. Proste sa zakaznik
> rozhodne ze bude
> fachcit na MS tak si vytvori databazy a maka na MS.
> Momentalne to je na 80% uz hotove a je to s FireBirdom s IBX, D5SP1.
>
> Je mozne zabezpecit tieto veci:
> 1. Sposob pristupu - nejake univerzalne komponenty
> 2. Rovnake moznosti triggery, SP, generatory, pohlady
>
> S pozdravom
>
> Roland Turcan - amatersky programator
> D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
> Nudne opisovanie definicii
[*] Jozef Cervenansky <dodosoft(zv)hotmail(tec)com> - 12.10.2001 09:59:57
Ahojte,
akym sposobom mozem v editore urobit nasledovnu vec :
v casti interaface mam definovane triedy, procedury a ...
a aby som nemusel tieto deklaracie znovu opisovat v casti implementacie,
akou klavesovou skratkou to mozem urobit?
dik za help
jozo
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
Nudne opisovanie definicii
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.10.2001 10:01:24
Zkus SHIFT+CTRL+C
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.11.2001 Jozef Cervenansky:
> Ahojte,
> akym sposobom mozem v editore urobit nasledovnu vec :
> v casti interaface mam definovane triedy, procedury a ...
> a aby som nemusel tieto deklaracie znovu opisovat v casti implementacie,
> akou klavesovou skratkou to mozem urobit?
> dik za help
> jozo
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
Komponenta property
[*] Radek Janu� FSG <janus(zv)foresta(tec)cz> - 12.10.2001 10:04:34
Ahoj mam mensi problem,nad kterym badam a zatim se mi ho nepodarilo
vyresit.Mam vlastni komponentu ktera ma mimo jine property:
public
fFilterSource:TDataSource;
procedure SetFilterSource(Value: TDataSource);
function GetFilterSource:TDataSource;
published
property FilterSource:TDataSource read GetFilterSource write
SetFilterSource;
function TFSGFilterStringAlignGrid.GetFilterSource:TDataSource;
begin
result:=fFilterSource;
end;
procedure TFSGFilterStringAlignGrid.SetFilterSource(Value: TDataSource);
begin
fFilterSource:=Value;
end;
*********************
Jednoducha vec,vse funguje spravne,kdyz si do teto property pripojim
nejaky DataSource z formulare je to OK.
Pokud jej vsak smazu a property FilterSource je nastavena na nej tak
mi to zahlasi chybu Acces violation.....
jakoby se snazil na nej neco odkazat ale on uz byl mezitim nil.Je to
zvlastni normalne by to prece melo fungovat pokud smazu Datasource z
formulare a property FilterSource byla nastavena na nej mela by se
property vyprazdnit(mela by byt NIL).
nepotkal jste se nekdo s tim ....????
Diky moc za radu.
radek Janus Foresta SG a.s.vsetin
Nudne opisovanie definicii
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 12.10.2001 10:08:19
> akym sposobom mozem v editore urobit nasledovnu vec :
> v casti interaface mam definovane triedy, procedury a ...
> a aby som nemusel tieto deklaracie znovu opisovat v casti
> implementacie,
> akou klavesovou skratkou to mozem urobit?
> dik za help
Ctrl-Shift-C (viz Help :o)
Ale#Ukonceni MDI Aplikace?
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 12.10.2001 10:20:53
Zdravim,
mam MDI aplikaci s asi 7 child okny. Potreboval bych pri zavirani cele
aplikace projit vsechny child okna a uzavrit je (kazde okno ma udalost CLOSE
QUERY). Potom teprve ukoncit celou aplikaci. Predstavoval jsem si to tak, ze
je vsechny projdu a zavolam pro ne CLOSE. Nakonec zjistim jestli zustalo
nejake otevrene a podle toho povolim ukonceni aplikace. Bohuzel takhle to
nejde. Muzete poradit nejaky jednoduchy zpusob.
Diky Lada.Komponenta property
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 12.10.2001 10:22:04
> From: Radek Janu# FSG
>
> Ahoj mam mensi problem,nad kterym badam a zatim se mi ho nepodarilo
> vyresit.Mam vlastni komponentu ktera ma mimo jine property:
>
> public
> fFilterSource:TDataSource;
> procedure SetFilterSource(Value: TDataSource);
> function GetFilterSource:TDataSource;
> published
> property FilterSource:TDataSource read GetFilterSource write
> SetFilterSource;
> ....
>
> Jednoducha vec,vse funguje spravne,kdyz si do teto property pripojim
> nejaky DataSource z formulare je to OK.
> Pokud jej vsak smazu a property FilterSource je nastavena
> na nej tak
> mi to zahlasi chybu Acces violation.....
Mam dojem, ze uz to tu nekolikrat bylo.
Podivej se napriklad na:
http://www.delphi(tec)cz/soubor.asp?rok=2001&mesic=Apr&den=13&first=31&soubor=dl
faaabs.htm
Je treba doplnit protected proceduru Notification:
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Txxx.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (AComponent = fFilterSource) then
fFilterSource := nil;
end;
Vaclav Krmela
Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 12.10.2001 10:26:03
Ahoj,
Leos Urban wrote:
> <...>
> Dale v Informixu muzete mit BLOB sloupce primo v tabulkach, protoze na
> serveru si muzete vytvorit tzv. blobspace a tam se hodnoty ukladaji, cimz
> nevznikne zpomalovani v ramci samotneho "dbspace", tj. prostoru pro data. U
> IB je oproti tomu vhodne BLOBY umistit do samostatne tabulky a propojit
> klicem.
> <...>
Muzes, prosim Te, tohle zduvodnit: proc BLOB v IB do separatni tabulky ?
Diky,
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
ADO, transakce a MSSQL2000 - zahada?
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 12.10.2001 10:32:37
Zdravim,
deje se mi nepochopitelna vec:
Zahajim transakci, ulozim hlavicku, ulozim 1. polozku a chci ulozit druhou
polozku, ale je mi vracena chyba, ze neexistuje vazba na hlavicku. Pritom
predchozi 1. polozka byla ulozena bez problemu.
Toto se nedeje ale vzdy.
Pokud ale celou operaci neuzavru do transakce tak vse funguje vzdy a
spolehlive.
Uz jsem asi v koncich.
D5 ent., MS SQL 2000
Diky za kazdou radu Lada
tisk HTML
[*] Zden�k Sv�en - 12.10.2001 10:48:03
Ahoj,
potrebuju z Delphi nejak vytisknout urcitou HTML stranku ulozenou na
lokalnim disku/(popripade, jestli to vite, tak i z i-netu).
Poradite?
+To same bych potreboval realizovat z pascalu. Lze spustit MS Explorer
takovym zpusobem, abych mu jako parametr predal soubor, ktery ma zobrazit a
zaroven ho nejak donutil, aby tu stranku vytisknul?
Diky za radu.
Zdenek S.Ukonceni MDI Aplikace?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.10.2001 11:09:14
Kazda MDI aplikace si udrzuje seznam Child oken.
Podivej se na funkce MDIChildCount atd.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.11.2001 L. Filip:
> Zdravim,
> mam MDI aplikaci s asi 7 child okny. Potreboval bych pri zavirani cele
> aplikace projit vsechny child okna a uzavrit je (kazde okno ma udalost CLOSE
> QUERY). Potom teprve ukoncit celou aplikaci. Predstavoval jsem si to tak, ze
> je vsechny projdu a zavolam pro ne CLOSE. Nakonec zjistim jestli zustalo
> nejake otevrene a podle toho povolim ukonceni aplikace. Bohuzel takhle to
> nejde. Muzete poradit nejaky jednoduchy zpusob.
> Diky Lada.FireBird - chyba pri pocitani z casem
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 12.10.2001 11:40:18
"WI-T1.0.0.338 Firebird Beta2"
Stala se mi takova chyba pri pocitani s casem:
Tento kod pricte jednu sekundu, vysledek je v poradku.
select tdate+1/(3600*24) from items
Kyz se nechame vycislit vyraz 1/(3600*24) primo FireBirdem
select 1/(3600*24) from items
dostaneme cislo 1.157407407407407e-05
a kdyz timto cislem nahradime konstantu 1/(3600*24), tak to jiz sekundu nepricte
select tdate+1.157407407407407e-05 from items
Podle meho se jedna o hrubou chybu uvnitr FB pri pocitani s casem (spatne zaokrouhleni),
zvlastni na tom je, ze interne by mel FB pociat na 1/10000 sekundy.
Zatim to resime tak, ze k casu prictem 1/1000000 sekundy a vysledek je spravny, je to ale
dost neprijemna berlicka, zvlaste pro novacky.
Slavek
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Mobil: 0602 795 874
Fax: 068 535 23 64
e-mail:skopalik(zv)hlubocky.del(tec)cz
http://hlubocky.del(tec)cz
ODBCe nebo ADO?
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.10.2001 12:02:09
> Ak v buducnosti neplanujes portovat aplikaciu na iny server, tak odporucam
> ODBCe, lebo ODBC je dokazatelne rychlejsie a jednoduchsie ako ADO a aj
> Microsoft pouziva vo svojich utilitach pre MSSQL prave ODBC na pristup ku
> servu. ADO je nadstavba naad OLEDB, teda ak ides cez ADO, tak ides vlastne
> cez cez tri vrstvy (NET library -> OLEDB -> ADO), ale pri ODBC ides iba
cez
> dve (NET library -> ODBC). Samozrejme, ADO ma viac moznosti, je objektove
a
> da sa predpokladat dalsi rozsirovanie, kdezto ODBC je pomerne zastarale a
uz
> sa asi nebude dalej rozsirovat iba udrziavat. Ja som konzervativny, takze
> mam radsej stare osvedcene postupy...
OK, ja zase uvediem argumenty pre ADO:
1. je jednoduchsie pouzitelne ako ODBC
2. je univerzalne pouzitelne (vo Visual Basicu, Delphi, ASP, C++, atd.),
t.j. znalosti ADO mozem vyuzit takmer v lubovolnej aplikacii
3. je to MS preferovane rozhranie
4. je komptibilne, t.j. pomocou ADO a OLE DB providera pre ODBC
je mozne sa pripajat na ODBC datove zdroje
5. ma moznosti, ktore ODBC nema, napr. disconnected recordsets,
podpora XML
6. umoznuje univerzalny datovy pristup (nielen pristup na SQL databazy)
7. je objektove a optimalizovane smerom k modernym internetovym aplikaciam
8. podporuje RDS, t.j. moznost vytvarania viacvrstvovych aplikacii
Ze je ODBC rychlejsie, to by som tak jednoznacne netvrdil,
neexistuju na to ziadne dovody. Ze MS pouziva ODBC vo svojich
utilitach pre MSSQL, to moze byt z historickych dovodov
a neexistuje ziadna zaruka, ze tomu tak bude i v dalsich verziach
MS servera (v niektorych DLL-kach servera sa uz OLEDB
vyskytuje). Dalej uvahy o pocte vrstiev su tiez velmi zjednodusene.
Dolezite je, ak "hruba" je dana vrstva, t.j. aku narocnu cinnost
vykonava, nielen ich pocet. Je mozne pouzivat len OLEDB
(bez ADO rozhrania), ak su na to specialne dovody. Pocet vrstiev
je vtedy rovnaky (ale skomplikuje sa programovanie). Tu je aj
otazka, ci vzhladom k charakteru ODBC rozhrania, si programator
v aplikacii nevytvori dalsiu (objektovu) vrstva a sme tam,
kde sme boli v pripade ADO (s tym, ze programator si ADO
nemusi naprogramovat).
Pouzitie ODBC vidim ako vyhodnejsie uz pre existujuce
ODBC aplikacie, a v pripade znalosti a skusenosti s ODBC.
Erik
RxDBGrid - MultiSelect
[*] Jan #ebesta <delcomseb(zv)volny(tec)cz> - 12.10.2001 12:10:28
Zdravim vsechny,
prosim, kde a jak mam odchytit multiselect v RxDBGridu.
Jedna se mi o odkazy na oznacene vety do cyklu.
For X:=1 to RxDBGridu.SelCount do begin
zde odkaz na X oznacenou vetu;
end;
Dekuji Jan Sebesta
Dobr� den - decomp.
[*] Mark Tomas <T.Mark(zv)ept(tec)cz> - 12.10.2001 12:21:46
Pros�m V�s m�m dotaz,
je mo�no n�kde sehnat opravdov� decompiler pro delphi ? Mysl�m t�m
decompiler procedur,
ne pouze na resource prvky jako nap�. (formy,wav atp).
Dekuji za stru�nou odpov��.
Tom�# Mark
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
Dobr� den - decomp.
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 12.10.2001 12:29:09
no jedine co znam je DeDe. Ovsem umi dekompilovat z exe pouze strojovy
kod v procedurach a eventech. Myslim ze nic lepsiho aspon pokud chcete
dekompilovat exe nenajdete. (neco jineho je pak dekompiler pro *.dcu).
stastnou dekompilaci
S pozdravem
Milos Sula
-----Original Message-----
From: Mark Tomas [mailto:T.Mark(zv)ept(tec)cz]
Sent: Monday, November 12, 2001 12:22 PM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: Dobr� den - decomp.
Pros�m V�s m�m dotaz,
je mo�no n�kde sehnat opravdov� decompiler pro delphi ? Mysl�m t�m
decompiler procedur,
ne pouze na resource prvky jako nap�. (formy,wav atp).
Dekuji za stru�nou odpov��.
Tom�# Mark
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
ADO, transakce a MSSQL2000 - zahada?
[*] bardon <bardon(zv)akord-soft(tec)cz> - 12.10.2001 12:50:38
Takove veci hledam tak,ze si spustim profiler. Vzdy na to pak prijdu...
>deje se mi nepochopitelna vec:
>Zahajim transakci, ulozim hlavicku, ulozim 1. polozku a chci ulozit druhou
>polozku, ale je mi vracena chyba, ze neexistuje vazba na hlavicku. Pritom
>predchozi 1. polozka byla ulozena bez problemu.
>Toto se nedeje ale vzdy.
>Pokud ale celou operaci neuzavru do transakce tak vse funguje vzdy a
>spolehlive.
>Uz jsem asi v koncich.
>D5 ent., MS SQL 2000
iky za kazdou radu Lada
RxDBGrid - MultiSelect
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 12.10.2001 12:58:40
for i:=0 to dbg.SelectedRows.Count-1 do
begin
q.GotoBookmark(pointer(DBG.SelectedRows.Items[i]));
zde je to prave misto na nejake operace
end;
Radek
>Zdravim vsechny,
>
>prosim, kde a jak mam odchytit multiselect v RxDBGridu.
>Jedna se mi o odkazy na oznacene vety do cyklu.
>For X:=1 to RxDBGridu.SelCount do begin
> zde odkaz na X oznacenou vetu;
>end;
>
>Dekuji Jan Sebesta
>
IB & API na linuxu
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 12.10.2001 13:11:41
Ahoj, nevite nahodou nekdo, jestli uz existuje verze interbase pro
linux s API nebo jak se tomu rika, takovy ty funkce, ze aby slo z
konzoli zalohovat, pridavat uzivatele apod.
Rad bych pouzil FreeVCS s databazi na linuxu a ono se to bez
toho asi nerozjede.
Pripadne by mi pomohla i rada jak rozjet freeVCS tak aby to
nepotreboval. Myslim , ze to pouziva pro zalohovani a to si rad
vyresim jinak. Resp. jiz mam vyreseno.
Diky, jako obvykle predem.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
OT: Interbase 6.0.1 a Internal gds software consis
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 12.10.2001 13:24:08
Dobry den,
obracim se na znalce Interbase s dotazem, mam databazi
ktera mi vykazuje tuto chybu : "Internal gds software
consistency check (cannot find tip page (165))".
Tato chyba naskakuje pri pokusu o Sweep databaze, pokusu
o backup databaze (at jiz s garbage collection ci bez).
Pokud dam z IBConsole Shutdown databaze a pak Validation s
Validate record fragments : False
Read Only validation : False
Ignore checksum errors : False
tak to vyhodi "No database validation errors were found."
S parametry
Validate record fragments : True
Read Only validation : True
Ignore checksum errors : False
tak mi vyhodi "Number of index page errors : 13",
kdyz stisknu Repair, chvilku chrousta a pak vyhodi
"Internal gds software consistency check (cannot find
tip page (165))"
Nevite nahodou nekdo, jak toto odstranit ? Respektive
muzete mi poradit nejaky zdroj informaci o opravach
Interbase databazi, eventuelne popisy gds chyb ?
Verze IB serveru je 6.0.1.0 a bezi na Win NT 4.0 SP5.
Dekuji
Marian Jonas
Innosetup
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 12.10.2001 13:29:31
Tak to dej vsechno jako externi soubory - pak to nekomprimuje.
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
> je mozne nastavit InnoSetup, aby nekomprimoval subory ale vsetky mal v
> adresari a z tade ich kopiroval. Ide mi o to, ze aby som nemusel vzdy
>
> Roland Turcan
ImageBase
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 12.10.2001 13:33:54
Ahojte,
mohl by mi nekdo objasnit, proc maji autori QuickReportu ve zdrojaku
balicku (napr. qrpt50.dpk) nastaven ImageBase na $00000041, coz je
hodnota, kterou dialog Delphi Project-Options-Linker oznaci jako
chybnou (mimo platny rozsah)?
Jaky ma vubec vyznam tento parametr a co prinese jeho zmena?
Diky, Martin
storedproc a MSSQL 7
[*] <kuchar(zv)unicodesys(tec)cz> - 12.10.2001 13:52:58
caute,
pres komponentu stroredproc a nasledne execute spoustim ulozenou proceduru s
nasledujicim kodem :
----------------------------------------------------------------------------
-------------
Update px set px.plu=ptmpx.plu, px.mj=ptmpx.mj, px.nazev=ptmpx.nazev,
px.skladem=ptmpx.skladem, px.tandem=ptmpx.tandem,
px.ccs_kateg=ptmpx.ccs_kateg, px.exp_cis='',
px.dat_ins='12.11.2001',
px.cs_ins='06703', px.kateg=ptmpx.kateg,
px.dph=ptmpx.dph
from TMPDB.dbo.CENIK as ptmpx,OSTRADB.dbo.CISELNIK AS
px
where px.ean=ptmpx.ean and (px.plu<>ptmpx.plu
or px.mj<>ptmpx.mj or
px.nazev<>ptmpx.nazev or px.skladem<>ptmpx.skladem or
px.tandem<>ptmpx.tandem or
px.ccs_kateg<>ptmpx.ccs_kateg or
px.kateg<>ptmpx.kateg or px.dph<>ptmpx.dph)
----------------------------------------------------------------------------
-------------
prislusna ulozena procedura vybira zaznamy podle ean ktere se nachazi jak v
tabulce cenik tak v tabulce ciselnik a prislusne zaznamy v tabulce ciselnik
updatuje, vse je OK, ale kdyz mi tabulka ciselniku prekroci 8900 zaznamu,
vse se to zacikli a ne a ne provest update ( jinak je celej update proveden
do 3 vterin ), poradte kde je chyba, nebo co stim
DIK
tisk HTML
[*] VALIK <valentapat(zv)volny(tec)cz> - 12.10.2001 13:59:23
co pouzit komponentu WebBrowser (od D5)
z Packalu nevim.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
----- Original Message -----
> Ahoj,
> potrebuju z Delphi nejak vytisknout urcitou HTML stranku ulozenou na
> lokalnim disku/(popripade, jestli to vite, tak i z i-netu).
FireBird - chyba pri pocitani z casem
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 12.10.2001 14:13:17
<color><param>7F00,0000,0000</param>Haj hou!<color><param>0100,0100,0100</param>On 12 Nov 2001, at 11:40, Slavomir Skopalik wrote:<color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>> Kyz se nechame vycislit vyraz 1/(3600*24) primo FireBirdem
> select 1/(3600*24) from items
>
> dostaneme cislo 1.157407407407407e-05
>
> a kdyz timto cislem nahradime konstantu 1/(3600*24), tak to jiz sekundu nepricte
>
> select tdate+1.157407407407407e-05 from items
</color><FontFamily><param>Arial CE</param>Mozna uz jsem uplne mimo z nedostatku spanku kvuli zmene
casu a sturmu z vyroby FB RC1, ale ja bych se nad takovym
chovanim vubec, ale vubec nepozastavoval. Nikdy me ani ve snu
nenapadlo, ze by cislo s pohyblivou radovou carkou mohlo byt
nekdy presne pokud jde o konverze z ascii na double a zpatky
(navic v exponencialnim tvaru!!!). Pokud by melo byt, pak bych
rozhodne vinil konverzni knihovny operacniho systemu, a nikoliv
Firebird.
Chapu, ze se snazite urychlit vypocet, ale v dobe Pentii takova
drobnost jako odstarneni deleni a nasobeni nema vyznam. Kdyz uz
chcete optimalizaci, zkuste
select tdate+1/86400 from items
S pozdravem
<nofill>
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Komponenta property
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 12.10.2001 14:23:19
From: "Vaclav Krmela" <krmela(zv)ustinadorlici(tec)cz>
> > Ahoj mam mensi problem,nad kterym badam a zatim se mi ho nepodarilo
> > vyresit.Mam vlastni komponentu ktera ma mimo jine property:
> > Jednoducha vec,vse funguje spravne,kdyz si do teto property pripojim
> > nejaky DataSource z formulare je to OK.
> > Pokud jej vsak smazu a property FilterSource je nastavena
> > na nej tak
> > mi to zahlasi chybu Acces violation.....
>
> Mam dojem, ze uz to tu nekolikrat bylo.
> Podivej se napriklad na:
>
http://www.delphi(tec)cz/soubor.asp?rok=2001&mesic=Apr&den=13&first=31&soubor=dl
> faaabs.htm
Nezabudnut na "registraciu" metodou FreeNotification() - viz.help.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
FireBird - chyba pri pocitani z casem
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 12.10.2001 14:40:02
Problem neni s konverzi, zle se zaokroulovanim,
ono totiz, pokud necham tuto konstantu vycislit PHP (parametricky dotaz),
tak je to spatne.
Co jsem zjistil:
FB misto aby zaokrouloval, ozerava, napriklad:
13:30:00 + 0.9999 sec je porad 13:30:00 misto 13:30:01
Dale je nekde bota v FB ohledne pocitani s casem, jelokoz
je psana presnost na 1/10000, ale vzdy dojde k zaorouhleni
na cele sekundy.
jeste bych uvedl, ze pokud tuto konstantu zmenim na 1.157407407408e-05
coz je o cca 0.000000000001 sekundy, tak vypocet je OK.
Slavek
>
> casu a sturmu z vyroby FB RC1, ale ja bych se nad takovym
> chovanim vubec, ale vubec nepozastavoval. Nikdy me ani ve snu
> nenapadlo, ze by cislo s pohyblivou radovou carkou mohlo byt
> nekdy presne pokud jde o konverze z ascii na double a zpatky
> (navic v exponencialnim tvaru!!!). Pokud by melo byt, pak bych
> rozhodne vinil konverzni knihovny operacniho systemu, a nikoliv
> Firebird.
>
>
> Chapu, ze se snazite urychlit vypocet, ale v dobe Pentii takova
> drobnost jako odstarneni deleni a nasobeni nema vyznam. Kdyz uz
> chcete optimalizaci, zkuste
>
>
> select tdate+1/86400 from items
>
> Pavel Cisar
> Mobil: 0724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
ImageBase
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2001 14:42:45
From: "Martin Dupal" <mdupal(zv)vision(tec)cz>
> mohl by mi nekdo objasnit, proc maji autori QuickReportu ve zdrojaku
> balicku (napr. qrpt50.dpk) nastaven ImageBase na $00000041, coz je
Ahoj,
tak to je opravdu nesmysl, protoze nejnizsi ImageBase muze byt teoreticky
$10000 u NT a $400000 u Win9x.
> Jaky ma vubec vyznam tento parametr a co prinese jeho zmena?
Tato hodnota urcuje vychozi adresu v pametovem prostoru procesu kam se PE
loader snazi zavest dany spustitelny soubor. Tyto adresy by se idealne nemely
prekryvat s jinymi soubory, ktere se bude proces pouzivat, protoze v pripade
kolize je nutne provest relokaci, coz nejakou (dnes uz zanedbatelnou) dobu
trva a nelze pak primo pouzit namapovany soubor z disku. Pokud se podivas
nejakym nastrojem na obsazeni pametoveho prostoru jednotlivych bezicich
procesu, tak uvidis ze k temto kolizim prilis nedochazi. Jednou z vyjimek je
ale treba Delphi IDE, kde se vlastne nikdo urcovanim techto adresech nezabyva
a proto tam dochazi k relokacim predevsim design time balicku dost casto. Vice
se dozvis treba v tomto clanku:
Rebasing Win32 DLLs: The Whole Story
http://msdn.microsoft.com/library/en-us/dndllpro/html/msdn_pagetest.asp
Petr Vones
View na IB s unionem nad tabulkama s ne(uplne) ste
[*] <tomasand(zv)quick(tec)cz> - 12.10.2001 14:51:46
Vazeni pratele,
mam nasledujici problem. Mam 2 tabulky, ktere maji zcasti rozdilnou strukturu a
potrebuji nad nimi vytvorit view. Na Oracle a MSSQL jsem to vytvoril bez
problemu, na IB to nechce jit, viz chyba nize.
create view AAA as
select
ID, CISLO, SUB_CISLO, CASTKA
from TAB1
union
select
ID, CISLO, 0 as SUB_CISLO, CASTKA
from TAB2;
Takto to jde zcela bez problemu na ORA a MSSQL, na IB mi to zahlasi nasledujici
:
Dynamic SQL Error
SQL error code = -104
Invalid command
Data type unknown
Statement: create view .....
Takto to nejde ani kdyz chci prosty select, bez vytvoreni view. pak mi kolega
poradil nasledujici:
create view AAA as
select
ID, CISLO, SUB_CISLO, CASTKA
from TAB1
union
select
ID, CISLO, (cast 0 decimal(10,0)) as SUB_CISLO, CASTKA
from TAB2;
Normalni select (na ISQL konzoli) funguje dobre, ale zase takto nelze vytvorit
view.
Jsem v koncich, znate nekdo reseni ???
Tomas Andrasko
A.S.E.I. sro
Videokonference
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 12.10.2001 14:59:36
>> Zdravim,
>> nezabyvali jste se tu nekdo videokonferenci? Mam udelany prenos hlasu a
>> chtel bych tam casem dodelat i obraz z kamery.
> Predpokladam, ze to xes nakodit....ak nie, konferencny sw je vacsinou
> pribaleny ku kamere.
> Dierct X rules. Mas sietove funkcie, 3d zvuk, dobru graficku podporu a
> jednoduche programovanie.
> Refresh rate bude zalezat klasicky od priepusnosti siete a velkosti
> prenasanych
> dat...to musis otestovat a pripadne robit dobru kompresiu. Zobrazovanie
> grafiky v DX je skutocne rychle,
> to ta urcite obmedzovat nebude.
> Do verzie DX8 neodporucam kodit konferenciu s viac ako priblizne 20 - 30
> connections.
> Funkcie kamery...nuz, skus Active X?
> Kolko snimok za sekundu...takze aj 15-18 este vyzera pre ludske oko
> relativne plynule (aspon pre moje :))))
> 800x600x16bit okno na mojej shitackej integrovanej karte mi robi okolo
> 49FPS, takze grafa nebrzdi nic, len siet.
> Keep well
> Werki
Mozna jsem to mel torsku vice upresnit: Jedna se spis o videotalk nez
videokonferenci, protoze spojeni je pouze s jednim partnerem.
Talk mam udelany pres UDP a Indy, format zvuku jsem nechal na kodeku GSM
6.10.
Moje predstava o dodelani videa byla asi takova:
- z kamery sejmu asi tak 6-20x za sekundu obraz do JPG a ten pak poslu
partnerovi (pravdepodobne pres TCP protokol).
- zobrazovani udelam v nejakym TImage a pouziji LoadFromStream (Strema
nactu z TCP).
S DirectX (ani s kamerou) jsem nikdy nedelal, takze jsem to namyslel
takhle. Pokud ma nekdo lepsi zkusenoti, vi o zpusobu, jak by to slo
jednoduseji, rad si to
prectu.
M.Kralik
Report Builder & nativna tlac
[*] DHederer(zv)softip.sk - 12.10.2001 15:28:39
Hi all,
hladam nejaky sposob na vytvaranie sablony pre
nativnu tlac ( t.j. ihlick. tlaciarne ) v RB + preview.
Dost je to nepohodlne, vytvarat nativnu tlac v grafike.
Dik za kazdy tip
Videokonference
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2001 15:30:54
From: "Kralik Michal" <xkrali07(zv)stud.fee.vutbr(tec)cz>
> Moje predstava o dodelani videa byla asi takova:
> - z kamery sejmu asi tak 6-20x za sekundu obraz do JPG a ten pak poslu
> partnerovi (pravdepodobne pres TCP protokol).
> - zobrazovani udelam v nejakym TImage a pouziji LoadFromStream (Strema
> nactu z TCP).
Ahoj,
presne tohle uz umi NetMeeting (http://www.microsoft.com/windows/netmeeting).
Narozdil od zasilani JPEGu podporuje ruzne kompresni formaty pro video, ktere
jsou k tomu lepe optimalizovany. Pro dany ucel ma i myslim nekolik vyhod:
- je zdarma
- je primo soucasti novejsich verzi Windows (98, Me, 2000, XP)
- je soucasti instalace IE5 a novejsi
- v pripade potreby jej lze nainstalovat i samostatne (verze 2.01 bezi bez
problemu i na Win95)
- lze jej naimportovat do Delphi jako ActiveX komponentu
- ma pomerne bohate SDK
- podporuje jak pripojeni pres ILS server, tak prime propojeni mezi dvema
pocitaci a to jak pres TCP/IP tak pres modem.
- pokud je v siti firewall tak lze potrebne nastaveni najit v dokumentaci
- podporuje i prenos zvuku popripade sdileni aplikaci (a verze 3 i desktopu)
- spojeni muze byt zabezpecene
Petr Vones
View na IB s unionem nad tabulkama s ne(uplne) ste
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.10.2001 15:34:20
hele,
me 100% funguje kod na konci mailu. podminkou je, ze sloupce musi by
shodneho typu. nenili tak, musis to pretypovat pomoci cast(). proto si
zkontroluj typy a rozsahy poli v prvni tabulce a castni sloupce druhe
tabulky presne do tech samych typu a delek poli. je lepsi delat cast do
vetsi delky, alespon me to tedy delalo problemy pri selekteni dlouhych
varcharu do kratkych polozek.
PeC(zv)
create view v_Protokol_Prevod (
AkSpKomu, RC, PJM,
Serie, ACislo,
Dil, Spravce, Klic)
AS
select
1, RC, PJM,
SERIE, ACISLO,
cast(CDIL as Varchar(3)) ||'/'|| cast(JDIL as Varchar(3)),
cast(null as char(1)), Klic
from
w_Prevod_AK A
left join Osoby O1 on O1.RC = A.RC
where
Prevest = 'A'
union all
select
1, RC, PJM,
SERIE, ACISLO,
cast(CDIL as Varchar(3)) ||'/'|| cast(JDIL as Varchar(3)),
cast(null as char(1)), Klic
from
w_Prevod_SP S
left join Osoby O2 on O2.RC = S.RC
where
Prevest = 'A'
union all
select distinct
3, RC, PJM,
A.SERIE, A.ACISLO,
cast(K.CDIL as Varchar(3)) ||'/'|| cast(K.JDIL as Varchar(3)),
K.Spravce, Klic
from
w_Prevod_Komu K
left join Osoby O3 on O3.RC = K.RC,
w_Prevod_AK A
where
Prevest = 'A'
union all
select distinct
3, RC, PJM,
S.SERIE, S.ACISLO,
cast(K.CDIL as Varchar(3)) ||'/'|| cast(K.JDIL as Varchar(3)),
K.Spravce, Klic
from
w_Prevod_Komu K
left join Osoby O3 on O3.RC = K.RC,
w_Prevod_SP S
where
Prevest = 'A'
^View na IB s unionem nad tabulkama s ne(uplne) ste
[*] c-term <vsai2(zv)c-term.sk> - 12.10.2001 15:48:02
create view AAA as
select
ID, CISLO, SUB_CISLO, CASTKA
from TAB1
union
select
ID, CISLO, 0.0 as SUB_CISLO, CASTKA
from TAB2;
View na IB s unionem nad tabulkama s ne(uplne) ste
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 12.10.2001 15:52:16
Pouzi pretypovanie CAST() na rovnaky typ
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
From: <tomasand(zv)quick(tec)cz>
> mam nasledujici problem. Mam 2 tabulky, ktere maji zcasti rozdilnou
strukturu a
> potrebuji nad nimi vytvorit view. Na Oracle a MSSQL jsem to vytvoril bez
> problemu, na IB to nechce jit, viz chyba nize.
>
> create view AAA as
> select
> ID, CISLO, SUB_CISLO, CASTKA
> from TAB1
> union
> select
> ID, CISLO, 0 as SUB_CISLO, CASTKA
> from TAB2;
>
> Takto to jde zcela bez problemu na ORA a MSSQL, na IB mi to zahlasi
nasledujici
> :
> Dynamic SQL Error
> SQL error code = -104
> Invalid command
> Data type unknown
> Statement: create view .....
jak spustit program tak aby byl neaktivn�?
[*] bleak <bleak(zv)atlas(tec)cz> - 12.10.2001 16:04:54
tak jsem to tedy zkusil tohle:
ShellExecute(handle, 'open', PChar(s1), nil, nil, SW_SHOWNOACTIVATE);
.... kdy� spust�m notepad.exe vysko�� stejn� na pop�ed�, nicm�n� je
neaktivn�. To by p�inejhor#�m mohlo sta�it. Ale probl�m, je �e kdy� spust�m
takto program v vytvo�en� v delphi, tak vysko�� do pop�ed� a je#t� k tomu je
aktivn�!!! Co m�m nastavit, aby program po spu#t�n� byl neaktivn�, nebo
jinak - nem�l modrou horn� li#tu?
bleak
P.S. pro� to tak chci? b��� mlutimedi�ln� prezentace. m� se spustit program,
kter� si st�hne data z internetu a podstr�� je t� prezentaci. ale ta
prezentace mus� b��et tak aby nebylo vid�t, �e se n�kde stahuj� ty data....
n�jak to p�ece mus� j�t, ne?
jak spustit program tak aby byl neaktivn�?
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 12.10.2001 16:43:12
A musi mit ten formular vubec nejaky formular ?
> tak jsem to tedy zkusil tohle:
>
> ShellExecute(handle, 'open', PChar(s1), nil, nil, SW_SHOWNOACTIVATE);
>
> .... kdy� spust�m notepad.exe vysko�� stejn� na pop�ed�, nicm�n� je
> neaktivn�. To by p�inejhor��m mohlo sta�it. Ale probl�m, je �e kdy� spust�m
> takto program v vytvo�en� v delphi, tak vysko�� do pop�ed� a je�t� k tomu je
> aktivn�!!! Co m�m nastavit, aby program po spu�t�n� byl neaktivn�, nebo
> jinak - nem�l modrou horn� li�tu?
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
MSWord + GetActiveOleObject bez vyjimky
[*] jd.software(zv)basoft.ch - 12.10.2001 17:18:42
This is a multi-part message in MIME format.
V konferenci jsem nasel tento kod od Jana Krizka na propojeni s Wordem.
try
// pokus zda je objekt jil vytvoren, pokud ano stac� zobrazit aplikaci
MSWord.AppShow;
except
on EOleError do begin
try
// pokus o pripojen� se k jil bez�c� instanci
MSWord := GetActiveOleObject('word.basic');
except
on EOleSysError do
// vytvoren� nov� instance aplikace
MSWord := CreateOleObject('word.basic');
end;
MSWord.AppShow;
end;
end;
To neni jina cesta jak zjistit jestli uz Word bezi (aby mi GetActiveOleObject negeneroval vyjimku).
Petr Jezek
"
This e-mail may contain confidential material. It is intended only for
the person or entity which it is addressed to. Any review,
retransmission, dissemination or other use of this information by
persons or entities other than the intended recipient is prohibited. If
you received this e-mail in error, please immediately notify the sender
or The Swiss Raiffeisen Group and delete the material from any and all
computers it may be stored on.
Any views or opinions expressed in this e-mail are those of the sender
and do not necessarily coincide with those of The Swiss Raiffeisen
Group. Therefore this e-mail does not represent a binding agreement nor
an offer to deal.
E-mail transmission cannot be guaranteed to be secure or error-free.
Information could be intercepted, corrupted, lost, destroyed,
incomplete or may contain viruses. Neither The Swiss Raiffeisen Group
nor the sender can accept any liability for any kind of damage as the
result of viruses or transmission errors.
"MSWord + GetActiveOleObject bez vyjimky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2001 17:27:28
From: <jd.software(zv)basoft.ch>
> To neni jina cesta jak zjistit jestli uz Word bezi (aby mi
> GetActiveOleObject negeneroval vyjimku).
Ahoj,
muzes zkusit tohle, ale nevim jestli to bude pracovat s Wordem:
function CreateOrGetOleObject(const ClassName: string): IDispatch;
var
ClassID: TCLSID;
Res: HResult;
Unknown: IUnknown;
begin
ClassID := ProgIDToClassID(ClassName);
Res := GetActiveObject(ClassID, nil, Unknown);
if Succeeded(Res) then
OleCheck(Unknown.QueryInterface(IDispatch, Result))
else
begin
if Res <> MK_E_UNAVAILABLE then OleError(Res);
OleCheck(CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, IDispatch, Result));
end;
end;
Petr Vones
tisk HTML
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2001 17:36:54
From: "Zden�k Sv��en" <dkonf(zv)seznam(tec)cz>
> potrebuju z Delphi nejak vytisknout urcitou HTML stranku ulozenou na
> lokalnim disku/(popripade, jestli to vite, tak i z i-netu).
Ahoj,
How to print an HTML document from inside of your application
http://community.borland.com/article/0,1410,26402,00.html
Petr Vones
Moznost pouzitia IB/FB, MSSQL, Oracle
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 12.10.2001 17:53:23
> > Dale v Informixu muzete mit BLOB sloupce primo v tabulkach, protoze na
> > serveru si muzete vytvorit tzv. blobspace a tam se hodnoty ukladaji,
cimz
> Muzes, prosim Te, tohle zduvodnit: proc BLOB v IB do separatni tabulky ?
Nekde jsem to kdysi vycetl (ted jsem ten zdroj hledal, ale neuspesne) a z
toho jsem mylne usoudil, ze duvod je v ukladani dat do datovych prostor
tabulky. Coz ovsem NENI PRAVDA. V datove strance je ulozen jen BLOBID a
vlastni blob je v separatnich strankach, cimz nesnizuje pocet vet na strance
a s tim souvisejici zvyseni poctu I/O operaci. Z tohoto hlediska je na tom
IB podobne jako Informix (odmyslim-li si, ze tam muzu umistit ten BLOBSPACE
na jiny disk atd.)
Fakt je, ze jsem to vetsinou rozdelil, zrejme asi zbytecne.
Omlouvam se za mystifikaci.
Leos
OLE Automation, PowerPoint a Excel
[*] Str�n�k Franti�ek - 12.10.2001 18:00:43
Pratele,
potrebuji automatizovane dostat do PowerPoint(u) nejake excelovske
tabulky a grafy (jiz drive vytvorene).
Predem dekuji za nazorny priklad.
zdravi
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
Interbase 6.0.1 a Internal gds software consistenc
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 12.10.2001 18:01:18
> Nevite nahodou nekdo, jak toto odstranit ? Respektive
> muzete mi poradit nejaky zdroj informaci o opravach
> Interbase databazi, eventuelne popisy gds chyb ?
Zkus tady:
http://www.ibphoenix.com/ibp_db_corr.html
Leos
OLE Automation, PowerPoint a Excel
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 12.10.2001 18:03:52
Jukni na http://www.djpate.freeserve.co.uk/Automation.htm,
treba tam neco najdes.
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> Pratele,
> potrebuji automatizovane dostat do PowerPoint(u) nejake excelovske
> tabulky a grafy (jiz drive vytvorene).
> Predem dekuji za nazorny priklad.TWebBrowser
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2001 18:45:30
From: "Hynek Svatos" <svatos(zv)kam(tec)czu(tec)cz>
> pouzivam komponentu TWebBrowser, do ktere mam natazenou nejakou www stranku.
> V jednom momente potrebuji nastavit parenta na nil a posleze opet nastavit
> parenta zpet na nejaky panel.
Proc ?
Petr Vones
Thready a messages
[*] Jirka Virt <virt(zv)volny(tec)cz> - 12.10.2001 19:34:08
ADO probl�m p�i zobrazen� Oracle tabulkyAhoj,
mam problemek s vlaknama.
Mam aplikaci s 5 vlakny a potrebuji si mezi nimi zasilat informace.
Vylozene by my bodlo zasilat WM xx zpravy.Problem je v tom, ze tato aplikace nema ani jedno okno.
Jak mam zpracovavat to zprav, protoze smycka GetMessage,TranslateMessage a DispatchMessage evidetne nefunguje.(zrejme pracuje jenom pro okna
asi WM >> WindowsMessages)
Diky moc za alespon castene popostrceni
Jirka Virt
email: virt(zv)volny(tec)cz
p�epnout mezi aplikacemi
[*] bleak <bleak(zv)atlas(tec)cz> - 12.10.2001 20:11:56
jak p�epnout z delphi mezi aplikacemi?
podobn� jako ve w9x kl�vesami ALT+TAB?
mirek
jak spustit program tak aby byl neaktivn�?
[*] bleak <bleak(zv)atlas(tec)cz> - 12.10.2001 20:18:58
mus�, proto�e se na n�m kresl� n�jak� obr�zky, nicm�n� u� jsem na to p�i�el
a chod� to.
jen tak pro zaj�mavost: m�m jin� probl�m - kdy� se za�ne cokoliv kreslit na
tom formul߰i, tak v syst�mu to je v pohod�, z�stane to vespod... JEN�E kdy�
mi b��� jeden program v okn� directx a p�itom se spust� ten m�j program a
za�ne n�co kreslit, tak to okno directx se v�dy minimalizuje, i kdy� m�j
program z�stane po��d vespod.... ale to u� je asi z�le�itost toho programu v
okn� directx
----- Original Message -----
From: Radek KALA <Kala(zv)Atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 12, 2001 4:43 PM
Subject: Re: jak spustit program tak aby byl neaktivn�?
A musi mit ten formular vubec nejaky formular ?
> tak jsem to tedy zkusil tohle:
>
> ShellExecute(handle, 'open', PChar(s1), nil, nil, SW_SHOWNOACTIVATE);
>
> .... kdy? spust�m notepad.exe vyskoe� stejni na popoed�, nicm�ni je
> neaktivn�. To by poinejhors�m mohlo staeit. Ale probl�m, je ?e kdy?
spust�m
> takto program v vytvooen� v delphi, tak vyskoe� do popoed� a jesti k tomu
je
> aktivn�!!! Co m�m nastavit, aby program po spustin� byl neaktivn�, nebo
> jinak - nemil modrou horn� listu?
> S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
TWebBrowser
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 12.10.2001 20:30:00
No dobre, tak jinak, chtel jsem si trosicku ulehcit vyklad a vidim, ze to
prispelo spise ke zmateni ...
Moje aplikace je plna framu, ktere se nezavisle na sebe zobrazuji uzivateli,
ktery ma moznost se mezi nimi jednoduse prepinat. Jednim z techto framu je i
WWW prohlizec. No a co se deje:
Kdyz vlezu poprve do www framu, vse se ok zobrazi a jede to pekne tak, jak
ma.
Pak se prepnu do jineho framu, pricemz ten jiz nacteny www frame je stale v
pameti a tak je pripraveny
se bleskove zobrazit rychlosti chtivemu uzaveteli. Ten, kdyz ho vybere,
frame se mi objevi, nicmene TWebBrowser se tvari, jako kdyby nemel natazenou
zadnou stranku (jen bila plocha) a na veskera volani odpovida jen lakonickym
vyhazovanim Exceptions. To do te doby, dokavad nepustim Navigate nebo Go.
Pak uz to zase jede ok. Lehka rada: tak preci vzdy po aktivaci toho framu
nacti tu stranku a je to, ty jelito. Jenze ouha, to neni zadouci, ba co dim,
to je primo trestuhodne chovani, takhle to proste fungovat nesmi!
Pokusil jsem si tento stav nasimulovat, a zjistil jsem, ze se to stane prave
tak,
ze se komponente TWebBrowser sebere Parent (respektive se pri pri teto
operaci TWebBrowser chova stejne).
Kdo zachrani neboheho programatora pred pobytem v Bohnicich ?
Predem dekuji za vsechny Vase reakce.
Jo, jeste konfigurace: W2000 CZ SP2, IE5.5, D5 Pro UpdPck 1
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> From: "Hynek Svatos" <svatos(zv)kam(tec)czu(tec)cz>
> > pouzivam komponentu TWebBrowser, do ktere mam natazenou nejakou
> www stranku.
> > V jednom momente potrebuji nastavit parenta na nil a posleze
> opet nastavit
> > parenta zpet na nejaky panel.
>
> Proc ?DBGrid a double-click
[*] 3D-imenision <3dimension(zv)seznam(tec)cz> - 12.10.2001 21:22:02
V tomto pripade se omlouvam a jdu k ocnimu.Rychlost komunikace D5<->Excel pres COM
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 12.10.2001 21:29:03
Zdravim,
vytvarim si v D5 komunikaci s Excelem pres COM. Vsechno funguje krasne,
laduju si do Excelu nejaky data z tabulky, ale. Az na to ALE. Je to dost
pomaly. Ja to teda delam jednoduse v cyklu - projizdim si vsechny zaznamy
tabulky a hodnoty poli vkladam do Excelu pomoci CELL(x,y). Je krasne videt,
jak to vali, nicmene na mym P4/1.7GHz trva cca 700 zaznamu pres 5 minut, coz
je neprijatelne (u zakaznika pujde o tisice zaznamu). Proto moje otazka zni:
Da se komunikace nejakym zpusobem bufferovat, pripadne davkove posilat data
do Excelu nebo nejak jinak to urychlit ?
Dik moc za kazdy napad.
M.S.
TImage
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 12.10.2001 21:31:41
Chcem vlozit cez viacere objekty komponentu Imege a zapnu ju na transparent.
Chcem teda, aby csetko okrem bielej bolo vidiet, no objekty mi to prekryvaju
a Brint to .. je tu bez priaznivej odozvy. Ako to urobit, aby som mal
transparentny obrazok na vrchu?
Vdaka za kazdu radu.TWebBrowser
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.10.2001 22:00:32
A nemohl bys proste prehodit Parenta na neco, co neni videt a pak jej
vratit zpet ?
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.11.2001 Hynek Svato#:
> No dobre, tak jinak, chtel jsem si trosicku ulehcit vyklad a vidim, ze to
> prispelo spise ke zmateni ...
> Moje aplikace je plna framu, ktere se nezavisle na sebe zobrazuji uzivateli,
> ktery ma moznost se mezi nimi jednoduse prepinat. Jednim z techto framu je i
> WWW prohlizec. No a co se deje:
> Kdyz vlezu poprve do www framu, vse se ok zobrazi a jede to pekne tak, jak
> ma.
> Pak se prepnu do jineho framu, pricemz ten jiz nacteny www frame je stale v
> pameti a tak je pripraveny
> se bleskove zobrazit rychlosti chtivemu uzaveteli. Ten, kdyz ho vybere,
> frame se mi objevi, nicmene TWebBrowser se tvari, jako kdyby nemel natazenou
> zadnou stranku (jen bila plocha) a na veskera volani odpovida jen lakonickym
> vyhazovanim Exceptions. To do te doby, dokavad nepustim Navigate nebo Go.
> Pak uz to zase jede ok. Lehka rada: tak preci vzdy po aktivaci toho framu
> nacti tu stranku a je to, ty jelito. Jenze ouha, to neni zadouci, ba co dim,
> to je primo trestuhodne chovani, takhle to proste fungovat nesmi!
> Pokusil jsem si tento stav nasimulovat, a zjistil jsem, ze se to stane prave
> tak,
> ze se komponente TWebBrowser sebere Parent (respektive se pri pri teto
> operaci TWebBrowser chova stejne).
> Kdo zachrani neboheho programatora pred pobytem v Bohnicich ?
> Predem dekuji za vsechny Vase reakce.
> Jo, jeste konfigurace: W2000 CZ SP2, IE5.5, D5 Pro UpdPck 1
> Keep mailing :-)
> =======================
> Ing. Hynek Svato#
> svatos(zv)kam(tec)czu(tec)cz
> hynek.svatos(zv)atlas(tec)cz
> =======================jak spustit program tak aby byl neakti
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.10.2001 22:01:48
A zkousel jsi jej spustit minimalizovany ?
------
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.11.2001 bleak:
> mus�, proto�e se na n�m kresl� n�jak� obr�zky, nicm�n� u� jsem na to p�i�el
> a chod� to.
> jen tak pro zaj�mavost: m�m jin� probl�m - kdy� se za�ne cokoliv kreslit na
> tom formul߰i, tak v syst�mu to je v pohod�, z�stane to vespod... JEN�E kdy�
> mi b��� jeden program v okn� directx a p�itom se spust� ten m�j program a
> za�ne n�co kreslit, tak to okno directx se v�dy minimalizuje, i kdy� m�j
> program z�stane po��d vespod.... ale to u� je asi z�le�itost toho programu v
> okn� directx
WordPad jako richtext editor
[*] Ji�� Kr�l jr. - 13.10.2001 00:14:51
Zdar,
mam takovou ideu, rad bych zneuzil standardni wokenni Wordpad (w9x) jako
editor pro obsahy svych TRichEditu. Tzn. zavolat Wordpad a predat mu obsah
Tricheditu a po ukonceni wordpadu patricne aktualizovat trichedit. Jak se
bavit s Wordpadem? Je to vubec COM?
diky
Jirka
TWebBrowser
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2001 01:45:44
From: "Hynek Svato#" <svatos(zv)kam(tec)czu(tec)cz>
> se bleskove zobrazit rychlosti chtivemu uzaveteli. Ten, kdyz ho vybere,
> frame se mi objevi, nicmene TWebBrowser se tvari, jako kdyby nemel natazenou
> zadnou stranku (jen bila plocha) a na veskera volani odpovida jen lakonickym
> vyhazovanim Exceptions. To do te doby, dokavad nepustim Navigate nebo Go.
Ahoj,
pokud jsem to dobre pochopil, tak by ti asi stacilo oteverit 'about:blank'
pres metodu Navigate.
Petr Vones
Komponenty pro IB (FB)
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 13.10.2001 03:24:05
Pavol Kakacka wrote:
>To znamena ze mam napriklad objekt "Faktura" a ten sa dokaze sam ulozit do
>databaze, nacitat, zauctovat.a pod. kdekolvek v programe bez toho aby som
sa
>o to musel este starat. Tiez nemam klasicke datasety ale akesy "drziaky" -
>zoznamy (listy) tychto objektov. Tieto je samozrejme mozne prepojit s
>dataaware komponentami roznymi sposobmi, napriklad "Pipelinami" - obdoba
>datasourcov a datasetov, objektovymi datasetmi alebo Controllermi.
Mohol by si napisat nieco podrobnejsie (aspon odkazy na solidne zdroje
informacii)
o sposoboch prepojenia takychto inteligentnych objektov (entit) s DataAware
komponentami? Pripadne ako co najvseobecnejsie riesit mapovanie objektovych
atributov na "proste" DB stlpce?
Dakujem za kazdu odpoved. Chystam sa totiz niektore "velmi stare
DOS&Paradox"
programy preklopit do Delphi&IB a uvedeny pristup som zazil v Jave (a bol
naozaj velmi dobry)
pri spolupraci na velkych projektoch, kde vsak spodok systemu jadro uz davno
existovalo
a nemal som teda potrebu zaoberat sa jeho strukturou. Teraz je situacia ina.
Jaro
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.295 / V�rusov� datab�za: 159 - d�tum vydania: 2. 11. 2001
Thready a messages
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.10.2001 07:24:06
Ahoj,
uz jsem tady o tom jednou psal, pro komunikaci mezi trhready je nejlepsi pouzit semafory nebo mutexi.
Vse je ve WinAPI
- CreateSemaphore, OpenSemaphore, ReleaseSemaphore
- CreateMutex, OpenMutex, ReleaseSemaphore
- je jich samozrejme vic, ale tyto se mi zdaji nejschudnejsi
fce, ktere je pouzivaji jsou vetsinou - WaitForXXX
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
+420605/813644
>>> virt(zv)volny(tec)cz 12.11.01 19:34 >>>
ADO probl�m p�i zobrazen� Oracle tabulkyAhoj,
mam problemek s vlaknama.
Mam aplikaci s 5 vlakny a potrebuji si mezi nimi zasilat informace.
Vylozene by my bodlo zasilat WM_xx zpravy.Problem je v tom, ze tato aplikace nema ani jedno okno.
Jak mam zpracovavat to zprav, protoze smycka GetMessage,TranslateMessage a DispatchMessage evidetne nefunguje.(zrejme pracuje jenom pro okna
asi WM >> WindowsMessages)
Diky moc za alespon castene popostrceni
Jirka Virt
email: virt(zv)volny(tec)cz
IB & API na linuxu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 13.10.2001 07:59:11
Haj hou!
On 12 Nov 2001, at 13:11, Radek KALA wrote:
> Ahoj, nevite nahodou nekdo, jestli uz existuje verze interbase pro
> linux s API nebo jak se tomu rika, takovy ty funkce, ze aby slo z
> konzoli zalohovat, pridavat uzivatele apod.
AFAIK Services API je soucasti SuperServeru.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Rychlost komunikace D5<->Excel pres COM
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 13.10.2001 08:04:04
> vytvarim si v D5 komunikaci s Excelem pres COM. Vsechno funguje krasne,
> laduju si do Excelu nejaky data z tabulky, ale. Az na to ALE. Je to dost
> pomaly. Ja to teda delam jednoduse v cyklu - projizdim si vsechny zaznamy
> tabulky a hodnoty poli vkladam do Excelu pomoci CELL(x,y). Je krasne
videt,
> jak to vali, nicmene na mym P4/1.7GHz trva cca 700 zaznamu pres 5 minut,
coz
> je neprijatelne (u zakaznika pujde o tisice zaznamu). Proto moje otazka
zni:
> Da se komunikace nejakym zpusobem bufferovat, pripadne davkove posilat
data
> do Excelu nebo nejak jinak to urychlit ?
Ahoj,
ja to delam prachsproste tak, ze tabulku poslu do textaku s oddelovacem
strednik, zavolam si z delf excelovsky soubor, ktery obsahuje tento kod
vytvoreny makrem v excelu:
Sub auto_open()
'
' Makro1 Makro
' Makro zaznamenan� 9.2.2000, Falt�nek
'
' Kl�vesov� zkratka: Ctrl+m
'
cesta = ActiveWorkbook.FullName
cesta = Left(cesta, Len(cesta) - 12) + "Metrolog.csv"
Workbooks.Open FileName:=cesta
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo
_
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5,
1))
Cells.Select
Rows("1:1").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 32
Cells.Select
Selection.Columns.AutoFit
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
' .IndentLevel = 0
' .ShrinkToFit = False
' .MergeCells = False
End With
Rows("1:1").Select
' Selection.Borders(xlDiagonalDown).LineStyle = xlNone
' Selection.Borders(xlDiagonalUp).LineStyle = xlNone
' Selection.Borders(xlEdgeLeft).LineStyle = xlNone
' Selection.Borders(xlEdgeTop).LineStyle = xlNone
' With Selection.Borders(xlEdgeBottom)
' .LineStyle = xlContinuous
' .Weight = xlThin
' .ColorIndex = xlAutomatic
' End With
' Selection.Borders(xlEdgeRight).LineStyle = xlNone
' Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("F8").Select
End Sub
Nacte mi to text ze souboru Metrolog.csv a rozhaze do bunek vcetne
zformatovani textu. Psanim makra se nemusis zatezovat, excel si ho zaznamena
podle akci mezi stisknutim zaznamu makra a ukoncenim zaznamu makra. Vse co
mezi tim udelas makro provede, jen ho musis nazvat auto_open viz nahore, aby
se spustilo pri otevreni excelovskeho souboru ve kterem makro je.
Nevim, jestli se to bude programatorum libit, ale kdyz nic, funguje to jako
blesk!
No a pro uplnost takhle vypada volani z D3.
procedure TForm1.mnuExportClick(Sender: TObject);
var
F: TextFile;
i: byte;
s: String;
begin
s:='aktu' + txtdivize.text + '.csv';
AssignFile(F, s); { File selected in dialog box }
Rewrite(F);
for i:=0 to qExport.fieldcount-1 do
begin
write(F,qExport.Fields[i].FieldName,';');
end;
writeln(F,'');
for i:=0 to qExport.fieldcount-1 do
begin
write(F,qExport.Fields[i].DisplayLabel,';');
end;
writeln(F,'');
try
qExport.Open;
qExport.first;
while not qExport.eof do
begin
i:=1;
for i:=0 to qExport.fieldcount-1 do
begin
if qExport.Fields[i] is TStringField then
write(F,qExport.Fields[i].asstring);
if qExport.Fields[i] is TFloatField then
write(F,qExport.Fields[i].asFloat);
if qExport.Fields[i] is TDateField then
write(F,datetostr(qExport.Fields[i].asdatetime));
if qExport.Fields[i] is TIntegerField then
write(F,qExport.Fields[i].asinteger);
write(F,';');
end;
writeln(F,'');
qExport.next;
end;
qExport.close;
finally
CloseFile(F);
showmessage('Export do aktualiza�n�ho souboru ' + s + ' skon�il' );
end;
qExport.Open;
end;
Dalik Falt�nek - technik.
prenos dat medzi aplikaciami , rozhranie ActiveX,C
[*] iturcan(zv)gamo.sk - 13.10.2001 08:12:45
Hi all,
Mam jeden mensi-vacsi problem. Potrebujem komunikovat z jednou aplikaciou,
tato ma na to pripravene dve rozhrania
1. kniznica objektov v COM
2. ActiveX komponenta
Nastal mi nasledovny problem. Intuitivne som si nainstaloval zmienenu
ActiveX komponentu ale pri pokuse umiestnit ju na form mi Delphi vypise
nasledovnu hlasku: "No such interface supported" a samozrejme
kompoenntu nepouzijem. Vo Visual Basicu komponenta funguje ok. Kde je
problem ?
Skusal som teda COM kniznicu avsak tam je jeden problem. Potrebujem z danej
aplikacie citat data (obsah jedneho okna - obrazok) a v tej kniznici COM
nie je funkcia ktora by mi tie data vratila. Je tam iba funkcia ktora mi
tie data umiestni do clipboardu z ktoreho si ich potom viem nacitat.
Problem je ze to je hodne pomale a podla mojho nazoru nevhodne riesenie.
Rozmyslam ci nejde presmerovat clipboard niekde inde, tzn. ci mozem
predefinovat pamatove miesto kde sa budu ukladat data ktore vlozi nejaka
aplikacia do clipboardu. Popripade predefinovat funkcie clipboardu tak aby
sa tie data vkladali rovno ku mne na form.
Druhe co ma napada je pohladat to okno ako handle a tie data citat priamo z
neho, to sa mi ale nezda ako ciste riesenie.
prosim ak ma niekto ideu ako na to dajte vediet, dost to ponahla.
dakujem
Ivan
Rychlost komunikace D5<->Excel pres COM - OPRAVA
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 13.10.2001 08:20:24
Omlouvam se za chybu, nakopiroval jsem spatnou cast kodu. Cast kodu v
Pascalu pro export do textu a volani Makroprn.xls vypada u mne takhle
strasne, ale je to z programu pro vlastni uziti:
procedure TForm1.cmdExcelClick(Sender: TObject);
var
F: TextFile;
ok: word;
xl: Thandle;
A: array[0..79] of Char;
jm: array[1..20] of string[25];
jmdb: array[1..20] of string;
i: byte;
ii: integer;
s, s1, s2, nn: String;
b: Tbookmark;
begin
for i:=1 to 20 do jm[i]:='';
for i:=1 to 20 do jmdb[i]:='';
with qTisk do
begin
first;
i:=0;
while not EOF do
begin
i:=i+1;
jm[i]:=qTisk.fieldbyname('T1').asstring;
jmdb[i]:=qTisk.fieldbyname('Name').asstring;
nn:=jmdb[i];
ii:=qkarta1.fieldbyname(nn).index;
next;
end;
end;
if (edsql1.text<>'') and (cmdFiltr.down = true) then
begin
AssignFile(F, 'metrolog.csv'); { File selected in dialog box }
Rewrite(F);
i:=1;
while jm[i]<>'' do
begin
write(F,jm[i]);
write(F,';');
i:=i+1;
end;
writeln(F,'');
b:=qKarta1.getbookmark;
try
qkarta1.afterscroll:=nil;
qkarta1.BeforePost:=nil;
qkarta1.first;
while not qkarta1.eof do
begin
i:=1;
while jm[i]<>'' do
begin
nn:=jmdb[i];
ii:=qkarta1.fieldbyname(nn).index;
if qkarta1.Fields[ii] is TStringField then
write(F,qkarta1.Fields[ii].asstring);
if qkarta1.Fields[ii] is TFloatField then
write(F,qkarta1.Fields[ii].asFloat);
if qkarta1.Fields[ii] is TDateField then
write(F,datetostr(qkarta1.Fields[ii].asdatetime));
if qkarta1.Fields[ii] is TIntegerField then
write(F,qkarta1.Fields[ii].asinteger);
write(F,';');
i:=i+1;
end;
writeln(F,'');
qkarta1.next;
end;
CloseFile(F);
qKarta1.GotoBookmark(b);
finally
qkarta1.afterscroll:=filtrkalib;
qkarta1.BeforePost:=qKarta1BeforePost;
qcmeridla.FreeBookmark(b);
end;
s1:=tbpreset1.fieldbyname('adrexcel').asstring;
s2:=tbpreset1.fieldbyname('adrxls').asstring;
s:=s1 + ' ' + s2;
StrPCopy(A, S);
xl:=winexec(a,SW_SHOWNORMAL);
application.processmessages;
if xl<32 then
begin
messagebeep(0);
showmessage('V�# tabulkov� procesor (nap�. Excel) nebyl nalezen. Zadejte
na n�j cestu s n�zvem a zkuste to je#t� jednou');
try
s1:=inputbox('Varov�n�!','Zadejte cestu a n�zev Va#eho tabulkov�ho
procesoru',s1);
if s1<>'' then
begin
tbpreset1.edit;
tbpreset1.fieldbyname('adrexcel').asstring:=s1;
tbpreset1.post;
end;
except
on E: exception do showmessage('Chyba zad�n� cesty');
end;
end;
end else showmessage('Mus� b�t aktivn� filtr!!!');
end;
Tento pristup ma vlastne jeste jednu drobnou vyhodu: Nezavazuje uzivatele
mit excel, staci mu aspon si to tak maluju jakykoli tabulkac s moznosti
psani podobnych maker.
Dalik Faltynek - technik fusujici do programovani.
Rychlost komunikace D5<->Excel pres COM
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 13.10.2001 08:28:52
Jojo, tohle reseni uz jsem mel, nicmene ja navic chci usetrit uzivatele
formatovani bunek a dalsich speku (logo, pricky, ...), takze bych mu chtel
predhodit hotovy list v Excelu, ktery bude mozno zrovna tisknout nebo
odeslat, a na to mi CSV nestaci :-(
Milan
> -----P�vodn� zpr�va-----
> Od: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]za
> u�ivatele Dalibor Falt�nek
> Odesl�no: 13. listopadu 2001 8:04
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: Rychlost komunikace D5<->Excel pres COM
> ja to delam prachsproste tak, ze tabulku poslu do textaku s
> oddelovacem
> strednik, zavolam si z delf excelovsky soubor, ktery obsahuje
> tento kod
> vytvoreny makrem v excelu:
TWebBrowser
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 13.10.2001 08:31:54
No to je prave ono, kdyz tohle udelam, tak se to chova tak, jak jsem popsal
...
Proste TWebBrowseru vadi, kdyz se mu (nebo komponente, ve ktere je vlozen)
prehodi Parent (a to i na viditelny!).
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> A nemohl bys proste prehodit Parenta na neco, co neni videt a pak jej
> vratit zpet ?
>Rychlost komunikace D5<->Excel pres COM
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 13.10.2001 08:50:31
> bych mu chtel
> predhodit hotovy list v Excelu, ktery bude mozno zrovna tisknout nebo
> odeslat, a na to mi CSV nestaci :-(
Skus sa pozriet do 'Excel object model' alebo tak nejak vo VBA for Excel
helpe, niekde by tam mali byt metody na potlacenie prepocitavania buniek a
prekreslovania, pravdepodobne na urovni Excel.Application. Alebo skus
vytvorit ten sheet neviditelny a ukaz ho, az ked su data pripravene.
HTH
TOndrej
zjisteni threadu procesu
[*] Richard Valny <Richard.Valny(zv)oku-st(tec)cz> - 13.10.2001 08:52:16
Prijemny den,
potrebuji odstrelit proces, ktery bezi po spusteni exe souboru.
Presneji, umim odstrelit proces, u ktereho znam nazev "okna"
PostMessage(FindWindow(nil,PChar('nazevokna')),WM_QUIT,0,0);
Ja bych ale potreboval neco, kde mohu napsat primo nazev spusteneho souboru
V podstate mi staci zjistit handel okna vznikleho na zaklade spusteni EXE.
Nevim, zda jsem se vyjadril dostatecne jasne.
Dik
=========================================
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-323 746
386 22 STRAKONICE
=========================================Existuje nejaky seznam udalosti?
[*] Jiri SOKOL <Jiri.SOKOL(zv)seznam(tec)cz> - 13.10.2001 09:06:02
Ahoj panove,
chtel bych se jenom zeptat, jestli existuje nekde napsany seznam
udalosti.
O co mi jde.
Kdyz je u nejakeho objektu vyvolana udalost, muze se stat, ze se
vyvola i udalost i u jineho objektu. Jsem programator amater a proto
se mi casto stava, ze se mi programy zacykli. Jo, odkrokuju to a pak
to nejak funguje, ale stejne ... tahle cesta pokus-omyl mi prijde moc
krkolomna.
Napr.:KeyPress na Form a KeyPress na Editu a uz se mi to cykli.
nebo: Udalost u Table vyvola udalost u DataSetu a jeste treba u
DBGridu atd.
Proste mam v tom obcas peknej zmatek.
Diky
______________________________________________________________________
http://www.bilezbozi(tec)cz - doporucuje 0 z 5 kamennych obchodniku!Jak na sitove tabulky?
[*] Jiri SOKOL <Jiri.SOKOL(zv)seznam(tec)cz> - 13.10.2001 09:16:09
Ahoj panove,
mam aplikaci, ktera zpracovava udaje a zapisuje je do tabulky.
Rad bych to rozsiril i na nasi intranetovou sit.
Problem: Nejsem schopen - osetrit, aby kdyz neco zmenim na jakekoliv
stanici, se tyto zmeny aktualizovaly a i na ostatnich stanicich.
Poradite mi nekdo? Uvitam i predani vasich zkusenosti - na co si mam
dat pozor, do ceho se nemam poustet atd.
Dekuji
Jirka
D5Ent., W95,WNT, tabulka Paradox7(primary
key+password)
______________________________________________________________________
Bol� V�s v krku? Pastilky Tantum Verde P V�m rychle pomohou.
http://ad2.seznam(tec)cz/redir.cgi?instance=13763%26url=http://www.tantum(tec)cz
Rychlost komunikace D5<->Excel pres COM
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 13.10.2001 09:23:25
zkus:
-----
var
ex1: Variant; ex1 := VarArrayCreate([1,pocet_radek,1,pocet_sloupcu],varVariant);
...
excel.WorkBooks[1].sheets[1].Range['A1:~pocet_sloupcu~~pocet_radek~'+].Value
:= ex1;
~pocet_sloupcu~~pocet_radek~ = napr AH45
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Milan Schembera
Zdravim,
vytvarim si v D5 komunikaci s Excelem pres COM. Vsechno funguje krasne,
..
do Excelu nebo nejak jinak to urychlit ?
Dik moc za kazdy napad.
M.S.Rychlost komunikace D5<->Excel pres COM
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 13.10.2001 09:25:05
> Jojo, tohle reseni uz jsem mel, nicmene ja navic chci usetrit uzivatele
> formatovani bunek a dalsich speku (logo, pricky, ...), takze bych mu chtel
> predhodit hotovy list v Excelu, ktery bude mozno zrovna tisknout nebo
> odeslat, a na to mi CSV nestaci :-(
>
> Milan
No vsak to formatovani podle pozadavku uzivatele provedes prece Ty. On uz
dostane soubor s s vytvorenym formatovacim makrem, ktery se neprepisuje.
Nakonec az na csvecku provede co ma, se da z pascalu i zavrit. Ale je fakt
ze je to takove reseni typu oprava zvonkacem.
Potom si jeste trochu vzpominam, ze v dobach 16 bit delf jsem pouzil jednou
dde spojeni s tim, ze jsem texty jednotlivych bunek poskladal - a ted uz
nevim - asi do stringu s oddelovacema tabulator a pak poslal radek po radku
do do 1. sloupce excelu pres to DDE. Excel si to uz pak rozhazel do bunek
sam a pripadlo mi to rychlejsi nez napr pres OLE.
Dalik.
ODBCe nebo ADO?
[*] Lubo Fule <fule(zv)ekosoft.sk> - 13.10.2001 09:34:29
Samozrejme, suhlasim s Tebou, len s tym, ze "disconnected recordset"
poskytuje aj ODBCe. Co sa tyka rychlosti, su to moje prakticke skusenosti a
myslim si, ze na to existuje aj dovod, kedze ODBC je "site" na mieru SQL
databazam, kdezto ADO je univerzalne. Ja osobne som mozno trochu
konzervativny, ale ked pisem C/S aplikaciu pomocou ODBC, tak mam pocit, ze
to mam viac pod kontrolou ako cez ADO. Co sa tyka ADO->OLEDB->ODBC..., tak
to uz zavana podobne ako BDE->ODBC... V pripade, ze pouzivam ODBC, tak by
som v ziadnom pripade nan nepristupoval prostrednictvom ADO, aj ked som si
isty, ze by to fungovalo spolahlivo...
L.
> 1. je jednoduchsie pouzitelne ako ODBC
> 2. je univerzalne pouzitelne (vo Visual Basicu, Delphi, ASP, C++, atd.),
> t.j. znalosti ADO mozem vyuzit takmer v lubovolnej aplikacii
> 3. je to MS preferovane rozhranie
> 4. je komptibilne, t.j. pomocou ADO a OLE DB providera pre ODBC
> je mozne sa pripajat na ODBC datove zdroje
> 5. ma moznosti, ktore ODBC nema, napr. disconnected recordsets,
> podpora XML
> 6. umoznuje univerzalny datovy pristup (nielen pristup na SQL databazy)
> 7. je objektove a optimalizovane smerom k modernym internetovym aplikaciam
> 8. podporuje RDS, t.j. moznost vytvarania viacvrstvovych aplikacii
>
> Ze je ODBC rychlejsie, to by som tak jednoznacne netvrdil,
> neexistuju na to ziadne dovody. Ze MS pouziva ODBC vo svojich
> utilitach pre MSSQL, to moze byt z historickych dovodov
> a neexistuje ziadna zaruka, ze tomu tak bude i v dalsich verziach
> MS servera (v niektorych DLL-kach servera sa uz OLEDB
> vyskytuje). Dalej uvahy o pocte vrstiev su tiez velmi zjednodusene.
> Dolezite je, ak "hruba" je dana vrstva, t.j. aku narocnu cinnost
> vykonava, nielen ich pocet. Je mozne pouzivat len OLEDB
> (bez ADO rozhrania), ak su na to specialne dovody. Pocet vrstiev
> je vtedy rovnaky (ale skomplikuje sa programovanie). Tu je aj
> otazka, ci vzhladom k charakteru ODBC rozhrania, si programator
> v aplikacii nevytvori dalsiu (objektovu) vrstva a sme tam,
> kde sme boli v pripade ADO (s tym, ze programator si ADO
> nemusi naprogramovat).
>
> Pouzitie ODBC vidim ako vyhodnejsie uz pre existujuce
> ODBC aplikacie, a v pripade znalosti a skusenosti s ODBC.
>
> Erik
>
Jak na sitove tabulky?
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 13.10.2001 09:38:07
Myslim, ze by jsi mel mrknou do archivu konference www.delphi(tec)cz, bylo o tom
uz hodne napsano.
V prni rade se musis postarat o spravne nastaveni nekterych hodnot v
registrech.
Na to existuje Unita "DBCheckU.pas" , kterou ti muzu poslat.
Je to hlavne kvuli Win95.
Dale se musis postarat o korektne nastavene BDE na kazdem kompu.
LOCAL SHARE=TRUE
NET DIR= Sitova cesta k datum (treba i:\mzdy - na kazdem pocitaci stejna)
nastavoval bych i LANGDRIVER
Po kazde provedene zmene v tabulce (treba pri udalost TABLE.AFTERPOST)
provest - DbiSaveChanges(TTable(Dataset).Handle);
Jinac ti preju mnoho uspechu.
Mam vyzkousenej i postup, kdy se nemusi BDE instalovat na na kazdej
pocitac..
> Ahoj panove,
> mam aplikaci, ktera zpracovava udaje a zapisuje je do tabulky.
> Rad bych to rozsiril i na nasi intranetovou sit.
> Problem: Nejsem schopen - osetrit, aby kdyz neco zmenim na jakekoliv
> stanici, se tyto zmeny aktualizovaly a i na ostatnich stanicich.
>
> Poradite mi nekdo? Uvitam i predani vasich zkusenosti - na co si mam
> dat pozor, do ceho se nemam poustet atd.
>
> Dekuji
> Jirka
>
> D5Ent., W95,WNT, tabulka Paradox7(primary
> key+password)
>
> ______________________________________________________________________
> Bol� V�s v krku? Pastilky Tantum Verde P V�m rychle pomohou.
> http://ad2.seznam(tec)cz/redir.cgi?instance=13763%26url=http://www.tantum(tec)cz
>problem s diakritikou
[*] Mario Szentpeteri <szent(zv)vsld.tuzvo.sk> - 13.10.2001 10:01:48
Chcem sa opytat ako vyriesit v D5 problem s radenim zaznamov
v paradoxovej databaze. Databazu som navrhol v Database Desktop
a tam nastavil aj indexovanie. Ked mam databazu zobrazenu
v gride na formulari a rovnako aj pri behu programu, radi to presne
podla ASCII tabulky - tada zaznamy (v mojom pripade priezviska osob)
zacinajuce sa diakritikou su az na konci.
Skusal som nastavit v BDE Administrator\Configuration\drivers\nativa\paradox
LANGDRIVER na nejaky cesky ale aj tak to radi rovnako.
Je problem v BDE alebo kde? Aka je najschodnejsia cesta na vyriesenie
takehoto problemu? Da sa niekde na nete take nieco najst?
Dakujem, Mario
Komponenty pro IB (FB)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.10.2001 10:32:11
----- Original Message -----
From: "Jaroslav Popluhar" <delphi1(zv)acc.sk>> Pavol Kakacka wrote:
> >To znamena ze mam napriklad objekt "Faktura" a ten sa dokaze sam ulozit
do
> >databaze, nacitat, zauctovat.a pod. kdekolvek v programe bez toho aby som
> sa o to musel este starat.
>
> Mohol by si napisat nieco podrobnejsie (aspon odkazy na solidne zdroje
> informacii)
> o sposoboch prepojenia takychto inteligentnych objektov (entit) s
DataAware
> komponentami? Pripadne ako co najvseobecnejsie riesit mapovanie
objektovych
> atributov na "proste" DB stlpce?
>
Existuje nekolik zasadnich white paperu, zkus hledat neco jako "Mapping
objects
to relational database" atp., ktere jsou psany velmi obecne a navedou te na
reseni,
ktere si muzes napsat sam. Ale upozornuju ze je to fura prace. Touto cestou
je
delana napr. i Abra G3, www.abrag3.com (skyta reklama ;-).
Jako hotove a zivotaschopne reseni pro Delphi vypada napr. www.boldsoft.com
ale stoji to penize.
Kdyby mel cas Pavel Cisar, mohl by k tomu tematu podat hodne informaci...
Martin Schayna
Komponenty pro IB (FB)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 13.10.2001 10:51:39
Haj hou!
O mapovani objektu do databaze lze nalezt hodne dobrych zdroju.
Napriklad na http://www.cetus-links.org/ je cela sekce odkazu na
zdroje venovana teto problematice (O-R mapping). Obvzlaste
doporucuji prace Scotta Amblera http://www.ambysoft.com
Project JEDI ma bezici project Obiwan na toto tema. Zatim toho
moc nevyprodukovali, ale je tam mailing list s archivem.
V newsgroups na news://forums.borland.com je skupina venovana
Delphi a OOP designu. Jednim z hlavnich temat jsou prave
business objekty a frameworky. Je tam dost lidi, kteri s tim maji
dlouhe zkusenosti.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
WinINet prevod chyb na text
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 13.10.2001 11:32:09
Ahoj,
nevite nekdo o funkci, ktera by mi prevadela chyby knihovny WinINet
vracene GetLastError na srozumitelne chybova hlaseni?
Funkce SysErrorMessage na to rozhodne nefunguje.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jak na sitove tabulky?
[*] miromr <miromr(zv)hotmail(tec)com> - 13.10.2001 12:19:26
Ahoj,
to co pises Dalibor funguje tak, ze sa automaticky objavia nove hodnoty na
ostatnych PC, alebo musia urobit table.refresh?
Taktiez prosim posli mi ten subor DBCheckU.pas
diky
Miro
----- Original Message -----
From: "Bednar��k Dalibor" <dalibor(zv)torola(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>; <Jiri.SOKOL(zv)seznam(tec)cz>
Sent: Tuesday, November 13, 2001 9:38 AM
Subject: Re: Jak na sitove tabulky?>
>
> Myslim, ze by jsi mel mrknou do archivu konference www.delphi(tec)cz, bylo o
tom
> uz hodne napsano.
>
> V prni rade se musis postarat o spravne nastaveni nekterych hodnot v
> registrech.
> Na to existuje Unita "DBCheckU.pas" , kterou ti muzu poslat.
> Je to hlavne kvuli Win95.
>
> Dale se musis postarat o korektne nastavene BDE na kazdem kompu.
> LOCAL SHARE=TRUE
> NET DIR= Sitova cesta k datum (treba i:\mzdy - na kazdem pocitaci stejna)
> nastavoval bych i LANGDRIVER
>
> Po kazde provedene zmene v tabulce (treba pri udalost TABLE.AFTERPOST)
> provest - DbiSaveChanges(TTable(Dataset).Handle);
>
> Jinac ti preju mnoho uspechu.
>
> Mam vyzkousenej i postup, kdy se nemusi BDE instalovat na na kazdej
> pocitac..
>
> > Ahoj panove,
> > mam aplikaci, ktera zpracovava udaje a zapisuje je do tabulky.
> > Rad bych to rozsiril i na nasi intranetovou sit.
> > Problem: Nejsem schopen - osetrit, aby kdyz neco zmenim na jakekoliv
> > stanici, se tyto zmeny aktualizovaly a i na ostatnich stanicich.
> >
> > Poradite mi nekdo? Uvitam i predani vasich zkusenosti - na co si mam
> > dat pozor, do ceho se nemam poustet atd.
> >
> > Dekuji
> > Jirka
> >
> > D5Ent., W95,WNT, tabulka Paradox7(primary
> > key+password)
> >
> > ______________________________________________________________________
> > Bol� V�s v krku? Pastilky Tantum Verde P V�m rychle pomohou.
> > http://ad2.seznam(tec)cz/redir.cgi?instance=13763%26url=http://www.tantum(tec)cz
> >
>
>zjisteni threadu procesu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2001 12:55:00
From: "Richard Valny" <Richard.Valny(zv)oku-st(tec)cz>
> Ja bych ale potreboval neco, kde mohu napsat primo nazev spusteneho souboru
> V podstate mi staci zjistit handel okna vznikleho na zaklade spusteni EXE.
Ahoj,
pomoci GetPidFromProcessName ziskas ID procesu a ten pak pouzijes do funkce
TerminateApp. Oboji je v JCL v unitu JclSysInfo:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
WinINet prevod chyb na text
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2001 12:57:05
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> nevite nekdo o funkci, ktera by mi prevadela chyby knihovny WinINet
> vracene GetLastError na srozumitelne chybova hlaseni?
Ahoj,
napriklad takhle:
procedure WinInetCheck(Error: Boolean);
var
ErrCode: Integer;
S: string;
begin
ErrCode := GetLastError;
if Error and (ErrCode <> 0) then
begin
SetLength(S, 1024);
if FormatMessage(FORMAT_MESSAGE_FROM_HMODULE,
Pointer(GetModuleHandle('wininet.dll')),
ErrCode, 0, PChar(S), Length(S), nil) > 0 then
SetLength(S, StrLen(PChar(S)))
else
S := SysErrorMessage(ErrCode);
raise Exception.Create(S);
end;
end;
Petr Vones
WinINet prevod chyb na text
[*] Tomas Kminek <tomas.kminek(zv)atlas(tec)cz> - 13.10.2001 13:09:33
Zjistis jestli GetLastError je INTERNET_ERROR_BASE az INTERNET_ERROR_LAST a potom zavolas funkci:
FormatMessage(FORMAT_MESSAGE_FROM_HMODULE, Pointer(GetModuleHandle('wininet.dll')), GetLastError , 0, (zv)readData, SizeOf(readData), nil);
kde readData je buffer (u mne Array[0..4095] of Char)
Kdyz GetLastError = ERROR_INTERNET_EXTENDED_ERROR, tak muzes jeste volat InternetGetLastResponseInfo
TK
> nevite nekdo o funkci, ktera by mi prevadela chyby knihovny WinINet
> vracene GetLastError na srozumitelne chybova hlaseni?
>
> Funkce SysErrorMessage na to rozhodne nefunguje.
Zmena jazyku na klavesnici
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2001 13:45:04
From: "David Kraina" <DKx(zv)seznam(tec)cz>
> Jak muzu programove vybrat klavesnici (neco jako internat.exe) ? Je na
Ahoj,
podivej se na demo aplikaci LocalesExample.dpr v JCL:
http://delphi-jedi.org/Jedi:CODELIBJCL
Petr Vones
Podchyceni udalosti
[*] Ji�� Kratochv�l����*��J�##!�)?���o� - 13.10.2001 13:50:32
DDV,
pracuju na funkci, ktera by po urcite dobe necinnosti
uzivatele mela uzivatele odhlasit ...
Pracuje to tak, ze pri vyvolani jakekoliv udalosti se
aktualizuje zaznam v db. Na db je trigger, ktery vsechny
starsi zaznamy automaticky maze ...
Potreboval bych poradit, jak podchytit vsechny akce
uzivatele. Jedna se mi pouze o udalosti nad konkretni
aplikaci (ostatni me nezajimaji).
Nevi nekdo z Vas, jak na to? Byl bych vam moc
vdecny.
S pozdravem Jirka K.Ulozeni kousku DOC souboru do databaze
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 13.10.2001 14:13:42
Potrebuji ulozit fragment souboru DOC do pole tabulky. Jaky typ pole pouzit?Ulozeni kousku DOC souboru do databaze
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 13.10.2001 14:35:40
Ahoj,
rekl bych, ze jednoznacne BLOB.
Ota Maly
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Krayzel Libor
> Sent: Tuesday, November 13, 2001 2:14 PM
> To: 'delphi-l(zv)clexpert(tec)cz'
> Subject: Ulozeni kousku DOC souboru do databaze
>
>
> Potrebuji ulozit fragment souboru DOC do pole tabulky. Jaky typ
> pole pouzit?
>
> Odchyceni klaves v TEdit
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.10.2001 15:44:01
Ahoj,
jak odchytit klavesy (sip.vpravo,sip.vlevo,del) v Editu (budou to nejspis vsechny spec. klavesy, ne jen tyhle co potrebuju)
OnKeyPress na ne vubec nereaguje....
Diky
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
+420605/813644
OT: Notebook
[*] Zden�k Sv�en - 13.10.2001 16:08:28
Predem se omlouvam za OT.
Premyslim o nakupu nejakeho notebooku a verim, ze zkuseni programatori mi
poradi, ktery je (zejmena pro tento) ucel nejvhodnejsi (v cenove relaci do
50 tis. s DPH)
Jeste jednou sorry za OT, budu vdecny, kdyz me pripadne nasmerujete nekam na
diskusi o tomto tematu.
Diky.
Zdenek
OLE Automation, PowerPoint a Excel
[*] Str�n�k Franti�ek - 13.10.2001 16:16:19
Pratele,
potrebuji automatizovane pres OLE Automation dostat do PowerPoint(u)
nejake excelovske
tabulky a grafy - vysledky (jiz drive vytvorene v Delphi pomoci OLE
automation).
Nyni tyto vysledky potrebuji vrazit do jednotlivych snimku do
PowerPointu tak, aby tam byly pripraveny pro konecne "rucni dozabaleni"
dalsich snimku.
Koukal jsem se na doporucenou adresu
http://www.djpate.freeserve.co.uk/Automation.htm, ale tam jsou jenom
zakladni postupy pro nastartovani, ukonceni apod. PowerPoint(u).
Ja bych potreboval automatizovane vzit excelovske soubory a predat je do
snimku (1,2,3 ...) v PowerPointu.
Zatim se mi to proklate nedari ...
Predem dekuji za nazorny priklad.
zdravi
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
OT: Notebook
[*] iturcan(zv)gamo.sk - 13.10.2001 16:18:16
>Predem se omlouvam za OT.
>Premyslim o nakupu nejakeho notebooku a verim, ze zkuseni programatori mi
>poradi, ktery je (zejmena pro tento) ucel nejvhodnejsi (v cenove relaci do
>50 tis. s DPH)
>Jeste jednou sorry za OT, budu vdecny, kdyz me pripadne nasmerujete nekam
na
>diskusi o tomto tematu.
>Diky.
>Zdenek
odporucam HP omnibook xe3 >
procesor Intel Celeron 850 MHz,
128 MB Ram 10 GB disk, 24x CD ROM
FDD, modem 56kB, 14.1" TFT display
Win98
zaruka 1 rok (rozsirenie na 3 roky 5800 Kc)
39 990 Kc bez DPH
cena je podla mna na znackovy notebook super.
viac na www.hp(tec)cz
Ivan Turcan
OT Notebook
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2001 16:26:21
From: "Zden�k Sv��en" <dkonf(zv)seznam(tec)cz>
> Premyslim o nakupu nejakeho notebooku a verim, ze zkuseni programatori mi
> poradi, ktery je (zejmena pro tento) ucel nejvhodnejsi (v cenove relaci do
Ahoj,
je to asi znacne subjektivni, ale me prijde notebook jako opravdu nouzovka pro
pripady kdy je potreba jen neco rychle opravit. Na programovani se podle me
nehodi zadny, neni nad normalni pocitac. Kdyz se pak jeste vezme v uvahu cena
ve srovnani se stolnim pocitacem podobneho vykonu, male rozliseni displeje (s
vyjimkou tech uplne nejdrazsich modelu) a nemoznost vymeny jednotlivych
komponent, tak to vychazi jeste hure. Pred casem jsem videl relativne levne
notebooky nabizet tady http://www.notebookshop(tec)cz O te firme ale jinak nic
nevim, notebook bych si stejne nekoupil ;-)
Petr Vones
Notebook
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 13.10.2001 16:26:21
Ahoj
resim podobny problem.
Velice se mi zalibil HP OmniBook XE3.
Procesor: Intel Celeron 850 MHz. Cache: 32kB/L1 a 128kB/L2 | cache. Pam�#:
128 MB SDRAM (max. 512MB). Pevn� disk: 10 GB HDD. Displej: 14" | XGA TFT.
FDD: 3.5" 1.44 MB. Modem: integrovan� 56 Kbps modem. Porty: USB, paraleln�.
Opera�n� syst�m: Windows 98. Audio: 16-bitov� audio SB
kompatibiln�, vestav�n� mikrofon. Touchpad. Baterie: 9ti �l�nkov� Li-Ion
baterie (a� 4 hodiny provozu). Rozm�ry: 33,1 x 27,33 x 4,04 cm. Hmotnost:
cca 3,4 kg. Cena je podle prodejcu kolem 40000 bez dph.
Pruser: (alespon pro mne) - nema to seriovy port.
Dotaz - nema nekdo zkusenosti s konvertory USB -> RS232, hlavne pokud se
tyka SW emulace seriovych portu - jestli by mi na tom jely programy, psane
pro COM porty.
Mirek
----- Original Message -----
From: Zden�k Sv��en <dkonf(zv)seznam(tec)cz>
To: Delphi konference <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, November 13, 2001 4:08 PM
Subject: OT: Notebook
| Predem se omlouvam za OT.
| Premyslim o nakupu nejakeho notebooku a verim, ze zkuseni programatori mi
| poradi, ktery je (zejmena pro tento) ucel nejvhodnejsi (v cenove relaci do
| 50 tis. s DPH)
| Jeste jednou sorry za OT, budu vdecny, kdyz me pripadne nasmerujete nekam
na
| diskusi o tomto tematu.
| Diky.
| Zdenek
|
|upload a download s INDY
[*] JIM Design <jim.design(zv)iol(tec)cz> - 13.10.2001 16:32:05
ahoj,
muzes se taky vykaslat na INDY a pouzit takovy kod (jen ted zrovna nevim,
jestli funguje):
procedure TForm1.SendFile(s:string); {s:nazev souboru}
var
MyFStream: TFileStream;
begin
NMStrm1.Host := 'xxx.xxx.xxx.xxx' {IP Hosta}
MyFStream := TFileStream.Create(s, fmOpenRead);
try
NMStrm1.PostIt(MyFStream);
finally
MyFStream.Free;
end;
end;
a na serveru:
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
MyFStream: TFileStream;
begin
MyFStream := TFileStream.Create('nazevsouboru', fmCreate);
try
MyFStream.CopyFrom(strm, strm.size);
finally
MYFStream.Free;
end;
end;
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of bleak
Sent: Wednesday, November 07, 2001 2:59 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: upload a download s INDY
zdrav�m,
m�m vytvo�en� tunel k po��ta�i s IP a ��slem portu. Pot�ebuji na ten po��ta�
poslat nebo tak� st�hnout z n�j soubor. Pros�m o tip, kter� z komponent Indy
jsou pro tento ��el nejvhodn�j#�.
D�le sh�n�m n�jakou komponentu s funkc� FTP klienta.
mirek