Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Intranet vs. Internet - stahovani souboru - rychlo
[*] js-delphi(zv)quick(tec)cz - 7.4.2004 14:19:53
Odesilatel: Vaclav Halik <spravasd(zv)suz.cvut(tec)cz>
> To se da celkem lehce spocitat:
> FTP pres 100 Mbit cca (11 MB/s x 60) = 660 MB/minutu
> - bezny comp to ale nestihne bud spracovat nebo ukladat takze
> pokud budes kopirovat cca 5 GB soubor, pocitej ukladani
> na disk cca 5 az 8 MB/s (podle vykonosti disku).
> Tedy idealne je to 300 az 480 MB/minutu
> -->> Tedy tvuj soubor 1 GB v idealnim pripade prekopirujes
> za 2 az 3 minuty u FTP prenosu.
> -->> Jak tu uz psal tusim Lukas SMB ma velkou reziji prakticky
> se mi nikdy nepodarilo prenest vic jak 8 MB/s a to jen diky
> tomu ze sem to cpal na Linuxovy SMB server.
> Kde je SMB rychlejsi (nevim proc ale je to tak)
Jeee, 2 az 3 minuty na 1GB ... to by bylo idelani... doma jsem musel prekopirovat cca 7GB (nutna reinstalace) a trvalo to 5,5 hodiny!!!
> Opravdu se jedna o stejny protokol ? V obou pripadech ?
> Tedy predpokladam FTP ?
No v prvni pripade to stahuju prostrednictvim HTTPSend (synapse) a v druhem pripade to nechavam ciste na oper. sys. No snad nejsem uplne mimo, ale domnivam se, ze oba pouzivaji TCP/IP protokol, ne?
> Jsi si jisty ze se ti doma propoji 100 MB/s. ?
Tak na tohle se tezko odpovida... Kdyz se sitovky connect-nou, tak mi obe WinXP nahlasi pripojeni k siti rychlosti 100Mb/s - jak to overit ... v tuhle chvili netusim
> Napada mne jeste jeden problem v booku mas urcite jinou sitovku
> nez v tom domaci PC.
Ano. Ale pozor. Ve firme jsou identicka PC, se stejnyma sitovkama a chova se to stejne...
> Stava se ze pokud mas dve PC propojene
> naprimo (tedy ne pres SWITCH nebo HUB), muze vadit nastaveni
> Duplexu. Urcite kombinace duplexu/sitovek proste nechodi a je
> nutne je prenastavit.
To by se muselo zase projevovat jen ve firme... doma to mam propojene prekrizenym kabelem a vysledek stejny...
> Potize take delaji nektere rozsirene volby
> sitovek.Pak se takova sitovka tvari ze jede na 100 Mbit/s ale
> vnitrne je
> v ochranem modu prepla jen na 10 Mbit/s
No to by teoreticky taky mohlo byt ono - aspon u me doma - nemuzu to vyvratit, ale jak to zjistit, potvrdit/vyvratit?
Jake rozsirene volby sitovky mas na mysli - abych se ne zkusil mrknout...
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Ztrata promenne v TWebBrowser
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 7.4.2004 14:19:54
Cau vsichni, mam moc velky problem !!
pouzivame nas udelany prohlizec stranek pomoci komponenty TWebBrowser jako ActiveX ale co se nedeje a je pro mne zahadou tak se straceji pri predavani ze stranky na stranku v nahodnem poradi (jednou to jede a po druhe zas ne) promenne, jednoduse se vyplni formular a kdys se da odeslat tak se nacte uvodni stranka = strati se vsechny predavane promenne. Nesetkal jste se nekdo uz nekdy s timhletim problemem ?
pls, docela to hori...
dik Radek
Delphi 8 - BdpDataAdapter
[*] Jaromir Luhan <konference(zv)lionet(tec)cz> - 7.4.2004 14:17:52
----- Original Message -----
From: "Petr Vones" <pvones(zv)vol(tec)cz>> From: "Ing. Petr Kejval" <petr.kejval(zv)worldonline(tec)cz>
> > Ano, mam nainstalovany Update #2.
>
> Potom doporucuju prohledat popripade dat dotaz do prislusnych newsu
Borlandu:
> news://newsgroups.borland.com/borland.public.delphi.database.bdp
>
Ano, to je mozne (a nekdy i rychle). Ale taky muzes poslat dotaz na Borland
CZ (tj. na me...) a ja muzu zjistit, jak se zalezitost ma. Chce to ale
problem co nejlepe popsat.
J. Luhan
Borland CZ
ManualDoc panelu z formulare v DLL do formulare v
[*] Petr Vones <pvones(zv)vol(tec)cz> - 7.4.2004 13:21:44
From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>
> Mam problem zobrazit panel z formulare v DLL na panelu formulare
> vytvoreneho v EXE. Zkousel jsem vsechno mozne vcetne nastavovani
> promennych Application a Screen v DLL na hodnoty z EXE ve funkci DLL,
> kam to EXE preda parametrem. Prelozeno s pouzitim ShareMem knihovny a
> Borlandmm.dll.
Musis oboje prelozit s runtime balicky a ShareMem vyhodit.
Petr Vones
zjisteni poctu vlaken dane aplikace
[*] Petr Vones <pvones(zv)vol(tec)cz> - 7.4.2004 13:21:45
From: <david.kopecek(zv)hacktrack.com>
> nemate nedko reseni jak za behu aplikace zjistit kolik ma vlaken ?
> potreboval bych vedet kolik presne vlaken vyuziva.. tj ten udaj co
> vidim v Task Manageru.
Zalezi na jakych verzich Windows to ma bezet. Muzes pouzit ToolHelp funkce
(Windows 95/98/Me/2000/XP/2003) nebo Performance Data Helper (NTcka obecne).
Petr Vones
Delphi 8 - BdpDataAdapter
[*] Petr Vones <pvones(zv)vol(tec)cz> - 7.4.2004 13:53:50
From: "Ing. Petr Kejval" <petr.kejval(zv)worldonline(tec)cz>
> Ano, mam nainstalovany Update #2.
Potom doporucuju prohledat popripade dat dotaz do prislusnych newsu Borlandu:
news://newsgroups.borland.com/borland.public.delphi.database.bdp
Petr Vones
OLE Word - co jeste v konferenci neni
[*] Lukas Barton <delphikonf(zv)cross(tec)cz> - 7.4.2004 13:41:48
Plne mi stacilo
OleContainer1.SaveAsDocument('d:\pok01.doc');
Dekuji mockrat....> ------- Lukas Barton --------
> email: barton(zv)labsys(tec)cz
> ICQ#: 116-948-331
> url: www.labsys(tec)cz
> : Delphi 4 c/s
> : oracle 9.2.0.1
> : w2k sp2
> -----------------------------
-----Original Message-----
From: Bohac Frantisek [mailto:bohacf(zv)vnol(tec)cz]
Posted At: Wednesday, April 07, 2004 8:48 AM
Posted To: Delphi konference
Conversation: OLE Word - co jeste v konferenci neni
Subject: Re: OLE Word - co jeste v konferenci neni
Ahoj,
mozna by to ukladani slo udelat s pomoci:
OleContainerWord.OLEObject.SaveAs(FileName:= FileName,
FileFormat:= 0);
Je to uvedene tady:
http://entwickler-forum.de/webx?128(zv)217.YIhyaN9Rbq7.0(zv).ee8c582
Kdyz to bude ulozene s pomoci OLE, tak by se to teoreticky dalo otevrit v pohode ve Wordu.
U mne to pise: Interface not supported ... asi mam nejak nakople registry, ale reinstalovat se mi to nechce ...
Tady jsou nejake priklady:
http://www.unitoops.com/uoole/examples/embedtest.htm
Zkousel jsem taky:
OleContainer1.SaveAsDocument('d:\pok01.doc');
a potom to v pohode otevru ve Wordu...
Kdyz to oteviras na dvou mistech soucasne (pokud to dobre chapu), nemuze byt problem v tom, ze word si soubor automaticky uzamyka?
A dobre komponenty pro praci s Wordem jsou MSOAddIn - tam se da nadefinovat, co se ma delat, kdyz se vyvola nejaka udalost ve Wordu (treba poslat nejakou zpravu windows ...)
Taky jsem resil problem, jak do mailu ve Wordu vlozit emailovou adresu, ale bez MS Outlook asi neni sance :-((
Preji Ti mnoho stesti at to vyresis.
F.
P.S.
Omlouvam se, ze je to tak zmatene - snad to prelouskas a bute to mit alespon mizivy prinos...
----- Original Message -----
From: "Lukas Barton" <delphikonf(zv)cross(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 06, 2004 9:17 AM
Subject: OLE Word - co jeste v konferenci neni
> Prijemny den
> Uz jsem se na toto ptal nekolikrat a tak to ykousim opravdu jiz
naposledy...
>
> Mam dve metody pripojeni k app Word:
>
> 1) pres TOLEContainer
> TOLEContainer.CreateObject('Word.Document', false);
>
> 2) Vytvorenim vlastni instance wordu pres Variant
> W : Variant; W := CreateOleObject('Word.Application');
>
> -------
>
> Ad 1] zde nacitam objekt Document z kolekce
> {Word.}Application.Documents,
mam k dispozici vlastni menu soubor, mam nadefinovane fce pro ukladani do databaze, tisk (dari se mi pristoupit k objektu - TOLEContainer.OleObject.Application a proto mohu vyuzit tiskoveho rozhrani wordu).
> To co k dispozici nemam je fce Nahled dokumentu. Soubor ukladam pres
stream rovnou do db a nejsou s tim (jiz) zadne problemy (pokud by nekdo chtel poradit s ukladanim do db pres stream, uz to mam zvladnute :) )
>
> Ad 2] do variantu nacitam objekt application - tzn. ze mohu ovladat
aplikaci word jak se mi zlibi. Ukladani a nacitani z db je komplikovanejsi, protoze ho nejdriv musim ulozit na disk abych mohl volat fci wordu W.Documents.Open(...params...).
> Dokazu si pridat do wordu vlastni menu, docasne disablovat stavajici
(napriklad zakazat ukladani na disk a pridat vlastni menu pro ukladani do db), ale !!!!!! jak mam zachytit v delphi ze uzivatel klepnul na mnou vytvorene menu z wordu; jak zjistim ze uzivatel ukoncil word abych mohl v aplikaci pokracovat (ulozeni do db, zpracovani....) !!!!!!!!!!
>
> A TED TEN NEJDULEZITEJSI PROBLEM!
> Rikal jsem si ze kdyz chci nahled, zobrazim dokument primo ve wordu
> pres
variant s atributem jen pro cteni a na druhou stranu upravy a tisky a ukladanim do db si poresim v dokumentu otviranem pres TOLEContainer. Ale ejhle! Soubor vytvoreny v TOLEContaineru, kdyz jej ulozim na disk nelze otevrit ve wordu a naopak soubor vytvoreny ve wordu nenactu do TOLEContaineru.
>
> -------
>
> Pokud vite jak otevrit dokument wordu v TOLEContaineru poradte mi,
> nebo
pokud vas napadne lepsi napad jak toto resit poradte mi prosim taky, uz nad tim badam 14 dni... Myslim ze praci s Word, Excel pres OLE mam zvladlou vyborne ale tohle me nici :((((
>
> Poznamka:
> TOLEContainer lze otevirat pouze jako word.document (.documents nebo
...application je naprosto neprispuste) naopak
> CreateOleObject lze volat pouze s word.application.
>
> Predem moc dekuji.
>
>
> Hezky den
>
> ------- Lukas Barton --------
> email: barton(zv)labsys(tec)cz
> ICQ#: 116-948-331
> url: www.labsys(tec)cz
> : Delphi 4 c/s
> : oracle 9.2.0.1
> : w2k sp2
> -----------------------------
>
>
>Software pro pozorovani PC na siti
[*] Petr Vones <pvones(zv)vol(tec)cz> - 7.4.2004 13:13:43
From: "Petr Vetesnik" <wetty(zv)quick(tec)cz>
> pomoci ktereho bych mohl pozorovat praci na ostatnich pocitacich po siti,
> nejlepe free.
Remote Desktop (pokud je "server" Windows XP nebo 2003)
NetMeeting 3
Petr Vones
Rychlost pripojeni k IB serveru - lokalni sit
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 7.4.2004 13:23:46
Pekne odpoledne,
u jednoho zakaznika chodi podle jejich slov dost pomalu pripojeni z me aplikace k IB serveru. IB
server bezi na pocitaci s Windows 98 (fuj, ja vim), druhy pocitac ma Windows 2000. Na obou AVG.
Kdyz jsme to instalovali, byla rychlost normalni, odezvy okamzite. Pracuji-li primo na serveru,
odezvy jsou vyborne, na druhem pocitaci o 5 metru dal (pripojeno pres switch) je to pry pomale.
Setkali jste se nekdo s podobnym zbrzdenim? Podotykam, ze se nejedna o XP ani o hyperthreading.
Diky za kazdy namet, s pranim pekneho dne
Karel Rys
Sprava verzi (CVS a jine)
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 7.4.2004 12:57:41
Jeje, tak to nevim. Pouzivam stale verzi 6.0, ktera mi dostacuje a pristup
pres web nepotrebuji, takze jsem se o to ani nezajimal.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant> > Je to stale jeste tak, ze ke svemu chodu potrebuje sdileny adresar? To
> znamena zadny pristup pres internet?
>
>
> >
> > Pouzivam s uspechem Microsoft SourceSafe, ale neni to free.
> >
FreeVCS a prihlaseni klienta
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 7.4.2004 12:53:40
Nedari se mi prihlasit klienta k serveru
Zkousim podle napovedy username a password: "sysdba"/ "admin"
Ale hlasi mi to (server): [LOGIN] Access denied, Unknown user. sysdba
Nevite nekdo jake je spravne heslo? Nebo kde se nastavuje? Nikde jsem nic
nenasel..
JR
ManualDoc panelu z formulare v DLL do formulare v
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 7.4.2004 12:17:37
Mam problem zobrazit panel z formulare v DLL na panelu formulare
vytvoreneho v EXE. Zkousel jsem vsechno mozne vcetne nastavovani
promennych Application a Screen v DLL na hodnoty z EXE ve funkci DLL,
kam to EXE preda parametrem. Prelozeno s pouzitim ShareMem knihovny a
Borlandmm.dll. Diky Jan Blaha Delphi7
Intranet vs. Internet - stahovani souboru - rychlo
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 7.4.2004 12:03:35
>> OK. Kolik teda bude trvat prekopirovani souboru velikosti 1GB?
> Od idelniho k nejhorsimu prenosu?
> Jak to, ze pres tu samou sitovku, stejny protokol to z NETu prileti
> "jako blesk" a kdyz to pak posilam z jednoho PC na druhe,
> tak leze jako snek, vytizeni site je na 6%, vytizeni procesoru
> je nekde kolem 10% (notebook 1,3GHzCentrino; PC 1GHz Celeron)
To se da celkem lehce spocitat:
FTP pres 100 Mbit cca (11 MB/s x 60) = 660 MB/minutu
- bezny comp to ale nestihne bud spracovat nebo ukladat takze
pokud budes kopirovat cca 5 GB soubor, pocitej ukladani
na disk cca 5 az 8 MB/s (podle vykonosti disku).
Tedy idealne je to 300 az 480 MB/minutu
-->> Tedy tvuj soubor 1 GB v idealnim pripade prekopirujes
za 2 az 3 minuty u FTP prenosu.
-->> Jak tu uz psal tusim Lukas SMB ma velkou reziji prakticky
se mi nikdy nepodarilo prenest vic jak 8 MB/s a to jen diky
tomu ze sem to cpal na Linuxovy SMB server.
Kde je SMB rychlejsi (nevim proc ale je to tak)
> No a to je porad to co nechapu. V te firme, kde je spousta aktivnich
>prvku to z NETu prijde hned, kopirovani mezi dvema PC ja na obed...
Opravdu se jena o stejny protokol ? V obou pripadech ?
Tedy prdpokladam FTP ?
Jsi si jisty ze se ti doma propoji 100 MB/s. ?
Napada mne jeste jeden problem v booku mas urcite jinou sitovku
nez v tom domaci PC. Stava se ze pokud mas dve PC propojene
naprimo (tedy ne pres SWITCH nebo HUB), muze vadit nastaveni
Duplexu. Urcite kombinace duplexu/sitovek proste nechodi a je
nutne je prenastavit. Potize take delaji nektere rozsirene volby sitovek.
Pak se takova sitovka tvari ze jede na 100 Mbit/s ale vnitrne je
v ochranem modu prepla jen na 10 Mbit/s
Vaclav Halik
Sprava verzi (CVS a jine)
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 7.4.2004 11:43:33
Je to stale jeste tak, ze ke svemu chodu potrebuje sdileny adresar? To
znamena zadny pristup pres internet?
Petr Brant wrote:
>
> Pouzivam s uspechem Microsoft SourceSafe, ale neni to free.
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant>
>
> > Zajimalo by mne, co pouzivate na spravu verzi. Existuje neco jineho nez
> > CVS?
> >
> >
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Spusteni dotazu IBX
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 7.4.2004 10:53:27
Musite si nainstalkovat IBX 6.04 mate asi verzi 6.02 - nejspis
v 6.04 uz IBScript je -
download najdete na Borland.com - hledejte IBX 6.04 nebo napiste - poslu vam
to :-)
Pokud ovsem pouzivate D6 - jinak neposlouzim..
JR
Komponenty pre FB
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 7.4.2004 11:41:32
Nazdar,
idem robit vacsi projekt v Delphi (prvotne) voci FB preto mam zopar otazok (FB1.5 a D6Prof):
1. ako je so spolahlivostou komponent priamo v D6Profesional (IB) (zatial som skusal iba tieto)
2. je nejaka lepsia alternativa v komponentach pre FB1.5, najlepsie Free (vacsie moznosti, spolahlivost, jednoduchost)
3. ake mate s nimi skusenosti
ide hlavne o ukladanie binarnych dat (subory)
dik
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
Ing. Jozef Kalus
L. Stura 17/28
018 61 BELUSA
Intranet vs. Internet - stahovani souboru - rychlo
[*] Jiri Sedivec <jsedivec(zv)tiscali(tec)cz> - 7.4.2004 10:53:26
----- Original Message -----
Subject: Re: Intranet vs. Internet - stahovani souboru - rychlost
> Ted jen jeste jedna maly dotaz... Kde sehnat nejaky ftp server? Existujou
nejake free?
Pouzivam FREE CesarFTP. Je to docela slusny a jednoduchy FTPcko.Software pro pozorovani PC na siti
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 7.4.2004 11:11:30
> : Hledam software, : pomoci ktereho bych mohl pozorovat praci na
> ostatnich pocitacich po siti, nejlepe free. : Mohl by mne nekdo
> nasmerovat?
>
> VNC, http://www.realvnc.com/what.html
Osobne bych doporucil spise http://www.tightvnc.org/
To proto, ze TightVNC je take pochopitelne free, je to vlastne
rozsireni RealVNCcka, takze je s normalnim VNC plne kompatibilni!
Co ma navic? Ony vsechny metody prenosu dat u VNCcka jsou strasne
pomale! TightVNC prinasi novou metodu prenosu zvanou Tight, takze
kdyz se ti sejde TightServer i klient, beha VNC velmi hezky i treba
po pomalych linkach! Rychlost subjektivne konkuruje rychlosti
komercnich prioduktu, jako je treba PCAnywhere.
Navic to umi kompresovat vetsi bitmapy do JPG, pouziva technologii
lokalnich kurzoru (takze uz po pohnuti mysi necekas az te dozene
vzdaleny kurzor), atd.
RealVNC opravdu doporucit nemohu. Jdi do Tight, o nic neprijdes. na
Tightserver se muzes pripojit i normalnim VNC klientem, Tight lintem
se muzes pripojit i na normalni VNC.. takze proc to nepouzivat? ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Trable s ikonou
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 7.4.2004 10:37:23
Ahoj vsichni
Mam nasledujici problem. Vytvrim komponentu Edit se SpeedButtonem. Do prislusne unity jsem prilinkoval resourece file s ikonou (16x16, 16 barev) baterky, ktera ma svitit na tom buttonu. Kdyz ale ikonu natahnu do Buttonu (dale opsanym kusem kodu], cela se jaksi zvetsi a nevypada to pekne. Prosim poradte. Zajimalo by me co delam spatne, nebo jak to opravit.
Kod:
FButton:=TSpeedButton.Create(Self);
FButton.SetBounds(0, 0, FBtnControl.Width, FBtnControl.Height);
FButton.Parent:=FBtnControl;
FButton.Width:=25;
FButton.Height:=25;
lIcon:=TIcon.Create;
lIcon.Handle:=LoadIcon(HInstance,'BATERKA');
lPicture:=TPicture.Create;
lPicture.Icon:=lIcon;
FButton.Glyph:=TBitmap.Create;
FButton.Glyph.Width:=lIcon.Width;
FButton.Glyph.Height:=lIcon.Height;
FButton.Glyph.Canvas.Draw(0,0,lPicture.Graphic);
lIcon.Free;
lPicture.Free;
FButton.Refresh;
FButton.NumGlyphs:=1;
Jaromir Cermak
zjisteni poctu vlaken dane aplikace
[*] david.kopecek(zv)hacktrack(tec)com - 7.4.2004 11:11:29
Zdravim
nemate nedko reseni jak za behu aplikace zjistit kolik ma vlaken ?
potreboval bych vedet kolik presne vlaken vyuziva.. tj ten udaj co
vidim v Task Manageru.
diky
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Software pro pozorovani PC na siti
[*] Miso <delphinpp(zv)atlas(tec)cz> - 7.4.2004 11:05:28
----- Original Message -----
From: "Petr Vetesnik" <wetty(zv)quick(tec)cz>
> Hledam software,
> pomoci ktereho bych mohl pozorovat praci na ostatnich pocitacich po siti,
nejlepe free.
> Mohl by mne nekdo nasmerovat?
>
..mozno nieco taketo : http://www.realvnc.com
Software pro pozorovani PC na siti
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 7.4.2004 10:49:25
: Hledam software,
: pomoci ktereho bych mohl pozorovat praci na ostatnich pocitacich po siti,
nejlepe free.
: Mohl by mne nekdo nasmerovat?
VNC, http://www.realvnc.com/what.html
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
Intranet vs. Internet - stahovani souboru - rychlo
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 7.4.2004 10:37:22
> Hmm, to bude cesta a myslim dost dobre resitelny. Proste si na ten
> server, kam se budou stahovat data z NETu nainstaluju nejaky ftp
> server a i po lakalni siti budu ty soubory stahovat jako by slo o
> soubory z NETu... Diky za nakopnuti. Ted jen jeste jedna maly dotaz...
> Kde sehnat nejaky ftp server? Existujou nejake free? Diky moc vsem za
> vas cas
Free serveru existuje hromada... pred mnoha a mnoha lety (:-)) jsem
nasel WarFTPD, se kterym jsem spokojen a pouzivam jej dodnes.
Jednoduche na instalaci, bohate na moznosti konfigurace, umi to bezet
jako service, muzes pouzivat vzdalenou administraci, ma to svuj
system uzivatelu (hierarchicky organizovany) s vlastnim systemem
prav, atd. Najdes to na http://www.warftp.org/, respektive primy
download je na http://support.jgaa.com/index.php?cmd=ShowProduct&ID=3
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Intranet vs. Internet - stahovani souboru - rychlo
[*] js-delphi(zv)quick(tec)cz - 7.4.2004 10:25:18
Odesilatel: Lukas Gebauer <gebylist(zv)mlp(tec)cz>
> Ono to bude tim, ze ten soubor kopirujes prostredky windowsacke
> SMB
> site, coz je protokol, ktery ma hodne velkou svoji rezii!
No neco takoveho jsem tusil, ale bohuzel nemam takove vedomosti, abych to mohl tvrdit, proto jsem se obratil na profiky...
> Lze to snadno overit... kdybys mezi tema dvema pocitaci tahal ty
> data
> ne obycejnym kopirovanim, ale treba pres FTP protokol ci HTTP
> protokol, tak se vsadim, ze by ti to jelo mnohem rychleji! To bys
> ale
> musel mit na jednom z tech pocitacu FTP nebo HTTP server...
Hmm, to bude cesta a myslim dost dobre resitelny. Proste si na ten server, kam se budou stahovat data z NETu nainstaluju nejaky ftp server a i po lakalni siti budu ty soubory stahovat jako by slo o soubory z NETu...
Diky za nakopnuti.
Ted jen jeste jedna maly dotaz... Kde sehnat nejaky ftp server? Existujou nejake free?
Diky moc vsem za vas cas
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
OT: Software pro pozorovani PC na siti
[*] Petr Vetesnik <wetty(zv)quick(tec)cz> - 7.4.2004 10:23:17
Hledam software,
pomoci ktereho bych mohl pozorovat praci na ostatnich pocitacich po siti, nejlepe free.
Mohl by mne nekdo nasmerovat?
Predem dekuji
Intranet vs. Internet - stahovani souboru - rychlo
[*] js-delphi(zv)quick(tec)cz - 7.4.2004 10:17:14
> From: Ing. Marek Kocan [mailto:kocan(zv)ebchod(tec)cz]
> Sent: Wednesday, April 07, 2004 9:57 AM
> +++jake tam mas sitovky??Kuprikladu bezny koax (viz
> skola:) ) mel/ma jen 10Mbs, kroucena ma bezne 10 ci 100 a
> tam muze byt ten rozdil. KER
Ja jsem se nevyjdril presne. Omlouvam se. Ted delam aplikaci, u ktere se mi projevuje stejne chovani jako kdysi ve skole.
Ve skole jsme meli klasicke BNC sitovky propojene do kruhu. Problem si vybavuju, ze byl stejny. Z NETu to bylo rychle mezi dvema PC, byt byly vedle sebe, to trvalo hodiny.
Ted se mi stalo, ze aplikace, kterou delam, si ma neco stahovat z NETu a budou to vetsi soubory a nechci, aby mi kopirovani mezi dvema PC trvalo tak dlouho...
Ted pouzivam 100Mb sitovky doma na test propojene krizenym kabelem, ve firme pripojeni klasicke, hvezdicove na switch. Stejny problem. Z NETu okamzite, z jednoho PC na druhy znacny rozdil...
Pritom vytizeni obou PC nepresahne 10% a taskmanagery hlasi vytizeni site do 6% - proc to neleze vys? Proc pri kopirovani neni vytizeni site treba 90%??? Neco se nekde flaka - bezduvodne a ja nevim co a proc. Nevypada to na chybu v me aplikaci, protoze jsem zkousel TotalCOMMANDER (i kdyz neni receno, ze by se nemohl dopustit stejne chyby jako ja) a ten ma stejny vysledek - ftp stazeni OK, z PCnaPC hruza
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Intranet vs. Internet - stahovani souboru - rychlo
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 7.4.2004 10:11:13
> Ke stazeni z NETu pouzivam Synapsi (L.G.) a kopirovani z PC2PC
> klasicke kopirovani souboru s tim, ze zdroj je na lokale a cil je na
> sitove ceste. Nevim, jestli by to melo byt mou aplikaci - pochybuju,
> protoze ja tam zadny kod nemam. Jak uz jsem rekl, z NETu je to slusne,
> ale z PC2PC je to hrozne! Zkousel jsem stejny soubor kopirovat napr.
> pomoci TotalCommanderu a vysledek naprosto stejny, bohuzel...
Ono to bude tim, ze ten soubor kopirujes prostredky windowsacke SMB
site, coz je protokol, ktery ma hodne velkou svoji rezii!
Zatimco z internetu to stahujes protokolem, ktery je vytvoren
specielne na to, jak efektivne stahnout nejaly soubor, aniz bys tahal
nejaka zbytecna data navic. ;-)
Proto ti to z internetu jede v pohode (tesi mne, ze to jede rychle
prave s moji Synapsi :-)), zatimco kdyz to pak kopirujes mezi
pocitaci, jede to znatelne pomaleji. Moje zkusenosti s prenosy
vetsich souboru po Windowsacke siti se prilis nelisi od tebou
zjistenych rychlosti. Ta rezije neni nejakych 10%, jak tu tusim nekdo
zminoval, toho balastu se tam taha mnohem mnohem vic, tak od pohledu
pres 30%! (podivam-li se na to kolik se fyzicky preneslo dat v
porovnani s fyzickou velikosti souboru)
Navic kdyz tahas treba nejakym HTTP ci FTP protokolem, tak pri
vlastnim prenosu dat tecou data intezivne jednim smerem, a zpet uz
tece jen rezije TCP protokolu, coz je dosova par bytiku, a navic
tento proces je optimalizovan pro maximalni vykon prenosu.
Zatimco pri klasickem windows kopirovani ti ve zpetnem smeru tece
ocividne mnohem vice dat, kazdy packet je SMB protokolem asi
potvrzovan, a tak se proud odesilanych dat neustae pozastavuje a ceka
se na odpoved druhe stranu. Proto asi ta mnohem mensi propustnost. Je
to zkratka dan za to, ze se soubory pres windows sit muzes delat
mnohem vice veci nez jen je kopirovat.
Lze to snadno overit... kdybys mezi tema dvema pocitaci tahal ty data
ne obycejnym kopirovanim, ale treba pres FTP protokol ci HTTP
protokol, tak se vsadim, ze by ti to jelo mnohem rychleji! To bys ale
musel mit na jednom z tech pocitacu FTP nebo HTTP server...
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Intranet vs. Internet - stahovani souboru - rychlo
[*] js-delphi(zv)quick(tec)cz - 7.4.2004 10:05:10
Odesilatel: Vaclav Halik <spravasd(zv)suz.cvut(tec)cz>
> Nenapsal si jak je sit velka. Jaka je jeji struktura. Jestli je to
> nekdev kancliku peti sekretarek. Nebo v rozsahle siti vyrobni firmy.
Pokusil jsem se v odpovedi na mail Dalibora Tomana.
> Pokusim se obecne:
> Prenos dat mezi dvema PC se 100 Mb siti je prakticky u FTP
> prenosu cca 11 Mega tj 100Mb/8 = 12 MB - cca 1 MB na protokoly.
OK. Kolik teda bude trvat prekopirovani souboru velikosti 1GB? Od idelniho k nejhorsimu prenosu?
Jak to, ze pres tu samou sitovku, stejny protokol to z NETu prileti "jako blesk" a kdyz to pak posilam z jednoho PC na druhe, tak leze jako snek, vytizeni site je na 6%, vytizeni procesoru je nekde kolem 10% (notebook 1,3GHzCentrino; PC 1GHz Celeron)
> Takze pokud mas v ceste HUB tak pocitej pokles cca 30 az 60 %.
> Pokud mas na ten HUB pripojeno cca 20 klientu a ti pouzivaji nejake
> DB nabo na prpustnost site narocne aplikace, klesnes na prumerny
> prenos cca. 3 az 6 MB.
No a to je porad to co nechapu. V te firme, kde je spousta aktivnich prvku to z NETu prijde hned, kopirovani mezi dvema PC ja na obed...
> Pak staci nejaky zavirovany pocitac co posila bezduvodne pakety
> a mas sit vytizenou na plno. Casto staci treba vadna jedna sitovka.
>
> Takze skusit prenos v jine casti site, proverit sit, proklepnou sit
> nejakym analyzatorem provozu site a zjistit take neco o strukture
> site.
Kdyz vir, tak jak to, ze to z toho NETu prijde rychle??? Ja bych to chapal, kdyby ty testy byly delany na ruznym zeleze, ale to je stejne...
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Intranet vs. Internet - stahovani souboru - rychlo
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 7.4.2004 09:57:08
a to priletelo okamzite. Jakmile jsme ho ale chteli
presunout na jiny PC, bylo to na hodiny.
> Zda se mi proto, ze pujde o stejny problem. Nechapu, ze na
stejnem zeleze, se stejnymi protokoly je v tom takovy
zasadni rozdil. Ve skole jsme meli klasicky koax a
kopirovalo se to zhruba o par metru vedle do jineho PC. Kdyz
jsem zkusil ten samy soubor stahnout primo z NETu, byl
zkopirovan opet rychle.
> Tomu proste nerozumim!!
+++jake tam mas sitovky??Kuprikladu bezny koax (viz
skola:) ) mel/ma jen 10Mbs, kroucena ma bezne 10 ci 100 a
tam muze byt ten rozdil. KER
Intranet vs. Internet - stahovani souboru - rychlo
[*] js-delphi(zv)quick(tec)cz - 7.4.2004 09:53:07
Odesilatel: Dalibor Toman <dtoman(zv)fortech(tec)cz>
> Jake pouzivate sitovky, switche? Zkontroluj, zda se na rozhranich v
> ceste packetu neobjevuji chyby (jak na sitovkach tak na portech
> switchu atd). Zkusil bych nasadit packet sniffery - mozna zjistis, ze
> se pri prenosu (predpokladam ze jde o TCP stream) casto posilaji
> nektere segmenty opakovane = jisty priznak sitovych potizi.
> Je mozne, ze cast site je necim pretizena (legalni provoz, virus atd).
Co jsem nerekl - aplikaci teprve ladim, neni zatim nasazena. Testoval jsem ji v siti s klasickym hvezdicovym usporadanim, TCP/IP protokol, RJ45 - ve firme (presne usporadani aktivnich prvku neznam - dalo by se zjistit, ale nejsem si jist, zda s tim souvisi - viz dale). Tady jsem zkousel stahovani z internetu a dosahl jsem casu, se kterymi bych mohl byt spokojeny.
Pak jsem sbalil notebook, dosel domu a vyzkousel kopirovani peer to peer mezi dvema PC prostrednictvim stejne sitovky krizenym kabelem. Casy jsou hrozne.
Kdyz zavzpominam na casy studia (neni to tak davno :)), tak si pamatuju, ze jsme na nase odloucene pracoviste stahovali nejake video z naseho skolniho serveru a to priletelo okamzite. Jakmile jsme ho ale chteli presunout na jiny PC, bylo to na hodiny.
Zda se mi proto, ze pujde o stejny problem. Nechapu, ze na stejnem zeleze, se stejnymi protokoly je v tom takovy zasadni rozdil. Ve skole jsme meli klasicky koax a kopirovalo se to zhruba o par metru vedle do jineho PC. Kdyz jsem zkusil ten samy soubor stahnout primo z NETu, byl zkopirovan opet rychle.
Tomu proste nerozumim!!
> 2) navrh kodu pro prenos dat. Musel bys udelat zasadni chybu aby se
> rychlost prenosu takhle snizila (napriklad cteni ze souboru po hodne
> malych blocich, takze rezie systemovych volani bude znacna ebo nejaka
> nemistna manipulace s daty = prohledavani atd)). Jake je zatizeni CPU
> pri prenosu na obou koncich spojeni?
> 3) prenos po intranetu jinym zpusobem (mezi stejnymi stanicemi) beha
> normalne? (napriklad HTTP, FTP, SCP, Wwindowsi sdileni ...)
Ke stazeni z NETu pouzivam Synapsi (L.G.) a kopirovani z PC2PC klasicke kopirovani souboru s tim, ze zdroj je na lokale a cil je na sitove ceste. Nevim, jestli by to melo byt mou aplikaci - pochybuju, protoze ja tam zadny kod nemam. Jak uz jsem rekl, z NETu je to slusne, ale z PC2PC je to hrozne!
Zkousel jsem stejny soubor kopirovat napr. pomoci TotalCommanderu a vysledek naprosto stejny, bohuzel...
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
fastreport a diakritika na WinNt
[*] Zhasil Radek <radek.zhasil(zv)vitkovice(tec)cz> - 7.4.2004 09:45:02
Ahoj,
mate nekdo zkusenost s %subj%. Problem se projevuje jen na WinNt40, tiskarny
jsou hlavne od HP. Pouzit je font TimesNewRoman a Arial. Skript pisma je
nastaven na stredoevropsky. Dokonce i pote co jsem odebral vsechny fonty,
ktere mi system povolil, stale se na nahledu sestavy objevuje TimesNewRoman,
nektere pole sestavy se nezobrazily a jine se stejnym fontem ano ... tak,
tomu nerozumim uz vubec (zkouseno ve VMWare).Sprava verzi (CVS a jine)
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 7.4.2004 09:27:00
Pouzivam s uspechem Microsoft SourceSafe, ale neni to free.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant> > Zajimalo by mne, co pouzivate na spravu verzi. Existuje neco jineho nez
> CVS?
>
>
Intranet vs. Internet - stahovani souboru - rychlo
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 7.4.2004 08:46:55
>Pozn.: zkopirovani 1GB trva cca 40 min na 100Mb siti.
To odpovida presne 10Mb sitovce. Skoro bych to zkontroloval, (na switchi nebo hubu)
S pozdravem Vaclav Riha
Intranet vs. Internet - stahovani souboru - rychlo
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 7.4.2004 08:58:57
Zdravim,
moc si toho nenapsal (podstatneho).
> Nemohl byste mi nekdo poradit zpusob, jak bych docili rychlejsiho
kopirovani veklych souboru v ramci intranetu?? Jsem tak "zoufaly", ze hodlam
zjistit hranici velikosti souboru, kdy se mi uz vyplati to poslat nekam na
intrernetovou adresu a z te si to potom stahnout...
>
> Pozn.: zkopirovani 1GB trva cca 40 min na 100Mb siti.
Tohle je samozrejme mizerne, ale neni to nic neobvykleho.
Nenapsal si jak je sit velka. Jaka je jeji struktura. Jestli je to nekde
v kancliku peti sekretarek. Nebo v rozsahle siti vyrobni firmy.
Pak nemuzes cakat jasnou radu.
Pokusim se obecne:
Prenos dat mezi dvema PC se 100 Mb siti je prakticky u FTP
prenosu cca 11 Mega tj 100Mb/8 = 12 MB - cca 1 MB na protokoly.
Toho je mozne dosahnou jen na kvalitnim vedeni a sitovkach na malou
vzdalenost, propojeno jen pres switch.
Takze pokud mas v ceste HUB tak pocitej pokles cca 30 az 60 %.
Pokud mas na ten HUB pripojeno cca 20 klientu a ti pouzivaji nejake
DB nabo na prpustnost site narocne aplikace, klesnes na prumerny
prenos cca. 3 az 6 MB.
Pak staci nejaky zavirovany pocitac co posila bezduvodne pakety
a mas sit vytizenou na plno. Casto staci treba vadna jedna sitovka.
Takze skusit prenos v jine casti site, proverit sit, proklepnou sit
nejakym analyzatorem provozu site a zjistit take neco o strukture site.
S pozdravem Vaclav Halik
Aplikace bez ikony na liste
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 7.4.2004 08:50:56
ShowWindow(Application.Handle, SW_HIDE);
----- Original Message -----
> hlavni okno bylo normalne videt na obrazovce, ale aby se na liste
> s bezicimi aplikacemi nezobrazovala jeji ikona.
Intranet vs. Internet - stahovani souboru - rychlo
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.4.2004 08:44:54
On Wednesday, April 07, 2004 8:24 AM [CET], js-delphi(zv)quick(tec)cz
<js-delphi(zv)quick(tec)cz> wrote:
> Ahoj panove.
> Nevim jak moc je tento dotaz OT, ale doufam, ze to se patri...
> Mam aplikaci, ktera je schopna stahnout z urcite adresy urcity
> soubor, ulozit ho na "lokalni pocitac" - server a podle potreby
sirit
> dal - kopirovat klasicky prostrednictvim intranetu.
> Jenomze jsem vypozoroval, ze kdyz mam dostatecne rychle spojeni na
> internet - mam vyzkouseno od linky 2Mb/s, tak stahovani velkych
> souboru (zkouseno od 100MB) je o nekolika nasobne rychlejsi nez
> kopirovani v ramci intranetu...
> Me XP - taskmanager - vytizeni site - mi hlasi vyuziti okolo 6% coz
> mi pripada divne.
>
> Nemohl byste mi nekdo poradit zpusob, jak bych docili rychlejsiho
> kopirovani veklych souboru v ramci intranetu?? Jsem tak "zoufaly",
ze
> hodlam zjistit hranici velikosti souboru, kdy se mi uz vyplati to
> poslat nekam na intrernetovou adresu a z te si to potom stahnout...
>
> Pozn.: zkopirovani 1GB trva cca 40 min na 100Mb siti.
z toho casu mi vysly 3mbps coz opravdu neni mnoho. Jaka je pricina
tezko odhadnout bez podrobne znalosti prvku v siti a kodu Tveho
programu. Podezrela mista podle mne jsou:
1) aktivni prvky v siti. Vadne sitovky, switche, routery. Porovnal
bych cestu kudy leze packet do Internetu s tou intranetovou. Prvky ,
ktere se neucastni Internetoveho prenosu ale ucastni se intranetovaho
mohou byt podezrele.
Jake pouzivate sitovky, switche? Zkontroluj, zda se na rozhranich v
ceste packetu neobjevuji chyby (jak na sitovkach tak na portech
switchu atd). Zkusil bych nasadit packet sniffery - mozna zjistis, ze
se pri prenosu (predpokladam ze jde o TCP stream) casto posilaji
nektere segmenty opakovane = jisty priznak sitovych potizi.
Je mozne, ze cast site je necim pretizena (legalni provoz, virus atd).
2) navrh kodu pro prenos dat. Musel bys udelat zasadni chybu aby se
rychlost prenosu takhle snizila (napriklad cteni ze souboru po hodne
malych blocich, takze rezie systemovych volani bude znacna ebo nejaka
nemistna manipulace s daty = prohledavani atd)). Jake je zatizeni CPU
pri prenosu na obou koncich spojeni?
3) prenos po intranetu jinym zpusobem (mezi stejnymi stanicemi) beha
normalne? (napriklad HTTP, FTP, SCP, Wwindowsi sdileni ...)
Zdravi
Dalibor Toman
oprava chybneho odradkovani
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 7.4.2004 08:20:51
> Predpoklada to ovsem, ze *kazdy* prazdny radek je spatny a tedy na vyhozeni.
To je spatny predpoklad... prazdny radek je take dulezity, kdyz je
tam kde ma byt. ;-) Napriklad ja tim nacitam e-maily, kde prazdny
radek ma velky vyznam! bez prazdneho radku to tam nejde! (prazdny
radek se pouziva jako oddelovac mezi hlavickami a telem zpravy!)
Nicmene problem uz je uspesne a jednoduse vyresen, jak jsem uz zde
psal. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Intranet vs. Internet - stahovani souboru - rychlo
[*] js-delphi(zv)quick(tec)cz - 7.4.2004 08:24:52
Ahoj panove.
Nevim jak moc je tento dotaz OT, ale doufam, ze to se patri...
Mam aplikaci, ktera je schopna stahnout z urcite adresy urcity soubor, ulozit ho na "lokalni pocitac" - server a podle potreby sirit dal - kopirovat klasicky prostrednictvim intranetu.
Jenomze jsem vypozoroval, ze kdyz mam dostatecne rychle spojeni na internet - mam vyzkouseno od linky 2Mb/s, tak stahovani velkych souboru (zkouseno od 100MB) je o nekolika nasobne rychlejsi nez kopirovani v ramci intranetu...
Me XP - taskmanager - vytizeni site - mi hlasi vyuziti okolo 6% coz mi pripada divne.
Nemohl byste mi nekdo poradit zpusob, jak bych docili rychlejsiho kopirovani veklych souboru v ramci intranetu?? Jsem tak "zoufaly", ze hodlam zjistit hranici velikosti souboru, kdy se mi uz vyplati to poslat nekam na intrernetovou adresu a z te si to potom stahnout...
Pozn.: zkopirovani 1GB trva cca 40 min na 100Mb siti.
Nevite nekdo o co jde?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Dohledani komponenty podle jmena
[*] delphak(zv)centrum(tec)cz - 7.4.2004 08:14:50
Dobry den, potreboval bych poradit, kterak dohedat komponentu podle jmena. Konkretne mi jde o to, ze mam TClientDataset, ktery ma prirazeno jmeno TDataSetProvideru (ProviderName). A ja bych potreboval najit tohoto providera.
Pokud se nachazi na konkretnim formulari, tak to neni problem - pouziji FindComponent - ale nevim, jak to jednoduse programve hledat v ramaci celeho projektu.
Dik za napad.
V.Delphi 8 - BdpDataAdapter
[*] Ing. Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 7.4.2004 08:00:48
> > prave zkousim D8. Pri pokusu nacist data z tabulky na MS SQL Serveru
pomoci
> > BdpConnection-> BdpDataAdapter mi D8 vraci chybu "Input string was not
in a
> > correct format." v pripade, ze tabulka obsahuje polozku typu Decimal
nebo
>
> Mas instalovany Update #2 ?
Ano, mam nainstalovany Update #2.
Petr Kejval
Aplikace bez ikony na liste
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 7.4.2004 07:32:46
Zdravim.
Mam nasledujici problemek. Potrebuji udelat aplikaci tak, aby
hlavni okno bylo normalne videt na obrazovce, ale aby se na liste
s bezicimi aplikacemi nezobrazovala jeji ikona. Nevite nekdo jak
na to?
--
Jakub Hrach, D6 profi, WinXP Home
oprava chybneho odradkovani
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 7.4.2004 07:08:44
> Lukas Gebauer wrote:
> > Mate nekdonapady, jak tot napravit? Ja napady mam, ale zadny z tech
> > napadu nepracuje rychle! Obcas se totiz jedna o soubory s velikosti
> > nekolik megabytu, a vse co jsem zkousel je moc pomale.
>
> Ahoj,
> co tohle:
>
> Nasypu StringList i s chybama.
> Udelam Sort.
> A vsechno co je na zacatku (pokud neudelas vlastni Sort) az k
> prvnimu dobre zahodim.
>
> Predpoklada to ovsem, ze *kazdy* prazdny radek je spatny a
> tedy na vyhozeni.
>
> No a vzhledem k tomu, ze Sort je implementovan jako
> QuickSort, je to velmi rychle (log slozitost pokud nejni
> pivot hned na kraji).
To asi nebude to prave. Nevim jake ma soubory Lukas, ale ja
problematicke odradkovavani resil vetsinou v textovych souborech (tim
myslim soubor ve kterem je souvisly text ne data), takze prohazeni radek
tridenim je sice zajimave, ale nema vyznam. Navic oproti projiti celeho
seznamu a vyhazeni prazdnych radek to trva mnohem dele.
Reseni vsech moznych chyb v odradkovani je opravdu treba resit dokud ma
clovek zdrojovy stream a sam si muze osetrit co udela kdyz prijde CRCRLF
a co kdyz treba LFCR a tak. Ja teda podobnou vec resil ctenim ze streamu
a rucnim krajenim (zvladam tak vyporadani se CRLF, LF, CR a jestli si
dobre pamatuji tak i LFCR), navic jsem to prohanel prevodnima funkcema
ze synapse.
A jeste jednou zkusim osvetu - pri trideni textu QSort neni n.log(n)
instrukci, protoze nevim o procesoru, ktery by dva retezce porovnal v
konstantnim case. Jak asymptoticky tak i realne je rychlejsi trideni
pomoci BucketSort, ktery jsem tu kdysi popsal, kdyz se resilo trideni
ceskych textu.
Honza +
Prevod DXF
[*] Miroslav Novosad <mnprokonf(zv)quick(tec)cz> - 7.4.2004 00:22:08
From: "Martin Pisarik" <martin.pisarik(zv)seznam(tec)cz>
> a nebo nejakou utilitku, ktera mi to
> (nekolik set souboru) prevede do nejakeho obrazkoveho formatu, treba
bmp,
> gif, jpg, ci cokoliv.
Utilitku? Pokud tomu spravne rozumim a chces jednorazove neco prehrkat
pro dalsi pouziti, tak bych to resil asi scriptem v AutoCADu. Definujes
si tiskarnu pro tisk "do bimapy" a vygenerujes scriptik
_open file001.dxf
_zoom _e
_plot
...parametry...
_close
_open file002.dxf
...
Miroslav Novosad
mnprokonf(zv)guick(tec)cz
oprava chybneho odradkovani
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 6.4.2004 23:07:52
Lukas Gebauer wrote:
> Mate nekdonapady, jak tot napravit? Ja napady mam, ale zadny z tech
> napadu nepracuje rychle! Obcas se totiz jedna o soubory s velikosti
> nekolik megabytu, a vse co jsem zkousel je moc pomale.
Ahoj,
co tohle:
Nasypu StringList i s chybama.
Udelam Sort.
A vsechno co je na zacatku (pokud neudelas vlastni Sort) az k prvnimu dobre
zahodim.
Predpoklada to ovsem, ze *kazdy* prazdny radek je spatny a tedy na vyhozeni.
No a vzhledem k tomu, ze Sort je implementovan jako QuickSort, je to velmi
rychle (log slozitost pokud nejni pivot hned na kraji).
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
tisk RichEditu
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 6.4.2004 21:41:45
----- Original Message -----
. Kdyz udelam RichEdit.Print, tak mi to vytiskne uplne doleva do rohu, bez
okraju.
Zkus si pohrat s :
Richedit1.Paragraph.FirstIndent
LeftIndent
RightIndent
valik
mail s vice radky v tele
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 6.4.2004 20:08:46
No je to klasicke URL, cili se musi URL enkodovat. Konkretne CRLF se
enkoduje jako %0D%0A.
Napr.
mailto:dusek(zv)corexpert.com?subject=Objednavka&body=Line+1%0D%0ALine+2
Funkce na URL enkodovani je treba u Indy nebo Synapse.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Tuesday, April 6, 2004, 5:12:32 PM, you wrote:
MP> Zdar *,
MP> posilam z aplikace mail pres Outlook (shellExecute), ale nedari se mi dostat
MP> do tela vice radku radku.
MP> int Launch(AnsiString url)
MP> {
MP> char zFileName[79], zParams[79], zDir[79];
MP> return (int) ShellExecute(NULL,
MP> "open",
MP> strcpy(zFileName,
MP> url.c_str()),
MP> NULL,
MP> NULL,
MP> SW_SHOWNORMAL);
MP> }
MP> void __fastcall TForm1::Button4Click(TObject *Sender)
MP> {
MP> AnsiString objednavka;
MP> objednavka="1. radek\n2.radek\n3. radek"; //!!!!!!!!!!!!!!!!!!!!!!!!!!
MP>
MP> Launch("mailto:"+DEmailEd->Text+"?subject=Objednavka&body="+objednavka);
MP> }
MP> Takze \n nefunguje a kdyz jsem tam narval (#13#10) tak to taky nejde. Nevite
MP> nekdo co s tim?
MP> Mozna bych to rad poslal ne jako telo mailu ale spis jako prilohu, jenze
MP> vsechno co jsem o tom nasel mi pripadlo hodne zavisle na mailovem klientovi
MP> a ja potrebuju aby mi to chodilo na vsech mailovych klientech.
MP> Dik za rady...
OnAfterInstall pri instalaci sluzby
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 6.4.2004 17:14:33
Ahoj, ve sve sluzbe zachytavam OnAfterInstall (a OnBeforeUninstall). Pokud sluzbu instaluji z prikazove radky SLUZBA /INSTALL vse funguje OK, pokud ale pouziji programovou instalaci pomoci CREATESERVIS() OnAfterInstall nenastane. Jak lze zachytit moment instalace (a odinstalace) sluzby i pri programove instalaci?
Dik. Jara
mail s vice radky v tele
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 6.4.2004 17:12:32
Zdar *,
posilam z aplikace mail pres Outlook (shellExecute), ale nedari se mi dostat
do tela vice radku radku.
int Launch(AnsiString url)
{
char zFileName[79], zParams[79], zDir[79];
return (int) ShellExecute(NULL,
"open",
strcpy(zFileName,
url.c_str()),
NULL,
NULL,
SW_SHOWNORMAL);
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
AnsiString objednavka;
objednavka="1. radek\n2.radek\n3. radek"; //!!!!!!!!!!!!!!!!!!!!!!!!!!
Launch("mailto:"+DEmailEd->Text+"?subject=Objednavka&body="+objednavka);
}
Takze \n nefunguje a kdyz jsem tam narval (#13#10) tak to taky nejde. Nevite
nekdo co s tim?
Mozna bych to rad poslal ne jako telo mailu ale spis jako prilohu, jenze
vsechno co jsem o tom nasel mi pripadlo hodne zavisle na mailovem klientovi
a ja potrebuju aby mi to chodilo na vsech mailovych klientech.
Dik za rady...
Delphi 8 - BdpDataAdapter
[*] Petr Vones <pvones(zv)vol(tec)cz> - 6.4.2004 15:34:23
From: "Ing. Petr Kejval" <petr.kejval(zv)worldonline(tec)cz>
> prave zkousim D8. Pri pokusu nacist data z tabulky na MS SQL Serveru pomoci
> BdpConnection-> BdpDataAdapter mi D8 vraci chybu "Input string was not in a
> correct format." v pripade, ze tabulka obsahuje polozku typu Decimal nebo
Mas instalovany Update #2 ?
Petr Vones
oprava chybneho odradkovani
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.4.2004 15:04:20
> > Ono totiz kdyz vymazes ten jeden znak uvnitr stingu, tak to si vyzada
> > posununuti zbytku stringu v pameti o jeden byte vpred. A presouvas
> > pomerne hodne dat, a to delas tolikrat, kolik mas radek. To je zatim
> > nejpomalejsi reseni, na ktere jsem narazil. ;-(
>
> Samozrejme, musis zdrojovy stream / filemapping nacitat znak po znaku a cilovy
> vytvaret. Ne presouvat data v jiz hotovem stringu.
No jasne.. takze to nactu do pameti jednou, pak to peclive prolezu a
presypu na jine misto v pameti, abych vysledek opet prolezl a nasypal
na treti misto v pameti v ramci stringlistu? To upravdu neni nejlepsi
reseni. jak ohledne rychlosti, tak ohledne pametovych naroku. Kdyz uz
to jednou prolejzam, tak je lepsi to rovnou krmit do toho
stringlistu, ne?
Meztim jsem zkusil overridnout tu metodu Settextstr, coz je skutecne
nejlepsi a nejjednodusi reseni, funguje to proste stejne rychle jako
obycejne loadfromfile, coz mne uspokojilo. Neni nad to jit rovnou ke
zdroji, a opravit to v tom miste, kde se prichozi data rozsekavaj na
jednotlive radky. Dik za nakopnuti.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.oprava chybneho odradkovani
[*] Petr Vones <pvones(zv)vol(tec)cz> - 6.4.2004 14:52:18
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Ono totiz kdyz vymazes ten jeden znak uvnitr stingu, tak to si vyzada
> posununuti zbytku stringu v pameti o jeden byte vpred. A presouvas
> pomerne hodne dat, a to delas tolikrat, kolik mas radek. To je zatim
> nejpomalejsi reseni, na ktere jsem narazil. ;-(
Samozrejme, musis zdrojovy stream / filemapping nacitat znak po znaku a cilovy
vytvaret. Ne presouvat data v jiz hotovem stringu.
Petr Vones
oprava chybneho odradkovani
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.4.2004 14:34:16
> Nejeffeltivnejsi reseni musi byt z principu vlastni potomek TStringList,
> ktery bude mit overridnutou metodu SetTextStr(),
> ktera tam ty nadbytecne radky vubec vkladat nebude.
Tohle vypada jako nadejna cesta, ktera mne upravdu nenapadla.
Prepsani teto metody bude asi nejlepsi reseni.
Resektive vylepseni teto metody tak, aby to divne odradkovani bralo
jako normalni odradkovani. ;-) Dik.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.oprava chybneho odradkovani
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.4.2004 14:22:14
> A co natahnout soubor do stringu, a necim takovym to vycistit:
>
> while (Pos(#13#13, mystr)<>0) do Delete(mystr,Pos(#13#13, mystr),1);
To je prave strasne pomale, protoze to si pri pocturadku nekolik
desitek ticsic vyzaduje opravdu mnoho relokaci strigu v pameti.
Ono totiz kdyz vymazes ten jeden znak uvnitr stingu, tak to si vyzada
posununuti zbytku stringu v pameti o jeden byte vpred. A presouvas
pomerne hodne dat, a to delas tolikrat, kolik mas radek. To je zatim
nejpomalejsi reseni, na ktere jsem narazil. ;-(
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Spusteni dotazu IBX
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 6.4.2004 14:32:15
On 6 Apr 2004 at 11:55, Pavel Karban wrote:
> Dotazy poustim postupne, v tom problem neni. TIBScript nikde nevidim,
> ani v helpu na nej neni odkaz.
nepises jake mas Delphi.
U D5 a D6 potrebujes INTERBASE EXPRESS Xtras kit
potom nepotrebujes zadne parsovani a staci pouze:
IBScript1.Script := SynEdit.Lines;
Screen.Cursor := crHourGlass;
try
IBScript1.ExecuteScript;
finally
Screen.Cursor := crDefault;
end;
Jarek Uher
oprava chybneho odradkovani
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 6.4.2004 13:34:07
6.4.2004 Lukas Gebauer:
> Zapasim s drobnym problemem...
> Potrebuji stringlist nakrmit radky ze souboru. To je vcelku
> jednoducha vec, jenze ja mam k dispozici soubory se spatnym
> odradkovavanim, tedy misto CRLF obsahuji sekvence CRCRLF.
> To kdyz nasypu pomoci loadfromfile, tak je to rychle, ale kazde CR
> navic vyrobi navic cely prazdny radek.
Vlastni nacitani do TStringList.Zdroj mas primo v Delphi u
TStringList.LoadFromFile - Copy / Paste + drobna uprava
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
oprava chybneho odradkovani
[*] BS Info <info(zv)borkovec(tec)com> - 6.4.2004 14:08:12
A co natahnout soubor do stringu, a necim takovym to vycistit:
while (Pos(#13#13, mystr)<>0) do Delete(mystr,Pos(#13#13, mystr),1);
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 06, 2004 1:34 PM
Subject: Re: oprava chybneho odradkovani
> Lukas Gebauer dne 6 Apr 2004 v 12:40:
>
> > Zapasim s drobnym problemem...
> >
> > Potrebuji stringlist nakrmit radky ze souboru. To je vcelku
> > jednoducha vec, jenze ja mam k dispozici soubory se spatnym
> > odradkovavanim, tedy misto CRLF obsahuji sekvence CRCRLF.
> >
> > To kdyz nasypu pomoci loadfromfile, tak je to rychle, ale kazde CR
> > navic vyrobi navic cely prazdny radek.
>
> Ahoj,
>
> mozna soubor namapovat do pameti, pak ho prochazet znak po znaku, sam si z
toho vykousat ty
> retezce a pridavat je do stringlistu po jednom?
>
> Karel Rys
>
>
>Pristupova prava a TMenu
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 6.4.2004 13:40:09
Ahoj,
chci do sve aplikace dodelat proceduru pro pristup k jednotlivym polozkam
MainMenu na zaklade pristupovych prav uzivatele. Momentalne to mam vyreseno
pomoci TAGu. Projedu vsechny componenty typu TMenuItem a pokud vlastnost TAG
odpovida definici pristupoveho prava, nastavim property ENABLED := TRUE.
Tak, ale tento postup vyzaduje, abych mel vyjmenovana prava i tech polozek,
ktere jsou vlastniky cilove polozky. To ja ale nechci. Chci zadat pouze
pravo k vnorene polezce a procedura mi automaticky povoli i jeji predky. Asi
na to bude potreba pouzit rekurzivni hledani, ale vubec nevim jak.
Poradite?
Zde je kousek kodu:
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TMenuItem then
begin
if tag.Find(IntToStr(Components[i].Tag), Index) then
begin
TMenuItem(Components[i]).Enabled := true;
if TMenuItem(Components[i]).HasParent do
begin
... tady by mela byt ta rekurze ...
end;
end;
end;
end;
Diky a s pozdravem
Pavel Hauptman.
Spusteni dotazu IBX
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 6.4.2004 13:38:08
Jmeno tabulky nebo sloupce nemuze byt parametrem dotazu.
Pavel
> From: Karel Rys [mailto:delphi(zv)zas-me(tec)cz]
> Pavel Karban dne 6 Apr 2004 v 11:07:
>
> > into
> > :ID
> > do
> > suspend;
> > end^
> > --- padne na radku zacinajici :ID, chyba neznamy token
>
> u te IbQuery nebo cim to spoustis se bude muset nastavit
> ParamCheck:=false;
>
> Snad je to tim.
oprava chybneho odradkovani
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.4.2004 13:34:06
Lukas Gebauer dne 6 Apr 2004 v 12:40:
> Zapasim s drobnym problemem...
>
> Potrebuji stringlist nakrmit radky ze souboru. To je vcelku
> jednoducha vec, jenze ja mam k dispozici soubory se spatnym
> odradkovavanim, tedy misto CRLF obsahuji sekvence CRCRLF.
>
> To kdyz nasypu pomoci loadfromfile, tak je to rychle, ale kazde CR
> navic vyrobi navic cely prazdny radek.
Ahoj,
mozna soubor namapovat do pameti, pak ho prochazet znak po znaku, sam si z toho vykousat ty
retezce a pridavat je do stringlistu po jednom?
Karel Rys
Spusteni dotazu IBX
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 6.4.2004 13:30:06
Pavel Karban dne 6 Apr 2004 v 11:07:
> into
> :ID
> do
> suspend;
> end^
> --- padne na radku zacinajici :ID, chyba neznamy token
Ahoj,
u te IbQuery nebo cim to spoustis se bude muset nastavit ParamCheck:=false;
Snad je to tim.
Karel Rys
oprava chybneho odradkovani
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 6.4.2004 12:58:03
Lukas Gebauer wrote:
> Mate nekdonapady, jak tot napravit? Ja napady mam, ale zadny z tech
> napadu nepracuje rychle!
Nejeffeltivnejsi reseni musi byt z principu vlastni potomek TStringList,
ktery bude mit overridnutou metodu SetTextStr(),
ktera tam ty nadbytecne radky vubec vkladat nebude.
HTH, pf
oprava chybneho odradkovani
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.4.2004 12:40:00
Zapasim s drobnym problemem...
Potrebuji stringlist nakrmit radky ze souboru. To je vcelku
jednoducha vec, jenze ja mam k dispozici soubory se spatnym
odradkovavanim, tedy misto CRLF obsahuji sekvence CRCRLF.
To kdyz nasypu pomoci loadfromfile, tak je to rychle, ale kazde CR
navic vyrobi navic cely prazdny radek.
Mate nekdonapady, jak tot napravit? Ja napady mam, ale zadny z tech
napadu nepracuje rychle! Obcas se totiz jedna o soubory s velikosti
nekolik megabytu, a vse co jsem zkousel je moc pomale.
tedy nahrazvani sekvence znaku, nebo mazani prazdnych radek jsou
cesty prilis pomale. Mate nekdo nejaky napad, co by mohlo byt
nejrychlejsi?
P.S. napady na donuceni nekomunikativniho autora chybneho programu,
aby svoji chybu opravil, jsou take vitany. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Spusteni dotazu IBX
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 6.4.2004 12:48:01
> Zajimalo by me, jestli to muze byt zpusobeno nekompatibilitou IBX vuci
> FireBird 1.5. Nebo kde by mohla byt chyba.
Musis vypnout u IBQuery CheckParams, nebo tak nejak se to jmenuje,
pokud je to true, tak se snazi slova v SQL zacinajici dvojteckou nahradit
z kolekce Params.
Pavel Poles
tisk RichEditu
[*] Jan Harman <jharman(zv)volny(tec)cz> - 6.4.2004 12:29:59
Zdravim,
mam takovy problem. Potrebuji vytisknout obsah RichEditu. Kdyz udelam
RichEdit.Print, tak mi to vytiskne uplne doleva do rohu, bez okraju.
Potreboval bych to umistit trosku inteligentne a navic pridat i nejake
zahlavi stranky. Zkousel jsem to pres QReport, ale QRRichText se zase
neprispusobuje dle obashu ParentRichEditu (neroztahuje se automaticky).
Jak z toho ven?
Diky za napady.
Honza
Spusteni dotazu IBX
[*] Pavel Karban <delphi-konf(zv)seznam(tec)cz> - 6.4.2004 11:55:55
Dotazy poustim postupne, v tom problem neni. TIBScript nikde nevidim,
ani v helpu na nej neni odkaz.
Mam vlastni parsovani (inspirovano ze zdrojaku GMarathonu), podle
oddelovacu, funguje dobre.
Neprojde akorat ten posledni dotaz (alter procedure).
P. Karban
petr palicka wrote:
>Ahoj,
>
> musis poustet postupne jeden dotaz za druhym.
>samotna TIBSQL (TIBQUERY) neumi skript rozparsovat
>na jednotlive prikazy. Nebo mrkni na TIBSCRIPT.
>Ta by to mela umet.
>
>Peca
>
>
>
>
>Breakpoint - zaklady
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 6.4.2004 11:23:49
Aha, tak uz to mam. Pokud se promenna nepouzije dale v programu, kompilator ji ignoruje :-)
>
> Dobry den,
> asi mi nejak chybi zaklady, a mam nasledujici prihodu.
> Debuguji nasledujici radky a nechapu proc se vzdycky preskoci
> druhy radek? Nelze na nem nastavit breakpoint, proste nic,
> jako kdyby neexistoval... Je to normalni?
>
> var PrumDelka, PrumSirka: double;
> SumaDelka,SumaSirka: double;
> KontrolaPalety: boolean;
> begin
> KontrolaPalety := False; //defaultni nastaveni
> PrumDelka := 0; PrumSirka := 0;
> SumaDelka := 0; SumaSirka := 0;
>
>
>
> Diky za nakopnuti a pouceni
>
> Jirka
> Breakpoint - zaklady
[*] mstevlik(zv)gamo.sk - 6.4.2004 11:23:49
> Dobry den,
> asi mi nejak chybi zaklady, a mam nasledujici prihodu.
> Debuguji nasledujici radky a nechapu proc se vzdycky preskoci druhy
radek?
> Nelze na nem nastavit breakpoint, proste nic, jako kdyby neexistoval...
> Je to normalni?
>
> var PrumDelka, PrumSirka: double;
> SumaDelka,SumaSirka: double;
> KontrolaPalety: boolean;
> begin
> KontrolaPalety := False; //defaultni nastaveni
> PrumDelka := 0; PrumSirka := 0;
> SumaDelka := 0; SumaSirka := 0;
>
>
>
> Diky za nakopnuti a pouceni
>
> Jirka
Nevypisuje ti compilator, ze premenne PrumDelka a PrumSirka sa
nepouzivaju, takze ich optimalizacia vylucila?
"[Hint] Value assigned 'blablabla' never used"
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
Breakpoint - zaklady
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 6.4.2004 11:37:52
> Debuguji nasledujici radky a nechapu proc se vzdycky preskoci druhy radek?
Ahoj,
nejspise to bude tim, ze kod ktery ti to preskakuje nema zadny efekt.
Pr.:
Procedure Neco
var i:Integer;
Begin
i:=5;
End;
I se dal nikde nepouziva a poskonceni procedury zanika, tudiz kod nema zadny smysl a nepreklada se.
Petr
Breakpoint - zaklady
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 6.4.2004 11:29:51
vypni si optimalizaciu, tieto premenne asi nikde dalej nepouzijes takze
compiler ich nepreklada, takze negeneruje kod pre ne ...
> Debuguji nasledujici radky a nechapu proc se vzdycky preskoci druhy radek?
> Nelze na nem nastavit breakpoint, proste nic, jako kdyby neexistoval...
> Je to normalni?
>
> KontrolaPalety := False; //defaultni nastaveni
> PrumDelka := 0; PrumSirka := 0;
> SumaDelka := 0; SumaSirka := 0;Spusteni dotazu IBX
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 6.4.2004 11:27:50
Ahoj,
musis poustet postupne jeden dotaz za druhym.
samotna TIBSQL (TIBQUERY) neumi skript rozparsovat
na jednotlive prikazy. Nebo mrkni na TIBSCRIPT.
Ta by to mela umet.
Peca
Spusteni dotazu IBX
[*] Pavel Karban <delphi-konf(zv)seznam(tec)cz> - 6.4.2004 11:07:46
Zdravim,
mam dotaz ohledne vytvoreni procedury na FireBirdu 1.5. Potrebuji
nahradit proceduru pri upgradu, mam upgradovaci skript, ve kterem
postupne dropnu stavajici proceduru, vytvorim prazdnou a nakonec ji
alternu. Kdyz pustim tento sled pres IBExpert, neni zadny problem. Ten
nestava pri spustneni pres IBX. Dotaz spoustim pres TIBQuery.
dropnuti procedury:
drop procedure nazev
--- probehne v poradku
vytvoreni prazdne procedury (kvuli zavislostem):
SET TERM ^ ;
CREATE PROCEDURE nazev (
IN_TEXT VARCHAR(50))
RETURNS (
ID INTEGER)
AS
BEGIN
EXIT;
END^
--- probehne v poradku
zmena tela procedury:
SET TERM ^ ;
ALTER PROCEDURE nazev (
IN_TEXT VARCHAR(50))
RETURNS (
ID INTEGER)
AS
begin
for select
ID
from tabulka
order by ID
into
:ID
do
suspend;
end^
--- padne na radku zacinajici :ID, chyba neznamy token
Zajimalo by me, jestli to muze byt zpusobeno nekompatibilitou IBX vuci
FireBird 1.5. Nebo kde by mohla byt chyba.
Diky Pavel Karban
Blikani objektu
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 6.4.2004 10:19:41
Radek Szurman wrote:
>Ahoj, posouvam na formulari panel na dane misto a mam na nem Shape ale neprijemne to blika kdyz mam jako podklad obrazek, neda se to nejak zavest do pameti aby to vykreslovani neblikalo nebo udelat nejakou fintou ?
>
>
Ahoj,
nastav TPanel.DoubleBuffered := True;
Jirka
Breakpoint - zaklady
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 6.4.2004 10:49:44
Dobry den,
asi mi nejak chybi zaklady, a mam nasledujici prihodu.
Debuguji nasledujici radky a nechapu proc se vzdycky preskoci druhy radek?
Nelze na nem nastavit breakpoint, proste nic, jako kdyby neexistoval...
Je to normalni?
var PrumDelka, PrumSirka: double;
SumaDelka,SumaSirka: double;
KontrolaPalety: boolean;
begin
KontrolaPalety := False; //defaultni nastaveni
PrumDelka := 0; PrumSirka := 0;
SumaDelka := 0; SumaSirka := 0;
Diky za nakopnuti a pouceni
Jirka
Blikani objektu
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 6.4.2004 10:19:42
mozes skusit:
FrmMain.DoubleBuffered := True;
ak by nepomohlo tak je potrebne kreslit do nejakeho buffer objektu
(napr. TBitmap ... )
PALO
> Ahoj, posouvam na formulari panel na dane misto a mam na nem Shape ale neprijemne to blika kdyz mam jako podklad obrazek, neda se to nejak zavest do pameti aby to vykreslovani neblikalo nebo udelat nejakou fintou ?
>
Delphi 8 - BdpDataAdapter
[*] Ing. Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 6.4.2004 09:57:39
Dobry den,
prave zkousim D8. Pri pokusu nacist data z tabulky na MS SQL Serveru pomoci
BdpConnection-> BdpDataAdapter mi D8 vraci chybu "Input string was not in a
correct format." v pripade, ze tabulka obsahuje polozku typu Decimal nebo
Money a neni null. Nacteni dat z tabulky pomoci
SqlConnection->SqlDataAdapter je bez chyby. Je v BdpDataAdapteru opravdu
chyba nebo neco delam spatne? Nekde jsem cetl ze je nekompatibilita mezi
typem Decimal (presnost 38) SQL Serveru a typem Decimal (presnost 28) .NET.
Je zpusobena tato chyba tim, ze BdpDataAdapter neosetruje tuto
nekompatibilitu? Jak se da tato chyba odstranit?
Petr Kejval
Velikost zobrazeni v dpi
[*] Petr Dedecek <petrd(zv)omega-lbc(tec)cz> - 6.4.2004 09:49:38
Zdravim,
potreboval bych zjistit velikost zobrazeni v dpi ( vlastnosti plochy,
nastaveni,upresneni ), pokud si s tim nekdo pohrava, tak mi to rozhodi okna.
Dik
PetrD
petrd(zv)omega-lbc(tec)cz
pridavani komponent za behu a repaint
[*] Petr Brada, uniCODE systems <brada(zv)unicodesys(tec)cz> - 6.4.2004 09:43:37
> Opet zdravim!
> Za behu vytvarim komponenty ve scrollboxu - vse se dari az na to, ze v
miste
> scrollboxu zustane po zavreni formu nekolik neprekreslenych mist - a ty
> nezmizi ani po volani form.update pripadne scrollbox.repaint. Zajimave, ze
> to dela v XP, ve Win98 zda se ze ne...
Mne se na formular s takovymito neprekreslenymi misty osvedcilo pouziti API
funkce
RedrawWindow(WinControl.Handle,nil,0,RDW_ERASE or RDW_FRAME or
RDW_INVALIDATE or RDW_ALLCHILDREN);
Petr
Delphi a eventlogy
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 6.4.2004 09:29:35
> Zdravim
>
> nemate nekdo reseni jak zapisovat do event logu v Delphi ?
>
> --
> S pozdravem,
> david
> david.kopecek(zv)hacktrack.com
>
>
>
>
Dobry den
Jedno mozne reseni posilam v priloze.
Petr Koukal
Blikani objektu
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 6.4.2004 09:27:34
Ahoj, posouvam na formulari panel na dane misto a mam na nem Shape ale neprijemne to blika kdyz mam jako podklad obrazek, neda se to nejak zavest do pameti aby to vykreslovani neblikalo nebo udelat nejakou fintou ?
dik Radek
viz source:
procedure TFrmMain.OznacObjekt(Left1, Top1, Width1, Height1 :Integer);
// PL-Panel, PLS-Shape na panelu
PLS.Align := alClient;
PLS.Shape:=stCircle;
PL.Width := 5;
PL.Height := 5;
PRS.Align := alClient;
PRS.Shape:=stCircle;
PR.Width := 5;
PR.Height := 5;
PL.Left := Left1-2;
PL.Top := Top1-2;
PR.Left := Left1-2+Width1;
PR.Top := Top1-2;
OLE Word - co jeste v konferenci neni
[*] Lukas Barton <delphikonf(zv)cross(tec)cz> - 6.4.2004 09:17:32
Prijemny den
Uz jsem se na toto ptal nekolikrat a tak to ykousim opravdu jiz naposledy...
Mam dve metody pripojeni k app Word:
1) pres TOLEContainer
TOLEContainer.CreateObject('Word.Document', false);
2) Vytvorenim vlastni instance wordu pres Variant
W : Variant; W := CreateOleObject('Word.Application');
-------
Ad 1] zde nacitam objekt Document z kolekce {Word.}Application.Documents, mam k dispozici vlastni menu soubor, mam nadefinovane fce pro ukladani do databaze, tisk (dari se mi pristoupit k objektu - TOLEContainer.OleObject.Application a proto mohu vyuzit tiskoveho rozhrani wordu).
To co k dispozici nemam je fce Nahled dokumentu. Soubor ukladam pres stream rovnou do db a nejsou s tim (jiz) zadne problemy (pokud by nekdo chtel poradit s ukladanim do db pres stream, uz to mam zvladnute :) )
Ad 2] do variantu nacitam objekt application - tzn. ze mohu ovladat aplikaci word jak se mi zlibi. Ukladani a nacitani z db je komplikovanejsi, protoze ho nejdriv musim ulozit na disk abych mohl volat fci wordu W.Documents.Open(...params...).
Dokazu si pridat do wordu vlastni menu, docasne disablovat stavajici (napriklad zakazat ukladani na disk a pridat vlastni menu pro ukladani do db), ale !!!!!! jak mam zachytit v delphi ze uzivatel klepnul na mnou vytvorene menu z wordu; jak zjistim ze uzivatel ukoncil word abych mohl v aplikaci pokracovat (ulozeni do db, zpracovani....) !!!!!!!!!!
A TED TEN NEJDULEZITEJSI PROBLEM!
Rikal jsem si ze kdyz chci nahled, zobrazim dokument primo ve wordu pres variant s atributem jen pro cteni a na druhou stranu upravy a tisky a ukladanim do db si poresim v dokumentu otviranem pres TOLEContainer. Ale ejhle! Soubor vytvoreny v TOLEContaineru, kdyz jej ulozim na disk nelze otevrit ve wordu a naopak soubor vytvoreny ve wordu nenactu do TOLEContaineru.
-------
Pokud vite jak otevrit dokument wordu v TOLEContaineru poradte mi, nebo pokud vas napadne lepsi napad jak toto resit poradte mi prosim taky, uz nad tim badam 14 dni... Myslim ze praci s Word, Excel pres OLE mam zvladlou vyborne ale tohle me nici :((((
Poznamka:
TOLEContainer lze otevirat pouze jako word.document (.documents nebo ..application je naprosto neprispuste) naopak
CreateOleObject lze volat pouze s word.application.
Predem moc dekuji.
Hezky den
------- Lukas Barton --------
email: barton(zv)labsys(tec)cz
ICQ#: 116-948-331
url: www.labsys(tec)cz
: Delphi 4 c/s
: oracle 9.2.0.1
: w2k sp2
-----------------------------
Delphi a eventlogy
[*] david.kopecek(zv)hacktrack(tec)com - 6.4.2004 08:55:30
Dobry den,
Monday, April 05, 2004, 6:08:16 PM, napsal jste:
PV> From: <david.kopecek(zv)hacktrack.com>
>> nemate nekdo reseni jak zapisovat do event logu v Delphi ?
PV> Predpokladam ze jde o Delphi Win32. Podivej se na tridu TEventLogger v unitu
PV> SvcMgr.
vykoumal jsem tohle
with
TEventLogger.Create('TRA') do
try
LogMessage('Test',4,0);
finally
Free;
end;
ale hodi mi to chybu do event logu
The description for Event ID ( 0 ) in Source ( TRA ) cannot be found. The local computer may not have the necessary registry information or message DLL files to display messages from a remote computer. The following information is part of the event: Test.
koukal jsem se pres google a tam furt neco rikaj o nejakem res ktery
bude skompilovany do DLL a ten bude obsahovat ty error hlasky. neda se
to udelat jinak ?
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Sprava verzi (CVS a jine)
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 6.4.2004 07:21:24
Ahoj,
dotaz je moc obecny. Krom CVS existuji i jine SW
na stejne/podobne ucely. Me se *konecne* podarilo
prosadit nasazeni CVS ve firme a ted si to nemuzem
vynachvalit. Ovsem, protoze neznam nic jineho, tak
sice CVSko doporucuji, ale nemam zadne argumenty
proti pouziti neceho jinyho.
Rozjeti ani moc nebolelo. Sice jeste urcite nezname
vsechny moznosti, ale zaklad jsme si zkusili za jedno
odpoledne + ja to den predtim natahal, nainstaloval,
rozchodil a hlavne si procetl (pomalu prolistoval :o)
dokumentaci.
Peca aka Petr Palicka
predavani parametru mezi aplikacemi
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 6.4.2004 07:05:21
5.4.2004 Jan Harman:
> potreboval bych prosim vyresit predavani vice parametru mezi aplikacemi. Do
> SendMessage muzu vlozit jen dva Integery coz je malo. Nejlepsi by bylo kdyby
> si aplikace mohli predavat stringy. Je takova moznost prosim?
> Dekuji Honza.
Zprava WM_COPYDATA
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prednastaveni OpenDialogu ve Wordu
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 5.4.2004 21:40:36
Sema si to nakonec vyresil sam, ale kdyby to nekoho zajimalo:
procedure TActionForm.BExcelClick(Sender: TObject);
var ExcelApp:Variant;
begin
ExcelApp:=CreateOLEObject('Excel.Application');
try
ExcelApp.WorkBooks.Add[xlWorksheet];
//Application.Dialogs(xlDialogOpen).Show("c:\")
ExcelApp.DefaultFilePath := 'c:\install\';
ExcelApp.Visible:=true;
except
ExcelApp.Quit;
end;
end;
je to sice Excel, ale to je jedno:)> Zdar, potreboval bych z aplikace otevrit Word s prazdnym dokumentem (to je
> trivka), ale potreboval bych, aby kdyz uzivatel klikne na "Otevrit" (ve
> wordu), aby se mu OpenDialog prednastavil na urcitou cestu (byl
> prednastaven na urcitiou cestu).
>
> Brona
>
>
>ADMIN: Sinea 2004
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.4.2004 21:16:34
Puvodni zprava ze dne 5.4.2004:
> Proc by to tu nemelo co delat?
To bys rozhodne mel vedet sam. Precti si pravidla a prestan je
porusovat.
> Generator Sinea pouzivam docela dlouho a popis novych funkci je
> treba pro me dost prinosna informace.
Ano, to ti verim. A zaroven nevidim sebemensi duvod, proc bych tuto
KOMERCNI a pro tebe tak zajimavou informaci mel zrovna ja financovat
ze sve kapsy.
Kdyz si prohlednu tvou e-mail adresu konference(zv)thsoft(tec)cz, tak vidim,
ze provozujes domenu sinea(tec)cz, a tedy jiste vyse uvedeny prispevek
nebude nezaujaty.
Mimochodem, kdyz tento produkt pouzivas, tak jsi jiste tu informaci
dostal uz od Jardy Skerika o den drive. Stejne jako ja. Dokonce
dvakrat mi od nich vcera prisel stejny mail s novinkami... a take s
informaci, ze internetem bloudi viry...
Mozna ma nekdo jiny nazor a mozna si misto technicke komunikace o
programovani chce radeji vymenovat komercni zpravy a propagacni zpravy
komercnich firem. Tak to se prihlasil do spatne konference.
Jiste, ze je mnohem jednodussi zneuzit k rozesilani nevyzadane posty
technicke zarizeni nekoho jineho a zaroven zneuzit duveru komunity
prihlasene do urcite konference. Me se to nelibi, ja tohle platit
odmitam. Jestli chce kdokoliv spamovat (a to je uplne jedno, ze lide
kolem Sinea jsou moji pratele - snad jeste, doufam), tak necht si
treba nekde stahne archiv konference a vydlabe si z nej e-mail adresy,
da si s tim tu praci, vycisti si to od spatnych a neexistujicich
adres, a pak at si to rozesila za sve penize a ze svych postovnich
serveru treba do aleluja.
PS: Na zpravy administratora se neodpovida do konference. Jestli ma
kdokoliv nejake pripominky, tak je velmi rad ocekavam na sve e-mail
adrese. A jestli mi chce nekdo s konferenci pomahat, tak taky tam.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Logovani chyb
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 5.4.2004 20:40:30
4.4.2004 Jan Rizek:
>> Uz to tu bylo mockrat -- knihovna JCL obsahuje nastroje pro vysledovani
>> call stacku po vyvolani vyjimky:
>> http://sourceforge.net/projects/jcl/
>> Vrele doporucuji.
>>
> Dekuju za tip. Nenapsal by jste mi nejaky jednoduchy priklad? Trochu plavu v
> napovede k JCL.
Spustit prilozeny .BAT soubor, ktery nainstaluje do repository
Exception dialog. Ten staci pridat do programu.
Pokud je zadouci ukladat log na disk, nastavi se TAG toho formulare na
1
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
NT autentifikace pro IIS a synapse
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 5.4.2004 20:02:26
> -----Original Message-----
> Zkus dat to jmeno a heslo do URL. (neco jako
> 'http://jmeno:heslo(zv)www.tvuj.server(tec)cz/domukent')
To nefunguje a ani bych zadne jmeno zadavat nechtel.
> Pokud to nepomuze (cehoz se bojim), pak je mozne, ze tvuj server
> vyzaduje NTLM autorizaci, coz v soucasne dobe Synapse jeste neumi.
> (ale je to hodne vysoko na seznamu veci, ktere budou pridany)
No uprimne receno nevim zda je to NTLM (to pouziva myslim ISA server od
M$) tady to je windows autentifikace v ramci domeny active directory.
Nevite nekdo o nejake jine unite ci komponente , ktera by to zvladla ?
Ludek
Ladeni in-process COM komponenty
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 5.4.2004 19:08:22
Zdravim vsechny,
mam dotaz ohledne ladeni in-process COM komponenty.Docetl jsem se,ze postup
je stejny jako u DLL knihovny (coz mi pripada i logicke, kdyz je to vlastne
DLL). Nastavil jsem tedy debug info a Host Aplication podle helpu. Jenze mi
to porad nechodi. Mam projekt Activex DLL, kde je vlozeny Automation
objekt.Pokud oznacim breakpoint u nejake metody objektu, kterou vola
aplikace klienta, tak je po spusteni breakpoint neaktivni a pri volani se na
nem program nezastavi. Kdyz spustim projekt DLLka, tak se mi korektne spusti
i projekt klienta - hosta. Uz nevim co poradne nastavit, abych se priznal
jsem zacatecnik a nerad bych si rozhodil nevedomky Delphi. Mohl by mi nekdo
z vas prosim poradit nebo aspon nekam odkazat (krome do haje).Budu moc
vdecny za kazdou radu, nedokazu si predstavit psani komponenty bez moznosti
ladeni.
Diky moc
Krakora Martin, Win XP SP1 a Delphi 7 Enterprise
Delphi a eventlogy
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.4.2004 18:08:16
From: <david.kopecek(zv)hacktrack.com>
> nemate nekdo reseni jak zapisovat do event logu v Delphi ?
Predpokladam ze jde o Delphi Win32. Podivej se na tridu TEventLogger v unitu
SvcMgr.
Petr Vones
Sprava verzi (CVS a jine)
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.4.2004 18:08:15
From: "Jan Rizek" <abxsw(zv)centrum(tec)cz>
> Zajimalo by mne, co pouzivate na spravu verzi. Existuje neco jineho nez CVS?
Napriklad http://www.freevcs.de/
Petr Vones
Sprava verzi (CVS a jine)
[*] martin.ben(zv)ge(tec)com - 5.4.2004 18:26:18
Ovsem, treba StarTeam http://www.borland.com/starteam
Martin Ben
-----Original Message-----
From: Jan Rizek [mailto:abxsw(zv)centrum(tec)cz]
Zajimalo by mne, co pouzivate na spravu verzi. Existuje neco jineho nez CVS?
Dostupnost promenych
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 5.4.2004 17:56:14
mad(zv)worldmail(tec)cz wrote:
>
> Procedure delejNeco;
> begin
> ShowMessage('Main:'+IntToStr(MainMenu1.Items.Items[3].Count));
> //!!!!! ActualToolMenu;
Count se indexuje od nuly. Cili pro posledni/pocet musi byt Count-1.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
Sprava verzi (CVS a jine)
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 5.4.2004 17:50:12
Zajimalo by mne, co pouzivate na spravu verzi. Existuje neco jineho nez CVS?
JR
pridavani komponent za behu a repaint
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 5.4.2004 17:02:09
Karolina Nemanska napsal(a):
>Opet zdravim!
>Za behu vytvarim komponenty ve scrollboxu - vse se dari az na to, ze v miste
>scrollboxu zustane po zavreni formu nekolik neprekreslenych mist - a ty
>nezmizi ani po volani form.update pripadne scrollbox.repaint. Zajimave, ze
>to dela v XP, ve Win98 zda se ze ne...
>Zdrojak vypada takhle - delam neco spatne?
>
>Karolina
>
>
Mozna to neni tim, ale majitelem komponenty by mel byt formular.
>procedure TForm1.Button2Click(Sender: TObject);
>var p:TPanel;
> l:TLabel;
> l2:Tlabel;
> b:Tbutton;
> var i,j:integer;
> s:string;
>begin
> p:=Tpanel.Create(form2.ScrollBox1);
>
>
p := TPanel.Create(form2);
nebo jeste lip
p := TPanel.Create(Self);
> p.Parent:=form2.ScrollBox1;
> p.Align:=alTop;
> p.Caption:='';
> l:=Tlabel.Create(p);
>
>
l := TLabel.Create(Self);
atd.
Radim
pridavani komponent za behu a repaint
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 5.4.2004 16:22:00
Opet zdravim!
Za behu vytvarim komponenty ve scrollboxu - vse se dari az na to, ze v miste
scrollboxu zustane po zavreni formu nekolik neprekreslenych mist - a ty
nezmizi ani po volani form.update pripadne scrollbox.repaint. Zajimave, ze
to dela v XP, ve Win98 zda se ze ne...
Zdrojak vypada takhle - delam neco spatne?
Karolina
procedure TForm1.Button2Click(Sender: TObject);
var p:TPanel;
l:TLabel;
l2:Tlabel;
b:Tbutton;
var i,j:integer;
s:string;
begin
p:=Tpanel.Create(form2.ScrollBox1);
p.Parent:=form2.ScrollBox1;
p.Align:=alTop;
p.Caption:='';
l:=Tlabel.Create(p);
l.parent:=p;
l.Top:=0;
l.left:=0;
l.caption:='pokus';
b:=tbutton.Create(p);
b.Parent:=p;
b.Caption:='x';
b.Width:=15;
b.height:=15;
b.Left:=p.Width-b.Width;
b.Top:=0;
b.Anchors:=[akRight,akTop];
b.OnClick:=Button4Click;
s:='';
for i:=0 to random(15)+10 do begin
for j:=0 to random(10)+4 do begin
s:=s+chr(random(27)+ord('a'));
end;
s:=s+' ';
end;
l2:=tlabel.create(p);
l2.OnMouseMove:=zmenbarvu;
l2.WordWrap:=true;
l2.Top:=15;
l2.AutoSize:=true;
l2.constraints.MaxWidth:=p.width;
l2.constraints.minWidth:=p.width;
l2.caption:=s;
l2.color:=$0093C9FF;
p.Height:=l2.Height+15;
end;Jak na MS SQL DTS z Delphi pres COM
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 5.4.2004 16:01:44
Hmm, takhle to nejde. Popsal jsem to trochu zjednodusene - bulk insert
pouzit nejde. To uz jsme zkouseli.
Zalesak Tomas wrote:
>
> > Potrebuju naimportovat nekolik desitek textovych souboru z importniho
> > adresare do tabulek SQL 2000. Jeden soubor (napr. Skupiny.txt) patri
> > do jedne tabulky odpovidajiciho jmena (Skupiny).
>
> BULK INSERT dbo.Skupiny FROM 'C:\IMPORT\Skupiny.txt' WITH (FIELDTERMINATOR=';')
>
> Tomas Zalesak
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Delphi a eventlogy
[*] david.kopecek(zv)hacktrack(tec)com - 5.4.2004 16:01:44
Zdravim
nemate nekdo reseni jak zapisovat do event logu v Delphi ?
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Sinea 2004
[*] Lubor Martinsky, SoftDeC <l.martinsky(zv)softdec(tec)cz> - 5.4.2004 16:26:06
Hlavni duvod je asi to, ze pan Krmela si tady dela propagaci vlastniho
komercniho produktu, nemyslis?!
----- Original Message -----
From: "Pavol Stugel, NETGraphics" <palo(zv)netgraphics.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 05, 2004 4:15 PM
Subject: Re: Sinea 2004
> Asi preto ze toto neni news confera :)
> to by si tu mal za chvilu same novinky z kazdej komponenty a nic by si
> sa nedozvedel ...
> > Proc by to tu nemelo co delat? Generator Sinea pouzivam docela dlouho a
> > popis novych funkci je treba pro me dost prinosna informace.
>
>Jak na MS SQL DTS z Delphi pres COM
[*] Sommer Pavel <psommer(zv)cpoj(tec)cz> - 5.4.2004 16:19:57
>Take by samozrejme slo vytvorit DTS balicek v editoru ale jmena souboru
a vstupniho adresare jsou promenliva a tak mi to prijde takto
efektivnejsi.
Pokud potrebujes pouze menit nazev vstupniho souboru a podobne, tak je
podle meho nazoru zbytecne ten DTS package vytvaret pokazde znova.
Nadefinuj si ho v Enterprise Manageru a podivej se na moznosti objektu
"Dynamic Properties Task". Muzes tak mit ten DTS balicek nadefinovany
tak, ze jej budes moc plne parametrizovat napr. z nejake tabulky.
PaS.
pridavani komponent za behu a repaint
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 5.4.2004 16:03:45
Opet zdravim!
Za behu vytvarim komponenty ve scrollboxu - vse se dari az na to, ze v miste
scrollboxu zustane po zavreni formu nekolik neprekreslenych mist - a ty
nezmizi ani po volani form.update pripadne scrollbox.repaint. Zajimave, ze
to dela v XP, ve Win98 zda se ze ne...
Zdrojak vypada takhle - delam neco spatne?
Karolina
procedure TForm1.Button2Click(Sender: TObject);
var p:TPanel;
l:TLabel;
l2:Tlabel;
b:Tbutton;
var i,j:integer;
s:string;
begin
p:=Tpanel.Create(form2.ScrollBox1);
p.Parent:=form2.ScrollBox1;
p.Align:=alTop;
p.Caption:='';
l:=Tlabel.Create(p);
l.parent:=p;
l.Top:=0;
l.left:=0;
l.caption:='pokus';
b:=tbutton.Create(p);
b.Parent:=p;
b.Caption:='x';
b.Width:=15;
b.height:=15;
b.Left:=p.Width-b.Width;
b.Top:=0;
b.Anchors:=[akRight,akTop];
b.OnClick:=Button4Click;
s:='';
for i:=0 to random(15)+10 do begin
for j:=0 to random(10)+4 do begin
s:=s+chr(random(27)+ord('a'));
end;
s:=s+' ';
end;
l2:=tlabel.create(p);
l2.OnMouseMove:=zmenbarvu;
l2.WordWrap:=true;
l2.Top:=15;
l2.AutoSize:=true;
l2.constraints.MaxWidth:=p.width;
l2.constraints.minWidth:=p.width;
l2.caption:=s;
l2.color:=$0093C9FF;
p.Height:=l2.Height+15;
end;
Sinea 2004
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 5.4.2004 16:15:52
Asi preto ze toto neni news confera :)
to by si tu mal za chvilu same novinky z kazdej komponenty a nic by si
sa nedozvedel ...
> Proc by to tu nemelo co delat? Generator Sinea pouzivam docela dlouho a
> popis novych funkci je treba pro me dost prinosna informace.Jak na MS SQL DTS z Delphi pres COM
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 5.4.2004 15:41:42
> Potrebuju naimportovat nekolik desitek textovych souboru z importniho
> adresare do tabulek SQL 2000. Jeden soubor (napr. Skupiny.txt) patri
> do jedne tabulky odpovidajiciho jmena (Skupiny).
BULK INSERT dbo.Skupiny FROM 'C:\IMPORT\Skupiny.txt' WITH (FIELDTERMINATOR=';')
Tomas Zalesak
Synapse-spojeni pomoci TUDPBlockSocket
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.4.2004 14:53:34
> Chtel bych se zeptat zkusenych uzivatelu Sysnapse, zda je lepsi pro
> posilani zprav pres TUDPBlockSocket pred kazdou zpravou volat
> Connect a po zprave zase CloseSocket (viz priklad), nebo je lepsi otevrit
> spojeni pri inicializaci programu a uzavrit pri zavirani programu a po
> celou dobu prace programu nechat spojeni bezet. Funguje me oboje.
Vtip je v tom, ze pri pouziti UDP protokolu zadne spojeni neexistuje!
;-) Metoda connect u TUDPblocksocket nedela zadne spojeni, jen do
internich struktur Synapse poznamena, na jakou adresu a port budou
nasledujici odesilana data posilana.
A kdyz neexistuje spojeni, neni treba spojeni ani zavirat. je mozne
vesele volat treba:
connect na jednu adresu
sendstring cehosi
connect na jinou adresu
sendstring cehosi jineho
atd.
Closesocket v pripade UDP protokolu jen zlikviduje socket, ktery se
pak pri nejblizsim dalsim pouziti opet automaticky vytvori. Oboje te
stoji nejaky ten strojovy cas!
Proto je lepsi pro optimalni vykon Closesocket nevolat. Connect muzes
volat jak je libo, kdykoliv potrebujes zmenit cilovou adresu pro UDP
packet, treba jen jednopu na zacatku programu, pokud odesilas jen na
jednu a tutez adresu.
Ale bacha na okamzik, kdy data ctes! Po precteni nejakych dat z UDP
mas cilovou adresu automaticky nastavenu na adresu odesilatele tebou
prectenych dat! Tedy kdyz prectes data a nasledne nejaka odesles,
budou ty odeslana data poslana automaticky tam, odkud UDP pozadavek
prisel. pokud chces odesilat jinam, jednoduse opet zavolej connect a
nastav si cilovou adresu jakou chces. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Zapis tisicu polozek do DB
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 5.4.2004 15:15:38
My to resime pres stored proceduru, kterou volame pro pridani kazdeho
radku. Jako pamametry predavame hodnoty jednotlivych poli. U MS SQL je
to nejrychlejsi.
Cely postup je tento:
pridat vsechny zaznamy do pracovni tabulky - bez indexu
pracovni tabulku prejmenovat na ostrou a preindexovat
David Klodner wrote:
>
> Zdravim,
>
> chtel bych se zeptat, jak resite pripady, kdy potrebujete do DB zapsat
> tisice radku.
> Ja napr. importuju do sveho programu cenik zbozi o 13 000 polozkach.
> Kazda polozka ma 25 atributu (ean, nazev, cena1, cena2 ...)
> Cenik mam budto v textove podobe nebo jako DBF a potrebuju ho dostat do
> IB6 tabulky.
>
> Zapisuju to pres IBTable, ale je to dost pomale a hlavne se to v prubehu
> hrozne zpomaluje. Prvnich 1000 polozek se ulozi
> behem par vterin, ale posledni tisicovka zabere uz nekolik minut.
>
> David Klodner
> D5 Prof, IB6, WinXP
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jakou lokalni databazi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.4.2004 14:57:36
> A funguje aj na D6 Personal ?
>> Na tohle bych zkusil pouzit SQLite. (viz. www.sqlite.org a pak se
>> podivej na www.torry.net, kde najdes hromadku kodu pro pristup z
>> Delphi)
To je DLL knihovna... ta ti funguje vsude a ze vseho. ;-) Zalezi jen
na tom, jakou si vyberes knihovnu, ktera ti to zpristupni v delphi.
Existuji knihovny, ktere ti zcela jiste pod personal edici pobezi.
Vyberes-li si knihovnu, ktera ale pouziva treba dataset, tak musis
mit delphi, ktere tdataset maji, coz tusim personal edice nejsou.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Sinea 2004
[*] David Liska <konference(zv)thsoft(tec)cz> - 5.4.2004 14:55:36
> > je zverejnen popis novych funkci Sinea 2004.
>
> Tohle tu nema co delat - durazne napomenuti administratora.
>
> Petr Zahradnik, pocitacovy expert
Proc by to tu nemelo co delat? Generator Sinea pouzivam docela dlouho a
popis novych funkci je treba pro me dost prinosna informace.
David
Jak na MS SQL DTS z Delphi pres COM
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 5.4.2004 14:45:29
Ahoj, nevytvareli jste nekdo dynamicky DTS balicek pres COM interface z
Delphi?
O co jde:
Potrebuju naimportovat nekolik desitek textovych souboru z importniho
adresare do tabulek SQL 2000. Jeden soubor (napr. skupiny.txt) patri do
jedne tabulky odpovidajiciho jmena (Skupiny). Ma predstava je vytvorit
dynamicky DTS balicek tak, ze bych vytvoril textovy zdroj a prislusnou
transformaci pres COM z Delphi. Take by samozrejme slo vytvorit DTS
balicek v editoru ale jmena souboru a vstupniho adresare jsou promenliva
a tak mi to prijde takto efektivnejsi.
Za jakekoliv napady nebo priklady budu vdecny.
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Synapse-spojeni pomoci TUDPBlockSocket
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 5.4.2004 14:35:28
V programu bych chtel pouzivat pro komunikaci mezi aplikacnim serverem a
klienty na stanicich Synapsy.
Chtel bych se zeptat zkusenych uzivatelu Sysnapse, zda je lepsi pro
posilani zprav pres TUDPBlockSocket pred kazdou zpravou volat
Connect a po zprave zase CloseSocket (viz priklad), nebo je lepsi otevrit
spojeni pri inicializaci programu a uzavrit pri zavirani programu a po
celou dobu prace programu nechat spojeni bezet. Funguje me oboje.
priklad:
FUDPSocket.Connect(AppServerIP, IntToStr(AppServerPort));
Result:=FUDPSocket.LastError=0; if not Result then Exit;
FUDPSocket.SendString('XXXXXXXXXX'+#13#10);
FUDPSocket.CloseSocket;
S pozdravem Vaclav Riha
Font pro soukrome pouziti
[*] Stranik Frantisek Ing. <fstranik(zv)cpoj(tec)cz> - 5.4.2004 13:29:22
Dobry den,
Mam zaregistrovany font pro soukrome pouziti postupem obdobnym jako je v knize
1000+1 Tipu a Triku pro Delphi.
Pri spusteni pod Windows XP se mi kousne program v SendMessage() pri notifikaci fontu
a program se vubec nerozbehne.
Pod jimymi Windows napr. 98 se program rozbehne, ale pouzite pismo je stale puvodni.
Prirazuji QRlabel1.font.name:="NoveJmenoFontu". Font existuje fyzicky na disku, je
spravne zaregistrovan a pouzivam i spravne jmeno fontu.
V cem je problem ?
Dekuji za rady a namety ...
F.J.S.
Prednastaveni OpenDialogu ve Wordu
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 5.4.2004 13:11:21
Zdar, potreboval bych z aplikace otevrit Word s prazdnym dokumentem (to je
trivka), ale potreboval bych, aby kdyz uzivatel klikne na "Otevrit" (ve
wordu), aby se mu OpenDialog prednastavil na urcitou cestu (byl
prednastaven na urcitiou cestu).
Brona
Jakou lokalni databazi
[*] ivan.holubec(zv)hella(tec)com - 5.4.2004 12:57:18
A funguje aj na D6 Personal ?
Z databazami som este nerobil ale chcel by som ...
Ivan Holubec
> co byste mi doporucili za lokalni databazi? Bude to aplikace jen na
> jednom samostatnem PC. Bude potreba data obcas prepsat jejich novou
> verzi. Rad bych pri praci s daty pouzil SQL, ale preziju to i bez toho.
> Aplikace se nebude instalovat, mela by bezet bez instalace primo z CD.
> (Takze ODBC alias asi ne) Napada me nejaka souborova, napr Access. Mate
> nekdo lepsi napad? Dik. Pouziju Delphi 5 nebo C++ Builder 6
Na tohle bych zkusil pouzit SQLite. (viz. www.sqlite.org a pak se
podivej na www.torry.net, kde najdes hromadku kodu pro pristup z
Delphi)
Nepotrebuje to zadnou zvlastni instalaci, jen ke zsve apliakci
prihodis jedno DLL. cea databaze je v jednom souboru, ke kteremu
pristupuje primo engine. S tim enginem ty naopak komunikujes pres
SQL. Tedy je to takovy hybrid mezi lokalni souborovou databazi a
normalni SQL databazi, coz se presne v tvem pripade hodi. ;-)>
>
>
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.
Dostupnost promenych
[*] mad(zv)worldmail(tec)cz - 5.4.2004 12:47:16
A jeste zajimavejsi vec:
Procedure delejNeco;
begin
ShowMessage('Main:'+IntToStr(MainMenu1.Items.Items[3].Count)); //Zobrazi se
"0"
ShowMessage('Main:'+IntToStr(MainMenu1.Items.Items[3].Count)); //Zobrazi se
"1"
ActualToolMenu;
end;
Nechapu :-(
Michal A.
.
Dostupnost promenych
[*] mad(zv)worldmail(tec)cz - 5.4.2004 12:31:15
Hezky den,
dokazete mi nekdo vysvetlit, proc a jak funguje nasledujici pripad ?
Pr. Mam dve unity:
main.pas:
Procedure delejNeco;
begin
ShowMessage('Main:'+IntToStr(MainMenu1.Items.Items[3].Count)); //!!!!!
ActualToolMenu;
end;
dalsi.pas:
procedure ActualTooMenu;
begin
If MainMenu1.Items.Items[3].Items[0].Count > 0 Then
For X:=0 To MainMenu1.Items.Items[3].Items[0].Count-1 do
MainMenu1.Items.Items[3].Items[0].Items[X].Checked:=Options.ToolMenu[X];
end;
Z main.pas zavolam "delejNeco". Pokud v tedo procedure je ShowMessage...,
tak se ActualToolMenu korektne provede. Pokud ovsem ShowMessage vypustim,
tak procedura ActualToolMenu spadne s chybovou hlaskou (index out of...)
Prosim Vas o vysvetleni kde je chyba. Dal jsem sem jen podstatne casti kodu,
ostatni casti na toto nemaji vliv.
Dekuji.
Michal A.
.
Logovani chyb
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 5.4.2004 12:11:12
Jan Rizek wrote:
> Zajimalo by mne, jak logujete chyby (vyjimky).
>
> Pry existuji nejake nastroje?
>
> Obslouzeni Application.onException je malo vypovidaci, kdfe vlastne chyba nastala. Je mozne nejak dohledat v jake unite a na jakem radku se chyba stala - popr. Call Stack a podobne?
>
Ja pouzivam Xpress Application Manager (http://www.urimont.com). Je
zadarmo se zdrojakama, nahrazuje zpravu o vyjimce vlastnim dialogem
vcetne call stacku a logovani chyb do souboru. Aby to fungovalo spravne
musis mit u exace i map soubor.
Zdravi Spider_X
Inno setup a volba textu v zavislosti na zvolenem
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.4.2004 12:17:13
Petr Fejfar wrote:
> 2) Team IS prislibil, ze v dalsi verzi zavede sekci [CustomMessages]
> s referenci {cm:xxx}. K casovemu horizontu se nikdo zatim
> nevyjadril.
ANN: v nove uvolnene verzi 4.2.1 je to jiz implementovano viz
http://www.jrsoftware.org/files/is4.2-whatsnew.htm
HTH, pf
ADMIN: OT: Sinea 2004
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.4.2004 10:59:06
Puvodni zprava ze dne 5.4.2004:
> Na strance
> http://www.sinea(tec)cz/default.asp?page=1020
> je zverejnen popis novych funkci Sinea 2004.
Tohle tu nema co delat - durazne napomenuti administratora.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
predavani parametru mezi aplikacemi
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 5.4.2004 09:16:57
Napsal jsem si vlastni protokol a predavam data pres TCP/IP, pouzivam
Synapsi a slape to sqele.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
potreboval bych prosim vyresit predavani vice parametru mezi
aplikacemi. Do
SendMessage muzu vlozit jen dva Integery coz je malo. Nejlepsi by
bylo kdyby
si aplikace mohly predavat stringy. Je takova moznost prosim?
NT autentifikace pro IIS a synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.4.2004 09:53:01
> Potrebuji stahnout z URL na intranetu (MS IIS) obrazek na disk.
> Zkusil jsem normalne HTTPsend (Synapse) ale protoze je intranet
> nastaven na windows autorizaci soubor nestahnu.
> Jak to vyresit, aby uzivatel (tak jako v IE) nemusel zadavat heslo.
Zkus dat to jmeno a heslo do URL. (neco jako
'http://jmeno:heslo(zv)www.tvuj.server(tec)cz/domukent')
Pokud to nepomuze (cehoz se bojim), pak je mozne, ze tvuj server
vyzaduje NTLM autorizaci, coz v soucasne dobe Synapse jeste neumi.
(ale je to hodne vysoko na seznamu veci, ktere budou pridany)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Zahady
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 5.4.2004 09:22:58
Dve otazky:
1. Neviete, preco Delphi neuklada (pri skonceni prace) aktualny stav
projektu? Pri novom otvoreni sa otvori v nejakom starom stave (napr.
vyznacene stare beakpointy, otvorene formy, s ktorymi uz nepracujem a pod.)
2. Jedna mysteriozna vec: obcas sa mi program po kompolacii -- bez
nejakeho zjavneho dovodu, typu ze som nepouzil free na objekty, ktore som
vytvroril -- po ukonceni havaruje. A havaruje po kazdom skonceni, inac v
priebehu behu vyzera vsetko OK. Potom ked na nom dalej pracujem (napr.
pridam novu funkciu) sa toto havarovanie strati, t.j. ukonci sa vzdy bez
chyboveho hlasenia. Po dalsom pridani funkcie alebo uprave nejakej
existencie sa to havarovanie znova objavi alebo neobjavi: neviem najst
ziadne pravidlo. Ono to vyzera tak, ako keby sa kazdou upravou presuvalo
nejake "citlive miesto", a obcas sa presunia niekam tam, kde sposobi havariu
po ukonceni programu -- ale neviem najst ziadne pravidlo.
dik za vysvetlenie
ivan kozak
predavani parametru mezi aplikacemi
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 5.4.2004 09:12:56
Mohlo by to byt napr. v prikazovom riadku, ale vtedy treba osetrit, aby
sa aplikacia spustala len v jednej instancii a aby prijate paramstr
dostala uz spustena instancia. Ked je to vsak osetretene, tak sa da
takto predavat velmi vela veci. Dalej sa da vyuzit napr. DDE, co je
jednoduchsie, avsak nie prilis dobre pouzitelne.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
> potreboval bych prosim vyresit predavani vice parametru mezi
aplikacemi.
> Do
> SendMessage muzu vlozit jen dva Integery coz je malo. Nejlepsi by bylo
> kdyby
> si aplikace mohli predavat stringy. Je takova moznost prosim?predavani parametru mezi aplikacemi
[*] Jan Harman <jharman(zv)volny(tec)cz> - 5.4.2004 09:04:54
Zdravim,
potreboval bych prosim vyresit predavani vice parametru mezi aplikacemi. Do
SendMessage muzu vlozit jen dva Integery coz je malo. Nejlepsi by bylo kdyby
si aplikace mohli predavat stringy. Je takova moznost prosim?
Dekuji Honza.OT: Sinea 2004
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 5.4.2004 08:58:53
Na strance
http://www.sinea(tec)cz/default.asp?page=1020
je zverejnen popis novych funkci Sinea 2004.
Jakou lokalni databazi
[*] Jaromir Solar <solar(zv)magion(tec)cz> - 5.4.2004 07:28:44
Jednu takovou aplikaci jsem delal ve FlashFiler
(http://sourceforge.net/projects/tpflashfiler). Funguje to i z CD na vybery
lze pouzit SQL.
S pozdravem
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
MAGION system a.s. (http://www.magion(tec)cz)
Tel.: 571-499-316
> co byste mi doporucili za lokalni databazi? Bude to aplikace jen na jednom
> samostatnem PC. Bude potreba data obcas prepsat jejich novou verzi. Rad
bych
> pri praci s daty pouzil SQL, ale preziju to i bez toho. Aplikace se nebude
> instalovat, mela by bezet bez instalace primo z CD. (Takze ODBC alias asi
> ne)
> Napada me nejaka souborova, napr Access. Mate nekdo lepsi napad?
> Dik.Prevod DXF
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 5.4.2004 06:48:41
> Omlouvam se za tezky off topic, ale urcite to nekdo z vas
> resil. Potrebuju v aplikaci zobrazovat vykresy co mam v DXF
> formatu. Neznate na to nejakou FREE komponentu co to umi (pro
> BCB6) a nebo nejakou utilitku, ktera mi to (nekolik set
> souboru) prevede do nejakeho obrazkoveho formatu, treba bmp,
> gif, jpg, ci cokoliv. Takze nepotrebuji nutne umet pracovat
> na urovni DXF (vypinat hladiny, zoomovat...), staci mi
> nahled. Mate neco? Dik.
>
Ano, existuje nekolik ActiveX komponent na zobrazovani DXF fromatu, kdysi jsem s tim pracoval. Na internetu to musis najit.
Jirka
NT autentifikace pro IIS a synapse
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 5.4.2004 00:56:16
Zdravim.
Potrebuji stahnout z URL na intranetu (MS IIS) obrazek na disk.
Zkusil jsem normalne HTTPsend (Synapse) ale protoze je intranet
nastaven na windows autorizaci soubor nestahnu.
Jak to vyresit, aby uzivatel (tak jako v IE) nemusel zadavat heslo.
Dik.
Ludek ZITA
P.S. Nemam na mysli situaci, kdy si uzivatel zatrhne "Ulozit heslo" v
dialogovem okne pri prihlasovani na stranky.
Mam na mysli nastaveni IE kdy v
Nastroje->Moznosti->Upresnit->Zabezpeceni je zaskrtnuto "Povolit
integrovane overeni systeme Windows"
A v prislusne zone zabezpeceni je nastaveno napr. "Automaticke
prihlaseni do site Intranet"text se zalamovanim + zjisteni height
[*] Petr Vones <pvones(zv)vol(tec)cz> - 4.4.2004 23:18:09
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
> Do ceho zobrazovat text, aby se sam zalamoval? Davam to do memo, ale chtela
Zalamovat umi i TLabel, viz WordWrap property
> bych zjistit, na jakej height se ten text zobrazuje - abych mohla nastavit
> height celyho mema - aby byl videt celej text bez scroll baru - davam to
Lze pouzit TCanvas.TextHeight nebo take API funkci DrawText s parametrem
DT_CALCRECT.
Petr Vones
text se zalamovanim + zjisteni height
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 4.4.2004 23:08:08
Do ceho zobrazovat text, aby se sam zalamoval? Davam to do memo, ale chtela
bych zjistit, na jakej height se ten text zobrazuje - abych mohla nastavit
height celyho mema - aby byl videt celej text bez scroll baru - davam to
totiz do tscrollbox - vic memo pod sebe... jinou standartni komponentu
nemuzu najit
Karolina
Logovani chyb
[*] Petr Vones <pvones(zv)vol(tec)cz> - 4.4.2004 23:04:07
From: "Jan Rizek" <jan_rizek(zv)centrum(tec)cz>
> Dekuju za tip. Nenapsal by jste mi nejaky jednoduchy priklad? Trochu plavu v
> napovede k JCL.
Pokud pouzijes instalator tak se ti v Repository objevi Exception Dialog. Ten
staci pridat do VCL aplikace a mas zakladni obsluhu hotovou.
Petr Vones
Zapis tisicu polozek do DB
[*] Fedor fi0dor Tirsel <fi0dor(zv)fi0dor.info> - 4.4.2004 16:17:39
David Klodner wrote:
> Jak se to v TIBTransaction nastavi?
> Params mam:
> read_committed
> rec_version
> nowait
Nenastavi sa to nijak... proste pri vkladani urcite iterujete (for, while,
repeat), tak si tam treba osetrit nieco na sposob:
if (i=1000) then
begin
transaction.commit;
i := 0;
end;
kde "i" je lokalna premenna oznacujuca pocet uz vlozenych riadkov do DB.
> A kdyz budu commitovat naraz 1000 vet a v jedne bude chyba, tak co se
> stane? Neulozi se ani jedna?
> Nebo vsechny krome te chybne?
Neulozi sa ani jedna -- princip transakcii: "bud vsetko, alebo nic".
> David Klodner
> D5 Prof, IB6, WinXP
Este snad jeden tip: skuste pouzivat IBScript resp. pripravit si "insert
query" s parametrami (query.pramByName()), dat query.Prepare a potom si uz iba
pri iteracii menit parametre dotazu. Taktiez by sa mohlo hodit "vypnut" indexy
tabulky, kam vkladate udaje, a po vlozeni ich opat zaktivovat (pozrite sa na
syntax ALTER INDEX).
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
Zapis tisicu polozek do DB
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.4.2004 15:55:37
David Klodner <d.klodner(zv)ordis(tec)cz> wrote:
>> Nepises jak resis transakce, ale nejrychlejsi metoda pro takoveto
>> vkladani dat je zapisovat v ramci jedne transakce 500-1000 vet
>> a pokazde tento blok commitovat.
>
> Jak se to v TIBTransaction nastavi?
> Params mam:
> read_committed
> rec_version
> nowait
Params jsou spravne, ale musis explicitne volat StartTransaction/Commit
IBTransaction.StartTransaction;
try
// zapis vet
IBTransaction.Commit;
except
IBTransaction.Rollback; // to kdyby doslo k jine chybe
end;
> A kdyz budu commitovat naraz 1000 vet a v jedne bude chyba, tak co se
> stane? Neulozi se ani jedna?
Ano, pokud selze Commit, neulozi se nic od StartTransaction.
Pokud v prubehu zapisu chces odvolat vsechny zmeny sam,
musis zavolat Rollback.
Martin Schayna
Zapis tisicu polozek do DB
[*] David Klodner <d.klodner(zv)ordis(tec)cz> - 4.4.2004 15:37:35
>> chtel bych se zeptat, jak resite pripady, kdy potrebujete do DB
zapsat
>> tisice radku.
>>
>> Zapisuju to pres IBTable, ale je to dost pomale a hlavne se to v
>> prubehu hrozne zpomaluje. Prvnich 1000 polozek se ulozi behem par
>> vterin, ale posledni tisicovka zabere uz nekolik minut.
>Nepises jak resis transakce, ale nejrychlejsi metoda pro takoveto
vkladani dat je zapisovat v ramci jedne transakce 500-1000 vet
>a pokazde tento blok commitovat.
>Martin Schayna
Jak se to v TIBTransaction nastavi?
Params mam:
read_committed
rec_version
nowait
A kdyz budu commitovat naraz 1000 vet a v jedne bude chyba, tak co se
stane? Neulozi se ani jedna?
Nebo vsechny krome te chybne?
David Klodner
D5 Prof, IB6, WinXP
Logovani chyb
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.4.2004 15:11:33
Jan Rizek <jan_rizek(zv)centrum(tec)cz> wrote:
>> http://sourceforge.net/projects/jcl/ Vrele doporucuji.
>
> Dekuju za tip. Nenapsal by jste mi nejaky jednoduchy priklad? Trochu
> plavu v napovede k JCL.
Neni na tom nic sloziteho, v centralni obsluze vyjimek pouzit
funkce JclLastExceptStackList resp. JclLastExceptStackListToStrings.
Pro spravnou funkci je treba aby u aplikace byl MAP soubor nebo
aby cast tohoto MAP souboru byla prilinkovana k aplikaci, je na to
myslim nejaky expert do IDE, ktery je soucasti JCL. My pouzivame
vlastni command-linovou utilitu postavenou na kodu toho experta,
ktera prilinkuje potrebne informace po radkove kompilaci.
Martin Schayna
Zapis tisicu polozek do DB
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.4.2004 14:55:31
David Klodner <d.klodner(zv)ordis(tec)cz> wrote:
> chtel bych se zeptat, jak resite pripady, kdy potrebujete do DB zapsat
> tisice radku.
>
> Zapisuju to pres IBTable, ale je to dost pomale a hlavne se to v
> prubehu hrozne zpomaluje. Prvnich 1000 polozek se ulozi
> behem par vterin, ale posledni tisicovka zabere uz nekolik minut.
Nepises jak resis transakce, ale nejrychlejsi metoda pro takoveto
vkladani dat je zapisovat v ramci jedne transakce 500-1000 vet
a pokazde tento blok commitovat.
Martin Schayna
Zapis tisicu polozek do DB
[*] David Klodner <d.klodner(zv)ordis(tec)cz> - 4.4.2004 14:45:30
Zdravim,
chtel bych se zeptat, jak resite pripady, kdy potrebujete do DB zapsat
tisice radku.
Ja napr. importuju do sveho programu cenik zbozi o 13 000 polozkach.
Kazda polozka ma 25 atributu (ean, nazev, cena1, cena2 ...)
Cenik mam budto v textove podobe nebo jako DBF a potrebuju ho dostat do
IB6 tabulky.
Zapisuju to pres IBTable, ale je to dost pomale a hlavne se to v prubehu
hrozne zpomaluje. Prvnich 1000 polozek se ulozi
behem par vterin, ale posledni tisicovka zabere uz nekolik minut.
David Klodner
D5 Prof, IB6, WinXP
Logovani chyb
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 4.4.2004 13:39:25
> Uz to tu bylo mockrat -- knihovna JCL obsahuje nastroje pro vysledovani
> call stacku po vyvolani vyjimky: http://sourceforge.net/projects/jcl/
> Vrele doporucuji.
>
Dekuju za tip. Nenapsal by jste mi nejaky jednoduchy priklad? Trochu plavu v
napovede k JCL.
JR
Logovani chyb
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.4.2004 11:57:16
Jan Rizek <jan_rizek(zv)centrum(tec)cz> wrote:
> Zajimalo by mne, jak logujete chyby (vyjimky).
> Obslouzeni Application.onException je malo vypovidaci, kdfe vlastne
> chyba nastala. Je mozne nejak dohledat v jake unite a na jakem radku
> se chyba stala - popr. Call Stack a podobne?
Uz to tu bylo mockrat -- knihovna JCL obsahuje nastroje pro vysledovani
call stacku po vyvolani vyjimky: http://sourceforge.net/projects/jcl/
Vrele doporucuji.
Martin Schayna
Logovani chyb
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 4.4.2004 11:25:14
Zajimalo by mne, jak logujete chyby (vyjimky).
Pry existuji nejake nastroje?
Obslouzeni Application.onException je malo vypovidaci, kdfe vlastne chyba nastala. Je mozne nejak dohledat v jake unite a na jakem radku se chyba stala - popr. Call Stack a podobne?
dekuju pokud si nekdo najde cas
JR
Odesilani mailu z Delphi
[*] Petr Vones <pvones(zv)vol(tec)cz> - 3.4.2004 15:05:37
From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> Pro odesilani mailu z Delphi pouzivam komponentu MAPIMail z kolekce SM
> komponents.
> Nejak mi nechce fungovat Form4.close; Dale byh se chtel zeptat, jak dostat
> do odesilatele druhou adresu odesilatele, kterou mam OE 6 [D5 Prof]
Podivej se na TJclEmail v JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
nastroje na odstraneni memory leaks
[*] Petr Vones <pvones(zv)vol(tec)cz> - 3.4.2004 15:05:37
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
> jake nastroje pouzivate na odladeni neuvolnenych objektu? Stahla jsem si
> memory sleuth trial, ale nejde zaregistrovat pro trial, protoze firma turbo
> power ukoncila svou cinnost...
http://www.automatedqa.com/downloads/memproof.asp
http://www.automatedqa.com/products/aqtime.asp
Petr Vones
Komponenty pro EDI
[*] Petr Vones <pvones(zv)vol(tec)cz> - 3.4.2004 15:09:38
From: "David Klodner" <d.klodner(zv)ordis(tec)cz>
> mohl by mi nekdo doporucit komponenty pro praci s EDI?
Neco najdes v JCL (unit JclEdi apod):
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
nastroje na odstraneni memory leaks
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 3.4.2004 15:01:36
Ahoj,
jake nastroje pouzivate na odladeni neuvolnenych objektu? Stahla jsem si
memory sleuth trial, ale nejde zaregistrovat pro trial, protoze firma turbo
power ukoncila svou cinnost...
Karolina
Odesilani mailu z Delphi
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 3.4.2004 13:09:23
Zdravim
Pro odesilani mailu z Delphi pouzivam komponentu MAPIMail z kolekce SM
komponents.
Nejak mi nechce fungovat Form4.close; Dale byh se chtel zeptat, jak dostat
do odesilatele druhou adresu odesilatele, kterou mam OE 6 [D5 Prof]
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
procedure TForm4.FormShow(Sender: TObject);
begin
with TMAPIMail.Create(Self) do
try
Subject := 'Stav skladu';
Recipients.Add(XXXXX');
Attachments.Add(ExtractFilePath(ParamStr(0)) + 'Zaloha\sklad.zip');
Body := 'V priloze zasilam stav skladu';
EditDialog := True;
Send
finally
Free
end;
Form4.cursor:=crDefault;
Form4.close;
end;problem s knihovnou - VYRESENO
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 3.4.2004 10:45:11
> eagle.exe - Nepovolene premisteni systemove knihovny DLL
> Systemova knihovna DLL kernel32.dll byla premistena v pameti.
> Aplikace nebude pracovat spravne. Duvodem k premisteni bylo,
> ze knihovna DLL C:\WINNT\system32\MPR.dll zabrala rozsah
> adres vycleneny pro systemove knihovny DLL systemu Windows.
> Dodavatel knihoven DLL by mel dodat novou verzi.
Ahoj, tak jsem to po delsi dobe vyresil. :-) Jedna se o MS chybu v HotFixu
KB24141, je potreba jej odinstalovat a pomoci webupdate stahnout jiz
opravenou verzi.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP3) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
OT: Prevod do PDF formatu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 2.4.2004 18:58:05
Zdravim.
Mam v databazi (MSSQL) nejake udaje o vyrobcich a nejakou cestu k
obrazkum v rozliseni 300dpi.
Potrebuji z toho nejak vytvorit PDF format vhodny pro tiskarnu. Zkousel
jsem ruzne GS (Sinea) i html (pres Explorer) s naslednym tiskem do
Distileru ovsem
Vse obvykle chcipe na zdrojich, protoze vyrobku je hodne a vse vlastne
nejprve obrazky natahne do pameti a pak je to uklada na canvas tiskarny
a pak teprve tiskne.
Nemate nejaky napad jak pdf generovat nejak postupne, aby to zvladnul
normalni stroj ?
Ludek ZITA Velikost radku v TDBGridu
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 2.4.2004 18:16:01
Jak lze zmenit vysku radku v TDBGridu?
spusteni aplikace s Admin pravy
[*] Sommer Pavel <psommer(zv)cpoj(tec)cz> - 2.4.2004 18:20:02
>Pokousim se vyzkouset CreateProcAsUserEx z JCL, ale nechce mi to
fungovat.
Pro uspesne spusteni fci CreateProcessAsUser a LogonUser, ktere fce v
JCL vola, je nutne, aby uzivatelsky ucet, ktery tu fci vola mel
nastavena prava "Nahradit token urovne procesu", "Upravit kvoty pameti
pro proces" a "Jednat jako cast operacniho systemu".
(SE_ASSIGNPRIMARYTOKEN_NAME, SE_INCREASE_QUOTA_NAME, SE_TCB_NAME).
PaS.
thread + udalost pri ukonceni
[*] Petr Vones <pvones(zv)vol(tec)cz> - 2.4.2004 17:35:58
From: "Karolina Nemanska" <lafidek(zv)seznam(tec)cz>
> delam aplikaci s vlakny. Pri stisku buttonu vytvorim htread a spustim. A
> chci, ay thread dokonci akci, abz yavolal nejakou metodu formulare pro vypis
> vysledku. Potud vse vim jak... Ale kde pak mam onen thread zrusit? Kdyz dam
Prvni zpusob je nastavit v konstruktoru FreeOnTerminate = True, potom se
objekt threadu zrusi jakmile se dokonci kod v metode Execute.
Druhy zpusob je postupne volani metod:
Terminate
WaitFor
Free
V udalosti OnTerminate nelze uvolnit vlastni objekt threadu.
Petr Vones
thread + udalost pri ukonceni
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 2.4.2004 17:23:56
Ahoj,
delam aplikaci s vlakny. Pri stisku buttonu vytvorim htread a spustim. A
chci, ay thread dokonci akci, abz yavolal nejakou metodu formulare pro vypis
vysledku. Potud vse vim jak... Ale kde pak mam onen thread zrusit? Kdyz dam
free do one metody, tak to hazi chybu, pokud nastavim threadu
freeonterminate, vypada to, ze se thread nezrusi..
form.onclick
begin
...
thread.resume
end;
form.onthreaddone
begin
text:='vysledek je';
// kdyz dam tady free, tak to hlasi chybu
end;
thread.execute
begin
neco delej
synchronize(zavolejthreaddone);
end
thread.threaddone
begin
onthreaddone
end
Karolina
OT: Prevod DXF
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 2.4.2004 17:07:54
Omlouvam se za tezky off topic, ale urcite to nekdo z vas resil. Potrebuju v
aplikaci zobrazovat vykresy co mam v DXF formatu. Neznate na to nejakou FREE
komponentu co to umi (pro BCB6) a nebo nejakou utilitku, ktera mi to
(nekolik set souboru) prevede do nejakeho obrazkoveho formatu, treba bmp,
gif, jpg, ci cokoliv.
Takze nepotrebuji nutne umet pracovat na urovni DXF (vypinat hladiny,
zoomovat...), staci mi nahled. Mate neco?
Dik.
TForm.Create
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 2.4.2004 15:45:46
mstevlik(zv)gamo.sk napsal(a):
>>Ahoj,
>> co takhle?
>> Petr Daricek
>>
>>
>>TAbstractForm=class(TForm)
>>public
>> constructor Create(AOwner: TComponent); override;
>>End;
>>
>>TConcreteForm=class(TAbstractForm)
>>public
>> constructor Create(AOwner:TComponent;Parametr:Integer);
>>End;
>>
>>
>>
>>
...
>A ostane mi ten constructor toho TConcreteFormu stale virtualny?
>Budem moct v nejakom potomkovy TConcreteFormu napisat constructor
>Create(AOwner:TComponent;Parametr:Integer); override; ?
>
>Stevlik Marian
>ISYS programator
>
>
>
Samozrejme nezustane, musis ho virtualnim udelat
TConcreteForm=class(TAbstractForm)
public
constructor Create(AOwner:TComponent;Parametr:Integer); virtual;
End;
Ale bude ti to k necemu?
Radim